(not (memq 'GIT vc-handled-backends))
(setq vc-handled-backends (cons 'GIT vc-handled-backends)))
(and (library-exists-p "quilt")
+ (not mdw-fast-startup)
(load "quilt"))
-(trap
- (or (fboundp 'make-regexp)
- (load "make-regexp")))
-
-(trap (require 'tex-site))
+(trap (or mdw-fast-startup (require 'tex-site)))
;; --- Skeleton stuff ---
-(trap (require 'skel-init))
+(trap (or mdw-fast-startup (require 'skel-init)))
;; --- Window system-dependent things ---
(setq dired-deletion-confirmer ;Make deletion easier in dired
(symbol-function 'y-or-n-p))
(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...)
(setq scroll-step 5) ;Don't scroll too much at a time
(setq-default fill-column 77) ;I use rather narrow windows
(trap
(and (string-match "linux" (symbol-name system-type))
+ (not mdw-fast-startup)
(progn (require 'mailcrypt-init)
(require 'mailcrypt)
(setq mc-default-scheme 'mc-scheme-gpg)
(add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)
(trap
- (require 'slime-autoloads)
- (slime-setup '(slime-autodoc)))
-;;(trap (require 'xscheme))
-;;(setq-default xscheme-process-command-line "scheme -large -emacs")
+ (if (not mdw-fast-startup)
+ (progn
+ (require 'slime-autoloads)
+ (slime-setup '(slime-autodoc)))))
(add-hook 'inferior-lisp-mode-hook
#'(lambda ()
(local-set-key "\C-m" 'comint-send-and-indent)) t)