Mercurial > emacs
changeset 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 | a9aaea202c65 |
| children | 16f7998a8424 |
| files | lisp/savehist.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
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)))