Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/play/studly.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@43 Studlify-case the region.

(fn BEGIN END)
(defalias 'studlify-region #[514 "\212
b\210`\262`
X\205\214\300\301!?\205\214\302\303!\210\304\303!\210`]\262\302\303!\210\305`^\306b\210`W\203>g\\\262\303u\210\202-g\\\262b\210`W\203\204g\262
\211\\\307\246\310U\203~g\211\311Y\203f\211\312X\206o\211\313Y\205o\211\314X\262
\203~\315\303!\210\316
\317\"c\210\303u\210\202F`\262\266\202)\207" [looking-at "\\W*\\'" forward-word-strictly 1 backward-word-strictly 0 nil 4 2 97 122 65 90 delete-char logxor 32] 8 (#$ . 408) "*r"])
#@82 Studlify-case the current word, or COUNT words if given an argument.

(fn COUNT)
(defalias 'studlify-word #[257 "`\300\211\211\301!\210`\262^\262]\262
\302\"\207" [nil forward-word-strictly studlify-region] 8 (#$ . 962) "*p"])
#@35 Studlify-case the current buffer.
(defalias 'studlify-buffer #[0 "\300ed\"\207" [studlify-region] 3 (#$ . 1204) "*"])
(provide 'studly)