Mercurial > emacs

comparison lisp/mh-e/mh-init.el @ 67681:3a8785724cca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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