mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-21 05:00:47 -08:00
Code Issues Projects Releases Wiki Activity

(face-documentation): Renamed from face-doc-string.

Browse source 
(set-face-documentation): Renamed from set-face-doc-string.
(face-doc-string): Make this an alias.
This commit is contained in:
Richard M. Stallman 1997-07-24 06:04:06 +00:00
parent 209ddde37b
commit 02e0989b51
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/faces.el
View file

@ -145,7 +145,8 @@ If FRAME is omitted or nil, use the selected frame."
(not (equal font (x-make-font-unitalic font))) (not (equal font (x-make-font-unitalic font)))
(memq 'italic font)))) (memq 'italic font))))
(defun face-doc-string (face) (defalias 'face-doc-string 'face-documentation)
(defun face-documentation (face)
"Get the documentation string for FACE." "Get the documentation string for FACE."
(get face 'face-documentation)) (get face 'face-documentation))
@ -275,7 +276,7 @@ in that frame; otherwise change each frame."
(cond ((eq italic-p nil) (make-face-unitalic face frame t)) (cond ((eq italic-p nil) (make-face-unitalic face frame t))
(t (make-face-italic face frame t)))) (t (make-face-italic face frame t))))
(defun set-face-doc-string (face string) (defun set-face-documentation (face string)
"Set the documentation string for FACE to STRING." "Set the documentation string for FACE to STRING."
(put face 'face-documentation string)) (put face 'face-documentation string))
@ -1137,7 +1138,7 @@ selected frame."
(princ " Stipple: ") (princ (or (face-stipple face) "none")) (terpri) (princ " Stipple: ") (princ (or (face-stipple face) "none")) (terpri)
(terpri) (terpri)
(princ "Documentation:") (terpri) (princ "Documentation:") (terpri)
(let ((doc (face-doc-string face))) (let ((doc (face-documentation face)))
(if doc (if doc
(princ doc) (princ doc)
(princ "not documented as a face."))))) (princ "not documented as a face.")))))