aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2017-03-30 22:22:47 -0400
committerMark Oteiza2017-03-30 22:22:47 -0400
commite22d740c30ff5b3f7749c542b7dc0c454eb69f98 (patch)
tree0cbe92074da670272474f20eb19590fbd6f5b7a8
parentd1e113ee60a0750acbbc0da569f7cc1bab88f11c (diff)
downloademacs-e22d740c30ff5b3f7749c542b7dc0c454eb69f98.tar.gz
emacs-e22d740c30ff5b3f7749c542b7dc0c454eb69f98.zip
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.
-rw-r--r--lisp/gnus/gnus-start.el2
-rw-r--r--lisp/gnus/gnus-util.el5
2 files changed, 1 insertions, 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."
3196 3196
3197(defun gnus-display-time-event-handler () 3197(defun gnus-display-time-event-handler ()
3198 (if (and (fboundp 'display-time-event-handler) 3198 (if (and (fboundp 'display-time-event-handler)
3199 (gnus-boundp 'display-time-timer)) 3199 (bound-and-true-p display-time-timer))
3200 (display-time-event-handler))) 3200 (display-time-event-handler)))
3201 3201
3202(defun gnus-check-reasonable-setup () 3202(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."
84 (declare (obsolete replace-regexp-in-string "26.1")) 84 (declare (obsolete replace-regexp-in-string "26.1"))
85 (replace-regexp-in-string regexp newtext string nil literal)) 85 (replace-regexp-in-string regexp newtext string nil literal))
86 86
87(defun gnus-boundp (variable)
88 "Return non-nil if VARIABLE is bound and non-nil."
89 (and (boundp variable)
90 (symbol-value variable)))
91
92(defmacro gnus-eval-in-buffer-window (buffer &rest forms) 87(defmacro gnus-eval-in-buffer-window (buffer &rest forms)
93 "Pop to BUFFER, evaluate FORMS, and then return to the original window." 88 "Pop to BUFFER, evaluate FORMS, and then return to the original window."
94 (let ((tempvar (make-symbol "GnusStartBufferWindow")) 89 (let ((tempvar (make-symbol "GnusStartBufferWindow"))