From c7efbb12d959fc9af98a6e255aaf20cfce8884a8 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 30 Jan 2008 21:43:55 +0000 Subject: (authors): Use `find-program' and `grep-program' instead of hardcoded program names. --- lisp/emacs-lisp/authors.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 90d3ac869e9..d27e08f7334 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -587,7 +587,7 @@ Result is a buffer *Authors* containing authorship information, and a buffer *Authors Errors* containing references to unknown files." (interactive "DEmacs source directory: ") (setq root (expand-file-name root)) - (let ((logs (process-lines "find" root "-name" "ChangeLog*")) + (let ((logs (process-lines find-program root "-name" "ChangeLog*")) (table (make-hash-table :test 'equal)) (buffer-name "*Authors*") authors-checked-files-alist @@ -599,7 +599,7 @@ buffer *Authors Errors* containing references to unknown files." (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) (message "Scanning %s..." log) (authors-scan-change-log log table))) - (let ((els (process-lines "find" root "-name" "*.el"))) + (let ((els (process-lines find-program root "-name" "*.el"))) (dolist (file els) (message "Scanning %s..." file) (authors-scan-el file table))) -- cgit v1.2.3 From 2f18aa21f57973dbd6bb21cc3fda962290e72a5e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 30 Jan 2008 21:44:36 +0000 Subject: (check-declare-directory): Use `find-program' and `grep-program' instead of hardcoded program names. --- lisp/emacs-lisp/check-declare.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index 9f81cebaca8..1b3d4dc2f6d 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el @@ -300,9 +300,10 @@ described in the documentation of `declare-function'." errlist files) (message "%s" m) (message "%s" m2) - (setq files (process-lines "find" root "-name" "*.el" - "-exec" "grep" "-l" - "^[ ]*(declare-function" "{}" ";")) + (setq files (process-lines find-program root + "-name" "*.el" + "-exec" grep-program + "-l" "^[ \t]*(declare-function" "{}" ";")) (message "%s%d found" m2 (length files)) (when files (setq errlist (apply 'check-declare-files files)) -- cgit v1.2.3 From 8e2e166626c67202f0fd0be7652cc20a8925e171 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 30 Jan 2008 21:47:06 +0000 Subject: Update. --- lisp/ChangeLog | 19 +++++++++++++------ lisp/emacs-lisp/cl-loaddefs.el | 2 +- 2 files changed, 14 insertions(+), 7 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e2af23a41c..469ff08d652 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,15 @@ +2008-01-30 Juanma Barranquero + + * emacs-lisp/check-declare.el (check-declare-directory): + * emacs-lisp/authors.el (authors): Use `find-program' and + `grep-program' instead of hardcoded program names. + + * emacs-lisp/cl-loaddefs.el: Update. + 2008-01-30 Tassilo Horn - * info.el (Info-bookmark-make-cell, Info-bookmark-jump): New - functions. Implement bookmark support the new make-cell/handler - way. + * info.el (Info-bookmark-make-cell, Info-bookmark-jump): New functions. + Implement bookmark support the new make-cell/handler way. (Info-mode): Bind bookmark-make-cell-function to Info-bookmark-make-cell buffer locally. @@ -19,9 +26,9 @@ 2008-01-29 Michael Albinus - * net/tramp.el (tramp-methods): Use "-H" option for "sudo". Suggested - by Trent W. Buck . Make ("%h") a single - element in "plinkx". + * net/tramp.el (tramp-methods): Use "-H" option for "sudo". + Suggested by Trent W. Buck . Make ("%h") + a single element in "plinkx". (tramp-handle-shell-command): Reuse "*Async Shell Command*" or "*Shell Command Output*" buffers. Check, whether there is already an asynchronous process running. Display always the buffer of the diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el index bfc711478da..5308b700a22 100644 --- a/lisp/emacs-lisp/cl-loaddefs.el +++ b/lisp/emacs-lisp/cl-loaddefs.el @@ -283,7 +283,7 @@ Not documented ;;;;;; do* do loop return-from return block etypecase typecase ecase ;;;;;; case load-time-value eval-when destructuring-bind function* ;;;;;; defmacro* defun* gentemp gensym cl-compile-time-init) "cl-macs" -;;;;;; "cl-macs.el" "b75c9203d71424764cb7d91607a965eb") +;;;;;; "cl-macs.el" "80422dc6f5f8faffd926deba0c4c0ed7") ;;; Generated autoloads from cl-macs.el (autoload 'cl-compile-time-init "cl-macs" "\ -- cgit v1.2.3