emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex c3a21f2 04/57: Print only first line of the mess


From: Tassilo Horn
Subject: [elpa] externals/auctex c3a21f2 04/57: Print only first line of the message in error overview
Date: Wed, 11 Jan 2017 18:01:37 +0000 (UTC)

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

    Print only first line of the message in error overview
    
    * tex-buf.el (TeX-error-overview-make-entries): Use `push' in place of
      `add-to-list'.  Print only the first line of the message.
---
 tex-buf.el |   16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/tex-buf.el b/tex-buf.el
index 07bb78b..6497777 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -3429,8 +3429,7 @@ errors.  If nil, defaults to 
`TeX-error-overview-active-buffer'."
               msg  (nth 3 entry))
         ;; Add the entry only if it isn't to be skipped.
         (unless (TeX-error-list-skip-warning-p type (nth 10 entry))
-          (add-to-list
-           'entries
+          (push
            (list
             ;; ID.
             id
@@ -3458,15 +3457,22 @@ errors.  If nil, defaults to 
`TeX-error-overview-active-buffer'."
               (t
                ""))
              ;; Message.
-             (list (if (stringp msg) msg "")
+             (list (if (stringp msg)
+                       ;; Sometimes, the message can be longer than one line,
+                       ;; but print here only the first one.
+                       (progn
+                         (string-match "^.*" msg)
+                         (match-string 0 msg))
+                     "")
                    'face 'link
                    'follow-link t
                    'id id
-                   'action 'TeX-error-overview-goto-source))) t))
+                   'action 'TeX-error-overview-goto-source)))
+           entries))
         ;; Increase the `id' counter in any case.
         (setq id (1+ id)))
        TeX-error-list)
-      entries)))
+      (reverse entries))))
 
 (defun TeX-error-overview-next-error (&optional arg)
   "Move to the next line and find the associated error.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]