# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881209859 0
# Node ID 47f326ffb7ba72e3f10bf2d15b32d47e0dec4e37
# Parent  a7bab1d0c5e3c5e47338c0732191f6a230763cf9
(custom-save-delete, custom-save-all):
Bind default-major-mode around visiting custom-file.

diff -r a7bab1d0c5e3 -r 47f326ffb7ba lisp/cus-edit.el
--- 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.