From d2f288c69510feaac53886d18390a7334fd82a14 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 9 Feb 2001 15:12:08 +0000 Subject: [PATCH] (authors): Expand `root' before running find. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/authors.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * emacs-lisp/authors.el (authors): Expand `root' before running + find. + 2001-02-09 Kenichi Handa * 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)) -- 2.39.5