From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 Jan 1994 04:29:23 +0000 (+0000)
Subject: (enable-command, disable-command): Use user-init-file.
X-Git-Tag: emacs-19.34~10400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb79850eb400fca5e3cd88f18ab93617cc93cf54;p=emacs.git

(enable-command, disable-command): Use user-init-file.
---

diff --git a/lisp/novice.el b/lisp/novice.el
index b8747549209..2353edc5719 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -90,7 +90,8 @@ to future sessions."
   (interactive "CEnable command: ")
   (put command 'disabled nil)
   (save-excursion
-   (set-buffer (find-file-noselect (substitute-in-file-name "~/.emacs")))
+   (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)
        (delete-region
@@ -109,7 +110,8 @@ to future sessions."
   (interactive "CDisable command: ")
   (put command 'disabled t)
   (save-excursion
-   (set-buffer (find-file-noselect (substitute-in-file-name "~/.emacs")))
+   (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)
        (delete-region