procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from emacs--devo--0

Browse source 
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-328
This commit is contained in:
Miles Bader 2008-01-31 13:49:17 +00:00
commit 6498c4b170
19 changed files with 434 additions and 173 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/authors.el
View file

@ -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)))

7
lisp/emacs-lisp/check-declare.el
View file

@ -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))