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

[Kim F. Storm]

Index: emacs/lisp/emulation/keypad.el
diff -c emacs/lisp/emulation/keypad.el:1.4 emacs/lisp/emulation/keypad.el:1.5
*** emacs/lisp/emulation/keypad.el:1.4  Mon Jun 24 04:29:49 2002
--- emacs/lisp/emulation/keypad.el      Sat Sep 14 16:54:07 2002
***************
*** 116,122 ****
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Remove bindings" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
--- 116,122 ----
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Unspecified/User-defined" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
***************
*** 139,145 ****
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Remove bindings" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
--- 139,145 ----
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Unspecified/User-defined" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
***************
*** 162,168 ****
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Remove bindings" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
--- 162,168 ----
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Unspecified/User-defined" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
***************
*** 185,191 ****
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Remove bindings" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
--- 185,191 ----
                 (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
!                (const :tag "Unspecified/User-defined" none)
                 (other :tag "Keep existing bindings" nil))
    :require 'keypad
    :group 'keyboard)
***************
*** 205,211 ****
   'S-cursor Bind shifted keypad keys to the shifted cursor movement keys.
   'cursor   Bind keypad keys to the cursor movement keys.
   'numeric  Plain numeric keypad, i.e. 0 .. 9 and .  (or DECIMAL arg)
!  'none     Removes all bindings for keypad keys in function-key-map.
  
  If SETUP is 'numeric and the optional fourth argument DECIMAL is non-nil,
  the decimal key on the keypad is mapped to DECIMAL instead of `.'"
--- 205,213 ----
   'S-cursor Bind shifted keypad keys to the shifted cursor movement keys.
   'cursor   Bind keypad keys to the cursor movement keys.
   'numeric  Plain numeric keypad, i.e. 0 .. 9 and .  (or DECIMAL arg)
!  'none     Removes all bindings for keypad keys in function-key-map;
!            this enables any user-defined bindings for the keypad keys
!            in the global and local keymaps.
  
  If SETUP is 'numeric and the optional fourth argument DECIMAL is non-nil,
  the decimal key on the keypad is mapped to DECIMAL instead of `.'"