[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/zone-mode.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/zone-mode.el |
Date: |
Tue, 11 Dec 2001 01:50:22 -0500 |
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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/zone-mode.el,
Pavel Janík <=