[Emacs-diffs] /srv/bzr/emacs/trunk r102316: rfc2047.el (rfc2047-syntax-table): Simplify.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102316
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-10 07:55:25 +0000
message:
  rfc2047.el (rfc2047-syntax-table): Simplify.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/rfc2047.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-10 06:23:53 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-10 07:55:25 +0000
@@ -1,5 +1,7 @@
 2010-11-10  Katsumi Yamaoka  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/gnus/rfc2047.el'
--- a/lisp/gnus/rfc2047.el      2010-09-29 01:09:50 +0000
+++ b/lisp/gnus/rfc2047.el      2010-11-10 07:55:25 +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)