aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/comint.el
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-15 12:57:51 +0000
committerKaroly Lorentey2005-06-15 12:57:51 +0000
commitef85512e51f043d73788f00a2aed13cccde0682c (patch)
treefc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/comint.el
parent8736257554f49445f7b4402ac7a9436b38ce6452 (diff)
parentef88a9999004e6c26148c8d280d6a41f623d7249 (diff)
downloademacs-ef85512e51f043d73788f00a2aed13cccde0682c.tar.gz
emacs-ef85512e51f043d73788f00a2aed13cccde0682c.zip
Merged from miles@gnu.org--gnu-2005 (patch 80-82, 350-422)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-350 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-351 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-352 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-353 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-354 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-355 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-356 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-357 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-358 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-359 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-360 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-361 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-362 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-363 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-364 Remove "-face" suffix from widget faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-365 Remove "-face" suffix from custom faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-366 Remove "-face" suffix from change-log faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367 Remove "-face" suffix from compilation faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-368 Remove "-face" suffix from diff-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-369 lisp/longlines.el (longlines-visible-face): Face removed * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-370 Remove "-face" suffix from woman faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-371 Remove "-face" suffix from whitespace-highlight face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-372 Remove "-face" suffix from ruler-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373 Remove "-face" suffix from show-paren faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374 Remove "-face" suffix from log-view faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-375 Remove "-face" suffix from smerge faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376 Remove "-face" suffix from show-tabs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-377 Remove "-face" suffix from highlight-changes faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-378 Remove "-face" suffix from and downcase info faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-379 Remove "-face" suffix from pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380 Update uses of renamed pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-381 Tweak ChangeLog * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-382 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-384 Remove "-face" suffix from compare-windows face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-385 Remove "-face" suffix from calendar faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386 Remove "-face" suffix from diary-button face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-387 Remove "-face" suffix from testcover faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-388 Remove "-face" suffix from viper faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-389 Remove "-face" suffix from org faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390 Remove "-face" suffix from sgml-namespace face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-392 Remove "-face" suffix from tex-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393 Remove "-face" suffix from texinfo-heading face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-394 Remove "-face" suffix from flyspell faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-395 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-396 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397 Remove "-face" suffix from gomoku faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-398 Remove "-face" suffix from mpuz faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-399 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-400 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-401 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-402 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-403 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-404 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-405 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-406 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-407 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-408 Remove "-face" suffix from Buffer-menu-buffer face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-409 Remove "-face" suffix from antlr-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410 Remove "-face" suffix from ebrowse faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-411 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412 Remove "-face" suffix from flymake faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-413 Remove "-face" suffix from idlwave faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-414 Remove "-face" suffix from sh-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415 Remove "-face" suffix from vhdl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-416 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417 Remove "-face" suffix from which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418 Remove "-face" suffix from cperl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419 Remove "-face" suffix from ld-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-420 Fix cperl-mode font-lock problem * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-421 Tweak which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-422 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-80 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-81 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-82 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-350
Diffstat (limited to 'lisp/comint.el')
-rw-r--r--lisp/comint.el20
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index 37550b7b6d9..14913c7ef11 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -423,7 +423,7 @@ field boundaries in a natural way)."
423(make-obsolete-variable 'comint-use-prompt-regexp-instead-of-fields 423(make-obsolete-variable 'comint-use-prompt-regexp-instead-of-fields
424 'comint-use-prompt-regexp "22.1") 424 'comint-use-prompt-regexp "22.1")
425 425
426(defcustom comint-mode-hook '(turn-on-font-lock) 426(defcustom comint-mode-hook nil
427 "Hook run upon entry to `comint-mode'. 427 "Hook run upon entry to `comint-mode'.
428This is run before the process is cranked up." 428This is run before the process is cranked up."
429 :type 'hook 429 :type 'hook
@@ -583,7 +583,7 @@ Return not at end copies rest of line to end and sends it.
583Setting variable `comint-eol-on-send' means jump to the end of the line 583Setting variable `comint-eol-on-send' means jump to the end of the line
584before submitting new input. 584before submitting new input.
585 585
586This mode is customised to create major modes such as Inferior Lisp 586This mode is customized to create major modes such as Inferior Lisp
587mode, Shell mode, etc. This can be done by setting the hooks 587mode, Shell mode, etc. This can be done by setting the hooks
588`comint-input-filter-functions', `comint-input-filter', `comint-input-sender' 588`comint-input-filter-functions', `comint-input-filter', `comint-input-sender'
589and `comint-get-old-input' to appropriate functions, and the variable 589and `comint-get-old-input' to appropriate functions, and the variable
@@ -654,7 +654,7 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
654 (set (make-local-variable 'next-line-add-newlines) nil)) 654 (set (make-local-variable 'next-line-add-newlines) nil))
655 655
656(defun comint-check-proc (buffer) 656(defun comint-check-proc (buffer)
657 "Return t if there is a living process associated w/buffer BUFFER. 657 "Return non-nil if there is a living process associated w/buffer BUFFER.
658Living means the status is `open', `run', or `stop'. 658Living means the status is `open', `run', or `stop'.
659BUFFER can be either a buffer or the name of one." 659BUFFER can be either a buffer or the name of one."
660 (let ((proc (get-buffer-process buffer))) 660 (let ((proc (get-buffer-process buffer)))
@@ -667,7 +667,7 @@ If BUFFER is nil, it defaults to NAME surrounded by `*'s.
667PROGRAM should be either a string denoting an executable program to create 667PROGRAM should be either a string denoting an executable program to create
668via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP 668via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP
669connection to be opened via `open-network-stream'. If there is already a 669connection to be opened via `open-network-stream'. If there is already a
670running process in that buffer, it is not restarted. Optional third arg 670running process in that buffer, it is not restarted. Optional fourth arg
671STARTFILE is the name of a file to send the contents of to the process. 671STARTFILE is the name of a file to send the contents of to the process.
672 672
673If PROGRAM is a string, any more args are arguments to PROGRAM." 673If PROGRAM is a string, any more args are arguments to PROGRAM."
@@ -1547,8 +1547,12 @@ Similarly for Soar, Scheme, etc."
1547 nil comint-last-input-start comint-last-input-end 1547 nil comint-last-input-start comint-last-input-end
1548 nil comint-last-input-end 1548 nil comint-last-input-end
1549 (+ comint-last-input-end echo-len)))) 1549 (+ comint-last-input-end echo-len))))
1550 (delete-region comint-last-input-end 1550 ;; Certain parts of the text to be deleted may have
1551 (+ comint-last-input-end echo-len))))) 1551 ;; been mistaken for prompts. We have to prevent
1552 ;; problems when `comint-prompt-read-only' is non-nil.
1553 (let ((inhibit-read-only t))
1554 (delete-region comint-last-input-end
1555 (+ comint-last-input-end echo-len))))))
1552 1556
1553 ;; This used to call comint-output-filter-functions, 1557 ;; This used to call comint-output-filter-functions,
1554 ;; but that scrolled the buffer in undesirable ways. 1558 ;; but that scrolled the buffer in undesirable ways.
@@ -1579,7 +1583,7 @@ See `comint-carriage-motion' for details.")
1579 1583
1580(defun comint-snapshot-last-prompt () 1584(defun comint-snapshot-last-prompt ()
1581 "`snapshot' any current `comint-last-prompt-overlay'. 1585 "`snapshot' any current `comint-last-prompt-overlay'.
1582freeze its attributes in place, even when more input comes a long 1586Freeze its attributes in place, even when more input comes along
1583and moves the prompt overlay." 1587and moves the prompt overlay."
1584 (when comint-last-prompt-overlay 1588 (when comint-last-prompt-overlay
1585 (let ((inhibit-read-only t) 1589 (let ((inhibit-read-only t)
@@ -2385,7 +2389,7 @@ updated using `comint-update-fence', if necessary."
2385 "Compute the defaults for `load-file' and `compile-file' commands. 2389 "Compute the defaults for `load-file' and `compile-file' commands.
2386 2390
2387PREVIOUS-DIR/FILE is a pair (directory . filename) from the last 2391PREVIOUS-DIR/FILE is a pair (directory . filename) from the last
2388source-file processing command. nil if there hasn't been one yet. 2392source-file processing command, or nil if there hasn't been one yet.
2389SOURCE-MODES is a list used to determine what buffers contain source 2393SOURCE-MODES is a list used to determine what buffers contain source
2390files: if the major mode of the buffer is in SOURCE-MODES, it's source. 2394files: if the major mode of the buffer is in SOURCE-MODES, it's source.
2391Typically, (lisp-mode) or (scheme-mode). 2395Typically, (lisp-mode) or (scheme-mode).