[elpa] 240/299: Fix ChangeLog node for texinfo.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit 4ba9c9df91f446bd79486657d155358b0a0ac027
Author: Tassilo Horn <address@hidden>
Date:   Sun Apr 6 09:24:49 2014 +0200

    Fix ChangeLog node for texinfo.
    
    * tex-info.el (TeX-texinfo-mode): Use `texinfo-current-defun-name'
    in `C-x 4 a'.
---
 ChangeLog   |    5 +++++
 tex-info.el |    5 +++++
 2 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 31b5104..b2573c7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-06  Tassilo Horn  <address@hidden>
+
+       * tex-info.el (TeX-texinfo-mode): Use `texinfo-current-defun-name'
+       in `C-x 4 a'.
+
 2014-03-17  Nicolas Richard  <address@hidden>
 
        * style/exercise.el: New file.
diff --git a/tex-info.el b/tex-info.el
index a42884d..f973937 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -627,6 +627,11 @@ value of `Texinfo-mode-hook'."
                               (unless (file-exists-p (buffer-file-name))
                                 (TeX-master-file nil nil t))) nil t)
 
+  (when (and (boundp 'add-log-current-defun-function)
+            (fboundp 'texinfo-current-defun-name))
+    (setq add-log-current-defun-function
+         #'texinfo-current-defun-name))
+
   (TeX-add-symbols
    '("appendix" (TeX-arg-literal " ") (TeX-arg-free "Title"))
    '("appendixsec" (TeX-arg-literal " ") (TeX-arg-free "Title"))