# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1129651998 0
# Node ID 3b427dc36c6e6ce548baac627efdc3074f3323dc
# Parent  a9aaea202c65f255373a028e19b9b745852075bb
(savehist-load): Revert to checking XEmacs.

diff -r a9aaea202c65 -r 3b427dc36c6e lisp/savehist.el
--- 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)))