Mercurial > emacs

changeset 98320:738bf2e7b7f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-face): Print relative file name in help buffer.
author Martin Rudalics <rudalics@gmx.at>
date Wed, 24 Sep 2008 16:15:09 +0000
parents 16aabd7d9d9d
children 8df1d02ea131
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Wed Sep 24 16:13:35 2008 +0000
+++ b/lisp/faces.el	Wed Sep 24 16:15:09 2008 +0000
@@ -1366,7 +1366,7 @@
 	      (setq file-name (find-lisp-object-file-name f 'defface))
 	      (when file-name
 		(princ "Defined in `")
-		(princ file-name)
+		(princ (file-name-nondirectory file-name))
 		(princ "'")
 		;; Make a hyperlink to the library.
 		(save-excursion