diff options
| -rw-r--r-- | ChangeLog | 19 | ||||
| -rw-r--r-- | admin/CPP-DEFINES | 12 | ||||
| -rwxr-xr-x | configure | 73 | ||||
| -rw-r--r-- | configure.in | 76 | ||||
| -rw-r--r-- | doc/misc/ChangeLog | 4 | ||||
| -rw-r--r-- | doc/misc/calc.texi | 43 | ||||
| -rw-r--r-- | lisp/ChangeLog | 45 | ||||
| -rw-r--r-- | lisp/dos-fns.el | 39 | ||||
| -rw-r--r-- | lisp/gnus/ChangeLog | 22 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 1 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 4 | ||||
| -rw-r--r-- | lisp/gnus/mml1991.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/mml2015.el | 1 | ||||
| -rw-r--r-- | lisp/net/tramp-smb.el | 270 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 242 | ||||
| -rw-r--r-- | lisp/progmodes/cc-cmds.el | 10 | ||||
| -rw-r--r-- | lisp/progmodes/sh-script.el | 10 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 17 | ||||
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 5 | ||||
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 5 | ||||
| -rw-r--r-- | lwlib/ChangeLog | 4 | ||||
| -rw-r--r-- | lwlib/lwlib-Xaw.c | 2 | ||||
| -rw-r--r-- | msdos/ChangeLog | 30 | ||||
| -rw-r--r-- | msdos/sed1v2.inp | 28 | ||||
| -rw-r--r-- | msdos/sed1x.inp | 7 | ||||
| -rw-r--r-- | msdos/sed2x.inp | 5 | ||||
| -rw-r--r-- | nt/ChangeLog | 4 | ||||
| -rw-r--r-- | nt/config.nt | 19 | ||||
| -rw-r--r-- | src/ChangeLog | 48 | ||||
| -rw-r--r-- | src/Makefile.in | 235 | ||||
| -rw-r--r-- | src/config.in | 30 | ||||
| -rw-r--r-- | src/s/netbsd.h | 2 |
33 files changed, 747 insertions, 573 deletions
| @@ -1,3 +1,22 @@ | |||
| 1 | 2010-05-14 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * configure.in (cpp_undefs): Add mktime, register, X11. | ||
| 4 | |||
| 5 | * configure.in (GPM_MOUSE_SUPPORT): Remove. | ||
| 6 | (MOUSE_SUPPORT, TOOLTIP_SUPPORT, WINDOW_SUPPORT): New output variables. | ||
| 7 | (HAVE_WINDOW_SYSTEM, HAVE_MOUSE): Move out of AC_BOTTOM. | ||
| 8 | |||
| 9 | * configure.in (NS_IMPL_GNUSTEP_INC): New output variable. | ||
| 10 | (GNUSTEP_MAKEFILES): Do not output. | ||
| 11 | |||
| 12 | 2010-05-13 Glenn Morris <rgm@gnu.org> | ||
| 13 | |||
| 14 | * configure.in: Fix some paren typos. | ||
| 15 | |||
| 16 | * configure.in (OLDXMENU, LIBXMENU): Set to empty if !HAVE_MENUS. | ||
| 17 | |||
| 18 | * configure.in (LD_SWITCH_X_SITE, C_SWITCH_X_SITE): Do not define. | ||
| 19 | |||
| 1 | 2010-05-12 Glenn Morris <rgm@gnu.org> | 20 | 2010-05-12 Glenn Morris <rgm@gnu.org> |
| 2 | 21 | ||
| 3 | * configure.in (LIB_SRC_EXTRA_INSTALLABLES): Remove, unused. | 22 | * configure.in (LIB_SRC_EXTRA_INSTALLABLES): Remove, unused. |
diff --git a/admin/CPP-DEFINES b/admin/CPP-DEFINES index d4776c9b755..1f42eeb9528 100644 --- a/admin/CPP-DEFINES +++ b/admin/CPP-DEFINES | |||
| @@ -22,7 +22,6 @@ NS_IMPL_GNUSTEP Compile support for GNUstep implementation of NS GUI API. | |||
| 22 | NS_IMPL_COCOA Compile support for Cocoa (Apple) implementation of NS GUI API. | 22 | NS_IMPL_COCOA Compile support for Cocoa (Apple) implementation of NS GUI API. |
| 23 | HAVE_X11 Compile support for the X11 GUI. | 23 | HAVE_X11 Compile support for the X11 GUI. |
| 24 | HAVE_X_WINDOWS Compile support for X Window system | 24 | HAVE_X_WINDOWS Compile support for X Window system |
| 25 | X11 ?? Makefile.in suggests it's equivalent to HAVE_X11 | ||
| 26 | USE_LUCID Use the Lucid toolkit for menus&scrollbars. Requires HAVE_X11. | 25 | USE_LUCID Use the Lucid toolkit for menus&scrollbars. Requires HAVE_X11. |
| 27 | USE_MOTIF Use the Motif toolkit for menus&scrollbars. Requires HAVE_X11. | 26 | USE_MOTIF Use the Motif toolkit for menus&scrollbars. Requires HAVE_X11. |
| 28 | USE_GTK Use the Gtk toolkit for menus&scrollbars. Requires HAVE_X11. | 27 | USE_GTK Use the Gtk toolkit for menus&scrollbars. Requires HAVE_X11. |
| @@ -84,6 +83,9 @@ BCOPY_DOWNWARD_SAFE | |||
| 84 | BCOPY_UPWARD_SAFE | 83 | BCOPY_UPWARD_SAFE |
| 85 | BITS_PER_EMACS_INT | 84 | BITS_PER_EMACS_INT |
| 86 | BITS_PER_LONG | 85 | BITS_PER_LONG |
| 86 | BITS_PER_CHAR | ||
| 87 | BITS_PER_SHORT | ||
| 88 | BITS_PER_INT | ||
| 87 | BROKEN_DATAGRAM_SOCKETS | 89 | BROKEN_DATAGRAM_SOCKETS |
| 88 | BROKEN_FIONREAD | 90 | BROKEN_FIONREAD |
| 89 | BROKEN_GET_CURRENT_DIR_NAME | 91 | BROKEN_GET_CURRENT_DIR_NAME |
| @@ -98,7 +100,6 @@ BSD4_2 | |||
| 98 | BSD4_3 | 100 | BSD4_3 |
| 99 | BSD_SYSTEM | 101 | BSD_SYSTEM |
| 100 | CLASH_DETECTION | 102 | CLASH_DETECTION |
| 101 | C_SWITCH_X_SYSTEM | ||
| 102 | DATA_SEG_BITS | 103 | DATA_SEG_BITS |
| 103 | DATA_START | 104 | DATA_START |
| 104 | DBL_MIN_REPLACEMENT | 105 | DBL_MIN_REPLACEMENT |
| @@ -114,7 +115,6 @@ EMACS_CONFIGURATION | |||
| 114 | EMACS_CONFIG_OPTIONS | 115 | EMACS_CONFIG_OPTIONS |
| 115 | EMACS_INT | 116 | EMACS_INT |
| 116 | EMACS_UINT | 117 | EMACS_UINT |
| 117 | END_FILES_1 | ||
| 118 | FILE_SYSTEM_CASE | 118 | FILE_SYSTEM_CASE |
| 119 | FLOAT_CHECK_DOMAIN | 119 | FLOAT_CHECK_DOMAIN |
| 120 | FSCALE | 120 | FSCALE |
| @@ -133,7 +133,6 @@ HAVE_BCMP | |||
| 133 | HAVE_BCOPY | 133 | HAVE_BCOPY |
| 134 | HAVE_CBRT | 134 | HAVE_CBRT |
| 135 | HAVE_CLOSEDIR | 135 | HAVE_CLOSEDIR |
| 136 | HAVE_CRTIN | ||
| 137 | HAVE_DUP2 | 136 | HAVE_DUP2 |
| 138 | HAVE_EUIDACCESS | 137 | HAVE_EUIDACCESS |
| 139 | HAVE_FMOD | 138 | HAVE_FMOD |
| @@ -154,9 +153,6 @@ HAVE_INDEX | |||
| 154 | HAVE_INET_SOCKETS | 153 | HAVE_INET_SOCKETS |
| 155 | HAVE_INVERSE_HYPERBOLIC | 154 | HAVE_INVERSE_HYPERBOLIC |
| 156 | HAVE_LIBKSTAT | 155 | HAVE_LIBKSTAT |
| 157 | HAVE_LIBNCURSES | ||
| 158 | HAVE_LIBPTHREADS | ||
| 159 | HAVE_LIBXMU | ||
| 160 | HAVE_LIMITS_H | 156 | HAVE_LIMITS_H |
| 161 | HAVE_LINUX_VERSION_H | 157 | HAVE_LINUX_VERSION_H |
| 162 | HAVE_LOGB | 158 | HAVE_LOGB |
| @@ -266,8 +262,6 @@ SIGQUIT | |||
| 266 | SIGTRAP | 262 | SIGTRAP |
| 267 | SIGTYPE | 263 | SIGTYPE |
| 268 | SOLARIS2 | 264 | SOLARIS2 |
| 269 | START_FILES | ||
| 270 | START_FILES_1 | ||
| 271 | STDC_HEADERS | 265 | STDC_HEADERS |
| 272 | SYMS_SYSTEM | 266 | SYMS_SYSTEM |
| 273 | SYSTEM_PURESIZE_EXTRA | 267 | SYSTEM_PURESIZE_EXTRA |
| @@ -717,6 +717,7 @@ SET_MAKE | |||
| 717 | XMKMF | 717 | XMKMF |
| 718 | LD_SWITCH_X_SITE_AUX | 718 | LD_SWITCH_X_SITE_AUX |
| 719 | LD_SWITCH_X_SITE_AUX_RPATH | 719 | LD_SWITCH_X_SITE_AUX_RPATH |
| 720 | NS_IMPL_GNUSTEP_INC | ||
| 720 | NS_OBJ | 721 | NS_OBJ |
| 721 | NS_SUPPORT | 722 | NS_SUPPORT |
| 722 | LIB_STANDARD | 723 | LIB_STANDARD |
| @@ -751,7 +752,6 @@ LIBPNG | |||
| 751 | LIBTIFF | 752 | LIBTIFF |
| 752 | LIBGIF | 753 | LIBGIF |
| 753 | LIBGPM | 754 | LIBGPM |
| 754 | GPM_MOUSE_SUPPORT | ||
| 755 | LIBXSM | 755 | LIBXSM |
| 756 | ALLOCA | 756 | ALLOCA |
| 757 | liblockfile | 757 | liblockfile |
| @@ -796,7 +796,6 @@ ns_appdir | |||
| 796 | ns_appbindir | 796 | ns_appbindir |
| 797 | ns_appresdir | 797 | ns_appresdir |
| 798 | ns_appsrc | 798 | ns_appsrc |
| 799 | GNUSTEP_MAKEFILES | ||
| 800 | GNUSTEP_SYSTEM_HEADERS | 799 | GNUSTEP_SYSTEM_HEADERS |
| 801 | GNUSTEP_SYSTEM_LIBRARIES | 800 | GNUSTEP_SYSTEM_LIBRARIES |
| 802 | GNU_OBJC_CFLAGS | 801 | GNU_OBJC_CFLAGS |
| @@ -815,6 +814,9 @@ POST_ALLOC_OBJ | |||
| 815 | LD_SWITCH_SYSTEM_TEMACS | 814 | LD_SWITCH_SYSTEM_TEMACS |
| 816 | LD_SWITCH_SYSTEM_EXTRA | 815 | LD_SWITCH_SYSTEM_EXTRA |
| 817 | LIB_GCC | 816 | LIB_GCC |
| 817 | MOUSE_SUPPORT | ||
| 818 | TOOLTIP_SUPPORT | ||
| 819 | WINDOW_SUPPORT | ||
| 818 | LTLIBOBJS' | 820 | LTLIBOBJS' |
| 819 | ac_subst_files='' | 821 | ac_subst_files='' |
| 820 | ac_user_opts=' | 822 | ac_user_opts=' |
| @@ -6484,7 +6486,7 @@ case $opsys in | |||
| 6484 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o' | 6486 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o' |
| 6485 | ;; | 6487 | ;; |
| 6486 | netbsd | openbsd ) | 6488 | netbsd | openbsd ) |
| 6487 | if test -f $(CRT_DIR)/crti.o; then | 6489 | if test -f $CRT_DIR/crti.o; then |
| 6488 | LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtend.o $(CRT_DIR)/crtn.o' | 6490 | LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtend.o $(CRT_DIR)/crtn.o' |
| 6489 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o $(CRT_DIR)/crti.o $(CRT_DIR)/crtbegin.o' | 6491 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o $(CRT_DIR)/crti.o $(CRT_DIR)/crtbegin.o' |
| 6490 | else | 6492 | else |
| @@ -9929,6 +9931,7 @@ fi | |||
| 9929 | HAVE_NS=no | 9931 | HAVE_NS=no |
| 9930 | NS_IMPL_COCOA=no | 9932 | NS_IMPL_COCOA=no |
| 9931 | NS_IMPL_GNUSTEP=no | 9933 | NS_IMPL_GNUSTEP=no |
| 9934 | NS_IMPL_GNUSTEP_INC= | ||
| 9932 | tmp_CPPFLAGS="$CPPFLAGS" | 9935 | tmp_CPPFLAGS="$CPPFLAGS" |
| 9933 | tmp_CFLAGS="$CFLAGS" | 9936 | tmp_CFLAGS="$CFLAGS" |
| 9934 | CPPFLAGS="$CPPFLAGS -x objective-c" | 9937 | CPPFLAGS="$CPPFLAGS -x objective-c" |
| @@ -9949,6 +9952,13 @@ if test "${with_ns}" != no; then | |||
| 9949 | GNUSTEP_MAKEFILES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_MAKEFILES)" | 9952 | GNUSTEP_MAKEFILES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_MAKEFILES)" |
| 9950 | GNUSTEP_SYSTEM_HEADERS="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_HEADERS)" | 9953 | GNUSTEP_SYSTEM_HEADERS="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_HEADERS)" |
| 9951 | GNUSTEP_SYSTEM_LIBRARIES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_LIBRARIES)" | 9954 | GNUSTEP_SYSTEM_LIBRARIES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_LIBRARIES)" |
| 9955 | ## Pull in stuff from GNUstep-make. | ||
| 9956 | NS_IMPL_GNUSTEP_INC="FOUNDATION_LIB=gnu | ||
| 9957 | GUI_LIB=gnu | ||
| 9958 | include $GNUSTEP_MAKEFILES/Additional/base.make | ||
| 9959 | include $GNUSTEP_MAKEFILES/Additional/gui.make | ||
| 9960 | shared=no | ||
| 9961 | " | ||
| 9952 | CPPFLAGS="$CPPFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" | 9962 | CPPFLAGS="$CPPFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" |
| 9953 | CFLAGS="$CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" | 9963 | CFLAGS="$CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" |
| 9954 | REAL_CFLAGS="$REAL_CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" | 9964 | REAL_CFLAGS="$REAL_CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" |
| @@ -10141,6 +10151,7 @@ rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext | |||
| 10141 | fi | 10151 | fi |
| 10142 | fi | 10152 | fi |
| 10143 | 10153 | ||
| 10154 | |||
| 10144 | NS_OBJ= | 10155 | NS_OBJ= |
| 10145 | NS_SUPPORT= | 10156 | NS_SUPPORT= |
| 10146 | if test "${HAVE_NS}" = yes; then | 10157 | if test "${HAVE_NS}" = yes; then |
| @@ -15991,7 +16002,7 @@ fi | |||
| 15991 | ### Use -lgpm if available, unless `--with-gpm=no'. | 16002 | ### Use -lgpm if available, unless `--with-gpm=no'. |
| 15992 | HAVE_GPM=no | 16003 | HAVE_GPM=no |
| 15993 | LIBGPM= | 16004 | LIBGPM= |
| 15994 | GPM_MOUSE_SUPPORT= | 16005 | MOUSE_SUPPORT= |
| 15995 | if test "${with_gpm}" != "no"; then | 16006 | if test "${with_gpm}" != "no"; then |
| 15996 | if test "${ac_cv_header_gpm_h+set}" = set; then | 16007 | if test "${ac_cv_header_gpm_h+set}" = set; then |
| 15997 | { $as_echo "$as_me:$LINENO: checking for gpm.h" >&5 | 16008 | { $as_echo "$as_me:$LINENO: checking for gpm.h" >&5 |
| @@ -16201,12 +16212,12 @@ cat >>confdefs.h <<\_ACEOF | |||
| 16201 | _ACEOF | 16212 | _ACEOF |
| 16202 | 16213 | ||
| 16203 | LIBGPM=-lgpm | 16214 | LIBGPM=-lgpm |
| 16204 | GPM_MOUSE_SUPPORT="\${lispsource}mouse.elc" | 16215 | ## May be reset below. |
| 16216 | MOUSE_SUPPORT="\$(GPM_MOUSE_SUPPORT)" | ||
| 16205 | fi | 16217 | fi |
| 16206 | fi | 16218 | fi |
| 16207 | 16219 | ||
| 16208 | 16220 | ||
| 16209 | |||
| 16210 | if test "${ac_cv_header_malloc_malloc_h+set}" = set; then | 16221 | if test "${ac_cv_header_malloc_malloc_h+set}" = set; then |
| 16211 | { $as_echo "$as_me:$LINENO: checking for malloc/malloc.h" >&5 | 16222 | { $as_echo "$as_me:$LINENO: checking for malloc/malloc.h" >&5 |
| 16212 | $as_echo_n "checking for malloc/malloc.h... " >&6; } | 16223 | $as_echo_n "checking for malloc/malloc.h... " >&6; } |
| @@ -26313,6 +26324,7 @@ fi | |||
| 26313 | ### Use configuration here uncanonicalized to avoid exceeding size limits. | 26324 | ### Use configuration here uncanonicalized to avoid exceeding size limits. |
| 26314 | 26325 | ||
| 26315 | 26326 | ||
| 26327 | ## Unused? | ||
| 26316 | 26328 | ||
| 26317 | 26329 | ||
| 26318 | 26330 | ||
| @@ -26334,6 +26346,9 @@ fi | |||
| 26334 | 26346 | ||
| 26335 | 26347 | ||
| 26336 | 26348 | ||
| 26349 | ## FIXME? Nothing uses @LD_SWITCH_X_SITE@. | ||
| 26350 | ## src/Makefile.in did add LD_SWITCH_X_SITE (as a cpp define) to the | ||
| 26351 | ## end of LIBX_BASE, but nothing ever set it. | ||
| 26337 | 26352 | ||
| 26338 | 26353 | ||
| 26339 | 26354 | ||
| @@ -26353,7 +26368,6 @@ fi | |||
| 26353 | 26368 | ||
| 26354 | 26369 | ||
| 26355 | 26370 | ||
| 26356 | |||
| 26357 | cat >>confdefs.h <<_ACEOF | 26371 | cat >>confdefs.h <<_ACEOF |
| 26358 | #define EMACS_CONFIGURATION "${canonical}" | 26372 | #define EMACS_CONFIGURATION "${canonical}" |
| 26359 | _ACEOF | 26373 | _ACEOF |
| @@ -26374,16 +26388,6 @@ cat >>confdefs.h <<_ACEOF | |||
| 26374 | _ACEOF | 26388 | _ACEOF |
| 26375 | 26389 | ||
| 26376 | 26390 | ||
| 26377 | cat >>confdefs.h <<_ACEOF | ||
| 26378 | #define LD_SWITCH_X_SITE ${LD_SWITCH_X_SITE} | ||
| 26379 | _ACEOF | ||
| 26380 | |||
| 26381 | |||
| 26382 | cat >>confdefs.h <<_ACEOF | ||
| 26383 | #define C_SWITCH_X_SITE ${C_SWITCH_X_SITE} | ||
| 26384 | _ACEOF | ||
| 26385 | |||
| 26386 | |||
| 26387 | XMENU_OBJ= | 26391 | XMENU_OBJ= |
| 26388 | XOBJ= | 26392 | XOBJ= |
| 26389 | if test "${HAVE_X_WINDOWS}" = "yes" ; then | 26393 | if test "${HAVE_X_WINDOWS}" = "yes" ; then |
| @@ -26480,7 +26484,7 @@ else | |||
| 26480 | LIBX_OTHER= | 26484 | LIBX_OTHER= |
| 26481 | fi | 26485 | fi |
| 26482 | 26486 | ||
| 26483 | if test "$HAVE_GTK" = "yes"; then | 26487 | if test "$HAVE_GTK" = "yes" || test "$HAVE_MENUS" != "yes"; then |
| 26484 | OLDXMENU= | 26488 | OLDXMENU= |
| 26485 | LIBXMENU= | 26489 | LIBXMENU= |
| 26486 | fi | 26490 | fi |
| @@ -26584,17 +26588,44 @@ if test "x$GCC" = "xyes"; then | |||
| 26584 | ## FIXME? s/gnu-linux.h used to define LIB_GCC as below, then | 26588 | ## FIXME? s/gnu-linux.h used to define LIB_GCC as below, then |
| 26585 | ## immediately undefine it again and redefine it to empty. | 26589 | ## immediately undefine it again and redefine it to empty. |
| 26586 | ## Was the C_SWITCH_X_SITE part really necessary? | 26590 | ## Was the C_SWITCH_X_SITE part really necessary? |
| 26587 | ## LIB_GCC=`$(CC) $(C_SWITCH_X_SITE) -print-libgcc-file-name` | 26591 | ## LIB_GCC=`$CC $C_SWITCH_X_SITE -print-libgcc-file-name` |
| 26588 | LIB_GCC= | 26592 | LIB_GCC= |
| 26589 | fi | 26593 | fi |
| 26590 | ;; | 26594 | ;; |
| 26591 | 26595 | ||
| 26592 | ## Ask GCC where to find libgcc.a. | 26596 | ## Ask GCC where to find libgcc.a. |
| 26593 | *) LIB_GCC=`$(CC) -print-libgcc-file-name 2> /dev/null` ;; | 26597 | *) LIB_GCC=`$CC -print-libgcc-file-name 2> /dev/null` ;; |
| 26594 | esac | 26598 | esac |
| 26595 | fi | 26599 | fi |
| 26596 | 26600 | ||
| 26597 | 26601 | ||
| 26602 | TOOLTIP_SUPPORT= | ||
| 26603 | WINDOW_SUPPORT= | ||
| 26604 | ## If we're using X11/GNUstep, define some consequences. | ||
| 26605 | if test "$HAVE_X_WINDOWS" = "yes" || test "$HAVE_NS" = "yes"; then | ||
| 26606 | |||
| 26607 | cat >>confdefs.h <<\_ACEOF | ||
| 26608 | #define HAVE_WINDOW_SYSTEM 1 | ||
| 26609 | _ACEOF | ||
| 26610 | |||
| 26611 | |||
| 26612 | cat >>confdefs.h <<\_ACEOF | ||
| 26613 | #define HAVE_MOUSE 1 | ||
| 26614 | _ACEOF | ||
| 26615 | |||
| 26616 | MOUSE_SUPPORT="\$(REAL_MOUSE_SUPPORT)" | ||
| 26617 | TOOLTIP_SUPPORT="\${lispsource}mouse.elc" | ||
| 26618 | |||
| 26619 | WINDOW_SUPPORT="\$(BASE_WINDOW_SUPPORT)" | ||
| 26620 | test "$HAVE_X_WINDOWS" = "yes" && \ | ||
| 26621 | WINDOW_SUPPORT="$WINDOW_SUPPORT \$(X_WINDOW_SUPPORT)" | ||
| 26622 | |||
| 26623 | fi | ||
| 26624 | |||
| 26625 | |||
| 26626 | |||
| 26627 | |||
| 26628 | |||
| 26598 | 26629 | ||
| 26599 | 26630 | ||
| 26600 | 26631 | ||
| @@ -26691,7 +26722,7 @@ test "${exec_prefix}" != NONE && | |||
| 26691 | # the C preprocessor to some helpful value like 1, or maybe the empty | 26722 | # the C preprocessor to some helpful value like 1, or maybe the empty |
| 26692 | # string. Needless to say consequent macro substitutions are less | 26723 | # string. Needless to say consequent macro substitutions are less |
| 26693 | # than conducive to the makefile finding the correct directory. | 26724 | # than conducive to the makefile finding the correct directory. |
| 26694 | cpp_undefs="`echo $srcdir $configuration $canonical unix | | 26725 | cpp_undefs="`echo $srcdir $configuration $canonical unix mktime register X11 | |
| 26695 | sed -e 's/[^a-zA-Z0-9_]/ /g' -e 's/^/ /' -e 's/ *$//' \ | 26726 | sed -e 's/[^a-zA-Z0-9_]/ /g' -e 's/^/ /' -e 's/ *$//' \ |
| 26696 | -e 's/ */ -U/g' -e 's/-U[0-9][^ ]*//g'`" | 26727 | -e 's/ */ -U/g' -e 's/-U[0-9][^ ]*//g'`" |
| 26697 | 26728 | ||
diff --git a/configure.in b/configure.in index 491c3af9dce..2475caae053 100644 --- a/configure.in +++ b/configure.in | |||
| @@ -1094,7 +1094,7 @@ case $opsys in | |||
| 1094 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o' | 1094 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o' |
| 1095 | ;; | 1095 | ;; |
| 1096 | netbsd | openbsd ) | 1096 | netbsd | openbsd ) |
| 1097 | if test -f $(CRT_DIR)/crti.o; then | 1097 | if test -f $CRT_DIR/crti.o; then |
| 1098 | LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtend.o $(CRT_DIR)/crtn.o' | 1098 | LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtend.o $(CRT_DIR)/crtn.o' |
| 1099 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o $(CRT_DIR)/crti.o $(CRT_DIR)/crtbegin.o' | 1099 | START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o $(CRT_DIR)/crti.o $(CRT_DIR)/crtbegin.o' |
| 1100 | else | 1100 | else |
| @@ -1452,6 +1452,7 @@ fi | |||
| 1452 | HAVE_NS=no | 1452 | HAVE_NS=no |
| 1453 | NS_IMPL_COCOA=no | 1453 | NS_IMPL_COCOA=no |
| 1454 | NS_IMPL_GNUSTEP=no | 1454 | NS_IMPL_GNUSTEP=no |
| 1455 | NS_IMPL_GNUSTEP_INC= | ||
| 1455 | tmp_CPPFLAGS="$CPPFLAGS" | 1456 | tmp_CPPFLAGS="$CPPFLAGS" |
| 1456 | tmp_CFLAGS="$CFLAGS" | 1457 | tmp_CFLAGS="$CFLAGS" |
| 1457 | CPPFLAGS="$CPPFLAGS -x objective-c" | 1458 | CPPFLAGS="$CPPFLAGS -x objective-c" |
| @@ -1473,6 +1474,13 @@ if test "${with_ns}" != no; then | |||
| 1473 | GNUSTEP_MAKEFILES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_MAKEFILES)" | 1474 | GNUSTEP_MAKEFILES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_MAKEFILES)" |
| 1474 | GNUSTEP_SYSTEM_HEADERS="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_HEADERS)" | 1475 | GNUSTEP_SYSTEM_HEADERS="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_HEADERS)" |
| 1475 | GNUSTEP_SYSTEM_LIBRARIES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_LIBRARIES)" | 1476 | GNUSTEP_SYSTEM_LIBRARIES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_LIBRARIES)" |
| 1477 | ## Pull in stuff from GNUstep-make. | ||
| 1478 | NS_IMPL_GNUSTEP_INC="FOUNDATION_LIB=gnu | ||
| 1479 | GUI_LIB=gnu | ||
| 1480 | include $GNUSTEP_MAKEFILES/Additional/base.make | ||
| 1481 | include $GNUSTEP_MAKEFILES/Additional/gui.make | ||
| 1482 | shared=no | ||
| 1483 | " | ||
| 1476 | CPPFLAGS="$CPPFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" | 1484 | CPPFLAGS="$CPPFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" |
| 1477 | CFLAGS="$CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" | 1485 | CFLAGS="$CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" |
| 1478 | REAL_CFLAGS="$REAL_CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" | 1486 | REAL_CFLAGS="$REAL_CFLAGS -I${GNUSTEP_SYSTEM_HEADERS}" |
| @@ -1491,6 +1499,7 @@ if test "${with_ns}" != no; then | |||
| 1491 | NS_HAVE_NSINTEGER=no | 1499 | NS_HAVE_NSINTEGER=no |
| 1492 | fi | 1500 | fi |
| 1493 | fi | 1501 | fi |
| 1502 | AC_SUBST(NS_IMPL_GNUSTEP_INC) | ||
| 1494 | 1503 | ||
| 1495 | NS_OBJ= | 1504 | NS_OBJ= |
| 1496 | NS_SUPPORT= | 1505 | NS_SUPPORT= |
| @@ -2391,7 +2400,7 @@ fi | |||
| 2391 | ### Use -lgpm if available, unless `--with-gpm=no'. | 2400 | ### Use -lgpm if available, unless `--with-gpm=no'. |
| 2392 | HAVE_GPM=no | 2401 | HAVE_GPM=no |
| 2393 | LIBGPM= | 2402 | LIBGPM= |
| 2394 | GPM_MOUSE_SUPPORT= | 2403 | MOUSE_SUPPORT= |
| 2395 | if test "${with_gpm}" != "no"; then | 2404 | if test "${with_gpm}" != "no"; then |
| 2396 | AC_CHECK_HEADER(gpm.h, | 2405 | AC_CHECK_HEADER(gpm.h, |
| 2397 | [AC_CHECK_LIB(gpm, Gpm_Open, HAVE_GPM=yes)]) | 2406 | [AC_CHECK_LIB(gpm, Gpm_Open, HAVE_GPM=yes)]) |
| @@ -2399,11 +2408,11 @@ if test "${with_gpm}" != "no"; then | |||
| 2399 | if test "${HAVE_GPM}" = "yes"; then | 2408 | if test "${HAVE_GPM}" = "yes"; then |
| 2400 | AC_DEFINE(HAVE_GPM, 1, [Define to 1 if you have the gpm library (-lgpm).]) | 2409 | AC_DEFINE(HAVE_GPM, 1, [Define to 1 if you have the gpm library (-lgpm).]) |
| 2401 | LIBGPM=-lgpm | 2410 | LIBGPM=-lgpm |
| 2402 | GPM_MOUSE_SUPPORT="\${lispsource}mouse.elc" | 2411 | ## May be reset below. |
| 2412 | MOUSE_SUPPORT="\$(GPM_MOUSE_SUPPORT)" | ||
| 2403 | fi | 2413 | fi |
| 2404 | fi | 2414 | fi |
| 2405 | AC_SUBST(LIBGPM) | 2415 | AC_SUBST(LIBGPM) |
| 2406 | AC_SUBST(GPM_MOUSE_SUPPORT) | ||
| 2407 | 2416 | ||
| 2408 | dnl Check for malloc/malloc.h on darwin | 2417 | dnl Check for malloc/malloc.h on darwin |
| 2409 | AC_CHECK_HEADER(malloc/malloc.h, [AC_DEFINE(HAVE_MALLOC_MALLOC_H, 1, [Define to 1 if you have the <malloc/malloc.h> header file.])]) | 2418 | AC_CHECK_HEADER(malloc/malloc.h, [AC_DEFINE(HAVE_MALLOC_MALLOC_H, 1, [Define to 1 if you have the <malloc/malloc.h> header file.])]) |
| @@ -3012,6 +3021,7 @@ fi | |||
| 3012 | ### Use configuration here uncanonicalized to avoid exceeding size limits. | 3021 | ### Use configuration here uncanonicalized to avoid exceeding size limits. |
| 3013 | AC_SUBST(version) | 3022 | AC_SUBST(version) |
| 3014 | AC_SUBST(configuration) | 3023 | AC_SUBST(configuration) |
| 3024 | ## Unused? | ||
| 3015 | AC_SUBST(canonical) | 3025 | AC_SUBST(canonical) |
| 3016 | AC_SUBST(srcdir) | 3026 | AC_SUBST(srcdir) |
| 3017 | AC_SUBST(prefix) | 3027 | AC_SUBST(prefix) |
| @@ -3033,6 +3043,9 @@ AC_SUBST(bitmapdir) | |||
| 3033 | AC_SUBST(gamedir) | 3043 | AC_SUBST(gamedir) |
| 3034 | AC_SUBST(gameuser) | 3044 | AC_SUBST(gameuser) |
| 3035 | AC_SUBST(unexec) | 3045 | AC_SUBST(unexec) |
| 3046 | ## FIXME? Nothing uses @LD_SWITCH_X_SITE@. | ||
| 3047 | ## src/Makefile.in did add LD_SWITCH_X_SITE (as a cpp define) to the | ||
| 3048 | ## end of LIBX_BASE, but nothing ever set it. | ||
| 3036 | AC_SUBST(LD_SWITCH_X_SITE) | 3049 | AC_SUBST(LD_SWITCH_X_SITE) |
| 3037 | AC_SUBST(C_SWITCH_X_SITE) | 3050 | AC_SUBST(C_SWITCH_X_SITE) |
| 3038 | AC_SUBST(C_SWITCH_X_SYSTEM) | 3051 | AC_SUBST(C_SWITCH_X_SYSTEM) |
| @@ -3046,7 +3059,6 @@ AC_SUBST(ns_appdir) | |||
| 3046 | AC_SUBST(ns_appbindir) | 3059 | AC_SUBST(ns_appbindir) |
| 3047 | AC_SUBST(ns_appresdir) | 3060 | AC_SUBST(ns_appresdir) |
| 3048 | AC_SUBST(ns_appsrc) | 3061 | AC_SUBST(ns_appsrc) |
| 3049 | AC_SUBST(GNUSTEP_MAKEFILES) | ||
| 3050 | AC_SUBST(GNUSTEP_SYSTEM_HEADERS) | 3062 | AC_SUBST(GNUSTEP_SYSTEM_HEADERS) |
| 3051 | AC_SUBST(GNUSTEP_SYSTEM_LIBRARIES) | 3063 | AC_SUBST(GNUSTEP_SYSTEM_LIBRARIES) |
| 3052 | AC_SUBST(GNU_OBJC_CFLAGS) | 3064 | AC_SUBST(GNU_OBJC_CFLAGS) |
| @@ -3060,18 +3072,6 @@ AC_DEFINE_UNQUOTED(config_machfile, "${machfile}", | |||
| 3060 | [Define to the used machine dependent file.]) | 3072 | [Define to the used machine dependent file.]) |
| 3061 | AC_DEFINE_UNQUOTED(config_opsysfile, "${opsysfile}", | 3073 | AC_DEFINE_UNQUOTED(config_opsysfile, "${opsysfile}", |
| 3062 | [Define to the used os dependent file.]) | 3074 | [Define to the used os dependent file.]) |
| 3063 | AC_DEFINE_UNQUOTED(LD_SWITCH_X_SITE, ${LD_SWITCH_X_SITE}, | ||
| 3064 | [Define LD_SWITCH_X_SITE to contain any special flags your loader | ||
| 3065 | may need to deal with X Windows. For instance, if you've defined | ||
| 3066 | HAVE_X_WINDOWS above and your X libraries aren't in a place that | ||
| 3067 | your loader can find on its own, you might want to add "-L/..." or | ||
| 3068 | something similar.]) | ||
| 3069 | AC_DEFINE_UNQUOTED(C_SWITCH_X_SITE, ${C_SWITCH_X_SITE}, | ||
| 3070 | [Define C_SWITCH_X_SITE to contain any special flags your compiler | ||
| 3071 | may need to deal with X Windows. For instance, if you've defined | ||
| 3072 | HAVE_X_WINDOWS above and your X include files aren't in a place | ||
| 3073 | that your compiler can find on its own, you might want to add | ||
| 3074 | "-I/..." or something similar.]) | ||
| 3075 | 3075 | ||
| 3076 | XMENU_OBJ= | 3076 | XMENU_OBJ= |
| 3077 | XOBJ= | 3077 | XOBJ= |
| @@ -3152,7 +3152,7 @@ else | |||
| 3152 | LIBX_OTHER= | 3152 | LIBX_OTHER= |
| 3153 | fi | 3153 | fi |
| 3154 | 3154 | ||
| 3155 | if test "$HAVE_GTK" = "yes"; then | 3155 | if test "$HAVE_GTK" = "yes" || test "$HAVE_MENUS" != "yes"; then |
| 3156 | OLDXMENU= | 3156 | OLDXMENU= |
| 3157 | LIBXMENU= | 3157 | LIBXMENU= |
| 3158 | fi | 3158 | fi |
| @@ -3250,18 +3250,37 @@ if test "x$GCC" = "xyes"; then | |||
| 3250 | ## FIXME? s/gnu-linux.h used to define LIB_GCC as below, then | 3250 | ## FIXME? s/gnu-linux.h used to define LIB_GCC as below, then |
| 3251 | ## immediately undefine it again and redefine it to empty. | 3251 | ## immediately undefine it again and redefine it to empty. |
| 3252 | ## Was the C_SWITCH_X_SITE part really necessary? | 3252 | ## Was the C_SWITCH_X_SITE part really necessary? |
| 3253 | ## LIB_GCC=`$(CC) $(C_SWITCH_X_SITE) -print-libgcc-file-name` | 3253 | ## LIB_GCC=`$CC $C_SWITCH_X_SITE -print-libgcc-file-name` |
| 3254 | LIB_GCC= | 3254 | LIB_GCC= |
| 3255 | fi | 3255 | fi |
| 3256 | ;; | 3256 | ;; |
| 3257 | 3257 | ||
| 3258 | ## Ask GCC where to find libgcc.a. | 3258 | ## Ask GCC where to find libgcc.a. |
| 3259 | *) LIB_GCC=`$(CC) -print-libgcc-file-name 2> /dev/null` ;; | 3259 | *) LIB_GCC=`$CC -print-libgcc-file-name 2> /dev/null` ;; |
| 3260 | esac | 3260 | esac |
| 3261 | fi dnl if $GCC | 3261 | fi dnl if $GCC |
| 3262 | AC_SUBST(LIB_GCC) | 3262 | AC_SUBST(LIB_GCC) |
| 3263 | 3263 | ||
| 3264 | 3264 | ||
| 3265 | TOOLTIP_SUPPORT= | ||
| 3266 | WINDOW_SUPPORT= | ||
| 3267 | ## If we're using X11/GNUstep, define some consequences. | ||
| 3268 | if test "$HAVE_X_WINDOWS" = "yes" || test "$HAVE_NS" = "yes"; then | ||
| 3269 | AC_DEFINE(HAVE_WINDOW_SYSTEM, 1, [Define if you have a window system.]) | ||
| 3270 | AC_DEFINE(HAVE_MOUSE, 1, [Define if you have mouse support.]) | ||
| 3271 | MOUSE_SUPPORT="\$(REAL_MOUSE_SUPPORT)" | ||
| 3272 | TOOLTIP_SUPPORT="\${lispsource}mouse.elc" | ||
| 3273 | |||
| 3274 | WINDOW_SUPPORT="\$(BASE_WINDOW_SUPPORT)" | ||
| 3275 | test "$HAVE_X_WINDOWS" = "yes" && \ | ||
| 3276 | WINDOW_SUPPORT="$WINDOW_SUPPORT \$(X_WINDOW_SUPPORT)" | ||
| 3277 | |||
| 3278 | fi | ||
| 3279 | AC_SUBST(MOUSE_SUPPORT) | ||
| 3280 | AC_SUBST(TOOLTIP_SUPPORT) | ||
| 3281 | AC_SUBST(WINDOW_SUPPORT) | ||
| 3282 | |||
| 3283 | |||
| 3265 | AH_TOP([/* GNU Emacs site configuration template file. | 3284 | AH_TOP([/* GNU Emacs site configuration template file. |
| 3266 | Copyright (C) 1988, 1993, 1994, 1999, 2000, 2001, 2002, 2004, 2005, | 3285 | Copyright (C) 1988, 1993, 1994, 1999, 2000, 2001, 2002, 2004, 2005, |
| 3267 | 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 3286 | 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
| @@ -3290,12 +3309,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 3290 | ])dnl | 3309 | ])dnl |
| 3291 | 3310 | ||
| 3292 | AH_BOTTOM([ | 3311 | AH_BOTTOM([ |
| 3293 | /* If we're using X11/Carbon/GNUstep, define some consequences. */ | ||
| 3294 | #if defined(HAVE_X_WINDOWS) || defined(HAVE_NS) | ||
| 3295 | #define HAVE_WINDOW_SYSTEM | ||
| 3296 | #define HAVE_MOUSE | ||
| 3297 | #endif | ||
| 3298 | |||
| 3299 | /* Define AMPERSAND_FULL_NAME if you use the convention | 3312 | /* Define AMPERSAND_FULL_NAME if you use the convention |
| 3300 | that & in the full name stands for the login id. */ | 3313 | that & in the full name stands for the login id. */ |
| 3301 | /* Turned on June 1996 supposing nobody will mind it. */ | 3314 | /* Turned on June 1996 supposing nobody will mind it. */ |
| @@ -3320,7 +3333,7 @@ AH_BOTTOM([ | |||
| 3320 | #endif | 3333 | #endif |
| 3321 | #endif /* __FreeBSD__ || __NetBSD__ || __linux__ */ | 3334 | #endif /* __FreeBSD__ || __NetBSD__ || __linux__ */ |
| 3322 | 3335 | ||
| 3323 | /* If using GNU, then support inline function declarations. */ | 3336 | /* If using GNU, then support inline function declarations. */ |
| 3324 | /* Don't try to switch on inline handling as detected by AC_C_INLINE | 3337 | /* Don't try to switch on inline handling as detected by AC_C_INLINE |
| 3325 | generally, because even if non-gcc compilers accept `inline', they | 3338 | generally, because even if non-gcc compilers accept `inline', they |
| 3326 | may reject `extern inline'. */ | 3339 | may reject `extern inline'. */ |
| @@ -3345,7 +3358,7 @@ AH_BOTTOM([ | |||
| 3345 | /* Set up some defines, C and LD flags for NeXTstep interface on GNUstep. | 3358 | /* Set up some defines, C and LD flags for NeXTstep interface on GNUstep. |
| 3346 | (There is probably a better place to do this, but right now the Cocoa | 3359 | (There is probably a better place to do this, but right now the Cocoa |
| 3347 | side does this in s/darwin.h and we cannot | 3360 | side does this in s/darwin.h and we cannot |
| 3348 | parallel this exactly since GNUstep is multi-OS. */ | 3361 | parallel this exactly since GNUstep is multi-OS. */ |
| 3349 | #ifdef HAVE_NS | 3362 | #ifdef HAVE_NS |
| 3350 | # ifdef NS_IMPL_GNUSTEP | 3363 | # ifdef NS_IMPL_GNUSTEP |
| 3351 | /* GNUstep needs a bit more pure memory. Of the existing knobs, | 3364 | /* GNUstep needs a bit more pure memory. Of the existing knobs, |
| @@ -3442,7 +3455,7 @@ extern char *getenv (); | |||
| 3442 | #include "string.h" | 3455 | #include "string.h" |
| 3443 | #endif | 3456 | #endif |
| 3444 | #ifdef HAVE_STRINGS_H | 3457 | #ifdef HAVE_STRINGS_H |
| 3445 | #include "strings.h" /* May be needed for bcopy & al. */ | 3458 | #include "strings.h" /* May be needed for bcopy & al. */ |
| 3446 | #endif | 3459 | #endif |
| 3447 | #ifdef HAVE_STDLIB_H | 3460 | #ifdef HAVE_STDLIB_H |
| 3448 | #include <stdlib.h> | 3461 | #include <stdlib.h> |
| @@ -3609,7 +3622,10 @@ test "${exec_prefix}" != NONE && | |||
| 3609 | # the C preprocessor to some helpful value like 1, or maybe the empty | 3622 | # the C preprocessor to some helpful value like 1, or maybe the empty |
| 3610 | # string. Needless to say consequent macro substitutions are less | 3623 | # string. Needless to say consequent macro substitutions are less |
| 3611 | # than conducive to the makefile finding the correct directory. | 3624 | # than conducive to the makefile finding the correct directory. |
| 3612 | [cpp_undefs="`echo $srcdir $configuration $canonical unix | | 3625 | # src/Makefile.in used to treat X11 as equivalent to HAVE_X11. |
| 3626 | # But nothing in Emacs defines X11, and everywhere else uses HAVE_X11, | ||
| 3627 | # so that cannot have been doing anything. | ||
| 3628 | [cpp_undefs="`echo $srcdir $configuration $canonical unix mktime register X11 | | ||
| 3613 | sed -e 's/[^a-zA-Z0-9_]/ /g' -e 's/^/ /' -e 's/ *$//' \ | 3629 | sed -e 's/[^a-zA-Z0-9_]/ /g' -e 's/^/ /' -e 's/ *$//' \ |
| 3614 | -e 's/ */ -U/g' -e 's/-U[0-9][^ ]*//g'`"] | 3630 | -e 's/ */ -U/g' -e 's/-U[0-9][^ ]*//g'`"] |
| 3615 | 3631 | ||
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog index 85bf897f41f..c6d3c1be498 100644 --- a/doc/misc/ChangeLog +++ b/doc/misc/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2010-05-13 Jay Belanger <jay.p.belanger@gmail.com> | ||
| 2 | |||
| 3 | * calc.texi: Remove "\turnoffactive" commands througout. | ||
| 4 | |||
| 1 | 2010-05-08 Štěpán Němec <stepnem@gmail.com> (tiny change) | 5 | 2010-05-08 Štěpán Němec <stepnem@gmail.com> (tiny change) |
| 2 | 6 | ||
| 3 | * url.texi (HTTP language/coding, Customization): | 7 | * url.texi (HTTP language/coding, Customization): |
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi index 96075b6710d..c578e919612 100644 --- a/doc/misc/calc.texi +++ b/doc/misc/calc.texi | |||
| @@ -76,7 +76,6 @@ | |||
| 76 | @newcount@calcpageno | 76 | @newcount@calcpageno |
| 77 | @newtoks@calcoldeverypar @calcoldeverypar=@everypar | 77 | @newtoks@calcoldeverypar @calcoldeverypar=@everypar |
| 78 | @everypar={@calceverypar@the@calcoldeverypar} | 78 | @everypar={@calceverypar@the@calcoldeverypar} |
| 79 | @ifx@turnoffactive@undefinedzzz@def@turnoffactive{}@fi | ||
| 80 | @ifx@ninett@undefinedzzz@font@ninett=cmtt9@fi | 79 | @ifx@ninett@undefinedzzz@font@ninett=cmtt9@fi |
| 81 | @catcode`@\=0 \catcode`\@=11 | 80 | @catcode`@\=0 \catcode`\@=11 |
| 82 | \r@ggedbottomtrue | 81 | \r@ggedbottomtrue |
| @@ -1804,7 +1803,6 @@ or, in large mathematical notation, | |||
| 1804 | @end example | 1803 | @end example |
| 1805 | @end ifnottex | 1804 | @end ifnottex |
| 1806 | @tex | 1805 | @tex |
| 1807 | \turnoffactive | ||
| 1808 | \beforedisplay | 1806 | \beforedisplay |
| 1809 | $$ 2 + { 3 \times 4 \times 5 \over 6 \times 7^8 } - 9 $$ | 1807 | $$ 2 + { 3 \times 4 \times 5 \over 6 \times 7^8 } - 9 $$ |
| 1810 | \afterdisplay | 1808 | \afterdisplay |
| @@ -3358,7 +3356,6 @@ Suppose we had the following set of equations: | |||
| 3358 | @end group | 3356 | @end group |
| 3359 | @end ifnottex | 3357 | @end ifnottex |
| 3360 | @tex | 3358 | @tex |
| 3361 | \turnoffactive | ||
| 3362 | \beforedisplayh | 3359 | \beforedisplayh |
| 3363 | $$ \openup1\jot \tabskip=0pt plus1fil | 3360 | $$ \openup1\jot \tabskip=0pt plus1fil |
| 3364 | \halign to\displaywidth{\tabskip=0pt | 3361 | \halign to\displaywidth{\tabskip=0pt |
| @@ -3385,7 +3382,6 @@ This can be cast into the matrix equation, | |||
| 3385 | @end group | 3382 | @end group |
| 3386 | @end ifnottex | 3383 | @end ifnottex |
| 3387 | @tex | 3384 | @tex |
| 3388 | \turnoffactive | ||
| 3389 | \beforedisplay | 3385 | \beforedisplay |
| 3390 | $$ \pmatrix{ 1 & 2 & 3 \cr 4 & 5 & 6 \cr 7 & 6 & 0 } | 3386 | $$ \pmatrix{ 1 & 2 & 3 \cr 4 & 5 & 6 \cr 7 & 6 & 0 } |
| 3391 | \times | 3387 | \times |
| @@ -3457,7 +3453,6 @@ in terms of @expr{a} and @expr{b}. | |||
| 3457 | @end group | 3453 | @end group |
| 3458 | @end ifnottex | 3454 | @end ifnottex |
| 3459 | @tex | 3455 | @tex |
| 3460 | \turnoffactive | ||
| 3461 | \beforedisplay | 3456 | \beforedisplay |
| 3462 | $$ \eqalign{ x &+ a y = 6 \cr | 3457 | $$ \eqalign{ x &+ a y = 6 \cr |
| 3463 | x &+ b y = 10} | 3458 | x &+ b y = 10} |
| @@ -3483,7 +3478,6 @@ on the left by the transpose of @expr{A}: | |||
| 3483 | @samp{trn(A)*A*X = trn(A)*B}. | 3478 | @samp{trn(A)*A*X = trn(A)*B}. |
| 3484 | @end ifnottex | 3479 | @end ifnottex |
| 3485 | @tex | 3480 | @tex |
| 3486 | \turnoffactive | ||
| 3487 | $A^T A \, X = A^T B$, where $A^T$ is the transpose \samp{trn(A)}. | 3481 | $A^T A \, X = A^T B$, where $A^T$ is the transpose \samp{trn(A)}. |
| 3488 | @end tex | 3482 | @end tex |
| 3489 | Now | 3483 | Now |
| @@ -3506,7 +3500,6 @@ system: | |||
| 3506 | @end group | 3500 | @end group |
| 3507 | @end ifnottex | 3501 | @end ifnottex |
| 3508 | @tex | 3502 | @tex |
| 3509 | \turnoffactive | ||
| 3510 | \beforedisplayh | 3503 | \beforedisplayh |
| 3511 | $$ \openup1\jot \tabskip=0pt plus1fil | 3504 | $$ \openup1\jot \tabskip=0pt plus1fil |
| 3512 | \halign to\displaywidth{\tabskip=0pt | 3505 | \halign to\displaywidth{\tabskip=0pt |
| @@ -3778,7 +3771,6 @@ m = (N sum(x y) - sum(x) sum(y)) / (N sum(x^2) - sum(x)^2) | |||
| 3778 | @end example | 3771 | @end example |
| 3779 | @end ifnottex | 3772 | @end ifnottex |
| 3780 | @tex | 3773 | @tex |
| 3781 | \turnoffactive | ||
| 3782 | \beforedisplay | 3774 | \beforedisplay |
| 3783 | $$ m = {N \sum x y - \sum x \sum y \over | 3775 | $$ m = {N \sum x y - \sum x \sum y \over |
| 3784 | N \sum x^2 - \left( \sum x \right)^2} $$ | 3776 | N \sum x^2 - \left( \sum x \right)^2} $$ |
| @@ -3820,7 +3812,6 @@ respectively. (We could have used @kbd{*} to compute @samp{sum(x^2)} and | |||
| 3820 | @samp{sum(x y)}.) | 3812 | @samp{sum(x y)}.) |
| 3821 | @end ifnottex | 3813 | @end ifnottex |
| 3822 | @tex | 3814 | @tex |
| 3823 | \turnoffactive | ||
| 3824 | These are $\sum x$, $\sum x^2$, $\sum y$, and $\sum x y$, | 3815 | These are $\sum x$, $\sum x^2$, $\sum y$, and $\sum x y$, |
| 3825 | respectively. (We could have used \kbd{*} to compute $\sum x^2$ and | 3816 | respectively. (We could have used \kbd{*} to compute $\sum x^2$ and |
| 3826 | $\sum x y$.) | 3817 | $\sum x y$.) |
| @@ -3874,7 +3865,6 @@ b = (sum(y) - m sum(x)) / N | |||
| 3874 | @end example | 3865 | @end example |
| 3875 | @end ifnottex | 3866 | @end ifnottex |
| 3876 | @tex | 3867 | @tex |
| 3877 | \turnoffactive | ||
| 3878 | \beforedisplay | 3868 | \beforedisplay |
| 3879 | $$ b = {\sum y - m \sum x \over N} $$ | 3869 | $$ b = {\sum y - m \sum x \over N} $$ |
| 3880 | \afterdisplay | 3870 | \afterdisplay |
| @@ -5223,7 +5213,6 @@ down to the formula, | |||
| 5223 | @end example | 5213 | @end example |
| 5224 | @end ifnottex | 5214 | @end ifnottex |
| 5225 | @tex | 5215 | @tex |
| 5226 | \turnoffactive | ||
| 5227 | \beforedisplay | 5216 | \beforedisplay |
| 5228 | $$ \displaylines{ | 5217 | $$ \displaylines{ |
| 5229 | \qquad {h \over 3} (f(a) + 4 f(a+h) + 2 f(a+2h) + 4 f(a+3h) + \cdots | 5218 | \qquad {h \over 3} (f(a) + 4 f(a+h) + 2 f(a+2h) + 4 f(a+3h) + \cdots |
| @@ -5245,7 +5234,6 @@ h * (f(a) + f(a+h) + f(a+2h) + f(a+3h) + ... | |||
| 5245 | @end example | 5234 | @end example |
| 5246 | @end ifnottex | 5235 | @end ifnottex |
| 5247 | @tex | 5236 | @tex |
| 5248 | \turnoffactive | ||
| 5249 | \beforedisplay | 5237 | \beforedisplay |
| 5250 | $$ h (f(a) + f(a+h) + f(a+2h) + f(a+3h) + \cdots | 5238 | $$ h (f(a) + f(a+h) + f(a+2h) + f(a+3h) + \cdots |
| 5251 | + f(a+(n-2)h) + f(a+(n-1)h)) $$ | 5239 | + f(a+(n-2)h) + f(a+(n-1)h)) $$ |
| @@ -5686,7 +5674,6 @@ cos(x) = 1 - x^2 / 2! + x^4 / 4! - x^6 / 6! + ... | |||
| 5686 | @end example | 5674 | @end example |
| 5687 | @end ifnottex | 5675 | @end ifnottex |
| 5688 | @tex | 5676 | @tex |
| 5689 | \turnoffactive | ||
| 5690 | \beforedisplay | 5677 | \beforedisplay |
| 5691 | $$ \cos x = 1 - {x^2 \over 2!} + {x^4 \over 4!} - {x^6 \over 6!} + \cdots $$ | 5678 | $$ \cos x = 1 - {x^2 \over 2!} + {x^4 \over 4!} - {x^6 \over 6!} + \cdots $$ |
| 5692 | \afterdisplay | 5679 | \afterdisplay |
| @@ -5704,7 +5691,6 @@ cos(x) = 1 - x^2 / 2! + O(x^3) | |||
| 5704 | @end example | 5691 | @end example |
| 5705 | @end ifnottex | 5692 | @end ifnottex |
| 5706 | @tex | 5693 | @tex |
| 5707 | \turnoffactive | ||
| 5708 | \beforedisplay | 5694 | \beforedisplay |
| 5709 | $$ \cos x = 1 - {x^2 \over 2!} + O(x^3) $$ | 5695 | $$ \cos x = 1 - {x^2 \over 2!} + O(x^3) $$ |
| 5710 | \afterdisplay | 5696 | \afterdisplay |
| @@ -6336,7 +6322,6 @@ s(n+1,m) = s(n,m-1) - n s(n,m) for n >= m >= 1. | |||
| 6336 | @end example | 6322 | @end example |
| 6337 | @end ifnottex | 6323 | @end ifnottex |
| 6338 | @tex | 6324 | @tex |
| 6339 | \turnoffactive | ||
| 6340 | \beforedisplay | 6325 | \beforedisplay |
| 6341 | $$ \eqalign{ s(n,n) &= 1 \qquad \hbox{for } n \ge 0, \cr | 6326 | $$ \eqalign{ s(n,n) &= 1 \qquad \hbox{for } n \ge 0, \cr |
| 6342 | s(n,0) &= 0 \qquad \hbox{for } n > 0, \cr | 6327 | s(n,0) &= 0 \qquad \hbox{for } n > 0, \cr |
| @@ -6875,7 +6860,6 @@ get the row sum. Similarly, use @kbd{[1 1] r 4 *} to get the column sum. | |||
| 6875 | @end example | 6860 | @end example |
| 6876 | @end ifnottex | 6861 | @end ifnottex |
| 6877 | @tex | 6862 | @tex |
| 6878 | \turnoffactive | ||
| 6879 | \beforedisplay | 6863 | \beforedisplay |
| 6880 | $$ \eqalign{ x &+ a y = 6 \cr | 6864 | $$ \eqalign{ x &+ a y = 6 \cr |
| 6881 | x &+ b y = 10} | 6865 | x &+ b y = 10} |
| @@ -6939,7 +6923,6 @@ which we can solve using Calc's @samp{/} command. | |||
| 6939 | @end example | 6923 | @end example |
| 6940 | @end ifnottex | 6924 | @end ifnottex |
| 6941 | @tex | 6925 | @tex |
| 6942 | \turnoffactive | ||
| 6943 | \beforedisplayh | 6926 | \beforedisplayh |
| 6944 | $$ \openup1\jot \tabskip=0pt plus1fil | 6927 | $$ \openup1\jot \tabskip=0pt plus1fil |
| 6945 | \halign to\displaywidth{\tabskip=0pt | 6928 | \halign to\displaywidth{\tabskip=0pt |
| @@ -7074,7 +7057,6 @@ the first job is to form the matrix that describes the problem. | |||
| 7074 | @end example | 7057 | @end example |
| 7075 | @end ifnottex | 7058 | @end ifnottex |
| 7076 | @tex | 7059 | @tex |
| 7077 | \turnoffactive | ||
| 7078 | \beforedisplay | 7060 | \beforedisplay |
| 7079 | $$ m \times x + b \times 1 = y $$ | 7061 | $$ m \times x + b \times 1 = y $$ |
| 7080 | \afterdisplay | 7062 | \afterdisplay |
| @@ -7865,7 +7847,6 @@ So the result when we take the modulo after every step is, | |||
| 7865 | @end example | 7847 | @end example |
| 7866 | @end ifnottex | 7848 | @end ifnottex |
| 7867 | @tex | 7849 | @tex |
| 7868 | \turnoffactive | ||
| 7869 | \beforedisplay | 7850 | \beforedisplay |
| 7870 | $$ 3 (3 a + b - 511 m) + c - 511 n $$ | 7851 | $$ 3 (3 a + b - 511 m) + c - 511 n $$ |
| 7871 | \afterdisplay | 7852 | \afterdisplay |
| @@ -7881,7 +7862,6 @@ the distributive law yields | |||
| 7881 | @end example | 7862 | @end example |
| 7882 | @end ifnottex | 7863 | @end ifnottex |
| 7883 | @tex | 7864 | @tex |
| 7884 | \turnoffactive | ||
| 7885 | \beforedisplay | 7865 | \beforedisplay |
| 7886 | $$ 9 a + 3 b + c - 511\times3 m - 511 n $$ | 7866 | $$ 9 a + 3 b + c - 511\times3 m - 511 n $$ |
| 7887 | \afterdisplay | 7867 | \afterdisplay |
| @@ -7899,7 +7879,6 @@ term. So we can take it out to get an equivalent formula with | |||
| 7899 | @end example | 7879 | @end example |
| 7900 | @end ifnottex | 7880 | @end ifnottex |
| 7901 | @tex | 7881 | @tex |
| 7902 | \turnoffactive | ||
| 7903 | \beforedisplay | 7882 | \beforedisplay |
| 7904 | $$ 9 a + 3 b + c - 511 n^{\prime} $$ | 7883 | $$ 9 a + 3 b + c - 511 n^{\prime} $$ |
| 7905 | \afterdisplay | 7884 | \afterdisplay |
| @@ -14408,7 +14387,6 @@ $$ \sin\left( a^2 \over b_i \right) $$ | |||
| 14408 | @end group | 14387 | @end group |
| 14409 | @end example | 14388 | @end example |
| 14410 | @tex | 14389 | @tex |
| 14411 | \turnoffactive | ||
| 14412 | $$ [3 + 4i, {3 \over 4}, 3 \pm 4, [ 3 \ldots \infty)] $$ | 14390 | $$ [3 + 4i, {3 \over 4}, 3 \pm 4, [ 3 \ldots \infty)] $$ |
| 14413 | @end tex | 14391 | @end tex |
| 14414 | @sp 1 | 14392 | @sp 1 |
| @@ -14434,7 +14412,6 @@ $$ [|a|, \left| a \over b \right|, | |||
| 14434 | @end group | 14412 | @end group |
| 14435 | @end example | 14413 | @end example |
| 14436 | @tex | 14414 | @tex |
| 14437 | \turnoffactive | ||
| 14438 | $$ [\sin{a}, \sin{2 a}, \sin(2 + a), \sin\left( {a \over b} \right)] $$ | 14415 | $$ [\sin{a}, \sin{2 a}, \sin(2 + a), \sin\left( {a \over b} \right)] $$ |
| 14439 | @end tex | 14416 | @end tex |
| 14440 | @sp 2 | 14417 | @sp 2 |
| @@ -14467,7 +14444,6 @@ First with @samp{\def\evalto@{@}}, then with @samp{\def\evalto#1\to@{@}}: | |||
| 14467 | @end group | 14444 | @end group |
| 14468 | @end example | 14445 | @end example |
| 14469 | @tex | 14446 | @tex |
| 14470 | \turnoffactive | ||
| 14471 | $$ 2 + 3 \to 5 $$ | 14447 | $$ 2 + 3 \to 5 $$ |
| 14472 | $$ 5 $$ | 14448 | $$ 5 $$ |
| 14473 | @end tex | 14449 | @end tex |
| @@ -14482,7 +14458,6 @@ First with standard @code{\to}, then with @samp{\let\to\Rightarrow}: | |||
| 14482 | @end group | 14458 | @end group |
| 14483 | @end example | 14459 | @end example |
| 14484 | @tex | 14460 | @tex |
| 14485 | \turnoffactive | ||
| 14486 | $$ [{2 + 3 \to 5}, {{a \over 2} \to {b + c \over 2}}] $$ | 14461 | $$ [{2 + 3 \to 5}, {{a \over 2} \to {b + c \over 2}}] $$ |
| 14487 | {\let\to\Rightarrow | 14462 | {\let\to\Rightarrow |
| 14488 | $$ [{2 + 3 \to 5}, {{a \over 2} \to {b + c \over 2}}] $$} | 14463 | $$ [{2 + 3 \to 5}, {{a \over 2} \to {b + c \over 2}}] $$} |
| @@ -14499,7 +14474,6 @@ Matrices normally, then changing @code{\matrix} to @code{\pmatrix}: | |||
| 14499 | @end group | 14474 | @end group |
| 14500 | @end example | 14475 | @end example |
| 14501 | @tex | 14476 | @tex |
| 14502 | \turnoffactive | ||
| 14503 | $$ \matrix{ {a \over b} & 0 \cr 0 & 2^{(x + 1)} } $$ | 14477 | $$ \matrix{ {a \over b} & 0 \cr 0 & 2^{(x + 1)} } $$ |
| 14504 | $$ \pmatrix{ {a \over b} & 0 \cr 0 & 2^{(x + 1)} } $$ | 14478 | $$ \pmatrix{ {a \over b} & 0 \cr 0 & 2^{(x + 1)} } $$ |
| 14505 | @end tex | 14479 | @end tex |
| @@ -17935,7 +17909,6 @@ ddb(cost, salv, life, per) = --------, book = cost - depreciation so far | |||
| 17935 | @end example | 17909 | @end example |
| 17936 | @end ifnottex | 17910 | @end ifnottex |
| 17937 | @tex | 17911 | @tex |
| 17938 | \turnoffactive | ||
| 17939 | $$ \code{fv}(r, n, p) = p { (1 + r)^n - 1 \over r } $$ | 17912 | $$ \code{fv}(r, n, p) = p { (1 + r)^n - 1 \over r } $$ |
| 17940 | $$ \code{fvb}(r, n, p) = p { ((1 + r)^n - 1) (1 + r) \over r } $$ | 17913 | $$ \code{fvb}(r, n, p) = p { ((1 + r)^n - 1) (1 + r) \over r } $$ |
| 17941 | $$ \code{fvl}(r, n, p) = p (1 + r)^n $$ | 17914 | $$ \code{fvl}(r, n, p) = p (1 + r)^n $$ |
| @@ -18591,7 +18564,6 @@ letter gamma). You can obtain these using the @kbd{H f G} [@code{gammag}] | |||
| 18591 | and @kbd{H I f G} [@code{gammaG}] commands. | 18564 | and @kbd{H I f G} [@code{gammaG}] commands. |
| 18592 | @end ifnottex | 18565 | @end ifnottex |
| 18593 | @tex | 18566 | @tex |
| 18594 | \turnoffactive | ||
| 18595 | The functions corresponding to the integrals that define $P(a,x)$ | 18567 | The functions corresponding to the integrals that define $P(a,x)$ |
| 18596 | and $Q(a,x)$ but without the normalizing $1/\Gamma(a)$ | 18568 | and $Q(a,x)$ but without the normalizing $1/\Gamma(a)$ |
| 18597 | factor are called $\gamma(a,x)$ and $\Gamma(a,x)$, respectively. | 18569 | factor are called $\gamma(a,x)$ and $\Gamma(a,x)$, respectively. |
| @@ -20559,7 +20531,6 @@ this is the weighted mean of the @expr{x} values with weights | |||
| 20559 | @texline @math{1 /\sigma^2}. | 20531 | @texline @math{1 /\sigma^2}. |
| 20560 | @infoline @expr{1 / s^2}. | 20532 | @infoline @expr{1 / s^2}. |
| 20561 | @tex | 20533 | @tex |
| 20562 | \turnoffactive | ||
| 20563 | $$ \mu = { \displaystyle \sum { x_i \over \sigma_i^2 } \over | 20534 | $$ \mu = { \displaystyle \sum { x_i \over \sigma_i^2 } \over |
| 20564 | \displaystyle \sum { 1 \over \sigma_i^2 } } $$ | 20535 | \displaystyle \sum { 1 \over \sigma_i^2 } } $$ |
| 20565 | @end tex | 20536 | @end tex |
| @@ -20593,7 +20564,6 @@ root of the reciprocal of the sum of the reciprocals of the squares | |||
| 20593 | of the input errors. (I.e., the variance is the reciprocal of the | 20564 | of the input errors. (I.e., the variance is the reciprocal of the |
| 20594 | sum of the reciprocals of the variances.) | 20565 | sum of the reciprocals of the variances.) |
| 20595 | @tex | 20566 | @tex |
| 20596 | \turnoffactive | ||
| 20597 | $$ \sigma_\mu^2 = {1 \over \displaystyle \sum {1 \over \sigma_i^2}} $$ | 20567 | $$ \sigma_\mu^2 = {1 \over \displaystyle \sum {1 \over \sigma_i^2}} $$ |
| 20598 | @end tex | 20568 | @end tex |
| 20599 | If the inputs are plain | 20569 | If the inputs are plain |
| @@ -20603,7 +20573,6 @@ out to be equivalent to calculating the standard deviation and | |||
| 20603 | then assuming each value's error is equal to this standard | 20573 | then assuming each value's error is equal to this standard |
| 20604 | deviation.) | 20574 | deviation.) |
| 20605 | @tex | 20575 | @tex |
| 20606 | \turnoffactive | ||
| 20607 | $$ \sigma_\mu^2 = {\sigma^2 \over N} $$ | 20576 | $$ \sigma_\mu^2 = {\sigma^2 \over N} $$ |
| 20608 | @end tex | 20577 | @end tex |
| 20609 | 20578 | ||
| @@ -20636,7 +20605,6 @@ command computes the harmonic mean of the data values. This is | |||
| 20636 | defined as the reciprocal of the arithmetic mean of the reciprocals | 20605 | defined as the reciprocal of the arithmetic mean of the reciprocals |
| 20637 | of the values. | 20606 | of the values. |
| 20638 | @tex | 20607 | @tex |
| 20639 | \turnoffactive | ||
| 20640 | $$ { N \over \displaystyle \sum {1 \over x_i} } $$ | 20608 | $$ { N \over \displaystyle \sum {1 \over x_i} } $$ |
| 20641 | @end tex | 20609 | @end tex |
| 20642 | 20610 | ||
| @@ -20650,7 +20618,6 @@ is the @var{n}th root of the product of the values. This is also | |||
| 20650 | equal to the @code{exp} of the arithmetic mean of the logarithms | 20618 | equal to the @code{exp} of the arithmetic mean of the logarithms |
| 20651 | of the data values. | 20619 | of the data values. |
| 20652 | @tex | 20620 | @tex |
| 20653 | \turnoffactive | ||
| 20654 | $$ \exp \left ( \sum { \ln x_i } \right ) = | 20621 | $$ \exp \left ( \sum { \ln x_i } \right ) = |
| 20655 | \left ( \prod { x_i } \right)^{1 / N} $$ | 20622 | \left ( \prod { x_i } \right)^{1 / N} $$ |
| 20656 | @end tex | 20623 | @end tex |
| @@ -20662,7 +20629,6 @@ mean'' of two numbers taken from the stack. This is computed by | |||
| 20662 | replacing the two numbers with their arithmetic mean and geometric | 20629 | replacing the two numbers with their arithmetic mean and geometric |
| 20663 | mean, then repeating until the two values converge. | 20630 | mean, then repeating until the two values converge. |
| 20664 | @tex | 20631 | @tex |
| 20665 | \turnoffactive | ||
| 20666 | $$ a_{i+1} = { a_i + b_i \over 2 } , \qquad b_{i+1} = \sqrt{a_i b_i} $$ | 20632 | $$ a_{i+1} = { a_i + b_i \over 2 } , \qquad b_{i+1} = \sqrt{a_i b_i} $$ |
| 20667 | @end tex | 20633 | @end tex |
| 20668 | 20634 | ||
| @@ -20685,7 +20651,6 @@ deviation, whose value is the square root of the sum of the squares of | |||
| 20685 | the differences between the values and the mean of the @expr{N} values, | 20651 | the differences between the values and the mean of the @expr{N} values, |
| 20686 | divided by @expr{N-1}. | 20652 | divided by @expr{N-1}. |
| 20687 | @tex | 20653 | @tex |
| 20688 | \turnoffactive | ||
| 20689 | $$ \sigma^2 = {1 \over N - 1} \sum (x_i - \mu)^2 $$ | 20654 | $$ \sigma^2 = {1 \over N - 1} \sum (x_i - \mu)^2 $$ |
| 20690 | @end tex | 20655 | @end tex |
| 20691 | 20656 | ||
| @@ -20712,7 +20677,6 @@ is used when the input represents a sample of the set of all | |||
| 20712 | data values, so that the mean computed from the input is itself | 20677 | data values, so that the mean computed from the input is itself |
| 20713 | only an estimate of the true mean. | 20678 | only an estimate of the true mean. |
| 20714 | @tex | 20679 | @tex |
| 20715 | \turnoffactive | ||
| 20716 | $$ \sigma^2 = {1 \over N} \sum (x_i - \mu)^2 $$ | 20680 | $$ \sigma^2 = {1 \over N} \sum (x_i - \mu)^2 $$ |
| 20717 | @end tex | 20681 | @end tex |
| 20718 | 20682 | ||
| @@ -20777,7 +20741,6 @@ are composed of error forms, the error for a given data point | |||
| 20777 | is taken as the square root of the sum of the squares of the two | 20741 | is taken as the square root of the sum of the squares of the two |
| 20778 | input errors. | 20742 | input errors. |
| 20779 | @tex | 20743 | @tex |
| 20780 | \turnoffactive | ||
| 20781 | $$ \sigma_{x\!y}^2 = {1 \over N-1} \sum (x_i - \mu_x) (y_i - \mu_y) $$ | 20744 | $$ \sigma_{x\!y}^2 = {1 \over N-1} \sum (x_i - \mu_x) (y_i - \mu_y) $$ |
| 20782 | $$ \sigma_{x\!y}^2 = | 20745 | $$ \sigma_{x\!y}^2 = |
| 20783 | {\displaystyle {1 \over N-1} | 20746 | {\displaystyle {1 \over N-1} |
| @@ -20805,7 +20768,6 @@ This is defined by the covariance of the vectors divided by the | |||
| 20805 | product of their standard deviations. (There is no difference | 20768 | product of their standard deviations. (There is no difference |
| 20806 | between sample or population statistics here.) | 20769 | between sample or population statistics here.) |
| 20807 | @tex | 20770 | @tex |
| 20808 | \turnoffactive | ||
| 20809 | $$ r_{x\!y} = { \sigma_{x\!y}^2 \over \sigma_x^2 \sigma_y^2 } $$ | 20771 | $$ r_{x\!y} = { \sigma_{x\!y}^2 \over \sigma_x^2 \sigma_y^2 } $$ |
| 20810 | @end tex | 20772 | @end tex |
| 20811 | 20773 | ||
| @@ -24361,8 +24323,6 @@ For example, suppose the data matrix | |||
| 24361 | @end example | 24323 | @end example |
| 24362 | @end ifnottex | 24324 | @end ifnottex |
| 24363 | @tex | 24325 | @tex |
| 24364 | \turnoffactive | ||
| 24365 | \turnoffactive | ||
| 24366 | \beforedisplay | 24326 | \beforedisplay |
| 24367 | $$ \pmatrix{ 1 & 2 & 3 & 4 & 5 \cr | 24327 | $$ \pmatrix{ 1 & 2 & 3 & 4 & 5 \cr |
| 24368 | 5 & 7 & 9 & 11 & 13 } | 24328 | 5 & 7 & 9 & 11 & 13 } |
| @@ -24422,7 +24382,6 @@ chi^2 = sum((y_i - (a + b x_i))^2, i, 1, N) | |||
| 24422 | @end example | 24382 | @end example |
| 24423 | @end ifnottex | 24383 | @end ifnottex |
| 24424 | @tex | 24384 | @tex |
| 24425 | \turnoffactive | ||
| 24426 | \beforedisplay | 24385 | \beforedisplay |
| 24427 | $$ \chi^2 = \sum_{i=1}^N (y_i - (a + b x_i))^2 $$ | 24386 | $$ \chi^2 = \sum_{i=1}^N (y_i - (a + b x_i))^2 $$ |
| 24428 | \afterdisplay | 24387 | \afterdisplay |
| @@ -24613,7 +24572,6 @@ chi^2 = sum(((y_i - (a + b x_i)) / sigma_i)^2, i, 1, N) | |||
| 24613 | @end example | 24572 | @end example |
| 24614 | @end ifnottex | 24573 | @end ifnottex |
| 24615 | @tex | 24574 | @tex |
| 24616 | \turnoffactive | ||
| 24617 | \beforedisplay | 24575 | \beforedisplay |
| 24618 | $$ \chi^2 = \sum_{i=1}^N \left(y_i - (a + b x_i) \over \sigma_i\right)^2 $$ | 24576 | $$ \chi^2 = \sum_{i=1}^N \left(y_i - (a + b x_i) \over \sigma_i\right)^2 $$ |
| 24619 | \afterdisplay | 24577 | \afterdisplay |
| @@ -25388,7 +25346,6 @@ any later ones are answered by reading additional elements from | |||
| 25388 | the stack. Thus, @kbd{' k^2 @key{RET} ' k @key{RET} 1 @key{RET} 5 @key{RET} a + @key{RET}} | 25346 | the stack. Thus, @kbd{' k^2 @key{RET} ' k @key{RET} 1 @key{RET} 5 @key{RET} a + @key{RET}} |
| 25389 | produces the result 55. | 25347 | produces the result 55. |
| 25390 | @tex | 25348 | @tex |
| 25391 | \turnoffactive | ||
| 25392 | $$ \sum_{k=1}^5 k^2 = 55 $$ | 25349 | $$ \sum_{k=1}^5 k^2 = 55 $$ |
| 25393 | @end tex | 25350 | @end tex |
| 25394 | 25351 | ||
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0cbf007771..484ae6529c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,48 @@ | |||
| 1 | 2010-05-13 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | Add TeX open-block and close-block keybindings to SGML, and vice | ||
| 4 | versa. | ||
| 5 | |||
| 6 | * textmodes/tex-mode.el (tex-mode-map): Bind C-c C-t to | ||
| 7 | latex-open-block and C-c / to latex-close-block. | ||
| 8 | |||
| 9 | * textmodes/sgml-mode.el (sgml-mode-map): Bind C-c C-o to sgml-tag | ||
| 10 | and C-c C-e to sgml-close-tag. | ||
| 11 | |||
| 12 | 2010-05-13 Michael Albinus <michael.albinus@gmx.de> | ||
| 13 | |||
| 14 | * net/tramp.el (with-progress-reporter): Create reporter object | ||
| 15 | only when the message would be displayed. Handled nested calls. | ||
| 16 | (tramp-handle-load, tramp-handle-file-local-copy) | ||
| 17 | (tramp-handle-insert-file-contents, tramp-handle-write-region) | ||
| 18 | (tramp-maybe-send-script, tramp-find-shell): Use | ||
| 19 | `with-progress-reporter'. | ||
| 20 | (tramp-handle-dired-compress-file, tramp-maybe-open-connection): | ||
| 21 | Fix message text. | ||
| 22 | |||
| 23 | * net/tramp-smb.el (tramp-smb-handle-copy-file) | ||
| 24 | (tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file) | ||
| 25 | (tramp-smb-handle-write-region, tramp-smb-maybe-open-connection): | ||
| 26 | Use `with-progress-reporter'. | ||
| 27 | |||
| 28 | 2010-05-13 AgustÃn MartÃn <agustin.martin@hispalinux.es> | ||
| 29 | |||
| 30 | * ispell.el (ispell-init-process): Do not kill ispell process | ||
| 31 | everytime when spellchecking from the minibuffer (bug#6143). | ||
| 32 | |||
| 33 | 2010-05-13 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 34 | |||
| 35 | * progmodes/sh-script.el (sh-mode): Use define-derived-mode. | ||
| 36 | |||
| 37 | * dos-fns.el: Add "dos-" prefix for namespace control. | ||
| 38 | (convert-standard-filename): Define as alias for | ||
| 39 | dos-convert-standard-filename but only if applicable. | ||
| 40 | |||
| 41 | 2010-05-12 Alan Mackenzie <acm@muc.de> | ||
| 42 | |||
| 43 | * progmodes/cc-cmds.el (c-beginning-of-defun, c-end-of-defun): | ||
| 44 | Push the mark at the start of these functions when appropriate. | ||
| 45 | |||
| 1 | 2010-05-12 Stefan Monnier <monnier@iro.umontreal.ca> | 46 | 2010-05-12 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 47 | ||
| 3 | * minibuffer.el (completion-cycle-threshold): New custom var. | 48 | * minibuffer.el (completion-cycle-threshold): New custom var. |
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index c1c2517bc22..5834afae8bc 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | (declare-function msdos-long-file-names "msdos.c") | 31 | (declare-function msdos-long-file-names "msdos.c") |
| 32 | 32 | ||
| 33 | ;; This overrides a trivial definition in files.el. | 33 | ;; This overrides a trivial definition in files.el. |
| 34 | (defun convert-standard-filename (filename) | 34 | (defun dos-convert-standard-filename (filename) |
| 35 | "Convert a standard file's name to something suitable for the current OS. | 35 | "Convert a standard file's name to something suitable for the current OS. |
| 36 | This means to guarantee valid names and perhaps to canonicalize | 36 | This means to guarantee valid names and perhaps to canonicalize |
| 37 | certain patterns. | 37 | certain patterns. |
| @@ -48,7 +48,7 @@ shell requires it (see `w32-shell-dos-semantics')." | |||
| 48 | (let ((flen (length filename))) | 48 | (let ((flen (length filename))) |
| 49 | ;; If FILENAME has a trailing slash, remove it and recurse. | 49 | ;; If FILENAME has a trailing slash, remove it and recurse. |
| 50 | (if (memq (aref filename (1- flen)) '(?/ ?\\)) | 50 | (if (memq (aref filename (1- flen)) '(?/ ?\\)) |
| 51 | (concat (convert-standard-filename | 51 | (concat (dos-convert-standard-filename |
| 52 | (substring filename 0 (1- flen))) | 52 | (substring filename 0 (1- flen))) |
| 53 | "/") | 53 | "/") |
| 54 | (let* (;; ange-ftp gets in the way for names like "/foo:bar". | 54 | (let* (;; ange-ftp gets in the way for names like "/foo:bar". |
| @@ -122,12 +122,17 @@ shell requires it (see `w32-shell-dos-semantics')." | |||
| 122 | (aset string (1- (length string)) lastchar)))) | 122 | (aset string (1- (length string)) lastchar)))) |
| 123 | (concat (if (and (stringp dir) | 123 | (concat (if (and (stringp dir) |
| 124 | (memq (aref dir dlen-m-1) '(?/ ?\\))) | 124 | (memq (aref dir dlen-m-1) '(?/ ?\\))) |
| 125 | (concat (convert-standard-filename | 125 | (concat (dos-convert-standard-filename |
| 126 | (substring dir 0 dlen-m-1)) | 126 | (substring dir 0 dlen-m-1)) |
| 127 | "/") | 127 | "/") |
| 128 | (convert-standard-filename dir)) | 128 | (dos-convert-standard-filename dir)) |
| 129 | string)))))) | 129 | string)))))) |
| 130 | 130 | ||
| 131 | ;; Only redirect convert-standard-filename if it has a chance of working, | ||
| 132 | ;; otherwise loading dos-fns.el might make your non-DOS Emacs misbehave. | ||
| 133 | (when (fboundp 'msdos-long-file-names) | ||
| 134 | (defalias 'convert-standard-filename 'dos-convert-standard-filename)) | ||
| 135 | |||
| 131 | (defun dos-8+3-filename (filename) | 136 | (defun dos-8+3-filename (filename) |
| 132 | "Truncate FILENAME to DOS 8+3 limits." | 137 | "Truncate FILENAME to DOS 8+3 limits." |
| 133 | (if (or (not (stringp filename)) | 138 | (if (or (not (stringp filename)) |
| @@ -188,12 +193,12 @@ shell requires it (see `w32-shell-dos-semantics')." | |||
| 188 | 193 | ||
| 189 | ;; This is for the sake of standard file names elsewhere in Emacs that | 194 | ;; This is for the sake of standard file names elsewhere in Emacs that |
| 190 | ;; are defined as constant strings or via defconst, and whose | 195 | ;; are defined as constant strings or via defconst, and whose |
| 191 | ;; conversion via `convert-standard-filename' does not give good | 196 | ;; conversion via `dos-convert-standard-filename' does not give good |
| 192 | ;; enough results. | 197 | ;; enough results. |
| 193 | (defun dosified-file-name (file-name) | 198 | (defun dosified-file-name (file-name) |
| 194 | "Return a variant of FILE-NAME that is valid on MS-DOS filesystems. | 199 | "Return a variant of FILE-NAME that is valid on MS-DOS filesystems. |
| 195 | 200 | ||
| 196 | This function is for those rare cases where `convert-standard-filename' | 201 | This function is for those rare cases where `dos-convert-standard-filename' |
| 197 | does not do a job that is good enough, e.g. if you need to preserve the | 202 | does not do a job that is good enough, e.g. if you need to preserve the |
| 198 | file-name extension. It recognizes only certain specific file names | 203 | file-name extension. It recognizes only certain specific file names |
| 199 | that are used in Emacs Lisp sources; any other file name will be | 204 | that are used in Emacs Lisp sources; any other file name will be |
| @@ -209,13 +214,13 @@ returned unaltered." | |||
| 209 | (defvar msdos-shells) | 214 | (defvar msdos-shells) |
| 210 | 215 | ||
| 211 | ;; Override settings chosen at startup. | 216 | ;; Override settings chosen at startup. |
| 212 | (defun set-default-process-coding-system () | 217 | (defun dos-set-default-process-coding-system () |
| 213 | (setq default-process-coding-system | 218 | (setq default-process-coding-system |
| 214 | (if (default-value 'enable-multibyte-characters) | 219 | (if (default-value 'enable-multibyte-characters) |
| 215 | '(undecided-dos . undecided-dos) | 220 | '(undecided-dos . undecided-dos) |
| 216 | '(raw-text-dos . raw-text-dos)))) | 221 | '(raw-text-dos . raw-text-dos)))) |
| 217 | 222 | ||
| 218 | (add-hook 'before-init-hook 'set-default-process-coding-system) | 223 | (add-hook 'before-init-hook 'dos-set-default-process-coding-system) |
| 219 | 224 | ||
| 220 | ;; File names defined in preloaded packages can be incorrect or | 225 | ;; File names defined in preloaded packages can be incorrect or |
| 221 | ;; invalid if long file names were available during dumping, but not | 226 | ;; invalid if long file names were available during dumping, but not |
| @@ -232,17 +237,17 @@ returned unaltered." | |||
| 232 | 237 | ||
| 233 | (add-hook 'before-init-hook 'dos-reevaluate-defcustoms) | 238 | (add-hook 'before-init-hook 'dos-reevaluate-defcustoms) |
| 234 | 239 | ||
| 235 | (defvar register-name-alist | 240 | (defvar dos-register-name-alist |
| 236 | '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) | 241 | '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) |
| 237 | (cflag . 6) (flags . 7) | 242 | (cflag . 6) (flags . 7) |
| 238 | (al . (0 . 0)) (bl . (1 . 0)) (cl . (2 . 0)) (dl . (3 . 0)) | 243 | (al . (0 . 0)) (bl . (1 . 0)) (cl . (2 . 0)) (dl . (3 . 0)) |
| 239 | (ah . (0 . 1)) (bh . (1 . 1)) (ch . (2 . 1)) (dh . (3 . 1)))) | 244 | (ah . (0 . 1)) (bh . (1 . 1)) (ch . (2 . 1)) (dh . (3 . 1)))) |
| 240 | 245 | ||
| 241 | (defun make-register () | 246 | (defun dos-make-register () |
| 242 | (make-vector 8 0)) | 247 | (make-vector 8 0)) |
| 243 | 248 | ||
| 244 | (defun register-value (regs name) | 249 | (defun dos-register-value (regs name) |
| 245 | (let ((where (cdr (assoc name register-name-alist)))) | 250 | (let ((where (cdr (assoc name dos-register-name-alist)))) |
| 246 | (cond ((consp where) | 251 | (cond ((consp where) |
| 247 | (let ((tem (aref regs (car where)))) | 252 | (let ((tem (aref regs (car where)))) |
| 248 | (if (zerop (cdr where)) | 253 | (if (zerop (cdr where)) |
| @@ -252,10 +257,10 @@ returned unaltered." | |||
| 252 | (aref regs where)) | 257 | (aref regs where)) |
| 253 | (t nil)))) | 258 | (t nil)))) |
| 254 | 259 | ||
| 255 | (defun set-register-value (regs name value) | 260 | (defun dos-set-register-value (regs name value) |
| 256 | (and (numberp value) | 261 | (and (numberp value) |
| 257 | (>= value 0) | 262 | (>= value 0) |
| 258 | (let ((where (cdr (assoc name register-name-alist)))) | 263 | (let ((where (cdr (assoc name dos-register-name-alist)))) |
| 259 | (cond ((consp where) | 264 | (cond ((consp where) |
| 260 | (let ((tem (aref regs (car where))) | 265 | (let ((tem (aref regs (car where))) |
| 261 | (value (logand value 255))) | 266 | (value (logand value 255))) |
| @@ -268,18 +273,18 @@ returned unaltered." | |||
| 268 | (aset regs where (logand value 65535)))))) | 273 | (aset regs where (logand value 65535)))))) |
| 269 | regs) | 274 | regs) |
| 270 | 275 | ||
| 271 | (defsubst intdos (regs) | 276 | (defsubst dos-intdos (regs) |
| 272 | (int86 33 regs)) | 277 | (int86 33 regs)) |
| 273 | 278 | ||
| 274 | ;; Backward compatibility for obsolescent functions which | 279 | ;; Backward compatibility for obsolescent functions which |
| 275 | ;; set screen size. | 280 | ;; set screen size. |
| 276 | 281 | ||
| 277 | (defun mode25 () | 282 | (defun dos-mode25 () |
| 278 | "Changes the number of screen rows to 25." | 283 | "Changes the number of screen rows to 25." |
| 279 | (interactive) | 284 | (interactive) |
| 280 | (set-frame-size (selected-frame) 80 25)) | 285 | (set-frame-size (selected-frame) 80 25)) |
| 281 | 286 | ||
| 282 | (defun mode4350 () | 287 | (defun dos-mode4350 () |
| 283 | "Changes the number of rows to 43 or 50. | 288 | "Changes the number of rows to 43 or 50. |
| 284 | Emacs always tries to set the screen height to 50 rows first. | 289 | Emacs always tries to set the screen height to 50 rows first. |
| 285 | If this fails, it will try to set it to 43 rows, on the assumption | 290 | If this fails, it will try to set it to 43 rows, on the assumption |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 194d2036c3f..0b7eaf7ed72 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,25 @@ | |||
| 1 | 2010-05-13 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 2 | |||
| 3 | * mml1991.el (mml1991-mailcrypt-encrypt, mml1991-gpg-encrypt) | ||
| 4 | * mml2015.el (mml2015-gpg-encrypt): Disable multibyte in buffers | ||
| 5 | generated within the mm-with-unibyte-current-buffer macro. | ||
| 6 | |||
| 7 | 2010-05-13 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 8 | |||
| 9 | * gnus-art.el (gnus-bind-safe-url-regexp): Bind mm-w3m-safe-url-regexp | ||
| 10 | to nil when we're in a mml-preview buffer and no group is selected. | ||
| 11 | |||
| 12 | 2010-05-12 Andreas Seltenreich <seltenreich@gmx.de> | ||
| 13 | |||
| 14 | * gnus-sum.el (gnus-summary-read-group-1): Don't jump to next group | ||
| 15 | when catching the `C-g'. Reported by: "Leo" | ||
| 16 | |||
| 17 | 2010-05-12 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 18 | |||
| 19 | * message.el (message-forward-make-body-plain) | ||
| 20 | (message-forward-make-body-mml): Use mm-multibyte-string-p instead of | ||
| 21 | multibyte-string-p. | ||
| 22 | |||
| 1 | 2010-05-12 Katsumi Yamaoka <yamaoka@jpl.org> | 23 | 2010-05-12 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 24 | ||
| 3 | * message.el (message-forward-make-body-mml): Assume original message | 25 | * message.el (message-forward-make-body-mml): Assume original message |
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 5f899b3067a..0659ee893de 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -4822,7 +4822,11 @@ General format specifiers can also be used. See Info node | |||
| 4822 | (with-current-buffer gnus-article-current-summary | 4822 | (with-current-buffer gnus-article-current-summary |
| 4823 | gnus-newsgroup-name) | 4823 | gnus-newsgroup-name) |
| 4824 | gnus-newsgroup-name))) | 4824 | gnus-newsgroup-name))) |
| 4825 | (if (cond ((stringp gnus-safe-html-newsgroups) | 4825 | (if (cond ((not group) |
| 4826 | ;; Maybe we're in a mml-preview buffer | ||
| 4827 | ;; and no group is selected. | ||
| 4828 | t) | ||
| 4829 | ((stringp gnus-safe-html-newsgroups) | ||
| 4826 | (string-match gnus-safe-html-newsgroups group)) | 4830 | (string-match gnus-safe-html-newsgroups group)) |
| 4827 | ((consp gnus-safe-html-newsgroups) | 4831 | ((consp gnus-safe-html-newsgroups) |
| 4828 | (member group gnus-safe-html-newsgroups))) | 4832 | (member group gnus-safe-html-newsgroups))) |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index a0943493844..3a2c944ed2f 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -3931,7 +3931,6 @@ If NO-DISPLAY, don't generate a summary buffer." | |||
| 3931 | (progn | 3931 | (progn |
| 3932 | (set-buffer gnus-group-buffer) | 3932 | (set-buffer gnus-group-buffer) |
| 3933 | (gnus-group-jump-to-group group) | 3933 | (gnus-group-jump-to-group group) |
| 3934 | (gnus-group-next-unread-group 1) | ||
| 3935 | (gnus-configure-windows 'group 'force)) | 3934 | (gnus-configure-windows 'group 'force)) |
| 3936 | (gnus-handle-ephemeral-exit quit-config)) | 3935 | (gnus-handle-ephemeral-exit quit-config)) |
| 3937 | ;; Finally signal the quit. | 3936 | ;; Finally signal the quit. |
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 897fe695288..947b1bd53e8 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -7165,7 +7165,7 @@ Optional DIGEST will use digest to forward." | |||
| 7165 | (contents (with-current-buffer forward-buffer (buffer-string))) | 7165 | (contents (with-current-buffer forward-buffer (buffer-string))) |
| 7166 | e) | 7166 | e) |
| 7167 | (unless (featurep 'xemacs) | 7167 | (unless (featurep 'xemacs) |
| 7168 | (unless (multibyte-string-p contents) | 7168 | (unless (mm-multibyte-string-p contents) |
| 7169 | (error "Attempt to insert unibyte string from the buffer \"%s\"\ | 7169 | (error "Attempt to insert unibyte string from the buffer \"%s\"\ |
| 7170 | to the multibyte buffer \"%s\"" | 7170 | to the multibyte buffer \"%s\"" |
| 7171 | (if (bufferp forward-buffer) | 7171 | (if (bufferp forward-buffer) |
| @@ -7220,7 +7220,7 @@ Optional DIGEST will use digest to forward." | |||
| 7220 | (if (not message-forward-decoded-p) | 7220 | (if (not message-forward-decoded-p) |
| 7221 | (let ((contents (with-current-buffer forward-buffer (buffer-string)))) | 7221 | (let ((contents (with-current-buffer forward-buffer (buffer-string)))) |
| 7222 | (unless (featurep 'xemacs) | 7222 | (unless (featurep 'xemacs) |
| 7223 | (unless (multibyte-string-p contents) | 7223 | (unless (mm-multibyte-string-p contents) |
| 7224 | (error "Attempt to insert unibyte string from the buffer \"%s\"\ | 7224 | (error "Attempt to insert unibyte string from the buffer \"%s\"\ |
| 7225 | to the multibyte buffer \"%s\"" | 7225 | to the multibyte buffer \"%s\"" |
| 7226 | (if (bufferp forward-buffer) | 7226 | (if (bufferp forward-buffer) |
diff --git a/lisp/gnus/mml1991.el b/lisp/gnus/mml1991.el index a3ada29fa66..3ba479574fd 100644 --- a/lisp/gnus/mml1991.el +++ b/lisp/gnus/mml1991.el | |||
| @@ -145,6 +145,7 @@ Whether the passphrase is cached at all is controlled by | |||
| 145 | (delete-region (point-min) (point))) | 145 | (delete-region (point-min) (point))) |
| 146 | (mm-with-unibyte-current-buffer | 146 | (mm-with-unibyte-current-buffer |
| 147 | (with-temp-buffer | 147 | (with-temp-buffer |
| 148 | (inline (mm-disable-multibyte)) | ||
| 148 | (setq cipher (current-buffer)) | 149 | (setq cipher (current-buffer)) |
| 149 | (insert-buffer-substring text) | 150 | (insert-buffer-substring text) |
| 150 | (unless (mc-encrypt-generic | 151 | (unless (mc-encrypt-generic |
| @@ -225,6 +226,7 @@ Whether the passphrase is cached at all is controlled by | |||
| 225 | (delete-region (point-min) (point))) | 226 | (delete-region (point-min) (point))) |
| 226 | (mm-with-unibyte-current-buffer | 227 | (mm-with-unibyte-current-buffer |
| 227 | (with-temp-buffer | 228 | (with-temp-buffer |
| 229 | (inline (mm-disable-multibyte)) | ||
| 228 | (flet ((gpg-encrypt-func | 230 | (flet ((gpg-encrypt-func |
| 229 | (sign plaintext ciphertext result recipients &optional | 231 | (sign plaintext ciphertext result recipients &optional |
| 230 | passphrase sign-with-key armor textmode) | 232 | passphrase sign-with-key armor textmode) |
diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el index 130a3ca86a5..977f4dabb67 100644 --- a/lisp/gnus/mml2015.el +++ b/lisp/gnus/mml2015.el | |||
| @@ -680,6 +680,7 @@ Whether the passphrase is cached at all is controlled by | |||
| 680 | cipher) | 680 | cipher) |
| 681 | (mm-with-unibyte-current-buffer | 681 | (mm-with-unibyte-current-buffer |
| 682 | (with-temp-buffer | 682 | (with-temp-buffer |
| 683 | (mm-disable-multibyte) | ||
| 683 | ;; set up a function to call the correct gpg encrypt routine | 684 | ;; set up a function to call the correct gpg encrypt routine |
| 684 | ;; with the right arguments. (FIXME: this should be done | 685 | ;; with the right arguments. (FIXME: this should be done |
| 685 | ;; differently.) | 686 | ;; differently.) |
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 434c2bad20d..00b282b83e3 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el | |||
| @@ -334,41 +334,41 @@ KEEP-DATE is not handled in case NEWNAME resides on an SMB server. | |||
| 334 | PRESERVE-UID-GID is completely ignored." | 334 | PRESERVE-UID-GID is completely ignored." |
| 335 | (setq filename (expand-file-name filename) | 335 | (setq filename (expand-file-name filename) |
| 336 | newname (expand-file-name newname)) | 336 | newname (expand-file-name newname)) |
| 337 | (with-progress-reporter | ||
| 338 | (tramp-dissect-file-name (if (file-remote-p filename) filename newname)) | ||
| 339 | 0 (format "Copying %s to %s" filename newname) | ||
| 340 | |||
| 341 | (let ((tmpfile (file-local-copy filename))) | ||
| 342 | |||
| 343 | (if tmpfile | ||
| 344 | ;; Remote filename. | ||
| 345 | (condition-case err | ||
| 346 | (rename-file tmpfile newname ok-if-already-exists) | ||
| 347 | ((error quit) | ||
| 348 | (tramp-compat-delete-file tmpfile 'force) | ||
| 349 | (signal (car err) (cdr err)))) | ||
| 350 | |||
| 351 | ;; Remote newname. | ||
| 352 | (when (file-directory-p newname) | ||
| 353 | (setq newname | ||
| 354 | (expand-file-name (file-name-nondirectory filename) newname))) | ||
| 355 | |||
| 356 | (with-parsed-tramp-file-name newname nil | ||
| 357 | (when (and (not ok-if-already-exists) | ||
| 358 | (file-exists-p newname)) | ||
| 359 | (tramp-error v 'file-already-exists newname)) | ||
| 337 | 360 | ||
| 338 | (let ((tmpfile (file-local-copy filename))) | 361 | ;; We must also flush the cache of the directory, because |
| 339 | 362 | ;; `file-attributes' reads the values from there. | |
| 340 | (if tmpfile | 363 | (tramp-flush-file-property v (file-name-directory localname)) |
| 341 | ;; Remote filename. | 364 | (tramp-flush-file-property v localname) |
| 342 | (condition-case err | 365 | (unless (tramp-smb-get-share v) |
| 343 | (rename-file tmpfile newname ok-if-already-exists) | 366 | (tramp-error |
| 344 | ((error quit) | 367 | v 'file-error "Target `%s' must contain a share name" newname)) |
| 345 | (tramp-compat-delete-file tmpfile 'force) | 368 | (unless (tramp-smb-send-command |
| 346 | (signal (car err) (cdr err)))) | 369 | v (format "put \"%s\" \"%s\"" |
| 347 | 370 | filename (tramp-smb-get-localname v))) | |
| 348 | ;; Remote newname. | 371 | (tramp-error v 'file-error "Cannot copy `%s'" filename)))))) |
| 349 | (when (file-directory-p newname) | ||
| 350 | (setq newname (expand-file-name | ||
| 351 | (file-name-nondirectory filename) newname))) | ||
| 352 | |||
| 353 | (with-parsed-tramp-file-name newname nil | ||
| 354 | (when (and (not ok-if-already-exists) | ||
| 355 | (file-exists-p newname)) | ||
| 356 | (tramp-error v 'file-already-exists newname)) | ||
| 357 | |||
| 358 | ;; We must also flush the cache of the directory, because | ||
| 359 | ;; `file-attributes' reads the values from there. | ||
| 360 | (tramp-flush-file-property v (file-name-directory localname)) | ||
| 361 | (tramp-flush-file-property v localname) | ||
| 362 | (unless (tramp-smb-get-share v) | ||
| 363 | (tramp-error | ||
| 364 | v 'file-error "Target `%s' must contain a share name" newname)) | ||
| 365 | (tramp-message v 0 "Copying file %s to file %s..." filename newname) | ||
| 366 | (if (tramp-smb-send-command | ||
| 367 | v (format "put \"%s\" \"%s\"" | ||
| 368 | filename (tramp-smb-get-localname v))) | ||
| 369 | (tramp-message | ||
| 370 | v 0 "Copying file %s to file %s...done" filename newname) | ||
| 371 | (tramp-error v 'file-error "Cannot copy `%s'" filename))))) | ||
| 372 | 372 | ||
| 373 | ;; KEEP-DATE handling. | 373 | ;; KEEP-DATE handling. |
| 374 | (when keep-date (set-file-times newname (nth 5 (file-attributes filename))))) | 374 | (when keep-date (set-file-times newname (nth 5 (file-attributes filename))))) |
| @@ -605,15 +605,15 @@ PRESERVE-UID-GID is completely ignored." | |||
| 605 | v 'file-error | 605 | v 'file-error |
| 606 | "Cannot make local copy of non-existing file `%s'" filename)) | 606 | "Cannot make local copy of non-existing file `%s'" filename)) |
| 607 | (let ((tmpfile (tramp-compat-make-temp-file filename))) | 607 | (let ((tmpfile (tramp-compat-make-temp-file filename))) |
| 608 | (tramp-message v 4 "Fetching %s to tmp file %s..." filename tmpfile) | 608 | (with-progress-reporter |
| 609 | (if (tramp-smb-send-command | 609 | v 3 (format "Fetching %s to tmp file %s" filename tmpfile) |
| 610 | v (format "get \"%s\" \"%s\"" (tramp-smb-get-localname v) tmpfile)) | 610 | (unless (tramp-smb-send-command |
| 611 | (tramp-message | 611 | v (format "get \"%s\" \"%s\"" |
| 612 | v 4 "Fetching %s to tmp file %s...done" filename tmpfile) | 612 | (tramp-smb-get-localname v) tmpfile)) |
| 613 | ;; Oops, an error. We shall cleanup. | 613 | ;; Oops, an error. We shall cleanup. |
| 614 | (tramp-compat-delete-file tmpfile 'force) | 614 | (tramp-compat-delete-file tmpfile 'force) |
| 615 | (tramp-error | 615 | (tramp-error |
| 616 | v 'file-error "Cannot make local copy of file `%s'" filename)) | 616 | v 'file-error "Cannot make local copy of file `%s'" filename))) |
| 617 | tmpfile))) | 617 | tmpfile))) |
| 618 | 618 | ||
| 619 | ;; This function should return "foo/" for directories and "bar" for | 619 | ;; This function should return "foo/" for directories and "bar" for |
| @@ -850,38 +850,39 @@ target of the symlink differ." | |||
| 850 | "Like `rename-file' for Tramp files." | 850 | "Like `rename-file' for Tramp files." |
| 851 | (setq filename (expand-file-name filename) | 851 | (setq filename (expand-file-name filename) |
| 852 | newname (expand-file-name newname)) | 852 | newname (expand-file-name newname)) |
| 853 | (with-progress-reporter | ||
| 854 | (tramp-dissect-file-name (if (file-remote-p filename) filename newname)) | ||
| 855 | 0 (format "Renaming %s to %s" filename newname) | ||
| 856 | |||
| 857 | (let ((tmpfile (file-local-copy filename))) | ||
| 858 | |||
| 859 | (if tmpfile | ||
| 860 | ;; Remote filename. | ||
| 861 | (condition-case err | ||
| 862 | (rename-file tmpfile newname ok-if-already-exists) | ||
| 863 | ((error quit) | ||
| 864 | (tramp-compat-delete-file tmpfile 'force) | ||
| 865 | (signal (car err) (cdr err)))) | ||
| 866 | |||
| 867 | ;; Remote newname. | ||
| 868 | (when (file-directory-p newname) | ||
| 869 | (setq newname (expand-file-name | ||
| 870 | (file-name-nondirectory filename) newname))) | ||
| 871 | |||
| 872 | (with-parsed-tramp-file-name newname nil | ||
| 873 | (when (and (not ok-if-already-exists) | ||
| 874 | (file-exists-p newname)) | ||
| 875 | (tramp-error v 'file-already-exists newname)) | ||
| 876 | ;; We must also flush the cache of the directory, because | ||
| 877 | ;; `file-attributes' reads the values from there. | ||
| 878 | (tramp-flush-file-property v (file-name-directory localname)) | ||
| 879 | (tramp-flush-file-property v localname) | ||
| 880 | (unless (tramp-smb-send-command | ||
| 881 | v (format "put %s \"%s\"" | ||
| 882 | filename (tramp-smb-get-localname v))) | ||
| 883 | (tramp-error v 'file-error "Cannot rename `%s'" filename))))) | ||
| 853 | 884 | ||
| 854 | (let ((tmpfile (file-local-copy filename))) | 885 | (tramp-compat-delete-file filename 'force))) |
| 855 | |||
| 856 | (if tmpfile | ||
| 857 | ;; Remote filename. | ||
| 858 | (condition-case err | ||
| 859 | (rename-file tmpfile newname ok-if-already-exists) | ||
| 860 | ((error quit) | ||
| 861 | (tramp-compat-delete-file tmpfile 'force) | ||
| 862 | (signal (car err) (cdr err)))) | ||
| 863 | |||
| 864 | ;; Remote newname. | ||
| 865 | (when (file-directory-p newname) | ||
| 866 | (setq newname (expand-file-name | ||
| 867 | (file-name-nondirectory filename) newname))) | ||
| 868 | |||
| 869 | (with-parsed-tramp-file-name newname nil | ||
| 870 | (when (and (not ok-if-already-exists) | ||
| 871 | (file-exists-p newname)) | ||
| 872 | (tramp-error v 'file-already-exists newname)) | ||
| 873 | ;; We must also flush the cache of the directory, because | ||
| 874 | ;; `file-attributes' reads the values from there. | ||
| 875 | (tramp-flush-file-property v (file-name-directory localname)) | ||
| 876 | (tramp-flush-file-property v localname) | ||
| 877 | (tramp-message v 0 "Copying file %s to file %s..." filename newname) | ||
| 878 | (if (tramp-smb-send-command | ||
| 879 | v (format "put %s \"%s\"" filename (tramp-smb-get-localname v))) | ||
| 880 | (tramp-message | ||
| 881 | v 0 "Copying file %s to file %s...done" filename newname) | ||
| 882 | (tramp-error v 'file-error "Cannot rename `%s'" filename))))) | ||
| 883 | |||
| 884 | (tramp-compat-delete-file filename 'force)) | ||
| 885 | 886 | ||
| 886 | (defun tramp-smb-handle-set-file-modes (filename mode) | 887 | (defun tramp-smb-handle-set-file-modes (filename mode) |
| 887 | "Like `set-file-modes' for Tramp files." | 888 | "Like `set-file-modes' for Tramp files." |
| @@ -938,14 +939,14 @@ errors for shares like \"C$/\", which are common in Microsoft Windows." | |||
| 938 | (list start end tmpfile append 'no-message lockname confirm) | 939 | (list start end tmpfile append 'no-message lockname confirm) |
| 939 | (list start end tmpfile append 'no-message lockname))) | 940 | (list start end tmpfile append 'no-message lockname))) |
| 940 | 941 | ||
| 941 | (tramp-message v 5 "Writing tmp file %s to file %s..." tmpfile filename) | 942 | (with-progress-reporter |
| 942 | (unwind-protect | 943 | v 3 (format "Moving tmp file %s to %s" tmpfile filename) |
| 943 | (if (tramp-smb-send-command | 944 | (unwind-protect |
| 944 | v (format "put %s \"%s\"" tmpfile (tramp-smb-get-localname v))) | 945 | (unless (tramp-smb-send-command |
| 945 | (tramp-message | 946 | v (format "put %s \"%s\"" |
| 946 | v 5 "Writing tmp file %s to file %s...done" tmpfile filename) | 947 | tmpfile (tramp-smb-get-localname v))) |
| 947 | (tramp-error v 'file-error "Cannot write `%s'" filename)) | 948 | (tramp-error v 'file-error "Cannot write `%s'" filename)) |
| 948 | (tramp-compat-delete-file tmpfile 'force)) | 949 | (tramp-compat-delete-file tmpfile 'force))) |
| 949 | 950 | ||
| 950 | (unless (equal curbuf (current-buffer)) | 951 | (unless (equal curbuf (current-buffer)) |
| 951 | (tramp-error | 952 | (tramp-error |
| @@ -1302,60 +1303,57 @@ connection if a previous connection has died for some reason." | |||
| 1302 | (setq args (append args (list "-s" tramp-smb-conf)))) | 1303 | (setq args (append args (list "-s" tramp-smb-conf)))) |
| 1303 | 1304 | ||
| 1304 | ;; OK, let's go. | 1305 | ;; OK, let's go. |
| 1305 | (tramp-message | 1306 | (with-progress-reporter |
| 1306 | vec 3 "Opening connection for //%s%s/%s..." | 1307 | vec 3 |
| 1307 | (if (not (zerop (length user))) (concat user "@") "") | 1308 | (format "Opening connection for //%s%s/%s" |
| 1308 | host (or share "")) | 1309 | (if (not (zerop (length user))) (concat user "@") "") |
| 1309 | 1310 | host (or share "")) | |
| 1310 | (let* ((coding-system-for-read nil) | 1311 | |
| 1311 | (process-connection-type tramp-process-connection-type) | 1312 | (let* ((coding-system-for-read nil) |
| 1312 | (p (let ((default-directory | 1313 | (process-connection-type tramp-process-connection-type) |
| 1313 | (tramp-compat-temporary-file-directory))) | 1314 | (p (let ((default-directory |
| 1314 | (apply #'start-process | 1315 | (tramp-compat-temporary-file-directory))) |
| 1315 | (tramp-buffer-name vec) (tramp-get-buffer vec) | 1316 | (apply #'start-process |
| 1316 | tramp-smb-program args)))) | 1317 | (tramp-buffer-name vec) (tramp-get-buffer vec) |
| 1317 | 1318 | tramp-smb-program args)))) | |
| 1318 | (tramp-message | 1319 | |
| 1319 | vec 6 "%s" (mapconcat 'identity (process-command p) " ")) | 1320 | (tramp-message |
| 1320 | (tramp-set-process-query-on-exit-flag p nil) | 1321 | vec 6 "%s" (mapconcat 'identity (process-command p) " ")) |
| 1321 | 1322 | (tramp-set-process-query-on-exit-flag p nil) | |
| 1322 | ;; Set variables for computing the prompt for reading password. | 1323 | |
| 1323 | (setq tramp-current-method tramp-smb-method | 1324 | ;; Set variables for computing the prompt for reading password. |
| 1324 | tramp-current-user user | 1325 | (setq tramp-current-method tramp-smb-method |
| 1325 | tramp-current-host host) | 1326 | tramp-current-user user |
| 1326 | 1327 | tramp-current-host host) | |
| 1327 | ;; Play login scenario. | 1328 | |
| 1328 | (tramp-process-actions | 1329 | ;; Play login scenario. |
| 1329 | p vec | 1330 | (tramp-process-actions |
| 1330 | (if share | 1331 | p vec |
| 1331 | tramp-smb-actions-with-share | 1332 | (if share |
| 1332 | tramp-smb-actions-without-share)) | 1333 | tramp-smb-actions-with-share |
| 1333 | 1334 | tramp-smb-actions-without-share)) | |
| 1334 | ;; Check server version. | 1335 | |
| 1335 | (with-current-buffer (tramp-get-connection-buffer vec) | 1336 | ;; Check server version. |
| 1336 | (goto-char (point-min)) | 1337 | (with-current-buffer (tramp-get-connection-buffer vec) |
| 1337 | (search-forward-regexp | 1338 | (goto-char (point-min)) |
| 1338 | "Domain=\\[[^]]*\\] OS=\\[[^]]*\\] Server=\\[[^]]*\\]" nil t) | 1339 | (search-forward-regexp |
| 1339 | (let ((smbserver-version (match-string 0))) | 1340 | "Domain=\\[[^]]*\\] OS=\\[[^]]*\\] Server=\\[[^]]*\\]" nil t) |
| 1340 | (unless | 1341 | (let ((smbserver-version (match-string 0))) |
| 1341 | (string-equal | 1342 | (unless |
| 1342 | smbserver-version | 1343 | (string-equal |
| 1343 | (tramp-get-connection-property | 1344 | smbserver-version |
| 1344 | vec "smbserver-version" smbserver-version)) | 1345 | (tramp-get-connection-property |
| 1345 | (tramp-flush-directory-property vec "") | 1346 | vec "smbserver-version" smbserver-version)) |
| 1346 | (tramp-flush-connection-property vec)) | 1347 | (tramp-flush-directory-property vec "") |
| 1347 | (tramp-set-connection-property | 1348 | (tramp-flush-connection-property vec)) |
| 1348 | vec "smbserver-version" smbserver-version))) | 1349 | (tramp-set-connection-property |
| 1349 | 1350 | vec "smbserver-version" smbserver-version))) | |
| 1350 | ;; Set chunksize. Otherwise, `tramp-send-string' might | 1351 | |
| 1351 | ;; try it itself. | 1352 | ;; Set chunksize. Otherwise, `tramp-send-string' might |
| 1352 | (tramp-set-connection-property p "smb-share" share) | 1353 | ;; try it itself. |
| 1353 | (tramp-set-connection-property p "chunksize" tramp-chunksize) | 1354 | (tramp-set-connection-property p "smb-share" share) |
| 1354 | 1355 | (tramp-set-connection-property | |
| 1355 | (tramp-message | 1356 | p "chunksize" tramp-chunksize)))))))) |
| 1356 | vec 3 "Opening connection for //%s%s/%s...done" | ||
| 1357 | (if (not (zerop (length user))) (concat user "@") "") | ||
| 1358 | host (or share "")))))))) | ||
| 1359 | 1357 | ||
| 1360 | ;; We don't use timeouts. If needed, the caller shall wrap around. | 1358 | ;; We don't use timeouts. If needed, the caller shall wrap around. |
| 1361 | (defun tramp-smb-wait-for-output (vec) | 1359 | (defun tramp-smb-wait-for-output (vec) |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 2da11bda834..c5addae8e5d 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -2271,14 +2271,18 @@ FILE must be a local file name on a connection identified via VEC." | |||
| 2271 | (tramp-message ,vec ,level "%s..." ,message) | 2271 | (tramp-message ,vec ,level "%s..." ,message) |
| 2272 | ;; We start a pulsing progress reporter after 3 seconds. Feature | 2272 | ;; We start a pulsing progress reporter after 3 seconds. Feature |
| 2273 | ;; introduced in Emacs 24.1. | 2273 | ;; introduced in Emacs 24.1. |
| 2274 | (when (<= ,level tramp-verbose) | 2274 | (when (and tramp-message-show-message |
| 2275 | ;; Display only when there is a minimum level. | ||
| 2276 | (<= ,level (min tramp-verbose 3))) | ||
| 2275 | (condition-case nil | 2277 | (condition-case nil |
| 2276 | (setq pr (tramp-compat-funcall 'make-progress-reporter ,message) | 2278 | (setq pr (tramp-compat-funcall 'make-progress-reporter ,message) |
| 2277 | tm (if pr (run-at-time 3 0.1 'progress-reporter-update pr))) | 2279 | tm (if pr (run-at-time 3 0.1 'progress-reporter-update pr))) |
| 2278 | (error nil))) | 2280 | (error nil))) |
| 2279 | (unwind-protect | 2281 | (unwind-protect |
| 2280 | ;; Execute the body. | 2282 | ;; Execute the body. |
| 2281 | (progn ,@body) | 2283 | (let ((tramp-message-show-message |
| 2284 | (and tramp-message-show-message (not tm)))) | ||
| 2285 | ,@body) | ||
| 2282 | ;; Stop progress reporter. | 2286 | ;; Stop progress reporter. |
| 2283 | (if tm (tramp-compat-funcall 'cancel-timer tm)) | 2287 | (if tm (tramp-compat-funcall 'cancel-timer tm)) |
| 2284 | (tramp-message ,vec ,level "%s...done" ,message)))) | 2288 | (tramp-message ,vec ,level "%s...done" ,message)))) |
| @@ -2558,13 +2562,13 @@ target of the symlink differ." | |||
| 2558 | (tramp-error v 'file-error "Cannot load nonexistent file `%s'" file))) | 2562 | (tramp-error v 'file-error "Cannot load nonexistent file `%s'" file))) |
| 2559 | (if (not (file-exists-p file)) | 2563 | (if (not (file-exists-p file)) |
| 2560 | nil | 2564 | nil |
| 2561 | (unless nomessage (tramp-message v 0 "Loading %s..." file)) | 2565 | (let ((tramp-message-show-message (not nomessage))) |
| 2562 | (let ((local-copy (file-local-copy file))) | 2566 | (with-progress-reporter v 0 (format "Loading %s" file) |
| 2563 | ;; MUST-SUFFIX doesn't exist on XEmacs, so let it default to nil. | 2567 | (let ((local-copy (file-local-copy file))) |
| 2564 | (unwind-protect | 2568 | ;; MUST-SUFFIX doesn't exist on XEmacs, so let it default to nil. |
| 2565 | (load local-copy noerror t t) | 2569 | (unwind-protect |
| 2566 | (tramp-compat-delete-file local-copy 'force))) | 2570 | (load local-copy noerror t t) |
| 2567 | (unless nomessage (tramp-message v 0 "Loading %s...done" file)) | 2571 | (tramp-compat-delete-file local-copy 'force))))) |
| 2568 | t))) | 2572 | t))) |
| 2569 | 2573 | ||
| 2570 | ;; Localname manipulation functions that grok Tramp localnames... | 2574 | ;; Localname manipulation functions that grok Tramp localnames... |
| @@ -4153,7 +4157,7 @@ This is like `dired-recursive-delete-directory' for Tramp files." | |||
| 4153 | nil) | 4157 | nil) |
| 4154 | ((and suffix (nth 2 suffix)) | 4158 | ((and suffix (nth 2 suffix)) |
| 4155 | ;; We found an uncompression rule. | 4159 | ;; We found an uncompression rule. |
| 4156 | (with-progress-reporter v 0 (format "Uncompressing %s..." file) | 4160 | (with-progress-reporter v 0 (format "Uncompressing %s" file) |
| 4157 | (when (zerop | 4161 | (when (zerop |
| 4158 | (tramp-send-command-and-check | 4162 | (tramp-send-command-and-check |
| 4159 | v (concat (nth 2 suffix) " " | 4163 | v (concat (nth 2 suffix) " " |
| @@ -4165,7 +4169,7 @@ This is like `dired-recursive-delete-directory' for Tramp files." | |||
| 4165 | (t | 4169 | (t |
| 4166 | ;; We don't recognize the file as compressed, so compress it. | 4170 | ;; We don't recognize the file as compressed, so compress it. |
| 4167 | ;; Try gzip. | 4171 | ;; Try gzip. |
| 4168 | (with-progress-reporter v 0 (format "Compressing %s..." file) | 4172 | (with-progress-reporter v 0 (format "Compressing %s" file) |
| 4169 | (when (zerop | 4173 | (when (zerop |
| 4170 | (tramp-send-command-and-check | 4174 | (tramp-send-command-and-check |
| 4171 | v (concat "gzip -f " | 4175 | v (concat "gzip -f " |
| @@ -4747,11 +4751,11 @@ Lisp error raised when PROGRAM is nil is trapped also, returning 1." | |||
| 4747 | ;; Use inline encoding for file transfer. | 4751 | ;; Use inline encoding for file transfer. |
| 4748 | (rem-enc | 4752 | (rem-enc |
| 4749 | (save-excursion | 4753 | (save-excursion |
| 4750 | (tramp-message v 5 "Encoding remote file %s..." filename) | 4754 | (with-progress-reporter |
| 4751 | (tramp-barf-unless-okay | 4755 | v 5 (format "Encoding remote file %s" filename) |
| 4752 | v (format rem-enc (tramp-shell-quote-argument localname)) | 4756 | (tramp-barf-unless-okay |
| 4753 | "Encoding remote file failed") | 4757 | v (format rem-enc (tramp-shell-quote-argument localname)) |
| 4754 | (tramp-message v 5 "Encoding remote file %s...done" filename) | 4758 | "Encoding remote file failed")) |
| 4755 | 4759 | ||
| 4756 | (if (functionp loc-dec) | 4760 | (if (functionp loc-dec) |
| 4757 | ;; If local decoding is a function, we call it. We | 4761 | ;; If local decoding is a function, we call it. We |
| @@ -4761,15 +4765,15 @@ Lisp error raised when PROGRAM is nil is trapped also, returning 1." | |||
| 4761 | (with-temp-buffer | 4765 | (with-temp-buffer |
| 4762 | (set-buffer-multibyte nil) | 4766 | (set-buffer-multibyte nil) |
| 4763 | (insert-buffer-substring (tramp-get-buffer v)) | 4767 | (insert-buffer-substring (tramp-get-buffer v)) |
| 4764 | (tramp-message | 4768 | (with-progress-reporter |
| 4765 | v 5 "Decoding remote file %s with function %s..." | 4769 | v 3 (format "Decoding remote file %s with function %s" |
| 4766 | filename loc-dec) | 4770 | filename loc-dec) |
| 4767 | (funcall loc-dec (point-min) (point-max)) | 4771 | (funcall loc-dec (point-min) (point-max)) |
| 4768 | ;; Unset `file-name-handler-alist'. Otherwise, | 4772 | ;; Unset `file-name-handler-alist'. Otherwise, |
| 4769 | ;; epa-file gets confused. | 4773 | ;; epa-file gets confused. |
| 4770 | (let (file-name-handler-alist | 4774 | (let (file-name-handler-alist |
| 4771 | (coding-system-for-write 'binary)) | 4775 | (coding-system-for-write 'binary)) |
| 4772 | (write-region (point-min) (point-max) tmpfile))) | 4776 | (write-region (point-min) (point-max) tmpfile)))) |
| 4773 | 4777 | ||
| 4774 | ;; If tramp-decoding-function is not defined for this | 4778 | ;; If tramp-decoding-function is not defined for this |
| 4775 | ;; method, we invoke tramp-decoding-command instead. | 4779 | ;; method, we invoke tramp-decoding-command instead. |
| @@ -4779,14 +4783,14 @@ Lisp error raised when PROGRAM is nil is trapped also, returning 1." | |||
| 4779 | (let (file-name-handler-alist | 4783 | (let (file-name-handler-alist |
| 4780 | (coding-system-for-write 'binary)) | 4784 | (coding-system-for-write 'binary)) |
| 4781 | (write-region (point-min) (point-max) tmpfile2)) | 4785 | (write-region (point-min) (point-max) tmpfile2)) |
| 4782 | (tramp-message | 4786 | (with-progress-reporter |
| 4783 | v 5 "Decoding remote file %s with command %s..." | 4787 | v 3 (format "Decoding remote file %s with command %s" |
| 4784 | filename loc-dec) | 4788 | filename loc-dec) |
| 4785 | (unwind-protect | 4789 | (unwind-protect |
| 4786 | (tramp-call-local-coding-command loc-dec tmpfile2 tmpfile) | 4790 | (tramp-call-local-coding-command |
| 4787 | (tramp-compat-delete-file tmpfile2 'force)))) | 4791 | loc-dec tmpfile2 tmpfile) |
| 4792 | (tramp-compat-delete-file tmpfile2 'force))))) | ||
| 4788 | 4793 | ||
| 4789 | (tramp-message v 5 "Decoding remote file %s...done" filename) | ||
| 4790 | ;; Set proper permissions. | 4794 | ;; Set proper permissions. |
| 4791 | (set-file-modes tmpfile (tramp-default-file-modes filename)) | 4795 | (set-file-modes tmpfile (tramp-default-file-modes filename)) |
| 4792 | ;; Set local user ownership. | 4796 | ;; Set local user ownership. |
| @@ -4842,7 +4846,7 @@ coding system might not be determined. This function repairs it." | |||
| 4842 | "Like `insert-file-contents' for Tramp files." | 4846 | "Like `insert-file-contents' for Tramp files." |
| 4843 | (barf-if-buffer-read-only) | 4847 | (barf-if-buffer-read-only) |
| 4844 | (setq filename (expand-file-name filename)) | 4848 | (setq filename (expand-file-name filename)) |
| 4845 | (let (coding-system-used result local-copy remote-copy) | 4849 | (let (result local-copy remote-copy) |
| 4846 | (with-parsed-tramp-file-name filename nil | 4850 | (with-parsed-tramp-file-name filename nil |
| 4847 | (unwind-protect | 4851 | (unwind-protect |
| 4848 | (if (not (file-exists-p filename)) | 4852 | (if (not (file-exists-p filename)) |
| @@ -4913,27 +4917,16 @@ coding system might not be determined. This function repairs it." | |||
| 4913 | (setq tramp-temp-buffer-file-name local-copy) | 4917 | (setq tramp-temp-buffer-file-name local-copy) |
| 4914 | (put 'tramp-temp-buffer-file-name 'permanent-local t)) | 4918 | (put 'tramp-temp-buffer-file-name 'permanent-local t)) |
| 4915 | 4919 | ||
| 4916 | (tramp-message | 4920 | (with-progress-reporter |
| 4917 | v 4 "Inserting local temp file `%s'..." local-copy) | 4921 | v 3 (format "Inserting local temp file `%s'" local-copy) |
| 4918 | 4922 | ;; We must ensure that `file-coding-system-alist' | |
| 4919 | ;; We must ensure that `file-coding-system-alist' | 4923 | ;; matches `local-copy'. |
| 4920 | ;; matches `local-copy'. | 4924 | (let ((file-coding-system-alist |
| 4921 | (let ((file-coding-system-alist | 4925 | (tramp-find-file-name-coding-system-alist |
| 4922 | (tramp-find-file-name-coding-system-alist | 4926 | filename local-copy))) |
| 4923 | filename local-copy))) | 4927 | (setq result |
| 4924 | (setq result | 4928 | (insert-file-contents |
| 4925 | (insert-file-contents | 4929 | local-copy nil nil nil replace)))))) |
| 4926 | local-copy nil nil nil replace)) | ||
| 4927 | ;; Now `last-coding-system-used' has right value. | ||
| 4928 | ;; Remember it. | ||
| 4929 | (when (boundp 'last-coding-system-used) | ||
| 4930 | (setq coding-system-used | ||
| 4931 | (symbol-value 'last-coding-system-used)))) | ||
| 4932 | |||
| 4933 | (tramp-message | ||
| 4934 | v 4 "Inserting local temp file `%s'...done" local-copy) | ||
| 4935 | (when (boundp 'last-coding-system-used) | ||
| 4936 | (set 'last-coding-system-used coding-system-used)))) | ||
| 4937 | 4930 | ||
| 4938 | ;; Save exit. | 4931 | ;; Save exit. |
| 4939 | (progn | 4932 | (progn |
| @@ -5193,15 +5186,14 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file." | |||
| 5193 | ;; Use inline file transfer. | 5186 | ;; Use inline file transfer. |
| 5194 | (rem-dec | 5187 | (rem-dec |
| 5195 | ;; Encode tmpfile. | 5188 | ;; Encode tmpfile. |
| 5196 | (tramp-message v 5 "Encoding region...") | ||
| 5197 | (unwind-protect | 5189 | (unwind-protect |
| 5198 | (with-temp-buffer | 5190 | (with-temp-buffer |
| 5199 | (set-buffer-multibyte nil) | 5191 | (set-buffer-multibyte nil) |
| 5200 | ;; Use encoding function or command. | 5192 | ;; Use encoding function or command. |
| 5201 | (if (functionp loc-enc) | 5193 | (if (functionp loc-enc) |
| 5202 | (progn | 5194 | (with-progress-reporter |
| 5203 | (tramp-message | 5195 | v 3 (format "Encoding region using function `%s'" |
| 5204 | v 5 "Encoding region using function `%s'..." loc-enc) | 5196 | loc-enc) |
| 5205 | (let ((coding-system-for-read 'binary)) | 5197 | (let ((coding-system-for-read 'binary)) |
| 5206 | (insert-file-contents-literally tmpfile)) | 5198 | (insert-file-contents-literally tmpfile)) |
| 5207 | ;; The following `let' is a workaround for the | 5199 | ;; The following `let' is a workaround for the |
| @@ -5217,59 +5209,61 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file." | |||
| 5217 | (tramp-compat-temporary-file-directory))) | 5209 | (tramp-compat-temporary-file-directory))) |
| 5218 | (funcall loc-enc (point-min) (point-max)))) | 5210 | (funcall loc-enc (point-min) (point-max)))) |
| 5219 | 5211 | ||
| 5220 | (tramp-message | 5212 | (with-progress-reporter |
| 5221 | v 5 "Encoding region using command `%s'..." loc-enc) | 5213 | v 3 (format "Encoding region using command `%s'" |
| 5222 | (unless (zerop (tramp-call-local-coding-command | 5214 | loc-enc) |
| 5223 | loc-enc tmpfile t)) | 5215 | (unless (zerop (tramp-call-local-coding-command |
| 5224 | (tramp-error | 5216 | loc-enc tmpfile t)) |
| 5225 | v 'file-error | 5217 | (tramp-error |
| 5226 | "Cannot write to `%s', local encoding command `%s' failed" | 5218 | v 'file-error |
| 5227 | filename loc-enc))) | 5219 | (concat "Cannot write to `%s', " |
| 5220 | "local encoding command `%s' failed") | ||
| 5221 | filename loc-enc)))) | ||
| 5228 | 5222 | ||
| 5229 | ;; Send buffer into remote decoding command which | 5223 | ;; Send buffer into remote decoding command which |
| 5230 | ;; writes to remote file. Because this happens on | 5224 | ;; writes to remote file. Because this happens on |
| 5231 | ;; the remote host, we cannot use the function. | 5225 | ;; the remote host, we cannot use the function. |
| 5232 | (goto-char (point-max)) | 5226 | (with-progress-reporter |
| 5233 | (unless (bolp) (newline)) | 5227 | v 3 |
| 5234 | (tramp-message | 5228 | (format "Decoding region into remote file %s" filename) |
| 5235 | v 5 "Decoding region into remote file %s..." filename) | 5229 | (goto-char (point-max)) |
| 5236 | (tramp-send-command | 5230 | (unless (bolp) (newline)) |
| 5237 | v | 5231 | (tramp-send-command |
| 5238 | (format | 5232 | v |
| 5239 | (concat rem-dec " <<'EOF'\n%sEOF") | 5233 | (format |
| 5240 | (tramp-shell-quote-argument localname) | 5234 | (concat rem-dec " <<'EOF'\n%sEOF") |
| 5241 | (buffer-string))) | 5235 | (tramp-shell-quote-argument localname) |
| 5242 | (tramp-barf-unless-okay | 5236 | (buffer-string))) |
| 5243 | v nil | 5237 | (tramp-barf-unless-okay |
| 5244 | "Couldn't write region to `%s', decode using `%s' failed" | 5238 | v nil |
| 5245 | filename rem-dec) | 5239 | "Couldn't write region to `%s', decode using `%s' failed" |
| 5246 | ;; When `file-precious-flag' is set, the region is | 5240 | filename rem-dec) |
| 5247 | ;; written to a temporary file. Check that the | 5241 | ;; When `file-precious-flag' is set, the region is |
| 5248 | ;; checksum is equal to that from the local tmpfile. | 5242 | ;; written to a temporary file. Check that the |
| 5249 | (when file-precious-flag | 5243 | ;; checksum is equal to that from the local tmpfile. |
| 5250 | (erase-buffer) | 5244 | (when file-precious-flag |
| 5251 | (and | 5245 | (erase-buffer) |
| 5252 | ;; cksum runs locally, if possible. | 5246 | (and |
| 5253 | (zerop (tramp-local-call-process "cksum" tmpfile t)) | 5247 | ;; cksum runs locally, if possible. |
| 5254 | ;; cksum runs remotely. | 5248 | (zerop (tramp-local-call-process "cksum" tmpfile t)) |
| 5255 | (zerop | 5249 | ;; cksum runs remotely. |
| 5256 | (tramp-send-command-and-check | 5250 | (zerop |
| 5257 | v | 5251 | (tramp-send-command-and-check |
| 5258 | (format | 5252 | v |
| 5259 | "cksum <%s" (tramp-shell-quote-argument localname)))) | 5253 | (format |
| 5260 | ;; ... they are different. | 5254 | "cksum <%s" |
| 5261 | (not | 5255 | (tramp-shell-quote-argument localname)))) |
| 5262 | (string-equal | 5256 | ;; ... they are different. |
| 5263 | (buffer-string) | 5257 | (not |
| 5264 | (with-current-buffer (tramp-get-buffer v) | 5258 | (string-equal |
| 5265 | (buffer-string)))) | 5259 | (buffer-string) |
| 5266 | (tramp-error | 5260 | (with-current-buffer (tramp-get-buffer v) |
| 5267 | v 'file-error | 5261 | (buffer-string)))) |
| 5268 | (concat "Couldn't write region to `%s'," | 5262 | (tramp-error |
| 5269 | " decode using `%s' failed") | 5263 | v 'file-error |
| 5270 | filename rem-dec))) | 5264 | (concat "Couldn't write region to `%s'," |
| 5271 | (tramp-message | 5265 | " decode using `%s' failed") |
| 5272 | v 5 "Decoding region into remote file %s...done" filename)) | 5266 | filename rem-dec))))) |
| 5273 | 5267 | ||
| 5274 | ;; Save exit. | 5268 | ;; Save exit. |
| 5275 | (tramp-compat-delete-file tmpfile 'force))) | 5269 | (tramp-compat-delete-file tmpfile 'force))) |
| @@ -6286,14 +6280,13 @@ Only send the definition if it has not already been done." | |||
| 6286 | (let* ((p (tramp-get-connection-process vec)) | 6280 | (let* ((p (tramp-get-connection-process vec)) |
| 6287 | (scripts (tramp-get-connection-property p "scripts" nil))) | 6281 | (scripts (tramp-get-connection-property p "scripts" nil))) |
| 6288 | (unless (member name scripts) | 6282 | (unless (member name scripts) |
| 6289 | (tramp-message vec 5 "Sending script `%s'..." name) | 6283 | (with-progress-reporter vec 5 (format "Sending script `%s'" name) |
| 6290 | ;; The script could contain a call of Perl. This is masked with `%s'. | 6284 | ;; The script could contain a call of Perl. This is masked with `%s'. |
| 6291 | (tramp-send-command-and-check | 6285 | (tramp-send-command-and-check |
| 6292 | vec | 6286 | vec |
| 6293 | (format "%s () {\n%s\n}" name | 6287 | (format "%s () {\n%s\n}" name |
| 6294 | (format script (tramp-get-remote-perl vec)))) | 6288 | (format script (tramp-get-remote-perl vec)))) |
| 6295 | (tramp-set-connection-property p "scripts" (cons name scripts)) | 6289 | (tramp-set-connection-property p "scripts" (cons name scripts)))))) |
| 6296 | (tramp-message vec 5 "Sending script `%s'...done." name)))) | ||
| 6297 | 6290 | ||
| 6298 | (defun tramp-set-auto-save () | 6291 | (defun tramp-set-auto-save () |
| 6299 | (when (and ;; ange-ftp has its own auto-save mechanism | 6292 | (when (and ;; ange-ftp has its own auto-save mechanism |
| @@ -6572,7 +6565,7 @@ file exists and nonzero exit status otherwise." | |||
| 6572 | (setq extra-args (cdr item)))) | 6565 | (setq extra-args (cdr item)))) |
| 6573 | (when extra-args (setq shell (concat shell " " extra-args)))) | 6566 | (when extra-args (setq shell (concat shell " " extra-args)))) |
| 6574 | (tramp-message | 6567 | (tramp-message |
| 6575 | vec 5 "Starting remote shell `%s' for tilde expansion..." shell) | 6568 | vec 5 "Starting remote shell `%s' for tilde expansion" shell) |
| 6576 | (let ((tramp-end-of-output tramp-initial-end-of-output)) | 6569 | (let ((tramp-end-of-output tramp-initial-end-of-output)) |
| 6577 | (tramp-send-command | 6570 | (tramp-send-command |
| 6578 | vec | 6571 | vec |
| @@ -6580,13 +6573,12 @@ file exists and nonzero exit status otherwise." | |||
| 6580 | (shell-quote-argument tramp-end-of-output) shell) | 6573 | (shell-quote-argument tramp-end-of-output) shell) |
| 6581 | t)) | 6574 | t)) |
| 6582 | ;; Setting prompts. | 6575 | ;; Setting prompts. |
| 6583 | (tramp-message vec 5 "Setting remote shell prompt...") | 6576 | (with-progress-reporter vec 5 (format "Setting remote shell prompt") |
| 6584 | (tramp-send-command | 6577 | (tramp-send-command |
| 6585 | vec (format "PS1=%s" (shell-quote-argument tramp-end-of-output)) t) | 6578 | vec (format "PS1=%s" (shell-quote-argument tramp-end-of-output)) t) |
| 6586 | (tramp-send-command vec "PS2=''" t) | 6579 | (tramp-send-command vec "PS2=''" t) |
| 6587 | (tramp-send-command vec "PS3=''" t) | 6580 | (tramp-send-command vec "PS3=''" t) |
| 6588 | (tramp-send-command vec "PROMPT_COMMAND=''" t) | 6581 | (tramp-send-command vec "PROMPT_COMMAND=''" t))) |
| 6589 | (tramp-message vec 5 "Setting remote shell prompt...done")) | ||
| 6590 | 6582 | ||
| 6591 | (t (tramp-message | 6583 | (t (tramp-message |
| 6592 | vec 5 "Remote `%s' groks tilde expansion, good" | 6584 | vec 5 "Remote `%s' groks tilde expansion, good" |
| @@ -7423,11 +7415,11 @@ connection if a previous connection has died for some reason." | |||
| 7423 | (tramp-get-buffer vec) | 7415 | (tramp-get-buffer vec) |
| 7424 | (if (zerop (length (tramp-file-name-user vec))) | 7416 | (if (zerop (length (tramp-file-name-user vec))) |
| 7425 | (tramp-message | 7417 | (tramp-message |
| 7426 | vec 3 "Opening connection for %s using %s..." | 7418 | vec 3 "Opening connection for %s using %s" |
| 7427 | (tramp-file-name-host vec) | 7419 | (tramp-file-name-host vec) |
| 7428 | (tramp-file-name-method vec)) | 7420 | (tramp-file-name-method vec)) |
| 7429 | (tramp-message | 7421 | (tramp-message |
| 7430 | vec 3 "Opening connection for %s@%s using %s..." | 7422 | vec 3 "Opening connection for %s@%s using %s" |
| 7431 | (tramp-file-name-user vec) | 7423 | (tramp-file-name-user vec) |
| 7432 | (tramp-file-name-host vec) | 7424 | (tramp-file-name-host vec) |
| 7433 | (tramp-file-name-method vec))) | 7425 | (tramp-file-name-method vec))) |
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 56fc8032541..10267a6b2dc 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el | |||
| @@ -1501,6 +1501,11 @@ defun." | |||
| 1501 | (interactive "p") | 1501 | (interactive "p") |
| 1502 | (or arg (setq arg 1)) | 1502 | (or arg (setq arg 1)) |
| 1503 | 1503 | ||
| 1504 | (or (not (eq this-command 'c-beginning-of-defun)) | ||
| 1505 | (eq last-command 'c-beginning-of-defun) | ||
| 1506 | (and transient-mark-mode mark-active) | ||
| 1507 | (push-mark)) | ||
| 1508 | |||
| 1504 | (c-save-buffer-state | 1509 | (c-save-buffer-state |
| 1505 | (beginning-of-defun-function end-of-defun-function | 1510 | (beginning-of-defun-function end-of-defun-function |
| 1506 | (start (point)) | 1511 | (start (point)) |
| @@ -1604,6 +1609,11 @@ the open-parenthesis that starts a defun; see `beginning-of-defun'." | |||
| 1604 | (interactive "p") | 1609 | (interactive "p") |
| 1605 | (or arg (setq arg 1)) | 1610 | (or arg (setq arg 1)) |
| 1606 | 1611 | ||
| 1612 | (or (not (eq this-command 'c-end-of-defun)) | ||
| 1613 | (eq last-command 'c-end-of-defun) | ||
| 1614 | (and transient-mark-mode mark-active) | ||
| 1615 | (push-mark)) | ||
| 1616 | |||
| 1607 | (c-save-buffer-state | 1617 | (c-save-buffer-state |
| 1608 | (beginning-of-defun-function end-of-defun-function | 1618 | (beginning-of-defun-function end-of-defun-function |
| 1609 | (start (point)) | 1619 | (start (point)) |
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 610fa14489a..eca6d5fbe7b 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1480,7 +1480,7 @@ frequently editing existing scripts with different styles.") | |||
| 1480 | ;; mode-command and utility functions | 1480 | ;; mode-command and utility functions |
| 1481 | 1481 | ||
| 1482 | ;;;###autoload | 1482 | ;;;###autoload |
| 1483 | (defun sh-mode () | 1483 | (define-derived-mode sh-mode prog-mode "Shell-script" |
| 1484 | "Major mode for editing shell scripts. | 1484 | "Major mode for editing shell scripts. |
| 1485 | This mode works for many shells, since they all have roughly the same syntax, | 1485 | This mode works for many shells, since they all have roughly the same syntax, |
| 1486 | as far as commands, arguments, variables, pipes, comments etc. are concerned. | 1486 | as far as commands, arguments, variables, pipes, comments etc. are concerned. |
| @@ -1533,11 +1533,6 @@ indicate what shell it is use `sh-alias-alist' to translate. | |||
| 1533 | 1533 | ||
| 1534 | If your shell gives error messages with line numbers, you can use \\[executable-interpret] | 1534 | If your shell gives error messages with line numbers, you can use \\[executable-interpret] |
| 1535 | with your script for an edit-interpret-debug cycle." | 1535 | with your script for an edit-interpret-debug cycle." |
| 1536 | (interactive) | ||
| 1537 | (kill-all-local-variables) | ||
| 1538 | (setq major-mode 'sh-mode | ||
| 1539 | mode-name "Shell-script") | ||
| 1540 | (use-local-map sh-mode-map) | ||
| 1541 | (make-local-variable 'skeleton-end-hook) | 1536 | (make-local-variable 'skeleton-end-hook) |
| 1542 | (make-local-variable 'paragraph-start) | 1537 | (make-local-variable 'paragraph-start) |
| 1543 | (make-local-variable 'paragraph-separate) | 1538 | (make-local-variable 'paragraph-separate) |
| @@ -1613,8 +1608,7 @@ with your script for an edit-interpret-debug cycle." | |||
| 1613 | "sh") | 1608 | "sh") |
| 1614 | (t | 1609 | (t |
| 1615 | sh-shell-file)) | 1610 | sh-shell-file)) |
| 1616 | nil nil) | 1611 | nil nil)) |
| 1617 | (run-mode-hooks 'sh-mode-hook)) | ||
| 1618 | 1612 | ||
| 1619 | ;;;###autoload | 1613 | ;;;###autoload |
| 1620 | (defalias 'shell-script-mode 'sh-mode) | 1614 | (defalias 'shell-script-mode 'sh-mode) |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c88b32f64cc..94eb721e4cf 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -2630,11 +2630,22 @@ Keeps argument list for future ispell invocations for no async support." | |||
| 2630 | (or ispell-local-dictionary ispell-dictionary "default")) | 2630 | (or ispell-local-dictionary ispell-dictionary "default")) |
| 2631 | (sit-for 0) | 2631 | (sit-for 0) |
| 2632 | (setq ispell-library-directory (ispell-check-version) | 2632 | (setq ispell-library-directory (ispell-check-version) |
| 2633 | ispell-process-directory default-directory | ||
| 2634 | ispell-process (ispell-start-process) | 2633 | ispell-process (ispell-start-process) |
| 2635 | ispell-filter nil | 2634 | ispell-filter nil |
| 2636 | ispell-filter-continue nil | 2635 | ispell-filter-continue nil) |
| 2637 | ispell-process-buffer-name (buffer-name)) | 2636 | ;; When spellchecking minibuffer contents, make sure ispell process |
| 2637 | ;; is not restarted every time the minibuffer is killed. | ||
| 2638 | (if (window-minibuffer-p) | ||
| 2639 | (if (fboundp 'minibuffer-selected-window) | ||
| 2640 | ;; Assign ispell process to parent buffer | ||
| 2641 | (setq ispell-process-directory default-directory | ||
| 2642 | ispell-process-buffer-name (window-buffer (minibuffer-selected-window))) | ||
| 2643 | ;; Force `ispell-process-directory' to $HOME and use a dummy name | ||
| 2644 | (setq ispell-process-directory (expand-file-name "~/") | ||
| 2645 | ispell-process-buffer-name " * Minibuffer-has-spellcheck-enabled")) | ||
| 2646 | ;; Not in a minibuffer | ||
| 2647 | (setq ispell-process-directory default-directory | ||
| 2648 | ispell-process-buffer-name (buffer-name))) | ||
| 2638 | (if ispell-async-processp | 2649 | (if ispell-async-processp |
| 2639 | (set-process-filter ispell-process 'ispell-filter)) | 2650 | (set-process-filter ispell-process 'ispell-filter)) |
| 2640 | ;; protect against bogus binding of `enable-multibyte-characters' in XEmacs | 2651 | ;; protect against bogus binding of `enable-multibyte-characters' in XEmacs |
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index b9d52acdeba..6cd4121bd10 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el | |||
| @@ -101,6 +101,11 @@ This takes effect when first loading the `sgml-mode' library.") | |||
| 101 | (define-key map "\C-c\^?" 'sgml-delete-tag) | 101 | (define-key map "\C-c\^?" 'sgml-delete-tag) |
| 102 | (define-key map "\C-c?" 'sgml-tag-help) | 102 | (define-key map "\C-c?" 'sgml-tag-help) |
| 103 | (define-key map "\C-c/" 'sgml-close-tag) | 103 | (define-key map "\C-c/" 'sgml-close-tag) |
| 104 | |||
| 105 | ;; Redundant keybindings, for consistency with TeX mode. | ||
| 106 | (define-key map "\C-c\C-o" 'sgml-tag) | ||
| 107 | (define-key map "\C-c\C-e" 'sgml-close-tag) | ||
| 108 | |||
| 104 | (define-key map "\C-c8" 'sgml-name-8bit-mode) | 109 | (define-key map "\C-c8" 'sgml-name-8bit-mode) |
| 105 | (define-key map "\C-c\C-v" 'sgml-validate) | 110 | (define-key map "\C-c\C-v" 'sgml-validate) |
| 106 | (when sgml-quick-keys | 111 | (when sgml-quick-keys |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 5fc92a92d37..da0c5396f2c 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -808,6 +808,11 @@ END is the position of the first delimiter after \verb." | |||
| 808 | (define-key map "\C-c\C-c" 'tex-compile) | 808 | (define-key map "\C-c\C-c" 'tex-compile) |
| 809 | (define-key map "\C-c\C-i" 'tex-bibtex-file) | 809 | (define-key map "\C-c\C-i" 'tex-bibtex-file) |
| 810 | (define-key map "\C-c\C-o" 'latex-insert-block) | 810 | (define-key map "\C-c\C-o" 'latex-insert-block) |
| 811 | |||
| 812 | ;; Redundant keybindings, for consistency with SGML mode. | ||
| 813 | (define-key map "\C-c\C-t" 'latex-insert-block) | ||
| 814 | (define-key map "\C-c/" 'latex-close-block) | ||
| 815 | |||
| 811 | (define-key map "\C-c\C-e" 'latex-close-block) | 816 | (define-key map "\C-c\C-e" 'latex-close-block) |
| 812 | (define-key map "\C-c\C-u" 'tex-goto-last-unclosed-latex-block) | 817 | (define-key map "\C-c\C-u" 'tex-goto-last-unclosed-latex-block) |
| 813 | (define-key map "\C-c\C-m" 'tex-feed-input) | 818 | (define-key map "\C-c\C-m" 'tex-feed-input) |
diff --git a/lwlib/ChangeLog b/lwlib/ChangeLog index 8543b2336c0..dfa61888467 100644 --- a/lwlib/ChangeLog +++ b/lwlib/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2010-05-13 Jan Djärv <jan.h.d@swipnet.se> | ||
| 2 | |||
| 3 | * lwlib-Xaw.c (make_dialog): Remove extra arg to XtVaGetSubresources. | ||
| 4 | |||
| 1 | 2010-05-08 Jan Djärv <jan.h.d@swipnet.se> | 5 | 2010-05-08 Jan Djärv <jan.h.d@swipnet.se> |
| 2 | 6 | ||
| 3 | * xlwmenu.c (XlwMenuDestroy): Remove XtDestroyWidget on subwidgets | 7 | * xlwmenu.c (XlwMenuDestroy): Remove XtDestroyWidget on subwidgets |
diff --git a/lwlib/lwlib-Xaw.c b/lwlib/lwlib-Xaw.c index d31b4602147..eaaf2b46d4e 100644 --- a/lwlib/lwlib-Xaw.c +++ b/lwlib/lwlib-Xaw.c | |||
| @@ -664,7 +664,7 @@ make_dialog (name, parent, pop_up_p, shell_title, icon_name, text_input_slot, | |||
| 664 | (XtPointer)"Sans-14" }}; | 664 | (XtPointer)"Sans-14" }}; |
| 665 | char *faceName; | 665 | char *faceName; |
| 666 | XtVaGetSubresources (dialog, &faceName, "Dialog", "dialog", | 666 | XtVaGetSubresources (dialog, &faceName, "Dialog", "dialog", |
| 667 | rec, 1, 0, NULL); | 667 | rec, 1, (String)NULL); |
| 668 | if (strcmp ("none", faceName) != 0) | 668 | if (strcmp ("none", faceName) != 0) |
| 669 | xft_font = openFont (dialog, faceName); | 669 | xft_font = openFont (dialog, faceName); |
| 670 | if (xft_font) | 670 | if (xft_font) |
diff --git a/msdos/ChangeLog b/msdos/ChangeLog index e4e77c5f101..780ec198d47 100644 --- a/msdos/ChangeLog +++ b/msdos/ChangeLog | |||
| @@ -1,3 +1,33 @@ | |||
| 1 | 2010-05-14 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * sed1v2.inp (MSDOS_OBJ): Edit to dosfns.o msdos.o. | ||
| 4 | (MSDOS_SUPPORT): Edit to $(MSDOS_SUPPORT_REAL). | ||
| 5 | * sed1x.inp (MSDOS_X_OBJ): Edit to w16select.o termcap.o. | ||
| 6 | |||
| 7 | * sed2x.inp (HAVE_WINDOW_SYSTEM): Define. | ||
| 8 | * sed1x.inp (TOOLTIP_SUPPORT): Edit to ${lispsource}tooltip.elc. | ||
| 9 | (WINDOW_SUPPORT): Edit to $(BASE_WINDOW_SUPPORT) $(X_WINDOW_SUPPORT). | ||
| 10 | * sed1v2.inp (MOUSE_SUPPORT): Edit to $(REAL_MOUSE_SUPPORT). | ||
| 11 | (TOOLTIP_SUPPORT, WINDOW_SUPPORT): Edit to empty. | ||
| 12 | |||
| 13 | * sed1v2.inp (FONT_OBJ): Use the plain X version (no XFT, Freetype). | ||
| 14 | |||
| 15 | * sed1v2.inp (@NS_IMPL_GNUSTEP_INC@): Edit to nil. | ||
| 16 | |||
| 17 | 2010-05-13 Glenn Morris <rgm@gnu.org> | ||
| 18 | |||
| 19 | * sed1x.inp (OLDXMENU): Edit to ${oldXMenudir}libXMenu11.a. | ||
| 20 | (LIBXMENU): Edit to ${OLDXMENU}. | ||
| 21 | (LIBX_OTHER): Edit to ${LIBXT} ${LIBX_EXTRA}. | ||
| 22 | |||
| 23 | * sed1v2.inp (C_SWITCH_X_SYSTEM, C_SWITCH_X_SITE, LIB_STANDARD) | ||
| 24 | (FONTCONFIG_CFLAGS, FONTCONFIG_LIBS, FREETYPE_CFLAGS, FREETYPE_LIBS) | ||
| 25 | (LIBOTF_CFLAGS, LIBOTF_LIBS, M17N_FLT_CFLAGS, M17N_FLT_LIBS) | ||
| 26 | (GNU_OBJC_CFLAGS, GNUSTEP_SYSTEM_LIBRARIES, LIBRESOLV, LIBGPM): | ||
| 27 | Edit to empty, | ||
| 28 | (LIB_MATH): Edit to -lm. | ||
| 29 | (UNEXEC_OBJ): Edit to unexec.o. | ||
| 30 | |||
| 1 | 2010-05-12 Glenn Morris <rgm@gnu.org> | 31 | 2010-05-12 Glenn Morris <rgm@gnu.org> |
| 2 | 32 | ||
| 3 | * sed3v2.inp (INSTALLABLES): No more @LIB_SRC_EXTRA_INSTALLABLES@. | 33 | * sed3v2.inp (INSTALLABLES): No more @LIB_SRC_EXTRA_INSTALLABLES@. |
diff --git a/msdos/sed1v2.inp b/msdos/sed1v2.inp index f0e057c6b28..5ebaba06f60 100644 --- a/msdos/sed1v2.inp +++ b/msdos/sed1v2.inp | |||
| @@ -38,13 +38,15 @@ s/\.h\.in/.h-in/ | |||
| 38 | /^CPPFLAGS *=/s/@[^@\n]*@// | 38 | /^CPPFLAGS *=/s/@[^@\n]*@// |
| 39 | /^LDFLAGS *=/s/@[^@\n]*@// | 39 | /^LDFLAGS *=/s/@[^@\n]*@// |
| 40 | /^LIBS *=/s/@[^@\n]*@// | 40 | /^LIBS *=/s/@[^@\n]*@// |
| 41 | s/@LIB_MATH@/-lm/ | ||
| 42 | /^LIBES *=/,/^ *$/ { | 41 | /^LIBES *=/,/^ *$/ { |
| 43 | s/@[^@\n]*@//g | 42 | s/@[^@\n]*@//g |
| 44 | } | 43 | } |
| 45 | /^LIBOBJS *=/s/@[^@\n]*@/getloadavg.o/ | 44 | /^LIBOBJS *=/s/@[^@\n]*@/getloadavg.o/ |
| 46 | /^C_SWITCH_MACHINE *=/s/@C_SWITCH_MACHINE@// | 45 | /^C_SWITCH_MACHINE *=/s/@C_SWITCH_MACHINE@// |
| 47 | /^C_SWITCH_SYSTEM *=/s/@C_SWITCH_SYSTEM@// | 46 | /^C_SWITCH_SYSTEM *=/s/@C_SWITCH_SYSTEM@// |
| 47 | /^C_SWITCH_X_SYSTEM *=/s/@C_SWITCH_X_SYSTEM@// | ||
| 48 | /^C_SWITCH_X_SITE *=/s/@C_SWITCH_X_SITE@// | ||
| 49 | #/^LD_SWITCH_X_SITE *=/s/@LD_SWITCH_X_SITE@// | ||
| 48 | /^LD_SWITCH_SYSTEM_TEMACS *=/s/@LD_SWITCH_SYSTEM_TEMACS@// | 50 | /^LD_SWITCH_SYSTEM_TEMACS *=/s/@LD_SWITCH_SYSTEM_TEMACS@// |
| 49 | /^LD_SWITCH_X_SITE_AUX *=/s/@LD_SWITCH_X_SITE_AUX@// | 51 | /^LD_SWITCH_X_SITE_AUX *=/s/@LD_SWITCH_X_SITE_AUX@// |
| 50 | /^LD_SWITCH_X_SITE_AUX_RPATH *=/s/@LD_SWITCH_X_SITE_AUX_RPATH@// | 52 | /^LD_SWITCH_X_SITE_AUX_RPATH *=/s/@LD_SWITCH_X_SITE_AUX_RPATH@// |
| @@ -52,12 +54,22 @@ s/@LIB_MATH@/-lm/ | |||
| 52 | /^LD_SWITCH_SYSTEM_EXTRA *=/s/@LD_SWITCH_SYSTEM_EXTRA@// | 54 | /^LD_SWITCH_SYSTEM_EXTRA *=/s/@LD_SWITCH_SYSTEM_EXTRA@// |
| 53 | /^LIBS_SYSTEM *=/s/@LIBS_SYSTEM@// | 55 | /^LIBS_SYSTEM *=/s/@LIBS_SYSTEM@// |
| 54 | /^LIB_GCC *=/s/@LIB_GCC@/-Lgcc/ | 56 | /^LIB_GCC *=/s/@LIB_GCC@/-Lgcc/ |
| 57 | /^LIB_STANDARD *=/s/@LIB_STANDARD@// | ||
| 58 | /^LIB_MATH *=/s/@LIB_MATH@/-lm/ | ||
| 55 | /^LIBTIFF *=/s/@LIBTIFF@// | 59 | /^LIBTIFF *=/s/@LIBTIFF@// |
| 56 | /^LIBJPEG *=/s/@LIBJPEG@// | 60 | /^LIBJPEG *=/s/@LIBJPEG@// |
| 57 | /^LIBPNG *=/s/@LIBPNG@// | 61 | /^LIBPNG *=/s/@LIBPNG@// |
| 58 | /^LIBGIF *=/s/@LIBGIF@// | 62 | /^LIBGIF *=/s/@LIBGIF@// |
| 59 | /^LIBXPM *=/s/@LIBXPM@// | 63 | /^LIBXPM *=/s/@LIBXPM@// |
| 60 | /^XFT_LIBS *=/s/@XFT_LIBS@// | 64 | /^XFT_LIBS *=/s/@XFT_LIBS@// |
| 65 | /^FONTCONFIG_CFLAGS *=/s/@FONTCONFIG_CFLAGS@// | ||
| 66 | /^FONTCONFIG_LIBS *=/s/@FONTCONFIG_LIBS@// | ||
| 67 | /^FREETYPE_CFLAGS *=/s/@FREETYPE_CFLAGS@// | ||
| 68 | /^FREETYPE_LIBS *=/s/@FREETYPE_LIBS@// | ||
| 69 | /^LIBOTF_CFLAGS *=/s/@LIBOTF_CFLAGS@// | ||
| 70 | /^LIBOTF_LIBS *=/s/@LIBOTF_LIBS@// | ||
| 71 | /^M17N_FLT_CFLAGS *=/s/@M17N_FLT_CFLAGS@// | ||
| 72 | /^M17N_FLT_LIBS *=/s/@M17N_FLT_LIBS@// | ||
| 61 | /^DBUS_CFLAGS *=/s/@DBUS_CFLAGS@// | 73 | /^DBUS_CFLAGS *=/s/@DBUS_CFLAGS@// |
| 62 | /^DBUS_LIBS *=/s/@DBUS_LIBS@// | 74 | /^DBUS_LIBS *=/s/@DBUS_LIBS@// |
| 63 | /^DBUS_OBJ *=/s/@DBUS_OBJ@// | 75 | /^DBUS_OBJ *=/s/@DBUS_OBJ@// |
| @@ -77,22 +89,32 @@ s/@LIB_MATH@/-lm/ | |||
| 77 | /^RSVG_CFLAGS *=/s/@RSVG_CFLAGS@// | 89 | /^RSVG_CFLAGS *=/s/@RSVG_CFLAGS@// |
| 78 | /^WIDGET_OBJ *=/s/@WIDGET_OBJ@// | 90 | /^WIDGET_OBJ *=/s/@WIDGET_OBJ@// |
| 79 | /^CYGWIN_OBJ *=/s/@CYGWIN_OBJ@// | 91 | /^CYGWIN_OBJ *=/s/@CYGWIN_OBJ@// |
| 92 | /^MSDOS_OBJ *=/s/= */= dosfns.o msdos.o/ | ||
| 93 | /^MSDOS_SUPPORT *=/s/= */= $(MSDOS_SUPPORT_REAL)/ | ||
| 80 | /^NS_OBJ *=/s/@NS_OBJ@// | 94 | /^NS_OBJ *=/s/@NS_OBJ@// |
| 81 | /^NS_SUPPORT *=/s/@NS_SUPPORT@// | 95 | /^NS_SUPPORT *=/s/@NS_SUPPORT@// |
| 96 | /^GNU_OBJC_CFLAGS*=/s/@GNU_OBJC_CFLAGS@// | ||
| 97 | /^GNUSTEP_SYSTEM_LIBRARIES *=/s/@GNUSTEP_SYSTEM_LIBRARIES@// | ||
| 98 | /^LIBRESOLV *=/s/@LIBRESOLV@// | ||
| 82 | /^LIBSELINUX_LIBS *=/s/@LIBSELINUX_LIBS@// | 99 | /^LIBSELINUX_LIBS *=/s/@LIBSELINUX_LIBS@// |
| 83 | /^GETLOADAVG_LIBS *=/s/@[^@\n]*@// | 100 | /^GETLOADAVG_LIBS *=/s/@[^@\n]*@// |
| 84 | /^START_FILES *=/s/@START_FILES@// | 101 | /^START_FILES *=/s/@START_FILES@// |
| 85 | /^OTHER_FILES *=/s/@OTHER_FILES@// | 102 | /^OTHER_FILES *=/s/@OTHER_FILES@// |
| 86 | /^XMENU_OBJ *=/s/@XMENU_OBJ@/xmenu.o/ | 103 | /^XMENU_OBJ *=/s/@XMENU_OBJ@/xmenu.o/ |
| 87 | /^FONT_OBJ *=/s/@FONT_OBJ@/xfont.o ftfont.o xftfont.o ftxfont.o/ | 104 | /^FONT_OBJ *=/s/@FONT_OBJ@/xfont.o/ |
| 105 | /^MOUSE_SUPPORT *=/s/@MOUSE_SUPPORT@/$(REAL_MOUSE_SUPPORT)/ | ||
| 106 | /^TOOLTIP_SUPPORT *=/s/@TOOLTIP_SUPPORT@// | ||
| 107 | /^WINDOW_SUPPORT *=/s/@WINDOW_SUPPORT@// | ||
| 108 | /^LIBGPM *=/s/@LIBGPM@// | ||
| 88 | /^EXEEXT *=/s/@EXEEXT@/.exe/ | 109 | /^EXEEXT *=/s/@EXEEXT@/.exe/ |
| 89 | /^PRE_ALLOC_OBJ *=/s/@PRE_ALLOC_OBJ@/lastfile.o/ | 110 | /^PRE_ALLOC_OBJ *=/s/@PRE_ALLOC_OBJ@/lastfile.o/ |
| 90 | /^POST_ALLOC_OBJ *=/s/@POST_ALLOC_OBJ@/$(vmlimitobj)/ | 111 | /^POST_ALLOC_OBJ *=/s/@POST_ALLOC_OBJ@/$(vmlimitobj)/ |
| 91 | s/@unexec@/unexec.o/g | 112 | /^UNEXEC_OBJ *=/s/@unexec@/unexec.o/ |
| 92 | /^version *=/s/@[^@\n]*@// | 113 | /^version *=/s/@[^@\n]*@// |
| 93 | /^M_FILE *=/s!@[^@\n]*@!m/intel386.h! | 114 | /^M_FILE *=/s!@[^@\n]*@!m/intel386.h! |
| 94 | /^S_FILE *=/s!@[^@\n]*@!s/msdos.h! | 115 | /^S_FILE *=/s!@[^@\n]*@!s/msdos.h! |
| 95 | /^@SET_MAKE@$/s/@SET_MAKE@// | 116 | /^@SET_MAKE@$/s/@SET_MAKE@// |
| 117 | /^@NS_IMPL_GNUSTEP_INC@/s/@NS_IMPL_GNUSTEP_INC@// | ||
| 96 | /^.\${libsrc}make-docfile.*>/s!make-docfile!make-docfile -o ../etc/DOC! | 118 | /^.\${libsrc}make-docfile.*>/s!make-docfile!make-docfile -o ../etc/DOC! |
| 97 | /^.\${libsrc}make-doc/s!>.*$!! | 119 | /^.\${libsrc}make-doc/s!>.*$!! |
| 98 | /^[ ]*$/d | 120 | /^[ ]*$/d |
diff --git a/msdos/sed1x.inp b/msdos/sed1x.inp index 8be94aafa03..bcdb0fec0ed 100644 --- a/msdos/sed1x.inp +++ b/msdos/sed1x.inp | |||
| @@ -4,8 +4,13 @@ | |||
| 4 | s!^ cd \${oldXMenudir}; \${MAKE}.*$! ${MAKE} -C ${oldXMenudir}.! | 4 | s!^ cd \${oldXMenudir}; \${MAKE}.*$! ${MAKE} -C ${oldXMenudir}.! |
| 5 | s!^ @true *$! @rem! | 5 | s!^ @true *$! @rem! |
| 6 | s/DOC/DOC-X/g | 6 | s/DOC/DOC-X/g |
| 7 | #/^LIBXMENU *=/s!= *!= ../oldxmenu/! | 7 | /^OLDXMENU *=/s!@OLDXMENU@!${oldXMenudir}libXMenu11.a! |
| 8 | /^LIBXMENU *=/s!@LIBXMENU@!${OLDXMENU}! | ||
| 9 | /^LIBX_OTHER *=/s!@LIBX_OTHER@!${LIBXT} ${LIBX_EXTRA}! | ||
| 8 | /^LIBS_SYSTEM *=/s!= *!= -lxext -lsys! | 10 | /^LIBS_SYSTEM *=/s!= *!= -lxext -lsys! |
| 11 | /^MSDOS_X_OBJ *=/s!= *!= w16select.o termcap.o! | ||
| 12 | /^TOOLTIP_SUPPORT *=/s!= *!= ${lispsource}tooltip.elc! | ||
| 13 | /^WINDOW_SUPPORT *=/s!= *!= $(BASE_WINDOW_SUPPORT) $(X_WINDOW_SUPPORT)! | ||
| 9 | /^temacs *:/s!OLDXMENU!LIBXMENU! | 14 | /^temacs *:/s!OLDXMENU!LIBXMENU! |
| 10 | 15 | ||
| 11 | # arch-tag: 3e8a78f2-3dec-44f3-81f6-3785a562da19 | 16 | # arch-tag: 3e8a78f2-3dec-44f3-81f6-3785a562da19 |
diff --git a/msdos/sed2x.inp b/msdos/sed2x.inp index 64d138e1b09..d17dd85ace6 100644 --- a/msdos/sed2x.inp +++ b/msdos/sed2x.inp | |||
| @@ -2,8 +2,8 @@ | |||
| 2 | # Extra configuration script for src/config.h for DesqView/X | 2 | # Extra configuration script for src/config.h for DesqView/X |
| 3 | # ---------------------------------------------------------------------- | 3 | # ---------------------------------------------------------------------- |
| 4 | # | 4 | # |
| 5 | # Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, | 5 | # Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, |
| 6 | # 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 6 | # 2009, 2010 Free Software Foundation, Inc. |
| 7 | # | 7 | # |
| 8 | # This file is part of GNU Emacs. | 8 | # This file is part of GNU Emacs. |
| 9 | # | 9 | # |
| @@ -17,6 +17,7 @@ | |||
| 17 | # | 17 | # |
| 18 | # ---------------------------------------------------------------------- | 18 | # ---------------------------------------------------------------------- |
| 19 | /^#undef HAVE_X_WINDOWS *$/s/undef/define/ | 19 | /^#undef HAVE_X_WINDOWS *$/s/undef/define/ |
| 20 | /^#undef HAVE_WINDOW_SYSTEM *$/s/undef/define/ | ||
| 20 | /^#undef HAVE_X11 *$/s/undef/define/ | 21 | /^#undef HAVE_X11 *$/s/undef/define/ |
| 21 | /^#undef HAVE_X_MENU *$/s/undef/define/ | 22 | /^#undef HAVE_X_MENU *$/s/undef/define/ |
| 22 | /^#undef HAVE_XSCREENNUMBEROFSCREEN *$/s/undef/define/ | 23 | /^#undef HAVE_XSCREENNUMBEROFSCREEN *$/s/undef/define/ |
diff --git a/nt/ChangeLog b/nt/ChangeLog index 3be9a7f61d4..6db0eb744c9 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2010-05-13 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * config.nt (LD_SWITCH_X_SITE, C_SWITCH_X_SITE): Remove undefs. | ||
| 4 | |||
| 1 | 2010-05-07 Chong Yidong <cyd@stupidchicken.com> | 5 | 2010-05-07 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 6 | ||
| 3 | * Version 23.2 released. | 7 | * Version 23.2 released. |
diff --git a/nt/config.nt b/nt/config.nt index 9e223573ea3..7ec98fb7666 100644 --- a/nt/config.nt +++ b/nt/config.nt | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | /* GNU Emacs site configuration template file. -*- C -*- | 1 | /* GNU Emacs site configuration template file. -*- C -*- |
| 2 | Copyright (C) 1988, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, | 2 | |
| 3 | 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 3 | Copyright (C) 1988, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, |
| 4 | 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | This file is part of GNU Emacs. | 6 | This file is part of GNU Emacs. |
| 6 | 7 | ||
| @@ -318,20 +319,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 318 | 319 | ||
| 319 | #define subprocesses | 320 | #define subprocesses |
| 320 | 321 | ||
| 321 | /* Define LD_SWITCH_X_SITE to contain any special flags your loader | ||
| 322 | may need to deal with X Windows. For instance, if you've defined | ||
| 323 | HAVE_X_WINDOWS above and your X libraries aren't in a place that | ||
| 324 | your loader can find on its own, you might want to add "-L/..." or | ||
| 325 | something similar. */ | ||
| 326 | #undef LD_SWITCH_X_SITE | ||
| 327 | |||
| 328 | /* Define C_SWITCH_X_SITE to contain any special flags your compiler | ||
| 329 | may need to deal with X Windows. For instance, if you've defined | ||
| 330 | HAVE_X_WINDOWS above and your X include files aren't in a place | ||
| 331 | that your compiler can find on its own, you might want to add | ||
| 332 | "-I/..." or something similar. */ | ||
| 333 | #undef C_SWITCH_X_SITE | ||
| 334 | |||
| 335 | /* Define STACK_DIRECTION here, but not if m/foo.h did. */ | 322 | /* Define STACK_DIRECTION here, but not if m/foo.h did. */ |
| 336 | #ifndef STACK_DIRECTION | 323 | #ifndef STACK_DIRECTION |
| 337 | #undef STACK_DIRECTION | 324 | #undef STACK_DIRECTION |
diff --git a/src/ChangeLog b/src/ChangeLog index f759d0cebcd..7ffb5800753 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -3,6 +3,54 @@ | |||
| 3 | * font.c (font_range): Return the range for the font found at | 3 | * font.c (font_range): Return the range for the font found at |
| 4 | first. | 4 | first. |
| 5 | 5 | ||
| 6 | 2010-05-14 Glenn Morris <rgm@gnu.org> | ||
| 7 | |||
| 8 | * Makefile.in (mktime, X11, register): Move undefs to configure. | ||
| 9 | |||
| 10 | * Makefile.in (MSDOS_OBJ): Default to empty, let msdos scripts set it. | ||
| 11 | (MSDOS_X_OBJ): New variable. | ||
| 12 | (MSDOS_SUPPORT_REAL): New constant. | ||
| 13 | (MSDOS_SUPPORT): Set as a variable, not with cpp. | ||
| 14 | (obj): Use MSDOS_X_OBJ. | ||
| 15 | (lisp): Use MSDOS_SUPPORT as a variable. | ||
| 16 | |||
| 17 | * Makefile.in (REAL_MOUSE_SUPPORT): New constant. | ||
| 18 | (GPM_MOUSE_SUPPORT): Now it's a constant. | ||
| 19 | (MOUSE_SUPPORT, TOOLTIP_SUPPORT, WINDOW_SUPPORT): Set with configure, | ||
| 20 | not cpp. | ||
| 21 | |||
| 22 | * Makefile.in (@NS_IMPL_GNUSTEP_INC@): Use in place of #ifdef. | ||
| 23 | (ns_appresdir): Remove, unused. | ||
| 24 | |||
| 25 | * Makefile.in (SHELL): Move outside cpp section. | ||
| 26 | |||
| 27 | * s/netbsd.h (AMPERSAND_FULL_NAME): Remove (defined in AH_BOTTOM). | ||
| 28 | |||
| 29 | 2010-05-13 Glenn Morris <rgm@gnu.org> | ||
| 30 | |||
| 31 | * Makefile.in (FONT_DRIVERS): Place with other HAVE_X_WINDOWS stuff. | ||
| 32 | (TOOLTIP_SUPPORT): Place with other HAVE_WINDOW_SYSTEM stuff. | ||
| 33 | |||
| 34 | * Makefile.in (FONT_DRIVERS): If HAVE_X_WINDOWS is defined, | ||
| 35 | HAVE_WINDOW_SYSTEM must be too. | ||
| 36 | |||
| 37 | * Makefile.in (WINNT_SUPPORT): Remove, nt build does not use this file. | ||
| 38 | (lisp): Remove WINNT_SUPPORT. | ||
| 39 | |||
| 40 | * Makefile.in (OLDXMENU, LIBXMENU) [!HAVE_MENUS]: | ||
| 41 | Let configure set these variables (to empty) in this case as well. | ||
| 42 | |||
| 43 | * Makefile.in (LD_SWITCH_X_SITE): Define as a variable, not via cpp. | ||
| 44 | (LIBX_BASE): Use $LD_SWITCH_X_SITE. | ||
| 45 | |||
| 46 | * Makefile.in (C_SWITCH_X_SYSTEM, C_SWITCH_X_SITE, LIB_STANDARD) | ||
| 47 | (LIB_MATH, FONTCONFIG_CFLAGS, FONTCONFIG_LIBS, FREETYPE_CFLAGS) | ||
| 48 | (FREETYPE_LIBS, LIBOTF_CFLAGS, LIBOTF_LIBS, M17N_FLT_CFLAGS) | ||
| 49 | (M17N_FLT_LIBS, GNU_OBJC_CFLAGS, GNUSTEP_SYSTEM_LIBRARIES, LIBGPM) | ||
| 50 | (LIBRESOLV, UNEXEC_OBJ): For clarity, define variables to hold | ||
| 51 | the values output by configure. | ||
| 52 | (ALL_CFLAGS, obj, LIBES, temacs${EXEEXT}): Use the above variables. | ||
| 53 | |||
| 6 | 2010-05-12 Glenn Morris <rgm@gnu.org> | 54 | 2010-05-12 Glenn Morris <rgm@gnu.org> |
| 7 | 55 | ||
| 8 | * Makefile.in (YMF_PASS_LDFLAGS, LD, LINKER): Simplify the logic. | 56 | * Makefile.in (YMF_PASS_LDFLAGS, LD, LINKER): Simplify the logic. |
diff --git a/src/Makefile.in b/src/Makefile.in index 46d4e0c2878..3a0339a3f70 100644 --- a/src/Makefile.in +++ b/src/Makefile.in | |||
| @@ -30,6 +30,7 @@ | |||
| 30 | # Some of the conditionals might be dead now. Finding them and | 30 | # Some of the conditionals might be dead now. Finding them and |
| 31 | # deleting them would be fine. | 31 | # deleting them would be fine. |
| 32 | 32 | ||
| 33 | SHELL = /bin/sh | ||
| 33 | 34 | ||
| 34 | # Here are the things that we expect ../configure to edit. | 35 | # Here are the things that we expect ../configure to edit. |
| 35 | # We use $(srcdir) explicitly in dependencies so as not to depend on VPATH. | 36 | # We use $(srcdir) explicitly in dependencies so as not to depend on VPATH. |
| @@ -72,19 +73,44 @@ CRT_DIR=@CRT_DIR@ | |||
| 72 | C_SWITCH_MACHINE=@C_SWITCH_MACHINE@ | 73 | C_SWITCH_MACHINE=@C_SWITCH_MACHINE@ |
| 73 | ## System-specific CFLAGS. | 74 | ## System-specific CFLAGS. |
| 74 | C_SWITCH_SYSTEM=@C_SWITCH_SYSTEM@ | 75 | C_SWITCH_SYSTEM=@C_SWITCH_SYSTEM@ |
| 76 | |||
| 77 | ## Currently only set if NS_IMPL_GNUSTEP. | ||
| 78 | ## C_SWITCH_X_SITE may override this. | ||
| 79 | C_SWITCH_X_SYSTEM=@C_SWITCH_X_SYSTEM@ | ||
| 80 | |||
| 81 | ## Define C_SWITCH_X_SITE to contain any special flags your compiler | ||
| 82 | ## may need to deal with X Windows. For instance, if you've defined | ||
| 83 | ## HAVE_X_WINDOWS and your X include files aren't in a place that your | ||
| 84 | ## compiler can find on its own, you might want to add "-I/..." or | ||
| 85 | ## something similar. This is normally set by configure. | ||
| 86 | ## This is used before C_SWITCH_X_SYSTEM and may override it. | ||
| 87 | C_SWITCH_X_SITE=@C_SWITCH_X_SITE@ | ||
| 88 | |||
| 89 | ## Define LD_SWITCH_X_SITE to contain any special flags your loader | ||
| 90 | ## may need to deal with X Windows. For instance, if your X libraries | ||
| 91 | ## aren't in a place that your loader can find on its own, you might | ||
| 92 | ## want to add "-L/..." or something similar. Only used if | ||
| 93 | ## HAVE_X_WINDOWS. | ||
| 94 | ## FIXME? configure sets a value for this, but it has never been | ||
| 95 | ## substituted in this or any other Makefile. Cf C_SWITCH_X_SITE. | ||
| 96 | LD_SWITCH_X_SITE= | ||
| 97 | |||
| 75 | ## This holds any special options for linking temacs only (ie, not | 98 | ## This holds any special options for linking temacs only (ie, not |
| 76 | ## used by configure). Not used elsewhere because it sometimes | 99 | ## used by configure). Not used elsewhere because it sometimes |
| 77 | ## contains options that have to do with using Emacs's crt0, | 100 | ## contains options that have to do with using Emacs's crt0, |
| 78 | ## which are only good with temacs. | 101 | ## which are only good with temacs. |
| 79 | LD_SWITCH_SYSTEM_TEMACS=@LD_SWITCH_SYSTEM_TEMACS@ | 102 | LD_SWITCH_SYSTEM_TEMACS=@LD_SWITCH_SYSTEM_TEMACS@ |
| 103 | |||
| 80 | ## Next two must come before LD_SWITCH_SYSTEM. | 104 | ## Next two must come before LD_SWITCH_SYSTEM. |
| 81 | ## If needed, a -R option that says where to find X windows at run time. | 105 | ## If needed, a -R option that says where to find X windows at run time. |
| 82 | LD_SWITCH_X_SITE_AUX=@LD_SWITCH_X_SITE_AUX@ | 106 | LD_SWITCH_X_SITE_AUX=@LD_SWITCH_X_SITE_AUX@ |
| 83 | ## As above, but using -rpath instead. | 107 | ## As above, but using -rpath instead. |
| 84 | LD_SWITCH_X_SITE_AUX_RPATH=@LD_SWITCH_X_SITE_AUX_RPATH@ | 108 | LD_SWITCH_X_SITE_AUX_RPATH=@LD_SWITCH_X_SITE_AUX_RPATH@ |
| 109 | |||
| 85 | ## System-specific LDFLAGS. | 110 | ## System-specific LDFLAGS. |
| 86 | LD_SWITCH_SYSTEM=@LD_SWITCH_SYSTEM@ | 111 | LD_SWITCH_SYSTEM=@LD_SWITCH_SYSTEM@ |
| 87 | LD_SWITCH_SYSTEM_EXTRA=@LD_SWITCH_SYSTEM_EXTRA@ | 112 | LD_SWITCH_SYSTEM_EXTRA=@LD_SWITCH_SYSTEM_EXTRA@ |
| 113 | |||
| 88 | ## Flags to pass to ld only for temacs. | 114 | ## Flags to pass to ld only for temacs. |
| 89 | TEMACS_LDFLAGS = $(LD_SWITCH_SYSTEM) $(LD_SWITCH_SYSTEM_EXTRA) $(LD_SWITCH_SYSTEM_TEMACS) | 115 | TEMACS_LDFLAGS = $(LD_SWITCH_SYSTEM) $(LD_SWITCH_SYSTEM_EXTRA) $(LD_SWITCH_SYSTEM_TEMACS) |
| 90 | 116 | ||
| @@ -94,6 +120,12 @@ LIBS_SYSTEM=@LIBS_SYSTEM@ | |||
| 94 | ## Where to find libgcc.a, if using gcc and necessary. | 120 | ## Where to find libgcc.a, if using gcc and necessary. |
| 95 | LIB_GCC=@LIB_GCC@ | 121 | LIB_GCC=@LIB_GCC@ |
| 96 | 122 | ||
| 123 | ## May use $CRT_DIR. | ||
| 124 | LIB_STANDARD=@LIB_STANDARD@ | ||
| 125 | |||
| 126 | ## -lm, or empty. | ||
| 127 | LIB_MATH=@LIB_MATH@ | ||
| 128 | |||
| 97 | LIBTIFF=@LIBTIFF@ | 129 | LIBTIFF=@LIBTIFF@ |
| 98 | LIBJPEG=@LIBJPEG@ | 130 | LIBJPEG=@LIBJPEG@ |
| 99 | LIBPNG=@LIBPNG@ | 131 | LIBPNG=@LIBPNG@ |
| @@ -102,6 +134,15 @@ LIBXPM=@LIBXPM@ | |||
| 102 | XFT_LIBS=@XFT_LIBS@ | 134 | XFT_LIBS=@XFT_LIBS@ |
| 103 | LIBX_EXTRA=$(LIBTIFF) $(LIBJPEG) $(LIBPNG) $(LIBGIF) $(LIBXPM) -lX11 $(XFT_LIBS) | 135 | LIBX_EXTRA=$(LIBTIFF) $(LIBJPEG) $(LIBPNG) $(LIBGIF) $(LIBXPM) -lX11 $(XFT_LIBS) |
| 104 | 136 | ||
| 137 | FONTCONFIG_CFLAGS = @FONTCONFIG_CFLAGS@ | ||
| 138 | FONTCONFIG_LIBS = @FONTCONFIG_LIBS@ | ||
| 139 | FREETYPE_CFLAGS = @FREETYPE_CFLAGS@ | ||
| 140 | FREETYPE_LIBS = @FREETYPE_LIBS@ | ||
| 141 | LIBOTF_CFLAGS = @LIBOTF_CFLAGS@ | ||
| 142 | LIBOTF_LIBS = @LIBOTF_LIBS@ | ||
| 143 | M17N_FLT_CFLAGS = @M17N_FLT_CFLAGS@ | ||
| 144 | M17N_FLT_LIBS = @M17N_FLT_LIBS@ | ||
| 145 | |||
| 105 | DBUS_CFLAGS = @DBUS_CFLAGS@ | 146 | DBUS_CFLAGS = @DBUS_CFLAGS@ |
| 106 | DBUS_LIBS = @DBUS_LIBS@ | 147 | DBUS_LIBS = @DBUS_LIBS@ |
| 107 | DBUS_OBJ = @DBUS_OBJ@ | 148 | DBUS_OBJ = @DBUS_OBJ@ |
| @@ -143,15 +184,36 @@ WIDGET_OBJ=@WIDGET_OBJ@ | |||
| 143 | ## sheap.o if CYGWIN, otherwise empty. | 184 | ## sheap.o if CYGWIN, otherwise empty. |
| 144 | CYGWIN_OBJ=@CYGWIN_OBJ@ | 185 | CYGWIN_OBJ=@CYGWIN_OBJ@ |
| 145 | 186 | ||
| 187 | ## dosfns.o msdos.o if MSDOS. | ||
| 188 | MSDOS_OBJ = | ||
| 189 | ## w16select.o termcap.o if MSDOS && HAVE_X_WINDOWS. | ||
| 190 | MSDOS_X_OBJ = | ||
| 191 | MSDOS_SUPPORT_REAL = ${lispsource}ls-lisp.elc ${lispsource}disp-table.elc \ | ||
| 192 | ${lispsource}dos-fns.elc ${lispsource}dos-w32.elc ${lispsource}dos-vars.elc \ | ||
| 193 | ${lispsource}term/internal.elc ${lispsource}term/pc-win.elc | ||
| 194 | ## $MSDOS_SUPPORT_REAL if MSDOS. | ||
| 195 | MSDOS_SUPPORT = | ||
| 196 | |||
| 146 | NS_OBJ=@NS_OBJ@ | 197 | NS_OBJ=@NS_OBJ@ |
| 147 | NS_SUPPORT=@NS_SUPPORT@ | 198 | NS_SUPPORT=@NS_SUPPORT@ |
| 199 | ## Next two only set if NS_IMPL_GNUSTEP. | ||
| 200 | GNU_OBJC_CFLAGS=@GNU_OBJC_CFLAGS@ | ||
| 201 | GNUSTEP_SYSTEM_LIBRARIES=@GNUSTEP_SYSTEM_LIBRARIES@ | ||
| 148 | 202 | ||
| 149 | ## Only used if HAVE_X_WINDOWS and HAVE_WINDOW_SYSTEM. | 203 | ## Only used if HAVE_X_WINDOWS. |
| 150 | FONT_OBJ=@FONT_OBJ@ | 204 | FONT_OBJ=@FONT_OBJ@ |
| 151 | 205 | ||
| 152 | ## ${lispsource}mouse.elc if HAVE_GPM, otherwise empty. | 206 | ## Used if HAVE_MOUSE. |
| 153 | ## Not used if HAVE_MOUSE. | 207 | REAL_MOUSE_SUPPORT=${lispsource}mouse.elc ${lispsource}select.elc \ |
| 154 | GPM_MOUSE_SUPPORT=@GPM_MOUSE_SUPPORT@ | 208 | ${lispsource}scroll-bar.elc |
| 209 | ## Used if HAVE_GPM && !HAVE_MOUSE | ||
| 210 | GPM_MOUSE_SUPPORT=${lispsource}mouse.elc | ||
| 211 | LIBGPM = @LIBGPM@ | ||
| 212 | ## Either of the two preceding options, or empty. | ||
| 213 | MOUSE_SUPPORT=@MOUSE_SUPPORT@ | ||
| 214 | |||
| 215 | ## ${lispsource}tooltip.elc if HAVE_WINDOW_SYSTEM, else empty. | ||
| 216 | TOOLTIP_SUPPORT=@TOOLTIP_SUPPORT@ | ||
| 155 | 217 | ||
| 156 | BASE_WINDOW_SUPPORT=${lispsource}fringe.elc ${lispsource}image.elc \ | 218 | BASE_WINDOW_SUPPORT=${lispsource}fringe.elc ${lispsource}image.elc \ |
| 157 | ${lispsource}international/fontset.elc ${lispsource}dnd.elc \ | 219 | ${lispsource}international/fontset.elc ${lispsource}dnd.elc \ |
| @@ -160,6 +222,13 @@ BASE_WINDOW_SUPPORT=${lispsource}fringe.elc ${lispsource}image.elc \ | |||
| 160 | X_WINDOW_SUPPORT=${lispsource}x-dnd.elc ${lispsource}term/common-win.elc \ | 222 | X_WINDOW_SUPPORT=${lispsource}x-dnd.elc ${lispsource}term/common-win.elc \ |
| 161 | ${lispsource}term/x-win.elc ${lispsource}dynamic-setting.elc | 223 | ${lispsource}term/x-win.elc ${lispsource}dynamic-setting.elc |
| 162 | 224 | ||
| 225 | ## If HAVE_X_WINDOWS, both the above | ||
| 226 | ## else if HAVE_WINDOW_SYSTEM (ie, HAVE_NS) just the former; else empty. | ||
| 227 | WINDOW_SUPPORT=@WINDOW_SUPPORT@ | ||
| 228 | |||
| 229 | ## -lresolv, or empty. | ||
| 230 | LIBRESOLV = @LIBRESOLV@ | ||
| 231 | |||
| 163 | LIBSELINUX_LIBS = @LIBSELINUX_LIBS@ | 232 | LIBSELINUX_LIBS = @LIBSELINUX_LIBS@ |
| 164 | 233 | ||
| 165 | INTERVALS_H = dispextern.h intervals.h composite.h | 234 | INTERVALS_H = dispextern.h intervals.h composite.h |
| @@ -170,12 +239,11 @@ RUN_TEMACS = `/bin/pwd`/temacs | |||
| 170 | 239 | ||
| 171 | START_FILES = @START_FILES@ | 240 | START_FILES = @START_FILES@ |
| 172 | 241 | ||
| 242 | UNEXEC_OBJ = @unexec@ | ||
| 243 | |||
| 173 | # ========================== start of cpp stuff ======================= | 244 | # ========================== start of cpp stuff ======================= |
| 174 | /* From here on, comments must be done in C syntax. */ | 245 | /* From here on, comments must be done in C syntax. */ |
| 175 | 246 | ||
| 176 | /* just to be sure the sh is used */ | ||
| 177 | SHELL=/bin/sh | ||
| 178 | |||
| 179 | #define NOT_C_CODE | 247 | #define NOT_C_CODE |
| 180 | #include "config.h" | 248 | #include "config.h" |
| 181 | 249 | ||
| @@ -183,42 +251,13 @@ SHELL=/bin/sh | |||
| 183 | DEPFLAGS = -MMD -MF deps/$*.d | 251 | DEPFLAGS = -MMD -MF deps/$*.d |
| 184 | #endif | 252 | #endif |
| 185 | 253 | ||
| 186 | /* Do not let the file name mktime.c get messed up. */ | 254 | /* If NS_IMPL_GNUSTEP, some definitions and includes are expanded here. */ |
| 187 | #ifdef mktime | 255 | @NS_IMPL_GNUSTEP_INC@ |
| 188 | #undef mktime | ||
| 189 | #endif | ||
| 190 | |||
| 191 | /* Use HAVE_X11 as an alias for X11 in this file | ||
| 192 | to avoid problems with X11 as a subdirectory name | ||
| 193 | in -I and other such options which pass through this file. */ | ||
| 194 | |||
| 195 | #ifdef X11 | ||
| 196 | #define HAVE_X11 | ||
| 197 | #undef X11 | ||
| 198 | #endif | ||
| 199 | |||
| 200 | /* On some machines #define register is done in config; | ||
| 201 | do not let it interfere with this file. */ | ||
| 202 | #undef register | ||
| 203 | |||
| 204 | /* This macro is for switches specifically related to X Windows. */ | ||
| 205 | #ifndef LD_SWITCH_X_SITE | ||
| 206 | #define LD_SWITCH_X_SITE | ||
| 207 | #endif | ||
| 208 | |||
| 209 | #ifdef NS_IMPL_GNUSTEP | ||
| 210 | /* Pull in stuff from GNUstep-make. */ | ||
| 211 | FOUNDATION_LIB=gnu | ||
| 212 | GUI_LIB=gnu | ||
| 213 | include @GNUSTEP_MAKEFILES@/Additional/base.make | ||
| 214 | include @GNUSTEP_MAKEFILES@/Additional/gui.make | ||
| 215 | shared=no | ||
| 216 | #endif | ||
| 217 | 256 | ||
| 218 | /* DO NOT use -R. There is a special hack described in lastfile.c | 257 | /* DO NOT use -R. There is a special hack described in lastfile.c |
| 219 | which is used instead. Some initialized data areas are modified | 258 | which is used instead. Some initialized data areas are modified |
| 220 | at initial startup, then labeled as part of the text area when | 259 | at initial startup, then labeled as part of the text area when |
| 221 | Emacs is dumped for the first time, and never changed again. */ | 260 | Emacs is dumped for the first time, and never changed again. */ |
| 222 | 261 | ||
| 223 | /* -Demacs is needed to make some files produce the correct version | 262 | /* -Demacs is needed to make some files produce the correct version |
| 224 | for use in Emacs. | 263 | for use in Emacs. |
| @@ -227,10 +266,10 @@ shared=no | |||
| 227 | the information in ``config.h''. */ | 266 | the information in ``config.h''. */ |
| 228 | 267 | ||
| 229 | /* C_SWITCH_X_SITE must come before C_SWITCH_X_SYSTEM | 268 | /* C_SWITCH_X_SITE must come before C_SWITCH_X_SYSTEM |
| 230 | since it may have -I options that should override those two. */ | 269 | since it may have -I options that should override those. */ |
| 231 | /* MYCPPFLAGS only referenced in etc/DEBUG. */ | 270 | /* MYCPPFLAGS only referenced in etc/DEBUG. */ |
| 232 | ALL_CFLAGS=-Demacs -DHAVE_CONFIG_H $(MYCPPFLAGS) -I. -I${srcdir} ${C_SWITCH_MACHINE} ${C_SWITCH_SYSTEM} @C_SWITCH_X_SITE@ @C_SWITCH_X_SYSTEM@ ${CFLAGS_SOUND} ${RSVG_CFLAGS} ${DBUS_CFLAGS} ${GCONF_CFLAGS} ${CFLAGS} @FREETYPE_CFLAGS@ @FONTCONFIG_CFLAGS@ @LIBOTF_CFLAGS@ @M17N_FLT_CFLAGS@ ${DEPFLAGS} | 271 | ALL_CFLAGS=-Demacs -DHAVE_CONFIG_H $(MYCPPFLAGS) -I. -I${srcdir} ${C_SWITCH_MACHINE} ${C_SWITCH_SYSTEM} ${C_SWITCH_X_SITE} ${C_SWITCH_X_SYSTEM} ${CFLAGS_SOUND} ${RSVG_CFLAGS} ${DBUS_CFLAGS} ${GCONF_CFLAGS} ${CFLAGS} ${FREETYPE_CFLAGS} ${FONTCONFIG_CFLAGS} ${LIBOTF_CFLAGS} ${M17N_FLT_CFLAGS} ${DEPFLAGS} |
| 233 | ALL_OBJC_CFLAGS=$(ALL_CFLAGS) @GNU_OBJC_CFLAGS@ | 272 | ALL_OBJC_CFLAGS=$(ALL_CFLAGS) $(GNU_OBJC_CFLAGS) |
| 234 | 273 | ||
| 235 | .SUFFIXES: .m | 274 | .SUFFIXES: .m |
| 236 | .c.o: | 275 | .c.o: |
| @@ -245,20 +284,13 @@ ALL_OBJC_CFLAGS=$(ALL_CFLAGS) @GNU_OBJC_CFLAGS@ | |||
| 245 | $(CC) -c $(CPPFLAGS) $(ALL_OBJC_CFLAGS) $< | 284 | $(CC) -c $(CPPFLAGS) $(ALL_OBJC_CFLAGS) $< |
| 246 | 285 | ||
| 247 | #ifdef HAVE_X_WINDOWS | 286 | #ifdef HAVE_X_WINDOWS |
| 248 | /* This test needs to say in cpp for the time being, since s/msdos.h | ||
| 249 | defines HAVE_MENUS, and does not use the configure script. */ | ||
| 250 | #ifdef HAVE_MENUS | ||
| 251 | OLDXMENU=@OLDXMENU@ | 287 | OLDXMENU=@OLDXMENU@ |
| 252 | LIBXMENU=@LIBXMENU@ | 288 | LIBXMENU=@LIBXMENU@ |
| 253 | #else /* not HAVE_MENUS */ | ||
| 254 | OLDXMENU= | ||
| 255 | LIBXMENU= | ||
| 256 | #endif /* not HAVE_MENUS */ | ||
| 257 | |||
| 258 | LIBXT=$(TOOLKIT_LIBW) $(LIBXT_OTHER) | 289 | LIBXT=$(TOOLKIT_LIBW) $(LIBXT_OTHER) |
| 259 | LIBX_BASE=$(LIBXMENU) LD_SWITCH_X_SITE | 290 | LIBX_BASE=$(LIBXMENU) $(LD_SWITCH_X_SITE) |
| 260 | LIBX_OTHER=@LIBX_OTHER@ | 291 | LIBX_OTHER=@LIBX_OTHER@ |
| 261 | #endif /* not HAVE_X_WINDOWS */ | 292 | FONT_DRIVERS=$(FONT_OBJ) |
| 293 | #endif /* HAVE_X_WINDOWS */ | ||
| 262 | 294 | ||
| 263 | 295 | ||
| 264 | /* A macro which other sections of Makefile can redefine to munge the | 296 | /* A macro which other sections of Makefile can redefine to munge the |
| @@ -301,30 +333,14 @@ LD=ld | |||
| 301 | 333 | ||
| 302 | #endif /* not ORDINARY_LINK */ | 334 | #endif /* not ORDINARY_LINK */ |
| 303 | 335 | ||
| 304 | |||
| 305 | #ifdef MSDOS | ||
| 306 | #ifdef HAVE_X_WINDOWS | ||
| 307 | MSDOS_OBJ = dosfns.o msdos.o | ||
| 308 | #else | ||
| 309 | MSDOS_OBJ = dosfns.o msdos.o w16select.o termcap.o | ||
| 310 | #endif | ||
| 311 | #endif | ||
| 312 | |||
| 313 | #ifdef HAVE_NS | 336 | #ifdef HAVE_NS |
| 314 | ns_appdir=@ns_appdir@/ | 337 | ns_appdir=@ns_appdir@/ |
| 315 | ns_appbindir=@ns_appbindir@/ | 338 | ns_appbindir=@ns_appbindir@/ |
| 316 | ns_appresdir=@ns_appresdir@/ | ||
| 317 | ns_appsrc=@ns_appsrc@ | 339 | ns_appsrc=@ns_appsrc@ |
| 318 | #endif /* HAVE_NS */ | 340 | #endif /* HAVE_NS */ |
| 319 | 341 | ||
| 320 | #ifdef HAVE_WINDOW_SYSTEM | 342 | /* lastfile must follow all files whose initialized data areas should |
| 321 | #ifdef HAVE_X_WINDOWS | 343 | be dumped as pure by dump-emacs. */ |
| 322 | FONT_DRIVERS=$(FONT_OBJ) | ||
| 323 | #endif /* HAVE_X_WINDOWS */ | ||
| 324 | #endif /* HAVE_WINDOW_SYSTEM */ | ||
| 325 | |||
| 326 | /* lastfile must follow all files | ||
| 327 | whose initialized data areas should be dumped as pure by dump-emacs. */ | ||
| 328 | obj= dispnew.o frame.o scroll.o xdisp.o menu.o $(XMENU_OBJ) window.o \ | 344 | obj= dispnew.o frame.o scroll.o xdisp.o menu.o $(XMENU_OBJ) window.o \ |
| 329 | charset.o coding.o category.o ccl.o character.o chartab.o bidi.o \ | 345 | charset.o coding.o category.o ccl.o character.o chartab.o bidi.o \ |
| 330 | cm.o term.o terminal.o xfaces.o $(XOBJ) $(GTK_OBJ) $(DBUS_OBJ) \ | 346 | cm.o term.o terminal.o xfaces.o $(XOBJ) $(GTK_OBJ) $(DBUS_OBJ) \ |
| @@ -334,15 +350,14 @@ obj= dispnew.o frame.o scroll.o xdisp.o menu.o $(XMENU_OBJ) window.o \ | |||
| 334 | cmds.o casetab.o casefiddle.o indent.o search.o regex.o undo.o \ | 350 | cmds.o casetab.o casefiddle.o indent.o search.o regex.o undo.o \ |
| 335 | alloc.o data.o doc.o editfns.o callint.o \ | 351 | alloc.o data.o doc.o editfns.o callint.o \ |
| 336 | eval.o floatfns.o fns.o font.o print.o lread.o \ | 352 | eval.o floatfns.o fns.o font.o print.o lread.o \ |
| 337 | syntax.o @unexec@ bytecode.o \ | 353 | syntax.o $(UNEXEC_OBJ) bytecode.o \ |
| 338 | process.o callproc.o \ | 354 | process.o callproc.o \ |
| 339 | region-cache.o sound.o atimer.o \ | 355 | region-cache.o sound.o atimer.o \ |
| 340 | doprnt.o strftime.o intervals.o textprop.o composite.o md5.o \ | 356 | doprnt.o strftime.o intervals.o textprop.o composite.o md5.o \ |
| 341 | $(MSDOS_OBJ) $(NS_OBJ) $(CYGWIN_OBJ) $(FONT_DRIVERS) | 357 | $(MSDOS_OBJ) $(MSDOS_X_OBJ) $(NS_OBJ) $(CYGWIN_OBJ) $(FONT_DRIVERS) |
| 342 | 358 | ||
| 343 | /* Object files used on some machine or other. | 359 | /* Object files used on some machine or other. |
| 344 | These go in the DOC file on all machines | 360 | These go in the DOC file on all machines in case they are needed. */ |
| 345 | in case they are needed there. */ | ||
| 346 | SOME_MACHINE_OBJECTS = dosfns.o msdos.o \ | 361 | SOME_MACHINE_OBJECTS = dosfns.o msdos.o \ |
| 347 | xterm.o xfns.o xmenu.o xselect.o xrdb.o xsmfns.o fringe.o image.o \ | 362 | xterm.o xfns.o xmenu.o xselect.o xrdb.o xsmfns.o fringe.o image.o \ |
| 348 | fontset.o dbusbind.o \ | 363 | fontset.o dbusbind.o \ |
| @@ -374,47 +389,6 @@ POST_ALLOC_OBJ=@POST_ALLOC_OBJ@ | |||
| 374 | otherobj= $(TERMCAP_OBJ) $(PRE_ALLOC_OBJ) $(gmallocobj) $(rallocobj) \ | 389 | otherobj= $(TERMCAP_OBJ) $(PRE_ALLOC_OBJ) $(gmallocobj) $(rallocobj) \ |
| 375 | $(POST_ALLOC_OBJ) $(WIDGET_OBJ) $(LIBOBJS) | 390 | $(POST_ALLOC_OBJ) $(WIDGET_OBJ) $(LIBOBJS) |
| 376 | 391 | ||
| 377 | #ifdef HAVE_MOUSE | ||
| 378 | #define MOUSE_SUPPORT ${lispsource}mouse.elc \ | ||
| 379 | ${lispsource}select.elc ${lispsource}scroll-bar.elc | ||
| 380 | #else | ||
| 381 | #define MOUSE_SUPPORT $(GPM_MOUSE_SUPPORT) | ||
| 382 | #endif | ||
| 383 | |||
| 384 | #ifdef MSDOS | ||
| 385 | #define MSDOS_SUPPORT ${lispsource}ls-lisp.elc ${lispsource}disp-table.elc \ | ||
| 386 | ${lispsource}dos-fns.elc ${lispsource}dos-w32.elc ${lispsource}dos-vars.elc \ | ||
| 387 | ${lispsource}term/internal.elc ${lispsource}term/pc-win.elc | ||
| 388 | |||
| 389 | #else | ||
| 390 | #define MSDOS_SUPPORT | ||
| 391 | #endif | ||
| 392 | |||
| 393 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 394 | #ifdef HAVE_X_WINDOWS | ||
| 395 | #define WINDOW_SUPPORT $(BASE_WINDOW_SUPPORT) $(X_WINDOW_SUPPORT) | ||
| 396 | #else | ||
| 397 | #define WINDOW_SUPPORT $(BASE_WINDOW_SUPPORT) | ||
| 398 | #endif | ||
| 399 | #else | ||
| 400 | #define WINDOW_SUPPORT | ||
| 401 | #endif | ||
| 402 | |||
| 403 | #ifdef WINDOWSNT | ||
| 404 | #define WINNT_SUPPORT ${lispsource}ls-lisp.elc ${lispsource}disp-table.elc \ | ||
| 405 | ${lispsource}dos-w32.elc ${lispsource}w32-vars.elc \ | ||
| 406 | ${lispsource}w32-fns.elc ${lispsource}term/common-win.elc \ | ||
| 407 | ${lispsource}term/w32-win.elc | ||
| 408 | #else | ||
| 409 | #define WINNT_SUPPORT | ||
| 410 | #endif | ||
| 411 | |||
| 412 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 413 | #define TOOLTIP_SUPPORT ${lispsource}tooltip.elc | ||
| 414 | #else | ||
| 415 | #define TOOLTIP_SUPPORT | ||
| 416 | #endif | ||
| 417 | |||
| 418 | /* This is the platform-specific list of Lisp files loaded into the | 392 | /* This is the platform-specific list of Lisp files loaded into the |
| 419 | dumped Emacs. It is arranged like this because it is easier to generate | 393 | dumped Emacs. It is arranged like this because it is easier to generate |
| 420 | it semi-mechanically from loadup.el this way. | 394 | it semi-mechanically from loadup.el this way. |
| @@ -448,7 +422,7 @@ lisp= \ | |||
| 448 | ${lispsource}files.elc \ | 422 | ${lispsource}files.elc \ |
| 449 | ${lispsource}format.elc \ | 423 | ${lispsource}format.elc \ |
| 450 | ${lispsource}facemenu.elc \ | 424 | ${lispsource}facemenu.elc \ |
| 451 | MOUSE_SUPPORT \ | 425 | ${MOUSE_SUPPORT} \ |
| 452 | ${lispsource}emacs-lisp/float-sup.elc \ | 426 | ${lispsource}emacs-lisp/float-sup.elc \ |
| 453 | ${lispsource}frame.elc \ | 427 | ${lispsource}frame.elc \ |
| 454 | ${lispsource}help.elc \ | 428 | ${lispsource}help.elc \ |
| @@ -511,10 +485,9 @@ lisp= \ | |||
| 511 | ${lispsource}vc-hooks.elc \ | 485 | ${lispsource}vc-hooks.elc \ |
| 512 | ${lispsource}ediff-hook.elc \ | 486 | ${lispsource}ediff-hook.elc \ |
| 513 | ${lispsource}epa-hook.elc \ | 487 | ${lispsource}epa-hook.elc \ |
| 514 | TOOLTIP_SUPPORT \ | 488 | ${TOOLTIP_SUPPORT} \ |
| 515 | MSDOS_SUPPORT \ | 489 | ${MSDOS_SUPPORT} \ |
| 516 | WINNT_SUPPORT \ | 490 | ${WINDOW_SUPPORT} \ |
| 517 | WINDOW_SUPPORT \ | ||
| 518 | ${NS_SUPPORT} \ | 491 | ${NS_SUPPORT} \ |
| 519 | ${lispsource}widget.elc \ | 492 | ${lispsource}widget.elc \ |
| 520 | ${lispsource}window.elc \ | 493 | ${lispsource}window.elc \ |
| @@ -634,10 +607,10 @@ SOME_MACHINE_LISP = ../lisp/mouse.elc \ | |||
| 634 | with GCC, we might need gnulib again after them. */ | 607 | with GCC, we might need gnulib again after them. */ |
| 635 | 608 | ||
| 636 | LIBES = $(LOADLIBES) $(LIBS) $(LIBX_BASE) $(LIBX_OTHER) $(LIBSOUND) \ | 609 | LIBES = $(LOADLIBES) $(LIBS) $(LIBX_BASE) $(LIBX_OTHER) $(LIBSOUND) \ |
| 637 | $(RSVG_LIBS) $(DBUS_LIBS) @LIBGPM@ @LIBRESOLV@ $(LIBS_SYSTEM) \ | 610 | $(RSVG_LIBS) $(DBUS_LIBS) $(LIBGPM) $(LIBRESOLV) $(LIBS_SYSTEM) \ |
| 638 | $(LIBS_TERMCAP) $(GETLOADAVG_LIBS) ${GCONF_LIBS} ${LIBSELINUX_LIBS} \ | 611 | $(LIBS_TERMCAP) $(GETLOADAVG_LIBS) ${GCONF_LIBS} ${LIBSELINUX_LIBS} \ |
| 639 | @FREETYPE_LIBS@ @FONTCONFIG_LIBS@ @LIBOTF_LIBS@ @M17N_FLT_LIBS@ \ | 612 | $(FREETYPE_LIBS) $(FONTCONFIG_LIBS) $(LIBOTF_LIBS) $(M17N_FLT_LIBS) \ |
| 640 | $(GNULIB_VAR) @LIB_MATH@ @LIB_STANDARD@ $(GNULIB_VAR) | 613 | $(GNULIB_VAR) $(LIB_MATH) $(LIB_STANDARD) $(GNULIB_VAR) |
| 641 | 614 | ||
| 642 | all: emacs${EXEEXT} $(OTHER_FILES) | 615 | all: emacs${EXEEXT} $(OTHER_FILES) |
| 643 | 616 | ||
| @@ -682,7 +655,7 @@ buildobj.h: Makefile | |||
| 682 | temacs${EXEEXT}: $(LOCALCPP) $(START_FILES) stamp-oldxmenu ${obj} ${otherobj} prefix-args${EXEEXT} | 655 | temacs${EXEEXT}: $(LOCALCPP) $(START_FILES) stamp-oldxmenu ${obj} ${otherobj} prefix-args${EXEEXT} |
| 683 | #ifdef NS_IMPL_GNUSTEP | 656 | #ifdef NS_IMPL_GNUSTEP |
| 684 | $(CC) -rdynamic YMF_PASS_LDFLAGS ( ${TEMACS_LDFLAGS} \ | 657 | $(CC) -rdynamic YMF_PASS_LDFLAGS ( ${TEMACS_LDFLAGS} \ |
| 685 | -L@GNUSTEP_SYSTEM_LIBRARIES@ -lgnustep-gui -lgnustep-base \ | 658 | -L$(GNUSTEP_SYSTEM_LIBRARIES) -lgnustep-gui -lgnustep-base \ |
| 686 | -lobjc $(CONFIG_SYSTEM_LIBS) -lpthread ) -o temacs \ | 659 | -lobjc $(CONFIG_SYSTEM_LIBS) -lpthread ) -o temacs \ |
| 687 | ${obj} ${otherobj} ${LIBES} | 660 | ${obj} ${otherobj} ${LIBES} |
| 688 | #else | 661 | #else |
| @@ -696,9 +669,8 @@ prefix-args${EXEEXT}: prefix-args.o $(config_h) | |||
| 696 | 669 | ||
| 697 | #if defined (HAVE_X_WINDOWS) && defined (HAVE_X11) && defined (HAVE_MENUS) && ! defined (USE_GTK) | 670 | #if defined (HAVE_X_WINDOWS) && defined (HAVE_X11) && defined (HAVE_MENUS) && ! defined (USE_GTK) |
| 698 | 671 | ||
| 699 | /* We use stamp-xmenu with these two deps | 672 | /* We use stamp-xmenu with these two deps to both ensure that lwlib |
| 700 | to both ensure that lwlib gets remade based on its dependencies | 673 | gets remade based on its dependencies in its own makefile, |
| 701 | in its own makefile, | ||
| 702 | and remake temacs if lwlib gets changed by this. */ | 674 | and remake temacs if lwlib gets changed by this. */ |
| 703 | stamp-oldxmenu: ${OLDXMENU} ../src/$(OLDXMENU) | 675 | stamp-oldxmenu: ${OLDXMENU} ../src/$(OLDXMENU) |
| 704 | touch stamp-oldxmenu | 676 | touch stamp-oldxmenu |
| @@ -752,6 +724,8 @@ doc.o: buildobj.h | |||
| 752 | Eg callproc.c only depends on w32.h for WINDOWSNT builds. | 724 | Eg callproc.c only depends on w32.h for WINDOWSNT builds. |
| 753 | One way to fix this would be to replace w32.h (etc) by $(W32_H), | 725 | One way to fix this would be to replace w32.h (etc) by $(W32_H), |
| 754 | a variable set by configure. Does not seem worth the trouble. | 726 | a variable set by configure. Does not seem worth the trouble. |
| 727 | Since the w32 build does not even use this file, you might ask | ||
| 728 | why these dependencies are here at all... | ||
| 755 | 729 | ||
| 756 | nsgui.h: In fact, every .o file depends directly or indirectly on | 730 | nsgui.h: In fact, every .o file depends directly or indirectly on |
| 757 | dispextern.h and hence nsgui.h under NS. But the ones that actually | 731 | dispextern.h and hence nsgui.h under NS. But the ones that actually |
| @@ -961,8 +935,8 @@ xsmfns.o: xsmfns.c lisp.h $(config_h) systime.h sysselect.h termhooks.h xterm.h | |||
| 961 | xsettings.o: xterm.h xsettings.h lisp.h frame.h termhooks.h $(config_h) \ | 935 | xsettings.o: xterm.h xsettings.h lisp.h frame.h termhooks.h $(config_h) \ |
| 962 | dispextern.h keyboard.h systime.h coding.h composite.h blockinput.h atimer.h \ | 936 | dispextern.h keyboard.h systime.h coding.h composite.h blockinput.h atimer.h \ |
| 963 | termopts.h | 937 | termopts.h |
| 964 | /* The files of Lisp proper */ | ||
| 965 | 938 | ||
| 939 | /* The files of Lisp proper. */ | ||
| 966 | alloc.o: alloc.c process.h frame.h window.h buffer.h puresize.h syssignal.h \ | 940 | alloc.o: alloc.c process.h frame.h window.h buffer.h puresize.h syssignal.h \ |
| 967 | keyboard.h blockinput.h atimer.h systime.h character.h lisp.h $(config_h) \ | 941 | keyboard.h blockinput.h atimer.h systime.h character.h lisp.h $(config_h) \ |
| 968 | $(INTERVALS_H) termhooks.h | 942 | $(INTERVALS_H) termhooks.h |
| @@ -984,7 +958,7 @@ lread.o: lread.c commands.h keyboard.h buffer.h epaths.h character.h \ | |||
| 984 | charset.h lisp.h $(config_h) $(INTERVALS_H) termhooks.h coding.h msdos.h \ | 958 | charset.h lisp.h $(config_h) $(INTERVALS_H) termhooks.h coding.h msdos.h \ |
| 985 | systime.h frame.h blockinput.h atimer.h | 959 | systime.h frame.h blockinput.h atimer.h |
| 986 | 960 | ||
| 987 | /* Text properties support */ | 961 | /* Text properties support. */ |
| 988 | composite.o: composite.c buffer.h character.h coding.h font.h ccl.h \ | 962 | composite.o: composite.c buffer.h character.h coding.h font.h ccl.h \ |
| 989 | frame.h termhooks.h $(INTERVALS_H) window.h lisp.h $(config_h) | 963 | frame.h termhooks.h $(INTERVALS_H) window.h lisp.h $(config_h) |
| 990 | intervals.o: intervals.c buffer.h $(INTERVALS_H) keyboard.h puresize.h \ | 964 | intervals.o: intervals.c buffer.h $(INTERVALS_H) keyboard.h puresize.h \ |
| @@ -995,8 +969,7 @@ textprop.o: textprop.c buffer.h window.h $(INTERVALS_H) \ | |||
| 995 | #endif /* ! AUTO_DEPEND */ | 969 | #endif /* ! AUTO_DEPEND */ |
| 996 | 970 | ||
| 997 | /* System-specific programs to be made. | 971 | /* System-specific programs to be made. |
| 998 | OTHER_FILES | 972 | OTHER_FILES select which of these should be compiled. */ |
| 999 | select which of these should be compiled. */ | ||
| 1000 | 973 | ||
| 1001 | #ifdef HAVE_NS | 974 | #ifdef HAVE_NS |
| 1002 | ${ns_appdir}: ${ns_appsrc} | 975 | ${ns_appdir}: ${ns_appsrc} |
diff --git a/src/config.in b/src/config.in index 5fb0cd7d569..35530943682 100644 --- a/src/config.in +++ b/src/config.in | |||
| @@ -44,12 +44,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 44 | /* Define to 1 if using `getloadavg.c'. */ | 44 | /* Define to 1 if using `getloadavg.c'. */ |
| 45 | #undef C_GETLOADAVG | 45 | #undef C_GETLOADAVG |
| 46 | 46 | ||
| 47 | /* Define C_SWITCH_X_SITE to contain any special flags your compiler may need | ||
| 48 | to deal with X Windows. For instance, if you've defined HAVE_X_WINDOWS | ||
| 49 | above and your X include files aren't in a place that your compiler can | ||
| 50 | find on its own, you might want to add "-I/..." or something similar. */ | ||
| 51 | #undef C_SWITCH_X_SITE | ||
| 52 | |||
| 53 | /* Define to 1 for DGUX with <sys/dg_sys_info.h>. */ | 47 | /* Define to 1 for DGUX with <sys/dg_sys_info.h>. */ |
| 54 | #undef DGUX | 48 | #undef DGUX |
| 55 | 49 | ||
| @@ -488,6 +482,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 488 | /* Define to 1 if you have a working `mmap' system call. */ | 482 | /* Define to 1 if you have a working `mmap' system call. */ |
| 489 | #undef HAVE_MMAP | 483 | #undef HAVE_MMAP |
| 490 | 484 | ||
| 485 | /* Define if you have mouse support. */ | ||
| 486 | #undef HAVE_MOUSE | ||
| 487 | |||
| 491 | /* Define to 1 if you have the `mremap' function. */ | 488 | /* Define to 1 if you have the `mremap' function. */ |
| 492 | #undef HAVE_MREMAP | 489 | #undef HAVE_MREMAP |
| 493 | 490 | ||
| @@ -743,6 +740,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 743 | /* Define to 1 if you have the <vfork.h> header file. */ | 740 | /* Define to 1 if you have the <vfork.h> header file. */ |
| 744 | #undef HAVE_VFORK_H | 741 | #undef HAVE_VFORK_H |
| 745 | 742 | ||
| 743 | /* Define if you have a window system. */ | ||
| 744 | #undef HAVE_WINDOW_SYSTEM | ||
| 745 | |||
| 746 | /* Define to 1 if `fork' works. */ | 746 | /* Define to 1 if `fork' works. */ |
| 747 | #undef HAVE_WORKING_FORK | 747 | #undef HAVE_WORKING_FORK |
| 748 | 748 | ||
| @@ -804,12 +804,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 804 | /* Define to use Kerberos 5 instead of Kerberos 4. */ | 804 | /* Define to use Kerberos 5 instead of Kerberos 4. */ |
| 805 | #undef KERBEROS5 | 805 | #undef KERBEROS5 |
| 806 | 806 | ||
| 807 | /* Define LD_SWITCH_X_SITE to contain any special flags your loader may need | ||
| 808 | to deal with X Windows. For instance, if you've defined HAVE_X_WINDOWS | ||
| 809 | above and your X libraries aren't in a place that your loader can find on | ||
| 810 | its own, you might want to add "-L/..." or something similar. */ | ||
| 811 | #undef LD_SWITCH_X_SITE | ||
| 812 | |||
| 813 | /* Define to 1 if localtime caches TZ. */ | 807 | /* Define to 1 if localtime caches TZ. */ |
| 814 | #undef LOCALTIME_CACHE | 808 | #undef LOCALTIME_CACHE |
| 815 | 809 | ||
| @@ -1016,12 +1010,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 1016 | #undef volatile | 1010 | #undef volatile |
| 1017 | 1011 | ||
| 1018 | 1012 | ||
| 1019 | /* If we're using X11/Carbon/GNUstep, define some consequences. */ | ||
| 1020 | #if defined(HAVE_X_WINDOWS) || defined(HAVE_NS) | ||
| 1021 | #define HAVE_WINDOW_SYSTEM | ||
| 1022 | #define HAVE_MOUSE | ||
| 1023 | #endif | ||
| 1024 | |||
| 1025 | /* Define AMPERSAND_FULL_NAME if you use the convention | 1013 | /* Define AMPERSAND_FULL_NAME if you use the convention |
| 1026 | that & in the full name stands for the login id. */ | 1014 | that & in the full name stands for the login id. */ |
| 1027 | /* Turned on June 1996 supposing nobody will mind it. */ | 1015 | /* Turned on June 1996 supposing nobody will mind it. */ |
| @@ -1046,7 +1034,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 1046 | #endif | 1034 | #endif |
| 1047 | #endif /* __FreeBSD__ || __NetBSD__ || __linux__ */ | 1035 | #endif /* __FreeBSD__ || __NetBSD__ || __linux__ */ |
| 1048 | 1036 | ||
| 1049 | /* If using GNU, then support inline function declarations. */ | 1037 | /* If using GNU, then support inline function declarations. */ |
| 1050 | /* Don't try to switch on inline handling as detected by AC_C_INLINE | 1038 | /* Don't try to switch on inline handling as detected by AC_C_INLINE |
| 1051 | generally, because even if non-gcc compilers accept `inline', they | 1039 | generally, because even if non-gcc compilers accept `inline', they |
| 1052 | may reject `extern inline'. */ | 1040 | may reject `extern inline'. */ |
| @@ -1071,7 +1059,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 1071 | /* Set up some defines, C and LD flags for NeXTstep interface on GNUstep. | 1059 | /* Set up some defines, C and LD flags for NeXTstep interface on GNUstep. |
| 1072 | (There is probably a better place to do this, but right now the Cocoa | 1060 | (There is probably a better place to do this, but right now the Cocoa |
| 1073 | side does this in s/darwin.h and we cannot | 1061 | side does this in s/darwin.h and we cannot |
| 1074 | parallel this exactly since GNUstep is multi-OS. */ | 1062 | parallel this exactly since GNUstep is multi-OS. */ |
| 1075 | #ifdef HAVE_NS | 1063 | #ifdef HAVE_NS |
| 1076 | # ifdef NS_IMPL_GNUSTEP | 1064 | # ifdef NS_IMPL_GNUSTEP |
| 1077 | /* GNUstep needs a bit more pure memory. Of the existing knobs, | 1065 | /* GNUstep needs a bit more pure memory. Of the existing knobs, |
| @@ -1168,7 +1156,7 @@ extern char *getenv (); | |||
| 1168 | #include "string.h" | 1156 | #include "string.h" |
| 1169 | #endif | 1157 | #endif |
| 1170 | #ifdef HAVE_STRINGS_H | 1158 | #ifdef HAVE_STRINGS_H |
| 1171 | #include "strings.h" /* May be needed for bcopy & al. */ | 1159 | #include "strings.h" /* May be needed for bcopy & al. */ |
| 1172 | #endif | 1160 | #endif |
| 1173 | #ifdef HAVE_STDLIB_H | 1161 | #ifdef HAVE_STDLIB_H |
| 1174 | #include <stdlib.h> | 1162 | #include <stdlib.h> |
diff --git a/src/s/netbsd.h b/src/s/netbsd.h index b8df9014ecc..4874ec9af56 100644 --- a/src/s/netbsd.h +++ b/src/s/netbsd.h | |||
| @@ -26,8 +26,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 26 | 26 | ||
| 27 | #define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_p - (FILE)->_bf._base) | 27 | #define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_p - (FILE)->_bf._base) |
| 28 | 28 | ||
| 29 | #define AMPERSAND_FULL_NAME | ||
| 30 | |||
| 31 | /* On post 1.3 releases of NetBSD, gcc -nostdlib also clears | 29 | /* On post 1.3 releases of NetBSD, gcc -nostdlib also clears |
| 32 | the library search parth, i.e. it won't search /usr/lib | 30 | the library search parth, i.e. it won't search /usr/lib |
| 33 | for libc and friends. Using -nostartfiles instead avoids | 31 | for libc and friends. Using -nostartfiles instead avoids |