;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:37 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/obsolete/options.el
;;; in Emacs version 24.0.50.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 "\303\220\304\305\306!\210\307\310!\210\311\312\"\203F@\313	!\203?\305\314!\210\315	!\210\305\316!\210\315	J!\210\317 \210\305\320\321	\322\"!!\210\305\323!\210A)\202r\303q\210\324 \210\325\211*\221\207" [vars sym buffer-read-only "*List Options*" nil 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 t] 6 (#$ . 551) 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 (#$ . 1286) 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) (#$ . 1664))
(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 (#$ . 2079)])
(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)
