diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-10-18 16:13:18 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-10-18 16:13:18 +0000 |
commit | 67f05bf61a50c0b8aef001f43a6c2c2364a9edba (patch) | |
tree | f21deca454e42bf6a364acafefd275c5a44bafe8 /lisp/savehist.el | |
parent | d902d95e82c5d9a0a23deb159cd9ff9925d815ac (diff) | |
download | emacs-67f05bf61a50c0b8aef001f43a6c2c2364a9edba.tar.gz |
(savehist-load): Revert to checking XEmacs.
Diffstat (limited to 'lisp/savehist.el')
-rw-r--r-- | lisp/savehist.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/savehist.el b/lisp/savehist.el index 75a2e61e320..de0f1504ff8 100644 --- a/lisp/savehist.el +++ b/lisp/savehist.el @@ -173,7 +173,7 @@ other time." ;; 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 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, (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))) |