[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex fb09c26 06/26: Warn about duplicate texinfo node
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex fb09c26 06/26: Warn about duplicate texinfo nodes |
Date: |
Fri, 13 Nov 2015 17:00:33 +0000 |
branch: externals/auctex
commit fb09c26aa539c1a3a48ccf78098ed536f48c4870
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>
Warn about duplicate texinfo nodes
* tex-info.el (Texinfo-make-node-list): Warn about duplicate
nodes. Return nodes in order instead of reversed.
---
ChangeLog | 5 +++++
tex-info.el | 28 ++++++++++++++++++----------
2 files changed, 23 insertions(+), 10 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 73864da..e73fc68 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-10-28 Tassilo Horn <address@hidden>
+
+ * tex-info.el (Texinfo-make-node-list): Warn about duplicate
+ nodes. Return nodes in order instead of reversed.
+
2015-10-25 Vincent Bela�che <address@hidden>
* tex-info.el (Texinfo-nodename-de-escape): New defun.
diff --git a/tex-info.el b/tex-info.el
index 39d1d5c..b987422 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -318,21 +318,29 @@ commands. Return the resulting string."
node-name)
-(defun Texinfo-make-node-list (&optional nodes)
+(defun Texinfo-make-node-list ()
;; Build list of nodes in current buffer.
;; (What about using `imenu--index-alist'?)
;; FIXME: Support multi-file documents.
(save-excursion
(goto-char (point-min))
- (while (re-search-forward "address@hidden" nil t)
- (skip-chars-forward "[:blank:]")
- (pushnew (list (Texinfo-nodename-de-escape
- (buffer-substring-no-properties
- (point) (progn (skip-chars-forward "^\r\n,")
- (skip-chars-backward "[:blank:]")
- (point)))))
- nodes :test #'equal)))
- nodes)
+ (let (nodes dups)
+ (while (re-search-forward "address@hidden" nil t)
+ (skip-chars-forward "[:blank:]")
+ (pushnew (list (Texinfo-nodename-de-escape
+ (buffer-substring-no-properties
+ (point) (progn (skip-chars-forward "^\r\n,")
+ (skip-chars-backward "[:blank:]")
+ (point)))))
+ nodes
+ :test (lambda (a b)
+ (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))
(defun Texinfo-insert-node ()
"Insert a Texinfo node in the current buffer.
- [elpa] externals/auctex b4f95f9 07/26: Disable special filling of math constructs, (continued)
- [elpa] externals/auctex b4f95f9 07/26: Disable special filling of math constructs, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 6351078 09/26: Use LaTeX-style-list for default classes completion., Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 9dba8fd 15/26: Make View command work no matter how emacs started, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex c39c63f 13/26: Add new style hologo.el., Tassilo Horn, 2015/11/13
- [elpa] externals/auctex d56502e 05/26: Support node name completion in texinfo, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex a2f8bc6 08/26: Fix Texinfo-make-node-list, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 52275f9 03/26: Improve style., Tassilo Horn, 2015/11/13
- [elpa] externals/auctex b3153ec 16/26: Add function for reverting document buffer, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 4527e8a 10/26: Update documentation., Tassilo Horn, 2015/11/13
- [elpa] externals/auctex f52479b 11/26: Improve checking of a TeX distribution and make it optional, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex fb09c26 06/26: Warn about duplicate texinfo nodes,
Tassilo Horn <=
- [elpa] externals/auctex a4c6a19 21/26: Update release-related Makefile rules, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex cb4e33e 12/26: Set output extension for Texinfo files, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex d465076 22/26: Update for upcoming release, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 5179308 18/26: Change default value of LaTeX-fill-break-at-separators, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex cc72777 19/26: More ERT tests, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex df7dbbd 23/26: Release_11.89, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 3aa4bdb 17/26: Add ChangeLog entry, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 0c9b98a 14/26: Fix compatibility with XEmacs in tex-info.el, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 11af8e6 20/26: Improve has-no-display-manager predicate, Tassilo Horn, 2015/11/13
- [elpa] externals/auctex 7363de1 26/26: Adapt to ChangeLog dropping, Tassilo Horn, 2015/11/13