Re: [AUCTeX-devel] tex-symb repository at Google Code Hosting

[Masayuki Ataka]

From: Ralf Angeli <address@hidden>
Subject: Re: [AUCTeX-devel] tex-symb repository at Google Code Hosting
Date: Sat, 10 Feb 2007 18:04:43 +0100

> * Ralf Angeli (2007-02-10) writes:
> 
> > (lambda ()
> >   (save-excursion
> >     (backward-char)
> >     (or (TeX-fold-macro) (TeX-fold-math))))
> 
> Uh, better use the internal function providing proper return values.
> With a test for the value of the variable controlling activation of
> the feature and with support for environments it could like this:
> 
> (lambda ()
>   (when TeX-fold-auto
>     (save-excursion
>       (backward-char)
>       (or (TeX-fold-item 'macro)
>         (TeX-fold-item 'math)
>         (TeX-fold-item 'env)))))

We should check that the minor-mode TeX-fold-mode is on, too ;)

(lambda ()
  (when (and TeX-fold-mode TeX-fold-auto)
    (save-excursion
    ...

This is a patch for hook version.
If ok, I'll commit this.

Index: tex-fold.el
===================================================================
RCS file: /sources/auctex/auctex/tex-fold.el,v
retrieving revision 1.57
diff -u -r1.57 tex-fold.el
--- tex-fold.el 10 Feb 2007 15:59:19 -0000      1.57
+++ tex-fold.el 13 Feb 2007 13:03:44 -0000
@@ -175,6 +175,12 @@
   :group 'TeX-fold
   :type 'boolean)
 
+(defcustom TeX-fold-auto t
+  "If non-nil, fold macros automatically after `TeX-insert-macro'."
+  :group 'TeX-fold
+  :type 'boolean)
+
+
 (defface TeX-fold-folded-face
   '((((class color) (background light))
      (:foreground "SlateBlue"))
@@ -843,6 +849,13 @@
        (set (make-local-variable 'search-invisible) t)
        (add-hook 'post-command-hook 'TeX-fold-post-command nil t)
        (add-hook 'LaTeX-fill-newline-hook 'TeX-fold-update-at-point nil t)
+       (add-hook 'TeX-after-insert-macro-hook (lambda ()
+                                                (when (and TeX-fold-mode 
TeX-fold-auto)
+                                                  (save-excursion
+                                                    (backward-char)
+                                                    (or (TeX-fold-item 'macro)
+                                                        (TeX-fold-item 'math)
+                                                        (TeX-fold-item 
'env))))))
        ;; Update the `TeX-fold-*-spec-list-internal' variables.
        (dolist (elt '("macro" "env" "math"))
          (set (intern (format "TeX-fold-%s-spec-list-internal" elt))
Index: tex.el
===================================================================
RCS file: /sources/auctex/auctex/tex.el,v
retrieving revision 5.601
diff -u -r5.601 tex.el
--- tex.el      10 Feb 2007 15:59:11 -0000      5.601
+++ tex.el      13 Feb 2007 13:03:44 -0000
@@ -2019,6 +2019,9 @@
   "String used as a closing brace for argument insertion.
 The variable will be temporarily let-bound with the necessary value.")
 
+(defvar TeX-after-insert-macro-hook nil
+  "A hook run after `TeX-insert-macro'.")
+
 (defvar TeX-macro-history nil)
 
 (defun TeX-insert-macro (symbol)
@@ -2042,7 +2045,8 @@
         (setq symbol TeX-default-macro))
        ((interactive-p)
         (setq TeX-default-macro symbol)))
-  (TeX-parse-macro symbol (cdr-safe (assoc symbol (TeX-symbol-list)))))
+  (TeX-parse-macro symbol (cdr-safe (assoc symbol (TeX-symbol-list))))
+  (run-hooks 'TeX-after-insert-macro-hook))
 
 (defvar TeX-electric-macro-map
   (let ((map (make-sparse-keymap)))

---
email: address@hidden
Name:: Masayuki Ataka // (Japan)