Current File : //usr/local/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 "\212b\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\204 g\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)
Mini Shell