diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-03 11:39:25 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-03 11:39:25 +0200 |
| commit | fc139b629cb6626eb76fbb9a465f6eb0f4d14b5a (patch) | |
| tree | 408a10cc3210d4efc33ce3e70ffec13a64391941 | |
| parent | 9b630dc252702230e1e111c1b3ee363c65ae9c32 (diff) | |
| download | emacs-fc139b629cb6626eb76fbb9a465f6eb0f4d14b5a.tar.gz emacs-fc139b629cb6626eb76fbb9a465f6eb0f4d14b5a.tar.bz2 emacs-fc139b629cb6626eb76fbb9a465f6eb0f4d14b5a.zip | |
Remove XEmacs compat code from reftex-ref.el
* lisp/textmodes/reftex-ref.el (reftex-latin1-to-ascii): Remove
XEmacs compat code.
| -rw-r--r-- | lisp/textmodes/reftex-ref.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index 3fe7a79a274..fead734be71 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el @@ -294,14 +294,12 @@ also applies `reftex-translate-to-ascii-function' to the string." (defun reftex-latin1-to-ascii (string) ;; Translate the upper 128 chars in the Latin-1 charset to ASCII equivalents - (let ((tab "@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@ icLxY|S\"ca<--R-o|23'uq..1o>423?AAAAAAACEEEEIIIIDNOOOOOXOUUUUYP3aaaaaaaceeeeiiiidnooooo:ouuuuypy") - (emacsp (not (featurep 'xemacs)))) + (let ((tab "@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@ icLxY|S\"ca<--R-o|23'uq..1o>423?AAAAAAACEEEEIIIIDNOOOOOXOUUUUYP3aaaaaaaceeeeiiiidnooooo:ouuuuypy")) (mapconcat (lambda (c) (cond ((and (> c 127) (< c 256)) ; 8 bit Latin-1 (char-to-string (aref tab (- c 128)))) - ((and emacsp ; Not for XEmacs - (> c 2175) (< c 2304)) ; Mule Latin-1 + ((and (> c 2175) (< c 2304)) ; Mule Latin-1 (char-to-string (aref tab (- c 2176)))) (t (char-to-string c)))) string ""))) |