Message-ID: <002201c0a8af$a5bacd80$5d41fea9@q8x2e5> From: "Ty Tenait" Subject: rabbit.el Date: Fri, 9 Mar 2001 16:43:10 +0100 boundary="----=_NextPart_000_001F_01C0A8B8.06AE29E0" X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 5.50.4133.2400 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 Newsgroups: gnu.emacs.sources Path: newsread2.funet.fi!newsread1.funet.fi!newsfeed2.funet.fi!newsfeed1.funet.fi!newsfeeds.funet.fi!enews.sgi.com!newshub2.rdc1.sfba.home.com!news.home.com!newsfeed.direct.ca!look.ca!news-hub.cableinet.net!uunet!ash.uu.net!spool1.news.uu.net!wendy-fate.uu.net!gnu-emacs-sources Sender: gnu-emacs-sources-request@mail.gnu.org Lines: 111 Xref: newsread2.funet.fi gnu.emacs.sources:1627 This is a multi-part message in MIME format. ------=_NextPart_000_001F_01C0A8B8.06AE29E0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable ;;; rabbit.el --- Interactive simulation of rabbit hunting ;; Copyright (C) 2001 Ty Tenait. ;; Author: Ty Tenait (tytenait@techemail.com) ;; Created: 9 Mar 2001 ;; Version: 1.0 ;; Keywords: hunting carnivore sisyphus ascii-art ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; This program is distributed in the hope that it will be ;; useful, but WITHOUT ANY WARRANTY; without even the implied ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. See the GNU General Public License for more details. ;; You should have received a copy of the GNU General Public ;; License along with this program; if not, write to the Free ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, ;; MA 02111-1307 USA (defun rabbit-hunt () "Simulate rabbit hunting. After invoking this command, hold down space to hunt." (interactive) (switch-to-buffer "large-green-field") (fundamental-mode) (delete-region (point-min) (point-max)) (insert "\trabbit") (goto-char (point-min))) (provide 'rabbit) ------=_NextPart_000_001F_01C0A8B8.06AE29E0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable
;;; rabbit.el --- Interactive = simulation of rabbit=20 hunting
 
;; Copyright (C) 2001 Ty = Tenait.
 
;; Author: Ty Tenait (tytenait@techemail.com)
;; = Created: 9 Mar 2001
;; Version: 1.0
;; Keywords: hunting = carnivore=20 sisyphus ascii-art
 
;; This program is free software; you = can=20 redistribute it and/or
;; modify it under the terms of the GNU = General Public=20 License as
;; published by the Free Software Foundation; either = version 2=20 of
;; the License, or (at your option) any later = version.
 
;; This program is distributed in the = hope that it=20 will be
;; useful, but WITHOUT ANY WARRANTY; without even the = implied
;;=20 warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; = PURPOSE.  See=20 the GNU General Public License for more details.
 
;; You should have received a copy of = the GNU=20 General Public
;; License along with this program; if not, write to = the=20 Free
;; Software Foundation, Inc., 59 Temple Place, Suite 330, = Boston,
;;=20 MA 02111-1307 USA
 
(defun rabbit-hunt ()
  = "Simulate rabbit=20 hunting.
After invoking this command, hold down space to = hunt."
 =20 (interactive)
  (switch-to-buffer "large-green-field")
  = (fundamental-mode)
  (delete-region (point-min) = (point-max))
 =20 (insert "\trabbit")
  (goto-char (point-min)))
 
(provide = 'rabbit)
------=_NextPart_000_001F_01C0A8B8.06AE29E0--