[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/comint.el,v
From: |
John-David T. Smith |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/comint.el,v |
Date: |
Wed, 31 Jan 2007 05:51:20 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: John-David T. Smith <jdsmith> 07/01/31 05:51:20
Index: comint.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/comint.el,v
retrieving revision 1.355
retrieving revision 1.356
diff -u -b -r1.355 -r1.356
--- comint.el 29 Jan 2007 02:31:22 -0000 1.355
+++ comint.el 31 Jan 2007 05:51:20 -0000 1.356
@@ -653,7 +653,7 @@
(make-local-variable 'comint-accum-marker)
(setq comint-accum-marker (make-marker))
(make-local-variable 'font-lock-defaults)
- (setq font-lock-defaults '(nil))
+ (setq font-lock-defaults '(nil t))
(add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
;; This behavior is not useful in comint buffers, and is annoying
(set (make-local-variable 'next-line-add-newlines) nil))
@@ -1920,6 +1920,17 @@
(goto-char (process-mark process))
(insert input))))
+(defun comint-copy-old-input ()
+ "Insert after prompt old input at point as new input to be edited.
+Calls `comint-get-old-input' to get old input."
+ (interactive)
+ (let ((input (funcall comint-get-old-input))
+ (process (get-buffer-process (current-buffer))))
+ (if (not process)
+ (error "Current buffer has no process")
+ (goto-char (process-mark process))
+ (insert input))))
+
(defun comint-skip-prompt ()
"Skip past the text matching regexp `comint-prompt-regexp'.
If this takes us past the end of the current line, don't skip at all."