Mercurial > emacs
comparison lisp/gnus/gnus-art.el @ 111467:94518a0a4096
gnus-art.el (article-treat-non-ascii): Use put-char-table instead of set-char-table-range for XEmacs.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 10 Nov 2010 06:23:53 +0000 |
| parents | 457fd361982f |
| children | 91870c82d547 |
comparison
equal
deleted
inserted
replaced
| 111466:c208e8e46177 | 111467:94518a0a4096 |
|---|---|
| 2122 (require 'org-entities) | 2122 (require 'org-entities) |
| 2123 (let ((table (make-char-table nil))) | 2123 (let ((table (make-char-table nil))) |
| 2124 (dolist (elem org-entities) | 2124 (dolist (elem org-entities) |
| 2125 (when (and (listp elem) | 2125 (when (and (listp elem) |
| 2126 (= (length (nth 6 elem)) 1)) | 2126 (= (length (nth 6 elem)) 1)) |
| 2127 (set-char-table-range table | 2127 (if (featurep 'xemacs) |
| 2128 (aref (nth 6 elem) 0) | 2128 (put-char-table (aref (nth 6 elem) 0) (nth 4 elem) table) |
| 2129 (nth 4 elem)))) | 2129 (set-char-table-range table (aref (nth 6 elem) 0) (nth 4 elem))))) |
| 2130 (save-excursion | 2130 (save-excursion |
| 2131 (when (article-goto-body) | 2131 (when (article-goto-body) |
| 2132 (let ((inhibit-read-only t) | 2132 (let ((inhibit-read-only t) |
| 2133 replace) | 2133 replace) |
| 2134 (while (not (eobp)) | 2134 (while (not (eobp)) |