;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@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 (#$ . 85))
#@27 

(fn &optional CMD KEYS)
(defalias 'disabled-command-function #[512 "
\204\262\211\204\306 \262
\307\310 \311\312\"\216	r\313\314!q\210p\315 \210
\307\211\316\211\316<\317 \210\320\321!\210+\211=\322H;\203F\323\202G\324=\204cG\325Y\203n\322H>=\203n\326H\327=\203n\330\331\332\"!\210\202z\330\331\333\334!	#!\210\335N;\203\213\330\335N!\210\202\316\330\336!\210\330\337\340!!\210r\314q\210db\210`\212\330\3411\253\342!0\202\257\210\202\262\206\263\343!\210)\344\345\307\316#\203\303\322\224d|\210db\210\346
`\347#\266)\330\350!\210\330\337\351!!\210\352
!\210)\266\353\354\314!!\210\355\356!\210\316?\357 \262
\247\203\374
\227\360>\204
\361 \210\355\362!\210\202\354*\210\211\227\262
\211\363\267\202=
\316@\202=
\307A\202=
B\2037
B\364\230\2047
\365\366!\2037
\367!\210\202=
\370\335\307#\210\371
\372\"\206G
\373!\207" [this-command default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks this-command-keys nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] get-buffer-create "*Disabled Command*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook 0 248 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" substitute-command-keys "Here's the first part of its description:\n\n" (error) documentation "<< 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): " #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (7 274 33 280 121 286)) "" y-or-n-p "Enable command for future editing sessions also? " enable-command put char-equal 110 call-interactively inhibit-read-only standard-output meta-prefix-char cursor-in-echo-area quit-flag disabled-command-function user-init-file] 12 (#$ . 276)])
#@24 

(fn COMMAND DISABLE)
(defalias 'en/disable-command #[514 "\302!\204\303\304\"\210\305\306#\210	\307=\203\310\202\311
\204O\312
!\2043	\313=\2037\312\310!\2037\303\314!\210\211\262\312!\204O	\313=\203O\312\310!\203O\310\262r\315\316!!q\210eb\210\317\320\321!\322Q\323\324#\203r\325 \210`\326y\210`|\210db\210n\204|\327 \210\320\321!\330\321!\331\261\210\332 )\207" [user-init-file system-type 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] 9 (#$ . 2779)])
#@199 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.

(fn COMMAND)
(defalias 'enable-command #[257 "\300
\301\"\207" [en/disable-command nil] 4 (#$ . 3562) "CEnable command: "])
#@185 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.

(fn COMMAND)
(defalias 'disable-command #[257 "\300
\301\"\207" [en/disable-command t] 4 (#$ . 3878) "CDisable command: "])
(provide 'novice)