1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / obsolete /
Filename : pc-select.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/pc-select.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\302\303\304\305\306\307\310\311&\210\312\313\314\304#\210\315\304\211\2037�	@\313N\2030�\314N\2040�\316\314\313N#\210	A\211\204�*\317\313\314\320#\210\321\313\322\323\324\325\310\303&\210\321\326\304\327\324\325\310\303&\210\321\330\304\331\324\325\310\303&\210\321\332\304\333\324\334\310\303&\207" [prop --dolist-tail-- 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 t "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 "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 "Non-nil means move sexp-wise with Meta key, otherwise move word-wise." pc-selection-mode-hook "The hook to run when PC Selection mode is toggled." hook] 9)
#@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 (#$ . 1955))
#@65 The keymap used as the global map when PC Selection mode is on.
(defvar pc-select-map nil (#$ . 2362))
#@74 The global map that was in effect when PC Selection mode was toggled on.
(defvar pc-select-saved-global-map nil (#$ . 2471))
#@63 This alist holds all the key bindings PC Selection mode sets.
(defvar pc-select-key-bindings-alist nil (#$ . 2602))
#@57 These key bindings always get set by PC Selection mode.
(defvar pc-select-default-key-bindings nil (#$ . 2724))
#@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)) (#$ . 2842))
#@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))) (#$ . 3163))
#@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)) (#$ . 3565))
#@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 (#$ . 3865))
(provide 'pc-select)
#@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 (#$ . 4149)])
#@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 (#$ . 4378)])
#@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 (#$ . 4875)]))
#@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 (#$ . 5335)]))
#@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 (#$ . 5659)]))
#@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 (#$ . 6354)]))
#@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 (#$ . 6756)]))
#@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 '(#$ . 7296) :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�\310	!\311V\211\203\314\204\312\313 !\314
7?\205+�89\2036�:@\202>�:\211
A@)7\206N�;\315=\206N�<\316>?\205T�=$\317\313 \"\2107\204}�;\315=\204}�<\320>\204}�\321>\322\"?\323>\324\325#\2107\204\275�;\315=\204\220�<\326>\203\275�\327\330!\203\275�\327\330!\203\275�\331@\236\211A\203\257�A\241\210\202\270�\331B@B@)\330\332!\210\333\334!\203\343�\334@\236\211B\203\326�B\241\210\202\337�\334B@B@)\335\333\336!\203	\336@\236\211C\203\374�C\241\210\202\336B@B@)\337\333\340!\203/\340@\236\211D\203\"D \241\210\202+\340 B@B@)\337 \333\341!\203U\341@\236\211E\203HE!\241\210\202Q\341!B@B@)\337!\327\342!\203z\342@\236\211F\203nF\"\241\210\202w\342\"B@B@)\342\332!\210\202z\317\313 \"\2107\204\237;\315=\204\237<\343>\204\237\323>\344\345#\2107\204\274;\315=\204\262<\346>\203\274\327\330!\203\274\330\332!\210\335\337\211!\342\332!\210\202z\203z7\204;\315=\204\343<\347>\203\327\330!\203\330@\236\211G\203\330GA\203\376\332\202\377\350!\210)\351\313 \f#\210\334@\236\211H\203HA)\336@\236\211I\203(IA)\340@\236\211J\2038JA )\341@\236\211K\203HKA!)\327\342!\203h\342@\236\211L\203g\342LA\203d\332\202e\350!\210)?\203u\323>\352?#\210\335\211@\353\354\n\203\204\355\202\205\356\"\210\357\360!\203\252\361\302!\210\306 \203\235\306 \232\203\252\362\363\n\203\247\364\202\250\365\"\210)\366 \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 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 nil transient-mark-mode t 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" "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 #12=#:elt #13=#:elt] 7 (#$ . 7737) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\303\211%\210\305\302\306\307#\207" [pc-selection-mode-map add-minor-mode pc-selection-mode nil boundp make-obsolete delete-selection-mode "24.1"] 6)