;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:55 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/net/zone-mode.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; 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 (#$ . 624) 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 (#$ . 1345) nil])
#@27 Zone-mode's syntax table.
(defvar zone-mode-syntax-table nil (#$ . 1557))
#@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 (#$ . 1637)])
(byte-code "\301B\303\301!\204 \304 \302B\303\302!\204 \305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list zone-mode-map zone-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil zone-mode-abbrev-table define-abbrev-table put zone-mode derived-mode-parent fundamental-mode] 4)
#@261 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

This mode runs the hook `zone-mode-hook', as the final step
during initialization.

\{zone-mode-map}
(defalias 'zone-mode #[nil "\306 \210\306\307N\203 \310\311\307\312#\210\311\313\314\n!\204 \315\n\316 \"\210\317!\211\203. \f\320 =\2034 \321\322 \"\210)\203> \323\324\"\210\325\n!\210\326!\210(\327\330!\210\331\330\332\333\312$\210\204[ \334 \210\326!\210\335\336!\210\337\335\340!\210\341 \335\342!\210\343\"\335\344!\210\345$\346\347!\207" [major-mode mode-name zone-mode-map zone-mode-syntax-table parent local-abbrev-table fundamental-mode special put zone-mode t "zone" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303!	\"\206 \304	\303!JK$\207" [symbol zone-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-hook write-file-hooks add-hook zone-mode-update-serial-hook nil zone-mode-load-time-setup make-local-variable comment-start ";" comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ 	]*" comment-column 40 font-lock-defaults (nil nil nil nil beginning-of-line) run-hooks zone-mode-hook zone-mode-abbrev-table] 6 (#$ . 2184) nil])
(byte-code "\300 \210\301\302!\207" [zone-mode-load-time-setup provide zone-mode] 2)