procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rfc2047.el (rfc2047-syntax-table): Simplify.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-11-10 07:55:25 +00:00
parent fdf1419174
commit 3d49267055
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View file

@ -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.

10
lisp/gnus/rfc2047.el
View file

@ -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)