From: Daniel Koning <dk@danielkoning.com>
Date: Wed, 10 Jun 2020 19:42:39 +0000 (-0500)
Subject: Don't stop at field boundaries when counting words (Bug#41761)
X-Git-Tag: emacs-28.0.90~6593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c560ba3036d8382c29664a355179b63501786114;p=emacs.git

Don't stop at field boundaries when counting words (Bug#41761)

* lisp/simple.el (count-words): Ensure that `forward-word-strictly'
moves point from one field to the next during the word-counting loop.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 6f72c3b81b9..1cb93c5722b 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1323,7 +1323,9 @@ If called from Lisp, return the number of words between START and
 END, without printing any message."
   (interactive (list nil nil))
   (cond ((not (called-interactively-p 'any))
-	 (let ((words 0))
+	 (let ((words 0)
+               ;; Count across field boundaries. (Bug#41761)
+               (inhibit-field-text-motion t))
 	   (save-excursion
 	     (save-restriction
 	       (narrow-to-region start end)