(describe-face): Use describe-simplify-lib-file-name.

d1a74d58 · Richard M. Stallman · 9888177f · d1a74d58
Commit d1a74d58 authored Oct 23, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

lisp/faces.el lisp/faces.el +1 -0

No files found.
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1297,6 +1297,7 @@ If FRAME is omitted or nil, use the selected frame."
 	      ;; The next 4 sexps are copied from describe-function-1
 	      ;; and simplified.
 	      (setq file-name (symbol-file f 'defface))
+	      (setq file-name (describe-simplify-lib-file-name file-name))
 	      (when file-name
 		(princ "Defined in `")
 		(princ file-name)