From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Oct 2005 19:12:50 +0000 (+0000)
Subject: (describe-face): Use describe-simplify-lib-file-name.
X-Git-Tag: emacs-pretest-22.0.90~6371
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1a74d5813b266c8cbe5962ba6895ad16a9cb526;p=emacs.git

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

diff --git a/lisp/faces.el b/lisp/faces.el
index abcb6bf2dee..c69354f38fb 100644
--- 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)