X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/81ef756e6aea369ec78f19b3609f01ceddc5851f..2aa6b47e3e216410195cf7ec3abb5902f38082fa:/lisp/progmodes/octave.el

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 28619a5585..f309565acf 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -1088,7 +1088,7 @@ The value is (START END NAME-START NAME-END) of the function."
   (save-excursion
     (goto-char (point-min))
     (when (equal (funcall smie-forward-token-function) "function")
-      (forward-word -1)
+      (forward-word-strictly -1)
       (let* ((start (point))
              (end (progn (forward-sexp 1) (point)))
              (name (when (progn