home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / default.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  1.6 KB  |  35 lines
  1. ;;; Scottish HCI Centre default initialisation file for GNU Emacs.
  2. ;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;; Tue Mar 21 17:40:45 1989 
  4.  
  5. ;;; This loads the X, SUN and Terminal Menu software default menus, as
  6. ;;; is appropriate for the particular emacs process you have started.
  7. ;;; If you do not want this, put the following line in your .emacs:
  8. ;;;     (setq inhibit-default-init t)
  9.  
  10. (require 'def-menus)            ; Load the menu software.
  11.  
  12. ;;; Tell Emacs where the Prolog, Postscript and [La]TeX things are.
  13. (let ((fn-file-alist
  14.        '(((start-prolog prolog-mode quintus-prolog-mode c-prolog-mode)
  15.       . "Prolog")
  16.      ((plain-tex-mode tex-mode latex-mode TeX-mode LaTeX-mode)
  17.       . "TeX-mode")
  18.      ((bibtex-mode BibTeX-mode) . "BibTeX-mode") 
  19.      ((dired dired-noselect dired-other-window) . "dired-dir"))))
  20.   (while fn-file-alist
  21.     (let* ((fns-file-pair (car fn-file-alist)) 
  22.            (fns (car fns-file-pair))    ; Get the fns.
  23.            (file (cdr fns-file-pair)))    ; Get the file.
  24.       (while fns            ; Mark each fn for autoloading.
  25.     (let* ((fn (car fns))        ; If fn is fboundp, it's commandp-ness
  26.            (doc (if (fboundp fn) (documentation fn)))) ; is defined,
  27.       (autoload fn file doc (if doc (commandp fn) t)) ; else assume ok.
  28.       (setq fns (cdr fns)))))
  29.     (setq fn-file-alist (cdr fn-file-alist)))) ; Get next fns-file pair.
  30.  
  31. (setq auto-mode-alist            ; Put them on first so they
  32.       (append                ; override any current actions.
  33.         '(("\\.pl$"  . start-prolog)       ; Run PROLOG for "*.pl"
  34.       ("\\.bib$" . BibTeX-mode))       ; For [La]TeX bib. files.
  35.         auto-mode-alist))