[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/savehist.el
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/savehist.el |
Date: |
Mon, 03 Apr 2006 17:32:29 +0000 |
Index: emacs/lisp/savehist.el
diff -u emacs/lisp/savehist.el:1.16 emacs/lisp/savehist.el:1.17
--- emacs/lisp/savehist.el:1.16 Mon Feb 6 14:33:35 2006
+++ emacs/lisp/savehist.el Mon Apr 3 17:32:28 2006
@@ -56,6 +56,7 @@
(defgroup savehist nil
"Save minibuffer history."
+ :version "22.1"
:group 'minibuffer)
;;;###autoload
@@ -91,6 +92,11 @@
:type '(repeat variable)
:group 'savehist)
+(defcustom savehist-ignored-variables nil ;; '(command-history)
+ "*List of additional variables not to save."
+ :type '(repeat variable)
+ :group 'savehist)
+
(defcustom savehist-file
(cond
;; Backward compatibility with previous versions of savehist.
@@ -371,9 +377,12 @@
(error nil))))))
(defun savehist-minibuffer-hook ()
- ;; XEmacs sets minibuffer-history-variable to t to mean "no history
- ;; is being recorded".
- (unless (eq minibuffer-history-variable t)
+ (when (memq minibuffer-history-variable savehist-ignored-variables)
+ (debug nil minibuffer-history-variable))
+ (unless (or (eq minibuffer-history-variable t)
+ ;; XEmacs sets minibuffer-history-variable to t to mean "no
+ ;; history is being recorded".
+ (memq minibuffer-history-variable savehist-ignored-variables))
(add-to-list 'savehist-minibuffer-history-variables
minibuffer-history-variable)))
- [Emacs-diffs] Changes to emacs/lisp/savehist.el,
Reiner Steib <=