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

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

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


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316DD\317\320\321\310\301&\207" [custom-declare-group whitespace nil "Visualize blanks (TAB, (HARD) SPACE and NEWLINE)." :link (emacs-library-link :tag "Source Lisp File" "whitespace.el") :version "23.1" :group convenience custom-declare-variable whitespace-style funcall function #[0 "\300\207" [(face tabs spaces trailing lines space-before-tab newline indentation empty space-after-tab space-mark tab-mark newline-mark)] 1] "Specify which kind of blank is visualized.\n\nIt's a list containing some or all of the following values:\n\n   face			enable all visualization via faces (see below).\n\n   trailing		trailing blanks are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   tabs			TABs are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   spaces		SPACEs and HARD SPACEs are visualized via\n			faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   lines		lines which have columns beyond\n			`whitespace-line-column' are highlighted via\n			faces.\n			Whole line is highlighted.\n			It has precedence over `lines-tail' (see\n			below).\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   lines-tail		lines which have columns beyond\n			`whitespace-line-column' are highlighted via\n			faces.\n			But only the part of line which goes\n			beyond `whitespace-line-column' column.\n			It has effect only if `lines' (see above)\n			is not present in `whitespace-style'\n			and if `face' (see above) is present in\n			`whitespace-style'.\n\n   newline		NEWLINEs are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   empty		empty lines at beginning and/or end of buffer\n			are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   indentation::tab	`tab-width' or more SPACEs at beginning of line\n			are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   indentation::space	TABs at beginning of line are visualized via\n			faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   indentation		`tab-width' or more SPACEs at beginning of line\n			are visualized, if `indent-tabs-mode' (which\n			see) is non-nil; otherwise, TABs at beginning\n			of line are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   big-indent		Big indentations are visualized via faces.\n			It has effect only if `face' (see above)\n			is present in `whitespace-style'.\n\n   space-after-tab::tab		`tab-width' or more SPACEs after a TAB\n				are visualized via faces.\n				It has effect only if `face' (see above)\n				is present in `whitespace-style'.\n\n   space-after-tab::space	TABs are visualized when `tab-width' or\n				more SPACEs occur after a TAB, via\n				faces.\n				It has effect only if `face' (see above)\n				is present in `whitespace-style'.\n\n   space-after-tab		`tab-width' or more SPACEs after a TAB\n				are visualized, if `indent-tabs-mode'\n				(which see) is non-nil; otherwise,\n				the TABs are visualized via faces.\n				It has effect only if `face' (see above)\n				is present in `whitespace-style'.\n\n   space-before-tab::tab	SPACEs before TAB are visualized via\n				faces.\n				It has effect only if `face' (see above)\n				is present in `whitespace-style'.\n\n   space-before-tab::space	TABs are visualized when SPACEs occur\n				before TAB, via faces.\n				It has effect only if `face' (see above)\n				is present in `whitespace-style'.\n\n   space-before-tab		SPACEs before TAB are visualized, if\n				`indent-tabs-mode' (which see) is\n				non-nil; otherwise, the TABs are\n				visualized via faces.\n				It has effect only if `face' (see above)\n				is present in `whitespace-style'.\n\n   space-mark		SPACEs and HARD SPACEs are visualized via\n			display table.\n\n   tab-mark		TABs are visualized via display table.\n\n   newline-mark		NEWLINEs are visualized via display table.\n\nAny other value is ignored.\n\nIf nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs via faces and\nvia display table.\n\nThere is an evaluation order for some values, if they are\nincluded in `whitespace-style' list.  For example, if\nindentation, indentation::tab and/or indentation::space are\nincluded in `whitespace-style' list.  The evaluation order for\nthese values is:\n\n * For indentation:\n   1. indentation\n   2. indentation::tab\n   3. indentation::space\n\n * For SPACEs after TABs:\n   1. space-after-tab\n   2. space-after-tab::tab\n   3. space-after-tab::space\n\n * For SPACEs before TABs:\n   1. space-before-tab\n   2. space-before-tab::tab\n   3. space-before-tab::space\n\nFor example, if `indentation' and `indentation::space' are\nincluded in `whitespace-style', the `indentation' value is used\ninstead of the `indentation::space' value.\n\nOne reason to not use faces to visualize spaces (i.e., not\ninclude `face' in `whitespace-style') is to use `whitespace-mode'\nonly for cleaning up a buffer.  See `whitespace-cleanup' and\n`whitespace-cleanup-region'.\n\nSee also `whitespace-display-mappings' for documentation." :type (set :tag "Kind of Blank" (const :tag "(Face) Face visualization" face) (const :tag "(Face) Trailing TABs, SPACEs and HARD SPACEs" trailing) (const :tag "(Face) TABs" tabs) (const :tag "(Face) SPACEs and HARD SPACEs" spaces) (const :tag "(Face) Lines" lines) (const :tag "(Face) Lines, only overlong part" lines-tail) (const :tag "(Face) NEWLINEs" newline) (const :tag "(Face) Empty Lines At BOB And/Or EOB" empty) (const :tag "(Face) Indentation SPACEs" indentation::tab) (const :tag "(Face) Indentation TABs" indentation::space) (const :tag "(Face) Indentation TABs or SPACEs" indentation) (const :tag "(Face) Too much line indentation" big-indent) (const :tag "(Face) SPACEs after TAB: SPACEs" space-after-tab::tab) (const :tag "(Face) SPACEs after TAB: TABs" space-after-tab::space) (const :tag "(Face) SPACEs after TAB" space-after-tab) (const :tag "(Face) SPACEs before TAB: SPACEs" space-before-tab::tab) (const :tag "(Face) SPACEs before TAB: TABs" space-before-tab::space) (const :tag "(Face) SPACEs before TAB" space-before-tab) (const :tag "(Mark) SPACEs and HARD SPACEs" space-mark) (const :tag "(Mark) TABs" tab-mark) (const :tag "(Mark) NEWLINEs" newline-mark))] 10)
#@96 Symbol face used to visualize SPACE.
Used when `whitespace-style' includes the value `spaces'.
(defvar whitespace-space 'whitespace-space (#$ . 6997))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-space "use the face instead." "24.4" custom-declare-face ((((class color) (background dark)) :background "grey20" :foreground "darkgray") (((class color) (background light)) :background "LightYellow" :foreground "lightgray") (t :inverse-video t)) "Face used to visualize SPACE." :group whitespace] 6)
#@101 Symbol face used to visualize HARD SPACE.
Used when `whitespace-style' includes the value `spaces'.
(defvar whitespace-hspace 'whitespace-hspace (#$ . 7555))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-hspace "use the face instead." "24.4" custom-declare-face ((((class color) (background dark)) :background "grey24" :foreground "darkgray") (((class color) (background light)) :background "LemonChiffon3" :foreground "lightgray") (t :inverse-video t)) "Face used to visualize HARD SPACE." :group whitespace] 6)
#@92 Symbol face used to visualize TAB.
Used when `whitespace-style' includes the value `tabs'.
(defvar whitespace-tab 'whitespace-tab (#$ . 8127))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-tab "customize the face `whitespace-tab' instead." "24.4" custom-declare-face ((((class color) (background dark)) :background "grey22" :foreground "darkgray") (((class color) (background light)) :background "beige" :foreground "lightgray") (t :inverse-video t)) "Face used to visualize TAB." :group whitespace] 6)
#@167 Symbol face used to visualize NEWLINE char mapping.
See `whitespace-display-mappings'.
Used when `whitespace-style' includes the values `newline-mark'
and `newline'.
(defvar whitespace-newline 'whitespace-newline (#$ . 8690))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-newline "use the face instead." "24.4" custom-declare-face ((default :weight normal) (((class color) (background dark)) :foreground "darkgray") (((class color) (min-colors 88) (background light)) :foreground "lightgray") (((class color) (background light)) :foreground "brown") (t :underline t)) "Face used to visualize NEWLINE char mapping.\n\nSee `whitespace-display-mappings'." :group whitespace] 6)
#@108 Symbol face used to visualize trailing blanks.
Used when `whitespace-style' includes the value `trailing'.
(defvar whitespace-trailing 'whitespace-trailing (#$ . 9425))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-trailing "use the face instead." "24.4" custom-declare-face ((default :weight bold) (((class mono)) :inverse-video t :underline t) (t :background "red1" :foreground "yellow")) "Face used to visualize trailing blanks." :group whitespace] 6)
#@131 Symbol face used to visualize "long" lines.
See `whitespace-line-column'.
Used when `whitespace-style' includes the value `line'.
(defvar whitespace-line 'whitespace-line (#$ . 9940))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-line "use the face instead." "24.4" custom-declare-face ((((class mono)) :inverse-video t :weight bold :underline t) (t :background "gray20" :foreground "violet")) "Face used to visualize \"long\" lines.\n\nSee `whitespace-line-column'." :group whitespace] 6)
#@118 Symbol face used to visualize SPACEs before TAB.
Used when `whitespace-style' includes the value `space-before-tab'.
(defvar whitespace-space-before-tab 'whitespace-space-before-tab (#$ . 10490))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-space-before-tab "use the face instead." "24.4" custom-declare-face ((((class mono)) :inverse-video t :weight bold :underline t) (t :background "DarkOrange" :foreground "firebrick")) "Face used to visualize SPACEs before TAB." :group whitespace] 6)
#@144 Symbol face used to visualize `tab-width' or more SPACEs at beginning of
line.  Used when `whitespace-style' includes the value `indentation'.
(defvar whitespace-indentation 'whitespace-indentation (#$ . 11041))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\210\304\311\312\313\307\310%\207" [make-obsolete-variable whitespace-indentation "use the face instead." "24.4" custom-declare-face ((((class mono)) :inverse-video t :weight bold :underline t) (t :background "yellow" :foreground "firebrick")) "Face used to visualize `tab-width' or more SPACEs at beginning of line." :group whitespace whitespace-big-indent ((((class mono)) :inverse-video t :weight bold :underline t) (t :background "red" :foreground "firebrick")) "Face used to visualize big indentation."] 6)
#@135 Symbol face used to visualize empty lines at beginning and/or end of buffer.
Used when `whitespace-style' includes the value `empty'.
(defvar whitespace-empty 'whitespace-empty (#$ . 11830))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\207" [make-obsolete-variable whitespace-empty "use the face instead." "24.4" custom-declare-face ((((class mono)) :inverse-video t :weight bold :underline t) (t :background "yellow" :foreground "firebrick")) "Face used to visualize empty lines at beginning and/or end of buffer." :group whitespace] 6)
#@136 Symbol face used to visualize `tab-width' or more SPACEs after TAB.
Used when `whitespace-style' includes the value `space-after-tab'.
(defvar whitespace-space-after-tab 'whitespace-space-after-tab (#$ . 12389))
(byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\210\311\312\313\314\315DD\316\317\320\307\310&\210\311\321\313\314\322DD\323\317\324\307\310&\210\311\325\313\314\326DD\327\317\330\307\310&\210\311\331\313\314\332DD\333\317\334\307\310&\210\311\335\313\314\336DD\337\317\340\307\310&\210\311\341\313\314\342DD\343\317\344\307\310&\210\311\345\313\314\346DD\347\317\350\307\310&\210\311\351\313\314\352DD\353\317\354\307\310&\210\311\355\313\314\356DD\357\317\360\307\310&\210\311\361\313\314\362DD\363\364\365\317\366\307\310&	\210\311\367\313\314\370DD\371\317\372\373\374\307\310&	\210\311\375\313\314\376DD\377\317\201@\307\310&\210\311\201A\313\314\201BDD\201C\317\201D\307\310&\210\311\201E\313\314\201FDD\201G\317\201H\307\310&\207" [make-obsolete-variable whitespace-space-after-tab "use the face instead." "24.4" custom-declare-face ((((class mono)) :inverse-video t :weight bold :underline t) (t :background "yellow" :foreground "firebrick")) "Face used to visualize `tab-width' or more SPACEs after TAB." :group whitespace custom-declare-variable whitespace-hspace-regexp funcall function #[0 "\300\207" [#1="\\( +\\)"] 1 #1#] "Specify HARD SPACE characters regexp.\n\nHere are some examples:\n\n   \"\\\\(^\\xA0+\\\\)\"		visualize only leading HARD SPACEs.\n   \"\\\\(\\xA0+$\\\\)\"		visualize only trailing HARD SPACEs.\n   \"\\\\(^\\xA0+\\\\|\\xA0+$\\\\)\"	visualize leading and/or trailing HARD SPACEs.\n   \"\\t\\\\(\\xA0+\\\\)\\t\"		visualize only HARD SPACEs between TABs.\n\nNOTE: Enclose always by \\\\( and \\\\) the elements to highlight.\n      Use exactly one pair of enclosing \\\\( and \\\\).\n\nUsed when `whitespace-style' includes `spaces'." :type (regexp :tag "HARD SPACE Chars") whitespace-space-regexp #[0 "\300\207" [#2="\\( +\\)"] 1 #2#] "Specify SPACE characters regexp.\n\nIf you're using `mule' package, there may be other characters\nbesides \" \" that should be considered SPACE.\n\nHere are some examples:\n\n   \"\\\\(^ +\\\\)\"		visualize only leading SPACEs.\n   \"\\\\( +$\\\\)\"		visualize only trailing SPACEs.\n   \"\\\\(^ +\\\\| +$\\\\)\"	visualize leading and/or trailing SPACEs.\n   \"\\t\\\\( +\\\\)\\t\"	visualize only SPACEs between TABs.\n\nNOTE: Enclose always by \\\\( and \\\\) the elements to highlight.\n      Use exactly one pair of enclosing \\\\( and \\\\).\n\nUsed when `whitespace-style' includes `spaces'." (regexp :tag "SPACE Chars") whitespace-tab-regexp #[0 "\300\207" [#3="\\(	+\\)"] 1 #3#] "Specify TAB characters regexp.\n\nIf you're using `mule' package, there may be other characters\nbesides \"\\t\" that should be considered TAB.\n\nHere are some examples:\n\n   \"\\\\(^\\t+\\\\)\"		visualize only leading TABs.\n   \"\\\\(\\t+$\\\\)\"		visualize only trailing TABs.\n   \"\\\\(^\\t+\\\\|\\t+$\\\\)\"	visualize leading and/or trailing TABs.\n   \" \\\\(\\t+\\\\) \"	visualize only TABs between SPACEs.\n\nNOTE: Enclose always by \\\\( and \\\\) the elements to highlight.\n      Use exactly one pair of enclosing \\\\( and \\\\).\n\nUsed when `whitespace-style' includes `tabs'." (regexp :tag "TAB Chars") whitespace-trailing-regexp #[0 "\300\207" [#4="\\([	  ]+\\)$"] 1 #4#] "Specify trailing characters regexp.\n\nThere may be other characters besides:\n\n   \" \"  \"\\t\"  \"\\u00A0\"\n\nthat should be considered blank.\n\nNOTE: Enclose always by \"\\\\(\" and \"\\\\)$\" the elements to highlight.\n      Use exactly one pair of enclosing elements above.\n\nUsed when `whitespace-style' includes `trailing'." (regexp :tag "Trailing Chars") whitespace-space-before-tab-regexp #[0 "\300\207" [#5="\\( +\\)\\(	+\\)"] 1 #5#] "Specify SPACEs before TAB regexp.\n\nUsed when `whitespace-style' includes `space-before-tab',\n`space-before-tab::tab' or  `space-before-tab::space'." (regexp :tag "SPACEs Before TAB") whitespace-indentation-regexp #[0 "\300\207" [("^	*\\(\\( \\{%d\\}\\)+\\)[^\n	]" . "^ *\\(	+\\)[^\n]")] 1] "Specify regexp for `tab-width' or more SPACEs at beginning of line.\n\nIt is a cons where the cons car is used for SPACEs visualization\nand the cons cdr is used for TABs visualization.\n\nUsed when `whitespace-style' includes `indentation',\n`indentation::tab' or  `indentation::space'." (cons (string :tag "Indentation SPACEs") (string :tag "Indentation TABs")) whitespace-empty-at-bob-regexp #[0 "\300\207" [#6="\\`\\(\\([ 	]*\n\\)+\\)"] 1 #6#] "Specify regexp for empty lines at beginning of buffer.\n\nUsed when `whitespace-style' includes `empty'." (regexp :tag "Empty Lines At Beginning Of Buffer") whitespace-empty-at-eob-regexp #[0 "\300\207" [#7="^\\([ 	\n]+\\)\\'"] 1 #7#] "Specify regexp for empty lines at end of buffer.\n\nUsed when `whitespace-style' includes `empty'." (regexp :tag "Empty Lines At End Of Buffer") whitespace-space-after-tab-regexp #[0 "\300\207" [("	+\\(\\( \\{%d,\\}\\)+\\)" . "\\(	+\\) \\{%d,\\}")] 1] "Specify regexp for `tab-width' or more SPACEs after TAB.\n\nIt is a cons where the cons car is used for SPACEs visualization\nand the cons cdr is used for TABs visualization.\n\nUsed when `whitespace-style' includes `space-after-tab',\n`space-after-tab::tab' or `space-after-tab::space'." (cons (string :tag "SPACEs After TAB") string) whitespace-big-indent-regexp #[0 "\300\207" [#8="^\\(\\(?:	\\{4,\\}\\| \\{32,\\}\\)[	 ]*\\)"] 1 #8#] "Specify big indentation regexp.\n\nIf you're using `mule' package, there may be other characters\nbesides \"\\t\" that should be considered TAB.\n\nNOTE: Enclose always by \\\\( and \\\\) the elements to highlight.\n      Use exactly one pair of enclosing \\\\( and \\\\).\n\nUsed when `whitespace-style' includes `big-indent'." :version "25.1" (regexp :tag "Detect too much indentation at the beginning of a line") whitespace-line-column #[0 "\300\207" [80] 1] "Specify column beyond which the line is highlighted.\n\nIt must be an integer or nil.  If nil, the `fill-column' variable value is\nused.\n\nUsed when `whitespace-style' includes `lines' or `lines-tail'." (choice :tag "Line Length Limit" (integer :tag "Line Length") (const :tag "Use fill-column" nil)) :safe integerp whitespace-display-mappings #[0 "\300\207" [((space-mark 32 [183] [46]) (space-mark 160 [164] [95]) (newline-mark 10 [36 10]) (tab-mark 9 [187 9] [92 9]))] 1] "Specify an alist of mappings for displaying characters.\n\nEach element has the following form:\n\n   (KIND CHAR VECTOR...)\n\nWhere:\n\nKIND	is the kind of character.\n	It can be one of the following symbols:\n\n	tab-mark	for TAB character\n\n	space-mark	for SPACE or HARD SPACE character\n\n	newline-mark	for NEWLINE character\n\nCHAR	is the character to be mapped.\n\nVECTOR	is a vector of characters to be displayed in place of CHAR.\n	The first display vector that can be displayed is used;\n	if no display vector for a mapping can be displayed, then\n	that character is displayed unmodified.\n\nThe NEWLINE character is displayed using the face given by\n`whitespace-newline' variable.\n\nUsed when `whitespace-style' includes `tab-mark', `space-mark' or\n`newline-mark'." (repeat (list :tag "Character Mapping" (choice :tag "Char Kind" (const :tag "Tab" tab-mark) (const :tag "Space" space-mark) (const :tag "Newline" newline-mark)) (character :tag "Char") (repeat :inline t :tag "Vector List" (vector :tag "" (repeat :inline t :tag "Vector Characters" (character :tag "Char")))))) whitespace-global-modes #[0 "\300\207" [t] 1] "Modes for which global `whitespace-mode' is automagically turned on.\n\nGlobal `whitespace-mode' is controlled by the command\n`global-whitespace-mode'.\n\nIf nil, means no modes have `whitespace-mode' automatically\nturned on.\n\nIf t, all modes that support `whitespace-mode' have it\nautomatically turned on.\n\nElse it should be a list of `major-mode' symbol names for which\n`whitespace-mode' should be automatically turned on.  The sense\nof the list is negated if it begins with `not'.  For example:\n\n   (c-mode c++-mode)\n\nmeans that `whitespace-mode' is turned on for buffers in C and\nC++ modes only." (choice :tag "Global Modes" (const :tag "None" nil) (const :tag "All" t) (set :menu-tag "Mode Specific" :tag "Modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "Mode")))) whitespace-action #[0 "\300\207" [nil] 1] "Specify which action is taken when a buffer is visited or written.\n\nIt's a list containing some or all of the following values:\n\n   nil			no action is taken.\n\n   cleanup		cleanup any bogus whitespace always when local\n			whitespace is turned on.\n			See `whitespace-cleanup' and\n			`whitespace-cleanup-region'.\n\n   report-on-bogus	report if there is any bogus whitespace always\n			when local whitespace is turned on.\n\n   auto-cleanup		cleanup any bogus whitespace when buffer is\n			written.\n			See `whitespace-cleanup' and\n			`whitespace-cleanup-region'.\n\n   abort-on-bogus	abort if there is any bogus whitespace and the\n			buffer is written.\n\n   warn-if-read-only	give a warning if `cleanup' or `auto-cleanup'\n			is included in `whitespace-action' and the\n			buffer is read-only.\n\nAny other value is treated as nil." (choice :tag "Actions" (const :tag "None" nil) (repeat :tag "Action List" (choice :tag "Action" (const :tag "Cleanup When On" cleanup) (const :tag "Report On Bogus" report-on-bogus) (const :tag "Auto Cleanup" auto-cleanup) (const :tag "Abort On Bogus" abort-on-bogus) (const :tag "Warn If Read-Only" warn-if-read-only))))] 10)
#@99 Non-nil if Whitespace mode is enabled.
Use the command `whitespace-mode' to change this variable.
(defvar whitespace-mode nil (#$ . 22016))
(make-variable-buffer-local 'whitespace-mode)
#@401 Toggle whitespace visualization (Whitespace mode).

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

See also `whitespace-style', `whitespace-newline' and
`whitespace-display-mappings'.

(fn &optional ARG)
(defalias 'whitespace-mode #[256 "\302 \303=\203
?\202\304!\305V	\203\306\202,\203)\307 \210\310 \210\202,\311 \210\312\313\2036\314\2027\315\"\210\316\317!\203[\302 \203K\211\302 \232\203[\320\321\322\203V\323\202W\324#\266\210\325 \210\207" [whitespace-mode noninteractive current-message toggle prefix-numeric-value 0 nil whitespace-turn-on whitespace-action-when-on whitespace-turn-off run-hooks whitespace-mode-hook whitespace-mode-on-hook whitespace-mode-off-hook called-interactively-p any " in current buffer" message "Whitespace mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 22209) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar whitespace-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [whitespace-mode-map whitespace-mode-hook variable-documentation put "Hook run after entering or leaving `whitespace-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode whitespace-mode " ws" boundp nil] 6)
#@115 Non-nil if Whitespace-Newline mode is enabled.
Use the command `whitespace-newline-mode' to change this variable.
(defvar whitespace-newline-mode nil (#$ . 23739))
(make-variable-buffer-local 'whitespace-newline-mode)
#@600 Toggle newline visualization (Whitespace Newline mode).

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

Use `whitespace-newline-mode' only for NEWLINE visualization
exclusively.  For other visualizations, including NEWLINE
visualization together with (HARD) SPACEs and/or TABs, please,
use `whitespace-mode'.

See also `whitespace-newline' and `whitespace-display-mappings'.

(fn &optional ARG)
(defalias 'whitespace-newline-mode #[256 "\303 \304=\203
?\202\305!\306V\307\302\203\310\202\311!\210)\n\312\313\203.\314\202/\315\"\210\316\317!\203S\303 \203C\211\303 \232\203S\320\321\322\203N\323\202O\324#\266\210\325 \210\207" [whitespace-newline-mode whitespace-style whitespace-mode current-message toggle prefix-numeric-value 0 (face newline-mark newline) 1 -1 run-hooks whitespace-newline-mode-hook whitespace-newline-mode-on-hook whitespace-newline-mode-off-hook called-interactively-p any " in current buffer" message "Whitespace-Newline mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 23964) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar whitespace-newline-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\312\313\314\315\316DD\317\320\321\322\323\324\325\326\327&\207" [whitespace-newline-mode-map whitespace-newline-mode-hook variable-documentation put "Hook run after entering or leaving `whitespace-newline-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode whitespace-newline-mode " nl" boundp nil custom-declare-variable global-whitespace-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Whitespace mode is enabled.\nSee the `global-whitespace-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-whitespace-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group whitespace :type boolean] 12)
#@424 Toggle whitespace visualization globally (Global Whitespace mode).

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

See also `whitespace-style', `whitespace-newline' and
`whitespace-display-mappings'.

(fn &optional ARG)
(defalias 'global-whitespace-mode #[256 "\303 \304\301\305=\203\306\301!?\202\307!\310V\"\210\203!\311\202t	\203Nr\312\313\314\"\210\312\315\314\"\210\316 \211\203I\211@\211q\210\n\204B\314 \210A\266\202\2022\210)\202tr\317\313\314\"\210\317\315\314\"\210\316 \211\203r\211@\211q\210\n\204k\320 \210A\266\202\202[\210)\321\322\306\301!\203\200\323\202\201\324\"\210\325\326!\203\253\327\301!\210\303 \203\231\211\303 \232\203\253\330\331\332\306\301!\203\246\333\202\247\334#\266\210\335 \210\306\301!\207" [noninteractive global-whitespace-mode whitespace-mode current-message set-default toggle default-value prefix-numeric-value 0 nil add-hook find-file-hook whitespace-turn-on-if-enabled after-change-major-mode-hook buffer-list remove-hook whitespace-turn-off run-hooks global-whitespace-mode-hook global-whitespace-mode-on-hook global-whitespace-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Whitespace mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 26287) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-whitespace-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [global-whitespace-mode-map global-whitespace-mode-hook variable-documentation put "Hook run after entering or leaving `global-whitespace-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode global-whitespace-mode " WS" boundp nil] 6)
#@248 Predicate to decide which buffers obey `global-whitespace-mode'.
This function is called with no argument and should return non-nil
if the current buffer should obey `global-whitespace-mode'.
This variable is normally modified via `add-function'.
(defvar whitespace-enable-predicate #[0 "\303=\204$<\203 \242\304=\203	A>?\202!	>\202!\305\205A\n?\205A\306 \307H\310=?\205A\306 \307H\311=?\206A\306 \312\230\207" [whitespace-global-modes major-mode noninteractive t not nil buffer-name 0 32 42 "*scratch*"] 2] (#$ . 28285))
(defalias 'whitespace-turn-on-if-enabled #[0 " \205\301 \207" [whitespace-enable-predicate whitespace-turn-on] 1])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable global-whitespace-newline-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Whitespace-Newline mode is enabled.\nSee the `global-whitespace-newline-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-whitespace-newline-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group whitespace :type boolean] 12)
#@634 Toggle global newline visualization (Global Whitespace Newline mode).

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

Use `global-whitespace-newline-mode' only for NEWLINE
visualization exclusively.  For other visualizations, including
NEWLINE visualization together with (HARD) SPACEs and/or TABs,
please use `global-whitespace-mode'.

See also `whitespace-newline' and `whitespace-display-mappings'.

(fn &optional ARG)
(defalias 'global-whitespace-newline-mode #[256 "\303 \304\301\305=\203\306\301!?\202\307!\310V\"\210\311\302	\203#\312\202$\313!\210\n)\314\315\306\301!\2035\316\2026\317\"\210\320\321!\203`\322\301!\210\303 \203N\211\303 \232\203`\323\324\325\306\301!\203[\326\202\\\327#\266\210\330 \210\306\301!\207" [whitespace-style global-whitespace-newline-mode global-whitespace-mode current-message set-default toggle default-value prefix-numeric-value 0 (newline-mark newline) 1 -1 run-hooks global-whitespace-newline-mode-hook global-whitespace-newline-mode-on-hook global-whitespace-newline-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Whitespace-Newline mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 29541) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-whitespace-newline-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [global-whitespace-newline-mode-map global-whitespace-newline-mode-hook variable-documentation put "Hook run after entering or leaving `global-whitespace-newline-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode global-whitespace-newline-mode " NL" boundp nil] 6)
#@42 List of valid `whitespace-style' values.
(defconst whitespace-style-value-list '(face tabs spaces trailing lines lines-tail newline empty indentation indentation::tab indentation::space big-indent space-after-tab space-after-tab::tab space-after-tab::space space-before-tab space-before-tab::tab space-before-tab::space help-newline tab-mark space-mark newline-mark) (#$ . 31522))
#@216 Alist of toggle options.

Each element has the form:

   (CHAR . SYMBOL)

Where:

CHAR	is a char which the user will have to type.

SYMBOL	is a valid symbol associated with CHAR.
	See `whitespace-style-value-list'.
(defconst whitespace-toggle-option-alist '((102 . face) (116 . tabs) (115 . spaces) (114 . trailing) (108 . lines) (76 . lines-tail) (110 . newline) (101 . empty) (9 . indentation) (73 . indentation::tab) (105 . indentation::space) (20 . big-indent) (1 . space-after-tab) (65 . space-after-tab::tab) (97 . space-after-tab::space) (2 . space-before-tab) (66 . space-before-tab::tab) (98 . space-before-tab::space) (84 . tab-mark) (83 . space-mark) (78 . newline-mark) (120 . whitespace-style)) (#$ . 31910))
#@48 Used to save locally `whitespace-style' value.
(defvar whitespace-active-style nil (#$ . 32638))
#@102 Used to save locally current point value.
Used by function `whitespace-trailing-regexp' (which see).
(defvar whitespace-point (point) (#$ . 32742))
#@58 Region whose highlighting depends on `whitespace-point'.
(defvar whitespace-point--used nil (#$ . 32896))
(make-variable-buffer-local 'whitespace-point--used)
#@114 Used to save locally the font-lock refontify state.
Used by function `whitespace-post-command-hook' (which see).
(defvar whitespace-font-lock-refontify nil (#$ . 33062))
#@105 Used to save locally the bob marker value.
Used by function `whitespace-post-command-hook' (which see).
(defvar whitespace-bob-marker nil (#$ . 33239))
#@105 Used to save locally the eob marker value.
Used by function `whitespace-post-command-hook' (which see).
(defvar whitespace-eob-marker nil (#$ . 33398))
#@139 Used to indicate locally if buffer changed.
Used by `whitespace-post-command-hook' and `whitespace-buffer-changed'
functions (which see).
(defvar whitespace-buffer-changed nil (#$ . 33557))
#@2748 Toggle local `whitespace-mode' options.

If local whitespace-mode is off, toggle the option given by ARG
and turn on local whitespace-mode.

If local whitespace-mode is on, toggle the option given by ARG
and restart local whitespace-mode.

Interactively, it reads one of the following chars:

  CHAR	MEANING
  (VIA FACES)
   f	toggle face visualization
   t	toggle TAB visualization
   s	toggle SPACE and HARD SPACE visualization
   r	toggle trailing blanks visualization
   l	toggle "long lines" visualization
   L	toggle "long lines" tail visualization
   n	toggle NEWLINE visualization
   e	toggle empty line at bob and/or eob visualization
   C-i	toggle indentation SPACEs visualization (via `indent-tabs-mode')
   I	toggle indentation SPACEs visualization
   i	toggle indentation TABs visualization
   C-t	toggle big indentation visualization
   C-a	toggle SPACEs after TAB visualization (via `indent-tabs-mode')
   A	toggle SPACEs after TAB: SPACEs visualization
   a	toggle SPACEs after TAB: TABs visualization
   C-b	toggle SPACEs before TAB visualization (via `indent-tabs-mode')
   B	toggle SPACEs before TAB: SPACEs visualization
   b	toggle SPACEs before TAB: TABs visualization

  (VIA DISPLAY TABLE)
   T	toggle TAB visualization
   S	toggle SPACEs before TAB visualization
   N	toggle NEWLINE visualization

   x	restore `whitespace-style' value
   ?	display brief help

Non-interactively, ARG should be a symbol or a list of symbols.
The valid symbols are:

   face			toggle face visualization
   tabs			toggle TAB visualization
   spaces		toggle SPACE and HARD SPACE visualization
   trailing		toggle trailing blanks visualization
   lines		toggle "long lines" visualization
   lines-tail		toggle "long lines" tail visualization
   newline		toggle NEWLINE visualization
   empty		toggle empty line at bob and/or eob visualization
   indentation		toggle indentation SPACEs visualization
   indentation::tab	toggle indentation SPACEs visualization
   indentation::space	toggle indentation TABs visualization
   big-indent		toggle big indentation visualization
   space-after-tab		toggle SPACEs after TAB visualization
   space-after-tab::tab		toggle SPACEs after TAB: SPACEs visualization
   space-after-tab::space	toggle SPACEs after TAB: TABs visualization
   space-before-tab		toggle SPACEs before TAB visualization
   space-before-tab::tab	toggle SPACEs before TAB: SPACEs visualization
   space-before-tab::space	toggle SPACEs before TAB: TABs visualization

   tab-mark		toggle TAB visualization
   space-mark		toggle SPACEs before TAB visualization
   newline-mark		toggle NEWLINE visualization

   whitespace-style	restore `whitespace-style' value

See `whitespace-style' and `indent-tabs-mode' for documentation.

(fn ARG)
(defalias 'whitespace-toggle-options #[257 "\302\303#\304\305!\210\304\306!)\207" [whitespace-active-style whitespace-style whitespace-toggle-list t whitespace-mode 0 1] 5 (#$ . 33755) (whitespace-interactive-char t)])
#@53 Used to toggle the global `whitespace-style' value.
(defvar whitespace-toggle-style nil (#$ . 36730))
#@2755 Toggle global `whitespace-mode' options.

If global whitespace-mode is off, toggle the option given by ARG
and turn on global whitespace-mode.

If global whitespace-mode is on, toggle the option given by ARG
and restart global whitespace-mode.

Interactively, it accepts one of the following chars:

  CHAR	MEANING
  (VIA FACES)
   f	toggle face visualization
   t	toggle TAB visualization
   s	toggle SPACE and HARD SPACE visualization
   r	toggle trailing blanks visualization
   l	toggle "long lines" visualization
   L	toggle "long lines" tail visualization
   n	toggle NEWLINE visualization
   e	toggle empty line at bob and/or eob visualization
   C-i	toggle indentation SPACEs visualization (via `indent-tabs-mode')
   I	toggle indentation SPACEs visualization
   i	toggle indentation TABs visualization
   C-t	toggle big indentation visualization
   C-a	toggle SPACEs after TAB visualization (via `indent-tabs-mode')
   A	toggle SPACEs after TAB: SPACEs visualization
   a	toggle SPACEs after TAB: TABs visualization
   C-b	toggle SPACEs before TAB visualization (via `indent-tabs-mode')
   B	toggle SPACEs before TAB: SPACEs visualization
   b	toggle SPACEs before TAB: TABs visualization

  (VIA DISPLAY TABLE)
   T	toggle TAB visualization
   S	toggle SPACEs before TAB visualization
   N	toggle NEWLINE visualization

   x	restore `whitespace-style' value
   ?	display brief help

Non-interactively, ARG should be a symbol or a list of symbols.
The valid symbols are:

   face			toggle face visualization
   tabs			toggle TAB visualization
   spaces		toggle SPACE and HARD SPACE visualization
   trailing		toggle trailing blanks visualization
   lines		toggle "long lines" visualization
   lines-tail		toggle "long lines" tail visualization
   newline		toggle NEWLINE visualization
   empty		toggle empty line at bob and/or eob visualization
   indentation		toggle indentation SPACEs visualization
   indentation::tab	toggle indentation SPACEs visualization
   indentation::space	toggle indentation TABs visualization
   big-indent		toggle big indentation visualization
   space-after-tab		toggle SPACEs after TAB visualization
   space-after-tab::tab		toggle SPACEs after TAB: SPACEs visualization
   space-after-tab::space	toggle SPACEs after TAB: TABs visualization
   space-before-tab		toggle SPACEs before TAB visualization
   space-before-tab::tab	toggle SPACEs before TAB: SPACEs visualization
   space-before-tab::space	toggle SPACEs before TAB: TABs visualization

   tab-mark		toggle TAB visualization
   space-mark		toggle SPACEs before TAB visualization
   newline-mark		toggle NEWLINE visualization

   whitespace-style	restore `whitespace-style' value

See `whitespace-style' and `indent-tabs-mode' for documentation.

(fn ARG)
(defalias 'global-whitespace-toggle-options #[257 "\302\303#\211\304\305!\210\304\306!)\207" [whitespace-toggle-style whitespace-style whitespace-toggle-list nil global-whitespace-mode 0 1] 6 (#$ . 36840) (whitespace-interactive-char nil)])
#@2086 Cleanup some blank problems in all buffer or at region.

It usually applies to the whole buffer, but in transient mark
mode when the mark is active, it applies to the region.  It also
applies to the region when it is not in transient mark mode, the
mark is active and \[universal-argument] was pressed just before
calling `whitespace-cleanup' interactively.

See also `whitespace-cleanup-region'.

The problems cleaned up are:

1. empty lines at beginning of buffer.
2. empty lines at end of buffer.
   If `whitespace-style' includes the value `empty', remove all
   empty lines at beginning and/or end of buffer.

3. `tab-width' or more SPACEs at beginning of line.
   If `whitespace-style' includes the value `indentation':
   replace `tab-width' or more SPACEs at beginning of line by
   TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by
   SPACEs.
   If `whitespace-style' includes the value `indentation::tab',
   replace `tab-width' or more SPACEs at beginning of line by TABs.
   If `whitespace-style' includes the value `indentation::space',
   replace TABs by SPACEs.

4. SPACEs before TAB.
   If `whitespace-style' includes the value `space-before-tab':
   replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
   otherwise, replace TABs by SPACEs.
   If `whitespace-style' includes the value
   `space-before-tab::tab', replace SPACEs by TABs.
   If `whitespace-style' includes the value
   `space-before-tab::space', replace TABs by SPACEs.

5. SPACEs or TABs at end of line.
   If `whitespace-style' includes the value `trailing', remove
   all SPACEs or TABs at end of line.

6. `tab-width' or more SPACEs after TAB.
   If `whitespace-style' includes the value `space-after-tab':
   replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
   otherwise, replace TABs by SPACEs.
   If `whitespace-style' includes the value
   `space-after-tab::tab', replace SPACEs by TABs.
   If `whitespace-style' includes the value
   `space-after-tab::space', replace TABs by SPACEs.

See `whitespace-style', `indent-tabs-mode' and `tab-width' for
documentation.
(defalias 'whitespace-cleanup #[0 "\203\306\307!\207	\204\n\203\203\310\311 \312 \"\207\212\313\f>\203D\314eb\210\315!\2034\316\224\316\225|\210\317\314\320#\203C\316\224\316\225|\210))\310ed\"\207" [buffer-read-only transient-mark-mode current-prefix-arg mark-active whitespace-style overwrite-mode whitespace-warn-read-only "cleanup" whitespace-cleanup-region region-beginning region-end empty nil looking-at 1 re-search-forward t whitespace-empty-at-bob-regexp whitespace-empty-at-eob-regexp] 4 (#$ . 39847) "@"])
#@1557 Cleanup some blank problems at region.

The problems cleaned up are:

1. `tab-width' or more SPACEs at beginning of line.
   If `whitespace-style' includes the value `indentation':
   replace `tab-width' or more SPACEs at beginning of line by TABs,
   if `indent-tabs-mode' is non-nil; otherwise, replace TABs by
   SPACEs.
   If `whitespace-style' includes the value `indentation::tab',
   replace `tab-width' or more SPACEs at beginning of line by TABs.
   If `whitespace-style' includes the value `indentation::space',
   replace TABs by SPACEs.

2. SPACEs before TAB.
   If `whitespace-style' includes the value `space-before-tab':
   replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
   otherwise, replace TABs by SPACEs.
   If `whitespace-style' includes the value
   `space-before-tab::tab', replace SPACEs by TABs.
   If `whitespace-style' includes the value
   `space-before-tab::space', replace TABs by SPACEs.

3. SPACEs or TABs at end of line.
   If `whitespace-style' includes the value `trailing', remove
   all SPACEs or TABs at end of line.

4. `tab-width' or more SPACEs after TAB.
   If `whitespace-style' includes the value `space-after-tab':
   replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
   otherwise, replace TABs by SPACEs.
   If `whitespace-style' includes the value
   `space-after-tab::tab', replace SPACEs by TABs.
   If `whitespace-style' includes the value
   `space-after-tab::space', replace TABs by SPACEs.

See `whitespace-style', `indent-tabs-mode' and `tab-width' for
documentation.

(fn START END)
(defalias 'whitespace-cleanup-region #[514 "\203\306\307!\207^\310]!\311\211\212\312\n>\203A\313 b\210\314\315#\203=\316 \262\317\224b\210\320 \210l\204 j\210\202 \210\202d\321\n>\203T\322\323\313\324!\317%\210\202d\325\n>\203d\322\326\313\327!\317%\210\330\n>\203r\322\331\332%\210\333\n>\203\214\322\f\203\201\323\202\202\326\334 \332%\210\202\257\335\n>\203\237\322\323\334\324!\332%\210\202\257\336\n>\203\257\322\326\334\327!\332%\210\337\n>\203\320\322\f\203\276\323\202\277\326
\f\203\312\317\202\313\340%\210\202\357\341\n>\203\341\322\323
\317%\210\202\357\342\n>\203\357\322\326
\340%\210)\311\211\223)\207" [buffer-read-only overwrite-mode whitespace-style whitespace-trailing-regexp indent-tabs-mode whitespace-space-before-tab-regexp whitespace-warn-read-only "cleanup region" copy-marker nil indentation whitespace-indentation-regexp re-search-forward t current-indentation 0 delete-horizontal-space indentation::tab whitespace-replace-action tabify tab indentation::space untabify space trailing delete-region 1 space-after-tab whitespace-space-after-tab-regexp space-after-tab::tab space-after-tab::space space-before-tab 2 space-before-tab::tab space-before-tab::space] 12 (#$ . 42475) "@r"])
#@193 Do ACTION in the string matched by REGEXP between RSTART and REND.

INDEX is the level group matched by REGEXP and used by ACTION.

See also `tab-width'.

(fn ACTION RSTART REND REGEXP INDEX)
(defalias 'whitespace-replace-action #[1285 "b\210\300\301#\205\211\225b\210\224\225\"\210\202\207" [re-search-forward t] 9 (#$ . 45307)])
#@76 Return REGEXP depending on `indent-tabs-mode'.

(fn REGEXP &optional KIND)
(defalias 'whitespace-regexp #[513 "\302\303=\204\203@\202\304=\204?\205A	\"\207" [indent-tabs-mode tab-width format tab space] 5 (#$ . 45654)])
#@85 Return the indentation regexp depending on `indent-tabs-mode'.

(fn &optional KIND)
(defalias 'whitespace-indentation-regexp #[256 "\301\"\207" [whitespace-indentation-regexp whitespace-regexp] 4 (#$ . 45896)])
#@89 Return the space-after-tab regexp depending on `indent-tabs-mode'.

(fn &optional KIND)
(defalias 'whitespace-space-after-tab-regexp #[256 "\301\"\207" [whitespace-space-after-tab-regexp whitespace-regexp] 4 (#$ . 46115)])
#@59 List of whitespace bogus symbol and corresponding regexp.
(defconst whitespace-report-list (byte-code "\304B\304	B\305\nB\306\307B\310\307B\311\307B\312B\313B\314B\315\307B\316\307B\317\307B\257\f\207" [whitespace-empty-at-bob-regexp whitespace-empty-at-eob-regexp whitespace-trailing-regexp whitespace-space-before-tab-regexp empty trailing indentation nil indentation::tab indentation::space space-before-tab space-before-tab::tab space-before-tab::space space-after-tab space-after-tab::tab space-after-tab::space] 13) (#$ . 46346))
#@181 Text for whitespace bogus report.

It is a cons of strings, where the car part is used when
`indent-tabs-mode' is non-nil, and the cdr part is used when
`indent-tabs-mode' is nil.
(defconst whitespace-report-text '(" Whitespace Report\n\n Current Setting                       Whitespace Problem\n\n empty                    []     []  empty lines at beginning of buffer\n empty                    []     []  empty lines at end of buffer\n trailing                 []     []  SPACEs or TABs at end of line\n indentation              []     []  >= `tab-width' SPACEs at beginning of line\n indentation::tab         []     []  >= `tab-width' SPACEs at beginning of line\n indentation::space       []     []  TABs at beginning of line\n space-before-tab         []     []  SPACEs before TAB\n space-before-tab::tab    []     []  SPACEs before TAB: SPACEs\n space-before-tab::space  []     []  SPACEs before TAB: TABs\n space-after-tab          []     []  >= `tab-width' SPACEs after TAB\n space-after-tab::tab     []     []  >= `tab-width' SPACEs after TAB: SPACEs\n space-after-tab::space   []     []  >= `tab-width' SPACEs after TAB: TABs\n\n indent-tabs-mode =\n tab-width        = \n\n" . " Whitespace Report\n\n Current Setting                       Whitespace Problem\n\n empty                    []     []  empty lines at beginning of buffer\n empty                    []     []  empty lines at end of buffer\n trailing                 []     []  SPACEs or TABs at end of line\n indentation              []     []  TABs at beginning of line\n indentation::tab         []     []  >= `tab-width' SPACEs at beginning of line\n indentation::space       []     []  TABs at beginning of line\n space-before-tab         []     []  SPACEs before TAB\n space-before-tab::tab    []     []  SPACEs before TAB: SPACEs\n space-before-tab::space  []     []  SPACEs before TAB: TABs\n space-after-tab          []     []  >= `tab-width' SPACEs after TAB\n space-after-tab::tab     []     []  >= `tab-width' SPACEs after TAB: SPACEs\n space-after-tab::space   []     []  >= `tab-width' SPACEs after TAB: TABs\n\n indent-tabs-mode =\n tab-width        = \n\n") (#$ . 46893))
#@46 The buffer name for whitespace bogus report.
(defconst whitespace-report-buffer-name "*Whitespace Report*" (#$ . 49060))
#@141 Report some whitespace problems in buffer.

Perform `whitespace-report-region' on the current buffer.

(fn &optional FORCE REPORT-IF-BOGUS)
(defalias 'whitespace-report #[512 "\300ed$\207" [whitespace-report-region] 7 (#$ . 49188) (list current-prefix-arg)])
#@1360 Report some whitespace problems in a region.

Return nil if there is no whitespace problem; otherwise, return
non-nil.

If FORCE is non-nil or \[universal-argument] was pressed just
before calling `whitespace-report-region' interactively, it
forces all classes of whitespace problem to be considered
significant.

If REPORT-IF-BOGUS is t, it reports only when there are any
whitespace problems in buffer; if it is `never', it does not
report problems.

Report if some of the following whitespace problems exist:

* If `indent-tabs-mode' is non-nil:
   empty		1. empty lines at beginning of buffer.
   empty		2. empty lines at end of buffer.
   trailing		3. SPACEs or TABs at end of line.
   indentation		4. line starts with `tab-width' or more SPACEs.
   space-before-tab	5. SPACEs before TAB.
   space-after-tab	6. `tab-width' or more SPACEs after TAB.

* If `indent-tabs-mode' is nil:
   empty		1. empty lines at beginning of buffer.
   empty		2. empty lines at end of buffer.
   trailing		3. SPACEs or TABs at end of line.
   indentation		4. TABS at beginning of line.
   space-before-tab	5. SPACEs before TAB.
   space-after-tab	6. `tab-width' or more SPACEs after TAB.

See `whitespace-style' for documentation.
See also `whitespace-cleanup' and `whitespace-cleanup-region' for
cleaning up these problems.

(fn START END &optional FORCE REPORT-IF-BOGUS)
(defalias 'whitespace-report-region #[1026 "C\211\206	\242\240\210\212\306C^]\307	\206\n!C\310\311\312\313\314\315\n\n\n\n\n%\316\"\317\320%\"\203G\321=\204\271\242\203\271\322\f!\210
!r\323\f!q\210\324 \210\203a\"@\202d\"Ac\210eb\210\325y\210\211\203\222\211@\326y\210\327\330@\242>\"\210\327\331@\"\210A\262A\266\202\202m\210\326y\210\332!\210\332!\210\242\203\262db\210\333\334!\335\333\336!\337\261\210\340p!\210)\266\242\266\205)\207" [current-prefix-arg whitespace-active-style whitespace-style whitespace-report-list whitespace-report-buffer-name indent-tabs-mode nil copy-sequence mapcar make-byte-code 257 "\300\242\203
\304@\304\242B\240\210\302b\210\211@\305=\203\306 \202^\211@\307=\203)\306\310!\202^\211@\311=\2036\306\312!\202^\211@\313=\203B\314 \202^\211@\315=\203O\314\310!\202^\211@\316=\203\\\314\312!\202^\211A\317\303\320#\205t\301\242\204s\301@\304\242>\240\210\320\207" vconcat vector [indentation whitespace-indentation-regexp indentation::tab tab indentation::space space space-after-tab whitespace-space-after-tab-regexp space-after-tab::tab space-after-tab::space re-search-forward t] 6 "\n\n(fn OPTION)" never whitespace-kill-buffer get-buffer-create erase-buffer 3 1 whitespace-mark-x 27 7 whitespace-insert-value substitute-command-keys " Type `\\[whitespace-cleanup]'" " to cleanup the buffer.\n\n" " Type `\\[whitespace-cleanup-region]'" " to cleanup a region.\n\n" whitespace-display-window tab-width whitespace-report-text] 20 (#$ . 49457) "r"])
#@76 Used to save the value `whitespace-color-on' adds to `font-lock-keywords'.
(defvar whitespace-font-lock-keywords nil (#$ . 52373))
#@37 Text for whitespace toggle options.
(defconst whitespace-help-text " Whitespace Toggle Options                  | scroll up  :  SPC   or > |\n                                            | scroll down:  M-SPC or < |\n FACES                                      \\__________________________/\n []  f   - toggle face visualization\n []  t   - toggle TAB visualization\n []  s   - toggle SPACE and HARD SPACE visualization\n []  r   - toggle trailing blanks visualization\n []  l   - toggle \"long lines\" visualization\n []  L   - toggle \"long lines\" tail visualization\n []  n   - toggle NEWLINE visualization\n []  e   - toggle empty line at bob and/or eob visualization\n []  C-i - toggle indentation SPACEs visualization (via `indent-tabs-mode')\n []  I   - toggle indentation SPACEs visualization\n []  i   - toggle indentation TABs visualization\n []  C-t - toggle big indentation visualization\n []  C-a - toggle SPACEs after TAB visualization (via `indent-tabs-mode')\n []  A   - toggle SPACEs after TAB: SPACEs visualization\n []  a   - toggle SPACEs after TAB: TABs visualization\n []  C-b - toggle SPACEs before TAB visualization (via `indent-tabs-mode')\n []  B   - toggle SPACEs before TAB: SPACEs visualization\n []  b   - toggle SPACEs before TAB: TABs visualization\n\n DISPLAY TABLE\n []  T - toggle TAB visualization\n []  S - toggle SPACE and HARD SPACE visualization\n []  N - toggle NEWLINE visualization\n\n      x - restore `whitespace-style' value\n\n      ? - display this text\n\n" (#$ . 52510))
#@48 The buffer name for whitespace toggle options.
(defconst whitespace-help-buffer-name "*Whitespace Toggle Options*" (#$ . 54037))
#@53 Insert VALUE at column 20 of next line.

(fn VALUE)
(defalias 'whitespace-insert-value #[257 "\300y\210\301\302\303\"\210\304\305\"c\207" [1 move-to-column 20 t format "%s"] 4 (#$ . 54172)])
#@90 Insert the mark (`X' or ` ') after NCHARS depending on CONDITION.

(fn NCHARS CONDITION)
(defalias 'whitespace-mark-x #[514 "u\210\211\203\300\202\f\301c\207" ["X" " "] 3 (#$ . 54370)])
#@88 Insert the option mark (`X' or ` ') in toggle options buffer.

(fn THE-LIST THE-VALUE)
(defalias 'whitespace-insert-option-mark #[514 "eb\210\300y\210\211\205*\211@\211\301=\203\300y\210\202#\302y\210\303\300>\"\210A\266\202\202\207" [2 help-newline 1 whitespace-mark-x] 8 (#$ . 54566)])
#@52 Display the whitespace toggle options.

(fn STYLE)
(defalias 'whitespace-help-on #[257 "\303!?\205\"\304 \210\305!r\211q\210\306 \210	c\210\307\n\"\210\310!)\262\207" [whitespace-help-buffer-name whitespace-help-text whitespace-style-value-list get-buffer delete-other-windows get-buffer-create erase-buffer whitespace-insert-option-mark whitespace-display-window] 5 (#$ . 54870)])
#@46 Display BUFFER in a new window.

(fn BUFFER)
(defalias 'whitespace-display-window #[257 "eb\210\301\302!\210\303 \304_W\203\305!\210\306\307!\210\310 \311\"\210\312!\207" [window-min-height set-buffer-modified-p nil window-height 2 kill-buffer error "Window height is too small; can't split window to display whitespace toggle options" split-window set-window-buffer shrink-window-if-larger-than-buffer] 5 (#$ . 55264)])
#@72 Kill buffer BUFFER-NAME and windows related with it.

(fn BUFFER-NAME)
(defalias 'whitespace-kill-buffer #[257 "\300!\211\205\301!\210\302!\207" [get-buffer delete-windows-on kill-buffer] 4 (#$ . 55698)])
#@64 Remove the buffer and window of the whitespace toggle options.
(defalias 'whitespace-help-off #[0 "\301!\207" [whitespace-help-buffer-name whitespace-kill-buffer] 2 (#$ . 55914)])
#@108 Scroll help window, if it exists.

If UP is non-nil, scroll up; otherwise, scroll down.

(fn &optional UP)
(defalias 'whitespace-help-scroll #[256 "\3011<\302!\211\2036\303\304!!r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\203-\316\317!\2020\320\317!*\262\2028\321 \2620\207\210\322\207" [whitespace-help-buffer-name (error) get-buffer internal--before-with-selected-window get-buffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord scroll-up 3 scroll-down ding nil] 9 (#$ . 56102)])
#@1294 Interactive function to read a char and return a symbol.

If LOCAL-P is non-nil, it uses a local context; otherwise, it
uses a global context.

It accepts one of the following chars:

  CHAR	MEANING
  (VIA FACES)
   f	toggle face visualization
   t	toggle TAB visualization
   s	toggle SPACE and HARD SPACE visualization
   r	toggle trailing blanks visualization
   l	toggle "long lines" visualization
   L	toggle "long lines" tail visualization
   n	toggle NEWLINE visualization
   e	toggle empty line at bob and/or eob visualization
   C-i	toggle indentation SPACEs visualization (via `indent-tabs-mode')
   I	toggle indentation SPACEs visualization
   i	toggle indentation TABs visualization
   C-a	toggle SPACEs after TAB visualization (via `indent-tabs-mode')
   A	toggle SPACEs after TAB: SPACEs visualization
   a	toggle SPACEs after TAB: TABs visualization
   C-b	toggle SPACEs before TAB visualization (via `indent-tabs-mode')
   B	toggle SPACEs before TAB: SPACEs visualization
   b	toggle SPACEs before TAB: TABs visualization

  (VIA DISPLAY TABLE)
   T	toggle TAB visualization
   S	toggle SPACE and HARD SPACE visualization
   N	toggle NEWLINE visualization

   x	restore `whitespace-style' value
   ?	display brief help

See also `whitespace-toggle-option-alist'.

(fn LOCAL-P)
(defalias 'whitespace-interactive-char #[257 "\211\203\202		?\211\203\n\202\203\202\f\306\307\203%\310\202&\311\"\312\211\313 \314\315\316\317\320!\321\"\322$\216\3231\201\324!\262
\236A\211\262\204w\325\267\202q\326!\210\202;\327\330!\210\202;\327 \210\202;\327\330!\210\202;\327 \210\202;\331 \210\202;\332 \210\333\334!0\202\213\332 \210\335\336!!\262\210)\210\211C\207" [whitespace-mode global-whitespace-mode whitespace-style whitespace-active-style whitespace-toggle-style whitespace-toggle-option-alist format "Whitespace Toggle %s (type ? for further options)-" "Local" "Global" nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 (quit error) read-char #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (63 80 32 87 134217760 94 62 100 60 107)) whitespace-help-on whitespace-help-scroll t ding whitespace-help-off message " " error error-message-string] 13 (#$ . 56685)])
#@301 Toggle options in THE-LIST based on list ARG.

If LOCAL-P is non-nil, it uses a local context; otherwise, it
uses a global context.

ARG is a list of options to be toggled.

THE-LIST is a list of options.  This list will be toggled and the
resultant list will be returned.

(fn LOCAL-P ARG THE-LIST)
(defalias 'whitespace-toggle-list #[771 "\203\202		\204\n\262\304!\262<\203\202C\211\203V\211@\211\305=\204O\211\302=\2037\n\262\202O\211>\203O\211>\203J\306\"\202M\211B\262A\266\202\202\210\207" [whitespace-mode global-whitespace-mode whitespace-style whitespace-style-value-list copy-sequence help-newline delq] 8 (#$ . 58995)])
#@37 Used to save a local display table.
(defvar whitespace-display-table nil (#$ . 59666))
#@72 Used to remember whether a buffer initially had a local display table.
(defvar whitespace-display-table-was-local nil (#$ . 59759))
#@35 Turn on whitespace visualization.
(defalias 'whitespace-turn-on #[0 "\305\306\307\310\311$\210\312\300!\210\310\312\301!\210\310\312\302!\210\310\312\304!\210<\203&\202(C\211\2052\313 \210\314 \207" [whitespace-font-lock-keywords whitespace-display-table whitespace-display-table-was-local whitespace-style whitespace-active-style add-hook write-file-functions whitespace-write-file-hook nil t make-local-variable whitespace-color-on whitespace-display-char-on] 6 (#$ . 59897)])
#@36 Turn off whitespace visualization.
(defalias 'whitespace-turn-off #[0 "\301\302\303\304#\210\205\305 \210\306 \207" [whitespace-active-style remove-hook write-file-functions whitespace-write-file-hook t whitespace-color-off whitespace-display-char-off] 4 (#$ . 60392)])
#@51 Return t if there is some visualization via face.
(defalias 'whitespace-style-face-p #[0 "\301>\205m\302>\204l\303>\204l\304>\204l\305>\204l\306>\204l\307>\204l\310>\204l\311>\204l\312>\204l\313>\204l\314>\204l\315>\204l\316>\204l\317>\204l\320>\204l\321>\204l\322>\205m\323\207" [whitespace-active-style face tabs spaces trailing lines lines-tail newline empty indentation indentation::tab indentation::space big-indent space-after-tab space-after-tab::tab space-after-tab::space space-before-tab space-before-tab::tab space-before-tab::space t] 2 (#$ . 60671)])
#@30 Turn on color visualization.
(defalias 'whitespace-color-on #[0 "\306 \205\221\307\300!\210`\310``\311\211\312%\313!\210\211\262\307\302!\210\314\307\303!\210\315 \307\304!\210\316 \307\305!\210\311\317\320\321\311\312$\210\317\322\305\311\312$\210\323\324\325?>\205T@\326BA\327BD\330?>\205`B\331BC\332?>\205k\333\334BC\335?>\204y\336?>\205\261C\206\200D\337\340E\211SE\245E\246\211\314U\203\230\341\202\234\337\342\"\262%\262\335?>\203\254\314\202\255\343\344BBC\345?>\204\306\346?>\204\306\347?>\205\363F\345?>\203\334G\203\330\350\202\357\343\202\357\346?>\203\347\350\202\357\347?>\205\357\343\351BBC\352?>\204\353?>\204\354?>\205.\352?>\203\355 \202+\353?>\203!\355\356!\202+\354?>\205+\355\357!\360BC\361?>\205:H\362BC\363?>\205H\364\365B\366\367BD\370?>\204]\371?>\204]\372?>\205\203\370?>\203i\373 \202\200\371?>\203v\373\356!\202\200\372?>\205\200\373\357!\374BC&	BI\375\311I\312#\210\376 \207" [whitespace-point whitespace-point--used whitespace-font-lock-refontify whitespace-bob-marker whitespace-eob-marker whitespace-buffer-changed whitespace-style-face-p make-local-variable make-overlay nil t delete-overlay 0 point-min-marker point-max-marker add-hook post-command-hook whitespace-post-command-hook before-change-functions (whitespace-point--flush-used) append spaces (1 whitespace-space t) (1 whitespace-hspace t) tabs (1 whitespace-tab t) trailing whitespace-trailing-regexp (1 whitespace-trailing t) lines lines-tail format "^\\([^	\n]\\{%s\\}\\|[^	\n]\\{0,%s\\}	\\)\\{%d\\}%s\\(.+\\)$" "" ".\\{%d\\}" 2 (whitespace-line prepend) space-before-tab space-before-tab::tab space-before-tab::space 1 (whitespace-space-before-tab t) indentation indentation::tab indentation::space whitespace-indentation-regexp tab space (1 whitespace-indentation t) big-indent (1 'whitespace-big-indent t) empty whitespace-empty-at-bob-regexp (1 whitespace-empty t) whitespace-empty-at-eob-regexp (1 whitespace-empty t) space-after-tab space-after-tab::tab space-after-tab::space whitespace-space-after-tab-regexp (1 whitespace-space-after-tab t) font-lock-add-keywords font-lock-flush whitespace-active-style whitespace-space-regexp whitespace-hspace-regexp whitespace-tab-regexp whitespace-line-column fill-column tab-width whitespace-space-before-tab-regexp indent-tabs-mode whitespace-big-indent-regexp whitespace-font-lock-keywords] 15 (#$ . 61277)])
#@31 Turn off color visualization.
(defalias 'whitespace-color-off #[0 "\301\302!\210\303 \205\304\305\306\307#\210\304\310\311\307#\210\312\313\"\210\314 \207" [whitespace-font-lock-keywords kill-local-variable whitespace-point--used whitespace-style-face-p remove-hook post-command-hook whitespace-post-command-hook t before-change-functions whitespace-buffer-changed font-lock-remove-keywords nil font-lock-flush] 4 (#$ . 63731)])
#@18 

(fn START END)
(defalias 'whitespace-point--used #[514 "\301!\211\203\302^\303!]#\202\302#\207" [whitespace-point--used overlay-start move-overlay overlay-end] 9 (#$ . 64169)])
#@14 

(fn LIMIT)
(defalias 'whitespace-point--flush-used #[257 "\301!\211\2030\302!`X\203#\211X\203\303!\210\202#\304#\210\211X\203/\304`#\210\210\210\305\207" [whitespace-point--used overlay-start overlay-end delete-overlay move-overlay nil] 7 (#$ . 64367)])
#@82 Match trailing spaces which do not contain the point at end of line.

(fn LIMIT)
(defalias 'whitespace-trailing-regexp #[257 "\302\303\302#\203	\304\225U\203!\305\306\224\306\225\"\210\202\307\211\262\204\211\207" [whitespace-trailing-regexp whitespace-point t re-search-forward 1 whitespace-point--used 0 nil] 6 (#$ . 64646)])
#@104 Match spaces at beginning of buffer which do not contain the point at beginning of buffer.

(fn LIMIT)
(defalias 'whitespace-empty-at-bob-regexp #[257 "`\303\304U\2030\305!\205	\304U?\206\306\307\224\307\225\"\210\303\262\n\203)\304\225\202*\303\223\210\202v\nX\203W\305!\262\211\203O\304\225W\203v\n\304\225\303\223\210\202v\n\303\223\210\202v\nX\203s\305!\262\n\203l\304\225\202m\303\223\210\202v\303\262\211\203~\304\225b\210\207" [whitespace-empty-at-bob-regexp whitespace-point whitespace-bob-marker nil 1 looking-at whitespace-point--used 0] 6 (#$ . 64991)])
#@21 

(fn REGEXP LIMIT)
(defalias 'whitespace-looking-back #[514 "\212\300x\301U?\205n\204\302y\210\303!)\207" [" 	\n" 0 1 looking-at] 4 (#$ . 65596)])
(put 'whitespace-looking-back 'byte-optimizer 'byte-compile-inline-expand)
#@92 Match spaces at end of buffer which do not contain the point at end of buffer.

(fn LIMIT)
(defalias 'whitespace-empty-at-eob-regexp #[257 "`\303 T\304U\203Ub\210\212\305x\306U?\205$n\204!\307y\210\310!)\266\202\262\211\203=	U\203=\304\262\311\306\224\306\225\"\210\211\203J\n\307\224\304\223\210\202\327\n\304\223\210b\210\202\327\nY\203\230b\210\212\305x\306U?\205tn\204q\307y\210\310!)\266\202\262\211\203\215\307\224V\203\327\n\307\224\304\223\210\202\327\n\304\223\210b\210\202\327\nY\203\324b\210\212\305x\306U?\205\267n\204\264\307y\210\310!)\266\202\262\211\203\311\n\307\224\304\223\210\202\327\n\304\223\210b\210\202\327\304\262\207" [whitespace-empty-at-eob-regexp whitespace-point whitespace-eob-marker buffer-size nil " 	\n" 0 1 looking-at whitespace-point--used] 8 (#$ . 65831)])
#@62 Set `whitespace-buffer-changed' variable to t.

(fn BEG END)
(defalias 'whitespace-buffer-changed #[514 "\301\211\207" [whitespace-buffer-changed t] 4 (#$ . 66684)])
#@85 Save current point into `whitespace-point' variable.
Also refontify when necessary.
(defalias 'whitespace-post-command-hook #[0 "`=\205	??\205\310`\211\305 TU\2037\n\306\212\307x\310U?\205,n\204)\311y\210\312!)\266\202\205T\310\224\202Tl\203Fh\313>\203F\314 \202T\311U\205T\312!\205T\310\225\315\f!\204l\211\205\306\316\317\f!\"\210\320\f!\202\306\211\204{\316`^`]\"\202\306\212\211b\210\314 \262\211`]X\205\232\317\f!b\210\314\321!`^X\262)\203\263\316`^^`]\317\f!]\"\210\320\f!\202\306\316`^`]\"\210\316\317\f!\"\210\320\f!\266\202\207" [whitespace-point whitespace-buffer-changed whitespace-empty-at-eob-regexp whitespace-empty-at-bob-regexp whitespace-point--used buffer-size nil " 	\n" 0 1 looking-at (32 9) line-beginning-position overlay-start font-lock-flush overlay-end delete-overlay 2] 8 (#$ . 66857)])
#@60 Return t if there is some visualization via display table.
(defalias 'whitespace-style-mark-p #[0 "\301>\204\302>\204\303>\205\304\207" [whitespace-active-style tab-mark space-mark newline-mark t] 2 (#$ . 67718)])
#@13 

(fn CHAR)
(defalias 'whitespace-char-valid-p #[257 "\211\300W\206	\301!\207" [256 characterp] 3 (#$ . 67947)])
(put 'whitespace-char-valid-p 'byte-optimizer 'byte-compile-inline-expand)
#@74 Return true if every character in vector VEC can be displayed.

(fn VEC)
(defalias 'whitespace-display-vector-p #[257 "\211G\211\300V\205&\211S\211\262\300Y\203#H\211\301W\206\302!\262\204\211\300W\207" [0 256 characterp] 5 (#$ . 68143)])
#@36 Turn on character display mapping.
(defalias 'whitespace-display-char-on #[0 "\205\241\306 \205\241\307\211	\204!\310\n\204\204\311\f!\311\f!\f\204(\312 \211\205\235\211@\211@>\203\226\211AA\262\203N\313@!\204NA\262\202<\203\226\311@!\262\211A@\314=\203\217\315>\203\217G\316\211W\203\215\211H\314=\204\205\317H\"I\210\210\211T\262\202j\266\fA@I\210A\266\202\202)\262\266\202\207" [whitespace-display-mappings whitespace-display-table-was-local whitespace-mode global-whitespace-mode buffer-display-table whitespace-display-table whitespace-style-mark-p nil t copy-sequence make-display-table whitespace-display-vector-p 10 newline 0 make-glyph-code whitespace-style whitespace-active-style whitespace-newline] 12 (#$ . 68399)])
#@37 Turn off character display mapping.
(defalias 'whitespace-display-char-off #[0 "\205\304 \205	\205\305\n\211\207" [whitespace-display-mappings whitespace-display-table-was-local whitespace-display-table buffer-display-table whitespace-style-mark-p nil] 2 (#$ . 69190)])
#@63 Action to be taken always when local whitespace is turned on.
(defalias 'whitespace-action-when-on #[0 "\301>\203	\302 \207\303>\205\304\305\306\"\207" [whitespace-action cleanup whitespace-cleanup report-on-bogus whitespace-report nil t] 3 (#$ . 69475)])
#@105 Action to be taken when buffer is written.
It should be added buffer-locally to `write-file-functions'.
(defalias 'whitespace-write-file-hook #[0 "\301>\203\f\302 \210\202\303>\203\304\305\306\"\203\307\310\311 \"\210\305\207" [whitespace-action auto-cleanup whitespace-cleanup abort-on-bogus whitespace-report nil t error "Abort write due to whitespace problems in %s" buffer-name] 3 (#$ . 69743)])
#@40 Warn if buffer is read-only.

(fn MSG)
(defalias 'whitespace-warn-read-only #[257 "\301>\205\f\302\303\304 #\207" [whitespace-action warn-if-read-only message "Can't %s: %s is read-only" buffer-name] 5 (#$ . 70158)])
#@32 Unload the whitespace library.
(defalias 'whitespace-unload-function #[0 "\300\301!\210r\302 \211\203\211@\211q\210\303\301!\210A\266\202\202\210)\304\207" [global-whitespace-mode -1 buffer-list whitespace-mode nil] 4 (#$ . 70384)])
(byte-code "\300\301!\210\302\303!\207" [provide whitespace run-hooks whitespace-load-hook] 2)

Youez - 2016 - github.com/yon3zu
LinuXploit