[Emacs-diffs] master e22d740: Remove gnus-boundp

[Mark Oteiza]

branch: master
commit e22d740c30ff5b3f7749c542b7dc0c454eb69f98
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    Remove gnus-boundp
    
    * lisp/gnus/gnus-start.el (gnus-display-time-event-handler): Use
    bound-and-true-p.
    * lisp/gnus/gnus-util (gnus-boundp): Remove.
---
 lisp/gnus/gnus-start.el | 2 +-
 lisp/gnus/gnus-util.el  | 5 -----
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index be46339..90f3cb4 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -3196,7 +3196,7 @@ If this variable is nil, don't do anything."
 
 (defun gnus-display-time-event-handler ()
   (if (and (fboundp 'display-time-event-handler)
-          (gnus-boundp 'display-time-timer))
+          (bound-and-true-p display-time-timer))
       (display-time-event-handler)))
 
 (defun gnus-check-reasonable-setup ()
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 20eceb5..b509d8a 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -84,11 +84,6 @@ This is a compatibility function for different Emacsen."
   (declare (obsolete replace-regexp-in-string "26.1"))
   (replace-regexp-in-string regexp newtext string nil literal))
 
-(defun gnus-boundp (variable)
-  "Return non-nil if VARIABLE is bound and non-nil."
-  (and (boundp variable)
-       (symbol-value variable)))
-
 (defmacro gnus-eval-in-buffer-window (buffer &rest forms)
   "Pop to BUFFER, evaluate FORMS, and then return to the original window."
   (let ((tempvar (make-symbol "GnusStartBufferWindow"))