Mercurial > emacs
comparison lisp/mh-e/mh-inc.el @ 56950:244535d043c2
(mh-inc-spool-list): Correctly declare the external var.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 07 Sep 2004 04:15:28 +0000 |
| parents | e9a6cbc8ca5e |
| children | 4f4f410e6fe8 cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
| 56949:817183f6748e | 56950:244535d043c2 |
|---|---|
| 72 (setq mh-inc-spool-map-help (concat mh-inc-spool-map-help "[" | 72 (setq mh-inc-spool-map-help (concat mh-inc-spool-map-help "[" |
| 73 (char-to-string key) | 73 (char-to-string key) |
| 74 "] inc " folder " folder\n")))) | 74 "] inc " folder " folder\n")))) |
| 75 | 75 |
| 76 ;; Avoid compiler warning | 76 ;; Avoid compiler warning |
| 77 (eval-when-compile (defvar mh-inc-spool-list)) | 77 (defvar mh-inc-spool-list) |
| 78 | 78 |
| 79 (defun mh-inc-spool-make () | 79 (defun mh-inc-spool-make () |
| 80 "Make all commands and defines keys for contents of `mh-inc-spool-list'." | 80 "Make all commands and defines keys for contents of `mh-inc-spool-list'." |
| 81 (when mh-inc-spool-list | 81 (when mh-inc-spool-list |
| 82 (setq mh-inc-spool-map-help nil) | 82 (setq mh-inc-spool-map-help nil) |
| 96 (set-default symbol value) | 96 (set-default symbol value) |
| 97 (mh-inc-spool-make)) | 97 (mh-inc-spool-make)) |
| 98 | 98 |
| 99 (provide 'mh-inc) | 99 (provide 'mh-inc) |
| 100 | 100 |
| 101 ;;; Local Variables: | 101 ;; Local Variables: |
| 102 ;;; indent-tabs-mode: nil | 102 ;; indent-tabs-mode: nil |
| 103 ;;; sentence-end-double-space: nil | 103 ;; sentence-end-double-space: nil |
| 104 ;;; End: | 104 ;; End: |
| 105 | 105 |
| 106 ;;; arch-tag: 3713cf2a-6082-4cb4-8ce2-99d9acaba835 | 106 ;; arch-tag: 3713cf2a-6082-4cb4-8ce2-99d9acaba835 |
| 107 ;;; mh-inc.el ends here | 107 ;;; mh-inc.el ends here |