diff options
| author | Brian Leung | 2022-11-08 22:03:29 -0800 |
|---|---|---|
| committer | Eli Zaretskii | 2022-11-17 11:34:57 +0200 |
| commit | 84472c3363e4e80ec68e38eb798e8c4c15dc208e (patch) | |
| tree | e496e7a2dc32416190349a686e583f1d322b1b74 | |
| parent | 667857211072a0d80192e49cf9788ccdbfa856c5 (diff) | |
| download | emacs-84472c3363e4e80ec68e38eb798e8c4c15dc208e.tar.gz emacs-84472c3363e4e80ec68e38eb798e8c4c15dc208e.zip | |
comint: Add repeat-map for comint-{next,previous}-prompt
* lisp/comint.el (comint-repeat-map): New keymap. (Bug#59144)
| -rw-r--r-- | lisp/comint.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 07ced8d321a..93b97cb22b4 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -604,6 +604,14 @@ via PTYs.") | |||
| 604 | menu-bar-final-items)) | 604 | menu-bar-final-items)) |
| 605 | map)) | 605 | map)) |
| 606 | 606 | ||
| 607 | (defvar-keymap comint-repeat-map | ||
| 608 | :doc "Keymap to repeat comint key sequences. Used in `repeat-mode'." | ||
| 609 | "C-n" #'comint-next-prompt | ||
| 610 | "C-p" #'comint-previous-prompt) | ||
| 611 | |||
| 612 | (put #'comint-next-prompt 'repeat-map 'comint-repeat-map) | ||
| 613 | (put #'comint-previous-prompt 'repeat-map 'comint-repeat-map) | ||
| 614 | |||
| 607 | ;; Fixme: Is this still relevant? | 615 | ;; Fixme: Is this still relevant? |
| 608 | (defvar comint-ptyp t | 616 | (defvar comint-ptyp t |
| 609 | "Non-nil if communications via pty; false if by pipe. Buffer local. | 617 | "Non-nil if communications via pty; false if by pipe. Buffer local. |