]> code.delx.au - gnu-emacs-elpa/commitdiff
hydra.el (hydra--digit-argument): Fix for Emacs 24.3
authorOleh Krehel <ohwoeowho@gmail.com>
Sat, 28 Mar 2015 17:15:58 +0000 (18:15 +0100)
committerOleh Krehel <ohwoeowho@gmail.com>
Sat, 28 Mar 2015 17:15:58 +0000 (18:15 +0100)
* hydra.el (hydra--digit-argument): Update.

Fixes #98

hydra.el

index 22f522ca4e95de033029e347166eeb43c1fa2cef..91a154e09dfd440af580545d0a563b2f19eae22a 100644 (file)
--- a/hydra.el
+++ b/hydra.el
@@ -215,7 +215,10 @@ Vanquishable only through a blue head.")
 (defun hydra--digit-argument (arg)
   "Forward to (`digit-argument' ARG)."
   (interactive "P")
-  (let ((universal-argument-map hydra-curr-map))
+  (let ((universal-argument-map
+         (if (fboundp 'universal-argument--mode)
+             hydra-curr-map
+           universal-argument-map)))
     (digit-argument arg)))
 
 (defun hydra--negative-argument (arg)