;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/options.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.

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


#@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 user-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 (#$ . 560) 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 (#$ . 1657) 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) (#$ . 2035))
(put 'Edit-options-mode 'mode-class 'special)
#@554 \<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.
(defalias 'Edit-options-mode #[nil "\306 \210\307!\210\310	!\210\311\302!\210\312\311\303!\210\313\314\315\316\317\320!\207" [emacs-lisp-mode-syntax-table Edit-options-mode-map paragraph-separate paragraph-start truncate-lines major-mode kill-all-local-variables set-syntax-table use-local-map make-local-variable "[^-]" "	" t Edit-options-mode "Options" run-mode-hooks Edit-options-mode-hook mode-name] 2 (#$ . 2450)])
(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)