* lisp/saveplace.el (save-place-limit): Make it finite. (Bug#9352)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3fe51454e5a48682dc8ad86eb933cf5be0a0f78..b7adbb93126032422d49c57d201cf1d5d0fedf37 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-08-27  Glenn Morris  <rgm@gnu.org>
+
+       * saveplace.el (save-place-limit): Make it finite.  (Bug#9352)
+
 2011-08-26  Chong Yidong  <cyd@stupidchicken.com>
 
        * emacs-lisp/package.el (package-install): Call package-initialize

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 2d1586d895a53beff42910329942ca67765213e9..9d776877ca62000d7a8e64837fa7b844e502c56b 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -89,8 +89,9 @@ value of `version-control'."
 (defvar save-place-loaded nil
   "Non-nil means that the `save-place-file' has been loaded.")
 
-(defcustom save-place-limit nil
+(defcustom save-place-limit 400
   "Maximum number of entries to retain in the list; nil means no limit."
+  :version "24.1"                       ; nil -> 400
   :type '(choice (integer :tag "Entries" :value 1)
                 (const :tag "No Limit" nil))
   :group 'save-place)