gnus-art.el (article-treat-non-ascii): Use put-char-table instead of set-char-table-range for XEmacs.
2010-11-10 Katsumi Yamaoka <yamaoka@jpl.org>
+ * lpath.el: Fbind set-char-table-range for XEmacs 21.4 and SXEmacs 22.1.
+
+ * gnus-art.el (article-treat-non-ascii): Use put-char-table instead of
+ set-char-table-range for XEmacs.
+
* dgnushack.el: Don't use ignore-errors in the top level form since it
is unavailable in XEmacs even if cl is loaded.
(dolist (elem org-entities)
(when (and (listp elem)
(= (length (nth 6 elem)) 1))
- (set-char-table-range table
- (aref (nth 6 elem) 0)
- (nth 4 elem))))
+ (if (featurep 'xemacs)
+ (put-char-table (aref (nth 6 elem) 0) (nth 4 elem) table)
+ (set-char-table-range table (aref (nth 6 elem) 0) (nth 4 elem)))))
(save-excursion
(when (article-goto-body)
(let ((inhibit-read-only t)
custom-autoload decode-char display-graphic-p display-images-p
display-visual-class get-display-table help-function-arglist
make-temp-file next-single-char-property-change put-display-table
- select-frame-set-input-focus set-buffer-multibyte string-as-multibyte
- timer-set-function unicode-precedence-list unicode-to-char))
+ select-frame-set-input-focus set-buffer-multibyte set-char-table-range
+ string-as-multibyte timer-set-function unicode-precedence-list
+ unicode-to-char))
(maybe-bind
'(header-line-format
scroll-margin timer-list)))