;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\307\304\313\314&\210\310\315\305\316\307\304\313\314&\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 "Hook run in `gnus-edit-form-mode' buffers." :type hook gnus-edit-form-menu-hook "Hook run when creating menus in `gnus-edit-form-mode' buffers."] 8) (defvar gnus-edit-form-buffer "*Gnus edit form*") (defvar gnus-edit-form-done-function nil) (defvar gnus-edit-form-mode-map nil) (byte-code "\204\302 \303 \"\210\304\300\305\"\210\302\207" [gnus-edit-form-mode-map emacs-lisp-mode-map 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 "\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\317#\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] 5) #@211 Major mode for editing forms. It is a slightly enhanced emacs-lisp-mode. \{gnus-edit-form-mode-map} This mode runs the hook `gnus-edit-form-mode-hook', as the final or penultimate step during initialization. (defalias 'gnus-edit-form-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\316\317\"\203\"\320 \210\306\321!\210\306\322!\210)\323\324!\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 kill-all-local-variables gnus-edit-form-mode "Edit Form" 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] 3 (#$ . 2843) nil]) #@168 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. (defalias 'gnus-edit-form #[(form documentation exit-func &optional layout) "\306 \307 !q\210\310\n\206\311!\210\312 \210\f\313 \210c\210n\204%\314c\210eb\210m\2045\315c\210\316y\210\202(\317\320!c\210\314c\210`\321!\210\314c\210b*\207" [winconf gnus-edit-form-buffer layout gnus-prev-winconf exit-func 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 documentation p form] 2 (#$ . 3656)]) #@45 Update changes and kill the current buffer. (defalias 'gnus-edit-form-done #[nil "eb\210\3031\304p!0\202\210\305\306 \210 \n!*\207" [gnus-edit-form-done-function func form (end-of-file) read nil gnus-edit-form-exit] 2 (#$ . 4433) 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 (#$ . 4682) nil]) (provide 'gnus-eform)