(zone-mode): Don't use make-local-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30eb0ec6e047832d5eb21149c8922151319f9faf..c1051ab03bc5b1351641933437a5357b390bf9b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-11  Pavel Jan\e,Bm\e(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 d1528aa1794b29bce2f11c04daf8d28b7b906a03..598386f23a9f19b75829408d841af21a902fd384 100644 (file)
--- 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)