From ac77b21adbddfd143449ef00be15df52f2ede924 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 22 Jun 2012 13:30:25 -0400 Subject: * lisp/subr.el (read-passwd): Don't use a history at all. * lisp/savehist.el (savehist-save): Remove password saved accidentally because of the above bug. --- lisp/ChangeLog | 6 ++++++ lisp/savehist.el | 7 +++++++ lisp/subr.el | 6 +----- 3 files changed, 14 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4ec842eedc..5c8bcaecfa0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-06-22 Stefan Monnier + + * subr.el (read-passwd): Don't use a history at all. + * savehist.el (savehist-save): Remove password saved accidentally + because of the above bug. + 2012-06-22 Bastien Guerry * files.el (toggle-read-only): Display a message telling whether diff --git a/lisp/savehist.el b/lisp/savehist.el index a65906a1676..6310190b4fe 100644 --- a/lisp/savehist.el +++ b/lisp/savehist.el @@ -278,6 +278,13 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, (print-level nil) (print-readably t) (print-quoted t)) + ;; During the 24.2 development, read-passwd had a bug which resulted in + ;; the passwords being saved by savehist. Trim them, retroactively. + ;; This code can be removed after the 24.2 release. + (dolist (sym savehist-minibuffer-history-variables) + (if (and (symbolp sym) (equal (symbol-name sym) "forget-history")) + (setq savehist-minibuffer-history-variables + (delq sym savehist-minibuffer-history-variables)))) ;; Save the minibuffer histories, along with the value of ;; savehist-minibuffer-history-variables itself. (when savehist-save-minibuffer-history diff --git a/lisp/subr.el b/lisp/subr.el index 5deaf71e78d..7e56fe7c3ee 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2171,11 +2171,7 @@ by doing (clear-string STRING)." (set (make-local-variable 'post-self-insert-hook) nil) (add-hook 'after-change-functions hide-chars-fun nil 'local)) (unwind-protect - (read-string prompt nil - (let ((sym (make-symbol "forget-history"))) - (set sym nil) - sym) - default) + (read-string prompt nil t default) ; t = "no history" (when (buffer-live-p minibuf) (with-current-buffer minibuf ;; Not sure why but it seems that there might be cases where the -- cgit v1.2.1