Commit 6b802a08 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

Fix previous grep-file-at-point change

* lisp/progmodes/grep.el (grep-file-at-point): Fix previous change.
parent 9ee418b7
Pipeline #11454 failed with stages
in 30 seconds
......@@ -1348,7 +1348,7 @@ command before it's run."
(defun grep-file-at-point (point)
"Return the name of the file at POINT a `grep-mode' buffer.
The returned file name is relative."
(when-let ((msg (get-text-property (point) 'compilation-message))
(when-let ((msg (get-text-property point 'compilation-message))
(loc (compilation--message->loc msg)))
(caar (compilation--loc->file-struct loc))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment