diff options
| author | Lars Ingebrigtsen | 2019-06-13 01:29:27 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-13 01:29:27 +0200 |
| commit | 9645b5752a3e40754d22d9e805778e95fdc86337 (patch) | |
| tree | f3788f8e1b3067f070256ee3c33be9436945e03a | |
| parent | 1743da11d0fdbb24f6c6e8d084e98d0b6e4d3f62 (diff) | |
| download | emacs-9645b5752a3e40754d22d9e805778e95fdc86337.tar.gz emacs-9645b5752a3e40754d22d9e805778e95fdc86337.zip | |
Compilation warning fix in feedmail.el
* lisp/mail/feedmail.el (feedmail-scroll-buffer): Remove XEmacs
compat code (that gave a compilation warning).
| -rw-r--r-- | lisp/mail/feedmail.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 180e32bee4c..943bdd88510 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -2198,8 +2198,7 @@ you can set `feedmail-queue-reminder-alist' to nil." | |||
| 2198 | ;; emacs convention is that scroll-up moves text up, window down | 2198 | ;; emacs convention is that scroll-up moves text up, window down |
| 2199 | (feedmail-say-debug ">in-> feedmail-scroll-buffer %s" direction) | 2199 | (feedmail-say-debug ">in-> feedmail-scroll-buffer %s" direction) |
| 2200 | (save-selected-window | 2200 | (save-selected-window |
| 2201 | (let ((signal-error-on-buffer-boundary nil) ;FIXME: Unknown var!? | 2201 | (let ((fqm-window (display-buffer (if buffy buffy (current-buffer))))) |
| 2202 | (fqm-window (display-buffer (if buffy buffy (current-buffer))))) | ||
| 2203 | (select-window fqm-window) | 2202 | (select-window fqm-window) |
| 2204 | (if (eq direction 'up) | 2203 | (if (eq direction 'up) |
| 2205 | (if (pos-visible-in-window-p (point-max) fqm-window) | 2204 | (if (pos-visible-in-window-p (point-max) fqm-window) |