| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/gnus-eform.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:49 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-eform.el
;;; in Emacs version 24.3.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])
#@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-mode-hooks gnus-edit-form-mode-hook] 3 (#$ . 1750) 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( \317c\210\314c\210` \320!\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 ";; Type `C-c C-c' after you've finished editing.\n" gnus-pp documentation p form] 2 (#$ . 2306)])
#@45 Update changes and kill the current buffer.
(defalias 'gnus-edit-form-done #[nil "eb\210\303\304\305\217\306 \210 \n!*\207" [gnus-edit-form-done-function func form nil (byte-code "\300p!\207" [read] 2) ((end-of-file)) gnus-edit-form-exit] 3 (#$ . 3054) 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 (#$ . 3322) nil])
(provide 'gnus-eform)