From: John Paul Wallington <jpw@pobox.com>
Date: Fri, 18 Jul 2003 22:46:08 +0000 (+0000)
Subject: (current-word): Don't include punctuation char when
X-Git-Tag: ttn-vms-21-2-B4~9306
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81d171731e55c4b7a6c9b068e17a68a2677a0764;p=emacs.git

(current-word): Don't include punctuation char when
`really-word' arg is non-nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b84eafd33d..b445cd733ea 100644
--- 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 5d9659cd285..8756d3e771a 100644
--- 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)