If `savehist-file' is in the old format that doesn't record
the value of `savehist-minibuffer-history-variables', that
value is deducted from the contents of the file."
If `savehist-file' is in the old format that doesn't record
the value of `savehist-minibuffer-history-variables', that
value is deducted from the contents of the file."
(savehist-mode 1)
;; Old versions of savehist distributed with XEmacs didn't save
;; savehist-minibuffer-history-variables. If that variable is nil
(savehist-mode 1)
;; Old versions of savehist distributed with XEmacs didn't save
;; savehist-minibuffer-history-variables. If that variable is nil
;; Collect VAR, i.e. (nth form 1).
(push (nth 1 form) vars))
vars)))))
;; Collect VAR, i.e. (nth form 1).
(push (nth 1 form) vars))
vars)))))
(dolist (sym savehist-minibuffer-history-variables)
(if (and (symbolp sym) (equal (symbol-name sym) "forget-history"))
(setq savehist-minibuffer-history-variables
(dolist (sym savehist-minibuffer-history-variables)
(if (and (symbolp sym) (equal (symbol-name sym) "forget-history"))
(setq savehist-minibuffer-history-variables