(current-word): Don't include punctuation char when

`really-word' arg is non-nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b84eafd33d2688cdc89231ce67a7e1816fe0cbf..b445cd733ea94695f662979a9f86d60a89072bf9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-18  John Paul Wallington  <jpw@gnu.org>
+
+       * simple.el (current-word): Don't include punctuation char when
+       `really-word' arg is non-nil.
+
 2003-07-17  Martin Stjernholm  <bug-cc-mode@gnu.org>
 
        * progmodes/awk-mode.el: Obsoleted by the AWK support in CC Mode -

diff --git a/lisp/simple.el b/lisp/simple.el
index 5d9659cd285d1d6696340eb67ed4172f81a34b3d..8756d3e771a960ddcf6581c5de9994eab85ecf14 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3159,7 +3159,7 @@ The function, belying its name, normally finds a symbol.
 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)