Mercurial > emacs
changeset 36628:d1106e82508b
(custom-save-delete): Move in front of local
variables, otherwise long Custom entries would make them
ineffective.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 07 Mar 2001 15:21:00 +0000 |
| parents | 05816ce1f5fb |
| children | 54d5085e7c20 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Wed Mar 07 14:15:25 2001 +0000 +++ b/lisp/cus-edit.el Wed Mar 07 15:21:00 2001 +0000 @@ -1,6 +1,6 @@ ;;; cus-edit.el --- Tools for customizing Emacs and Lisp packages. ;; -;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: help, faces @@ -3480,7 +3480,17 @@ (setq first (point))))))) (if first (goto-char first) - (goto-char (point-max))))) + ;; Move in front of local variables, otherwise long Custom + ;; entries would make them ineffective. + (let ((pos (point-max)) + (case-fold-search t)) + (save-excursion + (goto-char (point-max)) + (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) + 'move) + (when (search-forward "Local Variables:" nil t) + (setq pos (line-beginning-position)))) + (goto-char pos))))) (defun custom-save-variables () "Save all customized variables in `custom-file'."