From 283b4456b9e4047d3ea86b17d01538a8de81ea91 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Pavel=20Jan=C3=ADk?= <Pavel@Janik.cz>
Date: Tue, 11 Dec 2001 06:52:33 +0000
Subject: [PATCH] (zone-mode): Don't use make-local-hook.

---
 lisp/ChangeLog        |  4 ++++
 lisp/net/zone-mode.el | 11 +++++------
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30eb0ec6e04..c1051ab03bc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-11  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* net/zone-mode.el (zone-mode): Don't use make-local-hook.
+
 2001-12-11  Richard M. Stallman  <rms@gnu.org>
 
 	* textmodes/ispell.el (ispell-buffer-local-parsing):
diff --git a/lisp/net/zone-mode.el b/lisp/net/zone-mode.el
index d1528aa1794..598386f23a9 100644
--- a/lisp/net/zone-mode.el
+++ b/lisp/net/zone-mode.el
@@ -52,20 +52,20 @@
 	     (new-seq
 	      (cond
 	       ((not (string= old-date cur-date))
-		"00") ;; reset sequeence number
+		"00") ;; reset sequence number
 	       ((>= old-seq-num 99)
-		(error "Serial number's sequenece cannot increment beyond 99"))
+		(error "Serial number's sequence cannot increment beyond 99"))
 	       (t
 		(format "%02d" (1+ old-seq-num)))))
 	     (old-serial (concat old-date old-seq))
 	     (new-serial (concat cur-date new-seq)))
 	(if (string-lessp new-serial old-serial)
-	    (error (format "Serial numbers want to move backwards from %s to %s!" old-serial new-serial))
+	    (error (format "Serial numbers want to move backwards from %s to %s" old-serial new-serial))
 	  (replace-match (concat cur-date new-seq old-flag) t t))))))
   
 ;;;###autoload
 (defun zone-mode-update-serial-hook ()
-  "Update the serial number in a zone if the file was modified"
+  "Update the serial number in a zone if the file was modified."
   (interactive)
   (if (buffer-modified-p (current-buffer))
       (zone-mode-update-serial))
@@ -76,7 +76,7 @@
   "Zone-mode's syntax table.")
 
 (defun zone-mode-load-time-setup ()
-  "init zone-mode stuff"
+  "Initialise `zone-mode' stuff."
   (setq zone-mode-syntax-table (make-syntax-table))
   (modify-syntax-entry ?\; "<" zone-mode-syntax-table)
   (modify-syntax-entry ?\n ">" zone-mode-syntax-table))
@@ -92,7 +92,6 @@ Zone-mode does two things:
 
 	- fontification"
 
-  (make-local-hook 'write-file-hooks)
   (add-hook 'write-file-hooks 'zone-mode-update-serial-hook)
 
   (if (null zone-mode-syntax-table)
-- 
2.39.2