# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1130094770 0
# Node ID fc5672d9fc4512df7c8f9398311a7c2f0fd29780
# Parent  65603aeca64d3049d0eb132a6197fdb88efc24eb
(describe-face): Use describe-simplify-lib-file-name.

diff -r 65603aeca64d -r fc5672d9fc45 lisp/faces.el
--- a/lisp/faces.el	Sun Oct 23 19:12:10 2005 +0000
+++ b/lisp/faces.el	Sun Oct 23 19:12:50 2005 +0000
@@ -1297,6 +1297,7 @@
 	      ;; 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)