# HG changeset patch # User cvs # Date 1186988909 -7200 # Node ID ac0620f6398e7600eb9e5e72cfdf35ec8df1b692 # Parent ba3ba6e174567ae1792a98dd7b8450e6f2dd49af Import from CVS: tag r20-0b92 diff -r ba3ba6e17456 -r ac0620f6398e CHANGES-beta --- a/CHANGES-beta Mon Aug 13 09:07:39 2007 +0200 +++ b/CHANGES-beta Mon Aug 13 09:08:29 2007 +0200 @@ -1,4 +1,7 @@ -*- indented-text -*- +to 20.0 beta92 +-- Miscellaneous bug fixes + to 20.0 beta91 -- func-menu.el-2.45 -- ediff-2.64 diff -r ba3ba6e17456 -r ac0620f6398e ChangeLog --- a/ChangeLog Mon Aug 13 09:07:39 2007 +0200 +++ b/ChangeLog Mon Aug 13 09:08:29 2007 +0200 @@ -1,3 +1,16 @@ +Sat Jan 25 15:43:59 1997 Steven L Baur + + * CHANGES-beta: XEmacs 20.0-b92 is released. + +Fri Jan 24 09:54:01 1997 Steven L Baur + + * lwlib/xlwmenu.c (massage_resource_name): Changed comparison of + char and pointer. + +Thu Jan 23 10:39:34 1997 Martin Buchholz + + * lib-src/update-elc.sh (ignore_dirs): Quoting portability. + Wed Jan 22 21:07:17 1997 Steven L Baur * XEmacs 20.0-b91 (prerelease 2) is released. diff -r ba3ba6e17456 -r ac0620f6398e configure --- a/configure Mon Aug 13 09:07:39 2007 +0200 +++ b/configure Mon Aug 13 09:08:29 2007 +0200 @@ -3899,30 +3899,33 @@ fi rm -f conftest* } -test -z "${with_png}" && { ac_save_LIBS="${LIBS}" -LIBS="${LIBS} -lpng" -ac_have_lib="" -test -n "$silent" || echo "checking for -lpng" +test -z "${with_png}" && { test -n "$silent" || echo "checking for pow" cat > conftest.${ac_ext} < int main() { return 0; } -int t() { main();; return 0; } +int t() { +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_pow) || defined (__stub___pow) +choke me +#else +/* Override any gcc2 internal prototype to avoid an error. */ +extern char pow(); pow(); +#endif +; return 0; } EOF if eval $ac_compile; then + : +else rm -rf conftest* - ac_have_lib="1" - + with_png="no" fi rm -f conftest* -LIBS="${ac_save_LIBS}" -if test -n "${ac_have_lib}"; then - :; -else - :; with_png="no" -fi } -test -z "${with_png}" && { ac_save_LIBS="${LIBS}" +if test -z "${with_png}" ; then + ac_save_LIBS="${LIBS}" LIBS="${LIBS} -lz" ac_have_lib="" test -n "$silent" || echo "checking for -lz" @@ -3944,8 +3947,8 @@ else :; fi - } -test -z "${with_png}" && { ac_save_LIBS="${LIBS}" + + test -z "${with_png}" && { ac_save_LIBS="${LIBS}" LIBS="${LIBS} -lgz" ac_have_lib="" test -n "$silent" || echo "checking for -lgz" @@ -3968,6 +3971,38 @@ :; with_png="no" fi } + if test "${with_png}" != "no"; then + png_save_libs="${LIBS}" + case "${with_png}" in + yes ) LIBS="${LIBS} -lz" ;; + gnuz ) LIBS="${LIBS} -lgz" ;; + esac + ac_save_LIBS="${LIBS}" +LIBS="${LIBS} -lpng" +ac_have_lib="" +test -n "$silent" || echo "checking for -lpng" +cat > conftest.${ac_ext} < - - HTML 3.2 aims to capture recommended practice as of early '96 - and as such to be used as a replacement for HTML 2.0 (RFC 1866). - Widely deployed rendering attributes are included where they - have been shown to be interoperable. SCRIPT and STYLE are - included to smooth the introduction of client-side scripts - and style sheets. Browsers must avoid showing the contents - of these element Otherwise support for them is not required. - ID, CLASS and STYLE attributes are not included in this version - of HTML. ---> - - - - ... - - -- - > - - - - - - - - - - - - - - - - - - - - - - -]]> - - - - - - -%ISOlat1; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -]]> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -]]> - - - - - - diff -r ba3ba6e17456 -r ac0620f6398e etc/sgml/cdtd/html-3.2f Binary file etc/sgml/cdtd/html-3.2f has changed diff -r ba3ba6e17456 -r ac0620f6398e etc/sgml/html-3.2f.dtd --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/sgml/html-3.2f.dtd Mon Aug 13 09:08:29 2007 +0200 @@ -0,0 +1,598 @@ + + + + + ... + + -- + > + + + + + + + + + + + + + + + + + + + + + + +]]> + + + + + + +%ISOlat1; + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +]]> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +]]> + + + + + + diff -r ba3ba6e17456 -r ac0620f6398e lib-src/update-elc.sh --- a/lib-src/update-elc.sh Mon Aug 13 09:07:39 2007 +0200 +++ b/lib-src/update-elc.sh Mon Aug 13 09:08:29 2007 +0200 @@ -54,9 +54,16 @@ # Only use Mule XEmacs to compile Mule-specific elisp dirs echo "Checking for Mule support..." -lisp_prog='(when (featurep (quote mule)) (message "yes"))' -if test -z `$REAL -batch -no-site-file -eval "$lisp_prog" 2>&1` ; then +lisp_prog='(princ (featurep (quote mule)))' +mule_p="`$REAL -batch -no-site-file -eval \"$lisp_prog\"`" +if test "$mule_p" = nil ; then + echo No ignore_dirs="$ignore_dirs mule" +elif test "$mule_p" = t; then + echo Yes +else + echo "Error determining presence of mule support" + exit 1; fi # first recompile the byte-compiler, so that the other compiles take place diff -r ba3ba6e17456 -r ac0620f6398e lisp/ChangeLog --- a/lisp/ChangeLog Mon Aug 13 09:07:39 2007 +0200 +++ b/lisp/ChangeLog Mon Aug 13 09:08:29 2007 +0200 @@ -1,3 +1,11 @@ +Thu Jan 23 01:40:53 1997 Steven L Baur + + * psgml/psgml-html.el (html-mode): Set up friendlier syntax + table. + + * psgml/psgml.el (sgml-running-xemacs): Remove + sgml-mode-syntax-table since it has been superseded. + Thu Jan 9 13:32:01 1997 Jacques Duthen Prestataire * ps-print.el: Merge patch from [simon] Oct 8, 1996 Simon Marshall diff -r ba3ba6e17456 -r ac0620f6398e lisp/modes/tex-mode.el --- a/lisp/modes/tex-mode.el Mon Aug 13 09:07:39 2007 +0200 +++ b/lisp/modes/tex-mode.el Mon Aug 13 09:08:29 2007 +0200 @@ -65,12 +65,18 @@ "*User defined LaTeX block names. Combined with `standard-latex-block-names' for minibuffer completion.") +(defvar tex-latex-document-regex "documentstyle\\|documentclass" + "matches the first command of a LaTeX document") + (defvar slitex-run-command "slitex" "*Command used to run SliTeX subjob. If this string contains an asterisk (*), it will be replaced by the filename; if not, the name of the file, preceded by blank, will be added to this string.") +(defvar tex-slitex-document-regex "documentstyle{slides}" + "Matches the first command of a slitex document") + (defvar tex-bibtex-command "bibtex" "*Command used by `tex-bibtex-file' to gather bibliographic data. If this string contains an asterisk (*), it will be replaced by the @@ -215,8 +221,8 @@ (beginning-of-line) (search-forward "%" search-end t)))))) (if (and slash (not comment)) - (setq mode (if (looking-at "documentstyle") - (if (looking-at "documentstyle{slides}") + (setq mode (if (looking-at tex-latex-document-regex) + (if (looking-at tex-slitex-document-regex) 'slitex-mode 'latex-mode) 'plain-tex-mode)))) diff -r ba3ba6e17456 -r ac0620f6398e lisp/psgml/psgml-html.el --- a/lisp/psgml/psgml-html.el Mon Aug 13 09:07:39 2007 +0200 +++ b/lisp/psgml/psgml-html.el Mon Aug 13 09:08:29 2007 +0200 @@ -198,6 +198,14 @@ (set (make-local-variable 'sgml-custom-markup) '(("" "\r"))) + + ;; Set up the syntax table. + (modify-syntax-entry ?< "(>" html-mode-syntax-table) + (modify-syntax-entry ?> ")<" html-mode-syntax-table) + (modify-syntax-entry ?\" ". " html-mode-syntax-table) + (modify-syntax-entry ?\\ ". " html-mode-syntax-table) + (modify-syntax-entry ?' "w " html-mode-syntax-table) + ; sigh ... need to call this now to get things working. (sgml-build-custom-menus) (add-submenu nil sgml-html-menu "SGML") diff -r ba3ba6e17456 -r ac0620f6398e lisp/psgml/psgml.el --- a/lisp/psgml/psgml.el Mon Aug 13 09:07:39 2007 +0200 +++ b/lisp/psgml/psgml.el Mon Aug 13 09:08:29 2007 +0200 @@ -1,5 +1,5 @@ ;;; psgml.el --- SGML-editing mode with parsing support -;; $Id: psgml.el,v 1.3 1997/01/23 05:29:40 steve Exp $ +;; $Id: psgml.el,v 1.4 1997/01/26 00:21:43 steve Exp $ ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin ;; Copyright (C) 1992 Free Software Foundation, Inc. @@ -72,19 +72,6 @@ "Abbrev table in use in sgml-mode.") (define-abbrev-table 'sgml-mode-abbrev-table ()) -;;; Wing addition -(defvar sgml-mode-syntax-table nil - "Syntax table used in sgml mode.") - -(if sgml-mode-syntax-table - () - (setq sgml-mode-syntax-table (make-syntax-table)) - (modify-syntax-entry ?< "(>" sgml-mode-syntax-table) - (modify-syntax-entry ?> ")<" sgml-mode-syntax-table) - (modify-syntax-entry ?\" ". " sgml-mode-syntax-table) - (modify-syntax-entry ?\\ ". " sgml-mode-syntax-table) - (modify-syntax-entry ?' "w " sgml-mode-syntax-table)) - (defvar sgml-running-xemacs (not (not (string-match "Lucid\\|XEmacs" emacs-version)))) diff -r ba3ba6e17456 -r ac0620f6398e lisp/version.el --- a/lisp/version.el Mon Aug 13 09:07:39 2007 +0200 +++ b/lisp/version.el Mon Aug 13 09:08:29 2007 +0200 @@ -25,7 +25,7 @@ (defconst emacs-version "20.0" "Version numbers of this version of Emacs.") -(setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta91)"))) +(setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta92)"))) (defconst emacs-major-version (progn (or (string-match "^[0-9]+" emacs-version) diff -r ba3ba6e17456 -r ac0620f6398e lwlib/xlwmenu.c --- a/lwlib/xlwmenu.c Mon Aug 13 09:07:39 2007 +0200 +++ b/lwlib/xlwmenu.c Mon Aug 13 09:08:29 2007 +0200 @@ -383,7 +383,7 @@ { *out++ = firstp ? tolower (ch) : toupper (ch); firstp = False; - while ((ch = massaged_resource_char[(unsigned char) *in++]) != NULL) + while ((ch = massaged_resource_char[(unsigned char) *in++]) != '\0') *out++ = ch; if (!*(in-1)) /* Overshot the NULL byte? */ break; diff -r ba3ba6e17456 -r ac0620f6398e src/ChangeLog --- a/src/ChangeLog Mon Aug 13 09:07:39 2007 +0200 +++ b/src/ChangeLog Mon Aug 13 09:08:29 2007 +0200 @@ -1,3 +1,8 @@ +Thu Jan 23 10:41:19 1997 Steven L. Baur + + * puresize.h: Increase SUNPRO usage to reflect tm & cc-mode. + Decrease BASE_PURESIZE and increase MULE_PURESIZE_EXTRA. + Wed Jan 22 21:09:52 1997 Steven L Baur * puresize.h (BASE_PURESIZE): Tighten up. diff -r ba3ba6e17456 -r ac0620f6398e src/buffer.h --- a/src/buffer.h Mon Aug 13 09:07:39 2007 +0200 +++ b/src/buffer.h Mon Aug 13 09:08:29 2007 +0200 @@ -560,7 +560,6 @@ #endif /* not MULE */ - #define charptr_emchar_n(ptr, offset) \ charptr_emchar (charptr_n_addr (ptr, offset)) @@ -1387,7 +1386,7 @@ __gseda_ptr__ = convert_to_external_format (string_data (__gseda_s__), \ string_length (__gseda_s__), \ &__gseda_len__, fmt); \ - (stick_value_here) = (CONST Extbyte *) alloca (1 + __gseda_len__); \ + (stick_value_here) = (CONST Extbyte *) alloca (1 + __gseda_len__); \ memcpy ((Extbyte *) stick_value_here, __gseda_ptr__, 1 + __gseda_len__); \ (stick_len_here) = __gseda_len__; \ } while (0) @@ -1465,7 +1464,6 @@ #define BYTE_ASCII_P(byte) 1 #endif /* ! MULE */ - /************************************************************************/ /* */ diff -r ba3ba6e17456 -r ac0620f6398e src/getloadavg.c --- a/src/getloadavg.c Mon Aug 13 09:07:39 2007 +0200 +++ b/src/getloadavg.c Mon Aug 13 09:08:29 2007 +0200 @@ -1,21 +1,24 @@ /* Get the system load averages. Copyright (C) 1985, 86, 87, 88, 89, 91, 92, 93, 1994, 1995 - Free Software Foundation, Inc. + Free Software Foundation, Inc. + +This file is part of XEmacs. - This program 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. +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. - This program 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. +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 this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, - USA. */ +You should have received a copy of the GNU General Public License +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. */ + /* Compile-time symbols that this file uses: @@ -95,7 +98,6 @@ #ifndef HAVE_GETLOADAVG - /* The existing Emacs configuration files define a macro called LOAD_AVE_CVT, which accepts a value of type LOAD_AVE_TYPE, and returns the load average multiplied by 100. What we actually want @@ -517,9 +519,7 @@ or -1 if an error occurred. */ int -getloadavg (loadavg, nelem) - double loadavg[]; - int nelem; +getloadavg (double loadavg[], int nelem) { int elem = 0; /* Return value. */ @@ -890,7 +890,7 @@ nl[0].n_un.n_name = LDAV_SYMBOL; nl[1].n_un.n_name = 0; #else /* not NLIST_NAME_UNION */ - nl[0].n_name = LDAV_SYMBOL; + nl[0].n_name = (char *) LDAV_SYMBOL; nl[1].n_name = 0; #endif /* not NLIST_NAME_UNION */ #endif /* NLIST_STRUCT */ @@ -1002,9 +1002,7 @@ #ifdef TEST void -main (argc, argv) - int argc; - char **argv; +main (int argc, char **argv) { int naptime = 0; diff -r ba3ba6e17456 -r ac0620f6398e src/glyphs.c --- a/src/glyphs.c Mon Aug 13 09:07:39 2007 +0200 +++ b/src/glyphs.c Mon Aug 13 09:08:29 2007 +0200 @@ -1734,7 +1734,7 @@ ((lisp_fn_t) normalize_image_instantiator, Qnil, Qimage, ERROR_ME_NOT, 3, instantiator, contype, make_int (XIMAGE_SPECIFIER_ALLOWED (specifier))); - + if (!NILP (newinst)) { Lisp_Object newtag; diff -r ba3ba6e17456 -r ac0620f6398e src/lisp.h --- a/src/lisp.h Mon Aug 13 09:07:39 2007 +0200 +++ b/src/lisp.h Mon Aug 13 09:08:29 2007 +0200 @@ -784,9 +784,9 @@ /* For a list that's known to be in valid list format, where we may be deleting the current element out of the list -- will abort() if the list is not in valid format */ -#define LIST_LOOP_DELETING(consvar, nextconsvar, list) \ - for (consvar = list; \ - !NILP (consvar) ? (nextconsvar = XCDR (consvar), 1) : 0; \ +#define LIST_LOOP_DELETING(consvar, nextconsvar, list) \ + for (consvar = list; \ + !NILP (consvar) ? (nextconsvar = XCDR (consvar), 1) : 0; \ consvar = nextconsvar) /* For a list that may not be in valid list format -- @@ -1060,7 +1060,7 @@ /*********** subr ***********/ typedef Lisp_Object (*lisp_fn_t) (Lisp_Object, ...); - + struct Lisp_Subr { struct lrecord_header lheader; @@ -1169,24 +1169,24 @@ /* These are always continuable because they change their arguments even when no error is signalled. */ -#define CHECK_INT_OR_FLOAT_COERCE_MARKER(x) do \ -{ if (INTP (x) || FLOATP (x)) \ - ; \ - else if (MARKERP (x)) \ - x = make_int (marker_position (x)); \ - else \ - x = wrong_type_argument (Qnumber_or_marker_p, x); \ +#define CHECK_INT_OR_FLOAT_COERCE_MARKER(x) do \ +{ if (INTP (x) || FLOATP (x)) \ + ; \ + else if (MARKERP (x)) \ + x = make_int (marker_position (x)); \ + else \ + x = wrong_type_argument (Qnumber_or_marker_p, x); \ } while (0) -#define CHECK_INT_OR_FLOAT_COERCE_CHAR_OR_MARKER(x) do \ -{ if (INTP (x) || FLOATP (x)) \ - ; \ - else if (CHARP (x)) \ - x = make_int (XCHAR (x)); \ - else if (MARKERP (x)) \ - x = make_int (marker_position (x)); \ - else \ - x = wrong_type_argument (Qnumber_char_or_marker_p, x); \ +#define CHECK_INT_OR_FLOAT_COERCE_CHAR_OR_MARKER(x) do \ +{ if (INTP (x) || FLOATP (x)) \ + ; \ + else if (CHARP (x)) \ + x = make_int (XCHAR (x)); \ + else if (MARKERP (x)) \ + x = make_int (marker_position (x)); \ + else \ + x = wrong_type_argument (Qnumber_char_or_marker_p, x); \ } while (0) # define INT_OR_FLOATP(x) (INTP (x) || FLOATP (x)) @@ -1246,33 +1246,33 @@ do { if (!NATNUMP (x)) x = wrong_type_argument (Qnatnump, x); } while (0) /* next three always continuable because they coerce their arguments. */ -#define CHECK_INT_COERCE_CHAR(x) do \ -{ if (INTP (x)) \ - ; \ - else if (CHARP (x)) \ - x = make_int (XCHAR (x)); \ - else \ - x = wrong_type_argument (Qinteger_or_char_p, x); \ +#define CHECK_INT_COERCE_CHAR(x) do \ +{ if (INTP (x)) \ + ; \ + else if (CHARP (x)) \ + x = make_int (XCHAR (x)); \ + else \ + x = wrong_type_argument (Qinteger_or_char_p, x); \ } while (0) -#define CHECK_INT_COERCE_MARKER(x) do \ -{ if (INTP (x)) \ - ; \ - else if (MARKERP (x)) \ - x = make_int (marker_position (x)); \ - else \ - x = wrong_type_argument (Qinteger_or_marker_p, x); \ +#define CHECK_INT_COERCE_MARKER(x) do \ +{ if (INTP (x)) \ + ; \ + else if (MARKERP (x)) \ + x = make_int (marker_position (x)); \ + else \ + x = wrong_type_argument (Qinteger_or_marker_p, x); \ } while (0) -#define CHECK_INT_COERCE_CHAR_OR_MARKER(x) do \ -{ if (INTP (x)) \ - ; \ - else if (CHARP (x)) \ - x = make_int (XCHAR (x)); \ - else if (MARKERP (x)) \ - x = make_int (marker_position (x)); \ - else \ - x = wrong_type_argument (Qinteger_char_or_marker_p, x); \ +#define CHECK_INT_COERCE_CHAR_OR_MARKER(x) do \ +{ if (INTP (x)) \ + ; \ + else if (CHARP (x)) \ + x = make_int (XCHAR (x)); \ + else if (MARKERP (x)) \ + x = make_int (marker_position (x)); \ + else \ + x = wrong_type_argument (Qinteger_char_or_marker_p, x); \ } while (0) /*********** pure space ***********/ @@ -1444,7 +1444,7 @@ #define DEFUN_6(a,b,c,d,e,f) DEFUN_5(a,b,c,d,e), Lisp_Object f #define DEFUN_7(a,b,c,d,e,f,g) DEFUN_6(a,b,c,d,e,f), Lisp_Object g #define DEFUN_8(a,b,c,d,e,f,g,h) DEFUN_7(a,b,c,d,e,f,g), Lisp_Object h - + /* WARNING: If you add defines here for higher values of maxargs, make sure to also fix the clauses in primitive_funcall(), and change the define of SUBR_MAX_ARGS above. */ @@ -1473,23 +1473,23 @@ void signal_quit (void); /* Nonzero if ought to quit now. */ -#define QUITP \ - ((quit_check_signal_happened ? check_quit () : 0), \ - (!NILP (Vquit_flag) && (NILP (Vinhibit_quit) \ - || EQ (Vquit_flag, Qcritical)))) +#define QUITP \ + ((quit_check_signal_happened ? check_quit () : 0), \ + (!NILP (Vquit_flag) && (NILP (Vinhibit_quit) \ + || EQ (Vquit_flag, Qcritical)))) /* QUIT used to call QUITP, but there are some places where QUITP is called directly, and check_what_happened() should only be called when Emacs is actually ready to quit because it could do things like switch threads. */ -#define INTERNAL_QUITP \ - ((something_happened ? check_what_happened () : 0), \ - (!NILP (Vquit_flag) && \ +#define INTERNAL_QUITP \ + ((something_happened ? check_what_happened () : 0), \ + (!NILP (Vquit_flag) && \ (NILP (Vinhibit_quit) || EQ (Vquit_flag, Qcritical)))) -#define INTERNAL_REALLY_QUITP \ - (check_what_happened (), \ - (!NILP (Vquit_flag) && \ +#define INTERNAL_REALLY_QUITP \ + (check_what_happened (), \ + (!NILP (Vquit_flag) && \ (NILP (Vinhibit_quit) || EQ (Vquit_flag, Qcritical)))) /* Check quit-flag and quit if it is non-nil. Also do any other things @@ -1595,7 +1595,7 @@ #ifdef DEBUG_GCPRO void debug_gcpro1 (); -void debug_gcpro2 (), +void debug_gcpro2 (); void debug_gcpro3 (); void debug_gcpro4 (); void debug_gcpro5 (); @@ -1758,39 +1758,39 @@ #endif /* Evaluate expr, UNGCPRO, and then return the value of expr. */ -#define RETURN_UNGCPRO(expr) do \ -{ \ - Lisp_Object ret_ungc_val = (expr); \ - UNGCPRO; \ - RETURN__ ret_ungc_val; \ +#define RETURN_UNGCPRO(expr) do \ +{ \ + Lisp_Object ret_ungc_val = (expr); \ + UNGCPRO; \ + RETURN__ ret_ungc_val; \ } while (0) /* Evaluate expr, NUNGCPRO, UNGCPRO, and then return the value of expr. */ -#define RETURN_NUNGCPRO(expr) do \ -{ \ - Lisp_Object ret_ungc_val = (expr); \ - NUNGCPRO; \ - UNGCPRO; \ - RETURN__ ret_ungc_val; \ +#define RETURN_NUNGCPRO(expr) do \ +{ \ + Lisp_Object ret_ungc_val = (expr); \ + NUNGCPRO; \ + UNGCPRO; \ + RETURN__ ret_ungc_val; \ } while (0) /* Evaluate expr, NNUNGCPRO, NUNGCPRO, UNGCPRO, and then return the value of expr. */ -#define RETURN_NNUNGCPRO(expr) do \ -{ \ - Lisp_Object ret_ungc_val = (expr); \ - NNUNGCPRO; \ - NUNGCPRO; \ - UNGCPRO; \ - RETURN__ ret_ungc_val; \ +#define RETURN_NNUNGCPRO(expr) do \ +{ \ + Lisp_Object ret_ungc_val = (expr); \ + NNUNGCPRO; \ + NUNGCPRO; \ + UNGCPRO; \ + RETURN__ ret_ungc_val; \ } while (0) /* Evaluate expr, return it if it's not Qunbound. */ -#define RETURN_IF_NOT_UNBOUND(expr) do \ -{ \ - Lisp_Object ret_nunb_val = (expr); \ - if (!UNBOUNDP (ret_nunb_val)) \ - RETURN__ ret_nunb_val; \ +#define RETURN_IF_NOT_UNBOUND(expr) do \ +{ \ + Lisp_Object ret_nunb_val = (expr); \ + if (!UNBOUNDP (ret_nunb_val)) \ + RETURN__ ret_nunb_val; \ } while (0) /* Call staticpro (&var) to protect static variable `var'. */ diff -r ba3ba6e17456 -r ac0620f6398e src/puresize.h --- a/src/puresize.h Mon Aug 13 09:07:39 2007 +0200 +++ b/src/puresize.h Mon Aug 13 09:08:29 2007 +0200 @@ -32,9 +32,9 @@ things configured in. */ #if (LONGBITS == 64) -# define BASE_PURESIZE 847000 +# define BASE_PURESIZE 893000 #else -# define BASE_PURESIZE 467000 +# define BASE_PURESIZE 513000 #endif /* If any particular systems need to change the base puresize, they @@ -79,9 +79,9 @@ #ifdef MULE # if (LONGBITS == 64) -# define MULE_PURESIZE_EXTRA 144000 +# define MULE_PURESIZE_EXTRA 99000 # else -# define MULE_PURESIZE_EXTRA 123000 +# define MULE_PURESIZE_EXTRA 78000 # endif #else # define MULE_PURESIZE_EXTRA 0 @@ -110,7 +110,11 @@ /* Extra amount of purespace needed for Sunpro builds. */ #ifdef SUNPRO -# define SUNPRO_PURESIZE_EXTRA 40000 +#ifdef MULE /* ~50k extra for tm */ +# define SUNPRO_PURESIZE_EXTRA 135000 +#else +#define SUNPRO_PURESIZE_EXTRA 85000 +#endif #else # define SUNPRO_PURESIZE_EXTRA 0 #endif diff -r ba3ba6e17456 -r ac0620f6398e src/ralloc.c --- a/src/ralloc.c Mon Aug 13 09:07:39 2007 +0200 +++ b/src/ralloc.c Mon Aug 13 09:08:29 2007 +0200 @@ -1266,18 +1266,18 @@ syms_of_ralloc (void) { #ifdef MMAP_METERING - defsymbol (&Qmm_times_mapped, "mmap-times-mapped" ); - defsymbol (&Qmm_pages_mapped, "mmap-pages-mapped" ); - defsymbol (&Qmm_times_unmapped, "mmap-times-unmapped" ); - defsymbol (&Qmm_times_remapped, "mmap-times-remapped" ); - defsymbol (&Qmm_didnt_copy, "mmap-didnt-copy" ); - defsymbol (&Qmm_pages_copied, "mmap-pages-copied" ); - defsymbol (&Qmm_average_bumpval, "mmap-average-bumpval" ); - defsymbol (&Qmm_wastage, "mmap-wastage" ); - defsymbol (&Qmm_live_pages, "mmap-live-pages" ); - defsymbol (&Qmm_addr_looked_up, "mmap-had-to-look-up-address" ); - defsymbol (&Qmm_hash_worked, "mmap-hash-table-worked" ); - defsymbol (&Qmm_addrlist_size, "mmap-addrlist-size" ); + defsymbol (&Qmm_times_mapped, "mmap-times-mapped"); + defsymbol (&Qmm_pages_mapped, "mmap-pages-mapped"); + defsymbol (&Qmm_times_unmapped, "mmap-times-unmapped"); + defsymbol (&Qmm_times_remapped, "mmap-times-remapped"); + defsymbol (&Qmm_didnt_copy, "mmap-didnt-copy"); + defsymbol (&Qmm_pages_copied, "mmap-pages-copied"); + defsymbol (&Qmm_average_bumpval, "mmap-average-bumpval"); + defsymbol (&Qmm_wastage, "mmap-wastage"); + defsymbol (&Qmm_live_pages, "mmap-live-pages"); + defsymbol (&Qmm_addr_looked_up, "mmap-had-to-look-up-address"); + defsymbol (&Qmm_hash_worked, "mmap-hash-table-worked"); + defsymbol (&Qmm_addrlist_size, "mmap-addrlist-size"); DEFSUBR (Fmmap_allocator_status); #endif /* MMAP_METERING */ } diff -r ba3ba6e17456 -r ac0620f6398e src/scrollbar-x.c --- a/src/scrollbar-x.c Mon Aug 13 09:07:39 2007 +0200 +++ b/src/scrollbar-x.c Mon Aug 13 09:08:29 2007 +0200 @@ -58,7 +58,7 @@ static int x_inhibit_scrollbar_thumb_size_change (void) { - /* Doeesn't work with Athena */ + /* Doesn't work with Athena */ #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) return inhibit_thumb_size_change; #else @@ -597,8 +597,9 @@ SCROLLBAR_X_VDRAG_ORIG_VALUE (instance) = data->slider_value; SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance) = XINT (Fwindow_start (win)); +#else + stupid_vertical_scrollbar_drag_hack = 0; #endif - stupid_vertical_scrollbar_drag_hack = 0; break; case SCROLLBAR_DRAG: