Re: Low redisplay performance (23 regression)

["Tobias C. Rittweiler" <tcr@freebits.de>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> Could you show the value of font-lock-keywords in that buffer?

Sure.

  -T.

PS.


Value: 
(t
 (("(\\(\\(\\s_\\|\\w\\)*:\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face)
  ("(\\(\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face)
  ("(\\(check-\\(\\s_\\|\\w\\)*\\)" 1 font-lock-warning-face)
  (slime-search-suppressed-forms 0 'slime-reader-conditional-face t)
  ("(\\(def\\(\\(advice\\|alias\\|generic\\|macro\\*?\\|method\\|setf\\|subst\\*?\\|un\\*?\\|ine-\\(condition\\|\\(?:derived\\|\\(?:global\\(?:ized\\)?-\\)?minor\\|generic\\)-mode\\|method-combination\\|setf-expander\\|skeleton\\|widget\\|function\\|\\(compiler\\|modify\\|symbol\\)-macro\\)\\)\\|\\(const\\(ant\\)?\\|custom\\|varalias\\|face\\|parameter\\|var\\)\\|\\(class\\|group\\|theme\\|package\\|struct\\|type\\)\\)\\)\\>[ 	'(]*\\(setf[ 	]+\\sw+)\\|\\sw+\\)?"
   (1 font-lock-keyword-face)
   (9
    (cond
      ((match-beginning 3)
       font-lock-function-name-face)
      ((match-beginning 6)
       font-lock-variable-name-face)
      (t font-lock-type-face))
    nil t))
  ("^;;;###\\([-a-z]*autoload\\)" 1 font-lock-warning-face prepend)
  ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)
  ("(\\(cond\\(?:ition-case\\)?\\|eval-\\(?:a\\(?:fter-load\\|nd-compile\\|t-startup\\)\\|next-after-load\\|when\\(?:-compile\\)?\\)\\|i\\(?:f\\|nline\\)\\|l\\(?:ambda\\|et\\*?\\)\\|prog[*12nv]?\\|save-\\(?:current-buffer\\|excursion\\|match-data\\|restriction\\|selected-window\\|window-excursion\\)\\|track-mouse\\|unwind-protect\\|w\\(?:hile\\(?:-no-input\\)?\\|ith-\\(?:c\\(?:a\\(?:\\(?:se\\|tegory\\)-table\\)\\|urrent-buffer\\)\\|electric-help\\|local-quit\\|no-warnings\\|output-to-\\(?:string\\|temp-buffer\\)\\|s\\(?:elected-\\(?:frame\\|window\\)\\|yntax-table\\)\\|t\\(?:emp-\\(?:buffer\\|\\(?:fil\\|messag\\)e\\)\\|imeout\\(?:-handler\\)?\\)\\)\\)\\)\\>" . 1)
  ("(\\(b\\(?:\\(?:loc\\|rea\\)k\\)\\|c\\(?:ase\\|case\\|ompiler-let\\|typecase\\)\\|d\\(?:e\\(?:cla\\(?:im\\|re\\)\\|structuring-bind\\)\\|o\\(?:\\*\\|list\\|times\\)?\\)\\|e\\(?:\\(?:type\\)?case\\)\\|flet\\|go\\|handler-\\(?:bind\\|case\\)\\|i\\(?:gnore-errors\\|n-package\\)\\|l\\(?:abels\\|exical-let\\*?\\|o\\(?:cally\\|op\\)\\)\\|m\\(?:acrolet\\|ultiple-value-\\(?:bind\\|prog1\\)\\)\\|proclaim\\|re\\(?:start-\\(?:bind\\|case\\)\\|turn\\(?:-from\\)?\\)\\|symbol-macrolet\\|t\\(?:agbody\\|\\(?:h\\|ypecas\\)e\\)\\|unless\\|w\\(?:hen\\|ith-\\(?:accessors\\|co\\(?:mpilation-unit\\|ndition-restarts\\)\\|hash-table-iterator\\|input-from-string\\|o\\(?:pen-\\(?:file\\|stream\\)\\|utput-to-string\\)\\|package-iterator\\|s\\(?:imple-restart\\|lots\\|tandard-io-syntax\\)\\)\\)\\)\\>" . 1)
  ("(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\>[ 	']*\\(\\sw+\\)?"
   (1 font-lock-keyword-face)
   (2 font-lock-constant-face nil t))
  ("(\\(abort\\|assert\\|warn\\|check-type\\|cerror\\|error\\|signal\\)\\>" 1 font-lock-warning-face)
  ("\\\\\\\\\\[\\(\\sw+\\)\\]" 1 font-lock-constant-face prepend)
  ("`\\(\\sw\\sw+\\)'" 1 font-lock-constant-face prepend)
  ("\\<:\\sw+\\>" 0 font-lock-builtin-face)
  ("\\<\\&\\sw+\\>" . font-lock-type-face)
  ((lambda
       (bound)
     (catch 'found
       (while
           (re-search-forward "\\(\\\\\\\\\\)\\(?:\\(\\\\\\\\\\)\\|\\((\\(?:\\?[0-9]*:\\)?\\|[|)]\\)\\)" bound t)
         (unless
             (match-beginning 2)
           (let
               ((face
                 (get-text-property
                  (1-
                   (point))
                  'face)))
             (when
                 (or
                  (and
                   (listp face)
                   (memq 'font-lock-string-face face))
                  (eq 'font-lock-string-face face))
               (throw 'found t)))))))
   (1 'font-lock-regexp-grouping-backslash prepend)
   (3 'font-lock-regexp-grouping-construct prepend)))
 ("(\\(\\(\\s_\\|\\w\\)*:\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)"
  (1 font-lock-keyword-face))
 ("(\\(\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)"
  (1 font-lock-keyword-face))
 ("(\\(check-\\(\\s_\\|\\w\\)*\\)"
  (1 font-lock-warning-face))
 (slime-search-suppressed-forms
  (0 'slime-reader-conditional-face t))
 ("(\\(def\\(\\(advice\\|alias\\|generic\\|macro\\*?\\|method\\|setf\\|subst\\*?\\|un\\*?\\|ine-\\(condition\\|\\(?:derived\\|\\(?:global\\(?:ized\\)?-\\)?minor\\|generic\\)-mode\\|method-combination\\|setf-expander\\|skeleton\\|widget\\|function\\|\\(compiler\\|modify\\|symbol\\)-macro\\)\\)\\|\\(const\\(ant\\)?\\|custom\\|varalias\\|face\\|parameter\\|var\\)\\|\\(class\\|group\\|theme\\|package\\|struct\\|type\\)\\)\\)\\>[ 	'(]*\\(setf[ 	]+\\sw+)\\|\\sw+\\)?"
  (1 font-lock-keyword-face)
  (9
   (cond
     ((match-beginning 3)
      font-lock-function-name-face)
     ((match-beginning 6)
      font-lock-variable-name-face)
     (t font-lock-type-face))
   nil t))
 ("^;;;###\\([-a-z]*autoload\\)"
  (1 font-lock-warning-face prepend))
 ("\\[\\(\\^\\)"
  (1 font-lock-negation-char-face prepend))
 ("(\\(cond\\(?:ition-case\\)?\\|eval-\\(?:a\\(?:fter-load\\|nd-compile\\|t-startup\\)\\|next-after-load\\|when\\(?:-compile\\)?\\)\\|i\\(?:f\\|nline\\)\\|l\\(?:ambda\\|et\\*?\\)\\|prog[*12nv]?\\|save-\\(?:current-buffer\\|excursion\\|match-data\\|restriction\\|selected-window\\|window-excursion\\)\\|track-mouse\\|unwind-protect\\|w\\(?:hile\\(?:-no-input\\)?\\|ith-\\(?:c\\(?:a\\(?:\\(?:se\\|tegory\\)-table\\)\\|urrent-buffer\\)\\|electric-help\\|local-quit\\|no-warnings\\|output-to-\\(?:string\\|temp-buffer\\)\\|s\\(?:elected-\\(?:frame\\|window\\)\\|yntax-table\\)\\|t\\(?:emp-\\(?:buffer\\|\\(?:fil\\|messag\\)e\\)\\|imeout\\(?:-handler\\)?\\)\\)\\)\\)\\>"
  (1 font-lock-keyword-face))
 ("(\\(b\\(?:\\(?:loc\\|rea\\)k\\)\\|c\\(?:ase\\|case\\|ompiler-let\\|typecase\\)\\|d\\(?:e\\(?:cla\\(?:im\\|re\\)\\|structuring-bind\\)\\|o\\(?:\\*\\|list\\|times\\)?\\)\\|e\\(?:\\(?:type\\)?case\\)\\|flet\\|go\\|handler-\\(?:bind\\|case\\)\\|i\\(?:gnore-errors\\|n-package\\)\\|l\\(?:abels\\|exical-let\\*?\\|o\\(?:cally\\|op\\)\\)\\|m\\(?:acrolet\\|ultiple-value-\\(?:bind\\|prog1\\)\\)\\|proclaim\\|re\\(?:start-\\(?:bind\\|case\\)\\|turn\\(?:-from\\)?\\)\\|symbol-macrolet\\|t\\(?:agbody\\|\\(?:h\\|ypecas\\)e\\)\\|unless\\|w\\(?:hen\\|ith-\\(?:accessors\\|co\\(?:mpilation-unit\\|ndition-restarts\\)\\|hash-table-iterator\\|input-from-string\\|o\\(?:pen-\\(?:file\\|stream\\)\\|utput-to-string\\)\\|package-iterator\\|s\\(?:imple-restart\\|lots\\|tandard-io-syntax\\)\\)\\)\\)\\>"
  (1 font-lock-keyword-face))
 ("(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\>[ 	']*\\(\\sw+\\)?"
  (1 font-lock-keyword-face)
  (2 font-lock-constant-face nil t))
 ("(\\(abort\\|assert\\|warn\\|check-type\\|cerror\\|error\\|signal\\)\\>"
  (1 font-lock-warning-face))
 ("\\\\\\\\\\[\\(\\sw+\\)\\]"
  (1 font-lock-constant-face prepend))
 ("`\\(\\sw\\sw+\\)'"
  (1 font-lock-constant-face prepend))
 ("\\<:\\sw+\\>"
  (0 font-lock-builtin-face))
 ("\\<\\&\\sw+\\>"
  (0 font-lock-type-face))
 ((lambda
      (bound)
    (catch 'found
      (while
          (re-search-forward "\\(\\\\\\\\\\)\\(?:\\(\\\\\\\\\\)\\|\\((\\(?:\\?[0-9]*:\\)?\\|[|)]\\)\\)" bound t)
        (unless
            (match-beginning 2)
          (let
              ((face
                (get-text-property
                 (1-
                  (point))
                 'face)))
            (when
                (or
                 (and
                  (listp face)
                  (memq 'font-lock-string-face face))
                 (eq 'font-lock-string-face face))
              (throw 'found t)))))))
  (1 'font-lock-regexp-grouping-backslash prepend)
  (3 'font-lock-regexp-grouping-construct prepend))
 ("^\\s("
  (0
   (if
    (memq
     (get-text-property
      (match-beginning 0)
      'face)
     '(font-lock-string-face font-lock-doc-face font-lock-comment-face))
    (list 'face font-lock-warning-face 'help-echo "Looks like a toplevel defun: escape the parenthesis"))
   prepend)))

Local in buffer l1-unicode.lisp; global value is nil