diff options
| author | Lute Kamstra <lute@gnu.org> | 2005-05-26 15:24:51 +0000 |
|---|---|---|
| committer | Lute Kamstra <lute@gnu.org> | 2005-05-26 15:24:51 +0000 |
| commit | e1c31ddba8d6832cee2fe0b565fa0414b91819b9 (patch) | |
| tree | fb1e1ca877febf3114644bb6d431e1d25db636c2 /lisp/obsolete | |
| parent | 57f9923ee76a501ac930a014197a3dd803028d3c (diff) | |
| download | emacs-e1c31ddba8d6832cee2fe0b565fa0414b91819b9.tar.gz | |
* obsolete/ooutline.el (outline-mode):
* obsolete/options.el (Edit-options-mode):
* obsolete/rnews.el (news-mode):
* obsolete/rnewspost.el (news-reply-mode): Use run-mode-hooks.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/ooutline.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/options.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/rnews.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/rnewspost.el | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/lisp/obsolete/ooutline.el b/lisp/obsolete/ooutline.el index 6b595b86297..0218d097b64 100644 --- a/lisp/obsolete/ooutline.el +++ b/lisp/obsolete/ooutline.el @@ -224,7 +224,7 @@ Turning on outline mode calls the value of `text-mode-hook' and then of (setq font-lock-defaults '(outline-font-lock-keywords t)) (make-local-variable 'change-major-mode-hook) (add-hook 'change-major-mode-hook 'show-all) - (run-hooks 'text-mode-hook 'outline-mode-hook)) + (run-mode-hooks 'text-mode-hook 'outline-mode-hook)) (defcustom outline-minor-mode-prefix "\C-c@" "*Prefix key to use for Outline commands in Outline minor mode. diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el index 34d7e532d1a..5ea14678d0b 100644 --- a/lisp/obsolete/options.el +++ b/lisp/obsolete/options.el @@ -109,7 +109,7 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph] (setq truncate-lines t) (setq major-mode 'Edit-options-mode) (setq mode-name "Options") - (run-hooks 'Edit-options-mode-hook)) + (run-mode-hooks 'Edit-options-mode-hook)) (defun Edit-options-set () (interactive) (Edit-options-modify diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el index cb2ed034ffc..7a546aa3081 100644 --- a/lisp/obsolete/rnews.el +++ b/lisp/obsolete/rnews.el @@ -375,7 +375,7 @@ U unsubscribe from specified newsgroup." (set-syntax-table text-mode-syntax-table) (use-local-map news-mode-map) (setq local-abbrev-table text-mode-abbrev-table) - (run-hooks 'news-mode-hook)) + (run-mode-hooks 'news-mode-hook)) (defun string-subst-char (new old string) (let (index) diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el index 1b7623f78ae..e1a378c6fb6 100644 --- a/lisp/obsolete/rnewspost.el +++ b/lisp/obsolete/rnewspost.el @@ -130,7 +130,7 @@ C-c C-r caesar rotate all letters by 13 places in the article's body (rot13)." (setq mode-name "News Reply") (make-local-variable 'paragraph-separate) (make-local-variable 'paragraph-start) - (run-hooks 'text-mode-hook 'news-reply-mode-hook)) + (run-mode-hooks 'text-mode-hook 'news-reply-mode-hook)) (defvar news-reply-yank-from "" "Save `From:' field for `news-reply-yank-original'.") |