May 2006 - XEmacs-Patches - XEmacs Mailing List Archives

[PATCH] Update man page for init file, one nroff format error 16 years, 10 months

Shyamal Prasad

etc/ChangeLog addition: 2004-12-03 Shyamal Prasad <shyamal(a)member.fsf.org> * xemacs.1: Now describe $HOME/.xemacs/init.el as the preferred init file. Fixed excessive space insertion in the description of the '-vanilla' option XEmacs source patch: Diff command: cvs -q diff -u Files affected: etc/xemacs.1 Index: etc/xemacs.1 =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/etc/xemacs.1,v retrieving revision 1.13 diff -u -r1.13 xemacs.1 --- etc/xemacs.1 2001/04/12 18:20:52 1.13 +++ etc/xemacs.1 2004/12/04 01:33:45 ＠＠ -147,12 +147,7 ＠＠ .TP .B \-vanilla Load no extra files at startup. Equivalent to the combination of -.B \-q -, -.B \-no-site-file -, and -.B \-no-early-packages -\. +.BR \-q ", " \-no-site-file ", and " \-no-early-packages . .TP .BI \-u " user, " \-user " user" Load ＠＠ -628,7 +623,8 ＠＠ META-left Make a rectangular selection. .SH FILES Lisp code is read at startup from the user's init file, -\fB$HOME/.emacs\fP. +\fB$HOME/.xemacs/init.el\fP. If this file does not exist then +\fB$HOME/.emacs\fP will be read if it is present. /usr/local/info - files for the Info documentation browser (a subsystem of

2 participants
1 comments

[PATCH] Synch up format-time-string % specifiers with Emacs 21.3.1 16 years, 10 months

Shyamal Prasad

