Mercurial > emacs
comparison lisp/custom.el @ 66399:65d160cfd8f2
(defface, defcustom): Add `doc-string' declaration.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 24 Oct 2005 16:17:11 +0000 |
| parents | c60d119298c4 |
| children | 65266d675973 |
comparison
equal
deleted
inserted
replaced
| 66398:df04170ba46b | 66399:65d160cfd8f2 |
|---|---|
| 270 _outside_ any bindings for these variables. \(`defvar' and | 270 _outside_ any bindings for these variables. \(`defvar' and |
| 271 `defconst' behave similarly in this respect.) | 271 `defconst' behave similarly in this respect.) |
| 272 | 272 |
| 273 Read the section about customization in the Emacs Lisp manual for more | 273 Read the section about customization in the Emacs Lisp manual for more |
| 274 information." | 274 information." |
| 275 (declare (doc-string 3)) | |
| 275 ;; It is better not to use backquote in this file, | 276 ;; It is better not to use backquote in this file, |
| 276 ;; because that makes a bootstrapping problem | 277 ;; because that makes a bootstrapping problem |
| 277 ;; if you need to recompile all the Lisp files using interpreted code. | 278 ;; if you need to recompile all the Lisp files using interpreted code. |
| 278 (nconc (list 'custom-declare-variable | 279 (nconc (list 'custom-declare-variable |
| 279 (list 'quote symbol) | 280 (list 'quote symbol) |
| 351 the function `display-supports-face-attributes-p' for more | 352 the function `display-supports-face-attributes-p' for more |
| 352 information on exactly how testing is done. | 353 information on exactly how testing is done. |
| 353 | 354 |
| 354 Read the section about customization in the Emacs Lisp manual for more | 355 Read the section about customization in the Emacs Lisp manual for more |
| 355 information." | 356 information." |
| 357 (declare (doc-string 3)) | |
| 356 ;; It is better not to use backquote in this file, | 358 ;; It is better not to use backquote in this file, |
| 357 ;; because that makes a bootstrapping problem | 359 ;; because that makes a bootstrapping problem |
| 358 ;; if you need to recompile all the Lisp files using interpreted code. | 360 ;; if you need to recompile all the Lisp files using interpreted code. |
| 359 (nconc (list 'custom-declare-face (list 'quote face) spec doc) args)) | 361 (nconc (list 'custom-declare-face (list 'quote face) spec doc) args)) |
| 360 | 362 |