🚀 go-pugleaf

vm-scroll-forward definitely does very weird things in 5.32.
sometimes it scrolls forward too much, sometimes it scrolls when it
should just open a window, and sometimes it scrolls backward.  i
suspect that vm-scroll-forward-internal might be returning 'try-again
since on a slow terminal it seems to scroll ok sometimes and then
instantaneously scroll weirdly with just one SPC.

also, i got a fatal error (6) trying 5.32.  i did load screen.elc but
i wasn't doing weird things with configurations.  EXCEPT what i had
before and worked fine in 5.31.  here that code is.

should this code work in 5.32?  that's all i really need from window
configs, i think, other than setting the summary on top whenever i hit
h.

(defvar pre-vm-window-config nil)	;this should be a stack

(defun vm-saving-config (&optional file-name-arg)

  "Call vm, saving the window configuration first."

  (interactive)

  (let ((local-config (current-window-configuration)))
    
    ;;(delete-other-windows)
    (vm file-name-arg)
    
    (make-variable-buffer-local 'pre-vm-window-config)
    
    (if t ;(not (and (boundp 'pre-vm-window-config) pre-vm-window-config))
	(progn (setq pre-vm-window-config local-config)
	       (message "pre-vm-window-config is set")))
    
    ))

(defun vm-quit-restore-config (p)
  
  "Like vm-quit, but restores the pre-VM window configuration if there is one.
With a prefix arg, restores the old window config without exiting VM."
  
  (interactive "P")
  ;;!!call-interactively
  (if (null p) (vm-quit))
  (if pre-vm-window-config
      (progn (set-window-configuration pre-vm-window-config)
	     (setq pre-vm-window-config nil)
	     )))

hope it helps.
--
o i seek a housemate to share 1ac ~1200sf 2.5br in los altos hills.  email me.