;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:51:36 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/studly.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/studly.el' was compiled for Emacs 19")) #@26 Studlify-case the region (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 (#$ . 481) "*r"]) #@69 Studlify-case the current word, or COUNT words if given an argument (defalias 'studlify-word #[(count) "` v`\f ^\f ]\n \"," [nil re rb end begin count studlify-region] 4 (#$ . 853) "*p"]) #@34 Studlify-case the current buffer (defalias 'studlify-buffer #[nil "ed\"" [studlify-region] 3 (#$ . 1060) "*"])