Commit 46f12fd4 authored by Martin Rudalics's avatar Martin Rudalics
Browse files

(describe-face): Print relative file name in help buffer.

parent e8e8dbf9
This diff is collapsed.
......@@ -1366,7 +1366,7 @@ If FRAME is omitted or nil, use the selected frame."
(setq file-name (find-lisp-object-file-name f 'defface))
(when file-name
(princ "Defined in `")
(princ file-name)
(princ (file-name-nondirectory file-name))
(princ "'")
;; Make a hyperlink to the library.
(save-excursion
......
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