Gecko [ 122.154.134.11 ]

Name	Size	Permission
crisp.elc	10.33 KB	-rw-r--r--
cua-base.elc	38.36 KB	-rw-r--r--
cua-gmrk.elc	10.5 KB	-rw-r--r--
cua-rect.elc	38.43 KB	-rw-r--r--
edt-lk201.elc	1.54 KB	-rw-r--r--
edt-mapper.elc	11.76 KB	-rw-r--r--
edt-pc.elc	1.51 KB	-rw-r--r--
edt-vt100.elc	902 B	-rw-r--r--
edt.elc	63.21 KB	-rw-r--r--
keypad.elc	6.52 KB	-rw-r--r--
pc-mode.elc	1.5 KB	-rw-r--r--
pc-select.elc	30.71 KB	-rw-r--r--
tpu-edt.elc	59.56 KB	-rw-r--r--
tpu-extras.elc	10.79 KB	-rw-r--r--
tpu-mapper.elc	10.83 KB	-rw-r--r--
vi.elc	47.55 KB	-rw-r--r--
vip.elc	77.32 KB	-rw-r--r--
viper-cmd.elc	126.33 KB	-rw-r--r--
viper-ex.elc	47.32 KB	-rw-r--r--
viper-init.elc	33.31 KB	-rw-r--r--
viper-keym.elc	22.3 KB	-rw-r--r--
viper-macs.elc	18.69 KB	-rw-r--r--
viper-mous.elc	15.95 KB	-rw-r--r--
viper-util.elc	33.08 KB	-rw-r--r--
viper.elc	26.61 KB	-rw-r--r--
ws-mode.elc	20.31 KB	-rw-r--r--

