Mercurial > emacs
annotate lisp/play/studly.el @ 15314:796d825f4444
(reset_modifiers): Only clear a modifier if the modifier key has been
detected to have been released since Emacs lost focus.
(win32_wnd_proc): Have Windows translate VK_NUMLOCK and VK_SCROLL key
downs; don't reset the modifier state when Emacs loses focus.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 01 Jun 1996 12:19:27 +0000 |
parents | 9e7ec92a4fdf |
children | 11218164bc54 |
rev | line source |
---|---|
657
fec3f9a1e3e5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2
diff
changeset
|
1 ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx) |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
665
diff
changeset
|
2 |
665
f9274ecd9acd
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
664
diff
changeset
|
3 ;;; This is in the public domain, since it was distributed |
f9274ecd9acd
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
664
diff
changeset
|
4 ;;; by its author without a copyright notice in 1986. |
2 | 5 |
841 | 6 ;; Keywords: games |
7 | |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
8 ;;; Commentary: |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
9 |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
10 ;; Functions to studlycapsify a region, word, or buffer. Possibly the |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
11 ;; esoteric significance of studlycapsification escapes you; that is, |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
12 ;; you suffer from autostudlycapsifibogotification. Too bad. |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
13 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
665
diff
changeset
|
14 ;;; Code: |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
665
diff
changeset
|
15 |
2 | 16 (defun studlify-region (begin end) |
17 "Studlify-case the region" | |
18 (interactive "*r") | |
19 (save-excursion | |
20 (goto-char begin) | |
21 (setq begin (point)) | |
22 (while (and (<= (point) end) | |
23 (not (looking-at "\\W*\\'"))) | |
24 (forward-word 1) | |
25 (backward-word 1) | |
26 (setq begin (max (point) begin)) | |
27 (forward-word 1) | |
28 (let ((offset 0) | |
29 (word-end (min (point) end)) | |
30 c) | |
31 (goto-char begin) | |
32 (while (< (point) word-end) | |
33 (setq offset (+ offset (following-char))) | |
34 (forward-char 1)) | |
35 (setq offset (+ offset (following-char))) | |
36 (goto-char begin) | |
37 (while (< (point) word-end) | |
38 (setq c (following-char)) | |
39 (if (and (= (% (+ c offset) 4) 2) | |
40 (let ((ch (following-char))) | |
41 (or (and (>= ch ?a) (<= ch ?z)) | |
42 (and (>= ch ?A) (<= ch ?Z))))) | |
43 (progn | |
44 (delete-char 1) | |
45 (insert (logxor c ? )))) | |
46 (forward-char 1)) | |
47 (setq begin (point)))))) | |
48 | |
49 (defun studlify-word (count) | |
50 "Studlify-case the current word, or COUNT words if given an argument" | |
51 (interactive "*p") | |
52 (let ((begin (point)) end rb re) | |
53 (forward-word count) | |
54 (setq end (point)) | |
55 (setq rb (min begin end) re (max begin end)) | |
56 (studlify-region rb re))) | |
57 | |
58 (defun studlify-buffer () | |
59 "Studlify-case the current buffer" | |
60 (interactive "*") | |
61 (studlify-region (point-min) (point-max))) | |
657
fec3f9a1e3e5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2
diff
changeset
|
62 |
fec3f9a1e3e5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2
diff
changeset
|
63 ;;; studly.el ends here |