Mercurial > emacs
changeset 41944:66a34741f47c
(zone-mode): Don't use make-local-hook.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Tue, 11 Dec 2001 06:50:22 +0000 |
| parents | 6250dd339aac |
| children | 6d27cd884384 |
| files | lisp/net/zone-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)