[Emacs-diffs] Changes to emacs/lisp/faces.el,v

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/09/01 08:05:42

Index: faces.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/faces.el,v
retrieving revision 1.423
retrieving revision 1.424
diff -u -b -r1.423 -r1.424
--- faces.el    6 Aug 2008 12:19:24 -0000       1.423
+++ faces.el    1 Sep 2008 08:05:42 -0000       1.424
@@ -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)