Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
org /
[ HOME SHELL ]
Name
Size
Permission
Action
org-agenda.elc
214.7
KB
-rw-r--r--
org-archive.elc
11.75
KB
-rw-r--r--
org-attach.elc
14.21
KB
-rw-r--r--
org-bbdb.elc
7.37
KB
-rw-r--r--
org-bibtex.elc
4.13
KB
-rw-r--r--
org-clock.elc
35.05
KB
-rw-r--r--
org-colview.elc
41.45
KB
-rw-r--r--
org-compat.elc
7.48
KB
-rw-r--r--
org-exp.elc
149.66
KB
-rw-r--r--
org-export-latex.elc
44.23
KB
-rw-r--r--
org-faces.elc
20.18
KB
-rw-r--r--
org-footnote.elc
13.77
KB
-rw-r--r--
org-gnus.elc
5.74
KB
-rw-r--r--
org-id.elc
16.92
KB
-rw-r--r--
org-info.elc
1.68
KB
-rw-r--r--
org-install.elc
635
B
-rw-r--r--
org-irc.elc
5.89
KB
-rw-r--r--
org-jsinfo.elc
5.39
KB
-rw-r--r--
org-list.elc
32.5
KB
-rw-r--r--
org-mac-message.elc
2.27
KB
-rw-r--r--
org-macs.elc
7.83
KB
-rw-r--r--
org-mew.elc
2.92
KB
-rw-r--r--
org-mhe.elc
5.16
KB
-rw-r--r--
org-mouse.elc
32.83
KB
-rw-r--r--
org-plot.elc
10.28
KB
-rw-r--r--
org-publish.elc
20.43
KB
-rw-r--r--
org-remember.elc
31.7
KB
-rw-r--r--
org-rmail.elc
2.82
KB
-rw-r--r--
org-table.elc
136.62
KB
-rw-r--r--
org-timer.elc
7.61
KB
-rw-r--r--
org-vm.elc
2.91
KB
-rw-r--r--
org-w3m.elc
3.88
KB
-rw-r--r--
org-wl.elc
2.82
KB
-rw-r--r--
org.elc
505.8
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : org-list.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:47 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-list.el ;;; in Emacs version 23.1.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 "`org-list.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require org-macs org-compat custom-declare-group org-plain-lists nil "Options concerning plain lists in Org-mode." :tag "Org Plain lists" :group org-structure] 8) #@369 Non-nil means, include plain lists into visibility cycling. This means that during cycling, plain list items will *temporarily* be interpreted as outline headlines with a level given by 1000+i where i is the indentation of the bullet. In all other operations, plain list items are not seen as headlines. For example, you cannot assign a TODO keyword to such an item. (custom-declare-variable 'org-cycle-include-plain-lists 'nil '(#$ . 854) :group 'org-plain-lists :type 'boolean) #@293 The character that makes a line with leading number an ordered list item. Valid values are ?. and ?). To get both terminators, use t. While ?. may look nicer, it creates the danger that a line with leading number may be incorrectly interpreted as an item. ?) therefore is the safe choice. (custom-declare-variable 'org-plain-list-ordered-item-terminator 't '(#$ . 1342) :group 'org-plain-lists :type '(choice (const :tag "dot like in \"2.\"" 46) (const :tag "paren like in \"2)\"" 41) (const :tab "both" t))) #@385 A regular expression matching bullets that should have 2 spaces after them. When nil, no bullet will have two spaces after them. When a string, it will be used as a regular expression. When the bullet type of a list is changed, the new bullet type will be matched against this regexp. If it matches, there will be two spaces instead of one after the bullet in each item of he list. (custom-declare-variable 'org-list-two-spaces-after-bullet-regexp 'nil '(#$ . 1861) :group 'org-plain-list :type '(choice (const :tag "never" nil) (regexp))) #@112 Non-nil means, an empty line ends all plain list levels. When nil, empty lines are part of the preceding item. (custom-declare-variable 'org-empty-line-terminates-plain-lists 'nil '(#$ . 2410) :group 'org-plain-lists :type 'boolean) #@245 Non-nil means, automatically renumber ordered plain lists. Renumbering happens when the sequence have been changed with \[org-shiftmetaup] or \[org-shiftmetadown]. After other editing commands, use \[org-ctrl-c-ctrl-c] to trigger renumbering. (custom-declare-variable 'org-auto-renumber-ordered-lists 't '(#$ . 2650) :group 'org-plain-lists :type 'boolean) #@241 Non-nil means, update checkbox statistics after insert and toggle. When this is set, checkbox statistics is updated each time you either insert a new checkbox with \[org-insert-todo-heading] or toggle a checkbox with \[org-ctrl-c-ctrl-c\]. (custom-declare-variable 'org-provide-checkbox-statistics 't '(#$ . 3015) :group 'org-plain-lists :type 'boolean) #@149 Maximum indentation for the second line of a description list. When the indentation would be larger than this, it will become 5 characters instead. (custom-declare-variable 'org-description-max-indent '20 '(#$ . 3376) :group 'org-plain-lists :type 'integer) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list org-list-beginning-re default-boundp set-default "^\\([ ]*\\)\\([-+*]\\|[0-9]+[.)]\\) +\\(.*\\)$"] 3) #@165 Templates for radio lists in different major modes. All occurrences of %n in a template will be replaced with the name of the list, obtained by prompting the user. (custom-declare-variable 'org-list-radio-list-templates ''((latex-mode "% BEGIN RECEIVE ORGLST %n\n% END RECEIVE ORGLST %n\n\\begin{comment}\n#+ORGLST: SEND %n org-list-to-latex\n| | |\n\\end{comment}\n") (texinfo-mode "@c BEGIN RECEIVE ORGLST %n\n@c END RECEIVE ORGLST %n\n@ignore\n#+ORGLST: SEND %n org-list-to-texinfo\n| | |\n@end ignore\n") (html-mode "<!-- BEGIN RECEIVE ORGLST %n -->\n<!-- END RECEIVE ORGLST %n -->\n<!--\n#+ORGLST: SEND %n org-list-to-html\n| | |\n-->\n")) '(#$ . 3825) :group 'org-plain-lists :type '(repeat (list (symbol :tag "Major mode") (string :tag "Format")))) #@52 Is point in a line starting a hand-formatted item? (defalias 'org-at-item-p #[nil "\212\302 b\210\303 \304=\203 \305\202) \306U\203 \307\202) \310U\203& \311\202) \312\313!!*\207" [org-plain-list-ordered-item-terminator llt point-at-bol looking-at t "\\([ ]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[ ]+\\*\\)\\( \\|$\\)" 46 "\\([ ]*\\([-+]\\|\\([0-9]+\\.\\)\\)\\|[ ]+\\*\\)\\( \\|$\\)" 41 "\\([ ]*\\([-+]\\|\\([0-9]+))\\)\\|[ ]+\\*\\)\\( \\|$\\)" error "Invalid value of `org-plain-list-ordered-item-terminator'"] 3 (#$ . 4587)]) #@46 Is point at the bullet of a plain list item? (defalias 'org-at-item-bullet-p #[nil "\300 \205 \301f\302\235?\205 `\303\225W\207" [org-at-item-p nil (32 9) 0] 2 (#$ . 5127)]) #@77 It the cursor inside a plain list item. Does not have to be the first line. (defalias 'org-in-item-p #[nil "\212\300\301\302\217)\207" [nil (byte-code "\300 \210\301 \210\302\207" [org-beginning-of-item org-at-item-p t] 1) ((error))] 3 (#$ . 5309)]) #@102 Insert a new item at the current level. Return t when things worked, nil when we are not in an item. (defalias 'org-insert-item #[(&optional checkbox) "\212\306\307\310\217)\205F\311\312!\212\312\224b\210\313\314!\210\315 \316\216\317\320!\205$ \311\314!+\212\312\224b\210o?\205= \313\312!\210\315 \321\216\317\322!*)\n\205M \315 \323\216\324\325\n\"* \212\313\314!\210\317\326!\210\312\225) \327-\236A\211 .\330=\203l \202n . /\306 0\n\203z \3061\f\203\204 \331 \210\2028\332 \203\243 ` X\203\243 \313\314!\210\333/\203\235 \334\202\236 \314!\210\202\374 ` X\203\260 \313\314!\210\202\374 2\335 3 43\336=\203\302 \336\202\345 4\336=\203\315 \336\202\345 \33734\"\203\340 \33734\"A\202\345 \3404\236A*\204\357 \314\210\341 \210\342/\203\371 \334\202\372 \314!\2101\203\343\202\344\n\203 1\203\345\202\344\346\347!\350Q\202 \344\261\210\351 \210`0\314\210`0U\2048\351 \210\352\314!\210\353 \2101\203C\354 \210.\336\207" [bul save-match-data-internal descp empty-line-p timerp eow nil (byte-code "\300 \210\301 \210\302 \203 \303\304!\210\305\207" [org-beginning-of-item org-at-item-p org-invisible-p error "Invisible item" t] 2) ((error)) match-string 0 beginning-of-line 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "[ ]*\\(.*?\\) ::" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "[ ]*$" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^[-+*][ ]+[0-9]+:[0-9]+:[0-9]+$" "[ ]*" plain-list-item auto org-timer-item org-at-item-p open-line 2 item t assoc default delete-horizontal-space newline "[ ]" "" " " read-string "Term: " " :: " just-one-space backward-delete-char org-maybe-renumber-ordered-list org-update-checkbox-count-maybe org-blank-before-new-entry blank-a blank pos checkbox org-M-RET-may-split-line key option] 6 (#$ . 5566)]) #@64 Is point at a line starting a plain-list item with a checklet? (defalias 'org-at-item-checkbox-p #[nil "\300 \205 \212\301\225b\210\302\303w\210\304\305!)\207" [org-at-item-p 0 " " nil looking-at "\\[[- X]\\]"] 2 (#$ . 7518)]) #@372 Toggle the checkbox in the current line. With prefix arg TOGGLE-PRESENCE, add or remove checkboxes. When there is an active region, toggle status or presence of the checkbox in the first line, and make every item in the region have the same status or presence, respectively. If the cursor is in a headline, apply this to all checkbox items in the text below the heading. (defalias 'org-toggle-checkbox #[(&optional toggle-presence) "\300\301\215\210\302 \207" [exit (byte-code "\306\211\211\211\211 \307 \203 \310 \311 \202{ \312 \203) `\212\313 \210`)\202{ \314 \203a ` \"\203C \315\316!\210\317\224b\210\320 \210\202U \315\321\317!\322\235\203P \323\202Q \324\325\211#\210 b\210)\326\327\325\"\210\202{ \330 \203w \212\317\225b\210\331c\210)\326\327\325\"\210\202{ \332\333!\210\334 \306\223\212\fb\210\314 \212\335\336 \325#\205\226 \321\337!\323\232)` W\203\366 \"\203\326 \203\274 \314 \203\274 \212\315\316!\210\317\224b\210\320 \210)\202\357 \204\357 \314 \204\357 \330 \203\357 \212\317\225b\210\331c\210)\202\357 \314 \203\357 \321\317!\323\232\315\203\352 \324\202\353 \323\325\211#\210\340\341!\210\202\230 .\306\207" [first-status first-present status end beg pos nil org-region-active-p region-beginning region-end org-on-heading-p outline-next-heading org-at-item-checkbox-p replace-match "" 0 just-one-space match-string ("[ ]" "[-]") "[X]" "[ ]" t throw exit org-at-item-p "[ ] " error "Not at a checkbox or heading, and no active region" make-marker re-search-forward "[ ]\\(\\[[ X]\\]\\)" 1 beginning-of-line 2 toggle-presence] 5) org-update-checkbox-count-maybe] 2 (#$ . 7754) "P"]) #@55 Update checkbox statistics unless turned off by user. (defalias 'org-update-checkbox-count-maybe #[nil "\205 \301 \207" [org-provide-checkbox-statistics org-update-checkbox-count] 1 (#$ . 9383)]) #@223 Update the checkbox statistics in the current section. This will find all statistic cookies like [57%] and [6/12] and update them with the current numbers. With optional prefix argument ALL, do this for the whole buffer. (defalias 'org-update-checkbox-count #[(&optional all) "\212\306W?\205 \307\310\311\217\312 \313 \210`\307\223\314 \315 \f\316 Q (\307\211 ) *\307\211 + ,\307\211 - .\307\211 / 0\307\211 1 2\307 3\317 45\203U eb\210\313 \210`d b\210\320(\n\321#\203\210\322\224)\322\225*4*\203t \322\202u \317\\4\323 3\317\2242\324\224+\325 \203\220 \313 \210`\202\235 \326 \203\234 \327 \210`\202\235 \307.\317\211,-.\203\2013b\210\330 .\321#\203\331 \210\332 \21101n\203\326 \20301U\203\212\307\210`/)\330 /\321#\203\370 \333\324!\334\235\203\363 -T-\202\370 ,T,\327 \210\332 1\202\301 2b\210*\2037)*|\210)b\210+\203,\335\336,\337_\322,-\\]\245\"\2025\335\340,\211-\\#c\210\326 \203\201\331 \210,-\\\317V\203\201\330 \323 \321#\203\201\324\224)\324\225*)*|\210)b\210-\317U\203q\341c\210\202\201,\317U\203~\342c\210\202\201\343c\2102b\210\202X t\205\233\344\3455\203\227\346\202\230\3474#.\207" [emacs-major-version buffer-invisibility-spec beg end re re-box 22 nil (byte-code "\300 \210`\207" [org-back-to-heading] 1) ((error (point-min))) make-marker outline-next-heading "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)" "^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[- X]\\]\\)" "\\|" 0 re-search-backward t 1 point-at-eol 2 org-on-heading-p org-at-item-p org-end-of-item re-search-forward org-beginning-of-item org-get-indentation match-string ("[ ]" "[-]") format "[%d%%]" 100 "[%d/%d]" "[X]" "[ ]" "[-]" message "Checkbox statistics updated %s (%d places)" "in entire file" "in current outline entry" re-find beg-cookie end-cookie is-percent c-on c-off lim eline curr-ind next-ind continue-from startsearch cstat all] 7 (#$ . 9588) "P"]) #@141 Select the face for checkbox statistics. The face will be `org-done' when all relevant boxes are checked. Otherwise it will be `org-todo'. (defalias 'org-get-checkbox-statistics-face #[nil "\300\225\203 \301\300!\302\232\203 \303\207\304\207\305\225\305\224V\203% \301\305!\301\306!\232\203% \303\207\304\207" [1 match-string "100%" org-done org-todo 2 3] 3 (#$ . 11528)]) #@106 Go to the beginning of the current hand-formatted item. If the cursor is not in an item, throw an error. (defalias 'org-beginning-of-item #[nil "`\212\306\307\310\217)\203 \311\202 \312\306\211 \313 \203\" \314\315!\2029 \314\315!\210\316\306w\210i\317\320\215?\2059 b\210\321\322!-\207" [org-empty-line-terminates-plain-lists ind1 ind ind-empty limit pos nil (byte-code "\300 \210\301\302!\210`\207" [org-back-to-heading beginning-of-line 2] 2) ((error (point-min))) 0 10000 org-at-item-p beginning-of-line 1 " " exit (byte-code "\304\305!\210o\204 `W\203 \306\307\310\"\210\311\312!\203 \202$ \313\310w\210i\n W\203 \304\314!\210\306\307\315 \"\210\202 " [limit ind-empty ind1 ind beginning-of-line 0 throw exit nil looking-at "[ ]*$" " " 1 org-at-item-p] 3) error "Not in an item"] 5 (#$ . 11911) nil]) #@100 Go to the end of the current hand-formatted item. If the cursor is not in an item, throw an error. (defalias 'org-end-of-item #[nil "`\306\n\203\f \307\202 \310\212\311 \210`) \212\312 \210\313\306w\210i) \314\315\215\211 \203/ b\2025 b\210\316\317!.\207" [pos ind1 org-empty-line-terminates-plain-lists ind-empty limit ind nil 0 10000 outline-next-heading org-beginning-of-item " " exit (byte-code "\304\305!\210m\203 \306\307`\"\210`Y\203 \306\307\310 \"\210\311\312!\203$ \202* \313\314w\210i\n X\203 \306\307\310 \"\210\202 " [limit ind-empty ind1 ind beginning-of-line 2 throw exit point-at-bol looking-at "[ ]*$" " " nil] 3) error "Not in an item" end] 3 (#$ . 12745) nil]) #@138 Move to the beginning of the next item in the current plain list. Error if not at a plain list, or if this is the last item in the list. (defalias 'org-next-item #[nil "\303\211`\304 \210\305 \306 \210\305 \307 \205 \n U?\205$ b\210\310\311!+\207" [pos ind1 ind nil org-beginning-of-item org-get-indentation org-end-of-item org-at-item-p error "On last item"] 3 (#$ . 13452) nil]) #@143 Move to the beginning of the previous item in the current plain list. Error if not at a plain list, or if this is the first item in the list. (defalias 'org-previous-item #[nil "\304\211\211`\305 \210`\306 b\210\307\310\215\210\304\311\312\217,\207" [pos ind1 ind beg nil org-beginning-of-item org-get-indentation exit (byte-code "\302\303!\210\304\305!\204 \306 \211 X\203 \307\310\311\"\210\202 " [ind1 ind beginning-of-line 0 looking-at "[ ]*$" org-get-indentation throw exit t] 3) (byte-code "\302 \203\f SW\203 \303\304!\207\305 \207" [ind1 ind org-at-item-p error "" org-beginning-of-item] 2) ((error (byte-code "b\210\301\302!\207" [pos error "On first item"] 2)))] 4 (#$ . 13847) nil]) #@43 Is this heading the item in a plain list? (defalias 'org-first-list-item-p #[nil "\300 \204 \301\302!\210\303 \210`\212\304 )U\207" [org-at-item-p error "Not at a plain list item" org-beginning-of-item org-beginning-of-item-list] 2 (#$ . 14563)]) #@179 Move the plain list item at point down, i.e. swap with following item. Subitems (items with larger indentation) are considered part of the item, so this really moves item trees. (defalias 'org-move-item-down #[nil "i`\306\211\211\211\211\211\211\211\211 \307 \210`\212\310 `)b\210\311 \312 \210`\311 \310 `b\210\313 \203[ W\203[ \212b\210 Zy\210`) b\210\314 \203\224 \f U\203\224 \312 \210\310 \210{\212|\210)`\nc\210b\210\315 \210\316 \210\317!\202\240 b\210\317!\210\320\321!. \207" [ne-beg ne-end txt ind1 ind end0 nil org-beginning-of-item org-back-over-empty-lines org-get-indentation org-end-of-item org-first-list-item-p org-at-item-p org-skip-whitespace org-maybe-renumber-ordered-list move-to-column error "Cannot move this item further down" end beg0 beg pos col] 11 (#$ . 14818) nil]) #@176 Move the plain list item at point up, i.e. swap with previous item. Subitems (items with larger indentation) are considered part of the item, so this really moves item trees. (defalias 'org-move-item-up #[(arg) "i`\306\211\211\211\211\211\211\211\211 \307 \210`\310 \212\311 ` )b\210\312 \210\311 \210`b\210\313\314\215\210\306\315\316\217\210\310 \317 \203\237 \fU\203\237 \311 {\212 |\210)` c\210` b\210\320 \210\321 \203\225 \nV\203\225 \212b\210\322 \323 \nZ!\210*\324 \nZ\325\"c\210\326 \210\327 !\202\253 b\210\327 !\210\330\331!. \207" [ins-end ne-ins ne-beg txt ind1 ind nil org-beginning-of-item org-get-indentation org-back-over-empty-lines org-end-of-item exit (byte-code "\304\305!\210\306\307!\203 \203 b\210\310\311!\210\202 \312 \211 X\203 \313\314\315\"\210\202 " [org-empty-line-terminates-plain-lists pos ind1 ind beginning-of-line 0 looking-at "[ ]*$" error "Cannot move this item further up" org-get-indentation throw exit t] 3) (org-beginning-of-item) ((error (byte-code "b\210\302 !\210\303\304!\207" [beg0 col move-to-column error "Cannot move this item further up"] 2))) org-at-item-p org-skip-whitespace org-first-list-item-p t kill-line make-string 10 org-maybe-renumber-ordered-list move-to-column error "Cannot move this item further up" end beg0 beg pos col kill-whole-line] 11 (#$ . 15677) "p"]) #@147 Renumber the ordered list at point if setup allows it. This tests the user option `org-auto-renumber-ordered-lists' before doing the renumbering. (defalias 'org-maybe-renumber-ordered-list #[nil "\205 \301 \205 \302\224\203 \303\304!\207\305 \207" [org-auto-renumber-ordered-lists org-at-item-p 3 org-renumber-ordered-list 1 org-fix-bullet-type] 2 (#$ . 17068) nil]) (defalias 'org-maybe-renumber-ordered-list-safe #[nil "\300\301\302\217\207" [nil (byte-code "\212\300 )\207" [org-maybe-renumber-ordered-list] 1) ((error))] 3]) #@261 Cycle through the different itemize/enumerate bullets. This cycle the entire list level through the sequence: `-' -> `+' -> `*' -> `1.' -> `1)' If WHICH is a string, use that as the new bullet. If WHICH is an integer, 0 means `-', 1 means `+' etc. (defalias 'org-cycle-list-bullet #[(&optional which) "\306\212\203\n b\210n\203 \307\202 \310\311\307`\"\\*i\312\216\313 \210\314 \210\315\307!\210\316\310! \317=\306\211 & ' \247\203B S\3208\206\302 \321\322'\"\203W &\203S \323\202\302 \324\202\302 \321\325'\"\203v &\203h \322\202\302 \326\327!\203r \330\202\302 \331\202\302 \321\332'\"\203\213 &\203\207 \324\202\302 \330\202\302 \321\333'\"\203\252 &\203\246 \326\327!\203\242 \324\202\302 \331\202\302 \323\202\302 \321\334'\"\203\277 &\203\273 \330\202\302 \322\202\302 \335\336!\326\337!\203\327 \316\340!\211\203\327 \341\342 P!\210\343 G\fGZ!\210\344 \210\345 .\207" [pos _col _line which old new nil 1 0 count-lines ((byte-code "\302!\210\303 !\207" [_line _col goto-line org-move-to-column] 2)) org-beginning-of-item-list org-at-item-p beginning-of-line match-string previous ("-" "+" "*" "1." "1)") string-match "-" "1)" "+" "\\+" looking-at "\\S-" "1." "*" "\\*" "\\." ")" error "This should not happen" "\\([ ]*\\)\\(\\S-+\\)" 2 replace-match "\\1" org-shift-item-indentation org-fix-bullet-type org-maybe-renumber-ordered-list prevp current] 4 (#$ . 17608) "P"]) #@77 What indentation has S due to SPACE and TAB at the beginning of the string? (defalias 'org-get-string-indentation #[(s) "\305\306\307 \310\311\215\210 ,\207" [tab-width c w i n -1 0 nil exit (byte-code "T\211 GW\2033 H\211\305U\203 T\202 \n\306U\203+ \f \\\f\245\f_\202 \307\310\311\"\210\202 \305\207" [n s c i w 32 9 throw exit t] 4)] 4 (#$ . 19028)]) #@137 Renumber an ordered plain list. Cursor needs to be in the first line of an item, the line that starts with something like "1." or "2)". (defalias 'org-renumber-ordered-list #[(arg) "\306 \203\n \307\224\204 \310\311!\210\312\212\203 b\210n\203 \313\202! \314\315\313`\"\\*i\316\317 \307\224{!\312 S\312\211\211\211 \320 \210o\321\322!\210\323\324\313!P\325\314!\210\326\327\215\210\330 !\210\331 !. \207" [pos arg new old bobp fmt org-at-item-p 3 error "This is not an ordered list" nil 1 0 count-lines org-get-string-indentation point-at-bol org-beginning-of-item-list looking-at "[ ]*[0-9]+\\([.)]\\)" "%d" match-string beginning-of-line exit (byte-code "\300\301\215\210\202 " [next (byte-code "\203 \306\202 \307\310!\210m\203 \311\312\306\"\210\313\314!\203! \311\315\306\"\210\316\306w\210i\211\nV\2032 \311\315\317\"\210 \nW\203= \311\312\317\"\210\320 \204G \311\312\306\"\210\321\310!\310\224\310\225|\210\310\224b\210\322\f T\211\"\211c\210\323G GZ!\207" [bobp ind1 ind old fmt n nil beginning-of-line 2 throw exit looking-at "[ ]*$" next " " t org-at-item-p match-string format org-shift-item-indentation new] 5)] 2) goto-line org-move-to-column n ind1 ind col line] 9 (#$ . 19405) "p"]) #@101 Make sure all items in this list have the same bullet as the first item. Also, fix the indentation. (defalias 'org-fix-bullet-type #[nil "\306 \204 \307\310!\210\311\212\203 b\210n\203 \312\202 \313\314\312`\"\\*i\315 \311\211\211 \316 \210\317\312!\210\320\321!\210\322\312!\323P \203Q \324 \n\"\203Q \n\323P\317\313!\210\325\326\215\210\327!\210\330 !\210\324\331\n\"\205l \332\312!.\207" [pos oldbullet bullet ind1 ind col org-at-item-p error "This is not a list" nil 1 0 count-lines current-indentation org-beginning-of-item-list beginning-of-line looking-at "[ ]*\\(\\S-+\\)" match-string " " string-match exit (byte-code "\300\301\215\210\202 " [next (byte-code "\304\305!\210m\203 \306\307\310\"\210\311\312!\203 \306\313\310\"\210\314\310w\210i\211 V\203) \306\313\315\"\210 W\2034 \306\307\315\"\210\316 \204> \306\307\310\"\210\314\310w\210\311\317!\210\320\321!\322 !\210\323 G\nGZ!\207" [ind1 ind oldbullet bullet beginning-of-line 2 throw exit nil looking-at "[ ]*$" next " " t org-at-item-p "\\S-+ *" match-string 0 replace-match org-shift-item-indentation] 4)] 2) goto-line org-move-to-column "[0-9]" org-renumber-ordered-list line org-list-two-spaces-after-bullet-regexp] 6 (#$ . 20650) nil]) #@49 Shift the indentation in current item by DELTA. (defalias 'org-shift-item-indentation #[(delta) "\212\304 \305 \210`\306 b\210\307\310!\210`\nV\205< \311\312!\2035 \313 \211\310V\2035 \\\211\310V\2035 \314!\210\307\310!\210\202 ,\207" [i end beg delta point-at-bol org-end-of-item nil beginning-of-line 0 looking-at "[ ]*\\S-" org-get-indentation indent-line-to] 4 (#$ . 21894)]) #@84 Go to the beginning of the current item list. I.e. to the first item in this list. (defalias 'org-beginning-of-item-list #[nil "\303 \210\304 \305 \306\307\310\215\210\nb+\207" [ind1 ind pos org-beginning-of-item point-at-bol org-get-indentation nil exit (byte-code "\300\301\215\210\202 " [next (byte-code "\303\304!\210\305\306!\203 \307o\203 \310\202 \311\312\"\210\313\314w\210i\211 W\204; U\203. \315 \203; \316 eU\203C e\211\203C \307\310\312\"\210\202K \315 \203K \316 \314\207" [ind1 ind pos beginning-of-line 0 looking-at "[ ]*$" throw exit next t " " nil org-at-item-p point-at-bol] 4)] 2)] 3 (#$ . 22290) nil]) #@79 Go to the end of the current item list. I.e. to the text after the last item. (defalias 'org-end-of-item-list #[nil "\303 \210\304 \305 \306\307\310\215\210\nb+\207" [ind1 ind pos org-beginning-of-item point-at-bol org-get-indentation nil exit (byte-code "\300\301\215\210\202 " [next (byte-code "\303\304!\210\305\306!\203 \307m\203 \310\202 \311\312\"\210\313\314w\210i\211 W\2042 U\203. \315 \2032 m\203: \316 \307\310\312\"\210\314\207" [ind1 ind pos beginning-of-line 2 looking-at "[ ]*$" throw exit next t " " nil org-at-item-p point-at-bol] 4)] 2)] 3 (#$ . 22932) nil]) (byte-code "\301B\302\301!\204 \303\301\304 \"\210\305B\302\305!\204 \303\305\304 \"\210\301\207" [current-load-list org-last-indent-begin-marker default-boundp set-default make-marker org-last-indent-end-marker] 3) #@28 Outdent a local list item. (defalias 'org-outdent-item #[(arg) "\301[!\207" [arg org-indent-item] 2 (#$ . 23750) "p"]) #@27 Indent a local list item. (defalias 'org-indent-item #[(arg) "\306 \204 \307\310!\210\212\311\211\211\211\211\211\211\211 \312>\203. \202B \313 \210 `\311\223 \314 \210 `\311\223 b\210\315 \211@\316 8 A@ \317V\203i \203e Z\202t \316\202t \203s Z\202t \320\211 \\\317W\203\201 \307\321!\210`W\203\250 \322\323!\210\324\311w\210i\325 `|\210l\204\241 \326\f\n\\!\210\322\316!\210\202\201 . \327 \210\330 \210\212\322\317!\210\311\331\332\217\210\330 )\207" [ind-up ind-down delta tmp ind1 ind org-at-item-p error "Not on an item" nil (org-shiftmetaright org-shiftmetaleft) org-beginning-of-item org-end-of-item org-item-indent-positions 2 0 -2 "Cannot outdent beyond margin" beginning-of-line 1 " " point-at-bol org-indent-to-column org-fix-bullet-type org-maybe-renumber-ordered-list-safe (org-beginning-of-item) ((error)) end beg last-command org-last-indent-begin-marker org-last-indent-end-marker arg] 9 (#$ . 23876) "p"]) #@199 Return indentation for plain list items. This returns a list with three values: The current indentation, the parent indentation and the indentation a child should have. Assumes cursor in item line. (defalias 'org-item-indent-positions #[nil "\305 \306 \307\211\307 \212\310 \210\311\307x\210\312 \203 \313 \210\306 )`\212\307\314\315\217\203; \316u\210\317\320\321#\203; \306 \202O \fb\203O \322 \203O \323\225b\210\324\307w\210i) \nE-\207" [bolpos ind ind-down ind-up pos point-at-bol org-get-indentation nil org-beginning-of-item-list "\n " org-in-item-p org-beginning-of-item (byte-code "\300 \210\301\207" [org-previous-item t] 1) ((error)) 1 re-search-forward "^\\([ ]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[ ]+\\*\\)\\( \\|$\\)" t org-at-item-p 0 " "] 5 (#$ . 24849)]) #@136 Parse the list at point and maybe DELETE it. Return a list containing first level items as strings and sublevels as a list of strings. (defalias 'org-list-parse-list #[(&optional delete) "\306 \211@\307A!\310\211 \310 \311$\n\312#\203\316 \313\224b\210\314 %\315\216\316\317\320\321!\"\2034 \322\323\202H \316\324\320\325!\"\203D \326\327\202H \326\330*\320\331! &\212\314 %\332\216\311\333&\f\334R\n\312#\203g \325\224\206h \n+ '`\311$\n\312#\203{ \325\224b\206} \nb{ (\320\331! )\335(! (\316\336(\"\203\253 \337\320\331(\"\340\232\203\242 \341\202\243 \342\312\310($\202\255 (\211 ( B)G&GV\203\311 `'}\210\343 B~\210.\202 *\203\327 \n|\210 \237 B\211.\207" [item-beginning start end output itemsep ltype org-list-item-beginning org-list-end nil re-search-forward t 3 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[0-9]" match-string 2 "[0-9]+\\(?:\\.\\|)\\)" ordered "^.*::" 0 "[-+]" descriptive unordered 1 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "^" " *?" org-trim "^\\[\\([xX ]\\)\\]" replace-match " " "[CBOFF]" "[CBON]" org-list-parse-list org-list-beginning-re save-match-data-internal indent1 nextitem item nextindent delete] 6 (#$ . 25641)]) #@135 Find the beginning of the list item. Return a cons which car is the beginning position of the item and cdr is the indentation string. (defalias 'org-list-item-beginning #[nil "\212\301!\204 \302\303\304#\204 eb\210`\202 \305\224\306\307!B)\207" [org-list-beginning-re looking-at re-search-backward nil t 0 match-string 1] 4 (#$ . 26946)]) #@84 Return the position of the end of the list. INDENT is the indentation of the list. (defalias 'org-list-end #[(indent) "\212\300\301\215\210`)\207" [exit (byte-code "\302!\204 \302\303 \304Q!\203 `d=\203 \305\306d\"\210\307y\210\202 \302\207" [org-list-beginning-re indent looking-at "^" "[ ]+\\|^$" throw exit 1] 4)] 2 (#$ . 27296)]) #@63 Insert a radio list template appropriate for this major mode. (defalias 'org-list-insert-radio-list #[nil " \236\211A@\306\211 \n\204 \307\310\"\210\311\312!\313\314 \"\203* \315\f\316\211 $\202 n\2041 \317c\210` c\210 b,\207" [major-mode org-list-radio-list-templates e txt name pos nil error "No radio list setup defined for %s" read-string "List name: " string-match "%n" replace-match t "\n"] 6 (#$ . 27642) nil]) #@147 Send a tranformed version of this list to the receiver position. With argument MAYBE, fail quietly if no transformation is defined for this list. (defalias 'org-list-send-list #[(&optional maybe) "\300\301\215\207" [exit (byte-code "\306 \204 \307\310!\210\212\311 @b\210\312\313!\210\314\315!\204) \203% \316\317\320\"\210\202) \307\321!\210)\322\323!\311 \324\322\325!!\326\n@\327\nA!\" \330 \320 %\331 !\204Q \307\332 \"\210 !\212eb\210\333\334 \335Q\320\336#\204h \307\337!\210\313\224b\210\312\325!\210`%\333\340 P\320\336#\204\201 \307\341!\210\312\323!\210%`|\210%b\210\f\342\261\210)\343\344!.\207" [maybe name item-beginning transform txt list org-at-item-p error "Not at a list" org-list-item-beginning beginning-of-line 0 looking-at "#\\+ORGLST: *SEND +\\([a-zA-Z0-9_]+\\) +\\([^ \n]+\\)\\( +.*\\)?" throw exit nil "Don't know how to transform this list" match-string 1 intern 2 buffer-substring-no-properties org-list-end org-list-parse-list fboundp "No such transformation function %s" re-search-forward "BEGIN RECEIVE ORGLST +" "\\([ ]\\|$\\)" t "Don't know where to insert translated list" "END RECEIVE ORGLST +" "Cannot find end of insertion region" "\n" message "List converted and installed at receiver location" beg] 4)] 2 (#$ . 28077) nil]) #@922 Convert a LIST parsed through `org-list-parse-list' to other formats. Valid parameters PARAMS are :ustart String to start an unordered list :uend String to end an unordered list :ostart String to start an ordered list :oend String to end an ordered list :dstart String to start a descriptive list :dend String to end a descriptive list :dtstart String to start a descriptive term :dtend String to end a descriptive term :ddstart String to start a description :ddend String to end a description :splice When set to t, return only list body lines, don't wrap them into :[u/o]start and :[u/o]end. Default is nil. :istart String to start a list item :iend String to end a list item :isep String to separate items :lsep String to separate sublists :cboff String to insert for an unchecked checkbox :cbon String to insert for a checked checkbox (defalias 'org-list-to-generic #[(list params) "\306\307 \310\"\307 \311\" \307 \312\" \307 \313\" *\307 \314\" +\307 \315\" ,\307 \316\" -\307 \317\" .\307 \320\" /\307 \321\" 0\307 \322\" 1\307 \323\" 2\307 \324\" 3\307 \325\" 4\307 \326\" 5\307 \327\" 6\307 \330\" 78@\331=\203w \f\332 \333R\202\230 8@\334=\203\211 *\332+\333R\202\230 8@\335=\205\230 ,\332-\333R\306\211\211\211 9 : ; < =8\211A8@\211\203 \n9\204\246 \n;\203\336\337\n\"\203\333 \340\341.\342/Q\343\344\n\"\"!;\n;GT\306O\336\345\n\"\203\352 \3466\347\211\n$\336\350\n\"\203\371 \3467\347\211\n$<2;0\n134\260<\202\246 <5\351\n \"5R<\202\246 \341=<\".\207" [params p sublist splicep ostart oend nil plist-get :splice :ostart :oend :ustart :uend :dstart :dend :dtstart :dtend :ddstart :ddend :istart :iend :isep :lsep :cbon :cboff ordered "\n%s" "\n" unordered descriptive string-match "^\\(.*\\) ::" org-trim format "%s" match-string 1 "\\[CBON\\]" replace-match t "\\[CBOFF\\]" org-list-to-generic ustart uend dstart dend dtstart dtend ddstart ddend istart iend isep lsep cbon cboff list defend defstart term rtn wrapper] 8 (#$ . 29361) nil]) #@159 Convert LIST into a LaTeX list. LIST is as returnd by `org-list-parse-list'. PARAMS is a property list with overruling parameters for `org-list-to-generic'. (defalias 'org-list-to-latex #[(list &optional params) "\302\303\304 \"\"\207" [list params org-list-to-generic org-combine-plists (:splicep nil :ostart "\\begin{enumerate}" :oend "\\end{enumerate}" :ustart "\\begin{itemize}" :uend "\\end{itemize}" :dstart "\\begin{description}" :dend "\\end{description}" :dtstart "[" :dtend "]" :ddstart #1="" :ddend #1# :istart "\\item " :iend #1# :isep "\n" :lsep "\n" :cbon "\\texttt{[X]}" :cboff "\\texttt{[ ]}")] 5 (#$ . 31443)]) #@158 Convert LIST into a HTML list. LIST is as returnd by `org-list-parse-list'. PARAMS is a property list with overruling parameters for `org-list-to-generic'. (defalias 'org-list-to-html #[(list &optional params) "\302\303\304 \"\"\207" [list params org-list-to-generic org-combine-plists (:splicep nil :ostart "<ol>" :oend "</ol>" :ustart "<ul>" :uend "</ul>" :dstart "<dl>" :dend "</dl>" :dtstart "<dt>" :dtend "</dt>" :ddstart "<dd>" :ddend "</dd>" :istart "<li>" :iend "</li>" :isep "\n" :lsep "\n" :cbon "<code>[X]</code>" :cboff "<code>[ ]</code>")] 5 (#$ . 32080)]) #@161 Convert LIST into a Texinfo list. LIST is as returnd by `org-list-parse-list'. PARAMS is a property list with overruling parameters for `org-list-to-generic'. (defalias 'org-list-to-texinfo #[(list &optional params) "\302\303\304 \"\"\207" [list params org-list-to-generic org-combine-plists (:splicep nil :ostart "@itemize @minus" :oend "@end itemize" :ustart "@enumerate" :uend "@end enumerate" :dstart "@table" :dend "@end table" :dtstart "@item " :dtend "\n" :ddstart #1="" :ddend #1# :istart "@item\n" :iend #1# :isep "\n" :lsep "\n" :cbon "@code{[X]}" :cboff "@code{[ ]}")] 5 (#$ . 32659)]) (provide 'org-list)
Close
