[Emacs-diffs] master 7bcb697 1/5: Merge from emacs-26

[Noam Postavsky]

branch: master
commit 7bcb697e198cb314980b93862a79e892009088c4
Merge: 3307353 65889a6
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Merge from emacs-26
    
    65889a6d12 Fix bootstrap infloop in GNU/Linux alpha
    48efd1c98b Minor fix of a recent documentation change
    3302b7cd7f Mention the NSM in the gnutls variable doc strings
    40c2ce743b Remove test code from last commit
    e02d8e29c6 Fix Bug#32084
    da5d6dbe39 Fix (length NON-SEQUENCE) documentation
---
 doc/lispref/sequences.texi  | 12 +++++++-----
 lisp/net/gnutls.el          | 27 ++++++++++++++++++++++++---
 src/emacs.c                 |  6 ++++--
 test/lisp/net/dbus-tests.el |  2 +-
 4 files changed, 36 insertions(+), 11 deletions(-)

diff --git a/doc/lispref/sequences.texi b/doc/lispref/sequences.texi
index 777b1cb..b98889e 100644
--- a/doc/lispref/sequences.texi
+++ b/doc/lispref/sequences.texi
@@ -71,13 +71,15 @@ string, bool-vector, or char-table, @code{nil} otherwise.
 @cindex list length
 @cindex vector length
 @cindex sequence length
address@hidden bool-vector length
 @cindex char-table length
 @anchor{Definition of length}
-This function returns the number of elements in @var{sequence}.  If
address@hidden is a dotted list, a @code{wrong-type-argument} error is
-signaled; if it is a circular list, a @code{circular-list} error is
-signaled.  For a char-table, the value returned is always one more
-than the maximum Emacs character code.
+This function returns the number of elements in @var{sequence}.  The
+function signals the @code{wrong-type-argument} error if the argument
+is not a sequence or is a dotted list; it signals the
address@hidden error if the argument is a circular list.  For a
+char-table, the value returned is always one more than the maximum
+Emacs character code.
 
 @xref{Definition of safe-length}, for the related function @code{safe-length}.
 
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el
index 09df019..315932b 100644
--- a/lisp/net/gnutls.el
+++ b/lisp/net/gnutls.el
@@ -47,7 +47,15 @@
 (defcustom gnutls-algorithm-priority nil
   "If non-nil, this should be a TLS priority string.
 For instance, if you want to skip the \"dhe-rsa\" algorithm,
-set this variable to \"normal:-dhe-rsa\"."
+set this variable to \"normal:-dhe-rsa\".
+
+This variable can be useful for modifying low-level TLS
+connection parameters (for instance if you need to connect to a
+host that only accepts a specific algorithm).  However, in
+general, Emacs network security is handled by the Network
+Security Manager (NSM), and the default value of nil delegates
+the job of checking the connection security to the NSM.
+See Info node `(emacs) Network Security'."
   :group 'gnutls
   :type '(choice (const nil)
                  string))
@@ -73,7 +81,13 @@ flags and the corresponding conditions to be tested are:
 If the condition test fails, an error will be signaled.
 
 If the value of this variable is t, every connection will be subjected
-to all of the tests described above."
+to all of the tests described above.
+
+The default value of this variable is nil, which means that no
+checks are performed at the gnutls level.  Instead the checks are
+performed via `open-network-stream' at a higher level by the
+Network Security Manager.  See Info node `(emacs) Network
+Security'."
   :group 'gnutls
   :version "24.4"
   :type '(choice
@@ -112,7 +126,14 @@ number with fewer than this number of bits, the handshake 
is
 rejected.  \(The smaller the prime number, the less secure the
 key exchange is against man-in-the-middle attacks.)
 
-A value of nil says to use the default GnuTLS value."
+A value of nil says to use the default GnuTLS value.
+
+The default value of this variable is such that virtually any
+connection can be established, whether this connection can be
+considered cryptographically \"safe\" or not.  However, Emacs
+network security is handled at a higher level via
+`open-network-stream' and the Network Security Manager.  See Info
+node `(emacs) Network Security'."
   :type '(choice (const :tag "Use default value" nil)
                  (integer :tag "Number of bits" 512))
   :group 'gnutls)
diff --git a/src/emacs.c b/src/emacs.c
index 8633e93..861d707 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -712,10 +712,12 @@ main (int argc, char **argv)
   bool disable_aslr = dumping;
 # endif
 
-  if (disable_aslr && disable_address_randomization ())
+  if (disable_aslr && disable_address_randomization ()
+      && !getenv ("EMACS_HEAP_EXEC"))
     {
       /* Set this so the personality will be reverted before execs
-        after this one.  */
+        after this one, and to work around an re-exec loop on buggy
+        kernels (Bug#32083).  */
       xputenv ("EMACS_HEAP_EXEC=true");
 
       /* Address randomization was enabled, but is now disabled.
diff --git a/test/lisp/net/dbus-tests.el b/test/lisp/net/dbus-tests.el
index 624d15e..1ada255 100644
--- a/test/lisp/net/dbus-tests.el
+++ b/test/lisp/net/dbus-tests.el
@@ -133,7 +133,7 @@ This includes initialization and closing the bus."
   ;; Start bus.
   (let ((output
         (ignore-errors
-          (shell-command-to-string "dbus-launch --sh-syntax")))
+          (shell-command-to-string "env DISPLAY= dbus-launch --sh-syntax")))
        bus pid)
     (skip-unless (stringp output))
     (when (string-match "DBUS_SESSION_BUS_ADDRESS='\\(.+\\)';" output)