* net/goto-addr.el (goto-address): Mark as safe for local evals.

[gnu-emacs] / lisp / net / snmp-mode.el

diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el
index 8753cceda2545ef3d9986995f0438b5c03bcf63e..62f6bb87b697aade6ec9a38defb7b29ed18cdf93 100644 (file)
--- a/lisp/net/snmp-mode.el
+++ b/lisp/net/snmp-mode.el
@@ -1,6 +1,7 @@
-;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
+;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
 
-;; Copyright (C) 1995,1998  Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1998, 2002, 2003, 2004,
+;;   2005, 2006 Free Software Foundation, Inc.
 
 ;; Author: Paul D. Smith <psmith@BayNetworks.com>
 ;; Keywords: data
@@ -19,8 +20,10 @@
 
 ;; 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.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
 
 ;; INTRODUCTION
 ;; ------------
@@ -82,6 +85,11 @@
 ;; Enabling global-font-lock-mode is also sufficient.
 ;;
 
+;;; Code:
+
+(eval-when-compile
+  (require 'tempo))
+
 ;;;----------------------------------------------------------------------------
 ;;
 ;;                          Customize these:
@@ -349,7 +357,7 @@ This is used during Tempo template completion."
 
   ;; Miscellaneous customization
   (make-local-variable 'require-final-newline)
-  (setq require-final-newline t))
+  (setq require-final-newline mode-require-final-newline))
 
 
 ;; SNMPv1 MIB Editing Mode.
@@ -386,8 +394,7 @@ Turning on snmp-mode runs the hooks in `snmp-common-mode-hook', then
   (setq snmp-mode-status-list snmp-rfc1212-status)
 
   ;; Run hooks
-  (run-hooks 'snmp-common-mode-hook)
-  (run-hooks 'snmp-mode-hook))
+  (run-mode-hooks 'snmp-common-mode-hook 'snmp-mode-hook))
 
 
 ;;;###autoload
@@ -422,8 +429,7 @@ then `snmpv2-mode-hook'."
   (setq snmp-mode-status-list snmp-rfc1902-status)
 
   ;; Run hooks
-  (run-hooks 'snmp-common-mode-hook)
-  (run-hooks 'snmpv2-mode-hook))
+  (run-mode-hooks 'snmp-common-mode-hook 'snmpv2-mode-hook))
 
 
 ;;;----------------------------------------------------------------------------
@@ -713,4 +719,5 @@ controls whether case is significant."
 
 (provide 'snmp-mode)
 
-;; snmp-mode.el ends here
+;;; arch-tag: eb6cc0f9-1e47-4023-8625-bc9aae6c3527
+;;; snmp-mode.el ends here