....................................../////.===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 : 18.222.21.218
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/hilit-chg.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 "\302\303!\210\304\305\306\307\310\311\312\313&\210\314\305\315\316\312\305%\210\314\317\320\321\312\305%\210\322\323\324\325\326\327\312\305&\210\330\331\332\306#\210\333\306\211\203V	@\331N\203O\332N\204O\334\332\331N#\210	A\211\2048*\335\331\332\336#\210\322\332\337\340\326\341\312\305&\210\330\342\343\306#\210\333\306\211\203\224	@\342N\203\215\343N\204\215\334\343\342N#\210	A\211\204v*\335\342\343\336#\210\322\343\344\345\326\346\312\305&\210\330\347\350\306#\210\333\306\211\203\322	@\347N\203\313\350N\204\313\334\350\347N#\210	A\211\204\264*\335\347\350\336#\210\322\350\351\352\326\353\312\305&\210\322\354\337\355\326\356\312\305&\210\322\357\306\360\326\341\312\305&\207" [prop --dolist-tail-- require wid-edit custom-declare-group highlight-changes nil "Highlight Changes mode." :version "20.4" :group faces custom-declare-face ((((min-colors 88) (class color)) (:foreground "red1")) (((class color)) (:foreground "red")) (t (:inverse-video t))) "Face used for highlighting changes." highlight-changes-delete ((((min-colors 88) (class color)) (:foreground "red1" :underline t)) (((class color)) (:foreground "red" :underline t)) (t (:inverse-video t))) "Face used for highlighting deletions." custom-declare-variable highlight-changes-colors (if (eq (frame-parameter nil 'background-mode) 'light) '("magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") '("yellow" "magenta" "blue" "maroon" "firebrick" "green4" "DarkOrchid")) "Colors used by `highlight-changes-rotate-faces'.\nThe newest rotated change will be displayed in the first element of this list,\nthe next older will be in the second element etc.\n\nThis list is used if `highlight-changes-face-list' is nil, otherwise that\nvariable overrides this list.  If you only care about foreground\ncolors then use this, if you want fancier faces then set\n`highlight-changes-face-list'." :type (repeat color) defvaralias highlight-changes-initial-state highlight-changes-visibility-initial-state (saved-value saved-variable-comment) put make-obsolete-variable "23.1" t "Controls whether changes are initially visible in Highlight Changes mode.\n\nThis controls the initial value of `highlight-changes-visible-mode'.\nWhen a buffer is in Highlight Changes mode the function\n`highlight-changes-visible-mode' is used to toggle the mode on or off." boolean highlight-changes-active-string highlight-changes-visible-string " +Chg" "The string used when in Highlight Changes mode and changes are visible.\nThis should be set to nil if no indication is desired, or to\na string with a leading space." (choice string (const :tag "None" nil)) highlight-changes-passive-string highlight-changes-invisible-string " -Chg" "The string used when in Highlight Changes mode and changes are hidden.\nThis should be set to nil if no indication is desired, or to\na string with a leading space." (choice string (const :tag "None" nil)) highlight-changes-global-modes "Determine whether a buffer is suitable for global Highlight Changes mode.\n\nA function means call that function to decide: if it returns non-nil,\nthe buffer is suitable.\n\nA list means the elements are major modes suitable for Highlight\nChanges mode, or a list whose first element is `not' followed by major\nmodes which are not suitable.\n\nA value of t means the buffer is suitable if it is visiting a file and\nits name does not begin with ` ' or `*'.\n\nA value of nil means no buffers are suitable for `global-highlight-changes-mode'\n(effectively disabling the mode).\n\nExample:\n	(c-mode c++-mode)\nmeans that Highlight Changes mode is turned on for buffers in C and C++\nmodes only." (choice (const :tag "all non-special buffers visiting files" t) (set :menu-tag "specific modes" :tag "modes" :value (not) (const :tag "All except these" not) (repeat :tag "Modes" :inline t (symbol :tag "mode"))) (function :menu-tag "determined by function" :value buffer-file-name) (const :tag "none" nil)) highlight-changes-global-changes-existing-buffers "If non-nil, toggling global Highlight Changes mode affects existing buffers.\nNormally, `global-highlight-changes-mode' affects only new buffers (to be\ncreated).  However, if `highlight-changes-global-changes-existing-buffers'\nis non-nil, then turning on `global-highlight-changes-mode' will turn on\nHighlight Changes mode in suitable buffers, and turning the mode off will\nremove it from existing buffers."] 9)
(defvar hilit-chg-list nil)
(defvar hilit-chg-string " ??")
(make-variable-buffer-local 'hilit-chg-string)
#@113 Non-nil if Highlight-Changes mode is enabled.
Use the command `highlight-changes-mode' to change this variable.
(defvar highlight-changes-mode nil (#$ . 4969))
(make-variable-buffer-local 'highlight-changes-mode)
#@1088 Toggle highlighting changes in this buffer (Highlight Changes mode).

If called interactively, enable Highlight-Changes 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.

When Highlight Changes is enabled, changes are marked with a text
property.  Normally they are displayed in a distinctive face, but
command \[highlight-changes-visible-mode] can be used to toggle
this on and off.

Other functions for buffers in this mode include:
\[highlight-changes-next-change] - move point to beginning of next change
\[highlight-changes-previous-change] - move to beginning of previous change
\[highlight-changes-remove-highlight] - remove the change face from the region
\[highlight-changes-rotate-faces] - rotate different "ages" of changes
through	various faces.
\[highlight-compare-with-file] - mark text as changed by comparing this
buffer with the contents of a file
\[highlight-compare-buffers] highlights differences between two buffers.
(defalias 'highlight-changes-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312 \204$\313\314!\203A\314 \203A\315=\2031\f\2041\n?\n\203;\316 \210\202E\317 \210\202E\320\321!\210\322\323\n\203O\324\202P\325\"\210\326\327!\203u\306 \203d\306 \232\203u\330\320\331\n\203p\332\202q\333
#\210))\334 \210\n\207" [#1=#:last-message arg highlight-changes-mode this-command highlight-changes-global-changes-existing-buffers local current-message toggle prefix-numeric-value 0 display-color-p fboundp x-display-grayscale-p global-highlight-changes-mode hilit-chg-set hilit-chg-clear message "Highlight Changes mode requires color or grayscale display" run-hooks highlight-changes-mode-hook highlight-changes-mode-on-hook highlight-changes-mode-off-hook called-interactively-p any " in current buffer" "Highlight-Changes mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 5190) (list (or current-prefix-arg 'toggle))])
(defvar highlight-changes-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [highlight-changes-mode-map highlight-changes-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-changes-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 highlight-changes-mode hilit-chg-string boundp nil] 6)
#@129 Non-nil if Highlight-Changes-Visible mode is enabled.
Use the command `highlight-changes-visible-mode' to change this variable.
(defvar highlight-changes-visible-mode t (#$ . 7712))
(make-variable-buffer-local 'highlight-changes-visible-mode)
#@633 Toggle visibility of highlighting due to Highlight Changes mode.

If called interactively, enable Highlight-Changes-Visible 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.

Highlight Changes Visible mode only has an effect when Highlight
Changes mode is on.  When enabled, the changed text is displayed
in a distinctive face.

The default value can be customized with variable
`highlight-changes-visibility-initial-state'.

This command does not itself set Highlight Changes mode.
(defalias 'highlight-changes-visible-mode #[(&optional arg) "\304 	\305=\203\n?\202\306	!\307V\310 \210\311\312\n\203!\313\202\"\314\"\210\315\316!\203G\304 \2036\304 \232\203G\317\320\321\n\203B\322\202C\323#\210))\324 \210\n\207" [#1=#:last-message arg highlight-changes-visible-mode local current-message toggle prefix-numeric-value 0 hilit-chg-update run-hooks highlight-changes-visible-mode-hook highlight-changes-visible-mode-on-hook highlight-changes-visible-mode-off-hook called-interactively-p any " in current buffer" message "Highlight-Changes-Visible mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 7962) (list (or current-prefix-arg 'toggle))])
(defvar highlight-changes-visible-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [highlight-changes-visible-mode-map highlight-changes-visible-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-changes-visible-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 highlight-changes-visible-mode nil boundp] 6)
(defalias 'hilit-chg-cust-fix-changes-face-list #[(w _wc &optional event) "\306!\307	>\203c\310	!	G\311\211\211\211\203R@\312\313\314
\"!\f=\204@\307=\203;\315\316\f\"\210\202@\315\f\"\210\317\fC\n\"
SA\211\204\n\306!\232\204b\320\n\"\210\321 \210-)\322\323\"\211\205v\324\325$)\207" [w old-list new-list old-name new-name n widget-value default reverse nil intern format "highlight-changes-%d" copy-face highlight-changes append widget-value-set widget-setup widget-get :parent widget-apply :notify p parent event] 6])
#@429 A list of faces used when rotating changes.
Normally the variable is initialized to nil and the list is created from
`highlight-changes-colors' when needed.  However, you can set this variable
to any list of faces.  You will have to do this if you want faces which
don't just differ from the `highlight-changes' face by the foreground color.
Otherwise, this list will be constructed when needed from
`highlight-changes-colors'.
(custom-declare-variable 'highlight-changes-face-list nil '(#$ . 10345) :type '(choice (repeat :notify hilit-chg-cust-fix-changes-face-list face) (const :tag "Derive from highlight-changes-colors" nil)) :group 'highlight-changes)
#@215 Call function FUNC for each region used by Highlight Changes mode.
If START-POSITION is nil, (point-min) is used.
If END-POSITION is nil, (point-max) is used.
FUNC is called with three params: PROPERTY START STOP.
(defalias 'hilit-chg-map-changes #[(func &optional start-position end-position) "\206e	\206\nd\306\211\211\205<
\fW\205<\307
\310\"\311
\f\310$\2035\n
\n\2063\f#\210\n\211\204\306,\207" [start-position end-position end prop limit start nil get-text-property hilit-chg text-property-not-all func] 6 (#$ . 11010)])
#@230 Display face information for Highlight Changes mode.

An overlay from BEG to END containing a change face is added
from the information in the text property of type `hilit-chg'.

This is the opposite of `hilit-chg-hide-changes'.
(defalias 'hilit-chg-display-changes #[(&optional beg end) "\302\303	#\207" [beg end hilit-chg-map-changes hilit-chg-make-ov] 4 (#$ . 11565)])
(defalias 'hilit-chg-make-ov #[(prop start end) "\204\306\307!\210\310	\n\"\311=\203\312\202\235A@\f\2035\313
\304\f#\210\313
\314\315#\210\313
\316\315#\2029\306\317\"*\207" [prop start end hilit-chg-list face ov error "hilit-chg-make-ov: prop is nil" make-overlay hilit-chg-delete highlight-changes-delete overlay-put evaporate t hilit-chg "hilit-chg-make-ov: no face for prop: %s"] 4])
#@221 Remove face information for Highlight Changes mode.

The overlay containing the face is removed, but the text property
containing the change information is retained.

This is the opposite of `hilit-chg-display-changes'.
(defalias 'hilit-chg-hide-changes #[(&optional beg end) "\206e	\206\nd\306\n\"\307\211\205-
@\310\f\311\"\203%\312\f!\210
A\211\204\307,\207" [beg end limit start p --dolist-tail-- overlays-in nil overlay-get hilit-chg delete-overlay] 4 (#$ . 12349)])
#@156 Fix change overlays in region between BEG and END.

Ensure the overlays agree with the changes as determined from
the text properties of type `hilit-chg'.
(defalias 'hilit-chg-fixup #[(beg end) "\302	\303\304$\210\305	\"\207" [beg end remove-overlays hilit-chg t hilit-chg-display-changes] 5 (#$ . 12843)])
#@137 Remove the change face from the region between BEG and END.
This allows you to manually remove highlighting from uninteresting changes.
(defalias 'highlight-changes-remove-highlight #[(beg end) "\306 \307\211\307\310\216\311\f
\312#\210\313\f
\"-\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks beg end buffer-modified-p t #[nil "?\205\301\302!\207" [#1# restore-buffer-modified-p nil] 2] remove-text-properties (hilit-chg nil) hilit-chg-fixup] 5 (#$ . 13159) "r"])
#@140 Record changes and optionally display them in a distinctive face.
`hilit-chg-set' adds this function to the `after-change-functions' hook.
(defalias 'hilit-chg-set-face-on-change #[(beg end leng-before &optional no-property-change) "\306 \307\216\310\311\203\f\205\212
\205\212\312\"\202\212\313 \314\211\314\315\216U\203I\316V\203I\n\\d^\317\202k\320\311\"\317=\203k\214~\210\321\211T\311\211$\210
\203j\312\211T\"\210)\204y\321\311	$\210
\204\202\205\211\322	#-,\207" [save-match-data-internal type end-incr undo-in-progress highlight-changes-mode highlight-changes-visible-mode match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 1 hilit-chg hilit-chg-fixup buffer-modified-p t #[nil "?\205\301\302!\207" [#1=#:modified restore-buffer-modified-p nil] 2] 0 hilit-chg-delete get-text-property put-text-property hilit-chg-make-ov beg end #1# buffer-undo-list inhibit-read-only inhibit-modification-hooks leng-before no-property-change] 6 (#$ . 13673)])
#@62 Update a buffer's highlight changes when visibility changed.
(defalias 'hilit-chg-update #[nil "\203
	\206\305 \207\f\206\306 \207" [highlight-changes-visible-mode highlight-changes-visible-string hilit-chg-string buffer-read-only highlight-changes-invisible-string hilit-chg-display-changes hilit-chg-hide-changes] 1 (#$ . 14731)])
#@49 Turn on Highlight Changes mode for this buffer.
(defalias 'hilit-chg-set #[nil "\303\304\305\306#\210\307 \210\306	\310 \210\311 \210\312\304\305\313\306$\207" [highlight-changes-mode highlight-changes-visibility-initial-state highlight-changes-visible-mode remove-hook after-change-functions hilit-chg-set-face-on-change t hilit-chg-make-list hilit-chg-update force-mode-line-update add-hook nil] 5 (#$ . 15080)])
#@91 Remove Highlight Changes mode for this buffer.
This removes all saved change information.
(defalias 'hilit-chg-clear #[nil "\203\n\306\307\310 \"\207\311\312\313\314#\210\315 \314\211\314\316\216\317 \210\320\321!\210-\322\323 \207" [buffer-read-only #1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks highlight-changes-mode message "Cannot remove highlighting from read-only mode buffer %s" buffer-name remove-hook after-change-functions hilit-chg-set-face-on-change t buffer-modified-p #[nil "?\205\301\302!\207" [#1# restore-buffer-modified-p nil] 2] hilit-chg-hide-changes hilit-chg-map-changes #[(_prop start stop) "\302	\303#\207" [start stop remove-text-properties (hilit-chg nil)] 4] nil force-mode-line-update] 5 (#$ . 15503)])
#@73 Move to the beginning of the next change, if in Highlight Changes mode.
(defalias 'highlight-changes-next-change #[nil "\203-`\303\304`\305\"\211\203\306`\305\"\n\203\306\n\305\"\n\203(\nb\202+\307\310!*\207\307\311!\207" [highlight-changes-mode prop start nil get-text-property hilit-chg next-single-property-change message "no next change" "This buffer is not in Highlight Changes mode."] 4 (#$ . 16282) nil])
#@77 Move to the beginning of the previous change, if in Highlight Changes mode.
(defalias 'highlight-changes-previous-change #[nil "\203F`\303o\204\304`S\305\"	\203\306`\305\"\n\203$\306\n\305\"\n\2038\306\n\305\"\2067\304e\305\"\2057e\n\203A\nb\202D\307\310!*\207\307\311!\207" [highlight-changes-mode prop start nil get-text-property hilit-chg previous-single-property-change message "no previous change" "This buffer is not in Highlight Changes mode."] 3 (#$ . 16713) nil])
#@63 Construct `hilit-chg-list' and `highlight-changes-face-list'.
(defalias 'hilit-chg-make-list #[(&optional force) "\203	\2036\n\306\307\307
\2035\310\311\312\f\"!\313\314\"\210\315
@\"\210\316C\"
A\fT\202+\317\314D\306\307\211
\203i\310\311\320\f\"!
@\316D\"
A\fT\202E\316D\"\211,\207" [highlight-changes-face-list force highlight-changes-colors name n p 1 nil intern format "highlight-changes-%d" copy-face highlight-changes set-face-foreground append hilit-chg "change-%d" hilit-chg-list last-face last-category] 4 (#$ . 17210)])
#@59 Increment (age) the Highlight Changes mode text property.
(defalias 'hilit-chg-bump-change #[(prop start end) "\305	\306=\203\307\n8\202\307	\n\2358	\203\"\310\f\311$\202(\312\313\f	$)\207" [new-prop prop hilit-chg-list start end nil hilit-chg-delete 2 put-text-property hilit-chg message "%d-%d unknown property %s not changed"] 5 (#$ . 17799)])
#@605 Rotate the faces if in Highlight Changes mode and the changes are visible.

Current changes are displayed in the face described by the first element
of `highlight-changes-face-list', one level older changes are shown in
face described by the second element, and so on.  Very old changes remain
shown in the last face in the list.

You can automatically rotate colors when the buffer is saved by adding
this function to `write-file-functions' as a buffer-local value.  To do
this, eval the following in the buffer to be saved:

  (add-hook \='write-file-functions \='highlight-changes-rotate-faces nil t)
(defalias 'highlight-changes-rotate-faces #[nil "\203	\203\304 \305\306\216\307 \210\310 \210\311\312!\210\313 \210+\314\207" [highlight-changes-mode highlight-changes-visible-mode inhibit-modification-hooks modified buffer-modified-p t #[nil "?\205\301\302!\207" [modified restore-buffer-modified-p nil] 2] hilit-chg-make-list hilit-chg-hide-changes hilit-chg-map-changes hilit-chg-bump-change hilit-chg-display-changes nil] 2 (#$ . 18165) nil])
#@138 Get differences between two buffers and set highlight changes.
Both buffers are done unless optional parameter MARKUP-A-ONLY
is non-nil.
(defalias 'highlight-markup-buffers #[(buf-a file-a buf-b file-b &optional markup-a-only) "\306\307!\210\310 \311\216\312\211\312\211\312\211\312\211\312\313!=?\2052\313!rq\210 )!rq\210 )\"\312\211#$%\203w\203w\314\315\316\"!\203trq\210\317 \210\313!)\202w\312%%\204\206\320\312\"\211%#&\203\257\203\257\314\315\316\"!\203\254rq\210\317 \210\313!)\202\257\312&&\204\276\320\312\"\211&$q\210\321\322!\210'\204\325rq\210\321\322!\210)\323%&$\211@	A@\324 \210\n\203:\n@@\n@A@@@@A@
\fZZq\210\325\f
!$\210'\2041rq\210\325\"$\210)\nAA\202\352\204Irq\210\326\312!\210)\204Xrq\210\326\312!\210)#\203b\327#!\210$\205k\327$!.\207" [#1=#:wconfig change-info change-a change-b a-start a-end require ediff-util current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] nil buffer-modified-p y-or-n-p format "Save buffer %s?  " save-buffer ediff-make-temp-file highlight-changes-mode 1 hilit-chg-get-diff-info hilit-chg-make-list hilit-chg-set-face-on-change set-buffer-modified-p delete-file len-a b-start b-end len-b buf-a bufa-modified buf-b bufb-modified buffer-read-only buf-a-read-only buf-b-read-only temp-a temp-b file-a file-b markup-a-only] 6 (#$ . 19233)])
#@505 Compare two buffers and highlight the differences.

The default is the current buffer and the one in the next window.

If either buffer is modified and is visiting a file, you are prompted
to save the file.

Unless the buffer is unmodified and visiting a file, the buffer is
written to a temporary file for comparison.

If a buffer is read-only, differences will be highlighted but no property
changes are made, so \[highlight-changes-next-change] and
\[highlight-changes-previous-change] will not work.
(defalias 'highlight-compare-buffers #[(buf-a buf-b) "\304!\304	!\305	\n$*\207" [buf-a buf-b file-b file-a buffer-file-name highlight-markup-buffers] 5 (#$ . 20705) (list (get-buffer (read-buffer "buffer-a " (current-buffer) t)) (get-buffer (read-buffer "buffer-b " (window-buffer (next-window)) t)))])
#@542 Compare this buffer with a file, and highlight differences.

If the buffer has a backup filename, it is used as the default when
this function is called interactively.

If the current buffer is visiting the file being compared against, it
also will have its differences highlighted.  Otherwise, the file is
read in temporarily but the buffer is deleted.

If the buffer is read-only, differences will be highlighted but no property
changes are made, so \[highlight-changes-next-change] and
\[highlight-changes-previous-change] will not work.
(defalias 'highlight-compare-with-file #[(file-b) "p\305 \306\n!\211\206\307\n!\310	\f\n?%\210?\205\"\311\f!,\207" [buf-a file-a file-b existing-buf buf-b buffer-file-name get-file-buffer find-file-noselect highlight-markup-buffers kill-buffer] 7 (#$ . 21524) (let ((file buffer-file-name) (file-name nil) (file-dir nil)) (and file (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (setq file-name (make-backup-file-name file-name)) (if (file-exists-p file-name) nil (setq file-name nil)) (list (read-file-name "Find to compare with: " file-dir nil nil file-name)))])
(defalias 'hilit-chg-get-diff-info #[(buf-a file-a buf-b file-b) "\306\211\211\307\f
\306\211\310\311\312BC&\210\n\211\205&\313!\205&\314\313!!\262\2037r\nq\210\315\306!\210)\202C\316=\204C\317!\210	+D\207" [hilit-y hilit-x hilit-e buf-a file-a buf-b nil ediff-setup (hilit-chg-get-diff-list-hk) ediff-job-name something get-buffer buffer-name ediff-really-quit ediff-quit error file-b this-command ediff-KILLED-VITAL-BUFFER] 10])
(defalias 'hilit-chg-get-diff-list-hk #[nil "p\306\307\211\211\211\211\211\307\211W\205\320\310!\210\311\312\"A\266\202JH\313H\211\203B\314\f\307\"\202V\311\312\"A\266\202JH\211\306\234C\n
\203v\315
@!\316
@!D
A\314C\"\202X\317\312\"A\266\202JH\313H\211\203\223\314\307\"\202\247\317\312\"A\266\202JH\211\306\234C	
\203\307\315
@!\316
@!D
A\314C\"\202\251T\211\202.\207" [hilit-e b a vb va p 0 nil ediff-make-fine-diffs A assoc 1 append overlay-start overlay-end B extent n hilit-x hilit-y ediff-number-of-differences ediff-difference-vector-alist] 8])
(put 'global-highlight-changes-mode 'globalized-minor-mode t)
(defvar highlight-changes-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315&\207" [make-variable-buffer-local highlight-changes-mode-major-mode custom-declare-variable global-highlight-changes-mode nil "Non-nil if Global Highlight-Changes mode is enabled.\nSee the `global-highlight-changes-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-highlight-changes-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group global-highlight-changes :type boolean] 12)
#@387 Toggle Highlight-Changes mode in all buffers.
With prefix ARG, enable Global Highlight-Changes mode if ARG is positive;
otherwise, disable it.  If called from Lisp, enable the mode if
ARG is omitted or nil.

Highlight-Changes mode is enabled in all buffers where
`highlight-changes-mode-turn-on' would do it.
See `highlight-changes-mode' for more information on Highlight-Changes mode.
(defalias 'global-highlight-changes-mode #[(&optional arg) "\306 \307\302	\310=\203\311\302!?\202\312	!\313V\"\210\n\203/\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202>\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \325\211\203h\f@rq\210\n\203X\326 \210\202`
\203`\305\327!\210)\fA\211\204G*\330\331\311\302!\203u\332\202v\333\"\210\334\335!\203\243\336\302!\210\306 \203\216\306 \232\203\243\337%\340\341\311\302!\203\235\342\202\236\343%#\210))\344 \210\311\302!\207" [#1=#:last-message arg global-highlight-changes-mode buf --dolist-tail-- highlight-changes-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-highlight-changes-mode-enable-in-buffers find-file-hook global-highlight-changes-mode-check-buffers change-major-mode-hook global-highlight-changes-mode-cmhh remove-hook buffer-list nil highlight-changes-mode-turn-on -1 run-hooks global-highlight-changes-mode-hook global-highlight-changes-mode-on-hook global-highlight-changes-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Highlight-Changes mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 24517) (list (or current-prefix-arg 'toggle))])
(defvar global-highlight-changes-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-highlight-changes-mode-map global-highlight-changes-mode-hook variable-documentation put "Hook run after entering or leaving `global-highlight-changes-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-highlight-changes-mode nil boundp] 6)
(defvar highlight-changes-mode-set-explicitly nil nil)
(make-variable-buffer-local 'highlight-changes-mode-set-explicitly)
(defalias 'highlight-changes-mode-set-explicitly #[nil "\301\211\207" [highlight-changes-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put highlight-changes-mode-set-explicitly definition-name global-highlight-changes-mode add-hook highlight-changes-mode-hook] 4)
(defvar global-highlight-changes-mode-buffers nil)
(defalias 'global-highlight-changes-mode-enable-in-buffers #[nil "\306	\306\211\205B@\307\n!\203:r\nq\210\f\2046
=\2046\2033\310\311!\210\312 \210\2026\312 \210)A\211\204\f\306+\207" [global-highlight-changes-mode-buffers buffers buf --dolist-tail-- highlight-changes-mode-set-explicitly highlight-changes-mode-major-mode nil buffer-live-p highlight-changes-mode -1 highlight-changes-mode-turn-on major-mode] 3])
(put 'global-highlight-changes-mode-enable-in-buffers 'definition-name 'global-highlight-changes-mode)
(defalias 'global-highlight-changes-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-highlight-changes-mode-enable-in-buffers remove-hook post-command-hook global-highlight-changes-mode-check-buffers] 3])
(put 'global-highlight-changes-mode-check-buffers 'definition-name 'global-highlight-changes-mode)
(defalias 'global-highlight-changes-mode-cmhh #[nil "p\211	\235\203
	\210\202	B)\302\303\304\"\207" [#1=#:x global-highlight-changes-mode-buffers add-hook post-command-hook global-highlight-changes-mode-check-buffers] 4])
(byte-code "\300\301\302\303#\210\304\305\303\306#\210\307\305\303\310#\207" [put global-highlight-changes-mode-cmhh definition-name global-highlight-changes-mode defalias global-highlight-changes nil make-obsolete "23.1"] 4)
#@134 See if Highlight Changes mode should be turned on for this buffer.
This is called when `global-highlight-changes-mode' is turned on.
(defalias 'highlight-changes-mode-turn-on #[nil "\206@	\204\n\303\207\304	!\203	 \202:	<\203/	\242\305=\203)\n	A>?\202:\n	>\202:\306\307\310 \"?\205@\311 \205@\300\312!\207" [highlight-changes-mode highlight-changes-global-modes major-mode nil functionp not string-match "^[ *]" buffer-name buffer-file-name 1] 3 (#$ . 28464)])
(defalias 'hilit-chg-desktop-restore #[(desktop-buffer-locals) "\301\211\236A\206	\302!\207" [desktop-buffer-locals highlight-changes-mode 1] 3])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-to-list desktop-minor-mode-handlers (highlight-changes-mode . hilit-chg-desktop-restore) desktop-locals-to-save highlight-changes-mode] 3)
#@39 Unload the Highlight Changes library.
(defalias 'hilit-chg-unload-function #[nil "\300\301!\210\302\207" [global-hi-lock-mode -1 nil] 2 (#$ . 29285)])
(provide 'hilit-chg)

Youez - 2016 - github.com/yon3zu
LinuXploit