X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=.emacs;h=94aa3148311b76b3720454097fce31b393c31d87;hb=804559c2bf5275cf7107058eaa1911dc4d9cf1b9;hp=3dbc9d5391f15ef80e8d56a0eae00b9ff2eaa39d;hpb=ffbe0905bafb79f5f0a5e3b0f0df6d33057c535a;p=emacs.d.git

diff --git a/.emacs b/.emacs
index 3dbc9d5..94aa314 100644
--- a/.emacs
+++ b/.emacs
@@ -4,11 +4,30 @@
 (global-set-key "\C-m" 'newline-and-indent)
 (global-font-lock-mode t)
 
+;; These are otherwise bound to C-Up and C-Down. To heck with that
+;; nonsense, M-n and M-p are unused and analogous to C-f, C-b and M-f,
+;; M-b respectively.
+(global-set-key "\M-p" 'backward-paragraph)
+(global-set-key "\M-n" 'forward-paragraph)
+
+;; Gentoo *or somebody* made the default too small.
+;; Make it too big to overcompensate.
+(set-frame-font "DejaVu Sans Mono-14")
+
 ;; Set the frame title to the name of the buffer, if supported.
 (setq frame-title-format "%b")
 
-;; Disable the menu bar
+;; Currently needed to make Emacs 23 behave sanely.
+'(diff-jump-to-old-file t)
+
+;; Disable the menu/tool bars when we're using X.
 (menu-bar-mode -1)
+(when window-system
+  (tool-bar-mode -1))
+
+;; And put the damned scroll bar on the correct side.
+(when window-system
+  (set-scroll-bar-mode 'right))
 
 ;; The most important statement in this file.
 ;; Do not display a splash screen on startup.
@@ -37,47 +56,41 @@
 ;; Don't leave backups everywhere.
 (setq backup-inhibited t)
 
-;; Add this to load-path manually, then add the rest in load-paths.el
-(add-to-list 'load-path "~/.home/emacs/")
-(load-library "load-paths")
-
-(if (eq system-type 'cygwin)
-    (load-library "win32"))
+;; Don't let the file's contents modify my editor, because that needs
+;; to be said? More importantly, don't interrupt me to ask me if I
+;; want to process the variables that emacs KNOWS are unsafe.
+(setq enable-local-variables nil)
 
+;; Add the directory containing .emacs to the load-path.
+(add-to-list 'load-path (file-name-directory (file-truename user-init-file)))
 
 ;; Need this for ignore-errors, and some modes.
 (require 'cl)
 
 (load-library "auto-modes")
 (load-library "mode-hooks")
-(load-library "autoloads")
 
 
-(defun load-erc()
-  (interactive)
-  (ignore-errors
-    (load-library "erc")
-    )
-  )
-
-(global-set-key "\C-ce" 'load-erc)
-
+;; Open private IRC messages in a new buffer.
+(setq erc-auto-query 'buffer)
 
 ;; Never ask me anything, emacs.
 (setq save-abbrevs nil)
 
-
 (load-library "diff-buffer-against-file")
 (global-set-key "\C-cd" 'diff-buffer-against-file)
 
+(load-library "fix-nonstandard-chars")
+(load-library "latex-query-replace-regexp-math")
+
+
+;; Enable dired-find-alternate-file without having to stop
+;; and explain myself to Emacs.
+(put 'dired-find-alternate-file 'disabled nil)
 
-;; These next functions override the defaults provided by emacs. They
-;; prevent warning messages related to file modification times,
-;; particularly on weird filesystems.
 
-;;(defun ask-user-about-supersession-threat (fn)
-;;  )
+;; Enable the downcase-region function.
+(put 'downcase-region 'disabled nil)
 
-;;(defun verify-visited-file-modtime (bf)
-;;  t
-;;  )
+;; I want to see trailing whitespace.
+(custom-set-variables '(show-trailing-whitespace t))