diff options
| author | Lars Ingebrigtsen | 2021-07-17 16:56:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-07-17 16:56:35 +0200 |
| commit | 6b802a08cabfb23bdf1f65faa2ee163d3efa820d (patch) | |
| tree | 70a7392a0a776567f8b26dcf2e8963e8b6bfcb07 | |
| parent | 9ee418b7b95e20fa4d8ae585f33e9b5d9316bc99 (diff) | |
| download | emacs-6b802a08cabfb23bdf1f65faa2ee163d3efa820d.tar.gz emacs-6b802a08cabfb23bdf1f65faa2ee163d3efa820d.zip | |
Fix previous grep-file-at-point change
* lisp/progmodes/grep.el (grep-file-at-point): Fix previous change.
| -rw-r--r-- | lisp/progmodes/grep.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 370bdd55163..91c72a9429f 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -1348,7 +1348,7 @@ command before it's run." | |||
| 1348 | (defun grep-file-at-point (point) | 1348 | (defun grep-file-at-point (point) |
| 1349 | "Return the name of the file at POINT a `grep-mode' buffer. | 1349 | "Return the name of the file at POINT a `grep-mode' buffer. |
| 1350 | The returned file name is relative." | 1350 | The returned file name is relative." |
| 1351 | (when-let ((msg (get-text-property (point) 'compilation-message)) | 1351 | (when-let ((msg (get-text-property point 'compilation-message)) |
| 1352 | (loc (compilation--message->loc msg))) | 1352 | (loc (compilation--message->loc msg))) |
| 1353 | (caar (compilation--loc->file-struct loc)))) | 1353 | (caar (compilation--loc->file-struct loc)))) |
| 1354 | 1354 | ||