November 2005 - XEmacs-Patches - XEmacs Mailing List Archives

[AC21.4] [PATCH] MacOS 10.4 (Tiger) fixes. 19 years

Vin Shelton

Malcolm Purvis <malcolmp(a)xemacs.org> writes: > 21.4 > > This patch gets 21.4 working under MacOS 10.4 (Tiger). In addition to the dll > fix already posted for 21.5 it fixes a name clash between a static variable > and the global 'initialized'. It seems that gcc 4.0 is fussy about such > things. > > These changes are backward compatible to earlier versions of MacOS X. > > src/ChangeLog addition: > > 2005-07-11 Malcolm Purvis <malcolmp(a)xemacs.org> > > * glyphs-gtk.c: Rename a local static variable because gcc 4.0 > says it clashes with a global with the same name. > > 2005-07-11 Atanu Ghosh <atanu(a)icsi.berkeley.edu> > > * sysdll.c (dll_open): Under MacOS X return NULL under the > filename is NULL. Fixes problems finding local symbols under 10.4 > (Tiger) APPROVE COMMIT 21.4 This patch will appear in 21.4.18. Thank you, Vin

1 participants
0 comments

[AC21.4] xemacs-21.5-clean: package-get-init-package buglet (21.4.17) 19 years

Vin Shelton

Adrian Aichner <adrian(a)xemacs.org> writes: > APPROVE COMMIT 21.5 RECOMMEND 21.4 > > Thanks, Jeff, for noticing this, and for providing a fix at them same > time. > > I have tested this enough to apply it to 21.5. > > Vin, I recommend to sync this to 21.4! > > Best regards, > > Adrian > > xemacs-21.5-clean ChangeLog patch: > Diff command: cvs -q diff -U 0 > Files affected: lisp/ChangeLog > > Index: lisp/ChangeLog > =================================================================== > RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v > retrieving revision 1.668 > diff -u -U0 -r1.668 ChangeLog > --- lisp/ChangeLog 15 May 2005 16:37:52 -0000 1.668 > +++ lisp/ChangeLog 5 Jun 2005 22:35:36 -0000 > ＠＠ -0,0 +1,7 ＠＠ > +2005-06-06 Adrian Aichner <adrian(a)xemacs.org> > + > + * package-get.el (package-get-init-package): > + package-get-init-package buglet (21.4.17) by Jeff Mincy > + <mincy(a)rcn.com> fixing false temporary load-path shadows reported > + after package installation and simplifying code. > + APPROVE COMMIT 21.4 This patch will appear in 21.4.18. Thank you, Vin

1 participants
0 comments

[AC21.4] xemacs-21.5-clean: Re: Patch my ego 19 years

Vin Shelton

Simon Josefsson <jas(a)extundo.com> writes: > Adrian Aichner <adrian(a)xemacs.org> writes: > >> Please negotiate with Vin to get this into 21.4, if so desired. > > My ego is having difficulties waiting for a stable 21.5. Is it > possible to add this to 21.4? Patch against current 21.4 CVS. > > Thanks! > > 2005-02-28 Simon Josefsson <jas(a)extundo.com> > > * about.el (xemacs-hackers): Add jas. > (about-other-current-hackers): Likewise. > (about-url-alist): Add URL for jas. > (about-personal-info): Document jas. > (about-hacker-contribution): Describe jas contributions. APPROVE COMMIT 21.4 This patch will appear in 21.4.18 - sorry for the long delay. Thank you, Vin

1 participants
0 comments

[AC21.4] Avoid usage of corrupted stack in open-network-stream() 19 years

Vin Shelton

Enrico Scholz <enrico.scholz(a)informatik.tu-chemnitz.de> writes: > Hello, > > can you please apply the attached patch to the xemacs 21.4.17 branch? > The 21.5 branch has a similar one already. Without it, gcc4 will produce > bad code: > > | $ xemacs -batch -nw -vanilla -eval '(open-network-stream "imap" "test" "mailbox" 143)' > | Segmentation fault > > > > Enrico Enrico, APPROVE COMMIT 21.4 Thanks for the patch; it will appear in the soon-to-be-released 21.4.18. Thank you, Vin

1 participants
0 comments

[AC21.4] Announce re-builder, xetla 19 years

Vin Shelton

Norbert Koch <nk(a)viteno.net> writes: > Hello Vin, > > Here's a patch to update the package list distributed with 21.4. > > Please apply if you see fit. > > Thanks, > norbert. > > > 2005-04-11 Norbert Koch <viteno(a)xemacs.org> > > * etc/PACKAGES: etc/PACKAGES: Announce re-builder, xetla. > APPROVE COMMIT 21.4 This patch will appear in 21.4.18. Thank you, Vin

