403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/gnus/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/gnus/gnus-range.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@100 Normalize RANGE.
If RANGE is a single range, return (RANGE).  Otherwise, return RANGE.

(fn RANGE)
(defalias 'gnus-range-normalize #[257 "\211\243<\203\207\211C\207" [] 2 (#$ . 85)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-range-normalize speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@41 Return last element of LIST.

(fn LIST)
(defalias 'gnus-last-element #[257 "\211A\203\f\211A\262\202\211@\207" [] 2 (#$ . 422)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\207" [make-obsolete gnus-last-element "use `car' of `last' instead." "27.1" defalias gnus-copy-sequence copy-tree nil] 4)
#@83 Return a list of elements of LIST1 that do not appear in LIST2.

(fn LIST1 LIST2)
(defalias 'gnus-set-difference #[514 "\300\301\302\"\303\211\203\211@\304\305#\210A\266\202\202\210\211\2035\211@\306\"\204.\211B\262A\266\202\202\210\211\237\207" [make-hash-table :test eq nil puthash t gethash] 10 (#$ . 755)])
#@122 Return a range comprising all the RANGES, which are pre-sorted.
RANGES will be destructively altered.

(fn &rest RANGES)
(defalias 'gnus-range-nconcat #[128 "\300\301\"\262\211A\262\242\211\243<\204\211C\262\302!\211\203\223\211@\211\211\243<\204+\211C\262\262@\247\203;\211@@B\240\210\211@\247\203I\211@@B\240\210@AT@@U\203c@@A\241\210A\241\210\202\207\241\210\211@@@AU\203w\211@@\240\210@@@AU\203\207\211@@\240\210\302!\262A\266\202\202\210@:\203\244G\303U\203\244@\207\207" [delete nil last 1] 8 (#$ . 1092)])
#@130 Return the range of elements in RANGE1 that do not appear in RANGE2.
Both ranges must be in ascending order.

(fn RANGE1 RANGE2)
(defalias 'gnus-range-difference #[514 "\211\243<\204\211C\262\262\211\211\243<\204\211C\262\262\300\301!B\211\211A\203\321\211A@@\247\2033\2025@\247\203>\202@A\247\203I\202K@\247\203T\202VAV\203g\211AA\241\266\202 U\203|<\203|A\240\266\202 \204\206\266\300\202 W\203\224A\266\207\202 \211W\203\244A\262	\266\202 X\203\273X\203\273\211AA\241\266\202 SBTBDAA\244\241\266\202 A\207" [nil copy-sequence] 14 (#$ . 1660)])
#@153 Return a list of elements of LIST1 that do not appear in LIST2.
Both lists have to be sorted over <.
The tail of LIST1 is not copied.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-difference #[514 "\300\2038\2038@@U\203A\262A\262\202@@W\2031@B\262A\262\202A\262\202\211\237\244\207" [nil] 5 (#$ . 2300)])
#@139 Return a list of elements of LIST1 that do not appear in LIST2.
Both lists have to be sorted over <.
LIST1 is modified.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-ndifference #[514 "\300B\211\203=\203=@@U\203$\211A\241\210A\262A\262\202@@W\2036\262A\262\202A\262\202A\207" [nil] 6 (#$ . 2636)])
#@123 Return a list of elements that are in LIST1 or LIST2 but not both.
Both lists have to be sorted over <.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-complement #[514 "\300\203	\204\206T\207\203L\203L@@U\203*A\262A\262\202@@W\203?@B\262A\262\202@B\262A\262\202\211\237\206S\244\207" [nil] 5 (#$ . 2965)])
#@20 

(fn LIST1 LIST2)
(defalias 'gnus-intersection #[514 "\300\301#\237\207" [seq-intersection eq] 6 (#$ . 3312)])
(make-obsolete 'gnus-intersection 'seq-intersection "28.1")
#@101 Return intersection of LIST1 and LIST2.
LIST1 and LIST2 have to be sorted over <.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-intersection #[514 "\300\2038\2038@@U\203\"@B\262A\262A\262\202@@W\2031A\262\202A\262\202\211\237\207" [nil] 5 (#$ . 3493)])
#@107 Return intersection of RANGE1 and RANGE2.
RANGE1 and RANGE2 have to be sorted over <.

(fn RANGE1 RANGE2)
(defalias 'gnus-sorted-range-intersection #[514 "\300@\211\247\203A\247\203A\300\262\202 \211\202 \211A@\262@\211\247\2039A\247\2035A\300\262\202?\211\202?\211A@\262A\262A\262\203\334\203\334W\203aA\262\300\262\202\235\211W\203qA\262\300\262\202\235]^U\203\204B\202\212BB\262\266W\203\232\300\262\202\235\300\262\204\274@\262\247\203\257\202\265A@\262\262A\262\204H@\262\247\203\315\202\323A@\262\262A\262\202HA\203\344\237\207@\247\203\354\207@\207" [nil] 11 (#$ . 3775)])
(defalias 'gnus-set-sorted-intersection 'gnus-sorted-nintersection)
#@136 Return intersection of LIST1 and LIST2 by modifying cdr pointers of LIST1.
LIST1 and LIST2 have to be sorted over <.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-nintersection #[514 "\300B\211\203=\203=@@U\203\"\262A\262A\262\202@@W\2036\211A\241\210A\262\202A\262\202\211\300\241\210A\207" [nil] 6 (#$ . 4536)])
#@94 Return union of LIST1 and LIST2.
LIST1 and LIST2 have to be sorted over <.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-union #[514 "\300\203D\203D@@U\203\"@B\262A\262A\262\202@@W\2037@B\262A\262\202@B\262A\262\202\203U@B\262A\262\202D\203f@B\262A\262\202U\211\237\207" [nil] 5 (#$ . 4880)])
#@129 Return union of LIST1 and LIST2 by modifying cdr pointers of LIST1.
LIST1 and LIST2 have to be sorted over <.

(fn LIST1 LIST2)
(defalias 'gnus-sorted-nunion #[514 "\300B\211\203I\203I@@U\203\"\262A\262A\262\202@@W\2034\262A\262\202\211@C\241\210\211A\262A\262\211\241\210\202\203^\211@C\241\210\211A\262A\262\202IA\207" [nil] 6 (#$ . 5224)])
#@186 Convert sorted list of numbers to a list of ranges or a single range.
If ALWAYS-LIST is non-nil, this function will always release a list of
ranges.

(fn NUMBERS &optional ALWAYS-LIST)
(defalias 'gnus-compress-sequence #[513 "@@\300\205pA<\204\207\203K@U\204DT@U\203+@\262\202DU\2035\2028BB\262@\262@\262A\262\202\204`\211\204`U\203\\C\207B\207U\203j\202mBB\237\207" [nil] 7 (#$ . 5614)])
(defalias 'gnus-uncompress-sequence 'gnus-uncompress-range)
#@147 Expand a list of ranges into a list of numbers.
RANGES is either a single range on the form `(num . num)' or a list of
these ranges.

(fn RANGES)
(defalias 'gnus-uncompress-range #[257 "\300\211\211\204	\300\207A<\204,@\262A\262X\203)B\262T\262\202\211\237\207\203h@:\204E@\247\203a@B\262\202a@@\262@A\262X\203aB\262T\262\202OA\262\202,\211\237\207" [nil] 6 (#$ . 6123)])
#@130 Return a list of ranges that has all articles from both RANGES and LIST.
Note: LIST has to be sorted over `<'.

(fn RANGES LIST)
(defalias 'gnus-add-to-range #[514 "\204	\300\301\"\207\302!\262A<\204C\262\303\211\211\211\203\233\203\233\262@:\2046@\206:@@\262\203TA\203TA@W\203TA\262\202<@W\203n\262A\262\211\303\241\210\300\301\"\244\262@:\204{@\206@A\262\203\223@X\203\223A\262\202\201A\262\202\203\250\300\301\"\244\262\304\305\"\262\262\203h@:\204A\203`A@:\204\354@TA@U\203`\211@A@B\240\210\211AA\241\210\202`@TA@@U\203`A@@\240\210\211A@\240\210\211AA\241\210\202`A\203`A@:\204A@ATA@U\203`@A@\241\210\211AA\241\210\202`@ATA@@U\203`@A@A\241\210\211AA\241\210A\262\202\261\207" [gnus-compress-sequence t copy-sequence nil sort #[514 ":\204	\206@:\204\206@W\207" [] 4 "\n\n(fn R1 R2)"]] 10 (#$ . 6546)])
#@238 Return a range that has all articles from RANGE2 removed from RANGE1.
The returned range is always a list.  RANGE2 can also be a unsorted
list of articles.  RANGE1 is modified by side effects, RANGE2 is not
modified.

(fn RANGE1 RANGE2)
(defalias 'gnus-remove-from-range #[514 "\203\211\204\n\207\300\211\211\211\211\211\211\301!	A<\203!	\202$	C\262\n\302A<\2031\2023C\303\"\262	@\262\211@\262:\203L@\202N\262:\203\\A\202^\262:\203j@\202k\262:\203wA\202x\262	\2039\211\2039W\203\256\211A\262\211@\262:\203\233@\202\234\262:\203\250A\202\251\262\202zX\203\347X\203\347	A\262\n	@\262:\203\320@\202\322\262:\203\340A\202\342\262\202zX\203X\203\211A\262T\262\211@\262:\203	@\202\n\262:\203A\202\262\202zX\203\235X\203\235S=\2038B\262\202ASBB\262\211A\262W\203RT\262\202|	A\262\n	@\262:\203h@\202j\262:\203xA\202z\262\211@\262:\203\212@\202\213\262:\203\227A\202\230\262\202zX\203\357X\203\357S=\203\271B\262\202\302SBB\262	A\262\n	@\262:\203\330@\202\332\262:\203\350A\202\352\262\202zW\203z	A\262\n=\203	B\262\202BB\262	@\262:\203\"@\202$\262:\2032A\2024\262\202z\203Z=\203MB\262\202UBB\262	A\262\n	\203n	\211A\262\242B\262\202Z\237\207" [nil copy-tree sort #[514 ":\203\n@\202:\203@\202W\207" [] 4 "\n\n(fn E1 E2)"]] 13 (#$ . 7524)])
#@22 

(fn NUMBER RANGES)
(defalias 'gnus-member-of-range #[514 "\211A<\204@Y\205[AX\207\300\203W@\247\203$@Y\202)@@Y\203W\211\203W@\247\203=@U\202J@@Y\203P@AX\203P\301\262A\262\202\211?\262\207" [t nil] 5 (#$ . 9070)])
#@103 Return a list of numbers in LIST that are members of RANGES.
LIST is a sorted list.

(fn LIST RANGES)
(defalias 'gnus-list-range-intersection #[514 "\211\211\243<\204\211C\262\262\300\211\211A\262\242\211\262\203\\\203;@\247\203,@W\2021@AW\203;A\262\202\203@\247\203L@U\202Q@@Y\203B\262\202\211\237\207" [nil] 6 (#$ . 9327)])
(defalias 'gnus-inverse-list-range-intersection 'gnus-list-range-difference)
#@107 Return a list of numbers in LIST that are not members of RANGES.
LIST is a sorted list.

(fn LIST RANGES)
(defalias 'gnus-list-range-difference #[514 "\211\211\243<\204\211C\262\262\300\211\211A\262\242\211\262\203]\203;@\247\203,@W\2021@AW\203;A\262\202\203U@\247\203M@U?\202R@@W\203B\262\202\211\237\207" [nil] 6 (#$ . 9776)])
#@65 Return the length RANGE would have if uncompressed.

(fn RANGE)
(defalias 'gnus-range-length #[257 "\211\204\300\207\211A<\204\211A@ZT\207\300\211\2035\211@:\203*A@ZT\202+\301\\\262A\266\202\202\207" [0 1] 7 (#$ . 10149)])
#@62 Add RANGE2 to RANGE1 (nondestructively).

(fn RANGE1 RANGE2)
(defalias 'gnus-range-add #[514 "A<\204\nC\262\211A<\204\211C\262\211A\262\242\211A\262\242\300\211\211\204+\203\200\2043\300\202h\204;\301\202h\247\203K\247\203KW\202h\247\203W@W\202h\247\203c@W\202h@@W\262\211\203r\202s\204{\211\202L\211\204\203\202L\247\203\265\211\247\203\265=\203\227\202LT=\203\244B\202L\211T=\203\261\211B\202L\300\202L\247\203\356@Y\203\314AX\203\314\211\202LT@=\203\333AB\202LSA=\203\352\211@B\202L\300\202L\211\247\203'\211@Y\203\211AX\203\202L\211T@=\203\211AB\202L\211SA=\203#@B\202L\300\202LAT@W\2034\300\202L\211AT@W\203A\300\202L@@^AA]B\262\206c\203ZB\262\211\203b\202c\262\211\203u\211A\262\242\262\202#\211A\262\242\262\202#\203\211B\262\302!\207" [nil t reverse] 11 (#$ . 10396)])
#@57 Add NUM into sorted LIST by side effect.

(fn LIST NUM)
(defalias 'gnus-add-to-sorted-list #[514 "\300B\211\203@W\203\262A\262\202@=\204&\211B\241\210A\207" [nil] 7 (#$ . 11329)])
#@63 Apply FUNC to each value contained by RANGE.

(fn FUNC RANGE)
(defalias 'gnus-range-map #[514 "\211\211\243<\204\211C\262\262\211\205>\211A\262\242\211\247\203$!\266\202
\211@AX\2039!\210T\262\202(\266\202
\207" [] 7 (#$ . 11535)])
(provide 'gnus-range)

Youez - 2016 - github.com/yon3zu
LinuXploit