(completion-list-mode): Use run-mode-hooks.

diff --git a/lisp/simple.el b/lisp/simple.el
index 3c9ea979fedba7f599736441e0ca9fb085dfceb8..2cb412e4882f461f5e717fe227f8ca3a6b440df8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4762,7 +4762,7 @@ Use \\<completion-list-mode-map>\\[mouse-choose-completion] to select one\
   (setq major-mode 'completion-list-mode)
   (make-local-variable 'completion-base-size)
   (setq completion-base-size nil)
-  (run-hooks 'completion-list-mode-hook))
+  (run-mode-hooks 'completion-list-mode-hook))
 
 (defun completion-list-mode-finish ()
   "Finish setup of the completions buffer.