;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:05:04 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/studly.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defalias 'studlify-region #[(begin end) "b`` X!?v!`]v` ^ \nb` WB\ng\\\nu/\ng\\\nb` Wg\n\\˦Ug Yp X{ Y{ X)!\"cuK`+)" [begin end looking-at "\\W*\\'" 1 backward-word 0 nil c word-end offset 4 2 ch 97 122 65 90 delete-char logxor 32] 4 "\ Studlify-case the region" "*r"]) (defalias 'studlify-word #[(count) "` v` ^ ]\n \"," [nil re rb end begin count studlify-region] 4 "\ Studlify-case the current word, or COUNT words if given an argument" "*p"]) (defalias 'studlify-buffer #[nil "ed\"" [studlify-region] 3 "\ Studlify-case the current buffer" "*"])