Commit 49435801 authored by Dave Love's avatar Dave Love
Browse files

(set-face-documentation): Purecopy STRING.

parent 04c817d4
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment