diff options
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/admin/admin.el b/admin/admin.el index dab61bb9166..3cb5dbc2d92 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -261,8 +261,12 @@ ROOT should be the root of an Emacs source tree." ROOT should be the root of an Emacs source tree. Interactively with a prefix argument, prompt for TYPE. Optional argument TYPE is type of output (nil means all)." - (interactive (let ((root (read-directory-name "Emacs root directory: " - source-directory nil t))) + (interactive (let ((root + (if noninteractive + (or (pop command-line-args-left) + default-directory) + (read-directory-name "Emacs root directory: " + source-directory nil t)))) (list root (if current-prefix-arg (completing-read @@ -717,8 +721,12 @@ style=\"text-align:left\">") ROOT should be the root of an Emacs source tree. Interactively with a prefix argument, prompt for TYPE. Optional argument TYPE is type of output (nil means all)." - (interactive (let ((root (read-directory-name "Emacs root directory: " - source-directory nil t))) + (interactive (let ((root + (if noninteractive + (or (pop command-line-args-left) + default-directory) + (read-directory-name "Emacs root directory: " + source-directory nil t)))) (list root (if current-prefix-arg (completing-read |