*** empty log message ***

diff --git a/Makefile.in b/Makefile.in
index 7c5a3d7..cd084aa 100644 (file)
--- a/Makefile.in
+++ b/Makefile.in
@@ -1,4 +1,4 @@
-# This is the distribution Makefile for Emacs.  config.emacs can make
+# This is the distribution Makefile for Emacs.  configure can make
 # most of the changes to this file you might want, so try that first.
 
 # make all     to compile and build Emacs
@@ -24,7 +24,7 @@ SHELL = /bin/sh
 # already, the `install' targets will move or copy it there.  The
 # default definitions for the variables below are expressed in terms
 # of this one, so you may not need to change them.
-LIBROOT=/gd/gnu/emacs
+LIBROOT=/home/gd/gnu/emacs
 
 # This is where the `install' make target should place the binaries
 # people will want to run directly (like etags and Emacs itself).
@@ -35,19 +35,19 @@ INSTALLBIN=/usr/local/bin
 # elisp files should go under DATADIR (below), since both elisp source
 # and compiled elisp are completely portable, but it's traditional to
 # give the lisp files their own subdirectory.
-LISPPATH=/gd/gnu/emacs/local-lisp:/gd/gnu/emacs/lisp
+LISPPATH=/home/gd/gnu/emacs/local-lisp:/home/gd/gnu/emacs/lisp
 
 # Emacs will look here for its architecture-independent files (like
 # the tutorial and the zippy database).
-DATADIR=/gd/gnu/emacs/share-lib
+DATADIR=/home/gd/gnu/emacs/etc
 
 # Emacs will look here for its architecture-dependent files, like
 # executables for its utilities.
-LIBDIR=/gd/gnu/emacs/arch-lib
+LIBDIR=/home/gd/gnu/emacs/arch-lib
 
 # The locking directory, where the Emacs locking code keeps track of
 # which files are currently being edited.
-LOCKDIR=/gd/gnu/emacs/lock
+LOCKDIR=/home/gd/gnu/emacs/lock
 
 # This is where the `install' make target should place the man pages
 # for the binaries it installs.
@@ -64,7 +64,7 @@ MFLAGS=
 SUBDIR= lib-src src
 
 # Subdirectories to install
-COPYDIR= arch-lib share-lib info lisp
+COPYDIR= arch-lib etc info lisp
 
 # Subdirectories to clean
 CLEANDIR= ${COPYDIR} lisp/term
@@ -76,7 +76,8 @@ src/paths.h: Makefile src/paths.h-dist
        -e 's;\(#.*PATH_LOADSEARCH\).*$$;\1 "$(LISPPATH)";'             \
        -e 's;\(#.*PATH_EXEC\).*$$;\1 "$(LIBDIR)";'                     \
        -e 's;\(#.*PATH_DATA\).*$$;\1 "$(DATADIR)";'                    \
-       -e 's;\(#.*LOCK\).*$$;\1 "$(LOCKDIR)/";'
+       -e 's;\(#.*PATH_LOCK\).*$$;\1 "$(LOCKDIR)/";'                   \
+       -e 's;\(#.*PATH_SUPERLOCK\).*$$;\1 "$(LOCKDIR)/!!!SuperLock!!!";'
 
 src:   lib-src
 
@@ -99,7 +100,7 @@ install: all mkdir lockdir
        install -c -s arch-lib/etags ${INSTALLBIN}/etags
        install -c -s arch-lib/ctags ${INSTALLBIN}/ctags
        install -c -s -m 1755 src/xemacs ${INSTALLBIN}/xemacs
-       install -c -m 444 share-lib/emacs.1 ${MANDIR}/emacs.1
+       install -c -m 444 etc/emacs.1 ${MANDIR}/emacs.1
        -rm -f ${INSTALLBIN}/emacs
        mv ${INSTALLBIN}/xemacs ${INSTALLBIN}/emacs
 
@@ -116,7 +117,7 @@ install.sysv: all mkdir lockdir
        -cpset arch-lib/emacsclient ${INSTALLBIN}/emacsclient 755 bin bin
        -cpset arch-lib/etags ${INSTALLBIN}/etags 755 bin bin
        -cpset arch-lib/ctags ${INSTALLBIN}/ctags 755 bin bin
-       -cpset share-lib/emacs.1 ${MANDIR}/emacs.1 444 bin bin
+       -cpset etc/emacs.1 ${MANDIR}/emacs.1 444 bin bin
        -/bin/rm -f ${INSTALLBIN}/emacs
        -cpset src/xemacs ${INSTALLBIN}/emacs 1755 bin bin
   
@@ -132,7 +133,7 @@ install.xenix: all mkdir lockdir
        fi
        cp arch-lib/etags arch-lib/ctags arch-lib/emacsclient ${INSTALLBIN}
        chmod 755 ${INSTALLBIN}/etags ${INSTALLBIN}/ctags ${INSTALLBIN}/emacsclient
-       cp share-lib/emacs.1 ${MANDIR}/emacs.1
+       cp etc/emacs.1 ${MANDIR}/emacs.1
        chmod 444 ${MANDIR}/emacs.1
        -mv -f ${INSTALLBIN}/emacs ${INSTALLBIN}/emacs.old
        cp src/xemacs ${INSTALLBIN}/emacs

diff --git a/build-ins.in b/build-ins.in
index 191b5ec..778c822 100755 (executable)
--- a/build-ins.in
+++ b/build-ins.in
@@ -7,27 +7,27 @@
 # libaries.  The default definitions for the variables below are
 # expressed in terms of this one, so you may not need to change them.
 # set LIBROOT=/usr/local/lib/emacs-19.0
-LIBROOT=/gd/gnu/emacs
+LIBROOT=/home/gd/gnu/emacs
 
 # Emacs will search this path to find its elisp files.  This should be
 # a colon-separated list of directories.  Strictly speaking, all the
 # elisp files should go under DATADIR (below), since both elisp source
 # and compiled elisp are completely portable, but it's traditional to
 # give the lisp files their own subdirectory.
-LISPPATH=/gd/gnu/emacs/local-lisp:/gd/gnu/emacs/lisp
+LISPPATH=/home/gd/gnu/emacs/local-lisp:/home/gd/gnu/emacs/lisp
 
 # Emacs will look here for its architecture-independent files (like
 # the tutorial and the zippy database).
-DATADIR=/gd/gnu/emacs/share-lib
+DATADIR=/home/gd/gnu/emacs/etc
 
 # Emacs will look here for its architecture-dependent files, like
 # executables for its utilities.
-LIBDIR=/gd/gnu/emacs/arch-lib
+LIBDIR=/home/gd/gnu/emacs/arch-lib
 
 # The locking directory, where the Emacs locking code keeps track of
 # which files are currently being edited.
 # set LOCKDIR=${LIBROOT}/lock
-LOCKDIR=/gd/gnu/emacs/lock
+LOCKDIR=/home/gd/gnu/emacs/lock
 
 # This is where build-install should place the binaries people will
 # want to run directly (like etags and Emacs itself).

diff --git a/etc/MACHINES b/etc/MACHINES
index 5173b5f..c008dcf 100644 (file)
--- a/etc/MACHINES
+++ b/etc/MACHINES
@@ -2,7 +2,7 @@ This is a list of the status of GNU Emacs on various machines and systems.
 Last updated 10 Feb 1992.
 
 For each system and machine, we give the `-opsystem' and `-machine'
-options you should pass to config.emacs to prepare to build Emacs for
+options you should pass to configure to prepare to build Emacs for
 that system/machine.
 
 These options tell Emacs which machine- and system-descriptive files
@@ -128,7 +128,7 @@ Xenix
   If you want Emacs to work with Smail (installed as /usr/bin/smail)
   then add the line   #define SMAIL  to config.h.
 
-  The file share-lib/XENIX suggests some useful things to do to Xenix
+  The file etc/XENIX suggests some useful things to do to Xenix
   to make the Emacs meta key work.
 \f
 Machines:
