Mercurial > emacs
comparison src/casefiddle.c @ 484:3165b2697c78
entered into RCS
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 13 Jan 1992 21:48:03 +0000 |
parents | 49342840ba00 |
children | 4f138b03e5ab |
comparison
equal
deleted
inserted
replaced
483:00f564a647fa | 484:3165b2697c78 |
---|---|
259 } | 259 } |
260 | 260 |
261 keys_of_casefiddle () | 261 keys_of_casefiddle () |
262 { | 262 { |
263 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); | 263 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); |
264 Fput (intern ("upcase-region"), Qdisabled, Qt); | |
264 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); | 265 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); |
266 Fput (intern ("downcase-region"), Qdisabled, Qt); | |
267 | |
265 initial_define_key (meta_map, 'u', "upcase-word"); | 268 initial_define_key (meta_map, 'u', "upcase-word"); |
266 initial_define_key (meta_map, 'l', "downcase-word"); | 269 initial_define_key (meta_map, 'l', "downcase-word"); |
267 initial_define_key (meta_map, 'c', "capitalize-word"); | 270 initial_define_key (meta_map, 'c', "capitalize-word"); |
268 } | 271 } |