;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\302#\210\313\211\2033\211@\311
N\203,\312
N\204,\314\312\311N#\210
A\266\202\202\210\315\311\312\316#\210\317\311\320\321\322DD\323\324\325%\210\317\326\320\321\327DD\330\324\325%\210\317\331\320\321\332DD\333\324\325%\210\317\334\320\321\335DD\336\324\337%\207" [custom-declare-group pc-select nil "Emulate pc bindings." :prefix "pc-select" :group emulations defvaralias pc-select-override-scroll-error scroll-error-top-bottom (saved-value saved-variable-comment) put make-obsolete-variable "24.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil means don't generate error on scrolling past edge of buffer.\nThis variable applies in PC Selection mode only.\nThe scroll commands normally generate an error if you try to scroll\npast the top or bottom of the buffer.  This is annoying when selecting\ntext with these commands.  If you set this variable to non-nil, these\nerrors are suppressed." :type boolean pc-select-selection-keys-only #[0 "\300\207" [nil] 1 #1#] "Non-nil means only bind the basic selection keys when started.\nOther keys that emulate pc-behavior will be untouched.\nThis gives mostly Emacs-like behavior with only the selection keys enabled." pc-select-meta-moves-sexps #[0 "\300\207" [nil] 1 #1#] "Non-nil means move sexp-wise with Meta key, otherwise move word-wise." pc-selection-mode-hook #[0 "\300\207" [nil] 1 #1#] "The hook to run when PC Selection mode is toggled." hook] 8)
#@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 (#$ . 1590))
#@65 The keymap used as the global map when PC Selection mode is on.
(defvar pc-select-map nil (#$ . 1997))
#@74 The global map that was in effect when PC Selection mode was toggled on.
(defvar pc-select-saved-global-map nil (#$ . 2106))
#@63 This alist holds all the key bindings PC Selection mode sets.
(defvar pc-select-key-bindings-alist nil (#$ . 2237))
#@57 These key bindings always get set by PC Selection mode.
(defvar pc-select-default-key-bindings nil (#$ . 2359))
#@69 Key bindings to set only if `pc-select-selection-keys-only' is nil.
(defvar pc-select-extra-key-bindings '(([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)) (#$ . 2477))
#@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-right] . forward-sexp) ([M-left] . backward-sexp)) (([M-right] . forward-word) ([M-left] . backward-word))) (#$ . 2798))
#@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)) (#$ . 3200))
#@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 (#$ . 3500))
(provide 'pc-select)
#@74 Make KEYMAP have the key bindings specified in ALIST.

(fn ALIST KEYMAP)
(defalias 'pc-select-define-keys #[514 "
\211\205\300@@@A#\210\211A\262
\202
\207" [define-key] 7 (#$ . 3784)])
#@276 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.

(fn ALIST KEYMAP SAVED-MAP)
(defalias 'pc-select-restore-keys #[771 "\211\205&\300@@\"
@A\232\203\301@@\300@@\"#\210\211A\262
\202
\207" [lookup-key define-key] 10 (#$ . 3982)])
#@243 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.

(fn ALIST VAR VAL)
(defalias 'pc-select-add-to-alist '(macro . #[771 "\300\301!\302
\303\304DEDC\305\306E\307	\310\211\304\fDE\fEEFE\207" [make-symbol "elt" let assq quote if setcdr setq cons] 15 (#$ . 4425)]))
#@121 Set VAR to NEWVAL; save the old value.
The old value is saved on the `pc-select-saved-settings-alist'.

(fn VAR NEWVAL)
(defalias 'pc-select-save-and-set-var '(macro . #[514 "\300\301\302DD\303\304\211F\305EF\207" [when boundp quote pc-select-add-to-alist pc-select-saved-settings-alist setq] 8 (#$ . 4879)]))
#@482 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'.

(fn MODE &optional ARG MODE-VAR)
(defalias 'pc-select-save-and-set-mode '(macro . #[769 "\211\204\262
\300\301\302DD\303\304\211FDF\207" [when fboundp quote pc-select-add-to-alist pc-select-saved-settings-alist] 9 (#$ . 5200)]))
#@176 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.

(fn VAR)
(defalias 'pc-select-restore-var '(macro . #[257 "\300\301!\302
\303\304D\305BBDC\306\307D\310\311DEEE\207" [make-symbol "elt" let assq quote (pc-select-saved-settings-alist) unless null setq cdr] 10 (#$ . 5891)]))
#@271 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.

(fn MODE)
(defalias 'pc-select-restore-mode '(macro . #[257 "\300\301!\302\303\304DD\305\306\304D\307BBDC\310\311D\312\313	D\314BBDEEE\207" [make-symbol "elt" when fboundp quote let assq (pc-select-saved-settings-alist) unless null if cdr (1 -1)] 12 (#$ . 6294)]))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable pc-selection-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Pc-Selection mode is enabled.\nSee the `pc-selection-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `pc-selection-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@2536 Change mark behavior to emulate Motif, Mac or MS-Windows cut and paste style.

This is a minor mode.  If called interactively, toggle the
`Pc-Selection mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='pc-selection-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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

(fn &optional ARG)
(defalias 'pc-selection-mode #[256 "\306 \307\301\310=\203\311\301!?\202!\247\203 \312W\203 \313\202!\314\"\210\315\300!\2038\316\301\"\311\301!\2038\301B	\203\333
\n\204\217
\317\320 !\321\f
?\205N9:\203Y;@\202];A@
\206l<\322=\206l=\323>?\205r>$\324\n\320 \"\210
\204\232<\322=\204\232=\325>\204\232\326?\327\"@\330?\331\332#\210
\204\327<\322=\204\254=\333>\203\327\334\335!\203\327\334\335!\203\327\336A\236\211\203\311\211\241\266\202\323\336BABA\210\335\312!\210\315\337!\203\373\337A\236\211\203\356\211\241\266\202\370\337BABA\210\313\315\340!\203
\340A\236\211\203
\211 \241\266\202
\340 BABA\210\314 \315\341!\203C
\341A\236\211\2036
\211!\241\266\202@
\341!BABA\210\314!\315\342!\203g
\342A\236\211\203Z
\211\"\241\266\202d
\342\"BABA\210\314\"\334\343!\203v\343A\236\211\203~
\211#\241\266\202\210
\343#BABA\210\343\312!\210\202v\324\n\320 \"\210
\204\256
<\322=\204\256
=\344>\204\256
\330?\345\346#\210
\204\312
<\322=\204\300
=\347>\203\312
\334\335!\203\312
\335\312!\210\313\340\312!\210\314\"\343\312!\210\202v\n\203v
\204
<\322=\204\361
=\350>\203
\334\335!\203
\335A\236\211\203\f\335
A\203	\312\202\n\351!\210\210\352\n\320 #\210\337A\236\211\203 \211A\210\340A\236\211\203-\211A \210\341A\236\211\203:\211A!\210\342A\236\211\203G\211A\"\210\334\343!\203d\343A\236\211\203c\343
A\203`\312\202a\351!\210\210@\203q\330?\353@#\210\313\211A\354\355\311\301!\203\202\356\202\203\357\"\210\360\361!\203\253\362\301!\210\306 \203\233\211\306 \232\203\253\363\364\311\301!\203\247\365\202\250\366\367#\210\210\370 \210\311\301!\207" [global-minor-modes pc-selection-mode pc-select-key-bindings-alist pc-select-saved-global-map pc-select-default-key-bindings pc-select-selection-keys-only current-message set-default toggle default-value 1 nil t boundp delq 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 highlight-nonselected-windows transient-mark-mode shift-select-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 any customize-mark-as-set message "Pc-Selection mode %sabled%s" "en" "dis" "" force-mode-line-update pc-select-extra-key-bindings pc-select-meta-moves-sexps pc-select-meta-moves-sexps-key-bindings window-system system-type pc-select-tty-key-bindings function-key-map pc-select-old-M-delete-binding pc-select-saved-settings-alist] 9 (#$ . 7355) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar pc-selection-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\312\315\316#\207" [pc-selection-mode-map pc-selection-mode-hook variable-documentation put "Hook run after entering or leaving `pc-selection-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pc-selection-mode boundp make-obsolete delete-selection-mode "24.1"] 6)