 ;XXX; ;; XXX See also:
 ;XXX; ;;   * `ps-mule-encode-ucs2' function definition.
 ;XXX; ;;   * (info "(elisp)Translation Keymaps")
-
+;XXX;
+;XXX; (defun insert-logt-entry ()
+;XXX;   "Append new entry to ~/.logt file."
+;XXX;   (interactive)
+;XXX;   (find-file "~/.logt")
+;XXX;   (goto-char (point-min))
+;XXX;   (open-line 1)
+;XXX;   (insert (format-time-string "%a %Y-%m-%d %T> ")))
+;XXX; (global-set-key (kbd "C-c l") 'insert-logt-entry)
+;XXX;
+;XXX; ;;; Dictionary
+;XXX; ;; (try `M-x dictionary-match-words')
+;XXX; (when (file-accessible-directory-p "~/lib/emacs/dictionary/")
+;XXX;   (setq load-path (cons "~/lib/emacs/dictionary" load-path))
+;XXX;   (autoload 'dictionary-search "dictionary" nil t)
+;XXX;   (global-set-key (kbd "C-c d") 'dictionary-search)
+;XXX;   (eval-after-load "dictionary"
+;XXX;     '(define-key dictionary-mode-map (kbd "DEL") 'scroll-down)))
+;XXX;
+;XXX; (autoload 'work-log-mode "~/lib/emacs/work-log/work-log.el" nil t)
+;XXX;
+;XXX; (setq visible-bell t) ; flash a frame instead of beeping
+;XXX; (setq sort-fold-case t)   ; sorting functions should ignore case
 ;XXX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;XXX; (global-set-key (kbd "<f9> t") 'toggle-truncate-lines)
-;XXX; (global-set-key (kbd "<f9> v") 'view-file)
-;XXX; (setq sort-fold-case t)   ; sorting functions should ignore case
 
 (custom-set-variables
   ;; custom-set-variables was added by Custom.

;;; (see http://www.cabochon.com/~stevey/blog-rants/effective-emacs.html)
(dolist (f '(menu-bar-mode scroll-bar-mode tool-bar-mode)) (funcall f -1))

;; (setq visible-bell t) ; flash a frame instead of beeping

(transient-mark-mode t) ; highlight marked region
(progn
  (iswitchb-mode t) ; enable switching between buffers using substrings
  (setq iswitchb-prompt-newbuffer nil)) ; create a buffer silently
(icomplete-mode t) ; enable incremental minibuffer completion
(progn (require 'uniquify) (setq uniquify-buffer-name-style 'forward))

(setq backup-directory-alist '((".*" . "~/.backups"))) ; backups location
(setq require-final-newline t default-indicate-empty-lines t)
(put 'narrow-to-region 'disabled nil)

(setq c-default-style '((c-mode . "linux") (awk-mode . "awk") (other . "gnu")))
(setq enable-local-variables :safe)

(when (file-readable-p "/opt/local/share/gtags/gtags.el")
  (autoload 'gtags-mode "/opt/local/share/gtags/gtags.el" nil t)
  (setq gtags-suggested-key-mapping t gtags-pop-delete t)

  ;; 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 130 :width normal :foundry "apple" :family "Menlo")))))
(put 'scroll-left 'disabled nil)
