/[emacs]/emacs/lisp/forms.el
ViewVC logotype

Diff of /emacs/lisp/forms.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.45 by lektu, Tue Feb 4 11:21:12 2003 UTC revision 2.46 by rms, Fri May 23 12:48:06 2003 UTC
# Line 1287  Commands:                        Equival Line 1287  Commands:                        Equival
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)
# Line 1304  Commands:                        Equival Line 1303  Commands:                        Equival
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)
# Line 1405  Commands:                        Equival Line 1403  Commands:                        Equival
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)

Legend:
Removed from v.2.45  
changed lines
  Added in v.2.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26