diff options
| author | Eli Zaretskii | 2024-02-24 06:35:16 -0500 |
|---|---|---|
| committer | Eli Zaretskii | 2024-02-24 06:35:16 -0500 |
| commit | 229b3edb072de490f458cf986bf34bc1ffc87837 (patch) | |
| tree | d148b6d64bbda32d2929f24b2f96b390f61a0248 | |
| parent | eeb89a5cb292bffe40ba7d0b0cf81f82f8452bf8 (diff) | |
| parent | 01ebc95114fe89ef623bc7ebdd3c3e1b9ef06b4e (diff) | |
| download | emacs-229b3edb072de490f458cf986bf34bc1ffc87837.tar.gz emacs-229b3edb072de490f458cf986bf34bc1ffc87837.zip | |
Merge from origin/emacs-29
01ebc95114f Fix 'help-quick-toggle'
afe49c7e2a2 ; * admin/authors.el (authors-aliases): Fix last change.
8b1f10f8cf4 ; Normalize Morgan Smith's attributions.
70cf4b694b3 ; * etc/PROBLEMS: Describe input lags due to GTK IM (bug#...
f28a557c7d4 * doc/lispref/modes.texi (Tabulated List Mode): Update.
d6131b5902a * lisp/net/tramp.el (tramp-methods): Fix typo in docstrin...
2eb85a9de1a ; * lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Ano...
4c6653f23ae ; * lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Doc...
5a64d2c7595 java-ts-mode: Indentation for opening brace on a separate...
9e56bd5ed87 Removed decommissioned PGP keyservers
e56f0ef51bf org: Fix security prompt for downloading remote resource
65ba3274652 Revert "Update to Org 9.6.19"
07a392f445e Update to Org 9.6.19
| -rw-r--r-- | .mailmap | 2 | ||||
| -rw-r--r-- | admin/authors.el | 3 | ||||
| -rw-r--r-- | doc/lispref/modes.texi | 9 | ||||
| -rw-r--r-- | etc/PROBLEMS | 15 | ||||
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 8 | ||||
| -rw-r--r-- | lisp/epa-ks.el | 3 | ||||
| -rw-r--r-- | lisp/help.el | 12 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 4 | ||||
| -rw-r--r-- | lisp/org/org.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/java-ts-mode.el | 13 | ||||
| -rw-r--r-- | test/lisp/progmodes/java-ts-mode-resources/indent.erts | 31 |
11 files changed, 82 insertions, 20 deletions
| @@ -129,7 +129,7 @@ Maxim Nikulin <manikulin@gmail.com> | |||
| 129 | Michael Albinus <michael.albinus@gmx.de> <albinus@detlef> | 129 | Michael Albinus <michael.albinus@gmx.de> <albinus@detlef> |
| 130 | Michalis V <mvar.40k@gmail.com> | 130 | Michalis V <mvar.40k@gmail.com> |
| 131 | Miha Rihtaršič <miha@kamnitnik.top> | 131 | Miha Rihtaršič <miha@kamnitnik.top> |
| 132 | Morgan J. Smith <Morgan.J.Smith@outlook.com> | 132 | Morgan Smith <Morgan.J.Smith@outlook.com> |
| 133 | Nick Drozd <nicholasdrozd@gmail.com> | 133 | Nick Drozd <nicholasdrozd@gmail.com> |
| 134 | Nicolas Petton <nicolas@petton.fr> <petton.nicolas@gmail.com> | 134 | Nicolas Petton <nicolas@petton.fr> <petton.nicolas@gmail.com> |
| 135 | Nitish Chandra <nitishchandrachinta@gmail.com> | 135 | Nitish Chandra <nitishchandrachinta@gmail.com> |
diff --git a/admin/authors.el b/admin/authors.el index 6c74f4dd7a1..8ea6064423f 100644 --- a/admin/authors.el +++ b/admin/authors.el | |||
| @@ -175,6 +175,9 @@ files.") | |||
| 175 | ("Michalis V" "^mvar") | 175 | ("Michalis V" "^mvar") |
| 176 | ("Miha Rihtaršič" "Miha Rihtarsic") | 176 | ("Miha Rihtaršič" "Miha Rihtarsic") |
| 177 | ("Mikio Nakajima" "Nakajima Mikio") | 177 | ("Mikio Nakajima" "Nakajima Mikio") |
| 178 | (nil "montag451@laposte\\.net") | ||
| 179 | (nil "na@aisrntairetnraoitn") | ||
| 180 | ("Morgan Smith" "Morgan J\\. Smith") | ||
| 178 | ("Nelson Jose dos Santos Ferreira" "Nelson Ferreira") | 181 | ("Nelson Jose dos Santos Ferreira" "Nelson Ferreira") |
| 179 | ("Noah Peart" "noah\\.v\\.peart@gmail\\.com") | 182 | ("Noah Peart" "noah\\.v\\.peart@gmail\\.com") |
| 180 | ("Noorul Islam" "Noorul Islam K M") | 183 | ("Noorul Islam" "Noorul Islam K M") |
diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi index 70d1a40f836..630e42e6878 100644 --- a/doc/lispref/modes.texi +++ b/doc/lispref/modes.texi | |||
| @@ -1189,7 +1189,7 @@ column is sorted in the descending order. | |||
| 1189 | This buffer-local variable specifies the format of the Tabulated List | 1189 | This buffer-local variable specifies the format of the Tabulated List |
| 1190 | data. Its value should be a vector. Each element of the vector | 1190 | data. Its value should be a vector. Each element of the vector |
| 1191 | represents a data column, and should be a list @code{(@var{name} | 1191 | represents a data column, and should be a list @code{(@var{name} |
| 1192 | @var{width} @var{sort})}, where | 1192 | @var{width} @var{sort} . @var{props})}, where |
| 1193 | 1193 | ||
| 1194 | @itemize | 1194 | @itemize |
| 1195 | @item | 1195 | @item |
| @@ -1206,6 +1206,13 @@ sorted by comparing string values. Otherwise, this should be a | |||
| 1206 | predicate function for @code{sort} (@pxref{Rearrangement}), which | 1206 | predicate function for @code{sort} (@pxref{Rearrangement}), which |
| 1207 | accepts two arguments with the same form as the elements of | 1207 | accepts two arguments with the same form as the elements of |
| 1208 | @code{tabulated-list-entries} (see below). | 1208 | @code{tabulated-list-entries} (see below). |
| 1209 | |||
| 1210 | @item | ||
| 1211 | @var{props} is a plist (@pxref{Property Lists}) of additional column | ||
| 1212 | properties. If the value of the property @code{:right-align} is | ||
| 1213 | non-@code{nil} then the column should be right-aligned. And the | ||
| 1214 | property @code{:pad-right} specifies the number of additional padding | ||
| 1215 | spaces to the right of the column (by default 1 if omitted). | ||
| 1209 | @end itemize | 1216 | @end itemize |
| 1210 | @end defvar | 1217 | @end defvar |
| 1211 | 1218 | ||
diff --git a/etc/PROBLEMS b/etc/PROBLEMS index d3c7e17b2f1..19456640299 100644 --- a/etc/PROBLEMS +++ b/etc/PROBLEMS | |||
| @@ -432,7 +432,7 @@ than the corresponding .el file. | |||
| 432 | Alternatively, if you set the option 'load-prefer-newer' non-nil, | 432 | Alternatively, if you set the option 'load-prefer-newer' non-nil, |
| 433 | Emacs will load whichever version of a file is the newest. | 433 | Emacs will load whichever version of a file is the newest. |
| 434 | 434 | ||
| 435 | *** Watch out for the EMACSLOADPATH environment variable | 435 | *** Watch out for the EMACSLOADPATH environment variable. |
| 436 | 436 | ||
| 437 | EMACSLOADPATH overrides which directories the function "load" will search. | 437 | EMACSLOADPATH overrides which directories the function "load" will search. |
| 438 | 438 | ||
| @@ -441,7 +441,7 @@ environment. | |||
| 441 | 441 | ||
| 442 | ** Keyboard problems | 442 | ** Keyboard problems |
| 443 | 443 | ||
| 444 | *** PGTK build of Emacs running on Wayland doesn't recognize Hyper modifier | 444 | *** PGTK build of Emacs running on Wayland doesn't recognize Hyper modifier. |
| 445 | 445 | ||
| 446 | If you arrange for the Wayland compositor to send the Hyper key | 446 | If you arrange for the Wayland compositor to send the Hyper key |
| 447 | modifier (e.g., via XKB customizations), the Hyper modifier will still | 447 | modifier (e.g., via XKB customizations), the Hyper modifier will still |
| @@ -452,6 +452,17 @@ Since GDK 3.x is no longer developed, this bug in GDK will probably | |||
| 452 | never be solved. And the Emacs PGTK build cannot yet support GTK4, | 452 | never be solved. And the Emacs PGTK build cannot yet support GTK4, |
| 453 | where this problem is reportedly solved. | 453 | where this problem is reportedly solved. |
| 454 | 454 | ||
| 455 | *** Emacs built with GTK lags in its response to keyboard input. | ||
| 456 | This can happen when input methods are used. It happens because Emacs | ||
| 457 | behaves in an unconventional way with respect to GTK input methods: it | ||
| 458 | registers to receive keyboard input as unprocessed key events with | ||
| 459 | metadata (as opposed to receiving them as text strings). Most GTK | ||
| 460 | programs use the latter approach, so some modern input methods have | ||
| 461 | bugs and misbehave when faced with the way Emacs does it. | ||
| 462 | |||
| 463 | A workaround is to set GTK_IM_MODULE=none in the environment, or maybe | ||
| 464 | find a different input method without these problems. | ||
| 465 | |||
| 455 | *** Unable to enter the M-| key on some German keyboards. | 466 | *** Unable to enter the M-| key on some German keyboards. |
| 456 | Some users have reported that M-| suffers from "keyboard ghosting". | 467 | Some users have reported that M-| suffers from "keyboard ghosting". |
| 457 | This can't be fixed by Emacs, as the keypress never gets passed to it | 468 | This can't be fixed by Emacs, as the keypress never gets passed to it |
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index ae9bd87997c..40d917795e3 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el | |||
| @@ -285,8 +285,8 @@ As with `pcase-let', BINDINGS are of the form (PATTERN EXP), but the | |||
| 285 | EXP in each binding in BINDINGS can use the results of the destructuring | 285 | EXP in each binding in BINDINGS can use the results of the destructuring |
| 286 | bindings that precede it in BINDINGS' order. | 286 | bindings that precede it in BINDINGS' order. |
| 287 | 287 | ||
| 288 | Each EXP should match (i.e. be of compatible structure) to its | 288 | Each EXP should match its respective PATTERN (i.e. be of structure |
| 289 | respective PATTERN; a mismatch may signal an error or may go | 289 | compatible to PATTERN); a mismatch may signal an error or may go |
| 290 | undetected, binding variables to arbitrary values, such as nil." | 290 | undetected, binding variables to arbitrary values, such as nil." |
| 291 | (declare (indent 1) | 291 | (declare (indent 1) |
| 292 | (debug ((&rest (pcase-PAT &optional form)) body))) | 292 | (debug ((&rest (pcase-PAT &optional form)) body))) |
| @@ -307,8 +307,8 @@ All EXPs are evaluated first, and then used to perform destructuring | |||
| 307 | bindings by matching each EXP against its respective PATTERN. Then | 307 | bindings by matching each EXP against its respective PATTERN. Then |
| 308 | BODY is evaluated with those bindings in effect. | 308 | BODY is evaluated with those bindings in effect. |
| 309 | 309 | ||
| 310 | Each EXP should match (i.e. be of compatible structure) to its | 310 | Each EXP should match its respective PATTERN (i.e. be of structure |
| 311 | respective PATTERN; a mismatch may signal an error or may go | 311 | compatible to PATTERN); a mismatch may signal an error or may go |
| 312 | undetected, binding variables to arbitrary values, such as nil." | 312 | undetected, binding variables to arbitrary values, such as nil." |
| 313 | (declare (indent 1) (debug pcase-let*)) | 313 | (declare (indent 1) (debug pcase-let*)) |
| 314 | (if (null (cdr bindings)) | 314 | (if (null (cdr bindings)) |
diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el index c3c11bb0b0b..13840da0bd9 100644 --- a/lisp/epa-ks.el +++ b/lisp/epa-ks.el | |||
| @@ -47,11 +47,8 @@ This is used by `epa-search-keys', for looking up public keys." | |||
| 47 | (repeat :tag "Random pool" | 47 | (repeat :tag "Random pool" |
| 48 | (string :tag "Keyserver address")) | 48 | (string :tag "Keyserver address")) |
| 49 | (const "keyring.debian.org") | 49 | (const "keyring.debian.org") |
| 50 | (const "keys.gnupg.net") | ||
| 51 | (const "keyserver.ubuntu.com") | 50 | (const "keyserver.ubuntu.com") |
| 52 | (const "pgp.mit.edu") | 51 | (const "pgp.mit.edu") |
| 53 | (const "pool.sks-keyservers.net") | ||
| 54 | (const "zimmermann.mayfirst.org") | ||
| 55 | (string :tag "Custom keyserver")) | 52 | (string :tag "Custom keyserver")) |
| 56 | :version "28.1") | 53 | :version "28.1") |
| 57 | 54 | ||
diff --git a/lisp/help.el b/lisp/help.el index 07eed2861c2..c6a1e3c6bd9 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -151,7 +151,7 @@ buffer.") | |||
| 151 | ("Mark & Kill" | 151 | ("Mark & Kill" |
| 152 | (set-mark-command . "mark") | 152 | (set-mark-command . "mark") |
| 153 | (kill-line . "kill line") | 153 | (kill-line . "kill line") |
| 154 | (kill-ring-save . "kill region") | 154 | (kill-region . "kill region") |
| 155 | (yank . "yank") | 155 | (yank . "yank") |
| 156 | (exchange-point-and-mark . "swap")) | 156 | (exchange-point-and-mark . "swap")) |
| 157 | ("Projects" | 157 | ("Projects" |
| @@ -165,7 +165,15 @@ buffer.") | |||
| 165 | (isearch-forward . "search") | 165 | (isearch-forward . "search") |
| 166 | (isearch-backward . "reverse search") | 166 | (isearch-backward . "reverse search") |
| 167 | (query-replace . "search & replace") | 167 | (query-replace . "search & replace") |
| 168 | (fill-paragraph . "reformat")))) | 168 | (fill-paragraph . "reformat"))) |
| 169 | "Data structure for `help-quick'. | ||
| 170 | Value should be a list of elements, each element should of the form | ||
| 171 | |||
| 172 | (GROUP-NAME (COMMAND . DESCRIPTION) (COMMAND . DESCRIPTION)...) | ||
| 173 | |||
| 174 | where GROUP-NAME is the name of the group of the commands, | ||
| 175 | COMMAND is the symbol of a command and DESCRIPTION is its short | ||
| 176 | description, 10 to 15 char5acters at most.") | ||
| 169 | 177 | ||
| 170 | (declare-function prop-match-value "text-property-search" (match)) | 178 | (declare-function prop-match-value "text-property-search" (match)) |
| 171 | 179 | ||
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index e6d6eb0ee66..5b101000926 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -324,8 +324,8 @@ pair of the form (KEY VALUE). The following KEYs are defined: | |||
| 324 | chosen port for the remote listener. | 324 | chosen port for the remote listener. |
| 325 | 325 | ||
| 326 | * `tramp-copy-keep-date' | 326 | * `tramp-copy-keep-date' |
| 327 | This specifies whether the copying program when the preserves the | 327 | This specifies whether the copying program preserves the timestamp |
| 328 | timestamp of the original file. | 328 | of the original file. |
| 329 | 329 | ||
| 330 | * `tramp-copy-keep-tmpfile' | 330 | * `tramp-copy-keep-tmpfile' |
| 331 | This specifies whether a temporary local file shall be kept | 331 | This specifies whether a temporary local file shall be kept |
diff --git a/lisp/org/org.el b/lisp/org/org.el index 2c5de69a36c..d361408eaca 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -4685,7 +4685,7 @@ returns non-nil if any of them match." | |||
| 4685 | (if (and (= char ?f) current-file) | 4685 | (if (and (= char ?f) current-file) |
| 4686 | (concat "file://" current-file) uri)) | 4686 | (concat "file://" current-file) uri)) |
| 4687 | "\\'"))))) | 4687 | "\\'"))))) |
| 4688 | (prog1 (memq char '(?y ?n ?! ?d ?\s ?f)) | 4688 | (prog1 (memq char '(?y ?! ?d ?\s ?f)) |
| 4689 | (quit-window t))))))) | 4689 | (quit-window t))))))) |
| 4690 | 4690 | ||
| 4691 | (defun org-extract-log-state-settings (x) | 4691 | (defun org-extract-log-state-settings (x) |
diff --git a/lisp/progmodes/java-ts-mode.el b/lisp/progmodes/java-ts-mode.el index 0b1ac49b99f..00d7d0d75a1 100644 --- a/lisp/progmodes/java-ts-mode.el +++ b/lisp/progmodes/java-ts-mode.el | |||
| @@ -74,7 +74,12 @@ | |||
| 74 | ((parent-is "program") column-0 0) | 74 | ((parent-is "program") column-0 0) |
| 75 | ((match "}" "element_value_array_initializer") | 75 | ((match "}" "element_value_array_initializer") |
| 76 | parent-bol 0) | 76 | parent-bol 0) |
| 77 | ((node-is "}") column-0 c-ts-common-statement-offset) | 77 | ((node-is |
| 78 | ,(format "\\`%s\\'" | ||
| 79 | (regexp-opt '("constructor_body" "class_body" "interface_body" | ||
| 80 | "block" "switch_block" "array_initializer")))) | ||
| 81 | parent-bol 0) | ||
| 82 | ((node-is "}") standalone-parent 0) | ||
| 78 | ((node-is ")") parent-bol 0) | 83 | ((node-is ")") parent-bol 0) |
| 79 | ((node-is "else") parent-bol 0) | 84 | ((node-is "else") parent-bol 0) |
| 80 | ((node-is "]") parent-bol 0) | 85 | ((node-is "]") parent-bol 0) |
| @@ -86,10 +91,10 @@ | |||
| 86 | ((parent-is "array_initializer") parent-bol java-ts-mode-indent-offset) | 91 | ((parent-is "array_initializer") parent-bol java-ts-mode-indent-offset) |
| 87 | ((parent-is "annotation_type_body") column-0 c-ts-common-statement-offset) | 92 | ((parent-is "annotation_type_body") column-0 c-ts-common-statement-offset) |
| 88 | ((parent-is "interface_body") column-0 c-ts-common-statement-offset) | 93 | ((parent-is "interface_body") column-0 c-ts-common-statement-offset) |
| 89 | ((parent-is "constructor_body") column-0 c-ts-common-statement-offset) | 94 | ((parent-is "constructor_body") standalone-parent java-ts-mode-indent-offset) |
| 90 | ((parent-is "enum_body_declarations") parent-bol 0) | 95 | ((parent-is "enum_body_declarations") parent-bol 0) |
| 91 | ((parent-is "enum_body") column-0 c-ts-common-statement-offset) | 96 | ((parent-is "enum_body") column-0 c-ts-common-statement-offset) |
| 92 | ((parent-is "switch_block") column-0 c-ts-common-statement-offset) | 97 | ((parent-is "switch_block") standalone-parent java-ts-mode-indent-offset) |
| 93 | ((parent-is "record_declaration_body") column-0 c-ts-common-statement-offset) | 98 | ((parent-is "record_declaration_body") column-0 c-ts-common-statement-offset) |
| 94 | ((query "(method_declaration (block _ @indent))") parent-bol java-ts-mode-indent-offset) | 99 | ((query "(method_declaration (block _ @indent))") parent-bol java-ts-mode-indent-offset) |
| 95 | ((query "(method_declaration (block (_) @indent))") parent-bol java-ts-mode-indent-offset) | 100 | ((query "(method_declaration (block (_) @indent))") parent-bol java-ts-mode-indent-offset) |
| @@ -125,7 +130,7 @@ | |||
| 125 | ((parent-is "case_statement") parent-bol java-ts-mode-indent-offset) | 130 | ((parent-is "case_statement") parent-bol java-ts-mode-indent-offset) |
| 126 | ((parent-is "labeled_statement") parent-bol java-ts-mode-indent-offset) | 131 | ((parent-is "labeled_statement") parent-bol java-ts-mode-indent-offset) |
| 127 | ((parent-is "do_statement") parent-bol java-ts-mode-indent-offset) | 132 | ((parent-is "do_statement") parent-bol java-ts-mode-indent-offset) |
| 128 | ((parent-is "block") column-0 c-ts-common-statement-offset))) | 133 | ((parent-is "block") standalone-parent java-ts-mode-indent-offset))) |
| 129 | "Tree-sitter indent rules.") | 134 | "Tree-sitter indent rules.") |
| 130 | 135 | ||
| 131 | (defvar java-ts-mode--keywords | 136 | (defvar java-ts-mode--keywords |
diff --git a/test/lisp/progmodes/java-ts-mode-resources/indent.erts b/test/lisp/progmodes/java-ts-mode-resources/indent.erts index 4fca74dd2e1..514d2e08977 100644 --- a/test/lisp/progmodes/java-ts-mode-resources/indent.erts +++ b/test/lisp/progmodes/java-ts-mode-resources/indent.erts | |||
| @@ -110,3 +110,34 @@ public class Java { | |||
| 110 | } | 110 | } |
| 111 | } | 111 | } |
| 112 | =-=-= | 112 | =-=-= |
| 113 | |||
| 114 | Name: Opening bracket on separate line (bug#67556) | ||
| 115 | |||
| 116 | =-= | ||
| 117 | public class Java { | ||
| 118 | void foo( | ||
| 119 | String foo) | ||
| 120 | { | ||
| 121 | for (var f : rs) | ||
| 122 | return new String[] | ||
| 123 | { | ||
| 124 | "foo", | ||
| 125 | "bar" | ||
| 126 | }; | ||
| 127 | if (a == 0) | ||
| 128 | { | ||
| 129 | return 0; | ||
| 130 | } else if (a == 1) | ||
| 131 | { | ||
| 132 | return 1; | ||
| 133 | } | ||
| 134 | |||
| 135 | switch(expr) | ||
| 136 | { | ||
| 137 | case x: | ||
| 138 | // code block | ||
| 139 | break; | ||
| 140 | } | ||
| 141 | } | ||
| 142 | } | ||
| 143 | =-=-= | ||