Mercurial > hg > config

comparison .emacs @ 300:a1c72313b3df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor mods
author Jeff Hammel <jhammel@mozilla.com>
date Sat, 11 May 2013 17:55:17 -0700
parents cc2f7d8307d0
children 6095d439d1f2
comparison
equal deleted inserted replaced
299:cc2f7d8307d0 300:a1c72313b3df
1 ;; emacs server (what a piece of crap) 1 ;; emacs server (what a piece of crap)
2 ;; (commented out for now)
3 (require 'server) 2 (require 'server)
4 (or (server-running-p) 3 (or (server-running-p)
5 (server-start)) 4 (server-start))
6 5
7 ;;;; bars 6 ;;;; bars
19 (setq make-backup-files nil) 18 (setq make-backup-files nil)
20 19
21 ;; show trailing whitespace 20 ;; show trailing whitespace
22 (setq-default show-trailing-whitespace t) 21 (setq-default show-trailing-whitespace t)
23 22
24 ;;;; 23 ;;;; ??? no idea
25 24
26 (put 'downcase-region 'disabled nil) 25 (put 'downcase-region 'disabled nil)
27 (setq truncate-lines nil) 26 (setq truncate-lines nil)
28 (setq truncate-partial-width-windows nil) 27 (setq truncate-partial-width-windows nil)
29 (setq use-file-dialog nil) 28 (setq use-file-dialog nil)
57 56
58 (put 'upcase-region 'disabled nil) 57 (put 'upcase-region 'disabled nil)
59 58
60 ;;;; line/col #s 59 ;;;; line/col #s
61 60
62 ;; Show line-number in the mode line 61 ;; Show line and column numbers in the mode line
63 (line-number-mode 1) 62 (line-number-mode 1)
64
65 ;; Show column-number in the mode line
66 (column-number-mode 1) 63 (column-number-mode 1)
67 64
68 ;;;; modes 65 ;;;; modes
69 66
70 ;; Bind major editing modes to certain file extensions 67 ;; Bind major editing modes to certain file extensions
72 (setq auto-mode-alist (cons '("\\.pt$" . sgml-mode) auto-mode-alist)) 69 (setq auto-mode-alist (cons '("\\.pt$" . sgml-mode) auto-mode-alist))
73 (setq auto-mode-alist (cons '("\\.cpt$" . sgml-mode) auto-mode-alist)) 70 (setq auto-mode-alist (cons '("\\.cpt$" . sgml-mode) auto-mode-alist))
74 (setq auto-mode-alist (cons '("\\.cpy$" . python-mode) auto-mode-alist)) 71 (setq auto-mode-alist (cons '("\\.cpy$" . python-mode) auto-mode-alist))
75 (setq auto-mode-alist (cons '("\\.vpy$" . python-mode) auto-mode-alist)) 72 (setq auto-mode-alist (cons '("\\.vpy$" . python-mode) auto-mode-alist))
76 73
77 ;; set auto-fill for modes 74 ;; set auto-fill for appropriate modes
78 (add-hook 'text-mode-hook 'turn-on-auto-fill) 75 (add-hook 'text-mode-hook 'turn-on-auto-fill)
79 (add-hook 'sgml-mode-hook 'turn-off-auto-fill) 76 (add-hook 'sgml-mode-hook 'turn-off-auto-fill)
80 77
78 ;; set the grep command....for some reason
81 (setq grep-command "grep -liE") 79 (setq grep-command "grep -liE")
82 80
83 ;; recent history stuff 81
82 ;;;; recent history stuff
84 (require 'recentf) 83 (require 'recentf)
85 (recentf-mode 1) 84 (recentf-mode 1)
86 (setq recentf-max-menu-items 25) 85 (setq recentf-max-menu-items 25)
87 (global-set-key "\C-x\ \C-r" 'recentf-open-files) 86 (global-set-key "\C-x\ \C-r" 'recentf-open-files)
88 87
89 ;; full-steam-ahead-and-damn-the-torpedoes 88 ;;;; full-steam-ahead-and-damn-the-torpedoes
90 (defun 89 (defun
91 full-steam-ahead-and-damn-the-torpedoes 90 full-steam-ahead-and-damn-the-torpedoes
92 (prompt) t) 91 (prompt) t)
93 (defalias 'y-or-n-p 92 (defalias 'y-or-n-p
94 'full-steam-ahead-and-damn-the-torpedoes) 93 'full-steam-ahead-and-damn-the-torpedoes)
95 (defalias 'yes-or-no-p 94 (defalias 'yes-or-no-p
96 'full-steam-ahead-and-damn-the-torpedoes) 95 'full-steam-ahead-and-damn-the-torpedoes)
97 96
98 (require 'uniquify) 97 (require 'uniquify)
99 (setq uniquify-buffer-name-style 'post-forward) 98 (setq uniquify-buffer-name-style 'post-forward)
99
100 ;;;;
100 101
101 ;; wheel mouse 102 ;; wheel mouse
102 (global-set-key [mouse-4] 'scroll-down) 103 (global-set-key [mouse-4] 'scroll-down)
103 (global-set-key [mouse-5] 'scroll-up) 104 (global-set-key [mouse-5] 'scroll-up)
104 105