Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/
Revision: xwem--main--2.1--patch-28
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Mon Feb 28 22:57:39 MSK 2005
Standard-date: 2005-02-28 19:57:39 GMT
Modified-files: lisp/xwem-events.el lisp/xwem-minibuffer.el
lisp/xwem-win.el
New-patches: dev@xxxxxxxxxxxxxxxx/xwem--dev--2.1--patch-23
dev@xxxxxxxxxxxxxxxx/xwem--dev--2.1--patch-24
lg@xxxxxxxxxxxxxx/xwem--main--2.1--patch-28
Summary: bug fixes
Keywords: event, win, minibuffer
* lisp/xwem-events.el (xwem-event-client): [bug fix]
* lisp/xwem-win.el (xwem-window-set-pixsize): [bug fix]
* lisp/xwem-minibuffer.el (xwem-minibuffer-map): [addon] C-<button1>
bound to `xwem-client-imove' by default.
* added files
{arch}/xwem/xwem--dev/xwem--dev--2.1/dev@xxxxxxxxxxxxxxxx/patch-log/patch-23
{arch}/xwem/xwem--dev/xwem--dev--2.1/dev@xxxxxxxxxxxxxxxx/patch-log/patch-24
{arch}/xwem/xwem--main/xwem--main--2.1/lg@xxxxxxxxxxxxxx/patch-log/patch-28
* modified files
--- orig/lisp/xwem-events.el
+++ mod/lisp/xwem-events.el
@@ -126,14 +126,10 @@
;;;###xwem-autoload
(defun xwem-event-client (xev)
"Return client where X event XEV occured."
- (let* ((xwin (and (X-Event-p xev)
- (X-Event-CASE xev
- ((:X-ButtonPress :X-ButtonRelease)
- (X-Event-xbutton-event xev))
- (:X-MotionNotify
- (X-Event-xmotion-event xev)))))
- (cl (or (and xwin (xwem-xwin-cl xwin)) (xwem-cl-selected))))
- cl))
+ (or (and (X-Event-p xev)
+ (X-Win-p (X-Event-win xev))
+ (xwem-xwin-cl (X-Event-win xev)))
+ (xwem-cl-selected)))
;;;###xwem-autoload
(defun xwem-next-event (&optional timeout evt-list)
--- orig/lisp/xwem-minibuffer.el
+++ mod/lisp/xwem-minibuffer.el
@@ -261,6 +261,7 @@
(defvar xwem-minibuffer-map
(let ((map (make-sparse-keymap)))
(define-key map (xwem-kbd "H-g") 'minibuffer-keyboard-quit)
+ (define-key map (xwem-kbd "C-<button1>") 'xwem-client-imove)
map)
"Keymap used while in xwem.")
--- orig/lisp/xwem-win.el
+++ mod/lisp/xwem-win.el
@@ -816,14 +816,14 @@
;; nsize < min-size temporary, but then resizes again to
;; better size, so we will not delete them.
(xwem-deffered-funcall
- `#'(lambda (window)
- (when (< (if ,is-height
- (xwem-win-height window)
- (xwem-win-width window))
- (if ,is-height
- xwem-win-min-height
- xwem-win-min-width))
- (xwem-window-delete window)))
+ `(lambda (window)
+ (when (< (if ,is-height
+ (xwem-win-height window)
+ (xwem-win-width window))
+ (if ,is-height
+ xwem-win-min-height
+ xwem-win-min-width))
+ (xwem-window-delete window)))
window))
(if is-height
|