[oclug] .emacs

[Brenda J. Butler]

On Wed, Jul 07, 2004 at 09:16:22AM -0400, Alain Maisonneuve wrote:
> would people be willing to share their .emacs files?

Here's mine:

I'd be interested to know how to get the search-forward-regexp
to use the same search regexp as last time.



;; Are we running XEmacs or Emacs?
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)


;; Always end a file with a newline
(setq-default require-final-newline t)

;; No tabs; use spaces only
(setq-default indent-tabs-mode nil)
;; See also:
;; Emacs commands:  M-x tabify, M-x untabify
;; Shell commands:  expand, unexpand (part of gnu coreutils)

;; Stop at the end of the file, not just add lines
;; Yep, that's what it does, when it's set to t
(setq-default next-line-add-newlines nil)

;; Enable wheelmouse support by default
(cond (window-system
       (mwheel-install)
))



;;  From home .emacs; not for use with x-emacs, necessarily
(cond ((not running-xemacs)
  (progn
    ;; display time in 24hr format
    (setq-default display-time-24hr-format t)
    ;; display time in status line
    (display-time)
    ;; display column number of point in status line
    (setq-default column-number-mode t)
    ;; start emacs server (so emacsclient will work)
    (server-start)
)))



;;  new stuff
(cond ((not running-xemacs)
  (progn
    ;; new goto-line key-mapping
    (global-set-key [?\C-.] 'goto-line)
    ;; new search-forward-regexp key-mapping
    (global-set-key [?\C-/] 'search-forward-regexp)
    ;; set truncate-lines to nil, globally
    (setq-default truncate-partial-width-windows nil)
)))
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(case-fold-search t)
 '(current-language-environment "English")
 '(global-font-lock-mode t nil (font-lock))
 '(tool-bar-mode nil nil (tool-bar)))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(default ((t (:background "black" :foreground "green"))))
 '(header-line ((((class color grayscale) (background dark)) (:inherit mode-line :background "green" :foreground "darkgreen" :box (:line-width 1 :color "darkgreen" :style released-button)))))
 '(menu ((((type x-toolkit)) (:background "honeydew3" :foreground "darkgreen" :box (:line-width 1 :color "darkgreen" :style released-button)))))
 '(mode-line ((t (:background "black" :foreground "green" :inverse-video t :box (:line-width -1 :style released-button)))))
 '(scroll-bar ((t (:background "honeydew3"))))
 '(show-paren-match-face ((((class color)) (:background "Turquoise" :foreground "DarkGreen")))))



-- 
bjb at istop dot com
Open Source Weekend       http://www.osw.ca
5F82 9855 E247 1F8A 49CD  053E FB03 E77F 2A19 D707