Commit b909e366 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(comint-read-noecho): Use `clear-string' instead of `fillarray'.

parent 631f2082
2003-07-29 Jesper Harder <> (tiny change)
* comint.el (comint-read-noecho): Use `clear-string' instead of
2003-07-29 Thomas W Murphy <> (tiny change)
* outline.el (outline-mode-hook): Add defvar.
......@@ -6,7 +11,7 @@
* gdb-ui.el (gdb-setup-windows, gdb-restore-windows): Restore
assembler in source window if that is what has been selected.
(menu): Add gdb-restore-windows to menu. Make gdba
(menu): Add gdb-restore-windows to menu. Make gdba
specific menus only visible from gdba.
2003-07-28 Tak Ota <> (tiny change)
......@@ -18,7 +23,7 @@
* progmodes/gud.el (gdb-script-font-lock-keywords):
Put `font-lock-function-name-face' on a symbol which includes
`-' like `hook-run'. Put font-lock-variable-name-face
`-' like `hook-run'. Put font-lock-variable-name-face
on a symbol starting with $.
2003-07-27 Markus Rost <>
......@@ -269,7 +269,7 @@ This variable is buffer-local in all comint buffers."
(defcustom comint-scroll-show-maximum-output t
"*Controls how to scroll due to interpreter output.
This variable applies when point is at the end of the buffer
\(either because it was originally there, or because
\(either because it was originally there, or because
`comint-move-point-for-output' said to move it there)
and output from the subprocess is inserted.
......@@ -1903,7 +1903,7 @@ filter and C-g is pressed, this function returns nil rather than a string).
Note that the keystrokes comprising the text can still be recovered
\(temporarily) with \\[view-lossage]. Some people find this worrysome.
Once the caller uses the password, it can erase the password
by doing (fillarray STRING 0)."
by doing (clear-string STRING)."
(let ((ans "")
(newans nil)
(c 0)
......@@ -1930,11 +1930,11 @@ by doing (fillarray STRING 0)."
((or (= c ?\r) (= c ?\n) (= c ?\e))
(setq done t))
((= c ?\C-u)
(fillarray ans 0)
(clear-string ans)
(setq ans ""))
((and (/= c ?\b) (/= c ?\177))
(setq newans (concat ans (char-to-string c)))
(fillarray ans 0)
(clear-string ans)
(setq ans newans))
((> (length ans) 0)
(aset ans (1- (length ans)) 0)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment