comparison lisp/emulation/pc-select.el @ 41299:77b08a460f84

Doc string fixes. (pc-selection-mode): Don't treat macos as a tty.

41298:dd0332958888

;;    other programs.
;;

;;; Code:

;;;; Customization:
(defgroup pc-select nil
  "Emulate pc bindings."
  :prefix "pc-select"
  :group 'editing-basics
  :group 'convenience)

(defun copy-region-as-kill-nomark (beg end)
  "Save the region as if killed; but don't kill it; deactivate mark.
If `interprogram-cut-function' is non-nil, also save the text for a window
system cut and paste.

Deactivating mark is to avoid confusion with delete-selection-mode
and transient-mark-mode."
 (interactive "r")
 (copy-region-as-kill beg end)
 (setq mark-active nil)
 (message "Region saved"))

(defun exchange-point-and-mark-nomark  ()
  (interactive)
  (exchange-point-and-mark)
  (setq mark-active nil))

;;;;

value of `next-line-add-newlines'.  If non-nil, it inserts a newline character
to create a line, and moves the cursor to that line.  Otherwise it moves the
cursor to the end of the buffer \(if already at the end of the buffer, an error
is signaled).

The command C-x C-n can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.  This goal column is stored
in `goal-column', which is nil when there is none."
  (interactive "p")
  (ensure-mark)

value of `next-line-add-newlines'.  If non-nil, it inserts a newline character
to create a line, and moves the cursor to that line.  Otherwise it moves the
cursor to the end of the buffer (if already at the end of the buffer, an error
is signaled).

The command C-x C-n can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.  This goal column is stored
in `goal-column', which is nil when there is none."
  (interactive "p")
  (setq mark-active nil)

  "Ensure mark is active; move cursor vertically up ARG lines.
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.

The command C-x C-n can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.

If you are thinking of using this in a Lisp program, consider using
`forward-line' with a negative argument instead.  It is usually easier

  "Deactivate mark; move cursor vertically up ARG lines.
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.

The command C-x C-n can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically."
  (interactive "p")
  (setq mark-active nil)
  (previous-line arg)

C-LEFT and C-RIGHT move back or forward one word, disabling the mark.
S-C-LEFT and S-C-RIGHT move back or forward one word, leaving the mark behind.

M-LEFT and M-RIGHT move back or forward one word or sexp, disabling the mark.
S-M-LEFT and S-M-RIGHT move back or forward one word or sexp, leaving the mark
behind. To control wether these keys move word-wise or sexp-wise set the
variable pc-select-meta-moves-sexps after loading pc-select.el but before
turning pc-selection-mode on.

C-DOWN and C-UP move back or forward a paragraph, disabling the mark.
S-C-DOWN and S-C-UP move back or forward a paragraph, leaving the mark behind.

HOME moves to beginning of line, disabling the mark.

S-DELETE kills the region (`kill-region').
S-INSERT yanks text from the kill ring (`yank').
C-INSERT copies the region into the kill ring (`copy-region-as-kill').

In addition, certain other PC bindings are imitated (to avoid this, set
the variable pc-select-selection-keys-only to t after loading pc-select.el
but before calling pc-selection-mode):

  F6           other-window
  DELETE       delete-char
  C-DELETE     kill-line
  M-DELETE     kill-word
  C-M-DELETE   kill-sexp
  C-BACKSPACE  backward-kill-word
  M-BACKSPACE  undo"

  (interactive)
  ;;
  ;; keybindings
  ;;

  (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
	;; 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
	;; 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.
	(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
  ;;
  ;; Next line proposed by Eli Barzilay
  (setq highlight-nonselected-windows nil)
  (setq transient-mark-mode t)
  (setq mark-even-if-inactive t)
  (delete-selection-mode 1)
)

;;;###autoload
(defcustom pc-selection-mode nil
  "Toggle PC Selection mode.
Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style,

41299:77b08a460f84

;;    other programs.
;;

;;; Code:

;; Customization:
(defgroup pc-select nil
  "Emulate pc bindings."
  :prefix "pc-select"
  :group 'editing-basics
  :group 'convenience)

(defun copy-region-as-kill-nomark (beg end)
  "Save the region as if killed; but don't kill it; deactivate mark.
If `interprogram-cut-function' is non-nil, also save the text for a window
system cut and paste.

Deactivating mark is to avoid confusion with `delete-selection-mode'
and `transient-mark-mode'."
 (interactive "r")
 (copy-region-as-kill beg end)
 (setq mark-active nil)
 (message "Region saved"))

(defun exchange-point-and-mark-nomark  ()
  "Like `exchange-point-and-mark' but without activating the mark."
  (interactive)
  (exchange-point-and-mark)
  (setq mark-active nil))

;;;;

value of `next-line-add-newlines'.  If non-nil, it inserts a newline character
to create a line, and moves the cursor to that line.  Otherwise it moves the
cursor to the end of the buffer \(if already at the end of the buffer, an error
is signaled).

The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.  This goal column is stored
in `goal-column', which is nil when there is none."
  (interactive "p")
  (ensure-mark)

value of `next-line-add-newlines'.  If non-nil, it inserts a newline character
to create a line, and moves the cursor to that line.  Otherwise it moves the
cursor to the end of the buffer (if already at the end of the buffer, an error
is signaled).

The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.  This goal column is stored
in `goal-column', which is nil when there is none."
  (interactive "p")
  (setq mark-active nil)

  "Ensure mark is active; move cursor vertically up ARG lines.
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.

The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.

If you are thinking of using this in a Lisp program, consider using
`forward-line' with a negative argument instead.  It is usually easier

  "Deactivate mark; move cursor vertically up ARG lines.
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.

The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically."
  (interactive "p")
  (setq mark-active nil)
  (previous-line arg)

C-LEFT and C-RIGHT move back or forward one word, disabling the mark.
S-C-LEFT and S-C-RIGHT move back or forward one word, leaving the mark behind.

M-LEFT and M-RIGHT move back or forward one word or sexp, disabling the mark.
S-M-LEFT and S-M-RIGHT move back or forward one word or sexp, leaving the mark
behind.  To control whether these keys move word-wise or sexp-wise set the
variable `pc-select-meta-moves-sexps' after loading pc-select.el but before
turning `pc-selection-mode' on.

C-DOWN and C-UP move back or forward a paragraph, disabling the mark.
S-C-DOWN and S-C-UP move back or forward a paragraph, leaving the mark behind.

HOME moves to beginning of line, disabling the mark.

S-DELETE kills the region (`kill-region').
S-INSERT yanks text from the kill ring (`yank').
C-INSERT copies the region into the kill ring (`copy-region-as-kill').

In addition, certain other PC bindings are imitated (to avoid this, set
the variable `pc-select-selection-keys-only' to t after loading pc-select.el
but before calling `pc-selection-mode'):

  F6           `other-window'
  DELETE       `delete-char'
  C-DELETE     `kill-line'
  M-DELETE     `kill-word'
  C-M-DELETE   `kill-sexp'
  C-BACKSPACE  `backward-kill-word'
  M-BACKSPACE  `undo'"
  ;; FIXME: make into a proper minor mode (i.e. undoable).
  ;; FIXME: bring pc-bindings-mode here ?
  (interactive)
  ;;
  ;; keybindings
  ;;

  (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)

  (unless pc-select-selection-keys-only
    ;; 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 macos)))
	(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
    ;; 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.
    (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
  ;;
  ;; Next line proposed by Eli Barzilay
  (setq highlight-nonselected-windows nil)
  (transient-mark-mode 1)
  (setq mark-even-if-inactive t)
  (delete-selection-mode 1))

;;;###autoload
(defcustom pc-selection-mode nil
  "Toggle PC Selection mode.
Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style,