Summary for xwem--main--2.1--patch-36

[Zajcev Evgeny <lg@xxxxxxxx>]

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

Revision: xwem--main--2.1--patch-36
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Mon Mar 21 00:47:29 MSK 2005
Standard-date: 2005-03-20 21:47:29 GMT
Modified-files: lisp/xwem-keyboard.el
New-patches: lg@xxxxxxxxxxxxxx/xwem--main--2.1--patch-36
Summary: Keys echoing (minor)
Keywords: keys, echo

* lisp/xwem-keyboard.el (xwem-kbd-dispatch-binding): [addon] Echo last
  key before executing macro.

* added files

    {arch}/xwem/xwem--main/xwem--main--2.1/lg@xxxxxxxxxxxxxx/patch-log/patch-36

* modified files

--- orig/lisp/xwem-keyboard.el
+++ mod/lisp/xwem-keyboard.el
@@ -1227,6 +1227,7 @@
                (when (and (X-Event-p xwem-last-xevent)
                           (= (X-Event-type xwem-last-xevent) X-KeyPress))
                  (xwem-kbd-wait-key-release (X-Event-xkey-keycode 
xwem-last-xevent)))
+               (xwem-kbd-schedule-command-keys-echoing)
                (xwem-kbd-stop-grabbing)
                (xwem-keymacro-internal-play lkm (prefix-numeric-value 
xwem-prefix-arg)))
 
@@ -1237,11 +1238,9 @@
                           (not (or (xwem-frame-p (xwem-cl-frame 
xwem-event-client))
                                    (eq (xwem-dummy-client) 
xwem-event-client))))
                  (setq lkm 'ignore))
-
-               ;; Schedule it in hope that it will install prefix map
                (xwem-kbd-schedule-command-keys-echoing)
 
-               ;; Execute command
+               ;; Execute LKM command
                (setq xwem-this-command lkm)
                (run-hooks 'xwem-pre-command-hook)
                (call-interactively xwem-this-command)