[Emacs-diffs] Changes to emacs/lisp/forms.el

[Richard M. Stallman]

Index: emacs/lisp/forms.el
diff -c emacs/lisp/forms.el:2.45 emacs/lisp/forms.el:2.46
*** emacs/lisp/forms.el:2.45    Tue Feb  4 06:21:12 2003
--- emacs/lisp/forms.el Fri May 23 08:48:06 2003
***************
*** 301,310 ****
  (provide 'forms)                      ;;; official
  (provide 'forms-mode)                 ;;; for compatibility
  
! (defconst forms-version (substring "$Revision: 2.45 $" 11 -2)
    "The version number of forms-mode (as string).  The complete RCS id is:
  
!   $Id: forms.el,v 2.45 2003/02/04 11:21:12 lektu Exp $")
  
  (defcustom forms-mode-hooks nil
    "Hook run upon entering Forms mode."
--- 301,310 ----
  (provide 'forms)                      ;;; official
  (provide 'forms-mode)                 ;;; for compatibility
  
! (defconst forms-version (substring "$Revision: 2.46 $" 11 -2)
    "The version number of forms-mode (as string).  The complete RCS id is:
  
!   $Id: forms.el,v 2.46 2003/05/23 12:48:06 rms Exp $")
  
  (defcustom forms-mode-hooks nil
    "Hook run upon entering Forms mode."
***************
*** 1287,1293 ****
    (setq forms-mode-ro-map (make-keymap))
    (suppress-keymap forms-mode-ro-map)
    (define-key forms-mode-ro-map "\C-c" forms-mode-map)
-   (define-key forms-mode-ro-map "\t" 'forms-next-field)
    (define-key forms-mode-ro-map "q" 'forms-toggle-read-only)
    (define-key forms-mode-ro-map "l" 'forms-jump-record)
    (define-key forms-mode-ro-map "n" 'forms-next-record)
--- 1287,1292 ----
***************
*** 1304,1310 ****
  
    ;; This is the normal, local map.
    (setq forms-mode-edit-map (make-keymap))
-   (define-key forms-mode-edit-map "\t"   'forms-next-field)
    (define-key forms-mode-edit-map "\C-c" forms-mode-map)
    (forms--mode-commands1 forms-mode-edit-map)
    (forms--mode-menu-edit forms-mode-edit-map)
--- 1303,1308 ----
***************
*** 1405,1411 ****
  
  (defun forms--mode-commands1 (map)
    "Helper routine to define keys."
!   (define-key map [TAB] 'forms-next-field)
    (define-key map [S-tab] 'forms-prev-field)
    (define-key map [next] 'forms-next-record)
    (define-key map [prior] 'forms-prev-record)
--- 1403,1409 ----
  
  (defun forms--mode-commands1 (map)
    "Helper routine to define keys."
!   (define-key map "\t" 'forms-next-field)
    (define-key map [S-tab] 'forms-prev-field)
    (define-key map [next] 'forms-next-record)
    (define-key map [prior] 'forms-prev-record)