Lines Matching +defs:end +defs:of +defs:output
11 ;; This file is part of GNU Emacs.
14 ;; it under the terms of the GNU General Public License as published by
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;; You should have received a copy of the GNU General Public License
32 ;; modes on top of comint mode -- e.g., Lisp, shell, scheme, T, soar, ....
34 ;; and a common set of bindings, which makes them easier to use (and
56 ;; instead of shell-mode, see the notes at the end of this file.
69 ;; M-C-l comint-show-output Show last batch of process output
71 ;; C-d comint-delchar-or-maybe-eof Delete char unless at end of buff
79 ;; C-c C-o comint-delete-output Delete last batch of process output
80 ;; C-c C-r comint-show-output Show last batch of process output
94 ;; comint-show-maximum-output Show as much output as possible.
117 ;; comint-last-input-end marker For comint-delete-output command
130 ;; comint-output-filter-functions hook function modes.
137 ;; comint-move-point-for-output symbol ...
138 ;; comint-scroll-show-maximum-output boolean ...
183 override the read-only-ness of comint prompts is to call
185 narrowing in effect. This way you will be certain that none of
202 "List of characters to recognize as separate arguments in input.
214 This mirrors the optional behavior of tcsh (its autoexpand and histlist).
241 This mirrors the optional behavior of bash.
248 "*If non-nil, name of the file to read/write input history.
270 (defcustom comint-move-point-for-output nil
271 "*Controls whether interpreter output moves point to the end of the output.
272 If nil, then output never moves point to the output.
273 (If the output occurs at point, it is inserted before point.)
280 See the variable `comint-scroll-show-maximum-output' and the function
290 (defvaralias 'comint-scroll-to-bottom-on-output 'comint-move-point-for-output)
292 (defcustom comint-scroll-show-maximum-output t
293 "*Controls how to scroll due to interpreter output.
294 This variable applies when point is at the end of the buffer
296 `comint-move-point-for-output' said to move it there)
297 and output from the subprocess is inserted.
299 Non-nil means scroll so that the window is full of text
300 and point is on the last line. A value of nil
303 See also the variable `comint-move-point-for-output' and the function
312 the function `comint-truncate-buffer' is on `comint-output-filter-functions'."
317 "Size of input history ring.")
327 If so, delete one copy of the input so that only one copy eventually
334 ;; AIX puts the name of the person being su'd to in front of the prompt.
338 ;; Some implementations of passwd use "Password (again)" as the 2nd prompt.
357 text matching `comint-prompt-regexp', depending on the value of
362 "List of functions called to perform completion.
379 (defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)
380 "Functions to call after output is inserted into the buffer.
384 `comint-last-output-start' and the buffer's `process-mark', if other filter
404 "*Non-nil means go to the end of the line before sending input.
410 ;; entirely, searching for uses of this variable will help to identify
414 If nil, then program output and user-input are given different `field'
416 particular, common movement commands such as `beginning-of-line'
423 (define-obsolete-variable-alias 'comint-use-prompt-regexp-instead-of-fields
452 (define-key map "\e\C-l" 'comint-show-output)
464 (define-key map "\C-c\C-o" 'comint-delete-output)
465 (define-key map "\C-c\C-r" 'comint-show-output)
466 (define-key map "\C-c\C-e" 'comint-show-maximum-output)
471 (define-key map "\C-c\C-s" 'comint-write-output)
490 (define-key map [menu-bar inout delete-output]
491 '("Delete Current Output Group" . comint-delete-output))
492 (define-key map [menu-bar inout append-output-to-file]
493 '("Append Current Output Group to File" . comint-append-output-to-file))
494 (define-key map [menu-bar inout write-output]
495 '("Write Current Output Group to File" . comint-write-output))
500 (define-key map [menu-bar inout show-maximum-output]
501 '("Show Maximum Output" . comint-show-maximum-output))
502 (define-key map [menu-bar inout show-output]
503 '("Show Current Output Group" . comint-show-output))
549 (defvar comint-last-input-end nil)
550 (defvar comint-last-output-start nil)
552 "Index of last matched history element.")
572 (put 'comint-output-filter-functions 'permanent-local t)
575 (put 'comint-move-point-for-output 'permanent-local t)
576 (put 'comint-scroll-show-maximum-output 'permanent-local t)
584 Return at end of buffer sends line as input.
585 Return not at end copies rest of line to end and sends it.
586 Setting variable `comint-eol-on-send' means jump to the end of the line
595 An input history is maintained of size `comint-input-ring-size', and
606 Input to, and output from, the subprocess can cause the window to scroll to
607 the end of the buffer. See variables `comint-output-filter-functions',
609 and `comint-move-point-for-output'.
619 (set (make-local-variable 'comint-last-input-end) (point-min-marker))
620 (set (make-local-variable 'comint-last-output-start) (make-marker))
644 (make-local-variable 'comint-move-point-for-output)
645 (make-local-variable 'comint-scroll-show-maximum-output)
666 BUFFER can be either a buffer or the name of one."
675 via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP
678 STARTFILE is the name of a file to send the contents of to the process.
696 The name of the buffer is made by surrounding NAME with `*'s.
698 via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP
701 STARTFILE is the name of a file to send the contents of the process to.
709 The buffer name is made by surrounding the file name of PROGRAM with `*'s.
720 Runs the given COMMAND with SWITCHES with output to STARTFILE.
722 You can use this to cheaply run a series of processes in the same Comint
732 (set-process-filter proc 'comint-output-filter)
735 ;; Jump to the end, and set the process mark.
812 (let ((pos (posn-point (event-end event)))
814 (with-selected-window (posn-window (event-end event))
830 ;; First delete any old unsent input at the end
841 ;; Useful input history functions, courtesy of the Ergo group.
864 The name of the file is given by the variable `comint-input-ring-file-name'.
865 The history ring is of size `comint-input-ring-size', regardless of file size.
901 (let (start end history)
904 (setq end (match-beginning 0)))
906 (setq start (match-end 0))
908 (setq history (buffer-substring start end))
923 The name of the file is given by the variable `comint-input-ring-file-name'.
924 The original contents of the file are lost if `comint-input-ring' is not empty.
958 (let (beg end completion (buffer completion-reference-buffer)
961 (setq end (point) beg (1+ (point))))
963 (setq end (1- (point)) beg (point)))
967 (setq end (or (next-single-property-change end 'mouse-face) (point-max)))
968 (setq completion (buffer-substring beg end))
988 (with-output-to-temp-buffer history-buffer
1008 "Return list of regexp and prefix arg using PROMPT."
1027 ;; arg of zero resets search from beginning, and uses arg of 1
1046 ;; If a search is running, offset by 1 in direction of arg
1049 ;; For a new search, start from beginning or end, as appropriate
1066 (or ;; leaving the "end" of the ring
1180 Expansion is dependent on the value of `comint-input-autoexpand'.
1182 This function depends on the buffer's idea of the input history, which may not
1186 cannot know the interpreter's idea of input line numbers, assuming it has one,
1193 start of the text to scan for history references, rather
1194 than the logical beginning of line.
1204 (beginning-of-line)
1207 ;; yet, at the end of the buffer, has a nil `field' property.
1221 start of the text to scan for history references, rather
1222 than the logical beginning of line."
1224 (let ((toend (- (line-end-position) (point)))
1228 (skip-chars-forward "^!^" (- (line-end-position) toend))
1229 (< (point) (- (line-end-position) toend)))
1242 ;; We cannot know the interpreter's idea of input line numbers.
1243 (goto-char (match-end 0))
1246 ;; Just a number of args from `number' lines backward.
1249 (match-end 1))))))
1254 (match-beginning 2) (match-end 2))
1258 (goto-char (match-end 0))
1261 ;; Just a number of args from the previous input line.
1264 (match-beginning 1) (match-end 1))
1270 ;; protected) string, maybe just a number of args. Phew.
1271 (let* ((mb1 (match-beginning 1)) (me1 (match-end 1))
1272 (mb2 (match-beginning 2)) (me2 (match-end 2))
1280 (goto-char (match-end 0))
1287 (match-beginning 4) (match-end 4))
1292 (let ((old (buffer-substring (match-beginning 1) (match-end 1)))
1293 (new (buffer-substring (match-beginning 2) (match-end 2)))
1315 (defun comint-within-quotes (beg end)
1316 "Return t if the number of quotes between BEG and END is odd.
1318 (let ((countsq (comint-how-many-region "\\(^\\|[^\\\\]\\)\'" beg end))
1319 (countdq (comint-how-many-region "\\(^\\|[^\\\\]\\)\"" beg end)))
1322 (defun comint-how-many-region (regexp beg end)
1323 "Return number of matches for REGEXP from BEG to END."
1328 (while (re-search-forward regexp end t)
1332 (defun comint-args (string begin end)
1340 (if (eq (char-after begin) ?:) (1+ begin) begin) end))
1347 (string-to-number (substring range (match-end 0))))
1352 "Return a list of arguments from ARG.
1356 Characters with non-nil values of the text property `literal' are
1387 Also, a run of one or more of a single character
1395 ;; This seems to fit the syntax of BASH 2.0.
1409 ;; Build a list of all the args until we have as many as we want.
1416 (put-text-property (match-beginning 1) (match-end 1)
1419 ;; It's contiguous, part of the same arg.
1420 (setq pos (match-end 0)
1431 (setq pos (match-end 0))))
1459 After the process output mark, sends all text from the process mark to
1460 point as input to the process. Before the process output mark, calls
1461 value of variable `comint-get-old-input' to retrieve old input, copies
1467 Any history reference may be expanded depending on the value of the variable
1468 `comint-input-autoexpand'. The list of function names contained in the value
1469 of `comint-input-filter-functions' is called on the input before sending it.
1470 The input is entered into the input history ring, if the value of variable
1474 end of line before sending the input.
1478 matching the input, and if so, deletes that part of the output.
1482 The values of `comint-get-old-input', `comint-input-filter-functions', and
1490 field, or the current line, if point is on an output field.
1513 (progn (if comint-eol-on-send (end-of-line))
1547 (end (if no-newline (point) (1- (point))))
1549 (when (> end beg)
1550 (add-text-properties beg end
1554 ;; Give old user input a field property of `input', to
1555 ;; distinguish it from both process output and unsent
1558 ;; and output fields smoother.
1560 beg end
1566 (add-text-properties end (1+ end)
1576 ;; in case we get output amidst sending the input.
1578 (set-marker comint-last-input-end (point))
1587 (let ((echo-len (- comint-last-input-end
1590 (while (and (accept-process-output proc)
1591 (> (+ comint-last-input-end echo-len)
1599 ;; (- (point-max) comint-last-input-end))
1600 nil comint-last-input-end (point-max)))))
1602 (<= (+ comint-last-input-end echo-len)
1606 nil comint-last-input-start comint-last-input-end
1607 nil comint-last-input-end
1608 (+ comint-last-input-end echo-len))))
1609 ;; Certain parts of the text to be deleted may have
1613 (delete-region comint-last-input-end
1614 (+ comint-last-input-end echo-len))
1617 (goto-char comint-last-input-end)
1620 ;; This used to call comint-output-filter-functions,
1622 (run-hook-with-args 'comint-output-filter-functions "")))))
1625 "List of functions to call before inserting Comint output into the buffer.
1640 "If nil, Comint will interpret `carriage control' characters in output.
1655 (overlay-end comint-last-prompt-overlay)
1658 (defun comint-carriage-motion (start end)
1661 Make single carriage returns delete to the beginning of the line.
1668 (when (< (skip-chars-forward "^\b\r" end) (- end start))
1676 ;; are in different output chunks, but this is probably an
1678 ;; written as a unit), and to delay interpretation of a
1681 (while (re-search-forward "\r$" end t)
1685 (while (search-forward "\r" end t)
1689 (while (search-forward "\b" end t)
1692 ;; The purpose of using this filter for comint processes
1693 ;; is to keep comint-last-input-end from moving forward
1694 ;; when output is inserted.
1695 (defun comint-output-filter (process string)
1713 ;; Avoid the overhead of save-excursion, since we just
1721 ;; process mark is outside of the restriction
1726 (set-marker comint-last-output-start (point))
1731 ;; store the value of point in non-selected windows) to
1733 ;; don't _want_ to advance, such as the start-marker of some
1734 ;; of the overlays we create.
1739 ;; using `insert', and making the insertion-type of
1747 ;; comint-last-output-start
1748 (set-marker comint-last-output-start old-point)
1749 ;; comint-last-input-end
1750 (when (and comint-last-input-end
1751 (equal (marker-position comint-last-input-end)
1753 (set-marker comint-last-input-end old-point))
1755 ;; (at the start/end), so we assume that any overlay which
1761 (let ((end (overlay-end over)))
1764 (if (= end (point)) old-point end)))))
1765 ;; Then do overlays that might end at point:
1767 (when (= (overlay-end over) (point))
1777 (comint-carriage-motion comint-last-output-start (point)))
1781 (run-hook-with-args 'comint-output-filter-functions string)
1789 (add-text-properties comint-last-output-start (point)
1791 field output
1795 ;; the most recent output that doesn't end with a newline.
1824 "Go to the end of buffer in all windows showing it.
1828 Depends on the value of `comint-scroll-to-bottom-on-input'.
1852 "Go to the end of buffer in some or all windows showing it.
1854 Depends on the value of `comint-move-point-for-output' and
1855 `comint-scroll-show-maximum-output'.
1857 This function should be in the list `comint-output-filter-functions'."
1861 (scroll comint-move-point-for-output))
1871 ;; Maybe user wants point to jump to end.
1874 ;; If point was at the end, keep it at end.
1875 (and (marker-position comint-last-output-start)
1876 (>= (point) comint-last-output-start))))
1879 ;; ends at the bottom of the window.
1880 (if (and comint-scroll-show-maximum-output
1891 This function could be on `comint-output-filter-functions' or bound to a key."
1896 (beginning-of-line)
1901 "Strip trailing `^M' characters from the current output group.
1902 This function could be on `comint-output-filter-functions' or bound to a key."
1908 (if (interactive-p) comint-last-input-end comint-last-output-start))
1914 (defun comint-show-maximum-output ()
1915 "Put the end of the buffer at the bottom of the window."
1924 current line, if point is on an output field.
1932 (buffer-substring-no-properties (point) (line-end-position)))))
1947 If this takes us past the end of the current line, don't skip at all."
1949 (<= (match-end 0) (line-end-position)))
1950 (goto-char (match-end 0))))
1953 "Return t if point is after the process output marker."
1968 "Return the buffer position of the beginning of the line, after any prompt.
1975 (beginning-of-line)
1978 ;; Use input fields. Note that, unlike the behavior of
1980 ;; return the position of the end of a prompt, even if the point is
1985 (constrain-to-field (line-beginning-position) (line-end-position))))
1988 "Go to the beginning of line, then skip past the prompt, if any.
1995 ;; Unlike `beginning-of-line', forward-line ignores field boundaries
2036 This function could be in the list `comint-output-filter-functions'."
2055 (defun comint-send-region (process start end)
2063 (process-send-region process start end))
2069 (defun comint-delete-output ()
2070 "Delete all output from interpreter since last input.
2080 (delete-region comint-last-input-end pmark)
2082 (setq replacement (concat "*** output flushed ***\n"
2086 (comint-output-filter proc replacement)))
2087 (define-obsolete-function-alias 'comint-kill-output
2088 'comint-delete-output "21.1")
2090 (defun comint-write-output (filename &optional append mustbenew)
2091 "Write output from interpreter since last input to FILENAME.
2092 Any prompt at the end of the output is not written.
2095 is non-nil, the output is appended to the file instead.
2107 "Append output to file: "
2108 "Write output to file: "))
2114 (write-region comint-last-input-end (point) filename
2117 ;; This function exists for the benefit of the menu; from the keyboard,
2118 ;; users can just use `comint-write-output' with a prefix arg.
2119 (defun comint-append-output-to-file (filename)
2120 "Append output from interpreter since last input to FILENAME.
2121 Any prompt at the end of the output is not written."
2122 (interactive "fAppend output to file: ")
2123 (comint-write-output filename t))
2125 (defun comint-show-output ()
2126 "Display start of this batch of interpreter output at top of window.
2127 Sets mark to the value of point when this command is run."
2130 (let ((pos (or (marker-position comint-last-input-end) (point-max))))
2133 (beginning-of-line 0)
2176 WARNING: if there is no current subjob, you can end up suspending
2191 "Skip all pending input, from last stuff output by interpreter to point.
2196 (end-of-line)
2204 "Kill all text from last stuff output by interpreter to point."
2212 Sends an EOF only if point is at the end of the buffer and there is no input."
2237 (pos (save-excursion (end-of-line (if (> n 0) 0 1))
2270 "Move to end of Nth next prompt in the buffer.
2271 If `comint-use-prompt-regexp' is nil, then this means the beginning of
2272 the Nth next `input' field, otherwise, it means the Nth occurrence of
2278 (end-of-line (if (> n 0) 1 0))
2292 ;; Ran off the end of the buffer.
2294 ;; There's always an input field at the end of the
2295 ;; buffer, but it has a `field' property of nil.
2307 "Move to end of Nth previous prompt in the buffer.
2308 If `comint-use-prompt-regexp' is nil, then this means the beginning of
2309 the Nth previous `input' field, otherwise, it means the Nth occurrence of
2324 Spaces are added at beginning and/or end of the inserted string if
2328 from progressively earlier commands (using the value of INDEX specified
2350 ;; Remember the beginning of what we insert, so we can delete it if
2370 "Update read-only status of newline before point.
2375 changes, the read-only status of that newline may need updating.
2378 This function does nothing if point is not at the beginning of a
2379 line, or is at the beginning of the accessible portion of the buffer.
2382 read-only property of `fence', unless it already is read-only.
2384 read-only property, any read-only property of `fence' on the
2395 (remove-list-of-text-properties (1- pt) pt '(read-only)))))))
2401 instead of the trailing one. \(This is meant to make \\[repeat] work well
2404 The read-only status of newlines is updated with `comint-update-fence',
2411 (defun comint-kill-region (beg end &optional yank-handler)
2415 properties at the beginning of a line, with the preceding newline
2416 being read-only to protect the prompt. This is true of the
2419 or out of place prompts. That is, if any part of a prompt is
2421 prompts should stay at the beginning of a line. If this is not
2423 read-only properties intact. The read-only status of newlines is
2427 (let* ((true-beg (min beg end))
2428 (true-end (max beg end))
2433 (end-bolp (progn (goto-char true-end) (bolp)))
2434 (end-lst (get-text-property true-end 'front-sticky))
2435 (end-bad (and (get-text-property true-end 'read-only)
2436 (if (listp end-lst) (memq 'read-only end-lst) t))))
2437 (if (or (and (not beg-bolp) (or beg-bad end-bad))
2438 (and (not end-bolp) end-bad))
2439 (kill-region beg end yank-handler)
2441 (kill-region beg end yank-handler)
2449 ;; commands that process files of source text (e.g. loading or compiling
2482 files: if the major mode of the buffer is in SOURCE-MODES, it's source.
2549 from the last source processing command. SOURCE-MODES is a list of major
2577 ;; to violate the principle-of-least-astonishment, in that it makes
2610 (accept-process-output proc) ; wait for some output
2626 ;; Useful completion functions, courtesy of the Ergo group.
2648 This mirrors the optional behavior of tcsh."
2654 If a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where
2656 This mirrors the optional behavior of tcsh."
2666 This mirrors the optional behavior of tcsh.
2673 "*List of suffixes to be disregarded during file completion.
2674 This mirrors the optional behavior of bash and tcsh.
2690 "String of characters valid in a file name.
2692 regardless of what this variable says.
2697 "List of characters to quote with `\\' when in a file name.
2710 "Return the word of WORD-CHARS at point, or nil if none is found.
2712 inside of a \"[...]\" (see `skip-chars-forward'), plus all non-ASCII characters."
2736 Supports additional environment variable syntax of the command
2737 interpreter (e.g., the percent notation of cmd.exe on NT)."
2745 (substring name (match-beginning 1) (match-end 1)))
2772 (setq i (1+ (match-end 0)))))
2801 it won't change parts of the filename already entered in the buffer; it just
2802 adds completion characters to the end of the filename. A completions listing
2805 Completion is dependent on the value of `comint-completion-addsuffix',
2806 `comint-completion-recexact' and `comint-completion-fignore', and the timing of
2807 completions listing is dependent on the value of `comint-completion-autolist'.
2845 (message "No completions of %s" filename)
2885 removed, and the filename is made absolute instead of relative. For expansion
2903 Returns `shortest' if completed with the shortest of the completion matches.
2914 (message "No completions of %s" stub)
2946 "List in help buffer possible completions of the filename at point."
2959 (message "No completions of %s" filename)
2964 ;; This is bound locally in a *Completions* buffer to the list of
2966 ;; command is repeatedly used without the set of completions changing.
2983 ;; previous completion command with a different set of
2985 ;; of displayed completions is in fact the same as the previously
3003 (with-output-to-temp-buffer "*Completions*"
3032 You can use this to repeat a sequence of input lines."
3056 The process mark separates output, and input already sent,
3066 "Move point to beginning of line (after prompt) or to the process mark.
3067 The first time you use this command, it moves to the beginning of the line
3071 The process mark separates the process output, along with input already sent,
3073 is at the beginning of the current input line; but if you have
3075 the process mark is at the beginning of the accumulated input."
3094 ;; output from currently active comint buffers into another buffer,
3107 ;; its own filter. The filter puts the output into the designated buffer,
3114 ;; of different comint buffers may be simultaneously redirected.
3142 "List of functions to call before inserting redirected process output.
3157 (defvar comint-redirect-output-buffer nil
3158 "The buffer or list of buffers to put output into.")
3162 When the redirection filter function is given output that matches this regexp,
3163 the output is inserted as usual, and redirection is completed.")
3168 and therefore terminates an output redirection is inserted in the
3169 redirection target buffer, along with the preceding output.")
3186 string, and that there ought to be at least one copy of your prompt string
3198 You probably want to set it locally to the output buffer.")
3204 (defun comint-redirect-setup (output-buffer
3208 "Set up for output redirection.
3213 in the output matches FINISHED-REGEXP.
3215 If optional argument ECHO-INPUT is non-nil, output is echoed to the
3219 and does not normally need to be invoked by the end user or programmer."
3225 (make-local-variable 'comint-redirect-output-buffer)
3226 (setq comint-redirect-output-buffer output-buffer)
3258 "Filter function which redirects output from PROCESS to a buffer or buffers.
3259 The variable `comint-redirect-output-buffer' says which buffer(s) to
3260 place output in.
3265 end user."
3269 ;; If we have to echo output, give it to the original filter function
3277 "Comint filter function which redirects Comint output to a buffer or buffers.
3278 The variable `comint-redirect-output-buffer' says which buffer(s) to
3279 place output in.
3283 This function does not need to be invoked by the end user."
3284 (let ((output-buffer-list
3285 (if (listp comint-redirect-output-buffer)
3286 comint-redirect-output-buffer
3287 (list comint-redirect-output-buffer)))
3311 ;; Send output to all registered buffers
3313 (dolist (buf output-buffer-list)
3314 ;; Set this buffer to the output buffer
3316 ;; Go to the end of the buffer
3318 ;; Insert the output
3324 (message "Redirected output to buffer(s) %s"
3325 (mapconcat 'identity output-buffer-list " ")))
3342 (defun comint-redirect-send-command (command output-buffer echo &optional no-display)
3343 "Send COMMAND to process in current buffer, with output to OUTPUT-BUFFER.
3344 With prefix arg ECHO, echo output in process buffer.
3346 If NO-DISPLAY is non-nil, do not show the output buffer."
3351 command output-buffer (current-buffer) echo no-display)
3356 (command output-buffer process echo &optional no-display)
3357 "Send COMMAND to PROCESS, with output to OUTPUT-BUFFER.
3358 With prefix arg, echo output in process buffer.
3360 If NO-DISPLAY is non-nil, do not show the output buffer."
3382 output-buffer
3406 ;; Show the output
3411 (if (listp output-buffer)
3412 (car output-buffer)
3413 output-buffer)))))))
3418 Return a list of expressions in the output which match REGEXP.
3427 Return a list of expressions in the output which match REGEXP.
3429 (let ((output-buffer " *Comint Redirect Work Buffer*")
3432 (set-buffer (get-buffer-create output-buffer))
3435 output-buffer process nil t)
3439 (accept-process-output nil 1))
3440 ;; Collect the output
3441 (set-buffer output-buffer)
3450 (match-end regexp-group))
3471 ;; Most of the work is renaming variables and functions. These are the common
3475 ;; last-input-end comint-last-input-end
3489 ;; kill-output-from-shell comint-delete-output
3490 ;; show-output-from-shell comint-show-output
3514 ;; comint-mode will take care of it. The following example, from shell.el,
3544 ;; You could use comint-dynamic-simple-complete to do the bulk of the