diff options
author | Ulrich Drepper <drepper@redhat.com> | 1997-04-18 00:57:04 +0000 |
---|---|---|
committer | Ulrich Drepper <drepper@redhat.com> | 1997-04-18 00:57:04 +0000 |
commit | f0a39e37f1bd7bcc8d6988345df5870d91c92cce (patch) | |
tree | 063fa517655b571179bcd74d8719409852b25477 /lisp/play/studly.el | |
parent | 2b385e3555b76372ce8e19020673854a46a5ac63 (diff) | |
download | emacs-glibc-2_0_4.tar.gz |
update from main archive 970417libc20x-970417glibc-2_0_4
Diffstat (limited to 'lisp/play/studly.el')
-rw-r--r-- | lisp/play/studly.el | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/lisp/play/studly.el b/lisp/play/studly.el deleted file mode 100644 index b5aafcab09a..00000000000 --- a/lisp/play/studly.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx) - -;;; This is in the public domain, since it was distributed -;;; by its author without a copyright notice in 1986. - -;; Keywords: games - -;;; Commentary: - -;; Functions to studlycapsify a region, word, or buffer. Possibly the -;; esoteric significance of studlycapsification escapes you; that is, -;; you suffer from autostudlycapsifibogotification. Too bad. - -;;; Code: - -(defun studlify-region (begin end) - "Studlify-case the region" - (interactive "*r") - (save-excursion - (goto-char begin) - (setq begin (point)) - (while (and (<= (point) end) - (not (looking-at "\\W*\\'"))) - (forward-word 1) - (backward-word 1) - (setq begin (max (point) begin)) - (forward-word 1) - (let ((offset 0) - (word-end (min (point) end)) - c) - (goto-char begin) - (while (< (point) word-end) - (setq offset (+ offset (following-char))) - (forward-char 1)) - (setq offset (+ offset (following-char))) - (goto-char begin) - (while (< (point) word-end) - (setq c (following-char)) - (if (and (= (% (+ c offset) 4) 2) - (let ((ch (following-char))) - (or (and (>= ch ?a) (<= ch ?z)) - (and (>= ch ?A) (<= ch ?Z))))) - (progn - (delete-char 1) - (insert (logxor c ? )))) - (forward-char 1)) - (setq begin (point)))))) - -(defun studlify-word (count) - "Studlify-case the current word, or COUNT words if given an argument" - (interactive "*p") - (let ((begin (point)) end rb re) - (forward-word count) - (setq end (point)) - (setq rb (min begin end) re (max begin end)) - (studlify-region rb re))) - -(defun studlify-buffer () - "Studlify-case the current buffer" - (interactive "*") - (studlify-region (point-min) (point-max))) - -;;; studly.el ends here |