Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children 59463afc5666
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
87 str)) 87 str))
88 88
89 (defsubst gnus-functionp (form) 89 (defsubst gnus-functionp (form)
90 "Return non-nil if FORM is funcallable." 90 "Return non-nil if FORM is funcallable."
91 (or (and (symbolp form) (fboundp form)) 91 (or (and (symbolp form) (fboundp form))
92 (and (listp form) (eq (car form) 'lambda)))) 92 (and (listp form) (eq (car form) 'lambda))
93 (compiled-function-p form)))
93 94
94 (defsubst gnus-goto-char (point) 95 (defsubst gnus-goto-char (point)
95 (and point (goto-char point))) 96 (and point (goto-char point)))
96 97
97 (defmacro gnus-buffer-exists-p (buffer) 98 (defmacro gnus-buffer-exists-p (buffer)