1 participants
0 comments

[AC21.4] char-table doc improvements 19 years

Vin Shelton

"Stephen J. Turnbull" <stephen(a)xemacs.org> writes: > SUPERSEDES RECOMMEND 21.4 > > Patch against 21.4. > > This patch adds a clarification of the usage of map-char-table, and > otherwise is the same as the one it supersedes. Same ChangeLog. > Since more work is needed on chartab.c in 21.5, I'll commit the > corresponding change to 21.5 at a later time. > > Index: src/ChangeLog > =================================================================== > RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v > retrieving revision 1.290.2.95 > diff -u -U0 -r1.290.2.95 ChangeLog > --- src/ChangeLog 14 Feb 2005 04:15:31 -0000 1.290.2.95 > +++ src/ChangeLog 6 Apr 2005 03:41:02 -0000 > ＠＠ -0,0 +1,8 ＠＠ > +2005-04-06 Stephen J. Turnbull <stephen(a)xemacs.org> > + > + * chartab.c (Fchar_table_p): > + (Fget_range_char_table): > + (Fput_char_table): > + (Fmap_char_table): > + Describe range representation and fix typo. > + APPROVE COMMIT 21.4 This patch will appear in 21.4.18. Thank you, Vin

1 participants
0 comments

[R21.4] revert derived-mode-merge-syntax-tables patch 19 years

Stephen J. Turnbull

