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

avy.el (avy-goto-line): Allow numeric prefix arg

Browse Source 
The old behavior remains for ARG 1 and 4. For all other ARG, simply go
to that line.

Fixes #86
This commit is contained in:
Oleh Krehel 2015-08-21 14:22:56 +02:00
parent 53d457cfe4
commit ed120ea164
1 changed files with 29 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
avy.el
View File

@ -935,24 +935,35 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
;;;###autoload
(defun avy-goto-line (&optional arg)
"Jump to a line start in current buffer.
The window scope is determined by `avy-all-windows' (ARG negates it)."
(interactive "P")
(avy-with avy-goto-line
(let* ((avy-handler-function
(lambda (char)
(if (or (< char ?0)
(> char ?9))
(avy-handler-default char)
(let ((line (read-from-minibuffer
"Goto line: " (string char))))
(when line
(avy-push-mark)
(goto-char (point-min))
(forward-line (1- (string-to-number line)))
(throw 'done 'exit))))))
(r (avy--line arg)))
(unless (eq r t)
(avy-action-goto r)))))
When ARG is 1, jump to lines currently visible, with the option
to cancel to `goto-line' by entering a number.
When ARG is 4, negate the window scope determined by
`avy-all-windows'.
Otherwise, forward to `goto-line' with ARG."
(interactive "p")
(if (not (memq arg '(1 4)))
(progn
(goto-char (point-min))
(forward-line arg))
(avy-with avy-goto-line
(let* ((avy-handler-function
(lambda (char)
(if (or (< char ?0)
(> char ?9))
(avy-handler-default char)
(let ((line (read-from-minibuffer
"Goto line: " (string char))))
(when line
(avy-push-mark)
(goto-char (point-min))
(forward-line (1- (string-to-number line)))
(throw 'done 'exit))))))
(r (avy--line (eq arg 4))))
(unless (eq r t)
(avy-action-goto r))))))
;;;###autoload
(defun avy-copy-line (arg)