# HG changeset patch # User Karl Heuer # Date 801875108 0 # Node ID f7638ab47de7c2993b2b7800ee745f85cb37fd63 # Parent b60e87249b27fa188ee9c24fbd56633113750478 Fix capitalization in menu bar. diff -r b60e87249b27 -r f7638ab47de7 lisp/bookmark.el --- a/lisp/bookmark.el Tue May 30 22:59:41 1995 +0000 +++ b/lisp/bookmark.el Tue May 30 23:05:08 1995 +0000 @@ -2038,7 +2038,7 @@ ;;;###autoload (define-key menu-bar-bookmark-map [load] - '("Load a bookmark file" . bookmark-load)) + '("Load a Bookmark File" . bookmark-load)) ;;;###autoload (define-key menu-bar-bookmark-map [write] @@ -2054,27 +2054,27 @@ ;;;###autoload (define-key menu-bar-bookmark-map [delete] - '("Delete bookmark" . bookmark-menu-delete)) + '("Delete Bookmark" . bookmark-menu-delete)) ;;;###autoload (define-key menu-bar-bookmark-map [rename] - '("Rename bookmark" . bookmark-menu-rename)) + '("Rename Bookmark" . bookmark-menu-rename)) ;;;###autoload (define-key menu-bar-bookmark-map [locate] - '("Insert location" . bookmark-menu-locate)) + '("Insert Location" . bookmark-menu-locate)) ;;;###autoload (define-key menu-bar-bookmark-map [insert] - '("Insert contents" . bookmark-menu-insert)) + '("Insert Contents" . bookmark-menu-insert)) ;;;###autoload (define-key menu-bar-bookmark-map [set] - '("Set bookmark" . bookmark-set)) + '("Set Bookmark" . bookmark-set)) ;;;###autoload (define-key menu-bar-bookmark-map [jump] - '("Jump to bookmark" . bookmark-menu-jump)) + '("Jump to Bookmark" . bookmark-menu-jump)) ;;;; end bookmark menu stuff ;;;; diff -r b60e87249b27 -r f7638ab47de7 lisp/calendar/cal-menu.el --- a/lisp/calendar/cal-menu.el Tue May 30 22:59:41 1995 +0000 +++ b/lisp/calendar/cal-menu.el Tue May 30 23:05:08 1995 +0000 @@ -49,7 +49,7 @@ (cons "Moon" (make-sparse-keymap "Moon"))) (define-key calendar-mode-map [menu-bar moon moon] - '("Lunar phases" . calendar-phases-of-moon)) + '("Lunar Phases" . calendar-phases-of-moon)) (define-key calendar-mode-map [menu-bar diary] (cons "Diary" (make-sparse-keymap "Diary"))) @@ -59,27 +59,27 @@ (define-key calendar-mode-map [menu-bar diary isl] '("Insert Islamic" . calendar-mouse-insert-islamic-diary-entry)) (define-key calendar-mode-map [menu-bar diary cyc] - '("Insert cyclic" . insert-cyclic-diary-entry)) + '("Insert Cyclic" . insert-cyclic-diary-entry)) (define-key calendar-mode-map [menu-bar diary blk] - '("Insert block" . insert-block-diary-entry)) + '("Insert Block" . insert-block-diary-entry)) (define-key calendar-mode-map [menu-bar diary ann] - '("Insert anniversary" . insert-anniversary-diary-entry)) + '("Insert Anniversary" . insert-anniversary-diary-entry)) (define-key calendar-mode-map [menu-bar diary yr] - '("Insert yearly" . insert-yearly-diary-entry)) + '("Insert Yearly" . insert-yearly-diary-entry)) (define-key calendar-mode-map [menu-bar diary mon] - '("Insert monthly" . insert-monthly-diary-entry)) + '("Insert Monthly" . insert-monthly-diary-entry)) (define-key calendar-mode-map [menu-bar diary wk] - '("Insert weekly" . insert-weekly-diary-entry)) + '("Insert Weekly" . insert-weekly-diary-entry)) (define-key calendar-mode-map [menu-bar diary ent] - '("Insert daily". insert-diary-entry)) + '("Insert Daily". insert-diary-entry)) (define-key calendar-mode-map [menu-bar diary all] - '("Show all" . show-all-diary-entries)) + '("Show All" . show-all-diary-entries)) (define-key calendar-mode-map [menu-bar diary mark] - '("Mark all" . mark-diary-entries)) + '("Mark All" . mark-diary-entries)) (define-key calendar-mode-map [menu-bar diary view] - '("Cursor date" . view-diary-entries)) + '("Cursor Date" . view-diary-entries)) (define-key calendar-mode-map [menu-bar diary view] - '("Other file" . view-other-diary-entries)) + '("Other File" . view-other-diary-entries)) (define-key calendar-mode-map [menu-bar holidays] (cons "Holidays" (make-sparse-keymap "Holidays"))) @@ -89,41 +89,41 @@ (define-key calendar-mode-map [menu-bar holidays mark] '("Mark" . mark-calendar-holidays)) (define-key calendar-mode-map [menu-bar holidays 3-mon] - '("3 months" . list-calendar-holidays)) + '("3 Months" . list-calendar-holidays)) (define-key calendar-mode-map [menu-bar holidays 1-day] - '("One day" . calendar-cursor-holidays)) + '("One Day" . calendar-cursor-holidays)) (define-key calendar-mode-map [menu-bar goto] (cons "Goto" (make-sparse-keymap "Goto"))) (define-key calendar-mode-map [menu-bar goto french] - '("French date" . calendar-goto-french-date)) + '("French Date" . calendar-goto-french-date)) (define-key calendar-mode-map [menu-bar goto mayan] - (cons "Mayan date" (make-sparse-keymap "Mayan"))) + (cons "Mayan Date" (make-sparse-keymap "Mayan"))) (define-key calendar-mode-map [menu-bar goto julian] - '("Julian date" . calendar-goto-julian-date)) + '("Julian Date" . calendar-goto-julian-date)) (define-key calendar-mode-map [menu-bar goto islamic] - '("Islamic date" . calendar-goto-islamic-date)) + '("Islamic Date" . calendar-goto-islamic-date)) (define-key calendar-mode-map [menu-bar goto hebrew] - '("Hebrew date" . calendar-goto-hebrew-date)) + '("Hebrew Date" . calendar-goto-hebrew-date)) (define-key calendar-mode-map [menu-bar goto astro] - '("Astronomical date" . calendar-goto-astro-day-number)) + '("Astronomical Date" . calendar-goto-astro-day-number)) (define-key calendar-mode-map [menu-bar goto iso] - '("ISO date" . calendar-goto-iso-date)) + '("ISO Date" . calendar-goto-iso-date)) (define-key calendar-mode-map [menu-bar goto gregorian] - '("Other date" . calendar-goto-date)) + '("Other Date" . calendar-goto-date)) (define-key calendar-mode-map [menu-bar goto end-of-year] - '("End of year" . calendar-end-of-year)) + '("End of Year" . calendar-end-of-year)) (define-key calendar-mode-map [menu-bar goto beginning-of-year] - '("Beginning of year" . calendar-beginning-of-year)) + '("Beginning of Year" . calendar-beginning-of-year)) (define-key calendar-mode-map [menu-bar goto end-of-month] - '("End of month" . calendar-end-of-month)) + '("End of Month" . calendar-end-of-month)) (define-key calendar-mode-map [menu-bar goto beginning-of-month] - '("Beginning of month" . calendar-beginning-of-month)) + '("Beginning of Month" . calendar-beginning-of-month)) (define-key calendar-mode-map [menu-bar goto end-of-week] - '("End of week" . calendar-end-of-week)) + '("End of Week" . calendar-end-of-week)) (define-key calendar-mode-map [menu-bar goto beginning-of-week] - '("Beginning of week" . calendar-beginning-of-week)) + '("Beginning of Week" . calendar-beginning-of-week)) (define-key calendar-mode-map [menu-bar goto today] '("Today" . calendar-goto-today)) diff -r b60e87249b27 -r f7638ab47de7 lisp/mail/rmailsum.el --- a/lisp/mail/rmailsum.el Tue May 30 22:59:41 1995 +0000 +++ b/lisp/mail/rmailsum.el Tue May 30 23:05:08 1995 +0000 @@ -754,7 +754,7 @@ '("Output (Rmail Menu)..." . rmail-summary-output-menu)) (define-key rmail-summary-mode-map [menu-bar classify input-menu] - '("Input Rmail file (menu)..." . rmail-input-menu)) + '("Input Rmail File (menu)..." . rmail-input-menu)) (define-key rmail-summary-mode-map [menu-bar classify input-menu] '(nil)) diff -r b60e87249b27 -r f7638ab47de7 lisp/progmodes/hideshow.el --- a/lisp/progmodes/hideshow.el Tue May 30 22:59:41 1995 +0000 +++ b/lisp/progmodes/hideshow.el Tue May 30 23:05:08 1995 +0000 @@ -439,24 +439,24 @@ ((eq hs-emacs-type 'lucid) (setq hs-menu-bar ; build top down for lucid '("hideshow" - ["hide block" hs-hide-block t] - ["show block" hs-show-block t] - ["hide all" hs-hide-all t] - ["show all" hs-show-all t] - ["show region" hs-show-region t]))) + ["Hide Block" hs-hide-block t] + ["Show Block" hs-show-block t] + ["Hide All" hs-hide-all t] + ["Show All" hs-show-all t] + ["Show Region" hs-show-region t]))) (t ; build bottom up for others (define-key hs-minor-mode-map [menu-bar hideshow] (cons "hideshow" (make-sparse-keymap "hideshow"))) (define-key hs-minor-mode-map [menu-bar hideshow hs-show-region] - '("show region" . hs-show-region)) + '("Show Region" . hs-show-region)) (define-key hs-minor-mode-map [menu-bar hideshow hs-show-all] - '("show all" . hs-show-all)) + '("Show All" . hs-show-all)) (define-key hs-minor-mode-map [menu-bar hideshow hs-hide-all] - '("hide all" . hs-hide-all)) + '("Hide All" . hs-hide-all)) (define-key hs-minor-mode-map [menu-bar hideshow hs-show-block] - '("show block" . hs-show-block)) + '("Show Block" . hs-show-block)) (define-key hs-minor-mode-map [menu-bar hideshow hs-hide-block] - '("hide block" . hs-hide-block))))) + '("Hide Block" . hs-hide-block))))) ;; some housekeeping (or (assq 'hs-minor-mode minor-mode-map-alist) diff -r b60e87249b27 -r f7638ab47de7 lisp/progmodes/make-mode.el --- a/lisp/progmodes/make-mode.el Tue May 30 22:59:41 1995 +0000 +++ b/lisp/progmodes/make-mode.el Tue May 30 23:05:08 1995 +0000 @@ -14,7 +14,7 @@ ;; So, for the meantime, this is not the default mode for makefiles. -;; $Id: makefile.el,v 1.19 1994/10/30 21:20:42 rms Exp rms $ +;; $Id: makefile.el,v 1.20 1995/05/01 17:16:40 rms Exp kwzh $ ;; This file is part of GNU Emacs. @@ -305,16 +305,16 @@ (cons "Makefile" (make-sparse-keymap "Makefile"))) (define-key makefile-mode-map [menu-bar makefile-mode browse] - '("Pop up Makefile browser" . makefile-switch-to-browser)) + '("Pop up Makefile Browser" . makefile-switch-to-browser)) (define-key makefile-mode-map [menu-bar makefile-mode complete] - '("Complete target or macro" . makefile-complete)) + '("Complete Target or Macro" . makefile-complete)) (define-key makefile-mode-map [menu-bar makefile-mode pickup] - '("Find targets and macros" . makefile-pickup-everything)) + '("Find Targets and Macros" . makefile-pickup-everything)) (define-key makefile-mode-map [menu-bar makefile-mode prev] - '("Move to previous dependency" . makefile-previous-dependency)) + '("Move to Previous Dependency" . makefile-previous-dependency)) (define-key makefile-mode-map [menu-bar makefile-mode next] - '("Move to next dependency" . makefile-next-dependency))) + '("Move to Next Dependency" . makefile-next-dependency))) (defvar makefile-browser-map nil "The keymap that is used in the macro- and target browser.")