From fc4d62fe1ba210f4f21c0345b791a0fb60c75b41 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 4 Dec 1997 04:30:59 +0000 Subject: [PATCH] (custom-save-delete, custom-save-all): Bind default-major-mode around visiting custom-file. --- lisp/cus-edit.el | 8 +++++--- 1 file 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. -- 2.39.2