Commit d2f288c6 authored by Dave Love's avatar Dave Love
Browse files

(authors): Expand `root' before running

find.
parent 0f937ebd
2001-02-09 Dave Love <fx@gnu.org>
* emacs-lisp/authors.el (authors): Expand `root' before running
find.
2001-02-09 Kenichi Handa <handa@etl.go.jp> 2001-02-09 Kenichi Handa <handa@etl.go.jp>
   
* faces.el (set-face-attribute): Describe the case of a negative * faces.el (set-face-attribute): Describe the case of a negative
......
...@@ -428,10 +428,10 @@ ROOT is the root directory under which to find the files. If called ...@@ -428,10 +428,10 @@ ROOT is the root directory under which to find the files. If called
interactively, ROOT is read from the minibuffer. Result is a interactively, ROOT is read from the minibuffer. Result is a
buffer *Authors* containing authorship information." buffer *Authors* containing authorship information."
(interactive "DEmacs source directory: ") (interactive "DEmacs source directory: ")
(setq root (expand-file-name root))
(let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*"))
(table (make-hash-table :test 'equal)) (table (make-hash-table :test 'equal))
(buffer-name "*Authors*")) (buffer-name "*Authors*"))
(setq root (expand-file-name root))
(authors-add-fixed-entries table) (authors-add-fixed-entries table)
(unless (file-exists-p (expand-file-name "src/emacs.c" root)) (unless (file-exists-p (expand-file-name "src/emacs.c" root))
(error "Not the root directory of Emacs: %s" root)) (error "Not the root directory of Emacs: %s" root))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment