Mercurial > emacs
comparison lisp/net/zone-mode.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 72899138fdcb |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 60 (old-serial (concat old-date old-seq)) | 60 (old-serial (concat old-date old-seq)) |
| 61 (new-serial (concat cur-date new-seq))) | 61 (new-serial (concat cur-date new-seq))) |
| 62 (if (string-lessp new-serial old-serial) | 62 (if (string-lessp new-serial old-serial) |
| 63 (error (format "Serial numbers want to move backwards from %s to %s" old-serial new-serial)) | 63 (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)))))) | 64 (replace-match (concat cur-date new-seq old-flag) t t)))))) |
| 65 | 65 |
| 66 ;;;###autoload | 66 ;;;###autoload |
| 67 (defun zone-mode-update-serial-hook () | 67 (defun zone-mode-update-serial-hook () |
| 68 "Update the serial number in a zone if the file was modified." | 68 "Update the serial number in a zone if the file was modified." |
| 69 (interactive) | 69 (interactive) |
| 70 (if (buffer-modified-p (current-buffer)) | 70 (if (buffer-modified-p (current-buffer)) |