 	 ps-print-header nil
 	 ps-multibyte-buffer 'bdf-font-except-latin))
 
-;XXX; ;;; https://github.com/winterTTr/ace-jump-mode
-;XXX; (let ((fn "~/lib/emacs/ace-jump-mode/ace-jump-mode.el"))
-;XXX;   (when (file-readable-p fn)
-;XXX;     (autoload 'ace-jump-mode fn nil t)
-;XXX;     (eval-after-load "ace-jump-mode" '(ace-jump-mode-enable-mark-sync))
-;XXX;     (global-set-key (kbd "C-c SPC") 'ace-jump-mode)
-;XXX;     ;; (define-key global-map (kbd "C-x SPC") 'ace-jump-mode-pop-mark)
-;XXX;     (global-set-key (kbd "C-x SPC") 'ace-jump-mode-pop-mark)
-;XXX;     ;; Don't let org-mode grab the binding.
-;XXX;     (add-hook 'org-mode-hook
-;XXX; 	      '(lambda () (define-key org-mode-map (kbd "C-c SPC") nil)))
-;XXX;     ;; Don't let conf-mode grab the binding.
-;XXX;     (add-hook 'conf-mode-hook
-;XXX; 	      '(lambda () (define-key conf-mode-map (kbd "C-c SPC") nil)))))
-
 ;;; http://www.emacswiki.org/emacs/HideRegion
 (let ((fn "~/lib/emacs/hide-region/hide-region.el"))
   (when (file-readable-p fn)


(dolist
    (m '(c-mode python-mode sh-mode rust-mode html-mode js-mode haskell-mode
		markdown-mode yaml-mode ruby-mode))
  (font-lock-add-keywords m
   ; Fontify the word "XXX", even in comments.
   '(("\\<\\(XXX\\)" 1 'font-lock-warning-face prepend))))


(define-key help-map "A" 'apropos-variable)

;; Unset unwelcome key bindings.
(dolist
    (b (list
	(kbd "s-q")       ; `save-buffers-kill-emacs'
	(kbd "s-w")       ; `delete-frame'
	"\C-z"            ; `suspend-frame'
	(kbd "C-x C-z")   ; `suspend-frame'
	(kbd "s-:")       ; `ispell'
	(kbd "s-g")       ; `isearch-repeat-forward'
	(kbd "s-n")       ; `ns-new-frame'
	(kbd "s-z")       ; `undo'
	"\C-z"            ; `undo'
	(kbd "C-x C-p"))) ; `mark-page'
  (global-unset-key b))

(setq confirm-kill-emacs 'yes-or-no-p) ; say "no" to accidental terminations

