changeset: 4577:de0228446b18b1ff1d5a0c4411fdbae51781cf71
tag: tip
user: "Ville SkyttÀ <scop(a)xemacs.org>"
date: Sun Jan 18 11:55:53 2009 +0200
files: lisp/ChangeLog lisp/font.el
description:
Docstring spelling fixes.
diff -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 -r de0228446b18b1ff1d5a0c4411fdbae51781cf71 lisp/ChangeLog
--- a/lisp/ChangeLog Tue Jan 13 12:07:27 2009 +0000
+++ b/lisp/ChangeLog Sun Jan 18 11:55:53 2009 +0200
@@ -1,3 +1,8 @@ 2009-01-13 Aidan Kehoe <kehoea@parhasa
+2009-01-18 Ville Skyttä <scop(a)xemacs.org>
+
+ * font.el (font-*-p): Docstring spelling fix.
+ (set-font-*-p): Ditto.
+
2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/mule-cmds.el (set-language-environment-coding-systems):
diff -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 -r de0228446b18b1ff1d5a0c4411fdbae51781cf71 lisp/font.el
--- a/lisp/font.el Tue Jan 13 12:07:27 2009 +0000
+++ b/lisp/font.el Sun Jan 18 11:55:53 2009 +0200
@@ -216,13 +216,13 @@ for use in the 'weight' field of an X fo
"Bitmask for whether a font is to be rendered in %s or not."
attr))
(defun ,(intern (format "font-%s-p" attr)) (fontobj)
- ,(format "Whether FONTOBJ will be renderd in `%s' or not." attr)
+ ,(format "Whether FONTOBJ will be rendered in `%s' or not." attr)
(if (/= 0 (logand (font-style fontobj)
,(intern (format "font-%s-mask" attr))))
t
nil))
(defun ,(intern (format "set-font-%s-p" attr)) (fontobj val)
- ,(format "Set whether FONTOBJ will be renderd in `%s' or not."
+ ,(format "Set whether FONTOBJ will be rendered in `%s' or not."
attr)
(cond
(val
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
changeset: 4576:774e5c7522bf0681f0ecf0ab015d9ec8dcb35486
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Tue Jan 13 12:07:27 2009 +0000
files: lisp/ChangeLog lisp/mule/mule-cmds.el
description:
Preserve the relation btw. file-name-coding-system & the 'file-name c-s alias.
lisp/ChangeLog addition:
2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/mule-cmds.el (set-language-environment-coding-systems):
Fix a cosmetic bug; the relationship between
file-name-coding-system and the file-name coding system alias
established in coding.el wasn't being maintained. See Katsumi
Yamaoka's comment in http://mid.gmane.org/b4m4p03bt43.fsf@jpl.org .
diff -r eecd28508f4ad62d51fe5144021a20f9d8594d0a -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 lisp/ChangeLog
--- a/lisp/ChangeLog Sun Jan 11 13:18:42 2009 +0000
+++ b/lisp/ChangeLog Tue Jan 13 12:07:27 2009 +0000
@@ -1,3 +1,11 @@ 2009-01-11 Aidan Kehoe <kehoea@parhasa
+2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * mule/mule-cmds.el (set-language-environment-coding-systems):
+ Fix a cosmetic bug; the relationship between
+ file-name-coding-system and the file-name coding system alias
+ established in coding.el wasn't being maintained. See Katsumi
+ Yamaoka's comment in http://mid.gmane.org/b4m4p03bt43.fsf@jpl.org .
+
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* subr.el: Correct a comment, we now have #'syntax-after in
diff -r eecd28508f4ad62d51fe5144021a20f9d8594d0a -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 lisp/mule/mule-cmds.el
--- a/lisp/mule/mule-cmds.el Sun Jan 11 13:18:42 2009 +0000
+++ b/lisp/mule/mule-cmds.el Tue Jan 13 12:07:27 2009 +0000
@@ -1410,15 +1410,17 @@ of buffer-file-coding-system set by this
(error
(warn "Invalid native-coding-system %s in language environment %s"
native language-name)))
- (define-coding-system-alias 'file-name
- (or
- (let ((fncs (assq system-type system-type-file-name-coding)))
- (and fncs (cdr fncs)))
- 'native))
- ;; Set the default keyboard and terminal coding systems to the native
- ;; coding system of the language environment.
- ;;
- (setq keyboard-coding-system native
+ ;; These variables have magic handlers to make setting them equivalent
+ ;; to setting the file-name, terminal and keyboard coding system
+ ;; aliases. See coding.el.
+ (setq file-name-coding-system
+ (or
+ (let ((fncs (assq system-type system-type-file-name-coding)))
+ (and fncs (cdr fncs)))
+ native)
+ ;; Set the default keyboard and terminal coding systems to the
+ ;; native coding system of the language environment.
+ keyboard-coding-system native
terminal-coding-system native)
;; And do the same for any TTYs.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Ar an t-aonú lá déag de mí Eanair, scríobh Reiner Steib:
> If you need to make sure that the correct runtime value is used, I
> don't understand why you hard-code 134217727? I would have
> expected...
>
> (minid (or (and (boundp 'most-positive-fixnum)
> most-positive-fixnum)
> (lsh -1 -1)))
>
> What am I missing?
Nothing, that’s a perfectly reasonable approach too.
> On a 64-bit machine, I get:
>
> ,----[ M-x ielm RET ]
> | ELISP> (lsh -1 -1)
> | 576460752303423487
> | ELISP> (emacs-version)
> | "GNU Emacs 21.3.1 (x86_64-suse-linux, X toolkit, Xaw3d scroll bars)\n of 2004-1\
> | 0-05 on prokofjieff"
> | ELISP> (when (require 'cl) most-positive-fixnum)
> | 576460752303423487
> `----
>
> When I used this machine(s) some years ago, I always compiled Gnus,
> AUCTeX, BBDB, emacs-w3m, etc on a 64-bit machine and ran the compiled
> Lisp code on both, 64-bit and 32-bit machines
> (/usr/local/share/emacs/site-lisp shared via NFS).
I don’t know if the bug will actually produce noticeable symptoms in
practice--I was curious where the technique had been used, and I found the
code via this search:
http://www.google.com/codesearch?q=lsh\+-1\+-1+file%3A\.el
I haven’t been bitten by the bug.
GNU Emacs certainly does silently overflow, though, writing out a 59-bit
number into byte-compiled code can provoke bugs if that code is run on a
machine where a Lisp integer is 28 bits wide. But you won’t get a
wrong-type-argument or anything of the sort, unless the sign is explicitly
checked.
--
¿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
Ar an t-aonú lá déag de mí Eanair, scríobh Reiner Steib:
> On Sun, Jan 11 2009, Aidan Kehoe wrote:
>
> > 2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
> >
> > * lisp/nnfolder.el (nnfolder-read-folder):
> > The (lsh -1 -1) trick to generate the greatest positive fixnum
> > value doesn't work under an XEmacs with bignum support; use the
> > most-positive-fixnum constant instead, available since GNU Emacs
> > 21.1 and XEmacs 21.1.
>
> most-positive-fixnum is only available in Emacs 21 when requiring CL.
Oops, you’re right, it was included it in C just after the release. Thanks
for checking.
> But as CL is required (for ignore-errors), I think this change is
> fine, so I have installed it.
It’s not, though, it needs to be something like the following in that case,
since CL is available at compile time and not necessarily at runtime:
--- /tmp/aidan/nnfolder.el.orig 2009-01-11 15:50:39.000000000 +0000
+++ /tmp/aidan/nnfolder.el 2009-01-11 15:50:16.000000000 +0000
@@ -899,7 +899,9 @@
(active (or (cadr (assoc group nnfolder-group-alist))
(cons 1 0)))
(scantime (assoc group nnfolder-scantime-alist))
- (minid (lsh -1 -1))
+ (minid (or (and (boundp 'most-positive-fixnum)
+ most-positive-fixnum)
+ 134217727))
maxid start end newscantime
novbuf articles newnum
buffer-read-only)
An (eval-when-compile most-positive-fixnum) isn’t appropriate, because the
compile-time constant could be from a 64-bit machine, which would silently
overflow in the Lisp reader under GNU on a 32-bit machine, and break the
algorithm.
--
¿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
APPROVE COMMIT
NOTE; this patch has been committed.
# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1231679922 0
# Node ID eecd28508f4ad62d51fe5144021a20f9d8594d0a
# Parent 302136a857ecc128b6e4d6824ddab892e88ea6a0
Add #'subr-arity, API taken from GNU, implementation our own.
lisp/ChangeLog addition:
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* subr.el: Correct a comment, we now have #'syntax-after in
syntax.el.
(subr-arity): New.
Docstring and API taken initially from GNU's data.c, revision
1.275, GPLv2.
tests/ChangeLog addition:
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el ():
Test #'subr-arity, recently added to subr.el.
diff -r 302136a857ec -r eecd28508f4a lisp/ChangeLog
--- a/lisp/ChangeLog Sat Jan 03 15:41:34 2009 +0000
+++ b/lisp/ChangeLog Sun Jan 11 13:18:42 2009 +0000
@@ -1,3 +1,11 @@
+2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * subr.el: Correct a comment, we now have #'syntax-after in
+ syntax.el.
+ (subr-arity): New.
+ Docstring and API taken initially from GNU's data.c, revision
+ 1.275, GPLv2.
+
2009-01-01 Stephen J. Turnbull <stephen(a)xemacs.org>
* descr-text.el (describe-char-unicodedata-file):
diff -r 302136a857ec -r eecd28508f4a lisp/subr.el
--- a/lisp/subr.el Sat Jan 03 15:41:34 2009 +0000
+++ b/lisp/subr.el Sun Jan 11 13:18:42 2009 +0000
@@ -1699,7 +1699,7 @@
;; (defun make-syntax-table (&optional oldtable) in syntax.el.
-;; (defun syntax-after (pos) #### doesn't exist.
+;; (defun syntax-after (pos) in syntax.el.
;; global-set-key, local-set-key, global-unset-key, local-unset-key in
;; keymap.el.
@@ -1742,4 +1742,24 @@
list (nconc list '(?\\ ?-)))))
(apply #'string list)))
+;; XEmacs addition to subr.el; docstring and API taken initially from GNU's
+;; data.c, revision 1.275, GPLv2.
+(defun subr-arity (subr)
+ "Return minimum and maximum number of args allowed for SUBR.
+SUBR must be a built-in function (not just a symbol that refers to one).
+The returned value is a pair (MIN . MAX). MIN is the minimum number
+of args. MAX is the maximum number or the symbol `many', for a
+function with `&rest' args, or `unevalled' for a special form.
+
+See also `special-form-p', `subr-min-args', `subr-max-args',
+`function-allows-args'. "
+ (check-argument-type #'subrp subr)
+ (cons (subr-min-args subr)
+ (cond
+ ((special-form-p subr)
+ 'unevalled)
+ ((null (subr-max-args subr))
+ 'many)
+ (t (subr-max-args subr)))))
+
;;; subr.el ends here
diff -r 302136a857ec -r eecd28508f4a tests/ChangeLog
--- a/tests/ChangeLog Sat Jan 03 15:41:34 2009 +0000
+++ b/tests/ChangeLog Sun Jan 11 13:18:42 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/lisp-tests.el ():
+ Test #'subr-arity, recently added to subr.el.
+
2009-01-03 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/ccl-tests.el (ccl-test-setup):
diff -r 302136a857ec -r eecd28508f4a tests/automated/lisp-tests.el
--- a/tests/automated/lisp-tests.el Sat Jan 03 15:41:34 2009 +0000
+++ b/tests/automated/lisp-tests.el Sun Jan 11 13:18:42 2009 +0000
@@ -889,6 +889,20 @@
(check-function-argcounts '(lambda ,arglist nil) ,min ,max)
(check-function-argcounts (byte-compile '(lambda ,arglist nil)) ,min ,max))))
+;; Test subr-arity.
+(loop for (function-name arity) in
+ '((let (1 . unevalled))
+ (prog1 (1 . unevalled))
+ (list (0 . many))
+ (type-of (1 . 1))
+ (garbage-collect (0 . 0)))
+ do (Assert (equal (subr-arity (symbol-function function-name)) arity)))
+
+(Check-Error wrong-type-argument (subr-arity
+ (lambda () (message "Hi there!"))))
+
+(Check-Error wrong-type-argument (subr-arity nil))
+
;;-----------------------------------------------------
;; Detection of cyclic variable indirection loops
;;-----------------------------------------------------
--
¿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
changeset: 4575:eecd28508f4ad62d51fe5144021a20f9d8594d0a
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sun Jan 11 13:18:42 2009 +0000
files: lisp/ChangeLog lisp/subr.el tests/ChangeLog tests/automated/lisp-tests.el
description:
Add #'subr-arity, API taken from GNU, implementation our own.
lisp/ChangeLog addition:
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* subr.el: Correct a comment, we now have #'syntax-after in
syntax.el.
(subr-arity): New.
Docstring and API taken initially from GNU's data.c, revision
1.275, GPLv2.
tests/ChangeLog addition:
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el ():
Test #'subr-arity, recently added to subr.el.
diff -r 302136a857ecc128b6e4d6824ddab892e88ea6a0 -r eecd28508f4ad62d51fe5144021a20f9d8594d0a lisp/ChangeLog
--- a/lisp/ChangeLog Sat Jan 03 15:41:34 2009 +0000
+++ b/lisp/ChangeLog Sun Jan 11 13:18:42 2009 +0000
@@ -1,3 +1,11 @@ 2009-01-01 Stephen J. Turnbull <stephe
+2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * subr.el: Correct a comment, we now have #'syntax-after in
+ syntax.el.
+ (subr-arity): New.
+ Docstring and API taken initially from GNU's data.c, revision
+ 1.275, GPLv2.
+
2009-01-01 Stephen J. Turnbull <stephen(a)xemacs.org>
* descr-text.el (describe-char-unicodedata-file):
diff -r 302136a857ecc128b6e4d6824ddab892e88ea6a0 -r eecd28508f4ad62d51fe5144021a20f9d8594d0a lisp/subr.el
--- a/lisp/subr.el Sat Jan 03 15:41:34 2009 +0000
+++ b/lisp/subr.el Sun Jan 11 13:18:42 2009 +0000
@@ -1699,7 +1699,7 @@ one is kept."
;; (defun make-syntax-table (&optional oldtable) in syntax.el.
-;; (defun syntax-after (pos) #### doesn't exist.
+;; (defun syntax-after (pos) in syntax.el.
;; global-set-key, local-set-key, global-unset-key, local-unset-key in
;; keymap.el.
@@ -1742,4 +1742,24 @@ in Lisp; do not use it in performance-cr
list (nconc list '(?\\ ?-)))))
(apply #'string list)))
+;; XEmacs addition to subr.el; docstring and API taken initially from GNU's
+;; data.c, revision 1.275, GPLv2.
+(defun subr-arity (subr)
+ "Return minimum and maximum number of args allowed for SUBR.
+SUBR must be a built-in function (not just a symbol that refers to one).
+The returned value is a pair (MIN . MAX). MIN is the minimum number
+of args. MAX is the maximum number or the symbol `many', for a
+function with `&rest' args, or `unevalled' for a special form.
+
+See also `special-form-p', `subr-min-args', `subr-max-args',
+`function-allows-args'. "
+ (check-argument-type #'subrp subr)
+ (cons (subr-min-args subr)
+ (cond
+ ((special-form-p subr)
+ 'unevalled)
+ ((null (subr-max-args subr))
+ 'many)
+ (t (subr-max-args subr)))))
+
;;; subr.el ends here
diff -r 302136a857ecc128b6e4d6824ddab892e88ea6a0 -r eecd28508f4ad62d51fe5144021a20f9d8594d0a tests/ChangeLog
--- a/tests/ChangeLog Sat Jan 03 15:41:34 2009 +0000
+++ b/tests/ChangeLog Sun Jan 11 13:18:42 2009 +0000
@@ -1,3 +1,8 @@ 2009-01-03 Aidan Kehoe <kehoea@parhasa
+2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/lisp-tests.el ():
+ Test #'subr-arity, recently added to subr.el.
+
2009-01-03 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/ccl-tests.el (ccl-test-setup):
diff -r 302136a857ecc128b6e4d6824ddab892e88ea6a0 -r eecd28508f4ad62d51fe5144021a20f9d8594d0a tests/automated/lisp-tests.el
--- a/tests/automated/lisp-tests.el Sat Jan 03 15:41:34 2009 +0000
+++ b/tests/automated/lisp-tests.el Sun Jan 11 13:18:42 2009 +0000
@@ -888,6 +888,20 @@
(defun test-fun ,arglist nil)
(check-function-argcounts '(lambda ,arglist nil) ,min ,max)
(check-function-argcounts (byte-compile '(lambda ,arglist nil)) ,min ,max))))
+
+;; Test subr-arity.
+(loop for (function-name arity) in
+ '((let (1 . unevalled))
+ (prog1 (1 . unevalled))
+ (list (0 . many))
+ (type-of (1 . 1))
+ (garbage-collect (0 . 0)))
+ do (Assert (equal (subr-arity (symbol-function function-name)) arity)))
+
+(Check-Error wrong-type-argument (subr-arity
+ (lambda () (message "Hi there!"))))
+
+(Check-Error wrong-type-argument (subr-arity nil))
;;-----------------------------------------------------
;; Detection of cyclic variable indirection loops
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
APPROVE COMMIT
NOTE: This patch has been committed.
xemacs-packages/xemacs-base/ChangeLog addition:
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* debug.el (debug-on-entry):
Refuse to attempt this for special forms.
XEmacs Packages source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/xemacs-base/debug.el
===================================================================
RCS
Index: xemacs-packages/xemacs-base/debug.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/debug.el,v
retrieving revision 1.6
diff -u -u -r1.6 debug.el
--- xemacs-packages/xemacs-base/debug.el 2006/03/16 07:11:50 1.6
+++ xemacs-packages/xemacs-base/debug.el 2009/01/11 12:45:26
@@ -682,10 +682,12 @@
(interactive "aDebug on entry (to function): ")
(debugger-reenable)
;; Handle a function that has been aliased to some other function.
- ;; #### We have no way of determining if a subr is unevalled
-; (if (and (subrp (symbol-function function))
-; (eq (cdr (subr-arity (symbol-function function))) 'unevalled))
-; (error "Function %s is a special form" function))
+ (if (and (subrp (symbol-function function))
+ ;; XEmacs change; 21.4 has no way of checking if a subr is a
+ ;; special form, early 21.5 does not have #'subr-arity.
+ (fboundp 'special-form-p)
+ (special-form-p (symbol-function function)))
+ (error "Function %s is a special form" function))
(if (or (symbolp (symbol-function function))
(subrp (symbol-function function)))
;; Create a wrapper in which we can then add the necessary debug call.
--
¿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
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