[COMMIT] Correct a few small things in conx.el

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&gt; * 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