.emacs

This is my OLD blog. I've copied this post over to my NEW blog at:

http://www.saltycrane.com/blog/2007/07/emacs/

You should be redirected in 2 seconds.

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(c-basic-offset 3)
 '(column-number-mode t)
 '(cua-mode t nil (cua-base))
 '(scroll-bar-mode nil)
 '(tool-bar-mode nil)
 '(transient-mark-mode t))

;;================================================
;; server mode
(server-start)

;; custimizations
(setq inhibit-startup-message t)
(setq default-truncate-lines t)
(setq default-tab-width 4)
(setq dabbrev-case-replace nil)     ; make sure case is preserved when expanding

;; from http://geosoft.no/development/emacs.html
(setq search-highlight           t) ; Highlight search object
(setq query-replace-highlight    t) ; Highlight query object
(setq mouse-sel-retain-highlight t) ; Keep mouse high-lightening 

;;================================================
;; Behaviour
;; from http://www.postulate.org/emacs.php

;; don't automatically add new lines when scrolling down at
;; the bottom of a buffer
(setq next-line-add-newlines nil)

;; scroll just one line when hitting the bottom of the window
(setq scroll-step 1)
(setq scroll-conservatively 1)

;; move around a little 
(defun cursor-up-slightly () (interactive) (previous-line 7))
(defun cursor-down-slightly () (interactive) (next-line 7))
(global-set-key [C-down] 'cursor-down-slightly)
(global-set-key [C-up] 'cursor-up-slightly)

(defun scroll-up-slightly () (interactive) (scroll-up 7))
(defun scroll-down-slightly () (interactive) (scroll-down 7))
(global-set-key [M-down] 'scroll-down-slightly)
(global-set-key [M-up] 'scroll-up-slightly)

(defun scroll-right-slightly () (interactive) (scroll-right 5))
(defun scroll-left-slightly () (interactive) (scroll-left 5))
(global-set-key [M-right] 'scroll-right-slightly)
(global-set-key [M-left] 'scroll-left-slightly)

;; do scroll horizontally when at edge of screen
(setq auto-hscroll-mode t)
(setq hscroll-margin 0)

;;================================================
;; key bindings
(global-set-key "\C-f" 'isearch-forward)
(global-set-key "\C-s" 'save-buffer)
(global-set-key "\C-w" 'kill-this-buffer)
(global-set-key [C-prior] 'previous-buffer) ; that's CTRL+PGUP
(global-set-key [C-next] 'next-buffer)     ; that's CTRL+PGDOWN
(global-set-key "\M- " 'dabbrev-expand)

;;================================================
;; cc mode
(setq c-default-style '((c-mode . "bsd")))

;;================================================
;; setup frame position and size
(setq initial-frame-alist
   '((top . 0) (left . 600)
  (width . 80) (height . 60)))

(setq default-frame-alist
   '((top . 0) (left . 0)
  (width . 80) (height. 40)
  )
)