(savehist-save): Obey savehist-ignored-variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56125595bd79028056d240b2614bb8a360c3947f..d456bedce15616aab4862d83a9afbd1150132fe1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-10-30  Richard Stallman  <rms@gnu.org>
+
+       * savehist.el (savehist-save): Obey savehist-ignored-variables.
+
 2007-10-30  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-ui.el (gdb-delete-out-of-scope): New option.

diff --git a/lisp/savehist.el b/lisp/savehist.el
index b28bd4769334fe32cb2d38bae6835b4949a0eedf..355762d9f3eb79a99d00e94c71a7332204c6113f 100644 (file)
--- a/lisp/savehist.el
+++ b/lisp/savehist.el
@@ -308,7 +308,8 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
               (current-buffer))
        (insert ?\n)
        (dolist (symbol savehist-minibuffer-history-variables)
-         (when (boundp symbol)
+         (when (and (boundp symbol)
+                    (not (memq symbol savehist-ignored-variables)))
            (let ((value (savehist-trim-history (symbol-value symbol)))
                  excess-space)
              (when value               ; Don't save empty histories.