Mercurial > hg > xemacs-beta
diff lisp/games/conx.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | b82b59fe008d |
children | b9518feda344 |
line wrap: on
line diff
--- a/lisp/games/conx.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/games/conx.el Mon Aug 13 09:02:59 2007 +0200 @@ -1,34 +1,11 @@ -;;; conx.el --- Yet another dissociater - -;; Copyright status unknown - -;; Author: Jamie Zawinski <jwz@netscape.com> -;; Keywords: games - -;; This file is part of XEmacs. - -;; XEmacs 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, or (at your option) -;; any later version. - -;; XEmacs 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 XEmacs; see the file COPYING. If not, write to the Free -;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA -;; 02111-1307, USA. - -;;; Synched up with: Not in FSF - -;;; Commentary: +;;; -*- Mode:Emacs-Lisp; Blat:Foop -*- ;;; conx.el: Yet Another Dissociator. ;;; Original design by Skef Wholey <skef@cs.cmu.edu>; -;;; ported to Emacs-Lisp by Jamie Zawinski <jwz@netscape.com>, 5-mar-91. +;;; ported to Emacs-Lisp by Jamie Zawinski <jwz@lucid.com>, 5-mar-91. +;;; +(defconst conx-version "1.6, 6-may-94.") +;;; ;;; Run this compiled. It will be an order of magnitude faster. ;;; ;;; Select a buffer with a lot of text in it. Say M-x conx-buffer @@ -69,9 +46,6 @@ ;;; ;;; o It could stand to be faster... -;;; Code: -(defconst conx-version "1.6, 6-may-94.") - (defvar conx-bounce 10) ; 1/x (defvar conx-hashtable-size 9923) ; 9923 is prime (defconst conx-words-hashtable nil) @@ -79,7 +53,7 @@ (defconst conx-words-vector-fp 0) (defconst conx-last-word nil) -p + (defvar conx-files nil "FYI") (defun conx-init () @@ -803,4 +777,3 @@ conx-words-hashtable) (sort-numeric-fields -1 (point-min) (point-max))) -;;; conx.el ends here