🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.vm.bug
Article #9143

5.32 vm-scroll-forward from summary buffer fix

#9143
From: Jamie Zawinski
Date: Sun, 08 Mar 1992 00:48
21 lines
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-vm

Show 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