diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-07-29 20:30:11 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-07-29 20:30:11 +0000 |
| commit | b909e366c00ab612a1d3dbfb14e9d9092db4d508 (patch) | |
| tree | 1c599aeef9a561bb04cba8e997065f578ec198f4 /lisp | |
| parent | 631f20823c7f25c6ac6cdeed2f2f80ab28bb4fb5 (diff) | |
| download | emacs-b909e366c00ab612a1d3dbfb14e9d9092db4d508.tar.gz | |
(comint-read-noecho): Use `clear-string' instead of `fillarray'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/comint.el | 8 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index df3f6ec04e0..d8670af23da 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-07-29 Jesper Harder <harder@ifa.au.dk> (tiny change) + + * comint.el (comint-read-noecho): Use `clear-string' instead of + `fillarray'. + 2003-07-29 Thomas W Murphy <twm@andrew.cmu.edu> (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 <Takaaki.Ota@am.sony.com> (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 <rost@math.ohio-state.edu> diff --git a/lisp/comint.el b/lisp/comint.el index 7834c091cbb..0fa6c36330c 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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) |