mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(set-face-documentation): Purecopy STRING.

Browse Source
This commit is contained in:
Dave Love 1999-11-30 13:55:34 +00:00
parent 04c817d467
commit 4943580109
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/faces.el
View File

@ -408,7 +408,8 @@ Use `face-attribute' for finer control."
(defun set-face-documentation (face string)
"Set the documentation string for FACE to STRING."
(put face 'face-documentation string))
;; The text doesn't get into DOC.
(put face 'face-documentation (purecopy string)))
(defalias 'face-doc-string 'face-documentation)