From 311b1af1fcf15d8303925ade8b9c77709faeeee9 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 4 Mar 1997 03:24:38 +0000 Subject: [PATCH] *** empty log message *** --- lisp/custom.el | 5 ++++- lisp/gnus.el | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index 0c24a5563..85c7b980d 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -116,12 +116,15 @@ STRING should be given if the last search was by `string-match' on STRING." (substring string (match-beginning num) (match-end num)) (buffer-substring (match-beginning num) (match-end num)))))) + (or (fboundp 'facep) ;; Introduced in Emacs 19.29. (defun facep (x) "Return t if X is a face name or an internal face vector." (and (or (and (fboundp 'internal-facep) (internal-facep x)) - (and (symbolp x) (assq x global-face-data))) + (and + (symbolp x) + (assq x (and (boundp 'global-face-data) global-face-data)))) t))) (if (facep 'underline) diff --git a/lisp/gnus.el b/lisp/gnus.el index 9ffbef714..7253f8da7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1343,7 +1343,7 @@ variable (string, integer, character, etc).") "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") -(defconst gnus-version "(ding) Gnus v0.99.21" +(defconst gnus-version "(ding) Gnus v0.99.22" "Version number for this version of Gnus.") (defvar gnus-info-nodes -- 2.25.1