Fix undefined function & update docs for symbol command

COMMANDS.org

@@ -32,19 +32,19 @@ Move cursor prev/next and select, the selection can be expand by other char move
 
 *** meow-mark-word/symbol
 
-Selection Type: ~expand word~
+Selection Type: ~expand word/symbol~
 
 Select current word/symbol(from its beginning to end), push the content into ~regexp-search-ring~.
 
 *** meow-next-word/symbol
 
-Selection Type: ~no-expand word~
+Selection Type: ~no-expand word/symbol~
 
 Forward select to the word/symbol end.
 
 *** meow-back-word/symbol
 
-Selection type: ~no-expand word~
+Selection type: ~no-expand word/symbol~
 
 Backward select to the word/symbol beginning.
 

TUTORIAL.org

@@ -144,8 +144,8 @@ BEACON state will be disabled automatically when cursor moves out or secondary s
 Once BEACON state is enabled, you can create fake cursors/regions with movement commands.
 
 - ~meow-left/right~ will create cursors in current column.
-- ~meow-next/back-word/symbol~ will create cursors at words' beginning or end.
-- ~meow-mark-word/symbol~ will create regions for every same words.
+- ~meow-next/back-word/symbol~ will create cursors at words'/symbols' beginning or end.
+- ~meow-mark-word/symbol~ will create regions for every same words/symbols.
 - ~meow-visit/search~ will create regions for every same regexp.
 - ~meow-find/till~ will create cursors for every same characters.
 - ~meow-line~ will create regions for every N lines. (N is the number of selected lines).

meow-beacon.el

@@ -208,7 +208,7 @@ same way, and escape each time the macro is applied."
             (forward-line 1)))))
     (setq meow--beacon-overlays (reverse meow--beacon-overlays))))
 
-(defun meow--add-beacons-for-word ()
+(defun meow--add-beacons-for-thing (thing)
   "Add beacon for word movement."
   (save-restriction
     (meow--narrow-secondary-selection)
@@ -219,15 +219,15 @@ same way, and escape each time the macro is applied."
             (save-mark-and-excursion
               (goto-char (point-min))
               (while (let ((p (point)))
-                       (forward-thing meow-word-thing 1)
+                       (forward-thing thing 1)
                        (not (= p (point))))
                 (unless (= (point) orig)
                   (meow--beacon-add-overlay-at-point (meow--hack-cursor-pos (point)))))))
 
         (save-mark-and-excursion
           (goto-char (point-max))
           (while (let ((p (point)))
-                       (forward-thing meow-word-thing -1)
+                       (forward-thing thing -1)
                        (not (= p (point))))
             (unless (= (point) orig)
               (meow--beacon-add-overlay-at-point (point))))))))
@@ -397,10 +397,10 @@ MATCH is the search regexp."
       (cl-case type
         ((nil transient) (meow--add-beacons-for-char))
         ((word) (if (not (eq 'expand ex))
-                    (meow--add-beacons-for-word)
+                    (meow--add-beacons-for-thing meow-word-thing)
                   (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-thing meow-symbol-thing)
                   (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))