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." |