(add-to-list 'load-path (expand-file-name "~/.elisp"))
(add-to-list 'load-path (expand-file-name "~/.elisp/personal"))

(require 'pmg-generic)
(require 'pmg-server)
(require 'pmg-lisp)
(require 'pmg-pascal)
(require 'pmg-pim)
(require 'pmg-livejournal)

;;; Custom funcs.
(defun iwb ()
  "indent whole buffer"
  (interactive)
  (delete-trailing-whitespace)
  (indent-region (point-min) (point-max) nil)
  (untabify (point-min) (point-max)))

;; Set by M-x customize
(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.
 '(blink-cursor-mode nil)
 '(colon-double-space t)
 '(current-language-environment "UTF-8")
 '(default-input-method "latin-1-alt-postfix")
 '(delphi-case-label-indent 2)
 '(delphi-indent-level 2)
 '(diary-file "~/diary/emacs")
 '(display-time-mode nil nil (time))
 '(ecb-auto-activate t)
 '(ecb-compile-window-height 6)
 '(ecb-compile-window-temporally-enlarge (quote both))
 '(ecb-highlight-tag-with-point-delay nil)
 '(ecb-layout-name "left11")
 '(ecb-major-modes-show-or-hide (quote ((pascal-mode))))
 '(ecb-new-ecb-frame nil)
 '(ecb-options-version "2.32")
 '(ecb-source-file-regexps (quote (("/home/pgregory/Shared/" (".*") ("\\.\\(pas\\|dpr\\)$")) (".*" ("\\(^\\(\\.\\|#\\)\\|\\(~$\\|\\.\\(elc\\|obj\\|o\\|class\\|lib\\|dll\\|a\\|so\\|cache\\)$\\)\\)") ("^\\.\\(emacs\\|gnus\\)$")))))
 '(ecb-source-path (quote (("~/Shared/" #("svn" 0 3 (help-echo tree-buffer-help-echo-fn mouse-face highlight))) ("/home/pgregory" #("~" 0 1 (help-echo tree-buffer-help-echo-fn mouse-face highlight))) ("/" #("/" 0 1 (help-echo tree-buffer-help-echo-fn mouse-face highlight))) ("/mnt/development" #("jhall" 0 5 (help-echo tree-buffer-help-echo-fn mouse-face highlight))))))
 '(ecb-windows-width 16)
 '(fill-column 74)
 '(frame-background-mode (quote dark))
 '(global-font-lock-mode t nil (font-lock))
 '(imenu-auto-rescan t)
 '(imenu-auto-rescan-maxout 10240000)
 '(indent-tabs-mode nil)
 '(indicate-empty-lines t)
 '(inhibit-local-menu-bar-menus t)
 '(iswitchb-buffer-ignore (quote ("^ " "*Messages*" "*Completions" "*ECB" "*Buffer" "^[Tt][Aa][Gg][Ss]$")))
 '(iswitchb-use-virtual-buffers t nil (recentf))
 '(jde-global-classpath (quote ("~/school/")))
 '(jde-jdk (quote ("1.5.0")))
 '(jde-jdk-registry (quote (("1.6" . "/usr/lib/jvm/java-6-sun") ("1.5.0" . "/usr/lib/jvm/java-1.5.0-sun"))))
 '(keyboard-coding-system (quote utf-8))
 '(linum-format "%5d|")
 '(lj-default-access-level "friends")
 '(lj-default-username "phil_g")
 '(menu-bar-mode nil)
 '(muse-project-alist (quote (("WikiPlanner" ("~/Plans" :default "\"TaskPool\"" :major-mode planner-mode :visit-link planner-visit-link) (:base "\"planner-xhtml\"" :path "\"~/public_html/Plans\"")))))
 '(org-agenda-files (quote ("~/Plans/todo.org")))
 '(org-agenda-include-all-todo t)
 '(org-agenda-include-diary t)
 '(planner-carry-tasks-forward 7)
 '(planner-default-task-priority "B")
 '(printer-name "hmlaptr")
 '(ps-default-bg "white")
 '(ps-default-fg "black")
 '(ps-line-number 1)
 '(ps-printer-name nil)
 '(scroll-bar-mode nil)
 '(show-paren-mode t nil (paren))
 '(show-paren-style (quote expression))
 '(tool-bar-mode nil)
 '(w3m-coding-system (quote utf-8))
 '(w3m-default-coding-system (quote utf-8))
 '(w3m-file-coding-system (quote utf-8))
 '(w3m-file-name-coding-system (quote utf-8))
 '(w3m-key-binding (quote info))
 '(w3m-terminal-coding-system (quote utf-8))
 '(zone-idle 300 t))
(custom-set-faces
  ;; custom-set-faces 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.
 '(default ((((background light)) (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :family "xos4-terminus")) (((type x w32 pc tty) (class color) (background dark)) (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :family "xos4-terminus"))))
 '(cursor ((t (:background "white" :inverse-video t))))
 '(ecb-default-general-face ((((class color) (background dark)) (:height 0.75))))
 '(ecb-default-highlight-face ((((class color) (background dark)) (:background "blue4"))))
 '(ecb-tree-guide-line-face ((((class color) (background dark)) (:inherit ecb-default-general-face :foreground "gray"))))
 '(font-lock-builtin-face ((((type pc tty) (class color)) (:foreground "indianred1")) (((type x w32)) (:foreground "IndianRed1"))))
 '(font-lock-comment-face ((((class color) (min-colors 256) (background dark)) (:foreground "SlateBlue3"))))
 '(font-lock-doc-face ((t (:inherit font-lock-string-face :foreground "palegreen1"))))
 '(font-lock-function-name-face ((t (:foreground "red"))))
 '(font-lock-keyword-face ((t (:weight bold))))
 '(font-lock-string-face ((((class color) (background dark)) (:foreground "green"))))
 '(font-lock-type-face ((((type pc tty) (class color)) (:foreground "royalblue1" :weight bold)) (((type x w32)) (:foreground "RoyalBlue1" :weight bold))))
 '(font-lock-variable-name-face ((t (:foreground "cyan"))))
 '(font-lock-warning-face ((t (:background "white" :foreground "red"))))
 '(mode-line ((t (:background "white" :foreground "blue" :inverse-video t))))
 '(mode-line-inactive ((t (:inherit mode-line :background "color-244" :box (:line-width -1 :color "grey40") :weight light))))
 '(mutt-quoted-text-face ((t (:foreground "green"))))
 '(region ((((type tty) (class color)) (:background "blue" :foreground "white" :inverse-video t)) (((type x w32) (class color)) (:background "dark blue"))))
 '(setnu-line-number-face ((t (:foreground "gray30" :height 0.75))))
 '(show-paren-match ((((class color)) (:weight bold)))))


(put 'downcase-region 'disabled nil)

(put 'upcase-region 'disabled nil)

(put 'narrow-to-region 'disabled nil)