Skip to content
This repository
Browse code

Merge pull request #6 from lewang/master

a couple of `ace-jump-mode-case-sensitive-search'  related fixes
1. change 'ace-jump-mode-case-sensitive-search' value to be based on 'case-fold-search'
2. rename 'ace-jump-mode-case-sensitive-search' to the more canonical 'ace-jump-mode-case-fold'
  • Loading branch information...
commit 10f4e6362d7f4688c4cae8a5cacb858eacd099a5 2 parents 6bd0d21 + f84547a
winterTTr authored

Showing 1 changed file with 5 additions and 5 deletions. Show diff stats Hide diff stats

  1. +5 5 ace-jump-mode.el
10 ace-jump-mode.el
@@ -93,7 +93,7 @@
93 93 (defvar ace-jump-word-mode-use-query-char t
94 94 "If we need to ask for the query char before enter `ace-jump-word-mode'")
95 95
96   -(defvar ace-jump-mode-case-sensitive-search t
  96 +(defvar ace-jump-mode-case-fold case-fold-search
97 97 "If non-nil, the ace-jump mode will use case-sensitive search
98 98 Otherwise, ace-jump mode will use case-insensitive search.")
99 99
@@ -197,7 +197,7 @@ RE-QUERY-STRING should be an valid regex used for `search-forward-regexp'.
197 197 You can also specify the START-POINT , END-POINT.
198 198 If you omit them, it will use the full screen in current window.
199 199
200   -You can control whether use the case sensitive or not by `ace-jump-mode-case-sensitive-search'.
  200 +You can control whether use the case sensitive or not by `ace-jump-mode-case-fold'.
201 201
202 202 Every possible `match-beginning' will be collected and return as a list."
203 203 (let* ((current-window (selected-window))
@@ -205,7 +205,7 @@ Every possible `match-beginning' will be collected and return as a list."
205 205 (end-point (or end-point (window-end current-window))))
206 206 (save-excursion
207 207 (goto-char start-point)
208   - (let ((case-fold-search (not ace-jump-mode-case-sensitive-search)))
  208 + (let ((case-fold-search ace-jump-mode-case-fold))
209 209 (loop while (search-forward-regexp re-query-string end-point t)
210 210 collect (match-beginning 0))))))
211 211
@@ -318,7 +318,7 @@ QUERY-STRING should be a valid regexp string, which finally pass to `search-forw
318 318 You can set the search area by START-POINT and END-POINT.
319 319 If you omit them, use the full screen as default.
320 320
321   -You can constrol whether use the case sensitive via `ace-jump-mode-case-sensitive-search'.
  321 +You can constrol whether use the case sensitive via `ace-jump-mode-case-fold'.
322 322 "
323 323 ;; we check the move key to make it valid, cause it can be customized by user
324 324 (if (or (null ace-jump-mode-move-keys)
@@ -468,7 +468,7 @@ If you don't like the default move keys, you can change it by
468 468 setting `ace-jump-mode-move-keys'.
469 469
470 470 You can constrol whether use the case sensitive via
471   -`ace-jump-mode-case-sensitive-search'.
  471 +`ace-jump-mode-case-fold'.
472 472 "
473 473 (interactive "p")
474 474 (let ((index (/ prefix 4))

0 comments on commit 10f4e63

Please sign in to comment.
Something went wrong with that request. Please try again.