ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2026-02-04 06:42:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add debug declarations

Browse Source
This commit is contained in:
Oleh Krehel
2015-05-11 14:39:01 +02:00
parent dfbf0e21a6
commit ca69b1f5a0
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
avy.el
View File

@@ -231,7 +231,8 @@ multiple DISPLAY-FN invokations."
;;** Rest ;;** Rest
(defmacro avy-dowindows (flip &rest body) (defmacro avy-dowindows (flip &rest body)
"Depending on FLIP and `avy-all-windows' run BODY in each or selected window." "Depending on FLIP and `avy-all-windows' run BODY in each or selected window."
(declare (indent 1)) (declare (indent 1)
(debug (form body)))
`(let ((avy-all-windows (if ,flip `(let ((avy-all-windows (if ,flip
(not avy-all-windows) (not avy-all-windows)
avy-all-windows))) avy-all-windows)))
@@ -244,7 +245,8 @@ multiple DISPLAY-FN invokations."
(defmacro avy--with-avy-keys (command &rest body) (defmacro avy--with-avy-keys (command &rest body)
"Set `avy-keys' according to COMMAND and execute BODY." "Set `avy-keys' according to COMMAND and execute BODY."
(declare (indent 1)) (declare (indent 1)
(debug (form body)))
`(let ((avy-keys (or (cdr (assq ',command avy-keys-alist)) `(let ((avy-keys (or (cdr (assq ',command avy-keys-alist))
avy-keys)) avy-keys))
(avy-style (or (cdr (assq ',command avy-styles-alist)) (avy-style (or (cdr (assq ',command avy-styles-alist))