aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/subr.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 6b30371a868..f8c19efc379 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2299,7 +2299,7 @@ some sort of escape sequence, the ambiguity is resolved via `read-key-delay'."
2299If optional CONFIRM is non-nil, read the password twice to make sure. 2299If optional CONFIRM is non-nil, read the password twice to make sure.
2300Optional DEFAULT is a default password to use instead of empty input. 2300Optional DEFAULT is a default password to use instead of empty input.
2301 2301
2302This function echoes `.' for each character that the user types. 2302This function echoes `*' for each character that the user types.
2303You could let-bind `read-hide-char' to another hiding character, though. 2303You could let-bind `read-hide-char' to another hiding character, though.
2304 2304
2305Once the caller uses the password, it can erase the password 2305Once the caller uses the password, it can erase the password
@@ -2325,7 +2325,7 @@ by doing (clear-string STRING)."
2325 beg))) 2325 beg)))
2326 (dotimes (i (- end beg)) 2326 (dotimes (i (- end beg))
2327 (put-text-property (+ i beg) (+ 1 i beg) 2327 (put-text-property (+ i beg) (+ 1 i beg)
2328 'display (string (or read-hide-char ?.)))))) 2328 'display (string (or read-hide-char ?*))))))
2329 minibuf) 2329 minibuf)
2330 (minibuffer-with-setup-hook 2330 (minibuffer-with-setup-hook
2331 (lambda () 2331 (lambda ()
@@ -2340,7 +2340,7 @@ by doing (clear-string STRING)."
2340 (add-hook 'after-change-functions hide-chars-fun nil 'local)) 2340 (add-hook 'after-change-functions hide-chars-fun nil 'local))
2341 (unwind-protect 2341 (unwind-protect
2342 (let ((enable-recursive-minibuffers t) 2342 (let ((enable-recursive-minibuffers t)
2343 (read-hide-char (or read-hide-char ?.))) 2343 (read-hide-char (or read-hide-char ?*)))
2344 (read-string prompt nil t default)) ; t = "no history" 2344 (read-string prompt nil t default)) ; t = "no history"
2345 (when (buffer-live-p minibuf) 2345 (when (buffer-live-p minibuf)
2346 (with-current-buffer minibuf 2346 (with-current-buffer minibuf