Mercurial > emacs
comparison lisp/forms.el @ 12031:a59559009d7e
(forms--mode-menu-ro, forms--mode-menu-edit): Fix capitalization in menu bar.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 30 May 1995 22:54:53 +0000 |
| parents | 467f74679fb1 |
| children | f39e50542302 |
comparison
equal
deleted
inserted
replaced
| 12030:649ecab4ba11 | 12031:a59559009d7e |
|---|---|
| 280 ;;; Global variables and constants: | 280 ;;; Global variables and constants: |
| 281 | 281 |
| 282 (provide 'forms) ;;; official | 282 (provide 'forms) ;;; official |
| 283 (provide 'forms-mode) ;;; for compatibility | 283 (provide 'forms-mode) ;;; for compatibility |
| 284 | 284 |
| 285 (defconst forms-version (substring "$Revision: 2.14 $" 11 -2) | 285 (defconst forms-version (substring "$Revision: 2.15 $" 11 -2) |
| 286 "The version number of forms-mode (as string). The complete RCS id is: | 286 "The version number of forms-mode (as string). The complete RCS id is: |
| 287 | 287 |
| 288 $Id: forms.el,v 2.14 1995/04/25 17:44:28 rms Exp rms $") | 288 $Id: forms.el,v 2.15 1995/05/02 01:37:11 rms Exp kwzh $") |
| 289 | 289 |
| 290 (defvar forms-mode-hooks nil | 290 (defvar forms-mode-hooks nil |
| 291 "Hook functions to be run upon entering Forms mode.") | 291 "Hook functions to be run upon entering Forms mode.") |
| 292 | 292 |
| 293 ;;; Mandatory variables - must be set by evaluating the control file. | 293 ;;; Mandatory variables - must be set by evaluating the control file. |
| 1271 (define-key map [menu-bar forms menu-forms-exit] | 1271 (define-key map [menu-bar forms menu-forms-exit] |
| 1272 '("Exit" . forms-exit)) | 1272 '("Exit" . forms-exit)) |
| 1273 (define-key map [menu-bar forms menu-forms-sep1] | 1273 (define-key map [menu-bar forms menu-forms-sep1] |
| 1274 '("----")) | 1274 '("----")) |
| 1275 (define-key map [menu-bar forms menu-forms-save] | 1275 (define-key map [menu-bar forms menu-forms-save] |
| 1276 '("Save data" . forms-save-buffer)) | 1276 '("Save Data" . forms-save-buffer)) |
| 1277 (define-key map [menu-bar forms menu-forms-print] | 1277 (define-key map [menu-bar forms menu-forms-print] |
| 1278 '("Print data" . forms-print)) | 1278 '("Print Data" . forms-print)) |
| 1279 (define-key map [menu-bar forms menu-forms-describe] | 1279 (define-key map [menu-bar forms menu-forms-describe] |
| 1280 '("Describe mode" . describe-mode)) | 1280 '("Describe Mode" . describe-mode)) |
| 1281 (define-key map [menu-bar forms menu-forms-toggle-ro] | 1281 (define-key map [menu-bar forms menu-forms-toggle-ro] |
| 1282 '("Toggle View/Edit" . forms-toggle-read-only)) | 1282 '("Toggle View/Edit" . forms-toggle-read-only)) |
| 1283 (define-key map [menu-bar forms menu-forms-jump-record] | 1283 (define-key map [menu-bar forms menu-forms-jump-record] |
| 1284 '("Jump" . forms-jump-record)) | 1284 '("Jump" . forms-jump-record)) |
| 1285 (define-key map [menu-bar forms menu-forms-search-backward] | 1285 (define-key map [menu-bar forms menu-forms-search-backward] |
| 1286 '("Search backward" . forms-search-backward)) | 1286 '("Search Backward" . forms-search-backward)) |
| 1287 (define-key map [menu-bar forms menu-forms-search-forward] | 1287 (define-key map [menu-bar forms menu-forms-search-forward] |
| 1288 '("Search forward" . forms-search-forward)) | 1288 '("Search Forward" . forms-search-forward)) |
| 1289 (define-key map [menu-bar forms menu-forms-delete-record] | 1289 (define-key map [menu-bar forms menu-forms-delete-record] |
| 1290 '("Delete" . forms-delete-record)) | 1290 '("Delete" . forms-delete-record)) |
| 1291 (define-key map [menu-bar forms menu-forms-insert-record] | 1291 (define-key map [menu-bar forms menu-forms-insert-record] |
| 1292 '("Insert" . forms-insert-record)) | 1292 '("Insert" . forms-insert-record)) |
| 1293 (define-key map [menu-bar forms menu-forms-sep2] | 1293 (define-key map [menu-bar forms menu-forms-sep2] |
| 1294 '("----")) | 1294 '("----")) |
| 1295 (define-key map [menu-bar forms menu-forms-last-record] | 1295 (define-key map [menu-bar forms menu-forms-last-record] |
| 1296 '("Last record" . forms-last-record)) | 1296 '("Last Record" . forms-last-record)) |
| 1297 (define-key map [menu-bar forms menu-forms-first-record] | 1297 (define-key map [menu-bar forms menu-forms-first-record] |
| 1298 '("First record" . forms-first-record)) | 1298 '("First Record" . forms-first-record)) |
| 1299 (define-key map [menu-bar forms menu-forms-prev-record] | 1299 (define-key map [menu-bar forms menu-forms-prev-record] |
| 1300 '("Previous record" . forms-prev-record)) | 1300 '("Previous Record" . forms-prev-record)) |
| 1301 (define-key map [menu-bar forms menu-forms-next-record] | 1301 (define-key map [menu-bar forms menu-forms-next-record] |
| 1302 '("Next record" . forms-next-record)) | 1302 '("Next Record" . forms-next-record)) |
| 1303 (define-key map [menu-bar forms menu-forms-sep3] | 1303 (define-key map [menu-bar forms menu-forms-sep3] |
| 1304 '("----")) | 1304 '("----")) |
| 1305 (define-key map [menu-bar forms menu-forms-prev-field] | 1305 (define-key map [menu-bar forms menu-forms-prev-field] |
| 1306 '("Previous field" . forms-prev-field)) | 1306 '("Previous Field" . forms-prev-field)) |
| 1307 (define-key map [menu-bar forms menu-forms-next-field] | 1307 (define-key map [menu-bar forms menu-forms-next-field] |
| 1308 '("Next field" . forms-next-field)) | 1308 '("Next Field" . forms-next-field)) |
| 1309 (put 'forms-insert-record 'menu-enable '(not forms-read-only)) | 1309 (put 'forms-insert-record 'menu-enable '(not forms-read-only)) |
| 1310 (put 'forms-delete-record 'menu-enable '(not forms-read-only)) | 1310 (put 'forms-delete-record 'menu-enable '(not forms-read-only)) |
| 1311 ) | 1311 ) |
| 1312 (defun forms--mode-menu-edit (map) | 1312 (defun forms--mode-menu-edit (map) |
| 1313 ;;; Menu initialisation | 1313 ;;; Menu initialisation |
| 1317 (define-key map [menu-bar forms menu-forms-edit--exit] | 1317 (define-key map [menu-bar forms menu-forms-edit--exit] |
| 1318 '("Exit" . forms-exit)) | 1318 '("Exit" . forms-exit)) |
| 1319 (define-key map [menu-bar forms menu-forms-edit-sep1] | 1319 (define-key map [menu-bar forms menu-forms-edit-sep1] |
| 1320 '("----")) | 1320 '("----")) |
| 1321 (define-key map [menu-bar forms menu-forms-edit-save] | 1321 (define-key map [menu-bar forms menu-forms-edit-save] |
| 1322 '("Save data" . forms-save-buffer)) | 1322 '("Save Data" . forms-save-buffer)) |
| 1323 (define-key map [menu-bar forms menu-forms-edit-print] | 1323 (define-key map [menu-bar forms menu-forms-edit-print] |
| 1324 '("Print data" . forms-print)) | 1324 '("Print Data" . forms-print)) |
| 1325 (define-key map [menu-bar forms menu-forms-edit-describe] | 1325 (define-key map [menu-bar forms menu-forms-edit-describe] |
| 1326 '("Describe mode" . describe-mode)) | 1326 '("Describe Mode" . describe-mode)) |
| 1327 (define-key map [menu-bar forms menu-forms-edit-toggle-ro] | 1327 (define-key map [menu-bar forms menu-forms-edit-toggle-ro] |
| 1328 '("Toggle View/Edit" . forms-toggle-read-only)) | 1328 '("Toggle View/Edit" . forms-toggle-read-only)) |
| 1329 (define-key map [menu-bar forms menu-forms-edit-jump-record] | 1329 (define-key map [menu-bar forms menu-forms-edit-jump-record] |
| 1330 '("Jump" . forms-jump-record)) | 1330 '("Jump" . forms-jump-record)) |
| 1331 (define-key map [menu-bar forms menu-forms-edit-search-backward] | 1331 (define-key map [menu-bar forms menu-forms-edit-search-backward] |
| 1332 '("Search backward" . forms-search-backward)) | 1332 '("Search Backward" . forms-search-backward)) |
| 1333 (define-key map [menu-bar forms menu-forms-edit-search-forward] | 1333 (define-key map [menu-bar forms menu-forms-edit-search-forward] |
| 1334 '("Search forward" . forms-search-forward)) | 1334 '("Search Forward" . forms-search-forward)) |
| 1335 (define-key map [menu-bar forms menu-forms-edit-delete-record] | 1335 (define-key map [menu-bar forms menu-forms-edit-delete-record] |
| 1336 '("Delete" . forms-delete-record)) | 1336 '("Delete" . forms-delete-record)) |
| 1337 (define-key map [menu-bar forms menu-forms-edit-insert-record] | 1337 (define-key map [menu-bar forms menu-forms-edit-insert-record] |
| 1338 '("Insert" . forms-insert-record)) | 1338 '("Insert" . forms-insert-record)) |
| 1339 (define-key map [menu-bar forms menu-forms-edit-sep2] | 1339 (define-key map [menu-bar forms menu-forms-edit-sep2] |
| 1340 '("----")) | 1340 '("----")) |
| 1341 (define-key map [menu-bar forms menu-forms-edit-last-record] | 1341 (define-key map [menu-bar forms menu-forms-edit-last-record] |
| 1342 '("Last record" . forms-last-record)) | 1342 '("Last Record" . forms-last-record)) |
| 1343 (define-key map [menu-bar forms menu-forms-edit-first-record] | 1343 (define-key map [menu-bar forms menu-forms-edit-first-record] |
| 1344 '("First record" . forms-first-record)) | 1344 '("First Record" . forms-first-record)) |
| 1345 (define-key map [menu-bar forms menu-forms-edit-prev-record] | 1345 (define-key map [menu-bar forms menu-forms-edit-prev-record] |
| 1346 '("Previous record" . forms-prev-record)) | 1346 '("Previous Record" . forms-prev-record)) |
| 1347 (define-key map [menu-bar forms menu-forms-edit-next-record] | 1347 (define-key map [menu-bar forms menu-forms-edit-next-record] |
| 1348 '("Next record" . forms-next-record)) | 1348 '("Next Record" . forms-next-record)) |
| 1349 (define-key map [menu-bar forms menu-forms-edit-sep3] | 1349 (define-key map [menu-bar forms menu-forms-edit-sep3] |
| 1350 '("----")) | 1350 '("----")) |
| 1351 (define-key map [menu-bar forms menu-forms-edit-prev-field] | 1351 (define-key map [menu-bar forms menu-forms-edit-prev-field] |
| 1352 '("Previous field" . forms-prev-field)) | 1352 '("Previous Field" . forms-prev-field)) |
| 1353 (define-key map [menu-bar forms menu-forms-edit-next-field] | 1353 (define-key map [menu-bar forms menu-forms-edit-next-field] |
| 1354 '("Next field" . forms-next-field)) | 1354 '("Next Field" . forms-next-field)) |
| 1355 (put 'forms-insert-record 'menu-enable '(not forms-read-only)) | 1355 (put 'forms-insert-record 'menu-enable '(not forms-read-only)) |
| 1356 (put 'forms-delete-record 'menu-enable '(not forms-read-only)) | 1356 (put 'forms-delete-record 'menu-enable '(not forms-read-only)) |
| 1357 ) | 1357 ) |
| 1358 | 1358 |
| 1359 (defun forms--mode-commands1 (map) | 1359 (defun forms--mode-commands1 (map) |