branch: master
commit 36e4d145c8b8d21b08d4ea5466979d0a7538140e
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
Respect the current input method for target chars
* avy.el (avy-goto-char):
(avy-goto-char-in-line):
(avy-goto-char-2):
(avy-goto-word-1):
(avy-goto-subword-1):
(avy-goto-char-timer): Update.
Fixes #76
---
avy.el | 16 ++++++++--------
1 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/avy.el b/avy.el
index 4498e04..9de65ad 100644
--- a/avy.el
+++ b/avy.el
@@ -700,7 +700,7 @@ STYLE determines the leading char overlay style."
(defun avy-goto-char (char &optional arg)
"Jump to the currently visible CHAR.
The window scope is determined by `avy-all-windows' (ARG negates it)."
- (interactive (list (read-char "char: ")
+ (interactive (list (read-char "char: " t)
current-prefix-arg))
(avy--with-avy-keys avy-goto-char
(avy--generic-jump
@@ -713,7 +713,7 @@ The window scope is determined by `avy-all-windows' (ARG
negates it)."
;;;###autoload
(defun avy-goto-char-in-line (char)
"Jump to the currently visible CHAR in the current line."
- (interactive (list (read-char "char: ")))
+ (interactive (list (read-char "char: " t)))
(let ((avy-all-windows nil))
(avy--with-avy-keys avy-goto-char
(avy--goto
@@ -728,8 +728,8 @@ The window scope is determined by `avy-all-windows' (ARG
negates it)."
(defun avy-goto-char-2 (char1 char2 &optional arg)
"Jump to the currently visible CHAR1 followed by CHAR2.
The window scope is determined by `avy-all-windows' (ARG negates it)."
- (interactive (list (read-char "char 1: ")
- (read-char "char 2: ")
+ (interactive (list (read-char "char 1: " t)
+ (read-char "char 2: " t)
current-prefix-arg))
(avy--with-avy-keys avy-goto-char-2
(avy--generic-jump
@@ -762,7 +762,7 @@ The window scope is determined by `avy-all-windows' (ARG
negates it)."
(defun avy-goto-word-1 (char &optional arg)
"Jump to the currently visible CHAR at a word start.
The window scope is determined by `avy-all-windows' (ARG negates it)."
- (interactive (list (read-char "char: ")
+ (interactive (list (read-char "char: " t)
current-prefix-arg))
(avy--with-avy-keys avy-goto-word-1
(let* ((str (string char))
@@ -812,7 +812,7 @@ should return true."
"Jump to the currently visible CHAR at a subword start.
The window scope is determined by `avy-all-windows' (ARG negates it).
The case of CHAR is ignored."
- (interactive (list (read-char "char: ")
+ (interactive (list (read-char "char: " t)
current-prefix-arg))
(avy--with-avy-keys avy-goto-subword-1
(let ((char (downcase char)))
@@ -934,8 +934,8 @@ ARG lines can be used."
"Read one or two consecutive chars and jump to the first one.
The window scope is determined by `avy-all-windows' (ARG negates it)."
(interactive "P")
- (let ((c1 (read-char "char 1: "))
- (c2 (read-char "char 2: " nil avy-timeout-seconds)))
+ (let ((c1 (read-char "char 1: " t))
+ (c2 (read-char "char 2: " t avy-timeout-seconds)))
(avy--with-avy-keys avy-goto-char-timer
(avy--generic-jump
(regexp-quote
