[debbugs-tracker] bug#13992: closed (24.3; New command compilation-display-error)

[GNU bug Tracking System]

Your message dated Tue, 19 Mar 2013 08:20:29 +0800
with message-id <address@hidden>
and subject line Re: bug#13992: 24.3; New command compilation-display-error
has caused the debbugs.gnu.org bug report #13992,
regarding 24.3; New command compilation-display-error
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
13992: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13992
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> 24.3; New command compilation-display-error
>
>
>
>
> Date: 
>
> Mon, 18 Mar 2013 21:00:08 +0800
>
>
>
>
> Hello Stefan,
>
> The attached patch looks like a good addition to compile.el. Bind it to
> C-o as in occur-mode. -- Leo
>
> diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
> index 68a83b47..b82afc67 100644
> --- a/lisp/progmodes/compile.el
> +++ b/lisp/progmodes/compile.el
> @@ -1810,6 +1810,7 @@ (defvar compilation-minor-mode-map
>      (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)
> @@ -1854,6 +1855,7 @@ (defvar compilation-mode-map
>      (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)
> @@ -2295,6 +2297,12 @@ (defun compilation-previous-file (n)
>    (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)
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#13992: 24.3; New command compilation-display-error
>
>
>
>
> Date: 
>
> Tue, 19 Mar 2013 08:20:29 +0800
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/24.3 (OS X 10.8.3)
>
>
>
>
> Hi Eli,
>
> I have put the code in trunk. If you have a better name than
> compilation-display-error feel free to tweak it ;)
>
> Leo
>
>
> --- End Message ---