[Emacs-diffs] /srv/bzr/emacs/trunk r112087: * progmodes/compile.el (compilation-display-error): New command.

[Leo Liu]

------------------------------------------------------------
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)