Commit 67f05bf6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(savehist-load): Revert to checking XEmacs.

parent d902d95e
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment