[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112087: * progmodes/compile.el (comp
From: |
Leo Liu |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112087: * progmodes/compile.el (compilation-display-error): New command. |
Date: |
Tue, 19 Mar 2013 08:16:14 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112087
fixes bug: http://debbugs.gnu.org/13992
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Tue 2013-03-19 08:16:14 +0800
message:
* progmodes/compile.el (compilation-display-error): New command.
(compilation-mode-map, compilation-minor-mode-map): Bind it to
C-o.
modified:
lisp/ChangeLog
lisp/progmodes/compile.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-03-18 19:44:15 +0000
+++ b/lisp/ChangeLog 2013-03-19 00:16:14 +0000
@@ -1,3 +1,9 @@
+2013-03-19 Leo Liu <address@hidden>
+
+ * progmodes/compile.el (compilation-display-error): New command.
+ (compilation-mode-map, compilation-minor-mode-map): Bind it to
+ C-o. (Bug#13992)
+
2013-03-18 Paul Eggert <address@hidden>
* term/x-win.el (x-keysym-pair): Add a Fixme (Bug#13936).
=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2013-02-13 04:31:09 +0000
+++ b/lisp/progmodes/compile.el 2013-03-19 00:16:14 +0000
@@ -1814,6 +1814,7 @@
(define-key map [follow-link] 'mouse-face)
(define-key map "\C-c\C-c" 'compile-goto-error)
(define-key map "\C-m" 'compile-goto-error)
+ (define-key map "\C-o" 'compilation-display-error)
(define-key map "\C-c\C-k" 'kill-compilation)
(define-key map "\M-n" 'compilation-next-error)
(define-key map "\M-p" 'compilation-previous-error)
@@ -1858,6 +1859,7 @@
(define-key map [follow-link] 'mouse-face)
(define-key map "\C-c\C-c" 'compile-goto-error)
(define-key map "\C-m" 'compile-goto-error)
+ (define-key map "\C-o" 'compilation-display-error)
(define-key map "\C-c\C-k" 'kill-compilation)
(define-key map "\M-n" 'compilation-next-error)
(define-key map "\M-p" 'compilation-previous-error)
@@ -2299,6 +2301,12 @@
(interactive "p")
(compilation-next-file (- n)))
+(defun compilation-display-error ()
+ "Display the source for current error in another window."
+ (interactive)
+ (setq compilation-current-error (point))
+ (next-error-no-select 0))
+
(defun kill-compilation ()
"Kill the process made by the \\[compile] or \\[grep] commands."
(interactive)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112087: * progmodes/compile.el (compilation-display-error): New command.,
Leo Liu <=