dot/emacs, el/dot-emacs.el: Consistently use `setq-default' for mode defaults.

More-or-less consistently anyway.

diff --git a/dot/emacs b/dot/emacs
index ba3096b350e449a5c1fc0ac5e3700012de425fb8..9c6fa6bb36393c25833334400342a7495069b6c2 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -399,7 +399,7 @@
   (tooltip-mode 0)
   (tool-bar-mode 0))
 (trap (or mdw-fast-startup (global-auto-revert-mode t)))
   (tooltip-mode 0)
   (tool-bar-mode 0))
 (trap (or mdw-fast-startup (global-auto-revert-mode t)))

-(setq psgml-html-build-new-buffer nil)
+(setq-default psgml-html-build-new-buffer nil)

 
 (defvar mdw-black-background t)
 
 
 (defvar mdw-black-background t)
 


@@ -930,10 +930,10 @@
 
 (add-hook 'rexx-mode-hook 'mdw-fontify-rexx t)
 
 
 (add-hook 'rexx-mode-hook 'mdw-fontify-rexx t)
 

-(setq sml-nested-if-indent t
-      sml-case-indent nil
-      sml-indent-level 4
-      sml-type-of-indent nil)
+(setq-default sml-nested-if-indent t
+             sml-case-indent nil
+             sml-indent-level 4
+             sml-type-of-indent nil)

 (add-hook 'sml-mode-hook 'mdw-fontify-sml t)
 
 (add-hook 'haskell-mode-hook 'mdw-fontify-haskell t)
 (add-hook 'sml-mode-hook 'mdw-fontify-sml t)
 
 (add-hook 'haskell-mode-hook 'mdw-fontify-haskell t)


@@ -944,8 +944,8 @@
 (add-hook 'texinfo-mode-hook 'mdw-fontify-texinfo t)
 (add-hook 'TeXinfo-mode-hook 'mdw-fontify-texinfo t)
 
 (add-hook 'texinfo-mode-hook 'mdw-fontify-texinfo t)
 (add-hook 'TeXinfo-mode-hook 'mdw-fontify-texinfo t)
 

-(setq LaTeX-table-label "tbl:")
-(setq TeX-auto-untabify nil)
+(setq-default LaTeX-table-label "tbl:"
+             TeX-auto-untabify nil)

 (add-hook 'TeX-mode-hook 'mdw-fontify-tex t)
 (add-hook 'tex-mode-hook 'mdw-fontify-tex t)
 (add-hook 'LaTeX-mode-hook 'mdw-fontify-tex t)
 (add-hook 'TeX-mode-hook 'mdw-fontify-tex t)
 (add-hook 'tex-mode-hook 'mdw-fontify-tex t)
 (add-hook 'LaTeX-mode-hook 'mdw-fontify-tex t)

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 92614ca6b5b7609c88beac7d3889c65f05970d88..12d0e72045911a53ff7bd56a936588f0dda51fe3 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2797,14 +2797,14 @@ (defun mdw-fontify-awk ()
 
 ;; Perl indentation style.
 
 
 ;; 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.
 
 
 ;; Define perl fontification style.
 


@@ -2927,7 +2927,7 @@ (setq auto-mode-alist
 ;;;--------------------------------------------------------------------------
 ;;; Lua programming style.
 
 ;;;--------------------------------------------------------------------------
 ;;; Lua programming style.
 

-(setq lua-indent-level 2)
+(setq-default lua-indent-level 2)

 
 (defun mdw-fontify-lua ()
 
 
 (defun mdw-fontify-lua ()
 


@@ -2972,10 +2972,10 @@ (defun mdw-fontify-lua ()
 
 ;; Icon indentation style.
 
 
 ;; 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.
 
 
 ;; Define Icon fontification style.
 


@@ -3130,7 +3130,7 @@ (defun mdw-fontify-dylan ()
 ;;;--------------------------------------------------------------------------
 ;;; Algol 68 configuration.
 
 ;;;--------------------------------------------------------------------------
 ;;; Algol 68 configuration.
 

-(setq a68-indent-step 2)
+(setq-default a68-indent-step 2)

 
 (defun mdw-fontify-algol-68 ()
 
 
 (defun mdw-fontify-algol-68 ()
 


@@ -3375,7 +3375,7 @@ (defun mdw-fontify-haskell ()
 ;;;--------------------------------------------------------------------------
 ;;; Erlang configuration.
 
 ;;;--------------------------------------------------------------------------
 ;;; Erlang configuration.
 

-(setq erlang-electric-commands nil)
+(setq-default erlang-electric-commands nil)

 
 (defun mdw-fontify-erlang ()
 
 
 (defun mdw-fontify-erlang ()
 


@@ -3530,15 +3530,15 @@ (eval-after-load 'font-latex
           (unless modified
             (restore-buffer-modified-p nil)))))))
 
           (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.
 
 
 (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.
 
 ;;;--------------------------------------------------------------------------
 ;;; SGML hacking.


@@ -3683,8 +3683,8 @@ (defun mdw-eshell-prompt ()
                  (concat "~" (substring pwd (length home)))
                pwd))
            right)))
                  (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)
 
 (defun eshell/e (file) (find-file file) nil)
 (defun eshell/ee (file) (find-file-other-window file) nil)


@@ -3903,9 +3903,9 @@ (defun mdw-common-lisp-indent ()
   (make-local-variable 'lisp-indent-function)
   (setq lisp-indent-function 'common-lisp-indent-function))
 
   (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)
 
 (defmacro mdw-advise-hyperspec-lookup (func args)
   `(defadvice ,func (around mdw-browse-w3m ,args activate compile)