# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767559095 0
# Node ID b6a358a4bdfb5f8ea642f67f776c447c449ec397
# Parent  f9eeb75c2b76c294a3c467df6732bb9f2f6237dc
(disabled-command-hook): Try to enable command in user
init file only if there is a user init file.

diff -r f9eeb75c2b76 -r b6a358a4bdfb lisp/novice.el
--- a/lisp/novice.el	Thu Apr 28 18:13:22 1994 +0000
+++ b/lisp/novice.el	Thu Apr 28 18:51:35 1994 +0000
@@ -79,7 +79,9 @@
 	 (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 @@
   (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 @@
       (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)