| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-yank.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:47 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-yank.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 "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-kill #[(nn &optional no-delete) "\302=\203\n \303\304!\207\305 !\207" [major-mode nn calc-mode calc-do #[nil "\306 \210\307\310!\210\311`!\312]\313! \314W\203% m\203 \nS\n Z [\315\n!\210\316 \317\n \320#\"\321\n!\210` \321\n Z!\210\204E \320u\210\322\f`\"\210
\204W \323 \317\n \320#\"\210)@ B\211+\207" [nn n num stuff first no-delete calc-force-refresh calc-set-command-flag no-align calc-locate-cursor-element 1 prefix-numeric-value 0 calc-check-stack calc-top-list - -1 calc-cursor-stack-index copy-region-as-kill calc-pop-stack kill-ring calc-last-kill] 6] kill-line] 2 nil "P"])
(defalias 'calc-force-refresh #[nil "\204 \205
\302\303 )\207" [calc-executing-macro calc-display-dirty nil calc-refresh] 1])
(defalias 'calc-locate-cursor-element #[(pt) "\212db\210\303[ \n#)\207" [calc-stack-top calc-stack pt calc-locate-cursor-scan] 4])
(defalias 'calc-locate-cursor-scan #[(n stack pt) "`X\204\n \204\f \n\207 @A@[y\210\303\nT A#\207" [pt stack n calc-locate-cursor-scan] 4])
(defalias 'calc-kill-region #[(top bot &optional no-delete) "\304=\203\n \305\306!\207 \203 \307\n \"\207\310\n \"\207" [major-mode no-delete top bot calc-mode calc-do #[nil "\306 \210\307\310!\210\311!\212\312 !\210`)\311 S! \212\312\313\fS]!\210`) \314 \f\315# \316\n
\"\210@\317\f\"B?\205E \320\f\"-\207" [top top-num top-pos bot bot-num bot-pos calc-force-refresh calc-set-command-flag no-align calc-locate-cursor-element calc-cursor-stack-index 0 - -1 copy-region-as-kill calc-top-list calc-pop-stack num kill-ring calc-last-kill no-delete] 4] copy-region-as-kill kill-region] 3 nil "r"])
(defalias 'calc-copy-as-kill #[(n) "\301\302\"\207" [n calc-kill t] 3 nil "P"])
(defalias 'calc-copy-region-as-kill #[(top bot) "\302 \303#\207" [top bot calc-kill-region t] 4 nil "r"])
(defalias 'calc-yank #[nil "\300\301!\207" [calc-do #[nil "\304\305\306\307\310!\203 \310\305\311\"\202 @\n\242 =\203 \nA\202H ;\205H \312\313 !!\211\242\314=\203F \312 !\211\242\314=\203B \314\315!\202G \202G ))#\207" [kill-ring-yank-pointer thing calc-last-kill val calc-pop-push-record-list 0 "yank" fboundp current-kill t math-read-exprs calc-clean-newlines error "Bad format in yanked data"] 7]] 2 nil nil])
#@149 Alist of elements (NAME . (TEXT . CALCVAL)).
NAME is a character (a number).
TEXT and CALCVAL are the TEXT and internal structure of stack entries.
(defvar calc-register-alist nil (#$ . 2872))
#@137 Set the contents of the Calc register REGISTER to (TEXT . CALCVAL),
as well as set the contents of the Emacs register REGISTER to TEXT.
(defalias 'calc-set-register #[(register text calcval) "\305 \"\210\n\236\211\203 \fB\241\202 \fBB\nB\211)\207" [register text calc-register-alist aelt calcval set-register] 4 (#$ . 3072)])
#@237 Return the CALCVAL portion of the contents of the Calc register REG,
unless the TEXT portion doesn't match the contents of the Emacs register REG,
in which case either return the contents of the Emacs register (if it is
text) or `nil'.
(defalias 'calc-get-register #[(reg) " \236A\n\236A ;\205\" \f@;\203! \f@ \230\203! \fA\202\" *\207" [reg calc-register-alist register-alist val cval] 3 (#$ . 3415)])
#@87 Copy the lines in the region into register REGISTER.
With prefix arg, delete as well.
(defalias 'calc-copy-to-register #[(register start end &optional delete-flag) "\306=\203G \307 !\212\310\n!\210`)\307\fS! \212\310\311
S]!\210`) \312\n
\313# { \314\315
\"#\210\205D \316\317!.\207\320 \f$\207" [major-mode start top-num top-pos end bot-num calc-mode calc-locate-cursor-element calc-cursor-stack-index 0 - -1 calc-set-register calc-top-list calc-do #[nil "\302 \"\207" [num bot-num calc-pop-stack] 3] copy-to-register bot-pos num str register delete-flag] 6 (#$ . 3829) "cCopy to register: \nr\nP"])
#@43 Insert the contents of register REGISTER.
(defalias 'calc-insert-register #[(register) "\303=\203 \304 !\305\306!)\207\307 !\207" [major-mode register val calc-mode calc-get-register calc-do #[nil "\302\303\304\204
\305\306!\202: :\203 \202: \307\310!!\211\242\305=\2038 \307!\211\242\305=\2034 \305\306!\2029 \2029 )#\207" [val nval calc-pop-push-record-list 0 "insr" error "Bad format in register data" math-read-exprs calc-clean-newlines] 7] insert-register] 2 (#$ . 4459) "cInsert register: "])
#@188 Add the lines in the region to register REGISTER.
If PREPEND is non-nil, add them to the beginning of the register,
otherwise the end. If DELETE-FLAG is non-nil, also delete the region.
(defalias 'calc-add-to-register #[(register start end prepend delete-flag) "\306!\212\307 !\210`)\306 S! \212\307\310\fS]!\210`) \311 \f\312# \n
{ \313\f\" \236A\211 \204G \314#\210\202s \203a \314@P\315A\"#\210\202s \314@P\315A\"#\210\205{ \316\317!.\207" [start top-num top-pos end bot-num bot-pos calc-locate-cursor-element calc-cursor-stack-index 0 - -1 calc-top-list calc-set-register append calc-do #[nil "\302 \"\207" [num bot-num calc-pop-stack] 3] num str calcval register calc-register-alist cval prepend delete-flag] 7 (#$ . 4979)])
#@104 Copy the lines in the region to the end of register REGISTER.
With prefix arg, also delete the region.
(defalias 'calc-append-to-register #[(register start end &optional delete-flag) "\305=\203 \306 \n \307\f%\207\310 \n \f$\207" [major-mode register start end delete-flag calc-mode calc-add-to-register nil append-to-register] 6 (#$ . 5762) "cAppend to register: \nr\nP"])
#@110 Copy the lines in the region to the beginning of register REGISTER.
With prefix arg, also delete the region.
(defalias 'calc-prepend-to-register #[(register start end &optional delete-flag) "\305=\203 \306 \n \307\f%\207\310 \n \f$\207" [major-mode register start end delete-flag calc-mode calc-add-to-register t prepend-to-register] 6 (#$ . 6145) "cPrepend to register: \nr\nP"])
(defalias 'calc-clean-newlines #[(s) "\301\302\"\204 \301\303\"\203 \304\305\306\"!\207\301\307\"\203) \304\305\306\"\310\305\311\"Q!\207\207" [s string-match "\\`[ \n
]+\\([^]*\\)\\'" "\\`\\([^]*\\)[ \n
]+\\'" calc-clean-newlines math-match-substring 1 "\\`\\(.*\\)[\n
]+\\([^]*\\)\\'" "," 2] 6])
(defalias 'calc-do-grab-region #[(top bot arg) "\306>\203\n \307\310!\210p\311\312!\313\211 \313\211 \203] :\203) \314\202] \315 !\211 \316U\203@ \317 \320 \202] \212` y\210 \316V\203U ` \202\\ ` ) {\321 \210 \203q \322\f!\202\223 \322\323\f\324Q!\211\242\325=\203\223
G\326U\203\223
A@\242\325=\203\223
A@
\242\307=\203\306 \n\203\245 \327 !\210\202\255 \330\314!\210\331 !\210 b\210
A@ \203\274 \316\202\275 \332\\u\210\307\326
8!\210\333\334`\".\207" [major-mode from-buffer calc-was-started single data vals (calc-mode calc-trail-mode) error "This command works only in a regular text buffer" get-buffer-window "*Calculator*" nil t prefix-numeric-value 0 point-at-bol point-at-eol calc math-read-expr "[" "]" vec 2 pop-to-buffer calc-quit switch-to-buffer 1 calc-do #[nil "\301\302\303#\207" [vals calc-enter-result 0 "grab"] 4] pos arg top bot] 5])
(defalias 'calc-do-grab-rectangle #[(top bot arg &optional reduce) "\306>\203\n \307\310!\210\212 b\210i)\212 b\210i) p \311\312! (\313\211 ) *\313\211 + ,\313\211 - .\n\fU\203g \212\n\314U\204B \307\315!\210 b\210` W\203^ `-\316y\210-`S{)B)\202E )\237))\202m \317 \")\320 \210\321C*\314,/\203\214 /:\203\206 \314\202\212 \322/!/)\203\315\323/!\203/\314U\203\242 \324/\314.\321C+)@G\313\211 0 1 2.2W\203./\\\21112Y\203\327 \325)@.\313O!\202\341 \325)@.1O!\2110\242\307=\203\364 0+\3142\202\265 +0C\244+1\211.\202\267 +\202{\326\327)@\"\203 \321\330)@!D+\202{/\204<\326\331)@\"\203<\314\224.\325\332)@\314\"!+\202{\326\333)@\"\203N\332)@\334\"\202Q)@ 3\335.\325\3363\337Q!\211+\242\307=\203z\3253!\211 4\242\307=\204y\3214D+))+\242\307=\203\262(\203\217\340
!\210\202\227\341\342!\210\343
!\210 b\210,y\210\344+A@\n\f^.#u\210\307\334+8!\210+\345\232\204\300+*B*)A),T,\202\214 \346\347`\".\n\207" [major-mode top col1 bot col2 from-buffer (calc-mode calc-trail-mode) error "This command works only in a regular text buffer" get-buffer-window "*Calculator*" nil 0 "Point and mark must be at beginning of line, or define a rectangle" 1 extract-rectangle calc vec prefix-numeric-value natnump 1000000 math-read-expr string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'" string-to-number "[[{][^][{}]*[]}]" math-match-substring "\\`\\([0-9]+:[ ]\\)?\\(.*[^, ]\\)[, ]*\\'" 2 -1 "[" "]" pop-to-buffer calc-quit t switch-to-buffer + (vec) calc-do #[nil "\203 \302\303\304\305 \237E#\207\302\303\306 \237#\207" [reduce mat calc-enter-result 0 "grb+" (var add var-add) "grab"] 6] calc-was-started data mat vals lnum pt pos arg v j w s v2] 5])
#@47 Copy the top of stack into an editing buffer.
(defalias 'calc-copy-to-buffer #[(nn) "\306>?\205 p\307\211\211 \310\311!\210 \203 b\210
:\205+ \f?\205+ \312\313!\210\314 !,\207" [major-mode newbuf oldbuf movept thebuf nn (calc-mode calc-trail-mode) nil calc-do #[nil "\212\306 \210\307! \n\310=\203 \311\202 \312\313\211 \" #p$%\2067 \314\315 \312\"\2067 \314\315 \311\"\2067 \316\317!&\203B :\203w \320\312!\320\311!S
ZU\203w \321\311!\210\322 \203\\ \323\202] \324!\203f \312\225Sb\210\313\"`\321\312!\210`S
Z\202\271 #\312V\203\220 \321#!\210`\321\312!\210`
Z\202\271 #\312W\203\253 \321#[!\210`\321#[S!\210`\202\271 eb\210\311y\210`\321\312!\210`r&q\210:\203\312 \325\326 \327 \"\210\330`\331\"\210'\203\352 :\204\352 \332r$q\210\f {)\"\"\210\202\"n\204\361 \313\"\333$\f #\210\"\203\"\311 #`\334 V\203 \335y\210`\334 Y\203 \336\337!\210#T#\202 #y\210)%\203*`(\340p!\2056\341\340p!`\".\207" [nn calc-line-numbering calc-language bot top big-offset calc-force-refresh prefix-numeric-value big 1 0 nil calc-find-writable-buffer buffer-list error "No other buffer" calc-substack-height calc-cursor-stack-index looking-at "[0-9]+: *[^ \n]" " *[^ \n]" kill-region region-beginning region-end push-mark t calc-overwrite-string insert-buffer-substring mark -1 delete-char 4 get-buffer-window set-window-point eat-lnums n oldbuf thebuf newbuf overwrite-mode movept] 5] calc-quit t switch-to-buffer] 4 (#$ . 9478) "P"])
(defalias 'calc-overwrite-string #[(str eat-lnums) "\305\306\"\203\f \307\310O \203 \311\312O\305\313\"\203* \314\315!\203* `\307\225|\210c\207\307\211GW\205r \nH\211\316U\203g \nGSU\204k ` \312\210\f`|\210m\203X \317c\210\202[ \320u\210 \203c \n\311\\)\202k \321\320!\210\nT\211\202- )\207" [str eat-lnums i last-command-event pt string-match "\n\\'" 0 -1 4 nil "\\`[-+]?[0-9.]+\\(e-?[0-9]+\\)?\\'" looking-at "[-+]?[0-9.]+\\(e-?[0-9]+\\)?" 10 "\n" 1 self-insert-command] 4])
(defalias 'calc-find-writable-buffer #[(buf mode) "\205- \302\303\304@!\"\204% \305U\203+ \302\306\304@!\"\204% \307@!\204+ \310A \"\207@\207" [buf mode string-match "\\`\\( .*\\|\\*Calc.*\\)" buffer-name 0 "\\`\\*.*" get-buffer-window calc-find-writable-buffer] 4])
(defalias 'calc-edit #[(n) "\300\301`\"\210\302 \207" [calc-do #[nil "\306=\203 \307 \310\311V \312\311V\203 \313\202 \314\306V\203) \315!\202. \315\311[\"\") \316\317 \2068 D\n\"\210
\205N
@\320\261\210
A\211\204@ \310+\207" [n flag allow-ret calc-full-float-format calc-float-format list 0 calc-stack-size nil 1 mapcar #[(x) "\301\302\"\207" [x math-format-flat-expr 0] 3] #[(x) "\302!\203 \303\304\305 \"\207" [x allow-ret math-vectorp t math-format-nice-expr frame-width] 3] calc-top-list calc-edit-mode calc-finish-stack-edit "\n"] 6] calc-show-edit-buffer] 3 nil "p"])
(defalias 'calc-alg-edit #[(str) "\301\302!\210\303 \210\304\261\210\305u\210\306\307!\207" [str calc-edit-mode (calc-finish-stack-edit 0) calc-show-edit-buffer "\n" -1 calc-set-command-flag do-edit] 2])
#@42 Keymap for use by the calc-edit command.
(defvar calc-edit-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\304#\210)\207" [map make-sparse-keymap define-key "\n" calc-edit-finish "
" calc-edit-return ""] 4) (#$ . 12522))
#@121 Calculator editing mode. Press RET, LFD, or C-c C-c to finish.
To cancel the edit, simply kill the *Calc Edit* buffer.
(defalias 'calc-edit-mode #[(&optional handler allow-ret title) "\204 \306\307!\210p\310\311! q\210\312 \210\313 !\210\314\211\315,\316-\317\320!\210\321\322!\210\n\321\323!\210\n\321\324!\210\325\326!\205@ .\321\327!\210\321\330!\210\331\332 !\321\333!\210/\326 0\334 \210)\335\336\337\326\211$\210\3401\206u 1\206u \341\342/\203 \343\202\200 \344\345R\346\347\350\326\351\326\352\326& c\210\321\353!\210`\211+*\207" [handler buf oldbuf calc-edit-mode-map buffer-read-only truncate-lines error "This command can be used only indirectly through calc-edit" get-buffer-create "*Calc Edit*" kill-all-local-variables use-local-map nil calc-edit-mode "Calc Edit" run-mode-hooks calc-edit-mode-hook make-local-variable calc-original-buffer calc-return-buffer calc-one-window one-window-p t calc-edit-handler calc-restore-trail get-buffer-window calc-trail-buffer calc-allow-ret erase-buffer add-hook kill-buffer-hook #[nil "\301\302\303!\210)\304\305!\207" [calc-edit-handler nil calc-edit-finish t message "(Cancelled)"] 2] propertize "Calc Edit Mode. " "Press `C-c C-c'" "" " or RET" " to finish, `C-x k RET' to cancel.\n\n" font-lock-face italic read-only rear-nonsticky front-sticky calc-edit-top major-mode mode-name pop-up-windows allow-ret inhibit-read-only title] 11 (#$ . 12778) nil])
(put 'calc-edit-mode 'mode-class 'special)
(defalias 'calc-show-edit-buffer #[nil "p\306\307!\203 \203 \310\311\312!!\210\202/ \n\203) \313\n\314H!\203) \315\313\n\314H!!\210\316\311\312!!\210\317 \320 W\203K \f\203K \313\321 !\211 \203J \322
!\210)\323\324!\210b)\207" [buf pop-up-windows calc-embedded-info calc-return-buffer calc-display-trail win one-window-p t pop-to-buffer get-buffer-create "*Calc Edit*" get-buffer-window 1 select-window switch-to-buffer window-width frame-width calc-trail-buffer delete-window set-buffer-modified-p nil calc-edit-top] 5])
(defalias 'calc-edit-return #[nil "\301\300!\203
\203
\302 \207\303 \207" [calc-allow-ret boundp newline calc-edit-finish] 2 nil nil])
#@75 Finish calc-edit mode. Parse buffer contents and push them on the stack.
(defalias 'calc-edit-finish #[(&optional keep) "\306\307!\210\310\301!\203( \310\302!\203( \310\303!\203( \310\311!\203( \310\304!\203( \312=\204, \313\314!\210p \n \f \212\315 !\203L q\210\316=\204P \313\317!\210)!b\210\320 \203_ \321 !\210 \203m \322\323!\204m \324 \210\325 !\203~ \326\325 !!\210\202\203 \327 !\210\"\203\220 \330 !\210\202\225 \331 !\210
\203\235 \332\333!\210\306\334!-\207" [major-mode calc-original-buffer calc-return-buffer calc-one-window calc-restore-trail calc-edit-disp-trail message "Working..." boundp calc-edit-handler calc-edit-mode error "This command is valid only in buffers created by calc-edit" buffer-name calc-mode "Original calculator buffer has been corrupted" buffer-modified-p eval one-window-p t delete-window get-buffer-window select-window switch-to-buffer bury-buffer kill-buffer calc-do #[nil "\300\301\302\"\207" [calc-trail-display 1 t] 3] "" one-window return original buf calc-edit-top keep] 5 (#$ . 14932) "P"])
#@77 Cancel calc-edit mode. Ignore the Calc Edit buffer and don't change stack.
(defalias 'calc-edit-cancel #[nil "\301\302 \210)\303\304!\207" [calc-edit-handler nil calc-edit-finish message "(Cancelled)"] 2 (#$ . 16000) nil])
(defalias 'calc-finish-stack-edit #[(num) "pd{`\306
\250\203&
\307V\203& \310\311 \"\211\203& \312I\210\202 \313!\210\306\314 \310\315 \"\205< \316 !*\211 \242\317=\203Y \313\f!\210\nA@\\b\210\317\3208!\210\321\322!-\207" [calc-edit-top pos start str buf num nil 1 string-match "\n." 44 switch-to-buffer math-standard-ops "[^\n ]" math-read-exprs error 2 calc-do #[nil "9\203 @L\210\305!\207\n\203 \306\307\310\"\210 \205= \311=\203% \312\202& \f \313Y\2035 \314\315 #\202< \314\307\315 [$)\207" [num vals calc-edit-disp-trail last-command-event calc-simplify-mode calc-refresh-evaltos calc-trail-display 1 t 10 none 0 calc-enter-result "edit"] 5] calc-original-buffer math-expr-opers calc-language vals] 5])
(provide 'calc-yank)