savehist-minibuffer-history-variables sometimes contains buffer objects, which are a bit hard to prin1 ;-)<br><br>Robert<br><br>2007-08-30&nbsp; Robert Pluim&nbsp; &lt;<a href="mailto:rpluim@gmail.com">rpluim@gmail.com</a>&gt;<br><br>
&nbsp;&nbsp;&nbsp; * savehist.el (savehist-save): don&#39;t try to print unprintable values<br><br><br>diff -u c:\Program Files\XEmacs\xemacs-packages\lisp\edit-utils\savehist.el.~1~ c:\Program Files\XEmacs\xemacs-packages\lisp\edit-utils\savehist.el
<br>--- c:\Program Files\XEmacs\xemacs-packages\lisp\edit-utils\savehist.el.~1~&nbsp;&nbsp; &nbsp;2007-08-30 10:19:43.187500000 +0200<br>+++ c:\Program Files\XEmacs\xemacs-packages\lisp\edit-utils\savehist.el&nbsp;&nbsp; &nbsp;2007-08-30 10:19:43.187500000
 +0200<br>@@ -306,9 +306,10 @@<br>&nbsp;&nbsp;&nbsp; &nbsp;(dolist (symbol savehist-minibuffer-history-variables)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; (when (boundp symbol)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; (let ((value (savehist-trim-history (symbol-value symbol))))<br>-&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (when value&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;; don&#39;t save empty histories
<br>-&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;(prin1 `(setq ,symbol &#39;,value) (current-buffer))<br>-&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;(insert ?\n))))))<br>+&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (and value&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;; don&#39;t save empty histories<br>+&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (savehist-printable value)<br>+&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (prin1 `(setq ,symbol &#39;,value) (current-buffer))
<br>+&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (insert ?\n))))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; Save the additional variables.<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dolist (symbol savehist-additional-variables)<br>&nbsp;&nbsp;&nbsp; &nbsp;(when (boundp symbol)<br><br>