This patch adds % specifiers to format-time-string that are missing in XEmacs but supported by Emacs 21.3.1 src/ChangeLog addition: 2004-12-08 Shyamal Prasad <shyamal(a)member.fsf.org> * editfns.c: * editfns.c (Fformat_time_string): Added documentation for %z, %g, %G and %V specifiers. This synchs up the set of % specifiers for format-time-string with Emacs 21.3.1. Make copy of static buffer returned by localtime(). * strftime.c: * strftime.c (strftime): Implemented %z, %g, %G and %V in a style similar to existing implementation of other specifiers. XEmacs source patch: Diff command: cvs -q diff -u Files affected: src/strftime.c src/editfns.c Index: src/editfns.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/editfns.c,v retrieving revision 1.51 diff -u -r1.51 editfns.c --- src/editfns.c 2004/12/06 03:52:03 1.51 +++ src/editfns.c 2004/12/09 02:40:17 ＠＠ -1015,6 +1015,8 ＠＠ %d is replaced by the day of month, zero-padded. %D is a synonym for "%m/%d/%y". %e is replaced by the day of month, blank-padded. +%G is replaced by the year containing the ISO 8601 week +%g is replaced by the year of the ISO 8601 week within the century (00-99) %h is a synonym for "%b". %H is replaced by the hour (00-23). %I is replaced by the hour (00-12). ＠＠ -1033,12 +1035,14 ＠＠ %t is a synonym for "\\t". %T is a synonym for "%H:%M:%S". %U is replaced by the week of the year (00-53), first day of week is Sunday. +%V is replaced by the ISO 8601 week number %w is replaced by the day of week (0-6), Sunday is day 0. %W is replaced by the week of the year (00-53), first day of week is Monday. %x is a locale-specific synonym, which defaults to "%D" in the C locale. %X is a locale-specific synonym, which defaults to "%T" in the C locale. %y is replaced by the year without century (00-99). %Y is replaced by the year with century. +%z is replaced by the time zone as a numeric offset (e.g +0530, -0800 etc.) %Z is replaced by the time zone abbreviation. The number of options reflects the `strftime' function. ＠＠ -1063,13 +1067,15 ＠＠ { Extbyte *buf = alloca_extbytes (size); Extbyte *formext; + /* make a copy of the static buffer returned by localtime() */ + struct tm tm = * localtime(&value); + *buf = 1; /* !!#### this use of external here is not totally safe, and potentially data lossy. */ LISP_STRING_TO_EXTERNAL (format_string, formext, Qnative); - if (emacs_strftime (buf, size, formext, - localtime (&value)) + if (emacs_strftime (buf, size, formext, &tm) || !*buf) return build_ext_string (buf, Qnative); /* If buffer was too small, make it bigger. */ Index: src/strftime.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/strftime.c,v retrieving revision 1.6 diff -u -r1.6 strftime.c --- src/strftime.c 2002/03/29 04:48:37 1.6 +++ src/strftime.c 2004/12/09 02:40:18 ＠＠ -58,6 +58,7 ＠＠ %S second (00..61) %T time, 24-hour (hh:mm:ss) %X locale's time representation (%H:%M:%S) + %z time zone offset (e.g. +0530, -0800 etc) %Z time zone (EDT), or nothing if no time zone is determinable Date fields: ＠＠ -70,10 +71,13 ＠＠ %d day of month (01..31) %e day of month ( 1..31) %D date (mm/dd/yy) + %G year corresponding to the ISO 8601 week + %g Year of the ISO 8601 week within century (00 - 99) %h same as %b %j day of year (001..366) %m month (01..12) %U week number of year with Sunday as first day of week (00..53) + %V ISO 8601 week number (first week is the earliest one with Thu) %w day of week (0..6) %W week number of year with Monday as first day of week (00..53) %x locale's date representation (mm/dd/yy) ＠＠ -235,6 +239,30 ＠＠ return dl <= 0 ? 0 : dl / 7 + (dl % 7 != 0); } +#ifndef __isleap +/* Nonzero if YEAR is a leap year (every 4 years, + except every 100th isn't, and every 400th is). */ +# define __isleap(year) \ + ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0)) +#endif + +/* The number of days from the first day of the first ISO week of this + year to the year day YDAY with week day WDAY. ISO weeks start on + Monday; the first ISO week has the year's first Thursday. YDAY may + be as small as YDAY_MINIMUM. */ +#define ISO_WEEK_START_WDAY 1 /* Monday */ +#define ISO_WEEK1_WDAY 4 /* Thursday */ +#define YDAY_MINIMUM (-366) +static int +iso_week_days (int yday, int wday) +{ + /* Add enough to the first operand of % to make it nonnegative. */ + int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7; + return (yday + - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7 + + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY); +} + #if !defined(HAVE_TM_ZONE) && !defined(HAVE_TZNAME) char *zone_name (const struct tm *tp); char * ＠＠ -362,10 +390,125 ＠＠ length += strftime (&string[length], max - length, "%H:%M:%S", tm); break; + + case 'V': + case 'g': + case 'G': + { + int year = tm->tm_year + 1900; + int days = iso_week_days (tm->tm_yday, tm->tm_wday); + + if (days < 0) + { + /* This ISO week belongs to the previous year. */ + year--; + days = + iso_week_days (tm->tm_yday + (365 + __isleap (year)), + tm->tm_wday); + } + else + { + int d = + iso_week_days (tm->tm_yday - (365 + __isleap (year)), + tm->tm_wday); + if (0 <= d) + { + /* This ISO week belongs to the next year. */ + year++; + days = d; + } + } + + switch (*format) + { + /* + #### FIXME + We really can't assume 1000 <= year <= 9999 + once time_t gets beyond 32 bits, but it's true + of the rest of the code here so get with the + program + */ + case 'g': + length += + add_num2 (&string[length], year % 100, + max - length, pad); + break; + + case 'G': + add_char (year / 1000 + '0'); + length += add_num3 (&string[length], year % 1000, + max - length, zero); + break; + + default: + length += + add_num2 (&string[length], days / 7 + 1, + max - length, pad); + break; + } + } + break; case 'X': length += strftime (&string[length], max - length, "%H:%M:%S", tm); break; + case 'z': + { + /* + #### FIXME: could use tm->tm_gmtoff if present. Since + the other code in xemacs does not do so we follow the + leaders (and don't add a autoconf macro to detect + its presence). + */ + long int offset; + long int minutes; + struct tm lt, *ut; + time_t utc; + + lt = *tm; + utc = mktime(&lt); + ut = gmtime(&utc); + /* assume that tm is valid so the others will be too! */ + assert( utc != (time_t) -1 && ut != NULL ); + + /* tm diff code below is based on mktime.c, glibc 2.3.2 */ + { + int lt4, ut4, lt100, ut100, lt400, ut400; + int intervening_leap_days, years, days; + + lt4 = (lt.tm_year >> 2) + (1900 >> 2) - + ! (lt.tm_year & 3); + ut4 = (ut->tm_year >> 2) + (1900 >> 2) - + ! (ut->tm_year & 3); + lt100 = lt4 / 25 - (lt4 % 25 < 0); + ut100 = ut4 / 25 - (ut4 % 25 < 0); + lt400 = lt100 >> 2; + ut400 = ut100 >> 2; + intervening_leap_days = + (lt4 - ut4) - (lt100 - ut100) + (lt400 - ut400); + years = lt.tm_year - ut->tm_year; + days = (365 * years + intervening_leap_days + + (lt.tm_yday - ut->tm_yday)); + offset = (60 * (60 * (24 * days + (lt.tm_hour - ut->tm_hour)) + + (lt.tm_min - ut->tm_min)) + + (lt.tm_sec - ut->tm_sec)); + } + + minutes = offset / ( offset < 0 ? -60 : 60 ); + + add_char ((offset < 0 ? '-' : '+')); + + if ( minutes / 600 != 0 ) + add_char (minutes / 600 + '0'); + else if ( pad != none ) + add_char ((pad == zero ? '0' : ' ')); + + length += + add_num3 (&string[length], + ((minutes / 60 ) % 10) * 100 + (minutes % 60), + max - length, pad); + break; + } case 'Z': #ifdef HAVE_TM_ZONE length += add_str (&string[length], tm->tm_zone, max - length);

2 participants
1 comments

[AC21.5R21.4] Document X11R7 distros often omit bitmaps 18 years

Stephen J. Turnbull

APPROVE COMMIT 21.5 RECOMMEND 21.4 Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.502 diff -u -r1.502 ChangeLog --- ChangeLog 16 May 2006 08:22:56 -0000 1.502 +++ ChangeLog 16 May 2006 15:30:22 -0000 ＠＠ -0,0 +1,4 ＠＠ +2006-05-17 Stephen J. Turnbull <stephen(a)xemacs.org> + + * PROBLEMS: X11R7 loses x11/bitmaps/gray. + Index: man/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.341 diff -u -r1.341 ChangeLog --- man/ChangeLog 16 May 2006 08:23:49 -0000 1.341 +++ man/ChangeLog 16 May 2006 15:30:23 -0000 ＠＠ -0,0 +1,6 ＠＠ +2006-05-17 Stephen J. Turnbull <stephen(a)xemacs.org> + + * xemacs-faq.texi (Q2.2.3): New node. + (Q2.2.2, Q2.3.1): Fix navigation references. + (Top, Installation): Add to menus. + Index: PROBLEMS =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/PROBLEMS,v retrieving revision 1.71 diff -u -r1.71 PROBLEMS --- PROBLEMS 16 Nov 2005 12:12:57 -0000 1.71 +++ PROBLEMS 16 May 2006 15:30:22 -0000 ＠＠ -44,6 +44,16 ＠＠ Much general information is in INSTALL. If it's covered in INSTALL, we don't repeat it here. +*** X11/bitmaps/gray (or other X11-related file) not found. + +The X11R6 distribution was monolithic, but the X11R7 distribution is +much more modular. Many OS distributions omit these bitmaps (assuming +nobody uses them, evidently). Your OS distribution should have a +developer's package containing these files, probably with a name +containing the string "bitmap". Known package names (you may need to +add an extension such as .deb or .rpm) include x11/xbitmaps (Ubuntu) +and xorg-x11-xbitmaps (Fedora Core 5). + *** How do I configure to get the buffer tabs/progress bars? These features depend on support for "native widgets". Use the Index: man/xemacs-faq.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/xemacs-faq.texi,v retrieving revision 1.88 diff -u -r1.88 xemacs-faq.texi --- man/xemacs-faq.texi 27 Dec 2005 18:51:21 -0000 1.88 +++ man/xemacs-faq.texi 16 May 2006 15:30:24 -0000 ＠＠ -293,6 +293,7 ＠＠ 2.2: Unix/Mac OS X Installation (Also Relevant to Cygwin, MinGW) * Q2.2.1:: Libraries in non-standard locations * Q2.2.2:: Why can't I strip XEmacs? +* Q2.2.3:: X11/bitmaps/gray (or other X11-related file) not found. 2.3: Windows Installation (Windows, Cygwin, MinGW) * Q2.3.1:: What exactly are all the different ways to build XEmacs under Windows? ＠＠ -3089,6 +3090,7 ＠＠ 2.2: Unix/Mac OS X Installation (Also Relevant to Cygwin, MinGW) * Q2.2.1:: Libraries in non-standard locations * Q2.2.2:: Why can't I strip XEmacs? +* Q2.2.3:: X11/bitmaps/gray (or other X11-related file) not found. 2.3: Windows Installation (Windows, Cygwin, MinGW) * Q2.3.1:: What exactly are all the different ways to build XEmacs under Windows? ＠＠ -3584,7 +3586,7 ＠＠ --with-site-prefixes=WHATEVER ＠end example -＠node Q2.2.2, Q2.3.1, Q2.2.1, Installation +＠node Q2.2.2, Q2.2.3, Q2.2.1, Installation ＠unnumberedsubsec Q2.2.2: Why can't I strip XEmacs? ＠email{cognot＠(a)fronsac.ensg.u-nancy.fr, Richard Cognot} writes: ＠＠ -3639,9 +3641,20 ＠＠＠end enumerate ＠end quotation +＠node Q2.2.3, Q2.3.1, Q2.2.2, Installation +＠unnumberedsubsec Q2.2.3: X11/bitmaps/gray (or other X11-related file) not found. + +The X11R6 distribution was monolithic, but the X11R7 distribution is +much more modular. Many OS distributions omit these bitmaps (assuming +nobody uses them, evidently). Your OS distribution should have a +developer's package containing these files, probably with a name +containing the string "bitmap". Known package names (you may need to +add an extension such as .deb or .rpm) include x11/xbitmaps (Ubuntu) +and xorg-x11-xbitmaps (Fedora Core 5). + ＠unnumberedsec 2.3: Windows Installation (Windows, Cygwin, MinGW) -＠node Q2.3.1, Q2.3.2, Q2.2.2, Installation +＠node Q2.3.1, Q2.3.2, Q2.2.3, Installation ＠unnumberedsubsec Q2.3.1: What exactly are all the different ways to build XEmacs under Windows? XEmacs can be built in several ways in the MS Windows environment. -- 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

[AC21.5R21.4] Improve geometry debugging messages 18 years

Stephen J. Turnbull

APPROVE COMMIT 21.5 RECOMMEND 21.4 Should apply to 21.4 but I haven't actually tested. This is "safe" in the sense that the builder has to directly specify the controlling #define, there's no ordinary way to configure it. So only developers explicitly trying to debug geometry management will ever run into it. I haven't found a way to completely test this, as I don't have a window manager that ever returns XtGeometryAlmost. :-) However, the Shell dimensions reported are now meaningful and correct. Based on a suggestion by Francois L'Archeveque. diff --git a/src/ChangeLog b/src/ChangeLog index cca5be4..12a7348 100644 --- src/ChangeLog +++ src/ChangeLog ＠＠ -0,0 +1,6 ＠＠ +2006-05-08 Stephen J. Turnbull <stephen(a)xemacs.org> + + * EmacsShell-sub.c (RootGeometryManager): + Change garbage to useful messages under DEBUG_GEOMETRY_MANAGEMENT. + Based on a suggestion by Francois L'Archeveque. + index ed82214..e335a4a 100644 --- src/EmacsShell-sub.c +++ src/EmacsShell-sub.c ＠＠ -339,11 +339,16 ＠＠ RootGeometryManager (Widget gw, result == XtGeometryAlmost ? "XtGeometryAlmost" : "XtGeometryDone"); if (reply->request_mode & CWWidth) - printf ("width returned;"); + printf ("width returned was %d%s", + reply->width, + reply->request_mode & CWHeight ? "; " : ".\n"); if (reply->request_mode & CWHeight) - printf ("height returned;"); - printf ("\n"); - printf (" resulting shell size: %d %d\n", reply->width, reply->height); + printf ("height returned was %d.\n", reply->height); + /* #### does this also need to depend on the result? + With XtGeometryYes there doesn't seem to be a useful reply object. */ + printf (" resulting shell size: %d %d\n", + reply->request_mode & CWWidth ? reply->width : w->core.width, + reply->request_mode & CWHeight ? reply->height : w->core.height); printf ("----------\n"); fflush (stdout); #endif -- 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.

3 participants
3 comments

[PATCH 21.4] Add line-beginning-position, line-end-position 18 years

Ville Skyttä

21.4 (already in 21.5) This patch adds line-beginning-position and line-end-position to the 21.4 series. We've seen these being erratically used here and there in packages a few times and lisp things out there outside of the packages tree uses these functions pretty often, I guess they're thought of as ubiquitous by many. The latest problem due to lack of these functions I'm aware of was reported as https://bugzilla.redhat.com/192481 : the current haskell-mode's indentation is broken on 21.4. Jerry, in case you're around, it could be a good idea to fix haskell-*indent.el to not use line-(beginning|end)-position in the meantime.

4 participants
6 comments

[PATCH] JIT Unicode code point support, and UTF-8 in compound text 18 years, 1 month

Aidan Kehoe

Stephen, this adds support for the ISO-IR 196 UTF-8 escape syntax in ISO 2022-oriented coding systems, as Sun used a few years ago for transferring Unicode in X11 selections, and as you and Markus Kuhn objected to back then. I sent the bulk of the patch to xemacs-patches last June, but one problem with it then was that it broke auto-save files and byte-compilation. The mapping from Unicode code points to XEmacs characters was not stable from one invocation to the next. Implementing the UTF-8 escape syntax and using it for just-in-time allocated code points side-steps that. I’ve been running the bulk of the patch for a year or more, but that implementing the UTF-8 escape syntax would solve the auto-save and byte-compilation problem only occurred to me last night, so that code (in mule-charset.c, mule-coding.c) is significantly newer. Given the issues my C code has provoked recently, I’d love testing from other people before committing. NB; with this patch committed, XEmacs supports the whole basic multilingual plane of Unicode, and doesn’t trash any characters in this space. SUPERSEDES 17077.60734.730479.39256(a)parhasard.net lisp/ChangeLog addition: 2006-05-21 Aidan Kehoe <kehoea(a)parhasard.net> * mule/mule-ccl.el: "X Emacs" -> "XEmacs" * mule/mule-ccl.el (ccl-compile-mule-to-unicode): New. * mule/mule-ccl.el (ccl-compile-unicode-to-mule): New. * mule/mule-ccl.el (ccl-dump-mule-to-unicode): New. * mule/mule-ccl.el (ccl-dump-unicode-to-mule): New. * mule/mule-ccl.el (define-ccl-program): Add two new CCL commands, and commands to describe them; document them. man/ChangeLog addition: 2006-05-21 Aidan Kehoe <kehoea(a)parhasard.net> * lispref/mule.texi (CCL Syntax): * lispref/mule.texi (CCL Statements): Describe the mule-to-unicode and unicode-to-mule statements; rename the section they are described in. src/ChangeLog addition: 2006-05-21 Aidan Kehoe <kehoea(a)parhasard.net> * charset.h: * charset.h (struct Lisp_Charset): * charset.h (CHARSET_ENCODE_AS_UTF_8): * charset.h (XCHARSET_ENCODE_AS_UTF_8): Add a flag `encode-as-utf-8' to the Mule charset structure; if set, it's an indication to ISO 2022-oriented coding systems that the characters of that charset should be encoded using the ISO-IR 196 UTF-8 escape syntax, since they're not members of any other well-known character set we're aware of. Make enum unicode_type, encode_unicode_char and Funicode_to_char available outside of unicode.c * lread.c: * event-xlike-inc.c: Use the charset.h declaration of Funicode_to_char, don't declare it ourselves. * general-slots.h: Make `ccl-program' and `encode-as-utf-8' available as symbols generally. * mule-ccl.c: Add CCL_MuleToUnicode, CCL_UnicodeToMule, implement them, enable and debug CCL_MAKE_CHAR, have CCL_WriteMultibyteChar2 segfault less, fix some grammar. * mule-charset.c (make_charset): * mule-charset.c (Fmake_charset): * mule-charset.c (Fcharset_property): * mule-charset.c (complex_vars_of_mule_charset): Require the encode_as_utf_8 property when calling make_charset (); accept it when creating a charset from Lisp in Fmake_charset. * mule-coding.c: * mule-coding.c (dynarr_add_2022_one_dimension): * mule-coding.c (dynarr_add_2022_two_dimensions): Add two convenience functions for iso2022_decode, to abstract out writing UTF-8 a little. * mule-coding.c (enum iso_esc_flag): Add one more state to reflect the existence of the UTF-8 escape. * mule-coding.c (struct iso2022_coding_stream): Add a counter variable to the state to permit handling variable-length UTF-8. * mule-coding.c (parse_iso2022_esc): Update the function to work with ISO_STATE_UTF_8; only the ESC % ＠ escape is processed in that state, everything else is ignored and passed through by the error handler. * mule-coding.c (iso2022_decode): * mule-coding.c (iso2022_designate): * mule-coding.c (iso2022_encode): Handle the UTF-8 escape sequences in reading and in writing ISO 2022. * redisplay-x.c (separate_textual_runs): Add a comment to the effect that the dimension stuff breaks when using CCL programs and registries to map to a bigger charset. * unicode.c: Add support for creating new characters on the fly as unknown Unicode code points are encountered. * unicode.c (get_free_codepoint): New. * unicode.c (unicode_to_ichar): Reworked to create new code points on the fly. * unicode.c (Funicode_to_char): Update the docstring. * unicode.c (struct unicode_coding_system): Move enum unicode_type into charset.h. * unicode.c (encode_unicode_char): encode_unicode_char isn't static any longer, mule-coding.c uses it. * unicode.c (syms_of_unicode): Make a couple of symbols available to unicode.c * unicode.c (vars_of_unicode): Tell the garbage collector about current_jit_charset, initialise it. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: src/unicode.c src/redisplay-x.c src/mule-coding.c src/mule-charset.c src/mule-ccl.c src/lread.c src/general-slots.h src/event-xlike-inc.c src/charset.h man/lispref/mule.texi lisp/mule/mule-ccl.el Index: lisp/mule/mule-ccl.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-ccl.el,v retrieving revision 1.9 diff -u -u -r1.9 mule-ccl.el --- lisp/mule/mule-ccl.el 2005/05/05 17:10:38 1.9 +++ lisp/mule/mule-ccl.el 2006/05/21 19:08:48 ＠＠ -5,20 +5,20 ＠＠ ;; Keywords: CCL, mule, multilingual, character set, coding-system -;; This file is part of X Emacs. +;; This file is part of XEmacs. -;; GNU Emacs is free software; you can redistribute it and/or modify +;; XEmacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. -;; GNU Emacs is distributed in the hope that it will be useful, +;; XEmacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the +;; along with XEmacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ＠＠ -48,7 +48,7 ＠＠ [if branch loop break repeat write-repeat write-read-repeat read read-if read-branch write call end read-multibyte-character write-multibyte-character - translate-character + translate-character mule-to-unicode unicode-to-mule iterate-multiple-map map-multiple map-single] "Vector of CCL commands (symbols).") ＠＠ -100,7 +100,9 ＠＠ write-multibyte-character translate-character translate-character-const-tbl - nil nil nil nil nil nil nil nil nil nil nil nil ; 0x04-0x0f + mule-to-unicode + unicode-to-mule + nil nil nil nil nil nil nil nil nil nil ; 0x06-0x0f iterate-multiple-map map-multiple map-single ＠＠ -830,6 +832,29 ＠＠ (ccl-embed-extended-command 'translate-character rrr RRR Rrr)))) nil) +;; Compile mule-to-unicode +(defun ccl-compile-mule-to-unicode (cmd) + (if (/= (length cmd) 3) + (error "CCL: Invalid number of arguments: %s" cmd)) + (let ((RRR (nth 1 cmd)) + (rrr (nth 2 cmd))) + (ccl-check-register RRR cmd) + (ccl-check-register rrr cmd) + (ccl-embed-extended-command 'mule-to-unicode RRR rrr 0)) + nil) + +;; Given a Unicode code point in register rrr, write the charset ID of the +;; corresponding character in RRR, and the Mule-CCL form of its code in rrr. +(defun ccl-compile-unicode-to-mule (cmd) + (if (/= (length cmd) 3) + (error "CCL: Invalid number of arguments: %s" cmd)) + (let ((rrr (nth 1 cmd)) + (RRR (nth 2 cmd))) + (ccl-check-register rrr cmd) + (ccl-check-register RRR cmd) + (ccl-embed-extended-command 'unicode-to-mule rrr RRR 0)) + nil) + (defun ccl-compile-iterate-multiple-map (cmd) (ccl-compile-multiple-map-function 'iterate-multiple-map cmd) nil) ＠＠ -1188,6 +1213,12 ＠＠ (let ((tbl (ccl-get-next-code))) (insert (format "translation table(%S) r%d r%d\n" tbl RRR rrr)))) +(defun ccl-dump-mule-to-unicode (rrr RRR Rrr) + (insert (format "change chars in r%d and r%d to unicode\n" RRR rrr))) + +(defun ccl-dump-unicode-to-mule (rrr RRR Rrr) + (insert (format "converter UCS code %d to a Mule char\n" rrr))) + (defun ccl-dump-iterate-multiple-map (rrr RRR Rrr) (let ((notbl (ccl-get-next-code)) (i 0) id) ＠＠ -1358,10 +1389,14 ＠＠ ;; Call CCL program whose name is ccl-program-name. CALL := (call ccl-program-name) + +TRANSLATE:= ;; Not implemented under XEmacs, except mule-to-unicode and + ;; unicode-to-mule. + (translate-character REG(table) REG(charset) REG(codepoint)) + | (translate-character SYMBOL REG(charset) REG(codepoint)) + | (mule-to-unicode REG(charset) REG(codepoint)) + | (unicode-to-mule REG(unicode,code) REG(CHARSET)) -TRANSLATE:= ;; Not implemented under XEmacs. - (translate-character REG(table) REG(charset) REG(codepoint)) - | (translate-character SYMBOL REG(charset) REG(codepoint)) MAP := (iterate-multiple-map REG REG MAP-IDs) | (map-multiple REG REG (MAP-SET)) ＠＠ -1373,8 +1408,8 ＠＠ ;; Terminate the CCL program. END := (end) -;; CCL registers. These can contain any integer value. As r7 is used by CCL -;; interpreter itself, its value change unexpectedly. +;; CCL registers. These can contain any integer value. As r7 is used by the +;; CCL interpreter itself, its value can change unexpectedly. REG := r0 | r1 | r2 | r3 | r4 | r5 | r6 | r7 ARG := REG | INT-OR-CHAR Index: man/lispref/mule.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/lispref/mule.texi,v retrieving revision 1.14 diff -u -u -r1.14 mule.texi --- man/lispref/mule.texi 2005/06/19 20:49:47 1.14 +++ man/lispref/mule.texi 2006/05/21 19:08:50 ＠＠ -1825,6 +1825,15 ＠＠ | (write INT-OR-CHAR) | (write string) | (write REG ARRAY) | string CALL := (call ccl-program-name) + + +TRANSLATE:= ;; Not implemented under XEmacs, except mule-to-unicode and + ;; unicode-to-mule. + (translate-character REG(table) REG(charset) REG(codepoint)) + | (translate-character SYMBOL REG(charset) REG(codepoint)) + | (mule-to-unicode REG(charset) REG(codepoint)) + | (unicode-to-mule REG(unicode,code) REG(CHARSET)) + END := (end) REG := r0 | r1 | r2 | r3 | r4 | r5 | r6 | r7 ＠＠ -1845,7 +1854,8 ＠＠ The Emacs Code Conversion Language provides the following statement types: ＠dfn{set}, ＠dfn{if}, ＠dfn{branch}, ＠dfn{loop}, ＠dfn{repeat}, -＠dfn{break}, ＠dfn{read}, ＠dfn{write}, ＠dfn{call}, and ＠dfn{end}. +＠dfn{break}, ＠dfn{read}, ＠dfn{write}, ＠dfn{call}, ＠dfn{translate} and +＠dfn{end}. ＠heading Set statement: ＠＠ -1933,11 +1943,31 ＠＠＠code{write} and ＠code{read} statements for the semantics of the I/O operations for each type of argument. -＠heading Other control statements: +＠heading Other statements: The ＠dfn{call} statement, written ＠samp{(call ＠var{ccl-program-name})}, executes a CCL program as a subroutine. It does not return a value to the caller, but can modify the register status. + + The ＠dfn{mule-to-unicode} statement translates an XEmacs character into a +UCS code point, using U+FFFD REPLACEMENT CHARACTER if the given XEmacs +character has no known corresponding code point. It takes two +arguments; the first is a register in which is stored the character set +ID of the character to be translated, and into which the UCS code is +stored. The second is a register which stores the XEmacs code of the +character in question; if it is from a multidimensional character set, +like most of the East Asian national sets, it's stored as ＠samp{((c1 << +8) & c2)}, where ＠samp{c1} is the first code, and ＠samp{c2} the second. +(That is, as a single integer, the high-order eight bits of which encode +the first position code, and the low order bits of which encode the +second.) + + The ＠dfn{unicode-to-mule} statement translates a Unicode code point +(an integer) into an XEmacs character. Its first argument is a register +containing the UCS code point; the code for the correspond character +will be written into this register, in the same format as for +＠samp{mule-to-unicode} The second argument is a register into which will +be written the character set ID of the converted character. The ＠dfn{end} statement, written ＠samp{(end)}, terminates the CCL program successfully, and returns to caller (which may be a CCL Index: src/charset.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/charset.h,v retrieving revision 1.12 diff -u -u -r1.12 charset.h --- src/charset.h 2005/10/24 10:07:34 1.12 +++ src/charset.h 2006/05/21 19:08:50 ＠＠ -229,6 +229,11 ＠＠ /* Which half of font to be used to display this character set */ int graphic; + /* If set, this charset should be written out in ISO-2022-based coding + systems using the escape sequence for UTF-8, not using our internal + representation and the associated real ISO 2022 designation. */ + unsigned int encode_as_utf_8 :1; + /* If set, this is a "temporary" charset created when we encounter an unknown final. This is so that we can successfully compile and load such files. We allow a real charset to be created on top ＠＠ -261,6 +266,7 ＠＠ #define CHARSET_REP_BYTES(cs) ((cs)->rep_bytes) #define CHARSET_COLUMNS(cs) ((cs)->columns) #define CHARSET_GRAPHIC(cs) ((cs)->graphic) +#define CHARSET_ENCODE_AS_UTF_8(cs) ((cs)->encode_as_utf_8) #define CHARSET_TYPE(cs) ((cs)->type) #define CHARSET_DIRECTION(cs) ((cs)->direction) #define CHARSET_FINAL(cs) ((cs)->final) ＠＠ -284,6 +290,7 ＠＠ #define XCHARSET_REP_BYTES(cs) CHARSET_REP_BYTES (XCHARSET (cs)) #define XCHARSET_COLUMNS(cs) CHARSET_COLUMNS (XCHARSET (cs)) #define XCHARSET_GRAPHIC(cs) CHARSET_GRAPHIC (XCHARSET (cs)) +#define XCHARSET_ENCODE_AS_UTF_8(cs) CHARSET_ENCODE_AS_UTF_8 (XCHARSET (cs)) #define XCHARSET_TYPE(cs) CHARSET_TYPE (XCHARSET (cs)) #define XCHARSET_DIRECTION(cs) CHARSET_DIRECTION (XCHARSET (cs)) #define XCHARSET_FINAL(cs) CHARSET_FINAL (XCHARSET (cs)) ＠＠ -548,5 +555,21 ＠＠ int ichar_to_unicode (Ichar chr); #endif /* MULE */ + +/* ISO 10646 UTF-16, UCS-4, UTF-8, UTF-7, etc. */ + +enum unicode_type +{ + UNICODE_UTF_16, + UNICODE_UTF_8, + UNICODE_UTF_7, + UNICODE_UCS_4 +}; + +void encode_unicode_char (Lisp_Object USED_IF_MULE (charset), int h, + int USED_IF_MULE (l), unsigned_char_dynarr *dst, + enum unicode_type type, unsigned int little_endian); + +EXFUN (Funicode_to_char, 2); /* In unicode.c. */ #endif /* INCLUDED_charset_h_ */ Index: src/event-xlike-inc.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/event-xlike-inc.c,v retrieving revision 1.2 diff -u -u -r1.2 event-xlike-inc.c --- src/event-xlike-inc.c 2005/06/26 18:05:04 1.2 +++ src/event-xlike-inc.c 2006/05/21 19:08:50 ＠＠ -27,8 +27,6 ＠＠ included here, not in event-xlike.c. However, event-xlike.c is always X-specific, whereas the following code isn't, in the GTK case. */ -EXFUN (Funicode_to_char, 2); /* In unicode.c. */ - static int #ifdef THIS_IS_GTK emacs_gtk_event_pending_p (int how_many) Index: src/general-slots.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/general-slots.h,v retrieving revision 1.16 diff -u -u -r1.16 general-slots.h --- src/general-slots.h 2005/07/03 21:48:01 1.16 +++ src/general-slots.h 2006/05/21 19:08:50 ＠＠ -73,6 +73,7 ＠＠ SYMBOL_KEYWORD (Q_callback_ex); SYMBOL (Qcancel); SYMBOL (Qcategory); +SYMBOL (Qccl_program); SYMBOL (Qcenter); SYMBOL (Qchain); SYMBOL (Qchange); ＠＠ -115,6 +116,7 ＠＠ SYMBOL (Qdynarr_overhead); SYMBOL (Qemergency); SYMBOL (Qempty); +SYMBOL (Qencode_as_utf_8); SYMBOL (Qeq); SYMBOL (Qeql); SYMBOL (Qequal); Index: src/lread.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lread.c,v retrieving revision 1.77 diff -u -u -r1.77 lread.c --- src/lread.c 2006/04/29 14:36:57 1.77 +++ src/lread.c 2006/05/21 19:08:52 ＠＠ -34,6 +34,7 ＠＠ #include "lstream.h" #include "opaque.h" #include "profile.h" +#include "charset.h" /* For Funicode_to_char. */ #include "sysfile.h" #include "sysfloat.h" ＠＠ -207,8 +208,6 ＠＠ static int locate_file_open_or_access_file (Ibyte *fn, int access_mode); EXFUN (Fread_from_string, 3); - -EXFUN (Funicode_to_char, 2); /* In unicode.c. */ /* When errors are signaled, the actual readcharfun should not be used as an argument if it is an lstream, so that lstreams don't escape Index: src/mule-ccl.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-ccl.c,v retrieving revision 1.28 diff -u -u -r1.28 mule-ccl.c --- src/mule-ccl.c 2005/06/26 19:05:07 1.28 +++ src/mule-ccl.c 2006/05/21 19:08:53 ＠＠ -461,7 +461,17 ＠＠ 1:ExtendedCOMMNDRrrRRRrrrXXXXX 2:ARGUMENT(Translation Table ID) */ +/* Translate a character whose code point is reg[rrr] and charset ID is + reg[RRR], into its Unicode code point, which will be written into + reg[rrr]. */ +#define CCL_MuleToUnicode 0x04 + +/* Translate a Unicode code point, in reg[rrr], into a Mule character, + writing the charset ID into reg[RRR] and the code point into reg[Rrr]. */ + +#define CCL_UnicodeToMule 0x05 + /* Iterate looking up MAPs for reg[rrr] starting from the Nth (N = reg[RRR]) MAP until some value is found. ＠＠ -577,7 +587,6 ＠＠ ... N:SEPARATOR_z (< 0) */ - #define MAX_MAP_SET_LEVEL 30 typedef struct ＠＠ -837,26 +846,41 ＠＠ CODE to that invalid byte. */ /* On XEmacs, TranslateCharacter is not supported. Thus, this - macro is not used. */ -#if 0 + macro is only used in the MuleToUnicode transformation. */ #define CCL_MAKE_CHAR(charset, code, c) \ do { \ - if ((charset) == CHARSET_ASCII) \ - (c) = (code) & 0xFF; \ - else if (CHARSET_DEFINED_P (charset) \ - && ((code) & 0x7F) >= 32 \ - && ((code) < 256 || ((code >> 7) & 0x7F) >= 32)) \ + if ((charset) == LEADING_BYTE_ASCII) \ { \ - int c1 = (code) & 0x7F, c2 = 0; \ + c = (code) & 0xFF; \ + } \ + else if ((charset) == LEADING_BYTE_CONTROL_1) \ + { \ + c = ((code) & 0xFF) - 0xA0; \ + } \ + else if (!NILP(charset_by_leading_byte(charset)) \ + && ((code) >= 32) \ + && ((code) < 256 || ((code >> 8) & 0x7F) >= 32)) \ + { \ + int c1, c2 = 0; \ \ - if ((code) >= 256) \ - c2 = c1, c1 = ((code) >> 7) & 0x7F; \ - (c) = make_ichar (charset, c1, c2); \ + if ((code) < 256) \ + { \ + c1 = (code) & 0x7F; \ + c2 = 0; \ + } \ + else \ + { \ + c1 = ((code) >> 8) & 0x7F; \ + c2 = (code) & 0x7F; \ + } \ + c = make_ichar (charset_by_leading_byte(charset), \ + c1, c2); \ } \ else \ - (c) = (code) & 0xFF; \ - } while (0) -#endif + { \ + c = (code) & 0xFF; \ + } \ + } while (0) /* Execute CCL code on SRC_BYTES length text at SOURCE. The resulting ＠＠ -1392,9 +1416,9 ＠＠ case CCL_TranslateCharacter: #if 0 - /* XEmacs does not have translate_char, and its - equivalent nor. We do nothing on this operation. */ - CCL_MAKE_CHAR (reg[RRR], reg[rrr], i); + /* XEmacs does not have translate_char, nor an + equivalent. We do nothing on this operation. */ + CCL_MAKE_CHAR(reg[RRR], reg[rrr], op); op = translate_char (GET_TRANSLATION_TABLE (reg[Rrr]), i, -1, 0, 0); SPLIT_CHAR (op, reg[RRR], i, j); ＠＠ -1420,6 +1444,56 ＠＠ reg[rrr] = i; #endif break; + + case CCL_MuleToUnicode: + { + Lisp_Object ucs; + + CCL_MAKE_CHAR(reg[rrr], reg[RRR], op); + ucs = Fchar_to_unicode(make_char(op)); + + if (NILP(ucs)) + { + /* Uhh, char-to-unicode doesn't return nil at the + moment, only ever -1. */ + reg[rrr] = 0xFFFD; /* REPLACEMENT CHARACTER */ + } + else + { + reg[rrr] = XINT(ucs); + if (-1 == reg[rrr]) + { + reg[rrr] = 0xFFFD; /* REPLACEMENT CHARACTER */ + } + } + break; + } + + case CCL_UnicodeToMule: + { + Lisp_Object scratch; + + scratch = Funicode_to_char(make_int(reg[rrr]), Qnil); + + if (!NILP(scratch)) + { + op = XCHAR(scratch); + BREAKUP_ICHAR (op, scratch, i, j); + reg[RRR] = XCHARSET_ID(scratch); + + if (j != 0) + { + i = (i << 8) | j; + } + + reg[rrr] = i; + } + else + { + reg[rrr] = reg[RRR] = 0; + } + break; + } case CCL_IterateMultipleMap: { Index: src/mule-charset.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-charset.c,v retrieving revision 1.46 diff -u -u -r1.46 mule-charset.c --- src/mule-charset.c 2005/10/25 11:16:26 1.46 +++ src/mule-charset.c 2006/05/21 19:08:53 ＠＠ -190,7 +190,7 ＠＠ int type, int columns, int graphic, Ibyte final, int direction, Lisp_Object short_name, Lisp_Object long_name, Lisp_Object doc, - Lisp_Object reg, int overwrite) + Lisp_Object reg, int overwrite, int encode_as_utf_8) { Lisp_Object obj; Lisp_Charset *cs; ＠＠ -240,6 +240,7 ＠＠ CHARSET_FINAL (cs) = final; CHARSET_DOC_STRING (cs) = doc; CHARSET_REGISTRY (cs) = reg; + CHARSET_ENCODE_AS_UTF_8 (cs) = encode_as_utf_8; CHARSET_CCL_PROGRAM (cs) = Qnil; CHARSET_REVERSE_DIRECTION_CHARSET (cs) = Qnil; ＠＠ -454,6 +455,12 ＠＠ is passed the octets of the character, with the high bit cleared and set depending upon whether the value of the `graphic' property is 0 or 1. +`encode-as-utf-8' + If 1, the charset will be written out using the UTF-8 escape + syntax in ISO 2022-oriented coding systems. Used for + supporting characters we know are part of Unicode but not of + any other known character set in escape-quoted and compound + text. */ (name, doc_string, props)) { ＠＠ -465,6 +472,7 ＠＠ Lisp_Object charset = Qnil; Lisp_Object ccl_program = Qnil; Lisp_Object short_name = Qnil, long_name = Qnil; + int encode_as_utf_8 = 0; Lisp_Object existing_charset; int temporary = UNBOUNDP (name); ＠＠ -546,6 +554,14 ＠＠ invalid_constant ("Invalid value for `direction'", value); } + else if (EQ (keyword, Qencode_as_utf_8)) + { + CHECK_INT (value); + encode_as_utf_8 = XINT (value); + if (encode_as_utf_8 < 0 || encode_as_utf_8 > 1) + invalid_constant ("Invalid value for `encode-as-utf-8'", value); + } + else if (EQ (keyword, Qfinal)) { CHECK_CHAR_COERCE_INT (value); ＠＠ -553,7 +569,6 ＠＠ if (final < '0' || final > '~') invalid_constant ("Invalid value for `final'", value); } - else if (EQ (keyword, Qccl_program)) { struct ccl_program test_ccl; ＠＠ -612,7 +627,8 ＠＠ charset = make_charset (id, name, dimension + 2, type, columns, graphic, final, direction, short_name, long_name, - doc_string, registry, !NILP (existing_charset)); + doc_string, registry, !NILP (existing_charset), + encode_as_utf_8); XCHARSET (charset)->temporary = temporary; if (!NILP (ccl_program)) ＠＠ -641,7 +657,7 ＠＠ (charset, new_name)) { Lisp_Object new_charset = Qnil; - int id, dimension, columns, graphic; + int id, dimension, columns, graphic, encode_as_utf_8; Ibyte final; int direction, type; Lisp_Object registry, doc_string, short_name, long_name; ＠＠ -672,10 +688,11 ＠＠ short_name = CHARSET_SHORT_NAME (cs); long_name = CHARSET_LONG_NAME (cs); registry = CHARSET_REGISTRY (cs); + encode_as_utf_8 = CHARSET_ENCODE_AS_UTF_8 (cs); new_charset = make_charset (id, new_name, dimension + 2, type, columns, graphic, final, direction, short_name, long_name, - doc_string, registry, 0); + doc_string, registry, 0, encode_as_utf_8); CHARSET_REVERSE_DIRECTION_CHARSET (cs) = new_charset; XCHARSET_REVERSE_DIRECTION_CHARSET (new_charset) = charset; ＠＠ -807,6 +824,7 ＠＠ if (EQ (prop, Qfinal)) return make_char (CHARSET_FINAL (cs)); if (EQ (prop, Qchars)) return make_int (CHARSET_CHARS (cs)); if (EQ (prop, Qregistry)) return CHARSET_REGISTRY (cs); + if (EQ (prop, Qencode_as_utf_8)) return CHARSET_ENCODE_AS_UTF_8 (cs); if (EQ (prop, Qccl_program)) return CHARSET_CCL_PROGRAM (cs); if (EQ (prop, Qdirection)) return CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? Ql2r : Qr2l; ＠＠ -1040,7 +1058,7 ＠＠ build_string ("ASCII"), build_msg_string ("ASCII"), build_msg_string ("ASCII (ISO646 IRV)"), - build_string ("\$iso8859-[0-9]*\\|-ascii\$"), 0); + build_string ("\$iso8859-[0-9]*\\|-ascii\$"), 0, 0); staticpro (&Vcharset_control_1); Vcharset_control_1 = make_charset (LEADING_BYTE_CONTROL_1, Qcontrol_1, 2, ＠＠ -1049,7 +1067,7 ＠＠ build_string ("C1"), build_msg_string ("Control characters"), build_msg_string ("Control characters 128-191"), - build_string (""), 0); + build_string (""), 0, 0); staticpro (&Vcharset_latin_iso8859_1); Vcharset_latin_iso8859_1 = make_charset (LEADING_BYTE_LATIN_ISO8859_1, Qlatin_iso8859_1, 2, ＠＠ -1058,7 +1076,7 ＠＠ build_string ("Latin-1"), build_msg_string ("ISO8859-1 (Latin-1)"), build_msg_string ("ISO8859-1 (Latin-1)"), - build_string ("iso8859-1"), 0); + build_string ("iso8859-1"), 0, 0); staticpro (&Vcharset_latin_iso8859_2); Vcharset_latin_iso8859_2 = make_charset (LEADING_BYTE_LATIN_ISO8859_2, Qlatin_iso8859_2, 2, ＠＠ -1067,7 +1085,7 ＠＠ build_string ("Latin-2"), build_msg_string ("ISO8859-2 (Latin-2)"), build_msg_string ("ISO8859-2 (Latin-2)"), - build_string ("iso8859-2"), 0); + build_string ("iso8859-2"), 0, 0); staticpro (&Vcharset_latin_iso8859_3); Vcharset_latin_iso8859_3 = make_charset (LEADING_BYTE_LATIN_ISO8859_3, Qlatin_iso8859_3, 2, ＠＠ -1076,7 +1094,7 ＠＠ build_string ("Latin-3"), build_msg_string ("ISO8859-3 (Latin-3)"), build_msg_string ("ISO8859-3 (Latin-3)"), - build_string ("iso8859-3"), 0); + build_string ("iso8859-3"), 0, 0); staticpro (&Vcharset_latin_iso8859_4); Vcharset_latin_iso8859_4 = make_charset (LEADING_BYTE_LATIN_ISO8859_4, Qlatin_iso8859_4, 2, ＠＠ -1085,7 +1103,7 ＠＠ build_string ("Latin-4"), build_msg_string ("ISO8859-4 (Latin-4)"), build_msg_string ("ISO8859-4 (Latin-4)"), - build_string ("iso8859-4"), 0); + build_string ("iso8859-4"), 0, 0); staticpro (&Vcharset_thai_tis620); Vcharset_thai_tis620 = make_charset (LEADING_BYTE_THAI_TIS620, Qthai_tis620, 2, ＠＠ -1094,7 +1112,7 ＠＠ build_string ("TIS620"), build_msg_string ("TIS620 (Thai)"), build_msg_string ("TIS620.2529 (Thai)"), - build_string ("tis620"),0); + build_string ("tis620"), 0, 0); staticpro (&Vcharset_greek_iso8859_7); Vcharset_greek_iso8859_7 = make_charset (LEADING_BYTE_GREEK_ISO8859_7, Qgreek_iso8859_7, 2, ＠＠ -1103,7 +1121,7 ＠＠ build_string ("ISO8859-7"), build_msg_string ("ISO8859-7 (Greek)"), build_msg_string ("ISO8859-7 (Greek)"), - build_string ("iso8859-7"), 0); + build_string ("iso8859-7"), 0, 0); staticpro (&Vcharset_arabic_iso8859_6); Vcharset_arabic_iso8859_6 = make_charset (LEADING_BYTE_ARABIC_ISO8859_6, Qarabic_iso8859_6, 2, ＠＠ -1112,7 +1130,7 ＠＠ build_string ("ISO8859-6"), build_msg_string ("ISO8859-6 (Arabic)"), build_msg_string ("ISO8859-6 (Arabic)"), - build_string ("iso8859-6"), 0); + build_string ("iso8859-6"), 0, 0); staticpro (&Vcharset_hebrew_iso8859_8); Vcharset_hebrew_iso8859_8 = make_charset (LEADING_BYTE_HEBREW_ISO8859_8, Qhebrew_iso8859_8, 2, ＠＠ -1121,7 +1139,7 ＠＠ build_string ("ISO8859-8"), build_msg_string ("ISO8859-8 (Hebrew)"), build_msg_string ("ISO8859-8 (Hebrew)"), - build_string ("iso8859-8"), 0); + build_string ("iso8859-8"), 0, 0); staticpro (&Vcharset_katakana_jisx0201); Vcharset_katakana_jisx0201 = make_charset (LEADING_BYTE_KATAKANA_JISX0201, Qkatakana_jisx0201, 2, ＠＠ -1130,7 +1148,7 ＠＠ build_string ("JISX0201 Kana"), build_msg_string ("JISX0201.1976 (Japanese Kana)"), build_msg_string ("JISX0201.1976 Japanese Kana"), - build_string ("jisx0201.1976"), 0); + build_string ("jisx0201.1976"), 0, 0); staticpro (&Vcharset_latin_jisx0201); Vcharset_latin_jisx0201 = make_charset (LEADING_BYTE_LATIN_JISX0201, Qlatin_jisx0201, 2, ＠＠ -1139,7 +1157,7 ＠＠ build_string ("JISX0201 Roman"), build_msg_string ("JISX0201.1976 (Japanese Roman)"), build_msg_string ("JISX0201.1976 Japanese Roman"), - build_string ("jisx0201.1976"), 0); + build_string ("jisx0201.1976"), 0, 0); staticpro (&Vcharset_cyrillic_iso8859_5); Vcharset_cyrillic_iso8859_5 = make_charset (LEADING_BYTE_CYRILLIC_ISO8859_5, Qcyrillic_iso8859_5, 2, ＠＠ -1148,7 +1166,7 ＠＠ build_string ("ISO8859-5"), build_msg_string ("ISO8859-5 (Cyrillic)"), build_msg_string ("ISO8859-5 (Cyrillic)"), - build_string ("iso8859-5"), 0); + build_string ("iso8859-5"), 0, 0); staticpro (&Vcharset_latin_iso8859_9); Vcharset_latin_iso8859_9 = make_charset (LEADING_BYTE_LATIN_ISO8859_9, Qlatin_iso8859_9, 2, ＠＠ -1157,7 +1175,7 ＠＠ build_string ("Latin-5"), build_msg_string ("ISO8859-9 (Latin-5)"), build_msg_string ("ISO8859-9 (Latin-5)"), - build_string ("iso8859-9"), 0); + build_string ("iso8859-9"), 0, 0); staticpro (&Vcharset_latin_iso8859_15); Vcharset_latin_iso8859_15 = make_charset (LEADING_BYTE_LATIN_ISO8859_15, Qlatin_iso8859_15, 2, ＠＠ -1166,7 +1184,7 ＠＠ build_string ("Latin-9"), build_msg_string ("ISO8859-15 (Latin-9)"), build_msg_string ("ISO8859-15 (Latin-9)"), - build_string ("iso8859-15"), 0); + build_string ("iso8859-15"), 0, 0); staticpro (&Vcharset_japanese_jisx0208_1978); Vcharset_japanese_jisx0208_1978 = make_charset (LEADING_BYTE_JAPANESE_JISX0208_1978, Qjapanese_jisx0208_1978, 3, ＠＠ -1176,7 +1194,7 ＠＠ build_msg_string ("JISX0208.1978 (Japanese)"), build_msg_string ("JISX0208.1978 Japanese Kanji (so called \"old JIS\")"), - build_string ("\$jisx0208\\|jisc6226\$\\.1978"), 0); + build_string ("\$jisx0208\\|jisc6226\$\\.1978"), 0, 0); staticpro (&Vcharset_chinese_gb2312); Vcharset_chinese_gb2312 = make_charset (LEADING_BYTE_CHINESE_GB2312, Qchinese_gb2312, 3, ＠＠ -1185,7 +1203,7 ＠＠ build_string ("GB2312"), build_msg_string ("GB2312)"), build_msg_string ("GB2312 Chinese simplified"), - build_string ("gb2312"), 0); + build_string ("gb2312"), 0, 0); staticpro (&Vcharset_japanese_jisx0208); Vcharset_japanese_jisx0208 = make_charset (LEADING_BYTE_JAPANESE_JISX0208, Qjapanese_jisx0208, 3, ＠＠ -1194,7 +1212,7 ＠＠ build_string ("JISX0208"), build_msg_string ("JISX0208.1983/1990 (Japanese)"), build_msg_string ("JISX0208.1983/1990 Japanese Kanji"), - build_string ("jisx0208.19\$83\\|90\$"), 0); + build_string ("jisx0208.19\$83\\|90\$"), 0, 0); staticpro (&Vcharset_korean_ksc5601); Vcharset_korean_ksc5601 = make_charset (LEADING_BYTE_KOREAN_KSC5601, Qkorean_ksc5601, 3, ＠＠ -1203,7 +1221,7 ＠＠ build_string ("KSC5601"), build_msg_string ("KSC5601 (Korean"), build_msg_string ("KSC5601 Korean Hangul and Hanja"), - build_string ("ksc5601"), 0); + build_string ("ksc5601"), 0, 0); staticpro (&Vcharset_japanese_jisx0212); Vcharset_japanese_jisx0212 = make_charset (LEADING_BYTE_JAPANESE_JISX0212, Qjapanese_jisx0212, 3, ＠＠ -1212,7 +1230,7 ＠＠ build_string ("JISX0212"), build_msg_string ("JISX0212 (Japanese)"), build_msg_string ("JISX0212 Japanese Supplement"), - build_string ("jisx0212"), 0); + build_string ("jisx0212"), 0, 0); #define CHINESE_CNS_PLANE_RE(n) "cns11643[.-]\$.*[.-]\$?" n "$" staticpro (&Vcharset_chinese_cns11643_1); ＠＠ -1224,7 +1242,7 ＠＠ build_msg_string ("CNS11643-1 (Chinese traditional)"), build_msg_string ("CNS 11643 Plane 1 Chinese traditional"), - build_string (CHINESE_CNS_PLANE_RE("1")), 0); + build_string (CHINESE_CNS_PLANE_RE("1")), 0, 0); staticpro (&Vcharset_chinese_cns11643_2); Vcharset_chinese_cns11643_2 = make_charset (LEADING_BYTE_CHINESE_CNS11643_2, Qchinese_cns11643_2, 3, ＠＠ -1234,7 +1252,7 ＠＠ build_msg_string ("CNS11643-2 (Chinese traditional)"), build_msg_string ("CNS 11643 Plane 2 Chinese traditional"), - build_string (CHINESE_CNS_PLANE_RE("2")), 0); + build_string (CHINESE_CNS_PLANE_RE("2")), 0, 0); staticpro (&Vcharset_chinese_big5_1); Vcharset_chinese_big5_1 = make_charset (LEADING_BYTE_CHINESE_BIG5_1, Qchinese_big5_1, 3, ＠＠ -1244,7 +1262,7 ＠＠ build_msg_string ("Big5 (Level-1)"), build_msg_string ("Big5 Level-1 Chinese traditional"), - build_string ("big5"), 0); + build_string ("big5"), 0, 0); staticpro (&Vcharset_chinese_big5_2); Vcharset_chinese_big5_2 = make_charset (LEADING_BYTE_CHINESE_BIG5_2, Qchinese_big5_2, 3, ＠＠ -1254,7 +1272,7 ＠＠ build_msg_string ("Big5 (Level-2)"), build_msg_string ("Big5 Level-2 Chinese traditional"), - build_string ("big5"), 0); + build_string ("big5"), 0, 0); #ifdef ENABLE_COMPOSITE_CHARS ＠＠ -1269,7 +1287,7 ＠＠ build_string ("Composite"), build_msg_string ("Composite characters"), build_msg_string ("Composite characters"), - build_string (""), 0); + build_string (""), 0, 0); #else /* We create a hack so that we have a way of storing ESC 0 and ESC 1 sequences as "characters", so that they will be output correctly. */ ＠＠ -1281,6 +1299,6 ＠＠ build_string ("Composite hack"), build_msg_string ("Composite characters hack"), build_msg_string ("Composite characters hack"), - build_string (""), 0); + build_string (""), 0, 0); #endif /* ENABLE_COMPOSITE_CHARS */ } Index: src/mule-coding.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-coding.c,v retrieving revision 1.37 diff -u -u -r1.37 mule-coding.c --- src/mule-coding.c 2006/05/11 08:58:01 1.37 +++ src/mule-coding.c 2006/05/21 19:08:54 ＠＠ -96,6 +96,42 ＠＠ return c >= 0xA1 && c <= 0xDF; } +inline static void +dynarr_add_2022_one_dimension (Lisp_Object charset, Ibyte c, + unsigned char charmask, + unsigned_char_dynarr *dst) +{ + if (XCHARSET_ENCODE_AS_UTF_8 (charset)) + { + encode_unicode_char (charset, c & charmask, 0, + dst, UNICODE_UTF_8, 0); + } + else + { + Dynarr_add (dst, c & charmask); + } +} + +inline static void +dynarr_add_2022_two_dimensions (Lisp_Object charset, Ibyte c, + unsigned int ch, + unsigned char charmask, + unsigned_char_dynarr *dst) +{ + if (XCHARSET_ENCODE_AS_UTF_8 (charset)) + { + encode_unicode_char (charset, + ch & charmask, + c & charmask, dst, + UNICODE_UTF_8, 0); + } + else + { + Dynarr_add (dst, ch & charmask); + Dynarr_add (dst, c & charmask); + } +} + /* Convert Shift-JIS data to internal format. */ static Bytecount ＠＠ -671,6 +707,10 ＠＠ ISO_ESC_2_4, /* We've seen ESC $. This indicates that we're designating a multi-byte, rather than a single-byte, character set. */ + ISO_ESC_2_5, /* We've seen ESC %. This indicates an escape to a + Unicode coding system; the only one of these + we're prepared to deal with is UTF-8, which has + the next character as G. */ ISO_ESC_2_8, /* We've seen ESC 0x28, i.e. ESC (. This means designate a 94-character character set into G0. */ ＠＠ -752,11 +792,15 ＠＠ character constructed by overstriking two or more characters). */ #define ISO_STATE_COMPOSITE (1 << 5) +/* If set, we're processing UTF-8 encoded data within ISO-2022 + processing. */ +#define ISO_STATE_UTF_8 (1 << 6) + /* ISO_STATE_LOCK is the mask of flags that remain on until explicitly turned off when in the ISO2022 encoder/decoder. Other flags are turned off at the end of processing each character or escape sequence. */ # define ISO_STATE_LOCK \ - (ISO_STATE_COMPOSITE | ISO_STATE_R2L) + (ISO_STATE_COMPOSITE | ISO_STATE_R2L | ISO_STATE_UTF_8) typedef struct charset_conversion_spec { ＠＠ -922,6 +966,9 ＠＠ Lisp_Object current_charset; int current_half; int current_char_boundary; + + /* Used for handling UTF-8. */ + unsigned char counter; }; static const struct memory_description ccs_description_1[] = ＠＠ -1344,6 +1391,15 ＠＠ } case ISO_ESC: + + /* The only available ISO 2022 sequence in UTF-8 mode is ESC % ＠, to + exit from it. If we see any other escape sequence, pass it through + in the error handler. */ + if (*flags & ISO_STATE_UTF_8 && '%' != c) + { + return 0; + } + switch (c) { /**** single shift ****/ ＠＠ -1411,6 +1467,10 ＠＠ iso->esc = ISO_ESC_2_4; goto not_done; + case '%': /* Prefix to an escape to or from Unicode. */ + iso->esc = ISO_ESC_2_5; + goto not_done; + default: if (0x28 <= c && c <= 0x2F) { ＠＠ -1432,9 +1492,31 ＠＠ /* bzzzt! */ goto error; } - - + /* ISO-IR 196 UTF-8 support. */ + case ISO_ESC_2_5: + if ('G' == c) + { + /* Activate UTF-8 mode. */ + *flags &= ISO_STATE_LOCK; + *flags |= ISO_STATE_UTF_8; + iso->esc = ISO_ESC_NOTHING; + return 1; + } + else if ('＠' == c) + { + /* Deactive UTF-8 mode. */ + *flags &= ISO_STATE_LOCK; + *flags &= ~(ISO_STATE_UTF_8); + iso->esc = ISO_ESC_NOTHING; + return 1; + } + else + { + /* Oops, we don't support the other UTF-? coding systems within + ISO 2022, only in their own context. */ + goto error; + } /**** directionality ****/ case ISO_ESC_5_11: /* ISO6429 direction control */ ＠＠ -1822,6 +1904,87 ＠＠ } ch = 0; } + else if (flags & ISO_STATE_UTF_8) + { + unsigned char counter = data->counter; + Ibyte work[MAX_ICHAR_LEN]; + int len; + Lisp_Object chr; + + if (ISO_CODE_ESC == c) + { + /* Allow the escape sequence parser to end the UTF-8 state. */ + flags |= ISO_STATE_ESCAPE; + data->esc = ISO_ESC; + data->esc_bytes_index = 1; + continue; + } + + switch (counter) + { + case 0: + if (c >= 0xfc) + { + ch = c & 0x01; + counter = 5; + } + else if (c >= 0xf8) + { + ch = c & 0x03; + counter = 4; + } + else if (c >= 0xf0) + { + ch = c & 0x07; + counter = 3; + } + else if (c >= 0xe0) + { + ch = c & 0x0f; + counter = 2; + } + else if (c >= 0xc0) + { + ch = c & 0x1f; + counter = 1; + } + else + /* ASCII, or the lower control characters. */ + Dynarr_add (dst, c); + + break; + case 1: + ch = (ch << 6) | (c & 0x3f); + chr = Funicode_to_char(make_int(ch), Qnil); + + if (!NILP (chr)) + { + assert(CHARP(chr)); + len = set_itext_ichar (work, XCHAR(chr)); + Dynarr_add_many (dst, work, len); + } + else + { + /* Shouldn't happen, this code should only be enabled in + XEmacsen with support for all of Unicode. */ + Dynarr_add (dst, LEADING_BYTE_JAPANESE_JISX0208); + Dynarr_add (dst, 34 + 128); + Dynarr_add (dst, 46 + 128); + } + + ch = 0; + counter = 0; + break; + default: + ch = (ch << 6) | (c & 0x3f); + counter--; + } + + if (str->eof) + DECODE_OUTPUT_PARTIAL_CHAR (ch, dst); + + data->counter = counter; + } else if (byte_c0_p (c) || byte_c1_p (c)) { /* Control characters */ ＠＠ -2010,6 +2173,7 ＠＠ } Dynarr_add (dst, ISO_CODE_ESC); + switch (type) { case CHARSET_TYPE_94: ＠＠ -2102,6 +2266,14 ＠＠ { /* Processing ASCII character */ ch = 0; + if (flags & ISO_STATE_UTF_8) + { + Dynarr_add (dst, ISO_CODE_ESC); + Dynarr_add (dst, '%'); + Dynarr_add (dst, '＠'); + flags &= ~(ISO_STATE_UTF_8); + } + restore_left_to_right_direction (codesys, dst, &flags, 0); /* Make sure G0 contains ASCII */ ＠＠ -2145,18 +2317,43 ＠＠ Dynarr_add (dst, c); char_boundary = 1; } - else if (ibyte_leading_byte_p (c) || ibyte_leading_byte_p (ch)) { /* Processing Leading Byte */ ch = 0; charset = charset_by_leading_byte (c); if (leading_byte_prefix_p (c)) - ch = c; + { + ch = c; + } + else if (XCHARSET_ENCODE_AS_UTF_8 (charset)) + { + assert (!EQ (charset, Vcharset_control_1) + && !EQ (charset, Vcharset_composite)); + + /* If the character set is to be encoded as UTF-8, the escape + is always the same. */ + if (!(flags & ISO_STATE_UTF_8)) + { + Dynarr_add (dst, ISO_CODE_ESC); + Dynarr_add (dst, '%'); + Dynarr_add (dst, 'G'); + flags |= ISO_STATE_UTF_8; + } + } else if (!EQ (charset, Vcharset_control_1) && !EQ (charset, Vcharset_composite)) { int reg; + /* End the UTF-8 state. */ + if (flags & ISO_STATE_UTF_8) + { + Dynarr_add (dst, ISO_CODE_ESC); + Dynarr_add (dst, '%'); + Dynarr_add (dst, '＠'); + flags &= ~(ISO_STATE_UTF_8); + } + ensure_correct_direction (XCHARSET_DIRECTION (charset), codesys, dst, &flags, 0); ＠＠ -2274,12 +2471,14 ＠＠ switch (XCHARSET_REP_BYTES (charset)) { case 2: - Dynarr_add (dst, c & charmask); + dynarr_add_2022_one_dimension (charset, c, + charmask, dst); break; case 3: if (XCHARSET_PRIVATE_P (charset)) { - Dynarr_add (dst, c & charmask); + dynarr_add_2022_one_dimension (charset, c, + charmask, dst); ch = 0; } else if (ch) ＠＠ -2287,6 +2486,9 ＠＠ #ifdef ENABLE_COMPOSITE_CHARS if (EQ (charset, Vcharset_composite)) { + /* #### Hasn't been written to handle composite + characters yet. */ + assert(!XCHARSET_ENCODE_AS_UTF_8 (charset)) if (in_composite) { /* #### Bother! We don't know how to ＠＠ -2310,8 +2512,8 ＠＠ else #endif /* ENABLE_COMPOSITE_CHARS */ { - Dynarr_add (dst, ch & charmask); - Dynarr_add (dst, c & charmask); + dynarr_add_2022_two_dimensions (charset, c, ch, + charmask, dst); } ch = 0; } ＠＠ -2324,8 +2526,8 ＠＠ case 4: if (ch) { - Dynarr_add (dst, ch & charmask); - Dynarr_add (dst, c & charmask); + dynarr_add_2022_two_dimensions (charset, c, ch, + charmask, dst); ch = 0; } else Index: src/redisplay-x.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-x.c,v retrieving revision 1.41 diff -u -u -r1.41 redisplay-x.c --- src/redisplay-x.c 2005/11/26 11:46:10 1.41 +++ src/redisplay-x.c 2006/05/21 19:08:55 ＠＠ -230,6 +230,10 ＠＠ } #endif /* MULE */ *text_storage++ = (unsigned char) byte1; + /* This dimension stuff is broken if you want to use a two-dimensional + X11 font to display a single-dimensional character set, as is + appropriate for the IPA (use one of the -iso10646-1 fonts) or some + of the other non-standard character sets. */ if (dimension == 2) *text_storage++ = (unsigned char) byte2; #else /* USE_XFT */ Index: src/unicode.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/unicode.c,v retrieving revision 1.32 diff -u -u -r1.32 unicode.c --- src/unicode.c 2006/04/22 15:18:55 1.32 +++ src/unicode.c 2006/05/21 19:08:56 ＠＠ -321,6 +321,10 ＠＠ Lisp_Object Qignore_first_column; +Lisp_Object Vcurrent_jit_charset; +Lisp_Object Qlast_allocated_character; +Lisp_Object Qccl_encode_to_ucs_2; + /************************************************************************/ /* Unicode implementation */ ＠＠ -1001,12 +1005,73 ＠＠ } static Ichar +get_free_codepoint(Lisp_Object charset) +{ + Lisp_Object name = Fcharset_name(charset); + Lisp_Object zeichen = Fget(name, Qlast_allocated_character, Qnil); + Ichar res; + + /* Only allow this with the 96x96 character sets we are using for + temporary Unicode support. */ + assert(2 == XCHARSET_DIMENSION(charset) && 96 == XCHARSET_CHARS(charset)); + + if (!NILP(zeichen)) + { + int c1, c2; + + BREAKUP_ICHAR(XCHAR(zeichen), charset, c1, c2); + + if (127 == c1 && 127 == c2) + { + /* We've already used the hightest-numbered character in this + set--tell our caller to create another. */ + return -1; + } + + if (127 == c2) + { + ++c1; + c2 = 0x20; + } + else + { + ++c2; + } + + res = make_ichar(charset, c1, c2); + Fput(name, Qlast_allocated_character, make_char(res)); + } + else + { + res = make_ichar(charset, 32, 32); + Fput(name, Qlast_allocated_character, make_char(res)); + } + return res; +} + +/* The just-in-time creation of XEmacs characters that correspond to unknown + Unicode code points happens when: + + 1. The lookup would otherwise fail. + + 2. There is an entry in the charsets array for the just-in-time Unicode + charset. + + If there are no free code points in the just-in-time Unicode character + set, and the charsets array is the default unicode precedence list, + create a new just-in-time Unicode character set, add it at the end of the + unicode precedence list, create the XEmacs character in that character + set, and return it. */ + +static Ichar unicode_to_ichar (int code, Lisp_Object_dynarr *charsets) { int u1, u2, u3, u4; int code_levels; int i; int n = Dynarr_length (charsets); + static int number_of_jit_charsets; + static Ascbyte last_jit_charset_final; type_checking_assert (code >= 0); /* This shortcut depends on the representation of an Ichar, see text.c. ＠＠ -1040,8 +1105,68 ＠＠ return make_ichar (charset, retval >> 8, retval & 0xFF); } } + + /* Only do the magic just-in-time assignment if we're using the default + list. */ + if (unicode_precedence_dynarr == charsets) + { + /* There's an issue with auto-save files here. The assignment of + Unicode code points to Mule characters becomes much less stable, + and auto-saved characters if escape-quoted is used for the + encoding, will be different code points from one XEmacs invocation + to the next. Not ideal. :-( . Still, it's better than trashing + unknown Unicode data by default, as was previously the + approach. */ + + if (NILP (Vcurrent_jit_charset) || + (-1 == (i = get_free_codepoint(Vcurrent_jit_charset)))) + { + Ascbyte setname[32]; + Lisp_Object charset_descr = build_string + ("Mule charset for otherwise unknown Unicode code points."); + Lisp_Object charset_regr = build_string("iso10646-1"); + + struct gcpro gcpro1, gcpro2; + + if ('\0' == last_jit_charset_final) + { + /* This final byte shit is, umm, not that cool. */ + last_jit_charset_final = 0x30; + } + + snprintf(setname, sizeof(setname), + "jit-ucs-charset-%d", number_of_jit_charsets++); - return (Ichar) -1; + /* Aside: GCPROing here would be overkill according to the FSF's + philosophy. make-charset cannot currently GC, but is intended + to be called from Lisp, with its arguments protected by the + Lisp reader. We GCPRO in case it GCs in the future and no-one + checks all the C callers. */ + + GCPRO2 (charset_descr, charset_regr); + Vcurrent_jit_charset = Fmake_charset + (intern(setname), charset_descr, + nconc2 (list2(Qencode_as_utf_8, make_int(1)), + nconc2 (list6(Qcolumns, make_int(1), Qchars, make_int(96), + Qdimension, make_int(2)), + list6(Qregistry, charset_regr, + Qfinal, make_char(last_jit_charset_final++), + /* This CCL program is initialised in + unicode.el. */ + Qccl_program, Qccl_encode_to_ucs_2)))); + UNGCPRO; + + i = get_free_codepoint(Vcurrent_jit_charset); + } + + if (-1 != i) + { + set_unicode_conversion((Ichar)i, code); + /* No need to add the charset to the end of the list; it's done + automatically. */ + } + } + return (Ichar) i; } /* Add charsets to precedence list. ＠＠ -1283,38 +1408,14 ＠＠ When there is no international support (i.e. the `mule' feature is not present), this function simply does `int-to-char' and ignores the CHARSETS argument. - -Note that the current XEmacs internal encoding has no mapping for many -Unicode code points, and if you use characters that are vaguely obscure with -XEmacs' Unicode coding systems, you will lose data. - -To add support for some desired code point in the short term--note that our -intention is to move to a Unicode-compatible internal encoding soon, for -some value of soon--if you are a distributor, add something like the -following to `site-start.el.' - -(make-charset 'distro-name-private - "Private character set for DISTRO" - '(dimension 1 - chars 96 - columns 1 - final ?5 ;; Change this--see docs for make-charset - long-name "Private charset for some Unicode char support." - short-name "Distro-Private")) - -(set-unicode-conversion - (make-char 'distro-name-private #x20) #x263A) ;; WHITE SMILING FACE - -(set-unicode-conversion - (make-char 'distro-name-private #x21) #x3030) ;; WAVY DASH - -;; ... -;;; Repeat as necessary. - -Redisplay will work on the sjt-xft branch, but not with server-side X11 -fonts as is the default. However, data read in will be preserved when they -are written out again. +If the CODE would not otherwise be converted to an XEmacs character, and the +list of character sets to be consulted is nil or the default, a new XEmacs +character will be created for it in one of the `jit-ucs-charset' Mule +character sets, and that character will be returned. There is scope for +tens of thousands of separate Unicode code points in every session using +this technique, so despite XEmacs' internal encoding not being based on +Unicode, your data won't be trashed. */ (code, USED_IF_MULE (charsets))) { ＠＠ -1558,16 +1659,6 ＠＠ /* Unicode coding system */ /************************************************************************/ -/* ISO 10646 UTF-16, UCS-4, UTF-8, UTF-7, etc. */ - -enum unicode_type -{ - UNICODE_UTF_16, - UNICODE_UTF_8, - UNICODE_UTF_7, - UNICODE_UCS_4 -}; - struct unicode_coding_system { enum unicode_type type; ＠＠ -1728,7 +1819,9 ＠＠ } } -static void +/* Also used in mule-coding.c for UTF-8 handling in ISO 2022-oriented + encodings. */ +void encode_unicode_char (Lisp_Object USED_IF_MULE (charset), int h, int USED_IF_MULE (l), unsigned_char_dynarr *dst, enum unicode_type type, unsigned int little_endian) ＠＠ -2444,6 +2537,8 ＠＠ DEFSUBR (Fload_unicode_mapping_table); + DEFSYMBOL (Qccl_encode_to_ucs_2); + DEFSYMBOL (Qlast_allocated_character); DEFSYMBOL (Qignore_first_column); #endif /* MULE */ ＠＠ -2518,6 +2613,9 ＠＠ &lisp_object_dynarr_description); init_blank_unicode_tables (); + + staticpro (&Vcurrent_jit_charset); + Vcurrent_jit_charset = Qnil; /* Note that the "block" we are describing is a single pointer, and hence we could potentially use dump_add_root_block_ptr(). However, given -- Aidan Kehoe, http://www.parhasard.net/

