diff options
| author | Dave Love <[email protected]> | 2001-02-09 15:12:08 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2001-02-09 15:12:08 +0000 |
| commit | d2f288c69510feaac53886d18390a7334fd82a14 (patch) | |
| tree | 79d2ebc6c2ead27e79acb0298989525acaa316ab /lisp | |
| parent | 0f937ebd995212c5ed8f4615f556513fa01a7f17 (diff) | |
(authors): Expand `root' before running
find.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/authors.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 15a292dbbe..17299cf96c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-02-09 Dave Love <[email protected]> + + * emacs-lisp/authors.el (authors): Expand `root' before running + find. + 2001-02-09 Kenichi Handa <[email protected]> * faces.el (set-face-attribute): Describe the case of a negative diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index e818ca88d6..909f741f88 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -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 buffer *Authors* containing authorship information." (interactive "DEmacs source directory: ") + (setq root (expand-file-name root)) (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) (table (make-hash-table :test 'equal)) (buffer-name "*Authors*")) - (setq root (expand-file-name root)) (authors-add-fixed-entries table) (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "Not the root directory of Emacs: %s" root)) |