mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-01-06 04:29:23 +00:00
parent a4c5c70594
commit bb79850eb4
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/novice.el
View file

@ -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