Thanks for the detailed report, Chris. This may be related to Matt Tucker's "turning font lock off speeds up passworded operations" report. This seems to be a Ben Wing change. 2000-05-20 Ben Wing <ben(a)xemacs.org&gt; * font-lock.el: * font-lock.el (font-lock-message-threshold): * font-lock.el (font-lock-mode): * font-lock.el (font-lock-default-fontify-buffer): * font-lock.el (font-lock-always-fontify-immediately): * font-lock.el (font-lock-old-extent): Removed. * font-lock.el (font-lock-old-len): Removed. * font-lock.el (font-lock-fontify-glumped-region): Removed. * font-lock.el (font-lock-pending-extent-table): New. * font-lock.el (font-lock-range-table): New. * font-lock.el (font-lock-after-change-function): * font-lock.el (font-lock-after-change-function-1): Removed. * font-lock.el (font-lock-fontify-pending-extents): New. * font-lock.el ('font-lock-revert-cleanup): Removed. * font-lock.el ('font-lock-revert-setup): Removed. Rewrite deferral code to handle any number of changes, merging them properly. Remove hacked-up code for revert-buffer, now unnecessary. I don't understand why even making a huge number of extents should be taking so much time, but it does. Ben? Chris's message attached for Ben's convenience. -------------------------------------------------------------------------------- Subject: Font-lock mode is *very* slow on options.el file Date: Thu, 1 Feb 2001 12:21:57 -0800 From: Chris Holt <xris(a)transmeta.com&gt; To: xemacs-beta(a)xemacs.org CC: Chris Holt <xris(a)transmeta.com&gt; This bug report will be sent to the XEmacs Development Team, not to your local site managers!! Please write in English, because the XEmacs maintainers do not have translators to read other languages for them. In XEmacs 21.2 (beta43) "Terspichore" [Lucid] (i686-pc-linux) of Wed Jan 31 2001 on migraine configured using `configure --prefix=/home/xris/Tools-test --debug=no --error-checking=none --site-prefixes=/home/xris/Tools' Please describe exactly what actions triggered the bug and the precise symptoms of the bug: I've found that if I use this two-line init.el file: (load-options-file "/home/xris/.xemacs/options.el") (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock) [ I've included my options.el file at the end of this report ] the execution of this dribble file: #<keypress-event escape>xcus#<keypress-event tab> lazy-shot #<keypress-event control-S>48#<keypress-event control-E>#<keypress-event backspace>8#<keypress-event control-A>#<keypress-event control-A>#<keypress-event control-N>#<keypress-event control-F>#<keypress-event control-F>#<keypress-event control-F>#<keypress-event control-F>#<keypress-event control-F> 1y#<keypress-event control-X>#<keypress-event control-C> would cause xemacs to take a *very* long time to save the customization file options.el. This is not a problem with my usual version of xemacs, beta22. It is not a problem with a much shorter options.el file. It is not a problem if font-lock mode for emacs-lisp mode is off. Which particular customization I make does not seem to be an issue. I regressed the bug on the betas in between and discovered it first started in beta34. I then regressed font-lock.el itself and found that the extra number of calls to make-extent in the new definition of font-lock-after-change-function over the previous version was somehow causing the problem. Specifically, under the beta34 version, make-extent was called 7934 times in the 7934 calls made to font-lock-after-change-function while saving options.el. In the beta33 version, make-extent was called only 2 times in 7934 calls to font-lock-after-change-function. Further, if the only thing that the beta34 version did was call make-extent, the slowdown still occurred. Here is my configure/system info: XEmacs 21.2-b43 "Terspichore" configured for `i686-pc-linux'. Compilation / Installation: Source code location: /tmp/xemacs-21.2.43 Installation prefix: /home/xris/Tools-test Additional prefixes: /home/xris/Tools Runtime library search path: /home/xris/Tools/lib:/usr/local/X11/lib:/usr/local/lib:/usr/openwin/lib:/usr/lib:/lib:/usr/local/contrib/lib Operating system description file: `s/linux.h' Machine description file: `m/intel386.h' Compiler: gcc -g -O3 -Wall -Wno-switch -Wpointer-arith -Winline -Wmissing-prototypes -Wshadow Relocating allocator for buffers: no GNU version of malloc: yes - Using Doug Lea's new malloc from the GNU C Library. Window System: Compiling in support for the X window system: - X Windows headers location: /usr/X11R6/include - X Windows libraries location: /usr/X11R6/lib - Handling WM_COMMAND properly. Compiling in support for the Athena widget set: - Athena headers location: X11/Xaw - Athena library to link: Xaw Using Lucid menubars. Using Lucid scrollbars. Using Athena dialog boxes. Using Athena native widgets. TTY: Compiling in support for ncurses. Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Compiling in support for TIFF images. Compiling in support for X-Face message headers. Sound: Compiling in support for sound (native). Compiling in support for ESD (Enlightened Sound Daemon). Databases: Compiling in support for Berkeley database. Internationalization: Mail: Compiling in support for "dot-locking" mail spool file locking method. Other Features: Compiling in support for dynamic shared object modules. migraine 23> cat /proc/cpuinfo processor : 0 vendor_id : GenuineIntel cpu family : 6 model : 8 model name : Pentium III (Coppermine) stepping : 1 cpu MHz : 651.495424 cache size : 256 KB fdiv_bug : no hlt_bug : no sep_bug : no f00f_bug : no coma_bug : no fpu : yes fpu_exception : yes cpuid level : 2 wp : yes flags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 mmx fxsr xmm bogomips : 650.44 processor : 1 vendor_id : GenuineIntel cpu family : 6 model : 8 model name : Pentium III (Coppermine) stepping : 1 cpu MHz : 651.495424 cache size : 256 KB fdiv_bug : no hlt_bug : no sep_bug : no f00f_bug : no coma_bug : no fpu : yes fpu_exception : yes cpuid level : 2 wp : yes flags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 mmx fxsr xmm bogomips : 650.44 migraine 24> cat /proc/version Linux version 2.2.14 (root＠build-09) (gcc version egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)) #1 SMP Wed Jan 26 18:32:50 PST 2000 migraine 25> gcc -v Reading specs from /home/xris/Tools/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/specs gcc version 2.95.2 19991024 (release) Here is my .xemacs/options.el file: ;;; -*-mode:emacs-lisp-*- (custom-set-variables '(filladapt-token-conversion-table (quote ((citation-> . exact) (supercite-citation . exact) (lisp-comment . exact) (sh-comment . exact) (postscript-comment . exact) (c++-comment . exact) (c-comment . exact) (texinfo-comment . exact) (bullet . spaces) (space . exact) (end-of-line . exact)))) '(blink-matching-paren nil) '(gnats:query-pr-default-options "-r xris -x" t) '(gnus-default-subscribed-newsgroups (quote ("transmeta.sw" "transmeta.general" "transmeta.astro" "transmeta.perf" "transmeta.news.csn" "transmeta.emacs.users"))) '(vm-mail-mode-hook (quote ((lambda nil (require (quote message)) (save-excursion (save-restriction (message-narrow-to-headers) (delete-matching-lines "^X-Mailer:")))) (lambda nil (local-set-key " " (quote mail-tab))) mc-install-write-mode turn-on-font-lock (lambda nil (require (quote highlight-headers))))) t) '(bbdb-dial-local-prefix 9) '(ps-number-of-columns 2) '(ps-lpr-switches (quote ("-h"))) '(rlogin-directory-tracking-mode t) '(c-hanging-braces-alist (quote ((block-open after) (block-close . c-snug-do-while) (brace-list-open) (brace-list-close) (class-open after) (class-close before) (inline-open) (inline-close after) (substatement-open after) (extern-lang-open after)))) '(cperl-continued-statement-offset 3) '(lazy-shot-verbose nil) '(sentence-end-double-space nil) '(uniquify-after-kill-buffer-p t) '(compilation-ask-about-save nil) '(cperl-brace-offset -3) '(bbdb/mail-auto-create-p nil) '(strokes-file "~/.xemacs/.strokes") '(cperl-mode-hook (lambda nil (define-key cperl-mode-map [(control x) (control i)] (quote cperl-indent-exp)) (define-key cperl-mode-map [(control x) (control d)] (quote perldb)) (define-key cperl-mode-map [(meta q)] (quote query-replace)) (define-key cperl-mode-map [(meta Q)] (quote query-replace-regexp)) (define-key cperl-mode-map [(control c) (control c)] (quote comment-region)) (define-key cperl-mode-map [(control c) (control u)] (quote uncomment-region)))) '(ispell-silently-savep t) '(paren-mode (quote paren) nil (paren)) '(ps-build-face-reference nil) '(display-time-mail-balloon-max-displayed 20) '(c-initialization-hook (quote ((lambda nil (defconst my-c-style (quote ((c-offsets-alist (access-label . -2) (case-label . 1) (defun-open . -2) (statement-case-intro . 2)))) "My C/C++ Style") (c-add-style "XRIS" my-c-style t))))) '(lazy-shot-stealth-nice 2.0) '(ps-header-font-size 9) '(ps-lpr-command "lpr") '(gnuserv-done-function (lambda (bufname))) '(gutter-visible-p nil) '(vc-checkout-carefully t) '(filladapt-mode t nil (filladapt)) '(efs-short-circuit-to-remote-root nil) '(gnats:run-in-background nil t) '(flyspell-mark-duplications-flag nil) '(lazy-shot-step-size 2048) '(fill-column 76) '(modifier-keys-are-sticky nil) '(gnus-read-active-file (quote some)) '(font-lock-maximum-decoration t) '(efs-default-user "xris" t) '(vc-mistrust-permissions t) '(c-comment-continuation-stars "* ") '(bbdb-sound-player "/usr/bin/play") '(url-mail-command (quote vm-mail)) '(ps-right-margin 10.69291338582677) '(allow-deletion-of-last-visible-frame nil) '(shell-prompt-face (quote shell-prompt-face)) '(cperl-label-offset -2) '(comment-column 0) '(c++-mode-hook (quote ((lambda nil (define-key c++-mode-map [(meta q)] (quote query-replace)) (define-key c++-mode-map [(meta Q)] (quote query-replace-regexp)) (define-key c++-mode-map [(control x) (control e)] (quote compile)) (define-key c++-mode-map [(control x) p] (quote c-fill-paragraph)) (define-key c++-mode-map [(control x) ?\.] (quote next-error)) (define-key c++-mode-map [(control tab)] (quote c-indent-command)) (define-key c++-mode-map [(control c) l] (quote fume-list-functions)) (define-key c++-mode-map [(control c) g] (quote fume-prompt-function-goto)) (define-key c++-mode-map [(control x) (control i)] (quote c-indent-exp)) (define-key c++-mode-map [(control c) (control u)] (quote uncomment-region)))))) '(mouse-avoidance-mode nil nil (avoid)) '(gnats:libdir "/usr/local/lib/gnats" t) '(scroll-step 1) '(vc-initial-comment t) '(delete-key-deletes-forward t) '(balloon-help-use-sound nil) '(compilation-error-regexp-systems-list (quote (gnu))) '(balloon-help-mode t nil (balloon-help)) '(gnus-get-new-news-hook nil) '(gnus-summary-selected-face (quote gnus-summary-selected-face)) '(auto-save-directory "/home/xris/.xemacs/.autosave") '(c-insert-tab-function (quote tab-to-tab-stop)) '(c-hanging-comment-starter-p nil) '(ps-underlined-faces (quote (font-lock-special-keyword-face)) t) '(widget-mouse-face (quote highlight)) '(vm-mime-attachment-save-directory nil t) '(ps-print-header-frame nil) '(ispell-query-replace-choices nil) '(uniquify-buffer-name-style (quote post-forward)) '(filladapt-mode-line-string "") '(c-mode-hook (quote ((lambda nil (define-key c-mode-map [(meta q)] (quote query-replace)) (define-key c-mode-map [(meta Q)] (quote query-replace-regexp)) (define-key global-map [(control meta f)] (quote goto-next-c-function)) (define-key c-mode-map [(control x) (control e)] (quote compile)) (define-key c-mode-map [(control x) p] (quote c-fill-paragraph)) (define-key c-mode-map [(control x) ?\.] (quote next-error)) (define-key c-mode-map [(control tab)] (quote c-indent-command)) (define-key c-mode-map [(control c) l] (quote fume-list-functions)) (define-key c-mode-map [(control c) g] (quote fume-prompt-function-goto)) (define-key c-mode-map [(control x) (control i)] (quote c-indent-exp)) (define-key c-mode-map [(control c) (control u)] (quote uncomment-region)))))) '(gnats:keep-edited-buffers nil t) '(flyspell-issue-welcome-flag nil) '(column-number-mode t) '(lazy-shot-mode t nil (lazy-shot)) '(wwi-auto-install-on-startup-flag t nil (where-was-i-db)) '(cperl-scan-files-regexp "\\.\\([pP][hLlm]\\|xs\\)$") '(paren-backwards-message t) '(bbdb-default-area-code 408) '(backward-delete-function (quote backward-delete-char-untabify)) '(gnus-novice-user nil) '(send-pr:datadir "/usr/local/lib/" t) '(bbdb-completion-display-record nil) '(fume-display-in-modeline-p nil t) '(bbdb-send-mail-style (quote vm)) '(flyspell-global-modes (quote (c-mode c++-mode mail-mode text-mode))) '(balloon-help-timeout 1500) '(shadow-todo-file "/home/xris/.xemacs/.shadow_todo") '(recent-files-save-file "/home/xris/xemacs/.recent-files.el") '(c-tab-always-indent nil) '(bbdb-elided-display (quote (address))) '(c-backslash-column 76) '(ispell-personal-dictionary nil) '(sh-mode-hook nil) '(w3-hotlist-file "~/.netscape/history.list") '(gnus-after-getting-new-news-hook nil) '(follow-mode-off-hook (quote ((lambda nil (setq follow-sync nil)))) t) '(lazy-shot-minimum-size 1) '(dabbrev-case-replace t t) '(vc-suppress-confirm t) '(compilation-mouse-motion-initiate-parsing nil) '(pending-delete-modeline-string "") '(display-time-form-list (quote (date time load mail))) '(ps-inter-column 10) '(display-time-display-time-background (quote transparent)) '(vm-auto-displayed-mime-content-types (quote ("text" "multipart" "message/rfc822" "text/plain")) t) '(ps-bottom-margin 22.51968503937008) '(inhibit-startup-message t t) '(gnus-verbose 10) '(filladapt-token-match-table (quote ((citation-> citation->) (supercite-citation supercite-citation) (lisp-comment lisp-comment) (sh-comment sh-comment) (postscript-comment postscript-comment) (c++-comment c++-comment) (c-comment c-comment) (texinfo-comment texinfo-comment) (bullet) (space bullet space) (beginning-of-line beginning-of-line)))) '(term-eol-on-send t) '(custom-file "~/.xemacs/options.el") '(balloon-help-font "*-helvetica-bold-r-normal--12-*") '(ps-italic-faces (quote (font-lock-comment-face man-italic message-cited-text)) t) '(vm-highlighted-header-face (quote font-lock-function-name-face) t) '(dabbrev-abbrev-skip-leading-regexp "[][$%&＠!()-+*/<>:;^?|=\"']") '(cperl-help nil) '(lazy-shot-stealth-verbose nil) '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120)) t) '(c-hanging-comment-ender-p nil) '(gnuserv-init-hook nil) '(ps-always-build-face-reference t) '(focus-follows-mouse t) '(c-cleanup-list (quote (defun-close-semi list-close-comma scope-operator))) '(where-was-i-db "~/.xemacs/.wwi.db") '(efs-auto-save 1 t) '(global-flyspell-mode nil nil (flyspell)) '(hs-minor-mode nil nil (hideshow)) '(tags-build-completion-table t) '(dabbrev-abbrev-char-regexp "\\sw\\|\\s_") '(gnats:keep-sent-messages nil t) '(filladapt-token-table (quote (("^" beginning-of-line) (">+" citation->) ("\\(\\w\\|[0-9]\\)[^'`\"< ]*>[ ]*" supercite-citation) (";+" lisp-comment) ("#+" sh-comment) ("%+" postscript-comment) ("///*" c++-comment) ("＠c[ ]" texinfo-comment) ("＠comment[ ]" texinfo-comment) ("\\\\item[ ]" bullet) ("[0-9]+\\.[ ]" bullet) ("[0-9]+\\(\\.[0-9]+\\)+[ ]" bullet) ("[A-Za-z]\\.[ ]" bullet) ("(?[0-9]+)[ ]" bullet) ("(?[A-Za-z])[ ]" bullet) ("[0-9]+[A-Za-z]\\.[ ]" bullet) ("(?[0-9]+[A-Za-z])[ ]" bullet) ("[-~+]+[ ]" bullet) ("[*]+[ ]" c-comment) ("o[ ]" bullet) ("[ ]+" space) ("$" end-of-line)))) '(auto-insert-query nil) '(ps-header-offset 10.34645669291339) '(efs-default-password nil t) '(display-time-display-time-foreground (quote modline)) '(fill-individual-varying-indent t) '(visible-bell nil) '(c-default-style "user") '(ps-print-color-p nil) '(asm-comment-char ?\#) '(lazy-shot-stealth-time nil) '(vc-annotate-background "gray15") '(pending-delete-mode t nil (pending-del)) '(gnus-article-display-hook (quote (gnus-article-hide-boring-headers gnus-article-remove-trailing-blank-lines gnus-smiley-display gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight gnus-article-display-x-face))) '(efs-short-circuit t) '(cperl-tab-always-indent nil) '(tags-always-exact nil) '(flyspell-mode-line-string "") '(balloon-help-background "white") '(bbdb-use-pop-up nil) '(gnuserv-visit-hook nil) '(gnus-subscribe-newsgroup-method (quote gnus-subscribe-zombies)) '(vm-highlight-url-face (quote font-lock-function-name-face) t) '(ps-left-margin 11.6) '(toolbar-visible-p nil) '(explicit-shell-file-name "/home/xris/Tools/bin/zsh") '(cperl-indent-level 3) '(errors-deactivate-region nil) '(ps-font-size 9) '(add-log-time-format (quote current-time-string)) '(vc-static-header-alist (quote (("\\.c$" . "static char rcsid[] = \"$Id$\"; USE(rcsid); ") ("\\.C$" . "static char rcsid[] = \"$Id$\"; USE(rcsid); ") ("\\.cc$" . "static char rcsid[] = \"$Id$\"; USE(rcsid); ")))) '(c-electric-pound-behavior (quote (alignleft))) '(sentence-end "[.?!][]\"')}]*\\($\\| $\\| \\| \\)[ ]*" t) '(scrollbars-visible-p nil) '(shell-output-face (quote shell-output-face)) '(ps-bold-faces (quote (font-lock-variable-name-face font-lock-emphasized-face font-lock-keyword-face font-lock-reference-face font-lock-other-emphasized-face font-lock-preprocessor-face font-lock-warning-face font-lock-special-comment-face font-lock-special-keyword-face font-lock-function-name-face)) t) '(gnats:root "/usr/local/lib/gnats/gnats-db" t) '(line-number-mode t) '(tags-auto-read-changed-tag-files t) '(compile-command "path=($theirpath) ~xris/bin/xmake ") '(c-mode-common-hook (quote (turn-on-font-lock fume-add-menubar-entry (lambda nil (c-set-style "XRIS")) (lambda nil (define-key c-mode-base-map [(control x) (control i)] (quote c-indent-exp))) (lambda nil (define-key c-mode-base-map [(control x) ?\t] (quote c-indent-exp))) my-hs-setup (lambda nil (flyspell-mode t))))) '(parse-sexp-ignore-comments nil) '(c-basic-offset 4) '(teach-extended-commands-p nil) '(ps-auto-font-detect nil) '(stack-trace-on-error nil) '(revert-without-query (quote ("."))) '(user-full-name "Chris Holt" t) '(shadow-info-file "/home/xris/.xemacs/.shadows") '(shell-mode-hook (quote (turn-on-font-lock))) '(display-time-load-list (quote (0.5 1.0 1.5 2.0 2.5 3.0))) '(compilation-search-path (quote (nil "~/work/sp/" "~/work/ad/" "./$CPU/"))) '(dabbrev-case-fold-search nil t) '(cperl-comment-column 0) '(ps-default-bg (quote (1.0 1.0 1.0))) '(ps-default-fg (quote (0 0 0))) '(save-completions-file-name "~/.xemacs/.completions") '(find-file-compare-truenames t) '(shell-file-name "/home/xris/Tools/bin/zsh") '(gnus-check-bogus-newsgroups t) '(auto-save-offer-delete (quote always)) '(ps-landscape-mode t) '(ps-header-title-font-size 10) '(paren-blink-interval 0.6) '(user-mail-address &quot;xris(a)transmeta.com&quot; t) '(make-tags-files-invisible nil) '(vm-summary-highlight-face (quote font-lock-function-name-face) t) '(Manual-mode-hook (quote ((lambda nil (define-key Manual-mode-map [(control f)] (quote Manual-follow-xref)))))) '(gnus-check-new-newsgroups nil) '(vm-init-file "~/.xemacs/.vm" t) '(exec-path (quote ("/home/xris/bin/i386-linux-libc6/" "/home/xris/bin/" "/home/xris/Tools/bin" "/home/xris/Tools/bin/X11" "/home/xris/Tools/enlightenment/bin" "/usr/local/sbin/i386-linux-libc6/" "/usr/local/sbin/" "/usr/local/contrib/bin/" "/usr/local/bin/i386-linux-libc6/" "/usr/local/bin/" "/bin/" "/usr/bin/" "/usr/X11R6/bin/" "/project/sw/ad/i386-linux/bin/" "/usr/local/lsf/bin/" "/proj/sw/tee/bin/" "/sbin/" "/usr/sbin/" "/home/xris/bin/" "/home/xris/Tools/lib/xemacs/xemacs-packages/lib-src/" "/home/xris/Tools/lib/xemacs-21.2-b22/i686-pc-linux/"))) '(fume-auto-position-popup nil) '(ps-top-margin 22.51968503937008) '(gnus-save-killed-list t) '(bbdb-sound-files (quote ["/home/xris/Tools/share/Sounds/touchtone.0.au" "/home/xris/Tools/share/Sounds/touchtone.1.au" "/home/xris/Tools/share/Sounds/touchtone.2.au" "/home/xris/Tools/share/Sounds/touchtone.3.au" "/home/xris/Tools/share/Sounds/touchtone.4.au" "/home/xris/Tools/share/Sounds/touchtone.5.au" "/home/xris/Tools/share/Sounds/touchtone.6.au" "/home/xris/Tools/share/Sounds/touchtone.7.au" "/home/xris/Tools/share/Sounds/touchtone.8.au" "/home/xris/Tools/share/Sounds/touchtone.9.au"])) '(bbdb-dial-long-distance-prefix 1) '(font-lock-mode t nil (font-lock)) '(c-hanging-colons-alist (quote ((member-init-intro) (inher-intro) (case-label after) (label after) (access-label after)))) '(fume-menubar-menu-location nil)) (custom-set-faces '(info-xref ((((type tty)) (:bold t :foreground "red")) (((class color) (type x)) (:bold nil :foreground "#9fdf9f")))) '(text-cursor ((((type tty)) (:foreground "black" :background "yellow")) (((type x) (class color)) (:foreground "gray15" :background "yellow"))) t) '(pointer ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow"))) t) '(custom-set-face ((t nil))) '(font-lock-m4-face ((((class color)) (:foreground "yellow")) (t (:underline t)))) '(gui-button-face ((((type tty)) (:foreground "blue" :background "white")) (((class color) (type x)) (:inverse-video t))) t) '(info-node ((t (:bold t :foreground "yellow")))) '(secondary-selection ((((type tty)) (:foreground "black" :background "white")) (((class color) (type x)) (:background "gray52"))) t) '(widget-field-face ((((class color grayscale) (background light)) (:background "gray52")) (((class color grayscale) (background dark)) (:background "gray52")) (t (:italic t)))) '(hyper-apropos-heading ((((type tty)) (:foreground "red" :bold nil)) (((type x) (class color)) (:bold t)))) '(ediff-current-diff-face-B ((((type tty)) (:foreground "black" :background "white" :bold nil)) (((type x)) (:foreground "firebrick" :background "pale green")) (nil (:inverse-video t)))) '(ediff-current-diff-face-A ((((type tty)) (:foreground "black" :background "white" :bold nil)) (((type x)) (:foreground "firebrick" :background "pale green")) (nil (:inverse-video t)))) '(gnus-header-subject-face ((((class color) (type x)) (:foreground "pink")))) '(gnus-header-from-face ((((class color) (type x)) (:foreground "seagreen1")))) '(font-lock-string-face ((((type tty)) (:foreground "blue" :bold nil)) (((type x) (class color)) (:bold t)))) '(hyper-apropos-warning ((((type tty)) (:foreground "blue" :bold t)) (((type x) (class color)) (:foreground "red" :bold t)))) '(font-lock-special-keyword-face ((((type x) (class color)) (:foreground "palevioletred1" :bold nil)) (((type tty)) (:foreground "magenta" :bold nil)))) '(font-lock-reference-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold nil)))) '(flyspell-duplicate-face ((((type tty)) (:foreground "green" :bold nil)) (((type x) (class color)) (:foreground "seagreen1")))) '(message-headers ((((type tty)) (:bold t :foreground "red")) (((class color) (type x)) (:bold nil :foreground "sienna1")))) '(term-yellow-bold-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow"))) t) '(shell-prompt-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold nil))) t) '(isearch-secondary ((((type tty)) (:foreground "black" :background "white" :bold nil)) (((type x) (class color)) (:foreground "orangered"))) t) '(custom-changed-face ((((type tty)) (:foreground "green")))) '(custom-documentation-face ((((type tty)) (:foreground "cyan" :bold nil)) (((type x) (class color)) (:foreground "burlywood1" :bold nil))) t) '(gnus-summary-selected-face ((t (:bold t)))) '(custom-group-tag-face ((((type tty)) (:foreground "red" :bold t)) (((type x) (class color)) (:foreground "sienna1")))) '(man-bold ((((type x) (class color)) (:foreground "yellow" :bold nil)) (((type tty)) (:foreground "yellow" :bold nil)))) '(custom-variable-tag-face ((((type tty)) (:foreground "green" :bold t)) (((type x) (class color)) (:foreground "#9fdf9f" :bold nil)))) '(message-header-subject-face ((((type tty)) (:foreground "magenta" :bold t)) (((type x) (class color)) (:foreground "pink")))) '(man-italic ((((type x) (class color)) (:foreground "orange" :bold nil :italic nil)) (((type tty)) (:foreground "cyan" :bold t)))) '(custom-modified-face ((((class color)) (:foreground "white" :background "blue")) (t (:bold t)))) '(font-lock-doc-string-face ((((type tty)) (:foreground "blue" :bold nil)) (((type x) (class color)) (:bold t)))) '(custom-group-tag-face-1 ((t nil))) '(display-time-time-balloon-face ((((type tty)) (:foreground "red" :bold nil)) (((type x) (class color)) (:foreground "black")))) '(cperl-here-face ((((type tty)) (:foreground "green")) (((class color) (type x)) (:foreground "#9fdfdf")))) '(modeline-buffer-id ((((type tty)) (:foreground "yellow" :background "black" :bold t)) (((type x) (class color)) (:foreground "yellow" :background "gray52"))) t) '(font-lock-preprocessor-face ((((type tty)) (:foreground "red" :bold t)) (((type x) (class color)) (:foreground "sienna1" :bold nil)))) '(modeline-mousable ((((type tty)) (:foreground "cyan" :background "black" :bold t)) (((type x)) (:foreground "burlywood1" :background "gray52"))) t) '(custom-invalid-face ((((class color)) (:foreground "gray15" :background "red")))) '(font-lock-variable-name-face ((((type tty)) (:foreground "yellow" :bold t)) (((type x) (class color)) (:foreground "gold3" :bold nil)))) '(widget-button-pressed-face ((((class color)) (:foreground "seagreen1")))) '(fixed ((t (:bold t)))) '(flyspell-incorrect-face ((((type tty)) (:foreground "green" :bold nil)) (((class color)) (:foreground "seagreen1")))) '(paren-match ((((type tty)) (:foreground "white" :background "black" :bold t :inverse-video t)) (((type x) (class color)) (:foreground "black" :background "white"))) t) '(modeline-mousable-minor-mode ((((type tty)) (:foreground "red" :background "black" :bold t)) (((type x) (class color)) (:foreground "orange1" :background "gray52"))) t) '(custom-face-tag-face ((((type tty)) (:foreground "magenta" :bold t)) (((type x) (class color)) (:foreground "pink" :bold nil)))) '(hyper-apropos-section-heading ((((type tty)) (:foreground "cyan" :bold t)) (((type x) (class color)) (:bold t :italic t)))) '(hyper-apropos-hyperlink ((((type tty)) (:foreground "green" :bold t)) (((class color) (background light)) (:foreground "#9fdf9f")))) '(gnus-header-content-face ((((class color) (type x)) (:italic t :foreground "burlywood1")))) '(custom-state-face ((((type tty)) (:foreground "cyan" :bold nil)) (((type x) (class color)) (:foreground "lightblue")))) '(display-time-mail-balloon-gnus-group-face ((nil (:foreground "seagreen1")))) '(font-lock-other-emphasized-face ((((type tty)) (:bold nil :foreground "blue" :inverse-video t)) (t (:bold t))) t) '(man-heading ((((type x) (class color)) (:foreground "sienna1" :bold nil)) (((type tty)) (:foreground "red" :bold nil)))) '(font-lock-warning-face ((((type tty)) (:foreground "blue" :bold t)) (((type x) (class color)) (:foreground "#9f9fdf" :bold nil)))) '(font-lock-keyword-face ((((type tty)) (:foreground "red" :bold nil)) (((type x) (class color)) (:foreground "orange" :bold nil)))) '(message-cited-text-face ((((type tty)) (:foreground "cyan" :bold nil)) (((type x) (class color)) (:foreground "burlywood1")))) '(man-xref ((((type x) (class color)) (:foreground "#9fdf9f" :bold nil :italic nil)) (((type tty)) (:foreground "green" :bold t :italic nil)))) '(custom-saved-face ((t (:bold t)))) '(yellow ((((type tty)) (:foreground "yellow")) (((type x) (class color)) (:foreground "yellow"))) t) '(font-lock-constant-face ((((type x) (class color)) (:foreground "#9fdf9f" :bold nil)) (((type tty)) (:foreground "blue" :bold nil)))) '(font-lock-type-face ((((type tty)) (:foreground "cyan" :bold t)) (((type x) (class color)) (:foreground "lemonchiffon" :bold nil)))) '(message-cited-text ((((type tty)) (:foreground "cyan" :bold nil)) (((type x) (class color)) (:foreground "burlywood1" :bold nil)))) '(bold ((nil (:bold t))) t) '(bold-italic ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold t :italic t :underline nil))) t) '(term-yellow-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold nil))) t) '(gnus-header-name-face ((((class color) (type x)) (:foreground "tan")))) '(font-lock-emphasized-face ((((type tty)) (:bold nil :foreground "red" :inverse-video t)) (t (:foreground "black" :background "lightyellow2"))) t) '(shell-output-face ((((type tty)) (:bold t)) (((class color) (type x)) (:bold nil :foreground "#9fdf9f"))) t) '(widget-inactive-face ((((class grayscale color) (type x)) (:foreground "gray80")))) '(primary-selection ((((type tty)) (:background "black" :bold t)) (((type x) (class color)) (:background "gray52"))) t) '(message-header-cc-face ((((type tty)) (:foreground "green" :bold nil)) (((type x) (class color)) (:foreground "#9fdf9f")))) '(message-header-other-face ((((class color) (type x)) nil))) '(cperl-pod-head-face ((((type tty)) (:foreground "white")) (((class color) (type x)) (:foreground "tan")))) '(message-header-newsgroups-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow")))) '(custom-button-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold t)))) '(message-separator-face ((((class color) (type x)) (:foreground "gray80")))) '(font-lock-special-comment-face ((((type x) (class color)) (:foreground "#9fdf9f" :bold t)) (((type tty)) (:foreground "green" :bold t)))) '(list-mode-item-selected ((((type tty)) (:foreground "black" :background "white")) (((class color) (type x)) (:inverse-video t))) t) '(custom-variable-button-face ((((type tty)) (:foreground "green" :bold nil)) (((type x) (class color)) (:foreground "seagreen1" :bold nil)))) '(message-header-contents ((((type tty)) (:foreground "cyan" :bold t)) (((type x) (class color)) (:foreground "lemonchiffon1" :bold nil)))) '(cperl-pod-face ((((type tty)) (:foreground "green")) (((class color) (type x)) (:foreground "#9fdfdf")))) '(hyper-apropos-documentation ((((type tty)) (:foreground "cyan")) (((class color) (background light)) (:foreground "burlywood1")))) '(italic ((((class color)) (:italic t)) (((type tty)) (:underline nil))) t) '(font-lock-other-type-face ((((type tty)) (:foreground "blue" :bold nil)) (((type x) (class color)) (:foreground "lightblue"))) t) '(font-lock-comment-face ((((type tty)) (:foreground "cyan" :bold nil)) (((type x) (class color)) (:foreground "burlywood1" :bold nil)))) '(message-header-name-face ((((type tty)) (:foreground "cyan" :bold nil)) (((type x) (class color)) (:foreground "tan")))) '(font-lock-function-name-face ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold t)))) '(message-header-xheader-face ((((class color) (type x)) (:foreground "steelblue1")))) '(hyper-apropos-major-heading ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:bold t)))) '(widget-button-face ((((type tty)) (:foreground "red" :bold nil)) (((type x) (class color)) (:bold t)))) '(isearch ((((type tty)) (:foreground "black" :background "yellow" :bold nil)) (((type x) (class color)) (:foreground "orangered" :background "gray80" :bold t))) t) '(custom-rogue-face ((((class color)) (:foreground "pink" :background "gray50")))) '(highlight ((((type tty)) (:foreground "black" :background "white")) (((type x) (class color)) (:background "gray52"))) t) '(modeline ((((type tty)) (:foreground "white" :background "black" :bold t)) (((type x) (class color)) (:foreground "white" :background "gray52"))) t) '(ediff-current-diff-face-Ancestor ((((type tty)) (:foreground "black" :background "white" :bold nil)) (((type x)) (:foreground "firebrick" :background "pale green")) (nil (:inverse-video t)))) '(message-header-to-face ((((type tty)) (:foreground "green" :bold nil)) (((type x) (class color)) (:foreground "seagreen1")))) '(term-yellow-inv-face ((t (:foreground "black" :background "yellow"))) t) '(zmacs-region ((((type tty)) (:foreground "white" :background "black" :bold t :inverse-video t)) (((type x) (class color)) (:background "gray52"))) t) '(message-highlighted-header-contents ((((type tty)) (:foreground "yellow" :bold nil)) (((type x) (class color)) (:foreground "yellow" :bold nil))))) ;;; Local Variables: *** ;;; after-save-hook:(lambda () (byte-compile-file (buffer-file-name))) *** ;;; End: *** Chris -------------------------------------------------------------------------------- -- University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091 _________________ _________________ _________________ _________________ What are those straight lines for? "XEmacs rules."

>>>>> "Ben" == Ben Wing <ben(a)666.com&gt; writes: Ben> indeed i did change this and i can't see why those calls to Ben> make-extent should have such a slowdown effect. I was afraid of that. Ben> [b] someone broke the redisplay extent optimization code. Can you give me some function names or other ways to localize dangerous changes for `cvs annotate'? I consider this a priority item for the release. Slow font-lock sucks badly for too many people.

Ben> but even more to the point, redisplay should not even be Ben> getting called at all. The only thing I can think of off-hand is that Andy has done several "set-yet-another-dirty-flag" fixes for the widget code. Andy? Chris, do you have the progress bar enabled? It may not matter if it's invisible, depending on where those flags are getting set. (NB: Matt Tucker's password buffer bug is a background font-lock problem.) -- University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091 _________________ _________________ _________________ _________________ What are those straight lines for? "XEmacs rules."