diff options
| author | Juanma Barranquero | 2002-11-11 10:51:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2002-11-11 10:51:58 +0000 |
| commit | 2302ee3426e35082ecbf442571a3d9fb1b7b9560 (patch) | |
| tree | c0c2450ba1c4d31a1b51fdfe0189ea385a73cad4 | |
| parent | 98b4e102f8f62a9b157d1356b1232885632ee063 (diff) | |
| download | emacs-2302ee3426e35082ecbf442571a3d9fb1b7b9560.tar.gz emacs-2302ee3426e35082ecbf442571a3d9fb1b7b9560.zip | |
(custom-save-delete): Force emacs-lisp-mode.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5c7234059cc..aefa123399d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2002-11-11 Per Abrahamsen <abraham@dina.kvl.dk> | ||
| 2 | |||
| 3 | * cus-edit.el (custom-save-delete): Force emacs-lisp-mode. | ||
| 4 | |||
| 1 | 2002-11-11 Juanma Barranquero <lektu@terra.es> | 5 | 2002-11-11 Juanma Barranquero <lektu@terra.es> |
| 2 | 6 | ||
| 3 | * bindings.el (mode-name): Mark it as risky-local-variable. | 7 | * bindings.el (mode-name): Mark it as risky-local-variable. |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 366061a7e59..71709cd7234 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -3649,7 +3649,7 @@ to the new custom file. This will preserve your existing customizations." | |||
| 3649 | "Visit `custom-file' and delete all calls to SYMBOL from it. | 3649 | "Visit `custom-file' and delete all calls to SYMBOL from it. |
| 3650 | Leave point at the old location of the first such call, | 3650 | Leave point at the old location of the first such call, |
| 3651 | or (if there were none) at the end of the buffer." | 3651 | or (if there were none) at the end of the buffer." |
| 3652 | (let ((default-major-mode)) | 3652 | (let ((default-major-mode 'emacs-lisp-mode)) |
| 3653 | (set-buffer (find-file-noselect (custom-file)))) | 3653 | (set-buffer (find-file-noselect (custom-file)))) |
| 3654 | (goto-char (point-min)) | 3654 | (goto-char (point-min)) |
| 3655 | ;; Skip all whitespace and comments. | 3655 | ;; Skip all whitespace and comments. |