| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/play/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@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 (#$ . 84) "*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 (#$ . 637) "*p"]) #@35 Studlify-case the current buffer. (defalias 'studlify-buffer #[0 "\300ed\"\207" [studlify-region] 3 (#$ . 879) "*"]) (provide 'studly)