[elpa] master 39eed63 20/22: hydra.el (hydra-disable): Deactivate key-chord advice more

[Oleh Krehel]

branch: master
commit 39eed63d6c050319a140e24621061199f8126ef5
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    hydra.el (hydra-disable): Deactivate key-chord advice more
    
    * hydra.el (hydra-disable): Deactivate key-chord advice even if
      `overriding-terminal-local-map' is nil. This situation can happen with
      `multiple-cursors', since it calls `hydra-disable' multiple times, and
      `hydra-default-pre' is called multiple times as well.
    
    Fixes #163
---
 hydra.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/hydra.el b/hydra.el
index 3d42c38..a7c36bb 100644
--- a/hydra.el
+++ b/hydra.el
@@ -141,16 +141,16 @@ warn: keep KEYMAP and issue a warning instead of running 
the command."
   "Disable the current Hydra."
   (setq hydra-deactivate nil)
   (remove-hook 'pre-command-hook 'hydra--clearfun)
+  (if (fboundp 'remove-function)
+      (remove-function input-method-function #'hydra--imf)
+    (when hydra--input-method-function
+      (setq input-method-function hydra--input-method-function)
+      (setq hydra--input-method-function nil)))
   (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
-          (if (fboundp 'remove-function)
-              (remove-function input-method-function #'hydra--imf)
-            (when hydra--input-method-function
-              (setq input-method-function hydra--input-method-function)
-              (setq hydra--input-method-function nil)))
           (when hydra-curr-on-exit
             (let ((on-exit hydra-curr-on-exit))
               (setq hydra-curr-on-exit nil)