Mercurial > emacs

changeset 30646:bb2ebaf63949

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(inferior-octave-complete): Use comint-line-beginning-position.
author Miles Bader <miles@gnu.org>
date Mon, 07 Aug 2000 14:58:44 +0000
parents 4706d5e24141
children 9d266998439c
files lisp/progmodes/octave-inf.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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