-;;; pc-select.el --- emulate mark, cut, copy and paste from motif
-;;; (or MAC GUI) or MS-windoze (bah)) look-and-feel
-;;; including key bindings
+;;; pc-select.el --- emulate mark, cut, copy and paste from Motif
+;;; (or MAC GUI or MS-windoze (bah)) look-and-feel
+;;; including key bindings.
-;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
;; Author: Michael Staats <michael@thp.Uni-Duisburg.DE>
;; Created: 26 Sep 1995
;; for additional motif keybindings.
;; Thanks to jvromans@squirrel.nl (Johan Vromans) for a bug report
;; concerning setting of this-command.
-;;
+;; Dan Nicolaescu <done@ece.arizona.ro> suggested suppressing the
+;; scroll-up/scroll-down error.
+;; Eli Barzilay (eli@cs.bgu.ac.il) suggested the sexps functions and
+;; keybindings.
;;
;; Ok, some details about the idea of pc-selection-mode:
;;
;; They will be bound according to the "old" behaviour to S-delete (cut),
;; S-insert (paste) and C-insert (copy). These keys do the same in many
;; other programs.
+;;
-;;; Code:
+;;;; Customization:
+(defgroup pc-select nil
+ "Emulate pc bindings."
+ :prefix "pc-select"
+ :group 'editing-basics)
+
+(defcustom pc-select-override-scroll-error t
+ "*Non-nil means don't generate error on scrolling past edge of buffer.
+This variable applies in PC Selection mode only.
+The scroll commands normally generate an error if you try to scroll
+past the top or bottom of the buffer. This is annoying when selecting
+text with these commands. If you set this variable to non-nil, these
+errors are suppressed."
+ :type 'boolean
+ :group 'pc-select)
+
+(defcustom pc-select-selection-keys-only nil
+ "*Non-nil means only bind the basic selection keys when started.
+Other keys that emulate pc-behavior will be untouched.
+This gives mostly Emacs-like behaviour with only the selection keys enabled."
+ :type 'boolean
+ :group 'pc-select)
+
+(defcustom pc-select-meta-moves-sexps nil
+ "*Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
+ :type 'boolean
+ :group 'pc-select)
;;;;
;; misc
(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.\n
+system cut and paste.
+
Deactivating mark is to avoid confusion with delete-selection-mode
and transient-mark-mode."
(interactive "r")
(setq mark-active nil)
(message "Region saved"))
+(defun exchange-point-and-mark-nomark ()
+ (interactive)
+ (exchange-point-and-mark)
+ (setq mark-active nil))
+
;;;;
;; non-interactive
;;;;
(defun ensure-mark()
;; make sure mark is active
;; test if it is active, if it isn't, set it and activate it
- (and (not mark-active) (set-mark-command nil)))
+ (or mark-active (set-mark-command nil)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; forward and mark
(ensure-mark)
(forward-word arg))
+(defun forward-line-mark (&optional arg)
+ "Ensure mark is active; move cursor vertically down ARG lines."
+ (interactive "p")
+ (ensure-mark)
+ (forward-line arg)
+ (setq this-command 'forward-line)
+)
+
+(defun forward-sexp-mark (&optional arg)
+ "Ensure mark is active; move forward across one balanced expression (sexp).
+With argument, do it that many times. Negative arg -N means
+move backward across N balanced expressions."
+ (interactive "p")
+ (ensure-mark)
+ (forward-sexp arg))
+
(defun forward-paragraph-mark (&optional arg)
"Ensure mark is active; move forward to end of paragraph.
-With arg N, do it N times; negative arg -N means move backward N paragraphs.\n
+With arg N, do it N times; negative arg -N means move backward N paragraphs.
+
A line which `paragraph-start' matches either separates paragraphs
\(if `paragraph-separate' matches it also) or is the first line of a paragraph.
A paragraph end is the beginning of a line which is not part of the paragraph
(interactive "p")
(ensure-mark)
(forward-paragraph arg))
-
+
(defun next-line-mark (&optional arg)
"Ensure mark is active; move cursor vertically down ARG lines.
If there is no character in the target line exactly under the current column,
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).\n
+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
(end-of-line arg)
(setq this-command 'end-of-line))
+(defun backward-line-mark (&optional arg)
+ "Ensure mark is active; move cursor vertically up ARG lines."
+ (interactive "p")
+ (ensure-mark)
+ (if (null arg)
+ (setq arg 1))
+ (forward-line (- arg))
+ (setq this-command 'forward-line)
+)
+
(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.
When calling from a program, supply a number as argument or nil."
(interactive "P")
(ensure-mark)
- (scroll-down arg))
+ (cond (pc-select-override-scroll-error
+ (condition-case nil (scroll-down arg)
+ (beginning-of-buffer (goto-char (point-min)))))
+ (t (scroll-down arg))))
(defun end-of-buffer-mark (&optional arg)
"Ensure mark is active; move point to the end of the buffer.
-With arg N, put point N/10 of the way from the end.\n
+With arg N, put point N/10 of the way from the end.
+
If the buffer is narrowed, this command uses the beginning and size
-of the accessible part of the buffer.\n
+of the accessible part of the buffer.
+
Don't use this command in Lisp programs!
\(goto-char \(point-max)) is faster and avoids clobbering the mark."
(interactive "P")
(setq mark-active nil)
(forward-word arg))
+(defun forward-line-nomark (&optional arg)
+ "Deactivate mark; move cursor vertically down ARG lines."
+ (interactive "p")
+ (setq mark-active nil)
+ (forward-line arg)
+ (setq this-command 'forward-line)
+)
+
+(defun forward-sexp-nomark (&optional arg)
+ "Deactivate mark; move forward across one balanced expression (sexp).
+With argument, do it that many times. Negative arg -N means
+move backward across N balanced expressions."
+ (interactive "p")
+ (setq mark-active nil)
+ (forward-sexp arg))
+
(defun forward-paragraph-nomark (&optional arg)
"Deactivate mark; move forward to end of paragraph.
-With arg N, do it N times; negative arg -N means move backward N paragraphs.\n
+With arg N, do it N times; negative arg -N means move backward N paragraphs.
+
A line which `paragraph-start' matches either separates paragraphs
\(if `paragraph-separate' matches it also) or is the first line of a paragraph.
A paragraph end is the beginning of a line which is not part of the paragraph
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).\n
+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
(end-of-line arg)
(setq this-command 'end-of-line))
+(defun backward-line-nomark (&optional arg)
+ "Deactivate mark; move cursor vertically up ARG lines."
+ (interactive "p")
+ (setq mark-active nil)
+ (if (null arg)
+ (setq arg 1))
+ (forward-line (- arg))
+ (setq this-command 'forward-line)
+)
+
(defun scroll-down-nomark (&optional arg)
"Deactivate mark; 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.
When calling from a program, supply a number as argument or nil."
(interactive "P")
(setq mark-active nil)
- (scroll-down arg))
+ (cond (pc-select-override-scroll-error
+ (condition-case nil (scroll-down arg)
+ (beginning-of-buffer (goto-char (point-min)))))
+ (t (scroll-down arg))))
(defun end-of-buffer-nomark (&optional arg)
"Deactivate mark; move point to the end of the buffer.
-With arg N, put point N/10 of the way from the end.\n
+With arg N, put point N/10 of the way from the end.
+
If the buffer is narrowed, this command uses the beginning and size
-of the accessible part of the buffer.\n
+of the accessible part of the buffer.
+
Don't use this command in Lisp programs!
\(goto-char (point-max)) is faster and avoids clobbering the mark."
(interactive "P")
(ensure-mark)
(backward-word arg))
+(defun backward-sexp-mark (&optional arg)
+ "Ensure mark is active; move backward across one balanced expression (sexp).
+With argument, do it that many times. Negative arg -N means
+move forward across N balanced expressions."
+ (interactive "p")
+ (ensure-mark)
+ (backward-sexp arg))
+
(defun backward-paragraph-mark (&optional arg)
"Ensure mark is active; move backward to start of paragraph.
-With arg N, do it N times; negative arg -N means move forward N paragraphs.\n
+With arg N, do it N times; negative arg -N means move forward N paragraphs.
+
A paragraph start is the beginning of a line which is a
`first-line-of-paragraph' or which is ordinary text and follows a
paragraph-separating line; except: if the first real line of a
paragraph is preceded by a blank line, the paragraph starts at that
-blank line.\n
+blank line.
+
See `forward-paragraph' for more information."
(interactive "p")
(ensure-mark)
"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.\n
+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.\n
+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
to use and more reliable (no dependence on goal column, etc.)."
When calling from a program, supply a number as argument or nil."
(interactive "P")
(ensure-mark)
- (scroll-up arg))
+ (cond (pc-select-override-scroll-error
+ (condition-case nil (scroll-up arg)
+ (end-of-buffer (goto-char (point-max)))))
+ (t (scroll-up arg))))
(defun beginning-of-buffer-mark (&optional arg)
"Ensure mark is active; move point to the beginning of the buffer.
-With arg N, put point N/10 of the way from the beginning.\n
+With arg N, put point N/10 of the way from the beginning.
+
If the buffer is narrowed, this command uses the beginning and size
-of the accessible part of the buffer.\n
+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")
(setq mark-active nil)
(backward-word arg))
+(defun backward-sexp-nomark (&optional arg)
+ "Deactivate mark; move backward across one balanced expression (sexp).
+With argument, do it that many times. Negative arg -N means
+move forward across N balanced expressions."
+ (interactive "p")
+ (setq mark-active nil)
+ (backward-sexp arg))
+
(defun backward-paragraph-nomark (&optional arg)
"Deactivate mark; move backward to start of paragraph.
-With arg N, do it N times; negative arg -N means move forward N paragraphs.\n
+With arg N, do it N times; negative arg -N means move forward N paragraphs.
+
A paragraph start is the beginning of a line which is a
`first-line-of-paragraph' or which is ordinary text and follows a
paragraph-separating line; except: if the first real line of a
paragraph is preceded by a blank line, the paragraph starts at that
-blank line.\n
+blank line.
+
See `forward-paragraph' for more information."
(interactive "p")
(setq mark-active nil)
"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.\n
+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."
When calling from a program, supply a number as argument or nil."
(interactive "P")
(setq mark-active nil)
- (scroll-up arg))
+ (cond (pc-select-override-scroll-error
+ (condition-case nil (scroll-up arg)
+ (end-of-buffer (goto-char (point-max)))))
+ (t (scroll-up arg))))
(defun beginning-of-buffer-nomark (&optional arg)
"Deactivate mark; move point to the beginning of the buffer.
-With arg N, put point N/10 of the way from the beginning.\n
+With arg N, put point N/10 of the way from the beginning.
+
If the buffer is narrowed, this command uses the beginning and size
-of the accessible part of the buffer.\n
+of the accessible part of the buffer.
+
Don't use this command in Lisp programs!
\(goto-char (point-min)) is faster and avoids clobbering the mark."
(interactive "P")
;;;###autoload
(defun pc-selection-mode ()
- "Change mark behaviour to emulate motif, MAC or MS-Windows cut and paste style.\n
-This mode will switch on delete-selection-mode and
-transient-mark-mode.\n
-The cursor keys (and others) are bound to new functions
-which will modify the status of the mark. It will be
-possible to select regions with shift-cursorkeys. All this
-tries to emulate the look-and-feel of GUIs like motif,
-the MAC GUI or MS-Windows (sorry for the last one)."
+ "Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style.
+
+This mode enables Delete Selection mode and Transient Mark mode.
+
+The arrow keys (and others) are bound to new functions
+which modify the status of the mark.
+
+The ordinary arrow keys disable the mark.
+The shift-arrow keys move, leaving the mark behind.
+
+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-HOME moves to beginning of line, leaving the mark behind.
+With Ctrl or Meta, these keys move to beginning of buffer instead.
+
+END moves to end of line, disabling the mark.
+S-END moves to end of line, leaving the mark behind.
+With Ctrl or Meta, these keys move to end of buffer instead.
+
+PRIOR or PAGE-UP scrolls and disables the mark.
+S-PRIOR or S-PAGE-UP scrolls and leaves the mark behind.
+
+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
;; 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
+ ;; 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 [right] 'forward-char-nomark)
(define-key global-map [C-S-right] 'forward-word-mark)
(define-key global-map [C-right] 'forward-word-nomark)
- (define-key global-map [M-S-right] 'forward-word-mark)
- (define-key global-map [M-right] 'forward-word-nomark)
+ (define-key global-map [S-left] 'backward-char-mark)
+ (define-key global-map [left] 'backward-char-nomark)
+ (define-key global-map [C-S-left] 'backward-word-mark)
+ (define-key global-map [C-left] 'backward-word-nomark)
+ (cond (pc-select-meta-moves-sexps
+ (define-key global-map [M-S-right] 'forward-sexp-mark)
+ (define-key global-map [M-right] 'forward-sexp-nomark)
+ (define-key global-map [M-S-left] 'backward-sexp-mark)
+ (define-key global-map [M-left] 'backward-sexp-nomark))
+ (t
+ (define-key global-map [M-S-right] 'forward-word-mark)
+ (define-key global-map [M-right] 'forward-word-nomark)
+ (define-key global-map [M-S-left] 'backward-word-mark)
+ (define-key global-map [M-left] 'backward-word-nomark)))
(define-key global-map [S-down] 'next-line-mark)
(define-key global-map [down] 'next-line-nomark)
(define-key global-map [S-next] 'scroll-up-mark)
(define-key global-map [next] 'scroll-up-nomark)
- (define-key global-map [S-left] 'backward-char-mark)
- (define-key global-map [left] 'backward-char-nomark)
- (define-key global-map [C-S-left] 'backward-word-mark)
- (define-key global-map [C-left] 'backward-word-nomark)
- (define-key global-map [M-S-left] 'backward-word-mark)
- (define-key global-map [M-left] 'backward-word-nomark)
-
(define-key global-map [S-up] 'previous-line-mark)
(define-key global-map [up] 'previous-line-nomark)
(global-set-key [S-M-home] 'beginning-of-buffer-mark)
(global-set-key [M-home] 'beginning-of-buffer-nomark)
+ (define-key global-map [M-S-down] 'forward-line-mark)
+ (define-key global-map [M-down] 'forward-line-nomark)
+ (define-key global-map [M-S-up] 'backward-line-mark)
+ (define-key global-map [M-up] 'backward-line-nomark)
+
(define-key global-map [S-prior] 'scroll-down-mark)
(define-key global-map [prior] 'scroll-down-nomark)
- (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
- (define-key global-map [f16] 'yank)
- (define-key global-map [f18] 'copy-region-as-kill)
- (define-key global-map [f20] 'kill-region)
-
- ;; The following bindings are from Pete Forman.
- ;; I modified them a little to work together with the
- ;; mark functionality I added.
-
- (global-set-key [f1] 'help) ; KHelp F1
- (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-backspace] 'undo) ; KUndo aBS
- (global-set-key [C-down] 'forward-paragraph-nomark) ; KNextPara cDn
- (global-set-key [C-up] 'backward-paragraph-nomark) ; KPrevPara cUp
+ ;; 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)
- ;; 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)
- (global-set-key [C-escape] 'list-buffers)
-
+ (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 <sds@ptc.com> 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 [delete] 'delete-char) ; KDelete Del
+ (global-set-key [C-delete] 'kill-line) ; KEraseEndLine cDel
+ (global-set-key [M-backspace] '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
;;
+ ;; 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))
+ (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,
+and cursor movement commands.
+This mode enables Delete Selection mode and Transient Mark mode.
+You must modify via \\[customize] for this variable to have an effect."
+ :set (lambda (symbol value)
+ (if value (pc-selection-mode)))
+ :type 'boolean
+ :group 'pc-select
+ :require 'pc-select)
;;; pc-select.el ends here
HCoop / bpt / emacs.git / blobdiff