home *** CD-ROM | disk | FTP | other *** search
- x-gateway: rodan.UU.NET from bug-vm to gnu.emacs.vm.bug; Fri, 6 Nov 1992 12:09:05 EST
- Date: Fri, 6 Nov 1992 11:00:06 -0500
- From: pds@lemming.webo.dg.com (Paul D. Smith)
- Message-ID: <9211061600.AA05042@lemming.webo.dg.com>
- Subject: VM Scrolling bug found?
- Newsgroups: gnu.emacs.vm.bug
- Path: sparky!uunet!wendy-fate.uu.net!bug-vm
- Sender: bug-vm-request@uunet.uu.net
- Lines: 45
-
- Further checking reveals some more facts, and a solution (maybe?) to
- the VM 5.32beta vm-scroll-forward problem I reported yesterday.
-
- * The problem only happens in vm-mutable-windows is t, not nil (I
- didn't try another value).
-
- * If you have a summary and a message displayed, then you use 'n' to
- get to the next message, it displays properly.
-
- However, if you then (with the cursor in the summary window) press
- SPC, it jumps forward about 1 1/2 pages in the message buffer so
- you lose part of the message.
-
- I commented out the (scroll-up nil) line from
- vm-page.el:vm-howl-if-eom and all the above problems were fixed. I
- don't know what the problem was/is, since it *seems* like the
- save-window-excursion should take care of this scroll-up, but it
- causes all sorts of problems and removing it doesn't seem to have much
- of an effect.
-
- Patch below. If anyone has a better idea of what's going on/how to
- fix it, please let me know, thanks,
-
- paul
- -----
- ------------------------------------------------------------------
- | Paul D. Smith | paul_smith@dg.com |
- | Data General Corp. | pds@lemming.webo.dg.com |
- | Network Systems Development Division | |
- | Open Network Systems Development | "Pretty Damn S..." |
- ------------------------------------------------------------------
- -------------------------------------------------------------------------------
- --- vm-page.el-dist Mon Apr 22 20:50:05 1991
- +++ vm-page.el Fri Nov 6 10:46:52 1992
- @@ -124,7 +124,9 @@
- (save-window-excursion
- (let ((next-screen-context-lines 0))
- (condition-case ()
- - (progn (select-window w) (scroll-up nil) nil)
- + (progn (select-window w)
- + ;(scroll-up nil)
- + nil)
- (error t)))))
- (= (vm-text-end-of (car vm-message-pointer)) (point-max))
- (vm-emit-eom-blurb))))))
-