comparison lisp/term/x-win.el @ 2563:c8ae06bda9fa

(global-map): Remove function key bindings that duplicate stuff in loaddefs.el.

2562:2715e893d220

	   (setq defined-colors (cons this-color defined-colors))))
    defined-colors))

;;;; Function keys

;;; Give some common function keys reasonable definitions.
(define-key global-map [home] 'beginning-of-line)
(define-key global-map [left] 'backward-char)
(define-key global-map [up] 'previous-line)
(define-key global-map [right] 'forward-char)
(define-key global-map [down] 'next-line)
(define-key global-map [prior] 'scroll-down)
(define-key global-map [next] 'scroll-up)
;; We use a different symbol to prevent
;; doc strings from listing M-next as the preferred way to do this.
(fset 'advertised-scroll-other-window 'scroll-other-window)
(define-key global-map [M-next] 'scroll-other-window)
(define-key global-map [begin] 'beginning-of-buffer)
(define-key global-map [end] 'end-of-buffer)

(define-key global-map "\C-z" 'iconify-frame)

;; Map certain keypad keys into ASCII characters
;; that people usually expect.

2563:c8ae06bda9fa

	   (setq defined-colors (cons this-color defined-colors))))
    defined-colors))

;;;; Function keys

;; We use a different symbol to prevent
;; doc strings from listing M-next as the preferred way to do this.
(fset 'advertised-scroll-other-window 'scroll-other-window)
(define-key global-map [M-next] 'scroll-other-window)
(define-key global-map [begin] 'beginning-of-buffer)

(define-key global-map "\C-z" 'iconify-frame)

;; Map certain keypad keys into ASCII characters
;; that people usually expect.