* gnus-compat.el: Define `bound-and-true-p' for XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c898cc..4e5c7d6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-compat.el: Define `bound-and-true-p' for XEmacs.
+
 2012-03-12  Peter Münster  <pmrb@free.fr>
 
        * gnus-demon.el (gnus-demon-timers): Now a plist (function -> timer).

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index 1307488..2b25e45 100644 (file)
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -97,6 +97,13 @@ TRASH is ignored."
                           (lambda (process status)
                             (apply function process status args))))))
 
+;; XEmacs 21.4
+(unless (fboundp 'bound-and-true-p)
+  (defmacro bound-and-true-p (var)
+    "Return the value of symbol VAR if it is bound, else nil."
+    (and (boundp var)
+        (symbol-value var))))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here