branch: externals/auctex
commit a2f8bc634c7cd3759b9121b2de53a44e95019155
Author: Tassilo Horn <[email protected]>
Commit: Tassilo Horn <[email protected]>
Fix Texinfo-make-node-list
---
tex-info.el | 13 +++++++++----
1 files changed, 9 insertions(+), 4 deletions(-)
diff --git a/tex-info.el b/tex-info.el
index b987422..6c5c81f 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -337,10 +337,15 @@ commands. Return the resulting string."
(when (equal a b)
(push (cons a (line-number-at-pos (point))) dups)
t))))
- (message "There are duplicate nodes:")
- (dolist (dup (nreverse dups))
- (message " %s on line %d" (car dup) (cdr dup)))))
- (nreverse nodes))
+ (when dups
+ (display-warning
+ 'AUCTeX
+ (format "There are duplicate nodes:\n%s"
+ (mapconcat (lambda (dup)
+ (format " %s on line %d" (car dup) (cdr dup)))
+ (nreverse dups)
+ "\n"))))
+ (nreverse nodes))))
(defun Texinfo-insert-node ()
"Insert a Texinfo node in the current buffer.
