2:32 p.m.
>>>> "Stephen" == Stephen J Turnbull
<stephen(a)xemacs.org> writes:
Aidan Kehoe writes:
> What you need to do is rewrite the code to use
> #'posix-search-forward, which guarantees that it will return the
> longest match (that is, it will always try to match "\\infty" if
> possible, and only then look for "\in".)
I don't think so: this code is almost surely trying each car in
order. Something like:
(progn
(search-forward (regexp-opt (mapcar #'car replacement-alist)))
(goto-char (match-begin 0))
(when (looking-at target-string)
(replace-match replacement-string)))
As I said in my mail to Adian: that is the main part of the code
(seems less sophisticated than yours, though)
(defun utf8symbol-translate-conventions (trans-tab)
"Use the translation table argument to translate the current buffer."
(save-excursion
(let ((beg (point-min-marker)) ; see the `(elisp)Narrowing' Info node
(end (point-max-marker)))
(unwind-protect
(progn
(widen)
(goto-char (point-min))
(let ((buffer-read-only nil) ; (inhibit-read-only t)?
(case-fold-search nil))
(while trans-tab
(save-excursion
(let ((trans-this (car trans-tab)))
(while (search-forward (car trans-this) nil t)
;; (regexp-opt trans-this) ;NEW
(replace-match (car (cdr trans-this)) t t)))
(setq trans-tab (cdr trans-tab))))))
(narrow-to-region beg end)))))
together with the call
(defun fix-tex2utf8symbol ()
"Replace SGML entity references with ISO 8859-1 (aka Latin-1) characters."
(interactive)
; (if (member major-mode utf8symbol-modes-list)
(let ((buffer-modified-p (buffer-modified-p)))
(unwind-protect
(utf8symbol-translate-conventions tex2utf8symbol-trans-tab)
(set-buffer-modified-p buffer-modified-p))))
Note to Uwe: one problem you're facing here is that SGML
entities
have a fairly reliable terminator character, the semicolon. TeX
does not, so you might try replacing `target-string' in the logic
above with `(concat target-string "\\>")'.
I even thought of adding the each texstring \; and then kill the char
backwards, but that looks highly inefficient.
> You might also want to look into the #'regexp-opt function,
which,
> given a list of strings,
regex-opt won't work here, it doesn't know anything about
internal grouping, so there's no way to trigger the replacement
of "\in" rather than "\infty". In fact, I doubt that Emacs
regexp groups can simultaneously express all the relevant string
matches for
#r"\in\(t\|fty\)".
Uwe
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
10:31 p.m.
New subject: quail: TeX input method: change UTF8 to tex and back: solution & problems
Ar an t-ochtú lá de mí Eanair, scríobh Uwe Brauer:
>>>>> "Stephen" == Stephen J Turnbull
<stephen(a)xemacs.org> writes:
> Aidan Kehoe writes:
>> What you need to do is rewrite the code to use
>> #'posix-search-forward, which guarantees that it will return the
>> longest match (that is, it will always try to match "\\infty" if
>> possible, and only then look for "\in".)
> I don't think so: this code is almost surely trying each car in
> order. Something like:
I’m not sure that we guarantee that we will always try things in order. I
hope not.
> (progn
> (search-forward (regexp-opt (mapcar #'car replacement-alist)))
> (goto-char (match-begin 0))
> (when (looking-at target-string)
> (replace-match replacement-string)))
As I said in my mail to Adian: that is the main part of the code
(seems less sophisticated than yours, though)
Here’s an implementation with the nice property that where many TeX escape
sequences map to a single character, repeated calls to #'TeX-to-char-region
followed by #'char-to-TeX-region will preserve the original TeX escape:
http://www.parhasard.net/xemacs/TeX-escape-region.el.html
Requires this patch to regexp-opt.el:
http://www.parhasard.net/xemacs/regexp-opt.el.diff
and also the latest beta of the the elib package; or you can stick Simon
Marshall’s unique.el somewhere in your load path.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
11:32 a.m.
New subject: quail: TeX input method: change UTF8 to tex and back: solution & problems
>>>> "Aidan" == Aidan Kehoe
<kehoea(a)parhasard.net> writes:
Here’s an implementation with the nice property that where many
TeX escape sequences map to a single character, repeated calls to
#'TeX-to-char-region followed by #'char-to-TeX-region will
preserve the original TeX escape:
Requires this patch to regexp-opt.el:
and also the latest beta of the the elib package; or you can
stick Simon Marshall’s unique.el somewhere in your load path.
Thanks very much for this. I tried it but I failed. (Still using
xemacs-21.4.19 Mule)
- I downloaded both files and applied the patch
- I downloaded from
http://ftp.xemacs.org/pub/xemacs/xemacs/beta/experimental/packages/
latin-unity-1.20-pkg.tar.gz
latin-euro-standards-1.08-pkg.tar.gz
elib-1.13-pkg.tar.gz
leim-1.26-pkg.tar.gz
But not
mule-base-1.52-pkg.tar.gz
mule-ucs-1.16-pkg.tar.gz
I am still using 1.48 and 1.14 respectively.
In any case byte compiling TeX-escape-region.el with debug-on-error t
gave me an error which I attach.
Uwe
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
1:02 p.m.
New subject: problem solved (was: quail: TeX input method: change UTF8 to tex and back: solution & problems)
>>>> "Uwe" == Uwe Brauer <oub(a)mat.ucm.es>
writes:
In any case byte compiling TeX-escape-region.el with debug-on-error
t
gave me an error which I attach.
Sorry I applied the regexp-opt patch but did not byte compile it, now
it seems to work, but now my code does not work :(
Could you consider posting your code to emacs.source looks very
useful.
Uwe
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
5962
days inactive
5963
days old
3 comments
2 participants
participants (2)
-
Aidan Kehoe -
Uwe Brauer