Mercurial > hg > xemacs-beta

annotate lisp/games/NeXTify.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 (defun SeLF-insert-command (arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 "Insert the character you TyPE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 Whichever character you TyPE to run ThIS command is inserted."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 (interactive "p")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 (let ((p (point))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 (case-fold-search nil))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 (self-insert-command arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 (goto-char p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 (skip-chars-backward " \t\r\n")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 (if (condition-case () (forward-char -4) (error t))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 (if (looking-at "\\<[A-Za-z][a-z][a-z][a-z][^A-Za-z]")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 (insert (upcase (following-char))) (delete-char 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 (forward-char 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 (insert (upcase (following-char))) (delete-char 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 (insert (upcase (following-char))) (delete-char 1)))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 (define-key text-mode-map " " 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 (define-key text-mode-map "," 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 (define-key text-mode-map "." 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 (define-key text-mode-map "!" 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 (define-key text-mode-map "-" 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 (define-key text-mode-map "_" 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 (define-key text-mode-map ";" 'SeLF-insert-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 (define-key text-mode-map ":" 'SeLF-insert-command)