mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2005-10-23 19:12:50 +00:00
parent 9888177fec
commit d1a74d5813
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/faces.el
View File

@ -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)