diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-04-28 18:51:35 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-04-28 18:51:35 +0000 |
commit | 7db084432604ac9b647cbc9c932b4bc30449d2d5 (patch) | |
tree | c62b2125d8a154e594d8ebf2bd0db30cc3938596 /lisp/novice.el | |
parent | fa0506e6fe72706e66c8ba06e9815dc6e9cb5af6 (diff) | |
download | emacs-7db084432604ac9b647cbc9c932b4bc30449d2d5.tar.gz |
(disabled-command-hook): Try to enable command in user
init file only if there is a user init file.
Diffstat (limited to 'lisp/novice.el')
-rw-r--r-- | lisp/novice.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 2c61715cefd..4fc9a48bfd5 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -79,7 +79,9 @@ N to do nothing (command remains disabled).")) (ding) (message "Please type y, n or Space: ")))) (if (= char ?y) - (if (y-or-n-p "Enable command for future editing sessions also? ") + (if (and user-init-file + (not (string= "" user-init-file)) + (y-or-n-p "Enable command for future editing sessions also? ")) (enable-command this-command) (put this-command 'disabled nil))) (if (/= char ?n) @@ -93,7 +95,7 @@ to future sessions." (interactive "CEnable command: ") (put command 'disabled nil) (save-excursion - (set-buffer (find-file-noselect + (set-buffer (find-file-noselect (substitute-in-file-name user-init-file))) (goto-char (point-min)) (if (search-forward (concat "(put '" (symbol-name command) " ") nil t) @@ -115,7 +117,7 @@ to future sessions." (error "Invalid command name `%s'" command)) (put command 'disabled t) (save-excursion - (set-buffer (find-file-noselect + (set-buffer (find-file-noselect (substitute-in-file-name user-init-file))) (goto-char (point-min)) (if (search-forward (concat "(put '" (symbol-name command) " ") nil t) |