;ELC   
;;; Compiled by rms@psilocin.ai.mit.edu on Thu Jun 25 00:37:47 1998
;;; from file /gd/gnu/emacs/lisp/zone-mode.el
;;; in Emacs version 20.2.96.2
;;; with bytecomp version 2.47
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`zone-mode.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@37 Update the serial number in a zone.
(defalias 'zone-mode-update-serial #[nil "\212eb\210\306\307d\310#\205j \311\312!\311\313!\314\311\313!!\311\315!\316\317!\f\230\204, \320\202= \n\321Y\2038 \322\323!\202= \324\325\nT\"	P\fP\211\231\203\\ \322\324\326#!\210\202e \327\fQ\310\211#\210.\202 )\207" [old-date old-seq old-seq-num old-flag cur-date new-seq re-search-forward "\\b\\([0-9]+\\)\\([0-9][0-9]\\)\\([ 	]+;[ 	]+[Ss]erial\\)" t match-string 1 2 string-to-number 3 format-time-string "%Y%m%d" "00" 99 error "Serial number's sequenece cannot increment beyond 99." format "%02d" "Serial numbers want to move backwards from %s to %s!" replace-match old-serial new-serial] 6 (#$ . 606) nil])
#@61 Update the serial number in a zone if the file was modified
(defalias 'zone-mode-update-serial-hook #[nil "\300p!\203	 \301 \210\302\207" [buffer-modified-p zone-mode-update-serial nil] 2 (#$ . 1328) nil])
#@27 Zone-mode's syntax table.
(defvar zone-mode-syntax-table nil (#$ . 1540))
#@22 init zone-mode stuff
(defalias 'zone-mode-load-time-setup #[nil "\301 \302\303\304#\210\302\305\306#\207" [zone-mode-syntax-table make-syntax-table modify-syntax-entry 59 "<" 10 ">"] 4 (#$ . 1620)])
(byte-code "\300\301!\210\302\301\303\304#\207" [derived-mode-init-mode-variables zone-mode put derived-mode-parent fundamental-mode] 4)
#@159 A mode for editing DNS zone files.

Zone-mode does two things:

	- automatically update the serial number for a zone
		when saving the file

	- fontification
(defalias 'zone-mode #[nil "\306 \210\306\307N\203 \310\311\307\312#\210\311\313\314\311!\210\315\311!\210\316\311!\210\317\320!\210\321\320\322\"\210\n\204/ \323 \210\324\n!\210\325\303!\210\326\325\304!\210\327\325\305!\210\330\325\331!\210\332\333\311!\207" [major-mode mode-name zone-mode-syntax-table comment-start comment-start-skip comment-column fundamental-mode special put zone-mode t "zone" derived-mode-set-keymap derived-mode-set-syntax-table derived-mode-set-abbrev-table make-local-hook write-file-hooks add-hook zone-mode-update-serial-hook zone-mode-load-time-setup set-syntax-table make-local-variable ";" "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ 	]*" 40 font-lock-defaults (nil nil nil nil beginning-of-line) derived-mode-run-hooks] 4 (#$ . 1966) nil])
(byte-code "\300 \210\301\302!\207" [zone-mode-load-time-setup provide zone-mode] 2)