 (eval-after-load "org-archive"
   '(org-defkey org-mode-map "\C-c\C-x\C-a"
 	       'org-archive-subtree-default-with-confirmation))
-;; (global-set-key (kbd "C-M-r") 'org-capture)
 ;;; --------------------------------------------------------------------
 
 ;;; Spell check
 (global-set-key (kbd "C-c ib") 'ispell-buffer)
 (global-set-key (kbd "C-c ir") 'ispell-region)
-;XXX; (add-hook 'c-mode-hook 'flyspell-prog-mode)
 
 (eval-after-load "ps-print"
   '(setq ps-paper-type 'a4

  (autoload 'htmlize-buffer "~/lib/emacs/htmlize.el" nil t))

(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.
 '(initial-frame-alist (quote ((height . 44) (width . 80) (top . 0))))
 '(mouse-wheel-scroll-amount (quote (1 ((shift) . 1) ((control))))))
(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 ((t (:inherit nil :stipple nil :background "Black" :foreground "White" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 140 :width normal :foundry "apple" :family "Menlo")))))

;;; -*- coding: utf-8-unix -*-

;; (server-start)

(setq inhibit-startup-message t) ; don't show startup screen

