Mercurial > emacs
changeset 51957:af9092ef950b
(current-word): Don't include punctuation char when
`really-word' arg is non-nil.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 18 Jul 2003 22:43:52 +0000 |
| parents | 81b2e4d0e04a |
| children | e244778fbafe |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Jul 17 11:57:30 2003 +0000 +++ b/lisp/simple.el Fri Jul 18 22:43:52 2003 +0000 @@ -3159,7 +3159,7 @@ If optional arg REALLY-WORD is non-nil, it finds just a word." (save-excursion (let* ((oldpoint (point)) (start (point)) (end (point)) - (syntaxes (if really-word "w_" "w")) + (syntaxes (if really-word "w" "w_")) (not-syntaxes (concat "^" syntaxes))) (skip-syntax-backward syntaxes) (setq start (point)) (goto-char oldpoint)