4 participants
16 comments

[AC (pkgs)] Comint/shell fixes 18 years, 2 months

Jerry James

APPROVE COMMIT pkgs Thanks to Ilya Golubev for finding the first batch of bugs with the new comint and shell support. Given my short development cycle to get these fixed before running off to California, I am just going to approve and commit right away. Keep trying the new stuff out and let me know what else breaks. While I was at it, I synched us up with more recent Emacs CVS activity. Many of the changes are purely cosmetic. There is one known but unresolved bug on 21.5. See the message to xemacs-beta with subject "New shell is narrowed". xemacs-packages/xemacs-base/ChangeLog addition: 2006-05-29 Jerry James <james(a)xemacs.org> * comint.el: Fix bug in comint-arguments that signaled instead of returning a value. * comint.el: Sync with very recent Emacs CVS activity. * shell.el: Ditto. packages source patch: Diff command: cvs -q diff -uN Files affected: xemacs-packages/xemacs-base/shell.el xemacs-packages/xemacs-base/comint.el Index: xemacs-packages/xemacs-base/comint.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/comint.el,v retrieving revision 1.14 diff -d -u -r1.14 comint.el --- xemacs-packages/xemacs-base/comint.el 2006/05/25 02:49:47 1.14 +++ xemacs-packages/xemacs-base/comint.el 2006/05/29 21:39:42 ＠＠ -25,7 +25,7 ＠＠ ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. -;;; Synched up with: FSF 22.0.50 +;;; Synched up with: FSF 22.0.50 (CVS revision 1.345) ;;; Commentary: ＠＠ -452,6 +452,8 ＠＠ ;; XEmacs change: we don't need the autoload here since we never used ;; comint-use-prompt-regexp-instead-of-fields +(define-obsolete-variable-alias 'comint-use-prompt-regexp-instead-of-fields + 'comint-use-prompt-regexp) (defcustom comint-mode-hook nil "Hook run upon entry to `comint-mode'. ＠＠ -566,9 +568,8 ＠＠ ["Send EOF" comint-send-eof t] )) - ;;;###autoload -(defun comint-mode () +(define-derived-mode comint-mode fundamental-mode "Comint" "Major mode for interacting with an inferior interpreter. Interpreter name is same as buffer name, sans the asterisks. Return at end of buffer sends line as input. ＠＠ -604,13 +605,7 ＠＠ \\{comint-mode-map} Entry to this mode runs the hooks on `comint-mode-hook'." - (interactive) - ;; Do not remove this. All major modes must do this. - (kill-all-local-variables) - (setq major-mode 'comint-mode) - (setq mode-name "Comint") (setq mode-line-process '(":%s")) - (use-local-map comint-mode-map) (set (make-local-variable 'comint-last-input-start) (point-min-marker)) (set (make-local-variable 'comint-last-input-end) (point-min-marker)) (set (make-local-variable 'comint-last-output-start) (make-marker)) ＠＠ -653,7 +648,8 ＠＠ (make-local-variable 'comint-file-name-chars) (make-local-variable 'comint-file-name-quote-list) (set (make-local-variable 'comint-accum-marker) (make-marker)) - (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t) + ;; XEmacs change: font-lock-unfontify-buffer may not be loaded + ;(add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t) ;; This behavior is not useful in comint buffers, and is annoying (set (make-local-variable 'next-line-add-newlines) nil) (unless comint-1-menubar-menu ＠＠ -1490,7 +1486,7 ＠＠ (nconc (comint-delim-arg str) args)))) (setq count (length args)) (let ((n (or nth (1- count))) - (m (if mth (1- (- count mth)) 0))) + (m (if mth (max 0 (1- (- count mth))) 0))) (mapconcat #'identity (nthcdr n (nreverse (nthcdr m args))) " ")))) ＠＠ -2008,17 +2004,6 ＠＠ (goto-char (point-max)) (recenter -1)) -(defun comint-copy-old-input () - "Insert after prompt old input at point as new input to be edited. -Calls `comint-get-old-input' to get old input." - (interactive) - (let ((input (funcall comint-get-old-input)) - (process (get-buffer-process (current-buffer)))) - (if (not process) - (error "Current buffer has no process") - (goto-char (process-mark process)) - (insert input)))) - (defun comint-get-old-input-default () "Default for `comint-get-old-input'. If `comint-use-prompt-regexp' is nil, then either ＠＠ -2033,6 +2018,17 ＠＠ (comint-bol) (buffer-substring-no-properties (point) (point-at-eol))))) +(defun comint-copy-old-input () + "Insert after prompt old input at point as new input to be edited. +Calls `comint-get-old-input' to get old input." + (interactive) + (let ((input (funcall comint-get-old-input)) + (process (get-buffer-process (current-buffer)))) + (if (not process) + (error "Current buffer has no process") + (goto-char (process-mark process)) + (insert input)))) + (defun comint-skip-prompt () "Skip past the text matching regexp `comint-prompt-regexp'. If this takes us past the end of the current line, don't skip at all." ＠＠ -2486,19 +2482,19 ＠＠ (when (eq (get-text-property (1- pt) 'read-only) 'fence) (remove-text-properties (1- pt) pt '(read-only nil))))))) -(defun comint-kill-whole-line (&optional arg) +(defun comint-kill-whole-line (&optional count) "Kill current line, ignoring read-only and field properties. -With prefix arg, kill that many lines starting from the current line. -If arg is negative, kill backward. Also kill the preceding newline, +With prefix arg COUNT, kill that many lines starting from the current line. +If COUNT is negative, kill backward. Also kill the preceding newline, instead of the trailing one. \(This is meant to make \\[repeat] work well with negative arguments.) -If arg is zero, kill current line but exclude the trailing newline. +If COUNT is zero, kill current line but exclude the trailing newline. The read-only status of newlines is updated with `comint-update-fence', if necessary." (interactive "p") (let ((inhibit-read-only t) (inhibit-field-text-motion t)) - (kill-entire-line arg) - (when (>= arg 0) (comint-update-fence)))) + (kill-entire-line count) + (when (>= count 0) (comint-update-fence)))) (defun comint-kill-region (beg end &optional yank-handler) "Like `kill-region', but ignores read-only properties, if safe. Index: xemacs-packages/xemacs-base/shell.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/shell.el,v retrieving revision 1.14 diff -d -u -r1.14 shell.el --- xemacs-packages/xemacs-base/shell.el 2006/05/25 02:49:48 1.14 +++ xemacs-packages/xemacs-base/shell.el 2006/05/29 21:39:43 ＠＠ -25,7 +25,7 ＠＠ ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. -;;; Synched up with: FSF 22.0.50 +;;; Synched up with: FSF 22.0.50 (CVS revision 1.137) ;;; Commentary: ＠＠ -108,6 +108,10 ＠＠ (require 'comint) +;; XEmacs addition: make the byte compiler be quiet +(eval-when-compile + (require 'font-lock)) + ;;; Customization and Buffer Variables (defgroup shell nil ＠＠ -153,7 +157,7 ＠＠ :group 'shell) (defcustom shell-completion-fignore nil - "*List of suffixes to be disregarded during file/command completion. + "List of suffixes to be disregarded during file/command completion. This variable is used to initialize `comint-completion-fignore' in the shell buffer. The default is nil, for compatibility with most shells. Some people like (\"~\" \"#\" \"%\"). ＠＠ -204,19 +208,19 ＠＠ This is a fine thing to set in your `user-init-file'.") (defcustom shell-command-regexp "[^;&|\n]+" - "*Regexp to match a single command within a pipeline. + "Regexp to match a single command within a pipeline. This is used for directory tracking and does not do a perfect job." :type 'regexp :group 'shell) (defcustom shell-command-separator-regexp "[;&|\n \t]*" - "*Regexp to match a single command within a pipeline. + "Regexp to match a single command within a pipeline. This is used for directory tracking and does not do a perfect job." :type 'regexp :group 'shell) (defcustom shell-completion-execonly t - "*If non-nil, use executable files only for completion candidates. + "If non-nil, use executable files only for completion candidates. This mirrors the optional behavior of tcsh. Detecting executability of files may slow command completion considerably." ＠＠ -224,35 +228,35 ＠＠ :group 'shell) (defcustom shell-popd-regexp "popd" - "*Regexp to match subshell commands equivalent to popd." + "Regexp to match subshell commands equivalent to popd." :type 'regexp :group 'shell-directories) (defcustom shell-pushd-regexp "pushd" - "*Regexp to match subshell commands equivalent to pushd." + "Regexp to match subshell commands equivalent to pushd." :type 'regexp :group 'shell-directories) (defcustom shell-pushd-tohome nil - "*If non-nil, make pushd with no arg behave as \"pushd ~\" (like cd). + "If non-nil, make pushd with no arg behave as \"pushd ~\" (like cd). This mirrors the optional behavior of tcsh." :type 'boolean :group 'shell-directories) (defcustom shell-pushd-dextract nil - "*If non-nil, make \"pushd +n\" pop the nth dir to the stack top. + "If non-nil, make \"pushd +n\" pop the nth dir to the stack top. This mirrors the optional behavior of tcsh." :type 'boolean :group 'shell-directories) (defcustom shell-pushd-dunique nil - "*If non-nil, make pushd only add unique directories to the stack. + "If non-nil, make pushd only add unique directories to the stack. This mirrors the optional behavior of tcsh." :type 'boolean :group 'shell-directories) (defcustom shell-cd-regexp "cd" - "*Regexp to match subshell commands equivalent to cd." + "Regexp to match subshell commands equivalent to cd." :type 'regexp :group 'shell-directories) ＠＠ -261,20 +265,20 ＠＠ ; NetWare allows the five chars between upper and lower alphabetics. "[]a-zA-Z^_`\\[\\\\]:" nil) - "*If non-nil, is regexp used to track drive changes." + "If non-nil, is regexp used to track drive changes." :type '(choice regexp (const nil)) :group 'shell-directories) (defcustom shell-dirtrack-verbose t - "*If non-nil, show the directory stack following directory change. + "If non-nil, show the directory stack following directory change. This is effective only if directory tracking is enabled." :type 'boolean :group 'shell-directories) ;; XEmacs addition (defcustom shell-dirtrack-other-regexp nil - "*Regexp to match commands for which we call `shell-dirtrack-process-other-func'." + "Regexp to match commands for which we call `shell-dirtrack-process-other-func'." :type '(choice regexp (const nil)) :group 'shell-directories) ＠＠ -283,7 +287,7 ＠＠ ;; ＠todo make this a full blown hook? ?A hook which stops when a func ;; returns t? Or nil? (defcustom shell-dirtrack-process-other-func nil - "*Function to allow external processing of directory changing commands + "Function to allow external processing of directory changing commands which match `shell-dirtrack-other-regexp'. This allows users to process arbitrary directory changing commands. This function takes two arguments: CMD - the first word (cmd part) of the current shell command line. ＠＠ -295,7 +299,7 ＠＠ :group 'shell-directories) (defcustom explicit-shell-file-name nil - "*If non-nil, is file name to use for explicitly requested inferior shell." + "If non-nil, is file name to use for explicitly requested inferior shell." :type '(choice (const :tag "None" nil) file) :group 'shell) ＠＠ -305,7 +309,7 ＠＠ ;; than us about what terminal modes to use. '("-i" "-T") '("-i")) - "*Args passed to inferior shell by M-x shell, if the shell is csh. + "Args passed to inferior shell by \\[shell], if the shell is csh. Value is a list of strings, which may be nil." :type '(repeat (string :tag "Argument")) :group 'shell) ＠＠ -323,39 +327,39 ＠＠ (shell-command-to-string (concat prog " --noediting")))) '("-i") '("--noediting" "-i"))) - "*Args passed to inferior shell by M-x shell, if the shell is bash. + "Args passed to inferior shell by \\[shell], if the shell is bash. Value is a list of strings, which may be nil." :type '(repeat (string :tag "Argument")) :group 'shell) ;; XEmacs addition: allow the user to customize args for some shells (defcustom explicit-ash-args '("-i") - "*List of arguments to pass to \"ash\" on startup in `shell-mode'." + "List of arguments to pass to \"ash\" on startup in `shell-mode'." :type '(repeat (string :tag "Argument")) :group 'shell) (defcustom explicit-ksh-args '("-i") - "*List of arguments to pass to \"ksh\" on startup in `shell-mode'." + "List of arguments to pass to \"ksh\" on startup in `shell-mode'." :type '(repeat (string :tag "Argument")) :group 'shell) (defcustom explicit-pdksh-args '("-i") - "*List of arguments to pass to \"pdksh\" on startup in `shell-mode'." + "List of arguments to pass to \"pdksh\" on startup in `shell-mode'." :type '(repeat (string :tag "Argument")) :group 'shell) (defcustom explicit-tcsh-args '("-i") - "*List of arguments to pass to \"tcsh\" on startup in `shell-mode'." + "List of arguments to pass to \"tcsh\" on startup in `shell-mode'." :type '(repeat (string :tag "Argument")) :group 'shell) (defcustom explicit-zsh-args '("-i") - "*List of arguments to pass to \"zsh\" on startup in `shell-mode'." + "List of arguments to pass to \"zsh\" on startup in `shell-mode'." :type '(repeat (string :tag "Argument")) :group 'shell) (defcustom shell-input-autoexpand 'history - "*If non-nil, expand input command history references on completion. + "If non-nil, expand input command history references on completion. This mirrors the optional behavior of tcsh (its autoexpand and histlit). If the value is `input', then the expansion is seen on input. ＠＠ -386,7 +390,7 ＠＠ (defvar shell-mode-map nil) (if (not shell-mode-map) - (let ((map (make-keymap 'shell-mode-map))) + (let ((map (make-sparse-keymap 'shell-mode-map))) (set-keymap-parents map (list comint-mode-map)) (define-key map "\C-c\C-f" 'shell-forward-command) (define-key map "\C-c\C-b" 'shell-backward-command) ＠＠ -540,13 +544,11 ＠＠ (setq shell-dirstack nil) (make-local-variable 'shell-last-dir) (setq shell-last-dir nil) - (make-local-variable 'shell-dirtrackp) - (setq shell-dirtrackp t) - (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t) (setq comint-input-autoexpand shell-input-autoexpand) ;; This is not really correct, since the shell buffer does not really ;; edit this directory. But it is useful in the buffer list and menus. (make-local-variable 'list-buffers-directory) + (shell-dirtrack-mode 1) (setq list-buffers-directory (expand-file-name default-directory)) ;; shell-dependent assignments. (when (ring-empty-p comint-input-ring) ＠＠ -577,7 +579,6 ＠＠ ;; point in cluttering the code to support versions of bash that are ;; probably nowhere in use. --JJ (comint-read-input-ring t) - (shell-dirstack-message) ; XEmacs addition )) (defun shell-write-history-on-exit (process event) ＠＠ -647,12 +648,11 ＠＠ (xargs-name (intern-soft (concat "explicit-" name "-args")))) (if (not (file-exists-p startfile)) (setq startfile (concat "~/.emacs.d/.emacs_" name))) - (setq buffer (set-buffer - (apply #'make-comint-in-buffer "shell" buffer prog - (if (file-exists-p startfile) startfile) - (if (and xargs-name (boundp xargs-name)) - (symbol-value xargs-name) - '("-i"))))) + (apply #'make-comint-in-buffer "shell" buffer prog + (if (file-exists-p startfile) startfile) + (if (and xargs-name (boundp xargs-name)) + (symbol-value xargs-name) + '("-i"))) (shell-mode))) buffer) ＠＠ -660,44 +660,44 ＠＠ ;;;###autoload (add-hook 'same-window-buffer-names "*shell*") ;;; Directory tracking -;;; -;;; This code provides the shell mode input sentinel -;;; SHELL-DIRECTORY-TRACKER -;;; that tracks cd, pushd, and popd commands issued to the shell, and -;;; changes the current directory of the shell buffer accordingly. -;;; -;;; This is basically a fragile hack, although it's more accurate than -;;; the version in Emacs 18's shell.el. It has the following failings: -;;; 1. It doesn't know about the cdpath shell variable. -;;; 2. It cannot infallibly deal with command sequences, though it does well -;;; with these and with ignoring commands forked in another shell with ()s. -;;; 3. More generally, any complex command is going to throw it. Otherwise, -;;; you'd have to build an entire shell interpreter in Emacs Lisp. Failing -;;; that, there's no way to catch shell commands where cd's are buried -;;; inside conditional expressions, aliases, and so forth. -;;; -;;; The whole approach is a crock. Shell aliases mess it up. File sourcing -;;; messes it up. You run other processes under the shell; these each have -;;; separate working directories, and some have commands for manipulating -;;; their w.d.'s (e.g., the lcd command in ftp). Some of these programs have -;;; commands that do *not* affect the current w.d. at all, but look like they -;;; do (e.g., the cd command in ftp). In shells that allow you job -;;; control, you can switch between jobs, all having different w.d.'s. So -;;; simply saying %3 can shift your w.d.. -;;; -;;; The solution is to relax, not stress out about it, and settle for -;;; a hack that works pretty well in typical circumstances. Remember -;;; that a half-assed solution is more in keeping with the spirit of Unix, -;;; anyway. Blech. -;;; -;;; One good hack not implemented here for users of programmable shells -;;; is to program up the shell w.d. manipulation commands to output -;;; a coded command sequence to the tty. Something like -;;; ESC | <cwd> | -;;; where <cwd> is the new current working directory. Then trash the -;;; directory tracking machinery currently used in this package, and -;;; replace it with a process filter that watches for and strips out -;;; these messages. +;; +;; This code provides the shell mode input sentinel +;; SHELL-DIRECTORY-TRACKER +;; that tracks cd, pushd, and popd commands issued to the shell, and +;; changes the current directory of the shell buffer accordingly. +;; +;; This is basically a fragile hack, although it's more accurate than +;; the version in Emacs 18's shell.el. It has the following failings: +;; 1. It doesn't know about the cdpath shell variable. +;; 2. It cannot infallibly deal with command sequences, though it does well +;; with these and with ignoring commands forked in another shell with ()s. +;; 3. More generally, any complex command is going to throw it. Otherwise, +;; you'd have to build an entire shell interpreter in Emacs Lisp. Failing +;; that, there's no way to catch shell commands where cd's are buried +;; inside conditional expressions, aliases, and so forth. +;; +;; The whole approach is a crock. Shell aliases mess it up. File sourcing +;; messes it up. You run other processes under the shell; these each have +;; separate working directories, and some have commands for manipulating +;; their w.d.'s (e.g., the lcd command in ftp). Some of these programs have +;; commands that do *not* affect the current w.d. at all, but look like they +;; do (e.g., the cd command in ftp). In shells that allow you job +;; control, you can switch between jobs, all having different w.d.'s. So +;; simply saying %3 can shift your w.d.. +;; +;; The solution is to relax, not stress out about it, and settle for +;; a hack that works pretty well in typical circumstances. Remember +;; that a half-assed solution is more in keeping with the spirit of Unix, +;; anyway. Blech. +;; +;; One good hack not implemented here for users of programmable shells +;; is to program up the shell w.d. manipulation commands to output +;; a coded command sequence to the tty. Something like +;; ESC | <cwd> | +;; where <cwd> is the new current working directory. Then trash the +;; directory tracking machinery currently used in this package, and +;; replace it with a process filter that watches for and strips out +;; these messages. (defun shell-directory-tracker (str) "Tracks cd, pushd and popd commands issued to the shell. ＠＠ -884,27 +884,26 ＠＠ (defun shell-extract-num (str) (and (string-match "^\\+[1-9][0-9]*$" str) (string-to-number str))) - -(defun shell-dirtrack-mode () +(defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) +(define-minor-mode shell-dirtrack-mode "Turn directory tracking on and off in a shell buffer." - (interactive) - (if (setq shell-dirtrackp (not shell-dirtrackp)) - (setq list-buffers-directory default-directory) - (setq list-buffers-directory nil)) - (message "Directory tracking %s" (if shell-dirtrackp "ON" "OFF"))) + nil nil nil + (setq list-buffers-directory (if shell-dirtrack-mode default-directory)) + (if shell-dirtrack-mode + (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t) + (remove-hook 'comint-input-filter-functions 'shell-directory-tracker t))) -;;; For your typing convenience: -(defalias 'shell-dirtrack-toggle 'shell-dirtrack-mode) +;; For your typing convenience: +(defalias 'shell-dirtrack-toggle 'shell-dirtrack-mode) ;??Convenience?? (defalias 'dirtrack-toggle 'shell-dirtrack-mode) (defalias 'dirtrack-mode 'shell-dirtrack-mode) (defun shell-cd (dir) "Do normal `cd' to DIR, and set `list-buffers-directory'." + (cd dir) (if shell-dirtrackp - (setq list-buffers-directory (file-name-as-directory - (expand-file-name dir)))) - (cd dir)) + (setq list-buffers-directory default-directory))) (defun shell-resync-dirs () "Resync the buffer's idea of the current directory stack. ＠＠ -959,18 +958,18 ＠＠ (let ((ds (nreverse ds))) (shell-cd-1 (car ds) (cdr ds)))))) -;;; For your typing convenience: +;; For your typing convenience: (defalias 'dirs 'shell-resync-dirs) ;; XEmacs addition (defvar shell-dirstack-message-hook nil "Hook to run after a cd, pushd or popd event") -;;; Show the current dirstack on the message line. -;;; Pretty up dirs a bit by changing "/usr/jqr/foo" to "~/foo". -;;; (This isn't necessary if the dirlisting is generated with a simple "dirs".) -;;; All the commands that mung the buffer's dirstack finish by calling -;;; this guy. +;; Show the current dirstack on the message line. +;; Pretty up dirs a bit by changing "/usr/jqr/foo" to "~/foo". +;; (This isn't necessary if the dirlisting is generated with a simple "dirs".) +;; All the commands that mung the buffer's dirstack finish by calling +;; this guy. (defun shell-dirstack-message () (when shell-dirtrack-verbose (let* ((msg "") -- Jerry James, Assistant Professor james(a)xemacs.org Computer Science Department http://www.cs.usu.edu/~jerry/ Utah State University

