diff options
| author | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
| commit | ef85512e51f043d73788f00a2aed13cccde0682c (patch) | |
| tree | fc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/comint.el | |
| parent | 8736257554f49445f7b4402ac7a9436b38ce6452 (diff) | |
| parent | ef88a9999004e6c26148c8d280d6a41f623d7249 (diff) | |
| download | emacs-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.el | 20 |
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'. |
| 428 | This is run before the process is cranked up." | 428 | This 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. | |||
| 583 | Setting variable `comint-eol-on-send' means jump to the end of the line | 583 | Setting variable `comint-eol-on-send' means jump to the end of the line |
| 584 | before submitting new input. | 584 | before submitting new input. |
| 585 | 585 | ||
| 586 | This mode is customised to create major modes such as Inferior Lisp | 586 | This mode is customized to create major modes such as Inferior Lisp |
| 587 | mode, Shell mode, etc. This can be done by setting the hooks | 587 | mode, 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' |
| 589 | and `comint-get-old-input' to appropriate functions, and the variable | 589 | and `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. |
| 658 | Living means the status is `open', `run', or `stop'. | 658 | Living means the status is `open', `run', or `stop'. |
| 659 | BUFFER can be either a buffer or the name of one." | 659 | BUFFER 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. | |||
| 667 | PROGRAM should be either a string denoting an executable program to create | 667 | PROGRAM should be either a string denoting an executable program to create |
| 668 | via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP | 668 | via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP |
| 669 | connection to be opened via `open-network-stream'. If there is already a | 669 | connection to be opened via `open-network-stream'. If there is already a |
| 670 | running process in that buffer, it is not restarted. Optional third arg | 670 | running process in that buffer, it is not restarted. Optional fourth arg |
| 671 | STARTFILE is the name of a file to send the contents of to the process. | 671 | STARTFILE is the name of a file to send the contents of to the process. |
| 672 | 672 | ||
| 673 | If PROGRAM is a string, any more args are arguments to PROGRAM." | 673 | If 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'. |
| 1582 | freeze its attributes in place, even when more input comes a long | 1586 | Freeze its attributes in place, even when more input comes along |
| 1583 | and moves the prompt overlay." | 1587 | and 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 | ||
| 2387 | PREVIOUS-DIR/FILE is a pair (directory . filename) from the last | 2391 | PREVIOUS-DIR/FILE is a pair (directory . filename) from the last |
| 2388 | source-file processing command. nil if there hasn't been one yet. | 2392 | source-file processing command, or nil if there hasn't been one yet. |
| 2389 | SOURCE-MODES is a list used to determine what buffers contain source | 2393 | SOURCE-MODES is a list used to determine what buffers contain source |
| 2390 | files: if the major mode of the buffer is in SOURCE-MODES, it's source. | 2394 | files: if the major mode of the buffer is in SOURCE-MODES, it's source. |
| 2391 | Typically, (lisp-mode) or (scheme-mode). | 2395 | Typically, (lisp-mode) or (scheme-mode). |