1 ;;;
 2 ;;;   Sample start_up.emacs, Lisp source
 3 ;;;   Must be compiled to get start_up.emacs
 4 ;;;   Last modified 10/16/80
 5 
 6 (declare (special rmail-mode-hook my-personal-name))   ;Global variables
 7 
 8 (defun Jones/'s-start-up ()                       ;Compilation =>  efficiency
 9        (opt 'find-file-set-modes 'on)             ;foo.pl1 => pl1 mode, etc.
10        (setq rmail-mode-hook 'Jones-rmail-mode-hook)
11                                                   ;Like to read msgs backwards
12        (accept-messages)                          ;Accept console messages
13        (opt 'suppress-backspace-display 'on)      ; _\010A => _A
14        (setq my-personal-name "Harvey B. Jones")) ;For RMAIL
15 
16 (defun Jones-rmail-mode-hook ()(setq rmail-msgx rmail-msgcount))
17 
18 (Jones/'s-start-up)