CVS update by stephent xemacs/src ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: stephent
Date: 05/11/28 17:39:56
Modified: xemacs/src ChangeLog xemacs.def.in.in
Log:
Add lrecord_uid_counter to xemacs.def.in.in.
<87wtiswwwt.fsf(a)tleepslib.sk.tsukuba.ac.jp>
Revision Changes Path
1.898 +5 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.897
retrieving revision 1.898
diff -u -p -r1.897 -r1.898
--- ChangeLog 2005/11/28 15:44:04 1.897
+++ ChangeLog 2005/11/28 16:39:53 1.898
＠＠ -1,3 +1,8 ＠＠
+2005-11-29 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * xemacs.def.in.in (lrecord_uid_counter): Add it. Patch by Rick
+ Rankin <20051120054349.52906.qmail(a)web61019.mail.yahoo.com>.
+
2005-11-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* dumper.c: Move comment to where it apparently belongs.
1.11 +1 -0 XEmacs/xemacs/src/xemacs.def.in.in
Index: xemacs.def.in.in
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xemacs.def.in.in,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- xemacs.def.in.in 2005/10/25 08:32:50 1.10
+++ xemacs.def.in.in 2005/11/28 16:39:54 1.11
＠＠ -207,6 +207,7 ＠＠ lrecord_markers /* INIT_LRECORD_IMPLEM
lrecord_string /* STRINGP */
lrecord_symbol /* SYMBOLP */
lrecord_type_count /* INIT_EXTERNAL_LRECORD_IMPLEMENTATION */
+lrecord_uid_counter
need_to_check_c_alloca /* ALLOCA */
print_readably
quit_check_signal_happened /* QUITP */
- 1 participants
- 0 comments
CVS update by stephent xemacs/src ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: stephent
Date: 05/11/28 16:44:08
Modified: xemacs/src ChangeLog dumper.c
Log:
Move comment to where it apparently belongs.
<87br04ye45.fsf(a)tleepslib.sk.tsukuba.ac.jp
Revision Changes Path
1.897 +4 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.896
retrieving revision 1.897
diff -u -p -r1.896 -r1.897
--- ChangeLog 2005/11/27 10:51:24 1.896
+++ ChangeLog 2005/11/28 15:44:04 1.897
＠＠ -1,3 +1,7 ＠＠
+2005-11-26 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * dumper.c: Move comment to where it apparently belongs.
+
2005-11-27 Marcus Crestani <crestani(a)xemacs.org>
* lrecord.h: Remove NEWGC junk.
1.33 +5 -5 XEmacs/xemacs/src/dumper.c
Index: dumper.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/dumper.c,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -p -r1.32 -r1.33
--- dumper.c 2005/11/25 01:41:59 1.32
+++ dumper.c 2005/11/28 15:44:06 1.33
＠＠ -1672,11 +1672,6 ＠＠ pdump_dump_cv_data_info (void)
retry_fwrite (data, sizeof (pdump_cv_data_dump_info), count, pdump_out);
}
-/* Dump out the root block pointers, part of stage 3 (the "WRITE" stage) of
- dumping. For each pointer we dump out a structure containing the
- location of the pointer and its value, replaced by the appropriate
- offset into the dumped data. */
-
static void
pdump_dump_cv_ptr_info (void)
{
＠＠ -1692,6 +1687,11 ＠＠ pdump_dump_cv_ptr_info (void)
PDUMP_ALIGN_OUTPUT (pdump_cv_ptr_dump_info);
retry_fwrite (data, sizeof (pdump_cv_ptr_dump_info), count, pdump_out);
}
+
+/* Dump out the root block pointers, part of stage 3 (the "WRITE" stage) of
+ dumping. For each pointer we dump out a structure containing the
+ location of the pointer and its value, replaced by the appropriate
+ offset into the dumped data. */
static void
pdump_dump_root_block_ptrs (void)
- 1 participants
- 0 comments
CVS update by crestani xemacs ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: crestani
Date: 05/11/28 10:50:24
Modified: xemacs ChangeLog configure configure.ac
Log:
Remove vdb-fake warning, die if POSIX checks fail.
Revision Changes Path
1.477 +4 -0 XEmacs/xemacs/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v
retrieving revision 1.476
retrieving revision 1.477
diff -u -p -r1.476 -r1.477
--- ChangeLog 2005/11/26 18:49:10 1.476
+++ ChangeLog 2005/11/28 09:50:16 1.477
＠＠ -1,3 +1,7 ＠＠
+2005-11-27 Marcus Crestani <crestani(a)xemacs.org>
+
+ * configure.ac: Remove vdb-fake warning, die if POSIX checks fail.
+
2005-11-27 Stephen J. Turnbull <stephen(a)xemacs.org>
* configure.ac (XE_COMPLEX_ARG[xft]): Default everything off;
1.265 +2 -9 XEmacs/xemacs/configure
Index: configure
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v
retrieving revision 1.264
retrieving revision 1.265
diff -u -p -r1.264 -r1.265
--- configure 2005/11/26 18:49:06 1.264
+++ configure 2005/11/28 09:50:17 1.265
＠＠ -30040,6 +30040,8 ＠＠ fi
if test "$have_vdb_sigaction" != "yes" -a "$have_vdb_signal" != "yes" ; then
have_vdb_posix=no
have_vdb_fake=yes
+ { echo "Error:" "No working write-barrier implementation found for this system.
+ Please report this and provide information about your system." >&2; exit 1; }
else
have_vdb_posix=yes
have_vdb_fake=no
＠＠ -39336,15 +39338,6 ＠＠ if test "$have_vdb_win32" = yes ; then
fi
if test "$have_vdb_mach" = yes ; then
echo " Using mach exception mechanism as vdb fault handler."
-fi
-if test "$have_vdb_fake" = yes && test "$enable_vdb" != fake; then
- echo " WARNING: ---------------------------------------------------------"
- echo " WARNING: The new incremental garbage collector is enabled, but"
- echo " WARNING: a virtual dirty bit implementation is not yet available"
- echo " WARNING: on this system. XEmacs will crash if you try to switch on"
- echo " WARNUNG: incremental garbage collection!"
- echo " WARNING: Use \`--disable-newgc' to turn incremental gc off."
- echo " WARNING: ---------------------------------------------------------"
fi
if test "$have_vdb_fake" = yes && test "$enable_vdb" == fake; then
echo " Virtual dirty bit write barrier manually disabled."
1.26 +2 -11 XEmacs/xemacs/configure.ac
Index: configure.ac
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -p -r1.25 -r1.26
--- configure.ac 2005/11/26 18:49:09 1.25
+++ configure.ac 2005/11/28 09:50:20 1.26
＠＠ -1729,8 +1729,6 ＠＠ if test "$enable_newgc" = "yes"; then
cygwin* ) AC_DEFINE(VDB_WIN32) have_vdb_win32=yes ;;
linux* ) check_vdb_posix=yes ;;
freebsd ) check_vdb_posix=yes ;;
-dnl bail out immediately
-dnl * ) have_vdb_fake=yes ;;
dnl if not sure, try posix first, maybe we are lucky
* ) check_vdb_posix=yes ;;
esac
＠＠ -4609,6 +4607,8 ＠＠ if test "$check_vdb_posix" = "yes" ; the
if test "$have_vdb_sigaction" != "yes" -a "$have_vdb_signal" != "yes" ; then
have_vdb_posix=no
have_vdb_fake=yes
+ XE_DIE("No working write-barrier implementation found for this system.
+ Please report this and provide information about your system.")
else
have_vdb_posix=yes
have_vdb_fake=no
＠＠ -6083,15 +6083,6 ＠＠ if test "$have_vdb_win32" = yes ; then
fi
if test "$have_vdb_mach" = yes ; then
echo " Using mach exception mechanism as vdb fault handler."
-fi
-if test "$have_vdb_fake" = yes && test "$enable_vdb" != fake; then
- echo " WARNING: ---------------------------------------------------------"
- echo " WARNING: The new incremental garbage collector is enabled, but"
- echo " WARNING: a virtual dirty bit implementation is not yet available"
- echo " WARNING: on this system. XEmacs will crash if you try to switch on"
- echo " WARNUNG: incremental garbage collection!"
- echo " WARNING: Use \`--disable-newgc' to turn incremental gc off."
- echo " WARNING: ---------------------------------------------------------"
fi
if test "$have_vdb_fake" = yes && test "$enable_vdb" == fake; then
echo " Virtual dirty bit write barrier manually disabled."
- 1 participants
- 0 comments
CVS update by vins xemacs/src, redisplay-tty.c ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: vins
Date: 05/11/28 03:10:25
Branch: xemacs release-21-4
xemacs/lisp release-21-4
xemacs/man release-21-4
xemacs/man/lispref release-21-4
xemacs/src release-21-4
Modified: xemacs/src ChangeLog config.h.in console-tty.h mule-ccl.c
redisplay-tty.c select-x.c
Log:
Nearing the end of the 21.4.18 patches.
Revision Changes Path
1.241.2.79 +5 -0 XEmacs/xemacs/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v
retrieving revision 1.241.2.78
retrieving revision 1.241.2.79
diff -u -p -r1.241.2.78 -r1.241.2.79
--- ChangeLog 2005/11/25 03:16:45 1.241.2.78
+++ ChangeLog 2005/11/28 02:08:55 1.241.2.79
＠＠ -1,3 +1,8 ＠＠
+2005-03-12 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * configure.in (XE_COMPUTE_RUNPATH): Check XtRegisterDrawable
+ availability.
+
2005-04-11 Norbert Koch <viteno(a)xemacs.org>
* etc/PACKAGES: etc/PACKAGES: Announce re-builder, xetla.
1.147.2.35 +1 -1 XEmacs/xemacs/configure
Index: configure
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v
retrieving revision 1.147.2.34
retrieving revision 1.147.2.35
diff -u -p -r1.147.2.34 -r1.147.2.35
--- configure 2005/11/25 02:00:00 1.147.2.34
+++ configure 2005/11/28 02:08:56 1.147.2.35
＠＠ -6846,7 +6846,7 ＠＠ EOF
esac
fi
- for ac_func in XConvertCase
+ for ac_func in XConvertCase XtRegisterDrawable
do
echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
echo "configure:6853: checking for $ac_func" >&5
1.151.2.34 +1 -1 XEmacs/xemacs/configure.in
Index: configure.in
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.in,v
retrieving revision 1.151.2.33
retrieving revision 1.151.2.34
diff -u -p -r1.151.2.33 -r1.151.2.34
--- configure.in 2005/11/25 02:00:33 1.151.2.33
+++ configure.in 2005/11/28 02:09:20 1.151.2.34
＠＠ -2911,7 +2911,7 ＠＠ dnl Avoid re-AC_DEFINE-ing xmkmf symbols
esac
fi
- AC_CHECK_FUNCS(XConvertCase)
+ AC_CHECK_FUNCS(XConvertCase XtRegisterDrawable)
AC_CHECK_HEADERS(X11/Xlocale.h)
1.266.2.85 +19 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.266.2.84
retrieving revision 1.266.2.85
diff -u -p -r1.266.2.84 -r1.266.2.85
--- ChangeLog 2005/11/26 03:47:23 1.266.2.84
+++ ChangeLog 2005/11/28 02:10:07 1.266.2.85
＠＠ -1,3 +1,22 ＠＠
+2005-02-28 Simon Josefsson <jas(a)extundo.com>
+
+ * about.el (xemacs-hackers): Add jas.
+ (about-other-current-hackers): Likewise.
+ (about-url-alist): Add URL for jas.
+ (about-personal-info): Document jas.
+ (about-hacker-contribution): Describe jas contributions.
+
+2005-03-25 Ralf Angeli <angeli(a)iwi.uni-sb.de>
+
+ * easymenu.el (easy-menu-remove): As described in
+ E1D4Nn5-0001lq-EU(a)neutrino.iwi.uni-sb.de; don't strip everything
+ except the "Command" menu from mode-popup-menu.
+
+2005-03-25 Ralf Angeli <angeli(a)iwi.uni-sb.de>
+
+ * font.el (font-spatial-to-canonical): Correct calculation of
+ return value for pixel-based input value.
+
2002-05-13 Adrian Aichner <adrian(a)xemacs.org>
* code-process.el (call-process): Process-related docstring
1.45.2.11 +31 -2 XEmacs/xemacs/lisp/about.el
Index: about.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/about.el,v
retrieving revision 1.45.2.10
retrieving revision 1.45.2.11
diff -u -p -r1.45.2.10 -r1.45.2.11
--- about.el 2003/11/08 02:35:01 1.45.2.10
+++ about.el 2005/11/28 02:10:08 1.45.2.11
＠＠ -1,6 +1,6 ＠＠
;;; about.el --- the About The Authors page (shameless self promotion).
-;; Copyright (c) 1997 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 2005 Free Software Foundation, Inc.
;; Copyright (C) 2001 Ben Wing.
;; Keywords: extensions
＠＠ -123,6 +123,7 ＠＠
(hobley "David hobley" "hobley(a)xemacs.org")
(jan "Jan Vroonhof" "jan(a)xemacs.org")
(jareth "Jareth Hein" "jareth(a)xemacs.org")
+ (jas "Simon Josefsson" "simon(a)xemacs.org")
(jason "Jason R. Mastaler" "jason(a)xemacs.org")
(jens "Jens Lautenbacher" "jens(a)xemacs.org")
(jmiller "Jeff Miller" "jmiller(a)xemacs.org")
＠＠ -178,7 +179,7 ＠＠
(defvar about-once-and-future-hackers
'(ajc baw bw chr cthomp darrylo devin dkindred dmoore eb hbs hmuller
- hobley jens juhp jwz kyle marcpa mcook mly ograf pelegri pez
+ hobley jas jens juhp jwz kyle marcpa mcook mly ograf pelegri pez
rickc rose rossini slb stig stigb thiessel vladimir))
;; The CAR of alist elements is a valid argument to `about-url-link'.
＠＠ -201,6 +202,7 ＠＠
(dv . "http://www.lrde.epita.fr/~didier/")
(fabrice . "http://www.ese-metz.fr/~popineau/")
(fptex . "http://www.fptex.org/")
+ (jas . "http://josefsson.org/")
(jason . "http://www.mastaler.com/")
(juhp . "http://www.01.246.ne.jp/~juhp/")
(jwz . "http://www.jwz.org/")
＠＠ -1059,6 +1061,25 ＠＠ portable, implements a language, include
graphics and a garbage collector, but is multithreaded to boot!
Unfortunately his XEmacs time is directly limited by the amount of
traffic on the M40.\n"))
+ (jas
+ (widget-insert "\
+
+Simon lives in Stockholm where he has discovered that computers
+can be a powerful procrastinating tool. Combined with a
+frustrating desire to see computers simply work, he spends most
+of his time complaining. Occasionally he rises up to the task
+and produces something that others may complain about, which
+brings him increased satisfaction with every bug report. Today
+he is pretending to be a network security guy, with a preference
+for standardization issues, while secretly longing to start a
+cafe or becoming a theoretical computer scientist. His personal
+interest is literature, and to some extent traveling, but will
+try anything for fun, such as juggling, skiing, wine, and
+long-distance biking.
+
+See: ")
+ (about-url-link 'jas nil "Visit Simon's homepage")
+ (widget-insert ".\n"))
(jareth
(widget-insert "\
Jareth Hein is a mountain boy who abandoned his home state of Colorado
＠＠ -1609,6 +1630,14 ＠＠ of the XEmacs custom subsystem and gnuse
(widget-insert "\
Owner of cvs.xemacs.org, the machine that holds the XEmacs CVS
repository, and author of some of the graphics code in XEmacs.\n"))
+ (jas
+ (widget-insert "\
+Wrote and/or integrated several packages for Gnus, such as
+support for IMAP, Sieve, format=flowed, GnuTLS, S/MIME, and PGP.
+Irregularly synchronizes lisp code between Emacs and XEmacs. He
+maintains the mail-lib, sieve, sasl, pgg and ecrypto XEmacs
+packages. Operates the secondary DNS and mail server for
+xemacs.org.\n"))
(jason
(widget-insert "\
Beta tester, manager of the various XEmacs mailing lists and binary
1.5.2.1 +1 -1 XEmacs/xemacs/lisp/easymenu.el
Index: easymenu.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/easymenu.el,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -u -p -r1.5 -r1.5.2.1
--- easymenu.el 2001/04/12 18:21:17 1.5
+++ easymenu.el 2005/11/28 02:10:08 1.5.2.1
＠＠ -203,7 +203,7 ＠＠ is a list of menu items, as above."
"Remove MENU from the current menu bar."
(when (featurep 'menubar)
(setq easy-menu-all-popups (delq menu easy-menu-all-popups)
- mode-popup-menu (if (< (length easy-menu-all-popups) 1)
+ mode-popup-menu (if (> (length easy-menu-all-popups) 1)
(cons (easy-menu-title)
(reverse easy-menu-all-popups))
(let ((same-as-menu
1.7.2.3 +3 -3 XEmacs/xemacs/lisp/font.el
Index: font.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font.el,v
retrieving revision 1.7.2.2
retrieving revision 1.7.2.3
diff -u -p -r1.7.2.2 -r1.7.2.3
--- font.el 2002/08/20 11:34:44 1.7.2.2
+++ font.el 2005/11/28 02:10:09 1.7.2.3
＠＠ -310,8 +310,8 ＠＠ Canonical sizes are in points. If SPEC
a number, it is interpreted as the desired point size and returned unchanged.
Otherwise SPEC must be a string consisting of a number and an optional type.
The type may be the strings \"px\", \"pix\", or \"pixel\" (pixels), \"pt\" or
-\"point\" (points), \"pa\" or \"pica\" (picas), \"in\" or \"inch\" (inches), \"cm\"
-(centimeters), or \"mm\" (millimeters).
+\"point\" (points), \"pa\" or \"pica\" (picas), \"in\" or \"inch\" (inches),
+\"cm\" (centimeters), or \"mm\" (millimeters).
1 in = 2.54 cm = 6 pa = 25.4 mm = 72 pt. Pixel size is device-dependent."
(cond
＠＠ -350,7 +350,7 ＠＠ The type may be the strings \"px\", \"pi
(setq num (string-to-number spec))
(cond
((member type '("pixel" "px" "pix"))
- (setq retval (* num (/ pix-width mm-width) (/ 25.4 72.0))))
+ (setq retval (* num (/ mm-width pix-width) (/ 72.0 25.4))))
((member type '("point" "pt"))
(setq retval num))
((member type '("pica" "pa"))
1.116.2.59 +9 -0 XEmacs/xemacs/man/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v
retrieving revision 1.116.2.58
retrieving revision 1.116.2.59
diff -u -p -r1.116.2.58 -r1.116.2.59
--- ChangeLog 2005/11/26 03:47:34 1.116.2.58
+++ ChangeLog 2005/11/28 02:10:12 1.116.2.59
＠＠ -3,6 +3,15 ＠＠
* lispref/mule.texi (CCL Example): Detail an implementation of the
web's URL encoding as a CCL coding system example.
+2005-03-26 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * lispref/mule.texi (CCL Example):
+ char-int -> char-to-int, and hex 41 is decimal 65, both problems
+ with my previous patch pointed out by Stephen.
+ * lispref/mule.texi (The actual coding system):
+ Give information on the make-coding-system call, and where the
+ actual package can be found.
+
2005-02-23 Aidan Kehoe <kehoea(a)parhasard.net>
* lispref/searching.texi (Syntax of Regexps):
1.4.2.4 +41 -11 XEmacs/xemacs/man/lispref/mule.texi
Index: mule.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/man/lispref/mule.texi,v
retrieving revision 1.4.2.3
retrieving revision 1.4.2.4
diff -u -p -r1.4.2.3 -r1.4.2.4
--- mule.texi 2005/11/26 03:47:36 1.4.2.3
+++ mule.texi 2005/11/28 02:10:14 1.4.2.4
＠＠ -2053,7 +2053,7 ＠＠ initialized as constants.
* Characters to be preserved:: No transformation needed for these characters.
* The program to decode to internal format:: .
* The program to encode from internal format:: .
-
+* The actual coding system:: .
＠end menu
＠node Four bits to ASCII, URI Encoding constants, , CCL Example
＠＠ -2073,7 +2073,7 ＠＠ after this file is loaded gives the ASCI
(let ((val (make-vector 256 0))
(i 0))
(while (< i (length val))
- (aset val i (char-int (aref (format "%02X" i) 0)))
+ (aset val i (char-to-int (aref (format "%02X" i) 0)))
(setq i (1+ i)))
val)
"Table to find an ASCII version of an octet's most significant 4 bits.")
＠＠ -2081,7 +2081,7 ＠＠ after this file is loaded gives the ASCI
The next table, ＠code{url-coding-low-order-nybble-as-ascii} is almost
the same thing, but this time it has a map for the hex encoding of the
-low-order four bits. So the sixty-fifth entry (offset ＠samp{#x51}) is
+low-order four bits. So the sixty-fifth entry (offset ＠samp{#x41}) is
the ASCII encoding of `1', the hundred-and-twenty-second (offset
＠samp{#x7a}) is the ASCII encoding of `A'.
＠＠ -2090,7 +2090,7 ＠＠ the ASCII encoding of `1', the hundred-a
(let ((val (make-vector 256 0))
(i 0))
(while (< i (length val))
- (aset val i (char-int (aref (format "%02X" i) 1)))
+ (aset val i (char-to-int (aref (format "%02X" i) 1)))
(setq i (1+ i)))
val)
"Table to find an ASCII version of an octet's least significant 4 bits.")
＠＠ -2110,14 +2110,14 ＠＠ the space character. When doing this in
＠code{url-coding-escaped-space-code} variable.
＠example
-(defvar url-coding-escape-character-code (char-int ?%)
+(defvar url-coding-escape-character-code (char-to-int ?%)
"The code point for the percentage sign, in ASCII.")
-(defvar url-coding-escaped-space-code (char-int ?+)
+(defvar url-coding-escaped-space-code (char-to-int ?+)
"The URL-encoded value of the space character, that is, +.")
＠end example
-＠node Numeric to ASCII-hexadecimal conversion
+＠node Numeric to ASCII-hexadecimal conversion, Characters to be preserved, URI Encoding constants, CCL Example
＠subsubsection Numeric to ASCII-hexadecimal conversion
Now, we have a couple of utility tables that wouldn't be necessary in
＠＠ -2133,7 +2133,7 ＠＠ a few examples.)
(let ((i 0)
(val (make-vector 16 0)))
(while (< i 16)
- (aset val i (char-int (aref (format "%X" i) 0)))
+ (aset val i (char-to-int (aref (format "%X" i) 0)))
(setq i (1+ i)))
val)
"A map from a hexadecimal digit's numeric value to its encoding in ASCII.")
＠＠ -2149,7 +2149,7 ＠＠ a few examples.)
"A map from Latin 1 code points to their values as hexadecimal digits.")
＠end example
-＠node Characters to be preserved
+＠node Characters to be preserved, The program to decode to internal format, Numeric to ASCII-hexadecimal conversion, CCL Example
＠subsubsection Characters to be preserved
And finally, the last of these tables. URL encoding says that
＠＠ -2183,7 +2183,7 ＠＠ every nanosecond counts.
octet as its ASCII encoding.")
＠end example
-＠node The program to decode to internal format
+＠node The program to decode to internal format, The program to encode from internal format, Characters to be preserved, CCL Example
＠subsubsection The program to decode to internal format
After the almost interminable tables, we get to the CCL. The first
＠＠ -2244,7 +2244,7 ＠＠ buffer, and move to the next iteration o
internal encoding. ")
＠end example
-＠node The program to encode from internal format
+＠node The program to encode from internal format, The actual coding system, The program to decode to internal format, CCL Example
＠subsubsection The program to encode from internal format
Next, we see the CCL program to encode ASCII text as URL coded text.
＠＠ -2279,6 +2279,36 ＠＠ We then read an octet from the input int
(repeat))))
"CCL program to encode octets (almost) according to RFC 1738")
＠end example
+
+＠node The actual coding system, , The program to encode from internal format, CCL Example
+＠subsubsection The actual coding system
+
+To actually create the coding system, we call
+＠samp{make-coding-system}. The first argument is the symbol that is to
+be the name of the coding system, in our case ＠samp{url-coding}. The
+second specifies that the coding system is to be of type
+＠samp{ccl}---there are several other coding system types available,
+including, see the documentation for ＠samp{make-coding-system} for the
+full list. Then there's a documentation string describing the wherefore
+and caveats of the coding system, and the final argument is a property
+list giving information about the CCL programs and the coding system's
+mnemonic.
+
+＠example
+(make-coding-system
+ 'url-coding 'ccl
+ "The coding used by application/x-www-form-urlencoded HTTP applications.
+This coding form doesn't specify anything about non-ASCII characters, so
+make sure you've transformed to a seven-bit coding system first."
+ '(decode ccl-decode-urlcoding
+ encode ccl-encode-urlcoding
+ mnemonic "URLenc"))
+＠end example
+
+If you're lucky, the ＠samp{url-coding} coding system describe here
+should be available in the XEmacs package system. Otherwise, downloading
+it from ＠samp{http://www.parhasard.net/url-coding.el} should work for
+the foreseeable future.
＠node Category Tables, , CCL, MULE
＠section Category Tables
1.290.2.99 +19 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.290.2.98
retrieving revision 1.290.2.99
diff -u -p -r1.290.2.98 -r1.290.2.99
--- ChangeLog 2005/11/27 01:45:45 1.290.2.98
+++ ChangeLog 2005/11/28 02:10:15 1.290.2.99
＠＠ -1,3 +1,22 ＠＠
+2005-11-27 Kean Johnston <kean(a)armory.com>
+
+ * redisplay-tty.c (set_tty_modes):
+ (reset_tty_modes): disable auto-margins if the terminal supports
+ them.
+ (init_tty_for_redisplay): fix cursor shape.
+
+2005-04-05 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * mule-ccl.c (ccl_driver): Calculate the charset and position code
+ for control-1 characters properly, both when reading multibyte
+ characters and writing them.
+
+2005-03-12 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * config.h.in: Make HAVE_XTREGISTERDRAWABLE available.
+ * select-x.c (x_reply_selection_request): Use it; fix the bug we
+ were seeing with incremental selection transfer failing.
+
2005-11-26 Vin Shelton <acs(a)xemacs.org>
* callproc.c (Fold_call_process_internal): Create the buffer if it
1.61.2.9 +1 -0 XEmacs/xemacs/src/config.h.in
Index: config.h.in
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/config.h.in,v
retrieving revision 1.61.2.8
retrieving revision 1.61.2.9
diff -u -p -r1.61.2.8 -r1.61.2.9
--- config.h.in 2005/11/25 02:01:56 1.61.2.8
+++ config.h.in 2005/11/28 02:10:19 1.61.2.9
＠＠ -205,6 +205,7 ＠＠ void *alloca ();
#undef THIS_IS_X11R6
#undef HAVE_XCONVERTCASE
+#undef HAVE_XTREGISTERDRAWABLE
#undef HAVE_BALLOON_HELP
1.9.2.1 +5 -0 XEmacs/xemacs/src/console-tty.h
Index: console-tty.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-tty.h,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -u -p -r1.9 -r1.9.2.1
--- console-tty.h 2001/04/12 18:23:30 1.9
+++ console-tty.h 2005/11/28 02:10:19 1.9.2.1
＠＠ -82,6 +82,8 ＠＠ struct tty_console
character info */
unsigned int flow_control :1; /* Nonzero means use ^S/^Q as
cretinous flow control. */
+ unsigned int auto_margins :1; /* Nonzero means terminal wraps when
+ writing to the last column */
int standout_width; /* # of spaces printed when
change to standout mode */
int underline_width; /* # of spaces printed when
＠＠ -175,6 +177,9 ＠＠ struct tty_console
const char *keypad_off; /* rmkx, ke */
const char *orig_pair; /* op, op */
+
+ const char *disable_auto_margins; /* rmam, RA */
+ const char *enable_auto_margins; /* smam, SA */
} sd;
/* costs of various operations */
1.15.2.1 +8 -1 XEmacs/xemacs/src/mule-ccl.c
Index: mule-ccl.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-ccl.c,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -u -p -r1.15 -r1.15.2.1
--- mule-ccl.c 2001/04/12 18:24:03 1.15
+++ mule-ccl.c 2005/11/28 02:10:19 1.15.2.1
＠＠ -1303,6 +1303,13 ＠＠ ccl_driver (struct ccl_program *ccl,
reg[RRR] = i;
reg[rrr] = (*src++ & 0x7F);
}
+ else if (LEADING_BYTE_CONTROL_1 == i)
+ {
+ if (src >= src_end)
+ goto ccl_read_multibyte_character_suspend;
+ reg[RRR] = i;
+ reg[rrr] = (*src++ - 0xA0);
+ }
else if (i <= MAX_LEADING_BYTE_OFFICIAL_2)
{
if ((src + 1) >= src_end)
＠＠ -1350,7 +1357,7 ＠＠ ccl_driver (struct ccl_program *ccl,
case CCL_WriteMultibyteChar2:
i = reg[RRR]; /* charset */
- if (i == LEADING_BYTE_ASCII)
+ if (i == LEADING_BYTE_ASCII || i == LEADING_BYTE_CONTROL_1)
i = reg[rrr] & 0xFF;
else if (XCHARSET_DIMENSION (CHARSET_BY_LEADING_BYTE (i)) == 1)
i = (((i - FIELD2_TO_OFFICIAL_LEADING_BYTE) << 7)
1.16.2.2 +11 -2 XEmacs/xemacs/src/redisplay-tty.c
Index: redisplay-tty.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-tty.c,v
retrieving revision 1.16.2.1
retrieving revision 1.16.2.2
diff -u -p -r1.16.2.1 -r1.16.2.2
--- redisplay-tty.c 2005/01/31 02:55:28 1.16.2.1
+++ redisplay-tty.c 2005/11/28 02:10:20 1.16.2.2
＠＠ -864,6 +864,9 ＠＠ set_tty_modes (struct console *c)
OUTPUT1_IF (c, TTY_SD (c).init_motion);
OUTPUT1_IF (c, TTY_SD (c).cursor_visible);
OUTPUT1_IF (c, TTY_SD (c).keypad_on);
+
+ if (TTY_FLAGS (c).auto_margins)
+ OUTPUT1_IF (c, TTY_SD (c).disable_auto_margins);
}
/*****************************************************************************
＠＠ -882,6 +885,9 ＠＠ reset_tty_modes (struct console *c)
OUTPUT1_IF (c, TTY_SD (c).cursor_normal);
OUTPUT1_IF (c, TTY_SD (c).end_motion);
+ if (TTY_FLAGS (c).auto_margins)
+ OUTPUT1_IF (c, TTY_SD (c).enable_auto_margins);
+
{
Lisp_Object frm = CONSOLE_SELECTED_FRAME (c);
＠＠ -1185,12 +1191,14 ＠＠ init_tty_for_redisplay (struct device *d
TTY_SD (c).audio_bell = "\07";
}
- TTY_SD (c).cursor_visible = tgetstr ("ve", &bufptr);
- TTY_SD (c).cursor_normal = tgetstr ("vs", &bufptr);
+ TTY_SD (c).cursor_visible = tgetstr ("vs", &bufptr);
+ TTY_SD (c).cursor_normal = tgetstr ("ve", &bufptr);
TTY_SD (c).init_motion = tgetstr ("ti", &bufptr);
TTY_SD (c).end_motion = tgetstr ("te", &bufptr);
TTY_SD (c).keypad_on = tgetstr ("ks", &bufptr);
TTY_SD (c).keypad_off = tgetstr ("ke", &bufptr);
+ TTY_SD (c).disable_auto_margins = tgetstr ("RA", &bufptr);
+ TTY_SD (c).enable_auto_margins = tgetstr ("SA", &bufptr);
/*
＠＠ -1203,6 +1211,7 ＠＠ init_tty_for_redisplay (struct device *d
TTY_FLAGS (c).memory_below_frame = tgetflag ("db");
TTY_FLAGS (c).standout_width = tgetnum ("sg");
TTY_FLAGS (c).underline_width = tgetnum ("ug");
+ TTY_FLAGS (c).auto_margins = tgetflag ("am");
if (TTY_FLAGS (c).standout_width == -1)
TTY_FLAGS (c).standout_width = 0;
1.2.2.3 +32 -1 XEmacs/xemacs/src/select-x.c
Index: select-x.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/select-x.c,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -p -r1.2.2.2 -r1.2.2.3
--- select-x.c 2005/01/31 02:55:31 1.2.2.2
+++ select-x.c 2005/11/28 02:10:20 1.2.2.3
＠＠ -509,14 +509,41 ＠＠ x_reply_selection_request (XSelectionReq
}
else
{
+#ifndef HAVE_XTREGISTERDRAWABLE
+ invalid_operation("Copying that much data requires X11R6.", Qunbound);
+#else
/* Send an INCR selection. */
int prop_id;
+ Widget widget = FRAME_X_TEXT_WIDGET (XFRAME(DEVICE_SELECTED_FRAME(d)));
if (x_window_to_frame (d, window)) /* #### debug */
error ("attempt to transfer an INCR to ourself!");
#if 0
stderr_out ("\nINCR %d\n", bytes_remaining);
#endif
+ /* Tell Xt not to drop PropertyNotify events that arrive for the
+ target window, rather, pass them to us. This would be a hack, but
+ the Xt selection routines are broken for our purposes--we can't
+ pass them callbacks from Lisp, for example. Let's call it a
+ workaround.
+
+ The call to wait_for_property_change means we can break out of that
+ function, switch to another frame on the same display (which will
+ be another Xt widget), select a huge amount of text, and have the
+ same (foreign) app ask for another incremental selection
+ transfer. Programming like X11 made sense, would mean that, in that
+ case, XtRegisterDrawable is called twice with different widgets.
+
+ Since the results of calling XtRegisterDrawable when the drawable
+ is already registered with another widget are undefined, we want to
+ avoid that--so, only call it when XtWindowToWidget returns NULL,
+ which it will only do with a valid Window if it's not already
+ registered. */
+ if (NULL == XtWindowToWidget(display, window))
+ {
+ XtRegisterDrawable(display, (Drawable)window, widget);
+ }
+
prop_id = expect_property_change (display, window, reply.property,
PropertyDelete);
＠＠ -560,10 +587,14 ＠＠ x_reply_selection_request (XSelectionReq
stderr_out (" INCR done\n");
#endif
if (! waiting_for_other_props_on_window (display, window))
- XSelectInput (display, window, 0L);
+ {
+ XSelectInput (display, window, 0L);
+ XtUnregisterDrawable(display, (Drawable)window);
+ }
XChangeProperty (display, window, reply.property, type, format,
PropModeReplace, data, 0);
+#endif /* HAVE_XTREGISTERDRAWABLE */
}
}
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/11/27 23:50:54
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1357 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1356
retrieving revision 1.1357
diff -u -p -r1.1356 -r1.1357
--- version.sh 2005/11/26 22:51:20 1.1356
+++ version.sh 2005/11/27 22:50:53 1.1357
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20051126)"
+xemacs_extra_name="(+CVS-20051127)"
xemacs_release_date="2005-10-26"
- 1 participants
- 0 comments
CVS update by crestani xemacs/src ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: crestani
Date: 05/11/27 11:51:27
Modified: xemacs/src ChangeLog lrecord.h
Log:
Remove NEWGC junk.
Revision Changes Path
1.896 +4 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.895
retrieving revision 1.896
diff -u -p -r1.895 -r1.896
--- ChangeLog 2005/11/26 18:25:02 1.895
+++ ChangeLog 2005/11/27 10:51:24 1.896
＠＠ -1,3 +1,7 ＠＠
+2005-11-27 Marcus Crestani <crestani(a)xemacs.org>
+
+ * lrecord.h: Remove NEWGC junk.
+
2005-11-27 Stephen J. Turnbull <stephen(a)xemacs.org>
Build fixes and dead code removal.
1.46 +0 -2 XEmacs/xemacs/src/lrecord.h
Index: lrecord.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lrecord.h,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -p -r1.45 -r1.46
--- lrecord.h 2005/11/26 11:46:09 1.45
+++ lrecord.h 2005/11/27 10:51:25 1.46
＠＠ -1,5 +1,3 ＠＠
-#define NEW_GC_REMOVE
-
/* The "lrecord" structure (header of a compound lisp object).
Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
Copyright (C) 1996, 2001, 2002, 2004, 2005 Ben Wing.
- 1 participants
- 0 comments
CVS update by vins xemacs/src ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: vins
Date: 05/11/27 02:45:58
Branch: xemacs/src release-21-4
Modified: xemacs/src ChangeLog callproc.c
Log:
Fold_call_process_internal): Create the buffer if it does not already exist.
Revision Changes Path
1.290.2.98 +6 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.290.2.97
retrieving revision 1.290.2.98
diff -u -p -r1.290.2.97 -r1.290.2.98
--- ChangeLog 2005/11/26 03:47:38 1.290.2.97
+++ ChangeLog 2005/11/27 01:45:45 1.290.2.98
＠＠ -1,3 +1,9 ＠＠
+2005-11-26 Vin Shelton <acs(a)xemacs.org>
+
+ * callproc.c (Fold_call_process_internal): Create the buffer if it
+ does not already exist. The original patch came from Ben Wing in
+ http://list-archive.xemacs.org/xemacs-patches/200205/msg00117.html
+
2002-05-13 Adrian Aichner <adrian(a)xemacs.org>
* callproc.c: Process-related docstring improvements spurred by
1.37.2.5 +1 -1 XEmacs/xemacs/src/Attic/callproc.c
Index: callproc.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Attic/callproc.c,v
retrieving revision 1.37.2.4
retrieving revision 1.37.2.5
diff -u -p -r1.37.2.4 -r1.37.2.5
--- callproc.c 2005/11/26 03:47:42 1.37.2.4
+++ callproc.c 2005/11/27 01:45:51 1.37.2.5
＠＠ -291,7 +291,7 ＠＠ If you quit, the process is killed with
|| ZEROP (buffer)))
{
Lisp_Object spec_buffer = buffer;
- buffer = Fget_buffer (buffer);
+ buffer = Fget_buffer_create (buffer);
/* Mention the buffer name for a better error message. */
if (NILP (buffer))
CHECK_BUFFER (spec_buffer);
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
17 years, 3 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/11/26 23:51:20
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1356 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1355
retrieving revision 1.1356
diff -u -p -r1.1355 -r1.1356
--- version.sh 2005/11/25 22:51:38 1.1355
+++ version.sh 2005/11/26 22:51:20 1.1356
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20051125)"
+xemacs_extra_name="(+CVS-20051126)"
xemacs_release_date="2005-10-26"
- 1 participants
- 0 comments
CVS update by stephent xemacs ...
17 years, 4 months
CVS Monitor
CVS Monitor
User: stephent
Date: 05/11/26 19:49:14
Modified: xemacs configure configure.ac ChangeLog
Log:
Change Xft default to OFF. <87d5kn2qkw.fsf_-_(a)tleepslib.sk.tsukuba.ac.jp>
Revision Changes Path
1.264 +11 -11 XEmacs/xemacs/configure
Index: configure
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v
retrieving revision 1.263
retrieving revision 1.264
diff -u -p -r1.263 -r1.264
--- configure 2005/11/26 18:24:51 1.263
+++ configure 2005/11/26 18:49:06 1.264
＠＠ -996,8 +996,8 ＠＠ Window-system options
Xft are `emacs' (buffers), `menubars', `tabs', and
`gauges'. Prefix component with `no' to disable its
use of Xft. Requires X11, Xft, Xrender, freetype,
- and fontconfig support. Default is
- `emacs,menubars,tabs,gauges'.
+ and fontconfig support. Default is `noemacs,
+ nomenubars, notabs, nogauges'.
--with-gtk Support GTK on the X Window System. (EXPERIMENTAL)
--with-gnome Support GNOME on the X Window System. (EXPERIMENTAL)
--with-msw Support MS Windows as a window system (only under
＠＠ -2264,17 +2264,17 ＠＠ _ACEOF
fi;
_xft_notfirst=""
-with_xft_emacs=yes
-enable_xft_emacs=yes
-with_xft_menubars=yes
-enable_xft_menubars=yes
-with_xft_tabs=yes
-enable_xft_tabs=yes
-with_xft_gauges=yes
-enable_xft_gauges=yes
+with_xft_emacs=no
+enable_xft_emacs=no
+with_xft_menubars=no
+enable_xft_menubars=no
+with_xft_tabs=no
+enable_xft_tabs=no
+with_xft_gauges=no
+enable_xft_gauges=no
_xft_types="emacs menubars tabs gauges"
-_xft_default="emacs,menubars,tabs,gauges"
+_xft_default="noemacs,nomenubars,notabs,nogauges"
1.25 +5 -5 XEmacs/xemacs/configure.ac
Index: configure.ac
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -r1.24 -r1.25
--- configure.ac 2005/11/26 18:24:54 1.24
+++ configure.ac 2005/11/26 18:49:09 1.25
＠＠ -637,12 +637,12 ＠＠ XE_COMPLEX_ARG([xft],
[Xft],
[`emacs' (buffers), `menubars', `tabs', and `gauges'],
[X11, Xft, Xrender, freetype, and fontconfig],
- [`emacs,menubars,tabs,gauges'])],
+ [`noemacs, nomenubars, notabs, nogauges'])],
[],[],
- [XE_COMPLEX_OPTION([emacs],[yes]),
- XE_COMPLEX_OPTION([menubars],[yes]),
- XE_COMPLEX_OPTION([tabs],[yes]),
- XE_COMPLEX_OPTION([gauges],[yes])])
+ [XE_COMPLEX_OPTION([emacs],[no]),
+ XE_COMPLEX_OPTION([menubars],[no]),
+ XE_COMPLEX_OPTION([tabs],[no]),
+ XE_COMPLEX_OPTION([gauges],[no])])
XE_MERGED_ARG([gtk],
AC_HELP_STRING([--with-gtk],[Support GTK on the X Window System. (EXPERIMENTAL)]),
[true], [with_gtk=no])
1.476 +5 -0 XEmacs/xemacs/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v
retrieving revision 1.475
retrieving revision 1.476
diff -u -p -r1.475 -r1.476
--- ChangeLog 2005/11/26 18:24:51 1.475
+++ ChangeLog 2005/11/26 18:49:10 1.476
＠＠ -1,5 +1,10 ＠＠
2005-11-27 Stephen J. Turnbull <stephen(a)xemacs.org>
+ * configure.ac (XE_COMPLEX_ARG[xft]): Default everything off;
+ change doc.
+
+2005-11-27 Stephen J. Turnbull <stephen(a)xemacs.org>
+
* configure.ac (XE_COMPLEX_ARG[xft]): Remove merge detritus and
regenerate configure to fix syntax error.
- 1 participants
- 0 comments
CVS update by stephent xemacs/src ...
17 years, 4 months
CVS Monitor
CVS Monitor
User: stephent
Date: 05/11/26 19:25:05
Modified: xemacs/src ChangeLog objects-x.c xft-fonts.c
Log:
Build fixes. <87hd9z2rge.fsf_-_(a)tleepslib.sk.tsukuba.ac.jp>
Revision Changes Path
1.475 +5 -0 XEmacs/xemacs/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v
retrieving revision 1.474
retrieving revision 1.475
diff -u -p -r1.474 -r1.475
--- ChangeLog 2005/11/26 11:45:47 1.474
+++ ChangeLog 2005/11/26 18:24:51 1.475
＠＠ -1,3 +1,8 ＠＠
+2005-11-27 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * configure.ac (XE_COMPLEX_ARG[xft]): Remove merge detritus and
+ regenerate configure to fix syntax error.
+
2005-11-26 Stephen J. Turnbull <stephen(a)xemacs.org>
Merge Xft.
1.263 +0 -1 XEmacs/xemacs/configure
Index: configure
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v
retrieving revision 1.262
retrieving revision 1.263
diff -u -p -r1.262 -r1.263
--- configure 2005/11/26 12:09:23 1.262
+++ configure 2005/11/26 18:24:51 1.263
＠＠ -2340,7 +2340,6 ＠＠ unset _xft_default _xft_all_default x y
fi;
- , )
# If --with-gtk or --without-gtk were given then copy the value to the
# equivalent enable_gtk variable.
if test "${with_gtk+set}" = set; then
1.24 +0 -1 XEmacs/xemacs/configure.ac
Index: configure.ac
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -p -r1.23 -r1.24
--- configure.ac 2005/11/26 11:45:48 1.23
+++ configure.ac 2005/11/26 18:24:54 1.24
＠＠ -643,7 +643,6 ＠＠ XE_COMPLEX_ARG([xft],
XE_COMPLEX_OPTION([menubars],[yes]),
XE_COMPLEX_OPTION([tabs],[yes]),
XE_COMPLEX_OPTION([gauges],[yes])])
- [], [])
XE_MERGED_ARG([gtk],
AC_HELP_STRING([--with-gtk],[Support GTK on the X Window System. (EXPERIMENTAL)]),
[true], [with_gtk=no])
1.895 +11 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.894
retrieving revision 1.895
diff -u -p -r1.894 -r1.895
--- ChangeLog 2005/11/26 13:20:21 1.894
+++ ChangeLog 2005/11/26 18:25:02 1.895
＠＠ -1,3 +1,14 ＠＠
+2005-11-27 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ Build fixes and dead code removal.
+
+ * xft-fonts.c (Ffc_pattern_destroy): Delete.
+ (syms_of_xft_fonts): Delete Ffc_pattern_destroy and comment out
+ Fxft_name_unparse.
+
+ * objects-x.c (DECLARE_DEBUG_FONTNAME): Renamed improved
+ SET_DEBUG_FONTNAME. Remove redundant debug level checks.
+
2004-12-19 Stephen J. Turnbull <stephen(a)xemacs.org>
* keymap.c (Fwhere_is_internal): Rewrite docstring.
1.30 +23 -35 XEmacs/xemacs/src/objects-x.c
Index: objects-x.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -p -r1.29 -r1.30
--- objects-x.c 2005/11/26 11:46:09 1.29
+++ objects-x.c 2005/11/26 18:25:03 1.30
＠＠ -1155,11 +1155,14 ＠＠ static struct charset_reporter charset_t
/* Choose appropriate font name for debug messages.
Use only in the top half of next function (enforced with #undef). */
-#define SET_DEBUG_FONTNAME(name) \
- do { name = \
- debug_xft > 2 ? eistr_fullname \
-: debug_xft > 1 ? eistr_longname \
-: eistr_shortname } while (0)
+#define DECLARE_DEBUG_FONTNAME(__xemacs_name) \
+ Eistring *__xemacs_name; \
+ do \
+ { \
+ __xemacs_name = debug_xft > 2 ? eistr_fullname \
+: debug_xft > 1 ? eistr_longname \
+: eistr_shortname; \
+ } while (0)
#endif /* USE_XFT */
＠＠ -1302,11 +1305,8 ＠＠ x_find_charset_font (Lisp_Object device,
if (cr->rfc3066)
{
- if (debug_xft > 0)
- {
- SET_DEBUG_FONTNAME (name);
- CHECKING_LANG (0, eidata(name), cr->language);
- }
+ DECLARE_DEBUG_FONTNAME (name);
+ CHECKING_LANG (0, eidata(name), cr->language);
lang = cr->rfc3066;
}
else if (cr->charset)
＠＠ -1348,12 +1348,9 ＠＠ x_find_charset_font (Lisp_Object device,
should have the full thing internally as truename, and
filter stuff the client doesn't want to see on output.
Should we just store it into the truename right here? */
- if (debug_xft > 0)
- {
- SET_DEBUG_FONTNAME (name);
- DEBUG_XFT2 (0, "Xft font %s supports %s\n",
- eidata(name), lang);
- }
+ DECLARE_DEBUG_FONTNAME (name);
+ DEBUG_XFT2 (0, "Xft font %s supports %s\n",
+ eidata(name), lang);
#ifdef RETURN_LONG_FONTCONFIG_NAMES
result = eimake_string(eistr_fullname);
#else
＠＠ -1362,12 +1359,9 ＠＠ x_find_charset_font (Lisp_Object device,
}
else
{
- if (debug_xft > 0)
- {
- SET_DEBUG_FONTNAME (name);
- DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n",
- eidata(name), lang);
- }
+ DECLARE_DEBUG_FONTNAME (name);
+ DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n",
+ eidata(name), lang);
result = Qnil;
}
＠＠ -1394,12 +1388,9 ＠＠ x_find_charset_font (Lisp_Object device,
}
else if (FcLangSetHasLang (v.u.l, lang) != FcLangDifferentLang)
{
- if (debug_xft > 0)
- {
- SET_DEBUG_FONTNAME (name);
- DEBUG_XFT2 (0, "Xft font %s supports %s\n",
- eidata(name), lang);
- }
+ DECLARE_DEBUG_FONTNAME (name);
+ DEBUG_XFT2 (0, "Xft font %s supports %s\n",
+ eidata(name), lang);
#ifdef RETURN_LONG_FONTCONFIG_NAMES
result = eimake_string(eistr_fullname);
#else
＠＠ -1408,12 +1399,9 ＠＠ x_find_charset_font (Lisp_Object device,
}
else
{
- if (debug_xft > 0)
- {
- SET_DEBUG_FONTNAME (name);
- DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n",
- eidata(name), lang);
- }
+ DECLARE_DEBUG_FONTNAME (name);
+ DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n",
+ eidata(name), lang);
result = Qnil;
}
}
＠＠ -1434,7 +1422,7 ＠＠ x_find_charset_font (Lisp_Object device,
DEBUG_XFT1 (0, "shit happens, try X11 charset match for %s\n",
XSTRING_DATA(font));
-#undef SET_DEBUG_FONTNAME
+#undef DECLARE_DEBUG_FONTNAME
#endif /* USE_XFT */
LISP_STRING_TO_EXTERNAL (font, patternext, Qx_font_name_encoding);
1.3 +2 -22 XEmacs/xemacs/src/xft-fonts.c
Index: xft-fonts.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xft-fonts.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- xft-fonts.c 2005/11/26 11:46:11 1.2
+++ xft-fonts.c 2005/11/26 18:25:03 1.3
＠＠ -463,25 +463,6 ＠＠ Xft v.2: encoding, charwidth, charheigh
}
}
-#if 0
-/* #### delete this after some testing!! don't forget the DEFSUBR */
-/* #### This is a big mistake, no? --- crap, there's no implicit finalizer */
-DEFUN("fc-pattern-destroy", Ffc_pattern_destroy, 1, 1, 0, /*
-Explicitly deallocate a fc pattern object PATTERN. */
- (pattern))
-{
- CHECK_FCPATTERN(pattern);
-
- /* paranoia strikes deep */
- if (XFCPATTERN_PTR(pattern))
- {
- FcPatternDestroy(XFCPATTERN_PTR(pattern));
- XFCPATTERN_PTR(pattern) = 0;
- }
- return Qnil;
-}
-#endif
-
DEFUN("fc-font-match", Ffc_font_match, 2, 2, 0, /*
Return the font on DEVICE that most closely matches PATTERN.
＠＠ -785,14 +766,13 ＠＠ syms_of_xft_fonts (void)
DEFSUBR(Ffc_pattern_create);
DEFSUBR(Ffc_name_parse);
DEFSUBR(Ffc_name_unparse);
+#if 0
DEFSUBR(Fxft_name_unparse); /* URK! */
+#endif
DEFSUBR(Ffc_pattern_duplicate);
DEFSUBR(Ffc_pattern_add);
DEFSUBR(Ffc_pattern_del);
DEFSUBR(Ffc_pattern_get);
-#if 0
- DEFSUBR(Ffc_pattern_destroy);
-#endif
DEFSUBR(Ffc_list_fonts_pattern_objects);
DEFSUBR(Ffc_font_sort);
DEFSUBR(Ffc_font_match);
- 1 participants
- 0 comments