Re: emacs or xemacs ?

[Michael Stenner <mstenner@phy.duke.edu>]

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	  mstenner@phy.duke.edu
  Box 90305, Durham N.C. 27708-0305