/[emacs]/emacs/lisp/comint.el
ViewVC logotype

Diff of /emacs/lisp/comint.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.288 by rms, Tue Jun 3 11:06:42 2003 UTC revision 1.289 by lektu, Tue Jul 29 20:28:09 2003 UTC
# Line 269  This variable is buffer-local in all com Line 269  This variable is buffer-local in all com
269  (defcustom comint-scroll-show-maximum-output t  (defcustom comint-scroll-show-maximum-output t
270    "*Controls how to scroll due to interpreter output.    "*Controls how to scroll due to interpreter output.
271  This variable applies when point is at the end of the buffer  This variable applies when point is at the end of the buffer
272  \(either because it was originally there, or because  \(either because it was originally there, or because
273  `comint-move-point-for-output' said to move it there)  `comint-move-point-for-output' said to move it there)
274  and output from the subprocess is inserted.  and output from the subprocess is inserted.
275    
# Line 1903  filter and C-g is pressed, this function Line 1903  filter and C-g is pressed, this function
1903  Note that the keystrokes comprising the text can still be recovered  Note that the keystrokes comprising the text can still be recovered
1904  \(temporarily) with \\[view-lossage].  Some people find this worrysome.  \(temporarily) with \\[view-lossage].  Some people find this worrysome.
1905  Once the caller uses the password, it can erase the password  Once the caller uses the password, it can erase the password
1906  by doing (fillarray STRING 0)."  by doing (clear-string STRING)."
1907    (let ((ans "")    (let ((ans "")
1908          (newans nil)          (newans nil)
1909          (c 0)          (c 0)
# Line 1930  by doing (fillarray STRING 0)." Line 1930  by doing (fillarray STRING 0)."
1930              ((or (= c ?\r) (= c ?\n) (= c ?\e))              ((or (= c ?\r) (= c ?\n) (= c ?\e))
1931               (setq done t))               (setq done t))
1932              ((= c ?\C-u)              ((= c ?\C-u)
1933               (fillarray ans 0)               (clear-string ans)
1934               (setq ans ""))               (setq ans ""))
1935              ((and (/= c ?\b) (/= c ?\177))              ((and (/= c ?\b) (/= c ?\177))
1936               (setq newans (concat ans (char-to-string c)))               (setq newans (concat ans (char-to-string c)))
1937               (fillarray ans 0)               (clear-string ans)
1938               (setq ans newans))               (setq ans newans))
1939              ((> (length ans) 0)              ((> (length ans) 0)
1940               (aset ans (1- (length ans)) 0)               (aset ans (1- (length ans)) 0)

Legend:
Removed from v.1.288  
changed lines
  Added in v.1.289

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26