Mercurial > emacs

comparison lisp/novice.el @ 5451:165b0bf0e879

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-command, disable-command): Use user-init-file.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Jan 1994 04:29:23 +0000
parents 78098404b263
children 84cdd74ddbb0
comparison
equal deleted inserted replaced
5450:9c57cdb2091e 5451:165b0bf0e879
88 The user's .emacs file is altered so that this will apply 88 The user's .emacs file is altered so that this will apply
89 to future sessions." 89 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
97 (progn (beginning-of-line) (point)) 98 (progn (beginning-of-line) (point))
98 (progn (forward-line 1) (point))) 99 (progn (forward-line 1) (point)))
107 The user's .emacs file is altered so that this will apply 108 The user's .emacs file is altered so that this will apply
108 to future sessions." 109 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
116 (progn (beginning-of-line) (point)) 118 (progn (beginning-of-line) (point))
117 (progn (forward-line 1) (point)))) 119 (progn (forward-line 1) (point))))