Mercurial > emacs
diff lisp/savehist.el @ 66191:3b427dc36c6e
(savehist-load): Revert to checking XEmacs.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 18 Oct 2005 16:13:18 +0000 |
parents | b6299ce0d13f |
children | e52f114d1dc3 |
line wrap: on
line diff
--- a/lisp/savehist.el Tue Oct 18 15:30:53 2005 +0000 +++ b/lisp/savehist.el Tue Oct 18 16:13:18 2005 +0000 @@ -173,7 +173,7 @@ ;; executes in under 5 ms on my system. (unless savehist-timer (setq savehist-timer - (if (fboundp 'start-itimer) + (if (featurep 'xemacs) (start-itimer "savehist" 'savehist-autosave savehist-autosave-interval savehist-autosave-interval) @@ -234,8 +234,10 @@ (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)))