;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:34 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emulation/pc-select.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pc-select.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'pc-select nil "Emulate pc bindings." :prefix "pc-select" :group 'editing-basics :group 'convenience) #@352 *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. (custom-declare-variable 'pc-select-override-scroll-error 't '(#$ . -755) :type 'boolean :group 'pc-select) #@197 *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. (custom-declare-variable 'pc-select-selection-keys-only 'nil '(#$ . -1221) :type 'boolean :group 'pc-select) #@72 *Non-nil means move sexp-wise with Meta key, otherwise move word-wise. (custom-declare-variable 'pc-select-meta-moves-sexps 'nil '(#$ . -1532) :type 'boolean :group 'pc-select) (provide 'pc-select) #@257 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. (defalias 'copy-region-as-kill-nomark #[(beg end) "\303 \"\210\304\305\306!\207" [beg end mark-active copy-region-as-kill nil message "Region saved"] 3 (#$ . 1737) "r"]) (defalias 'exchange-point-and-mark-nomark #[nil "\301 \210\302\211\207" [mark-active exchange-point-and-mark nil] 2 nil nil]) (defalias 'ensure-mark #[nil "\206\301\302!\207" [mark-active set-mark-command nil] 2]) #@130 Ensure mark is active; move point right ARG characters (left if ARG negative). On reaching end of buffer, stop and signal error. (defalias 'forward-char-mark #[(&optional arg) "\301 \210u\207" [arg ensure-mark] 1 (#$ . 2390) "p"]) #@180 Ensure mark is active; move point right ARG words (backward if ARG is negative). Normally returns t. If an edge of the buffer is reached, point is left there and nil is returned. (defalias 'forward-word-mark #[(&optional arg) "\301 \210v\207" [arg ensure-mark] 1 (#$ . 2629) "p"]) #@63 Ensure mark is active; move cursor vertically down ARG lines. (defalias 'forward-line-mark #[(&optional arg) "\302 \210y\210\303\211\207" [arg this-command ensure-mark forward-line] 2 (#$ . 2917) "p"]) #@182 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. (defalias 'forward-sexp-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark forward-sexp] 2 (#$ . 3128) "p"]) #@433 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. 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 to which the end of the previous line belongs, or the end of the buffer. (defalias 'forward-paragraph-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark forward-paragraph] 2 (#$ . 3436) "p"]) #@826 Ensure mark is active; move cursor vertically down ARG lines. If there is no character in the target line exactly under 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. If there is no line in the buffer after this one, behavior depends on the 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. (defalias 'next-line-mark #[(&optional arg) "\302 \210\303!\210\303\211\207" [arg this-command ensure-mark next-line] 2 (#$ . 4005) "p"]) #@182 Ensure mark is active; move point to end of current line. With argument ARG not nil or 1, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'end-of-line-mark #[(&optional arg) "\302 \210\210\303\211\207" [arg this-command ensure-mark end-of-line] 2 (#$ . 4977) "p"]) #@61 Ensure mark is active; move cursor vertically up ARG lines. (defalias 'backward-line-mark #[(&optional arg) "\302 \210\204 \303[y\210\304\211\207" [arg this-command ensure-mark 1 forward-line] 2 (#$ . 5304) "p"]) #@252 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. (defalias 'scroll-down-mark #[(&optional arg) "\302 \210\203\f\303\304\305\217\207\306 !\207" [pc-select-override-scroll-error arg ensure-mark nil (scroll-down arg) ((beginning-of-buffer (byte-code "eb\207" [] 1))) scroll-down] 3 (#$ . 5529) "P"]) #@328 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. If the buffer is narrowed, this command uses the beginning and size 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. (defalias 'end-of-buffer-mark #[(&optional arg) "\303 \210deZ \203'd\304V\203\305 !\306\245_\202#\305 !_\306\245Z\202(db\210) \2032\307y\207`\212\310 b\210\311\312 !\210`\nW*\205L\313`!\210\314\315!\207" [size arg old-point ensure-mark 10000 prefix-numeric-value 10 1 window-start vertical-motion window-height overlay-recenter recenter -3] 4 (#$ . 6037) "P"]) #@124 Deactivate mark; move point right ARG characters (left if ARG negative). On reaching end of buffer, stop and signal error. (defalias 'forward-char-nomark #[(&optional arg) "\302 u\207" [mark-active arg nil] 1 (#$ . 6744) "p"]) #@174 Deactivate mark; move point right ARG words (backward if ARG is negative). Normally returns t. If an edge of the buffer is reached, point is left there and nil is returned. (defalias 'forward-word-nomark #[(&optional arg) "\302 v\207" [mark-active arg nil] 1 (#$ . 6979) "p"]) #@57 Deactivate mark; move cursor vertically down ARG lines. (defalias 'forward-line-nomark #[(&optional arg) "\303 y\210\304\211\207" [mark-active arg this-command nil forward-line] 2 (#$ . 7263) "p"]) #@176 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. (defalias 'forward-sexp-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil forward-sexp] 2 (#$ . 7470) "p"]) #@427 Deactivate mark; move forward to end of paragraph. 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 to which the end of the previous line belongs, or the end of the buffer. (defalias 'forward-paragraph-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil forward-paragraph] 2 (#$ . 7774) "p"]) #@820 Deactivate mark; move cursor vertically down ARG lines. If there is no character in the target line exactly under 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. If there is no line in the buffer after this one, behavior depends on the 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. (defalias 'next-line-nomark #[(&optional arg) "\303\304 !\210\304\211\207" [mark-active arg this-command nil next-line] 2 (#$ . 8339) "p"]) #@176 Deactivate mark; move point to end of current line. With argument ARG not nil or 1, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'end-of-line-nomark #[(&optional arg) "\303 \210\304\211\207" [mark-active arg this-command nil end-of-line] 2 (#$ . 9307) "p"]) #@55 Deactivate mark; move cursor vertically up ARG lines. (defalias 'backward-line-nomark #[(&optional arg) "\303 \204\304 [y\210\305\211\207" [mark-active arg this-command nil 1 forward-line] 2 (#$ . 9630) "p"]) #@246 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. Negative ARG means scroll upward. When calling from a program, supply a number as argument or nil. (defalias 'scroll-down-nomark #[(&optional arg) "\303 \203 \303\304\305\217\207\306\n!\207" [mark-active pc-select-override-scroll-error arg nil (scroll-down arg) ((beginning-of-buffer (byte-code "eb\207" [] 1))) scroll-down] 3 (#$ . 9851) "P"]) #@322 Deactivate mark; move point to the end of the buffer. 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. Don't use this command in Lisp programs! (goto-char (point-max)) is faster and avoids clobbering the mark. (defalias 'end-of-buffer-nomark #[(&optional arg) "\304deZ\n\203&d \305V\203\306\n! \307\245_\202\" \306\n!_\307\245Z\202'db\210)\n\2031\310y\207`\212\311 b\210\312\313 !\210` W*\205K\314`!\210\315\316!\207" [mark-active size arg old-point nil 10000 prefix-numeric-value 10 1 window-start vertical-motion window-height overlay-recenter recenter -3] 4 (#$ . 10351) "P"]) #@150 Ensure mark is active; move point left ARG characters (right if ARG negative). On attempt to pass beginning or end of buffer, stop and signal error. (defalias 'backward-char-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark backward-char] 2 (#$ . 11059) "p"]) #@116 Ensure mark is active; move backward until encountering the end of a word. With argument, do this that many times. (defalias 'backward-word-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark backward-word] 2 (#$ . 11338) "p"]) #@182 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. (defalias 'backward-sexp-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark backward-sexp] 2 (#$ . 11583) "p"]) #@450 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. 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. See `forward-paragraph' for more information. (defalias 'backward-paragraph-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark backward-paragraph] 2 (#$ . 11894) "p"]) #@624 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 to use and more reliable (no dependence on goal column, etc.). (defalias 'previous-line-mark #[(&optional arg) "\302 \210\303!\210\303\211\207" [arg this-command ensure-mark previous-line] 2 (#$ . 12483) "p"]) #@188 Ensure mark is active; move point to beginning of current line. With argument ARG not nil or 1, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'beginning-of-line-mark #[(&optional arg) "\301 \210\302!\207" [arg ensure-mark beginning-of-line] 2 (#$ . 13262) "p"]) #@256 Ensure mark is active; scroll upward 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 downward. When calling from a program, supply a number as argument or nil. (defalias 'scroll-up-mark #[(&optional arg) "\302 \210\203\f\303\304\305\217\207\306 !\207" [pc-select-override-scroll-error arg ensure-mark nil (scroll-up arg) ((end-of-buffer (byte-code "db\207" [] 1))) scroll-up] 3 (#$ . 13587) "P"]) #@340 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. If the buffer is narrowed, this command uses the beginning and size 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. (defalias 'beginning-of-buffer-mark #[(&optional arg) "\302 \210deZ \203)e\303V\203\304 !\305\245_\202%\304 !_\305\\\305\245\\\202*eb\210) \2053\306y\207" [size arg ensure-mark 10000 prefix-numeric-value 10 1] 4 (#$ . 14088) "P"]) #@144 Deactivate mark; move point left ARG characters (right if ARG negative). On attempt to pass beginning or end of buffer, stop and signal error. (defalias 'backward-char-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil backward-char] 2 (#$ . 14675) "p"]) #@110 Deactivate mark; move backward until encountering the end of a word. With argument, do this that many times. (defalias 'backward-word-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil backward-word] 2 (#$ . 14950) "p"]) #@176 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. (defalias 'backward-sexp-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil backward-sexp] 2 (#$ . 15191) "p"]) #@444 Deactivate mark; move backward to start of paragraph. 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. See `forward-paragraph' for more information. (defalias 'backward-paragraph-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil backward-paragraph] 2 (#$ . 15498) "p"]) #@415 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. (defalias 'previous-line-nomark #[(&optional arg) "\303\304 !\210\304\211\207" [mark-active arg this-command nil previous-line] 2 (#$ . 16083) "p"]) #@182 Deactivate mark; move point to beginning of current line. With argument ARG not nil or 1, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'beginning-of-line-nomark #[(&optional arg) "\302\303 !\207" [mark-active arg nil beginning-of-line] 2 (#$ . 16655) "p"]) #@250 Deactivate mark; scroll upward 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 downward. When calling from a program, supply a number as argument or nil. (defalias 'scroll-up-nomark #[(&optional arg) "\303 \203 \303\304\305\217\207\306\n!\207" [mark-active pc-select-override-scroll-error arg nil (scroll-up arg) ((end-of-buffer (byte-code "db\207" [] 1))) scroll-up] 3 (#$ . 16976) "P"]) #@334 Deactivate mark; move point to the beginning of the buffer. 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. Don't use this command in Lisp programs! (goto-char (point-min)) is faster and avoids clobbering the mark. (defalias 'beginning-of-buffer-nomark #[(&optional arg) "\303deZ\n\203(e \304V\203\305\n! \306\245_\202$ \305\n!_\306\\\306\245\\\202)eb\210)\n\2052\307y\207" [mark-active size arg nil 10000 prefix-numeric-value 10 1] 4 (#$ . 17469) "P"]) #@1953 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 (defalias 'pc-selection-mode #[nil "\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\322#\210\306\323\324#\210\306\325\326#\210\306\327\330#\210\306\331\332#\210 \203[\306\333\334#\210\306\335\336#\210\306\337\340#\210\306\341\342#\210\202s\306\343\320#\210\306\344\322#\210\306\345\330#\210\306\346\332#\210\306\347\350#\210\306\351\352#\210\306\353\354#\210\306\355\356#\210\357\360\361\"\210\357\362\363\"\210\357\364\361\"\210\357\365\363\"\210\306\366\367#\210\306\370\371#\210\306\372\373#\210\306\374\375#\210\306\376\377#\210\306\201C\201D#\210\357\201E\201F\"\210\357\201G\201H\"\210\357\201I\201F\"\210\357\201J\201H\"\210\306\201K\201L#\210\306\201M\201N#\210\306\201O\201P#\210\306\201Q\201R#\210\306\201S\201T#\210\306\201U\201V#\210\357\201W\201X\"\210\357\201Y\201Z\"\210\357\201[\201\\\"\210\357\201]\201^\"\210\n\204\372 \201_=\204_\f\201`>\203u\201a\201b\201c\"\210\201d\201e!\210\202\221\357\201f\201g\"\210\306 \201h\201i#\210\357\201j\201k\"\210\306\201l\201m#\210\306\201n\201o#\210\306\201p\201q#\210\306\201r\201o#\210\306\201s\201m#\210\306\201t\201q#\210\357\201u\201v\"\210\357\201w\201x\"\210\357\201y\201z\"\210\357\201{\201|\"\210\357\201}\201~\"\210\201@\201cA\201cB\201\200\201e!\207" [global-map pc-select-meta-moves-sexps pc-select-selection-keys-only window-system system-name function-key-map define-key "\367" copy-region-as-kill-nomark "" exchange-point-and-mark-nomark [S-right] forward-char-mark [right] forward-char-nomark [C-S-right] forward-word-mark [C-right] forward-word-nomark [S-left] backward-char-mark [left] backward-char-nomark [C-S-left] backward-word-mark [C-left] backward-word-nomark [M-S-right] forward-sexp-mark [M-right] forward-sexp-nomark [M-S-left] backward-sexp-mark [M-left] backward-sexp-nomark [M-S-right] [M-right] [M-S-left] [M-left] [S-down] next-line-mark [down] next-line-nomark [S-end] end-of-line-mark [end] end-of-line-nomark global-set-key [S-C-end] end-of-buffer-mark [C-end] end-of-buffer-nomark [S-M-end] [M-end] [S-next] scroll-up-mark [next] scroll-up-nomark [S-up] previous-line-mark [up] previous-line-nomark [S-home] beginning-of-line-mark highlight-nonselected-windows transient-mark-mode mark-even-if-inactive [home] beginning-of-line-nomark [S-C-home] beginning-of-buffer-mark [C-home] beginning-of-buffer-nomark [S-M-home] [M-home] [M-S-down] forward-line-mark [M-down] forward-line-nomark [M-S-up] backward-line-mark [M-up] backward-line-nomark [S-prior] scroll-down-mark [prior] scroll-down-nomark [C-down] forward-paragraph-nomark [C-up] backward-paragraph-nomark [S-C-down] forward-paragraph-mark [S-C-up] backward-paragraph-mark x (ms-dos windows-nt) set-default normal-erase-is-backspace t normal-erase-is-backspace-mode 1 [delete] delete-char [M-delete] [-134217628] [C-backspace] backward-kill-word [S-insert] yank [C-insert] copy-region-as-kill [S-delete] kill-region [f16] [f18] [f20] [f6] other-window [C-delete] kill-line "\377" undo [C-M-delete] kill-sexp [C-escape] electric-buffer-list nil delete-selection-mode] 4 (#$ . 18057) nil]) #@271 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. (custom-declare-variable 'pc-selection-mode 'nil '(#$ . 23219) :set (lambda (symbol value) (if value (pc-selection-mode))) :type 'boolean :group 'pc-select :require 'pc-select)