RECOMMEND 21.4 The original patch apparently slipped into 21.4 inadvertantly (see <87r7hobebk.fsf(a)tleepslib.sk.tsukuba.ac.jp> on XEmacs Beta). This reverts. Note that Jerry's test in <pslluyhzan.fsf(a)diannao.ittc.ku.edu> http://list-archive.xemacs.org/xemacs-beta/200307/msg00153.html is 99% incorrect; `push' will always return non-nil, causing `map-char-table' to exit after one iteration. It should be (let ((keyval nil)) (map-char-table #'(lambda (key value) (push (list key value) keyval) ;; force null return nil) (make-syntax-table)) keyval) Jerry's version still shows that map-char-table in 21.5 is broken, because the test should return a one-element list, and it doesn't. The revised version of derived.el DTRT's on this test: (require 'jde) (let ((my-syntax-table (make-syntax-table))) (derived-mode-merge-syntax-tables java-mode-syntax-table my-syntax-table) my-syntax-table) and cannot throw the wrong-type error Hrvoje observes, so I recommend application. Index: lisp/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.515 diff -u -U0 -r1.515 ChangeLog --- lisp/ChangeLog 17 Jul 2003 14:41:23 -0000 1.515 +++ lisp/ChangeLog 18 Jul 2003 07:19:59 -0000 ＠＠ -0,0 +1,6 ＠＠ +2005-04-06 Stephen J. Turnbull <stephen(a)xemacs.org> + + * derived.el (derived-mode-merge-syntax-tables): + Revert my 21.5-only patch of 2003-07-18 which slipped in + through Jerry James's patch of 2004-06-07. + Index: lisp/derived.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/derived.el,v retrieving revision 1.4.2.1 diff -u -r1.4.2.1 derived.el --- lisp/derived.el 22 Jun 2004 01:49:47 -0000 1.4.2.1 +++ lisp/derived.el 6 Apr 2005 07:01:34 -0000 ＠＠ -421,20 +421,12 ＠＠ ;; check for inheritance. (map-char-table #'(lambda (key value) - (let ((newval (get-range-char-table key new 'multi))) - (cond ((eq newval 'multi) ; OK, dive into the class hierarchy - (map-char-table - #'(lambda (key1 value1) - (when (eq ?＠ (char-syntax-from-code - (get-range-char-table key new ?＠))) - (put-char-table key1 value new)) - nil) - new - key)) - ((eq ?＠ (char-syntax-from-code newval)) ;; class at once - (put-char-table key value new)))) - nil) - old)) + (if (eq ?＠ (char-syntax-from-code value)) + (map-char-table #'(lambda (key1 value1) + (put-char-table key1 value1 new)) + old + key))) + new)) ;; Merge an old abbrev table into a new one. ;; This function requires internal knowledge of how abbrev tables work, -- School of Systems and Information Engineering http://turnbull.sk.tsukuba.ac.jp University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Ask not how you can "do" free software business; ask what your business can "do for" free software.

2 participants
1 comments

[COMMIT] Mule-CCL couldn't handle control-1 characters either. 19 years

Aidan Kehoe

NOTE: This patch has been committed. APPROVE COMMIT RECOMMEND 21.4, SXEmacs I was aware CCL was doing something like this for a long time; I just told myself that the code was part of XEmacs, it must be me who was getting stuff wrong. There’s an EBCDIC coding system, for example, at http://parhasard.net/ebcdic-na.el that works after this change has been applied. Also, writing a Windows-1252 coding system now becomes possible. src/ChangeLog addition: 2005-04-05 Aidan Kehoe <kehoea(a)parhasard.net> * mule-ccl.c (ccl_driver): Calculate the charset and position code for control-1 characters properly, both when reading multibyte characters and writing them. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: src/mule-ccl.c Index: src/mule-ccl.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-ccl.c,v retrieving revision 1.25 diff -u -u -r1.25 mule-ccl.c --- src/mule-ccl.c 2004/09/20 19:19:52 1.25 +++ src/mule-ccl.c 2005/04/05 17:34:57 ＠＠ -1302,6 +1302,13 ＠＠ reg[RRR] = i; reg[rrr] = (*src++ & 0x7F); } + else if (LEADING_BYTE_CONTROL_1 == i) + { + if (src >= src_end) + goto ccl_read_multibyte_character_suspend; + reg[RRR] = i; + reg[rrr] = (*src++ - 0xA0); + } else if (i <= MAX_LEADING_BYTE_OFFICIAL_2) { if ((src + 1) >= src_end) ＠＠ -1349,7 +1356,7 ＠＠ case CCL_WriteMultibyteChar2: i = reg[RRR]; /* charset */ - if (i == LEADING_BYTE_ASCII) + if (i == LEADING_BYTE_ASCII || i == LEADING_BYTE_CONTROL_1) i = reg[rrr] & 0xFF; else if (XCHARSET_DIMENSION (charset_by_leading_byte (i)) == 1) i = (((i - FIELD2_TO_OFFICIAL_LEADING_BYTE) << 7) -- “I, for instance, am gung-ho about open source because my family is being held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle, when we say something in public? No-one!” -- Danny O’Brien

2 participants
1 comments

[COMMIT] Cleanup of the CCL coding system example. 19 years

Aidan Kehoe

NOTE: This patch has been committed. APPROVE COMMIT 21.5 RECOMMEND 21.4 This has been in my queue for far too long. man/ChangeLog addition: 2005-03-26 Aidan Kehoe <kehoea(a)parhasard.net> * lispref/mule.texi (CCL Example): char-int -> char-to-int, and hex 41 is decimal 64, both problems with my previous patch pointed out by Stephen. * lispref/mule.texi (The actual coding system): Give information on the make-coding-system call, and where the actual package can be found. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: man/lispref/mule.texi Index: man/lispref/mule.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/lispref/mule.texi,v retrieving revision 1.12 diff -u -u -r1.12 mule.texi --- man/lispref/mule.texi 2005/03/09 05:36:50 1.12 +++ man/lispref/mule.texi 2005/03/26 16:16:17 ＠＠ -2097,7 +2097,7 ＠＠ * Characters to be preserved:: No transformation needed for these characters. * The program to decode to internal format:: . * The program to encode from internal format:: . - +* The actual coding system:: . ＠end menu ＠node Four bits to ASCII, URI Encoding constants, , CCL Example ＠＠ -2117,7 +2117,7 ＠＠ (let ((val (make-vector 256 0)) (i 0)) (while (< i (length val)) - (aset val i (char-int (aref (format "%02X" i) 0))) + (aset val i (char-to-int (aref (format "%02X" i) 0))) (setq i (1+ i))) val) "Table to find an ASCII version of an octet's most significant 4 bits.") ＠＠ -2125,7 +2125,7 ＠＠ The next table, ＠code{url-coding-low-order-nybble-as-ascii} is almost the same thing, but this time it has a map for the hex encoding of the -low-order four bits. So the sixty-fifth entry (offset ＠samp{#x51}) is +low-order four bits. So the sixty-fifth entry (offset ＠samp{#x41}) is the ASCII encoding of `1', the hundred-and-twenty-second (offset ＠samp{#x7a}) is the ASCII encoding of `A'. ＠＠ -2134,7 +2134,7 ＠＠ (let ((val (make-vector 256 0)) (i 0)) (while (< i (length val)) - (aset val i (char-int (aref (format "%02X" i) 1))) + (aset val i (char-to-int (aref (format "%02X" i) 1))) (setq i (1+ i))) val) "Table to find an ASCII version of an octet's least significant 4 bits.") ＠＠ -2154,14 +2154,14 ＠＠＠code{url-coding-escaped-space-code} variable. ＠example -(defvar url-coding-escape-character-code (char-int ?%) +(defvar url-coding-escape-character-code (char-to-int ?%) "The code point for the percentage sign, in ASCII.") -(defvar url-coding-escaped-space-code (char-int ?+) +(defvar url-coding-escaped-space-code (char-to-int ?+) "The URL-encoded value of the space character, that is, +.") ＠end example -＠node Numeric to ASCII-hexadecimal conversion +＠node Numeric to ASCII-hexadecimal conversion, Characters to be preserved, URI Encoding constants, CCL Example ＠subsubsection Numeric to ASCII-hexadecimal conversion Now, we have a couple of utility tables that wouldn't be necessary in ＠＠ -2177,7 +2177,7 ＠＠ (let ((i 0) (val (make-vector 16 0))) (while (< i 16) - (aset val i (char-int (aref (format "%X" i) 0))) + (aset val i (char-to-int (aref (format "%X" i) 0))) (setq i (1+ i))) val) "A map from a hexadecimal digit's numeric value to its encoding in ASCII.") ＠＠ -2193,7 +2193,7 ＠＠ "A map from Latin 1 code points to their values as hexadecimal digits.") ＠end example -＠node Characters to be preserved +＠node Characters to be preserved, The program to decode to internal format, Numeric to ASCII-hexadecimal conversion, CCL Example ＠subsubsection Characters to be preserved And finally, the last of these tables. URL encoding says that ＠＠ -2227,7 +2227,7 ＠＠ octet as its ASCII encoding.") ＠end example -＠node The program to decode to internal format +＠node The program to decode to internal format, The program to encode from internal format, Characters to be preserved, CCL Example ＠subsubsection The program to decode to internal format After the almost interminable tables, we get to the CCL. The first ＠＠ -2288,7 +2288,7 ＠＠ internal encoding. ") ＠end example -＠node The program to encode from internal format +＠node The program to encode from internal format, The actual coding system, The program to decode to internal format, CCL Example ＠subsubsection The program to encode from internal format Next, we see the CCL program to encode ASCII text as URL coded text. ＠＠ -2323,6 +2323,36 ＠＠ (repeat)))) "CCL program to encode octets (almost) according to RFC 1738") ＠end example + +＠node The actual coding system, , The program to encode from internal format, CCL Example +＠subsubsection The actual coding system + +To actually create the coding system, we call +＠samp{make-coding-system}. The first argument is the symbol that is to +be the name of the coding system, in our case ＠samp{url-coding}. The +second specifies that the coding system is to be of type +＠samp{ccl}---there are several other coding system types available, +including, see the documentation for ＠samp{make-coding-system} for the +full list. Then there's a documentation string describing the wherefore +and caveats of the coding system, and the final argument is a property +list giving information about the CCL programs and the coding system's +mnemonic. + +＠example +(make-coding-system + 'url-coding 'ccl + "The coding used by application/x-www-form-urlencoded HTTP applications. +This coding form doesn't specify anything about non-ASCII characters, so +make sure you've transformed to a seven-bit coding system first." + '(decode ccl-decode-urlcoding + encode ccl-encode-urlcoding + mnemonic "URLenc")) +＠end example + +If you're lucky, the ＠samp{url-coding} coding system describe here +should be available in the XEmacs package system. Otherwise, downloading +it from ＠samp{http://www.parhasard.net/url-coding.el} should work for +the foreseeable future. ＠node Category Tables, Unicode Support, CCL, MULE ＠section Category Tables -- “I, for instance, am gung-ho about open source because my family is being held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle, when we say something in public? No-one!” -- Danny O’Brien

2 participants
2 comments

[COMMIT] Don't delete everything from the popup menu in easy-menu-remove 19 years

Aidan Kehoe

NOTE: This patch has been committed. Also affects 21.4, and is worth considering for it. lisp/ChangeLog addition: 2005-03-25 Ralf Angeli <angeli(a)iwi.uni-sb.de> * easymenu.el (easy-menu-remove): As described in E1D4Nn5-0001lq-EU(a)neutrino.iwi.uni-sb.de; don't strip everything except the "Command" menu from mode-popup-menu. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: lisp/easymenu.el Index: lisp/easymenu.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/easymenu.el,v retrieving revision 1.7 diff -u -u -r1.7 easymenu.el --- lisp/easymenu.el 2005/02/03 05:03:38 1.7 +++ lisp/easymenu.el 2005/03/25 16:12:14 ＠＠ -203,7 +203,7 ＠＠ "Remove MENU from the current menu bar." (when (featurep 'menubar) (setq easy-menu-all-popups (delq menu easy-menu-all-popups) - mode-popup-menu (if (< (length easy-menu-all-popups) 1) + mode-popup-menu (if (> (length easy-menu-all-popups) 1) (cons (easy-menu-title) (reverse easy-menu-all-popups)) (let ((same-as-menu -- “I, for instance, am gung-ho about open source because my family is being held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle, when we say something in public? No-one!” -- Danny O’Brien

2 participants
1 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 November 2005