1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

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

This commit is contained in:
Miles Bader 2000-08-07 14:58:44 +00:00
parent 69e773247b
commit 502166d288

View file

@ -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