X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0e963201d03d9229bb8ac4323291d2b0119526ed..0ea47a6159f351f32b7dbc68debe99eb02f2dd8d:/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)