# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1008053422 0
# Node ID 66a34741f47c8b770aac0f984784ef6e0c07d42b
# Parent  6250dd339aac0b81f17837054acfa1fe9fc73285
(zone-mode): Don't use make-local-hook.

diff -r 6250dd339aac -r 66a34741f47c lisp/net/zone-mode.el
--- a/lisp/net/zone-mode.el	Tue Dec 11 06:40:08 2001 +0000
+++ b/lisp/net/zone-mode.el	Tue Dec 11 06:50:22 2001 +0000
@@ -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 @@
 
 	- fontification"
 
-  (make-local-hook 'write-file-hooks)
   (add-hook 'write-file-hooks 'zone-mode-update-serial-hook)
 
   (if (null zone-mode-syntax-table)