mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(comint-{next,prev}-prompt, comint-send-eof): New functions.

Browse source 
(comint-mode-map): Bind C-c C-n, C-c C-p, and C-c C-d to those.
Bind C-c C-y to comint-previous-input, for compatibility with v18 shell.el.
This commit is contained in:
Roland McGrath 1993-07-16 20:30:18 +00:00
parent de0748e009
commit 1de80a34eb
1 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/comint.el
View file

@ -279,6 +279,10 @@ Entry to this mode runs the hooks on comint-mode-hook"
; (define-key comint-mode-map "\eP" 'comint-msearch-input)
; (define-key comint-mode-map "\eN" 'comint-psearch-input)
; (define-key comint-mode-map "\C-cR" 'comint-msearch-input-matching)
(define-key comint-mode-map "\C-c\C-n" 'comint-next-prompt)
(define-key comint-mode-map "\C-c\C-p" 'comint-prev-prompt)
(define-key comint-mode-map "\C-c\C-d" 'comint-send-eof)
(define-key comint-mode-map "\C-c\C-y" 'comint-previous-input) ;v18 binding
)
@ -899,8 +903,29 @@ Useful if you accidentally suspend the top-level process."
(process-send-eof)
(delete-char arg)))
(defun comint-send-eof ()
"Send an EOF to the current buffer's process."
(interactive)
(process-send-eof))
(defun comint-next-prompt (n)
"\
Move to end of next prompt in the buffer (with prefix arg, Nth next).
See `comint-prompt-regexp'."
(interactive "p")
(re-search-forward comint-prompt-regexp nil nil n))
(defun comint-prev-prompt (n)
"\
Move to end of previous prompt in the buffer (with prefix arg, Nth previous).
See `comint-prompt-regexp'."
(interactive "p")
(if (= (save-excursion (re-search-backward comint-prompt-regexp nil t)
(match-end 0))
(point))
(setq n (1+ n)))
(re-search-backward comint-prompt-regexp nil nil n)
(goto-char (match-end 0)))
;;; Support for source-file processing commands.
;;;============================================================================