[elpa] scratch/hyperbole-merge-7.0.2b b7beb76 02/23: Fixed hkey-throw temporary display of a buffer in a new frame

[Stefan Monnier]

branch: scratch/hyperbole-merge-7.0.2b
commit b7beb76e7acce94e7f0514d97a976c63a1549bb8
Author: Bob Weiner <address@hidden>
Commit: Bob Weiner <address@hidden>

    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  <address@hidden>
+
+* 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  <address@hidden>
 
-* 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  <address@hidden>
 
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))