Re: Slow operations on buffers of tens of megabytes

[Reiner Steib]

On Tue, Nov 07 2006, Reiner Steib wrote:

> Alexandre and Elias: Does this patch give good results?

Please consider this patch instead:

--8<---------------cut here---------------start------------->8---
--- nnheader.el 01 Aug 2006 12:10:19 +0200      7.24
+++ nnheader.el 08 Nov 2006 15:33:18 +0100      
@@ -997,7 +997,18 @@
         (val (symbol-value ffh)))
     (set ffh nil)
     (unwind-protect
-       (apply 'find-file-noselect args)
+       (with-current-buffer (apply 'find-file-noselect args)
+         (unless (or (featurep 'xemacs)
+                     ;; Better check?
+                     (< emacs-major-version 22))
+           (nnheader-message 7 "ASCII-only case-table in buffer `%s'."
+                             (current-buffer))
+           ;; (sit-for 1)
+           ;; Apply ASCII-only case-table.  Don't modify the
+           ;; standard-case-table.
+           (set-case-table (make-char-table 'case-table))
+           ;; We must return the buffer:
+           (current-buffer)))
       (set ffh val))))
 
 (defun nnheader-directory-regular-files (dir)
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/