diff options
| author | Mark Oteiza | 2017-03-30 22:22:47 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-03-30 22:22:47 -0400 |
| commit | e22d740c30ff5b3f7749c542b7dc0c454eb69f98 (patch) | |
| tree | 0cbe92074da670272474f20eb19590fbd6f5b7a8 | |
| parent | d1e113ee60a0750acbbc0da569f7cc1bab88f11c (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-util.el | 5 |
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")) |