diff options
author | Miles Bader <[email protected]> | 2000-08-07 14:54:35 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2000-08-07 14:54:35 +0000 |
commit | 01d8967d6612532a830089e4254e43f2fe208622 (patch) | |
tree | b3fb6b62881ca8436d9ce2a3f1b6eb861f377f52 /lisp/gud.el | |
parent | 3035b1565107e2277f363ed72536c8cffe7b4493 (diff) |
(gud-gdb-complete-command): Use comint-line-beginning-position.
Diffstat (limited to 'lisp/gud.el')
-rw-r--r-- | lisp/gud.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index c2e9994895..598aa036d1 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -411,11 +411,7 @@ This is implemented using the GDB `complete' command which isn't available with older versions of GDB." (interactive) (let* ((end (point)) - (command (save-excursion - (beginning-of-line) - (and (looking-at comint-prompt-regexp) - (goto-char (match-end 0))) - (buffer-substring (point) end))) + (command (buffer-substring (comint-line-beginning-position) end)) command-word) ;; Find the word break. This match will always succeed. (string-match "\\(\\`\\| \\)\\([^ ]*\\)\\'" command) |