changeset 62736:76864fc0acf0

(Man-mode): Use kill-all-local-variables and run-mode-hooks.
author Lute Kamstra <lute@gnu.org>
date Thu, 26 May 2005 13:07:46 +0000
parents 86807c2c8e61
children f5aef2123438
files lisp/man.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."