3159 |
If optional arg REALLY-WORD is non-nil, it finds just a word." |
If optional arg REALLY-WORD is non-nil, it finds just a word." |
3160 |
(save-excursion |
(save-excursion |
3161 |
(let* ((oldpoint (point)) (start (point)) (end (point)) |
(let* ((oldpoint (point)) (start (point)) (end (point)) |
3162 |
(syntaxes (if really-word "w_" "w")) |
(syntaxes (if really-word "w" "w_")) |
3163 |
(not-syntaxes (concat "^" syntaxes))) |
(not-syntaxes (concat "^" syntaxes))) |
3164 |
(skip-syntax-backward syntaxes) (setq start (point)) |
(skip-syntax-backward syntaxes) (setq start (point)) |
3165 |
(goto-char oldpoint) |
(goto-char oldpoint) |