🚀 go-pugleaf

>>>>> On 14 Feb 91 16:47:42 GMT, derge@crd.ge.com (Gillmer J. Derge) said:


Gillmer> Invoking shrink-window or enlarge-window when only one window
Gillmer> exists causes epoch to bomb.  This does no happen in emacs
Gillmer> version 18.55.  I suspect it has to do with the somewhat
Gillmer> different handling of the minibufer as a window, but that's a
Gillmer> guess.  Is there a patch to fix this?

Indeed I have experienced the bug as well and write the following
elisp hack to over come it for the time being.

-------------
(defvar resize-screen-on-window-size-change t
  "*Non nil means resize window dimentions on window size change.")

(if (not (functionp 'GNUemacs::shrink-window))
    (fset 'GNUemacs::shrink-window (symbol-function 'shrink-window)))

(defun shrink-screen-window (arg &optional lr)
  "Make current window ARG lines smaller.
From program, optional second arg non-nil means shrink sideways ARG columns."
  (interactive "p")
  (if (and (interactive-p) (not (numberp arg))) (setq arg 1))
  (if (and (not (one-window-p))
          (>= (- (if lr (screen-width) (screen-height))
                 (if lr (window-width) (window-height))
                 arg)
              0))
      (GNUemacs::shrink-window arg)
    (if resize-screen-on-window-size-change
        (if lr
            (epoch::change-screen-size (- (epoch::screen-width) arg) (epoch::scr
een-height))
            (epoch::change-screen-size (epoch::screen-width) (- (epoch::screen-h
eight) arg))))))

(defun enlarge-screen-window (arg &optional lr)
  "Make current window ARG lines smaller.
From program, optional second arg non-nil means enlarge sideways ARG columns."
  (interactive "p")
  (if (and (interactive-p) (not (numberp arg))) (setq arg 1))
  (if (and (not (one-window-p))
           (>= (- (if lr (screen-width) (screen-height))
                  (if lr (window-width) (window-height))
                  arg)
               0))
      (GNUemacs::enlarge-window arg)
    (if resize-screen-on-window-size-change
        (if lr
            (epoch::change-screen-size (+ (epoch::screen-width) arg) (epoch::scr
een-height))
            (epoch::change-screen-size (epoch::screen-width) (+ (epoch::screen-h
eight) arg))))))
----------------

I load the elisp in an (if (boundp 'epoch::version) (load <file>)) in
my .emacs

Anthony
--
Anthony Mutiso (anthony@cs.ualberta.ca)                Life-motto: Logic Rules.