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

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/newcomment.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\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\311\312\313\314\315\316\317\320\321\322&	\207" [defalias indent-for-comment comment-indent set-comment-column comment-set-column kill-comment comment-kill indent-new-comment-line comment-indent-new-line custom-declare-group comment nil "Indenting and filling of comments." :prefix "comment-" :version "21.1" :group fill] 10)
#@287 Non-nil if syntax-tables can be used instead of regexps.
Can also be `undecided' which means that a somewhat expensive test will
be used to try to determine whether syntax-tables should be trusted
to understand comments or not in the given buffer.
Major modes should set this variable.
(defvar comment-use-syntax 'undecided (#$ . 819))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\316\312!\210\317\312\320\321#\207" [custom-declare-variable comment-fill-column funcall function #[0 "\300\207" [nil] 1] "Column to use for `comment-indent'.  If nil, use `fill-column' instead." :type (choice (const nil) integer) :group comment comment-column #[0 "\300\207" [32] 1] "Column to indent right-margin comments to.\nEach mode may establish a different default value for this variable; you\ncan set the value for a particular mode using that mode's hook.\nComments might be indented to a different value in order not to go beyond\n`comment-fill-column' or in order to align them with surrounding comments." integer make-variable-buffer-local put safe-local-variable integerp] 8)
#@71 String to insert to start a new comment, or nil if no comment syntax.
(defvar comment-start nil (#$ . 1960))
(put 'comment-start 'safe-local-variable 'string-or-null-p)
#@233 Regexp to match the start of a comment plus everything up to its body.
If there are any \(...\) pairs and `comment-use-syntax' is nil,
the comment delimiter text is held to begin at the place matched
by the close of the first pair.
(defvar comment-start-skip nil (#$ . 2136))
(put 'comment-start-skip 'safe-local-variable 'stringp)
#@72 Regexp to match the end of a comment plus everything back to its body.
(defvar comment-end-skip nil (#$ . 2474))
(put 'comment-end-skip 'safe-local-variable 'stringp)
#@109 String to insert to end a new comment.
Should be an empty string if comments are terminated by end-of-line.
(defvar comment-end (purecopy "") (#$ . 2648))
(put 'comment-end 'safe-local-variable 'stringp)
#@345 Function to compute desired indentation for a comment.
This function is called with no args with point at the beginning
of the comment's starting delimiter and should return either the
desired column indentation, a range of acceptable
indentation (MIN . MAX), or nil.
If nil is returned, indentation is delegated to `indent-according-to-mode'.
(defvar comment-indent-function 'comment-indent-default (#$ . 2859))
#@203 Function to insert a comment when a line doesn't contain one.
The function has no args.

Applicable at least in modes for languages like fixed-format Fortran where
comments always start in column zero.
(defvar comment-insert-comment-function nil (#$ . 3279))
#@319 If non-nil (the default), use `combine-change-calls' around
  calls of `comment-region-function' and
  `uncomment-region-function'.  This Substitutes a single call to
  each of the hooks `before-change-functions' and
  `after-change-functions' in place of those hooks being called
  for each individual buffer change.
(defvar comment-combine-change-calls t (#$ . 3545))
(make-variable-buffer-local 'comment-combine-change-calls)
#@292 Function to comment a region.
Its args are the same as those of `comment-region', but BEG and END are
guaranteed to be correctly ordered.  It is called within `save-excursion'.

Applicable at least in modes for languages like fixed-format Fortran where
comments always start in column zero.
(defvar comment-region-function 'comment-region-default (#$ . 3981))
#@296 Function to uncomment a region.
Its args are the same as those of `uncomment-region', but BEG and END are
guaranteed to be correctly ordered.  It is called within `save-excursion'.

Applicable at least in modes for languages like fixed-format Fortran where
comments always start in column zero.
(defvar uncomment-region-function 'uncomment-region-default (#$ . 4348))
(defvar block-comment-start nil)
(defvar block-comment-end nil)
#@103 Non-nil if nested comments should be quoted.
This should be locally set by each major mode if needed.
(defvar comment-quote-nested t (#$ . 4787))
#@171 Function to quote nested comments in a region.
It takes the same arguments as `comment-quote-nested-default',
and is called with the buffer narrowed to a single comment.
(defvar comment-quote-nested-function 'comment-quote-nested-default (#$ . 4940))
#@443 Continuation string to insert for multiline comments.
This string will be added at the beginning of each line except the very
first one when commenting a region with a commenting style that allows
comments to span several lines.
It should generally have the same length as `comment-start' in order to
preserve indentation.
If it is nil a value will be automatically derived from `comment-start'
by replacing its first character with a space.
(defvar comment-continue nil (#$ . 5198))
#@333 How many more comment chars should be inserted by `comment-region'.
This determines the default value of the numeric argument of `comment-region'.
The `plain' comment style doubles this value.

This should generally stay 0, except for a few modes like Lisp where
it is 1 so that regions are commented with two or three semi-colons.
(defvar comment-add 0 (#$ . 5689))
#@1396 Comment region style definitions.
Each style is defined with a form (STYLE . (MULTI ALIGN EXTRA INDENT DOC)).
DOC should succinctly describe the style.
STYLE should be a mnemonic symbol.
MULTI specifies that comments are allowed to span multiple lines.
  e.g. in C it comments regions as
     /* blabla
      * bli */
  rather than
     /* blabla */
     /* bli */
  if `comment-end' is empty, this has no effect.

ALIGN specifies that the `comment-end' markers should be aligned.
  e.g. in C it comments regions as
     /* blabla */
     /* bli    */
  rather than
     /* blabla */
     /* bli */
  if `comment-end' is empty, this has no effect, unless EXTRA is also set,
  in which case the comment gets wrapped in a box.

EXTRA specifies that an extra line should be used before and after the
  region to comment (to put the `comment-end' and `comment-start').
  e.g. in C it comments regions as
     /*
      * blabla
      * bli
      */
  rather than
     /* blabla
      * bli */
  if the comment style is not multi line, this has no effect, unless ALIGN
  is also set, in which case the comment gets wrapped in a box.

INDENT specifies that the `comment-start' markers should not be put at the
  left margin but at the current indentation of the region to comment.
If INDENT is `multi-char', that means indent multi-character
  comment starters, but not one-character comment starters.
(defconst comment-styles '((plain nil nil nil nil "Start in column 0 (do not indent), as in Emacs-20") (indent-or-triple nil nil nil multi-char "Start in column 0, but only for single-char starters") (indent nil nil nil t "Full comment per line, ends not aligned") (aligned nil t nil t "Full comment per line, ends aligned") (box nil t t t "Full comment per line, ends aligned, + top and bottom") (extra-line t nil t t "One comment for all lines, end on a line by itself") (multi-line t nil nil t "One comment for all lines, end on last commented line") (box-multi t t t t "One comment for all lines, + top and bottom")) (#$ . 6064))
(byte-code "\301\302\303\304\305DD\306\307\310\300!\203\311\312\313\"B\202\314\315\316\317\320&	\210\301\321\303\304\322DD\323\307\324\317\320&\210\301\325\303\304\326DD\327\315\330\307\331\317\320&	\210\301\332\303\304\333DD\334\307\335\336\337\317\320&	\210\301\340\303\304\341DD\342\307\343\317\320&\207" [comment-styles custom-declare-variable comment-style funcall function #[0 "\300\207" [indent] 1] "Style to be used for `comment-region'.\nSee `comment-styles' for a list of available styles." :type boundp choice mapcar #[257 "\300\301\302\303@\3048#@F\207" [const :tag format "%s: %s" 5] 8 "\n\n(fn S)"] symbol :version "23.1" :group comment comment-padding #[0 "\300\301!\207" [purecopy " "] 2] "Padding string that `comment-region' puts between comment chars and text.\nCan also be an integer which will be automatically turned into a string\nof the corresponding number of spaces.\n\nExtra spacing between the comment characters and the comment text\nmakes the comment easier to read.  Default is 1.  nil means 0." (choice string integer (const nil)) comment-inline-offset #[0 "\300\207" [1] 1] "Inline comments have to be preceded by at least this many spaces.\nThis is useful when style-conventions require a certain minimal offset.\nPython's PEP8 for example recommends two spaces, so you could do:\n\n(add-hook \\='python-mode-hook\n   (lambda () (set (make-local-variable \\='comment-inline-offset) 2)))\n\nSee `comment-padding' for whole-line comments." "24.3" integer comment-multi-line #[0 "\300\207" [nil] 1] "Non-nil means `comment-indent-new-line' continues comments.\nThat is, it inserts no new terminator or starter.\nThis affects `auto-fill-mode', which is the main reason to\ncustomize this variable.\n\nIt also affects \\[indent-new-comment-line].  However, if you want this\nbehavior for explicit filling, you might as well use \\[newline-and-indent]." boolean :safe booleanp comment-empty-lines #[0 "\300\207" [nil] 1] "If nil, `comment-region' does not comment out empty lines.\nIf t, it always comments out empty lines.\nIf `eol', it only comments out empty lines if comments are\nterminated by the end of line (i.e., `comment-end' is empty)." (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "EOL-terminated" eol))] 10)
#@99 Strip STR of any leading (if BEFOREP) and/or trailing (if AFTERP) space.

(fn STR BEFOREP AFTERP)
(defalias 'comment-string-strip #[771 "\300\301\205\302\303\205
\304\305\260\"\210\306\307\"\207" [string-match "\\`" "\\s-*" "\\(.*?\\)" "\\s-*\n?" "\\'" match-string 1] 9 (#$ . 10383)])
#@74 Return the mirror image of string S, without any trailing space.

(fn S)
(defalias 'comment-string-reverse #[257 "\300\301\302\"\262\237\260\302\303#\207" [comment-string-strip append nil t] 6 (#$ . 10683)])
#@337 Check and set up variables needed by other commenting functions.
All the `comment-*' commands call this function to set up various
variables, like `comment-start', to ensure that the commenting
functions work correctly.  Lisp callers of any other `comment-*'
function should first call this function explicitly.

(fn &optional NOERROR)
(defalias 'comment-normalize-vars #[256 "?\205\211?\205!\204,\306\307!\211G\310U\203\311\312!\210\202+\313\300!\210\211\313\301!\210\211\210\n\314=\203q\313\302!\210\315 \316\230\203C\317\202D\320\321!r\211q\210\322\310\323\324\325!\326\"\327$\216\330!\210\331\261\210eb\210\332\333!\205km*\262\266\203\f\204w\310\f\250\203\201\334\f\335\"
\204\241\316\230\204\241\313\305!\210\336\337\"\203\232\340\202\233\341\342\333\"P	\203\254\336	\"\204\303\313\301!\210\n\343=?\205\270\344\345\346\347\343\211#!\350R)\205\327\336)\316\230\203\325\317\202\326\"?\205!\316\230\203\345\317\202\352\347\343\211#\313\351!\210\352.\203\370\316\202\371\353\354\346\342\310\333#!.\203G\333X\203\316\202\353\346\342\333\"!\355\260\211)\262\207" [comment-start comment-start-skip comment-use-syntax comment-end comment-padding comment-continue read-string "No comment syntax is defined.  Use: " 0 error "No comment syntax defined" make-local-variable undecided syntax-table "" "\n" generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-syntax-table " hello " forward-comment 1 make-string 32 string-match "\\S-\\S-" " " "|" substring t "\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\)" "\\(?:\\s<+\\|" regexp-quote comment-string-strip "+\\)[ 	]*" comment-end-skip "[ 	]*\\(\\s>" "+" "\\|" "\\)" comment-quote-nested] 11 (#$ . 10902)])
#@16 

(fn STR UNP)
(defalias 'comment-quote-re #[514 "\300\301\302\303#!\304\203\305\202\306\300\301\303\"!R\207" [regexp-quote substring 0 1 "\\\\" "+" "*"] 9 (#$ . 12692)])
#@102 Quote or unquote nested comments.
If UNP is non-nil, unquote nested comment markers.

(fn CS CE UNP)
(defalias 'comment-quote-nested #[771 "\302\303\211#\262\302\303\211#\262\205G\304V\205	#\207" [comment-quote-nested comment-quote-nested-function comment-string-strip t 0] 7 (#$ . 12878)])
#@476 Quote comment delimiters in the buffer.
It expects to be called with the buffer narrowed to a single comment.
It is used as a default for `comment-quote-nested-function'.

The arguments CS and CE are strings matching comment starting and
ending delimiters respectively.

If UNP is non-nil, comments are unquoted instead.

To quote the delimiters, a \ is inserted after the first
character of CS or CE.  If CE is a single character it will
change CE into !CS.

(fn CS CE UNP)
(defalias 'comment-quote-nested-default #[771 "\300\"\301\300\"Qeb\210\302\303\304#\205n\305\224b\210\306u\210\203'\307\306!\210\202*\310c\210G\306U\203
\204H\311\305!\230\203
\312\313P\304\211#\210\202
e\305\224W\203
\305\224S\305\225S{\313P\230\203
\314u\210\307\305\225\305\224Z!\210c\210\202
\207" [comment-quote-re "\\|" re-search-forward nil t 0 1 delete-char "\\" match-string replace-match "!" -2] 8 (#$ . 13189)])
#@416 Non-nil means that the global syntactic context is used.
More specifically, it means that `syntax-ppss' is used to find out whether
point is within a string or not.  Major modes whose syntax is not faithfully
described by the syntax-tables (or where `font-lock-syntax-table' is radically
different from the main syntax table) can set this to nil,
then `syntax-ppss' cache won't be used in comment-related routines.
(defvar comment-use-global-state t (#$ . 14116))
(make-obsolete-variable 'comment-use-global-state 'comment-use-syntax "24.4")
#@339 Find a comment start between point and LIMIT.
Moves point to inside the comment and returns the position of the
comment-starter.  If no comment is found, moves point to LIMIT
and raises an error or returns nil if NOERROR is non-nil.

Ensure that `comment-normalize-vars' has been called before you use this.

(fn LIMIT &optional NOERROR)
(defalias 'comment-search-forward #[513 "\204 \303	#\203\304\225\206\305\224\207b\210\211?\205\306\307!\207`\310\206(d\311\211\n\2052\312!\313&\3148\203`\3158\203`\n\204`\310\206Ld\311\211\211\211\211\315	8\311\211\211\211\257\313&\262\3148\203t\3158\204t\3148W\203?\205\264\306\307!\202\264`\3148\316 \311\211\204\252`Y\203\252\317	!\203\244\206\234d\305\225^\262\202\206\320u\210\202\206\211\206\257b\210\266\204\207" [comment-use-syntax comment-start-skip comment-use-global-state re-search-forward 1 0 error "No comment" parse-partial-sexp nil syntax-ppss t 8 3 line-beginning-position looking-at -1] 17 (#$ . 14665)])
#@339 Find a comment start between LIMIT and point.
Moves point to inside the comment and returns the position of the
comment-starter.  If no comment is found, moves point to LIMIT
and raises an error or returns nil if NOERROR is non-nil.

Ensure that `comment-normalize-vars' has been called before you use this.

(fn &optional LIMIT NOERROR)
(defalias 'comment-search-backward #[512 "\301\302#\204\211?\205K\303\304!\207\305 \210\306\225\307\310\"`\204)\305 \210\311\"\202Ib\210\312 \210`W\203E\307\310\"\211\262\203E`\262\202)\211b\210\266\203\207" [comment-start-skip re-search-backward move error "No comment" beginning-of-line 0 comment-search-forward t comment-search-backward comment-forward] 8 (#$ . 15688)])
#@151 Find the beginning of the enclosing comment.
Returns nil if not inside a comment, else moves point and returns
the same as `comment-search-backward'.
(defalias 'comment-beginning #[0 "\203'	\203'\304 \3058\205&\3068b\210`\214`d}\210\307\n!)\203&\310\225b\210\207\311`\312\"\313=?\205~`\314\315\316\"\211\205|\212\211b\210\203H\307!\203c\311\310\225\312\"\317=\204c\311`\312\"\317=?\205p\320 Y\205p\321\322!\203o`V\202pm)\203x\211\202|b\210\315\266\202\207" [comment-use-syntax comment-use-global-state comment-start-skip comment-end-skip syntax-ppss 4 8 looking-at 0 get-text-property face font-lock-string-face comment-search-backward nil t font-lock-comment-face line-end-position comment-forward 1] 5 (#$ . 16427)])
#@140 Skip forward over N comments.
Just like `forward-comment' but only for positive N
and can use regexps instead of syntax.

(fn &optional N)
(defalias 'comment-forward #[256 "\211\206\303\262\211\304W\203\305\306!\207\203\307!\207\211\304V\203D\307\303!\2049\310	!\203>\304\225b\203>\311\n\312\313#\203>\211S\202?\314\262\202\211\304U\207" [comment-use-syntax comment-start-skip comment-end-skip 1 0 error "No comment-backward" forward-comment looking-at re-search-forward nil move -1] 5 (#$ . 17176)])
#@112 Move from the end of a comment to the end of its content.
Point is assumed to be just at the end of a comment.
(defalias 'comment-enter-backward #[0 "n\203\301u\210\302\303!\207\212\214\304 `}\210eb\210\305\306P\307\310#*\203$\311\224b\207d\304 Z\312X\204V\313\314`S!@\315\"\311U\204V\313\314`\316Z!@\317\"\311U\204V\320u\210\321\307f!\307x\210\302\303!\207\302\303!\207" [comment-end-skip -1 skip-syntax-backward " " line-beginning-position re-search-forward "\\'" nil t 0 1 logand syntax-after 524288 2 262144 -2 string] 4 (#$ . 17702)])
#@40 Default for `comment-indent-function'.
(defalias 'comment-indent-default #[0 "\302\303!\203\304\225\204i\305 U\204\306\207i\305 U\203'\306V\205(\302\307!\205(	\207" [comment-add comment-column looking-at "\\s<\\s<\\(\\s<\\)?" 1 current-indentation 0 "\\s<\\(\\S<\\|\\'\\)"] 2 (#$ . 18255)])
#@323 Choose the indentation to use for a right-hand-side comment.
The criteria are (in this order):
- try to keep the comment's text within `comment-fill-column'.
- try to align with surrounding comments.
- prefer INDENT (or `comment-column' if nil).
Point is expected to be at the start of the comment.

(fn &optional INDENT)
(defalias 'comment-choose-indent #[256 "\211\204\262\304\211\211:\203#@A\211\211\262\262\262\266\202Fi	\206)\n\212\304\210i)Z\\\262\212\305\304x\210n\203@\306\202Ci\\)\262\211W\203O\262\211X\203X\211\262\212\307y\306U\203q\310\311 \312\"\211\262\203qb\210i\262)\203\206X\203\206Y\203\206\202\331\212\313y\306U\203\323\310\311 \312\"\211\262\203\323b\210i	\206\242\n\212\304\210i)Z\\\212\305\304x\210iT)Y\203\313\211X\203\313\211]\262^\262\202\316db\210\266\202\207)^]\207" [comment-column comment-fill-column fill-column comment-inline-offset nil " 	" 0 -1 comment-search-forward line-end-position t 1] 9 (#$ . 18563)])
#@169 Indent this line's comment to `comment-column', or insert an empty comment.
If CONTINUE is non-nil, use the `comment-continue' markers if any.

(fn &optional CONTINUE)
(defalias 'comment-indent #[256 "\306 \210\212\307 \210\310\311!)\203\206\211\203	\206\n\203(\203(\312\2021\2030\2061\f\2049\313\314!\210\307 \210\315 \316\317\"\320\211
\203Q\204Q
 \202\333\203p\310\321!\204i\310!\203i\322\320x\323\245u\210\324 \262\202\216\212j\210`Sf\325>\204\200\326c\210`\262c\210\324 \262c\210)b\210\212 )\262\211\204\252\212\322\320x\210n)\204\252\262\211\204\264\327 \210\202\324\212\322\320x\210n)\204\303\330!\262iU\204\324`\322\320x\210`|\210\211j\210b\210\320\211\223\266\204\207" [comment-continue block-comment-start comment-start block-comment-end comment-end comment-insert-comment-function comment-normalize-vars beginning-of-line looking-at "[ 	]*$" "" error "No comment syntax defined" line-end-position comment-search-forward t nil "[	\n ]" " 	" -2 point-marker (nil 10 9 32) 32 indent-according-to-mode comment-choose-indent comment-end-skip comment-column comment-indent-function] 11 (#$ . 19579) "*"])
#@307 Set the comment column based on point.
With no ARG, set the comment column to the current column.
With just minus as arg, kill any comment on this line.
With any other arg, set comment column to indentation of the previous comment
 and then align or create a comment on this line at that column.

(fn ARG)
(defalias 'comment-set-column #[257 "\211\301=\203\n\302\303!\207\211\203,\304 \210\212\305 \210\306 \210\305 \210\307\310 !b\210i\311\312\"\210)\313 \207i\311\312\"\207" [comment-column - comment-kill nil comment-normalize-vars beginning-of-line comment-search-backward comment-search-forward line-end-position message "Comment column set to %d" comment-indent] 4 (#$ . 20755) "P"])
#@130 Kill the first comment on this line, if any.
With prefix ARG, kill comments on that many lines starting with this one.

(fn ARG)
(defalias 'comment-kill #[257 "\300 \210\301!\302\211W\205J\211\212\303 \210\304\305 \306\"\211\2039\211b\210\307\310!\210`\262\311 \210\312n\2033`S\2024`\"\210\313 \210\210)\203B\314y\210\210\211T\262\202\207" [comment-normalize-vars prefix-numeric-value 0 beginning-of-line comment-search-forward line-end-position t skip-syntax-backward " " comment-forward kill-region indent-according-to-mode 1] 8 (#$ . 21458) "P"])
#@413 Construct a string composed of STR plus `comment-padding'.
It also adds N copies of the last non-whitespace chars of STR.
If STR already contains padding, the corresponding amount is
ignored from `comment-padding'.
N defaults to 0.
If N is `re', a regexp is returned instead, that would match
the string for any N.

Ensure that `comment-normalize-vars' has been called before you use this.

(fn STR &optional N)
(defalias 'comment-padright #[513 "\211\206\303\262;\205l\304\305\"\205l\304\306\"\210\307\310\"\311\303\310\224#\311\310\225\"\311\303\225\310\225ZG^\"P	\205;\304\312\n\"?9\204V\205Q\313	\310\225SH\"R\202j\314\315\316#\317!\205c\320\314\321\316#R\266\204\207" [comment-padding comment-quote-nested comment-end 0 string-match "\\S-" "\\`\\s-*\\(.*?\\)\\s-*\\'" match-string 1 substring "\\`\\s-*\\S-\\s-*\\'" make-string mapconcat #[257 "\300\301!!\302P\207" [regexp-quote string "?"] 4 "\n\n(fn C)"] "" regexp-quote "+" #[257 "\300\301!!\302P\207" [regexp-quote string "?"] 4 "\n\n(fn C)"]] 13 (#$ . 22028)])
#@414 Construct a string composed of `comment-padding' plus STR.
It also adds N copies of the first non-whitespace chars of STR.
If STR already contains padding, the corresponding amount is
ignored from `comment-padding'.
N defaults to 0.
If N is `re', a regexp is returned instead, that would match the
string for any N.

Ensure that `comment-normalize-vars' has been called before you use this.

(fn STR &optional N)
(defalias 'comment-padleft #[513 "\211\206\303\262;\205a\304\230?\205a\305\306\"\210\307\303\225\"\307\303\225\303\224ZG^\"\310\303\"P\303\225H	\2059\305\311\n\"?9\204N\205I\312\"Q\202_\313\205Z\314\315!!\316P\314!Q\266\204\207" [comment-padding comment-quote-nested comment-end 0 "" string-match "\\`\\s-*" substring match-string "\\`\\s-*\\S-\\s-*\\'" make-string "\\s-*" regexp-quote string "*"] 10 (#$ . 23090)])
#@167 Uncomment each line in the BEG .. END region.
The numeric prefix ARG can specify a number of chars to remove from the
comment delimiters.

(fn BEG END &optional ARG)
(defalias 'uncomment-region #[770 "\302 \210V\203\262\262\303\212	#*\207" [comment-use-global-state uncomment-region-function comment-normalize-vars nil] 7 (#$ . 23956) "*r\nP"])
#@234 Uncomment each line in the BEG .. END region.
The numeric prefix ARG can specify a number of chars to remove from the
comment delimiters.
This function is the default value of `uncomment-region-function'.

(fn BEG END &optional ARG)
(defalias 'uncomment-region-default-1 #[770 "b\210\306!\262\307!\310\311\"\310	\311\"\205\312\313Q\314`W\203\334\315\316\"\211\262\203\334`b\210\317 \204@m\204@\320\321!\210`\314\211\214}\210b\210\322\323!\210`eZ\324U\203v\316\211\262\203v\325\326!\203vd\206i`Sf\327=\204v\330\314w\204\201\331`e	G#\332V\203\215\333ed\"\334V\203\215\316\262\212eb\210\325!)\204\241\325\335\n!!\203\245\336\225b\210\203\266\325\337	P!\203\266\336\225b\210\n\204\302e`|\210\202\342\340 \322\323!\210\341[!\210o\204\335\212eb\210\325!)\204\341e|\210\210db\210\342 \210\211\203d\206\361`Sf\327=\204`\330\314x\343V\203\211b\210\210\325\344!\2049n\203o\204\345u\210\n\204\"`d|\210\2029\346\323!\210\341\n!\210m\2049\325\f!\2049`d|\210\347	
\316#\210\203\244\350\206I	!\205R\351\311\"\211\205Z\352\353Qeb\210\211\203~\354\355 \316#\203~\356\357\316\211\314\334\225\203x\334\202y\324%\210\202\201\314\262\324y\210\354	\355 \316#\203\242\356\357\316\211\314\334\225\203\234\334\202\235\324%\210\202]\266db\210)f\360=\203\327\206\264`Sf\361=\203\3273\336V\203\327\212b\210i`\3623\"Z\341\323x[!\266)\266\202\266\314\211\223\207" [comment-continue comment-start comment-padding comment-start-skip comment-end-skip comment-end copy-marker prefix-numeric-value comment-padright re "^\\s-*?\\(" "\\)" nil comment-search-forward t comment-forward error "Can't find the comment end" skip-syntax-backward " " 1 looking-at "=\\{7\\}" 10 "=" - 7 count-lines 2 regexp-quote 0 "\\s-*\n\\s-*" point-marker delete-char comment-enter-backward -7 "\\(\n\\|\\s-\\)*\\'" -1 skip-syntax-forward comment-quote-nested comment-string-reverse comment-padleft "\\(" "\\)\\s-*$" re-search-forward line-end-position replace-match "" 9 32 mod tab-width] 22 (#$ . 24320)])
#@164 Uncomment each line in the BEG .. END region.
The numeric prefix ARG can specify a number of chars to remove from the
comment markers.

(fn BEG END &optional ARG)
(defalias 'uncomment-region-default #[770 "\203\301\302\303\304\305\306\n\n\n#\307\"\310$#\207\311#\207" [comment-combine-change-calls combine-change-calls-1 make-byte-code 0 "\303\300\301\302#\207" vconcat vector [uncomment-region-default-1] 4 uncomment-region-default-1] 14 (#$ . 26385)])
#@131 Make a white-space string of width LEN for use at BOL.
When `indent-tabs-mode' is non-nil, tab characters will be used.

(fn LEN)
(defalias 'comment-make-bol-ws #[257 "\203	\302V\203\303	\245\304\"\303	\246\305\"P\207\303\305\"\207" [indent-tabs-mode tab-width 0 make-string 9 32] 5 (#$ . 26857)])
#@178 Make the leading and trailing extra lines.
This is used for `extra-line' style (or `box' style if BLOCK is specified).

(fn CS CE CCS CCE MIN-INDENT MAX-INDENT &optional BLOCK)
(defalias 'comment-make-extra-lines #[1798 "\302\204(\303\304\211#\262\305\306\307Q\"\203\266\310\311\225\311\224\302\224#\302]\262\202\266Z\312Q\312\nQ\305\313\f\"\203H\n\302\225SH\202`\314\232\203_\305\315\f\"\203_\n\302\225SH\202`\316\317\305\"
G\320\310\302\225\302\224\321$\\\"\322\304\211\n$\262\305	\"\204\245\305\312\"\203\245\312\262\320Z\"\262\322\304\211\n$\262\305\"\210\322\304\211	$\262\266\307\323!R\307\323\\!\nRB\207" [comment-end comment-start-skip 0 comment-string-strip t string-match "\\(.+\\).*\n\\(.*?\\)\\1" "\n" - 2 "a=m" ".*\\S-\\S-" "" ".*\\S-" 61 "\\s-*a=m\\s-*" make-string 3 replace-match comment-make-bol-ws] 22 (#$ . 27170)])
#@181 Execute BODY with BEG..END narrowing.
Space is added (and then removed) at the beginning for the text's
indentation to be kept as it was before narrowing.

(fn BEG END &rest BODY)
(defalias 'comment-with-narrowing '(macro . #[642 "\300\301!\302\303\304D\305BBDC\306\307E\310\311\312\313BBD\314\315	B\303\316\317\320\302\321\322\323EDC\324\325\326\327BBEFE\330\302\331\332\333\334\335\336BB\337BB\302\321\322\340BBDC\341\342\325\326\343BBE\257EF\257E\257E\207" [make-symbol "bindent" let save-excursion goto-char ((current-column)) save-restriction narrow-to-region (goto-char (point-min)) insert make-string (32) prog1 progn (goto-char (point-min)) when (looking-at " *") n min (- (match-end 0) (match-beginning 0)) (delete-char n) setq - (n) (end-of-line) ((e (point))) (beginning-of-line) while and > (0) ((re-search-forward "   *" e t)) ((- (match-end 0) (match-beginning 0) 1)) (goto-char (match-beginning 0)) (delete-char n) (n)] 30 (#$ . 28087)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put comment-with-narrowing edebug-form-spec t function-put lisp-indent-function 2] 4)
#@249 Compute the number of extra comment starter characters.
(Extra semicolons in Lisp mode, extra stars in C mode, etc.)
If ARG is non-nil, just follow ARG.
If the comment starter is multi-char, just follow ARG.
Otherwise obey `comment-add'.

(fn ARG)
(defalias 'comment-add #[257 "\211\204\302\303\"\304U\203	\305\\\207\306!S\207" [comment-start comment-add string-match "[ 	]*\\'" 1 0 prefix-numeric-value] 4 (#$ . 29222)])
#@624 Comment region BEG .. END.
CS and CE are the comment start string and comment end string,
respectively.  CCS and CCE are the comment continuation strings
for the start and end of lines, respectively (default to CS and CE).
BLOCK indicates that end of lines should be marked with either CCE,
CE or CS (if CE is empty) and that those markers should be aligned.
LINES indicates that an extra lines will be used at the beginning
and end of the region for CE and CS.
INDENT indicates to put CS and CCS at the current indentation of
the region rather than at left margin.

(fn BEG END CS CE &optional CCS CCE BLOCK LINES INDENT)
(defalias 'comment-region-internal #[2308 "\305=\206\205G\306U?\307;\203 \310\230\203 \307\262\262;\2032\310\230\2032\307\262\204=\307\262\307\262\204J\204J\203M\307\262\203\\\204\\\311	!\262\204c\307\262\204p\262\262\212	b\210\211\204\203l\204\203\312c\210\313 \210\212\nb\210i)\214}\210eb\210\314\315\"c\210d\306eb\210\316	\n\307#\210eb\210\317\320!\204\264\321 ^\262\307\210\211i]\262m\204\306\307y\210\202\250\322
G\fG]\212b\210\323\324\305#)\203\343S\202\344\306#\262\204\356\306\262\2037\307\325\206\374\326\327Q\307\305\330#)\266\203\211\203\331\306#\202\262\266\202\262\f\332\f\f\f\f&\211@\262
\211A\262\f\210eb\210\203D\317\320!\204o\333\305\"\210c\210	\262\f\307\210m\203\\\n\262	\203o\203k\333\305\"\210c\210\307\210m\206z\307y\210\307?\205\201\202:\266\202\212eb\210\317\334!\203\236\306\225\306\224Z^\335!\210Z\262\210\307\210`\336 \210\306V\203\315\337\340\305#\203\315\341\306\225\306\224\342#^\306\224b\210\335!\210Z\262\210\202\245\210*\262)\207" [comment-empty-lines comment-start comment-end tab-width inhibit-changing-match-data t 0 nil "" comment-string-reverse "\n" indent-according-to-mode make-string 32 comment-quote-nested looking-at "[ 	]*$" current-indentation + search-forward "	" "\\(?:" "[ 	\n
]+" "\\)\\'" string-match substring comment-make-extra-lines move-to-column " *" delete-char beginning-of-line re-search-forward "   *" - 1] 23 (#$ . 29657)])
#@733 Comment or uncomment each line in the region.
With just \[universal-argument] prefix arg, uncomment each line in region BEG .. END.
Numeric prefix ARG means use ARG comment characters.
If ARG is negative, delete that many comment characters instead.

The strings used as comment starts are built from `comment-start'
and `comment-padding'; the strings used as comment ends are built
from `comment-end' and `comment-padding'.

By default, the `comment-start' markers are inserted at the
current indentation of the region, and comments are terminated on
each line (even for syntaxes in which newline does not end the
comment and blank lines do not get comments).  This can be
changed with `comment-style'.

(fn BEG END &optional ARG)
(defalias 'comment-region #[770 "\301 \210V\203\302\262\262\262\212#)\207" [comment-region-function comment-normalize-vars nil] 7 (#$ . 31827) "*r\nP"])
#@30 

(fn BEG END &optional ARG)
(defalias 'comment-region-default-1 #[770 "\306!\307	\"A\3108A@@b\210\311\312w\210\313 \210`]\262b\210\311\312x\210\312\210`^\262Y\203>\314\315!\210\205b\210\313 \210\316\317!\210`Y\205b\210\312\210\320\317!\210`X\205\204q\n\321\230?\205\206b\210\322\323\324#\262\204\216\n\321\230\204\216\312\262:\203\234\325\"\202R\326W\203\256\325[#\202R\327\330\"\331U?\312\211\3328\333=\203\326\212\nb\210\262?\205\320\334\335!\262)\202\334\3328\262\204\365\204\365\f\203\356\310\202\357\331_\262\202\374\306	!S\262\336\337\f\"\327
\"\203\211\202\337!\262\340\n
\"\211\205.\327\"\"\203+\211\202.\337\n!\262\205;\337#\"	\205H\340\341#!\"
\n&	\266\203\207" [comment-style comment-styles comment-end comment-start comment-add comment-start-skip prefix-numeric-value assoc 2 " 	\n
" nil beginning-of-line error "Nothing to comment" skip-syntax-forward " " skip-syntax-backward "" re-search-forward "$" t uncomment-region 0 string-match "[ 	]*\\'" 1 3 multi-char looking-at "	\\|  " comment-region-internal comment-padright comment-padleft comment-string-reverse comment-end-skip comment-continue] 21 (#$ . 32731)])
#@30 

(fn BEG END &optional ARG)
(defalias 'comment-region-default #[770 "\203!\301\212b\210\302y\210`)\303\304\305\306\307\n\n\n#\310\"\311$#\207\312#\207" [comment-combine-change-calls combine-change-calls-1 nil make-byte-code 0 "\303\300\301\302#\207" vconcat vector [comment-region-default-1] 4 comment-region-default-1] 14 (#$ . 33996)])
#@247 Comment out the BEG .. END region, putting it inside a box.
The numeric prefix ARG specifies how many characters to add to begin- and
end- comment markers additionally to what variable `comment-add' already
specifies.

(fn BEG END &optional ARG)
(defalias 'comment-box #[770 "\303 \210\304	\"A@\203\305\202\306\307\n\\#)\207" [comment-style comment-styles comment-add comment-normalize-vars assoc box-multi box comment-region] 8 (#$ . 34352) "*r\np"])
#@79 Return non-nil if the text between BEG and END is all comments.

(fn BEG END)
(defalias 'comment-only-p #[514 "\212b\210\300d!\210\211`X)\207" [comment-forward] 4 (#$ . 34819)])
#@207 Call `comment-region', unless the region only consists of comments,
in which case call `uncomment-region'.  If a prefix arg is given, it
is passed on to the respective function.

(fn BEG END &optional ARG)
(defalias 'comment-or-uncomment-region #[770 "\300 \210\301\"\203\302\202\303#\207" [comment-normalize-vars comment-only-p uncomment-region comment-region] 7 (#$ . 35005) "*r\nP"])
#@519 Call the comment command you want (Do What I Mean).
If the region is active and `transient-mark-mode' is on, call
`comment-region' (unless it only consists of comments, in which
case it calls `uncomment-region').
Else, if the current line is empty, call `comment-insert-comment-function'
if it is defined, otherwise insert a comment and indent it.
Else if a prefix ARG is specified, call `comment-kill'.
Else, call `comment-indent'.
You can configure `comment-style' to change the way regions are commented.

(fn ARG)
(defalias 'comment-dwim #[257 "\303 \210\304 \203\305\306 \307 #\207\212\310 \210\311\312!)\204+\211\203(\313\250\205&!\207\314 \207\2032 \207\315!\316 \210\317	\"c\210\212\n\320\230\204K\321\n\"c\210\316 )\207" [comment-insert-comment-function comment-start comment-end comment-normalize-vars use-region-p comment-or-uncomment-region region-beginning region-end beginning-of-line looking-at "\\s-*$" comment-kill comment-indent comment-add indent-according-to-mode comment-padright "" comment-padleft] 5 (#$ . 35408) "*P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable comment-auto-fill-only-comments funcall function #[0 "\300\207" [nil] 1] "Non-nil means to only auto-fill inside comments.\nThis has no effect in modes that do not define a comment syntax." :type boolean :group comment] 8)
#@259 Check that the adaptive fill prefix is consistent with the context.
PREFIX is the prefix (presumably guessed by `adaptive-fill-mode').
COMPOS is the position of the beginning of the comment we're in, or nil
if we're not inside a comment.

(fn PREFIX COMPOS)
(defalias 'comment-valid-prefix-p #[514 "\211\204\205	\205\302	\"?\207\212\211b\210\303 \210n)?\206d\302\304	\305Q\"\205d\306\307\310\"\311\312#\302\313\"\210\307\310\"\314!\315\310\225\"\212b\210\316\317!!\205_i\320 ZU\206_`\321 \210`{\232)\266\203\262\207" [comment-start comment-start-skip string-match comment-forward "\\`[ 	]*\\(?:" "\\)" comment-string-strip match-string 0 nil t "\\`[ 	]*" string-width substring looking-at regexp-quote current-left-margin move-to-left-margin] 9 (#$ . 36783)])
#@616 Break line at point and indent, continuing comment if within one.
This indents the body of the continued comment
under the previous comment line.

This command is intended for styles where you write a comment per line,
starting a new comment (and terminating it if necessary) on each line.
If you want to continue one comment across several lines, use \[newline-and-indent].

If a fill column is specified, it overrides the use of the comment column
or comment indentation.

The inserted newline is marked hard if variable `use-hard-newlines' is true,
unless optional argument SOFT is non-nil.

(fn &optional SOFT)
(defalias 'comment-indent-new-line #[256 "\306\307!\210\310\211\205 	\205 \311\312!?\205 \212\313 \211\262`\262)??\205\203/\314\315!\210\2023\316\317!\210\212\320u\210\321 \210)\321 \210\n\203O\204O\322 \210\323\n!\202\204c\203c\212\320u\210\313 \262`\262)\n\203w\324\n\"\203w\322 \210\314\n!\202\204\200\325 \202{\326\327\330\307\211#!\"\211\203\225\f\202\257\212b\210\331 \204\242\f\202\256\330\212\332 \210`)`{\310\307#)
\203\277\211G\333V\203\277\325 \202\314\315!\210\320u\210\212b\210i\"\334\335 \\]^)\"\212b\210\336\310x\210n)\203\347\337\202\351##\211
\206\373\340$%\"A@\310&\341!\210-\210\212`\310\210\211`{`T|\210\333\210\211c\262\262)\266\203\207" [comment-start comment-auto-fill-only-comments fill-prefix adaptive-fill-mode comment-end comment-multi-line comment-normalize-vars t nil called-interactively-p interactive comment-beginning insert-and-inherit 10 newline 1 -1 delete-horizontal-space indent-to-left-margin insert-before-markers-and-inherit comment-valid-prefix-p indent-according-to-mode string-match regexp-quote comment-string-strip comment-forward comment-enter-backward 0 2 current-indentation " 	" #[0 "\207" [comment-column] 1] assoc comment-indent comment-column comment-indent-function comment-style comment-styles comment-continue] 10 (#$ . 37573) nil])
#@388 Comment or uncomment current line and leave point after it.
With positive prefix, apply to N lines including current one.
With negative prefix, apply to -N lines above.  Also, further
consecutive invocations of this command will inherit the negative
argument.

If region is active, comment lines in active region instead.
Unlike `comment-dwim', this always comments whole lines.

(fn N)
(defalias 'comment-line #[257 "\302 \203\303\212\304 b\210\305 )\212\306 b\210\307 )\"\207\310=\203(\311!\203(\211[\262\305 \307!bD\303\312\313\"\312\314\"\"\266\315y\210\316 \210\311!?\205K\310\211\207" [last-command this-command use-region-p comment-or-uncomment-region region-beginning line-beginning-position region-end line-end-position comment-line-backward natnump apply min max 1 back-to-indentation] 7 (#$ . 39549) "p"])
(provide 'newcomment)

Youez - 2016 - github.com/yon3zu
LinuXploit