diff options
| author | Eli Zaretskii | 2024-10-05 07:41:22 -0400 |
|---|---|---|
| committer | Eli Zaretskii | 2024-10-05 07:41:22 -0400 |
| commit | 7949452350ca69a7d3e56c1e16fa35f81d8fdf50 (patch) | |
| tree | d971236313eec19419cf5ed9590974be08db96cf | |
| parent | b2ebba1d3cdcda9197ddce9ee14cd6184eca7131 (diff) | |
| parent | b68b9f291cc52f6120858534ff450fa7f6381d0b (diff) | |
| download | emacs-7949452350ca69a7d3e56c1e16fa35f81d8fdf50.tar.gz emacs-7949452350ca69a7d3e56c1e16fa35f81d8fdf50.zip | |
Merge from origin/emacs-30
b68b9f291cc ; * lisp/progmodes/csharp-mode.el (treesit-query-compile)...
688201ef18d ; * lisp/window.el (switch-to-prev-buffer-skip-regexp): D...
ba44fc9a447 Restore comment/string check for 'electric-layout-mode'
5a462948e13 Update Arni Magnusson's email address
6b1271b169a Fix python-ts-mode-map docstring
aaaafddc945 Normalize "Commentary" section in eudc.el
d656be9794d Expand email abbrevs in X-Debbugs-Cc header.
e9dcf0c57dd Fix 'list-tags' when invoked from a non-file buffer
51ef05f684c count-windows: Fix reference to walk-windows
5eaf0c784bf * lisp/info-look.el (mapc): Add use-package manual's index.
705a5a1a9e6 ; * ChangeLog.4: Fix attribution of one change.
bf26ff0dc8d Update csharp-ts-mode font-lock (bug#73369)
4c866abab96 ; * doc/lispref/variables.texi (Creating Buffer-Local): F...
d42d7d474fe ; * lisp/doc-view.el (doc-view-svg-face): Copy-edit docst...
f46f476bb8f ; * admin/MAINTAINERS: Take VC subsystem, add note about ...
d68e6d2689d ; rcirc-update-activity-string: Justify some existing beh...
e6a37869c8d Fix inconsistency in value of rcirc-activity-string
108b3179bd4 Revert "; Minor clarification in variables.texi"
44156c21407 ; Minor clarification in variables.texi
63058e1153a Tag interactive commands in 'lua-ts-mode'
84bea20eba2 ; * lisp/info-look.el: Add two more links.
96b87ad5363 Mention LSP acronym in eglot defgroup docstring
9c904e8ceae Change :group of 'eglot' defgroup to 'tools'
fd1a1b07805 Remove out-of-date documentation from python.el
11e3e0cadd4 Fix executing commands in Eshell using "env" with no loca...
c0ef8a9a1b3 Fix a typo in the calendar manual
36ff7138feb ; Fix a thinko in sieve-manage.el
7abecbcd633 ; * nt/INSTALL: Update MinGW notes URL. (Bug#73528)
# Conflicts:
# admin/MAINTAINERS
| -rw-r--r-- | .mailmap | 1 | ||||
| -rw-r--r-- | ChangeLog.4 | 2 | ||||
| -rw-r--r-- | admin/MAINTAINERS | 13 | ||||
| -rw-r--r-- | doc/emacs/calendar.texi | 2 | ||||
| -rw-r--r-- | doc/emacs/maintaining.texi | 15 | ||||
| -rw-r--r-- | doc/lispref/ChangeLog.1 | 2 | ||||
| -rw-r--r-- | doc/lispref/variables.texi | 4 | ||||
| -rw-r--r-- | doc/misc/ChangeLog.1 | 2 | ||||
| -rw-r--r-- | lisp/ChangeLog.16 | 2 | ||||
| -rw-r--r-- | lisp/ChangeLog.17 | 4 | ||||
| -rw-r--r-- | lisp/doc-view.el | 2 | ||||
| -rw-r--r-- | lisp/electric.el | 8 | ||||
| -rw-r--r-- | lisp/eshell/esh-var.el | 3 | ||||
| -rw-r--r-- | lisp/info-look.el | 3 | ||||
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 | ||||
| -rw-r--r-- | lisp/mail/mailalias.el | 4 | ||||
| -rw-r--r-- | lisp/net/eudc.el | 38 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 18 | ||||
| -rw-r--r-- | lisp/net/sieve-manage.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/bat-mode.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/csharp-mode.el | 156 | ||||
| -rw-r--r-- | lisp/progmodes/eglot.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/etags.el | 37 | ||||
| -rw-r--r-- | lisp/progmodes/lua-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 19 | ||||
| -rw-r--r-- | lisp/window.el | 5 | ||||
| -rw-r--r-- | nt/INSTALL | 2 | ||||
| -rw-r--r-- | test/lisp/eshell/esh-var-tests.el | 5 |
28 files changed, 246 insertions, 120 deletions
| @@ -26,6 +26,7 @@ Andrew G Cohen <cohen@andy.bu.edu> | |||
| 26 | Andrew G Cohen <cohen@andy.bu.edu> <cohen@bu.edu> | 26 | Andrew G Cohen <cohen@andy.bu.edu> <cohen@bu.edu> |
| 27 | Arash Esbati <arash@gnu.org> <arash.esbati@gmail.com> | 27 | Arash Esbati <arash@gnu.org> <arash.esbati@gmail.com> |
| 28 | Arash Esbati <arash@gnu.org> <esbati@gmx.de> | 28 | Arash Esbati <arash@gnu.org> <esbati@gmx.de> |
| 29 | Arni Magnusson <thisisarni@gmail.com> <arnima@hafro.is> | ||
| 29 | Artur Malabarba <bruce.connor.am@gmail.com> <am12548@it055607.users.bris.ac.uk> | 30 | Artur Malabarba <bruce.connor.am@gmail.com> <am12548@it055607.users.bris.ac.uk> |
| 30 | Artur Malabarba <bruce.connor.am@gmail.com> Artur Malabarba <address@hidden> | 31 | Artur Malabarba <bruce.connor.am@gmail.com> Artur Malabarba <address@hidden> |
| 31 | Basil L. Contovounesios <basil@contovou.net> <contovob@tcd.ie> | 32 | Basil L. Contovounesios <basil@contovou.net> <contovob@tcd.ie> |
diff --git a/ChangeLog.4 b/ChangeLog.4 index 4bd583818ef..975750f40cd 100644 --- a/ChangeLog.4 +++ b/ChangeLog.4 | |||
| @@ -11433,7 +11433,7 @@ | |||
| 11433 | 11433 | ||
| 11434 | * etc/NEWS: Update announcement. | 11434 | * etc/NEWS: Update announcement. |
| 11435 | 11435 | ||
| 11436 | 2024-05-15 Sean Whitton <spwhitton@spwhitton.name> | 11436 | 2024-05-15 Stefan Monnier <monnier@iro.umontreal.ca> |
| 11437 | 11437 | ||
| 11438 | (eglot--managed-mode): Avoid calling track-changes unregistered | 11438 | (eglot--managed-mode): Avoid calling track-changes unregistered |
| 11439 | 11439 | ||
diff --git a/admin/MAINTAINERS b/admin/MAINTAINERS index be21a28b759..413a587d398 100644 --- a/admin/MAINTAINERS +++ b/admin/MAINTAINERS | |||
| @@ -238,9 +238,22 @@ Yuan Fu | |||
| 238 | lisp/treesit.el | 238 | lisp/treesit.el |
| 239 | lisp/progmodes/c-ts-common.el | 239 | lisp/progmodes/c-ts-common.el |
| 240 | 240 | ||
| 241 | Sean Whitton | ||
| 242 | VC | ||
| 243 | lisp/vc/* | ||
| 244 | doc/emacs/files.texi (Diff Mode) | ||
| 245 | doc/emacs/maintaining.texi (Version Control) | ||
| 246 | doc/emacs/vc*-xtra.texi | ||
| 247 | doc/emacs/emerge-xtra.texi | ||
| 248 | doc/misc/ediff.texi | ||
| 249 | test/lisp/vc/* | ||
| 250 | |||
| 241 | ============================================================================== | 251 | ============================================================================== |
| 242 | 2. Areas that someone is willing to maintain, although he would not | 252 | 2. Areas that someone is willing to maintain, although he would not |
| 243 | necessarily mind if someone else was the official maintainer. | 253 | necessarily mind if someone else was the official maintainer. |
| 254 | This list also includes people who are in the process of handing over | ||
| 255 | maintainership to someone listed above, but who want to continue to be | ||
| 256 | CC'd as though they were still the primary maintainer, in the meantime. | ||
| 244 | ============================================================================== | 257 | ============================================================================== |
| 245 | 258 | ||
| 246 | Kelvin White | 259 | Kelvin White |
diff --git a/doc/emacs/calendar.texi b/doc/emacs/calendar.texi index f511b789796..f6de2e77135 100644 --- a/doc/emacs/calendar.texi +++ b/doc/emacs/calendar.texi | |||
| @@ -106,7 +106,7 @@ commands for moving by characters and by lines. Just as @kbd{C-n} | |||
| 106 | usually moves to the same column in the following line, in Calendar | 106 | usually moves to the same column in the following line, in Calendar |
| 107 | mode it is bound to @code{calendar-forward-week}, which moves to the | 107 | mode it is bound to @code{calendar-forward-week}, which moves to the |
| 108 | same day in the following week. And @kbd{C-p} | 108 | same day in the following week. And @kbd{C-p} |
| 109 | (@code{calendar-backward-week} moves to the same day in the previous | 109 | (@code{calendar-backward-week}) moves to the same day in the previous |
| 110 | week. @kbd{C-f} (@code{calendar-forward-day}) and @kbd{C-b} | 110 | week. @kbd{C-f} (@code{calendar-forward-day}) and @kbd{C-b} |
| 111 | (@code{calendar-backward-day}) move forward and back by days. | 111 | (@code{calendar-backward-day}) move forward and back by days. |
| 112 | 112 | ||
diff --git a/doc/emacs/maintaining.texi b/doc/emacs/maintaining.texi index 0ec2385860b..4ac751a71af 100644 --- a/doc/emacs/maintaining.texi +++ b/doc/emacs/maintaining.texi | |||
| @@ -2673,14 +2673,13 @@ loaded, this command can use it to generate completion candidates. | |||
| 2673 | @xref{Symbol Completion}. | 2673 | @xref{Symbol Completion}. |
| 2674 | 2674 | ||
| 2675 | @findex list-tags | 2675 | @findex list-tags |
| 2676 | @kbd{M-x list-tags} reads the name of one of the files covered by | 2676 | @kbd{M-x list-tags} reads the name of one of the files covered by the |
| 2677 | the selected tags table, and displays a list of tags defined in that | 2677 | selected tags table, with completion, and displays the list of tags |
| 2678 | file. Do not include a directory as part of the file name unless the | 2678 | defined in that file; it offers the current buffer's file name as the |
| 2679 | file name recorded in the tags table includes a directory. This | 2679 | default file whose tags to list. Do not include a directory as part of |
| 2680 | command works only with the etags backend, and requires a tags table | 2680 | the file name unless the file name recorded in the tags table includes a |
| 2681 | for the project to be available. @xref{Tags Tables}. If used | 2681 | directory. This command works only with the etags backend, and requires |
| 2682 | interactively, the default tag is file name of the current buffer if | 2682 | a tags table for the project to be available. @xref{Tags Tables}. |
| 2683 | used interactively. | ||
| 2684 | 2683 | ||
| 2685 | @findex tags-next-file | 2684 | @findex tags-next-file |
| 2686 | @kbd{M-x tags-next-file} visits files covered by the selected tags table. | 2685 | @kbd{M-x tags-next-file} visits files covered by the selected tags table. |
diff --git a/doc/lispref/ChangeLog.1 b/doc/lispref/ChangeLog.1 index e2d4c019b4a..a508ad9f28b 100644 --- a/doc/lispref/ChangeLog.1 +++ b/doc/lispref/ChangeLog.1 | |||
| @@ -5551,7 +5551,7 @@ | |||
| 5551 | * loading.texi (Hooks for Loading): Document after-load-functions. | 5551 | * loading.texi (Hooks for Loading): Document after-load-functions. |
| 5552 | Copyedits. | 5552 | Copyedits. |
| 5553 | 5553 | ||
| 5554 | 2010-03-24 Arni Magnusson <arnima@hafro.is> (tiny change) | 5554 | 2010-03-24 Arni Magnusson <thisisarni@gmail.com> (tiny change) |
| 5555 | 5555 | ||
| 5556 | * frames.texi (Cursor Parameters): Fix typo. (Bug#5760) | 5556 | * frames.texi (Cursor Parameters): Fix typo. (Bug#5760) |
| 5557 | 5557 | ||
diff --git a/doc/lispref/variables.texi b/doc/lispref/variables.texi index 76f15b2595c..af11e498d86 100644 --- a/doc/lispref/variables.texi +++ b/doc/lispref/variables.texi | |||
| @@ -1732,11 +1732,11 @@ buffer-local variables interactively. | |||
| 1732 | @defun kill-all-local-variables &optional kill-permanent | 1732 | @defun kill-all-local-variables &optional kill-permanent |
| 1733 | This function eliminates all the buffer-local variable bindings of the | 1733 | This function eliminates all the buffer-local variable bindings of the |
| 1734 | current buffer. As a result, the buffer will see the default values | 1734 | current buffer. As a result, the buffer will see the default values |
| 1735 | of most variables. By default, for variables marked as permanent and | 1735 | of most variables. By default, variables marked as permanent and |
| 1736 | local hook functions that have a non-@code{nil} | 1736 | local hook functions that have a non-@code{nil} |
| 1737 | @code{permanent-local-hook} property (@pxref{Setting Hooks}) won't be | 1737 | @code{permanent-local-hook} property (@pxref{Setting Hooks}) won't be |
| 1738 | killed, but if the optional @var{kill-permanent} argument is | 1738 | killed, but if the optional @var{kill-permanent} argument is |
| 1739 | non-@code{nil}, even these variables will be killed. | 1739 | non-@code{nil}, even those variables will be killed. |
| 1740 | 1740 | ||
| 1741 | This function also resets certain other information pertaining to the | 1741 | This function also resets certain other information pertaining to the |
| 1742 | buffer: it sets the local keymap to @code{nil}, the syntax table to the | 1742 | buffer: it sets the local keymap to @code{nil}, the syntax table to the |
diff --git a/doc/misc/ChangeLog.1 b/doc/misc/ChangeLog.1 index 37b304c2dca..14570bb174f 100644 --- a/doc/misc/ChangeLog.1 +++ b/doc/misc/ChangeLog.1 | |||
| @@ -6407,7 +6407,7 @@ | |||
| 6407 | * epa.texi (Mail-mode integration): Mention the way to do | 6407 | * epa.texi (Mail-mode integration): Mention the way to do |
| 6408 | "encrypt-to-self". (Bug#1807) | 6408 | "encrypt-to-self". (Bug#1807) |
| 6409 | 6409 | ||
| 6410 | 2009-02-05 Arni Magnusson <arnima@hafro.is> (tiny change) | 6410 | 2009-02-05 Arni Magnusson <thisisarni@gmail.com> (tiny change) |
| 6411 | 6411 | ||
| 6412 | * ada-mode.texi (No project files): Fix typo. (Bug#2214) | 6412 | * ada-mode.texi (No project files): Fix typo. (Bug#2214) |
| 6413 | 6413 | ||
diff --git a/lisp/ChangeLog.16 b/lisp/ChangeLog.16 index fa956ac8784..6d807fbd44d 100644 --- a/lisp/ChangeLog.16 +++ b/lisp/ChangeLog.16 | |||
| @@ -25198,7 +25198,7 @@ | |||
| 25198 | * emacs-lisp/package-x.el (package-upload-buffer-internal): | 25198 | * emacs-lisp/package-x.el (package-upload-buffer-internal): |
| 25199 | Use `equal' for upload base check. | 25199 | Use `equal' for upload base check. |
| 25200 | 25200 | ||
| 25201 | 2011-03-08 Arni Magnusson <arnima@hafro.is> (tiny change) | 25201 | 2011-03-08 Arni Magnusson <thisisarni@gmail.com> (tiny change) |
| 25202 | 25202 | ||
| 25203 | * textmodes/texinfo.el (texinfo-environments): | 25203 | * textmodes/texinfo.el (texinfo-environments): |
| 25204 | Add deftypecv, deftypeivar, deftypemethod, deftypeop, html. (Bug#2783) | 25204 | Add deftypecv, deftypeivar, deftypemethod, deftypeop, html. (Bug#2783) |
diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17 index 3eec2da2038..e6c35f63a20 100644 --- a/lisp/ChangeLog.17 +++ b/lisp/ChangeLog.17 | |||
| @@ -6706,7 +6706,7 @@ | |||
| 6706 | 2014-10-12 Stefan Monnier <monnier@iro.umontreal.ca> | 6706 | 2014-10-12 Stefan Monnier <monnier@iro.umontreal.ca> |
| 6707 | 6707 | ||
| 6708 | * progmodes/bat-mode.el (bat-font-lock-keywords): Fix \\<_ typo | 6708 | * progmodes/bat-mode.el (bat-font-lock-keywords): Fix \\<_ typo |
| 6709 | (bug#18622). Reported by Arni Magnusson <arnima@hafro.is>. | 6709 | (bug#18622). Reported by Arni Magnusson <thisisarni@gmail.com>. |
| 6710 | * progmodes/prolog.el (prolog-electric--underscore): Same. | 6710 | * progmodes/prolog.el (prolog-electric--underscore): Same. |
| 6711 | 6711 | ||
| 6712 | 2014-10-12 Michael Albinus <michael.albinus@gmx.de> | 6712 | 2014-10-12 Michael Albinus <michael.albinus@gmx.de> |
| @@ -20214,7 +20214,7 @@ | |||
| 20214 | (dos-mode-syntax-table): Don't use "w" for symbol chars. | 20214 | (dos-mode-syntax-table): Don't use "w" for symbol chars. |
| 20215 | (dos-font-lock-keywords): Try to adjust font-lock rules accordingly. | 20215 | (dos-font-lock-keywords): Try to adjust font-lock rules accordingly. |
| 20216 | 20216 | ||
| 20217 | 2013-08-07 Arni Magnusson <arnima@hafro.is> | 20217 | 2013-08-07 Arni Magnusson <thisisarni@gmail.com> |
| 20218 | 20218 | ||
| 20219 | * progmodes/dos.el: New file. | 20219 | * progmodes/dos.el: New file. |
| 20220 | * generic-x.el (bat-generic-mode): Redefine as an obsolete alias to | 20220 | * generic-x.el (bat-generic-mode): Redefine as an obsolete alias to |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 78dc472ddc3..446beeafd9f 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -260,7 +260,7 @@ showing only titles and no page number." | |||
| 260 | See `doc-view-mupdf-use-svg'. | 260 | See `doc-view-mupdf-use-svg'. |
| 261 | 261 | ||
| 262 | Only background and foreground colors are used as the SVG image's | 262 | Only background and foreground colors are used as the SVG image's |
| 263 | descriptors, see (info \"(elisp) SVG Images\"). Non-standard values may | 263 | descriptors; see (info \"(elisp) SVG Images\"). Custom values may |
| 264 | cause low-contrast issues with certain documents." | 264 | cause low-contrast issues with certain documents." |
| 265 | :version "30.1") | 265 | :version "30.1") |
| 266 | 266 | ||
diff --git a/lisp/electric.el b/lisp/electric.el index d02bcb4735b..d84faf5433f 100644 --- a/lisp/electric.el +++ b/lisp/electric.el | |||
| @@ -385,6 +385,9 @@ If multiple rules match, only first one is executed.") | |||
| 385 | (defvar electric-layout-allow-duplicate-newlines nil | 385 | (defvar electric-layout-allow-duplicate-newlines nil |
| 386 | "If non-nil, allow duplication of `before' newlines.") | 386 | "If non-nil, allow duplication of `before' newlines.") |
| 387 | 387 | ||
| 388 | (defvar electric-layout-allow-in-comment-or-string nil | ||
| 389 | "If non-nil, allow inserting newlines inside a comment or string.") | ||
| 390 | |||
| 388 | (defun electric-layout-post-self-insert-function () | 391 | (defun electric-layout-post-self-insert-function () |
| 389 | (when electric-layout-mode | 392 | (when electric-layout-mode |
| 390 | (electric-layout-post-self-insert-function-1))) | 393 | (electric-layout-post-self-insert-function-1))) |
| @@ -409,7 +412,10 @@ If multiple rules match, only first one is executed.") | |||
| 409 | (goto-char pos) | 412 | (goto-char pos) |
| 410 | (funcall probe last-command-event)))) | 413 | (funcall probe last-command-event)))) |
| 411 | (when res (throw 'done res)))))))))) | 414 | (when res (throw 'done res)))))))))) |
| 412 | (when rule | 415 | (when (and rule |
| 416 | (or electric-layout-allow-in-comment-or-string | ||
| 417 | ;; Not in a comment or string. | ||
| 418 | (not (nth 8 (save-excursion (syntax-ppss pos)))))) | ||
| 413 | (goto-char pos) | 419 | (goto-char pos) |
| 414 | (when (functionp rule) (setq rule (funcall rule))) | 420 | (when (functionp rule) (setq rule (funcall rule))) |
| 415 | (dolist (sym (if (symbolp rule) (list rule) rule)) | 421 | (dolist (sym (if (symbolp rule) (list rule) rule)) |
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el index 0e6c01d2774..5d7ea1c3664 100644 --- a/lisp/eshell/esh-var.el +++ b/lisp/eshell/esh-var.el | |||
| @@ -436,7 +436,8 @@ the values of nil for each." | |||
| 436 | :usage "[NAME=VALUE]... [COMMAND]...") | 436 | :usage "[NAME=VALUE]... [COMMAND]...") |
| 437 | (if args | 437 | (if args |
| 438 | (or (eshell-parse-local-variables args) | 438 | (or (eshell-parse-local-variables args) |
| 439 | (eshell-named-command (car args) (cdr args))) | 439 | (throw 'eshell-replace-command |
| 440 | `(eshell-named-command ,(car args) ',(cdr args)))) | ||
| 440 | (eshell-with-buffered-print | 441 | (eshell-with-buffered-print |
| 441 | (dolist (setting (sort (eshell-environment-variables) 'string-lessp)) | 442 | (dolist (setting (sort (eshell-environment-variables) 'string-lessp)) |
| 442 | (eshell-buffered-print setting "\n")))))) | 443 | (eshell-buffered-print setting "\n")))))) |
diff --git a/lisp/info-look.el b/lisp/info-look.el index 3066bc1d75d..a84026ac8b9 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el | |||
| @@ -30,6 +30,8 @@ | |||
| 30 | ;; Scheme: https://groups.csail.mit.edu/mac/ftpdir/scm/r5rs.info.tar.gz | 30 | ;; Scheme: https://groups.csail.mit.edu/mac/ftpdir/scm/r5rs.info.tar.gz |
| 31 | ;; LaTeX: https://mirrors.ctan.org/info/latex2e-help-texinfo/latex2e.texi | 31 | ;; LaTeX: https://mirrors.ctan.org/info/latex2e-help-texinfo/latex2e.texi |
| 32 | ;; (or CTAN mirrors) | 32 | ;; (or CTAN mirrors) |
| 33 | ;; Python: https://www.python.org/ftp/python/doc/ | ||
| 34 | ;; SICP: https://github.com/webframp/sicp-info | ||
| 33 | 35 | ||
| 34 | ;; Traditionally, makeinfo quoted `like this', but version 5 and later | 36 | ;; Traditionally, makeinfo quoted `like this', but version 5 and later |
| 35 | ;; quotes 'like this' or ‘like this’. Doc specs with patterns | 37 | ;; quotes 'like this' or ‘like this’. Doc specs with patterns |
| @@ -1082,6 +1084,7 @@ Return nil if there is nothing appropriate in the buffer near point." | |||
| 1082 | ("srecode" "Index") | 1084 | ("srecode" "Index") |
| 1083 | ("tramp" "Variable Index" "Function Index") | 1085 | ("tramp" "Variable Index" "Function Index") |
| 1084 | ("url" "Variable Index" "Function Index") | 1086 | ("url" "Variable Index" "Function Index") |
| 1087 | ("use-package" "Index") | ||
| 1085 | ("vhdl" "(vhdl-mode)Variable Index" "(vhdl-mode)Command Index") | 1088 | ("vhdl" "(vhdl-mode)Variable Index" "(vhdl-mode)Command Index") |
| 1086 | ("viper" "Variable Index" "Function Index") | 1089 | ("viper" "Variable Index" "Function Index") |
| 1087 | ("vtable" "Index") | 1090 | ("vtable" "Index") |
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index c8006294a7d..16e9d6f1bea 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -410,7 +410,7 @@ with a space." | |||
| 410 | ;;; Syntax tables and abbrev-expansion | 410 | ;;; Syntax tables and abbrev-expansion |
| 411 | 411 | ||
| 412 | (defcustom mail-abbrev-mode-regexp | 412 | (defcustom mail-abbrev-mode-regexp |
| 413 | "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):" | 413 | "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\|X-Debbugs-Cc\\):" |
| 414 | "Regexp matching mail headers in which mail abbrevs should be expanded. | 414 | "Regexp matching mail headers in which mail abbrevs should be expanded. |
| 415 | This string will be handed to `looking-at' with point at the beginning | 415 | This string will be handed to `looking-at' with point at the beginning |
| 416 | of the current line; if it matches, abbrev mode will be turned on, otherwise | 416 | of the current line; if it matches, abbrev mode will be turned on, otherwise |
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index cce2fcb104d..ca4ff67a6ac 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -50,7 +50,7 @@ | |||
| 50 | When t this still needs to be initialized.") | 50 | When t this still needs to be initialized.") |
| 51 | 51 | ||
| 52 | (defvar mail-address-field-regexp | 52 | (defvar mail-address-field-regexp |
| 53 | "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):") | 53 | "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\|X-Debbugs-Cc\\):") |
| 54 | 54 | ||
| 55 | ;; `pattern' is bound dynamically before evaluating the forms in | 55 | ;; `pattern' is bound dynamically before evaluating the forms in |
| 56 | ;; `mail-complete-alist' and may be part of user customizations of | 56 | ;; `mail-complete-alist' and may be part of user customizations of |
| @@ -61,7 +61,7 @@ When t this still needs to be initialized.") | |||
| 61 | (defcustom mail-complete-alist | 61 | (defcustom mail-complete-alist |
| 62 | ;; Don't refer to mail-address-field-regexp here; | 62 | ;; Don't refer to mail-address-field-regexp here; |
| 63 | ;; that confuses some things such as cus-dep.el. | 63 | ;; that confuses some things such as cus-dep.el. |
| 64 | '(("^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):" | 64 | '(("^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\|X-Debbugs-Cc\\):" |
| 65 | . (mail-get-names pattern)) | 65 | . (mail-get-names pattern)) |
| 66 | ("Newsgroups:" . (if (boundp 'gnus-active-hashtb) | 66 | ("Newsgroups:" . (if (boundp 'gnus-active-hashtb) |
| 67 | gnus-active-hashtb | 67 | gnus-active-hashtb |
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index da8955d52c9..9e640768285 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el | |||
| @@ -23,25 +23,27 @@ | |||
| 23 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. | 23 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
| 24 | 24 | ||
| 25 | ;;; Commentary: | 25 | ;;; Commentary: |
| 26 | ;; This package provides a common interface to query directory servers using | 26 | |
| 27 | ;; different protocols such as LDAP, CCSO PH/QI or BBDB. Queries can be | 27 | ;; This package provides a common interface to query directory servers using |
| 28 | ;; made through an interactive form or inline. Inline query strings in | 28 | ;; different protocols such as LDAP, CCSO PH/QI or BBDB. Queries can be |
| 29 | ;; buffers are expanded with appropriately formatted query results | 29 | ;; made through an interactive form or inline. Inline query strings in |
| 30 | ;; (especially used to expand email addresses in message buffers). EUDC | 30 | ;; buffers are expanded with appropriately formatted query results |
| 31 | ;; also interfaces with the BBDB package to let you register query results | 31 | ;; (especially used to expand email addresses in message buffers). EUDC |
| 32 | ;; into your own BBDB database. | 32 | ;; also interfaces with the BBDB package to let you register query results |
| 33 | 33 | ;; into your own BBDB database. | |
| 34 | ;;; Usage: | 34 | ;; |
| 35 | ;; EUDC comes with an extensive documentation, please refer to it. | 35 | ;; Usage: |
| 36 | ;; | ||
| 37 | ;; EUDC comes with extensive documentation, please refer to it. | ||
| 36 | ;; | 38 | ;; |
| 37 | ;; The main entry points of EUDC are: | 39 | ;; The main entry points of EUDC are: |
| 38 | ;; `eudc-query-form': Query a directory server from a query form | 40 | ;; `eudc-query-form': Query a directory server from a query form |
| 39 | ;; `eudc-expand-inline': Query a directory server for the e-mail address | 41 | ;; `eudc-expand-inline': Query a directory server for the e-mail address |
| 40 | ;; of the name before cursor and insert it in the | 42 | ;; of the name before cursor and insert it in the |
| 41 | ;; buffer | 43 | ;; buffer |
| 42 | ;; `eudc-get-phone': Get a phone number from a directory server | 44 | ;; `eudc-get-phone': Get a phone number from a directory server |
| 43 | ;; `eudc-get-email': Get an e-mail address from a directory server | 45 | ;; `eudc-get-email': Get an e-mail address from a directory server |
| 44 | ;; `eudc-customize': Customize various aspects of EUDC | 46 | ;; `eudc-customize': Customize various aspects of EUDC |
| 45 | 47 | ||
| 46 | ;;; Code: | 48 | ;;; Code: |
| 47 | 49 | ||
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 659035d4acb..2a713de83c2 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -2537,9 +2537,25 @@ activity. Only run if the buffer is not visible and | |||
| 2537 | (rcirc-activity-string lopri) | 2537 | (rcirc-activity-string lopri) |
| 2538 | ")")) | 2538 | ")")) |
| 2539 | (and hipri "]"))) | 2539 | (and hipri "]"))) |
| 2540 | ;; Consistently don't display anything if there aren't | ||
| 2541 | ;; any IRC connections. Otherwise, whether we display | ||
| 2542 | ;; "[]" or not depends on whether or not this function | ||
| 2543 | ;; happens to have been called in this session yet. | ||
| 2544 | ;; | ||
| 2545 | ;; Consistently display nothing, rather than | ||
| 2546 | ;; consistently displaying "[]", for the sake of the | ||
| 2547 | ;; following sort of case: the user has enabled | ||
| 2548 | ;; `rcirc-track-minor-mode' using the customization | ||
| 2549 | ;; system, but also starts up Emacs instances that | ||
| 2550 | ;; aren't used for IRC. Due to the use of easy | ||
| 2551 | ;; customization, `rcirc-track-minor-mode' will be | ||
| 2552 | ;; turned on for every instance of Emacs. But we don't | ||
| 2553 | ;; want to take up valuable mode line space when, say, | ||
| 2554 | ;; Emacs is started up as the value of EDITOR/VISUAL. | ||
| 2540 | ((not (null (rcirc-process-list))) | 2555 | ((not (null (rcirc-process-list))) |
| 2541 | "[]") | 2556 | "[]") |
| 2542 | (t "[]"))) | 2557 | (t |
| 2558 | ""))) | ||
| 2543 | (run-hooks 'rcirc-update-activity-string-hook) | 2559 | (run-hooks 'rcirc-update-activity-string-hook) |
| 2544 | (force-mode-line-update t))) | 2560 | (force-mode-line-update t))) |
| 2545 | 2561 | ||
diff --git a/lisp/net/sieve-manage.el b/lisp/net/sieve-manage.el index 0faeb02bcfd..da2167cd231 100644 --- a/lisp/net/sieve-manage.el +++ b/lisp/net/sieve-manage.el | |||
| @@ -178,7 +178,8 @@ If it is nil, logging is disabled." | |||
| 178 | (with-current-buffer | 178 | (with-current-buffer |
| 179 | (get-buffer-create sieve-manage-log) | 179 | (get-buffer-create sieve-manage-log) |
| 180 | (set-buffer-multibyte nil) | 180 | (set-buffer-multibyte nil) |
| 181 | (buffer-disable-undo))) | 181 | (buffer-disable-undo) |
| 182 | (current-buffer))) | ||
| 182 | (goto-char (point-max)) | 183 | (goto-char (point-max)) |
| 183 | (apply #'insert args)))) | 184 | (apply #'insert args)))) |
| 184 | 185 | ||
diff --git a/lisp/progmodes/bat-mode.el b/lisp/progmodes/bat-mode.el index 0687a0c9f32..613de34eb7e 100644 --- a/lisp/progmodes/bat-mode.el +++ b/lisp/progmodes/bat-mode.el | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | ;;; bat-mode.el --- Major mode for editing DOS/Windows scripts -*- lexical-binding: t -*- | 1 | ;;; bat-mode.el --- Major mode for editing DOS/Windows scripts -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003, 2008-2024 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003-2024 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Arni Magnusson <arnima@hafro.is> | 5 | ;; Author: Arni Magnusson <thisisarni@gmail.com> |
| 6 | ;; Keywords: languages | 6 | ;; Keywords: languages |
| 7 | 7 | ||
| 8 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/progmodes/csharp-mode.el b/lisp/progmodes/csharp-mode.el index 29325ab9632..1f86527191a 100644 --- a/lisp/progmodes/csharp-mode.el +++ b/lisp/progmodes/csharp-mode.el | |||
| @@ -46,6 +46,7 @@ | |||
| 46 | (declare-function treesit-node-type "treesit.c") | 46 | (declare-function treesit-node-type "treesit.c") |
| 47 | (declare-function treesit-node-child-by-field-name "treesit.c") | 47 | (declare-function treesit-node-child-by-field-name "treesit.c") |
| 48 | (declare-function treesit-query-capture "treesit.c") | 48 | (declare-function treesit-query-capture "treesit.c") |
| 49 | (declare-function treesit-query-compile "treesit.c") | ||
| 49 | 50 | ||
| 50 | (defgroup csharp nil | 51 | (defgroup csharp nil |
| 51 | "Major mode for editing C# code." | 52 | "Major mode for editing C# code." |
| @@ -730,6 +731,52 @@ compilation and evaluation time conflicts." | |||
| 730 | "readonly" "unmanaged") | 731 | "readonly" "unmanaged") |
| 731 | "C# keywords for tree-sitter font-locking.") | 732 | "C# keywords for tree-sitter font-locking.") |
| 732 | 733 | ||
| 734 | (defun csharp-ts-mode--test-this-expression () | ||
| 735 | "Return non-nil if (this_expression) is named in csharp grammar." | ||
| 736 | (ignore-errors | ||
| 737 | (treesit-query-compile 'c-sharp "(this_expression)" t) | ||
| 738 | t)) | ||
| 739 | |||
| 740 | (defun csharp-ts-mode--test-interpolated-string-text () | ||
| 741 | "Return non-nil if (interpolated_string_text) is in the grammar." | ||
| 742 | (ignore-errors | ||
| 743 | (treesit-query-compile 'c-sharp "(interpolated_string_text)" t) | ||
| 744 | t)) | ||
| 745 | |||
| 746 | (defun csharp-ts-mode--test-type-constraint () | ||
| 747 | "Return non-nil if (type_constraint) is in the grammar." | ||
| 748 | (ignore-errors | ||
| 749 | (treesit-query-compile 'c-sharp "(type_constraint)" t) | ||
| 750 | t)) | ||
| 751 | |||
| 752 | (defun csharp-ts-mode--test-type-of-expression () | ||
| 753 | "Return non-nil if (type_of_expression) is in the grammar." | ||
| 754 | (ignore-errors | ||
| 755 | (treesit-query-compile 'c-sharp "(type_of_expression)" t) | ||
| 756 | t)) | ||
| 757 | |||
| 758 | (defun csharp-ts-mode--test-name-equals () | ||
| 759 | "Return non-nil if (name_equals) is in the grammar." | ||
| 760 | (ignore-errors | ||
| 761 | (treesit-query-compile 'c-sharp "(name_equals)" t) | ||
| 762 | t)) | ||
| 763 | |||
| 764 | (defun csharp-ts-mode--test-if-directive () | ||
| 765 | "Return non-nil if (if_directive) is in the grammar." | ||
| 766 | (ignore-errors | ||
| 767 | (treesit-query-compile 'c-sharp "(if_directive)" t) | ||
| 768 | t)) | ||
| 769 | |||
| 770 | (defun csharp-ts-mode--test-method-declaration-type-field () | ||
| 771 | "Return non-nil if (method_declaration) has a type field." | ||
| 772 | (ignore-errors | ||
| 773 | (treesit-query-compile 'c-sharp "(method_declaration type: (_))" t) | ||
| 774 | t)) | ||
| 775 | |||
| 776 | (defvar csharp-ts-mode--type-field | ||
| 777 | (if (csharp-ts-mode--test-method-declaration-type-field) | ||
| 778 | 'type: 'returns:)) | ||
| 779 | |||
| 733 | (defvar csharp-ts-mode--font-lock-settings | 780 | (defvar csharp-ts-mode--font-lock-settings |
| 734 | (treesit-font-lock-rules | 781 | (treesit-font-lock-rules |
| 735 | :language 'c-sharp | 782 | :language 'c-sharp |
| @@ -760,7 +807,9 @@ compilation and evaluation time conflicts." | |||
| 760 | :feature 'keyword | 807 | :feature 'keyword |
| 761 | `([,@csharp-ts-mode--keywords] @font-lock-keyword-face | 808 | `([,@csharp-ts-mode--keywords] @font-lock-keyword-face |
| 762 | (modifier) @font-lock-keyword-face | 809 | (modifier) @font-lock-keyword-face |
| 763 | (this_expression) @font-lock-keyword-face) | 810 | ,@(if (csharp-ts-mode--test-this-expression) |
| 811 | '((this_expression) @font-lock-keyword-face) | ||
| 812 | '("this" @font-lock-keyword-face))) | ||
| 764 | 813 | ||
| 765 | :language 'c-sharp | 814 | :language 'c-sharp |
| 766 | :override t | 815 | :override t |
| @@ -786,18 +835,23 @@ compilation and evaluation time conflicts." | |||
| 786 | :feature 'string | 835 | :feature 'string |
| 787 | `([(string_literal) | 836 | `([(string_literal) |
| 788 | (verbatim_string_literal) | 837 | (verbatim_string_literal) |
| 789 | (interpolated_string_text) | 838 | ,@(if (csharp-ts-mode--test-interpolated-string-text) |
| 790 | (interpolated_verbatim_string_text) | 839 | '((interpolated_string_text) |
| 791 | (character_literal) | 840 | (interpolated_verbatim_string_text) |
| 792 | "\"" | 841 | (character_literal) |
| 793 | "$\"" | 842 | "\"" |
| 794 | "@$\"" | 843 | "$\"" |
| 795 | "$@\""] @font-lock-string-face) | 844 | "@$\"" |
| 845 | "$@\"") | ||
| 846 | '((interpolated_string_expression) | ||
| 847 | (interpolation_start) | ||
| 848 | (interpolation_quote)))] | ||
| 849 | @font-lock-string-face) | ||
| 796 | 850 | ||
| 797 | :language 'c-sharp | 851 | :language 'c-sharp |
| 798 | :override t | 852 | :override t |
| 799 | :feature 'type | 853 | :feature 'type |
| 800 | '((predefined_type) @font-lock-type-face | 854 | `((predefined_type) @font-lock-type-face |
| 801 | (implicit_type) @font-lock-type-face | 855 | (implicit_type) @font-lock-type-face |
| 802 | (nullable_type) @font-lock-type-face | 856 | (nullable_type) @font-lock-type-face |
| 803 | (type_parameter | 857 | (type_parameter |
| @@ -816,10 +870,17 @@ compilation and evaluation time conflicts." | |||
| 816 | (cast_expression (generic_name (identifier) @font-lock-type-face)) | 870 | (cast_expression (generic_name (identifier) @font-lock-type-face)) |
| 817 | ["operator"] @font-lock-type-face | 871 | ["operator"] @font-lock-type-face |
| 818 | (type_parameter_constraints_clause | 872 | (type_parameter_constraints_clause |
| 819 | target: (identifier) @font-lock-type-face) | 873 | (identifier) @font-lock-type-face) |
| 820 | (type_constraint type: (identifier) @font-lock-type-face) | 874 | ,@(if (csharp-ts-mode--test-type-constraint) |
| 821 | (type_constraint type: (generic_name (identifier) @font-lock-type-face)) | 875 | '((type_constraint type: (identifier) @font-lock-type-face) |
| 822 | (type_of_expression (identifier) @font-lock-type-face) | 876 | (type_constraint type: (generic_name (identifier) @font-lock-type-face))) |
| 877 | '((type_parameter_constraint (type type: (identifier) @font-lock-type-face)) | ||
| 878 | (type_parameter_constraint (type type: (generic_name (identifier) @font-lock-type-face))))) | ||
| 879 | |||
| 880 | ,@(when (csharp-ts-mode--test-type-of-expression) | ||
| 881 | '((type_of_expression (identifier) @font-lock-type-face)) | ||
| 882 | '((typeof_expression (identifier) @font-lock-type-face))) | ||
| 883 | |||
| 823 | (object_creation_expression | 884 | (object_creation_expression |
| 824 | type: (identifier) @font-lock-type-face) | 885 | type: (identifier) @font-lock-type-face) |
| 825 | (object_creation_expression | 886 | (object_creation_expression |
| @@ -832,8 +893,9 @@ compilation and evaluation time conflicts." | |||
| 832 | :override t | 893 | :override t |
| 833 | `((qualified_name (identifier) @font-lock-type-face) | 894 | `((qualified_name (identifier) @font-lock-type-face) |
| 834 | (using_directive (identifier) @font-lock-type-face) | 895 | (using_directive (identifier) @font-lock-type-face) |
| 835 | (using_directive (name_equals | 896 | ,@(when (csharp-ts-mode--test-name-equals) |
| 836 | (identifier) @font-lock-type-face)) | 897 | '((using_directive (name_equals |
| 898 | (identifier) @font-lock-type-face)))) | ||
| 837 | 899 | ||
| 838 | (enum_declaration (identifier) @font-lock-type-face) | 900 | (enum_declaration (identifier) @font-lock-type-face) |
| 839 | (enum_member_declaration (identifier) @font-lock-variable-name-face) | 901 | (enum_member_declaration (identifier) @font-lock-variable-name-face) |
| @@ -861,10 +923,10 @@ compilation and evaluation time conflicts." | |||
| 861 | ;;; Check if keyword void_keyword is available, then return the correct rule." | 923 | ;;; Check if keyword void_keyword is available, then return the correct rule." |
| 862 | ,@(condition-case nil | 924 | ,@(condition-case nil |
| 863 | (progn (treesit-query-capture 'csharp '((void_keyword) @capture)) | 925 | (progn (treesit-query-capture 'csharp '((void_keyword) @capture)) |
| 864 | `((method_declaration type: [(identifier) (void_keyword)] @font-lock-type-face))) | 926 | `((method_declaration ,csharp-ts-mode--type-field [(identifier) (void_keyword)] @font-lock-type-face))) |
| 865 | (error | 927 | (error |
| 866 | `((method_declaration type: [(identifier) (predefined_type)] @font-lock-type-face)))) | 928 | `((method_declaration ,csharp-ts-mode--type-field [(identifier) (predefined_type)] @font-lock-type-face)))) |
| 867 | (method_declaration type: (generic_name (identifier) @font-lock-type-face)) | 929 | (method_declaration ,csharp-ts-mode--type-field (generic_name (identifier) @font-lock-type-face)) |
| 868 | (method_declaration name: (_) @font-lock-function-name-face) | 930 | (method_declaration name: (_) @font-lock-function-name-face) |
| 869 | 931 | ||
| 870 | (catch_declaration | 932 | (catch_declaration |
| @@ -907,25 +969,45 @@ compilation and evaluation time conflicts." | |||
| 907 | :language 'c-sharp | 969 | :language 'c-sharp |
| 908 | :feature 'directives | 970 | :feature 'directives |
| 909 | :override t | 971 | :override t |
| 910 | '((if_directive | 972 | (if (csharp-ts-mode--test-if-directive) |
| 911 | "if" @font-lock-preprocessor-face | 973 | '((if_directive |
| 912 | (identifier) @font-lock-variable-use-face) | 974 | "if" @font-lock-preprocessor-face |
| 913 | (elif_directive | 975 | (identifier) @font-lock-variable-use-face) |
| 914 | "elif" @font-lock-preprocessor-face | 976 | (elif_directive |
| 915 | (identifier) @font-lock-variable-use-face) | 977 | "elif" @font-lock-preprocessor-face |
| 916 | (else_directive) @font-lock-preprocessor-face | 978 | (identifier) @font-lock-variable-use-face) |
| 917 | (endif_directive) @font-lock-preprocessor-face | 979 | (else_directive) @font-lock-preprocessor-face |
| 918 | (define_directive | 980 | (endif_directive) @font-lock-preprocessor-face |
| 919 | "define" @font-lock-preprocessor-face | 981 | (define_directive |
| 920 | (identifier) @font-lock-variable-use-face) | 982 | "define" @font-lock-preprocessor-face |
| 921 | (nullable_directive) @font-lock-preprocessor-face | 983 | (identifier) @font-lock-variable-use-face) |
| 922 | (pragma_directive) @font-lock-preprocessor-face | 984 | (nullable_directive) @font-lock-preprocessor-face |
| 923 | (region_directive) @font-lock-preprocessor-face | 985 | (pragma_directive) @font-lock-preprocessor-face |
| 924 | (endregion_directive) @font-lock-preprocessor-face | 986 | (region_directive) @font-lock-preprocessor-face |
| 925 | (region_directive | 987 | (endregion_directive) @font-lock-preprocessor-face |
| 926 | (preproc_message) @font-lock-variable-use-face) | 988 | (region_directive |
| 927 | (endregion_directive | 989 | (preproc_message) @font-lock-variable-use-face) |
| 928 | (preproc_message) @font-lock-variable-use-face)))) | 990 | (endregion_directive |
| 991 | (preproc_message) @font-lock-variable-use-face)) | ||
| 992 | '((preproc_if | ||
| 993 | "#if" @font-lock-preprocessor-face | ||
| 994 | (identifier) @font-lock-variable-use-face) | ||
| 995 | (preproc_elif | ||
| 996 | "#elif" @font-lock-preprocessor-face | ||
| 997 | (identifier) @font-lock-variable-use-face) | ||
| 998 | (preproc_else) @font-lock-preprocessor-face | ||
| 999 | "#endif" @font-lock-preprocessor-face | ||
| 1000 | (preproc_define | ||
| 1001 | "#define" @font-lock-preprocessor-face | ||
| 1002 | (preproc_arg) @font-lock-variable-use-face) | ||
| 1003 | (preproc_nullable) @font-lock-preprocessor-face | ||
| 1004 | (preproc_pragma) @font-lock-preprocessor-face | ||
| 1005 | (preproc_region) @font-lock-preprocessor-face | ||
| 1006 | (preproc_endregion) @font-lock-preprocessor-face | ||
| 1007 | (preproc_region | ||
| 1008 | (preproc_arg) @font-lock-variable-use-face) | ||
| 1009 | (preproc_endregion | ||
| 1010 | (preproc_arg) @font-lock-variable-use-face))))) | ||
| 929 | 1011 | ||
| 930 | ;;;###autoload | 1012 | ;;;###autoload |
| 931 | (add-to-list 'auto-mode-alist '("\\.cs\\'" . csharp-mode)) | 1013 | (add-to-list 'auto-mode-alist '("\\.cs\\'" . csharp-mode)) |
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 5f2f66c5384..3c0c23f1c45 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el | |||
| @@ -178,9 +178,9 @@ | |||
| 178 | 178 | ||
| 179 | ;;; User tweakable stuff | 179 | ;;; User tweakable stuff |
| 180 | (defgroup eglot nil | 180 | (defgroup eglot nil |
| 181 | "Interaction with Language Server Protocol servers." | 181 | "Interaction with Language Server Protocol (LSP) servers." |
| 182 | :prefix "eglot-" | 182 | :prefix "eglot-" |
| 183 | :group 'applications) | 183 | :group 'tools) |
| 184 | 184 | ||
| 185 | (defun eglot-alternatives (alternatives) | 185 | (defun eglot-alternatives (alternatives) |
| 186 | "Compute server-choosing function for `eglot-server-programs'. | 186 | "Compute server-choosing function for `eglot-server-programs'. |
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index d3eb0d46e9b..35dc0215046 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1894,27 +1894,40 @@ description of the arguments." | |||
| 1894 | (try-completion string (tags-table-files) predicate)))) | 1894 | (try-completion string (tags-table-files) predicate)))) |
| 1895 | 1895 | ||
| 1896 | (defun tags--get-current-buffer-name-in-tags-file () | 1896 | (defun tags--get-current-buffer-name-in-tags-file () |
| 1897 | "Get the file name that the current buffer corresponds in the tags file." | 1897 | "Return file name that corresponds to the current buffer in the tags table. |
| 1898 | (let ((tag-dir | 1898 | This returns the file name which corresponds to the current buffer relative |
| 1899 | (save-excursion | 1899 | to the directory of the current tags table (see `visit-tags-table-buffer'). |
| 1900 | (visit-tags-table-buffer) | 1900 | If no file is associated with the current buffer, this function returns nil." |
| 1901 | (file-name-directory (buffer-file-name))))) | 1901 | (let ((buf-fname (buffer-file-name))) |
| 1902 | (file-relative-name (buffer-file-name) tag-dir))) | 1902 | ;; FIXME: Are there interesting cases where 'buffer-file-name' |
| 1903 | ;; returns nil, but there's some file we expect to find in TAGS that | ||
| 1904 | ;; is associated with the buffer? The obvious cases of Dired and | ||
| 1905 | ;; Info buffers are not interesting for TAGS, but are there any | ||
| 1906 | ;; others? | ||
| 1907 | (if buf-fname | ||
| 1908 | (let ((tag-dir | ||
| 1909 | (save-excursion | ||
| 1910 | (visit-tags-table-buffer) | ||
| 1911 | (file-name-directory buf-fname)))) | ||
| 1912 | (file-relative-name buf-fname tag-dir))))) | ||
| 1903 | 1913 | ||
| 1904 | ;;;###autoload | 1914 | ;;;###autoload |
| 1905 | (defun list-tags (file &optional _next-match) | 1915 | (defun list-tags (file &optional _next-match) |
| 1906 | "Display list of tags in file FILE. | 1916 | "Display list of tags in file FILE. |
| 1907 | This searches only the first table in the list, and no included | 1917 | Interactively, prompt for FILE, with completion, offering the current |
| 1908 | tables. FILE should be as it appeared in the `etags' command, | 1918 | buffer's file name as the defaul. |
| 1909 | usually without a directory specification. If called | 1919 | This command searches only the first table in the list of tags tables, |
| 1910 | interactively, FILE defaults to the file name of the current | 1920 | and does not search included tables. |
| 1911 | buffer." | 1921 | FILE should be as it was submitted to the `etags' command, which usually |
| 1922 | means relative to the directory of the tags table file." | ||
| 1912 | (interactive (list (completing-read | 1923 | (interactive (list (completing-read |
| 1913 | "List tags in file: " | 1924 | "List tags in file: " |
| 1914 | 'tags-complete-tags-table-file | 1925 | 'tags-complete-tags-table-file |
| 1915 | nil t | 1926 | nil t |
| 1916 | ;; Default FILE to the current buffer. | 1927 | ;; Default FILE to the current buffer's file. |
| 1917 | (tags--get-current-buffer-name-in-tags-file)))) | 1928 | (tags--get-current-buffer-name-in-tags-file)))) |
| 1929 | (if (string-empty-p file) | ||
| 1930 | (user-error "You must specify a file name")) | ||
| 1918 | (with-output-to-temp-buffer "*Tags List*" | 1931 | (with-output-to-temp-buffer "*Tags List*" |
| 1919 | (princ (substitute-command-keys "Tags in file `")) | 1932 | (princ (substitute-command-keys "Tags in file `")) |
| 1920 | (tags-with-face 'highlight (princ file)) | 1933 | (tags-with-face 'highlight (princ file)) |
diff --git a/lisp/progmodes/lua-ts-mode.el b/lisp/progmodes/lua-ts-mode.el index d167215326c..a1dae0628d4 100644 --- a/lisp/progmodes/lua-ts-mode.el +++ b/lisp/progmodes/lua-ts-mode.el | |||
| @@ -676,19 +676,19 @@ Calls REPORT-FN directly." | |||
| 676 | 676 | ||
| 677 | (defun lua-ts-send-buffer () | 677 | (defun lua-ts-send-buffer () |
| 678 | "Send current buffer to the inferior Lua process." | 678 | "Send current buffer to the inferior Lua process." |
| 679 | (interactive) | 679 | (interactive nil lua-ts-mode) |
| 680 | (lua-ts-send-region (point-min) (point-max))) | 680 | (lua-ts-send-region (point-min) (point-max))) |
| 681 | 681 | ||
| 682 | (defun lua-ts-send-file (file) | 682 | (defun lua-ts-send-file (file) |
| 683 | "Send contents of FILE to the inferior Lua process." | 683 | "Send contents of FILE to the inferior Lua process." |
| 684 | (interactive "f") | 684 | (interactive "f" lua-ts-mode) |
| 685 | (with-temp-buffer | 685 | (with-temp-buffer |
| 686 | (insert-file-contents-literally file) | 686 | (insert-file-contents-literally file) |
| 687 | (lua-ts-send-region (point-min) (point-max)))) | 687 | (lua-ts-send-region (point-min) (point-max)))) |
| 688 | 688 | ||
| 689 | (defun lua-ts-send-region (beg end) | 689 | (defun lua-ts-send-region (beg end) |
| 690 | "Send region between BEG and END to the inferior Lua process." | 690 | "Send region between BEG and END to the inferior Lua process." |
| 691 | (interactive "r") | 691 | (interactive "r" lua-ts-mode) |
| 692 | (let ((string (buffer-substring-no-properties beg end)) | 692 | (let ((string (buffer-substring-no-properties beg end)) |
| 693 | (proc-buffer (lua-ts-inferior-lua))) | 693 | (proc-buffer (lua-ts-inferior-lua))) |
| 694 | (comint-send-string proc-buffer "print()") ; Prevent output from | 694 | (comint-send-string proc-buffer "print()") ; Prevent output from |
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 5532d5f6ce1..812e28268c2 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -233,23 +233,6 @@ | |||
| 233 | ;; `python-imenu-format-parent-item-jump-label-function' variables for | 233 | ;; `python-imenu-format-parent-item-jump-label-function' variables for |
| 234 | ;; changing the way labels are formatted in the tree version. | 234 | ;; changing the way labels are formatted in the tree version. |
| 235 | 235 | ||
| 236 | ;; If you used python-mode.el you may miss auto-indentation when | ||
| 237 | ;; inserting newlines. To achieve the same behavior you have two | ||
| 238 | ;; options: | ||
| 239 | |||
| 240 | ;; 1) Enable the minor-mode `electric-indent-mode' (enabled by | ||
| 241 | ;; default) and use RET. If this mode is disabled use | ||
| 242 | ;; `newline-and-indent', bound to C-j. | ||
| 243 | |||
| 244 | ;; 2) Add the following hook in your .emacs: | ||
| 245 | |||
| 246 | ;; (add-hook 'python-mode-hook | ||
| 247 | ;; (lambda () | ||
| 248 | ;; (define-key python-mode-map "\C-m" 'newline-and-indent))) | ||
| 249 | |||
| 250 | ;; I'd recommend the first one since you'll get the same behavior for | ||
| 251 | ;; all modes out-of-the-box. | ||
| 252 | |||
| 253 | ;; Flymake: A Flymake backend, using the pyflakes program by default, | 236 | ;; Flymake: A Flymake backend, using the pyflakes program by default, |
| 254 | ;; is provided. You can also use flake8 or pylint by customizing | 237 | ;; is provided. You can also use flake8 or pylint by customizing |
| 255 | ;; `python-flymake-command'. | 238 | ;; `python-flymake-command'. |
| @@ -440,7 +423,7 @@ To customize the Python interpreter for interactive use, modify | |||
| 440 | :help "Toggle subword movement and editing mode"]))) | 423 | :help "Toggle subword movement and editing mode"]))) |
| 441 | 424 | ||
| 442 | (defvar python-ts-mode-map (copy-keymap python-mode-map) | 425 | (defvar python-ts-mode-map (copy-keymap python-mode-map) |
| 443 | "Keymap for `(copy-keymap python-mode-map)'.") | 426 | "Keymap for `python-ts-mode'.") |
| 444 | 427 | ||
| 445 | 428 | ||
| 446 | ;;; Python specialized rx | 429 | ;;; Python specialized rx |
diff --git a/lisp/window.el b/lisp/window.el index 07ea9584908..5822947f2fe 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -2661,7 +2661,7 @@ window is included in the count. | |||
| 2661 | If ALL-FRAMES is non-nil, count the windows in all frames instead | 2661 | If ALL-FRAMES is non-nil, count the windows in all frames instead |
| 2662 | just the selected frame. | 2662 | just the selected frame. |
| 2663 | 2663 | ||
| 2664 | See `walk-windows' for the precise meaning of this argument." | 2664 | See `walk-windows' for the precise meaning of these arguments." |
| 2665 | (length (window-list-1 nil minibuf all-frames))) | 2665 | (length (window-list-1 nil minibuf all-frames))) |
| 2666 | 2666 | ||
| 2667 | ;;; Resizing windows. | 2667 | ;;; Resizing windows. |
| @@ -4661,7 +4661,8 @@ Also see `switch-to-prev-buffer-skip-regexp'." | |||
| 4661 | "Buffers that `switch-to-prev-buffer' and `switch-to-next-buffer' should skip. | 4661 | "Buffers that `switch-to-prev-buffer' and `switch-to-next-buffer' should skip. |
| 4662 | The value can either be a regexp or a list of regexps. Buffers whose | 4662 | The value can either be a regexp or a list of regexps. Buffers whose |
| 4663 | names match these regexps are skipped by `switch-to-prev-buffer' | 4663 | names match these regexps are skipped by `switch-to-prev-buffer' |
| 4664 | and `switch-to-next-buffer'. | 4664 | and `switch-to-next-buffer', unless there's no other buffer to |
| 4665 | switch to. | ||
| 4665 | 4666 | ||
| 4666 | Also see `switch-to-prev-buffer-skip'." | 4667 | Also see `switch-to-prev-buffer-skip'." |
| 4667 | :type '(choice regexp | 4668 | :type '(choice regexp |
diff --git a/nt/INSTALL b/nt/INSTALL index 6167365169b..b959ce362f7 100644 --- a/nt/INSTALL +++ b/nt/INSTALL | |||
| @@ -157,7 +157,7 @@ build should run on Windows 9X and newer systems). | |||
| 157 | When the installation ends, perform the post-installation steps | 157 | When the installation ends, perform the post-installation steps |
| 158 | described on this page of the MinGW site: | 158 | described on this page of the MinGW site: |
| 159 | 159 | ||
| 160 | http://www.mingw.org/wiki/Getting_Started | 160 | https://web.archive.org/web/20210106033223/http://www.mingw.org/wiki/Getting_Started |
| 161 | 161 | ||
| 162 | in the "After Installing You Should ..." section. These steps are | 162 | in the "After Installing You Should ..." section. These steps are |
| 163 | important for making your installation complete, and in particular | 163 | important for making your installation complete, and in particular |
diff --git a/test/lisp/eshell/esh-var-tests.el b/test/lisp/eshell/esh-var-tests.el index 6b0e225f05f..7b29e4a21db 100644 --- a/test/lisp/eshell/esh-var-tests.el +++ b/test/lisp/eshell/esh-var-tests.el | |||
| @@ -669,6 +669,11 @@ nil, use FUNCTION instead." | |||
| 669 | (eshell-match-command-output "env VAR=hello env" "VAR=hello\n") | 669 | (eshell-match-command-output "env VAR=hello env" "VAR=hello\n") |
| 670 | (should (equal (getenv "VAR") "value")))) | 670 | (should (equal (getenv "VAR") "value")))) |
| 671 | 671 | ||
| 672 | (ert-deftest esh-var-test/local-variables/env/no-locals () | ||
| 673 | "Test that \"env command\" works like \"command\"." | ||
| 674 | (with-temp-eshell | ||
| 675 | (eshell-match-command-output "env echo hi" "\\`hi\n"))) | ||
| 676 | |||
| 672 | 677 | ||
| 673 | ;; Variable aliases | 678 | ;; Variable aliases |
| 674 | 679 | ||