;; Author: Hrvoje Niksic <firstname.lastname@example.org>
;; This file is part of GNU Emacs.
;; Mule. XEmacs prir to 21.5 had UTF-8 provided by an external
;; package which may not be loaded, which is why we check for version.
(defvar savehist-coding-system (if (and (featurep 'xemacs)
- (< emacs-major-version 21) (< emacs-minor-version 5))
+ (<= emacs-major-version 21)
+ (< emacs-minor-version 5))
"The coding system savehist uses for saving the minibuffer history.
Changing this value while Emacs is running is supported, but considered
(defun savehist-minibuffer-hook ()
- (add-to-list 'savehist-minibuffer-history-variables
+ ;; XEmacs sets minibuffer-history-variable to t to mean "no history
+ (unless (eq minibuffer-history-variable t)
+ (add-to-list 'savehist-minibuffer-history-variables