2 participants
2 comments

[PATCH 21.5] Package autoload file generation 18 years, 2 months

Jerry James

PATCH 21.5 I tracked down the source of the files that "make distclean" is not removing in the package tree. Those files are in the wrong place. Furthermore, only XEmacs 21.5 generates them; 21.4 gets it right. Try building packages with current XEmacs 21.5 CVS; you'll get both a xemacs-packages/hyperbole/auto-autoloads.el and a xemacs-packages/hyperbole/kotl/auto-autoloads.el, and furthermore you cannot load them both. A small fix to an obsolete function in autoload.el fixes the problem for me. Our package build system went to all the trouble of defining generated-autoload-file, and then we ignored it. lisp/ChangeLog addition: 2006-05-24 Jerry James <james(a)xemacs.org> * autoload.el (batch-update-autoloads): Only write to generated-autoload-file. xemacs-21.5 source patch: Diff command: cvs -q diff -uN Files affected: lisp/autoload.el Index: lisp/autoload.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/autoload.el,v retrieving revision 1.22 diff -d -u -r1.22 autoload.el --- lisp/autoload.el 2005/02/04 03:57:34 1.22 +++ lisp/autoload.el 2006/05/24 20:10:56 ＠＠ -1154,7 +1154,8 ＠＠ on the command line." (unless noninteractive (error "batch-update-autoloads is to be used only with -batch")) - (update-autoload-files command-line-args-left autoload-feature-prefix nil t) + (update-autoload-files command-line-args-left autoload-feature-prefix + generated-autoload-file t) (kill-emacs 0)) ;; Declare obsolescence -- Jerry James, Assistant Professor james(a)xemacs.org Computer Science Department http://www.cs.usu.edu/~jerry/ Utah State University

