;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:43:03 1993
;;; from file /era/era-0.80/editor/lisp/packages/studly.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; 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."))

(fset 'studlify-region #[(begin end) "Šbˆ``	X…Œ ÂÃ!?­úÄvˆÅÄ!ˆ`]ÄvˆÆ`	^Ç	\nbˆ`	W«‹\ng\\\nÄuˆªo\ng\\\nbˆ`	W«¸g‰\n\\Ë¦ÌU«¦g‰ÎY«†ÏX®ŠÐY­„ÑX)«‹ÒÄ!ˆÓÔ\"cˆÄuˆªB`+‚ )‡" [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"])
(fset '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"])
(fset 'studlify-buffer #[nil "Àed\"‡" [studlify-region] 3 "\
Studlify-case the current buffer" "*"])