From c7ce7fc43b68369e18de0ccc5ded610823b8c1da Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jan 2005 02:52:29 +0000 Subject: (find-face-definition): Renamed from find-face. --- lisp/ChangeLog | 8 ++++++++ lisp/emacs-lisp/find-func.el | 4 +++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9be77b5d0c..eb17386d56 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-01-06 Richard M. Stallman + + * emacs-lisp/find-func.el (find-face-definition): + Renamed from find-face. + 2005-01-06 Kim F. Storm * simple.el (completion-list-mode-map): Map follow-link to mouse-face. @@ -32,6 +37,9 @@ 2005-01-05 Richard M. Stallman + * custom.el (custom-set-variables, custom-theme-set-variables): + Clarify documentation. + * emacs-lisp/find-func.el (find-variable) (find-variable-other-window, find-variable-other-frame): Fix the TYPE args to find-function-read and find-function-do-it. diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 49e44ca5fe..7e2ac5aa88 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -418,8 +418,10 @@ The library where SYMBOL is defined is searched for in FILE or (let ((library (or file (symbol-file symbol type)))) (find-function-search-for-symbol symbol type library)))) +;; For symmetry, this should be called find-face; but some programs +;; assume that, if that name is defined, it means something else. ;;;###autoload -(defun find-face (face) +(defun find-face-definition (face) "Find the definition of FACE. FACE defaults to the name near point. Finds the Emacs Lisp library containing the definition of the face -- cgit v1.2.3