Mercurial > emacs

comparison lisp/net/snmp-mode.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 5f79f8210ef4
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode 1 ;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
2 2
3 ;; Copyright (C) 1995, 1998, 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995, 1998, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Author: Paul D. Smith <psmith@BayNetworks.com> 6 ;; Author: Paul D. Smith <psmith@BayNetworks.com>
6 ;; Keywords: data 7 ;; Keywords: data
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 19 ;; GNU General Public License for more details.
19 20
20 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02110-1301, USA.
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 27
27 ;; INTRODUCTION 28 ;; INTRODUCTION
28 ;; ------------ 29 ;; ------------
354 (make-local-variable 'tempo-interactive) 355 (make-local-variable 'tempo-interactive)
355 (setq tempo-interactive t) 356 (setq tempo-interactive t)
356 357
357 ;; Miscellaneous customization 358 ;; Miscellaneous customization
358 (make-local-variable 'require-final-newline) 359 (make-local-variable 'require-final-newline)
359 (setq require-final-newline t)) 360 (setq require-final-newline mode-require-final-newline))
360 361
361 362
362 ;; SNMPv1 MIB Editing Mode. 363 ;; SNMPv1 MIB Editing Mode.
363 ;; 364 ;;
364 ;;;###autoload 365 ;;;###autoload
391 (setq snmp-mode-access-list snmp-rfc1155-access) 392 (setq snmp-mode-access-list snmp-rfc1155-access)
392 (make-local-variable 'snmp-mode-status-list) 393 (make-local-variable 'snmp-mode-status-list)
393 (setq snmp-mode-status-list snmp-rfc1212-status) 394 (setq snmp-mode-status-list snmp-rfc1212-status)
394 395
395 ;; Run hooks 396 ;; Run hooks
396 (run-hooks 'snmp-common-mode-hook) 397 (run-mode-hooks 'snmp-common-mode-hook 'snmp-mode-hook))
397 (run-hooks 'snmp-mode-hook))
398 398
399 399
400 ;;;###autoload 400 ;;;###autoload
401 (defun snmpv2-mode () 401 (defun snmpv2-mode ()
402 "Major mode for editing SNMPv2 MIBs. 402 "Major mode for editing SNMPv2 MIBs.
427 (setq snmp-mode-access-list snmp-rfc1902-access) 427 (setq snmp-mode-access-list snmp-rfc1902-access)
428 (make-local-variable 'snmp-mode-status-list) 428 (make-local-variable 'snmp-mode-status-list)
429 (setq snmp-mode-status-list snmp-rfc1902-status) 429 (setq snmp-mode-status-list snmp-rfc1902-status)
430 430
431 ;; Run hooks 431 ;; Run hooks
432 (run-hooks 'snmp-common-mode-hook) 432 (run-mode-hooks 'snmp-common-mode-hook 'snmpv2-mode-hook))
433 (run-hooks 'snmpv2-mode-hook))
434 433
435 434
436 ;;;---------------------------------------------------------------------------- 435 ;;;----------------------------------------------------------------------------
437 ;; 436 ;;
438 ;; Indentation Setup 437 ;; Indentation Setup
718 'snmpv2-tempo-tags) 717 'snmpv2-tempo-tags)
719 718
720 719
721 (provide 'snmp-mode) 720 (provide 'snmp-mode)
722 721
722 ;;; arch-tag: eb6cc0f9-1e47-4023-8625-bc9aae6c3527
723 ;;; snmp-mode.el ends here 723 ;;; snmp-mode.el ends here