mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(internal-find-face, internal-get-face): Doc fixes.

Browse Source
This commit is contained in:
Juanma Barranquero 2007-02-01 00:39:02 +00:00
parent 5de4980c74
commit 39a897a583
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2007-02-01 Juanma Barranquero <lekktu@gmail.com>
* faces.el (internal-find-face, internal-get-face): Doc fixes.
2007-01-31 Juanma Barranquero <lekktu@gmail.com>
* ido.el (ido-set-common-completion): Use `let', not `let*'.

12
lisp/faces.el
View File

@ -181,20 +181,16 @@ to NEW-FACE on frame NEW-FRAME."
(defun internal-find-face (name &optional frame)
"Retrieve the face named NAME.
Return nil if there is no such face.
If the optional argument FRAME is given, this gets the face NAME for
that frame; otherwise, it uses the selected frame.
If FRAME is the symbol t, then the global, non-frame face is returned.
If NAME is already a face, it is simply returned."
If NAME is already a face, it is simply returned.
The optional argument FRAME is ignored."
(facep name))
(make-obsolete 'internal-find-face 'facep "21.1")
(defun internal-get-face (name &optional frame)
"Retrieve the face named NAME; error if there is none.
If the optional argument FRAME is given, this gets the face NAME for
that frame; otherwise, it uses the selected frame.
If FRAME is the symbol t, then the global, non-frame face is returned.
If NAME is already a face, it is simply returned."
If NAME is already a face, it is simply returned.
The optional argument FRAME is ignored."
(or (facep name)
(check-face name)))
(make-obsolete 'internal-get-face "see `facep' and `check-face'." "21.1")