diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-12-04 04:30:59 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-12-04 04:30:59 +0000 |
| commit | fc4d62fe1ba210f4f21c0345b791a0fb60c75b41 (patch) | |
| tree | 4f24fac8209fc02e3049d8e9768fa93051b33065 | |
| parent | db9d97e1f56f86d409227c112356ac1962863758 (diff) | |
| download | emacs-fc4d62fe1ba210f4f21c0345b791a0fb60c75b41.tar.gz | |
(custom-save-delete, custom-save-all):
Bind default-major-mode around visiting custom-file.
| -rw-r--r-- | lisp/cus-edit.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 35e32afbb6c..e06207c53b7 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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. |