To:	djgpp AT sun DOT soe DOT clarkson DOT edu
Subject:	Emacs 19 for Dos
Date:	Wed, 01 Nov 1995 06:49:51 -0600
From:	Anthony James Pierre <pierre AT stolaf DOT edu>

is there any way to get colors (highlighting) for emacs in dos?

I tried to load hilit19.el, but it said responder not found. this is
my _emacs.  plug it in and tell me if it works on your PC

(setq inhibit-startup-message t)
(setq Info-directory-list (list "/home/accserv1/stuc/f/kang/lib/info" 
				"/usr/local/info"
				"/usr/local/unsup/lib/emacs/info" ))
(setq default-major-mode 'text-mode)
(setq initial-major-mode 'text-mode)
;;(setq text-mode-hook 'turn-on-auto-fill)
(autoload 'unshar "unshar" nil t)
(autoload 'info "info" "info-reader" t)
(put 'eval-expression 'disabled nil)
(setq c-indent-level 3)
(setq load-path 
      (append
       (list
	(expand-file-name "~fritchie/elisp")
	(expand-file-name "~johnsonb/lib/elisp")
	(expand-file-name "~kang/lib/lisp")
	(expand-file-name "~unsup/lib/emacs/lisp")
	"/usr/src/local/src/elisp/misc"
	"/usr/local/lib/emacs/19.22/lisp")
       load-path))

;;; highlight region.  Press C-g to unset mark
(transient-mark-mode 1)
;;; C/C++ mode stuff
;;Some necessary stuff to use the new cc-mode





;;;; Some stuff is specific to X, and the packages aren't 
;;;;  smart enough to figure it out themselves :-/
(if window-system
    (progn
     (require 'hilit19)          ; not intended to be autoloaded
     (setq hilit-auto-highlight-maxout 70000) ; set a higher autohighlight max
     (hilit-translate 'string-face 'navy)
     (hilit-translate 'summary-unread 'blue4)
     (hilit-translate 'summary-current 'red4-underline)
     (hilit-translate 'summary-deleted 'grey65)
     (hilit-translate 'msg-quote-face 'navy)
     (hilit-translate 'msg-subject-face 'red4-underline)
     (hilit-translate 'msg-header-face 'DarkOrchid4))
    (cons 'a '(b c)))
;;; gnus stuff
(global-set-key "\M-\C-g" 'gnus-grab-gif)
(setq gnus-novice-user t)
(setq gnus-use-full-window nil)
(setq gnus-large-newsgroup 1000)
(setq gnus-use-generic-from t)
(setq gnus-use-generic-path t)
(setq gnus-article-save-directory "~/News/")
(setq gnus-default-article-saver 'gnus-summary-save-in-file)
(setq gnus-save-all-headers nil)
(setq gnus-signature-file "~/.xrn.sig")
(setq gnus-mail-reply-method 'gnus-mail-reply-using-mhe)
(setq gnus-mail-forward-method 'gnus-mail-forward-using-mhe)
(setq gnus-mail-other-window-method 'gnus-mail-other-window-using-mhe)
;;; gif and uu
(autoload 'gnus-grab-gif "gif" "" t)
(autoload 'uuencode-file "uu" "" t)
(autoload 'uuencode-buffer "uu" "" t)
(autoload 'uuencode-region "uu" "" t)
(autoload 'uudecode-buffer "uu" "" t)
(autoload 'uudecode-region "uu" "" t)
(autoload 'uudecode-region-replace "uu" "" t)
(autoload 'uumerge-buffer "uu" "" t)
(autoload 'mark-next-uuencode "uu" "" t)
(setq uumerge-in-unix t)
(setq uudecode-directory (expand-file-name "~/News/"))
(setq uu-not-askingp t)
;;MH-e stuff
(add-hook 'mail-citation-hook 'sc-cite-original)
(defvar mh-summary-height 8)
(setq mh-recursive-folders t)           ; Enable recursive folders
(global-set-key "\C-x\C-m" 'mh-rmail)
;; Emacs Web browswer
(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'gopher-dispatch-object "gopher" "Fetch gopher dir" t)
(setq w3-default-homepage "http://www.stolaf.edu/welcome.html")
;;Superscite stuff
(autoload 'sc-cite-original "supercite" "Supercite 3.1" t)
(autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
(setq mail-yank-hooks 'sc-cite-original)
(setq mh-yank-hooks 'sc-cite-original)    ; for mh-e users
(setq sc-auto-fill-region-p t)          ; Fill each paragraph after citing
(setq sc-fixup-whitespace-p t)        ; Del. leading whitespace before citing
(setq news-reply-header-hook nil)
;;Miscellaneous
(autoload 'chord-mode "tablature-mode" "Guitar tablature." t)
(autoload 'archie "archie" "Archie interface" t)
(setq ange-ftp-generate-anonymous-password t)
(autoload 'check-mail "my-mail" "check for new mail" t)
;;(load "my-time" nil t)
(display-time)

- Raw text -