1 ;;; pc-select.el --- emulate mark, cut, copy and paste from Motif
2 ;;; (or MAC GUI or MS-windoze (bah)) look-and-feel
3 ;;; including key bindings.
5 ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.
7 ;; Author: Michael Staats <michael@thp.Uni-Duisburg.DE>
8 ;; Keywords: convenience emulation
9 ;; Created: 26 Sep 1995
11 ;; This file is part of GNU Emacs.
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; GNU Emacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;; Boston, MA 02111-1307, USA.
30 ;; This package emulates the mark, copy, cut and paste look-and-feel of motif
31 ;; programs (which is the same as the MAC gui and (sorry for that) MS-Windows).
32 ;; It modifies the keybindings of the cursor keys and the next, prior,
33 ;; home and end keys. They will modify mark-active.
34 ;; You can still get the old behaviour of cursor moving with the
35 ;; control sequences C-f, C-b, etc.
36 ;; This package uses transient-mark-mode and
37 ;; delete-selection-mode.
39 ;; In addition to that all key-bindings from the pc-mode are
40 ;; done here too (as suggested by RMS).
42 ;; As I found out after I finished the first version, s-region.el tries
43 ;; to do the same.... But my code is a little more complete and using
44 ;; delete-selection-mode is very important for the look-and-feel.
45 ;; Pete Forman <pete.forman@airgun.wg.waii.com> provided some motif
46 ;; compliant keybindings which I added. I had to modify them a little
47 ;; to add the -mark and -nomark functionality of cursor moving.
50 ;; Many thanks to all who made comments.
51 ;; Thanks to RMS and Ralf Muschall <prm@rz.uni-jena.de> for criticism.
52 ;; Kevin Cutts <cutts@ukraine.corp.mot.com> added the beginning-of-buffer
53 ;; and end-of-buffer functions which I modified a little.
54 ;; David Biesack <sasdjb@unx.sas.com> suggested some more cleanup.
55 ;; Thanks to Pete Forman <pete.forman@airgun.wg.waii.com>
56 ;; for additional motif keybindings.
57 ;; Thanks to jvromans@squirrel.nl (Johan Vromans) for a bug report
58 ;; concerning setting of this-command.
59 ;; Dan Nicolaescu <done@ece.arizona.ro> suggested suppressing the
60 ;; scroll-up/scroll-down error.
61 ;; Eli Barzilay (eli@cs.bgu.ac.il) suggested the sexps functions and
64 ;; Ok, some details about the idea of pc-selection-mode:
66 ;; o The standard keys for moving around (right, left, up, down, home, end,
67 ;; prior, next, called "move-keys" from now on) will always de-activate
69 ;; o If you press "Shift" together with the "move-keys", the region
70 ;; you pass along is activated
71 ;; o You have the copy, cut and paste functions (as in many other programs)
72 ;; which will operate on the active region
73 ;; It was not possible to bind them to C-v, C-x and C-c for obvious
75 ;; They will be bound according to the "old" behaviour to S-delete (cut),
76 ;; S-insert (paste) and C-insert (copy). These keys do the same in many
83 (defgroup pc-select nil
84 "Emulate pc bindings."
86 :group 'editing-basics
89 (defcustom pc-select-override-scroll-error t
90 "*Non-nil means don't generate error on scrolling past edge of buffer.
91 This variable applies in PC Selection mode only.
92 The scroll commands normally generate an error if you try to scroll
93 past the top or bottom of the buffer. This is annoying when selecting
94 text with these commands. If you set this variable to non-nil, these
95 errors are suppressed."
99 (defcustom pc-select-selection-keys-only nil
100 "*Non-nil means only bind the basic selection keys when started.
101 Other keys that emulate pc-behavior will be untouched.
102 This gives mostly Emacs-like behaviour with only the selection keys enabled."
106 (defcustom pc-select-meta-moves-sexps nil
107 "*Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
117 (defun copy-region-as-kill-nomark (beg end)
118 "Save the region as if killed; but don't kill it; deactivate mark.
119 If `interprogram-cut-function' is non-nil, also save the text for a window
120 system cut and paste.
122 Deactivating mark is to avoid confusion with `delete-selection-mode'
123 and `transient-mark-mode'."
125 (copy-region-as-kill beg end)
126 (setq mark-active nil)
127 (message "Region saved"))
129 (defun exchange-point-and-mark-nomark ()
130 "Like `exchange-point-and-mark' but without activating the mark."
132 (exchange-point-and-mark)
133 (setq mark-active nil))
139 ;; make sure mark is active
140 ;; test if it is active, if it isn't, set it and activate it
141 (or mark-active (set-mark-command nil)))
143 ;;;;;;;;;;;;;;;;;;;;;;;;;;;
144 ;;;;; forward and mark
145 ;;;;;;;;;;;;;;;;;;;;;;;;;;;
147 (defun forward-char-mark (&optional arg)
148 "Ensure mark is active; move point right ARG characters (left if ARG negative).
149 On reaching end of buffer, stop and signal error."
154 (defun forward-word-mark (&optional arg)
155 "Ensure mark is active; move point right ARG words (backward if ARG is negative).
157 If an edge of the buffer is reached, point is left there
158 and nil is returned."
163 (defun forward-line-mark (&optional arg)
164 "Ensure mark is active; move cursor vertically down ARG lines."
168 (setq this-command 'forward-line)
171 (defun forward-sexp-mark (&optional arg)
172 "Ensure mark is active; move forward across one balanced expression (sexp).
173 With argument, do it that many times. Negative arg -N means
174 move backward across N balanced expressions."
179 (defun forward-paragraph-mark (&optional arg)
180 "Ensure mark is active; move forward to end of paragraph.
181 With arg N, do it N times; negative arg -N means move backward N paragraphs.
183 A line which `paragraph-start' matches either separates paragraphs
184 \(if `paragraph-separate' matches it also) or is the first line of a paragraph.
185 A paragraph end is the beginning of a line which is not part of the paragraph
186 to which the end of the previous line belongs, or the end of the buffer."
189 (forward-paragraph arg))
191 (defun next-line-mark (&optional arg)
192 "Ensure mark is active; move cursor vertically down ARG lines.
193 If there is no character in the target line exactly under the current column,
194 the cursor is positioned after the character in that line which spans this
195 column, or at the end of the line if it is not long enough.
196 If there is no line in the buffer after this one, behavior depends on the
197 value of `next-line-add-newlines'. If non-nil, it inserts a newline character
198 to create a line, and moves the cursor to that line. Otherwise it moves the
199 cursor to the end of the buffer \(if already at the end of the buffer, an error
202 The command \\[set-goal-column] can be used to create
203 a semipermanent goal column to which this command always moves.
204 Then it does not try to move vertically. This goal column is stored
205 in `goal-column', which is nil when there is none."
209 (setq this-command 'next-line))
211 (defun end-of-line-mark (&optional arg)
212 "Ensure mark is active; move point to end of current line.
213 With argument ARG not nil or 1, move forward ARG - 1 lines first.
214 If scan reaches end of buffer, stop there without error."
218 (setq this-command 'end-of-line))
220 (defun backward-line-mark (&optional arg)
221 "Ensure mark is active; move cursor vertically up ARG lines."
226 (forward-line (- arg))
227 (setq this-command 'forward-line)
230 (defun scroll-down-mark (&optional arg)
231 "Ensure mark is active; scroll down ARG lines; or near full screen if no ARG.
232 A near full screen is `next-screen-context-lines' less than a full screen.
233 Negative ARG means scroll upward.
234 When calling from a program, supply a number as argument or nil."
237 (cond (pc-select-override-scroll-error
238 (condition-case nil (scroll-down arg)
239 (beginning-of-buffer (goto-char (point-min)))))
240 (t (scroll-down arg))))
242 (defun end-of-buffer-mark (&optional arg)
243 "Ensure mark is active; move point to the end of the buffer.
244 With arg N, put point N/10 of the way from the end.
246 If the buffer is narrowed, this command uses the beginning and size
247 of the accessible part of the buffer.
249 Don't use this command in Lisp programs!
250 \(goto-char \(point-max)) is faster and avoids clobbering the mark."
253 (let ((size (- (point-max) (point-min))))
257 ;; Avoid overflow for large buffer sizes!
258 (* (prefix-numeric-value arg)
260 (/ (* size (prefix-numeric-value arg)) 10)))
262 ;; If we went to a place in the middle of the buffer,
263 ;; adjust it to the beginning of a line.
264 (if arg (forward-line 1)
265 ;; If the end of the buffer is not already on the screen,
266 ;; then scroll specially to put it near, but not at, the bottom.
267 (if (let ((old-point (point)))
269 (goto-char (window-start))
270 (vertical-motion (window-height))
271 (< (point) old-point)))
273 (overlay-recenter (point))
280 (defun forward-char-nomark (&optional arg)
281 "Deactivate mark; move point right ARG characters \(left if ARG negative).
282 On reaching end of buffer, stop and signal error."
284 (setq mark-active nil)
287 (defun forward-word-nomark (&optional arg)
288 "Deactivate mark; move point right ARG words \(backward if ARG is negative).
290 If an edge of the buffer is reached, point is left there
291 and nil is returned."
293 (setq mark-active nil)
296 (defun forward-line-nomark (&optional arg)
297 "Deactivate mark; move cursor vertically down ARG lines."
299 (setq mark-active nil)
301 (setq this-command 'forward-line)
304 (defun forward-sexp-nomark (&optional arg)
305 "Deactivate mark; move forward across one balanced expression (sexp).
306 With argument, do it that many times. Negative arg -N means
307 move backward across N balanced expressions."
309 (setq mark-active nil)
312 (defun forward-paragraph-nomark (&optional arg)
313 "Deactivate mark; move forward to end of paragraph.
314 With arg N, do it N times; negative arg -N means move backward N paragraphs.
316 A line which `paragraph-start' matches either separates paragraphs
317 \(if `paragraph-separate' matches it also) or is the first line of a paragraph.
318 A paragraph end is the beginning of a line which is not part of the paragraph
319 to which the end of the previous line belongs, or the end of the buffer."
321 (setq mark-active nil)
322 (forward-paragraph arg))
324 (defun next-line-nomark (&optional arg)
325 "Deactivate mark; move cursor vertically down ARG lines.
326 If there is no character in the target line exactly under the current column,
327 the cursor is positioned after the character in that line which spans this
328 column, or at the end of the line if it is not long enough.
329 If there is no line in the buffer after this one, behavior depends on the
330 value of `next-line-add-newlines'. If non-nil, it inserts a newline character
331 to create a line, and moves the cursor to that line. Otherwise it moves the
332 cursor to the end of the buffer (if already at the end of the buffer, an error
335 The command \\[set-goal-column] can be used to create
336 a semipermanent goal column to which this command always moves.
337 Then it does not try to move vertically. This goal column is stored
338 in `goal-column', which is nil when there is none."
340 (setq mark-active nil)
342 (setq this-command 'next-line))
344 (defun end-of-line-nomark (&optional arg)
345 "Deactivate mark; move point to end of current line.
346 With argument ARG not nil or 1, move forward ARG - 1 lines first.
347 If scan reaches end of buffer, stop there without error."
349 (setq mark-active nil)
351 (setq this-command 'end-of-line))
353 (defun backward-line-nomark (&optional arg)
354 "Deactivate mark; move cursor vertically up ARG lines."
356 (setq mark-active nil)
359 (forward-line (- arg))
360 (setq this-command 'forward-line)
363 (defun scroll-down-nomark (&optional arg)
364 "Deactivate mark; scroll down ARG lines; or near full screen if no ARG.
365 A near full screen is `next-screen-context-lines' less than a full screen.
366 Negative ARG means scroll upward.
367 When calling from a program, supply a number as argument or nil."
369 (setq mark-active nil)
370 (cond (pc-select-override-scroll-error
371 (condition-case nil (scroll-down arg)
372 (beginning-of-buffer (goto-char (point-min)))))
373 (t (scroll-down arg))))
375 (defun end-of-buffer-nomark (&optional arg)
376 "Deactivate mark; move point to the end of the buffer.
377 With arg N, put point N/10 of the way from the end.
379 If the buffer is narrowed, this command uses the beginning and size
380 of the accessible part of the buffer.
382 Don't use this command in Lisp programs!
383 \(goto-char (point-max)) is faster and avoids clobbering the mark."
385 (setq mark-active nil)
386 (let ((size (- (point-max) (point-min))))
390 ;; Avoid overflow for large buffer sizes!
391 (* (prefix-numeric-value arg)
393 (/ (* size (prefix-numeric-value arg)) 10)))
395 ;; If we went to a place in the middle of the buffer,
396 ;; adjust it to the beginning of a line.
397 (if arg (forward-line 1)
398 ;; If the end of the buffer is not already on the screen,
399 ;; then scroll specially to put it near, but not at, the bottom.
400 (if (let ((old-point (point)))
402 (goto-char (window-start))
403 (vertical-motion (window-height))
404 (< (point) old-point)))
406 (overlay-recenter (point))
411 ;;;;;; backwards and mark
414 (defun backward-char-mark (&optional arg)
415 "Ensure mark is active; move point left ARG characters (right if ARG negative).
416 On attempt to pass beginning or end of buffer, stop and signal error."
421 (defun backward-word-mark (&optional arg)
422 "Ensure mark is active; move backward until encountering the end of a word.
423 With argument, do this that many times."
428 (defun backward-sexp-mark (&optional arg)
429 "Ensure mark is active; move backward across one balanced expression (sexp).
430 With argument, do it that many times. Negative arg -N means
431 move forward across N balanced expressions."
436 (defun backward-paragraph-mark (&optional arg)
437 "Ensure mark is active; move backward to start of paragraph.
438 With arg N, do it N times; negative arg -N means move forward N paragraphs.
440 A paragraph start is the beginning of a line which is a
441 `first-line-of-paragraph' or which is ordinary text and follows a
442 paragraph-separating line; except: if the first real line of a
443 paragraph is preceded by a blank line, the paragraph starts at that
446 See `forward-paragraph' for more information."
449 (backward-paragraph arg))
451 (defun previous-line-mark (&optional arg)
452 "Ensure mark is active; move cursor vertically up ARG lines.
453 If there is no character in the target line exactly over the current column,
454 the cursor is positioned after the character in that line which spans this
455 column, or at the end of the line if it is not long enough.
457 The command \\[set-goal-column] can be used to create
458 a semipermanent goal column to which this command always moves.
459 Then it does not try to move vertically.
461 If you are thinking of using this in a Lisp program, consider using
462 `forward-line' with a negative argument instead. It is usually easier
463 to use and more reliable (no dependence on goal column, etc.)."
467 (setq this-command 'previous-line))
469 (defun beginning-of-line-mark (&optional arg)
470 "Ensure mark is active; move point to beginning of current line.
471 With argument ARG not nil or 1, move forward ARG - 1 lines first.
472 If scan reaches end of buffer, stop there without error."
475 (beginning-of-line arg))
478 (defun scroll-up-mark (&optional arg)
479 "Ensure mark is active; scroll upward ARG lines; or near full screen if no ARG.
480 A near full screen is `next-screen-context-lines' less than a full screen.
481 Negative ARG means scroll downward.
482 When calling from a program, supply a number as argument or nil."
485 (cond (pc-select-override-scroll-error
486 (condition-case nil (scroll-up arg)
487 (end-of-buffer (goto-char (point-max)))))
488 (t (scroll-up arg))))
490 (defun beginning-of-buffer-mark (&optional arg)
491 "Ensure mark is active; move point to the beginning of the buffer.
492 With arg N, put point N/10 of the way from the beginning.
494 If the buffer is narrowed, this command uses the beginning and size
495 of the accessible part of the buffer.
497 Don't use this command in Lisp programs!
498 \(goto-char (p\oint-min)) is faster and avoids clobbering the mark."
501 (let ((size (- (point-max) (point-min))))
505 ;; Avoid overflow for large buffer sizes!
506 (* (prefix-numeric-value arg)
508 (/ (+ 10 (* size (prefix-numeric-value arg))) 10)))
510 (if arg (forward-line 1)))
516 (defun backward-char-nomark (&optional arg)
517 "Deactivate mark; move point left ARG characters (right if ARG negative).
518 On attempt to pass beginning or end of buffer, stop and signal error."
520 (setq mark-active nil)
523 (defun backward-word-nomark (&optional arg)
524 "Deactivate mark; move backward until encountering the end of a word.
525 With argument, do this that many times."
527 (setq mark-active nil)
530 (defun backward-sexp-nomark (&optional arg)
531 "Deactivate mark; move backward across one balanced expression (sexp).
532 With argument, do it that many times. Negative arg -N means
533 move forward across N balanced expressions."
535 (setq mark-active nil)
538 (defun backward-paragraph-nomark (&optional arg)
539 "Deactivate mark; move backward to start of paragraph.
540 With arg N, do it N times; negative arg -N means move forward N paragraphs.
542 A paragraph start is the beginning of a line which is a
543 `first-line-of-paragraph' or which is ordinary text and follows a
544 paragraph-separating line; except: if the first real line of a
545 paragraph is preceded by a blank line, the paragraph starts at that
548 See `forward-paragraph' for more information."
550 (setq mark-active nil)
551 (backward-paragraph arg))
553 (defun previous-line-nomark (&optional arg)
554 "Deactivate mark; move cursor vertically up ARG lines.
555 If there is no character in the target line exactly over the current column,
556 the cursor is positioned after the character in that line which spans this
557 column, or at the end of the line if it is not long enough.
559 The command \\[set-goal-column] can be used to create
560 a semipermanent goal column to which this command always moves.
561 Then it does not try to move vertically."
563 (setq mark-active nil)
565 (setq this-command 'previous-line))
567 (defun beginning-of-line-nomark (&optional arg)
568 "Deactivate mark; move point to beginning of current line.
569 With argument ARG not nil or 1, move forward ARG - 1 lines first.
570 If scan reaches end of buffer, stop there without error."
572 (setq mark-active nil)
573 (beginning-of-line arg))
575 (defun scroll-up-nomark (&optional arg)
576 "Deactivate mark; scroll upward ARG lines; or near full screen if no ARG.
577 A near full screen is `next-screen-context-lines' less than a full screen.
578 Negative ARG means scroll downward.
579 When calling from a program, supply a number as argument or nil."
581 (setq mark-active nil)
582 (cond (pc-select-override-scroll-error
583 (condition-case nil (scroll-up arg)
584 (end-of-buffer (goto-char (point-max)))))
585 (t (scroll-up arg))))
587 (defun beginning-of-buffer-nomark (&optional arg)
588 "Deactivate mark; move point to the beginning of the buffer.
589 With arg N, put point N/10 of the way from the beginning.
591 If the buffer is narrowed, this command uses the beginning and size
592 of the accessible part of the buffer.
594 Don't use this command in Lisp programs!
595 \(goto-char (point-min)) is faster and avoids clobbering the mark."
597 (setq mark-active nil)
598 (let ((size (- (point-max) (point-min))))
602 ;; Avoid overflow for large buffer sizes!
603 (* (prefix-numeric-value arg)
605 (/ (+ 10 (* size (prefix-numeric-value arg))) 10)))
607 (if arg (forward-line 1)))
610 (defun pc-selection-mode ()
611 "Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style.
613 This mode enables Delete Selection mode and Transient Mark mode.
615 The arrow keys (and others) are bound to new functions
616 which modify the status of the mark.
618 The ordinary arrow keys disable the mark.
619 The shift-arrow keys move, leaving the mark behind.
621 C-LEFT and C-RIGHT move back or forward one word, disabling the mark.
622 S-C-LEFT and S-C-RIGHT move back or forward one word, leaving the mark behind.
624 M-LEFT and M-RIGHT move back or forward one word or sexp, disabling the mark.
625 S-M-LEFT and S-M-RIGHT move back or forward one word or sexp, leaving the mark
626 behind. To control whether these keys move word-wise or sexp-wise set the
627 variable `pc-select-meta-moves-sexps' after loading pc-select.el but before
628 turning `pc-selection-mode' on.
630 C-DOWN and C-UP move back or forward a paragraph, disabling the mark.
631 S-C-DOWN and S-C-UP move back or forward a paragraph, leaving the mark behind.
633 HOME moves to beginning of line, disabling the mark.
634 S-HOME moves to beginning of line, leaving the mark behind.
635 With Ctrl or Meta, these keys move to beginning of buffer instead.
637 END moves to end of line, disabling the mark.
638 S-END moves to end of line, leaving the mark behind.
639 With Ctrl or Meta, these keys move to end of buffer instead.
641 PRIOR or PAGE-UP scrolls and disables the mark.
642 S-PRIOR or S-PAGE-UP scrolls and leaves the mark behind.
644 S-DELETE kills the region (`kill-region').
645 S-INSERT yanks text from the kill ring (`yank').
646 C-INSERT copies the region into the kill ring (`copy-region-as-kill').
648 In addition, certain other PC bindings are imitated (to avoid this, set
649 the variable `pc-select-selection-keys-only' to t after loading pc-select.el
650 but before calling `pc-selection-mode'):
656 C-M-DELETE `kill-sexp'
657 C-BACKSPACE `backward-kill-word'
659 ;; FIXME: make into a proper minor mode (i.e. undoable).
660 ;; FIXME: bring pc-bindings-mode here ?
666 ;; This is to avoid confusion with the delete-selection-mode
667 ;; On simple displays you can't see that a region is active and
668 ;; will be deleted on the next keypress. IMHO especially for
669 ;; copy-region-as-kill this is confusing.
670 ;; The same goes for exchange-point-and-mark
671 (define-key global-map "\M-w" 'copy-region-as-kill-nomark)
672 (define-key global-map "\C-x\C-x" 'exchange-point-and-mark-nomark)
673 ;; The following keybindings are for standard ISO keyboards
674 ;; as they are used with IBM compatible PCs, IBM RS/6000,
675 ;; MACs, many X-Stations and probably more
676 (define-key global-map [S-right] 'forward-char-mark)
677 (define-key global-map [right] 'forward-char-nomark)
678 (define-key global-map [C-S-right] 'forward-word-mark)
679 (define-key global-map [C-right] 'forward-word-nomark)
680 (define-key global-map [S-left] 'backward-char-mark)
681 (define-key global-map [left] 'backward-char-nomark)
682 (define-key global-map [C-S-left] 'backward-word-mark)
683 (define-key global-map [C-left] 'backward-word-nomark)
684 (cond (pc-select-meta-moves-sexps
685 (define-key global-map [M-S-right] 'forward-sexp-mark)
686 (define-key global-map [M-right] 'forward-sexp-nomark)
687 (define-key global-map [M-S-left] 'backward-sexp-mark)
688 (define-key global-map [M-left] 'backward-sexp-nomark))
690 (define-key global-map [M-S-right] 'forward-word-mark)
691 (define-key global-map [M-right] 'forward-word-nomark)
692 (define-key global-map [M-S-left] 'backward-word-mark)
693 (define-key global-map [M-left] 'backward-word-nomark)))
695 (define-key global-map [S-down] 'next-line-mark)
696 (define-key global-map [down] 'next-line-nomark)
698 (define-key global-map [S-end] 'end-of-line-mark)
699 (define-key global-map [end] 'end-of-line-nomark)
700 (global-set-key [S-C-end] 'end-of-buffer-mark)
701 (global-set-key [C-end] 'end-of-buffer-nomark)
702 (global-set-key [S-M-end] 'end-of-buffer-mark)
703 (global-set-key [M-end] 'end-of-buffer-nomark)
705 (define-key global-map [S-next] 'scroll-up-mark)
706 (define-key global-map [next] 'scroll-up-nomark)
708 (define-key global-map [S-up] 'previous-line-mark)
709 (define-key global-map [up] 'previous-line-nomark)
711 (define-key global-map [S-home] 'beginning-of-line-mark)
712 (define-key global-map [home] 'beginning-of-line-nomark)
713 (global-set-key [S-C-home] 'beginning-of-buffer-mark)
714 (global-set-key [C-home] 'beginning-of-buffer-nomark)
715 (global-set-key [S-M-home] 'beginning-of-buffer-mark)
716 (global-set-key [M-home] 'beginning-of-buffer-nomark)
718 (define-key global-map [M-S-down] 'forward-line-mark)
719 (define-key global-map [M-down] 'forward-line-nomark)
720 (define-key global-map [M-S-up] 'backward-line-mark)
721 (define-key global-map [M-up] 'backward-line-nomark)
723 (define-key global-map [S-prior] 'scroll-down-mark)
724 (define-key global-map [prior] 'scroll-down-nomark)
726 ;; Next four lines are from Pete Forman.
727 (global-set-key [C-down] 'forward-paragraph-nomark) ; KNextPara cDn
728 (global-set-key [C-up] 'backward-paragraph-nomark) ; KPrevPara cUp
729 (global-set-key [S-C-down] 'forward-paragraph-mark)
730 (global-set-key [S-C-up] 'backward-paragraph-mark)
732 (unless pc-select-selection-keys-only
733 ;; We are behaving like normal-erase-is-backspace-mode, so
734 ;; say so explicitly. But don't do that on a Unix tty, since
735 ;; some of them have keyboards that by default already behave
736 ;; as if normal-erase-is-backspace mode is on, and turning it
737 ;; a second time screws them up.
738 (if (or (eq window-system 'x)
739 (memq system-name '(ms-dos windows-nt macos)))
741 (setq-default normal-erase-is-backspace t)
742 (normal-erase-is-backspace-mode 1))
743 ;; This is for tty. We don't turn on normal-erase-is-backspace,
744 ;; but bind keys as pc-selection-mode did before
745 ;; normal-erase-is-backspace was invented, to keep us back
747 (global-set-key [delete] 'delete-char) ; KDelete Del
748 (define-key function-key-map [M-delete] [?\M-d])
749 (global-set-key [C-backspace] 'backward-kill-word))
750 (define-key global-map [S-insert] 'yank)
751 (define-key global-map [C-insert] 'copy-region-as-kill)
752 (define-key global-map [S-delete] 'kill-region)
754 ;; The following bindings are useful on Sun Type 3 keyboards
755 ;; They implement the Get-Delete-Put (copy-cut-paste)
756 ;; functions from sunview on the L6, L8 and L10 keys
757 ;; Sam Steingold <sds@gnu.org> says that f16 is copy and f18 is paste.
758 (define-key global-map [f16] 'copy-region-as-kill)
759 (define-key global-map [f18] 'yank)
760 (define-key global-map [f20] 'kill-region)
762 ;; The following bindings are from Pete Forman.
763 (global-set-key [f6] 'other-window) ; KNextPane F6
764 (global-set-key [C-delete] 'kill-line) ; KEraseEndLine cDel
765 (global-set-key "\M-\d" 'undo) ; KUndo aBS
767 ;; The following binding is taken from pc-mode.el
768 ;; as suggested by RMS.
769 ;; I only used the one that is not covered above.
770 (global-set-key [C-M-delete] 'kill-sexp)
771 ;; Next line proposed by Eli Barzilay
772 (global-set-key [C-escape] 'electric-buffer-list))
776 ;; Next line proposed by Eli Barzilay
777 (setq highlight-nonselected-windows nil)
778 (transient-mark-mode 1)
779 (setq mark-even-if-inactive t)
780 (delete-selection-mode 1))
783 (defcustom pc-selection-mode nil
784 "Toggle PC Selection mode.
785 Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style,
786 and cursor movement commands.
787 This mode enables Delete Selection mode and Transient Mark mode.
788 You must modify via \\[customize] for this variable to have an effect."
789 :set (lambda (symbol value)
790 (if value (pc-selection-mode)))
795 ;;; pc-select.el ends here