Mercurial > emacs
diff lisp/gnus/gnus-util.el @ 80613:9110741da209
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-281
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 17 Jul 2008 23:21:03 +0000 |
| parents | 1cb31606209f |
| children |
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el Thu Jul 17 09:07:32 2008 +0000 +++ b/lisp/gnus/gnus-util.el Thu Jul 17 23:21:03 2008 +0000 @@ -1671,6 +1671,27 @@ ;; that intends to handle the quit signal next time. (eval '(ignore nil)))))) +(defmacro gnus-put-display-table (range value display-table) + "Set the value for char RANGE to VALUE in DISPLAY-TABLE. " + (if (featurep 'xemacs) + (progn + `(if (fboundp 'put-display-table) + (put-display-table ,range ,value ,display-table) + (if (sequencep ,display-table) + (aset ,display-table ,range ,value) + (put-char-table ,range ,value ,display-table)))) + `(aset ,display-table ,range ,value))) + +(defmacro gnus-get-display-table (character display-table) + "Find value for CHARACTER in DISPLAY-TABLE. " + (if (featurep 'xemacs) + `(if (fboundp 'get-display-table) + (get-display-table ,character ,display-table) + (if (sequencep ,display-table) + (aref ,display-table ,character) + (get-char-table ,character ,display-table))) + `(aref ,display-table ,character))) + (provide 'gnus-util) ;;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49