More 100-col updates. (#920)

environment/elisp/draco-mode.el

@@ -103,11 +103,6 @@ to anything else will generate errors."
 (define-key draco-mode-map [(control f11)] 'speedbar)
 (define-key draco-mode-map "\C-csb"        'speedbar)
 
-;; CVS
-(define-key draco-mode-map [(f9)]               'svn-examine)
-(define-key draco-mode-map [(meta f9)]          'svn-status)
-(define-key draco-mode-map [(control f9)]       'svn-checkout)
-
 ;; Mouse commands
 (define-key draco-mode-map [(button3)]          'kill-region)
 (define-key draco-mode-map [(meta button3)]     'delete-rectangle)
@@ -570,9 +565,9 @@ draco-companion-file-alist."
 (defun draco-f77-subroutine-divider ()
 "Insert a comment block.
 
-c-----------------------------------------------------------------------------c
+c-------------------------------------------------------------------------------------------------c
 c
-c-----------------------------------------------------------------------------c
+c-------------------------------------------------------------------------------------------------c
 "
   (interactive)
   (beginning-of-line)
@@ -588,7 +583,7 @@ c-----------------------------------------------------------------------------c
 (defun draco-f77-comment-divider ()
 "Insert a divider.
 
-c-----------------------------------------------------------------------------c
+c-------------------------------------------------------------------------------------------------c
 "
   (interactive)
   (beginning-of-line)
@@ -603,9 +598,9 @@ c-----------------------------------------------------------------------------c
 "Insert a LaTeX comment block."
   (interactive)
   (beginning-of-line)
-  (insert "%%---------------------------------------------------------------------------%%\n")
+  (insert "%%-----------------------------------------------------------------------------------------------%%\n")
   (insert "%% \n")
-  (insert "%%---------------------------------------------------------------------------%%\n\n")
+  (insert "%%-----------------------------------------------------------------------------------------------%%\n\n")
   (previous-line 3)
   (end-of-line)
 )
@@ -614,7 +609,7 @@ c-----------------------------------------------------------------------------c
 "Insert a LaTeX divider."
   (interactive)
   (beginning-of-line)
-  (insert "%%---------------------------------------------------------------------------%%\n")
+  (insert "%%-----------------------------------------------------------------------------------------------%%\n")
   (end-of-line)
 )
 
@@ -629,9 +624,6 @@ c-----------------------------------------------------------------------------c
   (insert "#")
   (insert (make-string (- draco-code-comment-width 2) ?-))
   (insert "#\n")
-;  (insert "#-------------------------------------------------------------------------------#\n")
-;  (insert "# \n")
-;  (insert "#-------------------------------------------------------------------------------#\n\n")
   (previous-line 2)
   (end-of-line)
 )
@@ -644,7 +636,6 @@ c-----------------------------------------------------------------------------c
   (insert "#")
   (insert (make-string (- draco-code-comment-width 2) ?-))
   (insert "#\n")
-;  (insert "#--------------------------------------------------------------------------------#\n")
   (end-of-line)
 )
 
@@ -703,7 +694,7 @@ c-----------------------------------------------------------------------------c
 "Insert a HTML style divider."
   (interactive)
   (beginning-of-line)
-  (insert "<!---------------------------------------------------------------------------->\n")
+  (insert "<!------------------------------------------------------------------------------------------------>\n")
   (end-of-line)
 )
 
@@ -727,17 +718,17 @@ c-----------------------------------------------------------------------------c
 "Insert an elisp divider."
   (interactive)
   (beginning-of-line)
-  (insert ";;---------------------------------------------------------------------------;;\n")
+  (insert ";;-----------------------------------------------------------------------------------------------;;\n")
   (end-of-line)
 )
 
 (defun draco-elisp-divider ()
 "Insert an elisp comment block."
   (interactive)
   (beginning-of-line)
-  (insert ";;---------------------------------------------------------------------------;;\n")
+  (insert ";;-----------------------------------------------------------------------------------------------;;\n")
   (insert ";; \n")
-  (insert ";;---------------------------------------------------------------------------;;\n\n")
+  (insert ";;-----------------------------------------------------------------------------------------------;;\n\n")
   (previous-line 3)
   (end-of-line)
 )