Summary for xwem--main--2.2--patch-12

[Zajcev Evgeny <lg@xxxxxxxx>]

Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/

Revision: xwem--main--2.2--patch-12
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Sat May 14 04:16:07 MSD 2005
Standard-date: 2005-05-14 00:16:07 GMT
Modified-files: lisp/xwem-minibuffer.el
New-patches: lg@xxxxxxxxxxxxxx/xwem--main--2.2--patch-12
Summary: Possible fix for Steve's problem with minib resize
Keywords: minibuffer, resize, fix

* lisp/xwem-minibuffer.el (xwem-minib-rsz-count-window-lines): Calculate
  in pixels, rather then in blocks.

* lisp/xwem-minibuffer.el (xwem-minib-rsz-resize): Use different aproach
  to calculate height difference.

Looks like (S)XEmacs has a problem somewhere calculating frame/window
height.  For properly geometryized frame `window-height' reports 0 at the
time when real height is 1.  Most probably this is gutters-related
problem, because i see this only when some gutter is enabled.  Anyway
this patch should enable work around this problem.

* added files

    {arch}/xwem/xwem--main/xwem--main--2.2/lg@xxxxxxxxxxxxxx/patch-log/patch-12

* modified files

--- orig/lisp/xwem-minibuffer.el
+++ mod/lisp/xwem-minibuffer.el
@@ -656,22 +656,23 @@
       (window-buffer (frame-selected-window (xwem-minib-frame 
xwem-minibuffer)))
     (save-excursion
       (goto-char (point-min))
-      (vertical-motion (buffer-size)))))
+      ;; XXX
+      (vertical-motion-pixels (X-Geom-height (xwem-rootgeom))))))
 
 (define-xwem-deffered xwem-minib-rsz-resize (&optional new-height)
   "Resize xwem minibuffer to fit either NEW-HEIGHT.
 If NEW-HEIGHT is ommited, current window height considered."
   (when (xwem-cl-selected-p (xwem-minib-cl xwem-minibuffer))
-    (let ((height (window-height
+    (let ((height (window-text-area-pixel-height
                    (frame-selected-window (xwem-minib-frame xwem-minibuffer))))
-          (lines (or new-height (xwem-minib-rsz-count-window-lines))))
+          (lines (or new-height (+ (face-height 'default (xwem-minib-frame 
xwem-minibuffer))
+                                   (xwem-minib-rsz-count-window-lines)))))
       (cond ((or new-height xwem-minib-resize-exact (> lines height))
              ;; Adjust xwem minibuffer cl height
              (xwem-client-resize (xwem-minib-cl xwem-minibuffer) nil
                                  (+ (X-Geom-height-with-borders
                                      (xwem-minib-cl-xgeom xwem-minibuffer))
-                                    (* (face-height 'default (xwem-minib-frame 
xwem-minibuffer))
-                                       (- lines height)))))))))
+                                    (- lines height))))))))
 
 (defvar xwem-minib-rsz-saved-height nil)