X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b4fbd69b66a927ad8ff479bee6ca57e977d7e649..ce92397425d29ec27fc701c36c589a5e1f894898:/lisp/progmodes/pascal.el

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index b0929ebd04..76441ea03e 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -1023,7 +1023,7 @@ indent of the current line in parameterlist."
       (let ((lineup (if (or (looking-at "\\<var\\>\\|\\<record\\>") arg start)
 			":" "="))
 	    (stpos (if start start
-		       (forward-word 2) (backward-word 1) (point)))
+		       (forward-word-strictly 2) (backward-word 1) (point)))
 	    (edpos (set-marker (make-marker)
 			       (if end end
 				 (max (progn (pascal-declaration-end)