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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\207" [require gnus gnus-win custom-declare-group gnus-edit-form nil "A mode for editing forms." :group custom-declare-variable gnus-edit-form-mode-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run in `gnus-edit-form-mode' buffers." :type hook gnus-edit-form-menu-hook #[0 "\300\207" [nil] 1 #1#] "Hook run when creating menus in `gnus-edit-form-mode' buffers."] 6)
(defvar gnus-edit-form-buffer "*Gnus edit form*")
(defvar gnus-edit-form-done-function nil)
(defvar gnus-edit-form-mode-map (byte-code "\301 \302
\"\210\303
\304\"\210\207" [emacs-lisp-mode-map make-sparse-keymap set-keymap-parent gnus-define-keys-1 ("" gnus-edit-form-done "" gnus-edit-form-exit)] 4))
(defalias 'gnus-edit-form-make-menu-bar #[0 "\301\302!?\205\303\304!\210\305\302\306\307$\210\310\311!\207" [gnus-edit-form-mode-map boundp gnus-edit-form-menu (lambda (#1=#:def-tmp-var) (defvar gnus-edit-form-menu #1# #2="")) nil easy-menu-do-define #2# ("Edit Form" ["Exit and save changes" gnus-edit-form-done t] ["Exit" gnus-edit-form-exit t]) gnus-run-hooks gnus-edit-form-menu-hook] 5])
(defvar gnus-edit-form-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-edit-form-mode-hook variable-documentation put "Hook run after entering Edit Form mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-edit-form-mode-map definition-name gnus-edit-form-mode] 4)
(defvar gnus-edit-form-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" [gnus-edit-form-mode-abbrev-table gnus-edit-form-mode-map variable-documentation put purecopy "Keymap for `gnus-edit-form-mode'." boundp gnus-edit-form-mode-syntax-table definition-name gnus-edit-form-mode (lambda (#1=#:def-tmp-var) (defvar gnus-edit-form-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-edit-form-mode'." (lambda (#1#) (defvar gnus-edit-form-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-edit-form-mode'." derived-mode-parent lisp-data-mode] 5)
#@269 Major mode for editing forms.
It is a slightly enhanced `lisp-data-mode'.

\{gnus-edit-form-mode-map}

In addition to any hooks its parent mode might have run, this mode
runs the hook `gnus-edit-form-mode-hook', as the final or penultimate
step during initialization.
(defalias 'gnus-edit-form-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
\325!C#\210\327!\210\330\f!\210
!\331\332\333\"\203g\334 \210\306\335!\210\306\336!\210)\337\340!\207" [delay-mode-hooks major-mode mode-name gnus-edit-form-mode-map gnus-edit-form-mode-syntax-table gnus-edit-form-mode-abbrev-table make-local-variable t lisp-data-mode gnus-edit-form-mode "Edit Form" 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 gnus-visual-p group-menu menu gnus-edit-form-make-menu-bar gnus-edit-form-done-function gnus-prev-winconf run-mode-hooks gnus-edit-form-mode-hook local-abbrev-table] 5 (#$ . 2566) nil])
#@220 Edit FORM in a new buffer.
Call EXIT-FUNC on exit.  Display DOCUMENTATION in the beginning
of the buffer.
The optional LAYOUT overrides the `edit-form' window layout.

(fn FORM DOCUMENTATION EXIT-FUNC &optional LAYOUT)
(defalias 'gnus-edit-form #[1027 "\303 \304!q\210\305\206
\306!\210\307 \210\211\310 \210c\210n\204#\311c\210eb\210m\2043\312c\210\313y\210\202&\314\315!c\210\311c\210`\316!\210\311c\210\211b\207" [gnus-edit-form-buffer gnus-prev-winconf gnus-edit-form-done-function current-window-configuration gnus-get-buffer-create gnus-configure-windows edit-form gnus-edit-form-mode erase-buffer "\n" ";;; " 1 substitute-command-keys ";; Type `C-c C-c' after you've finished editing.\n" gnus-pp] 8 (#$ . 3774)])
#@45 Update changes and kill the current buffer.
(defalias 'gnus-edit-form-done #[0 "eb\210\3011\302p!0\202\210\303\304 \210\211!\207" [gnus-edit-form-done-function (end-of-file) read nil gnus-edit-form-exit] 4 (#$ . 4512) [nil (gnus-edit-form-mode)]])
#@26 Kill the current buffer.
(defalias 'gnus-edit-form-exit #[0 "\301p!\210\302
!\207" [gnus-prev-winconf kill-buffer set-window-configuration] 3 (#$ . 4772) [nil (gnus-edit-form-mode)]])
(provide 'gnus-eform)