mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\301\302!\210\301\303!\210\304W\203E\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\210\305\316\317\"\210\305\320\321\"\210\305\322\323\"\210\305\324\325\"\210\305\326\327\"\210\305\330\331\"\210\305\332\333\"\210\334\335!\204P\305\335\336\"\210\305\337\340\341#\210\342\337\340\341#\210\305\343\344\341#\210\342\343\344\345#\210\305\346\347\341#\210\342\346\347\345#\210\305\350\351\341#\210\342\350\351\345#\210\305\352\353\341#\210\342\352\353\345#\210\305\354\355\341#\210\342\354\355\345#\210\305\356\357\341#\210\342\356\357\345#\210\305\360\361\341#\210\342\360\361\345#\210\305\362\363\341#\210\342\362\363\345#\210\305\364\365\341#\210\342\364\365\345#\210\305\366\367\341#\210\342\366\367\345#\210\305\370\371\341#\210\342\370\371\345#\210\305\372\373\341#\210\342\372\373\345#\210\305\374\375\341#\210\342\374\375\345#\210\305\376\377\341#\210\342\376\377\345#\207" [emacs-major-version require cl-lib org-macs 25 defalias outline-hide-entry hide-entry outline-hide-sublevels hide-sublevels outline-hide-subtree hide-subtree outline-show-all show-all outline-show-branches show-branches outline-show-children show-children outline-show-entry show-entry outline-show-subtree show-subtree xref-find-definitions find-tag format-message format gui-get-selection x-get-selection fboundp directory-name-p #[257 "\211G\301\302V\203SH\262\211\303U\206\304>\205\211\305U\207" [system-type 46 0 47 (windows-nt ms-dos) 92] 5 "Return non-nil if NAME ends with a directory separator character.\n\n(fn NAME)"] org-activate-mark activate-mark nil make-obsolete org-add-hook add-hook "Org 9.0" org-bound-and-true-p bound-and-true-p org-decompose-region decompose-region org-defvaralias defvaralias org-detach-overlay delete-overlay org-file-equal-p file-equal-p org-float-time float-time org-indent-line-to indent-line-to org-indent-to-column indent-to-column org-looking-at-p looking-at-p org-looking-back looking-back org-match-string-no-properties match-string-no-properties org-propertize propertize org-select-frame-set-input-focus select-frame-set-input-focus] 4)
16 #@56 Replace posix classes in regular expression S.
17
18 (fn S)
19 (defalias 'org-re '(macro . #[257 "\207" [] 2 (#$ . 2520)]))
20 (byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310\311\312#\210\304\310\311\306#\210\307\313\314\312#\210\304\313\314\306#\210\307\315\316\312#\210\304\315\316\306#\210\307\317\320\312#\210\304\317\320\306#\210\307\321\322\312#\210\304\321\322\306#\210\307\323\324\312#\210\304\323\324\306#\210\307\325\326\312#\210\304\325\326\306#\210\307\327\330\312#\210\304\327\330\306#\207" [put org-re edebug-form-spec (form) make-obsolete "you can safely remove it." "Org 9.0" defalias org-count cl-count nil org-every cl-every org-find-if cl-find-if org-reduce cl-reduce org-remove-if cl-remove-if org-remove-if-not cl-remove-if-not org-some cl-some org-floor* cl-floor] 4)
21 #@89 Return a section of LIST, from START to END.
22 Counting starts at 1.
23
24 (fn LIST START END)
25 (defalias 'org-sublist #[771 "\300S#\207" [cl-subseq] 7 (#$ . 3320)])
26 (byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\210\304\310\311\307#\210\300\310\311\303#\210\304\312\313\307#\210\300\312\313\303#\210\304\314\315\307#\210\300\314\315\303#\210\304\316\317\307#\210\300\316\317\303#\210\304\320\321\307#\210\300\320\321\303#\210\304\322\323\307#\210\300\322\323\303#\210\304\324\325\307#\210\300\324\325\303#\210\304\326\327\307#\210\300\326\327\303#\210\304\330\331\307#\210\300\330\331\303#\210\304\332\333\307#\210\300\332\333\303#\210\334\335\336\307#\210\337\211\203\262\211@\335N\203\253\336N\204\253\340\336\335N#\210A\266\202\202\221\210\341\335\336\303#\210\334\342\343\307#\210\337\211\203\341\211@\342N\203\332\343N\204\332\340\343\342N#\210A\266\202\202\300\210\341\342\343\303#\210\304\344\345\307#\210\300\344\345\303#\210\304\346\347\307#\210\300\346\347\303#\210\304\350\351\307#\210\300\350\351\352#\210\304\353\354\307#\210\300\353\354\303#\210\304\355\356\307#\210\300\355\356\303#\210\304\357\356\307#\210\300\357\356\303#\210\304\360\361\307#\210\300\360\361\303#\210\304\362\363\307#\210\300\362\363\364#\210\334\365\366\307#\210\337\211\203p\211@\365N\203i\366N\204i\340\366\365N#\210A\266\202\202O\210\341\365\366\303#\210\304\367\370\307#\210\300\367\370\352#\210\304\371\372\307#\210\300\371\372\303#\210\334\373\374\307#\210\337\211\203\267\211@\373N\203\260\374N\204\260\340\374\373N#\210A\266\202\202\226\210\341\373\374\303#\210\334\375\376\307#\210\337\211\203\346\211@\375N\203\337\376N\204\337\340\376\375N#\210A\266\202\202\305\210\341\375\376\303#\210\334\377\201@\307#\210\337\211\203\211@\377N\203\201@N\204\340\201@\377N#\210A\266\202\202\366\210\341\377\201@\364#\210\304\201A\201B\307#\210\300\201A\201B\303#\210\304\201C\201D\307#\210\300\201C\201D\303#\210\304\201E\201F\307#\210\300\201E\201F\303#\210\334\201G\201H\307#\210\337\211\203\224\211@\201GN\203\215\201HN\204\215\340\201H\201GN#\210A\266\202\202k\210\341\201G\201H\201I#\210\304\201J\201K\307#\210\300\201J\201K\303#\210\334\201L\201M\307#\210\337\211\203\351\211@\201LN\203\342\201MN\204\342\340\201M\201LN#\210A\266\202\202\300\210\341\201L\201M\201N#\210\304\201O\201P\307#\210\300\201O\201P\303#\210\334\201Q\201R\307#\210\337\211\203>\211@\201QN\2037\201RN\2047\340\201R\201QN#\210A\266\202\202\210\341\201Q\201R\201I#\210\304\201S\201T\307#\210\300\201S\201T\303#\210\304\201U\201V\307#\210\300\201U\201V\303#\210\304\201W\201V\307#\210\300\201W\201V\303#\207" [make-obsolete org-sublist "use cl-subseq (note the 0-based counting)." "Org 9.0" defalias org-buffer-narrowed-p buffer-narrowed-p nil org-called-interactively-p called-interactively-p org-char-to-string char-to-string org-delete-directory delete-directory org-format-seconds format-seconds org-link-escape-browser url-encode-url org-no-warnings with-no-warnings org-number-sequence number-sequence org-pop-to-buffer-same-window pop-to-buffer-same-window org-string-match-p string-match-p org-element-remove-indentation org-remove-indentation defvaralias org-latex-create-formula-image-program org-preview-latex-default-process (saved-value saved-variable-comment) put make-obsolete-variable org-latex-preview-ltxpng-directory org-preview-latex-image-directory org-table-p org-at-table-p org-on-heading-p org-at-heading-p org-at-regexp-p org-in-regexp "Org 8.3" org-image-file-name-regexp image-file-name-regexp org-completing-read-no-i completing-read org-icompleting-read org-iread-file-name read-file-name org-days-to-time org-time-stamp-to-now "Org 8.2" org-agenda-ignore-drawer-properties org-agenda-ignore-properties org-preview-latex-fragment org-toggle-latex-fragment org-export-get-genealogy org-element-lineage org-latex-with-hyperref org-latex-hyperref-template hfy-optimisations hfy-optimizations org-export-htmlized-org-css-url org-org-htmlized-css-url org-list-parse-list org-list-to-lisp org-agenda-todayp org-agenda-today-p org-babel-examplize-region org-babel-examplify-region org-babel-capitalize-example-region-markers org-babel-uppercase-example-markers "Org 9.1" org-babel-trim org-trim org-html-style org-html-head "24.4" org-insert-columns-dblock org-columns-insert-dblock org-export-babel-evaluate org-export-use-babel org-activate-bracket-links org-activate-links org-activate-plain-links ignore org-activate-angle-links] 7)
27 #@43 Non-nil if point in a fixed-width region.
28 (defalias 'org-in-fixed-width-region-p #[0 "\300 \301\302\303\304\305!\306\"\307$\216\310\311 !)\312=\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-element-type org-element-at-point fixed-width] 7 (#$ . 7913)])
29 (make-obsolete 'org-in-fixed-width-region-p "use `org-element' library" "Org 9.0")
30 #@223 Make a compatible face specification.
31 If INHERITS is an existing face and if the Emacs version supports
32 it, just inherit the face.  If INHERITS is not given and SPECS
33 is, use SPECS to define the face.
34
35 (fn INHERITS SPECS)
36 (defalias 'org-compatible-face #[514 "\300!\203\f\301\302EC\207\207" [facep t :inherit] 5 (#$ . 8314)])
37 (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-compatible-face lisp-indent-function 1 make-obsolete "you can remove it." "Org 9.0"] 5)
38 #@1198 Add a new TYPE link.
39 FOLLOW and EXPORT are two functions.
40
41 FOLLOW should take the link path as the single argument and do whatever
42 is necessary to follow the link, for example find a file or display
43 a mail message.
44
45 EXPORT should format the link path for export to one of the export formats.
46 It should be a function accepting three arguments:
47
48   path    the path of the link, the text after the prefix (like "http:")
49   desc    the description of the link, if any
50   format  the export format, a symbol like `html' or `latex' or `ascii'.
51
52 The function may use the FORMAT information to return different values
53 depending on the format.  The return value will be put literally into
54 the exported file.  If the return value is nil, this means Org should
55 do what it normally does with links which do not have EXPORT defined.
56
57 Org mode has a built-in default for exporting links.  If you are happy with
58 this default, there is no need to define an export function for the link
59 type.  For a simple example of an export function, see `org-bbdb.el'.
60
61 If TYPE already exists, update it with the arguments.
62 See `org-link-parameters' for documentation on the other parameters.
63
64 (fn TYPE &optional FOLLOW EXPORT)
65 (defalias 'org-add-link-type #[769 "\300\301\302%\210\303\304\"\207" [org-link-set-parameters :follow :export message "Created %s link."] 9 (#$ . 8809)])
66 (make-obsolete 'org-add-link-type "use `org-link-set-parameters' instead." "Org 9.0")
67 #@69 If there is a table.el table nearby, recognize it and move into it.
68 (defalias 'org-table-recognize-table\.el #[0 "\205H\304 \205H\305 \210\306    !\204$\306\n!\203$\307y\210\306 !\203$\310y\210\311\312\313\314!\314#\203E\315\316!\210\317`!\203:\314\207\320\321!\210\322 \210\320\323!\207\324\325!\207" [org-table-tab-recognizes-table\.el org-table-dataline-regexp org-table1-hline-regexp org-table-any-border-regexp org-at-table\.el-p beginning-of-line looking-at nil -2 re-search-forward "|" org-table-end t require table table--at-cell-p message "recognizing table.el table..." table-recognize-table "recognizing table.el table...done" error "This should not happen"] 4 (#$ . 10256)])
69 (make-obsolete 'org-table-recognize-table\.el "please notify the org mailing list if you use this function." "Org 9.0")
70 #@10 
71
72 (fn S)
73 (defalias 'org-remove-angle-brackets #[257 "\300\301\302#\207" [org-unbracket-string "<" ">"] 5 (#$ . 11074)])
74 (make-obsolete 'org-remove-angle-brackets 'org-unbracket-string "Org 9.0")
75 #@10 
76
77 (fn S)
78 (defalias 'org-remove-double-quotes #[257 "\300\301\211#\207" [org-unbracket-string "\""] 5 (#$ . 11276)])
79 (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\316\305\317\320#\207" [make-obsolete org-remove-double-quotes org-unbracket-string "Org 9.0" custom-declare-variable org-publish-sitemap-file-entry-format funcall function #[0 "\300\207" [#1="%t"] 1 #1#] "Format string for site-map file entry.\nYou could use brackets to delimit on what part the link will be.\n\n%t is the title.\n%a is the author.\n%d is the date formatted using `org-publish-sitemap-date-format'." :group org-export-publish :type string make-obsolete-variable "set `:sitemap-format-entry' in `org-publish-project-alist' instead." "Org 9.1"] 8)
80 #@307 Check if the current entry contains match for `org-agenda-skip-regexp'.
81 If yes, it returns the end position of this entry, causing agenda commands
82 to skip the entry but continuing the search in the subtree.  This is a
83 function that can be put into `org-agenda-skip-function' for the duration
84 of a command.
85 (defalias 'org-agenda-skip-entry-when-regexp-matches #[0 "\212\301\302!)\303\212\304\302#\262)\211\205\207" [org-agenda-skip-regexp org-end-of-subtree t nil re-search-forward] 6 (#$ . 12045)])
86 (make-obsolete 'org-agenda-skip-entry-when-regexp-matches "use `org-agenda-skip-if' instead." "Org 9.1")
87 #@270 Check if the current subtree contains match for `org-agenda-skip-regexp'.
88 If yes, it returns the end position of this tree, causing agenda commands
89 to skip this subtree.  This is a function that can be put into
90 `org-agenda-skip-function' for the duration of a command.
91 (defalias 'org-agenda-skip-subtree-when-regexp-matches #[0 "\212\301\302!)\303\212\304\302#\262)\211\205\207" [org-agenda-skip-regexp org-end-of-subtree t nil re-search-forward] 6 (#$ . 12662)])
92 (make-obsolete 'org-agenda-skip-subtree-when-regexp-matches "use `org-agenda-skip-if' instead." "Org 9.1")
93 #@397 Check if the current subtree contains match for `org-agenda-skip-regexp'.
94 If yes, it returns the end position of the current entry (NOT the tree),
95 causing agenda commands to skip the entry but continuing the search in
96 the subtree.  This is a function that can be put into
97 `org-agenda-skip-function' for the duration of a command.  An important
98 use of this function is for the stuck project list.
99 (defalias 'org-agenda-skip-entry-when-regexp-matches-in-subtree #[0 "\212\301\302!)\212\303 \210`S)\304\212\305\302#\262)\211\205\207" [org-agenda-skip-regexp org-end-of-subtree t outline-next-heading nil re-search-forward] 7 (#$ . 13246)])
100 (byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\210\304\310\311\307#\210\300\310\311\303#\210\304\312\311\307#\210\300\312\311\303#\210\313\314\315\303#\210\313\316\315\303#\210\313\317\315\303#\210\313\320\321\303#\210\304\322\323\307#\210\300\322\323\324#\210\325\326\327\307#\210\330\211\203v\211@\326N\203o\327N\204o\331\327\326N#\210A\266\202\202U\210\313\326\327\303#\210\325\332\333\307#\210\330\211\203\245\211@\332N\203\236\333N\204\236\331\333\332N#\210A\266\202\202\204\210\313\332\333\303#\210\300\334\335\324#\210\336\337\340\"\207" [make-obsolete org-agenda-skip-entry-when-regexp-matches-in-subtree "use `org-agenda-skip-if' instead." "Org 9.1" defalias org-minutes-to-clocksum-string org-duration-from-minutes nil org-hh:mm-string-to-minutes org-duration-to-minutes org-duration-string-to-minutes make-obsolete-variable org-time-clocksum-format "set `org-duration-format' instead." org-time-clocksum-use-fractional org-time-clocksum-fractional-format org-time-clocksum-use-effort-durations "set `org-duration-units' instead." org-babel-number-p org-babel--string-to-number "Org 9.0" defvaralias org-usenet-links-prefer-google org-gnus-prefer-web-links (saved-value saved-variable-comment) put org-texinfo-def-table-markup org-texinfo-table-default-markup org-capture-import-remember-templates "use the `org-capture-templates' variable instead." eval-after-load org #[0 "\300\301!\210\300\302!\207" [org-link-set-parameters "file+emacs" "file+sys"] 2]] 7)
101 #@30 
102
103 (fn VERSION FEATURE LEVEL)
104 (defalias 'org-version-check #[771 "\301\302\303\304\"\"\301\302\303\304\"\"@\206\305A@\206\305\3068\206\"\305@\206(\307A@\206/\307\3068\2067\307W\204^U\203KW\204^U\203zU\203z\211W\203z\310=?\205{\311\312\f\f#\313\314\f#\210\315\262\202{\315\207" [emacs-version mapcar string-to-number split-string "[.]" 99 2 0 :predicate format "Emacs %s or greater is recommended for %s" display-warning org t] 16 (#$ . 15408)])
105 #@58 Get the value of the X or Windows clipboard.
106
107 (fn VALUE)
108 (defalias 'org-get-x-clipboard #[257 "\302=\203I\303\304!\203I\3051-\304\306\"\206)\304\307\"\206)\304\310\"\206)\304\311\"0\202/\210\312\312\211\203?\313\314G    $\210\202G\315\314G\312$\210\207\316=\205W\303\317!\205W\317 \207" [window-system org-rm-props x fboundp gui-get-selection (error) UTF8_STRING COMPOUND_TEXT STRING TEXT nil remove-text-properties 0 set-text-properties w32 w32-get-clipboard-data] 8 (#$ . 15904)])
109 #@239 Add text properties to entire string, from beginning to end.
110 PLIST may be a list of properties, PROPS are individual properties and values
111 that will be added to PLIST.  Returns the string that was modified.
112
113 (fn STRING PLIST &rest PROPS)
114 (defalias 'org-add-props #[642 "\300\301G\203\302\"\202$\210\207" [add-text-properties 0 append] 9 (#$ . 16413)])
115 (put 'org-add-props 'lisp-indent-function 2)
116 #@360 Fit WINDOW to the buffer, but only if it is not a side-by-side window.
117 WINDOW defaults to the selected window.  MAX-HEIGHT and MIN-HEIGHT are
118 passed through to `fit-window-to-buffer'.  If SHRINK-ONLY is set, call
119 `shrink-window-if-larger-than-buffer' instead, the height limit is
120 ignored in this case.
121
122 (fn &optional WINDOW MAX-HEIGHT MIN-HEIGHT SHRINK-ONLY)
123 (defalias 'org-fit-window-to-buffer #[1024 "\300\301!\203 \301!?\202\302 \303!V\2043\300\304!\203)\211\204)\304#\210\2023\300\305!\2033\305!\210\2069\306 \207" [fboundp window-full-width-p frame-width window-width fit-window-to-buffer shrink-window-if-larger-than-buffer selected-window] 8 (#$ . 16829)])
124 (byte-code "\300\301\302\303!\203\f\303\202 \304\"\207" [defalias org-set-transient-map fboundp set-transient-map set-temporary-overlay-map] 4)
125 #@54 Non-nil means temporarily disable the active region.
126 (defvar org-ignore-region nil (#$ . 17661))
127 #@106 Non-nil when the region active.
128 Unlike to `use-region-p', this function also checks
129 `org-ignore-region'.
130 (defalias 'org-region-active-p #[0 "?\205\301 \207" [org-ignore-region use-region-p] 1 (#$ . 17765)])
131 (defalias 'org-cursor-to-region-beginning #[0 "\300 \205`\301 V\205\302 \207" [org-region-active-p region-beginning exchange-point-and-mark] 2])
132 #@60 Remove elements from `buffer-invisibility-spec'.
133
134 (fn ARG)
135 (defalias 'org-remove-from-invisibility-spec #[257 "\301\302!\203\n\302!\207:\205\303\"\211\207" [buffer-invisibility-spec fboundp remove-from-invisibility-spec delete] 4 (#$ . 18130)])
136 #@58 Is ARG a member of `buffer-invisibility-spec'?
137
138 (fn ARG)
139 (defalias 'org-in-invisibility-spec-p #[257 ":\205\211\235\207" [buffer-invisibility-spec] 3 (#$ . 18389)])
140 #@103 Move to column COLUMN.
141 Pass COLUMN and FORCE to `move-to-column'.
142
143 (fn COLUMN &optional FORCE BUFFER)
144 (defalias 'org-move-to-column #[769 "<\203\f\301\302\"\202 \303\")\207" [buffer-invisibility-spec remove (org-filtered) move-to-column] 6 (#$ . 18565)])
145 #@16 
146
147 (fn LIBRARY)
148 (defalias 'org-find-library-dir '(macro . #[257 "\300\301\302D\303BBD\207" [file-name-directory or locate-library ("")] 5 (#$ . 18834)]))
149 #@37 How many lines in string S?
150
151 (fn S)
152 (defalias 'org-count-lines #[257 "\300\301\302\303#\203\300\225\262\211T\262\202G\300V\203*\211GSH\304U\203*\211S\262\207" [0 1 string-match "\n" 10] 7 (#$ . 18994)])
153 #@26 
154
155 (fn STRING &rest ARGS)
156 (defalias 'org-kill-new #[385 "\300\301G\302$\210\303\304#\207" [remove-text-properties 0 (line-prefix t wrap-prefix t) apply kill-new] 7 (#$ . 19216)])
157 (byte-code "\300\301\302\303!\203\f\303\202 \304\"\210\300\305\302\306!\203\306\202\307\"\207" [defalias org-font-lock-ensure fboundp font-lock-ensure #[512 "\300 \207" [font-lock-fontify-buffer] 3 "\n\n(fn &optional BEG END)"] org-babel-local-file-name file-local-name #[257 "\300\301\"\206\211\207" [file-remote-p localname] 4 "Return the local name component of FILE.\n\n(fn FILE)"]] 4)
158 #@169 Suppress popup windows.
159 Let-bind some variables to nil around BODY to achieve the desired
160 effect, which variables to use depends on the Emacs version.
161
162 (fn &rest BODY)
163 (defalias 'org-no-popups '(macro . #[128 "\300\301\302\303#\203\304\305BB\207\304\306BB\207" [org-version-check "24.2.50" "" :predicate let (pop-up-frames display-buffer-alist) (pop-up-frames special-display-buffer-names special-display-regexps special-display-function)] 5 (#$ . 19804)]))
164 #@52 Try very hard to provide sensible version strings.
165 (defalias 'org-check-version '(macro . #[0 "\300\301\302!\206\303!\211\304P\305P\306\307\310#\203\311\202,\306\312\310#\203'\313\202,\314\315!\210\316\207" [file-name-directory locate-library "org" "" "org-version.el" "../mk/org-fixup.el" require org-version noerror (progn (autoload 'org-release "org-version.el") (autoload 'org-git-version "org-version.el")) org-fixup (org-fixup) warn "Could not define org version correctly.  Check installation!" (progn (defun org-release nil "N/A") (defun org-git-version nil "N/A !!check installation!!"))] 7 (#$ . 20272)]))
166 #@19 
167
168 (fn &rest BODY)
169 (defalias 'org-with-silent-modifications '(macro . #[128 "\300\301!\203\n\301B\207\302B\207" [fboundp with-silent-modifications org-unmodified] 3 (#$ . 20904)]))
170 (put 'org-with-silent-modifications 'edebug-form-spec '(body))
171 #@230 Define NAME as a new error signal.
172 MESSAGE is a string that will be output to the echo area if such
173 an error is signaled without being caught by a `condition-case'.
174 Implements `define-error' for older emacsen.
175
176 (fn NAME MESSAGE)
177 (defalias 'org-define-error #[514 "\300\301!\203 \301\"\207\302\303\304\305\303NB!#\207" [fboundp define-error put error-conditions copy-sequence error] 9 (#$ . 21157)])
178 (byte-code "\300\301!\204 \302\301\303\"\210\304\305!\207" [fboundp string-suffix-p defalias #[770 "GGZ\211\300Y\205\301\302\211\302&\303=\207" [0 compare-strings nil t] 12 "Return non-nil if SUFFIX is a suffix of STRING.\nIf IGNORE-CASE is non-nil, the comparison is done without paying\nattention to case differences.\n\n(fn SUFFIX STRING &optional IGNORE-CASE)"] provide org-compat] 3)