HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


#@113 Display a list of Emacs user options, with values and documentation.
It is now better to use Customize instead.
(defalias 'list-options #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211 !\311\"\316\317!\210\320\321!\210\322\"\323\"\"\"\203v\"@#\324#!\203m\316\325!\210\326#!\210\316\327!\210\326#J!\210\330 \210\316\331\332#\333\"!!\210\316\334!\210\"A\")\2028r\307q\210\335 \210\312\211*\336 !\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*List Options*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "This facility is obsolete; we recommend using M-x customize instead." mapatoms #[(sym) "\302!\205	B\211\207" [sym vars custom-variable-p] 2] sort string-lessp boundp ";; " prin1 ":\n	" terpri substitute-command-keys documentation-property variable-documentation "\n;;\n" Edit-options-mode internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output vars sym] 6 (#$ . 409) nil])
#@253 Edit a list of Emacs user option values.
Selects a buffer containing such a list,
in which there are commands to set the option values.
Type \[describe-mode] in that buffer for a list of commands.

The Custom feature is intended to make this obsolete.
(defalias 'edit-options #[nil "\300 \210\301\302!\207" [list-options pop-to-buffer "*List Options*"] 2 (#$ . 1508) nil])
#@2 
(defvar Edit-options-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\316#\210)\207" [map make-keymap define-key "s" Edit-options-set "x" Edit-options-toggle "1" Edit-options-t "0" Edit-options-nil "p" backward-paragraph " " forward-paragraph "n"] 4) (#$ . 1886))
(put 'Edit-options-mode 'mode-class 'special)
(defvar Edit-options-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [Edit-options-mode-hook variable-documentation put "Hook run after entering Options mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp Edit-options-mode-map definition-name Edit-options-mode] 4)
(defvar Edit-options-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" [Edit-options-mode-abbrev-table Edit-options-mode-map variable-documentation put purecopy "Keymap for `Edit-options-mode'." boundp Edit-options-mode-syntax-table definition-name Edit-options-mode (lambda (#1=#:def-tmp-var) (defvar Edit-options-mode-syntax-table #1#)) make-syntax-table "Syntax table for `Edit-options-mode'." (lambda (#1#) (defvar Edit-options-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `Edit-options-mode'." derived-mode-parent emacs-lisp-mode] 5)
#@736 \<Edit-options-mode-map>Major mode for editing Emacs user option settings.
Special commands are:
\[Edit-options-set] -- set variable point points at.  New value read using minibuffer.
\[Edit-options-toggle] -- toggle variable, t -> nil, nil -> t.
\[Edit-options-t] -- set variable to t.
\[Edit-options-nil] -- set variable to nil.
Changed values made by these commands take effect immediately.

Each variable description is a paragraph.
For convenience, the characters \[backward-paragraph] and \[forward-paragraph] move back and forward by paragraphs.

In addition to any hooks its parent mode `emacs-lisp-mode' might have run,
this mode runs the hook `Edit-options-mode-hook', as the final or penultimate step
during initialization.
(defalias 'Edit-options-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324 \325\"\204V !=\204V\326 \325!C#\210\327!\210\330\f!\210 !\306\331!\210\332\306\333!\210\334\306\335!\210\307)\336\337!\207" [delay-mode-hooks major-mode mode-name Edit-options-mode-map Edit-options-mode-syntax-table parent make-local-variable t emacs-lisp-mode Edit-options-mode "Options" 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 paragraph-separate "[^-]" paragraph-start "	" truncate-lines run-mode-hooks Edit-options-mode-hook Edit-options-mode-abbrev-table local-abbrev-table] 6 (#$ . 3530) nil])
(defalias 'Edit-options-set #[nil "\300\301!\207" [Edit-options-modify #[(var) "\301\302\303!\304Q!\207" [var eval-minibuffer "New " symbol-name ": "] 4]] 2 nil nil])
(defalias 'Edit-options-toggle #[nil "\300\301!\207" [Edit-options-modify #[(var) "J?\207" [var] 1]] 2 nil nil])
(defalias 'Edit-options-t #[nil "\300\301!\207" [Edit-options-modify #[(var) "\300\207" [t] 1]] 2 nil nil])
(defalias 'Edit-options-nil #[nil "\300\301!\207" [Edit-options-modify #[(var) "\300\207" [nil] 1]] 2 nil nil])
(defalias 'Edit-options-modify #[(modfun) "\212\304\211\211\305\306!\210\307u\210`\214\304\210`S}\210b\210\310p!)b\210\311y\210\311u\210\212		!L\210)\312\311!\210\313	Jp\",\207" [pos var buffer-read-only modfun nil re-search-backward "^;; \\|\\`" 3 read 1 kill-sexp prin1] 3])
(provide 'options)