(find-face-definition): Renamed from find-face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9be77b5d0c37808c96ee290ac626293b89bc45bb..eb17386d5672576b2940b4bedf11a492c04358a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-06  Richard M. Stallman  <rms@gnu.org>
+
+       * emacs-lisp/find-func.el (find-face-definition):
+       Renamed from find-face.
+
 2005-01-06  Kim F. Storm  <storm@cua.dk>
 
        * simple.el (completion-list-mode-map): Map follow-link to mouse-face.
@@ -32,6 +37,9 @@
 
 2005-01-05  Richard M. Stallman  <rms@gnu.org>
 
+       * 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 49e44ca5fee6b621f5ee9e068613d691eeeb8cfb..7e2ac5aa883efe67ecdff050f5e63b652c1234dc 100644 (file)
--- 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