# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1059510489 0
# Node ID 5468f0e299c42b98985e104723a3fb94021a852e
# Parent  c150d4a7aa36ae9a500f4e57566b45d52160d726
(comint-read-noecho): Use `clear-string' instead of `fillarray'.

diff -r c150d4a7aa36 -r 5468f0e299c4 lisp/comint.el
--- a/lisp/comint.el	Tue Jul 29 18:04:15 2003 +0000
+++ b/lisp/comint.el	Tue Jul 29 20:28:09 2003 +0000
@@ -269,7 +269,7 @@
 (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 @@
 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 @@
 	    ((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)