emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 36e4d14 03/78: Respect the current input method for target


From: Oleh Krehel
Subject: [elpa] master 36e4d14 03/78: Respect the current input method for target chars
Date: Sat, 23 Jan 2016 13:59:35 +0000

branch: master
commit 36e4d145c8b8d21b08d4ea5466979d0a7538140e
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]