comparison lisp/emulation/pc-select.el @ 37334:ef2abdff31fa

(pc-selection-mode): Don't turn on normal-erase-is-backspace on a tty. Instead, bind some keys such as [delete] directly, like pc-select.el did before normal-erase-is-backspace was invented.

37333:54ec1bffae34

  (global-set-key [S-C-up] 'backward-paragraph-mark)

  (or pc-select-selection-keys-only
      (progn
	;; We are behaving like normal-erase-is-backspace-mode, so
	;; say so explicitly.
	(setq-default normal-erase-is-backspace t)
	(normal-erase-is-backspace-mode 1)
	(define-key global-map [S-insert]  'yank)
	(define-key global-map [C-insert]  'copy-region-as-kill)
	(define-key global-map [S-delete]  'kill-region)

	;; The following bindings are useful on Sun Type 3 keyboards

37334:ef2abdff31fa

  (global-set-key [S-C-up] 'backward-paragraph-mark)

  (or pc-select-selection-keys-only
      (progn
	;; We are behaving like normal-erase-is-backspace-mode, so
	;; say so explicitly.  But don't do that on a Unix tty, since
	;; some of them have keyboards that by default already behave
	;; as if normal-erase-is-backspace mode is on, and turning it
	;; a second time screws them up.
	(if (or (eq window-system 'x)
		(memq system-name '(ms-dos windows-nt)))
	    (progn
	      (setq-default normal-erase-is-backspace t)
	      (normal-erase-is-backspace-mode 1))
	  ;; This is for tty.  We don't turn on normal-erase-is-backspace,
	  ;; but bind keys as pc-selection-mode did before
	  ;; normal-erase-is-backspace was invented, to keep us back
	  ;; compatible.
	  (global-set-key [delete] 'delete-char)  ; KDelete       Del
	  (define-key function-key-map  [M-delete] [?\M-d])
	  (global-set-key [C-backspace] 'backward-kill-word))
	(define-key global-map [S-insert]  'yank)
	(define-key global-map [C-insert]  'copy-region-as-kill)
	(define-key global-map [S-delete]  'kill-region)

	;; The following bindings are useful on Sun Type 3 keyboards