ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/obsolete/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obsolete/options.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 411) 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 (#$ . 1510) 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) (#$ . 1888))
(put 'Edit-options-mode 'mode-class 'special)
#@164 Hook run after entering Options mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar Edit-options-mode-hook nil (#$ . 2303))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp Edit-options-mode-map put definition-name Edit-options-mode] 4)
(defvar Edit-options-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [Edit-options-mode-map variable-documentation put purecopy "Keymap for `Edit-options-mode'." boundp Edit-options-mode-syntax-table definition-name Edit-options-mode] 5)
(defvar Edit-options-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [Edit-options-mode-syntax-table variable-documentation put purecopy "Syntax table for `Edit-options-mode'." Edit-options-mode-abbrev-table definition-name Edit-options-mode] 5)
(defvar Edit-options-mode-abbrev-table (progn (define-abbrev-table 'Edit-options-mode-abbrev-table nil) Edit-options-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [Edit-options-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `Edit-options-mode'." Edit-options-mode derived-mode-parent emacs-lisp-mode] 5)
#@721 \<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 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 (#$ . 3664) 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)
Kontol Shell Bypass