APPROVE COMMIT
NOTE: This patch has been committed.
I still get the following error when I try to run M-x psychoanalyze-conx
RET, I haven’t looked into why Jamie was using a dynamically bound p
variable, it’s probably related to that (other really old-fashioned stuff in
the file includes its own, unfinished hash table implementation):
Debugger entered--Lisp error: (end-of-buffer)
fill-region-as-paragraph(2782 2860)
conx-sentence()
#<compiled-function nil "...(44)" [doctor message ""
switch-to-buffer "*doctor*" sit-for 0 input-pending-p conx-sentence random 2
doctor-ret-or-read 1] 2
("/Sources/packages-current-minus-one-minus-one/xemacs-packages/misc-games/conx.elc"
. 7479) nil>()
call-interactively(psychoanalyze-conx)
command-execute(psychoanalyze-conx t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
But M-x conx RET works fine:
Besonderer Bedeutung. Urogenital tract, the small bowel the index finger
and curvature, of the kidney and often in which is named after Baron
Guillaume Dupuytren, the right and the affliction. Genetics: Haemoglobin
molecules, and other lactam antibiotics that pathogens. Back of to fold
like the globin chains can cause restricted blood vessels.
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* 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.
XEmacs Packages source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/misc-games/conx.el
===================================================================
RCS
Index: xemacs-packages/misc-games/conx.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/misc-games/conx.el,v
retrieving revision 1.2
diff -u -u -r1.2 conx.el
--- xemacs-packages/misc-games/conx.el 1999/11/27 20:49:55 1.2
+++ xemacs-packages/misc-games/conx.el 2009/01/11 11:52:32
@@ -135,11 +135,8 @@
(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 @@
(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"))
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches