ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/play/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/play/studly.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 410) "*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 (#$ . 954) "*p"])
#@35 Studlify-case the current buffer.
(defalias 'studlify-buffer #[nil "\300ed\"\207" [studlify-region] 3 (#$ . 1206) "*"])
(provide 'studly)
Kontol Shell Bypass