(require 'cl)
(require 'dot-emacs)
+(unless (mdw-emacs-version-p 25)
+ (trap (require 'bracketed-paste) (bracketed-paste-enable)))
+
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
ido-default-file-method 'selected-window
ido-default-buffer-method 'selected-window)
(setq ido-enable-flex-matching t
+ ido-everywhere t
ido-confirm-unique-completion t
ido-use-filename-at-point nil
ido-auto-merge-work-directories-length -1)
+(setq pcomplete-cycle-completions nil ;Who thought that was a good idea?
+ eshell-cmpl-cycle-completions nil)
(setq dired-deletion-confirmer ;Make deletion easier in dired
(symbol-function 'y-or-n-p)
dired-listing-switches "-alF" ;Do `ls -F' things in dired windows
(setq read-quoted-char-radix 16) ;C-q HEX-STUFF [RET]
(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 blink-cursor-blinks 0) ;Keep blinking the cursor
(setq-default fill-column mdw-text-width) ;I use rather narrow windows
+(setq reb-re-syntax 'string) ;Enough backslashes even with this
(setq-default comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil
truncate-lines t)
(setq default-indicate-empty-lines t)
(setq view-read-only t)
+(setq-default view-exit-action #'kill-buffer)
(setq whitespace-style '(trailing empty indentation face lines-tail
space-before-tab space-after-tab)
whitespace-line-column mdw-text-width)
TeXinfo-mode-hook tex-mode-hook latex-mode-hook
texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook
lisp-mode-hook lisp-interaction-mode-hook makefile-mode-hook
- inferior-lisp-mode-hook slime-repl-mode-hook
+ inferior-lisp-mode-hook slime-repl-mode-hook ielm-mode-hook
sml-mode-hook haskell-mode-hook erlang-mode-hook
smalltalk-mode-hook rexx-mode-hook lua-mode-hook
arm-assembler-mode-hook))
(add-hook 'lisp-mode-hook 'mdw-fontify-lispy t)
(add-hook 'inferior-lisp-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t)
+ (add-hook 'ielm-mode-hook 'mdw-fontify-lispy t)
(add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)
(add-hook 'inferior-lisp-mode-hook