diff options
| author | Noam Postavsky | 2018-07-09 20:03:30 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-07-09 20:03:30 -0400 |
| commit | 7bcb697e198cb314980b93862a79e892009088c4 (patch) | |
| tree | 17f30ba3b4aa4f1e4e31dde58139a5ec0ae82080 | |
| parent | 3307353e13a9226d477c9b1a39baae76584b90b9 (diff) | |
| parent | 65889a6d127fcbbbdc1e74d26036e91bd24d1405 (diff) | |
| download | emacs-7bcb697e198cb314980b93862a79e892009088c4.tar.gz emacs-7bcb697e198cb314980b93862a79e892009088c4.zip | |
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
| -rw-r--r-- | doc/lispref/sequences.texi | 12 | ||||
| -rw-r--r-- | lisp/net/gnutls.el | 27 | ||||
| -rw-r--r-- | src/emacs.c | 6 | ||||
| -rw-r--r-- | 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 777b1cbbffb..b98889eb099 100644 --- a/doc/lispref/sequences.texi +++ b/doc/lispref/sequences.texi | |||
| @@ -71,13 +71,15 @@ string, bool-vector, or char-table, @code{nil} otherwise. | |||
| 71 | @cindex list length | 71 | @cindex list length |
| 72 | @cindex vector length | 72 | @cindex vector length |
| 73 | @cindex sequence length | 73 | @cindex sequence length |
| 74 | @cindex bool-vector length | ||
| 74 | @cindex char-table length | 75 | @cindex char-table length |
| 75 | @anchor{Definition of length} | 76 | @anchor{Definition of length} |
| 76 | This function returns the number of elements in @var{sequence}. If | 77 | This function returns the number of elements in @var{sequence}. The |
| 77 | @var{sequence} is a dotted list, a @code{wrong-type-argument} error is | 78 | function signals the @code{wrong-type-argument} error if the argument |
| 78 | signaled; if it is a circular list, a @code{circular-list} error is | 79 | is not a sequence or is a dotted list; it signals the |
| 79 | signaled. For a char-table, the value returned is always one more | 80 | @code{circular-list} error if the argument is a circular list. For a |
| 80 | than the maximum Emacs character code. | 81 | char-table, the value returned is always one more than the maximum |
| 82 | Emacs character code. | ||
| 81 | 83 | ||
| 82 | @xref{Definition of safe-length}, for the related function @code{safe-length}. | 84 | @xref{Definition of safe-length}, for the related function @code{safe-length}. |
| 83 | 85 | ||
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index 09df019e2ec..315932b7e69 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el | |||
| @@ -47,7 +47,15 @@ | |||
| 47 | (defcustom gnutls-algorithm-priority nil | 47 | (defcustom gnutls-algorithm-priority nil |
| 48 | "If non-nil, this should be a TLS priority string. | 48 | "If non-nil, this should be a TLS priority string. |
| 49 | For instance, if you want to skip the \"dhe-rsa\" algorithm, | 49 | For instance, if you want to skip the \"dhe-rsa\" algorithm, |
| 50 | set this variable to \"normal:-dhe-rsa\"." | 50 | set this variable to \"normal:-dhe-rsa\". |
| 51 | |||
| 52 | This variable can be useful for modifying low-level TLS | ||
| 53 | connection parameters (for instance if you need to connect to a | ||
| 54 | host that only accepts a specific algorithm). However, in | ||
| 55 | general, Emacs network security is handled by the Network | ||
| 56 | Security Manager (NSM), and the default value of nil delegates | ||
| 57 | the job of checking the connection security to the NSM. | ||
| 58 | See Info node `(emacs) Network Security'." | ||
| 51 | :group 'gnutls | 59 | :group 'gnutls |
| 52 | :type '(choice (const nil) | 60 | :type '(choice (const nil) |
| 53 | string)) | 61 | string)) |
| @@ -73,7 +81,13 @@ flags and the corresponding conditions to be tested are: | |||
| 73 | If the condition test fails, an error will be signaled. | 81 | If the condition test fails, an error will be signaled. |
| 74 | 82 | ||
| 75 | If the value of this variable is t, every connection will be subjected | 83 | If the value of this variable is t, every connection will be subjected |
| 76 | to all of the tests described above." | 84 | to all of the tests described above. |
| 85 | |||
| 86 | The default value of this variable is nil, which means that no | ||
| 87 | checks are performed at the gnutls level. Instead the checks are | ||
| 88 | performed via `open-network-stream' at a higher level by the | ||
| 89 | Network Security Manager. See Info node `(emacs) Network | ||
| 90 | Security'." | ||
| 77 | :group 'gnutls | 91 | :group 'gnutls |
| 78 | :version "24.4" | 92 | :version "24.4" |
| 79 | :type '(choice | 93 | :type '(choice |
| @@ -112,7 +126,14 @@ number with fewer than this number of bits, the handshake is | |||
| 112 | rejected. \(The smaller the prime number, the less secure the | 126 | rejected. \(The smaller the prime number, the less secure the |
| 113 | key exchange is against man-in-the-middle attacks.) | 127 | key exchange is against man-in-the-middle attacks.) |
| 114 | 128 | ||
| 115 | A value of nil says to use the default GnuTLS value." | 129 | A value of nil says to use the default GnuTLS value. |
| 130 | |||
| 131 | The default value of this variable is such that virtually any | ||
| 132 | connection can be established, whether this connection can be | ||
| 133 | considered cryptographically \"safe\" or not. However, Emacs | ||
| 134 | network security is handled at a higher level via | ||
| 135 | `open-network-stream' and the Network Security Manager. See Info | ||
| 136 | node `(emacs) Network Security'." | ||
| 116 | :type '(choice (const :tag "Use default value" nil) | 137 | :type '(choice (const :tag "Use default value" nil) |
| 117 | (integer :tag "Number of bits" 512)) | 138 | (integer :tag "Number of bits" 512)) |
| 118 | :group 'gnutls) | 139 | :group 'gnutls) |
diff --git a/src/emacs.c b/src/emacs.c index 8633e934e51..861d70735ca 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -712,10 +712,12 @@ main (int argc, char **argv) | |||
| 712 | bool disable_aslr = dumping; | 712 | bool disable_aslr = dumping; |
| 713 | # endif | 713 | # endif |
| 714 | 714 | ||
| 715 | if (disable_aslr && disable_address_randomization ()) | 715 | if (disable_aslr && disable_address_randomization () |
| 716 | && !getenv ("EMACS_HEAP_EXEC")) | ||
| 716 | { | 717 | { |
| 717 | /* Set this so the personality will be reverted before execs | 718 | /* Set this so the personality will be reverted before execs |
| 718 | after this one. */ | 719 | after this one, and to work around an re-exec loop on buggy |
| 720 | kernels (Bug#32083). */ | ||
| 719 | xputenv ("EMACS_HEAP_EXEC=true"); | 721 | xputenv ("EMACS_HEAP_EXEC=true"); |
| 720 | 722 | ||
| 721 | /* Address randomization was enabled, but is now disabled. | 723 | /* 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 624d15ef5f1..1ada2552b85 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." | |||
| 133 | ;; Start bus. | 133 | ;; Start bus. |
| 134 | (let ((output | 134 | (let ((output |
| 135 | (ignore-errors | 135 | (ignore-errors |
| 136 | (shell-command-to-string "dbus-launch --sh-syntax"))) | 136 | (shell-command-to-string "env DISPLAY= dbus-launch --sh-syntax"))) |
| 137 | bus pid) | 137 | bus pid) |
| 138 | (skip-unless (stringp output)) | 138 | (skip-unless (stringp output)) |
| 139 | (when (string-match "DBUS_SESSION_BUS_ADDRESS='\\(.+\\)';" output) | 139 | (when (string-match "DBUS_SESSION_BUS_ADDRESS='\\(.+\\)';" output) |