;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:42:36 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-eform.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-eform.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\207" [require gnus gnus-win custom-declare-group gnus-edit-form nil "A mode for editing forms." :group] 6)
#@44 Hook run in `gnus-edit-form-mode' buffers.
(custom-declare-variable 'gnus-edit-form-mode-hook 'nil '(#$ . 798) :group 'gnus-edit-form :type 'hook)
#@64 Hook run when creating menus in `gnus-edit-form-mode' buffers.
(custom-declare-variable 'gnus-edit-form-menu-hook 'nil '(#$ . 951) :group 'gnus-edit-form :type 'hook)
(byte-code "\301B\305\301!\204\f \306\302B\305\302!\204 \307\303B\305\303!\204$ \307\2045 \310 \311\f\"\210\312\303\313\"\210\307\207" [current-load-list gnus-edit-form-buffer gnus-edit-form-done-function gnus-edit-form-mode-map emacs-lisp-mode-map boundp "*Gnus edit form*" nil make-sparse-keymap set-keymap-parent gnus-define-keys-1 ("" gnus-edit-form-done "" gnus-edit-form-exit)] 3)
(defalias 'gnus-edit-form-make-menu-bar #[nil "\302\300!?\205 \303\300\304\305#\210\302\300!\204 \306\307\300	\305\310$\210\311\312!\207" [gnus-edit-form-menu gnus-edit-form-mode-map boundp put variable-documentation "" nil easy-menu-do-define ("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])
#@102 Major mode for editing forms.
It is a slightly enhanced emacs-lisp-mode.

\{gnus-edit-form-mode-map}
(defalias 'gnus-edit-form-mode #[nil "\303\304\305\"\203\n \306 \210\307 \210\310\311\312\n!\210\313\314!\210\313\315!\210\316\317!\207" [major-mode mode-name gnus-edit-form-mode-map gnus-visual-p group-menu menu gnus-edit-form-make-menu-bar kill-all-local-variables gnus-edit-form-mode "Edit Form" use-local-map make-local-variable gnus-edit-form-done-function gnus-prev-winconf gnus-run-hooks gnus-edit-form-mode-hook] 3 (#$ . 1914) nil])
#@107 Edit FORM in a new buffer.
Call EXIT-FUNC on exit.  Display DOCUMENTATION in the beginning
of the buffer.
(defalias 'gnus-edit-form #[(form documentation exit-func) "\306 \307	!q\210\310\311!\210\312 \210\313 \210c\210n\204  \314c\210eb\210m\2040 \315c\210\316y\210\202# \317c\210\314c\210`\320p\"\210\314c\210b*\207" [winconf gnus-edit-form-buffer gnus-prev-winconf exit-func gnus-edit-form-done-function documentation current-window-configuration gnus-get-buffer-create gnus-configure-windows edit-form gnus-edit-form-mode erase-buffer "\n" ";;; " 1 ";; Type `C-c C-c' after you've finished editing.\n" pp p form] 3 (#$ . 2465)])
#@45 Update changes and kill the current buffer.
(defalias 'gnus-edit-form-done #[nil "eb\210\303p!\304 \210	\n!*\207" [gnus-edit-form-done-function func form read gnus-edit-form-exit] 2 (#$ . 3115) nil])
#@26 Kill the current buffer.
(defalias 'gnus-edit-form-exit #[nil "\302p!\210\303	!)\207" [gnus-prev-winconf winconf kill-buffer set-window-configuration] 2 (#$ . 3324) nil])
(provide 'gnus-eform)