# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 965660324 0
# Node ID bb2ebaf639494000f9b1720f7561c4cac6b4cf17
# Parent  4706d5e2414176fcb4ccf5412ac758a7d29cb63f
(inferior-octave-complete): Use comint-line-beginning-position.

diff -r 4706d5e24141 -r bb2ebaf63949 lisp/progmodes/octave-inf.el
--- a/lisp/progmodes/octave-inf.el	Mon Aug 07 14:57:22 2000 +0000
+++ b/lisp/progmodes/octave-inf.el	Mon Aug 07 14:58:44 2000 +0000
@@ -243,11 +243,10 @@
 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