Hi Masayuki, I came across this thread and found it interesting. But I can not find anything to download on the google code page and the discussion seems finished prematurely.
What's going on with this project? Regards, Leo On 2007-02-13 21:18 +0800, Masayuki Ataka wrote: > From: Ralf Angeli <[email protected]> > 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: [email protected] > Name:: Masayuki Ataka // (Japan) _______________________________________________ auctex-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-devel
