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 | bb79850eb400fca5e3cd88f18ab93617cc93cf54 (patch) | |
| tree | e5667114aa4120530ec1b352969df4bcb93dc820 /lisp/novice.el | |
| parent | a4c5c70594f6f9cfb6a8414abdced5ff0490d280 (diff) | |
| download | emacs-bb79850eb400fca5e3cd88f18ab93617cc93cf54.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 |