dot-emacs cleanup: Remove some spurious spaces.

diff --git a/dot-emacs.el b/dot-emacs.el
index 4222f53ca807ccfba0fb0a5a0666d1db2e8fe180..6500bbb057dd5399ad364754bc0af1effd484fba 100644 (file)
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -645,7 +645,7 @@ (defun mdw-fontify-c-and-c++ ()
 
   ;; --- Now define things to be fontified ---
 
 
   ;; --- Now define things to be fontified ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((c-keywords
         (make-regexp '(
                        ;; "and"        ;C++
   (let ((c-keywords
         (make-regexp '(
                        ;; "and"        ;C++


@@ -829,7 +829,7 @@ (defun mdw-fontify-apcalc ()
 
   ;; --- Now define things to be fontified ---
 
 
   ;; --- Now define things to be fontified ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((c-keywords
         (make-regexp '("break" "case" "cd" "continue" "define" "default"
                        "do" "else" "exit" "for" "global" "goto" "help" "if"
   (let ((c-keywords
         (make-regexp '("break" "case" "cd" "continue" "define" "default"
                        "do" "else" "exit" "for" "global" "goto" "help" "if"


@@ -897,7 +897,7 @@ (defun mdw-fontify-java ()
 
   ;; --- Now define things to be fontified ---
 
 
   ;; --- Now define things to be fontified ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((java-keywords
         (make-regexp '("abstract" "boolean" "break" "byte" "case" "catch"
                        "char" "class" "const" "continue" "default" "do"
   (let ((java-keywords
         (make-regexp '("abstract" "boolean" "break" "byte" "case" "catch"
                        "char" "class" "const" "continue" "default" "do"


@@ -962,7 +962,7 @@ (defun mdw-fontify-awk ()
 
   ;; --- Now define things to be fontified ---
 
 
   ;; --- Now define things to be fontified ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((c-keywords
         (make-regexp '("BEGIN" "END" "ARGC" "ARGIND" "ARGV" "CONVFMT"
                        "ENVIRON" "ERRNO" "FIELDWIDTHS" "FILENAME" "FNR"
   (let ((c-keywords
         (make-regexp '("BEGIN" "END" "ARGC" "ARGIND" "ARGV" "CONVFMT"
                        "ENVIRON" "ERRNO" "FIELDWIDTHS" "FILENAME" "FNR"


@@ -1027,7 +1027,7 @@ (defun mdw-fontify-perl ()
 
   ;; --- Now define fontification things ---
 
 
   ;; --- Now define fontification things ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((perl-keywords
         (make-regexp '("and" "cmp" "continue" "do" "else" "elsif" "eq"
                        "for" "foreach" "ge" "gt" "goto" "if"
   (let ((perl-keywords
         (make-regexp '("and" "cmp" "continue" "do" "else" "elsif" "eq"
                        "for" "foreach" "ge" "gt" "goto" "if"


@@ -1085,7 +1085,7 @@ (defun mdw-fontify-python ()
 
   ;; --- Now define fontification things ---
 
 
   ;; --- Now define fontification things ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((python-keywords
         (make-regexp '("and" "as" "assert" "break" "class" "continue" "def"
                        "del" "elif" "else" "except" "exec" "finally" "for"
   (let ((python-keywords
         (make-regexp '("and" "as" "assert" "break" "class" "continue" "def"
                        "del" "elif" "else" "except" "exec" "finally" "for"


@@ -1170,7 +1170,7 @@ (defun arm-assembler-mode ()
 
   ;; --- Fiddle with fontification ---
 
 
   ;; --- Fiddle with fontification ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (setq font-lock-keywords
        (list
         't
   (setq font-lock-keywords
        (list
         't


@@ -1210,7 +1210,7 @@ (defun arm-assembler-mode ()
 (defun mdw-fontify-tcl ()
   (mapcar #'(lambda (ch) (modify-syntax-entry ch ".")) '(?$))
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
 (defun mdw-fontify-tcl ()
   (mapcar #'(lambda (ch) (modify-syntax-entry ch ".")) '(?$))
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (setq font-lock-keywords
        (list
         't
   (setq font-lock-keywords
        (list
         't


@@ -1255,7 +1255,7 @@ (defun mdw-fontify-rexx ()
   (setq rexx-tab-always-indent nil)
   (setq rexx-cont-indent rexx-indent)
 
   (setq rexx-tab-always-indent nil)
   (setq rexx-cont-indent rexx-indent)
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((rexx-keywords
         (make-regexp '("address" "arg" "by" "call" "digits" "do" "drop"
                        "else" "end" "engineering" "exit" "expose" "for"
   (let ((rexx-keywords
         (make-regexp '("address" "arg" "by" "call" "digits" "do" "drop"
                        "else" "end" "engineering" "exit" "expose" "for"


@@ -1315,7 +1315,7 @@ (defun mdw-fontify-sml ()
 
   ;; --- Now define fontification things ---
 
 
   ;; --- Now define fontification things ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((sml-keywords
         (make-regexp '("abstype" "and" "andalso" "as"
                        "case"
   (let ((sml-keywords
         (make-regexp '("abstype" "and" "andalso" "as"
                        "case"


@@ -1376,7 +1376,7 @@ (defun mdw-fontify-haskell ()
 
   ;; --- Fiddle with fontification ---
 
 
   ;; --- Fiddle with fontification ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (let ((haskell-keywords
         (make-regexp '("as" "case" "ccall" "class" "data" "default"
                        "deriving" "do" "else" "foreign" "hiding" "if"
   (let ((haskell-keywords
         (make-regexp '("as" "case" "ccall" "class" "data" "default"
                        "deriving" "do" "else" "foreign" "hiding" "if"


@@ -1408,7 +1408,7 @@ (defun mdw-fontify-texinfo ()
 
   ;; --- Real fontification things ---
 
 
   ;; --- Real fontification things ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (setq font-lock-keywords
        (list
         't
   (setq font-lock-keywords
        (list
         't


@@ -1456,7 +1456,7 @@ (defun mdw-fontify-tex ()
 
   ;; --- Real fontification things ---
 
 
   ;; --- Real fontification things ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (setq font-lock-keywords
        (list
         't
   (setq font-lock-keywords
        (list
         't


@@ -1738,7 +1738,7 @@ (defun mdw-setup-smalltalk ()
   (local-set-key "\C-i" 'smalltalk-reindent))
 
 (defun mdw-fontify-smalltalk ()
   (local-set-key "\C-i" 'smalltalk-reindent))
 
 (defun mdw-fontify-smalltalk ()

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (setq font-lock-keywords
        (list
         't
   (setq font-lock-keywords
        (list
         't


@@ -1779,7 +1779,7 @@ (defun mdw-fontify-lispy ()
 
   ;; --- Not much fontification needed ---
 
 
   ;; --- Not much fontification needed ---
 

-  (make-local-variable  'font-lock-keywords)
+  (make-local-variable 'font-lock-keywords)

   (setq font-lock-keywords
        (list
         't
   (setq font-lock-keywords
        (list
         't