....................................../////.===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-table.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\321DD\322\313\306\323\324&\210\315\325\317\320\326DD\327\313\306\323\330&\210\305\331\307\332\311\333\313\306&\210\315\334\317\320\335DD\336\323\324\337\340\313\306&	\210\315\341\317\320\342DD\343\313\331\323\344&\210\315\345\317\320\346DD\347\313\331\323\350&\210\315\351\317\320\352DD\353\313\331\323\354&\210\315\355\317\320\356DD\357\313\331\360\361\323\344&	\210\305\362\307\363\311\364\313\306&\210\315\365\317\320\366DD\367\313\362\323\324&\210\315\370\317\320\371DD\372\313\362\323\324&\210\315\373\317\320\374DD\375\313\306\360\361\323\324&	\210\315\376\317\320\377DD\201@\313\362\360\361\323\201A&	\210\315\201B\317\320\201CDD\201D\313\362\323\324&\210\315\201E\317\320\201FDD\201G\313\362\323\344\337\201H\201I\201J&\210\305\201K\307\310\311\201L\313\306&\210\315\201M\317\320\201NDD\201O\313\201K\323\201P&\210\315\201Q\317\320\201RDD\201S\313\201K\360\201T\337\201U\323\201V&\210\315\201W\317\320\201XDD\201Y\313\201K\323\201Z&\210\315\201[\317\320\201\\DD\201]\313\201K\360\361\323\201^&	\210\315\201_\317\320\201`DD\201a\313\201K\360\201T\337\201b\323\324\201I\201c&
\210\315\201d\317\320\201eDD\201f\313\201K\323\324&\210\315\201g\317\320\201hDD\201i\313\201K\323\324&\210\315\201j\317\320\201kDD\201l\313\201K\323\201m&\210\315\201n\317\320\201oDD\201p\313\201K\323\324&\210\315\201q\317\320\201rDD\201s\313\201K\323\201t&\210\315\201u\317\320\201vDD\201w\313\201K\337\201x\323\201y&	\210\305\201z\307\201{\311\201|\313\306&\210\315\201}\317\320\201~DD\201\313\201z\323\344&\210\315\201\200\317\320\201\201DD\201\202\313\201z\323\201\203\337\201\204&	\207" [require cl-lib org-macs org-compat org-keys custom-declare-group org-table nil "Options concerning tables in Org mode." :tag "Org Table" :group org custom-declare-variable orgtbl-optimized funcall function #[0 "\300\207" [t] 1] "Non-nil means use the optimized table editor version for `orgtbl-mode'.\n\nIn the optimized version, the table editor takes over all simple keys that\nnormally just insert a character.  In tables, the characters are inserted\nin a way to minimize disturbing the table structure (i.e. in overwrite mode\nfor empty fields).  Outside tables, the correct binding of the keys is\nrestored.\n\nChanging this variable requires a restart of Emacs to become\neffective." :type boolean orgtbl-radio-table-templates #[0 "\300\207" [((latex-mode "% BEGIN RECEIVE ORGTBL %n\n% END RECEIVE ORGTBL %n\n\\begin{comment}\n#+ORGTBL: SEND %n orgtbl-to-latex :splice nil :skip 0\n| | |\n\\end{comment}\n") (texinfo-mode "@c BEGIN RECEIVE ORGTBL %n\n@c END RECEIVE ORGTBL %n\n@ignore\n#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0\n| | |\n@end ignore\n") (html-mode "<!-- BEGIN RECEIVE ORGTBL %n -->\n<!-- END RECEIVE ORGTBL %n -->\n<!--\n#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0\n| | |\n-->\n") (org-mode "#+ BEGIN RECEIVE ORGTBL %n\n#+ END RECEIVE ORGTBL %n\n\n#+ORGTBL: SEND %n orgtbl-to-orgtbl :splice nil :skip 0\n| | |\n"))] 1] "Templates for radio tables in different major modes.\nEach template must define lines that will be treated as a comment and that\nmust contain the \"BEGIN RECEIVE ORGTBL %n\" and \"END RECEIVE ORGTBL\"\nlines where \"%n\" will be replaced with the name of the table during\ninsertion of the template.  The transformed table will later be inserted\nbetween these lines.\n\nThe template should also contain a minimal table in a multiline comment.\nIf multiline comments are not possible in the buffer language,\nyou can pack it into a string that will not be used when the code\nis compiled or executed.  Above the table will you need a line with\nthe fixed string \"#+ORGTBL: SEND\", followed by instruction on how to\nconvert the table into a data structure useful in the\nlanguage of the buffer.  Check the manual for the section on\n\"Translator functions\", and more generally check out\nthe Info node `(org)Tables in arbitrary syntax'.\n\nAll occurrences of %n in a template will be replaced with the name of the\ntable, obtained by prompting the user." (repeat (list (symbol :tag "Major mode") (string :tag "Format"))) org-table-settings "Settings for tables in Org mode." "Org Table Settings" org-table-header-line-p #[0 "\300\207" [nil] 1] "Activate `org-table-header-line-mode' by default?" :package-version (Org . "9.4") org-table-default-size #[0 "\300\207" [#1="5x2"] 1 #1#] "The default size for newly created tables, Columns x Rows." string org-table-number-regexp #[0 "\300\207" [#2="^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$"] 1 #2#] "Regular expression for recognizing numbers in table columns.\nIf a table column contains mostly numbers, it will be aligned to the\nright.  If not, it will be aligned to the left.\n\nThe default value of this option is a regular expression which allows\nanything which looks remotely like a number as used in scientific\ncontext.  For example, all of the following will be considered a\nnumber:\n    12    12.2    2.4e-08    2x10^12    4.034+-0.02    2.7(10)  >3.5\n\nOther options offered by the customize interface are more restrictive." (choice (const :tag "Positive Integers" "^[0-9]+$") (const :tag "Integers" "^[-+]?[0-9]+$") (const :tag "Floating Point Numbers" "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.[0-9]*\\)$") (const :tag "Floating Point Number or Integer" "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.?[0-9]*\\)$") (const :tag "Exponential, Floating point, Integer" "^[-+]?[0-9.]+\\([eEdD][-+0-9]+\\)?$") (const :tag "Very General Number-Like, including hex and Calc radix" "^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$") (const :tag "Very General Number-Like, including hex and Calc radix, allows comma as decimal mark" "^\\([<>]?[-+^.,0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$") (regexp :tag "Regexp:")) org-table-number-fraction #[0 "\300\207" [0.5] 1] "Fraction of numbers in a column required to make the column align right.\nIn a column all non-white fields are considered.  If at least\nthis fraction of fields is matched by `org-table-number-regexp',\nalignment to the right border applies." number org-table-formula-field-format #[0 "\300\207" [#3="%s"] 1 #3#] "Format for fields which contain the result of a formula.\nFor example, using \"~%s~\" will display the result within tilde\ncharacters.  Beware that modifying the display can prevent the\nfield from being used in another formula." :version "24.1" org-table-editing "Behavior of tables during editing in Org mode." "Org Table Editing" org-table-automatic-realign #[0 "\300\207" [t] 1] "Non-nil means automatically re-align table when pressing TAB or RETURN.\nWhen nil, aligning is only done with `\\[org-table-align]', or after column\nremoval/insertion." org-table-auto-blank-field #[0 "\300\207" [t] 1] "Non-nil means automatically blank table field when starting to type into it.\nThis only happens when typing immediately after a field motion\ncommand (TAB, S-TAB or RET)." org-table-exit-follow-field-mode-when-leaving-table #[0 "\300\207" [t] 1] "Non-nil means automatically exit the follow mode.\nWhen nil, the follow mode will stay on and be active in any table\nthe cursor enters.  Since the table follow filed mode messes with the\nwindow configuration, it is not recommended to set this variable to nil,\nexcept maybe locally in a special file that has mostly tables with long\nfields." org-table-fix-formulas-confirm #[0 "\300\207" [nil] 1] "Whether the user should confirm when Org fixes formulas." (choice (const :tag "with yes-or-no" yes-or-no-p) (const :tag "with y-or-n" y-or-n-p) (const :tag "no confirmation" nil)) org-table-tab-jumps-over-hlines #[0 "\300\207" [t] 1] "Non-nil means tab in the last column of a table with jump over a hline.\nIf a horizontal separator line is following the current line,\n`org-table-next-field' can either create a new row before that line, or jump\nover the line.  When this option is nil, a new line will be created before\nthis line." org-table-shrunk-column-indicator #[0 "\300\207" [#4="…"] 1 #4#] "String to be displayed in a shrunk column." (Org . "9.2") :safe #[257 "\211;\205	\211\300\232?\207" [""] 3 "\n\n(fn V)"] org-table-calculation "Org Table Calculation" org-table-use-standard-references #[0 "\300\207" [from] 1] "Non-nil means using table references like B3 instead of @3$2.\nPossible values are:\nnil     never use them\nfrom    accept as input, do not present for editing\nt       accept as input and present for editing" (choice (const :tag "Never, don't even check user input for them" nil) (const :tag "Always, both as user input, and when editing" t) (const :tag "Convert user input, don't offer during editing" from)) org-table-copy-increment #[0 "\300\207" [t] 1] "Non-nil means increment when copying current field with `\\[org-table-copy-down]'." "26.1" (Org . "8.3") (choice (const :tag "Use the difference between the current and the above fields" t) (integer :tag "Use a number" 1) (const :tag "Don't increment the value when copying a field" nil)) org-calc-default-modes #[0 "\300\207" [(calc-internal-prec 12 calc-float-format (float 8) calc-angle-mode deg calc-prefer-frac nil calc-symbolic-mode nil calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm)) calc-display-working-message t)] 1] "List with Calc mode settings for use in `calc-eval' for table formulas.\nThe list must contain alternating symbols (Calc modes variables and values).\nDon't remove any of the default settings, just change the values.  Org mode\nrelies on the variables to be present in the list." plist org-table-duration-custom-format #[0 "\300\207" [hours] 1] "Format for the output of calc computations like $1+$2;t.\nThe default value is `hours', and will output the results as a\nnumber of hours.  Other allowed values are `seconds', `minutes' and\n`days', and the output will be a fraction of seconds, minutes or\ndays. `hh:mm' selects to use hours and minutes, ignoring seconds.\nThe `U' flag in a table formula will select this specific format for\na single formula." (choice (symbol :tag "Seconds" 'seconds) (symbol :tag "Minutes" 'minutes) (symbol :tag "Hours  " 'hours) (symbol :tag "Days   " 'days) (symbol :tag "HH:MM  " 'hh:mm)) org-table-duration-hour-zero-padding #[0 "\300\207" [t] 1] "Non-nil means hours in table duration computations should be zero-padded.\nSo this is about 08:32:34 versus 8:33:34." (Org . "9.1") booleanp org-table-formula-evaluate-inline #[0 "\300\207" [t] 1] "Non-nil means TAB and RET evaluate a formula in current table field.\nIf the current field starts with an equal sign, it is assumed to be a formula\nwhich should be evaluated as described in the manual and in the documentation\nstring of the command `org-table-eval-formula'.  This feature requires the\nEmacs calc package.\nWhen this variable is nil, formula calculation is only available through\nthe command `\\[org-table-eval-formula]'." org-table-formula-use-constants #[0 "\300\207" [t] 1] "Non-nil means interpret constants in formulas in tables.\nA constant looks like `$c' or `$Grav' and will be replaced before evaluation\nby the value given in `org-table-formula-constants', or by a value obtained\nfrom the `constants.el' package." org-table-formula-constants #[0 "\300\207" [nil] 1] "Alist with constant names and values, for use in table formulas.\nThe car of each element is a name of a constant, without the `$' before it.\nThe cdr is the value as a string.  For example, if you'd like to use the\nspeed of light in a formula, you would configure\n\n  (setq org-table-formula-constants \\='((\"c\" . \"299792458.\")))\n\nand then use it in an equation like `$1*$c'.\n\nConstants can also be defined on a per-file basis using a line like\n\n#+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6" (repeat (cons (string :tag "name") (string :tag "value"))) org-table-allow-automatic-line-recalculation #[0 "\300\207" [t] 1] "Non-nil means lines marked with |#| or |*| will be recomputed automatically.\n\\<org-mode-map>Automatically means when `TAB' or `RET' or `\\[org-ctrl-c-ctrl-c]' are pressed in the line." org-table-relative-ref-may-cross-hline #[0 "\300\207" [t] 1] "Non-nil means relative formula references may cross hlines.\nHere are the allowed values:\n\nnil    Relative references may not cross hlines.  They will reference the\n       field next to the hline instead.  Coming from below, the reference\n       will be to the field below the hline.  Coming from above, it will be\n       to the field above.\nt      Relative references may cross hlines.\nerror  An attempt to cross a hline will throw an error.\n\nIt is probably good to never set this variable to nil, for the sake of\nportability of tables." (choice (const :tag "Allow to cross" t) (const :tag "Stick to hline" nil) (const :tag "Error on attempt to cross" error)) org-table-formula-create-columns #[0 "\300\207" [nil] 1] "Non-nil means evaluation of formula can add new columns.\nWhen non-nil, evaluating an out-of-bounds field can insert as\nmany columns as needed.  When set to `warn', issue a warning when\ndoing so.  When set to `prompt', ask user before creating a new\ncolumn.  Otherwise, throw an error." (Org . "8.3") (choice (const :tag "Out-of-bounds field generates an error (default)" nil) (const :tag "Out-of-bounds field silently adds columns as needed" t) (const :tag "Out-of-bounds field adds columns, but issues a warning" warn) (const :tag "Prompt user when setting an out-of-bounds field" prompt)) org-table-import-export "Options concerning table import and export in Org mode." "Org Table Import Export" org-table-export-default-format #[0 "\300\207" [#5="orgtbl-to-tsv"] 1 #5#] "Default export parameters for `org-table-export'.\nThese can be overridden for a specific table by setting the\nTABLE_EXPORT_FORMAT property.  See the manual section on orgtbl\nradio tables for the different export transformations and\navailable parameters." org-table-convert-region-max-lines #[0 "\300\207" [999] 1] "Max lines that `org-table-convert-region' will attempt to process.\n\nThe function can be slow on larger regions; this safety feature\nprevents it from hanging Emacs." integer (Org . "8.3")] 14)
#@110 Get the visible string of a table row.
This may be useful when columns have been shrunk.

(fn &optional POS)
(defalias 'org-table-row-get-visible-string #[256 "\212\211\203\211b\210\300 b\210\301 \302\303u\210`W\203=\304`!@\211\204+\305\302f!B\262\2029\306\307\"B\262\310!Sb\210\210\202\311\312\313\314\315!\316#\"\266\202)\207" [line-beginning-position line-end-position nil 1 overlays-at char-to-string overlay-get display overlay-end format "|%s" mapconcat identity reverse ""] 9 (#$ . 14915)])
(defvar org-table-header-overlay nil nil)
(make-variable-buffer-local 'org-table-header-overlay)
#@43 Display the header of the table at point.
(defalias 'org-table-header-set-header #[0 "\302!\203\n\303!\210\304 \212\305 b\210\306 \204\"\307\310\311!)\262\203)\312\313!\210\202`)\212\211b\210\314 )\315!\203D\302!\205T\303!\202T\316\211Z\\\"\317\320!\321#\207" [org-table-header-overlay inhibit-changing-match-data overlayp delete-overlay window-start org-table-begin org-at-table-hline-p ".*|\\s-+<[rcl]?\\([0-9]+\\)?>" t looking-at move-beginning-of-line 2 point-at-eol pos-visible-in-window-p make-overlay org-overlay-display org-table-row-get-visible-string org-table-header] 8 (#$ . 15531)])
#@121 Non-nil if Org-Table-Header-Line mode is enabled.
Use the command `org-table-header-line-mode' to change this variable.
(defvar org-table-header-line-mode nil (#$ . 16156))
(make-variable-buffer-local 'org-table-header-line-mode)
#@339 Display the first row of the table at point in the header line.

If called interactively, enable Org-Table-Header-Line mode if ARG is
positive, and disable it if ARG is zero or negative.  If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.

(fn &optional ARG)
(defalias 'org-table-header-line-mode #[256 "\303 \304=\203
?\202\305!\306V	\307=\204\310\311!\210\203+\312\313\314\315\316$\210\202=\317\n!\2037\320\n!\210\315\321\313\314\316#\210\322\323\203G\324\202H\325\"\210\326\327!\203l\303 \203\\\211\303 \232\203l\330\331\332\203g\333\202h\334#\266\210\335 \210\207" [org-table-header-line-mode major-mode org-table-header-overlay current-message toggle prefix-numeric-value 0 org-mode user-error "Cannot turn org table header mode outside org-mode buffers" add-hook post-command-hook org-table-header-set-header nil t overlayp delete-overlay remove-hook run-hooks org-table-header-line-mode-hook org-table-header-line-mode-on-hook org-table-header-line-mode-off-hook called-interactively-p any " in current buffer" message "Org-Table-Header-Line mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 16393) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar org-table-header-line-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [org-table-header-line-mode-map org-table-header-line-mode-hook variable-documentation put "Hook run after entering or leaving `org-table-header-line-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode org-table-header-line-mode " TblHeader" boundp nil] 6)
#@41 Detect an org-type or table-type table.
(defconst org-table-any-line-regexp "^[ 	]*\\(|\\|\\+-[-+]\\)" (#$ . 18174))
#@32 Detect an org-type table line.
(defconst org-table-line-regexp "^[ 	]*|" (#$ . 18297))
#@32 Detect an org-type table line.
(defconst org-table-dataline-regexp "^[ 	]*|[^-]" (#$ . 18390))
#@33 Detect an org-type table hline.
(defconst org-table-hline-regexp "^[ 	]*|-" (#$ . 18491))
#@34 Detect a table-type table hline.
(defconst org-table1-hline-regexp "^[ 	]*\\+-[-+]" (#$ . 18587))
#@103 Detect the first line outside a table when searching from within it.
This works for both table types.
(defconst org-table-any-border-regexp "^[ 	]*[^|+ 	]" (#$ . 18692))
#@24 Detect a #+TBLFM line.
(defconst org-TBLFM-regexp "^[ 	]*#\\+TBLFM: " (#$ . 18868))
(defvar org-table-TBLFM-begin-regexp "^[ 	]*|.*\n[ 	]*#\\+TBLFM: ")
#@60 Regexp matching a line marked for automatic recalculation.
(defconst org-table-auto-recalculate-regexp "^[ 	]*| *# *\\(|\\|$\\)" (#$ . 19026))
#@50 Regexp matching a line marked for recalculation.
(defconst org-table-recalculate-regexp "^[ 	]*| *[#*] *\\(|\\|$\\)" (#$ . 19175))
#@48 Regexp matching a line marked for calculation.
(defconst org-table-calculate-mark-regexp "^[ 	]*| *[!$^_#*] *\\(|\\|$\\)" (#$ . 19312))
#@48 Regexp matching any line outside an Org table.
(defconst org-table-border-regexp "^[ 	]*[^| 	]" (#$ . 19454))
#@53 Regular expression for matching ranges in formulas.
(defconst org-table-range-regexp "@\\([-+]?I*[-+]?[0-9]*\\)\\(\\$[-+]?[0-9]+\\)?\\(\\.\\.@?\\([-+]?I*[-+]?[0-9]*\\)\\(\\$[-+]?[0-9]+\\)?\\)?" (#$ . 19570))
#@38 Match a range for reference display.
(defconst org-table-range-regexp2 "\\(@[-0-9I$&]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)\\|\\$[a-zA-Z0-9]+\\)\\.\\.\\(@?[-0-9I$&]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)\\|\\$[a-zA-Z0-9]+\\)" (#$ . 19784))
#@66 Match a reference that needs translation, for reference display.
(defconst org-table-translate-regexp "\\(@[-0-9I$]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)\\)" (#$ . 20027))
#@142 Space used around fields when aligning the table.
This space serves as a segment separator for the purposes of the
bidirectional reordering.
(defconst org-table-separator-space (propertize " " 'display '(space :relative-width 1)) (#$ . 20205))
(defvar org-table-last-highlighted-reference nil)
(defvar org-table-formula-history nil)
(defvar org-field-marker nil)
(defvar org-table-buffer-is-an nil)
#@49 Local version of `org-table-formula-constants'.
(defvar org-table-formula-constants-local nil (#$ . 20610))
(make-variable-buffer-local 'org-table-formula-constants-local)
#@139 Indicates that a table might need an update.
This variable is set by `org-before-change-function'.
`org-table-align' sets it back to nil.
(defvar org-table-may-need-update t (#$ . 20789))
#@225 Hook for functions attaching to `C-c C-c', if the table is sent.
This can be used to add additional functionality after the table is sent
to the receiver position, otherwise, if table is not sent, the functions
are not run.
(defvar orgtbl-after-send-table-hook nil (#$ . 20984))
#@108 Alist with column names, derived from the `!' line.
This variable is initialized with `org-table-analyze'.
(defvar org-table-column-names nil (#$ . 21270))
#@110 Regular expression matching the current column names.
This variable is initialized with `org-table-analyze'.
(defvar org-table-column-name-regexp nil (#$ . 21433))
#@111 Alist with parameter names, derived from the `$' line.
This variable is initialized with `org-table-analyze'.
(defvar org-table-local-parameters nil (#$ . 21604))
#@311 Alist with locations of named fields.
Associations follow the pattern (NAME LINE COLUMN) where
  NAME is the name of the field as a string,
  LINE is the number of lines from the beginning of the table,
  COLUMN is the column of the field, as an integer.
This variable is initialized with `org-table-analyze'.
(defvar org-table-named-field-locations nil (#$ . 21774))
#@90 Table row types in current table.
This variable is initialized with `org-table-analyze'.
(defvar org-table-current-line-types nil (#$ . 22148))
#@99 Current table begin position, as a marker.
This variable is initialized with `org-table-analyze'.
(defvar org-table-current-begin-pos nil (#$ . 22298))
#@92 Number of columns in current table.
This variable is initialized with `org-table-analyze'.
(defvar org-table-current-ncol nil (#$ . 22456))
#@170 Vector of data line line numbers in the current table.
Line numbers are counted from the beginning of the table.  This
variable is initialized with `org-table-analyze'.
(defvar org-table-dlines nil (#$ . 22603))
#@166 Vector of hline line numbers in the current table.
Line numbers are counted from the beginning of the table.  This
variable is initialized with `org-table-analyze'.
(defvar org-table-hlines nil (#$ . 22822))
#@125 Marker at the beginning of the table last aligned.
Used to check if cursor still is in that table, to minimize realignment.
(defvar org-table-aligned-begin-marker (make-marker) (#$ . 23037))
#@119 Marker at the end of the table last aligned.
Used to check if cursor still is in that table, to minimize realignment.
(defvar org-table-aligned-end-marker (make-marker) (#$ . 23235))
#@140 List of flags for flushright alignment, from the last re-alignment.
This is being used to correctly align a single field after TAB or RET.
(defvar org-table-last-alignment nil (#$ . 23425))
#@116 List of max width of fields in each column.
This is being used to correctly align a single field after TAB or RET.
(defvar org-table-last-column-widths nil (#$ . 23622))
#@90 Non-nil means debug table formulas.
When nil, simply write "#ERROR" in corrupted fields.
(defvar org-table-formula-debug nil (#$ . 23798))
(make-variable-buffer-local 'org-table-formula-debug)
#@50 Overlay coordinates after each align of a table.
(defvar org-table-overlay-coordinates nil (#$ . 23997))
(make-variable-buffer-local 'org-table-overlay-coordinates)
(defvar org-last-recalc-line nil)
(defvar org-show-positions nil)
(defvar org-table-rectangle-overlays nil)
#@30 Clipboard for table regions.
(defvar org-table-clip nil (#$ . 24276))
(defvar org-timecnt nil)
#@99 List of commands triggering the recalculation of a line.
Will be filled automatically during use.
(defvar org-recalc-commands nil (#$ . 24377))
(defvar org-recalc-marks '((" " . "Unmarked: no special line, no automatic recalculation") ("#" . "Automatically recalculate this line upon TAB, RET, and C-c C-c in the line") ("*" . "Recalculate only when entire table is recalculated with `C-u C-c *'") ("!" . "Column name definition line.  Reference in formula as $name.") ("$" . "Parameter definition line name=value.  Reference in formula as $name.") ("_" . "Names for values in row below this one.") ("^" . "Names for values in row above this one.")))
(defvar org-tbl-calc-modes nil)
(defvar org-pos nil)
#@84 Expand all columns before executing BODY, then shrink them again.

(fn &rest BODY)
(defalias 'org-table-with-shrunk-columns '(macro . #[128 "\300\301!\300\302!\300\303!\304\305B\306B\307BE\310\311EE\312\313B\314F\315\316BB\315\317BB\257F\207" [make-symbol "--shrunk-columns" "--begin" "--end" let ((copy-marker (org-table-begin))) ((copy-marker (org-table-end) t)) ((org-table--list-shrunk-columns)) org-with-point-at org-table-expand unwind-protect progn org-table--shrink-columns set-marker (nil) (nil)] 14 (#$ . 25087)]))
(put 'org-table-with-shrunk-columns 'edebug-form-spec '(body))
#@75 Save field shrunk state, execute BODY and restore state.

(fn &rest BODY)
(defalias 'org-table-with-shrunk-field '(macro . #[128 "\300\301!\300\302!\300\303!\304\305B\306\307\310D\311BBED\306\312	\313\nDEEDE\314\315DE\316\317B\314\320	\312\fE\fFEEF\207" [make-symbol "--end" "--shrunk" "--size" let* ((save-match-data (org-table--shrunk-field))) and copy-marker overlay-end (t) - overlay-start when delete-overlay unwind-protect progn move-overlay] 16 (#$ . 25702)]))
(put 'org-table-with-shrunk-field 'edebug-form-spec '(body))
#@116 Save current field; execute BODY; restore field.
Field is restored even in case of abnormal exit.

(fn &rest BODY)
(defalias 'org-table-save-field '(macro . #[128 "\300\301!\300\302!\303\304B\305BD\306\307B\310D\311D\312\313BB\257E\207" [make-symbol "--line" "--column" let ((copy-marker (line-beginning-position))) ((org-table-current-column)) unwind-protect progn goto-char org-table-goto-column set-marker (nil)] 12 (#$ . 26260)]))
(put 'org-table-save-field 'edebug-form-spec '(body))
#@28 

(fn VAR &optional VALUE)
(defalias 'org-table--set-calc-mode #[513 ";\203\301\302\"\262\3038\262A@\262>\203%>A\240\210\202'\210\207" [org-tbl-calc-modes assoc (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) 2] 5 (#$ . 26766)])
(put 'org-table--set-calc-mode 'byte-optimizer 'byte-compile-inline-expand)
#@69 Non-nil when point (or POS) is in #+TBLFM line.

(fn &optional POS)
(defalias 'org-at-TBLFM-p #[256 "\212\211\206`b\210\302 \210\303\304	!)\205\305\306 !\307=)\207" [case-fold-search org-TBLFM-regexp beginning-of-line t looking-at org-element-type org-element-at-point table] 3 (#$ . 27153)])
#@137 Non-nil if the cursor is inside an Org table.
If TABLE-TYPE is non-nil, also check for table.el-type tables.

(fn &optional TABLE-TYPE)
(defalias 'org-at-table-p #[256 "\300\203	\301\202\n\302!\205+\303\304!?\206+\305\306 \307\310#\211\205)\206)\311\312\"\313=\262\207" [org-match-line "[ 	]*[|+]" "[ 	]*|" derived-mode-p org-mode org-element-lineage org-element-at-point (table) t org-element-property :type org] 5 (#$ . 27458)])
#@44 Non-nil when point is at a table.el table.
(defalias 'org-at-table\.el-p #[0 "\300\301!\205\302 \303!\304=\205\305\306\"\307=\262\207" [org-match-line "[ 	]*[|+]" org-element-at-point org-element-type table org-element-property :type table\.el] 4 (#$ . 27905)])
#@86 Non-nil when point is inside a hline in a table.
Assume point is already in a table.
(defalias 'org-at-table-hline-p #[0 "\301!\207" [org-table-hline-regexp org-match-line] 2 (#$ . 28180)])
#@284 Non-nil when point is inside a table data field.
Raise an error otherwise, unless NOERROR is non-nil.  In that
case, return nil if point is not inside a data field.  When
optional argument ASSUME-TABLE is non-nil, assume point is within
a table.

(fn &optional NOERROR ASSUME-TABLE)
(defalias 'org-table-check-inside-data-field #[512 "\211\204	\301 \203%\212\302\303x\210n)\204%\304 \204%\305\306\307!)\262?\206.\203+\303\207\310\311!\207" [inhibit-changing-match-data org-at-table-p " 	" nil org-at-table-hline-p "[ 	]*$" t looking-at user-error "Not in table data field"] 5 (#$ . 28378)])
#@135 Use the table.el package to insert a new table.
If there is already a table at point, convert between Org tables
and table.el tables.
(defalias 'org-table-create-with-table\.el #[0 "\300\301!\210\302 \203\303\304!\203\305 \207\306 \203#\303\307!\203#\310 \210\305 \207\311\312!\207" [require table org-at-table\.el-p y-or-n-p "Convert table to Org table? " org-table-convert org-at-table-p "Convert table to table.el table? " org-table-align call-interactively table-insert] 2 (#$ . 28986) nil])
#@359 Convert region to table, or create an empty table.
If there is an active region, convert it to a table, using the function
`org-table-convert-region'.  See the documentation of that function
to learn how the prefix argument is interpreted to determine the field
separator.
If there is no such region, create an empty table with `org-table-create'.

(fn ARG)
(defalias 'org-table-create-or-convert-from-region #[257 "\300 \203
\301\302 \303 #\207\304!\207" [org-region-active-p org-table-convert-region region-beginning region-end org-table-create] 5 (#$ . 29495) "P"])
#@124 Query for a size and insert a table skeleton.
SIZE is a string Columns x Rows like for example "3x2".

(fn &optional SIZE)
(defalias 'org-table-create #[256 "\211\204\301\302\303Q\304\305$\262`\306i\307\"\310\311\"\312A@!\312@!\313\314\315\316\317\"$\320P\321\322\323\324 `\"\"\203>\325\326!\210\202A\327 \210\330\211W\203U\211c\266\211T\262\202C\266b\210\326V\203i\326\210\331c\210b\210\332 \207" [org-table-default-size read-string "Table size Columns x Rows [e.g. " "]: " "" nil make-string 32 org-split-string " *x *" string-to-number apply concat "|" make-list "  |" "\n" string-match "^[ 	]*$" buffer-substring-no-properties point-at-bol beginning-of-line 1 newline 0 "\n|-" org-table-align] 13 (#$ . 30074) "P"])
#@889 Convert region to a table.

The region goes from BEG0 to END0, but these borders will be moved
slightly, to make sure a beginning of line in the first line is included.

SEPARATOR specifies the field separator in the lines.  It can have the
following values:

(4)     Use the comma as a field separator
(16)    Use a TAB as field separator
(64)    Prompt for a regular expression as field separator
integer  When a number, use that many spaces, or a TAB, as field separator
regexp   When a regular expression, use it to match the separator
nil      When nil, the command tries to be smart and figure out the
         separator in the following way:
         - when each line contains a TAB, assume TAB-separated material
         - when each line contains a comma, assume CSV material
         - else, assume one or more SPACE characters as separator.

(fn BEG0 END0 &optional SEPARATOR)
(defalias 'org-table-convert-region #[770 "^]\301\302\"V\203\303\304\"\202\305\232\203\"\306\307!\262b\210\310\311!\210\312 \262b\210n\203:\313u\210\202=\311\210\312 \262\204cb\210\314\315\316#\204T\317\202a\314\320\316#\204`\321\202a\311\262b\210\322\232\203\311`W\203\323\324!\203~\325c\210\202l\323\326!\203\217\327\330!\210\310\331!\210\202l\323\332!\203\245\327\333!\210\323\334!\203l\334c\210\202l\323\335!\203\262\336\225b\210\202l\323\337!\203\277\327\340!\210\202l\310\331!\210\202l\202\341\267\202\327\342\202\376\343\202\376\250\203\357\311W\203\350\303\344!\202\376\345\346\"\202\376;\203\373\345\347\"\202\376\350\351!\262\314\316#\203\327\325\316\211#\210\202b\210\352 \207" [org-table-convert-region-max-lines nil count-lines user-error "Region is longer than `org-table-convert-region-max-lines' (%s) lines; not converting" (64) read-regexp "Regexp for field separator" beginning-of-line 1 point-marker -1 re-search-forward "^[^\n	]+$" t (16) "^[^\n,]+$" (4) (4) looking-at "^" "| " "[ 	]*$" replace-match " |" 2 "[ 	]*\"\\([^\"\n]*\\)\"" "\\1" "\"" "[^,\n]+" 0 "[ 	]*," " | " #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 207 (16) 211)) "^\\|\"?[ 	]*,[ 	]*\"?" "^\\|	" "Number of spaces in separator must be >= 1" format "^ *\\| *	 *\\| \\{%d,\\}" "^ *\\|%s" error "This should not happen" org-table-align] 10 (#$ . 30826) "r\nP"])
#@705 Import FILE as a table.

The command tries to be smart and figure out the separator in the
following way:

- when each line contains a TAB, assume TAB-separated material;
- when each line contains a comma, assume CSV material;
- else, assume one or more SPACE characters as separator.

When non-nil, SEPARATOR specifies the field separator in the
lines.  It can have the following values:

- (4)     Use the comma as a field separator.
- (16)    Use a TAB as field separator.
- (64)    Prompt for a regular expression as field separator.
- integer When a number, use that many spaces, or a TAB, as field separator.
- regexp  When a regular expression, use it to match the separator.

(fn FILE SEPARATOR)
(defalias 'org-table-import #[514 "\301\302!\203\303\304\305\306#)\266\203\204\307\310!\210n\204!\311c\210`d\312!\210\313`dZ\\#\207" [inhibit-changing-match-data called-interactively-p any "\\.\\(?:csv\\|t\\(?:sv\\|xt\\)\\)\\'" nil t string-match user-error "Cannot import such file" "\n" insert-file-contents org-table-convert-region] 9 (#$ . 33192) "f\nP"])
#@538 Convert from Org table to table.el and back.
Obviously, this only works within limits.  When an Org table is converted
to table.el, all horizontal separator lines get lost, because table.el uses
these as cell boundaries and has no notion of horizontal lines.  A table.el
table can be converted to an Org table only if it does not do row or column
spanning.  Multiline cells will become multiple cells.  Beware, Org mode
does not test if the table can be successfully converted - it blindly
applies a recipe that works for simple tables.
(defalias 'org-table-convert #[0 "\300\301!\210\302 \203-\303\304\305!!\303\306\305!!\307\"\210b\210\310\311\305#\203*\312\313!\210\202b\207\314 \205\226\303\304 !\303\306 !b\210\310\315\305#\203L\312\313!\210\202=b\210\316\317!\210\320\321!\210\320\322!\210`W\203g\316 \210\202Wb\210\211\306 \323\223\262\310\324\305#\203\200\312\325!\210\202qb\210\310\326\305#\203\222\312\327!\210\202\203b\266\202\207" [require table org-at-table\.el-p copy-marker org-table-begin t org-table-end table-unrecognize-region re-search-forward "^\\([ 	]*\\)\\+-.*\n" replace-match "" org-at-table-p "^\\([ 	]*\\)|-.*\n" org-table-insert-hline above beginning-of-line -1 3 nil "^\\([ 	]*\\)|-" "\\1+-" "-|[ 	]*$" "-+"] 6 (#$ . 34277) nil])
#@221 Find the beginning of the table and return its position.
With a non-nil optional argument TABLE-TYPE, return the beginning
of a table.el-type table.  This function assumes point is on
a table.

(fn &optional TABLE-TYPE)
(defalias 'org-table-begin #[256 "\211\203\n\301\302\303 \"\207\212\304\305\306#\205\307\310!)\206e\207" [org-table-border-regexp org-element-property :post-affiliated org-element-at-point re-search-backward nil t line-beginning-position 2] 5 (#$ . 35571)])
#@209 Find the end of the table and return its position.
With a non-nil optional argument TABLE-TYPE, return the end of
a table.el-type table.  This function assumes point is on
a table.

(fn &optional TABLE-TYPE)
(defalias 'org-table-end #[256 "\212\211\203\301\302\303 \"b\210\304\305x\210\306\307!\2024\310\305\311#\203#\312\224\2024db\210\313\305x\210n\2032`\2024\314 )\207" [org-table-border-regexp org-element-property :end org-element-at-point " 	\n" nil line-beginning-position 2 re-search-forward t 0 " 	" line-end-position] 5 (#$ . 36062)])
#@124 Go to the next field in the current table, creating new lines as needed.
Before doing so, re-align the table if necessary.
(defalias 'org-table-next-field #[0 "\303 \210\304 \210\203	\203\305 \210\306 \307 \203\310\210\3111a\312\313\"\210\314\315!\203/\312\313\"\210\314\316!\203E\n\203E\312\317\320#\203E\310\224b\210\314\316!\203U\321\322!\210\323\324!\202]\314\325!\205]\310u0\202e\210\323\324!\207" [org-table-automatic-realign org-table-may-need-update org-table-tab-jumps-over-hlines org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-align org-table-end org-at-table-hline-p 1 (error) re-search-forward "|" looking-at "[ 	]*$" "-" "^[ 	]*|\\([^-]\\)" t beginning-of-line 0 org-table-insert-row below " "] 5 (#$ . 36622) nil])
#@90 Go to the previous field in the table.
Before doing so, re-align the table if necessary.
(defalias 'org-table-previous-field #[0 "\303 \210\304 \210\203	\203\305 \210\306 \203\307\210\310 `\3111?\312\313\307\314$\210\315\316\317!)\262\205;\312\313\"\210\202'0\202F\210\211b\210\320\321!\266\317\322!\205Q\323\225b\207" [org-table-automatic-realign org-table-may-need-update inhibit-changing-match-data org-table-justify-field-maybe org-table-maybe-recalculate-line org-table-align org-at-table-hline-p nil org-table-begin (error) search-backward "|" 2 "|\\(?:-\\|[ 	]*$\\)" t looking-at user-error "Cannot move to previous table field" "| ?" 0] 7 (#$ . 37402) nil])
#@210 Move to the beginning of the current table field.
If already at or before the beginning, move to the beginning of the
previous field.
With numeric argument N, move N-1 fields backward first.

(fn &optional N)
(defalias 'org-table-beginning-of-field #[256 "`\300V\203S\262\301 \210\202\302\303\304\305!\306#\204\"\307\310!\210\202/\305\225b\210\311\312!\203/\300u\210`Y\2058\313\314!\207" [1 org-table-previous-field re-search-backward "|" point-at-bol 0 t user-error "No more table fields before the current" looking-at " " org-table-beginning-of-field 2] 6 (#$ . 38094) "p"])
#@192 Move to the end of the current table field.
If already at or after the end, move to the end of the next table field.
With numeric argument N, move N-1 fields forward first.

(fn &optional N)
(defalias 'org-table-end-of-field #[256 "`\300V\203S\262\301 \210\202\302\303\304\300!\305#\2038\306u\210\307\310x\210`\206'`Sf\311\232\2038`f\312\232\2038\300u\210`X\205A\313\314!\207" [1 org-table-next-field re-search-forward "|" point-at-eol t -1 " " nil 124 32 org-table-end-of-field 2] 6 (#$ . 38690) "p"])
#@106 Go to the next row (same column) in the current table.
Before doing so, re-align the table if necessary.
(defalias 'org-table-next-row #[0 "\302 \210\303 \210\203	\203\304 \210\305 \306\307!\210n\204\310c\210\311 \203(\312 \2030\306\313!\210\314\315!\210\316!\210\317\320x\210\321\322!\205@\320u\207" [org-table-automatic-realign org-table-may-need-update org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-align org-table-current-column beginning-of-line 2 "\n" org-at-table-p org-at-table-hline-p 0 org-table-insert-row below org-table-goto-column "^|\n
" nil looking-at " "] 3 (#$ . 39213) nil])
#@309 Get the field in table line LINE, column COLUMN.
If LINE is larger than the number of data lines in the table, the function
returns nil.  However, if COLUMN is too large, we will simply return an
empty string.
If LINE is nil, use the current line.
If COLUMN is nil, use the current column.

(fn LINE COLUMN)
(defalias 'org-table-get #[514 "\211\206\300 \262\212\203\301!\205+\302!\303\304\203 \305\202!\306\307\304\310\307##\266\202)\207" [org-table-current-column org-table-goto-line org-table-get-field nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'"] 11 (#$ . 39851)])
#@125 Put VALUE into line LINE, column COLUMN.
When ALIGN is set, also realign the table.

(fn LINE COLUMN VALUE &optional ALIGN)
(defalias 'org-table-put #[1027 "\206\300 \262\212\203\301!\205\302\303\304#\210\305\")\203%\306 \210\207" [org-table-current-column org-table-goto-line org-table-goto-column nil force org-table-get-field org-table-align] 8 (#$ . 40476)])
#@44 Return the index of the current data line.
(defalias 'org-table-current-line #[0 "`\301 \302\212\303 b\210\304\305#\203 \211T\211\262\203 \306 W\204	)\207" [org-table-dataline-regexp org-table-end 0 org-table-begin re-search-forward t point-at-eol] 7 (#$ . 40860)])
#@31 Return current column number.
(defalias 'org-table-current-column #[0 "\212`\300 \210\301\302\303#\204\304\202.\305\306 \203\307\202\302\310\303#\203+T\262\202\266\202\262)\207" [beginning-of-line search-forward "|" t 0 1 org-at-table-hline-p "[+|]" re-search-forward] 7 (#$ . 41139) nil])
#@74 Find out what table data line we are in.
Only data lines count for this.
(defalias 'org-table-current-dline #[0 "\212\301\302 \303 b\210`X\203\304!\203T\262\305y\210\202\266\202)\207" [org-table-dataline-regexp 0 line-beginning-position org-table-begin looking-at nil] 4 (#$ . 41452)])
#@112 Go to the Nth data line in the current table.
Return t when the line exists, nil if it does not exist.

(fn N)
(defalias 'org-table-goto-line #[257 "\301 b\210\302 \303\304\305#\203\211T\211\262W\204\211U\207" [org-table-dataline-regexp org-table-begin org-table-end 0 re-search-forward t] 7 (#$ . 41756)])
#@49 Blank the current table field or active region.
(defalias 'org-table-blank-field #[0 "\301 \210\302\303!\203\304 \203\305\306\307 \310 \")\207\311\305x\210\312u\210\313\314!\205B\315\224\316\315!\317!\320\321\322S\323\"P!\210\324\\b\210\325\326\"\266\203\207" [org-table-clip org-table-check-inside-data-field called-interactively-p any org-region-active-p nil org-table-cut-region region-beginning region-end "^|" -1 looking-at "|[^|\n]+" 0 match-string org-string-width replace-match "|" make-string 32 2 substring 1] 8 (#$ . 42078) nil])
#@214 Return the value of the field in column N of current row.
N defaults to current column.  If REPLACE is a string, replace
field with this value.  The return value is always the old
value.

(fn &optional N REPLACE)
(defalias 'org-table-get-field #[512 "\203\301!\210\302\303x\210n\204\304\305\306!)\262\203\307\207\306\310!\210\311\224\211\311\225{\203\200\312 \313\311\314\315\316!\317\"\320$\216\321 )\262\211\205I\322\323!\305\"\205R\211\324!Z\203Z\325!\210\313\311\326\315\316#\327\"\330$\216\331\307\232\203w\332\202y\305\211#\210)\266\333 T^b\210\207" [inhibit-changing-match-data org-table-goto-column "^|\n" nil "[ 	]*$" t looking-at "" "[^|
\n]*" 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table--shrunk-field copy-marker overlay-end overlay-start delete-overlay "\300\205\303\300\301\302Z\301#\207" [move-overlay] 4 replace-match " " line-end-position] 15 (#$ . 42636)])
#@84 Show info about the current field, and highlight any reference at point.

(fn ARG)
(defalias 'org-table-field-info #[257 "\303 \204	\304\305!\210\306 \210\212`\307 \310\311!\"@\310\312	\313 \"D\n\"@\314\315\316\317 \"!\320 \321\322#\323!\324\"\206?\324\"\324\321\325\n\"\"\206M\211\211\205W\326\327\330@#\211\203^\211\262\210\nb\210\3311n\332\333!0\202r\210\202s\210\334\335\f\f\203\205\336
P\202\206\337\n\n\203\230\336P\202\231\337	\203\304\340\341\342\343
@\"\204\262\342\344
@\"\203\266\337\202\267\343\f@\345AR!P\202\305\337&	\266\213)\207" [org-table-column-names org-table-current-begin-pos org-table-named-field-locations org-at-table-p user-error "Not at a table" org-table-analyze org-table-current-column rassoc number-to-string count-lines line-beginning-position org-table-expand-lhs-ranges mapcar #[257 "\300@!AB\207" [org-table-formula-handle-first/last-rc] 3 "\n\n(fn E)"] org-table-get-stored-formulas org-table-current-dline format "@%d$%d" org-table-convert-refs-to-an assoc "$%d" get-text-property 0 :orig-eqn (error) org-table-show-reference local message "line @%d, col $%s%s, ref @%d$%d or %s%s%s" " or $" "" ", formula: " org-table-formula-to-user string-prefix-p "$" "@" "="] 27 (#$ . 43614) "P"])
#@445 Move point to a specific field in the current table.

REF is either the name of a field its absolute reference, as
a string.  No column is created unless CREATE-COLUMN-P is
non-nil.  If it is a function, it is called with the column
number as its argument as is used as a predicate to know if the
column can be created.

This function assumes the table is already analyzed (i.e., using
`org-table-analyze').

(fn REF &optional CREATE-COLUMN-P)
(defalias 'org-table-goto-field #[513 "\303\"A\2062\304\305\"\203.\3061	\307\310\311\"!H0\202$\210\312\313\"\307\310\314\"!D\2022\312\315\"\211@A@\316!\203C!\202D\205S\nb\210y\210\317\320#\207" [org-table-named-field-locations org-table-dlines org-table-current-begin-pos assoc string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" (error) string-to-number match-string 1 user-error "Invalid row number in %s" 2 "Unknown field: %s" functionp org-table-goto-column nil] 10 (#$ . 44900)])
#@319 Move the cursor to the Nth column in the current table line.
With optional argument ON-DELIM, stop with point before the left delimiter
of the field.
If there are less than N fields, just go to after the last delimiter.
However, when FORCE is non-nil, create new columns if necessary.

(fn N &optional ON-DELIM FORCE)
(defalias 'org-table-goto-column #[769 "\300\301!\210\302V\205OS\211\262\303V\203.\304\305\306 \307#\204\n\211\203.\301\210\310\311x\210\312c\210\202\n\211\203@\313\314!\204@\212\301\210\312c\210)\203G\303u\207\313\315!\205O\301u\207" [beginning-of-line 1 0 -1 search-forward "|" point-at-eol t "^|" nil " | " looking-at ".*|" " "] 7 (#$ . 45869) "p"])
#@37 Insert a new column into the table.
(defalias 'org-table-insert-column #[0 "\301 \204	\302\303!\210\304 \210\305\306 ]\307 \310\311 !\312 \313\"\210\212b\210`W\203:\314 \2044\315\316\"\210\317c\210\320y\210\202!)\315!\210\321 \210\322\323\324\325\326\327\330\n!\331\"\332\333%\"#\210\320\211\223\210\203f\334!\205n\335\336\320S\305$\207" [org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-table-find-dataline 1 org-table-current-column org-table-begin copy-marker org-table-end org-table--list-shrunk-columns org-table-expand org-at-table-hline-p org-table-goto-column t "|" nil org-table-align org-table--shrink-columns mapcar make-byte-code 257 "\211\300W\203\207\211T\207" vconcat vector [] 3 "\n\n(fn C)" "Fix formulas? " org-table-fix-formulas "$"] 12 (#$ . 46561) nil])
#@169 Find a data line in the current table, which is needed for column commands.
This function assumes point is in a table.  Raise an error when
there is no data row below.
(defalias 'org-table-find-dataline #[0 "\300 ?\206.i\301 \302y\210`W\203\300 \203\302y\210\202\f`Y\203'\303\304!\210\305!\210\306\266\202\207" [org-at-table-hline-p org-table-end nil user-error "Cannot find data row for column operation" org-move-to-column t] 4 (#$ . 47395)])
#@284 Turn a buffer line number into a data line number.

If there is no data line in this line, return nil.

If there is no matching dline (most likely the reference was
a hline), the first dline below it is used.  When ABOVE is
non-nil, the one above is used.

(fn LINE &optional ABOVE)
(defalias 'org-table-line-to-dline #[513 "\301GSHV\204HW\203\302\202~HU\203$\211\202~\3032~\211Z\301V\203\\\211\\\304\245H\211U\203G\305\303\"\210\202W\211V\203T\262\202W\262\266\202(HU\203h\211\202}HU\203t\202}\203|\202}\2110\207" [org-table-dlines 1 nil exit 2 throw] 9 (#$ . 47857)])
#@204 Swap two cells indicated by the coordinates provided.
ROW1, COL1, ROW2, COL2 are integers indicating the row/column
position of the two cells that will be swapped in the table.

(fn ROW1 COL1 ROW2 COL2)
(defalias 'org-table--swap-cells #[1028 "\300\"\300\"\301#\210\301#\207" [org-table-get org-table-put] 10 (#$ . 48487)])
#@251 Move the current cell in a cardinal direction.
DIRECTION is a symbol among `up', `down', `left', and `right'.
The contents the current cell are swapped with cell in the
indicated direction.  Raise an error if the move cannot be done.

(fn DIRECTION)
(defalias 'org-table--move-cell #[257 "\211\302\267\202\303\202\304\202\305\306\267\202\303\202\304\202\305\305U\203/\211\305U\203/\307\310\"\210\311 \210\312 \313 \\\\GS\304W\204W\304W\204W	V\204WV\203[\314\315!\210\316$\210\317!\210\320!\266\205\207" [org-table-dlines org-table-current-ncol #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up 6 down 10)) -1 1 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 21 right 25)) error "Invalid direction: %S" org-table-analyze org-table-current-line org-table-current-column user-error "Cannot move cell further" org-table--swap-cells org-table-goto-line org-table-goto-column] 13 (#$ . 48830)])
#@70 Move a single cell up in a table.
Swap with anything in target cell.
(defalias 'org-table-move-cell-up #[0 "\300 \204	\301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell up org-table-align] 2 (#$ . 49847) nil])
#@72 Move a single cell down in a table.
Swap with anything in target cell.
(defalias 'org-table-move-cell-down #[0 "\300 \204	\301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell down org-table-align] 2 (#$ . 50132) nil])
#@72 Move a single cell left in a table.
Swap with anything in target cell.
(defalias 'org-table-move-cell-left #[0 "\300 \204	\301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell left org-table-align] 2 (#$ . 50423) nil])
#@73 Move a single cell right in a table.
Swap with anything in target cell.
(defalias 'org-table-move-cell-right #[0 "\300 \204	\301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell right org-table-align] 2 (#$ . 50714) nil])
#@33 Delete a column from the table.
(defalias 'org-table-delete-column #[0 "\301 \204	\302\303!\210\304 \210\212\305\306w\210l)\203\307\310!\210\311\306\312\"\210\313 \314 \315\316 !\317\320 \"\321\"\210\315\322 !\313 \323\324\325\326\327\"\330\"\331$\216b\210`W\203j\332 \204d\333\312\"\210\334\335!\203d\336\310!\210\306y\210\202I)\266\337 \210\340\341\323\342\343\326\327\n!\344\"\331\345%\"#\210\306\211\223\210\203\224\346!\205\243\347\350\351!\352BC\353%\207" [org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-table-find-dataline " 	" nil search-backward "|" org-table-check-inside-data-field t org-table-current-column org-table-begin copy-marker org-table-end remq org-table--list-shrunk-columns org-table-expand line-beginning-position make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-at-table-hline-p org-table-goto-column looking-at "|[^|\n]+|" replace-match org-table-align org-table--shrink-columns mapcar 257 "\211\300W\203\207\211S\207" [] "\n\n(fn C)" "Fix formulas? " org-table-fix-formulas "$" number-to-string "INVALID" -1] 13 (#$ . 51008) nil])
#@27 Move column to the right.
(defalias 'org-table-move-column-right #[0 "\300\301!\207" [org-table-move-column nil] 2 (#$ . 52202) nil])
#@26 Move column to the left.
(defalias 'org-table-move-column-left #[0 "\300\301!\207" [org-table-move-column left] 2 (#$ . 52342) nil])
#@94 Move the current column to the right.  With arg LEFT, move to the left.

(fn &optional LEFT)
(defalias 'org-table-move-column #[256 "\301 \204	\302\303!\210\304 \210\305\306\307\"\210\310 \203\211S\202\211\203&S\202(T\311 \312\313 !\203<\314U\203<\302\315!\210\204J\316\317!\203J\302\320!\210\321 \322\"\210\312\323 !\310 \324\325\326\327\330\"\331\"\332$\216b\210`W\203\221\333 \204\213\334\307\"\210\316\335!\203\213\336\314\224\314\225\337\224\337\225$\210\306y\210\202i)\266\334!\210\340 \210\341\342\324\343\344\327\330

\"\345\"\332\346%\"#\210\306\211\223\210\203\301\347!\205\327\350\351\352!\352!B\352!\352\n!BD\"\262\207" [org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-table-find-dataline org-table-check-inside-data-field nil t org-table-current-column org-table-begin copy-marker org-table-end 1 "Cannot move column further left" looking-at "[^|\n]*|[^|\n]*$" "Cannot move column further right" org-table--list-shrunk-columns org-table-expand line-beginning-position make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-at-table-hline-p org-table-goto-column "|\\([^|\n]+\\)|\\([^|\n]+\\)|" transpose-regions 2 org-table-align org-table--shrink-columns mapcar 257 "\301U\203
\300\203
\211S\207\301U\203\211T\207\301TU\203$\300\203$\211T\207\301SU\2034\300\2044\211S\2065\211\207" [] "\n\n(fn C)" "Fix formulas? " org-table-fix-formulas "$" number-to-string] 16 (#$ . 52481) "P"])
#@22 Move table row down.
(defalias 'org-table-move-row-down #[0 "\300\301!\207" [org-table-move-row nil] 2 (#$ . 54034) nil])
#@20 Move table row up.
(defalias 'org-table-move-row-up #[0 "\300\301!\207" [org-table-move-row up] 2 (#$ . 54162) nil])
#@80 Move the current table line down.  With arg UP, move it up.

(fn &optional UP)
(defalias 'org-table-move-row #[256 "i`\212\302\303!\210\304!)\305 \211\203\306\202\303\\\203 \307\202!\310\311\2032e\312 U\2032\313\314!\210\302!\210\204?m\204D\315 \204Kb\210\313\314!\210\316\317 !\316\320 \321\"\322 \212\323!\203c\324!q\210\212\214~\210\211\206l`b\210\325\"\210+\210\326\307\327\330\331#\332\"\333$\216\304!\262b\210\334\312 \312\310!\"\302!\210n\204\242\335c\210\211c\210n\204\254\335c\210\302\307!\210\336!\210\206\307\206\307	?\206\306	\337!??\205\341\340\341\342\n!\342\n!B\342\n!\342\f!BD\"\262)\266\203\207" [org-table-hline-regexp org-table-fix-formulas-confirm beginning-of-line 1 looking-at org-table-current-dline -1 0 2 nil line-beginning-position user-error "Cannot move row further" org-at-table-p copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 delete-and-extract-region "\n" org-move-to-column "Fix formulas? " org-table-fix-formulas "@" number-to-string] 19 (#$ . 54285) "P"])
#@125 Insert a new row above the current line into the table.
With prefix ARG, insert below the current line.

(fn &optional ARG)
(defalias 'org-table-insert-row #[256 "\303 \204	\304\305!\210\306\307 !\306\310 \311\"\312 \212\313!\203!\314!q\210\212\214~\210\211\206*`b\210\315\"\210+\210\316\317\320\321\322#\323\"\324$\216\325 \326 {\327!\330\331\"\203^\332\333\317\"\311\211$\262\334\203h\335\202i\336!\210n\204r\337c\210\340\341\337\"\210)\334\317!\210\342\343\326 \311#\210\204\215	\203\220\344 \210\n\203\232\n\345!\205\242\346\347\340\350 S\336$\266\202)\207" [org-table-may-need-update org-table-overlay-coordinates org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code 0 "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 line-beginning-position line-end-position org-table-clean-line string-match "^[ 	]*| *[#*$] *|" replace-match match-string beginning-of-line 2 1 "\n" nil insert-before-markers re-search-forward "| ?" org-table-align "Fix formulas? " org-table-fix-formulas "@" org-table-current-dline] 12 (#$ . 55533) "P"])
#@137 Insert a horizontal-line below the current line into the table.
With prefix ABOVE, insert above the current line.

(fn &optional ABOVE)
(defalias 'org-table-insert-hline #[256 "\302 \204	\303\304!\210m\203\212\305c\210)\306\307\310 \203`\202 \311 {\262\307\312\313#)\266\203\2044\314 \210\315\316 !\315\317 \312\"\320 \212\321!\203L\322!q\210\212\214~\210\211\206U`b\210\323\"\210+\210\324\325\326\327\330#\331\"\332$\216\333\334 \335 {!i\313\336\"\203\223\337\340\341\342\225\342\224Z\343\"\344Q\312\211$\262\202w\313\345\"\203\242\337\344\312\211$\262\346\203\254\342\202\255\347!\210\305\261\210\346\203\276\342\202\277\350!\210\351!\210	\205\313\314 \266\202)\207" [inhibit-changing-match-data org-table-overlay-coordinates org-at-table-p user-error "Not at a table" "\n" "|[ 	]*$" nil line-beginning-position line-end-position t string-match org-table-align copy-marker org-table-begin org-table-end org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code 0 "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 org-table-clean-line point-at-bol point-at-eol "|\\( +\\)|" replace-match "+" make-string 1 45 "|" "\\+" beginning-of-line 2 -1 org-move-to-column] 12 (#$ . 56816) "P"])
#@81 Insert a hline and move to the row below that line.

(fn &optional SAME-COLUMN)
(defalias 'org-table-hline-and-move #[256 "\300 \301 \210\302 \210\303 \210\304\210\305\306!\203\307c\210\310 \210\202 \311 \210\205'\312!\207" [org-table-current-column org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-insert-hline 2 looking-at "\n[ 	]*|-" "\n|" org-table-align org-table-next-field org-table-goto-column] 4 (#$ . 58144) "P"])
#@134 Convert a table line S into a string with only "|" and space.
In particular, this does handle wide and invisible characters.

(fn S)
(defalias 'org-table-clean-line #[257 "\300\301\"\203\302\303\304#\211\262\207\300\305\"\203.\306\307\310\311\312\313\"!\314\"\307Q\315\211$\262\202\207" [string-match "^[ 	]*|-" mapconcat #[257 "\211\300\235\203\301\207\302\207" [(124 43) "|" " "] 3 "\n\n(fn X)"] "" "|\\([ 	]*?[^ 	
\n|][^
\n|]*\\)|" replace-match "|" make-string org-string-width match-string 1 32 t] 8 (#$ . 58605)])
#@59 Delete the current row or horizontal line from the table.
(defalias 'org-table-kill-row #[0 "\302 \204	\303\304!\210i\305!?\205\306 \307\310 !\307\311 \312\"\313 \212\314!\203+\315!q\210\212\214~\210\211\2064`b\210\316\"\210+\210\317\320\321\322\323#\324\"\325$\216\326\327 \330 Td^\"\210\302 \204a\331\320!\210\332!\210\205\202	\203s	\333!\205\202\334\335\336!\337BC\340%)\266\203\207" [org-table-hline-regexp org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-match-line org-table-current-dline copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code 0 "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 kill-region point-at-bol point-at-eol beginning-of-line org-move-to-column "Fix formulas? " org-table-fix-formulas "@" number-to-string "INVALID" -1] 13 (#$ . 59146) nil])
#@143 Copy region in table to the clipboard and blank all relevant fields.
If there is no active region, use just the field at point.

(fn BEG END)
(defalias 'org-table-cut-region #[514 "\300\301#\207" [org-table-copy-region cut] 6 (#$ . 60122) (byte-code "\300 \203\n\301 \202`\300 \203\302 \202`D\207" [org-region-active-p region-beginning region-end] 2)])
#@633 Increment string FIELD according to PREVIOUS field.

Increment FIELD only if it is a string representing a number, per
Emacs Lisp syntax, a timestamp, or is either prefixed or suffixed
with a number.  In any other case, return FIELD as-is.

If PREVIOUS has the same structure as FIELD, e.g.,
a number-prefixed string with the same pattern, the increment
step is the difference between numbers (or timestamps, measured
in days) in PREVIOUS and FIELD.  Otherwise, it uses
`org-table-copy-increment', if the variable contains a number, or
default to 1.

The function assumes `org-table-copy-increment' is non-nil.

(fn FIELD PREVIOUS)
(defalias 'org-table--increment-field #[514 "\247\203	\202\n\301\302\303\304\305\306\307\310\311\312	!\313\"\314\315%\316\f$\f$B\317\320:\203\375@\211:\203\366\211@\211\321\267\202\357A\211:\203\334\211@A\211:\203\325\211A\211\204\316A\211:\203\302\211@\211\322=\203\266A\211:\203\252\211@A\211:\203\235\211A\211\204\220	\"\266\202\202\230!\262\262\202\245!\262\266\202\202\261!\262\262\202\275
!\262\262\202\311\f!\262\262\202\320\262\202\327\266\202\202\336\262\202\361A\211:\203\216\211@A\211:\203\207\211@A\211\204\200	A\211:\203s\211@\211\323=\203fA\211:\203X\211@A\211:\203J\211@A\211\204<\n
\232\2054\"P\266\204\202E\n
#\266\202\202S\f#\266\202\202a\n	#\262\202n	#\262\202{
#\262\202\202\266\202\202\211\266\202\202\220\262\202\361A\211:\203@\211@A\211:\2039\211@A\211\2042	A\211:\203%\211@\211\324=\203A\211:\203\n\211@A\211:\203\374\211@A\211\204\356\n
\232\205\347\"P\266\204\202\367\n
#\266\202\202
#\266\202\202	#\262\202 \n#\262\202-	
#\262\2024\266\202\202;\266\202\202B\262\202\361A\211:\203\350\211@A\211:\203\341\211A\211\204\332A\211:\203\314\211@\211\325=\203\276A\211:\203\260\211@A\211:\203\241\211A\211\204\222	#\266\202\202\234\"\262\262\202\253\"\262\266\202\202\271
\"\262\262\202\307\f\"\262\262\202\325\"\262\262\202\334\262\202\343\266\202\202\352\262\202\361
\262\202\370\f\262\202\377\266\203\207" [org-table-copy-increment 1 "\\`[+-]?\\(?:[[:digit:]]+\\.?\\|[[:digit:]]*\\.[[:digit:]]+\\)\\(?:[Ee]\\(?:[+-]?[[:digit:]]+\\)?\\)?\\'" "\\`[[:digit:]]+" "[[:digit:]]+\\'" #[1028 "\302!\204\303\207\303\304\305#)\266\203\203\306\307!\303E\207\305\"\2034\310\307\311\312\"!\313\312\225\"E\207\305\"\203J\314\307\311\312\"!\313\312\211\224#E\207	\303\304\305#)\266\203\203_\315\303E\207\303\207" [inhibit-changing-match-data org-ts-regexp3 org-string-nw-p nil t string-match number string-to-number prefix match-string 0 substring suffix timestamp] 11 "\n\n(fn NUMBER-REGEXP NUMBER-PREFIX-REGEXP NUMBER-SUFFIX-REGEXP FIELD)"] make-byte-code 513 "\301\203
\211Z\\\202\300\\!\207" vconcat vector [number-to-string] 6 "\n\n(fn N1 &optional N2)" #[770 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\311\204\202&\312!\312!Z!\210\313 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-timestamp-up-day org-time-string-to-absolute buffer-string] 10 "\n\n(fn DEFAULT-STEP T1 &optional T2)"] #[771 "!P\207" #1=[] 6 "\n\n(fn NEXT-NUMBER-STRING P N)"] #[771 "!P\207" #1# 5 "\n\n(fn NEXT-NUMBER-STRING P N)"] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (number 71 prefix 227 suffix 405 timestamp 583)) number prefix suffix timestamp] 35 (#$ . 60491)])
#@871 Copy the value of the current field one row below.

If the field at the cursor is empty, copy the content of the
nearest non-empty field above.  With argument N, use the Nth
non-empty field.

If the current field is not empty, it is copied down to the next
row, and the cursor is moved with it.  Therefore, repeating this
command causes the column to be filled row-by-row.

If the variable `org-table-copy-increment' is non-nil and the
field is a number, a timestamp, or is either prefixed or suffixed
with a number, it will be incremented while copying.  By default,
increment by the difference between the value in the current
field and the one in the field above, if any.  To increment using
a fixed integer, set `org-table-copy-increment' to a number.  In
the case of a timestamp, increment by days.

However, when N is 0, do not increment the field at all.

(fn N)
(defalias 'org-table-copy-down #[257 "\303 \210\304 \305 \212\306\307 !\211\205&\211\310\311\203\312\202\313\314\311\315\314##\266\202\262)\310\211\211\212\2037\262\202\213\316 \210\3172\211\320\321#\203\205\306\307!!\322V\203`\211\203`S\262\202~\211\203~\323\317\310\311\203q\312\202r\313\314\311\315\314##\266\202\"\210\316 \266\202>\324\325!0\262	\203\322\326U\204\322	\247\204\314\327 U?\205\254\330y\210\331 \210\307!\306!\205\310\211\310\311\203\275\312\202\276\313\314\311\315\314##\266\202\262\262\332\"\262)\203\340\310\333 \210)\334 \210\211\206\345c\210\335 \210\336 \207" [org-table-dataline-regexp org-table-copy-increment org-table-may-need-update org-table-check-inside-data-field org-table-begin org-table-current-column org-string-nw-p org-table-get-field nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" beginning-of-line :exit re-search-backward t 1 throw user-error "No non-empty field found" 0 line-beginning-position -1 org-at-table-hline-p org-table--increment-field org-table-next-row org-table-blank-field org-table-maybe-recalculate-line org-table-align] 19 (#$ . 64220) "p"])
#@222 Copy rectangular region in table to clipboard.
A special clipboard is used which can only be accessed with
`org-table-paste-rectangle'.  Return the region copied, as a list
of lists of fields.

(fn BEG END &optional CUT)
(defalias 'org-table-copy-region #[770 "^b\210\301 \210\302 \303 \304]b\210\301\304\305\"\210\306\307 !\303 ^]\211ZT\205-\310b\210`W\203k\311 \204e\304\312\211W\203[\211\313	\\\"B\262\210\211T\262\202@\266\211\237B\262\210\304y\210\2021\304\211\223\266\203x\314 \210\315\316\317!!\210\211\237\211\207" [org-table-clip org-table-check-inside-data-field line-beginning-position org-table-current-column nil t copy-marker line-end-position "  " org-at-table-hline-p 0 org-table-get-field org-table-align message substitute-command-keys "Cells in the region copied, use \\[org-table-paste-rectangle] to paste them in a table."] 19 (#$ . 66295) (byte-code "\301 \203\n\302 \202`\301 \203\303 \202`E\207" [current-prefix-arg org-region-active-p region-beginning region-end] 3)])
#@274 Paste a rectangular region into a table.
The upper right corner ends up in the current field.  All involved fields
will be overwritten.  If the rectangle does not fit into the present table,
the table is enlarged as needed.  The process ignores horizontal separator
lines.
(defalias 'org-table-paste-rectangle #[0 ":\204	\302\303!\210\304 \210\305 \306\307\310 !\305 \311\312\313\314\315\"\316\"\317$\216\211\203q\211@\320 \2037\306y\210\202,n\203G\321\322!\204G\312\210\323 \210\211\203e\211@\324\306\325#\210\326\306\"\210T\262A\266\202\202I\266\306y\210A\266\202\202&\210)\266\327 )\207" [org-table-clip org-table-automatic-realign user-error "First cut/copy a region to paste!" org-table-check-inside-data-field org-table-current-column nil copy-marker line-beginning-position make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-at-table-hline-p looking-at "[ 	]*|" org-table-next-field org-table-goto-column force org-table-get-field org-table-align] 12 (#$ . 67343) nil])
#@123 Non-nil if Org-Table-Follow-Field mode is enabled.
Use the command `org-table-follow-field-mode' to change this variable.
(defvar org-table-follow-field-mode nil (#$ . 68414))
(make-variable-buffer-local 'org-table-follow-field-mode)
#@558 Minor mode to make the table field editor window follow the cursor.
When this mode is active, the field editor window will always show the
current field.  The mode exits automatically when the cursor leaves the
table (but see `org-table-exit-follow-field-mode-when-leaving-table').

If called interactively, enable Org-Table-Follow-Field mode if ARG is
positive, and disable it if ARG is zero or negative.  If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.

(fn &optional ARG)
(defalias 'org-table-follow-field-mode #[256 "\302 \303=\203
?\202\304!\305V\211\203!\306\307\310\311\312$\210\202M\313\307\310\312#\210\314\315!\211\2051\316!\211\2039\317!\210\203Krq\210	\320\211\223\210)\321!\210\266\322\323\203W\324\202X\325\"\210\326\327!\203|\302 \203l\211\302 \232\203|\330\331\332\203w\333\202x\334#\266\210\335 \210\207" [org-table-follow-field-mode org-field-marker current-message toggle prefix-numeric-value 0 add-hook post-command-hook org-table-follow-fields-with-editor append local remove-hook get-buffer "*Org Table Edit Field*" get-buffer-window delete-window nil kill-buffer run-hooks org-table-follow-field-mode-hook org-table-follow-field-mode-on-hook org-table-follow-field-mode-off-hook called-interactively-p any " in current buffer" message "Org-Table-Follow-Field mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 68655) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar org-table-follow-field-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [org-table-follow-field-mode-map org-table-follow-field-mode-hook variable-documentation put "Hook run after entering or leaving `org-table-follow-field-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode org-table-follow-field-mode " TblFollow" boundp nil] 6)
#@343 Edit table field in a different window.
This is mainly useful for fields that contain hidden parts.

When called with a `\[universal-argument]' prefix, just make the full field
visible so that it can be edited in place.

When called with a `\[universal-argument] \[universal-argument]' prefix, toggle `org-table-follow-field-mode'.

(fn ARG)
(defalias 'org-table-edit-field #[257 "\306 \204	\307\310!\210\211\311\232\203\300\203\312\202\313!\207\211\203@\212\314\315x\210`)\212\316\315w\210`)\317\320#\210\321\301!\205?	\205?\322 \207\323 \n\324=\203T\325\326 !\327\330 !P\202_\331\327\330 !\332\327\326 !R\333 \334 \315b\210\335\336!\210\337\303!\203|\340!\203|\315\211\223\210\341 \210\342\343\261\210\324\344 \210)\345\312!\210\315\3242d\211\262b\210\315\346\203\245\347\202\246\350\351\346\352\351##\266\202c\210\317d\353#\210\211b\210\354\355!\210\356-\354\357!\210/\354\303!\210\360\361!\207" [org-table-follow-field-mode font-lock-mode org-table-use-standard-references org-field-marker org-inhibit-startup truncate-lines org-at-table-p user-error "Not at a table" (16) -1 1 "^|" nil "^|
\n" remove-text-properties (invisible t intangible t) boundp font-lock-fontify-block point-marker t org-number-to-letters org-table-current-column number-to-string org-table-current-dline "@" "$" org-table-get-field current-window-configuration org-switch-to-buffer-other-window "*Org Table Edit Field*" local-variable-p markerp erase-buffer "#\n# Edit field " " and finish with C-c C-c\n#\n" org-mode auto-fill-mode replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" (invisible t intangible t) make-local-variable org-finish-function org-table-finish-edit-field org-window-configuration message "Edit and finish with C-c C-c" word-wrap] 15 (#$ . 70682) "P"])
(defalias 'org-table-follow-fields-with-editor #[0 "\203
\301 \204
\302\303!\207\304\305!\205!\306 \307\310!\210\311 \210\312!\262\207" [org-table-exit-follow-field-mode-when-leaving-table org-at-table-p org-table-follow-field-mode -1 org-table-check-inside-data-field noerror selected-window org-table-edit-field nil org-fit-window-to-buffer select-window] 3])
#@148 Finish editing a table data field.
Remove all newline characters, insert the result into the table, realign
the table and kill the editing buffer.
(defalias 'org-table-finish-edit-field #[0 "	p\302eb\210\303\304\302\305#\203\306\307!\210\202\303\310\302\305#\203%\306\311!\210\202\312 \302\313\2031\314\2022\315\307\313\316\307##\266\202\262\317!\210\320!\210\321\322\323!!!\210b\210\302\211\223\210\324 \210\325\302\"\210\326 \210\327\330!\207" [org-field-marker org-window-configuration nil re-search-forward "^#.*\n?" t replace-match "" "[ 	]*\n[ 	\n]*" " " buffer-string replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" set-window-configuration kill-buffer select-window get-buffer-window marker-buffer org-table-check-inside-data-field org-table-get-field org-table-align message "New field value inserted"] 13 (#$ . 72875)])
#@226 Return the formula active for the current field.

Assumes that table is already analyzed.  If KEY is given, return
the key to this formula.  Otherwise return the formula preceded
with "=" or ":=".

(fn &optional KEY NOERROR)
(defalias 'org-table-current-field-formula #[512 "\303\304 \"\305!\211\203a\306 \307D	\"@\310\311\"\310\312\313 #\314!\315\"\2065\315\"\2065\315\"	\203?\211@\202\\\211\205\\\316@\317\320\321#)\266\203\203X\322\202Y\323AP\266\206\202l\203i\317\202l\324\325!\207" [org-table-current-begin-pos org-table-named-field-locations inhibit-changing-match-data count-lines line-beginning-position org-table-line-to-dline org-table-current-column rassoc format "$%d" "@%d$%d" org-table-current-dline org-table-get-stored-formulas assoc "^[0-9]+$" nil t string-match "=" ":=" error "No formula active for the current field"] 17 (#$ . 73758)])
#@151 Read a formula from the minibuffer, offer stored formula as default.
When NAMED is non-nil, look for a named equation.

(fn &optional EQUATION NAMED)
(defalias 'org-table-get-formula #[512 "\304 \305\306\307 \"\310 D	\"@\311\312\313 \310 #\204!\311\314\310 \"\202&\206&\211\206+\315\316\"A\211\203Q\203Q\317\315\320\321#)\266\203\203Q\211\202};\203\\\202}\322\323\324\311\325\203j\326\202k\327#!\203y\324!\202z\330\331#!\315\332!\204\231\333\316\n\"	\"\262\334!\210\335\336!\210\321\337\"\203\250\340\330\320\211$\262\321\341\"\203\267\340\330\320\211$\262\203\316\204\316\333\316\n\"	\"\262\320\262\203\335\316	\"\241\210\202\345BB\262\211\204\357\232\204\364\334!\210)\207" [org-table-current-begin-pos org-table-named-field-locations org-table-may-need-update inhibit-changing-match-data org-table-get-stored-formulas rassoc count-lines line-beginning-position org-table-current-column format "@%d$%d" org-table-current-dline "$%d" nil assoc "^ *=? *$" t string-match org-table-formula-from-user read-string org-table-formula-to-user "%s formula %s=" "Field" "Column" "" org-table-formula-history org-string-nw-p delq org-table-store-formulas user-error "Formula removed" "^ *=?" replace-match " *$"] 15 (#$ . 74654)])
#@167 Store the list of formulas below the current table.
If optional argument LOCATION is a buffer position, insert it at
LOCATION instead.

(fn ALIST &optional LOCATION)
(defalias 'org-table-store-formulas #[513 "\212\211\203\211b\210\301 \210\202\302 b\210\303\304\305!\203'\306\224b\210\306\224\307\225|\210\2023\310 \210\311\312!\2061\313c\210\314\315\316\317\320\"\321#\322\261*\207" [case-fold-search beginning-of-line org-table-end t looking-at "\\([ 	]*\n\\)*[ 	]*\\(#\\+TBLFM:\\)\\(.*\n?\\)" 3 0 org-indent-line match-string 2 "#+TBLFM:" " " mapconcat #[257 "\211@\300AQ\207" ["="] 4 "\n\n(fn X)"] sort org-table-formula-less-p "::" "\n"] 8 (#$ . 75969)])
#@10 

(fn A)
(defalias 'org-table-formula-make-cmp-string #[257 "\300\301\"\203,\302\303\304\"!\305!\262\306\307\310\311\312U\203 \313\202!\314\315\303\304\"!#\"\266\202\300\316\"\205d\317\225\203D\306\320\315\321\317\"!\"\202E\322\323\225\203W\306\324\315\321\323\"!\"\202X\322\325\225\205c\326\321\325\"PQ\207" [string-match "\\`\\$[<>]" string-to-char substring 1 org-table-formula-handle-first/last-rc format "$%d" + 10000 60 -1000 0 string-to-number "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" 2 "@%05d" match-string "" 4 "$%05d" 5 "@@"] 11 (#$ . 76646)])
(put 'org-table-formula-make-cmp-string 'byte-optimizer 'byte-compile-inline-expand)
#@45 Compare two formulas for sorting.

(fn A B)
(defalias 'org-table-formula-less-p #[514 "@\300\301\"\203.\302\303\304\"!\305!\262\306\307\310\311\312U\203\"\313\202#\314\315\303\304\"!#\"\266\202\300\316\"\205f\317\225\203F\306\320\315\321\317\"!\"\202G\322\323\225\203Y\306\324\315\321\323\"!\"\202Z\322\325\225\205e\326\321\325\"PQ\262@\300\301\"\203\226\302\303\304\"!\305!\262\306\307\310\311\312U\203\212\313\202\213\314\315\303\304\"!#\"\266\202\300\316\"\205\316\317\225\203\256\306\320\315\321\317\"!\"\202\257\322\323\225\203\301\306\324\315\321\323\"!\"\202\302\322\325\225\205\315\326\321\325\"PQ\262\205\333\211\205\333\231\207" [string-match "\\`\\$[<>]" string-to-char substring 1 org-table-formula-handle-first/last-rc format "$%d" + 10000 60 -1000 0 string-to-number "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" 2 "@%05d" match-string "" 4 "$%05d" 5 "@@"] 14 (#$ . 77341)])
#@295 Return an alist with the stored formulas directly after current table.
By default, only return active formulas, i.e., formulas located
on the first line after the table.  However, if optional argument
LOCATION is a buffer position, consider the formulas there.

(fn &optional NOERROR LOCATION)
(defalias 'org-table-get-stored-formulas #[512 "\212\211\203\211b\210\302 \210\202\303 b\210\304\305\306!\205\231\307\310\311!\312\"\313\211\211\203\223\211@\314\315\"\203\214\316\317\"\311\225\204=\211\202U\320\313\304\314#)\266\203\203Q\211\202U\316\311\"\262\316\321\"BB\262\235\204qB\262\202\212\203\205\322\323\"\210\324 \210\325\311!\210\202\212\326\323\"\210\266A\266\202\202#\237\262\266\203*\207" [case-fold-search inhibit-changing-match-data beginning-of-line org-table-end t looking-at "\\([ 	]*\n\\)*[ 	]*#\\+TBLFM: *\\(.*\\)" org-split-string match-string-no-properties 2 " *:: *" nil string-match "\\`\\(@[-+I<>0-9.$@]+\\|\\$\\([_a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*[^ 	]\\)" match-string 1 "\\`\\$\\([0-9]+\\|[<>]+\\)\\'" 3 message "Double definition `%s=' in TBLFM line, please fix by hand" ding sit-for user-error] 15 (#$ . 78312)])
#@231 Modify the equations after the table structure has been edited.
KEY is "@" or "$".  REPLACE is an alist of numbers to replace.
For all numbers larger than LIMIT, shift them by DELTA.

(fn KEY REPLACE &optional LIMIT DELTA REMOVE)
(defalias 'org-table-fix-formulas #[1282 "\212\301 b\210\302\303\304!)\205\331\305P\205*\306\232\203&\307\310\311!#\202*\307\312\"\313\211\211\203o\314\315 \302#\203o\316 \317\320\321\322\323!\324\"\325$\216\326\327!)\262\2041\320\224\206W`Sf\330\232\203h\331\332\333\320!\"\210\2021\334\335!\210\2021\314\315 \302#\203\316\316 \317\320\321\322\323!\336\"\325$\216\326\327!)\262\204o\333\337!\262\340!\262\341\n\"\211\262\203\261\334\nAP\302\211#\210\202o\203oV\203o\334\n\342\n\\!P\302\211#\210\202o\343\344!\266\313y\210\202)\207" [case-fold-search org-table-end t looking-at "[ 	]*#\\+tblfm:" "\\([0-9]+\\)" "$" format "\\(@[0-9]+\\)?%s%d=.*?\\(::\\|$\\)" regexp-quote "@%d\\$[0-9]+=.*?\\(::\\|$\\)" nil re-search-forward point-at-eol match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-in-regexp "remote([^)]+?)" 46 user-error "Change makes TBLFM term %s invalid, use undo to recover" match-string replace-match "" [set-match-data evaporate] 1 string-to-number assoc number-to-string message "The formulas in #+TBLFM have been updated"] 17 (#$ . 79508)])
#@93 Check if the current field starts with "=" or ":=".
If yes, store the formula and apply it.
(defalias 'org-table-maybe-eval-formula #[0 "\205A\301 \206\n\302\303\304\203\305\202\306\302\304\307\302##\266\202\303\211\310\311\"\205?\312!\313\232\262\314\315\"\262\316\205;\317\320!\"\266\203\207" [org-table-formula-evaluate-inline org-table-get-field "" nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" string-match "^:?=\\(.*[^=]\\)$" string-to-char 58 match-string 1 org-table-eval-formula (4) org-table-formula-from-user] 9 (#$ . 80900)])
#@373 Rotate the recalculation mark in the first column.
If in any row, the first field is not consistent with a mark,
insert a new column for the markers.
When there is an active region, change all the lines in the region,
after prompting for the marking character.
After each change, a message will be displayed indicating the meaning
of the new mark.

(fn &optional NEWCHAR)
(defalias 'org-table-rotate-recalc-marks #[256 "\302 \204	\303\304!\210\305 \211\205\212\306 b\210\307\310 !)\205'\212\311 b\210\307\310 !)\307\310 !\312 \2039\313\314\315!!\202:\212\316 b\210\317\320\321 \322#)\203V\323\"\204V\303\324\"\210\203]b\210\212\325 \210\326	!\204k\303\327!\210)\211\203w\330\331!\210\332 \210\333 \212\325 \210\326\334!\204\207\335\202\230\206\230\336\331!\337\340\341\"\342\"\235A@)\343\331\344\345\"\"\210\203\306\212\346y\210`X\203\305\326	!\203\277\343\331\344\345\"\"\210\346y\210\202\252)\333 U\204\320\347 \210\266b\210\330\203\337T\202\340!\210\203\353\346\211\223\210\203\364\346\211\223\210\346\211\223\210\350\351!\205\352\353\323\"A\"\207" [org-recalc-marks org-table-dataline-regexp org-at-table-p user-error "Not at a table" org-region-active-p region-beginning copy-marker line-beginning-position region-end org-table-current-column char-to-string read-char-exclusive "Change region to what mark?  Type # * ! $ or SPC: " org-table-begin re-search-forward "^[ 	]*|[^-|][^|]*[^#!$*_^| 	][^|]*|" org-table-end t assoc "Invalid character `%s' in `org-table-rotate-recalc-marks'" beginning-of-line looking-at "Not at a table data line" org-table-goto-column 1 org-table-insert-column line-end-position "^[ 	]*| *\\([#!$*^_ ]\\) *|" "#" match-string append mapcar car (" ") org-table-get-field format " %s " nil org-table-align called-interactively-p interactive message "%s"] 15 (#$ . 81495) nil])
#@78 Recompute the current line if marked for it, and if we haven't just done it.
(defalias 'org-table-maybe-recalculate-line #[0 "\205$	\n>\205\305 =?\205$\212\306\307!\210\310\f!)\205$\311 \205$\312\207" [org-table-allow-automatic-line-recalculation last-command org-recalc-commands org-last-recalc-line org-table-auto-recalculate-regexp line-beginning-position beginning-of-line 1 looking-at org-table-recalculate t] 2 (#$ . 83364) nil])
#@1868 Replace the table field value at the cursor by the result of a calculation.

In a table, this command replaces the value in the current field with the
result of a formula.  It also installs the formula as the "current" column
formula, by storing it in a special line below the table.  When called
with a `\[universal-argument]' prefix the formula is installed as a field formula.

When called with a `\[universal-argument] \[universal-argument]' prefix, insert the active equation for the field
back into the current field, so that it can be edited there.  This is useful
in order to use \<org-table-fedit-map>`\[org-table-show-reference]' to check the referenced fields.

When called, the command first prompts for a formula, which is read in
the minibuffer.  Previously entered formulas are available through the
history list, and the last used formula is offered as a default.
These stored formulas are adapted correctly when moving, inserting, or
deleting columns with the corresponding commands.

The formula can be any algebraic expression understood by the Calc package.
For details, see the Org mode manual.

This function can also be called from Lisp programs and offers
additional arguments: EQUATION can be the formula to apply.  If this
argument is given, the user will not be prompted.

SUPPRESS-ALIGN is used to speed-up recursive calls by by-passing
unnecessary aligns.

SUPPRESS-CONST suppresses the interpretation of constants in the
formula, assuming that this has been done already outside the
function.

SUPPRESS-STORE means the formula should not be stored, either
because it is already stored, or because it is a modified
equation that should not overwrite the stored one.

SUPPRESS-ANALYSIS prevents analyzing the table and checking
location of point.

(fn &optional ARG EQUATION SUPPRESS-ALIGN SUPPRESS-CONST SUPPRESS-STORE SUPPRESS-ANALYSIS)
(defalias 'org-table-eval-formula #[1536 "\211\204\f\306\307\310\"\210\311 \210\312\232\203 \313 \314\307\"\210\315 \210\310\211\207\307\250\203,\202-\316\307\211\211\316V\203B\203B\202J\317\n\320\232\"\321 \322!\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\323\324\"\203\317\325\324\"\211@\262\326\327
\"AA@P\262\n\323\330\"\203\331\332\316\f\"!\262\333\332\334\f\"!\262\335U\203\316\336;\203\265\326\337\"\262\3348\262A@\262\f>\203\305\f>A\240\210\202\307\f\210\f\266\202\202\340\326\341\"AD;\203\355\326\337\"\262\3348\262A@\262\f>\203\375\f>A\240\210\202\377\f\210\f\266\202\342\343\310\211
$\262\n\202}\323\344\"\203B\332\345\"\310\262\310\262\211\346\267\2025\307\2026@\2026\347\2026\307\262\342\343\310\211$\262\210\323\350\"\203V\310\262\342\343\310\211
$\262\n\323\351\"\203j\310\262\342\343\310\211
$\262\n\323\352\"\203~\310\262\342\343\310\211
$\262\n\323\353\"\203\303\332\345\"\307;\203\241\326\337\"\262\3348\262A@\262\f>\203\261\f>A\240\210\202\263\f\210\f\266\202\342\343\310\211
$\262\n\202~\323\354\"\204\316\307\262\n\210\204\337A\203\337\355!\262\356\316\357#\206\351\360\262\361!\262\345V\203,\325\362\363 \364 \"\307\365\203	\366\202\n\367\343\365\370\343##\266\202\371\"\262\203#\372\373\"\262\310=\2031\372\374\"\262S\262\322!\262
G\334V\205L\375\345\334#\376\232\262\203Y\203Y\377\262\323\201P\"\203\255\342\201Q\201R\201S \201T\345\201U\201V\201W!\201X\"\201Y$\216\375\345\224\345\224T#\201Z\232\203\235\201[ \202\237\321 )\262\"\310\211$\262\202Y\201\\!\210\201]!\262\323\201^\"\203%\342\201S \201T\345\201U\201V\201W!\201_\"\201Y$\216\201`\201a\332\316\"\332\334\"\"\203\211<\203\372\201b\"\202\201c!\202\211\262	$)\262\310\211$\262\202\274\323B\"\203\367\332\345\"G\316V\203\367\201S \201T\345\201U\201V\201W!\201d\"\201Y$\216\201e\332\345\"C#)\262\262\201S \201T\345\201U\201V\201W!\201f\"\201Y$\216\201`\203\243\f<\203\232\372\201g\"\202\245\201c
!\202\245\f$)\262\262\f\201S \201T\345\201U\201V\201W!\201h\"\201Y$\216\323\201i!\")\262\204\352\342\f\310\211$\262\202%\201j\201k\"\210\202%\323\201l\"\203k\342\201S \201T\345\201U\201V\201W!\201m\"\201Y$\216\201`\201n\201o\334\225\2033\2024\345\333\332\316\"!\201p#\201q\225\203K\202L\345\333\332\201Y\"!\\#	$)\262\310\211$\262\202\367
\262
\323\201r\"\203\333\332\316\"!\334\225\203\212\202\213\345\\\262\345U\203\232\202\236\316]S8\262\201S \201T\345\201U\201V\201W!\201s\"\201Y$\216\201`	$)\262\262\f\203\201S \201T\345\201U\201V\201W!\201t\"\201Y$\216\323\201i!\")\262\203\201j\201u\332\345\"\"\210\342\f\310\211$\262\202o\203f\201v16\201w\211\201x!!!0\202:\210\201y\262\247\203K\201z!\202M\262\203_\201{\333!\"\202a\262\202\322\365D\201|#\262\365E\201}\310\211%\262\203\221\323\201~\"\203\221
\202\247\201\fB?\205\246\205\246\201\200\"\262\203\316\201{\323\201~	\"\203\305\333\201c	!!\202\311\333!\"\202\320\262F\203\306\201\201 Gr\201\202\201\203!q\210p\201\204 \210G\307\211HI\310\211J\310KL\201\205 \210\201\206\201\207!\210+\211M\201\210\201Q\201\211%!\210	:\203G\201\210\201Q\201\212\201\213
@\201\214\"
A@#!\210\202q\201\210\201Q\201\215\f\206Z\201\216\203l\201Q\333!\"\202n$!\210\201\217!\210)\266\201\220\201\203!\262\201\221!\210\201\222\201\223!\203\231\203\305\307N\201\224\201\225!)\204\262\315 \210\201j\201\226!\210\201\227!\210\201\230\343!\210\201\231!\210\210:\203\324\307\262	\201y\262\201\232\201QO	;\204\347	\202\203\371\201Q\f\333\f!\"\202\365E\201\233\f#\"!\210\203&\345V\203&\201\234\201\235!\203&\201\236\201\237!\210\202\361\345\262\202\361\2036\201\240 \210\206A\205A\315 +\207" [org-table-may-need-update org-table-automatic-realign case-fold-search org-calc-default-modes org-tbl-calc-modes org-table-local-parameters org-table-check-inside-data-field nil t org-table-analyze (16) org-table-current-field-formula org-table-get-field org-table-align 1 org-table-get-formula (4) org-table-current-column copy-sequence string-match ";" org-split-string assoc "%" "\\([pnfse]\\)\\(-?[0-9]+\\)" string-to-char match-string string-to-number 2 112 calc-internal-prec (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) calc-float-format ((110 . float) (102 . fix) (115 . sci) (101 . eng)) replace-match "" "[tTU]" 0 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("T" 296 "t" 300 "U" 305)) hh:mm "N" "L" "E" "[DRFS]" "\\S-" org-table-formula-substitute-names get-text-property :orig-formula "?" org-table-formula-handle-first/last-rc buffer-substring-no-properties line-beginning-position line-end-position replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" " *| *" mapcar #[257 "\300!\207" [org-table-time-string-to-seconds] 3 "\n\n(fn X)"] #[257 "\300\301\"\203
\302\303!!\207\207" [string-match "\\S-" number-to-string string-to-number] 4 "\n\n(fn X)"] substring "'(" literal org-table-duration-custom-format org-table-formula-use-constants org-table-range-regexp org-table-current-begin-pos org-ts-regexp-inactive org-ts-regexp org-table-formula-debug default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output inhibit-redisplay org-table-formula-field-format "[@$]#" format "%d" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "@" org-table-current-dline org-table--error-on-old-row-references org-table-remote-reference-indirection "\\<remote([ 	]*\\([^,)]+\\)[ 	]*,[ 	]*\\([^\n)]+\\))" [set-match-data evaporate] org-table-make-reference org-table-get-remote-range #[257 "\300!\207" [org-table-time-string-to-seconds] 3 "\n\n(fn X)"] org-table-time-string-to-seconds [set-match-data evaporate] org-table-get-range [set-match-data evaporate] #[257 "\300!\207" [org-table-time-string-to-seconds] 3 "\n\n(fn X)"] [set-match-data evaporate] regexp-quote user-error "Spreadsheet error: invalid reference \"%s\"" "\\$\\(\\([-+]\\)?[0-9]+\\)\\.\\.\\$\\(\\([-+]\\)?[0-9]+\\)" [set-match-data evaporate] cl-subseq + -1 4 "\\$\\(\\([-+]\\)?[0-9]+\\)" [set-match-data evaporate] [set-match-data evaporate] "Invalid field specifier \"%s\"" (error) eval read "#ERROR" number-to-string org-table-time-seconds-to-string "<\\1>" #[257 "\302\303\304\305\306\307\310#)\266\203!\311\312\313 \314\315\316\317\320!\321\"\322$\216\323!)\262\"\")\207" [system-time-locale inhibit-changing-match-data "C" format-time-string org-time-stamp-format "[0-9]\\{1,2\\}:[0-9]\\{2\\}" nil t string-match apply encode-time match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-parse-time-string] 12 "\n\n(fn TS)"] "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" calc-eval num current-window-configuration get-buffer-create "*Substitution History*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "Substitution history of formula\nOrig:   %s\n$xyz->  %s\n@r$c->  %s\n$1->    %s\n" "        %s^\nError:  %s" make-string 45 "Result: %s\nFormat: %s\nFinal:  %s" "NONE" internal-temp-output-buffer-show get-buffer-window org-fit-window-to-buffer called-interactively-p any y-or-n-p "Debugging Formula.  Continue to next? " "Abort" delete-window message set-window-configuration org-table-justify-field-maybe "[\\1]" looking-at ".*\n[ 	]*|[^-]" call-interactively org-return org-table-maybe-recalculate-line] 41 (#$ . 83816) "P"])
#@19 

(fn PROP VALUE)
(defalias 'org-table-put-field-property #[514 "\212\300\301\302x\210`\301\302w\210`$)\207" [put-text-property "^|" nil] 7 (#$ . 93681)])
#@517 Get a calc vector from a column, according to descriptor DESC.

Optional arguments TBEG and COL can give the beginning of the table and
the current column, to avoid unnecessary parsing.

HIGHLIGHT means just highlight the range.

When CORNERS-ONLY is set, only return the corners of the range as
a list (line1 column1 line2 column2) where line1 and line2 are
line numbers relative to beginning of table, or TBEG, and column1
and column2 are table column numbers.

(fn DESC &optional TBEG COL HIGHLIGHT CORNERS-ONLY)
(defalias 'org-table-get-range #[1281 "\303\304\305\306#)\266\203\203\307\310\311#\202\206 \312 \206&\313 \314\315 \"\306	\"\2047\316\317\"\210\320\225\321\225\205C\322\321\"\323 \324\325\326\327\330!\331\"\320$\216\332!\205[\333\")\262\206b\262\334\225\205n\322\334\"\323 \324\325\326\327\330!\335\"\320$\216\332!\205\207\333\")\262\206\216\262\336\225\205\235\337\322\336	\"\321\"\211\203\251\340!\325U\203\256\202\300\340!\341!\342>\203\276\202\277\325\\\262\343\225\205\317\337\322\343\n\"\321\"\211\203\333\340!\325U\203\340\202\362\340!\341!\344>\203\360\202\361\325\\\262\212	\204?\203\nU\203?U\203?Zy\210\345\n!\204\304y\210\202\346!\304\307\203)\347\202*\350\351\307\352\351##\266\202\203\251\353 \210\202\251^]^]
\203XF\202\247\nZy\210\345\n!\204n\304y\210T\262\202^\354!\210`Zy\210\345\n!\204\204\355y\210\202x\354!\210`\203\227\353\356\304w\210`\"\210\357\360\361\362\363\"\"\"\262\262\266\204)\266\205\207" [inhibit-changing-match-data org-table-range-regexp org-table-dataline-regexp "\\`\\$[0-9]+\\.\\.\\$[0-9]+\\'" nil t string-match replace-regexp-in-string "\\$" "@0$" org-table-current-column org-table-begin count-lines line-beginning-position user-error "Invalid table range specifier `%s'" 3 1 match-string match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] org-string-nw-p org-table--descriptor-line 4 [set-match-data evaporate] 2 substring string-to-number string-to-char (45 43) 5 (45 43) looking-at org-table-get-field "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" org-table-highlight-rectangle org-table-goto-column -1 "^|\n" mapcar org-trim apply append org-table-copy-region] 27 (#$ . 93845)])
#@135 Return relative line number corresponding to descriptor DESC.
The cursor is currently in relative line number CLINE.

(fn DESC CLINE)
(defalias 'org-table--descriptor-line #[514 "\302\303\"\203
\304!H\207\302\305\"\203-\306\225\204\307\225\203-\306\225\2032\307\225\2032\310\225\2042\311\312\"\210\306\225\205<\306\225\306\224Z\313\314\"\313\310\"\307\225\205P\304\313\307\"!\307\225\205b\315\225\203`\306\225?\206b\310\225\203|\204|\316\262\317\262	\316H\320=\203|S\262\204\214\203\214\204\214\311\321!\210\203\241\322\320\323\232\324\f&\262\203\265\322\325\323\232\f&\262\207" [org-table-dlines org-table-current-line-types string-match "\\`[0-9]+\\'" string-to-number "^\\(\\([-+]\\)?\\(I+\\)\\)?\\(\\([-+]\\)?\\([0-9]+\\)\\)?" 3 6 5 user-error "Invalid row descriptor `%s'" match-string 2 1 0 "+" hline "Should never happen" org-table--row-type "-" nil dline] 14 (#$ . 96175)])
#@292 Return relative line of Nth row with type TYPE.
Search starts from relative line I.  When BACKWARDS in non-nil,
look before I.  When RELATIVE is non-nil, the reference is
relative.  DESC is the original descriptor that started the
search, as a string.

(fn TYPE N I BACKWARDS RELATIVE DESC)
(defalias 'org-table--row-type #[1542 "G\3022|\303\211W\205y\211\203\304\202\305\\\211\262	\203q\303Y\203qW\203qH\n=\204q\203H\306=\203	\307=\204	\310=\203[\311\312\"\202n\203f\304\202g\305Z\262\313\302\314\"\204\210\211T\262\202\266\2020\210\303W\204\211Y\203\220\311\315\"\202\235SU\203\234S\202\235\207" [org-table-current-line-types org-table-relative-ref-may-cross-hline :exit 0 -1 1 hline t error user-error "Row descriptor %s crosses hline" throw nil "Row descriptor %s leads outside table"] 13 (#$ . 97124)])
#@10 

(fn S)
(defalias 'org-table--error-on-old-row-references #[257 "\300\301\"\205\n\302\303!\207" [string-match "&[-+0-9I]" user-error "Formula contains old &row reference, please rewrite using @-syntax"] 4 (#$ . 98003)])
#@356 Convert list ELEMENTS to something appropriate to insert into formula.
KEEP-EMPTY indicated to keep empty fields, default is to skip them.
NUMBERS indicates that everything should be converted to numbers.
LISPP non-nil means to return something appropriate for a Lisp
list, `literal' is for the format specifier L.

(fn ELEMENTS KEEP-EMPTY NUMBERS LISPP)
(defalias 'org-table-make-reference #[1028 ";\203N\211\203+\211\300=\203\207\301=\203\204\301\207\302\203(\303!\202)!\207\304\305\"\203B\203=\306\303!!\262\307\310Q\207\203J\203L\311\207\312\207\204\\\313\314\315\316\"\"\262\262\211\203w\317\320\321\322\323\324\"\325\"\326\327%\330#\207\331\317\320\321\332\323\324		\"\333\"\326\327%\334#\335Q\207" [literal "" prin1-to-string string-to-number string-match "\\S-" number-to-string "(" ")" "(0)" "nan" delq nil mapcar #[257 "\300\301\"\205\211\207" [string-match "\\S-"] 4 "\n\n(fn X)"] mapconcat make-byte-code 257 "\301\302=\203\207\303\300\203\304!\202!\207" vconcat vector [literal prin1-to-string string-to-number] 4 "\n\n(fn X)" " " "[" "\302\303\"\203\301\203\304\305!!\207\207\300\203\301\203\306\207\307\207" [string-match "\\S-" number-to-string string-to-number "0" "nan"] "," "]"] 13 (#$ . 98233)])
#@244 If there has been more than one second since T1, display message.
ARGS are passed as arguments to the `message' function.  Returns
current time if a message is printed, otherwise returns T1.  If
T1 is nil, always messages.

(fn T1 &rest ARGS)
(defalias 'org-table-message-once-per-second #[385 "\300 \203\301\302\303\"\"\203\304\305\"\210\211\202\207" [current-time org-time-less-p 1 org-time-subtract apply message] 8 (#$ . 99522)])
#@515 Recalculate the current table line by applying all stored formulas.

With prefix arg ALL, do this for all lines in the table.

When called with a `\[universal-argument] \[universal-argument]' prefix, or if ALL is the symbol `iterate',
recompute the table until it no longer changes.

If NOALIGN is not nil, do not re-align the table after the computations
are done.  This is typically used internally to save time, if it is
known that the table will be realigned a little later anyway.

(fn &optional ALL NOALIGN)
(defalias 'org-table-recalculate #[512 "	>\204\n	B\306 \204\307\310!\210\311=\204\312\232\203\"\313 \207\314 \210\315\316 \317\"\n?\f\320 \211\321\322\211\211\211\205\352\323\324 !\323\325 \326\"\327 \212\330!\203S\331!q\210\212\214~\210\211\206\\`b\210\332\"\210+\210\333\321\334\335\336#\337\"\340$\216\323\341 !\342 \333\321\343\335\336\"\344\"\345$\216
\211\203\365\211@\346\347A!!@\347\350\351\"\203\251\307\352!\202\310\350\353\"\203\307\347!\354\"\203\301\307\355#\210\211\262\202\310!\356\322\326\350#)\266\203\203\344\211B\fB\262\f\202\354\211BB\262\266A\266\202\202\215\210\237\262\357\237!\262\203H\323\325 !\262@\211\262\nb\210\360A	\326#\203%B\262
\202S\360\f	\326#\203S\360C	\326#\203S\360\f	\326#\203S\321\224\262	\202S\341 \262	\323\341\361!!\262b\210\362		\363#\210\364@\341 \"\322\211\203\314\211@\211@\354D\"\211A@\206\213\350\365\"\205\213E\366\367\370\"!H\203\233\371\372\373!\3618#\202\234\211\235\203\250\307\374\"\210\211B\262\204\272=\203\303\375!\210\376\377\326\"\210\266A\266\202\202h\266b\210\360
	\326#\203^\350\201H\201I\370!\"\204\322	T\262\n\203\201J\201K\f#\262\330F!\203F\341 \322\223\210\202\323\341 !F\211\203Z\211@Fb\210\201L\366\201M@\370\"!\322\201N#\210\201O`\377\"\204S\201P\322A\201Q\201R\201S\201T&\210A\266\202\202\210\202\322\211\203\257\211@\211@A\201J\205s\201U@#\262\375\322\210\342 S\333\201V\201W\335\336!\201X\"\345\201Y%\262\"\210\201P\322\326\211\211\211&\266A\266\202\202_\210\322\211\223\210)\266)\266	\204\334G\203\313\201Z \210\n\203\334\201J\201[#\210\201J\205\346\201\\\")\207" [this-command org-recalc-commands debug-on-error inhibit-redisplay org-table-dataline-regexp inhibit-changing-match-data org-at-table-p user-error "Not at a table" iterate (16) org-table-iterate org-table-analyze sort org-table-get-stored-formulas #[514 "@@\231\207" [] 4 "\n\n(fn A B)"] current-time 0 nil copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 line-beginning-position org-table-current-column "\300b\210\302\301!\210\300\303\211\223\207" [org-table-goto-column nil] 3 org-table-formula-substitute-names org-table-formula-handle-first/last-rc string-match "\\`@-?I+" "Can't assign to hline relative reference" "\\`\\$[<>]" assoc "\"%s=\" formula tries to overwrite existing formula for column %s" "\\`\\$[0-9]+\\'" org-table-expand-lhs-ranges re-search-forward 2 remove-text-properties (:org-untouchable t) count-lines "\\`@\\([0-9]+\\)" string-to-number match-string 1 format "@%d$%d" org-table-line-to-dline "Several field/range formulas try to set %s" org-table-goto-field org-table-put-field-property :org-untouchable org-table-current-begin-pos org-table-calculate-mark-regexp org-table-recalculate-regexp org-table-hline-regexp org-table-named-field-locations org-table-dlines org-last-recalc-line org-table-may-need-update "\\` *[_^!$/] *\\'" org-table-get-field org-table-message-once-per-second "Re-applying formulas to full table...(line %d)" org-table-goto-column substring force get-text-property org-table-eval-formula noalign nocst nostore noanalysis "Re-applying formula to field: %s" 257 "\211\302V\203\n\303\304!\210\211\300V\2051	\305=\2061	\306=\203\"\307\310!\210\305\207	\311=\203.\312\313!\2061\303\314!\207" [org-table-formula-create-columns 1000 user-error "Formula column target too large" t warn org-display-warning "Out-of-bounds formula added columns" prompt yes-or-no-p "Out-of-bounds formula.  Add columns? " "Missing columns in the table.  Aborting"] "\n\n(fn COLUMN)" org-table-align "Re-applying formulas to %d lines... done" "Re-applying formulas... done"] 29 (#$ . 99975) "P"])
#@175 Recalculate the table until it does not change anymore.
The maximum number of iterations is 10, but you can choose a different value
with the prefix ARG.

(fn &optional ARG)
(defalias 'org-table-iterate #[256 "\211\203\n\300!\202\301\302\303 \304 {\305\3062VW\203QT\262\307\310!\210\303 \304 {\262\230\2047\211\262\202\311V\203E\312\313\"\210\202I\312\314!\210\315\306\316\"\210\202\317\320\"0\207" [prefix-numeric-value 10 0 org-table-begin org-table-end nil exit org-table-recalculate all 1 message "Convergence after %d iterations" "Table was already stable" throw t user-error "No convergence after %d iterations"] 8 (#$ . 104488) "P"])
#@47 Recalculate all tables in the current buffer.
(defalias 'org-table-recalculate-buffer-tables #[0 "\212\214~\210\300\301\302\"*\207" [org-table-map-tables #[0 "\300\301\211\"\210\302 \207" [org-table-recalculate t org-table-align] 3] t] 3 (#$ . 105159) nil])
#@73 Iterate all tables in the buffer, to converge inter-table dependencies.
(defalias 'org-table-iterate-buffer-tables #[0 "\300\211\301\302 !\303\212\214~\210\3042N\305V\203DS\262\306\307\310\"\210\301\302 !\211\262\232\203>\306\311\310\"\210\312\313Z\"\210\314\304\310\"\210\202\211\262\202\306\311\310\"\210\315\316\"0*\207" [10 md5 buffer-string nil exit 0 org-table-map-tables #[0 "\300\301\211\"\207" [org-table-recalculate t] 3] t org-table-align message "Convergence after %d iterations" throw user-error "No convergence after %d iterations"] 8 (#$ . 105423) nil])
#@74 Apply the #+TBLFM in the line at point to the table.

(fn &optional ARG)
(defalias 'org-table-calc-current-TBLFM #[256 "\301 \204	\302\303!\210\304 \305 {\212\306 b\210\307 \310\261\210\307 \311\312!\210\313\314x\210\315\312\316\317\320\"\321\"\322$\216\323\2069\324\211\325!)\266\202)\262\262)\207" [current-prefix-arg org-at-TBLFM-p user-error "Not at a #+TBLFM line" line-beginning-position line-end-position org-table-TBLFM-begin point-marker "\n" beginning-of-line 0 " 
\n	" nil make-byte-code "\300\301|\210\300\302\211\223\210\301\302\211\223\207" vconcat vector [nil] 3 org-table-recalculate t call-interactively] 11 (#$ . 106014) "P"])
#@123 Find the beginning of the TBLFM lines and return its position.
Return nil when the beginning of TBLFM line was not found.
(defalias 'org-table-TBLFM-begin #[0 "\212\301y\210\302\303\304#\205\305\306!)\207" [org-table-TBLFM-begin-regexp 1 re-search-backward nil t line-beginning-position 2] 4 (#$ . 106679)])
#@254 Expand list of formulas.
If some of the RHS in the formulas are ranges or a row reference,
expand them to individual field equations for each field.  This
function assumes the table is already analyzed (i.e., using
`org-table-analyze').

(fn EQUATIONS)
(defalias 'org-table-expand-lhs-ranges #[257 "\303\211\203\331\211@\211@A\304\303\305\306#)\266\203\203$B\262\202\320\307\303\305\306#)\266\203\203<B\262\202\320\310\303\305\306#)\266\203\203TB\262\202\320\306\311\"\203\204	\312\211W\203\211\313\314\315T#\316#BB\262\210\211T\262\202]\266\202\320\317\n\320\303\321%\322@!A@\322\3238\324\"\3258X\203\316X\203\305\313\314\326#\316#\nBB\262T\262\202\245\266T\262\202\235\266\266A\266\202\202\237\262\207" [inhibit-changing-match-data org-table-current-ncol org-table-current-begin-pos nil "\\`@[-+0-9]+\\$-?[0-9]+\\'" t string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" "\\`\\$[0-9]+\\'" "\\`@[0-9]+\\'" 0 propertize format "%s$%d" :orig-eqn org-table-get-range 1 corners org-table-line-to-dline 2 above 3 "@%d$%d"] 20 (#$ . 106997)])
#@528 Replace @<, @>, $<, $> with first/last row/column of the table.
So @< and $< will always be replaced with @1 and $1, respectively.
The advantage of these special markers are that structure editing of
the table will not change them, while @1 and $1 will be modified
when a line/row is swapped out of that privileged position.  So for
formulas that use a range of rows or columns, it may often be better
to anchor the formula with "I" row markers, or to offset from the
borders of the table using the @< @> $< $> makers.

(fn S)
(defalias 'org-table-formula-handle-first/last-rc #[257 "\302\211\211\211\303\304\305#\203~\306\225\203\306\225\262\202\307\310\"\311\232\203*GS\202+	\262\312\225\312\224Z\262\313\307\312\"!\262\314U\203G\202L\315\316#\262\310W\204ZV\203e\317\320\307\303	\"#\210\303\224\262\321\322\323\307\310\n\"#\324\211	$\262\202\266\207" [org-table-dlines org-table-current-ncol nil 0 string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^)]+)\\)" 3 match-string 1 "@" 2 string-to-char 60 - -1 user-error "Reference \"%s\" in expression \"%s\" points outside table" replace-match format "%s%d" t] 12 (#$ . 108121)])
#@49 Replace $const with values in string F.

(fn F)
(defalias 'org-table-formula-substitute-names #[257 "\303\304!\305U?\306\307\310\311#)\266\203\312	\313\310\211%\311\314#\211\262\203~\315\225\2034\315\225\262\202T\262\316 \317\303\320\321\322!\323\"\324$\216\325\326\327\"!\330!\203\\\203\\\331!\202]\211\262)\262\211\203z\332\205l\333\205s\334Q\310\211$\262\210\202\n\203\213\335\336#\202\214\211\207" [inhibit-changing-match-data org-table-column-name-regexp org-table-formula-debug 0 string-to-char 39 ";.*[Tt].*\\'" nil t string-match replace-regexp-in-string #[257 "\301\302\303\304\"\"AP\207" [org-table-column-names "$" assoc match-string 1] 6 "\n\n(fn M)"] "\\$\\([a-zA-Z][_a-zA-Z0-9]*\\)\\|\\(\\<remote([^)]*)\\)" 2 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-get-constant match-string 1 org-string-nw-p org-table-time-string-to-seconds replace-match "(" ")" propertize :orig-formula] 12 (#$ . 109300)])
#@95 Find the value for a parameter or constant in a formula.
Parameters get priority.

(fn CONST)
(defalias 'org-table-get-constant #[257 "\303\"A\206=\303	\"A\206=\303\n\"A\206=\304\305!\203$\305!\206=\306\307\310G^#\311\230\203<\312\313\306\310\"\314#\206=\315\207" [org-table-local-parameters org-table-formula-constants-local org-table-formula-constants assoc fboundp constants-get substring 0 5 "PROP_" org-entry-get nil inherit "#UNDEFINED_NAME"] 6 (#$ . 110322)])
(defvar org-table-fedit-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\301\306\303#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\337#\210\301\341\342#\210\301\343\344#\210\211\207" [make-sparse-keymap org-defkey "" org-table-fedit-finish "" "" "'" "" org-table-fedit-abort "?" org-table-show-reference [(meta shift up)] org-table-fedit-line-up [(meta shift down)] org-table-fedit-line-down [(shift up)] org-table-fedit-ref-up [(shift down)] org-table-fedit-ref-down [(shift left)] org-table-fedit-ref-left [(shift right)] org-table-fedit-ref-right [(meta up)] org-table-fedit-scroll-down [(meta down)] org-table-fedit-scroll [(meta tab)] lisp-complete-symbol "\211" [(tab)] org-table-fedit-lisp-indent "	" "" org-table-fedit-toggle-ref-type "}" org-table-fedit-toggle-coordinates] 5))
#@24 Org Edit Formulas Menu
(defvar org-table-fedit-menu nil (#$ . 111842))
(easy-menu-do-define 'org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu" '("Edit-Formulas" ["Finish and Install" org-table-fedit-finish t] ["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"] ["Abort" org-table-fedit-abort t] "--" ["Pretty-Print Lisp Formula" org-table-fedit-lisp-indent t] ["Complete Lisp Symbol" lisp-complete-symbol t] "--" "Shift Reference at Point" ["Up" org-table-fedit-ref-up t] ["Down" org-table-fedit-ref-down t] ["Left" org-table-fedit-ref-left t] ["Right" org-table-fedit-ref-right t] "-" "Change Test Row for Column Formulas" ["Up" org-table-fedit-line-up t] ["Down" org-table-fedit-line-down t] "--" ["Scroll Table Window" org-table-fedit-scroll t] ["Scroll Table Window down" org-table-fedit-scroll-down t] ["Show Table Grid" org-table-fedit-toggle-coordinates :style toggle :selected (with-current-buffer (marker-buffer org-pos) org-table-overlay-coordinates)] "--" ["Standard Refs (B3 instead of @3$2)" org-table-fedit-toggle-ref-type :style toggle :selected org-table-buffer-is-an]))
#@42 Position of the TBLFM line being edited.
(defvar org-table--fedit-source nil (#$ . 112977))
#@62 Edit the formulas of the current table in a separate buffer.
(defalias 'org-table-edit-formulas #[0 "\306 \211\204\307 \204\310\311!\210\212\211\203\312\313!\210\314 \210)\315\316\317\"\320\321\322\205(`\"\323\"\324 \325\326 !\327\330 \331 \332\333\334!\210\335 \210\336\337 \210)\340\300!\210\341	D\340\302!\210\340\303!\210\340\304!\210\340\305!\210\342?!\210\343\344\345\322\211$\210\346\212\211\203y\211b\210n\203\201\327\202\202\347\350\327`\"\\)\262\262\211\203\211@\351\352@\"\203\240\353\202\256\354@!\355\232\203\255\356\202\256\357\211\236\211\203\315o\204\274\360c\210\361A\346\362@$c\210\363\"\262@\232\203\361\346\212\211\203\336\211b\210n\203\346\327\202\347\347\350\327`\"\\)\262\262\354@!\364>\203\376\365\202\377\366@\367A\360\260\370\347G\371$\210\211c\266A\266\202\202\216\210A\322=\203%\372 \210\214~\210eb\210\211Sy)\266\373\374\375\376!\"\266\210\207" [font-lock-global-modes major-mode org-pos org-table--fedit-source org-window-configuration org-selected-window org-at-TBLFM-p org-at-table-p user-error "Not at a table" re-search-backward "^[ 	]*|" org-table-analyze org-table-current-field-formula key noerror sort org-table-get-stored-formulas t org-table-formula-less-p point-marker copy-marker line-beginning-position 1 current-window-configuration selected-window ((column . "# Column Formulas\n") (field . "# Field and Range Formulas\n") (named . "# Named Field Formulas\n")) org-switch-to-buffer-other-window "*Edit Formulas*" erase-buffer (not fundamental-mode) fundamental-mode make-local-variable not use-local-map add-hook post-command-hook org-table-fedit-post-command nil 0 count-lines string-match "\\`\\$\\([0-9]+\\|[<>]+\\)\\'" column string-to-char 64 field named "\n" org-add-props face remove (64 36) "" "$" " = " remove-text-properties (face nil) org-table-fedit-toggle-ref-type message "%s" substitute-command-keys "\\<org-mode-map>Edit formulas, finish with `\\[org-ctrl-c-ctrl-c]' or `\\[org-edit-special]'.  See menu for more commands." org-table-fedit-map font-lock-comment-face org-table-use-standard-references] 19 (#$ . 113075) nil])
(defalias 'org-table-fedit-post-command #[0 "\301=\205\302?\205#\303 \212\3041\305 0\202\210\202\210\306!)\262\207" [this-command lisp-complete-symbol (lisp-complete-symbol) selected-window (error) org-table-show-reference select-window] 3])
#@65 Convert a formula from internal to user representation.

(fn S)
(defalias 'org-table-formula-to-user #[257 "\301=\203\n\302!\207\207" [org-table-use-standard-references t org-table-convert-refs-to-an] 3 (#$ . 115488)])
#@65 Convert a formula from user to internal representation.

(fn S)
(defalias 'org-table-formula-from-user #[257 "\203\301!\207\207" [org-table-use-standard-references org-table-convert-refs-to-rc] 3 (#$ . 115716)])
#@146 Convert spreadsheet references from A7 to @7$28.
Works for single references, but also for entire formulas and even the
full TBLFM line.

(fn S)
(defalias 'org-table-convert-refs-to-rc #[257 "\300\301\302#\203\202\303\225\203\300\225\262\202\300\224\300V\203<\300\224S\300]H\304\232\203<\300\224\305Z\300]H\304\232\204<\300\225\262\202\306\225\306\224Z\305V\203M\300\225\262\202\300\224\262\307\310\305\"\311\232\203h\312\313\314\310\306\"!\"\202y\312\315\316\310\305\"!\314\310\306\"!#\317\211$\262\202\207" [0 string-match "\\<\\([a-zA-Z]+\\)\\([0-9]+\\>\\|&\\)\\|\\(;[^
\n:]+\\|\\<remote([^,)]*)\\)" 3 46 2 1 replace-match match-string "&" format "$%d" org-letters-to-number "@%d$%d" string-to-number t] 10 (#$ . 115939)])
#@150 Convert spreadsheet references from to @7$28 to AB7.
Works for single references, but also for entire formulas and even the
full TBLFM line.

(fn S)
(defalias 'org-table-convert-refs-to-an #[257 "\300\301\"\203$\302\303\304\305\306\307\310\"!!\306\307\311\"!#\312\211$\262\202\300\313\"\203A\302\314\305\306\307\310\"!!\315Q\312\316$\262\202$\207" [string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" replace-match format "%s%d" org-number-to-letters string-to-number match-string 2 1 t "\\(^\\|[^0-9a-zA-Z]\\)\\$\\([0-9]+\\)" "\\1" "&" nil] 9 (#$ . 116707)])
#@98 Convert a base 26 number represented by letters into an integer.
For example:  AB -> 28.

(fn S)
(defalias 'org-letters-to-number #[257 "\300\226\262G\300V\203!\301\302_\303!\304\305$\262\306\305\"\262\202\211\207" [0 + 26 string-to-char -65 1 substring] 7 (#$ . 117282)])
#@98 Convert an integer into a base 26 number represented by letters.
For example:  28 -> AB.

(fn N)
(defalias 'org-number-to-letters #[257 "\300\301V\203\302\303S\304\"\305\\!P\262S\304\245\262\202\211\207" ["" 0 char-to-string mod 26 65] 6 (#$ . 117572)])
#@182 Convert a time string into numerical duration in seconds.
S can be a string matching either -?HH:MM:SS or -?HH:MM.
If S is a string representing a number, keep this number.

(fn S)
(defalias 'org-table-time-string-to-seconds #[257 "\211\301\232\203\207\302\211\211\211\211\303\304\"\203Z\305\306\307\"GW\262\310\306\311\"!\262\310\306\312\"!\262\310\306\313\"!\262\203L\314\315_\316_#[\262\202\251\314\315_\316_#\262\202\251\303\"\204\243\303\317\"\203\243\305\306\307\"GW\262\310\306\311\"!\262\310\306\312\"!\262\203\227\315_\316_\\[\262\202\251\315_\316_\\\262\202\251\310!\262\320!\207" [org-ts-regexp-both "" nil string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" 0 match-string 1 string-to-number 2 3 4 + 3600 60 "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\)" number-to-string] 10 (#$ . 117843)])
#@163 Convert a number of seconds to a time string.
If OUTPUT-FORMAT is non-nil, return a number of days, hours,
minutes or seconds.

(fn SECS &optional OUTPUT-FORMAT)
(defalias 'org-table-time-seconds-to-string #[513 "\301!\302\267\202D\303\304\305!\306\245\"\202P\303\307\305!\310\245\"\202P\303\311\305!\312\245\"\202P\303\313\"\202P\314\315\203;\316\202<\317\"\320\321#\202P\315\203M\316\202N\317\"\320W\203\\\322P\202]\211\207" [org-table-duration-hour-zero-padding abs #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (days 9 hours 20 minutes 31 seconds 42 hh:mm 49)) format "%.3f" float 86400 "%.2f" 3600 "%.1f" 60 "%d" substring format-seconds "%.2h:%.2m:%.2s" "%h:%.2m:%.2s" 0 -3 "-"] 7 (#$ . 118712)])
#@71 Convert all references in this buffer, using FUNCTION.

(fn FUNCTION)
(defalias 'org-table-fedit-convert-buffer #[257 "\300\301 !eb\210m\204`\302 {!c\210`\302 |\210\303y\210\202\211b\210\211\303\211\223\207" [copy-marker line-beginning-position line-end-position nil] 5 (#$ . 119484)])
#@64 Convert all references in the buffer from B3 to @3$2 and back.
(defalias 'org-table-fedit-toggle-ref-type #[0 "\301\300!\210?\302\203\303\202\304!\210\305\306\203\307\202\310\"\207" [org-table-buffer-is-an make-local-variable org-table-fedit-convert-buffer org-table-convert-refs-to-an org-table-convert-refs-to-rc message "Reference type switched to %s" "A1 etc" "@row$column"] 3 (#$ . 119781) nil])
#@48 Shift the reference at point one row/hline up.
(defalias 'org-table-fedit-ref-up #[0 "\300\301!\207" [org-table-fedit-shift-reference up] 2 (#$ . 120200) nil])
#@50 Shift the reference at point one row/hline down.
(defalias 'org-table-fedit-ref-down #[0 "\300\301!\207" [org-table-fedit-shift-reference down] 2 (#$ . 120366) nil])
#@53 Shift the reference at point one field to the left.
(defalias 'org-table-fedit-ref-left #[0 "\300\301!\207" [org-table-fedit-shift-reference left] 2 (#$ . 120538) nil])
#@54 Shift the reference at point one field to the right.
(defalias 'org-table-fedit-ref-right #[0 "\300\301!\207" [org-table-fedit-shift-reference right] 2 (#$ . 120713) nil])
#@95 Re-match the group N, and replace it with the shifted reference.

(fn N &optional DECR HLINE)
(defalias 'org-table--rematch-and-replace #[769 "\225\204	\300\301!\210\224b\210\302\303\304!!!\205\"\305\306\304\307!#\310\211#\207" [user-error "Cannot shift reference in this direction" looking-at regexp-quote match-string replace-match org-table-shift-refpart 0 t] 8 (#$ . 120891)])
#@12 

(fn DIR)
(defalias 'org-table-fedit-shift-reference #[257 "\300\301!\203\211\302>\203\303\304\305=\"\207\306\307!\207\300\310!\2031\211\311>\203*\303\312\313=\"\207\303\304\305=\"\207\300\314!\205L\211\315>\203F\303\312\313=\316\225#\207\303\317\305=\"\207" [org-in-regexp "\\(\\<[a-zA-Z]\\)&" (left right) org-table--rematch-and-replace 1 left user-error "Cannot shift reference in this direction" "\\(\\<[a-zA-Z]\\{1,2\\}\\)\\([0-9]+\\)" (up down) 2 up "\\(@\\|\\.\\.\\)\\([-+]?\\(I+\\>\\|[0-9]+\\)\\)\\(\\$\\([-+]?[0-9]+\\)\\)?" (up down) 3 5] 5 (#$ . 121285)])
#@220 Shift a reference part REF.
If DECR is set, decrease the references row/column, else increase.
If HLINE is set, this may be a hline reference, it certainly is not
a translation reference.

(fn REF &optional DECR HLINE)
(defalias 'org-table-shift-refpart #[769 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"\312\203&\313\302\314#\262\313\314\"\262\203\204\310\315\"\203\204\316\317G!P!\262\211\203F\320\202G\314\\\262\211\302U\203]\211\203Y\320\202Z\314\\\262\203v\211\302W\203k\321\202l\322\262\323!\262\202{\314]\262\324\325\"P\202\342\310\326\"\203\301\316P!\262\211\203\235\320\202\236\314\\\262\203\271\211\302W\203\257\321\202\260\322\317\323!!P\202\342\317\314]!\202\342\310\327\"\203\337\330\314\331!\203\330\320\202\331\314\\]!\202\342\332\333!\266\202)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "^[-+]" nil substring 1 "^I+" string-to-number number-to-string -1 "-" "+" abs make-string 73 "^[0-9]+" "^[a-zA-Z]+" org-number-to-letters org-letters-to-number user-error "Cannot shift reference"] 10 (#$ . 121872)])
#@60 Toggle the display of coordinates in the referenced table.
(defalias 'org-table-fedit-toggle-coordinates #[0 "\301!r\302!q\210\212\211b\210\303 *\207" [org-pos marker-position marker-buffer org-table-toggle-coordinate-overlays] 3 (#$ . 123045) nil])
#@134 Parse the buffer for formula definitions and install them.
With prefix ARG, apply the new formulas to the table.

(fn &optional ARG)
(defalias 'org-table-fedit-finish #[256 "\306 \210\203
\307\310!\210\311\n\f\311eb\210\312\313\311\314#\203g\315\316!\315\317!\311\320\203,\321\202-\322\323\320\324\323##\266\202\211\323\232\204b\325\326\"\203O\327\330\314\211$\262\202=\331\"\203[\332\333\"\210BB\262\266\202\334
!\210\335!\210b\210\336!\210\311\211\223\210\311\211\223\210\337\340!\210\203\216\341\342!\202\221\343\344!\207" [org-table-use-standard-references org-table-buffer-is-an org-pos org-selected-window org-table--fedit-source org-window-configuration org-table-remove-rectangle-highlight org-table-fedit-convert-buffer org-table-convert-refs-to-rc nil re-search-forward "^\\(@[-+I<>0-9.$@]+\\|@?[0-9]+\\|\\$\\([a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*\\(\n[ 	]+.*$\\)*\\)" t match-string 1 3 replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" string-match "[ 	]*\n[ 	]*" replace-match " " assoc user-error "Double formulas for %s" set-window-configuration select-window org-table-store-formulas kill-buffer "*Edit Formulas*" org-table-recalculate all message "New formulas installed - press C-u C-c C-c to apply."] 15 (#$ . 123304) "P"])
#@57 Abort editing formulas, without installing the changes.
(defalias 'org-table-fedit-abort #[0 "\303 \210	\304\n!\210\305!\210b\210\306\211\223\210\307\310!\207" [org-pos org-selected-window org-window-configuration org-table-remove-rectangle-highlight set-window-configuration select-window nil message "Formula editing aborted without installing changes"] 5 (#$ . 124613) nil])
#@68 Pretty-print and re-indent Lisp expressions in the Formula Editor.
(defalias 'org-table-fedit-lisp-indent #[0 "`\302\211\211\303\304!\210\305\306!\203b\210\307\310!\202\241\305\311!\203\"b\202\241\312\313!\204.\314\315!\202\241\305\316!\203\240\317\225\320Zb\210`\262\321i\322\"\262\3231N\324\304!0\202R\210\314\325!\210`\262\214}\210	=\203ueb\210\302\326\327\302\330#\203\232\331\332!\210\202f\313 \210\333ed\"\210eTb\210\326\334\302\330#\203\223\303\304!\210\211c\210\202\201db\210\335\304!\210)b\202\241\302\207" [last-command this-command nil beginning-of-line 1 looking-at "[ 	]" call-interactively lisp-indent-line "[$&@0-9a-zA-Z]+ *= *[^ 	\n']" fboundp pp-buffer user-error "Cannot pretty-print.  Command `pp-buffer' is not available" "[$&@0-9a-zA-Z]+ *= *'(" 0 2 make-string 32 (error) forward-sexp "Cannot pretty-print Lisp expression: Unbalanced parenthesis" re-search-forward "[ 	]*\n[ 	]*" t replace-match " " untabify "^." org-delete-backward-char] 8 (#$ . 125001) nil])
#@58 Move cursor one line up in the window showing the table.
(defalias 'org-table-fedit-line-up #[0 "\300\301!\207" [org-table-fedit-move previous-line] 2 (#$ . 126017) nil])
#@60 Move cursor one line down in the window showing the table.
(defalias 'org-table-fedit-line-down #[0 "\300\301!\207" [org-table-fedit-move next-line] 2 (#$ . 126194) nil])
#@140 Move the cursor in the window showing the table.
Use COMMAND to do the motion, repeat if necessary to end up in a data line.

(fn COMMAND)
(defalias 'org-table-fedit-move #[257 "\302\303 \302\304\305\306!!!\210`\262\307!\210\310 \203'\311 \203'\307!\210\202\310 \204/\211b\210`\302\223\210\304!)\207" [org-pos org-table-allow-automatic-line-recalculation nil selected-window select-window get-buffer-window marker-buffer call-interactively org-at-table-p org-at-table-hline-p] 9 (#$ . 126372)])
#@10 

(fn N)
(defalias 'org-table-fedit-scroll #[257 "\302!\303!)\207" [org-pos other-window-scroll-buffer marker-buffer scroll-other-window] 3 (#$ . 126887) "p"])
#@10 

(fn N)
(defalias 'org-table-fedit-scroll-down #[257 "\300[!\207" [org-table-fedit-scroll] 3 (#$ . 127056) "p"])
#@49 Add a new overlay.

(fn BEG END &optional FACE)
(defalias 'org-table-add-rectangle-overlay #[770 "\301\"\302\303\206\f\304#\210\211B\211\207" [org-table-rectangle-overlays make-overlay overlay-put face secondary-selection] 8 (#$ . 127177)])
#@236 Highlight rectangular region in a table.
When buffer positions BEG and END are provided, use them to
delimit the region to highlight.  Otherwise, refer to point.  Use
FACE, when non-nil, for the highlight.

(fn &optional BEG END FACE)
(defalias 'org-table-highlight-rectangle #[768 "\206`\206\n`^]\212b\210\302 \303 )B\212b\210\302 \303 )B\304\300!\2030BB@b\210AA^AA]@`X\203k\305	!\203e\306!\210\307\310x\210`\306!\210\307\310w\210\311`
#\266\310y\210\202@\266@b\266\312\313\314\"\207" [org-show-positions org-table-dataline-regexp line-beginning-position org-table-current-column boundp looking-at org-table-goto-column "^|\n" nil org-table-add-rectangle-overlay add-hook before-change-functions org-table-remove-rectangle-highlight] 17 (#$ . 127432)])
#@51 Remove the rectangle overlays.

(fn &rest IGNORE)
(defalias 'org-table-remove-rectangle-highlight #[128 "?\205\302\303\304\"\210\305\306	\"\210\307\211\207" [org-inhibit-highlight-removal org-table-rectangle-overlays remove-hook before-change-functions org-table-remove-rectangle-highlight mapc delete-overlay nil] 4 (#$ . 128226)])
#@69 Collects the coordinate grid overlays, so that they can be removed.
(defvar org-table-coordinate-overlays nil (#$ . 128569))
(make-variable-buffer-local 'org-table-coordinate-overlays)
#@69 Add overlays to the table at point, to show row/column coordinates.
(defalias 'org-table-overlay-coordinates #[0 "\303\304\"\210\305\212\306\211\305\211\211\211\307 b\210\310 \205\222\311 \262\312\313 \313 T\"\262\211B\314	!\262\203=\315\316T\211\262\"\202F\315\317T\211\262	\"\262\320\321\322$\210\203\214\306\323\324\325#\203\213\211T\262\306\224T\315\326\"\327!\n\325=\203t\211\202u\312\211G\\\"\211B\330\321\322$\266\202T\210\305y\210\202\266\206)\207" [org-table-coordinate-overlays org-table-hline-regexp org-table-use-standard-references mapc delete-overlay nil 0 org-table-begin org-at-table-p point-at-eol make-overlay point-at-bol looking-at format "I*%-2d" "%4d" org-overlay-before-string org-special-keyword evaporate re-search-forward "[+|]\\(-+\\)" t "$%d" org-number-to-letters org-overlay-display] 17 (#$ . 128760) nil])
#@53 Toggle the display of Row/Column numbers in tables.
(defalias 'org-table-toggle-coordinate-overlays #[0 "\302 \204	\303\304!\207?\302 \203\203\305 \210\204#\306\307	\"\210\310\311\312\203-\313\202.\314\"\207" [org-table-overlay-coordinates org-table-coordinate-overlays org-at-table-p user-error "Not on a table" org-table-align mapc delete-overlay nil message "Tables Row/Column numbers display turned %s" "on" "off"] 3 (#$ . 129642) nil])
#@40 Toggle the formula debugger in tables.
(defalias 'org-table-toggle-formula-debugger #[0 "?\301\302\203
\303\202\304\"\207" [org-table-formula-debug message "Formula debugging has been turned %s" "on" "off"] 3 (#$ . 130103) nil])
#@93 Non-nil if current field is narrowed.
When non-nil, return the overlay narrowing the field.
(defalias 'org-table--shrunk-field #[0 "\300\301\302\212\303 \203
\304\202\305\306 w\210`S)!\"\207" [cl-some #[257 "\300\301\"\302=\205\n\211\207" [overlay-get org-overlay-type table-column-hide] 4 "\n\n(fn O)"] overlays-at org-at-table-hline-p "^+|" "^|" line-end-position] 5 (#$ . 130344)])
#@50 List currently shrunk columns in table at point.
(defalias 'org-table--list-shrunk-columns #[0 "\212\300 \210\301\302!\210\303 \203\304\202\302\305\306 \205\305C\307 \301\310#\2035T\262\306 \203B\262\202\237\266\204)\207" [beginning-of-line search-forward "|" org-at-table-hline-p "+" 1 org-table--shrunk-field line-end-position t] 8 (#$ . 130740)])
#@553 Create an overlay to shrink text between START and END.

Use string DISPLAY instead of the real text between the two
buffer positions.  FIELD is the real contents of the field, as
a string, or nil.  It is meant to be displayed upon moving the
mouse onto the overlay.

When optional argument PRE is non-nil, assume the overlay is
located at the beginning of the field, and prepend
`org-table-separator-space' to it.  Otherwise, concatenate
`org-table-shrunk-column-indicator' at its end.

Return the overlay.

(fn START END DISPLAY FIELD &optional PRE)
(defalias 'org-table--make-shrinking-overlay #[1284 "\302\303\"\304\305C#\210\304\306C#\210\304\307C#\210\304\310\311#\210;\203.\304\312#\210\304\313\314#\210\203>P\202A	P\315\316\317$\266\207" [org-table-separator-space org-table-shrunk-column-indicator #[385 "\300\301\302\303\"A\"\207" [mapc delete-overlay overlay-get org-table-column-overlays] 7 "\n\n(fn O &rest _)"] make-overlay overlay-put insert-behind-hooks insert-in-front-hooks modification-hooks org-overlay-type table-column-hide help-echo priority 1 org-overlay-display org-table t] 13 (#$ . 131116)])
#@1058 Shrink a table field to a specified width.

WIDTH is an integer representing the number of characters to
display, in addition to `org-table-shrunk-column-indicator'.
ALIGN is the alignment of the current column, as either "l",
"c" or "r".  START and END are, respectively, the beginning
and ending positions of the field.  CONTENTS is its trimmed
contents, as a string, or `hline' for table rules.

Real field is hidden under one or two overlays.  They have the
following properties:

  `org-overlay-type'

    Set to `table-column-hide'.  Used to identify overlays
    responsible for shrinking columns in a table.

  `org-table-column-overlays'

    It is a list with the pattern (siblings . COLUMN-OVERLAYS)
    where COLUMN-OVERLAYS is the list of all overlays hiding the
    same column.

Whenever the text behind or next to the overlay is modified, all
the overlays in the column are deleted, effectively displaying
the column again.

Return a list of overlays hiding the field, or nil if field is
already hidden.

(fn WIDTH ALIGN START END CONTENTS)
(defalias 'org-table--shrink-field #[1285 "U\203\300\207\301 \203\300\207\302U\203'\303\304\305=\203#\304\202$$C\207\211\306\267\202i\303\307T\310\"\304$C\207\311{!\312\\X\203Y\303S\307Z\313\"\304$\202e\303\314Z\315#\304\211$\266\202C\207\212\316!\203v\317!q\210\212\214~\210\211\206`b\210\320\300w+\262\212\316!\203\224\317!q\210\212\214~\210\211\206\235`b\210\321\320\300x!+\262\311\\Z{!X\203?\302V\205\310\303\211\\\304\322%\303\\\211S\302U\203\336\fT\202\340\f\3232&Z\315V\203$\324\325\326\"\325\326\"\327\315##\311{!U\203\330\323\"\210\202W\203\262\202\262\266\202\3440\266\204\304$\2038D\202:\211C\266\202\202\367Z\302U\203M\326\202c\331\267\202b\302\202c\211\202c\211\312\245\202c\300ZS\302U\203s\300\202\247U\203}\300\202\247W\203\225\303\n\211	Z\\\304\322%\202\247\303\n\211T\307SZ\313\"\322%\262SU\203\276\303\nS\304\f$\202\347W\203\325\303	Z\\\304\f$\202\347\303\nS\307SZ\313\"\f$\262\203\363D\202\365\211C\266\205\207" [nil org-table--shrunk-field 0 org-table--make-shrinking-overlay #1="" hline #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hline 45 #1# 58)) make-string 45 org-string-width 2 32 - 1 markerp marker-buffer " " abs t :exit + ash -1 logand throw #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("l" 340 "r" 344 "c" 348))] 21 (#$ . 132270)])
#@320 Read column selection select as a list of numbers.

SELECT is a string containing column ranges, separated by white
space characters, see `org-table-hide-column' for details.  MAX
is the maximum column number.

Return value is a sorted list of numbers.  Ignore any number
outside of the [1;MAX] range.

(fn SELECT MAX)
(defalias 'org-table--read-column-selection #[514 "\3002\301\302\303\304\305\306\307\310!\311\"\312\313%\314!\"!\315\"0\207" [:all sort delete-dups cl-mapcan make-byte-code 257 "\211\302\235\203\303\304\305\306\300\"\"\207\307\310\311\312#)\266\203\2030\313!\211\314V\205/\211\300X\205/\211C\207\312\315\"\203\\\316\306\"\316\317\"\305\203L\306\313!]\202M\306\203Y\300\313!^\202Z\300\"\207\310\207" vconcat vector [inhibit-changing-match-data ("-" "1-") throw :all number-sequence 1 "\\`[0-9]+\\'" nil t string-match string-to-number 0 "\\`\\([0-9]+\\)?-\\([0-9]+\\)?\\'" match-string 2] 8 "\n\n(fn S)" split-string <] 11 (#$ . 134877)])
#@184 Shrink COLUMNS in a table.
COLUMNS is a sorted list of column numbers.  BEG and END are,
respectively, the beginning position and the end position of the
table.

(fn COLUMNS BEG END)
(defalias 'org-table--shrink-columns #[771 "\212\214~\210\300\"\210\211\205\362\211@b\210\301\211\211`W\203\253\3022\244\303 \211\203+\304\202,\305\306\305!\210\307U\204G\306\310 \311	S$\204G\312\302\301\"\210`\313P\310 w\210`\203X\314\202p{\301\315\203e\316\202f\317\320\315\321\320##\266\202EB\262?\205\237\322\323\"\205\237\204\220\324\307\"\262?\205\237\325\324\326\"!\211\262\266\203\266\2020\210\301y\210\202\327C\211\203\351\211@\330\331\206\274\332\206\302\333$\211\203\341\211@\211AB\241\266\334\335#\210A\266\202\202\304\210A\266\202\202\256\266A\266\202\202\n\262*\207" [org-font-lock-ensure nil :continue org-at-table-hline-p "+" "|" search-forward 1 line-end-position t throw "^|" hline replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" string-match "\\`<\\([lrc]\\)?\\([0-9]+\\)>\\'" match-string string-to-number 2 siblings apply org-table--shrink-field 0 "l" overlay-put org-table-column-overlays] 21 (#$ . 135870)])
#@948 Shrink or expand current column in an Org table.

If a width cookie specifies a width W for the column, the first
W visible characters are displayed.  Otherwise, the column is
shrunk to a single character.

When point is before the first column or after the last one, ask
for the columns to shrink or expand, as a list of ranges.
A column range can be one of the following patterns:

  N    column N only
  N-M  every column between N and M (both inclusive)
  N-   every column between N (inclusive) and the last column
  -M   every column between the first one and M (inclusive)
  -    every column

When optional argument ARG is a string, use it as white space
separated list of column ranges.

When called with `\[universal-argument]' prefix, call `org-table-shrink', i.e.,
shrink columns with a width cookie and expand the others.

When called with `\[universal-argument] \[universal-argument]' prefix, expand all columns.

(fn &optional ARG)
(defalias 'org-table-toggle-column-width #[256 "\301 \204	\302\303!\210\304 \305 \306 \307 Z\310\245\311 \204@\212\312\307 x\210n\206-\313\314\315!)\262)\203:\316\317\320!\"\202\210\321 C\202\210;\203L\316\"\202\210:\203\203@\211\322\267\202yA\211\205d\302\323\"\262\202~A\211\205t\302\323\"\262\202~\302\323\"\262\202\210\302\323\"\324:\203\355@\211\325\267\202\336A\211\204\250\326\"\202\272\327\"\210\330\331\"		#\262\202\350A\211\204\317\327\"\202\331$\262\202\350$\262\202\365\211$\262\207" [inhibit-changing-match-data org-at-table-p user-error "Not in a table" org-table-begin org-table-end line-end-position line-beginning-position 2 org-table--list-shrunk-columns "^|" "[ 	]*$" t looking-at org-table--read-column-selection read-string "Column ranges (e.g. 2-4 6-): " org-table-current-column #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 89 16 105)) "Invalid argument: %S" #[1028 "\300\"\210\301\302\"#\207" [org-table-expand org-table--shrink-columns cl-set-exclusive-or] 8 "\n\n(fn BEGIN END SHRUNK COLUMNS)"] #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 152 16 191)) org-table-shrink org-table-expand org-table--shrink-columns cl-set-exclusive-or] 14 (#$ . 137093) "P"])
#@245 Shrink all columns with a width cookie in the table at point.

Columns without a width cookie are expanded.

Optional arguments BEGIN and END, when non-nil, specify the
beginning and end position of the current table.

(fn &optional BEGIN END)
(defalias 'org-table-shrink #[512 "\204
\300 \204
\301\302!\210\212\214~\210\206\303 \206\304 \305\306b\210\307\310#\203@\311\224b\210\312 \313\"\204<\211B\262\210\202\"\314\"\210\315\"\210\316\317\320\"#\266\204*\207" [org-at-table-p user-error "Not at a table" org-table-begin org-table-end "|[ 	]*<[lrc]?[0-9]+>[ 	]*\\(|\\|$\\)" nil re-search-forward t 1 org-table-current-column memql org-table-expand org-font-lock-ensure org-table--shrink-columns sort <] 10 (#$ . 139424) nil])
#@178 Expand all columns in the table at point.
Optional arguments BEGIN and END, when non-nil, specify the
beginning and end position of the current table.

(fn &optional BEGIN END)
(defalias 'org-table-expand #[512 "\204
\300 \204
\301\302!\210\212\214~\210\206\303 \206\304 \305\306\307$\266\202*\207" [org-at-table-p user-error "Not at a table" org-table-begin org-table-end remove-overlays org-overlay-type table-column-hide] 9 (#$ . 140185) nil])
#@86 Apply function F to the start of all tables in the buffer.

(fn F &optional QUIETLY)
(defalias 'org-table-map-tables #[513 "\301\212\302!\203
\303!q\210\212\214~\210\211\206`b\210\304\305\306#\203]\307\310 \311\306#\211\203Y\2049\312\313\314\315`_\316 \"\"\210\317\320\"b\210\321\317\322\"!\323\324\325\326\327!\330\"\331$\216 \210\211b\210)\210\210\202+\210\211?\205g\312\332!\207" [org-table-line-regexp 1 markerp marker-buffer re-search-forward nil t org-element-lineage org-element-at-point (table) message "Mapping tables: %d%%" floor 100.0 buffer-size org-element-property :post-affiliated copy-marker :end make-byte-code 0 "\300\301\211\223\207" vconcat vector [nil] 3 "Mapping tables: done"] 11 (#$ . 140649)])
#@674 Export table to a file, with configurable format.
Such a file can be imported into usual spreadsheet programs.

FILE can be the output file name.  If not given, it will be taken
from a TABLE_EXPORT_FILE property in the current entry or higher
up in the hierarchy, or the user will be prompted for a file
name.  FORMAT can be an export format, of the same kind as it
used when `-mode' sends a table in a different format.

The command suggests a format depending on TABLE_EXPORT_FORMAT,
whether it is set locally or up in the hierarchy, then on the
extension of the given file name, and finally on the variable
`org-table-export-default-format'.

(fn &optional FILE FORMAT)
(defalias 'org-table-export #[512 "\301 \204	\302\303!\210\304 \210\206\305`\306\307#\211\2041\310\311!\262\312!\2031\313\314\315\"!\2041\302\316!\210\317!\203;\302\320!\210\321\322 !\203T\323\324!\324\321\322 !!\"\203T\302\325!\210\326!\327P\206b\305`\330\307#\211\204\225\331\332\333\334\332\335\336\337\340\341\342\343\344\345\346!\347\"\350\351%\n\"\"@\206\206\307\211%\307\211%\352\353\340\211%\266\203\354\355\"\203\347\356\357\360\"!\361\225\205\260\362\363\357\361\"\364Q!\365 \366!\204\275\302\367\"\210\340r\370!q\210p\262\371 \210\372 \210\"\335\261\210\373 \210)\374!\266\375\376!\266\203\202\352\302\377!\266\202\207" [org-table-export-default-format org-at-table-p user-error "No table at point" org-table-align org-entry-get "TABLE_EXPORT_FILE" t read-file-name "Export table to: " file-exists-p y-or-n-p format "Overwrite file %s? " "File not written" file-directory-p "This is a directory path, not a file" buffer-file-name buffer-base-buffer file-equal-p file-truename "Please specify a file name that is different from current" file-name-extension "$" "TABLE_EXPORT_FORMAT" ("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex" "orgtbl-to-html" "orgtbl-to-generic" "orgtbl-to-texinfo" "orgtbl-to-orgtbl" "orgtbl-to-unicode") replace-regexp-in-string "	" "\\t" "\n" "\\n" delq nil mapcar make-byte-code 257 "\300\302\303\304#)\266\203\205\211\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn F)" org-completing-read "Format: " string-match "\\([^ 	
\n]+\\)\\( +.*\\)?" intern match-string 1 2 read "(" ")" org-table-to-lisp fboundp "No such transformation function %s" find-file-noselect erase-buffer fundamental-mode save-buffer kill-buffer message "Export done." "TABLE_EXPORT_FORMAT invalid"] 21 (#$ . 141392) nil])
#@157 Format FIELD according to column WIDTH and alignment ALIGN.
FIELD is a string.  WIDTH is a number.  ALIGN is either "c",
"l" or"r".

(fn FIELD WIDTH ALIGN)
(defalias 'org-table--align-field #[771 "\301!Z\302\267\202\303\202 \304\305\"\202 \304\306\245\305\"\202 \307\304GZ\305\"\260\207" [org-table-separator-space org-string-width #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("l" 11 "r" 15 "c" 22)) "" make-string 32 2 nil] 11 (#$ . 143888)])
#@57 Align the table at point by aligning all vertical bars.
(defalias 'org-table-align #[0 "\306 \307\310 !\307\311 !\312 \313\314\315\316\317\"\320\"\321$\216\322\"\210\323\223\210	\323\223\210b\210\307\306 !\307\310 \324\"\325 \212\326!\203E\327!q\210\212\214~\210\211\206N`b\210\330\"\210+\210\313\314\331\316\317#\332\"\333$\216\334 \335\336\"\323\211\337\204\230\340 \212\341\342\324#\203\207T\262\202x)\343\337\"\262\343\344\"\262\210\2021\345\346\347\350\"\"\262\211\314\211W\203'\211\337\323\314\211\n\211\203\211@8\206\277\351\352!]\262\204\371\211\351\232\204\371\353\354\"\203\341\355\337\"\262\202\371T\262\n\323\324\353#)\266\203\203\371T\262\210A\266\202\202\261\210\nB\262\n\206\f_Y\203\356\202\344	B\262	\266\211T\262\202\244\266\237\262\237\262;\336>\205A\357\360\342#\361\362!\210\355\314!\211\203\245\211@`\340 {\336=\203_\202\203GZ\211\314U\203n\202u\363\343\351\"\"\357\364\365\366$\367#\266\202\367Q\211\232\203\221\323y\210\202\234\211\370\261\210`\311\371!|\210\266A\266\202\202J\266\n\323\211\223\210:\203\265\372 \210\323\211<\266\205)\266\203)\266\202\207" [org-table-aligned-begin-marker org-table-aligned-end-marker org-table-number-regexp inhibit-changing-match-data org-table-number-fraction org-table-last-alignment org-table-begin copy-marker org-table-end line-beginning-position org-table-current-column make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-font-lock-ensure nil t org-table--list-shrunk-columns markerp marker-buffer org-table-expand "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" [org-table--shrink-columns nil] 4 org-table-to-lisp remq hline 1 line-end-position search-forward "+" make-list "l" apply max mapcar length "" org-string-width string-match "\\`<\\([lrc]\\)[0-9]*>\\'" match-string "r" mapconcat #[257 "\300\301\\\302\"\207" [make-string 2 45] 4 "\n\n(fn W)"] looking-at "[ 	]*|" append identity cl-mapcar org-table--align-field "|" "\n" 2 org-table-overlay-coordinates org-table-last-column-widths org-table-may-need-update] 29 (#$ . 144401) nil])
#@156 Justify the current field, text to left, number to right.
Optional argument NEW may specify text to replace the current field content.

(fn &optional NEW)
(defalias 'org-table-justify-field-maybe #[256 "\211\204\206\321\305 \206\321\211\204)\306	!p=\203%`	W\204%`\nY\203)\307\211\207`\310 \211\311V\205\317\312\313x\210\314\315!\204B\307\211\202\317\211S8S\f8\316\311!\316\317!\320\224\320\225U?\321 \322\311\323\324\325!\326\"\327$\216\203t\330\331\n\206p\"\202\270\204\206\307\330\331\n\206\202\"\202\270\204\227\332#\333P\202\270\203\261\334	!X\203\261\332	#\333P\202\270\307\330\331\n\")\262\211\232\204\312\313\335\307\211#\210)b\266\206\266\202\207" [org-table-may-need-update org-table-aligned-begin-marker org-table-aligned-end-marker org-table-last-alignment org-table-last-column-widths org-at-table-hline-p marker-buffer t org-table-current-column 0 "^|" nil looking-at " *\\([^|\n]*?\\) *\\(|\\|$\\)" match-string 1 2 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 format " %s |" org-table--align-field "|" org-string-width replace-match] 15 (#$ . 146625)])
#@1448 Sort table lines according to the column at point.

The position of point indicates the column to be used for
sorting, and the range of lines is the range between the nearest
horizontal separator lines, or the entire table of no such lines
exist.  If point is before the first column, you will be prompted
for the sorting column.  If there is an active region, the mark
specifies the first line and the sorting column, while point
should be in the last line to be included into the sorting.

The command then prompts for the sorting type which can be
alphabetically, numerically, or by time (as given in a time stamp
in the field, or as a HH:MM value).  Sorting in reverse order is
also possible.

With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive
if the locale allows for it.

If SORTING-TYPE is specified when this function is called from a Lisp
program, no prompting will take place.  SORTING-TYPE must be a character,
any of (?a ?A ?n ?N ?t ?T ?f ?F) where the capital letters indicate that
sorting should be done in reverse order.

If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies
a function to be called to extract the key.  It must return a value
that is compatible with COMPARE-FUNC, the function used to compare
entries.

A non-nil value for INTERACTIVE? is used to signal that this
function is being called interactively.

(fn &optional WITH-CASE SORTING-TYPE GETKEY-FUNC COMPARE-FUNC INTERACTIVE\=\?)
(defalias 'org-table-sort-lines #[1280 "\301 \203	\302 b\210\212\303\304x\210n\203\305\306\307 \310#\210\311 \210)\312 \211\313V\203)\211\2024\2033\314\315!\2024\316\262\206=\317\320!\321 \322 \214\301 \203Z\302 b\210`\212\323 b\210\324\325!)}\210\202}\212\326\310#\203i\324\325!\202j)\212\327\310#)\203z\313\224\202{}\210\330e\324 \"iB\331\267\202\253\332\202\257\333\202\257\334\202\257\206\257\203\245\335\336!\206\257\337\340!\202\257\341\342\"\343\267\202\327\344\202\330\n\203\302\345\202\330\346\202\330\206\330\205\330\335\347\350\"\202\330\304\351\352 \"eb\210\353\354>\355\356\357\313\360\361\362\f\"\363\"\364$\304&\210\365#\210@y\210\366A!\266\204)\207" [org-table-hline-regexp org-region-active-p region-beginning " 	" nil search-forward "|" line-end-position t org-table-check-inside-data-field org-table-current-column 0 read-number "Use column N for sorting: " 1 read-char-exclusive "Sort Table: [a]lphabetic, [n]umeric, [t]ime, [f]unc.  A/N/T/F means reversed: " org-table-begin org-table-end region-end line-beginning-position 2 re-search-backward re-search-forward count-lines #s(hash-table size 8 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 138 78 138 97 142 65 142 116 146 84 146 102 150 70 150)) string-to-number org-sort-remove-invisible #[257 "\301\"\203\302\303\304\305\"!!\207\306!\203\307!\207\301\310\"\203(\307\304\305\"!\207\305\207" [org-ts-regexp-both string-match float-time org-time-string-to-time match-string 0 org-duration-p org-duration-to-minutes "\\<[0-9]+:[0-9]\\{2\\}\\>"] 6 "\n\n(fn F)"] org-read-function "Function for extracting keys: " error "Missing key extractor to sort rows" user-error "Invalid sorting type `%c'" #s(hash-table size 8 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 181 78 181 116 181 84 181 97 185 65 185 102 198 70 198)) < org-string-collate-lessp #[514 "\300\301\302$\207" [org-string-collate-lessp nil t] 7 "\n\n(fn S1 S2)"] "Function for comparing keys (empty for default `sort-subr' predicate): " allow-empty remq org-table--list-shrunk-columns sort-subr (65 78 84 70) #[0 "\301y\210m?\205\302!?\205\301y\210\202\207" [org-table-dataline-regexp nil looking-at] 2] end-of-line make-byte-code "\301\302\300!\303\304\203\305\202\306\307\304\310\307##\266\202!\207" vconcat vector [org-table-get-field nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'"] 10 org-table--shrink-columns move-to-column] 24 (#$ . 147806) (byte-code "\301\211\211\302\257\207" [current-prefix-arg nil t] 5)])
#@260 Transpose Org table at point and eliminate hlines.
So a table like

| 1 | 2 | 4 | 5 |
|---+---+---+---|
| a | b | c | d |
| e | f | g | h |

will be transposed as

| 1 | a | e |
| 2 | b | f |
| 4 | c | g |
| 5 | d | h |

Note that horizontal lines disappear.
(defalias 'org-table-transpose-table-at-point #[0 "\300\301\302 \"\303 \304 \305\306\307\310\311\312!\313\"\314\315%@\"\316 b\210\317\320!\210\321u\210`\322 |\210\323\324\325#c\210\326!\210\327!\266\330 \207" [delete hline org-table-to-lisp org-table-current-line org-table-current-column mapcar make-byte-code 257 "\300C\301\302\303\304\305\306!\307\"\310\311%\300\"\207" vconcat vector [mapcar make-byte-code 257 "\300\242\211@\211A\240\210\266\202\242\300\211\242A\240\210\207" vconcat vector [] 6 "\n\n(fn _)"] 9 "\n\n(fn _)" org-table-begin re-search-forward "|" -1 org-table-end mapconcat #[257 "\300\301\302\303#\304Q\207" ["| " mapconcat identity " | " "  |\n"] 6 "\n\n(fn X)"] "" org-table-goto-line org-table-goto-column org-table-align] 10 (#$ . 151889) nil])
#@1197 Wrap several fields in a column like a paragraph.
This is useful if you'd like to spread the contents of a field over several
lines, in order to keep the table compact.

If there is an active region, and both point and mark are in the same column,
the text in the column is wrapped to minimum width for the given number of
lines.  Generally, this makes the table more compact.  A prefix ARG may be
used to change the number of desired lines.  For example, `C-2 \[org-table-wrap-region]'
formats the selected text to two lines.  If the region was longer than two
lines, the remaining lines remain empty.  A negative prefix argument reduces
the current number of lines by that amount.  The wrapped text is pasted back
into the table.  If you formatted it to more lines than it was before, fields
further down in the table get overwritten - so you might need to make space in
the table first.

If there is no region, the current field is split at the cursor position and
the text fragment to the right of the cursor is prepended to the field one
line down.

If there is no region, but you specify a prefix ARG, the current field gets
blank, and the content is appended to the field above.

(fn ARG)
(defalias 'org-table-wrap-region #[257 "\302 \210\303 \203H\304 \305\304 \306 \"\210@G\307V\203\310\311!\210\204&G\2024\307W\2033G\\\2024\312\313\314\315\316\317#\320#\"\210\211b\210\321 \207	\322\211\323=\203V\323\266\202\202\206\323=\203b\323\266\202\202\206\324\"\203s\324\"A\266\202\202\206\325\236A\211<\203\203\326\320\"\202\204\211\266\203\204\215\327\320w\210\211\203\314\330 \331 \332y\210\333 \203\243\332y\210\202\230\334!\210\335\320w\210\317\320x\210\317\320\336\203\273\337\202\274\340\341\336\342\341##\266\202\261\210\343 \207\344\345!\203\375\346\307!\347\350!\210\351\224b\210\352 \210\211\320\336\203\353\337\202\354\340\341\336\342\341##\266\202\317\261\210\343 \207\352 \207" [org-table-clip org-M-RET-may-split-line org-table-check-inside-data-field org-region-active-p region-beginning org-table-cut-region region-end 1 user-error "Region must be limited to single column" mapcar list org-wrap mapconcat car " " nil org-table-paste-rectangle table t assoc default delq "^
\n|" org-table-blank-field org-table-current-column -1 org-at-table-hline-p org-table-goto-column "^|" replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" org-table-align looking-at "\\([^|]+\\)|" match-string replace-match " |" 0 org-table-next-row] 13 (#$ . 152939) "P"])
#@10 

(fn S)
(defalias 'org-table--number-for-summing #[257 "\301\302\303\"\203\304\305\301\211$\262\302\306\"\203\304\305\301\211$\262\307!\262\302\310\"\2036\302\311\"\2036\312\202\213\302\313\"\203A\301\202\213\302\314\"\203\200\307\315\316\"\206Q\310!\307\315\317\"\206[\310!\307\315\320\"\206f\310!\321\300!\203pT\322\323\324\245\325\245#_\266\203\202\213\211\312\232\203\212\301\202\213\211\207" [org-timecnt nil string-match "^ *|? *" replace-match "" " *|? *$" string-to-number "0" "\\`[-+ 	0.edED]+\\'" 0 "\\`[ 	]+\\'" "\\`\\([0-9]+\\):\\([0-9]+\\)\\(:\\([0-9]+\\)\\)?\\'" match-string 1 2 4 boundp 1.0 + 60.0 3600.0] 11 (#$ . 155485)])
#@635 Sum numbers in region of current table column.
The result will be displayed in the echo area, and will be available
as kill to be inserted with \[yank].

If there is an active region, it is interpreted as a rectangle and all
numbers in that rectangle will be summed.  If there is no active
region and point is located in a table column, sum all numbers in that
column.

If at least one number looks like a time HH:MM or HH:MM:SS, all other
numbers are assumed to be times as well (in decimal hours) and the
numbers are added as such.

If NLAST is a number, only the NLAST fields will actually be summed.

(fn &optional BEG END NLAST)
(defalias 'org-table-sum #[768 "\212\302\303\302\211\211\211\211\203\204Y\304 \203%\305 \262	\306 \262\202Y\307 \262\310 b\210\311\312\302\313#\2049\314\315!\210\316!\210`\262	\317 b\210\320\312\302\313#\204Q\314\315!\210\316!\210`\262\321\322\323\"\"\204k\211\202\206GY\203w\211\202\206\324!\262S\233\302\241\210\211\237\325\302\326\327\"\"\321\330\"	\303U\203\235\331!\202\313\332_\262\333\332\"\262\334\332\"\262\333\335\"\262\334\335\"\262\262\336\337$\340!\210\341\342!\203\341\343\344\336\345G#!!\210\266\204*\266\206)\207" [org-table-clip org-timecnt nil 0 org-region-active-p region-beginning region-end org-table-current-column org-table-begin re-search-forward "^[ 	]*|[^-]" t user-error "No table data" org-table-goto-column org-table-end re-search-backward apply append org-table-copy-region reverse delq mapcar org-table--number-for-summing + number-to-string 3600 floor mod 60 format "%.0f:%02.0f:%02.0f" kill-new called-interactively-p interactive message substitute-command-keys "Sum of %d items: %-20s     (\\[yank] will insert result into buffer)"] 20 (#$ . 156172) nil])
#@372 Analyze table at point and store results.

This function sets up the following dynamically scoped variables:

 `org-table-column-name-regexp',
 `org-table-column-names',
 `org-table-current-begin-pos',
 `org-table-current-line-types',
 `org-table-current-ncol',
 `org-table-dlines',
 `org-table-hlines',
 `org-table-local-parameters',
 `org-table-named-field-locations'.
(defalias 'org-table-analyze #[0 "\306 \307 \212b\210\310\212\311\312\313#)\203=\314\315\316\314!\317\"\211\203;\211@T\262\320\321\"\2034\211\322!BBA\266\202\202\266\237\323\324\325\326\327\"\313\"\"\310\212\311\330\313#\203\200\315\316\314!\317\"\211\203|\211@\320\331\"\203u\316\314\"\316\332\"B\nBA\266\202\202\\\210\202N)\310\212`\333B\311\334\313#\203\316\314!\315\316\332!\317\"\212\335\232\203\243\314\202\244\336y\210\337\340!\205\262\315\316\314!\317\"\211A\341@`\"\\\241\262\314`\240\210\203\203\211A\262\242\211A\262\242T\262;\203\373\211;\203\373\320\321\"\203\373B\nBEB\266\202\305\266)\266\202\207\210)\342\f!\203\f`\310\223\210\202\343 \333\310\211\211\337\344!\203O\314\225\203.\345\202/\346B\262\314\225\203@B\262\202EB\262\310y\210T\262\202\345B\262\347\350\237\"\347\350\310\237B\",\347\350\310\237B\"-\266b\210,\314Hy\210\315\351 \352 {\353\"G\211.)\207" [org-table-column-names org-table-column-name-regexp org-table-local-parameters org-table-named-field-locations org-table-current-begin-pos org-table-current-line-types org-table-begin org-table-end nil re-search-forward "^[ 	]*| *! *\\(|.*\\)" t 1 org-split-string match-string " *| *" string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" number-to-string format "\\$\\(%s\\)\\>" regexp-opt mapcar car "^[ 	]*| *\\$ *\\(|.*\\)" "\\`\\([a-zA-Z][_a-zA-Z0-9]*\\|%\\) *= *\\(.*\\)" 2 0 "^[ 	]*| *\\([_^]\\) *\\(|.*\\)" "_" -1 looking-at "^[ 	]*|[^|]*\\(|.*\\)" count-lines markerp point-marker "[ 	]*|\\(-\\)?" hline dline apply vector line-beginning-position line-end-position "[ 	]*|[ 	]*" org-table-dlines org-table-hlines org-table-current-ncol] 13 (#$ . 157975)])
#@136 Move point to the closest data line in a table.
Raise an error if the table contains no data line.  Preserve
column when moving point.
(defalias 'org-table--force-dataline #[0 "\301!?\205Ti\212\302\303 \304#)\212\305\306 \304#)\2039\211\2039\307`Z!\307`Z!W\2033\2024\211b\210\202O\204A\211\203K\206F\211b\210\202O\310\311!\210\312!\266\204\207" [org-table-dataline-regexp org-match-line re-search-forward org-table-end t re-search-backward org-table-begin abs user-error "No table data line around here" org-move-to-column] 8 (#$ . 160094)])
#@140 Show the location/value of the $ expression at point.
When LOCAL is non-nil, show references for the table at point.

(fn &optional LOCAL)
(defalias 'org-table-show-reference #[256 "\306 \210\211\203\n\307 \210\3102\211\211\203`\202\311\312\313 \314\211\211\211\211\211\211\315\316!\203E\317\320\321!\321\322#\323\317\320\321!\321\322#\324R\262\325\202\223\315!\204W\315\f!\204W\315
!\203s\326 \327\321\330\331\332!\333\"\334$\216\335\320\321!!)\262\262\325\202\223\315\336!\203}\337\202\223\315\340!\203\207\341\202\223\204\220\314\202\223\342\343!\262\205\240\206\240\320\321!\262\203\266\321\224\344 \232\204\266\345\321\224\321\225\346#\210\347\350\306\"\210\337=\203\307\317\351\"\262\325=\203\337\352!\353=\204\332\354P\262\355!\262\204\212\314\210\356\357\314\312#\210\360 \210\361\362!\203\326 \327\321\330\331\332!\363\"\334$\216\335\320\351!!)\262\262\345\351\224\351\225\f#\210)\364!\203E\365!\203E\366\365\f!!\203<\367\366\365
!!!\210\202E\370\366\365
!!!\210\nb\210\371 \210\203V@\202X\372 \203\252\317\351\"\262\373\314\312A\374#)\266\203\203z\375!\210\202\233\376\314\312A\374#)\266\203\203\222\375!\210\202\233\377\201I!!\210`\314\223\210\201J\314\211
#\210\232\2049\2039\325=\203\324\201K1\314\201L\314\311$0\202\320\210\2029\210\2029\201MB\"\211\262\203\375!\210\201J \210\201N\201O\201P8A@#\210\2029\201MC\"\211\262\203V\377\201IA!!\210\201J \210\211b\210\201Q\201R\201SQ\201T \312#\203M\351\224b\210\201J \210\201N\201UA\"\210\2029\342\201V!\210\2029\341=\203{\377\201I\317\351\"!!\210\201J \210\201N\201W\317\351\"\"\210\2029\201MD\"\211\262\203\273\211b\210\201Q\201X\201YQ\314\312#\203\262\351\224b\210\201J \210\201N\201Z!\210\2029\342\201[!\210\2029\204\307\342\343!\210\2029\201ME\"\211\262\203\345\201N\201\\A#\210\2029\201MF\"\211\262\203\201N\201]A#\210\2029\201^\201_!\205\201_!\211\262\2031\201N\201`\201a\201bG\"$\210\2029\342\201c\"\210b\210	\203\200H\201d>\204\200	B\211	B\201e\201f	\"\201e\201g	\"\201h\313 \"\210\211b\210\201i!\204~\201h\313 \"\210\266\210\367!*\266\2130\207" [org-pos org-show-positions org-inhibit-highlight-removal org-table-range-regexp2 org-table-translate-regexp org-table-range-regexp org-table-remove-rectangle-highlight org-table-analyze exit highlight t selected-window nil org-in-regexp "^@[0-9]+[ 	=]" substring match-string 0 -1 "$1.." "$100" range match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-convert-refs-to-rc "\\$[a-zA-Z][a-zA-Z0-9]*" name "\\$[0-9]+" column user-error "No reference at point" point-at-bol org-table-add-rectangle-overlay secondary-selection add-hook before-change-functions 1 string-to-char 64 "@" org-table-formula-substitute-names re-search-backward "^\\S-" beginning-of-line looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\\([0-9]+\\|&\\)\\) *=" [set-match-data evaporate] markerp marker-buffer get-buffer-window select-window org-switch-to-buffer-other-window org-table--force-dataline org-table-begin "\\`\\$[a-zA-Z][a-zA-Z0-9]*" string-match org-table-goto-field "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" org-table-goto-column org-table-current-begin-pos inhibit-changing-match-data org-table-named-field-locations org-table-column-names org-table-local-parameters org-table-formula-constants-local org-table-formula-constants constants-unit-system this-command string-to-number org-table-highlight-rectangle (error) org-table-get-range assoc message "Named field, column %d of line %d" 2 re-search-forward "^[ 	]*| *! *.*?| *\\(" "\\) *|" org-table-end "Named column (column %s)" "Column name not found" "Column %s" "^[ 	]*| *\\$ *.*?| *\\(" "=\\)" "Local parameter." "Parameter not found" "Local Constant: $%s=%s in #+CONSTANTS line." "Constant: $%s=%s in `org-table-formula-constants'." fboundp constants-get "Constant: $%s=%s, from `constants.el'%s." format " (%s units)" "Undefined name $%s" (org-table-fedit-scroll org-table-fedit-scroll-down) apply min max set-window-start pos-visible-in-window-p] 20 (#$ . 160664) nil])
#@27 Keymap for `orgtbl-mode'.
(defvar orgtbl-mode-map (make-keymap) (#$ . 164938))
#@39 Local variable used by `orgtbl-mode'.
(defvar org-old-auto-fill-inhibit-regexp nil (#$ . 165023))
#@40 Matches a line belonging to an orgtbl.
(defconst orgtbl-line-start-regexp "[ 	]*\\(|\\|#\\+\\(tblfm\\|orgtbl\\|tblname\\):\\)" (#$ . 165127))
#@70 Extra `font-lock-keywords' to be added when `orgtbl-mode' is active.
(defconst orgtbl-extra-font-lock-keywords (byte-code "\301\302Q\303\304\305FC\207" [orgtbl-line-start-regexp "^" ".*" 0 'org-table prepend] 4) (#$ . 165275))
#@40 Unconditionally turn on `orgtbl-mode'.
(defalias 'turn-on-orgtbl #[0 "\300\301!\210\302\303!\207" [require org-table orgtbl-mode 1] 2 (#$ . 165509)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put orgtbl-mode :included t :menu-tag "Org Table Mode"] 4)
#@13 OrgTbl menu
(defvar orgtbl-mode-menu nil (#$ . 165781))
(easy-menu-do-define 'orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu" '("OrgTbl" ["Create or convert" org-table-create-or-convert-from-region :active (not (org-at-table-p)) :keys "C-c |"] "--" ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"] ["Next Field" org-cycle :active (org-at-table-p) :keys "TAB"] ["Previous Field" org-shifttab :active (org-at-table-p) :keys "S-TAB"] ["Next Row" org-return :active (org-at-table-p) :keys "RET"] "--" ["Blank Field" org-table-blank-field :active (org-at-table-p) :keys "C-c SPC"] ["Edit Field" org-table-edit-field :active (org-at-table-p) :keys "C-c ` "] ["Copy Field from Above" org-table-copy-down :active (org-at-table-p) :keys "S-RET"] "--" ("Column" ["Move Column Left" org-metaleft :active (org-at-table-p) :keys "M-<left>"] ["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-<right>"] ["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-<left>"] ["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-<right>"]) ("Row" ["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-<up>"] ["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-<down>"] ["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-<up>"] ["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-<down>"] ["Sort lines in region" org-table-sort-lines :active (org-at-table-p) :keys "C-c ^"] "--" ["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"]) ("Rectangle" ["Copy Rectangle" org-copy-special :active (org-at-table-p)] ["Cut Rectangle" org-cut-special :active (org-at-table-p)] ["Paste Rectangle" org-paste-special :active (org-at-table-p)] ["Fill Rectangle" org-table-wrap-region :active (org-at-table-p)]) "--" ("Radio tables" ["Insert table template" orgtbl-insert-radio-table (cl-assoc-if #'derived-mode-p orgtbl-radio-table-templates)] ["Comment/uncomment table" orgtbl-toggle-comment t]) "--" ["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="] ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="] ["Edit Formulas" org-table-edit-formulas :active (org-at-table-p) :keys "C-c '"] ["Recalculate line" org-table-recalculate :active (org-at-table-p) :keys "C-c *"] ["Recalculate all" (org-table-recalculate '(4)) :active (org-at-table-p) :keys "C-u C-c *"] ["Iterate all" (org-table-recalculate '(16)) :active (org-at-table-p) :keys "C-u C-u C-c *"] ["Toggle Recalculate Mark" org-table-rotate-recalc-marks :active (org-at-table-p) :keys "C-c #"] ["Sum Column/Rectangle" org-table-sum :active (or (org-at-table-p) (org-region-active-p)) :keys "C-c +"] ["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"] ["Debug Formulas" org-table-toggle-formula-debugger :active (org-at-table-p) :keys "C-c {" :style toggle :selected org-table-formula-debug] ["Show Col/Row Numbers" org-table-toggle-coordinate-overlays :active (org-at-table-p) :keys "C-c }" :style toggle :selected org-table-overlay-coordinates] "--" ("Plot" ["Ascii plot" orgtbl-ascii-plot :active (org-at-table-p) :keys "C-c \" a"] ["Gnuplot" org-plot/gnuplot :active (org-at-table-p) :keys "C-c \" g"])))
#@91 Non-nil if Orgtbl mode is enabled.
Use the command `orgtbl-mode' to change this variable.
(defvar orgtbl-mode nil (#$ . 169066))
(make-variable-buffer-local 'orgtbl-mode)
#@326 The Org mode table editor as a minor mode for use in other modes.

If called interactively, enable Orgtbl mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

(fn &optional ARG)
(defalias 'orgtbl-mode #[256 "\306 \307=\203
?\202\310!\311V\312 \210\313\314!\203#\315\316!\210\202\221\203v\317 \2031\320\317\321\"\210\300	\236\211\203?\211\322	\"B\210\323\302!\210\324\325\326\327\330\331$\210\323\304!\210\323\303!\210\203b
\332Q\202c
\333\334!\203\221\334\330,\"\210\335 \210\202\221\f\336\326\327\324#\210\333\337!\203\215\337\330,\"\210\335 \210\340\341!\210\342\343\203\233\344\202\234\345\"\210\346\347!\203\300\306 \203\260\211\306 \232\203\300\350\315\351\203\273\352\202\274\353#\266\210\340 \210\207" [orgtbl-mode minor-mode-map-alist org-table-may-need-update auto-fill-inhibit-regexp org-old-auto-fill-inhibit-regexp orgtbl-line-start-regexp current-message toggle prefix-numeric-value 0 org-load-modules-maybe derived-mode-p org-mode message "Orgtbl mode is not useful in Org mode, command ignored" orgtbl-setup defalias #[0 "\300\207" [nil] 1] delq make-local-variable t add-hook before-change-functions org-before-change-function nil local "\\|" fboundp font-lock-add-keywords org-restart-font-lock remove-hook font-lock-remove-keywords force-mode-line-update all run-hooks orgtbl-mode-hook orgtbl-mode-on-hook orgtbl-mode-off-hook called-interactively-p any " in current buffer" "Orgtbl mode %sabled%s" "en" "dis" orgtbl-extra-font-lock-keywords] 7 (#$ . 169244) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar orgtbl-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\207" [orgtbl-mode-map orgtbl-mode-hook variable-documentation put "Hook run after entering or leaving `orgtbl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode orgtbl-mode " OrgTbl" nil] 6)
#@251 Create a function for binding in the table minor mode.
FUN is the command to call inside a table.  N is used to create a unique
command name.  KEYS are keys that should be checked in for a command
to execute outside of tables.

(fn FUN N &rest KEYS)
(defalias 'orgtbl-make-binding #[642 "\300\301\302\303\304!P!\305\306\307!\310\311\312	\313#\314\260\315\316\317\320\321\fDD\322\323\320\324\325\326\327\"\330#DEF\257!\207" [eval defun intern "orgtbl-hijacker-command-" number-to-string (arg) "In tables, run `" symbol-name "'.\nOutside of tables, run the binding of `" mapconcat key-description "' or `" "'." (interactive "p") if (org-at-table-p) call-interactively quote let (orgtbl-mode) append (or) mapcar #[257 "\300D\207" [key-binding] 3 "\n\n(fn K)"] ('orgtbl-error)] 20 (#$ . 171371)])
#@57 Error when there is no default binding for a table key.
(defalias 'orgtbl-error #[0 "\300\301!\207" [user-error "This key has no function outside tables"] 2 (#$ . 172181) nil])
#@23 Setup orgtbl keymaps.
(defalias 'orgtbl-setup #[0 "\302\303\304\211\211\211\211A\262\242\211\262\2032T\262\305@!\262A@\262\306#\262\307#\210\202\307\310\306\311\312\313\314$#\210\307\314\306\311\315\314\316$#\210\307\317\306\320\321\322\323$#\210\307\323\306\320\324\323\325$#\210\307\326\306\327\330\331\332\323%#\210\307\333\306\334\335\336\337$#\210\307\340\306\327\341\342\343\344\345\323&#\210\307\346\306\327\347\350\351\352\353\323&#\210\307\354\306\355\356\354\357$#\210\307\360\306\355\361\362\354$#\210\307\363\364#\210\307\365\366#\210	\203\312\367\370\371\372\373\374\334&\210\307\375\376#\210\377\207" [orgtbl-mode-map orgtbl-optimized 0 (([(meta shift left)] org-table-delete-column) ([(meta left)] org-table-move-column-left) ([(meta right)] org-table-move-column-right) ([(meta shift right)] org-table-insert-column) ([(meta shift up)] org-table-kill-row) ([(meta shift down)] org-table-insert-row) ([(meta up)] org-table-move-row-up) ([(meta down)] org-table-move-row-down) ("" org-table-cut-region) ("\367" org-table-copy-region) ("" org-table-paste-rectangle) ("" org-table-wrap-region) ("-" org-table-insert-hline) ("}" org-table-toggle-coordinate-overlays) ("{" org-table-toggle-formula-debugger) ("
" org-table-next-row) ([(shift return)] org-table-copy-down) ("?" org-table-field-info) (" " org-table-blank-field) ("+" org-table-sum) ("=" org-table-eval-formula) ("'" org-table-edit-formulas) ("`" org-table-edit-field) ("*" org-table-recalculate) ("^" org-table-sort-lines) ("\341" org-table-beginning-of-field) ("\345" org-table-end-of-field) ([(control 35)] org-table-rotate-recalc-marks)) nil org-key orgtbl-make-binding org-defkey [(return)] orgtbl-ret 100 [(return)] "
" 101 [(return)] [(tab)] orgtbl-tab 102 [(tab)] "	" 103 [(tab)] [(shift tab)] org-table-previous-field 104 [(shift tab)] [(tab)] [backspace] org-delete-backward-char 109 [backspace] "" [S-iso-lefttab] 107 [S-iso-lefttab] [backtab] [(shift tab)] [(tab)] [backtab] 108 [backtab] [S-iso-lefttab] [(shift tab)] [(tab)] "\215" org-table-wrap-region 105 [(meta return)] [(meta return)] 106 [(meta return)] "" orgtbl-ctrl-c-ctrl-c "|" orgtbl-create-or-convert-from-region org-remap self-insert-command orgtbl-self-insert-command delete-char org-delete-char delete-backward-char "|" org-force-self-insert t] 17 (#$ . 172364)])
#@157 If the cursor is inside a table, realign the table.
If it is a table to be sent away to a receiver, do it.
With prefix arg, also recompute table.

(fn ARG)
(defalias 'orgtbl-ctrl-c-ctrl-c #[257 "\303`\304\212\305\306!\210\307\310!\203\311\225\202&\307\312!\203\202&\307\313!\205&\314\262)\211\250\203R\211b\210\315 \210\203?\316\317!\210\202B\320 \210\316\321!\210\322\323!\205|\324\325!\202|\211\314=\203t\212\305\306!\210\326\304x\210\327 \205p\317\303\211\316!)\266\202)\202|\304\316\330\331!!))\207" [case-fold-search current-prefix-arg orgtbl-mode t nil beginning-of-line 1 looking-at "[ 	]*#\\+ORGTBL:.*\n[ 	]*|" 0 "[ 	]*|" "[ 	]*#\\+tblfm:" recalc org-table-maybe-eval-formula call-interactively org-table-recalculate org-table-maybe-recalculate-line org-table-align orgtbl-send-table maybe run-hooks orgtbl-after-send-table-hook " 
\n	" org-at-table-p key-binding ""] 8 (#$ . 174748) "P"])
#@197 Create table or convert region to table, if no conflicting binding.
This installs the table binding `C-c |', but only if there is no
conflicting binding to this key outside orgtbl-mode.

(fn ARG)
(defalias 'orgtbl-create-or-convert-from-region #[257 "\301\302\303!\211\203\304!\202\304\305!)\207" [orgtbl-mode nil key-binding "|" call-interactively org-table-create-or-convert-from-region] 4 (#$ . 175678) "P"])
#@61 Justification and field motion for `orgtbl-mode'.

(fn ARG)
(defalias 'orgtbl-tab #[257 "\211\203\300\301!\207\302 \210\303 \207" [org-table-edit-field t org-table-justify-field-maybe org-table-next-field] 3 (#$ . 176103) "P"])
#@51 Justification and field motion for `orgtbl-mode'.
(defalias 'orgtbl-ret #[0 "o\203\300 \207\301 \210\302 \207" [newline org-table-justify-field-maybe org-table-next-row] 1 (#$ . 176339) nil])
#@218 Like `self-insert-command', use overwrite-mode for whitespace in tables.
If the cursor is in a table looking at whitespace, the whitespace is
overwritten, and the table is not marked as requiring realignment.

(fn N)
(defalias 'orgtbl-self-insert-command #[257 "\306 \203+\203	\307>\203\310 \210\211\311=\203+\312\313!\203+\314\311\224\311\225|\210\315!)\207\316\314\211\317\f<\203E\320
\f\"\211\262\203EA\206H\321
!!\206M\315\322!\210\205\227\211\315=\205\227	\323=\204i\311\211\202\227\324Y\203w\311\211\202\227\325V\203\221\203\221A@\204\221\211AA\241\210T\211)\207" [org-table-auto-blank-field last-command org-table-may-need-update orgtbl-mode function-key-map last-input-event org-at-table-p (orgtbl-hijacker-command-100 orgtbl-hijacker-command-101 orgtbl-hijacker-command-102 orgtbl-hijacker-command-103 orgtbl-hijacker-command-104 orgtbl-hijacker-command-105 yas/expand) org-table-blank-field 1 looking-at "[^|\n]* \\( \\)|" nil self-insert-command t key-binding assoc vector call-interactively orgtbl-self-insert-command 20 0 org-self-insert-cluster-for-undo org-self-insert-command-undo-counter buffer-undo-list] 7 (#$ . 176540) "p"])
#@63 Regular expression matching exponentials as produced by calc.
(defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$" (#$ . 177739))
#@89 Gather a plist of :name, :transform, :params for each destination before
a radio table.
(defalias 'orgtbl-gather-send-defs #[0 "\212\301 b\210\302\303\304!\210\305\306!\203T\307\310!\302\211\203#\311\304G$\210\202+\312\304G\302$\210\266\202\313\307\314!!\315\225\205@\316\317\307\315!\320Q!\321\322\323\257B\262\303\304!\266\202\n\211\262)\207" [org-rm-props org-table-begin nil beginning-of-line 0 looking-at "[ 	]*#\\+ORGTBL[: 	][ 	]*SEND[ 	]+\\([^ 	
\n]+\\)[ 	]+\\([^ 	
\n]+\\)\\([ 	]+.*\\)?" match-string 1 remove-text-properties set-text-properties intern 2 3 read "(" ")" :name :transform :params] 10 (#$ . 177897)])
#@56 Find and replace table NAME with TEXT.

(fn NAME TEXT)
(defalias 'orgtbl-send-replace-tbl #[514 "\212eb\210\300\301!\302\303\"\302\304\"\305\300\306#\203?\204\306\262\307\310!\305\300\306#\204/\311\312\"\210\313 \210\211`|\210\314\261\266\202?\205G\311\315!\266\204)\207" [nil regexp-quote format "BEGIN +RECEIVE +ORGTBL +%s\\([ 	]\\|$\\)" "END +RECEIVE +ORGTBL +%s\\([ 	]\\|$\\)" re-search-forward t line-beginning-position 2 user-error "Cannot find end of receiver location at %d" beginning-of-line "\n" "No valid receiver location found in the buffer"] 11 (#$ . 178545)])
#@283 Convert the table at point to a Lisp structure.

The structure will be a list.  Each item is either the symbol `hline'
for a horizontal separator line, or a list of field values as strings.
The table is taken from the parameter TXT, or from the buffer at point.

(fn &optional TXT)
(defalias 'org-table-to-lisp #[256 "\211\203!\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311 *\207\212\312 b\210\313\314\315\313\316#\203b\313\317\320!\203>\321B\262\202[\322\313w\210l\204U`\314\323!\210\303\224{B\262\202>\211\237B\262\210\313y\210\202'\211\237\262)\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-table-to-lisp org-table-begin nil re-search-forward "\\=[ 	]*|" t looking-at "-" hline " 	" "[ 	]*\\(|\\|$\\)"] 8 (#$ . 179146)])
#@475 Collapse the lines before 'hline into a single header.

The given TABLE is a list of lists as returned by `org-table-to-lisp'.
The leading lines before the first `hline' symbol are considered
forming the table header.  This function collapses all leading header
lines into a single header line, followed by the `hline' symbol, and
the rest of the TABLE.  Header cells are glued together with a space,
or the given SEPARATOR.

(fn TABLE &optional SEPARATOR MAX-HEADER-LINES)
(defalias 'org-table-collapse-header #[769 "@\300=\203\211A\262\210\202\206\301\206\302\211\303\211:\203>@\262\300=\204>\211A\262\242B\262A\262\202\211\237\266\203\203c\211GX\203c\304\305\306\307\310\311\312\n!\313\"\314\315%#B\202e\207" [hline " " 4 nil apply cl-mapcar make-byte-code 128 "\301\302\300#\303\304\203\305\202\306\307\304\310\307##\207" vconcat vector [mapconcat identity nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'"] 10 "\n\n(fn &rest X)"] 15 (#$ . 180002)])
#@176 Send a transformed version of table at point to the receiver position.
With argument MAYBE, fail quietly if no transformation is defined
for this table.

(fn &optional MAYBE)
(defalias 'orgtbl-send-table #[256 "\3002}\301 \204
\302\303!\210\304\305!\203\306 \210\307 \310 \311\204/\203+\312\300\313\"\210\202/\302\314!\210\211\203b\211@\315\316\"\315\317\"\315\320\"\321!\204M\302\322\"\210\323	\"\"\266T\262A\266\202\2020\210\324\325\211\326V\203p\327\202q\330#\210\211\311V\205z\211\266\2030\207" [exit org-at-table-p user-error "Not at a table" called-interactively-p any org-table-align orgtbl-gather-send-defs org-table-to-lisp 0 throw nil "Don't know how to transform this table" plist-get :name :transform :params fboundp "No such transformation function %s" orgtbl-send-replace-tbl message "Table converted and installed at %d receiver location%s" 1 "s" ""] 14 (#$ . 181039) nil])
#@129 Remove the elements in LIST with indices in INDICES.
First element has index 0, or I0 if given.

(fn LIST INDICES &optional I0)
(defalias 'org-remove-by-index #[770 "\211CC\211\242\204
\2029\211\242\250\203\211\242C\240\210\211\242\206 \300S\240\210\301\302\303\304\305\306\307\310\n\"\311\"\312\313%\"\"\207" [0 delq :rm mapcar make-byte-code 257 "\301\211\242T\240\210\301\242\300\242>\203\302\207\207" vconcat vector [:rm] 3 "\n\n(fn X)"] 15 (#$ . 181965)])
#@43 Comment or uncomment the orgtbl at point.
(defalias 'orgtbl-toggle-comment #[0 "\303\304\305	!\nQ\304\nP\212\306\307!\210\310!\203\303\202'\310!\203$\311\202'\312\313!)\211\2030\2021\311\211\212\306\307!\210\310!\203E\306\314!\210\2028\306\315!\210`\262\310!\203Y\306\315!\210\202L`\262)\316\205f\317#)\207" [case-fold-search comment-start orgtbl-line-start-regexp t "^" regexp-quote beginning-of-line 1 looking-at nil user-error "Not at an org table" 0 2 comment-region (4)] 10 (#$ . 182448) nil])
#@64 Insert a radio table template appropriate for this major mode.
(defalias 'orgtbl-insert-radio-table #[0 "\302\303\"\211A@\304\211\204\305\306	\"\210\307\310!\262\311\312\"\203*\313\314\211$\262\202n\2041\315c\210`\262c\210\211b\207" [orgtbl-radio-table-templates major-mode cl-assoc-if derived-mode-p nil user-error "No radio table setup defined for %s" read-string "Table name: " string-match "%n" replace-match t "\n"] 9 (#$ . 182978) nil])
#@2880 Convert the orgtbl-mode TABLE to some other format.

This generic routine can be used for many standard cases.

TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that
line.  PARAMS is a property list of parameters that can
influence the conversion.

Valid parameters are:

:backend, :raw

  Export back-end used as a basis to transcode elements of the
  table, when no specific parameter applies to it.  It is also
  used to translate cells contents.  You can prevent this by
  setting :raw property to a non-nil value.

:splice

  When non-nil, only convert rows, not the table itself.  This is
  equivalent to setting to the empty string both :tstart
  and :tend, which see.

:skip

  When set to an integer N, skip the first N lines of the table.
  Horizontal separation lines do count for this parameter!

:skipcols

  List of columns that should be skipped.  If the table has
  a column with calculation marks, that column is automatically
  discarded beforehand.

:hline

  String to be inserted on horizontal separation lines.  May be
  nil to ignore these lines altogether.

:sep

  Separator between two fields, as a string.

Each in the following group may be either a string or a function
of no arguments returning a string:

:tstart, :tend

  Strings to start and end the table.  Ignored when :splice is t.

:lstart, :lend

  Strings to start and end a new table line.

:llstart, :llend

  Strings to start and end the last table line.  Default,
  respectively, to :lstart and :lend.

Each in the following group may be a string or a function of one
argument (either the cells in the current row, as a list of
strings, or the current cell) returning a string:

:lfmt

  Format string for an entire row, with enough %s to capture all
  fields.  When non-nil, :lstart, :lend, and :sep are ignored.

:llfmt

  Format for the entire last line, defaults to :lfmt.

:fmt

  A format to be used to wrap the field, should contain %s for
  the original field value.  For example, to wrap everything in
  dollars, you could use :fmt "$%s$".  This may also be
  a property list with column numbers and format strings, or
  functions, e.g.,

    (:fmt (2 "$%s$" 4 (lambda (c) (format "$%s$" c))))

:hlstart :hllstart :hlend :hllend :hsep :hlfmt :hllfmt :hfmt

 Same as above, specific for the header lines in the table.
 All lines before the first hline are treated as header.  If
 any of these is not present, the data line value is used.

This may be either a string or a function of two arguments:

:efmt

  Use this format to print numbers with exponential.  The format
  should have %s twice for inserting mantissa and exponent, for
  example "%s\\times10^{%s}".  This may also be a property
  list with column numbers and format strings or functions.
  :fmt will still be applied after :efmt.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-generic #[514 "\304\305!\210\306\307\"\310\311\206\312\313\314\315!B\316\317!B\320\321	!B\322BBB$\323\211\324\325!r\211q\210\326\327\330\331\332!\333\"\334$\216\335\336 \210)p\323\211\203\206\211@\211\337=\203[\340\341!\210\202\211:\203\340\342!\210\211\211\203z\211@\340!\210\340\343!\210A\266\202\202e\210\340\344!\210A\266\202\202H\210*\323\345\346\347\323\n#\350\351	!D\"!)\262\352\306\353\"\354\355 \314\356\323\335%#\262*\210\203\3049\203\304\351!\204\304\357\360!\210\203\317\306\361\"\203\323\304\362!\210\306\363\"\211\203\376\364!\204\345\357\365!\210\327C\354\316\326\366\367\331\332		\"\370\"\371\372%\323\335%\266\210\306\373\"\211\203$\211:\204\357\374!\210\354\314\326\366\375\331\332!\376\"\377\201@%#\210\210\201A!\323C\354\2038\201B\2029\316\326\366\201C\331\332!\201D\"\201E\201F%#\210\201G\201H\242#\266\203\201I#\201J!\203w\201K\327\201L#\202z\201M\262\207" [org-inhibit-startup org-element-use-cache standard-output org-export-filters-alist require ox plist-get :backend org-export-create-backend :parent org :transcoders table org-table--to-generic-table table-row org-table--to-generic-row table-cell org-table--to-generic-cell ((macro lambda (m c i) (org-element-macro-interpreter m nil))) nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t org-mode hline princ "|--\n" "| " " |" "\n" org-export-install-filters org-combine-plists org-export-get-environment :back-end org-export-get-backend org-export-filter-apply-functions :filter-parse-tree org-element-map org-element-parse-buffer identity user-error "Unknown :backend value" :raw ox-org :skip wholenump "Wrong :skip value" 257 "\301\242\300Y\203	\302\207\303!\210\301\211\242T\240\210\304\207" [t org-element-extract-element nil] 3 "\n\n(fn ROW)" :skipcols "Wrong :skipcols value" "\301!\302!\211\205G\211@\303\304\"\305=\203@\306\203\306\202\307\302!\233\211\203>\211@\300>\2033\310!\210T\262A\266\202\202#\266A\266\202\202\262\207" [org-export-table-has-special-column-p org-element-contents org-element-property :type standard 1 0 org-element-extract-element] 9 "\n\n(fn TABLE)" org-export-table-has-special-column-p (table-cell table-row) "\301!\302=\203\303\304\"\202\305\304\"\205\300\300\242B\240\207" [org-element-type table-row org-export-table-row-is-special-p nil org-export-first-sibling-p] 4 "\n\n(fn DATUM)" plist-put :ignore-list org-export-data-with-backend org-string-nw-p substring-no-properties -1 ""] 18 (#$ . 183445)])
#@50 

(fn VALUE NAME &optional WITH-CONS &rest ARGS)
(defalias 'org-table--generic-apply #[898 "\204\300\207\301!\203\302\303DBB\207;\2033\211@:\203'\304\305BBB\207\211\2031\306BB\207\207\203f:\203f\307\310\311\312\313\303	DEDDC\314\315\316\306\310BBD\317\302\310BBD\320\321\322ED\257E\207\321\322\"\207" [nil functionp funcall quote apply #'format format let val cadr memq column cond ((null val) contents) (stringp val) (functionp val) t user-error "Wrong %s value"] 14 (#$ . 188975)])
#@132 Return custom table transcoder according to PARAMS.
PARAMS is a plist.  See `orgtbl-to-generic' for more
information.

(fn PARAMS)
(defalias 'org-table--to-generic-table #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\305\306\307\205%?\205%\307\310\311\"\312BB\2037\2047\2047\203;\313\202C\314\315	D\316BB\310?\205L\317\"FE\207" [plist-get :backend :splice :tstart :tend lambda (table contents info) concat org-table--generic-apply ":tstart" ("\n") contents org-export-with-backend quote (table contents info) ":tend"] 13 (#$ . 189496)])
#@136 Return custom table row transcoder according to PARAMS.
PARAMS is a plist.  See `orgtbl-to-generic' for more
information.

(fn PARAMS)
(defalias 'org-table--to-generic-row #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\300	\311\"\300\n\312\"\300\313\"\300\f\314\"\300
\315\"\316\317\320\321\322\323\"\203S\324\300\323\"\325\"\202`\205`\326\327D\330BB\331\332\204q\204q\f\205r\333D\334\204\203\204\203\f\205\204\335D\336BB\337\340\341\342\205\233\334\324
\343\344$D
\205\252\332\324\345\344$D\205\271\346\324\347\344$D\350\203\312\324\351\344	$\202G\352\342\204\326\205\345\334\352\324\353\"\340\324\354\"FD\204\357\205\376\332\352\324\355\"\340\324\356\"FD\204\205\346\352\324 \357\"\340\324\360\"FD\350 \204\"\2032\352\324\"\361\"\340\324 \362\"F\202C!\203B\326\327#D\363BB\202C\340D\257DD\257\262EEFE\207" [plist-get :backend :lstart :llstart :hlstart :hllstart :lend :llend :hlend :hllend :lfmt :llfmt :hlfmt :hllfmt lambda (row contents info) if (eq (org-element-property :type row) 'rule) plist-member :hline org-table--generic-apply ":hline" org-export-with-backend quote (row nil info) let headerp (org-export-table-row-in-header-p row info) last-header-p (org-export-table-row-ends-header-p row info) ((lastp (not (org-export-get-next-element row info)))) when contents (org-element-map row 'table-cell (lambda (cell) (org-export-data-with-backend cell (plist-get info :back-end) (org-combine-plists info '(:orgtbl-ignore-sep t)))) info) cond ":hllfmt" nil ":hlfmt" lastp ":llfmt" t ":lfmt" concat ":hllstart" ":hllend" ":hlstart" ":hlend" ":llstart" ":llend" ":lstart" ":lend" (row contents info)] 41 (#$ . 190068)])
#@137 Return custom table cell transcoder according to PARAMS.
PARAMS is a plist.  See `orgtbl-to-generic' for more
information.

(fn PARAMS)
(defalias 'org-table--to-generic-cell #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\307\310\205)\300	\311\"\205)\312\313\314\2044\2055\315D\316\317\320\f
E\"\205E\321DD\322\323\205_\322\324\313\325\326\323\327\330\331\332\333%EEE\334\205q\314\326\323\327\335\331\323$ED
\205\202\331\326\323\327\336\331\323$EDEF\204\216\203\315\337\340	?\205\227\341\342BB
\204\243\323\202\253\343\344D\345BB\346\323\f\203\301\203\301\337\314
F\202\310\206\310\fEF\202\336\203\335\343\344
D\347BB\202\336\323FF\207" [plist-get :backend :efmt :fmt :hfmt :sep :hsep lambda (cell contents info) :raw (setq contents (replace-regexp-in-string "\n" " " (org-trim (org-element-interpret-data (org-element-contents cell))))) let headerp (org-export-table-row-in-header-p (org-export-get-parent-element cell) info) column cl-some #[257 "\211\242\250\207" [] 2 "\n\n(fn V)"] (1+ (cdr (org-export-table-cell-address cell info))) when contents (string-match orgtbl-exp-regexp contents) ((mantissa (match-string 1 contents)) (exponent (match-string 2 contents))) setq org-table--generic-apply ":efmt" t mantissa exponent cond ":hfmt" ":fmt" if or (not headerp) ((plist-get info :orgtbl-ignore-sep) (not (org-export-get-next-element cell info))) org-export-with-backend quote (cell contents info) concat (cell contents info)] 26 (#$ . 191858)])
#@77 Convert the orgtbl-mode table to TAB separated material.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-tsv #[514 "\300\301\302\"\"\207" [orgtbl-to-generic org-combine-plists (:sep "	")] 7 (#$ . 193404)])
#@141 Convert the orgtbl-mode table to CSV material.
This does take care of the proper quoting of fields with comma or quotes.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-csv #[514 "\300\301\302\"\"\207" [orgtbl-to-generic org-combine-plists (:sep "," :fmt org-quote-csv-field)] 7 (#$ . 193611)])
#@604 Convert the orgtbl-mode TABLE to LaTeX.

TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion.  All parameters from `orgtbl-to-generic' are
supported.  It is also possible to use the following ones:

:booktabs

  When non-nil, use formal "booktabs" style.

:environment

  Specify environment to use, as a string.  If you use
  "longtable", you may also want to specify :language property,
  as a string, to get proper continuation strings.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-latex #[514 "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\"\315\311\316\313\317\"\206\320\257\f\"\"\207" [require ox-latex orgtbl-to-generic org-combine-plists :backend latex :latex-default-table-mode table :latex-tables-centered nil :latex-tables-booktabs plist-get :booktabs :latex-table-scientific-notation :latex-default-table-environment :environment "tabular"] 19 (#$ . 193907)])
#@448 Convert the orgtbl-mode TABLE to HTML.

TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion.  All parameters from `orgtbl-to-generic' are
supported.  It is also possible to use the following one:

:attributes

  Attributes and values, as a plist, which will be used in
  <table> tag.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-html #[514 "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\"\203\"\321\320\"\202#\322\257\f\"\"\207" [require ox-html orgtbl-to-generic org-combine-plists :backend html :html-table-data-tags ("<td%s>" . "</td>") :html-table-use-header-tags-for-first-column nil :html-table-align-individual-fields t :html-table-row-tags ("<tr>" . "</tr>") :html-table-attributes plist-member :attributes plist-get (:border "2" :cellspacing "0" :cellpadding "6" :rules "groups" :frame "hsides")] 19 (#$ . 194945)])
#@483 Convert the orgtbl-mode TABLE to Texinfo.

TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion.  All parameters from `orgtbl-to-generic' are
supported.  It is also possible to use the following one:

:columns

  Column widths, as a string.  When providing column fractions,
  "@columnfractions" command can be omitted.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-texinfo #[514 "\301\302!\210\303\304\305\306\307\310\311\310\257\"\"\312\313\"\211\204\310\2025\314\310\315\316#)\266\203\2032\211\2025\317P\262\211\204?\202H\320\321\315\310\322&\207" [inhibit-changing-match-data require ox-texinfo orgtbl-to-generic org-combine-plists :backend texinfo :texinfo-tables-verbatim nil :texinfo-table-scientific-notation plist-get :columns "{\\|@columnfractions " t string-match "@columnfractions " replace-regexp-in-string "@multitable \\(.*\\)" 1] 11 (#$ . 195952)])
#@524 Convert the orgtbl-mode TABLE into another orgtbl-mode table.

TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion.  All parameters from `orgtbl-to-generic' are
supported.

Useful when slicing one table into many.  The :hline, :sep,
:lstart, and :lend provide orgtbl framing.  :tstart and :tend can
be set to provide ORGTBL directives for the generated table.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-orgtbl #[514 "\300\301!\210\302\303\304\305D\"\"\207" [require ox-org orgtbl-to-generic org-combine-plists :backend org] 8 (#$ . 196983)])
#@326 Convert the orgtbl-mode TABLE into a table.el table.
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion.  All parameters from `orgtbl-to-generic' are
supported.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-table\.el #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\"c\210\312 \210\313\314\315\313\316\317\320\321 {##*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 orgtbl-to-orgtbl org-table-align replace-regexp-in-string "-|" "-+" "|-" "+-" 1 buffer-size] 11 (#$ . 197675)])
#@706 Convert the orgtbl-mode TABLE into a table with unicode characters.

TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion.  All parameters from `orgtbl-to-generic' are
supported.  It is also possible to use the following ones:

:ascii-art

  When non-nil, use "ascii-art-to-unicode" package to translate
  the table.  You can download it here:
  http://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el.

:narrow

  When non-nil, narrow columns width than provided width cookie,
  using "=>" as an ellipsis, just like in an Org mode buffer.

(fn TABLE PARAMS)
(defalias 'orgtbl-to-unicode #[514 "\300\301!\210\302\303\304\305\306\307\310\311	\312\"?\313\311\314\"\257\"\"\207" [require ox-ascii orgtbl-to-generic org-combine-plists :backend ascii :ascii-charset utf-8 :ascii-table-widen-columns plist-get :narrow :ascii-table-use-ascii-art :ascii-art] 15 (#$ . 198400)])
#@496 Draw an ascii bar in a table.
VALUE is the value to plot, it determines the width of the bar to draw.
MIN is the value that will be displayed as empty (zero width bar).
MAX is the value that will draw a bar filling all the WIDTH.
WIDTH is the span in characters from MIN to MAX.
CHARACTERS is a string that will compose the bar, with shades of grey
from pure white to pure black.  It defaults to a 10 characters string
of regular ascii characters.

(fn VALUE MIN MAX &optional WIDTH CHARACTERS)
(defalias 'orgtbl-ascii-draw #[1283 "\300\206\301!\206\f\302\211GS\303\247\203\202\304	!!\211Z	Z\245\305\306#!\211\307W\203=\310\202d\211_V\203J\311\202d\211\245_Z\312\234\"\313\234!P\266\202\207" [ceiling 12 " .:;c!lhVHW" float string-to-number round * 0 "too small" "too large" make-string string] 17 (#$ . 199429)])
#@338 Draw an ASCII bar plot in a column.

With cursor in a column containing numerical values, this function
will draw a plot in a new column.

ASK, if given, is a numeric prefix to override the default 12
characters width of the plot.  ASK may also be the `\[universal-argument]' prefix,
which will prompt for the width.

(fn &optional ASK)
(defalias 'orgtbl-ascii-plot #[256 "\300 \301\302\303 :\203\304\305\306\"\202\247\203\202\306@\307=\203,\211A\262\210\202\307>A\2064\211\203k\211@\211:\203dS8\262\310\311\"\203d\312!\262V\203[\211\262W\203d\211\262A\266\202\2024\210\313 \210\314 \210\315\316\317T!P\320\321\322			&B\323 B!\210\324\325!\207" [org-table-current-column 1.0e+INF -1.0e+INF org-table-to-lisp read-number "Length of column " 12 hline string-match "^[-+]?\\([0-9]*[.]\\)?[0-9]*\\([eE][+-]?[0-9]+\\)?$" string-to-number org-table-insert-column org-table-move-column-right org-table-store-formulas "$" number-to-string format "'(%s $%s %s %s %s)" "orgtbl-ascii-draw" org-table-get-stored-formulas org-table-recalculate t] 15 (#$ . 200294) "P"])
#@236 Draw a bar in a table using block unicode characters.
It is a variant of orgtbl-ascii-draw with Unicode block
characters, for a smooth display.  Bars appear as grids (to the
extent the font allows).

(fn VALUE MIN MAX &optional WIDTH)
(defalias 'orgtbl-uc-draw-grid #[1027 "\300\301%\207" [orgtbl-ascii-draw " ▏▎▍▌▋▊▉"] 10 (#$ . 201406)])
#@230 Draw a bar in a table using block unicode characters.
It is a variant of orgtbl-ascii-draw with Unicode block
characters, for a smooth display.  Bars are solid (to the extent
the font allows).

(fn VALUE MIN MAX &optional WIDTH)
(defalias 'orgtbl-uc-draw-cont #[1027 "\300\301%\207" [orgtbl-ascii-draw " ▏▎▍▌▋▊▉█"] 10 (#$ . 201770)])
#@617 Get a field value or a list of values in a range from table at ID.

NAME-OR-ID may be the name of a table in the current file as set
by a "#+NAME:" directive.  The first table following this line
will then be used.  Alternatively, it may be an ID referring to
any entry, also in a different file.  In this case, the first
table in that entry will be referenced.
FORM is a field or range descriptor like "@2$3" or "B3" or
"@I$2..@II$2".  All the references must be absolute, not relative.

The return value is either a single string for a single field, or a
list of the fields in the rectangle.

(fn NAME-OR-ID FORM)
(defalias 'org-table-get-remote-range #[514 "\306 \307\310\311\312\313!\314\"\315$\216\316\317\211\211\211\211\211\211\211\211\211\211\211\211\211%	&\n'(\f)*\320!\262\212\214~\210eb\210\321\322\323!\324Q\317\316#\203hp\262\310\224\262\202\223\325\326\"\262
\203{\327!\204\201\330\331\"\210\332!\262\333!\262
\317\211\223\210rq\210\212\214~\210\211b\210\334u\210\321\335\317\316#\203\256\334\224\203\264\330\336\"\210\337 \210\340\341!!\262\342+\"\203\337\343\310\"G\334V\203\337\344\343\310\"
\334#\202\341.\266\217)\207" [org-table-last-alignment org-table-last-column-widths org-table-hlines org-table-current-ncol org-table-dlines org-table-current-begin-pos match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 t nil org-table-convert-refs-to-rc re-search-forward "^[ 	]*#\\+\\(tbl\\)?name:[ 	]*" regexp-quote "[ 	]*$" org-id-find marker markerp user-error "Can't find remote table \"%s\"" marker-buffer marker-position 1 "^\\(\\*+ \\)\\|^[ 	]*|" "Cannot find a table at NAME or ID %s" org-table-analyze org-table-formula-substitute-names org-table-formula-handle-first/last-rc string-match match-string org-table-get-range org-table-current-line-types org-table-named-field-locations org-table-local-parameters org-table-column-name-regexp org-table-column-names case-fold-search org-table-range-regexp] 22 (#$ . 202131)])
#@303 Return formula with table remote references substituted by indirection.
For example "remote($1, @>$2)" => "remote(year_2013, @>$1)".
This indirection works only with the format @ROW$COLUMN.  The
format "B3" is not supported because it can not be
distinguished from a plain table name or ID.

(fn FORM)
(defalias 'org-table-remote-reference-indirection #[257 "\300\301\302\303\211\304&\207" ["\\<remote([ 	]*\\([@$][^ 	,]+\\)[ 	]*,[ 	]*\\([^\n)]+\\))" replace-regexp-in-string #[257 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\313\"!\314\315\316\317\320#)\266\203\203+\321P\202,!\262)\207" [inhibit-changing-match-data match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-formula-handle-first/last-rc match-string 1 org-table-get-range "\\`\\$[0-9]+\\'" nil t string-match "@0"] 11 "\n\n(fn M)"] t 1] 9 (#$ . 204199)])
#@13 

(fn MODE)
(defalias 'org-define-lookup-function '(macro . #[257 "\300!\301=\302=\211\203\303\202\304\305\306\307\310\"!\311\307\312\211\211%\313\314\2031\315B\2022\211\262\316	\203>\317\202?\320\321\322\f\205G\323\313\324\325\326\203T\327\202U\330EEF\331BBB\332BBB\257\262\207" [symbol-name first all "s" "" defun intern format "org-lookup-%s" (val s-list r-list &optional predicate) "Find %s occurrence%s of VAL in S-LIST; return corresponding element%s of R-LIST.\nIf R-LIST is nil, return matching element%s of S-LIST.\nIf PREDICATE is not nil, use it instead of `equal' to match VAL.\nMatching is done by (PREDICATE VAL S), where S is an element of S-LIST.\nThis function is generated by a call to the macro `org-define-lookup-function'." let ((p (or predicate 'equal)) (sl s-list) (rl (or r-list s-list)) (ret nil)) (match-p nil) while (and (not match-p) sl) sl when (funcall p val (car sl)) (setq match-p t) ((rval (car rl))) setq ret (append ret (list rval)) rval ((setq sl (cdr sl) rl (cdr rl))) (ret)] 21 (#$ . 205095)]))
#@395 Find first occurrence of VAL in S-LIST; return corresponding element of R-LIST.
If R-LIST is nil, return matching element of S-LIST.
If PREDICATE is not nil, use it instead of `equal' to match VAL.
Matching is done by (PREDICATE VAL S), where S is an element of S-LIST.
This function is generated by a call to the macro `org-define-lookup-function'.

(fn VAL S-LIST R-LIST &optional PREDICATE)
(defalias 'org-lookup-first #[1027 "\300\206\301\206\f\300\2040\2030	@\"\203%\302\262@\262A\262A\262\202
\207" [nil equal t] 12 (#$ . 206165)])
#@394 Find last occurrence of VAL in S-LIST; return corresponding element of R-LIST.
If R-LIST is nil, return matching element of S-LIST.
If PREDICATE is not nil, use it instead of `equal' to match VAL.
Matching is done by (PREDICATE VAL S), where S is an element of S-LIST.
This function is generated by a call to the macro `org-define-lookup-function'.

(fn VAL S-LIST R-LIST &optional PREDICATE)
(defalias 'org-lookup-last #[1027 "\211\206\300\206\301\203(@\"\203@\262A\262A\262\202\f\207" [equal nil] 11 (#$ . 206733)])
#@396 Find all occurrences of VAL in S-LIST; return corresponding elements of R-LIST.
If R-LIST is nil, return matching elements of S-LIST.
If PREDICATE is not nil, use it instead of `equal' to match VAL.
Matching is done by (PREDICATE VAL S), where S is an element of S-LIST.
This function is generated by a call to the macro `org-define-lookup-function'.

(fn VAL S-LIST R-LIST &optional PREDICATE)
(defalias 'org-lookup-all #[1027 "\211\206\300\206\301\203-@\"\203\"@\302C\"\266\202A\262A\262\202\f\207" [equal nil append] 12 (#$ . 207280)])
(provide 'org-table)

Youez - 2016 - github.com/yon3zu
LinuXploit