Mercurial > hg > xemacs-beta
comparison lisp/games/NeXTify.el @ 142:1856695b1fa9 r20-2b5
Import from CVS: tag r20-2b5
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:33:18 +0200 |
parents | b9518feda344 |
children |
comparison
equal
deleted
inserted
replaced
141:ea67ad3963dc | 142:1856695b1fa9 |
---|---|
1 ;;; NeXTify.el --- Character insertion variation | 1 ;;; NeXTify.el --- Character insertion variation |
2 | 2 |
3 ;; Copyright status unknown | 3 ;; Copyright status unknown |
4 | 4 |
5 ;; Author: Unknown | 5 ;; Author: Jamie Zawinski <jwz@netscape.com> |
6 ;; Keywords: games | 6 ;; Keywords: games |
7 | 7 |
8 ;; This file is part of XEmacs. | 8 ;; This file is part of XEmacs. |
9 | 9 |
10 ;; XEmacs is free software; you can redistribute it and/or modify it | 10 ;; XEmacs is free software; you can redistribute it and/or modify it |
25 ;;; Synched up with: Not in FSF | 25 ;;; Synched up with: Not in FSF |
26 | 26 |
27 ;;; Commentary: | 27 ;;; Commentary: |
28 | 28 |
29 ;;; Code: | 29 ;;; Code: |
30 | |
30 (defun SeLF-insert-command (arg) | 31 (defun SeLF-insert-command (arg) |
31 "Insert the character you TyPE. | 32 "Insert the character you TyPE. |
32 Whichever character you TyPE to run ThIS command is inserted." | 33 Whichever character you TyPE to run ThIS command is inserted." |
33 (interactive "p") | 34 (interactive "p") |
34 (let ((p (point)) | 35 (let ((p (point)) |