diff options
| author | Eric S. Raymond | 1993-04-27 21:59:46 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1993-04-27 21:59:46 +0000 |
| commit | f03e319c88b4f7f23ec80d7c50369fc6c804d641 (patch) | |
| tree | efc3d98006c78a10960264ea5f136e57179a1035 | |
| parent | 8a5066940acc1bdc6cc8ac12b57849f5d390bec8 (diff) | |
| download | emacs-f03e319c88b4f7f23ec80d7c50369fc6c804d641.tar.gz emacs-f03e319c88b4f7f23ec80d7c50369fc6c804d641.zip | |
(gud-format-command): Fix %f expansuuin to send ondly the basename of
files to gdb.
| -rw-r--r-- | lisp/gud.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index c879e67ec1d..4729624904b 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -582,9 +582,9 @@ Obeying it means displaying in another window the specified file and line." | |||
| 582 | (progn | 582 | (progn |
| 583 | (setq str (concat | 583 | (setq str (concat |
| 584 | (substring str (match-beginning 1) (match-end 1)) | 584 | (substring str (match-beginning 1) (match-end 1)) |
| 585 | (if insource | 585 | (file-name-nondirectory (if insource |
| 586 | (buffer-file-name) | 586 | (buffer-file-name) |
| 587 | (car gud-last-frame)) | 587 | (car gud-last-frame))) |
| 588 | (substring str (match-beginning 2) (match-end 2)))))) | 588 | (substring str (match-beginning 2) (match-end 2)))))) |
| 589 | (if (string-match "\\(.*\\)%l\\(.*\\)" str) | 589 | (if (string-match "\\(.*\\)%l\\(.*\\)" str) |
| 590 | (progn | 590 | (progn |