From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 29 Jul 2003 20:30:11 +0000 (+0000)
Subject: (comint-read-noecho): Use `clear-string' instead of `fillarray'.
X-Git-Tag: ttn-vms-21-2-B4~9204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b909e366c00ab612a1d3dbfb14e9d9092db4d508;p=emacs.git

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

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)