(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 custom-unlispify-tag-names nil ;Display variable names properly
+ custom-unlispify-menu-entries nil
+ custom-buffer-done-kill t)
(setq blink-cursor-blinks 0) ;Keep blinking the cursor
(setq-default fill-column mdw-text-width) ;I use rather narrow windows
(setq adaptive-fill-mode nil) ;I have my own machinery instead
(setq-default comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil
truncate-lines t)
+(setq line-move-visual t
+ visual-order-cursor-movement t)
(setq default-indicate-empty-lines t)
(setq view-read-only t)
(setq-default view-exit-action #'kill-buffer)
(sit-for 2))
;;(add-hook 'viper-vi-state-hook 'mdw-set-viper-cursor-colour)
-(defvar mdw-black-background t)
+(defcustom mdw-black-background t
+ "Whether the Emacs background is black (or dark, at any rate)."
+ :type 'boolean)
(eval-after-load "outline"
'(progn
;; Other frame fiddling.
-(defvar mdw-hostname
+(defcustom mdw-hostname
(if (string-match "\\." system-name)
(substring system-name 0 (match-beginning 0))
- system-name))
+ system-name)
+ "Unqualified hostname Emacs is running on."
+ :type 'string
+ :safe 'stringp)
(setq frame-title-format '("Emacs " user-login-name "@" mdw-hostname " – %b")
icon-title-format frame-title-format)