Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/obsolete/info-edit.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'info)
#@46 Hook run when `Info-edit-mode' is activated.
(defvar Info-edit-mode-hook nil (#$ . 424))
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\211\203.\211@\305
N\203'\306
N\204'\311\306\305N#\210
A\266\202\202
\210\300\305\306\312#\207" [make-obsolete-variable Info-edit-mode-hook "editing Info nodes by hand is not recommended." "24.4" defvaralias Info-edit-map Info-edit-mode-map nil (saved-value saved-variable-comment) put "24.1"] 7)
#@47 Local keymap used within `e' command of Info.
(defvar Info-edit-mode-map (byte-code "\301 \302
\"\210\303
\304\305#\210\211\207" [text-mode-map make-sparse-keymap set-keymap-parent define-key "" Info-cease-edit] 5) (#$ . 880))
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [make-obsolete-variable Info-edit-mode-map "editing Info nodes by hand is not recommended." "24.4" put Info-edit-mode mode-class special] 4)
(defvar Info-edit-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [Info-edit-mode-hook variable-documentation put "Hook run after entering Info Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp Info-edit-mode-map definition-name Info-edit-mode] 4)
(defvar Info-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [Info-edit-mode-abbrev-table Info-edit-mode-map variable-documentation put purecopy "Keymap for `Info-edit-mode'." boundp Info-edit-mode-syntax-table definition-name Info-edit-mode (lambda (#1=#:def-tmp-var) (defvar Info-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `Info-edit-mode'." (lambda (#1#) (defvar Info-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `Info-edit-mode'." derived-mode-parent text-mode] 5)
#@345 Major mode for editing the contents of an Info node.
Like text mode with the addition of `Info-cease-edit'
which returns to Info mode for browsing.

In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `Info-edit-mode-hook', as the final or penultimate step
during initialization.

\{Info-edit-mode-map}
(defalias 'Info-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\331\332 \210\333p!\210)\334\335!\207" [delay-mode-hooks major-mode mode-name Info-edit-mode-map Info-edit-mode-syntax-table Info-edit-mode-abbrev-table make-local-variable t text-mode Info-edit-mode "Info Edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table nil force-mode-line-update buffer-enable-undo run-mode-hooks Info-edit-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 2497) nil])
#@38 Edit the contents of this Info node.
(defalias 'Info-edit #[0 "\300 \210\301\302\303\304!\"\207" [Info-edit-mode message "%s" substitute-command-keys "Editing: Type \\<Info-edit-mode-map>\\[Info-cease-edit] to return to info"] 4 (#$ . 3672) nil])
(put 'Info-edit 'disabled "Editing Info nodes by hand is not recommended.\nThis feature will be removed in future.")
#@55 Finish editing Info node; switch back to Info proper.
(defalias 'Info-cease-edit #[0 "\301 \203\302\303!\203\304 \210\305 \210\306 \210\307!\205\"\301 \205\"\310\311!\207" [Info-tag-table-marker buffer-modified-p y-or-n-p "Save the file? " save-buffer Info-mode force-mode-line-update marker-position message "Tags may have changed.  Use Info-tagify if necessary"] 2 (#$ . 4042) nil])
(byte-code "\301>\203\210\202\301B\302\303!\207" [ibuffer-help-buffer-modes Info-edit-mode provide info-edit] 2)