hydra.el (hydra--normalize-body): Fixup for Emacs24

master
Oleh Krehel 7 years ago
parent e01a79e4b7
commit 2ad0b01611
  1. 2
      hydra.el

@ -454,7 +454,7 @@ Remove :color key. And sort the plist alphabetically."
(alist2 (cl-sort alist1 #'string< (alist2 (cl-sort alist1 #'string<
:key (lambda (x) (symbol-name (car x)))))) :key (lambda (x) (symbol-name (car x))))))
(append (list (car body) (cadr body)) (append (list (car body) (cadr body))
(mapcan (lambda (x) (list (car x) (cdr x))) alist2))))) (cl-mapcan (lambda (x) (list (car x) (cdr x))) alist2)))))
(defalias 'hydra--imf #'list) (defalias 'hydra--imf #'list)

Loading…
Cancel
Save