comparison lisp/net/zone-mode.el @ 38436:b174db545cfd

Some fixes to follow coding conventions.

38435:a9102b5472f0

;;; zone-mode.el -- major mode for editing DNS zone files.

;; Copyright (C) 1998 Free Software Foundation, Inc.

;; Author: John Heidemann <[e-mail]>
;; Keywords: DNS, languages

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;;
;;; See the comments in ``define-derived-mode zone-mode''
;;; (the last function in this file)
;;; for what this mode is and how to use it automatically.

	     (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)

38436:b174db545cfd

;;; zone-mode.el --- major mode for editing DNS zone files

;; Copyright (C) 1998 Free Software Foundation, Inc.

;; Author: John Heidemann <[e-mail]>
;; Keywords: DNS, languages

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;;;
;;; See the comments in ``define-derived-mode zone-mode''
;;; (the last function in this file)
;;; for what this mode is and how to use it automatically.

	     (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)