From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 7 May 2010 14:18:27 +0000 (-0400)
Subject: * textmodes/dns-mode.el (auto-mode-alist): Add entry for .zone files.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~238
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05623156f3fe22fd266cbb0551370e3dcdf5de88;p=emacs.git

* textmodes/dns-mode.el (auto-mode-alist): Add entry for .zone files.
* files.el (auto-mode-alist): Remove redundant entries.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2aeabf1fe1..5723d7af009 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,9 @@
 
 2010-05-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* textmodes/dns-mode.el (auto-mode-alist): Add entry for .zone files.
+	* files.el (auto-mode-alist): Remove redundant entries.
+
 	* files.el (auto-save-mode): Move to simple.el to fix bootstrap.
 	* simple.el (auto-save-mode): Move from files.el.
 	* minibuffer.el (completion--common-suffix): Fix copy&paste error.
diff --git a/lisp/files.el b/lisp/files.el
index 406ee7e00cb..d14599f574a 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2260,7 +2260,6 @@ ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|7Z\\)\\'" . archive-mode)
      ;; /tmp/Re.... or Message
      ("\\`/tmp/Re" . text-mode)
      ("/Message[0-9]*\\'" . text-mode)
-     ("\\.zone\\'" . zone-mode)
      ;; some news reader is reported to use this
      ("\\`/tmp/fol/" . text-mode)
      ("\\.oak\\'" . scheme-mode)
@@ -2294,7 +2293,6 @@ ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|7Z\\)\\'" . archive-mode)
      ("#\\*mail\\*" . mail-mode)
      ("\\.g\\'" . antlr-mode)
      ("\\.ses\\'" . ses-mode)
-     ("\\.\\(soa\\|zone\\)\\'" . dns-mode)
      ("\\.docbook\\'" . sgml-mode)
      ("\\.com\\'" . dcl-mode)
      ("/config\\.\\(?:bat\\|log\\)\\'" . fundamental-mode)
diff --git a/lisp/textmodes/dns-mode.el b/lisp/textmodes/dns-mode.el
index bb9fedad206..fa011687c1c 100644
--- a/lisp/textmodes/dns-mode.el
+++ b/lisp/textmodes/dns-mode.el
@@ -151,6 +151,7 @@ Turning on DNS mode runs `dns-mode-hook'."
   (easy-menu-add dns-mode-menu dns-mode-map))
 
 ;;;###autoload (defalias 'zone-mode 'dns-mode)
+;;;###autoload (add-to-list 'auto-mode-alist (purecopy '("\\.zone\\'" . zone-mode)))
 
 ;; Tools.