[elpa] externals/auctex a4d23f6 07/78: Add menu and new functions for error overview.

[Tassilo Horn]

branch: externals/auctex
commit a4d23f65e86c5f18a0722d9f037daa61b54beb91
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Add menu and new functions for error overview.
    
    * tex-buf.el (TeX-error-overview-jump-to-source)
    (TeX-error-overview-goto-log): New functions.
    (TeX-error-overview-mode-map): Add
    `TeX-error-overview-jump-to-source' and
    `TeX-error-overview-goto-log'.
    (TeX-error-overview-menu): Define menu for TeX error overview.
    (TeX-error-overview-mode): Add menu.
    
    * doc/auctex.texi (top)
    (Debugging): Add section for error overview.
    (Error overview): Document new functions and keys.
---
 ChangeLog       |   14 ++++++++++++++
 doc/auctex.texi |   19 +++++++++++++++++--
 tex-buf.el      |   38 +++++++++++++++++++++++++++++++++++++-
 3 files changed, 68 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 876673f..e2c8ac8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2015-08-20  Mos� Giordano  <address@hidden>
+
+       * tex-buf.el (TeX-error-overview-jump-to-source)
+       (TeX-error-overview-goto-log): New functions.
+       (TeX-error-overview-mode-map): Add
+       `TeX-error-overview-jump-to-source' and
+       `TeX-error-overview-goto-log'.
+       (TeX-error-overview-menu): Define menu for TeX error overview.
+       (TeX-error-overview-mode): Add menu.
+
+       * doc/auctex.texi (top)
+       (Debugging): Add section for error overview.
+       (Error overview): Document new functions and keys.
+
 2015-08-19  Mos� Giordano  <address@hidden>
 
        * latex.el (LaTeX-label): Mention in the docstring the returned
diff --git a/doc/auctex.texi b/doc/auctex.texi
index 6307637..09935c9 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -188,6 +188,10 @@ Viewing the Formatted Output
 * Starting Viewers::            Starting viewers
 * I/O Correlation::             Forward and inverse search
 
+Catching the errors
+
+* Error overview::              List of all errors and warnings
+
 Customization and Extension
 
 * Multifile::                   Multifile Documents
@@ -3210,7 +3214,9 @@ to do exactly.  In xdvi you normally have to use 
@kbd{C-down-mouse-1}.
 @cindex Underfull boxes
 
 Once you've formatted your document you may `debug' it, i.e. browse
-through the errors (La)@TeX{} reported.
+through the errors (La)@TeX{} reported.  If you have GNU Emacs 24 or
+later, you may also have a look at a nicely formatted list of all errors
+and warnings reported by the compiler.
 
 @deffn Command TeX-next-error @var{arg} @var{reparse}
 @kindex C-c `
@@ -3277,6 +3283,13 @@ terse information about the error is displayed in the 
echo area.  If
 @TeX{} output.
 @end defopt
 
address@hidden
+* Error overview::            List of all errors and warnings
address@hidden menu
+
address@hidden Error overview
address@hidden List of all errors and warnings
+
 When the option @code{TeX-parse-all-errors} is non-nil, you will be also
 able to open an overview of all errors and warnings reported by the TeX
 compiler.  This feature requires @code{tabulated-list-mode}, shipped
@@ -3290,7 +3303,9 @@ In this window you can visit the error on which point is 
on by pressing
 @key{RET}, and visit the next or previous issue by pressing @key{n} or
 @key{p} respectively.  A prefix argument to these keys specifies how
 many errors to move forward or backward.  You can visit an error also by
-clicking on its message.  Press @key{q} to quit the overview.
+clicking on its message.  Jump to error point in the source code with
address@hidden, and use @key{l} see the error in the log buffer.  Press @key{q}
+to quit the overview.
 @end deffn
 
 @defopt TeX-error-overview-open-after-TeX-run
diff --git a/tex-buf.el b/tex-buf.el
index b5ed365..cdd5fe2 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -2701,6 +2701,21 @@ forward, if negative)."
   (interactive "p")
   (TeX-error-overview-next-error (- arg)))
 
+(defun TeX-error-overview-jump-to-source ()
+  "Display the help and move point to the error source."
+  (interactive)
+  (TeX-error-overview-goto-source)
+  (pop-to-buffer
+   (save-window-excursion
+     (select-window TeX-error-overview-orig-window)
+     (current-buffer))))
+
+(defun TeX-error-overview-goto-log ()
+  "Display the current error in log buffer."
+  (interactive)
+  (let ((TeX-display-help 'expert))
+    (TeX-error-overview-goto-source)))
+
 (defun TeX-error-overview-quit ()
   "Delete the window or the frame of the error overview."
   (interactive)
@@ -2712,6 +2727,8 @@ forward, if negative)."
 (defvar TeX-error-overview-mode-map
   (let ((map (make-sparse-keymap))
        (menu-map (make-sparse-keymap)))
+    (define-key map "j"    'TeX-error-overview-jump-to-source)
+    (define-key map "l"    'TeX-error-overview-goto-log)
     (define-key map "n"    'TeX-error-overview-next-error)
     (define-key map "p"    'TeX-error-overview-previous-error)
     (define-key map "q"    'TeX-error-overview-quit)
@@ -2719,6 +2736,24 @@ forward, if negative)."
     map)
   "Local keymap for `TeX-error-overview-mode' buffers.")
 
+(easy-menu-define TeX-error-overview-menu
+  TeX-error-overview-mode-map
+  "Menu used in TeX error overview mode."
+  (TeX-menu-with-help
+   '("TeX errors"
+     ["Next error" TeX-error-overview-next-error
+      :help "Jump to the next error"]
+     ["Previous error" TeX-error-overview-previous-error
+      :help "Jump to the previous error"]
+     ["Go to source" TeX-error-overview-goto-source
+      :help "Show the error in the source"]
+     ["Jump to source" TeX-error-overview-jump-to-source
+      :help "Move point to the error in the source"]
+     ["Go to log" TeX-error-overview-goto-log
+      :help "Show the error in the log buffer"]
+     ["Quit" TeX-error-overview-quit
+      :help "Quit"])))
+
 (defvar TeX-error-overview-list-entries nil
   "List of errors to be used in the error overview.")
 
@@ -2732,7 +2767,8 @@ forward, if negative)."
         tabulated-list-padding 1
         tabulated-list-entries TeX-error-overview-list-entries)
   (tabulated-list-init-header)
-  (tabulated-list-print))
+  (tabulated-list-print)
+  (easy-menu-add TeX-error-overview-menu TeX-error-overview-mode-map))
 
 (defcustom TeX-error-overview-frame-parameters
   '((name . "TeX errors")