[elpa] externals/auctex 5f40b686b4 14/23: Call custom folding functions with consistent point

[Tassilo Horn]

branch: externals/auctex
commit 5f40b686b46f74c441441839ad67703b743c900f
Author: Paul Nelson <ultrono@gmail.com>
Commit: Arash Esbati <arash@gnu.org>

    Call custom folding functions with consistent point
    
    * tex-fold.el (TeX-fold-hide-item): Call folding spec with point
    at beginning of item.
    * doc/auctex.texi (Folding): Mention the new convention.
    (bug#70331)
---
 doc/auctex.texi | 9 +++++----
 tex-fold.el     | 4 +++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/doc/auctex.texi b/doc/auctex.texi
index 343caa5903..064ba297ac 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -2767,10 +2767,11 @@ respective mandatory argument of a @LaTeX{} macro will 
be used as the
 placeholder.
 
 If the first element is a function symbol, the function will be called
-with all mandatory arguments of the macro and the result of the function
-call will be used as a replacement for the macro.
-Such functions typically return a string, but may also return the
-symbol @code{abort} to indicate that the macro should not be folded.
+with all mandatory arguments of the macro, and with point positioned at
+the beginning of the macro.  The result of the function call will be used
+as a replacement for the macro.  Such functions typically return a string,
+but may also return the symbol @code{abort} to indicate that the macro
+should not be folded.
 
 The placeholder is made by copying the text from the buffer together with
 its properties, i.e.@: its face as well.  If fontification has not
diff --git a/tex-fold.el b/tex-fold.el
index e593aed58e..fadc145a13 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -816,7 +816,9 @@ That means, put respective properties onto overlay OV."
                            (setq arg-list (append arg-list (list (car arg)))))
                          (setq n (1+ n)))
                        (or (condition-case nil
-                               (apply spec arg-list)
+                               (save-excursion
+                                 (goto-char ov-start)
+                                 (apply spec arg-list))
                              (error nil))
                            "[Error: No content or function found]")))
                     (t (or (TeX-fold-macro-nth-arg spec ov-start ov-end)