comparison lisp/emulation/pc-select.el @ 30792:97c0caec0a32

fixed sds e-mail

30791:72225a682ad2

;;;		     including key bindings.

;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.

;; Author: Michael Staats <[e-mail]>
;; Keywords: convenience 
;; Created: 26 Sep 1995

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;; You can still get the old behaviour of cursor moving with the
;; control sequences C-f, C-b, etc.
;; This package uses transient-mark-mode and
;; delete-selection-mode.
;;
;; In addition to that all key-bindings from the pc-mode are 
;; done here too (as suggested by RMS).
;;
;; As I found out after I finished the first version, s-region.el tries
;; to do the same.... But my code is a little more complete and using
;; delete-selection-mode is very important for the look-and-feel.

;; Thanks to [e-mail] (Johan Vromans) for a bug report
;; concerning setting of this-command.
;; Dan Nicolaescu <[e-mail]> suggested suppressing the
;; scroll-up/scroll-down error.
;; Eli Barzilay ([e-mail]) suggested the sexps functions and
;; keybindings. 
;;
;; Ok, some details about the idea of pc-selection-mode:
;;
;;  o The standard keys for moving around (right, left, up, down, home, end,
;;    prior, next, called "move-keys" from now on) will always de-activate

(defun scroll-down-mark (&optional arg)
  "Ensure mark is active; scroll down ARG lines; or near full screen if no ARG.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll upward.
When calling from a program, supply a number as argument or nil."
  (interactive "P") 
  (ensure-mark)
  (cond (pc-select-override-scroll-error
	 (condition-case nil (scroll-down arg)
	   (beginning-of-buffer (goto-char (point-min)))))
	(t (scroll-down arg))))

of the accessible part of the buffer.

Don't use this command in Lisp programs!
\(goto-char (p\oint-min)) is faster and avoids clobbering the mark."
  (interactive "P")
  (ensure-mark) 
  (let ((size (- (point-max) (point-min))))
    (goto-char (if arg
		   (+ (point-min)
		      (if (> size 10000)
			  ;; Avoid overflow for large buffer sizes!

  ;; This is to avoid confusion with the delete-selection-mode
  ;; On simple displays you can't see that a region is active and
  ;; will be deleted on the next keypress.  IMHO especially for
  ;; copy-region-as-kill this is confusing.
  ;; The same goes for exchange-point-and-mark
  (define-key global-map "\M-w" 'copy-region-as-kill-nomark) 
  (define-key global-map "\C-x\C-x" 'exchange-point-and-mark-nomark) 
  ;; The following keybindings are for standard ISO keyboards
  ;; as they are used with IBM compatible PCs, IBM RS/6000,
  ;; MACs, many X-Stations and probably more
  (define-key global-map [S-right]   'forward-char-mark)
  (define-key global-map [right]     'forward-char-nomark)

  ;; Next four lines are from Pete Forman.
  (global-set-key [C-down] 'forward-paragraph-nomark)	; KNextPara     cDn
  (global-set-key [C-up] 'backward-paragraph-nomark)	; KPrevPara     cUp
  (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
	;; They implement the Get-Delete-Put (copy-cut-paste)
	;; functions from sunview on the L6, L8 and L10 keys
	;; Sam Steingold <[e-mail]> says that f16 is copy and f18 is paste.
	(define-key global-map [f16]  'copy-region-as-kill)
	(define-key global-map [f18]  'yank)
	(define-key global-map [f20]  'kill-region)

	;; The following bindings are from Pete Forman.

	(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
  ;;
  ;; Next line proposed by Eli Barzilay
  (setq highlight-nonselected-windows nil)
  (setq transient-mark-mode t)

30792:97c0caec0a32

;;;		     including key bindings.

;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.

;; Author: Michael Staats <[e-mail]>
;; Keywords: convenience
;; Created: 26 Sep 1995

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;; You can still get the old behaviour of cursor moving with the
;; control sequences C-f, C-b, etc.
;; This package uses transient-mark-mode and
;; delete-selection-mode.
;;
;; In addition to that all key-bindings from the pc-mode are
;; done here too (as suggested by RMS).
;;
;; As I found out after I finished the first version, s-region.el tries
;; to do the same.... But my code is a little more complete and using
;; delete-selection-mode is very important for the look-and-feel.

;; Thanks to [e-mail] (Johan Vromans) for a bug report
;; concerning setting of this-command.
;; Dan Nicolaescu <[e-mail]> suggested suppressing the
;; scroll-up/scroll-down error.
;; Eli Barzilay ([e-mail]) suggested the sexps functions and
;; keybindings.
;;
;; Ok, some details about the idea of pc-selection-mode:
;;
;;  o The standard keys for moving around (right, left, up, down, home, end,
;;    prior, next, called "move-keys" from now on) will always de-activate

(defun scroll-down-mark (&optional arg)
  "Ensure mark is active; scroll down ARG lines; or near full screen if no ARG.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll upward.
When calling from a program, supply a number as argument or nil."
  (interactive "P")
  (ensure-mark)
  (cond (pc-select-override-scroll-error
	 (condition-case nil (scroll-down arg)
	   (beginning-of-buffer (goto-char (point-min)))))
	(t (scroll-down arg))))

of the accessible part of the buffer.

Don't use this command in Lisp programs!
\(goto-char (p\oint-min)) is faster and avoids clobbering the mark."
  (interactive "P")
  (ensure-mark)
  (let ((size (- (point-max) (point-min))))
    (goto-char (if arg
		   (+ (point-min)
		      (if (> size 10000)
			  ;; Avoid overflow for large buffer sizes!

  ;; This is to avoid confusion with the delete-selection-mode
  ;; On simple displays you can't see that a region is active and
  ;; will be deleted on the next keypress.  IMHO especially for
  ;; copy-region-as-kill this is confusing.
  ;; The same goes for exchange-point-and-mark
  (define-key global-map "\M-w" 'copy-region-as-kill-nomark)
  (define-key global-map "\C-x\C-x" 'exchange-point-and-mark-nomark)
  ;; The following keybindings are for standard ISO keyboards
  ;; as they are used with IBM compatible PCs, IBM RS/6000,
  ;; MACs, many X-Stations and probably more
  (define-key global-map [S-right]   'forward-char-mark)
  (define-key global-map [right]     'forward-char-nomark)

  ;; Next four lines are from Pete Forman.
  (global-set-key [C-down] 'forward-paragraph-nomark)	; KNextPara     cDn
  (global-set-key [C-up] 'backward-paragraph-nomark)	; KPrevPara     cUp
  (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
	;; They implement the Get-Delete-Put (copy-cut-paste)
	;; functions from sunview on the L6, L8 and L10 keys
	;; Sam Steingold <[e-mail]> says that f16 is copy and f18 is paste.
	(define-key global-map [f16]  'copy-region-as-kill)
	(define-key global-map [f18]  'yank)
	(define-key global-map [f20]  'kill-region)

	;; The following bindings are from Pete Forman.

	(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
  ;;
  ;; Next line proposed by Eli Barzilay
  (setq highlight-nonselected-windows nil)
  (setq transient-mark-mode t)