(inferior-octave-complete): Use comint-line-beginning-position.

1 files changed, 4 insertions, 5 deletions

diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el
index aa3e8a2c134..0dd6bf99eb9 100644
--- a/lisp/progmodes/octave-inf.el
+++ b/lisp/progmodes/octave-inf.el
@@ -243,11 +243,10 @@ This is implemented using the Octave command `completion_matches' which
 is NOT available with versions of Octave prior to 2.0."
   (interactive)
   (let* ((end (point))
-         (command (save-excursion
-                    (skip-syntax-backward "w_")
-                    (and (looking-at comint-prompt-regexp)
-                         (goto-char (match-end 0)))
-                    (buffer-substring-no-properties (point) end)))
+         (command
+          (save-excursion
+            (skip-syntax-backward "w_" (comint-line-beginning-position))
+            (buffer-substring-no-properties (point) end)))
          (proc (get-buffer-process inferior-octave-buffer))
          (filter (process-filter proc)))
     (cond (inferior-octave-complete-impossible