diff options
author | Karl Heuer <[email protected]> | 1994-09-16 23:31:10 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-09-16 23:31:10 +0000 |
commit | e82c28f9790d0199ae42ab0ed2270cacda65eb93 (patch) | |
tree | 42e2a003f2ea8f5cb512afc6c22d0c8c46b1ed3b | |
parent | 151ca1707130a0485038b3e6535503ebce465ad7 (diff) |
(Info-edit): Move the customary mode-initialization calls out of here.
(Info-edit-mode): Put them here. Also enable undo, and call
Info-edit-mode-hook.
-rw-r--r-- | lisp/info.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/info.el b/lisp/info.el index 59416d7932..b07c8930c8 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1520,14 +1520,6 @@ Advanced commands: Like text mode with the addition of `Info-cease-edit' which returns to Info mode for browsing. \\{Info-edit-map}" - ) - -(defun Info-edit () - "Edit the contents of this Info node. -Allowed only if variable `Info-enable-edit' is non-nil." - (interactive) - (or Info-enable-edit - (error "Editing info nodes is not enabled")) (use-local-map Info-edit-map) (setq major-mode 'Info-edit-mode) (setq mode-name "Info Edit") @@ -1535,8 +1527,18 @@ Allowed only if variable `Info-enable-edit' is non-nil." (setq buffer-read-only nil) ;; Make mode line update. (set-buffer-modified-p (buffer-modified-p)) + (buffer-enable-undo (current-buffer)) + (run-hooks 'Info-edit-mode-hook)) + +(defun Info-edit () + "Edit the contents of this Info node. +Allowed only if variable `Info-enable-edit' is non-nil." + (interactive) + (or Info-enable-edit + (error "Editing info nodes is not enabled")) + (Info-edit-mode) (message (substitute-command-keys - "Editing: Type \\<Info-edit-map>\\[Info-cease-edit] to return to info"))) + "Editing: Type \\<Info-edit-map>\\[Info-cease-edit] to return to info"))) (defun Info-cease-edit () "Finish editing Info node; switch back to Info proper." |