1287 |
(setq forms-mode-ro-map (make-keymap)) |
(setq forms-mode-ro-map (make-keymap)) |
1288 |
(suppress-keymap forms-mode-ro-map) |
(suppress-keymap forms-mode-ro-map) |
1289 |
(define-key forms-mode-ro-map "\C-c" forms-mode-map) |
(define-key forms-mode-ro-map "\C-c" forms-mode-map) |
|
(define-key forms-mode-ro-map "\t" 'forms-next-field) |
|
1290 |
(define-key forms-mode-ro-map "q" 'forms-toggle-read-only) |
(define-key forms-mode-ro-map "q" 'forms-toggle-read-only) |
1291 |
(define-key forms-mode-ro-map "l" 'forms-jump-record) |
(define-key forms-mode-ro-map "l" 'forms-jump-record) |
1292 |
(define-key forms-mode-ro-map "n" 'forms-next-record) |
(define-key forms-mode-ro-map "n" 'forms-next-record) |
1303 |
|
|
1304 |
;; This is the normal, local map. |
;; This is the normal, local map. |
1305 |
(setq forms-mode-edit-map (make-keymap)) |
(setq forms-mode-edit-map (make-keymap)) |
|
(define-key forms-mode-edit-map "\t" 'forms-next-field) |
|
1306 |
(define-key forms-mode-edit-map "\C-c" forms-mode-map) |
(define-key forms-mode-edit-map "\C-c" forms-mode-map) |
1307 |
(forms--mode-commands1 forms-mode-edit-map) |
(forms--mode-commands1 forms-mode-edit-map) |
1308 |
(forms--mode-menu-edit forms-mode-edit-map) |
(forms--mode-menu-edit forms-mode-edit-map) |
1403 |
|
|
1404 |
(defun forms--mode-commands1 (map) |
(defun forms--mode-commands1 (map) |
1405 |
"Helper routine to define keys." |
"Helper routine to define keys." |
1406 |
(define-key map [TAB] 'forms-next-field) |
(define-key map "\t" 'forms-next-field) |
1407 |
(define-key map [S-tab] 'forms-prev-field) |
(define-key map [S-tab] 'forms-prev-field) |
1408 |
(define-key map [next] 'forms-next-record) |
(define-key map [next] 'forms-next-record) |
1409 |
(define-key map [prior] 'forms-prev-record) |
(define-key map [prior] 'forms-prev-record) |