[Emacs-diffs] Changes to emacs/lisp/net/zone-mode.el

[Pavel Janík]

Index: emacs/lisp/net/zone-mode.el
diff -c emacs/lisp/net/zone-mode.el:1.2 emacs/lisp/net/zone-mode.el:1.3
*** emacs/lisp/net/zone-mode.el:1.2     Mon Jul 16 08:22:59 2001
--- emacs/lisp/net/zone-mode.el Tue Dec 11 01:50:22 2001
***************
*** 52,71 ****
             (new-seq
              (cond
               ((not (string= old-date cur-date))
!               "00") ;; reset sequeence number
               ((>= old-seq-num 99)
!               (error "Serial number's sequenece 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))
          (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"
    (interactive)
    (if (buffer-modified-p (current-buffer))
        (zone-mode-update-serial))
--- 52,71 ----
             (new-seq
              (cond
               ((not (string= old-date cur-date))
!               "00") ;; reset sequence number
               ((>= old-seq-num 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))
          (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."
    (interactive)
    (if (buffer-modified-p (current-buffer))
        (zone-mode-update-serial))
***************
*** 76,82 ****
    "Zone-mode's syntax table.")
  
  (defun zone-mode-load-time-setup ()
!   "init 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))
--- 76,82 ----
    "Zone-mode's syntax table.")
  
  (defun zone-mode-load-time-setup ()
!   "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,98 ****
  
        - fontification"
  
-   (make-local-hook 'write-file-hooks)
    (add-hook 'write-file-hooks 'zone-mode-update-serial-hook)
  
    (if (null zone-mode-syntax-table)
--- 92,97 ----