Mercurial > emacs
comparison lisp/image.el @ 66402:ade0d81f63a9
(defimage): Add `doc-string' declaration.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 24 Oct 2005 16:43:03 +0000 |
| parents | ca953a3dbdf1 |
| children | 3bd95f4f2941 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 66401:a8bf0a9de6ac | 66402:ade0d81f63a9 |
|---|---|
| 428 | 428 |
| 429 Example: | 429 Example: |
| 430 | 430 |
| 431 (defimage test-image ((:type xpm :file \"~/test1.xpm\") | 431 (defimage test-image ((:type xpm :file \"~/test1.xpm\") |
| 432 (:type xbm :file \"~/test1.xbm\")))" | 432 (:type xbm :file \"~/test1.xbm\")))" |
| 433 (declare (doc-string 3)) | |
| 433 `(defvar ,symbol (find-image ',specs) ,doc)) | 434 `(defvar ,symbol (find-image ',specs) ,doc)) |
| 434 | 435 |
| 435 | 436 |
| 436 (provide 'image) | 437 (provide 'image) |
| 437 | 438 |
| 438 ;;; arch-tag: 8e76a07b-eb48-4f3e-a7a0-1a7ba9f096b3 | 439 ;; arch-tag: 8e76a07b-eb48-4f3e-a7a0-1a7ba9f096b3 |
| 439 ;;; image.el ends here | 440 ;;; image.el ends here |