[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 59c6b9d 26/36: Expose chars to be read as args.
From: |
Oleh Krehel |
Subject: |
[elpa] master 59c6b9d 26/36: Expose chars to be read as args. |
Date: |
Tue, 19 May 2015 12:38:17 +0000 |
branch: master
commit 59c6b9d15efa31556784ece9c08f91ae1b1dc304
Author: Yang Zhao <address@hidden>
Commit: Yang Zhao <address@hidden>
Expose chars to be read as args.
---
avy.el | 34 +++++++++++++++++++---------------
1 files changed, 19 insertions(+), 15 deletions(-)
diff --git a/avy.el b/avy.el
index 637a339..860aea8 100644
--- a/avy.el
+++ b/avy.el
@@ -516,29 +516,31 @@ STYLE determines the leading char overlay style."
;;* Commands
;;;###autoload
-(defun avy-goto-char (&optional arg)
+(defun avy-goto-char (arg char)
"Read one char and jump to it.
The window scope is determined by `avy-all-windows' (ARG negates it)."
- (interactive "P")
+ (interactive (list current-prefix-arg
+ (read-char "char: ")))
(avy--with-avy-keys avy-goto-char
(avy--generic-jump
- (let ((c (read-char "char: ")))
- (if (= 13 c)
+ (if (= 13 char)
"\n"
- (regexp-quote (string c))))
+ (regexp-quote (string char)))
arg
avy-style)))
;;;###autoload
-(defun avy-goto-char-2 (&optional arg)
+(defun avy-goto-char-2 (arg char1 char2)
"Read two consecutive chars and jump to the first one.
The window scope is determined by `avy-all-windows' (ARG negates it)."
- (interactive "P")
+ (interactive (list current-prefix-arg
+ (read-char "char 1: ")
+ (read-char "char 2: ")))
(avy--with-avy-keys avy-goto-char-2
(avy--generic-jump
(regexp-quote (string
- (read-char "char 1: ")
- (read-char "char 2: ")))
+ char1
+ char2))
arg
avy-style)))
@@ -564,12 +566,13 @@ The window scope is determined by `avy-all-windows' (ARG
negates it)."
(avy--generic-jump "\\b\\sw" arg avy-style)))
;;;###autoload
-(defun avy-goto-word-1 (&optional arg)
+(defun avy-goto-word-1 (arg char)
"Read one char at word start and jump there.
The window scope is determined by `avy-all-windows' (ARG negates it)."
- (interactive "P")
+ (interactive (list current-prefix-arg
+ (read-char "char: ")))
(avy--with-avy-keys avy-goto-word-1
- (let* ((str (string (read-char "char: ")))
+ (let* ((str (string char))
(regex (cond ((string= str ".")
"\\.")
((and avy-word-punc-regexp
@@ -612,13 +615,14 @@ should return true."
(avy--process candidates (avy--style-fn avy-style))))))
;;;###autoload
-(defun avy-goto-subword-1 (&optional arg)
+(defun avy-goto-subword-1 (arg char)
"Prompt for a subword start char and jump there.
The window scope is determined by `avy-all-windows' (ARG negates it).
The case is ignored."
- (interactive "P")
+ (interactive (list current-prefix-arg
+ (read-char "char: ")))
(avy--with-avy-keys avy-goto-subword-1
- (let ((char (downcase (read-char "char: "))))
+ (let ((char (downcase char)))
(avy-goto-subword-0
arg (lambda () (eq (downcase (char-after)) char))))))
- [elpa] master a39f689 22/36: Allow all kinds of styles for `avy-goto-line', (continued)
- [elpa] master a39f689 22/36: Allow all kinds of styles for `avy-goto-line', Oleh Krehel, 2015/05/19
- [elpa] master 92a7884 32/36: avy.el (avy-window-list): Fixup last commit, Oleh Krehel, 2015/05/19
- [elpa] master a4f4015 33/36: avy.el (avy--overlay-at-full): Check overlay window, Oleh Krehel, 2015/05/19
- [elpa] master dc06220 29/36: Fix the at-full style interaction with tabs, Oleh Krehel, 2015/05/19
- [elpa] master b288c69 31/36: make compile should run checkdoc, Oleh Krehel, 2015/05/19
- [elpa] master 199c526 35/36: Bump version, Oleh Krehel, 2015/05/19
- [elpa] master 4b4b7b4 28/36: README.md: Add a link to the wiki for defcustoms, Oleh Krehel, 2015/05/19
- [elpa] master be74714 34/36: avy.el (avy--overlay-at-full): Work-around 20607, Oleh Krehel, 2015/05/19
- [elpa] master d6b741b 30/36: Allow for all operations to work across frames, Oleh Krehel, 2015/05/19
- [elpa] master 50cfc74 27/36: Fixup the last commit and add contribution guidelines, Oleh Krehel, 2015/05/19
- [elpa] master 59c6b9d 26/36: Expose chars to be read as args.,
Oleh Krehel <=
- [elpa] master e559638 36/36: Merge commit '199c52606dcd614cb856bbcaca13b5fada0772b6' from avy, Oleh Krehel, 2015/05/19