Fix problems caused by new implementation of sub-word mode

[gnu-emacs] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index e5fb5f031dd678dc948300aeaf159a6a7a75d455..1701eb0e0f31e95a9410b56f6c505d31e2e2d692 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1170,7 +1170,7 @@ END, without printing any message."
             (save-restriction
               (narrow-to-region start end)
               (goto-char (point-min))
-              (while (forward-word 1)
+              (while (forward-word-strictly 1)
                 (setq words (1+ words)))))
           words))
        ((use-region-p)