diff options
-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) |