On Wed, Sep 15, 1999 at 02:17:53AM -0400, Rob Mahurin wrote:
> On Tue, Sep 14, 1999 at 07:32:22PM -0400, Kristopher Johnson wrote:
> > I honestly don't mean to start a holy war here, but I'd like to
> > know: Is there anyone who prefers Emacs to XEmacs, and why?
>
> I use emacs when I'm in a text terminal (like right now) because I
> haven't figured out how to use Xemacs' menus from the text terminal
> and some of the functions of Xemacs (e.g., syntax highlighting) seem
> inaccessible without mouse access to the proper menus. In addition,
> the cut and paste works differently in Xemacs (in a text terminal)
> than in any other text-based program, and it always messes with me. I
> am sure that these things are configureable, but I haven't found them
> and I don't feel like learning Lisp and reading the source.
>
> This preference means that I use emacs -nw to write email from mutt,
> even in X.
try this for giggles.... here are snippets from .muttrc and
.emacs_mutt.el
I run this in a transparent aterm with yellow text and on a dark
background (I tell you this because that colors I have below will look
really nasty if you're one of those black-on-white people :).
-Michael
#################### .muttrc ##########################
set editor="xemacs -nw -q -l /home/einstein/mstenner/.emacs_mutt.el"
color hdrdefault cyan default
color indicator black green
color markers yellow red
color tree green default
color status black green
color quoted green default
color signature magenta default
################## .emacs_mutt.el #####################
;; -*- lisp -*-
; this is where I put my private lisp stuff
(setq load-path (cons "/home/einstein/mstenner/lib/lisp/" load-path))
(setq mouse-yank-at-point t) ; mouse insert where cursor is
(line-number-mode 1)
(column-number-mode 1)
(setq scroll-step 10)
(keyboard-translate ?\C-h ?\C-?)
(keyboard-translate ?\C-? ?\C-h)
(setq default-major-mode 'text-mode) ; turn on text-mode (sort of)
; turn on auto-fill
(setq text-mode-hook
'(lambda () (auto-fill-mode 1)))
; don't clutter with "~" files --- put them in .trash/
(defun make-backup-file-name (file)
(concat "/home/einstein/mstenner/.trash/" (file-name-nondirectory file) "~"))
(defun backup-file-name-p (file)
(string-match "\\~$" file))
; allows font-locking even on the terminal
(if (eq 'tty (device-type))
(set-device-class nil 'color))
; general color config
(set-face-background 'modeline "black")
(set-face-background 'modeline "green")
; here is where I associate faces with regex patterns.
(defconst text-font-lock-keywords
'(
("^On .*" . font-lock-variable-name-face) ; inital reply line
("^> .*" . font-lock-comment-face) ; quoted message
)
"Subdued level highlighting for Mutt mode.")
(font-lock-mode) ; turn on font-lock-mode
; cyan blue magenta red green yellow white black == good color options
; Here is where I associate colors with faces
(set-face-foreground 'font-lock-variable-name-face "cyan") ; inital reply line
(set-face-foreground 'font-lock-comment-face "green") ; quoted message
#################################################################
--
Michael Stenner Office Phone: 919-660-2513
Duke University, Dept. of Physics [EMAIL PROTECTED]
Box 90305, Durham N.C. 27708-0305
