mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Add new interactive command comint-clear-buffer

Browse Source 
The command clears the entire comint buffer. It's bound to C-c M-o.
This commit is contained in:
Bozhidar Batsov 2015-02-22 08:01:08 +02:00
parent ed7005c0e9
commit eaf9499a7f
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2015-02-24 Bozhidar Batsov <bozhidar@batsov.com>
* comint.el (comint-clear-buffer): New command.
(comint-mode-map): Bind `comint-clear-buffer' to 'C-c M-o'.
2015-02-23 Pete Williamson <petewil0@googlemail.com> (tiny change)
Use ${EXEEXT} more uniformly in makefiles

6
lisp/comint.el
View File

@ -472,6 +472,7 @@ executed once when the buffer is created."
(define-key map "\C-c\C-\\" 'comint-quit-subjob)
(define-key map "\C-c\C-m" 'comint-copy-old-input)
(define-key map "\C-c\C-o" 'comint-delete-output)
(defile-key map "\C-c\M-o" 'comint-clear-buffer)
(define-key map "\C-c\C-r" 'comint-show-output)
(define-key map "\C-c\C-e" 'comint-show-maximum-output)
(define-key map "\C-c\C-l" 'comint-dynamic-list-input-ring)
@ -2428,6 +2429,11 @@ Sets mark to the value of point when this command is run."
(goto-char (field-beginning pos))
(set-window-start (selected-window) (point))))))
(defun comint-clear-buffer ()
"Clear the comint buffer."
(interactive)
(let ((comint-buffer-maximum-size 0))
(comint-truncate-buffer)))
(defun comint-interrupt-subjob ()
"Interrupt the current subjob.