;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:14 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/lazy-lock.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`lazy-lock.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305!\210\301B\306\301!\204\307\302B\306\302!\204\307\303B\306\303!\204*\307\211B\307\207" [current-load-list lazy-lock-mode lazy-lock-buffers lazy-lock-timers require font-lock boundp nil] 2) #@622 *Minimum size of a buffer for demand-driven fontification. On-demand fontification occurs if the buffer size is greater than this value. If nil, means demand-driven fontification is never performed. If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . 25600) (c++-mode . 25600) (rmail-mode . 1048576)) means that the minimum size is 25K for buffers in C or C++ modes, one megabyte for buffers in Rmail mode, and size is irrelevant otherwise. The value of this variable is used when Lazy Lock mode is turned on. (custom-declare-variable 'lazy-lock-minimum-size '25600 '(#$ . -844) :type '(choice (const :tag "none" nil) (integer :tag "size") (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Size" (const :tag "none" nil) (integer :tag "size"))))) :group 'lazy-lock) #@600 *If non-nil, means fontification after a change should be deferred. If nil, means on-the-fly fontification is performed. This means when changes occur in the buffer, those areas are immediately fontified. If a list, it should be a list of `major-mode' symbol names for which deferred fontification should occur. The sense of the list is negated if it begins with `not'. For example: (c-mode c++-mode) means that on-the-fly fontification is deferred for buffers in C and C++ modes only, and deferral does not occur otherwise. The value of this variable is used when Lazy Lock mode is turned on. (custom-declare-variable 'lazy-lock-defer-on-the-fly 't '(#$ . -1842) :type '(choice (const :tag "never" nil) (const :tag "always" t) (set :menu-tag "mode specific" :tag "modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "mode")))) :group 'lazy-lock) #@1321 *If non-nil, means fontification after a scroll should be deferred. If nil, means demand-driven fontification is performed. This means when scrolling into unfontified areas of the buffer, those areas are immediately fontified. Thus scrolling never presents unfontified areas. However, since fontification occurs during scrolling, scrolling may be slow. If t, means defer-driven fontification is performed. This means fontification of those areas is deferred. Thus scrolling may present momentarily unfontified areas. However, since fontification does not occur during scrolling, scrolling will be faster than demand-driven fontification. If any other value, e.g., `eventually', means demand-driven fontification is performed until the buffer is fontified, then buffer fontification becomes defer-driven. Thus scrolling never presents unfontified areas until the buffer is first fontified, after which subsequent scrolling may present future buffer insertions momentarily unfontified. However, since fontification does not occur during scrolling after the buffer is first fontified, scrolling will become faster. (But, since contextual changes continually occur, such a value makes little sense if `lazy-lock-defer-contextually' is non-nil.) The value of this variable is used when Lazy Lock mode is turned on. (custom-declare-variable 'lazy-lock-defer-on-scrolling 'nil '(#$ . -2727) :type '(choice (const :tag "never" nil) (const :tag "always" t) (other :tag "eventually" eventually)) :group 'lazy-lock) #@836 *If non-nil, means deferred fontification should be syntactically true. If nil, means deferred fontification occurs only on those lines modified. This means where modification on a line causes syntactic change on subsequent lines, those subsequent lines are not refontified to reflect their new context. If t, means deferred fontification occurs on those lines modified and all subsequent lines. This means those subsequent lines are refontified to reflect their new syntactic context, either immediately or when scrolling into them. If any other value, e.g., `syntax-driven', means deferred syntactically true fontification occurs only if syntactic fontification is performed using the buffer mode's syntax table, i.e., only if `font-lock-keywords-only' is nil. The value of this variable is used when Lazy Lock mode is turned on. (custom-declare-variable 'lazy-lock-defer-contextually ''syntax-driven '(#$ . -4249) :type '(choice (const :tag "never" nil) (const :tag "always" t) (other :tag "syntax-driven" syntax-driven)) :group 'lazy-lock) #@393 *Time in seconds to delay before beginning deferred fontification. Deferred fontification occurs if there is no input within this time. If nil, means fontification is never deferred, regardless of the values of the variables `lazy-lock-defer-on-the-fly', `lazy-lock-defer-on-scrolling' and `lazy-lock-defer-contextually'. The value of this variable is used when Lazy Lock mode is turned on. (custom-declare-variable 'lazy-lock-defer-time '(if (featurep 'lisp-float-type) (/ (float 1) (float 4)) 1) '(#$ . -5303) :type '(choice (const :tag "never" nil) (number :tag "seconds")) :group 'lazy-lock) #@261 *Time in seconds to delay before beginning stealth fontification. Stealth fontification occurs if there is no input within this time. If nil, means stealth fontification is never performed. The value of this variable is used when Lazy Lock mode is turned on. (custom-declare-variable 'lazy-lock-stealth-time '30 '(#$ . -5907) :type '(choice (const :tag "never" nil) (number :tag "seconds")) :group 'lazy-lock) #@277 *Maximum size of a chunk of stealth fontification. Each iteration of stealth fontification can fontify this number of lines. To speed up input response during stealth fontification, at the cost of stealth taking longer to fontify, you could reduce the value of this variable. (custom-declare-variable 'lazy-lock-stealth-lines '(if font-lock-maximum-decoration 100 250) '(#$ . -6325) :type '(integer :tag "lines") :group 'lazy-lock) #@530 *Load in percentage above which stealth fontification is suspended. Stealth fontification pauses when the system short-term load average (as returned by the function `load-average' if supported) goes above this level, thus reducing the demand that stealth fontification makes on the system. If nil, means stealth fontification is never suspended. To reduce machine load during stealth fontification, at the cost of stealth taking longer to fontify, you could reduce the value of this variable. See also `lazy-lock-stealth-nice'. (custom-declare-variable 'lazy-lock-stealth-load '(if (condition-case nil (load-average) (error)) 200) '(#$ . -6764) :type (if (condition-case nil (load-average) (error)) '(choice (const :tag "never" nil) (integer :tag "load")) '(const :format "%t: unsupported\n" nil)) :group 'lazy-lock) #@455 *Time in seconds to pause between chunks of stealth fontification. Each iteration of stealth fontification is separated by this amount of time, thus reducing the demand that stealth fontification makes on the system. If nil, means stealth fontification is never paused. To reduce machine load during stealth fontification, at the cost of stealth taking longer to fontify, you could increase the value of this variable. See also `lazy-lock-stealth-load'. (custom-declare-variable 'lazy-lock-stealth-nice '(if (featurep 'lisp-float-type) (/ (float 1) (float 8)) 1) '(#$ . -7589) :type '(choice (const :tag "never" nil) (number :tag "seconds")) :group 'lazy-lock) #@71 *If non-nil, means stealth fontification should show status messages. (custom-declare-variable 'lazy-lock-stealth-verbose '(if (featurep 'lisp-float-type) (and (not lazy-lock-defer-contextually) (not (null font-lock-verbose)))) '(#$ . -8256) :type 'boolean :group 'lazy-lock) #@2800 Toggle Lazy Lock mode. With arg, turn Lazy Lock mode on if and only if arg is positive. Enable it automatically in your `~/.emacs' by: (setq font-lock-support-mode 'lazy-lock-mode) When Lazy Lock mode is enabled, fontification can be lazy in a number of ways: - Demand-driven buffer fontification if `lazy-lock-minimum-size' is non-nil. This means initial fontification does not occur if the buffer is greater than `lazy-lock-minimum-size' characters in length. 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. - Deferred scroll fontification if `lazy-lock-defer-on-scrolling' is non-nil. This means demand-driven fontification does not occur as you scroll. Instead, fontification is deferred until after `lazy-lock-defer-time' seconds of Emacs idle time, while Emacs remains idle. This is useful if fontification is too slow to keep up with scrolling. - Deferred on-the-fly fontification if `lazy-lock-defer-on-the-fly' is non-nil. This means on-the-fly fontification does not occur as you type. Instead, fontification is deferred until after `lazy-lock-defer-time' seconds of Emacs idle time, while Emacs remains idle. This is useful if fontification is too slow to keep up with your typing. - Deferred context fontification if `lazy-lock-defer-contextually' is non-nil. This means fontification updates the buffer corresponding to true syntactic context, after `lazy-lock-defer-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. - Stealthy buffer fontification if `lazy-lock-stealth-time' is non-nil. This means remaining unfontified areas of buffers are fontified if Emacs has been idle for `lazy-lock-stealth-time' seconds, while Emacs remains idle. This is useful if any buffer has any deferred fontification. Basic Font Lock mode on-the-fly fontification behaviour fontifies modified lines only. Thus, if `lazy-lock-defer-contextually' is non-nil, Lazy Lock mode on-the-fly fontification may fontify differently, albeit correctly. In any event, to refontify some lines you can use \[font-lock-fontify-block]. Stealth fontification only occurs while the system remains unloaded. If the system load rises above `lazy-lock-stealth-load' percent, stealth fontification is suspended. Stealth fontification intensity is controlled via the variable `lazy-lock-stealth-nice' and `lazy-lock-stealth-lines', and verbosity is controlled via the variable `lazy-lock-stealth-verbose'. (defalias 'lazy-lock-mode #[(&optional arg) "\300\n>?\205 \203\306 !\307V\202 ?\211\203* \204*\300 \305\310!)\202E\f\2039\311\300!\310L\210\312 \202E \205E\311\300!\313L\210\314 *\207" [lazy-lock-mode was-on font-lock-inhibit-thing-lock arg now-on font-lock-mode prefix-numeric-value 0 t make-local-variable lazy-lock-install nil lazy-lock-unstall font-lock-support-mode] 3 (#$ . 8540) "P"]) #@41 Unconditionally turn on Lazy Lock mode. (defalias 'turn-on-lazy-lock #[nil "\300\301!\207" [lazy-lock-mode t] 2 (#$ . 11753)]) (defalias 'lazy-lock-install #[nil "\306! \205\n \205 \205\f\205\f\307=\206 ?\310\311!\210\2053\312 Y\211 \204?\313 \210\202^\314p\315\307#\316 \210\203]\317@!\210A\211\204N)\320 \242\321=\203sA>?\202\203<\203\201>\202\203\307=$\210\322\204\233\204\233\205\234 \",\207" [lazy-lock-minimum-size lazy-lock-defer-time lazy-lock-defer-on-the-fly lazy-lock-defer-on-scrolling lazy-lock-defer-contextually font-lock-keywords-only font-lock-value-in-major-mode t make-local-variable font-lock-fontified buffer-size lazy-lock-after-fontify-buffer get-buffer-window-list nomini lazy-lock-after-unfontify-buffer lazy-lock-fontify-conservatively lazy-lock-install-hooks not lazy-lock-install-timers defer-context defer-scroll defer-change min-size windows major-mode lazy-lock-stealth-time] 6]) (defalias 'lazy-lock-install-hooks #[(fontifying defer-change defer-scroll defer-context) "\204 \204\n\204 \203#\304\305!\210\306\305\n\203\307\202\310\311\312$\210\203: \204: \204:\304\313!\210\306\313\314\311\312$\210\315\316\317\312#\210\306\316 \203N \203N\320\202_ \203V\321\202_ \203^\322\202_\323\311\312$\210\304\324!\210\306\324\325\311\312$\210\304\326!\210\306\326\325\311\312$\207" [fontifying defer-change defer-scroll defer-context make-local-hook window-scroll-functions add-hook lazy-lock-defer-after-scroll lazy-lock-fontify-after-scroll nil t before-change-functions lazy-lock-arrange-before-change remove-hook after-change-functions font-lock-after-change-function lazy-lock-defer-rest-after-change lazy-lock-defer-line-after-change lazy-lock-fontify-rest-after-change lazy-lock-fontify-line-after-change outline-view-change-hook lazy-lock-fontify-after-visage hs-hide-hook] 5]) (defalias 'lazy-lock-install-timers #[(dtime stime) " @@=\204$ @\211A\203\305\nA!\210 \211\205 \306\307\310#B\240\210) A@=?\205H A\211A\203:\305\fA!\210 \211\205E\306 \307\311#B\241)\207" [dtime lazy-lock-timers defer stime stealth cancel-timer run-with-idle-timer t lazy-lock-fontify-after-defer lazy-lock-fontify-after-idle] 7]) (defalias 'lazy-lock-unstall #[nil "\203A\305 \203: \247\203\306 V\202 \211\205 \307\310\311 \"\312\313\216\f\2031\314 \315\316\f\"\210\214~\210\317ed\"\210-\320\321\322\312\323$\210\324 \210\325\326\327\323#\210\325\326\330\323#\210\325\331\332\323#\210\325\321\333\323#\210\325\321\334\323#\210\325\321\335\323#\210\325\321\336\323#\210\325\337\340\323#\210\325\341\340\323#\207" [font-lock-mode font-lock-verbose verbose #1=#:current-message #2=#:with-temp-message lazy-lock-unfontified-p buffer-size format "Fontifying %s..." buffer-name nil ((byte-code "\203 \203 \302\303 \"\210\302\207" [#2# #1# message "%s"] 3)) current-message message "%s" lazy-lock-fontify-region add-hook after-change-functions font-lock-after-change-function t lazy-lock-after-unfontify-buffer remove-hook window-scroll-functions lazy-lock-fontify-after-scroll lazy-lock-defer-after-scroll before-change-functions lazy-lock-arrange-before-change lazy-lock-fontify-line-after-change lazy-lock-fontify-rest-after-change lazy-lock-defer-line-after-change lazy-lock-defer-rest-after-change outline-view-change-hook lazy-lock-fontify-after-visage hs-hide-hook] 6]) (defalias 'lazy-lock-fontify-after-scroll #[(window window-start) "\303\304 \305\n\303\"\"\210)\306\n\307\"\207" [inhibit-point-motion-hooks window-start window t lazy-lock-fontify-region window-end set-window-redisplay-end-trigger nil] 5]) (defalias 'lazy-lock-defer-after-scroll #[(window window-start) "p>\204\npB\302 \303\"\207" [lazy-lock-buffers window set-window-redisplay-end-trigger nil] 3]) (defalias 'lazy-lock-fontify-after-resize #[(frame) "\212\302 \303\216\304 !\210\305\306\307 #+\207" [save-selected-window-window frame selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) select-frame walk-windows #[(window) "\302!q\210 \203 \303!\210\304\305\"\207" [window lazy-lock-mode window-buffer lazy-lock-fontify-conservatively set-window-redisplay-end-trigger nil] 3] nomini] 4]) (defalias 'lazy-lock-arrange-before-change #[(beg end) " =?\2056\304p\305\306#\307\211\2055 @\310\311\n!!\204$\312\n\313 \"\210\311\n!\314\n!\307\223\210 A\211\204\307*\207" [beg end window windows get-buffer-window-list nomini t nil markerp window-redisplay-end-trigger set-window-redisplay-end-trigger make-marker window-end] 5]) (defalias 'lazy-lock-fontify-after-trigger #[(window trigger-point) "\303\304 \305\n\303\"\")\207" [inhibit-point-motion-hooks trigger-point window t lazy-lock-fontify-region window-end] 5]) (defalias 'lazy-lock-fontify-line-after-change 'font-lock-after-change-function) (defalias 'lazy-lock-fontify-rest-after-change #[(beg end old-len) "\306 \n#\210\307 \310\310\310 \311\311\311\311\311p>\204,pB\214~\210\312 d\313#\210) ?\205C\307 \205C\314\311!. \207" [beg end old-len modified buffer-undo-list inhibit-read-only lazy-lock-fontify-line-after-change buffer-modified-p t nil remove-text-properties (lazy-lock nil) set-buffer-modified-p inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename lazy-lock-buffers] 4]) (defalias 'lazy-lock-defer-line-after-change #[(beg end old-len) "\306 \307\307\307\310\310\310\f\310 \310p>\204#pB\311Se]Td^\312#\210?\205>\306 \205>\313\310!. \207" [modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions buffer-modified-p t nil remove-text-properties (lazy-lock nil) set-buffer-modified-p deactivate-mark buffer-file-name buffer-file-truename lazy-lock-buffers beg end] 4]) (defalias 'lazy-lock-defer-rest-after-change #[(beg end old-len) "\306 \307\307\307\310\310\310\f\310 \310p>\204#pB\214~\210\311Se]d\312#\210)?\205>\306 \205>\313\310!. \207" [modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions buffer-modified-p t nil remove-text-properties (lazy-lock nil) set-buffer-modified-p deactivate-mark buffer-file-name buffer-file-truename lazy-lock-buffers beg] 4]) (defalias 'lazy-lock-fontify-after-defer #[nil "\212\2039\306 \2049@\307\310\n!\2032\nq\210 \2032\311\n\312\313#\211\2032\314 @!\210 A\211\204&A*\202) \205_\f\205_\315 >\205_\306 \206O\316 ?\205_\317\305\315\313#\210\320\305\321\307\313$\207" [lazy-lock-buffers windows buffer lazy-lock-mode lazy-lock-defer-on-scrolling window-scroll-functions input-pending-p nil buffer-live-p get-buffer-window-list nomini t lazy-lock-fontify-window lazy-lock-fontify-after-scroll lazy-lock-unfontified-p remove-hook add-hook lazy-lock-defer-after-scroll] 6]) (defalias 'lazy-lock-fontify-after-idle #[nil "\206\306\307 !?\205\261\310 \311\312\211\211\212 @q\210\203&\313 \204-\314 ?\202\241\2053\315\312\316\216\203I\317 \303\320\"\210\203m\321 @V\203m \203a\303\322!\210\312\323\206h\324!\202\227\203\207 \203\201\303\325\326 \327 #\210\202\207\303\315!\210\311 @q\210\330 \210\323 \206\225\331!\313 \203\240\f\204I+ A\211\205\257\f\205\257\202.\207" [executing-kbd-macro minibuffer-auto-raise message-log-max message continue buffers window-minibuffer-p selected-window buffer-list t nil lazy-lock-unfontified-p input-pending-p "Fontifying stealthily..." ((byte-code "\203 \203 \302\303 \"\210\302\207" [#1=#:with-temp-message #2=#:current-message message "%s"] 3)) current-message "%s" load-average "Fontifying stealthily...suspended" sit-for 30 "Fontifying stealthily... %2d%% of %s" lazy-lock-percent-fontified buffer-name lazy-lock-fontify-chunk 0 lazy-lock-mode lazy-lock-stealth-verbose #2# #1# lazy-lock-stealth-load lazy-lock-stealth-time lazy-lock-stealth-nice] 6]) (defalias 'lazy-lock-fontify-after-visage #[nil "\301p\302\303#\211\205\304@!\210A\211\204\n\305)\207" [windows get-buffer-window-list nomini t lazy-lock-fontify-conservatively nil] 5]) (defalias 'lazy-lock-after-fontify-buffer #[nil "\306 \307\307\307\310\310\310\f\310 \310\311ed\312#\210?\205)\306 \205)\313\310!. \207" [modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions buffer-modified-p t nil add-text-properties (lazy-lock t) set-buffer-modified-p deactivate-mark buffer-file-name buffer-file-truename] 4]) (defalias 'lazy-lock-after-unfontify-buffer #[nil "\306 \307\307\307\310\310\310\f\310 \310\311ed\312#\210?\205)\306 \205)\313\310!. \207" [modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions buffer-modified-p t nil remove-text-properties (lazy-lock nil) set-buffer-modified-p deactivate-mark buffer-file-name buffer-file-truename] 4]) (defalias 'lazy-lock-fontify-region #[(beg end) "\214~\210\306 \307\310$\211\205G\212\311 \312\216\310\310\313 \314\314\314\310\310\310\310\310\315\316\317\217\210 ?\205E\313 \205E\320\310!.)\207" [beg end save-match-data-internal font-lock-beginning-of-syntax-function next modified text-property-any lazy-lock nil match-data ((set-match-data save-match-data-internal)) buffer-modified-p t data (byte-code "\303 \304\305$\206\n b\210n\204\306 \210`\nb\210n\204#\307y\210`\310\n\"\210\311\n\312#\210\303\n \304\307$\211\204\307\207" [beg end next text-property-any lazy-lock t beginning-of-line nil font-lock-fontify-region add-text-properties (lazy-lock t)] 6) (((error quit) (message "Fontifying region...%s" data))) set-buffer-modified-p buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename] 5]) (defalias 'lazy-lock-fontify-chunk #[nil "\304\212\214~\210\305\210\306`\307\"\310`d\307\305$\211\203' \203B `Z`\nZW\203B\311 \206-eb\210\312 \210` \2068eb\210 y\210`\"\202S\311\nb\210 [y\210`\nb\210\305y\210`\"-\207" [inhibit-point-motion-hooks next prev lazy-lock-stealth-lines t nil previous-single-property-change lazy-lock text-property-any lazy-lock-fontify-region beginning-of-line] 7]) (defalias 'lazy-lock-fontify-window #[(window) "r\301!q\210\302\303!\304!\")\207" [window window-buffer lazy-lock-fontify-region window-start window-end] 4]) (defalias 'lazy-lock-fontify-conservatively #[(window) "r\302!q\210\303\304\212\305!b\210\306\307![\"\210`)\212\305!b\210\306\307!\"\210`)\"*\207" [window inhibit-point-motion-hooks window-buffer t lazy-lock-fontify-region window-point vertical-motion window-height] 5]) (defalias 'lazy-lock-unfontified-p #[nil "\214~\210\300ed\301\302$)\207" [text-property-any lazy-lock nil] 5]) (defalias 'lazy-lock-percent-fontified #[nil "\214~\210e\303\304\305\nd\306\307$\211\203*\305\nd\306\304$\206d \nZ\\\202 \310\311 !d\245\312_!,\207" [next size beg 0 nil text-property-any lazy-lock t truncate float 100] 5]) (byte-code ":\203\\\305\220\306\307!\210\306!\210\306\310!\210\306\311!\210\306\312!\210\306\313\314!!\210\306\315!\210\306\316!\210\306A!\210\306\317!\210\306\320!\210\306@!\210\306\317!\210\306\321!\210\306\322!\210\306\323!\210\306\313\314!!\210\306\324!\221\210@A\325\302!\203\306\305\220\306\326!\210\n\327>\203u\306\n!\210\202\201\306\330!\210\306\n!\210\306\331!\210\306\332!\210\306\333!\210\306\312!\210\306\313\314!!\210\306\334!\210\306\335!\210\n\336>\204\245\306\331!\210\306\n!\210\306\317!\210\306\321!\210\306\337!\210\306\323!\210\306\313\314!!\210\306\324!\221\210\n\340\341\342\"\210\340\343\344\"\210\345\f\236\204\333\346\f\347\"\350\351!\207" [lazy-lock-defer-time lazy-lock-defer-on-the-fly lazy-lock-defer-driven lazy-lock-defer-on-scrolling minor-mode-alist "*Help*" princ "The value of the variable `lazy-lock-defer-time' was\n " "\n" "This variable cannot now be a list of modes and time,\n" "so instead use " substitute-command-keys "\\[customize-option]" " to modify the variables, or put the forms:\n" " (setq lazy-lock-defer-time " ")\n" " (setq lazy-lock-defer-on-the-fly '" "in your ~/.emacs. " "The above forms have been evaluated for this editor session,\n" "but you should use " " or change your ~/.emacs now." boundp "The value of the variable `lazy-lock-defer-driven' is set to " (nil t) "`" "'" ".\n" "This variable is now called `lazy-lock-defer-on-scrolling',\n" " to modify the variable, or put the form:\n" " (setq lazy-lock-defer-on-scrolling " (nil t) "The above form has been evaluated for this editor session,\n" add-hook window-size-change-functions lazy-lock-fontify-after-resize redisplay-end-trigger-functions lazy-lock-fontify-after-trigger lazy-lock-mode append ((lazy-lock-mode nil)) provide lazy-lock] 4)