....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 3.145.83.240
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/org/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/org/org-lint.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require cl-lib ob ol org-attach org-macro ox] 2)
#@75 compiler-macro for inlining `org-lint-checker-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-lint-checker-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-p (and (memq (type-of cl-x) cl-struct-org-lint-checker-tags) t)) nil] 9 (#$ . 550)])
(put 'org-lint-checker-p 'compiler-macro 'org-lint-checker-p--cmacro)
#@13 

(fn CL-X)
(defalias 'org-lint-checker-p #[257 "\301!>\205	\302\207" [cl-struct-org-lint-checker-tags type-of t] 3 (#$ . 919)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put org-lint-checker-p side-effect-free error-free put org-lint-checker cl-deftype-satisfies] 5)
#@78 compiler-macro for inlining `org-lint-checker-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-lint-checker-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-name (progn (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1216)])
(put 'org-lint-checker-name 'compiler-macro 'org-lint-checker-name--cmacro)
#@66 Access slot "name" of `org-lint-checker' struct CL-X.

(fn CL-X)
(defalias 'org-lint-checker-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 1] 5 (#$ . 1652)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-name side-effect-free t] 4)
#@85 compiler-macro for inlining `org-lint-checker-description'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-lint-checker-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-description (progn (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2014)])
(put 'org-lint-checker-description 'compiler-macro 'org-lint-checker-description--cmacro)
#@73 Access slot "description" of `org-lint-checker' struct CL-X.

(fn CL-X)
(defalias 'org-lint-checker-description #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 2] 5 (#$ . 2485)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-description side-effect-free t] 4)
#@84 compiler-macro for inlining `org-lint-checker-categories'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-lint-checker-categories--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-categories (progn (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2868)])
(put 'org-lint-checker-categories 'compiler-macro 'org-lint-checker-categories--cmacro)
#@72 Access slot "categories" of `org-lint-checker' struct CL-X.

(fn CL-X)
(defalias 'org-lint-checker-categories #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 3] 5 (#$ . 3334)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-categories side-effect-free t] 4)
#@79 compiler-macro for inlining `org-lint-checker-trust'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-lint-checker-trust--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-trust (progn (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3714)])
(put 'org-lint-checker-trust 'compiler-macro 'org-lint-checker-trust--cmacro)
#@67 Access slot "trust" of `org-lint-checker' struct CL-X.

(fn CL-X)
(defalias 'org-lint-checker-trust #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 4] 5 (#$ . 4155)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-trust side-effect-free t] 4)
#@118 compiler-macro for inlining `make-org-lint-checker'.

(fn CL-WHOLE &cl-quote &key NAME DESCRIPTION CATEGORIES TRUST)
(defalias 'make-org-lint-checker--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\313\262\202)\314\315@\"\210\202)\210\316\317\320\313	\313				&	\207" [plist-member :name (nil 'missing-checker-name) :description (nil "") :categories (nil '(default)) :trust (nil 'high) (:name :description :categories :trust :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description :categories :trust)" cl--defsubst-expand (name description categories trust) (cl-block make-org-lint-checker (record 'org-lint-checker name description categories trust))] 16 (#$ . 4521)])
(put 'make-org-lint-checker 'compiler-macro 'make-org-lint-checker--cmacro)
#@98 Constructor for objects of type `org-lint-checker'.

(fn &key NAME DESCRIPTION CATEGORIES TRUST)
(defalias 'make-org-lint-checker #[128 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\313\262\202)\314\315@\"\210\202)\210\316\317%\207" [plist-member :name (nil missing-checker-name) :description (nil "") :categories (nil (default)) :trust (nil high) (:name :description :categories :trust :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description :categories :trust)" record org-lint-checker] 11 (#$ . 5443)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-org-lint-checker side-effect-free t cl-struct-define org-lint-checker nil cl-structure-object record ((cl-tag-slot) (name 'missing-checker-name) (description "") (categories '(default)) (trust 'high)) cl-struct-org-lint-checker-tags] 11)
#@10 

(fn _)
(defalias 'org-lint-missing-checker-name #[257 "\300\301!\207" [error "`A checker has no `:name' property.  Please verify `org-lint--checkers'"] 3 (#$ . 6447)])
#@33 List of all available checkers.
(defconst org-lint--checkers (byte-code "\300\301\302\303\304\305%\300\301\306\307\310\305%\300\301\311\312\313\305%\300\301\314\315\316\305%\300\301\317\320\321\322%\300\301\323\324\325\305%\300\301\326\327\330\322%\300\301\331\332\333\322%\300\301\334\335\336\305%\300\301\337\340\341\305%\300\301\342\343\344\305%\300\301\345\346\347\305%\300\301\350\351\352\305%\300\301\353\354\355\322%\300\301\356\357\360\305%\300\301\361\362\363\305%\300\301\364\365\366\305%\300\301\367\370\371\305%\300\301\372\373\374\305%\300\301\375\376\377\322%\300\301\201@\201A\321\322%\300\301\201B\201C\201D\322%\300\301\201E\201F\201G\322%\300\301\201H\201I\201J\322%\300\301\201K\201L\201M\322%\300\301\201N\201O\201P\305%\300\301\201Q\201R\201S\305%\300\301\201T\201U\201V\305%\300\301\201W\201X\201Y\305%\300\301\201Z\201[\201\\\305%\300\301\201]\201^\201_\305%\300\301\201`\201a\321\322%\300\301\201b\201c\321\322%\300\301\201d\201e\321\322%\300\301\201f\201g\321\322%\300\301\201h\201i\321\322%\300\301\201j\201k\201l\322%\300\301\201m\201n\201o\305%\300\301\201p\201q\201r\322%\300\301\201s\201t\201u\305%\257(\207" [record org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high duplicate-name "Report duplicate NAME values" (babel link) duplicate-target "Report duplicate targets" (link) duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) deprecated-export-blocks "Report deprecated export block syntax" (obsolete export) deprecated-header-syntax "Report deprecated Babel header syntax" (obsolete babel) missing-language-in-src-block "Report missing language in source blocks" (babel) missing-backend-in-export-block "Report missing back-end in export blocks" (export) invalid-babel-call-block "Report invalid Babel call blocks" (babel) colon-in-name "Report NAME values with a colon" (babel) wrong-header-argument "Report wrong babel headers" (babel) wrong-header-value "Report invalid value in babel headers" (babel) deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) invalid-id-link "Report \"id\" links with unknown destination" (link) link-to-local-file "Report links to non-existent local files" (link) non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) obsolete-include-markup "Report obsolete markup in INCLUDE keyword" (obsolete export) unknown-options-item "Report unknown items in OPTIONS keyword" (export) invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) special-property-in-properties-drawer "Report special properties in properties drawers" (properties) obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) invalid-effort-property "Report invalid duration in EFFORT property" (properties) undefined-footnote-reference "Report missing definition for footnote references" (footnote) unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) invalid-keyword-syntax "Report probable invalid keywords" invalid-block "Report invalid blocks" misplaced-planning-info "Report misplaced planning info line" incomplete-drawer "Report probable incomplete drawers" indented-diary-sexp "Report probable indented diary-sexps" quote-section "Report obsolete QUOTE section" (obsolete) file-application "Report obsolete \"file+application\" link" (link obsolete) percent-encoding-link-escape "Report obsolete escape syntax in links" (link obsolete) spurious-colons "Report spurious colons in tags" (tags)] 45) (#$ . 6623))
#@510 Helper function to collect duplicates in parse tree AST.

EXTRACT-KEY is a function extracting key.  It is called with
a single argument: the element or object.  Comparison is done
with `equal'.

EXTRACT-POSITION is a function returning position for the report.
It is called with two arguments, the object or element, and the
key.

BUILD-MESSAGE is a function creating the report message.  It is
called with one argument, the key used for comparison.

(fn AST TYPE EXTRACT-KEY EXTRACT-POSITION BUILD-MESSAGE)
(defalias 'org-lint--collect-duplicates #[1285 "\300C\300C\300C\301\302\303\304\305\"\306\"\307\310%\311		\301\312\313\304\305

\f%\314\"\315\316%#\210\242\211\203G\211@A@\"\210A\266\202\2023\242\262\207" [nil make-byte-code 514 "\301\300!D\301\242B\240\207" vconcat vector [] 6 "\n\n(fn POSITION VALUE)" org-element-map 257 "\300!\211?\206:\305\302\242\"\203/\305\302\242\"\306\303\242\"\204$\303\303\242B\240\210\210\304\301\"\"\202:\302\301\"B\302\242B\240\207" [assoc memql] 7 "\n\n(fn DATUM)"] 22 (#$ . 10894)])
#@12 

(fn AST)
(defalias 'org-lint-duplicate-custom-id #[257 "\300\301\302\303\304%\207" [org-lint--collect-duplicates node-property #[257 "\300\301\302\211\303\211;\203\304\305#\266\202\202\306A@\"\266\202\302\211\307&\307=\205<\310\211;\2034\304\305#\207\306A@\"\266\202\207" [compare-strings "CUSTOM_ID" nil :key get-text-property 0 plist-get t :value] 11 "\n\n(fn PROPERTY)"] #[514 "\300\211;\203
\301\302#\207\303A@\"\207" [:begin get-text-property 0 plist-get] 8 "\n\n(fn PROPERTY _)"] #[257 "\300\301\"\207" [format "Duplicate CUSTOM_ID property \"%s\""] 4 "\n\n(fn KEY)"]] 7 (#$ . 11965)])
#@12 

(fn AST)
(defalias 'org-lint-duplicate-name #[257 "\301\302\303\304%\207" [org-element-all-elements org-lint--collect-duplicates #[257 "\300\211;\203
\301\302#\207\303A@\"\207" [:name get-text-property 0 plist-get] 7 "\n\n(fn DATUM)"] #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202b\210\304\305\306\307!\"!\210\302\224\207" [:begin get-text-property 0 plist-get re-search-forward format "^[ 	]*#\\+[A-Za-z]+: +%s *$" regexp-quote] 8 "\n\n(fn DATUM NAME)"] #[257 "\300\301\"\207" [format "Duplicate NAME \"%s\""] 4 "\n\n(fn KEY)"]] 7 (#$ . 12590)])
#@12 

(fn AST)
(defalias 'org-lint-duplicate-target #[257 "\300\301\302\303\304%\207" [org-lint--collect-duplicates target #[257 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202!\207" [split-string :value get-text-property 0 plist-get] 8 "\n\n(fn TARGET)"] #[514 "\300\211;\203
\301\302#\207\303A@\"\207" [:begin get-text-property 0 plist-get] 8 "\n\n(fn TARGET _)"] #[257 "\300\301\302\303\304#\"\207" [format "Duplicate target <<%s>>" mapconcat identity " "] 7 "\n\n(fn KEY)"]] 7 (#$ . 13176)])
#@12 

(fn AST)
(defalias 'org-lint-duplicate-footnote-definition #[257 "\300\301\302\303\304%\207" [org-lint--collect-duplicates footnote-definition #[257 "\300\211;\203
\301\302#\207\303A@\"\207" [:label get-text-property 0 plist-get] 7 "\n\n(fn DEFINITION)"] #[514 "\300\211;\203
\301\302#\207\303A@\"\207" [:post-affiliated get-text-property 0 plist-get] 8 "\n\n(fn DEFINITION _)"] #[257 "\300\301\"\207" [format "Duplicate footnote definition \"%s\""] 4 "\n\n(fn KEY)"]] 7 (#$ . 13699)])
#@12 

(fn AST)
(defalias 'org-lint-orphaned-affiliated-keywords #[257 "\301\302\303\304$\305\306\307\310\311\312\313!\314\"\315\316%#\207" [org-element-affiliated-keywords cl-set-difference ("RESULT" "RESULTS") :test equal org-element-map keyword make-byte-code 257 "\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\310\311\307\312#)\266\203)\2042\211\300\235\205P\313\211;\203C\304\305#\266\202\202K\306A@\"\266\202\314\315\"D\207" vconcat vector [case-fold-search inhibit-changing-match-data :key get-text-property 0 plist-get t "\\`ATTR_[-_A-Za-z0-9]+\\'" nil string-match :post-affiliated format "Orphaned affiliated keyword: \"%s\""] 9 "\n\n(fn K)"] 11 (#$ . 14207)])
#@10 

(fn _)
(defalias 'org-lint-obsolete-affiliated-keywords #[257 "\300\301\302\"\303\304\303\305#\203N\306\307!\226`\310\311 \211;\203$\312\313#\266\202\202,\314A@\"\266\202W\203J\315 \300\316\211\317\267\202C\320\202D\321\202D\322#DB\262\210\202\207" [format "^[ 	]*#\\+%s:" "\\(DATA\\|HEADERS\\|LABEL\\|RES\\(?:NAME\\|ULT\\)\\|\\(?:S\\(?:OURC\\|RCNAM\\)\\|TBLNAM\\)E\\)" nil re-search-forward t match-string-no-properties 1 :post-affiliated org-element-at-point get-text-property 0 plist-get line-beginning-position "Obsolete affiliated keyword: \"%s\".  Use \"%s\" instead" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("HEADERS" 59 "RESULT" 63)) "HEADER" "RESULTS" "NAME"] 11 (#$ . 14917)])
#@12 

(fn AST)
(defalias 'org-lint-deprecated-export-blocks #[257 "\300\301\302\303\304\305\306\307!\310\"\311\312%#\207" [("ASCII" "BEAMER" "HTML" "LATEX" "MAN" "MARKDOWN" "MD" "ODT" "ORG" "TEXINFO") org-element-map special-block make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\300\"\205>\306\211;\2031\302\303#\266\202\2029\304A@\"\266\202\307\310\"D\207" vconcat vector [:type get-text-property 0 plist-get member-ignore-case :post-affiliated format "Deprecated syntax for export block.  Use \"BEGIN_EXPORT %s\" instead"] 8 "\n\n(fn B)"] 11 (#$ . 15677)])
#@12 

(fn AST)
(defalias 'org-lint-deprecated-header-syntax #[257 "\301\302\303\304\"\"\305\306\307\310\"\"\311\312\313\314\315\316\317		\"\320\"\321\322%#\207" [org-babel-common-header-args-w-values delete "dir" mapcar #[257 "\300@!\227\207" [symbol-name] 3 "\n\n(fn ARG)"] format "\\`%s[ 	]" regexp-opt t org-element-map (keyword node-property) make-byte-code 257 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\211:\204*\211;\2052\306\262\2024\211@9\2052\211@\262\211\307\267\202\256\310\211;\203K\303\304#\266\202\202S\305A@\"\266\202\311\230\205\201\312\301\"\205\201\313\211;\203q\303\304#\266\202\202y\305A@\"\266\202\314\315\316\317\"\"D\262\202\257\320\300\"\205\257\313\211;\203\236\303\304#\266\202\202\246\305A@\"\266\202\314\321\"D\202\257\322\262\207" vconcat vector [:key get-text-property 0 plist-get plain-text #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (keyword 58 node-property 134)) :value "PROPERTY" string-match :begin format "Deprecated syntax for \"%s\".  Use header-args instead" match-string-no-properties 1 member-ignore-case "Deprecated syntax for \"%s\".  Use :header-args: instead" nil] 10 "\n\n(fn DATUM)"] 13 (#$ . 16287)])
#@12 

(fn AST)
(defalias 'org-lint-missing-language-in-src-block #[257 "\300\301\302#\207" [org-element-map src-block #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202?\2058\304\211;\203.\301\302#\266\202\2026\303A@\"\266\202\305D\207" [:language get-text-property 0 plist-get :post-affiliated "Missing language in source block"] 7 "\n\n(fn B)"]] 5 (#$ . 17547)])
#@12 

(fn AST)
(defalias 'org-lint-missing-backend-in-export-block #[257 "\300\301\302#\207" [org-element-map export-block #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202?\2058\304\211;\203.\301\302#\266\202\2026\303A@\"\266\202\305D\207" [:type get-text-property 0 plist-get :post-affiliated "Missing back-end in export block"] 7 "\n\n(fn B)"]] 5 (#$ . 17939)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-babel-call-block #[257 "\300\301\302#\207" [org-element-map babel-call #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\2048\305\211;\203-\302\303#\266\202\2025\304A@\"\266\202\306D\207\307\211;\203I\302\303#\266\202\202Q\304A@\"\266\202\211\205b\310\311\312\313#)\266\203\262\205\202\305\211;\203x\302\303#\266\202\202\200\304A@\"\266\202\314D\207" [inhibit-changing-match-data :call get-text-property 0 plist-get :post-affiliated "Invalid syntax in babel call block" :end-header "\\`\\[.*\\]\\'" nil t string-match "Babel call's end header must not be wrapped within brackets"] 9 "\n\n(fn B)"]] 5 (#$ . 18332)])
#@12 

(fn AST)
(defalias 'org-lint-deprecated-category-setup #[257 "\300\301\302C\303\304\305\306\307!\310\"\311\312%\262#\207" [org-element-map keyword nil make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\230\204 \306\207\300\242\203A\307\211;\2036\302\303#\266\202\202>\304A@\"\266\202\310D\207\300\311\240\210\306\207" vconcat vector [:key get-text-property 0 plist-get "CATEGORY" nil :post-affiliated "Spurious CATEGORY keyword.  Set :CATEGORY: property instead" t] 7 "\n\n(fn K)"] 11 (#$ . 19040)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-coderef-link #[257 "\300D\301\302\303\304\305\306\307!\310\"\311\312%#\207" [:parse-tree org-element-map link make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203*\302\303#\266\202\2022\304A@\"\266\202\306\232\205g\3071C\310\300\"0\202E\210\311?\205g\312\211;\203Z\302\303#\266\202\202b\304A@\"\266\202\313\314\"D\207" vconcat vector [:path get-text-property 0 plist-get :type "coderef" (error) org-export-resolve-coderef nil :begin format "Unknown coderef \"%s\""] 8 "\n\n(fn LINK)"] 11 (#$ . 19593)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-custom-id-link #[257 "\300D\301\302\303\304\305\306\307!\310\"\311\312%#\207" [:parse-tree org-element-map link make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\232\205f\3061*\307\300\"0\202,\210\310?\205f\311\211;\203A\302\303#\266\202\202I\304A@\"\266\202\312\313\314\211;\203\\\302\303#\266\202\202d\304A@\"\266\202\"D\207" vconcat vector [:type get-text-property 0 plist-get "custom-id" (error) org-export-resolve-id-link nil :begin format "Unknown custom ID \"%s\"" :path] 10 "\n\n(fn LINK)"] 11 (#$ . 20205)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-fuzzy-link #[257 "\300D\301\302\303\304\305\306\307!\310\"\311\312%#\207" [:parse-tree org-element-map link make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\232\205w\3061*\307\300\"0\202,\210\310?\205w\311\211;\203A\302\303#\266\202\202I\304A@\"\266\202\312\313\314\211;\203\\\302\303#\266\202\202d\304A@\"\266\202\315\316\"\203r\317\320\"\202s\211\262\"D\207" vconcat vector [:type get-text-property 0 plist-get "fuzzy" (error) org-export-resolve-fuzzy-link nil :begin format "Unknown fuzzy location \"%s\"" :path string-prefix-p "*" substring 1] 10 "\n\n(fn LINK)"] 11 (#$ . 20824)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-id-link #[257 "\300\301\302#\207" [org-element-map link #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\211;\203*\301\302#\266\202\2022\303A@\"\266\202\305\232\205\\\306!?\205\\\307\211;\203O\301\302#\266\202\202W\303A@\"\266\202\310\311\"D\207" [:path get-text-property 0 plist-get :type "id" org-id-find :begin format "Unknown ID \"%s\""] 8 "\n\n(fn LINK)"]] 5 (#$ . 21518)])
#@12 

(fn AST)
(defalias 'org-lint-special-property-in-properties-drawer #[257 "\300\301\302#\207" [org-element-map node-property #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\"\205>\306\211;\2031\302\303#\266\202\2029\304A@\"\266\202\307\310\"D\207" [org-special-properties :key get-text-property 0 plist-get member-ignore-case :begin format "Special property \"%s\" found in a properties drawer"] 8 "\n\n(fn P)"]] 5 (#$ . 21983)])
#@12 

(fn AST)
(defalias 'org-lint-obsolete-properties-drawer #[257 "\300\301\302#\207" [org-element-map drawer #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\232\205\216\305\306\"\307\310\311\312\211;\2038\301\302#\266\202\202@\303A@\"\266\202\211:\204K\313\262\202V\211@9\203V\211AA\262!\236\"\314\211;\203j\301\302#\266\202\202r\303A@\"\266\202\203|\315\235\204\206\204\212\316\235\203\212\317\202\213\320D\266\202\207" [:drawer-name get-text-property 0 plist-get "PROPERTIES" org-element-lineage (headline) mapcar org-element-type reverse :parent nil :post-affiliated (nil (planning)) (nil (comment)) "Incorrect contents for PROPERTIES drawer" "Incorrect location for PROPERTIES drawer"] 12 "\n\n(fn D)"]] 5 (#$ . 22455)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-effort-property #[257 "\300\301\302#\207" [org-element-map node-property #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\232\205d\305\211;\203/\301\302#\266\202\2027\303A@\"\266\202\306!\205b\307!?\205b\310\211;\203U\301\302#\266\202\202]\303A@\"\266\202\311\312\"D\262\207" [:key get-text-property 0 plist-get "EFFORT" :value org-string-nw-p org-duration-p :begin format "Invalid effort duration format: %S"] 8 "\n\n(fn P)"]] 5 (#$ . 23241)])
#@12 

(fn AST)
(defalias 'org-lint-link-to-local-file #[257 "\300\301\302#\207" [org-element-map link #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\211\304\235\205\262\305\211;\2030\301\302#\266\202\2028\303A@\"\266\202\306\230\203B\211\202x\307\211;\203S\301\302#\266\202\202[\303A@\"\266\202\212\310!\203g\311!q\210\212\214~\210\211\206p`b\210\312!+\262\313!?\205\260\314!?\205\260\307\211;\203\227\301\302#\266\202\202\237\303A@\"\266\202\315\316\317\"\203\254\320\202\255\321\"D\266\202\207" [:type get-text-property 0 plist-get ("file" "attachment") :path "file" :begin markerp marker-buffer org-attach-expand file-remote-p file-exists-p format org-element-lineage (link) "Link to non-existent image file %S in description" "Link to non-existent local file %S"] 10 "\n\n(fn L)"]] 5 (#$ . 23775)])
#@12 

(fn AST)
(defalias 'org-lint-non-existent-setupfile-parameter #[257 "\300\301\302#\207" [org-element-map keyword #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\232\205p\305\306\211\307\211;\2032\301\302#\266\202\202:\303A@\"\266\202#\310!?\205n\311!?\205n\312!?\205n\313\211;\203a\301\302#\266\202\202i\303A@\"\266\202\314\315\"D\262\207" [:key get-text-property 0 plist-get "SETUPFILE" org-unbracket-string "\"" :value org-file-url-p file-remote-p file-exists-p :begin format "Non-existent setup file %S"] 10 "\n\n(fn K)"]] 5 (#$ . 24641)])
#@12 

(fn AST)
(defalias 'org-lint-wrong-include-link-parameter #[257 "\300\301\302#\207" [org-element-map keyword #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\232\205)\306\211;\203/\302\303#\266\202\2027\304A@\"\266\202\307\310\"\205U\311 \312\303\313\314\315!\316\"\317$\216\320\321\322\"!)\262\211\204w\323\211;\203j\302\303#\266\202\202r\304A@\"\266\202\324D\202'\325\307\326\"\203\210\327\303\211\224#\202\211!\211\232?\205\227\325\321\322\"!\203\305\330!\204\305\331!\204\305\323\211;\203\270\302\303#\266\202\202\300\304A@\"\266\202\332D\202%\203\317\333!\202\320p\211\206\327\334!\335\312\303\336\314\315\"\337\"\340$\216r\211q\210\205\"\3411\375\342\343\335#0\202\377\210\343?\205\"\323\211;\203\302\303#\266\202\202\304A@\"\266\202\344\345\"D+\266\202\266\202\266\202\207" [org-link-search-must-match-exact-headline :key get-text-property 0 plist-get "INCLUDE" :value string-match "^\\(\".+\"\\|\\S-+\\)[ 	]*" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-strip-quotes match-string 1 :post-affiliated "Missing location argument in INCLUDE keyword" org-string-nw-p "::\\(.*\\)\\'" substring file-remote-p file-exists-p "Non-existent file argument in INCLUDE keyword" find-buffer-visiting find-file-noselect t "\300?\205\302\301!\207" [kill-buffer] 2 (error) org-link-search nil format "Invalid search part \"%s\" in INCLUDE keyword"] 14 "\n\n(fn K)"]] 5 (#$ . 25239)])
#@12 

(fn AST)
(defalias 'org-lint-obsolete-include-markup #[257 "\300\301\302\"\303\304\305\306\307\310\311!\312\"\313\314%#\207" [format "\\`\\(?:\".+\"\\|\\S-+\\)[ 	]+%s" "\\(ASCII\\|BEAMER\\|HTML\\|LATEX\\|M\\(?:A\\(?:\\(?:RKDOW\\)?N\\)\\|D\\)\\|O\\(?:DT\\|RG\\)\\|TEXINFO\\)" org-element-map keyword make-byte-code 257 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\232\205i\307\310\211;\2030\303\304#\266\202\2028\305A@\"\266\202\311\300\"\205f\312\313\"\314\211;\203V\303\304#\266\202\202^\305A@\"\266\202\315\316\211#D\262)\266\202\207" vconcat vector [case-fold-search :key get-text-property 0 plist-get "INCLUDE" t :value string-match match-string-no-properties 1 :post-affiliated format "Obsolete markup \"%s\" in INCLUDE keyword.  Use \"export %s\" instead"] 10 "\n\n(fn K)"] 11 (#$ . 26769)])
#@12 

(fn AST)
(defalias 'org-lint-unknown-options-item #[257 "\302\303\304\305\306\"\307\310	\"\"\"\303C\311\312\313\314\315\316\317		\"\320\"\321\322%#\210\211\242\207" [org-export-options-alist org-export-registered-backends delq nil append mapcar #[257 "\3008\207" [2] 3 "\n\n(fn O)"] cl-mapcan #[257 "\301\302\303!>\204\304\305\306D\"\210\307H\"\207" [cl-struct-org-export-backend-tags mapcar #[257 "\3008\207" [2] 3 "\n\n(fn O)"] type-of signal wrong-type-argument org-export-backend 4] 7 "\n\n(fn B)"] org-element-map keyword make-byte-code 257 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\230\205x\307\211;\203/\303\304#\266\202\2027\305A@\"\266\202\304\310\311#\205v\304\225\262\312\313\"\211\300\235\204r\301\314\211;\203`\303\304#\266\202\202h\305A@\"\266\202\315\316\"D\301\242B\240\210\210\2028\266\202\207" vconcat vector [:key get-text-property 0 plist-get "OPTIONS" :value string-match "\\(.+?\\):\\((.*?)\\|\\S-*\\)[ 	]*" match-string 1 :post-affiliated format "Unknown OPTIONS item \"%s\""] 11 "\n\n(fn K)"] 13 (#$ . 27620)])
#@12 

(fn AST)
(defalias 'org-lint-invalid-macro-argument-and-template #[257 "\301\302C\303\304\305\306\307\310\311		\"\312\"\313\314%#\210\315 \210\316\317\320\321\"\"\303\322\305\306\323\310\311\n\n\n#\324\"\325\326%#\266\211\242\207" [org-macro-templates #[257 "\300\301\302\303#\203\300\225\262\304\305\306\"!B\262\202\307\310!\311!\262\262\312\"\207" [0 nil string-match "\\$\\([1-9][0-9]*\\)" string-to-number match-string 1 sort copy-sequence delete-dups <] 8 "\n\n(fn TEMPLATE)"] nil org-element-map keyword make-byte-code 257 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\230\205\357\307\211;\203/\303\304#\266\202\2027\305A@\"\266\202\310\311\"\205B\312\304\"\211\205`\313\304\225\"\314\315\203U\316\202V\317\320\315\321\320##\266\202\204\207\301\322\211;\203v\303\304#\266\202\202~\305A@\"\266\202\323D\301\242B\240\202\355\324!\204\261\301\322\211;\203\237\303\304#\266\202\202\247\305A@\"\266\202\325E\301\242B\240\202\355\300!\326\327\330!@\262\206\301\304\"\232\262?\205\355\301\322\211;\203\334\303\304#\266\202\202\344\305A@\"\266\202\331\332\"D\301\242B\240\266\203\207" vconcat vector [:key get-text-property 0 plist-get "MACRO" :value string-match "^\\S-+" match-string substring nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" #1="" "[ 	\n
]+\\'" :post-affiliated "Missing name in MACRO keyword" org-string-nw-p "Missing template in macro \"%s\"" number-sequence 1 last format "Unused placeholders in macro \"%s\""] 12 "\n\n(fn K)" org-macro-initialize-templates append mapcar #[257 "\211\300B\207" ["$1"] 3 "\n\n(fn M)"] ("author" "date" "email" "title" "results") macro "\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\302\310#A\211\204I\301\311\211;\2035\304\305#\266\202\202=\306A@\"\266\202\312\313\"D\301\242B\240\202\255\300!\211\205\253\314\315\"\316\211;\203e\304\305#\266\202\202m\306A@\"\266\202\233\211\205\251\301\311\211;\203\205\304\305#\266\202\202\215\306A@\"\266\202\312\317G\320V\203\232\321\202\233\322\323\324\325#$D\301\242B\240\262\262\207" [:key get-text-property 0 plist-get assoc-string t :begin format "Undefined macro \"%s\"" apply max :args "Unused argument%s in macro \"%s\": %s" 1 "s" #1# mapconcat #[257 "\300\301\"\207" [format "\"%s\""] 4 "\n\n(fn A)"] ", "] 15 "\n\n(fn MACRO)"] 15 (#$ . 28721)])
#@12 

(fn AST)
(defalias 'org-lint-undefined-footnote-reference #[257 "\300\301\302#\300\303\304\305\306\307\310!\311\"\312\313%#\207" [org-element-map footnote-definition #[257 "\300\211;\203
\301\302#\207\303A@\"\207" [:label get-text-property 0 plist-get] 7 "\n\n(fn F)"] footnote-reference make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203*\302\303#\266\202\2022\304A@\"\266\202\306=\205\\\211\300\235?\205\\\307\211;\203O\302\303#\266\202\202W\304A@\"\266\202\310\311\"D\207" vconcat vector [:label get-text-property 0 plist-get :type standard :begin format "Missing definition for footnote [%s]"] 8 "\n\n(fn F)"] 11 (#$ . 31145)])
#@12 

(fn AST)
(defalias 'org-lint-unreferenced-footnote-definition #[257 "\300\301\302#\300\303\304\305\306\307\310!\311\"\312\313%#\207" [org-element-map footnote-reference #[257 "\300\211;\203
\301\302#\207\303A@\"\207" [:label get-text-property 0 plist-get] 7 "\n\n(fn F)"] footnote-definition make-byte-code 257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\211\205B\211\300\235?\205B\305\211;\2035\302\303#\266\202\202=\304A@\"\266\202\306\307\"D\207" vconcat vector [:label get-text-property 0 plist-get :post-affiliated format "No reference for footnote definition [%s]"] 8 "\n\n(fn F)"] 11 (#$ . 31854)])
#@12 

(fn AST)
(defalias 'org-lint-colon-in-name #[257 "\301\302#\207" [org-element-all-elements org-element-map #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\211\205X\305\306\307\310#)\266\203\205X\311\211;\203>\302\303#\266\202\202F\304A@\"\266\202b\210\312\313\314\315!\"!\210\303\224\313\316\"D\207" [inhibit-changing-match-data :name get-text-property 0 plist-get ":" nil t string-match :begin re-search-forward format "^[ 	]*#\\+\\w+: +%s *$" regexp-quote "Name \"%s\" contains a colon; Babel cannot use it as input"] 9 "\n\n(fn E)"]] 5 (#$ . 32505)])
#@10 

(fn _)
(defalias 'org-lint-misplaced-planning-info #[257 "\302\303\304	\303\302#\2038\305 \211:\204\211;\205&\306\262\202(\211@9\205&\211@\262\307>\204\310 \311DB\262\202)\207" [case-fold-search org-planning-line-re t nil re-search-forward org-element-at-point plain-text (comment-block example-block export-block planning src-block verse-block) line-beginning-position "Misplaced planning info line"] 7 (#$ . 33104)])
#@10 

(fn _)
(defalias 'org-lint-incomplete-drawer #[257 "\301\302\301\303#\203\341\304\305!\301\306\203\307\202\310\311\306\312\311##\266\202\313 \211\211:\2044\211;\205<\314\262\202>\211@9\205<\211@\262\211\315\267\202\321\316\211;\203U\317\305#\266\202\202]\320A@\"\266\202\211\203\221\302\303#\203\221\304\305!\301\306\203v\307\202w\310\311\306\312\311##\266\202\321 \322\323\"DB\262\210\202a\324\211;\203\242\317\305#\266\202\202\252\320A@\"\266\202b\266\202\334\324\211;\203\301\317\305#\266\202\202\311\320A@\"\266\202b\210\202\334\202\334\321 \322\325\"DB\262\266\202\211\207" [org-drawer-regexp nil re-search-forward t match-string-no-properties 0 replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" org-element-at-point plain-text #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (drawer 68 property-drawer 176 verse-block 206 src-block 206 export-block 206 example-block 206 comment-block 206)) :contents-end get-text-property plist-get line-beginning-position format "Possible misleading drawer entry %S" :end "Possible incomplete drawer %S"] 15 (#$ . 33547)])
#@10 

(fn _)
(defalias 'org-lint-indented-diary-sexp #[257 "\300\301\302\300\303#\2035\304 \211:\204\211;\205#\305\262\202%\211@9\205#\211@\262\306>\204\307 \310DB\262\202\211\207" [nil re-search-forward "^[ 	]+%%(" t org-element-at-point plain-text (comment-block diary-sexp example-block export-block src-block verse-block) line-beginning-position "Possible indented diary-sexp"] 6 (#$ . 34743)])
#@10 

(fn _)
(defalias 'org-lint-invalid-block #[257 "\301\302\303\304\303\301#\203t\305\306 \307 \"\303\310\203\311\202\312\313\310\314\313##\266\202\315\316\317\320!\301#\203Dl\204D\306 \321\322\"DB\262\202p\323 \211:\204V\211;\205^\324\262\202`\211@9\205^\211@\262\325>\204p\306 \321\326\"DB\262\210\202)\207" [case-fold-search t "^[ 	]*#\\+\\(BEGIN\\|END\\)\\(?::\\|_[^[:space:]]*\\)?[ 	]*" nil re-search-forward buffer-substring-no-properties line-beginning-position line-end-position replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" string-prefix-p "END" match-string 1 format "Invalid block closing line \"%s\"" org-element-at-point plain-text (center-block comment-block dynamic-block example-block export-block quote-block special-block src-block verse-block) "Possible incomplete block \"%s\""] 13 (#$ . 35158)])
#@10 

(fn _)
(defalias 'org-lint-invalid-keyword-syntax #[257 "\302\303\304\305!\"\306\307\306\310#\203?\311\312!\313\314\310#\204;\313\315\310#\204;\212\316 \210\310\317!*\204;\320\224\303\321\"DB\262\210\202\207" [org-element-dual-keywords case-fold-search "^[ 	]*#\\+\\([^[:space:]:]*\\)\\(?: \\|$\\)" format "[ 	]*#\\+%s\\(\\[.*\\]\\)?:\\(?: \\|$\\)" regexp-opt nil re-search-forward t match-string-no-properties 1 string-prefix-p "BEGIN" "END" beginning-of-line looking-at 0 "Possible missing colon in keyword \"%s\""] 9 (#$ . 36039)])
#@12 

(fn AST)
(defalias 'org-lint-extraneous-element-in-footnote-section #[257 "\300\301\302#\207" [org-element-map headline #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\205\\\305\211:\204)\306\262\2024\211@9\2034\211AA\262\307\310\"\311\306\312\313&\205\\\314\211;\203R\302\303#\266\202\202Z\304A@\"\266\202\315D\207" [org-element-all-elements :footnote-section-p get-text-property 0 plist-get org-element-map nil cl-remove-if #[257 "\211\300>\207" [(comment comment-block footnote-definition property-drawer section)] 3 "\n\n(fn E)"] #[257 "\211\211:\204\211;\205\300\262\202\211@9\205\211@\262\301=\2059\302\211;\2031\303\304#\266\202\2029\305A@\"\266\202?\207" [plain-text headline :commentedp get-text-property 0 plist-get] 7 "\n\n(fn E)"] t (footnote-definition property-drawer) :begin "Extraneous elements in footnote section are not exported"] 8 "\n\n(fn H)"]] 5 (#$ . 36597)])
#@12 

(fn AST)
(defalias 'org-lint-quote-section #[257 "\300\301\302#\207" [org-element-map (headline inlinetask) #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\306\"\204)\305\307P\"\205D\310\211;\203:\302\303#\266\202\202B\304A@\"\266\202\311D\207" [org-comment-string :raw-value get-text-property 0 plist-get string-prefix-p "QUOTE " " QUOTE " :begin "Deprecated QUOTE section"] 8 "\n\n(fn H)"]] 5 (#$ . 37544)])
#@12 

(fn AST)
(defalias 'org-lint-file-application #[257 "\300\301\302#\207" [org-element-map link #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\211\205;\304\211;\203.\301\302#\266\202\2026\303A@\"\266\202\305\306\"D\207" [:application get-text-property 0 plist-get :begin format "Deprecated \"file+%s\" link type"] 8 "\n\n(fn L)"]] 5 (#$ . 37998)])
#@12 

(fn AST)
(defalias 'org-lint-percent-encoding-link-escape #[257 "\300\301\302#\207" [org-element-map link #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305=\205\210\306\211;\203/\302\303#\266\202\2027\304A@\"\266\202\303\3072g\310\311#\203Y\303\225\262\312\313\"\314\235\204<\315\307\316\"\210\202<\317\316\320\310#)\266\2030\211\205\206\321\211;\203|\302\303#\266\202\202\204\304A@\"\266\202\322D\266\203\207" [inhibit-changing-match-data :format get-text-property 0 plist-get bracket :path :obsolete string-match "%\\(..\\)?" match-string 1 ("25" "5B" "5D" "20") throw nil "%" t :begin "Link escaped with obsolete percent-encoding syntax"] 10 "\n\n(fn L)"]] 5 (#$ . 38382)])
#@12 

(fn AST)
(defalias 'org-lint-wrong-header-argument #[257 "\300C\301\302\303\304\305!\306\"\307\310%\311\312\301\313\314\304\305!\315\"\316\317%#\210\242\207" [nil make-byte-code 771 "\303	\304\305\203
C\202\306\307\n\"\"\"\211\205\213\211@\310@!\311\211;\2030\312\313#\266\202\2028\314A@\"\266\202\206U\315\211;\203M\312\313#\266\202\202U\314A@\"\266\202\316\317\"\204k\300\320\321\"D\300\242B\240\210\202\202\322\323\324\"\"\204\202\300\320\325\"D\300\242B\240\210\266A\266\202\202\262\207" vconcat vector [org-babel-header-arg-names org-babel-load-languages append cl-mapcan #[257 "\300\301\302\"!\303!\205\304\305J\"\207" [intern format "org-babel-header-args:%s" boundp mapcar car] 5 "\n\n(fn L)"] mapcar car symbol-name :post-affiliated get-text-property 0 plist-get :begin string-prefix-p ":" format "Missing colon in header argument \"%s\"" assoc-string substring 1 "Unknown header argument \"%s\""] 13 "\n\n(fn DATUM LANGUAGE HEADERS)" org-element-map (babel-call inline-babel-call inline-src-block keyword node-property src-block) 257 "\211\211:\204\211;\205\302\262\202\211@9\205\211@\262\211\303\267\202\216\300\304\305\306\307\211;\2038\310\311#\266\202\202@\312A@\"\266\202\313\211;\203R\310\311#\266\202\202Z\312A@\"\266\202D\"#\202\217\300\314\211;\203s\310\311#\266\202\202{\312A@\"\266\202\306\315\211;\203\216\310\311#\266\202\202\226\312A@\"\266\202!#\202\217\316\211;\203\254\310\311#\266\202\202\264\312A@\"\266\202\317\230\205\217\320\211;\203\312\310\311#\266\202\202\322\312A@\"\266\202\321\322\"\205\347\300\323\324\"\306\325\311\225\"!#\262\202\217\316\211;\203\375\310\311#\266\202\202\312A@\"\266\202\326\321\327\")\2052\300\323\324\"\306\320\211;\203(\310\311#\266\202\2020\312A@\"\266\202!#\262\202\217\300\314\211;\203J\310\311#\266\202\202R\312A@\"\266\202\305\306\315\211;\203f\310\311#\266\202\202n\312A@\"\266\202\330\211;\203\200\310\311#\266\202\202\210\312A@\"\266\202B\"#\202\217\304\207" [case-fold-search plain-text #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (inline-babel-call 33 babel-call 33 inline-src-block 96 keyword 155 node-property 236 src-block 311)) nil cl-mapcan org-babel-parse-header-arguments :inside-header get-text-property 0 plist-get :end-header :language :parameters :key "PROPERTY" :value string-match "\\`header-args\\(?::\\(\\S-+\\)\\)?\\+? *" match-string 1 substring t "\\`HEADER-ARGS\\(?::\\(\\S-+\\)\\)?\\+?" :header] 14 "\n\n(fn DATUM)"] 12 (#$ . 39118)])
#@12 

(fn AST)
(defalias 'org-lint-wrong-header-value #[257 "\300C\301\302\303\304\305\306\307!\310\"\311\312%#\210\211\242\207" [nil org-element-map (babel-call inline-babel-call inline-src-block src-block) make-byte-code 257 "\211\211:\204\211;\205\302\262\202\211@9\205\211@\262\303\211;\203,\304\305#\266\202\2024\306A@\"\266\202\307\205H\310\311P!\312!\205F\211J\262	\"\313\314\267\202\255\315\316\317\211;\203e\304\305#\266\202\202m\306A@\"\266\202\320\211;\203\304\305#\266\202\202\207\306A@\"\266\202B\321#\202\342\317\211;\203\236\304\305#\266\202\202\246\306A@\"\266\202\206\342\322\202\342\323\211;\203\276\304\305#\266\202\202\306\306A@\"\266\202\321\324\211;\203\331\304\305#\266\202\202\341\306A@\"\266\202Q\325\326\203\354\327\202\355\330\322\326\331\322##\266\202!\211\211\205 \211@\332\333\334@!\335\"\"A\211\336>\204A\325;\203\337!\202 C\211\203\211@\325\3402
\211\203\302\211@;\203;\332\202<\341\"\204V\342>\203\273\343\262\211BB\262\202\273\211\236\203\260\300\344\211;\203p\304\305#\266\202\202x\306A@\"\266\202\206\225\345\211;\203\215\304\305#\266\202\202\225\306A@\"\266\202\346\347\f@\236A	$D\300\242B\240\210\350\340\325\"\210\202\273\211BB\262\343\262A\266\202\202,\210\211?\205\f\300\344\211;\203\333\304\305#\266\202\202\343\306A@\"\266\202\206\345\211;\203\370\304\305#\266\202\202\306A@\"\266\202\346\351@#D\300\242B\2400\266A\266\202\202 \266\210A\266\202\202\371\262\207" vconcat vector [org-babel-common-header-args-w-values plain-text :language get-text-property 0 plist-get append intern "org-babel-header-args:" boundp org-babel-parse-header-arguments #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (src-block 81 inline-src-block 141)) mapconcat identity :parameters :header " " "" :inside-header :end-header nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" assoc-string substring symbol-name 1 (:any nil) split-string exit assoc :any t :post-affiliated :begin format "Forbidden combination in header \"%s\": %s, %s" throw "Unknown value \"%s\" for header \"%s\""] 22 "\n\n(fn DATUM)"] 11 (#$ . 41760)])
#@12 

(fn AST)
(defalias 'org-lint-spurious-colons #[257 "\300\301\302#\207" [org-element-map (headline inlinetask) #[257 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\235\2059\305\211;\203/\302\303#\266\202\2027\304A@\"\266\202\306D\207" ["" :tags get-text-property 0 plist-get :begin "Tags contain a spurious colon"] 8 "\n\n(fn H)"]] 5 (#$ . 44038)])
#@51 Local keymap for `org-lint--report-mode' buffers.
(defvar org-lint--report-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\211\207" [tabulated-list-mode-map make-sparse-keymap set-keymap-parent define-key "
" org-lint--jump-to-source "	" org-lint--show-source "\n" "h" org-lint--hide-checker "i" org-lint--ignore-checker] 5) (#$ . 44421))
(defvar org-lint--report-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [org-lint--report-mode-hook variable-documentation put "Hook run after entering OrgLint mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp org-lint--report-mode-map definition-name org-lint--report-mode] 4)
(defvar org-lint--report-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [org-lint--report-mode-abbrev-table org-lint--report-mode-map variable-documentation put purecopy "Keymap for `org-lint--report-mode'." boundp org-lint--report-mode-syntax-table definition-name org-lint--report-mode (lambda (#1=#:def-tmp-var) (defvar org-lint--report-mode-syntax-table #1#)) make-syntax-table "Syntax table for `org-lint--report-mode'." (lambda (#1#) (defvar org-lint--report-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `org-lint--report-mode'." derived-mode-parent tabulated-list-mode] 5)
#@279 Major mode used to display reports emitted during linting.
\{org-lint--report-mode-map}

In addition to any hooks its parent mode `tabulated-list-mode' might have run,
this mode runs the hook `org-lint--report-mode-hook', as the final or penultimate step
during initialization.
(defalias 'org-lint--report-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\331\332 \210)\333\334!\207" [delay-mode-hooks major-mode mode-name org-lint--report-mode-map org-lint--report-mode-syntax-table org-lint--report-mode-abbrev-table make-local-variable t tabulated-list-mode org-lint--report-mode "OrgLint" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table [("Line" 6 (lambda (a b) (< (string-to-number (aref (cadr a) 0)) (string-to-number (aref (cadr b) 0)))) :right-align t) ("Trust" 5 t) ("Warning" 0 t)] tabulated-list-init-header run-mode-hooks org-lint--report-mode-hook local-abbrev-table tabulated-list-format] 5 (#$ . 46137) nil])
#@194 Generate linting report for BUFFER.

CHECKERS is the list of checkers used.

Return an alist (ID [LINE TRUST DESCRIPTION CHECKER]), suitable
for `tabulated-list-printer'.

(fn BUFFER CHECKERS)
(defalias 'org-lint--generate-reports #[514 "rq\210\212eb\210\300 \301C\302C\302C\303\304\305\306\307\310#\311\"\312\313%\314\315\304\305\316\307\310\f!\317\"\320\321%	\"\322\"\"\266\204*\207" [org-element-parse-buffer 0 1 mapcar make-byte-code 257 "\300\211\242T\240\303\304@b\210\305 \210\306\301\211\242\307\302\242`\"\\\240!\302`\240\210AB\"D\207" vconcat vector [apply vector beginning-of-line number-to-string count-lines] 10 "\n\n(fn REPORT)" sort cl-mapcan "\302\303!	>\204\304\305\306D\"\210\307H!\310\311\312\313\314\315\"\316\"\317\320%\212\321\322\323\303!	>\2049\304\305\306	D\"\210\324H\"!\300!)\"\207" [cl-struct-org-lint-checker-tags symbol-name type-of signal wrong-type-argument org-lint-checker 4 mapcar make-byte-code 257 "\211@\301A@\300F\207" vconcat vector [] 5 "\n\n(fn REPORT)" intern format "org-lint-%s" 1] 11 "\n\n(fn C)" car-less-than-car] 16 (#$ . 47425)])
#@52 Source buffer associated to current report buffer.
(defvar org-lint--source-buffer nil (#$ . 48538))
(make-variable-buffer-local 'org-lint--source-buffer)
#@48 List of checkers used to build current report.
(defvar org-lint--local-checkers nil (#$ . 48699))
(make-variable-buffer-local 'org-lint--local-checkers)
(defalias 'org-lint--refresh-reports #[0 "\303	\"\304 \207" [org-lint--source-buffer org-lint--local-checkers tabulated-list-entries org-lint--generate-reports tabulated-list-print] 3])
#@42 Return current report line, as a number.
(defalias 'org-lint--current-line #[0 "\300\301\302\206`\303\"\262\304H!\207" [string-to-number nil get-text-property tabulated-list-entry 0] 5 (#$ . 49046)])
#@134 Return current report checker.
When optional argument ENTRY is non-nil, use this entry instead
of current one.

(fn &optional ENTRY)
(defalias 'org-lint--current-checker #[256 "\211\203\n\211A@\202\300\301\206`\302\"\262\303H\207" [nil get-text-property tabulated-list-entry 3] 5 (#$ . 49257)])
#@105 Display linting reports for buffer SOURCE.
CHECKERS is the list of checkers used.

(fn SOURCE CHECKERS)
(defalias 'org-lint--display-reports #[514 "\302\303!r\211q\210\304 \210\305 \210\306 \210\307\310\305\311\312$\210)\313!\207" [org-lint--source-buffer org-lint--local-checkers get-buffer-create "*Org Lint*" org-lint--report-mode org-lint--refresh-reports tabulated-list-print add-hook tabulated-list-revert-hook nil t pop-to-buffer] 8 (#$ . 49566)])
#@57 Move to source line that generated the report at point.
(defalias 'org-lint--jump-to-source #[0 "\301 \302!\210\211\214~\210eb\210\211Sy\210)\210\303\304!\210\305 \207" [org-lint--source-buffer org-lint--current-line switch-to-buffer-other-window org-show-set-visibility local recenter] 3 (#$ . 50032) nil])
#@54 Show source line that generated the report at point.
(defalias 'org-lint--show-source #[0 "p\300 \210\301!\207" [org-lint--jump-to-source switch-to-buffer-other-window] 3 (#$ . 50347) nil])
#@67 Hide all reports from checker that generated the report at point.
(defalias 'org-lint--hide-checker #[0 "\301 \302\303\304\305\306\307!\310\"\311\312%\"\313 \207" [tabulated-list-entries org-lint--current-checker cl-remove-if make-byte-code 257 "\300\301!\232\207" vconcat vector [org-lint--current-checker] 4 "\n\n(fn E)" tabulated-list-print] 8 (#$ . 50544) nil])
#@125 Ignore all reports from checker that generated the report at point.
Checker will also be ignored in all subsequent reports.
(defalias 'org-lint--ignore-checker #[0 "\301\302 \"\303 \207" [org-lint--local-checkers remove org-lint--current-checker org-lint--hide-checker] 3 (#$ . 50922) nil])
#@341 Check current Org buffer for syntax mistakes.

By default, run all checkers.  With a `\[universal-argument]' prefix ARG, select one
category of checkers only.  With a `\[universal-argument] \[universal-argument]' prefix, run one precise
checker by its name.

ARG can also be a list of checker names, as symbols, to run.

(fn &optional ARG)
(defalias 'org-lint #[256 "\302\303!\204\n\304\305!\210\306\307!\203\310\311!\210\312\204\202\275:\203\271@\211\313\267\202\261A\211\204N\314\315\316\317\"\320\321$\322\323\324\325\326\327!\330\"\331\332%\"\262\202^\322\323\324\333\326\327	!\334\"\335\332%\"\262\202\264A\211\204\251\314\336\316\337\"\320\321$\3402\243\211\205\240\211@\341!	>\204\214\342\343\344D\"\210\211\345H\230\203\231\346\340\"\210A\266\202\202w\2620\262C\202\254!\262\202\264!\262\202\275\304\347\"\262\306\307!\204\314\350p\"\202\324\351p\"\210\310\352!\207" [org-lint--checkers cl-struct-org-lint-checker-tags derived-mode-p org-mode user-error "Not in an Org buffer" called-interactively-p any message "Org linting process starting..." #[257 "\301\302\303\304\305\306!\307\"\310\311%\"\207" [org-lint--checkers cl-remove-if-not make-byte-code 257 "\302!	>\204\303\304\305D\"\210\211\306H\300>\207" vconcat vector [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 1] 5 "\n\n(fn C)"] 8 "\n\n(fn ARG)"] #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 42 16 99)) completing-read "Checker category: " mapcar org-lint-checker-categories nil t cl-remove-if-not make-byte-code 257 "\302\303!	>\204\304\305\306D\"\210\307H\300\"\207" vconcat vector [cl-struct-org-lint-checker-tags assoc-string type-of signal wrong-type-argument org-lint-checker 3] 6 "\n\n(fn C)" "\302!	>\204\303\304\305D\"\210\211\306H\300>\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 1] 5 "Checker name: " org-lint-checker-name exit type-of signal wrong-type-argument org-lint-checker 1 throw "Invalid argument `%S' for `org-lint'" org-lint--generate-reports org-lint--display-reports "Org linting process completed"] 12 (#$ . 51222) "P"])
(provide 'org-lint)

Youez - 2016 - github.com/yon3zu
LinuXploit