summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-07-31 22:36:19 -0400
committerKyle Meyer <kyle@kyleam.com>2015-07-31 22:36:19 -0400
commit808e4c576e1b751570ea8436bc89b697ea2fa35a (patch)
tree92cb8e8428e1938f7023ad98b4ddab4373d933ef
parenta7ed888cc820832b0f41e7d280c5fa38b103d9d8 (diff)
downloademacs.d-808e4c576e1b751570ea8436bc89b697ea2fa35a.tar.gz
Remove km/avy-goto-subword-1
I added this because avy-goto-subword-1 was offering invisible text in Org mode buffers as candidates. However, this no longer seems to be the case (and perhaps I was mistaken to begin with or there was something else going on, because I don't see an obvious commit in the avy repo that changes this behavior.)
-rw-r--r--lisp/init-ace.el11
-rw-r--r--lisp/init-mail.el2
-rw-r--r--lisp/init-org.el2
-rw-r--r--lisp/init-view.el2
4 files changed, 4 insertions, 13 deletions
diff --git a/lisp/init-ace.el b/lisp/init-ace.el
index 9ec2727..2083a64 100644
--- a/lisp/init-ace.el
+++ b/lisp/init-ace.el
@@ -2,16 +2,7 @@
(require 'avy)
-(defun km/avy-goto-subword-1 (char arg)
- "Like `avy-goto-subword-1', but don't consider invisible text."
- (interactive (list (read-char "char: ") current-prefix-arg))
- (avy--with-avy-keys avy-goto-subword-1
- (let ((char (downcase char)))
- (avy-goto-subword-0
- arg (lambda () (and (not (invisible-p (point)))
- (eq (downcase (char-after)) char)))))))
-
-(key-chord-define-global "jf" 'km/avy-goto-subword-1)
+(key-chord-define-global "jf" 'avy-goto-subword-1)
;;; Ace Link
diff --git a/lisp/init-mail.el b/lisp/init-mail.el
index 1b4331d..3413052 100644
--- a/lisp/init-mail.el
+++ b/lisp/init-mail.el
@@ -96,7 +96,7 @@ is off."
(defun km/gnus-avy-goto-subword-and-select ()
(interactive)
- (call-interactively #'km/avy-goto-subword-1)
+ (call-interactively #'avy-goto-subword-1)
(gnus-summary-scroll-up 0))
(defun km/gnus-follow-last-message-link (copy)
diff --git a/lisp/init-org.el b/lisp/init-org.el
index a7ffd81..4793a2f 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -483,7 +483,7 @@ displayed in the agenda."
(defun km/org-agenda-avy-goto-subword-1 ()
(interactive)
- (call-interactively #'km/avy-goto-subword-1)
+ (call-interactively #'avy-goto-subword-1)
(org-agenda-do-context-action))
(define-key km/global-org-map "a" 'org-agenda)
diff --git a/lisp/init-view.el b/lisp/init-view.el
index e80160f..9a4536c 100644
--- a/lisp/init-view.el
+++ b/lisp/init-view.el
@@ -6,7 +6,7 @@
(define-key view-mode-map "b" 'backward-word)
(define-key view-mode-map "]" 'forward-paragraph)
(define-key view-mode-map "[" 'backward-paragraph)
- (define-key view-mode-map "j" 'km/avy-goto-subword-1))
+ (define-key view-mode-map "j" 'avy-goto-subword-1))
(key-chord-define-global "hq" 'view-mode)