From e22d740c30ff5b3f7749c542b7dc0c454eb69f98 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Thu, 30 Mar 2017 22:22:47 -0400 Subject: [PATCH] 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 be46339cd38..90f3cb48c27 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 20eceb58edd..b509d8ad448 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")) -- 2.39.2