; emacs initialization file
;
; jameslin (2000-04-24)

(setq require-final-newline t)

(pc-bindings-mode)
(pc-selection-mode)
(delete-selection-mode t)

(hscroll-global-mode)
(setq column-number-mode t)

(setq scroll-step 1)
(setq default-tab-width 4)

(setq font-lock-maximum-decoration t)

;(custom-set-faces
;	'(font-lock-comment-face
;	  ((t (:foreground "Firebrick"))))
;	'(font-lock-string-face
;	  ((t (:foreground "Salmon"))))
;	'(font-lock-keyword-face
;	  ((t (:foreground "Purple"))))
;	'(font-lock-function-name-face
;	  ((t (:foreground "Blue"))))
;	'(font-lock-variable-name-face
;	  ((t (:foreground "Goldenrod"))))
;	'(font-lock-type-face
;	  ((t (:foreground "LimeGreen"))))
;	'(font-lock-reference-face
;	  ((t (:foreground "CadetBlue"))))
;)

; some systems for some reason don't treat Alt as Meta
(global-set-key [A-x] 'execute-extended-command)
(global-set-key [C-tab] 'switch-to-buffer)
(global-set-key '[67108960] 'other-window)  ; C-`
(global-set-key "\eg" 'goto-line)
(global-unset-key [mouse-2])
;(global-unset-key [C-w])

(put 'backward-kill-paragraph 'disabled t)
(put 'backward-kill-word 'disabled t)
(put 'backward-kill-sentence 'disabled t)
(put 'backward-kill-sexp 'disabled t)
(put 'kill-paragraph 'disabled t)
(put 'kill-word 'disabled t)
(put 'kill-sexp 'disabled t)
(put 'kill-sentence 'disabled t)
(put 'open-line 'disabled t)
;(put 'kill-line 'disabled t)
;(put 'kill-region 'disabled t)
(put 'kill-rectangle 'disabled t)

(setq make-backup-files nil)
(setq auto-save-default t)
(setq auto-save-interval 250)

(setq lpr-command "enscript-stdin")
(setq lpr-headers-switches "-2rG")

(custom-set-variables
 '(indent-tabs-mode nil)
 '(fill-column 76))
(custom-set-faces)

; always include file name and path in frame titles
(setq frame-title-format "emacs [%f]")

; is there a better way to set these?
(defun my-c-settings ()
  (local-set-key [tab] 'indent-relative)
  (local-unset-key "(")
  (local-unset-key ")")
  (local-unset-key "{")
  (local-unset-key "}")
  (local-unset-key "*")
  (local-unset-key "/")
  (local-unset-key "?")
  (local-unset-key ":")
  (local-unset-key ";")
  (local-unset-key ",") )

(add-hook 'c-mode-hook 'turn-on-font-lock)
(add-hook 'java-mode-hook 'turn-on-font-lock)
(add-hook 'lisp-mode-hook 'turn-on-font-lock)
(add-hook 'scheme-mode-hook 'turn-on-font-lock)

(add-hook 'c-mode-hook 'my-c-settings)
(add-hook 'java-mode-hook 'my-c-settings)



                                                             ... more stuff
___________________________________________________________________________
page updated: (see above)                      home . about . stuff . links
copyright (c) 2000 james lin