gnu-emacs-sources
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

start.el - my main startup file: loads/autoloads most everythin


From: Drew Adams
Subject: start.el - my main startup file: loads/autoloads most everything
Date: Tue, 16 Jan 2001 21:35:20 -0500

;;; start.el --- Main Emacs startup file: require/autoload other files.
;;
;; Filename: start.el
;; Description: Main Emacs startup file: require/autoload other files.
;; Author: Drew Adams
;; Maintainer: Drew Adams
;; Copyright (C) 1996-2001, Drew Adams, all rights reserved.
;; Created: Wed Aug  2 11:12:24 1995
;; Version: $Id: start.el,v 1.10 2001/01/09 22:29:47 dadams Exp $
;; Last-Updated: Tue Jan  9 14:29:19 2001
;;           By: dadams
;;     Update #: 1907
;; Keywords: abbrev, internal, local
;; Compatibility: GNU Emacs 20.x
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;
;;    Drew Adams' Emacs startup file: requires/autoloads other files.
;;
;;  This file basically just does `require' and `autoload'.
;;
;;  The files `setup.el', `setup-frames.el', `setup-info.el', and
;;  `setup-keys.el', required here, are companion files that do fairly
;;  essential configuration/customization of the editor.
;;
;;  The file `start-opt.el', not required here, is another companion
;;  file that does less essential configuration/customization.  If you
;;  decide to load it, that should be done after loading `start.el'.
;;
;;  Some other files that are required here are extensions to standard
;;  Emacs files that each need to be loaded either before or after the
;;  corresponding standard file.  Their names reflect this: the
;;  standard file name is used, with a `-' (`+') appended if the file
;;  is to be loaded before (after) the standard file.  For example,
;;  `compile-.el' is to be loaded before the standard file
;;  `compile.el', `compile+.el' is to be loaded after `compile.el'.
;;
;;
;;  New user option (variable) defined here: `use-dired-x-p'.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Change log: 
;;
;; RCS $Log: start.el,v $
;; RCS Revision 1.10  2001/01/09 22:29:47  dadams
;; RCS Adapted file header for Emacs Lisp Archive.
;; RCS
;; RCS Revision 1.9  2001/01/03 19:34:58  dadams
;; RCS Require vc-hooks+ (vs eval-after-load, because vc-hooks is pre-loaded).
;; RCS
;; RCS Revision 1.8  2001/01/03 17:47:38  dadams
;; RCS *** empty log message ***
;; RCS
;; RCS Revision 1.7  2001/01/03 01:28:49  dadams
;; RCS *** empty log message ***
;; RCS
;; RCS Revision 1.6  2000/12/07 19:58:14  dadams
;; RCS 1. Added requires of shrink-fit-all.el, font-menus.el.
;; RCS 2. Added autoload of cursors.el.
;; RCS
;; RCS Revision 1.5  2000/11/09 15:39:26  dadams
;; RCS Changed require training-cc to autoload
;; RCS
;; RCS Revision 1.4  2000/11/07 16:11:49  dadams
;; RCS Added requires: objectstream-ps-print, training-cc, printing.
;; RCS
;; RCS Revision 1.3  2000/11/01 15:46:04  dadams
;; RCS 1. Put imenu-add-defs-to-menubar inside condition-case, in c-mode-*-hook.
;; RCS 2. Removed toggle-line-number-mode (toggle-line-number-display exists).
;; RCS
;; RCS Revision 1.2  2000/09/27 22:25:06  dadams
;; RCS 1. Require bookmark+.el.
;; RCS 2. Uncommented requires for cal-opts.el, calendar+.el.
;; RCS
;; RCS Revision 1.1  2000/09/14 17:24:16  dadams
;; RCS Initial revision
;; RCS
; Revision 1.16  1999/10/07  13:14:25  dadams
; 1. Require cal-opts.el.
; 2. Require calendar+.el after load cal-french & diary-lib.
; 3. Removed: (defalias 'toggle-cdl-fill-mode 'cdl-fill-mode).
;
; Revision 1.15  1999/09/03  12:48:09  dadams
; Require pp+.el.
;
; Revision 1.14  1999/09/03  09:13:25  dadams
; Require dired+.el (not just eval-after-load).
;
; Revision 1.13  1999/09/02  08:34:37  dadams
; Require menu-bar+.el before setup-keys.el.
;
; Revision 1.12  1999/08/30  13:10:51  dadams
; *** empty log message ***
;
; Revision 1.11  1999/08/30  11:52:18  dadams
; 1. Require imenu+.el.
; 2. Require cc-mode+.el after load c-mode.el & cc-mode.el.
;
; Revision 1.10  1999/08/25  14:02:49  dadams
; *** empty log message ***
;
; Revision 1.9  1999/08/24  15:09:44  dadams
; Added back require replace+.el.
;
; Revision 1.8  1999/04/14  11:10:16  dadams
; Added requires: facemenu+.el, setup-info.el.
;
; Revision 1.7  1999/04/09  13:51:16  dadams
; Added: require highlight.el. Removed autoloads for highlight.el.
;
; Revision 1.6  1999/04/06  14:05:32  dadams
; Added: require compile+, autoloads of highlight.el commands.
;
; Revision 1.5  1999/04/02  14:41:37  dadams
; Added requires: setup-frames, setup-keys.
;
; Revision 1.4  1999/04/01  13:10:28  dadams
; Added: require 'find-dired+, autoload make-regexp.
;
; Revision 1.3  1999/03/23  08:58:07  dadams
; 1. Commented out require (temporarily): icomplete.el.
; 2. Require dired+.el.
;
; Revision 1.2  1999/03/17  12:56:18  dadams
; Trying version 34.1:
; 1. Removed temporary load of library version of completion.el.
; 2. Removed require: apropos, find-dired, replace+, debug, help,
;    jka-compr, bib-mode+, bookmark+, calendar+, dired+, doctor+, edebug+,
;    ediff+, edmacro+, etags+, foldout+, font-lock+, gnus+, hideif+, man+,
;    outline+, foldout, profile+,  bib-mode+, rmail+, rmailsum+, s-region+,
;    vi+, yow+.
; 3. Removed load-library: compile, pp, server.
; 4. Removed autoload: unaccent-word (iso-latin-1), shell-script-mode,
;    sh-mode, s-region-bind, hilit-*, profile-*, trace-*,
;    toggle-auto-decompress, toggle-save-place, *page*, ps, scommand,
;    pop-to-buffer-autosize-window, cmu*, my-shell-complete, array-mode,
;    *generating, expand-macro, studlify-*, hide-ifdef-mode,
;    cut-trailing-blanks-and-expand-tabs, *calc*,  defmath, hippie-expand,
;    c-macro-expand, temp-mode, insert-user-datestamp, (loadhist stuff),
;    insert-star-date-string, asort etc. (Alists), decode-syntax-table.
; 5. Removed: setq jka-compr-compression-info-list, setq
;    rmail-default-file, (server-start).
; 6. Added require: frame-fns, help+.
; 7. Changed require to eval-after-load: icomplete+, vc+.
; 8. Added autoload: erase-nonempty-inactive-minibuffer,
;    update-file-autoloads, unaccent-word, unaccent-region, unaccent-char,
;    kill-region-wimpy, auto-make-header, make-header.
;
; Revision 1.1  1997/03/19  09:41:52  dadams
; Initial revision
;
; Revision 1.85  1996/07/15  09:12:35  dadams
; eval-after-load: edebug+.el, hideif+.el, profile+.el, timer+.el.
;
; Revision 1.84  1996/07/11  15:25:24  dadams
; Require novice+.el after load novice.el.
;
; Revision 1.83  1996/07/11  14:42:05  dadams
; Require edmacro+.el after load edmacro.el.
;
; Revision 1.82  1996/07/03  08:45:57  dadams
; Require after loading GNU files: bib-mode+.el, vi+.el.
;
; Revision 1.81  1996/07/02  08:34:00  dadams
; (eval-after-load "foldout" '(require 'foldout+))
;
; Revision 1.80  1996/07/01  12:39:47  dadams
; 1. eval-after-load: Load *+.el files after corresponding *.el files.
; 2. #1 => No longer require: menu-bar+.el, font-lock+.el, etags+.el.
; 3. #1 => No longer autoload ediff+.el, sort+.el, options+.el, rmail+.el,
;    calendar+.el, man+.el, thingatpt+.el, bookmark+.el.
;
; Revision 1.79  1996/06/25  13:53:19  dadams
; Require outline+.el after load outline.el.
;
; Revision 1.78  1996/06/20  12:12:08  dadams
; load-library, instead of require, find-dired.el, to ensure getting mine.
;
; Revision 1.77  1996/06/12  13:07:43  dadams
; Added ediff+.el autoloads for ediff.el fns not defined in ediff+.el.
;
; Revision 1.76  1996/06/06  14:59:54  dadams
; No longer explicitly autoload, since ###autload'd: list-options, vkill,
; electric-latin-1-modifier, iso-latin-1-mode, unaccent-region, unaccent-char.
;
; Revision 1.75  1996/04/29  13:59:14  dadams
; Require etags+.el.
;
; Revision 1.74  1996/04/25  09:51:42  dadams
; Added autoloads of bookmark+.el.
;
; Revision 1.73  1996/04/23  07:17:39  dadams
; (trivial: Require dired-x.el when compile.)
;
; Revision 1.72  1996/04/18  09:27:40  dadams
; 1. Added use-dired-x-p.  Set up dired-x when use-dired-x-p.
; 2. Autoload sort+.el.
; 3. Don't need an autoload here for dired-jump-other-window.
;
; Revision 1.71  1996/04/15  08:16:16  dadams
; Require frame+.el.
;
; Revision 1.70  1996/04/12  10:57:17  dadams
; Require simple+.el.
;
; Revision 1.69  1996/04/04  14:21:19  dadams
; 1. Moved require of frame-cmds.el earlier.
;
; Revision 1.68  1996/03/08  14:21:06  dadams
; 1. Copyright.
; 2. Require menu-bar+.el (imenu.el is autoloaded).
; 3. drew-misc-19.el -> misc-cmds.el, drew-window-cmds.el -> frame-cmds.el,
;    drew-cal.el -> calendar+.el.
;
; Revision 1.67  1996/02/29  10:45:05  dadams
; 1. No longer require help-minor.el (###autoloaded).
; 2. Autoload options+.el on Edit-options-mode too.
;
; Revision 1.66  1996/02/26  14:15:28  dadams
; 1. Remove requiring of info+.el as Info-mode-hook, because ###autoloaded.
; 2. Autoload rmail+.el.  Set a default for rmail-default-file.
; 3. Removed last-dabbrev-table to setup.el.
; 4. Special-pop-up-window -> pop-to-buffer-autosize-window.
;
; Revision 1.65  1996/02/15  17:05:21  dadams
; Don't require ediff+.el, since ###autoloaded.
;
; Revision 1.64  1996/02/14  18:00:12  dadams
; Autoload thingatpt+.el for more fns.
;
; Revision 1.63  1996/02/13  07:10:02  dadams
; 1. No longer autoload finder+.el.  (My finder.el is ###autoloaded instead.)
; 2. Require help-minor.el.
;
; Revision 1.62  1996/02/12  10:08:44  dadams
; 1. Updated header keywords (for finder).
; 2. Autoload finder+.el.
;
; Revision 1.61  1996/02/06  16:38:24  dadams
; Autoload options+.el.
;
; Revision 1.60  1996/02/02  15:21:21  dadams
; 1. Require window+.el, replace+.el.  Autoload sh-script.el, profile.el.
; 2. Use server: gnuserv or emacsserver, depending on $EMACSCLIENT.
; 3. Autoload dired.el for dired-jump-other-window.
;
; Revision 1.59  1996/01/10  16:10:37  dadams
; Require (my) find-dired.el.
;
; Revision 1.58  1996/01/09  16:38:13  dadams
; Don't require s-region+.el, but autoload it on s-region-bind.
;
; Revision 1.57  1996/01/09  15:09:18  dadams
; Require s-region+.el, instead of s-region.el.
;
; Revision 1.56  1996/01/08  14:08:27  dadams
; Require s-region.el
;
; Revision 1.55  1996/01/02  16:48:54  dadams
; All but loads removed to two new files: `setup.el' and `start-opt.el'.
; Only `setup.el' is required here.  (Load `start-opt.el' in `.emacs'.)
;
; Revision 1.54  1995/12/28  16:12:15  dadams
; Major: Removed some requires (since added ;;;###autoloads), reordered.
; 1. Removed requires: drew-util-19.el, highlight.el, dired+.el, show-bind.el,
;    wimpy-del.el, cookie+.el, since autoloaded.
; 2. Removed require of icomplete.el to icomplete+.el.
; 3. Removed autoloads of compare-w.el & completion.el, since ;;;###autoloads.
; 4. Moved key bindings to end.
;
; Revision 1.53  1995/12/28  07:53:14  dadams
; yow+.el, haiku.el -> cookie+.el.  *Yow!* and *Haiku* frames.
;
; Revision 1.52  1995/12/21  15:02:44  dadams
; 1. Added other bindings for `complete'.
; 2. Defined toggle aliases.
;
; Revision 1.51  1995/12/21  13:45:31  dadams
; 1. Added *Cookie* frame. Call yowza, haiku-cycle (in yow+.el and haiku.el).
; 2. Use cmpl-case-fold-search.
;
; Revision 1.50  1995/12/15  15:47:07  dadams
; Require dired+.el.
;
; Revision 1.49  1995/12/15  10:00:09  dadams
; Removed isearch-mode-hook to new (required) file isearch+.el.
;
; Revision 1.48  1995/12/14  16:46:54  dadams
; Added autoload of man+.el.
;
; Revision 1.47  1995/12/12  16:52:42  dadams
; Require new file drew-window-cmds.el (stuff that was in drew-misc-19.el).
;
; Revision 1.46  1995/12/07  11:03:34  dadams
; 1) Added default-frame-foreground, default-frame-background,
;    default-frame-font, default-frame-mouse-color,
;    default-frame-cursor-color, minibuffer-frame-font,
;    minibuffer-frame-mouse-color, minibuffer-frame-cursor-color,
;    minibuffer-frame-foreground.
;    Use these variables in default-frame-alist and minibuffer-frame-alist.
; 2) No toggle-scroll-bars minibuffer.  Do directly in minibuffer-frame-alist.
; 3) Added ccl-mode-hook values.
;
; Revision 1.45  1995/12/06  10:23:07  dadams
; minibuffer-frame-alist: case -> cond, with string-match.
;
; Revision 1.44  1995/12/05  13:03:50  dadams
; 1) Require cl.el.
; 2) default-frame-alist: Changed top and left.
; 3) Changed (in)active-minibuffer-frame-background colors.
; 4) minibuffer-frame-alist: Take SUN and SGI screens into account.
;
; Revision 1.43  1995/12/01  14:16:09  dadams
; Use delete-selection-mode (delsel.el), rather than use-kill-region-backward.
;
; Revision 1.42  1995/12/01  08:22:14  dadams
; Use use-kill-region-backward as change-major-mode-hook (for
; fundamental-mode).
;
; Revision 1.41  1995/11/30  14:54:22  dadams
; Use inactive-minibuffer-frame-background in minibuffer-frame-alist.
;
; Revision 1.40  1995/11/30  14:29:41  dadams
; Removed ";;;###autoload's here.
;
; Revision 1.39  1995/11/30  14:10:42  dadams
; Added (in)active-minibuffer-frame-background and
; color-(in)active-minibuffer-frame.  Use as minibuffer setup / exit
; hooks.
;
; Revision 1.38  1995/11/30  13:14:03  dadams
; Substitute self-insert-kill-region-backward for self-insert-command.
;
; Revision 1.37  1995/11/30  10:52:53  dadams
; Hooks: Added auto-make-header and kill-region-backward to most hooks. Added
; turn-on-font-lock-mode and imenu-add-defs-to-search-menu to fortran-mode.
;
; Revision 1.36  1995/11/28  13:49:04  dadams
; Put define-key's in first column, so imenu picks them up (cosmetic).
;
; Revision 1.35  1995/11/22  08:43:52  dadams
; F1 key -> Print key (for ISO chars)
;
; Revision 1.34  1995/11/16  14:20:26  dadams
; 1) Use special-display-regexps, not special-display-buffer-names.
; 2) Autoload drew-cal.el for `calendar' and `insert-diary-entry'.
;
; Revision 1.33  1995/11/10  16:50:47  dadams
; 1) (make-transient-mark-mode-buffer-local t) instead of just turning it on.
; 2) Use display-time-24hr-format.
;
; Revision 1.32  1995/11/09  14:44:59  dadams
; temp -> temp-mode
;
; Revision 1.31  1995/10/31  12:27:44  dadams
; 1) auto-mode-alist: temp -> temp-mode. 2) Mode hooks:
; turn-on-font-lock-mode.
;
; Revision 1.30  1995/10/25  10:00:27  dadams
; Mode hooks: 1) Reversed order of add-hooks to put notify-user last.
;             2) c, c++ and emacs-lisp modes: add-hook font-lock-mode.
;             3) compilation mode: add-hook notify-user-of-mode.
;
; Revision 1.29  1995/10/24  07:40:36  dadams
; 1) auto-mode-alist suffixes: $ -> \\'
; 2) jka-compr.el: Require, not autoload.  New jka-compr-compression-info-list.
; 3) Autoload decompress.el.  Don't require uncompress.el.
; 4) asort.el -> assoc.el (typo).
;
; Revision 1.28  1995/10/17  15:38:29  dadams
; 1) More lines in minibuffer frame.
; 2) Added autoloads for: hilit19.el, delsel.el, trace.el, page-ext.el,
;    hippie-exp.el, thingatpt.el, hide-ifdef.el, cmacexp.el, array.el,
;    loadhist.el.
; 3) Require icomplete(+).el.  Require foldout.el for outline mode.
; 4) hexl mode displays ISO chars too.
; 5) baw-alist -> asort.
; 6) minor-mode-alist & auto-mode-alist buffer local: setq ->
; setq-default.
;
; Revision 1.27  1995/10/12  15:49:44  dadams
; 1) Bind C-x C-z to highlight.  Require highlight.el.
; 2) Added compilation-mode-hook := font-lock-mode.
;
; Revision 1.26  1995/09/14  12:53:52  dadams
; Use F1 key as "C-x 8" compose key.
;
; Revision 1.25  1995/09/13  07:21:53  dadams
; Load info+.el (as Info-mode-hook).
;
; Revision 1.24  1995/09/12  13:16:32  dadams
; 1) Dedicated *Completions* frame, with focus redirected to minibuffer frame.
; 2) Added hooks for CASCADE: user-vt100-hook, shell-mode-hook.
;
; Revision 1.23  1995/09/11  12:18:20  dadams
; Require buff-menu+.el.
;
; Revision 1.22  1995/09/11  06:51:36  dadams
; 1) Reset window-setup-hook after load paren.el, so
;    blink-paren-function won't be nullified.
; 2) Ediff stuff moved to ediff+.el. Vc stuff moved to vc+.el. (Both required.)
; 3) buffer-menu-mode-hook: font-lock-mode.
;
; Revision 1.21  1995/09/07  15:26:10  dadams
; 1) Removed face defns to drew-faces.el.  Require it and font-lock+.el.
; 2) Use blink-matching-open.
; 3) Don't call font-lock-mode here at top-level.
; 4) dired-mode-hook -> dire-after-readin-hook.  Use font-lock-mode for dired.
; 5) Increased ediff-auto-refine-limit some more.
;
; Revision 1.20  1995/09/04  13:06:02  dadams
; 1) Use std GNU header, and require lisp-mnt.el in emacs-lisp-mode.
; 2) Require iso-syntax.el and iso-transl.el.
;
; Revision 1.19  1995/08/30  15:32:07  dadams
; 1) No longer require drew-cal.el.
; 2) Removed user-is-drew-p to .emacs.
; 3) Doubled ediff-auto-refine-limit.
;
; Revision 1.18  1995/08/30  07:09:58  dadams
; 1) Added ediff stuff.
; 2) Removed imenu stuff to drew-imenu.el (required).
; 3) imenu-add-defs-to-menubar -> imenu-add-defs-to-search-menu.
;
; Revision 1.17  1995/08/24  13:29:12  dadams
; 1) No scroll bars for minibuffer frame.
; 2) Bind compare-windows here.
; 3) buffers-menu-max-size := 30.
;
; Revision 1.16  1995/08/18  15:18:56  dadams
; 1) Autoload imenu.
; 2) Added redefinition of imenu-add-to-menubar.
; 3) Added imenu-add-defs-to-menubar, and put it on programming mode
; hooks.
;
; Revision 1.15  1995/08/18  09:46:11  dadams
; 1) Calendar stuff removed to drew-cal.el.
; 2) Added user-is-drew-p.
; 3) Bound C-h & C-t of isearch-mode-map.
;
; Revision 1.14  1995/08/18  06:46:07  dadams
; 1) default-frame-alist: Added menu-bar.
; 2) Rename *Help* and *Calendar* frames from buffers.
; 3) Autoload key bindings.
; 4) Moved binding substitutions for exit-with-confirmation and
;    kill-buffer-delete-frames til after original bindings loaded
;    (drew-menu-bar.el).
; 5) Menu-bar stuff removed to drew-menu-bar.el, so require it.
; 6) Removed commented-out Epoch stuff.
;
; Revision 1.13  1995/08/11  15:33:35  dadams
; Added local-holidays.
;
; Revision 1.12  1995/08/11  14:59:25  dadams
; 1) Changed load order a bit.
; 2) Require files+.el.
; 3) Removed load of appt+.el (no longer exists).
; 4) Removed to appt.el: assignments of appt-disp-window-function and
;    appt-delete-window-function.
; 5) pp key bindings done via pp-rebind-eval-keys.
; 6) Bind here: execute-extended-command-and-check-for-bindings, vc-ediff.
; 7) Added latitude and longitude for calendar.
;
; Revision 1.11  1995/08/10  09:17:54  dadams
; 1) Require apropos.el, so get my version.
; 2) Auto-fill text modes by default.
;
; Revision 1.10  1995/08/10  06:17:16  dadams
; 1) Added menu-bar stuff (help).
; 2) Removed rebind-minibuffer-completion-map (done in elect-mbuf.el).
; 3) Use substitute-key-definition for exit-with-confirmation,
;    kill-buffer-delete-frames, pp-eval-expression.
; 4) declpt -> declp
; 5) buffers-menu-max-size := nil.
;
; Revision 1.9  1995/08/08  15:10:27  dadams
; Added bindings:
;   From drew-misc-19.el: iconify/map-frame, exit-with-confirmation,
;                         kill-buffer-delete-frames, raise-*Help*-buffer,
;                         mouse-tear-off-window, mouse-iconify/map-frame
;   Redefinition of std mouse: mouse-delete-window, mouse-*-secondary*
;
; Revision 1.8  1995/08/08  13:08:31  dadams
; 1) Require debug, help.
; 2) apropos-do-all := t.
; 3) Bound ESC ESC to pp-eval-expression.
;
; Revision 1.7  1995/08/04  07:09:53  dadams
; 1) Load my debug.el.
; 2) Use new (std) completion.el vars.
; 3) Calendar stuff: Load my appt.el, appt+.el.  Calendar frame size.
; 4) No longer use rsz-mini.el: bugged (core dumps).
;
; Revision 1.6  1995/08/02  15:11:57  dadams
; Load my version of pp.el, so don't notify of mode change (occluded pp value).
;
; Revision 1.5  1995/08/02  08:01:12  dadams
; 1) Defined running-epoch, just in case.
; 2) Corrected last-dabbrev-table typo here.
; 3) Transient-mark-mode on.
; 4) Highlight replacements and searches.  Highlight region everywhere.
; 5) Misc defaults from old .startup.el.
; 6) Calendar etc, in save-window-excursion.
; 7) Added iso-latin-1-mode stuff (unaccent).
; 8) Set misc var values (e.g. tex-, lpr-).
; 9) Require: drew-util-19, drew-misc-19, elect-mbuf, show-bind, wimpy-del,
;    uncompress.
; 10) Autoload: line-num, vkill, scommand, cmushell, filec-shell, generate,
;     studly, white, calc, calc-ext, completion, date, baw-alist, syntax-decode
; 11) Set up hooks: latex, fortran, temp, find-file-not-found.
; 12) Notify user of mode change.
;
; Revision 1.4  1995/07/31  10:22:38  dadams
; 1) bold -> * for minibuffer font (no bold can be found).
; 2) Removed autoloads for header2.el (use ;;;###autoload).
;
; Revision 1.3  1995/07/31  09:17:35  dadams
; Added stuff from .emacs.
;
; Revision 1.2  1995/07/31  08:54:37  dadams
; First version for Emacs 19:
; 1. Added RCS keywords.
; 2. Use header2.el stuff.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:

(require 'cl)                           ; when, push, unless
(require 'misc-fns)
(require 'simple+)                      ; Corrections, extensions.
(require 'frame+)                       ; Corrections, extensions.
(require 'frame-cmds)                   ; Frame and window commands.
(require 'shrink-fit-all)               ; Automatic frame resizing.
(require 'files+)                       ; Redefinitions.
;; LOAD `setup-frames.el' BEFORE load `htmlize.el', because `htmlize.el' breaks
;; something so that frames like help-frame remain invisible.
;; LOAD `setup-frames.el' BEFORE load `find-dired+', because that loads 
`mkhtml.el',
;; which loads `htmlize.el'.
(require 'setup-frames)                 ; Default frame configuration.
(require 'window+)                      ; Corrections.
;(require 'apropos)                      ; My version.
(require 'paren)                        ; Highlight matching parens.
(require 'bookmark+)
(require 'elect-mbuf)                   ; Minibuffer completion, default input 
cycling.
;; Next 2 lines shouldn't be needed if env var `$LC_CTYPE' = "iso-8859-1".
;;;Emacs 20 - no longer need (standard-display-european 9999) ; Display ISO 
characters.
;;;Emacs 20 - no longer need (require 'iso-syntax) ; ISO Case-conversion and 
syntax.
(require 'iso-transl)

;; Dired-X:
(defvar use-dired-x-p t "*Non-nil means that `dired-x' package is to be loaded.
See the Dired-X Info pages (type \\[info]) for information on this package.")
(eval-when-compile (require 'dired-x))
(when use-dired-x-p
  ;; DIRED-X-HANDS-OFF-MY-KEYS and DIRED-OMIT-FILES are free vars here.
  (add-hook 'dired-load-hook          ; To be done before dired is loaded.
            (function (lambda ()
                        ;; Bind `dired-x-find-file' in place of `find-file'.
                        (setq dired-x-hands-off-my-keys nil)
                        (load "dired-x")
                        ;; Set other dired-x variables here.  For example:
                        ;; (setq dired-guess-shell-gnutar "gtar")
                        (setq dired-omit-files
                              (concat dired-omit-files "\\|^RCS$\\|^SCCS$"))
                        (setq dired-x-hands-off-my-keys nil))))
;;;  (add-hook 'dired-mode-hook
;;;            (function (lambda ()
;;;                        ;; Set dired-x buffer-local variables here.  E.g.:
;;;                        ;; (setq dired-omit-files-p t))))
                        )

;; LOAD `setup-info.el' BEFORE `help+.el', `mkhtml.el' &
;; `menu-bar+.el', because they load `info+.el'. Note:
;; `find-dired+.el' loads `dired+.el', which loads `mkhtml.el'.
(require 'setup-info)                   ; Colors etc. - LOAD BEFORE info+.el.

(require 'find-dired+)                  ; Improvements.
;;;EMACS20PUT BACK@@@(load-library "loaddefs")               ; My 
automatically-generated autoloads.

(require 'frame-fns)
(require 'buff-menu+)                   ; My replacements.
(require 'misc-cmds)                    ; Miscellaneous commands.
(require 'replace+)                     ; Redefinitions, corrections.

;(require 'debug)                        ; My version.
(require 'compile+)                     ; Highlighting, etc.
(require 'vc-hooks+)                    ; VC fixes and options.
(eval-after-load "vc" '(require 'vc+))  ; VC fixes and options.
(eval-after-load "pp" '(require 'pp+))
(require 'isearch+)                     ; Bug fix, more keys, help.
(load-library "delsel")                 ; My version.
;; An alternative to `delsel.el': (require 'kill-reg-back)
(require 'highlight)
(require 'help+)
(require 'cus-edit+)
(require 'imenu+)
;;@@@@PUT THIS BACK!!!!;;;(require 'hier-imenu)      ; Hierarchical imenu for 
html, tex

;; Load dlgopen.el before menu-bar+.el.
(when (string-match "i386" system-configuration) (require 'dlgopen))


;;; Ispell4
(autoload 'ispell-word "ispell4" 
  "Check spelling of word at or before point" t)
(autoload 'ispell-complete-word "ispell4" 
  "Complete word at or before point" t)
(autoload 'ispell-region "ispell4" 
  "Check spelling of every word in the region" t)
(autoload 'ispell-buffer "ispell4" 
  "Check spelling of every word in the buffer" t)
;;;@@@@@@@@@@@@@@@@@@@ THESE PATHS ARE NO GOOD ANY MORE!
(defvar ispell-command "c:/Emacs/ispell4/ispell.exe")
(defvar ispell-look-dictionary "c:/Emacs/ispell4/ispell.words")
(defvar ispell-look-command "c:/Emacs/ispell4/look.exe")
(defvar ispell-command-options (list "-d" "c:/Emacs/ispell4/ispell.dict"))

(autoload 'make-regexp "make-regexp"
  "Return a regexp to match a string item in STRINGS.")
(autoload 'make-regexps "make-regexp"
  "Return a regexp to REGEXPS.")

(autoload 'apropos-user-options "apropos+" "Show user variables that match 
REGEXP." t)

(autoload 'erase-nonempty-inactive-minibuffer "strings"
  "Erase the minibuffer, if inactive and `minibuffer-empty-p'." t)

(autoload 'update-file-autoloads "autoload+"
  "Update the autoloads for FILE in `generated-autoload-file'" t)

(autoload 'unaccent-word "unaccent"
  "Move curseur forward NUM (prefix arg) words, removing accents." t)
(autoload 'unaccent-region "unaccent"
  "Replace accented chars between START and END by unaccented chars." t)
(autoload 'unaccent-char "unaccent"
  "Replace accented char at curser by corresponding unaccented char(s)." t)

;; An ISO alternative is `/usr/emacs/lib/emacs/site-lisp/accents.el'.
;; To view TeX accent macros as accented chars: (load-library "iso-cvt")

(autoload 'kill-region-wimpy "wimpy-del"
  "Kill region, with confirmation if > `wimpy-delete-size'." t)
(autoload 'clipboard-kill-region-wimpy "wimpy-del"
  "Kill region, with confirmation if > `wimpy-delete-size'." t)

(autoload 'auto-make-header "header2"
  "Call `make-header' if current buffer is empty." t)
(autoload 'update-file-header "header2" "Update file header." t)
(autoload 'make-header "header2" 
  "Insert (mode-dependent) header comment at beginning of file." t)
(autoload 'make-revision "header2" 
  "Prepare for a new history comment." t)

(require 'setup)                        ; Startup assignments and such.
(require 'objectstream-lpr)
(require 'objectstream-ps-print)        ; PostScript printing.
(require 'printing)                     ; Printing from menu bar etc.
(require 'menu-bar+) ;; Load *before* setup-keys.el
(require 'icomplete+)                   ; Sorted, colored icompletion
(require 'setup-keys)                   ; Key bindings.
(require 'mkhtml)                       ; Create HTML from Emacs buffers/files.

;(setq jka-compr-compression-info-list   ; Must do setq *before* the require.
;      '(["\\.Z~?\\'" "compressing"    "compress"     ("-c")
;         "decompressing"  "uncompress"   ("-c") nil t]
;        ["\\.g?z~?\\'"                  ; Allow *.z.  Use no -q option.
;         "zipping"        "gzip"         ("-c" "-v" "-9")
;         "unzipping"      "gzip"         ("-c" "-d" "-v") t t]))
;(require 'jka-compr)                    ; Automatic file (de)compression.

;; (require 'resume)                       ; To pass command line args.
;; (add-hook 'suspend-hook 'resume-suspend-hook) ; Use with `edit' alias.

;(setq rmail-default-file                ; Possible error otherwise, if nil.
;      (or (and (fboundp 'rmail-default-file) rmail-default-file)
;          (expand-file-name "~/xmail")))

;(load-library "server")
;(server-start)       ; In both `gnuserv.el' and `server.el'.

;(autoload 's-region-bind "s-region+")

;(autoload 'hilit-highlight-region "hilit19" "Highlight region." t)
;(autoload 'hilit-rehighlight-region "hilit19" "Re-highlight region." t)
;(autoload 'hilit-repaint-command "hilit19" "Re-highlight buffer or region." t)
;(autoload 'hilit-recenter "hilit19" "Recenter, then rehighlight." t)
;(autoload 'hilit-unhighlight-region "hilit19" "Unhighlight region." t)
;(autoload 'hilit-add-pattern "hilit19" "Add highlight PATTERN for mode." t)

;(autoload 'profile-a-function "profile" "Measure time spent in a FUNCTION." t)
;(autoload 'profile-functions "profile"
;  "Measure time spent in functions of `profile-functions-list'." t)

;(eval-after-load "bib-mode" '(require 'bib-mode+))

;;;Emacs 20 PUT BACK SOME OF THESE WHEN UPDATED
(require 'cal-opts)
(eval-after-load "calendar" '(require 'calendar+))
(eval-after-load "cal-french" '(require 'calendar+))
(eval-after-load "diary-lib" '(require 'calendar+))

(eval-after-load "diff" '(require 'diff+))

(require 'dired+)
;(eval-after-load "doctor" '(require 'doctor+))
;(eval-after-load "edebug" '(require 'edebug+))
;(eval-after-load "ediff" '(require 'ediff+))
;(eval-after-load "edmacro" '(require 'edmacro+))
;(eval-after-load "etags" '(require 'etags+))
(eval-after-load "faces" '(require 'faces+))
;(eval-after-load "foldout" '(require 'foldout+))
;(eval-after-load "font-lock" '(require 'font-lock+))
;(eval-after-load "gnus" '(require 'gnus+))
;(eval-after-load "hideif" '(require 'hideif+))
(eval-after-load "info" '(require 'info+))
(autoload 'dir-info "info+" "Access all online manuals via `Info'." t)
(autoload 'emacs-lisp-info "info+" "Access the Emacs Lisp manual via `Info'." t)
(autoload 'emacs-info "info+" "Access the Emacs manual via \"Info\"." t)
(eval-after-load "macros" '(require 'macros+))
;(eval-after-load "man" '(require 'man+))    ;; No longer needed.
;(eval-after-load "menu-bar" '(require 'menu-bar+))
(require 'mouse+)
(eval-after-load "novice" '(require 'novice+))
(eval-after-load "options" '(require 'options+))
;(eval-after-load "outline" '(progn (require 'outline+)(require 'foldout)))
;(eval-after-load "profile" '(require 'profile+))
;(eval-after-load "refbib" '(require 'bib-mode+)) ; For now this serves both 
files
(eval-after-load "ring" '(require 'ring+))
;(eval-after-load "rmail" '(require 'rmail+))
;(eval-after-load "rmailsum" '(require 'rmailsum+))
;(eval-after-load "s-region" '(require 's-region+))
(unless (>= 20 emacs-major-version) (eval-after-load "sort" '(require 'sort+)))
(eval-after-load "thingatpt" '(require 'thingatpt+))
(autoload 'symbol-at-point "thingatpt+")
(autoload 'symbol-nearest-point "thingatpt+")
(autoload 'symbol-name-nearest-point "thingatpt+")
(autoload 'word-nearest-point "thingatpt+")
(eval-after-load "timer" '(require 'timer+))
;;;@@@Emacs20 (eval-after-load "c-mode" '(require 'cc-mode+))
;;;@@@Emacs20 (eval-after-load "cc-mode" '(require 'cc-mode+))
(eval-after-load "cc-mode"
                 '(progn (require 'imenu+)
                         (add-hook 'c-mode-common-hook
                                   '(lambda () (condition-case nil
                                                   (imenu-add-defs-to-menubar)
                                                 (error nil))))))
;(eval-after-load "vc" '(require 'vc+))
;(eval-after-load "vi" '(require 'vi+))
;(eval-after-load "yow" '(require 'yow+))

;; Like `jka-compr.el'.  Another kind of decompression (w/o auto-compression).
;(autoload 'toggle-auto-decompress "decompress"
;  "Toggle automatic file decompression when a file is visited." t) 

;(autoload 'toggle-save-place "saveplace"
;  "Toggle whether to save your place in this file between sessions." t)

;(autoload 'next-page "page-ext" "Move to next page." t)
;(autoload 'previous-page "page-ext" "Move to previous page." t)
;(autoload 'pages-directory "page-ext" "Display table of contents (headers)." t)
;(autoload 'add-new-page "page-ext" "Insert new page." t)
;(autoload 'search-pages "page-ext" "Search for REGEXP.  Narrow to its page." t)
;(autoload 'sort-pages-in-region "page-ext" "Sort pages in region (alpha)." t)
;(autoload 'sort-pages-buffer "page-ext" "Sort buffer pages alphabetically." t)

(autoload 'display-line-numbers "line-num"
  "Temporarily display line numbers in left margin of current buffer." t)
(autoload 'setup-training-cc "training-cc" "Set up for code display with 
projector." t)
(autoload 'toggle-tabs-font-lock "show-wspace" "Toggle highlighting of TABs." t)
(autoload 'toggle-hardspace-font-lock "show-wspace"
  "Toggle highlighting of hard SPACE characters." t)
(autoload 'toggle-trailing-whitespace-font-lock "show-wspace"
  "Toggle highlighting of trailing whitespace." t)
(require 'font-menus nil t)
(autoload 'joc-cursor-type-set-hook "cursors" "Make cursor reflect 
insert/overwrite mode." t)

;(autoload 'ps "vkill"                   ; Also ###autoloaded as cmd `vkill'.
;  "Display your UNIX processes (all system processes if superuser)." t)

;(autoload 'scommand "scommand"          ; Replacement for `shell-command'.
;  "Execute string COMMAND in inferior shell (in background)." t)
;(autoload 'pop-to-buffer-autosize-window "scommand"
;  "Like `pop-to-buffer' with `pop-up-windows'=t, but sets window height." t)

;(autoload 'cmushell "cmushell" "Run an inferior Shell process." t)
;(autoload 'cmulisp "cmushell" "Run an inferior Lisp process." t)

;(autoload 'my-shell-complete "filec-shell" "File completion in shell mode." t)
;;(require 'sh-mode)                      ; Korn shell mode

;(autoload 'start-generating "generate"  ; Does not create keyboard macro.
;  "Start generating Elisp code from keystrokes, recording for expand-macro." t)
;(autoload 'stop-generating "generate" "Stop generating Elisp code." t)
;(autoload 'expand-macro "generate"
;  "Expand most recently recorded command sequence into Emacs Lisp." t)

;(autoload 'studlify-region "studly" "Mix-case words in region." t)
;(autoload 'studlify-word "studly" "Mix-case word." t)
;(autoload 'studlify-buffer "studly" "Mix-case words in buffer." t)

;(autoload 'cut-trailing-blanks-and-expand-tabs "white"
;  "Remove trailing blanks in buffer and expand TAB chars into spaces." t)

;(autoload 'calc "calc" "Calculator Mode" t nil)
;(autoload 'quick-calc "calc" "Quick Calculator" t nil)
;(autoload 'full-calc "calc" "Full-screen Calculator" t nil)
;(autoload 'calc-eval "calc" "Call Calculator" nil nil)
;(autoload 'calc-grab-region "calc-ext" nil t nil)
;(autoload 'defmath "calc-ext" nil t t)
;(autoload 'calc-extensions "calc-ext" nil nil nil)
;(autoload 'calc-extensions "calc-ext" "Extensions to calculator." t)

;(autoload 'hippie-expand "hippie-exp" "Try to expand text before point." t)

;(autoload 'hide-ifdef-mode "hide-ifdef" "Toggle hide-ifdef-mode (minor)." t)
;(autoload 'c-macro-expand "cmacexp" "Expand C macros w/ C preprocessor." t)

;(autoload 'temp-mode "temp-mode"

;(autoload 'insert-user-datestamp "date" "Insert user name and datestamp." t)
;(autoload 'insert-star-date-string "date" "Insert numerical datestamp." t)

;;;; Alist functions for elisp programming
;(autoload 'asort "assoc" "Sort ALIST to put elt matching KEY at head." t)
;(autoload 'aelement "assoc" "Return a copy of alist element (KEY . VAL)." t)
;(autoload 'aheadsym "assoc" "Return the key at the head of ALIST." t)
;(autoload 'anot-head-p "assoc" "(KEY . *) is not at the head of ALIST." t)
;(autoload 'aput "assoc" "Inserts (KEY . VAL) at head of ALIST. 
;If VAL is nil, (KEY . real-value) in ALIST is moved to head." t)
;(autoload 'aget "assoc" "Return value in ALIST that is associated with KEY." t)
;(autoload 'adelete "assoc" "Deletes (KEY . *) from ALIST." t)
;(autoload 'amake "assoc" "Make an association list" t)

;(autoload 'array-mode "array" "Major mode for editing string arrays." t)

;(autoload 'symbol-file "loadhist" "Input source from which SYM was loaded.")
;(autoload 'feature-symbols "loadhist" "File and symbols of FEATURE.")
;(autoload 'feature-file "loadhist" "File from which FEATURE was loaded.")
;(autoload 'file-provides "loadhist" "Features provided by FILE.")
;(autoload 'file-requires "loadhist" "Features required by FILE.")
;(autoload 'file-dependents "loadhist" "Loaded libraries that depend on FILE.")
;(autoload 'unload-feature "loadhist" "Unload library that provided FEATURE.")
;(autoload 'set-intersect "loadhist" "Set intersection of two lists.")

;; To more correctly pick up comment begin and end strings, by parsing
;; buffer's syntax table.
;(autoload 'decode-syntax-table "syntax-decode"
;  "Parse the syntax table for the current mode" t)

;; Define some aliases so can find toggles easily.
(defalias 'toggle-abbrev-mode 'abbrev-mode)
(defalias 'toggle-auto-fill-mode 'auto-fill-mode)
(defalias 'toggle-auto-lower-mode 'auto-lower-mode)
(defalias 'toggle-auto-raise-mode 'auto-raise-mode)
(defalias 'toggle-auto-save-mode 'auto-save-mode)
(defalias 'toggle-binary-overwrite-mode 'binary-overwrite-mode)
(defalias 'toggle-compilation-minor-mode 'compilation-minor-mode) ; (defsubst)
(defalias 'toggle-delete-selection-mode 'delete-selection-mode) ; `delsel.el'.
(defalias 'toggle-double-mode 'double-mode)
(defalias 'toggle-enable-flow-control 'enable-flow-control)
(defalias 'toggle-font-lock-mode 'font-lock-mode)
(defalias 'toggle-hide-ifdef-mode 'hide-ifdef-mode)
(defalias 'toggle-iso-accents-mode 'iso-accents-mode)
(defalias 'toggle-menu-bar-mode 'menu-bar-mode)
(defalias 'toggle-overwrite-mode 'overwrite-mode)
(defalias 'toggle-scroll-bar-mode 'scroll-bar-mode)
(defalias 'toggle-standard-display-european 'standard-display-european)
(defalias 'toggle-transient-mark-mode 'transient-mark-mode)

;;;;;;;;;;;;;;;;;;;;;;

(provide 'start)
(require 'start)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; `start.el' ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]