dot-emacs: Don't make ?_ or ?- be word characters any more.

Now that the sexp operations are working properly, compound identifiers
are better split into multiple words, while still being left as sexps.

diff --git a/dot-emacs.el b/dot-emacs.el
index 3b7af3ff8dbdb4903549f2eb30d9300001d36d22..0d2e85e2a93648cc70b52f60ff12c33ac0840449 100644 (file)
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -719,7 +719,6 @@ (defun mdw-fontify-c-and-c++ ()
 
   ;; --- Fiddle with some syntax codes ---
 
 
   ;; --- Fiddle with some syntax codes ---
 

-  (modify-syntax-entry ?_ "w")

   (modify-syntax-entry ?* ". 23")
   (modify-syntax-entry ?/ ". 124b")
   (modify-syntax-entry ?\n "> b")
   (modify-syntax-entry ?* ". 23")
   (modify-syntax-entry ?/ ". 124b")
   (modify-syntax-entry ?\n "> b")


@@ -901,7 +900,6 @@ (defun mdw-fontify-apcalc ()
 
   ;; --- Fiddle with some syntax codes ---
 
 
   ;; --- Fiddle with some syntax codes ---
 

-  (modify-syntax-entry ?_ "w")

   (modify-syntax-entry ?* ". 23")
   (modify-syntax-entry ?/ ". 14")
 
   (modify-syntax-entry ?* ". 23")
   (modify-syntax-entry ?/ ". 14")
 


@@ -973,7 +971,6 @@ (defun mdw-fontify-java ()
   ;; --- Other stuff ---
 
   (mdw-java-style)
   ;; --- Other stuff ---
 
   (mdw-java-style)

-  (modify-syntax-entry ?_ "w")

   (setq c-hanging-comment-ender-p nil)
   (setq c-backslash-column 72)
   (setq comment-start "/* ")
   (setq c-hanging-comment-ender-p nil)
   (setq c-backslash-column 72)
   (setq comment-start "/* ")


@@ -1047,7 +1044,6 @@ (defun mdw-fontify-csharp ()
   ;; --- Other stuff ---
 
   (mdw-csharp-style)
   ;; --- Other stuff ---
 
   (mdw-csharp-style)

-  (modify-syntax-entry ?_ "w")

   (setq c-hanging-comment-ender-p nil)
   (setq c-backslash-column 72)
   (setq comment-start "/* ")
   (setq c-hanging-comment-ender-p nil)
   (setq c-backslash-column 72)
   (setq comment-start "/* ")


@@ -1130,7 +1126,6 @@ (defun mdw-fontify-awk ()
 
   ;; --- Miscellaneous fiddling ---
 
 
   ;; --- Miscellaneous fiddling ---
 

-  (modify-syntax-entry ?_ "w")

   (mdw-awk-style)
   (setq c-backslash-column 72)
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
   (mdw-awk-style)
   (setq c-backslash-column 72)
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")


@@ -1192,7 +1187,6 @@ (defun mdw-fontify-perl ()
 
   ;; --- Miscellaneous fiddling ---
 
 
   ;; --- Miscellaneous fiddling ---
 

-  (modify-syntax-entry ?_ "w")

   (modify-syntax-entry ?$ "\\")
   (modify-syntax-entry ?$ "\\" font-lock-syntax-table)
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
   (modify-syntax-entry ?$ "\\")
   (modify-syntax-entry ?$ "\\" font-lock-syntax-table)
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")


@@ -1250,7 +1244,6 @@ (defun mdw-fontify-python ()
 
   ;; --- Miscellaneous fiddling ---
 
 
   ;; --- Miscellaneous fiddling ---
 

-  (modify-syntax-entry ?_ "w")

   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
 
   ;; --- Now define fontification things ---
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
 
   ;; --- Now define fontification things ---


@@ -1417,7 +1410,7 @@ (defun mdw-fontify-rexx ()
   (local-set-key [?\C-m] 'mdw-rexx-indent-newline-indent)
   (local-set-key [?*] 'mdw-rexx-electric-*)
   (mapcar #'(lambda (ch) (modify-syntax-entry ch "w"))
   (local-set-key [?\C-m] 'mdw-rexx-indent-newline-indent)
   (local-set-key [?*] 'mdw-rexx-electric-*)
   (mapcar #'(lambda (ch) (modify-syntax-entry ch "w"))

-         '(?. ?! ?? ?_ ?# ?@ ?$))
+         '(?! ?? ?# ?@ ?$))

   (mdw-standard-fill-prefix "\\([ \t]*/?\*[ \t]*\\)")
 
   ;; --- Set up keywords and things for fontification ---
   (mdw-standard-fill-prefix "\\([ \t]*/?\*[ \t]*\\)")
 
   ;; --- Set up keywords and things for fontification ---


@@ -1479,7 +1472,6 @@ (defun mdw-fontify-sml ()
 
   ;; --- Make underscore an honorary letter ---
 
 
   ;; --- Make underscore an honorary letter ---
 

-  (modify-syntax-entry ?_ "w")

   (modify-syntax-entry ?' "w")
 
   ;; --- Set fill prefix ---
   (modify-syntax-entry ?' "w")
 
   ;; --- Set fill prefix ---


@@ -1535,7 +1527,6 @@ (defun mdw-fontify-haskell ()
 
   ;; --- Fiddle with syntax table to get comments right ---
 
 
   ;; --- Fiddle with syntax table to get comments right ---
 

-  (modify-syntax-entry ?_ "w")

   (modify-syntax-entry ?' "\"")
   (modify-syntax-entry ?- ". 123")
   (modify-syntax-entry ?{ ". 1b")
   (modify-syntax-entry ?' "\"")
   (modify-syntax-entry ?- ". 123")
   (modify-syntax-entry ?{ ". 1b")


@@ -1742,8 +1733,6 @@ (defun mdw-setup-sh-script-mode ()
 (defun message-mode-guts ()
   (setq messages-mode-syntax-table (make-syntax-table))
   (set-syntax-table messages-mode-syntax-table)
 (defun message-mode-guts ()
   (setq messages-mode-syntax-table (make-syntax-table))
   (set-syntax-table messages-mode-syntax-table)

-  (modify-syntax-entry ?_ "w" messages-mode-syntax-table)
-  (modify-syntax-entry ?- "w" messages-mode-syntax-table)

   (modify-syntax-entry ?0 "w" messages-mode-syntax-table)
   (modify-syntax-entry ?1 "w" messages-mode-syntax-table)
   (modify-syntax-entry ?2 "w" messages-mode-syntax-table)
   (modify-syntax-entry ?0 "w" messages-mode-syntax-table)
   (modify-syntax-entry ?1 "w" messages-mode-syntax-table)
   (modify-syntax-entry ?2 "w" messages-mode-syntax-table)