diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-01-06 04:29:23 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-01-06 04:29:23 +0000 |
commit | 62142b9539d7086711a06d9cff39242a80b8e420 (patch) | |
tree | 941f1a55ab1d00217b18b8af3bd02c874190fe05 /lisp/novice.el | |
parent | 02c1a4428a46c12c3a01ed621014f11078d034ef (diff) | |
download | emacs-62142b9539d7086711a06d9cff39242a80b8e420.tar.gz |
(enable-command, disable-command): Use user-init-file.
Diffstat (limited to 'lisp/novice.el')
-rw-r--r-- | lisp/novice.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |