Article View: gnu.emacs.vm.bug
Article #91435.32 vm-scroll-forward from summary buffer fix
From: Jamie Zawinski
Date: Sun, 08 Mar 1992 00:48
Date: Sun, 08 Mar 1992 00:48
21 lines
1200 bytes
1200 bytes
vm-howl-if-eom was not correctly encapsulating the call to scroll-up when
the selected window was not the message window. Here's the fix:
(defun vm-howl-if-eom ()
(let ((vmp vm-message-pointer))
(vm-within-current-message-buffer
(let ((w (get-buffer-window (current-buffer)))
(vm-message-pointer vmp))
(and w
(save-excursion
(save-window-excursion
(condition-case ()
(let ((next-screen-context-lines 0))
(select-window w)
(save-excursion
(save-window-excursion
(scroll-up nil)))
nil)
(error t))))
(= (vm-text-end-of (car vm-message-pointer)) (point-max))
(vm-emit-eom-blurb))))))
Technical Details
Message-ID:
<9203080048.AA05370@thalidomide.lucid>Path:
arc1-ca.pugleaf.net!sparky!uunet!wendy-fate.uu.net!bug-vmShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: f6829,54a7b78bd10f3e06,start X-Google-Attributes: gidf6829,public X-Google-ArrivalTime: 1992-03-05 17:09:36 PST Newsgroups: gnu.emacs.vm.bug Sender: bug-vm-request@uunet.uu.net Date: Sat, 7 Mar 92 16:48:10 PST Message-ID: <9203080048.AA05370@thalidomide.lucid> X-Windows: The problem for your problem. From: Jamie Zawinski <jwz@lucid.com> Subject: 5.32 vm-scroll-forward from summary buffer fix Path: arc1-ca.pugleaf.net!sparky!uunet!wendy-fate.uu.net!bug-vm