From 3d49267055188e2f4bf052c4e1a376ec509d3304 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 10 Nov 2010 07:55:25 +0000 Subject: [PATCH] rfc2047.el (rfc2047-syntax-table): Simplify. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/rfc2047.el | 10 +++------- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f732daf30bf..5eb6e138630 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,7 @@ 2010-11-10 Katsumi Yamaoka + * 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. 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) -- 2.39.5