| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/novice.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/novice.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias disabled-command-hook disabled-command-function nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1"] 6)
#@114 Function to call to handle disabled commands.
If nil, the feature is disabled, i.e., all commands work normally.
(defvar disabled-command-function 'disabled-command-function (#$ . 848))
(defalias 'disabled-command-function #[(&optional cmd keys) "\204 \n\204
\306 \307\310 \311\216\312\313\nE\307\"\210
>r\314\315!q\210p\316 \210>\307\211?@\317\211A\317 B C\320 \210\321\322!\210+\211 D E\n\323H\n;\203V \324\323H\202W \325=\204s \nG\326Y\203} \n\323HF=\203} \n\327H\330=\203} \331\332\333\"!\210\202\207 \331\332\334\335\n!#!\210\336N;\203\227 \331\336N!\210\202\316 \331\337!\210\331\340!\210r\315q\210db\210` G\212\331\307\341\342\217\206\263 \343!\210)\344\345\307\317#\203\303 \323\224d|\210db\210\346G`\347#\210*\331\350!\210\331\351!\210\352D!\210+\353\354\315!!\210\355\356!\210\317 H\357 \211\247\203\370 \227\360>\204\361 \210\355\362!\210\202\351 + \227\211\363=\203\317I\202C \364=\203 \307 \202C \365=\203CJ\203=J\366\230\204=\367\370!\203=\371!\210\202C\372\336\307#\210\373 \374\"\206M\375!)\207" [cmd this-command keys char #1=#:wconfig default-directory this-command-keys nil current-window-configuration ((set-window-configuration #1#)) help-setup-xref disabled-command-function get-buffer-create "*Disabled Command*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook 0 "\370" 134217848 2 1 120 princ format "You have invoked the disabled command %s.\n" "You have typed %s, invoking disabled command %s.\n" key-description disabled "It is disabled because new users often find it confusing.\n" "Here's the first part of its description:\n\n" (documentation cmd) ((error)) "<< not documented >>" search-forward "\n\n" indent-rigidly 3 "\n\nDo you want to use this command anyway?\n\n" "You can now type\ny to try it and enable it (no questions if you use it again).\nn to cancel--don't try the command, and it remains disabled.\nSPC to try the command just this once, but leave it disabled.\n! to try it, and enable all disabled commands for this session only." internal-temp-output-buffer-show fit-window-to-buffer get-buffer-window message "Type y, n, ! or SPC (the space bar): " read-event (33 121 110 32 7) ding "Please type y, n, ! or SPC (the space bar): " 7 33 121 "" y-or-n-p "Enable command for future editing sessions also? " enable-command put char-equal 110 call-interactively #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output meta-prefix-char start cursor-in-echo-area quit-flag user-init-file] 6])
(defalias 'en/disable-command #[(command disable) "\306!\204 \307\310\"\210\311\312 #\210\n \313=\203 \314\202 \315 \211 \204O \316\f!\2045 \317=\2039 \316\314!\2039 \307\320!\210\f\316
!\204O \317=\203O \316\314!\203O \314r\321\322
!!q\210eb\210\323\324\325!\326Q\327\330#\203q \331 \210`\332y\210`|\210db\210n\204{ \333 \210\324\325!\334\325 !\335\261\210\336 +\207" [command disable user-init-file system-type default-init-file init-file commandp error "Invalid command name `%s'" put disabled ms-dos "~/_emacs" "~/.emacs" file-exists-p windows-nt "Saving settings from \"emacs -q\" would overwrite existing customizations" find-file-noselect substitute-in-file-name search-forward "(put '" symbol-name " " nil t beginning-of-line 1 newline " 'disabled " ")\n" save-buffer] 6])
#@185 Allow COMMAND to be executed without special confirmation from now on.
COMMAND must be a symbol.
This command alters the user's .emacs file so that this will apply
to future sessions.
(defalias 'enable-command #[(command) "\301\302\"\207" [command en/disable-command nil] 3 (#$ . 4236) "CEnable command: "])
#@171 Require special confirmation to execute COMMAND from now on.
COMMAND must be a symbol.
This command alters your init file so that this choice applies to
future sessions.
(defalias 'disable-command #[(command) "\301\302\"\207" [command en/disable-command t] 3 (#$ . 4552) "CDisable command: "])
(provide 'novice)