From 7435bd25826dc4dc9c4ea549c966dc44f743f890 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 Apr 1994 18:51:35 +0000 Subject: [PATCH] (disabled-command-hook): Try to enable command in user init file only if there is a user init file. --- lisp/novice.el | 8 +++++--- 1 file 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) -- 2.39.5