From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 4 Dec 1997 04:30:59 +0000 (+0000)
Subject: (custom-save-delete, custom-save-all):
X-Git-Tag: emacs-20.3~2675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc4d62fe1ba210f4f21c0345b791a0fb60c75b41;p=emacs.git

(custom-save-delete, custom-save-all):
Bind default-major-mode around visiting custom-file.
---

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.