Code Editor : pc-select.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:58 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emulation/pc-select.el
;;; in Emacs version 23.1.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 '(#$ . -744) :type 'boolean :group 'pc-select)
#@196 *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 behavior with only the selection keys enabled.
(custom-declare-variable 'pc-select-selection-keys-only 'nil '(#$ . -1210) :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 '(#$ . -1520) :type 'boolean :group 'pc-select)
#@52 The hook to run when pc-selection-mode is toggled.
(custom-declare-variable 'pc-selection-mode-hook 'nil '(#$ . 1703) :type 'hook :group 'pc-select)
#@346 The values of the variables before PC Selection mode was toggled on.
When PC Selection mode is toggled on, it sets quite a few variables
for its own purposes.  This alist holds the original values of the
variables PC Selection mode had set, so that these variables can be
restored to their original values when PC Selection mode is toggled off.
(defvar pc-select-saved-settings-alist nil (#$ . 1859))
#@65 The keymap used as the global map when PC Selection mode is on.
(defvar pc-select-map nil (#$ . 2266))
#@74 The global map that was in effect when PC Selection mode was toggled on.
(defvar pc-select-saved-global-map nil (#$ . 2375))
#@63 This alist holds all the key bindings PC Selection mode sets.
(defvar pc-select-key-bindings-alist nil (#$ . 2506))
#@57 These key bindings always get set by PC Selection mode.
(defvar pc-select-default-key-bindings nil (#$ . 2628))
(byte-code "\204	�\302\211)\303\207" [pc-select-default-key-bindings lst (("\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) ([S-down] . next-line-mark) ([down] . next-line-nomark) ([S-end] . end-of-line-mark) ([end] . end-of-line-nomark) ([S-C-end] . end-of-buffer-mark) ([C-end] . end-of-buffer-nomark) ([S-M-end] . end-of-buffer-mark) ([M-end] . end-of-buffer-nomark) ([S-next] . scroll-up-mark) ([next] . scroll-up-nomark) ([S-up] . previous-line-mark) ([up] . previous-line-nomark) ([S-home] . beginning-of-line-mark) ([home] . beginning-of-line-nomark) ([S-C-home] . beginning-of-buffer-mark) ([C-home] . beginning-of-buffer-nomark) ([S-M-home] . beginning-of-buffer-mark) ([M-home] . beginning-of-buffer-nomark) ([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)) nil] 2)
#@69 Key bindings to set only if `pc-select-selection-keys-only' is nil.
(defvar pc-select-extra-key-bindings nil (#$ . 4110))
(byte-code "\204	�\302\211)\303\207" [pc-select-extra-key-bindings lst (([S-insert] . yank) ([C-insert] . copy-region-as-kill) ([S-delete] . kill-region) ([f16] . copy-region-as-kill) ([f18] . yank) ([f20] . kill-region) ([f6] . other-window) ([C-delete] . kill-line) ("\377" . undo) ([C-M-delete] . kill-sexp) ([C-escape] . electric-buffer-list)) nil] 2)
#@220 The list of key bindings controlled by `pc-select-meta-moves-sexp'.
The bindings in the car of this list get installed if
`pc-select-meta-moves-sexp' is t, the bindings in the cadr of this
list get installed otherwise.
(defvar pc-select-meta-moves-sexps-key-bindings '((([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] . forward-word-mark) ([M-right] . forward-word-nomark) ([M-S-left] . backward-word-mark) ([M-left] . backward-word-nomark))) (#$ . 4598))
#@181 The list of key bindings controlled by `pc-select-selection-keys-only'.
These key bindings get installed when running in a tty, but only if
`pc-select-selection-keys-only' is nil.
(defvar pc-select-tty-key-bindings '(([delete] . delete-char) ([C-backspace] . backward-kill-word)) (#$ . 5164))
#@202 Holds the old mapping of [M-delete] in the `function-key-map'.
This variable holds the value associated with [M-delete] in the
`function-key-map' before PC Selection mode had changed that
association.
(defvar pc-select-old-M-delete-binding nil (#$ . 5464))
(provide 'pc-select)
#@261 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 (#$ . 5749) "r"])
#@65 Like `exchange-point-and-mark' but without activating the mark.
(defalias 'exchange-point-and-mark-nomark #[nil "\301 \210\302\211\207" [mark-active exchange-point-and-mark nil] 2 (#$ . 6187) nil])
(defalias 'pc-select-ensure-mark #[nil "\204�\301\302!\210\303\211\207" [mark-active set-mark-command nil pc-select] 2])
(defalias 'pc-select-maybe-deactivate-mark #[nil "\302=\205/�	\205/�	\303=\204�	\242\304=\203 �	A\204 �\305\211\207	\242\304=\203*�	A\305\306\307!\207" [mark-active transient-mark-mode pc-select lambda only nil run-hooks deactivate-mark-hook] 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 pc-select-ensure-mark] 1 (#$ . 6769) "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 pc-select-ensure-mark] 1 (#$ . 7018) "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 pc-select-ensure-mark forward-line] 2 (#$ . 7316) "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 pc-select-ensure-mark forward-sexp] 2 (#$ . 7537) "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 pc-select-ensure-mark forward-paragraph] 2 (#$ . 7855) "p"])
#@837 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 \[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.
(defalias 'next-line-mark #[(&optional arg) "\302 \210\303!\210\303\211\207" [arg this-command pc-select-ensure-mark next-line] 2 (#$ . 8434) "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 pc-select-ensure-mark end-of-line] 2 (#$ . 9427) "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 pc-select-ensure-mark 1 forward-line] 2 (#$ . 9764) "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 pc-select-ensure-mark nil (scroll-down arg) ((beginning-of-buffer (byte-code "eb\207" [] 1))) scroll-down] 3 (#$ . 9999) "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 pc-select-ensure-mark 10000 prefix-numeric-value 10 1 window-start vertical-motion window-height overlay-recenter recenter -3] 4 (#$ . 10517) "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) "\301 \210u\207" [arg pc-select-maybe-deactivate-mark] 1 (#$ . 11235) "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) "\301 \210v\207" [arg pc-select-maybe-deactivate-mark] 1 (#$ . 11491) "p"])
#@57 Deactivate mark; move cursor vertically down ARG lines.
(defalias 'forward-line-nomark #[(&optional arg) "\302 \210y\210\303\211\207" [arg this-command pc-select-maybe-deactivate-mark forward-line] 2 (#$ . 11796) "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) "\301 \210\302!\207" [arg pc-select-maybe-deactivate-mark forward-sexp] 2 (#$ . 12024) "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) "\301 \210\302!\207" [arg pc-select-maybe-deactivate-mark forward-paragraph] 2 (#$ . 12349) "p"])
#@831 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 \[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.
(defalias 'next-line-nomark #[(&optional arg) "\302 \210\303!\210\303\211\207" [arg this-command pc-select-maybe-deactivate-mark next-line] 2 (#$ . 12935) "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) "\302 \210\210\303\211\207" [arg this-command pc-select-maybe-deactivate-mark end-of-line] 2 (#$ . 13935) "p"])
#@55 Deactivate mark; move cursor vertically up ARG lines.
(defalias 'backward-line-nomark #[(&optional arg) "\302 \210\204	�\303[y\210\304\211\207" [arg this-command pc-select-maybe-deactivate-mark 1 forward-line] 2 (#$ . 14279) "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) "\302 \210\203\f�\303\304\305\217\207\306	!\207" [pc-select-override-scroll-error arg pc-select-maybe-deactivate-mark nil (scroll-down arg) ((beginning-of-buffer (byte-code "eb\207" [] 1))) scroll-down] 3 (#$ . 14521) "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) "\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 pc-select-maybe-deactivate-mark 10000 prefix-numeric-value 10 1 window-start vertical-motion window-height overlay-recenter recenter -3] 4 (#$ . 15046) "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[u\207" [arg pc-select-ensure-mark] 1 (#$ . 15770) "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[v\207" [arg pc-select-ensure-mark] 1 (#$ . 16042) "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 pc-select-ensure-mark backward-sexp] 2 (#$ . 16280) "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 pc-select-ensure-mark backward-paragraph] 2 (#$ . 16601) "p"])
#@635 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
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 pc-select-ensure-mark previous-line] 2 (#$ . 17200) "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 pc-select-ensure-mark beginning-of-line] 2 (#$ . 18000) "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 pc-select-ensure-mark nil (scroll-up arg) ((end-of-buffer (byte-code "db\207" [] 1))) scroll-up] 3 (#$ . 18335) "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%�\305\304	!_\\\305\245\\\202*�eb\210)	\2053�\306y\207" [size arg pc-select-ensure-mark 10000 prefix-numeric-value 10 1] 5 (#$ . 18846) "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) "\301 \210[u\207" [arg pc-select-maybe-deactivate-mark] 1 (#$ . 19443) "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) "\301 \210[v\207" [arg pc-select-maybe-deactivate-mark] 1 (#$ . 19721) "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) "\301 \210\302!\207" [arg pc-select-maybe-deactivate-mark backward-sexp] 2 (#$ . 19965) "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.

See `forward-paragraph' for more information.
(defalias 'backward-paragraph-nomark #[(&optional arg) "\301 \210\302!\207" [arg pc-select-maybe-deactivate-mark backward-paragraph] 2 (#$ . 20292) "p"])
#@426 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.
(defalias 'previous-line-nomark #[(&optional arg) "\302 \210\303!\210\303\211\207" [arg this-command pc-select-maybe-deactivate-mark previous-line] 2 (#$ . 20897) "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) "\301 \210\302!\207" [arg pc-select-maybe-deactivate-mark beginning-of-line] 2 (#$ . 21500) "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) "\302 \210\203\f�\303\304\305\217\207\306	!\207" [pc-select-override-scroll-error arg pc-select-maybe-deactivate-mark nil (scroll-up arg) ((end-of-buffer (byte-code "db\207" [] 1))) scroll-up] 3 (#$ . 21841) "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) "\302 \210deZ	\203)�e\303V\203�\304	!\305\245_\202%�\305\304	!_\\\305\245\\\202*�eb\210)	\2053�\306y\207" [size arg pc-select-maybe-deactivate-mark 10000 prefix-numeric-value 10 1] 5 (#$ . 22358) "P"])
#@55 Make KEYMAP have the key bindings specified in ALIST.
(defalias 'pc-select-define-keys #[(alist keymap) "\211\205�\304\n	\211@@)	\211@A)#\210	A\211\204�\305)\207" [alist lst keymap x define-key nil] 5 (#$ . 22960)])
#@247 Use ALIST to restore key bindings from SAVED-MAP into KEYMAP.
Go through all the key bindings in ALIST, and, for each key
binding, if KEYMAP and ALIST still agree on the key binding,
restore the previous value of that key binding from SAVED-MAP.
(defalias 'pc-select-restore-keys #[(alist keymap saved-map) "\211\2054�\305\n	\211@@)\"	\211@A)\232\203,�\306\n	\211@@)\305\f	\211@@)\"#\210	A\211\204�\307)\207" [alist lst keymap x saved-map lookup-key define-key nil] 7 (#$ . 23190)])
#@223 Ensure that ALIST contains the cons cell (VAR . VAL).
If a cons cell whose car is VAR is already on the ALIST, update the
cdr of that cell with VAL.  Otherwise, make a new cons cell
(VAR . VAL), and prepend it onto ALIST.
(defalias 'pc-select-add-to-alist '(macro . #[(alist var val) "\304\305!\306\307\310	D\nEDC\311\312E\313\n\314\211\310	DE\nEEFE)\207" [elt var alist val make-symbol "elt" let assq quote if setcdr setq cons] 11 (#$ . 23688)]))
#@104 Set VAR to NEWVAL; save the old value.
The old value is saved on the `pc-select-saved-settings-alist'.
(defalias 'pc-select-save-and-set-var '(macro . #[(var newval) "\302\303\304DD\305\306\211F\307	EF\207" [var newval when boundp quote pc-select-add-to-alist pc-select-saved-settings-alist setq] 6 (#$ . 24149)]))
#@448 Call the function MODE; save the old value of the variable MODE.
MODE is presumed to be a function which turns on a minor mode.  First,
save the value of the variable MODE on `pc-select-saved-settings-alist'.
Then, if ARG is specified, call MODE with ARG, otherwise call it with
nil as an argument.  If MODE-VAR is specified, save the value of the
variable MODE-VAR (instead of the value of the variable MODE) on
`pc-select-saved-settings-alist'.
(defalias 'pc-select-save-and-set-mode '(macro . #[(mode &optional arg mode-var) "\204�	\303\304\305	DD\306\307\211F	\nDF\207" [mode-var mode arg when fboundp quote pc-select-add-to-alist pc-select-saved-settings-alist] 6 (#$ . 24474)]))
#@166 Restore the previous value of the variable VAR.
Look up VAR's previous value in `pc-select-saved-settings-alist', and,
if the value is found, set VAR to that value.
(defalias 'pc-select-restore-var '(macro . #[(var) "\302\303!\304\305\306	D\307BBDC\310\311D\312	\313DEEE)\207" [elt var make-symbol "elt" let assq quote (pc-select-saved-settings-alist) unless null setq cdr] 8 (#$ . 25170)]))
#@260 Restore the previous state (either on or off) of the minor mode MODE.
Look up the value of the variable MODE on `pc-select-saved-settings-alist'.
If the value is non-nil, call the function MODE with an argument of
1, otherwise call it with an argument of -1.
(defalias 'pc-select-restore-mode '(macro . #[(mode) "\302\303!\304\305\306	DD\307\310\306	D\311BBDC\312\313D	\314\315D\316BBDEEE)\207" [elt mode make-symbol "elt" when fboundp quote let assq (pc-select-saved-settings-alist) unless null if cdr (1 -1)] 10 (#$ . 25573)]))
#@272 Non-nil if Pc-Selection mode is enabled.
See the command `pc-selection-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `pc-selection-mode'.
(custom-declare-variable 'pc-selection-mode 'nil '(#$ . 26114) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'pc-select :type 'boolean)
#@1958 Change mark behavior 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 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-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 #[(&optional arg) "\306 	\307=\203�\n?\202(�	\203�\310	!\311V\202(�\n\204\"�\312\202(�\313\314\302\"\210\315\211\203\273\204n\316\317 !\320
6?\205@�78\203K�9@\202S�9\211A@)6\206c�:\321=\206c�;\322>?\205i�<$\323\317 \"\2106\204\222�:\321=\204\222�;\324>\204\222�\325=\326\">\327=\330\331#\2106\204\322�:\321=\204\245�;\332>\203\322�\333\334!\203\322�\333\334!\203\322�\335?\236\211@\203\304�@\241\210\202\315�\335B?B?)\334\336!\210\337\340!\203\370�\340?\236\211A\203\353�A \241\210\202\364�\340 B?B?)\315 \337\341!\203\341?\236\211B\203B!\241\210\202\341!B?B?)\312!\337\342!\203D\342?\236\211C\2037C\"\241\210\202@\342\"B?B?)\312\"\333\343!\203Y\343?\236\211D\203]D#\241\210\202f\343#B?B?)\343\336!\210\202Y\323\317 \"\2106\204\216:\321=\204\216;\344>\204\216\327=\345\346#\2106\204\253:\321=\204\241;\347>\203\253\333\334!\203\253\334\336!\210\315 \312\211!\"\343\336!\210\202Y\203Y6\204\361:\321=\204\322;\350>\203\361\333\334!\203\361\334?\236\211E\203\360\334EA\203\355\336\202\356\351!\210)\352\317 \f#\210\340?\236\211F\203FA )\341?\236\211G\203GA!)\342?\236\211H\203'HA\")\333\343!\203G\343?\236\211I\203F\343IA\203C\336\202D\351!\210)>\203T\327=\353>#\210\315\211?\354\355\n\203c\356\202d\357\"\210\360 \203\210\361\302!\210\306 \203{\306 \232\203\210\313\362\n\203\205\363\202\206\364\"\210)\365 \210\n\207" [#1=#:last-message arg pc-selection-mode pc-select-key-bindings-alist pc-select-saved-global-map pc-select-default-key-bindings current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil copy-keymap current-global-map append x (ms-dos windows-nt) pc-select-define-keys (ms-dos windows-nt) lookup-key [M-delete] define-key [M-delete] [134217828] (ms-dos windows-nt) fboundp normal-erase-is-backspace-mode normal-erase-is-backspace 1 boundp highlight-nonselected-windows transient-mark-mode mark-even-if-inactive delete-selection-mode (ms-dos windows-nt) [M-delete] [134217828] (ms-dos windows-nt) (ms-dos windows-nt) -1 pc-select-restore-keys [M-delete] run-hooks pc-selection-mode-hook pc-selection-mode-on-hook pc-selection-mode-off-hook called-interactively-p customize-mark-as-set "Pc-Selection mode %sabled" "en" "dis" force-mode-line-update pc-select-selection-keys-only pc-select-extra-key-bindings pc-select-meta-moves-sexps pc-select-meta-moves-sexps-key-bindings window-system system-name pc-select-tty-key-bindings function-key-map pc-select-old-M-delete-binding pc-select-saved-settings-alist #2=#:elt #3=#:elt #4=#:elt #5=#:elt #6=#:elt #7=#:elt #8=#:elt #9=#:elt #10=#:elt #11=#:elt] 7 (#$ . 26557) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode pc-selection-mode nil boundp pc-selection-mode-map] 5)

${this.title}

Code Editor : pc-select.elc