 
 (setq default-indicate-empty-lines t require-final-newline t)
 
-;; ---------------------------------------------------------------------
-;; color-theme
+;;; --------------------------------------------------------------------
+;;; color-theme
 
 ;; `color-theme.el' bug workaround [XXX Is it still needed?]
 (eval-after-load "color-theme"

                               (shell-quote-argument msg) opts))))
  (defalias 'osd 'message))

;; ---------------------------------------------------------------------
;; Cyrillic key bindings

(let ((convert (lambda (c) (+ (- c (make-char 'mule-unicode-0100-24ff 40))
			      (make-char 'cyrillic-iso8859-5)))))

;; (See <http://community.livejournal.com/ru_emacs/47287.html>.)
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT STRING TEXT))

;;; --------------------------------------------------------------------
;;; workaround(s)

;; See http://article.gmane.org/gmane.emacs.jabber.general/862
(eval-after-load "jabber-presence" (quote
(defun jabber-send-default-presence (&optional ignore)
  "Send default presence.
Default presence is specified by `jabber-default-show',
`jabber-default-status', and `jabber-default-priority'."
  (interactive)
  (jabber-send-presence
   jabber-default-show jabber-default-status jabber-default-priority))
))
;;; --------------------------------------------------------------------

;; report loading time
(message "~/.emacs loaded in %d seconds"
	 (destructuring-bind (hi lo ms) (current-time)
