Hi, Leo Thank you for your interest in my tex-symb.el.
You can get the latest tex-symb via Subversion. Please try $ svn checkout http://texsymb.googlecode.com/svn/trunk/ texsymb or see http://code.google.com/p/texsymb/source/checkout Texsymb developing is stopped just after the latest this thread, because I'm not using Math formula in my docs these days. Well, I hope texsymb work with the latest AUCTeX... If you failed, I will try to fix it. regards, --- Masayuki Ataka On Sat, Jan 24, 2009 at 23:17, Leo <[email protected]> wrote: > 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
