Mercurial > emacs
changeset 97917:9632e46fbdc6
(describe-face): Use find-lisp-object-file-name instead
of describe-simplify-lib-file-name.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Mon, 01 Sep 2008 08:05:42 +0000 |
| parents | 904041a08605 |
| children | 011e0fd21023 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)