....................................../////.===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/vc/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/vc/vc-hg.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\306\322\310\303&	\210\312\323\314\315\324DD\325\320\326\306\327\310\303&	\210\312\330\314\315\331DD\332\320\333\306\334\310\303&	\210\312\335\314\315\336DD\337\320\340\306\341\310\303&	\210\312\342\314\315\343DD\344\320\345\310\303&\210\312\346\314\315\347DD\350\320\351\310\303\306\352&	\210\353\354\355\304#\207" [require cl-lib custom-declare-group vc-hg nil "VC Mercurial (hg) backend." :version "24.1" :group vc custom-declare-variable vc-hg-global-switches funcall function #[0 "\300\207" [nil] 1] "Global switches to pass to any Hg command." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "22.2" vc-hg-diff-switches #[0 "\300\207" [t] 1] "String or list of strings specifying switches for Hg diff under VC.\nIf nil, use the value of `vc-diff-switches'.  If t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "23.1" vc-hg-annotate-switches #[0 "\300\207" [("-u" "--follow")] 1] "String or list of strings specifying switches for hg annotate under VC.\nIf nil, use the value of `vc-annotate-switches'.  If t, use no\nswitches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "25.1" vc-hg-revert-switches #[0 "\300\207" [nil] 1] "String or list of strings specifying switches for hg revert\nunder VC." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "27.1" vc-hg-program #[0 "\300\207" [#2="hg"] 1 #2#] "Name of the Mercurial executable (excluding any arguments)." string vc-hg-root-log-format #[0 "\300\301\302BB\207" ["{rev}:{ifeq(branch, 'default','', '{branch}')}:{bookmarks}:{tags}:{author|person} {date|shortdate} {desc|firstline}\\n" "^\\(?:[+@o x|-]*\\)\\([0-9]+\\):\\([^:]*\\):\\([^:]*\\):\\([^:]*\\):\\(.*?\\)[ 	]+\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)" (((1 'log-view-message) (2 'change-log-file) (3 'change-log-list) (4 'change-log-conditionals) (5 'change-log-name) (6 'change-log-date)))] 3] "Mercurial log template for `vc-hg-print-log' short format.\nThis should be a list (TEMPLATE REGEXP KEYWORDS), where TEMPLATE\nis the \"--template\" argument string to pass to Mercurial,\nREGEXP is a regular expression matching the resulting Mercurial\noutput, and KEYWORDS is a list of `font-lock-keywords' for\nhighlighting the Log View buffer." (list string string (repeat sexp)) "24.5" put Hg vc-functions] 10)
(defvar vc-hg-history nil)
(defalias 'vc-hg-revision-granularity #[0 "\300\207" [repository] 1])
#@14 

(fn FILES)
(defalias 'vc-hg-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 3190)])
(defalias 'vc-hg-update-on-retrieve-tag #[0 "\300\207" [nil] 1])
#@58 Return non-nil if FILE is registered with hg.

(fn FILE)
(defalias 'vc-hg-registered #[257 "\300!\205\301!\211\205\211\302>?\262\207" [vc-hg-root vc-hg-state (ignored unregistered)] 4 (#$ . 3350)])
#@47 Hg-specific version of `vc-state'.

(fn FILE)
(defalias 'vc-hg-state #[257 "\300!\211\301=\203\302!\202\211\207" [vc-hg-state-fast unsupported vc-hg-state-slow] 4 (#$ . 3561)])
#@52 Determine status of FILE by running hg.

(fn FILE)
(defalias 'vc-hg-state-slow #[257 "\304!\262\305\306!\307\310!\311\216	r	q\210\3121:\313\314\315\316E\n\"\317\305\320\305\321\322\321\323\321\324\325\326\327!&
)0\202<\210\305\262*r	q\210\330 +\331=\205\207\211G\331V\205\207\332\333\"?\205\207\211\331H\211\334\267\202\204\335\202\205\336\202\205\337\202\205\340\202\205\341\202\205\342\202\205\343\202\205\335\202\205\335\262)\207" [default-directory standard-output process-environment vc-hg-program expand-file-name nil file-name-directory generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) append "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1" process-file t "--config" "ui.report_untrusted=0" "alias.status=status" "defaults.status=" "status" "-A" file-relative-name buffer-string 0 string-match ".*: No such file or directory$" #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (61 100 65 104 77 108 73 112 82 116 33 120 63 124 67 128)) up-to-date added edited ignored removed missing unregistered] 17 (#$ . 3750)])
#@58 Hg-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-hg-working-revision #[257 "\3011\"\302\303!\304\216\305\306\307\310\311&\210)rq\210\312 +0\202&\210\202)\206*\313\207" [standard-output (error) generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 "parent" "--template" "{rev}" buffer-string "0"] 8 (#$ . 4878)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\310\311\312\313&	\207" [custom-declare-variable vc-hg-symbolic-revision-styles funcall function #[0 "\300\207" [(builtin-active-bookmark "{if(bookmarks,sub(' ',',',bookmarks),if(phabdiff,phabdiff,shortest(node,6)))}")] 1] "List of ways to present versions symbolically.  The version\nthat we use is the first one that successfully produces a\nnon-empty string.\n\nEach entry in the list can be either:\n\n- The symbol `builtin-active-bookmark', which indicates that we\nshould use the active bookmark if one exists.  A template can\nsupply this information as well, but `builtin-active-bookmark' is\nhandled entirely inside Emacs and so is more efficient than using\nthe generic Mercurial mechanism.\n\n- A string giving the Mercurial template to supply to \"hg\nparent\".  \"hg help template\" may be useful reading.\n\n- A function to call; it should accept two arguments (a revision\nand an optional path to which to limit history) and produce a\nstring.  The function is called with `default-directory' set to\nwithin the repository.\n\nIf no list entry produces a useful revision, return `nil'." :type (repeat (choice (const :tag "Active bookmark" builtin-active-bookmark) (string :tag "Hg template") (function :tag "Custom"))) :version "26.1" :group vc-hg vc-hg-use-file-version-for-mode-line-version #[0 "\300\207" [nil] 1] "When enabled, the modeline contains revision information for the visited file.\nWhen not, the revision in the modeline is for the repository\nworking copy.  `nil' is the much faster setting for\nlarge repositories." boolean] 10)
#@12 

(fn REV)
(defalias 'vc-hg--active-bookmark-internal #[257 "\211\300\232\2057\301\302!\2055\30313\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210\316ed\"*\2620\2025\210\317\262\207" ["." ".hg/bookmarks.current" file-exists-p (error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-substring-no-properties nil] 9 (#$ . 6944)])
#@26 

(fn TEMPLATE REV PATH)
(defalias 'vc-hg--run-log #[771 "\3011;\302\303!\304\216\211\203\"\305\306\307\310\311\312\313\n	&	\210\2021\305\306\307\310\314\312\313&	\210)rq\210\315 +0\207\210\307\207" [standard-output (error) generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 nil "log" "-f" "-l1" "--template" "-r" buffer-string] 13 (#$ . 7403)])
#@215 Make a Mercurial revision human-readable.
REV is a Mercurial revision.  `default-directory' is assumed to
be in the repository root of interest.  PATH, if set, is a
specific file to query.

(fn REV &optional PATH)
(defalias 'vc-hg--symbolic-revision #[513 "\301\204?\211\203?\211A\262\242\204 \211\302=\203 \303!\2029\211;\203/\304#\2029\305!\2059\211\"\262\210\202\207" [vc-hg-symbolic-revision-styles nil builtin-active-bookmark vc-hg--active-bookmark-internal vc-hg--run-log functionp] 9 (#$ . 7825)])
#@58 Hg-specific version of `vc-mode-line-string'.

(fn FILE)
(defalias 'vc-hg-mode-line-string #[257 "\302\303!\304!\305\211\205\306\307!!\310\311	\205\")\211\206!\312\313\314=\204.\315=\203<\316\262\317\262\320Q\202\205\321\267\202z\322\262\323\262\324Q\202\205\325\262\326\262\327Q\202\205\330\262\331\262\327Q\202\205\332\262\333\262\334Q\202\205\335\262\336\262\337Q\340\341\342
\343R%\207" [default-directory vc-hg-use-file-version-for-mode-line-version "Hg" file-truename vc-state nil expand-file-name vc-hg-root vc-hg--symbolic-revision "." "???" propertize up-to-date needs-update "Up to date file" vc-up-to-date-state "-" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (added 66 conflict 80 removed 94 missing 108)) "Locally added file" vc-locally-added-state "@" "File contains conflicts after the last merge" vc-conflict-state "!" "File removed from the VC system" vc-removed-state "File tracked by the VC system, but missing from the file system" vc-missing-state "?" "Locally modified file" vc-edited-state ":" face help-echo " under the " " version control system"] 17 (#$ . 8362)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\"\207" [custom-declare-variable vc-hg-log-switches funcall function #[0 "\300\207" [nil] 1] "String or list of strings specifying switches for hg log under VC." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group vc-hg autoload vc-setup-buffer "vc-dispatcher"] 8)
#@52 If non-nil, use `--graph' in the short log output.
(defvar vc-hg-log-graph nil (#$ . 9967))
#@59 Mercurial log template for `vc-hg-print-log' long format.
(defvar vc-hg-log-format "changeset:   {rev}:{node|short}\n{tags % 'tag:         {tag}\n'}{if(parents, 'parents:     {parents}\n')}user:        {author}\nDate:        {date|date}\nsummary:     {desc|tabindent}\n\n" (#$ . 10065))
#@322 Print commit log associated with FILES into specified BUFFER.
If SHORTLOG is non-nil, use a short format based on `vc-hg-root-log-format'.
If START-REVISION is non-nil, it is the newest revision to show.
If LIMIT is non-nil, show no more than this many entries.

(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-hg-print-log #[1282 "\306!\210\307rq\210\310\311\312\313\205\314\315	\"C\205(\316\314\317\n\"D\244	\320=\2051\321C\244	\203E\322\n\205=\323\324@D\"\202H\324\fD\244
\244&*\207" [inhibit-read-only vc-log-view-type vc-hg-log-graph vc-hg-root-log-format vc-hg-log-format vc-hg-log-switches vc-setup-buffer t apply vc-hg-command async "log" format "-r%s:0" "-l" "%s" with-diff "-p" append ("--graph") "--template"] 16 (#$ . 10359)])
(defvar vc-hg-log-view-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-hg-log-view-mode-hook variable-documentation put "Hook run after entering Hg-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-hg-log-view-mode-map definition-name vc-hg-log-view-mode] 4)
(defvar vc-hg-log-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-hg-log-view-mode-abbrev-table vc-hg-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-hg-log-view-mode'." boundp vc-hg-log-view-mode-syntax-table definition-name vc-hg-log-view-mode (lambda (#1=#:def-tmp-var) (defvar vc-hg-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hg-log-view-mode'." (lambda (#1#) (defvar vc-hg-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hg-log-view-mode'." derived-mode-parent log-view-mode] 5)
#@529 Major mode derived from `log-view-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `vc-hg-log-view-mode-map', `vc-hg-log-view-mode-abbrev-table' and `vc-hg-log-view-mode-syntax-table'

which more-or-less shadow log-view-mode's corresponding tables.

In addition to any hooks its parent mode might have run,
this mode runs the hook `vc-hg-log-view-mode-hook', as the final or penultimate step
during initialization.

\{vc-hg-log-view-mode-map}
(defalias 'vc-hg-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
*=\204R\326
\325*C#\210\327!\210\330\f!\210
*\331\332!\210\306\333!\210+\306\334!\210\335\306\336!\210,\337=\203\202-A@\202\203\340\306\341!\210\342!,\337=\203\235\307.\306\343!\210\344#\306\345!\210,\337=\203\265-A@\342-8BC\202\272\346%\347\"%)\350\351!\207" [delay-mode-hooks major-mode mode-name vc-hg-log-view-mode-map vc-hg-log-view-mode-syntax-table vc-hg-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-hg-log-view-mode "Hg-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table require add-log log-view-file-re log-view-per-file-logs nil log-view-message-re short "^changeset:[ 	]*\\([0-9]+\\):\\(.+\\)" tab-width 2 log-view-expanded-log-entry-function vc-hg-expanded-log-entry log-view-font-lock-keywords append (("^user:[ 	]+\\([^<(]+?\\)[ 	]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^user:[ 	]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)" (1 'change-log-email)) ("^date: \\(.+\\)" (1 'change-log-date)) ("^tag: +\\([^ ]+\\)$" (1 'highlight)) ("^summary:[ 	]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-hg-log-view-mode-hook local-abbrev-table regexp-unmatchable vc-log-view-type vc-hg-root-log-format truncate-lines] 5 (#$ . 12410) nil])
(autoload 'vc-switches "vc")
#@156 Insert into BUFFER the history of FILE for lines LFROM to LTO.
This requires hg 4.4 or later, for the "-L" option of "hg log".

(fn FILE BUFFER LFROM LTO)
(defalias 'vc-hg-region-history #[1028 "\300\301\302\303\304\305\306\307\310\311!\f\f$&\207" [vc-hg-command async nil "log" "-f" "-p" "-L" format "%s,%d:%d" file-relative-name] 17 (#$ . 14617)])
(require 'diff-mode)
(defvar vc-hg-region-history-mode-map (byte-code "\302\303\302	D!\"\211\207" [diff-mode-map vc-hg-log-view-mode-map make-composed-keymap nil] 5))
(defvar vc-hg--log-view-long-font-lock-keywords nil)
(defvar vc-hg-region-history-font-lock-keywords '((vc-hg-region-history-font-lock)))
#@14 

(fn LIMIT)
(defalias 'vc-hg-region-history-font-lock #[257 "\212\303 \210\304\305!\204\306\305\307\310#\210\311\224f)\312=\212\313\314\310#\203$\315\224\202%)\203.\202/	\316`\"\210)\211b\210`W\307f\312=\262\262\204\307\207" [diff-font-lock-keywords vc-hg--log-view-long-font-lock-keywords font-lock-keywords beginning-of-line looking-at "^\\(?:diff\\|changeset\\)\\>" re-search-backward nil t 0 100 re-search-forward "\n\\(diff\\|changeset\\)\\>" 1 font-lock-fontify-keywords-region] 6 (#$ . 15285)])
(defvar vc-hg-region-history-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-hg-region-history-mode-hook variable-documentation put "Hook run after entering Hg-Region-History mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-hg-region-history-mode-map definition-name vc-hg-region-history-mode] 4)
(defvar vc-hg-region-history-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-hg-region-history-mode-abbrev-table vc-hg-region-history-mode-map variable-documentation put purecopy "Keymap for `vc-hg-region-history-mode'." boundp vc-hg-region-history-mode-syntax-table definition-name vc-hg-region-history-mode (lambda (#1=#:def-tmp-var) (defvar vc-hg-region-history-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hg-region-history-mode'." (lambda (#1#) (defvar vc-hg-region-history-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hg-region-history-mode'." derived-mode-parent vc-hg-log-view-mode] 5)
#@272 Major mode to browse Hg's "log -p" output.

In addition to any hooks its parent mode `vc-hg-log-view-mode' might have run,
this mode runs the hook `vc-hg-region-history-mode-hook', as the final or penultimate step
during initialization.

\{vc-hg-region-history-mode-map}
(defalias 'vc-hg-region-history-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\306\331!\210\306\332!\210\333AB)\334\335!\207" [delay-mode-hooks major-mode mode-name vc-hg-region-history-mode-map vc-hg-region-history-mode-syntax-table vc-hg-region-history-mode-abbrev-table make-local-variable t vc-hg-log-view-mode vc-hg-region-history-mode "Hg-Region-History" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table vc-hg--log-view-long-font-lock-keywords font-lock-defaults vc-hg-region-history-font-lock-keywords run-mode-hooks vc-hg-region-history-mode-hook local-abbrev-table log-view-font-lock-keywords] 5 (#$ . 17167) nil])
#@117 Get a difference report using hg between two revisions of FILES.

(fn FILES &optional OLDVERS NEWVERS BUFFER ASYNC)
(defalias 'vc-hg-diff #[1281 "@\211\205	\300!\232\203\204\301\262\204!\203!\211\262\302\303\206(\304\301\n\305\306\307\310\311\"
\205I\f\203E\312\312F\202I\312D\"&\207" [vc-working-revision nil apply vc-hg-command "*vc-diff*" "diff" append vc-switches hg diff "-r"] 19 (#$ . 18434)])
#@17 

(fn REVISION)
(defalias 'vc-hg-expanded-log-entry #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\211\315\316\317&\210eb\210m?\2053\320ed\311#\210db\210\321 *\207" [vc-hg-log-format generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "log" "-r" "--template" indent-region buffer-string] 11 (#$ . 18871)])
#@14 

(fn FILES)
(defalias 'vc-hg-revision-table #[257 "\301@!\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315\211\316\317%\210\313\314\315\211\320\317%\210\313\314\315\211\321\317%\210\322\323ed\"!*\262)\207" [default-directory file-name-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "branches" "-q" "bookmarks" "tags" split-string buffer-substring-no-properties] 8 (#$ . 19306)])
#@14 

(fn FILES)
(defalias 'vc-hg-revision-completion-table #[257 "\300C\211\301\302\303\304\305\306\"\307\"\310\311%\312\"\240\210\211\242\207" [nil completion-table-dynamic make-byte-code 257 "\302\301\242!\203\301\303\304\305\306\307\300!\310\"\311$ \240\210\301\242\207" vconcat vector [functionp make-byte-code 0 "\301\300!\207" vconcat vector [vc-hg-revision-table] 2] 8 "\n\n(fn STRING)" do-switch-buffer] 11 (#$ . 19818)])
#@157 Execute "hg annotate" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from.

(fn FILE BUFFER &optional REVISION)
(defalias 'vc-hg-annotate-command #[770 "\300\301\302\303\304\305\306\307\310\311\"\n\205\312PC\"&\207" [apply vc-hg-command 0 "annotate" "-dq" "-n" append vc-switches hg annotate "-r"] 15 (#$ . 20258)])
(defconst vc-hg-annotate-re "^\\(?: *[^ ]+ +\\)?\\([0-9]+\\) \\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\)\\(?: +\\([^:]+\\)\\)?:")
(defalias 'vc-hg-annotate-time #[0 "\301!\205/\302\225b\210\303\304\305!\306\302\211\211\307\310\311\312#!\307\310\313\311#!\307\310\302\313#!&\262!\207" [vc-hg-annotate-re looking-at 0 vc-annotate-convert-time match-string-no-properties 2 encode-time string-to-number substring 6 8 4] 13])
(defalias 'vc-hg-annotate-extract-revision-at-line #[0 "\212\302 \210\303!\205!\304\224\203\305\306!\307\305\304!\310	!\"B\202!\305\306!)\207" [vc-hg-annotate-re default-directory beginning-of-line looking-at 3 match-string-no-properties 1 expand-file-name vc-hg-root] 5])
#@78 Attach the tag NAME to the state of the working copy.

(fn DIR NAME BRANCHP)
(defalias 'vc-hg-create-tag #[771 "\301\302\303\302\304$\205\301\302\303\302\203\305\202\306%)\207" [default-directory vc-hg-command nil 0 "status" "bookmark" "tag"] 9 (#$ . 21347)])
#@100 Retrieve the version tagged by NAME of all registered files at or below DIR.

(fn DIR NAME UPDATE)
(defalias 'vc-hg-retrieve-tag #[771 "\301\302\303\302\304\305\232?\205%)\207" [default-directory vc-hg-command nil 0 "update" ""] 10 (#$ . 21625)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable vc-hg-parse-hg-data-structures funcall function #[0 "\300\207" [t] 1] "If true, try directly parsing Mercurial data structures\ndirectly instead of always running Mercurial.  We try to be safe\nagainst Mercurial data structure format changes and always fall\nback to running Mercurial directly." :type boolean :version "26.1" :group vc-hg] 10)
#@80 Read and advance over an unsigned byte.
Return the byte's value as an integer.
(defalias 'vc-hg--read-u8 #[0 "\300f\300u\210\207" [nil] 2 (#$ . 22325)])
(put 'vc-hg--read-u8 'byte-optimizer 'byte-compile-inline-expand)
#@61 Read and advance over a big-endian unsigned 32-bit integer.
(defalias 'vc-hg--read-u32-be #[0 "\300\301f\301u\210\302_\301f\301u\210\303_\301f\301u\210\304_\301f\301u\210$\207" [+ nil 16777216 65536 256] 6 (#$ . 22550)])
(put 'vc-hg--read-u32-be 'byte-optimizer 'byte-compile-inline-expand)
#@23 

(fn DIRSTATE FNAME)
(defalias 'vc-hg--raw-dirstate-search #[514 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314!\210\315!\210\314G\314\316db\210\317e\320\\\316#\2060ee\320\\b\210`W\203\355\321u\210\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$\211=\204o\211V\203\346`\\f\305=\203\346\326`\\\316#\203\346\327\\\206\201\330[u\210\314f\314u\210\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$F\262db\210\202\351\211u\210\210\2025*\266\203*\207" [case-fold-search inhibit-changing-match-data generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally t search-backward 40 13 + 16777216 65536 256 search-forward 17 1] 16 (#$ . 22847)])
(define-error 'vc-hg-unsupported-syntax "unsupported hgignore syntax")
(defconst vc-hg--pcre-c-escapes '((97 . 7) (98 . 8) (102 . 12) (110 . 10) (114 . 13) (116 . 9) (110 . 10) (114 . 13) (116 . 9) (118 . 11)))
(defconst vc-hg--pcre-metacharacters '(46 94 36 42 43 63 123 92 91 124 40))
(defconst vc-hg--elisp-metacharacters '(46 42 43 63 91 36 92))
#@10 

(fn C)
(defalias 'vc-hg--escape-for-pcre #[257 "\211>\203\301\302\"\207\207" [vc-hg--pcre-metacharacters string 92] 4 (#$ . 24206)])
#@85 Build a string from list PARTS.  Each element is a character or string.

(fn PARTS)
(defalias 'vc-hg--parts-to-string #[257 "\300\203(\211A\262\211@\211;\203\301\300\"\244\262\202#\241\210\262\266\202\302\303\"\207" [nil append apply string] 7 (#$ . 24351)])
#@297 Transform PCRE, a Mercurial file PCRE, into an elisp RE against PREFIX.
PREFIX is the directory name of the directory against which these
patterns are rooted.  We understand only a subset of PCRE syntax;
if we don't understand a construct, we signal
`vc-hg-unsupported-syntax'.

(fn PCRE PREFIX)
(defalias 'vc-hg--pcre-to-elisp-re #[514 "\302!\203\f\303!\204\304\305!\210\306\307\306\310GW\203H\311\267\202\312\313	#\203:\314\315	C\"\210\202\211\316\267\202\200\317\262\202\320\262\211B\262\202\307=\203^\321\262\202\314\315	C\"\210\202\322B\262\202\323B\262\211B\262\202\211B\262\202\211\324>\203\231\314\315	C\"\210\202\273\211>\203\256\323B\262\211B\262\202\273\211	\236A\206\266\211B\262\310\262\202\211B\262\211\323=\203\321\325\202\322\326\262\202\211\327>\203\344\314\315	C\"\210\211	\236A\206\354\211B\262\325\262\202\211B\262\211\330\267\202\326\262\202\310\262\202\202\331\332!\210T\262\210\202\310=\204+\314\315C\"\210\333\2036\334\2027\335\336!R\207" [vc-hg--elisp-metacharacters vc-hg--pcre-c-escapes file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p prefix) (directory-name-p prefix)) nil 0 normal #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (normal 38 backslash 137 charclass-enter 193 charclass-backslash 215 charclass 247)) string-match "}\\\\\\?\\|(\\?[^:]" signal vc-hg-unsupported-syntax #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (92 64 91 70 94 82 36 104 124 113 40 113 41 113)) backslash charclass-enter t "\\(?:$\\|/\\)" 92 (48 49 50 51 52 53 54 55 56 57 65 98 66 100 68 115 83 119 87 90 120) charclass charclass-backslash (48 120) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (92 259 93 265)) error "invalid state" "^" "" "\\(?:.*/\\)?" vc-hg--parts-to-string] 12 (#$ . 24635)])
#@74 Transform a glob pattern into a Mercurial file pattern regex.

(fn GLOB)
(defalias 'vc-hg--glob-to-pcre #[257 "\300\301G\301\300W\203MH\262T\262\211\302>\204%\303!B\262\202\211\304\267\202\nW\2054H\305=\203_T\262W\205FH\306=\203WT\262\307B\262\202\310B\262\202\311B\262\202\312B\262\202\211W\203\203H\313>\203\203\211T\262\211W\203\231H\314=\204\231\211T\262\202\203\211Y\203\250\315B\262\202\356\316#\317\320\211\321\211%\262T\262\211\301H\322=\203\316\211\211\301\323I\266\202\333\211\301H\323=\203\333\324P\262\325B\262\211B\262\314B\262\210\210\202T\262\326B\262\202\327B\262S\262\202\211\330=\203\301V\203\331B\262\202\211\332=\203C=\2032\320B\262\202T\262\332B\262\211B\262\202\303!B\262\202\333!\334P\207" [nil 0 (42 63 91 123 125 44 92) vc-hg--escape-for-pcre #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (42 43 63 103 91 111 123 242 125 254)) 42 47 "(?:.*/)?" ".*" "[^/]*" 46 (33 93) 93 "\\[" substring replace-regexp-in-string "\\\\" t 33 94 "\\" 91 "(?:" 41 44 124 92 vc-hg--parts-to-string "$"] 14 (#$ . 26627)])
#@20 

(fn PCRE PREFIX)
(defalias 'vc-hg--hgignore-add-pcre #[514 "\301\"B\211\207" [vc-hg--hgignore-patterns vc-hg--pcre-to-elisp-re] 5 (#$ . 27837)])
#@20 

(fn GLOB PREFIX)
(defalias 'vc-hg--hgignore-add-glob #[514 "\301\302!\"B\211\207" [vc-hg--hgignore-patterns vc-hg--pcre-to-elisp-re vc-hg--glob-to-pcre] 5 (#$ . 27994)])
#@20 

(fn PATH PREFIX)
(defalias 'vc-hg--hgignore-add-path #[514 "\300G\301\211W\203\211\302H!B\262\210\211T\262\202\266\303\304\305!\306Q\"\207" [nil 0 vc-hg--escape-for-pcre vc-hg--hgignore-add-pcre "^" vc-hg--parts-to-string "$"] 9 (#$ . 28176)])
#@24 

(fn HGIGNORE PREFIX)
(defalias 'vc-hg--slurp-hgignore-1 #[514 "\301\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\211\203\314!\210\3158\262\3168\262EB\210m?\205\342\214`\317 }\210\320\321!\204\333\320\322!\203N\301\262\202\333\320\323!\203Z\324\262\202\333\320\325!\203j\326\327\330!\"\210\202\333\320\331!\203z\324\327\330!\"\210\202\333\320\332!\203\212\301\327\330!\"\210\202\333\320\333!\203\275\327\330!\334\232\327\312!\335\336\"\203\243\211\202\251\337!P\340\203\265\337!\202\267\"\266\202\333\320\341!\203\316\342\343\327\305!C\"\210\202\333\320\344!\203\333\327\305!\"\210)\330y\210\2021*\262\207" [vc-hg--hgignore-filenames vc-hg--hgignore-add-pcre generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 file-attributes insert-file-contents 5 7 point-at-eol looking-at "[ 	]*\\(?:#.*\\)?$" "syntax:[ 	]*re[ 	]*$" "syntax:[ 	]*glob[ 	]*$" vc-hg--hgignore-add-glob "path:\\(.+?\\)[ 	]*$" vc-hg--hgignore-add-path match-string 1 "glob:\\(.+?\\)[ 	]*$" "re:\\(.+?\\)[ 	]*$" "\\(sub\\)?include:\\(.+?\\)[ 	]*$" "sub" string-match "^/" file-name-directory vc-hg--slurp-hgignore-1 "[a-zA-Z0-9_]*:" signal vc-hg-unsupported-syntax ".*$"] 11 (#$ . 28443)])
#@81 compiler-macro for inlining `vc-hg--ignore-patterns-p'.

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

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

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

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-repo #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 1] 5 (#$ . 30952)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg--ignore-patterns-repo side-effect-free t] 4)
#@95 compiler-macro for inlining `vc-hg--ignore-patterns-ignore-patterns'.

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

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-ignore-patterns #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 2] 5 (#$ . 31879)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg--ignore-patterns-ignore-patterns side-effect-free t] 4)
#@92 compiler-macro for inlining `vc-hg--ignore-patterns-file-sources'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg--ignore-patterns-file-sources--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg--ignore-patterns-file-sources (progn (or (vc-hg--ignore-patterns-p cl-x) (signal 'wrong-type-argument (list 'vc-hg--ignore-patterns cl-x))) (aref cl-x 3))) nil] 9 (#$ . 32305)])
(put 'vc-hg--ignore-patterns-file-sources 'compiler-macro 'vc-hg--ignore-patterns-file-sources--cmacro)
#@80 Access slot "file-sources" of `vc-hg--ignore-patterns' struct CL-X.

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-file-sources #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 3] 5 (#$ . 32824)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg--ignore-patterns-file-sources side-effect-free t] 4)
#@124 compiler-macro for inlining `vc-hg--ignore-patterns-make'.

(fn CL-WHOLE &cl-quote &key REPO IGNORE-PATTERNS FILE-SOURCES)
(defalias 'vc-hg--ignore-patterns-make--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :repo :ignore-patterns :file-sources (:repo :ignore-patterns :file-sources :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:repo :ignore-patterns :file-sources)" cl--defsubst-expand (repo ignore-patterns file-sources) (cl-block vc-hg--ignore-patterns-make (record 'vc-hg--ignore-patterns repo ignore-patterns file-sources))] 14 (#$ . 33242)])
(put 'vc-hg--ignore-patterns-make 'compiler-macro 'vc-hg--ignore-patterns-make--cmacro)
#@104 Constructor for objects of type `vc-hg--ignore-patterns'.

(fn &key REPO IGNORE-PATTERNS FILE-SOURCES)
(defalias 'vc-hg--ignore-patterns-make #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312$\207" [plist-member :repo :ignore-patterns :file-sources (:repo :ignore-patterns :file-sources :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:repo :ignore-patterns :file-sources)" record vc-hg--ignore-patterns] 9 (#$ . 34077)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put vc-hg--ignore-patterns-make side-effect-free t cl-struct-define vc-hg--ignore-patterns nil cl-structure-object record ((cl-tag-slot) (repo) (ignore-patterns) (file-sources)) cl-struct-vc-hg--ignore-patterns-tags] 11)
#@100 Read hg ignore patterns from REPO.
REPO must be the directory name of an hg repository.

(fn REPO)
(defalias 'vc-hg--slurp-hgignore #[257 "\302!\203\f\303!\204\304\305!\210\211\306P\307\211\310\"\210\311\312\313\237\314	\237&*\207" [vc-hg--hgignore-patterns vc-hg--hgignore-filenames file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p repo) (directory-name-p repo)) ".hgignore" nil vc-hg--slurp-hgignore-1 vc-hg--ignore-patterns-make :repo :ignore-patterns :file-sources] 10 (#$ . 34953)])
#@79 Return whether the cached ignore patterns in HGIP are still valid.

(fn HGIP)
(defalias 'vc-hg--ignore-patterns-valid-p #[257 "\301\302!>\204\303\304\305D\"\210\306H\211\203K\203K\211A\262\242\211A@\3078\310@!\211\3118\262\3128\262\232\203C\232\204F\313\262\266\202\207" [cl-struct-vc-hg--ignore-patterns-tags t type-of signal wrong-type-argument vc-hg--ignore-patterns 3 2 file-attributes 5 7 nil] 11 (#$ . 35496)])
#@135 Test whether the ignore pattern set HGIP says to ignore FILENAME.
FILENAME must be the file's true absolute name.

(fn HGIP FILENAME)
(defalias 'vc-hg--ignore-patterns-ignored-p #[514 "\302!>\204\303\304\305D\"\210\306H\307\310\203,\211\204,\311\211A\262\242\"\262\202)\207" [cl-struct-vc-hg--ignore-patterns-tags inhibit-changing-match-data type-of signal wrong-type-argument vc-hg--ignore-patterns 2 t nil string-match] 8 (#$ . 35949)])
#@39 Cached pre-parsed hg ignore patterns.
(defvar vc-hg--cached-ignore-patterns nil (#$ . 36411))
#@36 

(fn REPO REPO-RELATIVE-FILENAME)
(defalias 'vc-hg--file-ignored-p #[514 "\211\203\"\302!	>\204\303\304\305D\"\210\306H\232\203\"\307!\204+\310\311!\262\211\312P\"\207" [vc-hg--cached-ignore-patterns cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 1 vc-hg--ignore-patterns-valid-p nil vc-hg--slurp-hgignore vc-hg--ignore-patterns-ignored-p] 8 (#$ . 36511)])
#@13 

(fn REPO)
(defalias 'vc-hg--read-repo-requirements #[257 "\300!\203\f\301!\204\302\303!\210\211\304P\305!\205=\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320!\210\321!\210\322\323ed\"!*\262\207" [file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p repo) (directory-name-p repo)) ".hg/requires" file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally split-string buffer-substring-no-properties] 9 (#$ . 36942)])
#@174 List of Mercurial repository requirements we understand; if a
repository requires features not present in this list, we avoid
attempting to parse Mercurial data structures.
(defconst vc-hg-supported-requirements '("dotencode" "fncache" "generaldelta" "lz4revlog" "remotefilelog" "revlogv1" "store") (#$ . 37558))
#@127 Check that we understand the format of the given repository.
REPO is the directory name of a Mercurial repository.

(fn REPO)
(defalias 'vc-hg--requirements-understood-p #[257 "\301\302!\303\304$?\207" [vc-hg-supported-requirements cl-set-difference vc-hg--read-repo-requirements :test equal] 6 (#$ . 37878)])
#@178 Cache of the last result of `vc-hg--raw-dirstate-search'.
Avoids the need to repeatedly scan dirstate on repeated calls to
`vc-hg-state', as we see during registration queries.
(defvar vc-hg--dirstate-scan-cache nil (#$ . 38197))
#@43 

(fn DIRSTATE DIRSTATE-ATTR ASCII-FNAME)
(defalias 'vc-hg--cached-dirstate-search #[771 "\3018\262\3028\262\211\203F\211A\262\242\232\203F\211A\262\242\232\203F\211A\262\242\232\203F\211A\262\242\232\203F\211A\262\242\202X\303\"\257\211\262\207" [vc-hg--dirstate-scan-cache 5 7 vc-hg--raw-dirstate-search] 12 (#$ . 38433)])
#@209 Like `vc-hg-state', but parse internal data structures directly.
Returns one of the usual `vc-state' enumeration values or
`unsupported' if we need to take the slow path and run the
hg binary.

(fn FILENAME)
(defalias 'vc-hg-state-fast #[257 "\302\211\211\211\211\203o\303!\204o\304!\262\303!\204o\305!\211\262\203o\306!\262\307!\2036\310!\204:\311\312!\210\313P\262\314!\211\262\203o\315!\203o\3168\262\317W\204o\320\"\262\321\302\322\323#)\266\203\203s\324\202\366\325#\211@\314P!\326=\203\212\327\202\364\204\254\211\203\254\3301\247\331\"\203\242\332\202\243\3330\202\364\210\324\202\364\203\270\211\204\270\334\202\364\335\267\202\357\3368\3378\3168\262\340\3418\262\342\"\343\"\203\345\343\"\203\345\344\202\346\345\266\204\202\364\346\202\364\205\364\324\266\203\207" [vc-hg-parse-hg-data-structures inhibit-changing-match-data nil file-remote-p file-truename vc-hg-root expand-file-name file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p repo) (directory-name-p repo)) ".hg/dirstate" file-attributes vc-hg--requirements-understood-p 7 40 file-relative-name "[^[:ascii:]]" t string-match unsupported vc-hg--cached-dirstate-search 114 removed (vc-hg-unsupported-syntax) vc-hg--file-ignored-p ignored unregistered missing #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 190 97 235)) 2 3 time-convert 5 integer eql up-to-date edited added] 16 (#$ . 38805)])
#@17 

(fn FILE REV)
(defalias 'vc-hg-previous-revision #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\211\314\315\316\317P&\303=\205)edS{*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "id" "-n" "-r" "^"] 12 (#$ . 40335)])
#@17 

(fn FILE REV)
(defalias 'vc-hg-next-revision #[514 "\300!T\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\304\314\315\316%\210eb\210\317\320!\210\300\321\322!!*\262X\2057\323!\207" [string-to-number generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "tip" "--style=default" re-search-forward "^changeset:[ 	]*\\([0-9]+\\):" match-string-no-properties 1 number-to-string] 10 (#$ . 40694)])
#@60 Delete FILE and delete it in the hg repository.

(fn FILE)
(defalias 'vc-hg-delete-file #[257 "\3001\301!0\202\210\202\210\302\303\304\305\306\307&\207" [(file-error) delete-file vc-hg-command nil 0 "remove" "--after" "--force"] 8 (#$ . 41204)])
#@58 Rename file from OLD to NEW using `hg mv'.

(fn OLD NEW)
(defalias 'vc-hg-rename-file #[514 "\300\301\302\303%\207" [vc-hg-command nil 0 "mv"] 8 (#$ . 41465)])
#@76 Register FILES under hg. COMMENT is ignored.

(fn FILES &optional COMMENT)
(defalias 'vc-hg-register #[513 "\300\301\302\303$\207" [vc-hg-command nil 0 "add"] 7 (#$ . 41634)])
#@36 Create a new Mercurial repository.
(defalias 'vc-hg-create-repo #[0 "\300\301\302\301\303$\207" [vc-hg-command nil 0 "init"] 5 (#$ . 41817)])
(defalias 'vc-hg-responsible-p 'vc-hg-root)
#@37 Unregister FILE from hg.

(fn FILE)
(defalias 'vc-hg-unregister #[257 "\300\301\302\303$\207" [vc-hg-command nil 0 "forget"] 6 (#$ . 42009)])
#@110 Toggle whether this will amend the previous commit.
If toggling on, also insert its message into the buffer.
(defalias 'vc-hg-log-edit-toggle-amend #[0 "\300\301!\207" [log-edit--toggle-amend #[0 "\301\302!\303\216\304\305\306\307\310\311\312&\210)rq\210\313 +\207" [standard-output generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 1 nil "log" "--limit=1" "--template" "{desc}" buffer-string] 8]] 2 (#$ . 42159) nil])
(defvar vc-hg-log-edit-mode-map (byte-code "\300\301!\302\303\304#\210\211\207" [make-sparse-keymap "Hg-Log-Edit" define-key "" vc-hg-log-edit-toggle-amend] 5))
(defvar vc-hg-log-edit-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-hg-log-edit-mode-hook variable-documentation put "Hook run after entering Log-Edit/hg mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-hg-log-edit-mode-map definition-name vc-hg-log-edit-mode] 4)
(defvar vc-hg-log-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-hg-log-edit-mode-abbrev-table vc-hg-log-edit-mode-map variable-documentation put purecopy "Keymap for `vc-hg-log-edit-mode'." boundp vc-hg-log-edit-mode-syntax-table definition-name vc-hg-log-edit-mode (lambda (#1=#:def-tmp-var) (defvar vc-hg-log-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hg-log-edit-mode'." (lambda (#1#) (defvar vc-hg-log-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hg-log-edit-mode'." derived-mode-parent log-edit-mode] 5)
#@299 Major mode for editing Hg log messages.
It is based on `log-edit-mode', and has Hg-specific extensions.

In addition to any hooks its parent mode might have run,
this mode runs the hook `vc-hg-log-edit-mode-hook', as the final or penultimate step
during initialization.

\{vc-hg-log-edit-mode-map}
(defalias 'vc-hg-log-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name vc-hg-log-edit-mode-map vc-hg-log-edit-mode-syntax-table vc-hg-log-edit-mode-abbrev-table make-local-variable t log-edit-mode vc-hg-log-edit-mode "Log-Edit/hg" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks vc-hg-log-edit-mode-hook local-abbrev-table] 5 (#$ . 44067) nil])
#@96 Hg-specific version of `vc-backend-checkin'.
REV is ignored.

(fn FILES COMMENT &optional REV)
(defalias 'vc-hg-checkin #[770 "\300\301\302\303\304\305\306D\307\310\311\312\nBE\n\"\244%\207" [#[257 "\211\300\232\205\301C\207" ["yes" "--amend"] 3 "\n\n(fn VALUE)"] apply vc-hg-command nil 0 "commit" "-m" log-edit-extract-headers ("Author" . "--user") ("Date" . "--date") "Amend"] 15 (#$ . 45145)])
#@24 

(fn FILE REV BUFFER)
(defalias 'vc-hg-find-revision #[771 "\302\211\203\303\304\305\306&\202\303\304\305$*\207" [coding-system-for-write coding-system-for-read binary vc-hg-command 0 "cat" "-r"] 10 (#$ . 45555)])
#@65 Return the root directory of the repository of FILE.

(fn FILE)
(defalias 'vc-hg-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".hgignore" vc-hg-root] 5 (#$ . 45790)])
#@124 Retrieve a revision of FILE.
EDITABLE is ignored.
REV is the revision to check out into WORKFILE.

(fn FILE &optional REV)
(defalias 'vc-hg-checkout #[513 "\302\211r\303!\206\fpq\210\211\203\304\305\306\307\310&\202%\304\305\306\307$+\207" [coding-system-for-write coding-system-for-read binary get-file-buffer vc-hg-command t 0 "cat" "-r"] 9 (#$ . 45983)])
#@65 Call "hg resolve -m" if the conflict markers have been removed.
(defalias 'vc-hg-resolve-when-done #[0 "\212eb\210\301\302\303\304#?\205\305\303\306\307\310%\210\311\312\313\304#)\207" [buffer-file-name re-search-forward "^<<<<<<< " nil t vc-hg-command 0 "resolve" "-m" remove-hook after-save-hook vc-hg-resolve-when-done] 6 (#$ . 46359)])
(defalias 'vc-hg-find-file-hook #[0 "\205,\301!\302>\205,\212eb\210\303\304\305\306#)\205,\307\301\310#\210\311 \210\312\313\314\305\306$\210\315!\207" [buffer-file-name vc-state (edited conflict) re-search-forward "^<<<<<<< " nil t vc-file-setprop conflict smerge-start-session add-hook after-save-hook vc-hg-resolve-when-done vc-message-unresolved-conflicts] 5])
#@37 

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-hg-revert #[513 "\211?\205*\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\303\314\315\316\317\320\"!&*\262\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-hg-command t "revert" append vc-switches hg revert] 13 (#$ . 47080)])
(defvar vc-hg-extra-menu-map (byte-code "\300 \211\207" [make-sparse-keymap] 2))
(defalias 'vc-hg-extra-menu #[0 "\207" [vc-hg-extra-menu-map] 1])
(defalias 'vc-hg-extra-status-menu #[0 "\207" [vc-hg-extra-menu-map] 1])
#@79 compiler-macro for inlining `vc-hg-extra-fileinfo-p'.

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

(fn CL-X)
(defalias 'vc-hg-extra-fileinfo-p #[257 "\301!>\205	\302\207" [cl-struct-vc-hg-extra-fileinfo-tags type-of t] 3 (#$ . 48093)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-hg-extra-fileinfo-p side-effect-free error-free put vc-hg-extra-fileinfo cl-deftype-satisfies] 5)
#@91 compiler-macro for inlining `vc-hg-extra-fileinfo->rename-state'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg-extra-fileinfo->rename-state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo->rename-state (progn (or (vc-hg-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-hg-extra-fileinfo cl-x))) (aref cl-x 1))) nil] 9 (#$ . 48408)])
(put 'vc-hg-extra-fileinfo->rename-state 'compiler-macro 'vc-hg-extra-fileinfo->rename-state--cmacro)
#@78 Access slot "rename-state" of `vc-hg-extra-fileinfo' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg-extra-fileinfo->extra-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo->extra-name (progn (or (vc-hg-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-hg-extra-fileinfo cl-x))) (aref cl-x 2))) nil] 9 (#$ . 49327)])
(put 'vc-hg-extra-fileinfo->extra-name 'compiler-macro 'vc-hg-extra-fileinfo->extra-name--cmacro)
#@76 Access slot "extra-name" of `vc-hg-extra-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-hg-extra-fileinfo->extra-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg-extra-fileinfo-tags type-of signal wrong-type-argument vc-hg-extra-fileinfo 2] 5 (#$ . 49827)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg-extra-fileinfo->extra-name side-effect-free t] 4)
#@112 compiler-macro for inlining `make-vc-hg-extra-fileinfo'.

(fn CL-WHOLE &cl-quote &key RENAME-STATE EXTRA-NAME)
(defalias 'make-vc-hg-extra-fileinfo--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202
\304>A@\203.\305\262\202
\306\307@\"\210\202
\210\310\311\312\305\305&\207" [plist-member :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" cl--defsubst-expand (rename-state extra-name) (cl-block make-vc-hg-extra-fileinfo (record 'vc-hg-extra-fileinfo rename-state extra-name))] 12 (#$ . 50231)])
(put 'make-vc-hg-extra-fileinfo 'compiler-macro 'make-vc-hg-extra-fileinfo--cmacro)
#@92 Constructor for objects of type `vc-hg-extra-fileinfo'.

(fn &key RENAME-STATE EXTRA-NAME)
(defalias 'make-vc-hg-extra-fileinfo #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202
\304>A@\203.\305\262\202
\306\307@\"\210\202
\210\310\311#\207" [plist-member :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" record vc-hg-extra-fileinfo] 7 (#$ . 50975)])
(byte-code "\300\301\302\303#\300\207" [function-put make-vc-hg-extra-fileinfo side-effect-free t] 4)
#@103 compiler-macro for inlining `vc-hg-create-extra-fileinfo'.

(fn CL-WHOLE-ARG RENAME-STATE EXTRA-NAME)
(defalias 'vc-hg-create-extra-fileinfo--cmacro #[771 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (rename-state extra-name) (cl-block vc-hg-create-extra-fileinfo (record 'vc-hg-extra-fileinfo rename-state extra-name)) nil] 11 (#$ . 51582)])
(put 'vc-hg-create-extra-fileinfo 'compiler-macro 'vc-hg-create-extra-fileinfo--cmacro)
#@87 Constructor for objects of type `vc-hg-extra-fileinfo'.

(fn RENAME-STATE EXTRA-NAME)
(defalias 'vc-hg-create-extra-fileinfo #[514 "\300\301#\207" [record vc-hg-extra-fileinfo] 6 (#$ . 52032)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put vc-hg-create-extra-fileinfo side-effect-free t cl-struct-define vc-hg-extra-fileinfo nil cl-structure-object record ((cl-tag-slot) (rename-state) (extra-name)) cl-struct-vc-hg-extra-fileinfo-tags] 11)
#@62 Pretty-printer for the vc-dir-fileinfo structure.

(fn INFO)
(defalias 'vc-hg-dir-printer #[257 "\3018\302\303\"\210\211\205O\304\305\306\307!>\204\310\311\312D\"\210\313H\211\314\267\2024\315\2025\316\2025\317\2025\320\262\307!>\204G\310\311\312D\"\210\301H#\321\322#c\207" [cl-struct-vc-hg-extra-fileinfo-tags 2 vc-default-dir-printer Hg propertize format "   (%s %s)" type-of signal wrong-type-argument vc-hg-extra-fileinfo 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copied 40 renamed-from 44 renamed-to 48)) "copied from" "renamed from" "renamed to" nil face font-lock-comment-face] 10 (#$ . 52526)])
#@24 

(fn UPDATE-FUNCTION)
(defalias 'vc-hg-after-dir-status #[257 "\301\302\301\211\211\211eb\210m\204\226\303\301f\"A\262\304`\305\\\306 \"\262\204)\301\262\202\220\307\267\202H\301\262\202\220AA\211\310\311\312\n#\240\266\313\262\202\220\211\203\202\314=\203\202\315\3058!>\204e\316\317\311\3058D\"\210\3058\211\320\321I\266\310\311\322@#EB\262\301\262\202\220\301E\262B\262\301\262\301y\210\202	!\207" [cl-struct-vc-hg-extra-fileinfo-tags nil ((61 . up-to-date) (67 . up-to-date) (65 . added) (82 . removed) (77 . edited) (73 . ignored) (33 . missing) (32 . copy-rename-line) (63 . unregistered)) assoc buffer-substring-no-properties 2 line-end-position #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up-to-date 47 copy-rename-line 53)) record vc-hg-extra-fileinfo copied t removed type-of signal wrong-type-argument 1 renamed-from renamed-to] 13 (#$ . 53203)])
#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-hg-dir-status-files #[771 "\301p\302\303\304\305\306\307\n\205\310P\311&	\210)\312\313\314\315\316\317!\320\"\321$!\207" [default-directory vc-hg-command async "status" "re:" "-I" "." "-mardu" "i" "-C" vc-exec-after make-byte-code 0 "\301\300!\207" vconcat vector [vc-hg-after-dir-status] 2] 13 (#$ . 54156)])
#@28 

(fn NAME &rest COMMANDS)
(defalias 'vc-hg-dir-extra-header #[385 "\300\301\302#\300\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315p\306\316%\210\317edS\"*\262\301\320#P\207" [propertize face font-lock-type-face generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-hg-command nil buffer-substring-no-properties font-lock-variable-name-face] 11 (#$ . 54527)])
#@63 Generate extra status headers for a Mercurial tree.

(fn DIR)
(defalias 'vc-hg-dir-extra-headers #[257 "\211\301\302\303\"\304\301\305\306\307#\304\301\310\306\311#\260)\207" [default-directory vc-hg-dir-extra-header "Root       : " "root" "\n" "Branch     : " "id" "-b" "Tags       : " "-t"] 9 (#$ . 54991)])
#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hg-log-incoming #[514 "\300!\210\301\302\303\304\305\306\230?\205&\207" [vc-setup-buffer vc-hg-command 1 nil "incoming" "-n" ""] 10 (#$ . 55309)])
#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hg-log-outgoing #[514 "\300!\210\301\302\303\304\305\306\230?\205&\207" [vc-setup-buffer vc-hg-command 1 nil "outgoing" "-n" ""] 10 (#$ . 55515)])
#@63 Value of `compilation-error-regexp-alist' in *vc-hg* buffers.
(defvar vc-hg-error-regexp-alist '(("^M \\(.+\\)" 1 nil nil 0)) (#$ . 55721))
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload vc-do-async-command "vc-dispatcher" log-view-get-marked "log-view"] 3)
#@371 Run COMMAND (a string; either push or pull) on the current Hg branch.
If PROMPT is non-nil, prompt for the Hg command to run.
POST-PROCESSING is a list of commands to execute after the command.
If OBSOLETE is non-nil, behave like the old versions of the Hg push/pull
commands, which only operated on marked files.

(fn COMMAND PROMPT POST-PROCESSING &optional OBSOLETE)
(defalias 'vc-hg--pushpull #[1027 "C\303\203$\304 \211\262\203$\305\306\303\307\303\242\305\310\311\312\n\"\"&\202\234\313!\314\315\316!\"\317	B\nC\303C\203g\211\320\321\314\322\n\242\"\314\323\242\f\242#\324#\325\326#\240\210\242@\240\210\242A@\240\210\211\242AA\240\210\305\327\242\n\242\242&\210rq\210\330\331\307\332\333\334&\335\"\336$!\210)\337!)\266\204\262\207" [default-directory process-environment vc-hg-program nil log-view-get-marked apply vc-hg-command 0 nconc mapcar #[257 "\300D\207" ["-r"] 3 "\n\n(fn ARG)"] vc-hg-root format "*vc-hg : %s*" expand-file-name "HGPLAIN=1" split-string read-shell-command "Hg %s command: " "%s %s" vc-hg-history " " t vc-do-async-command vc-exec-after make-byte-code "\301\211\203\211@\306\307\303\310\304\242\310&\210A\266\202\202\210\311\312!\210\313\314!\210\304\242\315\300\242\315\316\317\305\242\315#\316\320\321\322\323\324\304!\325\"\326\327%\301\330#\260\f\313\331!\210\302\313\332!\210\f\310\320\321\333\323\324\303!\334\"\335\336%\310F\211\207" vconcat vector [apply vc-do-command nil vc-compilation-mode hg make-local-variable compile-command " " mapconcat identity make-byte-code 257 "\301\300\242\302\303\304\302#R\207" vconcat vector [" && " " " mapconcat identity] 8 "\n\n(fn ARGS)" "" compilation-directory compilation-arguments "\300\207" [] 2 "\n\n(fn NAME-OF-MODE)"] 12 vc-set-async-update] 22 (#$ . 55999)])
#@409 Issue a Mercurial pull command.
If called interactively with a set of marked Log View buffers,
call "hg pull -r REVS" to pull in the specified revisions REVS.

With a prefix argument or if PROMPT is non-nil, prompt for a
specific Mercurial pull command.  The default is "hg pull -u",
which fetches changesets from the default remote repository and
then attempts to update the working directory.

(fn PROMPT)
(defalias 'vc-hg-pull #[257 "\300\301\302\303\304!$\207" [vc-hg--pushpull "pull" (("--pager" "no" "status" "--rev" "." "--rev" "tip") ("update")) called-interactively-p interactive] 7 (#$ . 57818) "P"])
#@275 Push changes from the current Mercurial branch.
Normally, this runs "hg push".  If PROMPT is non-nil, prompt
for the Hg command to run.

If called interactively with a set of marked Log View buffers,
call "hg push -r REVS" to push the specified revisions REVS.

(fn PROMPT)
(defalias 'vc-hg-push #[257 "\300\301\302\303\304!$\207" [vc-hg--pushpull "push" nil called-interactively-p interactive] 7 (#$ . 58437) "P"])
#@92 Prompt for revision and merge it into working directory.
This runs the command "hg merge".
(defalias 'vc-hg-merge-branch #[0 "\303!\304\305\306!\"\307	B\310\311!\312\313\n\314\315\316\230?\205\"C\"%\210rq\210\317\320!\210)\321!)\207" [default-directory process-environment vc-hg-program vc-hg-root format "*vc-hg : %s*" expand-file-name "HGPLAIN=1" vc-read-revision "Revision to merge: " apply vc-do-async-command append ("--config" "ui.report_untrusted=0" "merge") "" vc-exec-after #[0 "\300\301!\207" [vc-compilation-mode hg] 2] vc-set-async-update] 12 (#$ . 58860)])
#@234 A wrapper around `vc-do-command' for use in vc-hg.el.
This function differs from vc-do-command in that it invokes
`vc-hg-program', and passes `vc-hg-global-switches' to it before FLAGS.

(fn BUFFER OKSTATUS FILE-OR-LIST &rest FLAGS)
(defalias 'vc-hg-command #[899 "\303B\304\305\"\306\307\206\310	\n;\203\"\nB\202'\304\n\"&)\207" [process-environment vc-hg-program vc-hg-global-switches "HGPLAIN=1" append ("--config" "ui.report_untrusted=0") apply vc-do-command "*vc*"] 15 (#$ . 59449)])
#@13 

(fn FILE)
(defalias 'vc-hg-root #[257 "\300\301\"\207" [vc-find-root ".hg"] 4 (#$ . 59963)])
(provide 'vc-hg)

Youez - 2016 - github.com/yon3zu
LinuXploit