diff options
| -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 |