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

[安宅 正之]

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 <address@hidden> 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 <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)
>