Edit file File name : studly.elc Content :;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` ^\314 b\210` W\203> \fg\\\311u\210\202. \fg\\b\210` W\203\202 g\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) Save