X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/6e6faf38a021861ccbf73634ed3dd5b9383d961c..83065d5120ce8bb2c1906fc4d271467bfc9af7b5:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index 34d7500..0301453 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -382,6 +382,9 @@
 (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
@@ -389,6 +392,8 @@
 (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)
@@ -458,7 +463,9 @@
   (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
@@ -674,10 +681,13 @@
 
 ;; 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)