# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 983978460 0
# Node ID d1106e82508b0b0cc5cc368460cf2e7cbd05d962
# Parent  05816ce1f5fb19e621d12ea0e8ef5eb7b05bc186
(custom-save-delete): Move in front of local
variables, otherwise long Custom entries would make them
ineffective.

diff -r 05816ce1f5fb -r d1106e82508b lisp/cus-edit.el
--- 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'."