[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.2 emacs/lisp/emulation/keypad.el:1.3
*** emacs/lisp/emulation/keypad.el:1.2  Tue May 14 16:30:55 2002
--- emacs/lisp/emulation/keypad.el      Fri Jun 21 09:51:26 2002
***************
*** 255,260 ****
--- 255,268 ----
      (while (< i 11)
        (define-key function-key-map (vector (aref kp i))
        (if bind (vector (aref bind i))))
+       (if (= i 6)
+         (cond ((eq (aref kp i) 'kp-space)
+                (define-key function-key-map [kp-begin]
+                  (if bind (vector (aref bind i)))))
+               ((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