mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(custom-save-delete, custom-save-all):

Browse Source 
Bind default-major-mode around visiting custom-file.
This commit is contained in:
Karl Heuer 1997-12-04 04:30:59 +00:00
parent db9d97e1f5
commit fc4d62fe1b
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/cus-edit.el
View File

@ -2935,9 +2935,10 @@ you need to explicitly load that file for the settings to take effect."
:group 'customize)
(defun custom-save-delete (symbol)
"Delete the call to SYMBOL form `custom-file'.
"Delete the call to SYMBOL from `custom-file'.
Leave point at the location of the call, or after the last expression."
(set-buffer (find-file-noselect (or custom-file user-init-file)))
(let ((default-major-mode))
(set-buffer (find-file-noselect (or custom-file user-init-file))))
(goto-char (point-min))
(catch 'found
(while t
@ -3044,7 +3045,8 @@ Leave point at the location of the call, or after the last expression."
(custom-save-variables)
(custom-save-faces)
(save-excursion
(set-buffer (find-file-noselect (or custom-file user-init-file)))
(let ((default-major-mode nil))
(set-buffer (find-file-noselect (or custom-file user-init-file))))
(save-buffer))))
;;; The Customize Menu.