Edit file

File name : options.elc

Content :;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\")\2028�r\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)

Save