Mercurial > emacs
comparison lisp/comint.el @ 6148:ec063baec3e0
(full-copy-sparse-keymap): Function deleted.
(comint-mode-map): Rename `input' to `inout' as menu key.
Don't put `output' in menu-bar-final-items.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 16:45:12 +0000 |
| parents | c04ea0b0dbc0 |
| children | 385d5fe1c95c |
comparison
equal
deleted
inserted
replaced
| 6147:f89879182407 | 6148:ec063baec3e0 |
|---|---|
| 442 (define-key comint-mode-map [menu-bar completion complete-file] | 442 (define-key comint-mode-map [menu-bar completion complete-file] |
| 443 '("Complete File Name" . comint-dynamic-complete-filename)) | 443 '("Complete File Name" . comint-dynamic-complete-filename)) |
| 444 (define-key comint-mode-map [menu-bar completion complete] | 444 (define-key comint-mode-map [menu-bar completion complete] |
| 445 '("Complete Before Point" . comint-dynamic-complete)) | 445 '("Complete Before Point" . comint-dynamic-complete)) |
| 446 ;; Input history: | 446 ;; Input history: |
| 447 (define-key comint-mode-map [menu-bar input] | 447 (define-key comint-mode-map [menu-bar inout] |
| 448 (cons "In/Out" (make-sparse-keymap "In/Out"))) | 448 (cons "In/Out" (make-sparse-keymap "In/Out"))) |
| 449 (define-key comint-mode-map [menu-bar input kill-output] | 449 (define-key comint-mode-map [menu-bar inout kill-output] |
| 450 '("Kill Current Output Group" . comint-kill-output)) | 450 '("Kill Current Output Group" . comint-kill-output)) |
| 451 (define-key comint-mode-map [menu-bar input next-prompt] | 451 (define-key comint-mode-map [menu-bar inout next-prompt] |
| 452 '("Forward Output Group" . comint-next-prompt)) | 452 '("Forward Output Group" . comint-next-prompt)) |
| 453 (define-key comint-mode-map [menu-bar input previous-prompt] | 453 (define-key comint-mode-map [menu-bar inout previous-prompt] |
| 454 '("Backward Output Group" . comint-previous-prompt)) | 454 '("Backward Output Group" . comint-previous-prompt)) |
| 455 (define-key comint-mode-map [menu-bar input show-maximum-output] | 455 (define-key comint-mode-map [menu-bar inout show-maximum-output] |
| 456 '("Show Maximum Output" . comint-show-maximum-output)) | 456 '("Show Maximum Output" . comint-show-maximum-output)) |
| 457 (define-key comint-mode-map [menu-bar input show-output] | 457 (define-key comint-mode-map [menu-bar inout show-output] |
| 458 '("Show Current Output Group" . comint-show-output)) | 458 '("Show Current Output Group" . comint-show-output)) |
| 459 (define-key comint-mode-map [menu-bar input kill-input] | 459 (define-key comint-mode-map [menu-bar inout kill-input] |
| 460 '("Kill Current Input" . comint-kill-input)) | 460 '("Kill Current Input" . comint-kill-input)) |
| 461 (define-key comint-mode-map [menu-bar input copy-input] | 461 (define-key comint-mode-map [menu-bar inout copy-input] |
| 462 '("Copy Old Input" . comint-copy-old-input)) | 462 '("Copy Old Input" . comint-copy-old-input)) |
| 463 (define-key comint-mode-map [menu-bar input forward-matching-history] | 463 (define-key comint-mode-map [menu-bar inout forward-matching-history] |
| 464 '("Forward Matching Input..." . comint-forward-matching-input)) | 464 '("Forward Matching Input..." . comint-forward-matching-input)) |
| 465 (define-key comint-mode-map [menu-bar input backward-matching-history] | 465 (define-key comint-mode-map [menu-bar inout backward-matching-history] |
| 466 '("Backward Matching Input..." . comint-backward-matching-input)) | 466 '("Backward Matching Input..." . comint-backward-matching-input)) |
| 467 (define-key comint-mode-map [menu-bar input next-matching-history] | 467 (define-key comint-mode-map [menu-bar inout next-matching-history] |
| 468 '("Next Matching Input..." . comint-next-matching-input)) | 468 '("Next Matching Input..." . comint-next-matching-input)) |
| 469 (define-key comint-mode-map [menu-bar input previous-matching-history] | 469 (define-key comint-mode-map [menu-bar inout previous-matching-history] |
| 470 '("Previous Matching Input..." . comint-previous-matching-input)) | 470 '("Previous Matching Input..." . comint-previous-matching-input)) |
| 471 (define-key comint-mode-map [menu-bar input next-matching-history-from-input] | 471 (define-key comint-mode-map [menu-bar inout next-matching-history-from-input] |
| 472 '("Next Matching Current Input" . comint-next-matching-input-from-input)) | 472 '("Next Matching Current Input" . comint-next-matching-input-from-input)) |
| 473 (define-key comint-mode-map [menu-bar input previous-matching-history-from-input] | 473 (define-key comint-mode-map [menu-bar inout previous-matching-history-from-input] |
| 474 '("Previous Matching Current Input" . comint-previous-matching-input-from-input)) | 474 '("Previous Matching Current Input" . comint-previous-matching-input-from-input)) |
| 475 (define-key comint-mode-map [menu-bar input next-history] | 475 (define-key comint-mode-map [menu-bar inout next-history] |
| 476 '("Next Input" . comint-next-input)) | 476 '("Next Input" . comint-next-input)) |
| 477 (define-key comint-mode-map [menu-bar input previous-history] | 477 (define-key comint-mode-map [menu-bar inout previous-history] |
| 478 '("Previous Input" . comint-previous-input)) | 478 '("Previous Input" . comint-previous-input)) |
| 479 (define-key comint-mode-map [menu-bar input list-history] | 479 (define-key comint-mode-map [menu-bar inout list-history] |
| 480 '("List Input History" . comint-dynamic-list-input-ring)) | 480 '("List Input History" . comint-dynamic-list-input-ring)) |
| 481 (define-key comint-mode-map [menu-bar input expand-history] | 481 (define-key comint-mode-map [menu-bar inout expand-history] |
| 482 '("Expand History Before Point" . comint-replace-by-expanded-history)) | 482 '("Expand History Before Point" . comint-replace-by-expanded-history)) |
| 483 ;; Signals | 483 ;; Signals |
| 484 (define-key comint-mode-map [menu-bar signals] | 484 (define-key comint-mode-map [menu-bar signals] |
| 485 (cons "Signals" (make-sparse-keymap "Signals"))) | 485 (cons "Signals" (make-sparse-keymap "Signals"))) |
| 486 (define-key comint-mode-map [menu-bar signals eof] | 486 (define-key comint-mode-map [menu-bar signals eof] |
| 494 (define-key comint-mode-map [menu-bar signals stop] | 494 (define-key comint-mode-map [menu-bar signals stop] |
| 495 '("STOP" . comint-stop-subjob)) | 495 '("STOP" . comint-stop-subjob)) |
| 496 (define-key comint-mode-map [menu-bar signals break] | 496 (define-key comint-mode-map [menu-bar signals break] |
| 497 '("BREAK" . comint-interrupt-subjob)) | 497 '("BREAK" . comint-interrupt-subjob)) |
| 498 ;; Put them in the menu bar: | 498 ;; Put them in the menu bar: |
| 499 (setq menu-bar-final-items (append '(completion input output signals) | 499 (setq menu-bar-final-items (append '(completion inout signals) |
| 500 menu-bar-final-items)) | 500 menu-bar-final-items)) |
| 501 ) | 501 ) |
| 502 | |
| 503 | |
| 504 ;;; This function is used to make a full copy of the comint mode map, | |
| 505 ;;; so that client modes won't interfere with each other. This function | |
| 506 ;;; isn't necessary in emacs 18.5x, but we keep it around for 18.4x versions. | |
| 507 (defun full-copy-sparse-keymap (km) | |
| 508 "Recursively copy the sparse keymap KM." | |
| 509 (cond ((consp km) | |
| 510 (cons (full-copy-sparse-keymap (car km)) | |
| 511 (full-copy-sparse-keymap (cdr km)))) | |
| 512 (t km))) | |
| 513 | 502 |
| 514 (defun comint-check-proc (buffer) | 503 (defun comint-check-proc (buffer) |
| 515 "Return t if there is a living process associated w/buffer BUFFER. | 504 "Return t if there is a living process associated w/buffer BUFFER. |
| 516 Living means the status is `run' or `stop'. | 505 Living means the status is `run' or `stop'. |
| 517 BUFFER can be either a buffer or the name of one." | 506 BUFFER can be either a buffer or the name of one." |