X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/df77a5752aac8f9481f1614b7025520fd0452531..08b1b191f94dfa200659b03794ef63bdcc51946e:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 92614ca..12d0e72 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2797,14 +2797,14 @@ name, as a symbol."
 
 ;; Perl indentation style.
 
-(setq perl-indent-level 2)
+(setq-default perl-indent-level 2)
 
-(setq cperl-indent-level 2)
-(setq cperl-continued-statement-offset 2)
-(setq cperl-continued-brace-offset 0)
-(setq cperl-brace-offset -2)
-(setq cperl-brace-imaginary-offset 0)
-(setq cperl-label-offset 0)
+(setq-default cperl-indent-level 2
+	      cperl-continued-statement-offset 2
+	      cperl-continued-brace-offset 0
+	      cperl-brace-offset -2
+	      cperl-brace-imaginary-offset 0
+	      cperl-label-offset 0)
 
 ;; Define perl fontification style.
 
@@ -2927,7 +2927,7 @@ strip numbers instead."
 ;;;--------------------------------------------------------------------------
 ;;; Lua programming style.
 
-(setq lua-indent-level 2)
+(setq-default lua-indent-level 2)
 
 (defun mdw-fontify-lua ()
 
@@ -2972,10 +2972,10 @@ strip numbers instead."
 
 ;; Icon indentation style.
 
-(setq icon-brace-offset 0
-      icon-continued-brace-offset 0
-      icon-continued-statement-offset 2
-      icon-indent-level 2)
+(setq-default icon-brace-offset 0
+	      icon-continued-brace-offset 0
+	      icon-continued-statement-offset 2
+	      icon-indent-level 2)
 
 ;; Define Icon fontification style.
 
@@ -3130,7 +3130,7 @@ strip numbers instead."
 ;;;--------------------------------------------------------------------------
 ;;; Algol 68 configuration.
 
-(setq a68-indent-step 2)
+(setq-default a68-indent-step 2)
 
 (defun mdw-fontify-algol-68 ()
 
@@ -3375,7 +3375,7 @@ strip numbers instead."
 ;;;--------------------------------------------------------------------------
 ;;; Erlang configuration.
 
-(setq erlang-electric-commands nil)
+(setq-default erlang-electric-commands nil)
 
 (defun mdw-fontify-erlang ()
 
@@ -3530,15 +3530,15 @@ strip numbers instead."
 	   (unless modified
 	     (restore-buffer-modified-p nil)))))))
 
-(setq LaTeX-syntactic-comments nil
-      LaTeX-fill-break-at-separators '(\\\[))
+(setq-default LaTeX-syntactic-comments nil
+	      LaTeX-fill-break-at-separators '(\\\[))
 
 (add-hook 'bibtex-mode-hook (lambda () (setq fill-column 76)))
 
 ;;;--------------------------------------------------------------------------
 ;;; HTML, CSS, and other web foolishness.
 
-(setq css-indent-offset 2)
+(setq-default css-indent-offset 2)
 
 ;;;--------------------------------------------------------------------------
 ;;; SGML hacking.
@@ -3683,8 +3683,8 @@ that character only to be normal punctuation.")
 		  (concat "~" (substring pwd (length home)))
 		pwd))
 	    right)))
-(setq eshell-prompt-function 'mdw-eshell-prompt)
-(setq eshell-prompt-regexp "^\\[[^]>]+\\(\\]\\|>>?\\)")
+(setq-default eshell-prompt-function 'mdw-eshell-prompt)
+(setq-default eshell-prompt-regexp "^\\[[^]>]+\\(\\]\\|>>?\\)")
 
 (defun eshell/e (file) (find-file file) nil)
 (defun eshell/ee (file) (find-file-other-window file) nil)
@@ -3903,9 +3903,9 @@ that character only to be normal punctuation.")
   (make-local-variable 'lisp-indent-function)
   (setq lisp-indent-function 'common-lisp-indent-function))
 
-(setq lisp-simple-loop-indentation 2
-      lisp-loop-keyword-indentation 6
-      lisp-loop-forms-indentation 6)
+(setq-default lisp-simple-loop-indentation 2
+	      lisp-loop-keyword-indentation 6
+	      lisp-loop-forms-indentation 6)
 
 (defmacro mdw-advise-hyperspec-lookup (func args)
   `(defadvice ,func (around mdw-browse-w3m ,args activate compile)