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 |
|
|
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) |
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) |