procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove gnus-boundp

Browse source 
* lisp/gnus/gnus-start.el (gnus-display-time-event-handler): Use
bound-and-true-p.
* lisp/gnus/gnus-util (gnus-boundp): Remove.
This commit is contained in:
Mark Oteiza 2017-03-30 22:22:47 -04:00
parent d1e113ee60
commit e22d740c30
2 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-start.el
View file

@ -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 ()

5
lisp/gnus/gnus-util.el
View file

@ -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"))