branch: scratch/hyperbole-merge-7.0.2b
commit b7beb76e7acce94e7f0514d97a976c63a1549bb8
Author: Bob Weiner <[email protected]>
Commit: Bob Weiner <[email protected]>
Fixed hkey-throw temporary display of a buffer in a new frame
---
Changes | 25 +++++++++++++++++--------
hmouse-drv.el | 11 ++++++-----
2 files changed, 23 insertions(+), 13 deletions(-)
diff --git a/Changes b/Changes
index 34d2859..5e947a2 100644
--- a/Changes
+++ b/Changes
@@ -1,15 +1,24 @@
+2017-12-15 Bob Weiner <[email protected]>
+
+* hmouse-drv.el (hkey-throw): Fully resolved temporary display of newly
created frames
+ with a (redisplay t) to force display of any window updates during the
temporary
+ display.
+
2017-12-13 Bob Weiner <[email protected]>
-* hmouse-drv.el (hkey-throw): Partially solved temporary display of newly
created frames (when not given focus
- initially with a '(no-focus-on-map . t) property), so hkey-throw to a new
target frame now temporarily displays
- the target frame and then makes the start frame the uppermost frame. When
on an item though, the item is
- not visible during the temporary display yet.
+* hmouse-drv.el (hkey-throw): Partially solved temporary display of newly
created frames
+ (when not given focus initially with a '(no-focus-on-map . t) property),
so hkey-throw
+ to a new target frame now temporarily displays the target frame and then
makes the start
+ frame the uppermost frame. When on an item though, the item is not
visible during the
+ temporary display yet.
-* Makefile (texinfo): Added texinfo dependency target and added additional
image dependencies in man/im.
+* Makefile (texinfo): Added texinfo dependency target and added additional
image dependencies
+ in man/im.
-* hyperbole.el (require 'hmouse-drv): Changed from hmouse-key to prevent a
require cycle during macro expansion.
- hmouse-key.el: Changed requires to just be during compile since
hyperbole.el now includes these requires and
- will load hmouse-key.
+* hyperbole.el (require 'hmouse-drv): Changed from hmouse-key to prevent a
require cycle
+ during macro expansion.
+ hmouse-key.el: Changed requires to just be during compile since hyperbole.el
now includes
+ these requires and will load hmouse-key.
2017-12-12 Bob Weiner <[email protected]>
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 8cf1e90..43239e8 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -456,32 +456,33 @@ Leave TO-WINDOW as the selected window."
;;;###autoload
(defun hkey-throw (release-window)
- "Throw either a displayable item at point or the current buffer to
RELEASE-WINDOW.
+ "Throw either a displayable item at point or the current buffer for display
in RELEASE-WINDOW.
The selected window does not change."
(interactive
(list (let ((mode-line-text (concat " Ace - " (nth 2 (assq ?t
aw-dispatch-alist)))))
(aw-select mode-line-text))))
(let ((depress-frame (selected-frame)))
(if (cadr (assq major-mode hmouse-drag-item-mode-forms))
- ;; On an item to throw
+ ;; Throw the item at point
(let ((action-key-depress-window (selected-window))
(action-key-release-window release-window)
(action-key-depress-args))
(hypb:save-selected-window-and-input-focus
(hmouse-item-to-window)
- (sit-for 0) ;; Force display of release-window
(unless (eq depress-frame (window-frame release-window))
+ ;; Force redisplay or item buffer won't be displayed here.
+ (redisplay t)
;; Show the frame thrown to before it is covered when
;; input-focus is returned to the depress-frame.
(raise-frame (window-frame release-window))
- (switch-to-buffer (current-buffer) t t)
;; Don't use sit-for here because it can be interrupted early.
(sleep-for 0.5)
)))
;; Throw the current buffer
(set-window-buffer release-window (current-buffer))
- (sit-for 0) ;; Force display of release-window
(unless (eq depress-frame (window-frame release-window))
+ ;; Force redisplay or item buffer won't be displayed here.
+ (redisplay t)
;; Show the frame thrown to before it is covered when
;; input-focus is returned to the depress-frame.
(raise-frame (window-frame release-window))
