diff options
| author | Richard M. Stallman | 1994-01-06 04:29:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-06 04:29:23 +0000 |
| commit | bb79850eb400fca5e3cd88f18ab93617cc93cf54 (patch) | |
| tree | e5667114aa4120530ec1b352969df4bcb93dc820 | |
| parent | a4c5c70594f6f9cfb6a8414abdced5ff0490d280 (diff) | |
| download | emacs-bb79850eb400fca5e3cd88f18ab93617cc93cf54.tar.gz emacs-bb79850eb400fca5e3cd88f18ab93617cc93cf54.zip | |
(enable-command, disable-command): Use user-init-file.
| -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." | |||
| 90 | (interactive "CEnable command: ") | 90 | (interactive "CEnable command: ") |
| 91 | (put command 'disabled nil) | 91 | (put command 'disabled nil) |
| 92 | (save-excursion | 92 | (save-excursion |
| 93 | (set-buffer (find-file-noselect (substitute-in-file-name "~/.emacs"))) | 93 | (set-buffer (find-file-noselect |
| 94 | (substitute-in-file-name user-init-file))) | ||
| 94 | (goto-char (point-min)) | 95 | (goto-char (point-min)) |
| 95 | (if (search-forward (concat "(put '" (symbol-name command) " ") nil t) | 96 | (if (search-forward (concat "(put '" (symbol-name command) " ") nil t) |
| 96 | (delete-region | 97 | (delete-region |
| @@ -109,7 +110,8 @@ to future sessions." | |||
| 109 | (interactive "CDisable command: ") | 110 | (interactive "CDisable command: ") |
| 110 | (put command 'disabled t) | 111 | (put command 'disabled t) |
| 111 | (save-excursion | 112 | (save-excursion |
| 112 | (set-buffer (find-file-noselect (substitute-in-file-name "~/.emacs"))) | 113 | (set-buffer (find-file-noselect |
| 114 | (substitute-in-file-name user-init-file))) | ||
| 113 | (goto-char (point-min)) | 115 | (goto-char (point-min)) |
| 114 | (if (search-forward (concat "(put '" (symbol-name command) " ") nil t) | 116 | (if (search-forward (concat "(put '" (symbol-name command) " ") nil t) |
| 115 | (delete-region | 117 | (delete-region |