[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 0c9b98aeeeb612c04824140627cb5e86a763dcf9

[Mosè Giordano]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  0c9b98aeeeb612c04824140627cb5e86a763dcf9 (commit)
      from  c39c63ffbb2fd3476368c8f417c10b7d61815b4e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0c9b98aeeeb612c04824140627cb5e86a763dcf9
Author: Mosè Giordano <address@hidden>
Date:   Mon Nov 9 22:45:20 2015 +0100

    Fix compatibility with XEmacs in tex-info.el
    
    * tex-info.el: Update copyright years.
    (Texinfo-nodename-de-escape, Texinfo-nodename-escape): Use
    `TeX-assoc-string' in place of `assoc-string'.

diff --git a/ChangeLog b/ChangeLog
index d8bfe7c..11d8201 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2015-11-09  Mosè Giordano  <address@hidden>
+
+       * tex-info.el: Update copyright years.
+       (Texinfo-nodename-de-escape, Texinfo-nodename-escape): Use
+       `TeX-assoc-string' in place of `assoc-string'.
+
 2015-11-08  Mosè Giordano  <address@hidden>
 
        * tex-info.el (TeX-texinfo-mode): Set `TeX-output-extension'.
diff --git a/tex-info.el b/tex-info.el
index 3a7b698..0433b0a 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -1,6 +1,6 @@
 ;;; tex-info.el --- Support for editing Texinfo source.
 
-;; Copyright (C) 1993, 1994, 1997, 2000, 2001, 2004, 2005, 2006, 2011, 2014
+;; Copyright (C) 1993, 1994, 1997, 2000, 2001, 2004, 2005, 2006, 2011-2015
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: address@hidden
@@ -297,7 +297,7 @@ character. Return the resulting string."
     (while (and (< pos (length
                        node-name)) (string-match "@\\(comma\\)[[:blank:]]*{}" 
node-name pos))
       (setq node-name (concat  (substring node-name 0 (match-beginning 0))
-                              (cdr (assoc-string (match-string 1 node-name) 
map))
+                              (cdr (TeX-assoc-string (match-string 1 
node-name) map))
                               (substring node-name (match-end 0)))
            pos (1+ (match-beginning 0)))))
   node-name)
@@ -311,7 +311,7 @@ commands. Return the resulting string."
         (re (regexp-opt (mapcar 'car map))) )
     (while (and (< pos (length node-name)) (string-match re node-name pos))
       (setq node-name (concat  (substring node-name 0 (match-beginning 0))
-                              "@" (cdr (assoc-string (match-string 0 
node-name) map))
+                              "@" (cdr (TeX-assoc-string (match-string 0 
node-name) map))
                               "{}"
                               (substring node-name (match-end 0)))
            pos (1+ (match-beginning 0)))))

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog   |    6 ++++++
 tex-info.el |    6 +++---
 2 files changed, 9 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX