ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 13:33:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy--line): Don't modify avy-action

Browse Source 
Fixes #124
This commit is contained in:
Oleh Krehel 2015-12-22 09:16:34 +01:00
parent 72ecbfa220
commit 47035cf4ea
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
avy.el
View File

@ -1041,8 +1041,8 @@ Narrow the scope to BEG END."
(setq temporary-goal-column 0) (setq temporary-goal-column 0)
(line-move-visual 1 t)) (line-move-visual 1 t))
(forward-line 1))))))) (forward-line 1)))))))
(setq avy-action #'identity) (let ((avy-action #'identity))
(avy--process (nreverse candidates) (avy--style-fn avy-style)))) (avy--process (nreverse candidates) (avy--style-fn avy-style)))))
;;;###autoload ;;;###autoload
(defun avy-goto-line (&optional arg) (defun avy-goto-line (&optional arg)
@ -1056,6 +1056,7 @@ When ARG is 4, negate the window scope determined by
Otherwise, forward to `goto-line' with ARG." Otherwise, forward to `goto-line' with ARG."
(interactive "p") (interactive "p")
(setq arg (or arg 1))
(if (not (memq arg '(1 4))) (if (not (memq arg '(1 4)))
(progn (progn
(goto-char (point-min)) (goto-char (point-min))