From c560ba3036d8382c29664a355179b63501786114 Mon Sep 17 00:00:00 2001 From: Daniel Koning Date: Wed, 10 Jun 2020 14:42:39 -0500 Subject: [PATCH] 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 --- lisp/simple.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5