else
LC_CTYPE=`mdw-conf x-ctype`
fi
-unset LANG LC_ALL LC_COLLATE
+unset LANG LC_ALL
export LC_CTYPE
+for lc in TIME NUMERIC MONETARY PAPER NAME ADDRESS TELEPHONE MEASUREMENT; do
+ eval "export LC_$lc=$LC_CTYPE"
+done
+export LC_COLLATE=POSIX
+
__mdw_programp distcc && export CCACHE_PREFIX=distcc
export TEXINPUTS=".:$HOME/lib/tex//:"
export LESS="-iqgRh1FX"
export LESSOPEN="|lesspipe.sh %s"
case "$LC_CTYPE" in
- *utf8*) LESSCHARSET=utf-8 ;;
+ *utf8 | *utf-8 | *UTF8 | *UTF-8) LESSCHARSET=utf-8 ;;
*) LESSCHARSET=latin1 ;;
esac
export LESSCHARSET
(global-set-key [vertical-scroll-bar C-mouse-1]
#'(lambda () (interactive)))
+(defun mdw-clobber-org-mode-map ()
+ (dolist (key '([S-up] [S-down] [S-left] [S-right]
+ [?\e left] [?\e right]
+ [M-left] [M-right]))
+ (define-key org-mode-map key nil))
+ (define-key org-mode-map [?\C-c left] 'org-shiftleft)
+ (define-key org-mode-map [?\C-c right] 'org-shiftright)
+ (define-key org-mode-map [?\C-c up] 'org-shiftup)
+ (define-key org-mode-map [?\C-c down] 'org-shiftdown)
+ (define-key org-mode-map [C-left] 'org-metaleft)
+ (define-key org-mode-map [C-right] 'org-metaright)
+ (define-key org-mode-map [C-up] 'org-metaup)
+ (define-key org-mode-map [C-down] 'org-metadown))
+(add-hook 'org-mode-hook 'mdw-clobber-org-mode-map)
+
;; --- Recognising types of files ---
(setq auto-mode-alist