@@ -668,7 +668,7 @@ Sun 1, 2 and 3 (-machine=sun1, -machine=sun2, -machine=sun3;
 
   For SunOS release 4 on a Sun 3, use -machine=sun3 and
   -opsystem=sunos4-0 or -opsystem=sunos4-1.
-  See the file share-lib/SUNBUG for how to solve problems caused by
+  See the file etc/SUNBUG for how to solve problems caused by
   bugs in the "export" version of SunOS 4.
 
   If you have trouble using open-network-stream, get the
@@ -707,7 +707,7 @@ Sun 4 (-machine=sparc;
 
   Use -opsystem=sunos4-0 for operating system version 4.0, and
   -opsystem=sunos4-1 for later versions.
-  See the file share-lib/SUNBUG for how to solve problems caused by
+  See the file etc/SUNBUG for how to solve problems caused by
   bugs in the "export" version of SunOS 4.
 
 Sun Roadrunner (-machine=sun386; -opsystem=sunos4-0 or -opsystem=sunos4-1)

diff --git a/lib-src/movemail.c b/lib-src/movemail.c
index d129478..de766e6 100644 (file)
--- a/lib-src/movemail.c
+++ b/lib-src/movemail.c
@@ -96,7 +96,6 @@ main (argc, argv)
 {
   char *inname, *outname;
   int indesc, outdesc;
-  char buf[1024];
   int nread;
 
 #ifndef MAIL_USE_FLOCK
@@ -182,8 +181,7 @@ main (argc, argv)
      to bug-gnu-emacs@prep.ai.mit.edu so we can fix it.  */
 
   lockname = concat (inname, ".lock", "");
-  tempname = (char *) xmalloc (strlen (inname) + 20);
-  strcpy (tempname, inname);
+  tempname = strcpy (xmalloc (strlen (inname)+1), inname);
   p = tempname + strlen (tempname);
   while (p != tempname && p[-1] != '/')
     p--;
@@ -249,19 +247,23 @@ main (argc, argv)
 #endif
 #endif /* MAIL_USE_FLOCK */
 
-  while (1)
-    {
-      nread = read (indesc, buf, sizeof buf);
-      if (nread != write (outdesc, buf, nread))
-       {
-         int saved_errno = errno;
-         unlink (outname);
-         errno = saved_errno;
-         pfatal_with_name (outname);
-       }
-      if (nread < sizeof buf)
-       break;
-    }
+  {
+    char buf[1024];
+
+    while (1)
+      {
+       nread = read (indesc, buf, sizeof buf);
+       if (nread != write (outdesc, buf, nread))
+         {
+           int saved_errno = errno;
+           unlink (outname);
+           errno = saved_errno;
+           pfatal_with_name (outname);
+         }
+       if (nread < sizeof buf)
+         break;
+      }
+  }
 
 #ifdef BSD
   if (fsync (outdesc) < 0)

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 633a65e..a94f4d6 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -1,6 +1,6 @@
 ;;Load up standardly loaded Lisp files for Emacs.
 ;; This is loaded into a bare Emacs to make a dumpable one.
-;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -94,8 +94,8 @@
        (setq name (concat (downcase (substring name 0 (match-beginning 0)))
                           "-"
                           (substring name (match-end 0)))))
-      (copy-file (expand-file-name "../share-lib/DOC")
-                (concat (expand-file-name "../share-lib/DOC-") name)
+      (copy-file (expand-file-name "../etc/DOC")
+                (concat (expand-file-name "../etc/DOC-") name)
                 t)
       (Snarf-documentation (concat "DOC-" name)))
     (Snarf-documentation "DOC"))

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 24824df..2a7f21d 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -447,7 +447,7 @@ the user from the mailer."
   (let (end
        (case-fold-search t))
     (goto-char (point-min))
-    (search-forward (concat "^" mail-header-separator "\n"))
+    (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
     (setq end (match-beginning 0))
     (goto-char (point-min))
     (if (re-search-forward (concat "^" (regexp-quote field) ":") end t)
@@ -459,7 +459,8 @@ the user from the mailer."
       (or soft
          (progn (goto-char end)
                 (skip-chars-backward "\n")
-                (insert "\n" field ": ")))
+                (insert field ": \n")
+                (skip-chars-backward "\n")))
       nil)))
 
 (defun mail-text ()

diff --git a/src/config.in b/src/config.in
index f4d5397..be3cc0d 100644 (file)
--- a/src/config.in
+++ b/src/config.in
@@ -95,14 +95,14 @@ and this notice must be preserved on all copies.  */
 
 /* The configuration script links system.h to a s- file that describes
    the system type you are using.
-   See the file ../share-lib/MACHINES for a list of systems and
+   See the file ../etc/MACHINES for a list of systems and
    the names of the s- files to use for them.
    See s-template.h for documentation on writing s- files.  */
 #include "@opsystem@"
 
 /* The configuration script links machine.h to a m- file that
    describes the machine and system you use.
-   See the file ../share-lib/MACHINES for a list of machines and
+   See the file ../etc/MACHINES for a list of machines and
    the names of the m- files to use for them.
    See m-template.h for info on what m- files should define.  */
 #include "@machine@"

diff --git a/src/doc.c b/src/doc.c
index a907118..48f6c4d 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -102,8 +102,8 @@ get_doc_string (filepos)
 }
 
 DEFUN ("documentation", Fdocumentation, Sdocumentation, 1, 2, 0,
-  "Return the documentation string of FUNCTION.
-Unless a non-nil second argument is given, the
+  "Return the documentation string of FUNCTION.\n\
+Unless a non-nil second argument is given, the\n\
 string is passed through `substitute-command-keys'.")
   (fun1, raw)
      Lisp_Object fun1, raw;
@@ -182,7 +182,7 @@ subcommands.)");
 DEFUN ("documentation-property", Fdocumentation_property, Sdocumentation_property, 2, 2, 0,
   "Return the documentation string that is SYMBOL's PROP property.\n\
 This is like `get', but it can refer to strings stored in the\n\
-`share-lib/DOC' file; and if the value is a string, it is passed through\n\
+`etc/DOC' file; and if the value is a string, it is passed through\n\
 `substitute-command-keys'.  A non-nil third argument avoids this\n\
 translation.")
   (sym, prop, raw)
@@ -201,10 +201,10 @@ translation.")
 DEFUN ("Snarf-documentation", Fsnarf_documentation, Ssnarf_documentation,
   1, 1, 0,
   "Used during Emacs initialization, before dumping runnable Emacs,\n\
-to find pointers to doc strings stored in `share-lib/DOC...' and\n\
+to find pointers to doc strings stored in `etc/DOC...' and\n\
 record them in function definitions.\n\
 One arg, FILENAME, a string which does not include a directory.\n\
-The file is found in `../share-lib' now; found in the `data-directory'\n\
+The file is found in `../etc' now; found in the `data-directory'\n\
 when doc strings are referred to later in the dumped Emacs.")
   (filename)
      Lisp_Object filename;
@@ -222,7 +222,7 @@ when doc strings are referred to later in the dumped Emacs.")
 
 #ifndef CANNOT_DUMP
   name = (char *) alloca (XSTRING (filename)->size + 14);
-  strcpy (name, "../share-lib/");
+  strcpy (name, "../etc/");
 #else /* CANNOT_DUMP */
   CHECK_STRING (Vdata_directory, 0);
   name = (char *) alloca (XSTRING (filename)->size +

diff --git a/src/eval.c b/src/eval.c
index a030ff8..c4fcc80 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -624,6 +624,10 @@ Each VALUEFORM can refer to the symbols already bound by this VARLIST.")
       elt = Fcar (varlist);
       if (XTYPE (elt) == Lisp_Symbol)
        specbind (elt, Qnil);
+      else if (! NILP (Fcdr (Fcdr (elt))))
+       Fsignal (Qerror,
+                Fcons (build_string ("`let' bindings can have only one value-form"),
+                       elt));
       else
        {
          val = Feval (Fcar (Fcdr (elt)));
@@ -668,6 +672,10 @@ All the VALUEFORMs are evalled before any symbols are bound.")
       elt = Fcar (varlist);
       if (XTYPE (elt) == Lisp_Symbol)
        temps [argnum++] = Qnil;
+      else if (! NILP (Fcdr (Fcdr (elt))))
+       Fsignal (Qerror,
+                Fcons (build_string ("`let' bindings can have only one value-form"),
+                       elt));
       else
        temps [argnum++] = Feval (Fcar (Fcdr (elt)));
       gcpro2.nvars = argnum;
@@ -1499,8 +1507,11 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
          goto done;
 
        default:
-         error ("Ffuncall doesn't handle that number of arguments.");
-         goto done;
+         /* Someone has created a subr that takes more arguments than
+            is supported by this code.  We need to either rewrite the
+            subr to use a different argument protocol, or add more
+            cases to this switch.  */
+         abort ();
        }
     }
   if (XTYPE (fun) == Lisp_Compiled)

diff --git a/src/lread.c b/src/lread.c
index 2a8c47e..5a5c106 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1,5 +1,5 @@
 /* Lisp parsing and input streams.
-   Copyright (C) 1985, 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1989, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -858,7 +858,7 @@ read1 (readcharfun)
 
        /* If purifying, and string starts with \ newline,
           return zero instead.  This is for doc strings
-          that we are really going to find in share-lib/DOC.nn.nn  */
+          that we are really going to find in etc/DOC.nn.nn  */
        if (!NILP (Vpurify_flag) && NILP (Vdoc_file_name) && cancel)
          return make_number (0);
 

diff --git a/src/process.c b/src/process.c
index 018adf1..1bdc27b 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -2794,7 +2794,7 @@ init_process ()
       proc_buffered_char[i] = -1;
     }
 }
-#ifdef 0
+#if 0
 DEFUN ("process-connection", Fprocess_connection, Sprocess_connection, 0, 1, 0,
  "Return the connection type of `PROCESS'.  This can be nil (pipe),\n\
 t or pty (pty) or stream (socket connection).")