Mercurial > emacs
changeset 111468:b6da43d9e0f5
rfc2047.el (rfc2047-syntax-table): Simplify.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 10 Nov 2010 07:55:25 +0000 |
| parents | 94518a0a4096 |
| children | 20c4d074b74d |
| files | lisp/gnus/ChangeLog lisp/gnus/rfc2047.el |
| diffstat | 2 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Nov 10 06:23:53 2010 +0000 +++ b/lisp/gnus/ChangeLog Wed Nov 10 07:55:25 2010 +0000 @@ -1,5 +1,7 @@ 2010-11-10 Katsumi Yamaoka <yamaoka@jpl.org> + * rfc2047.el (rfc2047-syntax-table): Simplify. + * gnus-art.el (article-treat-non-ascii): Use put-char-table instead of set-char-table-range for XEmacs.
--- a/lisp/gnus/rfc2047.el Wed Nov 10 06:23:53 2010 +0000 +++ b/lisp/gnus/rfc2047.el Wed Nov 10 07:55:25 2010 +0000 @@ -346,13 +346,9 @@ ;; it appears to be the cleanest way. ;; Play safe and don't assume the form of the word syntax entry -- ;; copy it from ?a. - (if (fboundp 'set-char-table-range) ; Emacs - (funcall (intern "set-char-table-range") - table t (aref (standard-syntax-table) ?a)) - (if (fboundp 'put-char-table) - (if (fboundp 'get-char-table) ; warning avoidance - (put-char-table t (get-char-table ?a (standard-syntax-table)) - table)))) + (if (featurep 'xemacs) + (put-char-table t (get-char-table ?a (standard-syntax-table)) table) + (set-char-table-range table t (aref (standard-syntax-table) ?a))) (modify-syntax-entry ?\\ "\\" table) (modify-syntax-entry ?\" "\"" table) (modify-syntax-entry ?\( "(" table)