# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1220256342 0
# Node ID 9632e46fbdc658c92121787262868a6fbfccb225
# Parent  904041a0860557776b06b21251c9039f846a9414
(describe-face): Use find-lisp-object-file-name instead
of describe-simplify-lib-file-name.

diff -r 904041a08605 -r 9632e46fbdc6 lisp/faces.el
--- a/lisp/faces.el	Mon Sep 01 08:04:40 2008 +0000
+++ b/lisp/faces.el	Mon Sep 01 08:05:42 2008 +0000
@@ -1363,10 +1363,7 @@
 		  (re-search-backward
 		   (concat "\\(" customize-label "\\)") nil t)
 		  (help-xref-button 1 'help-customize-face f)))
-	      ;; 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))
+	      (setq file-name (find-lisp-object-file-name f 'defface))
 	      (when file-name
 		(princ "Defined in `")
 		(princ file-name)