User: aidan
Date: 09/01/11 12:59:26
Modified: packages/xemacs-packages/misc-games ChangeLog conx.el
Log:
Correct a few small things in conx.e
Revision Changes Path
1.27 +11 -0 XEmacs/packages/xemacs-packages/misc-games/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/misc-games/ChangeLog,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -p -r1.26 -r1.27
--- ChangeLog 2008/12/01 09:23:01 1.26
+++ ChangeLog 2009/01/11 11:59:25 1.27
@@ -1,3 +1,14 @@
+2009-01-11 Aidan Kehoe <[email protected]>
+
+ * conx.el (conx-most-positive-fixnum): Remove this; its
+ initialisation was incorrect in the presence of bignums, and
+ most-positive-fixnum itself is available on all the XEmacs
+ versions we support.
+ (conx-rand): Use most-positive-fixnum.
+ (conx-emit-c-data):
+ Don't bind before-change-function or after-change-function, these
+ are long obsolete.
+
2008-12-01 Norbert Koch <[email protected]>
* Makefile (VERSION): XEmacs package 1.21 released.
1.3 +1 -6 XEmacs/packages/xemacs-packages/misc-games/conx.el
Index: conx.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/misc-games/conx.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- conx.el 1999/11/27 20:49:55 1.2
+++ conx.el 2009/01/11 11:59:25 1.3
@@ -135,11 +135,8 @@ p
(defmacro conx-push (thing list)
(list 'conx-setf list (list 'cons thing list)))
-(defconst conx-most-positive-fixnum (lsh -1 -1)
- "The largest positive integer that can be represented in this emacs.")
-
(defmacro conx-rand (n)
- (list '% (list 'logand 'conx-most-positive-fixnum '(random)) n))
+ (list '% (list 'logand 'most-positive-fixnum '(random)) n))
(defmacro conx-relate-succ (word related)
(` (let ((vec (symbol-value (, word))))
@@ -463,8 +460,6 @@ This clears the database currently in me
(standard-output (current-buffer))
(after-change-functions nil) ; turning off font-lock speeds it up x2
(before-change-functions nil)
- (after-change-function nil)
- (before-change-function nil)
(float-output-format "%.2f")
count total total100)
(or conx-words-hashtable (error "no words"))
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.