;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\303\304!\210\303\305!\210\205\306!\307\310\311\312\313\314\311\314\211\315\316\317\320& #\314\207" [load-file-name sly-scratch--path sly-scratch--contrib require sly cl-lib file-name-directory put sly-contribs sly-scratch record sly-contrib nil sly-scratch-init sly-scratch-unload ("Helmut Eller ") ("GPL")] 13) (defalias 'sly-scratch-init #[0 "\306\307\310\311\312\313\314\"\"\"\210\314\211:\203'@\262\315\316E \317\320$A\262\202 \266\n\321=\2037\322 \2037\323 \210\324 \325\316#\210\326\f! >\204L\327\330\331\fD\"\210\f\211\332\333I\207" [sly-scratch--path sly-contrib--required-slynk-modules this-command sly-selector-map sly-scratch--contrib cl-struct-sly-contrib-tags mapc funcall mapcar sly-contrib--enable cl-remove-if sly-contrib--enabled-p nil cl-adjoin sly-scratch :key cl-first sly-setup sly-connected-p sly-contrib--load-slynk-dependencies define-key "s" type-of signal wrong-type-argument sly-contrib 1 t] 7]) (defalias 'sly-scratch-unload #[0 "\303\211:\203@\262\304\305\306$A\262\202\266\307\310\311\"\210\312\313\314\315\316\317\303\"\"\"\210\320 !\n>\204:\321\322\323 D\"\210 \211\324\303I\207" [sly-contrib--required-slynk-modules sly-scratch--contrib cl-struct-sly-contrib-tags nil cl-remove :key cl-first sly-warning "Disabling contrib %s" sly-scratch mapc funcall mapcar sly-contrib--disable cl-remove-if-not sly-contrib--enabled-p type-of signal wrong-type-argument sly-contrib 1] 7]) (defvar sly-scratch-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [lisp-mode-map make-sparse-keymap set-keymap-parent define-key "\n" sly-eval-print-last-expression] 5)) (defalias 'sly-scratch #[0 "\300 \207" [sly-switch-to-scratch-buffer] 1 nil nil]) (defalias 'sly-switch-to-scratch-buffer #[0 "\300 q\210p\301 =?\205\302p\303\"\207" [sly-scratch-buffer window-buffer pop-to-buffer t] 3]) (defvar sly-scratch-file nil) #@52 Return the scratch buffer, create it if necessary. (defalias 'sly-scratch-buffer #[0 "\302\303\304!!\206-r\203\305!\202\306\303\304!!q\210\307\303\304!!\210\310 \210\311 !\210\312\313!\210p)\207" [sly-scratch-file sly-scratch-mode-map get-buffer sly-buffer-name :scratch find-file get-buffer-create rename-buffer lisp-mode use-local-map sly-mode t] 3 (#$ . 2005)]) (provide 'sly-scratch)