diff --git a/meow-beacon.el b/meow-beacon.el index 30d136c..338506e 100644 --- a/meow-beacon.el +++ b/meow-beacon.el @@ -399,6 +399,9 @@ MATCH is the search regexp." ((word) (if (not (eq 'expand ex)) (meow--add-beacons-for-word) (meow--add-beacons-for-match (meow--beacon-region-words-to-match)))) + ((symbol) (if (not (eq 'expand ex)) + (meow--add-beacons-for-symbol) + (meow--add-beacons-for-match (meow--beacon-region-words-to-match)))) ((visit) (meow--add-beacons-for-match (car regexp-search-ring))) ((line) (meow--add-beacons-for-line)) ((join) (meow--add-beacons-for-join)) diff --git a/meow-command.el b/meow-command.el index 6caa14b..3415d5b 100644 --- a/meow-command.el +++ b/meow-command.el @@ -844,7 +844,7 @@ Use negative argument to create a backward selection." This command works similar to `meow-mark-word'." (interactive "p") - (meow-mark-thing meow-symbol-thing 'word (< n 0) "\\_<%s\\_>")) + (meow-mark-thing meow-symbol-thing 'symbol (< n 0) "\\_<%s\\_>")) (defun meow--forward-thing-1 (thing) (let ((pos (point))) @@ -927,7 +927,7 @@ To select continuous symbols, use following approaches: 3. use `meow-expand' after this command." (interactive "p") - (meow-next-thing meow-symbol-thing 'word n)) + (meow-next-thing meow-symbol-thing 'symbol n)) (defun meow-back-word (n) "Select to the beginning the previous Nth word. @@ -943,7 +943,7 @@ This command works similar to `meow-next-word'." A non-expandable word selection will be created. This command works similar to `meow-next-symbol'." (interactive "p") - (meow-next-thing meow-symbol-thing 'word (- n))) + (meow-next-thing meow-symbol-thing 'symbol (- n))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; LINE SELECTION