Mercurial > emacs

comparison lisp/gnus/gnus-util.el @ 80613:9110741da209

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
80612:0436fdfe2a5f 80613:9110741da209
1669 ;; Without this, it will not be handled until the next function 1669 ;; Without this, it will not be handled until the next function
1670 ;; call, and that might allow it to exit thru a condition-case 1670 ;; call, and that might allow it to exit thru a condition-case
1671 ;; that intends to handle the quit signal next time. 1671 ;; that intends to handle the quit signal next time.
1672 (eval '(ignore nil)))))) 1672 (eval '(ignore nil))))))
1673 1673
1674 (defmacro gnus-put-display-table (range value display-table)
1675 "Set the value for char RANGE to VALUE in DISPLAY-TABLE. "
1676 (if (featurep 'xemacs)
1677 (progn
1678 `(if (fboundp 'put-display-table)
1679 (put-display-table ,range ,value ,display-table)
1680 (if (sequencep ,display-table)
1681 (aset ,display-table ,range ,value)
1682 (put-char-table ,range ,value ,display-table))))
1683 `(aset ,display-table ,range ,value)))
1684
1685 (defmacro gnus-get-display-table (character display-table)
1686 "Find value for CHARACTER in DISPLAY-TABLE. "
1687 (if (featurep 'xemacs)
1688 `(if (fboundp 'get-display-table)
1689 (get-display-table ,character ,display-table)
1690 (if (sequencep ,display-table)
1691 (aref ,display-table ,character)
1692 (get-char-table ,character ,display-table)))
1693 `(aref ,display-table ,character)))
1694
1674 (provide 'gnus-util) 1695 (provide 'gnus-util)
1675 1696
1676 ;;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49 1697 ;;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49
1677 ;;; gnus-util.el ends here 1698 ;;; gnus-util.el ends here