Mercurial > emacs
comparison lisp/net/zone-mode.el @ 38436:b174db545cfd
Some fixes to follow coding conventions.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 16 Jul 2001 12:23:00 +0000 |
parents | b56f9152e329 |
children | 66a34741f47c |
comparison
equal
deleted
inserted
replaced
38435:a9102b5472f0 | 38436:b174db545cfd |
---|---|
1 ;;; zone-mode.el -- major mode for editing DNS zone files. | 1 ;;; zone-mode.el --- major mode for editing DNS zone files |
2 | 2 |
3 ;; Copyright (C) 1998 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1998 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: John Heidemann <johnh@isi.edu> | 5 ;; Author: John Heidemann <johnh@isi.edu> |
6 ;; Keywords: DNS, languages | 6 ;; Keywords: DNS, languages |
19 | 19 |
20 ;; You should have received a copy of the GNU General Public License | 20 ;; You should have received a copy of the GNU General Public License |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
23 ;; Boston, MA 02111-1307, USA. | 23 ;; Boston, MA 02111-1307, USA. |
24 | |
25 ;;; Commentary: | |
24 | 26 |
25 ;;; | 27 ;;; |
26 ;;; See the comments in ``define-derived-mode zone-mode'' | 28 ;;; See the comments in ``define-derived-mode zone-mode'' |
27 ;;; (the last function in this file) | 29 ;;; (the last function in this file) |
28 ;;; for what this mode is and how to use it automatically. | 30 ;;; for what this mode is and how to use it automatically. |
50 (new-seq | 52 (new-seq |
51 (cond | 53 (cond |
52 ((not (string= old-date cur-date)) | 54 ((not (string= old-date cur-date)) |
53 "00") ;; reset sequeence number | 55 "00") ;; reset sequeence number |
54 ((>= old-seq-num 99) | 56 ((>= old-seq-num 99) |
55 (error "Serial number's sequenece cannot increment beyond 99.")) | 57 (error "Serial number's sequenece cannot increment beyond 99")) |
56 (t | 58 (t |
57 (format "%02d" (1+ old-seq-num))))) | 59 (format "%02d" (1+ old-seq-num))))) |
58 (old-serial (concat old-date old-seq)) | 60 (old-serial (concat old-date old-seq)) |
59 (new-serial (concat cur-date new-seq))) | 61 (new-serial (concat cur-date new-seq))) |
60 (if (string-lessp new-serial old-serial) | 62 (if (string-lessp new-serial old-serial) |