[elpa] master 90a4e76 4/9: hydra.el (hydra-disable): Call the exit action only in one frame

[Oleh Krehel]

branch: master
commit 90a4e76c378239940e22696f02b6843b162da2fd
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    hydra.el (hydra-disable): Call the exit action only in one frame
    
    * hydra.el (hydra-disable): Move the action calling code out
      of (frame-list) loop.
    
    The (frame-list) loop was added to fix #105 to restor the
    terminal-local-map in all frames. There's no reason for action-calling
    code to be in that loop.
    
    Fixes #169.
---
 hydra.el |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/hydra.el b/hydra.el
index 16d44b0..d4160bf 100644
--- a/hydra.el
+++ b/hydra.el
@@ -149,12 +149,12 @@ warn: keep KEYMAP and issue a warning instead of running 
the command."
   (dolist (frame (frame-list))
     (with-selected-frame frame
       (when overriding-terminal-local-map
-        (internal-pop-keymap hydra-curr-map 'overriding-terminal-local-map)
-        (unless hydra--ignore
-          (when hydra-curr-on-exit
-            (let ((on-exit hydra-curr-on-exit))
-              (setq hydra-curr-on-exit nil)
-              (funcall on-exit))))))))
+        (internal-pop-keymap hydra-curr-map 'overriding-terminal-local-map))))
+  (unless hydra--ignore
+    (when hydra-curr-on-exit
+      (let ((on-exit hydra-curr-on-exit))
+        (setq hydra-curr-on-exit nil)
+        (funcall on-exit)))))
 
 (unless (fboundp 'internal-push-keymap)
   (defun internal-push-keymap (keymap symbol)