[Emacs-diffs] Changes to emacs/lisp/comint.el

[Juanma Barranquero]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.288 emacs/lisp/comint.el:1.289
*** emacs/lisp/comint.el:1.288  Tue Jun  3 07:06:42 2003
--- emacs/lisp/comint.el        Tue Jul 29 16:28:09 2003
***************
*** 269,275 ****
  (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 
  `comint-move-point-for-output' said to move it there)
  and output from the subprocess is inserted.
  
--- 269,275 ----
  (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
  `comint-move-point-for-output' said to move it there)
  and output from the subprocess is inserted.
  
***************
*** 1903,1909 ****
  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)."
    (let ((ans "")
        (newans nil)
        (c 0)
--- 1903,1909 ----
  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 (clear-string STRING)."
    (let ((ans "")
        (newans nil)
        (c 0)
***************
*** 1930,1940 ****
            ((or (= c ?\r) (= c ?\n) (= c ?\e))
             (setq done t))
            ((= c ?\C-u)
!            (fillarray ans 0)
             (setq ans ""))
            ((and (/= c ?\b) (/= c ?\177))
             (setq newans (concat ans (char-to-string c)))
!            (fillarray ans 0)
             (setq ans newans))
            ((> (length ans) 0)
             (aset ans (1- (length ans)) 0)
--- 1930,1940 ----
            ((or (= c ?\r) (= c ?\n) (= c ?\e))
             (setq done t))
            ((= c ?\C-u)
!            (clear-string ans)
             (setq ans ""))
            ((and (/= c ?\b) (/= c ?\177))
             (setq newans (concat ans (char-to-string c)))
!            (clear-string ans)
             (setq ans newans))
            ((> (length ans) 0)
             (aset ans (1- (length ans)) 0)