(defun studlify-region (begin end) "\ Studlify-case the region" (interactive "*r") (byte-code "ฦˆŠbˆ`‰ˆ` X…วศ!?…Ÿษส!ˆหส!ˆ`]‰ˆษส!ˆฬ` ^ฦbˆ` W…G g\\‰ˆอส!ˆ‚4ˆ g\\‰ˆbˆ` W…–g‰ˆฮ \\ฯ\"ะU…~g ัY…q าX†} ำY…} ิX)ƒีส!ˆึ ื\"c‚Žฦˆอส!ˆ‚Qˆ`‰+ˆ‚ )‡" [begin end offset word-end c ch nil looking-at "\\W*\\'" forward-word 1 backward-word 0 forward-char % 4 2 97 122 65 90 delete-char logxor 32] 12)) (defun studlify-word (count) "\ Studlify-case the current word, or COUNT words if given an argument" (interactive "*p") (byte-code "ลˆ`ลลลฦ !ˆ`‰ˆ ^ ]‰ˆว \",‡" [begin end rb re count nil forward-word studlify-region] 4)) (defun studlify-buffer nil "\ Studlify-case the current buffer" (interactive "*") (byte-code "ภˆมed\"‡" [nil studlify-region] 3))