| Server IP : 217.160.0.212 / Your IP : 216.73.216.117 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327%\210\310\330\312\313\331DD\332\316\3331B \334 0\202F \210\202M \203M \335\202N \336%\210\310\337\312\313\340DD\341\316\342%\210\343\344\345\"\210\310\345\312\313\346DD\347\316\350%\210\310\351\312\313\352DD\353\316\354%\210\310\355\312\313\356DD\357\316\360\304\361&\210\310\362\312\313\363DD\364\316\365%\207" [custom-declare-group jit-lock nil "Font Lock support mode to fontify just-in-time." :version "21.1" :group font-lock custom-declare-variable jit-lock-chunk-size funcall function #[0 "\300\207" [1500] 1 #1=""] "Jit-lock asks to fontify chunks of at most this many characters at a time.\n\nThe actual size of the fontified chunk of text can be different,\ndepending on what the `fontification-functions' actually decide to do.\n\nThis variable controls both display-time and stealth fontifications.\n\nThe optimum value is a little over the typical number of buffer\ncharacters which fit in a typical window." :type integer jit-lock-stealth-time #[0 "\300\207" [nil] 1 #1#] "Time in seconds to wait before beginning stealth fontification.\nStealth fontification occurs if there is no input within this time.\nIf nil, stealth fontification is never performed.\n\nThe value of this variable is used when JIT Lock mode is turned on." (choice (const :tag "never" nil) (number :tag "seconds" :value 16)) jit-lock-stealth-nice #[0 "\300\207" [0.5] 1 #1#] "Time in seconds to pause between chunks of stealth fontification.\nEach iteration of stealth fontification is separated by this amount of time,\nthus reducing the demand that stealth fontification makes on the system.\nIf nil, means stealth fontification is never paused.\nTo reduce machine load during stealth fontification, at the cost of stealth\ntaking longer to fontify, you could increase the value of this variable.\nSee also `jit-lock-stealth-load'." (choice (const :tag "never" nil) (number :tag "seconds")) jit-lock-stealth-load #[0 "\3001\n \301 0\202 \210\302\207\205 \303\207" [(error) load-average nil 200] 1 #1#] "Load in percentage above which stealth fontification is suspended.\nStealth fontification pauses when the system short-term load average (as\nreturned by the function `load-average' if supported) goes above this level,\nthus reducing the demand that stealth fontification makes on the system.\nIf nil, means stealth fontification is never suspended.\nTo reduce machine load during stealth fontification, at the cost of stealth\ntaking longer to fontify, you could reduce the value of this variable.\nSee also `jit-lock-stealth-nice'." (error) load-average (choice (const :tag "never" nil) (integer :tag "load")) (const :format "%t: unsupported\n" nil) jit-lock-stealth-verbose #[0 "\300\207" [nil] 1 #1#] "If non-nil, means stealth fontification should show status messages." boolean defvaralias jit-lock-defer-contextually jit-lock-contextually #[0 "\300\207" [syntax-driven] 1 #1#] "If non-nil, fontification should be syntactically true.\nIf nil, refontification occurs only on lines that were modified. This\nmeans where modification on a line causes syntactic change on subsequent lines,\nthose subsequent lines are not refontified to reflect their new context.\nIf t, fontification occurs on those lines modified and all subsequent lines.\nThis means those subsequent lines are refontified to reflect their new\nsyntactic context, after `jit-lock-context-time' seconds.\nIf any other value, e.g., `syntax-driven', it means refontification of\nsubsequent lines to reflect their new syntactic context may or may not\noccur after `jit-lock-context-time', depending on the font-lock\ndefinitions of the buffer. Specifically, if `font-lock-keywords-only'\nis nil in a buffer, which generally means the syntactic fontification\nis done using the buffer mode's syntax table, the syntactic\nrefontification will be triggered (because in that case font-lock\ncalls `jit-lock-register' to set up for syntactic refontification,\nand sets the buffer-local value of `jit-lock-contextually' to t).\n\nThe value of this variable is used when JIT Lock mode is turned on." (choice (const :tag "never" nil) (const :tag "always" t) (other :tag "syntax-driven" syntax-driven)) jit-lock-context-time #[0 "\300\207" [0.5] 1 #1#] "Idle time after which text is contextually refontified, if applicable." (number :tag "seconds") jit-lock-antiblink-grace #[0 "\300\207" [2] 1 #1#] "Delay after which to refontify unterminated strings and comments.\nIf nil, no grace period is given; unterminated strings and comments\nare refontified immediately. If a number, a newly created\nunterminated string or comment is fontified only to the end of the\ncurrent line, after which fontification waits that many seconds of idle\ntime before refontifying the remaining lines. When typing strings\nand comments, the delay helps avoid unpleasant \"blinking\", between\nstring/comment and non-string/non-comment fontification." (choice (const :tag "never" nil) (number :tag "seconds")) "27.1" jit-lock-defer-time #[0 "\300\207" [nil] 1 #1#] "Idle time after which deferred fontification should take place.\nIf nil, fontification is not deferred.\nIf 0, then fontification is only deferred while there is input pending." (choice (const :tag "never" nil) (number :tag "seconds"))] 8) #@49 Non-nil means Just-in-time Lock mode is active. (defvar jit-lock-mode nil (#$ . 5490)) (make-variable-buffer-local 'jit-lock-mode) #@342 Special hook run to do the actual fontification. The functions are called with two arguments: the START and END of the region to fontify. Each function can return a list of the form (jit-lock-bounds BEG . END), to indicate the bounds of the region it actually fontified; JIT font-lock will use this information to optimize redisplay cycles. (defvar jit-lock-functions nil (#$ . 5628)) #@110 Consider text after this position as contextually unfontified. If nil, contextual fontification is disabled. (defvar jit-lock-context-unfontify-pos nil (#$ . 6020)) (make-variable-buffer-local 'jit-lock-context-unfontify-pos) #@60 Timer for stealth fontification in Just-in-time Lock mode. (defvar jit-lock-stealth-timer nil (#$ . 6252)) #@69 Timer for repeated stealth fontification in Just-in-time Lock mode. (defvar jit-lock-stealth-repeat-timer nil (#$ . 6365)) #@60 Timer for context fontification in Just-in-time Lock mode. (defvar jit-lock-context-timer nil (#$ . 6494)) #@61 Timer for deferred fontification in Just-in-time Lock mode. (defvar jit-lock-defer-timer nil (#$ . 6607)) #@54 List of buffers with pending deferred fontification. (defvar jit-lock-defer-buffers nil (#$ . 6719)) #@54 List of buffers that are being fontified stealthily. (defvar jit-lock-stealth-buffers nil (#$ . 6826)) #@67 Idle timer for fontifying unterminated string or comment, or nil. (defvar jit-lock--antiblink-grace-timer nil (#$ . 6935)) #@61 Last line beginning position after last command (a marker). (defvar jit-lock--antiblink-line-beginning-position (make-marker) (#$ . 7064)) #@65 Non-nil if in string or comment after last command (a boolean). (defvar jit-lock--antiblink-string-or-comment nil (#$ . 7209)) #@1671 Toggle Just-in-time Lock mode. Turn Just-in-time Lock mode on if and only if ARG is non-nil. Enable it automatically by customizing group `font-lock'. When Just-in-time Lock mode is enabled, fontification is different in the following ways: - Demand-driven buffer fontification triggered by Emacs C code. This means initial fontification of the whole buffer does not occur. Instead, fontification occurs when necessary, such as when scrolling through the buffer would otherwise reveal unfontified areas. This is useful if buffer fontification is too slow for large buffers. - Stealthy buffer fontification if `jit-lock-stealth-time' is non-nil. This means remaining unfontified areas of buffers are fontified if Emacs has been idle for `jit-lock-stealth-time' seconds, while Emacs remains idle. This is useful if any buffer has any deferred fontification. - Deferred context fontification if `jit-lock-contextually' is non-nil. This means fontification updates the buffer corresponding to true syntactic context, after `jit-lock-context-time' seconds of Emacs idle time, while Emacs remains idle. Otherwise, fontification occurs on modified lines only, and subsequent lines can remain fontified corresponding to previous syntactic contexts. This is useful where strings or comments span lines. Stealth fontification only occurs while the system remains unloaded. If the system load rises above `jit-lock-stealth-load' percent, stealth fontification is suspended. Stealth fontification intensity is controlled via the variable `jit-lock-stealth-nice'. If you need to debug code run from jit-lock, see `jit-lock-debug-mode'. (fn ARG) (defalias 'jit-lock-mode #[257 "\211\306 \203 \203 \307\310\311!\207\203v \312 \210 \203&