Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC ;;; Compiled by leavens@CMC3251632-A on Wed Sep 01 20:36:13 2004 ;;; from file d:/emacs/cua.el ;;; in Emacs version 21.3.1 ;;; 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 "`cua.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\204\301\302M\210\303\301\304\305#\210\303\301\306\307#\210\300\310!\204,\310\311M\210\303\310\304\305#\210\303\310\306\312#\210\300\313!\2046\313\314M\210\315\316\317\217\210\300\320!\204E\320\321M\210\300\322!\204O\322\323M\210\300\324!\204Y\324\325M\210\300\326!\204c\326\327M\210\300\330!\204m\330\331M\210\332\333\315\334\335\336\337\340\337\341\337\342\343\344\343\345&\207" [fboundp unless (macro . #[(cond &rest body) "\302\303 BBB\207" [cond body if nil] 4 "(unless COND BODY...): if COND yields nil, do BODY, else return nil."]) put lisp-indent-function 1 edebug-form-spec (&rest form) when (macro . #[(cond &rest body) "\302\303 BE\207" [cond body if progn] 4 "(when COND BODY...): if COND yields non-nil, do BODY, else return nil."]) (&rest form) with-current-buffer (macro . #[(buffer &rest body) "\302\303D BB\207" [buffer body save-excursion set-buffer] 3 "Execute the forms in BODY with BUFFER as the current buffer."]) nil (byte-code "\300\301!\207" [require custom] 2) ((error)) defgroup (macro . #[(&rest rest) "\300\207" [nil] 1]) defcustom (macro . #[(sym val str &rest rest) "\303 \nF\207" [sym val str defvar] 4]) defface (macro . #[(sym val str &rest rest) "\302\303\304DD F\207" [sym str defvar make-face quote] 5]) line-beginning-position #[(&optional N) "\212\301!\210`)\207" [N beginning-of-line] 2] line-end-position #[(&optional N) "\212\210`)\207" [N] 1] custom-declare-group CUA-mode "Emulate CUA key bindings including C-x and C-c." :prefix "CUA-mode" :group editing-basics convenience emulations :link (emacs-commentary-link :tag "Commentary" "cua.el") (emacs-library-link :tag "Lisp File" "cua.el")] 16) #@550 Non-nil means that CUA emulation mode is enabled. In CUA mode, shifted movement keys highlight and extend the region. When a region is highlighted, the binding of the C-x and C-c keys are temporarily changed to work as Motif, MAC or MS-Windows cut and paste. Also, insertion commands first delete the region and then insert. This mode enables Transient Mark mode and it provides a superset of the PC Selection Mode and Delete Selection Modes. Setting this variable directly does not take effect; use either \[customize] or the function `CUA-mode'. (custom-declare-variable 'CUA-mode 'nil '(#$ . 2262) :set (lambda (symbol value) (CUA-mode (or value 0))) :initialize 'custom-initialize-default :require 'cua :link '(emacs-commentary-link "cua.el") :version "20.5" :type 'boolean :group 'CUA-mode) #@235 Non-nil means CUA functionality is enabled without binding CUA keys. This causes the normal bindings of kill-region, copy-region-as-kill, yank, and undo to behave in the CUA style, but the C-z, C-c, C-x, and C-v keys are not rebound. (custom-declare-variable 'CUA-mode-emacs-bindings 'nil '(#$ . 3066)) #@167 *If non-nil, only remap C-c and C-x if region was marked with S-. I.e. if the mark was set using \[CUA-set-mark], those keys have their normal prefix bindings. (custom-declare-variable 'CUA-mode-remap-cx-shift-only 'nil '(#$ . -3376) :type 'boolean :group 'CUA-mode) #@296 *If non-nil, only highlight region if marked with S-. When this is non-nil, CUA toggles `transient-mark-mode' on when the region is marked using shifted movement keys, and off when the mark is cleared. But when the mark was set using \[CUA-set-mark], transient-mark-mode is not turned on. (custom-declare-variable 'CUA-mode-highlight-shift-only 'nil '(#$ . -3656) :type 'boolean :group 'CUA-mode) #@950 How to inhibit the CUA interpretation of the next prefix key. When the region is active, the following methods are available to use the normal functionality of the prefix keys: delay The interpretation of a prefix keys as a CUA key is delayed for `CUA-mode-inhibit-delay' milliseconds after the prefix key has been typed. If a second key is typed before the delay elapses, the prefix key works as a normal prefix together with the second key. twice As delay, but if the second key typed is the same prefix key, the first prefix key is ignored, while the second prefix key will works as a normal prefix key for the following keys. shift The Shift key must be used together with the prefix key. (Actually this method always works unless the shifted prefix keys are explicitly bound to a command). Notice that the delay and twice options only works well on systems with a sit-for function supporting fractions of a second delays. (custom-declare-variable 'CUA-mode-inhibit-method '(if (memq system-type '(windows-nt ms-dos)) 'shift 'twice) '(#$ . 4066) :type '(choice (const delay) (const twice) (const shift)) :group 'CUA-mode) #@147 Period during which typing another key inhibits CUA prefix keys. Measured in milliseconds. Used when `CUA-mode-inhibit-method' is delay or twice. (custom-declare-variable 'CUA-mode-inhibit-delay '250 '(#$ . 5221) :type 'integer :group 'CUA-mode) #@241 Remap register commands [C-x r ...] onto this prefix. E.g. to use M-r as register command prefix, use the value [?\M-r]. If set to nil, register commands are not remapped. Other C-x ? commands can be remapped using CUA-remap-ctl-x-commands (custom-declare-variable 'CUA-mode-register-commands-prefix 'nil '(#$ . 5474) :set (lambda (symbol value) (if value (CUA-remap-ctl-x-commands "r" value))) :type 'sexp :group 'CUA-mode) #@54 If non-nil, don't deselect the region after copying. (custom-declare-variable 'CUA-mode-keep-region-after-copy 'nil '(#$ . 5905) :type 'boolean :group 'CUA-mode) #@259 If non-nil, rectangles are padded with spaces to make straight edges. This implies modifying buffer contents by expanding tabs and inserting spaces. Consequently, this is inhibited in read-only buffers. Can be toggled by [M-p] while the rectangle is active, (custom-declare-variable 'CUA-mode-auto-expand-rectangles 'nil '(#$ . 6074) :type 'boolean :group 'CUA-mode) #@62 If non-nil, always keep global mark visible in other window. (custom-declare-variable 'CUA-mode-global-mark-visible 't '(#$ . 6447) :type 'boolean :group 'CUA-mode) #@134 If non-nil, target for kill and copy region is global mark when active. When nil, or global mark is not active, target is kill-ring. (custom-declare-variable 'CUA-mode-feature-global-mark 't '(#$ . 6619) :type 'boolean :group 'CUA-mode) #@140 If non-nil, target for kill and copy region is a register if prefix arg. When nil, or no prefix arg, target is kill-ring (or global mark). (custom-declare-variable 'CUA-mode-feature-registers 't '(#$ . 6863) :type 'boolean :group 'CUA-mode) #@67 *If non-nil, save last deleted region or rectangle to register 0. (custom-declare-variable 'CUA-mode-delete-to-register-0 't '(#$ . -7110) :type 'boolean :group 'CUA-mode) #@77 *If non-nil, automatically show help for region, rectangle and global mark. (custom-declare-variable 'CUA-mode-auto-help 't '(#$ . -7288) :type 'boolean :group 'CUA-mode) #@63 *If non-nil, use minor-mode hook to show status in mode line. (custom-declare-variable 'CUA-mode-use-modeline 'nil '(#$ . -7465) :type 'boolean :group 'CUA-mode) #@161 *If non-nil, bind rectangle commands to H-? instead of M-?. If set to 'also, toggle region command is also on S-return. Must be set prior to enabling CUA-mode. (custom-declare-variable 'CUA-mode-use-hyper-key 'nil '(#$ . -7634) :type '(choice (const nil) (const only) (const also)) :group 'CUA-mode) #@29 *Enable CUA mode debugging. (custom-declare-variable 'CUA-debug 'nil '(#$ . -7940) :type 'boolean :group 'CUA-mode) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\305%\210\300\310\311\312\304\305%\207" [custom-declare-face CUA-rectangle-face nil "*Font used by CUA for highlighting the rectangle." :group CUA-mode CUA-rectangle-noselect-face "*Font used by CUA for highlighting the non-selected rectangle lines." CUA-global-mark-face ((((class color)) (:foreground "black") (:background "yellow")) (t (:bold t))) "*Font used by CUA for highlighting the global mark."] 6) #@59 *If non-nil, use different cursor colors for indications. (custom-declare-variable 'CUA-mode-use-cursor-colors 't '(#$ . -8532) :type 'boolean :group 'CUA-mode) #@153 Normal (non-overwrite) cursor color. Also used to indicate that rectangle padding is not in effect. Automatically loaded from frame parameters, if nil. (custom-declare-variable 'CUA-mode-normal-cursor-color 'nil '(#$ . 8700) :initialize (lambda (symbol value) (set symbol (or value (and (boundp 'initial-cursor-color) initial-cursor-color) (and (boundp 'initial-frame-alist) (assoc 'cursor-color initial-frame-alist) (cdr (assoc 'cursor-color initial-frame-alist))) (and (boundp 'default-frame-alist) (assoc 'cursor-color default-frame-alist) (cdr (assoc 'cursor-color default-frame-alist))) (frame-parameter nil 'cursor-color)))) :type 'color :group 'CUA-mode) #@54 *Cursor color used in read-only buffers, if non-nil. (custom-declare-variable 'CUA-mode-read-only-cursor-color '"darkgreen" '(#$ . -9368) :type 'color :group 'CUA-mode) #@119 *Cursor color used when overwrite mode is set, if non-nil. Also used to indicate that rectangle padding is in effect. (custom-declare-variable 'CUA-mode-overwrite-cursor-color '"yellow" '(#$ . -9544) :type 'color :group 'CUA-mode) #@92 *Indication for active global mark. Will change cursor color to specified color if string. (custom-declare-variable 'CUA-mode-global-mark-cursor-color '"cyan" '(#$ . -9781) :type 'color :group 'CUA-mode) #@72 *If non-nil, use blinking cursor as indication for active global mark. (custom-declare-variable 'CUA-mode-global-mark-cursor-blink 't '(#$ . -9991) :type 'boolean :group 'CUA-mode) #@178 List of prefix keys which are remapped via key-translation-map. Each element in the list is a cons of the prefix key and the key it is translated into if the region is active. (defvar CUA-prefix-key-mappings '((24 . S-delete) (3 . C-insert)) (#$ . 10179)) #@232 *Key which CUA uses in key-translation-map instead of C-x 8 prefix. Must be set to a single character. If no set, the first unused key among the following list is chosen automatically: H-8 (hyper 8), s-8 (super 8), C-H-8, C-H-s-8 (defvar CUA-ctl-x-8-prefix-key nil (#$ . -10443)) #@52 Current region was started using set-mark-command. (defvar CUA-explicit-region-start nil (#$ . 10730)) #@31 Action taken by last command. (defvar CUA-last-action nil (#$ . 10839)) #@42 Current register selected by prefix arg. (defvar CUA-cur-register nil (#$ . 10917)) #@29 Modeline status indication. (defvar CUA-mode-status nil (#$ . 11007)) #@40 The original command before remapping. (defvar CUA-orig-command nil (#$ . 11083)) (defalias 'CUA-register #[nil "\204! \203!\n\250\203!\n\304Y\203!\n\305W\203!\n\306\\\307\307\207" [CUA-cur-register CUA-mode-feature-registers current-prefix-arg overriding-terminal-local-map 0 10 48 nil] 2]) (require 'rect) #@385 If non-nil, restrict current region to this rectangle. Value is a vector [top bot left right corner ins pad select]. CORNER specifies currently active corner 0=t/l 1=t/r 2=b/l 3=b/r. INS specifies whether to insert on left(nil) or right(t) side. If PAD is non-nil, tabs are converted to spaces when necessary. If SELECT is a regexp, only lines starting with that regexp are affected. (defvar CUA-rectangle nil (#$ . 11408)) #@54 Most recent rectangle geometry. Note: car is buffer. (defvar CUA-last-rectangle nil (#$ . 11838)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list CUA-next-rectangle CUA-start-point boundp nil] 2) #@69 Last rectangle copied/killed; nil if last kill was not a rectangle. (defvar CUA-rect-last-killed nil (#$ . 12088)) #@53 List of overlays used to display current rectangle. (defvar CUA-rect-overlays nil (#$ . 12209)) #@55 Top of CUA rectangle (buffer position on first line). (defalias 'CUA-rect-top #[(&optional val) "\204 \302H\207\303 \211 \304HX\203 \302I\207 \304I\210\305\306!\207" [val CUA-rectangle 0 line-beginning-position 1 CUA-rect-corner 2] 4 (#$ . 12311)]) #@54 Bot of CUA rectangle (buffer position on last line). (defalias 'CUA-rect-bot #[(&optional val) "\204 \302H\207\303 \211 \304HY\203 \302I\207 \304I\210\305\306!\207" [val CUA-rectangle 1 line-end-position 0 CUA-rect-corner 2] 4 (#$ . 12574)]) #@31 Left column of CUA rectangle. (defalias 'CUA-rect-left #[(&optional val) "\250\203$ \302HX\203 \303I\207 \302I\210\304\305 \203!\306\202\"\307!\207 \303H\207" [val CUA-rectangle 3 2 CUA-rect-corner CUA-rect-right-side -1 1] 3 (#$ . 12830)]) #@32 Right column of CUA rectangle. (defalias 'CUA-rect-right #[(&optional val) "\250\203$ \302HY\203 \303I\207 \302I\210\304\305 \203!\306\202\"\307!\207 \303H\207" [val CUA-rectangle 2 3 CUA-rect-corner CUA-rect-right-side -1 1] 3 (#$ . 13086)]) #@39 Currently active corner of rectangle. (defalias 'CUA-rect-corner #[(&optional advance) "\303H\n\250\204 \202)\303\n\304U\203\305 Z\202#\306 \n\\\303\\\303\"I\210\307\304I)\207" [CUA-rectangle c advance 4 0 3 mod 5] 5 (#$ . 13344)]) (defalias 'CUA-rect-right-side #[(&optional topbot) "\203\301 \302 U\203\303 \304W\207\305\303 \304\"\306U\207" [topbot CUA-rect-left CUA-rect-right CUA-rect-corner 2 mod 1] 3]) (defalias 'CUA-rect-column #[nil "\300 \203\301 \207\302 \207" [CUA-rect-right-side CUA-rect-right CUA-rect-left] 1]) #@39 Currently active corner of rectangle. (defalias 'CUA-rect-insert-col #[(&optional col) "\250\203\n \302I\207\303\304!\203 \302H\305U\203\306 T\207 \302H\207\307 \207" [col CUA-rectangle 5 CUA-rect-right-side t 0 CUA-rect-right CUA-rect-left] 3 (#$ . 13895)]) (defalias 'CUA-rect-padding #[(&optional set val) "\203 \304\nI\210?\205 \304H\207" [set CUA-rectangle val buffer-read-only 6] 3]) (defalias 'CUA-rect-restriction #[(&optional val bounded negated) "\203 \304;\205G\305V\205\nEI\207 \304H\207" [val CUA-rectangle bounded negated 7 0] 5]) (defalias 'CUA-rect-assert #[nil "\301\302`#\210\303 \304 W\203\301\305!\210\306 \307 W\205\301\310!\207" [CUA-rectangle message "%S (%d)" CUA-rect-right CUA-rect-left "rectangle right < left" CUA-rect-bot CUA-rect-top "rectangle bot < top"] 4]) (defalias 'CUA-rect-get-corners #[(&optional pad) "`\306 \307\211\211\212\fb\210ib\210i\fX\203+ \nX\203&\310\202'\311\202;\f \nX\2039\312\202:\313 \nX\203M \nW\203e\nS\202e\n \fb\210\314 \"\210`b\210\314\n \"\210`)\315\f \n\310 \307&-\207" [corner l r bot top pad mark nil 0 1 2 3 move-to-column vector] 9]) (defalias 'CUA-rect-set-corners #[nil "\305\211\211\211\306 \307U\203 \310 \311 \312 \313 \202\\\314U\2035\310 \313 \312 \311 \202\\\315U\203J\312 \311 \310 \313 \202\\\316U\203\\\312 \313 \310 \311 \nb\210\317 \320 \"\210\321`!\210\fb\210\317\320 \"-\207" [c mc mp pc pp nil CUA-rect-corner 0 CUA-rect-top CUA-rect-left CUA-rect-bot CUA-rect-right 1 2 3 move-to-column CUA-rect-padding set-mark] 5]) (defalias 'CUA-forward-line #[(n pad) "\203\n \302W\203 y\302U\207\303\304!\210\305\207" [pad n 0 next-line 1 t] 2]) (defalias 'CUA-rect-resize #[(command) "\304N\206\305 \306\211\307=\203_\310 \203/\n\204 l\203/\311\211 T!\210\312\311 \n\"\210\202\331
\310 \203>\313u\210\311i!\210\202\331
\n\204Fl\203U\314\211 T!\210\312\311 \n\"\210\202\331
\313u\210\314i!\210\202\331
\315=\203\314\311 \316U\204\331
\310 \204x\314 \316U\204\331
\310 \203\230\n\204\211l\204\211n\203\230\311\211 S!\210\312\311 \n\"\210\202\331
\310 \203\247\317u\210\311i!\210\202\331
\n\204\263l\204\263n\203\302\314\211 S!\210\312\311 \n\"\210\202\331
\317u\210\314i!\210\202\331
\320=\203
\321 \322Y\203\361\323 b\210\324\313\n\"\203\331
\312\325 \n\"\210\323\306!\210\202\331
\326 b\210\324\313\n\"\203\331
\312\325 \n\"\210\326\306!\210\202\331
\327=\203F
\321 \322Y\203.
\323 b\210\324\317\n\"\203\331
\312\325 \n\"\210\323\306!\210\202\331
\326 b\210\324\317\n\"\203\331
\312\325 \n\"\210\326\306!\210\202\331
\330>\203j
l\204\331
\331\210i\311 V\203^
\311i!\210\310 \204\331
\321\313!\210\202\331
\332>\203\207
n\204\331
\333 \210\314i!\210\310 \203\331
\321\317!\210\202\331
\334=\203\235
db\210\312\325 \n\"\210\323\306!\210\202\331
\335=\203\263
eb\210\312\325 \n\"\210\326\306!\210\202\331
\336>\203\327
 \210\312\325 \n\"\210\321 \322Y\203\320
\323\306!\210\202\331
\326\306!\210\202\331
\331 \203\354
\337\n!\210\340\316!\210\341 \210\342\306!\210 +\207" [command resized pad cmd CUA-rect CUA-rect-padding t forward-char CUA-rect-right-side CUA-rect-right move-to-column 1 CUA-rect-left backward-char 0 -1 next-line CUA-rect-corner 2 CUA-rect-bot CUA-forward-line CUA-rect-column CUA-rect-top previous-line (end-of-line end-of-line-or-backward-char) nil (beginning-of-line beginning-of-line-or-indent) beginning-of-line end-of-buffer beginning-of-buffer (scroll-down scroll-up) CUA-pad-rectangle CUA-rect-insert-col CUA-rect-set-corners CUA-keep-active] 4]) (defalias 'CUA-rect-move #[(dir) "\306 \307\310 \311 \312 \313 \314=\2033b\210\315\316 \"\203\207\310\307!\210\nb\210\316y\210\311\307!\210\202\207\317=\203W\nb\210\315\320 \"\203\207\311\307!\210b\210\315\320 \"\210\310\307!\210\202\207\321=\203q \322V\203\207\312 S!\210\313S!\210\202\207\323=\203\205\313T!\210\312 T!\210\202\207\324\f\205\224\325 \210\326 \210\327\307!.\207" [r l bot top moved pad CUA-rect-padding t CUA-rect-top CUA-rect-bot CUA-rect-left CUA-rect-right up CUA-forward-line -1 down 1 left 0 right nil CUA-pad-rectangle CUA-rect-set-corners CUA-keep-active dir] 6]) (defalias 'CUA-rect-operation #[(cmd visible undo pad &optional fct post-fct) "\306 \307 \310 \311 T\312  \250\205 \313U\"\314 #$\205'$\315N%&\2031\316 \210 \250\2039\317 \212\214~\210\320 \321V\203V b\210n\203Vl\204Vm\204V T'\203e\322 ]\323 ^ b\210\324 b\210\325 \211 }\210eb\210`dW\203
\326 \"\210 \204\225'\204\225iV\203\225\327u\210\"\203\247 \204\247\330\331!\203\247\321u\210\f`\332\223\210\326\n \"\210(\203
\333`)*#\203\354#A@\203\322\330#@!*\202\337\334#@\f\333#*)b\210#AA@\203\354*?*'\203\377()\f\n*%\210\202
*\203
()\f\n$\210*\f\332\211\223\210\321y\210\202x'\204\"
\307\333!\210+\203-
+\n\"\210*%\335=\203;
\336\333!\202U
%\337=\203H
\336\332!\202U
%\340=\205U
\341 \210\336\333!.\207" [start end l r m pad CUA-rect-top CUA-rect-bot CUA-rect-left CUA-rect-right make-marker 2 CUA-rect-restriction CUA-rect CUA-rect-undo-boundary CUA-rect-padding CUA-rect-corner 1 window-start window-end line-end-position line-beginning-position move-to-column -1 looking-at " " nil t re-search-forward keep CUA-keep-active clear corners CUA-rect-set-corners tabpad sel cmd keep-clear undo visible fct p v post-fct] 7]) (put 'CUA-rect-operation 'lisp-indent-function 4) (defalias 'CUA-pad-rectangle #[(&optional pad) "\204 \301 \205\302\303\211\304\211$\207" [pad CUA-rect-padding CUA-rect-operation nil t] 5]) (defalias 'CUA-delete-rectangle #[nil "\300\301\211\302\303\304%\207" [CUA-rect-operation nil t 2 (lambda (s e l r) (delete-region s (if (> e s) e (1+ e))))] 6]) (defalias 'CUA-extract-rectangle #[nil "\301\302\301\211\211\303\304%\210\237)\207" [rect nil CUA-rect-operation 1 (lambda (s e l r) (setq rect (cons (buffer-substring-no-properties s e) rect)))] 6]) (defalias 'CUA-insert-rectangle #[(rect &optional below) "\203\306=\203n\205l\206m\206`TdU i\307\310 \204+\203h\204I\f\203:\311c\210\202I\312y\210n\204D\311c\210\313\f\307\"\210 \204R\310\202c @c\210 A\203c\204c`\310\202#\n\205t\f?\205t\nb,\207" [below rect p first insertcolumn lines auto t nil 10 1 move-to-column overwrite-mode] 4]) (defalias 'CUA-rect-copy-as-kill #[(&optional ring) "\304 \203\f\305\304 \306 \"\207\306  \205 @B\205#\307\310\311\312#!\207" [killed-rectangle kill-ring CUA-rect-last-killed ring CUA-register set-register CUA-extract-rectangle kill-new mapconcat #[(row) "\301P\207" [row "\n"] 2] ""] 5]) (defalias 'CUA-rect-activate #[(&optional force) "\203@p=\203A@`=\203AA\202+\306 ?\205*\n\206*\206*\f\307=!\310 \2035\311\2026\312\f\313\211\207" [CUA-last-rectangle buffer-read-only CUA-mode-auto-expand-rectangles force major-mode CUA-rectangle CUA-rect-get-corners picture-mode CUA-rect-padding " Pad" "" nil CUA-mode-status] 3]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list CUA-save-point boundp nil] 2) (defalias 'CUA-rect-deactivate #[nil "\305\306\"\210p \nBB\307\307\307\211\207" [CUA-rect-overlays CUA-save-point CUA-rectangle CUA-last-rectangle CUA-mode-status mapcar delete-overlay nil] 3]) (defalias 'CUA-rect-highlight #[nil " \306\307 \310 T\nU\204\311\312!\210\313\306\314\306\211\315%\210\316\317 \"\210\f\237\211-\207" [deactivate-mark CUA-rect-overlays right left new old nil CUA-rect-left CUA-rect-right sit-for 0 CUA-rect-operation t (lambda (s e l r v) (let ((rface (if v 'CUA-rectangle-face 'CUA-rectangle-noselect-face)) overlay) (while (and old (setq overlay (car old)) (< (overlay-start overlay) s) (/= (overlay-end overlay) e)) (delete-overlay overlay) (setq old (cdr old))) (if (and old (setq overlay (car old)) (or (= (overlay-start overlay) s) (= (overlay-end overlay) e))) (progn (move-overlay overlay s e) (setq old (cdr old))) (setq overlay (make-overlay s e))) (overlay-put overlay 'face rface) (setq new (cons overlay new)))) mapcar delete-overlay] 6]) #@27 Indent current rectangle. (defalias 'CUA-rect-indent-rectangle #[(&optional ch) "\303 \304 \305\306\307\305\310 \311\312&+\207" [indent pad col CUA-rect-insert-col CUA-rect-padding nil CUA-rect-operation CUA-rect-indent-rectangle t (lambda (s e l r) (move-to-column col pad) (if (and (eolp) (< (current-column) col)) (move-to-column col t)) (if ch (insert ch) (tab-to-tab-stop)) (if (CUA-rect-right-side t) (CUA-rect-insert-col (current-column)) (setq indent (- (current-column) l)))) (lambda (l r) (when (and indent (> indent 0)) (aset CUA-rectangle 2 (+ l indent)) (aset CUA-rectangle 3 (+ r indent -1))))] 7 (#$ . 21977)]) (put 'CUA-rect-indent-rectangle 'CUA-rect 'corners) #@106 Exchanges point and mark, but don't activate the mark. Activates the mark if a prefix argument is given. (defalias 'CUA-exchange-point-and-mark #[(arg) "\203\303\211\207\304\305 \210\n\205\306\307!)\207" [arg mark-active CUA-rectangle t nil exchange-point-and-mark CUA-rect-corner 0] 2 (#$ . 22666) "P"]) #@30 Global mark position marker. (defvar CUA-global-mark nil (#$ . 22984)) #@35 Overlay for global mark position. (defvar CUA-global-mark-overlay nil (#$ . 23061)) (defalias 'CUA-global-mark-active #[nil "\301!\205 \302!\207" [CUA-global-mark markerp marker-buffer] 2]) (defalias 'CUA-global-mark-deactivate #[(&optional msg) "\203\n\303!\210\304\305 !\203 \304\211\223\210\n\205\306\307!\207" [CUA-global-mark-overlay CUA-global-mark msg delete-overlay nil markerp message "Global Mark Cleared"] 3]) (defalias 'CUA-global-mark-activate #[(&optional msg) "\303!\204 \304 m\203\305c\210\306u\210`\307\223\210\310 !\203(\311 ``T#\210\2024\312``T\"\313 \314\315#\210\n\205;\316\317!\207" [CUA-global-mark CUA-global-mark-overlay msg markerp make-marker " " -1 nil overlayp move-overlay make-overlay overlay-put face CUA-global-mark-face message "Global Mark Set"] 4]) #@434 Set or cancel the global marker. When the global marker is set, CUA cut and copy commands will automatically insert the deleted or copied text before the global marker, even when the global marker is in another buffer. If the global marker isn't set, set the global marker at point in the current buffer. Otherwise jump to the global marker position and cancel it. With prefix argument, don't jump to global mark when cancelling it. (defalias 'CUA-cmd-toggle-global-mark #[(stay) "\303 \204\204 \304\305!\207\306 \210\307\310!\207 \204!\311\312\n!!\210\nb\210\313\305!\207" [buffer-read-only stay CUA-global-mark CUA-global-mark-active CUA-global-mark-activate t ding message "Cannot set global mark in read-only buffer." pop-to-buffer marker-buffer CUA-global-mark-deactivate] 3 (#$ . 23874) "P"]) (defalias 'CUA-global-mark-insert #[(str &optional msg) "\212\303!q\210\304!b\210 c\210\305 \210)\n\205$\306\307\n G\310\303!!\304!%\207" [CUA-global-mark str msg marker-buffer marker-position CUA-global-mark-activate message "%s %d to global mark in %s:%d" buffer-name] 7]) (defalias 'CUA-global-mark-delete-char #[(arg &optional msg) "\212\303!q\210\304!b\210\305 !\210)\n\205!\306\307\n \310\303!!\304!%\207" [CUA-global-mark arg msg marker-buffer marker-position delete-char message "%s %d chars at global mark in %s:%d" buffer-name] 7]) #@45 Copy region to global mark buffer/position. (defalias 'CUA-global-mark-copy-region #[(start end) "\305 \203Fp\212\306 !\232\203!\307\n\"\310 !b\210\fc\210)\2021\306 !q\210\310 !b\210\311\n#\210\312 \210\313\314\315\nZ!\316\306 !!\310 !$*\207\317 \210\313\320!\207" [src-buf CUA-global-mark start end text CUA-global-mark-active marker-buffer buffer-substring-no-properties marker-position insert-buffer-substring CUA-global-mark-activate message "Copied %d to global mark in %s:%d" abs buffer-name CUA-global-mark-deactivate "No Global Mark"] 6 (#$ . 25236) "r"]) #@40 Move region to global buffer/position. (defalias 'CUA-global-mark-move-region #[(start end) "\306 \203\201p\212\307 !\232\203U\n\310 !W\203&\310 !W\203&\311\312!\202\313\n\"\314\n!\314!\310 !b\210c\210\315 \210\310 !\310\f!|\210 \316\211\223\210\f\316\211\223+\202\307 !q\210\310 !b\210\317\n#\210\311\320\321\nZ!\322\307 !!\310 !$\210\315 \210q\210\n|*\207\323 \210\311\324!\207" [src-buf CUA-global-mark start end p2 p1 CUA-global-mark-active marker-buffer marker-position message "Can't move region into itself." buffer-substring-no-properties copy-marker CUA-global-mark-activate nil insert-buffer-substring "Moved %d to global mark in %s:%d" abs buffer-name CUA-global-mark-deactivate "No Global Mark" text] 6 (#$ . 25816) "r"]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list CUA-global-mark-do-rect-as-text boundp nil] 2) #@48 Copy rectangle to global mark buffer/position. (defalias 'CUA-global-mark-copy-rect #[nil "\304 \203Cp\305 \212\306\n!q\210\307\n!b\210\203.\2033@c\210A\211\203\310c\210\202\311\312\"\210\313 \210\314\315\316\306\n!!\307\n!#+\207\317 \210\314\320!\207" [text src-buf CUA-global-mark CUA-global-mark-do-rect-as-text CUA-global-mark-active CUA-extract-rectangle marker-buffer marker-position "\n" CUA-insert-rectangle auto CUA-global-mark-activate message "Copied rectangle to global mark in %s:%d" buffer-name CUA-global-mark-deactivate "No Global Mark"] 5 (#$ . 26696)]) #@43 Move rectangle to global buffer/position. (defalias 'CUA-global-mark-move-rect #[nil "\306 \203\225p\212\307 !\232\203o\310\311 !!\312\211\2035\313@\314\"\315=\203.\316\312\211\202A\211\204\n\203?\317\320!\202k\321 \322 \210\311 !b\210 \203c\f\203h\f@c\210\fA\211\203N\323c\210\202N\324\f\325\"\210\326 )*\202\223\321 \322 \210\307 !q\210\311 !b\210\324\f\325\"\210)\317\327\330\307 !!\311 !#\210\326 *\207\331 \210\317\332!\207" [src-buf CUA-global-mark in-rect olist text CUA-global-mark-do-rect-as-text CUA-global-mark-active marker-buffer overlays-at marker-position nil overlay-get face CUA-rectangle-face t message "Can't move rectangle into itself." CUA-extract-rectangle CUA-delete-rectangle "\n" CUA-insert-rectangle auto CUA-global-mark-activate "Moved rectangle to global mark in %s:%d" buffer-name CUA-global-mark-deactivate "No Global Mark"] 6 (#$ . 27288)]) #@32 Per-buffer CUA mode undo list. (defvar CUA-undo-list nil (#$ . 28193)) #@61 *Max no of undoable CUA rectangle changes (including undo). (defvar CUA-undo-max 64 (#$ . -28270)) (defalias 'CUA-rect-undo-boundary #[nil "<\205 G\nV\203\nS \233\304\241\210\305 \210A\306!B B\211\207" [buffer-undo-list CUA-undo-list CUA-undo-max CUA-rectangle nil undo-boundary copy-sequence] 3]) #@98 Undo some previous changes. Knows about CUA rectangle highlighting in addition to standard undo. (defalias 'CUA-undo #[(&optional arg) "\203\306 \210\307 !\210\n\211\2032@@\f=\203+\310@A!\205$@A\311\211\202A\211\204)\311\211\n\207" [CUA-rectangle arg CUA-undo-list l pending-undo-list CUA-next-rectangle CUA-rect-undo-boundary undo vectorp nil CUA-start-point] 3 (#$ . 28582) "*P"]) #@62 Number of times `CUA-tidy-undo-lists' have run successfully. (defvar CUA-tidy-undo-counter 0 (#$ . 28990)) (defalias 'CUA-tidy-undo-lists #[(&optional clean) "\306 \211\203\247\204\307 \204\247r\n@q\210\310\304!\203\237\204+\f\203+ \311=\2035\312\304!\210T\202\237 \313\fB\211A@@\203l\203l>\211\203CA\211A\205gA@@\202C\203\236\203|AGA\f=\203\211\313\202\216\313\241\210T\203\236\314\315\316 #\210+)\nA\211\204 U*?\207" [CUA-tidy-undo-counter cnt buffers clean CUA-undo-list buffer-undo-list buffer-list input-pending-p local-variable-p t kill-local-variable nil message "Clean undo list in %s (%d)" buffer-name bul cul cc CUA-debug] 5]) (defalias 'CUA-indent-active-region #[(start end backw) "\306\307!\210\310\212b\210\311 ) \312\232\203\313\f\310#\2029 \203(\314 !\202) \315\f\2037\n[\2028\n#*\207" [current-prefix-arg arg amount start end tab-width message "Indenting..." nil line-beginning-position (4) indent-region prefix-numeric-value indent-rigidly backw] 4]) #@285 Set mark at where point is, clear mark, or jump to mark. With no prefix argument, set mark, push old mark position on local mark ring, and push mark on global mark ring, or if mark is already set, clear mark. With argument, jump to mark, and pop a new position for mark off the ring. (defalias 'CUA-set-mark #[(&optional jump) "\203\304\305!\207 \203\306\306\307\310!\207\304\306!\210\305\205!\311\305!\207" [jump mark-active CUA-explicit-region-start CUA-mode-auto-help set-mark-command t nil message "Mark Cleared" CUA-help-for-region] 2 (#$ . 30056) "P"]) (defalias 'CUA-keep-active #[(keep) "\203\n\304\305\211\207\305\305\306\307!\207" [keep mark-active deactivate-mark CUA-explicit-region-start t nil run-hooks deactivate-mark-hook] 2]) (defalias 'CUA-cmd-copy-region #[nil "\304\305 `\211 X\204 \n\306 \203!\307\306 \n \304$\210\202&\310\n \"\210\311!*\207" [CUA-rect-last-killed end start CUA-mode-keep-region-after-copy nil mark CUA-register copy-to-register copy-region-as-kill CUA-keep-active] 6 nil nil]) (defalias 'CUA-cmd-cut-region #[nil "\304 \203 \305 \207\306 `\211\nX\204\n\307 \203(\310\307 \n\311$\210\202-\312\n\"\210*\313\304!\207" [CUA-rect-last-killed buffer-read-only end start nil CUA-cmd-copy-region mark CUA-register copy-to-register t kill-region CUA-keep-active] 6 nil nil]) (defalias 'CUA-cmd-delete-region #[nil "\303 `\211X\204 \n\203\304\305 \306$\210 |\210\307\306!*\207" [end start CUA-mode-delete-to-register-0 mark copy-to-register 48 nil CUA-keep-active] 6 nil nil]) (defalias 'CUA-cmd-indent-region-left #[nil "\302 `\211X\204 \303 \304#\210\305\306!*\207" [end start mark CUA-indent-active-region nil CUA-keep-active t] 5 nil nil]) (defalias 'CUA-cmd-indent-region-right #[nil "\302 `\211X\204 \303 \304#\210\305\304!*\207" [end start mark CUA-indent-active-region t CUA-keep-active] 5 nil nil]) #@106 Set mark and start in CUA rectangle mode. With prefix argument, activate previous rectangle if possible. (defalias 'CUA-cmd-begin-rectangle #[(&optional reopen) "?\2055 \203\n\203\n@p=\203\nA@b\210\202$\204$\306\307!\210\310 \210\311 \210\312\312 \2055\313\312!\207" [CUA-rectangle reopen CUA-last-rectangle mark-active CUA-explicit-region-start CUA-mode-auto-help set-mark-command nil CUA-rect-activate CUA-rect-set-corners t CUA-help-for-rectangle] 2 (#$ . 31970) "P"]) #@27 Cancel current rectangle. (defalias 'CUA-cmd-end-rectangle #[nil "\205\n\303\303\304 \207" [CUA-rectangle mark-active CUA-explicit-region-start nil CUA-rect-deactivate] 1 (#$ . 32462) nil]) #@98 Restrict rectangle to lines (not) matching REGEXP. With prefix argument, the toggle restriction. (defalias 'CUA-cmd-restrict-regexp-rectangle #[(arg) "\303 \210\304 \305\211\203+ A@\204+\n\203#\304 @\305 AA@?#\2026\304\306\305\211#\2026\304\307\310\305\211\211\211%\305\n#*\207" [regexp r arg CUA-absorb-prefix-arg CUA-rect-restriction nil "" read-from-minibuffer "Restrict rectangle (regexp): "] 8 (#$ . 32662) "P"]) #@101 Restrict rectangle to lines (not) starting with CHAR. With prefix argument, the toggle restriction. (defalias 'CUA-cmd-restrict-prefix-rectangle #[(arg) "\303 \210\304 \305\211\203+ A@\203+\n\203#\304 @\306 AA@?#\2025\304\307\305\211#\2025\304\310\311\312\313!\"\306\n#*\207" [regexp r arg CUA-absorb-prefix-arg CUA-rect-restriction nil t "" format "[%c]" read-char "Restrictive rectangle (char): "] 6 (#$ . 33094) "P"]) (defalias 'CUA-cmd-move-rectangle-up #[nil "\300\301!\207" [CUA-rect-move up] 2 nil nil]) (defalias 'CUA-cmd-move-rectangle-down #[nil "\300\301!\207" [CUA-rect-move down] 2 nil nil]) (defalias 'CUA-cmd-move-rectangle-left #[nil "\300\301!\207" [CUA-rect-move left] 2 nil nil]) (defalias 'CUA-cmd-move-rectangle-right #[nil "\300\301!\207" [CUA-rect-move right] 2 nil nil]) (defalias 'CUA-cmd-copy-rectangle #[nil "\301 \210\302!\207" [CUA-mode-keep-region-after-copy CUA-rect-copy-as-kill CUA-keep-active] 2 nil nil]) (defalias 'CUA-cmd-cut-rectangle #[nil "\203\n\301 \210\202\302 `^b\210\303 \210\304 \210\305\306!\207" [buffer-read-only CUA-cmd-copy-rectangle mark CUA-rect-copy-as-kill CUA-delete-rectangle CUA-keep-active nil] 2 nil nil]) (defalias 'CUA-cmd-delete-rectangle #[nil "`\301 ^b\210\203\302\303\304 \"\210\305 \210\306\307!\207" [CUA-mode-delete-to-register-0 mark set-register 48 CUA-extract-rectangle CUA-delete-rectangle CUA-keep-active nil] 3 nil nil]) (defalias 'CUA-cmd-toggle-rectangle #[nil "\203\n\302 \210\202 \303 \210 \205\203\304\305!\207\306\305!\207" [CUA-rectangle CUA-mode-auto-help CUA-rect-deactivate CUA-rect-activate CUA-help-for-rectangle t CUA-help-for-region] 2 nil nil]) (defalias 'CUA-cmd-rotate-rectangle #[nil "\300\301 \302 U\203 \303\202\304!\210\305 \207" [CUA-rect-corner CUA-rect-left CUA-rect-right 0 1 CUA-rect-set-corners] 3 nil nil]) (defalias 'CUA-cmd-toggle-rectangle-padding #[nil "\203\302\303!\210\202\304\305\304 ?\"\210\306 \210\307 \210\304 \205\310\311\305!\207" [buffer-read-only CUA-mode-status message "Cannot do padding in read-only buffer." CUA-rect-padding t CUA-pad-rectangle CUA-rect-set-corners " Pad" CUA-keep-active] 3 nil nil]) (defalias 'CUA-cmd-do-rectangle-padding #[nil "\203\301\302!\210\202\303\304!\210\305 \210\306\304!\207" [buffer-read-only message "Cannot do padding in read-only buffer." CUA-pad-rectangle t CUA-rect-set-corners CUA-keep-active] 2 nil nil]) #@167 Blank out CUA rectangle, shifting text right. The text previously in the region is not overwritten by the blanks, but instead winds up to the right of the rectangle. (defalias 'CUA-cmd-open-rectangle #[nil "\300\301\302\303\304\305%\207" [CUA-rect-operation CUA-cmd-open-rectangle nil t 1 (lambda (s e l r) (skip-chars-forward " ") (let ((ws (- (current-column) l)) (p (point))) (skip-chars-backward " ") (delete-region (point) p) (indent-to (+ r ws))))] 6 (#$ . 35507) nil]) (put 'CUA-cmd-open-rectangle 'CUA-rect 'corners) #@224 Delete all whitespace starting at left edge of CUA rectangle. On each line in the rectangle, all continuous whitespace starting at that column is deleted. With prefix arg, also delete whitespace to the left of that column. (defalias 'CUA-cmd-close-rectangle #[(arg) "\300 \210\301\302\303\304\305\306%\207" [CUA-absorb-prefix-arg CUA-rect-operation CUA-cmd-close-rectangle nil t 1 (lambda (s e l r) (when arg (skip-syntax-backward " " (line-beginning-position)) (setq s (point))) (skip-syntax-forward " " (line-end-position)) (delete-region s (point)))] 6 (#$ . 36041) "P"]) (put 'CUA-cmd-close-rectangle 'CUA-rect 'clear) #@93 Blank out CUA rectangle. The text previously in the rectangle is overwritten by the blanks. (defalias 'CUA-cmd-blank-rectangle #[nil "\300\301\302\211\303\304%\207" [CUA-rect-operation CUA-cmd-blank-rectangle nil 1 (lambda (s e l r) (goto-char e) (skip-syntax-forward " " (line-end-position)) (setq e (point)) (let ((column (current-column))) (goto-char s) (skip-syntax-backward " " (line-beginning-position)) (delete-region (point) e) (indent-to column)))] 6 (#$ . 36670) nil]) (put 'CUA-cmd-blank-rectangle 'CUA-rect 'keep) #@39 Align rectangle lines to left column. (defalias 'CUA-cmd-align-rectangle #[nil "\301\302\303\301\304\211\305\306&)\207" [x nil CUA-rect-operation CUA-cmd-align-rectangle t (lambda (s e l r) (let ((b (line-beginning-position))) (skip-syntax-backward "^ " b) (skip-syntax-backward " " b) (setq s (point))) (skip-syntax-forward " " (line-end-position)) (delete-region s (point)) (indent-to l)) (lambda (l r) (move-to-column l) (setq CUA-save-point (point)))] 7 (#$ . 37202) nil]) (put 'CUA-cmd-align-rectangle 'CUA-rect 'clear) #@43 Copy rectangle, but store as normal text. (defalias 'CUA-cmd-copy-rectangle-as-text #[(&optional delete) "\304 \203\305 \301=\203\306 \202\307 )\207\310 \311\312\n\313#\314 \203-\315\314 \"\210\2021\316!\210* \301=\203;\317 \210\320\321!\207" [CUA-global-mark-do-rect-as-text delete rect text CUA-global-mark-active t CUA-global-mark-move-rect CUA-global-mark-copy-rect CUA-extract-rectangle mapconcat #[(row) "\301P\207" [row "\n"] 2] "" CUA-register set-register kill-new CUA-delete-rectangle CUA-keep-active nil] 4 (#$ . 37735) nil]) #@43 Kill rectangle, but store as normal text. (defalias 'CUA-cmd-cut-rectangle-as-text #[nil "\301\206\302!\207" [buffer-read-only CUA-cmd-copy-rectangle-as-text delete] 2 (#$ . 38293) nil]) #@124 Replace CUA rectangle contents with STRING on each line. The length of STRING need not be the same as the rectangle width. (defalias 'CUA-cmd-string-rectangle #[(string) "\300\301\302\303\211\304\305 ?\205 \306&\207" [CUA-rect-operation CUA-cmd-string-rectangle nil t (lambda (s e l r) (delete-region s e) (skip-chars-forward " ") (let ((ws (- (current-column) l))) (delete-region s (point)) (insert string) (indent-to (+ (current-column) ws)))) CUA-rect-restriction (lambda (l r) (CUA-rect-right (max l (+ l (length string) -1))))] 7 (#$ . 38490) "sString rectangle: "]) (put 'CUA-cmd-string-rectangle 'CUA-rect 'keep) #@48 Replace CUA rectangle contents with CHARACTER. (defalias 'CUA-cmd-fill-char-rectangle #[(ch) "\300\301\302\303\304\305%\207" [CUA-rect-operation CUA-cmd-fill-char-rectangle nil t 1 (lambda (s e l r) (delete-region s e) (insert-char ch (- r l)))] 6 (#$ . 39119) "cFill rectangle with character: "]) (put 'CUA-cmd-fill-char-rectangle 'CUA-rect 'clear) #@60 Replace REGEXP with NEWTEXT in each line of CUA rectangle. (defalias 'CUA-cmd-replace-in-rectangle #[(regexp newtext) "\203\301\302!\207\303\304\305\306\307\310%\207" [buffer-read-only message "Cannot replace in read-only buffer" CUA-rect-operation CUA-cmd-replace-in-rectangle nil t 1 (lambda (s e l r) (if (re-search-forward regexp e t) (replace-match newtext nil nil)))] 6 (#$ . 39475) "sReplace regexp: \nsNew text: "]) (put 'CUA-cmd-replace-in-rectangle 'CUA-rect 'keep) #@56 Increment each line of CUA rectangle by prefix amount. (defalias 'CUA-cmd-incr-rectangle #[(increment) "\300 \210\301\302\303\304\305\306%\210\307\304!\207" [CUA-absorb-prefix-arg CUA-rect-operation CUA-cmd-incr-rectangle nil t 1 (lambda (s e l r) (cond ((re-search-forward "0x\\([0-9a-fA-F]+\\)" e t) (let* ((txt (buffer-substring-no-properties (match-beginning 1) (match-end 1))) (n (string-to-number txt 16)) (fmt (concat "0x%0" (length txt) "x"))) (replace-match (format fmt (+ n increment))))) ((re-search-forward "\\( *-?[0-9]+\\)" e t) (let* ((txt (buffer-substring-no-properties (match-beginning 1) (match-end 1))) (n (string-to-number txt 10)) (fmt (concat "%" (length txt) "d"))) (replace-match (format fmt (+ n increment))))) (t nil))) CUA-keep-active] 6 (#$ . 39960) "p"]) (put 'CUA-cmd-incr-rectangle 'CUA-rect 'clear) #@49 Last format used by CUA-cmd-sequence-rectangle. (defvar CUA-rect-seq-format "%d" (#$ . 40798)) #@118 Resequence each line of CUA rectangle starting from FIRST. The numbers are formatted according to the FORMAT string. (defalias 'CUA-cmd-sequence-rectangle #[(first incr fmt) "G\302U\203\f \202\303\304\305\306\307\310%\207" [fmt CUA-rect-seq-format 0 CUA-rect-operation CUA-cmd-sequence-rectangle nil t 1 (lambda (s e l r) (delete-region s e) (insert (format fmt first)) (setq first (+ first incr)))] 6 (#$ . 40900) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (string-to-number (read-string "Start value: (0) " nil nil "0"))) (string-to-number (read-string "Increment: (1) " nil nil "1")) (read-string (concat "Format: (" CUA-rect-seq-format ") ")))]) (put 'CUA-cmd-sequence-rectangle 'CUA-rect 'clear) #@38 Convert the rectangle to upper case. (defalias 'CUA-cmd-upcase-rectangle #[nil "\300\301\302\211\211\303%\207" [CUA-rect-operation CUA-cmd-upcase-rectangle nil (lambda (s e l r) (upcase-region s e))] 6 (#$ . 41642) nil]) (put 'CUA-cmd-upcase-rectangle 'CUA-rect 'clear) #@38 Convert the rectangle to lower case. (defalias 'CUA-cmd-downcase-rectangle #[nil "\300\301\302\211\211\303%\207" [CUA-rect-operation CUA-cmd-downcase-rectangle nil (lambda (s e l r) (downcase-region s e))] 6 (#$ . 41918) nil]) (put 'CUA-cmd-downcase-rectangle 'CUA-rect 'clear) (defalias 'CUA-rect-aux-replace #[(width adjust keep replace pad format-fct &optional insert-fct) "\306\307!\310 \311 Z\312Z\206\313 \314\211\315V\203!\212 q\210\316 \210\2032 \210\2026\317!\210\203E\fed\"\210)\203neb\210m\204n`\320 { B\211@G\211\fV\203f\n\202g\f\315y\210\202M)\321 !\210\205\233\322 !\323\314\211\324\325%\210\203\223\310\311 \f\\\312\\!\210\205\233\326\324!-\207" [insert-fct z y r w m get-buffer-create "*CUA temp*" CUA-rect-right CUA-rect-left -1 CUA-extract-rectangle nil 1 erase-buffer CUA-insert-rectangle line-end-position kill-buffer reverse CUA-rect-operation t (lambda (s e l r) (let (cc) (goto-char e) (skip-chars-forward " ") (setq cc (current-column)) (delete-region s e) (if (not z) (setq y 0) (insert (car z)) (setq y (length (car z))) (setq z (cdr z))) (indent-to cc))) CUA-keep-active width format-fct fill-column replace pad adjust keep] 7]) (put 'CUA-rect-aux-replace 'lisp-indent-function 4) #@129 Replace rectagle with filled TEXT read from minibuffer. A numeric prefix argument is used a new width for the filled rectangle. (defalias 'CUA-cmd-text-fill-rectangle #[(width text) "\301\302\211\211\303\304\305&\207" [width CUA-rect-aux-replace t 1 fill-region (lambda nil (insert text))] 8 (#$ . 43182) (list (prog1 (prefix-numeric-value current-prefix-arg) (CUA-absorb-prefix-arg)) (read-from-minibuffer "Enter text: " nil nil nil nil))]) #@108 Fill contents of current rectagle. A numeric prefix argument is used a new width for the filled rectangle. (defalias 'CUA-cmd-self-fill-rectangle #[(width) "\301 \210\302\303\211\211\304\305&\207" [width CUA-absorb-prefix-arg CUA-rect-aux-replace t 1 fill-region] 7 (#$ . 43633) "p"]) #@125 Run shell command on rectangle like `shell-command-on-region'. With prefix arg, replace rectangle with output from command. (defalias 'CUA-cmd-shell-command-on-rectangle #[(replace command) "\301\302\303\211\304\305&\207" [replace CUA-rect-aux-replace -1 t 1 (lambda (s e) (shell-command-on-region s e command replace replace nil))] 7 (#$ . 43927) (list (prog1 current-prefix-arg (CUA-absorb-prefix-arg)) (read-from-minibuffer "Shell command on rectangle: " nil nil nil 'shell-command-history))]) #@37 Reverse the lines of the rectangle. (defalias 'CUA-cmd-reverse-rectangle #[nil "\300\301\302\211\211\211\303&\207" [CUA-rect-aux-replace 0 t reverse-region] 7 (#$ . 44432) nil]) #@71 Remove the first line of the rectangle and scroll remaining lines up. (defalias 'CUA-cmd-scroll-rectangle-up #[nil "\300\301\302\211\211\211\303&\207" [CUA-rect-aux-replace 0 t (lambda (s e) (if (= (forward-line 1) 0) (delete-region s (point))))] 7 (#$ . 44617) nil]) #@118 Insert a blank line at the first line of the rectangle. The remaining lines are scrolled down, losing the last line. (defalias 'CUA-cmd-scroll-rectangle-down #[nil "\300\301\302\211\211\211\303&\207" [CUA-rect-aux-replace 0 t (lambda (s e) (goto-char s) (insert "\n"))] 7 (#$ . 44893) nil]) (defalias 'CUA-action-insert-char-rectangle #[nil "\203\n\301 \210\202\302\303 \304H!\210\305\306!\210\306\207" [buffer-read-only ding CUA-rect-indent-rectangle this-single-command-keys 0 CUA-keep-active t] 3]) #@44 Delete char to left or right of rectangle. (defalias 'CUA-cmd-delete-char-rectangle #[nil "\303 \304 \305\306\307\305\310 \311\312&+\207" [indent pad col CUA-rect-insert-col CUA-rect-padding nil CUA-rect-operation CUA-cmd-delete-char-rectangle t (lambda (s e l r) (move-to-column (if (CUA-rect-right-side t) (max (1+ r) col) l) pad) (if (bolp) nil (delete-backward-char 1) (if (CUA-rect-right-side t) (CUA-rect-insert-col (current-column)) (setq indent (- l (current-column)))))) (lambda (l r) (when (and indent (> indent 0)) (aset CUA-rectangle 2 (- l indent)) (aset CUA-rectangle 3 (- r indent 1))))] 7 (#$ . 45406) nil]) (put 'CUA-cmd-delete-char-rectangle 'CUA-rect 'corners) #@47 Set rectangle corner at mouse click position. (defalias 'CUA-cmd-mouse-set-rectangle-corner #[(event) "\302!\210\303 \203!\304\305\3068:\203\306\202\3078)!@\310\"\210\311 \203-\312i!\210\2021\313i!\210\314 \306Y\203?\315\310!\210\202C\316\310!\210\317 \210\320\321!\210\322 \210\323\310!\210\324\211\207" [event CUA-start-point mouse-set-point CUA-rect-padding move-to-column posn-col-row 2 1 t CUA-rect-right-side CUA-rect-right CUA-rect-left CUA-rect-corner CUA-rect-bot CUA-rect-top CUA-pad-rectangle CUA-rect-insert-col 0 CUA-rect-set-corners CUA-keep-active nil] 4 (#$ . 46096) "e"]) (defalias 'CUA-cmd-copy-to-global-mark #[nil "\304 \203 \305 \207\306 `\211\nX\204\n\307\n\"*\207" [CUA-rect-last-killed CUA-rectangle end start nil CUA-global-mark-copy-rect mark CUA-global-mark-copy-region] 4 nil nil]) (defalias 'CUA-cmd-copy1-to-global-mark #[(n) "\303 \210\304m\206`\211\n\\b\210\305 `\")\207" [CUA-rect-last-killed p n CUA-absorb-prefix-arg nil CUA-global-mark-copy-region] 4 nil "p"]) (defalias 'CUA-cmd-cut-to-global-mark #[nil "\203\305 \207\306\n\203\307 \207\310 `\211X\204\f\311\f\"*\207" [buffer-read-only CUA-rect-last-killed CUA-rectangle end start CUA-cmd-copy-to-global-mark nil CUA-global-mark-move-rect mark CUA-global-mark-move-region] 4 nil nil]) (defalias 'CUA-cmd-cut1-to-global-mark #[(n) "\305 \210\306\306\306m\206`\211\f\\b\210\307`\")\207" [CUA-rect-last-killed current-prefix-arg overriding-terminal-local-map p n CUA-absorb-prefix-arg nil CUA-global-mark-move-region] 4 nil "p"]) (defalias 'CUA-cmd-delete-char-at-global-mark #[(arg) "\301 \210\302 ?\205\303\304\"\210\305\207" [arg CUA-absorb-prefix-arg window-minibuffer-p CUA-global-mark-delete-char "Deleted" t] 3 nil "p"]) (defalias 'CUA-cmd-delete-backward-char-at-global-mark #[(arg) "\301 \210\302 ?\205\303[\304\"\210\305\207" [arg CUA-absorb-prefix-arg window-minibuffer-p CUA-global-mark-delete-char "Deleted backward" t] 3 nil "p"]) (defalias 'CUA-action-insert-char-at-global-mark #[nil "\300 ?\205\301\302\303 \304H!\305\"\210\306\207" [window-minibuffer-p CUA-global-mark-insert char-to-string this-single-command-keys 0 "Inserted" t] 4]) (defalias 'CUA-action-insert-newline-at-global-mark #[nil "\300 ?\205\301\302!\210\303\207" [window-minibuffer-p CUA-global-mark-insert "\n" t] 2]) (defalias 'CUA-cmd-insert-newline-at-global-mark #[nil "\301 ?\205 \302!\207" [CUA-orig-command CUA-action-insert-newline-at-global-mark call-interactively] 2 nil nil]) (defalias 'CUA-cmd-ignore #[(arg) "\300 \207" [CUA-absorb-prefix-arg] 1 nil "P"]) (defalias 'CUA-lookup-key #[(map key) "\303 \"\211\205\n\250?\205\n)\207" [map key k lookup-key] 4]) #@553 Specifies how various editing functions behave in CUA mode. The value is a list of lists. For each element in the list, the first element is an action function and the rest of the list are names of editing commands which shall perform the specified action if the region is active and CUA mode is enabled. Note: These actions are only used if an action is not specified in the state specific CUA keymap for the current command. The action functions are called without arguments, and if they return a non-nil value, the original command is not executed. (defvar CUA-region-commands '((CUA-action-delete-before self-insert-command self-insert-iso insert-register newline-and-indent newline open-line) (CUA-action-delete delete-backward-char backward-delete-char backward-delete-char-untabify delete-char) (CUA-action-cut kill-region) (CUA-action-copy copy-region-as-kill kill-ring-save) (CUA-action-paste yank clipboard-yank) (CUA-action-paste-pop yank-pop) (CUA-action-cancel keyboard-escape-quit keyboard-quit)) (#$ . 48811)) (defalias 'CUA-action-move #[nil "\204 \204\304\305\306 \307H!>\203\n\204 \310\311!\210\202 \311\n\205+ \205+\312!\207" [CUA-explicit-region-start CUA-rectangle mark-active this-command shift event-modifiers this-single-command-keys 0 set-mark-command nil CUA-rect-resize] 4]) (defalias 'CUA-action-cancel #[nil "\304\304\n\203\305 \210\304\306 \205\307\310!\207" [mark-active CUA-explicit-region-start CUA-rectangle CUA-last-rectangle nil CUA-rect-deactivate CUA-global-mark-active CUA-global-mark-deactivate t] 2]) (defalias 'CUA-action-delete-before #[nil "\203 \203\302 \210\202\303 \210\304\207" [mark-active CUA-rectangle CUA-cmd-delete-rectangle CUA-cmd-delete-region nil] 1]) (defalias 'CUA-action-delete #[nil "\205 \203\302 \210\202\303 \210\304\207" [mark-active CUA-rectangle CUA-cmd-delete-rectangle CUA-cmd-delete-region t] 1]) (defalias 'CUA-action-cut #[nil "\204\303\207\304 \203\305\202 \203\306\202\307\310\207" [mark-active CUA-rectangle this-command t CUA-global-mark-active CUA-cmd-cut-to-global-mark CUA-cmd-cut-rectangle CUA-cmd-cut-region nil] 1]) (defalias 'CUA-action-copy #[nil "\204\303\207\304 \203\305\202 \203\306\202\307\310\207" [mark-active CUA-rectangle this-command t CUA-global-mark-active CUA-cmd-copy-to-global-mark CUA-cmd-copy-rectangle CUA-cmd-copy-region nil] 1]) (defalias 'CUA-action-paste #[nil "?\205\230\306 \205\307\306 !\n\203.\203\310 \210\202.`\311 {\f@\230\203+\312\313!\210\314 \210\306 \203T :\203?\315 !\210\202P ;\203J c\210\202P\316\317\306 \"\210\320\202\227 \203\200\f\205^\f@ @=\203\200\320=\204w\321\322 \210`B\315 A!\210\320\202\227\323 \203\226m\204\226\324``T\"\210\313u\210\320\202\227\325)\207" [buffer-read-only reg mark-active CUA-rectangle kill-ring CUA-rect-last-killed CUA-register get-register CUA-cmd-delete-rectangle mark current-kill 1 CUA-cmd-delete-region CUA-insert-rectangle message "Nothing in register %c" t CUA-action-paste-rect undo-boundary CUA-global-mark-active CUA-global-mark-copy-region nil buffer-undo-list CUA-this-action] 3]) (defalias 'CUA-action-paste-pop #[nil "\302=\203\303 \210\304\305\207" [CUA-last-action this-command CUA-action-paste-rect undo yank nil] 2]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list CUA-ind-do-initialize boundp t] 2) (defalias 'CUA-ind-init-indications #[(&optional reset) "\301\302!\204\303\304\302\"\210\305\302\306\"\210\307\302\310\"\210\301\311!\204*\303\304\311\"\210\305\311\312\"\210\307\311\310\"\210\301\313!\204?\303\304\313\"\210\307\313\314\"\210\305\313\315\"\210\316\211\207" [CUA-ind-do-initialize face-background CUA-rectangle-face copy-face region set-face-background "maroon" set-face-foreground "white" CUA-rectangle-noselect-face "dimgray" CUA-global-mark-face "black" "cyan" nil] 3]) (byte-code "\303\304!\210\301B\305\301!\204\306\302B\305\302!\204\306\306\207" [current-load-list CUA-ind-cursor-blink-timer CUA-ind-cursor-blink-off require timer boundp nil] 2) (defalias 'CUA-ind-cursor-blink-toggle #[nil "?\211\203\306\307\310\"\202( \203\311 \203\n\202(\202(\f\203'\n\202(\211\2050\312 !)\207" [CUA-ind-cursor-blink-off CUA-rectangle CUA-mode-overwrite-cursor-color CUA-mode-normal-cursor-color overwrite-mode cursor frame-parameter nil foreground-color CUA-rect-padding set-cursor-color] 4]) (defalias 'CUA-ind-update-indications #[nil "\203\306 \210 \205\210\n\203\2020\f\203%\307 \203 \2020\2020\203. \2020\310 \203c\204A\203c\203J\203s\203s\204s\311\312\313\314#\202s\203s\315!\210\316\316\205\207\317\316\320\"\232?\205\207\321!)\207" [CUA-ind-do-initialize CUA-mode-use-cursor-colors buffer-read-only CUA-mode-read-only-cursor-color CUA-rectangle CUA-mode-overwrite-cursor-color CUA-ind-init-indications CUA-rect-padding CUA-global-mark-active run-at-time t 0.25 CUA-ind-cursor-blink-toggle cancel-timer nil frame-parameter cursor-color set-cursor-color CUA-mode-normal-cursor-color overwrite-mode cursor CUA-mode-global-mark-cursor-blink CUA-mode-global-mark-cursor-color CUA-ind-cursor-blink-timer CUA-ind-cursor-blink-off] 4]) (defalias 'CUA-absorb-prefix-arg #[nil "\302\302\211\207" [current-prefix-arg overriding-terminal-local-map nil] 2]) (defalias 'CUA-kbd-macro-fixup #[(e1 &optional e2) "\203\303 \210\304 !\210\n\203\304\n!\210\305\207" [defining-kbd-macro e1 e2 cancel-kbd-macro-events store-kbd-macro-event nil] 2]) (defalias 'CUA-prefix-handler #[(prompt) "\306 \307\211 \203\217\203\217\204&\204&\203\217\203\217\204\217\2035\204\217G\310U\204I\311\312\313O\"\314=\203\217\315>\204\217\316>\203\206 \312U\204\206\317\312 \320#\204\206\321\322 \211!9\204\206\323=\204\206\f\nU\203\217\324\f!\211\203\217\f!\236\211\204\240\n\203\232\325\f\n\"\202\264\325\f!\202\264\324 A\n\"\210\n\203\260\n\"B\"\325 A!,\207" [last-input-char map ev keys prefix CUA-mode this-command-keys nil 1 CUA-lookup-key 0 -1 digit-argument (describe-key describe-key-briefly) (delay twice) sit-for t event-basic-type read-event delay CUA-kbd-macro-fixup vector mark-active CUA-rectangle transient-mark-mode CUA-mode-highlight-shift-only CUA-explicit-region-start executing-kbd-macro CUA-mode-remap-cx-shift-only global-map this-command CUA-mode-inhibit-method CUA-mode-inhibit-delay CUA-prefix-key-mappings unread-command-events] 5]) #@147 Explicit handing of C-x 8 prefix when CUA mode is used. This is necessary since CUA mode installs its own handler for C-x in key-translation-map. (defalias 'CUA-ctl-x-8-prefix-handler #[nil "\204C\305 \306\"\204\307\202&\305 \310\"\204\311\202&\305 \312\"\204%\313\202&\314\315\302!\2034\305\n\316\"\204C\317\320\321!\210)\322\323!\302#\210\fB\211\207" [CUA-ctl-x-8-prefix-key global-map iso-transl-ctl-x-8-map key-translation-map unread-command-events lookup-key [16777272] 16777272 [8388664] 8388664 [83886136] 83886136 92274744 boundp [47 111] nil require iso-transl define-key vector] 4 (#$ . 55311) nil]) #@60 Keymap that overrides other keymaps when region is active. (defvar CUA-overriding-region-map nil (#$ . 55945)) #@63 Keymap that overrides other keymaps when rectangle is active. (defvar CUA-overriding-rectangle-map nil (#$ . 56062)) #@65 Keymap that overrides other keymaps when global mark is active. (defvar CUA-overriding-global-mark-map nil (#$ . 56185)) #@79 List of commands whose global mapping should override mode specific mappings. (defvar CUA-overriding-global-mark-commands '(self-insert-command self-insert-iso indent-for-tab-command) (#$ . 56312)) (defalias 'CUA-lookup-overriding-maps #[(keys &optional command) "\203 \306 \"\203 \307\207\310 \203!\311 \203!\306\311 \"\203!\307\207\n\2039\306 \"\312\f >\2035\f\2026\n!)\313 \203F\306\f \"\206] \203S\306 \"\206]\205]\306 \"\207" [overriding-terminal-local-map keys command global-map gcmd CUA-overriding-global-mark-commands CUA-lookup-key nil window-minibuffer-p current-local-map vector CUA-global-mark-active CUA-overriding-global-mark-map CUA-rectangle CUA-overriding-rectangle-map mark-active CUA-overriding-region-map] 3]) (defalias 'CUA-delete-selection #[(command) "\302N\206 \303N\211\205- \304=\203\305\202- \306=\203\"\307\202- \310=\203,\311\202-\312)\207" [command ds delete-selection pending-delete yank CUA-action-paste kill CUA-action-copy supersede CUA-action-delete CUA-action-delete-before] 3]) #@152 Function run prior to command to check for special region handling. If current command is a movement and the key is shifted, set or expand the region. (defalias 'CUA-pre-hook #[nil "\300\301\302\217\207" [nil (byte-code "\306 \211G\307U\205 \310!\311\311\311` \203! 9\205:\310\"\206:\312N\206:\313!\211\203_\n\203Q\314\n!\203Q\n\211 \202_\n\203]\315\316\n\"\210\202_\311\311\f\203v\317\311\311\211\202\201\205\201p`B\211-\207" [keys new-cmd action CUA-this-action ignore CUA-save-point this-single-command-raw-keys 1 CUA-lookup-overriding-maps nil CUA CUA-delete-selection fboundp message "Unknown function: %S" CUA-cmd-ignore this-command CUA-orig-command CUA-last-action CUA-start-point prefix-arg current-prefix-arg CUA-rectangle] 4) ((error))] 3 (#$ . 57374)]) #@68 Function run after command to check for rectangle region handling. (defalias 'CUA-post-hook #[nil "\300\301\302\217\207" [nil (byte-code "\203S\306 \203S\307\310!\210p\311 !=\203\312\313 !!\204S\314 `\315\316\311 !\317\"\210\313 !b\210\312\313 !!\204K\320\321 \322Z\211\323V\203H\n\202I\324!\210\325\f!\210b\210+ \203e (\315\317)\315*\202\265(\203\265+\203\265+@p\232\203\265+A`U\204\265\326 \203\213\327i!\210\202\217\330i!\210\331 \332Y\203\235\333\317!\210\202\241\334\317!\210\335 \203\265,\203\257\336\202\260\337-B-\315+(\203\320)\203\315*\204\315\340 \210\202\320\341 \210)\203\332*\203\335\315./\203\373(\203\355\342 \210\202\373)\203\373\343\344\345 `.$\210\346\314 !\204
(?\205
0\203
.?\202
\3171\3152\347 \207" [CUA-mode-global-mark-visible CUA-global-mark h p w CUA-next-rectangle CUA-global-mark-active sit-for 0 marker-buffer pos-visible-in-window-p marker-position selected-window nil switch-to-buffer-other-window t recenter window-height 4 1 (4) select-window CUA-rect-right-side CUA-rect-right CUA-rect-left CUA-rect-corner 2 CUA-rect-bot CUA-rect-top CUA-rect-padding 16777296 -134217648 CUA-rect-highlight CUA-rect-deactivate CUA-rect-assert message "Mark=%d Point=%d Expl=%s" mark window-minibuffer-p CUA-ind-update-indications CUA-rectangle mark-active deactivate-mark CUA-start-point CUA-mode-use-hyper-key unread-command-events CUA-explicit-region-start CUA-debug CUA-mode-highlight-shift-only transient-mark-mode CUA-cur-register] 5) ((error))] 3 (#$ . 58200)]) #@358 List of cursor movement functions for which to create CUA key mappings. Each element in the list is a list where the first element is the name of the cursor movement function, and the rest of the list are keys to which the function shall be bound. For each key listed, both the key itself and the shifted version S-key are bound to the specified function. (defvar CUA-movement-keys '((forward-char right) (backward-char left) (next-line down) (previous-line up) (forward-word control right) (backward-word control left) (end-of-line end) (beginning-of-line home) (end-of-buffer control end) (beginning-of-buffer control home) (scroll-up next) (scroll-down prior) (forward-paragraph control down) (backward-paragraph control up)) (#$ . 59762)) (defalias 'CUA-help-for-region #[(&optional help) "\301\203 \302\202\n\303\304P!\207" [help message "C-?:help " "" "C-z:undo C-x:cut C-c:copy C-v:paste S-ret:rect"] 3 nil nil]) (defalias 'CUA-help-for-rectangle #[(&optional help) "\301\203 \302\202\n\303\304P!\207" [help message "C-?:help " "" "M-p:pad M-o:open M-c:close M-b:blank M-s:string M-f:fill M-i:incr M-n:seq"] 3 nil nil]) (defalias 'CUA-hyper-key #[(map key fct &optional other) "\305=\203\306<\204C \203\307\310B!\202)\n\203$\n\202)\307\311B!\312\f#\210\n\205? \313=\205?\312\n\f#\207" [key CUA-mode-use-hyper-key other map fct space 32 vector hyper meta define-key also] 4]) (defalias 'CUA-mode-init-maps #[(emacs-bindings) "\2043\306 \n\204\307 \310\311#\210\307 \312\313#\210\314 \315\316\317$\210\307 \320\321#\210\307 \322\323#\210\307 \324\325#\210 )\204|
\326 \n\204J\307 \327\330#\210\307 \331\332#\210\307 \333\316#\210\314 \315\334\335$\210\307 \336\337#\210\307 \340\337#\210\307 \341\342#\210\314 \343\344#\210\314 \345\346#\210\314 \347\350#\210\314 \351\352#\210\314 \353\354#\210\314 \355\356#\210\314 \357\360#\210\314 \361\362#\210\314 \363\364#\210\314 \365\366#\210\314 \367\370#\210\314 \371\372#\210\314 \373\374#\210\314 \375\376#\210\314 \377\201E#\210\314 \201F\201G#\210\314 \201H\201I#\210\314 \201J\201K#\210\314 \201L\201M#\210\314 \201N\201O#\210\314 \201P\201Q#\210\314 \201R\201S#\210\314 \201T\201U#\210\314 \201V\201W#\210\314 \201X\201Y#\210\314 \201Z\201[#\210\314 \201\\\201]#\210\307 \201^\201_#\210\307 \201`\201a#\210\307 \201b\201a#\210\307 \201c\201d#\210\307 \201e\201d#\210\307 \201f\201d#\210 )\f\204\306 \n\203\224
\307 \201g\201h#\210\202\262
\307 \201i\201j#\210\307 \201k\201l#\210\307 \201m\201h#\210\307 \201n\201o#\210\307 \201p\201q#\210\307 \201b\201q#\210\307 \201r\201s#\210\307 \201t\201u#\210\307 \201v\201u#\210\307 \201w\201x#\210\307 \201y\201z#\210\307 \201{\201|#\210\307 \340\201|#\210 )\201}\201~N?\205\213 \201\211@ABB\203`B@\211@@A@A@BAB@\203-\201\200@@\201~A#\210@A\211@\202G+C\201DBB\205\212B@@DBAB\201\200D\201~\201\201#\210\202j*\207" [CUA-overriding-region-map m emacs-bindings CUA-overriding-rectangle-map CUA-overriding-global-mark-map CUA-region-commands make-sparse-keymap define-key [(control insert)] CUA-cmd-copy-region [(shift delete)] CUA-cmd-cut-region CUA-hyper-key space CUA-cmd-toggle-rectangle [(shift return)] [(control 105)] CUA-cmd-indent-region-left [(control shift 105)] CUA-cmd-indent-region-right [(control 63)] CUA-help-for-region make-keymap [(control insert)] CUA-cmd-copy-rectangle [(shift delete)] CUA-cmd-cut-rectangle [(control 32)] CUA-cmd-end-rectangle [(shift return)] [return] CUA-cmd-rotate-rectangle " " [mouse-1] CUA-cmd-mouse-set-rectangle-corner up CUA-cmd-move-rectangle-up down CUA-cmd-move-rectangle-down left CUA-cmd-move-rectangle-left right CUA-cmd-move-rectangle-right (control up) CUA-cmd-scroll-rectangle-up (control down) CUA-cmd-scroll-rectangle-down 97 CUA-cmd-align-rectangle 98 CUA-cmd-blank-rectangle 99 CUA-cmd-close-rectangle 102 CUA-cmd-fill-char-rectangle 70 CUA-cmd-self-fill-rectangle 105 CUA-cmd-incr-rectangle 107 CUA-cmd-cut-rectangle-as-text 108 CUA-cmd-downcase-rectangle 109 l act list CUA-movement-keys cmd CUA-cmd-copy-rectangle-as-text 110 CUA-cmd-sequence-rectangle 111 CUA-cmd-open-rectangle 112 CUA-cmd-toggle-rectangle-padding 80 CUA-cmd-do-rectangle-padding 114 CUA-cmd-replace-in-rectangle 82 CUA-cmd-reverse-rectangle 115 CUA-cmd-string-rectangle 116 CUA-cmd-text-fill-rectangle 117 CUA-cmd-upcase-rectangle 124 CUA-cmd-shell-command-on-rectangle 39 CUA-cmd-restrict-prefix-rectangle 47 CUA-cmd-restrict-regexp-rectangle [(control 63)] CUA-help-for-rectangle [backspace] CUA-cmd-delete-char-rectangle "" [self-insert-command] CUA-action-insert-char-rectangle [self-insert-iso] [indent-for-tab-command] [(control 121)] CUA-cmd-copy1-to-global-mark [(control insert)] CUA-cmd-copy-to-global-mark [(shift delete)] CUA-cmd-cut-to-global-mark [(control 118)] [(control 100)] CUA-cmd-cut1-to-global-mark [backspace] CUA-cmd-delete-backward-char-at-global-mark [delete] CUA-cmd-delete-char-at-global-mark [self-insert-command] CUA-action-insert-char-at-global-mark [self-insert-iso] [newline] CUA-action-inset-newline-at-global-mark [newline-and-indent] CUA-action-insert-newline-at-global-mark [return] CUA-cmd-insert-newline-at-global-mark forward-char CUA nil put CUA-action-move] 6]) #@267 Like define-key with specific short-cuts for CUA maps. In MAP, define KEY to run command CMD. Special values for MAP are 'region, 'rect, 'gm, and 'all to bind into the CUA maps for the active region, active rectangle, and active global marker resp., or all of them. (defalias 'CUA-define-key #[(map key cmd) "9\203 \306! \307>\203\310\n#\210 \311>\203!\310\f#\210 \312>\205,\310 #\207" [key map CUA-overriding-region-map cmd CUA-overriding-rectangle-map CUA-overriding-global-mark-map vector (region all) define-key (rect all) (gm all)] 4 (#$ . 65051)]) #@58 Define a key to run the same CUA command as another key. (defalias 'CUA-define-key-as #[(map key key2) "9\203 \306! 9\203\306 !\n\307>\203(\310 \"\211\203'\311\f#\210)\n\312>\203>\310 \"\211\203=\311 \f#\210)\n\313>\205U\310\f \"\211\205T\311\f\f#)\207" [key key2 map CUA-overriding-region-map cmd CUA-overriding-rectangle-map vector (region all) CUA-lookup-key define-key (rect all) (gm all) CUA-overriding-global-mark-map] 5 (#$ . 65625)]) #@157 Like `global-set-key' but also binds shifted KEY to COMMAND. KEY should be a simple symbol or character, like home or ?\C-e, or a list like (control home). (defalias 'CUA-movement-key #[(key command) "\302!\203\n\303H<\204C\304\305! \"\210\304\305\306B! \"\210\307 \310\311#\207" [key command vectorp 0 global-set-key vector shift put CUA CUA-action-move] 4 (#$ . 66098)]) #@98 Define even more compatibility bindings. Optional argument BIND identifies what bindings to add. (defalias 'CUA-mode-bindings #[(&optional bind) "\306=\203\307 \310\311#\210\307 \312\313#\210\307 \314\315#\207\316=\203G\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\317\326\327\"\210\307\n\330\331#\210\317\332\333\"\210\317\334\335\"\210\317\336\337\"\207\340=\203\222\307 \341\342#\210\307 \343\344#\210\307 \345\346#\210\307 \347\350#\210\351\352!\203t\307 \353\352#\210\202z\307 \354\350#\210\307 \355\356#\210\307\357\360#\210\307 \361\362#\210\307 \363\364#\207\365=\203\323\366\327\367 #\210\366\370\367 #\210\307 \371\372#\210\307 \373\335#\210\307 \374\325#\210\307 \375\376#\210\307 \377\201G#\210\201H \201I\201J\201K$\207\201L=\2036
\307 \201M\313#\210\307 \201N\315#\210\307 \201O\311#\210\307 \201P\201Q#\210\307 \201R\372#\210\307 \201S\335#\210\307 \201T\325#\210\307 \201U\376#\210\307 \201V\201G#\210\201H \201I\201J\201W$\207\201X=\203\241
\307 \201Y\367#\210\307\f\201Z\201[#\210\307 \201\\\311#\210 \204a
\201] @\211A\203\226
\307 \201^A@@!\201_#\210A@A;\203\215
A@\201`A@A!\241\210AA\211A\204i
)\307\f\201a\201b#\207\201c=\205\360
B\201d\211\211CDEFF\205\357
F@\211D@EDACFAF\307 \201^C!E#\210\307 \201^\201cCB!E#\210\202\270
,\207" [bind global-map function-key-map isearch-mode-map ctl-x-map key-translation-map sun3 define-key [f16] yank [f18] copy-region-as-kill [f20] kill-region pc-select global-set-key [f1] help [f6] other-window [delete] delete-char [(meta backspace)] undo [(meta delete)] [(meta 100)] [(control meta delete)] kill-sexp [(control backspace)] backward-kill-word [(control escape)] electric-buffer-list windows-nt [(control 97)] mark-whole-buffer [(control 112)] print-buffer [(control 115)] save-buffer [(control 110)] find-file fboundp dlgopen-open-files [(control 111)] [(control 111)] [(control 102)] isearch-forward [(control 102)] isearch-repeat-forward [(control 104)] query-replace [f5] insert-time-stamp emacs substitute-key-definition CUA-undo advertised-undo [(control delete)] kill-word [(control backspace)] [delete] [(control 32)] CUA-set-mark [(shift control 32)] CUA-prefix-key-mappings map CUA-movement-keys key elt cmd list CUA-cmd-toggle-global-mark CUA-hyper-key space CUA-cmd-begin-rectangle [(shift return)] CUA [(control insert)] [(shift delete)] [(shift insert)] [(meta insert)] yank-pop [(control delete)] [(control backspace)] [delete] [(control 32)] [(shift control 32)] [(shift return)] zxcv [(control 122)] [(control 120)] CUA-exchange-point-and-mark [(control 118)] make-sparse-keymap vector CUA-prefix-handler read-kbd-macro [56] CUA-ctl-x-8-prefix-handler shift nil] 6 (#$ . 66488)]) #@730 Toggle CUA keybinding mode. When ON, C-x and C-c will cut and copy the selection if the selection is active (i.e. the region is highlighted), and typed text replaces the active selection. When OFF, typed text is just inserted at point. If non-nil, the optional second argument EXTRA specifies additional key bindings as defined by CUA-mode-bindings. The following key bindings are made unless optional third argument NOBIND is non-nil: C-z is undo C-v is yank C-x C-x is CUA-exchange-point-and-mark which doesn't enable the mark C-space starts/cancels the normal region S-C-space sets/cancels the global marker S-return starts a rectangular region, if repeated toggles between rectangle and normal region. (defalias 'CUA-mode #[(&optional arg extra nobind) "\204 ?\2029\203\306\202\307!\310V\n\206\311\232\312!\210\203/\313\311!\210\202;\313\314!\210\313\315!\210\313\316!\210\f\203C\313\f!\210)\306\317\"\320\321!\210\320\322!\210\320\323!\210\320\324!\210\320\325!\210\326\327!\210 \203\213\330\331\332\"\210\330\333\334\"\210\335\336\306\327#\210#\203\231\337\301$\"\204\231\340$B$\202\231\341\331\332\"\210\341\333\334\"\210\327\306!\210 \205\251%\203\250?\202\251\306\211&\207" [arg CUA-mode CUA-mode-emacs-bindings emacs-bindings extra mark-even-if-inactive t prefix-numeric-value 0 emacs CUA-mode-init-maps CUA-mode-bindings CUA zxcv shift nil make-variable-buffer-local CUA-explicit-region-start CUA-rectangle CUA-rect-overlays CUA-mode-status CUA-undo-list cancel-function-timers CUA-tidy-undo-lists add-hook pre-command-hook CUA-pre-hook post-command-hook CUA-post-hook run-with-idle-timer 10 assoc (CUA-mode CUA-mode-status) remove-hook highlight-nonselected-windows CUA-mode-use-modeline minor-mode-alist CUA-mode-highlight-shift-only transient-mark-mode] 4 (#$ . 69242) "P"]) (defalias 'CUA-mode-on #[nil "\300\301!\207" [CUA-mode t] 2 nil nil]) (defalias 'CUA-debug #[nil "?\211\207" [CUA-debug] 2 nil nil]) #@174 Remap ctl-x commands [C-x r ...] onto [PREFIX ...]. Unless the optional third arguments NO-ORIG is non-nil, the original binding of [PREFIX] is remapped to [PREFIX PREFIX]. (defalias 'CUA-remap-ctl-x-commands #[(ctl-x-key prefix &optional no-orig) "\306 \"\306\n\"\f\203\307 \f\"\210?\205.\f\205. \205.\f =?\205.\307 \211P \"*\207" [global-map prefix ctl-x-map ctl-x-key new-prefix-cmd org-prefix-cmd CUA-lookup-key global-set-key no-orig] 4 (#$ . 71234)]) #@119 Bind the keys in KP list to BIND list in function-key-map. If BIND is 'unbind, all bindings for the keys are removed. (defalias 'CUA-keypad-bind #[(kp bind) "\303\300!\204 \304  \305=\203#\n\205@\306\307\n@!\310#\210\nA\211\202\n\205@ \205@\306\307\n@!\307 @!#\210\nA A\202#\207" [function-key-map bind kp boundp make-sparse-keymap unbind define-key vector nil] 6 (#$ . 71710)]) #@739 Set keypad bindings in function-key-map according to MODE. If optional second argument NUMLOCK is non-nil, the NumLock On bindings are changed. Otherwise, the NumLock Off binding are changed. Mode Binding ------------------------------------------------------------- 'prefix Command prefix argument, i.e. M-0 .. M-9 and M-- 'S-cursor Bind shifted keypad keys to the shifted cursor movement keys. 'cursor Bind keypad keys to the cursor movement keys. 'numeric Plain numeric, i.e. 0 .. 9 and . (or DECIMAL arg) 'none Removes all bindings for keypad keys in function-key-map. If mode is 'numeric and the optional third argument DECIMAL is non-nil, the decimal key on the keypad i