mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(disabled-command-hook): Try to enable command in user

Browse Source 
init file only if there is a user init file.
This commit is contained in:
Richard M. Stallman 1994-04-28 18:51:35 +00:00
parent b8228bebad
commit 7435bd2582
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/novice.el
View File

@ -79,7 +79,9 @@ N to do nothing (command remains disabled)."))
(ding)
(message "Please type y, n or Space: "))))
(if (= char ?y)
(if (y-or-n-p "Enable command for future editing sessions also? ")
(if (and user-init-file
(not (string= "" user-init-file))
(y-or-n-p "Enable command for future editing sessions also? "))
(enable-command this-command)
(put this-command 'disabled nil)))
(if (/= char ?n)
@ -93,7 +95,7 @@ to future sessions."
(interactive "CEnable command: ")
(put command 'disabled nil)
(save-excursion
(set-buffer (find-file-noselect
(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)
@ -115,7 +117,7 @@ to future sessions."
(error "Invalid command name `%s'" command))
(put command 'disabled t)
(save-excursion
(set-buffer (find-file-noselect
(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)