Fix capitalization and punctuation in menu bar.

[gnu-emacs] / lisp / progmodes / f90.el

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index bfb544e3c895e9a1b044d83d9a628244e76e88c3..190a107c842328eeef493a956b28ac48bc60e373 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -464,28 +464,28 @@ This highlights variable types, \"keywords,\" etc.")
     (progn
       (add-menu nil "F90"
                '(
-                 ["Indent subprogram"       f90-indent-subprogram t]
-                 ["Mark subprogram"         f90-mark-subprogram t]
-                 ["Beginning of subprogram" f90-beginning-of-subprogram t]
-                 ["End of subprogram"       f90-end-of-subprogram t]
+                 ["Indent Subprogram"       f90-indent-subprogram t]
+                 ["Mark Subprogram"         f90-mark-subprogram t]
+                 ["Beginning of Subprogram" f90-beginning-of-subprogram t]
+                 ["End of Subprogram"       f90-end-of-subprogram t]
                  "-----"
-                 ["(Un)Comment region"      f90-comment-region t]
-                 ["Indent region"           indent-region t]
-                 ["Fill region"             f90-fill-region t]
+                 ["(Un)Comment Region"      f90-comment-region t]
+                 ["Indent Region"           indent-region t]
+                 ["Fill Region"             f90-fill-region t]
                  "-----"
-                 ["Break line at point"     f90-break-line t]
-                 ["Join with next line"     f90-join-lines t]
-                 ["Insert newline."         newline t]
-                 ["Insert end."             f90-insert-end t]
+                 ["Break Line at Point"     f90-break-line t]
+                 ["Join with Next Line"     f90-join-lines t]
+                 ["Insert Newline"          newline t]
+                 ["Insert End"              f90-insert-end t]
                  "-----"
-                 ["UPCASE keywords (buffer)"      f90-upcase-keywords t]
-                 ["UPCASE keywords (region)"      f90-upcase-region-keywords
+                 ["Upcase Keywords (buffer)"      f90-upcase-keywords t]
+                 ["Upcase Keywords (region)"      f90-upcase-region-keywords
                   t]
-                 ["Capitalize keywords (buffer)"  f90-capitalize-keywords t]
-                 ["Capitalize keywords (region)" 
+                 ["Capitalize Keywords (buffer)"  f90-capitalize-keywords t]
+                 ["Capitalize Keywords (region)" 
                   f90-capitalize-region-keywords t]
-                 ["downcase keywords (buffer)"    f90-downcase-keywords t]
-                 ["downcase keywords (region)"   
+                 ["Downcase Keywords (buffer)"    f90-downcase-keywords t]
+                 ["Downcase Keywords (region)"   
                   f90-downcase-region-keywords t]
                  "-----"
                  ["Toggle abbrev-mode"   abbrev-mode             t]
@@ -499,23 +499,23 @@ This highlights variable types, \"keywords,\" etc.")
   (define-key f90-mode-map [menu-bar f90 f90-auto-fill-mode]
     '("Toggle auto-fill" . f90-auto-fill-mode))
   (define-key f90-mode-map [menu-bar f90 f90-downcase-region-keywords]
-    '("downcase keywords (region)" . f90-downcase-region-keywords))
+    '("Downcase Keywords (region)" . f90-downcase-region-keywords))
   (define-key f90-mode-map [menu-bar f90 f90-downcase-keywords]
-    '("downcase keywords (buffer)" . f90-downcase-keywords))
+    '("Downcase Keywords (buffer)" . f90-downcase-keywords))
   (define-key f90-mode-map [menu-bar f90 f90-capitalize-keywords]
-    '("Capitalize keywords (region)" . f90-capitalize-region-keywords))
+    '("Capitalize Keywords (region)" . f90-capitalize-region-keywords))
   (define-key f90-mode-map [menu-bar f90 f90-capitalize-region-keywords]
-    '("Capitalize keywords (buffer)" . f90-capitalize-keywords))
+    '("Capitalize Keywords (buffer)" . f90-capitalize-keywords))
   (define-key f90-mode-map [menu-bar f90 f90-upcase-region-keywords]
-    '("UPCASE keywords (region)" . f90-upcase-region-keywords))
+    '("Upcase keywords (region)" . f90-upcase-region-keywords))
   (define-key f90-mode-map [menu-bar f90 f90-upcase-keywords]
-    '("UPCASE keywords (buffer)" . f90-upcase-keywords))
+    '("Upcase keywords (buffer)" . f90-upcase-keywords))
   (define-key f90-mode-map [menu-bar f90 f90-insert-end]
-    '("Insert end." . f90-insert-end))
+    '("Insert end" . f90-insert-end))
   (define-key f90-mode-map [menu-bar f90 f90-join-lines]
-    '("Join with next line." . f90-join-lines))
+    '("Join with Next Line" . f90-join-lines))
   (define-key f90-mode-map [menu-bar f90 f90-break-line]
-    '("Break line at point" . f90-break-line))
+    '("Break Line at Point" . f90-break-line))
   (define-key f90-mode-map [menu-bar f90 f90-fill-region]
     '("Fill Region" . f90-fill-region))
   (define-key f90-mode-map [menu-bar f90 indent-region]
@@ -1338,8 +1338,7 @@ automatically breaks the line at a previous space."
                       (not auto-fill-function)
                     (> (prefix-numeric-value arg) 0))
                   'f90-do-auto-fill))
-    ;; update mode-line
-    (set-buffer-modified-p (buffer-modified-p))))
+    (force-mode-line-update)))
 
 (defun f90-do-auto-fill ()
   "Break line if non-white characters beyond fill-column."