[Emacs-diffs] Changes to emacs/lisp/savehist.el

[Stefan Monnier]

Index: emacs/lisp/savehist.el
diff -c emacs/lisp/savehist.el:1.4 emacs/lisp/savehist.el:1.5
*** emacs/lisp/savehist.el:1.4  Sun Oct 16 21:21:05 2005
--- emacs/lisp/savehist.el      Tue Oct 18 16:13:18 2005
***************
*** 173,179 ****
      ;; executes in under 5 ms on my system.
      (unless savehist-timer
        (setq savehist-timer
!           (if (fboundp 'start-itimer)
                (start-itimer
                 "savehist" 'savehist-autosave savehist-autosave-interval
                 savehist-autosave-interval)
--- 173,179 ----
      ;; executes in under 5 ms on my system.
      (unless savehist-timer
        (setq savehist-timer
!           (if (featurep 'xemacs)
                (start-itimer
                 "savehist" 'savehist-autosave savehist-autosave-interval
                 savehist-autosave-interval)
***************
*** 234,241 ****
--- 234,243 ----
    (cond
     ((listp value)
      (when (and savehist-length (> (length value) savehist-length))
+       ;; This should be: (setq value (subseq value 0 savehist-length))
        (setq value (copy-sequence value))
        (setcdr (nthcdr savehist-length value) nil))
+     ;; And this should be (remove-if-not #'savehist-printable value)
      (delq nil (mapcar (lambda (x) (if (savehist-printable x) x)) value)))
     ((savehist-printable value) value)
     (t nil)))