branch: externals/auctex-cont-latexmk
commit 726a97151271e1869c7a48ecc65680c39b7ea3d5
Author: Paul Nelson <[email protected]>
Commit: Paul Nelson <[email protected]>
simplfy some code using alist-get
---
auctex-cont-latexmk.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/auctex-cont-latexmk.el b/auctex-cont-latexmk.el
index 442972475d..ea85306537 100644
--- a/auctex-cont-latexmk.el
+++ b/auctex-cont-latexmk.el
@@ -63,10 +63,7 @@
(let ((error-alist
(append TeX-error-description-list
TeX-error-description-list-local)))
- (catch 'found
- (dolist (error error-alist)
- (when (string-match (car error) message)
- (throw 'found (cdr error)))))))
+ (alist-get message error-alist nil nil #'string-match-p)))
(defun auctex-cont-latexmk-help-at-point ()
"Display the AUCTeX help for the error at point."
