January 2009 - XEmacs-Patches - XEmacs Mailing List Archives

commit: Fix docstring copy-pasto. 15 years, 11 months

Ville Skyttä

changeset: 4578:49e17f7182f51df9b27d02a74b5433b1654aa3a1 tag: tip user: "Ville SkyttÃ€ <scop(a)xemacs.org>" date: Sun Jan 18 12:14:19 2009 +0200 files: lisp/ChangeLog lisp/modeline.el description: Fix docstring copy-pasto. diff -r de0228446b18b1ff1d5a0c4411fdbae51781cf71 -r 49e17f7182f51df9b27d02a74b5433b1654aa3a1 lisp/ChangeLog --- a/lisp/ChangeLog Sun Jan 18 11:55:53 2009 +0200 +++ b/lisp/ChangeLog Sun Jan 18 12:14:19 2009 +0200 ＠＠ -2,6 +2,8 ＠＠ 2009-01-18 Ville Skyttä <scop(a)xemacs.o * font.el (font-*-p): Docstring spelling fix. (set-font-*-p): Ditto. + + * modeline.el (modeline-3d-p): Fix docstring copy-pasto. 2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net> diff -r de0228446b18b1ff1d5a0c4411fdbae51781cf71 -r 49e17f7182f51df9b27d02a74b5433b1654aa3a1 lisp/modeline.el --- a/lisp/modeline.el Sun Jan 18 11:55:53 2009 +0200 +++ b/lisp/modeline.el Sun Jan 18 12:14:19 2009 +0200 ＠＠ -44,7 +44,7 ＠＠ (specifier-instance modeline-shadow-thickness))) (and (integerp thickness) (> thickness 0))) - "Whether the default toolbar is globally visible. + "Whether the modeline is displayed with raised, 3-d appearance. This option only has an effect when set using `customize-set-variable', or through the Options menu." :group 'display _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit: Docstring spelling fixes. 15 years, 11 months

Ville Skyttä

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

1 participants
0 comments

commit: Preserve the relation btw. file-name-coding-system & the 'file-name c-s alias. 15 years, 11 months

Aidan Kehoe

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

1 participants
0 comments

Re: [PATCH] Fix a bug with XEmacs and bignum support. 15 years, 11 months

Aidan Kehoe

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

1 participants
0 comments

Re: [PATCH] Fix a bug with XEmacs and bignum support. 15 years, 11 months

Aidan Kehoe

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

1 participants
0 comments

[COMMIT] Add #'subr-arity, API taken from GNU, implementation our own. 15 years, 11 months

Aidan Kehoe

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

1 participants
0 comments

commit: Add #'subr-arity, API taken from GNU, implementation our own. 15 years, 11 months

Aidan Kehoe

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

1 participants
0 comments

[COMMIT] Refuse to attempt debug on entry for special forms. 15 years, 11 months

Aidan Kehoe

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

1 participants
0 comments

[PATCH] Fix a bug with XEmacs and bignum support. 15 years, 11 months

Aidan Kehoe

xemacs-packages/gnus/ChangeLog addition: 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. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/gnus/lisp/nnfolder.el =================================================================== RCS Index: xemacs-packages/gnus/lisp/nnfolder.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/nnfolder.el,v retrieving revision 1.7 diff -u -u -r1.7 nnfolder.el --- xemacs-packages/gnus/lisp/nnfolder.el 2006/03/16 04:18:02 1.7 +++ xemacs-packages/gnus/lisp/nnfolder.el 2009/01/11 12:19:26 ＠＠ -899,7 +899,7 ＠＠ (active (or (cadr (assoc group nnfolder-group-alist)) (cons 1 0))) (scantime (assoc group nnfolder-scantime-alist)) - (minid (lsh -1 -1)) + (minid most-positive-fixnum) maxid start end newscantime novbuf articles newnum buffer-read-only) -- ¿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

1 participants
0 comments

[COMMIT] Correct a few small things in conx.el 15 years, 11 months

Aidan＠daedalus.asclepian.ie

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

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

XEmacs-Patches January 2009