From: Miles Bader <miles@gnu.org>
Date: Mon, 7 Aug 2000 14:58:44 +0000 (+0000)
Subject: (inferior-octave-complete): Use comint-line-beginning-position.
X-Git-Tag: emacs-pretest-21.0.90~2447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=502166d288cfe6982a6386fda20ce1ed862f860a;p=emacs.git

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

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