| Current Path : /usr/share/emacs/24.3/lisp/ |
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/misc.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/misc.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@248 Copy characters from previous nonblank line, starting just above point.
Copy ARG characters, but not past the end of that line.
If no argument given, copy the entire rest of the line.
The characters copied are inserted in the buffer before point.
(defalias 'copy-from-above-command #[(&optional arg) "i\304\305\212\306 \210\307u\210\310\304x\210\311\n!\210 \203 \312 !\202 d\niW\203D h\313U\203A \314 i\nZ^\315\" \211i\nZ^Z\202D \307u\210`\316 `\\^{P)c+\207" [string n cc arg nil "" beginning-of-line -1 " \n" move-to-column prefix-numeric-value 9 make-string 32 line-end-position] 5 (#$ . 548) "P"])
#@211 Kill up to, but not including ARGth occurrence of CHAR.
Case is ignored if `case-fold-search' is non-nil in the current buffer.
Goes backward if ARG is negative; error if CHAR not found.
Ignores CHAR at point.
(defalias 'zap-up-to-char #[(arg char) "\303Y\203\n \304\202 \305\306` u\210\307\216\310\311\n!\312\211$\210)`\")\207" [arg direction char 0 1 -1 kill-region ((byte-code "[u\207" [direction] 1)) search-forward char-to-string nil] 7 (#$ . 1168) "p\ncZap up to char: "])
#@42 Set mark at the beginning of the buffer.
(defalias 'mark-beginning-of-buffer #[nil "\300e!\207" [push-mark] 2 (#$ . 1658) nil])
#@36 Set mark at the end of the buffer.
(defalias 'mark-end-of-buffer #[nil "\300d!\207" [push-mark] 2 (#$ . 1792) nil])
#@65 Uppercasify ARG chars starting from point. Point doesn't move.
(defalias 'upcase-char #[(arg) "\212\301`u\210`\")\207" [arg upcase-region] 3 (#$ . 1914) "p"])
#@98 Move forward until encountering the beginning of a word.
With argument, do this that many times.
(defalias 'forward-to-word #[(arg) "\301\302V\203 \303\202\f \304\305\306$\206 \302V\203 d\202 eb\207" [arg re-search-forward 0 "\\W\\b" "\\b\\W" nil t] 5 (#$ . 2081) "^p"])
#@93 Move backward until encountering the end of a word.
With argument, do this that many times.
(defalias 'backward-to-word #[(arg) "\301[!\207" [arg forward-to-word] 2 (#$ . 2365) "^p"])
#@530 Use butterflies to flip the desired bit on the drive platter.
Open hands and let the delicate wings flap once. The disturbance
ripples outward, changing the flow of the eddy currents in the
upper atmosphere. These cause momentary pockets of higher-pressure
air to form, which act as lenses that deflect incoming cosmic rays,
focusing them to strike the drive platter and flip the desired bit.
You can type `M-x butterfly C-M-c' to run it. This is a permuted
variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'.
(defalias 'butterfly #[nil "\301\302!\2032 \303\304\305!!\210\306 \210\307\310!\210\311\312\313 \314\245\315 \314\245\316Z#\210\307\317\320 !\321!\245\322_!\210\323\324!\207\323\325!\210\326\327!\207" [most-positive-fixnum yes-or-no-p "Do you really want to unleash the powers of the butterfly? " switch-to-buffer get-buffer-create "*butterfly*" erase-buffer sit-for 0 animate-string "Amazing physics going on..." window-height 2 window-width 12 abs random float 5 message "Successfully flipped one bit!" "Well, then go to xkcd.com!" browse-url "http://xkcd.com/378/"] 5 (#$ . 2557) nil])
(make-variable-buffer-local 'list-dynamic-libraries--loaded-only-p)
#@54 Compute the "Loaded from" column.
Internal use only.
(defalias 'list-dynamic-libraries--loaded #[(from) "\203 @A\206\f \303\304\n\305\304\n\306\307 P##*\207\310\207" [from path name "<unknown>" propertize display help-echo "Loaded from: " ""] 8 (#$ . 3750)])
#@61 Recompute the list of dynamic libraries.
Internal use only.
(defalias 'list-dynamic-libraries--refresh #[nil "\306\211\n\307\211 \2038 \f@\310 @!G\311\312\313\314 A\"\" \211 V\203(
V\2030
*\fA\211\204\f *\315\316 T\317E\320T\317E\321\306\317E#*\322 \210\307\n\307\211 \205\220 \f@\211@\211 \323N\211 \204o \204\207 \315\310!\324 !\325\326 A\327##DB*\fA\211\204Z \307*\207" [max-name-len max-id-len dynamic-library-alist lib --dolist-tail-- name-len 0 nil symbol-name apply max mapcar length vector "Library" t "Loaded from" "Candidate names" tabulated-list-init-header :loaded-from list-dynamic-libraries--loaded mapconcat identity ", " id-len tabulated-list-format tabulated-list-entries id from list-dynamic-libraries--loaded-only-p] 9 (#$ . 4021)])
#@353 Display a list of all dynamic libraries known to Emacs.
(These are the libraries listed in `dynamic-library-alist'.)
If optional argument LOADED-ONLY-P (interactively, prefix arg)
is non-nil, only libraries already loaded are listed.
Optional argument BUFFER specifies a buffer to use, instead of
"*Dynamic Libraries*".
The return value is always nil.
(defalias 'list-dynamic-libraries #[(&optional loaded-only-p buffer) "\304!\204\n \305\306!rq\210\307 \210\310\311B\312\313\314\311\315$\210\n\314 \210\316 \210)\317!\210\311\207" [buffer tabulated-list-sort-key loaded-only-p list-dynamic-libraries--loaded-only-p bufferp get-buffer-create "*Dynamic Libraries*" tabulated-list-mode "Library" nil add-hook tabulated-list-revert-hook list-dynamic-libraries--refresh t tabulated-list-print display-buffer] 5 (#$ . 4815) "P"])
(provide 'misc)