diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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) |