1 participants
1 comments

[PATCH] packages: Make gnus smiley regexps match at end of region (e.g. for erc) 18 years, 2 months

Adrian Aichner

This patch is not directly applicable upstream, but I'll suggest a similar one there. Any objections? Best regards! Adrian packages ChangeLog patch: Diff command: cvs -q diff -U 0 Files affected: xemacs-packages/gnus/ChangeLog Index: xemacs-packages/gnus/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/ChangeLog,v retrieving revision 1.101 diff -u -U0 -r1.101 ChangeLog --- xemacs-packages/gnus/ChangeLog 16 Mar 2006 06:09:49 -0000 1.101 +++ xemacs-packages/gnus/ChangeLog 28 May 2006 22:51:51 -0000 ＠＠ -0,0 +1,6 ＠＠ +2006-05-29 Adrian Aichner <adrian(a)xemacs.org> + + * lisp/smiley.el (smiley-deformed-regexp-alist): Make gnus smiley + regexps match at end of region. + * lisp/smiley.el (smiley-nosey-regexp-alist): Ditto. + packages source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: xemacs-packages/gnus/lisp/smiley.el Index: xemacs-packages/gnus/lisp/smiley.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/smiley.el,v retrieving revision 1.2 diff -u -w -r1.2 smiley.el --- xemacs-packages/gnus/lisp/smiley.el 2 May 2003 00:27:21 -0000 1.2 +++ xemacs-packages/gnus/lisp/smiley.el 28 May 2006 22:51:08 -0000 ＠＠ -61,29 +61,29 ＠＠ ;; two alists below. (defcustom smiley-deformed-regexp-alist - '(("\$\\^_?\\^;;;\$\\W" 1 "WideFaceAse3.xbm") - ("\$\\^_?\\^;;\$\\W" 1 "WideFaceAse2.xbm") - ("\$\\^_?\\^;\$\\W" 1 "WideFaceAse1.xbm") - ("\$\\^_?\\^\$\\W" 1 "WideFaceSmile.xbm") - ("\$;_;\$\\W" 1 "WideFaceWeep.xbm") - ("\$T_T\$\\W" 1 "WideFaceWeep.xbm") - ("\$:-*[<«]+\$\\W" 1 "FaceAngry.xpm") - ("\$:-+\\]+\$\\W" 1 "FaceGoofy.xpm") - ("\$:-*D\$\\W" 1 "FaceGrinning.xpm") - ("\$:-*[)>}»]+\$\\W" 1 "FaceHappy.xpm") - ("\$=[)»]+\$\\W" 1 "FaceHappy.xpm") - ("\$:-*[/\\\"]\$[^/]\\W" 1 "FaceIronic.xpm") - ("[^.0-9]\$[8|]-*[|Oo%]\$\\W" 1 "FaceKOed.xpm") - ("\$[:|]-*#+\$\\W" 1 "FaceNyah.xpm") - ("\$:-*[({]+\$\\W" 1 "FaceSad.xpm") - ("\$=[({]+\$\\W" 1 "FaceSad.xpm") - ("\$:-*[Oo\*]\$\\W" 1 "FaceStartled.xpm") - ("\$:-*|\$\\W" 1 "FaceStraight.xpm") - ("\$:-*p\$\\W" 1 "FaceTalking.xpm") - ("\$:-*d\$\\W" 1 "FaceTasty.xpm") - ("\$;-*[>)}»]+\$\\W" 1 "FaceWinking.xpm") - ("\$:-*[Vvµ]\$\\W" 1 "FaceWry.xpm") - ("\$[:|]-*P\$\\W" 1 "FaceYukky.xpm")) + '(("\$\\^_?\\^;;;\$\\B" 1 "WideFaceAse3.xbm") + ("\$\\^_?\\^;;\$\\B" 1 "WideFaceAse2.xbm") + ("\$\\^_?\\^;\$\\B" 1 "WideFaceAse1.xbm") + ("\$\\^_?\\^\$\\B" 1 "WideFaceSmile.xbm") + ("\$;_;\$\\B" 1 "WideFaceWeep.xbm") + ("\$T_T\$\\B" 1 "WideFaceWeep.xbm") + ("\$:-*[<«]+\$\\B" 1 "FaceAngry.xpm") + ("\$:-+\\]+\$\\B" 1 "FaceGoofy.xpm") + ("\$:-*D\$\\B" 1 "FaceGrinning.xpm") + ("\$:-*[)>}»]+\$\\B" 1 "FaceHappy.xpm") + ("\$=[)»]+\$\\B" 1 "FaceHappy.xpm") + ("\$:-*[/\\\"]\$[^/]\\B" 1 "FaceIronic.xpm") + ("[^.0-9]\$[8|]-*[|Oo%]\$\\B" 1 "FaceKOed.xpm") + ("\$[:|]-*#+\$\\B" 1 "FaceNyah.xpm") + ("\$:-*[({]+\$\\B" 1 "FaceSad.xpm") + ("\$=[({]+\$\\B" 1 "FaceSad.xpm") + ("\$:-*[Oo\*]\$\\B" 1 "FaceStartled.xpm") + ("\$:-*|\$\\B" 1 "FaceStraight.xpm") + ("\$:-*p\$\\B" 1 "FaceTalking.xpm") + ("\$:-*d\$\\B" 1 "FaceTasty.xpm") + ("\$;-*[>)}»]+\$\\B" 1 "FaceWinking.xpm") + ("\$:-*[Vvµ]\$\\B" 1 "FaceWry.xpm") + ("\$[:|]-*P\$\\B" 1 "FaceYukky.xpm")) "*Normal and deformed faces for smilies." :type '(repeat (list regexp (integer :tag "Match") ＠＠ -91,25 +91,25 ＠＠ :group 'smiley) (defcustom smiley-nosey-regexp-alist - '(("\$:-+[<«]+\$\\W" 1 "FaceAngry.xpm") - ("\$:-+\\]+\$\\W" 1 "FaceGoofy.xpm") - ("\$:-+D\$\\W" 1 "FaceGrinning.xpm") - ("\$:-+[}»]+\$\\W" 1 "FaceHappy.xpm") - ("\$:-*)+\$\\W" 1 "FaceHappy.xpm") - ("\$=[)]+\$\\W" 1 "FaceHappy.xpm") - ("\$:-+[/\\\"]+\$\\W" 1 "FaceIronic.xpm") - ("\$[8|]-+[|Oo%]\$\\W" 1 "FaceKOed.xpm") - ("\$[:|]-+#+\$\\W" 1 "FaceNyah.xpm") - ("\$:-+[({]+\$\\W" 1 "FaceSad.xpm") - ("\$=[({]+\$\\W" 1 "FaceSad.xpm") - ("\$:-+[Oo\*]\$\\W" 1 "FaceStartled.xpm") - ("\$:-+|\$\\W" 1 "FaceStraight.xpm") - ("\$:-+p\$\\W" 1 "FaceTalking.xpm") - ("\$:-+d\$\\W" 1 "FaceTasty.xpm") - ("\$;-+[>)}»]+\$\\W" 1 "FaceWinking.xpm") - ("\$:-+[Vvµ]\$\\W" 1 "FaceWry.xpm") - ("\$][:8B]-[)>]\$\\W" 1 "FaceDevilish.xpm") - ("\$[:|]-+P\$\\W" 1 "FaceYukky.xpm")) + '(("\$:-+[<«]+\$\\B" 1 "FaceAngry.xpm") + ("\$:-+\\]+\$\\B" 1 "FaceGoofy.xpm") + ("\$:-+D\$\\B" 1 "FaceGrinning.xpm") + ("\$:-+[}»]+\$\\B" 1 "FaceHappy.xpm") + ("\$:-*)+\$\\B" 1 "FaceHappy.xpm") + ("\$=[)]+\$\\B" 1 "FaceHappy.xpm") + ("\$:-+[/\\\"]+\$\\B" 1 "FaceIronic.xpm") + ("\$[8|]-+[|Oo%]\$\\B" 1 "FaceKOed.xpm") + ("\$[:|]-+#+\$\\B" 1 "FaceNyah.xpm") + ("\$:-+[({]+\$\\B" 1 "FaceSad.xpm") + ("\$=[({]+\$\\B" 1 "FaceSad.xpm") + ("\$:-+[Oo\*]\$\\B" 1 "FaceStartled.xpm") + ("\$:-+|\$\\B" 1 "FaceStraight.xpm") + ("\$:-+p\$\\B" 1 "FaceTalking.xpm") + ("\$:-+d\$\\B" 1 "FaceTasty.xpm") + ("\$;-+[>)}»]+\$\\B" 1 "FaceWinking.xpm") + ("\$:-+[Vvµ]\$\\B" 1 "FaceWry.xpm") + ("\$][:8B]-[)>]\$\\B" 1 "FaceDevilish.xpm") + ("\$[:|]-+P\$\\B" 1 "FaceYukky.xpm")) "*Smileys with noses. These get less false matches." :type '(repeat (list regexp (integer :tag "Match") -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/

1 participants
0 comments

[PATCH] xemacs-builds: Use r%d-%d-latest-beta in xre.py 18 years, 2 months

Adrian Aichner

Hello Stephen, how about this :-) Adrian xemacs-builds ChangeLog patch: Diff command: cvs -q diff -U 0 Files affected: stephen/ChangeLog Index: stephen/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/stephen/ChangeLog,v retrieving revision 1.12 diff -u -U0 -r1.12 ChangeLog --- stephen/ChangeLog 25 Feb 2006 13:39:16 -0000 1.12 +++ stephen/ChangeLog 25 May 2006 21:33:18 -0000 ＠＠ -0,0 +1,6 ＠＠ +2006-05-25 Adrian Aichner <adrian(a)xemacs.org> + + * xre.py (Release.writeAnnouncements): Use agreed-upon + r%d-%d-latest-beta in announcements. + * xre.py (tag): Ditto. + xemacs-builds source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: stephen/xre.py Index: stephen/xre.py =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/stephen/xre.py,v retrieving revision 1.9 diff -u -w -r1.9 xre.py --- stephen/xre.py 25 Feb 2006 13:39:16 -0000 1.9 +++ stephen/xre.py 25 May 2006 21:31:50 -0000 ＠＠ -1009,7 +1009,7 ＠＠ map['domain'] = self.project.mailDomain #### This won't work for 21.4! map['releaseSpec'] = "-r r%d-%d-%d" % self.version - map['currentSpec'] = "-r r%d-%d-current-beta" % self.version[:2] + map['currentSpec'] = "-r r%d-%d-latest-beta" % self.version[:2] map['branchSpec'] = "-A" ordinals = [ 'first', 'second', 'third', 'fourth', 'fifth', 'sixth', 'seventh', 'eighth', 'ninth', 'tenth', 'eleventh', ＠＠ -1512,7 +1512,7 ＠＠ rtag.fragment = releaseTag # cvs rtag is currently broken; doesn't chase symlinks to Root rtag.query = "tag -F" - movingTag = "r%d-%d-current-beta" % self.version[:2] + movingTag = "r%d-%d-latest-beta" % self.version[:2] commit = copy(tag) commit.query = "commit -m'%s'" % (self.herald,) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/

3 participants
2 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 May 2006