;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (define-keymap :parent emacs-lisp-mode-map "C-c C-c" 'gnus-edit-form-done "C-c C-k" 'gnus-edit-form-exit)) (defalias 'gnus-edit-form-make-menu-bar #[0 "\301\302!?\205\303\302\304\305#\210\306\302\305\307$\210\310\311!\207" [gnus-edit-form-mode-map boundp gnus-edit-form-menu defvar-1 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]) (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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\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 defvar-1 nil make-syntax-table "Syntax table for `gnus-edit-form-mode'." define-abbrev-table "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 (#$ . 2371) 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 (#$ . 3578)])#@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 (#$ . 4317) [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 (#$ . 4576) [nil (gnus-edit-form-mode)]]) (provide 'gnus-eform)