Commit 430663bc authored by Lute Kamstra's avatar Lute Kamstra
Browse files

(Man-mode): Use kill-all-local-variables and run-mode-hooks.

parent 9b5e13c4
...@@ -1061,6 +1061,7 @@ The following variables may be of some use. Try ...@@ -1061,6 +1061,7 @@ The following variables may be of some use. Try
The following key bindings are currently in effect in the buffer: The following key bindings are currently in effect in the buffer:
\\{Man-mode-map}" \\{Man-mode-map}"
(interactive) (interactive)
(kill-all-local-variables)
(setq major-mode 'Man-mode (setq major-mode 'Man-mode
mode-name "Man" mode-name "Man"
buffer-auto-save-file-name nil buffer-auto-save-file-name nil
...@@ -1069,7 +1070,7 @@ The following key bindings are currently in effect in the buffer: ...@@ -1069,7 +1070,7 @@ The following key bindings are currently in effect in the buffer:
" {" 'Man-page-mode-string "}") " {" 'Man-page-mode-string "}")
truncate-lines t truncate-lines t
buffer-read-only t) buffer-read-only t)
(buffer-disable-undo (current-buffer)) (buffer-disable-undo)
(auto-fill-mode -1) (auto-fill-mode -1)
(use-local-map Man-mode-map) (use-local-map Man-mode-map)
(set-syntax-table man-mode-syntax-table) (set-syntax-table man-mode-syntax-table)
...@@ -1080,7 +1081,7 @@ The following key bindings are currently in effect in the buffer: ...@@ -1080,7 +1081,7 @@ The following key bindings are currently in effect in the buffer:
(Man-strip-page-headers) (Man-strip-page-headers)
(Man-unindent) (Man-unindent)
(Man-goto-page 1) (Man-goto-page 1)
(run-hooks 'Man-mode-hook)) (run-mode-hooks 'Man-mode-hook))
(defsubst Man-build-section-alist () (defsubst Man-build-section-alist ()
"Build the association list of manpage sections." "Build the association list of manpage sections."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment