diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-11-10 07:55:25 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-11-10 07:55:25 +0000 |
| commit | 3d49267055188e2f4bf052c4e1a376ec509d3304 (patch) | |
| tree | 00fb983e69727ed9c162cfa5a7e1c9b1d9ca6eb4 /lisp/gnus/rfc2047.el | |
| parent | fdf14191747d274358cc9eedb8efa03f60380ca8 (diff) | |
| download | emacs-3d49267055188e2f4bf052c4e1a376ec509d3304.tar.gz emacs-3d49267055188e2f4bf052c4e1a376ec509d3304.tar.bz2 emacs-3d49267055188e2f4bf052c4e1a376ec509d3304.zip | |
rfc2047.el (rfc2047-syntax-table): Simplify.
Diffstat (limited to 'lisp/gnus/rfc2047.el')
| -rw-r--r-- | lisp/gnus/rfc2047.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index 8a7153969a5..51eef88dadc 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el @@ -346,13 +346,9 @@ The buffer may be narrowed." ;; 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) |