From b970a197b0322e3023fccd6339d1617e91ed6dc4 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Tue, 29 Apr 2003 16:12:14 +0000 Subject: [PATCH] * spam-stat.el (spam-stat-save): No longer font-locks the file when saving --- lisp/ChangeLog | 5 +++++ lisp/spam-stat.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d4e643a9..1b9bbed68 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-04-29 Karl Pflästerer + + * spam-stat.el (spam-stat-save): No longer font-locks the file + when saving + 2003-04-29 Katsumi Yamaoka * canlock.el: Bind mail-header-separator when compiling (XEmacs diff --git a/lisp/spam-stat.el b/lisp/spam-stat.el index f4c5ec93b..4c9093fd5 100644 --- a/lisp/spam-stat.el +++ b/lisp/spam-stat.el @@ -398,7 +398,8 @@ Use `spam-stat-ngood', `spam-stat-nbad', `spam-stat-good', "Save the `spam-stat' hash table as lisp file." (interactive) (with-temp-buffer - (let ((standard-output (current-buffer))) + (let ((standard-output (current-buffer)) + (font-lock-maximum-size 0)) (insert "(setq spam-stat-ngood " (number-to-string spam-stat-ngood) " spam-stat-nbad " @@ -409,8 +410,8 @@ Use `spam-stat-ngood', `spam-stat-nbad', `spam-stat-good', (spam-stat-good entry) (spam-stat-bad entry)))) spam-stat) - (insert ")))")) - (write-file spam-stat-file))) + (insert ")))") + (write-file spam-stat-file)))) (defun spam-stat-load () "Read the `spam-stat' hash table from disk." -- 2.34.1