comparison lisp/emulation/pc-select.el @ 37196:f3dfc212bd1b

(pc-selection-mode): Call normal-erase-is-backspace-mode instead of binding keys individually.

37195:1084c7437815

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

  (or pc-select-selection-keys-only
      (progn
	(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

	(define-key global-map [f18]  'yank)
	(define-key global-map [f20]  'kill-region)

	;; The following bindings are from Pete Forman.
	(global-set-key [f6] 'other-window)	; KNextPane     F6
	(global-set-key [delete] 'delete-char)	; KDelete       Del
	(global-set-key [C-delete] 'kill-line)	; KEraseEndLine cDel
	(global-set-key "\M-\d" 'undo)		; KUndo         aBS

	;; The following bindings are taken from pc-mode.el
	;; as suggested by RMS.
	;; I only used the ones that are not covered above.
	(define-key function-key-map  [M-delete] [?\M-d])
	(global-set-key [C-M-delete]  'kill-sexp)
	(global-set-key [C-backspace] 'backward-kill-word)
	;; Next line proposed by Eli Barzilay
	(global-set-key [C-escape]    'electric-buffer-list)))
  ;;
  ;; setup
  ;;

37196:f3dfc212bd1b

  (global-set-key [S-C-down] 'forward-paragraph-mark)
  (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

	(define-key global-map [f18]  'yank)
	(define-key global-map [f20]  'kill-region)

	;; The following bindings are from Pete Forman.
	(global-set-key [f6] 'other-window)	; KNextPane     F6
	(global-set-key [C-delete] 'kill-line)	; KEraseEndLine cDel
	(global-set-key "\M-\d" 'undo)		; KUndo         aBS

	;; The following binding is taken from pc-mode.el
	;; as suggested by RMS.
	;; I only used the one that is not covered above.
	(global-set-key [C-M-delete]  'kill-sexp)
	;; Next line proposed by Eli Barzilay
	(global-set-key [C-escape]    'electric-buffer-list)))
  ;;
  ;; setup
  ;;