diff options
| author | Lute Kamstra <lute@gnu.org> | 2005-05-26 15:23:59 +0000 |
|---|---|---|
| committer | Lute Kamstra <lute@gnu.org> | 2005-05-26 15:23:59 +0000 |
| commit | 57f9923ee76a501ac930a014197a3dd803028d3c (patch) | |
| tree | 2ec03bed194795c725c4e7e23f537fe33dbe68bf /lisp/net | |
| parent | cf8402ae917bb45098ef2cdf07064a4e718651c3 (diff) | |
| download | emacs-57f9923ee76a501ac930a014197a3dd803028d3c.tar.gz | |
* net/eudc.el (eudc-mode):
* net/quickurl.el (quickurl-list-mode):
* net/snmp-mode.el (snmp-mode, snmpv2-mode): Use run-mode-hooks.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/eudc.el | 3 | ||||
| -rw-r--r-- | lisp/net/quickurl.el | 2 | ||||
| -rw-r--r-- | lisp/net/snmp-mode.el | 6 |
3 files changed, 4 insertions, 7 deletions
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)) ;;;---------------------------------------------------------------------------- |