From: Lute Kamstra Date: Thu, 26 May 2005 15:23:59 +0000 (+0000) Subject: * net/eudc.el (eudc-mode): X-Git-Tag: emacs-pretest-22.0.90~9521 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57f9923ee76a501ac930a014197a3dd803028d3c;p=emacs.git * net/eudc.el (eudc-mode): * net/quickurl.el (quickurl-list-mode): * net/snmp-mode.el (snmp-mode, snmpv2-mode): Use run-mode-hooks. --- diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index b279715329f..f234ab059d5 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -670,8 +670,7 @@ These are the special commands of EUDC mode: (if eudc-emacs-p (easy-menu-define eudc-emacs-menu eudc-mode-map "" (eudc-menu)) (setq mode-popup-menu (eudc-menu))) - (run-hooks 'eudc-mode-hook) - ) + (run-mode-hooks 'eudc-mode-hook)) ;;}}} diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el index ebf4dcd3618..d2ff0140dce 100644 --- a/lisp/net/quickurl.el +++ b/lisp/net/quickurl.el @@ -458,7 +458,7 @@ The key bindings for `quickurl-list-mode' are: (use-local-map quickurl-list-mode-map) (setq major-mode 'quickurl-list-mode mode-name "quickurl list") - (run-hooks 'quickurl-list-mode-hook) + (run-mode-hooks 'quickurl-list-mode-hook) (setq buffer-read-only t truncate-lines t)) diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el index 73fef1452a0..f41dd845261 100644 --- a/lisp/net/snmp-mode.el +++ b/lisp/net/snmp-mode.el @@ -393,8 +393,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 @@ -429,8 +428,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)) ;;;----------------------------------------------------------------------------