62 |
(if (string-lessp new-serial old-serial) |
(if (string-lessp new-serial old-serial) |
63 |
(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)) |
64 |
(replace-match (concat cur-date new-seq old-flag) t t)))))) |
(replace-match (concat cur-date new-seq old-flag) t t)))))) |
65 |
|
|
66 |
;;;###autoload |
;;;###autoload |
67 |
(defun zone-mode-update-serial-hook () |
(defun zone-mode-update-serial-hook () |
68 |
"Update the serial number in a zone if the file was modified." |
"Update the serial number in a zone if the file was modified." |