Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0e520d74
Commit
0e520d74
authored
May 30, 1995
by
Karl Heuer
Browse files
Fix capitalization in menu bar.
parent
b3ede706
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
52 additions
and
52 deletions
+52
-52
lisp/bookmark.el
lisp/bookmark.el
+7
-7
lisp/calendar/cal-menu.el
lisp/calendar/cal-menu.el
+28
-28
lisp/mail/rmailsum.el
lisp/mail/rmailsum.el
+1
-1
lisp/progmodes/hideshow.el
lisp/progmodes/hideshow.el
+10
-10
lisp/progmodes/make-mode.el
lisp/progmodes/make-mode.el
+6
-6
No files found.
lisp/bookmark.el
View file @
0e520d74
...
...
@@ -2038,7 +2038,7 @@ one most recently used in this file, if any\)."
;;;###autoload
(
define-key
menu-bar-bookmark-map
[load]
'
(
"Load a
b
ookmark
f
ile"
.
bookmark-load
))
'
(
"Load a
B
ookmark
F
ile"
.
bookmark-load
))
;;;###autoload
(
define-key
menu-bar-bookmark-map
[write]
...
...
@@ -2054,27 +2054,27 @@ one most recently used in this file, if any\)."
;;;###autoload
(
define-key
menu-bar-bookmark-map
[delete]
'
(
"Delete
b
ookmark"
.
bookmark-menu-delete
))
'
(
"Delete
B
ookmark"
.
bookmark-menu-delete
))
;;;###autoload
(
define-key
menu-bar-bookmark-map
[rename]
'
(
"Rename
b
ookmark"
.
bookmark-menu-rename
))
'
(
"Rename
B
ookmark"
.
bookmark-menu-rename
))
;;;###autoload
(
define-key
menu-bar-bookmark-map
[locate]
'
(
"Insert
l
ocation"
.
bookmark-menu-locate
))
'
(
"Insert
L
ocation"
.
bookmark-menu-locate
))
;;;###autoload
(
define-key
menu-bar-bookmark-map
[insert]
'
(
"Insert
c
ontents"
.
bookmark-menu-insert
))
'
(
"Insert
C
ontents"
.
bookmark-menu-insert
))
;;;###autoload
(
define-key
menu-bar-bookmark-map
[set]
'
(
"Set
b
ookmark"
.
bookmark-set
))
'
(
"Set
B
ookmark"
.
bookmark-set
))
;;;###autoload
(
define-key
menu-bar-bookmark-map
[jump]
'
(
"Jump to
b
ookmark"
.
bookmark-menu-jump
))
'
(
"Jump to
B
ookmark"
.
bookmark-menu-jump
))
;;;; end bookmark menu stuff ;;;;
...
...
lisp/calendar/cal-menu.el
View file @
0e520d74
...
...
@@ -49,7 +49,7 @@
(
cons
"Moon"
(
make-sparse-keymap
"Moon"
)))
(
define-key
calendar-mode-map
[menu-bar
moon
moon]
'
(
"Lunar
p
hases"
.
calendar-phases-of-moon
))
'
(
"Lunar
P
hases"
.
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
c
yclic"
.
insert-cyclic-diary-entry
))
'
(
"Insert
C
yclic"
.
insert-cyclic-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
blk]
'
(
"Insert
b
lock"
.
insert-block-diary-entry
))
'
(
"Insert
B
lock"
.
insert-block-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
ann]
'
(
"Insert
a
nniversary"
.
insert-anniversary-diary-entry
))
'
(
"Insert
A
nniversary"
.
insert-anniversary-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
yr]
'
(
"Insert
y
early"
.
insert-yearly-diary-entry
))
'
(
"Insert
Y
early"
.
insert-yearly-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
mon]
'
(
"Insert
m
onthly"
.
insert-monthly-diary-entry
))
'
(
"Insert
M
onthly"
.
insert-monthly-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
wk]
'
(
"Insert
w
eekly"
.
insert-weekly-diary-entry
))
'
(
"Insert
W
eekly"
.
insert-weekly-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
ent]
'
(
"Insert
d
aily"
.
insert-diary-entry
))
'
(
"Insert
D
aily"
.
insert-diary-entry
))
(
define-key
calendar-mode-map
[menu-bar
diary
all]
'
(
"Show
a
ll"
.
show-all-diary-entries
))
'
(
"Show
A
ll"
.
show-all-diary-entries
))
(
define-key
calendar-mode-map
[menu-bar
diary
mark]
'
(
"Mark
a
ll"
.
mark-diary-entries
))
'
(
"Mark
A
ll"
.
mark-diary-entries
))
(
define-key
calendar-mode-map
[menu-bar
diary
view]
'
(
"Cursor
d
ate"
.
view-diary-entries
))
'
(
"Cursor
D
ate"
.
view-diary-entries
))
(
define-key
calendar-mode-map
[menu-bar
diary
view]
'
(
"Other
f
ile"
.
view-other-diary-entries
))
'
(
"Other
F
ile"
.
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
m
onths"
.
list-calendar-holidays
))
'
(
"3
M
onths"
.
list-calendar-holidays
))
(
define-key
calendar-mode-map
[menu-bar
holidays
1-day]
'
(
"One
d
ay"
.
calendar-cursor-holidays
))
'
(
"One
D
ay"
.
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
d
ate"
.
calendar-goto-french-date
))
'
(
"French
D
ate"
.
calendar-goto-french-date
))
(
define-key
calendar-mode-map
[menu-bar
goto
mayan]
(
cons
"Mayan
d
ate"
(
make-sparse-keymap
"Mayan"
)))
(
cons
"Mayan
D
ate"
(
make-sparse-keymap
"Mayan"
)))
(
define-key
calendar-mode-map
[menu-bar
goto
julian]
'
(
"Julian
d
ate"
.
calendar-goto-julian-date
))
'
(
"Julian
D
ate"
.
calendar-goto-julian-date
))
(
define-key
calendar-mode-map
[menu-bar
goto
islamic]
'
(
"Islamic
d
ate"
.
calendar-goto-islamic-date
))
'
(
"Islamic
D
ate"
.
calendar-goto-islamic-date
))
(
define-key
calendar-mode-map
[menu-bar
goto
hebrew]
'
(
"Hebrew
d
ate"
.
calendar-goto-hebrew-date
))
'
(
"Hebrew
D
ate"
.
calendar-goto-hebrew-date
))
(
define-key
calendar-mode-map
[menu-bar
goto
astro]
'
(
"Astronomical
d
ate"
.
calendar-goto-astro-day-number
))
'
(
"Astronomical
D
ate"
.
calendar-goto-astro-day-number
))
(
define-key
calendar-mode-map
[menu-bar
goto
iso]
'
(
"ISO
d
ate"
.
calendar-goto-iso-date
))
'
(
"ISO
D
ate"
.
calendar-goto-iso-date
))
(
define-key
calendar-mode-map
[menu-bar
goto
gregorian]
'
(
"Other
d
ate"
.
calendar-goto-date
))
'
(
"Other
D
ate"
.
calendar-goto-date
))
(
define-key
calendar-mode-map
[menu-bar
goto
end-of-year]
'
(
"End of
y
ear"
.
calendar-end-of-year
))
'
(
"End of
Y
ear"
.
calendar-end-of-year
))
(
define-key
calendar-mode-map
[menu-bar
goto
beginning-of-year]
'
(
"Beginning of
y
ear"
.
calendar-beginning-of-year
))
'
(
"Beginning of
Y
ear"
.
calendar-beginning-of-year
))
(
define-key
calendar-mode-map
[menu-bar
goto
end-of-month]
'
(
"End of
m
onth"
.
calendar-end-of-month
))
'
(
"End of
M
onth"
.
calendar-end-of-month
))
(
define-key
calendar-mode-map
[menu-bar
goto
beginning-of-month]
'
(
"Beginning of
m
onth"
.
calendar-beginning-of-month
))
'
(
"Beginning of
M
onth"
.
calendar-beginning-of-month
))
(
define-key
calendar-mode-map
[menu-bar
goto
end-of-week]
'
(
"End of
w
eek"
.
calendar-end-of-week
))
'
(
"End of
W
eek"
.
calendar-end-of-week
))
(
define-key
calendar-mode-map
[menu-bar
goto
beginning-of-week]
'
(
"Beginning of
w
eek"
.
calendar-beginning-of-week
))
'
(
"Beginning of
W
eek"
.
calendar-beginning-of-week
))
(
define-key
calendar-mode-map
[menu-bar
goto
today]
'
(
"Today"
.
calendar-goto-today
))
...
...
lisp/mail/rmailsum.el
View file @
0e520d74
...
...
@@ -754,7 +754,7 @@ Commands for sorting the summary:
'
(
"Output (Rmail Menu)..."
.
rmail-summary-output-menu
))
(
define-key
rmail-summary-mode-map
[menu-bar
classify
input-menu]
'
(
"Input Rmail
f
ile (menu)..."
.
rmail-input-menu
))
'
(
"Input Rmail
F
ile (menu)..."
.
rmail-input-menu
))
(
define-key
rmail-summary-mode-map
[menu-bar
classify
input-menu]
'
(
nil
))
...
...
lisp/progmodes/hideshow.el
View file @
0e520d74
...
...
@@ -439,24 +439,24 @@ variables to default values and disables the hideshow commands."
((
eq
hs-emacs-type
'lucid
)
(
setq
hs-menu-bar
; build top down for lucid
'
(
"hideshow"
[
"
h
ide
b
lock"
hs-hide-block
t]
[
"
s
how
b
lock"
hs-show-block
t]
[
"
h
ide
a
ll"
hs-hide-all
t]
[
"
s
how
a
ll"
hs-show-all
t]
[
"
s
how
r
egion"
hs-show-region
t]
)))
[
"
H
ide
B
lock"
hs-hide-block
t]
[
"
S
how
B
lock"
hs-show-block
t]
[
"
H
ide
A
ll"
hs-hide-all
t]
[
"
S
how
A
ll"
hs-show-all
t]
[
"
S
how
R
egion"
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]
'
(
"
s
how
r
egion"
.
hs-show-region
))
'
(
"
S
how
R
egion"
.
hs-show-region
))
(
define-key
hs-minor-mode-map
[menu-bar
hideshow
hs-show-all]
'
(
"
s
how
a
ll"
.
hs-show-all
))
'
(
"
S
how
A
ll"
.
hs-show-all
))
(
define-key
hs-minor-mode-map
[menu-bar
hideshow
hs-hide-all]
'
(
"
h
ide
a
ll"
.
hs-hide-all
))
'
(
"
H
ide
A
ll"
.
hs-hide-all
))
(
define-key
hs-minor-mode-map
[menu-bar
hideshow
hs-show-block]
'
(
"
s
how
b
lock"
.
hs-show-block
))
'
(
"
S
how
B
lock"
.
hs-show-block
))
(
define-key
hs-minor-mode-map
[menu-bar
hideshow
hs-hide-block]
'
(
"
h
ide
b
lock"
.
hs-hide-block
)))))
'
(
"
H
ide
B
lock"
.
hs-hide-block
)))))
;; some housekeeping
(
or
(
assq
'hs-minor-mode
minor-mode-map-alist
)
...
...
lisp/progmodes/make-mode.el
View file @
0e520d74
...
...
@@ -14,7 +14,7 @@
;; So, for the meantime, this is not the default mode for makefiles.
;; $Id: makefile.el,v 1.
19
199
4/10/30 21:20
:4
2
rms Exp
rms
$
;; $Id: makefile.el,v 1.
20
199
5/05/01 17:16
:4
0
rms Exp
kwzh
$
;; This file is part of GNU Emacs.
...
...
@@ -305,16 +305,16 @@ interface:
(
cons
"Makefile"
(
make-sparse-keymap
"Makefile"
)))
(
define-key
makefile-mode-map
[menu-bar
makefile-mode
browse]
'
(
"Pop up Makefile
b
rowser"
.
makefile-switch-to-browser
))
'
(
"Pop up Makefile
B
rowser"
.
makefile-switch-to-browser
))
(
define-key
makefile-mode-map
[menu-bar
makefile-mode
complete]
'
(
"Complete
t
arget or
m
acro"
.
makefile-complete
))
'
(
"Complete
T
arget or
M
acro"
.
makefile-complete
))
(
define-key
makefile-mode-map
[menu-bar
makefile-mode
pickup]
'
(
"Find
t
argets and
m
acros"
.
makefile-pickup-everything
))
'
(
"Find
T
argets and
M
acros"
.
makefile-pickup-everything
))
(
define-key
makefile-mode-map
[menu-bar
makefile-mode
prev]
'
(
"Move to
p
revious
d
ependency"
.
makefile-previous-dependency
))
'
(
"Move to
P
revious
D
ependency"
.
makefile-previous-dependency
))
(
define-key
makefile-mode-map
[menu-bar
makefile-mode
next]
'
(
"Move to
n
ext
d
ependency"
.
makefile-next-dependency
)))
'
(
"Move to
N
ext
D
ependency"
.
makefile-next-dependency
)))
(
defvar
makefile-browser-map
nil
"The keymap that is used in the macro- and target browser."
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment