diff options
| author | Karoly Lorentey | 2004-04-13 17:17:13 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-04-13 17:17:13 +0000 |
| commit | 6917311031ecaa452d591f99d3bba4e3ce1ec050 (patch) | |
| tree | e057ac34cab81d493581606485ccbdf3a9442ef4 /src | |
| parent | 67ad74dfc55fafe210e8bf1dcae80d269d38ea4b (diff) | |
| parent | a2de0c3b755f982b426e915e3d1064a10f6206bb (diff) | |
| download | emacs-6917311031ecaa452d591f99d3bba4e3ce1ec050.tar.gz emacs-6917311031ecaa452d591f99d3bba4e3ce1ec050.zip | |
Merged in changes from CVS trunk
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-200
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-201
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-202
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-203
Add entry for macroexpand-all to NEWS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-204
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-205
Add macroexpand-all to lisp reference manual
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-206
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-207
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-208
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-209
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-210
More RCS keyword removal
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-211
File-permission tweaks
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-212
Checkout from CVS with unexpanded RCS keywords
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-136
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 31 | ||||
| -rw-r--r-- | src/Makefile.in | 13 | ||||
| -rw-r--r-- | src/buffer.c | 17 | ||||
| -rw-r--r-- | src/gmalloc.c | 13 | ||||
| -rw-r--r-- | src/lastfile.c | 2 | ||||
| -rw-r--r-- | src/puresize.h | 2 | ||||
| -rw-r--r-- | src/s/cygwin.h | 8 |
7 files changed, 70 insertions, 16 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 1b5144e5b56..6d48aa0f6d0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,6 +1,35 @@ | |||
| 1 | 2004-04-12 Luc Teirlinck <teirllm@auburn.edu> | ||
| 2 | |||
| 3 | * buffer.c (Fmake_indirect_buffer): Throw an error if the intended | ||
| 4 | base buffer has been killed. Correct the error message if the | ||
| 5 | base buffer does not exist. | ||
| 6 | |||
| 7 | 2004-04-12 Joe Buehler <jbuehler@hekimian.com> | ||
| 8 | |||
| 9 | * s/cygwin.h: Changes for Cygwin unexec() support, changes in | ||
| 10 | Cygwin itself. Add support for Xaw3d scrollbars. | ||
| 11 | |||
| 12 | * puresize.h: Set up PURE_P() for Cygwin unexec() support. | ||
| 13 | |||
| 14 | * lastfile.c: Define my_endbss[] for Cygwin unexec() support. | ||
| 15 | |||
| 16 | * gmalloc.c (__default_morecore): Use bss_sbrk(), not __sbrk(), | ||
| 17 | before Cygwin unexec. | ||
| 18 | |||
| 19 | * Makefile.in: Link changes for Cygwin unexec() support. | ||
| 20 | |||
| 21 | 2004-04-12 Andreas Schwab <schwab@suse.de> | ||
| 22 | |||
| 23 | * buffer.c (Fmake_indirect_buffer): Check that NAME is a string. | ||
| 24 | |||
| 25 | 2004-04-11 Luc Teirlinck <teirllm@auburn.edu> | ||
| 26 | |||
| 27 | * buffer.c (Fgenerate_new_buffer_name): Return NAME argument if | ||
| 28 | IGNORE argument equals NAME. Doc fix. | ||
| 29 | |||
| 1 | 2004-04-11 Masatake YAMATO <jet@gyve.org> | 30 | 2004-04-11 Masatake YAMATO <jet@gyve.org> |
| 2 | 31 | ||
| 3 | * buffer.c (fix_start_end_in_overlays): make overlays | 32 | * buffer.c (fix_start_end_in_overlays): Make overlays |
| 4 | empty if they are backwards. | 33 | empty if they are backwards. |
| 5 | 34 | ||
| 6 | 2004-04-07 Stefan Monnier <monnier@iro.umontreal.ca> | 35 | 2004-04-07 Stefan Monnier <monnier@iro.umontreal.ca> |
diff --git a/src/Makefile.in b/src/Makefile.in index 618d8de1f96..e22abf754fd 100644 --- a/src/Makefile.in +++ b/src/Makefile.in | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | # Makefile for GNU Emacs. | 1 | # Makefile for GNU Emacs. |
| 2 | # Copyright (C) 1985, 87, 88, 93, 94, 95, 99, 2000, 2001, 2003 | 2 | # Copyright (C) 1985, 87, 88, 93, 94, 95, 99, 2000, 01, 03, 2004 |
| 3 | # Free Software Foundation, Inc. | 3 | # Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | # This file is part of GNU Emacs. | 5 | # This file is part of GNU Emacs. |
| @@ -564,6 +564,10 @@ MSDOS_OBJ = dosfns.o msdos.o w16select.o | |||
| 564 | #endif | 564 | #endif |
| 565 | #endif | 565 | #endif |
| 566 | 566 | ||
| 567 | #ifdef CYGWIN | ||
| 568 | CYGWIN_OBJ = sheap.o | ||
| 569 | #endif | ||
| 570 | |||
| 567 | #ifdef HAVE_CARBON | 571 | #ifdef HAVE_CARBON |
| 568 | mac = $(dot)$(dot)/mac/ | 572 | mac = $(dot)$(dot)/mac/ |
| 569 | MAC_OBJ = mac.o macterm.o macfns.o macmenu.o fontset.o fringe.o image.o | 573 | MAC_OBJ = mac.o macterm.o macfns.o macmenu.o fontset.o fringe.o image.o |
| @@ -586,7 +590,7 @@ obj= dispnew.o frame.o scroll.o xdisp.o $(XMENU_OBJ) window.o \ | |||
| 586 | process.o callproc.o \ | 590 | process.o callproc.o \ |
| 587 | region-cache.o sound.o atimer.o \ | 591 | region-cache.o sound.o atimer.o \ |
| 588 | doprnt.o strftime.o intervals.o textprop.o composite.o md5.o \ | 592 | doprnt.o strftime.o intervals.o textprop.o composite.o md5.o \ |
| 589 | $(MSDOS_OBJ) $(MAC_OBJ) | 593 | $(MSDOS_OBJ) $(MAC_OBJ) $(CYGWIN_OBJ) |
| 590 | 594 | ||
| 591 | /* Object files used on some machine or other. | 595 | /* Object files used on some machine or other. |
| 592 | These go in the DOC file on all machines | 596 | These go in the DOC file on all machines |
| @@ -643,7 +647,12 @@ widgetobj= | |||
| 643 | 647 | ||
| 644 | /* define otherobj as list of object files that make-docfile | 648 | /* define otherobj as list of object files that make-docfile |
| 645 | should not be told about. */ | 649 | should not be told about. */ |
| 650 | #ifdef CYGWIN | ||
| 651 | /* Cygwin differs because of its unexec(). */ | ||
| 652 | otherobj= $(termcapobj) $(gmallocobj) $(rallocobj) lastfile.o vm-limit.o $(allocaobj) $(widgetobj) $(LIBOBJS) | ||
| 653 | #else | ||
| 646 | otherobj= $(termcapobj) lastfile.o $(mallocobj) $(allocaobj) $(widgetobj) $(LIBOBJS) | 654 | otherobj= $(termcapobj) lastfile.o $(mallocobj) $(allocaobj) $(widgetobj) $(LIBOBJS) |
| 655 | #endif | ||
| 647 | 656 | ||
| 648 | #ifdef HAVE_MOUSE | 657 | #ifdef HAVE_MOUSE |
| 649 | #define MOUSE_SUPPORT ${lispsource}mouse.elc \ | 658 | #define MOUSE_SUPPORT ${lispsource}mouse.elc \ |
diff --git a/src/buffer.c b/src/buffer.c index 455b03efec2..ca74dda73bf 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -521,7 +521,7 @@ DEFUN ("make-indirect-buffer", Fmake_indirect_buffer, Smake_indirect_buffer, | |||
| 521 | 2, 3, | 521 | 2, 3, |
| 522 | "bMake indirect buffer (to buffer): \nBName of indirect buffer: ", | 522 | "bMake indirect buffer (to buffer): \nBName of indirect buffer: ", |
| 523 | doc: /* Create and return an indirect buffer for buffer BASE-BUFFER, named NAME. | 523 | doc: /* Create and return an indirect buffer for buffer BASE-BUFFER, named NAME. |
| 524 | BASE-BUFFER should be an existing buffer (or buffer name). | 524 | BASE-BUFFER should be a live buffer, or the name of an existing buffer. |
| 525 | NAME should be a string which is not the name of an existing buffer. | 525 | NAME should be a string which is not the name of an existing buffer. |
| 526 | Optional argument CLONE non-nil means preserve BASE-BUFFER's state, | 526 | Optional argument CLONE non-nil means preserve BASE-BUFFER's state, |
| 527 | such as major and minor modes, in the indirect buffer. | 527 | such as major and minor modes, in the indirect buffer. |
| @@ -529,16 +529,20 @@ CLONE nil means the indirect buffer's state is reset to default values. */) | |||
| 529 | (base_buffer, name, clone) | 529 | (base_buffer, name, clone) |
| 530 | Lisp_Object base_buffer, name, clone; | 530 | Lisp_Object base_buffer, name, clone; |
| 531 | { | 531 | { |
| 532 | Lisp_Object buf; | 532 | Lisp_Object buf, tem; |
| 533 | struct buffer *b; | 533 | struct buffer *b; |
| 534 | 534 | ||
| 535 | CHECK_STRING (name); | ||
| 535 | buf = Fget_buffer (name); | 536 | buf = Fget_buffer (name); |
| 536 | if (!NILP (buf)) | 537 | if (!NILP (buf)) |
| 537 | error ("Buffer name `%s' is in use", SDATA (name)); | 538 | error ("Buffer name `%s' is in use", SDATA (name)); |
| 538 | 539 | ||
| 540 | tem = base_buffer; | ||
| 539 | base_buffer = Fget_buffer (base_buffer); | 541 | base_buffer = Fget_buffer (base_buffer); |
| 540 | if (NILP (base_buffer)) | 542 | if (NILP (base_buffer)) |
| 541 | error ("No such buffer: `%s'", SDATA (name)); | 543 | error ("No such buffer: `%s'", SDATA (tem)); |
| 544 | if (NILP (XBUFFER (base_buffer)->name)) | ||
| 545 | error ("Base buffer has been killed"); | ||
| 542 | 546 | ||
| 543 | if (SCHARS (name) == 0) | 547 | if (SCHARS (name) == 0) |
| 544 | error ("Empty string for buffer name is not allowed"); | 548 | error ("Empty string for buffer name is not allowed"); |
| @@ -652,7 +656,7 @@ delete_all_overlays (b) | |||
| 652 | } | 656 | } |
| 653 | 657 | ||
| 654 | /* Reinitialize everything about a buffer except its name and contents | 658 | /* Reinitialize everything about a buffer except its name and contents |
| 655 | and local variables. | 659 | and local variables. |
| 656 | If called on an already-initialized buffer, the list of overlays | 660 | If called on an already-initialized buffer, the list of overlays |
| 657 | should be deleted before calling this function, otherwise we end up | 661 | should be deleted before calling this function, otherwise we end up |
| 658 | with overlays that claim to belong to the buffer but the buffer | 662 | with overlays that claim to belong to the buffer but the buffer |
| @@ -766,7 +770,7 @@ DEFUN ("generate-new-buffer-name", Fgenerate_new_buffer_name, Sgenerate_new_buff | |||
| 766 | doc: /* Return a string that is the name of no existing buffer based on NAME. | 770 | doc: /* Return a string that is the name of no existing buffer based on NAME. |
| 767 | If there is no live buffer named NAME, then return NAME. | 771 | If there is no live buffer named NAME, then return NAME. |
| 768 | Otherwise modify name by appending `<NUMBER>', incrementing NUMBER | 772 | Otherwise modify name by appending `<NUMBER>', incrementing NUMBER |
| 769 | until an unused name is found, and then return that name. | 773 | \(starting at 2) until an unused name is found, and then return that name. |
| 770 | Optional second argument IGNORE specifies a name that is okay to use | 774 | Optional second argument IGNORE specifies a name that is okay to use |
| 771 | \(if it is in the sequence to be tried) | 775 | \(if it is in the sequence to be tried) |
| 772 | even if a buffer with that name exists. */) | 776 | even if a buffer with that name exists. */) |
| @@ -779,6 +783,9 @@ even if a buffer with that name exists. */) | |||
| 779 | 783 | ||
| 780 | CHECK_STRING (name); | 784 | CHECK_STRING (name); |
| 781 | 785 | ||
| 786 | tem = Fstring_equal (name, ignore); | ||
| 787 | if (!NILP (tem)) | ||
| 788 | return name; | ||
| 782 | tem = Fget_buffer (name); | 789 | tem = Fget_buffer (name); |
| 783 | if (NILP (tem)) | 790 | if (NILP (tem)) |
| 784 | return name; | 791 | return name; |
diff --git a/src/gmalloc.c b/src/gmalloc.c index 99fa36d073a..eae83a74eb6 100644 --- a/src/gmalloc.c +++ b/src/gmalloc.c | |||
| @@ -352,6 +352,10 @@ Cambridge, MA 02139, USA. | |||
| 352 | #include <errno.h> | 352 | #include <errno.h> |
| 353 | 353 | ||
| 354 | /* How to really get more memory. */ | 354 | /* How to really get more memory. */ |
| 355 | #if defined(CYGWIN) | ||
| 356 | extern __ptr_t bss_sbrk PP ((ptrdiff_t __size)); | ||
| 357 | extern int bss_sbrk_did_unexec; | ||
| 358 | #endif | ||
| 355 | __ptr_t (*__morecore) PP ((ptrdiff_t __size)) = __default_morecore; | 359 | __ptr_t (*__morecore) PP ((ptrdiff_t __size)) = __default_morecore; |
| 356 | 360 | ||
| 357 | /* Debugging hook for `malloc'. */ | 361 | /* Debugging hook for `malloc'. */ |
| @@ -1572,7 +1576,14 @@ __ptr_t | |||
| 1572 | __default_morecore (increment) | 1576 | __default_morecore (increment) |
| 1573 | __malloc_ptrdiff_t increment; | 1577 | __malloc_ptrdiff_t increment; |
| 1574 | { | 1578 | { |
| 1575 | __ptr_t result = (__ptr_t) __sbrk (increment); | 1579 | __ptr_t result; |
| 1580 | #if defined(CYGWIN) | ||
| 1581 | if (!bss_sbrk_did_unexec) | ||
| 1582 | { | ||
| 1583 | return bss_sbrk (increment); | ||
| 1584 | } | ||
| 1585 | #endif | ||
| 1586 | result = (__ptr_t) __sbrk (increment); | ||
| 1576 | if (result == (__ptr_t) -1) | 1587 | if (result == (__ptr_t) -1) |
| 1577 | return NULL; | 1588 | return NULL; |
| 1578 | return result; | 1589 | return result; |
diff --git a/src/lastfile.c b/src/lastfile.c index 0e94a4f1598..df678b42876 100644 --- a/src/lastfile.c +++ b/src/lastfile.c | |||
| @@ -40,7 +40,7 @@ Boston, MA 02111-1307, USA. */ | |||
| 40 | 40 | ||
| 41 | char my_edata[] = "End of Emacs initialized data"; | 41 | char my_edata[] = "End of Emacs initialized data"; |
| 42 | 42 | ||
| 43 | #ifdef WINDOWSNT | 43 | #if defined(WINDOWSNT) || defined(CYGWIN) |
| 44 | /* Help unexec locate the end of the .bss area used by Emacs (which | 44 | /* Help unexec locate the end of the .bss area used by Emacs (which |
| 45 | isn't always a separate section in NT executables). */ | 45 | isn't always a separate section in NT executables). */ |
| 46 | char my_endbss[1]; | 46 | char my_endbss[1]; |
diff --git a/src/puresize.h b/src/puresize.h index 6ca10b22fdf..8088a374765 100644 --- a/src/puresize.h +++ b/src/puresize.h | |||
| @@ -68,7 +68,7 @@ extern void pure_write_error P_ ((void)); | |||
| 68 | 68 | ||
| 69 | /* Define PURE_P. */ | 69 | /* Define PURE_P. */ |
| 70 | 70 | ||
| 71 | #ifdef VIRT_ADDR_VARIES | 71 | #if defined(VIRT_ADDR_VARIES) || defined(CYGWIN) |
| 72 | /* For machines like APOLLO where text and data can go anywhere | 72 | /* For machines like APOLLO where text and data can go anywhere |
| 73 | in virtual memory. */ | 73 | in virtual memory. */ |
| 74 | 74 | ||
diff --git a/src/s/cygwin.h b/src/s/cygwin.h index 033eb636966..38e346ac510 100644 --- a/src/s/cygwin.h +++ b/src/s/cygwin.h | |||
| @@ -115,10 +115,8 @@ Boston, MA 02111-1307, USA. */ | |||
| 115 | #define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_p - (FILE)->_bf._base) | 115 | #define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_p - (FILE)->_bf._base) |
| 116 | #define GETPGRP_NO_ARG 1 | 116 | #define GETPGRP_NO_ARG 1 |
| 117 | #define SYSV_SYSTEM_DIR 1 | 117 | #define SYSV_SYSTEM_DIR 1 |
| 118 | /* -lutil comes from inetutils and has pty functions in it */ | 118 | #define LIB_STANDARD_LIBSRC |
| 119 | #define LIBS_SYSTEM -lutil | 119 | #define UNEXEC unexcw.o |
| 120 | /* undumping is not implemented yet */ | ||
| 121 | #define CANNOT_DUMP 1 | ||
| 122 | #define POSIX_SIGNALS 1 | 120 | #define POSIX_SIGNALS 1 |
| 123 | /* force the emacs image to start high in memory, so dll relocation | 121 | /* force the emacs image to start high in memory, so dll relocation |
| 124 | can put things in low memory without causing all sorts of grief for | 122 | can put things in low memory without causing all sorts of grief for |
| @@ -137,7 +135,7 @@ Boston, MA 02111-1307, USA. */ | |||
| 137 | /*#define HAVE_VFORK*/ | 135 | /*#define HAVE_VFORK*/ |
| 138 | /* Xaw3d causes problems -- might have been fixed by NARROWPROTO | 136 | /* Xaw3d causes problems -- might have been fixed by NARROWPROTO |
| 139 | above, but I haven't tried it */ | 137 | above, but I haven't tried it */ |
| 140 | #undef HAVE_XAW3D | 138 | /*#undef HAVE_XAW3D*/ |
| 141 | 139 | ||
| 142 | /* vfork() interacts badly with setsid(), causing ptys to fail to | 140 | /* vfork() interacts badly with setsid(), causing ptys to fail to |
| 143 | change their controlling terminal */ | 141 | change their controlling terminal */ |