diff options
| author | Dave Love | 1999-11-30 13:55:34 +0000 |
|---|---|---|
| committer | Dave Love | 1999-11-30 13:55:34 +0000 |
| commit | 4943580109c216e0d8fa52f14702f2a84b14c16e (patch) | |
| tree | 3b4140f1be6adbc667bf2b1536ff454833e9ea75 | |
| parent | 04c817d4679ee3a6c1614328696b6a28e3195e38 (diff) | |
| download | emacs-4943580109c216e0d8fa52f14702f2a84b14c16e.tar.gz emacs-4943580109c216e0d8fa52f14702f2a84b14c16e.zip | |
(set-face-documentation): Purecopy STRING.
| -rw-r--r-- | lisp/faces.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 3788606e25b..74fb666f6cc 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -408,7 +408,8 @@ Use `face-attribute' for finer control." | |||
| 408 | 408 | ||
| 409 | (defun set-face-documentation (face string) | 409 | (defun set-face-documentation (face string) |
| 410 | "Set the documentation string for FACE to STRING." | 410 | "Set the documentation string for FACE to STRING." |
| 411 | (put face 'face-documentation string)) | 411 | ;; The text doesn't get into DOC. |
| 412 | (put face 'face-documentation (purecopy string))) | ||
| 412 | 413 | ||
| 413 | 414 | ||
| 414 | (defalias 'face-doc-string 'face-documentation) | 415 | (defalias 'face-doc-string 'face-documentation) |