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

[Miles Bader]

Index: emacs/lisp/emulation/keypad.el
diff -c emacs/lisp/emulation/keypad.el:1.5 emacs/lisp/emulation/keypad.el:1.6
*** emacs/lisp/emulation/keypad.el:1.5  Sat Sep 14 16:54:07 2002
--- emacs/lisp/emulation/keypad.el      Tue Feb  4 07:56:02 2003
***************
*** 113,119 ****
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
--- 113,119 ----
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix)
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
***************
*** 136,142 ****
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
--- 136,142 ----
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix)
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
***************
*** 159,165 ****
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
--- 159,165 ----
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix)
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
***************
*** 182,188 ****
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix) 
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
--- 182,188 ----
                 (character :tag "Numeric Keypad with Decimal Key"
                            :match (lambda (widget value) (integerp value))
                            :value ?.)
!                (const :tag "Numeric prefix arguments" prefix)
                 (const :tag "Cursor keys" cursor)
                 (const :tag "Shifted cursor keys" S-cursor)
                 (const :tag "Unspecified/User-defined" none)
***************
*** 244,250 ****
            [delete insert end down next left
                    space right home up prior])
           ((eq setup 'S-cursor)
!           [S-delete S-insert S-end S-down S-next S-left 
                      S-space S-right S-home S-up S-prior])
           ((eq setup 'none)
            nil)
--- 244,250 ----
            [delete insert end down next left
                    space right home up prior])
           ((eq setup 'S-cursor)
!           [S-delete S-insert S-end S-down S-next S-left
                      S-space S-right S-home S-up S-prior])
           ((eq setup 'none)
            nil)
***************
*** 268,274 ****
                ((eq (aref kp i) 'S-kp-space)
                 (define-key function-key-map [S-kp-begin]
                   (if bind (vector (aref bind i)))))))
!                
        (setq i (1+ i)))))
  
  ;;; keypad.el ends here
--- 268,274 ----
                ((eq (aref kp i) 'S-kp-space)
                 (define-key function-key-map [S-kp-begin]
                   (if bind (vector (aref bind i)))))))
! 
        (setq i (1+ i)))))
  
  ;;; keypad.el ends here