Mercurial > emacs
changeset 20398:47f326ffb7ba
(custom-save-delete, custom-save-all):
Bind default-major-mode around visiting custom-file.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 04 Dec 1997 04:30:59 +0000 |
| parents | a7bab1d0c5e3 |
| children | 04ce86b23ffa |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Thu Dec 04 04:29:45 1997 +0000 +++ b/lisp/cus-edit.el Thu Dec 04 04:30:59 1997 +0000 @@ -2935,9 +2935,10 @@ :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 @@ (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.