diff options
| author | Richard M. Stallman | 1997-07-24 06:03:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-24 06:03:00 +0000 |
| commit | 209ddde37bbc1415757ef5dc773099d54b79e357 (patch) | |
| tree | 04b0812cca2f4654a79a3a6b5cf6d38edb5cfaf1 | |
| parent | fc4c0f0eb723fa8f6ded54e2f87cda1f07c6696b (diff) | |
| download | emacs-209ddde37bbc1415757ef5dc773099d54b79e357.tar.gz emacs-209ddde37bbc1415757ef5dc773099d54b79e357.zip | |
(custom-declare-face): Use [set-]face-documentation.
| -rw-r--r-- | lisp/cus-face.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 3662f296baa..bd120299a16 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el | |||
| @@ -54,8 +54,8 @@ | |||
| 54 | (setq frame (car frames) | 54 | (setq frame (car frames) |
| 55 | frames (cdr frames)) | 55 | frames (cdr frames)) |
| 56 | (face-spec-set face value frame))))) | 56 | (face-spec-set face value frame))))) |
| 57 | (when (and doc (null (face-doc-string face))) | 57 | (when (and doc (null (face-documentation face))) |
| 58 | (set-face-doc-string face doc)) | 58 | (set-face-documentation face doc)) |
| 59 | (custom-handle-all-keywords face args 'custom-face) | 59 | (custom-handle-all-keywords face args 'custom-face) |
| 60 | (run-hooks 'custom-define-hook)) | 60 | (run-hooks 'custom-define-hook)) |
| 61 | face) | 61 | face) |