HOME


sh-3ll 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/play/
Upload File :
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/play/studly.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


#@27 Studlify-case the region.
(defalias 'studlify-region #[(begin end) "\212b\210``	X\205\210\306\307!?\205\210\310\311!\210\312\311!\210`]\310\311!\210\313`	^\314b\210`W\203>\fg\\\311u\210\202.\fg\\b\210`W\203\202g\211\f\\\315\246\316U\203|g\211\317Y\203e
\320X\206n
\321Y\205n
\322X)\203|\323\311!\210\324\n\325\"c\210\311u\210\202E`+\202)\207" [begin end c word-end offset ch looking-at "\\W*\\'" forward-word-strictly 1 backward-word-strictly 0 nil 4 2 97 122 65 90 delete-char logxor 32] 4 (#$ . 408) "*r"])
#@70 Studlify-case the current word, or COUNT words if given an argument.
(defalias 'studlify-word #[(count) "`\305\211\211\306\f!\210`\n^\n]\307	\",\207" [re rb end begin count nil forward-word-strictly studlify-region] 4 (#$ . 952) "*p"])
#@35 Studlify-case the current buffer.
(defalias 'studlify-buffer #[nil "\300ed\"\207" [studlify-region] 3 (#$ . 1204) "*"])
(provide 'studly)