Mercurial > emacs
comparison lisp/mh-e/mh-init.el @ 67681:3a8785724cca
* mh-acros.el:
* mh-alias.el:
* mh-comp.el:
* mh-customize.el:
* mh-e.el:
* mh-funcs.el:
* mh-gnus.el:
* mh-identity.el:
* mh-inc.el:
* mh-index.el:
* mh-init.el:
* mh-junk.el:
* mh-mime.el:
* mh-pick.el:
* mh-print.el:
* mh-seq.el:
* mh-speed.el:
* mh-utils.el:
Follow commenting conventions. Don't use ;;; form so much, except for
headings. Precede headings with page feed. This was mostly already
done, so I made it a convention. Did not update copyright on a couple
of files since this was an insignificant change.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Mon, 19 Dec 2005 23:32:16 +0000 |
parents | 315e71e95246 |
children | 6b063593fdad |
comparison
equal
deleted
inserted
replaced
67680:b7c68d3426e1 | 67681:3a8785724cca |
---|---|
1 ;;; mh-init.el --- MH-E initialization. | 1 ;;; mh-init.el --- MH-E initialization |
2 | 2 |
3 ;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Peter S. Galbraith <psg@debian.org> | 5 ;; Author: Peter S. Galbraith <psg@debian.org> |
6 ;; Maintainer: Bill Wohler <wohler@newt.com> | 6 ;; Maintainer: Bill Wohler <wohler@newt.com> |
41 | 41 |
42 (eval-when-compile (require 'mh-acros)) | 42 (eval-when-compile (require 'mh-acros)) |
43 (mh-require-cl) | 43 (mh-require-cl) |
44 (require 'mh-utils) | 44 (require 'mh-utils) |
45 | 45 |
46 ;;; Avoid compiler warnings. | 46 ;; Avoid compiler warnings. |
47 (eval-when-compile (defvar image-load-path)) | 47 (eval-when-compile (defvar image-load-path)) |
48 | 48 |
49 ;;; Set for local environment: | 49 ;; Set for local environment: |
50 ;;; mh-progs and mh-lib used to be set in paths.el, which tried to | 50 ;; mh-progs and mh-lib used to be set in paths.el, which tried to |
51 ;;; figure out at build time which of several possible directories MH | 51 ;; figure out at build time which of several possible directories MH |
52 ;;; was installed into. But if you installed MH after building Emacs, | 52 ;; was installed into. But if you installed MH after building Emacs, |
53 ;;; this would almost certainly be wrong, so now we do it at run time. | 53 ;; this would almost certainly be wrong, so now we do it at run time. |
54 | 54 |
55 (defvar mh-progs nil | 55 (defvar mh-progs nil |
56 "Directory containing MH commands, such as inc, repl, and rmm.") | 56 "Directory containing MH commands, such as inc, repl, and rmm.") |
57 | 57 |
58 (defvar mh-lib nil | 58 (defvar mh-lib nil |
348 (if (assoc 'min-colors (car entry)) | 348 (if (assoc 'min-colors (car entry)) |
349 (delq (assoc 'min-colors (car entry)) (car entry))))))) | 349 (delq (assoc 'min-colors (car entry)) (car entry))))))) |
350 | 350 |
351 (provide 'mh-init) | 351 (provide 'mh-init) |
352 | 352 |
353 ;;; Local Variables: | 353 ;; Local Variables: |
354 ;;; indent-tabs-mode: nil | 354 ;; indent-tabs-mode: nil |
355 ;;; sentence-end-double-space: nil | 355 ;; sentence-end-double-space: nil |
356 ;;; End: | 356 ;; End: |
357 | 357 |
358 ;; arch-tag: e8372aeb-d803-42b1-9c95-3c93ad22f63c | 358 ;; arch-tag: e8372aeb-d803-42b1-9c95-3c93ad22f63c |
359 ;;; mh-init.el ends here | 359 ;;; mh-init.el ends here |