# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1117112866 0
# Node ID 76864fc0acf0fae410495ae8866b458e16d6cc2d
# Parent  86807c2c8e61f4767c8acec885736136153c382e
(Man-mode): Use kill-all-local-variables and run-mode-hooks.

diff -r 86807c2c8e61 -r 76864fc0acf0 lisp/man.el
--- a/lisp/man.el	Thu May 26 13:04:16 2005 +0000
+++ b/lisp/man.el	Thu May 26 13:07:46 2005 +0000
@@ -1061,6 +1061,7 @@
 The following key bindings are currently in effect in the buffer:
 \\{Man-mode-map}"
   (interactive)
+  (kill-all-local-variables)
   (setq major-mode 'Man-mode
 	mode-name "Man"
 	buffer-auto-save-file-name nil
@@ -1069,7 +1070,7 @@
 	      " {" 'Man-page-mode-string "}")
 	truncate-lines t
 	buffer-read-only t)
-  (buffer-disable-undo (current-buffer))
+  (buffer-disable-undo)
   (auto-fill-mode -1)
   (use-local-map Man-mode-map)
   (set-syntax-table man-mode-syntax-table)
@@ -1080,7 +1081,7 @@
   (Man-strip-page-headers)
   (Man-unindent)
   (Man-goto-page 1)
-  (run-hooks 'Man-mode-hook))
+  (run-mode-hooks 'Man-mode-hook))
 
 (defsubst Man-build-section-alist ()
   "Build the association list of manpage sections."