(maybe-autoload 'nc-timesheet-prepare "nc-timesheet" nil t nil)
(maybe-autoload 'nc-timesheet-submit "nc-timesheet" nil t nil)
+(and (library-exists-p "debian-changelog-mode")
+ (add-to-list 'auto-mode-alist
+ `(,(concat "/debian/"
+ "\\("
+ "[" "[:lower:][:digit:]]"
+ "[[:lower:][:digit:].+-" "]+"
+ "\\."
+ "\\)?"
+ "changelog\\'")
+ . debian-changelog-mode)))
+
(and (library-exists-p "vc-git")
(not (memq 'GIT vc-handled-backends))
(setq vc-handled-backends (cons 'GIT vc-handled-backends)))
iswitchb-default-method 'samewindow) ;in other random frames
(setq dired-deletion-confirmer ;Make deletion easier in dired
(symbol-function 'y-or-n-p))
+(setq read-quoted-char-radix 16) ;C-q HEX-STUFF [RET]
(setq dired-listing-switches "-alF") ;Do `ls -F' things in dired windows
(setq wdired-allow-to-change-permissions t)
(setq case-fold-file-names nil) ;Don't translate file names (grr...)
(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