Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(describe-face): Use find-lisp-object-file-name instead

Browse source 
of describe-simplify-lib-file-name.
This commit is contained in:
Martin Rudalics 2008-09-01 08:06:26 +00:00
parent 35fac1a521
commit 32f140f5bb
2 changed files with 12835 additions and 12827 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25657
lisp/ChangeLog
View file

File diff suppressed because it is too large Load diff

5
lisp/faces.el
View file

@ -1363,10 +1363,7 @@ If FRAME is omitted or nil, use the selected frame."
(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)