ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/subr-x.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'pcase)
#@205 Internal implementation for `thread-first' and `thread-last'.
When Argument FIRST? is non-nil argument is threaded first, else
last. FORMS are the expressions to be threaded.
(fn FIRST\=\? &rest FORMS)
(defalias 'internal--thread-argument '(macro . #[385 "\211:\203_ \211@A\211:\203\\ \211@\211:\203D \211@AA\211\300\f\211\2030 BB\2028 \301C\"BBBB\266\204\266\203\202W A\211\300 DBBB\266\203\262\262\202^ @\207\211@\207" [internal--thread-argument append] 18 (#$ . 428)]))
#@283 Thread FORMS elements as the first argument of their successor.
Example:
(thread-first
5
(+ 20)
(/ 25)
-
(+ 40))
Is equivalent to:
(+ (- (/ (+ 5 20) 25)) 40)
Note how the single `-' got converted into a list before
threading.
(fn &rest FORMS)
(defalias 'thread-first '(macro . #[128 "\300\301BB\207" [internal--thread-argument t] 4 (#$ . 938)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put thread-first lisp-indent-function 1 put edebug-form-spec (form &rest [&or symbolp (sexp &rest form)])] 4)
#@281 Thread FORMS elements as the last argument of their successor.
Example:
(thread-last
5
(+ 20)
(/ 25)
-
(+ 40))
Is equivalent to:
(+ 40 (- (/ 25 (+ 20 5))))
Note how the single `-' got converted into a list before
threading.
(fn &rest FORMS)
(defalias 'thread-last '(macro . #[128 "\300\301BB\207" [internal--thread-argument nil] 4 (#$ . 1507)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put thread-last lisp-indent-function 1 put edebug-form-spec thread-first] 4)
#@48 Wrap ELT in a list if it is not one.
(fn ELT)
(defalias 'internal--listify #[257 "\211<\204 \211C\207\207" [] 2 (#$ . 2042)])
(put 'internal--listify 'byte-optimizer 'byte-compile-inline-expand)
#@49 Check BINDING is properly formed.
(fn BINDING)
(defalias 'internal--check-binding #[257 "\211G\300V\203 \301\302\303B\"\210\207" [2 signal error "`let' bindings can have only one value-form"] 5 (#$ . 2245)])
(put 'internal--check-binding 'byte-optimizer 'byte-compile-inline-expand)
#@85 Build the conditional value form for BINDING using PREV-VAR.
(fn BINDING PREV-VAR)
(defalias 'internal--build-binding-value-form #[514 "@\300A@ED\207" [and] 6 (#$ . 2537)])
(put 'internal--build-binding-value-form 'byte-optimizer 'byte-compile-inline-expand)
#@72 Check and build a single BINDING with PREV-VAR.
(fn BINDING PREV-VAR)
(defalias 'internal--build-binding #[514 "\211<\204\n \211C\262\211G\300V\203 \301\302\303B\"\210@\304A@ED\207" [2 signal error "`let' bindings can have only one value-form" and] 8 (#$ . 2806)])
#@70 Check and build conditional value forms for BINDINGS.
(fn BINDINGS)
(defalias 'internal--build-bindings #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\"\207" [t mapcar make-byte-code 257 "\301\300\242\"\300@\240\210\211\207" vconcat vector [internal--build-binding] 4 "\n\n(fn BINDING)"] 9 (#$ . 3086)])
#@359 Process BINDINGS and if all values are non-nil eval THEN, else ELSE.
Argument BINDINGS is a list of tuples whose car is a symbol to be
bound and (optionally) used in THEN, and its cadr is a sexp to be
evalled to set symbol's value. In the special case you only want
to bind a single value, BINDINGS can just be a plain tuple.
(fn BINDINGS THEN &rest ELSE)
(defalias 'if-let '(macro . #[642 "G\300X\203 @<\204 C\262\301\302!\303\304!@\211<\204$ \211C\262@BBBE\207" [2 let* internal--build-bindings if last] 9 (#$ . 3409)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put if-let lisp-indent-function 2 put edebug-form-spec ([&or (&rest (symbolp form)) (symbolp form)] form body)] 4)
#@343 Process BINDINGS and if all values are non-nil eval BODY.
Argument BINDINGS is a list of tuples whose car is a symbol to be
bound and (optionally) used in BODY, and its cadr is a sexp to be
evalled to set symbol's value. In the special case you only want
to bind a single value, BINDINGS can just be a plain tuple.
(fn BINDINGS &rest BODY)
(defalias 'when-let '(macro . #[385 "\300\301!E\207" [if-let macroexp-progn] 6 (#$ . 4134)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put when-let lisp-indent-function 1 put edebug-form-spec if-let] 4)
#@70 Check whether HASH-TABLE is empty (has 0 elements).
(fn HASH-TABLE)
(defalias 'hash-table-empty-p #[257 "\300!\301U\207" [hash-table-count 0] 3 (#$ . 4712)])
(put 'hash-table-empty-p 'byte-optimizer 'byte-compile-inline-expand)
#@55 Return a list of keys in HASH-TABLE.
(fn HASH-TABLE)
(defalias 'hash-table-keys #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\"\210\211\242\207" [nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K V)"] 9 (#$ . 4948)])
(put 'hash-table-keys 'byte-optimizer 'byte-compile-inline-expand)
#@57 Return a list of values in HASH-TABLE.
(fn HASH-TABLE)
(defalias 'hash-table-values #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\"\210\211\242\207" [nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K V)"] 9 (#$ . 5286)])
(put 'hash-table-values 'byte-optimizer 'byte-compile-inline-expand)
#@45 Check whether STRING is empty.
(fn STRING)
(defalias 'string-empty-p #[257 "\211\300\230\207" [""] 3 (#$ . 5630)])
(put 'string-empty-p 'byte-optimizer 'byte-compile-inline-expand)
#@69 Join all STRINGS using SEPARATOR.
(fn STRINGS &optional SEPARATOR)
(defalias 'string-join #[513 "\300\301#\207" [mapconcat identity] 6 (#$ . 5818)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\305\306\311#\207" [put string-join byte-optimizer byte-compile-inline-expand defalias string-reverse reverse nil make-obsolete "25.1"] 4)
#@53 Remove leading whitespace from STRING.
(fn STRING)
(defalias 'string-trim-left #[257 "\300\301\"\203 \302\303\304\211$\207\207" [string-match "\\`[ \n
]+" replace-match "" t] 6 (#$ . 6173)])
(put 'string-trim-left 'byte-optimizer 'byte-compile-inline-expand)
#@54 Remove trailing whitespace from STRING.
(fn STRING)
(defalias 'string-trim-right #[257 "\300\301\"\203 \302\303\304\211$\207\207" [string-match "[ \n
]+\\'" replace-match "" t] 6 (#$ . 6443)])
(put 'string-trim-right 'byte-optimizer 'byte-compile-inline-expand)
#@66 Remove leading and trailing whitespace from STRING.
(fn STRING)
(defalias 'string-trim #[257 "\211\300\301\"\203 \302\303\304\211$\262\300\305\"\203 \302\303\304\211$\207\207" [string-match "[ \n
]+\\'" replace-match "" t "\\`[ \n
]+"] 7 (#$ . 6716)])
(put 'string-trim 'byte-optimizer 'byte-compile-inline-expand)
#@71 Check whether STRING is either empty or only whitespace.
(fn STRING)
(defalias 'string-blank-p #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "\\`[ \n
]*\\'" nil t string-match] 8 (#$ . 7047)])
(put 'string-blank-p 'byte-optimizer 'byte-compile-inline-expand)
#@59 Remove PREFIX from STRING if present.
(fn PREFIX STRING)
(defalias 'string-remove-prefix #[514 "\300\"\203
\211G\301O\207\207" [string-prefix-p nil] 5 (#$ . 7333)])
(put 'string-remove-prefix 'byte-optimizer 'byte-compile-inline-expand)
#@59 Remove SUFFIX from STRING if present.
(fn SUFFIX STRING)
(defalias 'string-remove-suffix #[514 "\300\"\203 \211\301GGZO\207\207" [string-suffix-p 0] 6 (#$ . 7581)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put string-remove-suffix byte-optimizer byte-compile-inline-expand provide subr-x] 4)
Kontol Shell Bypass