aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2024-02-24 06:35:16 -0500
committerEli Zaretskii2024-02-24 06:35:16 -0500
commit229b3edb072de490f458cf986bf34bc1ffc87837 (patch)
treed148b6d64bbda32d2929f24b2f96b390f61a0248
parenteeb89a5cb292bffe40ba7d0b0cf81f82f8452bf8 (diff)
parent01ebc95114fe89ef623bc7ebdd3c3e1b9ef06b4e (diff)
downloademacs-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--.mailmap2
-rw-r--r--admin/authors.el3
-rw-r--r--doc/lispref/modes.texi9
-rw-r--r--etc/PROBLEMS15
-rw-r--r--lisp/emacs-lisp/pcase.el8
-rw-r--r--lisp/epa-ks.el3
-rw-r--r--lisp/help.el12
-rw-r--r--lisp/net/tramp.el4
-rw-r--r--lisp/org/org.el2
-rw-r--r--lisp/progmodes/java-ts-mode.el13
-rw-r--r--test/lisp/progmodes/java-ts-mode-resources/indent.erts31
11 files changed, 82 insertions, 20 deletions
diff --git a/.mailmap b/.mailmap
index 5e6ab5b8878..7c474fcdaf6 100644
--- a/.mailmap
+++ b/.mailmap
@@ -129,7 +129,7 @@ Maxim Nikulin <manikulin@gmail.com>
129Michael Albinus <michael.albinus@gmx.de> <albinus@detlef> 129Michael Albinus <michael.albinus@gmx.de> <albinus@detlef>
130Michalis V <mvar.40k@gmail.com> 130Michalis V <mvar.40k@gmail.com>
131Miha Rihtaršič <miha@kamnitnik.top> 131Miha Rihtaršič <miha@kamnitnik.top>
132Morgan J. Smith <Morgan.J.Smith@outlook.com> 132Morgan Smith <Morgan.J.Smith@outlook.com>
133Nick Drozd <nicholasdrozd@gmail.com> 133Nick Drozd <nicholasdrozd@gmail.com>
134Nicolas Petton <nicolas@petton.fr> <petton.nicolas@gmail.com> 134Nicolas Petton <nicolas@petton.fr> <petton.nicolas@gmail.com>
135Nitish Chandra <nitishchandrachinta@gmail.com> 135Nitish 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.
1189This buffer-local variable specifies the format of the Tabulated List 1189This buffer-local variable specifies the format of the Tabulated List
1190data. Its value should be a vector. Each element of the vector 1190data. Its value should be a vector. Each element of the vector
1191represents a data column, and should be a list @code{(@var{name} 1191represents 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
1206predicate function for @code{sort} (@pxref{Rearrangement}), which 1206predicate function for @code{sort} (@pxref{Rearrangement}), which
1207accepts two arguments with the same form as the elements of 1207accepts 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
1212properties. If the value of the property @code{:right-align} is
1213non-@code{nil} then the column should be right-aligned. And the
1214property @code{:pad-right} specifies the number of additional padding
1215spaces 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.
432Alternatively, if you set the option 'load-prefer-newer' non-nil, 432Alternatively, if you set the option 'load-prefer-newer' non-nil,
433Emacs will load whichever version of a file is the newest. 433Emacs 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
437EMACSLOADPATH overrides which directories the function "load" will search. 437EMACSLOADPATH 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
446If you arrange for the Wayland compositor to send the Hyper key 446If you arrange for the Wayland compositor to send the Hyper key
447modifier (e.g., via XKB customizations), the Hyper modifier will still 447modifier (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
452never be solved. And the Emacs PGTK build cannot yet support GTK4, 452never be solved. And the Emacs PGTK build cannot yet support GTK4,
453where this problem is reportedly solved. 453where this problem is reportedly solved.
454 454
455*** Emacs built with GTK lags in its response to keyboard input.
456This can happen when input methods are used. It happens because Emacs
457behaves in an unconventional way with respect to GTK input methods: it
458registers to receive keyboard input as unprocessed key events with
459metadata (as opposed to receiving them as text strings). Most GTK
460programs use the latter approach, so some modern input methods have
461bugs and misbehave when faced with the way Emacs does it.
462
463A workaround is to set GTK_IM_MODULE=none in the environment, or maybe
464find 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.
456Some users have reported that M-| suffers from "keyboard ghosting". 467Some users have reported that M-| suffers from "keyboard ghosting".
457This can't be fixed by Emacs, as the keypress never gets passed to it 468This 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
285EXP in each binding in BINDINGS can use the results of the destructuring 285EXP in each binding in BINDINGS can use the results of the destructuring
286bindings that precede it in BINDINGS' order. 286bindings that precede it in BINDINGS' order.
287 287
288Each EXP should match (i.e. be of compatible structure) to its 288Each EXP should match its respective PATTERN (i.e. be of structure
289respective PATTERN; a mismatch may signal an error or may go 289compatible to PATTERN); a mismatch may signal an error or may go
290undetected, binding variables to arbitrary values, such as nil." 290undetected, 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
307bindings by matching each EXP against its respective PATTERN. Then 307bindings by matching each EXP against its respective PATTERN. Then
308BODY is evaluated with those bindings in effect. 308BODY is evaluated with those bindings in effect.
309 309
310Each EXP should match (i.e. be of compatible structure) to its 310Each EXP should match its respective PATTERN (i.e. be of structure
311respective PATTERN; a mismatch may signal an error or may go 311compatible to PATTERN); a mismatch may signal an error or may go
312undetected, binding variables to arbitrary values, such as nil." 312undetected, 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'.
170Value should be a list of elements, each element should of the form
171
172 (GROUP-NAME (COMMAND . DESCRIPTION) (COMMAND . DESCRIPTION)...)
173
174where GROUP-NAME is the name of the group of the commands,
175COMMAND is the symbol of a command and DESCRIPTION is its short
176description, 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
114Name: Opening bracket on separate line (bug#67556)
115
116=-=
117public 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=-=-=