(authors): Expand `root' before running

find.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15a292dbbe7..17299cf96cb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
         * 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 e818ca88d6c..909f741f88c 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))