comparison lisp/keydefs.el @ 1435:2b0c1a057037

[xemacs-hg @ 2003-04-28 16:18:23 by james] Remove key mappings to the nonexistent function-key-error.
author james
date Mon, 28 Apr 2003 16:18:23 +0000
parents 1b0339b048ce
children dd935ef485d2
comparison
equal deleted inserted replaced
1434:41edab4a0ad4 1435:2b0c1a057037
663 (define-key global-map 'kp-6 'self-insert-command) 663 (define-key global-map 'kp-6 'self-insert-command)
664 (define-key global-map 'kp-7 'self-insert-command) 664 (define-key global-map 'kp-7 'self-insert-command)
665 (define-key global-map 'kp-8 'self-insert-command) 665 (define-key global-map 'kp-8 'self-insert-command)
666 (define-key global-map 'kp-9 'self-insert-command) 666 (define-key global-map 'kp-9 'self-insert-command)
667 667
668 (define-key global-map 'select 'function-key-error) 668 ;(define-key global-map 'select 'function-key-error)
669 (define-key global-map 'print 'function-key-error) 669 ;(define-key global-map 'print 'function-key-error)
670 (define-key global-map 'execute 'execute-extended-command) 670 (define-key global-map 'execute 'execute-extended-command)
671 (define-key global-map 'clearline 'function-key-error) 671 ;(define-key global-map 'clearline 'function-key-error)
672 (define-key global-map 'insertline 'open-line) 672 (define-key global-map 'insertline 'open-line)
673 (define-key global-map 'deleteline 'kill-line) 673 (define-key global-map 'deleteline 'kill-line)
674 (define-key global-map 'insertchar 'function-key-error) 674 ;(define-key global-map 'insertchar 'function-key-error)
675 (define-key global-map 'deletechar 'delete-char) 675 (define-key global-map 'deletechar 'delete-char)
676 676
677 ;;; keydefs.el ends here 677 ;;; keydefs.el ends here