[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/comp-static-data 49ffcbf86a3 1/2: Merge branch 'master' into scr
|
From: |
Vibhav Pant |
|
Subject: |
scratch/comp-static-data 49ffcbf86a3 1/2: Merge branch 'master' into scratch/comp-static-data |
|
Date: |
Wed, 7 Jun 2023 11:45:03 -0400 (EDT) |
branch: scratch/comp-static-data
commit 49ffcbf86a32a8a217538d4df3736fe069ccf35d
Merge: af569fa3d90 7ca1d782f59
Author: Vibhav Pant <vibhavp@gmail.com>
Commit: Vibhav Pant <vibhavp@gmail.com>
Merge branch 'master' into scratch/comp-static-data
---
.dir-locals.el | 3 +
CONTRIBUTE | 12 +-
ChangeLog.4 | 115679 ++++++++++++++++++
INSTALL | 6 +
Makefile.in | 13 +-
admin/admin.el | 3 +-
admin/authors.el | 2 +-
admin/charsets/Makefile.in | 2 +-
admin/charsets/mapconv | 3 +-
admin/cus-test.el | 2 -
admin/git-bisect-start | 18 +-
admin/make-tarball.txt | 35 +-
admin/merge-gnulib | 8 +-
admin/notes/emba | 40 +
admin/notes/tree-sitter/build-module/README | 17 -
admin/notes/tree-sitter/build-module/batch.sh | 2 +
admin/notes/tree-sitter/build-module/build.sh | 6 +
.../tree-sitter/html-manual/Accessing-Node.html | 205 -
.../html-manual/Language-Definitions.html | 401 -
.../html-manual/Multiple-Languages.html | 327 -
.../html-manual/Parser_002dbased-Font-Lock.html | 247 -
.../html-manual/Parser_002dbased-Indentation.html | 280 -
.../html-manual/Parsing-Program-Source.html | 125 -
.../tree-sitter/html-manual/Pattern-Matching.html | 450 -
.../tree-sitter/html-manual/Retrieving-Node.html | 420 -
.../html-manual/Tree_002dsitter-C-API.html | 211 -
.../tree-sitter/html-manual/Using-Parser.html | 230 -
.../notes/tree-sitter/html-manual/build-manual.sh | 23 -
admin/notes/tree-sitter/html-manual/manual.css | 374 -
admin/notes/tree-sitter/starter-guide | 157 +-
admin/notes/unicode | 17 +-
admin/unidata/emoji-variation-sequences.txt | 723 +
admin/unidata/emoji-zwj.awk | 3 +-
autogen.sh | 3 +-
build-aux/git-hooks/commit-msg-files.awk | 128 +
build-aux/git-hooks/post-commit | 47 +
build-aux/git-hooks/pre-push | 88 +
configure.ac | 139 +-
doc/emacs/custom.texi | 20 +
doc/emacs/display.texi | 7 +-
doc/emacs/files.texi | 93 +
doc/emacs/help.texi | 10 +
doc/emacs/macos.texi | 7 -
doc/emacs/maintaining.texi | 38 +-
doc/emacs/mini.texi | 18 +-
doc/emacs/mule.texi | 4 +-
doc/emacs/package.texi | 194 +-
doc/emacs/search.texi | 43 +-
doc/emacs/trouble.texi | 688 +-
doc/lispintro/emacs-lisp-intro.texi | 9 +-
doc/lispref/buffers.texi | 24 +-
doc/lispref/commands.texi | 42 +-
doc/lispref/control.texi | 3 +
doc/lispref/customize.texi | 16 +-
doc/lispref/display.texi | 331 +-
doc/lispref/files.texi | 4 +-
doc/lispref/frames.texi | 90 +-
doc/lispref/functions.texi | 34 +-
doc/lispref/help.texi | 26 +
doc/lispref/internals.texi | 9 +-
doc/lispref/keymaps.texi | 98 +-
doc/lispref/lists.texi | 32 +-
doc/lispref/loading.texi | 2 +-
doc/lispref/minibuf.texi | 38 +-
doc/lispref/modes.texi | 91 +-
doc/lispref/numbers.texi | 39 +-
doc/lispref/objects.texi | 22 +-
doc/lispref/os.texi | 18 +-
doc/lispref/parsing.texi | 78 +-
doc/lispref/positions.texi | 1 +
doc/lispref/processes.texi | 8 +-
doc/lispref/records.texi | 4 +
doc/lispref/sequences.texi | 52 +-
doc/lispref/symbols.texi | 11 +-
doc/lispref/text.texi | 33 +-
doc/lispref/variables.texi | 33 +-
doc/lispref/windows.texi | 2 +-
doc/misc/calc.texi | 4 +-
doc/misc/cc-mode.texi | 38 +
doc/misc/efaq.texi | 20 +-
doc/misc/eglot.texi | 611 +-
doc/misc/erc.texi | 76 +-
doc/misc/eshell.texi | 2 +
doc/misc/flymake.texi | 39 +-
doc/misc/gnus.texi | 48 +-
doc/misc/idlwave.texi | 7 +-
doc/misc/message.texi | 19 +-
doc/misc/modus-themes.org | 400 +-
doc/misc/org.org | 5 +-
doc/misc/texinfo.tex | 299 +-
doc/misc/tramp.texi | 137 +-
doc/misc/transient.texi | 20 +-
doc/misc/use-package.texi | 50 +-
etc/EGLOT-NEWS | 602 +
etc/ERC-NEWS | 227 +-
etc/HELLO | 4 +-
etc/NEWS | 321 +-
etc/NEWS.29 | 335 +-
etc/ORG-NEWS | 6 +-
etc/PROBLEMS | 43 +
etc/emacsclient-mail.desktop | 6 +-
etc/images/symbols/README | 43 +
etc/images/symbols/check-mark_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/check-mark_16.svg | 3 +
etc/images/symbols/chevron_down_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/chevron_down_16.svg | 3 +
etc/images/symbols/chevron_left_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/chevron_left_16.svg | 3 +
etc/images/symbols/chevron_right_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/chevron_right_16.svg | 3 +
etc/images/symbols/chevron_up_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/chevron_up_16.svg | 3 +
etc/images/symbols/cross_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/cross_16.svg | 3 +
etc/images/symbols/cross_circle_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/cross_circle_16.svg | 3 +
etc/images/symbols/cross_circle_fill_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/cross_circle_fill_16.svg | 3 +
etc/images/symbols/heart_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/heart_16.svg | 3 +
etc/images/symbols/heart_fill_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/heart_fill_16.svg | 3 +
etc/images/symbols/heart_half_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/heart_half_16.svg | 3 +
etc/images/symbols/menu_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/menu_16.svg | 3 +
etc/images/symbols/minus_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/minus_16.svg | 3 +
etc/images/symbols/minus_circle_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/minus_circle_16.svg | 3 +
etc/images/symbols/minus_circle_fill_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/minus_circle_fill_16.svg | 3 +
etc/images/symbols/plus_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/plus_16.svg | 3 +
etc/images/symbols/plus_circle_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/plus_circle_16.svg | 3 +
etc/images/symbols/plus_circle_fill_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/plus_circle_fill_16.svg | 3 +
etc/images/symbols/star_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/star_16.svg | 3 +
etc/images/symbols/star_fill_16.pbm | Bin 0 -> 41 bytes
etc/images/symbols/star_fill_16.svg | 3 +
etc/images/symbols/star_half_16.pbm | Bin 0 -> 72 bytes
etc/images/symbols/star_half_16.svg | 3 +
etc/publicsuffix.txt | 8 +-
etc/refcards/orgcard.tex | 2 +-
etc/themes/modus-operandi-deuteranopia-theme.el | 47 +-
etc/themes/modus-operandi-theme.el | 35 +-
etc/themes/modus-operandi-tinted-theme.el | 35 +-
...theme.el => modus-operandi-tritanopia-theme.el} | 257 +-
etc/themes/modus-themes.el | 385 +-
etc/themes/modus-vivendi-deuteranopia-theme.el | 49 +-
etc/themes/modus-vivendi-theme.el | 33 +-
etc/themes/modus-vivendi-tinted-theme.el | 33 +-
...-theme.el => modus-vivendi-tritanopia-theme.el} | 260 +-
etc/tutorials/TUTORIAL | 2 +-
etc/tutorials/TUTORIAL.cn | 152 +-
etc/tutorials/TUTORIAL.fa | 1164 +
etc/tutorials/TUTORIAL.translators | 5 +
leim/MISC-DIC/CTLau-b5.html | 4 +-
lib-src/ebrowse.c | 5 +-
lib-src/etags.c | 5 +-
lib-src/movemail.c | 5 +-
lib-src/update-game-score.c | 6 +-
lib/acl-internal.h | 8 +-
lib/acl.h | 5 +
lib/attribute.h | 15 +
lib/binary-io.h | 8 +-
lib/c++defs.h | 6 +
lib/c-ctype.h | 4 +-
lib/c-strcase.h | 5 +
lib/careadlinkat.h | 5 +
lib/count-leading-zeros.h | 8 +-
lib/count-one-bits.h | 8 +-
lib/count-trailing-zeros.h | 8 +-
lib/dirent-private.h | 67 +
lib/dirent.in.h | 49 +-
lib/dirfd.c | 17 +-
lib/eloop-threshold.h | 5 +
lib/execinfo.in.h | 4 +-
lib/fcntl.in.h | 5 +
lib/fdopendir.c | 97 +-
lib/file-has-acl.c | 111 +-
lib/filemode.h | 6 +
lib/filevercmp.h | 5 +
lib/flexmember.h | 5 +
lib/fpending.h | 6 +
lib/gettime.c | 4 +-
lib/gettimeofday.c | 14 +-
lib/gnulib.mk.in | 35 +-
lib/inttypes.in.h | 5 +
lib/limits.in.h | 5 +
lib/malloc/dynarray_emplace_enlarge.c | 4 +-
lib/malloc/dynarray_resize.c | 4 +-
lib/md5.h | 5 +
lib/minmax.h | 5 +
lib/mktime.c | 11 +-
lib/nanosleep.c | 3 +-
lib/nstrftime.c | 44 +-
lib/openat.h | 9 +-
lib/pathmax.h | 5 +
lib/pselect.c | 12 +-
lib/regex_internal.h | 3 +-
lib/regexec.c | 2 +-
lib/sha1.h | 5 +
lib/sha256.h | 5 +
lib/sha512.h | 5 +
lib/signal.in.h | 5 +
lib/stat-time.h | 45 +-
lib/stddef.in.h | 52 +-
lib/stdio.in.h | 95 +-
lib/stdlib.in.h | 63 +-
lib/string.in.h | 6 +
lib/strtol.c | 14 +-
lib/sys_random.in.h | 5 +
lib/sys_select.in.h | 12 +
lib/sys_stat.in.h | 12 +
lib/sys_time.in.h | 12 +
lib/sys_types.in.h | 7 +
lib/time.in.h | 31 +
lib/timespec-add.c | 5 +-
lib/timespec-sub.c | 5 +-
lib/timespec.h | 14 +-
lib/u64.h | 8 +-
lib/unistd.in.h | 9 +-
lib/unlocked-io.h | 5 +
lib/utimens.c | 20 +-
lib/utimens.h | 8 +-
lib/verify.h | 34 +-
lisp/Makefile.in | 7 +-
lisp/abbrev.el | 22 +-
lisp/allout-widgets.el | 3 +-
lisp/allout.el | 4 +-
lisp/arc-mode.el | 101 +-
lisp/calc/calc-graph.el | 7 +-
lisp/calc/calc-misc.el | 1 -
lisp/calc/calc-prog.el | 1 -
lisp/calculator.el | 5 +-
lisp/calendar/appt.el | 2 +-
lisp/calendar/parse-time.el | 16 +-
lisp/calendar/todo-mode.el | 298 +-
lisp/cedet/semantic.el | 27 +-
lisp/comint.el | 35 +
lisp/composite.el | 4 +-
lisp/custom.el | 4 +-
lisp/dired-aux.el | 8 +-
lisp/dired.el | 17 +-
lisp/doc-view.el | 19 +-
lisp/dynamic-setting.el | 1 +
lisp/edmacro.el | 8 +-
lisp/electric.el | 4 +-
lisp/emacs-lisp/backtrace.el | 1 -
lisp/emacs-lisp/benchmark.el | 2 +-
lisp/emacs-lisp/byte-opt.el | 506 +-
lisp/emacs-lisp/byte-run.el | 14 +-
lisp/emacs-lisp/bytecomp.el | 183 +-
lisp/emacs-lisp/cl-extra.el | 2 +
lisp/emacs-lisp/cl-lib.el | 1 +
lisp/emacs-lisp/cl-macs.el | 142 +-
lisp/emacs-lisp/cl-preloaded.el | 2 +
lisp/emacs-lisp/comp-cstr.el | 83 +-
lisp/emacs-lisp/comp.el | 203 +-
lisp/emacs-lisp/easy-mmode.el | 30 +-
lisp/emacs-lisp/edebug.el | 148 +-
lisp/emacs-lisp/eldoc.el | 187 +-
lisp/emacs-lisp/ert-x.el | 4 +-
lisp/emacs-lisp/gv.el | 9 +-
lisp/emacs-lisp/lisp.el | 22 +-
lisp/emacs-lisp/loaddefs-gen.el | 138 +-
lisp/emacs-lisp/macroexp.el | 5 +
lisp/emacs-lisp/nadvice.el | 2 +
lisp/emacs-lisp/package-vc.el | 211 +-
lisp/emacs-lisp/package.el | 325 +-
lisp/emacs-lisp/regexp-opt.el | 2 +
lisp/emacs-lisp/rx.el | 1 +
lisp/emacs-lisp/shortdoc.el | 162 +-
lisp/emacs-lisp/subr-x.el | 16 +
lisp/emulation/viper-cmd.el | 36 +-
lisp/emulation/viper-ex.el | 3 +-
lisp/emulation/viper-init.el | 3 +-
lisp/env.el | 3 +
lisp/epa-ks.el | 10 +-
lisp/erc/erc-backend.el | 215 +-
lisp/erc/erc-button.el | 361 +-
lisp/erc/erc-capab.el | 1 +
lisp/erc/erc-common.el | 257 +-
lisp/erc/erc-compat.el | 77 +-
lisp/erc/erc-dcc.el | 64 +-
lisp/erc/erc-fill.el | 400 +-
lisp/erc/erc-goodies.el | 281 +-
lisp/erc/erc-ibuffer.el | 1 +
lisp/erc/erc-imenu.el | 24 +-
lisp/erc/erc-join.el | 9 +-
lisp/erc/erc-log.el | 26 +-
lisp/erc/erc-match.el | 37 +-
lisp/erc/erc-netsplit.el | 4 +-
lisp/erc/erc-networks.el | 22 +-
lisp/erc/erc-page.el | 4 +
lisp/erc/erc-pcomplete.el | 2 +
lisp/erc/erc-ring.el | 4 +-
lisp/erc/erc-sasl.el | 47 +-
lisp/erc/erc-services.el | 1 +
lisp/erc/erc-sound.el | 1 +
lisp/erc/erc-speedbar.el | 1 +
lisp/erc/erc-spelling.el | 5 +-
lisp/erc/erc-stamp.el | 265 +-
lisp/erc/erc-track.el | 6 +-
lisp/erc/erc-truncate.el | 21 +-
lisp/erc/erc.el | 1116 +-
lisp/eshell/em-cmpl.el | 64 +-
lisp/eshell/em-dirs.el | 19 +-
lisp/eshell/em-glob.el | 12 +-
lisp/eshell/em-ls.el | 6 +-
lisp/eshell/em-pred.el | 4 +-
lisp/eshell/em-unix.el | 81 +-
lisp/eshell/esh-arg.el | 68 +-
lisp/eshell/esh-cmd.el | 206 +-
lisp/eshell/esh-proc.el | 11 +-
lisp/eshell/esh-util.el | 5 +
lisp/eshell/esh-var.el | 95 +-
lisp/eshell/eshell.el | 53 +-
lisp/faces.el | 8 +-
lisp/filecache.el | 2 +-
lisp/files-x.el | 8 +-
lisp/files.el | 42 +-
lisp/filesets.el | 1 -
lisp/find-dired.el | 7 +-
lisp/find-file.el | 4 +-
lisp/foldout.el | 2 +-
lisp/frame.el | 3 +-
lisp/gnus/gnus-art.el | 13 +-
lisp/gnus/gnus-eform.el | 13 +-
lisp/gnus/gnus-group.el | 3 +-
lisp/gnus/gnus-icalendar.el | 2 +-
lisp/gnus/gnus-search.el | 109 +-
lisp/gnus/gnus-start.el | 3 +-
lisp/gnus/gnus-sum.el | 141 +-
lisp/gnus/gnus.el | 1 +
lisp/gnus/mail-source.el | 87 +-
lisp/gnus/message.el | 44 +-
lisp/gnus/mm-view.el | 2 +-
lisp/gnus/mml2015.el | 2 +-
lisp/gnus/nndiary.el | 4 +-
lisp/gnus/nnimap.el | 14 +-
lisp/gnus/nnselect.el | 829 +-
lisp/gnus/nntp.el | 7 +-
lisp/help-fns.el | 31 +-
lisp/help.el | 29 +-
lisp/htmlfontify.el | 4 +-
lisp/ibuf-ext.el | 93 +-
lisp/icomplete.el | 10 +-
lisp/image.el | 77 +-
lisp/image/image-crop.el | 59 +-
lisp/image/image-dired.el | 23 +-
lisp/imenu.el | 4 +-
lisp/info-look.el | 6 +-
lisp/international/characters.el | 10 +
lisp/international/emoji.el | 60 +-
lisp/international/fontset.el | 2 +
lisp/international/ja-dic-cnv.el | 4 +-
lisp/international/mule-cmds.el | 3 +-
lisp/international/mule.el | 16 +-
lisp/international/quail.el | 6 +-
lisp/international/textsec.el | 3 +-
lisp/isearch.el | 6 +-
lisp/jsonrpc.el | 22 +-
lisp/keymap.el | 19 +-
lisp/language/cyrillic.el | 10 +
lisp/language/misc-lang.el | 29 +-
lisp/ldefs-boot.el | 322 +-
lisp/leim/quail/cyrillic.el | 119 +
lisp/leim/quail/greek.el | 1 +
lisp/leim/quail/persian.el | 122 +-
lisp/loadup.el | 8 +-
lisp/lpr.el | 3 +-
lisp/ls-lisp.el | 2 +-
lisp/mail/binhex.el | 2 +-
lisp/mail/feedmail.el | 78 +-
lisp/mail/mailclient.el | 193 +-
lisp/mail/rmail.el | 94 +-
lisp/mail/smtpmail.el | 87 +-
lisp/mail/uudecode.el | 2 +-
lisp/mail/yenc.el | 4 +-
lisp/menu-bar.el | 5 +-
lisp/mh-e/mh-print.el | 3 +-
lisp/minibuffer.el | 39 +-
lisp/misc.el | 16 +-
lisp/mouse.el | 3 +-
lisp/mpc.el | 2 +-
lisp/mwheel.el | 13 +-
lisp/net/ange-ftp.el | 10 +-
lisp/net/browse-url.el | 13 +-
lisp/net/dbus.el | 6 +-
lisp/net/dictionary.el | 206 +-
lisp/net/eudc-vars.el | 7 +-
lisp/net/eudcb-mab.el | 3 +-
lisp/net/eww.el | 53 +-
lisp/net/mailcap.el | 13 +-
lisp/net/net-utils.el | 10 +-
lisp/net/ntlm.el | 1 -
lisp/net/rcirc.el | 14 +-
lisp/net/secrets.el | 27 +-
lisp/net/shr.el | 35 +-
lisp/net/soap-client.el | 10 +-
lisp/net/socks.el | 1 -
lisp/net/tramp-adb.el | 64 +-
lisp/net/tramp-archive.el | 14 +-
lisp/net/tramp-cache.el | 12 +-
lisp/net/tramp-cmds.el | 79 +-
lisp/net/tramp-compat.el | 23 +-
lisp/net/tramp-container.el | 85 +-
lisp/net/tramp-crypt.el | 48 +-
lisp/net/tramp-fuse.el | 39 +-
lisp/net/tramp-gvfs.el | 187 +-
lisp/net/tramp-integration.el | 15 +-
lisp/net/tramp-rclone.el | 4 +-
lisp/net/tramp-sh.el | 266 +-
lisp/net/tramp-smb.el | 175 +-
lisp/net/tramp-sshfs.el | 8 +-
lisp/net/tramp-sudoedit.el | 50 +-
lisp/net/tramp.el | 233 +-
lisp/novice.el | 20 +-
lisp/nxml/rng-nxml.el | 2 +-
lisp/nxml/xmltok.el | 9 +-
lisp/obsolete/autoload.el | 2 +-
lisp/obsolete/mantemp.el | 2 +-
lisp/org/ob-R.el | 5 +-
lisp/org/ob-comint.el | 37 +-
lisp/org/ob-core.el | 3 +-
lisp/org/ob-js.el | 5 +-
lisp/org/ob-latex.el | 17 +-
lisp/org/ob-tangle.el | 10 +-
lisp/org/oc.el | 4 +-
lisp/org/ol-bibtex.el | 22 +-
lisp/org/org-agenda.el | 5 +-
lisp/org/org-clock.el | 103 +-
lisp/org/org-element.el | 6 +-
lisp/org/org-macs.el | 15 +-
lisp/org/org-persist.el | 8 +-
lisp/org/org-src.el | 2 +-
lisp/org/org-table.el | 8 +-
lisp/org/org-version.el | 4 +-
lisp/org/org.el | 73 +-
lisp/org/ox-ascii.el | 4 +-
lisp/org/ox-html.el | 4 +-
lisp/org/ox-latex.el | 12 +-
lisp/org/ox-md.el | 4 +-
lisp/org/ox-odt.el | 37 +-
lisp/org/ox-texinfo.el | 11 +-
lisp/outline.el | 8 +-
lisp/pcmpl-gnu.el | 269 +-
lisp/pcmpl-linux.el | 3 +-
lisp/pixel-scroll.el | 7 +
lisp/plstore.el | 203 +-
lisp/progmodes/c-ts-common.el | 19 +-
lisp/progmodes/c-ts-mode.el | 409 +-
lisp/progmodes/cc-defs.el | 151 +-
lisp/progmodes/cc-engine.el | 503 +-
lisp/progmodes/cc-fonts.el | 7 +-
lisp/progmodes/cc-langs.el | 10 +-
lisp/progmodes/cc-mode.el | 2 -
lisp/progmodes/cc-styles.el | 5 +-
lisp/progmodes/cc-vars.el | 24 +
lisp/progmodes/cperl-mode.el | 2 +-
lisp/progmodes/csharp-mode.el | 15 +-
lisp/progmodes/dcl-mode.el | 2 +-
lisp/progmodes/dockerfile-ts-mode.el | 5 +-
lisp/progmodes/ebnf-otz.el | 3 +-
lisp/progmodes/ebrowse.el | 6 +-
lisp/progmodes/eglot.el | 976 +-
lisp/progmodes/elixir-ts-mode.el | 683 +
lisp/progmodes/etags.el | 10 +-
lisp/progmodes/flymake.el | 158 +-
lisp/progmodes/gdb-mi.el | 5 +-
lisp/progmodes/go-ts-mode.el | 30 +-
lisp/progmodes/gud.el | 83 +-
lisp/progmodes/heex-ts-mode.el | 185 +
lisp/progmodes/idlwave.el | 7 +-
lisp/progmodes/java-ts-mode.el | 18 +-
lisp/progmodes/make-mode.el | 10 +-
lisp/progmodes/prog-mode.el | 1 +
lisp/progmodes/project.el | 117 +-
lisp/progmodes/prolog.el | 4 +-
lisp/progmodes/python.el | 248 +-
lisp/progmodes/ruby-mode.el | 4 +-
lisp/progmodes/ruby-ts-mode.el | 115 +-
lisp/progmodes/rust-ts-mode.el | 18 +-
lisp/progmodes/scheme.el | 2 +-
lisp/progmodes/sh-script.el | 20 +-
lisp/progmodes/sql.el | 19 +-
lisp/progmodes/typescript-ts-mode.el | 30 +-
lisp/progmodes/verilog-mode.el | 54 +-
lisp/progmodes/vhdl-mode.el | 67 +-
lisp/progmodes/xref.el | 62 +-
lisp/replace.el | 7 +-
lisp/savehist.el | 5 +-
lisp/saveplace.el | 163 +-
lisp/select.el | 31 +-
lisp/server.el | 46 +-
lisp/shell.el | 40 +
lisp/simple.el | 168 +-
lisp/speedbar.el | 79 +-
lisp/startup.el | 14 +-
lisp/strokes.el | 42 +-
lisp/subr.el | 331 +-
lisp/tab-bar.el | 30 +-
lisp/term.el | 9 +-
lisp/term/haiku-win.el | 3 +
lisp/textmodes/enriched.el | 1 +
lisp/textmodes/html-ts-mode.el | 2 +-
lisp/textmodes/ispell.el | 17 +-
lisp/textmodes/reftex-index.el | 27 +-
lisp/textmodes/reftex.el | 6 +-
lisp/textmodes/table.el | 4 +-
lisp/textmodes/texinfo.el | 14 +-
lisp/thingatpt.el | 2 +-
lisp/tmm.el | 33 +-
lisp/transient.el | 48 +-
lisp/treesit.el | 422 +-
lisp/tutorial.el | 1 +
lisp/url/url-gw.el | 2 +-
lisp/url/url-mailto.el | 4 +-
lisp/url/url-misc.el | 2 +-
lisp/use-package/use-package-core.el | 112 +-
lisp/use-package/use-package-ensure.el | 3 +-
lisp/userlock.el | 13 +-
lisp/vc/ediff-diff.el | 2 +-
lisp/vc/vc-annotate.el | 2 +-
lisp/vc/vc-cvs.el | 226 +-
lisp/vc/vc-hg.el | 27 +-
lisp/vc/vc-hooks.el | 9 +
lisp/vc/vc.el | 53 +-
lisp/w32-fns.el | 2 +-
lisp/wdired.el | 2 +
lisp/wid-edit.el | 3 +-
lisp/windmove.el | 2 +
lisp/window.el | 24 +-
lisp/woman.el | 1 -
lisp/x-dnd.el | 128 +-
lisp/xml.el | 3 -
m4/acl.m4 | 48 +-
m4/codeset.m4 | 24 +
m4/dirent_h.m4 | 21 +-
m4/dirfd.m4 | 25 +-
m4/extern-inline.m4 | 4 +-
m4/gnulib-common.m4 | 78 +-
m4/gnulib-comp.m4 | 59 +-
m4/largefile.m4 | 175 +-
m4/libgmp.m4 | 4 +-
m4/limits-h.m4 | 1 +
m4/locale-fr.m4 | 253 +
m4/manywarnings.m4 | 22 +-
m4/musl.m4 | 20 +
m4/regex.m4 | 4 +-
m4/stdalign.m4 | 30 +-
m4/stddef_h.m4 | 17 +-
m4/stdio_h.m4 | 24 +-
m4/stdlib_h.m4 | 53 +-
m4/strtoll.m4 | 19 +-
m4/time_h.m4 | 4 +-
m4/xattr.m4 | 4 +-
nt/mingw-cfg.site | 2 +-
src/alloc.c | 27 +-
src/bignum.c | 2 +-
src/buffer.c | 52 +-
src/bytecode.c | 2 +-
src/callproc.c | 1 +
src/casefiddle.c | 4 +-
src/ccl.c | 28 +-
src/character.c | 16 +-
src/cmds.c | 2 +-
src/coding.c | 7 +-
src/comp.c | 8 +
src/composite.c | 20 +-
src/composite.h | 2 +-
src/data.c | 77 +-
src/dispextern.h | 37 +-
src/dispnew.c | 28 +-
src/doprnt.c | 4 +-
src/editfns.c | 363 +-
src/emacs-module.c | 6 +-
src/emacs.c | 2 +-
src/eval.c | 30 +-
src/fileio.c | 3 +-
src/floatfns.c | 12 +-
src/fns.c | 121 +-
src/font.c | 2 +-
src/fontset.c | 9 +
src/frame.c | 2 +-
src/fringe.c | 4 +-
src/ftcrfont.c | 1 -
src/gnutls.c | 6 +-
src/gtkutil.c | 4 +-
src/haikufont.c | 1 -
src/haikuterm.c | 2 +-
src/image.c | 45 +-
src/indent.c | 9 +-
src/itree.c | 6 +-
src/keyboard.c | 35 +-
src/keymap.c | 56 +-
src/lisp.h | 92 +-
src/lread.c | 320 +-
src/macfont.m | 50 +-
src/nsterm.m | 42 +-
src/pdumper.c | 30 +-
src/pgtkfns.c | 7 -
src/pgtkterm.c | 33 +-
src/pgtkterm.h | 1 -
src/print.c | 4 +-
src/profiler.c | 145 +-
src/regex-emacs.c | 48 +-
src/regex-emacs.h | 3 +-
src/sort.c | 2 +-
src/sqlite.c | 82 +-
src/syntax.c | 157 +-
src/syntax.h | 24 +-
src/sysdep.c | 7 +
src/term.c | 12 +-
src/termcap.c | 2 +-
src/textconv.c | 6 +-
src/thread.h | 9 +
src/timefns.c | 27 +-
src/tparam.c | 3 +-
src/treesit.c | 820 +-
src/w32.c | 9 +-
src/w32term.c | 2 +-
src/window.h | 2 +-
src/xdisp.c | 290 +-
src/xfns.c | 56 +-
src/xml.c | 10 +-
src/xselect.c | 6 +-
src/xsmfns.c | 2 +-
src/xterm.c | 231 +-
src/xterm.h | 11 +-
test/Makefile.in | 9 +-
test/infra/Dockerfile.emba | 85 +-
test/infra/Makefile.in | 32 +-
test/infra/gitlab-ci.yml | 60 +-
test/infra/test-jobs.yml | 93 +-
test/lisp/abbrev-tests.el | 16 +
test/lisp/arc-mode-tests.el | 79 +
test/lisp/auth-source-tests.el | 15 +-
test/lisp/calendar/cal-julian-tests.el | 2 +-
test/lisp/dired-aux-tests.el | 11 +-
test/lisp/dired-tests.el | 4 +-
test/lisp/dnd-tests.el | 2 +-
test/lisp/emacs-lisp/benchmark-tests.el | 4 +
test/lisp/emacs-lisp/bytecomp-tests.el | 86 +-
test/lisp/emacs-lisp/cl-lib-tests.el | 4 +-
test/lisp/emacs-lisp/cl-macs-tests.el | 2 +-
test/lisp/emacs-lisp/cl-print-tests.el | 2 +-
.../emacs-lisp/eieio-tests/eieio-test-persist.el | 10 +-
test/lisp/emacs-lisp/ert-tests.el | 28 +-
test/lisp/emacs-lisp/nadvice-tests.el | 16 +-
test/lisp/emacs-lisp/package-tests.el | 11 +-
test/lisp/emacs-lisp/shortdoc-tests.el | 43 +
test/lisp/emacs-lisp/subr-x-tests.el | 17 +-
test/lisp/erc/erc-button-tests.el | 283 +
test/lisp/erc/erc-dcc-tests.el | 69 +-
test/lisp/erc/erc-fill-tests.el | 338 +
test/lisp/erc/erc-goodies-tests.el | 325 +
test/lisp/erc/erc-networks-tests.el | 10 +-
test/lisp/erc/erc-scenarios-base-attach.el | 191 +
test/lisp/erc/erc-scenarios-base-auto-recon.el | 141 +
test/lisp/erc/erc-scenarios-base-buffer-display.el | 235 +
.../erc/erc-scenarios-base-local-module-modes.el | 211 +
test/lisp/erc/erc-scenarios-base-local-modules.el | 99 -
.../erc/erc-scenarios-base-misc-regressions.el | 44 +
test/lisp/erc/erc-scenarios-base-reconnect.el | 89 -
test/lisp/erc/erc-scenarios-base-renick.el | 43 +
test/lisp/erc/erc-scenarios-base-split-line.el | 202 +
test/lisp/erc/erc-scenarios-log.el | 207 +
test/lisp/erc/erc-scenarios-misc.el | 34 +
test/lisp/erc/erc-scenarios-sasl.el | 64 +
test/lisp/erc/erc-services-tests.el | 225 +-
test/lisp/erc/erc-stamp-tests.el | 265 +
test/lisp/erc/erc-tests.el | 1150 +-
.../base/assoc/bouncer-history/foonet.eld | 1 +
.../base/channel-buffer-revival/reattach.eld | 56 +
test/lisp/erc/resources/base/commands/motd.eld | 48 +
test/lisp/erc/resources/base/flood/ascii.eld | 49 +
test/lisp/erc/resources/base/flood/koi8-r.eld | 47 +
test/lisp/erc/resources/base/flood/utf-8.eld | 54 +
.../lisp/erc/resources/base/reconnect/just-eof.eld | 3 +
.../erc/resources/base/reconnect/just-ping.eld | 4 +
.../erc/resources/base/reconnect/ping-pong.eld | 6 +
.../base/reconnect/unexpected-disconnect.eld | 24 +
.../resources/base/renick/regain/normal-again.eld | 56 +
.../erc/resources/base/renick/regain/normal.eld | 53 +
test/lisp/erc/resources/erc-d/erc-d-tests.el | 2 +-
test/lisp/erc/resources/erc-d/erc-d.el | 9 +-
test/lisp/erc/resources/erc-scenarios-common.el | 3 +-
.../resources/fill/snapshots/merge-01-start.eld | 1 +
.../resources/fill/snapshots/merge-02-right.eld | 1 +
.../fill/snapshots/monospace-01-start.eld | 1 +
.../fill/snapshots/monospace-02-right.eld | 1 +
.../resources/fill/snapshots/monospace-03-left.eld | 1 +
.../fill/snapshots/monospace-04-reset.eld | 1 +
.../resources/fill/snapshots/spacing-01-mono.eld | 1 +
.../erc/resources/sasl/plain-overlong-aligned.eld | 39 +
.../erc/resources/sasl/plain-overlong-split.eld | 39 +
test/lisp/eshell/em-cmpl-tests.el | 128 +-
test/lisp/eshell/esh-arg-tests.el | 30 +
test/lisp/eshell/esh-cmd-tests.el | 18 +-
test/lisp/eshell/esh-proc-tests.el | 53 +
test/lisp/eshell/esh-var-tests.el | 2 +-
test/lisp/eshell/eshell-tests.el | 44 +
test/lisp/filenotify-tests.el | 16 +-
test/lisp/files-tests.el | 21 +
test/lisp/files-x-tests.el | 66 +-
test/lisp/find-cmd-tests.el | 2 +-
test/lisp/gnus/mml-sec-tests.el | 51 +-
test/lisp/hl-line-tests.el | 8 +-
test/lisp/image/wallpaper-tests.el | 33 +-
test/lisp/jsonrpc-tests.el | 2 +-
test/lisp/net/tramp-archive-tests.el | 34 +-
test/lisp/net/tramp-tests.el | 251 +-
test/lisp/proced-tests.el | 6 +-
.../lisp/progmodes/c-ts-mode-resources/indent.erts | 44 +
test/lisp/progmodes/eglot-tests.el | 486 +-
.../progmodes/elixir-ts-mode-resources/indent.erts | 374 +
test/lisp/progmodes/elixir-ts-mode-tests.el | 31 +
.../progmodes/heex-ts-mode-resources/indent.erts | 47 +
test/lisp/progmodes/heex-ts-mode-tests.el | 31 +
test/lisp/progmodes/python-tests.el | 518 +-
test/lisp/progmodes/ruby-mode-tests.el | 16 +
test/lisp/progmodes/ruby-ts-mode-tests.el | 42 +
test/lisp/simple-tests.el | 6 +-
test/lisp/subr-tests.el | 77 +-
test/lisp/textmodes/reftex-tests.el | 3 +-
test/lisp/thingatpt-tests.el | 33 +-
test/lisp/use-package/use-package-tests.el | 65 +
test/lisp/vc/vc-cvs-tests.el | 107 +
test/src/comp-resources/comp-test-funcs.el | 21 +
test/src/comp-tests.el | 57 +-
test/src/eval-tests.el | 35 +
test/src/fns-tests.el | 43 +-
test/src/keymap-tests.el | 18 +
test/src/lread-tests.el | 39 +-
test/src/sqlite-tests.el | 23 +-
test/src/treesit-tests.el | 123 +-
test/src/xdisp-tests.el | 2 +-
742 files changed, 147278 insertions(+), 14113 deletions(-)
diff --git a/.dir-locals.el b/.dir-locals.el
index fc89dff87f2..0bcded4b5d1 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -21,6 +21,9 @@
(electric-quote-comment . nil)
(electric-quote-string . nil)
(mode . bug-reference-prog)))
+ (c-ts-mode . ((c-ts-mode-indent-style . gnu)
+ (indent-tabs-mode . t)
+ (mode . bug-reference-prog)))
(log-edit-mode . ((log-edit-font-lock-gnu-style . t)
(log-edit-setup-add-author . t)
(vc-git-log-edit-summary-target-len . 50)))
diff --git a/CONTRIBUTE b/CONTRIBUTE
index dcf34f48fe5..464b800adfb 100644
--- a/CONTRIBUTE
+++ b/CONTRIBUTE
@@ -110,7 +110,7 @@ admin/notes/bug-triage.
Any change that matters to end-users should have an entry in etc/NEWS.
Try to start each NEWS entry with a sentence that summarizes the entry
-and takes just one line -- this will allow to read NEWS in Outline
+and takes just one line -- this will allow reading NEWS in Outline
mode after hiding the body of each entry.
Doc-strings should be updated together with the code.
@@ -123,7 +123,7 @@ Think about whether your change requires updating the
manuals. If you
know it does not, mark the NEWS entry with "---". If you know
that *all* the necessary documentation updates have been made as part
of your changes or those by others, mark the entry with "+++".
-Otherwise do not mark it.
+Otherwise, do not mark it.
If your change requires updating the manuals to document new
functions/commands/variables/faces, then use the proper Texinfo
@@ -321,7 +321,7 @@ them right the first time, so here are guidelines for
formatting them:
** Committing your changes.
When you commit changes, Git invokes several scripts that test the
-commit for validity, and may abort the commit of some of the tests
+commit for validity, and may abort the commit if some of the tests
fail. These scripts live in the '.git/hooks/' subdirectory of the
top-level directory of the repository, and they perform the following
tests:
@@ -400,7 +400,7 @@ the commit to master, by starting the commit message with
"Backport:".
The gitmerge function excludes these commits from the merge to the master.
Some changes should not be merged to master at all, for whatever
-reasons. These should be marked by including something like "Do not
+reason. These should be marked by including something like "Do not
merge to master" or anything that matches gitmerge-skip-regexp (see
admin/gitmerge.el) in the commit message.
@@ -449,8 +449,8 @@ files intended for use only with Emacs version 24.5 and
later.
*** Useful files in the admin/ directory
-See all the files in admin/notes/* . In particular, see
-admin/notes/newfile, see admin/notes/repo.
+See all the files in 'admin/notes/*'. In particular, see
+'admin/notes/newfile' and 'admin/notes/repo'.
The file admin/MAINTAINERS records the areas of interest of frequent
Emacs contributors. If you are making changes in one of the files
diff --git a/ChangeLog.4 b/ChangeLog.4
new file mode 100644
index 00000000000..2ce1351286e
--- /dev/null
+++ b/ChangeLog.4
@@ -0,0 +1,115679 @@
+2023-05-14 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Ignore current-prefix-arg in async-shell-command
+
+ * lisp/simple.el (async-shell-command): Ignore current-prefix-arg and
+ always pass nil to second argument of `shell-command'. (Bug#63432)
+
+2023-05-13 Joseph Turner <joseph@breatheoutbreathe.in>
+
+ Fix building of VC package manuals with relative includes
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--build-documentation):
+ Invoke makeinfo with -I to ensure the package directory is always
+ consulted for @include statements. (Bug#63337)
+
+2023-05-13 Cyril Arnould <cyril.arnould@outlook.com> (tiny change)
+
+ Another fix for VHDL mode highlighting
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-version): Bump to 3.38.5.
+ (vhdl-compiler-alist): Fix the regexps and the doc string.
+
+2023-05-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix auto-filling in Texinfo mode
+
+ This fixes auto-filling in Texinfo buffers. It was broken by the
+ fix to bug#49558, which made M-q fill over-long @noindent lines by
+ refraining from customizing 'paragraph-separate' in Texinfo mode.
+ The underlying problem here is that 'auto-fill-mode' doesn't call
+ mode-specific filling functions, but does its job by itself, and
+ depends on 'forward-paragraph' to find the beginning of the
+ paragraph as appropriate for calculation of 'fill-prefix', and a
+ different value of 'paragraph-separate' broke that. As a side
+ effect, the change below also changes paragraph-movement commands
+ in Texinfo back to how they behaved prior to that bugfix, but I
+ don't see why the paragraph-movement behavior introduced by that
+ fix made more sense. Try to move through a series of
+ @-directives, like a paragraph preceded by several @cindex
+ entries, and you will see the inconsistencies. In any case, the
+ adverse effects of that fix on auto-filling is unacceptable.
+
+ * lisp/textmodes/texinfo.el (fill-paragraph-separate): New
+ variable.
+ (texinfo-mode): Set 'fill-paragraph-separate' to the default value
+ of 'paragraph-separate'. Customize 'paragraph-separate' to the
+ Texinfo-specific value, as it was before commit dde591571abf.
+ (texinfo--fill-paragraph): Bind 'paragraph-separate' to the value
+ of 'fill-paragraph-separate', to keep 'M-q' happy.
+
+2023-05-12 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'scratch/long-lines-cleanup' into 'emacs-29'
+
+2023-05-12 Gregory Heytings <gregory@heytings.org>
+
+ Add an assertion in, and a commentary for, 'get_nearby_bol_pos'
+
+ * src/xdisp.c:
+ (get_nearby_bol_pos): Document the function, and add an assertion
+ on its return value.
+
+2023-05-12 Gregory Heytings <gregory@heytings.org>
+
+ Fix the return type of 'labeled_restrictions_get_bound'
+
+ * src/editfns.c:
+ (labeled_restrictions_get_bound): Return a Lisp_Object instead of
+ a pointer to a struct Lisp_Marker.
+ (unwind_reset_outermost_restriction, reset_outermost_restrictions)
+ (Fwiden, Fnarrow_to_region): Adapt to the new return type.
+
+2023-05-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix mouse highlight with some fonts in Cairo builds
+
+ * src/ftcrfont.c (ftcrfont_draw): Don't set the
+ 'background_filled_p' flag of the glyph string. (Bug#63271)
+
+2023-05-12 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure that package menu respects 'package-install-upgrade-built-in'
+
+ * lisp/emacs-lisp/package.el (package-menu--find-upgrades): Check if
+ built-in packages can be upgraded if
+ 'package-install-upgrade-built-in' is non-nil.
+
+2023-05-12 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure that EXTRA-DATA are always written when generating autoloads
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Handle
+ edge-case where no autoloads are found. (Bug#63260)
+
+2023-05-11 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.4.0
+
+ Or strictly speaking v0.4.0-1-g428576a4.)
+
+2023-05-11 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Don't have nntp-report signal an error"
+
+ This reverts commit 032969e8c65ba1ccda8466f6c61f20e0c7293ebf.
+ The commit is being reverted because it caused bug#62845.
+
+2023-05-10 Alan Mackenzie <acm@muc.de>
+
+ Make c-emacs-features use the proper binding of
parse-sexp-lookup-properties
+
+ This is relevant for bug #58558, although it does not fix it. Due to a
wrong
+ ordering of with-current-buffer and a let form, the function overwrote
the
+ global value of parse-sexp-lookup-properties and two other variables.
+
+ * lisp/progmodes/cc-defs.el (c-emacs-features): Change the nesting of
+ with-current-buffer and let so that the let bindings get used.
+
+2023-05-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ with-display-message: Workaround for bug#63253
+
+ Running arbitrary ELisp code from an atimer is still dangerous,
+ at least because the regexp engine is not-reentrant, so let's patch up
+ the case we bumped into. There are probably many other such holes :-(
+
+ * src/alloc.c (garbage_collection_inhibited): Make it non-static.
+
+ * src/xdisp.c (garbage_collection_inhibited): Declare it.
+ (set_message, clear_message): Use it as a proxy for "we're in
+ a dangerous context like within `probably_quit`".
+
+2023-05-09 João Távora <joaotavora@gmail.com>
+
+ Fido-mode: never shadow 'external' completion style
+
+ As explained in the manual (20.7.2 Fast minibuffer selection)
+ 'fido-mode' and 'fido-vertical-mode' give priority the "flex"
+ completion style.
+
+ In fact, bug#62015 was recently fixed in commit because that priority
+ was not taking place correctly and some completions were missed.
+
+ However, an exception must be made for the 'external' completion
+ style.
+
+ That style, made available by the lisp/external-completion.el library,
+ is specifically designed to work with backends that provide only a
+ partial view of all completions. If we allow 'flex' to step in front
+ of 'external' it could mean that 'flex' matches something and
+ 'external' isn't triggered as it probably should.
+
+ To reproduce have the rust-mode ELPA package and the rust-analyzer LSP
+ server handy. Then:
+
+ emacs -Q -f package-initialize main.rs
+
+ Where main.rs is this content:
+
+ fn foo1() {} fn foo2() {} fn foo3() {}
+ fn foobar1() {} fn foobar2() {} fn foobar3() {}
+
+ The rust-analyzer server can be quickly configured to return only 3
+ workspace symbols max, so evaluate:
+
+ (setq-default eglot-workspace-configuration
+ '(:rust-analyzer
+ (:workspace (:symbol (:search (:limit 3))))))
+
+ Now start M-x eglot and M-x fido-vertical-mode and type C-u M-. to
+ find an arbitrary symbol in this one-file project.
+
+ Type 'f'. You will see the three foo's are listed, correctly.
+
+ Now type '3'. You will only see "foo3".
+
+ But that's wrong because "foobar3" was available, if only the server
+ had been asked for it. This commit fixes the situation and no
+ completions are lost.
+
+ As an unfortunate side-effect of this commit, the fontification of
+ completions-common-part on the matches is lost, but that is not worse
+ than missing out on completions and there are better ways to recover
+ the fontification anyway (in external-completion.el).
+
+ See also:
+
https://github.com/joaotavora/eglot/discussions/1219#discussioncomment-5818336
+
+ * lisp/icomplete.el (icomplete--fido-ccd): Do not touch entries
+ with 'external in them.
+
+ Do not merge to master.
+ Backport:
+
+ (cherry picked from commit 0e8d8a72284f6b3aaa1bbce73d41c7d84bbc4d3c)
+
+2023-05-09 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid crashes in --without-all build trying to scale non-ASCII char
+
+ * src/fontset.c (face_for_char): Display a non-ASCII character as
+ glyphless if the ASCII face has no fontset. (Bug#63283)
+
+2023-05-09 Eli Zaretskii <eliz@gnu.org>
+
+ Improve instructions for dealing with Emacs crashes
+
+ * doc/emacs/trouble.texi (Crashing): Show the variant of the
+ 'addr2line' command for MS-Windows.
+
+2023-05-08 Mohsen Banan <form@mohsen.banan.1.byname.net>
+
+ Improved transliterations + improved bidi insertion support for Farsi
+
+ * lisp/leim/quail/persian.el ("farsi-transliterate-banan"):
+ Improve and add transliterations. (Bug#63361)
+
+2023-05-08 Alan Third <alan@idiocy.org>
+
+ Fix crash when creating a child frame in NS (bug#63107)
+
+ * src/nsterm.m ([EmacsView initFrameFromEmacs:]): Have a second go at
+ creating the toolbar.
+ ([EmacsWindow createToolbar:]): If there is already a toolbar or the
+ EmacsView's layer is not an EmacsLayer, then do nothing.
+
+ (cherry picked from commit 3adc1e7f37901235bda83ea65a90644b7b0a8dbf)
+
+2023-05-07 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Fix outgoing mime type regression (Bug#62815)
+
+ * lisp/net/mailcap.el (mailcap-mime-extensions,
+ mailcap-parse-mimetype-file, mailcap-mime-types): Don't regexp-quote
+ mimetypes in a context where they should be strings.
+ (mailcap--regexp-quote-type): Remove.
+
+ (cherry picked from commit 605414d018da47f99dec5019142f584b6eb174c8)
+
+2023-05-07 Nicholas Vollmer <iarchivedmywholelife@gmail.com>
+
+ define-minor-mode: sanitize mode function messages
+
+ * lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Ensure mode's
+ pretty name is not interprted as a message formatting string,
+ e.g., if the mode name contains a '%'. (Bug#63343)
+
+2023-05-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix beginning/end-of-defun with tree-sitter
+
+ * lisp/treesit.el (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Push mark, as other beginning/end-of-defun
+ functions do.
+
+2023-05-06 Theodor Thornhill <theo@thornhill.no>
+
+ Fix indent for enums in csharp-mode
+
+ * lisp/progmodes/csharp-mode.el (csharp-guess-basic-syntax): Check for
+ keywords containing 'enum' on the line before an opening bracket, and
+ make it behave like a class-open token.
+
+2023-05-06 Eli Zaretskii <eliz@gnu.org>
+
+ Teach c-ts-mode about the 'restrict' keyword
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--keywords): Add
+ "restrict" and "_Atomic" type qualifiers. (Bug#63323)
+
+2023-05-06 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/x-dnd.el (x-dnd-after-move-frame): Skip dead frames. (Bug#63312)
+
+2023-05-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix doc strings of 'mark-sexp' and 'mark-word'
+
+ * lisp/emacs-lisp/lisp.el (mark-sexp):
+ * lisp/simple.el (mark-word): Clarify the doc strings in various
+ usage cases. (Bug#62892)
+
+2023-05-05 Dmitry Gutov <dmitry@gutov.dev>
+
+ (package-upgrade): Don't remove the package from
'package-selected-packages'
+
+ * lisp/emacs-lisp/package.el (package-upgrade):
+ Don't remove the package from 'package-selected-packages', fixing
+ the problem described in https://debbugs.gnu.org/62720#718.
+
+2023-05-05 João Távora <joaotavora@gmail.com>
+
+ Eglot: re-rename eglot-upgrade to eglot-upgrade-eglot
+
+ * doc/misc/eglot.texi (Getting the latest version): Mention
+ eglot-upgrade-eglot.
+
+ * etc/EGLOT-NEWS: Mention eglot-upgrade-eglot.
+
+ * lisp/progmodes/eglot.el (eglot-upgrade-eglot): Rename from
+ eglot-update.
+ (eglot-update): New compatibility alias.
+
+2023-05-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix arguments of xml.c functions as displayed in Help buffers
+
+ * lisp/subr.el (libxml-parse-xml-region)
+ (libxml-parse-html-region): Adjust advertised-calling-convention
+ to the changes in commit cc33c6cf3a. (Bug#63291)
+
+2023-05-05 Po Lu <luangruo@yahoo.com>
+
+ More fixes for NetBSD/vax
+
+ * src/sysdep.c (init_signals) [__vax__]: Treat SIGILL
+ as a floating point error on VAXen.
+ Otherwise, (log 0.0) crashes Emacs.
+
+2023-05-05 Cyril Arnould <cyril.arnould@outlook.com> (tiny change)
+
+ Improve VHDL mode highlighting
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-compiler-alist): Differentiate
+ between ModelSim errors, warnings, and notes when highlighting
+ them. Add a new entry for Xilinx Vivado. (Bug#63251)
+
+2023-05-04 Po Lu <luangruo@yahoo.com>
+
+ Clarify documentation wrt floating point division by zero and NaN
+
+ * doc/lispref/numbers.texi (Float Basics)
+ (Arithmetic Operations): Document what happens on a VAX.
+ Tested on NetBSD 9.3.
+
+2023-05-04 Robert Pluim <rpluim@gmail.com>
+
+ Make loaddefs-generate slightly more tolerant
+
+ There are packages in the wild, such as vlf-20191126.2250, which have
+ entries that are not terminated by three ';', but by two. Tolerate
+ such entries.
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Search for two
+ ';' as a delimiter, not three. (Bug#63236)
+
+2023-05-04 Philip Kaludercic <philipk@posteo.net>
+
+ Fix order of rcirc-connect arguments
+
+ * lisp/net/rcirc.el (rcirc): Pass SERVER-ALIAS before CLIENT-CERT.
+ (rcirc-connect): Take SERVER-ALIAS before CLIENT-CERT.
+
+ This is necessary for the 'rcirc-reconnect' trick to work that applies
+ the contents of 'rcirc-connection-info' to 'rcirc-connect', otherwise
+ the server alias gets lost as certfp information.
+
+ This addresses a change made in
b79cb838a477ee5a5c3660e81264991ff833a82f.
+
+2023-05-04 Thuna <thuna.cing@gmail.com> (tiny change)
+
+ Fix rcirc messages printing in the wrong place
+
+ * lisp/net/rcirc.el (rcirc-send-message): Print the message before
+ sending it to the server.
+ (rcirc-print): Get the time with subsecond precision.
+ * lisp/calendar/parse-time.el (parse-time-string
+ parse-iso8601-time-string): Accept optional second FORM arguments,
+ with the same meaning as in `decode-time'. Mention as such in the
+ docstring. (Bug#59501)
+
+2023-05-04 Philip Kaludercic <philipk@posteo.net>
+
+ Prevent unnecessary modifications of 'package-vc-selected-packages'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Handle the
+ structure of correctly, not as an alist but a list of alists.
+ (package-vc--archive-spec-alist, package-vc--archive-spec-alists,
+ package-vc--desc->spec, package-vc--read-archive-data,
+ package-vc--download-and-read-archives, package-vc--unpack): Rename
+ 'package-vc--archive-spec-alist' to 'package-vc--archive-spec-alists'.
+
+2023-05-03 Dmitry Gutov <dmitry@gutov.dev>
+
+ Rename eglot-update to eglot-upgrade
+
+ * doc/misc/eglot.texi (Getting the latest version):
+ Update the reference.
+
+ * lisp/progmodes/eglot.el (eglot-upgrade): Rename from
+ 'eglot-update', as discussed on emacs-devel, in line with
+ 'package-upgrade'.
+
+2023-05-03 Randy Taylor <dev@rjt.dev>
+
+ go-ts-mode: Use iota query only if supported (Bug#63086)
+
+ iota query support was added on January 5, 2022. To support older
+ versions of the tree-sitter-go grammar (like the latest tagged version,
+ v0.19.1, which was released on March 3, 2021), check if the query is
+ supported before trying to use it.
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--iota-query-supported-p): New
+ function.
+ (go-ts-mode--font-lock-settings): Use it.
+
+2023-05-03 Dmitry Gutov <dmitry@gutov.dev>
+
+ (rng-complete-tag): Add the (ignored) argument to the :company-kind
function
+
+ * lisp/nxml/rng-nxml.el (rng-complete-tag): Add the (ignored)
+ argument to the :company-kind function. Fixes the "Wrong number
+ of arguments" error reported at
+ https://github.com/company-mode/company-mode/issues/1386.
+
+2023-05-03 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-219-g3ded15b
+
+2023-05-03 Po Lu <luangruo@yahoo.com>
+
+ Fix inserting selection data into Mozilla programs
+
+ * lisp/select.el (xselect-convert-to-text-uri-list): Don't
+ return any value when converting non-DND selections to this
+ drag-and-drop target.
+
+ Reported by Tobias Bading <tbading@web.de>.
+
+2023-05-03 Thuna <thuna.cing@gmail.com> (tiny change)
+
+ Recognize defstruct slot names in various eieio functions
+
+ * lisp/emacs-lisp/cl-preloaded.el (cl-struct-define): Set
+ each slot's name's 'slot-name' property so that
+ 'eieio--known-slot-name-p' can recognize them. (Bug#62959)
+
+2023-05-02 Thuna <thuna.cing@gmail.com> (tiny change)
+
+ Use 'calendar-buffer' instead of fixed string
+
+ * test/lisp/calendar/cal-julian-tests.el (with-cal-julian-test):
+ Use 'calendar-buffer' instead of a literal fixed name.
+ (Bug#61546)
+
+2023-05-02 Spencer Baugh <sbaugh@catern.com>
+
+ Handle point not at EOB in minibuffer-choose-completion
+
+ Without this change, only the minibuffer contents before point
+ are cleared when a completion is chosen, which results in stray
+ text when point is in the middle of the minibuffer.
+
+ After this change, we heuristically decide either to clear the
+ whole buffer or only part of it, taking into account the
+ location of point.
+
+ This is a backport for the Emacs 29 release branch of a simpler
+ fix in minibuffer-completion-help.
+
+ * lisp/minibuffer.el (minibuffer-next-completion):
+ (minibuffer-choose-completion):
+ Recalculate completion-base-affixes with point. (Bug#62700)
+
+2023-05-02 Spencer Baugh <sbaugh@catern.com>
+
+ Note that Emacs pauses when handling sentinel errors
+
+ Noting this behavior and variable here makes it easier to
+ understand the behavior of Emacs when a sentinel has an error.
+
+ * doc/lispref/processes.texi (Filter Functions): Note that Emacs
+ pauses when handling sentinel errors.
+ (Sentinels): Note that Emacs pauses when handling sentinel errors.
+ (Bug#63096)
+
+2023-05-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix vertical-motion when tab-line is displayed in a window
+
+ * src/xdisp.c (try_window, try_window_id): Account for tab-line,
+ if present, when converting scroll-margin at the top of the window
+ to vertical pixel coordinate. (Bug#63201)
+
+2023-04-30 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.5-3-g2993f4
+
+2023-04-30 Philip Kaludercic <philipk@posteo.net>
+
+ Prevent generating empty autoload files
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Remove
+ optimisation that would mistakenly discard old loaddefs in case a file
+ was not modified by EXTRA-DATA is non-nil. (Bug#62734)
+
+2023-04-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/org/org-macs.el (org--inhibit-version-check): Fix docstring
+
+ Also, add an explanation to the docstring for what the version
+ check is about.
+
+2023-04-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix redisplay of mode line after its format changes from nil
+
+ * src/dispnew.c (update_window): Make sure a mode-line's row of
+ the current glyph matrix is disabled when the mode line is not
+ being displayed. (Bug#63186)
+
+2023-04-30 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix c-ts-mode--emacs-c-range-query
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--emacs-c-range-query):
+ Check for (treesit-available-p).
+
+2023-04-30 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of warnings
+
+ * doc/lispref/control.texi (Errors):
+ * doc/lispref/os.texi (Startup Summary):
+ * doc/lispref/display.texi (Warning Basics, Warning Variables)
+ (Warning Options, Delayed Warnings): Improve documentation of
+ warnings. Document the automatic delaying of warnings during
+ startup. (Bug#63181)
+
+2023-04-29 Yuan Fu <casouri@gmail.com>
+
+ Fix FOR_EACH_TAIL fontification (bug#62951)
+
+ Fix the fontification inconsistency between different FOR_EACH_TAIL's.
+ See the comment for more explanation. Also enable the emacs-devel
+ feature automatically when c-ts-mode-emacs-sources-support is on.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--for-each-tail-regexp): Move up.
+ (c-ts-mode--font-lock-settings): New font-lock rule for FOR_EACH_TAIL.
+ (c-ts-mode--fontify-for-each-tail): New function.
+ (c-ts-mode): Automatically enable emacs-devel feature.
+
+2023-04-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of libxml-parse-* functions
+
+ * doc/lispref/text.texi (Parsing HTML/XML):
+ * src/xml.c (Flibxml_parse_html_region, Flibxml_parse_xml_region):
+ Update the documentation regarding the use of BASE-URL argument.
+ (Bug#63125)
+
+2023-04-28 Theodor Thornhill <theo@thornhill.no>
+
+ Skip over whitespace in annotation-top-cont check (bug#63141)
+
+ * lisp/progmodes/csharp-mode.el (csharp-guess-basic-syntax): Make sure
+ we skip over whitespace when looking for the next '['.
+
+2023-04-28 Ruijie Yu <ruijie@netyu.xyz>
+
+ Update zh-CN tutorial translation
+
+ * etc/tutorials/TUTORIAL.cn (INTRO): Additions from English
+ version; say "interrupt" not "quit" a partially-entered command;
+ fixed minor inconsistency (English says partially-entered command,
+ Chinese used to say partially-executed command -- they are
+ different); converted half-width square brackets containing
+ translators' notes into full-width ones for consistency.
+ (BASIC CURSOR CONTROL): mention that a word boundary for Chinese
+ can also be space; fixed incorrect terminology (keyboard vs
+ terminal); retain English term "terminal"; retain English term
+ "prefix argument"; "most commands _interpret_ prefix args as
+ repeat-count", not "explain"; ensure space is added on both ends
+ of an English word.
+ (WINDOWS): Clarify it is the digit 1 in C-x 1.
+ (INSERTING AND DELETING): Mention the term "continuation line" and
+ retain its English term, because this term is mentioned again
+ later in the tutorial; avoid saying the name of "\\"; add
+ description for "electric" and a rough translation; sync English
+ for prefix argument for DEL and C-d; ensure that translators'
+ notes are marked explicitly so; add indentation to the instruction
+ about continuation lines; additional translations such as
+ mentioning C--, etc.
+ (FILES): Re-pluralize the heading; space around English words;
+ describe what C-g cancels (the command) when entering file name;
+ replace "search for" with "find"; minor rephrasing; explicit
+ translator notes; fixed the write-file message to no longer
+ contain ellipses (see src/fileio.c:5541).
+ (BUFFERS): Re-pluralize the heading; mention that C-x C-b also
+ shows buffer name; C-x s only looks for file-visiting buffers.
+ (EXTENDING THE COMMAND SET): Include C-x s and C-x b in list of
+ learned commands.
+ (MODE LINE): Remove the dashes in description on the point
+ location.
+ (MULTIPLE WINDOWS): Mention the difference between frame
+ and window; also add translator notes pointing to end of
+ tutorial which contains a terminology list.
+ (MULTIPLE FRAMES): Change the M-x commands to keybinds C-x 5 2 and
+ C-x 5 0 to sync with English.
+ (GETTING MORE HELP): Change C-h f to C-h x, to sync with English.
+ (INSTALLING PACKAGES): Rephrase "available packages", used to say
+ lit., "existing", now says lit., "installable"; consistently
+ translate the term "package", and retain its English name.
+ (TRANSLATION): Add my name as co-maintainer of this file.
+
+ * etc/tutorials/TUTORIAL.translators (TUTORIAL.cn): Add my name
+ as co-maintainer for TUTORIAL.cn.
+
+2023-04-28 Eli Zaretskii <eliz@gnu.org>
+
+ Fix eglot.texi
+
+ * doc/misc/eglot.texi (Troubleshooting Eglot): Add missing @menu.
+ (Performance, Getting the latest version): Improve wording and
+ indexing, add cross-references.
+
+2023-04-27 Po Lu <luangruo@yahoo.com>
+
+ Fix two crashes upon startup
+
+ * src/image.c (image_create_bitmap_from_data)
+ (image_create_bitmap_from_file): Specify a Window or a Pixmap
+ describing the screen, not a back buffer drawable which may not exist.
+ Otherwise, Emacs crashes on startup when a bitmap icon is in use.
+
+2023-04-27 João Távora <joaotavora@gmail.com>
+
+ Eglot: explain how to update Eglot in manual (bug#62720)
+
+ * lisp/progmodes/eglot.el (eglot-update): New command.
+
+ * doc/misc/eglot.texi (Troubleshooting): Rework.
+
+2023-04-27 João Távora <joaotavora@gmail.com>
+
+ Eglot: fix edge case when deleting inlay hint overlays
+
+ When asked to update hints in a region (FROM TO),
+ eglot--update-hints-1 first deletes the existing hints. It must
+ however take care to delete all overlays that logically belong to the
+ region, even if they don't physically belong to it, e.g. inlay
+ overlays spanning (FROM-1 FROM) and having a 'after-string' property.
+
+ * lisp/progmodes/eglot.el (eglot--update-hints-1): Fix edge case.
+
+2023-04-27 Dmitry Gutov <dmitry@gutov.dev>
+
+ package-upgrade[-all]: Expand docstrings to note the current limitation
+
+ * lisp/emacs-lisp/package.el (package-upgrade, package-upgrade-all):
+ Expand docstrings to note the current limitation (bug#62720).
+
+2023-04-27 Dmitry Gutov <dmitry@gutov.dev>
+
+ Rename all functions called package-*-update-* to package-*-upgrade-*
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-upgrade-all):
+ Rename from 'package-vc-update-all'.
+ (package-vc-upgrade): Rename from 'package-vc-update'.
+
+ * lisp/emacs-lisp/package.el (package-upgrade):
+ Rename from 'package-update' (bug#62750).
+ (package--upgradeable-packages):
+ Rename from 'package--updateable-packages'.
+ (package-upgrade-all): Rename from 'package-update-all'.
+
+2023-04-27 Yuan Fu <casouri@gmail.com>
+
+ Fix FOR_EACH_TAIL in c-ts-mode (bug#62951)
+
+ * lisp/progmodes/c-ts-mode.el
+ (c-ts-mode--indent-styles): New indent rule.
+
+ (c-ts-mode--for-each-tail-regexp)
+ (c-ts-mode--for-each-tail-body-matcher)
+ (c-ts-mode--emacs-c-range-query)
+ (c-ts-mode--for-each-tail-ranges)
+ (c-ts-mode--reverse-ranges)
+ (c-ts-mode--emacs-set-ranges): New functions and variables.
+
+ (c-ts-mode): Create a emacs-c parser. More setup for Emacs source
+ support.
+
+ * lisp/treesit.el (treesit-query-range): Ignore underscore-prefixed
+ capture names.
+
+2023-04-27 Eli Zaretskii <eliz@gnu.org>
+
+ * Makefile.in (distclean): Remove the 'native-lisp' directory.
+
+2023-04-27 Eli Zaretskii <eliz@gnu.org>
+
+ Improve greek-ibycus4 input method
+
+ * lisp/leim/quail/greek.el ("greek-ibycus4"): Add another sequence
+ for CAPITAL LETTER RHO WITH DASIA. (Bug#63104)
+
+2023-04-26 F. Jason Park <jp@neverwas.me>
+
+ Explain ERC 5.5 regressions in new version 5.5.0.29.1
+
+ * doc/misc/erc.texi: Bump version to 5.5.0.29.1.
+ * etc/ERC-NEWS: Don't hype bugged option `erc-reconnect-display'.
+ * lisp/erc/erc-dcc.el (erc-dcc-do-GET-command): Add comment explaining
+ parsing bug in ERC 5.5 (bug#62444).
+ * lisp/erc/erc-networks.el (erc-networks-on-MOTD-end): Mention known
+ /MOTD bug in error notice so people don't waste energy reporting
+ it (bug#62151).
+ * lisp/erc/erc.el: Change Version header to 5.5.0.29.1. Don't bother
+ updating the `customize-package-emacs-version-alist' entry
+ because no option defaults are affected.
+ (erc-version): Change version to 5.5.0.29.1.
+ (erc-reconnect-display, erc-query-on-unjoined-chan-privmsg): Add
+ warning to doc strings and `custom-set' functions. It's believed that
+ these bugs degrade the user experience significantly enough to warrant
+ such mentions (bug#62833).
+ (erc-query): Fix erroneous redirect string in deprecation spec.
+ Do not merge to master.
+
+2023-04-26 F. Jason Park <jp@neverwas.me>
+
+ * doc/misc/erc.texi: Elaborate on upgrading via ELPA.
+
+2023-04-26 Robert Pluim <rpluim@gmail.com>
+
+ Improve outline-default-state docstring
+
+ * lisp/outline.el (outline-default-state): Explain which functions are
+ available to affect heading visibility.
+
+2023-04-26 Eli Zaretskii <eliz@gnu.org>
+
+ Document problems with /bin/sh on Solaris 10
+
+ * etc/PROBLEMS (Solaris): Document problems with '/bin/sh'.
+ Suggested by Paul Eggert <eggert@cs.ucla.edu>. (Bug#63067)
+
+2023-04-25 Eli Zaretskii <eliz@gnu.org>
+
+ Followup to addition of TUTORIAL.fa
+
+ * etc/NEWS: Announce addition of TUTORIAL.fa.
+
+ * etc/tutorials/TUTORIAL.translators (TUTORIAL.fa): New entry.
+
+ * lisp/language/misc-lang.el ("Persian"): Add tutorial property.
+
+2023-04-25 Mohsen Banan <form@mohsen.banan.1.byname.net>
+
+ Add Farsi/Persian translation of the tutorial
+
+ * etc/tutorials/TUTORIAL.fa: New file.
+
+ * lisp/language/misc-lang.el (arabic-shaper-ZWNJ-handling): Fix
+ typo in doc string.
+
+2023-04-25 Eli Zaretskii <eliz@gnu.org>
+
+ Add Mongolian language environments
+
+ * lisp/language/misc-lang.el ("Mongolian-traditional"):
+ * lisp/language/cyrillic.el ("Mongolian-cyrillic"): New
+ language environments.
+
+ * etc/HELLO: Add Mongolian Traditional.
+ * etc/NEWS: Announce the new language environments.
+
+ (Bug#63028)
+
+2023-04-25 Eli Zaretskii <eliz@gnu.org>
+
+ Document the 'end-session' event on MS-Windows
+
+ * doc/lispref/commands.texi (Misc Events): Document the
+ 'end-session' event. (Bug#63058)
+
+2023-04-24 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.4-9-g8eb209
+
+2023-04-24 Eli Zaretskii <eliz@gnu.org>
+
+ Don't support versioned grammar libraries on MS-Windows
+
+ * src/treesit.c (treesit_load_language_push_for_each_suffix):
+ Don't append ".0.0" on WINDOWSNT.
+
+2023-04-24 Yuan Fu <casouri@gmail.com>
+
+ Accept versioned tree-sitter language grammar files
+
+ By discussion on emacs-devel, titled "Versioned Tree-sitter parser
+ libraries".
+
+ * src/treesit.c (Vtreesit_str_dot_0): New variable.
+ (treesit_load_language_push_for_each_suffix): Additionally look for
+ lib_base_name.0 and lib_base_name.0.0.
+ (syms_of_treesit): Initialize Vtreesit_str_dot_0.
+
+2023-04-24 Benson Chu <bensonchu457@gmail.com> (tiny change)
+
+ tab-bar-new-tab: inhibit side-window checks
+
+ Previously, calling 'tab-bar-new-tab-to' only removed the
+ 'window-side' property on the currently selected window,
+ and then a call to 'delete-other-windows' was made to
+ ensure that the selected window was the only window.
+ We can skip this check by shadowing 'window--sides-inhibit-check'
+ to t.
+ * lisp/tab-bar.el (tab-bar-new-tab-to): Inhibit side-window checks.
+ (Bug#62427)
+
+2023-04-24 Michael Albinus <michael.albinus@gmx.de>
+
+ * etc/NEWS: Fix outline level. (Bug#63042)
+
+ Fix typos.
+
+2023-04-23 Eli Zaretskii <eliz@gnu.org>
+
+ Fix rendering of Traditional Mongolian script
+
+ * lisp/international/characters.el: Set punctuation syntax for Po
+ characters from the Mongolian block
+ * lisp/international/fontset.el (setup-default-fontset): Add
+ fontset setting for Traditional Mongolic.
+ * lisp/language/misc-lang.el (composition-function-table): Add
+ rules for Traditional Mongolic. (Bug#63028)
+
+2023-04-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix line-number-at-pos when POSITION is out of narrowing
+
+ * src/fns.c (Fline_number_at_pos): Don't signal an error when
+ ABSOLUTE is nil and POSITION is outside of the narrowing, like the
+ original Lisp implementation did. Minor speedup by using the byte
+ position where it is available from the get-go. (Bug#62857)
+
+2023-04-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix exiting Emacs after saving a tutorial
+
+ * lisp/tutorial.el (tutorial--starting-point): Make it
+ permanent-local, so that saving the tutorial to some file doesn't
+ kill this buffer-local variable. Otherwise, trying to exit Emacs
+ after saving the tutorial will signal an error, because
+ 'tutorial--starting-point' is void. (Bug#37326)
+
+2023-04-22 Eli Zaretskii <eliz@gnu.org>
+
+ Add indentation style setting for c-ts-mode in .dir-locals.el
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-indent-style-safep): New
+ predicate.
+ (c-ts-mode-indent-style): Use it to test the value for being safe.
+
+ * .dir-locals.el (c-ts-mode): Set 'c-ts-mode-indent-style' to 'gnu'.
+
+2023-04-20 Nicolas Martyanoff <nicolas@n16f.net>
+
+ sql: add missing postgresql types
+
+ * lisp/progmodes/sql.el: Add multiple missing PostgreSQL types:
bigserial,
+ smallserial, macaddr8, jsonb, jsonpath, built-in range types, object
+ identifier types (oid & co).
+
+2023-04-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of menu-bar bindings of commands in *Help* buffers
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): Propertize
+ with 'help-key-binding' face only the menu items, not the arrows
+ between successive items. This is because 'char-displayable-p' is
+ unreliable when we propertize the character with an arbitrary
+ face: that face could specify a font which doesn't support the
+ character after all, while 'char-displayable-p' assumes there are
+ no restrictions on fonts that can be used for displaying the
+ character. Also, make the code more efficient by avoiding the
+ call to 'char-displayable-p' inside the loop.
+
+2023-04-19 Spencer Baugh <sbaugh@janestreet.com>
+
+ Improve Completion Example section in the Emacs manual
+
+ This can be a useful substitute for full-on fuzzy completion, as
+ provided by other completion styles and completion packages.
+ * doc/emacs/mini.texi (Completion Example): Give an example of
+ completion with point not at end of minibuffer. Also, use
+ @kbd{@key{TAB}} when telling the user to hit TAB. (Bug#62836)
+
+2023-04-19 Robert Pluim <rpluim@gmail.com>
+
+ Improve 'message-server-alist' docstring
+
+ * lisp/gnus/message.el (message-server-alist): Fix typo and clarify
+ what happens if there is already an X-Message-SMTP-Method header.
+
+2023-04-19 Robert Pluim <rpluim@gmail.com>
+
+ Add index entry for fallback modes
+
+ * doc/emacs/custom.texi (Specifying File Variables): Add index for
+ 'fallback modes'.
+
+2023-04-18 Dmitry Gutov <dmitry@gutov.dev>
+
+ xref-search-program-alist: Fix searching larger file lists on MS Windows
+
+ * lisp/progmodes/xref.el (xref-search-program-alist):
+ Add '-s 10000' to xargs' options when on Windows or DOS.
+ Apparently the xargs port doesn't currently know how to obey the
+ system-wide limits (https://debbugs.gnu.org/bug=61667#521).
+
+2023-04-18 Shynur <one.last.kiss@outlook.com> (tiny change)
+
+ Fix typo and inaccuracy in the ELisp Reference manual
+
+ * doc/lispref/loading.texi (Dynamic Modules): Fix a typo.
+ * doc/lispref/customize.texi (Group Definitions): Faces are also
+ in the 'custom-group' property of a customization group.
+ (Bug#62887)
+
+2023-04-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix description of lexical environment's internals
+
+ * doc/lispref/variables.texi (Lexical Binding): Update the
+ description of how the lexical environment is represented
+ internally. (Bug#62840)
+
+2023-04-16 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.4-2-g0f6ae7
+
+2023-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Documentation copyedits for 'package-install-upgrade-built-in' etc
+
+ * etc/NEWS: More details about the new option
+ 'package-install-upgrade-built-in'.
+
+ * lisp/emacs-lisp/package.el (package-install-upgrade-built-in)
+ (package--active-built-in-p, package-install): Doc fixes.
+ (Bug#62720)
+
+2023-04-16 Philip Kaludercic <philipk@posteo.net>
+
+ Allow upgrading built-in packages with 'package-install'
+
+ * etc/NEWS: Mention the change
+ * lisp/emacs-lisp/package.el (package--upgradable-built-in-p): Add new
+ predicate.
+ (package-install-upgrade-built-in): Add new user option to enable
+ feature.
+ (package-install): Respect new user option.
+
+2023-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Minor changes in c-ts-mode.el's support of DEFUNs
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--fontify-DEFUN): Renamed
+ from 'c-ts-mode--fontify-defun'; all callers changed.
+ (c-ts-mode-emacs-sources-support): Renamed from
+ 'c-ts-mode-emacs-devel' and made into a defcustom; all users
+ changed.
+ (c-ts-mode--emacs-defun-p, c-ts-mode--emacs-defun-at-point)
+ (c-ts-mode--emacs-current-defun-name): Doc fixes. (Bug#62825)
+
+2023-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Fix strike-through attribute support on TTY frames
+
+ * src/term.c (init_tty): Fix setting the strike-through capability
+ with "smxx". (Bug#62265)
+
+2023-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid crashes in 'describe-keymap' due to shadowing
+
+ * src/keymap.c (describe_vector): Handle shadowing by something
+ other than a symbol. (Bug#62867)
+
+2023-04-15 Andreas Schwab <schwab@linux-m68k.org>
+
+ Make image-map bindings available on image links
+
+ * lisp/net/shr.el (shr-map): Move shr-browse-image to "M-i".
+ * lisp/net/eww.el (eww-image-link-keymap): Use shr-image-map.
+
+2023-04-15 Alan Mackenzie <acm@muc.de>
+
+ * CONTRIBUTE: Fix a typo
+
+2023-04-15 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Add to Eglot support for additional language-servers.
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add
+ 'vscode-markdown-language-server' for Markdown and
+ 'dot-language-server' for GraphViz. (Bug#62844)
+
+2023-04-14 Yuan Fu <casouri@gmail.com>
+
+ Partial support for DEFUN in c-ts-mode (bug#62825)
+
+ The DEFUN is hard to incorporate because it's made of two nodes rather
+ than one, and most tree-sitter functionalities assume a defun is one
+ node. I fixed the indent-defun and add-log functionality, but
+ beginning/end-of-defun and imenu still don't recognize DEFUN.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-emacs-devel): New variable.
+ (c-ts-mode--defun-name): Support DEFUN.
+ (c-ts-mode--defun-valid-p): Support DEFUN.
+ (c-ts-mode--emacs-defun-p)
+ (c-ts-mode--emacs-defun-at-point): New functions.
+ (c-ts-mode-indent-defun): Use c-ts-mode--emacs-defun-at-point.
+ (c-ts-mode--emacs-current-defun-name): New function.
+ (c-ts-mode, c++-ts-mode): Optionally setup custom defun-name function.
+
+2023-04-14 Eli Zaretskii <eliz@gnu.org>
+
+ Fix style and unwinding code in treesit.c
+
+ This was supposed to be a cherry-pick from master, but
+ isn't, due to the unnecessary rush to fix master without
+ cleaning up the mess first and without separating changes
+ that can and cannot be backported.
+ * src/treesit.c (treesit_traverse_cleanup_cursor): Fix indentation
+ style.
+ (Ftreesit_search_subtree, Ftreesit_search_forward)
+ (Ftreesit_induce_sparse_tree): Fix specpdl unwinding. (Bug#62823)
+ Do not merge to master.
+
+2023-04-14 Yuan Fu <casouri@gmail.com>
+
+ Catch signals produced by PRED in tree-sitter search functions
+
+ Earlier we switched to using cursors rather than nodes to traverse the
+ parse tree. Because cursors need cleanup, we have to catch signals
+ thrown by the predicate functions and free the cursor. Failing to do
+ this will result in leaking the cursor whenever the predicate function
+ signals in a search function. This change fixes the leak.
+ * src/treesit.c (treesit_traverse_cleanup_cursor): New function.
+ (Ftreesit_search_subtree)
+ (Ftreesit_search_forward)
+ (Ftreesit_induce_sparse_tree): Catch signals. (Bug#62823)
+
+ (cherry picked from commit a5eb9f6ad4e6f5a2819b540a477f1e889f6ef355)
+
+2023-04-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix compilation of w32.c with old MinGW system headers
+
+ * src/w32.c (CONSOLE_FONT_INFO): Make sure the definition is not
+ visible for MinGW versions whose w32api's version is before 5.2.0.
+ (Bug#52792)
+
+2023-04-12 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-add-log-current-method: Reduce the use of 'nreverse'
+
+ * lisp/progmodes/ruby-mode.el (ruby-add-log-current-method):
+ Reduce the use of 'nreverse' (bug#62761).
+
+ * test/lisp/progmodes/ruby-mode-tests.el
+ (ruby-add-log-current-method-singleton-referencing-outer):
+ New test.
+
+2023-04-12 Visuwesh <visuweshm@gmail.com>
+
+ Fix detection of WebP images by their signature
+
+ * lisp/image.el (image-type-header-regexps): The 4 characters
+ between "RIFF" and "WEBP" in WebP images can also be newlines.
+ (Bug#62790)
+
+2023-04-12 Earl Hyatt <okamsn@protonmail.com>
+
+ Add more documentation for the keys of `package-vc-selected-packages`.
+
+ * doc/emacs/package.texi (Specifying Package Sources): List the
+ accepted keys in a new subsection of Fetching Package Sources.
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-selected-packages):
+ Mention the `:doc` key. Add the `:doc` key to the Customize form,
+ mention the new Info node, correct "TexInfo" to "Texinfo", avoid
+ Git-specific terms for the description of `:branch`, mention guessing
+ `:vc-backend` based on the URL.
+
+2023-04-11 Dmitry Gutov <dgutov@yandex.ru>
+
+ vc-checkout: Try to use the vc-dir's backend first
+
+ * lisp/vc/vc.el (vc-checkout): Try to use the vc-dir's backend
+ before looking for the file's one. The latter doesn't work when
+ the file doesn't exist on disk yet (bug#62674).
+
+2023-04-11 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation related to 'ispell-complete-word'
+
+ * lisp/textmodes/ispell.el (ispell-alternate-dictionary)
+ (ispell-complete-word-dict, ispell-complete-word): Doc fixes.
+ (Bug#62775)
+
+2023-04-11 Po Lu <luangruo@yahoo.com>
+
+ * configure.ac: Add -lbsd on Haiku.
+
+2023-04-11 Eli Zaretskii <eliz@gnu.org>
+
+ Add menu to 'c-ts-mode' and 'c++-ts-mode'
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-menu): New menu.
+
+2023-04-11 Mattias Engdegård <mattiase@acm.org>
+
+ Update manual about `sort`
+
+ * doc/lispref/sequences.texi (Sequence Functions):
+ Remove inaccurate and over-specific claims about how `sort` works for
+ lists: there is no guarantee that it doesn't modify the `car` fields
+ of the input list (which is precisely what it does at this time).
+
+ (cherry picked from commit c753a9592345e2084d69e9e2cc458c16db2e4141)
+
+2023-04-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix wallpaper-tests on MS-Windows
+
+ * test/lisp/image/wallpaper-tests.el (wallpaper--find-setter)
+ (wallpaper--find-setter/call-predicate)
+ (wallpaper--find-setter/set-current-setter)
+ (wallpaper-set/calls-init-action)
+ (wallpaper-set/calls-wallpaper-set-function)
+ (wallpaper-set/runs-command, wallpaper-set/runs-command/detach):
+ Skip these tests if native functions are used for changing
+ wallpaper. These tests are irrelevant in that case.
+
+2023-04-11 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix a couple of eglot-tests
+
+ * test/lisp/progmodes/eglot-tests.el
+ (eglot-test-rust-analyzer-watches-files): Bump timeout.
+ (eglot-test-json-basic): Check for yas-minor-mode before using it,
+ like other tests do (bug#61637).
+
+2023-04-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix visiting RPM files
+
+ We cannot call 'sh-set-shell' inside 'sh-base-mode', since various
+ settings of 'sh-mode', in particular the syntax table, is not yet
+ set. Likewise with various hooks: since 'sh-base-mode' is not a
+ mode any file should be visited with, it makes no sense to set up
+ stuff like 'hack-local-variables-hook' in 'sh-base-mode'; it
+ should be set in the descendant modes instead.
+ * lisp/progmodes/sh-script.el (sh-base-mode): Move the call to
+ 'sh-set-shell' from here...
+ (sh-mode): ...to here...
+ (bash-ts-mode): ...with a copy here. (Bug#62748)
+
+2023-04-10 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix ff-quiet-mode doc
+
+ * lisp/find-file.el (ff-quiet-mode, ff-find-other-file): Say that
+ ff-quiet-mode disables tracing, not the inverse.
+
+2023-04-01 Gregory Heytings <gregory@heytings.org>
+
+ Another final fix to last changes
+
+ * src/xdisp.c (get_small_narrowing_begv): Refine the value of 'bol_pos'.
+
+2023-04-01 Gregory Heytings <gregory@heytings.org>
+
+ Three final fixes to last changes
+
+ * src/xdisp.c (get_nearby_bol_pos): Initialize 'bol' to BEGV - 1
+ instead of 0 (which fixes cursor motion commands in the presence
+ of a narrowing), adapt the return condition accordingly, and do
+ not restart the loop when BEGV has been reached.
+ (get_small_narrowing_begv): Use correct type.
+
+2023-04-01 Gregory Heytings <gregory@heytings.org>
+
+ Two further fixes to last changes
+
+ * src/xdisp.c (get_narrowed_width): Use FRAME_WINDOW_P instead of
+ Fterminal_live_p. Also take WINDOW_LEFT_FRINGE_WIDTH into
+ account.
+
+2023-04-01 Gregory Heytings <gregory@heytings.org>
+
+ Improve and fix last changes
+
+ * src/xdisp.c (get_narrowed_width): Use WINDOW_RIGHT_FRINGE_WIDTH,
+ which works both for character-only terminals and for GUI frames
+ without fringes.
+ (get_nearby_bol_pos): Instead of searching for BOL in
+ [pos-500000..pos], gradually extend the region, starting with
+ [pos-500..pos]. This is much faster in buffers with some long
+ lines in the middle of lots of short lines.
+
+2023-03-29 Gregory Heytings <gregory@heytings.org>
+
+ Fix cursor motion in character-only terminals
+
+ * src/xdisp.c (get_narrowed_width): Subtract 1 from
+ window_body_width to account for the '\' line wrapping indication.
+
+2023-03-28 Gregory Heytings <gregory@heytings.org>
+
+ Make get_medium_narrowing_begv/zv static
+
+ * src/xdisp.c (get_medium_narrowing_begv):
+ (get_medium_narrowing_zv): Make these two functions static, they
+ are only used in xdisp.c.
+
+ * src/dispextern.h: Remove the prototypes.
+
+2023-03-28 Gregory Heytings <gregory@heytings.org>
+
+ Improve accuracy of cursor motion commands in long lines
+
+ * src/xdisp.c (get_nearby_bol_pos): New function.
+ (get_small_narrowing_begv): Use it. This makes cursor motion
+ commands much more accurate in the first 500K characters of each
+ long line.
+
+2023-03-28 Gregory Heytings <gregory@heytings.org>
+
+ Remove labeled restrictions before calling Fwiden
+
+ * src/editfns.c (labeled_restrictions_remove_in_current_buffer):
+ New function.
+
+ * src/lisp.h: Make it externally visible.
+
+ * src/xdisp.c (display_count_lines_logically):
+ * src/lread.c (readevalloop):
+ * src/indent.c (line_number_display_width):
+ * src/fileio.c (write_region):
+ * src/callproc.c (Fcall_process_region):
+ * src/buffer.c (Ferase_buffer): Use it.
+
+2023-03-28 Gregory Heytings <gregory@heytings.org>
+
+ Code cleanup for long line optimizations
+
+ This commit does not change any code, it merely renames functions
+ and clarifies the documentation, to make the code hopefully easier
+ to grasp.
+
+ * src/dispextern.h (struct it): Rename the 'narrowed_begv',
+ 'narrowed_zv', 'locked_narrowing_begv', 'locked_narrowing_zv' to
+ 'medium_narrowing_begv', 'medium_narrowing_zv',
+ 'large_narrowing_begv', 'large_narrowing_zv'. Clarify the
+ comments.
+ Update the prototypes of the functions renamed in xdisp.c.
+
+ * src/lisp.h: Update the prototypes of the functions renamed in
+ editfns.c. Remove the prototype of
+ 'safe_run_hooks_maybe_narrowed', which is used only in keyboard.c.
+
+ * src/xdisp.c
+ (get_small_narrowing_begv): Renamed from
+ 'get_closer_narrowed_begv'.
+ (get_medium_narrowing_begv): Renamed from 'get_narrowed_begv'.
+ (get_medium_narrowing_zv): Renamed from 'get_narrowed_zv'.
+ (get_large_narrowing_begv): Renamed from 'get_locked_narrowing_begv'.
+ (get_large_narrowing_zv): Renamed from 'get_locked_narrowing_zv'.
+ (SET_WITH_NARROWED_BEGV): Use the new field names.
+ (handle_fontified_prop): Use the new function and new field names.
+ (back_to_previous_line_start): Use the new field name.
+ (back_to_previous_visible_line_start): Use the new field name.
+ (reseat): Use the new function and new field names.
+ (get_visually_first_element): Use the new field name.
+ (move_it_vertically_backward): Use the new function name.
+ (redisplay_internal): Use the new function name.
+ Also add a large comment to explain how Emacs deals with long lines.
+
+ * src/keyboard.c:
+ (safe_run_hooks_maybe_narrowed): Use the new function names from
+ xdisp.c and editfns.c. Make the function static, and add a
+ prototype.
+
+ * src/editfns.c:
+ (labeled_restrictions): Renamed from 'narrowing_locks'.
+ (labeled_restrictions_add): Renamed from 'narrowing_locks_add'.
+ (labeled_restrictions_remove): Renamed from
+ 'narrowing_locks_remove'.
+ (labeled_restrictions_get_bound): Renamed from
+ 'narrowing_lock_get_bound'.
+ (labeled_restrictions_peek_label): Renamed from
+ 'narrowing_lock_peek_tag'.
+ (labeled_restrictions_push): Renamed from 'narrowing_lock_push'.
+ (labeled_restrictions_pop): Renamed from 'narrowing_lock_pop'.
+ (unwind_reset_outermost_restriction): Renamed from
+ 'unwind_reset_outermost_narrowing'.
+ (reset_outermost_restrictions): Renamed from
+ 'reset_outermost_narrowings'.
+ (labeled_restrictions_save): Renamed from 'narrowing_locks_save'.
+ (labeled_restrictions_restore): Renamed from
+ 'narrowing_locks_restore'.
+ (unwind_labeled_narrow_to_region): Renamed from
+ 'unwind_narrow_to_region_locked'.
+ (labeled_narrow_to_region): Renamed from
+ 'narrow_to_region_locked'.
+ (Finternal__label_restriction): Renamed from
+ 'Finternal__lock_narrowing'.
+ (Finternal__unlabel_restriction): Renamed from
+ 'Finternal__unlock_narrowing'.
+ (Fwiden): Use the new function names.
+ (Fnarrow_to_region): Use the new function names.
+ (save_restriction_save): Use the new function names.
+ (syms_of_editfns): Use the new function names.
+ <outermost-restriction>: Renamed from 'outermost-narrowing'.
+
+ * lisp/subr.el (internal--with-restriction): Use the new internal
+ function name.
+ (internal--without-restriction): Use the new internal function
+ name.
+
+ * src/composite.c (composition_compute_stop_pos):
+ (find_automatic_composition): Use the new function name.
+
+ * doc/lispref/positions.texi (Narrowing): Add index entry.
+
+2023-04-10 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/ldefs-boot.el: Regenerate.
+
+2023-04-10 Eli Zaretskii <eliz@gnu.org>
+
+ Bump Emacs version to 29.0.90
+
+ * README:
+ * configure.ac:
+ * nt/README.W32:
+ * msdos/sed2v2.inp: Bump version to 29.0.90.
+
+2023-04-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix some cases of incomplete code's indentation [c/c++-ts-mode]
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base--before-indent): Try to
+ guess when the parse tree is incomplete, and provide a better node
+ to indent against (bug#62717).
+ (c-ts-base-mode): Set up advice for local treesit-indent-function.
+
+2023-04-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-search: Pipe the list of files through 'file-regular-p'
+
+ * lisp/progmodes/project.el (project-search): Pipe the list of
+ files through 'file-regular-p' to skip directories (bug#62735).
+
+2023-04-09 Eli Zaretskii <eliz@gnu.org>
+
+ Update ChangeLog and AUTHORS for Emacs 29
+
+ * admin/authors.el: Update for Emacs 29.
+
+ * etc/AUTHORS: Re-generate for Emacs 29.
+
+ * ChangeLog.4: New generated file.
+ * Makefile.in (PREFERRED_BRANCH): Update to emacs-29.
+ (CHANGELOG_HISTORY_INDEX_MAX): Bump to 4.
+
+2023-04-09 João Távora <joaotavora@gmail.com>
+
+ Backport: Eglot: no more tests based on Pylsp (bug#62694)
+
+ The functionality under test in eglot.el is exactly the same, but use
+ the clangd server only, as that is used in more tests, and it is much
+ easier to check if it misbehaves or not.
+
+ Tests pass with clangd version 15.
+
+ * test/lisp/progmodes/eglot-tests.el (python): Don't require it.
+ (eglot--call-with-fixture): Simplify.
+ (eglot--wait-for-clangd): New helper.
+ (eglot-test-basic-completions)
+ (eglot-test-non-unique-completions, eglot-test-basic-xref)
+ (eglot-test-snippet-completions)
+ (eglot-test-snippet-completions-with-company)
+ (eglot-test-eldoc-after-completions, eglot-test-multiline-eldoc):
+ Use clangd, not pylsp.
+ (eglot-test-formatting): Renamed from
+ eglot-test-python-autopep-formatting.
+ (eglot-test-python-yapf-formatting): Remove.
+
+ (cherry picked from commit fc8230f3362b12955152f48565a6c670b4c4cc88)
+
+2023-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'C-h k' for "Paste from Kill Menu" in context menus
+
+ * lisp/mouse.el (context-menu-region): Make the entries be
+ symbols, not just integers, to prevent "C-h c" from interpreting
+ them as character keys. (Bug#62626)
+
+2023-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Improve the documentation of the XDS support
+
+ * doc/lispref/frames.texi (Drag and Drop): Rephrase and rearrange
+ the documentation of XDS support. Add indexing. Document
+ 'x-dnd-save-direct' and 'x-dnd-save-direct-immediately'. Original
+ patch from Po Lu <luangruo@yahoo.com>.
+
+ * lisp/x-dnd.el (x-dnd-types-alist, x-dnd-test-function)
+ (x-dnd-default-test-function, x-dnd-direct-save-function): Doc
+ fixes.
+ (x-dnd-save-direct, x-dnd-save-direct-immediately): Rename the
+ second argument to FILENAME. Doc fix.
+
+2023-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Allow reindentation of images inserted by 'mm-inline-image'
+
+ * lisp/gnus/mm-view.el (mm-inline-image): Use "x" as text on which
+ to put the image 'display' property, so that indentation commands
+ don't destroy the image inadvertently. (Bug#62637)
+
+2023-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "C-h k" and "C-h c" with Paste from Kill Menu
+
+ * lisp/subr.el (event-basic-type, event-modifiers): Return nil if
+ EVENT is a string. (Bug#62626)
+
+2023-04-08 Daniel Martín <mardani29@yahoo.es>
+
+ Change cursor color on NS port when it matches the face background
+
+ * src/macfont.m (CG_SET_FILL_COLOR_WITH_FRAME_CURSOR): New macro.
+ (CG_SET_FILL_COLOR_WITH_FRAME_BACKGROUND): New macro.
+ (macfont_draw): When the cursor's color matches the face background,
+ set the fill color of the cursor to the face foreground.
+ * src/nsterm.m (ns_maybe_dumpglyphs_background): When dumping the
+ background of a glyph string, apply the logic mentioned
+ above. (Bug#62573)
+
+2023-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of image-related commands
+
+ * lisp/image.el (image-map): Make it inherit from
+ 'image-slice-map' instead of repeating the bindings.
+
+ * doc/emacs/files.texi (Image Mode): Document the key bindings set
+ by 'insert-image'. Add indexing.
+
+ * doc/lispref/display.texi (Showing Images): Make the description
+ of user commands more concise. Add index entries and
+ cross-reference to the Emacs manual.
+
+ * etc/NEWS: Rearrange entries relevant to image commands.
+
+2023-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Fix handling of sliced images
+
+ * lisp/image.el (image-slice-map): New keymap, without some
+ bindings that make no sense with sliced images.
+ (insert-image, insert-sliced-image): Use it.
+ (insert-sliced-image): Make the 'keymap' property rear-nonsticky,
+ to prevent calling image commands when point is to the right of
+ the slice. (Bug#62679)
+
+ * lisp/image/image-crop.el (image-cut, image-crop): Doc fixes.
+ (image-crop): Don't try using stock MS-Widows convert.exe
+ program. Use 'image--get-image' to support sliced images.
+
+2023-04-08 garid3000 <garidzorigoo@gmail.com>
+
+ Add cyrillic-mongolian input method
+
+ * lisp/leim/quail/cyrillic.el (cyrillic-mongolian): New input
+ method. (Bug#56617)
+
+2023-04-07 João Távora <joaotavora@gmail.com>
+
+ Jsonrpc: don't bind inhibit-read-only to t so early
+
+ Related to https://github.com/joaotavora/eglot/discussions/1202, where
+ because of this very wide binding to inhibit-read-only to t, Eglot was
+ managing to write into read-only buffers from the response handlers
+ that ran from within the stack of the jsonrpc.el process filter.
+
+ This is of course illegal and dangerous, but Eglot wasn't made aware
+ because of the binding.
+
+ * lisp/jsonrpc.el (jsonrpc--process-filter): Don't bind
+ inhibit-read-only so early.
+
+2023-04-07 Eli Zaretskii <eliz@gnu.org>
+
+ Allow active region when IM is used
+
+ * lisp/international/quail.el (quail-minibuffer-message): Bind
+ deactivate-mark to allow setting active region in the minibuffer
+ when an input method is used. (Bug#62709)
+
+2023-04-06 Robert Pluim <rpluim@gmail.com>
+
+ Add emoji-zoom-reset
+
+ * lisp/international/emoji.el (emoji-zoom-map): Add emoji-zoom-reset.
+ (emoji-zoom-reset): New function, it resets the zoom level.
+ * lisp/international/mule-cmds.el (ctl-x-map): Add emoji-zoom-reset.
+ * etc/NEWS: Announce new command.
+
+2023-04-06 Robert Pluim <rpluim@gmail.com>
+
+ Make emoji-zoom-{increase,decrease} set text properties correctly
+
+ * lisp/international/emoji.el (emoji-zoom-increase): Ensure that we're
+ increasing the :height of the anonymous face at point, rather than
+ having two :height properties, which appeared to work by
+ accident, and don't error at eob. (Bug#62675)
+
+2023-04-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix transforming sliced images
+
+ * lisp/image.el (image--get-image): Support sliced images
+ (bug#62679). Doc fix.
+ (image-mouse-decrease-size, image-mouse-increase-size)
+ (image-decrease-size, image-increase-size): Doc fixes.
+
+2023-04-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt EMBA scripts.
+
+ * test/infra/Dockerfile.emba (emacs-gnustep): Add zlib1g-dev.
+ Remove make instrumentation.
+
+ * test/infra/gitlab-ci.yml (build-image-gnustep, test-gnustep):
Uncomment.
+
+2023-04-04 Eli Zaretskii <eliz@gnu.org>
+
+ Another terminology fix in ELisp reference manual
+
+ * doc/lispref/frames.texi (Mouse Tracking):
+ * doc/lispref/commands.texi (Motion Events, Event Examples):
+ 'track-mouse' is a macro, not a special form.
+
+2023-04-04 Shynur <one.last.kiss@outlook.com> (tiny change)
+
+ Correct terminology in Elisp Reference Manual
+
+ * doc/lispref/functions.texi (Function Names): 'defun' is a macro, not
+ a special form. (Bug#62661)
+
+2023-04-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Comment out GNUSTEP jobs on EMBA (again)
+
+ * test/infra/gitlab-ci.yml (build-image-gnustep, test-gnustep):
+ Comment out jobs due to bug#62210.
+
+2023-04-03 Mattias Engdegård <mattiase@acm.org>
+
+ Fix regexp string escaping mistake in vhdl-mode.el (bug#62508)
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-compiler-alist): Quote brackets
+ correctly.
+
+2023-04-02 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.3-2-gf2949d
+
+2023-04-02 João Távora <joaotavora@gmail.com>
+
+ Eglot: don't watch directories that don't exist
+
+ project-files isn't guaranteed to return existing files, so better
+ check if they exist because placing a watcher on them.
+
+ Originally reported at:
+ https://github.com/joaotavora/eglot/issues/1198
+
+ * lisp/progmodes/eglot.el (eglot-register-capability
+ workspace/didChangeWatchedFiles): Check if directories exist.
+
+2023-04-02 Eshel Yaron <me@eshelyaron.com>
+
+ Preserve peer information for web page in eww-readable
+
+ The :peer property in eww-data affects the face of the page title
+ in 'header-line-format' as set by 'eww-update-header-line-format'.
+ Preserving this property in eww-readable avoids having the header
+ line's appearance change when this command is called.
+ * lisp/net/eww.el (eww-readable): Preserve eww-data's :peer
+ property. (Bug#62574)
+
+2023-04-02 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/subr.el (use-dialog-box-p): Fix conditions for GUI dialogs.
+
+2023-04-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix ModelSim error regexp in vhdl-mode
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-compiler-alist): Fix ModelSim
+ error regexp. Suggested by Reto Zimmermann <reto@gnu.org>.
+ (Bug#62508)
+
+2023-04-01 Eli Zaretskii <eliz@gnu.org>
+
+ Document enhancements in handling of echo-area messages
+
+ * etc/NEWS:
+ * doc/lispref/display.texi (Displaying Messages):
+ * lisp/minibuffer.el (inhibit-message-regexps)
+ (set-message-functions, inhibit-message, set-multi-message):
+ Improve the documentation of functions dealing with display of
+ echo-area messages.
+
+2023-04-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix new Eshell tests on MS-Windows
+
+ * test/lisp/eshell/eshell-tests.el
(eshell-test/eshell-command/background)
+ (eshell-test/eshell-command/background-pipeline): Allow for ".exe"
+ in the program's name. This fixes these tests on MS-Windows.
+
+2023-03-31 Jim Porter <jporterbugs@gmail.com>
+
+ Fix using background commands in 'eshell-command'
+
+ Do not merge to master.
+
+ This regressed due to the patch for bug#53715, which changed how
+ Eshell pipelines return the processes in the pipeline (bug#62556).
+
+ * lisp/eshell/esh-cmd.el (eshell-eval-command): Allow process-pairs.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/eshell-command/simple)
+ (eshell-test/eshell-command/pipeline)
+ (eshell-test/eshell-command/background)
+ (eshell-test/eshell-command/background-pipeline): New tests.
+
+2023-03-31 Shynur <one.last.kiss@outlook.com> (tiny change)
+
+ Fix typo in section 14.1 of Emacs Manual
+
+ * doc/emacs/display.texi (Scrolling): Fix typo. (Bug#62569)
+
+2023-03-30 João Távora <joaotavora@gmail.com>
+
+ Eglot: unbreak eglot-extend-to-xref on w32
+
+ Because of a drive-letter casing mismatch between 'buffer-file-name'
+ and the return value of 'url-generic-parse-url', the hash-table test
+ 'equal' in 'eglot-current-server' failed.
+
+ This failed to recognize that the file xref landed us on really is
+ managed by the language server that facilitated that jump.
+
+ The function w32-long-file-name seems to convert "C:/Users/" to
+ "c:/Users" consistently and so is a good addition to
+ eglot--uri-to-path.
+
+ * lisp/progmodes/eglot.el (eglot--uri-to-path): Use
+ w32-long-file-name.
+
+2023-03-30 João Távora <joaotavora@gmail.com>
+
+ Eglot: ensure server shutdown turns off eglot-inlay-hints-mode
+
+ * lisp/progmodes/eglot.el (eglot--managed-mode-off): Turn off
+ eglot-inlay-hints-mode.
+
+2023-03-30 Yuan Fu <casouri@gmail.com>
+
+ Add two typescript-ts-mode faces (bug#62429)
+
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-mode-jsx-tag-face)
+ (typescript-ts-mode-jsx-attribute-face): New faces.
+ (typescript-ts-mode--font-lock-settings): Use new faces.
+ (tsx-ts-mode): Mention the new faces in the docstring.
+
+2023-03-30 Shynur <one.last.kiss@outlook.com> (tiny change)
+
+ Fix scrolling window when point moves up
+
+ This fixes the case when both 'scroll-conservatively' and
+ 'scroll-step' are customized to non-default values.
+ * src/xdisp.c (try_scrolling): Fix precedence between
+ 'scroll-step' and 'scroll-conservatively' when scrolling with
+ 'previous-line'. (Bug#62530)
+
+2023-03-30 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'defcustom's :set keyword
+
+ * lisp/custom.el (defcustom):
+ * doc/lispref/customize.texi (Variable Definitions): Improve the
+ documentation of the :set keyword in 'defcustom'.
+
+2023-03-29 Andrea Corallo <akrl@sdf.org>
+
+ Comp fix calls to redefined primtives with op-bytecode (bug#61917)
+
+ * test/src/comp-tests.el (61917-1): New test.
+ * src/comp.c (syms_of_comp): New variable.
+ * lisp/loadup.el: Store primitive arities before dumping.
+ * lisp/emacs-lisp/comp.el (comp--func-arity): New function.
+ (comp-emit-set-call-subr): Make use of `comp--func-arity'.
+
+2023-03-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix duplicate defcustom in eww.el
+
+ * lisp/net/eww.el (eww-default-download-directory): Renamed back
+ from 'eww-download-directory'; all users changed. Doc fix.
+ (Bug#62531)
+
+2023-03-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix indentation regression in 'C-h l'
+
+ * lisp/help.el (view-lossage): Fix indentation of commands
+ when the key sequence includes a semicolon. (Bug#62453)
+
+2023-03-29 Michael Albinus <michael.albinus@gmx.de>
+
+ * doc/misc/tramp.texi (Remote shell setup): Clarify use of ssh
RemoteCommand.
+
+2023-03-28 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'read-choice' and related symbols
+
+ * doc/lispref/commands.texi (Reading One Event):
+ * lisp/subr.el (read-char-choice-use-read-key, read-char-choice)
+ (read-char-choice-with-read-key, y-or-n-p-use-read-key): Improve
+ documentation of these functions and variables.
+
+2023-03-28 Andrea Corallo <akrl@sdf.org>
+
+ Revert "Comp fix calls to redefined primtives with op-bytecode
(bug#61917)"
+
+ This reverts commit 263d6c38539691c954f4c3057cbe8d5468499b91.
+
+ These patch series caused a number of regression and more analysis is
+ required.
+
+2023-03-28 Andrea Corallo <akrl@sdf.org>
+
+ Revert "* lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve..."
+
+ This reverts commit 4a7a0c9a9f521b04b23580901e9c0a662b504e32.
+
+ These patch series caused a number of regression and more analysis is
+ required.
+
+2023-03-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Skip ruby-ts-imenu-index test if needed
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el (ruby-ts-imenu-index):
+ Add check for treesitter.
+
+2023-03-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Eglot Tramp tests on EMBA
+
+ * test/lisp/progmodes/eglot-tests.el (eglot--call-with-tramp-test):
+ Bind `tramp-allow-unsafe-temporary-files' with t. (Bug#62289)
+
+2023-03-28 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/Dockerfile.emba (emacs-gnustep): Instrument "make V=1 ...".
+
+2023-03-27 João Távora <joaotavora@gmail.com>
+
+ Fix accidental backward-incompatible change (bug#62417)
+
+ This code used to work, but with the change of 59ecf25fc860 it stopped
+ working:
+
+ (defun foop (buffer-name _alist) (string-match "foop" buffer-name))
+ (add-to-list 'display-buffer-alist '(foop .
display-buffer-other-frame))
+
+ This change makes it work again, restoring compatibility.
+
+ * lisp/subr.el (buffer-match-p): Fix and adjust docstring.
+ * lisp/window.el (display-buffer-alist): Adjust docstring.
+ (display-buffer-assq-regexp): Make good on promise of
display-buffer-alist.
+
+2023-03-26 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix/simplify Imenu index generation
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--full-name): Drop '#'
+ from the end of resulting string when the node is not a method.
+ Support 'singleton_method' nodes.
+ (ruby-ts--imenu-helper): Simplify, to create a "flat" list of
+ entries, rather than a nested one. The previous implementation
+ had problems (like producing a nested structure of full-qualified
+ names, thus creating a lot of textual repetition), seems easier to
+ just follow ruby-mode's example here, at least for Emacs 29's
+ release.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el (ruby-ts-imenu-index):
+ New test.
+
+2023-03-26 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--align-chain): Use 'equal' to check for an exact match
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--align-chain): Use
+ 'equal' to check for an exact match rather than substring.
+
+2023-03-26 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-218-g3dbb22a
+
+2023-03-26 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.2
+
+2023-03-26 Ken Brown <kbrown@cornell.edu>
+
+ Skip failing tests on Cygwin with native compilation (bug#62450)
+
+ * test/Makefile.in (TEST_NATIVE_COMP): New variable, used to
+ determine whether to run tests tagged with :nativecomp. Set it to
+ "no" on Cygwin and to $(HAVE_NATIVE_COMP) otherwise.
+
+ * test/lisp/emacs-lisp/benchmark-tests.el (benchmark-tests): Skip
+ on Cygwin with native-compilation.
+
+2023-03-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix GNUSTEP tests on EMBA
+
+ * configure.ac (LIBS_GNUSTEP): Adapt CPPFLAGS and CFLAGS. (Bug#62210)
+ Proposed by Po Lu <luangruo@yahoo.com>.
+
+ * test/infra/gitlab-ci.yml (build-image-gnustep)
+ (test-gnustep): Uncomment jobs.
+
+2023-03-26 Phil Sainty <psainty@orcon.net.nz>
+
+ Fix primary selection modification during `term-mouse-paste' (bug#58608)
+
+ * lisp/term.el (term-mouse-paste): Prevent the primary selection from
+ being changed in the process of sending it to the inferior process.
+
+2023-03-26 Xi Lu <lx@shellcodes.org>
+
+ Add 'eww-default-download-directory'.
+
+ * lisp/net/eww.el (eww-default-download-directory): New defcustom.
+ (eww--download-directory): Use it. (Bug#62435)
+
+2023-03-26 Phil Sainty <psainty@orcon.net.nz>
+
+ * doc/lispref/modes.texi: Improve docs for obsolete '%m' construct
+
+ Bug #57080.
+
+2023-03-26 Phil Sainty <psainty@orcon.net.nz>
+
+ Improve docs for global-mode-string / %M construct
+
+ * src/xdisp.c (global-mode-string): Update docstring.
+ * doc/lispref/modes.texi: Update manual.
+
+2023-03-26 Phil Sainty <psainty@orcon.net.nz>
+
+ * src/buffer.c (mode-line-format): Document %o and %q constructs
+
+ Missed from commit b0b02ca7f3e06d0f092df6f81babd1277bf93b0f.
+
+2023-03-26 Phil Sainty <psainty@orcon.net.nz>
+
+ * src/buffer.c (mode-line-format): Remove docs for obsolete %t construct
+
+ This documentation had been previously removed in 1999 in [1]
+ but was subsequently restored again in a different form in 2006
+ in [2] as the construct was still supported on some systems.
+ However it looks like it hasn't done what that documentation
+ indicated since [3] in 2011, and the final remnant of this
+ functionality was removed in [4] in 2013; so it seems clear that
+ it's no longer supported and shouldn't be documented now.
+
+ [1] commit 08de62001945d4dd32a3d6af44da05804cb296d5
+ [2] commit dafbe726b89a36010f3f24bb1efe4ace0a5f7f0f
+ [3] commit 05c652517317d10690aaf0a6aa0bc876382b9d82
+ [4] commit 8549f9e89bd9288c4c709d183a5bf8f07dbeed3d
+
+2023-03-25 kobarity <kobarity@gmail.com>
+
+ Improve indenting "case" in Python
+
+ * lisp/progmodes/python.el (python-info-dedenter-statement-p): Do not
+ consider the first "case" in the block as dedenter.
+ * test/lisp/progmodes/python-tests.el
+ (python-info-dedenter-opening-block-positions-7)
+ (python-info-dedenter-statement-p-6): New tests. (Bug#62092)
+
+2023-03-25 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/Dockerfile.emba (emacs-native-comp): Add zlib1g-dev.
+
+2023-03-25 Ken Brown <kbrown@cornell.edu>
+
+ Fix failure of fns-tests-collate-strings on Cygwin
+
+ * test/src/fns-tests.el (fns-tests-collate-strings): Use
+ en_XY.UTF-8 instead of en_DE.UTF-8 as an example of an invalid
+ locale; en_DE.UTF-8 is actually a valid locale on Cygwin.
+ Note: The test will still fail on Cygwin releases < 3.5
+ because of a Cygwin bug. (Bug#62420)
+
+2023-03-25 Aaron L. Zeng <azeng@janestreet.com> (tiny change)
+
+ * lisp/savehist.el (savehist-save): Preserve shared structure
+
+ This avoids ballooning the size of variables that contain
+ large text properties, such as the 'yank-handler' installed
+ by 'evil-yank-rectangle', which contains a list of lines in
+ the string.
+ * lisp/savehist.el (savehist-save): Enable 'print-circle'.
+ (Bug#62364)
+
+2023-03-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp manual
+
+ * doc/misc/tramp.texi (Default Method): OpenSSH for MS Windows can
+ be used.
+ (Ssh setup): Extend for MS Windows and ssh.
+
+2023-03-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix system time sampling on MS-Windows
+
+ * src/timefns.c (emacs_localtime_rz) [WINDOWSNT]: Unconditionally
+ call tzset to make sure we pick up all the changes of time zone,
+ working around the MS CRT caching.
+
+2023-03-24 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit_ensure_parsed (bug#62333)
+
+ * src/treesit.c (treesit_ensure_parsed): Check for need_reparse after
+ treesit_sync_visible_region runs, because as the comment says,
+ treesit_sync_visible_region might modify need_reparse.
+
+2023-03-23 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/help-fns.el (find-lisp-object-file-name): Fix bug#62376 part2
+
+ Nowadays `loaddefs.el` are byte-compiled, so adjust pattern accordingly
+
+2023-03-23 Eli Zaretskii <eliz@gnu.org>
+
+ Improve "Bugs" in the Emacs manual
+
+ * doc/emacs/trouble.texi (Bugs, Known Problems)
+ (Understanding Bug Reporting, Checklist, Sending Patches)
+ (Contributing, Coding Standards): Improve wording, structure,
+ markup, and indexing. (Bug#62320)
+
+2023-03-23 João Távora <joaotavora@gmail.com>
+
+ Fix Eglot progress reporting
+
+ When the server sends an "end" message, Emacs's progress reporters
+ should also be updated.
+
+ * lisp/progmodes/eglot.el (eglot-handle-notification $/progress):
Rework.
+
+2023-03-23 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Fix :predicate handling in globalized minor modes
+
+ * lisp/emacs-lisp/easy-mmode.el (define-globalized-minor-mode):
+ Fix a thinko. (Bug#62376)
+
+2023-03-23 Eli Zaretskii <eliz@gnu.org>
+
+ Allow showing prefix commands in Help buffers
+
+ * lisp/help.el (describe-bindings-show-prefix-commands): New user
+ option.
+ (describe-map): Use it to decide whether to output prefix
+ commands. Patch by Bob Rogers <rogers@rgrjr.com>. (Bug#62279)
+
+ * etc/NEWS: Document 'describe-bindings-show-prefix-commands'.
+
+2023-03-23 Daniel Martín <mardani29@yahoo.es>
+
+ Fix toolbar item validation in the NS port
+
+ * src/nsterm.m ([EmacsView validateToolbarItem:]): Implement this
+ NSToolbarItemValidation method, which is called by AppKit when it
+ needs to validate an image item in a toolbar. This solves, in
+ particular, the problem with having the "Save" icon on the tool
+ bar enabled at Emacs startup. (Bug#62234)
+
+2023-03-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Use libgccjit-10-dev on EMBA
+
+ * test/infra/Dockerfile.emba (emacs-native-comp): Use
+ libgccjit-10-dev. (Bug#62211)
+
+ * test/infra/gitlab-ci.yml (build-native-comp-speed2)
+ (test-native-comp-speed2): Uncomment jobs.
+
+2023-03-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline--fix-buttons-after-change): Add
save-match-data.
+
+ It's important for a hook in after-change-functions not to change
match-data.
+ Otherwise it breaks functions that make changes in the buffer, such as
+ for example, successive calls to delete-region in smerge-keep-n, etc.
+
+2023-03-22 Yuan Fu <casouri@gmail.com>
+
+ Align concatenated strings to the first sibling in c-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Change rule.
+
+2023-03-22 Yuan Fu <casouri@gmail.com>
+
+ Only fill the current paragraph in c-ts-common--fill-block-comment
+
+ * lisp/progmodes/c-ts-common.el:
+ (c-ts-common--fill-block-comment): Shrink the filled region to the
+ paragraph at point.
+
+2023-03-21 Yuan Fu <casouri@gmail.com>
+
+ Add missing indent rule for c-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): New rule for
case.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+2023-03-21 Yuan Fu <casouri@gmail.com>
+
+ Improve docstring of treesit-parent-while (bug#62301)
+
+ * doc/lispref/parsing.texi (Retrieving Nodes): Improve and fix
+ docstring for treesit-parent-until and treesit-parent-while.
+ * lisp/treesit.el (treesit-parent-while): Improve docstring.
+
+2023-03-21 João Távora <joaotavora@gmail.com>
+
+ Eglot: report window/workDoneProgress capability to language server
+
+ In bug#59149, LSP progress reporting was implemented, but Eglot's
+ 'capabilities' statement to the server wasn't changed to include
+ window/workDoneProgress.
+
+ * lisp/progmodes/eglot.el (eglot-client-capabilities): Actually
+ report workDoneProgress.
+
+2023-03-21 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539
+
+2023-03-21 Robert Pluim <rpluim@gmail.com>
+
+ Expand defvar-keymap documentation
+
+ * doc/lispref/keymaps.texi (Creating Keymaps): Describe the :repeat
keyword.
+
+2023-03-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/treesit.el (treesit-end-of-defun): Guard arg against nil
(bug#62158).
+
+2023-03-20 Andrea Corallo <akrl@sdf.org>
+
+ Comp fix calls to redefined primtives with op-bytecode (bug#61917)
+
+ * lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Fix compilation
+ of calls to redefined primtives with dedicated op-bytecode.
+ * test/src/comp-tests.el (61917-1): New test.
+
+2023-03-20 Robert Pluim <rpluim@gmail.com>
+
+ Warn package authors away from keymap-unset with REMOVE
+
+ * doc/lispref/keymaps.texi (Changing Key Bindings): Ask package
+ authors to not use the REMOVE argument to `keymap-unset'.
+
+2023-03-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Comment out jobs on EMBA
+
+ * test/infra/gitlab-ci.yml: Comment out jobs due to bug#62210 and
+ bug#62211.
+
+2023-03-20 Robert Pluim <rpluim@gmail.com>
+
+ Improve defvar-keymap docstring.
+
+ * lisp/keymap.el (defvar-keymap): Improve description of ':enter' and
+ ':exit' usage for ':repeat' keyword.
+
+2023-03-19 Gregory Heytings <gregory@heytings.org>
+
+ Improve warning about changing the string returned by symbol-name
+
+ * src/data.c (Fsymbol_name): Add warning. See bug#62009.
+
+ * doc/lispref/symbols.texi (Creating Symbols): Improve warning.
+
+2023-03-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix visiting XBM/XPM files when 'c-ts-mode' is active
+
+ * lisp/progmodes/c-ts-mode.el (treesit-ready-p): Fix association
+ for XBM/XPM files in 'auto-mode-alist'. (Bug#62276)
+
+2023-03-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/mpc.el (mpc-format): Fix oversight in commit 48b6cec61cf
+
+2023-03-19 João Távora <joaotavora@gmail.com>
+
+ Bail early from eglot--apply-text-edits if nothing to do
+
+ * lisp/progmodes/eglot.el (eglot--apply-text-edits): Early return.
+
+2023-03-19 João Távora <joaotavora@gmail.com>
+
+ Improve ergonomics of Eglot's inlay hints
+
+ Instead of deleting inlay hints instantly as soon as the affected
+ changes, make hint overlays span one character (instead of being
+ length 0). Give the overlays an "evaporate" property.
+
+ Given an inlay hints at position POS, its attached to [POS, POS+1] if
+ it's kind=1 (usually type hints) and [POS-1, POS] otherwise. For
+ kind=1 hints, the 'cursor position of the first such overlay is also
+ tweaked, so that's it's less akward to edit around it.
+
+ * lisp/progmodes/eglot.el (eglot--before-change): Don't delete hints
+ here.
+ (eglot--update-hints-1): Rework.
+
+2023-03-19 Eli Zaretskii <eliz@gnu.org>
+
+ Protect against too large size of 'recent-keys' vector
+
+ * src/keyboard.c (MAX_NUM_RECENT_KEYS): New macro.
+ (Flossage_size): Don't allow specifying too large lossage-size.
+ Fix data types. (Bug#62277)
+
+2023-03-19 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp.el (tramp-yn-prompt-regexp): Fix regexp.
+
+2023-03-18 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1-48-g92471e
+
+2023-03-18 João Távora <joaotavora@gmail.com>
+
+ Merge confusing duplicate sections on commands in Eglot manual
+
+ Also describe eglot-diagnostics-map.
+
+ * doc/misc/eglot.texi (Eglot Features): Don't describe commands here.
+ (Eglot Commands): Describe commands here.
+
+2023-03-18 João Távora <joaotavora@gmail.com>
+
+ Don't take over mouse-1 binding on Eglot diagnostics (bug#62157)
+
+ It's better to give the user a variable to allow the overlay keymap to
+ be customized.
+
+ * lisp/progmodes/eglot.el (eglot--mouse-call): Accept second arg.
+ (eglot--mode-line-props): Adapt call to eglot--mouse-call
+ (eglot-diagnostics-map): New variable.
+ (eglot-code-actions-at-mouse): New command.
+
+2023-03-18 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/progmodes/eglot.el (eglot--connect): Improve Tramp workaround.
+
+2023-03-18 Gregory Heytings <gregory@heytings.org>
+
+ Avoid slowdowns in xmltok-scan-attributes
+
+ * lisp/nxml/xmltok.el (xmltok-scan-attributes): Limit the search
+ to 10000 characters, to avoid slowdowns due to the quadratic
+ complexity of the regexp. Suggested by Stefan Monnier.
+
+2023-03-18 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Eliminate duplicate function c-list-of-strings
+
+ Replace it with the existing c-string-list-p. Also put an autoload
cookie in
+ front of c-string-list-p so that it will not be signalled as undefined
by
+ loaddefs.el.
+
+ lisp/progmodes/cc-vars.el (c-string-list-p): Make this autoload.
+ (c-list-of-strings): Remove.
+ (c-font-lock-extra-types, c++-font-lock-extra-types)
+ (objc-font-lock-extra-types, java-font-lock-extra-types)
+ (idl-font-lock-extra-types, pike-font-lock-extra-types): In the autoload
+ cookies, replace c-list-of-strings with c-string-list-p.
+
+2023-03-18 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Allow lists of strings as safe values for
*-font-lock-extra-types
+
+ * lisp/progmodes/cc-vars.el (c-list-of-strings): New function.
+ (c-font-lock-extra-types, c++-font-lock-extra-types)
+ (objc-font-lock-extra-types, java-font-lock-extra-types)
+ (idl-font-lock-extra-types, pike-font-lock-extra-types): Add a :safe
entry
+ into each of thes defcustoms for c-list-of-string.
+ (Top level): Add an autoload entry for each of the above.
+
+2023-03-18 Robert Pluim <rpluim@gmail.com>
+
+ Add tests for Bug#62207
+
+ * test/src/keymap-tests.el (keymap-unset-test-remove-and-inheritance):
+ New test.
+
+2023-03-18 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix 'find-ls-option-default-ls' for BSD/MacOS (bug#62096)
+
+ * lisp/find-dired.el (find-ls-option-default-ls): Adapt to
+ a value that works with the default "find" on *BSD and
+ Darwin/MacOS. Tested on OpenBSD and MacOS. Do not merge
+ to master.
+
+2023-03-17 João Távora <joaotavora@gmail.com>
+
+ Enhance section about troubleshooting in Eglot manual.
+
+ * doc/misc/eglot.texi (Troubleshooting Eglot): Parially rewrite.
+
+2023-03-17 João Távora <joaotavora@gmail.com>
+
+ Fix Eglot's snippet insertion to follow the manual
+
+ The manual states that YASnippet must only be installed to be useful.
+ Before this change, it would only work if the user happened to have
+ manually activated it before with 'yas-global-mode' or somesuch.
+
+ This makes Eglot's Yasnippet-activating behaviour similar to its
+ Flymake-activating behaviour.
+
+ * lisp/progmodes/eglot.el (eglot-client-capabilities): Consult
+ eglot--stay-out-of.
+ (eglot--snippet-expansion-fn): Turn on yas-minor-mod eon demand.
+ (eglot-completion-at-point): Simplify.
+
+2023-03-17 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Reset abbrevs-changed after saving abbrevs (bug#62208)
+
+ * lisp/abbrev.el (abbrev--possibly-save): Reset abbrevs-changed after
+ saving abbrevs.
+ * test/lisp/abbrev-tests.el (abbrev--possibly-save-test): New test.
+
+2023-03-17 Robert Pluim <rpluim@gmail.com>
+
+ Document `keymap-unset' in lispref
+
+ * doc/lispref/keymaps.texi (Changing Key Bindings): Document
+ keymap-unset.
+
+2023-03-17 Robert Pluim <rpluim@gmail.com>
+
+ Don't add a key binding when REMOVE is non-nil
+
+ * src/keymap.c (store_in_keymap): Don't add a nil keybinding if we've
+ been asked to remove a non-existent binding. (Bug#62207)
+
+2023-03-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the documentation of various aspects of adding Xref history
+
+ * lisp/progmodes/xref.el (xref-marker-ring-length)
+ (xref-set-marker-ring-length):
+ * lisp/progmodes/etags.el (tags-location-ring-length)
+ (find-tag-marker-ring): Add doc strings saying the variables are
+ unused.
+
+ * etc/NEWS: Enhance the description of the change which made Xref
+ marker stack unlimited in its length.
+
+ * doc/emacs/maintaining.texi (Looking Up Identifiers): Add back
+ text lost when xref forward history was added in bug#38797.
+ Explain the difference between 'C-M-,' and 'M-.'. Improve
+ wording (Bug#62229)
+
+2023-03-16 kobarity <kobarity@gmail.com>
+
+ Fix python-fill-paragraph problems on filling strings (bug#62142)
+
+ * lisp/progmodes/python.el (python-syntax--context-compiler-macro)
+ (python-syntax-context): Add single-quoted-string and
+ triple-quoted-string as TYPE argument.
+ (python-info-triple-quoted-string-p): New helper function.
+ (python-fill-paragraph)
+ (python-fill-string): Use it.
+ * test/lisp/progmodes/python-tests.el (python-syntax-context-1)
+ (python-fill-paragraph-single-quoted-string-1)
+ (python-fill-paragraph-single-quoted-string-2)
+ (python-fill-paragraph-triple-quoted-string-1)
+ (python-info-triple-quoted-string-p-1)
+ (python-info-triple-quoted-string-p-2)
+ (python-info-triple-quoted-string-p-3): New tests.
+
+2023-03-16 João Távora <joaotavora@gmail.com>
+
+ Also exempt eglot-inlay-hints-mode from desktop.el's fumblings
+
+ Reported in https://github.com/joaotavora/eglot/discussions/1183.
+
+ * lisp/progmodes/eglot.el (desktop): Also exempt
+ eglot-inlay-hints-mode from desktop.el fumblings.
+
+2023-03-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Refer to EWW instead of w3 and w3m
+
+ * doc/misc/idlwave.texi (Help with HTML Documentation): Refer to EWW
+ instead of w3 and w3m.
+
+2023-03-16 João Távora <joaotavora@gmail.com>
+
+ Fix Eglot's command generation for code actions
+
+ The user command generated by eglot--code-action should always call
+ eglot-code-actions with a INTERACTIVE set to t.
+
+ Reported in https://github.com/joaotavora/eglot/issues/1132.
+
+ * lisp/progmodes/eglot.el (eglot--code-action): Pass INTERACTIVE=t to
+ eglot-code-action call.
+
+2023-03-16 João Távora <joaotavora@gmail.com>
+
+ Emphasize emacs-29-specificity in this version of
lisp/progmodes/eglot.el
+
+ Do not merge to master.
+
+ Before working on bugfixes to Eglot in its non-ELPA form delivered
+ with Emacs 29, it's important to distinguish between this emacs-29
+ version and the one in master, which will also get the bugfixes (via
+ routine gitmerge.el) but with a bumped version number.
+
+ * lisp/progmodes/eglot.el (Version): Emphasize Emacs 29, but hint this
+ is 1.12 + something.
+ (Package-Requires): Remove. Everything required is already in Emacs
+ 29.
+
+2023-03-16 USAMI Kenta <tadsan@zonu.me>
+
+ Fix quoting of font-family in 'hfy-family'
+
+ Running "M-x htmlfontify-buffer" in one buffer, the exported HTML
contains
+ lines like:
+
+ body, pre { text-decoration: none; font-family: Migu 2M;
font-stretch:
+ normal; font-weight: 500; font-style: normal; color: #ffffff;
+ background: #000000; font-size: 15pt; }
+
+ Standards-compliant web browsers should ignore this font-family.
+
+ MDN Web Docs says:
+ https://developer.mozilla.org/en-US/docs/Web/CSS/font-family
+
+ Valid family names
+ Font family names must either be given quoted as strings, or unquoted
as
+ a sequence of one or more identifiers. This means that punctuation
+ characters and digits at the start of each token must be escaped in
+ unquoted font family names.
+
+ It is a good practice to quote font family names that contain white
+ space, digits, or punctuation characters other than hyphens.
+
+ An unquoted font-family is valid as long as it doesn't start with a
digit,
+ but MDN Web Docs also says:
+
+ The following example is technically valid but is not recommended:
+ font-family: Gill Sans Extrabold, sans-serif;
+
+ So it makes sense to quote all font-family.
+
+ * lisp/htmlfontify.el (hfy-family): Quote 'font-family'. (Bug#62054)
+
+2023-03-15 Michael Eliachevitch <m.eliachevitch@posteo.de> (tiny change)
+
+ Document how to construct JSONRPC arrays in Eglot manual
+
+ Many language server configuration options are of the JSON array
+ datatype, for example argument lists for executables, but there wasn't
+ any example of that in the Eglot manual.
+
+ * doc/misc/eglot.texi (User-specific configuration)
+ (User-specific configuration): Tweaks.
+ (JSONRPC objects in Elisp): Mention JSON arrays. Tweak example.
+
+2023-03-15 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/Dockerfile.emba: Use debian:bullseye.
+
+2023-03-15 Andrea Corallo <akrl@sdf.org>
+
+ * configure.ac: Fix native comp compatibility check (bug#61960)
+
+2023-03-15 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/Dockerfile.emba: Install clangd.
+
+2023-03-15 Philip Kaludercic <philipk@posteo.net>
+
+ Remove 'package-vc--query-spec'
+
+ * lisp/emacs-lisp/package-vc.el (require): Do not load `inline' during
+ compilation.
+ (package-vc--query-spec): Remove function.
+ (package-vc--clone): Do not call 'package-vc--query-spec'.
+
+2023-03-15 Philip Kaludercic <philipk@posteo.net>
+
+ Do not store :lisp-dir in package descriptors
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--main-file)
+ (package-vc--unpack-1): Query 'pkg-spec' instead of
+ 'package-desc-extras'.
+ (package-vc--unpack): Do not update 'package-desc-extras'.
+
+ This simplification is possible due to the change in 2718bbb3bc, since
+ we now ensure that package specifications are not lost. They are
+ either provided by a package archive or stored in
+ 'package-vc-selected-packages'.
+
+2023-03-15 Philip Kaludercic <philipk@posteo.net>
+
+ Use 'package-vc-selected-packages' to store package specs
+
+ * doc/emacs/package.texi (Fetching Package Sources): Do not promote
+ the usage of 'package-vc-selected-packages' to install packages.
+ * lisp/emacs-lisp/package-vc.el (package-vc-selected-packages): Remove
+ custom setter and change docstring according to these changes.
+ (package-vc--desc->spec): Consult 'package-vc-selected-packages' for
+ package specifications.
+ (package-vc--unpack): Add unknown package specifications to
+ 'package-vc-selected-packages'
+
+2023-03-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/xref.el: Bump the version.
+
+2023-03-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/xref.el (xref--xref-buffer-mode): Split up
'setq-local'.
+
+ xref.el needs to support 26.1, but an arbitrary number of variables
+ in 'setq-local' was added in Emacs 27.1 (bug#62162).
+
+2023-03-13 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Fix import of keys in buffer created by epa-search-keys
+
+ * lisp/epa-ks.el (epa-ks--query-url): Add operation parameter.
+ (epa-ks--fetch-key, epa-search-keys): Use it.
+
+2023-03-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix connection-local variables settings
+
+
+ * lisp/files-x.el (connection-local-set-profiles)
+ (connection-local-set-profile-variables): Use NOW when calling
+ `custom-set-variables'.
+
+ * test/lisp/files-x-tests.el
+ (files-x-test-connection-local-set-profile-variables)
+ (files-x-test-connection-local-update-profile-variables)
+ (files-x-test-connection-local-set-profiles)
+ (files-x-test-hack-connection-local-variables-apply)
+ (files-x-test-with-connection-local-variables)
+ (files-x-test-setq-connection-local): Fix tests.
+
+ * test/lisp/net/tramp-tests.el (tramp-test34-connection-local-variables)
+ (tramp-test34-explicit-shell-file-name): Fix tests.
+
+2023-03-13 João Távora <joaotavora@gmail.com>
+
+ Bump Eglot version to 1.12
+
+ * etc/EGLOT-NEWS: New file.
+
+ * etc/NEWS: Briefly mention etc/EGLOT-NEWS.
+
+ * lisp/progmodes/eglot.el: Bump versions.
+
+2023-03-13 João Távora <joaotavora@gmail.com>
+
+ Update Eglot's manual about eglot-workspace-configuration
+
+ There is a possible use for a global setting
+ eglot-workspace-configuration, which is to (ab)use it to set
+ user-specific configuration when the server doesn't permit other
+ methods. Rearrange the "Advanced server configuration" section and
+ describe that use in the manual.
+
+ * doc/misc/eglot.texi (Project-specific configuration): Correct
+ mistake about global usefulness of eglot-workspace-configuration.
+ (Advanced server configuration): Swap order of sections.
+ (User-specific configuration): Mention possibility of globally
+ setting eglot-workspace-configuration.
+
+2023-03-12 João Távora <joaotavora@gmail.com>
+
+ Amend last Eglot commit (bug#62065)
+
+ The fix contained a spurious check for this-command that shouldn't
+ have made it in..
+
+ * lisp/progmodes/eglot.el (eglot-ensure): Don't check this-command.
+
+2023-03-12 João Távora <joaotavora@gmail.com>
+
+ Make eglot-ensure's post-command-hook run a bit later (bug#62065)
+
+ 'eglot-ensure', typically used in the major-mode-hook, use
+ 'post-command-hook' to schedule an automated, non-interactive
+ connection attempt to a server. The goal is to connect when the
+ buffer is ready, i.e. after the user command that found the file.
+
+ However, if there are dir-local or buffer-local variables to confirm,
+ finding the file will cause a minibuffer prompt to appear.
+
+ In that case, 'eglot-ensure's addition to the global post-command-hook
+ runs before it was intended too and a connection is started
+ prematurely.
+
+ In turn, this means that a call to 'hack-dir-local-variables' -- which
+ is part of the connection process -- which also needs a minibuffer
+ prompt, collides with the previous one. This generates an error and
+ confuses the user, who doesn't know if the directory-local variables
+ have been applied or not.
+
+ This commit fixes the clash by having 'eglot-ensure' set
+ 'post-command-hook' buffer-locally. This causes the automated
+ connection to take place, as intended, after the user's original
+ file-finding command has ended.
+
+ However, the problem reported in bug#62065 is not completely fixed.
+ If the user answers "no" to the first "confirm local variables"
+ "prompt, she will be prompted again in the second one. A subsequent
+ commit will address this separate problem.
+
+ * lisp/progmodes/eglot.el (eglot-ensure): Use buffer-local
post-command-hook.
+
+2023-03-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of disabled-command help text
+
+ * lisp/novice.el (disabled-command-function): Improve wording, and
+ make sure the prompt doesn't exceed one screen line, so that the
+ mini-window is not resized (which gets in the way of fitting the
+ window to the size of the help text), and the help text is fully
+ visible when Emacs prompts for input. (Bug#62146)
+
+2023-03-12 Mattias Engdegård <mattiase@acm.org>
+
+ Remove mention of old dotted-list reader quirk from manual
+
+ * doc/lispref/objects.texi (Dotted Pair Notation):
+ The (. X) reader peculiarity is no more (bug#62020).
+
+2023-03-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix value history shown for 'gc-cons-percentage'
+
+ When Emacs is built, temacs is run in batch mode, so if we enlarge
+ 'gc-cons-percentage' in that case, the enlarged value will be
+ "remembered" by the dumped Emacs, and will show confusing
+ information in "C-h v", claiming that the original value was 1.0.
+ Keeping the value at 0.1 during dumping avoids that.
+
+ * src/emacs.c (main): Increase 'gc-cons-percentage' in batch mode
+ only if we are not initializing (a.k.a. "dumping") Emacs.
+
+2023-03-12 Michael Albinus <michael.albinus@gmx.de>
+
+ TRework fix for bug#62106
+
+ * lisp/files-x.el (connection-local-set-profiles)
+ (connection-local-set-profile-variables):
+ Use `custom-set-variables'. It serves the purpose to not keep
+ unsaved user options, and it is less invasive than
+ `customize-save-variable'.
+
+2023-03-11 Randy Taylor <dev@rjt.dev>
+
+ Add missing indentation rule for rust-ts-mode (Bug#62109)
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--indent-rules): Add
+ missing rule.
+
+2023-03-11 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix bug#62106
+
+ * lisp/files-x.el (connection-local-set-profiles)
+ (connection-local-set-profile-variables):
+ Use `customize-save-variable' instead of `customize-set-variable'.
+ (Bug#62106)
+
+2023-03-11 Randy Taylor <dev@rjt.dev>
+
+ Add missing rust-ts-mode highlight query for scoped_type_identifiers
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--font-lock-settings):
+ Add missing query.
+
+2023-03-11 kobarity <kobarity@gmail.com>
+
+ Make "case" keyword a dedenter in Python
+
+ * lisp/progmodes/python.el (python-rx): Add "case" to dedenter.
+ (python-info-dedenter-opening-block-positions): Add "case" to pairs.
+ * test/lisp/progmodes/python-tests.el (python-indent-dedenters-9):
+ New test.
+
+2023-03-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix decoding non-ASCII file names in zip archives on MS-Windows
+
+ * lisp/arc-mode.el (archive-zip-summarize): On MS-Windows,
+ override archive-file-name-coding-system for files compressed
+ on MS-Windows, and use the local console encoding instead.
+
+2023-03-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix copying binary files from zip archives
+
+ * lisp/arc-mode.el (archive-copy-file): Prevent any coding
+ conversions when writing output files. (Bug#62091)
+
+2023-03-10 Robert Pluim <rpluim@gmail.com>
+
+ Skip ruby-ts-syntax-propertize-symbol unless treesitter is available
+
+ *
+ test/lisp/progmodes/ruby-ts-mode-tests.el
(ruby-ts-syntax-propertize-symbol):
+ Add check for treesitter.
+
+2023-03-10 Randy Taylor <dev@rjt.dev>
+
+ Fix enums and unions appearing as structs in c-ts-base-mode's imenu
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode): Separate enums and
unions out
+ from structs.
+
+2023-03-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fine-tune s-p-f on symbols (bug#62086)
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--s-p-query):
+ Don't match ':' in symbol node text. Or '_', I suppose.
+ (ruby-ts--syntax-propertize): Make sure to only put the '_' syntax
+ on punctuation syntax characters, and not on the whole symbol (to
+ e.g. have symbols like :foo? include text recognized as word).
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el
+ (ruby-ts-syntax-propertize-symbol): New test.
+
+2023-03-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ python-info-dedenter-opening-block-positions: Fix to support "bare"
match
+
+ * lisp/progmodes/python.el
+ (python-info-dedenter-opening-block-positions): Make the check
+ stricter. Require that block starts only at indentation.
+
+ * test/lisp/progmodes/python-tests.el
+ (python-indent-after-bare-match): Another test (bug#62031).
+
+2023-03-09 João Távora <joaotavora@gmail.com>
+
+ Autoload Eglot helper funtion eglot--debbugs-or-github-bug-uri
+
+ This isn't a typical autoload: the progn block is plced in the
+ autoloads file, but the eglot.el file itself isn't loaded as a result
+ when the function inside the progn block is called.
+
+ * lisp/progmodes/eglot.el (eglot--debbugs-or-github-bug-uri):
+ autoload, but in progn.
+
+2023-03-09 João Távora <joaotavora@gmail.com>
+
+ Add chapter on advanced server configuration to Eglot manual
+
+ * doc/misc/eglot.texi (Top): Add section "Advanced server configuration"
+ (Setting Up LSP Servers): Rework.
+ (Advanced server configuration): New chapter.
+
+2023-03-09 Vincenzo Pupillo <v.pupillo@gmail.com> (tiny change)
+
+ java-ts-mode: detect if text_block is supported.
+
+ A recent commit in tree-sitter-java (issue #141) removed support for
+ the text_block node type from the grammar. To support the old released
+ version and the new one, a helper function was added on which the
+ string syntax highlighting now depends. (bug#61913)
+
+ * lisp/progmodes/java-ts-mode.el
+ (java-ts-mode--string-highlight-helper): New helper function that
+ return the right query string
+ (java-ts-mode--font-lock-settings): Use it
+
+2023-03-09 kobarity <kobarity@gmail.com>
+
+ Revert workaround introduced in Bug#56271
+
+ * lisp/progmodes/python.el (python-nav-end-of-statement)
+ (python-nav-end-of-block): Revert workaround introduced in Bug#56271
+ as the bug is fixedin Bug#58780.
+
+2023-03-09 kobarity <kobarity@gmail.com>
+
+ Fix searching for end of string in python-nav-end-of-statement
+
+ * lisp/progmodes/python.el (python-nav-end-of-statement): Add
+ searching for corresponding string-quote.
+ * test/lisp/progmodes/python-tests.el (python-nav-end-of-statement-3)
+ (python-nav-end-of-statement-4, python-info-current-defun-4): New
+ tests. (Bug#58780)
+
+2023-03-08 Po Lu <luangruo@yahoo.com>
+
+ Fix libwebp check for some webp installations
+
+ * configure.ac: Look for WebPGetInfo; if it is not there, look
+ for libwebpdecoder as well. (bug#61988)
+
+2023-03-08 Dmitry Gutov <dgutov@yandex.ru>
+
+ Avoid potential infloop
+
+ * lisp/progmodes/python.el
+ (python-info-dedenter-opening-block-positions):
+ Avoid potential infloop (bug#62031).
+
+2023-03-08 Dmitry Gutov <dgutov@yandex.ru>
+ Lele Gaifax <lele@metapensiero.it>
+
+ Don't misindent 'else:' after 'if re.match:' in Python
+
+ * lisp/progmodes/python.el
+ (python-info-dedenter-opening-block-positions): Check that the
+ supposed block start is not a method call (bug#62031).
+
+ * test/lisp/progmodes/python-tests.el (python-indent-after-re-match):
+ New test.
+
+2023-03-08 Andrea Corallo <akrl@sdf.org>
+
+ * Make sure `default-directory' exists before spawning processes
(bug#62004)
+
+ * lisp/emacs-lisp/comp.el (comp-final, comp-run-async-workers): Bind
+ `default-directory' to `invocation-directory'.
+
+2023-03-08 Ulrich Müller <ulm@gentoo.org>
+
+ Fix sed expression in install-etc make target
+
+ * Makefile.in (install-etc): Fix sed expression for emacsclient
+ desktop files. (Bug#62045)
+
+2023-03-08 Ulrich Müller <ulm@gentoo.org>
+
+ Avoid using bash in the emacsclient desktop file
+
+ * etc/emacsclient-mail.desktop (Exec): Use sh and sed instead
+ of bash, because the latter may not be available everywhere.
+
+2023-03-08 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of the 'line-height' text property
+
+ * doc/lispref/display.texi (Line Height): More accurate
+ documentation of the value t of 'line-height' text property.
+ (Bug#62048)
+
+2023-03-08 Gregory Heytings <gregory@heytings.org>
+
+ Add 'declare' specs to with- and without-restriction
+
+ * lisp/subr.el (with-restriction):
+ (without-restriction): Add 'declare' specs.
+
+2023-03-07 Yuan Fu <casouri@gmail.com>
+
+ Fix empty line indentation in c-ts-mode (bug#61997)
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--indent-styles): Handle the empty line case.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/treesit.el (treesit-simple-indent-presets): Support null as
+ a value for NODE-TYPE in the 'match' matcher.
+
+2023-03-07 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter indent preset prev-line (bug#61998)
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Fix return value.
+
+2023-03-07 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Revert 'forward-sentence-default-function' to return point (bug#62027)
+
+ * lisp/textmodes/paragraphs.el
+ (forward-sentence-default-function): Revert to return the
+ position of point.
+ (count-sentences): Adapt to this change.
+
+2023-03-07 Ulrich Müller <ulm@gentoo.org>
+
+ Fix Elisp code injection vulnerability in emacsclient-mail.desktop
+
+ A crafted mailto URI could contain unescaped double-quote
+ characters, allowing injection of Elisp code. Therefore, any
+ '\' and '"' characters are replaced by '\\' and '\"', using Bash
+ pattern substitution (which is not available in the POSIX shell).
+
+ We want to pass literal 'u=${1//\\/\\\\}; u=${u//\"/\\\"};' in the
+ bash -c command, but in the desktop entry '"', '$', and '\' must
+ be escaped as '\\"', '\\$', and '\\\\', respectively (backslashes
+ are expanded twice, see the Desktop Entry Specification).
+
+ Reported by Gabriel Corona <gabriel.corona@free.fr>.
+
+ * etc/emacsclient-mail.desktop (Exec): Escape backslash and
+ double-quote characters.
+
+2023-03-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix problem with debuginfod queries in "M-x gdb"
+
+ * lisp/progmodes/gdb-mi.el (gdb-debuginfod-enable-setting): New
+ defcustom.
+ (gdb-debuginfod-message): New function.
+ (gdb-init-1): Initialize gdb-debuginfod-enable. Ask the user
+ about debuginfod queries and display any error messages.
+ (Bug#61973)
+
+ * etc/NEWS: Announce the change.
+
+2023-03-06 João Távora <joaotavora@gmail.com>
+
+ Fix regression in Fido mode (bug#62015)
+
+ To understand the regression consider this recipe where the 'fo'
+ pattern is typed by the user in the last step.
+
+ emacs -Q
+ C-x b foo RET
+ C-x b afoo RET
+ C-x b *scratch* RET
+ M-x fido-mode RET
+ C-x b fo
+
+ This used to offer both 'foo' and 'afoo' as candidates but now only
+ offered 'foo'. This is because the pattern 'fo' matches 'foo', but
+ not 'afoo' with 'basic' completion style.
+
+ Fido mode, however, prioritizes 'flex' completion style, and that is
+ not happening here as it used to.
+
+ This was introduced in this commit
+
+ commit bf81df86e52fdc995bec8d9646f84d114cb896d1
+ Author: João Távora <joaotavora@gmail.com>
+ Date: Wed Dec 7 10:43:59 2022 +0000
+
+ Don't override completion-category-defaults in fido-mode
+
+ I took away the nil setting of 'completion-category-defaults; in Fido
+ mode's minibuffer. It seemed generally the correct thing to do, and
+ was done mainly because Eglot added its style preferences to that
+ variable instead of completion-category-overrides directly, which is a
+ nono. So, to be able use the Fido UI with Eglot successfully,
+ 'completion-category-defaults' should stay untouched. Or so I
+ thought.
+
+ However, I failed to notice that, for most categories, the default
+ value of 'completion-category-defaults' prioritizes the 'basic'
+ completion style.
+
+ For example, in the 'buffer' category, the default value has the
+ styles list '(basic substring)'. This means that if a pattern matches
+ accoring to the 'basic' style, 'substring' will not be tried. And
+ neither will 'completion-styles' which in Fido mode's case happens to
+ be 'flex'.
+
+ The solution in this commit is to craft a value for completion
+ category defaults that is just like the default one, but prioritizes
+ 'flex' completion for every category.
+
+ * lisp/icomplete.el (icomplete--fido-ccd): New helper.
+ (icomplete--fido-mode-setup): Use it.
+
+2023-03-06 Andrea Corallo <akrl@sdf.org>
+
+ * Fix `emacs-lisp-native-compile-and-load' for (bug#61917)
+
+ * lisp/progmodes/elisp-mode.el (emacs-lisp-native-compile-and-load):
+ Don't load if no compialtion happened.
+
+2023-03-06 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (comp-prettyformat-insn): Fix (bug#61917)
+
+2023-03-06 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Fix configuration of webp libraries"
+
+ This reverts commit de4277af009115ceba7fe920163c05c608ea9524.
+ It breaks WebP support at least on my system.
+ There's no reason to require libwebpdecoder library to be
+ installed, since we don't use the functions from it, at least
+ not in libwebp 1.2.1.
+
+2023-03-06 Po Lu <luangruo@yahoo.com>
+
+ Fix configuration of webp libraries
+
+ * configure.ac: Link with libwebpdecoder along with
+ libwebpdemux. (bug#61988)
+
+2023-03-05 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation
+
+ Mentioned in bug#61893.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--anchor-prev-sibling): Handle
+ "#elif" and "#else".
+ * test/lisp/progmodes/c-ts-mode-resources/indent-preproc.erts: Add an
+ "#elif" to the test.
+
+2023-03-05 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation
+
+ Mentioned in bug#61893, although not the subject of it.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--anchor-prev-sibling): Fix the child index for preproc_else
+ and preproc_elif case.
+ * test/lisp/progmodes/c-ts-mode-resources/indent-preproc.erts:
+ New test.
+
+2023-03-05 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation
+
+ Not the subject of it, but mentioned in bug#61893.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--anchor-prev-sibling): Skip
+ the sibling if it doesn't start on it's own line.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+2023-03-05 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1-40-g3d817c
+
+2023-03-05 Yuan Fu <casouri@gmail.com>
+
+ Add string-interpolation feature to bash-ts-mode
+
+ * lisp/progmodes/sh-script.el:
+ (bash-ts-mode): Add string-interpolation feature.
+ (sh-mode--treesit-settings): Add rule for string-interpolation feature.
+
+2023-03-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix tramp-sh-handle-insert-directory
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory): Remove also
+ //DIRED-OPTIONS// line when there is no //DIRED// line.
+
+2023-03-05 Andrea Corallo <akrl@sdf.org>
+
+ * Warn when certain primitives are redefined (bug#61880)
+
+ * lisp/emacs-lisp/comp.el (comp-warn-primitives): New constant.
+ (comp-subr-trampoline-install): Warn when a sensitive primitive
is
+ being redefined.
+
+2023-03-04 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode preproc directive indentation
+
+ Mentioned in bug#61893, although not the subject of that report. This
+ change fixes indentation for nested directives. For example, when the
+ directive involves elif and the like, the elif is nested in the if
+ directive, so simply using grand-parent and great-grand-parent for
+ anchor is insufficient, because the nesting can grow arbitrarily.
+
+ The test added also covers the last preproc fix.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--standalone-parent-skip-preproc): New function.
+ (c-ts-mode--indent-styles): New rules.
+ * test/lisp/progmodes/c-ts-mode-resources/indent-preproc.erts: New test.
+
+2023-03-04 João Távora <joaotavora@gmail.com>
+
+ More robustly unspoof HOME in Eglot tests (bug#61637)
+
+ A fair number of LSP servers allow user-local installations instead of
+ system wide installations. Emacs's technique of spoofing the HOME env
+ var to some non-existent or non-home directory during 'make check'
+ breaks these tests. That's because the executables are still found by
+ executable-find, but their invocation will rarely be successful as
+ HOME isn't what they expect it to be.
+
+ Eglot tests already had a technique for dealing with this,
+ "unspoffing" HOME just for the invocations of LSP server but it
+ stopped working a while back. So make it more robust.
+
+ Eventually, we'll want to decide wether these local servers should be
+ considered in 'make check' runs at all, or whether there is a way to
+ use them with a spoofed HOME.
+
+ * test/lisp/progmodes/eglot-tests.el (eglot--call-with-fixture):
+ More robustly unspoof HOME.
+
+2023-03-04 João Távora <joaotavora@gmail.com>
+
+ Turn on Eglot inlay hints by default
+
+ This is like any other server-provided feature, and may be turned off
+ client-side by setting eglot-ignored-server-capabilities like
+
+ (add-to-list 'eglot-ignored-server-capabilities :inlayHintProvider)
+
+ * lisp/progmodes/eglot.el (eglot--maybe-activate-editing-mode):
+ Activate eglot-inlay-hints-mode.
+ (eglot-inlay-hints-mode): Instead of warning about missing
+ :inlayHintProvider, turn off eglot-inlay-hints-mode.
+
+2023-03-04 Dmitry Gutov <dgutov@yandex.ru>
+
+ Update ts modes missed in 4c16fd3a512 to use column-0
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--indent-rules):
+ Change point-min anchor to column-0.
+
+2023-03-04 João Távora <joaotavora@gmail.com>
+
+ Robustify Eglot for "transient" projects
+
+ When Eglot needs to synthesize a "transient" project for
+ default-directory sometimes the value of that variable is set to an
+ unexpanded value, sometimes not. This can cause simple invocations
+ like.
+
+ Emacs -Q ~/path/to-some-python-file.py -f eglot
+
+ to fail, because eglot--current-server will be looking for a project
+ in the registry called
+
+ (transient . "~/path")
+
+ where in reality it is stored there as
+
+ (transient . "/home/someuser/path")
+
+ The fix is to always expand default-directory in eglot--current-project.
+
+ * lisp/progmodes/eglot.el (eglot--current-project): Use
+ expand-file-name.
+
+2023-03-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'normal-mode' in buffers that don't visit files
+
+ * lisp/files.el (normal-mode):
+ * lisp/subr.el (run-mode-hooks):
+ * doc/emacs/modes.texi (Choosing Modes): Mention the caveat with
+ 'normal-mode' in buffers not visiting files. (Bug#61925)
+ * lisp/files.el (hack-local-variables): Doc fix.
+
+2023-03-04 Yuan Fu <casouri@gmail.com>
+
+ Change tree-sitter indent anchor 'point-min' to 'column-0'
+
+ Point-min isn't necessarily at column 0, using line-beginning-position
+ is better. column-0 is also more intuitive.
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles):
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules):
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--indent-rules):
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-mode--indent-rules): Change point-min to column-0.
+ * lisp/treesit.el (treesit-simple-indent-presets): Change point-min to
+ column-0.
+
+2023-03-04 Yuan Fu <casouri@gmail.com>
+
+ Fix go-ts-mode multi-line string indentation (bug#61923)
+
+ * lisp/progmodes/go-ts-mode.el:
+ (go-ts-mode--indent-rules): Add indent rule for multi-line sting.
+
+2023-03-03 João Távora <joaotavora@gmail.com>
+
+ Remove Eglot activation check from find-file-hook
+
+ Adding eglot--maybe-activate-editing-mode to find-file-hook isn't
+ really necessary, since it is already in
+ 'after-change-major-mode-hook', and that also runs every time we find
+ a file.
+
+ This reduces the number of project.el logic that runs every time the
+ user visits a file.
+
+ * lisp/progmodes/eglot.el (find-file-hook): No need to add
+ eglot--maybe-activate-editing-mode here.
+
+2023-03-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/intervals.c (set_intervals_multibyte_1): Fix bug#61887
+
+ When `total_length` is 0 there should be no subtree at all, but
+ `delete_interval` only deletes one interval, so make sure we don't end
+ up with some stale child of `i`.
+
+2023-03-03 João Távora <joaotavora@gmail.com>
+
+ Revert inadvertent change to lisp/icomplete.el in previous commit
+
+ The change
+
+ commit 3a651773d29afb48ac4229cd19e532bd57a4ee2d
+ Author: João Távora <joaotavora@gmail.com>
+ Date: Fri Mar 3 13:13:35 2023 +0000
+
+ Eglot: pay better attention to hints' paddingLeft/Right
(bug#61924)
+
+ Inadvertently added a line to this file, which shouldn't (yet) bet
+ added.
+
+ * lisp/icomplete.el (icomplete--vertical-minibuffer-setup): Remove
+ truncate-lines.
+
+2023-03-03 Yuan Fu <casouri@gmail.com>
+
+ Revert previous change in go-ts-mode.el
+
+ Reverts 59365f928565f1be551b1697b9246b00cb87a9b7 and
+ 56cd810b9d1a4d537bee5a2fd954d6e0d346631a.
+
+ Reverting because the use of treesit-ready-p is very much intentional.
+
+ * lisp/progmodes/go-ts-mode.el (treesit-ready-p): Revert change.
+
+2023-03-03 F. Jason Park <jp@neverwas.me>
+
+ Release ERC 5.5
+
+ * doc/misc/erc.texi: Update ERCVER to 5.5.
+ * lisp/erc/erc.el: Increment main version header to 5.5. Update
+ Compat version in package-requires header to 29.1.3.4. Update
+ `customize-package-emacs-version-alist' entry by mapping ERC 5.5 to
+ Emacs 29.1.
+ (erc-version): Update value to 5.5.
+
+2023-03-03 Jim Porter <jporterbugs@gmail.com>
+
+ Don't create GUI frames in batch sessions
+
+ This resolves an issue with running test/lisp/server-tests.el when
+ 'DISPLAY' is set: the tests would start the Emacs server in a batch
+ session, and then request a new GUI frame. However, that caused the
+ tests to terminate with SIGIO, since a batch Emacs doesn't set a SIGIO
+ handler.
+
+ Ref:
<https://lists.gnu.org/archive/html/emacs-devel/2023-02/msg00879.html>
+
+ * lisp/frame.el (make-frame): Always create a terminal frame in batch
+ sessions.
+
+2023-03-03 Eli Zaretskii <eliz@gnu.org>
+
+ Minor copyedits of documentation of OClosures
+
+ * doc/lispref/functions.texi (OClosures): Improve wording,
+ indexing, and markup; add details.
+
+2023-03-03 João Távora <joaotavora@gmail.com>
+
+ Eglot: pay better attention to hints' paddingLeft/Right (bug#61924)
+
+ * lisp/progmodes/eglot.el (eglot--update-hints-1): Consider
+ :json-false, which is a non-nil value.
+
+2023-03-02 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation for statement after preproc (bug#61893)
+
+ Originally our c-ts-mode--anchor-prev-sibling only specially handled
+ labeled_statements, now we add special case for preproc in the similar
+ fasion: instead of using the preproc directive as anchor, use the last
+ statement in that preproc as the anchor. Thus effectively ignore the
+ preproc.
+
+ There should be an accompanying test, but there are some problem in
+ the elif preproc directive indent so it would pass, we'll add the test
+ when that is fixed.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--anchor-prev-sibling): Add special case for preproc
+ directives.
+
+2023-03-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix c/c++-ts-mode's mode lighter
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-set-modeline): Remove
+ trailing blank from comment-start when indicating the comment
+ style on the mode line.
+
+2023-03-02 João Távora <joaotavora@gmail.com>
+
+ Eglot: use shell-file-name in eglot--cmd (bug#61748)
+
+ * lisp/progmodes/eglot.el (eglot--cmd): Use shell-file-name.
+
+2023-03-02 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid signaling errors in url-basic-auth when password is nil
+
+ * lisp/url/url-auth.el (url-basic-auth): Handle nil PASS.
+ Suggested by Ellis Kenyo <me@elken.dev>. (Bug#61411)
+
+2023-03-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix wdired-tests on MS-Windows
+
+ * test/lisp/wdired-tests.el (wdired-test-bug32173-01)
+ (wdired-test-bug32173-02, wdired-test-unfinished-edit-01)
+ (wdired-test-bug39280): Run test-dir through file-truename, to
+ avoid failures due to MS-Windows "numeric tails" (mis)feature and
+ similar issues, which make file names fail to compare 'equal'.
+ (wdired-test-bug34915, wdired-test-bug61510): Skip if symlinks
+ fail.
+
+2023-03-02 Andrew De Angelis <bobodeangelis@gmail.com>
+
+ Improvements to xwidget on macOS (bug#60703)
+
+ * src/nsxwidget.m ()
+ ([XwWebView initWithFrame:configuration:xwidget:])
+ (nsxwidget_init): Fixed memory leaks: when sending an alloc
+ message to an object, send an autorelease message to any objects
+ we won't explictly release.
+ ([XwWebView webView:didFinishNavigation:]): Second string to
+ store in 'store_xwidget_event_string' is "load finished" rather
+ than empty string.
+ ([XwWebView webView:didStartProvisionalNavigation:])
+ ([XwWebView webView:didReceiveServerRedirectForProvisionalNavigation:])
+ ([XwWebView webView:didCommitNavigation:]): New functions.
+ (nsxwidget_webkit_estimated_load_progress): New function.
+ (nsxwidget_webkit_stop_loading): New function.
+ * src/xwidget.c (Fxwidget_webkit_estimated_load_progress): Call
+ 'nsxwidget_webkit_estimated_load_progress' if we're on MacOS.
+ (Fxwidget_webkit_stop_loading): Call 'nsxwidget_webkit_stop_loading'
+ if we're on MacOS.
+ (syms_of_xwidget): Define symbol for function.
+ 'xwidget_webkit_estimated_load_progress' if we're on MacOS.
+ * src/nsxwidget.h: Signature for functions
+ 'nsxwidget_webkit_estimated_load_progress' and
+ 'nsxwidget_webkit_stop_loading'.
+ * lisp/xwidget.el (xwidget-webkit-current-url): Message URL rather
+ than return value of 'kill-new' (which is always nil).
+
+2023-03-01 Yuan Fu <casouri@gmail.com>
+
+ * lisp/progmodes/go-ts-mode.el: Use treesit-language-available-p.
+
+ treesit-ready-p does more checks than language grammar availability.
+
+2023-03-01 Yuan Fu <casouri@gmail.com>
+
+ Don’t signal warning when loading go-ts-mode.el without grammar
+
+ * lisp/progmodes/go-ts-mode.el: Add a QUIET flag to the call of
+ treesit-ready-p, so that it doesn't signal a warning if
+ go-mod (tree-sitter grammar) is not available.
+
+2023-03-01 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode empty line indentation (bug#61893)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Make the
+ "rest sibling" matchers catch the case where NODE is nil, when
+ indenting an empty line.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+2023-03-01 Yuan Fu <casouri@gmail.com>
+
+ Improve tree-sitter's prev-sibling indent anchor
+
+ Now it handles the case where NODE is nil when indenting an empty
+ line: it tries to get the previous sibling nonetheless.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--anchor-prev-sibling):
+ * lisp/treesit.el (treesit-simple-indent-presets): Add an or form to
+ handle more cases.
+
+2023-03-01 João Távora <joaotavora@gmail.com>
+
+ * lisp/icomplete.el (fido-mode): Enable in-buffer completion
(bug#45763).
+
+ Backport:
+ (cherry picked from commit b5c13032538377b0037c745715613693a1580f81)
+
+2023-03-01 Juri Linkov <juri@linkov.net>
+
+ * lisp/icomplete.el: Fix in-buffer completion.
+
+ (icomplete-force-complete-and-exit, icomplete-force-complete): Use
+ 'icomplete--field-beg/end' when not in the minibuffer to not erase
+ the current buffer. Also disable 'completion-in-region-mode' instead
+ of calling 'exit-minibuffer' (bug#45764, bug#51575, bug#61479).
+
+ Backport:
+ (cherry picked from commit a7a984c0ebebb891e2052d8416544f0bd7002007)
+
+2023-03-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/profiler.c (malloc_probe): Make it safe for GC (bug#60237)
+
+2023-03-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix bug#61847
+
+ The `noerror` arg of `require` doesn't do what Stefan naively thought
+ when he wrote this code, so use `condition-case` instead.
+ Also check for `cl-defmethod` since `cl-prin1` can't be loaded before
+ that anyway.
+
+2023-03-01 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Don't disable eldoc when doing edebug"
+
+ This reverts commit 6fd1fb8a6837acde8e1c9ab26618ec0f36121c72.
+ It turns out ElDoc does show messages inside Edebug, if you
+ are (un)lucky enough to have point where ElDoc has something
+ to show. Bug#56459 needs to be fixed in some more complex
+ way.
+
+2023-03-01 João Távora <joaotavora@gmail.com>
+
+ Eglot: work around Tramp instability bug#61350
+
+ Unconditionally disable ControlMaster for the Eglot's Tramp
+ connection.
+
+ * lisp/progmodes/eglot.el (tramp-ssh-controlmaster-options)
+ (use-tramp-ssh-controlmaster-options): Forward declare
+ (eglot--connect): Set variables to unconditionally disable
ControlMaster.
+
+2023-03-01 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-indent-region
+
+ Fix it for the case where there is no suitable rule for the line.
+ Right now treesit-indent-region would indent the line to column 0.
+ After the change the indentation is not altered.
+
+ * lisp/treesit.el (treesit-indent-region): Handle the case where
+ ANCHOR or OFFSET is nil specially.
+
+2023-03-01 Po Lu <luangruo@yahoo.com>
+
+ Replace C++ comments with C style equivalents
+
+ * src/alloc.c (Fmake_byte_code, purecopy):
+ * src/bytecode.c (exec_byte_code):
+ * src/xdisp.c (face_at_pos): Do not use C++-style comments!
+
+2023-02-28 João Távora <joaotavora@gmail.com>
+
+ Eglot: fix M-x eglot-show-workspace-configuration (bug#61866)
+
+ Now consult .dir-locals.el every time the workspace configuration is
+ needed:
+
+ - workspace/configuration server request
+ - workspace/didChangeConfiguration signal
+ - M-x eglot-show-workspace-configuration
+
+ The major-mode/hack-dir-local-variables-non-file-buffer trick is used.
+ When there is more than one, the server connection's "main" major mode
+ is used to find the relevant .dir-locals.el section.
+
+ * lisp/progmodes/eglot.el (eglot--lookup-mode): Fix docstring.
+ (eglot--connect): Simplify.
+ (eglot-show-workspace-configuration): Fix.
+ (eglot--workspace-configuration): Remove.
+ (eglot--workspace-configuration-plist): Rework.
+ (eglot-handle-request): Simplify.
+
+2023-02-28 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-mode: Fix method call indentation in rhs of multiple assignment
+
+ * lisp/progmodes/ruby-mode.el (ruby-smie-rules): Special-case
+ assignment that follows a comma-separated list (bug#61871).
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb: Add case.
+
+2023-02-28 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp.el (tramp-remote-path): Improve docstring.
+
+2023-02-28 Felix <felix.dick@web.de> (tiny change)
+
+ Minor change in 'dired--find-possibly-alternative-file'
+
+ * lisp/dired.el (dired--find-possibly-alternative-file): Don't
+ kill the buffer if the directory is shown in other windows.
+
+2023-02-28 Felix <felix.dick@web.de> (tiny change)
+
+ Implement prefix arg for 'c-ts-mode-toggle-comment-style'
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-toggle-comment-style):
+ Actually implement the optional numeric arg mentioned in the
+ docstring.
+
+2023-02-28 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Defaults to zero for image-dired--number-of-thumbnails
+
+ * lisp/image/image-dired.el (image-dired--number-of-thumbnails):
+ Defaults zero to avoid wrong type argument error. (Bug#61734)
+
+2023-02-27 Dmitry Gutov <dgutov@yandex.ru>
+
+ Rename the newly added -ref- faces to -use-
+
+ * lisp/font-lock.el (font-lock-variable-use-face)
+ (font-lock-property-use-face): Rename from font-lock-variable-ref-face
+ and font-lock-property-ref-face. Update all references (bug#61655).
+
+2023-02-27 João Távora <joaotavora@gmail.com>
+
+ Eglot: support multiple labels in same inlay hint
+
+ Mainly the rust-analyzer LSP server uses this. There are still more
+ things we could support, like tooltips and stuff.
+
+ * lisp/progmodes/eglot.el (lsp-interface-alist): Add
+ InlayHintLabelPart.
+ (eglot--update-hints-1): Support multiple labels for same hint.
+
+2023-02-27 João Távora <joaotavora@gmail.com>
+
+ Eglot: don't paint hints outside requested region (bug#61812)
+
+ * lisp/progmodes/eglot.el (eglot--lambda): Add cl-block.
+ (eglot--update-hints-1): Return early if hint is outside the
+ requested inlay hint range.
+
+2023-02-27 João Távora <joaotavora@gmail.com>
+
+ Eglot: protect against unintended field text motion (bug#61726)
+
+ Suggested-by: Augusto Stoffel <arstoffel@gmail.com>
+
+ * lisp/progmodes/eglot.el (eglot--bol): New helper.
+ (eglot-utf-8-linepos, eglot-utf-16-linepos)
+ (eglot-utf-32-linepos, eglot-move-to-utf-8-linepos)
+ (eglot-move-to-utf-16-linepos, eglot-move-to-utf-32-linepos)
+ (eglot-handle-notification, eglot--xref-make-match)
+ (eglot-completion-at-point): Use it.
+
+2023-02-27 Eli Zaretskii <eliz@gnu.org>
+
+ Fix description of 'desktop-save-mode'
+
+ * doc/emacs/misc.texi (Saving Emacs Sessions): Adjust to changes
+ in 'desktop-path'. Reported by Petteri Hintsanen <petterih@iki.fi>.
+
+2023-02-27 Yuan Fu <casouri@gmail.com>
+
+ Adjust tree-sitter defun navigation (bug#61617)
+
+ Before this change, when you use a tree-sitter navigation function to
+ move to the next beginning of a thing, it jumps over the immediate
+ next thing and lands you at the beginning of the next-next thing.
+
+ Eg, when point is at the "|", and we evaluate
+ (treesit--navigate-thing pos 1 'beg), we go from
+
+ | (thing) (thing)
+
+ to
+
+ (thing) |(thing)
+
+ But some might expect point to go to
+
+ |(thing) (thing)
+
+ instead, which makes sense. Also, that's how Emacs expect defun
+ navigation functions to work. The discrepancy in expectation causes
+ bug#61617.
+
+ In this change I made tree-sitter navigation functions to work as what
+ Emacs expects. And what I described for moving to the next beginning
+ of thing is similarly applicable to moving to the end of previous end
+ of thing.
+
+ * lisp/treesit.el (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Handle the case where defun-skipper moves
+ point back to where we started, by adding a retry.
+
+ (treesit--navigate-thing): Add a single condition checking for
+ progress to the condition form responsible for checking whether to
+ skip the next defun. Namely (eq pos (funcall advance next)))).
+
+ * test/src/treesit-tests.el:
+ (treesit--ert-defun-navigation-nested-master)
+ (treesit--ert-defun-navigation-top-level-master): Change tests to
+ reflect the new expectation.
+
+2023-02-27 Yuan Fu <casouri@gmail.com>
+
+ Simplify c-ts-mode--top-level-label-matcher
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--top-level-label-matcher): Make more assumptions and remove
+ the loop, so it's faster in large files.
+
+2023-02-27 Yuan Fu <casouri@gmail.com>
+
+ New tree-sitter indent anchor standalone-parent used by c-ts-mode
+
+ When writing c-ts-mode Theo used parent-bol which works well except
+ one case:
+
+ 1 for (int i=0;
+ 2 i < 5;
+ 3 i++) {
+ 4 func(i);
+ 5 }
+
+ In this case, when indenting "func(i)", parent-bol returns the start
+ of "i++" on line 3, instead of the "correct" anchor, the start of
+ "for" on line 1. parent-bol would have worked if the "for (...) {"
+ part is in one line.
+
+ To support this case I tried numerous things and added a bunch of
+ stuff, culminating in c-ts-common-statement-offset. It's complicated,
+ requires extra setup, and slow.
+
+ Not anymore! I think the new anchor standalone-parent really captures
+ the logic behind how people expect indentation to work. It's simple
+ and fast, and requires no setup.
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--standalone-grandparent): New anchor.
+ (c-ts-mode--indent-styles): Replace c-ts-common-statement-offset with
+ standalone-parent.
+ (c-ts-base-mode): Add comment.
+
+ * lisp/treesit.el:
+ (treesit-simple-indent-presets): New anchor standalone-parent.
+
+2023-02-26 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-smie-rules: Fix misindentation of a method call after assignment
+
+ * lisp/progmodes/ruby-mode.el (ruby-smie-rules): Fix indentation of a
+ method call after assignment with ruby-after-operator-indent=nil
+ (bug#61822).
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-after-operator-indent.rb:
+ Add corresponding example.
+
+2023-02-26 Eli Zaretskii <eliz@gnu.org>
+
+ * lib-src/etags.c (process_file_name): Free malloc'ed vars (bug#61819).
+
+2023-02-26 João Távora <joaotavora@gmail.com>
+
+ Eglot: rename and redocument encoding-related functions (bug#61726)
+
+ * lisp/progmodes/eglot.el (eglot-current-column): Obsolete.
+ (eglot-lsp-abiding-column): Obsolete.
+ (eglot-current-column-function): Obsolete.
+ (eglot-current-linepos-function): Rename from
eglot-current-column-function.
+ (eglot-utf-8-linepos): Rename from eglot-bytewise-column.
+ (eglot-utf-16-linepos): Rename from eglot-lsp-abiding-column.
+ (eglot-utf-32-linepos): Rename from eglot-current-column.
+ (eglot-move-to-current-column): Obsolete.
+ (eglot-move-to-lsp-abiding-column): Obsolete.
+ (eglot-move-to-column-function): Obsolete.
+ (eglot-move-to-linepos-function): Rename from
eglot-move-to-column-function.
+ (eglot-move-to-utf-8-linepos): Rename from
eglot-move-to-bytewise-column.
+ (eglot-move-to-utf-16-linepos): Rename from
eglot-move-to-lsp-abiding-column.
+ (eglot-move-to-utf-32-linepos): Rename from
eglot-move-to-current-column.
+ (eglot--managed-mode): Adjust.
+ (eglot-client-capabilities): Trim whitespace.
+
+ * test/lisp/progmodes/eglot-tests.el (eglot-test-lsp-abiding-column)
+ (eglot-test-lsp-abiding-column-1): Use new function/variable names.
+
+2023-02-26 Augusto Stoffel <arstoffel@gmail.com>
+
+ Eglot: support positionEncoding LSP capability (bug#61726)
+
+ * lisp/progmodes/eglot.el(eglot-client-capabilities): Announce the
+ new capability.
+ (eglot-bytewise-column, eglot-move-to-bytewise-column): New functions.
+ (eglot--managed-mode): Set 'eglot-current-column-function' and
+ 'eglot-move-to-bytewise-column' appropriately.
+
+2023-02-26 Eli Zaretskii <eliz@gnu.org>
+ Augusto Stoffel <arstoffel@gmail.com>
+
+ Eglot: use faster strategy for moving to LSP positions (bug#61726)
+
+ Turns out we don't need encode-coding-region after all.
+
+ * lisp/progmodes/eglot.el (eglot-move-to-lsp-abiding-column): Rewrite.
+
+2023-02-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix mule-tests in UTF-8 locales
+
+ * test/lisp/international/mule-tests.el
+ (sgml-html-meta-no-post-less-than-10lines): Fix test condition.
+
+2023-02-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'vertical-motion' when display strings are around
+
+ * src/indent.c (Fvertical_motion): Correct bidi-related condition
+ for character position, when we didn't move vertically. (Bug#61636)
+
+2023-02-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ python-ts-mode: Fix single-quote string fontification
+
+ * lisp/progmodes/python.el (python--treesit-fontify-string):
+ Look for ', not just ", as opening delimiter (bug#61796).
+
+2023-02-25 Eli Zaretskii <eliz@gnu.org>
+
+ Fix infloop in bidi.c
+
+ * src/bidi.c (bidi_set_paragraph_end): Reset the isolate_level to
+ zero. Whenever stack_idx is reset to zero, the isolate_level must
+ also be reset, since there cannot be any isolate status outside of
+ embeddings. Failure to reset isolate_level will cause us infloop
+ when we see a PDI. Reported by Matt Beshara <m@mfa.pw>.
+
+2023-02-25 Daniel Martín <mardani29@yahoo.es>
+
+ Check the anchor along with the offset in treesit-indent-region
+
+ * lisp/treesit.el (treesit-indent-region): To compute a valid column,
+ having a non-nil offset is not enough, we need a non-nil anchor as
+ well.
+
+2023-02-24 Yuan Fu <casouri@gmail.com>
+
+ Align to prev sibling for c-ts-mode indentation
+
+ As requested by a discussion on emacs-devel.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--anchor-prev-sibling): New function.
+ (c-ts-mode--indent-styles): Indent first child as before, indent the
+ rest to their previous sibling. Remove bracketless statement rules
+ that I forgot to remove previously.
+
+2023-02-24 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-common-statement-offset and c-ts-common--node-is
+
+ * lisp/progmodes/c-ts-common.el:
+ (c-ts-common--node-is): Guard against case where the node has no field
+ name.
+ (c-ts-common-statement-offset): Do indent a level if the "if" in the
+ "else if" is on an independent line.
+
+2023-02-24 Dmitry Gutov <dgutov@yandex.ru>
+
+ typescript-ts-mode: Highlight non-shorthand destructuring bindings
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Highlight non-shorthand
+ variable bindings in object destructuring.
+
+2023-02-24 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add more/finer faces for tree-sitter
+
+ * doc/lispref/modes.texi (Faces for Font Lock):
+ Update the list of faces (bug#61655).
+
+ * etc/NEWS: Update the list of new faces.
+
+ * lisp/cus-theme.el (custom-theme--listed-faces): Update.
+
+ * lisp/font-lock.el (font-lock-function-call-face)
+ (font-lock-variable-ref-face, font-lock-property-ref-face):
+ New faces.
+ (font-lock-property-name-face):
+ Rename from 'font-lock-property-face'.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings):
+ Use new faces. More 'enumerator' query to 'definition' feature.
+ (c-ts-mode--fontify-declarator, c-ts-mode--fontify-variable):
+ Use new faces.
+
+ * lisp/progmodes/cmake-ts-mode.el
+ (cmake-ts-mode--font-lock-settings): Use new faces.
+
+ * lisp/progmodes/csharp-mode.el
+ (csharp-ts-mode--font-lock-settings): Use new faces.
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--font-lock-settings):
+ Use new faces.
+
+ * lisp/progmodes/java-ts-mode.el
+ (java-ts-mode--font-lock-settings): Use new faces.
+
+ * lisp/progmodes/js.el (js--treesit-fontify-assignment-lhs)
+ (js--treesit-font-lock-settings): Use new faces. Highlight
+ variable definitions inside array and object destructuring
+ patterns.
+
+ * lisp/progmodes/python.el (python--treesit-variable-p):
+ Exclude identifiers in parameters.
+ (python--treesit-settings): Use new faces. Highlight function
+ parameters. Move 'keyword' up to still highlight 'self' as
+ keyword.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Use new faces.
+
+ * lisp/progmodes/rust-ts-mode.el
+ (rust-ts-mode--font-lock-settings): Use new faces.
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Use new faces.
+
+ * lisp/textmodes/css-mode.el (css--treesit-settings):
+ Use font-lock-property-ref-face.
+
+ * lisp/textmodes/toml-ts-mode.el
+ (toml-ts-mode--font-lock-settings):
+ Use font-lock-property-ref-face.
+
+ * lisp/textmodes/yaml-ts-mode.el
+ (yaml-ts-mode--font-lock-settings): Same.
+
+2023-02-24 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid crashes in batch mode due to lack of frame face cache
+
+ * src/xfaces.c (Finternal_merge_in_global_face): Handle frames
+ with no face cache.
+
+2023-02-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Add Tramp version integrated in Emacs 28.3
+
+ * lisp/net/trampver.el (customize-package-emacs-version-alist):
+ Add Tramp version integrated in Emacs 28.3.
+
+2023-02-24 Philip Kaludercic <philipk@posteo.net>
+
+ Avoid reusing :lisp-dir twice in 'package-vc--main-file'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--main-file): Just use
+ :lisp-dir from 'package-desc-extras', not 'pkg-spec'.
+
+ This avoid appending the contents of :lisp-dir twice, in case it is
+ specified both in pkg-spec and pkg-desc.
+
+2023-02-24 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure right package-desc-type before installing package
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Move copying
+ code from 'package-vc-install'.
+ (package-vc-install): Remove copying. (Bug#61669)
+
+2023-02-24 Stephen Berman <stephen.berman@gmx.net>
+
+ Restore invisibility of symlink target on exiting wdired-mode
+
+ * lisp/wdired.el (wdired-change-to-dired-mode): Invoke
+ dired-hide-details-update-invisibility-spec (bug#61510).
+
+ * test/lisp/wdired-tests.el (wdired-test-bug61510): New test.
+
+2023-02-24 João Távora <joaotavora@gmail.com>
+
+ Eglot: fix jit-lock inlay hint bugs
+
+ One of the bugs was straightforward. The timer function of
+ eglot--update-hints must set the correct buffer.
+
+ The other is much more odd. When using Eglot on Emacs's own
+ src/coding.c, the jit-lock code starts calling its jit-functions over
+ and over again with the same sequence of arguments, like so:
+
+ ======================================================================
+ 1 -> (eglot--update-hints 63551 65051)
+ 1 <- eglot--update-hints: [nil 25592 52026 4
+ ======================================================================
+ 1 -> (eglot--update-hints 65051 66551)
+ 1 <- eglot--update-hints: [nil 25592 52026 4
+ ======================================================================
+ 1 -> (eglot--update-hints-1 63551 66551)
+ 1 <- eglot--update-hints-1: nil
+ ======================================================================
+ 1 -> (eglot--update-hints 63551 65051)
+ 1 <- eglot--update-hints: [nil 25592 52026 4
+ ======================================================================
+ 1 -> (eglot--update-hints 65051 66551)
+ 1 <- eglot--update-hints: [nil 25592 52026 5
+ ======================================================================
+ 1 -> (eglot--update-hints-1 63551 66551)
+ 1 <- eglot--update-hints-1: nil
+
+ This continues forever at a very fast rate and saturates the LSP
+ channel.
+
+ At first I thought that it was because eglot--update-hints-1 is
+ actually causing the buffer to be modified with overlays sometime in
+ the future, but it is not so! It seems that merely calling
+
+ (goto-char (eglot--lsp-position-to-point position))
+
+ (from the LSP request handler in eglot--update-hints-1) will cause
+ this bug.
+
+ * lisp/progmodes/eglot.el (eglot--update-hints): Fix bugs.
+
+2023-02-24 João Távora <joaotavora@gmail.com>
+
+ Eglot: fix inlay hint with label collection instead of string
+
+ Reported by Chinmay Dalal <dalal.chinmay.0101@gmail.com>
+
+ * lisp/progmodes/eglot.el (eglot--update-hints-1): Fix bug when
+ inlay hint contains collection of labels.
+
+2023-02-24 Robert Pluim <rpluim@gmail.com>
+
+ Fix insertion of keyboard macro containing named keys
+
+ * lisp/kmacro.el: Autoload `macro--string-to-vector'.
+ (kmacro-ring-head): Convert `last-kbd-macro' to a vector if it's a
+ string, since `kmacro' uses `key-parse' on it.
+ (kmacro-lambda-form): Remove require for 'macros
+ * test/lisp/kmacro-tests.el
+ (kmacro-tests-name-last-macro-key-parse-syntax):
+ Test that insertion of macros that contain strings that look
+ like named keys works correctly.
+
+ (Bug#61700)
+
+2023-02-23 João Távora <joaotavora@gmail.com>
+
+ Eglot: simplify inlay hints implementation with jit-lock
+
+ This implementation is much simpler than the one based on
+ windows-scroll-functions. It's also supposedly safer, as long as
+ jit-lock guarantees refontification of affected regions.
+
+ It's not _trivially_ simple though, as simply adding
+ 'eglot--update-hints-1' to jit-lock-functions, while possible, is
+ going to request inlay hints from the LSP server for many small
+ regions of the buffer, depending on what jit-lock thinks is best. So
+ we keep coalescing these into a larger region until the time is
+ suitable for a more bandwidth-efficient request.
+
+ To do this, we use a jit-lock implementation detail,
+ jit-lock-context-unfontify-pos, which is a proxy for knowing that the
+ jit-lock-context-timer has run. Not sure how brittle it is, but it
+ seems to work reasonably.
+
+ We also get rid of the previous "get hints for entire buffer"
+ implementation.
+
+ * doc/misc/eglot.texi (Eglot Variables): Remove mention
+ to deleted eglot-lazy-inlay-hints.
+
+ * lisp/progmodes/eglot.el (eglot-lazy-inlay-hints)
+ (eglot--inlay-hints-after-scroll)
+ (eglot--inlay-hints-fully)
+ (eglot--inlay-hints-lazily): Remove.
+ (eglot--update-hints): Add function.
+ (eglot-inlay-hints-mode): Simplify.
+
+2023-02-23 João Távora <joaotavora@gmail.com>
+
+ Eglot: update inlay hints on window configuration changes
+
+ * lisp/progmodes/eglot.el
+ (eglot--inlay-hints-after-window-config-change): New helper.
+ (eglot-inlay-hints-mode): Use it.
+
+2023-02-23 João Távora <joaotavora@gmail.com>
+
+ Eglot: display completion label when safe
+
+ Originally reported in
+ https://github.com/joaotavora/eglot/discussions/1141 by "Mintsoup".
+
+ Eglot doesn't always show the LSP :label property of a CompletionItem
+ in the completion candidates. That is because label is sometimes not
+ what should be inserted in the buffer in the end, the :insertText
+ property supercedes it.
+
+ But the label is usually more suitable for display nevertheless and if
+ the LSP CompletionItem contains either a snippet or a textEdit, it's
+ safe to display the label, since :exit-function will guarantee that a
+ suitable buffer insertion is performed.
+
+ This change reflects that awareness that when a textEdit is available,
+ it's acceptable to show the label.
+
+ * lisp/progmodes/eglot.el (eglot-completion-at-point): Adjust.
+
+2023-02-23 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of VC commands, including in Dired
+
+ * doc/emacs/dired.texi (Operating on Files):
+ * doc/emacs/maintaining.texi (VC Change Log, VC Directory Mode)
+ (Version Control, Basic VC Editing): Document VC command
+ invocation from Dired buffers. Improve documentation of vc-log
+ commands.
+
+ * lisp/dired-aux.el (dired-vc-next-action):
+ * lisp/vc/vc.el (vc-print-log, vc-log-search, vc-log-mergebase)
+ (vc-log-view-type, vc-print-root-log, vc-next-action): Doc fixes.
+
+2023-02-23 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/maintaining.texi: More mentions of marked files in Dired.
+
+ (Basic VC Editing, Old Revisions, VC Change Log): Add more mentions of
+ ability to include the marked files to the VC fileset in Dired
(bug#61712).
+
+2023-02-22 João Távora <joaotavora@gmail.com>
+
+ Eglot: implement inlay hints (bug#61412, bug#61066)
+
+ Inlay hints are small text annotations to specific parts of the whole
+ buffer, not unlike diagnostics, but designed to help readability
+ instead of indicating problems. For example, a C++ LSP server can
+ serve hints about positional parameter names in function calls and a
+ variable's automatically deduced type. Emacs can display these hints
+ in many little 0-length overlays with an 'before-string property, thus
+ helping the user remember those types and parameter names.
+
+ Since inlay hints are potentially a large amount of data to request
+ from the LSP server, the implementation strives to be as parsimonious
+ as possible with these requests.
+
+ So, by default, inlay hints are only requested for the visible
+ portions of the buffer across windows showing this buffer. This is
+ done by leveraging the 'window-scroll-functions' variable, making for
+ a reasonably complex implementation involving per-window timers. When
+ scrolling a window, it may take a short amount of time for inlay hints
+ to "pop in". The new user variable 'eglot-lazy-inlay-hints' can be
+ used to exert some control over this.
+
+ Specifically, if the variable's value is set to 'nil', then inlay
+ hints are greedily fetched for the whole buffer every time a change
+ occurs. This is a much simpler mode of operation which may avoid
+ problems, but is also likely much slower in large buffers.
+
+ Also, because the inlay feature is probably visually suprising to
+ some, it is turned OFF by default, which is not the usual practice of
+ Eglot (at least not when the necessary infrastructure is present).
+ This decision may be changed soon. Here's a good one-liner for
+ enabling it by default in every Eglot-managed buffer:
+
+ (add-hook 'eglot-managed-mode-hook #'eglot-inlay-hints-mode)
+
+ I haven't tested inlay hints extensively across many LSP servers, so I
+ would appreciate any testing, both for functional edge cases and
+ regarding performance. There are possibly more optimization
+ oportunities in the "lazy" mode of operation, like more aggressively
+ deleting buffer overlays that are not in visible parts of the buffer.
+
+ Though I ended up writing this one from scratch, I want to thank
+ Dimitry Bolopopsky <dimitri@belopopsky.com> and Chinmay Dala
+ <dalal.chinmay.0101@gmail.com> for suggestions and early patches.
+
+ * lisp/progmodes/eglot.el (eglot--lsp-interface-alist): Define
+ InlayHint.
+ (eglot-client-capabilities): Announce 'inlayHint' capability.
+ (eglot-ignored-server-capabilities): Add :inlayHintProvider.
+ (eglot--document-changed-hook): New helper hook.
+ (eglot--after-change): Use it.
+ (eglot-inlay-hint-face, eglot-type-hint-face)
+ (eglot-parameter-hint-face): New faces.
+ (eglot--update-hints-1, eglot--inlay-hints-after-scroll)
+ (eglot--inlay-hints-fully, eglot--inlay-hints-lazily): New helpers.
+ (eglot-lazy-inlay-hints): New user variable.
+ (eglot-inlay-hints-mode): New minor mode.
+ (eglot--maybe-activate-editing-mode): Try to activate
+ eglot-inlay-hints-mode.
+ (eglot--before-change): Remove overlays immediately in the
+ area being changed.
+ (eglot--managed-mode-off): Remove overlays.
+
+ * doc/misc/eglot.texi (Eglot Features): Mention inlay hints.
+ (Eglot Variables): Mention eglot-lazy-inlay-hints.
+
+2023-02-22 João Távora <joaotavora@gmail.com>
+
+ Eglot: run eglot-managed-mode-hook after LSP didOpen
+
+ This allows using the hook for interacting with the LSP server using
+ the current buffer as the subject of that interaction ("document" in
+ LSP parlance).
+
+ * lisp/progmodes/eglot.el (eglot--maybe-activate-editing-mode):
+ Run eglot-managed-mode-hook here.
+ (eglot--managed-mode): Not here.
+
+2023-02-22 João Távora <joaotavora@gmail.com>
+
+ Eglot: restore eldoc-documentation-functions on shutdown
+
+ * lisp/progmodes/eglot.el (eglot--managed-mode): Restore
+ eldoc-documentation-functions when shutting down eglot.
+
+2023-02-22 João Távora <joaotavora@gmail.com>
+
+ Eglot: simplify capability-checking code
+
+ * lisp/progmodes/eglot.el (eglot--server-capable-or-lose): New helper.
+ (eglot--signal-textDocument/willSave)
+ (eglot--signal-textDocument/didSave): Tweak docstring.
+ (eglot--workspace-symbols, xref-backend-identifier-at-point)
+ (eglot-format, eglot-completion-at-point, eglot-rename)
+ (eglot-code-actions): Use new eglot--server-capable-or-lose.
+
+2023-02-22 João Távora <joaotavora@gmail.com>
+
+ Eglot: go back to setting eldoc-documentation-strategy again
+
+ This commits reverts part of
+
+ commit e83c78b8c7784254c2c6f043530ab325c2fa7f16
+ Author: João Távora <joaotavora@gmail.com>
+ Date: Mon Feb 20 22:43:50 2023 +0000
+
+ Eglot: respect user's Eldoc configuration by default
+
+ In that commit, I did what many longstanding issues and users were
+ suggesting and removed Eglot's override of two Eldoc user
+ configuration varibles.
+
+ I verified that Eglot's behaviour would stay mostly unaltered but my
+ tests were very incomplete. In short there is no way that Eglot can
+ work acceptably with the default setting of
+ 'eldoc-documentation-strategy', which is
+ 'eldoc-documentation-default'. So it must be changed, either globally
+ or locally in Eglot's minor mode.
+
+ This is true for any situation where both synchronous and asynchronous
+ documentation sources are present. In Eglot's case there are two
+ asynchronous sources which have more importance than the synchronous
+ source. So any other strategy except the
+ 'eldoc-documentation-default' makes sense.
+
+ * lisp/progmodes/eglot.el (eglot--managed-mode): Set
+ eldoc-documentation-strategy to eldoc-documentation-compose.
+
+2023-02-22 F. Jason Park <jp@neverwas.me>
+
+ Yield to erc-move-to-prompt before unhiding prompt
+
+ * lisp/erc/erc-backend.el (erc--hide-prompt): Change hook depth from 0
+ to 91 to allow the `move-to-prompt' module to do its thing. This
+ feature was added by bug#54826 and first appeared in Emacs 29.
+ * lisp/erc/erc-common.el (erc-server-user): Remove erroneous comment.
+ The `buffers' field is a list of buffers.
+ * test/lisp/erc/erc-tests.el (erc-hide-prompt): Use `erc--target'
+ instead of `erc-default-recipients' because this is new code.
+
+2023-02-22 Augusto Stoffel <arstoffel@gmail.com>
+
+ * lisp/progmodes/python.el (python--import-sources): Fix regexp
(bug#61648)
+
+2023-02-22 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Do not error out on non image file (bug#61639)
+
+ * lisp/image/image-dired.el
+ (image-dired-display-thumbs): Do not insert non image file and do not
+ display image-dired buffer if it is empty.
+
+2023-02-22 Eli Zaretskii <eliz@gnu.org>
+
+ Explain effect of variable-pitch fonts on fill-column
+
+ * doc/emacs/text.texi (Fill Commands):
+ * doc/emacs/display.texi (Displaying Boundaries):
+ * lisp/display-fill-column-indicator.el
+ (display-fill-column-indicator-mode): Document caveats of using
+ variable-pitch fonts with 'fill-column' and its indicator.
+ (Bug#61677)
+
+2023-02-22 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid division by zero in get_narrowed_* functions
+
+ * src/xdisp.c (get_narrowed_width, get_narrowed_len): Return at
+ least 1 as the value. (Bug#61704)
+
+2023-02-21 Martin Rudalics <rudalics@gmx.at>
+
+ * etc/NEWS: Mention new buffer display action alist entries
+
+2023-02-21 Eli Zaretskii <eliz@gnu.org>
+
+ Fix build --without-xdbe
+
+ * src/xterm.c (x_end_cr_clip, handle_one_xevent): Condition
+ double-buffering code on HAVE_XDBE. (Bug#61667)
+
+2023-02-21 Robert Pluim <rpluim@gmail.com>
+
+ Improve dnd-direct-save-remote-files docstring
+
+ * lisp/dnd.el (dnd-direct-save-remote-files): Reword.
+
+2023-02-21 Robert Pluim <rpluim@gmail.com>
+
+ Add 'process-status' to process shortdoc
+
+ * lisp/emacs-lisp/shortdoc.el (process): Add 'process-status'.
+
+2023-02-21 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Improve
5d0b45cd67b
+
+2023-02-21 Robert Pluim <rpluim@gmail.com>
+
+ Improve text about deleting windows
+
+ * doc/emacs/windows.texi (Change Window): Improve grammar around
+ 'delete-window-choose-selected'.
+
+2023-02-21 Robert Pluim <rpluim@gmail.com>
+
+ Make 'emacs-news-cycle-tag' work at all levels
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-cycle-tag): Search for
+ a heading starting with 2 or more '*' rather than exactly 3.
+ * test/lisp/textmodes/emacs-news-mode-resources/cycle-tag.erts
+ (Point-Char): Add tests for 2 and 4 '*' levels.
+
+2023-02-21 Mattias Engdegård <mattiase@acm.org>
+
+ Repair mistake in a previous edmacro-sanitize-string change
+
+ * lisp/edmacro.el (edmacro-sanitize-for-string):
+ This condition should not have been 'repaired' but removed altogether.
+ Do so now, fixing bug#61647.
+
+ Reported by Eduardo Ochs.
+
+ (cherry picked from commit 4eefadad0670ad1c3da2505d734e528d54c76bef)
+
+2023-02-20 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ regex-emacs.c: Reduce the use of backtracking a bit further
+
+ bug#61514 exhibited some undesirable backtracking in a case where
+ it's easy to avoid it by making `mutually_exclusive_p` just a bit
+ more careful.
+
+ * src/regex-emacs.c (mutually_exclusive_p): Handle `on_failure_jump`s.
+
+ * test/src/regex-emacs-tests.el (regexp-tests-backtrack-optimization):
+ Add a few tests.
+
+2023-02-20 João Távora <joaotavora@gmail.com>
+
+ Eglot: respect user's Eldoc configuration by default
+
+ This change addresses the problems reported in many Elglot reports
+ dating back to early 2021 at least:
+
+ https://github.com/joaotavora/eglot/issues/648
+ https://github.com/joaotavora/eglot/issues/894
+ https://github.com/joaotavora/eglot/issues/920
+ https://github.com/joaotavora/eglot/issues/1031
+ https://github.com/joaotavora/eglot/issues/1171
+
+ In one form or another, the reports point out that the multiple pieces
+ of information about the "thing at point" made available by the LSP
+ server are not all being considered by the ElDoc system.
+
+ The reason for this is Eglot setting/trampling the variables
+ 'eldoc-documentation-strategy' and 'eldoc-documentation-functions' in
+ its minor more entry function.
+
+ The reason it did that is historical and is partially described in the
+ issues above. But, evidently, it never made much sense, because so
+ many people want to override it, which requires setting
+ 'eldoc-documentation-strategy' to the non-default value
+ 'eldoc-documentation-compose'.
+
+ The problem was made worse by the fact that setting it as usual in
+ either the Customize menu or their init file didn't work, requiring a
+ fairly complex Elisp snippet. That is now solved as of this commit.
+
+ If the user does not do any setting, then Eglot works basically the
+ same as before (i.e. shows only one piece of information).
+
+ It is arguable that the default value for
+ 'eldoc-documentation-strategy' should change globally to
+ 'eldoc-documentation-compose', but that has other subtle implications
+ and is not part of this commit.
+
+ * lisp/progmodes/eglot.el (eglot--managed-mode): Don't set Eldoc
+ variables greedily.
+
+2023-02-20 Andrea Corallo <akrl@sdf.org>
+
+ Make the native compiler always use `make-temp-file' for temporary files
+
+ * src/comp.c (CALL4I): Define macro.
+ (Fcomp__compile_ctxt_to_file): Use `make-temp-file' instead of
+ `make-temp-file-internal'.
+ * lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Likewise.
+
+2023-02-20 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-216-gfe40342
+
+2023-02-20 Daniel Martín <mardani29@yahoo.es>
+
+ Add declaration_list to c-ts-common-indent-type-regexp-alist
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode): Consider a
+ "declaration_list" a block. (Bug#61635)
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts (Code): Add a
+ test case.
+
+2023-02-20 Theodor Thornhill <theo@thornhill.no>
+
+ Typescript-ts-mode: Add switch case handling
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): New rules.
+
+2023-02-20 Theodor Thornhill <theo@thornhill.no>
+
+ Fix object initializer for csharp-mode (bug#61541)
+
+ * lisp/progmodes/csharp-mode.el (csharp-guess-basic-syntax): Make sure
+ we check the openers as well as closers.
+
+2023-02-20 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1-34-geea8da
+
+2023-02-19 Yuan Fu <casouri@gmail.com>
+
+ Improve tree-sitter indent anchor prev-adaptive-prefix (bug#61314)
+
+ Now prev-adaptive-prefix looks at the current line and checks if it
+ begins with a prefix itself. If it does, prev-adaptive-prefix tries
+ to place the anchor before the prefix on the previous line, rather
+ than after it.
+
+ - prev line
+ - this line -> This line starts with a "-", i.e., begins with a
+ prefix, so we place the anchor at the beginning of the
+ "-" of the previous line, rather than after it
+
+ - prev line
+ this line -> This line doesn't start with a prefix, so the anchor
+ is placed after the previous line's "-".
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/treesit.el:
+ (treesit-simple-indent-presets): Add local variable
+ this-line-has-prefix, base what anchor to return on the value of
+ this-line-has-prefix and whether the prev line has a prefix.
+
+2023-02-19 Theodor Thornhill <theo@thornhill.no>
+
+ Adjust jsx indentation
+
+ We can use the fact that 'treesit-indent-1' uses 'treesit-node-on'
+ when on a whitespace to set the actual current node as parent. Now we
+ can correctly indent the 'jsx_text' nodes. We also add some more
+ electric-indent-chars so that auto-indenting of jsx behaves a little
+ more fluently.
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Add new rules.
+ (js-ts-mode): Add more indent-chars.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): Add new rules.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-base-mode): Add more indent-chars and layout rules.
+
+2023-02-19 Theodor Thornhill <theo@thornhill.no>
+
+ Cleanup preproc indent for c-ts-mode (bug#61558)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Make sure we
+ indent to great-grand-parent if inside an #ifdef...#endif block. If
+ grand-parent is root node, then don't indent one step.
+ (c-ts-mode--preproc-offset): New helper anchor function to calculate
+ indent offset.
+
+2023-02-19 Theodor Thornhill <theo@thornhill.no>
+
+ Add comment style toggle for c-ts-mode (bug#61550)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-toggle-comment-style): New
+ command.
+ (c-ts-base-mode-map): Add binding.
+ (c-ts-mode-set-modeline): New function.
+ (c-ts-mode): Set modeline.
+ (c++-ts-mode): Set modeline.
+
+2023-02-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/simple.el (choose-completion): Check for
completion-in-region-mode.
+
+ Don't use base-affixes when completion-use-base-affixes is non-nil
+ in completion-in-region-mode (bug#61535).
+
+2023-02-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ rust-ts-mode--font-lock-settings: Avoid the explicit 'default' face
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--fontify-scope)
+ (rust-ts-mode--fontify-tail): New functions.
+ (rust-ts-mode--font-lock-settings): Use them instead of a lot of
+ more complex queries (bug#61302). Thus avoid having to create
+ block fontification by other features using the 'default' face.
+ Replace the catch-all query for 'variable' with an enumeration of
+ possible parent nodes.
+
+2023-02-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el: Bump the version.
+
+2023-02-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ xref--insert-xrefs: Use 'shadow' for the line number colon
+
+ * lisp/progmodes/xref.el (xref--insert-xrefs): Use face 'shadow' for
+ the line number colon instead of continuing it face (bug#61340).
+
+ (cherry picked from commit d6d25a3c221e566de4df5319181e9ba9a8df285e)
+
+2023-02-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/xref.el (xref--insert-xrefs): Remove extra space
(bug#61340).
+
+ (cherry picked from commit 643a11c6e5defc0a34da1a53b64aa1e097298923)
+
+2023-02-19 Mattias Engdegård <mattiase@acm.org>
+
+ Backport: Fix xref-clear-marker-stack refactoring mistake
+
+ * lisp/progmodes/xref.el (xref-clear-marker-stack):
+ Clear the history correctly. Changing a lexical variable has no effect.
+
+ (cherry picked from commit dfdc0f5fb7b10e737c3c8e2bdb1eb873a1e91bd7)
+
+2023-02-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ f5a99945b6f ; Update ChangeLog for Emacs 28.3
+ f7bd5ac5521 Update HISTORY for Emacs 28.3
+
+ # Conflicts:
+ # etc/NEWS
+
+2023-02-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 4a77fcb1478 Update ChangeLog and AUTHORS for Emacs 28.3
+
+2023-02-19 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ More doc on image-dired-dired-* (bug#61624)
+
+ * doc/emacs/dired.texi (Image-Dired): Some fixes and more
+ documentation about image-dired-dired-* commands.
+
+2023-02-19 Theodor Thornhill <theo@thornhill.no>
+
+ Eglot: improve treatment of completion items without :sortText
(bug#61532)
+
+ Previously, defaulting to the empty string put candidates without
+ :sortText to the top of the list. since string-lessp is safe with nil
+ arguments, this makes them sort to the end instead.
+
+ * lisp/progmodes/eglot.el (eglot-completion-at-point): Simplify.
+
+2023-02-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix invocation of File->Close from the menu bar
+
+ * lisp/simple.el (kill-buffer--possibly-save): Don't request
+ LONG-FORM from 'read-multiple-choice' if GUI dialog should be
+ used.
+ * lisp/emacs-lisp/rmc.el (read-multiple-choice): Doc fix.
+ (read-multiple-choice--short-answers): Don't append "?" to
+ CHOICES and don't display the prompt in the echo area if GUI
+ dialog is used. Use 'use-dialog-box-p'. (Bug#61553)
+
+2023-02-19 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Update thumbnail buffer's header more
+
+ * lisp/image/image-dired.el (image-dired-display-thumbs): Call
+ image-dired--update-header-line. (Bug#61508)
+
+2023-02-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit-query-validate): Fix reusing the output buffer
+
+ * lisp/treesit.el (treesit-query-validate): Fix the "Buffer is
+ read-only" error when an output buffer already exists.
+
+2023-02-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ (rust-ts-mode--font-lock-settings): Highlight closure parameters
+
+ * lisp/progmodes/rust-ts-mode.el
+ (rust-ts-mode--font-lock-settings): Highlight closure parameters.
+
+2023-02-18 Andrea Corallo <akrl@sdf.org>
+
+ * Fix `native-comp-enable-subr-trampolines' semantic
+
+ * lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Interpret
+ `native-comp-enable-subr-trampolines' relative to
+ `invocation-directory'.
+
+2023-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'just-one-space' and 'delete-horizontal-space'
+
+ * lisp/simple.el (just-one-space, delete-horizontal-space):
+ Mention the effect of prefix argument. (Bug#61609)
+
+2023-02-18 martin rudalics <rudalics@gmx.at>
+
+ Fix 'display-buffer-use-least-recent-window'
+
+ * src/window.c (Fwindow_use_time): Doc fix.
+ (Fwindow_bump_use_time): Bump use time of the seleceted window as
+ well. Doc fix.
+
+ * lisp/window.el (display-buffer-avoid-small-windows): Remove.
+ All users changed.
+ (window--display-buffer): Bump window use time when requested.
+ (display-buffer--lru-window): New function.
+ (display-buffer-use-some-window): Use it.
+ (display-buffer-use-least-recent-window): Rewrite and enhance doc
+ string.
+
+ * doc/lispref/windows.texi (Selecting Windows)
+ (Buffer Display Action Functions, Buffer Display Action Alists)
+ (The Zen of Buffer Display): Improve and update documentation of
+ window selection and display facilities.
+
+2023-02-18 kobarity <kobarity@gmail.com>
+
+ Fix point moving when calling python-shell-send-region
+
+ * lisp/progmodes/python.el (python-shell-buffer-substring): Add
+ `save-excursion' to prevent the point from moving.
+ * test/lisp/progmodes/python-tests.el (python-tests-should-not-move):
+ New helper function to assert that point does not move while calling a
+ function.
+ (python-shell-buffer-substring-*): Use
+ `python-tests-should-not-move'. (Bug#61463)
+
+2023-02-18 Omar Polo <op@omarpolo.com>
+
+ (project-try-vc): Remove unused defvar/require
+
+ * lisp/progmodes/project.el (project-try-vc):
+ Remove unused defvar/require (bug#61577).
+
+2023-02-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete redundant question from Gnus FAQ
+
+ * doc/misc/gnus-faq.texi (FAQ 1-2): Delete redundant question.
+ (FAQ 1-1, FAQ 1-3): Adjust accordingly.
+
+2023-02-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Slightly improve hashcash documentation
+
+ * lisp/mail/hashcash.el: Improve Commentary.
+ (hashcash-program):
+ * lisp/gnus/message.el (message-generate-hashcash): Improve
+ docstring.
+
+2023-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix cursor motion when there's line-prefix and display string at BOL
+
+ * src/xdisp.c (move_it_in_display_line_to): Handle 'line-prefix' and
+ 'wrap-prefix' when the screen line has a display string at its
+ beginning. (Bug#61580)
+
+2023-02-18 Yuan Fu <casouri@gmail.com>
+
+ Fix comment in treesit_record_change (bug#61369)
+
+ Turns out the previous commit message and comment is not entirely
+ correct: the old behavior is in fact wrong, not just "correct but has
+ problems".
+
+ Here is why the old code is wrong:
+
+ |visible range| -> markup for visible range
+
+ updated range -> markup for updated range
+ -------------
+
+ First we have some text
+
+ |aaaaaa|
+
+ Now we insert something at the beginning, because we clip
+ new_end_offset to visible_end, out of eight b's inserted, only the
+ first six are known to tree-sitter.
+
+ |bbbbbbbbaaaa|aa start: 0, old_end: 0, new_end: 6
+ ------
+
+ In treesit_sync_visible_region, we sync up visible region, but the two
+ missing b's are not in the updated range.
+
+ |bbbbbbbbaaaaaa| start: 12, old_end: 12, new_end: 14
+ --
+
+ The old behavior not only is wrong, but also doesn't make much sense.
+
+ * src/treesit.c (treesit_record_change): Update comment.
+
+2023-02-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Spell out RPN abbreviation in Calc manual intro
+
+ * doc/misc/calc.texi (What is Calc, Demonstration of Calc)
+ (RPN Tutorial): Spell out "Reverse Polish notation" abbreviation.
+
+2023-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix some uses of 'use-dialog-box'
+
+ * lisp/frame.el (display-mouse-p): Fix return value on MS-Windows
+ in batch invocations.
+ * lisp/hi-lock.el (hi-lock-unface-buffer): Don't consider
+ 'last-nonmenu-event' being nil as a mouse event, for the purpose
+ of using dialog boxes.
+
+2023-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix hi-lock-tests when 'use-dialog-box' is non-nil
+
+ * test/lisp/hi-lock-tests.el (hi-lock-case-fold)
+ (hi-lock-unhighlight): Bind 'use-dialog-box' to nil.
+
+2023-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix regression due to change in face sort order by 'face-list'
+
+ * lisp/faces.el (x-create-frame-with-faces): Undo reversing of
+ the face list, which is no longer necessary, since 'face-list's
+ sorting order has been reversed recently. (Bug#61521)
+
+2023-02-17 Po Lu <luangruo@yahoo.com>
+
+ * lisp/files.el (file-equal-p): Work around Haiku stat bug.
+
+2023-02-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ (project-vc-backend-markers-alist): Add entry for vc-got
+
+ * lisp/progmodes/project.el (project-vc-backend-markers-alist):
+ Add entry for vc-got (bug#61577). Bump the version.
+
+2023-02-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ project.el: Extract backend->marker association for a defvar
+
+ * lisp/progmodes/project.el (project-vc-backend-markers-alist):
+ Extract from 'project-try-vc'.
+ (project-try-vc): Update accordingly (bug#61577).
+
+2023-02-17 Yuan Fu <casouri@gmail.com>
+
+ Don't completely clip into visible range in treesit_record_change
+
+ (Bug#61369)
+
+ From
+ min (visible_end, max (visible_beg, new_end_byte)) - visible_beg
+ to
+ max (visible_beg, new_end_byte) - visible_beg
+
+ * src/treesit.c (treesit_record_change): We don't clip the new end
+ into the visible range anymore. If you think of it, when inserting in
+ a narrowed region, the visible region is always extended to
+ accommodate more text, rather than pushing text at the end to keep the
+ size of the visible region.
+
+2023-02-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/treesit.el (treesit-node-at): Update docstring (bug#61529).
+
+2023-02-17 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/calc/calc.el (calc-mode): Improve docstring.
+
+2023-02-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Bump Emacs version to 28.3
+
+ * README:
+ * configure.ac:
+ * msdos/sed2v2.inp:
+ * nt/README.W32: Bump Emacs version to 28.3.
+
+2023-02-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Update ChangeLog and AUTHORS for Emacs 28.3
+
+ * ChangeLog.3:
+ * etc/AUTHORS: Update for Emacs 28.3.
+
+2023-02-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Update HISTORY for Emacs 28.3
+
+2023-02-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Update NEWS for Emacs 28.3
+
+ * etc/NEWS: Update for Emacs 28.3.
+
+2023-02-17 Andrea Corallo <akrl@sdf.org>
+
+ Merge 'emacs-29' into 'feature/inhibit-native-comp-cleanup'
+
+2023-02-17 Eli Zaretskii <eliz@gnu.org> (tiny change)
+
+ Fix order of faces in 'face-list'
+
+ * lisp/faces.el (frame-face-alist, face-list): Sort faces in
+ decreasing order of face IDs. Patch by Brennan Vincent
+ <brennan@umanwizard.com>. (Bug#61521)
+
+2023-02-17 Eli Zaretskii <eliz@gnu.org>
+
+ Allow 'icon-title-format' to have the value t
+
+ * src/xdisp.c (gui_consider_frame_title, syms_of_xdisp): If the
+ value of 'icon-title-format' is t, use 'frame-title-format'
+ instead. (Bug#61496)
+
+ * etc/NEWS:
+ * doc/lispref/frames.texi (Frame Titles): Document the new
+ handling of the value t.
+ (Basic Parameters): Fix the documentation of the 'title' and
+ 'name' frame parameters.
+
+2023-02-16 Theodor Thornhill <theo@thornhill.no>
+
+ Add electric indent for preproc directives
+
+ It looks like there are few if no other cases where we get this
+ particular error in the AST than with insertion of '#'.
+
+ Consider:
+
+ ```
+ int
+ main()
+ {
+ |
+ }
+ ```
+
+ If we only add '#' the AST yields (ERROR (ERROR)), which we can
+ exploit to hook onto electric indent. The end result should be the
+ hashtag anchored to column 0.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): New rule.
+ (c-ts-base-mode): Add # to electric-indent-chars.
+
+2023-02-16 Robert Pluim <rpluim@gmail.com>
+
+ Rename 'emacs-news-toggle-tag' to 'emacs-news-cycle-tag'
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-cycle-tag): Renamed
+ from 'emacs-news-toggle-tag'.
+ (emacs-news-mode-map, emacs-news-mode-menu): Use new name.
+ * test/lisp/textmodes/emacs-news-mode-resources/cycle-tag.erts:
+ Renamed from "toggle-tag.erts".
+ * test/lisp/textmodes/emacs-news-mode-tests.el (emacs-news-cycle-tag):
+ Rename test from 'emacs-news-toggle-tag', and call
+ 'emacs-news-cycle-tag' with new resource file name.
+
+2023-02-16 Robert Pluim <rpluim@gmail.com>
+
+ Add menu to news-mode
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-mode-map): Add binding
+ for 'emacs-news-delete-temporary-markers'.
+ (emacs-news-mode-menu): Add menu for common actions.
+
+2023-02-16 Philip Kaludercic <philipk@posteo.net>
+
+ Attempt to recognise if a VC package has no Elisp files
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-non-code-file-names): Add
+ new variable used to avoid false-positives.
+ (package-vc--unpack): Recursively search for .el files excluding the
+ ones listed in 'package-vc-non-code-file-names', offering to abort the
+ installation if none are found.
+
+2023-02-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix mule-tests under en_US.UTF-8 locale
+
+ * test/lisp/international/mule-tests.el (sgml-html-meta-utf-8):
+ Accept also utf-8-unix/dos/whatever. (Bug#61534)
+
+ * lisp/international/mule.el
+ (sgml-html-meta-auto-coding-function): Fix comparison when
+ buffer-file-coding-system is of type 'charset'.
+
+2023-02-15 Theodor Thornhill <theo@thornhill.no>
+
+ Move block closer above declaration_list rule (bug#61531)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Move rule
+ above the previous rule.
+
+2023-02-15 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements in c-ts-mode and docs
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode-map): Add a binding
+ for comment-region.
+
+ * doc/emacs/programs.texi (C Indent): Mention "C-u TAB".
+
+2023-02-15 Theodor Thornhill <theo@thornhill.no>
+
+ Add super node as a keyword
+
+ * lisp/progmodes/java-ts-mode.el
+ (java-ts-mode--font-lock-settings): Add new node.
+
+2023-02-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete perplexing paragraph from Gnus manual
+
+ * doc/misc/gnus.texi (Exiting Gnus): Delete a confusing paragraph,
+ that may or may not have been intended as a joke. (Bug#61325)
+
+2023-02-14 ~kby <kby@tilde.team> (tiny change)
+
+ Eglot: check server capability before sending didSave (bug#61478)
+
+ * lisp/progmodes/eglot.el (eglot--signal-textDocument/didSave): check
+ server capability.
+
+2023-02-14 Randy Taylor <dev@rjt.dev>
+
+ Fix rust-ts-mode type and module highlighting (Bug#61302)
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--font-lock-settings):
+ Specify import queries to avoid clashing with scoped identifiers in
+ the code. Highlight attributes with font-lock-preprocessor-face.
+
+2023-02-14 Dmitry Gutov <dgutov@yandex.ru>
+
+ rust-ts-mode: Highlight variable reassignments
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode):
+ New treesit font-lock feature: 'assignment' (bug#61302).
+ (rust-ts-mode--fontify-pattern): Remove the node lookup step.
+ (rust-ts-mode--font-lock-settings): Update variable declaration
+ queries to match the 'pattern' child node right away. Add
+ highlights for 'assignment.
+
+2023-02-14 Gregory Heytings <gregory@heytings.org>
+
+ Improve backward compatibility of save-restriction
+
+ * src/editfns.c (save_restriction_save_1): Renamed from
+ 'save_restrictions_save'. Make it static.
+ (save_restriction_restore_1): Renamed from
+ 'save_restriction_restore'. Make it static.
+ (save_restriction_restore): New function, combining
+ 'save_restriction_save_1' and 'narrowing_locks_save'.
+ (save_restriction_save): New function, combining
+ 'save_restriction_restore_1' and 'narrowing_locks_restore'.
+ (Fsave_restriction): Restore the previous code.
+ (narrowing_locks_save, narrowing_locks_restore): Make them static.
+
+ * src/lisp.h: Remove two functions that are not externally visible
+ anymore.
+
+ * src/comp.c (helper_save_restriction): Restore the previous code.
+
+ * src/bytecode.c (exec_byte_code): Restore the previous code.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-save-restriction):
+ Decrement unbinding count.
+
+2023-02-14 Theodor Thornhill <theo@thornhill.no>
+
+ Don't indent template_string contents (bug#61503)
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Add new rule.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): Add new rule.
+
+2023-02-14 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ csharp-ts-mode: fontify compiler directives (bug#61512)
+
+ lisp/progmodes/csharp-mode.el: Add tree-sitter-queries for known C#
+ compiler-directives.
+
+2023-02-14 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-209-gdab1dfa
+
+2023-02-14 Andrea Corallo <akrl@sdf.org>
+
+ * Generate trampolines in a temporary directory if no other option is
viable
+
+ * lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Use
+ temporary file if no other option is viable.
+
+2023-02-13 Eli Zaretskii <eliz@gnu.org>
+
+ Rename with/without-narrowing to with/without-restriction
+
+ * doc/lispref/commands.texi:
+ * doc/lispref/display.texi:
+ * doc/lispref/positions.texi:
+ * etc/NEWS:
+ * lisp/subr.el:
+ * src/buffer.c:
+ * src/editfns.c:
+ * src/keyboard.c:
+ * src/xdisp.c:
+ * test/src/buffer-tests.el: Rename with-narrowing and
+ without-narrowing to with-restriction and without-restriction.
+ Likewise with internal--with-narrowing and
+ internal--without-narrowing. All callers and documentation
+ changed.
+
+2023-02-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el: Rename internal function and variable (bug#60980)
+
+ (repeat--transient-exitfun): Rename internal variable from
+ 'repeat-exit-function'.
+ (repeat--clear-prev): Rename internal function from
+ 'repeat--exit'.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ * Fix previous change
+
+ * lisp/emacs-lisp/generate-lisp-file.el (generate-lisp-file-trailer):
+ Fix previous change b6e2799aa1c.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ Rename native-comp-deferred-compilation-deny-list
+
+ * lisp/emacs-lisp/comp.el
(native-comp-jit-compilation-deny-list)
+ (native-compile-async-skip-p): Rename
+ native-comp-deferred-compilation-deny-list into
+ native-comp-jit-compilation-deny-list.
+ (native-comp-deferred-compilation-deny-list): Mark it obsolete.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ Rename native-comp-deferred-compilation into native-comp-jit-compilation
+
+ * src/comp.c (maybe_defer_native_compilation, syms_of_comp):
+ Rename native-comp-deferred-compilation into
+ native-comp-jit-compilation.
+
+ * lisp/subr.el (native-comp-deferred-compilation): Mark
+ native-comp-deferred-compilation as obsolete.
+
+ * lisp/startup.el (native-comp-deferred-compilation)
+ (normal-top-level): Rename native-comp-deferred-compilation into
+ native-comp-jit-compilation.
+
+ * lisp/progmodes/elisp-mode.el
+ (emacs-lisp-native-compile-and-load): Likewise.
+
+ * lisp/emacs-lisp/generate-lisp-file.el
+ (generate-lisp-file-trailer): Likewise.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ Rename comp-enable-subr-trampolines into
native-comp-enable-subr-trampolines
+
+ * src/data.c (Ffset): Rename comp-enable-subr-trampolines into
+ native-comp-enable-subr-trampolines.
+
+ * src/comp.c (syms_of_comp): Likewise.
+
+ * lisp/subr.el (comp-enable-subr-trampolines): Make
+ comp-enable-subr-trampolines obsolete.
+
+ * lisp/startup.el (native-comp-enable-subr-trampolines)
+ (normal-top-level): Rename comp-enable-subr-trampolines into
+ native-comp-enable-subr-trampolines.
+
+ * lisp/loadup.el (dump-mode): Likewise.
+
+ * lisp/emacs-lisp/comp.el (comp-subr-trampoline-install)
+ (comp--trampoline-abs-filename): Likewise.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (native-comp-never-optimize-functions):
Improve doc
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ Support `comp-enable-subr-trampolines' as string value
+
+ * src/comp.c (syms_of_comp): Update `comp-enable-subr-trampolines'.
+
+ * lisp/emacs-lisp/comp.el (native-comp-never-optimize-functions)
+ (comp--trampoline-abs-filename): Support
+ `comp-enable-subr-trampolines' string value.
+
+ * src/data.c (Ffset): Use Vcomp_enable_subr_trampolines now.
+
+2023-02-13 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'scratch/fix-locked-narrowing'
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ * Some more `inhibit-native-compile' clean-up
+
+ * lisp/emacs-lisp/generate-lisp-file.el (generate-lisp-file-trailer):
+ Use `native-comp-deferred-compilation'.
+
+2023-02-13 Gregory Heytings <gregory@heytings.org>
+
+ Minor improvements to labeled narrowing
+
+ * lisp/subr.el (internal--with-narrowing):
+ (internal--without-narrowing): Remove unnecessary 'progn'.
+
+ * etc/NEWS: Mention 'with-narrowing' in the entry about long
+ lines.
+
+ * doc/lispref/positions.texi (Narrowing): Fix typo.
+
+ * doc/lispref/display.texi (Auto Faces): Use @pxref.
+
+ * doc/lispref/commands.texi (Command Overview): Use @pxref.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ Revert "Add new variable 'inhibit-native-compilation'"
+
+ This reverts commit 5fec9182dbeffa88cef6651d8c798ef9665d6681.
+
+2023-02-13 Andrea Corallo <akrl@sdf.org>
+
+ Revert "Rename to inhibit-automatic-native-compilation"
+
+ This reverts commit f97993ee667f9be7589825f3a4fbc095d6944ec6.
+
+2023-02-13 Ulrich Müller <ulm@gentoo.org>
+
+ Fix spurious display of eclipses in Calendar
+
+ * lisp/calendar/lunar.el (eclipse-check): Don't show an eclipse
+ unless the phase is new moon or full moon. (bug#61460)
+ * test/lisp/calendar/lunar-tests.el (lunar-test-eclipse-check)
+ (lunar-test-phase-list): Update tests.
+
+2023-02-12 Yuan Fu <casouri@gmail.com>
+
+ Fix indentation for closing bracket in c-ts-mode (bug#61398)
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--indent-styles): Move the rule earlier.
+ (c-ts-base-mode): Add move block type.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New tests.
+
+2023-02-12 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1-31-gaf1bb1
+
+2023-02-12 Alan Mackenzie <acm@muc.de>
+
+ * src/.gdbinit (nextcons): Amend $.u.cdr to $.u.s.u.cdr (bug#61453).
+
+ (cherry picked from commit dde023b63ab82c38d33815409de5552f5bf349d1)
+
+2023-02-12 Theodor Thornhill <theo@thornhill.no>
+
+ Add lambda_expression to c-ts-common-indent-type-regexp-alist
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode): Tweak regexp.
+
+2023-02-12 Philip Kaludercic <philipk@posteo.net>
+
+ Tolerate missing elpa-packages.eld files
+
+ * lisp/emacs-lisp/package-vc.el
+ (package-vc--download-and-read-archives): Replace
+ 'condition-case-unless-debug' with a regular 'condition-case'.
+
+ It appears a few people using third-party archives that don't serve
+ package specifications have been having issues with package-vc, when
+ toggle-on-error is enabled. In their case, package-vc would raise an
+ error in its first invocation, but it would go on working normally
+ afterwards. As this behaviour is confusing and the user can't do much
+ about a missing elpa-packages.eld to begin with, we satisfy ourselves
+ with printing out a message and continuing on.
+
+2023-02-12 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid warning about 'load-path' in non-interactive sessions
+
+ * lisp/startup.el (command-line): Emit the warning about
+ 'user-emacs-directory' in 'load-path' only in interactive
+ sessions. (Bug#61014)
+
+2023-02-12 Ulrich Müller <ulm@gentoo.org>
+
+ Support webkit2gtk-4.1
+
+ * configure.ac: Check for webkit2gtk API version 4.1 first, then
+ fall back to 4.0.
+
+2023-02-10 Gregory Heytings <gregory@heytings.org>
+
+ Save and restore the absence of narrowing locks
+
+ * src/editfns.c (narrowing_locks_save): Return the buffer with a
+ empty locks list when the current buffer has no narrowing locks.
+ (narrowing_locks_restore): Remove the narrowing locks if the
+ buffer had no narrowing locks.
+
+2023-02-10 Tassilo Horn <tsdh@gnu.org>
+
+ bug-reference: prevent match-data clobbering (bug#61395)
+
+ * lisp/progmodes/bug-reference.el (bug-reference-fontify): Wrap call
+ to syntax-ppss in save-match-data since it can clobber our
+ match-data (bug#61395).
+
+2023-02-10 Yuan Fu <casouri@gmail.com>
+
+ Rename LIMIT to DEPTH in tree-sitter functions (bug#61231)
+
+ I only changed the Lisp functions, internal functions are left
+ unchanged.
+
+ * doc/lispref/parsing.texi (Retrieving Nodes): Update manual.
+ * src/treesit.c (Ftreesit_search_subtree)
+ (Ftreesit_induce_sparse_tree): Change LIMIT to DEPTH.
+
+2023-02-09 Yuan Fu <casouri@gmail.com>
+
+ Add 'live' property to treesit-node-check (bug#61235)
+
+ * doc/lispref/parsing.texi (Accessing Node Information): Document.
+ * src/treesit.c (treesit_parser_live_p): New function.
+ (Ftreesit_node_check): Add 'live' property.
+ * test/src/treesit-tests.el (treesit-node-api): Add tests.
+
+2023-02-09 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-205-gb8ad0da
+
+2023-02-09 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'rmail-summary-output'
+
+ * lisp/mail/rmailsum.el (rmail-summary-output): Fix deletion of
+ messages when 'rmail-output-reset-deleted-flag' is non-nil.
+ (Bug#61380)
+
+2023-02-09 Nicolas Martyanoff <nicolas@n16f.net>
+
+ lisp-mode: add docstring recognition for more common lisp symbols
+
+ * lisp/emacs-lisp/lisp-mode.el (define-compiler-macro)
+ (define-setf-expander, deftype): Add the 'doc-string-elt'
+ property for proper docstring highlighting in Common Lisp.
+
+2023-02-09 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-204-gecff8c2
+
+2023-02-09 Eli Zaretskii <eliz@gnu.org>
+
+ Fix Scala entry in Eglot's DB of LSP servers
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Support Scala
+ LSP named "metals", in addition to "metals-emacs". (Bug#61312)
+
+2023-02-08 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Also don't reindent 'identifier' when inside ERROR
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Also don't reindent 'identifier' when inside ERROR.
+
+2023-02-08 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix indentation inside empty if/unless/case/def
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Add new rule.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el
+ (ruby-ts-indent-empty-if-else): New test.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Add an extensive test for labeled (locked) narrowing
+
+ * test/src/buffer-tests.el (test-labeled-narrowing): New test.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Update the documentation about labeled (locked) narrowing
+
+ * src/xdisp.c (syms_of_xdisp) <fontification-functions>: Update
+ docstring.
+
+ * src/keyboard.c (syms_of_keyboard) <pre-command-hook>:
+ (syms_of_keyboard) <post-command-hook>: Update docstring.
+
+ * src/editfns.c:
+ (narrowing_locks): Explain why an alist is used instead of a
+ buffer-local variable.
+ (reset_outermost_narrowings): Point to recipes that demonstrate
+ why it is necessary to restore the user narrowing bounds when
+ redisplay starts.
+ (Fwiden): Update docstring.
+ (Fnarrow_to_region): Update docstring.
+ (Finternal__lock_narrowing): Update docstring.
+ (Finternal__unlock_narrowing): Update docstring.
+ (Fsave_restriction): Update docstring.
+
+ * src/buffer.c (syms_of_buffer)
+ <long-line-optimizations-region-size>: Update docstring.
+ (syms_of_buffer) <long-line-optimizations-bol-search-limit>:
+ Update docstring.
+
+ * lisp/subr.el (with-narrowing): Update docstring.
+ (without-narrowing): Update docstring.
+
+ * etc/NEWS: Mention the 'long-line-optimizations-region-size' and
+ 'long-line-optimizations-bol-search-limit' options.
+ Announce the 'with-narrowing' and 'without-narrowing' forms.
+
+ * doc/lispref/positions.texi (Narrowing): Update the documentation
+ of 'narrow-to-region', 'widen' and 'save-restriction'. Document
+ the 'with-narrowing' and 'without-narrowing' special forms.
+
+ * doc/lispref/display.texi (Auto Faces): Update the documentation.
+
+ * doc/lispref/commands.texi (Command Overview): Document the fact
+ that the buffer is narrowed around 'pre-command-hook' and
+ 'post-command-hook' when the buffer text includes very long lines.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Rename two long line optimizations variables
+
+ * src/buffer.c (syms_of_buffer): Rename two variables.
+
+ * src/xdisp.c (get_locked_narrowing_begv):
+ (get_locked_narrowing_zv):
+ (handle_fontified_prop): Use the new names.
+
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): Use the new
+ names.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Add specific symbols for narrowings
+
+ * src/xdisp.c (syms_of_xdisp): Define symbol.
+ (handle_fontified_prop): Use it.
+
+ * src/keyboard.c (syms_of_keyboard): Define symbol.
+ (safe_run_hooks_maybe_narrowed): Use it.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Add 'without-narrowing' macro
+
+ * lisp/subr.el (without-narrowing): New macro, companion (and
+ almost identical) to 'with-narrowing'.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Make 'narrowing-lock' and 'narrowing-unlock' internal
+
+ * src/editfns.c (Finternal__lock_narrowing): Renamed from
+ 'narrowing-lock'.
+ (Finternal__unlock_narrowing): Renamed from 'narrowing-unlock'.
+ (unwind_narrow_to_region_locked):
+ (narrow_to_region_locked):
+ (syms_of_editfns): Use the new names.
+
+ * lisp/subr.el (internal--with-narrowing): Use the new name.
+
+2023-02-08 Gregory Heytings <gregory@heytings.org>
+
+ Fix 'save-restriction' for narrowing locks
+
+ * src/editfns.c (narrowing_locks_save):
+ (narrowing_locks_restore): Make them non-static.
+
+ * src/lisp.h: Make them externally visible.
+
+ * src/bytecode.c (exec_byte_code): Save and restore narrowing
+ locks.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-save-restriction):
+ Increment unbinding count.
+
+ * src/comp.c (helper_save_restriction): Save and restore narrowing
+ locks.
+
+2023-02-08 LensPlaysGames <lensplaysgames@gmail.com> (tiny change)
+
+ * lisp/iimage.el (iimage-mode-buffer): Handle multiple regexps.
+
+ Go to the beginning of the buffer before searching every regexp in
+ iimage-mode-image-regex-alist.
+
+2023-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/edmacro.el (edit-kbd-macro): Fix thinko (bug#61333)
+
+ Backported from commit 2273cdb40e1939f7c29a669f6a64e6a27738c1a5.
+
+2023-02-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix crashes inside 'xfree' called from treesit.c
+
+ * src/treesit.c (treesit_load_language): Always xstrdup 'c_name',
+ to avoid crashes inside xfree. (Bug#61351)
+
+2023-02-06 Yuan Fu <casouri@gmail.com>
+
+ Make java-ts-mode use the c-ts-common-indent-type-regexp-alist
+
+ * lisp/progmodes/java-ts-mode.el:
+ (java-ts-mode): Setup c-ts-common-indent-type-regexp-alist.
+
+2023-02-06 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation
+
+ Sign, ok, there's another edge case: else if statements. Because
+ "else if" is usually implemented as just another if statement nested
+ in the else branch, this creates additional levels that indentation
+ needs to ignore.
+
+ I converted c-ts-common-indent-block-type-regexp +
+ c-ts-common-indent-bracketless-type-regexp into a new, more flexible
+ variable, c-ts-common-indent-type-regexp-alist, to avoid adding yet
+ more variables in order to recognize else and if statements.
+
+ * lisp/progmodes/c-ts-common.el:
+ (c-ts-common-indent-type-regexp-alist): New variable.
+ (c-ts-common-indent-block-type-regexp)
+ (c-ts-common-indent-bracketless-type-regexp): Remove variables.
+ (c-ts-common--node-is): New function.
+ (c-ts-common-statement-offset): Use the new variable, and add the
+ "else if" special case. Also merge the code of
+ c-ts-mode--fix-bracketless-indent, because now the code is much more
+ succinct.
+ (c-ts-mode--fix-bracketless-indent): Merge into
+ c-ts-common-statement-offset.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-base-mode): Setup c-ts-common-indent-type-regexp-alist.
+
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+2023-02-06 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation
+
+ Turns out I shouldn't have removed the explicit rules. Anyway, now it
+ indents properly.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Add rules.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: Add tests
+
+2023-02-06 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation (bug#61291)
+
+ Fix indentation for the semicolon in
+
+ while (str_a[i++] == str_b[j++])
+ ;
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): New rule.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+2023-02-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ (eglot-completion-at-point): Return correct values in :company-kind
+
+ * lisp/progmodes/eglot.el (eglot-completion-at-point): Return the
+ correct values in :company-kind for "EnumMember" and "TypeParameter".
+ The convention is to use kebab case rather than plain downcasing.
+ Reported in https://github.com/company-mode/company-mode/issues/1370.
+
+2023-02-06 Mattias Engdegård <mattiase@acm.org>
+
+ Tighten and simplify typescript compilation-mode regexps (bug#61104)
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Tighten regexps and simplify. Translate to rx.
+ * etc/compilation.txt: Add examples.
+
+ In collaboration with Jostein Kjønigsen.
+
+2023-02-06 Tassilo Horn <tsdh@gnu.org>
+
+ Clarify bug-reference-auto-setup-functions docstring.
+
+ * lisp/progmodes/bug-reference.el (bug-reference-auto-setup-functions):
+ Add clarification to docstring that this variable is for packages, not
+ for users.
+
+2023-02-06 Aleksandr Vityazev <avityazev@posteo.org>
+
+ * lisp/treesit.el (treesit): Fix shortdoc example form (bug#61318).
+
+2023-02-06 Theodor Thornhill <theo@thornhill.no>
+
+ Use c-ts-common-statement-offset in java-ts-mode (bug#61142)
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): Add new
+ matchers to enable c-ts-common machinery.
+ (java-ts-mode): Add regexps.
+ * lisp/progmodes/c-ts-common.el (c-ts-common-statement-offset): Fix
+ typo in documentation and use the new if statement helpers.
+ (c-ts-common-if-statement-regexp): New defvar.
+ (c-ts-common-nestable-if-statement-p): New defvar.
+ (c-ts-common--fix-nestable-if-statement): New helper.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: Add test for
+ complicated bracket matching indentation.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Add indent
+ rules for bracketless statements.
+
+2023-02-06 Theodor Thornhill <theo@thornhill.no>
+
+ Add array_initializer to java-ts-mode
+
+ Indent strings inside arrray_initializer one step:
+
+ public class Java {
+ void foo() {
+ return new String[]{
+ "foo", // These
+ "bar"
+ }
+ }
+ }
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): New
+ matcher.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ go-ts-mode: Highlight variable declarations
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--font-lock-settings):
+ Highlight variable declarations in 'definition' feature.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ go-ts-mode: Fix highlighting of function name in call_expression
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--font-lock-settings):
+ Remove :override from the 'property' rules and move them above
+ 'variable' (bug#61302). Just like in rust-ts-mode.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ c-ts-mode: Highlight "property functions" as functions
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings):
+ Highlight "property functions" as functions (bug#61302).
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ rust-ts-mode: Fix highlighting of function name in call_expression
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--font-lock-settings):
+ Remove :override from the 'property' rules and move them above
+ 'variable' (bug#61302).
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ rust-ts-mode--font-lock-settings: Improve consistency
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--font-lock-settings):
+ Remove the rule that highlighted scope identifier in a function call
+ as type. The existing rules will handle it when it does look like a
+ type (capitalized).
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ Make sure 'M-x show-paren-local-mode' turns on right away
+
+ * lisp/paren.el (show-paren--enabled-p): Extract from
+ 'show-paren-function'.
+ (show-paren-local-mode): Use it in the :variable getter (bug#61098).
+
+2023-02-05 Tassilo Horn <tsdh@gnu.org>
+
+ Add to bug-reference-auto-setup-functions after its declaring defvar
+
+ If it's the init-value of the defvar, add-hook from a third-party
+ package will suppress the default functions if it takes place before
+ bug-reference is loaded.
+
+ * lisp/progmodes/bug-reference.el (bug-reference-auto-setup-functions):
+ Add to bug-reference-auto-setup-functions after its declaring defvar.
+
+2023-02-05 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc.el (vc-find-revision-no-save): Fix parens (bug#61256).
+
+ Move '(setq failed nil)' from UNWINDFORMS of 'unwind-protect' to
BODYFORM.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix inability to turn show-paren-local-mode on manually (bug#61098)
+
+ * lisp/paren.el (show-paren-local-mode): Don't kill the local
+ value when both local and global are t. Because the
+ show-paren-predicate check in show-paren-function also checks
+ whether a local (non-nil) value of this variable exists.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ rust-ts-mode: Highlight variable declarations
+
+ (rust-ts-mode--font-lock-settings): Change scoped_type_identifier
+ highlight to match similar cases. Highlight variable declarations
+ inside all kinds of destructuring patterns, not just function
+ definitions.
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--fontify-pattern):
+ Rename from 'rust-ts-mode--fontify-parameter'. Check the id node's
+ parent to avoid touching type identifiers.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ rust-ts-mode--indent-rules: Indent to 0 at top level
+
+2023-02-05 Alan Mackenzie <acm@muc.de>
+
+ Ensure upper bound of font-lock region is less than point-max
+
+ This fixes bug #61298. The new long-lines code may have narrowed a
buffer
+ before font-lock-default-fontify-region gets called.
+
+ * lisp/font-lock.el (font-lock-default-fontify-region): Set `end' to
point-max
+ if it is greater that it.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ Highlight more complex function parameters
+
+ * lisp/progmodes/rust-ts-mode.el
+ (rust-ts-mode--fontify-parameter): New function.
+ (rust-ts-mode--font-lock-settings): Use it.
+
+2023-02-05 Jonas Bernoulli <jonas@bernoul.li>
+
+ No longer use transient in isearch-emoji-by-name
+
+ * lisp/isearch.el (isearch-emoji-by-name): Use 'emoji--read-emoji'
+ and if that returns derivations, 'completing-read' to select one
+ of them. This fixes bug#60740.
+ * lisp/international/emoji.el (emoji--init): Autoload.
+ (emoji--read-emoji): New function, which doesn't use transient
+ and returns a list of the glyph and all derivations, if any.
+ (emoji--choose-emoji): Use 'emoji--read-emoji'.
+
+2023-02-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ Make highlighting more regular across TS modes (bug#61205)
+
+ * doc/emacs/display.texi (Parser-based Font Lock):
+ Update description of treesit-font-lock-level, moving 'property' to
+ level 4.
+
+ * lisp/treesit.el (treesit-font-lock-level): Likewise, in docstring.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode): Do that here.
+
+ * lisp/progmodes/cmake-ts-mode.el (cmake-ts-mode): Add a comment.
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode): Add 'definition' to
+ level 1. Move 'function', 'property' and 'variable' to level 4.
+ (go-ts-mode--font-lock-settings): Move a bunch of existing rules
+ to 'definition'. Add highlighting of function parameters.
+
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode)
+ (rust-ts-mode--font-lock-settings): Same. And also change "scoped
+ identifiers" highlights to only match capitalized names.
+
+2023-02-05 Eli Zaretskii <eliz@gnu.org>
+
+ Document 'plistp'
+
+ * doc/lispref/lists.texi (Property Lists): Document 'plistp'.
+ (Bug#61293)
+
+2023-02-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of raised/lowered composed text
+
+ * src/xdisp.c (fill_gstring_glyph_string): Adjust the base line of
+ the glyph string due to subscript/superscript. (Bug#61290)
+
+2023-02-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix installation of tree-sitter grammar on MS-Windows
+
+ * lisp/treesit.el (treesit--install-language-grammar-1): Fix a
+ failure on MS-Windows when the old DLL is still being used.
+ (Bug#61289)
+
+2023-02-05 Eli Zaretskii <eliz@gnu.org>
+
+ Update the Emacs FAQ for Emacs 29
+
+ * doc/misc/efaq.texi (New in Emacs 29, History of Emacs): Add new
+ section about Emacs 29.
+
+2023-02-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix byte-compilation of *-ts-mode.el files
+
+ * lisp/treesit.el (treesit-font-lock-settings): Move to before
+ use, to prevent failure in byte-compiling modes which require this
+ file. (Bug#61282)
+
+2023-02-04 Yuan Fu <casouri@gmail.com>
+
+ Make c-ts-mode-set-style's effect local (bug#61245)
+
+ Now c-ts-mode-set-style's effect is local, and there is a new function
+ c-ts-mode-set-global-style that changes the global setting.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--indent-style-setter): Use c-ts-mode-set-style.
+ (c-ts-mode-indent-style)
+ (c-ts-mode--prompt-for-style): Minor change in docstring.
+ (c-ts-mode-set-global-style): New function (from c-ts-mode-set-style).
+ (c-ts-mode-set-local-style): Remove function (became
c-ts-mode-set-style).
+ (c-ts-mode-set-style): Renamed from c-ts-mode-set-local-style.
+ * test/lisp/progmodes/c-ts-mode-resources/indent-bsd.erts:
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: Use
+ c-ts-mode-set-style.
+
+2023-02-04 Dmitry Gutov <dgutov@yandex.ru>
+
+ c-ts-mode: Highlight name in parameter declarations
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings):
+ Uncomment parameter declaration highlighting (bug#61275).
+ (c-ts-mode--fontify-declarator): Check that identifier was found.
+ Some declarations can miss identifier name.
+
+2023-02-04 Davide Masserut <dm@mssdvd.com>
+
+ Fix switch statement indentation for go-ts-mode (bug#61238)
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--indent-rules): Add
+ indentation for type switch and select case blocks
+ * test/lisp/progmodes/go-ts-mode-resources/indent.erts: New .erts file
+ to test indentation of Go constructs and prevent regression of bug
+ fixes.
+ * test/lisp/progmodes/go-ts-mode-tests.el: New file with go-ts-mode
+ tests.
+
+2023-02-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix bidi reordering of sequence of whitespace characters before a TAB
+
+ * src/bidi.c (bidi_level_of_next_char): Test the current level
+ only for characters whose original type is BN. (Bug#61269)
+
+2023-02-04 Theodor Thornhill <theo@thornhill.no>
+
+ Add tests for compilation support for TypeScript (bug#61104)
+
+ * test/lisp/progmodes/compile-tests.el
+ (compile-tests--test-regexps-data): Add new test-cases.
+ (compile-test-error-regexps): Increase expected errors
+
+2023-02-04 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Add support for TypeScript compilation to compile.el (bug#61104)
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Add regexps.
+
+2023-02-04 Eli Zaretskii <eliz@gnu.org>
+
+ Don't clobber match data in 'y-or-n-p'
+
+ * lisp/subr.el (y-or-n-p): Avoid clobbering caller's match data.
+ (Bug#61091)
+
+2023-02-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ Refine the previous change
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--s-p-query): Fix a typo.
+ (ruby-ts--syntax-propertize): Use pcase-exhaustive to avoid typos.
+ Put the last s-t property after heredoc's end (apparently
+ parse-partial-sexp likes that more). Move first s-t property on
+ percent literals to the very beginning (to be refined later).
+ Differentiate the %r{} literals from /.../ ones -- tree-sitter
+ parses them exactly the same.
+
+2023-02-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add syntax-propertize-function to ruby-ts-mode
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--s-p-query):
+ New variable.
+ (ruby-ts--syntax-propertize): New function.
+ (ruby-ts--parser-after-change): New function.
+ (ruby-ts-mode): Use both of them.
+
+2023-02-03 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'header-line-indent-mode'
+
+ * doc/lispref/modes.texi (Header Lines): Rewrite the documentation
+ of 'header-line-indent-mode' and its two variables. Fix the
+ example.
+ * doc/lispref/display.texi (Pixel Specification): More accurate
+ description of what happens with :align-to in header-lines.
+ Improve indexing. (Bug#61239)
+
+ * src/buffer.c (syms_of_buffer) <header-line-format>:
+ * lisp/display-line-numbers.el (header-line-indent)
+ (header-line-indent-width, header-line-indent-mode): Doc fixes.
+
+ * etc/NEWS: Enhance the announcement of 'header-line-indent-mode'.
+
+2023-02-03 F. Jason Park <jp@neverwas.me>
+
+ Don't casemap erc-sasl-user when set to :nick
+
+ * lisp/erc/erc-sasl.el (erc-sasl-user): Fix doc string.
+ (erc-sasl--get-user): Don't apply casemapping when the option
+ `erc-sasl-user' is set to `:nick'. While many servers and
+ auth-services providers perform case-folding when comparing SASL
+ usernames, only some recognize RFC1459 mappings, which ERC previously
+ applied blindly. Instead, ERC now behaves like other clients in
+ leaving such preparation in the hands of the server. This bug was
+ introduced with changes new to ERC 5.5 and Emacs 29 (bug#29108).
+
+2023-02-03 Robert Pluim <rpluim@gmail.com>
+
+ Improve keymap-global-set and keymap-local-set interactive use fix
+
+ * lisp/keymap.el (keymap-global-set, keymap-local-set): Add optional
+ `interactive' arg and use it to decide when to convert the key
+ specification to a string. Add `advertised-calling-convention'
+ declarations. (Bug#61149)
+
+2023-02-02 Yuan Fu <casouri@gmail.com>
+
+ Make c-ts-mode indent tests side-effect-free
+
+ Running indent tests changes the global value of
+ c-ts-mode-indent-style. That's not good. This change fixes that.
+
+ I also refactored the indent style functions a bit.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--prompt-for-style): New function.
+ (c-ts-mode-set-local-style): New function.
+ (c-ts-mode-set-style): Use c-ts-mode--prompt-for-style. Use
+ derived-mode-p when testing for major mode. Remove check of current
+ buffer's major mode since it doesn't matter.
+
+ * test/lisp/progmodes/c-ts-mode-resources/indent-bsd.erts:
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: Use
+ c-ts-mode-set-local-style to set the indent style locally.
+
+2023-02-02 Yuan Fu <casouri@gmail.com>
+
+ Call treesit_record_change in insert_from_gap_1
+
+ Before this change, insert_from_gap calls treesit_record_change but
+ insert_from_gap_1 doesn't. However, insert_from_gap_1 is a public
+ function and is called in many other places outside of insdel.c. This
+ could lead to tree-sitter's parse tree becoming out-of-sync with the
+ buffer content.
+
+ This change might fix bug#60650.
+
+ * src/insdel.c (insert_from_gap_1): Call treesit_record_change.
+ (insert_from_gap): Remove call to treesit_record_change.
+
+ * admin/notes/tree-sitter/treesit_record_change: New file.
+
+2023-02-02 Yuan Fu <casouri@gmail.com>
+
+ Use c-ts-common-statement-offset for closing brackets too
+
+ Merge c-ts-mode--close-bracket-offset into
+ c-ts-common-statement-offset.
+
+ * lisp/progmodes/c-ts-common.el:
+ (c-ts-common-statement-offset): Handle closing brackets too.
+ (c-ts-mode--close-bracket-offset): Remove function.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Use
+ c-ts-common-statement-offset for closing brackets.
+
+2023-02-02 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements in sqlite.c
+
+ * src/sqlite.c (Fsqlite_next): Doc fix. Return nil if SQLITE_DONE
+ was once seen for this statement. (Bug#61151)
+ (row_to_value): Cons the value in reverse, to avoid the Fnreverse
+ call. Patch by Helmut Eller <eller.helmut@gmail.com>.
+ (Bug#61165)
+
+2023-02-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit_predicate_match): Match node text against regexp without
consing
+
+ * src/treesit.c (treesit_predicate_match): Match node text against
+ regexp without creating a new string object (bug#60953).
+
+ * src/search.c (search_buffer): Make not static.
+ Delete declaration near the beginning of the file.
+
+ * src/lisp.h: Declare it here.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--builtin-method-p):
+ Remove function.
+ (ruby-ts--font-lock-settings): Use the regexp with :match directly.
+
+2023-02-02 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of gdb-mi's dedicated windows
+
+ * doc/emacs/building.texi (Other GDB Buffers): Describe the I/O
+ buffer and commands to show individual specialized windows.
+ Improve indexing.
+
+2023-02-02 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Avoid spurious pause in kill-ring-save (Bug#60841)
+
+ 'indicate-copied-region' checks whether the region is "highlighted"
+ and if not, briefly moves point to mark to give a visual cue of the
+ extent of text that was saved to the kill ring.
+
+ The region is considered "highlighted" if (a) it is active and (b) its
+ face specifies a :background. That latter condition does not account
+ for the multiple ways in which the face can make the region "visually
+ distinct" from the default face, so switch to the more extensive
+ predicate face-differs-from-default-p.
+
+ The patch also fixes a couple of issues with the predicate's
+ implementation, and introduces a new user option in case anyone
+ happened to enjoy unconditional blinking.
+
+ * lisp/faces.el (face-differs-from-default-p): Filter out :extend; add
+ rationale for the attributes we ignore.
+ * lisp/simple.el (copy-region-blink-predicate): Add option to let
+ users explicitly opt into or out of blinking point and mark.
+ (region-indistinguishable-p): New function to detect
+ "if there is currently no active region highlighting", leveraging
+ face-differs-from-default-p.
+ (indicate-copied-region): Use it.
+ * src/xfaces.c (merge_face_ref): Allow :stipple to be nil, since it is
+ a documented valid value for that attribute.
+ * etc/NEWS: Announce user option.
+
+2023-02-02 Eli Zaretskii <eliz@gnu.org>
+
+ Change the default of 'treesit-defun-tactic' for 'c-ts-mode'
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode): Set
+ 'treesit-defun-tactic' as appropriate for C. (Bug#61208)
+
+2023-02-02 Eli Zaretskii <eliz@gnu.org> (tiny change)
+
+ Fix docstring fontification of CL's 'defstruct'
+
+ * lisp/emacs-lisp/lisp-mode.el (defstruct): Set 'doc-string'
+ property. Patch by Nicolas Martyanoff <nicolas@n16f.net>.
+
+2023-02-02 Eli Zaretskii <eliz@gnu.org>
+
+ Teach 'hs-minor-mode' about tree-sitter based modes
+
+ * lisp/progmodes/hideshow.el (hs-special-modes-alist): Teach
+ 'hs-minor-mode' about tree-sitter based modes. (Bug#61232)
+
+2023-02-02 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'repeat-mode' and related variables
+
+ * lisp/bindings.el (next-error-repeat-map)
+ (page-navigation-repeat-map, undo-repeat-map):
+ * lisp/tab-bar.el (tab-bar-switch-repeat-map)
+ (tab-bar-move-repeat-map):
+ * lisp/window.el (other-window-repeat-map)
+ (resize-window-repeat-map): Mention repeatable commands in the doc
+ strings.
+ * lisp/repeat.el (repeat-exit-timeout, repeat-check-key)
+ (repeat-echo-function, repeat-mode, repeat-check-key)
+ (repeat-check-map, repeat-echo-message-string)
+ (repeat-echo-message, repeat-echo-mode-line)
+ (describe-repeat-maps): Improve wording of doc strings.
+ (describe-repeat-maps): Improve wording of the heading line.
+ (Bug#61183)
+
+ * doc/emacs/basic.texi (Repeating): Clarify and improve wording of
+ 'repeat-mode' documentation.
+
+2023-02-01 Nicolas Martyanoff <nicolas@n16f.net>
+
+ (eshell--complete-commands-list): Fix regression in fix to bug#48995
+
+ Copyright-Paperwork-Exempt: Yes
+
+ * lisp/eshell/em-cmpl.el (eshell--complete-commands-list):
+ Fix misuse of `completion-table-dynamic` when completing a file name.
+
+2023-02-01 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/basic.texi (Repeating): Mention describe-repeat-maps
(bug#61183).
+
+ * lisp/repeat.el (describe-repeat-maps): Add more explanation to
+ the docstring. Suggested by Robert Pluim <rpluim@gmail.com>.
+
+2023-02-01 Eli Zaretskii <eliz@gnu.org>
+
+ Unbreak the MS-Windows build
+
+ * src/treesit.c (ts_query_pattern_count) [WINDOWSNT]: Load from
+ the library and define as macro.
+
+2023-01-31 Dmitry Gutov <dgutov@yandex.ru>
+
+ (Ftreesit_query_capture): Cache list of predicates for given pattern
index
+
+ * src/treesit.c (Ftreesit_query_capture):
+ Cache list of predicates for given pattern index (bug#60953).
+
+2023-01-31 Robert Pluim <rpluim@gmail.com>
+
+ * lisp/keymap.el (keymap-global-unset): Correct prompt
+
+2023-01-31 Eli Zaretskii <eliz@gnu.org>
+
+ Fix cursor-in-echo-area on TTY frames
+
+ * src/dispnew.c (update_frame_1): Fix off-by-one error when
+ positioning the cursor in the echo-area. (Bug#61184)
+
+2023-01-30 Jonas Bernoulli <jonas@bernoul.li>
+
+ Update to Transient v0.3.7-196-gb91f509
+
+2023-01-30 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix a coding bug in c-make-keywords-re. This should fix bug
#61135
+
+ * lisp/progmodes/cc-defs.el (c-make-keywords-re): Generate "\>"
components in
+ result regexp when argument ADORN is `appendable'. This fully fixes a
bug
+ which was half-fixed on 2019-01-22.
+
+2023-01-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el (isearch-emoji-by-name): Disable derived emoji
(bug#60740).
+
+ Let-bind emoji--derived to nil to avoid the subsequent selection
+ of derived emoji that fails in transient.el.
+
+2023-01-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix keymap inheritance in descendants of 'c-ts-base-mode'
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode-map): Rename from
+ 'c-ts-mode-map'.
+ (c-ts-base-mode): Adjust accordingly. (Bug#60983)
+
+2023-01-30 Robert Pluim <rpluim@gmail.com>
+
+ Fix interactive use of `keymap-local-set' and `keymap-global-set'
+
+ * lisp/keymap.el (keymap-global-set, keymap-local-set): Convert the
+ read key sequence to a string when called interactively. Based on a
+ patch from Stephen Berman <stephen.berman@gmx.net>. (Bug#61149)
+
+2023-01-30 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix password prompt in Tramp (do not merge)
+
+ * lisp/net/tramp.el (tramp-password-prompt-regexp):
+ Allow alternative trailing colons. (Bug#61168)
+
+2023-01-29 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1-23-gc45a05
+
+2023-01-29 Eli Zaretskii <eliz@gnu.org>
+
+ Document tree-sitter features in the user manual
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-map): Bind "C-c .", for
+ consistency with CC mode.
+ * lisp/treesit.el (treesit-font-lock-level): Doc fix.
+
+ * doc/emacs/programs.texi (C Indent, Custom C Indent): Document
+ the indentation features of 'c-ts-mode'.
+ (Moving by Defuns): Document 'treesit-defun-tactic'.
+ * doc/emacs/files.texi (Visiting): Document
+ 'treesit-max-buffer-size'.
+ * doc/emacs/display.texi (Traditional Font Lock)
+ (Parser-based Font Lock): New subsections.
+ * doc/emacs/emacs.texi (Top): Update top-level menu.
+
+2023-01-29 Randy Taylor <dev@rjt.dev>
+
+ Fix dockerfile-ts-mode line continuation indentation (bug#61131)
+
+ Without this rule, line continuations are only indented after entering
+ the contents for the line and hitting TAB or RET.
+
+ For example:
+ ```
+ EXPOSE 1 \
+ ```
+
+ After hitting RET to go to the next line, point would end up at BOL
+ instead of lining up with the previous entry, like so:
+ ```
+ EXPOSE 1 \
+ 2
+ ```
+
+ The new rule will indent it as so:
+ ```
+ EXPOSE 1 \
+ 2
+ ```
+
+ * lisp/progmodes/dockerfile-ts-mode.el:
+ (dockerfile-ts-mode--indent-rules): New rule.
+ (dockerfile-ts-mode--line-continuation-p)
+ (dockerfile-ts-mode--line-continuation-anchor): New functions.
+
+2023-01-29 Yuan Fu <casouri@gmail.com>
+
+ Use treesit-subtree-stat to determine treesit--font-lock-fast-mode
+
+ * lisp/treesit.el:
+ (treesit--children-covering-range-recurse): Return nil if LIMIT is
+ exceeded.
+ (treesit--font-lock-fast-mode): Change to a ternary value.
+ (treesit-font-lock-fontify-region): Enable fast mode based on the
+ result of treesit-subtree-stat.
+
+2023-01-29 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-subtree-stat
+
+ * src/treesit.c (Ftreesit_subtree_stat): New function.
+ * lisp/treesit.el (treesit): Add to shortdoc.
+
+2023-01-29 Yuan Fu <casouri@gmail.com>
+
+ Move c-ts-mode--statement-offset to c-ts-common.el
+
+ Now it can be used by other C-like languages.
+
+ * lisp/progmodes/c-ts-common.el (c-ts-common-indent-offset):
+ (c-ts-common-indent-block-type-regexp):
+ (c-ts-common-indent-bracketless-type-regexp): New variables.
+ (c-ts-common-statement-offset):
+ (c-ts-mode--fix-bracketless-indent):
+ (c-ts-mode--close-bracket-offset): New functions.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Change
+ c-ts-mode--statement-offset to c-ts-common-statement-offset.
+ The (parent-is "if_statement") rules are now handled by (node-is
+ "compound_statement").
+
+ (c-ts-mode--statement-offset-post-processr):
+ (c-ts-mode--statement-offset):
+ (c-ts-mode--fix-bracketless-indent): Move to c-ts-common.el.
+
+ (c-ts-base-mode): Setup c-ts-common stuff.
+
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: Make the test
+ more challenging.
+
+2023-01-29 Yuan Fu <casouri@gmail.com>
+
+ Fix <> syntax in rust-ts-mode
+
+ Similar to bug#60351, the angle brackets in rust-ts-mode are not
+ recognized as pairs when they should be. This change copies the
+ function used by c++-ts-mode and adapts it to rust-ts-mode.
+
+ * lisp/progmodes/rust-ts-mode.el:
+ (rust-ts-mode--syntax-propertize): New function.
+ (rust-ts-mode): Set up syntax-propertize-function.
+
+2023-01-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix spurious errors on Windows when deleting temporary *.eln files
+
+ * lisp/emacs-lisp/comp.el (comp--native-compile): On MS-Windows,
+ ignore errors when deleting a temporary .eln file. (Bug#60996)
+
+2023-01-28 Theodor Thornhill <theo@thornhill.no>
+
+ Fix java class member without access modifier (bug#61115)
+
+ This
+
+ ```
+ public class T {
+ @Autowired
+ String a;
+ }
+ ```
+
+ Should be indented as:
+
+ ```
+ public class T {
+ @Autowired
+ String a;
+ }
+ ````
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): Add new
+ rule to match edge case of field_declaration indentation.
+
+2023-01-28 Theodor Thornhill <theo@thornhill.no>
+
+ Make treesit-font-lock-level a defcustom
+
+ * lisp/treesit.el (treesit--font-lock-level-setter): Setter for the
+ new defcustom.
+ (treesit-font-lock-level): Turn it into a defcustom.
+
+2023-01-28 Theodor Thornhill <theo@thornhill.no>
+
+ Add c-ts-mode-set-style and :set for c-ts-mode-indent-style
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-style-setter): New
+ setter for the indent style defcustom.
+ (c-ts-mode-indent-style): Don't quote the values and refer to the
+ setter.
+ (c-ts-mode-set-style): New command to interactively set the indent
+ style.
+ (c-ts-mode--get-indent-style): New function renamed from
+ 'c-ts-mode--set-indent-style'.
+
+2023-01-28 Juri Linkov <juri@linkov.net>
+
+ Minor documentation improvements for outline-minor-mode (bug#61062)
+
+ * doc/emacs/text.texi (Outline Minor Mode, Outline Minor Mode):
+ Add pxrefs to "Icons" and "Outline Visibility".
+
+ * etc/NEWS: Mention outline-minor-mode for two modes.
+
+2023-01-28 Brian Leung <leungbk@posteo.net>
+
+ python.el: Use correct regexp when enabling python-ts-mode
+
+ * lisp/progmodes/python.el: Use "python[0-9.]*" regexp for
+ 'interpreter-mode-alist', and not 'auto-mode-alist'. (Bug#61090)
+
+2023-01-27 Dmitry Gutov <dgutov@yandex.ru>
+
+ Make project-current not error out inside non-existent dirs
+
+ * lisp/progmodes/project.el (project-try-vc):
+ Use condition-case to catch 'file-missing' (bug#61107).
+
+ * test/lisp/progmodes/project-tests.el
+ (project-vc-nonexistent-directory-no-error): New test.
+
+2023-01-27 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'shell-command-dont-erase-buffer'
+
+ * doc/emacs/misc.texi (Single Shell):
+ * lisp/simple.el (shell-command, shell-command-on-region):
+ Document that non-nil value of 'shell-command-dont-erase-buffer'
+ affects what is displayed in the echo area after the command.
+ (Bug#61100)
+
+2023-01-27 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fix errors in fontification of JavaScript import-statements (bug#61083)
+
+ Currently js-ts-mode handles imports with aliases incorrectly. To be
+ consistent with how we otherwise do things, we should only highlight
+ the variable which is new and/or introduced, in this case "someAlias".
+
+ Attached is a patch which fontifies import-declarations somewhat more
+ correctly.
+
+ The following cases have been tested and all fontify properly:
+
+ import gnu from "fsf"; // highlights gnu
+ import { gnu2 } from "fsf2"; // highlights gnu2
+ import { gnu as gnu3 } from "fsf3"; // highlights gnu3
+ import * as gnu4 from "fsf4"; // highlights gnu4
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings): Add new
+ import_clause rules that adhere to the comment above.
+
+2023-01-27 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fix fontification TypeScript of import-statements (bug#61081)
+
+ Currently typescript-ts-mode and tsx-ts-mode handles imports with
+ aliases incorrectly.
+
+ Consider the following case:
+
+ import { someFunc as someAlias } from "module";
+
+ In this case the entire import ("someFunc as someAlias") will be
+ highlighted as a variable name. "as" is also highlighted as a
+ variable, rather than a reserved keyword.
+
+ To be consistent with how we otherwise do things, we should only
+ highlight the variable which is new and/or introduced, in this case
+ "someAlias".
+
+ Attached is a patch which fontifies import-declarations somewhat more
+ correctly.
+
+ The following cases have been tested and all fontify properly:
+
+ import gnu from "fsf"; // highlights gnu
+ import { gnu2 } from "fsf2"; // highlights gnu2
+ import { gnu as gnu3 } from "fsf3"; // highlights gnu3
+ import * as gnu4 from "fsf4"; // highlights gnu4
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Tweak import_clause rules to
+ adhere to the comment above.
+
+2023-01-26 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Work around package.el transitive dependency bug
+
+ Eglot already depends transitively on Xref 1.4.0 via Project,
+ but package.el doesn't pick up on this in Emacs 28
+ (which has Xref 1.3.0).
+
+ * lisp/progmodes/eglot.el (Version): Bump to 1.11.
+ (Package-Requires): Explicitly require Xref 1.4.0, which is
+ the version already required by Project, for the benefit of
+ Emacs 28 (bug#61048).
+
+2023-01-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix xt-mouse on terminals that report UTF-8 encoded coordinates
+
+ * lisp/xt-mouse.el (xterm-mouse--read-coordinate): Fix conversion
+ of mouse coordinates in rxvt-unicode. Patches by Vladimir
+ Panteleev <git@cy.md> and Jared Finder <jared@finder.org>.
+ (Bug#61022)
+
+2023-01-26 Randy Taylor <dev@rjt.dev>
+
+ Fix go-ts-mode indentation and set indent offset to 8 (Bug#61006)
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode-indent-offset): Change
+ default value to 8.
+ (go-ts-mode--indent-rules): Add indentation for parameters and
+ interfaces.
+
+2023-01-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix doc strings of window-splitting commands
+
+ * lisp/window.el (split-window-below, split-window-right): Doc
+ fixes. (Bug#60886)
+
+2023-01-26 Yuan Fu <casouri@gmail.com>
+
+ Fix indentation for c-ts-mode (bug#61026)
+
+ Fix indentation for things like
+
+ while (true)
+ if (true)
+ {
+ puts ("Hello");
+ }
+
+ Note that the outer while loop omits brackets.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--statement-offset-post-processr): New variable.
+ (c-ts-mode--statement-offset): Use the new function.
+ (c-ts-mode--fix-bracketless-indent): New function.
+ (c-ts-base-mode): Use the new function.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New tests.
+
+2023-01-26 Yuan Fu <casouri@gmail.com>
+
+ Fix call to treesit_record_change in insdel.c
+
+ The start position of the change shouldn't be PT_BYTE, IIUC PT_BYTE is
+ actually the end position.
+
+ * src/insdel.c (insert_from_buffer): Move to here.
+ (insert_from_buffer_1): Remove call to treesit_record_change.
+
+2023-01-26 Randy Taylor <dev@rjt.dev>
+
+ Add support for building tree-sitter modules with MinGW
+
+ * admin/notes/tree-sitter/build-module/build.sh: Add support for
+ building tree-sitter modules with MinGW.
+
+2023-01-25 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp.el (tramp-wrong-passwd-regexp): Fix regexp.
+
+2023-01-25 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/text.texi (Outline Minor Mode): New node split from
"Outline Mode"
+
+ (Outline Mode): Move all outline-minor-mode related information to the
+ new node "Outline Minor Mode" (bug#61062).
+
+2023-01-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Don't reindent when "class" or "def" is under "ERROR"
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Don't reindent when "class" or "def" is under "ERROR" (bug#61017).
+
+2023-01-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ treesit-install-language-grammar: Provide default repo url
+
+ * lisp/treesit.el (treesit--check-repo-url): New function.
+ (treesit--install-language-grammar-build-recipe): Use it (bug#61051).
+
+2023-01-25 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix Dired face for directory symlinks
+
+ * lisp/dired.el (dired-font-lock-keywords): Fontify directory
+ symlinks with the value of dired-directory-face rather than its name
+ as a (nonexistent) face (bug#60977).
+
+2023-01-25 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Pacify --without-x unused function warning
+
+ * src/xfaces.c (font_maybe_unset_attribute): Move definition...
+ [HAVE_WINDOW_SYSTEM] (font_maybe_unset_attribute): ...to here, since
+ the function is used only when we HAVE_WINDOW_SYSTEM (bug#61049).
+
+2023-01-25 Robert Pluim <rpluim@gmail.com>
+
+ Announce outline.el keymaps
+
+ * etc/NEWS: Announce new keymaps.
+
+2023-01-25 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fix fontification of function-valued variables (bug#61053)
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Remove overrides and reorder
+ the variable_declarator rule.
+
+2023-01-25 Theodor Thornhill <theo@thornhill.no>
+
+ Add new java indent rules
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): Check
+ for enum_body_declarations and switch_label.
+
+2023-01-24 Juri Linkov <juri@linkov.net>
+
+ Handle relative file names in vc-resynch-window and vc-resynch-buffer
+
+ * lisp/vc/vc-dispatcher.el (vc-resynch-window, vc-resynch-buffer):
+ While comparing with `buffer-file-name' if `file' is not absolute
+ use `expand-file-name' in `vc-root-dir'. This fixes the case of
+ refreshing the buffers after typing `C-x v = C-x v u' (bug#60897).
+
+2023-01-24 Robert Pluim <rpluim@gmail.com>
+
+ Use named keymaps for outline buttons
+
+ https://lists.gnu.org/archive/html/emacs-devel/2023-01/msg00334.html
+
+ * lisp/outline.el (outline-button-icon-map)
+ (outline-overlay-button-map, outline-inserted-button-map):
+ Keymaps refactored from outline--create-button-icons and
+ outline--insert-button.
+ (outline--create-button-icons, outline--insert-button): Move
+ keymaps to separate variables.
+
+2023-01-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc-bzr.el (vc-bzr--pushpull): Return buffer's process.
+
+ * lisp/vc/vc-git.el (vc-git--pushpull): Add comment.
+
+ * lisp/vc/vc.el (vc-pull-and-push): Expand docstring about
+ prerequisites for backend to support this command (bug#60569).
+
+2023-01-23 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Change the default value of objc-font-lock-extra-types to nil
+
+ This fixes bug #59234, in which random identifiers in a .m file were
getting
+ fontified as types.
+
+ * lisp/progmodes/cc-vars.el (objc-font-lock-extra-types): Change the
default
+ value to nil.
+
+ * etc/NEWS: Mention the change in default value of
objc-font-lock-extra-types,
+ and how to get the old behavior back.
+
+2023-01-23 Jim Porter <jporterbugs@gmail.com>
+
+ Don't try to make a pipe process for remote processes in Eshell
+
+ Tramp currently isn't able to handle this, so the result will just
+ produce an error (bug#61024).
+
+ * lisp/eshell/esh-proc.el (eshell-gather-process-output): Check for a
+ remote 'default-directory' before trying to make a pipe process.
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-var-test/output/remote-redirect): New test.
+
+2023-01-23 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/startup.el (command-line): Fix warning message. (Bug#61014)
+
+2023-01-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/find-dired.el (find-dired): Fix bug where M-p skips first
history item.
+
+ Don't apply "skip first duplicate history item" trick when find-args
+ used as initial input is nil.
+
+2023-01-22 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1-16-ge37e9b
+
+2023-01-22 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--predefined-variables): Fix the $` and $' entries
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--predefined-variables):
+ Fix the $` and $' entries, somehow replaced by curly quote.
+
+ Reported by Mattias Engdegård.
+
+2023-01-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/find-dired.el (find-dired-with-command): Quote
find-command-history.
+
+2023-01-22 Juri Linkov <juri@linkov.net>
+
+ Generalize vc-pull-and-push to support more backends (bug#60569)
+
+ * lisp/vc/vc-git.el (vc-git-pull-and-push): Remove and move its logic to
+ vc-pull-and-push.
+
+ * lisp/vc/vc.el (vc-pull-and-push): Add code from vc-git-pull-and-push.
+
+2023-01-22 Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>
+
+ Add test suite for sgml-html-meta-auto-coding-function
+
+ * test/lisp/international/mule-tests.el (sgml-html-meta-pre)
+ (sgml-html-meta-post, sgml-html-meta-run, sgml-html-meta-utf-8)
+ (sgml-html-meta-windows-hebrew, sgml-html-meta-none)
+ (sgml-html-meta-unknown-coding, sgml-html-meta-no-pre)
+ (sgml-html-meta-no-post-less-than-10lines)
+ (sgml-html-meta-no-post-10lines, sgml-html-meta-utf-8-with-bom): Add.
+
+2023-01-22 Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>
+
+ Fix decoding HTML files from archives
+
+ * lisp/international/mule.el (sgml-xml-auto-coding-function): Avoid
+ signaling an error from coding-system-equal when the XML encoding tag
+ specifies an encoding whose type is 'charset'. (Bug#61005)
+
+ This is the same fix as in #df7ed10e for
+ sgml-xml-auto-coding-function.
+
+2023-01-22 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid crashes in batch Emacs sub-processes on MS-Windows
+
+ * src/w32.c (shutdown_handler): When run in a separate thread,
+ don't call functions that only the main (a.k.a. "Lisp") thread can
+ call; instead, arrange for maybe_quit to kill Emacs.
+ * src/w32fns.c (emacs_abort): Don't show GUI Abort dialogs in
+ non-interactive sessions. (Bug#60556)
+
+2023-01-22 Theodor Thornhill <theo@thornhill.no>
+
+ Tweak BSD style indentation (bug#60984)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Simplify
+ rules.
+ * test/lisp/progmodes/c-ts-mode-resources/indent-bsd.erts: New
+ testfile with bsd style indentation examples.
+ * test/lisp/progmodes/c-ts-mode-tests.el
+ (c-ts-mode-test-indentation-bsd): Add a test for the new style.
+
+2023-01-22 Theodor Thornhill <theo@thornhill.no>
+
+ Fix typo of exposed symbol name
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Remove
+ double hyphen.
+
+2023-01-22 Theodor Thornhill <theo@thornhill.no>
+
+ Fix typo after move to common lib (bug#61001)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Use correct
+ preset.
+
+2023-01-21 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix two additional cases with ruby-method-call-indent=nil
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Fix two additional cases with ruby-method-call-indent=nil.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-method-call-indent.rb:
+ Add examples.
+
+2023-01-21 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-mode.el: Expand some docstrings with examples
+
+ * lisp/progmodes/ruby-mode.el (ruby-align-chained-calls)
+ (ruby-method-params-indent): Expand docstrings with examples.
+
+2023-01-21 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes for Haiku
+
+ * lisp/frame.el (display-symbol-keys-p):
+ * lisp/simple.el (normal-erase-is-backspace-setup-frame): Add
+ support for Haiku.
+
+2023-01-21 Theodor Thornhill <theo@thornhill.no>
+
+ Move c-like common utils into own library (bug#60961)
+
+ * lisp/progmodes/c-ts-common.el: New file.
+ * lisp/progmodes/c-ts-mode.el (treesit-induce-sparse-tree): Remove
+ unused declaration.
+ (c-ts-mode--indent-styles): Refer to the new library.
+ (c-ts-mode--looking-at-star,
+ c-ts-mode--comment-start-after-first-star,
+ c-ts-mode--comment-2nd-line-matcher,
+ c-ts-mode--comment-2nd-line-anchor, c-ts-mode--comment-regexp,
+ c-ts-mode--fill-paragraph, c-ts-mode--fill-block-comment): Move to
+ c-ts-common and expose as public.
+ (c-ts-mode-comment-setup): Move to c-ts-common.
+ * lisp/progmodes/csharp-mode.el (c-ts-common): Require new library.
+ (csharp-ts-mode--indent-rules): Refer to the new symbols.
+ (csharp-ts-mode): Use new function.
+ * lisp/progmodes/java-ts-mode.el (c-ts-common): Require new library.
+ (java-ts-mode--indent-rules): Refer to the new symbols.
+ (java-ts-mode): Use new function.
+ * lisp/progmodes/js.el (c-ts-common): Require new library.
+ (js--treesit-indent-rules): Refer to the new symbols.
+ (js-ts-mode): Use new function.
+ * lisp/progmodes/rust-ts-mode.el (c-ts-common): Require new library.
+ (rust-ts-mode--indent-rules): Refer to the new symbols.
+ (rust-ts-mode): Use new function.
+ * lisp/progmodes/typescript-ts-mode.el (c-ts-common): Require new
+ library.
+ (typescript-ts-mode--indent-rules): Refer to the new symbols.
+ (typescript-ts-base-mode): Use new function.
+
+2023-01-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix file-regular-p in Tramp
+
+ * test/lisp/net/tramp-archive-tests.el
+ (tramp-archive-test18-file-attributes)
+ (tramp-archive-test21-file-links):
+ * test/lisp/net/tramp-tests.el (tramp-test18-file-attributes)
+ (tramp-test21-file-links): Adapt tests.
+
+ * lisp/net/tramp.el (tramp-handle-file-regular-p): Fix symlink
+ case. (Bug#60943)
+
+2023-01-21 Theodor Thornhill <theo@thornhill.no>
+
+ Fix typo in c-ts-mode (bug#60932)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-indent-block-type-regexp):
+ enumerator, not enumeratior.
+
+2023-01-20 Mike Kupfer <kupfer@rawbw.com>
+
+ MH-E: handle removal of mhparam libdir from nmh 1.8
+
+ * lisp/mh-e/mh-e.el (mh-variant-nmh-info): If "libdir" doesn't
+ work, try "libexecdir" (Bug#60952) (SF#491).
+
+2023-01-20 Theodor Thornhill <theo@thornhill.no>
+
+ Use point-min to anchor top-level constructs (bug#60602)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): New anchor.
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): New
+ anchor.
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules): New anchor.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): New anchor.
+
+2023-01-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/org/ob-ruby.el: Fix outdated comments.
+
+2023-01-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ (project-try-vc): Add string-start and string-end anchors to marker-re
+
+ * lisp/progmodes/project.el (project-try-vc):
+ Add string-start and string-end anchors to marker-re (bug#60956).
+
+2023-01-20 Robert Pluim <rpluim@gmail.com>
+
+ Make `keymap-set-after' work for menus
+
+ It still doesn't work for an AFTER that's a key, though, since
+ `key-parse' produces vectors, and keymaps contain integers.
+
+ * lisp/keymap.el (keymap-set-after): Only parse AFTER as a key if it's
+ a string. For consistency, use `key-parse' on the definition if it's
+ a string, just like `keymap-set'.
+ * test/src/keymap-tests.el (keymap-tests--command-3): New dummy command.
+ (keymap-set-after-menus): New test. Check that we can insert a menu
+ item after a specific entry.
+
+2023-01-20 Robert Pluim <rpluim@gmail.com>
+
+ Use `key-parse' in `keymap-lookup'
+
+ It's stricter than `kbd', and doesn't try to do anything with key
+ sequences that look like macros.
+
+ * lisp/keymap.el (keymap-lookup): Use `key-parse' instead of `kbd'.
+ * test/src/keymap-tests.el (keymap-set-after-menus): Test the
+ `keymap-set-after' API.
+
+2023-01-20 Robert Pluim <rpluim@gmail.com>
+
+ Improve `keymap-set-after' documentation
+
+ * doc/lispref/keymaps.texi (Changing Key Bindings): Mention
`key-valid-p'
+ (Modifying Menus): Correct description of KEY arg.
+
+2023-01-20 Robert Pluim <rpluim@gmail.com>
+
+ Handle after arg correctly in `keymap-set-after'
+
+ * lisp/keymap.el (keymap-set-after): AFTER: t means the same as nil,
+ so just change it to nil. (Bug#60867)
+
+2023-01-20 F. Jason Park <jp@neverwas.me>
+
+ Don't load erc-goodies atop erc.el
+
+ * lisp/erc/erc.el: Commit c2d657e7c4fd9685591f2120007eabf78745919d
+ "Move ERC's core dependencies to a separate file" ironed out ERC's
+ interwoven dependencies for the better but didn't cleanly sidestep the
+ goodies interdependency, specifically with regard to custom options.
+ This reverts the tiny portion impacting this aspect by once again
+ requiring `erc-goodies' at the very end of ERC's main library. Special
+ thanks to Libera.Chat user jrm for reporting this bug.
+
+2023-01-20 Eli Zaretskii <eliz@gnu.org>
+
+ Make tree-sitter based modes optional
+
+ * lisp/progmodes/c-ts-mode.el: Update Commentary. Make
+ 'auto-mode-alist' update conditional on the tree-sitter and
+ grammar libraries being available.
+ * lisp/progmodes/cmake-ts-mode.el:
+ * lisp/progmodes/csharp-mode.el:
+ * lisp/progmodes/dockerfile-ts-mode.el:
+ * lisp/progmodes/go-ts-mode.el:
+ * lisp/progmodes/java-ts-mode.el:
+ * lisp/progmodes/js.el:
+ * lisp/progmodes/json-ts-mode.el:
+ * lisp/progmodes/python.el:
+ * lisp/progmodes/ruby-ts-mode.el:
+ * lisp/progmodes/typescript-ts-mode.el:
+ * lisp/textmodes/css-mode.el:
+ * lisp/textmodes/toml-ts-mode.el:
+ * lisp/textmodes/yaml-ts-mode.el: Make 'auto-mode-alist' update
+ for tree-sitter based modes be conditional on the tree-sitter and
+ grammar libraries being available. (Bug#60559)
+
+2023-01-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Claw back half of the performance drop from last change
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--builtin-method-p):
+ New function.
+ (ruby-ts--font-lock-settings): Use it instead of :match.
+
+2023-01-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts-mode): Rename 'builtin-functions' to 'builtin-function'
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings)
+ (ruby-ts-mode): Rename 'builtin-functions' to 'builtin-function',
+ for consistency with similar features.
+
+2023-01-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Highlight builtin methods
+
+ * lisp/progmodes/ruby-mode.el (ruby-builtin-methods-with-reqs)
+ (ruby-builtin-methods-no-reqs): New constants, extracted.
+ (ruby-font-lock-keywords): Replace values with references.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--builtin-methods): New
+ variable. Construct regexp from aforementioned constants' values.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Use it.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts-mode):
+ Add new font-lock feature: builtin-functions.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--predefined-constants)
+ (ruby-ts--predefined-variables): Unrelated to the rest of the
+ patch, add string-start and string-end anchors.
+
+2023-01-19 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indent (bug#60873)
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--statement-offset): Handle the edge case.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: Add a test.
+
+2023-01-19 Yuan Fu <casouri@gmail.com>
+
+ Fix various problems in treesit-explore-mode (bug#60800)
+
+ * lisp/treesit.el:
+ (treesit--explorer-kill-explorer-buffer): New function.
+ (treesit-explore-mode):
+ 1. Move prompt for language earlier, and terminate early if language
+ not available.
+ 2. Make sure desktop-save doesn't save the explorer buffer.
+ 3. Kill the explorer buffer when the source buffer is killed.
+
+2023-01-19 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Fix an oversight in advice.el
+
+ This fixes an oversight from 77c3c464a16: "* lisp/emacs-lisp/advice.el
+ (ad-advised-functions): Make it a plain list" that caused an issue as
+ reported in Bug#60893.
+ * lisp/emacs-lisp/advice.el (ad-read-advised-function): Adjust to
+ handle the new type of elements of `ad-advised-functions'.
+
+2023-01-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit-simple-indent-presets): Have n-p-gp check for grandparent's
presence
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Have n-p-gp
+ check for grandparent's presence before checking its type.
+
+2023-01-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-toggle-block: Fix in ruby-ts-mode
+
+ * lisp/progmodes/ruby-mode.el (ruby-toggle-block): Make it work
+ with ruby-ts-mode. ruby-forward-sexp checks ruby-use-smie.
+
+2023-01-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--indent-rules): Indent inside empty parens properly
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Consider the case when there are no arguments inside the call yet.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el
+ (ruby-ts-indent-call-no-args): Add test.
+
+2023-01-19 Kai Tetzlaff <emacs@tetzco.de>
+
+ Fix bug in 'sieve-manage--append-to-log'
+
+ * lisp/net/sieve-manage.el (sieve-manage--append-to-log): Fix
+ log buffer creation. (Bug#54154) Do not merge to master.
+
+2023-01-19 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Prevent two classes of "type" prematurely entering
c-found-types
+
+ This fixes bug #60769. The two classes of "type" are foo and bar in
+ "foo d(bar () ...)", where the d could be a mistyped C-M-d.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): New local
variable
+ got-arglist. Refactor a sequence of enclosed `if' forms into a `cond'
form.
+ Set got-arglist when needed. In CASE 2, set unsafe-maybe to inhibit foo
+ being entered into c-found-types. In CASE 19, likewise set
unsafe-maybe, to
+ inhibit bar entering c-found-types.
+
+2023-01-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Use font-lock-constant-face for true/false/nil
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Use font-lock-constant-face for true/false/nil.
+
+2023-01-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--indent-rules): Add a rule for continuation of a hash pair
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Add a rule for continuation of a hash pair.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb: Add examples.
+
+2023-01-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--parent-call-or-bol): Handle more cases with nested literals
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--parent-call-or-bol):
+ Handle more cases with nested literals.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb: Add examples.
+
+2023-01-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--statement-container-regexp): Remove "parenthesized_statements"
+
+ * lisp/progmodes/ruby-ts-mode.el
+ (ruby-ts--statement-container-regexp): Remove
+ "parenthesized_statements", it's not really a statement container,
+ not one we'd use for indentation alignment anyway.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb: Add examples.
+
+2023-01-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Handle indent in parenless calls much closer to ruby-mode
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--parent-call-or-bol):
+ New function.
+ (ruby-ts--indent-rules): Use it for cases which need special
+ anchoring logic when inside a parenless method call.
+ Remove the ad-hoc handling of pair-hash-pair etc indentation,
+ which was there only for the parenless cases, apparently.
+ Have "No paren, ruby-parenless-call-arguments-indent is nil" case
+ align to the statement, if only because ruby-mode does that.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el:
+ Run indent test for ruby-parenless-call-arguments-indent.rb.
+
+2023-01-18 Juri Linkov <juri@linkov.net>
+
+ Fix split-window-below for the case when split-window-keep-point is nil.
+
+ * lisp/window.el (split-window-below): Don't try to move point when
+ split-window-keep-point is nil and window-to-split is not the selected
window
+ or nil (that defaults to the selected window) because code makes sense
+ only for the selected window.
+ (split-window-below, split-window-right): Improve docstrings (bug#60886)
+
+2023-01-18 Juri Linkov <juri@linkov.net>
+
+ Rebind in read-regexp-map ‘M-c’ to ‘M-s c’ compatible with search-map
+
+ Also it's compatible with 'M-s c' (isearch-toggle-case-fold)
+ used during Isearch. Also makes possible to use the global keybinding
+ 'M-c' (capitalize-dwim) in the minibuffer.
+
+ * doc/lispref/minibuf.texi (Text from Minibuffer): Rename ‘M-c’ to ‘M-s
c’.
+
+ * lisp/replace.el (read-regexp-map): Rebind ‘M-c’ to ‘M-s c’
(bug#60741).
+ (read-regexp-toggle-case-fold): Rename from
read-regexp-toggle-case-folding
+ to more standard name.
+
+2023-01-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc-dir.el: Make keys ‘% m’ and ‘* %’ compatible with Dired
+
+ (vc-dir-mode-map): Replace ‘%’ for vc-dir-mark-by-regexp
+ with ‘% m’ in regexp-map and ‘* %’ in mark-map (bug#60887).
+
+ * doc/emacs/maintaining.texi (VC Directory Commands): Replace ‘%’
+ with ‘% m’ and ‘* %’. Mention vc-dir-mark-registered-files.
+
+2023-01-18 Jim Porter <jporterbugs@gmail.com>
+
+ Use proper types for Eshell warnings
+
+ * lisp/eshell/esh-var.el (eshell-get-variable):
+ * lisp/eshell/em-basic.el (eshell/echo): Don't use ':warning'; that's a
+ warning level, not a warning type.
+
+2023-01-18 Eli Zaretskii <eliz@gnu.org>
+
+ Improve the documentation of 'auto-mode-alist' search
+
+ * doc/emacs/modes.texi (Choosing Modes): Expand the description of
+ "recursive extension stripping" using 'auto-mode-alist'.
+ (Bug#60930)
+
+2023-01-18 Yuan Fu <casouri@gmail.com>
+
+ Revert "Revert "Add c-or-c++-ts-mode (bug#59613)""
+
+ This reverts commit d46f7f4edcce14e6cbd8e2d7091dbabbe08defc1.
+
+ Aaaactually, we need this, otherwise we can't use tree-sitter based C
+ mode for header files.
+
+2023-01-18 Yuan Fu <casouri@gmail.com>
+
+ Make it harder to misactivate tree-sitter font-lock fast mode
+
+ This has been brought up in bug#60691 and bug#60223. I proposed a fix
+ by testing the size of the tree rather than measuring the query time.
+ But after some thought, I fear that just looking at the size will give
+ us false-negatives. So I kept the time-based activation, just added a
+ grace count to reduce false-positives.
+
+ * lisp/treesit.el:
+ (treesit--font-lock-fast-mode-grace-count): New variable.
+ (treesit--font-lock-notifier): Only activate fast mode after 5
+ offenses.
+
+2023-01-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Obey the option ruby-method-call-indent
+
+ * lisp/progmodes/ruby-ts-mode.el
+ (ruby-ts--method-call-indent-p): New function.
+ (ruby-ts--indent-rules): Use it.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el:
+ Run indent test for ruby-method-call-indent.rb.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb:
+ Add explicit value for ruby-method-call-indent.
+
+2023-01-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Obey the option ruby-after-operator-indent
+
+ * lisp/progmodes/ruby-ts-mode.el
+ (ruby-ts--after-op-indent-p): New function.
+ (ruby-ts--indent-rules): Use it.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el:
+ Run indent test for ruby-after-operator-indent.rb.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb:
+ Make sure indentation vars are at their default values.
+
+2023-01-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix indent after operator or conditional
+
+ Make it match ruby-mode's indentation behavior.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--binary-indent-anchor):
+ New function.
+ (ruby-ts--indent-rules): Use it instead of a composite matcher.
+ Add a rule for 'conditional'.
+ (ruby-ts--assignment-ancestor, ruby-ts--is-in-condition)
+ (ruby-ts--endless-method): Remove.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb:
+ Add examples.
+
+2023-01-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix/change indentation of a continuation method call
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Fix/change indentation of a continuation method call.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb:
+ New examples.
+
+2023-01-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix indent inside parenthesized_expr and else/end after
unless
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Fix indentation for parenthesized_expression and else/end after
+ 'unless'.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb:
+ New examples.
+
+2023-01-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Fix the rules for hanging arrays and hashes
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--indent-rules):
+ Fix the rules for hanging arrays and hashes (to line up to
+ parent-bol instead of the opening brace).
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-ts.rb:
+ New file with examples.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el: Use it here.
+
+2023-01-17 Jim Porter <jporterbugs@gmail.com>
+
+ Add more detail about how to invoke Eshell commands
+
+ * doc/misc/eshell.texi (Variables): Move footnote explaining "REPL"
+ from here...
+ (Top): ... to its first use here.
+ (Commands): Move explanation about kernel functions to here.
+ (Invocation): Describe command form and Lisp form. Fix documentation
+ about priority of commands in command form.
+ (Arguments): Add a cross reference to the Invocation node.
+
+2023-01-17 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: On removal of "typedef", remove pertinent types from
c-found-types
+
+ For this purpose, record the type names declared by typedef in a text
+ property, c-typedef, on the typedef. On any change to that "typedef"
or a
+ type, remove the old identifier(s) from c-found-types.
+
+ This should fix bug #59671.
+
+ * lisp/progmodes/cc-defs.el (c-search-forward-non-nil-char-property):
New
+ macro.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): Move the
scope of
+ identifier-start from the "inner" let form to the outer one. Amend the
+ return value such that the middle element of the second element is now
the
+ position of the "typedef", not merely non-nil.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-declarators): Disregard the
LIMIT
+ parameter when fontifying the declarators of a typedef construct. Also
in
+ this case, set the c-typedef text property on the "typedef" to the list
of
+ declared types. Amend this list when these declared types change.
+ (c-font-lock-single-decl): Massage the `types' argument given to
+ c-font-lock-declarators.
+ (c-font-lock-cut-off-declarators): Amend to work when the starting
point of
+ the fontification is inside a brace block.
+
+ * lisp/progmodes/cc-mode.el (c-before-change-de-typedef)
+ (c-after-change-de-typedef): New functions.
+ (c-update-new-id): Replace the erroneous c-end-of-current-token with a
clause
+ containing c-forward-token-2.
+ (c-before-change): Call c-before-change-de-typedef.
+ (c-after-change): Call c-after-change-de-typedef.
+
+2023-01-17 F. Jason Park <jp@neverwas.me>
+
+ Don't preserve non-module minor modes in erc-open
+
+ * lisp/erc/erc-common.el (define-erc-module): Add symbol property
+ `erc-module' to minor modes defined as part of a module.
+ * lisp/erc/erc.el (erc--merge-local-modes): Be more conservative when
+ persisting local minor-mode state across ERC sessions. User and
+ third-party modes that were not defined via `define-erc-modules'
+ should be left alone.
+ (erc-open): Run major-mode hooks and enable minor modes after prompt
+ has been set up. This ensures that module-setup code can access a
+ fully initialized `erc-input-marker'.
+ * test/lisp/erc/erc-tests.el (erc--merge-local-modes): Add mocks for
+ `erc-module' symbol property and a test case covering some foreign ERC
+ mode.
+ (define-erc-module--global, define-erc-module--local): Expect the
+ `erc-module' symbol property to be defined for mode symbols and
+ aliases. (Bug#60784.)
+
+2023-01-17 F. Jason Park <jp@neverwas.me>
+
+ Use correct buffer for local-module vars in erc-open
+
+ * lisp/erc/erc.el (erc--target-priors): New internal variable to do
+ for target buffers what `erc--server-reconnecting' does for server
+ buffers.
+ (erc-open): Source the state of a local module's mode variable from
+ its actual buffer rather than its server buffer. Additionally, make
+ all local variables from a prior session available to
+ module-activation functions and `erc-mode' hooks, even when
+ `erc-reuse-buffers' is nil. This bug arrived with the introduction of
+ "local-modules" (bug#57955).
+
+ * test/lisp/erc/erc-scenarios-base-local-modules.el
+ (erc-scenarios-base-local-modules--toggle-helpers): Remove useless
+ `with-current-buffer'.
+ (erc-scenarios-base-local-modules--local-var, erc--phony-sblm--enable,
+ erc--phony-sblm--disable, erc--phony-sblm--mode): Add fake local
+ module and data var for test scenario.
+ (erc-scenarios-base-local-modules--var-persistence) Add slightly hacky
+ test case with promise to improve later when splitting the file.
+
+2023-01-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of warnings on w32 console
+
+ * lisp/emacs-lisp/warnings.el (warnings-suppress): Use alternative
+ symbol for TTY frames on MS-Windows.
+
+2023-01-17 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix buffer-list-update-hook for indirect buffers
+
+ Fmake_indirect_buffer can be told whether to run buffer hooks since
+ bug#49160, but until now it ran buffer-list-update-hook irrespective
+ of this.
+
+ * src/buffer.c (Fmake_indirect_buffer): Don't run
+ buffer-list-update-hook when called with a non-nil
+ INHIBIT-BUFFER-HOOKS argument.
+ (run_buffer_list_update_hook): Don't special-case NULL argument, as
+ no such callers remain.
+
+ * test/src/buffer-tests.el
+ (buffer-tests-inhibit-buffer-hooks-indirect): Test whether indirect
+ buffer hooks are run regardless of whether base buffer hooks are
+ inhibited. Check that all three buffer hooks, not just
+ kill-buffer-query-functions, are inhibited.
+
+2023-01-17 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-node-first-child-for-pos (bug#60127)
+
+ The problem is due to a bug in ts_node_first_child_for_pos, but
+ tree-sitter is moving pretty slowly right now so I reimplemented a
+ correct version of it in treesit.c.
+
+ * src/treesit.c (treesit_cursor_first_child_for_byte): New function.
+ (Ftreesit_node_first_child_for_pos): Use the new function.
+
+2023-01-16 Mattias Engdegård <mattiase@acm.org>
+
+ Fix hfy-exclude-file-rules (bug#60562)
+
+ * lisp/htmlfontify.el (hfy-exclude-file-rules):
+ Fix broken defcustom type; no longer fails test-custom-opts.
+ Fix regexps not to use newline-sensitive patterns like `.` and `$`
+ which do not make sense when matching file names.
+ Better doc string.
+ * lisp/htmlfontify.el (hfy-list-files): Simplify regexp argument.
+
+2023-01-16 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Prevent ids in temporary "declarators" getting into
c-found-types
+
+ This should fix bug #60765. In the scenario type an identifier in
front of
+ foo (bar, baz), as when started a new statement. This temporarily
makes the
+ function call a declarator, and bar and baz types. Don't enter bar and
baz
+ into c-found-types.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1) (CASE 6): When
a
+ 'maybe type triggers this case, set `unsafe-maybe' to non-nil.
+
+2023-01-16 João Távora <joaotavora@gmail.com>
+
+ Fix M-x eglot prompt when connection already exists (bug#60557)
+
+ Before this change, if a current connection existed at the time of M-x
+ eglot, user would be first asked to enter into M-x eglot's interactive
+ spec details about new command line arguments, and only afterwards be
+ prompted about what to do with the current connection (which could be
+ to reconnect to it using the same arguments, or tear it down and make
+ a new one).
+
+ This is very confusing, as users may not be fully aware of the
+ distinction between "reconnect" vs "disconnect-and-connect". They
+ might not know if any new command line arguments provided are taking
+ effect or not.
+
+ This change simplifies this and removes the option to "reconnect
+ instead" from M-x eglot (users can do that at any time via M-x
+ eglot-reconnect). It also ensures that users are informed about a
+ current connection before asking to enter new command line arguments
+ and not the other way round.
+
+ * lisp/progmodes/eglot.el (eglot): Rework.
+
+2023-01-16 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter indent preset function (bug#60270)
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Fix
+ prev-adaptive-prefix so it doesn't return nil if the previous line has
+ no prefix.
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New test.
+
+2023-01-15 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Support the option ruby-block-indent
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--block-indent-anchor):
+ New function.
+ (ruby-ts--indent-rules): Use it.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el:
+ Run indent test for ruby-block-indent.rb.
+
+2023-01-15 Theodor Thornhill <theo@thornhill.no>
+
+ Improve indentation for jsx
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Use more parent
+ anchors and fix typo with wrong indent offset variable.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): Use more parent anchors.
+
+2023-01-15 Sean Whitton <spwhitton@spwhitton.name>
+
+ * lisp/subr.el (while-let): Fix docs if-let->if-let* (bug#60758).
+
+2023-01-15 Sean Whitton <spwhitton@spwhitton.name>
+
+ Revert "* lisp/subr.el (while-let): Use if-let, not if-let*
(bug#60758)."
+
+ This reverts commit 083badc9c122a802080552e7771e78ee47c01e3c.
+
+2023-01-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Bump use-package version for Emacs 29.1
+
+ * lisp/use-package/use-package.el: Bump version to 2.4.5.
+
+2023-01-15 Eli Zaretskii <eliz@gnu.org>
+
+ Improve error message from sqlite-mode.el
+
+ * lisp/sqlite-mode.el (sqlite-mode-open-file): Add error
+ checking. (Bug#60490)
+
+2023-01-15 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode block comment indentation (bug#60270)
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--comment-2nd-line-anchor): Handle another edge case.
+
+2023-01-15 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode label indent
+
+ Fix indentation of the statement right under a label.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Fix.
+ (c-ts-mode--top-level-label-matcher): Fix.
+
+2023-01-15 Yuan Fu <casouri@gmail.com>
+
+ Fix statement indent for c-ts-mode (bug#59686) (bug#60280)
+
+ Instead of trying to figure out the correct anchor, now we just count
+ the layers of {} blocks between the node and the root node.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--indent-styles): Use new offset functions
+ c-ts-mode--close-bracket-offset and c-ts-mode--statement-offset.
+ (c-ts-mode--bracket-children-anchor): Remove function.
+ (c-ts-mode--top-level-label-matcher): New variable.
+ (c-ts-mode--statement-offset)
+ (c-ts-mode--close-bracket-offset): New offset functions.
+
+2023-01-15 Yuan Fu <casouri@gmail.com>
+
+ Allow offset in tree-sitter indent rules to be functions
+
+ This is needed for fixing C indentation. See next comment.
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/treesit.el (treesit-simple-indent): Try evaluating OFFSET as a
+ function if it's not integer nor variable.
+
+2023-01-15 Yuan Fu <casouri@gmail.com>
+
+ Support filling line comments in c-ts-mode
+
+ Now we handle line comments separately because for line comments, each
+ line is an individual node, unlike block comments, where the whole
+ block comment is a single node. fill-comment-paragraph turns out to
+ do the job perfectly fine.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--fill-paragraph): Extract out most parts into
+ c-ts-mode--fill-block-comment.
+ (c-ts-mode--fill-block-comment): New extracted function.
+
+2023-01-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix expansion of wildcards in ls-lisp.el
+
+ * lisp/ls-lisp.el (ls-lisp--dired): Fix error message text.
+ Handle the case of a wildcard specifying directories. (Bug#60819)
+
+2023-01-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix messages displayed when diary is shown
+
+ * lisp/calendar/diary-lib.el (diary-list-entries): Display the
+ "...done" message only if there's no important message in the
+ echo-area. (Bug#60795)
+
+2023-01-14 Theodor Thornhill <theo@thornhill.no>
+
+ Add constructor_declaration as java-ts-mode defun
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode): Extend
+ treesit-defun-type-regexp.
+
+2023-01-14 Gregory Heytings <gregory@heytings.org>
+
+ Further improvement for non-string values in pcomplete
+
+ * lisp/pcomplete.el (pcomplete-arg): Use the string representation
+ of the argument value instead of the text representation of the
+ argument. Return the value, even when it is not a string, when
+ index is 'last'. Fixes bug#60464.
+
+2023-01-14 Juri Linkov <juri@linkov.net>
+
+ Fix the case in first-completion revealed by minibuffer-tests
+
+ * lisp/simple.el (first-completion): Add the text-property
'first-completion'
+ when the first completion is at the beginning of the buffer.
+
+ * test/lisp/minibuffer-tests.el (completions-header-format-test):
+ Revert the recent change.
+
+2023-01-14 Theodor Thornhill <theo@thornhill.no>
+
+ Fix indent and font-lock for annotation_type
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): Indent
+ inside body.
+ (java-ts-mode--font-lock-settings): Add rule for name in
+ annotation_type_element_declaration.
+
+2023-01-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ apropos.el: Fix bug#60628
+
+ * lisp/apropos.el (apropos--map-preloaded-atoms): New function.
+ (apropos-documentation): Use it.
+ (apropos-documentation-check-elc-file): Don't presume #@ is preceded by
+ a newline (since that's not the case any more since commit
+ 900b09c0235d54d5), but be more careful not to burp on false positives.
+
+2023-01-14 Theodor Thornhill <theo@thornhill.no>
+
+ Fix indentation of some declarations and statements
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): Add new
+ rules so that we don't anchor at col 0.
+
+2023-01-14 Theodor Thornhill <theo@thornhill.no>
+
+ Fix indentation of object_expressions in csharp-ts-mode
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--indent-rules): Make
+ sure the opening brace is indented at parent-bol, and everything else
+ is indented.
+
+2023-01-14 Xi Lu <lx@shellcodes.org>
+
+ Replace 'hfy-find-cmd' with 'directory-files-recursively'.
+
+ This removes a potential vulnerability to maliciously
+ named files. (Bug#60562)
+ * lisp/htmlfontify.el (hfy-exclude-file-rules): New defcustom.
+ (hfy-list-files): Reimplement using 'directory-files-recursively'.
+
+2023-01-14 Eli Zaretskii <eliz@gnu.org>
+
+ Disable and document 'doc-view-mupdf-use-svg' (bug#58041)
+
+ * lisp/doc-view.el (doc-view-mupdf-use-svg): Disable by default.
+ * etc/NEWS: Document. Patch by Visuwesh <visuweshm@gmail.com>.
+ Do not merge to master.
+
+2023-01-14 Eshel Yaron <me@eshelyaron.com> (tiny change)
+
+ Eglot: don't use "nil" as minibuffer initial input
+
+ Doing M-x eglot in a buffer for which buffer-file-name is nil, prompts
+ the user for a major mode to manage by invoking completing-read. The
+ way completing-read was called would end up with the string "nil" as
+ the initial minibuffer input, which is not very useful nor is it a
+ valid input.
+ * lisp/progmodes/eglot.el (eglot--guess-contact): Tweak prompt for
+ major mode. (Bug#60379)
+
+2023-01-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix dependency bug when building lwlib
+
+ * lwlib/Makefile.in (DEPFLAGS): Use OBJS to calculate dependency
+ file names, not ALLOBJS. This fixes a typo introduced
+ in 2015-05-15 "Replace AC_SUBST_FILE in configure with include in
+ Makefiles" that caused lwlib/*.o to not be rebuilt sometimes
+ when that was needed.
+
+2023-01-13 Yuan Fu <casouri@gmail.com>
+
+ Fix use of build_pure_c_string in treesit.c
+
+ This is brought up in bug#60691. build_pure_c_string should only be
+ used in places such as syms_of_treesit, which are called just once,
+ during dumping.
+
+ * src/treesit.c (Vtreesit_str_libtree_sitter):
+ (Vtreesit_str_tree_sitter):
+ (Vtreesit_str_dot):
+ (Vtreesit_str_question_mark):
+ (Vtreesit_str_star):
+ (Vtreesit_str_plus):
+ (Vtreesit_str_pound_equal):
+ (Vtreesit_str_pound_match):
+ (Vtreesit_str_pound_pred):
+ (Vtreesit_str_open_bracket):
+ (Vtreesit_str_close_bracket):
+ (Vtreesit_str_open_paren):
+ (Vtreesit_str_close_paren):
+ (Vtreesit_str_space):
+ (Vtreesit_str_equal):
+ (Vtreesit_str_match):
+ (Vtreesit_str_pred): New variables.
+
+ (treesit_load_language):
+ (Ftreesit_pattern_expand):
+ (Ftreesit_query_expand):
+ (treesit_eval_predicates): Use new varaibles.
+
+ (treesit_check_buffer_size):
+ (treesit_compose_query_signal_data):
+ (treesit_check_range_argument):
+ (Ftreesit_parser_set_included_ranges):
+ (treesit_predicate_capture_name_to_node):
+ (treesit_predicate_equal):
+ (treesit_predicate_match):
+ (treesit_predicate_pred): Use build_string for signal message.
+
+ (syms_of_treesit): Initialize new variables.
+
+2023-01-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/subr.el (combine-change-calls-1): Fix bug#60467
+
+ Don't stop at timestamps. Strip them for now, to be on the safe side.
+ Don't merge into `master` where we'll use a better fix.
+
+2023-01-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt tramp-tests.el (do not merge with master)
+
+ * test/lisp/net/tramp-tests.el (tramp--test-container-p):
+ Rename from `tramp--test-docker-p'. Handle also "podman" method.
+ Adapt callees.
+
+2023-01-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix minibuffer-completion tests
+
+ * test/lisp/minibuffer-tests.el (completions-header-format-test):
+ Fix the test which first fired, and then drew the target...
+
+2023-01-13 Daniel Martín <mardani29@yahoo.es>
+
+ Add c-ts-mode tests
+
+ * test/lisp/progmodes/c-ts-mode-resources/indent.erts: New .erts file
+ to test indentation of typical C constructs and prevent regression of
+ bug fixes.
+ * test/lisp/progmodes/c-ts-mode-tests.el: New file with c-ts-mode
+ tests.
+
+2023-01-13 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode--fill-paragraph
+
+ Example:
+
+ doc: /* Return non-nil if NODE1 and NODE2 are the same node.
+ If any one of NODE1 and NODE2 is nil, return nil.
+ This function uses the same equivalence metric as `equal'. */
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--fill-paragraph): Fix the
+ case where there are words before the /*, like the example above.
+
+2023-01-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix minor issues with 'pp' and related commands
+
+ * etc/NEWS:
+ * lisp/emacs-lisp/pp.el (pp-use-max-width, pp-emacs-lisp-code):
+ Mention in doc string that formatting via 'pp-emacs-lisp-code'
+ could be slow.
+ (pp-eval-expression, pp-macroexpand-expression): Honor
+ 'pp-use-max-width'. (Bug#58687)
+
+2023-01-12 Yuan Fu <casouri@gmail.com>
+
+ Equal now recognizes tree-sitter nodes (bug#60659)
+
+ Now equal uses ts_node_eq to check equality between nodes.
+
+ * doc/lispref/parsing.texi:
+ (Accessing Node Information): Update manual.
+ * src/fns.c (internal_equal): Handle tree-sitter nodes.
+ * src/treesit.c (treesit_node_eq): New function.
+ (Ftreesit_node_eq): Factor out. Update docstring.
+ * src/treesit.h (treesit_node_eq): Declare new function.
+
+2023-01-12 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode comment indentation (bug#60270)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Move the
+ star rule up.
+
+2023-01-12 Sean Whitton <spwhitton@spwhitton.name>
+
+ * lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758).
+
+2023-01-12 Gregory Heytings <gregory@heytings.org>
+
+ * lisp/simple.el (next-completion): Handle first completion specially.
+
+ When completions-header-format is nil and completion-show-help is nil,
+ the first completion is at the beginning the buffer, so 'M-<down>'
+ missed it and moved to the second completion. Handle this case by
+ setting/checking the special text-property 'first-completion' that
+ is nil at the first call (bug#60411).
+
+2023-01-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix encoding with 'utf-8-auto'
+
+ * src/coding.c (encode_coding_utf_8): Fix encoding with
+ 'utf-8-auto': it should produce BOM, per the documentation of
+ the :bom attribute. (Bug#60750)
+
+ * lisp/international/mule.el (define-coding-system): Doc fix.
+
+ * test/src/coding-tests.el (coding-tests): Use
+ 'with-coding-priority' instead of 'prefer-coding-system', as the
+ latter has global persistent effect and affects further tests.
+
+2023-01-12 Po Lu <luangruo@yahoo.com>
+
+ Report cursor correctly on PGTK when there is a margin
+
+ * src/pgtkterm.c (pgtk_draw_window_cursor): Adjust frame_x by
+ the margin width as well.
+
+2023-01-11 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6.1
+
+2023-01-11 Theodor Thornhill <theo@thornhill.no>
+
+ Add support for annotation_type_declaration
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--keywords): Add new
+ keyword.
+ (java-ts-mode--font-lock-settings): Add font-locking to the type
+ feature.
+
+2023-01-11 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS: Mention incompatible changes in
'outline-minor-mode-cycle-map'.
+
+ * lisp/outline.el (outline-minor-mode-cycle--bind):
+ Add docstring (bug#60426).
+ (outline-minor-mode-cycle--bind): Default 'map' to
+ 'outline-minor-mode-cycle-map'.
+ (outline-minor-mode-cycle-map): Improve docstring.
+ (outline-minor-mode): Move margin-cycling keys to
+ 'outline-minor-mode-cycle-map'.
+
+2023-01-11 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure VC package names are not empty
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Raise an error
+ if the package name is empty.
+ (package-vc-install): Avoid generating an empty file name, if a URL
+ ends with a slash, and raise an error if the package name is empty.
+
+2023-01-11 Philip Kaludercic <philipk@posteo.net>
+
+ Handle missing package description when unpacking vc packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Create a dummy
+ descriptor if PKG-DESC is nil.
+
+2023-01-10 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: partially revert commit from 2022-10-04
+
+ This reversion is of an ill-advised optimization, which resulted in
non-type
+ identifiers getting fontified as types.
+
+ * lisp/progmodes/cc-fonts.el (c-fontify-new-found-type): Rather than
writing
+ the expected face directly to the text, instead remove the `fontified'
+ property. This allows the full font-lock mechanism to fontify the
buffer
+ correctly.
+
+2023-01-10 Manuel Uberti <manuel.uberti@inventati.org>
+
+ Fix reftex-citation docstring (bug#60710)
+
+ * lisp/textmodes/reftex-cite.el (reftex-citation): Fix spelling.
+
+2023-01-10 Robert Pluim <rpluim@gmail.com>
+
+ Improve 'describe-char-fold-equivalences' docstring
+
+ * lisp/char-fold.el (describe-char-fold-equivalences): Explain what
+ the output looks like.
+
+2023-01-10 F. Jason Park <jp@neverwas.me>
+
+ Remove obsolete server buffers on MOTD in erc-track
+
+ * lisp/erc/erc-networks.el
+ (erc-networks--copy-server-buffer-functions): New internal hook
+ through which modules can perform housekeeping when server buffers
+ belonging to the same network context are merged.
+ (erc-networks--copy-over-server-buffer-contents): Run new internal
+ hook `erc-networks--copy-server-buffer-functions'.
+ * lisp/erc/erc-track.el (erc-track-enable, erc-track-disable): Manage
+ membership in `erc-networks--copy-server-buffer-functions' hook.
+ (erc-track--replace-killed-buffer): New function to replace server
+ buffer being killed in `erc-modified-channels-alist'.
+ * test/lisp/erc/erc-scenarios-base-association.el
+ (erc-scenarios-networks-merge-server-track): New test.
+ * test/lisp/erc/resources/networks/merge-server/track.eld: New test
+ data. (Bug#60560.)
+
+2023-01-10 Manuel Uberti <manuel.uberti@inventati.org>
+
+ Fix completion-auto-help docstring (bug#60709)
+
+ * lisp/minibuffer.el (completion-auto-help): Remove extra period.
+
+2023-01-10 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode comment indent
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--comment-2nd-line-matcher): Also make sure PARENT is a
+ comment node.
+
+2023-01-10 Yuan Fu <casouri@gmail.com>
+
+ Highlight identifier in import statements in js-ts-mode
+
+ Follow-up on bug#60689. This commit just copied the change in
+ e385c099b8c to js-ts-mode.
+
+ * lisp/progmodes/js.el:
+ (js--treesit-font-lock-settings): Add import query.
+
+2023-01-09 Yuan Fu <casouri@gmail.com>
+
+ Don't print named tree-sitter nodes with parenthesizes (bug#60696)
+
+ * src/print.c (print_vectorlike): Use empty string as delimiters if
+ the node is named.
+
+2023-01-09 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification for import-statements in typescript-ts-mode
+
+ (bug#60689)
+
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-mode--font-lock-settings): Add rules to highlight the
+ actual imports in import-statements.
+
+2023-01-09 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode indentation for 2nd line in block comment (bug#60270)
+
+ If the first line is "/*" or "/* ", indent like this:
+
+ /*
+ aaa
+
+ If the first line is "/* some text", indent like this:
+
+ /* some text
+ aaa
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles):
+ (c-ts-mode--looking-at-star): Minor refactor.
+ (c-ts-mode--comment-2nd-line-matcher)
+ (c-ts-mode--comment-2nd-line-anchor): New functions.
+ * lisp/treesit.el (treesit-simple-indent-presets):
+ prev-adaptive-prefix doesn't handle the comment-start-skip case (i.e,
+ 2nd line) anymore. (Handled by the new matcher.)
+
+2023-01-09 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/diff-mode.el (diff-font-lock-keywords): Check for limit.
+
+ This check is necessary since 'diff-beginning-of-hunk' can move
+ not only backwards, but also forwards (bug#60660).
+
+2023-01-09 Yuan Fu <casouri@gmail.com>
+
+ Minor improvement for tree-sitter explorer
+
+ If you open an empty python buffer and type
+
+ 1 + 2
+ a
+ b
+
+ Currently the explorer only displays the top-level node at point, ie,
+ only 1 + 2, only a, or only b. That's kind of awkward, so if the
+ buffer is small, show the entire parse tree.
+
+ * lisp/treesit.el (treesit--explorer-refresh): See above.
+
+2023-01-09 Yuan Fu <casouri@gmail.com>
+
+ Make sure NODE is not the root node in tree-sitter indent (bug#60602)
+
+ There are two possible ways to solve the problem raised in the bug
+ report: either make sure NODE is never the root (so that parent is
+ never nil), or allow parent to be nil.
+
+ If we go with the latter, a lot of matcher and anchor functions need
+ change (they need to guard against a null parent). I tried it, and
+ needing to check for null parent is pretty annoying. In comparison,
+ if NODE is never the root, it is very convenient for the user, and it
+ doesn't complicate the rule that much (and it's rather intuitive,
+ people usually don't think of the case where NODE is the root node).
+ So that's what I choose.
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/treesit.el (treesit-indent-function): Update docstring.
+ (treesit--indent-1): Make sure NODE is not the root.
+
+2023-01-08 Yuan Fu <casouri@gmail.com>
+
+ Fix label indent of GNU and Linux style in c-ts-mode (bug#60543)
+
+ The previous fix isn't correct.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--indent-styles): New indent rule. Fix the rule for Linux
+ style.
+ (c-ts-mode--top-level-label-matcher): New function.
+
+2023-01-08 Evgeni Kolev <evgenysw@gmail.com>
+
+ Improve go-ts-mode Imenu, navigation and electric pair (bug#60407)
+
+ The Imenu items are extended to support "Method", "Struct",
+ "Interface", "Alias" and "Type".
+
+ go-ts-mode is updated to use the Imenu facility added in commit
+ b39dc7ab27a696a8607ab859aeff3c71509231f5.
+
+ Variable electric-indent-chars is set in order to improve integration
+ with Electric Pair mode.
+
+ * lisp/progmodes/go-ts-mode.el (go-ts-mode--imenu-1)
(go-ts-mode--imenu):
+ Remove functions.
+ (go-ts-mode--defun-name, go-ts-mode--interface-node-p)
+ (go-ts-mode--struct-node-p, go-ts-mode--other-type-node-p)
+ (go-ts-mode--alias-node-p): New functions.
+ (go-ts-mode): Improve Imenu settings, navigation, add Electric Pair
+ mode settings.
+
+2023-01-08 Yuan Fu <casouri@gmail.com>
+
+ Revert "Add c-or-c++-ts-mode (bug#59613)"
+
+ This reverts commit 1df2826639c912396fac0af108301533dac71406.
+
+ I forgot about the feature freeze, sorry :-)
+
+2023-01-08 Benson Chu <bensonchu457@gmail.com> (tiny change)
+
+ Add back renamed function 'font-lock-fontify-syntactically-region'
+
+ A more accurate replacement for font-lock-fontify-syntactically-region
+ would be a function that funcalls the
+ font-lock-fontify-syntactically-function variable. That way, callers
+ of the function can inherit new behavior, if the value of that variable
+ changes.
+
+ * lisp/font-lock.el (font-lock-fontify-syntactically-region):
+ Add function back, remove its obsolete alias.
+
+2023-01-08 Eli Zaretskii <eliz@gnu.org>
+
+ Improve options and docs of M-x command completion
+
+ * lisp/simple.el (read-extended-command-predicate): Expand the
+ doc string. Add 2 more selectable values.
+ (command-completion-using-modes-and-keymaps-p): New function.
+ (execute-extended-command): Mention
+ 'read-extended-command-predicate' in the doc string. (Bug#60645)
+
+2023-01-07 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6-90-ga6523f
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Fix string fontification on python-ts-mode (bug#60599)
+
+ * lisp/progmodes/python.el:
+ (python--treesit-fontify-string): Generalize and skip anything
+ before the first quote character.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Fix string-interpolation feature of python-ts-mode (bug#60599)
+
+ * lisp/progmodes/python.el:
+ (python--treesit-fontify-string-interpolation): New function.
+ (python--treesit-settings): Use the new function for
+ string-interpolation.
+
+2023-01-07 Theodor Thornhill <theo@thornhill.no>
+
+ Add indentation rule for concatenated_string (bug#60572)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Indent to
+ parent-bol.
+
+2023-01-07 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fix highlighting of variable-declarations in typescript-ts-mode
+
+ (bug#60546)
+
+ - Highlight variable declarations in catch-clauses.
+ - Remove highlighting of variables where not declarations (improve
+ consistency with other *-ts-modes).
+
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-mode--font-lock-settings): See above.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Fix label indentation for Linux style in c-ts-mode (bug#60543)
+
+ Reference:
+ 1. https://www.gnu.org/software/indent/manual/indent/Common-styles.html
+ 2. https://www.gnu.org/software/indent/manual/indent/Option-Summary.html
+
+ The GNU indent manual says Linux style should use -il1 flag, which
+ means "indent labels to column 1".
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Indent label
+ to column 1 in Linux style.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Remove duplicate entries in c-ts-mode's Imenu
+
+ Right now the Class subindex includes top-level functions, which is
+ wrong. This change ensures the Class subindex only contain classes and
+ functions nested in those classes.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--defun-for-class-in-imenu-p): New function.
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode): Use the new function.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Fix use of treesit-ready-p in c/c++-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode)
+ (c++-ts-mode): Put setup code in a when form.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Add documentation for c/c++-ts-mode (bug#60443)
+
+ Explain that tree-sitter c modes and cc-mode c modes don't share
+ config variables.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode)
+ (c++-ts-mode): Update docstring.
+
+2023-01-07 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts--font-lock-settings): Improve highlighting in patterns
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Improve highlighting in patterns: highlight values not keys as
+ variable in the usual case; highlight keys when no value;
+ highlight the "as pattern" variable.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Optionally include the namespace in c-ts-mode--declarator-identifier
+
+ This is an additional fix for bug#60397.
+
+ * lisp/progmodes/c-ts-mode.el:
+ (c-ts-mode--declarator-identifier): New parameter QUALIFIED.
+ (c-ts-mode--defun-name): Use qualified identifier.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Support namespaces in c++-ts-mode (bug#60397)
+
+ Not a complete fix. See the next commit.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Add rules.
+ (c-ts-mode--defun-name): Add namespace_definition.
+ (c-ts-base-mode): Add namespace_definition to
+ treesit-defun-type-regexp.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode--looking-at-star
+
+ Not the topic of bug#60270 but reported in one of the replies.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--looking-at-star): Check not
+ the character after point but character after BOL. Otherwise
+ indentation is wrong when point is not at BOL.
+
+2023-01-07 Yuan Fu <casouri@gmail.com>
+
+ Add c-or-c++-ts-mode (bug#59613)
+
+ * lisp/progmodes/c-ts-mode.el
+ (c-ts-mode--c-or-c++-regexp): New variable.
+ (c-or-c++-ts-mode): New mode.
+ * etc/NEWS: Mention c-or-c++-ts-mode.
+
+2023-01-07 Eli Zaretskii <eliz@gnu.org>
+
+ Document the 'definition-name' property.
+
+ * doc/lispref/symbols.texi (Standard Properties): Document
+ 'definition-name'.
+ * doc/lispref/functions.texi (Defining Functions): Describe how to
+ use 'definition-name' when generating function definitions at run
+ time. (Bug#60568)
+
+2023-01-07 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit-simple-indent-presets): Do that for 'or' as well.
+
+ * lisp/treesit.el
+ (treesit-simple-indent-presets): Do that for 'or' as well.
+
+2023-01-07 kobarity <kobarity@gmail.com>
+
+ Fix 'python-shell-buffer-substring' when START is in middle of 1st line
+
+ * lisp/progmodes/python.el (python-shell-buffer-substring): Instead
+ of checking whether START is point-min, check whether START is in
+ the first line. (Bug#60466)
+ * test/lisp/progmodes/python-tests.el
+ (python-shell-buffer-substring-18): New test.
+
+2023-01-07 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Rearrange the "Saving Emacs Sessions" section of the user manual
+
+ * doc/emacs/misc.texi (Saving Emacs Sessions): Organize this
+ node more logically with main behavior and important features
+ near the top. (Bug#60600)
+
+2023-01-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit-simple-indent-presets): Ensure 'and' works for anchors too
+
+ * lisp/treesit.el (treesit-simple-indent-presets):
+ Rewrite to return the last successful evaluation, not just t.
+
+2023-01-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit--indent-rules-optimize): Optimize 'and' and 'or' matcher forms
+
+ * lisp/treesit.el (treesit--indent-rules-optimize):
+ Optimize 'and' and 'or' matcher forms. When 'and' has a 'query'
+ matcher inside (as is the case in ruby-ts--indent-rules, many
+ times over), this yields a significant performance boost.
+
+2023-01-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ (treesit-simple-indent-presets): Short-circuit 'and' and 'or'
+
+ * lisp/treesit.el (treesit-simple-indent-presets):
+ Short-circuit the 'and' and 'or' matchers. To avoid calling all
+ fns after one returned nil or truthy value, respectively.
+
+2023-01-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ (font-lock-regexp-face): New face
+
+ * lisp/font-lock.el (font-lock-regexp-face): New face.
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings):
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings):
+ Use it for regexps.
+
+ * etc/NEWS: Mention the addition.
+
+2023-01-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ Unify the string interpolation delimiters face across ts modes
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings):
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings):
+ Use font-lock-misc-punctuation-face for string interpolation
+ delimiters.
+
+2023-01-06 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Highlight more kinds of parameters
+
+ * lisp/progmodes/ruby-ts-mode.el
+ (ruby-ts--font-lock-settings): Highlight destructured parameters,
+ lambda parameters, identifiers in pattern matching clauses
+ (array/hash) and exception variables.
+ Move the 'symbol' matchers lower to make 'hash_key_symbol' lower
+ priority than hash keys in match patterns.
+
+2023-01-06 Robert Pluim <rpluim@gmail.com>
+
+ Fix `pr-interface'
+
+ `pr-interface' specifies `inline' for its menu items, which is not
+ necessary, but it causes `widget-choice-value-create' to bug
+ out. (Bug#60501)
+
+ * lisp/wid-edit.el (widget-choice-value-create): Allow the value to be
+ a non-list.
+ * test/lisp/wid-edit-tests.el (widget-test-handle-spurious-inline):
+ Add test to ensure that unnecessary :inline is allowed.
+
+2023-01-06 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Further generic-related improvements in csharp-ts-mode (bug#60376)
+
+ This is an additional patch for bug#60376.
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ New rules.
+
+2023-01-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Highlight method and block parameters
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Add rules for method and block parameters.
+ (ruby-ts-mode): Add corresponding feature.
+
+2023-01-05 Perry Smith <pedz@easesoftware.com>
+
+ ruby-ts-mode: Highlight variable assignments
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Bring back the 'assignment' feature.
+ (ruby-ts-mode): Replace the unused 'variable' with 'assignment'. Use
+ the level 3 for consistency with other ts modes.
+ Update the Commentary as well.
+
+2023-01-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Move 'self' and 'super' from constants to keywords
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Move 'self' and 'super' from constants to keywords.
+
+2023-01-05 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts-mode): Split font-lock feature 'builtin' into two
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts-mode):
+ Split the 'builtin' feature in two: 'builtin-constant' and
+ 'builtin-variable'.
+ (ruby-ts-highlight-predefined-constants):
+ Drop the user option, the highlighting granularity can be chosen
+ using treesit-font-lock-recompute-features.
+ (ruby-ts--font-lock-settings): Update accordingly.
+ (ruby-ts--predefined-constants, ruby-ts--predefined-variables):
+ Fix docstrings.
+
+2023-01-05 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violation due to fill-column indicator face
+
+ * src/xdisp.c (extend_face_to_end_of_line): Use the original
+ iterator metrics for the stretch glyph, the one unaffected by the
+ 'fill-column-indicator' face. (Bug#60580)
+
+2023-01-05 Juri Linkov <juri@linkov.net>
+
+ * lisp/cedet/semantic/symref/grep.el: Support ts-modes (bug#60525)
+
+ (semantic-symref-filepattern-alist): Duplicate entries
+ c-mode -> c-ts-mode, c++-mode -> c++-ts-mode, ruby-mode -> ruby-ts-mode,
+ python-mode -> python-ts-mode.
+
+2023-01-05 Eli Zaretskii <eliz@gnu.org>
+
+ Make 'toml-ts-mode' optional
+
+ * etc/NEWS: Reflect the fact that 'toml-ts-mode' is optional.
+
+ * lisp/textmodes/toml-ts-mode.el (auto-mode-alist): Don't autoload
+ the addition of 'toml-ts-mode'. (Bug#60559)
+
+2023-01-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix bug in Tramp multi-hop
+
+ * lisp/net/tramp.el (tramp-compute-multi-hops): Make check for
+ host name more robust. (Bug#60499)
+
+2023-01-04 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/files.el (find-sibling-rules): Fix docstring.
+
+2023-01-04 Juri Linkov <juri@linkov.net>
+
+ Tree-sitter doc fixes (bug#60524)
+
+ * doc/lispref/modes.texi (Parser-based Font Lock):
+ Replace :lang with :language.
+
+ * doc/lispref/parsing.texi (Language Grammar): Replace
+ treesit-load-suffixes with dynamic-library-suffixes.
+ (Retrieving Nodes): Fix function names.
+ (Tree-sitter Major Modes): Fix treesit-ready-p args.
+ Fix pxref to Parser-based Indentation.
+ (Tree-sitter C API): Fix function names.
+
+ * lisp/treesit.el (treesit--simple-indent-eval): Remove cond BODY
+ duplicated from CONDITION.
+ (treesit)<define-short-documentation-group>: Fix function names.
+
+2023-01-04 Daniel Martín <mardani29@yahoo.es>
+
+ Fontify C++ function definitions in c-ts-mode (bug#60529)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--declarator-identifier):
+ Teach the code how to extract the declarator of a node of type
+ "qualified_identifier".
+ (c-ts-mode--fontify-declarator): Consider the case where the
+ identifier in a function declarator is buried inside
+ "qualifier_identifier" nodes.
+
+2023-01-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ (ruby-ts-add-log-current-function): Fix when between two methods
+
+ * lisp/progmodes/ruby-ts-mode.el
+ (ruby-ts-add-log-current-function): Fix the case when point is
+ between two methods. 'treesit-node-at' returs the 'def' node of
+ the method after point in such case, so it behaved like point was
+ inside the method below.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el
+ (ruby-ts-add-log-current-method-outside-of-method):
+ Update the test case.
+
+ * test/lisp/progmodes/ruby-mode-tests.el
+ (ruby-add-log-current-method-outside-of-method):
+ Mirror that change.
+
+2023-01-03 Sean Whitton <spwhitton@spwhitton.name>
+
+ * lisp/vc/vc-git.el (vc-git-checkin): Pass vc-git-diff-switches.
+
+2023-01-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ Extract common code into ruby-base-mode to derive from
+
+ * lisp/progmodes/ruby-mode.el (ruby-base-mode):
+ New major base mode, to set up common vars and hooks.
+ (ruby-mode-variables): Delete. Move most code to ruby-base-mode.
+ And some -- to ruby-mode body.
+ (ruby-mode): Derive from ruby-base-mode. Also move some setup
+ to there.
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts-mode):
+ Derive from ruby-base-mode. Remove duplicating settings.
+
+2023-01-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Indentation fixes
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--align-keywords):
+ Fix for 'def' (which was misread as 'method' in the check).
+ (ruby-ts--indent-rules): Indent the curly block closer the same
+ way as the 'do ... end' closer.
+
+2023-01-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts--font-lock-settings: Use more standard faces
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Use more standard faces for regexp literals and string
+ interpolation delimiters (following js-ts-mode).
+
+2023-01-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Standardize the string literal highlights
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Use font-lock-string-face for %w() and `...`.
+ Use font-lock-constant-face (just like we do for symbol literals)
+ for symbol array literals, %i().
+ Combine the matchers for string content and heredocs.
+
+2023-01-02 Theodor Thornhill <theo@thornhill.no>
+
+ Improve fontification in java-ts-mode (bug#60492)
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--font-lock-settings):
+ Add expression_statement with only identifier support.
+
+2023-01-02 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fontification improvements in typescript-ts-mode (bug#60500)
+
+ - highlight method-definitins in interfaces.
+ - only highlight variable-declarations, not variables
+ everywhere (consistency with other modes).
+ - move highlighting of method invocations to level 4
+
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-mode--font-lock-settings): Update rules.
+ (typescript-ts-mode, tsx-ts-mode): Update feature list.
+
+2023-01-02 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification consistency in js-ts-mode (bug#60503)
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings): Highlight
+ declared parameters in functions, methods and arrow-expressions as
+ variables.
+
+2023-01-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ (typescript/tsx-ts-mode): Split font-lock feature list into 4 values
+
+ * lisp/progmodes/typescript-ts-mode.el (typescript-ts-mode)
+ (tsx-ts-mode): Split font-lock feature list into 4 values.
+
+2023-01-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ js-ts-mode: Move 'string-interpolation' to font-lock level 3
+
+ * lisp/progmodes/js.el (js-ts-mode):
+ Move 'string-interpolation' to font-lock level 3.
+
+2023-01-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix shrinking of the tab-bar
+
+ * src/haikufns.c (haiku_change_tab_bar_height):
+ * src/pgtkfns.c (pgtk_change_tab_bar_height):
+ * src/nsfns.m (ns_change_tab_bar_height):
+ * src/w32fns.c (w32_change_tab_bar_height):
+ * src/xfns.c (x_change_tab_bar_height): Don't let the number of
+ tab-bar lines degenerate to zero due to integer division.
+ (Bug#60210)
+
+2023-01-02 F. Jason Park <jp@neverwas.me>
+
+ Fix default-port regression in erc-select-read-args
+
+ * lisp/erc/erc.el (erc--warn-unencrypted): New function, likely
+ temporary, to warn new users connecting interactively to the default
+ server, "irc.libara.chat", via the default non-TLS port, 6667.
+ (erc-select-read-args): Remove stray code from incomplete feature
+ introduced by bug#56514. Ensure connecting always works with default
+ port, which is non-TLS. Respect `erc-prompt-for-password' when user
+ pastes URL containing password component into "server" prompt. Maybe
+ add `erc--warn-unencrypted' as one-off hook for impending connection.
+ * test/lisp/erc/erc-tests.el (erc-select-read-args): Always expect
+ password prompt and sometimes a non-TLS port when `erc' called
+ interactively. (Bug#60428.)
+
+2023-01-01 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6-81-g563a43
+
+2023-01-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Remove some currently unused functions
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--grand-parent-is)
+ (ruby-ts--ancestor-start, ruby-ts--ancestor-is):
+ Remove some currently unused functions.
+
+2023-01-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-ts-mode: Highlight singleton method definitions and setters
+
+ * lisp/progmodes/ruby-ts-mode.el (ruby-ts--font-lock-settings):
+ Highlight singleton method definitions and setters.
+
+2023-01-01 Perry Smith <pedz@easesoftware.com>
+ Dmitry Gutov <dgutov@yandex.ru>
+
+ Add ruby-ts-mode
+
+ * etc/NEWS: Mention the new mode.
+
+ * lisp/progmodes/ruby-ts-mode.el: New file.
+
+ * test/lisp/progmodes/ruby-ts-mode-tests.el: New file.
+
+ * lisp/progmodes/eglot.el (eglot-server-programs):
+ Add ruby-ts-mode to the Ruby entry.
+
+2023-01-01 Daniel Martín <mardani29@yahoo.es>
+
+ Fix fontification of C++ reference return types (bug#60441)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-fontify-error): Treat
+ reference_declarator nodes the same as pointer_declarator nodes when
+ calculating the identifier to fontify.
+
+2023-01-01 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Adjust function-call fontification in csharp-ts-mode (bug#60376)
+
+ - Ensure method-invocations are highlighted only on level 4.
+ - Ensure consistent fontification of variable declarations
+ (don't highlight usage of all variables).
+ - Fix issues with highlighting types in new() expressions.
+ - Fix issues with generic types in variable-declarations not using
"var".
+ - Use fewer, more general queries for function-invocations. simplify
code.
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Change rules.
+ (csharp-ts-mode): Update feature list.
+
+2023-01-01 Eli Zaretskii <eliz@gnu.org>
+
+ Rewrite Antinews in ELisp manual for Emacs 29
+
+ * doc/lispref/anti.texi (Antinews): Rewrite for Emacs 29.
+ * doc/lispref/elisp.texi (Top): Update the top-level menu for
+ Antinews.
+
+2023-01-01 Eli Zaretskii <eliz@gnu.org>
+
+ Update Antinews in the user manual for Emacs 29
+
+ * doc/emacs/anti.texi (Antinews): Rewrite for Emacs 29.
+ * doc/emacs/emacs.texi (Top): Adjust the top-level menu.
+
+2023-01-01 Mattias Engdegård <mattiase@acm.org>
+
+ Fix shortdoc-tests failure with respect to regexp-opt-charset
+
+ * test/lisp/emacs-lisp/shortdoc-tests.el (regexp-opt): Require.
+ `regexp-opt-charset` is not autoloaded, and whether `regexp-opt` is
+ preloaded is configuration-dependent.
+
+2023-01-01 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'isearch-open-overlay-temporary'
+
+ * lisp/isearch.el (isearch-open-overlay-temporary): Document that
+ the overlay passed to the 'isearch-open-invisible-temporary'
+ function cannot be deleted too early. (Bug#60399)
+
+2023-01-01 Eli Zaretskii <eliz@gnu.org>
+
+ Document 'use-package' in the 2 main manuals
+
+ * doc/emacs/custom.texi (Init Examples):
+ * doc/lispref/loading.texi (Named Features): Document 'use-package'
+ and its most important features.
+
+2022-12-31 Yuan Fu <casouri@gmail.com>
+
+ Build recipe interactively in treesit-install-language-grammar
+
+ If there is not existing recipe for a language, prompt to build the
+ recipe interactively.
+
+ * lisp/treesit.el (treesit--install-language-grammar-build-recipe):
+ New functions.
+ (treesit-install-language-grammar): Use the new function.
+
+2022-12-31 Theodor Thornhill <theo@thornhill.no>
+
+ Tweak csharp-mode font-lock-settings (bug#60376)
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Rearrange features.
+ (csharp-ts-mode): Rearrange features.
+
+2022-12-31 Eli Zaretskii <eliz@gnu.org>
+
+ Revert a recent change which causes errors
+
+ * lisp/subr.el (buffer-match-p): Undo last change, as it causes an
+ error in a timer function of show-paren-mode.
+
+2022-12-31 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix misspelled functions in shortdoc groups
+
+ * lisp/emacs-lisp/shortdoc.el (file, list): Fix misspelled function
+ names: 'file-writable-p' and 'seq-reduce'.
+ * test/lisp/emacs-lisp/shortdoc-tests.el (subr-x): Require.
+ (shortdoc-all-functions-fboundp): New test.
+
+2022-12-31 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Simplify introduction of use-package manual
+
+ * doc/misc/use-package.texi (Getting Started): Do not advise requiring
+ the package, since the macro is autoloaded; also correct the macro's
+ name. (Bug#60366)
+
+2022-12-31 kobarity <kobarity@gmail.com>
+
+ Fix python-shell-buffer-substring when retrieving a single statement
+
+ * lisp/progmodes/python.el (python-shell-buffer-substring): Do not add
+ "if True:" line when retrieving a single statement.
+ (python-shell-send-region): Add a reference to
+ `python-shell-buffer-substring' in docstring.
+ * test/lisp/progmodes/python-tests.el (python-shell-buffer-substring-13)
+ (python-shell-buffer-substring-14, python-shell-buffer-substring-15)
+ (python-shell-buffer-substring-16, python-shell-buffer-substring-17):
+ New tests. (Bug#60142)
+
+2022-12-30 Yuan Fu <casouri@gmail.com>
+
+ Show tree-sitter query source when signaling query error
+
+ * src/treesit.c (treesit_compose_query_signal_data): Add QUERY_SOURCE
+ parameter.
+ (treesit_ensure_query_compiled)
+ (Ftreesit_query_capture): Add query source.
+
+2022-12-30 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add version tags and mention the new options in NEWS
+
+ * etc/NEWS: Mention the new options (bug#60186).
+
+ * lisp/progmodes/ruby-mode.el (ruby-block-indent)
+ (ruby-after-operator-indent, ruby-method-call-indent)
+ (ruby-parenless-call-arguments-indent): Add version tags.
+
+2022-12-30 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add new options for Ruby code indentation
+
+ * lisp/progmodes/ruby-mode.el (ruby-block-indent)
+ (ruby-after-operator-indent, ruby-method-call-indent)
+ (ruby-parenless-call-arguments-indent): New options (bug#60186).
+ (ruby-smie-grammar): Specify associativity for "?".
+ (ruby-smie--indent-to-stmt): Add optional argument.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb: New cases.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-method-call-indent.rb:
+ * test/lisp/progmodes/ruby-mode-resources/ruby-block-indent.rb:
+ * test/lisp/progmodes/ruby-mode-resources/ruby-after-operator-indent.rb:
+ * test/lisp/progmodes/ruby-mode-resources/
+ ruby-parenless-call-arguments-indent.rb: New files.
+
+ * test/lisp/progmodes/ruby-mode-tests.el: Add indentation tests for new
files.
+
+2022-12-30 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-install-language-grammar
+
+ Per discussion on emacs-devel, I added function to install and compile
+ language grammars.
+
+ * lisp/treesit.el (treesit-language-source-alist): New variable.
+ (treesit-install-language-grammar)
+ (treesit--call-process-signal)
+ (treesit--install-language-grammar-1): New functions.
+
+2022-12-30 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-language-abi-version
+
+ Also rename treesit-language-version to treesit-library-abi-version,
+ because the old name is somewhat misleading.
+
+ * doc/lispref/parsing.texi (Language Grammar): Update.
+ * src/treesit.c (Ftreesit_library_abi_version): Rename.
+ (Ftreesit_language_abi_version): New function.
+
+2022-12-30 Yuan Fu <casouri@gmail.com>
+
+ Change "language definition" to "language grammar" in manual.
+
+ "Language grammar" is apparently the more widely used term among
+ people talking about tree-sitter. To avoid confusion, I think it's
+ good to use that rather than "language definition", which is a term
+ that I made up :-)
+
+ Feel free to revert this if it is too much change.
+
+ * doc/lispref/elisp.texi:
+ * doc/lispref/modes.texi:
+ * doc/lispref/parsing.texi:
+ * lisp/treesit.el: Change "language definition" to "language grammar".
+
+2022-12-30 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/lisp/net/tramp-tests.el (tramp-test32-shell-command): Fix test.
+
+ * lisp/eshell/em-tramp.el (tramp): Require also at runtime. (Bug#60402)
+
+2022-12-30 Roland Winkler <winkler@gnu.org>
+
+ lisp/textmodes/bibtex.el: fix bibtex-beginning-of-entry (bug#56636)
+
+ lisp/textmodes/bibtex.el (bibtex-beginning-of-entry):
+ use bibtex-any-entry-maybe-empty-head (bug#56636)
+
+2022-12-30 Roland Winkler <winkler@gnu.org>
+
+ lisp/textmodes/bibtex.el: Treat $ as punctuation in BibTeX fields
(bug#50202)
+
+2022-12-29 Gregory Heytings <gregory@heytings.org>
+
+ Clarify the documentation of 'set-face-attribute'
+
+ * lisp/faces.el (set-face-attribute): Mention the evaluation order
+ of attribute-value pairs in the docstring.
+
+ * doc/lispref/display.texi (Attribute Functions): Likewise, and
+ explain with an example that a different argument order might give
+ different results. Also align the documentation in the manual
+ with that of the docstring, whose changes were discussed in
+ bug#57499 but not included in the manual.
+
+2022-12-29 Gregory Heytings <gregory@heytings.org>
+
+ Handle non-string values in pcomplete
+
+ * lisp/pcomplete.el (pcomplete-arg): When
+ pcomplete-parse-arguments-function returns a non-string value,
+ return the string the user typed in, and attach the value as a
+ text property to that string. Fixes bug#59956 and bug#60021.
+
+2022-12-29 Gregory Heytings <gregory@heytings.org>
+
+ Fix completion when completion-auto-select is set
+
+ * lisp/minibuffer.el (completion--do-completion): Do not display
+ "Complete, but not unique" messages when completion-auto-select is
+ set. Fixes bug#60359.
+
+2022-12-29 Yuan Fu <casouri@gmail.com>
+
+ Add color fontification in css-ts-mode (bug#60405)
+
+ * lisp/textmodes/css-mode.el (css-ts-mode): Add color fontification
+ and syntax-propertize-function.
+
+2022-12-29 Juri Linkov <juri@linkov.net>
+
+ * lisp/hi-lock.el (hi-lock--regexps-at-point): Fix bug (bug#60241).
+
+ Handle two cases: when a pattern is a regexp or a function.
+
+2022-12-29 Juri Linkov <juri@linkov.net>
+
+ * src/keyboard.c (echo_add_key): Use recently rebound C-h key C-q
(bug#60249)
+
+2022-12-29 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in treesit.c with --enable-checking
+
+ * src/treesit.c (Ftreesit_node_first_child_for_pos)
+ (Ftreesit_node_descendant_for_range): Check validity of buffer
+ positions before converting them to byte-positions, to avoid
+ assertion violations in buf_charpos_to_bytepos.
+
+2022-12-29 Yuan Fu <casouri@gmail.com>
+
+ Clean up treesit-default-defun-skipper and add comments
+
+ * lisp/treesit.el (treesit-default-defun-skipper): Clean up, fix some
+ small issue, add comment.
+
+2022-12-29 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode bracket indentation (bug#60398)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Use new
+ anchor.
+ (c-ts-mode--bracket-children-anchor): New anchor function.
+
+2022-12-28 Yuan Fu <casouri@gmail.com>
+
+ Clean up font-lock rules in js-ts-mode
+
+ Changes for each feature:
+
+ - string: Take out string-interpolation bits.
+ - string-interpolation: New.
+ - declaration: Rename to definition.
+ - identifier: Remove.
+ - property: Use a pred to filter out methods.
+ - expression: Rename to assignment.
+ - function: New.
+ - pattern: Merge into assignment.
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings): See above.
+ (js--treesit-property-not-function-p)
+ (js--treesit-lhs-identifier-query): New variable.
+ (js--treesit-fontify-assignment-lhs): New functions.
+ (js-ts-mode): Update feature list.
+
+2022-12-28 Yuan Fu <casouri@gmail.com>
+
+ Fix syntax for < and > in c++-ts-mode (bug#60351)
+
+ < and > are usually punctuation, e.g., in ->. But when used for
+ templates, they should be considered pairs. Right now we always
+ consider them as pairs which is incorrect.
+
+ * lisp/progmodes/c-ts-mode.el (c++-ts-mode--syntax-table): Remove
+ variable.
+ (c-ts-mode--syntax-propertize): New function.
+ (c++-ts-mode): Remove syntax table. Setup syntax-propertize-function.
+
+2022-12-28 Yuan Fu <casouri@gmail.com>
+
+ Call tree-sitter parser notifier on the first parse
+
+ * src/treesit.c (treesit_call_after_change_functions): Handle NULL
+ old_tree.
+ (treesit_ensure_parsed): Remove check for NULL tree.
+
+2022-12-28 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter parser notifier recursion
+
+ See the comment for detail.
+
+ * src/treesit.c (treesit_ensure_parsed): Move the need_reparse short
+ circuit to the very beginning. Move the call to
+ treesit_call_after_change_functions to the very end.
+
+2022-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/help.el: Use 'C-h C-q' to toggle 'help-quick' window (bug#60249).
+
+ (help-map): Bind "C-q" to 'help-quick-toggle'. Rebind "q" to
'help-quit'.
+ (help-quick): Replace help-quit-or-quick with help-quick-toggle.
+ (help-quick-toggle): New command.
+ (help-quit-or-quick): Remove command.
+ (help-for-help): Replace help-quick-or-quit with help-quick-toggle.
+
+2022-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el: Small fixes.
+
+ (isearch-wrap-pause): Mention the new feature of `no' and `no-ding'
+ in the docstring.
+ (isearch-lax-whitespace, isearch-forward-thing-at-point): Add the
+ group 'isearch' since another defgroup changed the default group.
+ (isearch-delete-char): Use 'isearch-invisible' instead of
'search-invisible'
+ since the users might change the current value with 'M-s i'.
+
+2022-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/diff-mode.el (diff-minor-mode-prefix): Replace "ESC" with
"\e".
+
+ "ESC" looks like an attempt to use kbd syntax in customization.
+ But actually now 'key-description' is used in 'diff-minor-mode-map'
+ to convert "\e" to "ESC".
+
+2022-12-28 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/display.texi (Text Scale): Improve section about repeating
keys.
+
+ Mention that it's possible to use repeating keys without the modifiers
+ and copy an example from etc/NEWS.
+
+2022-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (repeat-echo-function): Suggest 'add-function' in
docstring.
+
+ (bug#60353)
+
+2022-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el (tab-line-cache-key-default): More cache keys
(bug#60340).
+
+ Move more cache keys here from 'tab-line-format' to give users more
freedom.
+
+2022-12-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * etc/package-keyring.gpg: Update with new key
+
+2022-12-28 F. Jason Park <jp@neverwas.me>
+
+ Warn of absent networks module in ERC
+
+ * doc/misc/erc.texi: Add linkable note in Modules chapter about some
+ modules being required. Also tweak markup in auth-source section.
+ * etc/ERC-NEWS: Mention the special role of `networks'.
+ * lisp/erc/erc-backend.el (erc--server-post-connect-hook): Add
+ internal hook for core modules to perform post-network-process,
+ pre-protocol config validation even when they haven't been loaded.
+ (erc--register-connection): Run `erc--server-post-connect-hook'.
+ * lisp/erc/erc-networks.el (erc-networks--bouncer-targets,
+ erc-networks-on-MOTD-end): Fix comments and doc strings. Also change
+ former from constant to internal variable in case adjustment needed
+ between releases.
+ (erc-networks--warn-on-connect): New function to warn about the
+ `networks' module being absent from `erc-modules'. This could
+ probably run at any time up to and including when the logical IRC
+ connection is established, but doing so at the process/protocol
+ boundary seems ideal.
+ * lisp/erc/erc-sasl.el (erc--register-connection): Defer to base
+ method instead of calling `erc-login' explicitly.
+ * lisp/erc/erc.el (erc-generate-new-buffer-name): Don't reconcile
+ buffer names when networks module not in play.
+ (erc-format-target-and/or-network): Don't assume networks module
+ loaded.
+ * test/lisp/erc/erc-scenarios-base-unstable.el:
+ (erc-scenarios-networks-no-module): New test.
+ * test/lisp/erc/resources/networks/no-module/basic.eld: New test data
+ file. (Bug#60331.)
+
+2022-12-28 F. Jason Park <jp@neverwas.me>
+
+ Avoid "already compiled" warning in erc-compat
+
+ * lisp/erc/erc-compat.el (erc-compat--29-auth-source-pass-search):
+ Don't `byte-compile' sub-29 secrets wrapper. This was especially
+ noisy in tests. Ditch closed-over vars via HOF instead of suppressing
+ because compiling emits "unused lexical" warning on Emacs 27.
+
+2022-12-28 Dmitry Gutov <dgutov@yandex.ru>
+
+ (python--treesit-settings): Remove duplicate matcher
+
+ * lisp/progmodes/python.el (python--treesit-settings): Remove
+ duplicate matcher (which found itself under 'function' in addition
+ to 'definition').
+
+2022-12-28 Eli Zaretskii <eliz@gnu.org>
+
+ Make last change of w32 GUI dialogs conditional and reversible
+
+ * src/w32term.c (syms_of_w32term) <w32-yes-no-dialog-show-cancel>:
+ New boolean variable.
+ (w32_initialize): Fix query for visible system caret: 'bool' is a
+ single-byte data type, whereas SystemParametersInfo wants a BOOL,
+ which is a 32-bit int.
+ * src/w32menu.c (simple_dialog_show): Show "Cancel" button only if
+ 'w32-yes-no-dialog-show-cancel' is non-nil.
+
+ * etc/NEWS: Announce the change.
+
+2022-12-28 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter typos
+
+ * doc/lispref/parsing.texi (Tree-sitter major modes):
+ * lisp/progmodes/java-ts-mode.el:
+ * test/src/treesit-tests.el (treesit-defun-navigation-nested-4): Fix
+ typo.
+
+2022-12-27 Yuan Fu <casouri@gmail.com>
+
+ Update tree-sitter major modes to use the new Imenu facility
+
+ See previous commit for more explanation.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--defun-name): Handle more
+ types.
+ (c-ts-mode--imenu-1)
+ (c-ts-mode--imenu): Remove functions.
+ (c-ts-base-mode): Setup Imenu.
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--imenu-1)
+ (csharp-ts-mode--imenu): Remove functions.
+ (csharp-ts-mode): Setup Imenu.
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--imenu-1)
+ (java-ts-mode--imenu): Remove functions.
+ (java-ts-mode): Setup Imenu.
+ * lisp/progmodes/js.el (js--treesit-imenu-1)
+ (js--treesit-imenu): Remove functions.
+ (js--treesit-valid-imenu-entry): New function.
+ (js-ts-mode): Setup Imenu.
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--defun-name): Trim the
+ quotes.
+ (json-ts-mode--imenu-1)
+ (json-ts-mode--imenu): Remove functions.
+ (json-ts-mode): Setup Imenu.
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--imenu)
+ (rust-ts-mode--imenu-1): Remove functions.
+ (rust-ts-mode): Setup Imenu.
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-base-mode): Remove treesit-defun-prefer-top-level, it's
+ not used anymore. Setup Imenu. Setup treesit-defun-name-function.
+ * lisp/textmodes/css-mode.el (css--treesit-imenu-1)
+ (css--treesit-imenu): Remove functions.
+ (css-ts-mode): Setup Imenu.
+ * lisp/textmodes/toml-ts-mode.el (toml-ts-mode--defun-name): Fix it
+ and add a fallback.
+ (toml-ts-mode--imenu-1)
+ (toml-ts-mode--imenu): Remove functions.
+ (toml-ts-mode): Setup Imenu.
+
+2022-12-27 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter helper functions for Imenu
+
+ We didn't add an integration for Imenu because we aren't sure what
+ should it look like. Now we have a pretty good idea. All the major
+ modes copy-paste the two Imenu functions and tweaks them in a standard
+ way. With the addition of treesit-defun-type-regexp and
+ treesit-defun-name-function, now is a good time to standardize Imenu
+ integration.
+
+ In the next commit we update all the major modes to use this
+ integration.
+
+ * doc/lispref/modes.texi (Imenu): Add manual.
+ * doc/lispref/parsing.texi (Tree-sitter major modes): Update manual.
+ * lisp/treesit.el (treesit-simple-imenu-settings): New varaible.
+ (treesit--simple-imenu-1)
+ (treesit-simple-imenu): New functions.
+ (treesit-major-mode-setup): Setup Imenu.
+
+2022-12-27 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit--things-around (bug#60355)
+
+ Current implementation of treesit--things-around only searches forward
+ for REGEXP and go up the tree until it finds a valid thing, if nothing
+ matches it gives up. This makes it sometimes miss defuns. The new
+ implementation tries multiple times (of search forward + go up) until
+ it exhausts all possible defun nodes.
+
+ * lisp/treesit.el (treesit--things-around): New implementation.
+ (treesit--navigate-defun): Refactor to use treesit-node-top-level to
+ simplify code, and add some guards in the predicate function.
+ * test/src/treesit-tests.el:
+ (treesit--ert-defun-navigation-elixir-program): New variable.
+ (treesit-defun-navigation-nested-4): New test.
+
+2022-12-27 Yuan Fu <casouri@gmail.com>
+
+ Improve treesit-node-top-level and treesit-parent-until
+
+ * lisp/treesit.el (treesit-node-top-level): Now it can accept a
+ predicate function. Add an optional argument INCLUDE-NODE.
+ (treesit-parent-until): Add an optional argument INCLUDE-NODE.
+
+2022-12-27 Eli Zaretskii <eliz@gnu.org>
+
+ * src/w32menu.c (simple_dialog_show): Use MB_YESNOCANCEL style.
+
+2022-12-27 Xi Lu <lx@shellcodes.org>
+
+ Fix htmlfontify.el command injection vulnerability.
+
+ * lisp/htmlfontify.el (hfy-text-p): Fix command injection
+ vulnerability. (Bug#60295)
+
+2022-12-27 Rudolf Adamkovič <salutis@me.com>
+
+ Improve support for Scheme R6RS and R7RS libraries (bug#54704)
+
+ * etc/NEWS (Scheme mode): Document improved file-type auto-detection
+ and Imenu support for R6RS and R7RS Scheme libraries.
+ * lisp/files.el (auto-mode-alist): Associate the '.sls' (R6RS Scheme
+ Library Source) and '.sld' (R7RS Scheme Library Definition) file name
+ extensions with the Scheme mode.
+ * lisp/progmodes/scheme.el (scheme-imenu-generic-expression): Make
+ Imenu recognize the members nested (and so indented) inside of
+ 'library' (R6RS) or 'define-library' (R7RS) forms.
+
+2022-12-26 Yuan Fu <casouri@gmail.com>
+
+ Add a new tree-sitter query predicate 'pred'
+
+ I realized that using an arbitrary function as the predicate in
+ queries is very helpful for some queries I'm writing for python and
+ javascript, and presumably most other languages[1].
+
+ Granted, we can already filter out unwanted nodes by using a function
+ instead of a face for the capture name, and (1) determine whether the
+ captured node is valid and (2) fontify that node if it's valid.
+
+ However, such approach is a bit more cumbersome and more importantly
+ gets in the way of another potential use of the fontification queries:
+ context extraction.
+
+ For example, I could use the query for the 'variable' feature to get
+ all the variables in a certain region. In this use-case, we want the
+ filtering happen before returning the captured nodes.
+
+ Besides, the change is relatively small and straightforward: most code
+ are already there, I just need to add some boilerplate.
+
+ [1] For a code like aa.bb(cc), we want bb to be in function face,
+ because obviously its a function. But for aa.bb, we want bb to be in
+ property face, because it's a property. In the AST, bb is always a
+ property, the difference between the two cases is the enclosing node:
+ in the first case, aa.bb is in a "call_expression" node, indicating
+ that bb is used as a function (a method). So we want a predicate
+ function that checks whether bb is used as a function or a property,
+ and determine whether it should be in function or property face.
+
+ * doc/lispref/parsing.texi (Pattern Matching): Update manual.
+ * src/treesit.c (Ftreesit_pattern_expand): Handle :pred.
+ (treesit_predicate_capture_name_to_node): A new function extracted
+ from treesit_predicate_capture_name_to_text.
+ (treesit_predicate_capture_name_to_text): Use the newly extracted
+ function.
+ (treesit_predicate_pred): New predicate function.
+ (treesit_eval_predicates): Add new predicate. Also fix a bug: we want
+ to AND the results of each predicate.
+ * test/src/treesit-tests.el (treesit--ert-pred-last-sibling): New
+ helper function.
+ (treesit-query-api): Test #pred predicate.
+
+2022-12-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve gnutls-min-prime-bits docstring
+
+ * lisp/net/gnutls.el (gnutls-min-prime-bits): Doc fix: delete
+ out-of-date and now misleading sentence, added back when Emacs'
+ default minimum prime bits for a Diffie-Hellman handshake was only 256
+ bits. These days, the default is nil, which means to let GnuTLS
+ decide the value. (See also `nsm-protocol-check--dhe-prime-kx`.)
+
+2022-12-26 Gregory Heytings <gregory@heytings.org>
+
+ Improve handling of tab-bar height.
+
+ * src/xdisp.c (redisplay_tab_bar): When 'auto-resize-tab-bar' is
+ not 'grow-only', also consider the case when the tab-bar height
+ needs to shrink. Fixes bug#60210.
+
+2022-12-26 Eli Zaretskii <eliz@gnu.org>
+
+ Simplify last change (bug#60311)
+
+ * src/json.c (json_available_p): Use original code. Always return
+ true for !WINDOWSNT.
+ (ensure_json_available): Now defined only on WINDOWSNT.
+ (Fjson_serialize, Fjson_insert, Fjson_parse_string)
+ (Fjson_parse_buffer): Call ensure_json_available only on
+ WINDOWSNT.
+
+ * lisp/subr.el (json-available-p): Simplify.
+
+2022-12-26 Mattias Engdegård <mattias.engdegard@gmail.com>
+
+ Fix 'json-available-p' on MS-Windows
+
+ * src/json.c (json_available_p, ensure_json_available)
+ (Fjson__available_p): New functions.
+ (Fjson_serialize, Fjson_insert, Fjson_parse_string)
+ (Fjson_parse_buffer): Use ensure_json_available.
+ (syms_of_json): Defsubr json--available-p.
+
+ * lisp/subr.el (json-available-p): Rewrite.
+
+2022-12-26 Kyle Meyer <kyle@kyleam.com>
+
+ loaddefs-gen: Group results by absolute file name
+
+ loaddefs-generate produced an incomplete output file if 1) it
+ was called with a relative file name and 2) that same file was
+ specified via a generated-autoload-file cookie in a subset of
+ the input files. In that case, autoload entries were lost
+ because loaddefs-generate writes the same output file twice:
+ once for the relative name specified by the caller and once
+ for the absolute name that loaddefs-generate--parse-file
+ returns for the generated-autoload-file value.
+ This has been fixed. (Bug#60318)
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Expand file
+ names when grouping loaddef files.
+
+2022-12-26 Yuan Fu <casouri@gmail.com>
+
+ Fix imenu for c-ts-mode (bug#60296)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--imenu-1): Use
+ c-ts-mode--defun-valid-p to filter out nested matches.
+ (c-ts-mode--defun-valid-p): Handle more types of nodes.
+
+2022-12-26 Yuan Fu <casouri@gmail.com>
+
+ Clean up python-ts-mode font-lock features
+
+ * lisp/progmodes/python.el (python--treesit-settings): Remove
+ unnecessary override flags, add function and variable feature, fix
+ assignment feature.
+ (python--treesit-variable-p)
+ (python--treesit-fontify-variable): New functions.
+ (python-ts-mode): Add function and variable feature.
+
+2022-12-26 Yuan Fu <casouri@gmail.com>
+
+ Add comment indent and filling to other tree-sitter major modes
+
+ Extract the setup into a function, and use it in other major modes.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-comment-setup): New function.
+ (c-ts-base-mode): Extract out.
+ (c-ts-mode)
+ (c++-ts-mode): Remove old setup.
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--indent-rules): New
+ indent rules.
+ (csharp-ts-mode): Use new setup function.
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): New
+ indent rules.
+ (java-ts-mode): Use new setup function.
+ * lisp/progmodes/js.el (js--treesit-indent-rules): New indent rules.
+ (js-ts-mode): Use new setup function.
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--indent-rules): New
+ indent rules.
+ (rust-ts-mode): Use new setup function.
+ * lisp/progmodes/typescript-ts-mode.el:
+ (typescript-ts-mode--indent-rules): New indent rules.
+ (typescript-ts-base-mode): Use new setup function.
+
+2022-12-26 Yuan Fu <casouri@gmail.com>
+
+ Add maintainer stub for tree-sitter files
+
+ * lisp/treesit.el:
+ * src/treesit.c: Add maintainer.
+
+2022-12-25 Gregory Heytings <gregory@heytings.org>
+
+ Remove remaining mentions of 'eval-current-buffer'
+
+ * lisp/emacs-lisp/edebug.el (edebug-all-defs):
+ * doc/lispref/eval.texi (Eval):
+ * doc/lispref/edebug.texi (Instrumenting, Edebug Options):
+ Remove remaining mentions of 'eval-current-buffer', obsoleted in
+ Emacs 22 and removed in Emacs 26.
+
+2022-12-25 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6-61-g63e073f
+
+2022-12-25 Philip Kaludercic <philipk@posteo.net>
+
+ Add heuristic to locate lisp code in source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Check if a
+ "lisp" directory exists and use that instead of PKG-DIR.
+
+ (Bug#60155)
+
+2022-12-25 Yuan Fu <casouri@gmail.com>
+
+ Further generalize treesit-defun functions
+
+ Two new functions, treesit-beginning/end-of-thing. And
+ treesit-thing-at-point's signature changes.
+
+ * lisp/treesit.el (treesit-block-type-regexp): New variable.
+ (treesit-beginning-of-thing)
+ (treesit-end-of-thing): Generalized from
+ treesit-beginning/end-of-defun.
+ (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Use the new functions.
+ (treesit-thing-at-point): Accept PATTERN rather than REGEXP and PRED.
+ (treesit-defun-at-point): Adjust for the new signature of
+ treesit-thing-at-point.
+
+2022-12-25 Yuan Fu <casouri@gmail.com>
+
+ Generalize treesit-defun functions to "things"
+
+ Change the "defun" in some functions (e.g. treesit--defuns-around) to
+ "thing". Add a function treesit-thing-at-point.
+
+ * lisp/treesit.el (treesit--thing-unpack-pattern): New subroutine.
+ (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Use new function treesit--navigate-thing.
+ (treesit--defuns-around): Generalize into treesit--thing-around.
+ (treesit--top-level-defun): Generalize into treesit--top-level-thing.
+ (treesit--navigate-defun): Generalize into treesit--navigate-thing.
+ (treesit-thing-at-point): Generalized from treesit-defun-at-point.
+ (treesit-defun-at-point): Use treesit-thing-at-point to do tht work.
+
+2022-12-25 Philip Kaludercic <philipk@posteo.net>
+
+ Reorder optional arguments to 'package-vc-install'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install-selected-packages):
+ Update 'package-vc-install' invocation.
+ (package-vc-install): Reorder and update documentation.
+
+2022-12-25 Philip Kaludercic <philipk@posteo.net>
+
+ Handle missing dependencies for source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install-dependencies): Add
+ new function.
+ (package-vc--unpack-1): Call 'package-vc-install-dependencies' instead
+ of 'package-compute-transaction' and 'package-download-transaction'.
+
+ It is unreasonable to abort the installation, since we cannot expect
+ all dependencies to be available in the regular archives. Instead we
+ note which packages couldn't be found, and warn the user that these
+ will be missing.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode imenu defun name (bug#60296)
+
+ Extract out c-ts-mode--declarator-identifier from
+ c-ts-mode--fontify-declarator.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--declarator-identifier): New
+ function.
+ (c-ts-mode--fontify-defun): Extract out.
+ (c-ts-mode--defun-name): Use the new function.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit--children-covering-range-recurse (bug#60301)
+
+ * lisp/treesit.el (treesit--children-covering-range-recurse): Always
+ return a list of node.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Support treesit-defun-name in tree-sitter major modes
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--defun-name): New
+ function.
+ (csharp-ts-mode--imenu-1): Extract into new function.
+ (csharp-ts-mode): Setup treesit-defun-name-function.
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--defun-name): New
+ function.
+ (java-ts-mode--imenu-1): Extract into new function.
+ (java-ts-mode): Setup treesit-defun-name-function.
+ * lisp/progmodes/js.el (js-treesit-current-defun): Remove function.
+ This function is not used (for a while already).
+ (js--treesit-defun-name): New function.
+ (js--treesit-imenu-1): Extract into new function.
+ (js-ts-mode): Setup treesit-defun-name-function.
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--defun-name): New
+ function.
+ (json-ts-mode--imenu-1): Extract into new function.
+ (json-ts-mode): Setup treesit-defun-name-function.
+ * lisp/progmodes/python.el (python--treesit-defun-name): New function.
+ (python--imenu-treesit-create-index-1): Extract into new function.
+ (python-ts-mode): Setup treesit-defun-name-function.
+ * lisp/progmodes/rust-ts-mode.el (rust-ts-mode--defun-name): New
+ function.
+ (rust-ts-mode--imenu-1): Extract into new function.
+ (rust-ts-mode): Setup treesit-defun-name-function.
+ * lisp/textmodes/css-mode.el (css--treesit-defun-name): New function.
+ (css--treesit-imenu-1): Extract into new function.
+ (css-ts-mode): Setup treesit-defun-name-function.
+ * lisp/textmodes/toml-ts-mode.el (toml-ts-mode--get-table-name):
+ Remove function.
+ (toml-ts-mode--defun-name): New function.
+ (toml-ts-mode--imenu-1): Extract into new function.
+ (toml-ts-mode): Setup treesit-defun-name-function.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-defun-name and friends
+
+ 1. We now have treesit-defun-name, powered by
+ treesit-defun-name-function.
+ 2. We now have treesit-add-log-current-defun, which powers
+ add-log-current-defun.
+ 3. c-ts-mode updates its code to take advantage of these new features.
+ 4. Manual updates.
+
+ * doc/lispref/parsing.texi (Tree-sitter major modes): Add manual for
+ new functions.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--defun-name): New function.
+ (c-ts-mode--imenu-1): Extract out into c-ts-mode--defun-name.
+ (c-ts-base-mode): Setup treesit-defun-name-function.
+ * lisp/treesit.el (treesit-defun-name-function)
+ (treesit-add-log-defun-delimiter): New variables.
+ (treesit-defun-at-point)
+ (treesit-defun-name): New functions.
+ (treesit-major-mode-setup): Setup add-log-current-defun-function.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-node-at/on guess language at point
+
+ If PARSER-OR-LANG is nil, it makes more sense to guess the language at
+ point by treesit-language-at than to simply use the first parser in
+ the parser list.
+
+ * doc/lispref/parsing.texi (Retrieving Nodes): Update manual.
+ * lisp/treesit.el (treesit-node-at)
+ (treesit-node-on): Guess language at point. Update docstring.
+ (treesit-buffer-root-node): Update docstring.
+
+2022-12-24 Óscar Fuentes <ofv@wanadoo.es>
+
+ * nt/INSTALL.W64: update instructions for setting up W64 environment
+
+2022-12-24 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "; Bump minimum supported Windows version for MinGW64 to Windows
10."
+
+ This reverts commit 75155e458601a3597d382660d0be863ab4d512c0.
+ Evidently, some MSYS2/MinGW64 folks still think Windows 8.1
+ is the minimum supported version, even though MinGW-w64 switched
+ to Windows 10 as the default target in January 2022.
+
+2022-12-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix definition of CNS 11643-15 charset
+
+ * lisp/international/mule-conf.el (chinese-cns11643-15): Fix
+ :code-offset value. (Bug#60275)
+ * lisp/international/characters.el: Add chinese-cns11643-15 to
+ charsets whose characters have categories c and C.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Improve c-ts-mode block comment indent (bug#60270)
+
+ Now it handles stuff like (backslashes added to not confuse
+ authors.el)
+
+ /**
+ \* @some_func:
+ \* @arg1:
+ \*/
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Use new
+ matcher and anchor.
+ (c-ts-mode--looking-at-star): New matcher.
+ (c-ts-mode--comment-start-after-first-star): New anchor.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Fix block comment indent and filling for c-ts-mode (bug#59763)
+
+ Now indent and filling works like in c-mode. The only noticeable
+ missing piece is that the "*/" is not attached to the last sentence
+ when filling. c-mode does it by replacing whitespaces between the
+ "*/" and the end of the last sentence with xxx, fill it, then change
+ the xxx back. I don't know if we should do that in c-ts-mode's filling.
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Add new preset.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Add new
+ indent rule.
+ (c-ts-mode--fill-paragraph): New function.
+ (c-ts-base-mode): Setup paragraph-start, adaptive-fill, etc.
+ * lisp/treesit.el (treesit-simple-indent-presets): Add new preset.
+
+2022-12-24 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit_cursor_helper (bug#60267)
+
+ The cause of that bug is that in a particular parse tree, the node
+ treesit_cursor_helper tries to go to is a missing node, not only is it
+ a missing node, it is the first node of a subtree. So when
+ treesit_cursor_helper follows the algorithm and goes down the tree, it
+ goes down the previous subtree (because that subtree's end = end_pos,
+ because the target node has zero width).
+
+ o
+ |
+ o--+-o
+ | |
+ +-+ +-+-+
+ | | | | |
+ o x t o o
+
+ (We ended up in x when the target is t, because t has zero width.)
+
+ One way to solve it is to go back up the tree if we are at a leaf node
+ and still haven't matched the target node. That's too ugly and
+ finicky so I resorted to recursion. Now one more functions will
+ return give up (treesit_node_parent) if we are in a werid parse tree
+ that is super deep. But since we already kind of give up on this kind
+ of parse trees (bug#59426), it doesn't really hurt.
+
+ * src/treesit.c (treesit_cursor_helper_1): New function.
+ (treesit_cursor_helper): Use the new function. Change return type to
+ bool, and accept a cursor pointer.
+
+ (Ftreesit_node_parent)
+ (Ftreesit_search_subtree)
+ (Ftreesit_search_forward)
+ (Ftreesit_induce_sparse_tree): Use the new signature.
+
+2022-12-24 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix restart-emacs alarms (Bug#60220)
+
+ * src/emacs.c (Fkill_emacs): Turn timers off before execing,
+ so that the re-execed Emacs doesn’t get a timer alarm.
+
+2022-12-24 Florian Weimer <fweimer@redhat.com>
+
+ Fix alternate stack test in configure
+
+ * configure.ac (emacs_cv_alternate_stack): Include <stdlib.h>
+ for 'malloc's prototype.
+
+2022-12-24 Xi Lu <lx@shellcodes.org>
+
+ Add more functions to "string" shortdoc
+
+ * lisp/emacs-lisp/shortdoc.el: Add 'string-or-null-p',
+ 'char-or-string-p', 'char-uppercase-p'. (Bug#60279)
+
+2022-12-24 Yaraslau Tamashevich <yaraslau.tamashevich@gmail.com> (tiny
change)
+
+ Make the Contour terminal an alias of xterm-256color
+
+ * lisp/faces.el (term-file-aliases): Make the Contour terminal an
+ alias of xterm-256color. (Bug#60278)
+
+2022-12-24 glacials <ben@twos.dev> (tiny change)
+
+ Correct wrong info in (info)Go to node
+
+ The node (info)Go to node in the Info manual states that 'g'
+ does not allow the use of abbreviations, however it does.
+ To test this, type 'gt' from this node and see that it takes
+ you to (info)Top, then type 'ggo<RET>' and see that it takes
+ you back to (info)Go to node. Tested on emacs 28.2.
+ * doc/misc/info.texi (Go to node): Fix inaccurate information.
+ (Bug#60263)
+
+2022-12-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix typo in TUTORIAL.fr (bug#60261)
+
+ * etc/tutorials/TUTORIAL.fr: Fix typo. Reported by
+ Clément Escude--Cotinat <clement.escudecotinat@yahoo.fr>.
+
+2022-12-24 Daniel Martín <mardani29@yahoo.es>
+
+ Add some diff-fixup-modifs tests
+
+ * test/lisp/vc/diff-mode-tests.el (diff-mode-test-fixups-added-lines):
+ Test that diff-mode fixes patches with added lines correctly.
+ * test/lisp/vc/diff-mode-tests.el (diff-mode-test-fixups-empty-hunks):
+ Ditto for patches with empty hunks. (Bug#60259)
+
+2022-12-24 Ulrich Müller <ulm@gentoo.org>
+
+ Fix quoted argument in emacsclient-mail.desktop Exec key
+
+ Apparently the emacsclient-mail.desktop file doesn't conform to the
+ Desktop Entry Specification at
+
https://specifications.freedesktop.org/desktop-entry-spec/desktop-entry-spec-latest.html#exec-variables
+ which says about the Exec key:
+
+ | Field codes must not be used inside a quoted argument, the result of
+ | field code expansion inside a quoted argument is undefined.
+
+ However, the %u field code is used inside a quoted argument of the
+ Exec key in both the [Desktop Entry] and [Desktop Action new-window]
+ sections.
+ * etc/emacsclient-mail.desktop (Exec): The Desktop Entry
+ Specification does not allow field codes like %u inside a quoted
+ argument. Work around it by passing %u as first parameter ($1)
+ to the shell wrapper.
+ * etc/emacsclient.desktop (Exec): Use `sh` rather than `placeholder`
+ as the command name of the shell wrapper. (Bug#60204)
+
+2022-12-24 Richard Hansen <rhansen@rhansen.org>
+
+ ert-x: Move window selection logic to its own macro
+
+ * lisp/emacs-lisp/ert-x.el (ert-with-buffer-selected): New macro to
+ temporarily display a buffer in a selected window and evaluate a body.
+ (ert-with-test-buffer-selected): Use the new macro.
+ * test/lisp/whitespace-tests.el
+ (ert-test-with-buffer-selected/current)
+ (ert-test-with-buffer-selected/selected)
+ (ert-test-with-buffer-selected/nil-buffer)
+ (ert-test-with-buffer-selected/modification-hooks)
+ (ert-test-with-buffer-selected/read-only)
+ (ert-test-with-buffer-selected/return-value): Add tests.
+ (Bug#60189)
+
+2022-12-24 Po Lu <luangruo@yahoo.com>
+
+ Fix crash after X error
+
+ * src/xdisp.c (redisplay_internal): Catch another crash if
+ gcscrollbars after an X error.
+
+2022-12-23 Xi Lu <lx@shellcodes.org>
+
+ Fix ruby-mode.el local command injection vulnerability (bug#60268)
+
+ * lisp/progmodes/ruby-mode.el
+ (ruby-find-library-file): Fix local command injection vulnerability.
+
+2022-12-23 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "C-h k" in recursive minibuffers
+
+ * lisp/subr.el (event--posn-at-point): Leave POSN alone if it
+ doesn't have at least 6 members. This follows more faithfully
+ what 'event-start' and 'event-end' did before they started using
+ this function, see commit c1cead89f5f. Call posn-at-point with
+ the minibuffer-window when in the minibuffer. (Bug#60252)
+
+2022-12-22 Sean Whitton <spwhitton@spwhitton.name>
+
+ vc-git-checkin: Don't try to apply an empty patch
+
+ * lisp/vc/vc-git.el (vc-git-checkin): Don't try to apply an empty
+ patch to the index, because in that case 'git apply' fails.
+
+ (cherry picked from commit 1424342225ef5b18c630364dd88e004f4ebb1c7f)
+
+2022-12-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Update Tramp version (don't merge with master)
+
+ * doc/misc/trampver.texi:
+ * lisp/net/trampver.el: Change version to "2.6.0.29.1".
+ (customize-package-emacs-version-alist):
+ Adapt Tramp version integrated in Emacs 29.1.
+
+2022-12-22 João Távora <joaotavora@gmail.com>
+
+ Eglot: eglot--servers-by-xrefed-file doesn't need to be value-weak
+
+ * lisp/progmodes/eglot.el (eglot--servers-by-xrefed-file): Doesn't
+ need to be weak.
+
+2022-12-22 João Távora <joaotavora@gmail.com>
+
+ Prevent stale servers when using eglot-extend-to-xref
+
+ A weak-valued hash-table is not enough to guarantee that a reference
+ to a zombie server in eglot--servers-by-xrefed-file variable won't
+ survive long enough to confuse the next call to eglot--current-server
+ in some buffers.
+
+ So, before this fix it was common to get "Process EGLOT ... not
+ running" errors if some xref-extended buffers (like system libraries)
+ were open and M-x eglot-reconnect was issued. This should be
+ prevented now.
+
+ Note however, that even after this the eglot-extend-to-xref logic is
+ still flawed. For example, if a buffer for the xref-extended buffer
+ happens to be already visited by the time M-. is issued to navigate to
+ it, Eglot won't be activated. A half-decent workaround is to kill the
+ buffer and re-visit it.
+
+ * lisp/progmodes/eglot.el (eglot--servers-by-xrefed-file): Move
+ up.
+ (eglot--on-shutdown): Make sure to cleanup
+ eglot--servers-by-xrefed-file.
+
+2022-12-22 Xi Lu <lx@shellcodes.org>
+
+ * etc/tutorials/TUTORIAL.cn: Fix typos. (Bug#60221)
+
+2022-12-22 Benson Chu <bensonchu457@gmail.com> (tiny change)
+
+ Add alias for removed font-lock function
+
+ As part of 18947103fabf8070738b3bd9c5a8d02f90988a3d,
+ `font-lock-fontify-syntactically-region' was renamed to
+ `font-lock-default-fontify-sytactically'.
+
+ * lisp/font-lock.el (font-lock-fontify-syntactically-region): Add
+ obsolete alias for the renamed function.
+
+2022-12-22 Yuan Fu <casouri@gmail.com>
+
+ Set beginning/end-of-defun-function in treesit-major-mode-setup
+
+ * lisp/treesit.el (treesit-major-mode-setup): Set them.
+
+2022-12-22 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-defun-at-point and fix c-ts-mode-indent-defun
+
+ * lisp/treesit.el (treesit-defun-at-point): New function.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-indent-defun): Implement with
+ treesit-defun-at-point.
+
+2022-12-22 Juri Linkov <juri@linkov.net>
+
+ Use the new keyword ':repeat' in repeatable keymaps.
+
+ * lisp/bindings.el (undo-repeat-map)
+ (buffer-navigation-repeat-map, next-error-repeat-map)
+ (page-navigation-repeat-map):
+ * lisp/comint.el (comint-repeat-map):
+ * lisp/dired.el (dired-jump-map):
+ * lisp/outline.el (outline-navigation-repeat-map)
+ (outline-editing-repeat-map):
+ * lisp/shell.el (shell-repeat-map):
+ * lisp/tab-bar.el (tab-bar-switch-repeat-map)
+ (tab-bar-move-repeat-map):
+ * lisp/window.el (other-window-repeat-map)
+ (resize-window-repeat-map):
+ * lisp/winner.el (winner-repeat-map):
+ * lisp/eshell/em-prompt.el (eshell-prompt-repeat-map):
+ * lisp/eshell/esh-mode.el (eshell-command-repeat-map):
+ Add the keyword ':repeat' to 'defvar-keymap' instead of
+ setting the symbol property 'repeat-map' explicitly.
+
+ * lisp/keymap.el (defvar-keymap): Check for 'props'
+ that is used in 'defvar-form'.
+
+2022-12-21 Jim Porter <jporterbugs@gmail.com>
+
+ When redirecting in Eshell, check for "/dev/null" specifically
+
+ This is so that users can type "cmd ... > /dev/null" in Eshell no
+ matter what their system's null device is called. (Users can still
+ use their system's null device name when redirecting, too. Eshell
+ doesn't need to do anything special to support that.) This partially
+ reverts 67a8bdb90c9b5865b7f17290c7135b1a5458c36d. See bug#59545.
+
+ Do not merge to master.
+
+ * lisp/eshell/esh-io.el (eshell-set-output-handle): Use "/dev/null"
+ literally.
+
+2022-12-21 Andrea Corallo <akrl@sdf.org>
+
+ * Invoke spawed Emacs processes with '-Q' when native compiling
(bug#60208)
+
+ * lisp/emacs-lisp/comp.el (comp-final): Invoke spawned Emacs with '-Q'.
+ (comp-run-async-workers): Likewise.
+
+2022-12-21 montag451 <montag451@laposte.net> (tiny change)
+
+ Fix Eshell electric slash when used from the root directory of a remote
host
+
+ * lisp/eshell/em-elecslash.el (eshell-electric-forward-slash): Insert
+ the remote prefix as determined by 'file-remote-p'.
+
+2022-12-21 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the --without-all build with tree-sitter
+
+ * configure.ac (HAVE_TREE_SITTER): Set NEED_DYNLIB=yes, since
+ tree-sitter support requires dynlib.o. (Bug#60061)
+
+2022-12-21 Eli Zaretskii <eliz@gnu.org>
+
+ Fix write-region to null device on MS-Windows
+
+ * src/fileio.c (write_region) [WINDOWSNT]: Ignore EBADF errors
+ from fsync -- this means fsync is not supported for this file.
+ Happens, for example, with the null device. (Bug#59545)
+
+2022-12-21 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ message: Do not default to eudc-capf-complete yet
+
+ * lisp/gnus/message.el (message-mode): No longer add
+ eudc-capf-complete to the buffer-local value of
+ completion-at-point-functions. (Bug#59314)
+
+2022-12-21 Richard Hansen <rhansen@rhansen.org>
+
+ whitespace: Avoid mutating original buffer's markers in clones
+
+ * lisp/whitespace.el (whitespace--clone): New hook function that is
+ run after cloning a buffer that copies `whitespace-bob-marker' and
+ `whitespace-eob-marker' and changes the copies to point to the new
+ buffer (Bug#59618).
+ (whitespace-color-on): Register the hook function.
+ (whitespace-color-off): Unregister the hook function.
+
+ * test/lisp/whitespace-tests.el
+ (whitespace-tests--with-test-buffer): New macro.
+ (whitespace-tests--check-markers): New function.
+ (whitespace-tests--indirect-clone-breaks-base-markers)
+ (whitespace-tests--indirect-clone-markers)
+ (whitespace-tests--regular-clone-markers): New tests.
+
+2022-12-20 Charl P. Botha <cpbotha@vxlabs.com> (tiny change)
+
+ Fix empty pairs in js tree-sitter imenu alist (bug#59945)
+
+ The current js--treesit-imenu, used by the JavaScript, TypeScript and
+ TSX tree-sitter modes, would return empty pairs in the imenu alist if
+ there were none of that type of symbol.
+
+ This would break both the built in imenu and also packages like
+ consult-imenu.
+
+ See https://github.com/minad/consult/issues/697 for the discussion
+ there.
+
+ * lisp/progmodes/js.el (js--treesit-imenu): Don't add nil indexes.
+
+2022-12-20 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el: Fix repeat-keep-prefix to allow customizing it to
non-nil.
+
+ * lisp/repeat.el (repeat-keep-prefix): Add or remove
+ 'repeat-pre-hook' depending on the customized value.
+ (repeat-mode): Add or remove 'repeat-pre-hook' to/from
+ 'pre-command-hook' when 'repeat-keep-prefix' is non-nil.
+ (repeat-pre-hook): New function.
+ (repeat-get-map, repeat-check-map): New function refactored from
+ 'repeat-post-hook'.
+ (repeat-post-hook): Move some code to smaller functions.
+ (describe-repeat-maps): Set outline-regexp without ^L.
+
+ * test/lisp/repeat-tests.el (repeat-tests-keep-prefix):
+ Uncomment test case that is fixed now in bug#51281 and bug#55986.
+
+2022-12-20 Daniel Martín <mardani29@yahoo.es>
+
+ Correct capitalization of Lisp in the manual (bug#60222)
+
+ * doc/lispref/compile.texi (Native-Compilation Functions): Fix typo.
+
+2022-12-20 Brian Leung <leungbk@posteo.net>
+
+ eglot.el: Add vscode-json-languageserver to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add the
+ alternative name of the vcscode JSON server. (Bug#60198)
+
+2022-12-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/project.el (project--read-file-cpd-relative): Optimize.
+
+2022-12-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-method-params-indent: New user option
+
+ * lisp/progmodes/ruby-mode.el (ruby-method-params-indent):
+ New option (bug#60110).
+
+ (ruby-smie-rules): Use it.
+
+ * etc/NEWS: Mention it.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb:
+ Ensure the var's value is default.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby-method-params-indent.rb:
+ New file.
+
+ * test/lisp/progmodes/ruby-mode-tests.el (ruby-deftest-indent):
+ New macro, use it to run the indentation test using the new file.
+ Disable the :expensive-test tag, because neither runs for "longer
+ than some few seconds", both take significantly below 1s.
+
+2022-12-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/project.el: Filter out empty strings from history
(bug#58447)
+
+ (project--read-file-cpd-relative): Do not include empty strings (when
+ prefix has the same length as the string).
+
+2022-12-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix storing email into nnmail by Gnus
+
+ * lisp/gnus/nnml.el (nnml--encode-headers): Wrap
+ 'rfc2047-encode-string' calls with 'ignore-errors', to avoid
+ disrupting email workflows due to possibly-invalid headers.
+ Reported by Florian Weimer <fweimer@redhat.com>.
+
+2022-12-19 Richard Hansen <rhansen@rhansen.org>
+
+ whitespace: Fix unintended change in buffer modification status
+
+ * lisp/whitespace.el (whitespace--empty-at-bob-matcher)
+ whitespace--empty-at-eob-matcher, whitespace--update-bob-eob):
+ Silently add the `font-lock-multiline' text property when
+ highlighting beginning-of-buffer and end-of-buffer empty lines
+ to prevent Emacs from running modification hooks or considering
+ the buffer to be modified (Bug#60066).
+
+ * test/lisp/whitespace-tests.el
+ (whitespace-tests--empty-bob-eob-modified): Add a regression test.
+
+2022-12-19 Eli Zaretskii <eliz@gnu.org>
+
+ Make emacsclient add abbreviated file names to file-name-history
+
+ * lisp/server.el (server-visit-files): Use
+ 'file-name-history--add' to add the visited files to history.
+ (Bug#60097)
+
+2022-12-19 Mattias Engdegård <mattiase@acm.org>
+
+ Repair setopt test after error demotion to warning
+
+ * test/lisp/cus-edit-tests.el (test-setopt):
+ Check for a warrning instead of an error in attempt to call `setopt`
+ with a value that does not match the declared type (bug#60162).
+
+2022-12-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-mode: Support endless singleton method definitions too
+
+ * lisp/progmodes/ruby-mode.el (ruby-endless-method-head-re):
+ Update to match not only 'self.' but 'xyz.' as well (bug#54702).
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb (Bar#foo=):
+ Update example.
+
+2022-12-18 Yuan Fu <casouri@gmail.com>
+
+ Remove comment-start-skip preset in tree-sitter indentation engine
+
+ Comment indentation should use a adaptive-fill-based indent, rather
+ than comment-start-skip.
+
+ Also remove manual description of removed variables in treesit.el and
+ add documentation for n-p-gp upon request.
+
+ * doc/lispref/modes.texi (Parser-based Indentation)
+ * lisp/treesit.el (treesit-simple-indent-presets): Add n-p-gp, remove
+ treesit-comment-start/end, remove comment-start-skip.
+
+ * doc/lispref/parsing.texi (Tree-sitter major modes): Remove
+ treesit-comment-start/end.
+
+2022-12-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix recent change in tramp-smb.el
+
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ Ignore `make-directory-internal'.
+ (tramp-smb-handle-make-directory): Move implementation from
+ `tramp-smb-handle-make-directory-internal' here.
+
+ * lisp/net/tramp.el (tramp-file-name-for-operation):
+ Rearrange `make-directory-internal'.
+
+2022-12-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Make tramp-archive autoloads robust for older Emacs versions
+
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-regexp):
+ Use `eval-when-compile'. Set it explicitly for older Emacs versions.
+
+2022-12-18 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-mode: Support endless methods (bug#54702)
+
+ * lisp/progmodes/ruby-mode.el (ruby-endless-method-head-re):
+ New constant.
+ (ruby-smie-grammar): New token.
+ (ruby-smie--forward-token, ruby-smie--backward-token):
+ Recognize it.
+ (ruby-smie-rules): Indentation support.
+ (ruby-add-log-current-method): Support here too.
+
+ * test/lisp/progmodes/ruby-mode-tests.el
+ (ruby-add-log-current-method-after-endless-method): New test.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb: New examples.
+
+2022-12-18 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/cus-edit.el (setopt--set): Warn instead of rasing an error
+
+ (Bug#60162)
+
+2022-12-18 Philip Kaludercic <philipk@posteo.net>
+
+ Allow customising windmove user options with an empty prefix
+
+ * lisp/windmove.el (windmove--default-keybindings-type): Handle nil
+ as a prefix value. (Bug#60161)
+
+2022-12-18 Gregory Heytings <gregory@heytings.org>
+
+ Improve and extend admin/git-bisect-start
+
+ * admin/git-bisect-start: Use 'git bisect skip' instead of 'git
+ bisect good' for merges of external trees, which is equivalent but
+ faster in some cases. Improve the explanation on external tree
+ merges. Add list of commits in the last six years on which
+ building Emacs fails, and call 'git bisect skip' on them. Also
+ document how the script can be called automatically when 'git
+ bisect start' is called in the Emacs repository.
+
+ * admin/notes/repo (Bisecting): Adapt the explanation of the
+ script accordingly.
+
+2022-12-18 Andrea Monaco <andrea.monaco@autistici.org>
+
+ Make 'rmail-summary-by-thread' faster
+
+ * lisp/mail/rmailsum.el (rmail-summary-message-parents-vector)
+ (rmail-summary-message-descendants-vector): Doc fixes.
+ (rmail-summary-message-descendants-vector): New variable.
+ (rmail-summary-fill-message-parents-and-descs-vectors): Renamed
+ from 'rmail-summary-fill-message-parents-vector' and rewritten.
+ (rmail-summary-direct-descendants): Function deleted.
+
+2022-12-18 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS build
+
+ * src/lread.c (syms_of_lread): Make the MS-DOS build work again.
+
+2022-12-18 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid crashes in PGTK build due to signal in 'note_mouse_highlight'
+
+ * src/xdisp.c (string_buffer_position): Make sure the TO argument
+ of 'string_buffer_position_lim' is always inside [BEGV..ZV].
+ Otherwise 'string_buffer_position_lim' might call
+ 'get-char-property' and friends with invalid position, which will
+ just signal an error and do nothing useful. (Bug#60144)
+
+2022-12-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix MS-Windows build broken by recent treesit.c changes
+
+ * src/treesit.c (init_treesit_functions, ts_tree_cursor_copy)
+ (ts_tree_cursor_delete): Add boilerplate for using new tree-sitter
+ functions.
+ (ts_node_parent): Delete boilerplate of unused function.
+
+2022-12-17 Theodor Thornhill <theo@thornhill.no>
+
+ Fix wrong capture in typescript-ts-mode (bug#60167)
+
+ An example of the issue could be:
+
+ <Menu.Item>
+ {({ active }) => (
+ link
+ ? <Link to={link}> {text}</Link>
+ : <a href="#" onClick={onClick}>{text}</a>
+ )}
+ </Menu.Item>
+
+ Here 'link' as well as a lot of the other constructs inside of the
+ parenthesized expression will be font-locked with
+ 'font-lock-variable-name-face'. We only want to capture the
+ identifier.
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Make the variable capture
+ only capture the identifier, and not the whole expression.
+
+2022-12-17 Randy Taylor <dev@rjt.dev>
+
+ Add rust-ts-mode (Bug#60136)
+
+ * etc/NEWS: Mention it.
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add it.
+ * lisp/progmodes/rust-ts-mode.el: New major mode with
+ tree-sitter support.
+
+2022-12-17 Theodor Thornhill <theo@thornhill.no>
+
+ Indentation fixes for jsx/tsx (bug#60169)
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Simplify the rules.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): Simplify the rules.
+
+2022-12-17 Theodor Thornhill <theo@thornhill.no>
+
+ Fix treesit-query-validate problem with view-mode
+
+ * lisp/treesit.el (treesit-query-validate): Move the (view-mode) into
+ the correct scope.
+
+2022-12-17 Yuan Fu <casouri@gmail.com>
+
+ Use cursor API in treesit-node-parent
+
+ This is the last part of the change that fixes bug#60054. The
+ previous change fixes it for searching functions, this fixes for
+ treesit-node-parent.
+
+ * src/treesit.c (Ftreesit_node_parent): Use the new cursor API.
+
+2022-12-17 Yuan Fu <casouri@gmail.com>
+
+ Switch to use cursor API in treesit.c
+
+ ts_node_parent has bugs (bug#60054), using cursor API avoids that.
+ Tree-sitter's author might remove ts_node_parent in the future, so
+ might as well switch to use cursors now. We are basically
+ reimplementing some of the logic of ts_node_prev_sibling and
+ ts_node_parent in the sibling helper and cursor helper functions.
+
+ See also https://github.com/tree-sitter/tree-sitter/issues/1992
+
+ * src/treesit.c (treesit_traverse_sibling_helper)
+ (treesit_traverse_child_helper)
+ (treesit_traverse_match_predicate): Reimplemented to use the cursor API.
+ (treesit_search_dfs)
+ (treesit_search_forward): Use the new cursor helper functions.
+ (Ftreesit_search_subtree)
+ (Ftreesit_search_forward)
+ (Ftreesit_induce_sparse_tree): Use cursors.
+
+ * test/src/treesit-tests.el (treesit-search-subtree): New test.
+ (treesit--ert-search-setup): New macro.
+ (treesit-search-forward)
+ (treesit-search-forward-named-only)
+ (treesit-search-backward)
+ (treesit-search-backward-named-only)
+ (treesit-cursor-helper-with-missing-node): New tests.
+
+2022-12-17 Yuan Fu <casouri@gmail.com>
+
+ Add treesit_assume_true and treesit_cursor_helper
+
+ This is part 1 of the change to change node API to cursor API. See
+ the second part for more detail. (I splitted the change to make the
+ diff more sane.)
+
+ * src/treesit.c (treesit_assume_true)
+ (treesit_cursor_helper): New functions.
+
+2022-12-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove file-exists-in-trash-p
+
+ * lisp/files.el (file-exists-in-trash-p): Remove, as this name is
+ not suitable for users. All uses replaced by file-attributes,
+ which is good enough here.
+
+2022-12-17 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6-49-g47d129
+
+2022-12-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Don’t assume make-directory handler returns nil
+
+ * lisp/files.el (make-directory): Ignore what the make-directory
+ handler returns, as its return value was not documented in Emacs 28.
+
+2022-12-17 Paul Eggert <eggert@penguin.cs.ucla.edu>
+
+ Fix copy-directory bug when dest dir exists
+
+ * lisp/files.el (copy-directory): Set ‘follow’ depending on
+ whether we made the directory, not based on a guess that is
+ sometimes wrong. When NEWNAME is a directory name and
+ COPY-CONTENTS is nil, do not object merely because the adjusted
+ NEWNAME is already a directory. (Bug#58919).
+ * test/lisp/files-tests.el (files-tests-copy-directory):
+ Test for the bug.
+
+2022-12-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ make-directory now returns t if dir already exists
+
+ This new feature will help fix a copy-directory bug (Bug#58919).
+ Its implementation does not rely on make-directory handlers
+ supporting the new feature, as it no longer uses a make-directory
+ handler H in any way other than (funcall H DIR), thus using
+ only the intersection of the old and new behavior for handlers.
+ This will give us time to fix handlers at our leisure.
+ * lisp/files.el (files--ensure-directory): New arg MKDIR.
+ All uses changed.
+ (files--ensure-directory, make-directory):
+ Return non-nil if DIR is already a directory. All uses changed.
+ * test/lisp/files-tests.el (files-tests-make-directory):
+ Test new return-value convention.
+
+2022-12-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use make-directory handlers uniformly
+
+ Formerly, the code supported both make-directory and
+ make-directory-internal handlers. This led to confusion and meant than
+ in a few cases (nnmaildir, ido) remote directories could not be used in
+ some cases. Fix this by using only make-directory handlers.
+
+ Perhaps there used to be a reason for why there were both
+ make-directory and make-directory-internal handlers, but whatever that
+ reason was, it seems to have vanished even before now.
+
+ There is no longer any need for make-directory-internal handlers, as
+ the few remaining callers that use make-directory-internal do so only
+ when there are no handlers. However, this change keeps the existing
+ make-directory-internal handlers for now, in case this code is ever
+ used in older Emacs versions that still call those handlers.
+
+ * lisp/gnus/nnmaildir.el (nnmaildir--mkdir):
+ * lisp/ido.el (ido-file-internal):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-make-directory):
+ Use make-directory, not make-directory-internal.
+ * lisp/net/tramp-smb.el (tramp-smb-handle-make-directory-internal):
+ Now obsolete.
+ * src/fileio.c (Fmake_directory_internal): Do not look for or
+ use a make-directory-internal handler.
+ * test/lisp/files-tests.el:
+ (files-tests-file-name-non-special-make-directory-internal):
+ Remove, as this test incorrectly assumes that make-directory-internal
+ must support handlers.
+
+2022-12-17 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'file-exists-p'
+
+ * doc/lispref/files.texi (Testing Accessibility): Document better
+ how to test for existing dangling symlinks. (Bug#60146)
+
+2022-12-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix resizing of mini-windows by 'set-minibuffer-message'
+
+ * src/xdisp.c (redisplay_window): Always resize mini-windows
+ displaying the active minibuffer. (Bug#60015)
+
+2022-12-17 Eli Zaretskii <eliz@gnu.org>
+
+ Prevent Abort dialogs from async-compiling jobs on Windows
+
+ * lisp/emacs-lisp/comp.el (comp-run-async-workers): Disable Abort
+ dialog popping in the sub-processes that perform async
+ compilation, by passing w32-disable-abort-dialog=t on their
+ command line.
+
+2022-12-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'window-max-chars-per-line' when there are no fringes
+
+ * lisp/window.el (window-max-chars-per-line): Fix the way we
+ account for the fringes by calling 'window-fringes'. (Bug#59963)
+
+2022-12-16 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-mode: Recognize instance or global var as first arg in parenless
call
+
+ * lisp/progmodes/ruby-mode.el (ruby-smie--args-separator-p):
+ Recognize instance or global var as first arg in parenless call.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb: Add example.
+
+2022-12-16 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix end-of-defun in ruby-mode
+
+ * lisp/progmodes/ruby-mode.el (ruby-beginning-of-defun):
+ Return t in case of success.
+
+2022-12-16 Yuan Fu <casouri@gmail.com>
+
+ Remove treesit-defun-prefer-top-level and friends
+
+ Because they are not used anymore, after the new defun navigation is
+ installed.
+
+ * lisp/treesit.el (treesit-defun-prefer-top-level)
+ (treesit--defun-maybe-top-level): Remove.
+
+2022-12-16 Randy Taylor <dev@rjt.dev>
+
+ Add yaml-ts-mode (Bug#60105)
+
+ * admin/notes/tree-sitter/build-module/batch.sh:
+ * admin/notes/tree-sitter/build-module/build.sh: Add yaml support.
+ * etc/NEWS: Mention it.
+ * lisp/textmodes/yaml-ts-mode.el: New major mode with
+ tree-sitter support.
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add it.
+
+2022-12-16 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fix indentation in json-ts-mode (bug#60123)
+
+ * lisp/progmodes/json-ts-mode.el
+ (json-ts--indent-rules): Add indentation rules for arrays.
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org> (tiny change)
+
+ New input method 'cyrillic-chuvash'
+
+ * lisp/leim/quail/cyrillic.el ("cyrillic-chuvash"): New input
+ method, contributed by flashymittens@tutanota.com. (Bug#60023)
+
+2022-12-16 Juanma Barranquero <lekktu@gmail.com>
+
+ Backport: ; * lisp/bs.el: Small doc and whitespace fixes
+
+ (cherry picked from commit 8624734504af4572525665c713a47e1b6f439a2c)
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "alist-get testfn argument evaluation correction"
+
+ This reverts commit 17d65c99cd812e085d85f790c83ec0d540490a55.
+
+ Please don't install unnecessary improvements on the release
+ branch.
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Elide broken but unnecessary `if` optimisations"
+
+ This reverts commit 13aa376e93564a8cf2ddbbcf0968c6666620db89.
+
+ Please don't install anything on the release branch that is
+ not a clear bugfix for a known bug.
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Use equal and member instead of eq and memq"
+
+ This reverts commit f4b430140f0866f98bbf18b7094348dc64032813.
+
+ Please don't install anything on the release branch that is not
+ strictly necessary fro Emacs 29.
+
+2022-12-16 Mattias Engdegård <mattiase@acm.org>
+
+ Use equal and member instead of eq and memq
+
+ * lisp/cedet/semantic/complete.el (semantic-displayer-show-request):
+ * lisp/descr-text.el (describe-char-categories):
+ * lisp/mh-e/mh-identity.el (mh-select-identity):
+ * lisp/transient.el (transient--delay-post-command)
+ (transient--post-command):
+ * lisp/vc/vc-git.el (vc-git-create-tag):
+ * test/lisp/emacs-lisp/cl-lib-tests.el
+ (cl-lib-nth-value-test-multiple-values):
+ * lisp/emulation/viper-cmd.el (viper-preserve-cursor-color):
+ Use `equal` instead of `eq` and `member` instead of `memq` where
+ the comparison is with literals without guaranteed identity.
+ In some cases this change corrects evident bugs, in others it is
+ mostly cosmetic.
+
+2022-12-16 Mattias Engdegård <mattiase@acm.org>
+
+ Elide broken but unnecessary `if` optimisations
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-if):
+ Remove explicit clauses purposing to simplify
+
+ (if X nil t) -> (not X)
+ (if X t nil) -> (not (not X))
+
+ but never did so because of a coding mistake (eq instead of equal),
+ found by a recently added warning. They weren't actually needed
+ thanks to the optimiser's fixpoint iteration: we eventually get the
+ same results through
+
+ (if X nil t) -> (if (not X) t nil) -> (if (not X) t) -> (not X)
+ (if X t nil) -> (if X t) -> (not (not X))
+
+2022-12-16 Mattias Engdegård <mattiase@acm.org>
+
+ alist-get testfn argument evaluation correction
+
+ * lisp/emacs-lisp/gv.el (alist-get):
+ Evaluate TESTFN exactly once (previously up to 3 times).
+ Reduce the macro-expansion to include a call to either assoc or assq,
+ not both; this reduces the generated code size in some cases.
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/term/xterm.el (xterm-function-map): Add M-SPC. (Bug#60077)
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ Fix moving to trash files that overwrite dangling symlinks there
+
+ * lisp/files.el (file-exists-in-trash-p): New function.
+ (move-file-to-trash): Use it instead of 'file-exists-p' when
+ testing whether the file exist in the trash. (Bug#59986)
+
+2022-12-16 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix SVG scaling (bug#59802)
+
+ Fix SVG scaling with librsvg>2.52 and SVG file with only one known
+ dimension.
+
+ * src/image.c (svg_load_image): Compute a percentage dimension with
+ the other known dimension.
+
+2022-12-16 F. Jason Park <jp@neverwas.me>
+
+ Fix some naming issues involving query buffers in ERC
+
+ * lisp/erc/erc-networks.el
+ (erc-networks-rename-surviving-target-buffer): Don't kill a surviving
+ target buffer when another, non-target buffer, possibly not even
+ belonging to ERC, already exists and sports the target's name.
+ (erc-networks--reconcile-buffer-names): Always append a network-ID
+ suffix to a target buffer's name if another buffer of that name
+ already exists. (Bug#59976.)
+ * lisp/erc/erc.el (erc, erc-tls): Revise `:id' portion of doc strings.
+ Thanks to Mike Kazantsev for the suggestion and for filing this bug
+ and helping solve it.
+ * test/lisp/erc/erc-networks-tests.el:
+ (erc-networks-rename-surviving-target-buffer--query-non-target): Add
+ new test.
+ * test/lisp/erc/erc-scenarios-base-association-query.el: New file.
+ * test/lisp/erc/resources/base/assoc/queries/netnick.eld: New file.
+ * test/lisp/erc/resources/base/assoc/queries/non-erc.eld: New file.
+
+2022-12-16 F. Jason Park <jp@neverwas.me>
+
+ Increment erc-debug-irc-protocol-version to 2
+
+ * lisp/erc/erc.el (erc-debug-irc-protocol-version): Change version to
+ 2 to help dependent tooling detect redacted passwords.
+ (erc-log-irc-protocol): Don't bother redacting incoming messages.
+ (Bug#59284.)
+
+2022-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ A better fix for bug#60096
+
+ * lisp/startup.el (initial-scratch-message):
+ * lisp/simple.el (get-scratch-buffer-create): Revert last changes.
+
+ * src/window.c (Fset_window_configuration): Force recalculation of
+ Vwindow_list after restoring the windows.
+ * src/buffer.c (other_buffer_safely): Make sure we always return a
+ valid buffer, even if 'get-scratch-buffer-create' signals an
+ error.
+
+2022-12-16 João Távora <joaotavora@gmail.com>
+
+ Bump Eglot version to 1.10
+
+ * lisp/progmodes/eglot.el (Version): Bump to 1.10
+ (Package-Requires): Bump required versions of jsonrpc and project.
+
+2022-12-16 João Távora <joaotavora@gmail.com>
+
+ Eglot: fix discrepant eglot-guess-contact/eglot-command-history
+
+ Due to a typo, the defvar eglot--command-history wasn't actually used
+ in eglot-guess-contact as intended. That function used a
+ single-dash-name version of the variable instead.
+
+ This worked fine, except that two variables were created instead of
+ one, and the one actually being used didn't have any docstring.
+
+ Rename the variable to eglot-command-history to fix this. It's better
+ than renaming the reference in eglot-guess-contact which would lose
+ user's history for M-x eglot.
+
+ * lisp/progmodes/eglot.el (eglot-command-history): Rename from
+ eglot--command-history.
+
+2022-12-16 João Távora <joaotavora@gmail.com>
+
+ Avoid recursive process filters in lisp/jsonrpc.el (bug#60088)
+
+ jsonrpc.el may lose JSON-RPC messages because of recursive process
+ filters. The problem happens in jsonrpc.el's jsonrpc--process-filter.
+
+ The code of the process filter didn't expect to be called recursively
+ and fails in that case.
+
+ But that can happen if the three conditions are verified.
+
+ 1. the client code invoked by its jsonrpc--connection-receive inside
+ the process filter callee immediately sends follow-up input to
+ process within the same Lisp stack. This is a common scenario,
+ especially during LSP initialiation sequence used by Eglot, a
+ jsonrpc.el client.
+
+ 2. that follow-up message is large enough for process-send-string to
+ send the input in bunches (output from processes can arrive in
+ between bunches).
+
+ 3. the process happens to have already some more output ready
+
+ The fix in this commit detects recursive invocations and immediately
+ re-schedules them as non-recursive calls to the
+ jsonrpc--process-filter (but started from timers).
+
+ * lisp/jsonrpc.el (jsonrpc--process-filter): Rework.
+ (Version): Bump to 1.0.16.
+
+2022-12-15 Theodor Thornhill <theo@thornhill.no>
+
+ Add lambda_expression-rule to java-ts-mode (bug#60091)
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): New
+ rule.
+
+2022-12-15 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ eglot: Add support for new language server csharp-ls
+
+ C# has two popular language servers: Omnisharp Roslyn (already
+ supported) and csharp-ls (newer, more performant).
+
+ * lisp/progmodes/eglot.el: Add new C# language server
+ csharp-ls. (Bug#60089)
+
+2022-12-15 Yuan Fu <casouri@gmail.com>
+
+ Use the new tree-sitter commands
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--defun-valid-p)
+ (c-ts-mode--defun-skipper): New functions.
+ (c-ts-base-mode): Setup defun navigation.
+ * lisp/progmodes/sh-script.el (bash-ts-mode): Setup defun navigation.
+ * lisp/treesit.el (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Change to new implementation, which is
+ intended to be used as commands.
+ (treesit-major-mode-setup): Setup remap for beginning/end-of-defun
+ commands.
+
+2022-12-15 Yuan Fu <casouri@gmail.com>
+
+ Add "function" feature to python-ts-mode (bug#59977)
+
+ * lisp/progmodes/python.el (python--treesit-settings): Add feature.
+ (python-ts-mode): Add feature. And fix indentation for the
+ python-indent-guess-indent-offset code.
+
+2022-12-15 Randy Taylor <dev@rjt.dev>
+
+ Add go-ts-mode and go-mod-ts-mode (Bug#60025)
+
+ * admin/notes/tree-sitter/build-module/batch.sh:
+ * admin/notes/tree-sitter/build-module/build.sh: Add go-mod support.
+ * etc/NEWS: Mention them.
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add them.
+ * lisp/progmodes/go-ts-mode.el: New major modes with
+ tree-sitter support.
+
+2022-12-15 Yuan Fu <casouri@gmail.com>
+
+ Add basic support for hideshow in python-ts-mode (bug#60044)
+
+ * lisp/progmodes/python.el (python-base-mode): Add setup for
+ python-ts-mode.
+
+2022-12-15 Theodor Thornhill <theo@thornhill.no>
+
+ Add "this" keyword to java-ts-mode (bug#60086)
+
+ * lisp/progmodes/java-ts-mode.el
+ (java-ts-mode--font-lock-settings): Add the node to the keyword
+ feature.
+
+2022-12-15 Dmitry Gutov <dgutov@yandex.ru>
+
+ When completing relative project file names, use relative history
+
+ * lisp/progmodes/project.el: Require 'cl-lib'.
+
+ * lisp/progmodes/project.el (project--read-file-cpd-relative):
+ Pre-process history entries around completing-read (bug#58447).
+
+ This includes both filtering by common-parent-directory prefix and
+ mapping into relative names.
+
+2022-12-15 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid segfaults due to invalid selected-window's buffer
+
+ * lisp/startup.el (initial-scratch-message): Don't use \\[...]
+ commands for substitute-command-keys.
+ * lisp/simple.el (get-scratch-buffer-create): Don't call
+ substitute-command-keys on initial-scratch-message, to avoid
+ signaling an error in rare cases. (Bug#60096)
+
+2022-12-15 Juri Linkov <juri@linkov.net>
+
+ Revert 21b387c39bd with last-minute hasty changes (bug#60048).
+
+ * lisp/simple.el (completion-list-mode-map): Unbind [up] and [down].
+ (previous-line-completion, next-line-completion): Remove.
+
+2022-12-15 Alan Mackenzie <acm@muc.de>
+
+ Replace an erroneous eq with an equal in cc-defs.el
+
+ * lisp/progmodes/cc-defs.el (c-looking-at-non-alphnumspace): Replace eq
with
+ equal in the XEmacs branch.
+
+2022-12-15 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el ([tab-bar]): Use 'make-sparse-keymap' instead of
'ignore'.
+
+ This helps to avoid the error in 'where-is-internal' that should
+ not call :filter unnecessarily (bug#9923).
+
+2022-12-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ compile.el: Fix regression with nb of errors in modeline
+
+ * lisp/progmodes/compile.el (compilation-mode-line-errors): Mark it as
+ risky-local, like `defconst` used to do for us.
+
+2022-12-15 Juri Linkov <juri@linkov.net>
+
+ Make tab-bar-tab-group-format-function backwards-compatible (bug#60073)
+
+ * lisp/tab-bar.el (tab-bar--format-tab-group): Add condition-case
+ with wrong-number-of-arguments for backwards-compatibility.
+ (tab-bar-tab-group-format-default): Simplify.
+
+2022-12-15 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Make tab-bar-tab-group-format-function also handle current group
+
+ * lisp/tab-bar.el (tab-bar--format-tab-group): Call
+ 'tab-bar-tab-group-format-default' to format current group tab.
+ (tab-bar-tab-group-format-default): Update function to also handle
+ current group tab (bug#60073).
+
+2022-12-15 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure package directories for source packages from checkouts
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install-from-checkout):
+ Set the :dir entry, since `package-vc--unpack-1' assumes the field is
+ set, as is the case when invoking `package-vc--unpack'.
+
+2022-12-15 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/README (SELECTOR): Add eglot-tests.el to remote file using
libraries.
+
+2022-12-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix bug#60060 in Tramp
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-local-copy):
+ Delete `tmpfile' in case of error. (Bug#60060)
+
+2022-12-15 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ * .gitignore: Ignore GDB history files.
+
+2022-12-15 Eli Zaretskii <eliz@gnu.org>
+
+ Mention 'tree-sitter' in user manual and NEWS
+
+ * doc/emacs/programs.texi (Program Modes): Mention tree-sitter and
+ the modes supported by it.
+ * etc/NEWS: Mention tree-sitter in the Installation Changes
+ section.
+
+2022-12-14 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix ruby-add-log-current-method after nested class definition
+
+ * lisp/progmodes/ruby-mode.el (ruby--add-log-current-indent):
+ New function.
+ (ruby-add-log-current-method): Use it.
+ Check for "class" and "module" indentation to filter out the
+ definitions which don't include the given position. Also try to
+ match "def" only once (for performance), because if the closest
+ one doesn't include the given position, none will.
+
+ * test/lisp/progmodes/ruby-mode-tests.el
+ (ruby-add-log-current-method-after-inner-class-outside-methods)
+
(ruby-add-log-current-method-after-inner-class-outside-methods-with-text):
+ New tests.
+
+2022-12-14 Theodor Thornhill <theo@thornhill.no>
+
+ Add indent rules to js/typescript/tsx-ts-mode (bug#60074)
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): Add in binary_expression and
+ jsx_fragment.
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Add the same rules.
+
+2022-12-14 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification in csharp-ts-mode (bug#59897)
+
+ Fixes highlighting of generic methods like the one below:
+
+ instance.MethodWithTypeArguments<Type>(...);
+ InClassMethodWithTypeArguments<Type>(...);
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Add new rule.
+
+2022-12-14 Yuan Fu <casouri@gmail.com>
+
+ Revert "Add expression for generic_name in csharp-ts-mode"
+
+ I applied the wrong commit, the next commit will be the right one,
+ sorry about that!
+
+ This reverts commit 647b6a8099f414e5a7b162efd3658e174064dfe7.
+
+2022-12-14 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Introduce support for TOML config-format
+
+ This commit introduces support for the semi-popular TOML
+ config-format[1] through a new major-mode: toml-ts-mode.
+
+ I've read through the full spec[2], and from what I can see this
+ major-mode should provide correct syntax-highligting for every sort of
+ config-declaration which adheres to the specification.
+
+ Besides that it also adds support for imenu and basic tree-sitter
+ based navigation.
+
+ [1] https://toml.io/en/
+ [2] https://toml.io/en/v1.0.0
+
+2022-12-14 Arash Esbati <arash@gnu.org>
+
+ Fix handling of % when searching in .tex or .dtx files
+
+ * lisp/textmodes/reftex.el (reftex-compile-variables): Consider %
+ when building the regexp for searching only in .dtx files.
+ (AUCTeX bug#59638)
+
+2022-12-14 Daniel Martín <mardani29@yahoo.es>
+
+ Treat C++ classes as defuns in C Tree-sitter mode (bug#60047)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-base-mode): Add "class_specifier"
+ as a node of type "defun".
+
+2022-12-14 Daniel Martín <mardani29@yahoo.es>
+
+ Add < and > to the syntax table in c++-ts-mode (bug#60049)
+
+ * lisp/progmodes/c-ts-mode.el (c++-ts-mode--syntax-table): Add a
+ specific syntax table for C++. Consider "<" and ">" open/close
+ delimiters (C++ templates).
+ (c++-ts-mode): Use the new syntax table.
+
+2022-12-14 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontifications in Typescript mode
+
+ * lisp/progmodes/typescript-ts-mode.el: Improve fontification of
+ variables. (Bug#59831)
+
+2022-12-14 Eli Zaretskii <eliz@gnu.org>
+
+ Update the documentation of overlays (bug#59996)
+
+ * src/buffer.c (Foverlay_recenter, Foverlay_lists): Update the doc
+ strings.
+
+ * lisp/subr.el (copy-overlay): Update comment.
+
+ * doc/lispref/internals.texi (Buffer Internals): Remove buffer
+ fields relevant to the old implementation; add the new interval
+ tree field.
+ * doc/lispref/display.texi (Overlays, Managing Overlays): Update
+ text to be consistent with the new implementation of overlays.
+ (Managing Overlays): Remove documentation of 'overlay-recenter'.
+
+ * etc/NEWS: Mention incompatible aspects of overlay
+ reimplementation.
+
+2022-12-14 F. Jason Park <jp@neverwas.me>
+
+ Don't send erc-sasl-user as USER command argument
+
+ * lisp/erc/erc-sasl.el (erc-sasl--send-cap-ls): Add internal switch
+ for sending an opening "CAP LS". The rationale for not enabling this
+ by default is twofold: one, it more strongly implies that ERC supports
+ IRCv3 client capability negotiation, which is somewhat disingenuous;
+ and, two, We'd still be "faking it" by firing and forgetting, and more
+ balls in the air makes things less predictable.
+ (erc--register-connection): Possibly send a "CAP LS" before anything
+ depending on the value of `erc-sasl--send-cap-ls'. Also, don't
+ attempt to send `erc-session-username' when it holds an SASL username
+ because the latter may contain protocol-defying characters.
+ * test/lisp/erc/resources/base/local-modules/fourth.eld: change user
+ parameter of "USER" command to reflect nick when `erc-sasl-user' is
+ set to `:user'. (Bug#59976.)
+
+2022-12-14 F. Jason Park <jp@neverwas.me>
+
+ Set erc-network to a "given" ID instead of failing
+
+ * lisp/erc/erc-networks.el (erc-networks--determine): Return the
+ so-called "given" ID from a non-nil `:id' keyword arg passed to `erc'
+ or `erc-tls'.
+ (erc-networks--allow-unknown-network): Add internal variable to
+ allow IRC session to continue despite the network being unknown.
+ (erc-networks--set-name): Tell the user about falling back to a given
+ ID when the network can't be determined. When that's so, end the
+ session by destroying the connection unless
+ `erc-networks--allow-unknown-network' is enabled. (Bug#59976.)
+ (erc-networks--ensure-announced): Include the fallback announced
+ server name in the error message.
+ * test/lisp/erc/erc-networks-tests.el (erc-networks--set-name): Add
+ dummy server process and don't expect an error to be signaled.
+ * test/lisp/erc/erc-scenarios-misc.el
+ (erc-scenarios-networks-announced-missing): Don't expect an error to
+ be signaled.
+ * test/lisp/erc/resources/networks/announced-missing/foonet.eld:
+ Remove "mode" match pattern.
+
+2022-12-14 F. Jason Park <jp@neverwas.me>
+
+ Limit casemapping to appropriate ranges in ERC
+
+ * lisp/erc/erc-common.el (erc-downcase): Use case table for
+ `erc-downcase' so that case conversions are limited to the ASCII
+ interval.
+ * lisp/erc/erc.el (erc-casemapping--rfc1459-strict,
+ erc--casemapping-rfc1459): Make these case tables instead of
+ translation tables. The functions in case-table.el modify the
+ standard syntax table, but that doesn't seem to make sense here,
+ right?
+ * test/lisp/erc/erc-tests.el (erc-downcase): Add cases showing
+ mappings outside of the ASCII range. (Bug#59976.)
+
+2022-12-14 F. Jason Park <jp@neverwas.me>
+
+ Actually accept non-symbols as IDs in erc-open
+
+ * lisp/erc/erc.el (erc-generate-new-buffer-name): Despite what it says
+ in the documentation, only symbols were being accepted as valid `:id'
+ entry-point arguments. This uses the interned `princ' representation
+ of the argument instead.
+ * test/lisp/erc/erc-scenarios-base-netid-samenet.el
+ (erc-scenarios-common--base-network-id-same-network): Randomly specify
+ a string for the ID param instead of a non-nil symbol when opening a
+ new connection.
+ * test/lisp/erc/resources/erc-scenarios-common.el
+ (erc-scenarios-common-assert-initial-buf-name): Adjust helper to allow
+ for non-symbol IDs. (Bug#59976.)
+
+2022-12-14 F. Jason Park <jp@neverwas.me>
+
+ Respect a nil erc-session-password when reconnecting
+
+ * lisp/erc/erc.el (erc-open): Simplify `old-vars' expression.
+ (erc--compute-server-password): Only compute a server password when
+ first connecting. For compatibility, this respects third-party code
+ that expects session passwords in target buffers when initially
+ non-nil.
+ * test/lisp/erc/erc-scenarios-services-misc.el
+ (erc-scenarios-services-auth-source-reconnect): Add new test.
+ * test/lisp/erc/resources/services/auth-source/recon.eld: Add new test
+ data file. (Bug#59858.)
+
+2022-12-14 F. Jason Park <jp@neverwas.me>
+
+ Add dedicated auth-source section in ERC manual
+
+ * doc/misc/erc.texi: Move auth-source description from the Password
+ subheading of the Advanced chapter's Connecting section to the new
+ Integrations section as a new node, Auth-Source, and give it a bit
+ more structure. Fix various misuses of xref vs. pxref. Convert URL
+ subheading to subsection and add anchor. Prefer "backend" as a single
+ word, based on usage in other manuals. Also replace loud "warning" in
+ SASL troubleshooting section.
+ * etc/ERC-NEWS: Re-link auth-source mention.
+ * lisp/erc/erc-sasl.el (erc-sasl-auth-source-function): Update info
+ node in doc string.
+ * lisp/erc/erc-services.el (erc-auth-source-services-function):
+ Re-link auth-source info node in doc string.
+ * lisp/erc/erc.el (erc-password, erc-auth-source-server-function,
+ erc-auth-source-join-function): Re-link auth-source info node in doc
+ strings.
+
+2022-12-14 Mattias Engdegård <mattiase@acm.org>
+
+ Better shortdoc examples
+
+ * lisp/emacs-lisp/shortdoc.el
+ (symbol, comparison): New.
+ (string, list, number): Remove or change examples that do not have
+ well-defined results, such as `eq` on strings or floats.
+ Edit other examples for better illustrating each respective operation.
+
+2022-12-14 Mattias Engdegård <mattiase@acm.org>
+
+ Shortdoc: read and evaluate strings after :eval
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc--display-function):
+ If the parameter of :eval is a string then read, evaluate and print
+ the result. This was always the intention and is documented behaviour.
+
+2022-12-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp tests in eglot-tests, prefix tests uniquely
+
+ * test/lisp/progmodes/eglot-tests.el (eglot--call-with-fixture):
+ Use `make-nearby-temp-file'.
+ (eglot--call-with-tramp-test): Set `tramp-verbose' and
+ `default-directory'. The latter is needed for `make-nearby-temp-file'.
+ (eglot-test-tramp-test, eglot-test-tramp-test-2): Tag them as
+ :expensive-test.
+ (all): Prefix all tests with `eglot-test-' uniquely.
+
+2022-12-14 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc-git.el (vc-git-checkin): Use make-nearby-temp-file
(bug#60011)
+
+2022-12-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete temp files after icalendar tests
+
+ * test/lisp/calendar/icalendar-tests.el
+ (icalendar-tests--get-error-string-for-export): Make sure we clean up
+ temporary files after test.
+
+2022-12-13 Kai Ma <justksqsf@gmail.com> (tiny change)
+
+ Fix syntax tables of tree-sitter modes (bug#59807)
+
+ Tree-sitter modes should use the same syntax table as the
+ non-tree-sitter ones.
+
+ * lisp/progmodes/js.el (js-mode-syntax-table)
+ (js-ts-mode)
+ * lisp/progmodes/python.el (python-ts-mode)
+ * lisp/progmodes/sh-script.el (bash-ts-mode)
+
+
+ xx
+
+2022-12-13 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/Makefile.in (need_emacsver): Add use-package.
+
+2022-12-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix bug when calling `rgrep` non-interactively
+
+ * lisp/progmodes/grep.el (rgrep): Fix bug where running
+ non-interactively requires running it interactively
+ first. (Bug#60024)
+
+2022-12-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp specific tests in eglot-tests.el
+
+ * test/lisp/progmodes/eglot-tests.el (tramp): Move up.
+ (tramp-sh): Don't require.
+ (eglot--cleanup-after-test): Delete Tramp buffers if needed.
+ (eglot-tests-lsp-abiding-column): Rename from
`eglot-lsp-abiding-column'.
+ (tramp-histfile-override): Declare.
+ (eglot--call-with-tramp-test):
+ Use `ert-remote-temporary-file-directory'. Skip if needed.
+ (eglot--tramp-test, eglot--tramp-test-2): Don't skip.
+
+2022-12-13 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/textmodes/texinfo.el (texinfo-flymake): Improve docstring.
+
+2022-12-13 Juri Linkov <juri@linkov.net>
+
+ Support a function in the BUFFER-LIST arg of list-buffers-noselect
(bug#59935)
+
+ * lisp/buff-menu.el (Buffer-menu-buffer-list): New buffer-local
variable.
+ (list-buffers-noselect): Set Buffer-menu-buffer-list to 'buffer-list'
+ that now keeps the buffer-local value of the provided buffer list
+ or a function that returns the buffer list.
+ (list-buffers--refresh): Handle buffer-list and Buffer-menu-buffer-list
+ as a function and as a list.
+
+ * lisp/progmodes/project.el (project-list-buffers): Let-bind
+ 'buffer-list-function' used by both legacy code and the new version
+ of list-buffers-noselect that supports its arg BUFFER-LIST as a
function.
+
+2022-12-13 Augusto Stoffel <arstoffel@gmail.com>
+
+ Don't allow lazy highlight from recursive minibuffers
+
+ See bug#59918.
+
+ * lisp/isearch.el (minibuffer-lazy-highlight-setup): Don't activate
+ when starting a recursive minibuffer.
+
+2022-12-13 Eli Zaretskii <eliz@gnu.org>
+
+ Improve resetting face attributes when looking for suitable fonts
+
+ * src/xfaces.c (syms_of_xfaces)<face-font-lax-matched-attributes>:
+ Change the default value to t. Update doc string.
+ (realize_gui_face): When 'Vface_font_lax_matched_attributes' is t,
+ reset the 3 default font attributes efficiently. Call
+ 'font_maybe_unset_attribute' only if the value is neither nil nor
+ t. (Bug#59347)
+
+2022-12-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Add lexical-binding to example package header
+
+ * doc/lispref/package.texi (Simple Packages): Add lexical-binding
+ cookie to example package header.
+
+2022-12-13 Yuan Fu <casouri@gmail.com>
+
+ Add improved tree-sitter navigation
+
+ This new set of functions (and tests) should eliminate
+ defun-navigation bugs and limitations we currently have. This commit
+ doesn't change any existing bahavior: treesit-beginning/end-of-defun
+ and friends are unchanged. The plan is to later switch gear and
+ replace the current functions with the new ones introduced in this
+ change.
+
+ This is a relatively big change, but I've setup a comprehensive test,
+ and it should fix current bugs, so I think it's ok to put it on the
+ release branch.
+
+ The gist of the new navigation is to use treesit--defuns-around to
+ find the previous sibling defun, next sibling defun, and the parent
+ defun, then use this information to move to previous/next
+ beginning/end of defun in treesit--navigate-defun.
+
+ I also added comprehensive testing that tests all four possible
+ operations (prev-beg, next-beg, prev-end, next-end) starting at all
+ possible positions (between two sibling defuns, inside a sibling
+ defun, etc).
+
+ * lisp/treesit.el (treesit-defun-type-regexp): Expand definition to
+ allow (REGEXP . FILTER). Old functions don't support this, but it
+ should be fine since we are soon replacing them.
+
+ (treesit-defun-tactic)
+ (treesit-defun-skipper): New variables.
+
+ (treesit-default-defun-skipper)
+ (treesit--defuns-around)
+ (treesit--top-level-defun)
+ (treesit--navigate-defun): New functions.
+
+ * test/src/treesit-tests.el (treesit--ert-insert-and-parse-marker)
+ (treesit--ert-collect-positions)
+ (treesit--ert-test-defun-navigation): New helper functions.
+
+ (treesit--ert-defun-navigation-python-program)
+ (treesit--ert-defun-navigation-js-program)
+ (treesit--ert-defun-navigation-bash-program)
+ (treesit--ert-defun-navigation-nested-master): New variables.
+
+ (treesit-defun-navigation-nested-1)
+ (treesit-defun-navigation-nested-2)
+ (treesit-defun-navigation-nested-3)
+ (treesit-defun-navigation-top-level): New tests.
+
+2022-12-12 Stefan Kangas <stefankangas@gmail.com>
+
+ Add cross-reference to flush-lines
+
+ * lisp/replace.el (flush-lines, kill-matching-lines): Add
+ cross-references between commands, using the names
+ '(kill|delete)-matching-lines' for symmetry. (Bug#59934)
+
+2022-12-12 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Use font-lock-number-face for numeric values in csharp-mode
+
+ (bug#60004)
+
+ * lisp/progmodes/csharp-mode.el: update fontification code.
+
+2022-12-12 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Make treesit-query-validate create a read-only buffer
+
+ * lisp/treesit.el: use view-mode for generated validation buffer.
+
+2022-12-12 Randy Taylor <dev@rjt.dev>
+
+ Improve dockerfile-ts-mode imenu generation (Bug#59979)
+
+ * lisp/progmodes/dockerfile-ts-mode.el
(treesit-node-child-by-field-name):
+ Declare.
+ (dockerfile-ts-mode--imenu-1): Use stage name if available.
+
+2022-12-12 Daniel Martín <mardani29@yahoo.es>
+
+ Add "->" to python--treesit-operators (bug#59968)
+
+ * lisp/progmodes/python.el (python--treesit-operators): Add "->", used
+ to specify the return types of functions in Python.
+
+2022-12-12 Daniel Martín <mardani29@yahoo.es>
+
+ Align C++ access specifiers to their enclosing class/struct/union
+
+ (bug#59966)
+
+ The default style in c++-mode aligns access specifiers like "private",
+ "public" or "protected" to their enclosing class, struct, or union.
+ The "ellemtel" style indents access specifiers, but this C++ style is
+ not supported by c++-ts-mode yet.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles): Align access
+ specifiers to their enclosing class/struct/union.
+
+2022-12-12 Randy Taylor <dev@rjt.dev>
+
+ Add cmake-ts-mode
+
+ * admin/notes/tree-sitter/build-module/batch.sh:
+ * admin/notes/tree-sitter/build-module/build.sh: Add cmake support.
+ * etc/NEWS: Mention it.
+ * lisp/progmodes/cmake-ts-mode.el: New major mode with
+ tree-sitter support.
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add it.
+
+2022-12-12 Theodor Thornhill <theo@thornhill.no>
+
+ Tweak various ts-mode's indent and fontification (bug#59931)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): Add raw
+ string literal font-locking.
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules): Add
+ text_block indent rule.
+ (java-ts-mode--font-lock-settings): Add text_block font-locking.
+ * lisp/progmodes/js.el (js-ts-mode): Prefer top-level navigation.
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--font-lock-settings):
+ Add comment feature.
+ (json-ts-mode): Use comment feature.
+ * lisp/progmodes/typescript-ts-mode.el (typescript-ts-base-mode):
+ Prefer top-level navigation.
+
+2022-12-12 Theodor Thornhill <theo@thornhill.no>
+
+ Add expression for generic_name in csharp-ts-mode (bug#59897)
+
+ Given the below example, we want 'services' to be font-locked in
+ 'font-lock-variable-name-face' in all cases. Previously this only
+ worked in the first case, and the other was font-locked as
+ 'font-lock-function-name-face'.
+
+ namespace Foo {
+ void Foo() {
+ services.Add();
+ services.Add<MyType>();
+ }
+ }
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Add new query that makes the mentioned example work.
+
+2022-12-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Fix the value 'insert' of
outline-minor-mode-use-buttons.
+
+ (outline--insert-button): Keep text properties around point
+ on the inserted whitespace placeholder.
+
+ * lisp/apropos.el (apropos-mode):
+ * lisp/progmodes/xref.el (xref--xref-buffer-mode):
+ Change outline-minor-mode-use-buttons from t to 'insert'.
+
+2022-12-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (completions-group-separator): Revert f7816c94b6.
+
+ Change face attribute from :underline back to :strike-through.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-10/msg01792.html
+
+2022-12-12 João Távora <joaotavora@gmail.com>
+
+ Skip Eglot rust-analyzer tests if 'cargo' isn't available
+
+ * test/lisp/progmodes/eglot-tests.el
+ (project-wide-diagnostics-rust-analyzer)
+ (diagnostic-tags-unnecessary-code): Skip unless "cargo" is found.
+
+2022-12-12 Stefan Kangas <stefankangas@gmail.com>
+
+ use-package.texi: New section "Manual installation"
+
+ * doc/misc/use-package.texi (Manual installation): New section.
+ (Load path, Manual autoloads): Make into subsections of above new
+ section.
+
+2022-12-11 Po Lu <luangruo@yahoo.com>
+
+ Revert "Revert "Improve last change to xfaces.c" (05ece1eb8b)"
+
+ This reverts commit b8d2ec920f37f5d77d32440eefc97dd5e8c2c7dc.
+
+ Not only does it make debugging Emacs harder for users, that change is
+ unsafe for the Haiku port.
+
+2022-12-11 Gregory Heytings <gregory@heytings.org>
+
+ Revert "Improve last change to xfaces.c" (05ece1eb8b)
+
+ * src/xfaces.c: Revert 05ece1eb8b.
+
+ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=59347#331.
+
+2022-12-11 Gregory Heytings <gregory@heytings.org>
+
+ Do not pare arguments unnecessarily.
+
+ * lisp/pcomplete.el (pcomplete-here-using-help): Do not pare
+ arguments. Fixes bug#59803.
+
+2022-12-11 João Távora <joaotavora@gmail.com>
+
+ Add automated tests for Eglot
+
+ Most of the tests require a specific LSP server to do their thing, and
+ skip themselves if this server isn't found.
+
+ This file is a modified/overhauled version of the original Eglot
+ automated tests that were developed in the old GitHub upstream.
+
+ * test/lisp/progmodes/eglot-tests.el: New file.
+
+2022-12-11 João Távora <joaotavora@gmail.com>
+
+ Eglot: allow skipping compile-time warnings about LSP interfaces
+
+ * lisp/progmodes/eglot.el (eglot-strict-mode): Add
'no-unknown-interfaces'.
+ (eglot--check-object): Honour new eglot-strict-mode value.
+
+2022-12-11 Yuan Fu <casouri@gmail.com>
+
+ Add customizale faces for tree-sitter explorer
+
+ * lisp/treesit.el (treesit-explorer-anonymous-node)
+ (treesit-explorer-field-name): New face.
+ (treesit--explorer-draw-node): Use the new faces.
+ (treesit-explore-mode): Change playground to explorer.
+
+2022-12-11 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix error message when installing non-existent package
+
+ * lisp/emacs-lisp/package.el (package-compute-transaction): Don't add
+ trailing dash to package name in non-existent package
+ error. (Bug#59923)
+
+2022-12-11 Juri Linkov <juri@linkov.net>
+
+ Don't use diff-mode buffer as a patch when it's visiting a file
(bug#59962)
+
+ * lisp/vc/vc.el (vc-deduce-fileset-1): Don't call diff-vc-deduce-fileset
+ for diff-mode when buffer-file-name is non-nil. This is because in
this case
+ a file with a diff might be committed to VCS. So don't use it as a
patch
+ to commit with 'C-x v v'.
+
+2022-12-11 Mattias Engdegård <mattiase@acm.org>
+
+ Fix pcase rx patterns using rx-let bindings (bug#59814)
+
+ Reported by Daniel Pittman.
+
+ * lisp/emacs-lisp/rx.el (rx): Move binding of rx--local-definitions...
+ (rx--to-expr): ...here.
+ * test/lisp/emacs-lisp/rx-tests.el (rx-let-pcase): New test.
+
+2022-12-11 Mattias Engdegård <mattiase@acm.org>
+
+ Fix use-package-defaults defcustom type (bug#59941)
+
+ * lisp/use-package/use-package-core.el (use-package-defaults):
+ Enlarge type to allow for keywords such as :ensure and :pin to be
+ added later, remedying a failure in test-custom-opts.
+
+2022-12-11 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ * lisp/language/indian.el: Improve Brahmi composition rules. (bug#58957)
+
+2022-12-10 Po Lu <luangruo@yahoo.com>
+
+ Improve last change to xfaces.c
+
+ * src/xfaces.c (font_unset_attribute): New function.
+ (realize_gui_face): Improve commentary and use list instead of
+ bitmask.
+ (syms_of_xfaces): Get rid of bitmask. Replace it by a list,
+ there is no reason any user should have to think about bitmasks
+ in Emacs lisp.
+
+2022-12-10 Gregory Heytings <gregory@heytings.org>
+
+ Actually improve detection of long lines
+
+ * src/xdisp.c (redisplay_window): Update condition.
+
+ * src/xdisp.c (mark_window_display_accurate_1):
+ * src/pdumper.c (dump_buffer):
+ * src/buffer.h (BUF_CHARS_UNCHANGED_MODIFIED):
+ (struct buffer_text):
+ * src/buffer.c (Fget_buffer_create):
+ Revert 1c837c42c2, which was misguided.
+
+2022-12-10 Gregory Heytings <gregory@heytings.org>
+
+ Unset the weight/slant/width in the spec when realizing a font
+
+ Between commits bf0d3f76dc (2014) and 6b1ed2f2c9 (2022),
+ realize_gui_face called font_load_for_lface with an empty or
+ partly emptied font spec, i.e. it ignored a part of its attrs
+ argument. The rationale given in bug#17973, which led to
+ bf0d3f76dc, is not clear. However, 6b1ed2f2c9, which passes
+ the full font spec to font_load_for_lface and
+ font_find_for_lface, leads to suboptimal font choices, for
+ example when the font chosen for the default face has a
+ weight, slant or width that is not supported by other
+ available fonts on the system, such as 'medium' or 'heavy'.
+
+ If these attributes are not unset here, the call to
+ font_list_entities in font_find_for_lface arbitrarily limits
+ the candidate font list to those that are perfect matches for
+ these attributes, which means that the scoring mechanism is
+ bypassed. Note that the size attribute in spec is also unset,
+ in font_find_for_lface.
+
+ Also allow unsetting the other attributes, for debugging purposes.
+
+ * src/xfaces.c (realize_gui_face): Unset the weight, slant and
+ width of the font spec. Fixes bug#57555 and bug#59347.
+ (syms_of_xfaces): New variable
+ 'realize-gui-face-ignored-spec-attributes'.
+
+2022-12-10 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.6-31-g954a95
+
+2022-12-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix infloop in 'shell-resync-dirs' with tcsh
+
+ * lisp/shell.el (shell-resync-dirs): Remove trailing slash from
+ output of 'dirs', for csh/tcsh's sake. (Bug#59804)
+
+2022-12-10 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure 'package-vc--version' always returns a version
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--version): Return "0" even
+ if the main file exists, but lacks version headers.
+
+2022-12-10 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure 'package-vc--main-file' always returns an existing file
+
+ * lisp/emacs-lisp/package-vc.el (require): Explicitly require cl-lib.
+ (package-vc--main-file): If the expected file name is missing, try and
+ find the closest match.
+
+2022-12-10 Philip Kaludercic <philipk@posteo.net>
+
+ Check if package already exists before installing from checkout
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install-from-checkout):
+ Copy check from 'package-vc--unpack'.
+
+2022-12-10 Matt Armstrong <matt@rfc20.org>
+
+ Refresh the package quickstart file in package-vc
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack-1): Call
+ `package--quickstart-maybe-refresh', just as
+ `package-install-from-buffer' does. (bug#59728)
+
+2022-12-09 Yuan Fu <casouri@gmail.com>
+
+ Make indirect buffers use tree-sitter parsers of their base buffer
+
+ Fix the problem described in bug#59693.
+
+ * src/treesit.c (treesit_record_change): Always use the base buffer.
+ (Ftreesit_parser_create): Always use the base buffer. Also change the
+ for loop into FOR_EACH_TAIL (stylistic change).
+ (Ftreesit_parser_list): Always use the base buffer.
+
+ * doc/lispref/parsing.texi (Using Parser): Update manual.
+ * test/src/treesit-tests.el (treesit-indirect-buffer): New test.
+
+2022-12-09 Brian Leung <leungbk@posteo.net>
+
+ Fontify "this" as a keyword in c++-ts-mode (bug#59924)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings):
+ Following c++-mode, fontify as a keyword instead of a constant.
+
+2022-12-09 Theodor Thornhill <theo@thornhill.no>
+
+ Add class_body indentation for typescript (bug#59680)
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): New indent rule.
+
+2022-12-09 Theodor Thornhill <theo@thornhill.no>
+
+ Make more granular defun-type-regexp (bug#59873)
+
+ We don't want to match local_variable_declaration and others to hit on
+ beginning-of-defun. The fix is just to make the regexp a bit more
+ granular.
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode): Use regexp-opt to
+ distinguish more granularly.
+
+2022-12-09 Randy Taylor <dev@rjt.dev>
+
+ Add dockerfile-ts-mode (Bug#59894)
+
+ * admin/notes/tree-sitter/build-module/batch.sh: Add dockerfile support.
+ * admin/notes/tree-sitter/build-module/build.sh: Support different
+ namespaces and add dockerfile support.
+ * etc/NEWS: Mention it.
+ * lisp/progmodes/dockerfile-ts-mode.el: New major mode with
+ tree-sitter support.
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add it.
+
+2022-12-09 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Fix fontification of method-invocations in js-ts-mode (bug#59904)
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings): Move rules
+ for property in front of function names, so function names override
+ property.
+
+2022-12-09 Theodor Thornhill <theo@thornhill.no>
+
+ Fix escape-sequence feature in typescript-ts-mode (bug#59906)
+
+ * lisp/progmodes/typescript-ts-mode.el: (typescript-ts-mode,
+ tsx-ts-mode): Use escape-sequence feature.
+
+2022-12-09 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification in csharp-ts-mode (bug#59909)
+
+ - Fontity escape sequences.
+ - Highlight syntax errors.
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings)
+ (csharp-ts-mode): Add new features
+
+2022-12-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ Use 'project--value-in-dir' for 'project-vc-include-untracked' too
+
+ * lisp/progmodes/project.el (project--vc-list-files): Use
+ 'project--value-in-dir' for 'project-vc-include-untracked' too.
+ So that is can be reliably set through dir-locals.
+
+2022-12-09 Eli Zaretskii <eliz@gnu.org>
+
+ Update Turkish Hello
+
+ * etc/HELLO (Turkish):
+ * lisp/language/european.el ("Turkish"): Add a Turkish Hello.
+ Suggested by YUSUF ALPER ÇIKIŞIR <yusufcikisir@std.iyte.edu.tr>.
+
+2022-12-09 Philipp Stephani <phst@google.com>
+
+ Support newer glib versions (Bug#59061)
+
+ * lib-src/seccomp-filter.c (main): Allow pidfd_open system call
+
+2022-12-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ Bring back the project--value-in-dir logic
+
+ Essentialy revert commit 2389158a31b4a12, restoring the changes
+ and fixing the conflicts. Motivated by the problem brought up in
+ bug#59722 (behavior of project-find-files/regexp when switching
+ projects). We should find other ways to improve performance.
+
+ * lisp/progmodes/project.el
+ (project--value-in-dir, project--vc-merge-submodules-p): Restore.
+ (project-try-vc, project-files, project--vc-list-files)
+ (project-ignores, project-buffers): Use.
+
+ * test/lisp/progmodes/project-tests.el
+ (project-vc-supports-project-in-different-dir): New test.
+
+ * test/lisp/progmodes/project-resources/.dir-locals.el:
+ * test/lisp/progmodes/project-resources/foo:
+ * test/lisp/progmodes/project-resources/etc: New files.
+
+2022-12-09 Andrea Corallo <akrl@sdf.org>
+
+ Backport: Enable native speed 2 EMBA build and tests and disable speed 0
+
+ * test/infra/gitlab-ci.yml (build-native-comp-speed2):
Uncomment.
+ (build-native-comp-speed0): Comment.
+ (test-native-comp-speed0): Remove.
+ (test-native-comp-speed2): Add.
+
+ (cherry picked from commit 06bf218f69a62d5d5c8d3b3767d7db8d9fb4bb9f)
+
+2022-12-09 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/test-jobs.yml: Regenerate for the new use-package
subdirectory.
+
+2022-12-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt manual names in emacs-news-mode
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--buttonize):
+ Allow hyphen in manual names.
+
+2022-12-09 F. Jason Park <jp@neverwas.me>
+
+ Respect some spaces in auth-source-pass--match-regexp
+
+ * lisp/auth-source-pass.el (auth-source-pass--match-regexp): Allow an
+ entry's host and user fields to contain spaces, just like other
+ backends do.
+ * lisp/erc/erc-compat.el
+ (erc-compat--29-auth-source-pass--retrieve-parsed): Change regexp to
+ allow spaces in host and user components of file names.
+ * test/lisp/auth-source-pass-tests.el (auth-source-pass-any-host):
+ Silence warning message re wildcards emitted by
+ `auth-source-pass-search'.
+ (auth-source-pass-extra-query-keywords--suffixed-user): Add spaces
+ to users and hosts of some example entries. (Bug#58985.)
+
+2022-12-09 dannyfreeman <danny@dfreeman.email>
+ João Távora <joaotavora@gmail.com>
+
+ Eglot: Handle LSP progress with Emacs progress reporters (bug#59149)
+
+
+ * lisp/progmodes/eglot.el (eglot-report-progress): New custom variable.
+ (eglot-lsp-server): New slot for tracking active progress reporters.
+ (eglot-handle-notification (eql $/progress)): New method.
+
+ The LSP spec describes methods for reporting progress on long running
+ jobs to the client:
+
+
https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#progress
+
https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#workDoneProgress
+
+ This change reports those notifications in the minibuffer as they come
+ in. It shows a percent indicator (if the server provides theme), or a
+ spinner.
+
+ This change could open the door for writing a "cancel long running
+ request" command, which are identified by these progress
+ notifications. See
+
https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#window_workDoneProgress_cancel
+
+ * doc/misc/eglot.texi (Customizing Eglot): Describe new variable.
+
+2022-12-09 dannyfreeman <danny@dfreeman.email>
+ João Távora <joaotavora@gmail.com>
+
+ Eglot: cleanup whitespace and indentation
+
+
+ * lisp/progmodes/eglot.el: Misc whitespace fixes.
+
+2022-12-09 Mattias Engdegård <mattiase@acm.org>
+
+ Better test-custom-opts diagnostics
+
+ Make it easier to understand errors from the test-custom-opts test by
+ reporting variable values and types that didn't match.
+
+ * admin/cus-test.el (cus-test-errors): Richer contents.
+ (cus-test--format-error): New.
+ (cus-test-apropos, cus-test-errors-display, cus-test-opts):
+ Use new format.
+
+2022-12-09 Stefan Kangas <stefankangas@gmail.com>
+
+ New script admin/check-man-pages
+
+ * admin/check-man-pages: New file with script used to check man pages
+ for errors. (Bug#59631)
+ * admin/make-tarball.txt: Document when to use the above script.
+
+2022-12-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve :delight keyword example in use-package manual
+
+ * use-package.texi (Diminish, Delight): Clarify what happens if the
+ pre-requisite packages are not installed. Change an example with
+ performance issues to one without any.
+
+ Resolves https://github.com/jwiegley/use-package/issues/835
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Clarify :after keyword in use-package docstring
+
+ * lisp/use-package/use-package-core.el (use-package): Clarify the
+ effect of :after in docstring.
+
+ Resolves https://github.com/jwiegley/use-package/issues/825
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Add conditional loading examples to use-package manual
+
+ * doc/misc/use-package.texi (Conditional loading): Expand section with
+ examples.
+
+ Resolves https://github.com/jwiegley/use-package/issues/693
+
+2022-12-08 Po Lu <luangruo@yahoo.com>
+
+ Revert "; * src/emacs.c (main): Improvements to last change."
+
+ This reverts commit c774e83e36784ab96539c5c083b3bcb6d0158a8c. It
+ causes crashes on GNU/Linux systems using libgmp, as there a shared
+ library initializer is used to set the malloc functions on startup, so
+ they are not dumped.
+
+2022-12-08 Sean Whitton <spwhitton@spwhitton.name>
+
+ server-eval-at: Don't call server--file-name
+
+ * lisp/server.el (server-eval-at): Revert to old code for determining
+ the server file. The recent change to call server--file-name meant
+ that the SERVER argument to server-eval-at was ignored.
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge branch 'feature/use-package' into emacs-29
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ * etc/USE-PACKAGE-NEWS: Delete file.
+
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-11/msg01535.html
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ * admin/git-bisect-start: Prune use-package merge commits.
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Update use-package defgroups
+
+ * lisp/use-package/bind-key.el (bind-key):
+ * lisp/use-package/use-package-core.el (use-package):
+ * lisp/use-package/use-package-ensure.el (use-package-ensure): Add
+ :link, :version and :group to defgroups.
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Drop key-chord.el support from use-package
+
+ * lisp/use-package/bind-chord.el:
+ * lisp/use-package/use-package-chords.el:
+ * test/lisp/use-package/use-package-chords-tests.el: Delete files.
+ * doc/misc/use-package.texi (use-package-chords): Delete section.
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-12/msg00052.html
+
+2022-12-08 Juanma Barranquero <lekktu@gmail.com>
+
+ Remove unneeded (require 'edebug) from which-func.el
+
+ * lisp/progmodes/which-func.el: Don't require edebug. This is
+ code from an attempted fix to bug#49592, installed in 55cc8b040b
+ (2022-08-08) and left behind after 48b0f2606b (2022-08-23).
+
+2022-12-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Change use-package custom :group to `initialization`
+
+ * lisp/use-package/use-package-core.el (use-package): Move
+ defgroup to custom :group 'initialization'.
+
+2022-12-08 Jim Porter <jporterbugs@gmail.com>
+
+ Treat escaped newlines in Eshell as the empty string
+
+ This fixes a regression introduced during Emacs 29's development.
+
+ * lisp/eshell/esh-arg.el (eshell-parse-argument): Handle
+ 'eshell-empty-token' as the result of an argument-parsing hook.
+ (eshell-parse-argument-hook): Document 'eshell-empty-token'.
+ (eshell-parse-backslash): Return 'eshell-empty-token' when
+ encountering an escaped newline.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/escape-nonspecial)
+ (eshell-test/escape-nonspecial-unicode)
+ (eshell-test/escape-nonspecial-quoted)
+ (eshell-test/escape-special-quoted): Move from here...
+
+ * test/lisp/eshell/esh-arg-tests.el (esh-arg-test/escape/nonspecial)
+ (esh-arg-test/escape/nonspecial-unicode)
+ (esh-arg-test/escape-quoted/nonspecial)
+ (esh-arg-test/escape-quoted/special): ... to here.
+ (esh-arg-test/escape/special, esh-arg-test/escape/newline)
+ (esh-arg-test/escape-quoted/newline): New tests.
+
+ * doc/misc/eshell.texi (Arguments): Explain escaping logic in more
+ detail (bug#59622).
+
+2022-12-07 Stefan Kangas <stefankangas@gmail.com>
+
+ use-package: Improve :mode keyword documentation
+
+ * doc/misc/use-package.texi (Modes and interpreters): Improve
+ section and document the use of a list of regexps.
+
+ Resolves https://github.com/jwiegley/use-package/issues/996
+
+2022-12-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve bind-keys* and override-global-mode docstrings
+
+ * lisp/use-package/bind-key.el (bind-keys*): Add docstring.
+ (override-global-mode) Improve docstring.
+
+2022-12-07 Po Lu <luangruo@yahoo.com>
+
+ Fix crash on Windows 9X
+
+ * src/emacs.c (main): Call init_bignum before init_window_once.
+
+2022-12-07 Yuan Fu <casouri@gmail.com>
+
+ Add recursion limit to treesit--children-covering-range-recurse
+
+ * lisp/treesit.el (treesit--children-covering-range-recurse): Add
+ limit.
+
+2022-12-07 Yuan Fu <casouri@gmail.com>
+
+ Improve tree-sitter fontification in edge-cases (bug#59738)
+
+ * lisp/treesit.el (treesit-font-lock-fontify-region): Use
+ treesit--children-covering-range-recurse.
+
+2022-12-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new use-package manual
+
+ * doc/misc/use-package.texi: Rewrite manual.
+
+2022-12-07 Theodor Thornhill <theo@thornhill.no>
+
+ Add c-ts-mode-indent-defun (bug#59662)
+
+ Add in this function to mimic 'c-indent-defun'.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode-indent-defun): New function.
+ (c-ts-mode-map): New mode map that uses said function.
+
+2022-12-07 Theodor Thornhill <theo@thornhill.no>
+
+ Fix syntax-table for tree-sitter modes
+
+ When adapting the 'c-populate-syntax-table' for tree-sitter, I misread
+ the code, and thus some crucial entries were missing. For the
+ relevant modes we use the same table as specified in the
+ non-tree-sitter major mode.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--syntax-table): Add new
+ entries.
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode): Add new entries.
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--syntax-table): Add new
+ entries.
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--syntax-table): Add new
+ entries.
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--syntax-table): Add new entries.
+ * lisp/textmodes/css-mode.el (css-ts-mode): Add new entries.
+
+2022-12-07 Brian Leung <leungbk@posteo.net>
+
+ c++-ts-mode: Highlight nullptr as a constant
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): Add
+ nullptr.
+
+2022-12-07 Yuan Fu <casouri@gmail.com>
+
+ Improve parameter checking in tree-sitter functions
+
+ * src/treesit.c (treesit_check_position): Extract out new function.
+ (Ftreesit_node_first_child_for_pos)
+ (Ftreesit_node_descendant_for_range): Replace code with the new
+ function.
+ (Ftreesit_query_capture): Add missing check for node and parser. Add
+ check for range for BEG and END. Move treesit_initialize to the
+ beginning of the function.
+
+ * test/src/treesit-tests.el (treesit-node-api)
+ (treesit-query-api): Add tests for out-of-range error.
+
+2022-12-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix comint-tests on MS-Windows
+
+ * test/lisp/comint-tests.el (comint-tests/test-password-function):
+ On MS-Windows, call 'w32-native-executable-find' instead of
+ 'executable-find', to find the native version of the 'cat'
+ program.
+ (w32-native-executable-p, w32-native-executable-find): New
+ functions.
+
+2022-12-07 João Távora <joaotavora@gmail.com>
+
+ Use new external-completion.el in Eglot
+
+ This refactor simplifies Eglot's source code.
+
+ * lisp/progmodes/eglot.el:
+ (Package-Requires): Require external-completion.
+ (external-completion): Require it.
+ (xref-backend-identifier-completion-table): Use
external-completion-table.
+ (completion-category-overrides): No longer set it.
+ ("Backend Completion"): Delete section.
+
+2022-12-07 João Távora <joaotavora@gmail.com>
+
+ Don't override completion-category-defaults in fido-mode
+
+ To more closely emulate ido-mode, fido-mode and fido-vertical-mode
+ strongly lean to the 'flex completion style. But overriding
+ completion-category-defaults is not the correct way to do it, since
+ sometimes even the 'flex style isn't possible.
+
+ * lisp/icomplete.el (icomplete--fido-mode-setup): Don't set
+ completion-category-defaults here.
+
+2022-12-07 João Távora <joaotavora@gmail.com>
+
+ Add lisp/external-completion.el for completions from external tools
+
+ This table uses a new 'external' completion style which has been in
+ use in Eglot and other third-party extensions for a long time. It's
+ meant for libraries that interface with an external tool which
+ provides completions, such as a shell utility, an inferior process, an
+ http server.
+
+ The new file lisp/external-completion.el provides a helper function,
+ external-completion-table which is given an interfacing function to
+ the external tool and returns a "programmed completion" table that is
+ bound to the 'external' completion style. That table can then be used
+ with completing-read or any other facility expecting a completion
+ table.
+
+ When the 'external' is in use, the usual styles configured by the user
+ or other in 'completion-styles' are completely overriden. This
+ relatively minor inconvenience is the price to pay for responsive
+ completion where the full set of completion candidates doesn't need to
+ be transfered into Emacs's address space.
+
+ * lisp/external-completion.el: New file.
+
+ * etc/NEWS: (Lisp Changes in Emacs 29.1): Mention
+ external-completion-table.
+
+2022-12-07 João Távora <joaotavora@gmail.com>
+
+ Eglot: fix setting of flymake-list-only-diagnostics (bug#59824)
+
+ When Eglot receives diagnostics for a file not yet visited in Emacs,
+ it stores them in flymake-list-only-diagnostics, which feed M-x
+ flymake-show-project-diagnostics. If the file is eventually visited
+ in a buffer and Eglot starts receibing diagnostics for it, the
+ flymake-list-only-diagnostics database has to be updated accordingly,
+ since the previous diagnostics are now stale.
+
+ * lisp/progmodes/eglot.el (eglot-handle-notification): Reset
+ flymake-list-only-diagnostics
+
+2022-12-07 Mattias Engdegård <mattiase@acm.org>
+
+ * test/src/sqlite-tests.el (sqlite-version): Declare.
+
+2022-12-06 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Outline deprecation plans in NEWS
+
+ * etc/NEWS (EUDC): Mention deprecation plans.
+
+2022-12-06 Yuan Fu <casouri@gmail.com>
+
+ Fix admin/notes/tree-sitter/build-module/build.sh (bug#59789)
+
+ Besides the problem mentioned by Juri, which is fixed by removing
+
+ -cp tree-sitter-lang.in "tree-sitter-${lang}/src"
+ -cp emacs-module.h "tree-sitter-${lang}/src"
+
+ (we removed those files in an earlier commit, because they are not
+ used anymore.)
+
+ Now it also more parameterized and builds typescript and tsx
+ separately.
+
+ * admin/notes/tree-sitter/build-module/build.sh (topdir)
+ (repo, sourcedir, grammardir): New variables.
+ (Build): Make it parametric.
+ (Copy out): Use absolute path.
+
+ * admin/notes/tree-sitter/build-module/batch.sh (languages): Add tsx.
+
+2022-12-06 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/eww.texi (Overview): Improve introduction.
+
+2022-12-06 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Consistent fontification of using-directives in csharp-ts-mode
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ New rules.
+
+2022-12-06 Yuan Fu <casouri@gmail.com>
+
+ Fontify some keywords in type face in c-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--keywords): Remove some
keywords.
+ (c-ts-mode--type-keywords): New variables.
+ (c-ts-mode--font-lock-settings): New rule.
+
+2022-12-06 Mattias Engdegård <mattiase@acm.org>
+
+ Fix etags builds on non-Windows non-MS-DOS machines
+
+ * lib-src/etags.c: In this file, MSDOS is always defined but can be
+ either `true` or `false`, so don't used `defined MSDOS` as a condition.
+
+2022-12-06 lu4nx <lx@shellcodes.org>
+
+ Fix etags local command injection vulnerability
+
+ * lib-src/etags.c: (escape_shell_arg_string): New function.
+ (process_file_name): Use it to quote file names passed to the
+ shell. (Bug#59817)
+
+2022-12-06 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid crashes in a build --without-modules
+
+ * src/lread.c (syms_of_lread): Move the definitions of
+ 'dynamic-library-suffixes' outside of the HAVE_MODULES
+ conditional. (Bug#59832)
+
+2022-12-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'add-display-text-property' when OBJECT is non-nil
+
+ * lisp/emacs-lisp/subr-x.el (add-display-text-property): Fix the
+ case where OBJECT is not nil. (Bug#59857)
+
+ * test/lisp/emacs-lisp/subr-x-tests.el
+ (subr-x-test-add-display-text-property): Add test for this case.
+
+2022-12-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Do not run slow tests on EMBA
+
+ * test/infra/gitlab-ci.yml (.filenotify-gio-template): Do not run
+ scheduled.
+ (build-native-comp-speed1, build-native-comp-speed2): Comment out.
+
+ * test/lisp/international/ucs-normalize-tests.el
+ (ucs-normalize-part1): Skip also on EMBA.
+
+2022-12-06 Mattias Engdegård <mattiase@acm.org>
+
+ Lisp reader undefined behaviour excision
+
+ * src/lread.c (read_bool_vector, skip_lazy_string):
+ Replace `|` with `||` to explicitly introduce sequence points since
+ the variables, `length` and `nskip`, are mutated more than once.
+
+ The `|` was just a weak attempt at micro-optimisation in any case;
+ sorry about that.
+
+2022-12-05 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-query-capture
+
+ Before this change Ftreesit_query_capture doesn't convert character
+ position to byte position for BEG and END parameters. I observed
+ fontification issue in css files but couldn't figure out why, now I
+ know :-)
+
+ I decide to keep treesit--font-lock-query-expand-range, since it might
+ provide a escape hatch for problems we discover in the future, and it
+ should be very cheap so no downside of keeping it.
+
+ * lisp/textmodes/css-mode.el (css-ts-mode): Stop setting
+ treesit--font-lock-query-expand-range.
+ * lisp/treesit.el (treesit--font-lock-query-expand-range): Update
+ docstring.
+ * src/treesit.c (Ftreesit_query_capture): Convert BEG and END to byte
+ position. Also added parentheses wround "beg_byte - visible_beg" in
+ the call to ts_query_cursor_set_byte_range (i.e., style change).
+
+2022-12-05 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification of typescript-ts-mode (bug#59831)
+
+ - Highlight property and field definitions in class declaration.
+ - Highlight property-keys in object initializaters.
+ - Highlight variable-names in function/method return-statements.
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Add fontification rules.
+
+2022-12-05 Theodor Thornhill <theo@thornhill.no>
+
+ Add back pair feature in json-ts-mode fontification (bug#59833)
+
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--font-lock-settings):
+ Add back in removed pair feature. Also alphabetize features.
+ (json-ts-mode): Use the new feature.
+
+2022-12-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix mouse clicks on a non-selected frame
+
+ * lisp/mouse-drag.el (mouse-drag-drag): Skip switch-frame events
+ while tracking mouse. (Bug#59785)
+
+2022-12-04 Yuan Fu <casouri@gmail.com>
+
+ Improve treesit-fontify-with-override
+
+ This also fixes fontification problem with c-ts-mode--fontify-defun.
+
+ Now treesit-fontify-with-override clips the fontification region for
+ the user, so no need for (max start node-start) shenanigans anymore.
+ More importantly it doesn't fontify unless the region between
+ node-start and node-end intersects with the region between start and
+ end, which fixes the problem with c-ts-mode--fontify-defun.
+
+ * lisp/treesit.el (treesit-fontify-with-override): Add optional
+ parameter BOUND-START and BOUND-END. Wrap the function body in a
+ when-form.
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--fontify-declarator)
+ (c-ts-mode--fontify-variable)
+ (c-ts-mode--fontify-defun)
+ (c-ts-fontify-error)
+ * lisp/progmodes/js.el (js--fontify-template-string)
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Use the
+ new signature.
+
+2022-12-04 Jim Porter <jporterbugs@gmail.com>
+
+ Make killing a non-last client work the same no matter the auto-stop
setting
+
+ Previously, if 'server-stop-automatically' was configured for
+ 'kill-terminal' or 'delete-frame', killing a client via
+ 'save-buffers-kill-terminal' wouldn't prompt about the saving files in
+ the client's buffer list (as it does when not using those settings).
+ This change ensures that those settings only apply when killing the
+ last client, as described in the manual (bug#51993).
+
+ * lisp/server.el (server-save-buffers-kill-terminal): Handle
+ 'server-stop-automatically' behavior in this function, rather than
+ calling 'server-stop-automatically--handle-delete-frame'.
+
+2022-12-04 Juri Linkov <juri@linkov.net>
+
+ Use the function 'window-system' on the tab-bar/tab-line (bug#59620)
+
+ * lisp/tab-bar.el (tab-bar-separator)
+ (tab-bar-format-align-right, tab-bar-auto-width):
+ * lisp/tab-line.el (tab-line-format-template): Replace the variable
+ 'window-system' with the function call '(window-system)'.
+
+2022-12-04 Tom Gillespie <tgbugs@gmail.com>
+
+ Restore font-lock-type-face for lisp mode &symbols
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-cl-font-lock-keywords-2)
+ (lisp-el-font-lock-keywords-2): Restore use of type face instead of
+ builtin face for &symbol keywords. This fixes what appears to be
+ a copy paste error that changed the face for common lisp and emacs
+ lisp &symbol style keywords that was introduced in commit
+ a498e5f83 by restoring the type face to font-lock-type-face as
+ consistent with the comments.
+
+2022-12-04 Kai Ma <justksqsf@gmail.com> (tiny change)
+
+ Prevent a segfault when deleting a fullscreen frame on NextStep.
+
+ * nsterm.m ([EmacsView resetCursorRects:]): Be defensive when
+ accessing FRAME_OUTPUT_DATA. [resetCursorRects:] can be called
+ from the event loop after the frame is deleted. When this
+ happens, emacsframe is NULL. This means there is an underlying
+ leak of the EmacsView object! (Bug#59794)
+ Do not merge to master.
+
+2022-12-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix markup in ERC manual
+
+ * doc/misc/erc.texi (SASL): Use @table instead of simulating it
+ with @indentedblock. Fix markup. (Bug#59815)
+
+2022-12-03 Yuan Fu <casouri@gmail.com>
+
+ Fix comment-start-skip in tree-sitter modes (bug#59690)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode)
+ (c++-ts-mode)
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode)
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode)
+ * lisp/progmodes/js.el (js-ts-mode)
+ * lisp/progmodes/typescript-ts-mode.el (tsx-ts-mode): Remove the group
+ from the regexp.
+
+2022-12-03 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up Unicode normalisation tests by a factor of 5
+
+ After this change, ucs-normalize-tests are still very slow but
+ somewhat less disastrously so (from 100 to 20 min on this machine).
+
+ * test/lisp/international/ucs-normalize-tests.el
+ (ucs-normalize-tests--normalization-equal-p)
+ (ucs-normalize-tests--normalization-chareq-p)
+ (ucs-normalize-tests--rule1-holds-p)
+ (ucs-normalize-tests--rule2-holds-p)
+ (ucs-normalize-tests--part1-rule2):
+ Run only over the Unicode code space.
+ Hoist `with-current-buffer` to reduce overhead.
+
+2022-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "C-h k" when clicking on another frame
+
+ * lisp/help.el (help--analyze-key): Don't barf if the key sequence
+ includes a switch-frame event. (Bug#59785)
+
+2022-12-03 Juanma Barranquero <lekktu@gmail.com>
+
+ Fix and expand tests broken by commit 2772ebe366 of 2022-11-28
+
+ * test/lisp/emacs-lisp/comp-tests.el
+ (with-test-native-compile-prune-cache)
+ (test-native-compile-prune-cache)
+ (test-native-compile-prune-cache/delete-only-eln)
+ (test-native-compile-prune-cache/dont-delete-in-parent-of-cache):
+ Check that the last directory in `native-comp-eln-load-path' is
+ not affected by `native-compile-prune-cache'.
+
+2022-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix handling of relative directories in "--init-directory=DIR"
+
+ * lisp/startup.el (command-line): Interpret non-absolute file
+ names in '--init-directory' relative to the directory from
+ which Emacs is started. (Bug#59795)
+
+2022-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Make sure 'user-emacs-directory' ends in a slash
+
+ * lisp/startup.el (command-line): Make sure 'user-emacs-directory'
+ has the form of a directory.
+
+2022-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix gud-minor-mode-menu
+
+ * lisp/emacs-lisp/easy-mmode.el (define-minor-mode)
+ (easy-mmode-define-keymap): Don't declare obsolete, since we are
+ still using it in gud.el. (Bug#59769) (Bug#59605)
+ Do not merge to master.
+
+2022-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Make easy-mmode-defmap obsolete and adjust only caller"
+
+ This reverts commit 8bb5c1bfec0929f2ba419e1c503f5acc01c336c2.
+ That commit lost too many useful features in the GUD menus
+ and caused several bugs, the last of them bug#59769.
+
+ Do not merge to master.
+
+2022-12-03 Sean Whitton <spwhitton@spwhitton.name>
+
+ vc-git-print-log: Don't assume vc-git-log-switches is a list
+
+ * lisp/vc/vc-git.el (vc-git-print-log): Call ensure-list on
+ vc-git-log-switches to handle the case where it's a singular string.
+
+2022-12-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix use-package tests
+
+ * test/lisp/use-package/use-package-chords-tests.el:
+ * test/lisp/use-package/use-package-tests.el: Remove local
+ variables section. Require 'ert' and fix copyright header.
+
+2022-12-02 Mattias Engdegård <mattiase@acm.org>
+
+ Fix server-tests run noninteractively (bug#59742)
+
+ This may or may not fix the test run from CI.
+
+ * test/lisp/server-tests.el (server-tests/can-create-frames-p):
+ Don't attempt to create frames if TERM=dumb, which what we have
+ if run from M-x compile (for instance).
+ (server-tests/server-force-stop/keeps-frames): Delete created frame so
+ that it doesn't cause trouble for other tests.
+
+2022-12-02 Randy Taylor <dev@rjt.dev>
+
+ Use file-name-nondirectory to determine default project-name
+
+ * lisp/progmodes/project.el (project-name):
+ Use file-name-nondirectory instead of file-name-base (bug#59756).
+
+2022-12-02 Yikai Zhao <yikai@z1k.dev>
+
+ Speed up auto-completion in 'sh-script-mode'
+
+ * lisp/progmodes/sh-script.el (sh--cmd-completion-table-gen): New
+ function, replacement for 'sh--cmd-completion-table'.
+ (sh--cmd-completion-table): Function removed.
+ (sh-completion-at-point-function): Use
+ 'sh--cmd-completion-table-gen'. (Bug#59678)
+
+2022-12-02 Juanma Barranquero <lekktu@gmail.com>
+
+ Fix error editing multisession variables (bug#59710)
+
+ * lisp/emacs-lisp/multisession.el (multisession-edit-value):
+ Do not use `bound-and-true-p' on a non-symbol. This reverts
+ commit bd586121ac21e046f60f75eeb0200866c38d6f9f.
+
+2022-12-02 Brian Leung <leungbk@posteo.net>
+
+ Add tsx-ts-mode to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add
+ tsx-ts-mode. (Bug#59770)
+
+2022-12-02 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-format-align-right): Fix alignment on TTY
frames.
+
+ Calculate the alignment from the left edge instead of the right edge
+ since the `right' spec doesn't work on TTY frames when windows are split
+ horizontally (bug#59620).
+
+2022-12-02 Juri Linkov <juri@linkov.net>
+
+ Fix the width of margins for icons in outline-minor-mode (bug#59719)
+
+ * doc/lispref/display.texi (Icons): Add :width spec.
+
+ * lisp/emacs-lisp/icons.el (icons--create): Handle :width as well.
+
+ * lisp/outline.el (outline--margin-width, outline-margin-width):
+ New variables.
+ (outline-open-in-margins, outline-close-in-margins)
+ (outline-close-rtl-in-margins): Don't inherit from parents.
+ Use `:width font' instead of `:height 10'.
+ (outline-minor-mode): Calculate the number of columns for margins
+ to fit the icons.
+
+2022-12-01 Theodor Thornhill <theo@thornhill.no>
+
+ Add new TypeScript mode tsx-ts-mode
+
+ There are in fact two languages supporting TypeScript for tree-sitter.
+ Because TSX causes some ambiguities with types there are two grammars,
+ one called typescript and one called tsx. To account for this and to
+ be as correct as possible we enable using both.
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--indent-rules): Change to a function to accomodate
+ the two languages.
+ (typescript-ts-mode--font-lock-settings): Change to a function to
+ accomodate the two languages.
+ (typescript-ts-base-mode): Parent mode for typescript-ts-mode
+ and tsx-ts-mode.
+ (typescript-ts-mode): Derive from typescript-ts-base-mode and
+ extend with language specific settings
+ (tsx-ts-mode): New major mode that derives from
+ typescript-ts-base-mode and extend it with language specific
+ settings
+
+ Add autoload cookies for the respective file type extensions: .ts and
+ .tsx.
+
+ * etc/NEWS: Mention the new mode.
+
+2022-12-01 Daniel Martín <mardani29@yahoo.es>
+
+ Add case and match to python--treesit-keywords (bug#59720)
+
+ * lisp/progmodes/python.el (python--treesit-keywords): Add "case" and
+ "match" keywords.
+
+2022-12-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-files (VC-aware): Make sure the VC backend is loaded
+
+ * lisp/progmodes/project.el (project-files):
+ Make sure the VC backend is loaded (bug#59734).
+
+2022-12-01 Sean Whitton <spwhitton@spwhitton.name>
+
+ term--update-term-menu: Add the menu to term-terminal-menu
+
+ Reading bug#5641, the intention was to add this to the existing
+ "Terminal" menu for term-mode buffers, not to the local keymaps of all
+ other buffers. Moreover, the existing code signaled errors when
+ switching to buffers with no local keymap, such as term-mode buffers
+ whose processes have died.
+
+ * lisp/term.el (term--update-term-menu): Add the menu to
+ term-terminal-menu, instead of implicitly trying to add it to every
+ local keymap.
+
+2022-12-01 Eli Zaretskii <eliz@gnu.org>
+
+ Improve detection of very long lines
+
+ * src/xdisp.c (redisplay_window): Recheck for long lines if the
+ restriction has changed. (Bug#56682)
+
+2022-12-01 Laurence Warne <laurencewarne@gmail.com>
+
+ Add colors to Proced (bug#59407)
+
+ Add a new custom variable proced-enable-color-flag which when set to a
+ non-nil value (defaults to nil), will prompt some format functions to
+ furnish their respective process attributes with colors and effects in
+ order to make them easier to distinguish and highlight possible issues
+ (e.g. high memory usage), in a manner similar to htop.
+
+ In particular, the current Emacs process id is highlighted purple in
+ both the process id and parent process id columns, session leaders
+ have their process ids underlined, larger memory sizes for rss
+ are highlighted in darker shades of orange, and the first word in the
+ args property (the executable) is highlighted in blue.
+
+ * lisp/proced.el (proced-grammar-alist): Update to use the new format
+ functions.
+ (proced-low-memory-usage-threshold): New custom variable to determine
+ whether a value represents 'low' memory usage, used only in
+ proced-format-memory for coloring.
+ (proced-medium-memory-usage-threshold): New custom variable to
+ determine whether a value represents 'medium' memory usage, used only
+ in proced-format-memory for coloring.
+ (proced-enable-color-flag): New custom variable to toggle coloring.
+ (proced-run-status-code, proced-interruptible-sleep-status-code)
+ (proced-uninterruptible-sleep-status-code, proced-executable)
+ (proced-executable, proced-memory-gb, proced-memory-mb)
+ (proced-memory-default, proced-pid, proced-ppid, proced-pgrp)
+ (proced-sess, proced-cpu, proced-mem, proced-user, proced-time-colon):
+ New faces.
+ (proced-format-time): Edit function to color colons using
+ proced-time-colon.
+ (proced-format-args): Edit function to color executables using
+ proced-executable.
+ (proced-format-state): New function to color states.
+ (proced-format-pid): New function to color process ids.
+ (proced-format-ppid): New function to color parent process ids.
+ (proced-format-pgrp): New function to color process group ids.
+ (proced-format-sess): New function to color process session leader
+ ids.
+ (proced-format-cpu): New function to color cpu utilization.
+ (proced-format-mem): New function to color memory utilization.
+ (proced-format-user): New function to color the user a process
+ belongs to.
+
+2022-12-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ Update project docs and NEWS
+
+ * doc/emacs/maintaining.texi (Projects): Update the name.
+
+ * etc/NEWS: Mention new option (bug#41572).
+
+2022-12-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-11-29 18:15:27 UTC.
+
+ (cherry picked from commit de00aef3e151e0eefe20feda74cf90578e8ff109)
+
+2022-12-01 kobarity <kobarity@gmail.com>
+
+ Add highlighting Python operators (bug#59629)
+
+ * lisp/progmodes/python.el (python-rx): Remove "is" and
+ "not" from operator.
+ (python-font-lock-keywords-maximum-decoration): Add
+ highlighting operators.
+ * test/lisp/progmodes/python-tests.el
+ (python-font-lock-assignment-statement-1)
+ (python-font-lock-assignment-statement-2)
+ (python-font-lock-assignment-statement-3)
+ (python-font-lock-assignment-statement-4)
+ (python-font-lock-assignment-statement-5)
+ (python-font-lock-assignment-statement-6)
+ (python-font-lock-assignment-statement-7)
+ (python-font-lock-assignment-statement-8)
+ (python-font-lock-assignment-statement-9)
+ (python-font-lock-assignment-statement-10)
+ (python-font-lock-assignment-statement-11)
+ (python-font-lock-assignment-statement-12)
+ (python-font-lock-assignment-statement-13)
+ (python-font-lock-assignment-statement-14)
+ (python-font-lock-assignment-statement-15)
+ (python-font-lock-assignment-statement-16)
+ (python-font-lock-assignment-statement-17)
+ (python-font-lock-assignment-statement-18)
+ (python-font-lock-assignment-statement-multiline-1)
+ (python-font-lock-assignment-statement-multiline-2)
+ (python-font-lock-assignment-statement-multiline-3)
+ (python-font-lock-assignment-statement-multiline-4)
+ (python-font-lock-assignment-statement-multiline-5)
+ (python-font-lock-assignment-statement-multiline-6)
+ (python-font-lock-escape-sequence-multiline-string): Modify
+ expectations to include faces for operators.
+ (python-font-lock-operator-1, python-font-lock-operator-2): New tests.
+
+2022-12-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix compilation of Org 9.6 on MS-Windows
+
+ * lisp/org/org-clock.el (org-x11idle-exists-p): Don't try to
+ invoke "command x11idle" on MS-Windows and MS-DOS. This fixes a
+ hang during byte-compilation of Org.
+
+2022-12-01 Po Lu <luangruo@yahoo.com>
+
+ * doc/lispref/frames.texi (Input Focus): Clarify for XInput 2 support.
+
+2022-12-01 Mattias Engdegård <mattiase@acm.org>
+
+ Fix types in various defcustom declarations
+
+ * lisp/org/ob-clojure.el
+ (ob-clojure-babashka-command, ob-clojure-nbb-command):
+ Account for the possibility of nil (commands absent).
+ * lisp/org/org.el (org-safe-remote-resources):
+ * lisp/org/ox-md.el (org-md-toplevel-hlevel):
+ * lisp/progmodes/project.el (project-vc-extra-root-markers):
+ Fix incorrect or invalid types.
+
+2022-12-01 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes and memory leaks during display deinitialization
+
+ * .dir-locals.el (c-mode): Add more noise macro names.
+ * src/frame.c (delete_frame): Do not delete terminal if force is
+ Qnoelisp.
+
+ * src/xterm.c (x_wm_supports): Fix coding style.
+ (x_delete_display): Delete the supported atoms list.
+ (x_delete_terminal): Delete all terminals. Free the scratch
+ cursor GC.
+
+2022-11-30 Dmitry Gutov <dgutov@yandex.ru>
+
+ New user option: project-vc-extra-root-markers
+
+ * lisp/progmodes/project.el: Commentary update.
+ (project-vc, project-vc-include-untracked, project-vc-name):
+ Update docstrings. Rename 'VC project' to 'VC-aware project'.
+ (project-vc-extra-root-markers): New option (bug#41572).
+ (project-try-vc): Use it. Construct a single regexp from all and
+ validate it using the MATCH argument of 'directory-files'. Call
+ 'locate-dominating-file' directly.
+ (project-ignores): Support VC-aware project instances with nil
+ value of VC backend.
+
+ * test/lisp/progmodes/project-tests.el (project-vc-recognizes-git)
+ (project-vc-extra-root-markers-supports-wildcards)
+ New tests.
+ (project-tests--this-file): New variable.
+
+2022-11-30 Daniel Martín <mardani29@yahoo.es>
+
+ Add inline to c-ts-mode--keywords
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--keywords): Add "inline", a
+ keyword available since C99 to define inline functions in C.
+
+2022-11-30 Daniel Martín <mardani29@yahoo.es>
+
+ Remove duplicate "friend" from c-ts-mode--keywords
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--keywords): Remove duplicate
+ keyword.
+
+2022-11-30 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-defun-prefer-top-level more flexible
+
+ * doc/lispref/positions.texi (List Motion): Update manual.
+ * lisp/treesit.el (treesit-defun-prefer-top-level): Update docstring.
+ (treesit--defun-maybe-top-level): Change to accept new format.
+
+2022-11-30 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode defun movement (bug#59628)
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--end-of-defun): New function.
+ (c-ts-mode--base-mode): Use more specific regexp, and set
+ treesit-defun-prefer-top-level.
+ (c-ts-mode)
+ (c++-ts-mode): Set end-of-defun-function.
+
+2022-11-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Keep tabs of the same group together (bug#59721)
+
+ (tab-bar-tab-post-change-group-functions): Change the default value to
+ '(tab-bar-move-tab-to-group)'. Improve docstring.
+ (tab-bar-change-tab-group): Improve docstring.
+
+2022-11-30 muffinmad <andreyk.mad@gmail.com>
+
+ Insert news for installed packages only
+
+ * lisp/emacs-lisp/package.el (describe-package-1): Check package is
+ installed and "news" is a regular file. (Bug#59684)
+
+2022-11-30 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-current: Improve the docstring
+
+ * lisp/progmodes/project.el (project-current):
+ Improve the docstring (bug#59722).
+
+2022-11-30 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/Makefile.in (INFO_COMMON): Add use-package.
+
+2022-11-30 Mattias Engdegård <mattiase@acm.org>
+
+ Org regexp style fixes
+
+ * lisp/org/org-element.el (org-element--get-node-properties):
+ Escape literal `+`.
+ * lisp/org/org-persist.el (org-persist-load:index):
+ Replace line-start with string-start when the latter is meant.
+
+2022-11-30 Mattias Engdegård <mattiase@acm.org>
+
+ Skip one python test case on macOS
+
+ * test/lisp/progmodes/python-tests.el (python-ffap-module-path-1):
+ This test fails with a standard macOS Python installation;
+ see bug#59477 and bug#25753.
+
+ (cherry picked from commit db042b7591ea9da5e169704e5b32bd99c4ea7adf)
+
+2022-11-30 Mattias Engdegård <mattiase@acm.org>
+
+ Sink python indent offset guessing to avoid test failure
+
+ Call python-indent-guess-indent-offset late in the set-up of
+ python-mode and python-ts-mode to make sure that the required other
+ settings (of syntax-propetize-function in particular) have been
+ carried out. This cures a python-test failure (bug#59477).
+
+ * lisp/progmodes/python.el (python-base-mode): Move
+ python-indent-guess-indent-offset call from here...
+ (python-mode): ...to here...
+ (python-ts-mode): ...and here.
+
+2022-11-29 Kyle Meyer <kyle@kyleam.com>
+
+ * etc/NEWS: Announce Org update.
+
+ Update to Org 9.6-3-ga4d38e
+
+2022-11-29 Juanma Barranquero <lekktu@gmail.com>
+
+ Fix interactive selection of emacs-lock mode, broken by 2a4b0da28c
+
+ * lisp/emacs-lock.el (emacs-lock--set-mode): Check that
+ arg is 4 and prefix is '(4).
+ (emacs-lock-mode): Pass also `current-prefix-arg' to
+ `emacs-lock--set-mode'.
+
+2022-11-29 Daniel Martín <mardani29@yahoo.es>
+
+ Fix typo in flag to load Emacs-specific LLDB commands
+
+ * src/.lldbinit: Fix typo in flag to parse .lldbinit files from the
+ current directory. (Bug#59702)
+
+2022-11-29 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Prevent lone ids being parsed as types unless in decl arglists
+
+ This fixes bug #59051.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): In the test
for the
+ last invocation of c-fdoc-shift-type-backward before CASE 1,
additionally
+ test CONTEXT not being an arglist or BACKUP-AT-TYPE being non-nil.
+
+2022-11-29 Mattias Engdegård <mattiase@acm.org>
+
+ Allow csharp-mode in c-default-style
+
+ * lisp/progmodes/cc-vars.el (c-default-style):
+ Add csharp-mode to the type. This fixes test-custom-opts.
+
+2022-11-29 Augusto Stoffel <arstoffel@gmail.com>
+
+ In project-find-file, add abbreviated file names to history
+
+ * lisp/progmodes/project.el (project--read-file-cpd-relative):
+ Use 'abbreviate-file-name' (bug#58447).
+
+2022-11-29 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/project.el (project-vc-name): Fix the :type form
(bug#48747).
+
+2022-11-29 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp cleanup
+
+ * doc/misc/tramp.texi: Use @value{tramp} where appropriate.
+
+ * doc/misc/trampver.texi: Change "Tramp" format ifplaintext.
+
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ Ignore `memory-info'.
+
+2022-11-29 Po Lu <luangruo@yahoo.com>
+
+ Allow be-resources to fail
+
+ * lib-src/be_resources.cc (be_perror): Print additional blurb.
+ (main): Return 0 on failure as well, but print the blurb.
+ Problem reported by the Haiku packager.
+
+2022-11-29 F. Jason Park <jp@neverwas.me>
+
+ Simplify erc-sasl's auth-source API
+
+ * doc/misc/erc.texi: Revise descriptions in SASL chapter to reflect
+ simplified auth-source options.
+
+ * lisp/erc/erc-sasl.el (erc-sasl-password,
+ erc-sasl-auth-source-function): Revise doc strings.
+ (erc-sasl-auth-source-password-as-host): New function to serve as
+ more useful choice for option `erc-sasl-auth-source-function'.
+ (erc-sasl--read-password): Promote auth-source to pole position, above
+ an explicit string and `:password'.
+
+ * test/lisp/erc/erc-sasl-tests.el (erc-sasl--read-password--basic):
+ Massage tests to conform to simplified `erc-sasl-password'
+ API. (Bug#29108.)
+
+2022-11-28 F. Jason Park <jp@neverwas.me>
+
+ * doc/misc/erc.texi: Revise SASL and modules chapters.
+
+2022-11-28 F. Jason Park <jp@neverwas.me>
+
+ Add erc-sasl-auth-source-function to cached options
+
+ * lisp/erc/erc-sasl.el (erc-sasl--read-password): Consult cached
+ options instead of `erc-sasl-auth-source-function'.
+ (erc-sasl--init): Add `erc-sasl-auth-source-function' to
+ `erc-sasl--options'.
+
+ * test/lisp/erc/erc-sasl-tests.el (erc-sasl--read-password--basic,
+ erc-sasl--read-password--auth-source): Look for original value of
+ `erc-sasl-auth-source-function' in `erc-sasl--options' under the
+ `authfn' key.
+
+2022-11-28 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification in csharp-ts-mode
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Improve rules for variables, new-expressions, and catch statements.
+
+2022-11-28 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve fontification in typescript-ts-mode
+
+ - Restore method-name fontification.
+ - Fontify all types in class-declarations, extendees too
+
+ * lisp/progmodes/typescript-ts-mode.el
+ (typescript-ts-mode--font-lock-settings): Change patterns.
+
+2022-11-28 Theodor Thornhill <theo@thornhill.no>
+
+ Add more font-lock settings to css-ts-mode
+
+ * lisp/textmodes/css-mode.el (css--treesit-settings): Add new
+ font-lock features 'query', 'keyword', 'operator' and 'bracket'.
+ (css-ts-mode): Use new features.
+
+2022-11-28 Yuan Fu <casouri@gmail.com>
+
+ Reparse tree-sitter tree when buffer restriction changes
+
+ * src/treesit.c (treesit_sync_visible_region): Set nee_reparse flag to
+ true if buffer range changes. Add some assertion.
+
+ * src/treesit.c (treesit_ensure_parsed): Move
+ treesit_sync_visible_region in front of the check for need_reparse.
+
+2022-11-28 Eli Zaretskii <eliz@gnu.org>
+
+ Fix GUD item on the menu bar in source buffers
+
+ * lisp/progmodes/gud.el (alist-get): Restore gud-minor-mode menu
+ on the menu bar. (Bug#59605)
+
+2022-11-28 Eli Zaretskii <eliz@gnu.org>
+
+ Cut the emacs-29 release branch
+
+ * README:
+ * configure.ac:
+ * nt/README.W32:
+ * msdos/sed2v2.inp: Bump Emacs version to 29.0.60.
+
+ * admin/admin.el (set-version): Fix regexp for configure.ac.
+
+ * lisp/cus-edit.el (customize-changed-options-previous-release):
+ Bump last version to 28.2.
+
+2022-11-28 Juanma Barranquero <lekktu@gmail.com>
+
+ Do not prune native-compiled system directories (bug#59658)
+
+ * lisp/emacs-lisp/comp.el (native-compile-prune-cache):
+ Skip last directory in `native-comp-eln-load-path'.
+
+2022-11-28 Gregory Heytings <gregory@heytings.org>
+
+ Fix display of long completions.
+
+ * lisp/minibuffer.el (completion--insert-strings): Do not assume
+ "at least 2 columns", which is not possible when completion
+ strings are long, e.g. with completions-detailed set.
+
+2022-11-27 Gregory Heytings <gregory@heytings.org>
+
+ Do not enter locked narrowing when it would span the whole buffer
+
+ * src/xdisp.c (handle_fontified_prop):
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): Add condition.
+
+2022-11-27 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el (xref--outdated-p): Fix broken docstring.
+
+2022-11-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Catch more cases in info--ensure-not-in-directory-node
+
+ * lisp/info.el (info--ensure-not-in-directory-node): Fix the case
+ where "DIR" is in upper-case, and if 'Info-current-file' is an
+ absolute file name.
+ Problem reported by Eli Zaretskii <eliz@gnu.org>.
+
+2022-11-27 Gregory Heytings <gregory@heytings.org>
+
+ Fix incompatible -t and -r options in emacsclient
+
+ * lib-src/emacsclient.c (decode_options): Do not allow -t and -r
+ together.
+
+2022-11-27 Gregory Heytings <gregory@heytings.org>
+
+ Minor improvements to locked narrowing
+
+ * src/xdisp.c (get_locked_narrowing_begv)
+ (get_locked_narrowing_zv): Safer handling of negative values.
+ (handle_fontified_prop): Do not use locked narrowing if the region
+ size is <= 0.
+
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): Do not use
+ locked narrowing if the region size is <= 0.
+
+2022-11-27 Yuan Fu <casouri@gmail.com>
+
+ Remove treesit-comment-start/end and use comment-start/end-skip
+
+ treesit-comment-start/end is unnecessary because of
+ comment-start/end-skip, so they should be removed.
+
+ Cleanup and set comment-start/end-skip for tree-sitter C-like major
+ modes.
+
+ I replaced the [ \t]* part in comment-start-skip with (syntax
+ whitespace), which is what comment-end-skip uses. I also added
+ grouping in comment-start-skip to match that of comment-end-skip.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode)
+ (c++-ts-mode)
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode)
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode)
+ * lisp/progmodes/js.el (js-ts-mode)
+ * lisp/progmodes/typescript-ts-mode.el (typescript-ts-mode): Setup
+ comment-start/end-skip.
+
+ * lisp/treesit.el (treesit-comment-start)
+ (treesit-comment-end): Remove variables.
+ (treesit-simple-indent-presets): Use comment-start/end-skip instead.
+
+2022-11-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/revert-for-copyright
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1026
+
+2022-11-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/revert-for-copyright2
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1027
+
+2022-11-27 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'feature/improved-locked-narrowing'
+
+2022-11-27 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the new ctags test
+
+ * test/manual/etags/Makefile (ctags_update): Sort CTAGS* files
+ before comparing. Patch by lu4nx <lx@shellcodes.org>. (Bug#59544)
+
+ * .gitignore: Ignore CTAGS*.sorted files.
+
+2022-11-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend memory-info for remote systems
+
+ * doc/lispref/files.texi (Magic File Names): Add memory-info.
+
+ * doc/lispref/internals.texi (Garbage Collection): memory-info can
+ also retrieve values from remote systems.
+
+ * etc/NEWS: Document changes in memory-info. Fix typos.
+
+ * lisp/files.el (warn-maybe-out-of-memory): Ensure local memory info.
+
+ * lisp/net/tramp.el (tramp-handle-memory-info): New defun.
+ (tramp-file-name-for-operation)
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist):
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist)
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Add 'memory-info'.
+
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-exec-path):
+ Let-bind `process-file-side-effects'.
+
+ * src/alloc.c (Fmemory_info): Support remote systems.
+ (Qmemory_info): Declare.
+
+ * test/lisp/net/tramp-tests.el (tramp-test31-memory-info): New test.
+
+2022-11-27 Philip Kaludercic <philipk@posteo.net>
+
+ Consistently refer to VC packages as such
+
+ * lisp/emacs-lisp/package-vc.el: Replace instances of "source package"
+ in comments and docstrings.
+ * lisp/emacs-lisp/package.el: Replace instances of "source package" in
+ comments and docstrings.
+
+2022-11-27 Juanma Barranquero <lekktu@gmail.com>
+
+ Fix xref interaction with which-func (bug#59575)
+
+ * lisp/progmodes/xref.el (xref--add-log-current-defun):
+ New function.
+ (xref--xref-buffer-mode): Assign it buffer-locally to
+ `add-log-current-defun-function'.
+
+2022-11-27 lu4nx <lx@shellcodes.org>
+
+ Fixed ctags local command execute vulnerability
+
+ * lib-src/etags.c:
+
+ (clean_matched_file_tag): New function
+ (do_move_file): New function
+ (readline_internal):
+ Add `leave_cr` parameter, if true, include the \r character
+
+ * test/manual/etags/CTAGS.good_crlf: New file
+ * test/manual/etags/CTAGS.good_update: New file
+ * test/manual/etags/crlf: New file
+ * test/manual/etags/Makefile: Add `ctags -u` test cases
+
+2022-11-27 Juanma Barranquero <lekktu@gmail.com>
+
+ Fix xref to correctly display Windows absolute filenames
+
+ * lisp/progmodes/xref.el (xref--group-name-for-display):
+ Use `file-name-absolute-p' instead of faking it. (Discussed
+ in bug#59628.)
+
+2022-11-27 Shohei YOSHIDA <syohex@gmail.com>
+
+ * lib-src/emacsclient.c (print_help_and_exit): Fix --timeout.
+
+2022-11-27 Po Lu <luangruo@yahoo.com>
+
+ Make frame synchronization more robust
+
+ * src/xterm.c (x_sync_wait_for_frame_drawn_event)
+ (x_sync_handle_frame_drawn): Only cancel frame synchronization
+ if hanging twice or more in a row.
+ * src/xterm.h (struct x_output, FRAME_X_DRAW_JUST_HUNG): New
+ flag.
+
+2022-11-27 Theodor Thornhill <theo@thornhill.no>
+
+ Remove compatibility code in csharp-mode
+
+ * lisp/progmodes/csharp-mode.el (c-basic-matchers-before): Remove
+ invalid string check for Emacs 27.
+ (version=): Remove compatibility hack for string handling in CC Mode
+ in Emacs 27.1. (Bug#59602)
+
+2022-11-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Revert "Add: 'local' keyword"
+
+ This reverts commit 620fe443c2e7598191cb5d6c6a41064471edb57c.
+
+2022-11-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Remove tests lacking a copyright assignment for now
+
+ * use-package-tests.el (use-package-test/pre-post-hooks-with-:config)
+ (use-package-test/pre-post-hooks-without-:config): Remove tests.
+
+2022-11-27 Theodor Thornhill <theo@thornhill.no>
+
+ Add js-ts-mode to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add js-ts-mode as
+ an alternative. (Bug#59252)
+
+2022-11-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve describe-text-properties display
+
+ * lisp/descr-text.el (describe-property-list): Don't propertize white
+ space with the 'help-argument-name' face. This improves display
+ slightly when that face has an underline.
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Simplify narrowing_locks_restore
+
+ * src/editfns.c (narrowing_locks_restore): Simplify.
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Improve handling of killed buffers in locked narrowings
+
+ * src/editfns.c (narrowing_locks_add, narrowing_locks_remove):
+ New functions, factored out.
+ (narrowing_lock_push, narrowing_lock_pop)
+ (narrowing_locks_restore): Use the new functions.
+ (narrowing_lock_get_bound): Return NULL for killed buffers.
+ (reset_outermost_narrowings, unwind_reset_outermost_narrowing):
+ Remove killed buffers from the 'narrowing_locks' alist.
+
+2022-11-26 Yuan Fu <casouri@gmail.com>
+
+ Make typescript-ts-mode not fallback to js-mode
+
+ 1. js-mode might not be able to handle typescript file
+ 2. Now that we use separate modes for tree-sitter modes, not falling
+ back makes tree-sitter modes more consistent
+
+ * lisp/progmodes/typescript-ts-mode.el (typescript-ts-mode): Remove
+ the fallback code.
+
+2022-11-26 Yuan Fu <casouri@gmail.com>
+
+ Make bash-ts-mode fall back to sh-mode if the file isn't in Bash
+
+ * lisp/progmodes/sh-script.el (sh--guess-shell): Take out into a new
+ function.
+ (sh-base-mode): Use the new function.
+ (bash-ts-mode): Update docstring.
+ (sh--redirect-recursing): New variable.
+ (sh--redirect-bash-ts-mode): New function.
+
+2022-11-26 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Correctly fontify types in typeof() expression in csharp-ts-mode
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Add new pattern.
+
+2022-11-26 Yuan Fu <casouri@gmail.com>
+
+ Reorganize treesit-font-lock-feaure-list's to the new level scheme
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--base-mode)
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode)
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode)
+ * lisp/progmodes/js.el (js-ts-mode)
+ * lisp/progmodes/python.el (python-ts-mode)
+ * lisp/progmodes/sh-script.el (bash-ts-mode)
+ * lisp/progmodes/typescript-ts-mode.el (typescript-ts-mode):
+ Reorganized treesit-font-lock-feature-list.
+
+2022-11-26 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-font-lock-level
+
+ This replaces font-lock-maximum-decoration and allows us to disable
+ the busiest fontification level by default.
+
+ * lisp/treesit.el (treesit-font-lock-level): New variable.
+ (treesit-font-lock-feature-list)
+ (treesit-font-lock-settings): Change docstring.
+ (treesit-font-lock-recompute-features): Use the new variable.
+
+2022-11-26 Yuan Fu <casouri@gmail.com>
+
+ Add default limit for tree-sitter recursive tree-traversing function
+
+ This fixes bug#59426.
+
+ * src/treesit.c (treesit_search_dfs)
+ (treesit_build_sparse_tree): Remove no_limit parameter.
+ (Ftreesit_search_forward, Ftreesit_induce_sparse_tree): Use default
+ limit of 1000.
+
+ * doc/lispref/parsing.texi (Retrieving Nodes): Update manual.
+
+2022-11-26 Yuan Fu <casouri@gmail.com>
+
+ Partially fix some python tests (bug#59477)
+
+ This fixes
+
+ python-font-lock-assignment-statement-multiline-1
+ python-font-lock-assignment-statement-multiline-2
+ python-font-lock-assignment-statement-multiline-3
+ python-font-lock-assignment-statement-multiline-4
+ python-font-lock-assignment-statement-multiline-5
+ python-font-lock-assignment-statement-multiline-6
+
+ but leaves
+
+ python-tests--fill-long-first-line
+
+ unfixed.
+
+ * lisp/progmodes/python.el (python-mode): Add the missing setup.
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Minor improvements for locked narrowing
+
+ * src/editfns.c (narrowing_lock_pop): Clarify comment, replace
+ assertion by return.
+ (narrowing_locks_restore): Add comments.
+
+ * lisp/subr.el (with-narrowing, internal--with-narrowing):
+ Simplify, use a single helper function with an optional argument.
+
+2022-11-26 Jim Porter <jporterbugs@gmail.com>
+
+ Improve robustness of server.el tests
+
+ * lisp/emacs-lisp/ert.el (ert--insert-infos): Allow 'message' to be a
+ function that is called when inserting the info.
+ (ert-info): Update docstring to describe using a function for
+ MESSAGE-FORM.
+
+ * lisp/server.el (server-start): Log when the server is starting.
+
+ * test/lisp/server-tests.el (server-tests/can-create-frames-p): New
+ constant. Use it to skip tests that need to create frames.
+ (server-tests/start-emacsclient): Rename to...
+ (server-tests/start-client): ... this, and set the process's buffer.
+ (server-tests/with-server): Put the server file in a temporary
+ directory so we don't conflict with real Emacs servers.
+ (server-tests/with-client): New macro...
+ (server-tests/server-start/stop-prompt-with-client)
+ (server-tests/emacsclient/server-edit)
+ (server-tests/emacsclient/create-frame)
+ (server-tests/emacsclient/create-frame): ... use it.
+ (server-tests/server-start/stop-prompt-with-client): Simplify.
+
+2022-11-26 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Remove mentions of create-directory nnmaildir setting
+
+ * lisp/gnus/nnmaildir.el (nnmaildir-open-server): The
+ 'create-directory server parameter should have been removed entirely,
+ and supplanted by 'target-prefix. Remove check for old parameter.
+ * doc/misc/gnus.texi (Maildir): Delete mention from manual.
+
+2022-11-26 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Docstring improvements
+
+ * src/xdisp.c (syms_of_xdisp):
+ * src/keyboard.c (syms_of_keyboard):
+ Docstring improvements.
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Docstring improvements
+
+ * src/xdisp.c (syms_of_xdisp):
+ * src/keyboard.c (syms_of_keyboard):
+ * src/buffer.c (syms_of_buffer):
+ Docstring improvements.
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Further improvements to narrowing locks
+
+ * src/editfns.c:
+ (narrowing_lock_get_bound): Return a pointer to a struct
+ Lisp_Marker instead of a character position. Suggested by Eli
+ Zaretskii.
+ (reset_outermost_narrowings, unwind_reset_outermost_narrowing)
+ (Fwiden, Fnarrow_to_region): Adapt accordingly.
+ (narrowing_lock_peek_tag, narrowing_lock_push)
+ (narrowing_lock_pop, narrowing_locks_save)
+ (narrowing_locks_restore): Use XCAR/XCDR/XSETCAR instead of
+ Fcar/Fcdr/Fsetcar.
+
+2022-11-26 Gregory Heytings <gregory@heytings.org>
+
+ Improve locked narrowing around low-level hooks.
+
+ * src/buffer.c (syms_of_buffer): Two new variables,
+ 'long-line-locked-narrowing-region-size' and
+ 'long-line-locked-narrowing-bol-search-limit', to make the locked
+ narrowing around low-level hooks configurable.
+
+ Increase the default value of 'long-line-threshold'. After
+ carefully considering the (few) bug reports about long line
+ optimizations, I concluded that the previous default value was too
+ low.
+
+ * src/xdisp.c (get_locked_narrowing_begv)
+ (get_locked_narrowing_zv): Two new functions.
+ (handle_fontified_prop, reseat): Use them.
+
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): Use them.
+
+ * src/dispextern.h (struct it): Add two new fields to store the
+ values returned by these functions.
+ Make them externally visible.
+
+ * src/editfns.c: (Fsave_restriction): Update docstring.
+
+2022-11-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Mention new programming language support in manual
+
+ * doc/emacs/programs.texi (Program Modes): Mention newly added support
+ for C#, TypeScript and JSON.
+
+2022-11-26 Augusto Stoffel <arstoffel@gmail.com>
+
+ In project-find-file and the like, add absolute file name to history
+
+ * lisp/progmodes/project.el (project--read-file-cpd-relative): Add
+ absolute file name to history.
+
+2022-11-26 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of some posn-* functions
+
+ * lisp/subr.el (posn-object-x-y): Doc fix.
+
+ * doc/lispref/commands.texi (Click Events): More accurate
+ documentation of what are DX and DY in POSITION.
+
+2022-11-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix generation of autoloads on MS-Windows
+
+ * lisp/emacs-lisp/loaddefs-gen.el
+ (loaddefs-generate--file-load-name): Handle the case when FILE and
+ OUTFILE don't share any common ancestor directory. (Bug#59507)
+
+2022-11-26 Po Lu <luangruo@yahoo.com>
+
+ Reduce wasted cycles in x*.c
+
+ * src/xfns.c (compute_tip_xy, Fx_show_tip):
+ * src/xselect.c (x_own_selection, x_get_local_selection)
+ (x_clear_frame_selections): Call CAR and CDR, not Fcar and Fcdr.
+
+2022-11-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Use substitute-command-keys in Info-index error
+
+ * lisp/info.el (info--ensure-not-in-directory-node): New helper
+ function using substitute-command-keys for error message.
+ (Info-index, Info-virtual-index): Use it.
+
+2022-11-26 Brian Leung <leungbk@posteo.net>
+
+ eglot-server-programs: ts-mode -> typescript-ts-mode
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Fix name of
+ 'typescript-ts-mode' after rename from 'ts-mode'. (Bug#59589)
+
+2022-11-25 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter assertion error (bug#59574)
+
+ * src/treesit.c (treesit_sync_visible_region): Initialize
+ visible_beg/end when tree is NULL.
+
+2022-11-25 Yuan Fu <casouri@gmail.com>
+
+ Rename treesit_ensure_position_synced to treesit_sync_visible_region
+
+ * src/treesit.c: Rename to better convey the purpose of the function.
+
+2022-11-25 Theodor Thornhill <theo@thornhill.no>
+
+ Rename ts-mode to typescript-ts-mode
+
+ * lisp/progmodes/typescript-ts-mode.el: Rename from 'ts-mode' to
+ 'typescript-ts-mode'. Rename all symbols to match new prefix.
+ * etc/NEWS: Mention the new mode name.
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-11/msg01587.html
+
+2022-11-25 Theodor Thornhill <theo@thornhill.no>
+
+ Rename ts-mode.el to typescript-ts-mode.el
+
+ * lisp/progmodes/ts-mode.el: Move from here...
+ * lisp/progmodes/typescript-ts-mode.el: ...to here.
+
+2022-11-25 Po Lu <luangruo@yahoo.com>
+
+ Fix no-accept-focus handling for embedded frames
+
+ * src/xterm.c (handle_one_xevent): Don't focus embedded frames
+ on click if they have `no-accept-focus' set.
+
+2022-11-25 Gregory Heytings <gregory@heytings.org>
+
+ Save and restore narrowing locks in 'save-restriction'.
+
+ * src/editfns.c: (Fsave_restriction): Save and restore narrowing
+ locks. Suggested by Stefan Monnier.
+ (narrowing_locks_save, narrowing_locks_restore): Helper functions.
+
+ * lisp/subr.el (with-narrowing-1): Simplify.
+
+2022-11-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ Drop project--value-in-dir
+
+ Drop the project--value-in-dir mechanics, where the user could edit
+ the value in .dir-locals.el and have it applied instantly without
+ reverting the current buffer. It made working in remote buffers with
+ enable-remote-dir-locals non-nil slower, which doesn't seem worth it
+ for a minor improvement of an infrequent operation. Also less
+ compexity overall.
+
+ * lisp/progmodes/project.el (project-try-vc, project-files)
+ (project--vc-list-files, project-ignores, project-buffers):
+ Use the user options directly.
+ (project--vc-merge-submodules-p, project--value-in-dir):
+ Delete functions.
+
+2022-11-25 Gregory Heytings <gregory@heytings.org>
+
+ Generic 'with-narrowing' macro.
+
+ * lisp/subr.el (with-narrowing): New generic macro, replacing the
+ 'with-locked-narrowing' one. Suggested by Stefan Monnier.
+ (with-narrowing-1, with-narrowing-2): Helper functions.
+
+2022-11-25 Gregory Heytings <gregory@heytings.org>
+
+ Reworked locked narrowing.
+
+ * src/editfns.c: (narrowing_locks): New alist to hold the narrowing
+ locks and their buffers.
+ (narrowing_lock_get_bound, narrowing_lock_peek_tag)
+ (narrowing_lock_push, narrowing_lock_pop): New functions to access
+ and update 'narrowing_locks'.
+ (reset_outermost_narrowings, unwind_reset_outermost_narrowing):
+ Functions moved from src/xdisp.c, and rewritten with the above
+ functions.
+ (Fwiden): Use the above functions. Update docstring.
+ (Fnarrow_to_region, Fnarrowing_lock, Fnarrowing_unlock): Use the above
+ functions.
+ (syms_of_editfns): Remove the 'narrowing-locks' variable.
+
+ * src/lisp.h: Make 'reset_outermost_narrowings' externally visible.
+
+ * src/xdisp.c (reset_outermost_narrowings)
+ unwind_reset_outermost_narrowing): Functions moved to src/editfns.c.
+
+ * lisp/subr.el (with-locked-narrowing): Improved macro, with a helper
+ function.
+
+2022-11-25 F. Jason Park <jp@neverwas.me>
+
+ Disable auth-source-pass-extra-query-keywords by default
+
+ * doc/misc/auth.texi: Mention subdomain matching in
+ `auth-source-pass-extra-query-keywords' section.
+ * etc/NEWS: Mention the loss of traditional auth-source-pass features
+ when `auth-source-pass-extra-query-keywords' is enabled.
+ * lisp/auth-source-pass.el (auth-source-pass-extra-query-keywords): Set
+ default to nil. Mention domain matching in doc string.
+ (auth-source-pass--match-regexp): Allow username to contain "@".
+ * lisp/erc/erc-compat.el:
+ (erc-compat--29-auth-source-pass--retrieve-parsed): Adjust regexp.
+ * test/lisp/auth-source-pass-tests.el
+ (auth-source-pass-extra-query-keywords--suffixed-user): make plain
+ username more email-like.
+ (Bug#58985.)
+
+2022-11-25 Mattias Engdegård <mattiase@acm.org>
+
+ Add sqlite library version string retrieval function (bug#58766)
+
+ * src/sqlite.c (sqlite3_libversion, load_dll_functions):
+ Make sqlite3_libversion available.
+ (Fsqlite_version): New.
+ (syms_of_sqlite): Define sqlite-version.
+ * doc/lispref/text.texi (Database): Document.
+ * test/src/sqlite-tests.el (sqlite-returning): `RETURNING` was added
+ in sqlite 3.35; skip the test for older versions.
+
+2022-11-25 Theodor Thornhill <theo@thornhill.no>
+
+ Fix regex errors in csharp-mode
+
+ * lisp/progmodes/csharp-mode.el (csharp-guess-basic-syntax):
+ Repetition errors in regex.
+
+ (csharp-compilation-re-xbuild-warning): Make regex match regex for
+ xbuild-error.
+
+2022-11-25 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix the "asymmetry rule" for fontifying a type followed by *
+
+ This fixes bug #59427. We now handle correctly the case when a
parenthesis
+ follows the * which is ambiguously a multiplication or indirection
operator.
+ Also, we don't recognise a type thus found as a found type - the
evidence is
+ too weak.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): Fix CASE 17.5
as
+ above.
+
+2022-11-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Remove unused parameter from image_create_pix_container
+
+ * src/image.c (image_create_pix_container): Remove unused
+ frame parameter. Update callers.
+
+2022-11-25 Daanturo <daanturo@gmail.com>
+
+ Show package name in package-vc--unpack prompt
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Display the
+ package name when asking whether to overwrite its previous
+ checkout. (Bug#59548)
+
+2022-11-24 Jim Porter <jporterbugs@gmail.com>
+
+ Don't explicitly delete client frames when killing Emacs anyway
+
+ This eliminates a useless error prompt when killing Emacs from a
+ client frame when there are no other frames (bug#58877).
+
+ * lisp/server.el (server-running-external): New error.
+ (server--file-name): New function...
+ (server-eval-at): ... use it.
+ (server-start): Factor out server stopping code into...
+ (server-stop): ... here.
+ (server-force-stop): Use 'server-stop', and tell it not to delete
+ frames.
+
+ * test/lisp/server-tests.el
+ (server-tests/server-force-stop/keeps-frames): New test.
+
+2022-11-24 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Make ibuffer directory filter buffer aware
+
+ * lisp/ibuf-ext.el (define-ibuffer-filter): Make ibuffer directory
+ filter buffer aware for buffer not visiting files. (Bug#59165)
+
+2022-11-24 Ackerley Tng <ackerleytng@google.com>
+
+ Add support for window-local xref history
+
+ * lisp/progmodes/xref.el (xref-history-storage):
+ New user option (bug#59381).
+ (xref--make-xref-history): New function.
+ (xref--history): Use it.
+ (xref-global-history, xref-window-local-history): New function.
+ (xref--get-history): New function.
+ (xref--push-backward, xref--push-forward)
+ (xref-push-marker-stack, xref-go-back, xref-go-forward)
+ (xref-clear-marker-stack, xref-marker-stack-empty-p)
+ (xref-forward-history-empty-p): Use it.
+
+2022-11-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Bind Buffer-menu-view-other-window to "O"
+
+ * lisp/buff-menu.el (Buffer-menu-mode-map): Bind
+ 'Buffer-menu-view-other-window' to "O".
+ (Buffer-menu-mode): Clean up docstring. (Bug#59280)
+
+2022-11-24 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Allow goto-address-at-point to use secondary browser
+
+ * lisp/net/goto-addr.el (goto-address-at-point): Call
+ `browse-url-button-open-url', so a prefix argument uses
+ `browse-url-secondary-browser-function'. (Bug#59443)
+
+2022-11-24 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix easy menu separator in oldXMenu
+
+ * lisp/emacs-lisp/easymenu.el (easy-menu-convert-item-1): Replace a
+ string of dash with a menu separator as the doc says. (Bug#59370)
+
+2022-11-24 Jostein Kjønigsen <jostein@kjonigsen.net>
+
+ Improve csharp-ts-mode fontification
+
+ * lisp/progmodes/csharp-mode.el (csharp-ts-mode--font-lock-settings):
+ Add more pattern for definition feature.
+
+2022-11-24 Yuan Fu <casouri@gmail.com>
+
+ Improve python-ts-mode fontification (bug#59534)
+
+ * lisp/progmodes/python.el (python--treesit-operators): Add operators.
+ (python--treesit-fontify-string): Fontify BOF docstrings.
+
+2022-11-24 Paul Eggert <eggert@cs.ucla.edu>
+
+ Work around lsp-mode compatibility bug
+
+ * src/timefns.c (Ftime_subtract): Respect current-time-list when
+ args are eq (Bug#59506).
+
+2022-11-24 Brian Leung <leungbk@posteo.net>
+
+ Add more tree-sitter modes to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add python-ts-mode
+ and bash-ts-mode. (Bug#59550)
+
+2022-11-24 Philip Kaludercic <philipk@posteo.net>
+
+ * src/emacs.c (usage_message): Add missing --init-directory entry
+
+2022-11-24 Brian Leung <leungbk@posteo.net>
+
+ Add tree-sitter-based modes to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add
+ tree-sitter-based major modes. (Bug#59229)
+
+2022-11-24 Ulf Jasper <ulf.jasper@web.de>
+
+ icalendar: Adjust tests after fixing parsing of sexp entries (bug#56241)
+
+ * test/lisp/calendar/icalendar-tests.el
+ (icalendar-export-bug-56241-nested-sexps): New.
+ * test/lisp/calendar/icalendar-tests.el (icalendar-real-world):
+ Disable testcase for exporting sexp entries that has now become invalid.
+
+2022-11-24 hokomo <hokomo@airmail.cc> (tiny change)
+
+ icalendar.el: Fix parsing of sexp entries (bug#56241)
+
+ * lisp/calendar/icalendar.el (icalendar--convert-sexp-to-ical): Use
+ read-from-string for parsing sexp entries (bug#56241).
+
+2022-11-24 dannyfreeman <danny@dfreeman.email>
+
+ Eglot: don't confuse URLs and windows file paths
+
+ bug#59338
+
+ * lisp/progmodes/eglot.el (eglot--path-to-uri): Check for windows path
+
+2022-11-24 João Távora <joaotavora@gmail.com>
+
+ Remove fboundp check in eglot--connect
+
+ project.el is a GNU ELPA :core package, so this kind of trick isn't
+ needed.
+
+ * lisp/progmodes/eglot.el (eglot--connect): Don't fboundp
+ project-name.
+
+2022-11-24 Marcin Pajkowski <marcin.pajkowski@gmail.com> (tiny change)
+
+ Eglot: Advertise completion.resolveSupport capabilities
+
+ Some servers avoid reporting completion items that
+ require "additionalTextEdits" capability. Actually,
+ 'eglot-completion-at-point' function supports such
+ feature so it can be advertised to LSP server.
+ * lisp/progmodes/eglot.el (eglot-client-capabilities): Advertise
+ resolveSupport. (bug#59465)
+
+2022-11-24 Mattias Engdegård <mattiase@acm.org>
+
+ Add new SI prefixes
+
+ * lisp/calc/calc-units.el (math-unit-prefixes):
+ * lisp/files.el (file-size-human-readable):
+
+ Add ronna, quetta, ronto and quecto. (We get the future IEC binary
+ prefixes Ri and Qi (robi and quebi) in `file-size-human-readable` for
+ free.)
+
+2022-11-24 Gregory Heytings <gregory@heytings.org>
+
+ Merge master into feature/improved-locked-narrowing.
+
+2022-11-24 Po Lu <luangruo@yahoo.com>
+
+ Fix reentrancy problem/crash in xterm.c
+
+ * src/xterm.c (x_ignore_errors_for_next_request)
+ (x_stop_ignoring_errors): Be paranoid and block input inside the
+ protected section.
+ (x_focus_frame): Block input around critical section.
+
+2022-11-24 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Fix trashing of symlink that points at a directory
+
+ * lisp/files.el (move-file-to-trash): Redefine is-directory so
+ that it is false for symlinks.
+
+2022-11-24 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Fix cross-filesystem directory trashing (Bug#58721)
+
+ * lisp/files.el (move-file-to-trash): When trashing a directory with
+ the same name as something that's already in the trash, copy it into
+ the trash folder and then delete it, rather than using rename-file.
+
+2022-11-24 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Make it scroll fast over buffers with only #define's
+
+ * lisp/progmodes/cc-engine.el (c-forward-over-token): New LIMIT
parameter
+
+ * lisp/progmodes/cc-langs.el (c-anchored-hash-define-no-parens): Replace
+ ill-formed regular expression (which mixed \\sw and character
alternative)
+ with simpler efficient regexp.
+
+ * lisp/progmodes/cc-mode.el (c-fl-decl-end): New forward limit LIM+
used in
+ c-forward-declarator and c-forward-over-token.
+
+2022-11-24 Tassilo Horn <tsdh@gnu.org>
+
+ Fix face issues in show-paren context overlay (bug#59527)
+
+ * lisp/paren.el (show-paren--show-context-in-overlay): Use
+ show-paren-priority as overlay priority (fixes problem 2 of
+ bug#59527).
+ * lisp/simple.el (blink-paren-open-paren-line-string): Ensure the
+ context lines are font-locked before taking the
+ buffer-substring (fixes problem 1 of bug#59527).
+
+2022-11-24 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in treesit.c when editing non-ASCII
+
+ * src/treesit.c (make_treesit_parser): Use byte positions when
+ initializing 'lisp_parser'. This avoids assertion violations when
+ the buffer has non-ASCII characters.
+
+2022-11-24 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Improve LDAP and BBDB tests
+
+ * test/lisp/net/eudc-tests.el (eudcb-ldap): Make slapd detection
+ reliable.
+ * test/lisp/net/eudc-resources/bbdb: Add another test contact.
+
+2022-11-23 Yuan Fu <casouri@gmail.com>
+
+ Add an error fontification heuristic to c-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): Use new
+ function.
+ (c-ts-fontify-error): New function.
+
+2022-11-23 Yuan Fu <casouri@gmail.com>
+
+ Don't always filter out captured tree-sitter nodes outside of region
+
+ * lisp/treesit.el (treesit-font-lock-fontify-region): If the capture
+ name is a function, don't filter.
+
+2022-11-23 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-switch-project: Use a different fix for bug#58784
+
+ * lisp/progmodes/project.el (project-current-inhibit-prompt):
+ Rename to 'project-current-directory-override', and make it a
+ string value.
+ (project-current): Refer to it.
+ (project-switch-project): Bind it. Drop the temp buffer (bug#58784).
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Add test scenarios for local ERC modules
+
+ * test/lisp/erc/erc-scenarios-base-local-modules.el: New file.
+ * test/lisp/erc/resources/base/local-modules/first.eld: New file.
+ * test/lisp/erc/resources/base/local-modules/fourth.eld: New file
+ * test/lisp/erc/resources/base/local-modules/second.eld: New file.
+ * test/lisp/erc/resources/base/local-modules/third.eld: New file.
+ (Bug#57955.)
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Accept functions in place of passwords in ERC
+
+ * lisp/erc/erc-backend.el (erc-session-password): Add comment
+ explaining type is now string, nil, or function.
+ * lisp/erc/erc-compat.el (erc-compat--29-auth-source-pass-search):
+ Use obfuscation from auth-source function when available.
+ * lisp/erc/erc-sasl.el (erc-sasl--read-password,
+ erc-server-AUTHENTICATE): Use `erc--unfun'.
+ * lisp/erc/erc-services.el (erc-nickserv-get-password,
+ erc-nickserv-send-identify): Use `erc--unfun'.
+ * lisp/erc/erc.el (erc--unfun): New function for unwrapping a
+ password couched in a getter.
+ (erc--debug-irc-protocol-mask-secrets): Add variable to indicate
+ whether to mask passwords in debug logs.
+ (erc--mask-secrets): New function to swap masked secret with question
+ marks in debug logs.
+ (erc-log-irc-protocol): Conditionally mask secrets when
+ `erc--debug-irc-protocol-mask-secrets' is non-nil.
+ (erc--auth-source-search): Don't unwrap secret from function before
+ returning.
+ (erc-server-join-channel, erc-login): Use `erc--unfun'.
+
+ * test/lisp/erc/erc-services-tests.el
+ (erc-services-tests--wrap-search): Add helper for `erc--unfun'.
+ (erc-services-tests--auth-source-standard,
+ erc-services-tests--auth-source-announced,
+ erc-services-tests--auth-source-overrides, erc-nickserv-get-password):
+ Use `erc--unfun'.
+ * test/lisp/erc/erc-tests.el (erc--debug-irc-protocol-mask-secrets):
+ Add test for masking secrets with `erc--unfun' and friends.
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Add non-IRCv3 SASL module to ERC
+
+ * doc/misc/erc.texi: Add SASL section in Advanced Usage chapter to
+ document the new SASL module.
+
+ * etc/ERC-NEWS: Mention addition of erc-sasl module for SASL support.
+
+ * lisp/erc/erc-compat.el
+ (erc-compat--29-sasl-scram-construct-gs2-header,
+ erc-compat--29-sasl-scram-client-first-message,
+ erc-compat--29-sasl-scram--client-final-message): Fix encoding bug and
+ add minimal authorization support with copies of SASL functions
+ introduced in Emacs 29.
+
+ * lisp/erc/erc.el (erc-modules): Add `sasl'.
+ * lisp/erc/erc-sasl.el: New file (bug#29108).
+ * test/lisp/erc/erc-sasl-tests.el: New file.
+ * test/lisp/erc/erc-scenarios-sasl.el: New file.
+ * test/lisp/erc/resources/sasl/plain-failed.eld: New file.
+ * test/lisp/erc/resources/sasl/plain.eld: New file.
+ * test/lisp/erc/resources/sasl/scram-sha-1.eld: New file.
+ * test/lisp/erc/resources/sasl/scram-sha-256.eld: New file.
+ * test/lisp/erc/resources/sasl/external.eld: New file.
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Call erc-login indirectly via new generic wrapper
+
+ * lisp/erc/erc-backend.el (erc--register-connection): Add new internal
+ generic function that defers to `erc-login' by default.
+ (erc-process-sentinel, erc-server-connect): Call
+ `erc--register-connection' instead of `erc-login'.
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Support local ERC modules in erc-mode buffers
+
+ * doc/misc/erc.texi: Mention local modules in Modules chapter.
+
+ * etc/ERC-NEWS: Mention changes to `erc-update-modules'.
+
+ * lisp/erc/erc.el (erc-migrate-modules): Add some missing mappings.
+ (erc-modules): When a user removes a module, disable it and kill its
+ local variable in all ERC buffers.
+ (erc-update-modules): Move body of `erc-update-modules' to new
+ internal function.
+ (erc--update-modules): Add new function, a renamed and slightly
+ modified version of `erc-update-modules'. Specifically, change return
+ value from nil to a list of minor-mode commands for local modules.
+ Use `custom-variable-p' to detect flavor.
+ (erc--merge-local-modes): Add helper for finding local modules
+ already active as minor modes in an ERC buffer.
+ (erc-open): Replace `erc-update-modules' with `erc--update-modules'.
+ Defer enabling of local modules via `erc--update-modules' until after
+ buffer is initialized with other local vars. Also defer major-mode
+ hooks so they can detect things like whether the buffer is a server or
+ target buffer. Also ensure local module setup code can detect when
+ `erc-open' was called with a non-nil `erc--server-reconnecting'.
+
+ * lisp/erc/erc-common.el (erc--module-name-migrations,
+ erc--features-to-modules, erc--modules-to-features): Add alists of
+ old-to-new module names to support module-name migrations.
+ (erc--assemble-toggle): Add new helper for constructing mode toggles,
+ like `erc-sasl-enable'.
+ (define-erc-modules): Defer to `erc--assemble-toggle' to create toggle
+ commands.
+ (erc--normalize-module-symbol): Add helper for `erc-migrate-modules'.
+
+ * lisp/erc/erc-goodies.el: Require cl-lib.
+
+ * test/lisp/erc/erc-tests.el (erc-migrate-modules,
+ erc--update-modules): Add rudimentary unit tests asserting correct
+ module-name mappings.
+ (erc--merge-local-modes): Add test for helper.
+ (define-erc-module--global, define-erc-module--local): Add tests
+ asserting module-creation macro. (Bug#57955.)
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Make erc--server-reconnecting non-buffer-local
+
+ * lisp/erc/erc-backend.el (erc--server-reconnecting): Mention expected
+ non-nil value type in doc string.
+ (erc-server-connect): Don't set `erc--server-reconnecting'.
+ (erc-server--reconnect): Let-bind `erc--server-reconnecting' instead
+ of setting it locally in the server buffer. Set it to an alist
+ containing the current buffer's local variables.
+ (erc-process-sentinel-2): Don't set `erc--server-reconnect'.
+ * lisp/erc/erc.el (erc--cmd-reconnect): Clean up some assertions.
+ (Bug#57955.)
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Don't set erc-networks--id until network is known
+
+ * lisp/erc/erc-networks.el (erc-networks--id-given): Accept a null
+ argument.
+ (erc-networks--id-on-connect): Remove unused function.
+ (erc-networks--id-equal-p): Add method for comparing initialized and
+ unset IDs.
+ (erc-networks--update-server-identity): Ensure `erc-networks--id' is
+ set before continuing search.
+ (erc-networks--init-identity): Don't assume `erc-networks--id' is
+ non-nil. Add branch condition to reload ID on non-nil case.
+ (erc-networks-on-MOTD-end): Let init-ID function handle renaming of
+ server buffer.
+
+ * lisp/erc/erc.el (erc-open): For continued sessions, try copying over
+ the last network ID.
+ (erc--auth-source-determine-params-default): Don't expect a network ID
+ to have been initialized.
+ (erc-set-current-nick): When connected, reload network ID. Leave
+ comment warning that it may be unneeded.
+
+ * lisp/erc/erc-backend.el (erc-server-NICK, erc-server-433): Unless
+ already connected, schedule ID reload when server rejects or mandates
+ a nick change.
+
+ * test/lisp/erc/erc-scenarios-base-association-nick.el
+ (erc-scenarios-base-association-nick-bumped,
+ erc-scenarios-base-association-nick-bumped-mandated-renick): Update to
+ reflect more liberal association behavior when renamed by IRCd.
+
+2022-11-23 F. Jason Park <jp@neverwas.me>
+
+ Add GS2 authorization to sasl-scram-rfc
+
+ * lisp/net/sasl-scram-rfc.el (sasl-scram-gs2-header-function,
+ sasl-scram-construct-gs2-header): Add new variable and default
+ function for determining a SCRAM GSS-API message header. This is
+ mainly intended for other libraries rather than end users.
+ (sasl-scram-client-first-message): Use gs2-header function.
+ (sasl-scram--client-final-message): Use dedicated gs2-header function.
+ Also remove whitespace when base64-encoding, as per RFC 5802.
+ (Bug#57956.)
+
+2022-11-23 Theodor Thornhill <theo@thornhill.no>
+
+ Add csharp-mode and csharp-ts-mode
+
+ * etc/NEWS: Mention new modes.
+ * lisp/progmodes/csharp-mode.el (csharp-mode, csharp-ts-mode): New
+ major modes.
+
+2022-11-23 Yuan Fu <casouri@gmail.com>
+
+ Don't skip nested defuns in python-ts-mode defun navigation
+
+ This fixes bug#59495.
+
+ Before this change, python tries to skip nested function
+ definition. Now we don't skip any nested defun.
+
+ * lisp/progmodes/python.el (python-treesit-beginning-of-defun)
+ (python-treesit-end-of-defun): Remove functions.
+ * lisp/progmodes/python.el (python-ts-mode): Use tree-sitter's default
+ navigation function.
+
+2022-11-23 Yuan Fu <casouri@gmail.com>
+
+ More flexible tree-sitter defun navigation
+
+ Before this change, treesit-beginning-of-defun skips nested defuns.
+ Now user can decide whether to skip nested defuns.
+
+ * lisp/treesit.el (treesit-search-forward-goto): Improve docstring.
+ (treesit-defun-prefer-top-level): New variable.
+ (treesit--defun-maybe-top-level): New function.
+ (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Use treesit--defun-maybe-top-level.
+
+2022-11-23 Ulf Jasper <ulf.jasper@web.de>
+
+ icalendar.el: Add test(s) for bug#56241
+
+ * test/lisp/calendar/icalendar-tests.el
+ (icalendar-tests--get-error-string-for-export): new.
+ * icalendar-tests.el (icalendar-export-bug-56241-dotted-pair): new
+
+2022-11-23 Juri Linkov <juri@linkov.net>
+
+ New commands previous-line-completion and next-line-completion
(bug#59486)
+
+ * lisp/simple.el (completion-list-mode-map): Bind [up] to
+ 'previous-line-completion', and [down] to 'next-line-completion'.
+ (completion-auto-wrap): Mention `next-line-completion' and
+ `previous-line-completion' in the docstring.
+ (previous-line-completion, next-line-completion): New commands.
+
+2022-11-23 Philip Kaludercic <philipk@posteo.net>
+
+ Don't break when loading VC packages on older Emacs versions
+
+ * lisp/emacs-lisp/package-vc.el
+ (package-vc--generate-description-file): Append a :kind property
+ instead of modifying the version number.
+ * lisp/emacs-lisp/package.el (package-desc): Remove special handling
+ for "vc annotated" versions. (bug#59404)
+
+2022-11-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/help.el (describe-bindings): Use the outline-default-rules
feature.
+
+ Set buffer-local outline-default-state to 1, and outline-default-rules
+ to match "Key translations", instead of searching and hiding this
section
+ explicitly.
+
+2022-11-23 lu4nx <lx@shellcodes.org> (tiny change)
+
+ Support Racket programs in 'etags'
+
+ * lib-src/ctags.c (Scheme_suffixes): Add the Racket language
+ extension ".rkt".
+
+2022-11-23 Dmitry Gutov <dgutov@yandex.ru>
+
+ xref--search-property: Jump over entries hidden by outline-minor-mode
+
+ * lisp/progmodes/xref.el (xref--search-property):
+ Jump over entries hidden by e.g. outline-minor-mode (bug#49731).
+
+2022-11-23 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid signaling args-out-of-range in mouse.el
+
+ * lisp/mouse.el (mouse-posn-property): Avoid
+ signaling args-out-of-range errors when mode-line format uses
+ min-width 'display' property. (Bug#59452)
+
+2022-11-23 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of locale-specific string comparison
+
+ * doc/lispref/strings.texi (Text Comparison):
+ * src/fns.c (Fstring_collate_equalp): Improve documentation of
+ 'string-collate-equalp' and 'string-collate-lessp'. (Bug#59275)
+
+2022-11-23 Eli Zaretskii <eliz@gnu.org>
+
+ Fix error signaled by mouse-highlight on mode line
+
+ * src/xdisp.c (note_mode_line_or_margin_highlight): Avoid
+ signaling args-out-of-range errors when mode-line format uses
+ min-width 'display' property. (Bug#59452)
+
+2022-11-23 Po Lu <luangruo@yahoo.com>
+
+ Improve last change to xterm.c
+
+ * src/xfns.c (Fx_display_last_user_time): Reject overly large
+ timestamps.
+ * src/xterm.c (x_display_set_last_user_time, handle_one_xevent):
+ New functions.
+
+2022-11-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Restore tramp-achive's Emacs 26 compatibility
+
+ * lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-regexp):
+ Special handling of Emacs 26. Simplify the other part.
+
+ * test/lisp/net/tramp-tests.el (tramp-test48-unload): Special case
+ of `tramp-register-archive-file-name-handler'.
+
+2022-11-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: 'S-<down-mouse-1>' on buffer buttons cycles all
outlines.
+
+ (outline--create-button-icons, outline--insert-button): Bind
'S-<mouse-1>' to
+ 'outline-cycle-buffer' as it's already done for buttons on the margins.
+ Ignore 'S-<down-mouse-1>'. Don't hard-code 'help-echo' since it should
be
+ customizable by the ':help-echo' keyword in 'define-icon'.
+
+2022-11-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/xref.el: Support outline-minor-mode (bug#49731)
+
+ (xref--xref-buffer-mode): Set buffer-local variables
outline-minor-mode-cycle,
+ outline-minor-mode-use-buttons, outline-search-function, outline-level
+ as settings for enabling outline-minor-mode in xref output buffers where
+ outline headings are xref groups, and their lines can be hidden by
+ outline commands.
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ Tweak python-ts-mode fontification (bug#59470)
+
+ * lisp/progmodes/python.el (python--treesit-settings): Only fontify
+ the @ and the identifier of a decorator, not the argument list (if
+ there is any).
+
+2022-11-22 Randy Taylor <dev@rjt.dev>
+
+ Utilize new font-lock faces for more tree-sitter modes (Bug#59397)
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--font-lock-settings):
+ Use font-lock-number-face.
+ (java-ts-mode): Alphabetize features.
+ * lisp/progmodes/js.el (js--treesit-operators): Define operators.
+ (js--treesit-font-lock-settings): Use bracket, delimiter,
+ escape-sequence, property, number, and operator font-lock faces.
+ (js-ts-mode): Add them to the feature list and alphabetize.
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--font-lock-settings):
+ Use bracket, delimiter, escape-sequence, and number faces. Remove
+ unused features.
+ (json-ts-mode): Add them to the feature list and alphabetize.
+ * lisp/progmodes/sh-script.el (sh-mode--treesit-settings): Use
+ bracket, delimiter, number, misc-punctuation, and operator font-lock
+ faces.
+ (sh-mode--treesit-operators): Remove ; and ;; from list.
+ (bash-ts-mode): Add them to the feature list and alphabetize.
+ * lisp/progmodes/ts-mode.el (ts-mode--operators): Define operators.
+ (ts-mode--font-lock-settings): Use escape-sequence, number, and
+ operator font-lock faces.
+ (ts-mode): Add them to the feature list and alphabetize.
+
+2022-11-22 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add a way to override project name for project-vc backend
+
+ * lisp/progmodes/project.el (project-vc-name): New user option.
+ (project-name): Override for VC project backend (bug#48747).
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-update-ranges
+
+ * lisp/treesit.el (treesit--clip-ranges): New function.
+ (treesit-update-ranges): Now clips the range within (point-min)
+ and (point-max), so the new range we use are not out-of-range.
+
+2022-11-22 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ * lisp/progmodes/eglot.el (eglot--connect): Use project-name
+
+ As discussed in bug#48747.
+
+2022-11-22 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ * lisp/progmodes/project.el (project-name): New
+
+2022-11-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'treesit-max-buffer-size' and its use
+
+ * lisp/treesit.el (treesit-max-buffer-size): Avoid overflow in
+ computing buffer-size limit. Account for 32-but systems built
+ "--with-wide-int". Extend doc string.
+ (treesit-ready-p): Compare the limit with the size of the buffer
+ in bytes, not in characters.
+
+ * src/treesit.c (treesit_check_buffer_size): Measure buffer size
+ in bytes.
+
+2022-11-22 Robert Pluim <rpluim@gmail.com>
+
+ Add '\lll' for VERY MUCH LESS-THAN to TeX input method
+
+ * lisp/leim/quail/latin-ltx.el (latin-ltx--define-rules): Add '\lll'
+ translation for U+22D8. (Bug#59476)
+
+2022-11-22 Po Lu <luangruo@yahoo.com>
+
+ Adjust x_display_set_last_user_time for Xlib sign-extension
+
+ * src/xterm.c (x_display_set_last_user_time): Adjust for Xlib
+ sign extending fields in client messages to 64 bit long, which
+ then break x_display_set_last_user_time after 24 days, as Time
+ is unsigned long for historical reasons. (bug#59480)
+
+2022-11-22 Ihor Radchenko <yantar92@posteo.net>
+
+ Improve the doc string of 'string-collate-lessp'
+
+ * src/fns.c (Fstring_collate_lessp): Clarify that
+ IGNORE-CASE argument might be ignored when the operating
+ system does not implement string collation for the
+ specified locale. (Bug#59275)
+
+2022-11-22 Sam James <sam@gentoo.org>
+
+ Fix tree-sitter build using non-bash /bin/sh (bug#59460)
+
+ * configure.ac: Don't use '==' in comparisons.
+
+2022-11-22 Po Lu <luangruo@yahoo.com>
+
+ Avoid potentially expensive XFlush and fix ordering
+
+ * src/xterm.c (x_raise_frame): Don't call XFlush without a
+ request being made.
+ (x_lower_frame): Fix ordering wrt to xwidget view lowering.
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ Separate tree-sitter and non-tree-sitter variant of sh-mode
+
+ Now there are three modes, sh-base-mode, sh-mode, bash-ts-mode.
+
+ The change I made: change sh-mode to sh-base-mode, remove docstring.
+ Below the new sh-base-mode, create a new definition for sh-mode, paste
+ the dostring, add setup for font-lock-defaults. Below sh-mode, add
+ bash-ts-mode.
+
+ * lisp/progmodes/sh-script.el (sh-mode): Moves all setup into
+ sh-base-mode, except for the setup for font-lock-defaults and the
+ docstring.
+ (sh-base-mode): New mode.
+ (bash-ts-mode): New mode.
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit_record_change in casify_region
+
+ This fixes bug#59455.
+
+ * src/casefiddle.c: Always record changes.
+
+2022-11-22 Theodor Thornhill <theo@thornhill.no>
+
+ Tweak faces in Java and TypeScript
+
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--operators): Remove @
+ as an operator.
+
+ (java-ts-mode--font-lock-settings): Use constant-face for @ to match
+ rest of the annotation. Add bracket, delimiter and use some of the
+ new faces.
+
+ (java-ts-mode--imenu): Clean up the implementation a little.
+
+ (java-ts-mode): Refer to the new features.
+
+ * lisp/progmodes/ts-mode.el (ts-mode--font-lock-settings, ts-mode):
+ Add in bracket and delimiter'.
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ treesit-font-lock-recompute-features now has two modes of operation
+
+ 1. Set activation of each feature (changes every feature)
+ 2. Add/remove features (only change those explicitly configured by
+ ADD-LIST and REMOVE-LIST)
+
+ This is useful for enabling/disabling certain features for all
+ modes (without resetting others) by calling this function in
+ prog-mode-hook
+
+ * lisp/treesit.el (treesit-font-lock-recompute-features): See above
+ description.
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ Tweak c-ts-mode fontification
+
+ New features: function and variable, which consistently fontify all
+ occurrences of functions and variables, respectively.
+
+ Remove expression feature, as its purpose is fulfilled by function,
+ variable, and property combined.
+
+ Fix declaration feature, remove unnecessary rule from label
+ feature.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): See
+ above description.
+ (c-ts-mode--fontify-variable): New function.
+ (c-ts-mode--base-mode): Add & remove features.
+
+2022-11-22 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-max-buffer-size): Enlarge value.
+
+2022-11-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't refer to deleted variable 'gnus-parameter-to-list-alist'
+
+ * doc/misc/gnus.texi (Group Parameters):
+ * lisp/gnus/message.el (message-recipients-without-full-name):
+ Don't refer to deleted variable 'gnus-parameter-to-list-alist'.
+
+2022-11-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Refresh menus in gnus.texi
+
+ Fixes problem reported by Po Lu <luangruo@yahoo.com>.
+ * doc/misc/gnus.texi (Top, Starting Up, Article Treatment)
+ (The Gnus Diary Library, Searching, nnmairix): Refresh menus.
+
+2022-11-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve wording and markup in gnus-faq.texi
+
+ * doc/misc/gnus-faq.texi (FAQ 2-4): Improve wording and markup.
+ (FAQ 2-1, FAQ 2-4, FAQ 2-5, FAQ 3 - Getting Messages, FAQ 3-1)
+ (FAQ 3-2, FAQ 3-2, FAQ 3-4, FAQ 4-1, FAQ 4-2, FAQ 4-3, FAQ 4-4)
+ (FAQ 4-8, FAQ 4-9, FAQ 4-10, FAQ 4-12, FAQ 5-1, FAQ 5-2)
+ (FAQ 5-7, FAQ 6-1, FAQ 6-2, FAQ 6-2, FAQ 6-3, FAQ 6-4, FAQ 6-5)
+ (FAQ 7-2, FAQ 7-3, FAQ 7-3, FAQ 7-4, FAQ 8-1, FAQ 8-5, FAQ 9-1):
+ Improve markup and reflow some paragraphs.
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Merge remote-tracking branch 'savannah/master' into feature/tree-sitter
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Allow major modes to tweak tree-sitter fontification
+
+ treesit--font-lock-query-expand-range allows a major mode to fix
+ fontification problems temporarily before the parser can be fixed.
+
+ * lisp/treesit.el (treesit--font-lock-query-expand-range): New variable.
+ (treesit-font-lock-fontify-region): Use the new variable.
+ * lisp/textmodes/css-mode.el (css-ts-mode): Use the new variable.
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Further tweak tree-sitter fontification heuristics
+
+ So it turns out the slowness observed in bug#59415 is not due to the
+ size, but the strangely tall tree. Adjust the heuristic to DTRT:
+ don't enable the heuristic by default or when buffer is large, enable
+ when query is abnormally slow. We could do some clever thing that
+ calibrates a base reading for the query time instead of using a
+ hard-coded value, but it doesn't seem necessary.
+
+ * lisp/treesit.el (treesit--font-lock-fast-mode): New variable.
+ (treesit-font-lock-fontify-region): Don't activate heuristic by
+ default (reasons in comments). Measure the query time and activate
+ the fast mode if query time is long.
+
+2022-11-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Activate direct asynchronous processes for Tramp container methods
+
+ * doc/misc/tramp.texi (Remote processes): Mention also
+ tramp-container.el.
+
+ * lisp/emacs-lisp/ert-x.el (ert-remote-temporary-file-directory):
+ Add `tramp-direct-async' to "mock" method.
+
+ * lisp/net/tramp-container.el
+ (tramp-methods) <docker, podman, kubernetes>: Add `tramp-direct-async'.
+
+ * lisp/net/tramp.el (tramp-methods): Adapt docstring.
+ (tramp-handle-make-process): Handle `tramp-direct-async'.
+
+ * test/lisp/net/tramp-tests.el (tramp-methods) <mock>:
+ Add `tramp-direct-async'.
+
+2022-11-21 Gregory Heytings <gregory@heytings.org>
+
+ Make sed invocation in Makefile POSIX-compliant
+
+ * Makefile.in: Add a semicolon before the closing brace, which is
+ required by POSIX. Fixes bug#59444.
+
+2022-11-21 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/forms.el (forms-mode): Prefer setq-local.
+
+2022-11-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Make instructions for updating ancient filesets obsolete
+
+ * lisp/filesets.el (filesets-update-pre010505): Make update
+ information for filesets older than 2001 obsolete. Note that this
+ dates back to before filesets.el was even added to Emacs.
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Use constant face for labels in c-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): Use
+ constant face for labels.
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Add separate keymaps for js/python/css-ts-mode
+
+ * lisp/progmodes/js.el (js-ts-mode-map)
+ * lisp/progmodes/python.el (python-ts-mode-map)
+ * lisp/textmodes/css-mode.el (css-ts-mode-map): New keymap.
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Tweak python-ts-mode fontification
+
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Make the
+ matching condition for docstrings more specific.
+
+2022-11-21 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter fontification heuristic
+
+ Previously applied heuristic 2 sometimes invalidates heuristic 1, add
+ a guard so it doesn't.
+
+ The new function is just for clearity of the code and has nothing to
+ do with the change itself.
+
+ * lisp/treesit.el (treesit--node-length): New function
+ (treesit-font-lock-fontify-region): Use the new function. Only do
+ heuristic 2 when the node is large.
+
+2022-11-21 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/woman.el (woman-mode-map): Prefer defvar-keymap.
+
+2022-11-21 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-search-function): New variable (bug#53981).
+
+ (outline-font-lock-keywords, outline-font-lock-face)
+ (outline-minor-mode-highlight-buffer, outline-next-preface)
+ (outline-next-heading, outline-previous-heading)
+ (outline-back-to-heading, outline-on-heading-p, outline-demote)
+ (outline-map-region, outline-next-visible-heading)
+ (outline-hide-sublevels, outline-up-heading): Use
outline-search-function
+ when it's non-nil as an alternative to searching outline-regexp.
+ (outline-search-level, outline-search-text-property): New functions.
+
+ * lisp/apropos.el (apropos-mode): Set outline-search-function
+ instead of unreliable outline-regexp.
+ (apropos-print): Add text property outline-level.
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc-display-group):
+ Add text property outline-level on text separate from final newlines.
+ (shortdoc-display-group): Add a narrow newline to not show
+ text properties of the final line when the outline is hidden.
+ (shortdoc--display-function): Add text property outline-level.
+ (shortdoc-mode): Set buffer-local outline-search-function and
outline-level.
+
+2022-11-21 Po Lu <luangruo@yahoo.com>
+
+ * src/treesit.c (treesit_load_language): Fix uninitialized uses.
+
+2022-11-21 Po Lu <luangruo@yahoo.com>
+
+ Avoid usage of intern_c_string in treesit.c
+
+ * src/treesit.c (Ftreesit_pattern_expand): Use DEFSYM'd symbols
+ when the naming makes sense.
+ (syms_of_treesit): Add new defsyms QCanchor, QCequal, QCmatch.
+
+2022-11-21 Po Lu <luangruo@yahoo.com>
+
+ Stylistic fixes to treesit.c
+
+ * src/treesit.c (treesit_make_ranges):
+ (Ftreesit_parser_set_included_ranges): Fix coding style.
+
+2022-11-21 Po Lu <luangruo@yahoo.com>
+
+ Fix MS-DOS build
+
+ * msdos/sed1v2.inp: Edit out tree-sitter stuff.
+
+2022-11-20 Yuan Fu <casouri@gmail.com>
+
+ Add another heuristic to speed up tree-sitter fontification
+
+ * lisp/treesit.el (treesit-font-lock-fontify-region): Use
+ treesit--children-covering-range to reduce the node size.
+
+2022-11-20 Yuan Fu <casouri@gmail.com>
+
+ Limit recursion level for tree-sitter imenu functions
+
+ Generating imenu index doesn't require going down to the bottom of the
+ tree (defun's are usually top-level). Add limit so we don't go too
+ far down on very large buffers.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--imenu)
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--imenu)
+ * lisp/progmodes/js.el (js--treesit-imenu)
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode--imenu)
+ * lisp/progmodes/python.el (python-imenu-treesit-create-index)
+ * lisp/textmodes/css-mode.el (css--treesit-imenu): Add limit to
+ treesit-induce-sparse-tree.
+
+2022-11-20 Yuan Fu <casouri@gmail.com>
+
+ Improve tree-sitter fontification on large buffers
+
+ * lisp/treesit.el (treesit--children-covering-range)
+ (treesit--children-covering-range-recurse): New functions. They are
+ not currently used but could be useful in the future, so I left them
+ in place.
+ (treesit-font-lock-fontify-region):
+ * lisp/treesit.el (treesit-font-lock-fontify-region): Use the result
+ of treesit-node-on instead of the root node.
+
+2022-11-20 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Delete eglot spinner; not useful
+
+ * lisp/progmodes/eglot.el (eglot-lsp-server): Delete slot spinner.
+ (eglot--mode-line-format): Don't include spinner in mode-line.
+ (eglot--signal-textDocument/didChange): Don't set spinner.
+
+2022-11-20 Juanma Barranquero <lekktu@gmail.com>
+
+ Avoid native compiler setting user-init-file to warnings.el (bug#59358)
+
+ * src/lread.c (maybe_swap_for_eln): Use a delayed warning
+ instead of `display-warning' to avoid a recursive call to
+ Fload while loading the init file that sets `user-init-file'
+ to a bogus value.
+
+2022-11-20 Juri Linkov <juri@linkov.net>
+
+ Rename 'elisp-eval-buffer' to 'elisp-eval-region-or-buffer' (bug#59350)
+
+ * lisp/progmodes/elisp-mode.el (elisp-eval-region-or-buffer):
+ Rename recently added command 'elisp-eval-buffer' to support active
region.
+ (emacs-lisp-mode-map, lisp-interaction-mode-map): Rebind 'C-c C-e'
+ from elisp-eval-buffer to elisp-eval-region-or-buffer.
+
+2022-11-20 Juri Linkov <juri@linkov.net>
+
+ Disable display-line-numbers-mode in string-pixel-width (bug#59311)
+
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width):
+ Turn off display-line-numbers-mode when it's enabled.
+
+2022-11-20 Michael Albinus <michael.albinus@gmx.de>
+
+ * doc/misc/Makefile.in (INFO_COMMON): Sort alphabetically.
+
+2022-11-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Rework tramp-archive autoloads
+
+ * lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-regexp):
+ Use `tramp-compat-rx'. Protect `tramp-archive-suffixes' and
+ `tramp-archive-compression-suffixes'.
+ (tramp-archive-file-name-handler): Don't autoload.
+ (tramp-register-archive-autoload-file-name-handler): Rename from
+ `tramp-register-archive-file-name-handler'. Adapt callees.
+
+2022-11-20 Po Lu <luangruo@yahoo.com>
+
+ Coalesce duplicate scroll valuator handling code
+
+ Also, write more commentary.
+
+ * src/xterm.c (xi_populate_scroll_valuator): New function.
+ Describe the meaning of each field in xi_scroll_valuator_t.
+ (xi_populate_device_from_info, xi_handle_new_classes): Factor
+ out duplicate code to that function.
+
+2022-11-20 Laurence Warne <laurencewarne@gmail.com>
+
+ Cancel proced auto update timer if no proced buffers are open
+
+ * lisp/proced.el (proced-auto-update-timer): Cancel timer if no proced
+ buffers are open.
+
+2022-11-20 Eli Zaretskii <eliz@gnu.org>
+
+ Advise against using too-high GC thresholds
+
+ * doc/lispref/internals.texi (Garbage Collection):
+ * src/alloc.c (syms_of_alloc) <gc-cons-threshold>
+ <gc-cons-percentage>: Advise against enlarging the GC thresholds
+ more than needed and for prolonged periods of time.
+
+2022-11-20 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Handle error in bookmark-relocate when filename is nil
+
+ * lisp/bookmark.el (bookmark-relocate): Handle error when
+ filename is nil. (Bug#59326)
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Fix uses of treesit-ready-p
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode)
+ (c++-ts-mode)
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode)
+ * lisp/progmodes/js.el (js-ts-mode)
+ * lisp/progmodes/json-ts-mode.el (json-ts-mode)
+ * lisp/progmodes/python.el (python-ts-mode)
+ * lisp/progmodes/sh-script.el (sh-mode)
+ * lisp/progmodes/ts-mode.el (ts-mode): Remove the MODE argument.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Remove treesit-settings
+
+ Remove it since we are using separate major modes for tree-sitter and
+ native variant now.
+
+ * doc/lispref/parsing.texi (Tree-sitter major modes): Update manual.
+ * lisp/treesit.el (treesit-settings): Remove option.
+ (treesit--setting-for-mode): Remove function.
+ (treesit-ready-p): Don't check for user preference in treesit-settings.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Remove tree-sitter setup from js-json-mode
+
+ * lisp/progmodes/js.el (js-json--treesit-font-lock-settings)
+ (js--json-treesit-indent-rules): Remove variables.
+ (js-json-mode): Remove tree-sitter setup.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter comment indentation for C-like languages
+
+ The goal is to indent like this:
+
+ /* comment
+ comment --> This line aligns with the beginning of the first line
+ */ --> This line aligns with the opening comment token
+
+ * lisp/treesit.el (treesit-comment-start)
+ (treesit-comment-end): New variables.
+ (treesit-simple-indent-presets): New preset comment-end,
+ comment-start, comment-start-skip
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--indent-styles)
+ (c-ts-mode)
+ * lisp/progmodes/java-ts-mode.el (java-ts-mode--indent-rules)
+ (java-ts-mode)
+ * lisp/progmodes/js.el (js--treesit-indent-rules)
+ (js-ts-mode)
+ * lisp/progmodes/ts-mode.el (ts-mode--indent-rules)
+ (ts-mode): Add identical indent rules to each mode, and set identical
+ treesit-comment-start/end's.
+
+ * doc/lispref/modes.texi (Parser-based Indentation)
+ * doc/lispref/parsing.texi (Tree-sitter major modes): Update manual.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Separate native and tree-sitter variant of js-mode
+
+ * lisp/progmodes/js.el (js-base-mode): New mode.
+ (js-mode): Return to before tree-sitter setup is added, change to
+ inherit from js-base-mode.
+ (js-ts-mode): New mode. Now it doesn't use any cc-mode feature,
+ meaning it looses comment filling.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Merge function/class-name features in python-mode
+
+ To keep consistency with other tree-sitter major modes.
+
+ * lisp/progmodes/python.el (python--treesit-settings)
+ (python-ts-mode): Merge function-name and class-name features into
+ definition.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Split python-mode into native and tree-sitter variant
+
+ * lisp/progmodes/python.el (python-base-mode): New virtual mode that
+ contains most of the setup.
+ (python-mode): Change to inherit from python-base-mode.
+ (python-ts-mode): New mode that sets up tree-sitter.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Expand css-ts-mode and merge it into css-mode
+
+ * lisp/progmodes/css-ts-mode.el: Deleted.
+ * lisp/textmodes/css-mode.el (css--treesit-indent-rules)
+ (css--treesit-settings): New variables.
+ (css--treesit-imenu-1)
+ (css--treesit-imenu): New functions.
+ * lisp/textmodes/css-mode.el (css-base-mode): New mode inherited by
+ both css-mode and css-ts-mode.
+ (css-ts-mode): New mode.
+ (css-mode): Inherit from css-base-mode, and move some setup to
+ css-base-mode.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Change tree-sitter indent preset 'match' to count on all nodes
+
+ I changed other presets to count all nodes a while ago, but forgot to
+ change 'match' too.
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Change to count on
+ both named and anonymous nodes.
+
+2022-11-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix encoding and display of messages sent by server to emacsclient
+
+ * lisp/server.el (server-start): Use 'locale-coding-system' to
+ encode messages sent back to the client.
+
+ * lib-src/emacsclient.c (main): Print '-error' messages via
+ 'message', not directly via 'fprintf'. This shows the error on
+ MS-Windows when the client is invoked as 'emacsclientw', since
+ stderr goes to the bit bucket in that case.
+
+2022-11-19 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Add BBDB test
+
+ * test/lisp/net/eudc-tests.el (eudcb-ldap): Call skip-unless with
+ slapd check.
+ (eudcb-bbdb): New test.
+
+2022-11-19 Gregory Heytings <gregory@heytings.org>
+
+ Fix global face scaling bug due to rounding.
+
+ * lisp/face-remap.el (global-text-scale-adjust): Try again if the face
+ height should have changed but did not actually change. Update the
+ docstring to clarify the difference with 'text-scale-adjust'.
+ (global-text-scale-adjust--increment-factor): New internal variable.
+ Fixes bug#59122.
+ (text-scale-adjust): Update the docstring to clarify the difference
+ with 'global-text-scale-adjust'.
+
+2022-11-19 Brent Westbrook <bwestbr2@go.olemiss.edu>
+
+ EUDC: Fix a void-variable error
+
+ * lisp/net/eudcb-mailabbrev.el (eudc-mailabbrev-query-internal):
+ Check if symbol is bound before taking its value. (Bug#59369)
+
+2022-11-19 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/emacs-lisp/package.el (package-maintainers): Improve error
handling
+
+2022-11-19 Mattias Engdegård <mattiase@acm.org>
+
+ * Makefile.in: Escape literal asterisks in regexps
+
+ Discovered by Po Lu.
+
+2022-11-19 Po Lu <luangruo@yahoo.com>
+
+ Fix error trapping in x_set_mouse_color
+
+ * src/xfns.c (x_set_mouse_color): Use
+ x_uncatch_errors_after_check right after x_had_errors_p. Then,
+ trap errors around FreeCursor requests, since some of the IDs
+ may not name valid cursors.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Use keyword-face for declaration commands in tree-sitter sh-mode
+
+ * lisp/progmodes/sh-script.el: Change builtin to keyword.
+
+2022-11-19 Yuan Fu <casouri@gmail.com>
+
+ Fix python-mode tree-sitter fontification
+
+ Forgot to update python-mode's code when I added the tree-sitter
+ notifier facility. Now it doesn't need any special treatment anymore.
+ Leaving it as is causes some incorrect fontification.
+
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Accept
+ the string node rather than the quote node.
+ (python--treesit-settings): Capture string node.
+
+2022-11-19 Po Lu <luangruo@yahoo.com>
+
+ Fixes to fast mouse position reporting
+
+ * src/xterm.c (x_fast_mouse_position): New function. Factor out
+ most of the fast mouse position code here. Correctly port some
+ Haiku code to take into account multiple displays. Report
+ scroll bar coordinates correctly.
+ (XTmouse_position): Call it.
+
+2022-11-19 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Add LDAP tests
+
+ * test/lisp/net/eudc-resources/slapd.conf: New file.
+ * test/lisp/net/eudc-resources/dc=gnu,dc=org.ldif: Likewise.
+ * test/lisp/net/eudc-resources/dc=gnu,dc=org: New files.
+ * test/lisp/net/eudc-tests.el (eudcb-ldap): New test.
+
+2022-11-19 Po Lu <luangruo@yahoo.com>
+
+ Fix automatic DPI adjustment and add workarounds for some systems
+
+ * lisp/faces.el (x-create-frame-with-faces): New field
+ `delayed-font'. Set the `font-parameter' property to `font' in
+ the given parameter list after face-set-after-frame-default is
+ called.
+ * src/fontset.c (Fset_fontset_font): Avoid changing
+ `font-parameter' with the call to Fmodify_frame_parameters.
+ * src/frame.c (gui_set_frame_parameters_1): New function.
+ Factor out gui_set_frame_parameters here, and add an argument
+ DEFAULT_PARAMETER. If the `font' parameter is set, and
+ `default_parameter' is not, then set the `font-parameter' frame
+ parameter to the `font' parameter as well, to keep track of
+ which user-specified `font' frame parameter set the default
+ face's font on the frame.
+ (gui_set_frame_parameters): Call gui_set_frame_parameters_1 with
+ new arg set to false.
+ (gui_set_font): Remove broken implementation of
+ `font-parameter'.
+ (gui_default_parameter): If the default value was used, then
+ call gui_set_frame_parameters_1 with the new argument set to
+ false. This is because no font was specified as a frame
+ parameter by the user, so Freconsider_frame_fonts is free to do
+ anything it wants.
+ (Freconsider_frame_fonts): If `font-parameter' is set, then use
+ it.
+ (syms_of_frame): New defsym Qfont_parameter.
+
+ * src/frame.h: Update prototypes.
+
+ * src/haikuterm.c (haiku_default_font_parameter):
+ * src/pgtkfns.c (pgtk_default_font_parameter):
+ * src/w32fns.c (w32_default_font_parameter): Stop setting
+ `font-parameter' here. This code resulted in decades of
+ automatic font rescaling not working correctly.
+
+ * src/xfaces.c (set_font_frame_param): Clear the
+ `font-parameter' frame parameter.
+ (Finternal_merge_in_global_face):
+ * src/xfns.c (x_default_font_parameter): Avoid changing
+ `font-parameter' in response to changes to face attributes.
+ * src/xsettings.c (apply_xft_settings): Add workaround for
+ Cairo. (bug#59371, bug#59347, bug#59283, bug#59271, bug#59285,
+ bug#59306.)
+
+2022-11-18 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#59371
+
+ * src/frame.c (Freconsider_frame_fonts): If a font parameter was
+ set, create a params alist with it. Then, pass it to both
+ default_font_parameter and face-set-after-frame-default.
+ (bug#59371)
+
+2022-11-18 Po Lu <luangruo@yahoo.com>
+
+ Fix earlier changes to keyboard.c
+
+ * src/keyboard.c (coords_in_menu_bar_window): New function.
+ (make_lispy_event): Do not process menu bar events on window
+ system frames if there is no menu bar window or the click lies
+ outside.
+
+2022-11-18 Po Lu <luangruo@yahoo.com>
+
+ Fix build with ext menu bar
+
+ * src/keyboard.c (make_lispy_event): Don't access
+ menu_bar_window when !HAVE_EXT_MENU_BAR.
+
+2022-11-18 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix click position to menu bar entry with no-toolkit
+
+ * src/keyboard.c (make_lispy_event): Use x_y_to_hpos_vpos to
+ compute correct menu bar position should the menu face change.
+ * src/xdisp.c (x_y_to_hpos_vpos): Not static anymore.
+ * src/dispextern.h: Export x_y_to_hpos_vpos.
+
+2022-11-18 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Revert eudc-server-hotlist default change
+
+ * etc/NEWS: Remove eudc-server-hotlist default change.
+ * lisp/net/eudc-vars.el (eudc-server-hotlist): Set to nil.
+ (Bug#59314)
+
+2022-11-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree: Make sure a deleted overlay has NULL pointer fields
+
+ * src/buffer.c (delete_all_overlays): Use POST_ORDER to set the node's
+ pointers to NULL, as god intended.
+
+ * src/itree.c (itree_insert_node): Uncomment the assertion accordingly.
+
+2022-11-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-dynamic-variable-bind): Typo
+
+2022-11-18 Robert Pluim <rpluim@gmail.com>
+
+ Improve 'defvar-keymap' docstring
+
+ * etc/NEWS: Improve ':repeat' entry for 'defvar-keymap'.
+ * lisp/keymap.el (defvar-keymap): Improve description of ':repeat'
+ keyword.
+
+2022-11-18 Robert Pluim <rpluim@gmail.com>
+
+ Silence rmailsum byte compiler warnings
+
+ * lisp/mail/rmailsum.el (rmail-summary-by-thread): Prefix unused
+ lambda args with '_'.
+
+2022-11-18 Robert Pluim <rpluim@gmail.com>
+
+ Use boolean values directly in rmailsum
+
+ * lisp/mail/rmailsum.el (rmail-summary-invert):
+ (rmail-summary-direct-descendants):
+ (rmail-summary--walk-thread-message-recursively):
+ (rmail-summary-by-thread):
+ (rmail-summary-by-labels):
+ (rmail-summary-by-recipients):
+ (rmail-summary-by-regexp):
+ (rmail-summary-by-topic):
+ (rmail-summary-by-senders): Use the boolean values in
+ 'rmail-summary-currently-displayed-msgs' and similar directly instead
+ of comparing them to t and nil.
+
+2022-11-18 Juanma Barranquero <lekktu@gmail.com>
+
+ Avoid `user-init-file' being set to an eln file (bug#59334)
+
+ * lisp/startup.el (startup--load-user-init-file): If possible,
+ point `user-init-file' to the source file if the init file was
+ native-compiled.
+
+2022-11-18 Mattias Engdegård <mattiase@acm.org>
+
+ Fix simple-tests when run noninteractively
+
+ * test/lisp/simple-tests.el
+ (simple-execute-extended-command--describe-binding-msg):
+ Bind text-quoting-style explicitly to ensure consistent behaviour
+ whether or not the test is run interactively.
+
+2022-11-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Avoid raw control characters in grm-wy-boot.el
+
+ * lisp/cedet/semantic/grm-wy-boot.el
+ (semantic-grammar-wy--parse-table): Don't use raw control characters.
+
+2022-11-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (describe-repeat-maps): More outlines and page
separators.
+
+2022-11-17 Po Lu <luangruo@yahoo.com>
+
+ Add knob to make `mouse-position' faster on X
+
+ * etc/PROBLEMS (Improving performance with slow X connections):
+ Add new advice.
+ * src/xterm.c (XTmouse_position): Add alternative
+ implementations for slow connections.
+ (syms_of_xterm): Add new variable to enable them.
+ * src/xterm.h (struct x_display_info): Update commentary.
+
+2022-11-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Get rid of the old iterator code
+
+ Only use the new iterator which relies on a fixed size (and small)
+ state in the iterator.
+ This makes non-local exits safe within ITREE_FOREACH loops.
+
+ * src/itree.c (make_nav, nav_nodeptr, nav_flag, itree_stack_clear)
+ (itree_stack_push_flagged): Delete functions.
+ (nodeptr_and_flag): Delete type.
+ (struct itree_stack): Make the array hold plain pointers instead.
+ (itree_stack_push): Inline the former code of
`itree_stack_push_flagged`.
+ (itree_stack_pop): Change return type.
+ (itree_contains): Don't call `ITREE_FOREACH_ABORT` any more.
+ (itree_insert_gap): Simplify access to the stack of nodes.
+ (itree_delete_gap, itree_insert_gap): Adjust code to new return type of
+ `itree_stack_pop`.
+ (itree_iterator_finish): Delete function.
+ (itree_iterator_start): Don't setup the `stack` field any more.
+ (itree_iterator_next): Delete function.
+ (itree_iter_next): Rename to `itree_iterator_next` and make it
non-static.
+ (itree_iterator_narrow): Don't check the `running` flag any more.
+
+ * src/itree.h (itree_iterator_finish): Remove declaration.
+ (struct itree_iterator): Remove the `stack` and `running` fields.
+ (ITREE_FOREACH_ABORT): Delete macro.
+ (ITREE_FOREACH): Don't call `itree_iterator_finish` any more.
+
+ * src/xdisp.c (strings_with_newlines):
+ * src/buffer.c (overlays_in, next_overlay_change, overlay_touches_p):
+ Don't call `ITREE_FOREACH_ABORT` any more.
+
+2022-11-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Make the iterator reentrant (bug#59183)
+
+ Get rid of the global iterator object and instead allocate
+ a separate iterator for every loop. This still uses the "duplicate
+ iterator" code, including the old iterator which needs a stack,
+ make ITREE_FOREACH a bit more expensive than we'd like.
+
+ * src/itree.h (init_itree, forget_itree, itree_iterator_busy_p):
+ Delete declarations.
+ (itree_iterator_start): Add iterator arg and remove `line` and `file`
args.
+ (struct itree_iterator): Move from `itree.c`. Remove `line` and
+ `file` fields.
+ (ITREE_FOREACH): Stack allocate an iterator object and pass it to
+ `itree_iterator_start`.
+
+ * src/itree.c (struct itree_iterator): Move to itree.h.
+ (iter): Delete global variable.
+ (itree_iterator_create, init_itree, forget_itree,
itree_iterator_busy_p):
+ Delete functions.
+ (itree_contains): Adjust assertion.
+ (itree_iterator_finish): Deallocate the iterator's stack.
+ (itree_iterator_start): Take the (uninitialized) iterator as argument.
+ Allocate a fresh new stack. Remove `file` and `line` arguments.
+ Don't check `running` any more since the iterator is not expected to be
+ initialized at all.
+
+ * src/eval.c (signal_or_quit):
+ * src/alloc.c (garbage_collect): Don't check `itree_iterator_busy_p`
+ any more.
+
+ * src/emacs.c (main): No need to `init_itree` any more.
+ (Fdump_emacs): No need to `forget_itree` any more.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/emacs-lisp/package-vc.el: Autoload package-vc-update{,-all}
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure 'package-vc-prepare-patch' runs in the right directory
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-prepare-patch): Bind
+ 'default-directory'.p
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Avoid duplicate source packages in 'package-alist'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack-1): Remove all
+ other source packages before installing the new package description.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix issues related to 'package-vc-install-from-checkout'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--main-file): Ensure the
+ package name is a string.
+ (package-vc--unpack-1): Use pkg-dir instead of the empty return value
+ of 'package-lisp-dir'.
+ (package-vc-install-from-checkout): Fix file name handling.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Allow the direct installation of package specifications
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install): Handle package
+ specifications as an argument.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Only fetch elpa-packages.eld when necessary
+
+ * lisp/emacs-lisp/package-vc.el: Remove hook from
+ 'package-refresh-contents-hook'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Remove duplicate package descriptions after updating
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack-1): Ensure there
+ is always just one instance of a package description in 'package-alist'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Remove temporary .texi files if used to build documentation
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--build-documentation):
+ Remember if a temporary file was generated and delete it afterwards.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix the behaviour of 'byte-compile-ignore-files'
+
+ * lisp/emacs-lisp/bytecomp.el (byte-recompile-directory): Negate the
+ 'string-match-p' check. (Bug#59139)
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Add missing elpa-package.eld to package test resources
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Avoid destructive manipulation of 'package-vc--archive-spec-alist'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--desc->spec): Replace
+ 'mapcar' with 'apply'. This is done to avoid unintentional cycles.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Improve robustness of 'package-vc-update'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-update): Ensure that the
+ command is only invoked with installed packages. that the hook is
+ always removed and that 'vc-pull' is always called in the right
+ directory.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/vc/vc.el (vc-default-last-change): Use 'vc-call'
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Have 'vc-prepare-patch' handle prefix arguments.
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-prepare-patch): Use
+ 'vc-prepare-patch-prompt-revisions'.
+ * lisp/vc/vc.el (vc-prepare-patch-prompt-revisions): Extract common
+ function and handle prefix arguments.
+ (vc-prepare-patch): Pull logic out to
+ 'vc-prepare-patch-prompt-revisions'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Explain that 'package-vc-install' doesn't remove tarball packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install): Expand
documentation.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Mention package name when package is lacking VC data
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install): Add package name.
+ (package-vc-checkout): Add package name.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Add new command 'package-vc-update-all'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-update-all): Add command
+ (package-vc-update): Add an assertion to verify this.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Raise 'wrong-type-argument' when installing package nil
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install): Check if the
+ package is nil.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Have 'package-vc-selected-packages' consider all installed packages
+
+ * lisp/emacs-lisp/package-vc.el
+ (package-vc-install-selected-packages): Consider more than just one
+ value in `package-alist', in case there are multiple installations.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix indefinite loading of asynchronous downloads
+
+ * lisp/emacs-lisp/package.el (package--download-one-archive): Only add
+ the archive that is actually being downloaded to
+ 'package--downloads-in-progress'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix edebug spec for 'package--with-response-buffer'
+
+ * lisp/emacs-lisp/package.el (package--with-response-buffer): Add a
+ spec that makes the macro debuggable.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Improve robustness of documentation generation
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--build-documentation): Log
+ output and display error messages if anything goes wrong.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Remove unused variable in 'package-vc--unpack'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack): Remove 'url'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Move package spec documentation to 'package-vc-selected-packages'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-selected-packages): Add
+ documentation.
+ (package-vc--archive-spec-alist): Remove documentation.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix type error in package-vc prompt function
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--read-package-name): Pass
+ (not allow-url) as REQUIRE-MATCH, not as INITIAL-INPUT.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Rename 'package-vc-refresh' to 'package-vc-rebuild'
+
+ * doc/emacs/package.texi (Fetching Package Sources): Update
documentation.
+ * lisp/emacs-lisp/package-vc.el (package-vc-refresh): Rename from.
+ (package-vc-rebuild): Rename to.
+
+ This intends to clarify the intention and avoid confusion with
+ 'package-refresh-contents'. Thanks to Rudolf Adamkovič for the
+ suggestion.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Track 'default-directory' while updating source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-update): Add the source
+ directory to the identifier list, in case the remaining
+ 'vc-do-command' arguments are all read-time constants.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Respect :lisp-dir in package specs by loading a sub-directory
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-repository-store): Remove
+ obsolete variable.
+ (package-vc--unpack-1): Respect :lisp-dir.
+ (package-vc--unpack): Add :lisp-dir to the package description if
+ necessary.
+ * lisp/emacs-lisp/package.el (package--delete-directory): Check if a
+ directory is a symbolic link.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix generation of documentation for source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--build-documentation):
+ Call "makeinfo" before "install-info"
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Remove references to internal symbols from public docstrings
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-repository-store):
+ Unmention 'package-vc--unpack'.
+ (package-vc-install): Unmention 'package-vc--guess-backend' in favour
+ of 'package-vc-heuristic-alist'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Expand 'package-vc--unpack-1' documentation
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--unpack-1): Explain what
+ the function does.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Clarify 'package-vc--build-documentation' docstring
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--build-documentation):
+ Rewrite the first line.
+
+ As suggested by Eli Zaretskii.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix the docstring for 'package-vc--version'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--version): Replace
+ docstring.
+
+ It seems like this was just copied over from 'package-vc-commit', for
+ no good reason.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Fix 'package-vc-selected-packages' documentation
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-selected-packages): Remove
+ reference to non-existent function and add an explanation that the
+ value won't override an existing source package installation.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Mark 'package-vc-update' as interactive
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--sourced-packages-list):
+ Remove function in favour of 'package-vc--read-package-name'.
+ (package-vc--read-package-name):
+ Extract out common functionality.
+ (package-vc--read-package-desc): Add auxiliary function based on
+ 'package-vc--read-package-name'.
+ (package-vc-update): Add interactive spec using
+ 'package-vc--read-package-desc'.
+ (package-vc-install): Use 'package-vc--read-package-desc'.
+ (package-vc-checkout): Use 'package-vc--read-package-desc'.
+ (package-vc--read-pkg): Remove in favour of
'package-vc--read-package-desc'.
+ (package-vc-refresh): Use 'package-vc--read-package-desc'.
+ (package-vc-prepare-patch): Use 'package-vc--read-package-desc'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Autoload 'package-vc-install-selected-packages'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-ensure-packages): Add an
+ autoload cookie.
+ (package-vc-selected-packages): Set
+ :initialize to 'custom-initialize-default'.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Mark 'package-vc-install-selected-packages' as interactive
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-ensure-packages): Add an
+ interactive spec.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Rename '-ensure-packages' to -install-selected-packages'
+
+ * doc/emacs/package.texi (Fetching Package Sources): Rename instances.
+ * lisp/emacs-lisp/package-vc.el (package-vc-ensure-packages): Rename
+ to 'package-vc-install-selected-packages'.
+ (package-vc-selected-packages): Call renamed function.
+
+2022-11-17 Philip Kaludercic <philipk@posteo.net>
+
+ Handle strings as keys in 'package-vc-ensure-packages'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-ensure-packages): Inter
+ sting keys while processing 'package-vc-selected-packages'.
+
+ As requested by Rudolf Adamkovič.
+
+2022-11-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Avoid raw control characters in two files
+
+ * lisp/net/rcirc.el (rcirc-format, rcirc-unformat)
+ (rcirc-format-bold, rcirc-format-italic, rcirc-format-underline)
+ (rcirc-format-strike-trough, rcirc-format-fixed-width):
+ * test/lisp/subr-tests.el (test-keymap-parse-macros): Don't use
+ raw control characters.
+
+2022-11-17 Randy Taylor <dev@rjt.dev>
+
+ Utilize new font-lock faces for C/C++ and Python tree-sitter use
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): Use new
+ escape, number, property, operator, bracket, and delimiter font-lock
+ faces.
+ (c-ts-mode--base-mode): Add them to the feature list.
+ (c-ts-mode): Fix typo.
+ * lisp/progmodes/python.el (python--treesit-settings): Use new number,
+ property, operator, bracket, and delimiter font-lock faces.
+ (python-mode): Add them to the feature list.
+
+2022-11-17 Yuan Fu <casouri@gmail.com>
+
+ Improvements to the tree-sitter setup in sh-script.el
+
+ * lisp/progmodes/sh-script.el (sh-mode--treesit-settings): Add defvar.
+ (sh-mode): Change feature names.
+ (sh-mode--treesit-fontify-decl-command): Remove function.
+ (sh-mode--treesit-declaration-commands): New variable.
+ (sh-mode--treesit-settings): Change feature names. Simplify
+ declaration-command feature.
+
+2022-11-17 João P. L. de Carvalho <jaopaulolc@gmail.com>
+
+ Initial fontification in sh-mode with tree-sitter
+
+ * lisp/progmodes/sh-script.el (sh-mode): Add tree-sitter setup. Move
+ setup of font-lock-defaults into branch.
+ (sh-mode--treesit-operators)
+ (sh-mode--treesit-keywords)
+ (sh-mode--treesit-settings): New variables.
+ (sh-mode--treesit-other-keywords)
+ (sh-mode--treesit-fontify-decl-command): New functions.
+
+2022-11-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (describe-repeat-maps): Use fill-region-as-paragraph.
+
+2022-11-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/package-requires
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1024
+
+2022-11-17 Robert Pluim <rpluim@gmail.com>
+
+ Use mapc instead of mapcar when walking rmail threads
+
+ * lisp/mail/rmailsum.el
(rmail-summary--walk-thread-message-recursively):
+ Use `mapc' instead of `mapcar'; we don't care about the results.
+
+2022-11-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Add new "stateless" iterator code and post-order traversal
+
+ This still uses the old iterator code, but runs the new code
+ alongside to make sure they behave identically.
+
+ * src/itree.c (struct itree_iterator): New field `node`.
+ (itree_iterator_create): Give it a sane default value.
+ (itree_iterator_busy_p, itree_iterator_start, itree_iterator_finish):
+ Move down to the "iterator" section of the file.
+ (itree_iter_next_in_subtree, itree_iterator_first_node)
+ (itree_iter_next): New functions.
+ (itree_iterator_start): Initialize the new `node` field.
+ (itree_iterator_next): Add post-order case.
+ Call the new "stateless" `itree_iter_next` function and check that it
+ agrees.
+
+ * src/itree.h (enum itree_order): New value for post-order traversals.
+
+2022-11-17 Andrea Monaco <andrea.monaco@autistici.org>
+
+ New Rmail summary "by thread"
+
+ * lisp/mail/rmailsum.el (rmail-summary-subjects-hash-table)
+ (rmail-summary-message-parents-vector)
+ (rmail-summary-message-ids-hash-table): New variables.
+ (rmail-summary-fill-message-ids-hash-table)
+ (rmail-summary--split-header-field)
+ (rmail-summary-fill-message-parents-vector)
+ (rmail-summary-direct-descendants)
+ (rmail-summary--walk-thread-message-recursively)
+ (rmail-summary-by-thread): New functions.
+
+ * etc/NEWS: Announce the new Rmail features.
+
+2022-11-17 Andrea Monaco <andrea.monaco@autistici.org>
+
+ Improve progressive summaries in Rmail
+
+ * lisp/mail/rmailsum.el (rmail-summary-progressively-narrow):
+ Renamed from 'rmail-summary-apply-filters-consecutively'. Doc
+ fix.
+ (rmail-summary-invert): Renamed from 'rmail-summary-negate'. Doc
+ fix.
+ (rmail-summary-currently-displayed-msgs): Doc fix.
+ (rmail-summary--exists-1): New function.
+ (rmail-summary-by-labels, rmail-summary-by-recipients)
+ (rmail-summary-by-regexp, rmail-summary-by-topic)
+ (rmail-summary-by-senders): Call 'rmail-summary-exists' to verify
+ that the summary is usable.
+
+2022-11-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of recent treesit changes
+
+ * src/treesit.c (Ftreesit_parser_notifiers)
+ (Ftreesit_parser_add_notifier, Ftreesit_parser_remove_notifier):
+ Doc string fixes.
+
+ * doc/lispref/parsing.texi (Accessing Node Information): Fix
+ wording and punctuation.
+ (Using Parser): Improve indexing and wording.
+
+2022-11-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Add package keyword from finder-known-keywords
+
+ Fix Package-Requires for bind-{chord,key}.el
+
+2022-11-17 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Make implicit int types following specifiers fontify correctly
+
+ This fixes bug #59267. It applies to C Mode only, and refers to
constructs
+ like "register count;" which are implicitly of int type.
+
+ * lisp/progmodes/cc-engine.el (c-forward-type): Use the new regexp
+ c-maybe-typeless-specifier-re in place of
c-opt-type-modifier-prefix-key. Add
+ an extra arm to the main cond form to handle the construct, and another
to
+ handle "extern "C" foo_t my_foo;".
+ (c-forward-decl-or-cast-1): Adapt to handle the result no-id from
+ c-forward-type.
+
+ * lisp/progmodes/cc-langs.el (c-maybe-typeless-specifier-re): New lang
+ const/var.
+
+2022-11-17 Jan Stranik <jan@stranik.org>
+
+ Support multi-line C++11 strings in Ebrowse
+
+ * lib-src/ebrowse.c (yylex): Support C++11 multi-line strings.
+ (bug#58847)
+
+2022-11-17 Laurence Warne <laurencewarne@gmail.com>
+
+ Make VSIZE and RSS human-readable in Proced buffers
+
+ * lisp/proced.el (proced-format-memory): New function.
+ (proced-grammar-alist): Use proced-format-memory to format
+ VSIZE and RSS. (Bug#59272)
+
+2022-11-17 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Remove Intelephense.
+
+2022-11-17 USAMI Kenta <zonuexe+tadsan@zonu.me>
+
+ Add Eglot alternatives for PHP language servers
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add alternatives
+ for PHP.
+
+2022-11-17 Olivier Certner <olce.emacs@certner.fr>
+
+ ediff: Merges with ancestor: Fix computation of hunks and proposed merge
+
+ Hunks were not computed correctly because the diff3 command was
+ invoked with arguments in an incorrect order. The correct order is
+ the local file first, the base (or "ancestor") second and the other
+ file third. This erroneous behavior had two consequences. First, the
+ output of diff3 would change, since it tries to merge chunks according
+ to maximal matches between the second and first files, and the second
+ and third files. Second, ediff, more precisely, `ediff-do-merge',
+ would consequently try to merge the reverse of the changes from the
+ base to the other file.
+
+ * lisp/vc/ediff-diff.el (ediff-setup-diff-regions3): In the arguments
+ to `ediff-exec-process', swap the other file with the ancestor (only
+ when merging with an ancestor).
+
+ (ediff-extract-diffs3): Match the hunk data for the ancestor and the
+ other file correctly. The local variable `three-way-comp' indicates
+ this is a merge with ancestors when it is nil.
+
+ (Bug#59182)
+
+2022-11-17 Brian Leung <leungbk@posteo.net>
+
+ shell: Add repeat-map for shell-{forward,backward}-prompt
+
+ * lisp/shell.el (shell-repeat-map): New defvar. (Bug#59144)
+
+2022-11-17 Brian Leung <leungbk@posteo.net>
+
+ esh-mode: Add repeat-map for eshell-{forward,backward}-argument
+
+ * lisp/eshell/esh-mode.el (eshell-command-repeat-map): New defvar.
+ (Bug#59144)
+
+2022-11-17 Brian Leung <leungbk@posteo.net>
+
+ em-prompt: Add repeat-map for eshell-{next,previous}-prompt
+
+ * lisp/eshell/em-prompt.el (eshell-prompt-repeat-map): New keymap.
+ (Bug#59144)
+
+2022-11-17 Brian Leung <leungbk@posteo.net>
+
+ comint: Add repeat-map for comint-{next,previous}-prompt
+
+ * lisp/comint.el (comint-repeat-map): New keymap. (Bug#59144)
+
+2022-11-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of mode line when the right divider is used
+
+ * src/xdisp.c (init_iterator): For the mode-line, adjust
+ last_visible_x due to the right divider and the 'box' attribute,
+ if any, of the mode-line face.
+ (display_min_width): Update current_x after producing the stretch
+ glyph, to mimic PRODUCE_GLYPHS.
+ (display_mode_line): Widen the last glyph to account for adding
+ the right box line to it. (Bug#5930)
+
+2022-11-17 Juanma Barranquero <lekktu@gmail.com>
+
+ * lisp/emacs-lisp/shortdoc.el (sequence): Don't use cl-lib (bug#59319)
+
+2022-11-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 0636e1066b ; Don't unnecessarily use non-ASCII characters in Texinfo
+
+ # Conflicts:
+ # doc/emacs/custom.texi
+
+2022-11-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in window.el
+
+ * lisp/window.el (other-window-repeat-map)
+ (resize-window-repeat-map): Prefer defvar-keymap.
+
+2022-11-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/keymap.el (defvar-keymap): Don't use pcase.
+
+2022-11-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/keymap.el (defvar-keymap): Add support for repeat-mode.
+
+ Put symbol properties 'repeat-map' on commands from the keymap
+ when a ':repeat' keyword is non-nil. Also include/exclude commands
+ according to ':repeat (:enter (commands ...) :exit (commands ...))'.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-11/msg00968.html
+
+2022-11-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (describe-repeat-maps): Improve the output.
+
+ Print the table of keybindings and a list of commands that
+ enter and exit repeat-map. Use default outline headings.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-11/msg00969.html
+
+2022-11-17 Po Lu <luangruo@yahoo.com>
+
+ Fix treatment of input focus on MPX setups
+
+ * src/xterm.c (x_ewmh_activate_frame): Use x_set_input_focus
+ instead of XSetInputFocus.
+ (x_set_input_focus): New function. Take into account the
+ ``client pointer'' chosen by Emacs.
+ (x_focus_frame): Use x_set_input_focus instead of
+ XSetInputFocus.
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Improve new connections in erc-handle-irc-url
+
+ * doc/misc/erc.texi: Add new Integrations section to the info manual
+ under Advanced Usage.
+ * etc/ERC-NEWS: Add new section mentioning improved UX when clicking
+ on irc:// links.
+
+ * lisp/erc/erc.el (erc-handle-irc-url): Add optional "scheme"
+ parameter. Fix `erc-open' invocation so that the server buffer is
+ named correctly by deferring to a new customizable opener. Arrange
+ for JOINing a channel in a manner similar to ERC's autojoin module.
+ (erc-url-connect-function): Add new option for creating a new ERC
+ connection based on info parsed from a URL.
+ (erc--url-default-connect-function): New function to serve as an
+ interactive-only fallback when a user hasn't specified a URL connect
+ function.
+ * lisp/erc/erc-compat.el (erc-compat--29-browse-url--irc): Add new
+ compatibility function for `browse-url-irc' and include it in
+ `browse-url-default-handlers' on Emacs versions below 29.
+
+ * test/lisp/erc/erc-tests.el (erc-tests--make-server-buf,
+ erc-tests--make-client-buf): Add helpers for creating dummy ERC
+ buffers.
+ (erc-handle-irc-url): Add test.
+ * test/lisp/erc/erc-scenarios-misc.el (erc-scenarios-handle-irc-url):
+ Add new test.
+ * test/lisp/erc/resources/join/legacy/foonet.eld: Relax
+ timeout. (Bug#56514.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Add optional server param to erc-networks--determine
+
+ * lisp/erc/erc-networks.el (erc-networks--determine): Accept optional
+ `server' argument.
+ * test/lisp/erc/erc-networks-tests.el (erc-networks--determine): Add
+ test. (Bug#56514.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Default to TLS port when calling erc-tls from lisp
+
+ * lisp/erc/erc.el (erc-normalize-port): Add standard IANA port-name
+ mappings for 6667 and 6697.
+ (erc-open): Add note to doc string explaining that params `connect'
+ and `channel' are mutually exclusive.
+ (erc-tls): Call `erc-compute-port' with override.
+ (erc-compute-port): Call `erc-normalize-port' with result'.
+ * test/lisp/erc/erc-tests.el (erc-tls): Add simplistic test focusing
+ on default parameters. (Bug#56514.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Refactor erc-select-read-args
+
+ * lisp/erc/erc-backend.el (erc--server-connect-dumb-ipv6-regexp): Add
+ liberal pattern for matching bracketed IPv6 addresses.
+ (erc-server-connect): Remove brackets from IPv6 hosts before
+ connecting.
+ * lisp/erc/erc.el (erc--ensure-url): Add compat adapter to massage
+ partial URLs given as input that may be missing the scheme:// portion.
+ (erc-select-read-args): Keep bracketed IPv6 hosts
+ intact. Make this function fully URL-aware (was only partially so).
+ Accept optional `input' argument.
+ * lisp/erc/erc-tests.el (erc-tests--ipv6-examples,
+ erc--server-connect-dumb-ipv6-regexp, erc-select-read-args): Add test
+ reading user input during interactive invocations of entry points.
+ (Bug#56514.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Accommodate ircs:// URLs in url-irc and browse-url
+
+ * lisp/url/url-irc.el (url-irc-function): Change signature of function
+ interface to expect a final "scheme" argument, such as "ircs".
+ (url-irc): Call `url-irc-function' with new positional argument, the
+ scheme extracted via `url-type' from the input URL.
+ (url-irc-erc, url-irc-rcirc, url-irc-zenirc): Accept a URL scheme as a
+ sixth positional arg.
+ (url-ircs-default-port, url-ircs): Add new autoloaded constant and
+ alias for `url-scheme-get-property' to recognize. Do this to avoid
+ having to add another file.
+ * lisp/net/browse-url.el (browse-url-irc-function): Add new option.
+ (browse-url--irc): Add new function to call `browse-url-irc-function'.
+ (browse-url-default-handlers): Add "irc://" entry.
+ (browse-url-irc): Add new function to serve as general handler for
+ "irc://" URLS. Accept trailing variadic args to accommodate
+ non-browse-url interfaces as well.
+ * test/lisp/net/browse-url-tests.el
+ (browse-url-tests-select-handler-irc): Add test for "irc://" URL
+ pattern.
+ * etc/NEWS: Mention select browse-url and url-irc
+ changes. (Bug#56514.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Warn of future breaking change to erc-response.tags
+
+ * lisp/erc/erc-backend.el (erc-parse-tags-format): New option to
+ determine type of the `erc-response' "tags" field.
+ (erc-parse-tags): Defer to internal generic function.
+ (erc--parse-tags): New function to hold original `erc-parse-tags'
+ implementation.
+ (erc--parse-message-tags): New generic function that conditionally
+ calls `erc--parse-tags', perhaps emitting a warning beforehand.
+ (erc-parse-server-response): Call `erc--parse-message-tags'.
+ (Bug#58797.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Improve auto-reconnect visibility in ERC
+
+ * lisp/erc/erc-backend.el (erc--server-reconnect-timer): New variable.
+ (erc-server-reconnect-function): New user option.
+ (erc-process-sentinel-2): Display time remaining until next
+ reconnection attempt. Also remove condition case and move bulk of
+ else condition logic to `erc-schedule-reconnect'. More importantly,
+ no longer set `erc--server-reconnecting here').
+ (erc-server-connect): Initialize `erc--server-reconnect-timer' to nil.
+ (erc-server-reconnect): Set `erc-server--reconnecting' here.
+ (erc--mode-line-process-reconnecting): New constant to store value for
+ "reconnect" state of `mode-line-process'.
+ (erc--cancel-auto-reconnect-timer): New function to cancel
+ auto-reconnect timer and print message.
+ (erc-schedule-reconnect): New function for scheduling another
+ reconnect attempt.
+
+ * lisp/erc/erc.el (erc-open): Only update mode line for target
+ buffers. For server buffers, let `erc-login' and/or process sentinels
+ take care of it.
+ (erc--cmd-reconnect, erc-cmd-RECONNECT): Rename latter to former, a
+ new function, but repurpose existing to recognize newly allowed
+ additional arguments and act accordingly. In new internal function,
+ cancel an existing auto-reconnect timer, if any, before proceeding.
+ Defer to `erc-server-reconnect' to set `erc--server-reconnecting'.
+ Fix `with-suppressed-warnings' form.
+ (erc-update-mode-line-buffer): Show "reconnecting in Ns" for
+ `mode-line-process' when awaiting an automatic reconnect attempt.
+ (erc-message-english-reconnecting,
+ erc-message-english-reconnect-canceled): Add new message functions to
+ English catalog.
+
+ * lisp/erc/erc-pcomplete.el (pcomplete/erc-mode/RECONNECT): Perform
+ completion for newly subcommand-aware `erc-cmd-RECONNECT'.
+
+ * lisp/erc/erc-scenarios-base-reconnect.el
+ (erc-scenarios-base-cancel-reconnect): Add new test case for canceling
+ reconnect timers. (Bug#58840.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Support auth-source-pass in ERC
+
+ * doc/misc/erc.texi: Mention that the auth-source-pass backend is
+ supported.
+ * lisp/erc/erc-compat.el (erc-compat--29-auth-source-pass-search,
+ erc-compat--29-auth-source-pass--build-result-many,
+ erc-compat--29-auth-source-pass--retrieve-parsed,
+ erc-compat--29-auth-source-pass-backend-parse,
+ erc-compat--auth-source-backend-parser-functions): Adapt some yet
+ unreleased functions from auth-source-pass that mimic the netrc
+ backend, and add forward declarations to support them.
+
+ * lisp/erc/erc.el (erc--auth-source-search): Use own auth-source-pass
+ erc-compat backend.
+ * test/lisp/erc/erc-services-tests.el
+ (erc-join-tests--auth-source-pass-entries): Remove useless items.
+ (erc--auth-source-search--pass-standard,
+ erc--auth-source-search--pass-announced,
+ erc--auth-source-search--pass-overrides): Remove `ert-skip' guard.
+ (Bug#58985.)
+
+2022-11-17 F. Jason Park <jp@neverwas.me>
+
+ Make auth-source-pass behave more like other backends
+
+ * lisp/auth-source-pass.el (auth-source-pass-extra-query-keywords): Add
+ new option to bring search behavior more in line with other backends.
+ (auth-source-pass-search): Add new keyword params `max' and `require'
+ and consider new option `auth-source-pass-extra-query-keywords' for
+ dispatch.
+ (auth-source-pass--match-regexp, auth-source-pass--retrieve-parsed,
+ auth-source-pass--match-parts): Add supporting variable and helpers.
+ (auth-source-pass--build-result-many,
+ auth-source-pass--find-match-many): Add "-many" variants for existing
+ workhorse functions.
+ * test/lisp/auth-source-pass-tests.el: Require `ert-x'.
+ (auth-source-pass-can-start-from-auth-source-search): Ensure
+ `auth-source-pass-extra-query-keywords' is enabled around test body.
+ (auth-source-pass-extra-query-keywords--wild-port-miss-netrc,
+ auth-source-pass-extra-query-keywords--wild-port-miss,
+ auth-source-pass-extra-query-keywords--wild-port-hit-netrc,
+ auth-source-pass-extra-query-keywords--wild-port-hit,
+ auth-source-pass-extra-query-keywords--wild-port-req-miss-netrc,
+ auth-source-pass-extra-query-keywords--wild-port-req-miss,
+ auth-source-pass-extra-query-keywords--netrc-akib,
+ auth-source-pass-extra-query-keywords--akib,
+ auth-source-pass-extra-query-keywords--netrc-host,
+ auth-source-pass-extra-query-keywords--host,
+ auth-source-pass-extra-query-keywords--baseline,
+ auth-source-pass-extra-query-keywords--port-type,
+ auth-source-pass-extra-query-keywords--hosts-first,
+ auth-source-pass-extra-query-keywords--ambiguous-user-host,
+ auth-source-pass-extra-query-keywords--suffixed-user,
+ auth-source-pass-extra-query-keywords--user-priorities): Add
+ juxtaposed netrc and extra-query-keywords pairs to demo optional
+ extra-compliant behavior.
+ * doc/misc/auth.texi: Add option
+ `auth-source-pass-extra-query-keywords' to auth-source-pass section.
+ * etc/NEWS: Mention `auth-source-pass-extra-query-keywords' in Emacs
+ 29.1 package changes section. (Bug#58985.)
+
+ Special thanks to Akib Azmain Turja <akib@disroot.org> for helping
+ improve this patch.
+
+2022-11-17 Jim Porter <jporterbugs@gmail.com>
+
+ Enable/disable 'server-mode' when starting/stopping the server
+
+ * lisp/server.el (server-mode-map): New keymap...
+ (server-mode): ... use it.
+ (server-start): Update the 'server-mode' variable (and sync to
+ 'global-minor-modes') when starting/stopping the server.
+
+ * test/lisp/server-tests.el: New file (bug#58909).
+
+2022-11-16 Karl Fogel <kfogel@red-bean.com>
+
+ Fix two typos in a doc string
+
+2022-11-16 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Fix eudc-capf-message-expand-name nil result
+
+ * lisp/net/eudc-capf.el (eudc-capf-message-expand-name): Return
+ nil if EUDC query returns no results. (Bug#59314)
+
+2022-11-16 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-search-forward not matching leaf nodes
+
+ * src/treesit.c: Match against NODE at start of the loop.
+
+2022-11-16 Yuan Fu <casouri@gmail.com>
+
+ Tweaks on c-ts-mode fontification rules
+
+ Changes:
+ 1. Remove some :override flags
+ 2. Fontify "!" in font-lock-negation-char-face
+ 3. Use some new faces like font-lock-escape-face and
+ font-lock-property-face
+ 4. Move all type fontification into 'type' feature. Previously some
+ are in 'definition' feature.
+ 5. Simplify definition feature, and fontify identifiers in definitions
+ recursively.
+ 6. Change 'statement' feature to 'label'
+ 7. New feature 'assignment'
+ 8. Remove some rules from 'expression' feature
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings): See
+ above.
+ (c-ts-mode--fontify-declarator): New function.
+ (c-ts-mode): Update feature-list.
+
+2022-11-16 Yuan Fu <casouri@gmail.com>
+
+ Fix c-ts-mode-imenu
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--imenu-1): If cannot find
+ its name, ignore the node.
+ (c-ts-mode--imenu): Don't include a category if it's empty.
+
+2022-11-16 Yuan Fu <casouri@gmail.com>
+
+ Allow checking for outdated nodes in tree-sitter
+
+ Now you can run (treesit-node-check node 'outdated).
+
+ * doc/lispref/parsing.texi (Accessing Node Information): Update
+ manual.
+ * src/treesit.c (Ftreesit_node_check): Add new property 'outdated'.
+ * test/src/treesit-tests.el (treesit-node-check): Add tests.
+
+2022-11-16 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-explore-mode
+
+ This mode is basically the tree-sitter playground[1] in Emacs:
+ displays the syntax tree with the source side-by-side, kept in sync in
+ real-time.
+
+ [1] https://tree-sitter.github.io/tree-sitter/playground
+
+ * doc/lispref/parsing.texi (Language Definitions): Mention in manual.
+ * lisp/treesit.el (treesit--explorer-buffer)
+ (treesit--explorer-source-buffer)
+ (treesit--explorer-language)
+ (treesit--explorer-refresh-timer)
+ (treesit--explorer-highlight-overlay)
+ (treesit--explorer-last-node): New variables.
+ * lisp/treesit.el (treesit--explorer--nodes-to-highlight)
+ (treesit--explorer-refresh)
+ (treesit--explorer-post-command)
+ (treesit--explorer-jump)
+ (treesit--explorer-highlight-node)
+ (treesit--explorer-draw-node): New functions.
+ (treesit--explorer-tree-mode)
+ (treesit-explore-mode): New modes.
+
+2022-11-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/itree.c: Use more uniform names starting with `itree_`
+
+ (struct itree_stack, itree_stack_create, itree_stack_destroy)
+ (itree_stack_clear, itree_stack_push_flagged, interval_stack_push)
+ (itree_stack_pop): Rename from `interval_stack*`.
+ (itree_max_height, itree_update_limit, itree_inherit_offset)
+ (itree_propagate_limit, itree_validate, itree_init)
+ (itree_rotate_left, itree_rotate_right, itree_insert_fix)
+ (itree_contains, itree_subtree_min, itree_remove_fix)
+ (itree_replace_child, itree_transplant): Rename from `interval_tree_*`.
+ (itree_insert_node): Rename from `interval_tree_insert`.
+ (itree_node_intersects): Rename from `interval_node_insert`.
+
+2022-11-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/dir-locals
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1023
+
+2022-11-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/fix-headers
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1022
+
+2022-11-16 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Call xref--analyze with correct project
+
+ * lisp/progmodes/xref.el (xref-show-definitions-buffer-at-bottom):
+ Call xref--analyze with correct project.
+
+2022-11-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Add .dir-locals.el
+
+2022-11-16 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Add flat-button to docstring of 'set-face-attribute'
+
+ * lisp/faces.el (set-face-attribute): Add 'flat-button' to
+ COLOR and STYLE sections of docstring. (Bug#59266)
+
+2022-11-16 Eli Zaretskii <eliz@gnu.org>
+
+ Reduce buffer-tests noisiness even more
+
+ * test/src/buffer-tests.el (test-kill-buffer-auto-save-default)
+ (test-kill-buffer-auto-save-delete-yes)
+ (test-kill-buffer-auto-save-delete-no)
+ (test-buffer-modifications, test-restore-buffer-modified-p): Shut
+ up auto-save messages. (Bug#59028)
+
+2022-11-16 Matt Armstrong <matt@rfc20.org>
+
+ Reduce buffer-tests noisiness when run in batch mode.
+
+ * test/src/buffer-tests.el (overlay-modification-hooks): Remove noisy
+ `message' calls and use `ert-info' to log context of test
+ failures. (bug#59028)
+ (overlay-tests-start-recording-modification-hooks): ditto.
+
+2022-11-16 Philip Kaludercic <philipk@posteo.net>
+
+ Set vc-prepare-patches-separately to nil in .dir-locals.el
+
+ * .dir-locals.el (c-mode): Set 'vc-prepare-patches-separately'.
+
+ See
https://lists.gnu.org/archive/html/emacs-devel/2022-11/msg00973.html.
+
+2022-11-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete redundant headers
+
+ Normalize GPLv3 license statements
+
+2022-11-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 56026242e4 Explain how to bind keys to non-ASCII sequences
+ 7d592db0ab Document that 'transient-mark-mode' is off in batch mode
+
+ # Conflicts:
+ # doc/emacs/custom.texi
+ # doc/emacs/mark.texi
+
+2022-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix calculation of tab bar lines during automatic height adjustment
+
+ * src/haikufns.c (haiku_change_tab_bar_height):
+ * src/nsfns.m (ns_change_tab_bar_height):
+ * src/pgtkfns.c (pgtk_change_tab_bar_height):
+ * src/w32fns.c (w32_change_tab_bar_height):
+ * src/xfns.c (x_change_tab_bar_height): Do not round tab bar
+ height up. (bug#59285, bug#59271)
+
+2022-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix error trapping in x_focus_frame
+
+ * src/xterm.c (x_focus_frame): Improve commentary. Dno not trap
+ errors around x_get_server_time.
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jwiegley/revert-1019-johnw/multi-keymap
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1021
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Revert "Allow multiple keymaps in :map argument"
+
+2022-11-15 Juri Linkov <juri@linkov.net>
+
+ New command 'project-list-buffers' bound to 'C-x p C-b' (bug#59153)
+
+ * doc/emacs/maintaining.texi (Project Buffer Commands):
+ Add 'project-list-buffers'.
+
+ * lisp/buff-menu.el (Buffer-menu-filter-predicate): New defvar-local.
+ (list-buffers-noselect): Add new optional arg 'filter-predicate'.
+ Set 'Buffer-menu-filter-predicate' to 'filter-predicate'.
+ (list-buffers--refresh): Use 'Buffer-menu-filter-predicate'.
+
+ * lisp/progmodes/project.el (project-prefix-map): Bind "\C-b" to
+ 'project-list-buffers'.
+ (project-list-buffers): New command.
+
+2022-11-15 Yuan Fu <casouri@gmail.com>
+
+ Add emacs-devel-specific font-lock rules to c-ts-mode
+
+ This rule corrects the fontification for DEFUN macros.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--font-lock-settings):
+ Additional font-lock rules.
+ (c-ts-mode--fontify-defun): New function.
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jwiegley/johnw/multi-keymap
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1019
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Merge remote-tracking branch 'origin/master' into pr-830
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/texinfo-wip
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1018
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Merge branch 'master' into texinfo-wip
+
+2022-11-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/gnu-elpa
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1017
+
+2022-11-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the MS-Windows build due to use of a new TS function
+
+ * src/treesit.c (ts_tree_get_changed_ranges) [WINDOWSNT]: Define,
+ load from the library, and call through a function pointer.
+
+2022-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix last change again
+
+ * src/frame.c (Freconsider_frame_fonts): Apply value of default
+ face again. (bug#59283)
+
+2022-11-15 Po Lu <luangruo@yahoo.com>
+
+ More fixes to last change
+
+ * lisp/dynamic-setting.el (font-setting-change-default-font):
+ Call `reconsider-frame-fonts'.
+ * src/frame.c (Freconsider_frame_fonts): New function.
+ (syms_of_frame): Add new function.
+
+2022-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix recent Cairo xsettings changes
+
+ * lisp/dynamic-setting.el (font-setting-change-default-font):
+ Instead of setting the font frame parameter, just clear the font
+ and face cache and redraw the display. This will re-open all
+ fonts as well.
+ * src/ftcrfont.c (ftcrfont_get_default_font_options): New
+ function.
+ * src/ftfont.h: Export.
+ * src/xsettings.c (apply_xft_settings): Call that function to
+ obtain the default font settings on Cairo. (bug#58912,
+ bug#59283, bug#59271)
+
+2022-11-15 Yuan Fu <casouri@gmail.com>
+
+ Make tree-sitter fontification automatically update
+
+ Now nodes that are affected and changed during re-parse will be
+ correctly refontified. Nodes can change even if it corresponding text
+ wasn't edited: additional text can complete the parse tree and resolve
+ error nodes, for example.
+
+ * lisp/progmodes/python.el (python-mode): Create Python parser before
+ calling treesit-major-mode-setup.
+ * lisp/treesit.el (treesit--font-lock-notifier): New function.
+ (treesit-major-mode-setup): Register fontifier with every existing
+ parser.
+
+2022-11-15 Yuan Fu <casouri@gmail.com>
+
+ Remove the contextual hack in tree-sitter fontification
+
+ We now have a better facility that can replace the contextual
+ hack. The C part is in the previous commit, and the Lisp part work
+ will be in the next commit.
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Update manual.
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings)
+ * lisp/progmodes/python.el (python--treesit-settings)
+ * lisp/progmodes/ts-mode.el (ts-mode--font-lock-settings): Stop marking
+ contextual nodes.
+ * lisp/treesit.el (treesit-font-lock-contextual-post-process): Remove
+ function.
+ (treesit-font-lock-fontify-region): Remove code processing contextual
+ nodes.
+
+2022-11-15 Yuan Fu <casouri@gmail.com>
+
+ Allow tree-sitter to notify parse-tree changes
+
+ * src/treesit.c (treesit_call_after_change_functions): New function.
+ (treesit_ensure_parsed): Call treesit_call_after_change_functions
+ right after re-parse.
+ (make_treesit_parser): Initialize after_change_functions.
+ (Ftreesit_parser_notifiers)
+ (Ftreesit_parser_add_notifier)
+ (Ftreesit_parser_remove_notifier): New functions.
+ * src/treesit.h (Lisp_TS_Parser): New field after_change_functions.
+
+2022-11-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix makeinfo warnings
+
+ Resolves https://github.com/jwiegley/use-package/issues/962
+
+2022-11-15 Yuan Fu <casouri@gmail.com>
+
+ Extract out treesit_make_ranges
+
+ * src/treesit.c (treesit_make_ranges): New function.
+ (Ftreesit_parser_included_ranges): Use treesit_make_ranges.
+
+2022-11-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Use two spaces to end sentences
+
+ Recommend GNU ELPA over MELPA
+
+2022-11-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Use substitute-command-keys for buffer-menu help
+
+ * lisp/buff-menu.el (buffer-menu--display-help): New function.
+ (buffer-menu, buffer-menu-other-window): Fontify key bindings
+ using substitute-command-keys.
+ (Buffer-menu-delete): Advertise key binding as 'd'.
+ (Buffer-menu-this-window): Advertise key binding as 'f'.
+
+2022-11-15 Stefan Kangas <stefankangas@gmail.com>
+
+ manual: Regenerate texi file
+
+2022-11-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Add face to key bindings suggested by M-x
+
+ * lisp/simple.el (execute-extended-command--describe-binding-msg):
+ Use 'help-key-binding' face for keybinding.
+
+2022-11-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/checkdoc
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1015
+
+2022-11-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/ci
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1013
+
+2022-11-14 Yuan Fu <casouri@gmail.com>
+
+ Don't highlight syntax error in c-ts-mode
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--base-mode): Remove error
+ feature.
+
+2022-11-14 Robert Pluim <rpluim@gmail.com>
+
+ Explain how to bind keys to non-ASCII sequences
+
+ * doc/emacs/custom.texi (Init Rebinding): Explain how to use `kbd'
+ when binding keys to non-ASCII sequences.
+
+2022-11-14 Po Lu <luangruo@yahoo.com>
+
+ Make C-x 5 o work on GNOME Shell-like Wayland compositors
+
+ * src/pgtkterm.c (pgtk_free_frame_resources)
+ (fill_background_by_face)
+ (pgtk_draw_glyphless_glyph_string_foreground)
+ (pgtk_draw_window_cursor): Fix coding style.
+ (pgtk_focus_frame): Use gtk_window_present_with_time whenever
+ possible.
+ (key_press_event): Set the last user time.
+ (pgtk_display_info_for_display): New function.
+ (key_release_event, construct_mouse_click, button_event): Set
+ the last user time.
+ (scroll_event, pgtk_parse_color, syms_of_pgtkterm)
+ (pgtk_begin_cr_clip): Fix coding style.
+ * src/pgtkterm.h (struct pgtk_output): New field
+ `last_user_time'.
+
+2022-11-14 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Prevent over-eager recognition of a variable as a found type
+
+ This fixes bug #59233. It occurred in the C source code fragment
+
+ open_replies = alloca (nproviders )
+
+ , where typing a * before the closing parenthesis caused nproviders to
be
+ prematurely recognized as a type.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): CASE 18 - set
+ unsafe-maybe to t, when needed.
+
+2022-11-14 Theodor Thornhill <theo@thornhill.no>
+
+ Fix some inconsistencies in *-ts-modes
+
+ (c-ts-mode--base-mode): Extract comment-* so that we can separate
+ between C and C++.
+ (c-ts-mode, c++-ts-mode): Set comment-* variables.
+
+ * lisp/progmodes/css-ts-mode.el (css-ts-mode): Add electric-indent.
+
+ * lisp/progmodes/java-ts-mode.el
+ (java-ts-mode--imenu): Add categories. Only display categories that
+ exist in the file.
+ (java-ts-mode): Add electric-indent.
+
+ * lisp/progmodes/json-ts-mode.el
+ (json-ts-mode): Add electric-indent.
+
+ * lisp/progmodes/ts-mode.el
+ (ts-mode--font-lock-settings): Whitespace cleanup.
+ (ts-mode): Add electric-indent.
+
+2022-11-14 Yuan Fu <casouri@gmail.com>
+
+ Remove feature that checks whether tree-sitter node "has changes"
+
+ First of all, we signal error on using an outdated node, so if a node
+ has changes, calling treesit-node-check would only raise an error.
+ Besides, in order to properly answer whether a node has changed, we
+ would have to update the node as the buffer is edited, which we don't
+ do right now.
+
+ * doc/lispref/parsing.texi (Accessing Node Information): Remove
+ relevant manual text.
+ * src/treesit.c (Ftreesit_node_check): Remove docstring mentions,
+ remove the branch for "has-changes".
+ (syms_of_treesit): Remove has-changes.
+
+2022-11-14 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes upon trying to focus a child frame on click
+
+ * src/xterm.c (handle_one_xevent): Do not try to activate
+ override-redirect frames. Explain why.
+ (x_focus_frame): Catch errors around XSetInputFocus.
+
+2022-11-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Various checkdoc fixes
+
+2022-11-13 Dmitry Gutov <dgutov@yandex.ru>
+
+ Hardcode "-name" instead of using find-name-arg
+
+ * lisp/progmodes/project.el (project--files-in-directory):
+ Hardcode "-name" instead of using find-name-arg (bug#59023).
+
+2022-11-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from bhankas/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1011
+
+2022-11-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix building on Emacs 24.3
+
+ This fixes the following error:
+ use-package-core.el:60:32:Error: Cannot open load file: subr-x
+
+2022-11-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix tests on Emacs 26 or older
+
+ This fixes the following error in Emacs 25.3:
+
+ In toplevel form:
+ bind-key.el:549:1:Error: the function ‘mapcan’ is not known to be
defined.
+
+2022-11-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (set-message-functions): New user option.
+
+ (set-message-function): Change the default from
+ 'set-minibuffer-message' to 'set-message-functions'.
+ 'set-minibuffer-message' is set as the default value
+ of the user option 'set-message-functions'.
+ (set-message-functions): New function.
+ (inhibit-message-regexps): New customizable variable (bug#52314).
+ (inhibit-message): New function.
+ (multi-message-timeout, multi-message-max): New defcustoms.
+ (multi-message-separator, multi-message-list): New variables.
+ (set-multi-message): New function.
+
+2022-11-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix suggest-key-bindings displaying key as command
+
+ * lisp/simple.el (execute-extended-command--describe-binding-msg):
+ New function factored out from...
+ (execute-extended-command): ...here. Fix bug where a key binding was
+ displayed as a command with 'suggest-key-bindings'. (Bug#59247)
+ * test/lisp/simple-tests.el
+ (simple-execute-extended-command--describe-binding-msg): New test.
+
+2022-11-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: More improvements for tab-bar-auto-width (bug#59208)
+
+ (tab-bar-auto-width): Use add-face-text-property instead of propertize.
+ Prevent from going into infinite loops. More optimizations.
+ (tab-bar-format-align-right): Use add-face-text-property, not
propertize.
+
+2022-11-13 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Eglot: fix null scopeUri regression in workspace/configuration
+
+ * lisp/progmodes/eglot.el (eglot-handle-request):
+ Commit 1a2d603bb3938ff68ed1a5412d131b41efd40a24 changed
+ `eglot--uri-to-path' to return a nil uri untouched. (Before,
+ `url-unhex-string' turned the parsed all-nil uri record into the empty
+ string.)
+
+ A nil return value must now be handled in the caller, do that for the
+ workspace/configuration handler to avoid an uncaught error.
+
+2022-11-13 Stefan Kangas <stefankangas@gmail.com>
+
+ New test for execute-extended-command helper defun
+
+ * test/lisp/simple-tests.el
+ (simple-execute-extended-command--shorter): New test.
+
+2022-11-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in sql.el
+
+ * lisp/progmodes/sql.el (sql-interactive-mode-map, sql-mode-map):
+ Prefer defvar-keymap.
+
+2022-11-13 Davide Masserut <dm@mssdvd.com>
+
+ Add new Go modes to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add new major modes
+ for Go to be used with gopls. (Bug#59245)
+
+2022-11-13 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#59075
+
+ * src/nsimage.m (ns_can_use_native_image_api): Do not use native
+ image APIs for SVG images when RSVG is present. (bug#59075)
+
+2022-11-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix crash on MS-Windows due to memory-allocation problem in treesit.c
+
+ * src/treesit.c (treesit_load_language): Use 'xstrdup'/'xfree'
+ instead of 'strdup'/'free', to prevent crashes on MS-Windows,
+ where we must use our own implementation of 'malloc'/'free',
+ whereas 'strdup' uses the default implementation in the MS-Windows
+ C runtime library.
+
+2022-11-13 Po Lu <luangruo@yahoo.com>
+
+ Fix warnings without XCB or XFixes
+
+ * src/xterm.c (x_term_init): Don't USE_SAFE_ALLOCA or call
+ SAFE_FREE outside of where it is actually used. For some reason
+ the compiler still emitted warnings despite the ((void)
+ SAFE_ALLOCA (0)) statement.
+
+2022-11-12 Po Lu <luangruo@yahoo.com>
+
+ Prevent non-local exits from ns-in-echo-area
+
+ * src/nsterm.m (ns_in_echo_area_1):
+ (ns_in_echo_area_2):
+ (ns_in_echo_area): New functions.
+ ([EmacsView firstRectForCharacterRange:]): Call them instead.
+ (syms_of_nsterm): New defsym.
+
+2022-11-12 Yuan Fu <casouri@gmail.com>
+
+ Improve tree-sitter imenu for c-mode and js-mode
+
+ Instead of a flat list, now categorize imenu entries into categories
+ like "Function", "Variable", "Class", etc.
+
+ * lisp/progmodes/c-ts-mode.el (c-ts-mode--imenu-1): Handle more edge
+ cases.
+ (c-ts-mode--imenu): Categorize menu entries.
+ * lisp/progmodes/js.el (js--treesit-imenu-type-alist): Remove variable.
+ (js--treesit-imenu-label): Remove function.
+ (js--treesit-imenu-1): Use the name alone for labels.
+ (js--treesit-imenu): Categorize menu entries.
+
+2022-11-12 Michal Dubiel <majkijin@gmail.com> (tiny change)
+
+ eglot: Support signature labels without a function name
+
+ * lisp/progmodes/eglot.el (eglot--sig-info): Support signature labels
+ without a function name. (Bug#58777)
+
+2022-11-12 Theodor Thornhill <theo@thornhill.no>
+
+ Add tree-sitter modes for C-like languages
+
+ * etc/NEWS: Mention the new modes
+ * lisp/progmodes/c-ts-mode.el: New major mode with tree-sitter support
+ for C and C++.
+ * lisp/progmodes/java-ts-mode.el: New major mode with tree-sitter
support.
+ * lisp/progmodes/json-ts-mode.el: New major mode with tree-sitter
support.
+ * lisp/progmodes/css-ts-mode.el: New major mode with tree-sitter
support.
+
+2022-11-12 Morgan Smith <Morgan.J.Smith@outlook.com>
+
+ vc-git: Ensure git doesn't try to colorize stashes
+
+ * lisp/vc/vc-git.el (vc-git-stash-show): Add --color=never to git
+ flags. (Bug#59158)
+
+2022-11-12 Shohei YOSHIDA <syohex@gmail.com>
+
+ Add cperl-mode to eglot-server-programs
+
+2022-11-12 Alan Mackenzie <acm@muc.de>
+
+ .dir-locals.el (C entry). Add NO_INLINE to c-noise-macro-names
+
+2022-11-12 Po Lu <luangruo@yahoo.com>
+
+ Correctly handle key map updates on Haiku
+
+ * src/haiku_support.cc (MessageReceived): Handle
+ B_KEY_MAP_LOADED by clearing the previous keymap.
+
+2022-11-12 Eli Zaretskii <eliz@gnu.org>
+
+ Document that 'transient-mark-mode' is off in batch mode
+
+ * doc/emacs/mark.texi (Mark, Disabled Transient Mark): Document,
+ belatedly, that 'transient-mark-mode' is turned on by default only
+ in interactive sessions. (Bug#59201)
+
+2022-11-12 Po Lu <luangruo@yahoo.com>
+
+ Handle request serial wraparound more correctly
+
+ * src/xterm.c (X_COMPARE_SERIALS): Remove macro.
+ (x_is_serial_more_than, x_is_serial_more_than_or_equal_to)
+ (x_is_serial_less_than, x_is_serial_less_than_or_equal_to): New
+ functions.
+ (x_find_error_handler, x_request_can_fail)
+ (x_clean_failable_requests, x_stop_ignoring_errors): Use those
+ functions to perform request serial comparison.
+
+2022-11-12 Po Lu <luangruo@yahoo.com>
+
+ Fix implementation of MULTIPLE
+
+ * src/xselect.c (x_handle_selection_request): Make sure the type
+ of a reply to a MULTIPLE request is ATOM_PAIR.
+
+2022-11-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix recent changes in documentation
+
+ * lisp/treesit.el (treesit-node-at): Doc fix.
+
+ * doc/lispref/parsing.texi (Language Definitions): Add
+ cross-reference.
+ (Retrieving Nodes): Renamed from "Retrieving Node"; all references
+ changed.
+ (Retrieving Nodes): Fix wording and markup.
+
+2022-11-12 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/lispref/intro.texi: Fix PDF output without VERSION. (Bug#59199)
+
+2022-11-12 Po Lu <luangruo@yahoo.com>
+
+ * lisp/xwidget.el: Improve Commentary.
+
+2022-11-12 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in cus-theme.el
+
+ * lisp/cus-theme.el (custom-new-theme-mode-map)
+ (custom-theme-choose-mode-map): Prefer defvar-keymap.
+
+2022-11-11 Yuan Fu <casouri@gmail.com>
+
+ Improve treesit-node-at
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * lisp/treesit.el (treesit-node-at): Change semantic. It tries to
+ return the node that a user would expect in various circumstances.
+ * test/src/treesit-tests.el (treesit-node-at): New test.
+
+2022-11-11 Dmitry Gutov <dgutov@yandex.ru>
+
+ project--buffer-list: Remove as unused
+
+ * lisp/progmodes/project.el (project--buffer-list):
+ Remove as unused (pointed out in bug#59153 by Juri).
+
+2022-11-11 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Mention obsolete gnus/nnir package in Gnus manual
+
+ * doc/misc/gnus.texi (nnir): Provide some hints for upgrade.
+
+2022-11-11 Brian Leung <leungbk@posteo.net>
+
+ Make Eglot consider FileSystemWatcher.kind when watching files
+
+ bug#58677
+
+ * eglot.el (eglot-register-capability
+ workspace/didChangeWatchedFiles): Rework
+
+ Only send notifications of interest, as determined by the optional LSP
+ FileSystemWatcher.kind bitmask provided by the server.
+
+ When the FileSystemWatcher.kind property is omitted, use the default
+ value of 7, which is computed from taking the bitwise OR operation
+ WatchKind.Create (1) | WatchKind.Change (2) | WatchKind.Delete (4).
+
+2022-11-11 Gerd Möllmann <gerd@gnu.org>
+
+ Fix &key parameters called without arguments (bug#58714)
+
+ * lisp/emacs-lisp/cl-macs.el (cl--do-arglist): Check for missing
+ argument.
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-&key-arguments): New test.
+
+2022-11-11 Stefan Kangas <stefankangas@gmail.com>
+
+ eglot: Remove menu entry for manual
+
+ * lisp/progmodes/eglot.el (eglot-manual): Make obsolete. Open the
+ eglot info manual instead of the less exhaustive README.
+ (eglot-menu): Remove entry for reading the manual. (Bug#58892)
+
+2022-11-10 Stefan Kangas <stefankangas@gmail.com>
+
+ Remove redundant library installation instructions
+
+ * lisp/apropos.el:
+ * lisp/mail/feedmail.el:
+ * lisp/mail/mail-hist.el:
+ * lisp/org/org-ctags.el:
+ * lisp/org/org-protocol.el:
+ * lisp/progmodes/ebnf2ps.el:
+ * lisp/progmodes/mixal-mode.el:
+ * lisp/progmodes/perl-mode.el:
+ * lisp/savehist.el:
+ * lisp/textmodes/table.el:
+ * lisp/vc/smerge-mode.el: Remove redundant installation instructions
+ for packages bundled with Emacs.
+
+2022-11-10 Po Lu <luangruo@yahoo.com>
+
+ Slightly adjust EWMH frame activation code for child frames
+
+ * src/xterm.c (x_get_toplevel_parent): New function.
+ (x_focus_frame): Do not use EWMH activation in two cases: focus
+ transfers to child frames (this is not guaranteed to work if the
+ focus and the child frame do not share the same toplevel) or
+ focus transfers from child frames to their toplevel parents.
+
+2022-11-10 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/progmodes/hideshow.el: Improve Commentary.
+
+2022-11-10 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in hideshow.el
+
+ * lisp/progmodes/hideshow.el (hs-minor-mode-map): Prefer
+ defvar-keymap.
+
+2022-11-10 Yuan Fu <casouri@gmail.com>
+
+ In end-of-defun, terminate early if no further defun exists
+
+ Before this change, end-of-defun calls end-of-defun-function even if
+ point is not necessarily at the beginning of a defun (contrary to what
+ end-of-defun-function's docstring claims). Now it terminates early
+ and doesn't call end-of-defun-function.
+
+ * lisp/emacs-lisp/lisp.el (beginning-of-defun-raw): Update docstring
+ clarifying the return value.
+ (end-of-defun): Terminate early if beginning-of-defun-raw returns nil.
+
+2022-11-10 dannyfreeman <danny@dfreeman.email>
+
+ Eglot: Only handle URIs with the file:// scheme (bug#58790)
+
+ Eglot will not attempt to parse URIs that are not file:// type at all.
+ Instead let 'file-name-handler-alist' entries to deal with those. Not
+ parsing them at all allows the 'file-name-handler-alist' regexps to
+ identify them more accurately.
+
+ By also checking if Eglot received a URI in 'eglot--path-to-uri',
+ 'file-name-handler-alist' can provide the non-file type URI back to
+ the lsp server, which presumably will know how to handle them since it
+ is also giving them out to clients.
+
+ This issue originated with clojure-lsp sending clients "jar:" type
+ URIs that Emacs is unable to handle out of the box. Before this
+ change, "jar:" URIs were parsed once, but since they contain a nested
+ URI, this resulted in a file being dispatched with a partially parsed
+ path that looked like "file://path/to.jar!/path/in/jar".
+
+ * lisp/progmodes/eglot.el (eglot--path-to-uri): Noop if already an
+ URI. (eglot--uri-to-path): Only handle file:// URIs
+
+2022-11-10 João Távora <joaotavora@gmail.com>
+
+ Improve Eglot's docstrings and manual
+
+ The examples in the manual can now be copy-pasted to user's init
+ files as-is.
+
+ * doc/misc/eglot.texi (Setting Up LSP Servers): Use
+ `with-eval-after-load'. Add eglot-alternatives example.
+ (Customizing Eglot): Use 'require and fix a typo.
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Mention
+ eglot-alternatives in eglot-server-program's docstring.
+
+2022-11-10 Yuan Fu <casouri@gmail.com>
+
+ Utilize new face font-lock-escape-face in python-mode
+
+ * lisp/progmodes/python.el (python--treesit-settings): Use
+ font-lock-escape-face rather than font-lock-constant-face.
+
+2022-11-10 Yuan Fu <casouri@gmail.com>
+
+ Accept older versions of tree-sitter library
+
+ * configure.ac: Accept a tree-sitter library as long as it provides
+ ts_set_allocator.
+
+2022-11-10 Evgeni Kolev <evgenysw@gmail.com>
+
+ Ignore errors when shutting down all LSP servers (bug#59146)
+
+ eglot-shutdown-all has a bug that results in partially stopping
+ servers: when a server shutdown timeouts (1.5s), an error is
+ propagated and eglot-shutdown-all does not try to shutdown the rest of
+ the servers.
+
+ * eglot.el (eglot-shutdown-all): Ignore errors when shutting down
+ servers, converting errors to messages.
+
+2022-11-10 Eli Zaretskii <eliz@gnu.org>
+
+ Don't reset the inbox buffer's modified status in Rmail
+
+ * lisp/mail/rmail.el (rmail-get-new-mail-1): Don't mark the buffer
+ unmodified if it was modified before getting new mail. (Bug#59108)
+
+2022-11-10 Arash Esbati <arash@gnu.org>
+
+ Support 'texlab' LSP server in Eglot OOTB
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add support for
+ 'texlab' LSP server for tex-mode and similar languages.
+
+2022-11-10 Alan Mackenzie <acm@muc.de>
+
+ Add to /etc/NEWS a mention of the new C++20 support in CC Mode
+
+ * etc/NEWS. A new section about C++20 support.
+
+ * lisp/progmodes/cc-defs.el (c-version): Update to 5.35.2.
+
+2022-11-10 Randy Taylor <dev@rjt.dev>
+
+ Add more font-lock faces (Bug#58940)
+
+ * lisp/font-lock.el (font-lock-bracket-face, font-lock-delimiter-face,
+ font-lock-escape-face, font-lock-number-face,
+ font-lock-misc-punctuation-face, font-lock-operator-face,
+ font-lock-property-face, font-lock-punctuation-face): Define new
+ faces.
+ * lisp/cus-theme.el (custom-theme--listed-faces): Add them to the
+ list.
+ * doc/lispref/modes.texi (Faces for Font Lock): Document them.
+ * etc/NEWS: Mention them.
+
+2022-11-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix initialization of module functions
+
+ * src/emacs-module.c (allocate_module_function): Fix
+ initialization of module functions. Suggested by Richard Copley
+ <rcopley@gmail.com>. (Bug#59104)
+
+2022-11-10 kobarity <kobarity@gmail.com>
+
+ Fix indentation for multi-line block start in Python mode
+
+ * lisp/progmodes/python.el
+ (python-info-dedenter-opening-block-positions): Fix for multi-line
+ block start.
+ * test/lisp/progmodes/python-tests.el
+ (python-info-dedenter-opening-block-positions-6): New test. (Bug#59009)
+
+2022-11-10 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid dumping core upon SIGHUP in non-interactive sessions
+
+ * src/emacs.c (terminate_due_to_signal): Don't special-case
+ SIGINT. Patch by Paul Eggert <eggert@cs.ucla.edu>. (Bug#58956)
+
+2022-11-10 Alan Mackenzie <acm@muc.de>
+
+ * lisp/progmodes/cc-mode.el (c-fl-decl-start): Fix off-by-one error.
+
+ This fixes bug #59070.
+
+2022-11-10 Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
+
+ Make 'dired-hide-details-mode' work after 'dired-hide-subdir'
+
+ * lisp/dired.el (dired--unhide): Restore text properties.
+ (Bug#59047)
+
+ * test/lisp/dired-tests.el (dired-test-bugXXXX): New test.
+
+2022-11-10 Matt Armstrong <matt@rfc20.org>
+
+ Rewrite the `kill-buffer-delete-auto-save' tests (bug#59028)
+
+ These tests had been annoying to me when run in interactive mode.
+ They failed to bind `kill-buffer-delete-auto-save' as needed, so they
+ depended on the user's settings, and they failed to mock out the
+ "Buffer modified, save?" prompt.
+
+ * test/src/buffer-tests.el (test-kill-buffer-auto-save): New helper
+ function that mocks the two different kinds of prompts that occur when
+ killing modified buffers that visit a file. Tests fail if expected
+ prompts are not issued.
+ (test-kill-buffer-auto-save-default): Use it, and explicitly bind
+ `kill-buffer-delete-auto-save' to nil.
+ (test-kill-buffer-auto-save-delete): Delete it.
+ (test-kill-buffer-auto-save-delete-yes): New test for the "yes" half
+ of the old `test-kill-buffer-auto-save-delete'.
+ (test-kill-buffer-auto-save-delete-yes): Ditto for the "no" half.
+
+2022-11-10 Nicolas Graner <nicolas@graner.name>
+
+ Better support for 'textarea' and 'select' tags in EWW
+
+ * lisp/net/eww.el (eww-tag-textarea, eww-tag-select): Don't miss
+ 'textarea' and 'select' tags. (Bug#58973)
+
+2022-11-10 Po Lu <luangruo@yahoo.com>
+
+ Be a little more paranoid about XI 2.0 implementations
+
+ * src/xterm.c (xi_populate_device_from_info):
+ (xi_disable_devices): Do not restore valuator values if the
+ valuator info has a mode of Relative and a value of 0.0.
+
+2022-11-09 Juanma Barranquero <lekktu@gmail.com>
+
+ Make 't' in bs-mode be more defensive
+
+ * lisp/bs.el (bs-visit-tags-table): Verify that the
+ buffer holds a tags-table file before using it as
+ such. This is identical to bug#54133 affecting
+ Buffer-menu, and this fix is copied from the one
+ by Eli Zaretskii in commit 794fbd1c07 of 2022-02-24.
+ Thanks to Bob Rogers <rogers@rgrjr.com> for noticing.
+
+2022-11-09 Yuan Fu <casouri@gmail.com>
+
+ * configure.ac: Change required tree-sitter version to 0.20.2.
+
+2022-11-09 Yuan Fu <casouri@gmail.com>
+
+ Make tree-sitter node type match case-sensitive
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * src/treesit.c (treesit_traverse_match_predicate): Change to
+ fast_c_string_match.
+ (Ftreesit_search_subtree)
+ (Ftreesit_search_forward)
+ (Ftreesit_induce_sparse_tree): Update docstring.
+
+2022-11-09 Yuan Fu <casouri@gmail.com>
+
+ New function fast_c_string_match and fast_c_string_match_internal
+
+ Generalize fast_c_string_match_ignore_case into
+ fast_c_string_match_internal. And Make fast_c_string and
+ fast_c_string_match_ignore_case use fast_c_string_match_internal.
+
+ * src/lisp.h (fast_c_string_match_internal)
+ (fast_c_string_match): New declaration.
+ (fast_c_string_match_ignore_case): Change to thin wrapper.
+ * src/search.c (fast_c_string_match_internal): New function.
+
+2022-11-09 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter shortdoc
+
+ * lisp/treesit.el (treesit--generate-shortdoc-examples): New function.
+ (treesit): New shortdoc group.
+
+2022-11-09 Yuan Fu <casouri@gmail.com>
+
+ Mimic existing python-mode beg/end-of-defun behavior better
+
+ * lisp/progmodes/python.el (python-treesit-beginning-of-defun)
+ (python-treesit-end-of-defun): New functions.
+ * lisp/progmodes/python.el (python-mode): Use custom beg/end-of-defun
+ functions.
+
+2022-11-09 Alan Mackenzie <acm@muc.de>
+
+ Optimize c-bs-interval, changing its value from 5000 to 2000
+
+ * lisp/progmodes/cc-engine.el (c-bs-interval): This optimization speeds
+ forward scrolling in a C Mode buffer by ~2.4%, backward scrolling by
~1.8%.
+
+2022-11-09 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-auto-width): Add selected-frame to the cache
key.
+
+2022-11-09 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in matrix_row
+
+ * src/xdisp.c (cursor_in_mouse_face_p): Avoid rare assertion
+ violations when the cursor's VPOS winds up being invalid for the
+ window. (Bug#59147)
+
+2022-11-09 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/thread.el (thread-list-mode-map): Prefer defvar-keymap.
+
+2022-11-09 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Delete emacs < 26.2 workaround in eglot--apply-text-edits
+
+ * lisp/progmodes/eglot.el (eglot--apply-text-edits): Delete emacs <
+ 26.2 workaround; fixes bug in ada-mode test.
+
+2022-11-09 F. Jason Park <jp@neverwas.me>
+
+ Teach thing-at-point to recognize bracketed IPv6 URLs
+
+ * lisp/thingatpt.el (thing-at-point-bounds-of-url-at-point): Allow
+ IPv6 addresses as hosts. Overshoots in the case of bracketed markup
+ but is rescued by `thing-at-point--bounds-of-well-formed-url'.
+ * test/lisp/thingatpt-tests.el (thing-at-point-test-data): Add cases
+ for IPv6 URLs. Bug#56514.
+
+2022-11-09 Po Lu <luangruo@yahoo.com>
+
+ Make the PGTK port display a loud warning when run under X
+
+ * src/pgtkterm.c (pgtk_display_x_warning): New function.
+ (pgtk_term_init): Call it.
+
+2022-11-09 Po Lu <luangruo@yahoo.com>
+
+ "Fix" iconification handling on PGTK
+
+ * src/pgtkterm.c (pgtk_iconify_frame): Write some more comments
+ and refrain from setting the frame as iconified here.
+ (map_event): Remove redundant braces.
+ (window_state_event): Remove useless code and manage frame
+ visibility as correctly as possible under Wayland while
+ iconified. (bug#55836)
+
+2022-11-09 Po Lu <luangruo@yahoo.com>
+
+ Avoid use of `uint' type in XKB code
+
+ * src/xterm.c (x_find_modifier_meanings, handle_one_xevent): Use
+ `unsigned int' instead of `uint'.
+
+2022-11-09 Mattias Engdegård <mattiase@acm.org>
+
+ * src/lread.c (syms_of_lread): Drop unused capture group.
+
+2022-11-09 Nicholas Vollmer <iarchivedmywholelife@gmail.com>
+
+ bytecomp.el (byte-recompile-directory): Fix negated ignore logic
+
+ Previous logic would only compile files which matched the
+ byte-compile-ignore-files regular expression. (Bug#59115)
+
+2022-11-09 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-auto-width): Use 'frame-inner-width'.
+
+ * lisp/tab-bar.el (tab-bar-get-buffer-tab): Add optional arg 'all-tabs'.
+
+2022-11-08 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ EUDC: Add ecomplete and mailabbrev backends
+
+ * doc/misc/eudc.texi (Overview): Add ecomplete and mailabbrev
+ nodes.
+ (ecomplete, mailabbrev): New nodes.
+ (Installation): Add ecomplete and mailabbrev nodes.
+ (LDAP Configuration): Use code formatting instead of quotes.
+ (macOS Contacts Configuration): Likewise.
+ (ecomplete Configuration): New node.
+ (mailabbrev Configuration): Likewise.
+ * etc/NEWS (EUDC): Mention ecomplete and mailabbrev backends,
+ mention eudc-server-hotlist default change.
+ * lisp/net/eudc-vars.el (eudc-known-protocols): Add ecomplete and
+ mailabbrev.
+ (eudc-server-hotlist): Add entries for ecomplete and mailabbrev.
+ * lisp/net/eudcb-ecomplete.el: New EUDC backend file.
+ * lisp/net/eudcb-mailabbrev.el: Likewise.
+ * test/lisp/net/eudc-resources/ecompleterc,
+ test/lisp/net/eudc-resources/mailrc: New eudc-tests resource
+ files.
+ * test/lisp/net/eudc-tests.el (eudc-test-rfc5322-quote-phrase)
+ (eudc-test-make-address, eudcb-ecomplete, eudcb-mailabbrev): New
+ test cases.
+
+2022-11-08 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Deprecate eudc-server variable
+
+ * lisp/net/eudc-vars.el (eudc-server): Deprecate variable for
+ Emacs 29.1.
+
+2022-11-08 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ * lisp/progmodes/eglot.el (eglot--pos-to-lsp-position): Improve comment
+
+2022-11-08 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Improve accuracy of recognition of bitfields
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): When we've
got two
+ identifiers followed by a colon, additionally check for a number (or
+ identifier) followed by a semicolon or comma before concluding we have a
+ bitfield.
+
+2022-11-08 Robert Pluim <rpluim@gmail.com>
+
+ Don't use @w around @xref in ede.texi
+
+ Texinfo 7 warns about this now.
+
+ * doc/misc/ede.texi (ede-project-placeholder, ede-project,
+ ede-cpp-root-project, ede-simple-project,ede-simple-base-project,
+ ede-proj-project, project-am-makefile, ede-step-project, ede-target,
+ ede-proj-target, ede-proj-target-makefile,
+ semantic-ede-proj-target-grammar, ede-proj-target-makefile-objectcode,
+ ede-proj-target-makefile-archive, ede-proj-target-makefile-program,
+ ede-proj-target-makefile-shared-object, ede-proj-target-elisp,
+ ede-proj-target-elisp-autoloads,
+ ede-proj-target-makefile-miscelaneous, ede-proj-target-makefile-info,
+ ede-proj-target-scheme, project-am-target, project-am-objectcode,
+ project-am-program, project-am-header-noinst, project-am-header-inst,
+ project-am-lisp, project-am-texinfo, project-am-man,
+ ede-compilation-program, ede-compiler, ede-object-compiler,
+ ede-linker): Remove @w around @xref.
+
+2022-11-08 Po Lu <luangruo@yahoo.com>
+
+ Clean up some duplicate event group conversion code
+
+ * src/xterm.c (xi_convert_event_keyboard_state): New function.
+ Move keyboard event state over.
+ (handle_one_xevent): Use it where necessary.
+
+2022-11-08 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Stabilize the fontification in the presence of "register"
keywords
+
+ This fixes bug #58883.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): New variable
+ unsafe-maybe. Set it in CASE 10 rather than setting
c-record-type-identifiers
+ to nil. Near the end of the function, when unsafe-maybe is set, bind
+ c-promote-possible-types to 'just-one rather than t around the call to
+ c-forward-type.
+
+2022-11-07 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Add eudc-ignore-options-file customization
+
+ * etc/NEWS (EUDC): Document eudc-ignore-options-file.
+ * doc/misc/eudc.texi (The Server Hotlist): Likewise
+ * lisp/net/eudc-vars.el (eudc-ignore-options-file): New variable.
+ (eudc-options-file): Mention new variable.
+ * lisp/net/eudc.el: Warn on load if eudc-ignore-options-file is
+ set but the options file exists.
+ (eudc-set-server): Support
+ eudc-ignore-options-file.
+ (eudc-bookmark-server): Likewise.
+ (eudc-save-options): Likewise. (Bug#56154)
+
+2022-11-07 Po Lu <luangruo@yahoo.com>
+
+ Add missing SAFE_FREE on XI 2.0 servers
+
+ * src/xterm.c (xi_populate_device_from_info): Add missing
+ SAFE_FREE.
+
+2022-11-07 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix infinite loop in c-brace-stack-at.
+
+ This fixes bug #59038. The infinite loop occurred with a buffer
containing
+ Base-64 encoded text rather than appropriate C Mode text.
+
+ * lisp/progmodes/cc-engine.el (c-update-brace-stack): Don't execute
+ c-beginning-of-current-token unless the previous
c-syntactic-re-search-forward
+ has succeeded at least once.
+
+2022-11-07 Po Lu <luangruo@yahoo.com>
+
+ Avoid invalid values showing up in scroll valuators
+
+ * src/xterm.c (xi_populate_device_from_info): Reset emacs_value
+ when invalid_p is cleared.
+
+2022-11-07 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter indent preset "point-min"
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/treesit.el (treesit-simple-indent-presets): Add preset. Update
+ docstring.
+
+2022-11-07 Yuan Fu <casouri@gmail.com>
+
+ Add treesit--indent-rules-optimize
+
+ * lisp/treesit.el (treesit--indent-rules-optimize): New function.
+ (treesit-major-mode-setup): Optimize indent rules when setting up for
+ major mode.
+
+2022-11-07 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-minor-mode): Ensure margins are either 0 or
1.
+
+ This check is necessary to make it idempotent to multiple calls.
+
+2022-11-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (itree_insert_gap, itree_delete_gap): Minor optimization
+
+ `limit` can get smaller in either of the two children of a node.
+ It can also happen that the root node itself has a low enough limit
+ that the loop can be interrupted right away.
+
+ The previous code only checked `limit` when going down to a left
+ child, which is not wrong, but tests suggest that it is also very
+ common to reach this limit when going to a right child, so move the
+ test accordingly.
+
+ * src/itree.c (itree_insert_gap, itree_delete_gap): Check `limit` for
+ all nodes, rather than only when following a `left` pointer.
+
+2022-11-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 70fb03a49a ; * doc/emacs/search.texi (Lax Search): Improve suggestion...
+ 5779df0c5b ; * doc/lispref/searching.texi: Remove reference to Posix....
+ 46929f6b73 ; Improve documentation of character classes in regexps
+
+2022-11-06 Philip Kaludercic <philipk@posteo.net>
+
+ Revert "* lisp/vc/vc-git.el (vc-git--rev-parse): Allow abbreviating
commits"
+
+ This reverts commit 307ad210040251ea0de2e7f453350c4497bda874.
+
+2022-11-06 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Fix sql-{beginning,end}-of-statement counting
+
+ * lisp/progmodes/sql.el (sql-beginning-of-statement,
sql-end-of-statement):
+ Do not count statement separators if inside a string.
+
+2022-11-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in octave.el
+
+ * lisp/progmodes/octave.el (octave-mode-map): Prefer
+ defvar-keymap.
+
+2022-11-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix failing eshell alias tests
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/alias/function)
+ (esh-var-test/alias/symbol-pair): Fix tests. (Bug#59062)
+
+2022-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Pacify -Wnull-dereference"
+
+ This reverts commit dad452552bebf832e737ebb946b5eea6cd57f63f.
+ Please don't assume I write such code by omission.
+
+2022-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix splash screen display on NS and Haiku with native image APIs
+
+ * src/image.c (syms_of_image): Add Qsvg image type if SVG is
+ also supported by native image APIs.
+
+2022-11-06 Po Lu <luangruo@yahoo.com>
+
+ Pacify -Wnull-dereference
+
+ * src/xdisp.c (extend_face_to_end_of_line): Use FACE_FROM_ID,
+ not FACE_FROM_ID_OR_NULL, when the next line proceeds to
+ immediately dereference the face.
+
+2022-11-06 Po Lu <luangruo@yahoo.com>
+
+ Write more commentary on XI2 device management
+
+ * src/xterm.c (xi_populate_device_from_info): Take dpyinfo.
+ Describe what master and slave devices are, how they represent
+ seats, and how they are used to multiplex user input. Also
+ simplify ifdefs and avoid looping over scroll classes on XI 2.0.
+ (x_cache_xi_devices, handle_one_xevent): Adjust accordingly.
+ (x_term_init): Set dpyinfo->xi2_version before calling
+ x_cache_xi_devices.
+
+2022-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix face extension when Org narrows the buffer
+
+ * src/xdisp.c (extend_face_to_end_of_line): Make sure glyph rows
+ at ZV use the default face for extension. (Bug#59065)
+
+2022-11-06 Davide Masserut <dm@mssdvd.com>
+
+ Bind "DEL" in dictionary-mode
+
+ * lisp/net/dictionary.el (dictionary-mode-map): Bind DEL to
+ 'scroll-down-command'. (Bug#58986)
+
+2022-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of Edebug overwriting buffer point
+
+ * doc/lispref/edebug.texi (Edebug Display Update)
+ (Edebug Options): More details about Edebug changing buffer point
+ position. Reported by Alan Mackenzie <acm@muc.de>.
+
+2022-11-06 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-fixed-width-max): Change :type from cons to
list.
+
+ This will allow possible future extensions to customize Double (HiDPI).
+
+ (tab-bar-fixed-width-min): Change :type from cons to list.
+ (tab-bar-fixed-width): Use the list instead of cons.
+
+2022-11-06 Matt Armstrong <matt@rfc20.org>
+
+ itree.c and buffer-tests.el: Incorporate code review feedback
+
+ * src/itree.c: Improve wording in `itree_insert_gap` comment.
+ * test/src/buffer-tests.el
(test-overlay-insert-before-markers-at-start):
+ Don't rely on (point-min) being 1.
+ (test-overlay-insert-before-markers-at-end): ditto.
+ (test-overlay-insert-before-markers-empty): ditto.
+
+2022-11-05 Yuan Fu <casouri@gmail.com>
+
+ Fix incorrect tree-sitter fontification
+
+ * lisp/treesit.el (treesit-font-lock-fontify-region): If the captured
+ node is outside of the region between START and END, don't fontify it.
+ Wrap fontification code in a when form.
+
+2022-11-05 Yuan Fu <casouri@gmail.com>
+
+ Allow tree-sitter indent offset to be a variable
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Update manual.
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Change all
+ occurance of ,js-indent-level to js-indent-level.
+
+ * lisp/progmodes/ts-mode.el (ts-mode--indent-rules): Change all
+ occurance of ,ts-mode-indent-offset to ts-mode-indent-offset.
+ * lisp/treesit.el (treesit-simple-indent-rules): Change docstring.
+ (treesit-simple-indent): Allow offset to be a variable.
+
+2022-11-05 Yuan Fu <casouri@gmail.com>
+
+ Don't indent empty lines in treesit-indent-region
+
+ * lisp/treesit.el (treesit-indent-region): Wrap the old code in an if
+ form that checks whether we are at an empty line. Add comments.
+
+2022-11-05 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-language-at work in more situations
+
+ even if treesit-language-at-point-function is nil.
+
+2022-11-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ buffer.c: evaporate overlays in all indirect buffers
+
+ This fixes bug#58928. The patch works by moving the
+ `evaporate_overlays` check closer to `itree_delete_gap`.
+
+ * src/buffer.c (adjust_overlays_for_delete_in_buffer): New function,
+ integrating the functionality of `evaporate_overlays`.
+ (adjust_overlays_for_delete): Use it.
+ (evaporate_overlays): Delete function.
+
+ * src/buffer.h (evaporate_overlays): Delete declaration.
+
+ * src/insdel.c (adjust_markers_for_replace): Minor optimization.
+ (adjust_after_replace, replace_range, replace_range_2, del_range_2):
+ Don't call `evaporate_overlays`.
+
+ * test/src/buffer-tests.el (buffer-tests--overlays-indirect-evaporate):
+ Remove the `:expected-result :failed` attribute.
+
+2022-11-05 Matt Armstrong <matt@rfc20.org>
+
+ Add a test for overlay evaporation across indirect buffers
+
+ * test/src/buffer-tests.el (buffer-tests--overlays-indirect-evaporate):
+ Test evaporation of overlays triggered by deleting text in base
+ and in indirect buffers. Test doesn't pass at the moment.
+
+2022-11-05 Matt Armstrong <matt@rfc20.org>
+
+ Minor tweaks to the fix for `insert-before-markers' overlay fix
+
+ (bug#58928)
+
+ * src/buffer.c (adjust_overlays_for_insert): wrap to less than 80
+ chars.
+ * src/itree.c: document BEFORE_MARKERS.
+
+2022-11-05 Matt Armstrong <matt@rfc20.org>
+
+ Tweak the overlay related `insert-before-markers' tests
+
+ * test/src/buffer-tests.el (test-overlay-insert-before-markers-empty):
+ Move code down to the other tests related to insertion. Test all
+ front/rear insert combinations. To make the test more clear, at least
+ to me, hard code all character positions.
+ (test-overlay-insert-before-markers-at-start): For both front-advance
+ modes verify that `insert-before-markers' at and overlay's start
+ advances it.
+ (test-overlay-insert-before-markers-at-end): For both rear-advance
+ modes test that `insert-before-markers' at an overlay's end advances
+ it.
+ (test-overlay-insert-before-markers-non-empty): Delete, replaced by
+ the two tests above.
+
+2022-11-05 Brian Cully <bjc@kublai.com>
+
+ lisp/eshell/em-tramp.el: Rename 'TRAMP' to 'Tramp'.
+
+2022-11-05 Brian Cully <bjc@kublai.com>
+
+ Add the "doas" alias to eshell.
+
+ * lisp/eshell/em-tramp.el (eshell/doas): new function.
+ (eshell--method-wrap-directory): new function.
+ (eshell/sudo): accept '-s'/'--shell' for interactive use.
+ * test/lisp/eshell/em-tramp-tests.el
+ (em-tramp-test/sudo-shell) (em-tramp-test/sudo-user-shell)
+ (em-tramp-test/doas-basic) (em-tramp-test/doas-user)
+ (em-tramp-test/doas-shell) (em-tramp-test/doas-user-shell): new
+ tests.
+ * etc/NEWS: mention new 'doas' eshell command.
+ * doc/misc/eshell.texi: add 'doas' command documentation.
+
+2022-11-05 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS: Remove remark implemented by 'vc-default-checkin-patch'.
+
+ * lisp/net/dictionary.el (dictionary-search): Use format-prompt.
+
+ * lisp/tab-bar.el (tab-bar-fixed-width): Improve width calculations.
+
+2022-11-05 Philip Kaludercic <philipk@posteo.net>
+
+ Rephrase 'package-vc-ensure-packages' docstring
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-ensure-packages): Make it
+ easier to read.
+
+2022-11-05 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/jka-compr.el (jka-compr-load): Add MUST-SUFFIX argument.
+
+2022-11-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the unexec build
+
+ * src/itree.c (forget_itree): New function.
+ * src/emacs.c (Fdump_emacs): Call 'forget_itree'.
+
+2022-11-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix warnings in sqlite.c in the MS-Windows build
+
+ * src/sqlite.c (sqlite3_errstr) [WINDOWSNT]: Define and load from
+ the DLL only if the SQLite3 version is at least 3.7.15.
+ (sqlite_prepare_errdata) [SQLITE_VERSION_NUMBER >= 3007015]: Use
+ the original code if sqlite3_errstr is available.
+
+2022-11-05 Nicolas Graner <nicolas@graner.name>
+
+ Avoid error when forwarding messages from Rmail
+
+ * lisp/gnus/message.el (message-mail): Verify that In-Reply-To has
+ a string value before matching it with a regexp. (Bug#59007)
+
+2022-11-05 Po Lu <luangruo@yahoo.com>
+
+ Make sqlite.c build with SQlite in Fedora 9
+
+ * src/sqlite.c (sqlite_prepare_errdata): Use sqlite3_errmsg
+ instead of sqlite3_errstr.
+
+2022-11-05 Po Lu <luangruo@yahoo.com>
+
+ Simplify XI scroll class reporting code
+
+ * src/xterm.c (xi_populate_device_from_info): Use xnmalloc.
+ Avoid reading classes at all when the XI library only supports
+ 2.0.
+ (xi_handle_new_classes): New function.
+ (xi_handle_device_changed): Move class parsing logic there to
+ avoid duplicating code.
+
+2022-11-05 Payas Relekar <relekarpayas@gmail.com>
+
+ Bump version to 2.4.4
+
+2022-11-04 dickmao <dick.r.chiang@gmail.com>
+
+ Move ERC's core dependencies to separate file
+
+ Asking people to order require's is about as effective
+ as asking kids to keep off the grass.
+
+ * lisp/erc/erc-backend.el (erc--target, erc-auto-query,
+ erc-channel-list, erc-channel-users, erc-default-nicks,
+ erc-default-recipients, erc-format-nick-function,
+ erc-format-query-as-channel-p, erc-hide-prompt, erc-input-marker,
+ erc-insert-marker, erc-invitation, erc-join-buffer,
+ erc-kill-buffer-on-part, erc-kill-server-buffer-on-quit, erc-log-p,
+ erc-minibuffer-ignored, erc-networks--id, erc-nick,
+ erc-nick-change-attempt-count, erc-prompt-for-channel-key,
+ erc-prompt-hidden, erc-reuse-buffers, erc-verbose-server-ping,
+ erc-whowas-on-nosuchnick): Forward-declare variables.
+ (erc--open-target, erc--target-from-string, erc-active-buffer,
+ erc-add-default-channel, erc-banlist-update, erc-buffer-filter,
+ erc-buffer-list-with-nick, erc-channel-begin-receiving-names,
+ erc-channel-end-receiving-names, erc-channel-p,
+ erc-channel-receive-names, erc-cmd-JOIN, erc-connection-established,
+ erc-current-nick, erc-current-nick-p, erc-current-time,
+ erc-default-target, erc-delete-default-channel,
+ erc-display-error-notice, erc-display-server-message,
+ erc-emacs-time-to-erc-time, erc-format-message,
+ erc-format-privmessage, erc-get-buffer, erc-handle-login,
+ erc-handle-user-status-change, erc-ignored-reply-p,
+ erc-ignored-user-p, erc-is-message-ctcp-and-not-action-p,
+ erc-is-message-ctcp-p, erc-log-irc-protocol, erc-login,
+ erc-make-notice, erc-network, erc-networks--id-given,
+ erc-networks--id-reload, erc-nickname-in-use, erc-parse-user,
+ erc-process-away, erc-process-ctcp-query, erc-query-buffer-p,
+ erc-remove-channel-member, erc-remove-channel-users, erc-remove-user,
+ erc-sec-to-time, erc-server-buffer, erc-set-active-buffer,
+ erc-set-current-nick, erc-set-modes, erc-time-diff, erc-trim-string,
+ erc-update-mode-line, erc-update-mode-line-buffer,
+ erc-wash-quit-reason, erc-display-message, erc-get-buffer-create,
+ erc-process-ctcp-reply, erc-update-channel-topic, erc-update-modes,
+ erc-update-user-nick, erc-open, erc-update-channel-member):
+ Forward-declare functions.
+ (erc-response): Move to lisp/erc/erc-common.el.
+ (erc-compat--with-memoization): Use "erc-compat-" prefixed macro.
+
+ * lisp/erc/erc-common.el: New file. Change indentation for
+ `erc-with-all-buffers-of-server' from 1 to 2.
+
+ * lisp/erc/erc-compat.el (erc-compat--with-memoization): Migrate macro
+ from `erc-backend' and rename.
+
+ * lisp/erc/erc-goodies.el: Require `erc-common' instead of `erc'.
+ (erc-controls-highlight-regexp, erc-controls-remove-regexp,
+ erc-input-marker, erc-insert-marker, erc-server-process, erc-modules,
+ erc-log-p): Forward declare variables.
+ (erc-buffer-list, erc-error, erc-extract-command-from-line):
+ Forward-declare functions.
+
+ * lisp/erc/erc-networks.el (erc--target, erc-insert-marker,
+ erc-kill-buffer-hook, erc-kill-server-hook, erc-modules,
+ erc-rename-buffers, erc-reuse-buffers, erc-server-announced-name,
+ erc-server-connected, erc-server-parameters, erc-server-process,
+ erc-session-server): Forward declare variables.
+ (erc--default-target, erc--get-isupport-entry, erc-buffer-filter,
+ erc-current-nick, erc-display-error-notice, erc-error, erc-get-buffer,
+ erc-server-buffer, erc-server-process-alive): Forward-declare
+ functions.
+ (erc-obsolete-var): Also suppress free-variable warnings.
+
+ * lisp/erc/erc.el: Require `erc-networks', `erc-goodies', and
+ `erc-backend' at top of file. Don't require `erc-compat'.
+ (erc--server-last-reconnect-count, erc--server-reconnecting,
+ erc-channel-members-changed-hook, erc-network, erc-networks--id,
+ erc-server-367-functions, erc-server-announced-name,
+ erc-server-connect-function, erc-server-connected,
+ erc-server-current-nick, erc-server-lag, erc-server-last-sent-time,
+ erc-server-process, erc-server-quitting, erc-server-reconnect-count,
+ erc-server-reconnecting, erc-session-client-certificate,
+ erc-session-connector, erc-session-port, erc-session-server,
+ erc-session-user-full-name) Remove superfluous forward declarations.
+ (erc-message-parsed, tabbar--local-hlf, motif-version-string):
+ Relocate forward declares to central location.
+ (erc-session-password): Move to `erc-backend'.
+ (erc-downcase, erc-with-server-buffer, erc-server-user,
+ erc-channel-user, erc-get-channel-user, erc-get-server-user): Move to
+ lisp/erc/erc-common.el.
+ (erc-add-server-user, erc-remove-server-user,
+ erc-channel-user-owner-p, erc-channel-user-admin-p,
+ erc-channel-user-op-p, erc-channel-user-halfop-p,
+ erc-channel-user-voice-p): Convert from inline functions to normal
+ functions.
+ (define-erc-module, erc--target, erc--target-channel,
+ erc--target-channel-local, erc-log, erc-log-aux, erc-with-buffer,
+ erc-with-all-buffers-of-server): Move to lisp/erc/erc-common.el.
+ (erc-channel-members-changed-hook): Relocate option to avoid compiler
+ warning.
+ (erc-input, erc--input-split): Move to lisp/erc/erc-common.el.
+ (erc-controls-strip): Remove forward declaration temporarily until
+ this file stops requiring `erc-goodies'.
+
+ * test/lisp/erc/erc-networks-tests.el: Require `erc' instead of
+ `erc-networks'.
+ * test/lisp/erc/erc-tests.el (erc--meta--backend-dependencies):
+ Remove obsolete test. Don't require `erc-networks'. Bug#56340.
+
+2022-11-04 F. Jason Park <jp@neverwas.me>
+
+ Offer completions for GET subcommand flags in erc-dcc
+
+ * lisp/erc/erc-dcc.el (pcomplete/erc-mode/DCC): Add /DCC GET switches.
+ This is unfinished business from bug#54458.
+ * test/lisp/erc/erc-dcc-tests.el (erc-dcc-tests--pcomplete-common,
+ pcomplete/erc-mode/DCC--get-basic, pcomplete/erc-mode/DCC--get-1flag,
+ pcomplete/erc-mode/DCC--get-2flags,
+ pcomplete/erc-mode/DCC--get-2flags-reverse): Add helper and tests for
+ completing /DCC GET switches.
+
+2022-11-04 F. Jason Park <jp@neverwas.me>
+
+ * lisp/erc/erc.el (erc-cmd-RECONNECT): Fix macro arg.
+
+2022-11-04 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-kill-buffer-conditions: Tweak
+
+ * lisp/progmodes/project.el (project-kill-buffer-conditions): Tweak.
+
+2022-11-04 Matt Armstrong <matt@rfc20.org>
+
+ Configure clang-format to use tabs
+
+ * .clang-format (UseTab): Set to "Always", to match
+ the (indent-tabs-mode . t) in .dir-locals.el. (Bug#59027)
+
+2022-11-04 Philip Kaludercic <philipk@posteo.net>
+
+ Print "decrypted" rot13 text is buffer is read-only
+
+ * lisp/rot13.el (rot13-region): Add fallback if buffer is read-only
+ * doc/emacs/rmail.texi (Rmail Rot13): Document new behaviour.
+
+2022-11-04 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/net/rcirc.el (rcirc-print): Replace misjudged assertion
+
+2022-11-04 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/textmodes/css-mode.el (css-mode-map): Prefer defvar-keymap.
+
+ * lisp/dired-aux.el (dired-check-process): Use progress reporter.
+
+2022-11-04 Stefan Kangas <stefankangas@gmail.com>
+
+ Use progress reporter in cpp.el
+
+ * lisp/progmodes/cpp.el (cpp-highlight-buffer): Use progress
+ reporter.
+ (cpp-progress-time, cpp-progress-message): Make obsolete in favor
+ of 'make-progress-reporter'.
+ (cpp-message-min-time-interval): Doc fix.
+
+2022-11-04 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/progmodes/cpp.el (cpp-edit-mode-map): Prefer defvar-keymap.
+
+2022-11-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -Wanalyzer-null-dereference
+
+ This is for gcc 12.2.1 20220819 (Red Hat 12.2.1-2) x86-64
+ when Emacs is configured with --enable-gcc-warnings.
+ * src/buffer.c (Fmove_overlay): Prefer BASE_EQ to EQ in a place
+ where they’re equivalent because the only symbol allowed here is nil.
+
+2022-11-04 Philip Kaludercic <philipk@posteo.net>
+
+ Merge branch 'feature/package+vc'
+
+ * lisp/emacs-lisp/package-vc.el: Expand commentary
+
+2022-11-04 Philip Kaludercic <philipk@posteo.net>
+
+ Link to Manual from the package-vc group
+
+ * lisp/emacs-lisp/package-vc.el (package-vc): Add 'custom-manual'
+ link.
+
+2022-11-04 Philip Kaludercic <philipk@posteo.net>
+
+ Document 'package-vc-selected-packages'
+
+ * doc/emacs/package.texi: Expand documentation and give example.
+ * etc/NEWS: Mention 'package-vc-selected-packages'.
+ * lisp/emacs-lisp/package-vc.el (package-vc--select-packages): Remove
+ function.
+ (package-vc-ensure-packages): Add function based on
+ 'package-vc--select-packages'.
+ (package-vc-selected-packages): Call 'package-vc-ensure-packages' from
+ custom setter.
+
+2022-11-04 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-indent-error
+
+ * lisp/treesit.el (treesit-indent-error): New error.
+ (treesit--simple-indent-eval): Signal treesit-indent-error.
+
+2022-11-04 Yuan Fu <casouri@gmail.com>
+
+ Revise tree-sitter facility for multi-language buffers
+
+ * doc/lispref/parsing.texi (Multiple Languages): Extend and update
+ manual.
+ * lisp/treesit.el (treesit-range-functions): Remove variable.
+ (treesit-range-settings): New variable.
+ (treesit-range-rules): New function.
+ (treesit--merge-ranges): New function.
+ (treesit-update-ranges): Use treesit-range-settings instead of
+ treesit-range-functions.
+ (treesit-font-lock-rules): Fix docstring.
+ (treesit-indent)
+ (treesit-indent-region): Only update ranges in a region.
+ * test/src/treesit-tests.el (treesit-range): New test.
+
+2022-11-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/simple.el (function-documentation): Fix bug#59014
+
+2022-11-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix calling file name handler for `load'.
+
+ * lisp/net/ange-ftp.el (ange-ftp-load): Add MUST-SUFFIX argument.
+
+ * lisp/net/tramp.el (tramp-handle-load): Adapt MUST_SUFFIX test.
+
+ * src/lread.c (Fload): Call handler with must_suffix.
+
+ * test/lisp/net/tramp-tests.el (tramp-test27-load): Extend test.
+
+2022-11-04 Stefan Kangas <stefankangas@gmail.com>
+
+ Normalize some syntax table definitions
+
+ * lisp/nxml/rng-cmpct.el (rng-c-syntax-table):
+ * lisp/progmodes/cperl-mode.el (cperl-mode-syntax-table)
+ (cperl-string-syntax-table2):
+ * lisp/progmodes/dcl-mode.el (dcl-mode-syntax-table): Normalize
+ definitions to better follow modern ELisp conventions.
+
+2022-11-04 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/progmodes/dcl-mode.el (dcl-mode-map): Prefer defvar-keymap.
+
+ * admin/authors.el: Don't recommend deprecated fgrep.
+
+2022-11-04 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix manual noverlay tests
+
+ * test/manual/noverlay/Makefile.in: Add copyright notice.
+ (LIBS): Rename...
+ (PACKAGES): ...to this, to avoid confusion with Autoconf's LIBS.
+ All uses changed.
+ (CFLAGS): Break out -I flag...
+ (CPPFLAGS): ...into this new variable.
+ (LDFLAGS): Rename...
+ (LDLIBS): ...to this, which is expected to hold -l flags.
+ (top_builddir): New variable.
+ (EMACS): Define in terms of it.
+ (.PHONY): Add clean, distclean, and perf targets.
+ (have-libcheck): Remove redundant target. All uses updated.
+ (itree-tests.o): Remove redundant dependency on its source file.
+ (itree-tests): Remove redundant (and uncompilable) rule.
+
+ * test/manual/noverlay/check-sanitize.sh: Use /usr/bin/env. Add
+ copyright notice. Enable pipefail option, to propagate itree-tests
+ exit status to caller. Fix typo in usage message. Strip less
+ information from Check's error messages.
+
+ * test/manual/noverlay/emacs-compat.h: Add copyright notice.
+ Include stdlib.h.
+ (emacs_abort, eassert): Consistently use EXIT_FAILURE.
+ (eassume): Define when necessary.
+
+ * test/manual/noverlay/itree-tests.c: Add copyright notice. Include
+ standard headers before third-party ones. Use most narrowly
+ applicable ck_assert* macro for the types being checked,
+ e.g. ck_assert_ptr_* macros for pointer values. Replace removed
+ names and APIs with current ones, e.g. the itree_node field 'color'
+ is now called 'red'. Ensure preconditions of itree API are
+ satisfied before use, e.g. itree_node otick being set appropriately
+ before insertion, or global iterator being initialized
+ before (implicit) use (bug#58976). Make all functions static.
+ (DEF_TEST_SETUP): Remove all instances, replacing with...
+ (test_insert1_setup, test_insert2_setup, test_remove1_setup)
+ (test_remove2_setup): ...these new test fixtures.
+ (A, B, C, D, E, N_05, N_10, N_15, N_20, N_30, N_40, N_50, N_70)
+ (N_80, N_90, N_85, N_95): Define as static variables rather than
+ macros.
+ (test_get_tree4): Remove, inlining salient parts.
+ (shuffle): Move closer to users.
+ (test_create_tree): Accept itree_nodes as argument instead of
+ dynamically allocating them. All callers changed.
+ (FOREACH): Remove unused macro.
+ (N_BEG, N_END): Define in terms of itree_node_begin and
+ itree_node_end, respectively.
+ (test_gap_insert_1, test_gap_insert_2, test_gap_insert_3)
+ (test_gap_insert_5, test_gap_insert_7, test_gap_insert_11): Use
+ test_setup_gap_node_noadvance.
+ (basic_suite): Group unit tests into test cases and fixtures. Run
+ previously forgotten test_insert_14.
+ (main): Run suite as CK_ENV to allow specifying desired verbosity in
+ the environment.
+
+2022-11-04 Po Lu <luangruo@yahoo.com>
+
+ Avoid using too up-to-date values when restoring valuators
+
+ * src/xterm.c (xi_has_scroll_valuators): New function.
+ (xi_handle_device_changed): If the device changed event provides
+ scroll valuators, then use the values in there. (bug#58980)
+
+2022-11-04 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-fixed-width): New user option.
+
+ (tab-bar-fixed-width-max): New user option.
+ (tab-bar-fixed-width-min): New variable.
+ (tab-bar-fixed-width-faces): New variable.
+ (tab-bar--fixed-width-hash): New function.
+ (tab-bar-make-keymap-1): Use 'tab-bar-fixed-width'.
+
+ https://lists.gnu.org/archive/html/emacs-devel/2022-10/msg02067.html
+
+2022-11-04 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 8cae9d8bd8 ; * doc/emacs/search.texi (Lax Search): Improve wording. ...
+ e01e8a8f84 ; * lisp/dired-aux.el (dired-show-file-type): Doc fix.
+
+2022-11-04 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-parser-set-included-ranges
+
+ Track whether a parser has ranges set ourselves. See comment in
+ Ftreesit_parser_included_ranges for detail.
+
+ * src/treesit.c (make_treesit_parser): Initialize has_range.
+ (Ftreesit_parser_set_included_ranges): Set has_range. Fill docstring.
+ (Ftreesit_parser_included_ranges): Check has_range.
+ * src/treesit.h (Lisp_TS_Parser): Add has_range.
+
+2022-11-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Minor tightening
+
+ * src/itree.c (iter): Initialize to NULL.
+ (init_itree): Make sure it's not allocated before we overwrite it.
+ (itree_insert_gap): Tweak the end-loop.
+
+2022-11-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree: Reproduce markers's behavior more faithfully (bug#58928)
+
+ The most obvious problem was the lack of support for
+ `insert-before-markers`, but the behavior was also different in a few
+ other cases.
+
+ * src/itree.h (itree_insert_gap):
+ * src/itree.c (itree_insert_gap): Add `before_markers` arg.
+ * src/lisp.h (adjust_overlays_for_insert):
+ * src/buffer.c (adjust_overlays_for_insert): Add `before_markers` arg.
+
+ * src/insdel.c (adjust_markers_for_replace, adjust_markers_for_insert)
+ (adjust_markers_for_delete): Adjust overlays directly from here.
+ (insert_1_both, insert_from_string_1, insert_from_gap)
+ (insert_from_buffer_1, adjust_after_replace, replace_range)
+ (replace_range_2, del_range_2): Don't adjust overlays explicitly here
+ any more.
+
+ * test/src/buffer-tests.el (test-overlay-insert-before-markers-empty)
+ (test-overlay-insert-before-markers-non-empty): New tests.
+
+2022-11-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-buffers: Describe the default implementation
+
+ * lisp/progmodes/project.el (project-buffers):
+ Describe what the default implementation is doing (bug#58784).
+
+2022-11-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-kill-buffer-conditions: Skip Gnus modes as well
+
+ * lisp/progmodes/project.el (project-kill-buffer-conditions):
+ Skip Gnus modes as well (bug#58839).
+
+2022-11-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-kill-buffer-conditions: Skip hidden ones
+
+ * lisp/progmodes/project.el (project-kill-buffer-conditions):
+ Make exception for "hidden" buffers (bug#58839).
+
+2022-11-03 Po Lu <luangruo@yahoo.com>
+
+ Fix initialization of scroll valuator emacs_value
+
+ * src/xterm.c (xi_handle_device_changed): Initialize emacs_value
+ to 0, not DBL_MIN. (bug#58980)
+
+2022-11-03 Philip Kaludercic <philipk@posteo.net>
+
+ Autoload all entry functions
+
+2022-11-03 Yuan Fu <casouri@gmail.com>
+
+ Add contextual tree-sitter font-lock to ts-mode and js-mode
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings)
+ * lisp/progmodes/ts-mode.el (ts-mode--font-lock-settings): Capture
+ commend and strings. Add empty lines.
+
+2022-11-03 Jim Porter <jporterbugs@gmail.com>
+
+ Only strip newlines when stringifying a value for Eshell
+
+ * lisp/eshell/esh-util.el (eshell-stringify): Use 'string-trim-right'
+ instead of stripping the last character of the result of
+ 'pp-to-string' (bug#58810).
+
+ * test/lisp/eshell/esh-util-tests.el: New file.
+
+2022-11-03 Yuan Fu <casouri@gmail.com>
+
+ Minor change to tree-sitter imenu function of js-mode
+
+ If someone don’t like the labels, they can set them to empty strings.
+
+ * lisp/progmodes/js.el (js--treesit-imenu-type-alist): Add space.
+ (js--treesit-imenu-label): Remove space.
+
+2022-11-03 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-version): Use main file
+
+2022-11-03 Philip Kaludercic <philipk@posteo.net>
+
+ Add command 'package-vc-checkout'
+
+ * doc/emacs/package.texi: Document feature.
+ * etc/NEWS: Mention feature.
+ * lisp/emacs-lisp/package-vc.el (package-vc-clone): Extract
+ functionality out of 'package-vc-unpack'.
+ (package-vc-unpack): Extract functionality out to 'package-vc-clone'.
+ (package-vc-checkout): Add command.
+
+2022-11-03 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve suppression of bogus macOS warnings
+
+ * configure.ac: On macOS, always use -Wno-deprecated-declarations,
+ as the false alarms appear even if --disable-gcc-warnings is given
+ (Bug#58966).
+
+2022-11-03 Juri Linkov <juri@linkov.net>
+
+ Fix overlays order in Flyspell (bug#58970)
+
+ Flyspell relies on the sorting order of overlays from 'overlays-in'
+ that returned the overlays sorted by decreased 'overlay-start'.
+ But after the recent merge of the noverlay branch, the order was
reversed.
+ So need to change the order back to the expected by Flyspell.
+
+ * lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-word):
+ Sort overlays returned from 'overlays-in' descending by 'overlay-start'.
+
+2022-11-03 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Port interval trees to --enable-checking=structs
+
+ Some names under the interval_* namespace were renamed under the
+ itree_* namespace in commits:
+
+ 0. f421b58db5 of 2022-10-19
+ "Prefix all itree.h type names with itree_".
+ 1. 37a1145410 of 2022-10-19
+ "Rename all exported itree.h functions with the itree_ prefix"
+
+ Further, some values still referenced in commentary were removed in
+ commits:
+
+ 2. 258e618364 of 2022-10-17
+ "Delete the itree_null sentinel node, use NULL everywhere."
+ 3. 2c4a3910b3 of 2022-10-02
+ "itree: Use a single iterator object"
+
+ * src/emacs.c (main): Allocate global itree iterator once and for
+ all.
+ * src/alloc.c (mark_overlay):
+ * src/buffer.c (set_overlays_multibyte):
+ * src/itree.c (itree_destroy): Update commentary.
+ (interval_stack_ensure_space, itree_insert_gap): Prefer
+ unsigned-to-unsigned comparisons over signed-to-unsigned.
+ (interval_stack_push_flagged, interval_tree_insert)
+ (interval_tree_contains, itree_iterator_start)
+ (itree_iterator_finish, itree_iterator_next, itree_iterator_narrow):
+ Improve assertions.
+ (itree_init): Rename...
+ (init_itree): ...to this, for consistency with other global init
+ functions.
+ (itree_create): Stop leaking a global iterator allocation on each
+ call.
+ (interval_tree_init): Complete renames of
+ interval_tree -> itree_tree and interval_tree_clear -> itree_clear.
+ (interval_tree_remove_fix): Fix indentation.
+ * src/itree.h: Declare init_itree.
+ (ITREE_FOREACH): Fix typo in commentary.
+
+ * src/pdumper.c [CHECK_STRUCTS]
+ (dump_interval_node): Use the correct name in the HASH condition
+ and #error message.
+ (dump_overlay, dump_buffer): Update HASH (bug#58975).
+
+2022-11-03 Juanma Barranquero <lekktu@gmail.com>
+
+ * src/gnutls.c (Fgnutls_available_p): Avoid duplicating capabilities.
+
+2022-11-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in profiler.el
+
+ * lisp/profiler.el (profiler-report-mode-map): Prefer
+ defvar-keymap.
+
+2022-11-03 Po Lu <luangruo@yahoo.com>
+
+ Further simplify valuator reset code
+
+ * src/xterm.c (xi_reset_scroll_valuators_for_device_id): Minor
+ style adjustments.
+ (handle_one_xevent): Don't check frames; reset on all XI_Enter
+ and XI_Leave events.
+
+2022-11-03 Po Lu <luangruo@yahoo.com>
+
+ More style fixes to tree-sitter code
+
+ * src/treesit.c (treesit_node_uptodate_p):
+ * src/treesit.h: Fix coding style.
+
+2022-11-03 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to last tree-sitter change
+
+ * src/treesit.c (treesit_find_override_name): Initialize
+ variable.
+ (Ftreesit_query_expand): Revert change to behavior.
+
+2022-11-03 Po Lu <luangruo@yahoo.com>
+
+ Stylistic changes to tree-sitter code
+
+ * src/treesit.c (treesit_find_override_name)
+ (treesit_load_language_push_for_each_suffix, treesit_load_language)
+ (Ftreesit_langauge_available_p, treesit_record_change)
+ (make_treesit_parser, make_treesit_node, make_treesit_query)
+ (Ftreesit_parser_create, Ftreesit_parser_delete, Ftreesit_parser_list)
+ (treesit_check_range_argument, Ftreesit_parser_included_ranges)
+ (Ftreesit_node_start, Ftreesit_node_end, Ftreesit_node_check)
+ (Ftreesit_node_child_by_field_name, Ftreesit_pattern_expand)
+ (Ftreesit_query_expand, treesit_predicates_for_pattern)
+ (treesit_predicate_capture_name_to_text, treesit_predicate_equal)
+ (treesit_predicate_match, treesit_eval_predicates)
+ (Ftreesit_query_capture, treesit_search_dfs, treesit_build_sparse_tree)
+ (syms_of_treesit): Use FOR_EACH_TAIL (or FOR_EACH_TAIL_SAFE where not
+ obviously safe), and check list heads and tails correctly; fix coding
+ style of various constructs, especially:
+
+ variable =
+ mumble (frob (bar), (foo () + bar ()) + (baz () + quux ()))
+
+ which should actually be
+
+ variable
+ = mumble (frob (bar), (foo () + bar ()) + (baz () + quux ()))
+
+ and
+
+ foo =
+ mumble (frob (bar), 0)
+ + (foo () + bar ())
+ + (baz () + quux ())
+
+ which should actually be
+
+ foo = (mumble (frob (bar), 0)
+ + (foo () + bar ())
+ + (baz () + quux ()))
+
+ * src/treesit.h: Make declaration coding style consistent.
+
+2022-11-03 Gerd Möllmann <gerd@gnu.org>
+
+ Suppress deprecation warnings on macOS (bug#58966)
+
+ * configure.ac (CHECK_LISP_OBJECT_TYPE): Add
+ -Wno-deprecated-declarations for darwin.
+
+2022-11-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'text-property-search-backward' with 1-char long properties
+
+ * lisp/emacs-lisp/text-property-search.el
+ (text-property--find-end-backward): Don't miss the end of
+ text-property value at point. This fixes searches backward when
+ the property is on a single character position. (Bug#58937)
+
+2022-11-02 Yuan Fu <casouri@gmail.com>
+
+ Check for outdated tree-sitter node when printing
+
+ * src/print.c (print_vectorlike): Check for outdated node.
+ * src/treesit.c (treesit_check_node): Use the new function.
+ (treesit_node_uptodate_p): New function.
+ * src/treesit.h: Declare new function.
+
+2022-11-02 Yuan Fu <casouri@gmail.com>
+
+ Pass region start and end to tree-sitter fontification functions
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Update manual.
+ * lisp/progmodes/js.el (js--fontify-template-string)
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Update
+ function to only fontify within the region.
+ * lisp/treesit.el (treesit-font-lock-rules): Update docstring.
+ (treesit-font-lock-fontify-region): Pass START and END to
+ fontification functions.
+
+2022-11-02 Yuan Fu <casouri@gmail.com>
+
+ Add handling of contextual entities in tree-sitter font-lock
+
+ * lisp/progmodes/python.el: Remove function.
+ (python--treesit-settings): Capture contextual node.
+ * lisp/treesit.el (treesit--set-nonsticky):
+ (treesit-font-lock-contextual-post-process): New functions.
+ (treesit-font-lock-fontify-region): Change local variable START and
+ END to NODE-START and NODE-END, handle special capture name
+ "contextual".
+ * doc/lispref/modes.texi (Parser-based Font Lock): Update manual.
+
+2022-11-02 Paul Eggert <eggert@cs.ucla.edu>
+
+ Initialize child signal handling before posix_spawn too.
+
+ Problem reported by Tino Calancha (Bug#58960).
+ * src/callproc.c (call_process): Initialize SIGCHLD handling
+ before possibly creating a child with emacs_span. This need not
+ be in the critical section that calls emacs_spawn, so do it
+ outside the critical section.
+ * src/process.c (child_signal_init): Now extern.
+
+2022-11-02 Yuan Fu <casouri@gmail.com>
+
+ Change signature of tree-sitter font-lock functions
+
+ Change from
+
+ (START END NODE OVERRIDE &rest _)
+
+ to
+
+ (NODE OVERRIDE &rest _)
+
+ START and END aren't used frequently enough to justify. If a
+ fontification function needs them, it can get them from NODE.
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Update manual.
+
+ * lisp/progmodes/js.el (js--fontify-template-string)
+ * lisp/progmodes/python.el (python--treesit-fontify-string)
+ (python--treesit-fontify-string-end): Change signature.
+
+ * lisp/treesit.el (treesit-font-lock-rules): Update docstring.
+ (treesit-font-lock-fontify-region): Remove START and END arguments.
+
+2022-11-02 Juri Linkov <juri@linkov.net>
+
+ Add the parameter :noquery to open-network-stream (bug#58948)
+
+ * doc/lispref/processes.texi (Network): Add :noquery for
open-network-stream.
+
+ * lisp/net/network-stream.el (open-network-stream): Pass the
+ parameter :noquery to make-network-process. Doc fix.
+
+ * lisp/progmodes/eglot.el (eglot--connect): Pass `:noquery t' to
+ eglot--inferior-bootstrap to use in open-network-stream call, like
+ `:noquery t' is passed to make-process in other places.
+
+2022-11-02 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/man.el (Man-mode-map): Prefer defvar-keymap.
+
+2022-11-02 Philip Kaludercic <philipk@posteo.net>
+
+ Track file name in 'package--downloads-in-progress'
+
+ * lisp/emacs-lisp/package.el (package--download-one-archive): Move
+ 'cl-pushnew' call from 'package--download-one-archive' and cons file
+ name onto the archive.
+ (package--download-one-archive): Cons the file name onto the archive.
+ (package--download-and-read-archives): Remove 'cl-pushnew' call.
+
+2022-11-02 Po Lu <luangruo@yahoo.com>
+
+ Improve commentary in some parts of xterm.c
+
+ * src/xterm.c (x_probe_xfixes_extension): Rename to
+ `x_fixes_pointer_blanking_supported', as fixes is now used for
+ selection tracking as well. All callers changed.
+ (x_focus_changed): Document where this code is used.
+
+2022-11-02 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove unused local in simple_search
+
+ * src/search.c (simple_search): Remove unused local.
+
+2022-11-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ src/buffer.c: Fix interaction between overlays & indirect buffers
(bug#58928)
+
+ * src/buffer.c (adjust_overlays_for_insert)
+ (adjust_overlays_for_delete): Repeat for all buffers sharing the same
text.
+
+ * src/itree.c (itree_insert_gap, itree_delete_gap): Allow an empty tree.
+
+ * test/src/buffer-tests.el (buffer-tests--overlays-indirect-bug58928):
+ New test.
+
+2022-11-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-switch-project: Avoid altering default-directory in cb
+
+ * lisp/progmodes/project.el (project-switch-project):
+ Avoid altering default-directory in the current buffer, even
+ temporarily (bug#58784).
+
+2022-11-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ vc-svn-ignore-completion-table: Ignore empty lines
+
+ * lisp/vc/vc-svn.el (vc-svn-ignore-completion-table):
+ Make sure to ignore empty lines (bug#58889).
+
+2022-11-01 Yuan Fu <casouri@gmail.com>
+
+ Fix string fontification for tree-sitter python-mode
+
+ Now when user inserts a ending quote, the whole string is ganranteed
+ to be refontified and redisplayed.
+
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Change
+ docstring, now it's called on the leading quote.
+ (python--treesit-fontify-string-end): New function.
+ (python--treesit-settings): Capture both leading and ending quote in a
+ string.
+
+2022-11-01 Yuan Fu <casouri@gmail.com>
+
+ Don't print buffer when printing tree-sitter node and parser
+
+ Additionally, print node's position in buffer.
+
+ * doc/lispref/parsing.texi (Retrieving Node): Reflect this change in
+ manual.
+ * src/print.c (print_vectorlike): Remove printing of buffer, add
+ printing of node position.
+
+2022-11-01 Yuan Fu <casouri@gmail.com>
+
+ Allow user to add/remove tree-sitter font-lock features
+
+ * lisp/treesit.el (treesit-font-lock-recompute-features): Add
+ ADD-LIST, REMOVE-LIST argument.
+
+2022-11-01 Yuan Fu <casouri@gmail.com>
+
+ Query on the root node in tree-sitter font-lock
+
+ Rather than querying on the smallest node that spans START to END, we
+ query on the root node between START to END.
+
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Accept
+ the string rather than the quote node.
+ (python--treesit-settings): Capture the string rather than the quote
+ node.
+ * lisp/treesit.el (treesit-font-lock-fontify-region): Query the root
+ node rather than the smallest node.
+
+2022-11-01 Gregory Heytings <gregory@heytings.org>
+
+ Add a script to ease bisecting.
+
+ * admin/git-bisect-start: New script.
+
+ * admin/notes/repo (Bisecting): Mention the script.
+
+ * admin/emake: Add a Copyright blurb.
+
+2022-11-01 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/dbus.el (dbus-debug): Declare. (Bug#58865)
+
+2022-11-01 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure 'package-vc-update' runs 'package-vc-unpack-1' only once
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-update): Use
+ 'vc-sourced-packages-list' and other hacks.
+
+2022-11-01 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_term_init): Fix last change.
+
+2022-11-01 Po Lu <luangruo@yahoo.com>
+
+ Fix leak on Lucid build
+
+ * src/xterm.c (x_term_init): Rectify wrong fix for bug#18403.
+
+2022-11-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 1862df834c ; * src/search.c (Fmatch_data): Doc fix.
+ 15fc5225b1 ; * lisp/whitespace.el (whitespace-trailing): Fix a typo.
+ 9f3c896f7c ; * doc/emacs/text.texi (Quotation Marks): Typo fix. (Bug...
+
+ # Conflicts:
+ # src/search.c
+
+2022-11-01 Gerd Möllmann <gerd@gnu.org>
+
+ Preven a buffer-overflow (bug#58850)
+
+ * src/print.c (print_vectorlike): Don't use sprintf.
+
+2022-11-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-10-29 17:48:52 UTC.
+
+2022-11-01 Po Lu <luangruo@yahoo.com>
+
+ Fix leaks of XImage structures in image.c
+
+ * src/image.c (image_clear_image, lookup_image): Fix coding
+ style.
+ (x_destroy_x_image): Remove unnecessary assertion. Call
+ XDestroyImage, since otherwise only the image data is freed.
+ (image_from_emacs_colors): Rename variables to make more sense.
+
+2022-10-31 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Fix eglot-shutdown-all: Match current eglot-shutdown signature
+
+2022-10-31 Yuan Fu <casouri@gmail.com>
+
+ Use treesit-fontify-with-override in tree-sitter functions
+
+ * lisp/progmodes/js.el (js--fontify-template-string)
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Use
+ treesit-fontify-with-override.
+
+2022-10-31 Yuan Fu <casouri@gmail.com>
+
+ Add an argument OVERRIDE to tree-sitter font-lock functions
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Reflect this change
+ in manual.
+ * lisp/progmodes/js.el (js--fontify-template-string): Add _OVERRIDE
+ argument.
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Add
+ _OVERRIDE argument.
+ * lisp/treesit.el (treesit-font-lock-rules): Update docstring.
+ (treesit-fontify-with-override): New function.
+ (treesit-font-lock-fontify-region): Extract out into
+ treesit-fontify-with-override.
+
+2022-10-31 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix tramp-handle-file-newer-than-file-p
+
+ * lisp/net/tramp.el (tramp-handle-file-newer-than-file-p): Don't use
+ fractions of seconds. (Bug#58842)
+
+2022-10-31 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in cus-edit.el
+
+ * lisp/cus-edit.el (custom-mode-map, custom-mode-link-map): Prefer
+ defvar-keymap.
+
+2022-10-31 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/emacs-lisp/multisession.el: Add Commentary. (Bug#58845)
+
+ * lisp/vcursor.el (vcursor-map): Prefer defvar-keymap.
+
+2022-10-31 Philip Kaludercic <philipk@posteo.net>
+
+ Allow specifying and pinning source packages to be installed
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--select-packages): Add
+ custom setter for 'package-vc-selected-packages'.
+ (package-vc-selected-packages): Add user option.
+
+2022-10-31 Yuan Fu <casouri@gmail.com>
+
+ Use tree-sitter for font-lock's syntactic function (optionally)
+
+ Before this change, we rebind font-lock-fontify-region-function and
+ call font-lock's function in tree-sitter's function, and the order of
+ fontification is tree-sitter, font-lock syntax, font-lock regexp.
+
+ Now we make font-lock's syntax function customizable and replace it
+ with tree-sitter's function, and the order of fontification is
+ tree-sitter, font-lock regexp.
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Reflect the change
+ in manual.
+ * lisp/font-lock.el (font-lock-fontify-syntactically-function): New
+ varaible.
+ (font-lock-default-fontify-region): Call
+ font-lock-fontify-syntactically-function rather.
+ (font-lock-fontify-syntactically-region): Rename to
+ font-lock-default-fontify-syntactically
+ (font-lock-default-fontify-syntactically): Rename to this.
+
+ * lisp/treesit.el (treesit-font-lock-fontify-region): Don't call
+ font-lock functions.
+ (treesit-font-lock-enable): Remove this function. It is not used even
+ before this change.
+ (treesit-major-mode-setup): Instead of binding
+ font-lock-fontify-region-function, now bind to
+ font-lock-fontify-syntactically-function. And we can let font-lock do
+ it's thing.
+
+2022-10-31 Yuan Fu <casouri@gmail.com>
+
+ Improve python tree-sitter's string fontification
+
+ * lisp/progmodes/python.el (python--treesit-fontify-string): Handle
+ not only f-strings, but also docstrings, and NODE is now the last
+ quote rather than the whole string.
+ (python--treesit-settings): Use python--treesit-fontify-string for
+ every occasion.
+
+2022-10-30 Yuan Fu <casouri@gmail.com>
+
+ Add tresit--font-lock-verbose
+
+ * lisp/treesit.el (tresit--font-lock-verbose): New variable.
+ (treesit-font-lock-fontify-region): Take tresit--font-lock-verbose
+ into account. Return jit-lock-bounds.
+
+2022-10-30 Yuan Fu <casouri@gmail.com>
+
+ Set jit-lock-contextually in treesit-major-mode-setup
+
+ * lisp/treesit.el (treesit-major-mode-setup): Set jit-lock-contextually.
+
+2022-10-30 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix semantic-symref-perform-search when dir contains a space
+
+ * lisp/cedet/semantic/symref/grep.el (semantic-symref-grep--local-dir):
+ New variable.
+ (semantic-symref-perform-search): Use it. And use "." when
+ expanding the template to substitute for the current dir.
+ (semantic-symref-parse-tool-output-one-line): Use it (bug#55016)
+
+2022-10-30 Dmitry Gutov <dgutov@yandex.ru>
+
+ Speed up vc-default-checkin-patch a little
+
+ * lisp/vc/vc.el (vc-default-checkin-patch): Drop some
+ 'revert-buffer' calls to speed up the process a little (bug#52349).
+
+2022-10-30 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in simula.el
+
+ * lisp/progmodes/simula.el (simula-mode-map): Prefer
+ defvar-keymap.
+
+2022-10-30 Philip Kaludercic <philipk@posteo.net>
+
+ Merge remote-tracking branch 'origin/master' into feature/package+vc
+
+2022-10-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el: Allow user-defined cache-key function (bug#57848)
+
+ (tab-line-cache-key-default): New function.
+ (tab-line-cache-key-function): New variable.
+ (tab-line-format): Funcall tab-line-cache-key-function.
+
+2022-10-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el: Escape %-constructs in tab names (bug#57848)
+
+ (tab-line-tab-name-format-default): Replace % with %% in tab name
+ to escape %-constructs from processing by mode-line-format.
+
+2022-10-30 Gregory Heytings <gregory@heytings.org>
+
+ Merge master into feature/improved-locked-narrowing.
+
+2022-10-30 Philip Kaludercic <philipk@posteo.net>
+
+ Have 'last-change' accept a line number instead of a range
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-release-rev): Use new
+ signature.
+ * lisp/vc/vc-git.el (vc-git-last-change): Update signature
+ * lisp/vc/vc.el (vc-default-last-change): Update signature and use
+ 'annotate-command'.
+
+2022-10-30 Philip Kaludercic <philipk@posteo.net>
+
+ Display a message after installing source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack-1): Print message
+ and return t.
+
+2022-10-30 Philip Kaludercic <philipk@posteo.net>
+
+ Prefer "Package-Version" over "Version" if available
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-release-rev): Search for
+ both in sequence.
+
+2022-10-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/url/url-util.el (url-insert-entities-in-string): Simplify
+
+2022-10-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ dom-print: Fix missing entities quoting
+
+ Also use `?\s` for the space character.
+
+ * lisp/dom.el (dom-print): Properly quote special characters to avoid
+ generating invalid HTML/XML.
+ (dom-tag, dom-attributes, dom-children, dom-node)
+ (dom-add-child-before): Simplify.
+ (dom-set-attribute): Add at beginning rather than at end (slightly
+ more efficient and less destructive).
+
+2022-10-30 Stefan Kangas <stefankangas@gmail.com>
+
+ elide-head: Make trailing "/" in URL optional
+
+ * lisp/elide-head.el (elide-head-headers-to-hide): Make trailing
+ "/" in the gnu.org URL optional for the GPL.
+ * test/lisp/elide-head-tests.el
+ (elide-head--test-headers-to-hide/gpl3-5): New test.
+
+2022-10-30 Damien Cassou <damien@cassou.me>
+
+ Make previous-buffer and next-buffer repeatable
+
+ * lisp/bindings.el (buffer-navigation-repeat-map): Add new map.
+ * lisp/bindings.el (previous-buffer, next-buffer): Mark as
+ repeatable. (Bug#58800)
+
+2022-10-30 Philip Kaludercic <philipk@posteo.net>
+
+ Extract last source package release from local VCS data
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-archive-spec-alist):
+ Unmention :release-rev
+ (package-vc-desc->spec): Fall back on other archives if a
+ specification is missing.
+ (package-vc-main-file): Add new function, copying the behaviour of
+ elpa-admin.el.
+ (package-vc-generate-description-file): Use 'package-vc-main-file'.
+ (package-vc-unpack): Handle special value ':last-release'.
+ (package-vc-release-rev): Add new function using 'last-change'.
+ (package-vc-install): Pass ':last-release' as REV instead of a
+ release.
+ * lisp/vc/vc-git.el (vc-git-last-change): Add Git 'last-change'
+ implementation.
+ * lisp/vc/vc.el (vc-default-last-change): Add default 'last-change'
+ implementation.
+
+ This attempts to replicate the behaviour of elpa-admin.el's
+ "elpaa--get-last-release-commit".
+
+2022-10-30 Damien Cassou <damien@cassou.me>
+
+ Make winner key sequences repeatable in repeat-mode
+
+ * lisp/winner.el (winner-repeat-map): New variable.
+ (winner-undo, winner-redo): Put 'repeat-map' property with
+ 'winner-repeat-map'. (Bug#58799)
+
+2022-10-30 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in etags.el
+
+ * lisp/progmodes/etags.el (select-tags-table-mode-map): Prefer
+ defvar-keymap.
+
+2022-10-30 Visuwesh <visuweshm@gmail.com>
+
+ Fix set-language-info-alist when multiple PARENTS are given
+
+ * lisp/international/mule-cmds.el (set-language-info-setup-keymap):
+ Function factored out from...
+ (set-language-info-alist): ...here. Do not mess up the keymaps when
+ multiple parents are given in PARENTS. (Bug#58376)
+
+2022-10-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Minibuffer follows selected tabs (bug#58728)
+
+ (tab-bar-select-tab): Set set-window-configuration
+ arg DONT-SET-MINIWINDOW to t. Reselect the previously active minibuffer
+ and unselect unnecessarily selected minibuffer.
+ (tab-bar-history-back, tab-bar-history-forward): Set
set-window-configuration
+ arg DONT-SET-MINIWINDOW to t.
+
+2022-10-30 Po Lu <luangruo@yahoo.com>
+
+ Plug big leaks upon display IO error
+
+ Frame GCs are still leaked, but there is nothing that can be
+ done in that case because the display connection is dead.
+
+ * src/xterm.c (x_delete_terminal): Always free xkb desc and
+ modmap.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Separate python tree-sitter fontification into features
+
+ Level 1: comment string function-name class-name
+ Level 2: keyword builtin constant type
+ Level 3: assignment decorator escape-sequence string-interpolation
+
+ * lisp/progmodes/python.el (python--treesit-settings): Separate.
+ (python-mode): Set features.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Fix byte-compile warning in treesit.el
+
+ Originally treesit-simple-indent-presets was
+
+ '((parent-is . (lambda (type)
+ `(lambda (n p b)
+ (equal (treesit-node-type p)
+ ,type)))))
+
+ Then I changed it to
+
+ `((parent-is . ,(byte-compile
+ (lambda (type)
+ (lambda (n p b)
+ (equal (treesit-node-type p)
+ type))))))
+
+ but that generates "function already compiled" warning when
+ byte-compiling treesit.el. The latest form shouldn't have any problem
+ anymore.
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Change byte-compile
+ to plain evaluation.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Not return noindent in treesit-indent
+
+ * lisp/treesit.el (treesit-indent): Don't return noindent.
+ (treesit-defun-type-regexp): Return (nil . nil) rather than nil.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-node-top-level
+
+ Merge treesit-node-top-level-p and treesit--find-top-level-match into
+ treesit-node-top-level.
+
+ * doc/lispref/parsing.texi (Retrieving Node): Add manual entry for it.
+ * lisp/progmodes/js.el (js--treesit-imenu-1): Replace
+ treesit-node-top-level-p with treesit-node-top-level.
+ * lisp/treesit.el (treesit-node-top-level-p)
+ (treesit--find-top-level-match): Remove functions.
+ (treesit-node-top-level): New function.
+ * lisp/treesit.el (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Replace treesit--find-top-level-match with
+ treesit-node-top-level.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Reflect recent change in tree-sitter manual sections
+
+ * doc/lispref/modes.texi (Parser-based Font Lock):
+ treesit-font-lock-enable is replaced by treesit-major-mode-setup.
+ * doc/lispref/modes.texi (Parser-based Indentation): Mention
+ treesit-major-mode-setup,
+ * doc/lispref/parsing.texi (Tree-sitter major modes): Remove
+ treesit-mode and global-treesit-mode, explain setup guideline.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Fix parent-bol preset for tree-sitter indent
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Return point rather
+ than column.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Keep cursor position in treesit-indent
+
+ * lisp/treesit.el (treesit-indent): Create a marker and jump back to
+ that marker after indentation.
+
+2022-10-29 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from andreyorst/face-spec-set-third-argument
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1009
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Remove hack in js-mode's tree-sitter indentation rules
+
+ * lisp/progmodes/js.el (js--treesit-backward-up-list): Remove
+ function.
+ (js--treesit-indent-rules): Replace with new rule.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Refine handling of node at point in treesit-indent
+
+ * doc/lispref/modes.texi (Parser-based Indentation): Document the
+ semantic clearly.
+ * lisp/treesit.el (treesit-simple-indent-presets): Replace with
+ current-indentation.
+ (treesit--indent-1): Now NODE always starts at BOL, and parent is
+ always the smallest node above NODE that spans BOL.
+ (treesit-indent): Don't use save-excurtion, no one else does.
+
+2022-10-29 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-indent-region
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Remove extra comma.
+ (treesit--indent-1): Return (ANCHOR . OFFSET) instead of column.
+ (treesit-indent): Accept (ANCHOR . OFFSET) from treesit--indent-1.
+ (treesit--indent-region-batch-size): Reduce to 400.
+ (treesit-indent-region): Put a marker on each line's ANCHOR and
+ compute the indentation with ANCHOR + OFFSET. Precomputing column
+ gives wrong indentation when the ANHOR line doesn't have correct
+ indent yet.
+
+2022-10-29 Eli Zaretskii <eliz@gnu.org>
+
+ Set 'native-comp-debug' to zero on MS-Windows
+
+ * lisp/emacs-lisp/comp.el (native-comp-debug): Don't emit debug
+ symbols on MS-Windows. The default was originally made 1 because
+ without that, C backtraces on Windows would not show
+ natively-compiled functions correctly, or would even stop short of
+ reaching the topmost call frame. But that turned out to be due to
+ a bug in GDB, which was meanwhile fixed in GDB 12. So we can now
+ reset the value back to zero, and gain smaller *.eln files on
+ MS-Windows.
+
+2022-10-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in ps-mode.el
+
+ * lisp/progmodes/ps-mode.el (ps-mode-map, ps-run-mode-map): Prefer
+ defvar-keymap.
+
+2022-10-29 Alan Mackenzie <acm@muc.de>
+
+ Fix the subr-arity returned by native compiled functions with lots of
args
+
+ This fixes bug #58739. Make subr-arity return, e.g., (12 . 12) rather
than
+ (12 . many) for a function with a fixed number of arguments more than 8.
+
+ * lisp/emacs-lisp/comp.el (comp-prepare-args-for-top-level): Only
return a cdr
+ of 'many when there are &rest arguments.
+
+ * src/eval.c (eval_sub): Also check for a fixed number of args over 8
when
+ using the nargs + *args calling convention.
+ (funcall_subr): Also check numargs <= 8 before using the fixed args
calling
+ convention. Include the case numargs > 8 in the aMany calling
convention.
+
+ * src/lisp.h (DEFUN): Amend the comment about MANY.
+
+2022-10-29 Eli Zaretskii <eliz@gnu.org>
+
+ Make Dired header clickable on non-Posix systems as well
+
+ * lisp/dired.el (dired--make-directory-clickable): Support
+ MS-Windows and MS-DOS absolute directory names with drive letters
+ and UNCs. (Bug#21973)
+
+2022-10-29 Eli Zaretskii <eliz@gnu.org>
+
+ Display the Dired buffer as unmodified initially
+
+ * lisp/dired.el (dired-readin): Make sure a newly-created Dired
+ buffer is shown as unmodified. (Bug#58863)
+
+2022-10-29 Andrey Listopadov <andreyorst@gmail.com> (tiny change)
+
+ Allow passing the SPEC-TYPE argument via :custom-face
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1008
+
+2022-10-29 Po Lu <luangruo@yahoo.com>
+
+ Fix another GCC warning
+
+ * src/nsterm.m (ns_draw_glyphless_glyph_string_foreground): Fix
+ another compiler warning.
+
+2022-10-29 Po Lu <luangruo@yahoo.com>
+
+ Fix crash destroying NS frame tool bar
+
+ * src/nsterm.m (ns_draw_glyphless_glyph_string_foreground): Work
+ around silly GCC bug causing splurious warnings.
+ ([EmacsWindow dealloc]): Detach tool bar before dealloc'ing
+ window. (bug#58857)
+
+2022-10-29 Alan Mackenzie <acm@muc.de>
+
+ c-get-fontification-context: Refine the last non-default arm of the cond
+
+ This fixes bug #58772.
+
+ * lisp/progmodes/cc-fonts.el (c-get-fontification-context): Make the
function
+ return (decl . nil) when MATCH-POS is in the second paren list of
something
+ like DEFUN (..) (..). Tidy up untidy code with save-excursion's for
greater
+ accuracy. Set a c-type text property value c-decl-arg-start to speed up
+ future calls. Reindent the entire function.
+
+2022-10-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in help.el
+
+ * lisp/help.el (help-key): New function.
+ (help-map): Prefer defvar-keymap.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Remove test of treesit-language-at
+
+ Because now it just calls a user-supplied function rather than doing
+ any work by itself.
+
+ * test/src/treesit-tests.el (treesit-parser-supplemental): Remove the
+ test.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in page-ext.el
+
+ * lisp/textmodes/page-ext.el (pages--ctl-x-ctl-p-map)
+ (pages-directory-mode-map): Prefer defvar-keymap.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Byte-compile treesit-simple-indent-presets
+
+ * lisp/treesit.el (treesit-simple-indent-presets): Byte-compile these
+ functions.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Fix last change
+
+ * src/itree.c (struct itree_iterator):
+ (itree_iterator_next): Fix some fields and const confusion.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-indent-region
+
+ Now indenting a large buffer is reasonably fast.
+
+ * lisp/treesit.el (treesit-indent): Move meat to treesit--indent-1.
+ (treesit--indent-1)
+ (treesit-indent-region): New functions.
+ (treesit-major-mode-setup): Setup indent-region-function.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Fix function declarations in itree headers
+
+ * src/itree.h: Make all declarations `extern'.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Fix coding style of latest feature branch merge
+
+ * src/itree.c (interval_stack_ensure_space)
+ (interval_stack_push_flagged, struct itree_iterator)
+ (struct check_subtree_result, check_subtree, check_tree)
+ (itree_newlimit, interval_tree_inherit_offset)
+ (interval_tree_propagate_limit, itree_node_init, itree_node_begin)
+ (itree_node_end, itree_create, interval_tree_rotate_left)
+ (interval_tree_rotate_right, interval_tree_insert_fix)
+ (interval_tree_insert, itree_insert, itree_node_set_region)
+ (interval_tree_contains, interval_tree_subtree_min)
+ (interval_tree_remove_fix, interval_tree_replace_child)
+ (interval_tree_transplant, itree_remove, itree_iterator_start)
+ (itree_insert_gap, itree_delete_gap, interval_node_intersects)
+ (itree_iterator_next, itree_iterator_narrow): Tabify. Fix
+ comment and code coding style.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Include Cairo FreeType header when available
+
+ * src/xsettings.c: Include cairo-ft.h if CAIRO_HAS_FT_FONT.
+ (bug#58830)
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Make Emacs compile without tree-sitter library
+
+ * lisp/treesit.el: Add function declaration forms.
+ * src/emacs.c: Always include syms_of_treesit.
+
+2022-10-28 Theodor Thornhill <theo@thornhill.no>
+
+ Add in new font lock features in js/ts-mode
+
+ We want to support font lock features on the syntactic level, not only
+ the decoration-level level.
+
+ New supported features are:
+ - comment
+ - constant
+ - keyword
+ - string
+ - declaration
+ - identifier
+ - expression
+ - property
+ - pattern
+ - jsx
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings, js-mode): Add
+ in the new features.
+
+ * lisp/progmodes/ts-mode.el (ts-mode--indent-rules): Remove faulty '.'
+ anchor.
+
+ (ts-mode--font-lock-settings, ts-mode): Add in the new features.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ * configure.ac (emacs_config_features): Change to TREE_SITTER
+
+ Last commit on this line has a wrong changelog, the subject should be
+ emacs_config_features, not WINDOW_SYSTEM_OBJ.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix warning in xsettings.c
+
+ * src/xsettings.c [USE_CAIRO]: Include cairo-ft.h.
+ Thanks to Vincent Bernat <bernat@luffy.cx>.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Remove redundant requires from make-mode.el
+
+ * lisp/progmodes/make-mode.el (imenu, dabbrev, add-log): Remove
+ redundant requires.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Use new sit-for calling convention in zone.el
+
+ * lisp/play/zone.el (zone-exploding-remove): Don't use obsolete
+ calling convention for 'sit-for'.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Minor doc fixes in make-mode.el
+
+ * lisp/progmodes/make-mode.el:
+ (makefile-insert-macro, makefile-pickup-everything)
+ (makefile-backslash-region): Minor doc fixes.
+ (makefile-browse): Use substitute-command-keys.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in make-mode.el
+
+ * lisp/progmodes/make-mode.el (makefile-mode-map)
+ (makefile-browser-map): Prefer defvar-keymap.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer make-temp-name in make-mode.el
+
+ * lisp/progmodes/make-mode.el
+ (makefile-generate-temporary-filename): Make obsolete in favor of
+ 'make-temp-name'. Simplify.
+ (makefile-save-temporary): Don't use above obsolete function.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Ensure temp file is deleted in makefile overview
+
+ * lisp/progmodes/make-mode.el (makefile-create-up-to-date-overview):
+ Ensure temp file is always deleted.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 510020d30d ; Improve doc strings in whitespace.el
+
+ # Conflicts:
+ # lisp/whitespace.el
+
+2022-10-28 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from bhankas/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1007
+
+2022-10-28 Philip Kaludercic <philipk@posteo.net>
+
+ Explicitly handle :vc-backend in a package specification
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-archive-spec-alist):
+ Document the feature.
+ (package-vc-unpack): Check for :vc-backend in both PKG-SPEC and the
+ archive specification data.
+
+2022-10-28 Philip Kaludercic <philipk@posteo.net>
+
+ Ensure that package specifications are always fetched
+
+ * lisp/emacs-lisp/package-vc.el (package-vc--archives-initialize): Add
+ new function, extending 'package--archives-initialize'.
+ (package-vc-install): Use new function.
+ (package-vc-link-directory): Use new function.
+
+2022-10-28 Philip Kaludercic <philipk@posteo.net>
+
+ Allow specifying the VC backend used by 'package-vc-install'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-install): Add argument
BACKEND.
+
+2022-10-28 Philip Kaludercic <philipk@posteo.net>
+
+ Update handling for new elpa-packages.eld format
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-elpa-packages-version):
+ Add constant.
+ (package-vc-archive-data-alist): Add variable.
+ (package-vc--read-archive-data): Separate package specifications from
+ metadata.
+ (package-vc-unpack): Check archive metadata.
+
+2022-10-28 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fontify cast types without adding them to c-found-types
+
+ * lisp/progmodes/cc-engine.el (c-forward-type): Test for the special new
+ value `just-one' of c-promote-possible-types, and if found, fontify the
type,
+ but don't add it to c-found-types.
+ (c-forward-decl-or-cast-1): Add the new &optional parameter
inside-macro.
+ Whilst checking for a cast construct, analyze the text following the
closing
+ paren more rigorously.
+ Check for, and allow, the closing paren of a macro arglist before the
putative
+ cast construct.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-declarations): In the lambda
+ function, pass the parameter inside-macro to c-forward-decl-or-cast-1.
+
+ * lisp/progmodes/cc-langs.el (c-primary-expr-regexp-details): New
+ c-lang-defvar which calculates `c-primary-expr-regexp' and three match
+ numbers for various sub-expressions in the regexp.
+ (c-primary-expr-regexp): Now extracted from
`c-primary-expr-regexp-details'.
+ (c-per-++---match, c-per-&*+--match, c-per-\(-match): New
+ c-lang-defconsts/vars extracted from `c-primary-expr-regexp-details'.
+
+2022-10-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cconv.el: Fix regression in cconv-tests-interactive-closure-bug51695
+
+ The new code to make interpreted closures safe-for-space introduced
+ a regression in `cconv-tests-interactive-closure-bug51695`, only seen
+ when using TEST_LOAD_EL.
+ A few other issues were found and fixed along the way.
+
+ * lisp/emacs-lisp/cconv.el (cconv-fv): Change calling convention and
+ focus on finding the free variables.
+ (cconv-make-interpreted-closure): New function.
+
+ * lisp/loadup.el: Use `compiled-function-p` rather than
+ `byte-code-function-p` so we also use safe-for-space interpreted
+ closures when we build with native compilation.
+ (internal-make-interpreted-closure-function):
+ Use `cconv-make-interpreted-closure`.
+
+ * src/eval.c (syms_of_eval): Rename
`internal-filter-closure-env-function`
+ to `internal-make-interpreted-closure-function`.
+ (Ffunction): Let that new var build the actual closure.
+
+ * test/lisp/emacs-lisp/cconv-tests.el
+ (cconv-tests-interactive-closure-bug51695): Test specifically the
+ interpreted case.
+
+2022-10-28 Jonas Bernoulli <jonas@bernoul.li>
+
+ * lisp/transient.el: Update to package version v0.3.7-173-g81b29ca
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Improve Drag and Drop preamble in the Lisp reference manual
+
+ * doc/lispref/frames.texi (Drag and Drop): Reword contents and
+ clear up some ambiguities and redundancies.
+
+2022-10-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Minor doc fixes in treesit.el
+
+ * lisp/treesit.el (treesit-font-lock-rules)
+ (treesit-font-lock-settings): Minor doc fixes.
+
+2022-10-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/re-builder.el: Cosmetic changes
+
+ (reb-valid-string): Declare it risky so the mode-line will obey its
+ text-properties.
+ (reb-lisp-syntax-p): No need to make it `defsubst`.
+ (reb-target-value): New function to replace the
+ `reb-target-binding` macro. Adjust all callers.
+ (reb-auto-update): Give a more informative error message than just
+ "invalid" and give it a warning face.
+ (reb-update-regexp): Always update `reb-regexp-src` (it's harmless),
+ rather than only when it's necessary (reduces the need for advice in
pcre.el).
+
+2022-10-28 Jonas Bernoulli <jonas@bernoul.li>
+
+ Include more information in error data for sqlite errors
+
+ Introduce a new 'sqlite-error' and use it for all errors signaled in
+ 'src/sqlite.c', except those that already used 'sqlite-locked-error'.
+ Include the values of 'sqlite3_errcode', 'sqlite3_extended_errcode',
+ 'sqlite3_errstr' and 'sqlite3_errmsg' in the error data.
+
+ * src/sqlite.c (load_dll_functions): Load 'sqlite3_extended_errcode'.
+ (sqlite-load-extension): Use 'xsignal1' as required by argument type.
+ (syms_of_sqlite): Introduce a new error type 'sqlite-error'.
+ (check_sqlite, sqlite-open, bind_values, sqlite-execute)
+ (sqlite-select, sqlite-load-extension, sqlite-next): Use it.
+ (sqlite_prepare_errdata): New function.
+ (sqlite_prepare_errmsg): Remove function.
+ (sqlite-execute, sqlite-select): Use new function.
+ (sqlite-locked-error): Derive from 'sqlite-error'.
+
+2022-10-28 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix wrong fontification of enum foo bar; in Objective C Mode
+
+ This fixes bug #58795 and bug #58796.
+
+ * lisp/progmodes/cc-langs.el (c-type-prefix-kwds): Add the missing
entry for
+ objc.
+
+2022-10-28 Payas Relekar <relekarpayas@gmail.com>
+
+ Bump version to 2.4.3
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Simplify scroll valuator reset handling
+
+ * src/xterm.c (xi_populate_device_from_info)
+ (xi_reset_scroll_valuators_for_device_id, xi_handle_device_changed)
+ (handle_one_xevent):
+ * src/xterm.h (struct xi_scroll_valuator_t): Get rid of
+ `pending_enter_reset', which was extremely convoluted and kept
+ hitting server bugs. Now, valuators are reset upon all crossing
+ events.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Clean up some xwidgets code
+
+ * src/xterm.c (handle_one_xevent): [HAVE_XWIDGETS]: Fix coding
+ style and remove extra ifdefs. Also avoid redundant frame
+ lookups in some cases.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Fix Haiku subprocess support
+
+ * src/callproc.c: Disable posix_spawn on Haiku until some things
+ are fixed.
+
+2022-10-28 Po Lu <luangruo@yahoo.com>
+
+ Fix build without Cairo FreeType and fontconfig support
+
+ * src/xsettings.c (apply_xft_settings): Don't enable Xft code
+ unless Cairo FreeType support is present. (bug#58830)
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Reflect tree-sitter indent rule presets change in manual
+
+ * doc/lispref/modes.texi (Parser-based Indentation): String
+ equivalence checks are changed to regexp matching.
+
+2022-10-28 Theodor Thornhill <theo@thornhill.no>
+
+ Improve tree-sitter indent rules in ts-mode and js-mode
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules)
+ * lisp/progmodes/ts-mode.el (ts-mode--indent-rules): Add more rules.
+ (ts-mode): Create parser.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Add some js-mode tree-sitter indent rules
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Add rules and a let
+ form.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ Remove tree-sitter-indent's integration with cc-mode
+
+ Also minor improvement of tree-sitter-indent error messaging.
+
+ * lisp/progmodes/js.el (js--treesit-indent-rules): Fix it so it works
+ with the new presets (which expects regexps).
+ (js--treesit-cc-indent-rules): Remove variable.
+ (js-mode): Go back to js--treesit-indent-rules.
+ * lisp/treesit.el (treesit-indent): Don't report error message when
+ ANCHOR or OFFSET is nil: let treesit-simple-indent display the
+ message.
+ (treesit-simple-indent): Remove cc-mode integration. Display error
+ message when no rules matches.
+
+2022-10-28 Yuan Fu <casouri@gmail.com>
+
+ * configure.ac (WINDOW_SYSTEM_OBJ): Move tree-sitter placement.
+
+2022-10-28 Wamm K. D <jaft.r@outlook.com>
+
+ Fix failing test for package Hierarchy
+
+ This fixes a typo in one of the tests of Hierarchy which was causing
+ the test to fail.
+ * test/lisp/emacs-lisp/hierarchy-tests.el (hierarchy-delayed-add-trees):
+ Fix typo.
+
+2022-10-28 Vincent Bernat <bernat@luffy.cx> (tiny change)
+
+ Fix detection of DPI changes in builds without Xft
+
+ * src/xsettings.c (apply_xft_settings) [!HAVE_XFT]: Support
+ XSETTINGS changes in non-XFT builds. (Bug#43128)
+
+2022-10-28 Payas Relekar <relekarpayas@gmail.com>
+
+ bind-key.el: Bump version for ELPA
+
+2022-10-28 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update to modus-themes version 3.0.0
+
+ * doc/misc/modus-themes.org
+ (Option for red-green color deficiency or deuteranopia)
+ (Option for more bold constructs, Option for more italic constructs)
+ (Option for font mixing, Option for box buttons)
+ (Option for mode line presentation)
+ (Option for accented background in tab interfaces)
+ (Option for completion framework aesthetics, Option for mail citations)
+ (Option for line numbers, Option for mouseover effects)
+ (Option for diff buffer looks, Option for org-mode block styles)
+ (Option for Org agenda constructs)
+ (Option for the headings' overall style)
+ (Option for variable-pitch font in UI elements, Note on SHR fonts):
+ Revise markup of "non-nil" so that it is rendered properly in texinfo.
+
+ (Option for fringe visibility, Option for line highlighting): Reword
+ description of user option.
+
+ (Full support for packages or face groups): Update list of supported
+ packages or face groups.
+
+ (Note on ERC escaped color sequences)
+ (What is the best setup for legibility?)
+ (Port the Modus themes to other platforms?): Prefer American English.
+
+ (Note on pdf-tools link hints): Use double spacing between sentences
+
+ (Acknowledgements): Update list of names that have contributed to the
+ project, which was user feedback in this case.
+
+ * etc/themes/modus-themes.el (modus-themes, modus-themes-faces):
+ Reword doc string.
+ (modus-themes--version): Update to current version.
+ (modus-themes-version): Refine function definition.
+ (modus-themes-completion-standard-first-match)
+ (modus-themes-completion-standard-selected)
+ (modus-themes-completion-extra-selected)
+ (modus-themes-completion-key-binding, modus-themes-intense-markup)
+ (modus-themes--heading-weights, modus-themes--completion): Delete
+ obsolete forms, which were deprecated many months/version ago.
+ (modus-themes-fringes, modus-themes-completions)
+ (modus-themes-hl-line): Update default value and reword doc string
+ accordingly.
+ (modus-themes-faces): Update list of supported faces and their
+ attributes.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Update version header.
+
+ Complete release notes:
<https://protesilaos.com/codelog/2022-10-28-modus-themes-3-0-0/>.
+
+2022-10-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from andreyorst/face-spec-set
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1004
+
+2022-10-27 Wamm K. D <jaft.r@outlook.com>
+
+ Allow Hierarchy to delay computation of children
+
+ This adds an option to allow callers to specify that computing
+ the children of the hierarchy should be delayed to when the
+ user calls for them, by utilizing the tree-widget :expander
+ property.
+ * lisp/emacs-lisp/hierarchy.el (hierarchy-add-tree)
+ (hierarchy-add-trees): Add parameter 'delay-children-p'.
+ * lisp/emacs-lisp/hierarchy.el
+ (hierarchy--create-delayed-tree-widget): Add function.
+ * lisp/emacs-lisp/hierarchy.el (hierarchy-convert-to-tree-widget):
+ Utilize ':expander' if delaying children. (Bug#55900)
+
+ * test/lisp/emacs-lisp/hierarchy-tests.el: Add tests for
+ delayed-children functionality.
+
+2022-10-27 kobarity <kobarity@gmail.com>
+
+ Disable completion/ElDoc/FFAP when Python program is running
+
+ * lisp/progmodes/python.el (python-completion-at-point)
+ (python-ffap-module-path, python-eldoc--get-doc-at-point): Add check
+ using `python-util-comint-end-of-output-p'.
+ (python-util-comint-end-of-output-p): New function.
+ * test/lisp/progmodes/python-tests.el
(python-tests-shell-wait-for-prompt):
+ Use `python-util-comint-end-of-output-p'.
+ (python-completion-at-point-while-running-1)
+ (python-ffap-module-path-1)
+ (python-ffap-module-path-while-running-1)
+ (python-eldoc--get-doc-at-point-1)
+ (python-eldoc--get-doc-at-point-while-running-1): New tests.
+ (Bug#58713)
+
+2022-10-27 Andrea Monaco <andrea.monaco@autistici.org>
+
+ Allow applying Rmail summary filters consecutively
+
+ * lisp/mail/rmailsum.el (rmail-summary-currently-displayed-msgs):
+ New variable.
+ (rmail-summary-apply-filters-consecutively): New user option.
+ (rmail-summary-fill-displayed-messages, rmail-summary-negate): New
+ functions.
+ (rmail-summary-by-labels, rmail-summary-by-recipients)
+ (rmail-summary-by-regexp, rmail-summary-by-topic)
+ (rmail-summary-by-senders): Obey
+ 'rmail-summary-apply-filters-consecutively'.
+ KEEP-FILTERING, to narrow the existing filtered summary.
+
+ * etc/NEWS: Announce the change.
+
+2022-10-27 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Allow applying filters to summary consecutively"
+
+ This reverts commit c8b9ba5fa1bf3a20b9b08a553ad088ca33f3d1ba.
+
+2022-10-27 Andrea Monaco <andrea.monaco@autistici.org>
+
+ Allow applying filters to summary consecutively
+
+ * lisp/mail/rmailsum.el (rmail-summary-currently-displayed-msgs):
+ New variable.
+ (rmail-summary-fill-displayed-messages, rmail-summary-negate): New
+ functions.
+ (rmail-summary-by-labels, rmail-summary-by-recipients)
+ (rmail-summary-by-regexp, rmail-summary-by-topic)
+ (rmail-summary-by-senders): Accept an additional argument
+ KEEP-FILTERING, to narrow the existing filtered summary.
+
+ * etc/NEWS: Announce the change.
+
+2022-10-27 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid recentering when point enters invisible text at BOL
+
+ * src/xdisp.c (try_cursor_movement): Don't say we must scroll when
+ point is inside invisible text at beginning of a glyph row.
+ (Bug#58793)
+
+2022-10-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Minor copy-edits in tree-sitter docs
+
+ * doc/lispref/parsing.texi (Parsing Program Source): Improve wording.
+
+2022-10-27 Po Lu <luangruo@yahoo.com>
+
+ Fix reporting of iconic state on old window managers
+
+ * src/xterm.c (x_handle_wm_state): Handle IconicState if the
+ window manager does not support _NET_WM_STATE_HIDDEN.
+
+2022-10-27 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Fix auto-insert-alist ada-mode entry to match current ELPA ada-mode
+
+2022-10-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from bhankas/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1006
+
+2022-10-26 Payas Relekar <relekarpayas@gmail.com>
+
+ Update version to 2.4.2
+
+ In preparation for inclusion to GNU ELPA.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ Plug tree-sitter-simple-indent into c-offset-alist
+
+ Now tree-sitter indentation can produce a cc-engine syntax symbol and
+ use c-offset-alist to compute the offset. Catch: line-up functions
+ don't work with tree-sitter.
+
+ * lisp/progmodes/js.el (js--treesit-cc-indent-rules): New variable.
+ (js-mode): Use cc-indent rules by default.
+ * lisp/treesit.el (treesit-simple-indent-presets): Consider types as
+ regexp now. New matchers: n-p-gp, field-is, top-level, catch-all.
+ New anchors: nth-sibling, grand-parent, and, or, not, list.
+ first-sibling now returns the actual first sibling rather than the
+ first named sibling.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-node-top-level-p): New argument TYPE.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ Generalize js--treesit-imenu-top-level-p
+
+ * lisp/progmodes/js.el (js--treesit-imenu-top-level-p): Move.
+ (js--treesit-font-lock-settings): Fix usage.
+ * lisp/treesit.el (treesit-node-top-level-p): Move to here.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter navigation support to python-mode
+
+ * lisp/progmodes/python.el (python-mode): Set
+ treesit-defun-type-regexp.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter imenu support for js-mode and ts-mode
+
+ js-mode's current imenu is pretty plain and incomplete, so I took the
+ liberty to add a bit more flair to it.
+
+ * lisp/progmodes/js.el (js--treesit-imenu-type-alist): New variable.
+ (js--treesit-imenu-top-level-p)
+ (js--treesit-imenu-label)
+ (js--treesit-imenu-1)
+ (js--treesit-imenu): New functions.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter navigation
+
+ * lisp/treesit.el (treesit-search-forward-goto): Track current
+ position with a local variable instead of (point). Clean up the
+ condition forms.
+ (treesit-beginning-of-defun): Fix traverse direction.
+
+2022-10-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix typo in textsec-restriction-level
+
+ * lisp/international/textsec.el (textsec-restriction-level):
+ * test/lisp/international/textsec-tests.el (test-restriction-level):
+ Fix typo in symbol name `moderately-restrictive'.
+
+2022-10-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Declare variable Info-minibuf-history
+
+ * lisp/info.el (Info-minibuf-history): Declare variable.
+ (Bug#58786)
+
+2022-10-26 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from bhankas/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/1005
+
+2022-10-26 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Compare addresses case-insensitively in
message-update-smtp-method-header
+
+ * lisp/gnus/message.el (message-update-smtp-method-header): Compare
+ addresses case-insensitively.
+
+2022-10-26 Alan Mackenzie <acm@muc.de>
+
+ c-find-decl-spots: Replace an arbitrary search limit by a parameter
+
+ The old arbitrary limit led to errors thrown whilst fontifying large
areas of
+ syntactic whitespace containing "#undef", as in src/comp.c.
+
+ * lisp/progmodes/cc-engine.el (c-find-decl-spots): Replace the limit
argument
+ to two calls of c-forward-syntactic-ws by the parameter `cfd-limit'.
+
+2022-10-26 Mauro Aranda <maurooaranda@gmail.com>
+
+ Make completion-category-overrides choices dynamic
+
+ See https://lists.gnu.org/archive/html/emacs-devel/2022-10/msg01969.html
+
+ * lisp/minibuffer.el (completion--update-styles-options): New internal
+ function.
+
+ (completion--styles-type): Use it.
+
+2022-10-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix rare problems with current-column when text is invisible
+
+ * src/indent.c (scan_for_column, compute_motion): Don't miss
+ compositions when the position to check for composition happens to
+ be inside invisible text. (Bug#58791)
+
+2022-10-26 Po Lu <luangruo@yahoo.com>
+
+ Prevent gui_consider_frame_title from restoring dead top frames
+
+ * src/xdisp.c (unwind_format_mode_line): Check that
+ old_top_frame is live before selecting it. It could have been
+ deleted, which leads to signals when the post-command-hook
+ installed by xterm-set-window-title runs upon the last frame of
+ a terminal being deleted.
+ (gui_consider_frame_title): Rearrange code to be more
+ understandable.
+
+2022-10-26 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Pacify recent unused/ignored lexvar warnings
+
+ Lexvars with special names like 'ignored' or 'unused' are no longer
+ treated specially.
+
+ * lisp/ansi-color.el (ansi-color-process-output):
+ * lisp/cus-edit.el (customize-apropos-options):
+ * lisp/cus-theme.el (customize-create-theme):
+ * lisp/dired-aux.el (dired-hide-all):
+ * lisp/emacs-lisp/crm.el (crm--choose-completion-string):
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-revert):
+ * lisp/ido.el (ido-choose-completion-string):
+ * lisp/international/mule-diag.el (describe-font-internal):
+ * lisp/mail/sendmail.el (sendmail-user-agent-compose):
+ * lisp/progmodes/fortran.el (fortran-uncomment-region):
+ * lisp/progmodes/prolog.el (prolog-inferior-guess-flavor):
+ * lisp/progmodes/ruby-mode.el (ruby-indent-line, ruby-indent-exp):
+ * lisp/url/url.el (url-mm-callback):
+ * lisp/xwidget.el (xwidget-webkit-history-reload): Prepend an
+ underscore to unused function parameter names.
+ * lisp/emacs-lisp/cconv.el (cconv--dummy-var): Remove unused
+ constant.
+ * lisp/files.el (hack-local-variables-filter): Remove unused lexvar.
+
+2022-10-26 Po Lu <luangruo@yahoo.com>
+
+ Clean up some event handling code
+
+ * src/xterm.c (handle_one_xevent): Use dpyinfo where
+ FRAME_DISPLAY_INFO could be substituted for it.
+
+2022-10-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Modernize `auto-revert-notify-exclude-dir-regexp'
+
+ * lisp/autorevert.el (auto-revert-notify-exclude-dir-regexp): Use `rx'
+ and `mounted-file-systems'.
+
+2022-10-26 Mattias Engdegård <mattiase@acm.org>
+
+ Dynamic validation of styles in completion-category-overrides
+
+ The type of the defcustom completion-category-overrides must be able
+ to accommodate dynamic changes to completion-styles-alist, because
+ some packages (eglot) make their own additions.
+
+ This change fixes a failure in test-custom-opts. See discussion at:
+ https://lists.gnu.org/archive/html/emacs-devel/2022-10/msg01969.html
+
+ * lisp/minibuffer.el (completion--styles-type):
+ Add an "Other" case that accepts any symbol which is then validated
+ dynamically against completion-styles-alist.
+
+2022-10-26 Philip Kaludercic <philipk@posteo.net>
+
+ Add support for :release-rev in 'package-vc-archive-spec-alist'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-archive-spec-alist):
+ Update docstring.
+ (package-vc-install): Use :release-rev if invoked with a prefix
argument.
+
+2022-10-26 Philip Kaludercic <philipk@posteo.net>
+
+ Allow nil as a valid value for 'ecomplete-filter-regexp'
+
+ * lisp/ecomplete.el (ecomplete-filter-regexp): Replace user option type.
+
+ Reported by Mattias Engdegård.
+
+2022-10-26 Po Lu <luangruo@yahoo.com>
+
+ Fix Haiku build for recent changes to system headers
+
+ * src/callproc.c (emacs_posix_spawn_init_actions): Do not use
+ posix_spawn_file_actions_addchdir on Haiku; it links but does
+ not work.
+
+2022-10-26 Andrea Corallo <andrea.corallo@arm.com>
+
+ Set `comp-no-spawn' earlier using -no-comp-spawn
+
+ * src/emacs.c (standard_args): Add '-no-comp-spawn' cmd line option.
+ * lisp/startup.el (command-line): Parse '-no-comp-spawn' cmd line
+ option.
+ * lisp/emacs-lisp/comp.el (comp-run-async-workers, comp-final):
+ Use '-no-comp-spawn'.
+
+2022-10-26 Yuan Fu <casouri@gmail.com>
+
+ * src/treesit.c (treesit_search_dfs): Fix traverse algorithm.
+
+2022-10-25 Yuan Fu <casouri@gmail.com>
+
+ * src/treesit.c (treesit_search_forward): Fix traverses algorithm.
+
+2022-10-25 Yuan Fu <casouri@gmail.com>
+
+ Don't disable parse cache in tree-sitter activated js-mode
+
+ * lisp/progmodes/js.el (js-mode): Move parse cache setup back.
+
+2022-10-25 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-simple-indent-rules): Make buffer-local.
+
+2022-10-25 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-language-at
+
+ * lisp/treesit.el (treesit-language-at-point-function): New local
+ variable.
+ (treesit-language-at): Change to use
+ treesit-language-at-point-function rather than trying each parser
+ one-by-one.
+ * doc/lispref/parsing.texi (Multiple Languages): Update manual.
+
+2022-10-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ vc-hg-checkin-patch: Add implementation for Hg
+
+ * lisp/vc/vc-hg.el (vc-hg-checkin-patch): Add Hg-specific
+ implementation (bug#52349), like suggested in
+ https://lists.gnu.org/archive/html/emacs-devel/2022-10/msg01533.html.
+ (vc-hg--extract-headers): Extract from vc-hg-checkin.
+
+2022-10-25 Yuan Fu <casouri@gmail.com>
+
+ New tree-sitter toggle scheme
+
+ This version: central variable, everything controlled by
+ treesit-settings. Major mode sets up tree-sitter/non-tree-sitter
+ in a conditional branch, based on the setting.
+
+ * lisp/treesit.el (treesit-settings): New option.
+ (treesit-defun-type-regexp): Change docstring.
+ (treesit-mode-supported)
+ (treesit-required-languages)
+ (treesit--local-variable-backup): Remove variables.
+ (treesit--backup-local-variable)
+ (treesit-mode)
+ (global-treesit-mode--turn-on)
+ (global-treesit-mode): Remove functions.
+ (treesit--setting-for-mode): New function.
+ (treesit-ready-p): New argument MODE, changed REPORT to QUIET, and
+ LANGUAGEs to LANGUAGE (now it can be a single symbol or a list of
+ them).
+ (treesit-major-mode-setup): New function. Mostly comes from
+ treesit-mode.
+
+ * test/src/treesit-tests.el (treesit-misc): New test.
+
+ * lisp/progmodes/python.el (python-mode): Move some setup code into
+ the conditional branch at the end.
+
+ * lisp/progmodes/js.el (js-json-mode)
+ (js-mode): Move some setup code into the conditional branch at the
+ end.
+
+ * lisp/progmodes/ts-mode.el: Move tree-sitter setup into the
+ conditional branch.
+
+2022-10-25 Andreas Schwab <schwab@linux-m68k.org>
+
+ Ignore non-base64 junk when decoding MIME
+
+ * src/fns.c (Fbase64_decode_region): Add optional argument
+ IGNORE-INVALID and pass down to base64_decode_1.
+ (Fbase64_decode_string): Likewise.
+ (base64_decode_1): Add argument IGNORE_INVALID.
+ * doc/lispref/text.texi (Base 64): Document them.
+ * lisp/gnus/mm-bodies.el (mm-decode-content-transfer-encoding):
+ Ignore any junk when decoding base64.
+
+2022-10-25 João Guerra <joca.bt@gmail.com> (tiny change)
+
+ * lisp/tab-line.el (tab-line-auto-hscroll): Set word-wrap to nil
(bug#58740).
+
+2022-10-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (Ffunction): Make interpreted closures safe for space
+
+ Interpreted closures currently just grab a reference to the complete
+ lexical environment, so (lambda (x) (+ x y)) can end up looking like
+
+ (closure ((foo ...) (y 7) (bar ...) ...)
+ (x) (+ x y))
+
+ where the foo/bar/... bindings are not only useless but can prevent
+ the GC from collecting that memory (i.e. it's a representation that is
+ not "safe for space") and it can also make that closure "unwritable"
+ (or more specifically, it can cause the closure's print
+ representation to be u`read`able).
+
+ Compiled closures don't suffer from this problem because `cconv.el`
+ actually looks at the code and only stores in the compiled closure
+ those variables which are actually used.
+
+ So, we fix this discrepancy by letting the existing code in `cconv.el`
tell
+ `Ffunction` which variables are actually used by the body of the
+ function such that it can filter out the irrelevant elements and
+ return a closure of the form:
+
+ (closure ((y 7)) (x) (+ x y))
+
+ * lisp/loadup.el: Preload `cconv` and set
+ `internal-filter-closure-env-function` once we have a usable `cconv-fv`.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-preprocess): Adjust to new
+ calling convention of `cconv-closure-convert`.
+ (byte-compile-not-lexical-var-p): Delete function, moved to `cconv.el`.
+ (byte-compile-bind): Use `cconv--not-lexical-var-p`.
+
+ * lisp/emacs-lisp/cconv.el (cconv--dynbound-variables): New var.
+ (cconv-closure-convert): New arg `dynbound-vars`
+ (cconv--warn-unused-msg): Remove special case for `ignored`,
+ so we don't get confused when a function uses an argument called
+ `ignored`, e.g. holding a list of things that it should ignore.
+ (cconv--not-lexical-var-p): New function, moved from `bytecomp.el`.
+ Don't special case keywords and `nil` and `t` since they are already
+ `special-variable-p`.
+ (cconv--analyze-function): Use `cconv--not-lexical-var-p`.
+ (cconv--dynbindings): New dynbound var.
+ (cconv-analyze-form): Use `cconv--not-lexical-var-p`.
+ Remember in `cconv--dynbindings` the vars for which we used
+ dynamic scoping.
+ (cconv-analyze-form): Use `cconv--dynbound-variables` rather than
+ `byte-compile-bound-variables`.
+ (cconv-fv): New function.
+
+ * src/eval.c (Fsetq, eval_sub): Remove optimization designed when
+ `lexical-binding == nil` was the common case.
+ (Ffunction): Use `internal-filter-closure-env-function` when available.
+ (eval_sub, Ffuncall): Improve error info for `excessive_lisp_nesting`.
+ (internal-filter-closure-env-function): New defvar.
+
+2022-10-25 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Move required options out of ldap-ldapsearch-args
+
+ * lisp/net/ldap.el (ldap-ldapsearch-args, ldap-search-internal): Move
+ "-LLL" and "-tt" options as they're required for the code to work
+ properly.
+
+2022-10-25 Stefan Kangas <stefankangas@gmail.com>
+
+ eglot: Prefer ensure-list on Emacs 28 or later
+
+ * lisp/progmodes/eglot.el (eglot--ensure-list): Make into alias
+ for 'ensure-list' on Emacs 28 or later.
+
+2022-10-25 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle context changes in Tramp kubernetes method
+
+ * doc/misc/tramp.texi (Inline methods): Remove note about cache reset.
+ (File name completion): Add tramp-completion-use-cache.
+
+ * etc/NEWS: Add 'tramp-completion-use-cache'.
+
+ * lisp/net/tramp-cache.el (tramp-completion-use-cache): New defcustom.
+ (tramp-parse-connection-properties): Use it.
+
+ * lisp/net/tramp-container.el (tramp-docker--completion-function)
+ (tramp-kubernetes--completion-function): Ensure the processes run
+ locally.
+ (tramp-kubernetes--current-context-data): New defun.
+ (tramp-methods) <kubernetes>: Add `tramp-config-check'.
+
+ * lisp/net/tramp-sh.el (tramp-open-connection-setup-interactive-shell):
+ Handle `tramp-login-args'.
+
+ * lisp/net/tramp.el (tramp-methods): Adapt docstring.
+
+2022-10-25 Payas Relekar <relekarpayas@gmail.com>
+
+ Update copyright for submission to ELPA
+
+ - Update year to 2022
+ - Set copyright to Free Software Foundation, Inc.
+
+2022-10-25 Robert Pluim <rpluim@gmail.com>
+
+ Fix eglot defcustom types
+
+ * lisp/progmodes/eglot.el (eglot-autoreconnect): Allow for 'nil'.
+ (eglot-connect-timeout): Allow for 'nil' and add descriptions.
+ (eglot-sync-connect): Split boolean into 'nil' and 't' and add
descriptions.
+ (eglot-confirm-server-initiated-edits): Change 'symbol' type to 'const'.
+
+2022-10-25 Alan Mackenzie <acm@muc.de>
+
+ Test face name variables are bound before using them in cc-fonts.el
+
+ This fixes bug #58641.
+
+ Also, set c-reference-face-name to font-lock-constant face in
preference to
+ c-label-face-name.
+
+ * lisp/progmodes/cc-fonts.el (c-preprocessor-face-name,
c-label-face-name)
+ (c-constant-face-name, c-reference-face-name): Test variables with the
same
+ name as font-lock faces are bound before accessing their values.
+ (c-reference-face-name): Use font-lock-constant face in preference to
+ c-label-face-name.
+
+2022-10-25 Robert Pluim <rpluim@gmail.com>
+
+ * lisp/progmodes/eglot.el: Remove not very funny joke.
+
+2022-10-25 Lin Sun <sunlin7@hotmail.com>
+
+ lisp.h: Remove unnecessary preprocessor conditions
+
+ This removes the HAVE_PDUMPER || HAVE_UNEXEC condition
+ of gflags.will_dump_, which gets in the way when Emacs
+ is built without any dumping method. (Bug#58708)
+
+2022-10-25 Po Lu <luangruo@yahoo.com>
+
+ Fix drag-and-drop bugs on Lucid build
+
+ Also, optimize Fx_translate_coordinates to avoid excessive calls
+ to _XReply.
+
+ * lisp/x-dnd.el (x-dnd-get-drop-rectangle): Return empty drop
+ rectangle if posn-area.
+ * src/xfns.c (Fx_translate_coordinates): Accept arg
+ `require_child'. If not set, allow optimizations based on
+ cached position data.
+ * src/xselect.c (x_handle_dnd_message): Use
+ x_translate_coordinates.
+ * src/xterm.c (x_translate_coordinates): Export function.
+ (x_handle_translate_coordinates): New function.
+ (handle_one_xevent): Fix coding style.
+ * src/xterm.h: Update prototypes.
+
+2022-10-25 Brian Leung <leungbk@posteo.net>
+
+ eglot-server-programs: Account for new ts-mode
+
+ At the time of writing, this exists only in the unmerged tree-sitter
+ branch. It is not harmful to include, however.
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add new major mode
+ to be used with the typescript-language-server. (Bug#58769)
+
+2022-10-25 Brian Leung <leungbk@posteo.net>
+
+ eglot-server-programs: Account for new js-json-mode
+
+ js-json-mode derives from js-mode, so this reordering is necessary to
+ prevent js-mode's eglot server from starting if a user has something
+ like this in their config:
+
+ (add-to-hook 'js-json-mode #'eglot-ensure)
+ (add-to-hook 'js-mode #'eglot-ensure)
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Move the
+ json-language-server info before the entry for js-mode, and add on
+ js-json-mode. (Bug#58769)
+
+2022-10-25 Robert Pluim <rpluim@gmail.com>
+
+ Improve the eglot info documentation
+
+ * doc/misc/eglot.texi (Eglot and Buffers): Improve phrasing.
+ (Eglot Commands): 'reference of' -> 'reference for' and a typo fix.
+ (Eglot Variables): Add markup for values.
+ (Customizing Eglot): Grammar fixes.
+ (Troubleshooting Eglot): Improve text.
+
+2022-10-25 João Távora <joaotavora@gmail.com>
+
+ Fix M-x eglot breakage due to typo
+
+ * lisp/progmodes/eglot.el (eglot): Fix bug.
+
+2022-10-25 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ * lisp/progmodes/eglot.el (eglot): Ensure managed-major-mode is a list
+
+2022-10-24 Yuan Fu <casouri@gmail.com>
+
+ * lisp/progmodes/ts-mode.el (ts-mode): Fix font-lock setup.
+
+2022-10-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/compile.el (compilation-mode-line-errors): Use `defvar`
+
+ This is not really a constant, e.g. it's modified in `grep.el`.
+
+2022-10-24 Eli Zaretskii <eliz@gnu.org>
+
+ Unbreak the build broken by tab-bar.el changes
+
+ Without this change, compiling tab-bar.el errors out:
+ In tab-bar--load-buttons:
+ tab-bar.el:161:18: Warning: reference to free variable `tab-bar-new'
+ tab-bar.el:174:6: Error: `define-icon' defined after use in
+ (define-icon tab-bar-close nil (cons (cons 'image
+ (cons "tabs/close.xpm"
+ (cons :margin (cons tab-bar-button-margin '(:ascent center)))))
+ '((text " x"))) "Icon for closing the clicked tab."
+ :version "29.1" :help-echo "Click to close tab")
+ (missing `require' of a library file?)
+ tab-bar.el:174:18: Warning: reference to free variable `tab-bar-close'
+ * lisp/tab-bar.el (eval-when-compile): Require 'icons.
+
+2022-10-24 Mattias Engdegård <mattiase@acm.org>
+
+ * doc/lispref/searching.texi (Rx Constructs): Elaborate intent.
+
+ Suggested by Michael Heerdegen (bug#58727).
+
+2022-10-24 Po Lu <luangruo@yahoo.com>
+
+ Fix focus stealing in the Emacs server for old window managers
+
+ * src/xterm.c (x_focus_frame): Apply focus stealing preference
+ to non-EWMH focus as well. Otherwise frames get raised but not
+ focused.
+
+2022-10-24 Mattias Engdegård <mattiase@acm.org>
+
+ Clarify RX... semantics in manual (bug#58727)
+
+ Suggested by Michael Heerdegen.
+
+ * doc/lispref/searching.texi (Rx Constructs): Explain implicit
+ concatenation of `RX...`.
+
+2022-10-24 Martin Jerabek <om@mailservice.ms> (tiny change)
+
+ Repair nXML handling of URIs with hex escapes (bug#58718)
+
+
+ * lisp/nxml/rng-uri.el (rng-uri-file-name-1): Add missing backslashes.
+ (rng-uri-unescape-unibyte, rng-uri-unescape-unibyte-match):
+ Convert hex-encoded character to string.
+
+2022-10-24 Mattias Engdegård <mattiase@acm.org>
+
+ Fix regexp matching with atomic strings and optimised backtracking
+
+ This bug occurs when an atomic pattern is matched at the end of
+ a string and the on-failure-keep-string-jump optimisation is
+ in effect, as in:
+
+ (string-match "\\'\\(?:ab\\)*\\'" "a")
+
+ which succeeded but clearly should not (bug#58726).
+
+ Reported by Michael Heerdegen.
+
+ * src/regex-emacs.c (PREFETCH): Add reset parameter.
+ (re_match_2_internal): Use it for proper atomic pattern treatment.
+ * test/src/regex-emacs-tests.el (regexp-atomic-failure): New test.
+
+2022-10-24 Robert Pluim <rpluim@gmail.com>
+
+ Remove erroneous @w in yank-media cross ref
+
+ I added this by mistake, there's actually no need to keep the cross
+ ref on the same line.
+
+ * doc/emacs/killing.texi (Clipboard): Remove @w around @pxref.
+
+2022-10-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Use customizable button icons (bug#51309, bug#51648)
+
+ * lisp/tab-bar.el (tab-bar--load-buttons): Use 'define-icon' to
+ define icons for tab-bar-new, tab-bar-close, tab-bar-menu-bar.
+ Also set tab-bar-new-button, tab-bar-close-button,
tab-bar-menu-bar-button
+ to the specified icon-string.
+ (tab-bar-history-mode): Use 'define-icon' to
+ define icons for tab-bar-back, tab-bar-forward.
+ Also set tab-bar-back-button, tab-bar-forward-button
+ to the specified icon-string.
+
+ * lisp/emacs-lisp/icons.el (icons--create)<image>: Allow to easy
+ add new image props by using 'apply' on them. Add :margin.
+
+2022-10-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (completions-group-separator): Update :version.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-node-at): Remove argument LARGEST.
+
+ LARGEST returns the root node at BOB, finding the smallest node at
+ point and search upward is a better practice.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-parser-range-on): New function.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-beginning/end-of-defun
+
+ Now they always move to the top-level defun (i.e., skips nested ones).
+
+ * lisp/treesit.el (treesit--find-top-level-match): New function
+ (treesit-beginning-of-defun): Goes to the top-level match.
+ (treesit-end-of-defun): Simply move to the end of current match.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-search-forward-goto accept a NODE argument
+
+ With NODE argument we can do
+
+ (setq node (treesit-search-forward-goto node))
+
+ And we can choose what node to pass to it (maybe we want to pass it
+ the largest node at point, rather than the smallest node, and in case
+ of multiple parsers, we can choose which parser to use).
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * lisp/treesit.el (treesit-search-forward-goto): Accept a NODE
+ argument.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-node-at return the last leaf node at EOB
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * lisp/treesit.el (treesit-node-at): Add a (when node) form just to be
+ explicit, return the last leaf node if there is no node after POS.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-node-child and fiends accept negative index
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * src/treesit.c (Ftreesit_node_child)
+ (Ftreesit_node_field_name_for_child): Accept and process negative
+ index.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-node-at): Add LARGEST argument.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ Change function signiture of treesit search functions
+
+ Justification: We want to make the SIDE argument in
+ treesit-search-forward-goto optional, so I changed it to START.
+ It makes more sense for BACKWARD to follow START so two common
+ case, search for end forward and beginning backwards are
+
+ (treesit-search-forward-goto node pred)
+ (treesit-search-forward-goto node pred t t)
+
+ Then since we swapped BACKWARD and ALL for
+ treesit-search-forward-goto, it's best to swap them for
+ treesit-search-forward and treesit-search-subtree, too. And BACKWARD
+ will probably be used more frequently than ALL anyway.
+
+ * doc/lispref/parsing.texi (Retrieving Node): Resolve FIXME and update
+ function signitures.
+ * lisp/treesit.el (treesit-search-forward-goto): Change SIDE to
+ START, swap BACKWARD and ALL.
+ (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Update use of treesit-search-forward-goto
+ * src/treesit.c (Ftreesit_search_subtree)
+ (Ftreesit_search_forward): Swap BACKWARD and ALL.
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ * doc/emacs/package.texi (Package from Source): Clarify prose
+
+2022-10-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Pre-compute some frequent data for button icons
(bug#57813)
+
+ (outline--button-icons): New buffer-local variable.
+ (outline-minor-mode): Set outline--button-icons.
+ Unify overlay name 'outline-margin' with 'outline-button'.
+ (outline--make-button-overlay, outline--make-margin-overlay)
+ (outline--insert-open-button, outline--insert-close-button): Remove
functions.
+ (outline--create-button-icons, outline--insert-button): New functions
+ with code refactored from old functions. Add more support for icon
faces.
+ (outline--fix-up-all-buttons): Use outline--insert-button.
+ (outline--fix-buttons-after-change): Unify overlay name
+ 'outline-margin' with 'outline-button'.
+
+ * lisp/minibuffer.el (completions-group-separator): Change face
+ attribute :strike-through to :underline.
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ ;Fix typo "pacakge" -> "package"
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ Extract separate function 'package-vc-guess-backend'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-guess-backend): New
+ function.
+ (package-vc-unpack): Use it.
+ (package-vc-sourced-packages-list): Use it.
+ (package-vc-install): Use it.
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ ;Fix typo "heusitic" -> "heuristic"
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ Use user option 'package-vc-default-backend' when cloning
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack): Respect
+ 'package-vc-default-backend'.
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ Immediately check out the right branch or revision
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack) Use REV to avoid
+ checking out the wrong branch/revision first.
+ * lisp/vc/vc-bzr.el: Handle REV.
+ * lisp/vc/vc-git.el: Handle REV.
+ * lisp/vc/vc-hg.el: Handle REV.
+ * lisp/vc/vc-svn.el: Handle REV.
+ * lisp/vc/vc.el: Make BACKEND optional and add REV.
+
+2022-10-23 Matt Armstrong <matt@rfc20.org>
+
+ Fix compiler warning about possible null pointer dereference
+
+ * src/itree.c (interval_tree_remove_fix): Use 'eassert' to both check
+ for non-null and suppress a compiler warning.
+
+2022-10-23 Philip Kaludercic <philipk@posteo.net>
+
+ Add auxiliary function to query package specifications
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-query-spec): Add
+ inline function.
+
+2022-10-23 Po Lu <luangruo@yahoo.com>
+
+ Reduce duplicate code for creating "special windows"
+
+ * src/xterm.c (x_create_special_window): Define on all non-GTK
+ builds and all builds with XFixes.
+ (x_update_frame_user_time_window): Use x_create_special_window.
+ Also write a comment explaining what user time windows are.
+ * src/xterm.h: Fix style of `x_parse_color' prototype.
+
+2022-10-23 Yuan Fu <casouri@gmail.com>
+
+ Fix infinite loop in treesit-search-forward-goto
+
+ * lisp/treesit.el (treesit-search-forward-goto): Remove UP argument.
+ * src/treesit.c (treesit_traverse_child_helper): New function.
+ (treesit_search_forward): Remove UP_ONLY and SKIP_START argument.
+ Don't traverse subtree of START. And after we've found the next
+ sibling/parent, go down to the first leaf node. Also change recursion
+ to loop.
+ (Ftreesit_search_forward): Change docstring, remove UP argument.
+
+2022-10-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ f1f4a0c9d2 ; * doc/lispref/display.texi (Progress): Correct typo. (B...
+
+2022-10-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 626525c29f ; Remove reference to non-existent Flymake function from m...
+
+2022-10-22 Matt Armstrong <matt@rfc20.org>
+
+ Fix `get-pos-property' for the new overlay implementation.
+
+ Some of the trickier edge cases weren't handled properly. See
+ bug#58706.
+
+ * src/editfns.c (overlays_around): Extend the search range past POS by
+ one to fetch overlays beginning at POS. Fetch empty overlays, as they
+ may be extended by an insertion and thus be relevant to
+ `get-pos-property'. Make a note that the function now, unfortunately,
+ may return out of range overlays.
+ (Fget_pos_property): Deal with 'overlays_around' returning out of
+ range overlays.
+
+2022-10-22 Matt Armstrong <matt@rfc20.org>
+
+ Add `get-pos-property' tests covering bug#58706
+
+ * test/src/buffer-tests.el (get-pos-property-overlay-beg): New test.
+ (get-pos-property-overlay-empty-rear-advance): ditto.
+ (get-pos-property-overlay-past-rear-advance): ditto.
+ (get-pos-property-overlay-at-narrowed-end): ditto.
+
+2022-10-22 Yuan Fu <casouri@gmail.com>
+
+ Resolve FIXME's in tree-sitter manual sections
+
+ Pattern vs query: a query consists of many patterns. I tightened up
+ the use of pattern vs query in the manual, now there shouldn't be
+ ambiguities.
+
+ * doc/lispref/modes.texi (Parser-based Font Lock):
+ * doc/lispref/parsing.texi (Language Definitions): Resolve FIXME's.
+
+2022-10-22 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Improve error reporting of EUDC plist functions
+
+ * lisp/net/eudc.el (eudc--plist-member): Signal a more
+ informative wrong-type-argument instead of a generic error
+ (bug#58531#19, bug#58720).
+ * test/lisp/net/eudc-tests.el (eudc--plist-member)
+ (eudc-plist-member, eudc-plist-get, eudc-lax-plist-get):
+ Update tests accordingly.
+
+2022-10-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Use 'outline-cycle' on buttons for 'RET' like 'TAB'
uses.
+
+ (outline--make-button-overlay, outline--make-margin-overlay):
+ Use overlay keymap where RET and mouse-2 are bound to outline-cycle.
+ (outline--insert-open-button, outline--insert-close-button):
+ Move overlay keymap to outline--make-button-overlay and replace
+ bindings outline-hide-subtree/outline-show-subtree with outline-cycle.
+
+2022-10-22 Juri Linkov <juri@linkov.net>
+
+ Unify outline-minor-mode-use-buttons with in-margins/insert values
(bug#57813)
+
+ * doc/emacs/text.texi (Outline Mode): Remove
outline-minor-mode-use-margins.
+ Document the values insert/in-margins of outline-minor-mode-use-buttons.
+
+ * lisp/help.el (describe-bindings):
+ Set outline-minor-mode-use-buttons to 'insert'.
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common):
+ Set outline-minor-mode-use-buttons to 'in-margins'.
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Change :type
+ from 'buffer-predicate' to choice of const values nil/in-margins/t.
+ (outline--use-buttons, outline-minor-mode-insert-buttons)
+ (outline-minor-mode-use-margins, outline--use-margins): Remove
variables.
+ (outline-minor-mode-highlight-buffer): Change overlay name
+ 'outline-overlay' to 'outline-highlight'.
+ (outline-minor-mode): Simplify to handle possible values of
+ 'outline-minor-mode-use-buttons' instead of using many variables.
+ (outline--make-button-overlay): Use value 'insert' of
+ 'outline-minor-mode-use-buttons'.
+ (outline--insert-open-button, outline--insert-close-button)
+ (outline--fix-up-all-buttons, outline--fix-buttons-after-change):
+ Handle values of outline-minor-mode-use-buttons instead of using
+ many variables.
+
+2022-10-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/info.el (Info-toc-build): Remove message not needed anymore
(bug#58634)
+
+2022-10-22 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Audit some plist uses with new predicate argument
+
+ * doc/lispref/lists.texi (Plist Access): Improve description of
+ default predicate.
+ * lisp/emacs-lisp/cl-extra.el (cl-getf, cl--set-getf): Assume
+ plist-member always returns a cons.
+ * lisp/emacs-lisp/gv.el (plist-get): Support new optional predicate
+ argument (bug#47425#91).
+ * lisp/emacs-lisp/map.el: Bump minor version.
+ (map--dispatch): Remove now that bug#58563 is fixed. Break two
+ remaining uses out into corresponding cl-defmethods.
+ (map--plist-p): Add docstring.
+ (map--plist-has-predicate, map--plist-member-1, map--plist-member)
+ (map--plist-put-1, map--plist-put): New definitions for supporting
+ predicate argument backward compatibly.
+ (map-elt): Fix generalized variable getter under a
+ predicate (bug#58531). Use predicate when given a plist.
+ (map-put): Avoid gratuitous warnings when called without the hidden
+ predicate argument. Improve obsoletion message.
+ (map-put!): Use predicate when given a plist.
+ (map-contains-key): Ditto. Declare forgotten
+ advertised-calling-convention (bug#58531#19).
+ (map--put): Group definition in file together with that of map-put!.
+ * lisp/files-x.el (connection-local-normalize-criteria): Simplify
+ using mapcan + plist-get.
+ * lisp/net/eudc.el (eudc--plist-member): New convenience function.
+ (eudc-plist-member, eudc-plist-get, eudc-lax-plist-get): Use it
+ instead of open-coding plist-member.
+ * src/fns.c (Fplist_get, plist_get, Fplist_put, plist_put): Pass the
+ plist element as the first argument to the predicate, for
+ consistency with assoc + alist-get.
+ (Fplist_member, plist_member): Move from widget to plist section.
+ Open-code the EQ case in plist_member, and call it from
+ Fplist_member in that case, rather than the other way around.
+
+ * test/lisp/apropos-tests.el (apropos-tests-format-plist): Avoid
+ polluting obarray.
+ * test/lisp/emacs-lisp/cl-extra-tests.el (cl-getf): Extend test with
+ generalized variables, degenerate plists, and improper lists.
+ * test/lisp/emacs-lisp/gv-tests.el: Byte-compile file; in the
+ meantime bug#24402 seems to have been fixed or worked around.
+ (gv-setter-edebug): Inhibit printing messages.
+ (gv-plist-get): Avoid modifying constant literals. Also test with a
+ predicate argument.
+ * test/lisp/emacs-lisp/map-tests.el (with-maps-do): Simplify
+ docstring.
+ (test-map-elt-testfn): Rename...
+ (test-map-elt-testfn-alist): ...to this. Also test with a predicate
+ argument.
+ (test-map-elt-testfn-plist, test-map-elt-gv, test-map-elt-signature)
+ (test-map-put!-plist, test-map-put!-signature)
+ (test-map-contains-key-signature, test-map-plist-member)
+ (test-map-plist-put): New tests.
+ (test-map-contains-key-testfn): Also test with a predicate argument.
+ (test-map-setf-alist-overwrite-key, test-map-setf-plist-insert-key)
+ (test-map-setf-plist-overwrite-key): Avoid modifying constant
+ literals.
+ (test-hash-table-setf-insert-key)
+ (test-hash-table-setf-overwrite-key): Fix indentation.
+ (test-setf-map-with-function): Make test more precise.
+ * test/lisp/net/eudc-tests.el: New file.
+ * test/lisp/subr-tests.el (test-plistp): Extend test with circular
+ list.
+ * test/src/fns-tests.el (test-cycle-equal, test-cycle-nconc): Move
+ from plist section to circular list section.
+ (plist-put/odd-number-of-elements): Avoid modifying constant
+ literals.
+ (plist-member/improper-list): Simplify.
+ (test-plist): Move to plist section. Also test with a predicate
+ argument.
+
+2022-10-22 Eli Zaretskii <eliz@gnu.org>
+
+ Clean up tree-sitter sections of the ELisp manual
+
+ * doc/lispref/parsing.texi (Parsing Program Source):
+ * doc/lispref/modes.texi (Font Lock Mode)
+ (Parser-based Font Lock): Fix wording, punctuation, and markup.
+ Add index entries.
+
+ * lisp/treesit.el (treesit-node-at, treesit-language-at): Rename
+ argument POINT to POS.
+
+2022-10-22 Po Lu <luangruo@yahoo.com>
+
+ Further fixes to menu event processing on no-toolkit builds
+
+ * src/xdisp.c (note_mouse_highlight): Return if a popup is
+ activated under the no-toolkit build as well.
+ * src/xmenu.c (pop_down_menu): Clear popup_activated_flag when
+ not on MS-DOS.
+ (x_menu_show): Set popup_activated_flag under X.
+
+2022-10-22 Stefan Kangas <stefankangas@gmail.com>
+
+ * admin/notes/repo: Document feature and scratch branches.
+
+2022-10-21 Matt Armstrong <matt@rfc20.org>
+
+ Fix a narrow-to-region vs. overlays-at bug
+
+ See bug#58703.
+
+ * src/buffer.c (overlays_in): Add a new TRAILING arg expressing the
+ behavior wanted by `overlays-at', namely to include all overlays
+ beginning at the POS passed to `overlays-at', even if POS is the end
+ of the narrowed region. Pass true and the search range is extended to
+ ZV+1 if END is greater than ZV, just as is done for EMPTY.
+ (overlays_at): Pass 'true' for the new trailing arg. At present this
+ is the only caller passing 'true'.
+ (mouse_face_overlay_overlaps): Pass 'false' for the new trailing arg.
+ (disable_line_numbers_overlay_at_eob): ditto.
+ (Foverlays_in): ditto.
+ * src/editfns.c (overlays_around): ditto.
+ * test/src/buffer-tests.el (sorted-overlays): Add a spot test for
+ this.
+
+2022-10-21 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-font-lock-enable): Add function back.
+
+2022-10-21 Matt Armstrong <matt@rfc20.org>
+
+ Fix handling of overlays that begin at END in 'overlays_in'
+
+ When passed EMPTY, 'overlays_in' should return empty overlays at END.
+ It was doing so, but it was also returning any other overlay that
+ happened to begin at END.
+
+ bug#58672
+
+ * src/buffer.c (overlays_in): Don't return overlays at END unless they
+ are empty overlays.
+ (disable_line_numbers_overlay_at_eob): Pass 'false' instead of 'NULL'
+ for the bool 'empty' arg.
+ * test/src/buffer-tests.el (sorted-overlays-in): New helper function.
+ (test-overlays-in-empty-range): New test exhaustively covering these
+ edge conditions.
+ (test-overlays-in-empty-range-bug58672): Simple test for one case.
+
+2022-10-21 Philip Kaludercic <philipk@posteo.net>
+
+ Rephrase initial paragraph in "Package from Source" section
+
+ * doc/emacs/package.texi (Package from Source): Clarify motivation.
+
+2022-10-21 Philip Kaludercic <philipk@posteo.net>
+
+ Request "elpa-packages.eld" instead of "elpa-packages"
+
+ * lisp/emacs-lisp/package-vc.el
+ (package-vc--read-archive-data): Apply change.
+ (package-vc--download-and-read-archives): Apply change.
+
+2022-10-21 Philip Kaludercic <philipk@posteo.net>
+
+ Remove 'package-vc-install' alias 'package-checkout'
+
+ * lisp/emacs-lisp/package-vc.el (package-checkout): Remove it.
+
+2022-10-21 Nacho Barrientos <nacho.barrientos@cern.ch> (tiny change)
+
+ Bindat (src, strz): Operate on vectors too
+
+
+ * lisp/emacs-lisp/bindat.el (bindat--unpack-str, bindat--unpack-strz):
+ Fix the non-string case.
+ * test/lisp/emacs-lisp/bindat-tests.el (bindat-test--strz-array-unpack)
+
(bindat-test--str-simple-array-unpack,bindat-test--str-combined-array-unpack):
+ New tests.
+
+2022-10-21 Po Lu <luangruo@yahoo.com>
+
+ Fix various menu problems
+
+ * src/menu.c (x_popup_menu_1): Cancel hourglass timer before
+ displaying popup.
+ * src/xterm.c (x_show_hourglass): Avoid displaying hourglass
+ cursor during a popup.
+ (handle_one_xevent): Under X Toolkit and GTK+ 2.x builds with
+ XInput 2, clear the mouse face upon a core LeaveNotify; these
+ can be generated by menu grabs.
+ (x_wm_set_size_hint): Fix Motif build warning.
+
+2022-10-21 Eli Zaretskii <eliz@gnu.org>
+
+ Improve and extend documentation of ElDoc
+
+ * lisp/emacs-lisp/eldoc.el (eldoc-documentation-strategy)
+ (eldoc-documentation-enthusiast)
+ (eldoc-documentation-compose-eagerly)
+ (eldoc-documentation-compose, eldoc-documentation-default)
+ (eldoc-minibuffer-message, eldoc-idle-delay)
+ (eldoc-print-after-edit)
+ (eldoc-echo-area-display-truncation-message)
+ (eldoc-echo-area-use-multiline-p)
+ (eldoc-echo-area-prefer-doc-buffer): Doc string fixes.
+
+ * doc/emacs/emacs.texi (Top):
+ * doc/emacs/programs.texi (Documentation, Programming Language Doc):
+ Rename "Lisp Doc" to "Programming Language Doc", including in
+ parent menus. All references changed.
+ (Programming Language Doc): Formerly "Lisp Doc". Rewrite to not
+ be specific to Emacs Lisp. Improve markup and wording. Document
+ more commands and variables.
+ * doc/emacs/maintaining.texi (Maintaining): Improve indexing.
+
+2022-10-21 Po Lu <luangruo@yahoo.com>
+
+ Fix delivery of window manager ping events during menu
+
+ * oldXMenu/Activate.c (XMenuActivateSetExposeFunction)
+ (XMenuActivate):
+ * oldXMenu/XMenu.h: Remove expose functions.
+ * src/msdos.h (XMenuSetAEQ): Remove no longer used function.
+ * src/xmenu.c (x_menu_expose_event): Delete function.
+ (x_menu_dispatch_event): New function.
+ (x_menu_show): Set it as the XMenu event handler.
+
+2022-10-21 Mauro Aranda <maurooaranda@gmail.com>
+
+ Fix last change in perl-mode
+
+ * lisp/progmodes/perl-mode.el (perl--syntax-exp-intro-regexp): Escape
+ $. Reported by Mattias Engdegård.
+
+2022-10-21 Brian Leung <leungbk@posteo.net>
+
+ Add the "nil" language server to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add the "nil"
+ language server. Put it before rnix-lsp since it is more featureful
+ and more actively updated. (Bug#58676)
+ Ref: https://github.com/oxalica/nil
+
+2022-10-21 Brian Leung <leungbk@posteo.net>
+
+ Add lua-language-server to eglot-server-programs
+
+ * lisp/progmodes/eglot.el (eglot-server-programs): Add
+ lua-language-server. It is, at the time of writing, more actively
+ developed and more popular than the lua-lsp server, so prioritize
+ that. (Bug#58676)
+
+2022-10-20 Philip Kaludercic <philipk@posteo.net>
+
+ Have 'package-vc-link-directory' use name if given
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Use the
+ NAME argument.
+
+2022-10-20 Philip Kaludercic <philipk@posteo.net>
+
+ Build documentation like elpa-admin.el
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-build-documentation): Add
+ function to build a documentation file.
+ (package-vc-unpack-1): Use 'package-vc-build-documentation'.
+
+2022-10-20 Philip Kaludercic <philipk@posteo.net>
+
+ Merge remote-tracking branch 'origin/master' into feature/package+vc
+
+2022-10-20 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Fix ldapsearch output parsing in ldap-search-internal
+
+ * lisp/net/ldap.el (ldap-search-internal): When parsing output, make
+ sure that file:// matched before opening the file. (bug#58605)
+
+2022-10-20 Eli Zaretskii <eliz@gnu.org>
+
+ Add Eglot to the menu bar
+
+ * lisp/progmodes/eglot.el (eglot): Improve the doc string.
+ * lisp/menu-bar.el (menu-bar-tools-menu): Add Eglot to the menu.
+
+2022-10-20 Eli Zaretskii <eliz@gnu.org>
+
+ Mention Eglot in the Emacs user manual
+
+ * doc/emacs/maintaining.texi (Xref):
+ * doc/emacs/programs.texi (Symbol Completion, Imenu): Mention Eglot.
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Merge branch 'feature/eglot2emacs'
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Minor fixes to doc/misc/eglot.texi
+
+ * doc/misc/eglot.texi (eglot-workspace-configuration): Correct
+ markup of eglot-{}
+ (Quick Start): Fix section cross reference.
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ * lisp/info-look.el (mapc): Add Eglot manual's index.
+
+2022-10-20 Po Lu <luangruo@yahoo.com>
+
+ Work around problems setting input focus when a frame is in the
background
+
+ * src/xterm.c (server_timestamp_predicate, x_get_server_time):
+ New functions.
+ (x_ewmh_activate_frame, x_focus_frame, syms_of_xterm): Apply
+ various workarounds for window manager "focus stealing
+ prevention". (bug#57012)
+
+2022-10-20 Po Lu <luangruo@yahoo.com>
+
+ * etc/PROBLEMS: Document window manager focus problems.
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Merge branch 'feature/eglot-texi-manual' into feature/eglot2emacs
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Revert "eglot.texi: Make example more realistic"
+
+ This quest for realism ignores the fact that a previous example for a
+ hypothetical language Foo and a language server "fools" already
+ exists. It also undermines the intended generality of the
+ instructions.
+
+ This reverts commit 16986a9cc42ef4de580456f4acc5feba682ac8b1.
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Fix Eglot manual's description of eglot-workspace-configuration
+
+ * doc/misc/eglot.texi (Customizing Eglot)
+ (eglot-workspace-configuration): Explain that plist may be
+ arbitrarily complex and correctly identify nil as the Elisp
+ equivalent to JSON null.
+
+2022-10-20 Mauro Aranda <maurooaranda@gmail.com>
+
+ Improve HERE document detection in perl-mode
+
+ * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
+ Detect indented HERE documents when using a bare identifier.
+ (perl--syntax-exp-intro-keywords): Recognize HERE documents that come
+ after die, warn and eval.
+ (perl--syntax-exp-intro-regexp): Identify HERE documents when printing
+ to a filehandle with printf? and when they appear after a fat comma.
+
+ * test/lisp/progmodes/cperl-mode-resources/here-docs.pl: Add more tests.
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Expose eglot-{} to be used in eglot-workspace-configuration
+
+ * eglot.el (eglot-{}): New variable alias.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1084
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Rework header of eglot.el
+
+ * eglot.el (Commentary): Rework.
+
+2022-10-20 João Távora <joaotavora@gmail.com>
+
+ Do use eglot-connect-timeout if eglot-sync-connect is t
+
+ Reported by Eli Zaretskii <eliz@gnu.org>
+
+ * eglot.el (eglot--connect): Use eglot-connect-timeout in the case
+ eglot-sync-connect is t.
+
+2022-10-20 Stefan Kangas <stefankangas@gmail.com>
+
+ eglot.texi: Explain where to find third-party packages
+
+ * doc/misc/eglot.texi (Eglot Features): Improve description on
+ third-party packages.
+
+2022-10-20 Stefan Kangas <stefankangas@gmail.com>
+
+ eglot.texi: Make example more realistic
+
+ * doc/misc/eglot.texi (Eglot and Buffers): Prefer more realistic
+ *.c instead of *.foo in example.
+
+2022-10-20 Stefan Kangas <stefankangas@gmail.com>
+
+ eglot.texi: Move sentence on LSP Servers earlier
+
+ * doc/misc/eglot.texi (Setting Up LSP Servers): Move explanation
+ on the (lack of) need for customizing servers earlier.
+
+2022-10-20 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/Makefile.in (INFO_COMMON): Add eglot.
+
+2022-10-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in modula2.el
+
+ * lisp/progmodes/modula2.el (m2-mode-map): Prefer defvar-keymap.
+
+2022-10-20 Rudolf Adamkovič <salutis@me.com>
+
+ Add 'slovak-querty' input method (bug#58642)
+
+ * lisp/leim/quail/slovak.el ("slovak-querty"): New input method.
+ * etc/NEWS: Mention the new 'slovak-querty' input method.
+
+2022-10-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 4b2c83eeaf ; * doc/lispref/modes.texi (Defining Minor Modes): Explain...
+
+2022-10-19 Matt Armstrong <matt@rfc20.org>
+
+ Rename all exported itree.h functions with the itree_ prefix
+
+ For the most part, I replaced the interval_tree_ prefix with itree_,
+ interval_node_ with itree_node_, etc.
+
+ * src/alloc.c: Rename everywhere as appropriate.
+ * src/alloc.c: ditto.
+ * src/buffer.c: ditto.
+ * src/buffer.h: ditto.
+ * src/itree.c: ditto.
+ * src/itree.h: ditto.
+
+2022-10-19 Matt Armstrong <matt@rfc20.org>
+
+ Prefix all itree.h type names with itree_
+
+ Rename interval_node -> itree_node, interval_tree -> itree_tree,
+ interval_tree_order -> itree_order.
+
+ * src/alloc.c: Renames.
+ * src/buffer.c: ditto.
+ * src/itree.c: ditto.
+ * src/itree.h: ditto.
+ * src/lisp.h: ditto.
+ * src/pdumper.h: ditto.
+ * src/textprop.c: ditto.
+ * src/xdisp.c: ditto.
+
+2022-10-19 Matt Armstrong <matt@rfc20.org>
+
+ Revert "mark_overlays: Use the normal ITREE_FOREACH"
+
+ This reverts commit b8fbd42f0a7caa4cd9e2d50dd4e4b2101ac78acd,
+ with edits.
+
+ * src/alloc.c (mark_overlays): restore function.
+ (mark_buffer): Call it, not ITREE_FOREACH.
+ (garbage_collect): eassert (!itree_busy_p ()).
+ * src/itree.h: Comment tweak: explain why GC is considered risky. It
+ isn't that GC itself is risky, it is that GC can call ELisp by way of
+ a hook, and running ELisp during iteration is risks nested iteration.
+
+2022-10-19 Matt Armstrong <matt@rfc20.org>
+
+ Remove the ITREE_NULL macro and use NULL everywhere.
+
+ * src/itree.h: Delete the ITREE_NULL macro.
+ * src/itree.c (check_subtree): Use NULL everywhere.
+ * src/pdumper.c (dump_buffer): ditto.
+
+2022-10-19 Yuan Fu <casouri@gmail.com>
+
+ Revise the toggle scheme of tree-sitter (again)
+
+ Now instead of a toggle function (major-mode-backend-function), we let
+ major mode set local variables like treesit-font-lock-settings,
+ treesit-imenu-function, then treesit-mode takes care of activating
+ those things (clearing font-lock-keywords, setting
+ imenu-create-index-function to treesit-imenu-function, etc).
+
+ js.el and python.el: I've returned js-mode and python-mode to exactly
+ what they were before tree-sitter change, plus lines at the end
+ setting up tree-sitter variables. Sorry about all these fuss :-D
+
+ * lisp/treesit.el (treesit-mode-inhibit-message): Remove option.
+ (major-mode-backend-function)
+ (treesit-remapped-major-mode-alist): Remove variables.
+ (treesit-mode): Move down to the end of buffer. Do more things.
+ (global-treesit-mode): Move down to the end of buffer. Don't handle
+ major-mode-remap-alist anymore.
+ (global-treesit-mode--turn-on): Move down to the end of buffer.
+ (treesit-ready-p): Move down to the end of buffer. Changed signature.
+ (treesit-font-lock-enable): Remove function.
+ (treesit-defun-type-regexp): New variable.
+ (treesit-beginning-of-defun)
+ (treesit-end-of-defun): New function.
+ (treesit-imenu-function): New variable.
+ (treesit-mode-supported)
+ (treesit-required-languages)
+ (treesit--local-variable-backup): New variables.
+ (treesit--backup-local-variable): New function
+
+ * lisp/progmodes/js.el (js-use-tree-sitter): Remove option.
+ (js--treesit-defun-type-regexp): Remove variable. (Now set inline in
+ js-mode.)
+ (js--treesit-beginning-of-defun)
+ (js--treesit-end-of-defun): Remove functions. (Now use
+ treesit-beginning/end-of-defun.)
+ (js--backend-toggle)
+ (js--json-backend-toggle): Remove function.
+ (js-mode)
+ (js-json-mode): Restore back to before tree-sitter changes. Add
+ tree-sitter setup at the end.
+
+ * lisp/progmodes/python.el (python--backend-toggle): Remove function.
+ (python-mode): Restore back to before tree-sitter changes. Add
+ tree-sitter setup at the end.
+
+ * lisp/progmodes/ts-mode.el (ts-mode--font-lock-settings): Use
+ js--fontify-template-string.
+ (ts-mode--fontify-template-string): Remove function (because we can
+ just use js--fontify-template-string).
+ (ts-mode--defun-type-regexp): Remove variable (now set inline in
+ ts-mode).
+ (ts-mode--beginning-of-defun)
+ (ts-mode--end-of-defun): Remove functions (now using
+ treesit-beginning/end-of-defun).
+ (ts-mode): Setup tree-sitter variables and then turn on treesit-mode
+ or move to js-mode.
+
+2022-10-19 Andrea Corallo <akrl@sdf.org>
+
+ * Fix async native compilation (bug#58637)
+
+ * lisp/emacs-lisp/comp.el (comp--native-compile): Fix gate condition.
+ (comp-run-async-workers): Add assetion.
+
+2022-10-19 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Cease adding types to found-types too eagerly
+
+ This fixes bug #58537 and bug #58539.
+
+ * lisp/progmodes/cc-engine.el (c-forward-type): Remove trailing
whitespace
+ from an identifier before passing it to c-add-type.
+ (c-forward-decl-or-cast-1): CASE 3: Do not recognize two consecutive
+ identifiers as type + variable/function unless certain conditions are
met.
+ CASE 10: Do not recognize the "type" as a found type unless certain
condtions
+ are met. (Near end): Do not recognize the identifier in a cast as a
type
+ unless certain conditions are met.
+
+ * lisp/progmodes/cc-fonts.el (c-get-fontification-context): Recognize
being
+ in declaration parens when there is a syntactially wrong "foo ((bar))"
+ preceding the match position.
+
+ * lisp/progmodes/cc-mode.el (c-update-new-id): Set c-new-id-is-type
+ unconditionally to nil to prevent a second identifier being wrongly
marked as
+ a type.
+
+2022-10-19 Po Lu <luangruo@yahoo.com>
+
+ Fix various builds
+
+ * src/xterm.c (x_handle_selection_monitor_event): Adjust for
+ build without XInput2.
+ (x_maybe_clear_preedit, xim_destroy_callback): Make conditional
+ on Release 6 XIM.
+ (x_get_keyboard_modifiers): Adjust for build without XCB.
+
+2022-10-19 Po Lu <luangruo@yahoo.com>
+
+ Fix build warning without XKB, Xmb, and XInput 2
+
+ * src/xterm.c (handle_one_xevent): Avoid defining
+ USE_SAFE_ALLOCA when SAFE_ALLOCA is not actually used.
+
+2022-10-19 João Távora <joaotavora@gmail.com>
+
+ Remove spurious trailing ':' in doc/misc/eglot.texi
+
+ * doc/misc/eglot.texi (Customizing Eglot): Remove spurious ':'.
+
+2022-10-19 João Távora <joaotavora@gmail.com>
+
+ Tweak some node names in doc/misc/eglot.texi
+
+ "Shutting Down LSP Server" -> "Shutting Down LSP Servers"
+ "Setting Up LSP Server" -> "Setting Up LSP Servers"
+
+ * doc/misc/eglot.texi: Rework node names.
+
+2022-10-19 Arun Isaac <arunisaac@systemreboot.net>
+
+ Add tamil99 input method (bug#58070)
+
+ * lisp/leim/quail/indian.el: Require pcase and seq.
+ ("tamil99"): New input method.
+ * etc/NEWS: Mention new tamil99 input method.
+
+2022-10-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Add admin/emacs-shell-lib for shared bash code
+
+ * admin/emacs-shell-lib: New file for shared bash code.
+ * admin/automerge:
+ * admin/diff-tar-files:
+ * admin/emacs-shell-lib:
+ * admin/make-manuals:
+ * admin/update_autogen:
+ * admin/upload-manuals: Simplify and improve using above new library.
+
+2022-10-19 Stefan Kangas <stefankangas@gmail.com>
+
+ * lib-src/rcs2log: Add fallback for $TMPDIR.
+
+2022-10-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ efd3ef3ceb ; * src/window.c: Fix some comments. (Bug#58550)
+
+2022-10-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (sit-for): Add compiler-macro to warn about obsolete calling convention
+
+ * lisp/subr.el (sit-for): Add compiler-macro.
+ * lisp/eshell/esh-util.el (eshell-redisplay):
+ * lisp/play/zone.el (zone, zone-pgm-jitter, zone-pgm-whack-chars):
+ (zone-remove-text): Avoid obsolete calling convention.
+
+2022-10-18 Yuan Fu <casouri@gmail.com>
+
+ Add a new section to tree-sitter's manual node
+
+ * doc/lispref/parsing.texi (Parsing Program Source): New section
+ Tree-sitter major modes.
+
+2022-10-18 Philip Kaludercic <philipk@posteo.net>
+
+ Remove modifications to the list of ignored files in source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack-1): Remove
+ 'vc-ignore' calls.
+
+2022-10-18 Theodor Thornhill <theo@thornhill.no>
+
+ Add more granular features in font-locking
+
+ There is now support for three font-locking levels, 'minimal',
+ 'moderate' and 'full'. The richest experience is to be expected from
+ the 'full', and all levels are enabled by default.
+
+ * lisp/progmodes/js.el (js--treesit-font-lock-settings): New defvar
+ renamed from 'js--treesit-settings'.
+
+ (js--treesit-font-lock-settings): New defvar renamed from
+ 'js--json-treesit-settings'.
+
+ * lisp/progmodes/ts-mode.el (ts-mode--font-lock-settings): New defvar
+ renamed from 'ts-mode--settings'.
+
+2022-10-18 Philip Kaludercic <philipk@posteo.net>
+
+ Use 'elpa-packages' files for VC metadata
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-default-backend): Add new
+ option.
+ (package-vc-archive-spec-alist): Add new variable to store the
+ contents of 'elpa-packages' for each archive.
+ (pacakge-vc-desc->spec): Add function to query package specifications.
+ (package-vc--read-archive-data): Add a 'package-read-archive-hook'
+ implementation.
+ (package-vc--download-and-read-archives): Add a
+ 'package-refresh-contents-hook' implementation.
+ (package-vc-main-file): Remove function.
+ (package-vc-generate-description-file): Use package specifications.
+ (package-vc-unpack-1): Adapt to previous changes.
+ (package-vc-unpack): Adapt to previous changes.
+ (package-vc-sourced-packages-list): Adapt to previous changes.
+ (package-vc-install): Adapt to previous changes.
+ * lisp/emacs-lisp/package.el (package-read-archive-hook): Allow
+ extending 'package-read-all-archive-contents' using a hook.
+ (package-read-all-archive-contents): Use 'package-read-archive-hook'.
+ (package-refresh-contents-hook): Allow extending
+ 'package-refresh-contents' using a hook.
+ (package-refresh-contents): Use 'package-refresh-contents-hook'.
+
+2022-10-18 Yuan Fu <casouri@gmail.com>
+
+ Rename tree-sitter group to treesit
+
+ * lisp/treesit.el (tree-sitter): Rename to treesit.
+ (treesit-mode)
+ (global-treesit-mode): Use treesit group.
+
+2022-10-18 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el: Add commentary.
+
+2022-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix functions.texi syntax error
+
+ * doc/lispref/functions.texi (Function Documentation): Fix syntax
+ error.
+
+2022-10-18 Yuan Fu <casouri@gmail.com>
+
+ Install new toggle scheme for tree-sitter
+
+ Basically we now have treesit-mode and global-treesit-mode. Major
+ modes set major-mode-backend-function which treesit-mode calls to
+ activate/deactivate tree-sitter.
+
+ js.el needs a bit explanation: I'm so sorry for messing up the
+ history, but basically now js-mode and js-json-mode should be exactly
+ the same as before any tree-sitter change was introduced, sans some
+ initialization code that are moved to js(-json)--backend-toggle.
+ js-mode and js-json-mode now just sets major-mode-backend-function and
+ initialize with js(-json)--backend-toggle.
+
+ * lisp/treesit.el (treesit-mode-inhibit-message): New option.
+ (treesit-can-enable-p): Remove function.
+ (major-mode-backend-function)
+ (treesit-remapped-major-mode-alist): New variables.
+ (treesit-mode)
+ (global-treesit-mode): New minor modes.
+ (global-treesit-mode--turn-on)
+ (treesit-ready-p): New functions.
+
+ * lisp/progmodes/python.el: Remove option.
+ (python--backend-toggle): New function.
+ (python-mode): Remove the if-form, all the initialization code are
+ moved to python--backend-toggle, python-mode now just sets
+ major-mode-backend-function and initialize with
+ python--backend-toggle.
+ * lisp/progmodes/js.el (js--treesit-can-enable-p)
+ (js--json-treesit-can-enable-p)
+ (js--treesit-enable)
+ (js--json-treesit-enable): Remove functions.
+ (js--backend-toggle)
+ (js-json--backend-toggle): New function.
+
+ * lisp/progmodes/ts-mode.el (ts-mode): Use treesit-ready-p.
+
+2022-10-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ functions.texi: Fix bug#58602
+
+ * doc/lispref/functions.texi (Function Documentation): Document
+ `:documentation` and `function-documentation`.
+
+2022-10-18 Philip Kaludercic <philipk@posteo.net>
+
+ Merge remote-tracking branch 'origin/master' into feature/package+vc
+
+2022-10-18 Philip Kaludercic <philipk@posteo.net>
+
+ Have 'vc-clone' return a directory
+
+ * lisp/vc/vc-bzr.el (vc-bzr-clone): Return directory.
+ * lisp/vc/vc-git.el (vc-git-clone): Return directory.
+ * lisp/vc/vc-hg.el (vc-hg-clone): Return directory.
+ * lisp/vc/vc-svn.el (vc-svn-clone): Return directory.
+ * lisp/vc/vc.el (vc-clone): Ensure the backend returns directory.
+
+2022-10-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-minor-mode-insert-buttons): New defvar-local.
+
+ (outline--make-button-overlay, outline--insert-open-button)
+ (outline--insert-close-button): Insert button when
+ outline-minor-mode-insert-buttons is non-nil, otherwise
+ put an overlay with before-string. (bug#57813)
+
+ * lisp/help.el (describe-bindings): Set buffer-local
+ outline-minor-mode-insert-buttons to t.
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common):
+ Set buffer-local outline-minor-mode-use-margins to t. Don't set
+ outline-regexp for leading spaces because now spaces are not added
+ in the NEWS buffer.
+
+2022-10-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Use one character wide strings for margins
(bug#57813)
+
+ (outline-open-in-margins, outline-close-in-margins)
+ (outline-close-rtl-in-margins): Add 1-char emoji, symbol, text
+ for margins that are 1-column wide.
+ (outline-minor-mode): Force display of margins only for the selected
buffer.
+
+2022-10-18 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp.el (tramp-file-name-equal-p): Fix docstring.
+
+ * etc/NEWS: Adapt connection-local variables entries.
+
+2022-10-18 Matt Armstrong <matt@rfc20.org>
+
+ * .gitignore: Unignore the tests/manual directory. (Bug#58611)
+
+2022-10-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (byte-compile--first-symbol-with-pos): Fix bug#58601
+
+ * lisp/emacs-lisp/bytecomp.el: Require `subr-x`.
+ (byte-compile--first-symbol-with-pos): Avoid inf-loops on circular data.
+
+2022-10-18 João Távora <joaotavora@gmail.com>
+
+ More minor fixes to doc/misc/eglot.texi
+
+ Most, if not all of these, were previously discussed with Eli.
+
+ * doc/misc/eglot.texi (Setting Up LSP Server): Fix repetition of
+ "This variable".
+ (Setting Up LSP Server): Explain that single a running instance
+ supports multiple major modes.
+ (Starting Eglot, Eglot and Buffers): Correctly describe mode-line
indication.
+ (Eglot Features): Suggest that company-mode is just one of the
+ possible packages. Explain that Eglot arranges for the completion
+ package to "instantiate" snippets. Could have used "expand".
+ Mention benefits of having the popular markdown-mode available.
+ (Eglot Commands): Explain how eglot-reconnect and
+ eglot-clear-status are useful.
+ (Eglot Variables): Clarify when eglot-autoreconnect is useful.
+ Clarify how eglot-sync-connect and eglot-connect-timeout relate to
+ each other. Clarify semantics of
+ eglot-confirm-server-initiated-edits.
+
+2022-10-18 João Távora <joaotavora@gmail.com>
+
+ Minor stylistic fixes to introduction of doc/misc/eglot.texi
+
+ * doc/misc/eglot.texi (title): Add "the".
+ (Top): Fix sentence structure in top-level
+ introduction.
+
+2022-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+ Fix previous loaddefs-gen fix
+
+2022-10-18 Eli Zaretskii <eliz@gnu.org>
+
+ Add new Texinfo manual for the Eglot LSP client
+
+ * doc/misc/eglot.texi: New file.
+
+2022-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix faulty loaddefs detection
+
+ * lisp/emacs-lisp/loaddefs-gen.el
+ (loaddefs-generate--emacs-batch): Fix faulty loaddefs detection.
+
+2022-10-18 Alan Mackenzie <acm@muc.de>
+
+ * lisp/progmodes/cc-defs.el Remove setting of inhibit-point-motion-hooks
+
+2022-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-10-18 Andrea Corallo <akrl@sdf.org>
+
+ * Prevent potential native compilation infinite recursions
+
+ * lisp/emacs-lisp/comp.el (comp-no-spawn): New var.
+ (comp-subr-trampoline-install, comp-final, comp-run-async-workers)
+ (comp--native-compile): Update.
+
+2022-10-17 Jim Porter <jporterbugs@gmail.com>
+
+ Print the correct $PATH when Eshell's 'which' fails to find a command
+
+ * lisp/eshell/esh-cmd.el (eshell/which): Use 'eshell-get-path'
+ (bug#20008).
+
+2022-10-17 Jim Porter <jporterbugs@gmail.com>
+
+ Improve handling of $PATH in Eshell for remote directories
+
+ * lisp/eshell/esh-util.el (eshell-path-env, eshell-parse-colon-path):
+ Make obsolete.
+ (eshell-path-env-list): New variable.
+ (eshell-connection-default-profile): New connection-local profile.
+ (eshell-get-path): Reimplement using 'eshell-path-env-list'; add
+ LITERAL-P argument.
+ (eshell-set-path): New function.
+
+ * lisp/eshell/esh-var.el (eshell-variable-aliases-list): Add entry for
+ $PATH.
+ (eshell-var-initialize): Add 'eshell-path-env-list' to
+ 'eshell-subcommand-bindings'.
+
+ * lisp/eshell/esh-ext.el (eshell-search-path): Use 'file-name-concat'
+ instead of 'concat'.
+ (eshell/addpath): Use 'eshell-get-path' and 'eshell-set-path'.
+
+ * lisp/net/tramp-integration.el: Only apply Eshell hooks when
+ 'eshell-path-env-list' is unbound.
+
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/path-var/local-directory)
+ (esh-var-test/path-var/remote-directory, esh-var-test/path-var/set)
+ (esh-var-test/path-var/set-locally)
+ (esh-var-test/path-var-preserve-across-hosts): New tests.
+
+ * test/lisp/eshell/esh-ext-tests.el: New file.
+
+ * test/lisp/eshell/eshell-tests-helpers.el
+ (with-temp-eshell): Set 'eshell-last-dir-ring-file-name' to nil.
+ (eshell-tests-remote-accessible-p, eshell-last-input)
+ (eshell-last-output): New functions.
+ (eshell-match-output, eshell-match-output--explainer): Use
+ 'eshell-last-input' and 'eshell-last-output'.
+
+ * doc/misc/eshell.texi (Variables): Document $PATH.
+
+ * etc/NEWS: Announce this change (bug#57556).
+
+2022-10-17 Jim Porter <jporterbugs@gmail.com>
+
+ Allow setting the values of variable aliases in Eshell
+
+ This makes commands like "COLUMNS=40 some-command" work as expected.
+
+ * lisp/eshell/esh-cmd.el (eshell-subcommand-bindings): Remove
+ 'process-environment' from here...
+
+ * lisp/eshell/esh-var.el (eshell-var-initialize): ... and add to here,
+ along with 'eshell-variable-aliases-list'.
+ (eshell-inside-emacs): Convert to a 'defvar-local' to make it settable
+ in a particular Eshell buffer.
+ (eshell-variable-aliases-list): Make $?, $$, and $* read-only and
+ update docstring.
+ (eshell-set-variable): New function...
+ (eshell-handle-local-variables, eshell/export, eshell/unset): ... use
+ it.
+ (eshell/set, pcomplete/eshell-mode/set): New functions.
+ (eshell-get-variable): Get the variable alias's getter function when
+ appropriate and use a safer method for checking function arity.
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/set/env-var)
+ (esh-var-test/set/symbol, esh-var-test/unset/env-var)
+ (esh-var-test/unset/symbol, esh-var-test/setq, esh-var-test/export)
+ (esh-var-test/local-variables, esh-var-test/alias/function)
+ (esh-var-test/alias/function-pair, esh-var-test/alias/string)
+ (esh-var-test/alias/string/prefer-lisp, esh-var-test/alias/symbol)
+ (esh-var-test/alias/symbol-pair, esh-var-test/alias/export)
+ (esh-var-test/alias/local-variables): New tests.
+
+ * doc/misc/eshell.texi (Built-ins): Add 'set' and update 'unset'
+ documentation.
+ (Variables): Expand documentation of how to get/set variables.
+
+2022-10-17 Jim Porter <jporterbugs@gmail.com>
+
+ Add helpers to dynamically assign connection-local values
+
+ * lisp/files-x.el (connection-local-criteria)
+ (connection-local-profile-name-for-setq): New variables.
+ (with-connection-local-variables-1): ... let-bind them here.
+ (connection-local-update-profile-variables)
+ (connection-local-profile-name-for-criteria): New functions.
+ (with-connection-local-application-variables, setq-connection-local):
+ New macros.
+
+ * test/lisp/files-x-tests.el: Require 'tramp-integration'
+ (files-x-test--variable5, remote-lazy-var): New variables.
+ (files-x-test-hack-connection-local-variables-apply): Expand checks.
+ (files-x-test-with-connection-local-variables): Remove
+ 'hack-connection-local-variables-apply' check (it belongs in the above
+ test), and expand some other checks.
+ (files-x-test--get-lazy-var, files-x-test--set-lazy-var): New
+ functions.
+ (files-x-test-connection-local-update-profile-variables)
+ (files-x-test-setq-connection-local): New tests.
+
+ * doc/lispref/variables.texi (Connection Local Variables): Split into
+ two subsections and document the new features.
+
+ * etc/NEWS: Announce 'setq-connection-local'.
+
+2022-10-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve ‘random’ doc re nonces
+
+ * doc/lispref/numbers.texi (Random Numbers): Improve coverage of
+ random seed, entropy pools, and why one shouldn’t use ‘random’ for
+ nonces. See Bug#58472.
+
+2022-10-17 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#58584
+
+ * src/xterm.c (x_handle_selection_monitor_event): Return if
+ selection event is one Emacs asked for.
+ (handle_one_xevent): In that case, drop the event and don't let
+ it reach GTK.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Change free to xfree in treesit.el
+
+ This should be in the last commit but I forgot.
+
+ * src/treesit.c (Ftreesit_parser_set_included_ranges): Change free to
+ xfree.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Change malloc to xmalloc in treesit.c
+
+ * src/treesit.c (Ftreesit_parser_set_included_ranges): Change malloc
+ to xmalloc.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Fix casts to uint32_t in treesit.c
+
+ * src/treesit.c (treesit_tree_edit_1): Add assertion.
+ (treesit_ensure_position_synced): Add assertion.
+ (treesit_check_buffer_size): Change error message.
+ (treesit_ensure_parsed): Move treesit_check_buffer_size and
+ treesit_ensure_position_synced together
+ (treesit_read_buffer): Add assertion.
+ (Ftreesit_parser_set_included_ranges): Add assertion. Signal error if
+ list too long. Add check for buffer size.
+ (Ftreesit_parser_included_ranges): Add check for buffer size.
+ (Ftreesit_query_capture): Add assertion.
+
+2022-10-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ Follow-up fixes for vc-default-checkin-patch
+
+ * lisp/vc/vc.el (vc-default-checkin-patch):
+ Call vc-revert-file on buffer-file-name (vc-backend failed on
+ relative name sometimes). Delete the tmp dir after copying all
+ files back, not just the first one. Bug#52349,
+ https://lists.gnu.org/archive/html/emacs-devel/2022-10/msg01446.html.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Simplify error reported by loading tree-sitter language definition
+
+ Before:
+
+ Error: Cannot load language definition:
+ "javascript",
+ ("/home/jostein/.emacs.d/tree-sitter/libtree-sitter-javascript:
+ cannot open shared object file: No such file or directory"
+ "/home/jostein/.emacs.d/tree-sitter/libtree-sitter-javascript.so:
+ cannot open shared object file: No such file or directory"
+ "libtree-sitter-javascript: cannot open shared object file: No such
+ file or directory" "libtree-sitter-javascript.so: cannot open shared
+ object file: No such file or directory")
+
+ After:
+
+ (treesit-load-language-error
+ not-found
+ ("libtree-sitter-z.so" "libtree-sitter-z.dylib")
+ "No such file or directory")
+
+ * src/treesit.c (treesit_load_language): Add base_candidates, remove
+ error_list, report base_candidates rather than error_list.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Skip tree-sitter tests unless language definition is available
+
+ * test/src/treesit-tests.el (treesit-basic-parsing)
+ (treesit-node-api)
+ (treesit-query-api)
+ (treesit-narrow)
+ (treesit-cross-boundary)
+ (treesit-multi-lang)
+ (treesit-node-supplemental): Add skip-unless form.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Fix memory leak in ts_load_language
+
+ * src/treesit.c (ts_load_language): Move initialization of c_name down
+ and free it right after use.
+
+2022-10-17 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Don't fontify as types variables with the same names as struct
tags
+
+ This fixes bug #58534.
+
+ * lisp/progmodes/cc-engine.el (c-forward-type): Only regard "struct"
keywords
+ which create self contained types (e.g. C++'s "typename") as creating
found
+ types.
+
+ * lisp/progmodes/cc-langs.el (c-self-contained-typename-kwds
+ (c-self-contained-typename-key): New language consts and variable.
+
+2022-10-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in fortran.el
+
+ * lisp/progmodes/fortran.el (fortran-mode-map): Prefer
+ defvar-keymap.
+
+2022-10-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Update version information in Gnus manual
+
+ * doc/misc/gnus.texi (Gnus Versions): Update with some information
+ from https://www.gnus.org/history.html
+ (Ma Gnus): Explain that Gnus is now developed together with
+ Emacs. (Bug#58161)
+
+2022-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/itree.c: Eliminate all prototypes for static functions
+
+ Massive code reorganization to move definitions of static functions
+ before their first use, so as to remove the need for
+ redundant prototypes.
+ While at it, fix a few places where the used more than 80 column.
+
+2022-10-17 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Silence recent comp-tests.el lexvar warnings
+
+ * test/lisp/emacs-lisp/comp-tests.el: Mark used native-compile
+ variables as special to pacify unknown lexvar warnings in the
+ default build.
+ (with-test-native-compile-prune-cache): Instrument macro arguments
+ for debugging and indent conventionally. Reindent all callers.
+ (test-native-compile-prune-cache/dont-delete-in-parent-of-cache):
+ Simplify file name expansion.
+
+2022-10-17 Eli Zaretskii <eliz@gnu.org>
+
+ Make sure the treesit path variables are lists
+
+ * src/treesit.c: (treesit_load_language)
+ (treesit_find_override_name): Make sure the lists we use are
+ really lists.
+
+2022-10-17 Matt Armstrong <matt@rfc20.org>
+
+ Rename itree iterators with itree_iterator prefix
+
+ * src/itree.h: Rename struct interval_generator -> itree_iterator.
+ Rename functions: itree_busy_p -> itree_iterator_busy_p,
+ interval_tree_iter_start -> itree_iterator_start,
+ interval_generator_narrow -> itree_iterator_narrow,
+ interval_tree_iter_finish -> itree_iterator_finish,
+ interval_generator_next -> itree_iterator_next.
+ * src/itree.c: Use new names everywhere.
+ * src/eval.c: ditto.
+
+2022-10-17 Matt Armstrong <matt@rfc20.org>
+
+ Delete the itree_null sentinel node, use NULL everywhere.
+
+ This effort caught a few (already commited) places that were
+ dereferencing through ITREE_NULL in a confusing way. It makes some
+ functions have to check for NULL in more places, but in my experinece
+ this is worth it from a code clarity point of view.
+
+ In doing this I rewrote `interval_tree_remove` completely. There
+ there was one final bug in that function that I simply could not find
+ when I #define'd ITREE_NULL to NULL. I couldn't easily understand
+ that function, so instead I rewrote it completely with a focus on code
+ clarity. Bug went away.
+
+ I have left the ITREE_NULL #define in code, to reduce code review
+ noise. It is easily removed later, mechanically.
+
+ * src/itree.h: #define ITREE_NULL to NULL and leave a FIXME.
+ * src/itree.c (itree_null): Delete the itree_null static variable.
+ (null_is_sane): Delete (and all callers).
+ (interval_tree_insert): Insert the first node as black straight away.
+ (itree_newlimit): Handle NULL children.
+ (interval_tree_remove_fix): ditto.
+ (interval_tree_insert_fix): ditto.
+ (interval_tree_remove): Rewrite for clarity.
+ (null_safe_is_red): New function.
+ (null_safe_is_black): New function.
+ (interval_tree_replace_child): Renamed from interval_tree_transplant.
+ (interval_tree_transplant): New function that something I think is
+ more like a full transplantation. (names are hard)
+
+2022-10-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve native-compile-prune-cache messages
+
+ * lisp/emacs-lisp/comp.el (native-compile-prune-cache): Quote name of
+ pruned directory.
+
+2022-10-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't prune *.eln files in parent of eln-load-path
+
+ * lisp/emacs-lisp/comp.el (native-compile-prune-cache): Don't
+ prune *.eln files in parent directory of `native-comp-eln-load-path'.
+ * test/lisp/emacs-lisp/comp-tests.el
+ (test-native-compile-prune-cache/dont-delete-in-parent-of-cache):
+ New test.
+
+2022-10-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Add tests for native-compile-prune-cache
+
+ * test/lisp/comp-tests.el: New file.
+
+2022-10-17 Po Lu <luangruo@yahoo.com>
+
+ Fix pieces of code being too expensive over slow network connections
+
+ * lisp/menu-bar.el (menu-bar-edit-menu): Test buffer-read-only
+ before gui-backend-selection-exists-p. This places the less
+ expensive condition before the more expensive one.
+ * src/xfns.c (compute_tip_xy): Use cached monitor attributes
+ whenever available.
+ (Fx_show_tip): Remove code that really did nothing.
+ (Fx_backspace_delete_keys_p): Do not download the entire keymap
+ from the server upon creating a frame.
+ * src/xmenu.c (create_and_show_popup_menu): Use
+ x_translate_coordinates_to_root.
+ (x_menu_show): Use x_translate_coordinates_to_root.
+ * src/xselect.c (Fx_selection_exists_p): If a temporary
+ selection owner can be found, use it.
+ * src/xterm.c (x_translate_coordinates_to_root)
+ (x_handle_selection_monitor_event, x_find_selection_owner): New
+ functions. These functions try to avoid downloading data from
+ the X server in places that are called very often (i.e. during
+ tool bar updates.)
+ (handle_one_xevent): Handle selection notify events. Also catch
+ some mistakes found. Fetch all kinds of key names as well.
+ (x_create_special_window): New function.
+ (x_term_init, x_delete_display): Ask for all key names. Also,
+ passively monitor selections that are given to
+ `x-selection-exists-p' during redisplay, so we do not have to
+ ask the server about them upon each redisplay.
+ (syms_of_xterm): New variable `x-fast-selection-list'.
+ * src/xterm.h (struct x_monitored_selection): New structure.
+ (X_INVALID_WINDOW): New define.
+ (struct x_display_info): New fields for selection monitoring.
+ Also, record the fixes extension base.
+
+2022-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix spurious "Compilation finished" native-comp messages
+
+ * lisp/emacs-lisp/comp.el (native--compile-async): Don't start the
+ async compilation if we didn't add anything. This avoids spurious
+ "Compilation finished" messages in the *Async* buffer when it
+ turned out that all the files we considered nativecomping were
+ skipped.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ Fix js/ts tree-sitter template_string font-lock
+
+ * lisp/progmodes/js.el (js--treesit-settings): Fontify
+ template_strings with js--fontify-template-string.
+ (js--fontify-template-string): New function.
+ (js--json-treesit-settings): Add missing :feature flag.
+ * lisp/progmodes/ts-mode.el (ts-mode--settings): Fontify
+ template_strings with js--fontify-template-string.
+
+2022-10-17 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-font-lock-rules): Warn about :feature.
+
+2022-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid having the async compile log saying it's compiling loaddefs
+
+ * lisp/loadup.el (featurep): Define the hash table in nativecomp
+ builds (but not otherwise). A more natural place to define this
+ would be in comp.el, but comp.el isn't loaded yet when we load the
+ .elc file that updates comp--no-native-compile. We could change
+ the load order and move the definition to comp.el, though.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Allow
+ inhibiting nativecomp earlier (bug#57627).
+
+ * lisp/emacs-lisp/comp.el (native-compile-async-skip-p): Use the data.
+
+2022-10-17 Andrey Listopadov <andreyorst@gmail.com> (tiny change)
+
+ Use face-spec-set instead of custom-set-faces
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/934
+
+2022-10-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Make `message-canlock-generate' faster
+
+ * lisp/gnus/message.el (message-canlock-generate): Improve performance
+ by several orders of magnitude.
+
+2022-10-16 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add default implementation for 'checkin-patch'
+
+ * lisp/vc/vc.el (vc-default-checkin-patch):
+ Add default implementation for 'checkin-patch' (bug#52349).
+ The first attempt was here:
+ https://lists.gnu.org/archive/html/emacs-devel/2022-08/msg01464.html
+
+2022-10-16 Philip Kaludercic <philipk@posteo.net>
+
+ * src/keyboard.c (echo_add_key): Mention quick-help
+
+2022-10-16 Philip Kaludercic <philipk@posteo.net>
+
+ Only clone packages if necessary
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack): Check if
+ directory exists before cloning.
+
+2022-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic: Fix `advertised-calling-convention` declarations
+
+ * lisp/emacs-lisp/cl-generic.el (cl-generic-define-method):
+ Preserve the `advertised-calling-convention`, if any (bug#58563).
+
+ * lisp/subr.el (declare): Warn when we hit this.
+
+ * lisp/emacs-lisp/byte-run.el (get-advertised-calling-convention): New
fun.
+ * lisp/progmodes/elisp-mode.el (elisp-get-fnsym-args-string):
+ * lisp/help-fns.el (help-fns--signature):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-fdefinition): Use it.
+
+ * test/lisp/emacs-lisp/cl-generic-tests.el (cl-generic-tests--acc): New
fun.
+ (cl-generic-tests--advertised-calling-convention-bug58563): New test.
+
+2022-10-16 Philip Kaludercic <philipk@posteo.net>
+
+ Attempt to infer the package subject if missing
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-main-file): Add function.
+ (package-vc-generate-description-file): Infer the subject.
+
+2022-10-16 kobarity <kobarity@gmail.com>
+
+ Move and rename Python completion ERTs
+
+ * test/lisp/progmodes/python-tests.el
+ (python-shell-completion-at-point-1)
+ (python-shell-completion-at-point-native-1)
+ (python-completion-at-point-1)
+ (python-completion-at-point-2, python-completion-at-point-pdb-1)
+ (python-completion-at-point-native-1)
+ (python-completion-at-point-native-2)
+ (python-completion-at-point-native-with-ffap-1)
+ (python-completion-at-point-native-with-eldoc-1): Renamed tests
+ (bug#58565).
+
+2022-10-16 Eli Zaretskii <eliz@gnu.org>
+
+ Support MinGW build on MS-Windows
+
+ * src/treesit.c [WINDOWSNT]: Add MS-Windows boilerplate for
+ dynamically-loaded optional libraries.
+ (init_treesit_functions) [WINDOWSNT]: New function.
+ (load_tree_sitter_if_necessary): New function.
+ (ts_initialize): Call 'load_tree_sitter_if_necessary'.
+ (ts_delete_parser, ts_delete_query, ts_named_node_p): Wrapper
+ functions for TS calls from outside treesit.c.
+ (Ftreesit_parser_root_node, Ftreesit_parser_set_included_ranges)
+ (Ftreesit_parser_included_ranges, Ftreesit_node_type)
+ (Ftreesit_node_start, Ftreesit_node_end, Ftreesit_node_string)
+ (Ftreesit_node_parent, Ftreesit_node_child, Ftreesit_node_check)
+ (Ftreesit_node_field_name_for_child, Ftreesit_node_child_count)
+ (Ftreesit_node_next_sibling, Ftreesit_node_prev_sibling)
+ (Ftreesit_node_first_child_for_pos)
+ (Ftreesit_node_descendant_for_range, Ftreesit_node_eq)
+ (Ftreesit_query_compile, Ftreesit_query_capture)
+ (Ftreesit_search_subtree, Ftreesit_search_forward)
+ (Ftreesit_induce_sparse_tree): Call 'ts_initialize' before any
+ other TS functions.
+ (Ftreesit_available_p): 'treesit-available-p' implemented in C, so
+ that on WINDOWSNT the library could be loaded dynamically.
+ * src/treesit.h (ts_delete_parser, ts_delete_query)
+ (ts_named_node_p): Add prototypes.
+ * src/print.c (print_vectorlike):
+ * src/alloc.c (cleanup_vector): Call tree-sitter function via
+ wrappers defined in treesit.c, not directly, because WINDOWSNT
+ redefines the TS functions to be called via function pointers.
+ * src/Makefile.in (base_obj): Add treesit.o
+ (TREE_SITTER_OBJ): Remove.
+
+ * lisp/treesit.el (treesit-available-p): Remove: now implemented
+ in C.
+ * lisp/term/w32-win.el (dynamic-library-alist): Add libtree-sitter
+ DLLs.
+
+ * configure.ac (TREE_SITTER): Support the MinGW build.
+ (TREE_SITTER_OBJ): Remove.
+
+2022-10-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in ansi-osc.el
+
+ * lisp/ansi-osc.el (ansi-osc-hyperlink-map): Prefer defvar-keymap.
+
+2022-10-16 Philip Kaludercic <philipk@posteo.net>
+
+ Mark source packages as always updatable
+
+ * lisp/emacs-lisp/package.el (package--updateable-packages): Add check
+ for source packages.
+
+2022-10-16 Philip Kaludercic <philipk@posteo.net>
+
+ Delete 'package-contact-maintainer'
+
+ * doc/emacs/package.texi: Remove mention.
+ * etc/NEWS: Remove mention.
+ * lisp/emacs-lisp/package.el: Remove the command.
+
+2022-10-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Make help-for-help echo key on failure
+
+ * lisp/help-macro.el (make-help-screen): Echo key on failure.
+
+2022-10-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Bind "home"/"end" in help-for-help
+
+ * lisp/help-macro.el (make-help-screen): Bind "home"/"end" keys to
+ scrolling up/down.
+
+2022-10-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't ding when exiting help-for-help with C-g
+
+ * lisp/help-macro.el (make-help-screen): Don't ding on "C-g".
+
+2022-10-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clear misleading message in help-quit-or-quick
+
+ * lisp/help.el (help-quit-or-quick): Clear misleading message
+ (bug#58542).
+
+2022-10-16 kobarity <kobarity@gmail.com>
+
+ Fix invalid search bound error in python-shell-completion-at-point
+
+ * lisp/progmodes/python.el (python-shell-completion-at-point): Add
+ check if point is before line-start.
+ * test/lisp/progmodes/python-tests.el
(python-shell-completion-shell-buffer-1)
+ (python-shell-completion-shell-buffer-native-1): New tests
+ (bug#58548).
+
+2022-10-16 Daniel Martín <mardani29@yahoo.es>
+
+ Signal an error in dictionary lookup if there's no word at point
+
+ * lisp/net/dictionary.el (dictionary-lookup-definition): Signal an
+ error when there is no word at point (bug#58552).
+
+2022-10-16 kobarity <kobarity@gmail.com>
+
+ Disable completion when PDB is active in Python Shell buffer
+
+ * lisp/progmodes/python.el (python-shell-completion-at-point): Disable
+ completion in Python buffer when PDB is active in Python Shell buffer.
+ * test/lisp/progmodes/python-tests.el (python-shell-completion-pdb-1):
+ New test (bug#58562).
+
+2022-10-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 067361f3a2 ; Improve documentation of 'C-M-i'
+ fdb6f7cf26 ; Fix documentation of 'comp-enable-subr-trampolines'
+ be30369e01 ; Avoid incorrect indentation in an @example.
+ 4bd3dd505e Document how to control where the *.eln files are written
+ b7d7c2d9e9 Add cross-reference to alternative syntaxes for Unicode
+
+ # Conflicts:
+ # doc/emacs/custom.texi
+
+2022-10-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Expand 'random' testsuite
+
+ * test/src/fns-tests.el (ert): Require.
+ (fns-tests-random): Expand test.
+
+2022-10-16 Po Lu <luangruo@yahoo.com>
+
+ Adapt last change to Haiku port
+
+ * src/haikuterm.c (haiku_frame_up_to_date):
+ (haiku_clear_frame):
+ (haiku_update_begin):
+ (haiku_flush):
+ (haiku_flush_dirty_back_buffer_on):
+ (haiku_read_socket):
+ * src/haikuterm.h (struct haiku_output):
+ (FRAME_COMPLETE_P): Synchronize logic with X.
+
+2022-10-16 Po Lu <luangruo@yahoo.com>
+
+ Fix multiple sources of flicker under X
+
+ Fix three kinds of flicker. The first is if you do:
+
+ (while t (sit-for 1) (redraw-display))
+
+ and press a key, the frame will turn blank until you C-g. The
+ second is where handling async input happens in the middle of
+ drawing and causes a buffer flip to happen. The third is where
+ unmapping the hourglass window causes exposures.
+
+ * src/dispnew.c (redraw_frame): Garbage the frame if it is a
+ window system frame.
+ * src/xterm.c (x_update_begin): Clear complete flag.
+ (x_flip_and_flush, XTframe_up_to_date): Set complete flag.
+ (x_show_hourglass): Fix hourglass window class.
+ (flush_dirty_back_buffer_on): Rename to
+ x_flush_dirty_back_buffer_on.
+ (x_flush_dirty_back_buffer_on): Check if the frame is complete
+ before trying to flip.
+ (handle_one_xevent): Flush frames in a more detailed fashion.
+ * src/xterm.h (struct x_output): New flag `complete'.
+ (FRAME_X_COMPLETE_P): New macro.
+
+2022-10-15 Yuan Fu <casouri@gmail.com>
+
+ Update ts-mode font-lock to work with tree-sitter's :feature
+
+ * lisp/progmodes/ts-mode.el (ts-mode--settings): Add :feature flag.
+ (ts-mode): Set treesit-font-lock-feature-list.
+
+2022-10-15 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix ‘make bootstrap’ when the *.m4 files change
+
+ This should help avoid problems like Bug#58535.
+ * Makefile.in (bootstrap-clean): Also remove autom4te.cache.
+
+2022-10-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Minor Tramp fixes
+
+ * lisp/net/tramp-sh.el (tramp-perl-id): Fix Perl script.
+ (tramp-sh-handle-expand-file-name):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-expand-file-name):
+ Check, that there's really a Tramp file name.
+
+2022-10-15 Philip Kaludercic <philipk@posteo.net>
+
+ Merge branch 'master' into feature/package+vc
+
+ * lisp/vc/vc-git.el (vc-git-symbolic-commit): Use --no-undefined
+
+2022-10-15 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/vc/vc-git.el (vc-git-symbolic-commit): Add argument FORCE
+
+ (Bug#57400)
+
+2022-10-15 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/vc/vc-git.el (vc-git--rev-parse): Allow abbreviating commits
+
+ * lisp/vc/vc-git.el (vc-git-working-revision): Use abbreviated comment
+ references. (Bug#57400)
+
+2022-10-15 Philip Kaludercic <philipk@posteo.net>
+
+ Handle ;;;###theme-autoload comments in etc/themes
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--emacs-batch):
+ Extract the autoloads and have them loaded along with loaddefs.el.
+ * etc/NEWS: Mention the new feature. (Bug#57639)
+
+2022-10-15 Philip Kaludercic <philipk@posteo.net>
+
+ Tag themes with properties
+
+ * doc/emacs/custom.texi (Custom Themes): Document
'theme-choose-variant'.
+ * doc/lispref/customize.texi (Custom Themes): Document the new
+ optional argument to 'deftheme'.
+ (Autoload): Mention that 'deftheme' is not copied verbatim.
+ * etc/themes/adwaita-theme.el (adwaita): Add properties.
+ * etc/themes/deeper-blue-theme.el (deeper-blue): Add properties.
+ * etc/themes/dichromacy-theme.el (dichromacy): Add properties.
+ * etc/themes/light-blue-theme.el (light-blue): Add properties.
+ * etc/themes/manoj-dark-theme.el (manoj-dark): Add properties.
+ * etc/themes/misterioso-theme.el (misterioso): Add properties.
+ * etc/themes/tango-dark-theme.el (tango-dark): Add properties.
+ * etc/themes/tango-theme.el (tango): Add properties.
+ * etc/themes/tsdh-dark-theme.el (tsdh-dark): Add properties.
+ * etc/themes/tsdh-light-theme.el (tsdh-light): Add properties.
+ * etc/themes/wheatgrass-theme.el (wheatgrass): Add properties.
+ * etc/themes/whiteboard-theme.el (whiteboard): Add properties.
+ * etc/themes/wombat-theme.el (wombat): Add properties.
+ * etc/themes/modus-operandi-theme.el: Add properties.
+ * etc/themes/modus-vivendi-theme.el: Add properties.
+ * etc/themes/leuven-dark-theme.el (leuven-dark): Add properties.
+ * etc/themes/leuven-theme.el (leuven): Add properties.
+ * lisp/custom.el (deftheme): Allow for optional arguments to set the
+ property list.
+ (custom-declare-theme): Accept the same optional arguments as
'deftheme'.
+ (theme-list-variants): Add new function.
+ (theme-choose-variant): Add new command for switching between members
+ of a theme family.
+ (toggle-theme): Add an alias for 'theme-choose-variant'.
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--make-autoload):
+ Handle 'defcustom's by extracting the properties. (Bug#57639)
+
+2022-10-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Add no-byte-compile to the ".dir-locals.el" auto-insert template
+
+ * lisp/autoinsert.el (auto-insert-alist): Add the no-byte-compile
+ cookie to the ".dir-locals.el" template.
+
+2022-10-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete broken link to Network Theory Ltd.
+
+ Sadly, their website has been down for several months already.
+ I was unable to find a new link, but it seems like they haven't
+ published anything new for over a decade.
+ * doc/misc/org.org (Summary): Remove broken link to Network Theory Ltd.
+
+2022-10-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix encoding and decoding of process I/O in Eshell on Windows
+
+ * lisp/eshell/esh-proc.el (eshell-gather-process-output): Set up
+ encoding and decoding of text to/from the subprocess for
+ MS-Windows. (Bug#58281)
+
+2022-10-15 Po Lu <luangruo@yahoo.com>
+
+ Remove redundant call to expensive function XOpenDisplay
+
+ * src/xterm.c (x_term_init): Speed up opening Emacs over a slow
+ network connection by an order of magnitude on no toolkit builds
+ by avoiding a redundant call to XOpenDisplay.
+
+2022-10-15 Po Lu <luangruo@yahoo.com>
+
+ Fix XDS file name expansion
+
+ * lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
+ again. That code was mistakenly removed.
+
+2022-10-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Use file-size-human-readable in memory-report--format
+
+ * lisp/emacs-lisp/memory-report.el (memory-report--format): Use
+ file-size-human-readable.
+
+2022-10-14 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Update image-circular-tests.el
+
+ * test/manual/image-circular-tests.el
+ (image-test-duplicate-keywords): Skip unless images are supported.
+ (image-test-circular-plist, image-test-:type-property-value): Ditto.
+ Wrap only failing forms in should[-error] rather than entire test
+ bodies. Use simpler printed notation in place of function calls.
+ (image-test-circular-specs): Ditto. Wrap overly wide docstring.
+ Mark as failing since shortly after its introduction (bug#36403#63).
+
+2022-10-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ src/textprop.c (get_char_property_and_overlay): Fix bug#58479
+
+ Correct `get-char-property` which failed to ignore empty overlays.
+
+ * src/textprop.c (get_char_property_and_overlay): Make sure the
+ overlay covers the character.
+ * test/src/buffer-tests.el (buffer-tests--overlay-bug58479): New test.
+ * src/buffer.h (buffer_has_overlays): Avoid `interval_tree_size`.
+
+2022-10-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Rename `file-attribute-file-number' to `file-attribute-file-identifier'
+
+ * doc/lispref/files.texi (File Attributes):
+ * etc/NEWS:
+ * lisp/files.el (find-buffer-visiting, find-file-noselect)
+ (set-visited-file-name, basic-save-buffer)
+ (file-attribute-file-identifier):
+ * lisp/startup.el (normal-top-level-add-subdirs-to-load-path):
+ * lisp/eshell/em-unix.el (eshell-shuffle-files):
+ * src/dired.c (Ffile_attributes):
+ Rename `file-attribute-file-number' to `file-attribute-file-identifier'.
+
+2022-10-14 Eli Zaretskii <eliz@gnu.org>
+
+ Document how to control where the *.eln files are written
+
+ * doc/lispref/compile.texi (Native Compilation): Document the
+ trick of pointing $HOME to a non-existent directory.
+ (Native-Compilation Variables): Document the role of
+ 'native-comp-eln-load-path' in determining where *.eln files are
+ written.
+
+2022-10-14 Alan Mackenzie <acm@muc.de>
+
+ Correctly fontify C++'s operator"" _tag (...)
+
+ Give both the "" and _tag font-lock-function-name-face. Also correct
the
+ fontification of an inherited class name when there is an attribute
between
+ the class name being declared and the colon introducing the inheritance.
+
+ * lisp/progmodes/cc-engine.el (c-forward-over-colon-type-list): New
function.
+ (c-forward-keyword-clause): Use the above new function instead of a
+ looking-at.
+ (c-forward-name, c-forward-declarator): Accept both the "" and the tag
as part
+ of the name.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-declarators): Fontify the ""
(which
+ already has font-lock-string-face) and the tag with
+ font-lock-function-name-face.
+
+ * lisp/progmodes/cc-langs.el (c-overloadable-operators): Add "" to this
list.
+ (c-sub-colon-type-list-re): New lang-const and lang-var.
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ Add a quick-help menu
+
+ * lisp/help.el (help-map): Bind 'help-quit-or-quick' instead of
'help-quit'.
+ (help-quick-sections): Add variable.
+ (help-quick): Add main command.
+ (cheat-sheet): Add alias for 'help-quick'.
+ (help-quit-or-quick): Add auxiliary command.
+ lisp/help.el (help-for-help): Mention 'help-quit-or-quick'.
+ * etc/NEWS (https): Mention 'help-quit'.
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/net/rcirc.el (rcirc-bridged-nick): Inherit from highlight
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ Allow filtering what items are added to Ecomplete
+
+ * etc/NEWS: Mention new option.
+ * lisp/ecomplete.el (ecomplete-filter-regexp): Add new option.
+ (ecomplete-add-item): Respect new option. (bug#58487)
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ Prevent .dir-locals.el from being byte-compiled
+
+ * lisp/files-x.el (modify-dir-local-variable): Add a 'no-byte-compile'
+ file local variable when generating a .dir-locals.el
+ file.
+ * .dir-locals.el: Add 'no-byte-compile'. (Bug#58486)
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/net/rcirc.el (rcirc-generate-log-filename): Append ".log"
+
+ (Bug#54718)
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ Prepare all inline patches at once
+
+ * lisp/vc/vc.el (vc-prepare-patch): Remove the usage of
+ 'recursive-edit' when 'vc-prepare-patches-separately' is non-nil.
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ Allow reordering commits in 'vc-prepare-patch' prompt
+
+ * lisp/vc/vc.el (vc-prepare-patch): Use marked log-view commits as
+ initial input.
+
+2022-10-14 Philip Kaludercic <philipk@posteo.net>
+
+ Mention that vc-prepare-patch can interact with a log-view
+
+ * lisp/play/zone.el (zone): Allow selecting a program
+
+2022-10-14 Robert Pluim <rpluim@gmail.com>
+
+ Add cross-reference to alternative syntaxes for Unicode
+
+ These alternative syntaxes allow you to specify Unicode codepoints
+ using only ASCII, which helps avoid decoding issues.
+
+ * doc/emacs/custom.texi (Init Non-ASCII): Add cross reference to
+ "General Escape Syntax" in the Emacs Lisp Reference Manual.
+
+2022-10-14 Reuben Thomas <rrt@sc3d.org>
+
+ Do perl documentation lookups case-insensitively, like man
+
+ * lisp/progmodes/cperl-mode.el (cperl-perldoc): add -i to the perldoc
+ command.
+
+2022-10-14 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#56153
+
+ * src/nsterm.m (get_keysym_name)
+ (ns_draw_glyphless_glyph_string_foreground): Fix new Mac OS
+ deprecations.
+
+ ([EmacsApp terminate:]): Use kbd_buffer_store_event instead
+ of emacs_event. (bug#56153)
+ ([EmacsView windowDidChangeBackingProperties:]): Fix new Mac
+ OS deprecation.
+
+2022-10-14 Po Lu <luangruo@yahoo.com>
+
+ Avoid redundant creation of XRender pictures
+
+ * src/xterm.c (x_composite_image): Take arg DESTINATION. Do not
+ create a picture if it is set.
+ (x_draw_image_foreground, x_draw_image_foreground_1): Pass
+ destination where appropriate.
+
+2022-10-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 85e47d9a9e ; Continued cleanup of "-hooks"
+
+2022-10-13 Yuan Fu <casouri@gmail.com>
+
+ Update tree-sitter manual to reflect the previous commit
+
+ * doc/lispref/modes.texi: Update manual to reflect previous change:
+ remove :toggle and :level, add :feature. Document new variables and
+ functions.
+ * doc/lispref/parsing.texi: Add the missing closing bracket in
+ @code{(t . nil)}.
+
+2022-10-13 Yuan Fu <casouri@gmail.com>
+
+ Rework tree-sitter font-lock
+
+ Remove :toggle and :level, add :feature.
+
+ * lisp/progmodes/js.el (js--treesit-settings): Add :feature.
+ (js--treesit-enable): Set treesit-font-lock-feature-list.
+ * lisp/progmodes/python.el: Replace :level with :feature.
+ (python-mode): Set treesit-font-lock-feature-list.
+ * lisp/treesit.el (treesit-font-lock-feature-list): New variable.
+ (treesit-font-lock-settings): Change format.
+ (treesit-font-lock-rules): Remove :toggle and :level, add :feature.
+ (treesit-font-lock-recompute-features): New function.
+ (treesit-font-lock-fontify-region): Change to work with the new
+ format.
+ (treesit-font-lock-enable): Add call to
+ treesit-font-lock-recompute-features. And improve the font-lock-mode
+ workaround.
+
+2022-10-13 Yuan Fu <casouri@gmail.com>
+
+ * doc/lispref/parsing.texi: Add manual for treesit-query-language.
+
+ * src/treesit.c (Ftreesit_query_language): New function.
+
+2022-10-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Clarify structure of file-attribute's device number
+
+ * doc/lispref/buffers.texi (Buffer File Name): Fix description of
+ buffer-file-number.
+
+ * doc/lispref/files.texi (File Attributes): Clarify type of device
+ number. Describe file-attribute-file-number. (Bug#58446)
+
+ * etc/NEWS: Mention file-attribute-file-number.
+
+ * lisp/files.el (buffer-file-number, file-attribute-device-number)
+ (file-attribute-collect): Fix docstring.
+ (file-attribute-file-number): New defsubst.
+ (find-buffer-visiting, find-file-noselect)
+ (set-visited-file-name, basic-save-buffer):
+ * lisp/startup.el (normal-top-level-add-subdirs-to-load-path):
+ * lisp/eshell/em-unix.el (eshell-shuffle-files): Use it.
+
+ * src/dired.c (Ffile_attributes): Fix docstring.
+
+2022-10-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve checks for recent "File exists" fixup
+
+ * src/fileio.c (Finsert_file_contents): Add an assertion (bug#42431).
+
+2022-10-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Make `info' treat "\n" in node names as "\s"
+
+ * lisp/info.el (info): Treat "\n" in node name as "\s". (Bug#57936)
+
+2022-10-13 Po Lu <luangruo@yahoo.com>
+
+ Shrink client list window structure
+
+ * src/xterm.c (struct x_client_list_window): Rearrange members
+ for better alignment.
+
+2022-10-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify recent "File exists" fix
+
+ * src/fileio.c (Finsert_file_contents):
+ Simplify previous change that fixed bug#42431.
+
+2022-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix hl-line-mode/global-hl-line-mode logic again
+
+ * lisp/hl-line.el (hl-line-mode): Make explicit calls to
+ (hl-line-mode 1) work again when global-hl-line-mode is on
+ (bug#58478).
+
+2022-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix browse-url-emacs for file: URLs on Windows
+
+ * lisp/net/browse-url.el (browse-url-emacs): Fix up
+ file:///c:/foo/bar URLs on windows (bug#58464).
+
+2022-10-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Rearrange button/margin functions.
+
+ (outline--make-button-overlay, outline--make-margin-overlay)
+ (outline--insert-open-button, outline--insert-close-button)
+ (outline--fix-up-all-buttons): Move to the section "Button/margin
indicators".
+
+2022-10-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline--fix-buttons-after-change): New function.
+
+ (outline-minor-mode): Use it.
+ (outline--make-margin-overlay): Remove inhibit-read-only.
+
+2022-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix misleading "File exists, but cannot be read" in browse-url-emacs
+
+ * src/fileio.c (Finsert_file_contents): Don't signal an error
+ about not being able to open the file when we're fetching things
+ via handlers -- in that case, modtime isn't necessarily set, and
+ if there's a handler, it should take care of this (bug#42431).
+
+2022-10-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 4b4b093ab3 ; * admin/make-tarball.txt: Fix typo.
+
+2022-10-12 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ src/frame.c (do_switch_frame): Fix bug#58343
+
+ * src/frame.c (do_switch_frame): Move call to `get-mru-window` outside
+ of the "critical region" where (selected-window) !=
(frame-selected-window).
+ * src/minibuf.c (move_minibuffers_onto_frame): Add arg `frame`.
+ Use it instead of `selected_frame`. Adjust all callers.
+ * src/lisp.h (move_minibuffers_onto_frame): Adjust declaration.
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ * etc/NEWS: Mention package-vc additions
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ Document package-vc
+
+ * doc/emacs/package.texi (Package Files): Add new node.
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ Allow specifying a package name for 'package-vc-link-directory'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Add
argument NAME
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-refresh): Add function.
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ Rename 'package-vc-link-project' to 'package-vc-link-directory'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-link-project): Rename it.
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ Run 'package-vc-unpack-1' after updating source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-update): Call
+ 'package-vc-unpack-1'.
+
+2022-10-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from conao3/add-commands-keyword
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/917
+
+2022-10-12 Yuan Fu <casouri@gmail.com>
+
+ Better signal data for treesit-load-language-error
+
+ * src/treesit.c (ts_load_language): Better formatted signal data,
+ (Ftreesit_langauge_available_p): Optionally return the signal data if
+ language not available.
+ * doc/lispref/parsing.texi: Document the signal data in detail.
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ Add new command to install a package via symbolic linking
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack-1): Add new function.
+ (package-vc-unpack): Use 'package-vc-unpack-1'.
+ (package-vc-link-project): Add new command.
+
+2022-10-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Native-Compilation Variables slightly
+
+ * doc/lispref/compile.texi (Native-Compilation Variables): Clarify
+ trampoline bit (bug#58429).
+
+2022-10-12 Philip Kaludercic <philipk@posteo.net>
+
+ Only use 'package-vc-repository-store' if necessary
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-unpack): Check if the
+ upstream data indicates a custom lisp directory.
+ * lisp/emacs-lisp/package.el (package--delete-directory): Adapt
+ accordingly.
+
+2022-10-12 Po Lu <luangruo@yahoo.com>
+
+ Improve makefile-imake-mode
+
+ * lisp/progmodes/make-mode.el
+ (makefile-imake-font-lock-keywords): Give Imake priority over
+ CPP keywords, and don't require comments to start at BOL.
+ (makefile-imake-mode): Set comment-start to some sensible value.
+
+2022-10-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix thinko in read-string-from-buffer
+
+ * lisp/textmodes/string-edit.el (string-edit-done): Return an empty
+ string when the user has entered no text.
+
+2022-10-12 kobarity <kobarity@gmail.com>
+
+ Fix Python completion when point in shell buffer is before prompt
+
+ * lisp/progmodes/python.el (python-shell-completion-at-point): Limit
+ prompt boundaries check to shell buffer.
+ * test/lisp/progmodes/python-tests.el (python-shell-completion-2):
+ (python-shell-completion-native-2): New tests (bug#58441).
+
+2022-10-12 Po Lu <luangruo@yahoo.com>
+
+ Stop relying on Xt hack to set window manager hints
+
+ * src/widget.c (get_wm_shell): Return WMShellWidget.
+ (update_wm_hints, widget_update_wm_size_hints): Return whether
+ or not size hints changed.
+ * src/widget.h: Delete `size_switch'.
+ * src/widgetprv.h (EmacsFramePart): Likewise.
+ * src/xterm.c (x_wm_set_size_hint): Set size hints the usual way
+ if Xt did not set them. (bug#58412)
+
+2022-10-12 Theodor Thornhill <theo@thornhill.no>
+
+ Add TypeScript support with tree-sitter
+
+ * lisp/progmodes/ts-mode.el (ts-mode): New major mode for TypeScript
+ with support for tree-sitter. It uses the TSX parser, so that we get
+ support for TSX as well as TypeScript. If we cannot find tree-sitter,
+ we default to using js-mode.
+
+2022-10-12 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 3787d0b11a ; * doc/lispref/windows.texi (Window Hooks): Fix markup (b...
+
+2022-10-11 Andrea Corallo <andrea.corallo@arm.com>
+
+ Add trampoline AOT compilation target (bug#58318)
+
+ * Makefile.in (trampolines): New target.
+ * lisp/Makefile.in (trampolines): Likewise.
+ * lisp/emacs-lisp/comp.el (comp-compile-all-trampolines): New
+ function.
+
+2022-10-11 Theodor Thornhill <theo@thornhill.no>
+
+ Fix byte-compile warning for js--treesit-defun-type-regexp
+
+ * lisp/progmodes/js.el (js--treesit-defun-type-regexp): Move before
+ js--treesit-beginning-of-defun.
+
+2022-10-11 Yuan Fu <casouri@gmail.com>
+
+ Lazily compile tree-sitter query
+
+ See comment on struct Lisp_TS_Query for why. Previous commits adding
+ python and js support for tree-sitter breaks Emacs build if language
+ definitions aren't available at build time. This commit fixes that.
+
+ Now query object don't compile the query upon creation, but stores the
+ query source and language symbol, and compiles upon first use (in
+ treesit-query-capture).
+
+ I want ts_ensure_query_compiled to return signal symbol and data
+ rather than signaling itself, because it's a helper function not lisp
+ function. But because it calls ts_load_language, I had to update
+ ts_load_language to also use the signal symbol/data interface.
+
+ * src/treesit.h (struct Lisp_TS_Query): Add two new field.
+ * src/treesit.c (ts_load_language): Return signal symbol and data
+ rather than signaling itself.
+ (Ftreesit_langauge_available_p)
+ (Ftreesit_parser_create): Update usage of ts_load_language
+
+ (make_ts_query): Now returns a lisp object.
+ (ts_query_error_to_string): Moved because it's used by
+ ts_compose_query_signal_data.
+ (ts_compose_query_signal_data)
+ (ts_ensure_query_compiled): New functions.
+ (Ftreesit_query_compile): Delay compiling the query.
+ (Ftreesit_query_capture): Instead of creating a query object which
+ compiles the query, now goes two routes: if QUERY is a query object,
+ make sure it is compiled and use the TSQuery; if QUERY is a cons or
+ string, compile directly to TSQuery, and free it after use. Creating
+ a lisp query requires the language symbol, but in this function we
+ only have TSLanguage.
+
+2022-10-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c (check_tree): Simplify
+
+ * src/itree.c (struct check_subtree_result): Remove `complete`.
+ (check_subtree): Remove `max_depth` arg (and adjust callers).
+ Use 0 as black-depth of empty tree.
+ Remove redundant `node->parent` check (already performed by the caller).
+ (check_tree): Replace with `check_tree_common` (update all callers).
+ Check the root's `parent` field.
+ (check_tree_no_rb): Delete function, inlined in its sole caller.
+ (interval_tree_remove): Add call to `check_tree` (without RB checks)
+ before `interval_tree_remove_fix`. Move update of `size`
+ field accordingly.
+
+2022-10-11 Po Lu <luangruo@yahoo.com>
+
+ Also avoid setting _NET_WM_USER_TIME on crossing
+
+ * src/xterm.c (handle_one_xevent): Stop setting user time prop
+ on crossing events.
+
+2022-10-11 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): actually bump to 1.9
+
+2022-10-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make read-string-from-buffer and string-edit mention each other
+
+ * lisp/textmodes/string-edit.el (read-string-from-buffer)
+ (string-edit): Mention each other in the doc strings.
+
+2022-10-11 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up scrolling when lines are very long and truncated
+
+ * src/window.c (window_scroll_for_long_lines): New function.
+ (window_scroll): Call 'window_scroll_for_long_lines' when lines
+ are very long and truncated on display. Also, disable
+ 'fontification-functions' during scrolling in that case.
+ * src/xdisp.c (redisplay_window): When recentering the window's
+ display, go back to the centering position using a simplified
+ method, if lines in the buffer are very long and truncated on
+ display.
+
+2022-10-11 Po Lu <luangruo@yahoo.com>
+
+ Remove some more unnecessary calls to block_input
+
+ * src/xterm.c (x_update_opaque_region, show_back_buffer)
+ (XTbuffer_flipping_unblocked_hook, x_clear_under_internal_border)
+ (x_after_update_window_line): Remove and add calls to
+ block_input as required.
+
+2022-10-10 Matt Armstrong <matt@rfc20.org>
+
+ Stop reading and writing the itree_null.parent field entirely.
+
+ With this change all fields in the itree_null sentinel are read only.
+ This makes accessing itree_null thread safe in an obvious way.
+
+ Because it took two commits from two peole to get this right, I think
+ we can call this design fragile and difficult to reason about.
+ Another benefit of this commit is as preparation for removing sentinel
+ node completely, and just using NULL.
+
+ * src/itree.c (itree_null): Statically initialize itree_null.parent to
+ NULL. It is never accessed.
+ (null_is_sane): Assert parent == NULL.
+ (interval_tree_remove_fix): Remove unecessary assignments to parent
+ from node->parent. These were the last places itree_null.parent were
+ read.
+ (interval_tree_remove): Avoid an assignment to itree_null.parent
+ through min->right->parent.
+ (interval_tree_transplant): Avoid an assignment to itree_null.parent
+ through source->parent.
+
+2022-10-10 Matt Armstrong <matt@rfc20.org>
+
+ Simplify itree_null initialization
+
+ * src/itree.c (null_is_sane): call eassert directly, check
+ REAR_ADVANCE, FRONT_ADVANCE. Add FIXME that PARENT is still
+ read/write.
+ (itree_null): initialize statically
+ (itree_init): remove initialization code, call eassert(null_is_sane())
+ (check_tree_common): call eassert (null_is_sane())
+
+2022-10-10 Matt Armstrong <matt@rfc20.org>
+
+ Check red-black invariants in most places
+
+ Stefan recently disabled this but I happened to want it back soon
+ after.
+
+ * src/itree.c (check_subtree): new arg: allow_red_red
+ (check_tree_common): renamed from check_tree, pass allow_red_red
+ through.
+ (check_tree): new function, pass allow_red_red=false
+ (interval_tree_insert): check_tree -> check_tree_common with
+ allow_red_red=true.
+
+2022-10-10 Matt Armstrong <matt@rfc20.org>
+
+ Improve check_subtree
+
+ * src/itree.c (struct check_subtree_result): new struct returned by
+ check_subtree.
+ (check_subtree): new function, renamed from recurse_check_tree. Add
+ new black height assertions.
+ (check_tree): assert that the tree has non-negative size, assert that
+ limiting to interval_tree_max_height(tree) levels is enough to
+ traverses the complete tree.
+
+2022-10-10 F. Jason Park <jp@neverwas.me>
+
+ Accommodate missing spec values in erc-format-message
+
+ * lisp/erc/erc.el (erc-format-message): Although not mentioned in its
+ log message, commit 5281946fbf6b3cdbec5ce82e0057c71849faf4d2 "Make
+ format-spec accept function substitutions" also fixed a bug involving
+ the `ignore-missing' parameter of `format-spec'. Until now, ERC has
+ been relying on the old behavior to gracefully handle malformed server
+ messages. This commit tries to regain that functionality.
+
+2022-10-10 Philipp Stephani <p.stephani2@gmail.com>
+
+ Add gettid to seccomp-filter
+
+ * lib-src/seccomp-filter.c (main): gettid is necessary on RHEL 9.0
+ (bug#56359).
+
+2022-10-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the view-remove-frame-by-deleting variable
+
+ * lisp/view.el (view-remove-frame-by-deleting): Remove variable
+ that hasn't been used since 2011 -- 357f93d245344 reworked the
+ code and stopped using it (bug#58413).
+
+2022-10-10 kobarity <kobarity@gmail.com>
+
+ Fix Python completion failure under certain conditions
+
+ * lisp/progmodes/python.el (python-shell-send-string-no-output):
+ Save and restore `comint-last-prompt-overlay' or `comint-last-prompt'.
+ * test/lisp/progmodes/python-tests.el
(python-tests-shell-wait-for-prompt):
+ New helper function.
+ (python-tests-with-temp-buffer-with-shell): New helper macro.
+ (python-shell-completion-1, python-shell-completion-native-1)
+ (python-shell-completion-native-with-ffap-1)
+ (python-shell-completion-native-with-eldoc-1): New tests (bug#58389).
+
+2022-10-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve error message from sqlite-execute
+
+ * src/sqlite.c (sqlite_prepare_errmsg): New function.
+ (Fsqlite_execute): Use it to get the same error format for both
+ execute and select.
+ (Fsqlite_select): Factored out from here.
+
+2022-10-10 Jim Porter <jporterbugs@gmail.com>
+
+ Don't prompt when killing an Emacs client if it's the last client
+
+ * lisp/server.el (server-kill-emacs-query-function): Ignore the
+ current client (if any) when checking for live clients (bug#58404).
+
+2022-10-10 Daniel Martín <mardani29@yahoo.es>
+
+ Fix typo in Makefile.in
+
+ * src/Makefile.in (TREE_SITTER_CFLAGS): Set the correct C flags.
+
+2022-10-10 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp completion on MS Windows
+
+ * lisp/net/tramp.el (tramp-build-remote-file-name-spec-regexp):
+ Revert previous change, it's too complicate.
+ (tramp-build-completion-file-name-regexp):
+ Use `tramp-prefix-format' instead of `tramp-prefix-regexp'.
(Bug#558133)
+
+2022-10-10 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port bwrap/allows-stdout test to Ubuntu 22.04.1
+
+ Without this patch, Ubuntu 22.04.1 x86-64 "make check" reports a
+ failure in test/src/emacs-tests.el’s
+ emacs-tests/bwrap/allows-stdout. One can reproduce the bug
+ without using the Emacs executable, by running this script:
+
+ #!/bin/bash
+ export LC_ALL=C
+ exec strace -f -o /tmp/tr bwrap --ro-bind / / --seccomp 20 -- \
+ cat /dev/null 20< lib-src/seccomp-filter-exec.bpf
+
+ This script exits with status 159, because "cat" didn’t get
+ started (it got a SIGSYS signal early on).
+
+ The command "journalctl -g SECCOMP" indicated that rseq (syscall
+ 334) was the problem. This syscall is issued by
+ /lib64/ld-linux-x86-64.so.2 before ‘main’ is called.
+
+ There’s another problem with the clone3 syscall, which is used by
+ pthread_create starting in glibc 2.34. pthread_create is called
+ by g_child_watch_source_new, which is called by
+ init_process_emacs.
+
+ * lib-src/seccomp-filter.c (main): Allow rseq, clone3. This
+ causes the test to pass. Perhaps a fancier, more accurate patch
+ could be written by someone who has the time.
+
+2022-10-10 Yuan Fu <casouri@gmail.com>
+
+ Make treesit-node-at faster
+
+ * lisp/treesit.el (treesit-node-at): We only need to use
+ treesit-node-first-child-for-pos. This is both faster for large
+ buffers and simpler. Also remove the TODO comment.
+
+2022-10-10 Theodor Thornhill <theo@thornhill.no>
+
+ Fix typo in treesit--check-manual-covarage
+
+ * lisp/treesit.el (treesit--check-manual-coverage): Fix typo in
+ function name and also lookup the correct library in
+ `find-library-name'
+
+2022-10-10 Yuan Fu <casouri@gmail.com>
+
+ Improve treesit-search-forward-goto so it doens't stuck at EOF
+
+ * lisp/treesit.el (treesit-search-forward-goto): Handle the edge case.
+
+2022-10-10 Yuan Fu <casouri@gmail.com>
+
+ * admin/notes/tree-sitter/starter-guide (Navigation): Improve demo.
+
+2022-10-10 Yuan Fu <casouri@gmail.com>
+
+ Fix js--treesit-beginning/end-of-defun
+
+ * lisp/progmodes/js.el (require): Add rx.
+ (js--treesit-move-to-node): Remove function.
+ (js--treesit-beginning-of-defun)
+ (js--treesit-end-of-defun): Change to use treesit-search-forward-goto.
+ (js-treesit--defun-query): Remove variable.
+ (js--treesit-defun-type-regexp): Add variable.
+
+2022-10-10 Theodor Thornhill <theo@thornhill.no>
+
+ Add tree-sitter functionality to js-mode
+
+ The diff for js-mode, js-json-mode, js-jsx-mode are a bit strange, but
+ all we did is to wrap some the old code in
+
+ (if tree-sitter
+ (tree-sitter-enable)
+ ...some old-code)
+
+ ...other old-code (that’s tree-sitter-agnostic)
+
+ * lisp/progmodes/js.el (treesit): Add tree-sitter dependency
+ (js-use-treesitter)
+ (js-json-use-treesitter): New custom options.
+
+ (js--treesit-keywords)
+ (js--treesit-settings)
+ (js--treesit-indent-rules)
+ (js--json-treesit-settings)
+ (js--json-treesit-indent-rules): New variables.
+
+ (js--treesit-backward-up-list)
+ (js-treesit-current-defun)
+ (js--treesit-move-to-node)
+ (js--treesit-beginning-of-defun, js--treesit-end-of-defun)
+ (js--treesit-enable)
+ (js--json-treesit-enable): New functions.
+
+ (js-mode, js-json-mode, js-jsx-mode): Add support for tree-sitter
+ functionalities.
+
+2022-10-10 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter build script in admin/notes
+
+ * admin/notes/tree-sitter/build-module/README: Add explaination.
+ * admin/notes/tree-sitter/build-module/build.sh: change
+ typescript to tsx.
+
+2022-10-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a test for sqlite "insert ... returning"
+
+ * test/src/sqlite-tests.el (sqlite-returning): Add a test for
+ "insert ... returning".
+
+2022-10-10 Robert Pluim <rpluim@gmail.com>
+
+ Fix `vc-prepare-patch' docstring
+
+ * lisp/vc/vc.el (vc-prepare-patch): Correct description of
+ `vc-prepare-patches-separately'.
+
+2022-10-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Support "insert into ... returning ..." in sqlite-execute
+
+ * doc/lispref/text.texi (Database): Mention it.
+ * src/sqlite.c (Fsqlite_execute): Support syntax like "insert into
+ ... returning ..." (bug#58390).
+
+2022-10-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some indentation in Fsqlite_execute
+
+ * src/sqlite.c (Fsqlite_execute): Fix indentation.
+
+2022-10-09 Yuan Fu <casouri@gmail.com>
+
+ Rename custom group treesit to tree-sitter
+
+ * lisp/treesit.el (treesit): Rename.
+
+2022-10-09 Yuan Fu <casouri@gmail.com>
+
+ Add :version tag for new tree-sitter custom options
+
+ * lisp/progmodes/python.el (python-use-tree-sitter): Add version tag.
+ * lisp/treesit.el (treesit):
+ (treesit-max-buffer-size): Add version tag.
+
+2022-10-09 Yuan Fu <casouri@gmail.com>
+
+ Make python tree-sitter font-lock support decoration levels
+
+ * lisp/progmodes/python.el (python--treesit-settings): Stratify into
+ three levels.
+
+2022-10-09 Yuan Fu <casouri@gmail.com>
+
+ Make tree-sitter font-lock support decoration levels
+
+ * admin/notes/tree-sitter/html-manual/Parser_002dbased-Font-Lock.html:
+ Update.
+ * admin/notes/tree-sitter/html-manual/Parsing-Program-Source.html:
+ Update.
+ * doc/lispref/modes.texi: Mention the new :level option.
+ * lisp/treesit.el (treesit-font-lock-settings): Update docstring.
+ (treesit-font-lock-rules): Support :level. Relayout the let form.
+ (treesit-font-lock-fontify-region): Support :level.
+
+2022-10-09 Yuan Fu <casouri@gmail.com>
+
+ Add note on tree-sitter's naming convention
+
+ * admin/notes/tree-sitter/starter-guide: Add note.
+ * doc/lispref/parsing.texi: Add note.
+
+2022-10-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Tighten up handling of `otick`
+
+ Move args between `build_overlay` and `add_buffer_overlay`,
+ to try and keep buffer positions together with their buffer.
+ Be more strict in the `otick` values passed to `interval_tree_insert`.
+ Move a few things around to try and reduce dependencies through `.h`
files.
+ Fix a thinko bug in `check_tree`.
+
+ * src/alloc.c (build_overlay): Remove `begin` and `end` args.
+
+ * src/buffer.c (add_buffer_overlay): Move from `buffer.h`.
+ Add `begin` and `end` args.
+ (copy_overlays): Adjust accordingly.
+ (Fmake_overlay): Use BUF_BEG and BUF_Z; adjust call to `build_overlay`
+ and `add_buffer_overlay`.
+ (Fmove_overlay): Use BUF_BEG and BUF_Z; Use the new `begin` and `end`
+ args of `add_buffer_overlay` so we don't need to use
+ `interval_node_set_region` when moving to a new buffer.
+ (remove_buffer_overlay, set_overlay_region): Move from `buffer.h`.
+
+ * src/buffer.h (set_overlay_region, add_buffer_overlay)
+ (remove_buffer_overlay): Move to `buffer.c`.
+ (build_overlay): Move from `lisp.h`.
+ (maybe_alloc_buffer_overlays): Delete function (inline into its only
+ caller).
+
+ * src/itree.c (interval_tree_insert): Move declaration `from buffer.h`.
+ (check_tree): Fix initial offset in call to `recurse_check_tree`.
+ Remove redundant check of the `limit` value.
+ (interval_node_init): Remove `begin` and `end` args.
+ (interval_tree_insert): Mark it as static.
+ Assert that the new node's `otick` should already be uptodate and its
+ new parent as well.
+ (itree_insert_node): New function.
+ (interval_tree_insert_gap): Assert the otick of the removed+added nodes
+ were uptodate and mark them as uptodate again after adjusting
+ their positions.
+ (interval_tree_inherit_offset): Check that the parent is at least as
+ uptodate as the child.
+
+ * src/lisp.h (build_overlay): Move to `buffer.h`.
+
+ * src/itree.h (interval_node_init): Adjust accordingly.
+ (interval_tree_insert): Remove declaration.
+ (itree_insert_node): New declaration.
+
+2022-10-09 Philip Kaludercic <philipk@posteo.net>
+
+ Rename 'package-vc-fetch' to 'package-vc-install'
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-fetch): Rename to preserve
+ symmetry with 'package-install'.
+ (package-checkout): Follow the previous rename.
+
+2022-10-09 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Try to speed up extended command shorthand computation
+
+ Discussed in Bug#51143.
+
+ * lisp/simple.el (execute-extended-command--shorter): Compute a
+ complete list of `commandp' symbols once. This significantly speeds
+ up complicated cases while the slowdown of simple cases is still
+ accetable.
+
+2022-10-09 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Set the PARENTS argument for language environments
+
+ * lisp/language/indonesian.el
+ * lisp/language/philippine.el
+ * lisp/language/misc-lang.el
+ (set-language-info-alist): Add PARENTS argument. (Bug#58376)
+
+2022-10-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make Fsqlite_select error data better
+
+ * src/sqlite.c (Fsqlite_select): Add more the more specific error
+ text to the error data (bug#58363).
+
+2022-10-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up Fsqlite_select slightly
+
+ * src/sqlite.c (Fsqlite_select): Clean up code slightly.
+
+2022-10-09 Po Lu <luangruo@yahoo.com>
+
+ Fix user time handling bug on GNOME Shell and Metacity
+
+ * src/xfns.c (x_window): Avoid extraneous
+ XChangeWindowAttributes.
+ * src/xterm.c (x_display_set_last_user_time): New argument
+ SET_PROPERTY. Do not change the user time property if it is not
+ true. All callers changed.
+ (handle_one_xevent): Avoid setting the user time property on
+ LeaveNotify and XI_Leave events.
+
+2022-10-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Use `interval_tree_inherit_offset`
+
+ The insertion code tried to manipulate the offset in its own way,
+ and apparently there was a bug in it. Replace that with a call to
+ `interval_tree_inherit_offset`, making the whole logic a bit simpler,
+ and fixing a bug along the way (not sure where the bug was, to be
honest).
+
+ * src/itree.c (interval_tree_insert): Use
`interval_tree_inherit_offset`.
+ Check the tree before insert_fix.
+ (recurse_check_tree): Don't check RB invariants.
+ (itree_limits_are_stable): Delete function (subsumed by `check_tree`).
+
+2022-10-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 32ef7550ed ; Improve documentation of 'file-in-directory-p'
+
+2022-10-08 Matt Armstrong <matt@rfc20.org>
+
+ Debug check overlay tree invariants
+
+ * src/itree.c (check_tree):
+ (recurse_check_tree): new functions.
+ (interval_tree_insert): call them.
+ (interval_tree_remove): ditto.
+ (interval_tree_insert_fix): ditto.
+
+2022-10-08 Matt Armstrong <matt@rfc20.org>
+
+ Comment change: explain inheriting "dirty" offsets
+
+ handles inheriting offsets from dirty nodes.
+
+2022-10-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/url/url-file.el (url-file): Don't bind `coding-system-for-read`
+
+ Binding it causes errors when some of the enclosed code ends up
+ loading a `.el` file, and it is unnecessary since the rest of
+ the code (in `url-file-asynch-callback`) is already careful to
+ use `insert-file-contents-literally`.
+
+2022-10-08 Mattias Engdegård <mattiase@acm.org>
+
+ Restrict string-lessp vectorisation to safe architectures
+
+ * src/fns.c (HAVE_FAST_UNALIGNED_ACCESS): New.
+ (Fstring_lessp): Only use word operations where safe, because string
+ data from purespace may be unaligned.
+
+2022-10-08 Mattias Engdegård <mattiase@acm.org>
+
+ Better Lisp_String comments
+
+ * src/lisp.h (struct Lisp_String): Comments improved.
+ * src/pdumper.c (dump_string): Update hash (comment change only).
+
+2022-10-08 Mattias Engdegård <mattiase@acm.org>
+
+ Improved format string error message (bug#58168)
+
+ * src/editfns.c (styled_format): Better message when the conversion
+ char is non-ASCII from a unibyte format string.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/emacs-lisp/package-vc.el: Autoload 'package-vc-prepare-patch'
+
+2022-10-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ package.el: Understand a few more variations in tarball formats
+
+ * lisp/emacs-lisp/package.el (package-untar-buffer): Fix thinko.
+ (package-tar-file-info): Handle the case where the first file is in
+ a subdirectory.
+
+ * test/lisp/emacs-lisp/package-tests.el (package-test-bug58367): New
test.
+ * test/lisp/emacs-lisp/package-resources/ustar-withsub-0.1.tar:
+ * test/lisp/emacs-lisp/package-resources/v7-withsub-0.1.tar: New files.
+
+2022-10-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make sqlite-select signal errors when there's an error
+
+ * src/sqlite.c (load_dll_functions): Update.
+ (Fsqlite_select): Signal an error when there's an error preparing
+ the statement.
+
+2022-10-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix vtable-insert-object line insertion
+
+ * lisp/emacs-lisp/vtable.el (vtable-insert-object): Pass in the
+ correct ellipsis values (bug#58370).
+ (vtable--insert-line): Don't bug out on missing optional arguments.
+
+2022-10-08 Visuwesh <visuweshm@gmail.com>
+
+ Fix misleading prompt in vc-git-create-tag
+
+ * lisp/vc/vc-git.el (vc-git-create-tag): Actually pass the DEFAULT
+ argument to vc-read-revision (bug#58378).
+
+2022-10-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in etc/TODO
+
+2022-10-08 Michael Albinus <michael.albinus@gmx.de>
+
+ * etc/TODO (Wishlist items): Add libarchive(3) integration.
+
+2022-10-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention seq-keep in shortdoc
+
+ * lisp/emacs-lisp/shortdoc.el (sequence): Mention seq-keep.
+
+2022-10-08 João Távora <joaotavora@gmail.com>
+
+ Fix docstring of eglot-list-connections-mode
+
+ * eglot.el (eglot-list-connections-mode): Fix mistaken reference
+ to similar non-Eglot code.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Clone packages into a separate directory
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-repository-store): Add new
+ user option.
+ (package-vc-unpack): Use 'package-vc-repository-store'.
+ * lisp/emacs-lisp/package.el (package--delete-directory): Check and
+ handle source packages.
+ (package-delete): Invoke 'package--delete-directory' with an
+ additional argument.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/emacs-lisp/package.el (package-report-bug): Use
'file-in-directory-p'
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Extend package-vc heuristics to multiple source forges
+
+ * package-vc.el (package-vc-probable-repository-regexp): Rename to
+ 'package-vc-heusitic-alist'.
+ (package-vc-heusitic-alist): Add support for multiple VC backends.
+ (package-vc-sourced-packages-list): Use 'package-vc-heusitic-alist'
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Use 'package-vc-p' in package-vc.el
+
+ * package-vc.el (package-vc-commit): Use it instead of 'eq'.
+ (package-vc-version): Use it instead of 'eq'.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Add a package-vc command for submitting ptches
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-read-pkg): Add auxiliary
+ command for querying source packages.
+ (package-vc-prepare-patch): Add it.
+ * lisp/emacs-lisp/package.el (package-maintainers): Add an optional
+ NO-ERROR argument.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Extract package maintainer guessing code into a separate function
+
+ * package.el (package-maintainers): Add new function.
+ (package-contact-maintainer): Use it.
+ (package-report-bug): Use it.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Add an inline procedure for checking for source packages
+
+ * package.el (eval-when-compile): Require 'inline during compilation.
+ (package-vc-p): Add inline function.
+ (package-desc-full-name): Use it.
+ (package-load-descriptor): Use it.
+ (package--get-activatable-pkg): Use it.
+ (package-install-from-archive): Use it.
+ (package-update): Use it.
+ (package-desc-status): Use it.
+ (package--remove-hidden): Use it.
+ (package-menu--print-info-simple): Use it.
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Merge branch 'master' into feature/package+vc
+
+2022-10-08 Philip Kaludercic <philipk@posteo.net>
+
+ Add a VC command to prepare patches
+
+ * doc/emacs/vc1-xtra.texi (Miscellaneous VC): Add new node.
+ (Editing VC Commands): Document new feature.
+ * etc/NEWS: Mention 'vc-prepare-patch'.
+ * lisp/vc/log-view.el: Autoload 'log-view-get-marked'.
+ * lisp/vc/vc-git.el (vc-git-prepare-patch): Add Git implementation.
+ * lisp/vc/vc-hg.el (vc-git-prepare-patch): Add Mercurial
implementation.
+ * lisp/vc/vc-bzr.el (vc-git-prepare-patch): Add Bazaar implementation.
+ * lisp/vc/vc.el (vc-read-revision): Add a MULTIPLE argument.
+ (vc-read-multiple-revisions): Add an auxiliary function that always
+ calls 'vc-read-revision' with a non-nil value for MULTIPLE.
+ (vc-prepare-patches-separately): Add user option.
+ (message-goto-body): Declare function.
+ (message--name-table): Declare function.
+ (vc-default-prepare-patch): Add a default implementation.
+ (vc-prepare-patch): Add command. (Bug#57400)
+
+2022-10-08 Po Lu <luangruo@yahoo.com>
+
+ Stop passing CurrentTime to SetInputFocus
+
+ * src/xterm.c (xi_focus_handle_for_device, handle_one_xevent):
+ Set the last user time where required for focus to be handled
+ correctly.
+ (x_focus_frame): Do not perform actions prohibited by the ICCCM.
+
+2022-10-08 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Coptic script (bug#58330)
+
+ * lisp/language/misc-lang.el ("Coptic"): New language environment.
+ Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support coptic.
+ * lisp/leim/quail/misc-lang.el ("coptic"): New input method.
+
+ * etc/HELLO: Add a Coptic greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-10-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ cfb1e21844 Update name of hs-mouse-toggle-hiding in Emacs manual
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree: Try and detect non-local exits during itree iterations
+
+ * src/itree.c (itree_busy_p): New function.
+ * src/eval.c (signal_or_quit): Use it.
+ * src/itree.h (itree_busy_p): Declare it.
+
+2022-10-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in bibtex.el
+
+ * lisp/textmodes/bibtex.el (bibtex-mode-map): Prefer defvar-keymap.
+
+2022-10-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix setting the wallpaper with "swaybg" and "wbg"
+
+ * lisp/image/wallpaper.el (wallpaper-setter): Add 'init-action'
+ and 'detach' fields to structure.
+ (wallpaper--init-action-kill): New helper function.
+ (wallpaper--default-setters): Use above new fields for "swaybg" and
+ "wbg", to start/restart the corresponding processes as needed.
+ (wallpaper-default-set-function): Call 'init-action' function if
+ there is one. If 'detach', use 'call-process' instead of
+ 'start-process'. (Bug#57781)
+
+ * test/lisp/image/wallpaper-tests.el (wallpaper--find-setter)
+ (wallpaper--find-setter/call-predicate)
+ (wallpaper--find-setter/set-current-setter)
+ (wallpaper-set/runs-command, wallpaper-set/runs-command/detach)
+ (wallpaper-set/calls-init-action)
+ (wallpaper-set/calls-wallpaper-set-function): New tests.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ subr.el (inhibit-point-motion-hooks): Mark it as obsolete
+
+ When Emacs-25 changed the default of `inhibit-point-motion-hooks` to t,
+ /etc/NEWS declared it as obsolete and so did its docstring, but
+ it was not marked as obsolete so as not to emit too many warnings
+ in code where it was impractical to remove the let-binding while
+ keeping backward compatibility with older Emacsen.
+ Those backward compatibility issues are not serious any more now that
+ Emacs-25 is itself considered old.
+
+ * lisp/subr.el (inhibit-point-motion-hooks): Mark it as obsolete.
+ * src/textprop.c (inhibit-point-motion-hooks): Don't mention it being
+ obsolete in the docstring any more.
+ * lisp/simple.el (line-move-1, line-move-finish): Silence warnings.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/isearch.el (isearch-search): Don't bind
`inhibit-point-motion-hooks`
+
+ The let-binding was added back in 1997 (commit 79c7a4fa5f974a9d3b)
+ "because we might have to search inside invisible and intangible text".
+ So it's been redundant since Emacs-25 changed the default to t.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ verilog-mode.el: Don't bind `inhibit-point-motion-hooks`
+
+ Keep binding it in Emacs<25 but not in Emacs≥25 (where such bindings
+ are redundant and the var is declared obsolete).
+
+ * lisp/progmodes/verilog-mode.el (verilog-save-buffer-state):
+ Don't bind `inhibit-point-motion-hooks` if Emacs≥25.
+ (verilog-save-font-no-change-functions): Same, and refrain from
+ binding `before/after-change-functions` as well while we're at it,
+ since `inhibit-modification-hooks` already covers it in Emacs≥25.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (nxml-with-invisible-motion): Delete macro.
+
+ Don't use this macro any more since it doesn't do anything since
Emacs-25
+ changed the default of `inhibit-point-motion-hooks` to t.
+
+ * lisp/nxml/nxml-util.el (nxml-with-invisible-motion): Delete macro.
+ * lisp/nxml/nxml-mode.el (nxml-mode, nxml-cleanup):
+ * lisp/nxml/rng-valid.el (rng-do-some-validation):
+ * lisp/nxml/rng-nxml.el (rng-set-state-after): Don't use it.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/pcomplete.el (pcomplete-arg): Simplify
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (line-move-1): Obey `inhibit-point-motion-hooks`
+
+ `line-move-1` was written back before `inhibit-point-motion-hooks`
+ was made obsolete and it's written under the assumption that its
+ value is nil, whereas since Emacs-25 it's t.
+
+ To work around problems linked to a nil value of
+ `inhibit-point-motion-hooks`, the code temporarily binds that var to
+ t while it moves around trying to find the final destination and then
+ later in a few key spots it binds it "back" to nil so as to run the
+ point-motion hooks according to the final destination, as if the
+ overall motion had been made "normally".
+
+ Change the code so that the "bind back" indeed binds the var back to
+ the value it had originally, rather than always to nil.
+
+ * lisp/simple.el (line-move-1): Obey `inhibit-point-motion-hooks`
+ (line-move-finish): New optional arg `not-ipmh`.
+
+2022-10-07 Matt Armstrong <matt@rfc20.org>
+
+ Use a bool instead of a bitfield
+
+ * src/itree.c (struct interval_generator): use a bool instead of a
+ bitfield, since space is not an issue.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ org.el: Improve bindings of `inhibit-*` vars
+
+ Remove binding of `inhibit-point-motion-hooks` (it's t by default
+ anyway and it's obsolete) and don't "manually" bind
+ `inhibit-modification-hooks`.
+
+ * lisp/org/org.el (org-unfontify-region): Use
`with-silent-modifications`.
+ (org-display-inline-remove-overlay): Remove ineffective binding of
+ `inhibit-modification-hooks` around code which doesn't modify the
+ buffer anyway.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Remove aliases of `with-silent-modifications`
+
+ There were many reinventions of `with-silent-modifications` (tho
+ many of them weren't reinventions but copy&paste of code from
+ font-lock, IIUC). Now that those don't even need to let-bind
+ `inhibit-point-motion-hooks` they're really just obsolete.
+
+ * lisp/font-lock.el (save-buffer-state): Delete macro.
+ (font-lock-unfontify-region, font-lock-default-fontify-region):
+ Use `with-silent-modifications` instead.
+ (font-lock-after-change-function, font-lock-fontify-block): Don't
+ let-bind `inhibit-point-motion-hooks`.
+
+ * lisp/htmlfontify.el (hfy-save-buffer-state): Delete macro.
+ (hfy-mark-trailing-whitespace, hfy-unmark-trailing-whitespace):
+ Use `with-silent-modifications` instead.
+
+ * lisp/jit-lock.el (with-buffer-prepared-for-jit-lock): Delete macro.
+ (jit-lock--debug-fontify, jit-lock-refontify, jit-lock-function)
+ (jit-lock-fontify-now, jit-lock-force-redisplay)
+ (jit-lock-deferred-fontify, jit-lock-context-fontify)
+ (jit-lock-after-change): Use `with-silent-modifications` instead.
+
+ * lisp/progmodes/antlr-mode.el (save-buffer-state-x): Delete macro.
+ (antlr-hide-actions): Use `with-silent-modifications` instead.
+
+ * lisp/progmodes/hideshow.el (hs-life-goes-on): Don't
+ let-bind `inhibit-point-motion-hooks`.
+
+2022-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Remove redundant let-bindings of `inhibit-point-motion-hooks`
+
+ `inhibit-point-motion-hooks` has defaulted to t (and been declared
+ obsolete) since Emacs-25, so remove left-over bindings to that
+ now default value.
+
+ * lisp/dabbrev.el (dabbrev--search):
+ * lisp/format.el (format-insert-file):
+ * lisp/forms.el (forms-next-field, forms-prev-field):
+ * lisp/minibuf-eldef.el (minibuf-eldef-setup-minibuffer):
+ * lisp/simple.el (primitive-undo):
+ * lisp/cedet/semantic/edit.el (semantic-change-function):
+ * lisp/cedet/srecode/fields.el (srecode-field-mod-hook):
+ * lisp/cedet/srecode/insert.el (srecode-insert-fcn):
+ * lisp/erc/erc-button.el (erc-button-add-buttons):
+ * lisp/erc/erc.el (erc-display-line):
+ * lisp/eshell/em-script.el (eshell-source-file):
+ * lisp/eshell/em-smart.el (eshell-smart-scroll-window):
+ * lisp/eshell/esh-arg.el (eshell-parse-arguments):
+ * lisp/eshell/esh-cmd.el (eshell-with-temp-command):
+ * lisp/eshell/esh-mode.el (eshell-send-input, eshell-output-filter):
+ * lisp/gnus/gnus-art.el (gnus-with-article-headers)
+ (article-hide-headers, article-hide-boring-headers)
+ (article-decode-mime-words, article-decode-charset)
+ (article-decode-encoded-words, article-decode-group-name)
+ (article-decode-idna-rhs, article-hide-list-identifiers)
+ (article-strip-banner, article-really-strip-banner)
+ (article-strip-leading-blank-lines)
+ (article-strip-multiple-blank-lines, article-strip-leading-space)
+ (article-strip-trailing-space, article-strip-all-blank-lines)
+ (gnus-article-narrow-to-signature, gnus-article-show-hidden-text)
+ (article-date-ut, article-verify-x-pgp-sig)
+ (gnus-article-only-boring-p, gnus-article-highlight-signature)
+ (gnus-article-add-buttons, gnus-signature-toggle, gnus-button-push):
+ * lisp/gnus/gnus-cite.el (gnus-article-highlight-citation)
+ (gnus-article-fill-cited-article, gnus-article-hide-citation)
+ (gnus-article-toggle-cited-text, gnus-article-hide-citation-maybe)
+ (gnus-cite-parse-wrapper, gnus-cite-add-face, gnus-cite-toggle):
+ * lisp/gnus/gnus-gravatar.el (gnus-gravatar-insert):
+ * lisp/gnus/gnus-rfc1843.el (rfc1843-decode-article-body):
+ * lisp/gnus/gnus-sum.el (gnus-summary-toggle-header):
+ * lisp/gnus/gnus-util.el (gnus-fetch-field):
+ * lisp/gnus/message.el (message-fetch-field, message-reply)
+ (message-followup, message-hide-headers):
+ * lisp/net/goto-addr.el (goto-address-fontify):
+ * lisp/obsolete/linum.el (linum-update-window):
+ * lisp/play/zone.el (zone-shift-left, zone-shift-right)
+ (zone-fill-out-screen):
+ * lisp/progmodes/opascal.el (opascal-save-excursion):
+ * lisp/progmodes/vhdl-mode.el (vhdl-prepare-search-2):
+ * lisp/textmodes/enriched.el (enriched-encode):
+ * lisp/textmodes/flyspell.el (flyspell-word-search-backward)
+ (flyspell-word-search-forward):
+ * lisp/textmodes/table.el (table--point-entered/left-cell-function):
+ Remove let-binding of `inhibit-point-motion-hooks`.
+
+2022-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update name of hs-mouse-toggle-hiding in Emacs manual
+
+ * doc/emacs/programs.texi (Hideshow): Update the name of
+ hs-mouse-toggle-hiding (bug#58331).
+
+2022-10-07 Matt Armstrong <matt@rfc20.org>
+
+ Handle successive mime sections in decoding.
+
+ rmailsum.el (rmail-epa-decode):Handle blank lines at start.
+ Handle both ending delim and another starting delim.
+
+2022-10-07 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up string-lessp for multibyte strings
+
+ Improve comparison speed when both arguments are multibyte strings,
+ at least one of them containing a non-ASCII character. (All-ASCII
+ multibyte strings are already fast.)
+ The speed-up is about 2× for strings of 10 chars, 10× for strings of
+ 100 chars.
+
+ * src/fns.c (Fstring_lessp): Quickly skip the common prefix by
+ comparing words.
+
+2022-10-07 Mattias Engdegård <mattiase@acm.org>
+
+ Clearer byte-compiler arity warnings (bug#58319)
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-arglist-signature-string):
+ Replace '3+' and '3-4' with '3 or more' and '3 or 4', respectively.
+
+2022-10-07 Miha Rihtaršič <miha@kamnitnik.top>
+
+ comint-fontify-input: Don't fontify output as input, different approach
+
+ * lisp/comint.el (comint-output-filter): Propertize process output
+ with field=output before inserting it into buffer to prevent
+ comint-fontify-input from fontifying it (bug#58169).
+
+2022-10-07 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Revert "comint-fl: Prevent fontification of output as input"
+
+ This reverts commit 90744ff0be581b69cedea1194b7e78265bdb67a4.
+
+2022-10-07 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/dired.el (dired-make-relative): Make change less aggressive.
+
+2022-10-07 Po Lu <luangruo@yahoo.com>
+
+ Handle IM server disconnects during preedit
+
+ * src/xterm.c (x_maybe_clear_preedit): New function.
+ (xim_destroy_callback): Call that function.
+
+2022-10-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve package-check-signature docstring
+
+ * lisp/emacs-lisp/package.el (package-check-signature): Improve
+ docstring.
+
+2022-10-07 Yuan Fu <casouri@gmail.com>
+
+ Add a :toggle option for tree-sitter font-lock
+
+ * admin/notes/tree-sitter/html-manual/Parser_002dbased-Font-Lock.html:
+ Update html manual.
+ * admin/notes/tree-sitter/html-manual/build-manual.sh: Fix manual
+ path.
+ * admin/notes/tree-sitter/starter-guide: Mention :toggle.
+ * doc/lispref/modes.texi: Mention :toggle.
+ * lisp/treesit.el (treesit-font-lock-settings): Update docstring.
+ (treesit-font-lock-rules): Handle :toggle. Also change
+ some wrong-type-argument signal to treesit-font-lock-error which is
+ easier to understand.
+ (treesit-font-lock-fontify-region): Handle :toggle.
+
+2022-10-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 5f8849425c Fix typo in `(emacs) Lisp Doc'
+ f0a06364fb Fix references to 'default-indent-new-line'
+
+2022-10-06 Yuan Fu <casouri@gmail.com>
+
+ * src/treesit.c (syms_of_treesit): Add Streesit_language_version.
+
+2022-10-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Better support for remote file names in dired
+
+ * lisp/dired.el (dired-make-relative): Expand DIR anyway, because
+ it could also be an abbreviated remote file name. (Bug#58300)
+
+2022-10-06 Philip Kaludercic <philipk@posteo.net>
+
+ Add a generic bug reporting command for packages
+
+ * lisp/emacs-lisp/package.el (package-menu-mode-map): Bind
+ 'package-report-bug'.
+ (package-report-bug): Add new command.
+
+2022-10-06 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/vc/vc-svn.el (vc-svn-clone): Add 'clone' implementation
+
+ * lisp/vc/vc-cvs.el (vc-cvs-clone): Add 'clone' implementation
+
+ * lisp/vc/vc-bzr.el (vc-bzr-clone): Add 'clone' implementation
+
+ * lisp/vc/vc-hg.el (vc-hg-clone): Add 'clone' implementation
+
+2022-10-06 Yuan Fu <casouri@gmail.com>
+
+ Merge branch 'master' into feature/tree-sitter
+
+2022-10-06 Arash Esbati <arash@gnu.org>
+
+ Pass correct environment name to `reftex-label'
+
+ * lisp/textmodes/tex-mode.el (latex-block-body-alist): Pass
+ "figure" to `reftex-label' when inserting a figure float.
+ (bug#58329)
+
+2022-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ etc/NEWS: Fix typo in seq-keep entry.
+
+2022-10-06 Justus Winter <justus@sequoia-pgp.org>
+
+ Replace aging OpenPGP artifacts in gnus' mml-sec tests.
+
+ This replaces the old OpenPGPv4 keys that are used in the test suite
+ with more modern OpenPGPv4 keys.
+
+ Having old cryptographic artifacts in the test suite presents a
+ problem once the old algorithms are rejected by contemporary
+ implementations (bug#58301).
+
+2022-10-06 Justus Winter <justus@sequoia-pgp.org>
+
+ Replace aging OpenPGP artifacts in the package-resources tests.
+
+ This replaces the old OpenPGPv4 key that is used in the test suite
+ with a more modern OpenPGPv4 key. The key is the Alice key from
+ https://datatracker.ietf.org/doc/draft-bre-openpgp-samples/. All
+ cryptographic artifacts in the test suite are updated accordingly.
+
+ Having old cryptographic artifacts in the test suite presents a
+ problem once the old algorithms are rejected by contemporary
+ implementations.
+
+2022-10-06 Justus Winter <justus@sequoia-pgp.org>
+
+ Replace aging OpenPGP artifacts in the epg tests.
+
+ This replaces the old OpenPGPv4 key that is used in the test suite
+ with a more modern OpenPGPv4 key. The key is the Alice key from
+ https://datatracker.ietf.org/doc/draft-bre-openpgp-samples/. All
+ cryptographic artifacts in the test suite are updated accordingly.
+
+ Having old cryptographic artifacts in the test suite presents a
+ problem once the old algorithms are rejected by contemporary
+ implementations.
+
+2022-10-06 Justus Winter <justus@sequoia-pgp.org>
+
+ Fix epg's reliance on an implicit GnuPG command.
+
+ Previously, epg invoked GnuPG without an explicit command to verify
+ signatures. Make that operation explicit. Happily, this aligns how
+ gpg and gpgsm is invoked, so it actually makes the code simpler.
+
+2022-10-06 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix BSD battery mode over TRAMP (bug#58307)
+
+ * lisp/battery.el (battery--call-process-to-string): Simple wrapper
+ to `call-process' that outputs to a string.
+ (battery-bsd-apm): Use it instead of `shell-command-to-string'
+ (bug#58307).
+
+2022-10-06 Matt Armstrong <matt@rfc20.org>
+
+ Fix calling `package-reinstall' just after quick initialization.
+
+ * lisp/emacs-lisp/package.el (package-reinstall): call
+ `package--archives-initialize', just like `package-install' does.
+ This populates `package-alist', and so fixes calling
+ `package-reinstall' as the first thing done after package "quick
+ init" (Bug#53527).
+
+2022-10-06 Gerd Möllmann <gerd@gnu.org>
+
+ Add missing staticpro (bug#58327)
+
+ * src/window.c (init_window_once): staticpro old_selected_window.
+
+2022-10-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix typo in `(emacs) Lisp Doc'
+
+ * doc/emacs/programs.texi (Lisp Doc): Fix reference to
+ 'eldoc-echo-area-display-truncation-message'. (Bug#58324)
+
+2022-10-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix references to 'default-indent-new-line'
+
+ * doc/emacs/programs.texi (Comment Commands)
+ (Multi-Line Comments): Fix references to
+ 'default-indent-new-line'. (Bug#58325)
+
+2022-10-06 Gerd Möllmann <gerd@gnu.org>
+
+ Inhibit GC in probably_quit (bug#58042)
+
+2022-10-06 Stefan Kangas <stefankangas@gmail.com>
+
+ * etc/NEWS: Document how to continue using 'linum'. (Bug#58220)
+
+2022-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Get rid of the trick using null->parent
+
+ * src/itree.c (interval_tree_remove_fix): Add a `parent` argument.
+ Change the loop so it always keeps both `node` and `parent` in sync,
+ thus avoiding the use of `node->parent` on the initial node (since
+ that one can be null).
+ (interval_tree_remove): Manually keep track of the `broken` node's
+ parent to pass it to `interval_tree_remove_fix`.
+
+2022-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/itree.c (interval_tree_remove_fix): Move before first use
+
+2022-10-05 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to IM locale handling
+
+ * lisp/term/x-win.el (x-get-input-coding-system): Translate locales.
+ * src/xterm.c (x_term_init): If the X library doesn't support
+ the current locale, don't set up input methods.
+
+2022-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Fix corner case errors in offsets
+
+ In some cases, `interval_tree_remove` could cause some nodes to
+ inherit fewer (or additional) offsets than the should because nodes
+ were transplanted between two parts of the tree where offsets had not
+ been propagated "equally". So we remove/apply all offsets along the
+ path between the two points of a transplant before doing the transplant.
+
+ * src/itree.c (interval_tree_subtree_min): Move before first use; delete
+ the declaration; add an `otick` argument, and use it to update offsets
+ along the way.
+ (interval_tree_remove): Update all offsets on the way from `node` to
`min`.
+ Reorder some of the operations so that when we transplant `min` to
`node`
+ those nodes are in the proper state where `interval_tree_transplant`
+ can do its sanity checks.
+ (itree_total_offset): New function.
+ (interval_tree_transplant): Use it to sanity check that improper
+ offsets aren't accidentally inherited/lost because of the transplant.
+ (itree_newlimit): New function.
+ (itree_limit_is_stable, interval_tree_update_limit)
+ (interval_tree_propagate_limit): Use it.
+ (null_is_sane): Remove `inline` annotation; it's not needed.
+ (interval_tree_inherit_offset): Sanity check that `offset` is 0 when
+ `otick` is uptodate. Skip the unneeded increments when the offset is 0.
+ (interval_tree_insert_fix): Add sanity check that we indeed have 2 reds.
+
+2022-10-05 Po Lu <luangruo@yahoo.com>
+
+ Fix nsmenu crash when exiting popup dialog
+
+ * src/nsmenu.m (pop_down_menu): Do not discard menu items here.
+ (ns_popup_dialog): Call discard_menu_items after
+ unuse_menu_items. (bug#58296)
+
+2022-10-05 Stefan Kangas <stefankangas@gmail.com>
+
+ * etc/NEWS: Add instructions for replacing 'linum'. (Bug#58220)
+
+2022-10-05 Yuan Fu <casouri@gmail.com>
+
+ Merge branch 'master' into feature/tree-sitter
+
+2022-10-05 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter admin notes
+
+ starter-guide: Guide on writing major mode features.
+ build-module: Script for building official language definitions.
+ html-manual: HTML version of the manual for easy access.
+
+ * admin/notes/tree-sitter/build-module/README: New file.
+ * admin/notes/tree-sitter/build-module/batch.sh: New file.
+ * admin/notes/tree-sitter/build-module/build.sh: New file.
+ * admin/notes/tree-sitter/starter-guide: New file.
+ * admin/notes/tree-sitter/html-manual/Accessing-Node.html: New file.
+ * admin/notes/tree-sitter/html-manual/Language-Definitions.html: New
file.
+ * admin/notes/tree-sitter/html-manual/Multiple-Languages.html: New file.
+ * admin/notes/tree-sitter/html-manual/Parser_002dbased-Font-Lock.html:
+ New file.
+ * admin/notes/tree-sitter/html-manual/Parser_002dbased-Indentation.html:
+ New file.
+ * admin/notes/tree-sitter/html-manual/Parsing-Program-Source.html: New
+ file.
+ * admin/notes/tree-sitter/html-manual/Pattern-Matching.html: New file.
+ * admin/notes/tree-sitter/html-manual/Retrieving-Node.html: New file.
+ * admin/notes/tree-sitter/html-manual/Tree_002dsitter-C-API.html: New
+ file.
+ * admin/notes/tree-sitter/html-manual/Using-Parser.html: New file.
+ * admin/notes/tree-sitter/html-manual/build-manual.sh: New file.
+ * admin/notes/tree-sitter/html-manual/manual.css: New file.
+
+2022-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Fix incomplete update of `limit`s in corner cases
+
+ `interval_tree_remove` called `interval_tree_propagate_limit (subst)`
+ and `interval_tree_propagate_limit (min_right)` but both of those nodes
+ are moved without touching their subtrees, so their `limit`s are
+ "stable" causing `interval_tree_propagate_limit` to do nothing.
+ Indeed we don't need to update those nodes's `limit`s but we *do*
+ need to update their parents since those nodes have been moved.
+ Incidentally, this removes some uses of `null->parent` :-)
+
+ There are more uses of `null->parent`, tho, so I added more comments
+ explaining them (with the help of the matching section of the book
+ from which the algorithm was taken).
+
+ * src/itree.c (interval_tree_update_limit): Remove unused arg `tree`.
+ (interval_tree_rotate_left, interval_tree_rotate_right): Adjust callers.
+ (interval_tree_contains): Mark as static.
+ (itree_limit_is_stable, itree_limits_are_stable): New functions.
+ (interval_tree_remove): Fix incomplete update of `limit`s in corner
+ cases.
+ (interval_generator_next): Add sanity check to make sure the `limit`s
+ were properly updated.
+
+ * src/itree.h (interval_tree_contains): Remove declaration.
+
+2022-10-05 João Távora <joaotavora@gmail.com>
+
+ Make eglot-code-actions usable non-interactively
+
+ * eglot.el (eglot--read-execute-code-action): New helper.
+ (eglot-code-actions): Use new helper. Offer non-interactive version.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1070
+
+2022-10-05 João Távora <joaotavora@gmail.com>
+
+ Add half-baked m-x eglot-list-connections
+
+ Not very useful for now, but more functionality could be added later,
+ like bindings for disconnecting a given connection, switching to its
+ events buffers, or just listing some details like capabilities.
+
+ * eglot.el (eglot-list-connections-mode, eglot-list-connections):
+ New mode and function.
+
+2022-10-05 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (repeat-exit): Add autoload cookie.
+
+ * etc/tutorials/TUTORIAL.uk: Fix typos.
+
+2022-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Clarify how the sentinel is used
+
+ * src/itree.c (null_is_sane): New function.
+ (interval_tree_iter_start): Use it to make sure we haven't garbled null.
+ (itree_init): Fully initialize `itree_null` here...
+ (interval_tree_clear): ...instead of here.
+ (interval_tree_propagate_limit): Remove special code that read
NULL->parent.
+ (interval_tree_remove): Do it explicitly before the call in those two
+ places where it can happen.
+
+2022-10-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp manual
+
+ * doc/misc/tramp.texi (Inline methods): Method "kubernetes" does
+ not support user names.
+
+2022-10-05 Stefan Kangas <stefankangas@gmail.com>
+
+ New command 'world-clock-copy-time-as-kill'
+
+ * lisp/time.el (world-clock-copy-time-as-kill): New command.
+ (world-clock-mode-map): Bind above new command to "w".
+
+2022-10-05 Stefan Kangas <stefankangas@gmail.com>
+
+ Add face help-key-binding in help-char echo
+
+ * src/keyboard.c (echo_add_key): Add help-key-binding face to the
+ "?" key in 'help-char' echo. (Bug#57906)
+ (syms_of_keyboard) <Qhelp_key_binding>: New DEFSYM.
+
+2022-10-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Remove some unnecessary `tree` arguments
+
+ * src/itree.c (interval_tree_propagate_limit)
+ (interval_tree_subtree_min): Remove `tree` argument.
+ (interval_node_set_region, interval_tree_remove)
+ (interval_tree_insert_gap, interval_tree_delete_gap): Adjust callers.
+
+2022-10-04 Po Lu <luangruo@yahoo.com>
+
+ Fix bug in "macintization" of x_draw_glyph_string
+
+ * src/nsterm.m (ns_draw_stretch_glyph_string): Restore text decoration
+ drawing code ommitted during "macintization" to convert the X function
+ into NS code. Reported by Qiantan Hong <qthong@stanford.edu>.
+
+2022-10-04 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Add tramp-kubernetes integration
+
+ * doc/misc/tramp.texi (Inline methods): Add kubernetes.
+ (Customizing Methods): Remove kubernetes-tramp.
+ * etc/NEWS: Mention new Tramp method "kubernetes".
+ * lisp/net/tramp-compat.el (kubernetes-tramp): Warn if that package is
+ used.
+ * lisp/net/tramp-container.el (tramp-kubernetes-program): New
+ defcustom.
+ (tramp-kubernetes-method): New defconst.
+ (tramp-kubernetes--completion-function): New function.
+
+2022-10-04 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Rename lisp/net/tramp-docker.el to lisp/net/tramp-container.el
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Add :override flag for python tree-sitter font-lock settings
+
+ * lisp/progmodes/python.el (python--treesit-settings): Add :override.
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Add :override flag for tree-sitter font-lock
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Update manual.
+ * lisp/treesit.el (treesit-font-lock-settings): Update docstring.
+ (treesit-font-lock-rules): Handle :override.
+ (treesit-font-lock-fontify-region): Handle :override. Also set
+ inhibit-point-motion-hooks to t.
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Fix python tree-sitter font-lock
+
+ Add fontification for lhs attribute and some operators.
+
+ * lisp/progmodes/python.el (python--treesit-keywords): Add operators.
+ (python--treesit-settings): Add lhs attribute.
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-language-version
+
+ * doc/lispref/parsing.texi (Language Definitions): Update manual.
+ * src/treesit.c (Ftreesit_language_version): New function
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Improve documentation of tree-sitter search functions
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * src/treesit.c (treesit-search-subtree)
+ (treesit-search-forwardn)
+ (treesit-induce-sparse-tree): Mention case-insensitivity.
+ * lisp/treesit.el (treesit-simple-indent): Mention case-insensitivity.
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Ignore some capture name in treesit-font-lock-fontify-region
+
+ * doc/lispref/modes.texi (Parser-based Font Lock): Update manual.
+ * lisp/treesit.el: (treesit-font-lock-fontify-region): Ignore names
+ that are not face nor function.
+ (treesit-font-lock-rules): Update docstring.
+
+2022-10-04 Yuan Fu <casouri@gmail.com>
+
+ Remove treesit-query-in
+
+ Because treesit-query-capture can now do everything it does.
+
+ * doc/lispref/parsing.texi (Pattern Matching): Update manual.
+ * lisp/treesit.el (treesit-query-in): Remove function.
+ * src/treesit.c (Ftreesit_query_capture): Accept parser and language
+ symbol as NODE.
+
+2022-10-04 Vibhav Pant <vibhavp@gmail.com>
+
+ Add comment explaining gcc_jit_context_new_bitcast usage.
+
+ Address styling comments.
+
+ comp.c: Add declaration for gcc_jit_type_is_pointer.
+
+2022-10-04 Vibhav Pant <vibhavp@gmail.com>
+
+ src/comp.c: Use libgccjit's bitcast API for type coercion, when
available.
+
+ * (type_to_cast_index, define_type_punning, define_cast_from_to,
+ define_cast_functions): Define functions when
+ gcc_jit_context_new_bitcast is not available.
+
+ * (emit_coerce): Use gcc_jit_context_new_bitcast to coerce types, when
+ available.
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Put all seq.el news into one section
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add 'seq-keep'
+
+ * doc/lispref/sequences.texi (Sequence Functions): Document it.
+ * lisp/emacs-lisp/seq.el (seq-keep): New function (bug#58278).
+
+2022-10-04 Brian Cully <bjc@kublai.com>
+
+ Add method description for podman in Tramp
+
+ * doc/misc/tramp.texi (Inline methods): Adapt docker method.
+ Describe podman method.
+
+2022-10-04 João Távora <joaotavora@gmail.com>
+
+ Rename "eglot -> eglot" in docstrings
+
+ * eglot.el (eglot-mode-line, eglot-client-capabilities)
+ (eglot--stay-out-of-p, eglot-managed-p)
+ (eglot-managed-mode-hook, eglot--managed-mode)
+ (eglot-current-server, eglot--current-server-or-lose)
+ (eglot--mode-line-format, eglot-xref-backend)
+ (eglot-imenu): Rename "EGLOT" -> "Eglot"
+
+2022-10-04 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ a78af3018e * src/emacs.c (load_pdump): Propery handle case when execu...
+
+ # Conflicts:
+ # src/emacs.c
+
+2022-10-04 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 78c262e1c2 ; * lisp/progmodes/glasses.el (glasses-face): Expand the d...
+
+2022-10-04 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: A new operator and some new keywords for C++20
+
+ * lisp/progmodes/cc-langs.el (c-operators, c-overloadable-operators)
+ (c-arithmetic-operators): Add the "spaceship" operator for C++.
+ (c-primitive-type-kwds): Add char8_t for C++.
+ (c-decl-hangon-kwds, c-paren-nontype-kwds): Add alignas for C++.
+
+2022-10-04 Michael Albinus <michael.albinus@gmx.de>
+
+ * etc/NEWS: Mention new Tramp method "podman". Fix typos.
+
+2022-10-04 Brian Cully <bjc@kublai.com>
+
+ Provide Podman containers on their own method in Tramp
+
+ * lisp/net/tramp-docker.el (tramp-podman-program): New defcustom.
+ (tramp-podman-method): New defconst.
+ (tramp-docker-program): Remove "podman" from option list.
+ (top): Update comments to refer to Docker-alike where necessary.
+ Add description for how to use the podman method.
+
+2022-10-04 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/emacs.c (load_pdump): Propery handle case when executable
+ wasn't found.
+
+2022-10-04 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Optimize c-fontify-new-found-type and amend a debug spec
+
+ * lisp/progmodes/cc-fonts.el (c-fontify-new-found-type): Write the
`face'
+ property directly, rather than removing `fontified' properties and
letting
+ font-lock do the work.
+
+ * lisp/progmodes/cc-defs.el (cc-eval-when-compile): Amend the debug
spec from
+ t to (&rest body), in line with the fix to bug #16184.
+
+2022-10-04 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Improve manual display tests of undisplayable chars (bug#58168)"
+
+ This reverts commit 849b7756fd31a69791e67dfe010b1e10f0168c83.
+ Please don't rush installing changes that are still being
+ discussed.
+
+2022-10-04 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/subr.el (y-or-n-p): Use substitute-command-keys.
+
+2022-10-04 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Shorten several long names
+
+ * lisp/image/image-dired.el (image-dired-image-mode-map)
+ (image-dired-image-mode): Rename from
+ 'image-dired-display-image-mode-map' and
+ 'image-dired-display-image-mode'. Update all uses and make old
+ names into obsolete aliases.
+ (image-dired-display-this, image-dired-display-next)
+ (image-dired-display-previous): Rename from
+ 'image-dired-display-thumbnail-original-image',
+ 'image-dired-display-next-thumbnail-original', and
+ 'image-dired-display-previous-thumbnail-original'. Update all uses
+ and make old names into obsolete aliases.
+ * doc/emacs/dired.texi (Image-Dired): Update documentation for the
+ above changes, and improve indexing.
+
+2022-10-04 Mattias Engdegård <mattiase@acm.org>
+
+ Improve manual display tests of undisplayable chars (bug#58168)
+
+ Test display of multibyte raw bytes, as well as undisplayable
+ multibyte chars (C1 controls and other values).
+
+ The test still assumes that raw bytes should be displayed identically
+ to undisplayable characters (such as C1 controls) because that is how
+ the display code currently works.
+
+ * test/manual/redisplay-testsuite.el (test-redisplay-5-toggle)
+ (test-redisplay-5): Fix likely typo (#x3fffc) of raw byte value.
+ (test-redisplay-6): New.
+
+2022-10-04 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Fix arrow keys in thumbs buffer
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode-map): Also
+ remap 'left-char' and 'right-char'.
+
+2022-10-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix recent changes for Ukrainian language
+
+ * etc/HELLO:
+ * lisp/language/cyrillic.el ("Ukrainian"): Fix greetings and
+ remove redundant Ukrainian entry in cyrillic.el.
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make cropping of images work in message-mode
+
+ * lisp/gnus/message.el (message-mode): Set the image cropping function.
+ (message--yank-media-image-handler): Factor out...
+ (message--image-part-string): ... here for reuse.
+ (message--update-image-crop): Update the cropped data.
+
+2022-10-04 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Make c-forward-declarator move over a suffix after parens,
e.g. const
+
+ Also tidy up several inaccuracies in the code.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-arglist): Move point for
modes
+ other than C++ Mode.
+ (c-forward-declarator): Move over a suffix following arglist parens
+ (e.g. const). Set the ARGLIST element of the return value to non-nil on
+ encountering an unbalanced open parenthesis. Don't move forward out of
+ enclosing parens.
+
+ * lisp/progmodes/cc-mode.el (c-fl-decl-end): Handle being in a
multi-line
+ string. Move forward over token after declarator.
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move image commands to the 'i' sub map
+
+ * doc/lispref/display.texi (Showing Images): Adjust.
+ * lisp/image.el (image-map): Move all keys under the "i" prefix.
+ (image--repeat-map): New map.
+ (image-increase-size, image-rotate, image-decrease-size): Make
+ repeatable.
+ (image--delayed-change-size): New function.
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the arguments in tags--compat-initialize
+
+ * lisp/progmodes/etags.el (tags--compat-initialize): Fix argument
+ order -- swap the last two arguments (bug#58272).
+
+2022-10-04 Po Lu <luangruo@yahoo.com>
+
+ Update Ukrainian language info alist
+
+ * lisp/language/cyrillic.el ("Ukrainian"): Replace "Glory to
+ Ukraine" with "hello". See
+ www.gnu.org/prep/maintain/html_node/Other-Politics.html.
+
+2022-10-04 Denys Nykula <vegan@libre.net.ua>
+
+ Add Ukrainian tutorial
+
+ * etc/tutorials/TUTORIAL.uk: Create the translation.
+ * lisp/language/cyrillic.el: Link "Emacs Tutorial"
+ to the translation if the system is Ukrainian, and
+ add our modern greeting as a sample text.
+ * etc/NEWS:
+ * etc/tutorials/TUTORIAL.translators: Attribute my work (bug#55250).
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix NEWS item about obsoleting the `eq' gv
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `eq' obsolete as a generalized variable
+
+ * lisp/emacs-lisp/gv.el (eq): Make obsolete as a generalized
+ variable.
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention cond/if as generalized variables in the manual
+
+ * doc/lispref/variables.texi (Setting Generalized Variables):
+ Mention cond and if (bug#52290).
+
+2022-10-04 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in STRING_CHAR
+
+ * src/xdisp.c (handle_composition_prop):
+ * src/editfns.c (styled_format): Don't call 'STRING_CHAR' on
+ unibyte strings. This avoids assertion violation in
+ 'string_char_and_length'.
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make loaddefs-generate more resilient
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Don't bug
+ out when there's an existing loaddefs file that's not formatted
+ properly (bug#58280).
+
+2022-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't bug out in advice--make-docstring when there's not doc string
+
+ * lisp/emacs-lisp/nadvice.el (advice--make-docstring): Don't bug
+ out on functions with no documentation (bug#58284).
+
+2022-10-04 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid errors in interactive calls of 'calendar-goto-day-of-year'
+
+ * lisp/calendar/cal-move.el (calendar-goto-day-of-year): Fix the
+ default value of DAY; doc fix. (Bug#58283)
+
+2022-10-04 Stefan Kangas <stefankangas@gmail.com>
+
+ * etc/NEWS: Clarify confusing Image-Dired entry. (Bug#58279)
+
+2022-10-03 Po Lu <luangruo@yahoo.com>
+
+ Fix deiconification handling on FVWM and possibly other window managers
+
+ I can't believe we weren't doing this before.
+
+ * src/xterm.c (x_handle_wm_state): New function.
+ (handle_one_xevent): Handle window state changes in WM_STATE
+ messages, and use them for signalling deiconification.
+ (bug#58164)
+
+2022-10-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 992611b10a Fix documentation of 'TAB' in cc-mode
+ 08e485a2a5 Fix 'org-export-dispatch' command name in manual
+ e5a49f44ff * src/emacs.c (load_pdump): Fix use of xpalloc.
+ 7ff5207624 Avoid assertion violation in 'xpalloc'
+
+ # Conflicts:
+ # src/emacs.c
+
+2022-10-03 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (repeat-exit-key): Replace type 'key-sequence' with
'key'.
+
+ (repeat-post-hook, repeat-echo-message-string): Add
backward-compatibility
+ code for repeat-exit-key to keep support for 'key-sequence' type
(bug#55986).
+
+2022-10-03 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (repeat-exit): New command.
+
+ (repeat-exit-function): New variable.
+ (repeat-post-hook): Set repeat-exit-function.
+ Call repeat-exit from run-with-idle-timer.
+ Also use repeat--exit.
+ (repeat--exit): New internal function.
+
+2022-10-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/textmodes/tex-mode.el (tex--redirect-to-submode): Fix last change
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve messaging in ecomplete-remove
+
+ * lisp/ecomplete.el (ecomplete-remove): Make messaging better.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in last help-fns--insert-menu-bindings change
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): Fix typo in
+ last change.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve help-fns--insert-menu-bindings formatting
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): Make this
+ work better for menus that turn out to not be reachable after all
+ -- i.e., don't insert " and " before the heading in certain cases.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add commands to edit/remove ecomplete entries
+
+ * lisp/ecomplete.el (ecomplete-add-item): Allow forcing new values.
+ (ecomplete--remove-item):
+ (ecomplete--prompt-type): New functions.
+ (ecomplete-edit, ecomplete-remove): New commands.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename to inhibit-automatic-native-compilation
+
+ * src/comp.c (maybe_defer_native_compilation):
+ (syms_of_comp):
+ * lisp/subr.el (native-comp-deferred-compilation):
+ * lisp/startup.el (inhibit-native-compilation):
+ (normal-top-level):
+ * lisp/progmodes/elisp-mode.el (emacs-lisp-native-compile-and-load):
+ * lisp/emacs-lisp/comp.el (comp-trampoline-compile):
+ * etc/NEWS:
+ * doc/lispref/compile.texi (Native-Compilation Variables): Rename
+ inhibit-native-compilation to inhibit-automatic-native-compilation.
+
+2022-10-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ files.el (major-mode-remap-alist): New custom var (bug#58075)
+
+ * lisp/files.el (major-mode-remap-alist): New custom var.
+ (set-auto-mode--last): New var.
+ (set-auto-mode-0): Obey `major-mode-remap-alist`.
+
+ * doc/emacs/modes.texi (Choosing Modes): Document
`major-mode-remap-alist`.
+
+ * lisp/progmodes/cperl-mode.el: Recommend the use of
+ `major-mode-remap-alist` over the crude `defalias` solution.
+
+ * lisp/textmodes/tex-mode.el (tex--guess-mode): Simplify.
+ (tex--redirect-to-submode): Obey `major-mode-remap-alist`.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new variable 'inhibit-native-compilation'
+
+ * doc/lispref/compile.texi (Native-Compilation Variables):
+ Document it.
+
+ * lisp/startup.el (normal-top-level): Set
+ inhibit-native-compilation from environment variable.
+
+ * lisp/subr.el (native-comp-deferred-compilation): Make obsolete.
+
+ * lisp/emacs-lisp/comp.el (comp-trampoline-compile): Don't write
+ trampolines to disk.
+
+ * lisp/progmodes/elisp-mode.el
+ (emacs-lisp-native-compile-and-load): Adjust.
+
+ * src/comp.c (syms_of_comp): New variable
+ inhibit-native-compilation.
+ (maybe_defer_native_compilation): Use it.
+
+2022-10-03 Po Lu <luangruo@yahoo.com>
+
+ Fix coding systems used for X input methods
+
+ * doc/emacs/mule.texi (International): Refer to X Coding as
+ well.
+ (Communication Coding): Document that locale-coding-system is
+ not always used on X to decode keyboard input.
+ (X Coding): New node.
+ * etc/NEWS: Announce change to input method coding resolution.
+ * lisp/term/x-win.el (x-get-input-coding-system): New function.
+ * src/coding.c (syms_of_coding): Update doc string of
+ locale-coding-system.
+ * src/xfns.c (struct x_xim_text_conversion_data)
+ (x_xim_text_to_utf8_unix_1, x_xim_text_to_utf8_unix_2)
+ (x_xim_text_to_utf8_unix): Accept dpyinfo. Use the coding
+ system specified inside if possible.
+ (xic_preedit_draw_callback): Pass dpyinfo.
+ * src/xterm.c (handle_one_xevent): Use XIM coding system for IM
+ input.
+ (xim_open_dpy): Try to determine the input method coding system.
+ (mark_xterm): Mark `xim_coding'.
+ (syms_of_xterm): New variable `x-input-coding-system'.
+ * src/xterm.h (struct x_display_info): New field `xim_coding'.
+ (FRAME_X_XIM_CODING): New macro.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add --with-native-compilation=aot configuration option
+
+ * configure.ac: Allow --with-native-compilation=aot to switch full
+ ahead-of-time on.
+
+ * lisp/Makefile.in: Use the setting from configure.
+
+2022-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "keymap.el: Ease up support for non-`kbd` formats."
+
+ This reverts commit 570a11052be6178954956a1c59c8ebcbdb77d38e.
+
+ We do not want to support several keymap formats in
+ `keymap-set' and friends -- the point is to have an
+ interface with easy-to-understand semantics that
+ give good feedback on valid/invalid key sequences.
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve auto-insert-mode documentation
+
+ * lisp/autoinsert.el: Improve usage instructions and formatting.
+ (auto-insert-directory): Doc fix; the directory does not have to end
+ in slash.
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix documentation of 'TAB' in cc-mode
+
+ * doc/emacs/programs.texi (C Indent): Fix documentation of 'TAB'
+ in cc-mode. (Bug#58258)
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix 'org-export-dispatch' command name in manual
+
+ * doc/emacs/text.texi (Org Authoring): Fix 'org-export-dispatch'
+ command name. (Bug#58260)
+
+2022-10-02 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port TZ settings to POSIX
+
+ * lisp/Makefile.in (.el.elc):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-set-file-times):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-set-file-times):
+ Use the POSIX standard TZ=UTC0 rather than the GNU extension
+ TZ=UTC to set the time zone to UTC.
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Actually delete markers in dired-do-flagged-delete
+
+ * lisp/dired.el (dired-do-flagged-delete): Actually delete
+ markers. (Bug#58256)
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix more overly long docstrings in eieio
+
+ * lisp/emacs-lisp/eieio.el (defclass): Fix more overly long
+ docstrings. (Bug#58252)
+
+2022-10-02 Paul Eggert <eggert@cs.ucla.edu>
+
+ Don’t truncate seccomp-filter diagnostic
+
+ * lib-src/seccomp-filter.c (fail): Do not truncate diagnostic
+ arbitrarily to 1000 bytes when ERROR is nonzero.
+
+2022-10-02 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer static_assert to verify in seccomp-filter
+
+ Prefer static_assert in just one file for now; the idea is to do
+ it elsewhere eventually. static_assert is standard (starting with
+ C23) whereas verify is not, and static_assert can be used even in
+ pre-C23 files due to Gnulib’s support for it.
+ * lib-src/seccomp-filter.c: Do not include verify.h.
+ Prefer static_assert to verify.
+
+2022-10-02 Alan Mackenzie <acm@muc.de>
+
+ Suppress irritating/misleading message in make bootstrap about old .elc
files
+
+ These are the "compile-first" .elc files, artificially given an old
timestamp
+ to cause them later to be native compiled. This fixes bug #58224.
+
+ * lisp/Makefile.in (compile-first .el.elc): Give these .elc's the UTC
epoch.
+ Amend the comment.
+
+ * src/lread.c (Fload): New variable, epoch_timestamp, initialized to
binary
+ zero. Compare with this the timestamp of .elc's being loaded, and if
they
+ match, don't output the message about the source file being newer than
the
+ file being loaded.
+
+2022-10-02 Paul Eggert <eggert@cs.ucla.edu>
+
+ * .gitignore: Add lib/assert.h (Bug#58254).
+
+2022-10-02 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc-git.el (vc-git-checkin): Add more checks for
vc-git-patch-string
+
+ Check that vc-git-patch-string contains the same changes that already
exists
+ in the staged area when files were added/removed by vc commands
(bug#52349).
+
+2022-10-02 Juri Linkov <juri@linkov.net>
+
+ In vc-git-log-incoming use the repository in the command "fetch"
(bug#50340)
+
+ * lisp/vc/vc-git.el (vc-git-log-incoming): Use repository part
+ from non-nil remote-location in the command "fetch".
+
+ * lisp/vc/vc.el (vc-log-incoming, vc-log-outgoing): Mention in
+ docstrings and prompts that REMOTE-LOCATION can be a remote branch name.
+
+ * doc/emacs/maintaining.texi (VC Change Log): For commands
+ vc-log-incoming and vc-log-outgoing, use the term "remote location"
+ instead of "repository".
+
+2022-10-02 Peter Münster <pm@a16n.net>
+
+ Delete thumbs in image-dired-do-flagged-delete after confirmation
+
+ * lisp/image/image-dired.el (image-dired-do-flagged-delete): Remove
+ thumbnails only after confirming deletion of the files. (Bug#58255)
+
+2022-10-02 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (repeat<defgroup>): New customization group.
+
+ (repeat-too-dangerous, repeat-on-final-keystroke)
+ (repeat-exit-key, repeat-exit-timeout, repeat-keep-prefix)
+ (repeat-check-key, repeat-echo-function, repeat-mode):
+ Change group to 'repeat'.
+
+2022-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ keymap.el: Ease up support for non-`kbd` formats.
+
+ While we want to standardize on the `kbd` syntax for user-facing code,
+ the internal vector representation of key sequences is not going away,
+ so let's not impose silly `key-description + key-parse` roundtrips.
+ Also, provide some support for packages stuck with user configs defined
+ to hold old-style key formats.
+
+ * lisp/keymap.el (keymap-set): Allow vectors as `key`.
+ (key-parse-old-format): New function, which stands out better than
+ `key-description` when searching for uses of the old syntax.
+
+ * lisp/outline.el (outline-minor-mode): Use it.
+
+2022-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree: Use a single iterator object
+
+ Instead of having one iterator object per buffer, use just a single
+ global one. There is virtually no benefit to having per-buffer
+ iterators anyway: if two iterations can be active at the same time,
+ then there can be cases where those two iterations happen
+ to operate on the same buffer :-(
+
+ * src/itree.h (struct interval_tree): Remove `iter` field.
+ * src/itree.c (interval_generator_destroy)
+ (interval_tree_iter_ensure_space): Delete functions.
+ (iter): New global variable.
+ (init_itree_null): Rename to `itree_init` and adjust all callers.
+ Initialize `iter` as well.
+ (interval_tree_create, interval_tree_init):
+ Don't initialize `iter` field any more.
+ (interval_tree_destroy): Don't destroy `iter` field any more.
+ (interval_tree_insert): Don't bother growing the iterator (it's grown
+ in `interval_stack_push_flagged` if needed anyway, and in any case
+ there's no `iter` here to grow any more).
+ (interval_tree_remove): Tweak assertion to be more precise and
+ self-evident.
+ (interval_tree_iter_start): Use the global `iter`.
+ (interval_generator_create): Make it work with a NULL argument.
+
+2022-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ mark_overlays: Use the normal ITREE_FOREACH
+
+ This commit basically reverts commit 5b954f8f9. The problem of nested
+ iterations hasn't been fixed in the mean time, but since the GC can
+ run arbitrary ELisp code (via `post-gc-hook`), running the GC from
+ within an itree iteration is already unsafe anyway :-(
+
+ * src/alloc.c (mark_overlays): Delete function.
+ (mark_buffer): Use ITREE_FOREACH.
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/files.el (after-find-file): Use substitute-command-keys.
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix overly wide docstrings generated by eieio
+
+ * lisp/emacs-lisp/eieio-core.el (eieio-make-class-predicate)
+ (eieio-make-child-predicate, eieio-defclass-internal): Don't generate
+ overly wide docstrings. (Bug#58252)
+
+2022-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Remove `tree` field from iterator
+
+ * src/itree.c (interval_generator_ensure_space,
interval_generator_reset):
+ Inline and then delete functions.
+ (interval_tree_inherit_offset): Only take the tree's `otick` as arg.
+ Update all callers.
+ (struct interval_generator): Remove `tree` field, replace with a copy
+ of the tree's `otick`.
+ (interval_stack_push_flagged): The arg should be a real node.
+ (interval_tree_insert_gap): Prefer checking root==NULL rather than
size==0.
+ Skip loop when tree is empty to avoid pushing&processing the NULL node.
+ (interval_tree_inherit_offset): Prefer parent==NULL rather than
+ node==root to avoid accessing the tree object.
+
+2022-10-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Kill URL buffer in url-insert-file-contents-literally
+
+ * lisp/url/url-handlers.el (url-insert-file-contents-literally):
+ Kill the URL buffer after use.
+
+2022-10-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix coding system problems in gnus-read-ephemeral-bug-group
+
+ * lisp/gnus/gnus-group.el (gnus-read-ephemeral-bug-group): Don't
+ bind coding system variables, because that leads to loading other
+ files (like cookie files) using that coding system (bug#58227).
+
+ * lisp/url/url-handlers.el (url-insert-file-literally): New function.
+ (url-insert): Allow forcing no-decode.
+
+2022-10-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Decrease use of the word "Emacsen" in Tramp docs
+
+ * lisp/net/tramp-archive.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-uu.el:
+ * lisp/net/tramp.el: Don't say "Emacsen" when a different wording
+ would be clearer.
+
+2022-10-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ perform-replace doc string fix
+
+ * lisp/replace.el (perform-replace): Fix doc string (bug#58177).
+
+2022-10-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix point movement when indenting in sieve-mode
+
+ * lisp/net/sieve-mode.el (sieve-mode-indent-function): Fix point
+ movement when point is at the start of the line (bug#58202).
+
+2022-10-02 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/emacs.c (load_pdump): Fix use of xpalloc.
+
+2022-10-02 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violation in 'xpalloc'
+
+ * src/emacs.c (load_pdump): Ensure the 3rd argument of xpalloc is
+ always positive. (Bug#58232)
+
+2022-10-02 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Gothic script (bug#58194)
+
+ * lisp/language/misc-lang.el ("Gothic"): New language environment.
+ Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support gothic.
+ * lisp/leim/quail/misc-lang.el ("gothic"): New input method.
+
+ * etc/HELLO: Add Gothic greetings.
+ * etc/NEWS: Announce the new language environment.
+
+2022-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge remote-tracking branch 'origin/feature/noverlay' into noverlay
+
+2022-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ New ITREE_FOREACH macro
+
+ * src/itree.h (interval_tree_iter_start): Adjust type.
+ (interval_tree_nodes): Delete declaration.
+ (ITREE_FOREACH, ITREE_FOREACH_ABORT, ITREE_FOREACH_NARROW): New macros.
+
+ * src/itree.c (interval_tree_contains, interval_tree_insert_gap):
+ Use the new ITREE_FOREACH macro.
+ (interval_tree_nodes): Delete function.
+ (interval_tree_iter_start): Return the iterator.
+ (interval_generator_next, interval_tree_destroy):
+ Don't accept a NULL arg any more.
+
+ * src/xdisp.c (load_overlay_strings, strings_with_newlines):
+ * src/textprop.c (get_char_property_and_overlay):
+ * src/buffer.c (copy_overlays, delete_all_overlays)
+ (set_overlays_multibyte, swap_buffer_overlays, overlays_in)
+ (next_overlay_change, previous_overlay_change, overlay_touches_p)
+ (overlay_strings, Foverlay_lists, report_overlay_modification)
+ (evaporate_overlays): Use the new ITREE_FOREACH macro.
+
+ * src/buffer.h (buffer_overlay_iter_start1)
+ (buffer_overlay_iter_start, buffer_overlay_iter_next)
+ (buffer_overlay_iter_finish, buffer_overlay_iter_narrow):
+ Delete declarations.
+
+2022-10-01 Po Lu <luangruo@yahoo.com>
+
+ Only rely on EWMH window activation if possible
+
+ * xterm.c (x_ewmh_activate_frame): Remove unnecessary
+ x_wm_supports check.
+ (x_focus_frame): When the window manager supports
+ _NET_ACTIVE_WINDOW, just use it; anything else may confuse the
+ window manager.
+
+2022-10-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Revert "Decrease use of the word "Emacsen" in docs"
+
+ This reverts commit 55f46cc77cb9d72fbabadb63d8aeab45c5e005e2.
+
+ Ref. https://lists.gnu.org/r/emacs-devel/2022-10/msg00016.html
+
+2022-10-01 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp cleanup
+
+ * doc/misc/tramp.texi (Password handling): Fix typos.
+
+ * lisp/net/tramp-docker.el (tramp-default-remote-shell):
+ * lisp/net/tramp-sshfs.el (tramp-default-remote-shell): Declare.
+
+ * lisp/net/tramp.el (tramp-methods): Fix docstring.
+ (tramp-get-remote-tmpdir): Revert previous patch, it isn't needed
+ anymore.
+
+2022-10-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-09-27 20:39:13 UTC.
+
+2022-10-01 Michael Albinus <michael.albinus@gmx.de>
+
+ Use a version for the Tramp cache
+
+ * lisp/net/tramp-cache.el (tramp-cache-version): New defconst.
+ (top): Check the cache version, and flush the cache in case of
+ mismatch. Suggested by Paul Pogonyshev <pogonyshev@gmail.com>.
+
+ * lisp/net/tramp-cmds.el (tramp-cleanup-all-connections):
+ Re-initialize the cache version.
+
+2022-10-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Decrease use of the word "Emacsen" in docs
+
+ "Emacsen" is either a less clear way of saying "old versions of
+ Emacs", or an implicit reference to XEmacs. We recommend against
+ using it in the FAQ. So use the more clear wording instead.
+
+ * doc/misc/gnus.texi (Oort Gnus):
+ * doc/misc/widget.texi (Basic Types, toggle):
+ * lisp/cedet/semantic/bovine/c.el (semantic-c-skip-conditional-section):
+ * lisp/cedet/semantic/wisent/comp.el (wisent-compile-grammar):
+ * lisp/desktop.el (desktop-save):
+ * lisp/erc/erc-compat.el:
+ * lisp/erc/erc-log.el:
+ * lisp/gnus/gnus-util.el (gnus-replace-in-string):
+ * lisp/mail/footnote.el:
+ * lisp/net/tramp-archive.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-uu.el:
+ * lisp/net/tramp.el:
+ (with-tramp-locked-connection):
+ * lisp/org/ol-eww.el:
+ * lisp/org/org-compat.el:
+ (org-define-error):
+ * lisp/shadowfile.el:
+ * lisp/winner.el: Don't use the word "Emacsen".
+
+2022-10-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ be3eac3929 ; * etc/NEWS: Fix typos.
+ 99a8c53247 Fix connection property incompatibility in Tramp
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make mailcap--regexp-quote-type more resilient
+
+ * lisp/net/mailcap.el (mailcap--regexp-quote-type): Make more
+ resilient in the presence of junk.
+
+2022-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make "git pull" output slightly prettier
+
+ * lisp/vc/vc-git.el (vc-git--pushpull): Translate ^M in output
+ (bug#58199).
+
+2022-10-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix vertical motion in some rare bidi situations
+
+ * src/xdisp.c (move_it_by_lines): Handle the case where we
+ didn't move vertically at all.
+
+2022-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make mailcap consistent about regexp-quoting minors
+
+ * lisp/net/mailcap.el (mailcap-mime-data): Quote regexp.
+ (mailcap-mime-extensions): Ditto.
+ (mailcap--regexp-quote-type): New function.
+ (mailcap-parse-mimetype-file): Use it to get consistent quoting of
+ (regexp) strings (bug#52038). Before you'd get both
+ application/vnd\.ms-excel and application/vnd.ms-excel (etc),
+ making prompting confusing.
+
+2022-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix url-retrieve-synchronously on very short timeouts
+
+ * lisp/url/url.el (url-retrieve-synchronously): Don't kill the
+ process buffer unless we made one (bug#58218). This makes HTTP
+ free connection marking work on premature timeouts.
+
+2022-10-01 Matthias Meulien <orontee@gmail.com>
+
+ Define ansi-osc customization group
+
+ * lisp/ansi-osc.el (ansi-osc): Define ansi-osc customization group
+ (ansi-osc-for-compilation-buffer): Fix wrong group
+
+2022-10-01 Matthias Meulien <orontee@gmail.com>
+
+ Rename osc.el to ansi-osc.el (bug#58200)
+
+ * lisp/osc.el: Move from here...
+ * lisp/ansi-osc.el: ...to here.
+ * test/lisp/osc-tests.el: Move from here...
+ * test/lisp/ansi-osc-tests.el: ...to here.
+
+2022-10-01 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update to Modus themes stable version 2.7.0
+
+ * doc/misc/modus-themes.org (Load theme depending on time of day): Add
+ missing keyword from sample configuration.
+ (Full support for packages or face groups): Update list of supported
packages.
+ (Note on goto-address-mode faces): Add documentation about possible
+ user-level tweaks.
+ (Are these color schemes?): Fix typo.
+ (Acknowledgements): Update list of contributors to the project.
+
+ * etc/themes/modus-themes.el (modus-themes--version): Update to
+ current stable version.
+ (modus-themes-vivendi-colors): Tweak value of a single color.
+ (modus-themes-faces): Update list of supported faces.
+ (modus-themes-custom-variables): Remove outdated "TODO" comment.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Update version header.
+
+ Release notes:
<https://protesilaos.com/codelog/2022-10-01-modus-themes-2-7-0/>.
+
+2022-10-01 Gerd Möllmann <gerd@gnu.org>
+
+ Make it compile with ITREE_DEBUG defined
+
+ * src/buffer.c (make_lispy_interval_node): Use make_fixnum.
+ (overlay_tree): Use ITREE_NULL.
+
+2022-10-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'C-a' and 'C-e' under 'visual-line-mode'
+
+ * src/xdisp.c (move_it_vertically_backward): Fix last change.
+ (Bug#58210)
+
+2022-09-30 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-09-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.c: Improve division between tree and iterator
+
+ * src/buffer.c (delete_all_overlays): Add comment.
+
+ * src/itree.c (struct interval_generator): New fields `running`,
+ `file`, and `line` moved from `interval_tree`.
+ (interval_stack_push_flagged): Adjust comment to resolve a FIXME.
+ (interval_tree_clear): Replace assignment with an a
+ (interval_tree_iter_next): Delete function.
+ (interval_tree_clear): Don't set `iter_running` here any more.
+ (interval_generator_create): Set it here instead.
+ (interval_tree_iter_start): Fetch `iter` once and for all.
+ (interval_generator_narrow): Mark it as non-static.
+ (interval_tree_iter_next, interval_tree_iter_narrow):
+ Delete functions. Inline their old bodies in the callers.
+ (interval_tree_iter_finish): Take the iter rather than
+ the whole tree. Adjust all callers.
+ (interval_generator_next): Move `running `assertion here from
+ `interval_tree_iter_next`.
+
+ * src/buffer.h: Adjust accordingly.
+
+ * src/itree.h (struct interval_tree): Remove fields `iter_running`,
+ `file`, and `line`, moved to `interval_generator`.
+ (interval_generator_narrow): Replace `interval_tree_iter_narrow`.
+
+2022-09-30 Yuan Fu <casouri@gmail.com>
+
+ Change tree-sitter indent anchor preset 'prev-line'
+
+ * doc/lispref/modes.texi: Update manual.
+ * lisp/treesit.el (treesit-simple-indent-presets): Change prev-line to
+ mean bol of prev-line.
+
+2022-09-30 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter manuals
+
+ * doc/lispref/modes.texi: Fix typos, reword, etc.
+ * doc/lispref/parsing.texi: Fix typos, reword, etc.
+
+2022-09-30 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix connection property incompatibility in Tramp
+
+ * lisp/net/tramp.el (tramp-get-remote-tmpdir): Remove obsolete
+ connection property "tmpdir". (Bug#57800)
+
+2022-09-30 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Rename comint-fl-* to comint-fontify-input-* and mention it in NEWS
+
+ * lisp/comint.el
+ (comint-fontify-input-mode):
+ (comint--fontify-input-saved-jit-lock-contextually):
+ (comint--fontify-input-on):
+ (comint--fontify-input-off):
+ (comint--fontify-input-ppss-flush-indirect):
+ (comint--fontify-input-fontify-region): Replace comint-fl-* with
+ comint-fontify-input-*.
+
+ * lisp/ielm.el (ielm-fontify-input-enable):
+ (ielm-fontify-input-enable):
+ (ielm-indirect-setup-hook):
+ (inferior-emacs-lisp-mode): Replace comint-fl-* with
+ comint-fontify-input-*.
+
+ * lisp/shell.el (shell-comint-fl-enable):
+ (shell-mode): Replace comint-fl-* with comint-fontify-input-*.
+
+ * etc/NEWS: Mention the new modes and how to disable or enable
+ them (bug#58169).
+
+2022-09-30 Miha Rihtaršič <miha@kamnitnik.top>
+
+ comint-fl: Prevent fontification of output as input
+
+ * lisp/comint.el (comint-output-filter): Inhibit jit-lock
+ fontification of inserted process output before marking it with the
+ 'output' filed property (bug#58169).
+
+2022-09-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further with-locale-environment refresh fixes
+
+ * lisp/international/mule-cmds.el
+ (set-display-table-and-terminal-coding-system): Allow inhibiting
+ refresh.
+ (set-locale-environment): Inhibit refresh in more paths (bug#58193).
+
+2022-09-30 Sean Whitton <spwhitton@spwhitton.name>
+
+ Add vc-edit-next-command
+
+ * lisp/vc/vc.el (vc-read-revision): Override
+ vc-filter-command-function back to its default value.
+ (vc-print-branch-log): Remove recently-added prefix argument.
+ (vc-edit-next-command): New command.
+ * lisp/vc/vc-hooks.el (vc-prefix-map): Bind it to 'C-x v !'.
+ * etc/NEWS:
+ * doc/emacs/vc1-xtra.texi (Editing Shell Commands): Document it.
+
+2022-09-30 Mattias Engdegård <mattiase@acm.org>
+
+ Rectify string= documentation
+
+ * doc/lispref/strings.texi (Text Comparison): Describe the current
+ behaviour since about 20 years back.
+
+2022-09-30 Mattias Engdegård <mattiase@acm.org>
+
+ Strengthen string-lessp tests
+
+ * test/src/fns-tests.el (fns-tests--string-lessp-cases)
+ (fns-tests-string-lessp): Check more cases, and in a more robust way.
+
+2022-09-30 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up string-lessp further
+
+ * src/fns.c (Fstring_lessp): Use the memcmp fast path for ASCII-only
+ multibyte strings as well. Specialise loops on argument
+ multibyteness.
+
+2022-09-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't refresh the frame in with-locale-environment
+
+ * lisp/international/mule-cmds.el (with-locale-environment):
+ Inhibit refresh so that there's no flickering (bug#58193).
+ (set-locale-environment): Allow inhibiting the refresh.
+ * lisp/international/mule.el (set-terminal-coding-system): Ditto.
+
+2022-09-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make gnus-user-agent less verbose
+
+ * lisp/gnus/gnus.el (gnus-user-agent): Don't include the Emacs/OS
+ version for privacy reasons (bug#58171).
+
+2022-09-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the `dictionary' parent defgroup
+
+ * lisp/net/dictionary.el (dictionary): The `hypermedia' group
+ doesn't exist, so put it in the same parent group that `ispell'
+ uses (bug#58178).
+
+2022-09-30 Jose A. Ortega Ruiz <jao@gnu.org>
+
+ docview: fixes for imenu generation
+
+ * lisp/doc-view.el: (doc-view--pdf-outline):
+ (doc-view-imenu-index):
+ (doc-view-imenu-setup): Fix multiple empty index generation for
+ documents without an outline, caching the result (see discussion in
+ bug#58103).
+ (doc-view--imenu-subtree): Fix for nested imenus (bug introduced in
+ commit fe002cc8ce) (bug#58180).
+
+2022-09-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix rename-visited-file when renaming to a directory name
+
+ * lisp/files.el (rename-visited-file): Allow renaming to a
+ directory file name (bug#58182).
+
+2022-09-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve message-sendmail-f-is-evil documentation
+
+ * lisp/gnus/message.el (message-sendmail-f-is-evil): Move some of
+ the explanation here.
+
+ * lisp/mail/feedmail.el (feedmail-sendmail-f-doesnt-sell-me-out):
+ Refer to message-sendmail-f-is-evil (bug#58185).
+
+2022-09-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix some issues with vertical-motion in bidi-reordered text
+
+ This fixes some uses of vertical-motion when a screen line
+ starts withcharacters of directionality that is opposite to
+ the current paragraph's base direction.
+ * src/xdisp.c (move_it_vertically_backward): Adjust NLINES to
+ compensate for its increasing when DY == 0.
+
+2022-09-30 Gerd Möllmann <gerd@gnu.org>
+
+ Remove the per-tree null node
+
+ "make check" shows 0 unexpcted.
+
+ * src/itree.h (itree_null): Declare extern.
+ (ITREE_NULL): New macro
+ (struct interval_tree): Remove null member.
+ * src/alloc.c (mark_overlays): Use ITREE_NULL.
+ * src/itree.c: Use ITREE_NULL insteads of a tree's null.
+ * src/pdumper.c (dump_buffer): Use ITREE_NULL.
+
+2022-09-30 Po Lu <luangruo@yahoo.com>
+
+ Fix calculation of frame times when X server time overflows
+
+ * etc/TODO: Add TODO about frame synchronization and animations.
+ * src/xterm.c (x_display_set_last_user_time): Handle cases when
+ the monotonic time is not the server time due to the latter
+ overflowing.
+
+2022-09-30 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Toto script (bug#58181)
+
+ * lisp/language/indian.el ("Toto"): New language environment.
+ Add input method.
+ * lisp/international/fontset.el (script-representative-chars):
+ Support Toto.
+ * lisp/leim/quail/indian.el ("toto"): New input method.
+
+ * etc/NEWS: Announce the new language environment.
+
+2022-09-30 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 64e8cc14b5 ; * lisp/image.el (create-image): Fix last change in doc s...
+ f3e3632394 Update some Gnus documentation in the Emacs manual
+
+2022-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree: Remove the `visited` flag from the tree nodes
+
+ These bits really belong in the "workstack" used within
+ `interval_generator_next`, so move them there.
+
+ * src/itree.c (nodeptr_and_flag): New type;
+ (struct interval_stack): Use it.
+ (make_nav, nav_nodeptr, nav_flag): New functions.
+ (interval_tree_insert_gap, interval_tree_delete_gap): Adjust
accordingly.
+ (interval_generator_next): Stash the `visited` bit in the work stack
+ rather than inside the tree nodes.
+ (interval_stack_create, interval_stack_destroy, interval_stack_clear)
+ (interval_stack_ensure_space, interval_stack_push_flagged)
+ (interval_stack_push, interval_stack_pop): Move before first use.
+
+ * src/itree.h (struct interval_node): Remove `visited` field.
+ * src/pdumper.c (dump_interval_node): Adjust accordingly.
+
+2022-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ free_buffer_overlays: Move nearer to its sole caller
+
+ * src/buffer.c (free_buffer_overlays): Move from `buffer.h`.
+ * src/buffer.h (free_buffer_overlays): Move to `buffer.c`.
+
+ * src/itree.c (interval_tree_iter_narrow, interval_tree_iter_finish)
+ (interval_tree_iter_next): Prefer `eassert`.
+
+2022-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/itree.c (interval_tree_iter_start): Improve error message
+
+2022-09-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix loading wallpaper.el on MS-Windows
+
+ * lisp/image/wallpaper.el (wallpaper--find-command)
+ (wallpaper--find-command-args): Avoid backtrace when
+ 'wallpaper--find-setter' returns nil, e.g. on MS-Windows.
+ (Bug#58167)
+
+2022-09-29 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Refactor c-forward-delarator and callers
+
+ c-forward-declarator now moves over a complete declarator, including any
+ arglist expression, but possibly not including certain C++20 constructs.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-arglist): New function,
+ extracted from c-do-declarators.
+ (c-forward-declarator): Extend the result list by one element, denoting
+ whether the function parsed an argument list. Insert special handling
for a
+ C++ operator<op> construct. If there is a parenthesis expression, and
it is
+ an argument list, move forward over it.
+ (c-do-declarators): Append an optional parameter, cdd-anon-accepted
+ instructing the function to handle declarators without identifiers.
Extract
+ c-forward-decl-arglist.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-declarators): New &optional
+ parameter accept-anon, as above. Analyze and use the identifier
location
+ returned by c-do-declarators, rather than using c-last-identifier-range.
+ (c-font-lock-single-decl): Determine accept-anon from the context,
passing it
+ as argument to c-font-lock-declarators.
+
+ * lisp/progmodes/cc-langs.el (c-opt-identifier-prefix-key): Make a
+ c-lang-defvar out of this existing c-lang-defconst.
+
+ * lisp/progmodes/cc-mode.el (c-fl-decl-end): Adapt for the new
+ c-forward-declarator which now moves over arglists. Amend better to
handle
+ certain syntactically invalid constructs in C++.
+
+2022-09-29 Peter Münster <pm@a16n.net>
+
+ New command image-dired-do-flagged-delete
+
+ * lisp/image/image-dired.el (image-dired-delete-marked): Remove command,
+ because it was too buggy.
+ (image-dired-do-flagged-delete): New command that does almost the same
+ as the above removed command but with flagged images.
+ (image-dired-thumbnail-mode-map): Bind "x" to
+ 'image-dired-do-flagged-delete'.
+
+2022-09-29 Peter Münster <pm@a16n.net>
+
+ image-dired-delete-char: Don't disturb formatting
+
+ * lisp/image/image-dired.el (image-dired-delete-char): Don't disturb
+ the expected formatting of the thumbnail buffer (always one
+ space/newline after a thumbnail).
+
+2022-09-29 Stefan Kangas <stefankangas@gmail.com>
+
+ wallpaper-set: Get monitor name on non-graphical display
+
+ * lisp/image/wallpaper.el
+ (wallpaper--format-arg): Break out function from here...
+ (wallpaper--x-monitor-name): ...to here. Try to get the monitor name
+ non-graphical displays, and prompt if that doesn't work.
+ (wallpaper-default-set-function): Improve debugging output.
+ Ref. https://lists.gnu.org/r/emacs-devel/2022-09/msg01910.html
+
+2022-09-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Prompt for wallpaper width/height only when needed
+
+ * lisp/image/wallpaper.el (wallpaper--format-arg): Don't prompt for
+ width and height unless the values are actually used.
+
+2022-09-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Make format-spec accept function substitutions
+
+ * lisp/format-spec.el (format-spec): Accept a function producing the
+ substitution for a character.
+ * doc/lispref/strings.texi (Custom Format Strings): Document the
+ above change.
+ * test/lisp/format-spec-tests.el (format-spec/function): New test.
+ Ref. https://lists.gnu.org/r/emacs-devel/2022-09/msg01875.html
+
+2022-09-29 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Wancho script (bug#58159)
+
+ * lisp/language/indian.el ("Wancho"): New language environment.
+ Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Wancho.
+ * lisp/leim/quail/indian.el ("wancho"): New input method.
+
+ * etc/HELLO: Add a Wancho greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ alloc.c: Avoid nested overlay iterations (bug#58158)
+
+ * src/alloc.c (mark_overlays): New function.
+ (mark_buffer): Use it instead of using the overlay iterator.
+
+2022-09-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Remove Emacs 21 compat code for gnus-user-agent
+
+ * lisp/gnus/gnus.el (gnus-user-agent): No longer convert old
+ (< 2005-01-10) symbol type values.
+
+2022-09-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update some Gnus documentation in the Emacs manual
+
+ * doc/emacs/misc.texi (Gnus Group Buffer, Gnus Summary Buffer):
+ Update documentation (bug#58145).
+
+2022-09-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak while-let definition
+
+ * lisp/subr.el (while-let): Use if-let* since we don't need/want
+ the backwards compat of if-let.
+
+2022-09-29 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Mende Kikakui script (bug#58151)
+
+ * lisp/language/misc-lang.el ("Mende Kikakui"): New language
environment.
+ Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Mende Kikakui, Indic Siyaq Numbers,
+ Ottoman Siyaq Numbers.
+ * lisp/leim/quail/misc-lang.el ("mende-kikakui"): New input method.
+
+ * etc/HELLO: Add Mende Kikakui greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-09-29 Jacob First <jacob.first@member.fsf.org>
+
+ bind-keys supports passing a list of keymaps as :map argument
+
+ Fix bind-chords docs: :map argument may be a list of keymaps
+
+2022-09-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ cf38e1c393 Clarify image file search
+ fc212364ce ; Fix typo.
+
+2022-09-28 Po Lu <luangruo@yahoo.com>
+
+ Pacify compiler warning in xterm.c
+
+ * src/xterm.c (handle_one_xevent): Mark gen_help_time UNINIT.
+ Reported by Lars Ingebrigtsen <larsi@gnus.org>.
+
+2022-09-28 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS build
+
+ * config.bat: Add assert.in-h.
+ * msdos/sed2v2.inp: Define HAVE_STDBOOL_H.
+ * msdos/sedlibmk.inp (GL_GNULIB_LCHMOD, HAVE_LCHMOD): Define to
+ reflect realities.
+ (NEXT_ASSERT_H, @GL_GENERATE_ASSERT_H_CONDITION@): Define.
+ (assert.h): Edit command group into individual commands appending
+ to assert.h-t.
+
+2022-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ itree.[ch]: Add sanity checks, comments, and minor tweaks
+
+ * src/alloc.c (mark_overlay): Add sanity check.
+
+ * src/buffer.c (next_overlay_change, previous_overlay_change):
+ Tweak code to keep the same vars for the bounds.
+
+ * src/itree.c (interval_tree_clear, interval_tree_insert)
+ (interval_tree_remove, interval_tree_insert_fix,
interval_tree_remove_fix):
+ Adjust to the `color` -> `red` change.
+ (interval_tree_clear): Prefer `true/false` for booleans.
+ (interval_generator_create): Use an actual `interval_tree_order` value
+ rather than 0.
+ (interval_generator_next): Simplify a tiny bit. Add comment.
+ (interval_generator_narrow): Add sanity check.
+
+ * src/itree.h (struct interval_node): Replace `color` field with
+ boolean `red` field.
+ (enum interval_tree_order): Remove unused `ITREE_DEFLT_ORDER` value.
+
+ * src/pdumper.c (dump_interval_node): Adjust to the
+ `color` -> `red` change.
+
+2022-09-28 Eli Zaretskii <eliz@gnu.org>
+
+ Clarify image file search
+
+ * doc/lispref/display.texi (Defining Images, Image Descriptors):
+ * lisp/image.el (create-image): Clarify that non-absolute image
+ files are searched along 'image-load-path'. (Bug#52931)
+
+2022-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/lispref/functions.texi (Declare Form) <compiler-macro>:
Re-rephrase
+
+2022-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/lispref/functions.texi (Declare Form) <compiler-macro>: Rephrase
+
+ See bug#57397.
+
+2022-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge remote-tracking branch 'origin/scratch/noverlay-wip' into noverlay
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ * .mailmap: Fixes for Emacs 29.
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 8033947fe2 .mailcap: Some additional fixes.
+ b1e92c59ed Avoid assertion violations in 'pop_it'
+
+2022-09-28 Gerd Möllmann <gerd@gnu.org>
+
+ Avoid nested iteration over intervals (bug#58144)
+
+ * src/xdisp.c (strings_with_newlines): Call
+ buffer_overlay_iter_finish.
+
+2022-09-28 Gregory Heytings <gregory@heytings.org>
+
+ Remove hard-coded path to pwd in Makefiles.
+
+ * Makefile.in:
+ * lib-src/Makefile.in:
+ * nextstep/Makefile.in:
+ * nt/Makefile.in: Replace hard-coded calls to /bin/pwd by calls
+ to 'pwd -P'. Fixes bug#58080.
+
+2022-09-28 Gerd Möllmann <gerd@gnu.org>
+
+ Add debugging help for nested iterators (nug#58144)
+
+ When starting an iteration, store __FILE__ and __LINE__ where this
+ happens in the interval_tree structure.
+
+ * src/buffer.h (buffer_overlay_iter_start): New macro adding __FILE
+ and __LINE__.
+ (buffer_overlay_iter_start1): Renamed from ..._start.
+ * src/itree.h (struct interval_tree): Add file and line info.
+ * src/itree.c: (interval_tree_contains, interval_tree_nodes,
+ interval_tree_insert_gap): Pass __FILE__ and __LINE__ to iter_start.
+ (interval_tree_iter_start): Record file and line info in tree.
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ .mailcap: Some additional fixes.
+
+2022-09-28 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in 'pop_it'
+
+ * src/xdisp.c (pop_it): Avoid assertion violations when handling
+ lists or vectors of display properties. (Bug#58122)
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 72aac80184 ; Fix typo
+ c54a64491f Add .mailmap for proper git log output
+ f9a072c592 ; Fix typo
+ 3d056f6947 * doc/emacs/ack.texi (Acknowledgments): Update maintainers.
+ 00159c086c ; Add commentary to disabled OTF support code in font.c
+
+ # Conflicts:
+ # src/font.c
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Add .mailmap for proper git log output
+
+ This file is used to fix a few misspelled names in various git
+ listings (e.g., "git log"). This can be used to fix incorrect
+ attribution, poor display, or names showing up more than once.
+ It also allows updating an old email addresses to a new one.
+ See "man git-shortlog" for more information on the format.
+
+ * .mailmap: New file.
+
+2022-09-28 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Adlam script (bug#58111)
+
+ * lisp/language/misc-lang.el ("Adlam"): New language environment.
+ Add composition rules for Adlam. Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars):
+ Support Adlam.
+ * lisp/leim/quail/misc-lang.el ("adlam"): New input method.
+
+ * etc/HELLO: Add Adlam greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-09-28 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Improve Gurmukhi composition rules (Bug#58098)
+
+ * lisp/language/indian.el: Improve composition rules for Gurmukhi.
+
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Chess Symbols.
+
+2022-09-28 Po Lu <luangruo@yahoo.com>
+
+ Apply root window coordinate optimizations to crossing events as well
+
+ * src/xterm.c (xi_compute_root_window_offset_enter): New
+ function.
+ (handle_one_xevent): Apply root window crossing optimizations to
+ XI_Enter and XI_Leave events too. Not strictly necessary but
+ since we apply them to motion events it would be consistent to
+ apply them to crossing events as well as recommended by the
+ ICCCM.
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/files.el (auto-mode-alist): Add entry for ".mailmap".
+
+2022-09-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify eww--rescale-images code
+
+ * lisp/net/eww.el (eww--rescale-images): Simplify code.
+
+2022-09-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new macro 'while-let'
+
+ * doc/lispref/control.texi (Conditionals): Document
+ when-let/if-let/while-let.
+ * lisp/subr.el (while-let): New macro.
+
+2022-09-28 Jose A. Ortega Ruiz <jao@gnu.org>
+
+ docview: new customization options for imenu
+
+ * doc/emacs/misc.texi (DocView Navigation):
+ * lisp/doc-view.el (doc-view-imenu-title-format,
doc-view-imenu-flatten):
+ (doc-view--imenu-subtree): customizable format for imenu entry titles,
+ and flag to disable nested submenus.
+ * lisp/doc-view.el (doc-view--pdf-outline): clean up whitespace
+ markers '\r' and '\t' in imenu item titles (bug#58131).
+
+2022-09-28 Lin Sun <sunlin7@hotmail.com>
+
+ package-update would always re-install package
+
+ * lisp/emacs-lisp/package.el (package--updateable-packages): fix
+ version comparison between available packages and archived
+ packages (bug#58129).
+
+2022-09-28 Visuwesh <visuweshm@gmail.com>
+
+ Follow #target links in eww without re-rendering
+
+ * lisp/net/eww.el (eww-follow-link): Do a text property search instead
+ of re-rendering to follow #target links in the same page. (bug#58118)
+ (eww-link-keymap): Bind <mouse-2> to eww-follow-link as well.
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: End thumbnail file names with ".jpg"
+
+ * lisp/image/image-dired-util.el (image-dired-thumb-name): Always
+ end thumbnail name in ".jpg" and simplify naming to just use the
+ SHA-1 hash. (Bug#57961)
+ * test/lisp/image/image-dired-util-tests.el
+ (image-dired-thumb-name/image-dired): Adjust test for the above
+ change.
+ * etc/NEWS: Announce the above change.
+
+2022-09-28 Stefan Kangas <stefankangas@gmail.com>
+
+ Standardize XPM files
+
+ These headers make GraphicsMagick croak with "Improper image header".
+ Note that the copyright information is already in README.
+
+ * etc/images/checked.xpm:
+ * etc/images/gnus/gnus.xpm:
+ * etc/images/gnus/gnus-pointer.xpm:
+ * etc/images/mh-logo.xpm:
+ * etc/images/unchecked.xpm: Normalize file headers.
+
+2022-09-28 Gerd Möllmann <gerd@gnu.org>
+
+ Fix last change
+
+2022-09-28 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port better to C23 bool+true+false keywords
+
+ C23 is adding the C++ keywords bool, true, and false;
+ prefer them to <stdbool.h> if they are available.
+ * admin/merge-gnulib (GNULIB_MODULES):
+ Add stdbool, which emulates C23 on pre-C23 platforms.
+ (AVOIDED_MODULES): Remove stdbool; Gnulib has renamed
+ this module to stdbool-c99 and nobody uses it so it does
+ not need to be avoided.
+ * m4/c-bool.m4: New file, from Gnulib stdbool module.
+ * lib-src/seccomp-filter.c, src/conf_post.h, src/dynlib.h:
+ * src/emacs-module.c, src/nsterm.m, src/systhread.h:
+ * test/src/emacs-module-resources/mod-test.c:
+ Use the C23 style and use bool without including <stdbool.h>.
+ The Gnulib stdbool module causes config.h to include stdbool.h
+ on pre-C23 platforms.
+ * src/emacs-module.h.in:
+ Don’t include <stdbool.h> if C23 or later, or if
+ it has already been included.
+
+2022-09-28 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-09-27 Sean Whitton <spwhitton@spwhitton.name>
+
+ Maintaining ChangeLog history: add more details
+
+ * admin/notes/repo (Maintaining ChangeLog history): Add more details.
+ See <https://debbugs.gnu.org/58092#37>.
+
+2022-09-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Make image-dired-dired-toggle-marked-thumbs faster
+
+ * lisp/image/image-dired-dired.el
+ (image-dired-dired-toggle-marked-thumbs): Don't show progress, since
+ it makes things slower.
+
+2022-09-27 Lin Sun <sunlin7@hotmail.com>
+
+ Load compiled "calc-loaddefs", if any
+
+ * lisp/calc/calc.el ("calc-loaddefs"): Load the .elc file (if it
+ exists) (bug#58127).
+
+2022-09-27 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Fix header line when file is missing
+
+ * lisp/image/image-dired.el
+ (image-dired-format-properties-string): Don't error when file has
+ been deleted.
+
+2022-09-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/files.el (file-backup-file-names): Don't burp if dir doesn't
exist
+
+2022-09-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Add back useful information from gnus-coding.texi
+
+ * lisp/international/rfc1843.el:
+ * lisp/net/pop3.el: Improve Commentary by adding back text from
+ deleted file gnus-coding.texi.
+
+2022-09-27 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/emacs/ack.texi (Acknowledgments): Update maintainers.
+
+2022-09-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove gnus-coding.text (bug#58119)
+
+2022-09-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Some tramp-docker.el adaptions
+
+ * lisp/net/tramp-docker.el (tramp-docker--completion-function):
+ Add ;;;###tramp-autoload cookie. Make implementation more robust.
+ (tramp-methods) Use `tramp-default-remote-shell'.
+
+2022-09-27 Stefan Kangas <stefankangas@gmail.com>
+
+ * etc/NEWS.23: Belatedly announce 'format-spec'.
+
+2022-09-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Document the new "XRandR 1.5" value
+
+ * src/xfns.c (Fx_display_monitor_attributes_list):
+ * lisp/frame.el (display-monitor-attributes-list):
+ * doc/lispref/frames.texi (Multiple Terminals): Document the new
+ "XRandR 1.5" value.
+
+2022-09-27 Po Lu <luangruo@yahoo.com>
+
+ Improve doc of `x-window-property'
+
+ * src/xfns.c (Fx_window_property): Fix errors in doc string and
+ document where to obtain documentation for standardized window
+ properties.
+
+2022-09-27 Jose A. Ortega Ruiz <jao@gnu.org>
+
+ docview: imenu access to table of contents
+
+ * lisp/doc-view.el (doc-view-imenu-enabled): user option to disable
+ imenu generation.
+ * lisp/doc-view.el (doc-view--outline-rx):
+ (doc-view--pdf-outline, doc-view--imenu-subtree, doc-view-imenu-index):
+ functions implementing the imenu index generation via mutool.
+ * lisp/doc-view.el (doc-view-imenu-setup, doc-view-mode): setup of the
+ new functionality in doc-view mode.
+ * lisp/imenu.el (imenu-submenus-on-top):
+ (imenu--split-menu): new local variable to optionally inhibit
+ grouping of entries with children at the top of imenu menus.
+ * doc/emacs/misc.texi: documentation for the new functionality
+ (bug#58103).
+
+2022-09-27 Richard Hansen <rhansen@rhansen.org>
+
+ ert-x: Improve realism of `ert-with-test-buffer-selected'
+
+ * lisp/emacs-lisp/ert-x.el (ert-with-test-buffer-selected): Set
+ `inhibit-read-only' and `buffer-read-only' to nil when executing the
+ body to provide a more realistic test environment.
+
+2022-09-27 Gerd Möllmann <gerd@gnu.org>
+
+ Fix macOS build (bug#58108)
+
+ * src/itree.h (struct interval_tree): Rename member nil to null.
+ * src/itree.c: Use null instead of nil
+ * src/pdumper.c (dump_buffer): Use null instead of nil.
+ * src/itree.c: Fix copyright.
+ * src/itree.h: Fix copyright.
+
+2022-09-27 Alan Mackenzie <acm@muc.de>
+
+ * lisp/progmodes/cc-defs.el (c-let*-maybe-max-specpdl-size): Fix
glitches
+
+2022-09-27 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Don't bind max-specpdl-size when it doesn't exist or is
obsolete
+
+ This is part of the changes for bug #57911.
+
+ * lisp/progmodes/cc-defs.el (c-let*-maybe-max-specpdl-size): New macro.
+ (c-get-lang-constant): Use the new macro in place of let*.
+
+2022-09-26 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ Avoid uninitialized variable warning
+
+ * src/composite.c (composition_gstring_adjust_zero_width): Simplify
+ last change with respect to an exit condition.
+
+2022-09-26 Po Lu <luangruo@yahoo.com>
+
+ Optimize coordinate translation during event handling
+
+ These changes noticeably improve turning the mouse wheel on top of
+ scroll bars etc over slow network connections.
+
+ * src/xterm.c (x_dnd_note_self_position, x_dnd_note_self_wheel)
+ (x_dnd_note_self_drop): Use x_translate_coordinates.
+ (x_compute_root_window_offset): New function for calculating and
+ caching root window offsets of edit window.
+ (x_translate_coordinates): New function. Use cached values
+ whenever possible.
+ (xi_compute_root_window_offset)
+ (xi_compute_root_window_offset_pinch): New wrappers for XI2
+ events.
+ (x_construct_mouse_click, handle_one_xevent): Use
+ x_translate_coordinates wherever appropriate.
+ * src/xterm.h (struct x_output): New fields for keeping track of
+ the root window offset of the edit window.
+
+2022-09-26 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ Adjust zero-width grapheme clusters so they are displayed (Bug#50951)
+
+ * src/composite.c (composition_gstring_adjust_zero_width): New function.
+ * src/composite.h: Declare it.
+ * src/font.c (Ffont_shape_gstring): Use it before putting gstring to
cache.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix OBOE in image-dired--with-marked
+
+ * lisp/image/image-dired.el (image-dired--with-marked): Fix off-by-one
+ error.
+
+2022-09-26 Sean Whitton <spwhitton@spwhitton.name>
+
+ vc-filter-command-function: Abbreviate default value
+
+ * lisp/vc/vc-dispatcher.el (vc-filter-command-function): Abbreviate
+ `(lambda (&rest args) args)' as just `list'.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Get rid of default wallpaper-setter constructor
+
+ * lisp/image/wallpaper.el (wallpaper-setter): Actually get rid of
+ the default constructor.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Set XFCE wallpaper also in single-workspace-mode
+
+ This fixes setting the wallpaper on XFCE whether or not the
+ "/backdrop/single-workspace-mode" setting is true or false.
+ That XFCE setting controls whether or not the same wallpaper is used
+ on all workspaces or not.
+
+ * lisp/image/wallpaper.el (wallpaper-setter)
+ (wallpaper-command-args, wallpaper-default-set-function): Allow
+ using a function for getting the command line arguments.
+ (wallpaper-xfce-command-args): New function.
+ (wallpaper--default-setters): Use above new function for XFCE.
+
+2022-09-26 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Handle C++20 concepts
+
+ * lisp/progmodes/cc-align.el (c-lineup-topmost-intro-cont): Amend so as
not to
+ indent lines following a requires line.
+
+ * lisp/progmodes/cc-engine.el (c-forward-primary-expression)
+ (c-forward-c++-requires-clause): New functions.
+ (c-forward-declarator): Skip forward over any trailing requires clause.
+ (c-forward-decl-or-cast-1): Skip requires clauses before and after the
type.
+ Amend the second element of the return list to include information on
two
+ consecutive identifiers in <...>.
+ (c-looking-at-or-maybe-in-bracelist): Don't recognize braces in requires
+ expressions as brace lists.
+ (c-guess-basic-syntax): CASE 5D.7: New case to handle the continuation
of a
+ "concept foo = " line.
+
+ * lisp/progmodes/cc-fonts.el (c-basic-matchers-before): Add a new
clause to
+ handle the declaration of a concept.
+ (c-get-fontification-context): Treat the arglist of a requires
construct as a
+ declaration arglist.
+
+ * lisp/progmodes/cc-langs.el (c-equals-nontype-decl-kwds/key)
+ (c-fun-name-substitute-kwds/key, c-pre-concept-<>-kwds/key): New
+ c-lang-consts/vars.
+ (c-constant-key): New c-lang-var.
+ (c-type-decl-suffix-key): Include "requires" in the keywords matched.
+
+ * lisp/progmodes/cc-mode.el (c-fl-decl-start): Fix an off by one error.
Use
+ equal rather than eq to compare two syntax contexts.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't auto-resize image if echo area is non-empty
+
+ * lisp/image-mode.el (image-fit-to-window): Don't auto-resize
+ image if there's a message in the echo area.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Display a message when wallpaper was set
+
+ * lisp/image/wallpaper.el (wallpaper-default-set-function): Display a
+ message when the wallpaper was successfully set.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix setting the wallpaper in XFCE
+
+ * lisp/image/wallpaper.el (wallpaper-command-args)
+ (wallpaper-default-set-function): Support new format specifiers
+ %S for screen, %W for workspace, and %M for monitor.
+ (wallpaper--default-setters): Use above new specifiers for XFCE.
+ (wallpaper--format-arg): New defun broken out from...
+ (wallpaper-default-set-function): ...here.
+ (wallpaper--get-height-or-width): Support noninteractive use.
+ * test/lisp/image/wallpaper-tests.el (wallpaper--format-arg/filename)
+ (wallpaper--format-arg/filename-hex)
+ (wallpaper--format-arg/width, wallpaper--format-arg/screen)
+ (wallpaper--format-arg/monitor, wallpaper--format-arg/workspace):
+ New tests.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Rewrite wallpaper.el to use a cl-defstruct
+
+ * lisp/image/wallpaper.el
+ (wallpaper--default-commands): Delete variable.
+ (wallpaper-setter): New cl-defstruct.
+ (wallpaper--default-methods-create): New macro.
+ (wallpaper--default-setters):
+ (wallpaper--current-setter): New variables.
+ (wallpaper--find-setter): New defun to pick a wallpaper-setter.
+ (wallpaper--find-command, wallpaper--find-command-args):
+ Use 'wallpaper--find-setter'.
+ (wallpaper-command): Doc fix.
+
+ * test/lisp/image/wallpaper-tests.el
+ (wallpaper--find-command/return-string)
+ (wallpaper--find-command-args/return-list)
+ (wallpaper--image-file-regexp/return-string): New tests.
+
+2022-09-26 Protesilaos Stavrou <info@protesilaos.com>
+
+ Add log-edit-summary-separator face (bug#58092)
+
+ * lisp/vc/log-edit.el (log-edit-summary-separator): Add new face.
+ (log-edit-font-lock-keywords): Replace hardcoded face attributes with
+ named face.
+ * etc/NEWS: Announce the new face.
+
+2022-09-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Autoload image-dired-thumbnail-storage :safe property
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-storage):
+ Autoload :safe property.
+
+2022-09-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix (thing-at-point 'url) in eww forms
+
+ * lisp/net/eww.el (eww-tag-input): Don't claim to have an URL here
+ (bug#58091).
+
+ * lisp/net/shr.el (shr-next-link, shr-previous-link): Search for
+ shr-tab-stop instead of shr-url so that we can be more general.
+ (shr-urlify): Mark all links as tabbable-to.
+
+2022-09-26 João Távora <joaotavora@gmail.com>
+
+ Make clojure-lsp handle more major modes at once
+
+ Suggested-by: Witoslaw Koczewski <wi@koczewski.de>
+
+ * eglot.el (eglot-server-programs): Enhance clojure-specific section.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/682
+
+2022-09-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rescale images along with text in eww with `C-x C-+'
+
+ * lisp/net/eww.el (eww--rescale-images): Also rescale images when
+ using `C-x C-+' etc (bug#58047).
+
+2022-09-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix percentage width computation in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--compute-width): Fix
+ percentage computation (bug#58067).
+
+2022-09-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Keep point in eww after hitting `g'
+
+ * lisp/net/eww.el (eww-retrieve): Keep point after hitting `g'
+ (bug#58076).
+
+2022-09-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix whitespace-mode in read-only buffers
+
+ * lisp/whitespace.el (whitespace--update-bob-eob): Don't bug out
+ in read-only buffers (bug#58082).
+
+2022-09-26 João Távora <joaotavora@gmail.com>
+
+ Add support for "single server, multiple modes"
+
+ Previously, if an entry such as:
+
+ ((c++-mode c-mode) . ("clangd)")
+
+ were found in eglot-server-programs, it meant that opening a .cpp file
+ and a .c file in the same project and enabling eglot for both would
+ lead to two clangd instances. Now only one instance is created to
+ handle all buffers of those major modes, as long as they are in the
+ same project.
+
+ This change accomplishes this with minimal changes and NO modification
+ to the already complicated syntax of eglot-server-programs.
+
+ Naturally, this means that a subtle backward-incompatibility was
+ introduced. If, instead of "clangd", someone is using some kind
+ "c++-or-c-but-not-both-at-once" server, this commit now breaks that
+ person's configuration.
+
+ After analysing the entries of this variable, an educated guess was
+ made that this situation is rare. If it's not rare, then some change
+ to the syntax of eglot-server-programs will have to ensue.
+
+ * eglot.el (eglot-server-programs): Update docstring.
+ (eglot-lsp-server): Replace major-mode -> major-modes.
+ (eglot--lookup-mode): Rework.
+ (eglot--guess-contact): Rework.
+ (eglot--connect): Reword first parameter.
+ (eglot-reconnect): Use eglot--major-modes.
+ (eglot--read-server): Rework.
+ (eglot--ensure-list): New helper.
+ (eglot-current-server): Rework.
+ (eglot-handle-request workspace/configuration): Use first of
+ managed major modes.
+
+ * NEWS.md: Mention change.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/681
+
+2022-09-26 João Távora <joaotavora@gmail.com>
+
+ Shoosh byte-compilation warnings about line numbering functions
+
+ Also add warning at the top of file about not using functionality
+ incompatible with 26.3
+
+ * eglot.el:
+ (eglot-current-column, eglot-current-column): Use
line-beginning-position
+ (eglot--xref-make-match): Use line-beginning-position,
+ line-end-position, line-number-at-pos
+
+2022-09-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/buffer.c (overlays_in): Fix confusion Z-vs-ZV
+
+ This fixes test failures in `test-overlays-in-2` and
`test-remove-overlays`.
+
+2022-09-25 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ Make average width computation on ftcr more permissive (Bug#43058)
+
+ * src/ftcrfont.c (ftcrfont_open): Use only non-zero width glyphs for
+ computing average width.
+
+2022-09-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge 'master' into noverlay
+
+2022-09-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ tex-mode.el: Don't override AUCTeX modes
+
+ * lisp/textmodes/tex-mode.el (TeX-mode, plain-TeX-mode, LaTeX-mode):
+ Only define them as aliases in `lisp/loaddefs.el` so we don't
+ override AUCTeX's own definitions when we load `tex-mode.el`.
+
+2022-09-25 Mattias Engdegård <mattiase@acm.org>
+
+ Boolean constant detection additions
+
+ * lisp/emacs-lisp/byte-opt.el (byte-opt--bool-value-form):
+ `set` is boolean identity in its second argument.
+ (byte-compile-trueconstp): `set-marker` is always true.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Refactor system specific code in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper-set-function): New defvar
+ containing system specific function for setting wallpaper.
+ (wallpaper-default-set-function): Factor out function from...
+ (wallpaper-set): ...here. Use above new defvar.
+
+ (wallpaper-default-file-name-regexp): Delete defvar.
+ (wallpaper-image-file-extensions): New defvar.
+ (wallpaper--image-file-regexp): New defun that returns a regexp to
+ match for completion purposes.
+
+ (wallpaper--use-default-set-function-p): New defun.
+ (wallpaper--find-command, wallpaper--find-command-arguments):
+ Do nothing on MS-Windows and Haiku.
+
+2022-09-25 Mattias Engdegård <mattiase@acm.org>
+
+ Don't crash in copy-alist with non-list argument
+
+ * src/fns.c (Fcopy_alist): Check argument type.
+ * test/src/fns-tests.el (fns--copy-alist): New test.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Add reasonable default to wallpaper-set
+
+ * lisp/image/wallpaper.el
+ (wallpaper-default-file-name-regexp): New variable.
+ (wallpaper--get-default-file): New function.
+ (wallpaper-set): Use above new function to set a default.
+ * test/lisp/image/wallpaper-tests.el: New file.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Add :buffer argument to ert-with-temp-file
+
+ * lisp/emacs-lisp/ert-x.el (ert-with-temp-file): Add new keyword
+ argument :buffer SYMBOL to visit the file with `find-file-literally'
+ before running the body, and cleaning up after.
+
+2022-09-25 Po Lu <luangruo@yahoo.com>
+
+ Implement font-use-system-font on Haiku
+
+ * doc/emacs/frames.texi (Fonts): Update documentation to say
+ what font-use-system-font really does and where it can be used.
+ * src/haiku_font_support.cc (language_code_points): Fix coding
+ style.
+ (font_style_to_flags, be_font_style_to_flags): Accept const char
+ *.
+ (be_send_font_settings, be_listen_font_settings)
+ (be_lock_font_defaults, be_unlock_font_defaults)
+ (be_get_font_default, be_get_font_size): New functions used to
+ retrieve default font data.
+
+ * src/haiku_io.c (haiku_len): Handle FONT_CHANGE_EVENT.
+ * src/haiku_support.h (enum haiku_event_type): New event type
+ FONT_CHANGE_EVENT.
+ (enum haiku_what_font): New enum.
+ (struct haiku_font_change_event): New struct.
+
+ * src/haikufont.c (Ffont_get_system_normal_font)
+ (Ffont_get_system_font, haiku_handle_font_change_event): New
+ functions.
+ (syms_of_haikufont): Provide `dynamic-setting' and define new
+ variables and subrs.
+
+ * src/haikuterm.c (haiku_default_font_parameter): Use system font.
+ (haiku_read_socket): Handle FONT_CHANGE_EVENTS.
+ (haiku_term_init): Start listening for font configuration changes.
+ * src/haikuterm.h: Update prototypes.
+
+ * src/xsettings.c (Ffont_get_system_normal_font)
+ (Ffont_get_system_font): Update doc string.
+ (syms_of_xsettings): Replace calls to intern with a static
+ string.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ wallpaper: URI-encode gsettings argument
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands)
+ (wallpaper-command-args, wallpaper-set): URI-encode gsettings
+ argument.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve shortdoc documentation
+
+ * doc/emacs/help.texi (Name Help):
+ * doc/lispref/help.texi (Documentation Groups): Refer to
+ 'shortdoc' convenience alias instead of 'shortdoc-display-group'.
+ * lisp/emacs-lisp/shortdoc.el: Add Commentary.
+ (shortdoc-next, shortdoc-previous)
+ (shortdoc-next-section, shortdoc-previous-section): Doc fixes.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Make image-dired-thumb-name more portable
+
+ * lisp/image/image-dired-util.el
+ (image-dired-thumb-name): Create file names in a portable manner.
+ * test/lisp/image/image-dired-util-tests.el
+ (image-dired-thumb-name/standard)
+ (image-dired-thumb-name/image-dired)
+ (image-dired-thumb-name/per-directory): Expand tests.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix shortdoc movement commands
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc--goto-section): Don't skip
+ over current function or section when searching.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new command 'shortdoc-copy-function-as-kill'
+
+ * lisp/emacs-lisp/shortdoc.el
+ (shortdoc-copy-function-as-kill): New command.
+ (shortdoc-mode-map): Bind above new command to "w".
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ * etc/NEWS.22: Belatedly announce 'dired-copy-filename-as-kill'.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Bind "N"/"P" to next/prev section in shortdoc
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc-mode-map): Bind "N" and
+ "P" to 'shortdoc-next-section' and 'shortdoc-previous-section'.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/bookmark.el (bookmark-rename): Improve prompt.
+
+2022-09-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new command image-dired-copy-filename-as-kill
+
+ * lisp/image/image-dired.el
+ (image-dired-copy-filename-as-kill): New command.
+ (image-dired-thumbnail-mode-map): Bind above new command to "w".
+
+2022-09-25 Philip Kaludercic <philipk@posteo.net>
+
+ * lisp/net/rcirc.el (rcirc-print): Remove 'fill-region' call
+
+ See Bug#57376.
+
+2022-09-25 Philip Kaludercic <philipk@posteo.net>
+
+ Add formatting commands to rcirc
+
+ * etc/NEWS: Mention new command
+ * lisp/net/rcirc.el (rcirc-format): Add new utility function.
+ (rcirc-unformat): Add new command.
+ (rcirc-format-bold): Add new command.
+ (rcirc-format-italic): Add new command.
+ (rcirc-format-underline): Add new command.
+ (rcirc-format-strike-trough): Add new command.
+ (rcirc-format-fixed-width): Add new command.
+ (rcirc-mode-map): Bind formatting commands.
+ (rcirc-multiline-minor-mode-map): Bind formatting commands.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-induce-sparse-tree
+
+ Because not-at-all-werid way we implemented ts_build_sparse_tree, it’s
+ return value needs a bit post-processing (i.e., reverse its cdr).
+
+ * src/treesit.c (Ftreesit_induce_sparse_tree): Reverse the top-level
+ children list.
+ (ts_build_sparse_tree): Add comment.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Improve treesit-search-forward-goto
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * lisp/treesit.el (treesit-search-forward-goto): Instead of taking a
+ node, use the node at point, and make sure we make progress.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-search-forward
+
+ * src/treesit.c (ts_search_forward): Fix return value.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Update and enable treesit-imenu function in python.el
+
+ * lisp/progmodes/python.el (python--treesit-settings): Add docstring.
+ (python--imenu-treesit-create-index-1): Rewrite with
+ treesit-induce-sparse-tree.
+ (python-imenu-treesit-create-index): Move main body to
+ python--imenu-treesit-create-index-1.
+ (python-imenu-treesit-create-flat-index): Fix typo.
+ (python-mode): Enable treesit-imenu. Also fix indentation for
+ which-func code.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Add the treesit-search functions that supplant the removed ones
+
+ The signatures also changed.
+
+ treesit-traverse-depth-first -> treesit-search-subtree
+ treesit-traverse-breadth-first ->
+ treesit-traverse-forward -> treesit-search-forward
+ treesit-search-forward -> treesit-search-forward-goto
+ treesit-search-beginning/end -> treesit-search-forward-goto
+ -> treesit-induce-sparse-tree
+
+ * doc/lispref/parsing.texi (Retrieving Node): Add relevant manual
+ sections.
+ * lisp/treesit.el (treesit-search-forward-goto): New function.
+ * src/treesit.c (ts_traverse_sibling_helper)
+ (ts_traverse_match_predicate)
+ (ts_search_dfs)
+ (ts_search_forward)
+ (treesit-search-subtree)
+ (treesit-search-forward)
+ (ts_build_sparse_tree)
+ (Ftreesit_induce_sparse_tree): Add functions.
+ * test/src/treesit-tests.el (treesit-node-supplemental): Add comments.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Remove treesit-traverse functions
+
+ Remove before adding the replacements.
+
+ * doc/lispref/parsing.texi (Retrieving Node): Remove relevant sections.
+ * lisp/treesit.el (treesit-traverse-depth-first)
+ (treesit--traverse-breadth-first-1)
+ (treesit-traverse-breadth-first)
+ (treesit-next-sibling-or-up)
+ (treesit-traverse-forward)
+ (treesit-search-forward)
+ (treesit-search-beginning):
+ (treesit-search-end): Remove functions.
+ (treesit-defun-query): Remove variable.
+ (treesit-beginning-of-defun)
+ (treesit-end-of-defun): Remove functions.
+ * test/src/treesit-tests.el: Remove comments.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Accept nil as NODE in treesit-node-text
+
+ * lisp/treesit.el (treesit-node-text): Just wrap function body
+ in (when ...).
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Change make_string to build_string in treesit.c
+
+ * src/treesit.c (Ftreesit_node_string)
+ (Ftreesit_node_field_name_for_child): Change make_string to
+ build_string.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Improve printing treesit nodes
+
+ * src/print.c (print_vectorlike): Instead of position, print the type
+ of the node.
+
+2022-09-25 Yuan Fu <casouri@gmail.com>
+
+ Rename treesit-expand-query/pattern
+
+ * src/treesit.c (treesit-expand-pattern): Rename to
+ treesit-patter-expand.
+ (treesit-expand-query): Rename to treesit-query-expand.
+ (make_ts_query): Use new name.
+ * test/src/treesit-tests.el (treesit-query-api): Fix name.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak window handling in vc-pull-and-push
+
+ * lisp/vc/vc-dispatcher.el (vc--inhibit-async-window): Rename
+ variable.
+ (vc-do-async-command): Allow inhibiting all window changes.
+
+ * lisp/vc/vc-git.el (vc-git-pull-and-push): Don't pop up the
+ window asynchronously on the "pull" because that gets in the way
+ of doing other things.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Add faces for header line
+
+ * lisp/image/image-dired.el (image-dired-thumb-header-file-name)
+ (image-dired-thumb-header-directory-name)
+ (-image-dired-thumb-header-file-size)
+ (image-dired-thumb-header-image-count): New faces.
+ (image-dired-format-properties-string): Use above new faces.
+ (image-dired-thumb-mark, image-dired-thumb-flagged): Move
+ definition further down.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Add new %-format specifiers for header line
+
+ * lisp/image/image-dired.el
+ (image-dired-format-properties-string): Add new specifiers "%n", "%d",
+ and "%s".
+ (image-dired-display-properties-format): Change default format to use
+ above new specifiers.
+ (image-dired--number-of-thumbnails): New variable.
+ (image-dired-insert-thumbnail, image-dired-display-thumbs): Keep
+ track of file number when appending it into the thumbnail buffer.
+ (image-dired--update-header-line): Support above new format
+ specifiers. Rename from 'image-dired-update-header-line' and
+ update callers.
+ * lisp/image/image-dired-dired.el
+ (image-dired-dired-display-properties): Support above new format
+ specifiers.
+
+2022-09-24 Sean Whitton <spwhitton@spwhitton.name>
+
+ Generalize & simplify implementation of user edits to VC commands
+
+ * lisp/vc/vc-dispatcher.el (vc-pre-command-functions)
+ (vc-want-edit-command-p): Delete.
+ (vc-filter-command-function): New variable.
+ (vc-user-edit-command): Factor out of vc-do-command.
+ (vc-do-command, vc-do-async-command)
+ * lisp/vc/vc-git.el (vc-git--pushpull)
+ * lisp/vc/vc.el (vc-print-branch-log): Use vc-filter-command-function
+ in place of vc-pre-command-functions and vc-want-edit-command-p.
+
+2022-09-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/emacs-lisp/icons.el (icons--create): Use default rotation 0
(bug#57813)
+
+2022-09-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt tramp-docker integration
+
+ * doc/misc/tramp.texi (Inline methods): Add docker.
+ (Customizing Methods): Remove docker-tramp. Adapt references to this.
+
+ * etc/NEWS: Mention new Tramp method "docker". Fix typos.
+
+ * lisp/net/tramp-compat.el (docker-tramp): Warn, if that package is
used.
+
+ * lisp/net/tramp-docker.el: Format header lines.
+ (tramp-docker): Remove custom group.
+ (tramp-docker-program, tramp-docker-method): Add
+ ;;;###tramp-autoload cookie.
+ (tramp-docker-program): Change group to `tramp'. Add version.
+ (tramp-docker--completion-function): Fix docstring.
+ (tramp-docker--add-method, tramp-docker--remove-method)
+ (tramp-docker-unload-function, tramp-docker-setup): Remove functions.
+ (tramp-methods, tramp-set-completion-function): Initialize via
+ `tramp--with-startup'.
+ (tramp-unload-hook): Unload `tramp-docker'.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Move menu definitions to keymaps
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode-menu):
+ * lisp/image/image-dired-dired.el (image-dired-minor-mode-menu):
+ Delete variables and move menus to...
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode-map):
+ * lisp/image/image-dired-dired.el(image-dired-minor-mode-map):
+ ...here.
+
+2022-09-24 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Ensure no memory leaks of glyph_matrix
+
+ each glyph_matrix only when it's NULL. (Bug#58028)
+
+2022-09-24 kobarity <kobarity@gmail.com>
+
+ hideshow.el: Improve hs-toggle-hiding behavior
+
+ * lisp/progmodes/hideshow.el
+ (hs-find-block-beginning-match): New function to be used in
+ `hs-already-hidden-p'.
+ (hs-already-hidden-p): Add check if beginning of line is inside a
+ block.
+ (hs-toggle-hiding): Don't change to selected-window's buffer when
+ event arg is absent.
+
+ * test/lisp/progmodes/hideshow-tests.el
+ (hideshow-tests-with-temp-buffer-selected): New helper macro.
+ (hideshow-tests-make-event-at): New helper function.
+ (hideshow-already-hidden-p-1): New test.
+ (hideshow-toggle-hiding-1): New test.
+ (hideshow-mouse-toggle-hiding-1): New test (bug#52092).
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove "manual" package--builtin-versions updates
+
+ * lisp/emacs-lisp/nadvice.el:
+ * lisp/emacs-lisp/cl-generic.el: Don't push to
+ package--builtin-versions "manually", because loaddefs-gen does
+ this correctly now.
+
+2022-09-24 Brian Cully <bjc@kublai.com>
+
+ * lisp/net/tramp-docker.el: New file.
+
+2022-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (event-start/end): Fix part of bug#52092
+
+ When synthesizing a posn for keyboard events, make sure the `posn-point`
+ i the same as `point`.
+
+ * lisp/subr.el (event--posn-at-point): New function.
+ (event-start, event-end): Use it.
+
+2022-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge branch 'emacs-28'
+
+2022-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/hideshow.el (hs-toggle-hiding): Fix `interactive` form
+
+ This fixes the first part of bug#52092, which is a regression
+ introduced by commit d0e9113de97.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dired-do-rename refuse to rename . and ..
+
+ * lisp/dired-aux.el (dired-do-rename): Refuse to rename . and ..
+ (bug#52004). This used to error out after renaming.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new command vc-pull-and-push
+
+ * lisp/vc/vc-svn.el (vc-exec-after):
+ * lisp/vc/vc-hg.el (vc-exec-after):
+ * lisp/vc/vc-git.el (vc-exec-after):
+ * lisp/vc/vc-cvs.el (vc-exec-after):
+ * lisp/vc/vc-bzr.el (vc-exec-after):
+ * lisp/org/org-macro.el (vc-exec-after):
+ * lisp/obsolete/vc-mtn.el (vc-exec-after):
+ * lisp/obsolete/vc-arch.el (vc-exec-after): Update declaration.
+ * lisp/vc/vc-dispatcher.el (vc--process-sentinel): Allow running
+ code only on success.
+ (vc-exec-after): Ditto.
+ (vc--inhibit-change-window-start): New variable.
+ (vc-do-async-command): Use it to allow chaining commands without
+ moving window point. Return the process instead of the buffer,
+ since the process may have exited already, and then we can't get
+ at the process.
+
+ * lisp/vc/vc-git.el (vc-git--pushpull): Return the process object.
+ (vc-git-pull-and-push): New function.
+
+ * lisp/vc/vc.el (vc-pull-and-push): New command (bug#51964).
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak binding of `+' in vc-dir
+
+ * lisp/vc/vc-dir.el (vc-dir-mode-map): Point to the actual
+ function instead of the alias. This makes *Help* more helpful.
+
+2022-09-24 Alan Mackenzie <acm@muc.de>
+
+ CC Mode. Make AWK Mode work with electric-pair-mode
+
+ Also fix some minor anomalies with other CC Mode modes in
electric-pair-mode.
+ This fixes bug #53446.
+
+ * lisp/progmodes/cc-mode.el (c-open-string-opener): New buffer local
+ variable.
+ (c-after-change-mark-abnormal-strings): Set c-open-string-opener when an
+ unbalanced string is detected.
+ (c-before-change): Initilize c-open-string-opener to nil, each buffer
change.
+ (c-electric-pair-inhibit-predicate): Use the value of
c-open-string-opener to
+ flag an unbalaced string rather than trying to calculate it again.
+
+ * lisp/progmodes/cc-awk.el (c-awk-syntax-tablify-string): Set
+ c-open-string-opener when an unbalanced string is detected.
+
+2022-09-24 Visuwesh <visuweshm@gmail.com>
+
+ docview: Use svg images when using mupdf for conversion
+
+ * lisp/doc-view.el (doc-view-mupdf-use-svg, doc-view-svg-background)
+ (doc-view-svg-foreground): New user options.
+ (doc-view-insert-image): Add :background and :foreground image
+ attributes when display svg images.
+ (doc-view-set-up-single-converter): Produce svg images when using
+ mupdf (bug#58041).
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Prefer command remapping
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode-map):
+ Prefer command remapping to binding keys directly.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Fix C-a/C-e in thumbnail buffer
+
+ * lisp/image/image-dired.el
+ (image-dired--movement-ensure-point-pos): New function, and...
+ (image-dired--movement-command): ...new macros broken out from...
+ (image-dired-next-line, image-dired-previous-line)
+ (image-dired-beginning-of-buffer, image-dired-end-of-buffer):
+ ...here.
+ (image-dired-move-beginning-of-line)
+ (image-dired-move-end-of-line): New commands.
+ (image-dired-thumbnail-mode-map): Remap 'move-beginning-of-line'
+ and 'move-beginning-of-line' to above new commands.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Make thumbs.el obsolete
+
+ * lisp/obsolete/thumbs.el: Add Obsolete-since.
+ * etc/NEWS: Announce obsoletion of thumbs.el. (Bug#57779)
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Move thumbs.el to lisp/obsolete
+
+ * lisp/thumbs.el:
+ * test/lisp/thumbs-tests.el: Move from here...
+ * lisp/obsolete/thumbs.el:
+ * test/lisp/obsolete/thumbs-tests.el: ...to here. (Bug#57779)
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Regenerate old thumbnails when needed
+
+ * lisp/image/image-dired.el
+ (image-dired--get-create-thumbnail-file): Rename from
+ 'image-dired-get-thumbnail-image'. Update callers and make old
+ name into an obsolete alias.
+ (image-dired-display-thumbs): Use above function to simplify and
+ regenerate the thumbnail if it's outdated.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Improve performance of marking commands
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-storage): Mark
+ (image-dired--thumb-update-mark-at-point): New function.
+ (image-dired--thumb-update-marks):
+ (image-dired--do-mark-command): Use it.
+ (image-dired--thumb-update-marks): Rename from
+ 'image-dired-thumb-update-marks'. Update all callers and make the
+ old name into an obsolete alias.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Mark 'per-directory' as :safe
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-storage): Mark
+ 'per-directory' value as :safe.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new macro image-dired--with-dired-buffer
+
+ * lisp/image/image-dired-util.el
+ (image-dired--with-dired-buffer): New macro.
+ * lisp/image/image-dired.el (image-dired-track-original-file)
+ (image-dired--on-file-in-dired-buffer)
+ (image-dired--do-mark-command)
+ (image-dired--on-file-in-dired-buffer)
+ (image-dired-jump-original-dired-buffer)
+ (image-dired-thumb-file-marked-p, image-dired-delete-marked):
+ Use above new macro to simplify and improve error handling.
+ (image-dired-show-all-from-dir): Simplify removing Dired marks.
+ (image-dired-thumb-update-marks): Avoid triggering above new error
+ handling.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how :override advice is formatted in *Help*
+
+ * lisp/emacs-lisp/nadvice.el (advice--make-single-doc): Format
+ :overrides specially (bug#57974).
+ (advice--make-docstring): Put overrides at the front.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename file-name-directory
+
+ * lisp/emacs-lisp/shortdoc.el (file-name):
+ * doc/lispref/files.texi (Directory Names): Adjust.
+ * lisp/files.el (file-name-parent-directory): Rename from
+ `file-name-directory' (bug#58039).
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that cus-load doesn't add things twice
+
+ * lisp/cus-dep.el (custom-make-dependencies): Use it.
+
+ * lisp/custom.el (custom--add-custom-loads): New function.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ `append' doc string clarification
+
+ * src/fns.c (Fappend): Clarify whether arguments are copied.
+
+2022-09-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify message-newline-and-reformat doc string
+
+ * lisp/gnus/message.el (message-newline-and-reformat): Clarify the
+ DWIM-ness in the doc string (bug#57986).
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve image-dired-thumbnail-display-external
+
+ * lisp/image/image-dired.el: (image-dired-external-viewer): Add more
+ image viewers and slightly re-arrange.
+ (image-dired-thumbnail-display-external): Correctly handle
+ external viewers with spaces or flags.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/emacs-lisp/shortdoc.el (file-name): Improve examples.
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Use command substitution for tags bindings
+
+ * lisp/image/image-dired-tags.el
+ (image-dired-dired-edit-comment-and-tags): Use substitute-command-keys
+
+2022-09-24 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Various code clean ups
+
+ * lisp/image/image-dired.el
+ (image-dired--display-thumb-properties-fun): Delete function.
+ (image-dired-forward-image): Immediately update header line. Improve
+ docstring.
+ (image-dired-backward-image, image-dired-next-line)
+ (image-dired-previous-line, image-dired-beginning-of-buffer)
+ (image-dired-end-of-buffer, image-dired-display-image): Improve
+ docstring.
+ (image-dired-comment-thumbnail): Fix interactive declaration.
+
+2022-09-24 João Távora <joaotavora@gmail.com>
+
+ Fix blunder in eglot--guess-contact
+
+ * eglot.el (eglot--guess-contact): Add back
+ 'split-string-and-unquote' lost in
https://github.com/joaotavora/eglot/issues/940 fix.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/940
+
+2022-09-24 Po Lu <luangruo@yahoo.com>
+
+ Reduce complexity of scroll bar window protection code
+
+ It turns out my previous theories of why ClientMessages were
+ generated were wrong, and they are just generated so we can set
+ finish to X_EVENT_GOTO_OUT to have them delivered immediately.
+
+ This allows for the code to be simplified greatly, by not
+ unpacking pointers to the raw window into the client messages.
+
+ * src/xterm.c (x_unprotect_window_for_callback): Return the
+ window removed from the queue, or nil if none.
+ (x_scroll_bar_to_input_event)
+ (x_horizontal_scroll_bar_to_input_event): Use window provided by
+ x_unprotect_window_for_callback.
+ (handle_one_xevent): Pass dpyinfo to functions that need it.
+ (x_free_frame_resources): Remove "first scroll bar request"
+ code.
+
+ * src/xterm.h (struct x_display_info): Likewise.
+
+2022-09-24 Augusto Stoffel <arstoffel@gmail.com>
+
+ New Flymake backend using the shellcheck program
+
+ See bug#57884.
+
+ * lisp/progmodes/sh-script.el: Require let-alist and subr-x when
+ compiling.
+ (sh--json-read): Helper function to deal with possible absence of
+ json-parse-buffer.
+ (sh-shellcheck-program, sh--shellcheck-process,
+ sh-shellcheck-flymake): Variables and function defining a Flymake
+ backend.
+ (sh-mode): Add it to 'flymake-diagnostic-functions'.
+
+2022-09-23 Sean Whitton <spwhitton@spwhitton.name>
+
+ vc-git--pushpull: Restore handling of vc-git-program
+
+ * lisp/vc/vc-git.el (vc-git--pushpull): Restore handling of
+ vc-git-program before recent change: respect a buffer-local value of
+ vc-git-program, and don't ignore user edits to the git program name
+ when PROMPT.
+
+2022-09-23 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068
+
+ Accept (defclass <class> <superclasses> (.. <slotname> ..)) without
+ having to wrap the slot name within parentheses.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Rewrite and extend slideshow feature
+
+ * lisp/image/image-dired.el
+ (image-dired--slideshow-start-timer)
+ (image-dired--slideshow-stop-timer)
+ (image-dired--slideshow-show-message): New functions.
+ (image-dired--slideshow-current-delay): New variable.
+ (image-dired--slideshow-initial): Delete variable.
+ (image-dired-slideshow-start): Simplify and ensure we display the
+ image at start.
+ * lisp/image/image-dired.el (image-dired--slideshow-stop): Add support
+ for pausing, and going backwards and forwards during slideshow.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Mark two slideshow defuns as internal
+
+ * lisp/image/image-dired.el (image-dired--slideshow-step)
+ (image-dired--slideshow-stop): Rename from
+ 'image-dired--slideshow-step' and 'image-dired--slideshow-stop'.
+ Update callers and make old names into obsolete aliases.
+
+2022-09-23 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cconv.el: Fix interactive closure bug#51695
+
+ Make cconv.el detect when a closure's interactive form needs to
+ capture variables from the context and tweak the code accordingly
+ if so.
+
+ * lisp/emacs-lisp/cconv.el (cconv--interactive-form-funs): New var.
+ (cconv-convert): Handle the case where the interactive form captures
+ vars from the surrounding context. Remove left over handling of
+ `declare` which was already removed from the cconv-analyze` phase.
+ (cconv-analyze-form): Adjust analysis of interactive forms accordingly.
+
+ * lisp/emacs-lisp/oclosure.el (cconv--interactive-helper): New type and
+ function.
+ * lisp/simple.el (function-documentation, oclosure-interactive-form):
+ Add methods for it.
+
+ * test/lisp/emacs-lisp/cconv-tests.el
+ (cconv-tests-interactive-closure-bug51695): New test.
+
+2022-09-23 Visuwesh <visuweshm@gmail.com>
+
+ Make Gnus respect mode-line-buffer-identification-keymap
+
+ * lisp/gnus/gnus-group.el (gnus-group-set-mode-line): Use
+ 'propertized-buffer-identification' to buttonise and fontify the
+ buffer name.
+ * lisp/gnus/gnus-sum.el (gnus-set-mode-line):
+ * lisp/gnus/gnus.el (gnus-mode-line-buffer-identification): Adjust
+ calls to above.
+ * lisp/gnus/gnus-srvr.el (gnus-browse-foreign-server): Add missing
+ 'gnus-modeline-buffer-identification' call (bug#57977).
+
+2022-09-23 Visuwesh <visuweshm@gmail.com>
+
+ Make bounding box of 'image-crop' more noticeable
+
+ * lisp/image/image-crop.el (image-crop--crop-image-1): Darken the
+ selected region to make the bounding-box more noticable in images
+ which are mostly white (bug#58004).
+
+2022-09-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't overwrite cus-load dependencies
+
+ * lisp/cus-dep.el (custom-make-dependencies): Don't overwrite
+ elements added by packages (bug#58015).
+
+2022-09-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make loaddefs-gen register parent :groups from defcustom
+
+ * lisp/emacs-lisp/loaddefs-gen.el
+ (loaddefs-generate--make-autoload): Also register parent :groups from
+ `defgroup' entries (bug#58015).
+
+2022-09-23 kobarity <kobarity@gmail.com>
+
+ Fix syntax check in python-info-looking-at-beginning-of-defun
+
+ * lisp/progmodes/python.el
+ (python-info-looking-at-beginning-of-defun): Check syntax after moving
+ to the beginning of line.
+ * test/lisp/progmodes/python-tests.el (python-nav-beginning-of-defun-6)
+ (python-end-of-defun-1, python-info-looking-at-beginning-of-defun-3):
+ New tests (bug#58023).
+
+2022-09-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Inhibit image-crop when there's overlays
+
+ * lisp/image/image-crop.el (image-crop): Don't mess with overlays,
+ because they're a pain to reconstruct (bug#58027).
+
+2022-09-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Delete the correct region after cropping an image
+
+ * lisp/image/image-crop.el (image-crop): Delete the correct region
+ after editing (bug#58027).
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Disable 'image-map' in thumbnail buffer
+
+ These bindings are more likely to mess up the buffer than to be
+ helpful here; image manipulation is better done in the display buffer.
+
+ * lisp/image/image-dired.el (image-dired-insert-thumbnail): Disable
+ `image-map' in thumbnail buffer.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Update manual for recent image-dired changes
+
+ * doc/emacs/dired.texi (Image-Dired): Update to reflect recent
+ changes.
+
+2022-09-23 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/files.el (risky-local-variable): Remove max-specpdl-size.
+
+2022-09-23 Mattias Engdegård <mattiase@acm.org>
+
+ Remove max-specpdl-size overrun test
+
+ * test/src/eval-tests.el (eval-tests--exceed-specbind-limit)
+ (eval-exceed-specbind-with-signal-hook): Remove test that is
+ no longer useful, since there is no longer any specpdl limit
+ to overrun. (The test still passed but vacuously so, by
+ hitting the max-lisp-eval-depth limit instead.)
+ This silences an obsoletion warning.
+
+2022-09-23 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/bookmark.el (bookmark-make-record): Fix thinko.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve prompt of 'image-dired' command
+
+ * lisp/image/image-dired.el (image-dired-show-all-from-dir):
+ Improve prompt.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Rename 'image-dired-db-file' to 'image-dired-tags-db-file'
+
+ * lisp/image/image-dired.el (image-dired-tags-db-file): Rename
+ from 'image-dired-db-file'. Update all uses and make old name
+ into an obsolete variable alias.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 60ac12d21f Fix shaping with bitmap-only fonts on HarfBuzz 5.2.0 (Bug#...
+ 9f65e52362 ; Minor copyedits of elisp.texi
+
+2022-09-23 Po Lu <luangruo@yahoo.com>
+
+ Fix more toolkit scroll bar window protection issues
+
+ * src/xterm.c (handle_one_xevent): Ignore outdated scroll bar
+ events.
+ (x_free_frame_resources): Clear protected windows and invalidate
+ previous scroll bar events.
+ * src/xterm.h (struct x_display_info): New field
+ `first_valid_scroll_bar_req'.
+
+2022-09-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Autoload wallpaper-set
+
+ * lisp/image/wallpaper.el (wallpaper-set): Autoload.
+ * lisp/image-mode.el (wallpaper):
+ * lisp/image/image-dired.el (wallpaper):
+ * lisp/thumbs.el (wallpaper): Don't require.
+
+2022-09-23 Eli Zaretskii <eliz@gnu.org>
+
+ Support Noto Emoji font as fallback
+
+ The black-and-white emoji font is back under active development,
+ see https://github.com/googlefonts/noto-emoji. So this adds
+ that font as fallback for systems that don't have the capability
+ of using color fonts.
+ * lisp/international/fontset.el (setup-default-fontset): Support
+ black-and-white Noto Emoji font as fallback for Emoji display.
+
+2022-09-23 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ Fix shaping with bitmap-only fonts on HarfBuzz 5.2.0 (Bug#57976)
+
+ * src/ftcrfont.c (ftcrhbfont_begin_hb_font): Undo last change for
+ HarfBuzz 5.2.0.
+
+2022-09-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Support several new DEs in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands)
+ (wallpaper--check-command, wallpaper-command): Add support for Unity,
+ Pantheon, Budgie, LXQt, and LXDE. Also add support for Lubuntu,
+ Xubuntu, and Pop!_OS.
+
+2022-09-22 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Obsolete two unused functions
+
+ * lisp/image/image-dired-util.el (image-dired-display-window)
+ (image-dired-associated-dired-buffer-window): Make obsolete; they are
+ currently unused.
+
+2022-09-22 Yuan Fu <casouri@gmail.com>
+
+ Utilize tree-sitter in python.el
+
+ * lisp/progmodes/python.el (python-use-tree-sitter): New option.
+ (python--treesit-keywords, python--treesit-builtins)
+ (python--treesit-constants, python--treesit-operators)
+ (python--treesit-special-attributes, python--treesit-exceptions): New
+ variables.
+ (python--treesit-fontify-string, python--treesit-settings)
+ (python--imenu-treesit-create-index)
+ (python--imenu-treesit-create-flat-index)
+ (python-info-treesit-current-defun): New functions.
+ (python-mode): Enable tree-sitter font-lock and which-func.
+
+2022-09-22 Mattias Engdegård <mattiase@acm.org>
+
+ Don't rewrite `set` to `setq` of lexical variables
+
+ Only perform the rewrite
+
+ (set 'VAR X) -> (setq VAR X)
+
+ for dynamic variables, as `set` isn't supposed to affect
+ lexical vars (and never does so when interpreted).
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-set):
+ * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--xx): New.
+ (bytecomp-tests--test-cases): Add test cases.
+ *
test/lisp/emacs-lisp/bytecomp-resources/warn-variable-set-nonvariable.el:
+ Remove obsolete test.
+
+2022-09-22 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Improve minor mode docstring
+
+ * lisp/image/image-dired-dired.el (image-dired-minor-mode):
+ Improve docstring.
+
+2022-09-22 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Remove redundant keybindings
+
+ * lisp/image/image-dired-dired.el (image-dired-minor-mode-map):
+ Don't redundantly bind keys that are already bound in dired.
+
+2022-09-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix failing image-dired test
+
+ * test/lisp/image/image-dired-util-tests.el (ert-x, xdg): Require.
+ (image-dired-thumb-name/): Delete test.
+ (image-dired-thumb-name/standard)
+ (image-dired-thumb-name/image-dired)
+ (image-dired-thumb-name/per-directory): New tests.
+
+2022-09-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Add X-Hashcash to the end of mail headers
+
+ * lisp/mail/hashcash.el (mail-add-payment): Move headers to the end of
+ the headers.
+
+2022-09-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve don't save bookmark context from encrypted files
+
+ * etc/NEWS: Mention 'bookmark-inhibit-context-functions'.
+ Fix typos.
+
+ * lisp/bookmark.el (bookmark-inhibit-context-functions): New defcustom.
+ (bookmark-make-record): Use it.
+
+ * lisp/auth-source-pass.el (auth-source-pass-file-name-p):
+ * lisp/auth-source.el (auth-source-file-name-p): New defuns. Add
+ them to `bookmark-inhibit-context-functions'.
+
+ * lisp/epa-hook.el (epa-file-name-p):
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-p): Add them to
+ `bookmark-inhibit-context-functions'.
+
+2022-09-22 Po Lu <luangruo@yahoo.com>
+
+ Work around rare crash when turning scroll wheel
+
+ * src/xterm.c (handle_one_xevent): Don't allow devices to be
+ added twice handling hierarcy events.
+
+2022-09-21 Sean Whitton <spwhitton@spwhitton.name>
+
+ Add support for user edits to VC command arguments
+
+ * lisp/vc/vc-dispatcher.el (vc-pre-command-functions): New hook.
+ (vc-want-edit-command-p): New variable.
+ (vc-do-command): If vc-want-edit-command-p is non-nil, prompt the user
+ to edit the VC command & arguments before execution. Run the new hook.
+ (vc-do-async-command): Use the new hook to insert into BUFFER the
+ command that's next to be run.
+ * lisp/vc/vc-git.el (vc-git--pushpull): Drop prompting code. Bind
+ vc-want-edit-command-p so that vc-do-command handles the prompting.
+ Use the new hook to update compile-command with the edited command.
+ * lisp/vc/vc.el (vc-print-branch-log): A non-nil prefix argument now
+ means vc-want-edit-command-p is bound to a non-nil value (bug#57807).
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer command remapping in image-dired-minor-mode
+
+ * lisp/image/image-dired-dired.el (image-dired-minor-mode-map):
+ Prefer command remapping.
+ (image-dired-minor-mode): Improve docstring.
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Obsolete image-mode--images-in-directory
+
+ * lisp/image-mode.el (image-mode--images-in-directory): Make
+ unused function obsolete.
+
+2022-09-21 Robert Pluim <rpluim@gmail.com>
+
+ Update version tag of rmail-retry-ignored-headers
+
+ * lisp/mail/rmail.el (rmail-retry-ignored-headers): Set :version to
"29.1".
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ * test/lisp/image/image-dired-util-tests.el: New file.
+
+2022-09-21 Richard Stallman <rms@gnu.org>
+
+ Add more headers to default value of rmail-retry-ignored-headers.
+
+ * rmail.el (rmail-retry-ignored-headers): Add more headers to default.
+ Don't bother with `purecopy'. Split value readably.
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new function xdg-session-type to xdg.el
+
+ * lisp/xdg.el (xdg-session-type): New function.
+
+2022-09-21 Thuna <thuna.cing@gmail.com> (tiny change)
+
+ Correct the usage of `image-file-name-regexps'
+
+ * lisp/image-file.el (image-file-name-regexp): Treat
+ `image-file-name-regexps' as a list of regexps (as documented) in
+ addition to a regexp string (bug#57971).
+
+2022-09-21 Po Lu <luangruo@yahoo.com>
+
+ Fix handling of nil device names
+
+ * lisp/frame.el (device-class):
+ * lisp/term/pgtk-win.el (pgtk-device-class):
+ * lisp/term/x-win.el (x-device-class): Handle `nil'
+ correctly. (bug#57969)
+
+2022-09-21 Po Lu <luangruo@yahoo.com>
+
+ Small adjustments to precision pixel scrolling
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-interpolation-factor): Adjust for
+ increased accuracy.
+ (pixel-scroll-precision-interpolate): Slightly decrease accuracy
+ in exchange for consing less floats.
+ (pixel-scroll-interpolate-down, pixel-scroll-interpolate-up):
+ Fix usage of function.
+
+2022-09-21 Po Lu <luangruo@yahoo.com>
+
+ Improve scroll interpolation in pixel-s-precision-mode
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-interpolate): New
+ arg FACTOR. Use it to determine the interpolation factor if
+ non-nil. Also, clear scroll remainder if direction changes, and
+ determine deltas based on the absolute amount of time passed.
+ (bug#57967)
+ (pixel-scroll-interpolate-down, pixel-scroll-interpolate-up):
+ Pass factor of 0 to scroll exactly 1 page.
+
+2022-09-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make emacs-build-description into a command
+
+ * lisp/mail/emacsbug.el (report-emacs-bug, submit-emacs-patch):
+ Adjust callers.
+ (emacs-build-description): Rename from
+ `emacs-bug--system-description' and make into a command.
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 478b786d5a ; * doc/lispref/windows.texi (Window Hooks): Fix a typo (b...
+ 5085351645 * lisp/text-modes/tex-mode.el (tex-mode): Fix AUCTeX regre...
+ ee6f8598ca Add vc-annotate-switches to manual
+ 616dcf27e5 ; Fix typos in Lisp symbols
+ 5405852541 Remove mention of non-existent `annotate-switches'
+ 191505b8a3 Mention that src/macuvs.h sometimes needs committing
+ 10373c4b68 ; More comment fixes in font.h (bug#57935)
+ c2595b8dcc ; * src/font.h (struct font_driver): Comment fix.
+ 97b928ce09 MacOS ld warning from native compilation (bug#57849)
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ * admin/gitmerge.el (gitmerge): Use substitute-command-keys.
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Bind 'n'/'p' in gitmerge-mode to line scroll
+
+ * admin/gitmerge.el (gitmerge-mode-map): Bind 'n' and 'p' to
+ 'next-line' and 'previous-line'.
+
+2022-09-21 Robert Pluim <rpluim@gmail.com>
+
+ Fix substitute-command-keys for global binding lookup
+
+ The previous change forgot to account for the (rare) case of doing a
+ lookup for a global binding when a specific keymap is in force.
+
+ * lisp/help.el (substitute-command-keys): Redo lookup in global map if
+ lookup in specific map fails.
+ *
+ test/lisp/help-tests.el
(help-tests-substitute-command-keys/keymap-change):
+ Add testcase for specific map overriding advertised-binding.
+
+2022-09-21 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: More improvements for buttons/margins (bug#57813)
+
+ (outline-minor-mode-use-margins): Don't use for modes derived from
help-mode
+ that are handled by 'outline-minor-mode-use-buttons'.
+ (outline-open, outline-close, outline-close-rtl): Use image height
+ proportional to font height of 0.8em.
+ (outline-minor-mode): Remove overlays 'outline-button' and
'outline-margin',
+ and move such overlay removal after the call of 'outline-show-all'
+ that might trigger overlay addition.
+
+2022-09-21 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Support the customize-mode command
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode)
+ (image-dired-display-image-mode): Add custom group 'image-dired'.
+
+2022-09-21 Po Lu <luangruo@yahoo.com>
+
+ Fix minor thinko in focus tracking logic
+
+ * src/xterm.c (xi_handle_focus_change): Prefer explicit focus to
+ implicit focus.
+
+2022-09-20 Yuan Fu <casouri@gmail.com>
+
+ Improve treesit-query-capture
+
+ * src/treesit.c (Ftreesit_query_capture): Add a suggestion in the
+ signal message.
+
+2022-09-20 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-query-validate
+
+ * lisp/treesit.el (treesit-query-validate): Add a call to
+ treesit-query-expand so this function works on both sexp and string
+ query, as expected.
+
+2022-09-20 Yuan Fu <casouri@gmail.com>
+
+ Rename treesit-expand-query/pattern
+
+ * src/treesit.c (treesit-expand-pattern): Rename to
+ treesit-patter-expand.
+ (treesit-expand-query): Rename to treesit-query-expand.
+ (make_ts_query): Use new name.
+
+2022-09-20 Mauro Aranda <maurooaranda@gmail.com>
+
+ Recognize the backslash operator in perl-mode
+
+ * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
+ Add new rule to detect a backslash operator. (Bug#11996)
+
+ * test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-11996): New
+ test.
+
+ * test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl: New
+ file.
+
+2022-09-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Make linum.el obsolete
+
+ * lisp/obsolete/linum.el: Add Obsolete-since.
+ * etc/NEWS: Announce obsoletion of linum.el. (Bug#57412)
+
+ * doc/misc/efaq.texi (Displaying the current line or column):
+ * etc/TODO:
+ * lisp/faces.el: Don't mention linum.el.
+
+2022-09-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Move linum.el to lisp/obsolete
+
+ * lisp/linum.el: Move from here...
+ * lisp/obsolete/linum.el: ...to here. (Bug#57412)
+
+2022-09-20 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/ede.texi (Extending EDE): Fix reference.
+
+2022-09-20 Philip Kaludercic <philip@icterid>
+
+ Have rcirc handle bridge bots
+
+ * doc/misc/rcirc.texi (Dealing with Bridge Bots): Document new feature.
+ * etc/NEWS: Mention the new feature.
+ * lisp/net/rcirc.el (rcirc-markup-text-functions): Add new markup
function
+ (rcirc-pseudo-nicks): Add new local variable.
+ (rcirc-channel-nicks): Use 'rcirc-pseudo-nicks' for nick completion.
+ (rcirc-bridge-bot-alist): Add new user option.
+ (rcirc-bridged-nick): Add new face.
+ (rcirc-markup-bridge-bots): Add new function.
+
+2022-09-20 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Bind margin mouse event to cycle outlines (bug#57813)
+
+ (outline-minor-mode): In mode keymap bind
+ 'right/left-margin mouse-1' to outline-cycle, and
+ 'right/left-margin S-mouse-1' to outline-cycle-buffer.
+ (outline-hide-subtree, outline-show-subtree): Add save-excursion
+ to keep point unmoved after mouse click.
+ (outline-cycle): Add optional arg 'event' like in
+ outline-hide-subtree and outline-show-subtree, and
+ add save-excursion to keep point unmoved after mouse click.
+ (outline--make-button-overlay, outline--make-margin-overlay):
+ Put overlay property 'evaporate' to t.
+ (outline--insert-open-button, outline--insert-close-button):
+ Remove temporary attempts to bind margin-local mouse events.
+
+2022-09-20 Robert Pluim <rpluim@gmail.com>
+
+ Allow keymap to override advertised-binding in docstrings
+
+ Previously
+
+ (substitute-command-keys "\\<undo-repeat-map>\\[undo]")
+
+ would use the global advertised-binding for `undo', even though
+ there's a binding in `undo-repeat-map', which is highly
+ counter-intuitive. Now the binding is looked up in the specified
+ keymap first.
+
+ * lisp/help.el (substitute-command-keys): Restrict the initial key
+ lookup to the specified keymap (if there is one). (Bug#51384)
+
+2022-09-20 Robert Pluim <rpluim@gmail.com>
+
+ Specify keymap in gnus-custom-mode docstring
+
+ * lisp/gnus/gnus-cus.el (gnus-custom-mode): Put in the keymap to use,
+ otherwise the bindings are looked up in the global map (where they
+ don't exist).
+
+2022-09-20 Drew Adams <drew.adams@oracle.com>
+
+ Tweak how use-region-p works with `use-empty-active-region'
+
+ * lisp/simple.el (use-region-p): Don't report non-nil if the user
+ has just clicked mouse-1 without extending the region (bug#51874).
+
+2022-09-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Attempt to clarify Input Focus documentation
+
+ * doc/lispref/frames.texi (Input Focus): Try to clarify the
+ documentation (bug#51862).
+
+2022-09-20 Gregory Heytings <gregory@heytings.org>
+
+ Improve display of advices on build failures.
+
+ * Makefile.in: Use three leading '*' characters, and redirect to stderr.
+
+2022-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/textmodes/tex-mode.el (tex-mode): Fix AUCTeX regression
+
+ As discussed in
+ https://lists.gnu.org/r/auctex/2022-08/msg00004.html
+ AUCTeX installs its own advice to redefine `tex-mode`, and that
+ advice used to take precedence before commit 6075a7c5ae3fa456cd.
+
+2022-09-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Wrap max-specpdl-size with with-no-warnings in Tramp
+
+ * lisp/net/tramp-archive.el (max-specpdl-size):
+ * lisp/net/tramp-gvfs.el (max-specpdl-size): Wrap with
+ `with-no-warnings'.
+
+2022-09-20 Robert Pluim <rpluim@gmail.com>
+
+ Add vc-annotate-switches to manual
+
+ * doc/emacs/maintaining.texi (Old Revisions): Add description of
+ `vc-annotate-switches' and `vc-BACKEND-annotate-switches'.
+
+2022-09-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention compilation in the Package Installation node
+
+ * doc/emacs/package.texi (Package Installation): Mention that
+ packages are compiled (bug#51660).
+
+2022-09-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow hl-line-mode so work when global-hl-line-mode is active
+
+ * lisp/hl-line.el (hl-line-mode): Allow switching off the global
+ mode in the current buffer (bug#51580).
+
+2022-09-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Get fewer false positives for :keyword and &options
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-mode--search-key): New
+ function to check more carefully for start of :keywords and
+ &options (bug#51574).
+ (lisp-fdefs): Use it.
+
+2022-09-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Obsolete unused variable in debug.el
+
+ * lisp/emacs-lisp/debug.el (debugger-previous-backtrace): Make
+ unused variable obsolete.
+
+2022-09-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further ffap-read-file-or-url tweaks
+
+ * lisp/ffap.el (ffap-read-file-or-url): Make this work for URLs
+ again if you're using `ido-everywhere' (bug#57943).
+
+2022-09-20 Robert Pluim <rpluim@gmail.com>
+
+ Remove mention of non-existent `annotate-switches'
+
+ * lisp/vc/vc.el (vc-annotate-switches): Remove mention of
+ `annotate-switches'. As far as I can tell this has never existed in
+ Emacs.
+
+2022-09-20 Robert Pluim <rpluim@gmail.com>
+
+ Mention that src/macuvs.h sometimes needs committing
+
+ * admin/notes/unicode: src/macuvs.h is generated, but needs to be
+ committed sometimes.
+
+2022-09-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Use "set -o nounset" in bash scripts
+
+ * admin/automerge:
+ * admin/make-manuals:
+ * admin/update-copyright:
+ * admin/update_autogen:
+ * admin/upload-manuals: Use "set -o nounset".
+
+2022-09-20 Stefan Kangas <stefankangas@gmail.com>
+
+ Revert "Allow nil value for filter-buffer-substring-function"
+
+ This reverts commit a7c65fc6660878e244432a5b25fb3a4ff20e8604.
+
+2022-09-19 Po Lu <luangruo@yahoo.com>
+
+ Remove intern calls with a static string from haiku*.c
+
+ * src/haikufns.c (Fx_show_tip, syms_of_haikufns):
+ * src/haikufont.c (haikufont_maybe_handle_special_family)
+ (syms_of_haikufont):
+ * src/haikuterm.c (haiku_term_init, syms_of_haikuterm): Replace
+ intern with real predefined symbols.
+
+2022-09-19 F. Jason Park <jp@neverwas.me>
+
+ Bury new ERC buffers by default
+
+ * lisp/erc/erc.el (erc-join-buffer): Change default value to `bury'.
+ (erc-setup-buffer): Make `window-noselect' behave more like its
+ description and abstain from ever replacing the current buffer.
+ * test/lisp/erc/erc-scenarios-base-reconnect.el
+ (erc-scenarios-common-base-reconnect-options): Update helper to handle
+ new default value for option `erc-join-buffer'.
+ (erc-scenarios-base-reconnect-options--buffer): Update and rename
+ function `erc-scenarios-base-reconnect-options--default'.
+ (erc-scenarios-base-reconnect-options--default): Update and rename
+ function `erc-scenarios-base-reconnect-options--bury'.
+ * etc/ERC-NEWS: Update existing display-buffers section for 5.5.
+ (Bug#51753)
+
+2022-09-19 F. Jason Park <jp@neverwas.me>
+
+ Offer to regexp-quote new items in erc-match commands
+
+ * lisp/erc/erc-match.el (erc-match-quote-when-adding) Add new option
+ to quote new items added to match lists.
+ (erc-add-entry-to-list): Add optional `alt' parameter indicating
+ whether to flip the behavior indicated by
+ `erc-match-quote-when-adding'.
+ (erc-add-pal, erc-add-fool, erc-add-keyword, erc-add-dangerous-host):
+ Pass universal arg to `erc-add-entry-to-list' as `alt' argument.
+ (erc-match-pal-p, erc-match-fool-p, erc-match-keyword-p,
+ erc-match-dangerous-host-p): Don't bother matching when list is nil.
+
+ * lisp/erc/erc.el (erc-list-match (lst str): Join input list as regexp
+ union instead of looping over items.
+
+ * etc/ERC-NEWS: Update misc-UX section for 5.5.
+
+ * test/lisp/erc/erc-match-tests.el: New file. (Bug#56450)
+
+2022-09-19 F. Jason Park <jp@neverwas.me>
+
+ Don't record undo history in erc-protocol buffers
+
+ * lisp/erc/erc.el (erc-log-irc-protocol): Disable undo history.
+
+2022-09-19 F. Jason Park <jp@neverwas.me>
+
+ Stabilize channels variant of erc-reuse-buffers test
+
+ * lisp/erc/erc-networks.el (erc-networks--id-sort-buffers): Use
+ `buffer-local-value' instead of `with-current-buffer'.
+
+ * test/lisp/erc/erc-scenarios-base-reuse-buffers.el
+ (erc-scenarios-common--base-reuse-buffers-channel-buffers): Wait for
+ buffers to be created by server-initiated JOINs.
+ (erc-scenarios-base-reuse-buffers-channel-buffers--disabled): Remove
+ `:unstable' tag.
+
+ * test/lisp/erc-tests.el (erc-ring-previous-command): Remove
+ unnecessary `goto-char'.
+
+2022-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix bug#57903
+
+ Fall back to old slower calling convention in dynbound code (bug#56596).
+
+2022-09-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-open): Revert 'text' back to " open ".
+
+ (outline-close): Revert 'text' back to " close ".
+ (outline-close-rtl): Remove 'text' since it's inherited from the parent
+ 'outline-close'.
+
+2022-09-19 Gregory Heytings <gregory@heytings.org>
+
+ Improve advices on build failures.
+
+ * Makefile.in: Mention "make extraclean; make". Mention mailing the
+ bugtracker among the possible choices. Fix typo.
+
+2022-09-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-minor-mode-use-margins): New user option.
+
+ (outline--use-margins, outline--use-buttons, outline--use-rtl):
+ New buffer-local internal variables.
+ (outline-open, outline-close): Move :ascent center to default of
define-icon.
+ Use ASCII-art for text. Fix docstring and help-echo.
+ (outline-close-rtl, outline-open-in-margins)
+ (outline-close-in-margins, outline-close-rtl-in-margins): New icon
+ definitions.
+ (outline-minor-mode-highlight-buffer): Remove
outline--insert-open-button
+ since initial outline--fix-up-all-buttons is added now to
outline-minor-mode.
+ (outline-minor-mode): Set buffer-local outline--use-buttons,
+ outline--use-margins and outline--use-rtl. Show/hide margins for
+ outline--use-margins. Add hook after-change-functions for editable
buffers.
+ Move outline--fix-up-all-buttons for both cases: font-lock and
non-font-lock.
+ (outline--use-buttons-p): Remove function.
+ (outline--make-button-overlay): Use outline--use-rtl icon
outline-close-rtl.
+ (outline--make-margin-overlay): New function.
+ (outline--insert-open-button, outline--insert-close-button): Add
optional
+ arg 'use-margins'.
+ (outline--fix-up-all-buttons): Call outline--insert-close-button
+ and outline--insert-open-button with arg outline--use-margins.
+ (outline-cycle-buffer): Remove outline--fix-up-all-buttons
+ that is already called from outline-flag-region.
+
+ * lisp/emacs-lisp/icons.el (icons--create): Handle keywords :rotation
+ and :ascent with the default value 'center (bug#57813).
+
+ * doc/emacs/text.texi (Outline Mode): Mention
outline-minor-mode-use-margins.
+
+2022-09-19 Matthias Meulien <orontee@gmail.com>
+
+ Minor touch-ups of some recent OSC stuff
+
+ * lisp/comint.el (comint-osc-handlers):
+ (comint-osc-hyperlink-map): Use defvaralias (bug#57821).
+
+ * lisp/osc.el: Fix some comments.
+
+2022-09-19 Mauro Aranda <maurooaranda@gmail.com>
+
+ perl-mode: / is a regexp match if there's nothing before it
+
+ * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
+ A "/" that starts the first statement is a regexp match. (Bug#997)
+ * test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-997): New
+ test.
+
+2022-09-19 Mattias Engdegård <mattiase@acm.org>
+
+ Abolish max-specpdl-size (bug#57911)
+
+ The max-lisp-eval-depth limit is sufficient to prevent unbounded stack
+ growth including the specbind stack; simplify matters for the user by
+ not having them to worry about two different limits. This change
+ turns max-specpdl-size into a harmless variable with no effects,
+ to keep existing code happy.
+
+ * lisp/subr.el (max-specpdl-size):
+ Define as an ordinary (but obsolete) dynamic variable.
+ * admin/grammars/Makefile.in:
+ * doc/lispintro/emacs-lisp-intro.texi (Loops & Recursion):
+ * doc/lispref/control.texi (Cleanups):
+ * doc/lispref/edebug.texi (Checking Whether to Stop):
+ * doc/lispref/eval.texi (Eval):
+ * doc/lispref/variables.texi (Local Variables):
+ * doc/misc/calc.texi (Recursion Depth):
+ Update documentation.
+ * etc/NEWS: Announce.
+ * src/eval.c
+ (FletX): Use safe iteration to guard against circular bindings list.
+ (syms_of_eval): Remove old max-specpdl-size definition.
+ (init_eval_once, restore_stack_limits, call_debugger)
+ (signal_or_quit, grow_specpdl_allocation):
+ * leim/Makefile.in:
+ * lisp/Makefile.in:
+ * lisp/calc/calc-stuff.el (calc-more-recursion-depth)
+ (calc-less-recursion-depth):
+ * lisp/calc/calc.el (calc-do):
+ * lisp/cedet/semantic/ede-grammar.el (ede-proj-makefile-insert-rules):
+ * lisp/cedet/semantic/grammar.el
(semantic-grammar-batch-build-one-package):
+ * lisp/cus-start.el (standard):
+ * lisp/emacs-lisp/comp.el (comp--native-compile):
+ * lisp/emacs-lisp/edebug.el (edebug-max-depth):
+ (edebug-read-and-maybe-wrap-form, edebug-default-enter):
+ * lisp/emacs-lisp/regexp-opt.el (regexp-opt):
+ * lisp/eshell/esh-mode.el (eshell-mode):
+ * lisp/loadup.el (max-specpdl-size):
+ * lisp/mh-e/mh-e.el (mh-invisible-headers):
+ * lisp/net/shr.el (shr-insert-document, shr-descend):
+ * lisp/play/hanoi.el (hanoi-internal):
+ * lisp/progmodes/cperl-mode.el:
+ * src/fileio.c (Fdo_auto_save):
+ Remove references to and modifications of max-specpdl-size.
+
+2022-09-19 João Távora <joaotavora@gmail.com>
+
+ Revert "fix jdtls support"
+
+ This reverts commit e5b021c01fceea02b7e6622cde0a347b842ca6f3.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1008
+
+2022-09-19 João Távora <joaotavora@gmail.com>
+
+ Don't use three-argument plist-get
+
+ * eglot.el (eglot-handle-request): Don't use three-argument
+ plist-get.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1024
+
+2022-09-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Allow nil value for filter-buffer-substring-function
+
+ * lisp/simple.el
+ (filter-buffer-substring): Support a nil value to be more resilient.
+ (filter-buffer-substring-function): Doc fix; improve and update for
+ above change.
+
+2022-09-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Support imenu in emacs-news-mode
+
+ * lisp/outline.el (outline-imenu-generic-expression): New variable
+ broken out from...
+ (outline-mode): ...here.
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common): Use
+ above new variable to add imenu support.
+
+2022-09-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'posn-at-point' around several 'display' properties
+
+ * src/xdisp.c (pos_visible_p): Fix the case when CHARPOS is hidden
+ by a display property, and its neighbors are also hidden.
+ (Bug#45915)
+
+2022-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/misc/eieio.texi (Introduction, Generics): Remove outdated limits
+
+ Reported by Hokomo <hokomo@airmail.cc>.
+
+2022-09-19 Philipp Stephani <phst@google.com>
+
+ Improve check for misleading 'cl-case' cases (Bug#57915).
+
+ * lisp/emacs-lisp/cl-macs.el (cl-case): Check that the case is of the
+ form (quote FOO), not just (quote).
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-case-no-warning): New unit
test.
+
+2022-09-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Revert change in Tramp inotifywait
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-notify-add-watch):
+ Revert use of "-P", it doesn't exist in older inotifywait versions.
+
+ * test/lisp/filenotify-tests.el: Deactivate instrumentation.
+
+2022-09-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer DE specific commands to set wallpaper
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands): Rearrange
+ order to prioritize desktop environment specific commands before
+ general Wayland commands like "wbg" or even "swaybg". (Bug#57781)
+
+2022-09-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Avoid an unnecessary call to intern
+
+ * src/doc.c (Fdocumentation): Prefer DEFSYM to using intern directly.
+
+2022-09-19 Daniel Pettersson <daniel@dpettersson.net> (tiny change)
+
+ Fix eshell directory and executable completion on action t
+
+ * lisp/eshell/em-cmpl.el (eshell--pcomplete-executables): New
+ function (bug#57905).
+ (eshell--complete-commands-list): Use it.
+
+2022-09-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't save bookmark context from encrypted files
+
+ * doc/emacs/regs.texi (Bookmarks): Mention this.
+ * lisp/bookmark.el (bookmark-make-record): Don't include context
+ in encrypted files (bug#57856).
+
+ * lisp/epa-hook.el (epa-file-name-p): New function.
+
+2022-09-19 Gregory Heytings <gregory@heytings.org>
+
+ Revert 60de98f6f0 and b2d419ed5b.
+
+2022-09-19 Po Lu <luangruo@yahoo.com>
+
+ * Makefile.in: Readd warnings about "git clean -fdx"
+
+2022-09-19 Po Lu <luangruo@yahoo.com>
+
+ Revert "; * Makefile.in: Partly revert 5b3c4004a9."
+
+ This reverts commit e54da280ff4bf458c437f87dd64e848cdc75479c.
+
+2022-09-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ make gen-clean remove some newly-added generated files
+
+ * admin/unidata/Makefile.in (gen-clean): Remove some newly-added
+ generated files.
+
+2022-09-19 Gerd Möllmann <gerd@gnu.org>
+
+ MacOS ld warning from native compilation (bug#57849)
+
+ * lisp/emacs-lisp/comp.el (native-comp-driver-options): Add "-Wl,-w"
+ on Darwin systems.
+ * etc/NEWS: Describe change.
+
+2022-09-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ a2f9788cbc ; Minor copyedits of *-frame-alist doc strings
+ c200098dde ; * src/intervals.c (get_local_map): Fix commentary.
+ 69cc3d38bc Fix Tramp error with eshell integration
+
+2022-09-18 Po Lu <luangruo@yahoo.com>
+
+ Remove calls to intern with a static string from code that runs on X
+
+ * Makefile.in (actual-all): Reword build failure advice.
+
+ * src/bytecode.c (exec_byte_code, syms_of_bytecode):
+ * src/font.c (syms_of_font):
+ * src/hbfont.c (uni_combining):
+ * src/xfns.c (Fx_display_backing_store, Fx_display_visual_class)
+ (x_create_tip_frame, Fx_show_tip, syms_of_xfns):
+ * src/xfont.c (xfont_supported_scripts, xfont_driver)
+ (syms_of_xfont):
+ * src/xsmfns.c (Fhandle_save_session, syms_of_xsmfns): Remove
+ calls to intern with a static string.
+
+2022-09-18 Po Lu <luangruo@yahoo.com>
+
+ Get rid of intern calls to static strings in xterm.c
+
+ * src/xterm.c (x_cr_export_frames): Use Qconcat instead of
+ interning concat.
+ (syms_of_xterm): New defsym Qconcat.
+
+2022-09-18 Po Lu <luangruo@yahoo.com>
+
+ Fix GC protection of scroll bar windows
+
+ * src/xterm.c (x_atom_refs): Add _EMACS prefix to
+ vendor-specific scroll-bar atoms.
+ (handle_one_xevent): Unprotect windows immediately upon
+ receiving an _EMACS_SCROLLBAR event, instead of waiting for the
+ event to be put on the keyboard buffer. Reported by martin
+ rudalics <rudalics@gmx.at>.
+
+2022-09-18 Gregory Heytings <gregory@heytings.org>
+
+ Display a help message when building Emacs failed.
+
+ * Makefile.in (actual-all): New target, replacing the former 'all'
+ target.
+ (advice-on-failure, sanity-check): New targets.
+ (all): Use the new targets.
+ (bootstrap-all): New target, identical to 'all' but meant for the
+ 'bootstrap' target in GNUmakefile.
+ (actual-bootstrap): New target, replacing the former 'bootstrap'
+ target. Use the 'actual-all' target instead of the 'all' target.
+ (bootstrap): Use the new targets.
+
+ * GNUmakefile (bootstrap): Use the new 'bootstrap-all' target.
+
+2022-09-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer using DEFSYMs to intern with wrong_type_argument
+
+ * src/data.c (syms_of_data) <Qbooleanp>:
+ * src/fileio.c (syms_of_fileio) <Qinserted_chars, Qfile_offset>:
+ * src/font.c (syms_of_font) <Qfont_extra_type>: New DEFSYMs.
+ * src/dbusbind.c (xd_signature, xd_append_arg):
+ * src/fileio.c (file_offset, Finsert_file_contents):
+ * src/font.c (Ffontp): Prefer using above new DEFSYMs to using intern
+ directly.
+
+2022-09-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Minor Tramp cleanups
+
+ * lisp/net/tramp-compat.el (tramp-compat-rx): Declare.
+
+ * lisp/net/tramp-integration.el (info-lookup-maybe-add-help):
+ Fix `rx' call.
+
+2022-09-18 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Turn gv-synthetic-place into a function
+
+ This fixes Bug#57397.
+
+ * lisp/emacs-lisp/gv.el (gv-synthetic-place): Make a function and add
+ trivial compiler macro to avoid decreasing efficiency.
+
+2022-09-18 Matthias Meulien <orontee@gmail.com>
+
+ Add NEWS entry for osc.el (bug#57821)
+
+2022-09-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix osc.el compilation warning
+
+ * lisp/osc.el (compilation-filter-start): Avoid compilation warning.
+
+2022-09-18 Matthias Meulien <orontee@gmail.com>
+
+ OSC escape sequences filter for compilation buffer
+
+ * lisp/osc.el (osc-control-seq-regexp): Regexp matching OSC control
sequence.
+ (osc-filter-region): Filter out OSC control sequences from region.
+ (osc-for-compilation-buffer): Determines what to do with OSC escape
+ sequences in compilation output.
+ (osc-compilation-filter): Implement OSC escape sequence handling for
+ compilation output (bug#57821).
+
+2022-09-18 Matthias Meulien <orontee@gmail.com>
+
+ Handle OSC command to set window title
+
+ * lisp/osc.el (osc-handlers): Bind osc-window-title-handler to OSC
+ command 2.
+ (osc-window-title): Local variable storing string extracted from OSC
+ command 2.
+ (osc-window-title-handler): Copy text from OSC command 2 to
+ osc-window-title (bug#57821).
+
+2022-09-18 Matthias Meulien <orontee@gmail.com>
+
+ Extract support of OSC escape sequences from comint
+
+ * lisp/comint.el (osc): Now requires osc.el.
+ (comint-osc-directory-tracker): Alias to osc-directory-tracker.
+ (comint-osc-hyperlink-handler): Alias to osc-hyperlink-handler.
+ (comint-osc-hyperlink-map): Alias to osc-hyperlink-map.
+ (comint-osc-handlers): Alias to osc-handlers.
+ (comint-osc-hyperlink): Alias to osc-hyperlink.
+ (comint-osc-process-output): Rewritten to call osc-apply-on-region.
+ * lisp/osc.el (osc-handlers): Clone comint-osc-handlers.
+ (osc--marker): Clone comint-osc--marker.
+ (osc-apply-on-region): Implementation taken from
comint-osc-process-output.
+ (osc-directory-tracker): Clone from comint-osc-directory-tracker.
+ (osc-hyperlink-map): Clone from comint-osc-hyperlink-map.
+ (osc-hyperlink): Clone from comint-osc-hyperlink.
+ (osc-hyperlink--state): Clone from comint-osc-hyperlink--state.
+ (osc-hyperlink-handler): Clone from comint-osc-hyperlink-handler.
+ * test/lisp/osc-tests.el (osc): Test osc-apply-region (bug#57821).
+
+2022-09-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the initial-frame-alist doc string
+
+ * lisp/frame.el (initial-frame-alist): Clarify how to set this
+ variable (bug#57890).
+
+2022-09-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore the point after aborting an image crop
+
+ * lisp/image/image-crop.el (image-crop): Restore point after
+ aborted cropping (bug#57874).
+
+2022-09-18 Augusto Stoffel <arstoffel@gmail.com>
+
+ pulse-momentary-highlight-one-line: Act on visual line
+
+ * lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Act on
+ entire visual line, ignoring fields etc (bug#57876).
+
+2022-09-18 Augusto Stoffel <arstoffel@gmail.com>
+
+ Remap 'up-list' in python-mode-map
+
+ * lisp/progmodes/python.el (python-mode-map): Remap 'up-list' to
+ 'python-nav-up-list' (bug#57885).
+
+2022-09-18 Augusto Stoffel <arstoffel@gmail.com>
+
+ Add new command python-shell-restart
+
+ * lisp/progmodes/python.el (python-shell-restart): New command
(bug#57885).
+
+2022-09-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp error with eshell integration
+
+ * lisp/net/tramp-integration.el (tramp-eshell-directory-change):
+ Respect local `default-directory'. (Bug#57556)
+
+2022-09-18 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Don't require subr-x
+
+ * lisp/image/image-dired-dired.el (subr-x):
+ * lisp/image/image-dired.el (subr-x): Don't require, since string-join
+ is now autoloaded.
+
+2022-09-18 João Távora <joaotavora@gmail.com>
+
+ Don't return hash tables from e-w-configuration-plist
+
+ * eglot.el (eglot-signal-didChangeConfiguration): Adjust.
+ (eglot-handle-request workspace-configuration): Adjust.
+ (eglot--workspace-configuration-plist): Don't return a hashtable.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1033
+
+2022-09-18 João Távora <joaotavora@gmail.com>
+
+ Allow eglot-workspace-configuration to be a plist
+
+ Suggested-by: Augusto Stoffel <arstoffel@gmail.com>
+
+ * NEWS.md: Mention change.
+
+ * README.md (eglot-workspace-configuration): Update yet again. Update
+ examples to use pylsp.
+
+ * eglot.el (eglot--workspace-configuration-plist): Noop if already
+ a plist.
+ (eglot-handle-request workspace/configuration): Use
+ eglot--workspace-configuration-plist.
+ (eglot-workspace-configuration): Document variable.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/590
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/790
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1033
+
+2022-09-18 João Távora <joaotavora@gmail.com>
+
+ Don't exceed max-specdl-size in big go projects
+
+ When invoking client/registerCapability for
+ workspace/didChangeWatchedFiles, Gopls lists each file to watch
+ separately. This makes eglot--glob-emit-{} emit a closure with an
+ 'or' form containing a potentially large number of 're-search-forward'
+ forms.
+
+ For large Go project such as "Kubernetes", this list becomes so large
+ that -- for some reason I don't understand -- it triggers the
+ 'max-specdl-size' limit.
+
+ An alternative using `regexp` opt doesn't seem to trigger the error.
+
+ * eglot.el (eglot--glob-emit-{}): Use regexp-opt.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/633
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/1067
+
+2022-09-18 Po Lu <luangruo@yahoo.com>
+
+ Remove what should be unnecessary calls to block_input
+
+ * src/xterm.c (handle_one_xevent): Do not block input inside.
+ This function is not reentrant and is always called with input
+ blocked.
+
+2022-09-18 Gerd Möllmann <gerd@gnu.org>
+
+ Fix possible null pointer access
+
+ * src/term.c (Ftty__output_buffer_size): Handle case of
+ decode_tty_terminal returning NULL.
+
+2022-09-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 50bb9ec84c ; * admin/admin.el (make-news-html-file): Fix typo.
+
+2022-09-17 Sean Whitton <spwhitton@spwhitton.name>
+
+ vc-do-command: Actually include "torsocks" in the command
+
+ * lisp/vc/vc-dispatcher.el (vc-do-command): When vc-tor is non-nil,
+ actually include "torsocks" in the command to be run (bug#57870).
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Display image on double click
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode-map):
+ Display image on 'double-mouse-1'.
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Remove spurious message on C-<mouse-1>
+
+ * lisp/image/image-dired.el (image-dired-thumbnail-mode-map): Fix
+ spurious message about C-<down-mouse-1> being undefined.
+
+2022-09-17 João Távora <joaotavora@gmail.com>
+
+ Allow :initializationoptions in eglot-server-programs
+
+ Also see https://github.com/joaotavora/eglot/issues/1038.
+
+ This feature was poorly tested, and simply wouldn't work when trying
+ to initialize the server object.
+
+ The simple solution is to ignore :initializationOptions initarg in
+ this context. It is still stored separately as and accessed as the
+ 'eglot--saved-initargs' slot.
+
+ Another complication arises in eglot--guess-contact, which tried too
+ hard to be able to compose an interactive prompt (when the server
+ program can't be found). The solution is just to give up when
+ :autoport or :initializationOptions is found. It's not easy or
+ practical to have the user provide non-string arguments via a string
+ interface like the minibuffer.
+
+ * eglot.el (initialize-instance :before eglot-lsp-server): Don't pass
+ :initializationOptions initarg onward.
+ (eglot--guess-contact): Simplify. Don't try heroics with
+ :autoport and :initializationOptions.
+
+ * eglot-tests.el (eglot-server-programs-simple-missing-executable):
+ Update test.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/940
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Increase image-dired-thumb-size to 128
+
+ * lisp/image/image-dired.el (image-dired-thumb-size): Increase default
+ to 128.
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Change some custom types to natnum
+
+ * lisp/image/image-dired.el (image-dired-thumb-size)
+ (image-dired-thumb-relief, image-dired-thumb-margin)
+ (image-dired-thumbs-per-row, image-dired-thumb-width)
+ (image-dired-thumb-height): Change :type to natnum.
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Make `image-dired-thumb-(height|width)' obsolete
+
+ * lisp/image/image-dired.el (image-dired-thumb-width)
+ (image-dired-thumb-height): Make obsolete.
+ (image-dired-thumb-size): Clean up and improve docstring.
+ * lisp/image/image-dired-external.el (image-dired-thumb-size): Use
+ 'image-dired-thumb-size' instead of above obsolete variables.
+ (image-dired-create-thumb-1): Support %s format specifier for size.
+ (image-dired-cmd-create-thumbnail-options): Document %s format
+ specifier.
+ (image-dired--thumb-size): Rename function from
+ 'image-dired-thumb-size' and make old name into an obsolete alias.
+ Update all callers.
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Simplify image-dired-thumbnail-storage customization
+
+ * lisp/image/image-dired.el (image-dired-dir): Improve docstring.
+ (image-dired-thumbnail-storage): Change default to `image-dired',
+ maintain `use-image-dired-dir' for backwards compatibility.
+ * lisp/image/image-dired-util.el (image-dired-thumb-name): Handle
+ above new default value.
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/image/image-dired.el: Bump version for Emacs 29.
+
+2022-09-17 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ Fix rare shaping problems with Urdu and Arabic
+
+ * src/composite.c (fill_gstring_body): Clear unused slots of the
+ gstring. (Bug#50951)
+
+2022-09-17 Gerd Möllmann <gerd@gnu.org>
+
+ Optimize tty display updates (bug#57727)
+
+ * src/dispnew.c (update_frame_1): Don'f flush if tty's
+ output_buffer_size is non-zero.
+ * src/sysdep.c (init_sys_modes): Setvbuf depending on the tty's
+ output_buffer_size.
+ * src/term.c (Ftty__set_output_buffer_size, Ftty__output_buffer_size):
+ Low-level interface for setting and retrieving a tty's output buffer
+ size.
+ (syms_of_term): Defsubr the new functions.
+ * src/termchar.h (struct tty_display_info): New member
+ output_buffer_size.
+ * etc/NEWS: Describe the change.
+
+2022-09-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix recent filenotify-tests changes
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-notify-add-watch):
+ Use "-P".
+
+ * test/lisp/filenotify-tests.el (file-notify-test11-symlinks):
+ Adapt test.
+
+2022-09-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Autoload string-join
+
+ * lisp/emacs-lisp/subr-x.el (string-join): Autoload since it's
+ being used more now.
+
+2022-09-17 Gregory Heytings <gregory@heytings.org>
+
+ Further improvements to admin/emake.
+
+ * admin/emake: Better parsing of script options. Add a --quieter
option,
+ which removes everything except errors.
+
+2022-09-17 João Távora <joaotavora@gmail.com>
+
+ Adjust last commit about workspace configuration
+
+ * README.md (way): Adjust.
+
+ * eglot.el (json): Don't require needlessly.
+ (eglot-show-workspace-configuration): Don't depend on json-mode.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/790
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/590
+
+2022-09-17 Po Lu <luangruo@yahoo.com>
+
+ Fix MPX focus tracking upon frame deletion
+
+ * src/xterm.c (x_free_frame_resources): Consider focus change
+ after.
+
+2022-09-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix running spell-checking in remote buffers
+
+ * lisp/textmodes/ispell.el (ispell-with-safe-default-directory):
+ Don't use remote 'default-directory' when running the speller.
+ (Bug#57649)
+
+2022-09-17 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Update Unicode support to Unicode version 15.0.0 (bug#57846)
+
+ * admin/unidata/BidiBrackets.txt
+ * admin/unidata/BidiMirroring.txt
+ * admin/unidata/Blocks.txt
+ * admin/unidata/IVD_Sequences.txt
+ * admin/unidata/IdnaMappingTable.txt
+ * admin/unidata/NormalizationTest.txt
+ * admin/unidata/PropertyValueAliases.txt
+ * admin/unidata/ScriptExtensions.txt
+ * admin/unidata/Scripts.txt
+ * admin/unidata/SpecialCasing.txt
+ * admin/unidata/UnicodeData.txt
+ * admin/unidata/confusables.txt
+ * admin/unidata/copyright.html
+ * admin/unidata/emoji-data.txt
+ * admin/unidata/emoji-sequences.txt
+ * admin/unidata/emoji-test.txt
+ * admin/unidata/emoji-zwj-sequences.txt
+ * test/manual/BidiCharacterTest.txt: Updated files from Unicode
+ 15.0.
+
+ * admin/unidata/unidata-gen.el (unidata-file-alist): Add new ranges.
+
+ * lisp/international/fontset.el (script-representative-chars): Add
+ new scripts.
+ (otf-script-alist): Update from latest version.
+ (setup-default-fontset): Add new scripts.
+ * lisp/international/characters.el: Update syntax and category
+ tables for new characters and scripts.
+ (char-width-table): Update for changes in Unicode 15.0.
+
+ * test/lisp/international/ucs-normalize-tests.el
+ (ucs-normalize-tests--failing-lines-part1)
+ (ucs-normalize-tests--failing-lines-part2): Update per the test
+ results.
+
+ * doc/lispref/nonascii.texi (Character Properties): Update Unicode
+ version number.
+
+ * etc/NEWS: Announce support for Unicode 15.0.
+
+2022-09-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 320f0cac80 ; * etc/NEWS: Fix typo.
+ 5dbe4fa64a Simplify regexp in make-news-html-file
+ 069ffbda09 * admin/admin.el (make-news-html-file): Set id on correct ...
+ bcc84ac7fe Add version headlines to HTML NEWS export
+ 5d227ae83e ; * etc/NEWS: Fix formatting.
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-09-16 João Távora <joaotavora@gmail.com>
+
+ Rework readme.md about workspace configuration again
+
+ Also tweak eglot-show-workspace-configuration a bit.
+
+ * README.md (Workspace configuration): Rework.
+
+ * eglot.el (eglot-show-workspace-configuration): Rework.
+ (eglot--workspace-configuration-plist): New helper.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/590
+
+2022-09-16 Fredrik Bergroth <fbergroth@gmail.com>
+
+ Add eglot-show-configuration to debug workspace configurations
+
+ Also see https://github.com/joaotavora/eglot/issues/790,
https://github.com/joaotavora/eglot/issues/1033.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/590
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Simplify regexp in make-news-html-file
+
+ * admin/admin.el (make-news-html-file): Simplify regexp.
+ Suggested by Mattias Engdegård <mattiase@acm.org>.
+
+2022-09-16 Gregory Heytings <gregory@heytings.org>
+
+ Various improvements to admin/emake.
+
+ * admin/emake: Return the status code of make when the build fails.
+ Filter the output of emake *clean. Add three options --no-color
+ (useful for emake check for example), --no-check (useful for quicker
+ builds during development) and --no-fast.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Support XFCE in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands)
+ (wallpaper-command): Support XFCE. (Bug#57781)
+ Thanks to Thierry Volpiatto <thievol@posteo.net>.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Accept more wide function signatures in docstrings
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ ("warn-wide-docstring-ignore-function-signature.el"): New test.
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
+ Make regexp more allowing to silence warning.
+ *
test/lisp/emacs-lisp/bytecomp-resources/warn-wide-docstring-ignore-function-signature.el:
+ New file.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Add support for PDF files (Bug#26432)
+
+ * lisp/image/image-dired.el
+ (image-dired--file-name-regexp): New function.
+ (image-dired-display-thumbnail-original-image): Clean up.
+ (image-dired-display-image): Support visiting PDF files.
+ * lisp/image/image-dired-dired.el
+ (image-dired-dired-toggle-marked-thumbs):
+ * lisp/image/image-dired.el (image-dired-get-thumbnail-image)
+ (image-dired-show-all-from-dir): Use above new function instead of
+ 'image-file-name-regexp'.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Print command when debugging
+
+ * lisp/image/image-dired-external.el (image-dired-create-thumb-1):
+ Display command and arguments when debugging.
+ * lisp/image/image-dired-util.el (image-dired-debug): Rename from
+ 'image-dired-debug-message'.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete mystery code from cperl-mode.el
+
+ * lisp/progmodes/cperl-mode.el: Delete commented out code referring to
+ some 'edit-var-mode-alist' that we don't think is used for anything.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete some commented out code in cperl-mode.el
+
+ The differences between this and the existing `cperl-ps-print-init'
+ are that some faces had been moved from italic to bold or vice versa,
+ and that there were some obsolete or non-existent face names
+ mentioned. So there is no point to keeping it given that it's been
+ commented out since 1999.
+
+ * lisp/progmodes/cperl-mode.el: Delete code commented out since 1999:
+ a slightly different, duplicate definition of `cperl-ps-print-init'.
+
+2022-09-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Fix last occurrence of `font-lock-reference-face`
+
+ Well... except for CC-mode.
+
+ * lisp/cedet/semantic/grammar.el (semantic-grammar-mode-keywords-1):
+ Redirect reference to obsolete `font-lock-reference-face` to
+ `font-lock-constant-face`.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ * admin/admin.el (make-news-html-file): Set id on correct tag.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Add version headlines to HTML NEWS export
+
+ This allows linking to, e.g. "NEWS.28.html#28.1" to go directly to
+ those release notes.
+ * admin/admin.el (admin--org-export-headers-format)
+ (make-news-html-file): Add XX.Y version headlines with an HTML anchor.
+
+2022-09-16 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/subr.el (list-of-strings-p): Declare pure and error-free
+
+2022-09-16 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Optimize performance of S-TAB (bug#57813)
+
+ (outline-hide-subtree): Don't call outline--insert-close-button, because
+ it's handled by outline--fix-up-all-buttons called from
outline-flag-region.
+ (outline-show-subtree): Don't call outline--insert-open-button, same
reason.
+ (outline--fix-up-all-buttons): Check invisible outlines explicitly
instead of
+ using slow outline--cycle-state.
+
+2022-09-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Enable `dont-follow' for inotify file notifications
+
+ * doc/lispref/os.texi (File Notifications): Symlinks aren't followed.
+
+ * lisp/filenotify.el (file-notify--add-watch-inotify):
+ Add `dont-follow' flag.
+
+ * lisp/net/tramp.el (tramp-handle-file-notify-rm-watch):
+ Suppress errors when reading process output.
+
+ * test/lisp/filenotify-tests.el (file-notify-test11-symlinks)
+ (file-notify-test11-symlinks-remote): New tests.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Use substitute-command-keys in some vc messages
+
+ * lisp/vc/vc-dispatcher.el (vc-start-logentry):
+ * lisp/vc/vc.el (vc-steal-lock): Use substitute-command-keys.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ f232d989fd Improve HTML export of NEWS file
+ 397890ba77 Delete "etc/NEWS*.html" from .gitignore
+ 70ca5f6524 ; * etc/NEWS: Fix typos.
+ 19de241a7d Recommend NonGNU ELPA over MELPA
+ f25f9dbf30 Minor doc fixes in picture.el
+ 520b041b54 * lisp/textmodes/page-ext.el: Improve Commentary.
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve HTML export of NEWS file
+
+ * admin/admin.el (admin--org-export-headers-format)
+ (admin--org-html-postamble): New variables.
+ (admin--require-external-package): New function.
+ (make-news-html-file): Improve HTML export.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Add command to delete temporary markers in NEWS
+
+ * lisp/textmodes/emacs-news-mode.el
+ (emacs-news-delete-temporary-markers): New command.
+ * admin/make-tarball.txt: Update instructions.
+
+2022-09-16 Alan Mackenzie <acm@muc.de>
+
+ cc-fonts.el: Eliminate an Emacs compiler warning introduced yesterday.
+
+ * lisp/progmodes/cc-fonts.el (top level): Introduce a
cc-bytecomp-defvar for
+ font-lock-reference-face.
+
+2022-09-16 Mattias Engdegård <mattiase@acm.org>
+
+ Faster and more robust list-of-strings-p
+
+ * lisp/subr.el (list-of-strings-p): Speed up by a factor 4 (approx.)
+ and don't crash on dotted lists.
+ * test/lisp/subr-tests.el (test-list-of-strings-p): Extend test.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete "etc/NEWS*.html" from .gitignore
+
+ We actually do want to see it when preparing a release, so that we
+ don't include it in a tarball by mistake.
+ * .gitignore: Don't ignore "etc/NEWS*.html".
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Recommend NonGNU ELPA over MELPA
+
+ * doc/misc/org.org (Using CDLaTeX to enter math, Footnotes): Recommend
+ NonGNU ELPA over MELPA.
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix *Help* output for native-comp functions from IELM
+
+ * lisp/help-fns.el (find-lisp-object-file-name): Don't claim that
+ native-comp functions that are defined outside of files (for
+ instance, created by calling `native-compile' in IELM) are in C
+ source (bug#57819).
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Inhibit image-mode resizing in the minibuffer
+
+ * lisp/image-mode.el (image-fit-to-window): Don't resize when in
+ the minibuffer (bug#57823).
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix cperl list indentation problem
+
+ * lisp/progmodes/cperl-mode.el (cperl-calculate-indent): Indent
+ foo:bar() in lists correctly (bug#57829).
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in picture.el
+
+ * lisp/textmodes/picture.el (picture-mode-map): Prefer defvar-keymap.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Minor doc fixes in picture.el
+
+ * lisp/textmodes/picture.el: Improve Commentary.
+ (picture-forward-column, picture-backward-column)
+ (picture-move-down, picture-move-up, picture-movement-nw)
+ (picture-movement-ne, picture-movement-sw, picture-movement-se)
+ (picture-set-motion, picture-clear-line, picture-newline)
+ (picture-tab, picture-yank-rectangle)
+ (picture-yank-rectangle-from-register, picture-insert-rectangle)
+ (picture-draw-rectangle): Minor doc fixes.
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't use autoloaded functions for safe-local-variable
+
+ * doc/lispref/symbols.texi (Standard Properties): Clarify how
+ safe-local-variable should look.
+
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words)
+ (checkdoc-symbol-words): Use list-of-strings-p.
+ (checkdoc-list-of-strings-p): Obsolete.
+
+ * lisp/vc/vc-git.el (vc-git-annotate-switches): Remove.
+ (vc-git-annotate-switches): Open-code the check.
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new predicate list-of-strings-p
+
+ * lisp/subr.el (list-of-strings-p): New function.
+
+2022-09-16 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/textmodes/page-ext.el: Improve Commentary.
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix sorting of backends in vc-responsible-backend
+
+ * lisp/vc/vc.el (vc-responsible-backend): When comparing directory
+ names, expand them first so that we get consistent sorting of ~/
+ etc (bug#57777).
+
+2022-09-16 Po Lu <luangruo@yahoo.com>
+
+ Fix icon spec for outline icons
+
+ * lisp/outline.el (outline-open):
+ (outline-close): Fix listing of multiple images. Reported by
+ Lars Ingebrigtsen <larsi@gnus.org>.
+
+2022-09-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename `image-elide' to `image-cut' and add more bindings
+
+ * doc/lispref/display.texi (Showing Images): Update.
+ * lisp/image.el (image-map): Move binding to mirror Gimp bindings.
+
+ * lisp/image/image-crop.el (image-crop-cut-command): Rename.
+ (image-cut-color): New user option.
+ (image-cut): Rename and remove prefix.
+ (image-crop): Remove prefix.
+ (image-crop--crop-image-update): Add commands to switch to
+ move/square modes.
+
+2022-09-16 Po Lu <luangruo@yahoo.com>
+
+ Fix wrong source window being generated for XDND leave events
+
+ * src/xterm.c (x_dnd_update_state, handle_one_xevent): Let
+ x_dnd_last_seen_toplevel remain at its old value until any
+ XdndLeave event was definitely sent.
+
+2022-09-16 Po Lu <luangruo@yahoo.com>
+
+ Avoid asserting for fontset validity before it is used
+
+ * src/fontset.c (face_for_char): Move `eassert' to before the
+ fontset is really used. Suggested by Eli Zaretskii
+ <eliz@gnu.org>
+
+2022-09-16 Po Lu <luangruo@yahoo.com>
+
+ Add portable versions of the outline SVGs
+
+ * lisp/outline.el (outline-open):
+ (outline-close): Add PBM images.
+
+ * etc/images/outline-open.pbm:
+ * etc/images/outline-close.pbm: New images used on systems
+ without librsvg.
+
+2022-09-16 Juri Linkov <juri@linkov.net>
+
+ Add outline open/close images (bug#57813)
+
+ * etc/images/outline-open.svg:
+ * etc/images/outline-close.svg: New files.
+
+ * lisp/outline.el (outline-open, outline-close): Use images
+ outline-open.svg and outline-close.svg.
+
+ * lisp/emacs-lisp/icons.el (icons--create): Add :ascent 'center'.
+
+2022-09-16 Gerd Möllmann <gerd@gnu.org>
+
+ Fix crash in GC on macOS (bug#57751)
+
+ * src/nsterm.m ([EmacsView windowDidMove:]): Initialize input_event.
+
+2022-09-15 Peter Münster <pm@a16n.net>
+
+ image-dired: Fix thumbnail options for gm
+
+ * lisp/image/image-dired-external.el
+ (image-dired-cmd-create-standard-thumbnail-options): Fix options for
+ "gm" (GraphicsMagick). (Bug#52200)
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve image-dired-display-properties-format
+
+ * lisp/image/image-dired.el
+ (image-dired-display-properties-format): Change default format,
+ improve docstring and add :safe property
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Show header line on start
+
+ * lisp/image/image-dired.el (image-dired-show-all-from-dir): Update
+ header line, to ensure that it is immediately visible on start.
+
+2022-09-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ combine-change-calls-1: Fix case where `body` also changes other bufs
+
+ * lisp/subr.el (combine-change-calls-1): Only set the current buffer's
part
+ of the `*-change-functions` hooks.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Fix performance bug with mouse click
+
+ * lisp/image/image-dired.el
+ (image-dired--on-file-in-dired-buffer): Move call to
+ 'image-dired-thumb-update-marks' from here...
+ (image-dired--do-mark-command): ...to here. Add new optional
+ argument UPDATE to control calling it. Update callers.
+ (image-dired-mouse-toggle-mark-1): Fix performance bug by setting
+ above new optional argument to nil. (Bug#53599)
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Make image-dired-toggle-mark-thumb-original-file obsolete
+
+ * lisp/image/image-dired.el
+ (image-dired-toggle-mark-thumb-original-file): Make obsolete.
+ (image-dired-mouse-toggle-mark-1): Don't use above obsolete
+ function.
+
+2022-09-15 Mattias Engdegård <mattiase@acm.org>
+
+ Include nil as valid wallpaper-commmand
+
+ * lisp/image/wallpaper.el (wallpaper-command):
+ Include nil in the type since that is a valid value for the variable,
+ and may be the default value. This should fix test-custom-opts.
+
+2022-09-15 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Handle C++20 modules
+
+ * lisp/progmodes/cc-engine.el
(c-before-after-change-check-c++-modules): New
+ function.
+ (c-forward-<>-arglist): Add special handling for "import <...>".
+
+ * lisp/progmodes/cc-fonts.el (c-preprocessor-face-name): Add extra
"fallback"
+ face after font-lock-reference-face, namely font-lock-constant-face.
+ (c-cpp-matchers): Don't fontify the <> delimiters for XEmacs in
#include <..>.
+ (c-basic-matchers-before): Add c-font-lock-c++-modules to the C++ value.
+ (c-forward-c++-module-name, c-forward-c++-module-partition-name)
+ (c-font-lock-c++-modules): New functions.
+
+ * lisp/progmodes/cc-langs.el (c-get-state-before-change-functions)
+ (c-before-font-lock-functions): Include
+ c-before-after-change-check-c++-modules in the C++ value of these
variables.
+ (c-module-name-re): New c-lang-const/var.
+ (c-other-decl-kwds): Add a C++ value "export".
+ (c-<>-sexp-kwds): Add a new component c-import-<>-kwds.
+ (c-import-<>-kwds, c-module-kwds): New c-lang-consts.
+ (c-module-key): New c-lang-const/var.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Document MS-Windows support in wallpaper.el
+
+ * lisp/image/wallpaper.el: Add MS-Windows to Commentary.
+ (wallpaper-command, wallpaper-command-args, wallpaper-set):
+ Document MS-Windows support.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve error when wallpaper-command is nil
+
+ * lisp/image/wallpaper.el (wallpaper-set): Improve the error message
+ when 'wallpaper-command' is nil.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Support macOS in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands)
+ (wallpaper-command): Support macOS using "osascript".
+ (wallpaper-set): Display image name when wallpaper-debug is t.
+
+2022-09-15 Juri Linkov <juri@linkov.net>
+
+ Fix outline image icon display (bug#57813)
+
+ * lisp/outline.el (outline--make-button-overlay): Don't overwrite
+ image display with string display when image exists.
+ (outline--fix-up-all-buttons): Optimize.
+
+2022-09-15 Eli Zaretskii <eliz@gnu.org>
+
+ Implement support for 'wallpaper-set' on MS-Windows
+
+ * src/w32fns.c (Fw32_set_wallpaper): New primitive.
+ (syms_of_w32fns): Defsubr it.
+ (globals_of_w32fns): Attempt to load SystemParametersInfoW from
+ its DLL at run time.
+
+ * lisp/image/wallpaper.el (wallpaper-set): Support MS-Windows by
+ calling 'w32-set-wallpaper'.
+
+ * etc/NEWS: Update and simplify wording of the 'wallpaper-set'
+ entry.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Add rudimentary font-locking to edit-abbrevs-mode
+
+ * lisp/abbrev.el (abbrev-table-name): New face.
+ (edit-abbrevs-mode-font-lock-keywords): New defvar.
+ (edit-abbrevs-mode): Support font-locking.
+
+2022-09-15 Mattias Engdegård <mattiase@acm.org>
+
+ Use `eql` or `eq` instead of `=` in some places
+
+ For a switch op to be generated, comparisons must be made using `eq`,
+ `eql` or `equal`, not `=`.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-lapcode):
+ * lisp/files.el (file-modes-char-to-who, file-modes-char-to-right):
+ * lisp/international/titdic-cnv.el (tit-process-header):
+ * lisp/language/ethio-util.el (ethio-input-special-character)
+ (ethio-fidel-to-tex-buffer):
+ * lisp/language/lao.el (consonant):
+ Use `eq` or `eql` instead of `=`.
+
+ In these cases either `eq` or `eql` would do and the choice does not
+ affect the resulting code. We compare numbers with `eql` and
+ characters with `eq` as a matter of style.
+
+2022-09-15 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify and shrink reader buffers
+
+ A big on-stack buffer in a potentially long-running function can
+ interact badly with the GC's conservative scanning of the C stack.
+ It may make the scanning slower (since the stack frame is big) and
+ risks accidental retention of objects from stack detritus
+ (because the buffer isn't cleaned on entry).
+
+ * src/lread.c (stackbufsize): Remove.
+ (read_integer, read_string_literal, read_bool_vector): Use a local
+ buffer instead of piggy-backing on that in read0.
+ (read0): Reduce buffer to something suitable for most identifiers and
+ numbers.
+
+2022-09-15 Mattias Engdegård <mattiase@acm.org>
+
+ mapconcat fast path with `identity` function argument
+
+ This makes (mapconcat #'identity SEQ) slightly faster than
+ (apply #'concat SEQ), which used to be much faster.
+ Notably, `string-join` benefits from this change as it uses mapconcat.
+
+ * src/fns.c (Fmapconcat): Speed up execution when the function
+ argument is `identity`.
+
+2022-09-15 Po Lu <luangruo@yahoo.com>
+
+ More fixes for XDND proxy support
+
+ * src/xterm.c (handle_one_xevent): Check replies against
+ toplevel, not proxy.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Use substitute-command-keys in proced-help
+
+ * lisp/proced.el (proced-help-string, proced-help): Use
+ substitute-command-keys.
+
+2022-09-15 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "; Fix doc string of 'loaddefs-generate'"
+
+ This reverts commit 5fe9a1a85ae6d54196031157a735352f6ab655ff.
+ It included unrelated changes.
+
+2022-09-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 5543aea1b2 Automate exporting etc/NEWS to HTML
+ 23a91163ed * Makefile.in (uninstall): Remove the *.eln files. (Bug#5...
+
+2022-09-14 Jim Porter <jporterbugs@gmail.com>
+
+ Allow using a symbol as an index into an alist in Eshell
+
+ * lisp/eshell/esh-var.el (eshell-index-value): If INDEX is a symbol,
+ use 'assoc' for indexing.
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/interp-var-assoc)
+ (esh-var-test/quoted-interp-var-assoc): Add checks for indexing via
+ symbol (bug#57787).
+
+2022-09-14 Sean Whitton <spwhitton@spwhitton.name>
+
+ Use '^' key for detach command bindings
+
+ * lisp/tab-bar.el (tab-prefix-map): Move tear-off-window to C-x w ^ f.
+ Bind tab-window-detach to C-x w ^ t.
+ * lisp/window.el (window-prefix-map): Bind tab-detach to C-x t ^ f.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Add image-transform-reset-to-original to manual
+
+ * doc/emacs/files.texi (Image Mode):
+ Add 'image-transform-reset-to-original'.
+ Suggested by Juri Linkov <juri@linkov.net>.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Support fbsetbg in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands)
+ (wallpaper-command): Add "fbsetbg".
+
+2022-09-14 Augusto Stoffel <arstoffel@gmail.com>
+
+ pcomplete: Generate completions from --help messages
+
+ * lisp/pcomplete.el (pcomplete-from-help): New function (and hash
+ table) to get pcomplete candidates from help messages.
+ (pcomplete-here-using-help): Helper function to define pcomplete for
+ simple commands
+ (pcomplete-completions-at-point): Provide annotation-function and
+ company-docsig properties.
+ * lisp/pcmpl-git.el: New file, provides pcomplete for Git.
+ * lisp/pcmpl-gnu.el: Add pcomplete for awk, gpg and gdb, emacs and
+ emacsclient.
+ * lisp/pcmpl-linux.el: Add pcomplete for systemctl and journalctl.
+ * lisp/pcmpl-rpm.el: Add pcomplete for dnf.
+ * lisp/pcmpl-unix.el: Add pcomplete for sudo and most commands found
+ in GNU Coreutils.
+ * lisp/pcmpl-x.el: Add pcomplete for tex, pdftex, latex, pdflatex,
+ rigrep and rclone.
+ * test/lisp/pcomplete-tests.el (pcomplete-test-parse-gpg-help,
+ pcomplete-test-parse-git-help): Tests for the new functions.
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow specifying the color to use in image-elide
+
+ * lisp/image/image-crop.el (image-crop-elide-command): Adjust to
+ allow specifying the color.
+ (image-elide): Prompt for a color.
+ (image-crop--crop-image-update): Pass the color along.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Automate exporting etc/NEWS to HTML
+
+ * admin/admin.el (make-news-html-file): New function.
+ * .gitignore: Ignore generated "etc/NEWS*.html" file.
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make image-crop variables into user options
+
+ * lisp/image/image-crop.el (image-crop): New group.
+ (image-crop-crop-command, image-crop-resize-command)
+ (image-crop-elide-command, image-crop-crop-command): Make into
+ defcustoms.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Support hsetroot in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper--default-commands)
+ (wallpaper-command): Add "hsetroot".
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up Emacs build by autoloading vc-git-annotate-switches-safe-p
+
+ * lisp/vc/vc-git.el (vc-git-annotate-switches-safe-p): Put the
+ definition into the loaddefs file.
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix image-mode.el compilation
+
+ * lisp/image/image-crop.el (text-property-search): Require.
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make image cropping work in image-mode buffers
+
+ * lisp/image-mode.el (image-mode): Update the buffer text after
+ cropping (bug#57793).
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't alter the buffer contents in image-crop by default
+
+ * lisp/image/image-crop.el (image-crop-buffer-text-function):
+ Allow modes to alter the textual representation.
+ (image-crop): Delete the complete image data without assuming it's
+ all on one line (which isn't the case in image-mode, for instance).
+ (image-crop--crop-image-update, image-crop--insert-image-data):
+ Use image-crop-buffer-text-function.
+ (image-crop--default-buffer-text): New default action -- don't
+ alter the buffer contents (bug#57793).
+
+2022-09-14 Mattias Engdegård <mattiase@acm.org>
+
+ Raise default max-specpdl-size and max-lisp-eval-depth
+
+ Recent changes have caused bootstrapping to fail for certain
+ configurations, and it was likely getting close to the limits
+ for others. This change raises the limits to those previously
+ used when configured for nativecomp:
+
+ max-specpdl-size raised from 1800 to 2500
+ max-lisp-eval-depth raised from 800 to 1600
+
+ * src/eval.c (init_eval_once): Raise limits.
+ * doc/lispref/eval.texi (Eval):
+ * doc/lispref/variables.texi (Local Variables): Document new values.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Rename image transform commands to be less confusing
+
+ * lisp/image-mode.el
+ (image-transform-original): Rename from this...
+ (image-transform-reset-to-original): ...to this. Make old name
+ into an obsolete function alias and update all callers.
+ (image-transform-reset): Rename from this...
+ (image-transform-reset-to-initial): ...to this. Make old name
+ into an obsolete function alias and update all callers.
+ (Bug#51451)
+ * doc/emacs/files.texi (Image Mode): Update for above change.
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the save-match-data from shell-command
+
+ * lisp/simple.el (shell-command): Remove save-match-data, since
+ we're (in many cases) altering the match data earlier in the
+ function anyway (bug#57795).
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix textsec-suspicious foreground color
+
+ * lisp/international/textsec-check.el (textsec-suspicious): Set
+ the foreground, too (bug#57796).
+
+2022-09-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Also use eww URL transformers in the actual links
+
+ * lisp/net/eww.el (eww-mode): Use it to transform URLs
+ (bug#57796).
+
+ * lisp/net/shr.el (shr-url-transformer): New variable.
+ (shr-tag-a): Use it.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new command image-mode-wallpaper-set
+
+ * lisp/image-mode.el (wallpaper): Require.
+ (image-mode-wallpaper-set): New command.
+ (image-mode-map): Bind above new command to "W".
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Add :type to wallpaper-command
+
+ * lisp/image/wallpaper.el (wallpaper-command): Make it easier to
+ customize by adding a :type declaration covering all supported values.
+
+2022-09-14 Evan Klitzke <evan@eklitzke.org> (tiny change)
+
+ Add consteval and constinit keywords to cc-mode
+
+ * lisp/progmodes/cc-langs.el (c-modifier-kwds): Add consteval and
+ constinit keywords (introduced in C++20) (bug#51092).
+
+2022-09-14 Eli Zaretskii <eliz@gnu.org>
+
+ * Makefile.in (uninstall): Remove the *.eln files. (Bug#57771)
+
+2022-09-14 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix more misleading cl-case quoting in tests
+
+ * test/lisp/dnd-tests.el (x-begin-drag):
+ * test/lisp/so-long-tests/so-long-tests-helpers.el
+ (so-long-tests-assert-active, so-long-tests-assert-reverted): Remove
+ misleading quoting in cl-case clauses (bug#51368).
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Make it easier to customize wallpaper command
+
+ * lisp/image/wallpaper.el
+ (wallpaper--default-commands): New defvar.
+ (wallpaper--find-command): Use above new defvar.
+ (wallpaper--find-command-arguments): New defun.
+ (wallpaper-command): Rename from 'wallpaper-commands' and change
+ type to string. Use 'wallpaper--find-command' to set it.
+ (wallpaper-command-args): New defcustom. Use
+ 'wallpaper--find-command-arguments' to set it.
+ (wallpaper--set-wallpaper-command): New defun. Use as :set property
+ for 'wallpaper-command'.
+ (wallpaper-set): Use above new defcustoms to set the wallpaper.
+ Suggested by Eli Zaretskii <eliz@gnu.org>.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve wallpaper.el docs for recent changes
+
+ * lisp/image/wallpaper.el: Fix documentation to better reflect that no
+ external command is needed on Haiku.
+ * etc/NEWS: Update entry on wallpaper.el.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Allow setting wallpaper from TTY
+
+ * lisp/image/wallpaper.el (wallpaper-set): Allow setting wallpaper
+ when 'display-graphic-p' is nil.
+ (wallpaper-default-width, wallpaper-default-height):
+ New variables.
+ (wallpaper--get-height-or-width): New helper function.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/image/wallpaper.el (wallpaper-commands): Add xwallpaper.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Support recent KDE Plasma in wallpaper.el
+
+ * lisp/image/wallpaper.el (wallpaper-commands): Support recent KDE
+ Plasma.
+ (wallpaper--check-command): New cl-defmethod.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix desktop environment check on Ubuntu
+
+ * lisp/image/wallpaper.el (xdg): Require.
+ (wallpaper--check-command): Use xdg-current-desktop instead of reading
+ XDG_CURRENT_DESKTOP directly. This fixes things on e.g. Ubuntu, where
+ XDG_CURRENT_DESKTOP might contain a string like "ubuntu:GNOME".
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new function xdg-current-desktop to xdg.el
+
+ * lisp/xdg.el (xdg-current-desktop): New function.
+ * test/lisp/xdg-tests.el (xdg-current-desktop): New test.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve messages in image-crop.el
+
+ * lisp/image/image-crop.el (image-crop)
+ (image-crop--crop-image-1): Improve messages and include the name
+ of the current operation.
+
+2022-09-14 Po Lu <luangruo@yahoo.com>
+
+ Implement wallpaper.el support for Haiku
+
+ * lisp/image/wallpaper.el (haiku-set-wallpaper, wallpaper-set):
+ Use `haiku-set-wallpaper' on Haiku.
+ * lisp/term/haiku-win.el (haiku-write-node-attribute)
+ (haiku-send-message, haiku-set-wallpaper): New function.
+ * src/haiku_support.cc (be_write_node_message, be_send_message):
+ New functions.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuselect.c (haiku_message_to_lisp)
+ (haiku_lisp_to_message): Fix CSTR type handling to include NULL
+ byte.
+ (haiku_report_system_error, Fhaiku_write_node_attribute)
+ (Fhaiku_send_message): New functions.
+ (syms_of_haikuselect): Add defsubrs.
+
+2022-09-14 Stefan Kangas <stefankangas@gmail.com>
+
+ Support wbg in wallpaper.el (Bug#57781)
+
+ * lisp/image/wallpaper.el (wallpaper-commands): Add "wbg".
+ (wallpaper--check-command): New cl-defmethod for "wbg".
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix recently-added cl-macs tests
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-case-error)
+ (cl-case-warning): Fix warning matches.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make help-fns--generalized-variable more resilient
+
+ * lisp/help-fns.el (help-fns--generalized-variable): Don't bug out
+ when a key binding isn't a symbol.
+
+2022-09-13 Juri Linkov <juri@linkov.net>
+
+ Prefer defvar-keymap for repeat-map in outline.el
+
+ * lisp/outline.el (outline-navigation-repeat-map)
+ (outline-editing-repeat-map): Prefer defvar-keymap.
+
+2022-09-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port alignas definition to C23
+
+ * src/lisp.h (alignas): C23 is removing the __alignas_is_defined
+ macro, so do not rely on it. Instead, do not define alignas if C23
+ or later, or if C++11 or later.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix wallpaper.el build warning
+
+ * lisp/image/wallpaper.el (require): Fix build warning.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix help--analyze-key problem when not called from menu"
+
+ This reverts commit 7e374b96635ce70f574fba351defc765e9a52da9.
+
+ This should not be needed -- perhaps it was triggered by
+ an ephemeral code change in my running Emacs.
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Use wallpaper-set in thumbs.el
+
+ * lisp/thumbs.el (wallpaper): Require.
+ (thumbs-setroot-command): Make defcustom obsolete.
+ (thumbs-call-setroot-command): Make obsolete in favor of
+ wallpaper-set.
+ (thumbs-set-image-at-point-to-root-window, thumbs-set-root)
+ (thumbs-dired-setroot): Use wallpaper-set instead of
+ thumbs-call-setroot-command.
+ (thumbs-before-setroot-hook, thumbs-after-setroot-hook): Make
+ obsolete.
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new command image-dired-set-wallpaper
+
+ * lisp/image/image-dired.el (wallpaper): Require.
+ (image-dired-set-wallpaper): New command.
+ (image-dired-thumbnail-mode-map): Bind above new command to "W".
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new library wallpaper.el
+
+ * lisp/image/wallpaper.el: New file.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove a nil cl-case case
+
+ * lisp/emacs-lisp/testcover.el (testcover-coverage-combine):
+ Remove the nil case, which will never match (bug#51368).
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some misleading quoting in cl-case
+
+ * lisp/progmodes/compile.el (compilation-auto-jump):
+ * lisp/image/image-crop.el (image-crop--crop-image-1):
+ (image-crop--crop-image-1):
+ * lisp/image/exif.el (exif--process-value):
+ * lisp/image-mode.el (image-mode--next-file):
+ * lisp/dnd.el (dnd-begin-text-drag):
+ (dnd-begin-file-drag):
+ (dnd-begin-drag-files): Fix misleading quoting in cl-case (bug#51368).
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-09-13 Philipp Stephani <phst@google.com>
+
+ Have 'cl-case' warn about suspicious cases
+
+ * lisp/emacs-lisp/cl-macs.el (cl-case): Warn if the user passes a nil
+ key list (which would never match). Warn about quoted symbols that
+ should probably be unquoted.
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-case-warning): New unit
+ test (bug#51368).
+
+2022-09-13 Philipp Stephani <phst@google.com>
+
+ Signal an error if a fallback cl-case is misplaced
+
+ * lisp/emacs-lisp/cl-macs.el (cl-case): Warn if the user passes a nil
+ key list (which would never match). Warn about quoted symbols that
+ should probably be unquoted.
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-case-warning): New unit
+ test (bug#51368).
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move imagep in image.c from the debugging section
+
+ * lisp/simple.el (imagep): Remove.
+ * src/image.c (Fimagep): Always define.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix help--analyze-key problem when not called from menu
+
+ * lisp/help.el (help--analyze-key): Don't bug out when not called
+ from the menu.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new commands 'image-crop' and 'image-elide'
+
+ * doc/lispref/display.texi (Showing Images): Document it.
+
+ * lisp/image.el (image-map): Bind commands.
+
+ * lisp/image/image-crop.el: New file (bug#51331).
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function imagep
+
+ * lisp/simple.el (imagep): New function.
+
+2022-09-13 Gerd Möllmann <gerd@gnu.org>
+
+ Fix whitespace-tests on macOS
+
+ * test/lisp/whitespace-tests.el (whitespace-tests--empty-bob):
+ (whitespace-tests--empty-eob): Use C-a/C-e instead of
+ <home>/<end> (bug#57763).
+
+2022-09-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ comp-tests.el: Enable compilation again
+
+ Rather than disable byte-compilation to circumvent bug#51104,
+ change the ELisp code so that `most-positive/negative-fixnum` does
+ not end up hardcoded in the `.elc` file.
+
+ * test/src/comp-tests.el (comp-tests-define-type-spec-test):
+ Don't quote the type expressions.
+ (comp-tests-type-spec-tests): Quote them here instead.
+
+2022-09-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix last change in image.c
+
+ * src/image.c (svg_load_image): Don't call Lisp to remove trailing
+ whitespace from librsvg error messages, do it in C instead; this
+ reduces consing and is much cleaner. Don't display empty error
+ reason if librsvg happens to return an empty message text.
+ (syms_of_image): Don't DEFSYM string-trim-right. (Bug#57755)
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in several cases
+
+ * lisp/calc/calc-embed.el (calc-override-minor-modes-map):
+ * lisp/calc/calc-yank.el (calc-edit-mode-map):
+ * lisp/calc/calc.el (calc-trail-mode-map):
+ * lisp/cedet/semantic/mru-bookmark.el (semantic-mru-bookmark-mode-map):
+ * lisp/cedet/semantic/util-modes.el (semantic-highlight-edits-mode-map)
+ (semantic-show-unmatched-syntax-mode-map)
+ (semantic-show-parser-state-mode-map)
+ (semantic-stickyfunc-mode-map, semantic-highlight-func-mode-map):
+ * lisp/cedet/srecode/srt-mode.el (srecode-template-mode-map):
+ * lisp/gnus/gnus-art.el (gnus-prev-page-map, gnus-next-page-map):
+ * lisp/gnus/gnus-search.el (gnus-search-minibuffer-map):
+ * lisp/gnus/score-mode.el (gnus-score-mode-map):
+ * lisp/gnus/smime.el (smime-mode-map):
+ * lisp/indent.el (edit-tab-stops-map):
+ * lisp/isearch.el (minibuffer-local-isearch-map):
+ * lisp/printing.el (pr-interface-map):
+ * lisp/progmodes/prog-mode.el (prog-mode-map):
+ * lisp/progmodes/subword.el (subword-mode-map):
+ * lisp/reveal.el (reveal-mode-map):
+ * lisp/strokes.el (strokes-mode-map):
+ * lisp/textmodes/flyspell.el (flyspell-mouse-map):
+ * lisp/textmodes/less-css-mode.el (less-css-mode-map):
+ * lisp/textmodes/remember.el (remember-mode-map)
+ (remember-notes-mode-map):
+ * lisp/wid-browse.el (widget-browse-mode-map):
+ * lisp/wid-edit.el (widget-key-sequence-map): Prefer defvar-keymap in
+ some easy-to-convert cases.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Enable undo in eww buffers
+
+ * lisp/net/eww.el (eww-render): Enable undo after rendering. This
+ allows using `undo' in text input boxes.
+ (eww-setup-buffer): Disable undo before rendering (bug#57750).
+
+ * lisp/net/shr.el (shr-image-fetched): Inhibit undo tracking.
+
+2022-09-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Indirect Buffers manual improvement
+
+ * doc/emacs/buffers.texi (Indirect Buffers): There's no point in
+ mentioning both clone-indirect-buffer and
+ clone-indirect-buffer-other-window here since they do the pretty
+ much the same (bug#57753).
+
+2022-09-13 dickmao <dick.r.chiang@gmail.com>
+
+ Avoid double svg error reporting and segfaults
+
+ * src/image.c (svg_load_image): Use g_error_free directly instead
+ of the helder g_clear_error (since we're only calling it with
+ non-nil values).
+ (svg_load_image): Avoid segfault and double reporting errors.
+ * test/manual/image-tests.el (image-tests-load-image/svg-too-big)
+ (image-tests-load-image/svg-invalid): Test it (bug#57755).
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in pixel-scroll-precision-mode-map
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Prefer
+ defvar-keymap.
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in tab-line.el
+
+ * lisp/tab-line.el (tab-line-tab-map, tab-line-add-map)
+ (tab-line-tab-close-map, tab-line-left-map, tab-line-right-map):
+ Prefer defvar-keymap.
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in lisp/epa*.el
+
+ * lisp/epa-ks.el (epa-ks-search-mode-map):
+ * lisp/epa.el (epa-key-list-mode-map, epa-key-mode-map): Prefer
+ defvar-keymap.
+
+2022-09-13 Po Lu <luangruo@yahoo.com>
+
+ Fix frames with explicit parent being unmapped after parent shuts down
+
+ * src/xterm.c (handle_one_xevent): Delete leftover _XEMBED_INFO
+ property after parent shuts down.
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 86f0601392 ; * admin/notes/www: Fix typos.
+ 2cdb9d03fd ; * admin/make-tarball.txt: Minor clarifications.
+
+2022-09-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 739b5d0e52 Update HISTORY for Emacs 28.2
+
+2022-09-12 Stefan Kangas <stefankangas@gmail.com>
+
+ * Version 28.2 released.
+
+2022-09-12 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix comp-tests.el problem after reconfiguring
+
+ * test/src/comp-tests.el: Do not byte-compile, as the .elc
+ file would be machine-dependent (bug#51104).
+
+2022-09-12 Juri Linkov <juri@linkov.net>
+
+ Document the recently added branch commands (bug#50344)
+
+ * doc/emacs/maintaining.texi (VC Directory Commands): Change the
+ prefix key from "B" to "b". Replace vc-create-tag with
vc-create-branch,
+ and vc-retrieve-tag with vc-switch-branch.
+ (Switching Branches): Mention vc-switch-branch bound to 'C-x v b s'.
+ (Creating Branches): Mention vc-create-branch bound to 'C-x v b c'.
+
+ * lisp/vc/vc-dir.el (vc-dir-mode-map): In branch keymap 'b' rebind
+ "c" from vc-create-tag to vc-create-branch, and "s" from
+ vc-retrieve-tag to vc-switch-branch.
+
+2022-09-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc.el (vc-print-branch-log): Fix interactive spec.
+
+ For reading vc-read-revision in the interactive spec use the same
'backend'
+ and 'rootdir' as in the body of the same function.
+
+2022-09-12 Juri Linkov <juri@linkov.net>
+
+ 'C-x v b' prefix key is used for branch commands to create/switch/print
branch
+
+ * lisp/vc/vc.el (vc-create-branch): New command.
+ (vc-retrieve-tag): Add new optional arg 'branchp'.
+ (vc-switch-branch): New command (bug#50344).
+
+ * lisp/vc/vc-hooks.el (vc-prefix-map): Bind "b c" to vc-create-branch,
+ "b l" to vc-print-branch-log, "b s" to vc-switch-branch. Remove
obsolete
+ and suppressed "b" from vc-switch-backend.
+
+ * lisp/vc/vc-dir.el (vc-dir-mode-map): Rebind 'branch-map' from "B" to
"b"
+ for consistency with 'vc-prefix-map'.
+
+ * lisp/vc/vc-git.el (vc-git-create-tag): For a new branch read
+ its start-point. Ask a confirmation if modified files exist.
+
+2022-09-12 Sean Whitton <spwhitton@spwhitton.name>
+
+ Add new C-x w prefix map
+
+ * window.el (window-prefix-map): New map.
+ (ctl-x-map): Unbind split-root-window-below and
+ split-root-window-right. Bind window-prefix-map to C-x w.
+
+2022-09-12 Stefan Kangas <stefankangas@gmail.com>
+
+ Skip manual GIF metadata test on MS-Windows
+
+ * test/manual/image-tests.el
+ (image-skip-unless): Add new arg CONDITION.
+ (image-tests-image-metadata/gif): Skip test on MS-Windows when
+ using native image API. (Bug#57691)
+
+2022-09-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't overwrite error message in `x' in package.el
+
+ * lisp/emacs-lisp/package.el (package-menu--perform-transaction):
+ Return whether there were errors.
+ (package-menu-execute): Don't overwrite the error message(s) with
+ a success message (bug#51201).
+
+2022-09-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove some XEmacs references in speedbar.el
+
+ * lisp/speedbar.el (speedbar-toggle-etags): Remove some references
+ to etags support being XEmacs specific (bug#51102).
+
+2022-09-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document :vert-only tool bar property
+
+ * doc/lispref/keymaps.texi (Tool Bar): Document what :vert-only
+ does (bug#51049). This is not what it was intended to do -- but
+ what it intended to do didn't really make that much sense either,
+ so perhaps the prop should just be renamed :image-only?
+
+2022-09-12 Arthur Miller <arthur.miller@live.com>
+
+ Remove edebug props in edebug-remove-instrumentation
+
+ * lisp/emacs-lisp/edebug.el (edebug--strip-plist): New function
+ (bug#51026).
+ (edebug-remove-instrumentation): Use it to remove pros added while
+ running edebug.
+
+2022-09-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix length issues in gnus-cloud-make-chunk
+
+ * lisp/gnus/gnus-cloud.el (gnus-cloud-make-chunk): Make buffer
+ unibyte (bug#50988).
+
+2022-09-12 Arash Esbati <arash@gnu.org>
+
+ Consider key=val labels when renumbering
+
+ * lisp/textmodes/reftex-global.el (reftex-translate): Recognize
+ key=val labels given in the optional or mandatory argument of
+ environments (AUCTeX bug#57720).
+
+ * test/lisp/textmodes/reftex-tests.el
+ (reftex-renumber-simple-labels): New Test.
+
+2022-09-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp test
+
+ * lisp/net/tramp-compat.el (tramp-compat-rx):
+ Add `tramp-autoload' function property.
+
+2022-09-12 Po Lu <luangruo@yahoo.com>
+
+ Fix focus restoration upon x_mouse_leave again
+
+ * src/xterm.c (x_mouse_leave): Call xi_handle_focus_change after
+ changing the implicit focus.
+
+2022-09-11 Stefan Kangas <stefankangas@gmail.com>
+
+ Update HISTORY for Emacs 28.2
+
+ * etc/HISTORY: Update for the Emacs 28.2 release.
+
+2022-09-11 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el: Bump the version.
+
+2022-09-11 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Restrict replace-*-in-region to the bounds defined by caller
+
+ * lisp/subr.el (replace-string-in-region, replace-regexp-in-region):
+ Narrow to region before iterating over matches, instead of giving a
+ bound to the search functions.
+ * test/lisp/subr-tests.el (test-replace-string-in-region): Add
+ regression tests (bug#57733).
+
+2022-09-11 Michael Albinus <michael.albinus@gmx.de>
+
+ Disable Tramp cache for relative file names
+
+ * lisp/net/tramp.el (tramp-file-name-unify):
+ Return `tramp-cache-undefined' if LOCALNAME is a relative file name.
+
+ * lisp/net/tramp-cache.el (tramp-get-file-property)
+ (tramp-set-file-property, tramp-file-property-p)
+ (tramp-flush-file-property, tramp-flush-file-upper-properties)
+ (tramp-flush-file-properties): Handle KEY being
+ `tramp-cache-undefined'.
+ (tramp-flush-file-function): Revert last change.
+
+2022-09-11 Richard Hansen <rhansen@rhansen.org>
+
+ whitespace: Redo BoB/EoB empty line highlighting
+
+ * lisp/whitespace.el (whitespace--empty-at-bob-matcher,
+ whitespace--empty-at-eob-matcher, whitespace--update-bob-eob,
+ whitespace-color-off, whitespace-color-on,
+ whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp,
+ whitespace-looking-back, whitespace-post-command-hook): Redo the
+ `empty' line highlighting logic to ensure that a buffer change causes
+ all affected `empty' lines to become (un)highlighted (bug#37467).
+ Also, for improved UX, don't highlight BoB empty lines at or below
+ point (not just when point is at 1), or EoB empty lines at or above
+ point (not just when point is `eobp').
+ (whitespace-bob-marker, whitespace-eob-marker): Clarify documentation.
+ * test/lisp/whitespace-tests.el (whitespace--with-test-buffer,
+ whitespace--fu, whitespace-tests--empty-bob,
+ whitespace-tests--empty-eob): Add tests.
+
+2022-09-11 Richard Hansen <rhansen@rhansen.org>
+
+ whitespace: Include empty final line in BoB empty match
+
+ * lisp/whitespace.el (whitespace-empty-at-bob-regexp): Include any
+ last line trailing whitespace in the BoB empty line match to ensure
+ that those characters get highlighted.
+
+2022-09-11 Richard Hansen <rhansen@rhansen.org>
+
+ whitespace: Reset `whitespace-buffer-changed' when refontifying
+
+ * lisp/whitespace.el (whitespace-post-command-hook): Add missing reset
+ of `whitespace-buffer-changed' back to nil between commands.
+
+2022-09-11 Richard Hansen <rhansen@rhansen.org>
+
+ ert-x: New `ert-with-test-buffer-selected' convenience macro
+
+ * lisp/emacs-lisp/ert-x.el (ert-with-test-buffer-selected): New
+ convenience macro that extends `ert-with-test-buffer' by displaying
+ the test buffer in a temporary selected window. This makes it easier
+ to simulate user input in the body via `execute-kbd-macro'.
+ * test/lisp/emacs-lisp/ert-x-tests.el
+ (ert-test-test-buffer-selected/*): Add tests.
+
+2022-09-11 Philip Kaludercic <philipk@posteo.net>
+
+ Revert "Add new command 'toggle-theme'"
+
+ This reverts commit f31b9d86a67f1b3fd70339f277dff52478890351.
+
+2022-09-11 Philip Kaludercic <philipk@posteo.net>
+
+ Revert "Add new user option 'custom-ensure-single-theme'"
+
+ This reverts commit b4dbf7184cd68ecd8d1a27fbc1407be0eae7e64c.
+
+2022-09-11 Philip Kaludercic <philipk@posteo.net>
+
+ Add new user option 'custom-ensure-single-theme'
+
+ * etc/NEWS: Mention it.
+ * lisp/custom.el (custom-ensure-single-active-theme): Add it.
+ (load-theme): Use it.
+
+2022-09-11 Philip Kaludercic <philipk@posteo.net>
+
+ Add new command 'toggle-theme'
+
+ * doc/emacs/custom.texi (Custom Themes): Mention it.
+ * etc/themes/leuven-dark-theme.el (leuven-dark): Add dual theme.
+ * etc/themes/leuven-theme.el (leuven): Add dual theme.
+ * etc/themes/tango-dark-theme.el (tango-dark): Add dual theme.
+ * etc/themes/tango-theme.el (tango): Add dual theme.
+ * etc/themes/tsdh-dark-theme.el (tsdh-dark): Add dual theme.
+ * etc/themes/tsdh-light-theme.el (tsdh-light): Add dual theme.
+ * lisp/cus-theme.el (describe-theme-1): Say if a theme has a dual.
+ * lisp/custom.el (toggle-theme): Add new command.
+
+2022-09-11 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Improve some shell highlight doc strings
+
+ * lisp/shell.el (shell-highlight-undef-mode-restart): Rename function.
+ * lisp/shell.el (shell-comint-fl-enable):
+ (shell--highlight-undef-indirect)
+ * lisp/ielm.el (ielm-comint-fl-enable):
+ * lisp/comint.el: (comint--fl-fontify-region): Improve doc strings.
+
+2022-09-11 Po Lu <luangruo@yahoo.com>
+
+ Make it easier to clear the Motif drag window for debugging
+
+ * src/xterm.c (xm_get_drag_window_1): Add comment explaining
+ side effect of x_special_window_exists_p.
+ (handle_one_xevent): Clear Motif drag window upon DestroyNotify.
+ In addition to debugging, it also reduces syncs necessary to
+ communicate via the Motif protocol after a defective/old client
+ sets the drag window without setting the disconnect mode.
+
+2022-09-11 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc.el (vc-diff-patch-string): Fix arg in
revert-buffer-function.
+
+2022-09-11 Sean Whitton <spwhitton@spwhitton.name>
+
+ * lisp/vc/vc.el (vc-deduce-backend): Handle eshell-mode.
+
+2022-09-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from sdwolfz/native-compiler-warning
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/998
+
+2022-09-10 Codruț Constantin Gușoi <mail+git@codrut.pro>
+
+ Fix emacs native compilation warning for bind-key
+
+ To reproduce, have emacs built with native compilation and notice the
+ compilation logs. You can then open the offending file and run `M-x
+ emacs-lisp-native-compile-and-load` before and after the changes to see
+ the warning is removed.
+
+ ```
+ ■ Warning (comp): bind-key.el:150:2: Warning: docstring has wrong
+ usage of unescaped single quotes (use \= or different quoting)
+ ```
+
+2022-09-10 ookami <mail@ookami.one> (tiny change)
+
+ Fix project-remember-projects-under when recursing
+
+ * lisp/progmodes/project.el (project-remember-projects-under):
+ Actually recurse into directories (bug#57714).
+
+2022-09-10 Michael Albinus <michael.albinus@gmx.de>
+
+ Ensure, that Tramp cache works over absolute file names
+
+ * lisp/net/tramp.el (tramp-skeleton-directory-files)
+ (tramp-skeleton-directory-files-and-attributes)
+ (tramp-skeleton-set-file-modes-times-uid-gid)
+ (tramp-handle-add-name-to-file, tramp-handle-file-exists-p)
+ (tramp-handle-file-readable-p, tramp-handle-file-writable-p):
+ * lisp/net/tramp-adb.el (tramp-adb-handle-file-executable-p)
+ (tramp-adb-handle-file-exists-p)
+ (tramp-adb-handle-file-readable-p)
+ (tramp-adb-handle-file-writable-p)
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-info,
tramp-gvfs-handle-delete-file)
+ (tramp-gvfs-get-directory-attributes)
+ (tramp-gvfs-get-root-attributes)
+ (tramp-gvfs-handle-file-executable-p):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-make-symbolic-link)
+ (tramp-sh-handle-file-exists-p)
+ (tramp-sh-handle-set-visited-file-modtime)
+ (tramp-sh-handle-file-selinux-context)
+ (tramp-sh-handle-set-file-selinux-context)
+ (tramp-sh-handle-file-acl, tramp-sh-handle-file-executable-p)
+ (tramp-sh-handle-file-readable-p)
+ (tramp-sh-handle-file-directory-p)
+ (tramp-sh-handle-file-writable-p)
+ (tramp-sh-handle-file-ownership-preserved-p)
+ (tramp-sh-handle-add-name-to-file)
+ (tramp-sh-handle-copy-directory, tramp-sh-handle-delete-file)
+ (tramp-sh-handle-dired-compress-file):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-add-name-to-file)
+ (tramp-sudoedit-handle-delete-file)
+ (tramp-sudoedit-handle-file-acl)
+ (tramp-sudoedit-handle-file-executable-p)
+ (tramp-sudoedit-handle-file-exists-p)
+ (tramp-sudoedit-handle-file-readable-p)
+ (tramp-sudoedit-handle-file-selinux-context)
+ (tramp-sudoedit-handle-file-writable-p)
+ (tramp-sudoedit-handle-make-symbolic-link)
+ (tramp-sudoedit-handle-set-file-selinux-context):
+ Use `expand-file-name'. (Bug#57572)
+
+ * lisp/net/tramp-cache.el (tramp-flush-file-function):
+ Expand `buffer-file-name'. (Bug#57676)
+
+ * lisp/net/tramp.el (tramp-file-name-unify): Extend error message.
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-make-symbolic-link):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-make-symbolic-link):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-make-symbolic-link):
+ Do not check remoteness of TARGET anymore.
+
+2022-09-10 Po Lu <luangruo@yahoo.com>
+
+ Fix compliance with the XDND specification when dropping on a proxy
+
+ * src/xterm.c (x_dnd_send_enter, x_dnd_send_position)
+ (x_dnd_send_leave, x_dnd_send_drop, x_dnd_do_drop): New
+ parameter `toplevel'. Use it as the window in sent client
+ messages.
+ (x_dnd_cancel_dnd_early, x_dnd_cleanup_drag_and_drop)
+ (x_dnd_process_quit, x_dnd_update_state, handle_one_xevent)
+ (x_connection_closed): Give the right toplevel to the client
+ message sending functions.
+
+2022-09-10 Paul Eggert <eggert@cs.ucla.edu>
+
+ Make wdired match dired with symlink permissions
+
+ * lisp/wdired.el (wdired-do-perm-changes): Do not follow symlinks,
+ to be consistent with plain dired (bug#50189).
+
+2022-09-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `format-prompt' use `substitute-command-keys'
+
+ * doc/lispref/minibuf.texi (Text from Minibuffer): Mention it.
+ * lisp/minibuffer.el (format-prompt): Run through
+ `substitute-command-keys' (bug#51040).
+
+2022-09-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix diff-mode.el compilation warnings
+
+ * lisp/vc/diff-mode.el (diff-auto-refine-mode): Suppress
+ byte-compile warnings.
+
+2022-09-10 Stefan Kangas <stefan@marxist.se>
+
+ New function substitute-quotes
+
+ * lisp/help.el (substitute-quotes): New function. (Bug#51040)
+ * doc/lispref/help.texi (Keys in Documentation): Document
+ substitute-quotes.
+ * test/lisp/help-tests.el (help-tests-substitute-quotes): New test.
+
+ * lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
+ * lisp/cus-theme.el (describe-theme-1):
+ * lisp/emacs-lisp/cl-extra.el (cl--describe-class):
+ * lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
+ * lisp/emacs-lisp/package.el (describe-package-1):
+ * lisp/help-fns.el (help-fns--parent-mode, help-fns--var-risky)
+ (help-fns--var-file-local, help-fns--var-bufferlocal)
+ (describe-face):
+ * lisp/help.el (substitute-command-keys):
+ * lisp/progmodes/octave.el (octave-help): Use the new function
+ instead of 'substitute-command-keys'.
+
+2022-09-10 Stefan Kangas <stefan@marxist.se>
+
+ Doc fixes for 'text-quoting-style'
+
+ * doc/lispref/help.texi (Keys in Documentation): Remove duplicate
+ entry for 'text-quoting-style'. Document the function with the same
+ name instead.
+ * src/doc.c (Ftext_quoting_style): Doc fix: clarify the return values.
+ (syms_of_doc) <Vtext_quoting_style>: Doc fix: clarify that you should
+ not read the value of this variable directly; use Ftext_quoting_style
+ instead (bug#51040).
+
+2022-09-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make a flymake.texi code example more resilient
+
+ * doc/misc/flymake.texi (An annotated example backend): Make the
+ example code resilient wrt. narrowed buffers (bug#51437).
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ * src/w32image.c (w32_can_use_native_image_api): Fix comment.
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Support outline-minor-mode in emacs-authors-mode
+
+ * lisp/textmodes/emacs-authors-mode.el (emacs-authors-mode):
+ Support and enable outline-minor-mode.
+
+2022-09-09 Po Lu <luangruo@yahoo.com>
+
+ Fix several printfs for 32 bit systems
+
+ * lib-src/emacsclient.c (main): Use right length modifier when
+ printing uintmax_t.
+ * src/alloc.c (check_pure_size): Use right length modifier when
+ printing ptrdiff_t.
+
+2022-09-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from CeleritasCelery/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/743
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/subr.el (string-split): New alias for split-string.
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Set vc-git-annotate-switches to "-w" in .dir-locals.el
+
+ * .dir-locals.el: Set vc-git-annotate-switches to "-w".
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-09/msg00453.html
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Accept "-w" as safe value for vc-git-annotate-switches
+
+ * lisp/vc/vc-git.el
+ (vc-git-annotate-switches-safe-p): New predicate function.
+ (vc-git-annotate-switches): Use above new predicate function to
+ check if it's :safe.
+
+2022-09-09 Theodor Thornhill <theo@thornhill.no>
+
+ Prefer documentchanges to changes in server-initiated edits
+
+ Some servers return both.
+
+ PR: https://github.com/joaotavora/eglot/issues/949
+
+ * eglot.el (eglot--apply-workspace-edit): When both documentChanges
+ and changes are present, prefer the documentChanges. By doing that we
+ ensure that we don't double edit, rendering the document in an
+ unusable state.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/704
+
+2022-09-09 jgart <47760695+jgarte@users.noreply.github.com> (tiny change)
+
+ Add support for jedi-language-server (again)
+
+ * eglot.el (eglot-server-programs): Add jedi-language-server
+
+ * README.md: Mention jedi-language-server
+
+ * NEWS.md: Mention jedi-language-server
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/961
+
+2022-09-09 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix problem with Glib 2.73.2+ and SIGCHLD handler
+
+ This code fix is by Stefan Monnier (Bug#57699).
+ * src/process.c (init_process_emacs) [HAVE_GLIB && !WINDOWSNT]:
+ Adjust to Glib 2.73.2 behavior change on Linux kernel 5.3+.
+
+2022-09-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from sdwolfz/native-compiler-warning
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/997
+
+2022-09-09 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Input indentation for M-x shell
+
+ * lisp/comint.el
+ (comint-indent-input-line):
+ (comint-indent-input-line-default):
+ (comint-indent-input-region):
+ (comint-indent-input-region-default): New functions that implement a
+ general mechanism for input indentation through an indirect buffer in
+ comint derived major modes.
+ * lisp/shell.el (shell-mode): Set up input indentation according to
+ sh-mode (bug#51940).
+
+2022-09-09 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Highlight non-existent commands in M-x shell
+
+ * lisp/shell.el (shell-mode): Enable highlighting of non-existent
+ commands if requested.
+ (shell-highlight-undef-aliases):
+ (shell-highlight-undef-remote-file-name-inhibit-cache): New user
+ options.
+ (shell-highlight-undef-mode): New minor mode.
+ (shell-highlight-undef-defined-face):
+ (shell-highlight-undef-undefined-face):
+ (shell-highlight-undef-alias-face): New faces.
+ (shell-highlight-undef--exec-cache):
+ (shell-highlight-undef--face):
+ (shell-highlight-undef-keywords):
+ (shell-highlight-undef-regexp):
+ (shell-highlight-undef--executable-find):
+ (shell-highlight-undef-matcher):
+ (shell-highlight-undef--indirect):
+ (shell-highlight--setup):
+ (shell-highlight-undef-reset-mode): New functions and buffer local
+ variables (bug#51940).
+
+2022-09-09 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Input fontification for M-x ielm
+
+ * lisp/ielm.el (ielm-comint-fl-enable): New user option to control
+ input fontification.
+ (ielm-indirect-setup-hook): New hook.
+ (inferior-emacs-lisp-mode): Set up and enable input fontification.
+
+2022-09-09 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Input fontification for M-x shell
+
+ * lisp/comint.el
+ (comint-indent-input-line):
+ (comint-indent-input-line-default):
+ (comint-indent-input-region):
+ (comint-indent-input-region-default): New functions that implement a
+ general mechanism for input indentation through an indirect buffer in
+ comint derived major modes.
+ * lisp/shell.el (shell-mode): Set up input indentation according to
+ sh-mode (bug#51940).
+ * lisp/comint.el
+ (comint-indent-input-line):
+ (comint-indent-input-line-default):
+ (comint-indent-input-region):
+ (comint-indent-input-region-default): New functions that implement a
+ general mechanism for input indentation through an indirect buffer in
+ comint derived major modes.
+ * lisp/shell.el (shell-mode): Set up input indentation according to
+ sh-mode (bug#51940).
+
+2022-09-09 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Implement a general input fontification mechanism for comint modes
+
+ * lisp/comint.el
+ (comint-indent-input-line):
+ (comint-indent-input-line-default):
+ (comint-indent-input-region):
+ (comint-indent-input-region-default): New functions that implement a
+ general mechanism for input indentation through an indirect buffer in
+ comint derived major modes.
+ * lisp/shell.el (shell-mode): Set up input indentation according to
+ sh-mode (bug#51940).
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix "warn-lambda-malformed-interactive-spec.el" even more
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ ("warn-lambda-malformed-interactive-spec.el"): Adjust test further.
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't bind `s' in the normal backtrace map
+
+ * lisp/emacs-lisp/backtrace.el (backtrace-mode-map): Don't bind
+ the "s" command, because it's meaningless outside modes that have
+ set the backtrace-goto-source-functions variable (and only edebug
+ does that) (bug#57674).
+ * lisp/emacs-lisp/edebug.el (edebug-pop-to-backtrace): Use it.
+ (edebug-backtrace-mode-map, edebug-backtrace-mode): New mode.
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update a bytecomp test
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ ("warn-lambda-malformed-interactive-spec.el"): Update test to code
+ change.
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in byte-compile-lambda warning
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-lambda): Fix typo in
+ message (bug#57690).
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix --without-x compilation warnings
+
+ * lisp/image/image-dired.el (clear-image-cache):
+ * lisp/image/image-dired-external.el (clear-image-cache): Fix
+ compilation warning (bug#57695).
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix tramp-loaddefs compilation"
+
+ This reverts commit 43e9c8e9d28dcb659a43e58778e2745d1279051f.
+
+ The cookie seemed to go to lisp/loaddefs.el for a reason, but a
bootstrap is needed.
+
+2022-09-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix tramp-loaddefs compilation
+
+ * lisp/net/tramp-compat.el: Fix build by putting tramp-compat-rx
+ in the right loaddefs file.
+
+2022-09-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Make use of rx in Tramp backward compatoble
+
+ * lisp/net/tramp-compat.el (tramp-compat-rx--runtime-params): New
defvar.
+ (tramp-compat-rx--transform-items)
+ (tramp-compat-rx--transform-item, tramp-compat-rx--transform):
+ New defuns. Suggested by Mattias Engdegård <mattiase@acm.org>.
+ (tramp-compat-rx): New defalias or defmacro.
+ (tramp-compat-string-replace, tramp-compat-string-search):
+ Use regexp-quote.
+
+ * lisp/net/tramp.el:
+ * lisp/net/tramp-adb.el:
+ * lisp/net/tramp-archive.el:
+ * lisp/net/tramp-cmds.el:
+ * lisp/net/tramp-crypt.el:
+ * lisp/net/tramp-fuse.el:
+ * lisp/net/tramp-gvfs.el:
+ * lisp/net/tramp-sh.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-sudoedit.el: Use `tramp-compat-rx' where indicated.
+
+ * test/lisp/net/tramp-archive-tests.el:
+ * test/lisp/net/tramp-tests.el: Use `tramp-compat-rx' where indicated.
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix SVG loading test for old librsvg 2.40.1
+
+ * test/manual/image-tests.el (image-tests-load-image/svg-invalid): Fix
+ test for old librsvg 2.40.1. (Bug#57691)
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't warn about some deleted variables in rst.el
+
+ * lisp/textmodes/rst.el (rst-level-face-max)
+ (rst-level-face-base-color, rst-level-face-base-light)
+ (rst-level-face-format-light, rst-level-face-step-light)
+ (rst-level-1-face, rst-level-2-face, rst-level-3-face)
+ (rst-level-4-face, rst-level-5-face, rst-level-6-face): Don't issue
+ obsoletion warnings for variables deleted in 24.3.
+
+2022-09-09 Stefan Kangas <stefan@marxist.se>
+
+ Delete variable window-system-version obsolete since 24.3
+
+ * lisp/frame.el (window-system-version): Delete variable.
+ * src/dispnew.c (syms_of_display) <Vwindow_system_version>:
+ Delete DEFVAR, obsolete since 24.3.
+ (init_display_interactive, syms_of_display_for_pdumper):
+ * src/msdos.c (internal_terminal_init):
+ * src/nsterm.m (ns_term_init):
+ * src/pgtkfns.c (pgtk_display_info_for_name):
+ * src/w32fns.c (w32_display_info_for_name, Fx_open_connection):
+ * src/xfns.c (x_display_info_for_name, Fx_open_connection): Don't
+ set above deleted variable.
+ * admin/admin.el (set-version): Don't update above deleted
+ variable in msdos.c.
+ * lisp/textmodes/artist.el (artist-submit-bug-report): Don't use
+ above deleted variable.
+
+2022-09-09 Stefan Kangas <stefan@marxist.se>
+
+ Delete many items obsolete since 24.3
+
+ * lisp/allout.el (allout-exposure-change-hook)
+ (allout-structure-added-hook, allout-structure-deleted-hook)
+ (allout-structure-shifted-hook):
+ * lisp/arc-mode.el (archive-extract-hooks):
+ * lisp/buff-menu.el (Buffer-menu-buffer+size-width):
+ * lisp/calendar/timeclock.el (timeclock-modeline-display)
+ (timeclock-modeline-display, timeclock-update-modeline):
+ * lisp/cedet/semantic/db-el.el
+ (semanticdb-elisp-sym-function-arglist):
+ * lisp/cedet/semantic/db-file.el (semanticdb-save-database-hooks):
+ * lisp/cedet/semantic/edit.el (semantic-change-hooks)
+ (semantic-edits-new-change-hooks)
+ (semantic-edits-delete-change-hooks)
+ (semantic-edits-reparse-change-hooks):
+ * lisp/cedet/semantic/lex.el (semantic-lex-reset-hooks):
+ * lisp/comint.el (comint--unquote&expand-filename)
+ (comint-unquote-filename):
+ * lisp/custom.el (user-variable-p):
+ * lisp/dired.el (dired-shrink-to-fit, dired-pop-to-buffer)
+ (dired-sort-set-modeline):
+ * lisp/ebuff-menu.el (Electric-buffer-menu-mode):
+ * lisp/emacs-lisp/byte-run.el (macro-declaration-function):
+ * lisp/emacs-lisp/checkdoc.el (custom-print-functions)
+ (checkdoc-comment-style-hooks):
+ * lisp/emacs-lisp/cl-lib.el (custom-print-functions):
+ * lisp/emacs-lisp/edebug.el (gud-inhibit-global-bindings):
+ * lisp/erc/erc-dcc.el (erc-dcc-chat-filter-hook):
+ * lisp/eshell/esh-mode.el (eshell-status-in-modeline):
+ * lisp/eshell/eshell.el (eshell-add-to-window-buffer-names)
+ (eshell-remove-from-window-buffer-names):
+ * lisp/faces.el (set-face-underline-p, font-list-limit):
+ * lisp/files.el (automount-dir-prefix, toggle-read-only):
+ * lisp/filesets.el (filesets-cache-fill-content-hooks):
+ * lisp/frame.el (automatic-hscrolling):
+ * lisp/generic-x.el (javascript-generic-mode)
+ (javascript-generic-mode-hook):
+ * lisp/gnus/gnus-start.el (gnus-subscribe-newsgroup-hooks):
+ * lisp/gnus/nndiary.el (nndiary-request-create-group-hooks)
+ (nndiary-request-update-info-hooks)
+ (nndiary-request-accept-article-hooks):
+ * lisp/htmlfontify.el (hfy-post-html-hooks):
+ * lisp/international/mule-cmds.el
+ (inactivate-current-input-method-function)
+ (inactivate-input-method, input-method-inactivate-hook)
+ (ucs-insert):
+ * lisp/international/quail.el (quail-inactivate)
+ (quail-inactivate-hook):
+ * lisp/international/robin.el (robin-inactivate)
+ (robin-inactivate-hook):
+ * lisp/leim/quail/hangul.el (hangul-input-method-inactivate):
+ * lisp/leim/quail/uni-input.el (ucs-input-inactivate):
+ * lisp/mail/emacsbug.el (report-emacs-bug-info):
+ * lisp/mh-e/mh-e.el (mh-kill-folder-suppress-prompt-hooks):
+ * lisp/mpc.el (mpc-string-prefix-p):
+ * lisp/net/rcirc.el (rcirc-print-hooks, rcirc-sentinel-hooks)
+ (rcirc-receive-message-hooks, rcirc-activity-hooks):
+ * lisp/obsolete/crisp.el (crisp-mode-modeline-string):
+ * lisp/pcomplete.el (pcomplete-arg-quote-list)
+ (pcomplete-quote-argument):
+ * lisp/progmodes/cc-mode.el (c-prepare-bug-report-hooks):
+ * lisp/progmodes/python.el (python-info-ppss-context)
+ (python-info-ppss-context-type)
+ (python-info-ppss-comment-or-string-p, python-indent)
+ (python-guess-indent, python-buffer, python-preoutput-result)
+ (python-proc, python-send-receive, python-send-string)
+ (python-use-skeletons):
+ * lisp/progmodes/sh-script.el (sh-maybe-here-document):
+ * lisp/replace.el (query-replace-interactive):
+ * lisp/strokes.el (strokes-modeline-string):
+ * lisp/subr.el (redraw-modeline):
+ * lisp/term.el (term-default-fg-color, term-default-bg-color):
+ * lisp/textmodes/tex-mode.el (latex-string-prefix-p)
+ (tex-string-prefix-p):
+ * lisp/url/url-parse.el (url-recreate-url-attributes):
+ * lisp/vc/add-log.el (change-log-acknowledgement):
+ * lisp/vc/ediff-wind.el
+ (ediff-choose-window-setup-function-automatically):
+ * lisp/vc/pcvs-util.el (cvs-string-prefix-p):
+ * lisp/vc/vc.el (vc-string-prefix-p):
+ * lisp/window.el (display-buffer-function):
+ * lisp/winner.el (winner-mode-leave-hook): Remove many functions and
+ variables obsolete since 24.3.
+
+ * lisp/buff-menu.el (list-buffers--refresh):
+ * lisp/dired.el (dired-mode-map):
+ * lisp/files.el (abbreviate-file-name):
+ * lisp/generic-x.el (generic-default-modes):
+ * lisp/mh-e/mh-funcs.el (mh-kill-folder):
+ * lisp/progmodes/hideif.el (hide-ifdef-mode-submap):
+ * lisp/replace.el (query-replace-read-from):
+ * lisp/term.el (term):
+ * lisp/window.el (display-buffer): Don't use above deleted
+ functions and variables.
+
+ * src/marker.c (Fbuffer_has_markers_at): Delete DEFUN obsolete
+ since 24.3.
+ (syms_of_marker) <Sbuffer_has_markers_at>: Delete defsubr.
+ * lisp/subr.el (buffer-has-markers-at): Remove obsoletion
+ of above deleted DEFUN.
+ * etc/TODO: Doc fix; don't mention above deleted function.
+
+ * admin/cus-test.el (cus-test-get-options):
+ * lisp/pcomplete.el: Doc fixes; don't mention removed items.
+
+2022-09-09 Stefan Kangas <stefankangas@gmail.com>
+
+ Display error in emacsclient if setsockopt failed
+
+ * lib-src/emacsclient.c (set_tcp_socket, set_socket_timeout): Display
+ an error message if setsockopt failed.
+
+2022-09-09 Po Lu <luangruo@yahoo.com>
+
+ Remove some redundant calls to x_ignore_errors_for_next_request
+
+ * src/xterm.c (x_dnd_do_unsupported_drop, x_set_frame_alpha):
+ Wrap some requests in x_ignore_errors_for_next_request instead
+ of calling it each time.
+
+2022-09-09 Codruț Constantin Gușoi <mail+git@codrut.pro>
+
+ Fix emacs native compilation warning
+
+ ```
+ ■ Warning (comp): use-package-core.el:907:2: Warning: docstring has
+ wrong usage of unescaped single quotes (use \= or different quoting)
+ ■ Warning (comp): use-package-core.el:930:2: Warning: docstring has
+ wrong usage of unescaped single quotes (use \= or different quoting)
+ ```
+
+ To reproduce, have emacs build with native compilation and notice the
+ compilation logs. You can then open this file and run `M-x
+ emacs-lisp-native-compile-and-load` before and after the changes to see
the
+ warning is removed.
+
+2022-09-08 Po Lu <luangruo@yahoo.com>
+
+ Remove long-broken TESTRM interface
+
+ * src/xrdb.c: [TESTRM]:
+ (fatal, main): Delete functions and code block. They don't work
+ and rely on XLIB_ILLEGAL_ACCESS.
+
+2022-09-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in proced.el
+
+ * lisp/proced.el (proced-mode-map): Prefer defvar-keymap.
+
+2022-09-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Set indent-tabs-mode for lisp-data-mode in .dir-locals.el
+
+ * .dir-locals.el (lisp-data-mode): Enforce existing indent-tabs-mode
+ policy.
+
+2022-09-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Display librsvg error when loading bad SVG
+
+ * src/image.c (svg_load_image): Display the error message from librsvg
+ when parsing a bad SVG image file.
+ * test/manual/image-tests.el
+ (image-tests-load-image/svg-invalid): New test.
+
+2022-09-08 João Távora <joaotavora@gmail.com>
+
+ Don't return poorly supported "special elements" in eglot-imenu
+
+ Fix https://github.com/joaotavora/eglot/issues/758,
https://github.com/joaotavora/eglot/issues/536,
https://github.com/joaotavora/eglot/issues/535.
+
+ Eglot's eglot-imenu returned a structure compliant with the rules
+ outlined in imenu--index-alist. In particular, it returned some
+ elements of the form
+
+ (INDEX-NAME POSITION GOTO-FN ARGUMENTS...)
+
+ The original intention (mine) must have been to allow fancy
+ highlighting of the position navigated to with a custom GOTO-FN.
+
+ Not only was access to that fanciness never implemented, but many
+ other imenu frontends do not support such elements.
+
+ See for example https://github.com/joaotavora/eglot/issues/758,
https://github.com/joaotavora/eglot/issues/536,
https://github.com/joaotavora/eglot/issues/535. And also related issues in
other
+ packages:
+
+ https://github.com/IvanMalison/flimenu/issues/6
+ https://github.com/bmag/imenu-list/issues/58
+
+ So it's best to remove this problematic feature for now. It can be
+ added back later.
+
+ * eglot.el (eglot-imenu): Simplify.
+
+ * NEWS.md: Mention change
+
+2022-09-08 Richard Stallman <rms@gnu.org>
+
+ Decode base64 attachments revealed by decryption.
+
+ * lisp/mail/rmail.el (rmail-epa-decode): New function.
+ (rmail-epa-decrypt): Call rmail-epa-decode.
+
+2022-09-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 395760dcd3 Update ChangeLog and AUTHORS for Emacs 28.2
+ ddabb03a01 * doc/misc/idlwave.texi (Troubleshooting): Don't say "Emac...
+ 724444f3d5 ; * doc/emacs/misc.texi (emacsclient Options): Fix typo.
+ b96257162d Don't mention very old Emacs versions in docs
+
+ # Conflicts:
+ # doc/emacs/misc.texi
+ # etc/NEWS
+
+2022-09-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/keyboard.c (safe_run_hook_funcall): Fix thinko
+
+2022-09-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/keyboard.c (safe_run_hook_funcall): Fix recent regression
+
+ The mutation of `args` was unsafe because that array was
+ later reused (and assumed unchanged) by the caller.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-09/msg00329.html
+
+2022-09-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ test: Remove redundant "" arg to `mapconcat`
+
+ * test/src/process-tests.el (process-test-stderr-filter):
+ * test/src/print-tests.el (print-tests-continuous-numbering):
+ * test/src/fns-tests.el (fns-tests-mapconcat):
+ * test/src/data-tests.el (test-bool-vector-to-hex-string):
+ * test/src/casefiddle-tests.el (casefiddle-tests-char-properties)
+ (casefiddle-tests-case-table, casefiddle-tests-casing-character):
+ * test/lisp/tabify-tests.el (tabify-tests--test-changes):
+ * test/lisp/subr-tests.el (subr-tests-bug22027):
+ * test/lisp/sort-tests.el (sort-tests-random-word):
+ * test/lisp/net/hmac-md5-tests.el (hmac-md5-test-encode-string):
+ * test/lisp/md4-tests.el (md4-tests-digest->hex):
+ * test/lisp/emacs-lisp/cl-extra-tests.el (cl-extra-test-map):
+ * test/lisp/dired-tests.el (dired-test-directory-files):
+ * test/lisp/char-fold-tests.el (char-fold--random-word):
+ * test/lisp/ansi-color-tests.el (ansi-color-incomplete-sequences-test):
+ Remove redundant "" arg to `mapconcat`.
+
+2022-09-08 Yuan Fu <casouri@gmail.com>
+
+ Add node-only parameter to treesit-query-capture
+
+ * doc/lispref/parsing.texi (Pattern Matching): Mention the new
+ parameter.
+ * lisp/treesit.el (treesit-query-in): Add node-only.
+ * src/treesit.c (Ftreesit_query_capture): Add node-only.
+
+2022-09-08 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-can-enable-p): Minor fix.
+
+2022-09-08 Phil Sainty <psainty@orcon.net.nz>
+
+ Add new user option ecomplete-auto-select
+
+ * lisp/ecomplete.el (ecomplete-auto-select): New user option
+ (bug#53935).
+ (ecomplete-display-matches): Use it.
+
+2022-09-08 Augusto Stoffel <arstoffel@gmail.com>
+
+ Add prefix argument to outline-cycle-buffer
+
+ * lisp/outline.el (outline-cycle-buffer): Add prefix argument to show
+ headings up to a given level. Handle the case where the top
+ heading level is not 1.
+
+2022-09-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix diff-add-log-use-relative-names prompting
+
+ * lisp/vc/diff-mode.el (diff-add-log-use-relative-names): Autoload
+ to avoid prompting when set via dir-locals.
+
+2022-09-08 Stefan Kangas <stefankangas@gmail.com>
+
+ * src/xrdb.c (main) [TESTRM]: Replace gets with fgets.
+
+2022-09-08 Manuel Uberti <manuel.uberti@inventati.org>
+
+ Fix jdtls support
+
+ PR https://github.com/joaotavora/eglot/issues/1026
+
+ * eglot.el (eglot-server-programs): Add -data setup for java-mode.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/1008
+
+2022-09-08 Artem Pyanykh <arr@fb.com> (tiny change)
+
+ Add marksman server for markdown
+
+ * eglot.el (eglot-server-programs): Update.
+ * README (Connecting to a server): Add marksman.
+ * NEWS.md: Mention change.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/1013
+
+2022-09-08 Sam James <sam@gentoo.org> (tiny change)
+
+ Recognize zstandard (.zst) compressed Info files
+
+ * lisp/info.el (Info-suffix-list): Recognize .zst file extension
+ from the zstd compression tool. This allows reading Info pages
+ compressed with 'zstd'. (Bug#57636)
+
+2022-09-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Make call of remote `id' more performant in Tramp
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-file-exists-p): New defun.
+ (tramp-adb-file-name-handler-alist): Use it.
+ (tramp-adb-handle-file-executable-p)
+ (tramp-adb-handle-file-readable-p)
+ (tramp-adb-handle-file-writable-p)
+ (tramp-adb-handle-get-remote-uid)
+ (tramp-adb-handle-get-remote-gid)
+ (tramp-adb-handle-get-remote-groups): Use caches consequently.
+
+ * lisp/net/tramp-sh.el (tramp-perl-id, tramp-python-id): New defconsts.
+ (tramp-sh-handle-get-remote-uid, tramp-sh-handle-get-remote-gid)
+ (tramp-sh-handle-get-remote-groups): Use caches consequently.
+ (tramp-sh-handle-file-writable-p): Use `file-writable-p'.
+ (tramp-expand-script): Handle also "python" expansion.
+ (tramp-get-remote-id): Do not set connection property anymore,
+ this is done differently now.
+ (tramp-get-remote-uid-with-id, tramp-get-remote-uid-with-perl)
+ (tramp-get-remote-uid-with-python, tramp-get-remote-gid-with-id)
+ (tramp-get-remote-gid-with-perl)
+ (tramp-get-remote-gid-with-python): Remove.
+
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-file-executable-p)
+ (tramp-sudoedit-handle-file-exists-p)
+ (tramp-sudoedit-handle-file-readable-p)
+ (tramp-sudoedit-handle-file-writable-p):
+ (tramp-sudoedit-handle-get-remote-uid)
+ (tramp-sudoedit-handle-get-remote-gid)
+ (tramp-sudoedit-handle-get-remote-groups): Use caches consequently.
+
+ * lisp/net/tramp.el (tramp-check-cached-permissions):
+ Call `tramp-get-remote-groups' only if needed.
+ (tramp-get-remote-groups): Do not return default value.
+ (tramp-read-id-output): New defun.
+
+ * test/lisp/net/tramp-tests.el (tramp--test-deftest-with-perl):
+ Suppress also remote `id'.
+
+2022-09-08 Philip Kaludercic <philipk@posteo.net>
+
+ Add new user option 'diff-add-log-use-relative-names'
+
+ * .dir-locals.el: Set new option to t
+ * etc/NEWS: Mention new option.
+ * lisp/vc/diff-mode.el (diff-add-log-use-relative-names): Add new
option.
+ (diff-add-log-current-defuns): Use new option.
+ * doc/emacs/maintaining.texi (Log Buffer): Mention new option.
+
+2022-09-08 Po Lu <luangruo@yahoo.com>
+
+ Avoid selecting for excessive output configuration events
+
+ * src/xterm.c (x_term_init): Only select for
+ RROutputPropertyNotify if GTK is in use. Emacs doesn't need it
+ itself, and output property changes will otherwise lead to 2
+ second freezes over connections with high network latency.
+
+2022-09-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Bump Emacs version to 28.2
+
+ * README:
+ * configure.ac:
+ * msdos/sed2v2.inp:
+ * nt/README.W32: Bump Emacs version to 28.2.
+
+2022-09-07 Stefan Kangas <stefankangas@gmail.com>
+
+ dired-guess: Support zstandard archives
+
+ * lisp/dired-aux.el (dired-guess-shell-alist-default): Support
+ zstandard archives.
+
+2022-09-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Move some tests to test/manual/image-tests.el
+
+ * test/src/image-tests.el: Move several tests from here...
+ * test/manual/image-tests.el: ...to here.
+ Suggested by Eli Zaretskii <eliz@gnu.org>.
+
+2022-09-07 Morgan Smith <Morgan.J.Smith@outlook.com>
+
+ image-dired: Fix moving forward when marking files
+
+ * lisp/image/image-dired.el (image-dired--do-mark-command): Make
+ movement consistent regardless of the value of
+ image-dired-marking-shows-next. (Bug#57651)
+
+2022-09-07 Morgan Smith <Morgan.J.Smith@outlook.com>
+
+ Make image-dired-rotate-original-{left,right} respect marks
+
+ * lisp/image/image-dired.el (image-dired-rotate-original-left)
+ (image-dired-rotate-original-right): Rotate all marked
+ files. (Bug#57651)
+
+2022-09-07 Yuan Fu <casouri@gmail.com>
+
+ Fix tree-sitter manual entry for treesit-should-enable-p
+
+ * doc/lispref/parsing.texi: Move two entries in the front to "Using
+ Parser" section, replacing the old entry.
+
+2022-09-07 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in icomplete.el
+
+ * lisp/icomplete.el (icomplete-minibuffer-map)
+ (icomplete-fido-mode-map)
+ (icomplete-vertical-mode-minibuffer-map): Prefer defvar-keymap.
+
+2022-09-07 Yuan Fu <casouri@gmail.com>
+
+ Remove treesit-disabled-modes and change treesit-should-enable-p
+
+ Per emacs-devel discussion, remove treesit-disabled-modes and let
+ major modes to provide tree-sitter switches. I also decided to add
+ treesit-max-buffer-size to elisp manual despite it being a user
+ option. Though we should still add it to the user manual.
+
+ * doc/lispref/parsing.texi (Parsing Program Source): Update manual to
+ remove entries for treesit-diabled-modes and add
+ treesit-max-buffer-size. Also update treesit-should-enable-p.
+ * lisp/treesit.el (treesit-disabled-modes): Remove user option.
+ (treesit-maximum-size): Change to treesit-max-buffer-size.
+ (treesit-should-enable-p): Change to treesit-can-enable-p and remove
+ checks of treesit-disabled-modes.
+
+2022-09-07 Yuan Fu <casouri@gmail.com>
+
+ Add manual entry for tree-sitter search functions
+
+ * doc/lispref/parsing.texi (Retrieving Node): New subsection
+ "Searching for node".
+ * doc/lispref/positions.texi (List Motion): Add entries for
+ treesit-defun-query, treesit-beginning-of-defun, treesit-end-of-defun.
+ * lisp/treesit.el (treesit-search-forward, treesit-search-beginning)
+ (treesit-search-end): Minor docstring fix-up.
+
+2022-09-07 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter font-lock settings helper function/macro
+
+ 1. Add treesit-font-lock-rules that helps with settings
+ treesit-font-lock-settings.
+ 2. Remove treesit-font-lock-defaults and with it, decoration levels.
+
+ Now major modes should set treesit-font-lock-settings with the output
+ of treesit-font-lock-rules rather than setting
+ treesit-font-lock-defaults.
+
+ * lisp/treesit.el (treesit-font-lock-settings): Update docstring.
+ (treesit-font-lock-rules): New function.
+ (treesit-font-lock-defaults): Remove variable.
+ (treesit-font-lock-enable): Remove code that interacts
+ treesit-font-lock-defaults.
+ * doc/lispref/modes.texi: Update manual for
+ treesit-font-lock-settings, treesit-font-lock-rules,
+ treesit-font-lock-defaults.
+
+2022-09-07 Mattias Engdegård <mattiase@acm.org>
+
+ Improve save-match-data hygiene
+
+ * lisp/subr.el (save-match-data): Use uninterned variable symbol.
+ Remove outdated comments.
+
+2022-09-07 Eli Zaretskii <eliz@gnu.org>
+
+ Add instructions to 'standard-display-by-replacement-char'
+
+ * lisp/disp-table.el (standard-display-by-replacement-char): Add a
+ preamble to the generated code with instructions. Suggested by
+ Richard Stallman <rms@gnu.org>.
+
+2022-09-07 Eli Zaretskii <eliz@gnu.org>
+
+ Don't follow symlinks in w32notify file watches
+
+ * src/w32notify.c (add_watch): On filesystems that support
+ symlinks, don't follow symlinks. (Bug#57536)
+ * src/w32.c (symlinks_supported): New function.
+ * src/w32.h (symlinks_supported): Add prototype.
+
+2022-09-07 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify dolist and dotimes
+
+ We no longer care enough about non-lexbind code generation for it
+ to merit special attention; better to keep the code simple.
+
+ Suggested by Philip Kaludercic in
+ https://lists.gnu.org/archive/html/emacs-devel/2022-09/msg00354.html .
+
+ * lisp/subr.el (dolist, dotimes): Use uninterned symbols for variable
+ bindings generated by the macros, and discard the alternative code
+ versions for non-lexbind code. Use sensible variable names.
+
+2022-09-07 Philip Kaludercic <philipk@posteo.net>
+
+ Untabify rcirc.el
+
+2022-09-06 Po Lu <luangruo@yahoo.com>
+
+ Fix nsfont breakage since 6b1ed2f2c99a1c2da56c5f434570c438cad6576d
+
+ * nsfont.m (ns_spec_to_descriptor): Fix coding style, also
+ handle `monospace' special family.
+ (ns_descriptor_to_entity): Fix reporting of spacing on fonts.
+ (ns_findfonts): Fix coding style.
+
+2022-09-06 Po Lu <luangruo@yahoo.com>
+
+ Reenable reporting of frame movement on NS
+
+ * src/nsterm.m ([EmacsView windowDidMove:]): Restore code to
+ generate MOVE_FRAME_EVENTS, and use kbd_buffer_store_event
+ instead.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve image-tests.el Commentary
+
+ * test/src/image-tests.el: Doc fix; explain how to run from
+ command line.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Update ChangeLog and AUTHORS for Emacs 28.2
+
+ * ChangeLog.3:
+ * etc/AUTHORS:
+ * etc/NEWS: Update for Emacs 28.2.
+
+2022-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/jit-lock.el (jit-lock-function): Update comment
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/idlwave.texi (Troubleshooting): Don't say "Emacsen".
+
+2022-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/jit-lock.el (jit-lock-function): Don't fontify invisible text
+
+ See bug#57447. This can speed up fontification significantly when using
+ things like outline-mode.
+
+2022-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * etc/NEWS.28: Mention `make-closure`
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/mh-e.texi (Getting MH-E): Update.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't mention ancient Gnus versions in MH-E manual
+
+ * doc/misc/mh-e.texi (Preface, Reading PGP, Procmail): Don't mention
+ pre-2000 versions of Gnus.
+
+2022-09-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the MS-Windows build
+
+ * lib-src/emacsclient.c (DEFAULT_TIMEOUT): Move out of the
+ !WINDOWSNT condition, to fix the MS-Windows compilation.
+ (set_socket_timeout) [WINDOWSNT]: Protect against too-large values
+ of timeout.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't mention very old Emacs versions in docs
+
+ * doc/misc/mh-e.texi (Conventions):
+ * doc/misc/reftex.texi (Problems and Work-Arounds):
+ * doc/misc/viper.texi (Loading Viper): Delete references to
+ very old versions of Emacs.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/semantic.texi: Delete unused macro.
+
+2022-09-06 Po Lu <luangruo@yahoo.com>
+
+ Correctly handle frame synchronization on fullscreen KWin
+
+ * src/xfns.c (x_set_use_frame_synchronization): Announce that we
+ do not want the compositor to unredirect the frame while
+ fullscreen.
+ * src/xterm.c (x_atom_refs): New atom
+ `_NET_WM_BYPASS_COMPOSITOR'.
+ * src/xterm.h (struct x_display_info): Likewise.
+
+2022-09-06 Kai Tetzlaff <emacs@tetzco.de>
+
+ Fix (mostly multibyte) issues in sieve-manage.el (Bug#54154)
+
+ The managesieve protocol (s. RFC5804) requires support for (a sightly
+ restricted variant of) UTF-8 in script content and script names. This
+ commit fixes/improves the handling of multibyte characters.
+
+ In addition, `sieve-manage-getscript' now properly handles NO
+ responses from the server instead of inflooping.
+
+ There are also some logging improvements.
+
+ * lisp/net/sieve-manage.el
+ (sieve-manage--append-to-log):
+ (sieve-manage--message):
+ (sieve-manage--error):
+ (sieve-manage-encode):
+ (sieve-manage-decode):
+ (sieve-manage-no-p): New functions.
+ (sieve-manage-make-process-buffer): Switch process buffer to unibyte.
+ (sieve-manage-open-server): Add `:coding 'raw-text-unix` to
+ `open-network-stream' call. Use unix EOLs in order to keep matching
+ CRLF (aka "\r\n") intact.
+ (sieve-manage-send): Make sure that UTF-8 multibyte characters are
+ properly encoded before sending data to the server.
+ (sieve-manage-getscript):
+ (sieve-manage-putscript): Use the changes above to fix down/uploading
+ scripts containing UTF-8 multibyte characters.
+ (sieve-manage-listscripts):
+ (sieve-manage-havespace)
+ (sieve-manage-getscript)
+ (sieve-manage-putscript):
+ (sieve-manage-deletescript):
+ (sieve-manage-setactive): Use the changes above to fix handling of
+ script names which contain UTF-8 multibyte characters.
+ (sieve-manage-parse-string):
+ (sieve-manage-getscript): Add handling of server responses with type
+ NO. Abort `sieve-manage-getscript' and show error message in message
+ area.
+ (sieve-manage-erase):
+ (sieve-manage-drop-next-answer):
+ (sieve-manage-parse-crlf): Return erased/dropped data (instead of nil).
+ (sieve-sasl-auth):
+ (sieve-manage-getscript):
+ (sieve-manage-erase):
+ (sieve-manage-open-server):
+ (sieve-manage-open):
+ (sieve-manage-send): Improve logging.
+
+2022-09-06 Kai Tetzlaff <emacs@tetzco.de>
+
+ Improve robustnes of `sieve-manage-quit' in case of errors
+
+ * lisp/net/sieve.el (sieve-manage-quit): Avoid killing buffers it's
+ not supposed to touch (bug#54154).
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Add tests for opening different image formats
+
+ * test/src/image-tests.el
+ (image-tests-make-load-image-test): New macro.
+ (image-tests-load-image/gif)
+ (image-tests-load-image/jpeg)
+ (image-tests-load-image/pbm)
+ (image-tests-load-image/png)
+ (image-tests-load-image/svg)
+ (image-tests-load-image/tiff)
+ (image-tests-load-image/webp)
+ (image-tests-load-image/xbm)
+ (image-tests-load-image/xpm): New tests.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix interactive image.c tests
+
+ * test/src/image-tests.el (image-tests-image-metadata/gif)
+ (image-tests-image-metadata/webp): Fix tests.
+
+2022-09-06 Drew Adams <drew.adams@oracle.com>
+
+ Add some new find-lisp commands
+
+ * lisp/find-lisp.el (find-lisp-find-dired-other-window): New command.
+ (find-lisp-find-dired): Improve the doc string.
+ (find-lisp-find-dired-subdirectories): Clarify doc string.
+ (find-lisp-find-dired-subdirs-other-window): New command.
+ (find-lisp-find-dired-internal): Adjust to allow being called by
+ the new command.
+ (find-lisp-format): Make symlink output more regular.
+
+2022-09-06 Laurence Warne <laurencewarne@gmail.com>
+
+ Apply syntax highlighting for all python f-strings
+
+ * lisp/progmodes/python.el (python--f-string-p)
+ (python--font-lock-f-strings): Edit functions to use a regular
+ expression matching all f-strings (bug#56757).
+
+2022-09-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Use secondary groups when checking permissions in Tramp (Bug#57044)
+
+ * lisp/net/tramp.el (tramp-check-cached-permissions): Check also for
+ secondary groups. (Bug#57044)
+ (tramp-get-remote-groups):
+ * lisp/net/tramp-adb.el (tramp-adb-handle-get-remote-groups):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-get-remote-groups):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-get-remote-groups):
+ New defuns.
+
+ * lisp/net/tramp.el (tramp-file-name-for-operation):
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist):
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Add `tramp-get-remote-groups'.
+
+ * lisp/net/tramp.el:
+ * lisp/net/tramp-adb.el:
+ * lisp/net/tramp-cache.el:
+ * lisp/net/tramp-crypt.el:
+ * lisp/net/tramp-fuse.el:
+ * lisp/net/tramp-gvfs.el:
+ * lisp/net/tramp-integration.el:
+ * lisp/net/tramp-rclone.el:
+ * lisp/net/tramp-sh.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-sudoedit.el: Use `blank' in `rx' forms.
+
+ * test/lisp/net/tramp-archive-tests.el:
+ * test/lisp/net/tramp-tests.el: Use `blank' in `rx' forms.
+
+2022-09-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make ffap-file-finder work again
+
+ * lisp/ffap.el (find-file-at-point): Allow people to set
+ ffap-file-finder again (bug#50279).
+
+ * lisp/ido.el (ido-everywhere): Add an interstitial to fulfil
+ ffap-file-handler semantics.
+
+2022-09-06 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ ecbdb3b0ad * lisp/server.el: Improve Commentary.
+ ee5c591249 Explain how the font appearance can be fine-tuned in fbterm.
+
+2022-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-symbol-macrolet: Fix recent regression
+
+ The recent fix for bug#57397 introduced a regression, breaking
+ the `cl-lib-symbol-macrolet-hide` test. It turned out that the
+ origin of the problem was that `gv.el` uses `macroexpand-1` which
+ does not (can't) use `macroexpand` but `cl-symbol-macrolet` failed
+ to advise `macroexpand-1` the way it advised `macroexpand`.
+
+ To fix this, we change `cl-symbol-macrolet` so it advises both, and we
+ do that with a new `macroexpand` advice which delegates the bulk of
+ the work to `macroexpand-1`.
+
+ Along the way, I bumped into another bug in the interaction between
+ `cl-letf` and `cl-symbol-macrolet`, which I tried to fix in `cl-letf`.
+
+ I hear the war on `cl-symbol-macrolet` was a failure.
+ Maybe ... just say no?
+
+ * lisp/emacs-lisp/cl-macs.el (cl--sm-macroexpand-1): New function,
+ extracted from `cl--sm-macroexpand`.
+ (cl--sm-macroexpand): Rewrite completely.
+ (cl-symbol-macrolet): Advise both `macroexpand` and `macroexpand-1`.
+ (cl--letf): Don't use the "simple variable" code for symbol macros.
+
+ * test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-symbol-macrolet-hide):
+ Revert last change because the test was right.
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el
+ (cl-macs-test--symbol-macrolet): Add a test case.
+
+2022-09-05 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new --timeout flag to emacsclient
+
+ * lib-src/emacsclient.c (DEFAULT_TIMEOUT): New constant.
+ (timeout): New static variable.
+ (longopts, shortopts, decode_options, print_help_and_exit): Add new
+ flag --timeout.
+ (set_socket_timeout, check_socket_timeout): New helper functions.
+ (main): Display a status message or exit after Emacs has not responded
+ for a while, depending on above new --timeout flag. (Bug#50849)
+
+ * doc/emacs/misc.texi (emacsclient Options):
+ * doc/man/emacsclient.1: Document the above new option.
+ * etc/NEWS: Announce it.
+
+2022-09-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Disable failing cl-lib-symbol-macrolet-hide test for now
+
+ * test/lisp/emacs-lisp/cl-lib-tests.el
+ (cl-lib-symbol-macrolet-hide): Disable until code is fixed.
+
+2022-09-05 Gregory Heytings <gregory@heytings.org>
+
+ Simplify describe-function.
+
+ * lisp/help-fns.el (describe-function-1): Do not pass
+ 'describe-function-orig-buffer' as argument to...
+ (help-fns--key-bindings): but use it directly there instead.
+ This simplifies 1d1158397b.
+
+2022-09-05 Juri Linkov <juri@linkov.net>
+
+ Fit the re-builder window to the buffer
+
+ * lisp/emacs-lisp/re-builder.el (re-builder): Fit the height to
+ the buffer (bug#56772).
+
+2022-09-05 Hugo Heagren <hugo@heagren.com>
+
+ Add new functions for splitting the root window
+
+ * lisp/window.el (split-window-right): Add optional argument to
+ control which window is split (previously, would only split selected
+ window). Update docstring.
+ * doc/lispref/windows.texi (Splitting Windows): Update docs for
+ `split-window-right'.
+ * lisp/window.el (split-window-below): Add optional argument to
+ control which window is split (previously, would only split selected
+ window). Update docstring.
+ * doc/lispref/windows.texi (Splitting Windows): Update docs for
+ `split-window-below'.
+ * lisp/window.el (ctl-x-map): Bind `split-root-window-right' to 9 in
+ ctl-x-map. This is consistent with binding other window-splitting
+ operations to numbers in this map.
+ * lisp/window.el (ctl-x-map): Bind `split-root-window-below' to 7 in
+ ctl-x-map. This is consistent with binding other window-splitting
+ operations to numbers in this map.
+ * lisp/window.el (split-root-window-right): New function to split
+ whole frame.
+ * doc/lispref/windows.texi (Splitting Windows): Add documentation for
+ `split-root-window-right'.
+ * lisp/window.el (split-root-window-below): New function to split
+ whole frame.
+ * doc/lispref/windows.texi (Splitting Windows): Add documentation for
+ `split-root-window-below' (bug#56791).
+
+2022-09-05 Sean Whitton <spwhitton@spwhitton.name>
+
+ Font lock long Git commit summary lines
+
+ * lisp/vc/vc-git.el (vc-git-log-edit-summary-target-len)
+ (vc-git-log-edit-summary-max-len): New defcustoms.
+ (vc-git-log-edit-summary-target-warning)
+ (vc-git-log-edit-summary-max-warning): New faces.
+ (vc-git--log-edit-summary-check): New function.
+ (vc-git-log-edit-mode): Add vc-git--log-edit-summary-check to
+ log-edit-font-lock-keywords to font lock long Git commit summary
+ lines.
+ * etc/NEWS (VC): Document the change.
+ * .dir-locals.el: Set vc-git-log-edit-summary-target-len.
+
+2022-09-05 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/server.el: Improve Commentary.
+
+2022-09-05 Gregory Heytings <gregory@heytings.org>
+
+ Explain how the font appearance can be fine-tuned in fbterm.
+
+ * doc/misc/efaq.texi (Emacs in a Linux console): Briefly document
+ Xft font specifications with which the font appearance can be
+ fine-tuned.
+
+2022-09-05 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 5713c730f2 Update to Org 9.5.5
+ aad38d6010 * lisp/emacs-lisp/comp.el (comp-run-async-workers): Fail m...
+
+2022-09-04 Po Lu <luangruo@yahoo.com>
+
+ Fix crash while converting empty vector to X data
+
+ * src/xselect.c (lisp_data_to_selection_data): Assume an empty
+ vector represents INTEGER data, instead of blindly trying to
+ aref it's first element.
+
+2022-09-04 Jim Porter <jporterbugs@gmail.com>
+
+ Let external Eshell processes send stdout and stderr to different places
+
+ * lisp/eshell/esh-proc.el (eshell-put-process-properties): Pass INDEX.
+ (eshell-gather-process-output): Create a pipe process for stderr when
+ stderr goes somewhere different than stdout.
+ (eshell-insertion-filter, eshell-sentinel): Consult
+ ':eshell-handle-index' property.
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-proc-test/output/stdout-to-buffer)
+ (esh-proc-test/output/stderr-to-buffer)
+ (esh-proc-test/exit-status/with-stderr-pipe): New tests (bug#21605).
+
+2022-09-04 Jim Porter <jporterbugs@gmail.com>
+
+ Put Eshell's bookkeeping data for external processes on the process
object
+
+ This allows tracking this information for process objects not recorded
+ in 'eshell-process-list', which will be useful for pipe processes for
+ stderr output.
+
+ * lisp/eshell/esh-proc.el (eshell-process-list): Add docstring.
+ (eshell-record-process-object): Only record the process object and
+ whether it's a subjob.
+ (eshell-remove-process-entry): Adapt to changes in
+ 'eshell-record-process-object'.
+ (eshell-record-process-properties): New function...
+ (eshell-gather-process-output): ... call it.
+ (eshell-insertion-filter, eshell-sentinel): Use new process
+ properties, don't require process to be in 'eshell-process-list'.
+
+ * test/lisp/eshell/esh-proc-tests.el (esh-proc-test--output-cmd): New
+ variable.
+ (esh-proc-test--detect-pty-cmd): Add docstring.
+ (esh-proc-test/output/to-screen)
+ (esh-proc-test/output/stdout-and-stderr-to-buffer)
+ (esh-proc-test/exit-status/success, esh-proc-test/exit-status/failure)
+ (esh-proc-test/kill-process/foreground-only): New tests.
+ (esh-proc-test/kill-background-process): Rename to...
+ (esh-proc-test/kill-process/background-prompt): ... this, and use
+ 'eshell-wait-for-subprocess' instead of 'sit-for'.
+
+2022-09-04 Jim Porter <jporterbugs@gmail.com>
+
+ Add support for more kinds of redirect operators in Eshell
+
+ * lisp/eshell/esh-arg.el: Require cl-lib.
+ (eshell-finish-arg): Allow passing multiple ARGUMENTS.
+ (eshell-quote-argument): Handle the case when 'eshell-finish-arg' was
+ passed multiple arguments.
+
+ * lisp/eshell/esh-cmd.el (eshell-do-pipelines)
+ (eshell-do-pipelines-synchronously): Only set stdout output handle.
+
+ * lisp/eshell/esh-io.el (eshell-redirection-operators-alist): New
+ constant.
+ (eshell-io-initialize): Prefer sharp quotes for functions.
+ (eshell-parse-redirection, eshell-strip-redirections): Add support for
+ more redirection forms.
+ (eshell-copy-output-handle, eshell-set-all-output-handles): New
+ functions.
+
+ * test/lisp/eshell/esh-io-tests.el
+ (esh-io-test/redirect-all/overwrite, esh-io-test/redirect-all/append)
+ (esh-io-test/redirect-all/insert, esh-io-test/redirect-copy)
+ (esh-io-test/redirect-copy-first, esh-io-test/redirect-pipe): New
+ tests.
+
+ * doc/misc/eshell.texi (Redirection): Document new redirection syntax.
+ (Pipelines): Document '|&' syntax.
+ (Bugs and ideas): Update item about redirection syntax.
+
+ * etc/NEWS: Announce this change.
+
+2022-09-04 Jim Porter <jporterbugs@gmail.com>
+
+ Allow checking specific Eshell handles for interactive output
+
+ This changes the default behavior of the function to check only stdout
+ for interactivity, but for most cases this should be what we want.
+
+ * lisp/eshell/esh-io.el (eshell-interactive-output-p): Pass HANDLES
+ and handle INDEX.
+
+ * lisp/eshell/em-term.el (eshell-visual-command-p): Check for
+ interactivity of both stdout and stderr.
+
+2022-09-04 Jim Porter <jporterbugs@gmail.com>
+
+ Simplify Eshell handle functions and add tests/documentation
+
+ * lisp/eshell/esh-arg.el (eshell-parse-argument-hook): Explain how to
+ use 'eshell-finish-arg'.
+
+ * lisp/eshell/esh-io.el (eshell-create-handles): Only call
+ 'eshell-get-target' for stderr if necessary.
+ (eshell-protect-handles): Use 'dotimes'.
+ (eshell-set-output-handle): Pass HANDLES and fix an edge case with
+ setting a duplicate TARGET.
+
+ * test/lisp/eshell/eshell-tests-helpers.el (eshell-with-temp-buffer):
+ New macro.
+
+ * test/lisp/eshell/esh-cmd-tests.el (esh-cmd-test/quoted-lisp-form)
+ (esh-cmd-test/backquoted-lisp-form)
+ (esh-cmd-test/backquoted-lisp-form/splice): New tests.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/redirect-buffer)
+ (eshell-test/redirect-buffer-escaped): Move to...
+ * test/lisp/eshell/esh-io-tests.el: ... here, and add other I/O tests.
+
+ * doc/misc/eshell.texi (Arguments): Add documentation for special
+ argument types.
+ (Input/Output): Expand documentation for redirection and pipelines.
+
+2022-09-04 Matt Armstrong <matt@rfc20.org>
+
+ Add basic test coverage for overlay modification hooks
+
+ * test/src/buffer-tests.el: (overlay-modification-hooks) new
+ ert-deftest.
+ (overlay-tests-start-recording-modification-hooks): New function.
+ (overlay-tests-get-recorded-modification-hooks): New function
+ (bug#57150).
+
+2022-09-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify that the region is in the Emacs manual
+
+ * doc/emacs/mark.texi (Mark): Try to clarify what's so special
+ about Emacs' regions (bug#50950).
+
+2022-09-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark some filenotify tests unstable on EMBA
+
+ * test/lisp/filenotify-tests.el (file-notify-test03-events)
+ (file-notify-test09-watched-file-in-watched-dir): Mark as unstable
+ on EMBA, because they seem to fail regularly.
+
+2022-09-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix comment in tramp.el
+
+2022-09-04 Juri Linkov <juri@linkov.net>
+
+ Don't replace the first character with an arrow in outline-minor-mode
+
+ * lisp/outline.el (outline--make-button-overlay): Add the first
character
+ to the displayed outline button (bug#56820).
+
+2022-09-04 Juri Linkov <juri@linkov.net>
+
+ Use use-region-beginning/end in replacement commands (bug#45607)
+
+ * lisp/isearch.el (isearch-query-replace): Use use-region-beginning
+ and use-region-end.
+
+ * lisp/textmodes/paragraphs.el (repunctuate-sentences):
+ * lisp/replace.el (query-replace, query-replace-regexp)
+ (map-query-replace-regexp, replace-string, replace-regexp):
+ Add 'interactive-args' to 'declare' and use use-region-beginning,
+ use-region-end, use-region-noncontiguous-p.
+
+ * lisp/simple.el (use-region-noncontiguous-p): New function.
+ (region-noncontiguous-p): Return more meaningful value.
+
+2022-09-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a basic widget type for buffer predicates
+
+ * lisp/paren.el (show-paren-predicate):
+ * lisp/outline.el (outline-minor-mode-use-buttons): Use it.
+ * lisp/wid-edit.el (buffer-predicate): New widget type.
+
+2022-09-04 Po Lu <luangruo@yahoo.com>
+
+ Fix earlier change to xterm.c
+
+ * src/xterm.c (x_detect_focus_change): Finally figure out what
+ the call to x_new_focus_frame does with the core focus, and do
+ the equivalent with the XInput 2 focus.
+
+2022-09-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix rx forms in Tramp
+
+ * lisp/net/tramp.el (tramp-restricted-shell-hosts-alist)
+ (tramp-local-host-regexp, tramp-echoed-echo-mark-regexp)
+ (tramp-login-prompt-regexp, tramp-terminal-prompt-regexp)
+ (tramp-antispoof-regexp)
+ (tramp-build-completion-file-name-regexp)
+ (tramp-debug-outline-regexp)
+ (tramp-use-absolute-autoload-file-names)
+ (tramp-lock-file-info-regexp, tramp-shell-quote-argument):
+ * lisp/net/tramp-adb.el (tramp-do-parse-file-attributes-with-ls)
+ * lisp/net/tramp-cache.el (tramp-flush-file-function):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name):
+ * lisp/net/tramp-integration.el
(tramp-rfn-eshadow-update-overlay-regexp)
+ (info-lookup-maybe-add-help):
+ * lisp/net/tramp-sh.el (tramp-default-user-alist, tramp-sunos-unames)
+ (tramp-scp-direct-remote-copying, tramp-get-remote-locale):
+ * lisp/net/tramp-smb.el (tramp-smb-prompt,
tramp-smb-wrong-passwd-regexp)
+ (tramp-smb-errors, tramp-smb-get-localname)
+ (tramp-smb-read-file-entry): Simplify rx forms.
+
+ * lisp/net/tramp.el (tramp-handle-find-backup-file-name)
+ (tramp-handle-lock-file, tramp-handle-make-auto-save-file-name):
+ * lisp/net/tramp-adb.el (tramp-adb-handle-set-file-times)
+ (tramp-adb-maybe-open-connection):
+ * lisp/net/tramp-gvfs.el
+ (tramp-gvfs-file-attributes-with-gvfs-ls-regexp):
+ * lisp/net/tramp-sh.el (tramp-open-shell, tramp-find-shell): Do not use
+ `eval-when-compile'.
+
+ * lisp/net/tramp-cmds.el (tramp-rename-files, tramp-rename-these-files):
+ Use rx.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-password-tcrypt): New defonst.
+ (tramp-gvfs-handle-file-attributes): Use `number-to-string'.
+
+ * test/lisp/net/tramp-archive-tests.el
+ (tramp-archive-test17-insert-directory):
+ * test/lisp/net/tramp-tests.el (tramp-test17-insert-directory)
+ (tramp--test-share-p): Simplify rx forms.
+
+2022-09-04 Damien Cassou <damien@cassou.me>
+
+ Add new function `seq-positions'
+
+ * doc/lispref/sequences.texi (Sequence Functions): Document it.
+
+ * lisp/emacs-lisp/seq.el (seq-positions): New function.
+
+ * lisp/emacs-lisp/shortdoc.el (sequence): Mention it.
+
+ * test/lisp/emacs-lisp/seq-tests.el (test-seq-positions): Test it
+ (bug#57548).
+
+2022-09-04 Augusto Stoffel <arstoffel@gmail.com>
+
+ Add Python import management commands
+
+ * lisp/progmodes/python.el (python-interpreter): New variable
+ (python-mode-map): Keybindings and menu entries for new commands
+ (python--list-imports, python-import-history, python--query-import)
+ (python--do-isort): New variables and helper functions.
+ (python-add-import, python-import-symbol-at-point)
+ (python-remove-import, python-sort-imports, python-fix-imports): New
+ interactive commands (bug#57574).
+
+2022-09-04 Augusto Stoffel <arstoffel@gmail.com>
+
+ Python shells dedicated to a project
+
+ * lisp/progmodes/python.el: Require 'seq' and (optionally) 'compat'
+ and 'project' libraries.
+ (python-shell-dedicated): New user option
+ (python-shell-get-process-name): Adapt to project-dedicated shells.
+ (run-python): Offer possibility to create a project-dedicated shell,
+ or use 'python-shell-dedicated' as the default behavior.
+ (python-shell-get-buffer): Adapt to project-dedicated shells
+ (bug#56997).
+
+2022-09-04 Damien Cassou <damien@cassou.me>
+
+ Add new function `seq-remove-at-position'
+
+ * doc/lispref/sequences.texi (Sequence Functions): Document it.
+
+ * lisp/emacs-lisp/seq.el (seq-remove-at-position): New function.
+
+ * lisp/emacs-lisp/shortdoc.el (sequence): Mention it.
+
+ * test/lisp/emacs-lisp/seq-tests.el (test-seq-remove-at-position):
+ Test it.
+
+2022-09-04 Damien Cassou <damien@cassou.me>
+
+ Improve documentation of several functions in seq.el
+
+ * doc/lispref/sequences.texi (Sequence Functions):
+ * lisp/emacs-lisp/seq.el (seq-contains):
+ (seq-contains-p):
+ (seq-set-equal-p):
+ (seq-position):
+ (seq-union):
+ (seq-intersection):
+ (seq-difference): Use more standard wording in the docstrings
+ (bug#57561).
+
+2022-09-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename the Mice node in the Emacs manual
+
+ * doc/emacs/commands.texi (User Input, Keys): Rename "Mice" to
+ Mouse Input.
+
+2022-09-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some help-fns test failures
+
+ * lisp/help-fns.el (help-fns--key-bindings): Fix test failures
+ from recent change.
+
+2022-09-04 Eli Zaretskii <eliz@gnu.org>
+
+ New command to facilitate text-mode display of unsupported chars
+
+ * lisp/disp-table.el (standard-display-by-replacement-char): New
+ command.
+
+ * etc/NEWS: Announce it.
+
+2022-09-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix update of Dired display when it was called on a cons cell
+
+ * lisp/dired.el (dired-internal-do-deletions): Make sure that FN's
+ directory entry is updated on display. (Bug#57565)
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/term/linux.el (gpm-mouse-enable): Remove left-over declaration
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ gv.el and cl-macs.el: Fix bug#57397
+
+ * lisp/emacs-lisp/gv.el (gv-get): Obey symbol macros.
+ * lisp/emacs-lisp/cl-macs.el (cl--letf): Remove workaround placed to
+ try and handle symbol macros.
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs-test--symbol-macrolet):
+ Add new testcase.
+
+2022-09-03 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.5
+
+2022-09-03 Gregory Heytings <gregory@heytings.org>
+
+ Look up keybindings in correct buffer in describe-function.
+
+ * lisp/help-fns.el (help-fns--key-bindings): New parameter.
+ Use it when looking up keybindings.
+ (describe-function-1): Add the buffer in which the command
+ was invoked as argument to 'help-fns--key-bindings'.
+ Fixes bug#57568.
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/comp.el (comp-run-async-workers): Fail more gracefully
+
+ Otherwise Emacs may fail to start if it can't find a writable
+ `~/.emacs.d/eln-cache` directory.
+ Fixes bug#57562. See also Debian's bug #1017739.
+
+2022-09-03 Jeff Walsh <fejfighter@gmail.com>
+
+ Update error message to reflect variable rename
+
+ * src/comp.c (Fcomp_el_to_eln_filename): Update error message.
(Bug#55861)
+
+ [ According to the Git metadata, this commit 8436e0bee9cf7a was already
+ merged from `emacs-28`, yet the code says it was not. :-( ]
+
+2022-09-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix indexing of mouse-wheel events
+
+ * doc/emacs/frames.texi (Mouse Commands): Add index entries for
+ wheel events.
+
+2022-09-03 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "* doc/emacs/commands.texi (Mice): Improve indexing."
+
+ This reverts commit 1cea0ae4133bb22fd70d483df105e5a4653bc56c.
+
+ The index entries it added don't belong to the place where they were
+ added.
+
+2022-09-03 Mattias Engdegård <mattiase@acm.org>
+
+ lisp/emacs-lisp/seq.el: remove unnecessary compatibility code
+
+ * lisp/emacs-lisp/seq.el (seq-take, seq--activate-font-lock-keywords):
+ Simplify unnecessarily guarded code, as this file will only ever be
+ used with the same version of Emacs.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/emacs/commands.texi (Mice): Improve indexing.
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge branch 'master' of git+ssh://git.sv.gnu.org/srv/git/emacs
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--compiler-macro): Soften message
+
+ Clarify that the error is "harmless".
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-macs.el: Use `define-symbol-prop` (bug#50869)
+
+ (cl-define-compiler-macro, cl-defstruct, cl-deftype): Prefer
+ `define-symbol-prop` over `put` so `unload-feature` can undo
+ those definitions.
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/loadhist.el (loadhist-unload-element): Remove auxiliary function
info
+
+ See bug#50869.
+
+2022-09-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/help-fns.el (find-lisp-object-file-name): Revert last change
+
+2022-09-03 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation of scroll wheel event types in new Mice node
+
+ * doc/emacs/commands.texi (Mice): Improve documentation of
+ scroll wheel event types; fix doc for Emacs 29 and describe
+ horizontal wheel movement.
+
+2022-09-03 Po Lu <luangruo@yahoo.com>
+
+ Work around another X server bug in crossing event dispatch
+
+ * src/xterm.c (xi_focus_handle_for_device): Clear implicit focus
+ along with FocusOut. (bug#57468)
+ (x_mouse_leave): Avoid invalid reads of
+ dpyinfo->x_focus_event_frame on input extension builds.
+
+2022-09-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a Mice node in the Emacs manual
+
+ * doc/emacs/commands.texi (User Input): Don't claim to not
+ document mouse buttons.
+ (Mice): New node (bug#50948).
+
+2022-09-03 Philip Kaludercic <philipk@posteo.net>
+
+ * subr.el (buffer-match-p): Use 'pcase' (bug#57502)
+
+2022-09-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention M-x list-packages in the Help node in the Emacs manual
+
+ * doc/emacs/help.texi (Help): Mention listing packages
+ (bug#50936).
+
+2022-09-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Inhibit nativecomp of loaddefs files
+
+ * lisp/emacs-lisp/generate-lisp-file.el
+ (generate-lisp-file-trailer): Allow inhibiting nativecomp.
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric):
+ Inhibit native-comp, because it's not very useful for loaddefs files.
+
+2022-09-03 Po Lu <luangruo@yahoo.com>
+
+ Work around potential X server bug
+
+ * src/xterm.c (handle_one_xevent): Ignore core crossing events
+ on input extension builds. The X server is not actually
+ supposed to deliver them to us, and it messes up MPX focus
+ tracking. (bug#57468)
+
+2022-09-03 Eli Zaretskii <eliz@gnu.org>
+
+ Teach 'max-char' about the Unicode code range
+
+ * src/character.c (Fmax_char): Accept an optional argument
+ UNICODE, and, if non-nil, return the maximum codepoint defined by
+ Unicode.
+
+ * lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Update the
+ signature of 'max-char'.
+
+ * etc/NEWS:
+ * doc/lispref/nonascii.texi (Character Codes): Update the
+ documentation of 'max-char'.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Increase image-dired-show-all-from-dir-max-files to 1000
+
+ * lisp/image/image-dired.el
+ (image-dired-show-all-from-dir-max-files): Increase to 1000.
+
+2022-09-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix image-dired-util.el compile warning
+
+ * lisp/image/image-dired-util.el (require): Require for cl-case.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new defgroup image-dired-dired
+
+ * lisp/image/image-dired-dired.el
+ (image-dired-dired-append-when-browsing): Rename from
+ 'image-dired-append-when-browsing'. Update all uses.
+ (image-dired-dired): New defgroup.
+ (image-dired-dired-append-when-browsing)
+ (image-dired-dired-disp-props): Use above new defgroup.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Minor cleanups
+
+ * lisp/image/image-dired-dired.el
+ (image-dired-dired-after-readin-hook, image-dired-minor-mode):
+ Minor doc fixes.
+ (image-dired-dired-display-image): Don't accept ineffectual prefix
+ argument.
+ * lisp/image/image-dired-util.el
+ (image-dired-file-name-at-point): Use when-let.
+ (image-dired-display-thumb-properties): Redefine as obsolete function
+ alias for 'image-dired-update-header-line'.
+
+ * lisp/image/image-dired-util.el
+ (image-dired-window-width-pixels): Make obsolete in favor of
+ window-body-width.
+ * lisp/image/image-dired.el (image-dired-line-up-dynamic)
+ (image-dired-display-window-width): Don't use above obsolete function.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Prefer defvar-keymap
+
+ * lisp/image/image-dired-dired.el (image-dired-minor-mode-map):
+ * lisp/image/image-dired.el
+ (image-dired-thumbnail-mode-line-up-map)
+ (image-dired-thumbnail-mode-tag-map)
+ (image-dired-thumbnail-mode-map)
+ (image-dired-display-image-mode-map): Prefer defvar-keymap.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Add new defgroup image-dired-external
+
+ * lisp/image/image-dired-external.el (image-dired-external): New
+ defgroup.
+ (image-dired-cmd-create-thumbnail-program)
+ (image-dired-cmd-create-thumbnail-options)
+ (image-dired-cmd-pngnq-program, image-dired-cmd-pngnq-options)
+ (image-dired-cmd-pngcrush-program)
+ (image-dired-cmd-pngcrush-options)
+ (image-dired-cmd-optipng-program)
+ (image-dired-cmd-optipng-options)
+ (image-dired-cmd-create-standard-thumbnail-options)
+ (image-dired-cmd-rotate-original-program)
+ (image-dired-cmd-rotate-original-options)
+ (image-dired-temp-rotate-image-file)
+ (image-dired-rotate-original-ask-before-overwrite)
+ (image-dired-cmd-write-exif-data-program)
+ (image-dired-cmd-write-exif-data-options): Use above new defgroup.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Make HTML gallery generation obsolete
+
+ * lisp/image/image-dired.el (image-dired-gallery): Delete
+ defgroup again.
+ (image-dired-gallery-dir, image-dired-gallery-image-root-url)
+ (image-dired-gallery-thumb-image-root-url)
+ (image-dired-gallery-hidden-tags, image-dired-tag-file-list)
+ (image-dired-file-tag-list, image-dired--add-to-tag-file-lists)
+ (image-dired--add-to-file-comment-list)
+ (image-dired--create-gallery-lists, image-dired--hidden-p)
+ (image-dired-gallery-generate): Make obsolete.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ image-dired: Do more interactive mode tagging
+
+ * lisp/image/image-dired-dired.el
+ (image-dired-dired-toggle-marked-thumbs)
+ (image-dired-next-line-and-display)
+ (image-dired-previous-line-and-display)
+ (image-dired-toggle-append-browsing)
+ (image-dired-mark-and-display-next)
+ (image-dired-toggle-dired-display-properties)
+ (image-dired-dired-next-line, image-dired-dired-previous-line)
+ (image-dired-create-thumbs, image-dired-display-thumbs-append)
+ (image-dired-display-thumb, image-dired-dired-display-external)
+ (image-dired-dired-display-image)
+ (image-dired-copy-with-exif-file-name, image-dired-mark-tagged-files)
+ (image-dired-dired-display-properties):
+ * lisp/image/image-dired-external.el
+ (image-dired-thumbnail-set-image-description):
+ * lisp/image/image-dired-tags.el (image-dired-tag-files)
+ (image-dired-tag-thumbnail, image-dired-delete-tag)
+ (image-dired-tag-thumbnail-remove)
+ (image-dired-dired-comment-files)
+ (image-dired-dired-edit-comment-and-tags):
+ * lisp/image/image-dired.el (image-dired-display-thumbs)
+ (image-dired-track-original-file)
+ (image-dired-toggle-movement-tracking)
+ (image-dired-forward-image, image-dired-backward-image)
+ (image-dired-line-up, image-dired-line-up-dynamic)
+ (image-dired-line-up-interactive)
+ (image-dired-thumbnail-display-external)
+ (image-dired-display-thumbnail-original-image)
+ (image-dired-rotate-original-left)
+ (image-dired-rotate-original-right)
+ (image-dired-comment-thumbnail, image-dired-delete-marked)
+ (image-dired-rotate-thumbnail-left)
+ (image-dired-rotate-thumbnail-right): Do interactive mode tagging.
+
+ * lisp/image/image-dired.el (image-dired-delete-marked): Signal error
+ if not in image-dired-thumbnail-mode.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Split image-dired.el into several files (part 2/2)
+
+ Use a git trick to split a file while preserving line history (for
+ "git blame", "git log --follow", etc.):
+
+ 1) Make exact copies of the original file, in the same commit as
+ moving it.
+
+ 2) Next, trim down the extra copies to contain only the relevant
+ parts. [this commit]
+
+ * lisp/image-dired.el:
+ * lisp/image/image-dired-dired.el:
+ * lisp/image/image-dired-external.el:
+ * lisp/image/image-dired-tags.el:
+ * lisp/image/image-dired-util.el:
+ * lisp/image/image-dired.el: Trim files down to keep only one copy of
+ each definition.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Split image-dired.el into several files (part 1/2)
+
+ Use a git trick to split a file while preserving line history (for
+ "git blame", "git log --follow", etc.):
+
+ 1) Make exact copies of the original file, in the same commit as
+ moving it. [this commit]
+
+ 2) Next, trim down the extra copies to contain only the relevant
+ parts.
+
+ * lisp/image-dired.el: Move from here...
+ * lisp/image/image-dired-dired.el:
+ * lisp/image/image-dired-external.el:
+ * lisp/image/image-dired-tags.el:
+ * lisp/image/image-dired-util.el:
+ * lisp/image/image-dired.el: ...to here.
+
+ * test/lisp/image-dired-tests.el: Move from here...
+ * test/lisp/image/image-dired-tests.el: ...to here.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Make "rlogin" method obsolete in url*.el
+
+ * lisp/url/url-about.el (url-probe-protocols): Remove "rlogin".
+ * lisp/url/url-gw.el (url-gateway-rlogin-host)
+ (url-gateway-rlogin-user-name, url-gateway-rlogin-parameters)
+ (url-open-rlogin): Make obsolete. (Bug#56891)
+ (url-open-stream):
+ * lisp/url/url-misc.el (url-do-terminal-emulator): Warn when using
+ "rlogin".
+ (url-rlogin): Make obsolete.
+ * lisp/url/url-vars.el (url-gateway-method): Remove "rlogin"
+ choice.
+
+ * lisp/url/url-gw.el (url-gw-rlogin-obsolete-warned-once)
+ * lisp/url/url-misc.el (url-misc-rlogin-obsolete-warned-once): New
+ variables, immediately marked obsolete.
+
+ * doc/misc/url.texi (telnet/tn3270): Rename section from
+ "rlogin/telnet/tn3270".
+ (Gateways in general, Customization): Don't mention "rlogin"
+ method.
+
+2022-09-03 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ d89e65c638 Update acknowledgments
+
+2022-09-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Update acknowledgments
+
+ * doc/emacs/ack.texi (Acknowledgments): Update.
+ * doc/emacs/emacs.texi (Acknowledgments): Add several names from
+ Author: headers.
+
+2022-09-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Make some versions in docs match package version
+
+ * doc/emacs/misc.texi (Interactive Shell): Bump Emacs version.
+ * doc/misc/ediff.texi:
+ * doc/misc/flymake.texi:
+ * doc/misc/viper.texi: Fix version to match package.
+ * lisp/emulation/viper.el: Make version match variable.
+
+2022-09-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 917da2641e Minor doc fix; improve sorting of VC backends
+ 89695bce3e Clarify the doc string of 'set-face-attribute'
+
+2022-09-02 Gregory Heytings <gregory@heytings.org>
+
+ Display a warning for some uses of nil in face attributes.
+
+ * src/xfaces.c (HANDLE_INVALID_NIL_VALUE): New macro, which displays
+ a warning for invalid uses of nil as a face attribute value.
+ (Finternal_set_lisp_face_attribute): Use the macro for the attributes
+ :foreground, :distant-foreground and :background.
+
+2022-09-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/help-fns.el: Minor fixes
+
+ (describe-mode--minor-modes): Don't burp on minor modes that lack a
docstring.
+ (describe-mode--minor-modes): Simplify eta-redex.
+ (find-lisp-object-file-name): Use `autoload-file`.
+ (help-fns--describe-function-or-command-prompt): Allow the user to
+ insist on choosing a function even if it appears not to exist.
+
+2022-09-02 Robert Pluim <rpluim@gmail.com>
+
+ Use `format-prompt' in `describe-char-fold-equivalences'
+
+ * lisp/char-fold.el (describe-char-fold-equivalences): Use
`format-prompt'.
+
+2022-09-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix define-minor-mode :keymap obsoletion warning
+
+ * lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Fix some
+ warning.
+
+2022-09-02 Stefan Kangas <stefan@marxist.se>
+
+ Make minibuffer-eldef-shorten-default obsolete
+
+ * lisp/minibuf-eldef.el (minibuffer-eldef-shorten-default): Make
+ variable obsolete in favor of 'minibuffer-default-prompt-format'.
+ * doc/emacs/mini.texi (Basic Minibuffer): Delete above obsolete
+ variable (bug#50935).
+
+2022-09-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Default show-paren-mode to off in special-mode buffers
+
+ * doc/emacs/programs.texi (Matching): Mention the new user option.
+
+ * doc/misc/efaq.texi (Matching parentheses): Adjust text to the
+ current state of affairs.
+
+ * lisp/paren.el (show-paren-function): New user option (bug#50894).
+ (show-paren-mode): Mention it.
+ (show-paren-function): Use it.
+
+2022-09-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up ispell "look"-related variables
+
+ * lisp/textmodes/ispell.el (ispell-look-p): Make obsolete.
+ (ispell-lookup-words): Look up the look command at run time
+ instead (bug#50852).
+ (ispell-have-new-look): Make obsolete.
+ (ispell-look-options): Adjust. Apparently the version of "look"
+ that had a "-r" (regexp interface) never took off -- it's not
+ present in GNU/Linux or Macos, at least, as far as we can tell.
+
+2022-09-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix quotes in mailcap-add-mailcap-entry doc string
+
+ * lisp/net/mailcap.el (mailcap-add-mailcap-entry): Fix usage of
+ quotes.
+
+2022-09-02 Felix Dietrich <felix.dietrich@sperrhaken.name>
+
+ Restructure ‘mailcap-add-mailcap-entry’
+
+ * lisp/net/mailcap.el (mailcap-add-mailcap-entry):
+ Restructure mailcap-add-mailcap-entry to improve readability.
+
+2022-09-02 Felix Dietrich <felix.dietrich@sperrhaken.name>
+
+ Add tests for ‘mailcap-add-mailcap-entry’
+
+ * test/lisp/net/mailcap-tests.el:
+ Add tests for ‘mailcap-add-mailcap-entry’
+
+2022-09-02 Robert Pluim <rpluim@gmail.com>
+
+ Use frame-monitor-attributes in gamegrid
+
+ * lisp/play/gamegrid.el (gamegrid-calculate-glyph-size): Use
+ `frame-monitor-attributes' to get the frame attributes directly
+ instead of iterating over `display-monitor-attributes-list'.
+
+2022-09-02 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes when embedding Emacs in a nonexistent parent
+
+ * src/xfns.c (x_window, Fx_create_frame): Handle X errors while
+ trying to reparent the frame onto an explicitly specified
+ parent.
+ * src/xterm.c (handle_one_xevent): Handle unparenting embedded
+ windows correctly. This only works if the embedder is aware of
+ the fixes extension and has put the window into the right save
+ set.
+ (x_embed_frame): New function.
+ * src/xterm.h (FRAME_X_EMBEDDED_P): Fix coding style.
+
+2022-09-02 Robert Pluim <rpluim@gmail.com>
+
+ Make single char entry easier for `describe-char-fold-equivalences'
+
+ * lisp/char-fold.el (describe-char-fold-equivalences): Improve
+ docstring. Pass t for 'allow-single' arg in call to
+ `read-char-by-name' so that single characters can be entered directly.
+
+2022-09-02 Robert Pluim <rpluim@gmail.com>
+
+ Allow easy entry of single chars in `read-char-by-name'
+
+ * lisp/international/mule-cmds.el (read-char-by-name): Add optional
+ 'allow-single' argument, meaning to accept single chars as themselves.
+
+2022-09-02 Fabrice Bauzac-Stehly <noon@mykolab.com>
+
+ ldap-host-parameters-alist: Add auth-source option
+
+ * lisp/net/ldap.el (ldap-host-parameters-alist): Add auth-source
+ to checklist.
+
+2022-09-01 Jim Porter <jporterbugs@gmail.com>
+
+ Under no-X builds, allow any value for 'fringe-bitmap' options
+
+ * lisp/cus-edit.el (fringe-bitmap): Always match under no-X.
+
+2022-09-01 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#57476 for Xt builds
+
+ * src/xterm.c (handle_one_xevent): Add similar event mode check
+ to code under USE_X_TOOLKIT conditional. (bug#57476)
+
+2022-09-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make easy-mmode-define-keymap obsolete
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode-define-keymap): Make
+ obsolete.
+ (define-minor-mode): Add comment.
+
+2022-09-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make easy-mmode-defmap obsolete and adjust only caller
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode-defmap): Make obsolete.
+ * lisp/progmodes/gud.el (gud-menu-map): Use easy-menu-define.
+
+2022-09-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix outline-minor-mode-map
+
+ * lisp/outline.el (outline-minor-mode): Avoid using
+ easy-mmode-define-keymap, since it doesn't handle :inherit
+ correctly (bug#57512).
+
+2022-09-01 Daanturo <daanturo@gmail.com>
+
+ Make file-parent-directory more efficient
+
+ * lisp/files.el (file-parent-directory): Use equal instead of
+ file-equal-p to compare the found parent and the child
+ (bug#56355). This is much faster.
+
+2022-09-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Minor doc fix; improve sorting of VC backends
+
+ * doc/emacs/maintaining.texi (Version Control Systems): Minor doc fix;
+ rearrange list to put git, cvs and subversion at the top.
+
+2022-09-01 Eli Zaretskii <eliz@gnu.org>
+
+ Clarify the doc string of 'set-face-attribute'
+
+ * lisp/faces.el (set-face-attribute): Clarify the issue with
+ resetting attribute values to 'unspecified' for future frames.
+ (Bug#57499)
+
+2022-09-01 Mattias Engdegård <mattiase@acm.org>
+
+ Better `take` and `ntake` bignum argument handling
+
+ * src/fns.c (Ftake, Fntake): Treat positive bignum arguments
+ as most-positive-fixnum which results in better error checking
+ of improper lists.
+
+2022-09-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 8807a4f532 Enable 256 colors in fbterm.
+ bbc23ca8ab One more fix for find-file.el
+ 0cbcaf5119 ; Yet another doc fix for 'ff-other-file-alist' (bug#57325)
+ 2d9a391727 Recommend using fbterm in the Linux console.
+ a5a92e577c ; * src/window.c (syms_of_window) <window-point-insertion-...
+ 4d52fe6b96 * lisp/find-file.el (ff-other-file-alist): Doc fix. (Bug#...
+ d111b5b651 * lisp/info.el (Info-mode): Support the Linux console better.
+ cc945ec0ed ; Fix doc strings in latin1-disp.el
+ 195fcc932e Improve the documentation of glyphless-character display
+ 72ae02377e ; * lisp/jit-lock.el (jit-lock-chunk-size): Doc fix.
+ 3fb69fad49 Fix documentation of 'glyphless-char-display'
+
+ # Conflicts:
+ # lisp/international/characters.el
+ # src/xdisp.c
+
+2022-09-01 Stefan Kangas <stefankangas@gmail.com>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-08-25 13:54:14 UTC.
+
+2022-08-31 Jim Porter <jporterbugs@gmail.com>
+
+ Don't fail Eshell ERT tests when an internal signal gets raised
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-proc-test/pipeline-connection-type/middle)
+ (esh-proc-test/pipeline-connection-type/last): Set 'debug-on-error' to
+ nil.
+
+ Ref:
https://lists.gnu.org/archive/html/emacs-devel/2022-08/msg01452.html
+
+2022-08-31 Alan Mackenzie <acm@muc.de>
+
+ C++ Mode: Fontify functions correctly with commas in template
expressions
+
+ This fixes bug #57318.
+
+ Also apply an optimization which marks generic expressions as already
+ analyzed, thus avoiding repeating this analysis when not needed. This
+ optimization prevents the fix slowing down scrolling when the C++
source has
+ lots of template structures.
+
+ * lisp/progmodes/cc-engine.el (top-level) Near the beginning of the
file, add
+ a comment describing the new text property c-<>-c-types-set.
+ (c-update-brace-stack): Bind c-restricted-<>-arglists to nil rather
than t
+ around the call to c-forward-<>-arglist.
+ (c-forward-<>-arglist-recur): Allow the abbreviated analysis of a
generic
+ expression also when the opening < is marked with a c-<>-c-types-set
text
+ property. Set this property at the same time as the c-type properties
are set
+ on the commas inside the template structure.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-complex-decl-prepare): Clear
the
+ c-<>-c-types-set text property, along with c-type, from the region being
+ fontified.
+
+2022-08-31 Robert Pluim <rpluim@gmail.com>
+
+ Fix describe-char-fold-equivalences for composed characters
+
+ * lisp/char-fold.el (describe-char-fold-equivalences): Map
+ `get-char-code-property' across all the component codepoints of the
+ equivalent character rather than just the first one.
+
+2022-08-31 ookami <mail@ookami.one> (tiny change)
+
+ Fix semantic-find-file-noselect binding of recentf-exclude
+
+ * lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
+ recentf-exclude should be a list (bug#57489).
+
+2022-08-30 Po Lu <luangruo@yahoo.com>
+
+ Gently nudge Xt into always setting size hints
+
+ * src/widget.c (update_wm_hints): Force a resource to change
+ every time this function is called. (bug#57475)
+ (EmacsFrameInitialize): Initialize new field.
+ * src/widgetprv.h (EmacsFramePart): New field `size_switch'.
+ * src/xterm.c (x_wm_set_size_hint): Don't change flags if flags
+ is 0.
+
+2022-08-30 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#57476
+
+ * src/xterm.c (handle_one_xevent): Don't reset valuators on certain
+ crossing events, for the benefit of xfwm4. (bug#57476)
+
+2022-08-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ t-mouse.el: Make sure we apply the setting to new terminals
+
+ * lisp/t-mouse.el (gpm-mouse-tty-setup): New function.
+ (gpm-mouse-mode): Use it as well as `tty-setup-hook`.
+ * lisp/term/linux.el (terminal-init-linux): Remove gpm-specific code,
+ not neded any more.
+
+2022-08-30 Gregory Heytings <gregory@heytings.org>
+
+ Enable 256 colors in fbterm.
+
+ * lisp/term/fbterm.el: New file.
+
+ * doc/misc/efaq.texi (Emacs in a Linux console): Document the TERM
+ environment variable with which the new file is used.
+
+2022-08-30 Juri Linkov <juri@linkov.net>
+
+ Fix 744ed0ceeed7472a160fea7154939cf641205577 from bug#57082 (bug#57176)
+
+ * lisp/outline.el (outline-minor-mode-highlight-buffer): Handle
'append'.
+ (outline-minor-mode): Call outline--fix-up-all-buttons when font-lock
is used.
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common): Fix
regexp.
+
+2022-08-30 Eli Zaretskii <eliz@gnu.org>
+
+ One more fix for find-file.el
+
+ * lisp/find-file.el (ff-get-file-name): Use 'expand-file-name'
+ instead of 'concat', which doesn't DTRT with absolute file names.
+ (ff-other-file-alist): Yet another doc fix. (Bug#57325)
+
+2022-08-30 Mattias Engdegård <mattiase@acm.org>
+
+ Accept bignum arguments in `take` and `ntake`
+
+ * src/fns.c (Ftake, Fntake): Accept any integer as first argument, for
+ completeness.
+ * test/src/fns-tests.el (fns--take-ntake): Add test cases.
+
+2022-08-30 Po Lu <luangruo@yahoo.com>
+
+ Fix junk data being returned with incremental selection transfers
+
+ * src/xselect.c (receive_incremental_selection): New arg
+ REAL_BYTES_RET. Set it to the actual size instead of using the
+ size of the array after it was grown by xpalloc.
+ (x_get_window_property_as_lisp_data): Adjust call to
+ receive_incremental_selection.
+
+2022-08-30 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (package-vc-unpack): Fix 'vc-ignore' call
+
+ When generating the manual node (/dir), we need to ensure that the
+ default-directory is set to the package root, otherwise the file is
+ ignored in some other repository, that probably doesn't exist.
+
+2022-08-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix char-fold compilation warning
+
+ * lisp/char-fold.el (require): Get string-join definition.
+
+2022-08-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/char-fold.el (describe-char-fold-equivalences): New command.
+
+ (char-fold--no-regexp): New internal variable.
+ (char-fold--make-table): Use it to skip translation to regexp.
+ Suggested by Robert Pluim <rpluim@gmail.com>.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-07/msg00864.html
+
+2022-08-29 Jim Porter <jporterbugs@gmail.com>
+
+ Handle 'eshell-pipe-broken' when evaluating Lisp forms in Eshell
+
+ * lisp/eshell/esh-cmd.el (eshell-exec-lisp): Handle
+ 'eshell-pipe-broken'.
+
+ * lisp/eshell/esh-io.el (eshell-output-object-to-target): Only signal
+ 'eshell-pipe-broken' if the process being written to has finished.
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-proc-test/pipeline-connection-type/middle)
+ (esh-proc-test/pipeline-connection-type/last): Remove ':unstable'.
+
+ Ref:
https://lists.gnu.org/archive/html/emacs-devel/2022-08/msg00524.html
+
+2022-08-29 Gregory Heytings <gregory@heytings.org>
+
+ Recommend using fbterm in the Linux console.
+
+ * doc/misc/efaq.texi (Emacs in a Linux console): New node.
+ (Common requests): Entry for the new node.
+
+ * etc/PROBLEMS (Linux console problems...): Mention the new FAQ node.
+
+2022-08-29 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Merge remote-tracking branch 'origin/master' into feature/tree-sitter
+
+2022-08-29 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve point-at-{bol,eol} obsoletion message
+
+ * lisp/subr.el (point-at-eol, point-at-bol): Mention 'pos-eol' and
+ 'pos-bol' in obsoletion message.
+
+2022-08-29 Mattias Engdegård <mattiase@acm.org>
+
+ Fix reader memory leak upon error (bug#56623)
+
+ Reported by Tom Gillespie; error found by Greg Hendershott.
+
+ * src/lread.c (read_stack_reset): New.
+ (read0): Reset read stack when unwinding from an error.
+
+2022-08-29 Jake Moss <jake.moss@uq.net.au> (tiny change)
+
+ Show gdb-mi disassembly over tramp
+
+ * lisp/progmodes/gdb-mi.el (gdb-invalidate-disassembly): Show
+ gdb-mi disassembly over tramp (bug#57464).
+
+2022-08-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Work around `&' dired command when using the fish shell
+
+ * lisp/dired-aux.el (dired-shell-stuff-it): Add a space before
+ &wait; this apparently makes the `&' command work with the fish
+ shell (bug#57472).
+
+2022-08-29 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/find-file.el (ff-other-file-alist): Doc fix. (Bug#57325)
+
+2022-08-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix point adjustment in recreated *Messages* buffers
+
+ * lisp/startup.el (normal-top-level): Move setting of
+ 'window-point-insertion-type' from here...
+ * lisp/simple.el (messages-buffer-mode): ...to here. This is so
+ any *Messages* buffers we create instead of the original one, if
+ it's killed, will have the same type of the window-point marker.
+ (Bug#57466)
+
+2022-08-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/keyboard.c (safe_run_hooks*): Simplify and generalize
+
+ (safe_run_hooks_1, safe_run_hook_funcall): Simplify and generalize to
+ arbitrary `nargs`.
+ (safe_run_hooks_error): Remove unneeded assertion.
+
+2022-08-29 Michael Albinus <michael.albinus@gmx.de>
+
+ Do not connect unreachable remote hosts in recentf
+
+ * lisp/recentf.el (recentf-expand-file-name): Protect against
+ stalled remote hosts. (Bug#57336)
+
+2022-08-29 Po Lu <luangruo@yahoo.com>
+
+ Unify floating point handling when reading XI motion events
+
+ * src/xterm.c (handle_one_xevent): Always round values as
+ recommended, instead of just truncating them. Also fixes
+ weird "jitter" during drag-and-drop on some clients.
+
+2022-08-28 Juri Linkov <juri@linkov.net>
+
+ 'C-c C-d' on vc-log buffer shows the diff from 'vc-log-fileset'
(bug#52349)
+
+ * lisp/vc/log-edit.el (log-edit-diff-fileset): New function.
+
+ * lisp/vc/vc-dispatcher.el (vc-log-edit): Set log-edit-diff-function to
+ log-edit-diff-fileset instead of vc-diff.
+
+ * lisp/vc/vc.el (vc-diff): New optional arg ‘fileset’.
+ If non-nil, use instead of vc-deduce-fileset.
+
+2022-08-28 Juri Linkov <juri@linkov.net>
+
+ 'C-x v v' on a diff buffer commits it as a patch (bug#52349)
+
+ * lisp/vc/diff-mode.el (diff-vc-deduce-fileset): New function.
+
+ * lisp/vc/log-edit.el (log-edit-diff-patch): New function.
+
+ * lisp/vc/vc-dispatcher.el (vc-log-edit): Set log-edit-diff-function
+ to log-edit-diff-patch when vc-patch-string is non-nil.
+ (vc-start-logentry): New optional arg 'patch-string'.
+ Set buffer-local 'vc-patch-string' to 'patch-string'.
+ (vc-dispatcher-browsing): Add (derived-mode-p 'diff-mode).
+
+ * lisp/vc/vc-git.el (vc-git-checkin-patch): New function.
+ (vc-git-checkin): When vc-git-patch-string is non-nil,
+ use `git apply --cached` to add the patch to the index,
+ then commit the staged changes.
+
+ * lisp/vc/vc.el: New backend function 'checkin-patch'.
+ (vc-deduce-fileset-1): Call diff-vc-deduce-fileset in diff-mode.
+ (vc-next-action): For model 'patch' call vc-checkin with the
+ diff buffer string.
+ (vc-checkin): New optional arg 'patch-string'.
+ Call backend function 'checkin-patch' when 'patch-string' is non-nil.
+ Call vc-start-logentry with 'patch-string'.
+ (vc-diff-patch-string): New function.
+
+2022-08-28 Juri Linkov <juri@linkov.net>
+
+ Revert parts of 3f076a8e44 that caused test failures
+
+ * lisp/simple.el (line-move-finish):
+ * lisp/window.el (scroll-command--goto-goal-column):
+ Revert back to using truncate-partial-width-windows instead of
+ truncated-partial-width-window-p. This change caused test failures
+ in lisp/ls-lisp-tests.log and lisp/emacs-lisp/edebug-tests.log.
+
+2022-08-28 Ken Brown <kbrown@cornell.edu>
+
+ Fix data for files-tests-bug-21454 on Cygwin
+
+ * test/lisp/files-tests.el (files-tests-bug-21454): Fix test data
+ to reflect the fact that Cygwin supports UNC paths.
+
+2022-08-28 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/info.el (Info-mode): Support the Linux console better.
+
+2022-08-28 Eli Zaretskii <eliz@gnu.org>
+
+ Improve the documentation of glyphless-character display
+
+ * lisp/international/characters.el (glyphless-char-display-control):
+ * src/xdisp.c (syms_of_xdisp) <glyphless-char-display>: Mention
+ the 'glyphless-char' face in the doc string.
+
+ * doc/lispref/display.texi (Glyphless Chars): Index
+ 'glyphless-char' face.
+
+2022-08-28 Po Lu <luangruo@yahoo.com>
+
+ Fix two issues in xterm.c
+
+ * src/xterm.c (x_atom_refs): Make EMACS_SERVER_TIME_PROP atom
+ have a vendor-specific prefix.
+ (x_query_pointer_1): Fix leak of button mask.
+
+2022-08-27 Juri Linkov <juri@linkov.net>
+
+ Use truncated-partial-width-window-p in more places (bug#56815)
+
+ * lisp/simple.el (line-move, line-move-finish):
+ Use truncated-partial-width-window-p.
+
+ * lisp/window.el (count-screen-lines, scroll-command--goto-goal-column):
+ Use truncated-partial-width-window-p.
+ (truncated-partial-width-window-p): Replace window-width with
+ window-total-width.
+
+ * src/indent.c (scan_for_column): Bring the logic of using
+ truncated-partial-width-window-p closer to what the display engine does.
+
+2022-08-27 Juri Linkov <juri@linkov.net>
+
+ Use a list of text properties to search in symlink filenames in Wdired
+
+ * lisp/dired-aux.el (dired-isearch-search-filenames):
+ Use text properties 'dired-filename' and 'dired-symlink-filename'.
+
+ * lisp/dired.el (dired-font-lock-keywords): Add text property
+ 'dired-symlink-filename' on symlinks.
+
+ * lisp/isearch.el (isearch-search-fun-in-text-property):
+ Support a list of text properties (bug#57293).
+
+2022-08-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dynamic info-lookup more backwards-compatible
+
+ * lisp/info-look.el (info-lookup--expand-info): Don't try to
+ expand elements that aren't functions (bug#57446).
+
+2022-08-27 Daniel Martín <mardani29@yahoo.es>
+
+ Fix webp detection on some Macos systems
+
+ * configure.ac (HAVE_RSVG): Make webp detection work with Macos
+ 10.3/Homebrew (bug#57420).
+
+2022-08-27 Eli Zaretskii <eliz@gnu.org>
+
+ Fix regression with cursor motion in Magit buffers
+
+ * lisp/simple.el (line-move): Condition movement optimizations on
+ presence of very long lines. (Bug#57433)
+
+2022-08-27 Eli Zaretskii <eliz@gnu.org>
+
+ Fix antialias face attribute when text is scaled
+
+ This restores the code we had in realize_gui_face before commit bf0d3f7.
+ The problem described in bug#17973, which led to that commit, only
+ happens if one uses a specific (misc-fixed) font family, not for
+ the usual default fonts used by Emacs, and I'm not sure what's
+ described there is a bug at all. At least for the purposes of
+ text-scale-adjust, it makes no sense to ignore the
+ foundry/family/adstyle of the original font, because we _want_ the
+ same (or very similar) font, just of a different size.
+
+ And likely in other use cases: if the :font attribute of a face
+ specifies some font properties, we want to keep them all, not
+ arbitrarily to ignore some of them. And definitely catering to an
+ obscure use case such as the one cited in bug#17973 is NOT a good
+ reason to make such radical changes in face-realization behavior.
+
+ So I think backing out that part of commit bf0d3f7 is TRT, and if
+ we decide that this causes bug#17973 in too many situations we care
+ about, I'd rather find a kludge for that specific case than do that
+ for every face realization.
+ * src/xfaces.c (realize_gui_face): Preserve face attributes when
+ text is scaled. This reverts part of the changes installed in
+ commit bf0d3f7. (Bug#37473)
+
+2022-08-27 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Remove double evaluation of self-quoting function in
cc-langs.el
+
+ This is a followup to Stefan Monnier's fix for bug #57065 from
2022-08-25.
+
+ * lisp/progmodes/cc-langs.el (c-init-language-vars): Add a #' after the
+ funcall.
+
+2022-08-27 Eli Zaretskii <eliz@gnu.org>
+
+ Support "replacement characters" on TTY frames
+
+ * src/nsterm.m (ns_draw_glyphless_glyph_string_foreground):
+ * src/pgtkterm.c (pgtk_draw_glyphless_glyph_string_foreground):
+ * src/haikuterm.c (haiku_draw_glyphless_glyph_string_foreground):
+ * src/xterm.c (x_draw_glyphless_glyph_string_foreground):
+ * src/w32term.c (w32_draw_glyphless_glyph_string_foreground):
+ * src/xdisp.c (lookup_glyphless_char_display): Handle extra-slot
+ of 'glyphless-char-display' that is a cons cell.
+ (syms_of_xdisp) <glyphless-char-display>: Update doc string.
+
+ * etc/NEWS:
+ * doc/lispref/display.texi (Glyphless Chars): Document the new
+ feature.
+
+ * lisp/faces.el (glyphless-char): Make the face stand out on TTY
+ frames that don't support the underline attribute.
+
+2022-08-27 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'glyphless-char-display'
+
+ * src/xdisp.c (syms_of_xdisp)<glyphless-char-display>: Doc fix.
+ (gui_produce_glyphs, lookup_glyphless_char_display): Fix
+ indentation.
+
+2022-08-26 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when handling "swallowed" generic events
+
+ * src/xmenu.c (x_menu_translate_generic_event, x_menu_show):
+ Pass through more events, correctly.
+ * src/xterm.c (handle_one_xevent): Don't abort if must_free_data
+ and xi_event is NULL; this is an Xlib bug.
+
+2022-08-26 Dmitry Gutov <dgutov@yandex.ru>
+
+ xref-matches-in-files: Use with-connection-local-variables
+
+ * lisp/progmodes/xref.el (xref-matches-in-files):
+ Use with-connection-local-variables (bug#57385).
+
+2022-08-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Use shr as default for mm-text-html-renderer
+
+ * lisp/gnus/mm-decode.el (mm-text-html-renderer): Use 'shr' as
+ default to avoid a nil value.
+ Problem reported by Mattias Engdegård <mattiase@acm.org>.
+
+2022-08-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify the :box attributes in Face Attributes lispref node
+
+ * doc/lispref/display.texi (Face Attributes): Mention that the
+ elements are optional (bug#50699).
+
+2022-08-26 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fontify correctly a brace list element followed only
+ by syntactic WS
+
+ This fixes a regression introduced in the fix for bug #56841
+ on 2022-08-24.
+
+ * lisp/progmodes/cc-engine.el (c-forward-declarator): Allow
+ point to be at EOB after the call to c-forward-name, rather
+ than rejecting it as an invalid declarator. Also reindent
+ a section of this function.
+
+2022-08-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Use `rx' in Tramp where possible
+
+ * lisp/net/tramp.el:
+ * lisp/net/tramp-adb.el:
+ * lisp/net/tramp-archive.el:
+ * lisp/net/tramp-cache.el:
+ * lisp/net/tramp-cmds.el:
+ * lisp/net/tramp-compat.el:
+ * lisp/net/tramp-crypt.el:
+ * lisp/net/tramp-ftp.el:
+ * lisp/net/tramp-fuse.el:
+ * lisp/net/tramp-gvfs.el:
+ * lisp/net/tramp-integration.el:
+ * lisp/net/tramp-rclone.el:
+ * lisp/net/tramp-sh.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-sudoedit.el: Use `rx' where possible.
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-set-file-times):
+ Use `eval-when-compile'.
+ (tramp-adb-maybe-open-connection): Use file-property for "/". Use
+ `eval-when-compile'.
+
+ * lisp/net/tramp-cmds.el (mm-7bit-chars): Declare.
+ (tramp-reporter-dump-variable): Simplify point movement.
+
+ * lisp/net/tramp-gvfs.el (tramp-dbus-function): Fix typo.
+ (tramp-zeroconf-parse-device-names): Use `tramp-prefix-port-format'.
+
+ * lisp/net/tramp-sh.el (tramp-open-shell, tramp-find-shell):
+ Use `eval-when-compile'. Improve sanity check.
+
+ * lisp/net/tramp.el (tramp-prefix-format, tramp-prefix-regexp)
+ (tramp-method-regexp, tramp-postfix-method-format)
+ (tramp-postfix-method-regexp, tramp-prefix-ipv6-format)
+ (tramp-prefix-ipv6-regexp, tramp-postfix-ipv6-format)
+ (tramp-postfix-ipv6-regexp, tramp-postfix-host-format)
+ (tramp-postfix-host-regexp, tramp-remote-file-name-spec-regexp)
+ (tramp-file-name-structure, tramp-file-name-regexp)
+ (tramp-completion-method-regexp)
+ (tramp-completion-file-name-regexp): Declare.
+ (tramp-set-syntax): Set also `tramp-completion-method-regexp'.
+ (tramp-volume-letter-regexp, tramp-completion-method-regexp-alist):
+ New defconsts.
+ (tramp-build-completion-method-regexp): New defun.
+ (tramp-completion-method-regexp): New defvar.
+ (tramp-completion-file-name-regexp-default)
+ (tramp-completion-file-name-regexp-simplified)
+ (tramp-completion-file-name-regexp-separate)
+ (tramp-completion-file-name-regexp-alist): Remove.
+ (tramp-build-completion-file-name-regexp): Rwrite.
+ (tramp-make-tramp-file-name): Use `tramp-archive-method'.
+ (tramp-handle-file-directory-p): Ignore errors.
+ (tramp-handle-find-backup-file-name, tramp-handle-lock-file)
+ (tramp-handle-make-auto-save-file-name): Use `eval-when-compile'.
+
+ * test/lisp/net/tramp-archive-tests.el:
+ * test/lisp/net/tramp-tests.el: Use `rx' where possible.
+ (tramp-test01-file-name-syntax): Adapt test.
+
+2022-08-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the *Ido COmpletions* buffer fit the window to the buffer
+
+ * lisp/ido.el (ido-completion-help): Display the ido completions
+ buffer pretty much the same way that the default *Completions*
+ buffer is displayed (bug#50671). This means that we're defaulting
+ to fit-window-to-buffer.
+
+2022-08-26 Augusto Stoffel <arstoffel@gmail.com>
+
+ New option 'thrifty' for Man-notify-method
+
+ * lisp/man.el (Man-notify-when-ready): Accept new 'thrifty' notify
+ method.
+ (Man-notify-method): Explain what 'thrifty' does (bug#57408).
+
+2022-08-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Delete blank lines at the start of the cited text in
message-indent-citation
+
+ * lisp/gnus/message.el (message-indent-citation): Fix thinko in
+ the fix for the previous thinko.
+
+2022-08-26 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix recent gamegrid.el change for nox build
+
+ * lisp/play/gamegrid.el (gamegrid-make-glyph): Declare
+ image-scaling-factor as special before dynamically binding it, for
+ the sake of --without-x builds which do not preload lisp/image.el.
+
+2022-08-26 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Pacify obsolete gv warnings in xt-mouse-tests.el
+
+ * test/lisp/xt-mouse-tests.el (with-xterm-mouse-mode): Replace
+ deprecated generalized variables frame-width and frame-height with
+ direct calls to set-frame-width and set-frame-height, respectively.
+
+2022-08-26 Jim Porter <jporterbugs@gmail.com>
+
+ Kill the buffer for the temp file after using '$<command>' in Eshell
+
+ * lisp/eshell/esh-var.el (eshell-parse-variable-ref): Kill the temp
+ file's buffer when we're done.
+
+ Ref:
https://lists.gnu.org/archive/html/bug-gnu-emacs/2022-08/msg01444.html
+
+2022-08-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ e3b8577525 ; * etc/DEBUG: Fix wording of "X protocol errors" section.
+
+2022-08-26 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 9e03e29c4e * lisp/wdired.el: Improve "Commentary" section.
+ 92e90297f9 * lisp/wdired.el: Doc fix; don't mention obsolete variable.
+ 2ccefef4c7 * lisp/progmodes/etags.el (next-file): Minor doc fix.
+
+2022-08-25 Po Lu <luangruo@yahoo.com>
+
+ Restore old code in x_sync_trigger_fence
+
+ * src/xterm.c (x_sync_trigger_fence): Restore old code, since that
+ makes it easier to adapt to more than 2 sync fences (which might be
+ necessary in the future, if we ever decide to do frame handling
+ asynchronously), and is much more recognizable for people coming from
+ other programs.
+
+2022-08-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-08-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix overflows in HAVE_XSYNC timestamp handling
+
+ Also, port to platforms lacking CLOCK_MONOTONIC and int64_t, and
+ use 0 more consistently to represent missing timestamps.
+ * src/xterm.h (struct x_display_info):
+ Omit server_time_monotonic_p and server_time_offset if
+ !HAVE_CLOCK_GETTIME since they are unused in that case.
+ * src/xterm.h (struct x_display_info, struct x_output):
+ * src/xterm.c (x_sync_get_monotonic_time)
+ (x_sync_current_monotonic_time, x_sync_note_frame_times):
+ Use int_fast64_t instead of int64_t as POSIX doesn't
+ guarantee the latter. Similarly for uint_fast64_t.
+ (x_sync_get_monotonic_time, x_sync_current_monotonic_time)
+ (x_sync_note_frame_times, x_display_set_last_user_time):
+ Check for integer overflow in time arithmetic.
+ (CLOCK_MONOTONIC): Define to CLOCK_REALTIME if absent.
+ (x_sync_current_monotonic_time): Check for clock_gettime failure
+ and fall back on CLOCK_REALTIME if CLOCK_MONOTONIC does not work,
+ which POSIX allows.
+ (x_sync_current_monotonic_time, x_sync_note_frame_times)
+ (x_display_set_last_user_time):
+ Use 0 more consistently to represent missing timestamps.
+
+2022-08-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix unlikely core dump with Xaw
+
+ * lwlib/lwlib-Xaw.c (make_dialog): Don’t dump core if calloc fails.
+ Caught with --enable-gcc-warnings.
+
+2022-08-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/cc-langs.el (c-make-no-parens-syntax-table): Fix
bug#57065
+
+ (c-lang-const c-make-mode-syntax-table) already returns a function,
+ so quote it to avoid double evaluation since it could fail if the
+ function is not self-evaluating, such as when it's a symbol or
+ a value of the form (closure ...).
+
+2022-08-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve explanation of init file in FAQ
+
+ * doc/misc/efaq.texi (Setting up a customization file): Improve
+ and update section to reflect current behavior. Add
+ cross-references back to this section.
+ * doc/emacs/custom.texi (Init File): Add comment to remind about
+ also updating the FAQ.
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-08/msg01056.html
+
+2022-08-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't refer to Emacs 24.3 or older in FAQ
+
+ * doc/misc/efaq.texi: Don't say that the FAQ has been edited.
+ (Displaying the current line or column, Automatic indentation)
+ (Problems with very large files, Emacs for other operating systems)
+ (Right-to-left alphabets, Expanding aliases when sending mail): Remove
+ references to Emacs 24.3 or older.
+
+ (Learning how to do something): Don't include the reference card
+ price; it is currently incorrect and is likely to be incorrect again
+ in the future.
+
+2022-08-25 Robert Pluim <rpluim@gmail.com>
+
+ Treat smtp-auth method from auth-info as a symbol
+
+ The lookup of the SMTP auth method is done based on symbols, but
+ sometimes the requested value comes from `auth-info', in which case it
+ is a string, so call `intern-soft' to convert it to a symbol (which
+ does nothing if it's already a symbol).
+
+ * lisp/mail/smtpmail.el (smtpmail-try-auth-methods): Call
+ `intern-soft' on the smtp-auth key's value. (Bug#57373)
+
+ Do not merge to master
+
+2022-08-25 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/wdired.el: Improve "Commentary" section.
+
+ * lisp/wdired.el: Doc fix; don't mention obsolete variable.
+
+ * lisp/progmodes/etags.el (next-file): Minor doc fix.
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new user option grep-command-position
+
+ * lisp/progmodes/grep.el (grep-command): Mention it.
+ (grep-command-position): New user option.
+ (grep): Use it (bug#50502).
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document how :map and :scale interacts in image maps
+
+ * doc/lispref/display.texi (Image Descriptors): Mention problems
+ with scaling (bug#50487).
+
+2022-08-25 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix generalized variable documentation for recent change
+
+ * doc/lispref/variables.texi (Setting Generalized Variables): Delete
+ obsolete generalized variable 'frame-width'.
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make a prefix go to the previous error
+
+ * lisp/textmodes/flyspell.el (flyspell-goto-next-error): Make a
+ prefix find the previous error (bug#50443).
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention C-x C-q + revert change in NEWS
+
+2022-08-25 Robert Pluim <rpluim@gmail.com>
+
+ Treat smtp-auth method from auth-info as a symbol
+
+ The lookup of the SMTP auth method is done based on symbols, but
+ sometimes the requested value comes from `auth-info', in which case it
+ is a string, so call `intern-soft' to convert it to a symbol (which
+ does nothing if it's already a symbol).
+
+ * lisp/mail/smtpmail.el (smtpmail-try-auth-methods): Call
+ `intern-soft' on the smtp-auth key's value. (Bug#57373)
+
+2022-08-25 Kien Nguyen <kien.n.quang@gmail.com>
+
+ Allow symlink creation on MS-Windows without Administrator privileges
+
+ * src/w32.c (symlink): Use the
+ SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE flag when available.
+ (Bug#57386)
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix warning about obsoleted generalized variables
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warn-obsolete):
+ Autoload so that the call here from gv.el (about obsolete
+ generalized variables) doesn't bug out (bug#57394).
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make frame-width obsolete as a generalized variable
+
+ * lisp/emacs-lisp/gv.el (frame-width): Make obsolete as
+ generalized variable.
+
+2022-08-25 Daniel Martín <mardani29@yahoo.es>
+
+ Fix instrumented eval-defun not printing "Edebug:" to the echo area
+
+ * lisp/progmodes/elisp-mode.el (elisp--eval-defun): Determine if we're
+ instrumenting a function and call eval-region with PRINTFLAG set to
+ nil if so (Bug#50245).
+
+ * test/lisp/progmodes/elisp-mode-tests.el
+ (eval-defun-prints-edebug-when-instrumented): Add a new test.
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add hideshow-test.el file (bug#56635)
+
+2022-08-25 kobarity <kobarity@gmail.com>
+
+ Add Python blocks support for hideshow
+
+ * lisp/progmodes/python.el (python-nav-beginning-of-block-regexp):
+ New variable.
+ (python-hideshow-forward-sexp-function): Change to call
+ `python-nav-end-of-block'.
+ (python-hideshow-find-next-block): New function to be used as
+ FIND-NEXT-BLOCK-FUNC in `hs-special-modes-alist'.
+ (python-info-looking-at-beginning-of-block): New function to be
+ used as LOOKING-AT-BLOCK-START-P-FUNC in `hs-special-modes-alist'.
+ (python-mode): Change settings of `hs-special-modes-alist'.
+
+ * test/lisp/progmodes/python-tests.el
+ (python-hideshow-hide-levels-1): Fix to keep empty lines.
+ (python-info-looking-at-beginning-of-block-1)
+ (python-hideshow-hide-levels-3, python-hideshow-hide-levels-4)
+ (python-hideshow-hide-all-1, python-hideshow-hide-all-2)
+ (python-hideshow-hide-all-3, python-hideshow-hide-block-1): New
+ tests (bug#56635).
+
+2022-08-25 kobarity <kobarity@gmail.com>
+
+ Extend `hs-special-modes-alist' for languages such as Python
+
+ * lisp/progmodes/hideshow.el (hs-special-modes-alist): Add
+ elements FIND-BLOCK-BEGINNING-FUNC, FIND-NEXT-BLOCK-FUNC, and
+ LOOKING-AT-BLOCK-START-P-FUNC.
+ (hs-find-block-beginning-func): New variable to hold
+ FIND-BLOCK-BEGINNING-FUNC.
+ (hs-find-next-block-func): New variable to hold
+ FIND-NEXT-BLOCK-FUNC.
+ (hs-looking-at-block-start-p-func): New variable to hold
+ LOOKING-AT-BLOCK-START-P-FUNC.
+ (hs-grok-mode-type): Set new variables from
+ `hs-special-modes-alist'.
+ (hs-find-next-block): New function.
+ (Misc.): Update callers of the above functions.
+
+ * test/lisp/progmodes/hideshow-tests.el: New test file (bug#56635).
+
+2022-08-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow not deleting the config.cache file with "make FAST=true bootstrap"
+
+ * Makefile.in: Add some commentary about make bootstrap,
+ ./configure -C and FASTo
+ (top_bootclean): Don't delete config.cache here.
+ (top_distclean): Delete it here instead.
+ (bootstrap-clean): Allow not deleting the cache file.
+
+ * admin/emake (cores): Adjust.
+
+2022-08-25 Michael Albinus <michael.albinus@gmx.de>
+
+ Minor fixes in tramp-tests.el
+
+ * test/lisp/net/tramp-tests.el (tramp--test-deftest-with-stat)
+ (tramp--test-deftest-with-perl)
+ (tramp--test-deftest-with-ls): Skip if underlying test didn't run
+ or lasted too long.
+ (tramp--test-shell-file-name): Do not depend on `tramp--test-adb-p'.
+
+2022-08-25 Andreas Schwab <schwab@suse.de>
+
+ * configure.ac: Move AC_LANG_PUSH/POP out of AC_CACHE_CHECK.
(Bug#57380)
+
+2022-08-25 Po Lu <luangruo@yahoo.com>
+
+ Fix various problems with mouse highlight on XI2 builds
+
+ * src/dispextern.h (reset_mouse_highlight): Fix coding style.
+ * src/xterm.c (xi_position_changed): New functions.
+ (xi_report_motion_window_clear, handle_one_xevent): Don't report
+ motion events if the pixel position did not actually change.
+
+ * src/xterm.h (struct xi_device_t): New fields
+ `last_motion_window', `last_motion_x' and `last_motion_y'.
+
+2022-08-24 Dmitry Gutov <dgutov@yandex.ru>
+
+ vc-merge: Look for 'merge-file' instead of 'merge'
+
+ * lisp/vc/vc.el (vc-merge):
+ Look for 'merge-file' in second clause (bug#50258).
+
+2022-08-24 Alan Mackenzie <acm@muc.de>
+
+ C++ Mode - Fontify "class Foo {\n ~Foo() noexcept;" correctly
+
+ This fixes bug #49787.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): (In `if' form
just
+ before CASE 8) Remove the (not ...) around the (looking-at
+ c-after-suffixed-type-maybe-decl-key).
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-complex-decl-prepare): Add
+ `c-not-decl' to the values of c-type which are erased at the start of a
+ fontification.
+
+2022-08-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix handling of UNCs in 'parse-colon-path
+
+ * lisp/files.el (parse-colon-path): Don't remove the second
+ leading slash on systems that support UNCs. (Bug#57353)
+
+ * test/lisp/files-tests.el (files-tests-bug-21454): Update
+ expected results.
+ (files-colon-path): Add a new test pattern.
+
+2022-08-24 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fontify args correctly when arglist closing ) is not on the
same line
+
+ This fixes bug #56841.
+
+ * lisp/progmodes/cc-engine.el (c-forward-declarator): Fix an off-by-one
+ comparing the position after a c-forward-name with a limit.
+
+ * lisp/progmodes/cc-mode.el (c-fl-decl-end): Handle correctly point
starting
+ inside a literal. Insert a missing c-backward-syntactic-ws in the
handling of
+ C++ attributes. Correctly handle an unmatched (. Better handle point
+ starting inside a [ or (. Tidy up the handling of syntactic whitespace
at the
+ end of the buffer.
+
+2022-08-24 Santiago Calandrino <san@disroot.org> (tiny change)
+
+ Fix string padding in gdb-mi
+
+ * lisp/progmodes/gdb-mi.el (gdb-table): Fix string padding in
+ gdb-mi (bug#57362).
+ (gdb-pad-string): Unobsolete.
+ (gdb-table-string): Re-fix string padding.
+
+2022-08-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't lose read-only marking when reverting a view-mode buffer
+
+ * lisp/view.el (view--enable): Don't lose read-only-ness when
+ reverting (bug#35166).
+
+2022-08-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ When reverting, preserve the readedness state set by `C-x C-q'
+
+ * lisp/files.el (revert-buffer): Save the user's intention in a
+ variable (bug#50431).
+
+ * lisp/simple.el (read-only-mode): Use it.
+
+2022-08-24 Po Lu <luangruo@yahoo.com>
+
+ Fix input extension focus tracking with some window managers
+
+ * src/xterm.c (handle_one_xevent): If a window manager sends us
+ FocusIn and FocusOut with XSendEvent (they do that), don't
+ detect focus changes when XInput 2 is enabled. The X server
+ will tell us the actual truth if the focus really did change.
+
+2022-08-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Make mh-colors-available-p obsolete
+
+ * lisp/mh-e/mh-utils.el (mh-colors-available-p): Redefine as
+ obsolete function alias for 'display-color-p'.
+
+2022-08-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer saying "init file" to ".emacs" in FAQ
+
+ * doc/misc/efaq.texi: Prefer saying "init file" to
+ ".emacs". (Bug#49424)
+
+2022-08-23 Stefan Kangas <stefan@marxist.se>
+
+ Use substitute-command-keys in a few more places
+
+ * lisp/indent.el (edit-tab-stops):
+ * lisp/printing.el (pr-help-message, pr-show-setup):
+ * lisp/progmodes/cperl-mode.el (cperl-narrow-to-here-doc): Use
+ substitute-command-keys.
+
+2022-08-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Move generalized variable `substring' doc to elisp manual
+
+ * doc/misc/cl.texi (Setf Extensions): Move documentation on
+ 'substring' generalized variable from here...
+ * doc/lispref/variables.texi (Setting Generalized Variables):
+ ...to here.
+
+2022-08-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Move generalized variable docs to elisp manual
+
+ * doc/misc/cl.texi (Setf Extensions): Delete documentation on obsolete
+ generalized variable 'buffer-substring'. Move documentation on
+ generalized variables from here...
+ * doc/lispref/variables.texi (Setting Generalized Variables):
+ ...to here. These variables have already been moved to gv.el.
+
+2022-08-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Update documentation for obsolete generalized variables
+
+ * doc/misc/cl.texi (Setf Extensions): Delete obsolete generalized
+ variables from list.
+ * etc/NEWS: Fix sorting of obsolete generalized variables.
+
+2022-08-23 Gregory Heytings <gregory@heytings.org>
+
+ Merge master into feature/improved-locked-narrowing.
+
+2022-08-23 Gregory Heytings <gregory@heytings.org>
+
+ Improve detection of long lines.
+
+ * src/buffer.h (struct buffer_text): New field.
+ (BUF_CHARS_UNCHANGED_MODIFIED, CHARS_UNCHANGED_MODIFIED): New macros.
+
+ * src/buffer.c (Fget_buffer_create): Initialize the new field.
+
+ * src/xdisp.c (mark_window_display_accurate_1): Set the new field.
+ (redisplay_window): Use it, together with CHARS_MODIFF, instead of
+ MODIFF and UNCHANGED_MODIFIED to decide whether to check for long
+ lines.
+
+ * src/pdumper.c (dump_buffer): Dump the new field.
+
+2022-08-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entry about obsoleted generalized variables
+
+2022-08-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Make XEmacs compat alias face-background-pixmap obsolete
+
+ * lisp/faces.el (face-background-pixmap)
+ (set-face-background-pixmap): Make XEmacs compat aliases obsolete in
+ favor of 'face-stipple' and 'set-face-stipple'. Update callers.
+
+ * lisp/emacs-lisp/gv.el (face-background-pixmap): Make XEmacs
+ alias obsolete as a generalized variable.
+ (face-stipple): New generalized variable.
+ * doc/misc/cl.texi (Setf Extensions): Refer to above new generalized
+ variable instead of the obsolete one.
+
+2022-08-23 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/elisp-mode.el (elisp--local-variables-1): Fix bug#50034
+
+ Don't burp if the arg list of a function is not actually a list.
+
+2022-08-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Make Emacs 20 compat alias obsolete in eudcb-ldap.el
+
+ * lisp/net/eudcb-ldap.el (eudc-ldap-get-host-parameter): Make
+ Emacs 20 compat alias obsolete.
+
+2022-08-23 Gerd Möllmann <gerd@gnu.org>
+
+ Fix pixel-scroll-precision in a corner case
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-up-page): Handle
+ case that point cannot be found.
+ (pixel-scroll-precision-scroll-up): Handle case that window is one line
high
+ (bug#57349)
+
+2022-08-23 Po Lu <luangruo@yahoo.com>
+
+ Make frame synchronization conditional on clock_gettime
+
+ * src/xfns.c (x_set_parent_frame)
+ (x_set_use_frame_synchronization):
+ * src/xterm.c (x_update_begin, show_back_buffer, x_update_end)
+ (x_display_set_last_user_time, handle_one_xevent):
+ * src/xterm.h (struct x_output): Define out vsync code when
+ !HAVE_CLOCK_GETTIME. (bug#57346)
+
+2022-08-23 Po Lu <luangruo@yahoo.com>
+
+ Make frame synchronization conditional on clock_gettime
+
+ * src/xfns.c (x_set_parent_frame)
+ (x_set_use_frame_synchronization):
+ * src/xterm.c (x_update_begin, show_back_buffer, x_update_end)
+ (x_display_set_last_user_time, handle_one_xevent):
+ * src/xterm.h (struct x_output): Define out vsync code when
+ !HAVE_CLOCK_GETTIME.
+
+2022-08-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Disable a lisp-mode test that now fails
+
+ * test/lisp/emacs-lisp/lisp-mode-tests.el
+ (test-lisp-current-defun-name): Comment-out now-failing tests.
+
+2022-08-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert the changes to lisp-current-defun-name
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Revert
+ back to the old version before bug#49592. The new approach just
+ doesn't work well enough -- we don't really have the data to know
+ that, say, `make-obsolete-variable' is about the second symbol and
+ not the first.
+
+2022-08-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't mention obsolete generalized variables in *Help*
+
+ * lisp/help-fns.el (help-fns--generalized-variable): Don't mention
+ obsolete ones.
+
+2022-08-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make buffer-local-value obsolete as a generalized variable
+
+ * lisp/electric.el (electric-indent-local-mode)
+ (electric-layout-local-mode, electric-quote-local-mode):
+ * lisp/elec-pair.el (electric-pair-local-mode): Adjust usage.
+ * lisp/emacs-lisp/gv.el (make-obsolete-generalized-variable): Move
+ since we're using it earlier in the file.
+ (buffer-local-value): Make obsolete as a generalized variable
+ since the semantics are unclear (bug#26624).
+
+2022-08-23 Thierry Volpiatto <thievol@posteo.net>
+
+ Fix wdired with (dired '(dir f1 f2 ...))
+
+ * lisp/wdired.el (wdired-finish-edit): Fix wdired with (dired
+ '(dir f1 f2 ...)) (bug#57334).
+
+2022-08-23 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 1dd0a5c5db ; * doc/misc/htmlfontify.texi: Fix version.
+
+2022-08-22 Augusto Stoffel <arstoffel@gmail.com>
+
+ Fix completion-predicate of Python shell commands
+
+ * lisp/progmodes/python.el: Change some completion predicates.
+ (python-shell--completion-predicate): New completion predicate
+ function. (Bug#57184)
+
+2022-08-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Make point-at-eol and point-at-bol obsolete
+
+ * lisp/subr.el (point-at-eol, point-at-bol): Make XEmacs compat
+ aliases obsolete in favor of `pos-bol'/'line-beginning-position' or
+ 'pos-eol'/'line-end-position'. Update callers.
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-08/msg00853.html
+
+2022-08-22 Po Lu <luangruo@yahoo.com>
+
+ Allow disabling the input extension at runtime on GTK 3
+
+ * src/xterm.c (xi_check_toolkit): New function.
+ (x_term_init): Do not enable the input extension should that
+ fail.
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some no-X build warnings
+
+ * lisp/cus-edit.el (fringe-bitmap-p): Autoload.
+
+ * lisp/image.el (clear-image-cache): Declare.
+
+ * lisp/mouse.el (dnd-begin-file-dram): Autoload.
+
+ * lisp/thumbs.el (image-supported-file-p): Declare (bug#57342).
+
+ * lisp/mail/rmailmm.el (rmail-mime-set-bulk-data):
+ * lisp/emacs-lisp/icons.el (icons--create): Avoid warnings on no-X
+ builds.
+
+2022-08-22 Michael Albinus <michael.albinus@gmx.de>
+
+ auth-source: Fix wrong-type-argument when searching secret services
+
+ `auth-source-search' can be called with an integer port number,
+ while the backend implementation doesn't allow non-string attributes.
+
+ * doc/misc/auth.texi (Secret Service API): Attribute values are
+ stringified.
+
+ * lisp/auth-source.el (auth-source-secrets-search):
+ Ensure attributes are string. (Bug#55199)
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Link the "f" interactive spec to `read-file-name' in the manual
+
+ * doc/lispref/commands.texi (Interactive Codes): Link to the
+ Reading File Names node.
+
+2022-08-22 Robert Pluim <rpluim@gmail.com>
+
+ Use the attributes of frame's monitor for gamegrid
+
+ * lisp/play/gamegrid.el (gamegrid-calculate-glyph-size): Use the
+ monitor where the current frame is displayed rather than the primary
+ monitor.
+
+2022-08-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer pos-bol and pos-eol in tabulated-list.el
+
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-print)
+ (tabulated-list-print-entry, tabulated-list-delete-entry)
+ (tabulated-list-set-col, tabulated-list-previous-column): Prefer
+ pos-bol and pos-eol.
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make ispell-find-hunspell-dictionaries more resilient
+
+ * lisp/textmodes/ispell.el (ispell-find-hunspell-dictionaries):
+ Try harder to find the dictionary (bug#49982).
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix indent-tabs-mode globality
+
+ * lisp/simple.el (indent-tabs-mode): This is not a global mode, so
+ don't claim it is (bug#49971).
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the size of elements the same in pgtk and X in tetris
+
+ * lisp/play/gamegrid.el (gamegrid-glyph-height-mm): Decrease
+ height a bit (since it wasn't really that height).
+ (gamegrid-calculate-glyph-size): Change calculation to work on
+ both X and pgtk (bug#49937).
+ (gamegrid-make-glyph): Inhibit image scaling.
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove probably debugging code in reb-fontify-string-re
+
+ * lisp/emacs-lisp/re-builder.el (reb-fontify-string-re): Remove
+ code that looks like left-over debugging code. This fixes a
+ compilation warning.
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make start/end in libxml-parse-html-region optional
+
+ * doc/lispref/text.texi (Parsing HTML/XML): Adjust.
+
+ * src/xml.c (parse_region): Default start/end to point-min/point-max.
+ (Flibxml_parse_html_region, Flibxml_parse_xml_region): Make
+ start/end optional.
+
+2022-08-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix defcustom type of auto-save-file-name-transforms
+
+ * lisp/files.el (auto-save-file-name-transforms): Fix the
+ defcustom type (bug#57321).
+
+2022-08-22 Gerd Möllmann <gerd@gnu.org>
+
+ LLDB support: handle unsorted enum member lists
+
+ * etc/emacs_lldb.py (enumerator_name): Handle the case that enum
+ member list is not sorted by value.
+
+2022-08-22 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix some type
spec
+
+2022-08-22 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ 582ea6a1e9 Update to Org 9.5.4-19-g4dff42
+ 7a3ae3cb62 ; * lisp/find-file.el (ff-other-file-alist): Fix typo.
+ c3087b59f0 ; * lisp/find-file.el (ff-other-file-alist): Another doc f...
+ 1e1263b00b * lisp/find-file.el (ff-other-file-alist): Doc fix. (Bug#...
+
+2022-08-21 Po Lu <luangruo@yahoo.com>
+
+ Fix child frame focus for MPX environments
+
+ * src/xterm.c (handle_one_xevent): Set child frame click-to
+ focus on the pointer device's attachment.
+
+2022-08-21 Gonzalo Larumbe <gonzalomlarumbe@gmail.com>
+
+ Fix more lexical-binding fallout in vhdl-speedbar-insert-hierarchy
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-speedbar-insert-hierarchy):
+ Check the input arguments, not the dynamically bound `end-arglist'
+ (bug#57327).
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make *Help* display info about generalized variables
+
+ * lisp/help-fns.el (help-fns--generalized-variable): New function
+ to document generalized variables.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Make the generalized buffer-local-variable obsolete"
+
+ This reverts commit bfe222288e02472bff0e1ab5ba7ef26af6a2769a.
+
+ This led to the local modes not working.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the generalized buffer-local-variable obsolete
+
+ * lisp/paren.el (show-paren-local-mode):
+ * lisp/electric.el (electric-indent-local-mode)
+ (electric-layout-local-mode, electric-quote-local-mode):
+ * lisp/elec-pair.el (electric-pair-local-mode): Don't use it.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warn-obsolete): Autoload.
+
+ * lisp/emacs-lisp/gv.el (buffer-local-variable): Make obsolete
+ (bug#26624).
+
+ * lisp/emacs-lisp/gv.el (make-obsolete-generalized-variable): Move
+ to allow usage.
+
+2022-08-21 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.4-19-g4dff42
+
+2022-08-21 Gregory Heytings <gregory@heytings.org>
+
+ Minor improvements to locked narrowing.
+
+ * lisp/subr.el (with-locked-narrowing): Add 'save-restriction' around
+ the macro body. Update docstring.
+
+ * src/editfns.c (Fwiden, Fnarrowing_lock): Docstring improvements.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust autorevert tests to recent change
+
+ * test/lisp/autorevert-tests.el (auto-revert--wait-for-revert):
+ Adjust test to code change.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make many seldom-used generalized variables obsolete
+
+ The vast majority of these are unused in-tree, and many of them
+ perform actions that aren't obvious when reading the code.
+
+ * lisp/server.el (server-ensure-safe-dir): Prefer with-file-modes
+ over letf-ing default-file-modes.
+ (server-start): Ditto.
+
+ * lisp/winner.el (winner-set-conf): Don't use generalized variable
+ window-height.
+
+ * lisp/emacs-lisp/gv.el: Make most little-used generalized
+ variables obsolete.
+
+ * lisp/org/oc-basic.el (org-cite-basic--set-keymap): Adjust
+ buffer-substring generalized variable usage.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make it possible to mark generalized variables as obsolete
+
+ * doc/lispref/variables.texi (Adding Generalized Variables):
+ Document it.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warn-obsolete): Alter
+ the interface so that it can also be used by generalized variable
+ warnings.
+ (byte-compile-function-warn): Adjust caller.
+ (byte-compile-check-variable): Adjust caller.
+
+ * lisp/emacs-lisp/gv.el (gv-get): Warn about obsolete generalized
+ variables (bug#49730).
+ (make-obsolete-generalized-variable): New function.
+
+2022-08-21 Gregory Heytings <gregory@heytings.org>
+
+ Better way to protect redisplay routines from locked narrowings.
+
+ * src/xdisp.c (reset_outermost_narrowing,
+ unwind_reset_outermost_narrowing): New functions.
+ (redisplay_internal): Use the new functions.
+
+ * src/editfns.c (Fnarrow_to_region): Use the limits of the
+ locked restriction instead of the position arguments if necessary.
+ Update docstring.
+ (Fnarrowing_lock): Update docstring.
+
+2022-08-21 Gregory Heytings <gregory@heytings.org>
+
+ Revert 4f19e1a5d1
+
+2022-08-21 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/find-file.el (ff-other-file-alist): Doc fix. (Bug#57325)
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention delete-line in shortdoc
+
+ * lisp/emacs-lisp/shortdoc.el (buffer): Mention delete-line.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify `delete-line'
+
+ * lisp/subr.el (delete-line): Simplify.
+
+2022-08-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer pos-bol and pos-eol in bookmark.el
+
+ * lisp/bookmark.el (bookmark--set-fringe-mark)
+ (bookmark--remove-fringe-mark, bookmark-kill-line)
+ (bookmark--jump-via): Prefer pos-bol and pos-eol.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove a newline from the end of an error message
+
+ * src/pdumper.c (dump_native_comp_unit): Remove newline from end
+ of error message.
+
+2022-08-21 Mattias Engdegård <mattiase@acm.org>
+
+ Fix eshell-pipe-broken signalling
+
+ * lisp/eshell/esh-io.el (eshell-output-object-to-target):
+ Second argument to `signal` should be a list.
+
+2022-08-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Mark another esh-proc test as unstable
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-proc-test/pipeline-connection-type/middle): Mark test as unstable
+ as it fails quite a lot.
+
+2022-08-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer pos-bol and pos-eol in tests
+
+ * test/lisp/calendar/todo-mode-tests.el
+ (todo-test-toggle-item-header02, todo-test-edit-item-date-month)
+ (todo-test-multiline-item-indentation-1)
+ (todo-test-multiline-item-indentation-2)
+ (todo-test-multiline-item-indentation-3):
+ * test/lisp/cedet/semantic-utest-ia.el (semantic-ia-utest-buffer)
+ (semantic-sr-utest-buffer-refs):
+ * test/lisp/cedet/semantic-utest.el (semantic-utest-kill-indicator)
+ (semantic-utest-unkill-indicator):
+ * test/lisp/dired-tests.el (dired-test-bug27968):
+ * test/lisp/emacs-lisp/backtrace-tests.el
+ (backtrace-tests--verify-single-and-multi-line):
+ * test/lisp/emacs-lisp/find-func-tests.el
+ (find-func-tests--find-library-verbose):
+ * test/lisp/erc/erc-tests.el (erc-ring-previous-command)
+ (erc-log-irc-protocol):
+ * test/lisp/gnus/message-tests.el (message-mode-propertize):
+ * test/lisp/info-xref-tests.el (info-xref-test-emacs-manuals):
+ * test/lisp/mail/footnote-tests.el (footnote-tests-same-place):
+ * test/lisp/progmodes/elisp-mode-tests.el
+ (elisp-shorthand-completion-at-point):
+ * test/lisp/progmodes/f90-tests.el (f90-test-bug38415):
+ * test/lisp/progmodes/python-tests.el
+ (python-indent-electric-comma-inside-multiline-string)
+ (python-indent-electric-comma-after-multiline-string)
+ (python-indent-electric-colon-1, python-indent-electric-colon-2)
+ (python-indent-electric-colon-3, python-indent-electric-colon-4)
+ (python-mark-defun-2, python-mark-defun-3, python-mark-defun-4)
+ (python-mark-defun-5, python-nav-end-of-defun-2)
+ (python-nav-end-of-statement-1, python-nav-end-of-block-1)
+ (python-indent-dedent-line-backspace-2)
+ (python-indent-dedent-line-backspace-3)
+ (python-eldoc--get-symbol-at-point-1)
+ (python-info-beginning-of-statement-p-1)
+ (python-info-beginning-of-statement-p-2):
+ * test/lisp/replace-tests.el (replace-occur-revert-bug32543)
+ (replace-occur-revert-bug32987):
+ * test/lisp/simple-tests.el (simple-delete-indentation-boundaries)
+ (simple-delete-indentation-region)
+ (line-number-at-pos-in-narrow-buffer)
+ (line-number-at-pos-keeps-restriction):
+ * test/lisp/textmodes/css-mode-tests.el (css-mode-test-selectors)
+ (scss-mode-test-selectors):
+ * test/lisp/textmodes/fill-tests.el (fill-test-unbreakable-paragraph)
+ (fill-test-breakable-paragraph):
+ * test/lisp/time-stamp-tests.el (time-stamp-custom-pattern):
+ * test/src/lread-tests.el (lread-tests--last-message):
+ * test/src/process-tests.el (set-process-filter-t):
+ * test/src/undo-tests.el (undo-test-skip-invalidated-markers): Prefer
+ pos-bol and pos-eol.
+
+2022-08-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't end autorevert message with a period
+
+ * lisp/autorevert.el (auto-revert-handler): Don't end message with
+ a period.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak emacs-bug--system-description
+
+ * lisp/mail/emacsbug.el (emacs-bug--system-description): Fill the
+ commonly-overlong Emacs version bit.
+
+2022-08-21 Mattias Engdegård <mattiase@acm.org>
+
+ Update function properties and optimisations
+
+ * lisp/emacs-lisp/byte-opt.el (byte-opt--bool-value-form):
+ Recognise boolean identity in aset, put, function-put and puthash.
+ * lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp):
+ Mark more functins as non-nil-returning, including the new
+ pos-bol and pos-eol.
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns):
+ Mark pos-bol and pos-eol as side-effect-free.
+
+2022-08-21 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/emacs-lisp/shortdoc.el (buffer): Add missing functions
+
+ Add preceding-char and char-before because following-char and
+ char-after were already there.
+
+2022-08-21 Gerd Möllmann <gerd@gnu.org>
+
+ Fix src-depending-on-lisp target
+
+ * Makefile.in (src-depending-on-lisp): Pass BIN_DESTDIR and
+ ELN_DESTDIR to make -C src (bug#57309).
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark esh-proc test as unstable
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-proc-test/pipeline-connection-type/last): Mark test as
+ unstable as it fails quite a lot.
+
+2022-08-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename newly-added eol/bol functions to pos-eol/pos-bol
+
+ * lisp/emacs-lisp/shortdoc.el (buffer):
+ * doc/lispref/positions.texi (Text Lines): Adjust.
+ * src/editfns.c (Fpos_bol): Rename from Fpos.
+ (Fpos_eol): Rename from Feol.
+
+2022-08-21 Gregory Heytings <gregory@heytings.org>
+
+ Fix mode line redisplay bug when locked narrowing is in effect.
+
+ * src/xdisp.c (decode_mode_spec): Use the actual narrowing bounds when
+ redisplay is called while a locked narrowing is in effect.
+
+2022-08-21 Po Lu <luangruo@yahoo.com>
+
+ Minor optimization to x_query_pointer_1
+
+ * src/xterm.c (x_query_pointer_1): Clear client pointer if it
+ disappeared.
+
+2022-08-20 Gregory Heytings <gregory@heytings.org>
+
+ Fix user narrowing handling.
+
+ * src/editfns.c (syms_of_editfns): New 'outermost-narrowing' internal
+ variable.
+ (Fwiden, Fnarrow_to_region): Set and reset the variable.
+ (Fnarrowing_lock): Use it.
+
+2022-08-20 Gregory Heytings <gregory@heytings.org>
+
+ Improved locked narrowing.
+
+ * src/editfns.c (Fnarrowing_lock, Fnarrowing_unlock,
+ narrow_to_region_locked, unwind_narrow_to_region_locked):
+ New functions.
+ (Fnarrow_to_region, Fwiden): Adapt, and make it possible to use
+ these functions within the bounds of the locked narrowing.
+ (syms_of_editfns): Change the name of the variable, make it
+ buffer-local, and add the two Snarrowing_lock and Snarrowing_unlock
+ subroutines.
+
+ * src/lisp.h: Prototype of 'narrow_to_region_locked'.
+
+ * src/xdisp.c (handle_fontified_prop):
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): Use
+ 'narrow_to_region_locked'.
+
+ * lisp/subr.el (with-locked-narrowing): New macro.
+
+2022-08-20 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (package-vc-unpack): Ignore dir files
+
+2022-08-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't use the system-file-manager icon in the toolbar
+
+ * lisp/term/x-win.el (x-gtk-stock-map):
+ * lisp/term/pgtk-win.el (x-gtk-stock-map): Don't use
+ n:system-file-manager, because it's larger than the other Gtk
+ icons in some themes (bug#56627).
+
+2022-08-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make conf-javaprop-mode only claim that # lines are comments
+
+ * lisp/textmodes/conf-mode.el (conf-javaprop-mode-syntax-table):
+ Make obsolete and remove syntax entries for // and /* (bug#49077),
+ because only # are comments in javaprop files.
+ (conf-javaprop-mode): Adjust doc string to just mention #
+ comments.
+
+2022-08-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak admin/emacs output
+
+2022-08-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp's manual
+
+ * doc/misc/tramp.texi (Frequently Asked Questions):
+ Improve recommendations for speeding up.
+
+2022-08-20 Protesilaos Stavrou <info@protesilaos.com>
+
+ Fix typos in modus-themes.org
+
+ * modus-themes.org (Option for inhibiting theme reload)
+ (Option for completion framework aesthetics, Advanced customization)
+ (Remap face with local value, Cycle through arbitrary colors)
+ (Custom Org emphasis faces, Note on git-gutter in Doom Emacs): Fix
+ typographic errors.
+
+2022-08-19 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when the keymap changes
+
+ * src/xterm.c (handle_one_xevent): Call
+ XkbRefreshKeyboardMapping first before trying to update the map.
+
+2022-08-19 Mattias Engdegård <mattiase@acm.org>
+
+ Move `while` syntax check from optimiser to macroexpand
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-while): Move check...
+ * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): ...here.
+
+2022-08-19 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (package-vc-unpack): Mark packages as selected
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix return value of help--key-description-fontified
+
+ This fixes a bug with warning about obsolete commands in
+ `command-execute', where we incorrectly showed empty parenthesis
+ instead of the empty string when there was no keybinding for the new
+ command.
+
+ * lisp/help.el (help--key-description-fontified): Return nil instead
+ of the empty string if KEYS argument is nil.
+ * test/lisp/help-tests.el (help--key-description-fontified): New test.
+ (with-substitute-command-keys-test): Fix indentation.
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Display new keybinding in obsolete command warning
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
+ * lisp/simple.el (command-execute): When warning about an obsolete
+ command, display the keybinding for the new command.
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/bookmark.el (bookmark-menu-heading): Delete face.
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Ignore variable Info-fontify, deleted in 22.1
+
+ * lisp/info.el (Info-mode-hook): Don't obey variable Info-fontify,
+ deleted in Emacs 22.1.
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Make two compat aliases obsolete in cc-defs.el
+
+ * lisp/progmodes/cc-defs.el (c-regexp-opt, c-regexp-opt-depth):
+ Make compat alias obsolete.
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete two functions obsolete since Emacs 23
+
+ These were announced as removed in Emacs 28.1 NEWS, but apparently
+ never actually deleted: only their obsoletion warning was removed.
+ So the warnings were reintroduced in Emacs 28.2, and we now actually
+ delete them here instead.
+
+ * src/process.c (Fset_process_filter_multibyte)
+ (Fprocess_filter_multibyte_p): Delete functions obsolete since
+ Emacs 23.
+ (syms_of_process): Delete corresponding defsubrs.
+ * lisp/subr.el (process-filter-multibyte-p)
+ (set-process-filter-multibyte): Delete obsoletion.
+ * lisp/erc/erc-dcc.el (erc-dcc-server): Don't use obsolete functions.
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ f2c0fb2615 Resurrect obsoletion warning for two functions
+ 9c0eec4ed8 * src/window.c (select_window): Fix assert for buffer = no...
+ 16dfe04be2 Find libgccjit on macOS with Homebrew differently
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Resurrect obsoletion warning for two functions
+
+ These were supposed to have been deleted, but never were. Resurrect
+ their obsoletion warning and let's delete them in Emacs 29 instead.
+
+ * lisp/subr.el (process-filter-multibyte-p)
+ (set-process-filter-multibyte): Resurrect obsoletion warning.
+ * etc/NEWS: Don't announce their deletion.
+
+2022-08-19 Alan Mackenzie <acm@muc.de>
+
+ * src/window.c (select_window): Fix assert for buffer = non-active
minibuffer
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in doc-view.el
+
+ * lisp/doc-view.el (doc-view-mode-map, doc-view-minor-mode-map)
+ (doc-view-presentation-mode-map): Prefer defvar-keymap.
+
+2022-08-19 Robert Pluim <rpluim@gmail.com>
+
+ Improve 'ns-read-file-name' docstring
+
+ * src/nsfns.m (Fns_read_file_name): Use '-' instead of '_' when naming
+ args.
+
+2022-08-19 Robert Pluim <rpluim@gmail.com>
+
+ Mark only VS-16 as emoji
+
+ * admin/unidata/blocks.awk: Only mark U+FE0F as belonging to the
+ 'emoji' script. (Bug#57072)
+
+2022-08-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix underscores in argument names in ns-win
+
+ * lisp/term/ns-win.el (x-file-dialog): Don't use underscores in
+ argument names.
+
+2022-08-19 Augusto Stoffel <arstoffel@gmail.com>
+
+ python.el: Add completion-predicate symbol property to commands
+
+ * lisp/progmodes/python.el: Add a completion-predicate property to
+ most commands defined in this file; some are only useful in
+ python-mode, others in inferior-python mode as well. (Bug#53913)
+ (python-skeleton-define, python-define-auxiliary-skeleton): Add
+ appropriate completion-predicate properties.
+ (python--completion-predicate): New function.
+
+2022-08-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new functions eol and bol
+
+ * doc/lispref/positions.texi (Text Lines): Document them
+ * lisp/emacs-lisp/shortdoc.el: Mention them, and also the
+ buffer/line predicates.
+
+ * src/editfns.c (bol): New function.
+ (Fbol): New defun.
+ (Fline_beginning_position): Use `bol'.
+ (eol): New function.
+ (Feol): New defun.
+ (Fline_end_position): Use `eol'.
+
+2022-08-19 Augusto Stoffel <arstoffel@gmail.com>
+
+ python-mode: Remove special outline-heading-end-regexp
+
+ It doesn't work well with the new type annotation syntax introduced in
+ Python 3.5.
+
+ * lisp/progmodes/python.el (python-mode): Remove buffer-local setting
+ of outline-heading-end-regexp. (Bug#53913)
+
+2022-08-19 Augusto Stoffel <arstoffel@gmail.com>
+
+ python.el: Adjustments to Flymake backend
+
+ * lisp/progmodes/python.el (python-flymake-command): Advertise
+ possiblity to use pylint.
+ (python-flymake-command-output-pattern): Make compatible with recent
+ versions of pyflakes. (Bug#53913)
+
+2022-08-19 Augusto Stoffel <arstoffel@gmail.com>
+
+ python-check-command: Don't use absolute file names
+
+ Absolute executable file names are incompatible with Tramp and
+ packages that switch between virtualenvs.
+
+ * lisp/progmodes/python.el (python-check-command): Don't use absolute
+ file names. (Bug#53913)
+
+2022-08-19 Paul A. Patience <paul@apatience.com> (tiny change)
+
+ Fix mis-spelling of c-awk-old-ByLL and really make it buffer-local
+
+ * lisp/progmodes/cc-awk.el (c-awk-old-ByLL): Make the
+ correct variable buffer-local (bug#57294).
+
+2022-08-19 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/edmacro.el (edmacro-sanitize-for-string): Fix condition.
+
+ This is of little consequence in practice since the input is always a
+ vector of keys representing a prefix, where bit 7 isn't likely to be
+ set when higher bits are set, but it silences a (justified) warning.
+
+2022-08-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix region-extract-function compilation warning
+
+ * lisp/simple.el (region-extract-function): Clean up the logic
+ slightly to avoid a warning.
+
+2022-08-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix ns-win.el (x-file-dialog) declaration
+
+ * lisp/term/ns-win.el (x-file-dialog): Give the function the same
+ signature here as other definitions.
+
+2022-08-19 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update the modus-themes to their 2.6.0 version
+
+ * doc/misc/modus-themes.org (Sample configuration with and without
+ use-package): Add missing parenthesis to the manual.
+ (Option for completion framework aesthetics)
+ (Custom Org emphasis faces): Minor rewording.
+ (Custom hl-todo colors): Add instructions on how to add user-level
+ support for the 'solaire' package, as the modus-themes no longer
+ support it.
+ (Full support for packages or face groups): Remove 'solaire' from the
+ list of supported packages.
+ (Note on git-gutter in Doom Emacs)
+ (Note on php-mode multiline comments)
+ (Note on highlight-parentheses.el): Clarify need to re-load the
+ theme for changes to take effect.
+ (Acknowledgements): Update acknowledgements.
+
+ * etc/themes/modus-themes.el (modus-themes-faces): Fix typo.
+ (modus-themes--version): Reword docstring and update to current value.
+ (modus-themes--weight): Stop using deprecated alias of symbol.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Bump version number.
+
+ Detailed release notes:
+ <https://protesilaos.com/codelog/2022-08-19-modus-themes-2-6-0/>.
+
+2022-08-19 Gerd Möllmann <gerd@gnu.org>
+
+ Find libgccjit on macOS with Homebrew differently
+
+ * configure.ac (MAC_LIBS): Find libgccjit's directory slightly
+ differently for brew installations.
+
+2022-08-19 Andrea Corallo <akrl@sdf.org>
+
+ * src/pdumper.c (dump_native_comp_unit): Error if CU is not fixed-up
+
+ * src/alloc.c (pure_alloc): Warn for pure space overflow
+
+ * src/pdumper.c (Fdump_emacs_portable): Check and warn for pure space
overflow
+
+2022-08-19 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Remove treesit manual entries for deleted functions
+
+ * doc/lispref/parsing.texi: Remove documentation for
+ treesit-get-parser-create and treesit-get-parser.
+
+2022-08-19 John Wiegley <johnw@newartisans.com>
+
+ Revert "Remove use-package-font-lock-keywords"
+
+ This reverts commit 4938167bfffcf08279445827d2eaae78c9557675.
+
+2022-08-19 Morgan Smith <Morgan.J.Smith@outlook.com>
+
+ Speed up image-dired-display-image
+
+ * lisp/image-dired.el (image-dired-display-image): Open file literally
+ so we don't run image-mode twice. (Bug#57281)
+
+2022-08-19 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ e64d811b51 Improve image-mode-as-hex docstring
+
+2022-08-18 Po Lu <luangruo@yahoo.com>
+
+ Fix more calls to XQueryPointer for MPX
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Set DND devices to -1
+ if XI2 is not supported on the given display.
+ (x_query_pointer): Make wrapper around x_query_pointer_1.
+ (x_query_pointer_1): Split off most of x_query_pointer to this
+ function. Allow a specific client pointer to be specified.
+ (x_dnd_update_tooltip_now, x_dnd_update_state): Use
+ x_query_pointer_1 with the right device instead of
+ XQueryPointer.
+
+2022-08-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from belak/remove-extra-font-lock-keywords
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/859
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve obsoletion of image-transform-fit-to-{height,width}
+
+ * lisp/image-mode.el (image-transform-fit-to-height)
+ (image-transform-fit-to-width): Change obsoletion to refer to new
+ command 'image-transform-fit-to-window'.
+
+2022-08-18 Andrea Corallo <akrl@sdf.org>
+
+ * Rename `comp--typeof-builtin-types'
+
+ * lisp/emacs-lisp/comp-cstr.el (comp--typeof-builtin-types): Rename.
+ (comp-normalize-valset, comp-common-supertype-2): Update.
+
+2022-08-18 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp-cstr.el (comp--all-builtin-types): Remove
+
+2022-08-18 Arash Esbati <arash@gnu.org>
+
+ Adjust the environment name for the minted package
+
+ * lisp/textmodes/reftex-vars.el (reftex-label-alist-builtin): Fix
+ the name of the environment which can contain a \label macro.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve image-mode-as-hex docstring
+
+ * lisp/image-mode.el: Fix typos.
+ (image-mode-as-hex): Doc fix; say that it uses 'hexl-mode' and reflow.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Do interactive mode tagging in image-mode.el
+
+ * lisp/image-mode.el (image-forward-hscroll)
+ (image-backward-hscroll, image-next-line, image-previous-line)
+ (image-scroll-up, image-scroll-down, image-scroll-left)
+ (image-scroll-right, image-bol, image-eol, image-bob, image-eob)
+ (image-mode-fit-frame, image-kill-buffer, image-next-file)
+ (image-previous-file, image-mode-copy-file-name-as-kill)
+ (image-mode-mark-file, image-mode-unmark-file)
+ (image-transform-set-percent, image-transform-set-scale)
+ (image-transform-fit-to-height, image-transform-fit-to-width)
+ (image-transform-fit-both, image-transform-fit-to-window)
+ (image-transform-set-rotation, image-transform-set-smoothing)
+ (image-transform-original, image-transform-reset): Add interactive tag
+ for image-mode.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Make toggling between image, hex and text more consistent
+
+ * lisp/image-mode.el (image-toggle-hex-display, image-toggle-display):
+ Ensure commands work correctly also in `hexl-mode'.
+ (image-mode-to-text):
+ (image-mode-as-hex, image-mode-as-text): Enable image-minor-mode also
+ in hexl-mode, which adds the "C-c C-x" keybinding for easier toggling.
+
+2022-08-18 Stefan Kangas <stefan@marxist.se>
+
+ New command image-transform-set-percent
+
+ * lisp/image-mode.el (image-transform-set-percent): New command.
+ (image-mode-map): Bind above new command to "s p".
+ * doc/emacs/files.texi (Image Mode): Document it.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Prefer defvar-keymap in image-mode.el
+
+ * lisp/image-mode.el (image-mode-map, image-minor-mode-map):
+ Prefer defvar-keymap.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ ef1e68f11d * lisp/image-mode.el (image-mode-as-hex): Fix toggle instr...
+ dc0fce3a7d ; lisp/image-mode.el: Fix typo.
+ 254ba1d3e5 * lisp/image-mode.el: Improve commentary.
+ ac43ac1af9 cl-reduce doc string improvement
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/image-mode.el (image-mode-as-hex): Fix toggle instructions.
+
+2022-08-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix encoding problem in tramp-sh.el
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-local-copy):
+ Compute inline coding only if needed.
+
+2022-08-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/misc/cl.texi (Macro Bindings): Fix bug#57263
+
+ Update `cl-symbol-macrolet` according to the change in response to
bug#26073.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/image-mode.el: Improve commentary.
+
+2022-08-18 Mattias Engdegård <mattiase@acm.org>
+
+ Fix string-to-syntax signature in comp-known-type-specifiers
+
+ * lisp/emacs-lisp/comp.el (comp-known-type-specifiers):
+ `string-to-syntax` can return nil.
+
+2022-08-18 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix some type
+
+2022-08-18 Mattias Engdegård <mattiase@acm.org>
+
+ More non-nil-returning functions in source optimisation
+
+ This change was partially generated and mechanically cross-validated
+ with function type information from comp-known-type-specifiers in
+ comp.el.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp):
+ Extend list of functions and fix a typo (logxor).
+
+2022-08-18 Mattias Engdegård <mattiase@acm.org>
+
+ Copy-edit doc strings and comments wrt bignum and fixnum
+
+ Don't say that a value is a fixnum if small enough and a bignum
+ otherwise, because that is now how Lisp integers always work,
+ and we generally don't expose the fixnum/bignum difference to the user
+ unless really necessary.
+
+ * src/charset.c (Fencode_char):
+ * src/editfns.c (Fuser_uid, Fuser_real_uid, Fgroup_gid)
+ (Fgroup_real_gid, Femacs_pid):
+ * src/font.c (Ffont_variation_glyphs):
+ * src/process.c (Fprocess_id):
+ Edit doc strings.
+ * src/pgtkselect.c:
+ * src/xselect.c: Edit comments.
+
+2022-08-18 kobarity <kobarity@gmail.com>
+
+ Fix Python indentation of block continuation
+
+ * lisp/progmodes/python.el (python-indent--calculate-indentation):
+ Fix indentation of :after-backslash-block-continuation.
+
+ * test/lisp/progmodes/python-tests.el
+ (python-indent-after-backslash-6): New test (bug#57262).
+
+2022-08-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make GEN message from loaddefs-generate nicer
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Shorten the
+ informational GEN file relative to the stated directory
+ (bug#57265). This makes the message nicer for ELPA packages.
+
+2022-08-18 Colin Woodbury <colin@fosskers.ca>
+
+ cl-reduce doc string improvement
+
+ * lisp/emacs-lisp/cl-seq.el (cl-reduce): Explain what happens when
+ using :from-end (bug#57273).
+
+2022-08-18 Gerd Möllmann <gerd.moellmann@gmail.com>
+
+ Rebuild the Emacs executable if loaddefs.el has changed
+
+ * Makefile.in (src-depending-on-lisp): Ensure that we check
+ whether we need to rebuild the Emacs executable if loaddefs.el has
+ been updated.
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve update-directory-autoloads deprecation message
+
+ * lisp/obsolete/autoload.el (update-directory-autoloads): Improve
+ deprecation message. (Bug#57276)
+
+2022-08-18 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve cryptic syntax switch message in re-builder
+
+ * lisp/emacs-lisp/re-builder.el (reb-restart-font-lock): Move message
+ from here...
+ * lisp/emacs-lisp/re-builder.el (reb-change-syntax): ...to here.
+ Change it to be less cryptic.
+
+2022-08-18 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/loadup.el: Always fix-up all loaded compilation units
+
+2022-08-18 Andrea Corallo <akrl@sdf.org>
+
+ * Expose `comp-loaded-comp-units-h'
+
+ * src/comp.c : remove 'all_loaded_comp_units_h'.
+ (syms_of_comp): Define `comp-loaded-comp-units-h'.
+ (register_native_comp_unit, Fnative_elisp_load): Use it.
+
+2022-08-18 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Add treesit-parser-delete
+
+ * src/treesit.c (ts_record_change): Replace CHECK_TS_PARSER with
+ ts_check_parser.
+ (make_ts_parser): Initialize deleted field.
+ (Ftreesit_parser_delete): Replace CHECK_TS_PARSER with
+ ts_check_parser. Set deleted field.
+ (Ftreesit_parser_buffer, Ftreesit_parser_language): Replace
+ CHECK_TS_PARSER with ts_check_parser.
+ (ts_check_parser): New function.
+ (Ftreesit_parser_root_node, Ftreesit_parser_set_included_ranges)
+ (Ftreesit_parser_included_ranges): Replace CHECK_TS_PARSER with
+ ts_check_parser.
+ (Qtreesit_parser_deleted): New symbol.
+ (Qtreesit_parser_deleted): New error.
+ * src/treesit.h (Lisp_TS_Parser): New field 'deleted'.
+
+2022-08-18 Philip Kaludercic <philipk@posteo.net>
+
+ Merge remote-tracking branch 'origin/master' into feature/package+vc
+
+2022-08-18 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS build
+
+ * config.bat: Generate stdckdint.in.h
+ * msdos/sedlibmk.inp (STDCKDINT_H)
+ (GL_GENERATE_STDCKDINT_H_CONDITION): Update these variables too.
+
+2022-08-18 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix broken build on Solaris 10 emacs_spawn
+
+ * src/callproc.c (emacs_spawn) [SETUP_SLAVE_TTY]:
+ pty_flag no longer exists. Use pty_in && std_in >= 0,
+ which at least compiles.
+
+2022-08-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-08-17 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-log-1): Create buffer if
necessary
+
+2022-08-17 Alan Mackenzie <acm@muc.de>
+
+ * lisp/progmodes/cc-defs.el (c-safe-scan-lists): Evaluate LIMIT just
once
+
+2022-08-17 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix Linux APM BIOS flag testing in battery.el
+
+ Original sin detected by recent byte-compiler improvements; see:
+ https://lists.gnu.org/r/emacs-devel/2022-08/msg00611.html
+
+ * lisp/battery.el (battery-linux-proc-apm): Treat result of logand
+ as a number, not boolean.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Shorten new manual section "Shell Command Guessing"
+
+ * doc/emacs/dired.texi (Shell Command Guessing): Don't document
+ unimportant details, and improve wording to be shorter.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Assume dired-guess is now always available
+
+ * lisp/dired-aux.el (dired-read-shell-command): Use
+ dired-guess-shell-command unconditionally, as it is now always
+ available.
+ (dired-do-shell-command): Doc fix; dired-guess is always available.
+ * lisp/dired.el (dired-do-man): Don't require dired-x.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Move dired-guess commands from dired-x to dired
+
+ * lisp/dired-x.el (dired-shell-command-history)
+ (dired-guess-shell-alist-default, dired-guess-default)
+ (dired-guess-shell-command): Move from here...
+ * lisp/dired-aux.el (dired-shell-command-history)
+ (dired-guess-shell-alist-default, dired-guess-default)
+ (dired-guess-shell-command): ...to here. (Bug#21981)
+
+ * lisp/dired-x.el (dired-guess-shell-gnutar)
+ (dired-guess-shell-gzip-quiet, dired-guess-shell-znew-switches)
+ (dired-guess-shell-case-fold-search, dired-guess-shell-alist-user):
+ Move from here...
+ * lisp/dired.el (dired-guess-shell-gnutar)
+ (dired-guess-shell-gzip-quiet, dired-guess-shell-znew-switches)
+ (dired-guess-shell-case-fold-search, dired-guess-shell-alist-user):
+ ...to here. Change :group to dired-guess.
+ (dired-guess): New defgroup.
+
+ * test/lisp/dired-x-tests.el (dired-guess-default): Move from here...
+ * test/lisp/dired-aux-tests.el (dired-guess-default): ...to here.
+
+ * doc/misc/dired-x.texi (Features, Technical Details, Installation):
+ Delete any mention of shell command guessing.
+ (Shell Command Guessing): Move from here...
+ * doc/emacs/dired.texi (Shell Command Guessing): ...to here. Adapt to
+ better fit the Emacs Manual conventions.
+ * lisp/dired-aux.el (dired-do-shell-command): Doc fix to adjust for
+ above changes.
+ * etc/NEWS: Announce the above change.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Make compat function cperl-putback-char obsolete
+
+ * lisp/progmodes/cperl-mode.el (cperl-putback-char): Make
+ obsolete. Update callers.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ * lisp/progmodes/cperl-mode.el: Improve commentary.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't check if autoloaded functions are fboundp
+
+ * lisp/progmodes/cperl-mode.el (cperl-menu, cperl-init-faces):
+ Assume some autoloaded ps-print.el functions are always there.
+
+2022-08-17 Brendan O'Dea <bod@debian.org>
+
+ em-unix.el: only pass -H option to grep
+
+ * lisp/eshell/em-unix.el (eshell-grep): Don't add -H, because that
+ breaks agrep/glimpse etc (bug#57247).
+ (eshell/grep, eshell/egrep, eshell/fgrep): Instead add it here.
+
+2022-08-17 kobarity <kobarity@gmail.com>
+
+ Enhance Python font-lock to support multilines
+
+ * test/lisp/progmodes/python-tests.el
+ (python-tests-assert-faces-after-change): New helper function.
+ (python-font-lock-keywords-level-1-3)
+ (python-font-lock-assignment-statement-multiline-*): New tests.
+
+ * lisp/progmodes/python.el (python-rx): Add `sp-nl' to represent
+ space or newline (with/without backslash).
+ (python-font-lock-keywords-level-1)
+ (python-font-lock-keywords-maximum-decoration): Allow newlines
+ where appropriate.
+ (python-font-lock-extend-region): New function.
+ (python-mode): Set `python-font-lock-extend-region' to
+ `font-lock-extend-after-change-region-function'.
+
+2022-08-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Add Python blocks support for hideshow"
+
+ This reverts commit af4cfb519415ed3c1d6d036aac908e4f9ee383eb.
+
+ This led to test failures.
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix some recently introduced byte-compiler warnings
+
+ * lisp/emulation/viper-util.el (viper-key-to-character):
+ * lisp/vc/vc-svn.el (vc-svn-dir-extra-headers): Fix warnings.
+ * lisp/net/eudc-export.el (eudc-batch-export-records-to-bbdb):
+ Fix buglet.
+
+2022-08-17 kobarity <kobarity@gmail.com>
+
+ Add Python blocks support for hideshow
+
+ * lisp/progmodes/python.el (python-nav-beginning-of-block-regexp):
+ New variable.
+ (python-hideshow-forward-sexp-function): Change to call
+ `python-nav-end-of-block'.
+ (python-hideshow-find-next-block): New function to be used as
+ FIND-NEXT-BLOCK-FUNC in `hs-special-modes-alist'.
+ (python-info-looking-at-beginning-of-block): New function to be
+ used as LOOKING-AT-BLOCK-START-P-FUNC in `hs-special-modes-alist'.
+ (python-mode): Change settings of `hs-special-modes-alist'.
+
+ * test/lisp/progmodes/python-tests.el
+ (python-hideshow-hide-levels-1): Fix to keep empty lines.
+ (python-info-looking-at-beginning-of-block-1)
+ (python-hideshow-hide-levels-3, python-hideshow-hide-levels-4)
+ (python-hideshow-hide-all-1, python-hideshow-hide-all-2)
+ (python-hideshow-hide-all-3, python-hideshow-hide-block-1): New
+ tests (bug#56635).
+
+2022-08-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Merge from origin/emacs-28
+
+ a4078fa628 ; * lisp/vc/ediff.el: Improve wording in last change.
+ dd077ebded Revert "; * doc/lispintro/emacs-lisp-intro.texi: Fix typo."
+ 362c9ab879 * doc/misc/gnus.texi (Article Washing): Fix Links URL.
+
+2022-08-16 Po Lu <luangruo@yahoo.com>
+
+ Avoid disabling device multiple times while handling XI attachment
events
+
+ * src/xterm.c (handle_one_xevent): Avoid disabling devices if we
+ notice it has been disabled while handling XISlaveDetached or
+ XISlaveAttached.
+
+2022-08-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/buffer.c (Frename_buffer): Fix bug#56693
+
+2022-08-16 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/dired.el (dired-mark-if): Evaluate MSG once to avoid warning.
+
+2022-08-16 Mattias Engdegård <mattiase@acm.org>
+
+ Improved `null` (alias `not`) optimisation
+
+ Take static boolean information of the argument into account.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-not): New.
+
+2022-08-16 Mattias Engdegård <mattiase@acm.org>
+
+ Improved `and` and `or` optimisation
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-and, byte-optimize-or):
+ Rewrite. Avoid branching on arguments statically known to be true or
+ false, and hoist code out to an unconditional prefix when possible.
+
+2022-08-16 Mattias Engdegård <mattiase@acm.org>
+
+ Improved `if` and `while` optimisation
+
+ Recognise some more special cases:
+
+ (if X nil t) -> (not X)
+ (if X t) -> (not (not X))
+ (if X t nil) -> (not (not X))
+ (if VAR VAR X...) -> (or VAR (progn X...))
+
+ * lisp/emacs-lisp/byte-opt.el (byte-opt-negate): New.
+ (byte-optimize-if): Add transformations above and refactor.
+ (byte-optimize-while): Better static nil-detection.
+
+2022-08-16 Mattias Engdegård <mattiase@acm.org>
+
+ Improved static detection of nil and non-nil expressions
+
+ * lisp/emacs-lisp/byte-opt.el (byte-opt--bool-value-form): New.
+ (byte-compile-trueconstp, byte-compile-nilconstp): Determine a static
+ nil or non-nil result in more cases. These functions have grown and
+ are no longer defsubst.
+
+2022-08-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix autoload in tramp.el
+
+2022-08-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle root permissions on remote files
+
+ * lisp/net/tramp.el (tramp-check-cached-permissions): Check also
+ for remote uid/gid being 0. (Bug#57238)
+
+ * lisp/net/tramp-sh.el (tramp-do-file-attributes-with-ls):
+ Convert numeric uid/gid strings into real strings.
+ (tramp-sh-get-signal-strings): Use `zerop'.
+
+ * lisp/net/tramp.el (tramp-root-id-string, tramp-root-id-integer):
+ New defconsts.
+ (tramp-handle-find-backup-file-name, tramp-handle-lock-file)
+ (tramp-local-host-p, tramp-handle-make-auto-save-file-name)
+ * lisp/net/tramp-sh.el (tramp-default-method-alist)
+ (ramp-default-user-alist, tramp-find-shell):
+ * lisp/net/tramp-sudoedit.el (tramp-default-user-alist): Use them.
+
+2022-08-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ dired-do-shell-command doc string clarification
+
+ * lisp/dired-aux.el (dired-do-shell-command): Clarify doc string
+ (bug#57228).
+
+2022-08-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Advertise obsolete library pgg.el less
+
+ * doc/misc/gnus-faq.texi (FAQ 8-2):
+ * doc/misc/gnus.texi (Security):
+ * doc/misc/message.texi (Using OpenPGP, PGP Compatibility):
+ * doc/misc/mh-e.texi (Reading PGP, Sending PGP):
+ * lisp/gnus/mml2015.el (mml2015-use):
+ * lisp/info-look.el (mapc):
+ * lisp/mh-e/mh-e.el (mh-mml-method-default): Advertise obsolete
+ library pgg.el less.
+
+ * lisp/mh-e/mh-identity.el (mh-identity-pgg-default-user-id): Rename
+ from 'mh-identity-gpg-default-user-id', and make the old name into
+ obsolete variable alias. Update all uses.
+
+2022-08-16 Po Lu <luangruo@yahoo.com>
+
+ Fix XInput hierarchy events not being delivered in daemon mode
+
+ * src/xfns.c (setup_xi_event_mask): Stop selecting for device
+ hierarchy events.
+
+ * src/xterm.c (xi_select_hierarchy_events, x_term_init): Select
+ those here instead, on the default root window.
+
+2022-08-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make message-delete-line obsolete
+
+ * lisp/gnus/message.el (message-delete-line): Make obsolete.
+ (message-change-subject, message-cross-post-insert-note)
+ (message-reduce-to-to-cc, message-indent-citation)
+ (message-send-mail-with-mh, message-generate-headers)
+ (message-fill-field-general): Adjust callers.
+
+2022-08-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix buffer-start cleanup in message-indent-citation
+
+ * lisp/gnus/message.el (message-indent-citation): Fix thinko in loop.
+
+2022-08-16 Eli Zaretskii <eliz@gnu.org>
+
+ Don't look for long lines beyond the narrowed region
+
+ * src/xdisp.c (redisplay_window): Don't scan for newlines outside
+ the current buffer's restriction.
+
+2022-08-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Revert "; * doc/lispintro/emacs-lisp-intro.texi: Fix typo."
+
+ This reverts commit 9d0dba44da7ac83d018fff3c26d33dac12ebd806.
+
+ This was not a typo, but incorrectly matching parens in Info-mode.
+
+2022-08-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Modernize spam section in Gnus manual slightly
+
+ * doc/misc/gnus.texi (The problem of spam): Don't explain what
+ spam is; there is no need for that in 2022. Don't explain
+ limitations of obsolete software TMDA; it's website has stopped
+ working but seems to have been updated last in 2007.
+ (Thwarting Email Spam, Anti-Spam Basics)
+ (Spam Package Configuration Examples): Prefer "spam" to "UCE".
+ (The problem of spam): Use example.org in example.
+ (SpamAssassin, Hashcash): Improve wording.
+
+2022-08-16 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/gnus.texi (Article Washing): Fix Links URL.
+
+2022-08-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Delete implicit XEmacs references from Gnus manual
+
+ * doc/misc/gnus.texi (Group Buffer Format, Summary Buffer, RSS):
+ Delete some implicit references to XEmacs.
+ (RSS): Fix default value.
+
+2022-08-16 Jim Porter <jporterbugs@gmail.com>
+
+ Make the bookmark fringe icon look like a bookmark
+
+ * src/fringe.c (large_circle_bits): New variable.
+ (standard_bitmaps): Add large_circle_bits.
+
+ * lisp/fringe.el (fringe-bitmaps): Add 'large-circle'.
+ (fringe-custom-set-bitmap): New function.
+
+ * lisp/cus-edit.el (widget-fringe-bitmap-prompt-value-history): New
+ variable.
+ (fringe-bitmap): New widget.
+
+ * lisp/bookmark.el (bookmark-set-fringe-mark): Obsolete in favor of...
+ (bookmark-fringe-mark): ... this.
+ (bookmark-fringe-mark): Rename this fringe bitmap to...
+ (bookmark-mark): ... and change it to look like a bookmark.
+ (bookmark-face): Don't set the ':background' of the face. Instead,
+ set ':distant-foreground'.
+ (bookmark--set-fringe-mark, bookmark--remove-fringe-mark)
+ (bookmark-store, bookmark--jump-via): Consult the
+ 'bookmark-fringe-mark' option.
+
+ * doc/lispref/customize.texi (Simple Types): Document 'fringe-bitmap'
+ type.
+
+ * doc/lispref/display.texi (Fringe Bitmaps): Mention 'large-circle'.
+
+ * etc/NEWS: Announce this change (bug#56896).
+
+2022-08-15 Jim Porter <jporterbugs@gmail.com>
+
+ Fix non-interactive use of conditionals in Eshell
+
+ * lisp/eshell/esh-cmd.el (eshell-rewrite-if-command): Fix misplaced
+ 't' symbol; it should be passed to 'eshell-invokify-arg'.
+ (eshell-do-eval): Pass 'synchronous-p' to recursive calls in some
+ missing cases.
+
+ * test/lisp/eshell/esh-cmd-tests.el (esh-cmd-test/if-statement,
+ (esh-cmd-test/if-else-statement)
+ (esh-cmd-test/if-else-statement-lisp-form)
+ (esh-cmd-test/if-else-statement-lisp-form-2)
+ (esh-cmd-test/if-else-statement-ext-cmd)
+ (esh-cmd-test/unless-statement)
+ (esh-cmd-test/unless-else-statement)
+ (esh-cmd-test/unless-else-statement-lisp-form)
+ (esh-cmd-test/unless-else-statement-ext-cmd): Use
+ 'eshell-command-result-equal'.
+
+2022-08-15 Jim Porter <jporterbugs@gmail.com>
+
+ Add 'eshell-command-result-equal' with an ERT explainer
+
+ * test/lisp/eshell/eshell-tests-helpers.el
+ (eshell-command-result--equal, eshell-command-result--equal-explainer)
+ (eshell-command-result-equal): New functions.
+
+ * test/lisp/eshell/em-basic-tests.el
+ * test/lisp/eshell/em-dirs-tests.el
+ * test/lisp/eshell/esh-cmd-tests.el
+ * test/lisp/eshell/esh-proc-tests.el
+ * test/lisp/eshell/esh-var-tests.el
+ * test/lisp/eshell/eshell-tests.el: Use 'eshell-command-result-equal'.
+
+2022-08-15 Jim Porter <jporterbugs@gmail.com>
+
+ Provide ERT explainer for 'eshell-match-command-output'
+
+ This was formerly named 'eshell-command-result-p', but "result" isn't
+ quite the right terminology, since this function specifically tested
+ the output of a command, not its Lisp result (as
+ 'eshell-command-result' would return).
+
+ * test/lisp/eshell/eshell-tests-helpers.el (eshell-insert-command):
+ Provide a more-complete docstring.
+ (eshell-match-result): Rename to...
+ (eshell-match-output): ... this.
+ (eshell-match-output--explainer): New function.
+ (eshell-command-result-p): Rename to...
+ (eshell-match-command-output): ... this.
+
+ * test/lisp/eshell/em-alias-tests.el
+ * test/lisp/eshell/em-dirs-tests.el
+ * test/lisp/eshell/em-extpipe-tests.el
+ * test/lisp/eshell/em-script-tests.el
+ * test/lisp/eshell/esh-cmd-tests.el
+ * test/lisp/eshell/esh-proc-tests.el
+ * test/lisp/eshell/esh-var-tests.el
+ * test/lisp/eshell/eshell-tests-helpers.el
+ * test/lisp/eshell/eshell-tests.el: Use 'eshell-match-command-output'.
+
+2022-08-15 Po Lu <luangruo@yahoo.com>
+
+ Avoid lowering child frames below scroll bars on X
+
+ * src/xterm.c (x_lower_frame_1): New function.
+ (x_lower_frame): Avoid calling XLowerFrame when there is a
+ parent with scroll bars.
+
+2022-08-15 Stefan Kangas <stefankangas@gmail.com>
+
+ * doc/misc/gnus.texi (Troubleshooting): Update section.
+
+2022-08-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/lispref/functions.texi (What Is a Function): Improve further
+
+2022-08-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from realcomplex/override-global-mode-fix
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/993
+
+2022-08-15 Eli Zaretskii <eliz@gnu.org>
+
+ Produce TAGS in 'lib' as well and include them in src/TAGS
+
+ * src/Makefile.in (TAGS): Include ../lib/TAGS.
+ ($(lib)/TAGS): New target.
+ (tags): Depend on $(lib)/TAGS.
+
+2022-08-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix tmpdir handling in Tramp for Android sshd
+
+ * doc/misc/tramp.texi (Android shell setup): Rework.
+
+ * lisp/net/tramp.el (tramp-get-remote-tmpdir): Cache result in
+ temporary connection property.
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up message-sort-headers code slightly
+
+ * lisp/gnus/message.el (message-sort-headers): Simplify code by
+ removing always-true `if' statement.
+
+2022-08-15 kobarity <kobarity@gmail.com>
+
+ Fix `python-nav-forward-block' moving backward under certain conditions
+
+ * lisp/progmodes/python.el (python-nav-forward-block): Add check
+ for not moving backward (bug#57223).
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix fix_command for non-symbol functions
+
+ * src/callint.c (fix_command): Don't bug out on commands that
+ aren't symbols (like lambdas, for instance).
+
+2022-08-15 Alan Mackenzie <acm@muc.de>
+
+ Enhance safe_run_hooks_1 and safe_run_hook_funcall to handle more
arguments
+
+ This fixes bug #57179.
+
+ * src/keyboard.c (safe_run_hooks_1, safe_run_hook_funcall): Enhance
these
+ functions so that nargs == 3 or 4 is handled as well as nargs == 2.
This
+ allows them to be used to call hooks with 1 or 2 arguments.
+
+2022-08-15 Yury Kholodkov <yurykholodkov@gmail.com> (tiny change)
+
+ Fix variable types in warnings-suppress
+
+ * lisp/emacs-lisp/warnings.el (warnings-suppress): The type of
+ these user options is a list of lists of symbols, not a list of
+ symbols (bug#57183).
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make eshell-mode more resilient towards `mode-line-format'
+
+ * lisp/eshell/esh-mode.el (eshell-mode): `mode-line-format' can be
+ a string (bug#57185). In that case, don't alter anything.
+
+2022-08-15 Matt Armstrong <matt@rfc20.org>
+
+ Pacify warnings from gcc 12 in encode_coding_object
+
+ * src/coding.c (encode_coding_object): Mark saved_pt_byte with UNINIT
+ to silence a false alarm from -Wmaybe-uninitialized. This was already
+ done in decode_coding_object. The fix is correct because saved_pt is
+ used as a sentinel before saved_pt_byte is used (bug#57219).
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up the exclusion logic in loaddefs-generate
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Allow
+ excluding files completely (bug#57144).
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak autoloads of defsubsts containing spaces/control chars
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form):
+ Escape control chars in bodies so that we don't end up with
+ trailing spaces if we're autoloading a defsubst containing
+ "\\`[ \t\n\r]*\\'".
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove Gnus Compatibility manual section
+
+ * doc/misc/gnus.texi (Compatibility): Remove outdated section
+ (bug#57178).
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further lisp-current-defun-name tweaks
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Further
+ tweaks to make (autoload 'foo) work again. Perhaps this should
+ all be reverted to the original version and then given a new rething.
+
+2022-08-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make update-directory-autoloads available by default again
+
+ * lisp/subr.el (make-directory-autoloads)
+ (update-directory-autoloads): Make available by default again
+ (bug#57200).
+
+ * lisp/obsolete/autoload.el (make-directory-autoloads): Add
+ obsoletion form.
+ (batch-update-autoloads): Fix warning.
+
+2022-08-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9d0dba44da ; * doc/lispintro/emacs-lisp-intro.texi: Fix typo.
+ 0e336fa51f ; Improve documentation of minibuffer history wrt completion
+
+2022-08-14 Po Lu <luangruo@yahoo.com>
+
+ Fix uninitialized variable false-positives
+
+ * src/xterm.c (xm_setup_dnd_targets):
+ (x_dnd_free_toplevels): Mark dpy and recs UNINIT, since GCC
+ thinks they can be used uninitialized. (bug#57208)
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ Make message-mark-active-p obsolete in favor of mark-active
+
+ * lisp/gnus/message.el (message-mark-active-p): Make obsolete in
+ favor of 'mark-active'. Update callers.
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ Make gnus-uu-view-with-metamail obsolete
+
+ The metamail package was last released in 1994, and has been removed
+ from most GNU/Linux distributions due to being buggy and unmaintained.
+
+ * lisp/gnus/gnus-uu.el (gnus-uu-view-with-metamail): Make obsolete.
+ * doc/misc/gnus.texi (Other Decode Variables): Don't document
+ above obsolete variable.
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ Don't use obsolete library as example in Elisp Intro
+
+ * doc/lispintro/emacs-lisp-intro.texi (Several files recursively)
+ (Sorting, Files List): Don't use obsolete library makesum.el as
+ example.
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ Make gnus-iswitchb-completing-read obsolete
+
+ * lisp/gnus/gnus-util.el (gnus-iswitchb-completing-read): Make
+ obsolete. It depends on the obsolete library iswitchb.el.
+ (gnus-completing-read-function): Don't advertise above obsolete
+ function.
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ Don't advertise obsolete library html2text.el
+
+ * doc/misc/emacs-mime.texi (Display Customization):
+ * doc/misc/gnus-faq.texi (FAQ 4-7):
+ * doc/misc/gnus.texi (Article Washing):
+ * doc/misc/mh-e.texi (HTML):
+ * lisp/gnus/mm-decode.el (mm-text-html-renderer): Don't advertise
+ obsolete library html2text.el.
+
+2022-08-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve timefns speed on integers
+
+ * src/timefns.c (decode_lisp_time) [FASTER_TIMEFNS]:
+ Speed up when SPECIFIED_TIME is an integer.
+ (time_cmp) [FASTER_TIMEFNS]: Speed up when comparing integers.
+
+2022-08-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Decode time conses before floats
+
+ * src/timefns.c (decode_lisp_time): Test for conses before floats,
+ as conses are more common.
+
+2022-08-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Work around Bug#57211
+
+ * src/buffer.c (Fgenerate_new_buffer_name): Allocate a bigger buffer.
+
+2022-08-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ * doc/lispref/functions.texi: Fix capitalization.
+
+2022-08-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix selection preservation bug when USE_XCB
+
+ * src/xterm.c (x_preserve_selections) [USE_XCB]: Fix bug: use of
+ wrong ‘tem’ value. Found by GCC -Wanalyzer-use-of-uninitialized-value.
+ Move decl of local to make the (former) bug more obvious.
+
+2022-08-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/ring.el (ring): Define as a type
+
+2022-08-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (compiled-function-p): New function (bug#56648)
+
+ * lisp/subr.el (compiled-function-p): New function.
+
+ * test/lisp/international/ucs-normalize-tests.el (ucs-normalize-part1):
+ * lisp/gnus/gnus.el (gnus):
+ * lisp/mh-e/mh-e.el (mh-version):
+ * lisp/emacs-lisp/macroexp.el (emacs-startup-hook):
+ * lisp/emacs-lisp/cl-macs.el (compiled-function):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-fdefinition)
+ (byte-compile, display-call-tree):
+ * lisp/emacs-lisp/byte-opt.el (<toplevel-end>):
+ * lisp/emacs-lisp/advice.el (ad-compiled-p):
+ * lisp/cedet/semantic/bovine.el (semantic-bovinate-stream):
+ * lisp/loadup.el (macroexpand-all):
+ * admin/unidata/unidata-gen.el (unidata--ensure-compiled): Use it.
+
+ * lisp/emacs-lisp/pcase.el (pcase-mutually-exclusive-predicates):
+ Add entries for it.
+ (pcase--split-pred): Use it.
+
+ * lisp/help-fns.el (help-fns-function-description-header): Use
`functionp`.
+ (help-fns--var-safe-local): Use `compiled-function-p`.
+
+2022-08-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp code cleanup
+
+ * lisp/net/tramp-adb.el
+ (tramp-adb-handle-directory-files-and-attributes): Use it.
+
+ * lisp/net/tramp-compat.el (tramp-compat-replace-regexp-in-region):
+ New defalias.
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-do-encrypt-or-decrypt-file-name):
+ Fix root filename for cache.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-do-copy-or-rename-file):
+ Adapt check for proper remote command.
+
+ * lisp/net/tramp-sh.el (tramp-open-shell): Add sanity check for
+ shell prompt.
+ (tramp-get-ls-command): Check, that argument "--color=never" has
+ the intended effect.
+
+2022-08-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/cedet/ede/emacs.el (ede-emacs-load): Delete obsolete name arg
+
+ * lisp/calendar/time-date.el (seconds-to-time): Use the original arg
list
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ * src/Makefile.in (elnlisp): Delete autoload.eln from list.
+
+2022-08-14 Stefan Kangas <stefan@marxist.se>
+
+ Make Gnus FAQ more contemporary
+
+ * doc/misc/gnus-faq.texi (FAQ - Introduction): Fix timeline.
+ (FAQ - Changes): Delete outdated section.
+ (FAQ 5-5): Update to reflect that ispell.el and flyspell.el is
+ distributed with Emacs.
+ (FAQ 4-1, FAQ 4-7, FAQ 4-8, FAQ 4-14, FAQ 5-8, FAQ 5-10, FAQ 6-3)
+ (FAQ 7-2): Delete references to ancient versions of Gnus.
+ (FAQ 6-3): Delete reference to obsolete library nnir.el.
+ (FAQ - Glossary): Remove "Emacs" entry. This is self-explanatory, and
+ risks causing confusion; our docs never mean anything but "GNU Emacs"
+ when we say "Emacs".
+
+2022-08-14 Mattias Engdegård <mattiase@acm.org>
+
+ Strength-reduce apply with (list ...) as tail argument
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-apply):
+ Transform (apply F ... (list X ...)) -> (funcall F ... X ...)
+
+2022-08-14 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify code using take, ntake and butlast
+
+ * lisp/calc/calc-vec.el (calcFunc-rhead):
+ * lisp/calc/calc.el (calc-top-list, calc-pop):
+ * lisp/emacs-lisp/ert.el (ert-summarize-tests-batch-and-exit):
+ Simplify.
+
+2022-08-14 Eli Zaretskii <eliz@gnu.org>
+
+ Further speedups of redisplay of long and truncated lines
+
+ * src/xdisp.c (mode_line_update_needed, redisplay_window)
+ (decode_mode_spec): Don't avoid calling current_column, as it is
+ now fast enough.
+ (redisplay_window) <optional_new_start>: Don't call 'move_it_to'
+ if its result will not be used.
+ (Flong_line_optimizations_p): New primitive.
+ * src/indent.c (Fcurrent_column): Doc fix.
+ (current_column, scan_for_column): When in a buffer with long
+ and/or truncated lines, quickly return an approximate value.
+ * src/window.c (Frecenter): Use the old text-mode code when the
+ buffer has very long lines.
+
+ * lisp/simple.el (line-move): Avoid costly calls to
+ 'line-move-partial' and 'line-move-visual' when lines are
+ truncated and/or very long.
+ (move-beginning-of-line): Call 'line-beginning-position' instead
+ of the slower 'skip-chars-backward'.
+
+ * etc/NEWS: Announce 'long-line-optimizations-p'.
+
+2022-08-13 Po Lu <luangruo@yahoo.com>
+
+ More fixes to MPX drag-and-drop interaction
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Also initialize the
+ keyboard device used for drag-and-drop.
+ (handle_one_xevent): Verify deviceid in more places; also test
+ keyboard device before swallowing F1.
+
+2022-08-13 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Document time-convert FORM argument as mandatory
+
+ This is a followup to commit b70369c557 of 2022-08-05
+ "time-convert): Deprecate calls without an explicit FORM arg".
+
+ * doc/lispref/os.texi (Time Conversion):
+ * src/timefns.c (Ftime_convert): Describe FORM argument as required
+ as per the advertised calling convention.
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Improve time-convert docstring formatting for readability
+
+ * src/timefns.c (Ftime_convert): Doc fix; improve formatting for
+ readability.
+
+2022-08-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ nadvice.el: Avoid exponential blow up in interactive-form recursion
+
+ * lisp/emacs-lisp/nadvice.el (advice--interactive-form): Sink the call
+ to `commandp` into the autoloaded function case since it's redundant in
+ the other branch.
+ (advice--make-interactive-form): Take just the interactive forms rather
+ than the actual functions as arguments.
+ (oclosure-interactive-form): Use `advice--interactive-form` rather than
+ `commandp` since we'd call `advice--interactive-form` afterwards anyway.
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Update Gnus Installation FAQ
+
+ * doc/misc/gnus-faq.texi (FAQ 1-1, FAQ 1-2, FAQ 1-3, FAQ 1-4)
+ (FAQ 1-5): Update to reflect that Gnus is no longer released
+ separately from Emacs. Delete FAQ on Gnus 5.10, released in May 2003.
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Make many gnus version variables obsolete
+
+ Many haven't been bumped since 1997, others not since 2004.
+ * lisp/gnus/deuglify.el (gnus-outlook-deuglify-version):
+ * lisp/gnus/gnus-diary.el (gnus-diary-version):
+ * lisp/gnus/nnagent.el (nnagent-version):
+ * lisp/gnus/nnbabyl.el (nnbabyl-version):
+ * lisp/gnus/nndiary.el (nndiary-version):
+ * lisp/gnus/nndir.el (nndir-version):
+ * lisp/gnus/nndoc.el (nndoc-version):
+ * lisp/gnus/nndraft.el (nndraft-version):
+ * lisp/gnus/nneething.el (nneething-version):
+ * lisp/gnus/nnfolder.el (nnfolder-version):
+ * lisp/gnus/nnmaildir.el (nnmaildir-version):
+ * lisp/gnus/nnmbox.el (nnmbox-version):
+ * lisp/gnus/nnmh.el (nnmh-version):
+ * lisp/gnus/nnml.el (nnml-version):
+ * lisp/gnus/nnrss.el (nnrss-version):
+ * lisp/gnus/nnspool.el (nnspool-version):
+ * lisp/gnus/nntp.el (nntp-version):
+ * lisp/gnus/nnvirtual.el (nnvirtual-version): Make obsolete in
+ favor of emacs-version.
+
+2022-08-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ js.el: Tweak last change
+
+ * lisp/progmodes/js.el (js-json-mode): Use a function as value of
+ `syntax-propertize-function`.
+
+2022-08-13 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up display of long lines under 'truncate-lines'
+
+ * src/xdisp.c (partial_line_height): Return zero for long and
+ truncated lines.
+ (fast_move_it_horizontally): New function.
+ (hscroll_window_tree, display_line): Use
+ 'fast_move_it_horizontally' in preference to
+ 'move_it_in_display_line_to', when dealing with long and truncated
+ lines.
+ (redisplay_internal): Optimize "optimization 3" for long and
+ truncated lines.
+ * src/buffer.c (syms_of_buffer) <large-hscroll-threshold>: New
+ variable.
+
+ * etc/NEWS: Announce 'large-hscroll-threshold'.
+
+2022-08-13 Po Lu <luangruo@yahoo.com>
+
+ Add new value `dont-save' to `deactivate-mark'
+
+ * etc/NEWS: Announce new value of `deactivate-mark'.
+
+ * lisp/simple.el (deactivate-mark): Handle new value.
+ (bug#57147)
+
+ * src/keyboard.c (syms_of_keyboard): Update doc string of
+ `deactivate-mark'.
+
+2022-08-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak outline symbol icons
+
+ * lisp/outline.el (outline-close, outline-open): Use icons of the
+ same size in Symbola.
+
+2022-08-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow EXCLUDED-FILES in loaddefs-generate to be relative
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Allow the
+ excluded files to be relative (bug#57144).
+
+2022-08-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't hide final dump in admin/emake
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Make ps-mode-version variable obsolete
+
+ * lisp/progmodes/ps-mode.el (ps-mode-version): Make obsolete.
+ (ps-mode-show-version, ps-mode-submit-bug-report): Don't use above
+ obsolete variable.
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Make htmlfontify-version variable obsolete
+
+ * lisp/htmlfontify.el (htmlfontify-version): Make obolete.
+ (hfy-meta-tags): Don't use above obsolete variable.
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Delete many references to Emacs 23 or older from docs
+
+ * doc/emacs/glossary.texi (Glossary):
+ * doc/emacs/msdos.texi (Windows Fonts):
+ * doc/lispref/loading.texi (Library Search):
+ * doc/lispref/processes.texi (Accepting Output):
+ * doc/misc/auth.texi (GnuPG and EasyPG Assistant Configuration):
+ * doc/misc/efaq-w32.texi (Font names):
+ * doc/misc/efaq.texi (Turning on syntax highlighting)
+ (Escape sequences in shell output):
+ * doc/misc/eshell.texi (Bugs and ideas):
+ * doc/misc/gnus.texi (nnmairix requirements):
+ * doc/misc/gnus-faq.texi (FAQ 1-5):
+ * doc/misc/idlwave.texi (Troubleshooting):
+ * doc/misc/message.texi (Using S/MIME):
+ * doc/misc/mh-e.texi (Preface, Incorporating Mail):
+ * doc/misc/viper.texi (Viper Specials): Delete references to Emacs 23
+ or older.
+
+2022-08-13 Po Lu <luangruo@yahoo.com>
+
+ Prevent selection converter from signalling if buffer is narrowed
+
+ * lisp/select.el (xselect-convert-to-string): If positions are
+ outside the accessible portion of the buffer, don't return
+ anything.
+
+2022-08-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix a recently-added Eshell test on MS-Windows
+
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/last-result-var-ext-cmd): Fix the test on
+ MS-Windows by making sure the internal 'format' command
+ is invoked. (Bug#57129)
+
+2022-08-13 Jim Porter <jporterbugs@gmail.com>
+
+ Make '$?' and '$$' variables more consistent in Eshell
+
+ Previously, '$?' (last exit code) was only useful for external
+ commands, and '$$' (last result) was only useful for Lisp commands.
+
+ * lisp/eshell/esh-cmd.el (eshell-lisp-form-nil-is-failure): New
+ option.
+ (eshell-lisp-command): Set last exit code to 1 when the command
+ signals an error, and 2 if it returns nil (for Lisp forms only).
+
+ * lisp/eshell/esh-proc.el (eshell-sentinel): Set last result to t if
+ the command succeeded.
+
+ * test/lisp/eshell/esh-cmd-tests.el
+ (esh-cmd-test/while-loop-lisp-form, esh-cmd-test/until-loop-lisp-form)
+ (esh-cmd-test/if-else-statement-lisp-form)
+ (esh-cmd-test/if-else-statement-lisp-form-2)
+ (esh-cmd-test/unless-else-statement-lisp-form): New tests.
+
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/last-status-var-lisp-command)
+ (esh-var-test/last-status-var-lisp-form)
+ (esh-var-test/last-status-var-lisp-form-2)
+ (esh-var-test/last-status-var-ext-cmd)
+ (esh-var-test/last-status-var-ext-cmd): New tests.
+ (esh-var-test/last-result-var2): Rename from this...
+ ( esh-var-test/last-result-var-twice): ... to this.
+
+ * doc/misc/eshell.texi (Variables): Update documentation about '$?'
+ and '$$'.
+ (Control Flow): Mention that '(lisp forms)' can be used as
+ conditionals.
+
+ * etc/NEWS: Announce this change (bug#57129).
+
+2022-08-13 Jim Porter <jporterbugs@gmail.com>
+
+ Allow using dollar expansions in Eshell conditionals
+
+ * lisp/eshell/esh-cmd.el (eshell-structure-basic-command): Forms
+ beginning with 'eshell-escape-arg' are "data-wise".
+
+ * test/lisp/eshell/esh-cmd-tests.el (esh-cmd-test/while-loop)
+ (esh-cmd-test/until-loop, esh-cmd-test/if-statement)
+ (esh-cmd-test/if-else-statement, esh-cmd-test/unless-statement)
+ (esh-cmd-test/unless-else-statement): Use variable interpolation.
+ (esh-cmd-test/while-loop-ext-cmd, esh-cmd-test/until-loop-ext-cmd)
+ (esh-cmd-test/if-else-statement-ext-cmd)
+ (esh-cmd-test/unless-else-statement-ext-cmd): New tests, adapted from
+ the existing ones.
+
+ * doc/misc/eshell.texi (Control Flow): Update documentation for
+ conditionals (bug#57129).
+
+2022-08-13 Jim Porter <jporterbugs@gmail.com>
+
+ Only set Eshell execution result metavariables when non-nil
+
+ This simplifies usage of 'eshell-close-handles' in several places and
+ makes it work more like the docstring indicated it would.
+
+ * lisp/eshell/esh-io.el (eshell-close-handles): Only store EXIT-CODE
+ and RESULT if they're non-nil. Also, use 'dotimes' and 'dolist' to
+ simplify the implementation.
+
+ * lisp/eshell/em-alias.el (eshell-write-aliases-list):
+ * lisp/eshell/esh-cmd.el (eshell-rewrite-for-command)
+ (eshell-structure-basic-command): Adapt calls to
+ 'eshell-close-handles'.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/simple-command-result)
+ (eshell-test/lisp-command, eshell-test/lisp-command-with-quote)
+ (eshell-test/for-loop, eshell-test/for-name-loop)
+ (eshell-test/for-name-shadow-loop, eshell-test/lisp-command-args)
+ (eshell-test/subcommand, eshell-test/subcommand-args)
+ (eshell-test/subcommand-lisp): Move from here...
+
+ * test/lisp/eshell/esh-cmd-tests.el
+ (esh-cmd-test/simple-command-result, esh-cmd-test/lisp-command)
+ (esh-cmd-test/lisp-command-with-quote, esh-cmd-test/for-loop)
+ (esh-cmd-test/for-name-loop, esh-cmd-test/for-name-shadow-loop)
+ (esh-cmd-test/lisp-command-args, esh-cmd-test/subcommand)
+ (esh-cmd-test/subcommand-args, esh-cmd-test/subcommand-lisp): ... to
+ here.
+ (esh-cmd-test/and-operator, esh-cmd-test/or-operator)
+ (esh-cmd-test/for-loop-list, esh-cmd-test/for-loop-multiple-args)
+ (esh-cmd-test/while-loop, esh-cmd-test/until-loop)
+ (esh-cmd-test/if-statement, esh-cmd-test/if-else-statement)
+ (esh-cmd-test/unless-statement, esh-cmd-test/unless-else-statement):
+ New tests.
+
+ * doc/misc/eshell.texi (Invocation): Explain '&&' and '||'.
+ (for loop): Move from here...
+ (Control Flow): ... to here, and add documentation for other control
+ flow forms.
+
+2022-08-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 72fc7258bf Delete references to deleted library hilit19.el
+ e746fc2e7b Delete stale comments from Lisp Intro manual
+ 77613b9217 ; Delete redundant installation instructions from ebnf2ps.el
+
+2022-08-12 Po Lu <luangruo@yahoo.com>
+
+ Improve MPX interaction with drag-and-drop
+
+ * src/xfns.c (Fx_set_mouse_absolute_pixel_position): Use
+ internal client pointer record.
+ * src/xterm.c (x_dnd_cancel_dnd_early): New function. Only used
+ on XI2 builds so far.
+ (x_dnd_begin_drag_and_drop): Set the pointer device used for DND
+ events.
+ (xi_disable_devices): Cancel the drag-and-drop operation if that
+ device is disabled.
+ (x_send_scroll_bar_event): Update outdated comment.
+ (handle_one_xevent): Only accept DND events from that device.
+ (frame_set_mouse_pixel_position): Use internal client pointer
+ record.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Hide local variable section in emacs-news-modes
+
+ * lisp/textmodes/emacs-authors-mode.el
+ (emacs-authors-mode--hide-local-variables): Move from here...
+ * lisp/emacs-lisp/subr-x.el (emacs-etc--hide-local-variables):
+ ...to here.
+
+ * lisp/textmodes/emacs-authors-mode.el (subr-x): Require.
+ (emacs-authors-mode): Use above renamed function.
+
+ * lisp/textmodes/emacs-news-mode.el (subr-x): Require.
+ (emacs-news--mode-common): Call 'emacs-etc--hide-local-variables'
+ to hide local variables section.
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't update loaddefs.el timestamps uselessly in loaddefs-generate
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Don't
+ re-write the loaddefs.el file when there's no reason to.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Support imenu in emacs-authors-mode
+
+ * lisp/textmodes/emacs-authors-mode.el
+ (emacs-authors-imenu-generic-expression): New variable.
+ (emacs-authors-mode): Add imenu support.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Rename etc-authors-mode to emacs-authors-mode
+
+ * emacs-authors-mode.el: Rename all symbols from 'etc-authors-*' to
+ 'emacs-authors-*'. Make most old names into obsolete compat aliases.
+ * admin/authors.el: (Bug#57105)
+ * etc/AUTHORS: Use 'emacs-authors' instead of 'etc-authors'.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Rename etc-authors-mode.el to emacs-authors-mode.el
+
+ * lisp/textmodes/etc-authors-mode.el: Move from here...
+ * lisp/textmodes/emacs-authors-mode.el: ...to here. (Bug#57105)
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Delete references to deleted library hilit19.el
+
+ * doc/misc/gnus.texi (Compatibility):
+ * lisp/progmodes/f90.el:
+ * lisp/ps-print.el:
+ * lisp/vc/ediff.el: Delete references to hilit19.el.
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix emacs-news-view-mode-map inheritance
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-view-mode-map):
+ Fix inheritance from `special-mode-map' (bug#57100).
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify bookmark-set prompt
+
+ * lisp/bookmark.el (bookmark-set): Clarify prompt further
+ (bug#57128).
+
+2022-08-12 Harald Jörg <haj@posteo.de>
+
+ gud.el: invoke 'perldb' with '-E' instead of '-e'
+
+ * lisp/progmodes/gud.el (gud-perldb-massage-args): Allow '-E' switch
+ and use it as a default in favor of '-e'
+
+ * etc/NEWS ('perldb' now recognizes '-E') New entry in section 'Gud'
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove some more outdated Gnus manual stuff
+
+ * doc/misc/gnus.texi (Mail Source Customization): Remove more
+ outdated text (bug#57156).
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove (gnus) Gnus Development manual section
+
+ * doc/misc/gnus.texi (Gnus Development): Remove outdated section
+ (bug#57156).
+
+2022-08-12 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (package-vc-fetch): Autoload it
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ * doc/misc/gnus.texi (Emacsen): Delete section.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Make some more cedet version variables obsolete
+
+ * lisp/cedet/ede.el (ede-version):
+ * lisp/cedet/semantic.el (semantic-version):
+ * lisp/cedet/srecode.el (srecode-version): Make obsolete.
+ * lisp/cedet/semantic/db-file.el (semanticdb-file-version): Don't
+ use above obsolete variable semantic-version.
+
+2022-08-12 Philip Kaludercic <philipk@posteo.net>
+
+ Merge remote-tracking branch 'origin/master' into feature/package+vc
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Delete stale comments from Lisp Intro manual
+
+ * doc/lispintro/emacs-lisp-intro.texi (Args as Variable or List)
+ (print-elements-of-list, Miscellaneous): Delete some references to
+ Emacs 22.
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify face-at-point doc string and add (thing-at-point 'face)
+
+ * lisp/faces.el (face-at-point): Say what this function does.
+
+ * lisp/thingatpt.el (thing-at-point-face-at-point): Add `face'
+ type (bug#57087).
+ (thing-at-point-provider-alist, thing-at-point): Mention it in the
+ doc strings.
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further seq-uniq speed-ups for lists
+
+ * lisp/emacs-lisp/seq.el (seq-uniq): Speed up more for long lists
+ (bug#57079).
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Make finder-mode inherit special-mode
+
+ * lisp/finder.el (finder-mode): Inherit special-mode.
+ (finder-mode-map): Inherit special-mode-map.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/finder.el (finder-summary): Improve formatting.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Use help-key-binding face in package list help
+
+ * lisp/emacs-lisp/package.el (package--prettify-quick-help-key):
+ Use help-key-binding face.
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Make cedet version variables obsolete
+
+ * lisp/cedet/cedet.el (cedet-version, cedet-packages): Make
+ obsolete.
+
+2022-08-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Default outline-minor-mode-use-buttons to only happen in *Help*
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Change the
+ default to only use buttons in the *Help* buffer (for now),
+ because it's too disruptive in other modes. This will probably be
+ changed again to have some other mechanism to opt in in certain
+ modes, but it's not clear what that mechanism should look like.
+
+2022-08-12 Stephen Berman <stephen.berman@gmx.net>
+
+ Reverse the outline arrows
+
+ * lisp/outline.el (outline-open): Reverse the arrows to match
+ arrows in Customize (bug#57082).
+
+2022-08-12 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9419bc904d ; * lisp/printing.el: Delete outdated download instructions.
+ 31af0f4eb7 Don't list Emacs as requirement for built-in package
+ ae348b719e Fix wrong metrics for bitmap-only fonts with HarfBuzz 5
+
+2022-08-11 Po Lu <luangruo@yahoo.com>
+
+ Prevent SelectionNotify etc from reaching GTK 3
+
+ * src/xterm.c (handle_one_xevent): Prevent selection events from
+ reaching GTK if they are destined for an Emacs window.
+
+2022-08-11 Alan Mackenzie <acm@muc.de>
+
+ New debugging facility: backtraces from errors in Lisp called from
redisplay
+
+ Setting backtrace-on-redisplay-error to non-nil enables the generation
of a
+ Lisp backtrace in buffer *Redisplay-trace* following an error in Lisp
called
+ from redisplay.
+
+ * doc/lispref/debugging.texi (Debugging Redisplay): New subsection.
+ (Error Debugging): Reference to the new subsection.
+
+ * etc/NEWS: New entry for the new facility.
+
+ * src/eval.c (redisplay_deep_handler): New variable.
+ (init_eval): Initialize redisplay_deep_handler.
+ (call_debugger): Don't throw to top-level after calling debug-early
+ (internal_condition_case_n): "Bind" redisplay_deep_handler to the
current
+ handler.
+ (backtrace_yet): New boolean variable.
+ (signal_or_quit): New code section to handle Lisp errors occurring in
+ redisplay.
+ (syms_of_eval): New DEFVAR_BOOL backtrace-on-redisplay-error.
+
+ * src/keyboard.c (command_loop_1): Set backtrace_yet to false each time
around
+ the loop.
+ (safe_run_hooks_error): Allow args to be up to four Lisp_Objects long.
+ (safe_run_hooks_2): New function.
+
+ * src/lisp.h (top level): declare as externs backtrace_yet and
+ safe_run_hooks_2.
+
+ * src/xdisp.c (run_window_scroll_functions): Replace a call to
+ run_hook_with_args_2 with one to safe_run_hooks_2.
+
+2022-08-11 Axel Svensson <mail@axelsvensson.com> (tiny change)
+
+ Support the full range of variation selectors
+
+ * lisp/international/characters.el: Provide acronyms for variation
+ selectors.
+ (update-glyphless-char-display): Update display of the full range
+ of variation selectors.
+ (glyphless-char-display-control): Update doc string. (Bug#57072)
+
+ * doc/lispref/display.texi (Glyphless Chars): Document more
+ variation selectors.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Make ad-version variable obsolete
+
+ * lisp/emacs-lisp/advice.el (ad-version): Make obsolete in favor
+ of emacs-version. It has not been bumped since 1994.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Make ebnf-version variable obsolete
+
+ * lisp/progmodes/ebnf2ps.el (ebnf-version): Make obsolete.
+ (ebnf-setup, ebnf-begin-file, ebnf-eps-finish-and-write): Don't
+ use above obsolete variable.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Make ps-print-version variable obsolete
+
+ * lisp/ps-print.el (ps-print-version): Make obsolete.
+ (ps-setup, ps-begin-file):
+ * lisp/progmodes/ebnf2ps.el:
+ * lisp/printing.el:
+ (pr-help-message, pr-interface-help-message)
+ (pr-create-interface): Don't use above obsolete variable.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Make pr-version variable obsolete
+
+ * lisp/printing.el (pr-version): Make obsolete.
+ (pr-help-message, pr-interface-help-message, pr-setup)
+ (pr-create-interface): Don't use above obsolete variable.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Don't list Emacs as requirement for built-in package
+
+ * doc/misc/htmlfontify.texi (Requirements): Don't list Emacs as
+ requirement for built-in package.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Don't show status message in Helper-describe-bindings
+
+ * lisp/emacs-lisp/helper.el (Helper-describe-bindings): Don't show
+ status message.
+
+2022-08-11 Philip Kaludercic <philipk@posteo.net>
+
+ Add "send patches" note to package-vc TODO section
+
+ * package.el (describe-package-1): Add news if avaliable
+
+ * package.el (package--get-activatable-pkg): Prefer source packages
+
+2022-08-11 Ulf Jasper <ulf.jasper@web.de>
+
+ newsticker: fix bug#57045
+
+ * lisp/net/newst-treeview.el
+ (newsticker--treeview-list-items-with-age) (newsticker-treeview-update):
+ Fix issues with changing sort order in virtual feed 'all' (Bug#57045).
+
+2022-08-11 Philip Kaludercic <philipk@posteo.net>
+
+ Allow updating source packages
+
+ * lisp/emacs-lisp/package-vc.el (package-vc-update): Add new function.
+ * lisp/emacs-lisp/package.el (package-update): Use 'package-vc-update'.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/vc/emerge.el (emerge-show-file-name): Make obsolete.
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Make emerge-define-key-if-possible obsolete
+
+ * lisp/vc/emerge.el (emerge-define-key-if-possible): Make unused
+ function obsolete.
+
+2022-08-11 Philip Kaludercic <philipk@posteo.net>
+
+ Ignore files in .elpaignore during byte compilation
+
+ * package.el (package--parse-elpaignore): Add new function.
+ (package--compile): Bind 'byte-compile-ignore-files' to the result of
+ 'package--parse-elpaignore'.
+
+2022-08-11 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (package-vc-unpack): Detect TeXinfo manuals
+
+2022-08-11 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/lisp/net/tramp-tests.el (tramp--test-utf8): Adapt test.
+
+2022-08-11 Philip Kaludercic <philipk@posteo.net>
+
+ Allow ignoring files during byte compilation
+
+ * bytecomp.el (byte-compile-ignore-files): Add new variable.
+ (byte-recompile-directory): Respect 'byte-compile-ignore-files'.
+
+2022-08-11 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ Fix wrong metrics for bitmap-only fonts with HarfBuzz 5
+
+ * src/ftcrfont.c (ftcrhbfont_begin_hb_font): Always use the standard
+ position unit value on HarfBuzz 5 and later regardless of whether the
+ font is bitmap-only or not. (Bug#57066)
+
+2022-08-11 Philip Kaludercic <philipk@posteo.net>
+
+ Guess Git repositories from the URL header
+
+ * package-vc.el (package-vc-probable-repository-regexp): Add new user
option.
+ (package-vc-sourced-packages-list): Add new function using
+ 'package-vc-probable-repository-regexp'.
+ (package-vc-fetch): Use 'package-vc-sourced-packages-list'.
+
+2022-08-11 realcomplex <koenvg@posteo.net> (tiny change)
+
+ Go back to making `override-global-mode` non-global
+
+2022-08-11 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 648acc8848 ; Fix @setfilename in calc.texi
+
+2022-08-10 Po Lu <luangruo@yahoo.com>
+
+ Adjust client pointer upon help event
+
+ * src/xterm.c (handle_one_xevent): Keep track of the device that
+ set do_help and make it the client pointer so that tooltips show
+ up under the right pointer.
+
+2022-08-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'describe-char' in "C" locale
+
+ * lisp/descr-text.el (describe-char): Avoid assertions if
+ 'buffer-file-coding-system' is nil. (Bug#57066)
+
+2022-08-10 Visuwesh <visuweshm@gmail.com>
+
+ Improve the bengali-probhat input method
+
+ * lisp/leim/quail/indian.el ("bengali-probhat"): Set KBD-TRANSLATE
+ and SHOW-LAYOUT flags non-nil. This makes the IM usable with Dvorak
+ keyboard and also shows more useful help. Reported by Akib Azmain
+ Turja <akib@disroot.org>.
+
+2022-08-10 Po Lu <luangruo@yahoo.com>
+
+ Fix some undesirable frame focus changes
+
+ * src/xterm.c (handle_one_xevent): Only detach upon actual
+ device tree change.
+
+2022-08-10 Stefan Kangas <stefan@marxist.se>
+
+ Make gdb-pad-string obsolete in favor of string-pad
+
+ * lisp/progmodes/gdb-mi.el (subr-x): Require.
+ (gdb-pad-string): Make obsolete in favor of 'string-pad'. Update
+ callers.
+
+2022-08-10 Mattias Engdegård <mattiase@acm.org>
+
+ Extend LAP optimisations to more operations
+
+ Extend the set of eligible opcodes for certain peephole
+ transformations, which then provide further optimisation
+ opportunities.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-lapcode):
+ Optimise empty save-current-buffer in the same way as we already
+ do for save-excursion and save-restriction. This is safe
+ because (save-current-buffer) is a no-op.
+ (byte-compile-side-effect-and-error-free-ops): Add list3, list4 and
+ listN. These were all apparent oversights as list1 and list2 were
+ already included.
+ (byte-after-unbind-ops): Add stack-ref, stack-set, discard, list3,
+ list4 and listN. Stack manipulation is safe because unbind cannot
+ read or modify stack entries.
+
+2022-08-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warning in wisent/comp.el
+
+ * lisp/cedet/semantic/wisent/comp.el (require): string-pad is used
+ run-time.
+
+2022-08-10 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in vc/*.el
+
+ * lisp/vc/add-log.el (change-log-mode-map):
+ * lisp/vc/ediff-mult.el (ediff-dir-diffs-buffer-map):
+ * lisp/vc/vc-annotate.el (vc-annotate-mode-map):
+ * lisp/vc/vc-bzr.el (vc-bzr-shelve-map):
+ * lisp/vc/vc-dir.el (vc-dir-status-mouse-map)
+ (vc-dir-filename-mouse-map):
+ * lisp/vc/vc-git.el (vc-git-stash-shared-map, vc-git-stash-map)
+ (vc-git-stash-button-map, vc-git-log-edit-mode-map):
+ * lisp/vc/vc-hg.el (vc-hg-log-edit-mode-map)
+ (vc-hg-extra-menu-map):
+ * lisp/vc/vc-hooks.el (vc-prefix-map): Prefer defvar-keymap.
+
+2022-08-10 Koen van Greevenbroek <koen@localhost.com> (tiny change)
+
+ Make sure that bind-key's `override-global-mode` is initially on
+
+ In 4004dde the arguments to `define-minor-mode` were changed
+ erroneously. Whereas the `override-global-mode` was initially defined
+ as `(define-minor-mode override-global-mode "..." t "")`, the two
+ latter arguments where changed to `:global t :lighter ""`. However,
+ the two original arguments corresponded to the keywords `:init-value`
+ and `:lighter`, respectively.
+
+ With `:init-value t` now missing, the minor mode isn't enabled by
+ default, and `bind-key*` appears not to work.
+
+2022-08-10 Stefan Kangas <stefan@marxist.se>
+
+ Delete dead code in checkdoc.el
+
+ * lisp/emacs-lisp/checkdoc.el: Delete code commented out since
+ 1997.
+
+2022-08-10 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespacing issues in array.el
+
+ * lisp/array.el (array--limit-index, array-current-line)
+ (array-move-to-column-untabify, array--untabify-backward): Rename
+ from 'limit-index', 'current-line', 'move-to-column-untabify', and
+ 'untabify-backward'. Update callers.
+
+2022-08-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 14833cd9df Improve wording when documenting other TRAMP syntaxes
+ 628df15da5 ; * doc/misc/viper.texi (Rudimentary Changes): Avoid alias.
+ 85de996bbb * lisp/vc/diff-mode.el: Don't mention XEmacs.
+
+2022-08-09 Po Lu <luangruo@yahoo.com>
+
+ Improve MPX interaction with xwidgets and drag-and-drop
+
+ * src/xterm.c (handle_one_xevent): Handle focus interaction in
+ more places.
+
+2022-08-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ js--font-lock-keywords-2: Remove the 'for each' matcher
+
+ * lisp/progmodes/js.el (js--font-lock-keywords-2):
+ Remove the 'for each' matcher. First, because it was slow
+ (bug#56682), and second: the 'for each' syntax was only present in
+ Mozilla's dialect of JavaScript (added in version 1.5), and has
+ been deprecated for a decade now.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make wisent-pad-string obsolete in favor of string-pad
+
+ * lisp/cedet/semantic/wisent/comp.el (wisent-pad-string): Make
+ obsolete in favor of 'string-pad'. Update callers.
+ (subr-x): Require when compiling.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make unused function filesets-ormap obsolete
+
+ * lisp/filesets.el (filesets-ormap): Simplify and make obsolete in
+ favor of 'seq-drop-while'.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make filesets-filter-list obsolete in favor of seq-filter
+
+ * lisp/filesets.el (filesets-filter-list): Make obsolete in favor
+ of 'seq-filter'. Update callers.
+
+2022-08-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid having language environments interpreted as sections
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make rng-collapse-space obsolete
+
+ * lisp/nxml/rng-util.el (rng-collapse-space): Make obsolete in favor
+ of 'string-clean-whitespace'. Update callers.
+ Suggested by Lars Ingebrigtsen <larsi@gnus.org>.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Improve wording when documenting other TRAMP syntaxes
+
+ * doc/misc/tramp.texi (Change file name syntax): Improve wording.
+ (Bug#57061)
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Avoid using aliases for color functions
+
+ * lisp/emulation/viper-init.el (viper-has-face-support-p):
+ * lisp/emulation/viper-util.el (viper-save-cursor-color)
+ (viper-change-cursor-color):
+ * lisp/faces.el (read-color):
+ * lisp/net/dictionary.el (dictionary-color-support):
+ * lisp/obsolete/gs.el (gs-set-ghostview-colors-window-prop):
+ * lisp/progmodes/cperl-mode.el (cperl-choose-color):
+ * lisp/woman.el (woman-fontify): Avoid using aliases for
+ color-defined-p, display-color-p, and color-values.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Remove some compat code from ps-print.el
+
+ * lisp/ps-print.el (ps-print-color-p): Assume color-values is
+ fboundp; it always is.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/vc/pcvs-util.el (cvs-partition): Simplify.
+
+ * lisp/nxml/rng-util.el (rng-collapse-space): Simplify.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make rng-blank-p obsolete in favor of string-blank-p
+
+ * lisp/nxml/rng-util.el (rng-blank-p): Make obsolete in favor of
+ string-blank-p. Update callers.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Autoload string-blank-p
+
+ * lisp/eshell/em-hist.el (subr-x):
+ * lisp/net/eudc.el (subr-x): Don't require.
+ * lisp/emacs-lisp/subr-x.el (string-blank-p): Autoload.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/ibuf-ext.el (ibuffer-remove-alist): Simplify.
+
+2022-08-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use new convenience functions in replace-string
+
+ * lisp/replace.el (replace-string): Use new convenience functions.
+
+2022-08-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add use-region-beginning and use-region-end
+
+ * lisp/simple.el (use-region-beginning, use-region-end): New functions.
+ (use-region-p): Mention them in the doc strings (bug#45607).
+
+2022-08-09 Juri Linkov <juri@linkov.net>
+
+ * lisp/replace.el (replace-highlight): Optimize for large buffers
(bug#56815)
+
+ Let-bind isearch-lazy-count and lazy-highlight-buffer to nil to avoid
+ revisiting all matches in the whole buffer after every replacement.
+
+2022-08-09 Andrea Greselin <greselin.andrea@gmail.com>
+
+ Add new user option electric-quote-replace-consecutive
+
+ * lisp/electric.el (electric-quote-replace-consecutive): New user
+ option (bug#57057).
+ (electric-quote-post-self-insert-function): Use it.
+
+2022-08-09 Stephen Berman <stephen.berman@gmx.net>
+
+ Make outline buttons work in NEWS
+
+ * lisp/outline.el (outline-minor-mode-highlight-buffer): Fix
+ button insertion.
+ (outline-minor-mode): Ditto.
+ (outline--insert-open-button): Don't mark buffer as modified when
+ inserting buttons.
+ (outline--insert-close-button): Ditto.
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common):
+ Adjust outline regexp.
+
+2022-08-09 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Make compat alias check-ispell-version obsolete"
+
+ This reverts commit 24795e45e5fab6e2f699582662f9be7c5c6e25f8.
+
+ That alias is in no way obsolete, and was added for a different
+ reason.
+
+2022-08-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further lisp-current-defun-name tweaks
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Tweak so
+ that cl-defmethod and friends work again.
+
+2022-08-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a faster seq-uniq for lists
+
+ * lisp/emacs-lisp/seq.el (seq-uniq): Add a faster method for lists
+ (bug#57079).
+
+2022-08-09 Laurence Warne <laurencewarne@gmail.com>
+
+ Fix python escape code fontification for multi-line literals
+
+ * lisp/progmodes/python.el (python--string-bytes-literal-matcher): Go
+ backward one char after a match so that consecutive escape codes are
+ highlighted
+ (python--not-raw-string-literal-start-regexp): Make regular expression
+ more comprehensive, so multi-line bytes literals are not caught
+ (python-rx): Accept one to three octal digits in octal escape codes
+ instead of always three
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make ibuffer-aif obsolete in favor of if-let
+
+ * lisp/ibuf-macs.el (ibuffer-aif): Make obsolete in favor of 'if-let'.
+ * lisp/ibuffer.el (ibuffer-mouse-toggle-mark)
+ (ibuffer-mark-interactive, ibuffer-compile-format, process):
+ Prefer 'if-let' to above obsolete macro.
+ (ibuffer-toggle-marks, ibuffer-map-lines): Prefer 'when-let'
+ to above obsolete macro.
+
+2022-08-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Further Tramp fixes for Android 12
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-file-attributes)
+ (tramp-adb-handle-directory-files-and-attributes)
+ (tramp-adb-handle-file-name-all-completions): Pipe "ls" output
+ through "cat", in order to avoid quoting special characters.
+ (tramp-adb-sh-fix-ls-output): Remove fix for file names with spaces.
+
+ * test/lisp/net/tramp-tests.el (tramp-test22-file-times): Adapt test.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Improve message regarding missing LEIM
+
+ * lisp/international/ja-dic-utl.el (skkdic-lookup-key):
+ * lisp/international/mule-diag.el (list-input-methods-1):
+ * lisp/international/quail.el (quail-use-package): Explain that LEIM
+ is installed together with Emacs.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Improve readability of list-input-methods
+
+ * lisp/international/mule-diag.el: Make screen more readable by
+ improving the formatting.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Replace utility functions with seq-uniq
+
+ * lisp/gnus/gnus-util.el (gnus-delete-duplicates):
+ * lisp/ibuf-ext.el (ibuffer-remove-duplicates): Redefine as
+ obsolete function alias for 'seq-uniq'. Update callers.
+
+2022-08-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the loaddefs.el file slightly shorter
+
+ * lisp/emacs-lisp/loaddefs-gen.el
+ (loaddefs-generate--shorten-autoload): New function.
+ (loaddefs-generate--make-autoload): Use it to drop optional nil
+ values from the `autoloads' forms. This makes the loaddefs.el
+ file about 12K shorter.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make ibuffer-awhen obsolete in favor of when-let
+
+ * lisp/ibuf-macs.el (ibuffer-awhen): Make obsolete in favor of
+ 'when-let'. Update callers.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make ibuffer-split-list obsolete in favor of seq-group-by
+
+ * lisp/ibuf-ext.el (ibuffer-split-list): Make obsolete in favor of
+ 'seq-group-by'.
+ (ibuffer-generate-filter-groups): Don't use above obsolete
+ function.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make compat alias check-ispell-version obsolete
+
+ * lisp/textmodes/ispell.el (check-ispell-version): Make compat
+ alias obsolete.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/ibuffer.el (ibuffer): Use substitute-command-keys for help.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make compat alias image-refresh obsolete
+
+ * lisp/image.el (image-refresh): Make compat alias obsolete.
+ Update callers.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Make compat aliases obsolete in fortran.el
+
+ * lisp/progmodes/fortran.el (fortran-indent-new-line)
+ (fortran-auto-fill-mode): Make compat aliases obsolete; update
+ callers.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/isearch.el (isearch-mode-help): Make compat alias obsolete.
+
+2022-08-09 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Allow the insertion of long strings of letters in reasonable
time
+
+ This fix allows M-: (insert (make-string 1000000 ?y)) to work fast when
+ inserted between C++ raw string delimiters after (setq
long-line-threshold
+ nil).
+
+ * lisp/progmodes/cc-langs.el (c-symbol-key): Replace a "*" by
"\\{,1000\\}" in
+ a regexp.
+
+2022-08-09 Po Lu <luangruo@yahoo.com>
+
+ Factor out some duplicate code from handle_one_xevent
+
+ * src/xterm.c (xi_disable_devices): New function.
+ (handle_one_xevent): Use that to disable an array of device IDs
+ instead of copypasting the same block of code over and over
+ again.
+
+2022-08-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d91ffdbec2 Don't mention XEmacs toolbar in ediff manual
+
+2022-08-08 Po Lu <luangruo@yahoo.com>
+
+ Fix handling of XI_DeviceChanged events
+
+ * src/xterm.c (xi_get_scroll_valuator): New function.
+ (xi_handle_device_changed): New function.
+ (handle_one_xevent): Factor out most of the device changed code
+ to that function, and make it specifically query for the device
+ information. (bug#57020)
+
+2022-08-08 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Another lisp-current-defun-name tweak
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Avoid error
+ when edebug spec is the symbol t.
+
+2022-08-08 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add separate tiny major mode for JSON
+
+ * lisp/progmodes/js.el (js-json-mode): New major mode.
+
+ * lisp/files.el (auto-mode-alist): Use it for JSON (bug#56682).
+
+ * lisp/progmodes/js.el (js--class-decl-matcher):
+ Skip work if there are no frameworks enabled.
+
+2022-08-08 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsiiformes/quote-quote
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/990
+
+2022-08-08 Jonas Bernoulli <jonas@bernoul.li>
+
+ Quote single quotes in docstrings or use different quoting
+
+ The byte-compiler started pointing this out:
+ Warning: docstring has wrong usage of unescaped single
+ quotes (use \= or different quoting)
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/vc/diff-mode.el: Don't mention XEmacs.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention XEmacs toolbar in ediff manual
+
+ * doc/misc/ediff.texi (Other Session Commands): Don't mention XEmacs
+ specific toolbar support for now. This can be changed back once the
+ toolbar is ported to Emacs.
+
+2022-08-08 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsiiformes/cleanup-manual
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/968
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/progmodes/antlr-mode.el: Remove remnants of XEmacs support.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove XEmacs specific symbol from gnus-user-agent
+
+ * lisp/gnus/gnus.el (gnus-user-agent): Remove XEmacs specific
+ 'codename' symbol.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from mh-alias.el
+
+ * lisp/mh-e/mh-alias.el (crm): Don't require for autoloaded
+ function.
+ (multi-prompt): Don't require XEmacs specific library.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up fix_command code slightly
+
+ * src/callint.c (fix_command): Remove superfluous check.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ select-active-regions doc string improvement
+
+ * src/keyboard.c (syms_of_keyboard): Mention
+ post-select-region-hook.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Do some NEWS tagging
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/obsolete/makesum.el: Add "Obsolete-since" header.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Make makesum.el obsolete
+
+ * lisp/makesum.el: Move from here...
+ * lisp/obsolete/makesum.el: ...to here. (Bug#56979)
+
+ * test/lisp/makesum-tests.el: Move from here...
+ * test/lisp/obsolete/makesum-tests.el: ...to here.
+
+2022-08-08 Mattias Engdegård <mattiase@acm.org>
+
+ * src/print.c (struct print_buffer): Revert gratuitous format change.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS note about interactive-args
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update TODO about fix_command
+
+ * etc/TODO: Remove bit about fix_command, which has now been fixed.
+
+2022-08-08 Arash Esbati <arash@gnu.org>
+
+ Improve collecting of citation keys
+
+ * lisp/textmodes/reftex-cite.el (reftex-all-used-citation-keys):
+ Improve regexp for matching various cite commands incl. optional
+ arguments.
+ Recognize comments more robustly and don't interpret the control
+ symbol \% as a comment starter. (bug#56655)
+
+ * test/lisp/textmodes/reftex-tests.el
+ (reftex-all-used-citation-keys): New test.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up fix_command slightly
+
+ * src/callint.c (fix_command): Remove now-unused parameter.
+ (Fcall_interactively): Ditto.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further lisp-current-defun-name tweaks
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Further
+ tweaks to finding the symbol being defined (defalias).
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow specifying how args are to be stored in `command-history'
+
+ * doc/lispref/functions.texi (Declare Form): Document
+ `interactive-args'
+ * lisp/replace.el (replace-string): Store the correct interactive
+ arguments (bug#45607).
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--set-interactive-args):
+ New function.
+ (defun-declarations-alist): Use it.
+
+ * src/callint.c (fix_command): Remove the old hack (which now
+ longer works since interactive specs are byte-compiled) and
+ instead rely on `interactive-args'.
+
+2022-08-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make which-func-mode output less junk
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Use
+ edebug specs to find the name (if they exist), and default to
+ returning the top-level symbol if there isn't a define-like form
+ (bug#49592).
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ * test/lisp/emacs-lisp/nadvice-tests.el: Re-add no-byte-compile.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove redundant local variables in tests
+
+ * test/lisp/calc/calc-tests.el:
+ * test/lisp/progmodes/python-tests.el: Remove redundant local
+ variables.
+ * test/src/coding-tests.el: Pacify byte-compiler without using local
+ variable.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Revert "Don't autoload obsolete library tpu-extras.el"
+
+ This reverts commit 77bf50cb330807039cc84138fb84870bd6d532e2.
+
+2022-08-08 Jonas Bernoulli <jonas@bernoul.li>
+
+ manual: Regenerate texi file
+
+2022-08-08 Mattias Engdegård <mattiase@acm.org>
+
+ Group print buffer state in a struct
+
+ * src/print.c (print_buffer, print_buffer_size, print_buffer_pos)
+ (print_buffer_pos_byte): Replace with...
+ (struct print_buffer, print_buffer): ...this.
+ * src/print.c: (print_free_buffer, print_unwind)
+ (print_prepare, print_finish, printchar, strout): Adapt users.
+
+2022-08-08 Mattias Engdegård <mattiase@acm.org>
+
+ Turn large macros in print.c to functions
+
+ This is easier to read and maintain, and makes the state explicit.
+ It is a pure refactoring; the compiled code should be equivalent.
+
+ * src/print.c (PRINTPREPARE, PRINTFINISH): Replace with...
+ (struct print_context, print_prepare, print_finish): ...these new
+ functions and explicit state in a struct.
+ (Fwrite_char, write_string, Fterpri, Fprin1, Fprin1_to_string)
+ (Fprinc, Fprint): Adapt callers.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove no-byte-compile cookie from some libraries
+
+ This gives us back byte-compiler warnings for these files.
+ * lisp/mh-e/mh-acros.el:
+ * test/lisp/comint-tests.el:
+ * test/lisp/emacs-lisp/nadvice-tests.el:
+ * test/lisp/emacs-lisp/syntax-tests.el:
+ * test/lisp/xml-tests.el:
+ * test/src/font-tests.el: Remove no-byte-compile cookie.
+ * test/src/font-tests.el (font-parse-explain): Fix warning.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Don't autoload obsolete library tpu-extras.el
+
+ * lisp/obsolete/tpu-edt.el: Remove autoloads of obsolete library
+ tpu-extras.el.
+ * lisp/obsolete/tpu-extras.el: Don't set generated-autoload-file
+ to tpu-edt.el.
+
+2022-08-08 Stefan Kangas <stefan@marxist.se>
+
+ Clean up some local variable sections
+
+ * lisp/filesets.el:
+ * lisp/mh-e/mh-*.el:
+ * lisp/progmodes/python.el (python): Don't set options that are
+ already set in .dir-locals.el.
+ * lisp/textmodes/ispell.el: Remove redundant local variables.
+ * lisp/gnus/nnmaildir.el: Remove local variables that conflicts with
+ Emacs defaults.
+
+2022-08-07 Po Lu <luangruo@yahoo.com>
+
+ Fix warnings outside XI2 builds
+
+ * src/xterm.c (x_query_pointer): Juggle some definitions around.
+
+2022-08-07 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of pointer focus under the input extension
+
+ * src/xfns.c (x_relative_mouse_position)
+ (Fx_mouse_absolute_pixel_position, compute_tip_xy): Use
+ x_query_pointer instead of XQueryPointer.
+ * src/xterm.c (xi_populate_device_from_info): Set new attachment
+ field.
+ (xi_handle_focus_change): Set client pointer.
+ (xi_focus_handle_for_device, xi_handle_interaction): Use
+ attached keyboard device to handle focus.
+ (x_query_pointer): New function.
+ (XTmouse_position, x_scroll_bar_report_motion)
+ (x_horizontal_scroll_bar_report_motion, handle_one_xevent): Use
+ x_query_pointer instead of XQueryPointer.
+ (x_term_init): Initialize client pointer device.
+ * src/xterm.h (struct xi_device_t): New field `attachment'.
+ (struct x_display_info): New field `client_pointer_device'.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Minor cleanups in ediff-*.el
+
+ * lisp/vc/ediff-init.el (ediff-window-visible-p):
+ (ediff-nonempty-string-p): Simplify.
+ (stipple-pixmap): Don't try XEmacs specific(?) variable.
+ (ediff-frame-unsplittable-p): Make obsolete. Update callers.
+ (ediff-has-gutter-support-p): Redefine as obsolete function alias for
+ 'ignore'.
+ (ediff-mouse-event-p): Redefine as obsolete function alias for
+ 'mouse-event-p'. Update callers.
+ * lisp/vc/ediff-util.el (ediff-submit-report): Simplify.
+ (ediff-filename-magic-p): Make obsolete. Update callers.
+ (ediff-activate-mark): Make obsolete. Update callers.
+ * lisp/vc/ediff-help.el:
+ * lisp/vc/ediff-hook.el:
+ * lisp/vc/ediff-util.el:
+ * lisp/vc/ediff-wind.el: Remove superfluous defvars.
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from conao3/fix-declare-style
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/760
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from
waymondo/ensure-system-packages-use-package-as-one
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/774
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from
waymondo/use-package-hook-handler-flatten-mode-symbols
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/775
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from
waymondo/use-package-chords-autoloading-and-mapping-improvements
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/778
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from matzebond/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/787
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from wcy123/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/822
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Make ediff-window-display-p obsolete
+
+ * lisp/vc/ediff-init.el (ediff-window-display-p): Redefine as
+ obsolete function alias for 'display-graphic-p'.
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phst/lex
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/848
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phst/flet
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/849
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from conao3/add-custom-face-description
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/863
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from iaeerfung/master
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/912
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from
wyuenho/set-default-use-package-enable-imenu-support
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/920
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from wyuenho/statistics-sorting
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/921
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from Hugo-Heagren/bind-keys-repeat-map
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/974
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from danielpza/add-update-custom-package
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/930
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsiiformes/silencio
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/936
+
+2022-08-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Pacify a gcc warning in xi_handle_focus_change
+
+ * src/xterm.c (xi_handle_focus_change): Pacify a wrong warning on
+ gcc (Debian 10.2.1-6).
+
+ xterm.c: In function ‘xi_handle_focus_change’:
+ xterm.c:12564:25: warning: ‘source’ may be used uninitialized in
+ this function [-Wmaybe-uninitialized]
+ 12564 | ie.device = source->name;
+ | ~~~~~~^~~~~~
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from DamienCassou/update-texi
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/979
+
+2022-08-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from skangas/fix-typo
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/987
+
+2022-08-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp error message
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-local-copy):
+ Simplify for empty files. Better error message. (Bug#56879)
+
+2022-08-07 kobarity <kobarity@gmail.com>
+
+ Fix blank/comment line handling in python-nav-beginning-of-block
+
+ * lisp/progmodes/python.el (python-nav-beginning-of-block): Fix
+ handling of blank/comment line right after block start (bug#57038).
+
+2022-08-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'vertical-motion' in bidi-reordered text
+
+ * src/xdisp.c (move_it_vertically_backward): Fix the case of long
+ bidi-reordered lines when starting from its last (top-most) screen
+ line.
+ (move_it_by_lines): Fix logic of detection when going by lines
+ overshoots.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Make ediff-file-remote-p obsolete in favor of file-remote-p
+
+ * lisp/vc/ediff-init.el (ediff-file-remote-p): Make into obsolete
+ function alias for file-remote-p. Update callers.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Declare unused function ediff-user-grabbed-mouse obsolete
+
+ * lisp/vc/ediff-init.el (ediff-user-grabbed-mouse): Declare unused
+ function obsolete. As far as I can tell, this has been unused
+ since 1996.
+
+ * lisp/vc/ediff-wind.el (ediff-mouse-pixel-position): Make
+ variable obsolete. It is only used in the above obsolete funct
+ * lisp/vc/ediff-mult.el (ediff-filegroup-action)
+ (ediff-registry-action):
+ * lisp/vc/ediff-util.el (ediff-setup): Don't set above unused
+ variable.
+
+ * lisp/vc/ediff-init.el (ediff-spy-after-mouse): Make obsolete.
+ * lisp/vc/ediff-util.el (ediff-setup): Don't add above obsolete
+ function to pre-command-hook.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Make compat function custom-reset-variables obsolete
+
+ * lisp/custom.el (custom-reset-variables): Make unused XEmacs compat
+ function obsolete.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Remove workaround for XEmacs bug in ediff-util.el
+
+ * lisp/vc/ediff-util.el (ediff-make-empty-tmp-file): Remove
+ workaround for XEmacs bug.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ * lib-src/etags.c: Remove XEmacs support.
+
+2022-08-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify lisp/Makefile.in comment
+
+ * lisp/Makefile.in: Clarify comment.
+
+2022-08-07 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix looping in patch from yesterday
+
+ * lisp/progmodes/cc-mode.el (c-before-change-check-unbalanced-strings)
+ (c-after-change-mark-abnormal-strings): Check (eobp) in loops advancing
over
+ escaped newlines.
+
+2022-08-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak autoloads lisp/Makefile.in dependencies
+
+ * lisp/Makefile.in (autoloads): Adjust the dependencies to what
+ they were before, and update the comments.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Improve how url-http displays status messages
+
+ * lisp/url/url-util.el (url-display-message): New function.
+ (url-display-percentage): Make obsolete in favor of
+ url-display-message.
+
+ * lisp/url/url-http.el
+ (url-http-content-length-after-change-function):
+ Prefer 'url-display-message' to 'url-display-percentage'.
+ (url-http-content-length-after-change-function)
+ (url-http-chunked-encoding-after-change-function):
+ Remove ineffectual calls to 'url-display-percentage'.
+
+2022-08-07 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 7ffcba4213 * etc/PROBLEMS: Problems with Alacritty and Emoji. (Bug#5...
+ df95118e83 Link from (emacs)Init Syntax to (elisp)Introduction
+ 7793cf0c3d Don't mention removed XEmacs support in reftex manual
+ 3d1cf1b47a Don't mention removed XEmacs support in idlwave manual
+ 7ff60c62a9 ; * admin/make-tarball.txt: Fix last change.
+ 2fd5590d0c ; * lisp/play/fortune.el (fortune-ask-file): Doc fix.
+
+2022-08-07 Mattias Engdegård <mattiase@acm.org>
+
+ Cease emitting negative file offsets for user variables
+
+ 'User variables' were made obsolete in Emacs 24 along with
+ user-variable-p; the sign of the position in (#$ . POS) hasn't
+ mattered since.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-output-docform):
+ Don't emit negative position when doc string starts with `*`.
+ * src/lread.c (get_lazy_string): Explain.
+
+2022-08-07 Mattias Engdegård <mattiase@acm.org>
+
+ Use struct for saved strings in the reader
+
+ * src/lread.c (saved_doc_string, saved_doc_string_size)
+ (saved_doc_string_length, saved_doc_string_position)
+ (prev_saved_doc_string, prev_saved_doc_string_size)
+ (prev_saved_doc_string_length, prev_saved_doc_string_position):
+ Replace with...
+ (struct saved_string, saved_strings): ...this.
+ * src/lread.c (Fload, skip_lazy_string, get_lazy_string):
+ Adapt code.
+
+2022-08-07 Mattias Engdegård <mattiase@acm.org>
+
+ Make force-load-doc-strings work again
+
+ When load-force-doc-strings is true, read (#$ . POS) as the (unibyte)
+ string referred to. This feature was lost by mistake in the recent
+ nonrecursive reader rewrite.
+
+ Noticed by Stefan Monnier.
+
+ * src/lread.c (get_lazy_string): New function (code mostly recycled
+ from an old version).
+ (read0): Detect (#$ . FIXNUM) and retrieve the string if appropriate.
+ * test/src/lread-resources/lazydoc.el:
+ * test/src/lread-tests.el (lread-force-load-doc-strings):
+ New test.
+
+2022-08-06 Po Lu <luangruo@yahoo.com>
+
+ Revert "Improve X event timestamp tracking"
+
+ This reverts commit 4b98a79a508ebdc719abfcf51ee6de32e46d0e1c.
+
+ This change was installed without answering several important
+ questions.
+
+2022-08-06 Daniel Colascione <dancol@dancol.org>
+
+ Improve X event timestamp tracking
+
+ Fix two problems with our handling of X timestamps
+
+ 1) We're not properly updating the X interaction timestamp after
+ receiving certain input events, and
+
+ 2) X events sent in response to emacsclient commands get stale
+ timestamps because the timestamp tracking doesn't take into account
+ that interactions with the user can occur outside the X input
+ event channel.
+
+ * src/xterm.c:
+ (x_display_set_last_user_time_1): New function.
+ (x_display_set_last_user_time): Call it.
+ (x_ewmh_activate_frame): Refactor.
+ (x_focus_frame): Don't call XSetInputFocus if we can use EWMH
activation.
+ (server_timestamp_predicate): New function.
+ (x_get_server_time): New function.
+ (x_note_oob_interaction): New function.
+ (x_create_terminal): Register new function as terminal hook.
+
+ * src/termhooks.h: New hook: note_oob_interaction_hook.
+
+ * src/gtkutil.h:
+ (xg_set_user_timestamp): Declare.
+
+ * src/gtkutil.c:
+ (xg_set_user_timestamp): New function.
+
+ * src/frame.c:
+ (Fframe_note_oob_interaction): New function.
+ (syms_of_frame): Register it.
+
+ * lisp/server.el:
+ (server-switch-buffer): Call frame-note-oob-interaction when user
+ requests frame be raised.
+
+2022-08-06 Po Lu <luangruo@yahoo.com>
+
+ Correctly set user time on GTK+ for key press events
+
+ * src/xterm.c (x_set_gtk_user_time): New function.
+ (handle_one_xevent): Call that after key press event on GTK+.
+
+2022-08-06 Jonas Bernoulli <jonas@bernoul.li>
+
+ * lisp/transient.el: Update to package version v0.3.7-158-gc09b34e
+
+2022-08-06 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Optimize font-locking stanzas for long raw strings.
+
+ Also replace some regexp searches which had caused regexp engine stack
+ overflows with simple end-of-line calls.
+
+ * lisp/progmodes/cc-fonts.el (c-make-syntactic-matcher)
+ (c-make-font-lock-search-form): Start the generated functions with a
skipping
+ of comments and strings.
+ (c-make-font-lock-BO-decl-search-function): Start the generated
function with
+ a (fast) movement to the start of any literal.
+
+ * lisp/progmodes/cc-mode.el (c-before-change-check-unbalanced-strings)
+ (c-after-change-mark-abnormal-strings): Replace complicated regexp
searches
+ for end of logical line with basic Lisp functions.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Finish up obsoletion of mh-compat.el
+
+ * lisp/obsolete/mh-compat.el: Add "Obsolete-since" header.
+ * lisp/mh-e/mh-e.el (mh-compat): Don't require.
+ * lisp/mh-e/mh-utils.el (mailabbrev): Require.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make mh-compat.el obsolete
+
+ This used to be for XEmacs and old version compatibility, but nowadays
+ everything in this file is obsolete.
+
+ * lisp/mh-e/mh-compat.el: Move from here...
+ * lisp/obsolete/mh-compat.el: ...to here.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Move mh-flet macro to mh-acros.el
+
+ * lisp/mh-e/mh-compat.el (mh-flet): Move from here...
+ * lisp/mh-e/mh-acros.el (mh-flet): ...to here.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make compat macro mh-display-completion-list obsolete
+
+ * lisp/mh-e/mh-compat.el (mh-display-completion-list): Make compat
+ macro obsolete. Update callers.
+
+2022-08-06 Eli Zaretskii <eliz@gnu.org>
+
+ * etc/PROBLEMS: Problems with Alacritty and Emoji. (Bug#56952)
+
+2022-08-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp for Android 12
+
+ * lisp/net/tramp-adb.el (tramp-methods): Use "%d".
+ (tramp-adb-handle-directory-files-and-attributes): Fix "." and
+ ".." in listing.
+ (tramp-adb-sh-fix-ls-output): Fix file names with spaces.
+ (tramp-adb-maybe-open-connection): Compute args from `tramp-login-args'.
+
+ * lisp/net/tramp.el (tramp-methods): Adapt docstring.
+ (tramp-handle-make-process): Check for adb device if indicated.
+
+ * test/lisp/net/tramp-tests.el (tramp-test17-insert-directory)
+ (tramp-test22-file-times): Adapt tests.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespacing problem in allout.el
+
+ * lisp/allout.el (allout-outlinify-sticky): Rename from
+ 'outlineify-sticky'. Make old name into obsolete alias.
+ (outlinify-sticky): Make into obsolete function alias for
+ 'allout-outlinify-sticky'.
+ (allout-mode): Doc fix.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Fix defvar-keymap example in elisp manual
+
+ * lisp/textmodes/text-mode.el (text-mode-map): Convert to
+ defvar-keymap.
+ * doc/lispref/modes.texi (Example Major Modes): Fix example to
+ match code.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make indented-text-mode alias obsolete
+
+ * lisp/textmodes/text-mode.el (indented-text-mode): Make compat
+ alias obsolete.
+ * lisp/allout.el (allout-use-hanging-indents):
+ * lisp/emulation/viper.el (viper-vi-state-mode-list):
+ * lisp/textmodes/remember.el (remember-mode):
+ * lisp/textmodes/text-mode.el (text-mode-map):
+ * lisp/vc/ediff-util.el (ediff-choose-syntax-table): Don't mention or
+ use above obsolete alias.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make {close,replace}-rectangle compat aliases obsolete
+
+ * lisp/rect.el (close-rectangle, replace-rectangle): Make compat
+ aliases obsolete.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention test failures on Ubuntu 16.04 in PROBLEMS
+
+ Ubuntu 16.04 LTS reached end of life on April 30th, 2021.
+ Furthermore, test failures don't seem significant enough to warrant an
+ entry. It's rather cosmetic.
+ * etc/PROBLEMS: Delete entry on test failures on Ubuntu 16.04.
+
+2022-08-06 Eli Zaretskii <eliz@gnu.org>
+
+ New function 'composition-sort-rules'
+
+ * src/composite.c (Fcomposition_sort_rules)
+ (compare_composition_rules): New functions.
+
+2022-08-06 Jonas Bernoulli <jonas@bernoul.li>
+
+ * doc/misc/transient.texi: Update to transient v0.3.7-156-ga5562cb
+
+ Eventually we want to be able to generate "transient.texi" from
+ "transient.org", without having to either give up on idiomatic texinfo
+ or making it much more painful to maintain the org file.
+
+ We are much closer to that now, but there are still a few areas where
+ additional work is needed. This was mostly accomplished by using Org
+ macros.
+
+ The most significant outstanding issue is that the generated
+ references don't yet look like an experienced texinfo author like Eli
+ would like them to look. Additionally it is not yet possible to use a
+ macro that produces @dots{} in the places Eli added them, and in Org
+ code blocks it is not possible to use macros, so we cannot have
+ @var{...} appear in "@lisp ... @end lisp". The last issue probably
+ cannot be changed on Org's side, but since there are only two such
+ code blocks, this might be a situation where the compromise has to
+ come from the texinfo side. There are also three other very minor
+ and inconsequential differences.
+
+ For now I have regenerated the texinfo file from the org file and then
+ discarded the differences mentioned in the previous paragraph.
+
+ The process of merging (1) Eli's changes to the texinfo file
+ (including, but certainly not limited to markup), (2) changes to the
+ org source (updated content, formatting changes backported earlier,
+ fixes for formatting changes Eli did not fix, etc.) and (3) changes to
+ the code that converts the org source to texinfo, was very laborious
+ and painful. In essence, this amounted to a (at least) three-way
+ merge across three different languages and three repositories.
+
+ I tried very hard to not waste any of the effort Eli had put into
+ fixing up the generated texinfo file. I.e., I went back and forth
+ making improvements to the org source, implementing org macros,
+ regenerating the texinfo and comparing the remaining difference, and
+ creating commits on both sides. This resulted in a dozen commits on
+ both sides and took me well over a day. I could have put in even more
+ effort to absolutely ensure nothing at all is lost in the process, but
+ I think that would have amounted to a colossal waste of my time.
+
+ Going forward, if you find unidiomatic texinfo, then please don't fix
+ each instance. Instead write me an email, explaining what the problem
+ is. You are welcome to make limited fixes to the content or fix
+ one-of markup issue in the texinfo file; those are relatively simple
+ to backport in comparison.
+
+2022-08-06 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up display of Arabic
+
+ * lisp/language/misc-lang.el (composition-function-table): Move
+ some of the Arabic composition rules to ZWJ and ZWNJ cells. This
+ speeds up display of Arabic by a factor of 2. (Bug#56682)
+
+2022-08-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix C-n/C-p inside bidirectional text
+
+ * src/xdisp.c (move_it_by_lines, try_cursor_movement): Handle
+ glyph rows whose direction of increasing buffer positions is
+ reverse of the normal: going down in the window makes buffer
+ positions higher.
+ * src/indent.c (Fvertical_motion): When looking for the last glyph
+ row occupied by point, take into account the bidi iteration
+ direction.
+
+2022-08-06 YugaEgo <yet@ego.team>
+
+ Link from (emacs)Init Syntax to (elisp)Introduction
+
+ * doc/emacs/custom.texi (Init Syntax): Link to the ELisp manual
(Bug#56870)
+
+2022-08-06 lWarne <laurencewarne@gmail.com>
+
+ Fontify python escape sequences in literals
+
+ * lisp/progmodes/python.el (python-rx): Add regular expressions
+ matching escape codes in string and byte literals
+ (python--string-bytes-literal-matcher): new function
+ (python--not-raw-bytes-literal-start-regexp): new constant
+ (python--not-raw-string-literal-start-regexp): new constant
+ * test/lisp/progmodes/python-tests.el: Add tests for new
+ fontification (bug#57004).
+
+2022-08-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mh-e.texi syntax (from previous change)
+
+ * doc/misc/mh-e.texi (Viewing): Add closing brace to @footnote.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ * etc/PROBLEMS: Delete entry on 20+ years old version of X-Symbol.
+
+ * admin/check-doc-strings: Remove XEmacs support.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention removed XEmacs support in reftex manual
+
+ * doc/misc/reftex.texi (Installation, Imprint): Don't mention
+ removed XEmacs support.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention removed XEmacs support in mh-e manual
+
+ * doc/misc/mh-e.texi (Preface, Incorporating Mail, Viewing)
+ (Tool Bar, Tool Bar): Remove any reference to XEmacs.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make alias widget-visibility-value-create obsolete
+
+ * lisp/wid-edit.el (widget-visibility-value-create): Make compat
+ alias obsolete.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make an rmail compat alias obsolete
+
+ * lisp/mail/rmailsum.el (rmail-summary-output-to-rmail-file): Make
+ compat alias obsolete.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make compat alias ede-toplevel-project-or-nil obsolete
+
+ * lisp/cedet/ede/files.el (ede-toplevel-project-or-nil): Make
+ compat alias obsolete.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Drop support for XEmacs package func-menu from idlwave
+
+ * lisp/progmodes/idlwave.el (idlwave-function-menu): Make into
+ obsolete alias for imenu. Update callers.
+ * doc/misc/idlwave.texi (Introduction, Motion Commands): Remove
+ any mention of func-menu.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Make face-doc-string aliases obsolete
+
+ * lisp/faces.el (face-doc-string, set-face-doc-string): Make
+ aliases obsolete.
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ * admin/update_autogen: Fix generating ldefs-boot.el.
+
+ * admin/update_autogen: Fix refreshing grammar-wy.el.
+
+2022-08-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Put no-byte-compile cookie back in ldefs-boot.el
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention removed XEmacs support in idlwave manual
+
+ * doc/misc/idlwave.texi (Lesson I---Development Cycle)
+ (Syntax Highlighting, Windows and macOS, Troubleshooting): Delete
+ most references to XEmacs. Support for it was deleted in 28.1.
+
+2022-08-06 Po Lu <luangruo@yahoo.com>
+
+ Correctly initialize values after a new device is enabled
+
+ * src/xterm.c (handle_one_xevent): Initialize new device to
+ zero. (bug#57011)
+
+2022-08-06 Eli Zaretskii <eliz@gnu.org>
+
+ * src/puresize.h (BASE_PURESIZE): Bump the value. (Bug#57007)
+
+2022-08-06 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f3b9bccb45 * lisp/play/fortune.el: Doc fixes.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ Improve XI focus handling for entry and exit events
+
+ * src/xterm.c (handle_one_xevent): Skip useless
+ x_detect_focus_change calls in more cases.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ * src/callproc.c (emacs_spawn): Fix Mac OS X build.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ Fix signature of `seconds-to-time'
+
+ * lisp/calendar/time-date.el (seconds-to-time): Fix after change
+ to time-convert.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ Improve XI focus handling
+
+ * src/xterm.c (handle_one_xevent): Skip useless
+ x_detect_focus_change calls in some cases.
+
+2022-08-05 Jim Porter <jporterbugs@gmail.com>
+
+ Add STREAM argument to 'process-tty-name'
+
+ * src/process.c (process-tty-name): Add STREAM argument.
+
+ * lisp/eshell/esh-io.el (eshell-close-target): Only call
+ 'process-send-eof' once if the process's stdin is a pipe.
+
+ * test/src/process-tests.el (make-process/test-connection-type): Check
+ behavior of 'process-tty-name'.
+
+ * doc/lispref/processes.texi (Process Information): Document the new
+ argument.
+
+ * etc/NEWS: Announce this change.
+
+2022-08-05 Jim Porter <jporterbugs@gmail.com>
+
+ Allow creating processes where only one of stdin or stdout is a PTY
+
+ * src/lisp.h (emacs_spawn):
+ * src/callproc.c (emacs_spawn): Add PTY_IN and PTY_OUT arguments to
+ specify which streams should be set up as a PTY.
+ (call_process): Adjust call to 'emacs_spawn'.
+
+ * src/process.h (Lisp_Process): Replace 'pty_flag' with 'pty_in' and
+ 'pty_out'.
+
+ * src/process.c (is_pty_from_symbol): New function.
+ (make-process): Allow :connection-type to be a cons cell, and allow
+ using a stderr process with a PTY for stdin/stdout.
+ (create_process): Handle creating a process where only one of stdin or
+ stdout is a PTY.
+
+ * lisp/eshell/esh-proc.el (eshell-needs-pipe, eshell-needs-pipe-p):
+ Remove.
+ (eshell-gather-process-output): Use 'make-process' and set
+ ':connection-type' as needed by the value of 'eshell-in-pipeline-p'.
+
+ * lisp/net/tramp.el (tramp-handle-make-process):
+ * lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-make-process): Don't signal an
+ error when ':connection-type' is a cons cell.
+
+ * test/src/process-tests.el
+ (process-test-sentinel-wait-function-working-p): Allow passing PROC
+ in, and rework into...
+ (process-test-wait-for-sentinel): ... this.
+ (process-test-sentinel-accept-process-output)
+ (process-test-sentinel-sit-for, process-test-quoted-batfile)
+ (process-test-stderr-filter): Use 'process-test-wait-for-sentinel'.
+ (make/process/test-connection-type): New function.
+ (make-process/connection-type/pty, make-process/connection-type/pty-2)
+ (make-process/connection-type/pipe)
+ (make-process/connection-type/pipe-2)
+ (make-process/connection-type/in-pty)
+ (make-process/connection-type/out-pty)
+ (make-process/connection-type/pty-with-stderr-buffer)
+ (make-process/connection-type/out-pty-with-stderr-buffer): New tests.
+
+ * test/lisp/eshell/esh-proc-tests.el (esh-proc-test--detect-pty-cmd):
+ New variable.
+ (esh-proc-test/pipeline-connection-type/no-pipeline)
+ (esh-proc-test/pipeline-connection-type/first)
+ (esh-proc-test/pipeline-connection-type/middle)
+ (esh-proc-test/pipeline-connection-type/last): New tests.
+
+ * doc/lispref/processes.texi (Asynchronous Processes): Document new
+ ':connection-type' behavior.
+ (Output from Processes): Remove caveat about ':stderr' forcing
+ 'make-process' to use pipes.
+
+ * etc/NEWS: Announce this change (bug#56025).
+
+2022-08-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ time-convert): Deprecate calls without an explicit FORM arg
+
+ * lisp/subr.el (time-convert): Deprecate calls without an explicit FORM
arg.
+
+ * doc/lispref/os.texi (Time Conversion): Adjust doc accordingly.
+
+ * lisp/calendar/time-date.el (days-to-time):
+ * lisp/emacs-lisp/timer.el (timer-next-integral-multiple-of-time):
+ * lisp/gnus/nnrss.el (nnrss-normalize-date):
+ * lisp/epa-ks.el (epa-ks--parse-buffer): Silence corresponding warnings.
+
+2022-08-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that leim-list.el is built
+
+ * lisp/Makefile.in: Ensure that leim-list.el is built (bug#56998).
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Allow newline after def*-form for definition-prefix
+
+ * lisp/emacs-lisp/loaddefs-gen.el (autoload-ignored-definitions):
+ Add another semantic function.
+ (loaddefs-generate--compute-prefixes): Allow newline after the "(def*"
+ form. (Bug#57000)
+
+2022-08-05 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Add variable end-of-defun-moves-to-eol
+
+ * lisp/emacs-lisp/lisp.el (end-of-defun-moves-to-eol): New variable.
+ (end-of-defun): Use it.
+
+2022-08-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/keyboard.c (timer_check_2): Replace redundant test with assertion
+
+2022-08-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ timer.el: Avoid repeated timers
+
+ https://mail.gnu.org/archive/html/emacs-devel/2022-07/msg01127.html
+ points out that end-users can get bitten by this, accidentally
+ calling `timer-activate` on an already activated timer.
+
+ * lisp/emacs-lisp/timer.el (timer--activate): Signal an error if we try
+ to re-add a timer that's already on the timer-list.
+
+2022-08-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ bytecomp.el: Update comments referring to `make-docfile`
+
+2022-08-05 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in 'back_to_previous_visible_line_start'
+
+ * src/xdisp.c (init_iterator): Always initialize narrowed_begv to
+ zero, since SET_WITH_NARROWED_BEGV depends on it being non-zero as
+ an indication that long-line optimizations are in use.
+ (back_to_previous_visible_line_start): When long-line
+ optimizations are in effect, we may end up not on a newline.
+
+2022-08-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ bytecomp.el: Further simplifications enabled by commit 59732a83c8875c
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-output-docform): Don't
+ insert a \n before the #@ docstrings since make-docfile doesn't scan
+ .elc files any more.
+
+2022-08-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix lisp/Makefile.in autoloads dependency
+
+ * lisp/Makefile.in (autoloads): Ensure that loaddefs-gen.elc
+ exists before making autoloads.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Make ange-ftp-re-read-dir compat alias obsolete
+
+ * lisp/net/ange-ftp.el (ange-ftp-re-read-dir): Make alias obsolete.
+ Update callers.
+
+2022-08-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make loaddefs.el dependencies more explicit in src/Makefile.in
+
+ * src/Makefile.in (LC_ALL): Add loaddefs.el as a dependency, too,
+ since that file may be deleted, but the loaddefs.elc file still
+ exists. This causes problems in nativecomp builds.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Rename object-sort-list to srecode-object-sort-list
+
+ * lisp/cedet/srecode/table.el (srecode-object-sort-list): Rename
+ from 'object-sort-list'. Retain old name as an obsolete alias.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problems in viper.el
+
+ * lisp/emulation/viper.el
+ (viper-this-major-mode-requires-vi-state): Rename from
+ 'this-major-mode-requires-vi-state'. Retain old name as an
+ obsolete alias.
+ (viper-set-state-in-major-mode): Rename from
+ 'set-viper-state-in-major-mode'. Retain old name as an obsolete
+ alias.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problems in xscheme.el
+
+ * lisp/progmodes/xscheme.el (xscheme-default-runlight): Rename
+ from 'default-xscheme-runlight'. Retain old name as an obsolete
+ alias.
+ (xscheme-verify-buffer): Rename from 'verify-xscheme-buffer'.
+ Retain old name as an obsolete alias.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problem in saveplace.el
+
+ * lisp/saveplace.el (save-place-load-alist-from-file): Rename from
+ 'load-save-place-alist-from-file'. Retain old name as an obsolete
+ alias. Update callers.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Make two perl-mode aliases obsolete
+
+ * lisp/progmodes/perl-mode.el (indent-perl-exp)
+ (mark-perl-function): Make obsolete.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problem in ede/custom.el
+
+ * lisp/cedet/ede/custom.el (ede-eieio-old-variables): Rename from
+ 'ede-eieio-old-variables'. Retain old name as an obsolete alias.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ * test/lisp/env-tests.el: New file.
+
+ * lisp/play/fortune.el: Doc fixes.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ Fix oldXMenu grab handling
+
+ * src/xmenu.c (x_menu_translate_generic_event, pop_down_menu):
+ Clear grab correctly on individual XI2 devices.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ Improve C-x C-q in emacs-news-mode
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-mode-map)
+ (emacs-news-view-mode-map): Make C-x C-q switch to the
+ appropriate mode for editing, and vice versa.
+ (emacs-news-mode): Disable button-mode and make buffer
+ read-write.
+
+2022-08-05 Po Lu <luangruo@yahoo.com>
+
+ Improve multi-pointer X support
+
+ * etc/TODO: Document that MPX support still needs work.
+ * src/xterm.c (xi_handle_interaction): New function.
+ (handle_one_xevent): Call it in the appropriate places.
+
+2022-08-05 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f484da5fcb * doc/lispref/loading.texi (Autoload by Prefix): Fix typo.
+
+2022-08-04 Po Lu <luangruo@yahoo.com>
+
+ Improve input extension focus handling with multiple master devices
+
+ * src/xterm.c (x_cache_xi_devices): Initialize device fields to
+ 0.
+ (xi_handle_focus_change, xi_focus_handle_for_device)
+ (xi_handle_delete_frame): New functions; store focus information
+ per-device instead.
+ (x_detect_focus_change): Handle GenericEvents that way instead.
+ (handle_one_xevent): Don't cache XI devices on DeviceChanged.
+ (x_free_frame_resources): Clear any frame focus information.
+
+ * src/xterm.h (struct xi_device_t): New fields for focus
+ tracking. Add comments describing fields.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in mail/*.el
+
+ * lisp/mail/mspools.el (mspools-mode-map):
+ * lisp/mail/rmailedit.el (rmail-edit-map):
+ * lisp/mail/rmailsum.el (rmail-summary-edit-map):
+ * lisp/mail/supercite.el (sc-T-keymap, sc-mode-map)
+ (sc-electric-mode-map, sc-minibuffer-local-completion-map)
+ (sc-minibuffer-local-map): Prefer defvar-keymap.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Whitespace fix in gdb-mi.el
+
+ * lisp/progmodes/gdb-mi.el (gdb-memory-next-page)
+ (gdb-memory-prev-page): Change tab after "defvar" to space, to avoid
+ potential bugs in tooling.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Be more lax when picking up prefixes for loaddefs
+
+ * lisp/emacs-lisp/loaddefs-gen.el
+ (loaddefs-generate--compute-prefixes): Allow tabs and spaces before
+ symbol name, so that "(defvar\tfoo-bar nil)" is properly picked up.
+ Before this change, such a definition would be wrongly picked up as
+ the symbol "nil".
+
+2022-08-04 Andreas Schwab <schwab@linux-m68k.org>
+
+ * lisp/Makefile.in (distclean): Also remove loaddefs.elc.
+
+2022-08-04 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'feature/long-lines-improvements'
+
+2022-08-04 Peder O. Klingenberg <peder@klingenberg.no>
+
+ * lisp/org/org.el: Fix load of compiled or compressed org-loaddefs
+
+ * lisp/org/org.el (eq): Fix load of compiled or compressed
+ org-loaddefs (bug#56982).
+
+2022-08-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp for backward compatibility
+
+ * lisp/net/tramp-compat.el (tramp-compat-auth-source-netrc-parse-all):
+ New defalias.
+
+ * lisp/net/tramp.el (tramp-parse-netrc): Use it. (Bug#56976)
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that updated loaddefs files are byte-compiled
+
+ * lisp/Makefile.in: Add autoloads as an ordering-only dependency
+ to compile-main so that newly updated loaddefs files are byte-compiled.
+
+2022-08-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix last Tramp change, especially for bug#56963
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-write-region):
+ Add missing space.
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-write-region): Use "cat",
+ "echo -n" isn't portable. (Bug#56963)
+
+ * lisp/net/tramp.el (tramp-file-name-unify): Unquote file name in time.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Suppress compilation warnings in netrc.el
+
+ * lisp/obsolete/netrc.el (netrc-machine-user-or-password)
+ (netrc-credentials): Suppress some warnings.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Document obsoletion of netrc-parse better
+
+ * lisp/obsolete/netrc.el (netrc-parse): Add 'obsolete' declaration
+ pointing to 'auth-source-netrc-parse-all' for documentation purposes.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Clean up output of make-command-summary slightly
+
+ * lisp/makesum.el (make-command-summary): Don't print today's date
+ or status messages.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move netrc tests to auth-source-tests.el
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add obsolete-since header to netrc.el
+
+ * lisp/obsolete/netrc.el: Add obsolete-since header (bug#56976).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move netrc.el to lisp/obsolete/
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use auth-source in tramp-parse-netrc
+
+ * lisp/auth-source.el (auth-source-netrc-parse-all): Autoload.
+
+ * lisp/net/tramp.el (tramp-parse-netrc): Don't use netrc-parse,
+ because it's going to be made obsolete (bug#56976).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add obsolete-since line to autoload.el and adjust comments
+
+ * lisp/obsolete/autoload.el: Add obsolete-since line.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move autoload.el to lisp/obsolete/
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust autoload require in cus-dep.el
+
+ * lisp/cus-dep.el (loaddefs-gen): Don't require autoload, because
+ none of the functions are used.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't require netrc in nnimap.el
+
+ * lisp/gnus/nnimap.el (netrc): Don't require, since it's not used.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function auth-source-netrc-parse-all
+
+ * lisp/auth-source.el (auth-source-netrc-parse-all): New function
+ (bug#56976).
+ (auth-source-netrc-parse): Partially revert behaviour in previous
+ change -- require :allow-null to match.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Minor cleanups in autoload.el/loaddefs-gen.el
+
+ * lisp/subr.el (package--builtin-versions): Adjust comments.
+
+ * lisp/emacs-lisp/loaddefs-gen.el (no-update-autoloads): Moved
+ here from autoload.el.
+ * lisp/emacs-lisp/loaddefs-gen.el: Removed now that it's no longer
+ used.
+
+ * lisp/emacs-lisp/package.el
+ (package-autoload-ensure-default-file): Don't warn about
+ soon-to-be obsolete functon.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Minor checkdoc.el clean up
+
+ * lisp/emacs-lisp/checkdoc.el (generate-autoload-cookie): This is
+ no longer used, so remove reference.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust admin/emacs for new autoloads
+
+ * admin/emake: Adjust for new autoloads.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow auth-source-netrc-parse to return all lines
+
+ * lisp/auth-source.el (auth-source-netrc-parse): If host/user/port
+ is nil, don't require those to match.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up nntp-send-authinfo after removing obsolete variable
+
+ * lisp/gnus/nntp.el (netrc-parse, netrc-machine, netrc-get):
+ Remove declarations.
+ (nntp-send-authinfo): Now that `nntp-authinfo-file' is removed,
+ don't parse the .authinfo file twice, but just rely on the
+ auth-source functions (bug#56972).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add define-keymap to autoload-ignored-definitions
+
+ * lisp/emacs-lisp/loaddefs-gen.el (autoload-ignored-definitions):
+ Ignore `define-keymap', too (bug#56973).
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Add define-key-after to autoload-ignored-definitions
+
+ * lisp/emacs-lisp/loaddefs-gen.el (autoload-ignored-definitions):
+ Add define-key-after and define-ibuffer-sorter.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ * doc/lispref/loading.texi (Autoload by Prefix): Fix typo.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problem in meta-mode.el
+
+ * lisp/progmodes/meta-mode.el
+ (meta-font-lock-match-declaration-item-and-skip-to-next): Rename
+ from 'font-lock-match-meta-declaration-item-and-skip-to-next'.
+ Retain old name as an obsolete alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Add more autoload-ignored-definitions
+
+ * lisp/emacs-lisp/loaddefs-gen.el (autoload-ignored-definitions):
+ Add define-ibuffer-column.
+
+2022-08-04 Philip Kaludercic <philipk@posteo.net>
+
+ * eww.el (eww-browse): Raise error if there are no arguments
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/find-dired.el (lookfor-dired): Make obsolete.
+
+2022-08-04 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'master' into feature/long-lines-improvements
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename recently added macro to follow conventions
+
+ * lisp/eshell/em-extpipe.el (eshell-extpipe--or-with-catch):
+ Rename from 'em-extpipe--or-with-catch'.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problem in dired-aux.el
+
+ * lisp/dired-aux.el (dired-minibuffer-default-add-shell-commands):
+ Rename from 'minibuffer-default-add-dired-shell-commands'. Retain
+ old name as an obsolete alias.
+
+2022-08-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp test
+
+ * test/lisp/net/tramp-tests.el (tramp-test48-unload):
+ Ignore autoload functions in `tramp-file-name' structure tests,
+ since `tramp-file-name-handler' is also autoloaded.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename timep to type-break-timep
+
+ * lisp/type-break.el (type-break-timep): Rename from 'timep'.
+ Retain old name as an obsolete alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace problem in mpc.el
+
+ * lisp/mpc.el (mpc-tag-browser-tagtypes): Rename from
+ 'tag-browser-tagtypes'. Retain old name as an obsolete alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename set-woman-file-regexp to woman-set-file-regexp
+
+ * lisp/woman.el (woman-set-file-regexp): Rename from
+ 'set-woman-file-regexp'. Retain old name as an obsolete alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename alphabetp to hangul-alphabetp
+
+ * lisp/leim/quail/hangul.el (hangul-alphabetp): Rename from
+ 'alphabetp'. Retain old name as an obsolete alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Make trivial convenience defsubst notzerop obsolete
+
+ * lisp/leim/quail/hangul.el (notzerop): Make obsolete. Adjust
+ callers.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add more autoload-ignored-definitions defs
+
+ * lisp/emacs-lisp/loaddefs-gen.el (autoload-ignored-definitions):
+ Add more definition forms that shouldn't trigger prefix
+ registration (bug#56970).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ url-about.el: Add obsolete-since
+
+ * lisp/obsolete/url-about.el: Add obsolete-since.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make url-about.el obsolete (bug#56885)
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix about:protocols in EWW"
+
+ This reverts commit b49c1740105dd3715315aa433674c95f44aaeac4.
+
+ We're making this obsolete instead.
+
+2022-08-04 Gregory Heytings <gregory@heytings.org>
+
+ Improve Bidi with long lines.
+
+ * src/composite.c (composition_compute_stop_pos): Use an 'endpos' that
+ is not too far away.
+ (find_automatic_composition): Use a 'head' that is not too far away.
+ Also make sure that this code path is not taken when long line
+ optimizations are disabled.
+
+ * src/dispextern.h (struct composition_it): Add a field that points
+ to the parent iterator.
+
+ * src/xdisp.c (init_iterator): Set it.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix eww--download-directory naming
+
+ * lisp/net/eww.el (eww--download-directory):
+ (eww-download-directory): Rename function that was mistakenly
+ named "erc--" (bug#56969).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up some prefix registration problems in doc strings
+
+ * lisp/uniquify.el (uniquify-buffer-name-style):
+ * lisp/org/ob-core.el (org-src-sha):
+ * lisp/emacs-lisp/cl-macs.el (cl--optimize):
+ * lisp/battery.el (battery-update-functions): Avoid triggering the
+ `register-definition-prefixes' in doc strings (bug#56968).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix double-encoding attachment headers in single-part rfc2047
+
+ * lisp/mail/rfc2047.el (rfc2047-header-encoding-alist): Don't
+ double-encode Content-Disposition in mails with no other body
+ (bug#56906).
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename make-doctor-variables to doctor-make-variables
+
+ * lisp/play/doctor.el (doctor-make-variables): Rename from
+ 'make-doctor-variables'. Retain old name as an obsolete function
+ alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename nil-blank-string to eshell-nil-blank-string
+
+ * lisp/eshell/em-unix.el (eshell-nil-blank-string): Rename from
+ 'nil-blank-string'. Retain old name as an obsolete function alias.
+
+2022-08-04 Stefan Kangas <stefan@marxist.se>
+
+ Rename pod2man-program to cperl-pod2man-program
+
+ * lisp/progmodes/cperl-mode.el (cperl-pod2man-program): Rename
+ from 'pod2man-program'. Retain old name as an obsolete
+ variable alias.
+
+2022-08-04 Po Lu <luangruo@yahoo.com>
+
+ Fix about:protocols in EWW
+
+ * lisp/net/eww.el (eww--dwim-expand-url): Handle `about: ' URLs.
+ (bug#56885)
+ * lisp/url/url-about.el (url-about): Return correct content type
+ for HTML data.
+ * lisp/url/url-http.el (url-http--get-referer): Refrain from
+ looking for a referrer if the lastloc had no host.
+
+2022-08-04 Po Lu <luangruo@yahoo.com>
+
+ Correctly implement refresh synchronization fences
+
+ * configure.ac (HAVE_XSYNC): Also check for XSyncTriggerFence.
+
+ * src/xfns.c (Fx_create_frame): Create fences.
+ * src/xterm.c (x_atom_refs): New atom.
+ (x_sync_trigger_fence, x_sync_init_fences, x_sync_free_fences):
+ New functions.
+ (x_sync_update_finish): Trigger the appropriate fence.
+ (x_free_frame_resources): Free fences.
+ * src/xterm.h (struct x_display_info): New atom
+ `_NET_WM_SYNC_FENCES'.
+ (struct x_output): New field `sync_fences'.
+
+2022-08-04 Kira Bruneau <kira.bruneau@gmail.com>
+
+ Fix ignored-local-variable-values for non-primitive values
+
+ * lisp/files.el (hack-local-variables-filter): Fix
+ `ignored-local-variable-values' for non-primitive values (bug#56957).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make flyspell-check-word-p work better with delete-selection-mode
+
+ * lisp/textmodes/flyspell.el (flyspell-check-word-p): Deactivate
+ the region immediately (bug#53773).
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust documentation for make-docfile
+
+ * doc/lispref/loading.texi (Autoload): We're no longer using
+ make-docfile for loaddefs.el, but we're retaining the format.
+ Adjust the documentation.
+ * lisp/loadup.el: Adjust commentary.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove outdated TODO item about make-docfile and .el files
+
+ * etc/TODO: Remove outdated item about make-docfile and .el files.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust src/Makefile.in comments about make-docfile
+
+ * src/Makefile.in ($(etc)/DOC): Remove comment aboout make-docfile
+ being run twice (because it no longer is).
+
+2022-08-04 Po Lu <luangruo@yahoo.com>
+
+ Reduce code duplication in XI scroll bar code
+
+ * src/xterm.c (xi_select_scroll_bar_events): New function.
+ (x_create_toolkit_scroll_bar)
+ (x_create_horizontal_toolkit_scroll_bar, x_scroll_bar_create):
+ Factor out input extension code there.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust loaddefs-generate--print-form comments
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form):
+ Adjust doc string and comments now that make-docfile doesn't scan
+ this.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove read_string_literal purify doc string hack
+
+ * src/lread.c (read_string_literal): Since we're now
+ byte-compiling the loaddefs files (so doc strings come from the
+ .elc files), remove the hack that make this return 0 when the
+ string starts with "\\n".
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove VCSWITNESS dependency, since we're always rescanning now
+
+ * Makefile.in (VCSWITNESS): Remove, since we're always rescanning
+ for loaddefs.
+ * src/Makefile.in ($(lispsource)/loaddefs.el): Remove VCSWITNESS
+ dependency.
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-08-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Still mark ldefs-boot.el as non-byte-compilable
+
+ * lisp/Makefile.in (ldefs-boot.el): Mark ldefs-boot.el as
+ non-byte-compiled.
+
+2022-08-03 Po Lu <luangruo@yahoo.com>
+
+ Avoid redundant calls to XFlush in x_make_frame_visible
+
+ * src/xterm.c (x_make_frame_visible): Keep track of whether or
+ not the output buffer was implictly flushed before issuing
+ XFlush.
+
+2022-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Revert "Revert part of 59732a83c8 to fix bug#52969"
+
+ This reverts commit 460f35e96df1c39ce2ba0f424b36365a2f9e9825.
+
+ Re-remove the code that scans .el files for docstrings, now
+ that even `lisp/loaddefs.el` is compiled.
+
+ * lib-src/make-docfile.c (scan_file): Don't call `scan_lisp_file`.
+ (scan_lisp_file, skip_white, read_lisp_symbol, search_lisp_doc_at_eol):
+ Delete functions.
+
+2022-08-03 Philip Kaludercic <philipk@posteo.net>
+
+ Only suggest packages with VC metadata
+
+ * package-vc.el (package-vc-fetch): Filter out packages without :vc
+ information in the interactive specification.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/help.el (describe-map-tree, describe-map): Simplify.
+
+2022-08-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Reorganize Tramp
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-write-region): Handle special
+ case that START is "".
+ (tramp-adb-handle-set-file-modes)
+ (tramp-adb-handle-set-file-times):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+ (tramp-adb-handle-make-process):
+ Use `with-tramp-saved-connection-properties'.
+
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ Use `tramp-archive-handle-file-exists-p'.
+ (tramp-archive-handle-file-exists-p): New defun.
+ (tramp-archive-file-name-handler): Add ;;;###tramp-autoload cookie.
+
+ * lisp/net/tramp-cache.el (tramp-compat, tramp-loaddefs)
+ (time-stamp): Require.
+ (tramp-get-file-property, tramp-set-file-property)
+ (tramp-flush-file-property, tramp-flush-file-upper-properties)
+ (tramp-flush-file-properties): Use `tramp-file-name-unify'. Adapt
+ message.
+ (tramp-flush-directory-properties): Simplify.
+ (tramp-flush-file-function): Add ;;;###tramp-autoload cookie.
+ Don't use `with-parsed-tramp-file-name', it isn't exposed.
+ (with-tramp-file-property, with-tramp-connection-property)
+ (with-tramp-saved-connection-property): Macros moved from tramp.el.
+ (with-tramp-saved-file-property)
+ (with-tramp-saved-file-properties)
+ (with-tramp-saved-connection-properties): New defmacros.
+
+ * lisp/net/tramp-cmds.el (tramp-cleanup-connection): Flush "/".
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-handle-set-file-modes)
+ (tramp-crypt-handle-set-file-times)
+ (tramp-crypt-handle-set-file-uid-gid):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+
+ * lisp/net/tramp-ftp.el (tramp-archive-file-name-handler):
+ Don't declare.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-info): New defun.
+ (tramp-gvfs-do-copy-or-rename-file)
+ (tramp-gvfs-handle-delete-directory)
+ (tramp-gvfs-handle-delete-file, tramp-gvfs-get-root-attributes)
+ (tramp-gvfs-handle-make-directory): Use it.
+ (tramp-gvfs-handle-set-file-modes)
+ (tramp-gvfs-handle-set-file-times)
+ (tramp-gvfs-handle-set-file-uid-gid):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-make-symbolic-link):
+ Expand TARGET when flushing file properties.
+ (tramp-sh-handle-set-file-modes, tramp-sh-handle-set-file-times)
+ (tramp-sh-handle-set-file-uid-gid):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+ (tramp-sh-handle-file-name-all-completions): Protect, when
+ connection is not established yet.
+ (tramp-do-copy-or-rename-file-directly): Flush file properties of
+ NEWNAME when constructing a new remote file name.
+ (tramp-do-copy-or-rename-file-out-of-band,
tramp-sh-handle-make-process):
+ Use `with-tramp-saved-connection-properties'.
+ (tramp-sh-handle-delete-file): Flush file properties only after
+ deleting, otherwise we get a false alarm.
+ (tramp-sh-handle-process-file): Flush "/".
+ (tramp-sh-handle-write-region): Handle special case that START is "".
+
+ * lisp/net/tramp-smb.el (tramp-smb-handle-copy-directory)
+ (tramp-smb-handle-file-acl, tramp-smb-handle-process-file)
+ (tramp-smb-handle-set-file-acl)
+ (tramp-smb-handle-start-file-process):
+ Use `with-tramp-saved-connection-properties'.
+ (tramp-smb-remote-acl-p): New defun.
+ (tramp-smb-handle-file-acl, tramp-smb-handle-set-file-acl): Use it.
+ (tramp-smb-handle-set-file-modes):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+ (tramp-smb-handle-process-file, tramp-smb-maybe-open-connection):
+ Flush "/".
+
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file): Flush "/".
+ (tramp-sshfs-handle-set-file-modes)
+ (tramp-sshfs-handle-set-file-times):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-set-file-modes)
+ (tramp-sudoedit-handle-set-file-times)
+ (tramp-sudoedit-handle-set-file-uid-gid):
+ Use `tramp-skeleton-set-file-modes-times-uid-gid'.
+
+ * lisp/net/tramp.el (tramp-archive-file-name-handler): Don't declare.
+ (tramp-verbose, tramp-file-name-unify, tramp-tramp-file-p)
+ (tramp-file-local-name, tramp-dissect-file-name)
+ (tramp-make-tramp-file-name, tramp-get-connection-buffer)
+ (tramp-get-buffer-string, tramp-debug-message)
+ (tramp-inhibit-progress-reporter, tramp-message):
+ Add ;;;###tramp-autoload cookie.
+ (tramp-file-name): Expose defstruct to tramp-loaddefs.el
+ (tramp-file-name-unify): New optional arg FILE.
+ (tramp-get-default-directory, tramp-get-buffer-string)
+ (tramp-message, tramp-backtrace, tramp-error-with-buffer)
+ (tramp-with-demoted-errors, tramp-barf-if-file-missing)
+ (tramp-skeleton-copy-directory, tramp-skeleton-delete-directory)
+ (tramp-skeleton-directory-files)
+ (tramp-skeleton-directory-files-and-attributes)
+ (tramp-skeleton-file-local-copy, tramp-skeleton-write-region):
+ Remove `tramp-suppress-trace' property, it isn't needed for
+ defmacros and defsubsts.
+ (with-tramp-file-property, with-tramp-connection-property)
+ (with-tramp-saved-connection-property): Move macros to tramp-cache.el.
+ (tramp-skeleton-directory-files-and-attributes): Fix implementation.
+ (tramp-skeleton-file-local-copy): Fix docstring.
+ (tramp-skeleton-set-file-modes-times-uid-gid): New defmacro.
+ (tramp-skeleton-write-region): Set "file-exists-p" cache property.
+ (tramp-handle-file-exists-p): Use cached value.
+ (tramp-process-sentinel): Flush "/".
+ (tramp-make-tramp-temp-file): Suppress also `tramp-smb-remote-acl-p'.
+ (tramp-get-connection-buffer):
+
+ * test/lisp/net/tramp-tests.el (tramp-test10-write-region)
+ (tramp-test20-file-modes, tramp-test22-file-times): Extend tests.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Mark keys in apropos.el for substitute-command-keys
+
+ * lisp/apropos.el (apropos-symbol, apropos-function)
+ (apropos-macro, apropos-command, apropos-variable)
+ (apropos-user-option, apropos-face, apropos-group)
+ (apropos-widget, apropos-plist, apropos-library): Mark keys for
+ 'substitute-command-keys'.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Add face to mouse buttons in command substitutions
+
+ * lisp/help.el (substitute-command-keys): Add help-key-binding face to
+ mouse buttons in literal key substitutions.
+ * test/lisp/help-tests.el
+ (help-tests-substitute-command-keys/literal-key-sequence): Expand
+ test for above change.
+
+2022-08-03 Eli Zaretskii <eliz@gnu.org>
+
+ Teach 'symbol-file' about .eln natively-compiled files
+
+ * lisp/subr.el (locate-eln-file): New function.
+ (symbol-file): Accept an optional 3rd argument NATIVE-P, and, if
+ non-nil, try to locate and report the .eln file where SYMBOL was
+ defined.
+
+ * etc/NEWS:
+ * doc/lispref/loading.texi (Where Defined): Document the new
+ optional argument of 'symbol-file'.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Do interactive mode tagging in apropos.el
+
+ * lisp/apropos.el (apropos-follow, apropos-next-symbol)
+ (apropos-previous-symbol): Tag for 'apropos-mode'.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove superfluous autoloads from url-util.el
+
+ * lisp/url/url-util.el (timezone-parse-date)
+ (timezone-make-date-arpa-standard): Remove superfluous autoloads.
+
+2022-08-03 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (package-vc-unpack): Delete using
package--delete-directory
+
+2022-08-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Byte-compile the in-tree loaddefs.el files
+
+ * lisp/Makefile.in (all): Add "autoloads", which now otherwise
+ won't be done.
+ ($(lisp)/loaddefs.el): Remove this target, since it's always done,
+ and would then trigger a re-compilation of loaddefs.elc.
+
+ * lisp/loadup.el: Load loaddefs.elc (if it exists).
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Don't
+ include no-byte-compile cookies in the Emacs build.
+
+ * src/Makefile.in ($(pdmp)): Depend on loaddefs.elc to ensure that
+ it's built by this point.
+ ($(etc)/DOC): Don't scan loaddefs.el for doc strings, since they
+ are now picked up from the .elc file (bug#53024).
+
+2022-08-03 Po Lu <luangruo@yahoo.com>
+
+ Fix crash on setting frame background color
+
+ * src/xfns.c (x_set_background_color): Stop setting scroll bar
+ window background, since this is now taken care of
+ automatically.
+
+2022-08-03 Philip Kaludercic <philipk@posteo.net>
+
+ Add TODO section for package-vc
+
+2022-08-03 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to their version 2.5.0
+
+ * doc/misc/modus-themes.org (Debian 11 Bullseye): Clarify that the
+ Debian package as it is long outdated.
+ (Option for inhibiting theme reload): Fix typo
+ (Option for completion framework aesthetics): Remove reference to
+ obsolete package.
+ (Option for line highlighting): Mention 'lin' package from GNU ELPA.
+ (Option for the headings' overall style): Document support for
+ headings level 0.
+ (Advanced customization): Fix typo.
+ (Override colors): Remove obsolete entries. Add link to new section.
+ (Override colors through blending): Add section with a complete
+ technology demonstration of overriding the color values.
+ (Font configurations for Org and others): Mention the 'fontaine'
+ package from GNU ELPA.
+ (Custom Org emphasis faces): Fix typo.
+ (Full support for packages or face groups, Indirectly covered
+ packages): Update list of supported packages.
+ (Note on vc-annotate-background-mode): Remove note.:(Are these color
+ schemes?): Fix typo.
+ (Acknowledgements): Update acknowledgements.
+ * etc/themes/modus-operandi-theme.el
+ * etc/themes/modus-vivendi-theme.el: Update version header.
+
+ * etc/themes/modus-themes.el (modus-themes--version): Update version.
+ (modus-themes-special-cold, modus-themes-special-mild)
+ (modus-themes-special-warm, modus-themes-special-calm)
+ (modus-themes-diff-added, modus-themes-diff-changed)
+ (modus-themes-diff-removed, modus-themes-diff-refine-added)
+ (modus-themes-diff-refine-changed, modus-themes-diff-refine-removed)
+ (modus-themes-diff-focus-added, modus-themes-diff-focus-changed)
+ (modus-themes-diff-focus-removed, modus-themes-mark-symbol)
+ (modus-themes-inhibit-reload, modus-themes-mode-line)
+ (modus-themes--paren): Fix doc string warning about quotes.
+ (modus-themes-operandi-color-overrides)
+ (modus-themes-vivendi-color-overrides): Fix ":link" to the Info
+ manual's relevant node.
+ (modus-themes-headings): Add support for headings level 0.
+ (modus-themes-org-agenda): Tweak spacing in the doc string.
+ (modus-themes--syntax-comment): Tweak combination of properties.
+ (modus-themes--list-colors-render, modus-themes-list-colors): Refine
+ how the command works to preview colors in the buffer.
+ (modus-themes-faces): Edit supported faces.
+ (modus-themes-custom-variables): Edit supported variables.
+
+ Release notes:
<https://protesilaos.com/codelog/2022-08-03-modus-themes-2-5-0/>.
+
+2022-08-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix #' quoting in uniquify-buffer-name-style doc string
+
+ * lisp/uniquify.el (uniquify-buffer-name-style): Fix wrong quoting.
+
+2022-08-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check for mis-quoted #' in doc strings during byte-compile
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-docstring-style-warn):
+ Check for mis-quoted #' in doc strings, too.
+
+2022-08-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix quoting of #' in some doc strings
+
+ * lisp/org/ox.el (org-export-to-file):
+ * lisp/eshell/esh-arg.el (eshell-concat):
+ * lisp/emacs-lisp/edebug.el (edebug-read-special):
+ * lisp/dired-aux.el (dired-split): Fix quoting of #' in doc strings.
+
+2022-08-03 Jonas Bernoulli <jonas@bernoul.li>
+
+ * lisp/transient.el: Update to package version v0.3.7-143-g1b0a8a7
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Improve obsoletion of trimming functions in url-util.el
+
+ * lisp/url/url-util.el (url-eat-trailing-space): Redefine as
+ obsolete function alias for 'string-trim-right'.
+ (url-strip-leading-spaces): Redefine as obsolete function alias
+ for 'string-trim-left'.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Use string-trim in newsticker--remove-whitespace
+
+ * lisp/net/newst-backend.el (newsticker--remove-whitespace): Use
+ string-trim.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove some spurious references to XEmacs
+
+ * lisp/desktop.el (desktop--emacs-pid-running-p):
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Don't
+ mention XEmacs.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove XEmacs compat code from reftex-ref.el
+
+ * lisp/textmodes/reftex-ref.el (reftex-latin1-to-ascii): Remove
+ XEmacs compat code.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove more XEmacs compat code from viper-util.el
+
+ * lisp/emulation/viper-util.el (viper-check-version): Remove
+ XEmacs compat code.
+ (viper-get-visible-buffer-window): Make obsolete. Update caller.
+ (viper-key-press-events-to-chars): Make obsolete.
+
+2022-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ CEDET: Try and (re)fix bug#56902, in a better way
+
+ * lisp/cedet/semantic/complete.el (semantic-displayer-abstract):
+ Move definition before first use (in
`semantic-displayer-focus-abstract`).
+
+2022-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Revert "; Fix last change (bug#56902)"
+
+ This reverts commit 99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from url-util.el
+
+ These functions only exist in the XEmacs GTK support.
+ * lisp/url/url-util.el (url-display-percentage): Remove XEmacs
+ compat code.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Make url-util space trimming functions obsolete
+
+ * lisp/url/url-util.el (url-eat-trailing-space)
+ (url-strip-leading-spaces): Make obsolete in favor of
+ 'string-trim'. Update caller.
+
+2022-08-03 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f23d456039 * lisp/term.el: Doc fix; don't mention rlogin.
+ f522d2d90b ; * admin/make-tarball.txt: Minor tweaks.
+
+2022-08-03 Po Lu <luangruo@yahoo.com>
+
+ Improve X server time computation
+
+ * src/xterm.c (x_sync_get_monotonic_time): Use that if
+ available.
+ (x_display_set_last_user_time): Compute an offset between the
+ monotonic time and the X server time if they are not identical.
+ * src/xterm.h (struct x_display_info): New field
+ `server_time_offset'.
+
+2022-08-02 Po Lu <luangruo@yahoo.com>
+
+ Prevent GC threshold from exceeding fixnum limit during precision
scrolling
+
+ * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Prevent GC
+ threshold from exceeding most-positive-fixnum.
+
+2022-08-02 Po Lu <luangruo@yahoo.com>
+
+ Add preparations for animation frame timing support
+
+ * src/xterm.c (x_sync_get_monotonic_time)
+ (x_sync_current_monotonic_time, x_sync_note_frame_times): New
+ functions.
+ (x_sync_wait_for_frame_drawn_event, x_sync_update_begin)
+ (x_sync_handle_frame_drawn): Note frame times.
+ (x_display_set_last_user_time): Check if the X server time is
+ probably the same as CLOCK_MONOTONIC.
+
+ * src/xterm.h (struct x_display_info, struct x_output): New
+ fields and flags for clock handling and frame times.
+
+2022-08-02 Po Lu <luangruo@yahoo.com>
+
+ Fix window iconification, raising and lowering frames, etc
+
+ * src/xterm.c (XFlush): Remove define to 0.
+ (x_clear_frame, x_scroll_run, x_draw_window_cursor)
+ (x_free_frame_resources): Remove calls to XFlush where it is not
+ really necessary. Leave the calls that actually are intact.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Avoid cl-cXXXr compat aliases
+
+ * lisp/emacs-lisp/cl-lib.el (cl-third, cl-fourth):
+ * lisp/emacs-lisp/cl-macs.el (cl--do-&aux, cl--do-arglist)
+ (cl--parse-loop-clause, cl--loop-let, cl--loop-build-ands)
+ (cl--do-proclaim, cl-defstruct): Prefer using cXXXr functions
+ directly, instead of cl-cXXXr prefixed compat aliases.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ * doc/misc/vtable.texi (Commands): Fix typo. (Bug#56899)
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in footnote.el
+
+ * lisp/mail/footnote.el (footnote-mode-map)
+ (footnote-minor-mode-map): Prefer defvar-keymap.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Obsolete unused variable footnote-use-message-mode
+
+ * lisp/mail/footnote.el (footnote-use-message-mode): Make
+ obsolete.
+
+2022-08-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve sendmail-program doc string
+
+ * lisp/mail/sendmail.el (sendmail-program): Document that the
+ program shouldn't output text (bug#56855).
+
+2022-08-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/xdisp.c (redisplay_window): Use BEG rather than hard coding 1
+
+2022-08-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ CEDET: Remove left-over uses of obsolete <class>-child-p predicates
+
+ Those predicates were still sometimes used in a few places, notably via
+ `:type ... <class>-child` which was never technically correct.
+
+ * lisp/cedet/ede/config.el (ede-extra-config, ede-project-with-config):
+ * lisp/cedet/ede/base.el (ede-project-placeholder): Avoid pseudo-type
+ `<class>-child`.
+
+ * lisp/cedet/semantic/complete.el (semantic-displayer-focus-abstract):
+ Move before use of `cl-typep` on it.
+ (semantic-complete-current-match):
+ * lisp/cedet/ede/speedbar.el (ede-speedbar-menu): Use `cl-typep`
+ instead of `<class>-child-p`.
+
+ * lisp/cedet/semantic/db.el (semanticdb-get-buffer):
+ Use `cl-defgeneric` for the main/default definition.
+ (semantic-tag-parent-buffer): Add method.
+
+ * lisp/cedet/semantic/tag-file.el (semantic-tag-parent-buffer):
+ New generic function extracted from `semantic-go-to-tag`.
+ This allows us to keep the semanticdb-table part in semantic/db and
+ thus break a cyclic dependency.
+ (semantic-go-to-tag): Use it.
+ Demote to a plain `defun` since it's not overloaded anywhere.
+
+ * lisp/cedet/semantic/util.el (semanticdb-abstract-table-child-p):
+ Remove unused declaration.
+
+ * lisp/cedet/srecode/compile.el
(srecode-template-inserter-newline-child-p):
+ Remove unused declaration.
+ (srecord-compile-inserter-newline-p): New generic function, so we can
+ move the `srecode-template-inserter-newline` case to
`srecode/insert.el`,
+ to avoid a cyclic dependency.
+
+ * lisp/cedet/srecode/insert.el (srecord-compile-inserter-newline-p):
+ New method.
+
+2022-08-02 Philip Kaludercic <philipk@posteo.net>
+
+ Have VC ignore auto generated files
+
+ * package-vc.el (package-vc-unpack): Generate autoloads and ignore
+ have the VCS ignore them (along with package description file).
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Delete obsolete variable nntp-authinfo-file
+
+ * lisp/gnus/nntp.el (nntp-authinfo-file): Delete variable obsolete
+ since 24.1.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/textmodes/sgml-mode.el (html-tag-alist): Add https.
+
+ * lisp/term.el: Doc fix; don't mention rlogin.
+
+2022-08-02 Philip Kaludercic <philipk@posteo.net>
+
+ Assume VC data is directly usable in 'package-archive-contents'
+
+ * package-vc.el (package-vc-fetch): Remove string parsing and
+ translation code.
+
+2022-08-02 Philip Kaludercic <philipk@posteo.net>
+
+ * package-vc.el (vc-clone): Remove superfluous declaration
+
+2022-08-02 Robert Pluim <rpluim@gmail.com>
+
+ Signal error on duplicate key definitions
+
+ * lisp/keymap.el (define-keymap, defvar-keymap): Signal error if the
+ same key is specified twice. (Bug#56873)
+
+ * doc/lispref/keymaps.texi (Creating Keymaps): Document error
+ signaling behaviour.
+
+ * test/src/keymap-tests.el (keymap-test-duplicate-definitions): Test
+ duplicate definition detection.
+
+2022-08-02 Robert Pluim <rpluim@gmail.com>
+
+ Remove duplicate key definitions from keymaps
+
+ * lisp/gnus/gnus-srvr.el (gnus-browse-mode-map): Remove binding for
+ 'gnus-browse-prev-map'.
+ * lisp/gnus/gnus-sum.el (gnus-summary-mode-map): Remove
+ 'gnus-summary-down-thread' binding, and by symmetry
+ 'gnus-summary-up-thread' (it's still available on "T-u").
+ * lisp/ibuffer.el (ibuffer-mode-map): Remove binding for
+ 'ibuffer-mark-for-delete'.
+ * lisp/wdired.el (wdired-perm-mode-map): Remove duplicate binding of
+ "s" to 'wdired-set-bit'.
+
+ * etc/NEWS: Announce 'gnus-summary-up-thread' change.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ url-about: Ignore missing directories in load-path
+
+ * lisp/url/url-about.el (url-probe-protocols): Ignore missing
+ directories in load-path.
+
+2022-08-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix find-dired over tramp
+
+ * lisp/find-dired.el (find-dired-with-command): Set the
+ filter/sentinel immediately -- scheduling may make process output
+ (and exit) happen before these are set otherwise (bug#56865).
+ (find-dired-sort-by-filename): Don't bug out on error messages
+ from find.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Delete function alias x-selection obsolete since 23.3
+
+ * lisp/select.el (x-selection): Delete function alias obsolete since
+ 23.3.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/mail/binhex.el: Improve commentary.
+
+2022-08-02 Matt Armstrong <matt@rfc20.org>
+
+ Consider built-in packages to be installed
+
+ * lisp/emacs-lisp/package.el (package-installed-p): Check for built-in
+ packages before initialization. (bug#56877).
+
+2022-08-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't disable eldoc when doing edebug
+
+ * lisp/emacs-lisp/eldoc.el
+ (eldoc-display-message-no-interference-p): Don't disable eldoc
+ when edebugging (bug#56459). There should be no interference in
+ that case, because edebug messaging is done after stepping, and
+ eldoc messaging is done after other movements.
+
+2022-08-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix url-dired obsoletion warning
+
+ * lisp/url/url-file.el (url-file): Don't use obsolete url-dired
+ function.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Make url-dired.el obsolete (part 2/2)
+
+ * lisp/obsolete/url-dired.el: Add "Obsolete-since" header.
+ (url-dired-minor-mode-map): Minor fix.
+ * lisp/url/url-file.el (url-dired): Don't require.
+ * etc/NEWS: Announce its obsoletion.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Make url-dired.el obsolete (part 1/2)
+
+ It doesn't have any real effect since 2007.
+ Ref: https://lists.gnu.org/r/emacs-devel/2022-07/msg01156.html
+
+ * lisp/url/url-dired.el: Move from here...
+ * lisp/obsolete/url-dired.el: ...to here.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Make gnus-url-unhex into alias for url-unhex
+
+ * lisp/gnus/gnus-util.el (gnus-url-unhex): Make into obsolete function
+ alias for url-unhex; they are identical. Update callers.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Add tests for url-{hexify,unhex}-string
+
+ * test/lisp/url/url-util-tests.el (url-unhex-string-tests)
+ (url-hexify-string-tests): New tests.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Remove extraneous defvars from edmacro.el
+
+ * lisp/edmacro.el (edmacro-fix-menu-commands): Remove extraneous
+ defvars; they are already declared above.
+
+2022-08-02 Po Lu <luangruo@yahoo.com>
+
+ Further reduce monitor change event duplication
+
+ * src/xterm.c (handle_one_xevent): Also don't store duplicate
+ events for ConfigureNotify events bound for the root window.
+
+2022-08-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e6af4968f9 ; Update ChangeLog and AUTHORS
+
+2022-08-01 Po Lu <luangruo@yahoo.com>
+
+ Avoid extra consing on monitor configuration change
+
+ * src/xterm.c (x_find_monitors_changed_event): New function.
+ (x_monitors_changed_cb, handle_one_xevent): Look through the
+ entire event queue to skip delivering monitor change events.
+
+2022-08-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warning in spam.el
+
+ * lisp/gnus/spam.el (spam-check-blackholes): Adjust now that
+ query-dig is obsolete.
+
+2022-08-01 Juri Linkov <juri@linkov.net>
+
+ Wrap around the search on typing a letter (bug#56535)
+
+ * doc/emacs/search.texi (Repeat Isearch): Improve values no/no-ding.
+
+ * lisp/isearch.el (isearch-search-and-update): Try to repeat the search
+ on an error when isearch-wrap-pause is no/no-ding.
+
+2022-08-01 Gregory Heytings <gregory@heytings.org>
+
+ Fix the bytecode incompatibility due to the change to
'narrow-to-region'.
+
+ * src/editfns.c (narrow_to_region_internal): New function, which
+ contains the body previously in 'Fnarrow_to_region' but accepts
+ a third argument.
+ (Fnarrow_to_region): Use the new function. Update the docstring.
+ (Fwiden): Update the docstring.
+
+ * src/lisp.h: Prototype of the new function.
+
+ * src/xdisp.c (handle_fontified_prop): Use the new function instead
+ of 'Fnarrow_to_region'.
+
+ * src/process.c (Finternal_default_process_filter):
+ * src/lread.c (readevalloop): Remove the third argument to
+ 'Fnarrow_to_region'.
+
+ * src/bytecode.c (exec_byte_code):
+ * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst):
+ * lisp/emacs-lisp/bytecomp.el: Restore the statu quo ante.
+
+ * etc/NEWS: Remove the entry about the new optional argument.
+
+ * doc/lispref/positions.texi (Narrowing): Update the documentation.
+
+2022-08-01 Stefan Kangas <stefan@marxist.se>
+
+ Don't bind non-existent command in picture-mode-map
+
+ * lisp/textmodes/picture.el (picture-mode-map): Remove ineffectual
+ binding of non-existent command.
+
+2022-08-01 Eli Zaretskii <eliz@gnu.org>
+
+ * src/eval.c (Fdefvaralias): Clarify error messages. (Bug#56863)
+
+2022-08-01 Stefan Kangas <stefan@marxist.se>
+
+ Prefer command remapping to substitute-key-definition
+
+ * lisp/textmodes/reftex-index.el (reftex-index-mode-map):
+ * lisp/textmodes/reftex-sel.el (reftex-select-shared-map):
+ * lisp/textmodes/reftex-toc.el (reftex-toc-mode-map): Prefer command
+ remapping to 'substitute-key-definition'.
+
+2022-08-01 Eli Zaretskii <eliz@gnu.org>
+
+ * src/xdisp.c (get_visually_first_element): Fix a typo.
+
+2022-08-01 Gregory Heytings <gregory@heytings.org>
+
+ Various improvements to long lines handling.
+
+ * src/xdisp.c (get_visually_first_element,
+ (move_it_vertically_backward): Do not go back too far with bidi.
+ (get_narrowed_begv): Do not return 0 anymore instead of BEGV.
+ (handle_fontified_prop): Simplify accordingly.
+
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): Simplify accordingly.
+
+ * src/composite.c (find_automatic_composition): Ditto.
+
+2022-08-01 Gregory Heytings <gregory@heytings.org>
+
+ Fix forgotten initialization for long line optimizations.
+
+ * src/xdisp.c (init_iterator): Initialize the 'narrowed_begv'
+ field.
+
+ * src/buffer.c (syms_of_buffer): Docstring clarification.
+
+2022-08-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix loaddefs quirk w.r.t. pinyin-convert
+
+ * lisp/international/titdic-cnv.el (pinyin-convert): Use
+ `generate-lisp-file' for the file. This avoids having it scanned
+ by loaddefs-gen, which will trigger re-compilation of Emacs since
+ pinyin.el is generated after Emacs is built.
+
+2022-08-01 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/dig.el: Improve Commentary.
+
+2022-08-01 Stefan Kangas <stefan@marxist.se>
+
+ Doc fix in eudc-hotlist.el
+
+ * lisp/net/eudc-hotlist.el (eudc-hotlist-mode): Doc fix; use command
+ substitution.
+
+2022-08-01 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespacing issue in dig.el
+
+ * lisp/net/dig.el (dig-query): Rename from 'query-dig'.
+ (query-dig): Make into obsolete function alias for 'dig-query'.
+
+2022-08-01 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of xsettings events
+
+ * src/xsettings.c (xft_settings_event):
+ * src/xsettings.h: Return if the event was handled.
+ * src/xterm.c (handle_one_xevent): If it was, don't handle the
+ event any further.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve GCC pacification in xterm.c
+
+ * src/xterm.c (x_dnd_free_toplevels, x_composite_image):
+ Use UNINIT for initialization needed only to pacify GCC.
+ (x_dnd_free_toplevels): Add an eassume to pacify GCC 12.1 x86-64
+ -Wanalyzer-null-dereference.
+
+ 2022-07-31 Paul Eggert <eggert@cs.ucla.edu>
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix time comparison in primitive-undo
+
+ * lisp/simple.el (primitive-undo): Fix time comparison.
+ The old code was a circa-2013 mistranslation of what used to be in
+ src/undo.c’s Fprimitive_undo.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use list-form timestamps in .nnmh-articles
+
+ * lisp/gnus/nnmh.el (nnmh-update-gnus-unreads): Store list form
+ timestamps into .nnmh-articles, even if current-time-list is nil.
+ That way, older Emacs versions can read them.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer ‘time-equal-p’ to ‘equal’ on timestamps
+
+ This is more robust since timestamps can have multiple forms.
+ * lisp/auth-source.el (auth-source-netrc-parse):
+ * lisp/bookmark.el (bookmark--watch-file-already-queried-p)
+ (bookmark-maybe-load-default-file):
+ * lisp/cedet/semantic/db.el (semanticdb-needs-refresh-p):
+ * lisp/dired.el (dired-directory-changed-p):
+ * lisp/files.el (dir-locals-find-file):
+ * lisp/gnus/gnus-util.el (gnus-cache-file-contents):
+ * lisp/gnus/nneething.el (nneething-create-mapping):
+ * lisp/gnus/nnfolder.el (nnfolder-read-folder):
+ * lisp/gnus/nnmaildir.el (nnmaildir--update-nov)
+ (nnmaildir--scan, nnmaildir-request-scan)
+ (nnmaildir-request-update-info):
+ * lisp/gnus/nnmh.el (nnmh-update-gnus-unreads):
+ * lisp/gnus/spam-stat.el (spam-stat-load):
+ * lisp/mail/mailabbrev.el (mail-abbrevs-sync-aliases):
+ * lisp/mail/sendmail.el (sendmail-sync-aliases):
+ * lisp/net/netrc.el (netrc-parse):
+ * lisp/nxml/rng-loc.el (rng-get-parsed-schema-locating-file):
+ * lisp/play/cookie1.el (cookie-snarf):
+ * lisp/vc/vc-cvs.el (vc-cvs-state-heuristic):
+ * lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p)
+ (vc-hg--cached-dirstate-search):
+ * lisp/vc/vc-hooks.el (vc-after-save):
+ Prefer ‘time-equal-p’ to ‘equal’ when comparing
+ timestamps for equality.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify a few timestamps
+
+ * lisp/calendar/time-date.el (safe-date-to-time):
+ * lisp/calendar/timeclock.el (timeclock-generate-report):
+ * lisp/epg.el (epg--start):
+ * lisp/gnus/gnus-demon.el (gnus-demon-nntp-close-connection):
+ * lisp/gnus/gnus-util.el (gnus-date-get-time):
+ * lisp/gnus/nnheader.el (nnheader-last-message-time):
+ * lisp/gnus/nnrss.el (nnrss-request-expire-articles):
+ * lisp/vc/ediff-util.el (ediff-command-begin-time)
+ (ediff-calc-command-time, ediff-profile):
+ Prefer an integer like 0 to a timestamp list like (0 0)
+ where either will do.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Omit some (current-time) calls
+
+ * lisp/emacs-lisp/ert.el (ert-write-junit-test-summary-report):
+ * lisp/emacs-lisp/shortdoc.el (file):
+ * lisp/find-lisp.el (find-lisp-find-dired-insert-file):
+ * lisp/progmodes/hideif.el (hide-ifdefs):
+ * lisp/tar-mode.el (tar-subfile-save-buffer):
+ Prefer nil or omitted arg to (current-time) where this is better
+ or more-efficient.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ * lisp/vc/vc.el: Remove stray comment hyphen.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix "cons up a storm" issue in type-break
+
+ * lisp/type-break.el (type-break-time-last-command)
+ (type-break-mode, type-break, type-break-check)
+ (type-break-time-sum, type-break-keystroke-reset):
+ Use integer timestamps; that’s good enough for this module.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix year-285428751 bug in hanoi-unix-64
+
+ * lisp/play/hanoi.el (hanoi-move-period, hanoi, hanoi-unix)
+ (hanoi-unix-64): Use integers, not floating point, to avoid
+ rounding errors for timestamps greater than 2**53.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ * src/timefns.c (Ffloat_time): Fix doc string.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve time-equal-p etc. performance
+
+ * src/timefns.c (time_cmp): Return EMACS_INT, not int; no need to
+ change callers. Compare (X . Z) to (Y . Z) quickly if X and Y are
+ fixnums.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve float-time etc. performance
+
+ * src/timefns.c (decode_float_time): Assume T is finite.
+ All callers changed.
+ (decode_time_components): Assume FORM is not TIMEFORM_FLOAT.
+ All callers changed.
+ (decode_lisp_time): If the specified time is a float,
+ signal an error if it is not finite.
+ (Ffloat_time): If the specified time is a float,
+ simply return it.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Make time arithmetic more like comparison
+
+ Since time comparison says X == X, have time arithmetic behave
+ similarly for X - X. This should also be a bit faster due to not
+ having to test for floats and NaNs.
+ * src/timefns.c (time_arith, time_cmp):
+ Simplify by not worrying about NaNs, which are not time values.
+ (time_arith): Simplify by not worrying about subtracting nil from
+ nil; the caller now handles this.
+ (Ftime_subtract): Handle subtracting X from X specially.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix get-internal-runtime precision
+
+ * src/sysdep.c (make_lisp_s_us): Also define if HAVE_GETRUSAGE.
+ (Fget_internal_run_time): Don’t generate more precision than the
+ underlying primitives.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ (time-equal-p nil X) returns nil
+
+ * src/timefns.c (Ftime_equal_p): nil compares unequal to non-nil.
+
+2022-08-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Tune blv_found
+
+ * src/lisp.h (blv_found): Prefer BASE_EQ to EQ where either will do.
+
+2022-08-01 Po Lu <luangruo@yahoo.com>
+
+ Improve frame synchronization support on Haiku
+
+ * src/ftcrfont.c (ftcrfont_draw):
+ * src/haikufns.c (haiku_set_background_color):
+ * src/haikuterm.c (haiku_clip_to_string):
+ (haiku_clip_to_string_exactly):
+ (haiku_clear_frame_area):
+ (haiku_clear_frame):
+ (haiku_draw_box_rect):
+ (haiku_draw_relief_rect):
+ (haiku_draw_underwave):
+ (haiku_draw_text_decoration):
+ (haiku_draw_plain_background):
+ (haiku_draw_stipple_background):
+ (haiku_draw_glyph_string_foreground):
+ (haiku_draw_glyphless_glyph_string_foreground):
+ (haiku_draw_stretch_glyph_string):
+ (haiku_start_clip):
+ (haiku_end_clip):
+ (haiku_clip_to_row):
+ (haiku_draw_composite_glyph_string_foreground):
+ (haiku_draw_image_glyph_string):
+ (haiku_draw_glyph_string):
+ (haiku_after_update_window_line):
+ (haiku_draw_hollow_cursor):
+ (haiku_draw_bar_cursor):
+ (haiku_draw_vertical_window_border):
+ (haiku_draw_window_divider):
+ (haiku_scroll_bar_create):
+ (haiku_set_horizontal_scroll_bar):
+ (haiku_set_vertical_scroll_bar):
+ (haiku_draw_fringe_bitmap):
+ (haiku_scroll_run):
+ (haiku_read_socket):
+ (haiku_flash):
+ (haiku_clear_under_internal_border):
+ (haiku_scroll_bar_remove):
+ * src/haikuterm.h (MAKE_FRAME_DIRTY):
+ (FRAME_CR_CONTEXT): Don't dirty frames if not necessary.
+
+2022-08-01 Po Lu <luangruo@yahoo.com>
+
+ Implement primitive frame synchronization on Haiku
+
+ Instead of relying on a compositor to do the work, we simply
+ wait for VBLANK and hope that the update finishes soon enough.
+
+ * doc/lispref/frames.texi (Management Parameters): Document that
+ frame synchronization is now supported on Haiku.
+
+ * src/haiku_support.cc (class EmacsView): New field
+ `use_frame_synchronization'.
+ (FlipBuffers): Wait for vertical blanking period.
+ (be_set_use_frame_synchronization): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (haiku_create_frame): Set
+ `use-frame-synchronization'.
+
+ (haiku_set_use_frame_synchronization)
+ (haiku_frame_parm_handlers): New param handler.
+
+2022-08-01 Po Lu <luangruo@yahoo.com>
+
+ * lisp/cedet/ede/base.el (ede-project): Fix warning when loading EDE.
+
+2022-08-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-07-28 15:23:34 UTC.
+
+2022-07-31 Po Lu <luangruo@yahoo.com>
+
+ Make frame synchronization a frame parameter
+
+ * doc/lispref/frames.texi (Management Parameters): Document
+ `use-frame-synchronization'.
+ * etc/NEWS: Update entry.
+
+ * src/frame.c (frame_parms): New frame parameter
+ `use-frame-synchronization'.
+ (syms_of_frame): New defsym.
+ * src/haikufns.c (haiku_frame_parm_handlers):
+ * src/nsfns.m (ns_frame_parm_handlers):
+ * src/pgtkfns.c (pgtk_frame_parm_handlers):
+ * src/w32fns.c (w32_frame_parm_handlers): Update frame param
+ handlers correctly.
+ * src/xfns.c (x_set_use_frame_synchronization): New function.
+ (Fx_create_frame): Set default value of said parameter.
+ (x_frame_parm_handlers): Add handler.
+
+ * src/xterm.c (x_sync_wait_for_frame_drawn_event): Clear
+ parameter if sync fails.
+
+2022-07-31 Gregory Heytings <gregory@heytings.org>
+
+ Move the computation of narrowing bounds for long line optimizations.
+
+ * src/xdisp.c (init_iterator): Move the computation from here...
+ (reseat): ... to here. Also recompute the position in certain cases.
+
+2022-07-31 Gregory Heytings <gregory@heytings.org>
+
+ Add locked narrowing around pre- and post-command-hook
+
+ * src/keyboard.c (safe_run_hooks_maybe_narrowed): New function.
+ (command_loop_1): Use it for 'pre-command-hook' and 'post-command-hook'.
+ (syms_of_keyboard): Update docstrings of 'pre-command-hook' and
+ 'post-command-hook'.
+
+ * src/lisp.h: Prototype of the new function.
+
+2022-07-31 Philip Kaludercic <philipk@posteo.net>
+
+ Extract package-fetch and related functionality
+
+ Note that the "package kind" was renamed from "source" to "vc".
+
+ * package-vc.el: (package-vc-commit): Copy from package.el
+ (package-vc-version): Add new function
+ (package-vc-generate-description-file): Add new function.
+ (package-vc-unpack): Add new function.
+ (package-vc-fetch): Copy from package.el
+ (package-checkout): Add alias for package-vc-fetch
+ * package.el (package-devel-dir): Remove option. The checkouts are
+ stored in package-user-dir
+ (package-desc): Handle (vc . VERS) version strings
+ (package-desc-full-name): Return the plain name for vc packages
+ (package-devel-commit): Move function to package-vc
+ (package-load-descriptor): Refactor according to other changes
+ (package-load-all-descriptors): Remove package-devel-dir
+ (package-unpack): Remove vc package handling
+ (package-generate-description-file): Remove special handling for vc
+ packages
+ (package-install-from-archive): Remove special handling for vc
+ packages
+ (package-fetch): Move function to package-vc
+ (package-desc-status): Use "vc" instead of "source"
+ (package--remove-hidden): Use "vc" instead of "source"
+ (package-menu--print-info-simple): Refactor according to other changes
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow specifying that loaddefs files shouldn't not be compiled
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric):
+ Allow specifying that we shouldn't include a no-compile cookie
+ (bug#53024).
+
+2022-07-31 Mattias Engdegård <mattiase@acm.org>
+
+ Declare `key-valid-p` and `readablep` as error-free
+
+ * lisp/keymap.el (key-valid-p):
+ * lisp/subr.el (readablep): These functions are effect-free; declare
+ them correspondingly. Note that readablep is not pure since its
+ return value depends on ambient state.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Make ps-def.el obsolete (part 2/2)
+
+ * lisp/obsolete/ps-def.el: Add "Obsolete-since".
+ * lisp/ps-print.el (ps-def): Don't require.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Make ps-def.el obsolete (part 1/2)
+
+ This file was created to maintain Emacs/XEmacs compat code more
+ easily, and no longer serves any purpose. It currently contains only
+ obsolete function and variable aliases.
+
+ * lisp/ps-def.el: Move from here...
+ * lisp/obsolete/ps-def.el: ...to here.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't make a custom-save-icons section if there's nothing to save
+
+ * lisp/cus-edit.el (custom-save-icons): Only make an entry when
+ there's something to save (bug#56860). Also autoload.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Move some definitions from ps-def.el to ps-print.el
+
+ * lisp/ps-def.el (ps-face-bold-p, ps-face-italic-p)
+ (ps-face-strikeout-p, ps-face-overline-p, ps-face-box-p)
+ (ps-color-format, ps-float-format)
+ (ps-generate-postscript-with-faces1): Move from here...
+ * lisp/ps-print.el (ps-face-bold-p, ps-face-italic-p)
+ (ps-face-strikeout-p, ps-face-overline-p, ps-face-box-p)
+ (ps-color-format, ps-float-format)
+ (ps-generate-postscript-with-faces1): ...to here.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Remove some leftover compat code from ps-print
+
+ * lisp/ps-def.el (ps-mark-active-p): Make obsolete in favor of
+ 'mark-active'. Update callers.
+ (ps-face-foreground-name): Make obsolete in favor of
+ 'face-foreground'. Update callers.
+ (ps-face-background-name): Make obsolete in favor of
+ 'face-background'. Update callers.
+ (ps-color-device): Make into obsolete function alias for
+ 'display-color-p'. Update callers.
+
+2022-07-31 Michael Albinus <michael.albinus@gmx.de>
+
+ Declare Tramp function for backward compatibility
+
+ * lisp/net/tramp.el (tramp-archive-file-name-handler):
+ * lisp/net/tramp-ftp.el (tramp-archive-file-name-handler): Declare.
+
+2022-07-31 Philip Kaludercic <philipk@posteo.net>
+
+ Merge remote-tracking branch 'origin/master' into feature/package+vc
+
+2022-07-31 Mattias Engdegård <mattiase@acm.org>
+
+ Reduce internal rx autoloads
+
+ * lisp/emacs-lisp/rx.el (rx--to-expr, rx--pcase-transform):
+ Don't autoload.
+ (rx--pcase-macroexpander): Extract body into...
+ (rx--pcase-expand): ...a separate function, which is autoloaded.
+
+2022-07-31 Philip Kaludercic <philipk@posteo.net>
+
+ Fix electric paring in rcirc buffers
+
+ * rcirc.el (rcirc--electric-pair-inhibit): Add new predicate function.
+ (rcirc-mode): Use rcirc--electric-pair-inhibit.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/emacs-lisp/eieio-base.el (eieio-persistent-read): Simplify.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warnings in tramp-loaddefs.el
+
+ * lisp/files.el (file-name-quoted-p): Autoload because it's
+ referred to from tramp-loaddefs.
+ * lisp/net/tramp.el (defvar): Put the entire form into the
+ loaddefs file instead of eval-and-compile -- this fixes a
+ dependency problem when byte-compiling the loaddefs file.
+ (tramp-methods, tramp-default-method-alist)
+ (tramp-default-user-alist, tramp-default-host-alist)
+ (tramp-local-host-regexp, tramp-terminal-type)
+ (tramp-foreign-file-name-handler-alist): Autoload to avoid
+ compilation warnings. Also put (require 'cl-lib) into the
+ loaddefs file for the same reason.
+ (tramp-ensure-dissected-file-name)
+ (tramp-set-completion-function)
+ (tramp-register-foreign-file-name-handler): Autoload.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix org.el byte-compile warning in org-loaddefs.el
+
+ * lisp/org/org.el (org-dynamic-block-define): Autoload because
+ it's referred to in org-loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix ede byte-compile warnings in loaddefs.el
+
+ * lisp/emacs-lisp/eieio.el (make-instance):
+ * lisp/cedet/ede/auto.el (ede-add-project-autoload): Autoload
+ functions referred to by ede/loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove loaddefs debug code
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric):
+ Remove code inadvertantly checked in.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix cl byte-compile warning in cl-loaddefs.el
+
+ * lisp/emacs-lisp/cl-macs.el (cl--optimize)
+ (cl-struct-sequence-type, cl-struct-slot-offset): Autoload since
+ they are referred to by code in cl-loaddefs.el.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Delete additional items obsolete since 20, 21 and 22
+
+ * lisp/font-lock.el (font-lock-reference-face): Delete variable
+ alias obsolete since 20.3.
+ * lisp/progmodes/cc-cmds.el (c-toggle-auto-state): Delete alias
+ obsolete since 22.1.
+ * lisp/replace.el (query-replace-regexp-eval): Delete function
+ obsolete since 22.1.
+ (replace-count, replace-re-search-function): Doc fixes; adjust for
+ above deleted function.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix remaining byte-compile warnings in loaddefs.el
+
+ * lisp/progmodes/compile.el (compilation--default-buffer-name):
+ * lisp/kmacro.el (kmacro-name-last-macro):
+ * lisp/emacs-lisp/package.el (package--activate-all): Autoload to
+ avoid byte-compilation warnings when byte-compiling loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix rx.el byte-compile warning in loaddefs.el
+
+ * lisp/emacs-lisp/rx.el (rx--to-expr, rx--pcase-transform):
+ Autoload to avoid warning when byte-compiling loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix sendmail.el byte-compile warning in loaddefs.el
+
+ * lisp/mail/sendmail.el (mail-send-and-exit): Autoload since it's
+ referred to by autoloaded code in loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ tramp fixes for byte-compiling loaddefs.el
+
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
+ Move to the main loaddefs file since it's referred to by functions
+ there.
+ * lisp/net/tramp.el (tramp-file-name-handler): Autoload to avoid
+ warning when byte-compiling loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix further package.el loaddefs byte-compile warnings
+
+ * lisp/emacs-lisp/package.el (package-directory-list)
+ (package-quickstart-file): Specify group to avoid warning when
+ byte-compiling loaddefs.el.
+ (package-activated-list): Autoload since we're assigning the
+ variable from a function completely autoloaded.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix loaddefs byte-compile warnings from grep.el
+
+ * lisp/progmodes/grep.el (grep-highlight-matches)
+ (grep-match-face): Autoload to avoid byte-compile warnings from
+ loaddefs.el.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix loaddefs byte-compile warning from package.el
+
+ * lisp/emacs-lisp/package.el (package-user-dir): :group has to be
+ explicit for autoloaded defcustoms.
+
+2022-07-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reformulate compile-command condition
+
+ * lisp/progmodes/compile.el: Reformulate to avoid a byte-compile
+ warning when compiling loaddefs.el.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Delete aliases obsolete since 21.1 and 22.1
+
+ * lisp/ls-lisp.el (ls-lisp-dired-ignore-case):
+ * lisp/files.el (find-file-not-found-hooks): Delete variable aliases,
+ obsolete since 21.1 and 22.1 respectively.
+
+2022-07-31 Eli Zaretskii <eliz@gnu.org>
+
+ Support keyboard input and display of U+1E9E
+
+ * lisp/international/latin1-disp.el (latin1-display):
+ * lisp/international/iso-transl.el (iso-transl-char-map)
+ (iso-transl-language-alist): Add U+1E9E capital sharp S.
+
+2022-07-31 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ eb11dae499 Improve documentation of column-related functions
+ c95a34c960 * src/macfont.m (macfont_open): Initialize font->space_wid...
+ 31a6a37d45 Improve indexing of keymap variables
+
+2022-07-30 Po Lu <luangruo@yahoo.com>
+
+ Fix NS unexec build
+
+ * nextstep/Makefile.in (all): Only build Emacs.pdmp on pdumper
+ builds.
+
+ * src/sheap.h: Make STATIC_HEAP_SIZE bigger, otherwise I get:
+ static heap exhausted: avail 67108864 used 67101824 failed
+ request 20480
+
+2022-07-30 Po Lu <luangruo@yahoo.com>
+
+ Fix frame synchronization with scroll bar movement
+
+ * src/xfns.c (x_set_inhibit_double_buffering): Stop condeming
+ scroll bars.
+
+ * src/xterm.c (x_scroll_bar_create): Create an InputOnly window.
+ Update event masks accordingly and stop allocating back buffer.
+ (x_scroll_bar_remove): Stop deallocating back buffer.
+ (XTset_vertical_scroll_bar, x_scroll_bar_set_handle): Draw onto
+ the edit window so they can be synchronized with buffer flips.
+ (x_scroll_bar_clear): Redraw scroll bars instead of just
+ clearing them.
+ (x_scroll_bar_handle_expose, x_scroll_bar_redraw): New
+ functions.
+ (x_scroll_bar_expose, x_scroll_bar_end_update): Delete
+ functions.
+ (handle_one_xevent): Update exposure logic accordingly.
+
+ * src/xterm.h (struct scroll_bar): Remove `x_drawable' field.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Delete redisplay-end-trigger-functions and related defuns
+
+ This variable and related functions have been obsolete since 23.1.
+ The last things to depend on this (fast-lock.el and lazy-lock.el) were
+ recently removed.
+
+ * src/dispextern.h (struct it): Delete field
+ 'redisplay_end_trigger_charpos'.
+ * src/window.c (Fwindow_redisplay_end_trigger)
+ (Fset_window_redisplay_end_trigger): Delete defuns and corresponding
+ defsubrs for functions obsolete since 23.1.
+ * src/window.h (wset_redisplay_end_trigger): Delete function.
+ (GCALIGNED_STRUCT): Delete 'redisplay_end_trigger'.
+ * src/xdisp.c (run_redisplay_end_trigger_hook): Delete function.
+ (syms_of_xdisp) <redisplay_end_trigger_functions>: Delete
+ variable obsolete since 23.1.
+ (init_iterator, next_element_from_buffer): Don't run or set above
+ deleted hook variable.
+
+ * lisp/subr.el: Delete obsoletion definitions for above deleted
+ defuns and variable.
+ * doc/lispref/hooks.texi (Standard Hooks):
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns):
+ * lisp/loadhist.el (unload-feature-special-hooks): Don't mention
+ above deleted variable.
+ * admin/coccinelle/window.cocci: Adjust for above changes.
+
+2022-07-30 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of column-related functions
+
+ * doc/lispref/text.texi (Primitive Indent, Columns):
+ * src/indent.c (Fcurrent_indentation, Fmove_to_column): Document
+ that column counting ignores invisible text. (Bug#56837)
+
+2022-07-30 Gerd Möllmann <gerd@gnu.org>
+
+ Fix native compiler handling of narrow-to-region
+
+ * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Use auto for
+ byte-narrow-to-region.
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak icons.el emoji detection
+
+ * lisp/emacs-lisp/icons.el (icons--create): Choose another
+ character that's unlikely to appear in non-Emoji fonts. (Comment
+ left in place since this should be fixed in a less breakable way.)
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the symbol icons in outline.el more logical
+
+ * lisp/outline.el (outline-open, outline-close): Use symbols from
+ the same series so that it's more likely that they match up (bug#56823).
+
+2022-07-30 Eli Zaretskii <eliz@gnu.org>
+
+ Make sure to preserve point across locked narrowing
+
+ * src/editfns.c (Fnarrow_to_region): Save the position of point
+ when locking the restriction, since this function can move point.
+
+2022-07-30 Gregory Heytings <gregory@heytings.org>
+
+ Handle the optional argument of 'narrow-to-region' in byte-compiled
code.
+
+ * lisp/emacs-lisp/bytecomp.el: Adapt the specifications.
+
+ * src/bytecode.c (exec_byte_code): Get the optional argument.
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify mail-header address parsing doc strings
+
+ * lisp/mail/mail-parse.el (mail-header-parse-address-lax):
+ * lisp/mail/ietf-drums.el (ietf-drums-parse-address): Clarify what
+ these functions do (bug#56824).
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix outline-minor-mode-use-buttons defcustom type
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Fix wrong type.
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ buffer-match-p doc string clarification
+
+ * lisp/subr.el (buffer-match-p): Actually say that nil is a valid
+ value.
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust outline--use-buttons-p to buffer-match-p change
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Adjust doc string.
+ (outline--use-buttons-p): No longer any need to special-case t/nil.
+
+2022-07-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move a test from subr-tests to print-tests
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/apropos.el (apropos-documentation): Simplify.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Avoid leaving temp buffers in bib-mode and refbib
+
+ * lisp/textmodes/bib-mode.el (bib-capitalize-title):
+ * lisp/textmodes/refbib.el (r2b-capitalize-title): Use
+ with-temp-buffer.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in dns-mode-map
+
+ * lisp/textmodes/dns-mode.el (dns-mode-map): Prefer defvar-keymap.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in nroff-mode-map
+
+ * lisp/textmodes/nroff-mode.el (nroff-mode-map): Prefer defvar-keymap.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Fix namespace use in bib-mode.el
+
+ * lisp/textmodes/bib-mode.el (bib-unread-file, bib-add)
+ (bib-return-key, bib-mark, bib-unread): Rename from
+ 'unread-bib-file', 'addbib', 'return-key-bib', 'mark-bib', and
+ 'unread-bib' respectively. Maintain old names as obsolete aliases and
+ update uses.
+ (bib-mode-map): Prefer defvar-keymap.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Make ffap-newfile-prompt obsolete
+
+ * lisp/ffap.el (ffap-newfile-prompt): Obsolete in favor of
+ 'find-file-not-found-functions'.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/ffap.el (ffap-url-regexp): Add gemini.
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Make outline-view-change-hook obsolete
+
+ According to a comment, this hook "Seems only used by lazy-lock.
+ I.e. obsolete." But lazy-lock has been deleted.
+ * lisp/outline.el (outline-view-change-hook): Make obsolete.
+
+2022-07-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ * src/macfont.m (macfont_open): Initialize font->space_width.
(Bug#56808)
+
+2022-07-30 Eli Zaretskii <eliz@gnu.org>
+
+ Improve indexing of keymap variables
+
+ * doc/lispref/maps.texi (Standard Keymaps):
+ * doc/lispref/display.texi (Button Buffer Commands)
+ (Button Properties):
+ * doc/lispref/keymaps.texi (Translation Keymaps): Improve indexing
+ of keymaps. (Bug#56816)
+
+2022-07-30 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e0f54c62ec CC Mode: fontify variables/functions after line comments e...
+ 2c6a94c5b8 ; Correct the meaning of "cf." in tips.texi
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Minor improvements to precision scroll interpolation
+
+ * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Bump GC
+ cons threshold temporarily. This leads to a very noticable
+ improvement to animation speed.
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Fix failure caused by misreading the frame synchronization spec
+
+ * src/xterm.c (x_sync_update_begin): Ensure value % 4 is 1.
+ (x_sync_update_finish): Then, add 3.
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Don't freeze if the compositing manager crashes
+
+ * src/xterm.c (x_if_event): New function, like XIfEvent but with
+ a timeout.
+ (x_sync_wait_for_frame_drawn_event): Disable frame
+ synchronization if x_if_event times out after 1 second.
+
+2022-07-29 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: fontify variables/functions after line comments ending in
spaces
+
+ * lisp/progmodes/cc-engine.el (c-forward-comment-minus-1): Take account
of
+ spaces preceding a linefeed when scanning a putative line comment end.
+
+2022-07-29 Gregory Heytings <gregory@heytings.org>
+
+ Improve narrowing when iterator has moved outside of narrowing bounds.
+
+ * src/xdisp.c (get_narrowed_begv, get_narrowed_zv): Add 'pos'
+ parameter.
+ (init_iterator): Add arguments to 'get_narrowed_begv' and
+ 'get_narrowed_zv'.
+ (handle_fontified_prop): Recompute the narrowing when iterator
+ has moved outside of narrowing bounds.
+
+ * src/dispextern.h (get_narrowed_begv, get_narrowed_zv): Adapt
+ prototypes.
+
+ * src/composite.c (find_automatic_composition): Add argument
+ to 'get_narrowed_begv'.
+
+2022-07-29 Philip Kaludercic <philipk@posteo.net>
+
+ * subr.el (buffer-match-p): Add t as trivial a condition
+
+2022-07-29 Gregory Heytings <gregory@heytings.org>
+
+ Improvement for long line optimizations.
+
+ * src/xdisp.c (handle_fontified_prop): Also apply the forced
+ narrowing at BOB.
+
+2022-07-29 Gerd Möllmann <gerd@gnu.org>
+
+ Adapt native compiler to change in narrow-to-region
+
+ * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Add third
+ argument nil for narrow-to-region.
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Fix handling of extended frame resize synchronization
+
+ * src/xterm.c (x_sync_wait_for_frame_drawn_event): Don't wait if
+ the frame is invisible. If it is mapped again the compositing
+ manager is obliged to send us another event, so we can wait in
+ that case.
+ (x_sync_update_begin, x_sync_update_finish): Handle extended
+ resize synchronization here.
+ (XTframe_up_to_date, handle_one_xevent): Save stuff here.
+
+ * src/xterm.h (struct x_output): New field
+ `resize_counter_value'.
+
+2022-07-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix outline byte compilation warning from previous change
+
+ * lisp/outline.el (outline--use-buttons-p): Move around to fix
+ byte compilation warning.
+
+2022-07-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up the outline minor mode button logic
+
+ * lisp/outline.el (outline-minor-mode-highlight-buffer): Factor
+ out... (bug#56820).
+ (outline--use-buttons-p): ... to here.
+ (outline-hide-subtree, outline--fix-up-all-buttons)
+ (outline-show-subtree): Use it.
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Minor additions to last change
+
+ * doc/emacs/xresources.texi (Table of Resources): Update
+ description of `extended'.
+ * etc/NEWS: Announce frame tearing reduction.
+
+ * src/xterm.c (x_sync_update_finish, x_sync_update_begin)
+ (x_update_begin, x_update_end, show_back_buffer, x_flip_and_flush)
+ (XTframe_up_to_date, handle_one_xevent): Minor redesign of frame
+ synchronization feature. Fix crash with overflow and checking.
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Implement monitor refresh rate synchronization on X
+
+ * src/xfns.c (x_set_parent_frame, Fx_create_frame): Disable
+ vsync on child and embedded frames.
+ * src/xmenu.c (x_menu_show): Fix XMenu position calculation in
+ child frames.
+
+ * src/xterm.c (x_sync_is_frame_drawn_event)
+ (x_sync_wait_for_frame_drawn_event): New functions.
+ (x_sync_update_begin): Wait for frame to be drawn if not double
+ buffered.
+ (x_sync_update_finish): Set FRAME_X_WAITING_FOR_DRAW (f).
+ (show_back_buffer): Wait for frame to be drawn before flipping
+ buffers.
+ (XTframe_up_to_date): Set FRAME_X_WAITING_FOR_DRAW if bumped.
+ (handle_one_xevent): Handle frame drawn events.
+
+ * src/xterm.h (struct x_output): New fields for frame dirtyness
+ and vsync.
+
+2022-07-29 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'feature/long-lines-and-font-locking'
+
+2022-07-29 Gregory Heytings <gregory@heytings.org>
+
+ Further minor improvements of documentation
+
+ * src/xdisp.c (syms_of_xdisp) <fontification-functions>:
+ * etc/NEWS: Further minor wording improvements.
+
+2022-07-29 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements of recent documentation changes
+
+ * src/editfns.c (Fwiden):
+ * doc/lispref/display.texi (Auto Faces):
+ * src/xdisp.c (syms_of_xdisp) <fontification-functions>:
+ * etc/NEWS: Clarify and improve wording of documentation changes.
+
+2022-07-29 Po Lu <luangruo@yahoo.com>
+
+ Also update after buffer flip caused by flush_frame
+
+ * src/xterm.c (x_flip_and_flush): Mark the end of a sync frame.
+
+2022-07-28 Po Lu <luangruo@yahoo.com>
+
+ Implement extended frame synchronization
+
+ * src/xterm.c (x_atom_refs): New atom _NET_WM_FRAME_TIMINGS.
+ (x_sync_update_finish, x_sync_update_begin): New frame.
+ (x_update_begin, x_update_end, XTframe_up_to_date): Begin and
+ end frames accordingly if extended frame synchronization is
+ enabled.
+ (handle_one_xevent): Ignore timing and frame drawn events.
+
+ * src/xterm.h (struct x_display_info): New atom.
+ (FRAME_X_COUNTER_VALUE): New macro.
+
+2022-07-28 Po Lu <luangruo@yahoo.com>
+
+ Don't offer meaningless selection targets during drag-and-drop
+
+ * lisp/select.el (xselect-dnd-target-available-p): New function.
+ (selection-converter-alist): Register it as the availability
+ function for DND specific targets.
+
+2022-07-28 Gregory Heytings <gregory@heytings.org>
+
+ Final documentation tweaks.
+
+ * etc/NEWS: Update the NEWS entry.
+
+ * src/xdisp.c (syms_of_xdisp): Mention the fact that restrictions
+ may be locked around 'fontification-functions'.
+
+2022-07-28 Gregory Heytings <gregory@heytings.org>
+
+ Add an optional 'lock' parameter to 'narrow-to-region'
+
+ * src/editfns.c (Fnarrow_to_region): Add the parameter to the
+ function, and handle it. Update docstring.
+ (unwind_locked_begv, unwind_locked_zv): New functions.
+ (Fwiden): Do nothing when restrictions are locked. Update
+ docstring.
+ (syms_of_editfns): Replace the 'inhibit-widen' symbol and variable
+ with a 'restrictions-locked' symbol and variable. Update docstring.
+
+ * src/xdisp.c (handle_fontified_prop): Use Fnarrow_to_region with
+ the new parameter.
+ (unwind_narrowed_zv): Remove function.
+
+ * src/process.c (Finternal_default_process_filter): Add a third
+ argument to Fnarrow_to_region.
+
+ * src/lread.c (readevalloop): Add a third argument to
+ Fnarrow_to_region.
+
+ * src/bytecode.c (exec_byte_code): Add a third argument to
+ Fnarrow_to_region.
+
+ * etc/NEWS (like): Mention the new parameter of 'narrow-to-region'.
+
+ * doc/lispref/positions.texi (Narrowing): Document it.
+
+2022-07-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-prefix-map): Fix key broken by conversion.
+
+2022-07-28 Sam Steingold <sds@gnu.org>
+
+ Cleanup `string-equal-ignore-case' declarations.
+
+ Also, a minor declaration cleanup for other `compare-strings' thin
wrappers.
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Remove
+ `string-equal-ignore-case', `string-prefix-p', `string-suffix-p'.
+ (side-effect-and-error-free-fns): Add `proper-list-p' (it already
+ was in `pure-fns').
+ (pure-fns): Remove `string-prefix-p', `string-suffix-p'
+ (`string-equal-ignore-case' was missing here).
+ * lisp/subr.el (proper-list-p): Remove partially duplicate `put's from
here.
+ (string-equal-ignore-case, string-prefix-p, string-suffix-p): Add
+ `pure' and `side-effect-free' declarations.
+ (string-equal-ignore-case): Make inline.
+
+2022-07-28 Sam Steingold <sds@gnu.org>
+
+ a couple more `string-equal-ignore-case' test cases
+
+2022-07-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Comment fixes for recent icon code
+
+ * lisp/cus-edit.el (custom-icon-state): Add comment.
+
+ * lisp/emacs-lisp/icons.el: Remove comment.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Delete fast-lock.el and lazy-lock.el
+
+ The 'font-lock-support-mode' is occasionally useful for debugging
+ purposes, so it remains as a defvar.
+ Ref: https://lists.gnu.org/r/emacs-devel/2020-08/msg00125.html
+
+ * lisp/obsolete/fast-lock.el:
+ * lisp/obsolete/lazy-lock.el: Delete libraries obsolete since
+ 22.1. (Bug#56560)
+
+ * lisp/font-lock.el (font-lock-support-mode): Make into a defvar and
+ delete any mention of 'lazy-lock-mode' and 'fast-lock-mode'.
+ (font-lock-turn-on-thing-lock, font-lock-turn-off-thing-lock):
+ Drop support for obsolete modes lazy-lock and fast-lock.
+ (font-lock-after-fontify-buffer)
+ (font-lock-after-unfontify-buffer): Make into obsolete function
+ aliases for 'ignore'. Adjust callers.
+ (font-lock-keywords, font-lock-inhibit-thing-lock): Adjust
+ documentation to not mention lazy-lock and fast-lock.
+ * lisp/font-core.el (font-lock-defaults): Adjust documentation to
+ not mention 'font-lock-inhibit-thing-lock'.
+ * lisp/mail/rmail.el (rmail-variables): Don't inhibit obsolete
+ lazy-lock-mode and fast-lock-mode.
+
+2022-07-28 Po Lu <luangruo@yahoo.com>
+
+ Fix grab view persisting on Haiku after popup menu closes
+
+ * src/haiku_support.cc (BasicMouseUp): Improve handling of
+ wait_for_release_message.
+ (be_clear_grab_view): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikumenu.c (haiku_menu_show): Call it here.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Convert ffap comments to tests
+
+ * test/lisp/ffap-tests.el (ffap-file-remote-p, ffap-machine-p):
+ New tests.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ba54f7e39c ; * doc/lispref/windows.texi (Window Sizes): Another typo....
+ 7990d0c36a ; * doc/lispref/windows.texi (Window Sizes): Fix a typo. ...
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 92e77873ad Update ChangeLog and AUTHORS for 28.1.91 pretest
+ 093214402b ; * admin/authors.el (authors-aliases): Update.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 23112f89f9 ; Improve documentation of 'file-name-with-extension'
+ 4be938169d Release the desktop lock in 'kill-emacs-hook'
+ 4ea1f6c7f8 ; * doc/lispref/tips.texi (Documentation Tips): Fix typos....
+
+ # Conflicts:
+ # doc/lispref/tips.texi
+
+2022-07-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use icons in warnings buffers
+
+ * lisp/emacs-lisp/warnings.el (warning-suppress-action)
+ (warning-suppress-log-action): Removed.
+ New icon.
+ (warnings-suppress): New helper function.
+ (display-warning): Use it (bug#46025).
+
+2022-07-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use icons in outline
+
+ * lisp/help.el (describe-bindings): Don't force buttons on
+ (bug#56691).
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Default
+ buttons on in special-mode buffers.
+ * lisp/outline.el (outline-minor-mode-buttons): Remove.
+ (outline-open, outline-close): New icons.
+ (outline-minor-mode-highlight-buffer): Use the new predicate to
+ switch on/off.
+ (outline--make-button): Remove.
+ (outline--make-button-overlay): Use icons.el instantiation.
+ (outline--valid-emoji-p): Remove.
+ (outline--valid-char-p): Remove.
+ (outline--insert-open-button, outline--insert-close-button): Make
+ point movement better in *Help* buffers.
+
+2022-07-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for user-customizable icons
+
+ * doc/emacs/custom.texi (Specific Customization): Mention it.
+
+ * doc/emacs/display.texi (Icons): New node.
+
+ * doc/lispref/display.texi (Icons): New node.
+
+ * lisp/button.el (buttonize):
+ (button--properties, buttonize-region): Allow not overriding faces.
+
+ * lisp/cus-edit.el (custom-save-all): Save icons.
+ (custom-icon): New widget.
+ (custom-icon-value-create, custom-toggle-hide-icon)
+ (custom--icons-widget-value, custom-icon-set): Helper functions
+ for the widget.
+ (customize-icon): Main command.
+ (custom-icon-state-set, custom-icon-state): Helper functions.
+ (custom-theme-set-icons): Function to be used by theme writers.
+ (custom-set-icons): Function to be used in .emacs.
+ (custom-save-icons): New function.
+
+ * lisp/custom.el (custom-push-theme): Add icons.
+
+ * lisp/emacs-lisp/icons.el: New file.
+
+ * test/lisp/emacs-lisp/icons-tests.el: Add some tests.
+
+2022-07-28 Po Lu <luangruo@yahoo.com>
+
+ Correctly set marker position after specpdl is unwound during printing
+
+ * src/print.c (PRINTFINISH): Don't call set_marker_both with the
+ wrong current_buffer. Reported by Lars Ingebrigtsen
+ <larsi@gnus.org>.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Make quickurl.el obsolete (part 2/2)
+
+ * lisp/obsolete/quickurl.el: Add "Obsolete-since" header.
+ * lisp/info.el (Info-file-list-for-emacs): Delete quickurl entry.
+ * doc/misc/autotype.texi (QuickURL): Delete section.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Make net/quickurl.el obsolete (part 1/2)
+
+ * lisp/net/quickurl.el: Move from here...
+ * lisp/obsolete/quickurl.el: ...to here.
+
+2022-07-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't export print--unreadable-callback-buffer to lisp
+
+ * src/print.c (syms_of_print): Don't export
+ `print--unreadable-callback-buffer' to lisp.
+
+2022-07-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that we don't call print-unreadable-function from " prin1"
+
+ * src/print.c (PRINTPREPARE): Bind the current buffer so that we
+ can retrieve it later.
+ (print_vectorlike): Use it (bug#56773).
+ (syms_of_print): New internal `print--unreadable-callback-buffer'
+ variable.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Bump Emacs version to 28.1.91
+
+ * README:
+ * configure.ac:
+ * msdos/sed2v2.inp:
+ * nt/README.W32: Bump Emacs version to 28.1.91.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Update ChangeLog and AUTHORS for 28.1.91 pretest
+
+ * ChangeLog.3:
+ * etc/AUTHORS: Update.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Doc fixes: don't mention EFS
+
+ * doc/misc/ede.texi (ede-project):
+ * doc/misc/gnus.texi (Directory Groups, Various Various):
+ * lisp/cedet/ede/base.el (ede-project):
+ * lisp/gnus/mml.el (mml-attach-external):
+ * lisp/org/org.el (org-file-apps):
+ * lisp/url/url-file.el (url-file-find-possibly-compressed-file):
+ Doc fixes; don't mention XEmacs specific library EFS.
+
+2022-07-28 Eli Zaretskii <eliz@gnu.org>
+
+ Minor update of truncate-line optimization
+
+ * src/xdisp.c (forward_to_next_line_start): Look into display and
+ overlay strings only when lines are truncated on display.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ New test ffap-replace-file-component
+
+ * test/lisp/ffap-tests.el (ffap-replace-file-component): New test.
+
+2022-07-28 Stefan Kangas <stefan@marxist.se>
+
+ Minor doc fixes in ffap.el
+
+ * lisp/ffap.el:
+ (ffap-url-fetcher): Minor doc fixes. Adapt to new default; don't
+ mention defunct/missing library ffap-url.el.
+
+2022-07-28 Po Lu <luangruo@yahoo.com>
+
+ Fix minor problem with scroll bar grabs on Haiku
+
+ * haiku_support.cc (class EmacsScrollBar, EmacsScrollBar)
+ (MouseDown, MouseUp): Keep a counter of the mouse down events
+ received.
+
+2022-07-28 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions in mouse button handling on Haiku
+
+ * src/haiku_support.cc (class EmacsView): New field
+ `grabbed_buttons'. Remove `previous_buttons'.
+ (BasicMouseDown, BasicMouseUp): Accept new parameter `message'.
+ Use data from that message instead.
+ (MouseDown, MouseUp): Pass the current message to BasicMouseUp
+ and BasicMouseDown.
+
+2022-07-28 Paul Pogonyshev <pogonyshev@gmail.com>
+
+ Release the desktop lock in 'kill-emacs-hook'
+
+ * lisp/desktop.el: Run 'desktop--on-kill' in 'kill-emacs-hook'.
+ (desktop--on-kill): New function, refactored from 'desktop-kill'.
+ (desktop-kill): Call 'desktop--on-kill'. (Bug#56800)
+
+2022-07-27 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_set_offset): Respect x-no-window-manager.
+
+2022-07-27 Po Lu <luangruo@yahoo.com>
+
+ Remove excessive synchronization from x_sync_with_move
+
+ * src/xterm.c (x_sync_with_move): Remove redundant XSync. The X
+ server always handles requests in order.
+
+2022-07-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Drop support for obsolete "Lisp Code Directory" from ffap
+
+ Ref: https://flex.phys.tohoku.ac.jp/texi/faq/faq_146.html
+ Note also that the host "archive.cis.ohio-state.edu" is unknown.
+ * lisp/ffap.el (ffap-alist): Drop support for obsolete "Lisp Code
+ Directory".
+ (ffap-lcd): Make obsolete.
+
+2022-07-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Drop support for XEmacs package EFS
+
+ EFS is a long defunct XEmacs-specific fork of Ange FTP that is
+ superseded by TRAMP.
+ * lisp/ffap.el (ffap-ftp-default-user)
+ (ffap-replace-file-component, ffap-host-to-filename):
+ * lisp/gnus/mml.el (mml-parse-file-name):
+ * lisp/gnus/nnheader.el (nnheader-re-read-dir):
+ * lisp/net/browse-url.el (browse-url-filename-alist):
+ * lisp/speedbar.el (speedbar-check-vc): Drop support for XEmacs
+ package EFS.
+
+2022-07-27 Stefan Kangas <stefankangas@gmail.com>
+
+ Make ffap-file-suffix obsolete
+
+ * lisp/ffap.el (ffap-file-suffix): Make obsolete in favor of
+ file-name-extension. Update callers.
+
+2022-07-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Remove Tramp instrumentation
+
+ * lisp/net/tramp.el (tramp-handle-shell-command): Modify sentinel
handling.
+
+2022-07-27 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up Isearch in very long lines under line truncation
+
+ * src/xdisp.c (strings_with_newlines): New function.
+ (forward_to_next_line_start): Call 'strings_with_newlines' in
+ buffers with very long lines, to avoid falling back on slow
+ iteration. (Bug#56682)
+
+2022-07-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Further Tramp instrumentation
+
+2022-07-27 F. Jason Park <jp@neverwas.me>
+
+ Add compat from GNU ELPA as a soft dependency in ERC
+
+ * lisp/erc/erc-backend.el (erc-parse-server-response,
+ erc--parse-isupport-value): Remove sub-28 compat code involving
+ `string-search'.
+
+ * lisp/erc/erc-compat.el: Require compat package, but don't error
+ when absent.
+
+ * lisp/erc/erc-dcc.el (erc-dcc-member): Remove `string-search' compat
+ code.
+ (erc-dcc-unquote-filename): Remove `string-replace' compat code.
+
+ * lisp/erc/erc-speedbar.el (erc-speedbar-expand-server,
+ erc-speedbar-expand-channel, erc-speedbar-expand-user): Remove
+ `string-search' compat code.
+
+ * lisp/erc/erc.el: Add compat version 28.1.2.0 to Package-Requires
+ header and require `erc-compat' after other libraries.
+ (erc--valid-local-channel-p): Remove `string-search' compat code.
+ (erc-update-mode-line-buffer): Remove `string-replace' compat code.
+ (erc-message-english-PART): Remove `string-replace' compat code.
+
+2022-07-27 F. Jason Park <jp@neverwas.me>
+
+ Avoid mutating default value of erc-server-last-peers
+
+ * lisp/erc/erc-backend.el (erc-server-last-peers): Leave default as
+ nil instead of a quoted constant.
+ (erc-server-connect): Initialize `erc-server-last-peers' to a new
+ value local to a server buffer.
+ (erc-message): Operate on server's local `erc-server-last-peers' value
+ instead of the global default. Prefer replacing value instead of
+ mutating CDR to make for easier testing.
+ (erc-server-PRIVMSG): Create a new `erc-server-last-peers' for easier
+ testing. (Bug#56449)
+
+2022-07-27 F. Jason Park <jp@neverwas.me>
+
+ Ensure erc-dcc-chat-setup runs in the right buffer
+
+ * lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Ensure initialization runs
+ in the intended buffer regardless of the value of `erc-join-buffer'.
+ (erc-dcc--send-final-turbo-ack, erc-dcc-get-filter): Rename internal
+ variable formerly known as `erc-dcc--X-send-final-turbo-ack'.
+
+2022-07-27 F. Jason Park <jp@neverwas.me>
+
+ Fix CTCP regression in erc-server-PRIVMSG
+
+ * lisp/erc/erc-backend.el (erc-server-PRIVMSG): Don't create a query
+ buffer for non-ACTION CTCP messages.
+
+ * test/lisp/erc/erc-scenarios-misc.el (erc-scenarios-dcc-chat-accept):
+ Add test for basic DCC CHAT accept dialog.
+
+ * test/lisp/erc/resources/dcc/chat/accept-dcc.eld: New file.
+ * test/lisp/erc/resources/dcc/chat/accept.eld: New file.
+
+2022-07-27 F. Jason Park <jp@neverwas.me>
+
+ Allow non-IRC line delimiters with ERC test server
+
+ * test/lisp/erc/resources/erc-d/erc-d.el (erc-d-server-fqdn,
+ erc-d--initialize-client, erc-d--log, erc-d--send, erc-d--filter,
+ erc-d-run): Add new variable and use it. Also optionally accept
+ keyword arguments in `erc-d-run'.
+
+ * test/lisp/erc/resources/erc-d/erc-d-tests.el
+ (erc-d-run-direct-foreign-protocol): Add test demoing newline-only
+ line-wise protocol.
+
+ * test/lisp/erc/resources/erc-d/resources/foreign.eld: New file.
+
+2022-07-27 Po Lu <luangruo@yahoo.com>
+
+ Fix thinko in last change
+
+ * src/print.c (PRINTPREPARE): Also remove `print_free_buffer'.
+ Record unwind protect instead.
+ (PRINTFINISH): Stop freeing the print buffer. (bug#56773)
+
+2022-07-27 Michael Albinus <michael.albinus@gmx.de>
+
+ In Tramp, use `string-empty-p' and `string-equal-ignore-case'
consequently
+
+ * lisp/net/tramp.el (tramp-find-method):
+ * lisp/net/tramp-cmds.el (tramp-change-syntax):
+ * lisp/net/tramp-sh.el (tramp-sh-get-signal-strings)
+ (tramp-open-connection-setup-interactive-shell): Use `string-empty-p'.
+
+ * lisp/net/tramp-compat.el (tramp-compat-string-equal-ignore-case):
+ New defalias.
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handler-mounted-unmounted): Use it.
+
+2022-07-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update test-print-unreadable-function after fix
+
+ * test/lisp/subr-tests.el (test-print-unreadable-function): Update
+ test after fix.
+
+2022-07-27 YugaEgo <yet@ego.team>
+
+ Improve 'diff-whitespace-style' user option declaration
+
+ * lisp/vc/diff-mode.el (diff-whitespace-style):
+ Use ':require'. Minor docstring fix.
+ (top level): Do not require 'whitespace.
+ (whitespace-style, whitespace-trailing-regexp):
+ Add defvars (rollback recent removal).
+ * etc/NEWS: Extend 'diff-whitespace-style' introduction.
+ (Bug#56679) (bug#56679).
+
+2022-07-27 Po Lu <luangruo@yahoo.com>
+
+ Fix invalid current buffer after print-unreadable-function signals
+
+ * src/print.c (PRINTPREPARE): Remove `old' and
+ record_unwind_current_buffer instead.
+ (PRINTFINISH): Stop restoring `old'. (bug#56773)
+
+2022-07-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a test for python-mode comment/else problem
+
+ Based on a patch from kobarity <kobarity@gmail.com>
+
+2022-07-27 Stephen Berman <stephen.berman@gmx.net>
+
+ Fix comment/else indentation problem in python-mode
+
+ * lisp/progmodes/python.el
+ (python-info-dedenter-opening-block-positions): Fix indentation of
+ "else" after a comment (bug#56742).
+
+2022-07-27 Po Lu <luangruo@yahoo.com>
+
+ Fix frame determination for XI touch events
+
+ * src/xterm.c (handle_one_xevent): Find touchscreen event
+ windows using x_window_to_frame.
+
+2022-07-27 Po Lu <luangruo@yahoo.com>
+
+ Remove workaround for some input method problems
+
+ * src/xterm.c (handle_one_xevent): Remove modifier key
+ workaround for some input method problems, since they cause more
+ problems than they fix. (bug#56782)
+
+2022-07-26 Po Lu <luangruo@yahoo.com>
+
+ Fix NS stretch glyph display
+
+ * src/nsterm.m (ns_draw_window_cursor): Just draw hollow cursor.
+ There is no need to draw the phys cursor glyph.
+ (ns_dumpglyphs_stretch): Delete function.
+ (ns_draw_glyph_string): New function. Port code from X and use
+ it instead. (bug#56787)
+
+2022-07-26 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: correct the calculation and handling of c-use-category.
+
+ This fixes bug #56629. The use of c-use-category was inconsistent,
with the
+ result that it would be nil at compilation time, but t at run time.
This
+ resulted in wrongly writing syntax-table text properties to <s and >s,
yet
+ testing for category properties on them.
+
+ * lisp/progmodes/cc-defs.el (c-use-category): Move to after the
definition of
+ c-<-as-paren-syntax and c->-as-paren-syntax so as correctly to be able
to use
+ their values. Put an eval-when-compile around the calculation of its
value,
+ to reduce the chances of future failure.
+ (c-mark-<-as-paren, c-mark->-as-paren, c-unmark-<->-as-paren,
c-sc-scan-lists)
+ (c-sc-parse-partial-sexp): Wrap c-use-category in (eval-when-compile
...) as
+ an optimization, preventing the XEmacs code also being generated.
+
+2022-07-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add missing @end defun to strings.texi
+
+ * doc/lispref/strings.texi (Text Comparison): Add missing @end defun.
+
+2022-07-26 Sam Steingold <sds@gnu.org>
+
+ restore and obsolete `gnus-string-equal' and `bibtex-string='
+
+ * lisp/gnus/gnus-util.el (gnus-string-equal): Restore and declare
obsolete.
+ * lisp/textmodes/bibtex.el (bibtex-string=): Likewise.
+
+2022-07-26 Sam Steingold <sds@gnu.org>
+
+ avoid error when message-fetch-field returns nil
+
+ * gnus-art.el (article-hide-boring-headers): Use "" when
+ `message-fetch-field' returns `nil'
+
+2022-07-26 Sam Steingold <sds@gnu.org>
+
+ string-equal-ignore-case: new function
+
+ * lisp/cedet/semantic/complete.el
(semantic-collector-calculate-completions):
+ Use `string-prefix-p' instead of explicit `compare-strings'.
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns):
+ Add `string-equal-ignore-case'.
+ * lisp/emacs-lisp/cl-extra.el (cl-equalp): Use
`string-equal-ignore-case'.
+ * lisp/emacs-lisp/shadow.el (load-path-shadows-find): Likewise.
+ * lisp/emacs-lisp/shortdoc.el (string): Add `string-equal-ignore-case'.
+ * lisp/files.el (file-truename): Use `string-equal-ignore-case'.
+ (file-relative-name): Likewise.
+ * lisp/gnus/gnus-art.el (article-hide-boring-headers):
+ Use `string-equal-ignore-case' instead of `gnus-string-equal'.
+ * lisp/gnus/gnus-util.el (gnus-string-equal):
+ Remove, use `string-equal-ignore-case' instead.
+ * lisp/international/mule-cmds.el (describe-language-environment):
+ Use `string-equal-ignore-case'.
+ (locale-charset-match-p): Likewise.
+ * lisp/man.el (Man-softhyphen-to-minus): Use `string-prefix-p'.
+ * lisp/minibuffer.el (completion--string-equal-p):
+ Remove, use `string-equal-ignore-case' instead.
+ (completion--twq-all): Use `string-equal-ignore-case'.
+ (completion--do-completion): Likewise.
+ * lisp/net/browse-url.el (browse-url-default-windows-browser):
+ Use `string-prefix-p' instead of explicit `compare-strings'.
+ * lisp/org/ob-core.el (org-babel-results-keyword):
+ Use `string-equal-ignore-case' instead of explicit `compare-strings'.
+ (org-babel-insert-result): Likewise.
+ * lisp/org/org-compat.el (string-equal-ignore-case):
+ Define unless defined already.
+ (org-mode-flyspell-verify): Use `string-equal-ignore-case'.
+ * lisp/org/org-lint.el (org-lint-duplicate-custom-id): Likewise.
+ * lisp/org/ox.el (org-export-resolve-radio-link): Use
+ `string-equal-ignore-case' and `string-clean-whitespace'.
+ * lisp/progmodes/flymake-proc.el
+ (flymake-proc--check-patch-master-file-buffer):
+ Use `string-prefix-p' instead of explicit `compare-strings'.
+ * lisp/progmodes/idlwave.el (idlwave-class-or-superclass-with-tag):
+ Use `string-equal-ignore-case' instead of explicit `compare-strings'.
+ * lisp/subr.el (member-ignore-case): Use `string-equal-ignore-case'.
+ (string-equal-ignore-case): Compare strings ignoring case.
+ * lisp/textmodes/bibtex.el (bibtex-string=): Remove.
+ (bibtex-format-entry, bibtex-font-lock-url, bibtex-autofill-entry)
+ (bibtex-print-help-message, bibtex-validate, bibtex-validate-globally)
+ (bibtex-clean-entry, bibtex-completion-at-point-function, (bibtex-url):
+ Use `string-equal-ignore-case' instead of `bibtex-string='.
+ * lisp/textmodes/sgml-mode.el (sgml-get-context):
+ Use `string-equal-ignore-case' instead of explicit `compare-strings'.
+ (sgml-calculate-indent): Likewise
+ * test/lisp/subr-tests.el (string-comparison-test):
+ Add tests for `string-equal-ignore-case'.
+
+2022-07-26 Christian Garbs <mitch@cgarbs.de>
+ João Távora <joaotavora@gmail.com>
+
+ Add out-of-box support for perl lsp server
+
+ * eglot.el (eglot-server-programs): Support Perl lsp.
+ * README.md: Update.
+ * NEWS.md: Update.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/952
+
+2022-07-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't bind `M-X' when doing general completion
+
+ * lisp/minibuffer.el (minibuffer-local-must-match-map): Remove the
+ M-X binding here, because it's nonsensical outside
+ read-extended-command (bug#56741).
+
+ * lisp/simple.el (read-extended-command-mode-map)
+ (read-extended-command-mode): New minor mode to bind `M-X' in
+ read-extended-command.
+ (read-extended-command-1): Use it.
+
+2022-07-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a test for print-unreadable-function
+
+ * test/lisp/subr-tests.el (test-print-unreadable-function): Add
+ failing test (bug#56773).
+
+2022-07-26 Mattias Engdegård <mattiase@acm.org>
+
+ Add duplicate-dwim (bug#56418)
+
+ Like duplicate-line but duplicates the region instead if active.
+ Rectangular regions are duplicated on the right-hand side.
+ The region remains active afterwards, to facilitate further
+ duplication or other operations on the same text.
+
+ * lisp/rect.el (rectangle--duplicate-right):
+ * lisp/misc.el (duplicate-dwim): New.
+ * test/lisp/misc-tests.el (misc--duplicate-dwim): New test.
+ * etc/NEWS: Announce.
+
+2022-07-26 Robert Pluim <rpluim@gmail.com>
+
+ Teach 'network-lookup-address-info' to validate numeric addresses
+
+ * src/process.c (Fnetwork_lookup_address_info): Add optional 'hints'
+ argument, pass AI_NUMERICHOST to 'getaddrinfo' if it's 'numeric'.
+ (syms_of_process): Add 'numeric' symbol.
+ * doc/lispref/processes.texi (Misc Network): Expunge passive voice.
+ Update 'network-lookup-address-info' description.
+ * test/src/process-tests.el (lookup-hints-specification):
+ (lookup-hints-values): Test new functionality.
+ * etc/NEWS: Announce change.
+
+2022-07-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix regression in last Tramp change
+
+ * lisp/net/tramp-sh.el (tramp-readlink-file-truename): Remove.
+ (tramp-sh-handle-file-truename): Revert implementation. (Bug#56774)
+
+2022-07-26 Po Lu <luangruo@yahoo.com>
+
+ Fix flicker when moving tooltips between frames during mouse
drag-and-drop
+
+ * src/haikufns.c (Fx_show_tip):
+ * src/nsfns.m (Fx_show_tip): Allow sharing existing tooltip
+ frames between any two frames.
+ * src/xfns.c (Fx_show_tip): Allow that but only between frames
+ on the same X display.
+
+2022-07-26 Po Lu <luangruo@yahoo.com>
+
+ Handle modifiers during Haiku DND wheel movement
+
+ * lisp/term/haiku-win.el (haiku-dnd-modifier-mask)
+ (haiku-dnd-wheel-modifier-type): New functions.
+ (haiku-handle-drag-wheel): Use them.
+ * lisp/x-dnd.el (x-dnd-modifier-mask): Remove outdated comment.
+ * src/haikuselect.c (haiku_note_drag_wheel): Pass modifiers to
+ wheel function.
+ (syms_of_haikuselect): Update doc strings.
+
+2022-07-26 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 970190b844 Avoid infloop in 'recenter'
+ a866674b2a Fix inaccuracies in "lax search" documentation
+
+2022-07-25 Po Lu <luangruo@yahoo.com>
+
+ Remove some redundant checks in the DND code
+
+ * src/xterm.c (handle_one_xevent): Don't check tab_bar_p or
+ tool_bar_p before clearing last items during drag-and-drop.
+
+2022-07-25 Gregory Heytings <gregory@heytings.org>
+
+ Improvement for long lines in buffers with font locking.
+
+ * src/xdisp.c (get_narrowed_width): Factored out from
'get_narrowed_len'.
+ (get_narrowed_len): Updated to use 'get_narrowed_width'.
+ (get_closer_narrowed_begv): New function.
+ (SET_WITH_NARROWED_BEGV): Add parameter to the macro.
+ (back_to_previous_line_start): Use the new function.
+ (get_visually_first_element, move_it_vertically_backward): Update the
+ calls to the macro.
+
+ * src/dispextern.h: Prototype of 'get_closer_narrowed_begv'.
+ Fix the prototypes of 'get_narrowed_begv' and 'get_narrowed_zv'.
+
+2022-07-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Note guideline for doc string expressions
+
+ * doc/lispref/tips.texi (Documentation Tips):
+ Mention \\=' and \\=` and say that expressions like
+ (NAME TYPE RANGE) should not be quoted.
+
+2022-07-25 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid infloop in 'recenter'
+
+ * src/window.c (Frecenter): Avoid infinite loop in the minibuffer
+ under 'fido-vertical-mode'. (Bug#56765)
+
+2022-07-25 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix regexp in tramp-tests.el
+
+ * test/lisp/net/tramp-tests.el (tramp--test-enabled): Fix regexp
+ for Tramp test files.
+
+2022-07-25 Robert Pluim <rpluim@gmail.com>
+
+ Make package-archives URL treatment slighty laxer
+
+ 'package-archives' URLs are expected to end in '/', but we can
+ cater for people typoing that by using 'url-expand-file-name'.
+
+ * lisp/emacs-lisp/package.el (package--with-response-buffer-1): Use
+ 'url-expand-file-name' instead of 'concat'.
+
+2022-07-25 João Távora <joaotavora@gmail.com>
+
+ Clean up more robustly in compile.el
+
+ * lisp/progmodes/compile.el (compilation-sentinel): Use
+ unwind-protect.
+
+2022-07-25 Eli Zaretskii <eliz@gnu.org>
+
+ Fix inaccuracies in "lax search" documentation
+
+ * doc/emacs/search.texi (Lax Search): Update the examples of
+ character folding in search. (Bug#56747)
+
+2022-07-25 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse face handling during frame reentry on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Clear
+ last_mouse_glyph_frame like on X.
+
+2022-07-25 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ba70d0f77c Update to Org 9.5.4-17-g6e991f
+
+2022-07-24 Po Lu <luangruo@yahoo.com>
+
+ Fix typo in x-dnd-tests.el
+
+ * test/lisp/x-dnd-tests.el (x-begin-drag): Avoid extra leading /
+ in file names. (bug#56712)
+
+2022-07-24 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse face handling with tooltips
+
+ * src/xterm.c (handle_one_xevent): Clear last_mouse_motion_frame
+ and last_mouse_glyph_frame on LeaveNotify. Otherwise, mouse
+ face will be restored by gui_redo_mouse_highlight and will not
+ be restored if an EnterNotify is later sent on top of the same
+ glyph.
+
+2022-07-24 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.4-17-g6e991f
+
+2022-07-24 João Távora <joaotavora@gmail.com>
+
+ Merge commit '7738854e09' to fix fallout of force-push in gnu elpa
+
+2022-07-24 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Fix the prompt for mh-mime-save-parts (SF#500)
+
+ * mh-mime.el (mh-mime-save-parts): Use the default argument to
+ read-directory-name; don't use format-prompt.
+
+2022-07-24 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ * mh-mime.el (mh-mime-save-parts): Restore default-directory (SF#498)
+
+2022-07-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Refactor Tramp
+
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ Use `tramp-adb-handle-get-remote-gid' and
+ `tramp-adb-handle-get-remote-uid'.
+ (tramp-adb-handle-file-attributes): Use `tramp-convert-file-attributes'.
+ (tramp-do-parse-file-attributes-with-ls): Remove ID-FORMAT.
+ (tramp-adb-handle-directory-files-and-attributes):
+ Use `tramp-skeleton-directory-files-and-attributes'.
+ (tramp-adb-handle-file-local-copy): Use
`tramp-skeleton-file-local-copy'.
+ (tramp-adb-handle-copy-file, tramp-adb-handle-rename-file):
+ Use `tramp-barf-if-file-missing'.
+ (tramp-adb-handle-get-remote-uid)
+ (tramp-adb-handle-get-remote-gid): New defuns.
+
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ Use `tramp-archive-handle-directory-files'.
+ (tramp-archive-handle-directory-files): New defun.
+
+ * lisp/net/tramp-cache.el (tramp-file-property-p): New defun.
+
+ * lisp/net/tramp-compat.el (tramp-compat-take): New defalias.
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-do-copy-or-rename-file):
+ Use `tramp-barf-if-file-missing'.
+ (tramp-crypt-handle-directory-files):
+ Use `tramp-skeleton-directory-files'.
+
+ * lisp/net/tramp-fuse.el (tramp-fuse-handle-directory-files):
+ Use `tramp-skeleton-directory-files'.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-do-copy-or-rename-file):
+ Use `tramp-barf-if-file-missing'.
+
+ * lisp/net/tramp-rclone.el (tramp-rclone-do-copy-or-rename-file):
+ Use `tramp-barf-if-file-missing'.
+
+ * lisp/net/tramp-sh.el (tramp-readlink-file-truename)
+ (tramp-stat-file-attributes)
+ (tramp-stat-directory-files-and-attributes): New defconsts.
+ (tramp-perl-file-attributes)
+ (tramp-perl-directory-files-and-attributes): Adapt.
+ (tramp-sh-handle-make-symbolic-link): Flush TARGET file properties.
+ (tramp-sh-handle-file-truename): Use `tramp-readlink-file-truename'
+ (tramp-sh-handle-file-exists-p)
+ (tramp-sh-handle-file-executable-p)
+ (tramp-sh-handle-file-readable-p)
+ (tramp-sh-handle-file-directory-p)
+ (tramp-sh-handle-file-writable-p): Adapt check of file properties.
+ (tramp-sh-handle-file-attributes): Simplify.
+ (tramp-do-file-attributes-with-ls): Remove ID-FORMAT. Combine two
+ remote commands. Compute both versions of uid and gid together.
+ (tramp-do-file-attributes-with-perl)
+ (tramp-do-directory-files-and-attributes-with-perl):
+ Remove ID-FORMAT.
+ (tramp-do-file-attributes-with-stat): Remove ID-FORMAT. Use
+ `tramp-stat-file-attributes'.
+ (tramp-sh-handle-directory-files-and-attributes):
+ Use `tramp-skeleton-directory-files-and-attributes'.
+ (tramp-do-directory-files-and-attributes-with-stat):
+ Remove ID-FORMAT. Use `tramp-stat-directory-files-and-attributes'.
+ (tramp-sh-handle-copy-directory): Use `tramp-skeleton-copy-directory'.
+ (tramp-do-copy-or-rename-file): Use `tramp-barf-if-file-missing'.
+ (tramp-sh-handle-file-local-copy): Use `tramp-skeleton-file-local-copy'.
+ (tramp-sh-handle-write-region): Combine two remote commands.
+ (tramp-sh-gio-monitor-process-filter): Simplify `cond' call.
+ (tramp-expand-script): Extend for ls, readling and stat.
+ (tramp-open-connection-setup-interactive-shell): Do not set
+ `tramp-end-of-output'.
+ (tramp-open-connection-setup-interactive-shell): Do not send
+ prompt formatting command, it's superfluous.
+ (tramp-send-command-and-check): Rearrange in order to accept also
+ heredoc scripts.
+ (tramp-convert-file-attributes): Move function to tramp.el.
+ (tramp-get-remote-id): Set connection property.
+ (tramp-get-remote-uid-with-id): Use it.
+ (tramp-get-remote-python): Don't check for python2 anymore.
+
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ Use `tramp-handle-directory-files'.
+ (tramp-smb-handle-copy-directory): Use `tramp-skeleton-copy-directory'.
+ (tramp-smb-handle-directory-files): Remove.
+ (tramp-smb-handle-file-attributes): Use `tramp-convert-file-attributes'.
+ (tramp-smb-do-file-attributes-with-stat): Remove ID-FORMAT.
+ (tramp-smb-handle-file-local-copy): Use
`tramp-skeleton-file-local-copy'.
+
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-do-copy-or-rename-file):
+ Use `tramp-barf-if-file-missing'.
+ (tramp-sudoedit-file-attributes): New defconst.
+ (tramp-sudoedit-handle-file-attributes): Simplify code.
+
+ * lisp/net/tramp.el (tramp-setup-debug-buffer): Set debug buffer
+ as not modified.
+ (tramp-barf-if-file-missing, tramp-skeleton-copy-directory)
+ (tramp-skeleton-directory-files)
+ (tramp-skeleton-directory-files-and-attributes)
+ (tramp-skeleton-file-local-copy): New macros.
+ (tramp-handle-copy-directory): Use `tramp-skeleton-copy-directory'.
+ (tramp-handle-directory-files): Use `tramp-skeleton-directory-files'.
+ (tramp-handle-file-local-copy): Use `tramp-skeleton-file-local-copy'.
+ (tramp-handle-insert-file-contents): Use `tramp-barf-if-file-missing'.
+ (tramp-get-process-attributes, tramp-action-out-of-band):
+ Simplify `cond' call.
+ (tramp-check-cached-permissions): Simplify.
+ (tramp-make-tramp-temp-file): Reimplement.
+
+ * test/lisp/net/tramp-archive-tests.el (tramp-copy-size-limit):
+ Don't set.
+
+ * test/lisp/net/tramp-tests.el (tramp--test-enabled):
+ Remove superfluous test files.
+ (tramp-test21-file-links): Protect file name deletion.
+
+2022-07-24 Po Lu <luangruo@yahoo.com>
+
+ Throw errors in XDS handler directly
+
+ * lisp/x-dnd.el (x-dnd-xds-testing): New defvar.
+ (x-dnd-handle-direct-save): Signal errors directly if it is
+ true.
+ * test/lisp/x-dnd-tests.el (x-dnd-xds-testing): New defvar.
+ (x-dnd-tests-do-direct-save-internal): Bind it to t around
+ x-begin-drag. (bug#56712)
+
+2022-07-24 Paul Pogonyshev <pogonyshev@gmail.com>
+
+ Don't exclude current dir in `package--reload-previously-loaded'
+
+ * lisp/emacs-lisp/package.el (package--reload-previously-loaded):
+ Don't exclude the current directory (bug#56614).
+
+2022-07-24 YugaEgo <yet@ego.team>
+
+ Add new user option 'diff-whitespace-style'
+
+ * lisp/vc/diff-mode.el (diff-whitespace-style): New user option.
+ (diff-setup-whitespace): Use it (Bug#56679).
+ (top level): require 'whitespace.
+ (whitespace-style, whitespace-trailing-regexp): Remove defvars.
+
+2022-07-24 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ b4067394dc Set `default-directory' of Tramp archive connection buffer
+ 2529e82002 ; * doc/lispref/functions.texi (Declare Form): Fix typo.
+ 54c4ceb009 Update the documentation of 'declare' forms
+ 7263631dca Fix bookmark support for Help functions in native-compilat...
+
+ # Conflicts:
+ # lisp/help.el
+
+2022-07-23 Po Lu <luangruo@yahoo.com>
+
+ Prevent exposing tooltip frames to Lisp code during drag-and-drop
+
+ * src/xterm.c (x_dnd_compute_toplevels): Ignore tooltip frames.
+ (x_tooltip_window_to_frame): Allow unrelated_tooltip_p to be
+ NULL.
+ (handle_one_xevent): Ignore DND events to tooltip frames.
+
+2022-07-23 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el: Bump the version.
+
+2022-07-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Set `default-directory' of Tramp archive connection buffer
+
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
+ Set `default-directory' of Tramp connection buffer. (Bug#56628)
+
+2022-07-23 Mattias Engdegård <mattiase@acm.org>
+
+ Fix `lsh` warning shortcomings (bug#56641)
+
+ Reported by Basil Contovounesios.
+
+ * etc/NEWS: Mention how to suppress the warning.
+ * lisp/emacs-lisp/byte-run.el (with-suppressed-warnings): Amend doc
string.
+ * lisp/subr.el: Use `macroexp-warn-and-return` to delay the warning
+ until codegen time (which makes it suppressible) and to prevent
+ repeated warnings.
+ * test/lisp/international/ccl-tests.el (shift):
+ * test/src/data-tests.el (data-tests-ash-lsh):
+ Suppress warning in tests of `lsh` itself.
+
+2022-07-23 Eli Zaretskii <eliz@gnu.org>
+
+ Improve display of columns on mode-line
+
+ * src/xdisp.c (decode_mode_spec): A better representation for
+ "unknown column number".
+
+2022-07-23 Eli Zaretskii <eliz@gnu.org>
+
+ Optimize 'set_vertical_scroll_bar' for long lines
+
+ * src/xdisp.c (set_vertical_scroll_bar): Don't bother
+ being accurate about window_end_pos if long-line shortcuts
+ are in effect in the current buffer.
+
+2022-07-23 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid calling 'current_column' in buffers with long lines.
+
+ * src/xdisp.c (decode_mode_spec, redisplay_window)
+ (mode_line_update_needed):
+ * src/indent.c (Fcurrent_column): In a buffer with long-line
+ optimizations enabled, avoid calling 'current_column', which is
+ very slow in that case.
+
+2022-07-23 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Update pdumper.c after recent long lines changes
+
+ For discussion, see:
+ https://lists.gnu.org/r/emacs-devel/2022-07/msg00761.html
+
+ * src/pdumper.c (dump_buffer): Dump new field
+ long_line_optimizations_p introduced in commit e7b5912b23 of
+ 2022-07-16 "Improvements to long lines handling."
+ (dump_buffer) [CHECK_STRUCTS]: Update hash accordingly
+ for --enable-checking=structs.
+
+2022-07-23 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up redisplay of long truncated lines
+
+ * src/xdisp.c (forward_to_next_line_start): Fix logic of
+ interpreting the result of Fnext_single_property_change.
+ (reseat_at_next_visible_line_start): When ON_NEWLINE_P is zero,
+ pass NULL to 'forward_to_next_line_start', to avoid costly bidi
+ iteration when none is needed. This speeds up redisplay of very
+ long lines under 'truncate-lines'.
+
+2022-07-23 Mattias Engdegård <mattiase@acm.org>
+
+ Correct symbol in error for failed CHECK_INTEGER (bug#56723)
+
+ Reported by Jeronimo Pellegrini.
+
+ * src/lisp.h (CHECK_INTEGER): Use integerp, not numberp.
+
+2022-07-23 Dmitry Gutov <dgutov@yandex.ru>
+
+ Support new "binary file matches" format in Ripgrep 13
+
+ * lisp/progmodes/xref.el (xref-matches-in-files):
+ Support new "binary file matches" format in Ripgrep 13
+ (bug#56624).
+
+2022-07-23 Po Lu <luangruo@yahoo.com>
+
+ Remove macOS region color code
+
+ * lisp/faces.el (region): Remove macOS specific definition.
+ Equivalent functionality is no longer available on free
+ operating systems.
+
+2022-07-23 Mattias Engdegård <mattiase@acm.org>
+
+ Use `ash` instead of `lsh` in verilog-mode (bug#56641)
+
+ * lisp/progmodes/verilog-mode.el (verilog-simplify-range-expression):
+ Use `ash`; the result will be the same because the first argument is
+ nonnegative.
+
+2022-07-23 Mattias Engdegård <mattiase@acm.org>
+
+ Warn about calls to `lsh` (bug#56641)
+
+ * lisp/subr.el (lsh): Warn when compiled; recommend `ash`.
+ * etc/NEWS: Add note.
+
+2022-07-23 Eli Zaretskii <eliz@gnu.org>
+
+ Update the documentation of 'declare' forms
+
+ * doc/lispref/compile.texi (Native-Compilation Variables): Mention
+ the 'declare' alternative for 'native-comp-speed'.
+ * doc/lispref/functions.texi (Declare Form): Document 'declare'
+ forms that were previously undocumented.
+
+2022-07-23 Po Lu <luangruo@yahoo.com>
+
+ Undo C parts of "Don't use the Gtk region face"
+
+ This reverts commit a24f710395f9777cb9f8b000300e5e9c892d7794, apart
+ from the change to faces.el and NEWS.
+
+2022-07-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't use the Gtk region face
+
+ * lisp/faces.el (region): Don't use the Gtk region face, because
+ it produces low contrast combinations (bug#46493).
+ * src/gtkutil.h:
+ * src/gtkutil.c (xg_check_special_colors): Remove.
+
+ * src/xfns.c (x_defined_color):
+ * src/pgtkterm.c (pgtk_defined_color): Don't call.
+
+2022-07-23 kobarity <kobarity@gmail.com>
+
+ Fix Python navigation problem with a line continuation using backslash
+
+ * lisp/progmodes/python.el (python-nav--beginning-of-defun): Fix
+ line continuation using backslash in nested defun (bug#56615).
+
+2022-07-23 Eli Zaretskii <eliz@gnu.org>
+
+ Fix bookmark support for Help functions in native-compilation builds
+
+ * lisp/help.el (describe-key--helper, describe-function--helper):
+ New helper functions.
+ (describe-key): Call 'describe-key--helper' instead of a
+ lambda-function.
+ * lisp/help-fns.el (describe-function): Call
+ 'describe-function--helper' instead of a lambda-function.
+ (Bug#56643)
+
+2022-07-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix wdired entry when there are hidden subdirs
+
+ * lisp/dired.el (dired--unhide): Allow `C-c C-q' to work when
+ there are hidden inserted subdirs (bug#56698).
+
+2022-07-23 Visuwesh <visuweshm@gmail.com>
+
+ New user option to disable deleting current input in comint mouse-2
+
+ * etc/NEWS: Announce the user option (bug#56646).
+ * lisp/comint.el (comint-delete-old-input): New user option to disable
+ deleting current input when insert an old input using mouse-2.
+ (comint-insert-input): Use it.
+
+2022-07-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use special-mode in eldoc--doc-buffer
+
+ * lisp/emacs-lisp/eldoc.el (eldoc--format-doc-buffer): Use
+ `special-mode' to allow normal customizations of the buffer
+ (bug#56659).
+
+2022-07-23 Po Lu <luangruo@yahoo.com>
+
+ Fix PGTK DND after a source leaves without dropping anything
+
+ * lisp/pgtk-dnd.el (pgtk-dnd-clear-data-on-motion): New flag.
+ (pgtk-dnd-handle-gdk): Set flag upon drag-leave. Clear state
+ upon drag-motion if it is set.
+
+2022-07-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix off-by-one error in string-truncate-left
+
+ * lisp/emacs-lisp/subr-x.el (string-truncate-left): Fix off-by-one
+ error (bug#56685).
+
+2022-07-23 Po Lu <luangruo@yahoo.com>
+
+ Handle text scale and global text scale during DND wheel movement
+
+ * lisp/x-dnd.el (x-dnd-mwheel-scroll): Handle `text-scale' and
+ `global-text-scale' mwheel actions.
+
+2022-07-23 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Fix mode line mouse-1 binding when showing only column numbers
+
+ * lisp/bindings.el (mode-line-position): Fix the mouse-1 binding
+ when showing only column numbers (bug#56694).
+
+2022-07-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't bug out in src when there's no srcset
+
+ * lisp/net/shr.el (shr--preferred-image): Don't bug out when
+ there's no srcset.
+
+2022-07-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix srcset parsing in shr
+
+ * lisp/net/shr.el (shr--preferred-image): Factor out srcset
+ parsing for easier testing.
+ (shr--parse-srcset): Don't misparse URLs with commas in them.
+
+2022-07-22 Po Lu <luangruo@yahoo.com>
+
+ Improve efficiency of DND tooltip movement
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Clear new flag.
+ (x_dnd_update_tooltip_position): Save last tooltip X and Y
+ somewhere, so we don't move it upon client lists being updated.
+
+2022-07-22 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ae1ace1cf4 Adjust help-fns.el tests for recent change
+ 04bdcf4aaa * src/terminal.c (Fframe_terminal): Use active voice
+ 7fa491a9e9 Improve 'terminal-live-p' docstring some more
+ b9ac8c29ae Improve terminal-live-p docstring
+ 0b4c81a152 * lisp/net/tramp-gvfs.el (tramp-gvfs-dbus-event-vector): F...
+ 8f8373170f * lisp/progmodes/cperl-mode.el: Don't mention obsolete arc...
+ 25bc330a6d Make 'describe-function' say "byte-compiled" when appropriate
+ 2b31e667be ;Improve documentation of locale-specific string comparison
+
+2022-07-22 Stefan Kangas <stefan@marxist.se>
+
+ Adjust help-fns.el tests for recent change
+
+ * test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
+ (help-fns-test-lisp-defsubst): Adjust tests for recent change.
+
+2022-07-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in error message in native-compile-prune-cache
+
+ * lisp/emacs-lisp/comp.el (native-compile-prune-cache): Fix typo
+ (bug#56713).
+
+2022-07-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix spacing in *Help* buttons
+
+ * lisp/help-mode.el (help-xref--navigation-buttons): Fix spacing
+ before single [forward] button.
+
+2022-07-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Give a better error message in native-compile-prune-cache
+
+ * lisp/emacs-lisp/comp.el (native-compile-prune-cache): Give a
+ better error message in non-nativecomp builds.
+
+2022-07-22 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in 'handle_fontified_prop'
+
+ * src/xdisp.c (handle_fontified_prop): Avoid assertion violations
+ due to automatic narrowing. (Bug#56682)
+
+2022-07-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of scroll-bar in mini-windows
+
+ * src/xdisp.c (set_vertical_scroll_bar): Ensure current_buffer is
+ set correctly when displaying scroll bar of a mini-window.
+ (Bug#56692)
+
+2022-07-22 Robert Pluim <rpluim@gmail.com>
+
+ * src/terminal.c (Fframe_terminal): Use active voice
+
+2022-07-22 Robert Pluim <rpluim@gmail.com>
+
+ Improve 'terminal-live-p' docstring some more
+
+ * terminal.c (Fterminal_live_p): Improve description of arguments and
+ return value.
+
+2022-07-22 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#56692 questionably
+
+ * src/xdisp.c (set_vertical_scroll_bar): Don't recompute window
+ end of a mini window. (bug#56692)
+
+2022-07-22 Gregory Heytings <gregory@heytings.org>
+
+ Improve font locking in buffers with long lines (bug#56682).
+
+ * src/dispextern.h (struct it): New 'narrowed_zv' field.
+
+ * src/xdisp.c (init_iterator): Set the field.
+ (get_narrowed_zv): New function to set the field.
+ (handle_fontified_prop): Use the field, together with 'narrowed_begv',
+ to narrow the portion of the buffer that 'Vfontification_functions'
+ will see. Also bind 'inhibit-widen'.
+ (get_narrowed_len): New function, factored out of 'get_narrowed_begv'.
+ (unwind_narrowed_zv): New function.
+
+ * src/editfns.c (syms_of_editfns): New variable and symbol
'inhibit-widen'.
+ (Fwiden): Do nothing when 'inhibit-widen' is non-nil.
+
+2022-07-22 Robert Pluim <rpluim@gmail.com>
+
+ Explain how to override Author with VC
+
+ * CONTRIBUTE: Describe how to use Author header line and
+ 'log-edit-setup-add-author'.
+
+2022-07-22 Robert Pluim <rpluim@gmail.com>
+
+ Improve terminal-live-p docstring
+
+ * src/terminal.c (Fterminal_live_p): Explain what happens when the
+ argument is nil.
+
+2022-07-22 Robert Pluim <rpluim@gmail.com>
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-dbus-event-vector): Fix grammar
+
+2022-07-22 Po Lu <luangruo@yahoo.com>
+
+ Fix handling hscroll during drag-and-drop
+
+ * lisp/x-dnd.el (x-dnd-hscroll-flags): Delete function.
+ (x-dnd-get-modifiers, x-dnd-wheel-modifier-type): New functions.
+ (x-dnd-mwheel-scroll): Use that to determine hscroll instead.
+ * src/window.c (set_window_hscroll): Mark window as needing
+ redisplay if the hscroll really changed.
+
+2022-07-21 Po Lu <luangruo@yahoo.com>
+
+ Fix posn-timestamp of scroll bar events on GTK
+
+ * src/xterm.c (x_get_last_toolkit_time): New function.
+ (x_scroll_bar_to_input_event)
+ (x_horizontal_scroll_bar_to_input_event): Use it to retrieve
+ toolkit time.
+ (xg_scroll_callback, xg_end_scroll_callback): Set last user time
+ if possible.
+
+2022-07-21 João Távora <joaotavora@gmail.com>
+
+ Always default eglot-strict-mode to nil
+
+ it's mostly useful for developers/debugger. It's better to have the
+ latter remember to set it than users being hindered by it.
+
+ See
https://github.com/joaotavora/eglot/issues/131#issuecomment-1191997167
+
+ * eglot.el (eglot-strict-mode): default to nil.
+
+2022-07-21 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/help-mode.el (help-news): Use `view-file`
+
+ * lisp/vc/vc-dispatcher.el (vc-log-edit): Un-quote the lambda
+
+ * lisp/progmodes/verilog-mode.el (verilog-surelint-off): Silence warning
+
+2022-07-21 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (compilation-parse-errors-function): Remove obsolete var
+
+ * lisp/progmodes/compile.el (compilation-parse-errors-function): Remove.
+ (compilation--parse-region): Simplify accordingly.
+ (compilation--compat-parse-errors): Remove function, not used any more.
+ (compilation-error-list, compilation-parsing-end)
+ (compilation-old-error-list): Remove vars, not used any more.
+ (compilation-last-buffer): Mark as obsolete (sadly, forgot to do that
+ back in Emacs-22).
+
+ * lisp/textmodes/tex-mode.el: Remove old code that was needed for
+ Emacs<24.
+
+ * lisp/progmodes/prolog.el (prolog-consult-compile): Remove long-dead
code.
+ (compilation-parse-errors-function): Remove declaration, not used any
more.
+ (prolog-parse-sicstus-compilation-errors): Remove function, not used
any more.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Don't end messages with "."
+
+ * lisp/image-dired.el (image-dired-toggle-dired-display-properties)
+ (image-dired--on-file-in-dired-buffer)
+ (image-dired-thumbnail-set-image-description)
+ (image-dired-mark-tagged-files)
+ (image-dired-dired-edit-comment-and-tags)
+ (image-dired-modify-mark-on-thumb-original-file): Don't end messages
+ with "." to better comply with '(elisp) Programming Tips'.
+
+2022-07-21 Eli Zaretskii <eliz@gnu.org>
+
+ Fix reference to 'x-max-tooltip-size' in complete.el
+
+ * lisp/cedet/semantic/complete.el: Don't assume that
+ x-max-tooltip-size is a cons cell.
+
+2022-07-21 Gregory Heytings <gregory@heytings.org>
+
+ Merge branch 'feature/fix-the-long-lines-display-bug'
+
+2022-07-21 Eli Zaretskii <eliz@gnu.org>
+
+ Update buffer's chars-modified tick when inserting from gap
+
+ * src/insdel.c (insert_from_gap): Update buffer's chars-modified
+ tick. (Bug#56393)
+
+ * test/src/buffer-tests.el (test-buffer-chars-modified-ticks): New
+ test.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/progmodes/cperl-mode.el: Don't mention obsolete archive.
+
+2022-07-21 Po Lu <luangruo@yahoo.com>
+
+ Apply tooltip assertions to all instances of x-show-tip
+
+ * src/haikufns.c (Fx_show_tip):
+ (syms_of_haikufns):
+ * src/nsfns.m (Fx_show_tip):
+ (syms_of_nsfns):
+ * src/pgtkfns.c (Fx_show_tip):
+ (syms_of_pgtkfns):
+ * src/xfns.c (Fx_show_tip):
+ (syms_of_xfns): Add assertion and adjust default values.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Minor doc fix in search-forward-help-for-help
+
+ * lisp/help.el (search-forward-help-for-help): Use command
+ substitution.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Make bs-help obsolete in favor of describe-mode
+
+ * lisp/bs.el (bs-help): Make obsolete in favor of describe-mode.
+ Update uses.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Make dictionary-help obsolete in favor of describe-mode
+
+ * lisp/net/dictionary.el (dictionary-help): Make obsolete in favor
+ of describe-mode. Update uses.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Don't list obsolete in "other commands" help section
+
+ * lisp/help-fns.el (help-fns--list-local-commands): Don't list
+ obsolete commands.
+
+2022-07-21 Eli Zaretskii <eliz@gnu.org>
+
+ Make 'describe-function' say "byte-compiled" when appropriate
+
+ * lisp/help-fns.el (help-fns-function-description-header): Say
+ "byte-compiled" when describing byte-compiled functions.
+
+2022-07-21 Eli Zaretskii <eliz@gnu.org>
+
+ Make sure we don't unknowingly truncate tooltip text
+
+ * src/w32fns.c (Fx_show_tip): Add assertion when the default
+ tooltip dimension limits are insufficient. (Bug#56561)
+
+2022-07-21 Po Lu <luangruo@yahoo.com>
+
+ Avoid wasting bandwidth to set user time
+
+ * src/xterm.c (x_display_set_last_user_time): Don't change the
+ user time property if nothing actually changed.
+
+2022-07-21 Eli Zaretskii <eliz@gnu.org>
+
+ ;Improve documentation of locale-specific string comparison
+
+ * doc/lispref/strings.texi (Text Comparison): Mention the Unicode
+ collation rules and buffer-local case-tables.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Make bubbles-quit obsolete in favor of quit-window
+
+ * lisp/play/bubbles.el (bubbles-quit): Make obsolete in favor of
+ quit-window. Update uses.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Remove superfluous installation instructions
+
+ These functions are already autoloaded.
+ * lisp/mail/mspools.el:
+ * lisp/progmodes/opascal.el:
+ * lisp/textmodes/remember.el:
+ * lisp/woman.el: Remove superfluous installation instructions.
+
+2022-07-21 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ea44d7ddfc ; * lisp/mail/smtpmail.el (smtpmail-via-smtp): Explain wit...
+
+2022-07-20 Po Lu <luangruo@yahoo.com>
+
+ Improve handling screen resizes when built without RandR
+
+ * src/xterm.c (handle_one_xevent): Update DND tooltip position
+ upon ConfigureNotify for root window.
+
+2022-07-20 Po Lu <luangruo@yahoo.com>
+
+ Revert "Prefer defvar-keymap in xwidget.el"
+
+ This reverts commit daf2c3e23a45bff14f9d444d2d07455376d4b6da.
+
+2022-07-20 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in xwidget.el
+
+ * lisp/xwidget.el (xwidget-webkit-mode-map)
+ (xwidget-webkit-edit-mode-map): Prefer defvar-keymap.
+
+2022-07-20 Gregory Heytings <gregory@heytings.org>
+
+ * src/xdisp.c (redisplay_window): Small optimization.
+
+2022-07-20 Gregory Heytings <gregory@heytings.org>
+
+ Further tweaks to long lines handling.
+
+ * src/xdisp.c (redisplay_window): Increase the threshold above which
+ long lines detection is performed in the buffer. This should avoid
+ triggering that detection for most simple editing operations.
+
+ * src/lisp.h (modiff_incr): Explain why the counter is incremented
+ logarithmically.
+
+ * src/buffer.h (struct buffer_text): Adapt the comment about the
+ 'modiff' field accordingly.
+
+ * src/buffer.c (modify_overlay): Increase the counter by 1 instead of
+ the size of the buffer section on which the overlay is placed.
+
+ * etc/NEWS: Small improvement.
+
+2022-07-20 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse wheel DND scroll direction on Haiku
+
+ * lisp/term/haiku-win.el (haiku-handle-drag-wheel): Record the
+ last wheel direction. If it differs, clear the click counter.
+
+2022-07-20 Eli Zaretskii <eliz@gnu.org>
+
+ Fix error during startup in -nw sessions
+
+ * lisp/startup.el (normal-top-level, command-line-1): Don't mess
+ with fonts in a text-mode session. (Bug#56660)
+
+2022-07-20 Mattias Engdegård <mattiase@acm.org>
+
+ Gently discourage use of `lsh` (bug#56641)
+
+ * lisp/subr.el (lsh): Note the general preference for `ash`.
+ * lisp/emacs-lisp/shortdoc.el (number): Remove entry for `lsh`.
+ It was identical to that for `ash` which is misleading.
+ Shortdoc is very helpful for finding the right function to use,
+ and `lsh` is just for compatibility at this point.
+
+2022-07-20 Po Lu <luangruo@yahoo.com>
+
+ Fix calculation of default highlightForeground in the lucid menu bar
+
+ * lwlib/xlwmenu.c (xlwMenuResources, display_menu_item)
+ (make_drawing_gcs, make_shadow_gcs, openXftFont, XlwMenuRealize)
+ (XlwMenuSetValues): Use -1 as the default for
+ highlight_foreground. Replace that with the normal foreground
+ when creating GCs. Reported by Colin Baxter
+ <m43cap@yandex.com>.
+
+2022-07-20 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ cb911febc6 ; Fix typos
+
+ # Conflicts:
+ # test/lisp/net/tramp-tests.el
+
+2022-07-20 Po Lu <luangruo@yahoo.com>
+
+ Implement wheel movement during DND on Haiku
+
+ * lisp/term/haiku-win.el (haiku-dnd-wheel-count): New defvar.
+ (haiku-note-wheel-click, haiku-handle-drag-wheel): New
+ functions.
+
+ * src/haiku_support.cc (EmacsWindow): Get rid of window ID
+ logic.
+ (MessageReceived, MouseMoved, be_drag_message): Use thread ID to
+ identify windows instead of window ID.
+
+ * src/haikuselect.c (Fhaiku_drag_message): Record whether or not
+ the DND frame is a valid drop target.
+ (haiku_note_drag_wheel): New function.
+ (syms_of_haikuselect): New defvar.
+
+ * src/haikuterm.c (haiku_read_socket): Call
+ `haiku_note_drag_wheel' when appropriate.
+ * src/haikuterm.h: Update prototypes.
+
+2022-07-20 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in some trivial cases
+
+ * lisp/calendar/diary-lib.el (diary-fancy-overriding-map):
+ * lisp/emacs-lisp/chart.el (chart-mode-map):
+ * lisp/emulation/cua-base.el (cua-global-keymap)
+ (cua--cua-keys-keymap, cua--prefix-override-keymap)
+ (cua--prefix-repeat-keymap, cua--global-mark-keymap)
+ (cua--rectangle-keymap, cua--region-keymap):
+ * lisp/emulation/viper-keym.el (viper-vi-intercept-map)
+ (viper-insert-intercept-map, viper-emacs-intercept-map)
+ (viper-vi-global-user-map, viper-vi-basic-map, viper-vi-kbd-map)
+ (viper-vi-diehard-map, viper-insert-global-user-map)
+ (viper-insert-basic-map, viper-insert-diehard-map)
+ (viper-insert-kbd-map, viper-replace-map)
+ (viper-emacs-global-user-map, viper-emacs-kbd-map)
+ (viper-empty-keymap, viper-mode-map, viper-minibuffer-map)
+ (viper-ex-cmd-map, ex-read-filename-map)
+ (viper-slash-and-colon-map, viper-comint-mode-modifier-map)
+ (viper-dired-modifier-map, viper-gnus-modifier-map):
+ * lisp/gnus/gnus-sum.el (gnus-summary-generic-mark-map):
+ * lisp/menu-bar.el (global-buffers-menu-map)
+ (menu-bar-preferences-menu):
+ * lisp/mh-e/mh-e.el (mh-folder-mode-map, mh-inc-spool-map)
+ (mh-search-mode-map, mh-show-mode-map):
+ * lisp/play/dunnet.el (dungeon-batch-map):
+ * lisp/progmodes/autoconf.el (autoconf-mode-map):
+ * lisp/tool-bar.el (tool-bar-map):
+ * lisp/vc/ediff-help.el (ediff-help-region-map):
+ * lisp/vc/ediff-hook.el (menu-bar-epatch-menu)
+ (menu-bar-ediff-merge-menu, menu-bar-ediff-menu):
+ * lisp/windmove.el (windmove-mode-map):
+ * lisp/xwidget.el (xwidget-webkit-isearch-mode-map)
+ (xwidget-webkit-edit-mode-map): Prefer defvar-keymap.
+
+2022-07-19 Po Lu <luangruo@yahoo.com>
+
+ Fix setting user time upon scrolling self during DND
+
+ * src/xterm.c (handle_one_xevent): Set user time for emulated
+ scroll wheel events if Emacs ends up scrolled during DND.
+
+2022-07-19 João Távora <joaotavora@gmail.com>
+
+ Make eldoc-echo-area-prefer-doc-buffer consider all frames
+
+ Previously, it considered only windows on 'visible' frames (according
+ to get-buffer-window). This seemed correct at first, but it's not
+ much use for multiple TTY frames and not particularly reliable on GUI
+ frames either. There's no reliable way to tell what is actually
+ visible, so it's best to assume that users setup frames that are
+ indeed visible when using this parameter.
+
+ * lisp/emacs-lisp/eldoc.el (eldoc--echo-area-prefer-doc-buffer-p):
+ Consider all frames.
+
+2022-07-19 João Távora <joaotavora@gmail.com>
+
+ Ensure Eldoc buffer displays on interactive M-x eldoc
+
+ * lisp/emacs-lisp/eldoc.el (eldoc-display-in-buffer): Call
+ eldoc-doc-buffer with interactive set to t.
+ (Version): Bump to 1.13.0.
+
+2022-07-19 Gregory Heytings <gregory@heytings.org>
+
+ Simplified and improved heuristic for long lines detection.
+
+ * src/lisp.h (modiff_incr): Add a parameter to 'modiff_incr' to record
+ the extent of the modification.
+
+ * src/insdel.c (insert_1_both, insert_from_string_1, insert_from_gap,
+ insert_from_buffer_1, adjust_after_replace, replace_range,
+ replace_range_2, del_range_2, modify_text): Add an argument to each
+ call to 'modiff_incr'.
+
+ * src/textprop.c (modify_text_properties): Add an argument to the call
+ to 'modiff_incr'.
+
+ * src/buffer.c (Frestore_buffer_modified_p, Fbuffer_swap_text,
+ modify_overlay): Add an argument to each call to 'modiff_incr'.
+
+ * src/xdisp.c (redisplay_window): Use the improved version of 'MODIFF'
+ for the heuristic.
+
+2022-07-19 Gregory Heytings <gregory@heytings.org>
+
+ Revert commits 1ff69cc744 and 9a894206f6.
+
+2022-07-19 João Távora <joaotavora@gmail.com>
+
+ Fix embarrassing paren-matching blunder in eglot.el
+
+ * eglot.el (eglot-handle-request workspace/applyEdit): Fix parens.
+
+2022-07-19 João Távora <joaotavora@gmail.com>
+
+ Reply more reasonably to server's workspace/applyedit
+
+ * eglot.el (eglot-handle-request): Return non-nil
+ (eglot--apply-workspace-edit): Signal jsonrpc-error, not error.
+
+2022-07-19 João Távora <joaotavora@gmail.com>
+
+ Appease byte-compiler warnings about wrong use of quotes
+
+ * eglot.el (eglot-stay-out-of, eglot--code-action): Just give it
+ what it wants.
+
+2022-07-19 João Távora <joaotavora@gmail.com>
+
+ Eglot-workspace-configuration can be a function
+
+ * README.md (Workspace configuration): Renamed from per-project
+ configuration. Rework.
+
+ * NEWS.md: Mention change.
+
+ * eglot.el (eglot-workspace-configuration): Overhaul.
+ (eglot-signal-didChangeConfiguration): Use new
+ eglot-workspace-configuration.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/967
+
+2022-07-19 Philip Kaludercic <philipk@posteo.net>
+
+ * eudc.texi: Unquote setopt option names
+
+2022-07-19 Gregory Heytings <gregory@heytings.org>
+
+ Improve the heuristic for long lines detection again.
+
+ * src/xdisp.c (redisplay_window): Improve the heuristic again.
+
+2022-07-19 Mattias Engdegård <mattiase@acm.org>
+
+ Use `ash` instead of `lsh`
+
+ * lisp/files.el (file-modes-number-to-symbolic):
+ * lisp/image/exif.el (exif--direct-ascii-value):
+ * lisp/term/haiku-win.el (defun):
+ * lisp/x-dnd.el (x-dnd-handle-xdnd, x-dnd-handle-motif):
+ `lsh` is slower and has confusing semantics; avoid.
+
+2022-07-19 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in bindings.el
+
+ * lisp/bindings.el (narrow-map, undo-repeat-map)
+ (next-error-repeat-map, goto-map, search-map, ctl-x-r-map)
+ (page-navigation-repeat-map, abbrev-map, ctl-x-x-map): Prefer
+ defvar-keymap.
+ (mode-specific-map): Minor doc fix.
+
+2022-07-19 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up `butlast`
+
+ * lisp/subr.el (butlast): Don't duplicate the removed part.
+ * test/lisp/subr-tests.el (subr-tests--butlast-ref, subr-butlast):
+ Add test.
+
+2022-07-19 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 282dde887d ; Fix typo missed in previous change
+ 62c47ffd5f ; * lisp/net/tramp-crypt.el: Improve commentary
+ cba30431ff Merge branch 'emacs-28' of git.savannah.gnu.org:/srv/git/e...
+ 8f9993bb3f ; * src/buffer.c (syms_of_buffer) <mode-line-format>: Doc ...
+ fec4bb89f9 ; Fix typos (Bug#56550)
+
+2022-07-18 Po Lu <luangruo@yahoo.com>
+
+ Document workaround for bug#56627
+
+ * etc/PROBLEMS: Document problems with GTK tool bar icons on
+ some icon themes. (bug#56627)
+
+2022-07-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (help-fns--first-release): Try and avoid false positives
+
+ We used to use a very "optimistic" regexp which worked well for
+ longish symbol names but suffered from too many false positives on
+ short names. Use a more restrictive regexp, which should make the
+ recent "weed out" change unnecessary.
+
+ This in turn requires the use of '...' more consistently in etc/NEWS*
files.
+
+ * lisp/help-fns.el (help-fns--first-release-regexp): New function.
+ (help-fns--first-release): Use it. Fix minor issue with the Emacs
+ version regexp.
+ (help-fns--mention-first-release): Undo last change.
+
+ * etc/NEWS*: Replace `...' with '...'. Indent code examples by at
+ least 2 spaces. Add previously missing '...' quotes around many of
+ the variables and functions described.
+
+2022-07-18 Po Lu <luangruo@yahoo.com>
+
+ Fix timestamp specified in wheel movement XDND events
+
+ * src/xterm.c (handle_one_xevent): Use the time of the wheel
+ event in XDND events sent in response to wheel movement.
+
+2022-07-18 Po Lu <luangruo@yahoo.com>
+
+ Make drag-and-drop wheel movement work locally too on X
+
+ This is provided by the XDND protocol, so it isn't fair for it
+ to not work with local drag-and-drop.
+
+ * lisp/x-dnd.el (x-dnd-note-wheel-movement): New function. Set
+ it as the `x-dnd-wheel-function'.
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop): Clear new flags.
+ (x_dnd_note_self_wheel): New function. Set some flags.
+ (x_dnd_process_quit, x_dnd_begin_drag_and_drop, handle_one_xevent)
+ (x_connection_closed, x_delete_terminal, mark_xterm): Handle and
+ set new wheel movement flags
+ (syms_of_xterm): New variable `x-dnd-wheel-function'.
+
+2022-07-18 Eli Zaretskii <eliz@gnu.org>
+
+ * src/xdisp.c (set_vertical_scroll_bar): Remove stale comment.
+
+2022-07-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix calculation of the vertical scroll bar's thumb
+
+ * src/xdisp.c (set_vertical_scroll_bar): Compute window's end
+ position "by hand" if w->window_end_pos cannot be relied upon.
+
+2022-07-18 Gregory Heytings <gregory@heytings.org>
+
+ * etc/PROBLEMS: Remove the entry which is no longer relevant.
+
+2022-07-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Use ntake also in tramp-adb.el
+
+ * lisp/net/tramp-adb.el
(tramp-adb-handle-directory-files-and-attributes):
+ Use `tramp-compat-ntake'.
+
+2022-07-18 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ Additional query and results attributes in eudcb-macos-contacts.el
+
+ * lisp/net/eudcb-macos-contacts.el: wider set of attributes for
+ queries, and in query results
+ * lisp/net/eudc-vars.el (eudc-inline-expansion-format): update
+ docstring to explain how to use the function eudc-translate-query to
+ translate to generic attribute names in the user supplied formatting
+ function
+ * etc/NEWS: announce wider query/result attribute set
+ * doc/misc/eudc.texi: more details on eudcb-mab.el's limitations
+
+2022-07-18 Gregory Heytings <gregory@heytings.org>
+
+ Improve the heuristic for long lines detection.
+
+ * src/buffer.h (struct buffer_text): New 'unchanged_size' field.
+ (BUF_UNCHANGED_SIZE): New macro to access the field.
+
+ * src/buffer.c (Fget_buffer_create): Initialize the field.
+ (Fbuffer_swap_text): Handle it.
+
+ * src/xdisp.c (mark_window_display_accurate_1): Set the field.
+ (redisplay_window): Use the field for long lines detection.
+
+2022-07-18 Gregory Heytings <gregory@heytings.org>
+
+ Shorter and safer fix for the segfault.
+
+ * src/xdisp.c (get_visually_first_element): Shorter and safer fix for
+ the segfault. Improves the fix introduced in cc7f37b2a4.
+
+2022-07-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp new test macros
+
+ * test/lisp/net/tramp-tests.el (tramp--test-deftest-with-stat)
+ (tramp--test-deftest-with-perl, tramp--test-deftest-with-ls):
+ Skip for all methods but those from tramp-sh.el.
+
+2022-07-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Use ntake in Tramp
+
+ * lisp/net/tramp-compat.el (tramp-compat-ntake): New defalias.
+
+ * lisp/net/tramp.el (tramp-handle-directory-files):
+ * lisp/net/tramp-crypt.el (tramp-crypt-handle-directory-files):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-directory-files-and-attributes):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-directory-files): Use it.
+
+2022-07-18 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/rect.el (rectangle-mark-mode-map): Prefer defvar-keymap.
+
+2022-07-18 Gregory Heytings <gregory@heytings.org>
+
+ Fix typo in NEWS title.
+
+2022-07-18 Mattias Engdegård <mattiase@acm.org>
+
+ Clarify `take` and `ntake` documentation (bug#56521)
+
+ * doc/lispref/lists.texi (List Elements): Describe `ntake` better.
+ * src/fns.c (Ftake, Fntake): Rephrase doc strings.
+
+2022-07-18 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up `seq-subseq` for lists (bug#56521)
+
+ * lisp/emacs-lisp/seq.el (seq-subseq):
+ Make faster by using `take` instead of a lisp loop,
+ and more importantly by not front-loading the error text formatting.
+ * test/lisp/emacs-lisp/seq-tests.el (seq-tests--list-subseq-ref)
+ (test-seq-subseq): Test `seq-subseq` for lists more thoroughly.
+
+2022-07-18 Mattias Engdegård <mattiase@acm.org>
+
+ Use `take` where clearly safe to do so (bug#56521)
+
+ * lisp/emacs-lisp/seq.el (seq-take):
+ * lisp/auth-source.el (auth-source-secrets-search)
+ (auth-source-plstore-search):
+ * lisp/gnus/message.el (message-insert-formatted-citation-line):
+ * lisp/net/dbus.el (dbus-unregister-object):
+ * lisp/replace.el (occur-context-lines):
+ * test/src/print-tests.el (print-circular): Replace hand-written loop
+ or `butlast` call with `take` for clarity, performance and validation.
+ We have the equivalence
+ (take N LIST) = (butlast LIST (- (length LIST) N)).
+
+2022-07-18 Gregory Heytings <gregory@heytings.org>
+
+ Further improvements to long lines handling.
+
+ * src/xdisp.c (get_visually_first_element): Fix segfault.
+ (get_narrowed_begv): Specific improvement for character-only terminals.
+
+2022-07-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (minibuffer-complete-history): Define sorting by
metadata
+
+ (minibuffer-complete-history, minibuffer-complete-defaults):
+ Use completion metadata to disable sorting of the completion table
+ (bug#56613)
+
+2022-07-18 Po Lu <luangruo@yahoo.com>
+
+ Implement last change on Haiku as well
+
+ * lisp/term/haiku-win.el (haiku-dnd-drag-handler): Stop
+ redisplaying here.
+ * src/haikuselect.c (haiku_note_drag_motion): Use
+ redisplay_preserve_echo_area.
+
+2022-07-18 Po Lu <luangruo@yahoo.com>
+
+ Preserve echo area message when running DND mouse movement function
+
+ * lisp/term/x-win.el (x-dnd-movement): Stop redisplaying here.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Redisplay with the
+ echo area preserved.
+
+2022-07-17 Richard Hansen <rhansen@rhansen.org>
+
+ Derive `Info-mode' from `special-mode'
+
+ * lisp/info.el (Info-mode): Derive `Info-mode' from `special-mode'.
+ This makes it easier to exclude it from globalized minor modes that
+ don't apply to special modes (such as `global-whitespace-mode' and
+ `global-display-fill-column-indicator-mode').
+
+2022-07-17 Richard Hansen <rhansen@rhansen.org>
+
+ info-edit: Delay `ibuffer' var change until after `ibuffer' loads
+
+ * lisp/obsolete/info-edit.el: Delay the addition of `Info-edit-mode'
+ to the `ibuffer-help-buffer-modes' list until after `ibuffer' is
+ loaded. This fixes a "(void-variable ibuffer-help-buffer-modes)"
+ error when `info-edit' is loaded before `ibuffer'.
+
+2022-07-17 Po Lu <luangruo@yahoo.com>
+
+ Handle virtual modifiers in the DND scrolling code
+
+ * lisp/x-dnd.el (x-dnd-modifier-mask): Handle virtual modifiers.
+ * src/xfns.c (Fx_get_modifier_masks): New function.
+ (syms_of_xfns): Define new subr.
+ * src/xterm.c (x_get_keyboard_modifiers): New function.
+ * src/xterm.h: Update prototypes.
+
+2022-07-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/minibuffer.el (minibuffer-complete-history): Ensure a list of
strings
+
+2022-07-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/subr.el (read-char-from-minibuffer, y-or-n-p): Simplify to use
HIST=t.
+
+2022-07-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (minibuffer-complete-history): Check for history=t.
+
+ Signal a user error when the history is not a list (bug#56613).
+
+2022-07-17 Mattias Engdegård <mattiase@acm.org>
+
+ Add `take` and `ntake` (bug#56521)
+
+ These are useful list primitives, complementary to `nthcdr`.
+
+ * src/fns.c (Ftake, Fntake): New.
+ (syms_of_fns): Defsubr them.
+ * doc/lispref/lists.texi (List Elements):
+ * lisp/emacs-lisp/shortdoc.el (list): Document.
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns, pure-fns):
+ Declare `take` pure and side-effect-free.
+ * test/src/fns-tests.el (fns-tests--take-ref, fns--take-ntake):
+ New test.
+ * etc/NEWS: Announce.
+
+2022-07-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix leaking of file descriptors due to pipe processes on MS-Windows
+
+ * src/w32proc.c (reader_thread): Wait for 'sys_close' to finish
+ processing the pipe read descriptor, before trying to close it.
+
+ * src/w32.c (sys_close): Attempt to detect when the reader thread
+ already exited, so that it would be possible to close descriptors
+ open by pipe processes for reading from the pipe. (Bug#56606)
+
+2022-07-17 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of tilt scroll and flip options during DND
+
+ * lisp/x-dnd.el (x-dnd-mwheel-scroll): New function.
+ (x-dnd-handle-xdnd): Use that instead of abusing mwheel.el.
+
+2022-07-17 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in mpc.el
+
+ * lisp/mpc.el (mpc-mode-map, mpc-tagbrowser-dir-mode-map)
+ (mpc-volume-map, mpc-songs-mode-map): Prefer defvar-keymap.
+
+2022-07-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C' in over tramp work in archive mode
+
+ * lisp/arc-mode.el (archive-copy-file): Make `C' in over tramp
+ work (bug#56574).
+
+2022-07-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix tab-bar resizing under 'auto-resize-tab-bars' = 'grow-only'
+
+ * src/xdisp.c (redisplay_tab_bar): Compute the desired height of
+ the tab-bar before iterating over the tab-bar string, to detect
+ the required resizing earlier. Default 'change_p' to 'false'.
+
+ * lisp/tab-bar.el (tab-bar--update-tab-bar-lines): Support
+ 'auto-resize-tab-bars' set to 'grow-only'.
+
+2022-07-17 Visuwesh <visuweshm@gmail.com>
+
+ Ensure that directories exist when copying files from archive
+
+ * lisp/arc-mode.el (archive-copy-file): If the directory the file is
+ being extracted to does not exist, then create it (bug#56603).
+
+2022-07-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve error messaging when parent archive buffers are missing
+
+ * lisp/arc-mode.el (archive-write-file-member):
+ * lisp/tar-mode.el (tar-subfile-save-buffer): Give a better error
+ message when the parent buffer is dead (bug#56605).
+
+2022-07-17 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f5218385c0 Fix obsoletion of nntp-authinfo-file
+ 10b6919870 ; Fix typos
+
+2022-07-16 Po Lu <luangruo@yahoo.com>
+
+ Handle scrolling during XDND drag-and-drop
+
+ * lisp/x-dnd.el (x-dnd-get-object-rectangle): Handle cases where
+ `posn-x-y' is nil.
+ (x-dnd-modifier-mask, x-dnd-hscroll-flags, x-dnd-note-click):
+ New functions.
+ (x-dnd-click-count): New defvar.
+ (x-dnd-handle-xdnd): Handle button press events.
+
+ * src/xterm.c (x_dnd_send_position): Fix handling of mouse
+ rects.
+
+2022-07-16 Po Lu <luangruo@yahoo.com>
+
+ Fix drag-and-drop button button flags
+
+ * src/xterm.c (x_dnd_send_position): Always send buttons
+ regardless of version. Fix bit indices.
+ (handle_one_xevent): Likewise.
+
+2022-07-16 Gregory Heytings <gregory@heytings.org>
+
+ Fix typo in e7b5912b23.
+
+2022-07-16 Gregory Heytings <gregory@heytings.org>
+
+ Improvements to long lines handling.
+
+ * src/buffer.h (struct buffer): New field 'long_line_optimizations_p'.
+
+ * src/buffer.c (syms_of_buffer): New variable 'long-line-threshold'.
+ (reset_buffer): Initialize the 'long_line_optimizations_p' field.
+ (Fbuffer_swap_text): Handle it.
+
+ * src/xdisp.c (redisplay_window): Set 'long_line_optimizations_p' when
+ a buffer contains long lines.
+ (init_iterator): Use 'long_line_optimizations_p'.
+ (get_narrowed_begv): Update.
+ (SET_WITH_NARROWED_BEGV): New macro.
+ (unwind_narrowed_begv): New internal function used by the new macro.
+ (back_to_previous_line_start, get_visually_first_element,
+ move_it_vertically_backward): Use the new macro.
+
+ * src/search.c (find_newline1): Make it externally visible.
+
+ * src/lisp.h: Make 'find_newline1' externally visible.
+
+ * src/dispextern.h (struct it): Update comment. Remove the
+ 'WITH_NARROWED_BEGV' macro.
+
+ * etc/NEWS: Mention the 'long-line-threshold' variable.
+
+2022-07-16 kobarity <kobarity@gmail.com>
+
+ Fix python navigation problem with an empty line in nested defun
+
+ * lisp/progmodes/python.el (python-nav--beginning-of-defun): Fix
+ bug when point is on an empty line (bug#56600).
+
+2022-07-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix xref links in `C-h o'
+
+ * lisp/help-fns.el (describe-symbol): Make xref links happen in
+ all sections (bug#49587).
+
+ * lisp/help-fns.el (describe-symbol): Add back/forward links.
+
+ * lisp/help-mode.el (help-make-xrefs): Factor out links from
+ here...
+ (help-xref--navigation-buttons): To here.
+
+2022-07-16 Stefan Kangas <stefan@marxist.se>
+
+ New test for make_symbol_constant
+
+ * test/src/data-tests.el (data-tests-make_symbol_constant): New
+ test.
+
+2022-07-16 Eli Zaretskii <eliz@gnu.org>
+
+ * src/composite.c (find_automatic_composition): Fix off-by-one error.
+
+2022-07-16 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation of `posn-timestamp'
+
+ * doc/lispref/commands.texi (Accessing Mouse): Improve
+ documentation of `posn-timestamp' by actually describing the
+ timestamp it returns.
+
+2022-07-16 Mattias Engdegård <mattiase@acm.org>
+
+ Update `eshell-variable-aliases-list` defcustom type
+
+ * lisp/eshell/esh-var.el (eshell-variable-aliases-list):
+ Add type for SIMPLE-FUNCTION value.
+
+2022-07-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Comment docstrings in tramp-test macros
+
+ * test/lisp/net/tramp-tests.el (tramp--test-deftest-with-stat)
+ (tramp--test-deftest-with-perl, tramp--test-deftest-with-ls)
+ (tramp--test-deftest-direct-async-process): Comment docstring,
+ it doesn't work this way. Use `tramp-test-vec' if appropriate.
+
+2022-07-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Weed out some false positives in help-fns--mention-first-release
+
+ * lisp/help-fns.el (help-fns--mention-first-release): Weed out
+ things that give too many false positives (bug#49062).
+
+2022-07-16 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Colored menu highlight in Lucid backend
+
+ * lwlib/xlwmenuP.h:
+ * lwlib/xlwmenu.h:
+ * lwlib/xlwmenu.c: Introduce resources to handle colored highlighting
+ of menu entries.
+ * doc/emacs/xresources.texi (Lucid Resources): Documentation.
+
+2022-07-16 Po Lu <luangruo@yahoo.com>
+
+ Decrease network traffic with some XDND programs
+
+ * lisp/x-dnd.el (x-dnd-get-drop-width-height):
+ (x-dnd-get-drop-x-y): Remove functions.
+
+ (x-dnd-get-window-rectangle, x-dnd-intersect-rectangles)
+ (x-dnd-get-object-rectangle, x-dnd-get-drop-rectangle): New
+ functions.
+ (x-dnd-handle-xdnd): Generate mouse rectangles consisting of the
+ object (glyph) under point.
+
+2022-07-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow ;;;###autoloading transient-define-prefix
+
+ * lisp/emacs-lisp/loaddefs-gen.el
+ (loaddefs-generate--make-autoload): Allow ;;;###autoloading
+ transient-define-prefix (bug#48694).
+
+ * lisp/transient.el (transient-define-prefix): Autoload.
+
+2022-07-16 Mattias Engdegård <mattiase@acm.org>
+
+ Optimise `append` calls
+
+ Add the transforms
+
+ (append) -> nil
+ (append X) -> X
+ (append '(X) Y) -> (cons 'X Y)
+ (append (list X) Y) -> (cons X Y)
+ (append (list X...) nil) -> (list X...)
+
+ and the argument transforms:
+
+ (list X...) (list Y...) -> (list X... Y...)
+ nil -> ;nothing
+ CONST1 CONST2 -> CONST1++CONST2
+ (list CONSTANTS...) -> '(CONSTANTS...)
+
+ (the last three for non-tail arguments only)
+
+ * lisp/emacs-lisp/byte-opt.el: New.
+
+2022-07-16 Mattias Engdegård <mattiase@acm.org>
+
+ Improved cons optimisation
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-cons):
+ Add the transform
+
+ (cons X (list Y...)) -> (list X Y...)
+
+2022-07-16 Mattias Engdegård <mattiase@acm.org>
+
+ Transform (list) -> nil in source optimiser
+
+ This optimisation is already done in the code generator but performing
+ it at this earlier stage is a useful normalising step that uncovers
+ more opportunities.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-list): New.
+
+2022-07-16 Stefan Kangas <stefan@marxist.se>
+
+ Delete obsolete variable gnus-secondary-servers
+
+ * lisp/gnus/gnus.el (gnus-secondary-servers): Delete variable
+ obsolete since 24.1.
+ * lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server):
+ * lisp/gnus/gnus-int.el (gnus-start-news-server): Don't use above
+ deleted variable.
+
+2022-07-16 Stefan Kangas <stefan@marxist.se>
+
+ Fix obsoletion of nntp-authinfo-file
+
+ * lisp/gnus/nntp.el (nntp-authinfo-file): Fix obsoletion.
+
+2022-07-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ db259d8fd3 Build Seccomp filter only if we have a 64-bit userspace (B...
+
+2022-07-15 Po Lu <luangruo@yahoo.com>
+
+ Handle XDND mouse rects synchronously
+
+ * src/xterm.c (x_dnd_send_position): Record event X and Y for
+ consumption by the XdndStatus handler. Ignore mouse rects if
+ waiting for status.
+ (x_dnd_send_leave): Clear pending DND event.
+ (handle_one_xevent): When handling XdndStatus, check if the
+ pending event is contained in the new mouse rect.
+
+2022-07-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/url/url-vars.el (url-mime-separator-chars): Fix last cosmetic
change
+
+2022-07-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend tramp-tests
+
+ * test/lisp/net/tramp-tests.el (tramp--test-deftest-with-stat)
+ (tramp--test-deftest-with-perl, tramp--test-deftest-with-ls):
+ New defmacros.
+ (tramp-test18-file-attributes-with-stat)
+ (tramp-test18-file-attributes-with-perl)
+ (tramp-test18-file-attributes-with-ls)
+ (tramp-test19-directory-files-and-attributes-with-stat)
+ (tramp-test19-directory-files-and-attributes-with-perl)
+ (tramp-test19-directory-files-and-attributes-with-ls): New tests.
+ (tramp-test21-file-links): Delete also `tmp-name2'.
+ (tramp--test-deftest-direct-async-process): Rename from
+ `tramp--test--deftest-direct-async-process'. Remove DOCSTRING.
+ Adapt callees.
+ (tramp--test-special-characters): Remove. Move body to ...
+ (tramp-test41-special-characters): ... here.
+ (tramp--test-utf8): Remove. Move body to ...
+ (tramp-test42-utf8): ... here.
+ (tramp-test41-special-characters-with-stat)
+ (tramp-test41-special-characters-with-perl)
+ (tramp-test41-special-characters-with-ls)
+ (tramp-test42-utf8-with-stat)
+ (tramp-test42-utf8-with-perl)
+ (tramp-test42-utf8-with-ls): Rewrite, using the new macros.
+
+2022-07-15 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/tar-mode.el (tar-mode-map): Prefer defvar-keymap.
+
+2022-07-15 Philipp Stephani <phst@google.com>
+
+ Build Seccomp filter only if we have a 64-bit userspace (Bug#56549)
+
+ * configure.ac (SIZEOF_LONG): New variable.
+ * lib-src/Makefile.in (SIZEOF_LONG): New variable; added conditional.
+
+2022-07-15 Andreas Schwab <schwab@linux-m68k.org>
+
+ Fix ASAN error with fringe bitmap on NS
+
+ * src/nsterm.m (ns_define_fringe_bitmap): Correctly access fringe
+ bitmap data. (Bug#56553)
+
+2022-07-15 Po Lu <luangruo@yahoo.com>
+
+ Fix double unfocus during NS cursor display
+
+ * src/nsterm.m (ns_draw_window_cursor): Unfocus around calls to
+ draw_phys_cursor_glyph, then focus again later. (bug#56559)
+
+2022-07-15 Po Lu <luangruo@yahoo.com>
+
+ Only preserve PRIMARY and CLIPBOARD selection ownership by default
+
+ * lisp/cus-start.el (standard): Update defcustom type.
+ * src/xselect.c (x_should_preserve_selection): New function.
+ (x_clear_frame_selections): Use it to determine whether or not
+ to preserve a selection.
+ * src/xterm.c (x_preserve_selections): Fix tail initialization.
+ (syms_of_xterm): Update doc string of
+ `x-auto-preserve-selections'.
+
+2022-07-15 João Távora <joaotavora@gmail.com>
+
+ Be more conservative with the lsp identifier guess
+
+ If the user is not requesting a prompt, opt for the safer approach
+ which is to get the location from textDocument/definition, not from
+ workspace/symbol. Because of things like function overloading, the
+ latter is not always successful in finding exactly the definition of
+ the thing one is invoking M-. on.
+
+ This requires using an xref-internal symbol, which is kind of
+ unfortunate.
+
+ * eglot.el (xref-backend-identifier-at-point): Rework.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/131
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/314
+
+2022-07-15 João Távora <joaotavora@gmail.com>
+
+ Guess the "lsp identifier at point"
+
+ * eglot.el (eglot--workspace-symbols): New helper.
+ (xref-backend-identifier-completion-table): Rework.
+ (xref-backend-identifier-at-point): Rework.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/131
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/314
+
+2022-07-15 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid infloop in redisplay when displaying a tooltip
+
+ * src/xdisp.c (try_window): Ensure we fail if 'display_line'
+ indicates that the dimensions of the glyph matrix are
+ insufficient. (Bug#56561)
+
+2022-07-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how dired-copy-filename-as-kill handles file names with spaces
+
+ * lisp/dired.el (dired-copy-filename-as-kill): Quote files
+ containing spaces (bug#48657).
+
+2022-07-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust whitespace tests
+
+2022-07-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix whitespace-mode display table restoration logic
+
+ * lisp/whitespace.el (whitespace-display-char-on): Fix the saving
+ logic -- `whitespace-mode' is on by this point (bug#48583).
+
+2022-07-15 Visuwesh <visuweshm@gmail.com>
+
+ Fix mailcap-user-mime-data doc string
+
+ * lisp/net/mailcap.el (mailcap-user-mime-data): Make the doc
+ string reflect the actual structure (bug#56568).
+
+2022-07-15 João Távora <joaotavora@gmail.com>
+
+ Tweak some details, fix some bugs
+
+ eglot--recover-workspace-symbol-meta had a bug that still made it
+ choke on improper lists.
+
+ Also, when simply M-. to the thing at point, let's not lose time on
+ iterating a potentially out-of-date eglot--workspace-symbols-cache.
+ So clear it early in the pre-command-hook.
+
+ * eglot.el (eglot--workspace-symbols-cache): Move up.
+ (eglot--pre-command-hook): Clear eglot--workspace-symbols-cache here.
+ (eglot--recover-workspace-symbol-meta): Check for consp.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/131
+
+2022-07-15 Po Lu <luangruo@yahoo.com>
+
+ Fix generated drag-and-drop mouse rectangles
+
+ * lisp/x-dnd.el (x-dnd-get-drop-width-height): Handle window
+ width and height correctly. Remove unused parameter.
+ (x-dnd-after-move-frame): New function.
+ (move-frame-functions): Add new hook.
+ (x-dnd-compute-root-window-position): New function.
+ (x-dnd-get-drop-x-y): Use that instead of `left' and `top'
+ parameters, which include the title bar.
+ (x-dnd-handle-xdnd): Update accordingly.
+ * src/xfns.c (Fx_translate_coordinates): New function.
+ (syms_of_xfns): New defsym.
+
+2022-07-15 Gerd Möllmann <gerd@gnu.org>
+
+ Extend support for debugging Emacs with LLDB
+
+ * etc/emacs_lldb.py: Handle case of Lisp_Object being a
+ struct (--enable-lisp-type-checking). Enable Emacs type category by
+ default. Expand children in type summary for Lisp_Object.
+
+2022-07-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 6a05715552 Update the Samaritan's contact details in M-x doctor
+ d19834dfda ; Fix typos
+
+2022-07-14 Po Lu <luangruo@yahoo.com>
+
+ Fix sending button presses if the drop target specified a mouse
rectangle
+
+ * src/xterm.c (x_dnd_send_position): Handle button presses
+ specially, ignoring mouse rectangles.
+
+2022-07-14 Sean Whitton <spwhitton@spwhitton.name>
+
+ Use notmuch thread:{} operator instead of performing two searches
+
+ This also avoids some command line length limit problems (bug#56442).
+
+ * gnus-search.el (gnus-search-run-search): Delete notmuch method.
+ (gnus-search-indexed-search-command): In the notmuch method, when
+ searching for threads, wrap whole query in thread:{} operator, and
+ always use --output=files, never --output=threads (bug#56442).
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix --without-x build after previous image cache changes
+
+ * src/alloc.c (garbage_collect): Fix --without-all --without-x build.
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore how (read-from-minibuffer ... read-expression-map) worked
+
+ * lisp/simple.el (read-expression-map): Don't override RET and C-j
+ here, since that leads to breakages of other usages of this map
+ (bug#56548).
+ (read--expression-map): New map.
+ (read--expression): Use it.
+
+2022-07-14 Visuwesh <visuweshm@gmail.com>
+
+ Make gnus display webp images inline
+
+ * lisp/gnus/mm-decode.el (mm-inline-media-tests): Add webp handler.
+ * lisp/net/mailcap.el (mailcap-mime-extensions): Add webp mimetype
+ (bug#56552).
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make image-map commands work with inline image attachments in mm
+
+ * lisp/gnus/mm-view.el (mm-inline-image): Use insert-image so that
+ point movement is more pleasant and so that image-map commands
+ work (bug#56554).
+
+2022-07-14 Visuwesh <visuweshm@gmail.com>
+
+ * lisp/image.el (put-image): Fix typo.
+
+ * lisp/image.el (put-image): Actually use the image-map keymap
+ (bug#56554).
+
+2022-07-14 Visuwesh <visuweshm@gmail.com>
+
+ Use compose-mail in submit-emacs-patch
+
+ * lisp/mail/emacsbug.el (submit-emacs-patch): Prefer
+ compose-mail-other-window over message-mail-other-window (bug#56555).
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Make ps-print-ensure-fontified obsolete
+
+ * lisp/ps-print.el (ps-print-ensure-fontified): Redefine as
+ obsolete function alias for font-lock-ensure. Update callers.
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Prune animation cache when images are no longer reachable
+
+ * lisp/image.el (image-animate-timeout): Eject cached animated
+ images that are no longer reachable (bug#56546).
+
+ * src/image.c (Fclear_image_cache): Allow specifying a cached
+ animated image to eject.
+ (gif_load, webp_load): Adjust what to use as the caching key --
+ the identity of the list itself is apparently changed by some
+ callers.
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make image-cache-size also include the animation cache
+
+ * src/image.c (struct anim_cache, anim_create_cache): Store approx
+ cache size.
+ (gif_load, webp_load): Ditto.
+ (Fimage_cache_size): Also report animation cache size (bug#56546).
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Prune the animation cache from gc
+
+ * src/alloc.c (garbage_collect): Prune animation cache
+ (bug#56546).
+
+2022-07-14 Eli Zaretskii <eliz@gnu.org>
+
+ * src/gtkutil.c (xg_free_frame_widgets): Avoid compiler warning.
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Update the Samaritan's contact details in M-x doctor
+
+ * lisp/play/doctor.el (doctor-death): Update the Samaritans's contact
+ details; anon.twwells.com is no longer valid. Add link to Wikipedia.
+
+2022-07-14 João Távora <joaotavora@gmail.com>
+
+ Cosmetic decisions guaranteed to tick off someone somewhere (tm)
+
+ The symbols returned by the LSP server must be converted to unique
+ strings if Emacs is to present them in a list. On the other hand, the
+ search operates on the pattern and is completely controlled by the
+ backend. There is not much Eglot, the LSP client, can do about this.
+
+ Decided to present the unique string to the user, even though it could
+ be hidden. All the manner of :annotation-function,
+ :affixation-function, :group-funcion etc didn't seem to add much
+ value.
+
+ Grouping was especially useless, since it makes sense to respect the
+ LSP server's account of sorting score, so that better results bubble
+ up to the top.
+
+ * eglot.el (xref-backend-identifier-completion-table): Uniquify
+ symbols with containerName and kind.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/131
+
+2022-07-14 João Távora <joaotavora@gmail.com>
+
+ Experiment with grouping in xref-backend-identifier-completion-table
+
+ Doesn't look very good.
+
+ * eglot.el (xref-backend-identifier-completion-table): Add stuff.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/131
+
+2022-07-14 João Távora <joaotavora@gmail.com>
+
+ Make c-u m-. work half decently
+
+ * NEWS.md: Mention change.
+
+ * eglot.el (eglot--lsp-interface-alist): Add WorkspaceSymbol
+ (eglot--workspace-symbols-cache): New variable.
+ (eglot--recover-workspace-meta): New helper.
+ (xref-backend-identifier-completion-table): Complicate.
+ (xref-backend-definitions): Complicate.
+ (completion-category-overrides): Register a category and a style here.
+ (completion-styles-alist): Add eglot--lsp-backend-style style
+ (eglot--lsp-backend-style-call): New funtion.
+ (eglot--lsp-backend-style-all-completions): New function.
+ (eglot--lsp-backend-style-try-completion): New function.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/131
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Silence unused variable warning in a build --without-all
+
+ * src/xfns.c (Fx_double_buffered_p): Silence unused variable warning
+ in a build --without-all.
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Compress hashcash headers by default
+
+ * lisp/mail/hashcash.el (hashcash-extra-generate-parameters):
+ Use compression by default.
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Pacify -Wunused-macros in --without-all builds
+
+ * src/image.c (IMAGE_TYPE_INIT): Make conditional on image support.
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Update the 'etags' test suite
+
+ * ETAGS_good_1:
+ * ETAGS_good_2:
+ * ETAGS_good_3:
+ * ETAGS_good_4:
+ * ETAGS_good_5:
+ * ETAGS_good_6: Adapt to recent changes in test sources.
+
+2022-07-14 Po Lu <luangruo@yahoo.com>
+
+ Try to restore the initial "daemon" frame when a display goes down
+
+ * src/xterm.c (x_try_restore_frame): New function.
+ (x_connection_closed): Call it if selected_frame is nil.
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 76878ce6a0 * etc/PROBLEMS: Describe problems with remote files. (Bug...
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9db6817d63 Remove uneffective test
+ 7af88de410 Mark async worker tmp file as utf-8-emacs-unix (bug#48029)
+
+ # Conflicts:
+ # test/src/comp-resources/comp-test-45603.el
+ # test/src/comp-tests.el
+
+2022-07-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make clear-image-cache clear the animation cache
+
+ * src/dispextern.h: Declare image_prune_animation_caches for use
+ in gc.
+
+ * src/image.c (Fclear_image_cache): Clear animation cache.
+ (anim_prune_animation_cache, anim_get_animation_cache): Allow
+ clearing in addition to pruning.
+ (imagemagick_prune_animation_cache)
+ (imagemagick_get_animation_cache): Ditto.
+ (image_prune_animation_caches): New function (bug#56546).
+
+2022-07-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5e47ec9511 ; * lisp/url/url-http.el (url-http-parse-headers): Fix typo.
+ ba0871bef1 ; Fix typos: prefer American spelling
+ e3e7f31faa Adapt Tramp doc
+
+ # Conflicts:
+ # etc/NEWS
+ # etc/themes/modus-themes.el
+ # lisp/emacs-lisp/byte-opt.el
+ # test/lisp/so-long-tests/spelling-tests.el
+
+2022-07-14 Gerd Möllmann <gerd@gnu.org>
+
+ Improve support for debugging Emacs with LLDB
+
+ * etc/emacs_lldb.py: Refactor and support more Lisp types.
+
+2022-07-14 Eli Zaretskii <eliz@gnu.org>
+
+ * etc/PROBLEMS: Describe problems with remote files. (Bug#56499)
+
+2022-07-14 Visuwesh <visuweshm@gmail.com>
+
+ Add new customizable phonetic Tamil input method
+
+ * lisp/language/indian.el ("Tamil"): Change the default input method
+ of the Tamil language environment to the new input method.
+
+ * lisp/leim/quail/indian.el
+ (quail-tamil-itrans-compute-syllable-table): New function extracted
+ from...
+ (quail-tamil-itrans-syllable-table): ... here. Use the above
+ function.
+ (quail-tamil-itrans--consonant-order): Auxiliary variable for the
+ above function.
+ (quail-tamil-itrans-compute-signs-table): Add new VARIOUS argument.
+ (quail-tamil-itrans-various-signs-and-digits-table)
+ (quail-tamil-itrans-various-signs-table): Adjust call to the above
+ function.
+
+ ("tamil-phonetic"): Add new input method.
+ (tamil-input): New group for the input method.
+ (tamil-translation-rules): New defcustom for the input method to
+ change the translation rules.
+
+ (tamil--syllable-table, tamil--signs-table, tamil--hashtables)
+ (tamil--vowel-signs): Internal variables used by the input method.
+ (tamil--setter, tamil--make-tables)
+ (tamil--update-quail-rules): Internal functions for the input method.
+ (bug#56323)
+
+ * etc/NEWS: Announce the new input method.
+
+2022-07-13 Po Lu <luangruo@yahoo.com>
+
+ Fix killing Emacs upon display disconnect
+
+ * src/xterm.c (x_connection_closed): On Xt builds terminals can
+ be left alive without any frames on them, so take that into
+ account. (bug#56528)
+
+2022-07-13 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in tab-bar.el
+
+ * lisp/tab-bar.el: Prefer keymap-set.
+ (tab-bar-map, tab-switcher-mode-map)
+ (tab-bar-switch-repeat-map, tab-bar-move-repeat-map): Prefer
+ defvar-keymap.
+
+2022-07-13 Andrea Corallo <akrl@sdf.org>
+
+ Remove uneffective test
+
+ * test/src/comp-tests.el (45603-1): Remove test.
+ * test/src/comp-resources/comp-test-45603.el: Delete.
+
+2022-07-13 Andrea Corallo <akrl@sdf.org>
+
+ Mark async worker tmp file as utf-8-emacs-unix (bug#48029)
+
+ * lisp/emacs-lisp/comp.el (comp-final): Mark async worker tmp file
+ as utf-8.
+ * test/src/comp-tests.el (48029-1): New test.
+ * test/src/comp-resources/comp-test-funcs.el
+ (comp-test-48029-nonascii-žžž-f): New function.
+
+2022-07-13 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/vc/vc-bzr.el (vc-bzr-program): Support breezy.
+
+2022-07-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make smtpmail try all auth methods
+
+ * lisp/mail/smtpmail.el (smtpmail-try-auth-methods): Try all valid
+ methods, even if one fails (bug#48562).
+
+2022-07-13 Po Lu <luangruo@yahoo.com>
+
+ Fix recursive calls of x_connection_closed leading to dead terminal
+
+ * src/xterm.c (x_connection_closed): Return if called again for
+ the current display.
+ (x_io_error_quitter): Fix attributes. (bug#56528)
+
+2022-07-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp version integrated in Emacs 28.2
+
+ * lisp/net/trampver.el (customize-package-emacs-version-alist):
+ Adapt Tramp version integrated in Emacs 28.2.
+
+2022-07-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Make mouse-2 respect delete-selection mode"
+
+ This reverts commit 215a700751f88bba18989e340181361a484d5b3a.
+
+ This leads to unintended consequences for cua-mode, among others
(bug#56530).
+
+2022-07-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make bibtex-mode not signal errors when used programmatically
+
+ * lisp/textmodes/bibtex.el (bibtex-mode): Ensure that the font
+ lock machinery is set up (bug#48447).
+
+2022-07-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp doc
+
+ * doc/misc/tramp.texi (Configuration): Mention enable-remote-dir-locals.
+ (Traces and Profiles): Fix tramp-verbose description.
+
+ * lisp/net/tramp.el (tramp-verbose): Fix docstring.
+
+2022-07-13 Stefan Kangas <stefan@marxist.se>
+
+ Make the rsh command obsolete
+
+ * lisp/net/telnet.el (rsh): Make obsolete.
+ (telnet-connect-command, telnet-mode): Adjust documentation for
+ above change.
+
+2022-07-13 Po Lu <luangruo@yahoo.com>
+
+ Implement TIMESTAMP target for Haiku selections
+
+ * lisp/term/haiku-win.el (haiku-selection-targets): Fix return
+ values.
+ (gui-backend-get-selection): Handle TIMESTAMP specially.
+ * src/haiku_select.cc (be_get_clipboard_count): New function.
+ * src/haikuselect.c (Fhaiku_selection_timestamp): New function.
+ (syms_of_haikuselect): Add new defsubr.
+ * src/haikuselect.h: Update prototypes.
+
+2022-07-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a3dab1e621 Don't mention cl-cXXXr aliases in cl-lib manual
+
+2022-07-13 Po Lu <luangruo@yahoo.com>
+
+ New user option 'webjump-use-internal-browser'
+
+ * lisp/net/webjump.el (webjump-use-internal-browser): New defcustom.
+ (webjump): Respect it. Reported by Youmu <condy0919@gmail.com>.
+
+2022-07-12 Po Lu <luangruo@yahoo.com>
+
+ Fix closing displays when preserving selections is enabled
+
+ * src/frame.c (delete_frame): Bind `x-auto-preserve-selections'
+ to nil if deleting display.
+ * src/xselect.c (x_clear_frame_selections): Pass original frame
+ to that function.
+ * src/xterm.c (x_preserve_selections): Fix determining the new
+ owner.
+ (syms_of_xterm): New defsym `x-auto-preserve-selections'.
+ * src/xterm.h: Update prototypes.
+
+2022-07-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak image-converter-add-handler interface
+
+ * doc/emacs/files.texi (Image Mode): Adjust documentation.
+ * lisp/image/image-converter.el (image-convert): Let the converter
+ know whether it's a file or not.
+
+2022-07-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Autoload image-converter-add-handler
+
+ * lisp/image/image-converter.el (image-converter-add-handler):
+ Autoload.
+
+2022-07-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for viewing "images" such as Krita (.kra) files
+
+ * doc/emacs/files.texi (Image Mode): Document it.
+
+ * lisp/image/image-converter.el (image-converter-add-handler): New
+ function (bug#48415).
+ (image-convert): Use it.
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Drop obsolete rsh/rlogin from two user options
+
+ * lisp/net/ange-ftp.el (ange-ftp-gateway-program):
+ * lisp/net/imap.el (imap-shell-program): Drop obsolete "rsh"/"rlogin".
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Make pcomplete/{rsh,rlogin} into alias for pcomplete/ssh
+
+ * lisp/pcmpl-unix.el (pcomplete/rlogin, pcomplete/rsh): Make into
+ aliases for 'pcomplete/ssh', as "rsh" and "rlogin" is more often than
+ not aliases for "ssh" on modern machines.
+
+2022-07-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Remove rsh from Tramp manual, Overview section
+
+ * doc/misc/tramp.texi (Overview, Frequently Asked Questions):
+ Don't mention obsolete rsh and rcp.
+
+2022-07-12 Jim Porter <jporterbugs@gmail.com>
+
+ Ensure Eshell variable aliases properly handle indexing
+
+ * lisp/eshell/em-dirs.el (eshell-dirs-initialize): Properly handle
+ indexing for variable aliases.
+
+ * lisp/eshell/esh-var.el (eshell-variable-aliases-list): Properly
+ handle indexing for variable aliases, and add SIMPLE-FUNCTION
+ entry for aliases.
+ (eshell-get-variable): Update how variable alias functions are called.
+
+ * test/lisp/eshell/em-alias-tests.el
+ (em-alias-test/alias-arg-vars-indices)
+ (em-alias-test/alias-arg-vars-split-indices)
+ (em-alias-test/alias-all-args-var-split-indices):
+ * test/lisp/eshell/em-dirs-tests.el (em-dirs-test/pwd-var-indices)
+ (em-dirs-test/oldpwd-var-indices)
+ (em-dirs-test/directory-ring-var-indices):
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/inside-emacs-var-split-indices)
+ (esh-var-test/last-result-var-split-indices): New tests.
+ (esh-var-test/last-arg-var-split-indices): Expand test to check
+ conversion behavior inside double quotes (bug#56509).
+
+2022-07-12 Jim Porter <jporterbugs@gmail.com>
+
+ Allow Eshell variable aliases to point to other aliases
+
+ In particular, this resolves an issue where '$+' referenced the real
+ environment variable '$PWD' instead of the Eshell variable alias of
+ the same name. This meant that changing directories in Eshell
+ wouldn't update the value of '$+'.
+
+ * lisp/eshell/esh-var.el (eshell-get-variable): Allow Eshell variable
+ aliaes to point to other aliases.
+
+ * test/lisp/eshell/em-dirs-tests.el (em-dirs-test/pwd-var)
+ (em-dirs-test/short-pwd-var): Adapt tests to check this case
+ (bug#56509).
+
+2022-07-12 Jim Porter <jporterbugs@gmail.com>
+
+ Improve tests/organization for built-in variables
+
+ * lisp/eshell/em-dirs.el (eshell-inside-emacs)
+ (eshell-dirs-initialize): Move 'INSIDE_EMACS' from here...
+
+ * lisp/eshell/esh-var.el (eshell-inside-emacs)
+ (eshell-variable-aliases-alist): ... to here, and improve doc string.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/inside-emacs-var):
+ Move from here...
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/inside-emacs-var):
+ ... to here.
+ (esh-var-test/last-arg-var-indices)
+ (esh-var-test/last-arg-var-split-indices): New tests.
+
+ * test/lisp/eshell/em-alias-tests.el:
+ * test/lisp/eshell/em-dirs-tests.el:
+ * test/lisp/eshell-em-script-tests.el: New files.
+
+ * doc/misc/eshell.texi (Built-ins): Fix 'cd' documentation; it works
+ with the directory ring, not the directory stack. Move built-in
+ variables documentation from here...
+ (Variables): ... to here, and add documentation for missing built-in
+ variables.
+
+2022-07-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix buffer-stale-function fix
+
+ * src/buffer.c (Fmake_indirect_buffer): Kill the local
+ buffer-stale-function variable instead of setting it
+ buffer-locally to the default value. This should have the same
+ effect, but is less confusing.
+
+2022-07-12 Po Lu <luangruo@yahoo.com>
+
+ Reduce syncing when fetching selection names during frame deletion
+
+ * src/xterm.c (x_preserve_selections): Use XCB to asynchronously
+ fetch the selection owner.
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention cl-cXXXr aliases in cl-lib manual
+
+ * doc/misc/cl.texi (Lists, List Functions, Efficiency Concerns): Don't
+ mention 'cl-cXXXr' compatibility aliases for built-in 'cXXXr'
+ functions. They shouldn't be used in new code.
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Make some rst.el compat aliases obsolete
+
+ * lisp/textmodes/rst.el (rst-adjust-section-title)
+ (rst-display-adornments-hierarchy, rst-straighten-adornments)
+ (rst-toc-insert-update, rst-goto-section)
+ (rst-toc-mode-goto-section, rst-toc-mode-mouse-goto)
+ (rst-toc-mode-mouse-goto-kill, rst-toc-quit-window): Make
+ compatibility aliases obsolete.
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Make remote-shell-program default to ssh only
+
+ * lisp/files.el (remote-shell-program): Default to "ssh" only. The
+ other commands in this list have severe security issues, and it is
+ easy enough for users to customize them manually if they want to.
+ See also the discussion in: https://debbugs.gnu.org/56461
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Recognize gemini in thing-at-point
+
+ * lisp/thingatpt.el (thing-at-point-uri-schemes): Recognize gemini.
+
+2022-07-12 Mattias Engdegård <mattiase@acm.org>
+
+ Better gomoku X colour with bright background
+
+ * lisp/play/gomoku.el (gomoku-X): Use blue rather than green for
+ crosses on bright background for better legibility.
+ (Red for naughts could be adjusted but seems just about bearable.)
+
+2022-07-12 Alan Mackenzie <acm@muc.de>
+
+ Expunge unused recompute-lucid-menubar, lucid-menu-bar-dirty-flag
+
+ This fixes bug #56502. That function and these variables were
manipulated by
+ the former file emacs-lisp/lmenu.el that was finally expunged from
directory
+ obsolete/ by Stefan Kangas on 2020-05-15. There remain references to
them in
+ the *.c, and *.m files.
+
+ * src/keyboard.c (syms_of_keyboard): Remove declarations of the symbol
and
+ variable.
+
+ * src/haikumenu.c (set_frame_menu_bar)
+ * src/keyboard.c (command_loop_1)
+ * src/nsmenu.m (ns_update_menubar)
+ * src/pgtkmenu.c (set_frame_menubar)
+ * src/xdisp.c (update_menu_bar)
+ * src/xmenu.c (set_frame_menubar): Remove calls to
Qrecompute_lucid_menubar
+ contitional on Vlucid_menu_bar_dirty_flag.
+
+2022-07-12 Po Lu <luangruo@yahoo.com>
+
+ Fix preserving selections if `x-lost-selection-functions' signals
+
+ * src/xterm.c (x_preserve_selections): Get selection owner and
+ run lost selection hook separately.
+
+2022-07-12 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9183d1672c ; * etc/PROBLEMS: Give a URL for bug#50666.
+ 1f508a8b6f etc/PROBLEMS: Describe issues with native compilation on C...
+ 84a5d47125 ; Fix last change
+ 0461021893 ; * lisp/emacs-lisp/comp.el (native-comp-speed): Explain t...
+ 876317271b * lisp/find-dired.el (find-dired): Doc fix; add crossrefer...
+
+2022-07-11 Po Lu <luangruo@yahoo.com>
+
+ Try to save selections from being disowned during frame deletion
+
+ * lisp/cus-start.el (standard): Add
+ `x-auto-preserve-selections'.
+ * src/xselect.c (x_clear_frame_selections): Collect deleted
+ selections into a variable and preserve them.
+ * src/xterm.c (x_preserve_selections): New function.
+ (syms_of_xterm): New variable `x-auto-preserve-selections'.
+ * src/xterm.h: Update prototypes.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/mail/mail-utils.el (mail-string-delete): Make obsolete.
+
+2022-07-11 Ken Brown <kbrown@cornell.edu>
+
+ etc/PROBLEMS: Describe issues with native compilation on Cygwin
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in thumbs.el
+
+ * lisp/thumbs.el (thumbs-mode-map, thumbs-view-image-mode-map):
+ Prefer defvar-keymap.
+
+2022-07-11 Mattias Engdegård <mattiase@acm.org>
+
+ Remove obsolete uses of obsolete functions
+
+ * src/minibuf.c (minibuf_conform_representation): Remove.
+ (Ftry_completion): Don't call it.
+ (Ftest_completion): Don't use the obsolete Fstring_make_unibyte or
+ Fstring_make_multibyte; they don't serve any useful purpose here.
+ We don't try to equate unibyte and multibyte raw bytes in symbol
+ lookups elsewhere and there is no reason to do it here.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Remove dead branch from substitute-command-keys
+
+ * lisp/help.el (substitute-command-keys): Remove dead branch;
+ where-is-internal will follow any remaps for us. Note also that the
+ test case for remapping still pass.
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `g' in `vc-annotate' not bug out
+
+ * lisp/vc/vc-annotate.el (vc-annotate): Don't bug out on `g'
+ (bug#48359).
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Only reset buffer-local buffer-stale-function in make-indirect-buffer
+
+ * src/buffer.c (Fmake_indirect_buffer): Don't set the global
+ buffer-stale-function (bug#48348).
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document the recent add-global-abbrev change
+
+ * doc/emacs/abbrevs.texi (Defining Abbrevs): Document that you can
+ use the active region.
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make add-mode-abbrev use the active region
+
+ * lisp/abbrev.el (add-mode-abbrev, add-global-abbrev): Document it.
+ (add-abbrev): If there's an active region, use that as the
+ expansion (bug#56496).
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/obsolete/rlogin.el: Add "Obsolete-since" line.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Make net/rlogin.el obsolete
+
+ * lisp/net/rlogin.el: Move from here...
+ * lisp/obsolete/rlogin.el: ...to here. (Bug#56461)
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ * src/.lldbinit: Fix copyright year.
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow commands that call `yes-or-no-p' to be repeatable again
+
+ * lisp/subr.el (y-or-n-p): Enable commands that call this function
+ to be repeatable (bug#45999). This stopped working after this
+ function started using read-from-minibuffer.
+ * src/fns.c (Fyes_or_no_p): Ditto.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Move EIEIO autoloads to the common loaddefs.el
+
+ * lisp/emacs-lisp/eieio-core.el:
+ * lisp/emacs-lisp/eieio-custom.el:
+ * lisp/emacs-lisp/eieio-opt.el:
+ * lisp/obsolete/eieio-compat.el: Remove generated-autoload-file
+ setting and don't require eieio-loaddefs.el.
+
+2022-07-11 Gerd Möllmann <gerd@gnu.org>
+
+ Support for debugging Emacs with LLDB
+
+ * (src/.lldbinit): New file.
+ * (etc/emacs_lldb.py): Module loaded from .lldbinit.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Don't create unused file rmail-loaddefs.el
+
+ * lisp/mail/undigest.el: Remove 'generated-autoload-file' local
+ variable. (Bug#56491)
+
+2022-07-11 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify str_to_multibyte and related code
+
+ * src/character.h (str_to_multibyte):
+ * src/character.c (str_to_multibyte): Remove `nbytes` argument; return
+ it instead. Copy forwards.
+ * src/fns.c (concat_to_string, Fstring_make_multibyte):
+ Use str_to_multibyte.
+ (string_make_multibyte): Remove.
+ (string_to_multibyte):
+ * src/print.c (print_string): Adapt calls.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Doc fix; don't mention rlogin
+
+ * doc/emacs/misc.texi (Remote Host):
+ * doc/misc/eshell.texi (Bugs and ideas): Don't mention
+ rlogin. (Bug#56461)
+
+2022-07-11 Po Lu <luangruo@yahoo.com>
+
+ Improve behavior of `lost-selection-mode' with multiple buffers
+
+ * etc/NEWS: Announce new hook `post-select-region-hook'.
+
+ * lisp/select.el (lost-selection-last-region-buffer): New
+ variable.
+ (lost-selection-post-select-region-function): New function.
+ Deactivate the mark if the buffer changed.
+ (lost-selection-mode): Add new hook.
+
+ * src/keyboard.c (command_loop_1): Run that hook when
+ appropriate.
+ (syms_of_keyboard): New hook `post-select-region-hook'.
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix crm.el compilation warning
+
+ * lisp/emacs-lisp/crm.el (crm-default-separator): Move to avoid
+ compilation warning.
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't call home from test/src/process-tests.el
+
+ * test/src/process-tests.el (process-num-processors): Move from
+ here...
+ * test/manual/process-callout-tests.el: ... to here (bug#55858).
+
+2022-07-11 Visuwesh <visuweshm@gmail.com>
+
+ Make mouse-2 respect delete-selection mode
+
+ * lisp/delsel.el: Make the mouse yank commands delete-selection-mode
+ aware (bug#56421).
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/emacs-lisp/package.el (define-package): Make obsolete.
+
+2022-07-11 Po Lu <luangruo@yahoo.com>
+
+ Prevent setting user time if the WM doesn't support it
+
+ * src/xterm.c (x_update_frame_user_time_window): Don't set
+ _NET_WM_USER_TIME if it's not supported by the window manager.
+
+2022-07-11 Mattias Engdegård <mattiase@acm.org>
+
+ Add test for the gradle-android compilation message pattern
+
+ * etc/compilation.txt (symbol): Add example.
+ * test/lisp/progmodes/compile-tests.el
(compile-tests--test-regexps-data):
+ (compile-test-error-regexps): Add test case (bug#56249).
+
+2022-07-11 Daniel Martín <mardani29@yahoo.es>
+
+ Fix memory leak in ns_draw_relief
+
+ * src/nsterm.h (struct ns_output): New fields to store the relief
+ colors.
+ * src/nsterm.m (ns_setup_relief_colors): New function to keep the
+ relief colors as part of the ns_output structure.
+ (ns_draw_relief): Remove static local variables. Assigning them to
+ nil caused a memory leak of NSColor instances (bug#56462). Call
+ ns_setup_relief_colors instead.
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Autoload named-let
+
+ * lisp/emacs-lisp/subr-x.el (named-let): Autoload `named-let' for
+ easier use (bug#56473).
+
+2022-07-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix `M-x lisp-fill-paragraph'
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Fix filling
+ when called directly with `M-x lisp-fill-paragraph' instead of via
+ `M-q' (bug#56476).
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Make crm-default-separator obsolete as per FIXME
+
+ * lisp/emacs-lisp/crm.el (crm-default-separator): Make into
+ obsolete variable alias for crm-separator.
+ (crm-separator): Update docstring for above change.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/find-dired.el (find-dired): Doc fix; add crossreference.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Re-add comment on autoloading cookies in preloaded files
+
+ This comment was removed in 2009, but it is useful to explain why
+ we are keeping these autoload cookies.
+ * lisp/bindings.el:
+ * lisp/font-core.el:
+ * lisp/format.el:
+ * lisp/international/mule-cmds.el: Re-add comment on autoloading.
+ * lisp/font-core.el (font-lock-defaults): Re-add autoload cookie,
+ despite the fact that this file is preloaded.
+
+2022-07-11 Stefan Kangas <stefan@marxist.se>
+
+ Prefer :risky defcustom keyword
+
+ * lisp/align.el (align-region-separate, align-rules-list)
+ (align-exclude-rules-list, align-vhdl-rules-list):
+ * lisp/bindings.el (mode-line-percent-position):
+ * lisp/filesets.el (filesets-menu-cache-file, filesets-commands)
+ (filesets-external-viewers, filesets-ingroup-patterns)
+ (filesets-data):
+ * lisp/hi-lock.el (hi-lock-file-patterns-policy):
+ * lisp/mail/mailalias.el (mail-complete-alist)
+ (mail-directory-process, mail-directory-stream)
+ (mail-directory-parser):
+ * lisp/mail/rmail.el (rmail-confirm-expunge):
+ * lisp/mail/sendmail.el (mail-signature):
+ * lisp/mail/supercite.el (sc-cite-frame-alist)
+ (sc-uncite-frame-alist, sc-recite-frame-alist)
+ (sc-default-cite-frame, sc-default-uncite-frame)
+ (sc-default-recite-frame, sc-attrib-selection-list)
+ (sc-rewrite-header-list):
+ * lisp/progmodes/make-mode.el (makefile-special-targets-list):
+ * lisp/so-long.el (so-long-action-alist):
+ * lisp/textmodes/sgml-mode.el (sgml-tag-alist): Prefer defcustom
+ :risky keyword argument to directly setting the 'risky-local-variable'
+ symbol property.
+
+2022-07-11 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify and speed up string-to-multibyte
+
+ * src/character.h (str_to_multibyte):
+ * src/character.c (str_to_multibyte): Change signature and simplify;
+ the conversion is no longer done in-place.
+ * src/fns.c (string_to_multibyte): Drop temporary buffer and memcpy;
+ adapt to new str_to_multibyte signature.
+ * src/print.c (print_string): Drop memcpy; adapt call to
str_to_multibyte.
+ * test/src/fns-tests.el (fns--string-to-unibyte): Rename to...
+ (fns--string-to-unibyte-multibyte): ... this and strengthen, so that
+ the test covers string-to-multibyte reasonably well.
+
+2022-07-11 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Rename 'longlines-breakpoint-chars' to 'longlines-break-chars'
+
+ * etc/NEWS:
+ * lisp/longlines.el (longlines-break-chars): Rename
+ 'longlines-breakpoint-chars' to 'longlines-break-chars'
+ (bug#56335).
+
+2022-07-10 Po Lu <luangruo@yahoo.com>
+
+ Handle errors sending selection decline events asynchronously
+
+ * src/xselect.c (x_decline_selection_request): Handle errors
+ asynchronously.
+ * src/xterm.c (x_ignore_errors_for_next_request)
+ (x_stop_ignoring_errors): Export functions.
+ * src/xterm.h: Update prototypes.
+
+2022-07-10 Matthias Schmitt <male.schmitt@posteo.de>
+
+ Add: 'local' keyword
+
+2022-07-10 Philip Kaludercic <philipk@posteo.net>
+
+ * time-date.el (decoded-time-period): Rename TIME in docstring
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ Remove some ineffectual calls to purecopy
+
+ * lisp/dired.el (dired-chown-program, dired-trivial-filenames):
+ * lisp/emacs-lisp/shortdoc.el (shortdoc--display-function):
+ * lisp/help-fns.el (help-fns--mention-shortdoc-groups):
+ * lisp/mail/mail-extr.el (mail-extr-full-name-prefixes)
+ (mail-extr-all-letters-but-separators, mail-extr-all-letters)
+ (mail-extr-first-letters, mail-extr-last-letters)
+ (mail-extr-bad-dot-pattern, mail-extr-full-name-suffix-pattern)
+ (mail-extr-alternative-address-pattern)
+ (mail-extr-trailing-comment-start-pattern)
+ (mail-extr-name-pattern, mail-extr-telephone-extension-pattern)
+ (mail-extr-ham-call-sign-pattern, mail-extr-normal-name-pattern)
+ (mail-extr-two-name-pattern)
+ (mail-extr-listserv-list-name-pattern)
+ (mail-extr-stupid-vms-date-stamp-pattern)
+ (mail-extr-hz-embedded-gb-encoded-chinese-pattern)
+ (mail-extr-x400-encoded-address-pattern)
+ (mail-extr-x400-encoded-address-field-pattern-format)
+ (mail-extr-x400-encoded-address-surname-pattern)
+ (mail-extr-x400-encoded-address-given-name-pattern)
+ (mail-extr-x400-encoded-address-full-name-pattern): Remove
+ ineffectual calls to purecopy.
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ Rename new option to browse-url-default-scheme
+
+ * lisp/net/browse-url.el (browse-url-default-scheme): Rename from
+ 'browse-url-guess-default-scheme'. Update caller.
+ Suggested by Eli Zaretskii <eliz@gnu.org>.
+
+2022-07-10 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up string-to-unibyte
+
+ * src/character.h (str_to_unibyte):
+ * src/character.c (str_to_unibyte): Remove.
+ * src/fns.c (Fstring_to_unibyte): Ditch the call to str_to_unibyte and
+ the unnecessary heap allocation. Write new, faster code.
+ * test/src/fns-tests.el (fns--string-to-unibyte): New test.
+
+2022-07-10 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp test environment on hydra.nixos.org
+
+ * lisp/emacs-lisp/ert-x.el (tramp-remote-path): Declare. Adapt
+ `tramp-remote-path' on hydra. (Bug#56424)
+
+ * test/lisp/dnd-tests.el (dnd-tests-begin-drag-files): Remove
instrumentation.
+
+ * test/lisp/filenotify-tests.el:
+ * test/lisp/shadowfile-tests.el:
+ * test/lisp/net/tramp-tests.el: Do not adapt `tramp-remote-path'.
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ Don't use purecopy in dictionary.el
+
+ * lisp/net/dictionary.el (dictionary-pre-buffer)
+ (dictionary-display-dictionary-line)
+ (dictionary-display-more-info, dictionary-display-strategy-line)
+ (dictionary-display-match-lines): Don't use purecopy; it has no
+ effect here.
+
+2022-07-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/dired.c (directory_files_internal): Update comment
+
+2022-07-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/dired.c (directory_files_internal): Fix bug#56469
+
+ Avoid concatenating encoded and decoded file names.
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ New user option browse-url-guess-default-scheme
+
+ * lisp/net/browse-url.el (browse-url-guess-default-scheme): New
+ user option.
+ (browse-url-url-at-point): Use above new user option.
+
+2022-07-10 Michael Albinus <michael.albinus@gmx.de>
+
+ * doc/misc/tramp.texi (Frequently Asked Questions): Fix formatting.
+
+2022-07-10 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to WM_DELETE_WINDOW handling
+
+ * src/xterm.c (handle_one_xevent): Only handle WM_DELETE_WINDOW
+ to toplevel windows, and set event timestamp.
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ Make browse-url.el support for plain "mozilla" obsolete
+
+ * lisp/net/browse-url.el (browse-url-mozilla-program)
+ (browse-url-mozilla-arguments)
+ (browse-url-mozilla-startup-arguments)
+ (browse-url-mozilla-new-window-is-tab, browse-url-mozilla)
+ (browse-url-mozilla-sentinel): Make obsolete. (Bug#56464)
+ (browse-url--browser-defcustom-type, browse-url-default-browser):
+ Don't refer to above obsolete function 'browse-url-mozilla'.
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/browse-url.el: Improve commentary.
+
+2022-07-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the startup.el behavior when 'face-font-rescale-alist' is non-nil
+
+ * lisp/startup.el (command-line-1, normal-top-level): Reset the
+ default face's font only if 'face-font-rescale-alist' affects that
+ face's font. For the use case where it matters, see
+ https://lists.gnu.org/archive/html/emacs-devel/2022-07/msg00157.html.
+ Make the 'inhibit-startup-screen' and non-inhibit branches behave
+ the same in that case.
+
+2022-07-10 Po Lu <luangruo@yahoo.com>
+
+ Fix build with old sqlite libraries
+
+ * src/sqlite.c (Fsqlite_open): Don't use SQLITE_OPEN_FULLMUTEX
+ if not defined.
+
+2022-07-10 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up 'find_automatic_composition'
+
+ * src/composite.c (find_automatic_composition): Limit search
+ backward in buffers to the first newline. Fix commentary.
+
+2022-07-10 Po Lu <luangruo@yahoo.com>
+
+ Don't sync for errors setting up DND targets and toplevels
+
+ * src/xterm.c (xm_setup_dnd_targets, x_dnd_free_toplevels)
+ (x_dnd_compute_toplevels): Avoid catching errors synchronously.
+
+2022-07-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 115261b323 ; Improve wording of recently-changed doc strings.
+
+2022-07-09 Po Lu <luangruo@yahoo.com>
+
+ Make `x-no-window-manager' cover user time as well
+
+ * src/xterm.c (x_update_frame_user_time_window):
+ (x_wm_supports_1): Respect `x-no-window-manager'. This makes
+ testing some features easier.
+
+2022-07-09 Glenn Morris <rgm@gnu.org>
+
+ * test/Makefile.in (WRITE_LOG): Always be verbose on hydra.nixos.
+
+2022-07-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Make STRING_SET_MULTIBYTE an inline function
+
+ * src/lisp.h (STRING_SET_MULTIBYTE): Make it into a function.
+
+ * src/composite.c (Fcomposition_get_gstring):
+ Prefer `make_multibyte_string` over Fconcat+STRING_SET_MULTIBYTE.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Exclude platform specific browsers from custom type
+
+ * lisp/net/browse-url.el (browse-url--browser-defcustom-type):
+ Don't include platform specific browsers on other platforms.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/eww.el (eww): Improve docstring.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Make browse-url-default-browser fall back to EWW
+
+ * lisp/net/browse-url.el (browse-url-default-browser): Fall back
+ to EWW.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Drop support for the dead third-party w3 package
+
+ The w3 package was removed from GNU ELPA in 2020 as it doesn't run on
+ a recent Emacs, and development had stopped over a decade before that.
+ If anyone wants to revive the w3 package, they should look this all
+ over, but it doesn't make sense for us to maintain this support code.
+ Ref: https://debbugs.gnu.org/25395
+
+ * lisp/net/browse-url.el (browse-url-w3): Make obsolete.
+ (browse-url--browser-defcustom-type)
+ (browse-url-default-browser):
+ * lisp/ffap.el (ffap-url-at-point, ffap-file-at-point):
+ * lisp/net/newst-plainview.el (newsticker--buffer-do-insert-text):
+ * lisp/net/newst-reader.el (newsticker-html-renderer)
+ (newsticker-show-news):
+ * lisp/net/newst-treeview.el (newsticker--treeview-render-text):
+ * lisp/org/ol.el (org-store-link):
+ * lisp/url/url.el (url-retrieve): Remove w3 support code and related
+ documentation and comments. (Bug#56435)
+
+ * test/lisp/net/browse-url-tests.el
+ (browse-url-tests-browser-kind): Adjust test for above changes.
+
+ * etc/TODO: Remove TODO to install W3.
+ * doc/misc/org.org (Handling Links): Don't mention W3.
+ * lisp/msb.el (msb--few-menus, msb--very-many-menus): Check for
+ eww-mode instead of w3-mode.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Improve introductory section of TRAMP manual
+
+ * doc/misc/tramp.texi (Top, Overview): Explain what TRAMP is
+ without contrasting to Ange FTP. (Bug#56440)
+ (Frequently Asked Questions): Move information on Ange FTP here.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in net/*.el
+
+ * lisp/net/dictionary.el (dictionary-mode-map):
+ * lisp/net/dig.el (dig-mode-map):
+ * lisp/net/eudc-hotlist.el (eudc-hotlist-mode-map):
+ * lisp/net/eudc.el (eudc-mode-map):
+ * lisp/net/mairix.el (mairix-searches-mode-map):
+ * lisp/net/newst-treeview.el
+ (newsticker-treeview-list-sort-button-map)
+ (newsticker-treeview-mode-map):
+ * lisp/net/quickurl.el (quickurl-list-mode-map):
+ * lisp/net/rcirc.el (rcirc-mode-map)
+ (rcirc-multiline-minor-mode-map, rcirc-track-minor-mode-map):
+ * lisp/net/rlogin.el (rlogin-mode-map):
+ * lisp/net/secrets.el (secrets-mode-map):
+ * lisp/net/sieve-mode.el (sieve-mode-map):
+ * lisp/net/sieve.el (sieve-manage-mode-map):
+ * lisp/net/snmp-mode.el (snmp-mode-map):
+ * lisp/net/telnet.el (telnet-mode-map): Prefer defvar-keymap.
+
+2022-07-09 Po Lu <luangruo@yahoo.com>
+
+ Avoid extra sync and atom name query on ending Motif DND
+
+ * src/xterm.c (handle_one_xevent): Use `x_dnd_action_symbol' to
+ set the Motif action instead.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Delete obsolete variable tooltip-use-echo-area
+
+ * lisp/tooltip.el (tooltip-use-echo-area): Delete variable
+ obsolete since 24.1.
+ (tooltip-help-tips):
+ * lisp/progmodes/gud.el (gud-tooltip-process-output)
+ (gud-tooltip-tips): Don't use above deleted variable.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/woman.el (woman-fill-column): Increase default to 70.
+
+ * lisp/mh-e/mh-mime.el (mh-small-show-buffer-p): Double value.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Delete obsolete variable font-lock-maximum-size
+
+ * lisp/font-lock.el (font-lock-maximum-size): Delete variable
+ obsolete since 24.1.
+ (font-lock-initial-fontify):
+ * lisp/mail/rmail.el (rmail-variables):
+ * lisp/mh-e/mh-mime.el (mh-small-show-buffer-p): Don't use above
+ deleted variable.
+ * lisp/font-core.el (font-lock-mode):
+ * lisp/font-lock.el:
+ * lisp/info.el: Don't mention above deleted variable.
+
+2022-07-09 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in 'back_to_previous_visible_line_start'
+
+ * src/xdisp.c (back_to_previous_visible_line_start): Avoid
+ assertion violations when narrowed_begv is in effect.
+
+2022-07-09 Eli Zaretskii <eliz@gnu.org>
+
+ Fix segfault in composite.c
+
+ * src/composite.c (find_automatic_composition): Don't use
+ narrowed_begv if it's zero. This avoids segfault in
+ BACKWARD_CHAR, since zero is not a valid buffer position.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ New command emacs-news-toggle-tag
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-toggle-tag): New
+ command.
+ (emacs-news-mode-map): Bind above new command to "C-c C-t".
+ * test/lisp/textmodes/emacs-news-mode-resources/toggle-tag.erts:
+ * test/lisp/textmodes/emacs-news-mode-tests.el: New files.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Improve ert-test-erts-file documentation
+
+ * lisp/emacs-lisp/ert.el (ert-test-erts-file): Improve docstring.
+ * doc/misc/ert.texi (erts files): Fix typo.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Bind M-G unconditionally in Dired
+
+ * lisp/dired-x.el: Move dired-goto-subdir binding from here...
+ * lisp/dired.el (dired-mode-map): ...to here. (Bug#21981)
+
+ * doc/misc/dired-x.texi (Miscellaneous Commands): Move
+ documentation of above command from here...
+ * doc/emacs/dired.texi (Subdirectory Motion): ...to here.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Move dired-buffer-more-recently-used-p to dired.el
+
+ * lisp/dired-x.el (dired-buffer-more-recently-used-p): Move from
+ here...
+ * lisp/dired.el (dired-buffer-more-recently-used-p): ...to here.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Delete obsolete variable buffer-substring-filters
+
+ * lisp/simple.el (buffer-substring-filters): Delete variable obsolete
+ since 24.1.
+ (buffer-substring--filter): Adjust for deleted variable.
+ * doc/lispref/text.texi (Buffer Contents): Adjust documentation
+ for deleted variable.
+
+2022-07-09 Po Lu <luangruo@yahoo.com>
+
+ Improve drag-and-drop emulation time handling
+
+ * src/xselect.c (x_handle_selection_request): Use
+ display-specific pending DND time.
+ (x_set_pending_dnd_time): Delete function.
+ * src/xterm.c (x_dnd_do_unsupported_drop, handle_one_xevent):
+ Set dpyinfo->pending_dnd_time instead.
+ * src/xterm.h (struct x_display_info): New field
+ `pending_dnd_time'. Make handling pending drops
+ display-specific to avoid interference when there are multiple
+ displays.
+
+2022-07-09 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions handling selection clear events on Haiku
+
+ * src/haiku_select.cc (be_handle_clipboard_changed_message):
+ Include current clipboard count.
+ (be_selection_outdated_p): New function.
+ * src/haikuselect.c (haiku_handle_selection_clear): Ignore
+ outdated events.
+ (haiku_selection_disowned): New argument `count'. Include it in
+ the timestamp field of the selection clear event.
+ * src/haikuselect.h: Update prototypes.
+ * src/systime.h: Define `Time' to an appropriate value on Haiku.
+
+2022-07-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 3442de2edd Doc fix; don't mention obsolete variable
+ c4e251103b ; * lisp/textmodes/rst.el: Update URLs.
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Fix redisplay after running selection hook on Haiku
+
+ * src/haikuselect.c (haiku_handle_selection_clear): Call
+ redisplay_preserve_echo_area.
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Add new minor mode to deactivate the region once PRIMARY is lost
+
+ * doc/emacs/killing.texi (Primary Selection): Document new minor
+ mode `lost-selection-mode'.
+ * etc/NEWS: Announce new minor mode.
+ * lisp/select.el (lost-selection-function): New function.
+ (lost-selection-mode): New global minor mode.
+
+2022-07-08 jgart <47760695+jgarte@users.noreply.github.com> (tiny change)
+
+ Add support for jedi-language-server
+
+ * eglot.el (eglot-server-programs): Add jedi-language-server
+
+ * README.md: Mention jedi-language-server
+
+ * NEWS.md: Mention jedi-language-server
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/961
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Speed up querying for window manager support
+
+ * src/xterm.c (handle_one_xevent): Clear net_supported_window if
+ it is destroyed.
+ (x_get_wm_check_window): New function.
+ (x_wm_supports_1): First try net_supported_window. If it still
+ exists, don't ask for _NET_SUPPORTING_WM_CHECK.
+
+2022-07-08 Gregory Heytings <gregory@heytings.org>
+
+ Fix typo in 1792cbaddc.
+
+2022-07-08 Gregory Heytings <gregory@heytings.org>
+
+ Actually fix the long lines display bug (bug#56393).
+
+ * src/dispextern.h (struct it): New 'narrowed_begv' field.
+
+ * src/dispextern.h (WITH_NARROWED_BEGV): New macro.
+
+ * src/xdisp.c (get_narrowed_begv): New function.
+ (init_iterator): Initilize the 'narrowed_begv' field.
+ (back_to_previous_line_start, get_visually_first_element,
+ move_it_vertically_backward): Use the new macro.
+
+ * src/dispextern.h: Prototype of 'get_narrowed_begv'.
+
+ * src/window.c (window_body_height): Make it externally visible.
+
+ * src/window.h: Prototype of 'window_body_height'.
+
+ * src/composite.c (find_automatic_composition): Optimize display in
buffers
+ with very long lines with 'get_narrowed_begv'.
+
+ * lisp/obsolete/longlines.el: Reobsolete longlines-mode.
+
+ * etc/NEWS: Announce the new minor mode, and remove the unobsoletion
+ indication for 'longlines-mode'.
+
+ * doc/emacs/trouble.texi (Long Lines): Remove the section.
+ (Lossage): Remove the entry for the Long Lines section.
+
+ * doc/emacs/emacs.texi (Top): Remove the entry for the Long Lines
section.
+
+2022-07-08 Gregory Heytings <gregory@heytings.org>
+
+ Revert commit 38b3780f6e.
+
+ Revert commits 9ea9533f17, c0c4600ece, 7b19ce51fc, 051d2a1e36 and
eb6d2fb58d.
+
+2022-07-08 Alan Mackenzie <acm@muc.de>
+
+ Remove now unused parameter TRACK from do_switch_frame.
+
+ * src/lisp.h (extern do_swith_frame declaration)
+ * src/frame.c (do_switch_frame): Remove parameter TRACK and its comment.
+ * src/frame.c (Fselect_frame, Fhandle_switch_frame, delete_frame)
+ * src/keyboard.c (quit_throw_to_read_char)
+ * src/minibuf.c (read_minibuf_unwind (twice))
+ * src/window.c (Fset_window_configuration): Remove argument TRACK.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Doc fix; don't mention obsolete variable
+
+ * src/window.c (Fset_window_hscroll): Doc fix; don't mention obsolete
+ variable.
+
+2022-07-08 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el (isearch-search-fun-in-noncontiguous-region): New
function.
+
+ (isearch-search-fun-in-text-property): Refactor body to
+ 'search-within-boundaries', then call it (bug#14013).
+ (search-within-boundaries): New function refactored from
+ isearch-search-fun-in-text-property.
+
+ * test/lisp/isearch-tests.el: Add tests for new search functions.
+ (isearch--test-search-within-boundaries): New function.
+ (isearch--test-search-fun-in-text-property)
+ (isearch--test-search-fun-in-noncontiguous-region): New tests.
+
+2022-07-08 Juri Linkov <juri@linkov.net>
+
+ Display the number of invisible matches for isearch-lazy-count
(bug#40808)
+
+ * lisp/isearch.el (lazy-count-invisible-format): New variable.
+ (isearch-mode): Set isearch-lazy-count-invisible to nil.
+ (isearch-lazy-count-format): Use lazy-count-invisible-format and
+ isearch-lazy-count-invisible.
+ (isearch-range-invisible): Handle the value 'can-be-opened' of
+ 'search-invisible' and don't open overlays for it, just check
+ if these overlays can be opened.
+ (isearch-lazy-count-invisible): New variable.
+ (isearch-lazy-highlight-new-loop): Set isearch-lazy-count-invisible to
nil.
+ (isearch-lazy-highlight-search): Let-bind search-invisible either to t
+ for non-nil isearch-lazy-count, or to 'can-be-opened'.
+ (isearch-lazy-highlight-match): Don't highlight matches intended
+ to be counted only, not highlighted.
+ (isearch-lazy-highlight-buffer-update): Separately count invisible
+ matches by isearch-lazy-count-invisible.
+
+ * lisp/info.el (Info-isearch-filter): Check if search-invisible is t.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Don't mention moved variable in dired-x manual
+
+ * doc/misc/dired-x.texi (Technical Details): Remove mention of
+ 'dired-clean-up-buffers-too'; it has been moved to dired.el.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Delete redundant defgroup dired-keys
+
+ * lisp/dired-x.el (dired-keys): Delete defgroup.
+ (dired-bind-vm): Move to :group dired-x.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Move dired-do-relsymlink from dired-x.el to dired.el
+
+ * lisp/dired-x.el (dired-do-relsymlink, dired-make-relative-symlink)
+ (dired-do-relsymlink-regexp): Move from here...
+ * lisp/dired-aux.el (dired-do-relsymlink, dired-make-relative-symlink)
+ (dired-do-relsymlink-regexp): ...to here. (Bug#21981)
+
+ * lisp/dired-x.el: Move keybinding and menu binding from here...
+ * lisp/dired.el (dired-mode-map, dired-mode-regexp-menu): ...to
+ here.
+
+ * lisp/dired-x.el (dired-keep-marker-relsymlink): Move from here...
+ * lisp/dired.el (dired-keep-marker-relsymlink): ...to here. Improve
+ docstring.
+
+ * doc/misc/dired-x.texi (Miscellaneous Commands): Move
+ documentation of above commands from here...
+ * doc/emacs/dired.texi (Operating on Files)
+ (Transforming File Names): ...to here.
+
+2022-07-08 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/ruby-mode.el (ruby-mode): Set outline-regexp,
outline-level.
+
+ Suggested by Yilkal Argaw <yilkalargawworkneh@gmail.com>.
+
+2022-07-08 Mattias Engdegård <mattiase@acm.org>
+
+ Remove unused member of internal struct
+
+ * src/fns.c (struct textprop_rec, concat_to_string): Remove `from`.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/dired.el (dired-jump-map): Bind also "j" to dired-jump.
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Ensure correct position is returned after child frame movement
+
+ * src/xterm.c (x_set_offset): Synchronize child frame movement
+ correctly.
+
+2022-07-08 Mattias Engdegård <mattiase@acm.org>
+
+ Fix file-name-case-insensitive-p in ffap (bug#56443)
+
+ Don't crash if the file name argument to file-name-case-insensitive-p,
+ after expansion, doesn't have a parent directory. This occurs
+ when calling ffap on something that looks like an email address.
+
+ * src/fileio.c (Ffile_name_case_insensitive_p): Return nil if no file
+ or parent directory could be found.
+ * test/src/fileio-tests.el (fileio-tests--identity-expand-handler)
+ (fileio--file-name-case-insensitive-p): New test.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove many items obsolete since 24.1
+
+ * lisp/allout.el (allout-abbreviate-flattened-numbering)
+ (allout-mode-deactivate-hook):
+ * lisp/ansi-color.el (ansi-color-unfontify-region):
+ * lisp/auth-source.el (auth-source-hide-passwords)
+ (auth-source-user-or-password)
+ (auth-source-forget-user-or-password):
+ * lisp/cedet/data-debug.el (data-debug-map):
+ * lisp/cedet/semantic/grammar.el (semantic-grammar-syntax-table)
+ (semantic-grammar-map):
+ * lisp/chistory.el (command-history-map):
+ * lisp/comint.el (comint-dynamic-complete)
+ (comint-dynamic-complete-as-filename)
+ (comint-dynamic-simple-complete):
+ * lisp/dired-x.el (read-filename-at-point)
+ (dired-x-submit-report):
+ * lisp/dos-fns.el (register-name-alist, make-register)
+ (register-value, set-register-value, intdos, mode25, mode4350):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-disable-print-circle):
+ * lisp/emacs-lisp/chart.el (chart-map):
+ * lisp/emacs-lisp/package.el (package-menu-view-commentary):
+ * lisp/emacs-lock.el (toggle-emacs-lock, emacs-lock-from-exiting):
+ * lisp/erc/erc.el (erc-complete-word):
+ * lisp/eshell/em-cmpl.el (eshell-cmpl-suffix-list):
+ * lisp/eshell/esh-util.el (eshell-for):
+ * lisp/files.el (inhibit-first-line-modes-regexps)
+ (inhibit-first-line-modes-suffixes):
+ * lisp/gnus/gnus-msg.el (gnus-outgoing-message-group)
+ (gnus-debug-files, gnus-debug-exclude-variables):
+ * lisp/gnus/gnus-registry.el (gnus-registry-user-format-function-M):
+ * lisp/gnus/gnus.el (gnus-local-domain, gnus-carpal):
+ * lisp/gnus/nnimap.el (nnimap-split-rule):
+ * lisp/iimage.el (turn-on-iimage-mode):
+ * lisp/image.el (image-extension-data, image-library-alist):
+ * lisp/mail/emacsbug.el (report-emacs-bug-pretest-address):
+ * lisp/mail/mail-utils.el (rmail-dont-reply-to):
+ * lisp/mail/mailalias.el (mail-complete-function)
+ (mail-completion-at-point-function):
+ * lisp/mail/rmail.el (rmail-dont-reply-to-names)
+ (rmail-default-dont-reply-to-names):
+ * lisp/mail/sendmail.el (mail-mailer-swallows-blank-line)
+ (mail-sent-via):
+ * lisp/menu-bar.el (menu-bar-kill-ring-save):
+ * lisp/minibuffer.el (completion-annotate-function)
+ (minibuffer-local-filename-must-match-map):
+ * lisp/msb.el (msb-after-load-hooks):
+ * lisp/obsolete/eieio-compat.el (eieio-defmethod)
+ (eieio-defgeneric):
+ * lisp/obsolete/info-edit.el (Info-edit-map):
+ * lisp/obsolete/starttls.el (starttls-any-program-available):
+ * lisp/progmodes/cfengine.el (cfengine-mode-abbrevs):
+ * lisp/progmodes/cwarn.el (turn-on-cwarn-mode):
+ * lisp/progmodes/make-mode.el (makefile-complete):
+ * lisp/progmodes/meta-mode.el (meta-complete-symbol)
+ (meta-mode-map):
+ * lisp/progmodes/pascal.el (pascal-toggle-completions)
+ (pascal-last-completions, pascal-show-completions):
+ * lisp/progmodes/prolog.el (prolog-char-quote-workaround):
+ * lisp/progmodes/which-func.el (which-func-mode): [FUNCTION]
+ * lisp/simple.el (count-lines-region, minibuffer-completing-symbol):
+ * lisp/speedbar.el (speedbar-syntax-table, speedbar-key-map):
+ * lisp/strokes.el (strokes-report-bug):
+ * lisp/subr.el (condition-case-no-debug):
+ * lisp/term/ns-win.el (ns-alternatives-map)
+ (ns-store-cut-buffer-internal):
+ * lisp/term/w32-win.el (w32-default-color-map):
+ * lisp/term/x-win.el (x-cut-buffer-or-selection-value):
+ * lisp/textmodes/bibtex.el (bibtex-complete)
+ (bibtex-entry-field-alist):
+ * lisp/textmodes/reftex-index.el (reftex-index-map)
+ (reftex-index-phrases-map):
+ * lisp/textmodes/reftex-sel.el (reftex-select-label-map)
+ (reftex-select-bib-map):
+ * lisp/textmodes/reftex-toc.el (reftex-toc-map):
+ * lisp/textmodes/rst.el (rst-block-face, rst-external-face)
+ (rst-definition-face, rst-directive-face, rst-comment-face)
+ (rst-emphasis1-face, rst-emphasis2-face, rst-literal-face)
+ (rst-reference-face):
+ * lisp/vc/vc-hooks.el (vc-toggle-read-only):
+ * lisp/view.el (view-return-to-alist)
+ (view-return-to-alist-update): Remove many functions and variables
+ obsolete since 24.1.
+
+ * lisp/textmodes/bibtex.el (bibtex-entry-alist): Don't use above
+ removed variable 'bibtex-entry-field-alist'.
+ * lisp/cedet/data-debug.el (data-debug-edebug-expr)
+ (data-debug-eval-expression):
+ * lisp/emacs-lisp/trace.el (trace--read-args):
+ * lisp/files-x.el (read-file-local-variable-value):
+ * lisp/simple.el (read--expression): Don't use above removed variable
+ 'minibuffer-completing-symbol'.
+ * lisp/textmodes/rst.el (rst-font-lock-keywords): Don't use above
+ removed variables.
+ * src/w32fns.c (Fw32_default_color_map): Delete obsolete function.
+ (syms_of_w32fns): Delete defsubr for above defun.
+ * src/keyboard.c (syms_of_keyboard) <Vdeferred_action_list>
+ <Vdeferred_action_function>: Delete DEFVARs.
+ <Qdeferred_action_function>: Delete DEFSYM.
+ (syms_of_keyboard_for_pdumper): Adjust for above change.
+ (command_loop_1): Don't run deferred-action-function hook.
+ * lisp/subr.el (deferred-action-list, deferred-action-function):
+ Delete obsoletion statements.
+ * lisp/emacs-lisp/ert-x.el (ert-simulate-command): Don't run
+ 'deferred-action-list' hook.
+ * doc/lispref/hooks.texi (Standard Hooks): Delete
+ 'deferred-action-function'.
+
+ * lisp/emacs-lisp/lisp.el (field-complete):
+ * lisp/eshell/em-cmpl.el (eshell-cmpl-initialize):
+ * lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc):
+ * lisp/gnus/nnmail.el (nnmail-fancy-expiry-target):
+ * lisp/mail/mail-utils.el (mail-dont-reply-to):
+ * lisp/mail/sendmail.el (sendmail-send-it):
+ * lisp/mail/smtpmail.el (smtpmail-send-it):
+ * lisp/minibuffer.el (minibuffer-completion-help):
+ * lisp/progmodes/python.el: Don't use above removed items.
+ * lisp/emacs-lisp/eieio-core.el:
+ * lisp/mail/mailalias.el (mail-complete-alist): Doc fixes; don't refer
+ to above removed items.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Put safe-local-variable property on auto-insert
+
+ * lisp/autoinsert.el (auto-insert): Put safe-local-variable
+ property to allow disabling auto-inserting without a warning.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Stop ffap-machine-at-point from pinging random hosts
+
+ Having this on by default is highly problematic from a security and
+ privacy standpoint, as it risks having outgoing traffic that could
+ potentially reveal sensitive data (passwords, names, etc.).
+
+ It also seems to be causing issues for users, see e.g.
+ https://github.com/emacs-helm/helm/issues/648
+
+ * lisp/ffap.el (ffap-machine-p-known): Change default to 'accept'.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Add :safe property to ffap-machine-p-* variables
+
+ * lisp/ffap.el (ffap--accept-or-reject-p): New predicate defun.
+ (ffap-machine-p-local, ffap-machine-p-known)
+ (ffap-machine-p-unknown): Add :safe property using above new
+ predicate.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Add tests for mail-extr.el
+
+ * test/lisp/mail/mail-extr-tests.el: New file.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Avoid obsolete initial-input argument in net-utils.el
+
+ * lisp/net/net-utils.el (ping, nslookup-host, dns-lookup-host)
+ (run-dig, ftp, smbclient, smbclient-list-shares, finger)
+ (network-connection-to-service): Don't use obsolete initial-input
+ argument. Use 'format-prompt'. (Bug#56436)
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Improve behavior of sticky tooltips on Haiku
+
+ * src/haiku_support.cc (class EmacsView, MouseMoved): Remove
+ `tooltip_position'.
+ (class EmacsMotionSuppressionView): New class.
+ (BView_set_and_show_sticky_tooltip): Rename to
+ `be_show_sticky_tooltip'. Add motion suppression view.
+
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (Fx_show_tip): Update for renamed function.
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Fix flickering system tooltips on Haiku
+
+ * src/haiku_support.cc (class EmacsView, MouseMoved): Restore
+ sticky status and mouse relative position.
+ (BView_set_and_show_sticky_tooltip):
+ * src/haikufns.c (haiku_hide_tip): Fix coding style.
+
+2022-07-08 Eli Zaretskii <eliz@gnu.org>
+
+ * src/xdisp.c (set_vertical_scroll_bar): Remove stale comment.
+
+2022-07-08 Eli Zaretskii <eliz@gnu.org>
+
+ Fix calculation of the vertical scroll bar's thumb
+
+ * src/xdisp.c (set_vertical_scroll_bar): Compute window's end
+ position "by hand" if w->window_end_pos cannot be relied upon.
+
+2022-07-08 Po Lu <luangruo@yahoo.com>
+
+ Reduce synchronization setting frame alpha
+
+ * src/xterm.c (x_set_frame_alpha): Don't synchronize while
+ setting alpha property, and don't ask for the current value of
+ the opacity property, which is much more expensive than changing
+ it.
+
+2022-07-08 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 2ac0ddc4ac ; * lisp/net/net-utils.el: Minor doc fixes.
+
+2022-07-07 Po Lu <luangruo@yahoo.com>
+
+ Fix returned action symbol upon "xterm" drop
+
+ * src/xterm.c (x_dnd_do_unsupported_drop): Set
+ x_dnd_action_symbol.
+ (x_dnd_begin_drag_and_drop): Don't clear it afterwards.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/emacs-lisp/ert.el (Commentary): Refer to the Info manual.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ Prefer keymap inheritance in shr-image-map
+
+ * lisp/net/shr.el (shr-image-map): Replace copy-keymap with
+ inheritance.
+
+2022-07-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make imenu--create-keymap more resilient
+
+ * lisp/imenu.el (imenu--create-keymap): Ignore nil items in the
+ alist (bug#56430).
+
+2022-07-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix buffer-tests
+
+ * test/src/buffer-tests.el (test-restore-buffer-modified-p): Don't
+ assume turning on auto-save-mode cannot auto-save immediately.
+
+2022-07-07 Mattias Engdegård <mattiase@acm.org>
+
+ Faster append and vconcat
+
+ By separating the code paths for append and vconcat, each becomes
+ simpler and faster.
+
+ * src/fns.c (concat_strings): Rename to...
+ (concat_to_string): ...this.
+ (concat): Split into concat_to_list and concat_to_vector.
+ (concat_to_list, concat_to_vector): New, specialised and
+ streamlined from earlier combined code.
+ (concat2, concat3, Fappend, Fconcat, Fvconcat): Adjust calls.
+
+2022-07-07 Alan Mackenzie <acm@muc.de>
+
+ Remove obscure, obsolete code from do_switch_frame
+
+ This is relevant for bug #56305, and might solve that bug. The code
being
+ removed went into Emacs between 1992 and 1994, and looks to have been a
+ workaround for switching frames, before the command 'other-frame' had
been
+ written. Nowadays, that code has harmful effects, causing frames'
focus to be
+ redirected at random, sometimes back to the frame itself.
+
+ * src/frame.c (do_switch_frame): Remove 53 lines of code.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/dig.el (dig): Provide default.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ Make net-utils-url at point funs obsolete in favor of ffap
+
+ * lisp/net/net-utils.el (net-utils-machine-at-point)
+ (net-utils-url-at-point): Redefine as obsolete function alias for
+ 'ffap-machine-at-point' and 'ffap-url-at-point'. Update callers.
+ * lisp/ffap.el (ffap-machine-at-point, ffap-url-at-point): Autoload.
+
+2022-07-07 Po Lu <luangruo@yahoo.com>
+
+ Fix selection disowning upon frame deletion on Wayland
+
+ * src/pgtkselect.c (pgtk_clear_frame_selections): Manually
+ disown cleared selections. (bug#56434)
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/eww.el (eww-browse-url): Add 'browser-kind' property.
+
+ * lisp/woman.el (woman): Fix comment; don't mention gnudoit.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ Make two XEmacs related variables obsolete
+
+ * lisp/net/browse-url.el (browse-url-gnudoit-program)
+ (browse-url-gnudoit-args): Make obsolete. The corresponding command
+ 'browse-url-w3-gnudoit' is already obsolete since 25.1.
+
+2022-07-07 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK build
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Update GTK quitting
+ code for last change too. Reported by Norbert Koch
+ <viteno@netic.de>.
+
+2022-07-07 João Távora <joaotavora@gmail.com>
+
+ Prevent desktop.el from saving/restoring eglot--managed-mode
+
+ Although desktop.el compatibility is Emacs
bughttps://github.com/joaotavora/eglot/issues/56407, the optimal
+ solution agreed to there is a bit more work than what I have time to
+ right now. See e.g.
+
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=bug%2356407https://github.com/joaotavora/eglot/issues/68.
For
+ now, just use `with-eval-after-load'
+
+ * eglot.el (Hacks desktop): Add eglot--managed-mode to
+ desktop-minor-mode-handlers
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/990
+
+2022-07-07 João Távora <joaotavora@gmail.com>
+
+ Apply any additionaltextedits unconditionally
+
+ * eglot.el (eglot-completion-at-point): Apply any
+ additionalTextEdits unconditionally.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/981
+
+2022-07-07 Po Lu <luangruo@yahoo.com>
+
+ Fix quitting out of selection converters during drag and drop
+
+ * src/xterm.c (x_dnd_process_quit): New function.
+ (x_dnd_begin_drag_and_drop): Use it instead. Also quit if
+ quit-flag is true immediately after a selection converter is
+ run.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ Mark comint modes in net-utils.el as non-interactive
+
+ * lisp/net/net-utils.el (net-utils-mode, nslookup-mode, ftp-mode)
+ (smbclient-mode, network-connection-mode): Mark as non-interactive.
+ (nslookup-mode-map, ftp-mode-map): Prefer defvar-keymap.
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ Make 'run-dig' command obsolete in favor of 'dig'
+
+ * lisp/net/net-utils.el (run-dig): Redefine in terms of `dig' and make
+ obsolete. (Bug#56432).
+ (dig-program): Delete duplicate defcustom; it is also in dig.el.
+ (dig-program-options): Move from here...
+ * lisp/net/dig.el (dig-program-options): ...to here.
+ (dig-invoke): Respect 'dig-program-options'.
+ (dig): Prompt for DNS server when given double prefix argument.
+
+2022-07-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix undo of changes in cloned indirect buffers
+
+ * lisp/simple.el (primitive-undo): If the visited-modtime of the
+ indirect buffer's file is bogus, use the modtime of the file
+ visited by its base buffer.
+
+ * src/undo.c (record_first_change): Call
+ 'buffer_visited_file_modtime' with the correct buffer, instead of
+ always calling 'Fvisited_file_modtime', which returns possibly
+ bogus values for indirect buffers.
+ * src/fileio.c (Fset_visited_file_modtime): Signal a meaningful
+ error for indirect buffers.
+ (buffer_visited_file_modtime): New function, with implementation
+ taken from 'Fvisited_file_modtime'.
+ (Fvisited_file_modtime): Call 'buffer_visited_file_modtime'.
+ * src/lisp.h: Add prototype for 'buffer_visited_file_modtime'.
+ (Bug#56397)
+
+2022-07-07 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/dig.el (dig-exit): Mark for 'dig-mode'.
+
+2022-07-07 Visuwesh <visuweshm@gmail.com>
+
+ Make the Indian itrans methods more phonetic
+
+ The characters ऋ and ॠ are pronunced as ru in languages such as
+ Marathi, Gujarati, Telugu, etc. so add new translation rules that
+ reflects this sound. (bug#56414)
+
+ * lisp/language/ind-util.el (indian-itrans-v5-table): Add new
+ translation rules to make the input method more phonetic.
+ (indian-tml-base-table, indian-tml-base-digits-table): Fix typo.
+
+2022-07-07 Juri Linkov <juri@linkov.net>
+
+ Don't accumulate trailing newlines on every save of .dir-locals.el
+
+ * lisp/files-x.el (modify-dir-local-variable): Insert a newline
+ only after creating a new file.
+ (dir-locals-to-string): Remove newline to not add more newlines
+ on every save.
+
+2022-07-07 Po Lu <luangruo@yahoo.com>
+
+ Fix `trace-function' default buffer
+
+ * lisp/emacs-lisp/trace.el (trace--read-args): Don't use
+ format-prompt; instead, use DEF arg to read-buffer.
+
+2022-07-06 Sean Whitton <spwhitton@spwhitton.name>
+
+ gnus-advanced-body: Fix return value
+
+ * gnus-logic.el (gnus-advanced-body): Return whether the search
+ succeeded, not the value of one of the cleanup forms.
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Fix NS build
+
+ * src/keyboard.c (process_special_events): Don't define copy and
+ moved events on the wrong toolkit.
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Port `x-lost-selection-functions' to Haiku
+
+ * src/haiku_io.c (haiku_len): Add `CLIPBOARD_CHANGED_EVENT'.
+ * src/haiku_select.cc (be_update_clipboard_count): Set ownership
+ flags.
+ (be_handle_clipboard_changed_message):
+ (be_start_watching_selection): New functions.
+
+ * src/haiku_support.cc (class Emacs): Handle
+ B_CLIPBOARD_CHANGED.
+
+ * src/haiku_support.h (enum haiku_event_type): New event
+ `CLIPBOARD_CHANGED_EVENT'.
+ (struct haiku_clipboard_changed_event): New struct.
+
+ * src/haikuselect.c (haiku_handle_selection_clear)
+ (haiku_selection_disowned, haiku_start_watching_selections): New
+ functions.
+ (syms_of_haikuselect): New defsym and defvar.
+
+ * src/haikuselect.h: Update prototypes.
+ * src/haikuterm.c (haiku_read_socket): Handle selection events.
+ (haiku_term_init): Start watching selections.
+ * src/haikuterm.h: Update prototypes.
+ * src/keyboard.c (kbd_buffer_get_event, process_special_events)
+ (mark_kboards): Handle SELECTON_CLEAR_EVENTs correctly on Haiku.
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Avoid excessive synchronization performing "xterm" drops
+
+ * src/xterm.c (x_dnd_do_unsupported_drop): Asynchronously catch
+ errors around XSendEvent.
+
+2022-07-06 Stefan Kangas <stefan@marxist.se>
+
+ End new .dir-locals.el files with a newline
+
+ * lisp/files-x.el (dir-locals-to-string): Add newline at the end of
+ newly created .dir-locals.el files. This avoids git complaining about
+ "No newline at end of file".
+
+2022-07-06 Stefan Kangas <stefan@marxist.se>
+
+ Autoload safe local property for plstore-encrypt-to
+
+ * lisp/plstore.el (plstore-encrypt-to): Autoload 'safe-local-variable'
+ property for improved security.
+
+2022-07-06 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defcustom :safe to putting 'safe-local-variable'
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-indent-offset)
+ (lisp-body-indent, emacs-lisp-docstring-fill-column):
+ * lisp/files.el (version-control):
+ * lisp/progmodes/modula2.el (m2-indent):
+ * lisp/progmodes/octave.el (octave-block-offset):
+ * lisp/progmodes/sh-script.el (sh-basic-offset):
+ * lisp/progmodes/tcl.el (tcl-indent-level)
+ (tcl-continued-indent-level):
+ * lisp/simple.el (fill-prefix):
+ * lisp/textmodes/fill.el (colon-double-space):
+ * lisp/textmodes/paragraphs.el (paragraph-start)
+ (paragraph-separate, sentence-end-double-space)
+ (sentence-end-without-period, sentence-end-without-space)
+ (sentence-end, sentence-end-base, page-delimiter)
+ (paragraph-ignore-fill-prefix):
+ * lisp/textmodes/tex-mode.el (tex-fontify-script):
+ * lisp/vc/add-log.el (add-log-dont-create-changelog-file):
+ * lisp/vc/vc-hooks.el (vc-follow-symlinks): Prefer defcustom :safe to
+ putting 'safe-local-variable'.
+
+2022-07-06 Juri Linkov <juri@linkov.net>
+
+ * lisp/repeat.el (describe-repeat-maps): Handle non-symbol keymap
(bug#21634).
+
+2022-07-06 Juri Linkov <juri@linkov.net>
+
+ Add new args MESSAGE and TIMEOUT to set-transient-map (bug#21634)
+
+ * lisp/subr.el (set-transient-map): Add new args MESSAGE and TIMEOUT.
+ (set-transient-map-timeout, set-transient-map-timer): New variables.
+
+ * lisp/international/emoji.el (emoji-zoom-increase):
+ * lisp/indent.el (indent-rigidly):
+ * lisp/face-remap.el (text-scale-adjust, global-text-scale-adjust):
+ Use the arg MESSAGE of set-transient-map.
+
+ * doc/lispref/keymaps.texi (Controlling Active Maps): Mention new args
+ MESSAGE and TIMEOUT of set-transient-map.
+
+2022-07-06 Stefan Kangas <stefan@marxist.se>
+
+ Make some additional defcustom types more restrictive
+
+ * lisp/desktop.el (desktop-lazy-idle-delay):
+ * lisp/files.el (dired-kept-versions)
+ (kept-old-versions, kept-new-versions):
+ * lisp/filesets.el (filesets-max-submenu-length)
+ (filesets-max-entry-length, filesets-tree-max-level)
+ (filesets-query-user-limit):
+ * lisp/hi-lock.el (hi-lock-file-patterns-range)
+ (hi-lock-highlight-range):
+ * lisp/ido.el (ido-max-work-directory-list):
+ * lisp/image/gravatar.el (gravatar-cache-ttl):
+ * lisp/imenu.el (imenu-auto-rescan-maxout, imenu-max-items):
+ * lisp/informat.el (Info-split-threshold):
+ * lisp/mail/hashcash.el (hashcash-default-payment)
+ (hashcash-default-accept-payment):
+ * lisp/mail/mail-hist.el (mail-hist-history-size):
+ * lisp/mail/smtpmail.el (smtpmail-retries):
+ * lisp/msb.el (msb-display-most-recently-used):
+ * lisp/nxml/rng-valid.el (rng-state-cache-distance)
+ (rng-validate-chunk-size):
+ * lisp/progmodes/gdb-mi.el (gdb-max-source-window-count):
+ * lisp/recentf.el (recentf-arrange-by-rules-min-items):
+ * lisp/simple.el (kill-ring-max, mark-ring-max)
+ (global-mark-ring-max):
+ * lisp/tab-line.el (tab-line-tab-name-truncated-max):
+ * lisp/term.el (term-buffer-maximum-size, term-input-chunk-size):
+ * lisp/thumbs.el (thumbs-max-image-number)
+ (thumbs-thumbsdir-max-size, thumbs-relief, thumbs-margin)
+ (thumbs-image-resizing-step):
+ * lisp/type-break.el (type-break-interval)
+ (type-break-good-rest-interval, type-break-query-interval)
+ (type-break-warning-repeat):
+ * lisp/vc/compare-w.el (compare-windows-sync-string-size):
+ * lisp/woman.el (woman-fill-column): Use defcustom :type natnum.
+
+ * lisp/emacs-lisp/backtrace.el (backtrace-line-length):
+ * lisp/doc-view.el (doc-view-conversion-refresh-interval):
+ Use defcustom :type natnum and allow the nil value.
+
+ * lisp/gnus/spam-stat.el (spam-stat-process-directory-age):
+ Use defcustom :type integer.
+
+2022-07-06 Gregory Heytings <gregory@heytings.org>
+
+ Fix improvement of isearch in auto-narrow-mode.
+
+ * lisp/files.el (auto-narrow--reset-isearch-lazy-highlight): New
internal
+ function.
+ (auto-narrow-pre-command-function, auto-narrow-post-command-function):
Use the
+ new internal function.
+
+2022-07-06 Stefan Kangas <stefan@marxist.se>
+
+ Fix missing :value with defcustom const :type
+
+ * lisp/calendar/calendar.el (calendar-intermonth-header)
+ (calendar-intermonth-text, calendar-date-style):
+ * lisp/calendar/diary-lib.el (diary-face-attrs):
+ * lisp/emacs-lisp/package.el (package-check-signature):
+ * lisp/erc/erc-dcc.el (erc-dcc-get-default-directory):
+ * lisp/gnus/gnus-art.el (gnus-auto-select-part):
+ * lisp/gnus/gnus-cus.el (gnus-agent-parameters):
+ * lisp/gnus/gnus.el (gnus-user-agent):
+ * lisp/mail/rmail.el (rmail-retry-ignored-headers):
+ * lisp/progmodes/sh-script.el (sh-indent-after-continuation):
+ Fix missing :value with defcustom const :type.
+
+2022-07-06 Gregory Heytings <gregory@heytings.org>
+
+ Improve isearch in auto-narrow-mode.
+
+ * lisp/isearch.el (isearch-search): Set isearch-lazy-highlight to nil
before
+ widening in auto-narrow-mode.
+
+ * lisp/files.el (auto-narrow--isearch-lazy-highlight): New internal
variable.
+ (auto-narrow-pre-command-function, auto-narrow-post-command-function):
Use it.
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Fix infinite looping around Haiku menus
+
+ * src/haikumenu.c (haiku_menu_show): Block SIGIO around menu
+ event loop.
+ * src/haikuterm.c (haiku_read_socket): Flush tooltip frames
+ after resize.
+
+2022-07-06 Davide Masserut <dm@mssdvd.com>
+
+ Send region to the subshell specified by the current file interpreter
+
+ * sh-script.el (sh-execute-region): Send region to the subshell
+ specified by the current file interpreter (bug#56406).
+
+2022-07-06 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Remove soft newlines in longlines-mode
+
+ * lisp/longlines.el (longlines-mode, longlines-encode-string): Update
+ from `buffer-substring-filters' to `filter-buffer-substring-function'.
+ Remove soft newlines in substring (bug#56335).
+
+2022-07-06 Gregory Heytings <gregory@heytings.org>
+
+ Various improvements to auto-narrow mode.
+
+ * lisp/files.el (auto-narrow-display-length): Improve docstring.
+ (auto-narrow-widen-automatically): Add 'undo' to the command list.
+ (auto-narrow-hook): New defcustom.
+ (auto-narrow-pre-command-function, auto-narrow-post-command-function):
+ Move initialization code.
+ (auto-narrow-mode): Do not make the 'auto-narrow-mode' permanent local
+ anymore.
+
+ * lisp/font-lock.el (turn-off-font-lock-mode): New convenience function.
+
+ * src/xdisp.c (set_vertical_scroll_bar): Fix typo.
+ (redisplay_window): Use the new convenience function.
+
+ * src/buffer.h (BUFFER_NEEDS_AUTO_NARROWING_P,
+ BUFFER_AUTO_NARROWED_NON_NARROWED_P): Two new convenience functions.
+
+ * src/window.c (Frecenter): Do not recenter auto-narrowed buffers that
+ are not actually narrowed.
+
+ * etc/NEWS: Improvement.
+
+ * doc/emacs/display.texi (Auto-Narrowing): Improvement.
+
+2022-07-06 F. Jason Park <jp@neverwas.me>
+
+ * lisp/erc/erc-track.el (erc-track-minor-mode-map): Doc fix.
+
+2022-07-06 dickmao <dick.r.chiang@gmail.com>
+
+ Use compatibility macro for ISUPPORT caching in ERC
+
+ * lisp/erc/erc-backend.el (erc--with-memoization): Defalias was a
+ kung-fu I've never seen before. (Bug#56340)
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Stop synchronizing after sending XEmbed events
+
+ * src/xterm.c (xembed_send_message): Don't sync and handle
+ errors, which is actually why the XSync call in the spec exists.
+
+2022-07-06 Martin Rudalics <rudalics@gmx.at>
+
+ Fix 'fit-frame-to-buffer' (Bug#56102)
+
+ * lisp/window.el (fit-frame-to-buffer-sizes): Fix doc-string.
+ Give calls to 'max' a second argument so they do something
+ useful. If ONLY equals 'vertically', call
+ 'window-text-pixel-size' with X-LIMIT nil (Bug#56102). For
+ minimum sizes of the window to fit, use 'window-safe-min-size' by
+ default.
+ * doc/lispref/windows.texi (Resizing Windows): Fix descriptions of
+ 'fit-frame-to-buffer' and 'fit-frame-to-buffer-sizes'.
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS build
+
+ * msdos/sedlibmk.inp: Define GL_GNULIB_RAWMEMCHR.
+ * src/process.c (Fsignal_names): Disable on MS-DOS and use
+ SIGNUM_BOUND, which is always provided by gnulib.
+
+2022-07-06 Po Lu <luangruo@yahoo.com>
+
+ Speed up interning XDS atoms
+
+ * src/xselect.c (symbol_to_x_atom, x_atom_to_symbol)
+ (syms_of_xselect): Handle new atoms.
+ * src/xterm.c (x_atom_refs):
+ * src/xterm.h (struct x_display_info): New atoms
+ `XdndDirectSave0', `XdndActionDirectSave' and `text/plain'.
+
+2022-07-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+ * admin/merge-gnulib (AVOIDED_MODULES): Add chmod.
+
+2022-07-06 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 6b5d829d9d Add index entry for "ignore case"
+ 29e1459965 ; * lisp/files.el (remote-file-name-inhibit-cache): Minor ...
+
+2022-07-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Adjust better to Autoconf quoting style change
+
+ * admin/gitmerge.el (gitmerge-emacs-version):
+ * admin/nt/dist-build/build-zips.sh (ACTUAL_VERSION):
+ * admin/quick-install-emacs (VERSION):
+ * lisp/cedet/ede/emacs.el (ede-emacs-version):
+ Adjust to change in configure.ac’s Autoconf quoting style.
+ * etc/srecode/ede-autoconf.srt:
+ * test/lisp/progmodes/autoconf-tests.el:
+ (autoconf-tests-current-defun-function-define)
+ (autoconf-tests-current-defun-function-subst):
+ Use better Autoconf quoting.
+ * make-dist (version): Simplify.
+
+2022-07-05 Po Lu <luangruo@yahoo.com>
+
+ Reduce duplicate code cleaning up DND processes
+
+ * src/xterm.c (x_restore_events_after_dnd): New function.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop): Use
+ that instead of manually cleaning up properties and events.
+
+2022-07-05 Po Lu <luangruo@yahoo.com>
+
+ Don't select for unnecessary properties during DND
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Don't select for
+ property changes when not using toplevels.
+
+2022-07-05 Po Lu <luangruo@yahoo.com>
+
+ Fix announcements of XDND mouse rectangles
+
+ * lisp/x-dnd.el (x-dnd-handle-xdnd): Use correct meaning of "2",
+ which isn't well documented.
+ * src/xterm.c (handle_one_xevent): Likewise. Also fix unpacking
+ of mouse rects.
+
+2022-07-05 Gregory Heytings <gregory@heytings.org>
+
+ Actually fix the long lines display bug (bug#56393).
+
+ * lisp/files.el (auto-narrow-mode): New minor mode.
+ (auto-narrow-pre-command-function, auto-narrow-post-command-function):
+ New auxiliary functions for the minor mode.
+ (auto-narrow-display-length, auto-narrow-widen-automatically): New
+ defcustoms for the minor mode.
+ (auto-narrow--widen-automatically,
auto-narrow--isearch-widen-automatically,
+ auto-narrow--initialized): New internal variables for the minor mode.
+
+ * src/buffer.h (struct buffer): New internal variable for the minor
mode.
+ (bset_auto_narrow__narrowing_state, BUFFER_AUTO_NARROWED_P): New
+ auxiliary functions.
+
+ * src/buffer.c (init_buffer_once, syms_of_buffer): New internal variable
+ for the minor mode. Update the docstring of mode-line-format.
+
+ * src/fileio.c (Finsert_file_contents): Detect whether the minor mode
should
+ be entered when the buffer is displayed.
+ (syms_of_fileio): New defcustom for the minor mode.
+
+ * src/keyboard.c (syms_of_keyboard): New hook functions for the minor
mode.
+ (command_loop_1): Execute the hook functions.
+
+ * src/xdisp.c (redisplay_window): Enter the minor mode when the buffer
is
+ displayed.
+ (decode_mode_spec): Indicate when the minor mode is active
+ in the modeline. Indicate the buffer position relative to the whole
buffer.
+ (set_vertical_scroll_bar): Indicate the buffer position relative to the
+ whole buffer.
+ (syms_of_xdisp): Two new symbols.
+
+ * lisp/isearch.el (isearch-widen-automatically): New defcustom.
+ (isearch-search): Use the new defcustom.
+
+ * lisp/bindings.el (mode-line-modes): Do not propertize the indication
+ in the modeline when the new minor mode is active.
+
+ * etc/NEWS: Announce the new minor mode, and remove the unobsoletion
+ indication for 'longlines-mode'.
+
+ * lisp/longlines.el: Reobsolete longlines-mode.
+
+ * doc/emacs/display.texi (Auto-Narrowing): New section, describing the
new
+ minor mode.
+ (Display): Entry for the new section.
+
+ * doc/emacs/trouble.texi (Long Lines): Remove the section.
+ (Lossage): Remove the entry for the Long Lines section.
+
+ * doc/emacs/emacs.texi (Top): Remove the entry for the Long Lines
section.
+
+2022-07-05 Glenn Morris <rgm@gnu.org>
+
+ * make-dist: Fix after recent configure.ac quoting changes.
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix custom-initialize-reset bootstrap error
+
+ * lisp/custom.el (custom-initialize-reset): Fix bootstrap problem
+ by avoiding when-let.
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix rcirc buffer name collisions
+
+ * lisp/net/rcirc.el (rcirc-handler-NICK): Avoid naming collisions
+ when renaming buffers (bug#45872).
+
+2022-07-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Mention remote-file-name-inhibit-auto-save-visited in Tramp manual
+
+ * doc/misc/tramp.texi (Auto-save File Lock and Backup):
+ Explain remote-file-name-inhibit-auto-save-visited.
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ Add index entry for "ignore case"
+
+ * doc/emacs/glossary.texi (Glossary): Add index entry for "ignore
+ case" pointing to "Case Folding".
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ Rename new option to remote-file-name-inhibit-auto-save-visited
+
+ * lisp/files.el (remote-file-name-inhibit-auto-save-visited):
+ Rename from 'auto-save-visited-remote-files' and invert logic.
+ (auto-save-visited-mode): Adjust accordingly. (Bug#41333)
+ Suggested by Michael Albinus <michael.albinus@gmx.de>.
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Give a warning if setopt has been used with an invalid value
+
+ * lisp/cus-edit.el (setopt--set): Mark the variable for checking.
+
+ * lisp/custom.el (custom-initialize-reset): Give a warning if the
+ type is wrong (bug#56400).
+
+ * lisp/wid-edit.el (widget-convert): Autoload.
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ Re-fix narrowing problem in tramp-debug-buffer-command-completion-p
+
+ * lisp/net/tramp.el (tramp-debug-buffer-command-completion-p):
+ Respect narrowing also for end of substring. (Bug#56225)
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ Make some defcustom types more restrictive
+
+ * lisp/abbrev.el (abbrev-suggest-hint-threshold):
+ * lisp/bookmark.el (bookmark-bmenu-file-column)
+ (bookmark-menu-length):
+ * lisp/buff-menu.el (Buffer-menu-size-width)
+ (Buffer-menu-mode-width):
+ * lisp/calendar/calendar.el (calendar-week-start-day)
+ (calendar-intermonth-spacing, calendar-column-width)
+ (calendar-day-digit-width):
+ * lisp/calc/calc.el (calc-undo-length):
+ * lisp/calendar/timeclock.el (timeclock-workday):
+ * lisp/comint.el (comint-buffer-maximum-size)
+ (comint-input-ring-size):
+ * lisp/doc-view.el (doc-view-resolution, doc-view-image-width):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-docstring-max-column):
+ * lisp/emacs-lisp/comp.el (native-comp-debug)
+ (native-comp-verbose, native-comp-async-jobs-number):
+ * lisp/emacs-lisp/package.el (package-name-column-width)
+ (package-version-column-width, package-status-column-width)
+ (package-archive-column-width):
+ * lisp/eshell/esh-mode.el (eshell-buffer-maximum-lines):
+ * lisp/frame.el (blink-cursor-blinks):
+ * lisp/info.el (Info-breadcrumbs-depth):
+ * lisp/jit-lock.el (jit-lock-chunk-size):
+ * lisp/kmacro.el (kmacro-ring-max):
+ * lisp/menu-bar.el (yank-menu-length, yank-menu-max-items):
+ * lisp/midnight.el (clean-buffer-list-delay-general)
+ (clean-buffer-list-delay-special):
+ * lisp/net/dictionary.el (dictionary-port)
+ (dictionary-proxy-port):
+ * lisp/net/ldap.el (ldap-default-port):
+ * lisp/net/pop3.el (pop3-port, pop3-stream-length):
+ * lisp/net/rcirc.el (rcirc-default-port):
+ * lisp/net/sieve-manage.el (sieve-manage-default-port):
+ * lisp/play/spook.el (spook-phrase-default-count):
+ * lisp/play/tetris.el (tetris-buffer-width)
+ (tetris-buffer-height, tetris-width, tetris-height)
+ (tetris-top-left-x, tetris-top-left-y):
+ * lisp/profiler.el (profiler-sampling-interval):
+ * lisp/progmodes/sql.el (sql-port):
+ * lisp/recentf.el (recentf-max-menu-items):
+ * lisp/strokes.el (strokes-grid-resolution):
+ * lisp/tab-bar.el (tab-bar-tab-name-truncated-max):
+ * lisp/term/xterm.el (xterm-max-cut-length):
+ * lisp/time.el (display-time-interval, world-clock-timer-second):
+ * lisp/url/url-cache.el (url-cache-expire-time):
+ * lisp/url/url-cookie.el (url-cookie-save-interval):
+ * lisp/url/url-history.el (url-history-save-interval):
+ * lisp/url/url-queue.el (url-queue-parallel-processes)
+ (url-queue-timeout):
+ * lisp/url/url-vars.el (url-max-password-attempts)
+ (url-max-redirections):
+ * lisp/vc/emerge.el (emerge-min-visible-lines):
+ * lisp/vc/vc.el (vc-log-show-limit):
+ * lisp/window.el (window-min-height, window-min-width):
+ * lisp/winner.el (winner-ring-size): Use :type natnum.
+
+ * lisp/savehist.el (savehist-file-modes): Fix setting to nil value and
+ use :type natnum.
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't hard-code `M-c' in `read-regexp'
+
+ * lisp/replace.el (read-regexp-map): New map.
+ (read-regexp--case-fold, read-regexp-toggle-case-folding)
+ (read-regexp): Factor out to avoid hard-coding `M-c'.
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Documnt left/right mwheel events
+
+ * doc/lispref/commands.texi (Misc Events): Document left/right
+ mwheel events (bug#41722).
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention byte order marks in string-limit doc string
+
+ * lisp/emacs-lisp/subr-x.el (string-limit): Mention byte order
+ marks (bug#48324).
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ New user option auto-save-visited-remote-files
+
+ * lisp/files.el (auto-save-visited-remote-files): New user option.
+ (auto-save-visited-mode): Use above new variable to decide whether
+ or not to save remote files. (Bug#41333)
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ New user option auto-save-visited-mode-predicate
+
+ * lisp/files.el (auto-save-visited-mode-predicate): New defcustom.
+ (auto-save-visited-mode): Use above new variable as a predicate to
+ decide whether or not to save a buffer.
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ Shorten name of recently added command to emacs-news-open-line
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-open-line): Rename
+ from 'emacs-news-mode-open-line'.
+
+2022-07-05 Po Lu <luangruo@yahoo.com>
+
+ Fix manually disowning Emacs drag atoms
+
+ * src/xterm.c (handle_one_xevent): Disown Motif drag atom if
+ eventp->time is CurrentTime as well. This can happen with some
+ synthetic events.
+
+2022-07-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the interactive prefix from emoji-insert
+
+ * lisp/international/emoji.el (emoji-insert): Remove the prefix
+ action from this command, since the same is already available on
+ `C-x 8 e s', and we're considering using the prefix to copy to the
+ kill ring.
+
+2022-07-05 Po Lu <luangruo@yahoo.com>
+
+ Allow immediately saving XDS drops
+
+ This fixes things with programs that have a very timeout, such
+ as Chromium, within which it isn't practical for the user to
+ confirm the default file name.
+
+ * lisp/x-dnd.el (x-dnd-direct-save-function): Add new choices to
+ defcustom.
+ (x-dnd-init-frame): Use fast protocol requests.
+ (x-dnd-save-direct-immediately): New function.
+ (x-dnd-handle-xds-drop): Fix nil values of selected file name.
+
+2022-07-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ Quote configure.ac arguments more consistently
+
+ This should help avoid further Autoconf portability gotchas such as
+ the one recently fixed in 2022-06-27T04:26:01Z!meyering@fb.com.
+ * autogen.sh (autoconf_min): Adjust pattern to match
+ updated configure.ac.
+ * configure.ac: Quote arguments more consistently,
+ as per the Autoconf manual.
+
+2022-07-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ Don’t mishandle preset emacs_cv_lesstif
+
+ * configure.ac: Restore CFLAGS etc. correctly even when
+ emacs_cv_lesstif is already set on the command line.
+
+2022-07-05 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d5e1424174 Expand docstrings related to auto-saving
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Don't take XCB socket every time we want the no of the next request
+
+ * src/xterm.c (x_ignore_errors_for_next_request, x_uncatch_errors)
+ (x_check_errors, x_had_errors_p): Don't call XNextRequest
+ redundantly. Use NextRequest if it was immediately preceded by
+ XNextRequest, which updates dpy->request.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ New command emacs-news-mode-open-line
+
+ * lisp/textmodes/emacs-news-mode.el
+ (emacs-news-mode-open-line): New command.
+ (emacs-news-mode-map): Remap 'open-line' to above new command.
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Improve support for remote files in XDS
+
+ * lisp/x-dnd.el (x-dnd-direct-save-function): Remove "local file
+ name" from documentation.
+ (x-dnd-save-direct): Handle remote file names normally.
+ (x-dnd-handle-xds-drop): Handle remote file names in URI.
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Don't overestimate supported input extension version on GTK 3
+
+ * src/xterm.c (x_term_init): If minor > original_minor (the
+ maximum version supported by libXi), set it back to
+ original_minor.
+
+2022-07-04 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ Add reverse mapping for EUDC attribute names
+
+ * lisp/net/eudc.el (eudc-translate-query): new optional parameter to
+ reverse the mapping direction
+ (eudc-translate-attribute-list): new optional parameter to
+ reverse the mapping direction
+
+2022-07-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (gnus-inverse-list-range-intersection): Update alias
+
+ * lisp/gnus/gnus-range.el (gnus-inverse-list-range-intersection):
+ Don't alias to an obsolete alias.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Expand docstrings related to auto-saving
+
+ * lisp/files.el (auto-save-visited-mode):
+ * lisp/simple.el (auto-save-mode): Expand docstring.
+
+2022-07-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix core dump with x-get-local-selection
+
+ * src/xselect.c (Fx_get_local_selection): Check that VALUE has 4
+ elements, since x_get_local_selection can dump core otherwise.
+ This pacifies gcc -Wanalyzer-null-dereference, which found the
+ problem.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Add quit-window entry to list-timers menu
+
+ * lisp/emacs-lisp/timer-list.el (timer-list-mode-map): Add
+ quit-window entry to menu.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in emacs-lisp/*.el
+
+ * lisp/emacs-lisp/backtrace.el (backtrace-mode-map):
+ * lisp/emacs-lisp/bytecomp.el (emacs-lisp-compilation-mode-map):
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map):
+ * lisp/emacs-lisp/crm.el (crm-local-completion-map)
+ (crm-local-must-match-map):
+ * lisp/emacs-lisp/debug.el (debugger-mode-map):
+ * lisp/emacs-lisp/edebug.el (edebug-mode-map, edebug-global-map)
+ (edebug-eval-mode-map):
+ * lisp/emacs-lisp/eieio-custom.el (eieio-custom-mode-map):
+ * lisp/emacs-lisp/elp.el (elp-results-symname-map):
+ * lisp/emacs-lisp/lisp-mode.el (lisp-mode-shared-map):
+ * lisp/emacs-lisp/re-builder.el (reb-mode-map)
+ (reb-lisp-mode-map, reb-subexp-mode-map):
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode-map)
+ (tabulated-list-sort-button-map):
+ * lisp/emacs-lisp/timer-list.el (timer-list-mode-map):
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Document using make-composed-keymap with defvar-keymap
+
+ * doc/lispref/keymaps.texi (Inheritance and Keymaps): Document
+ using 'make-composed-keymap' with 'defvar-keymap'.
+
+ * lisp/help-mode.el (help-mode-map): Use defvar-keymap to make this
+ code match the above documentation change.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Doc fix; quote keys in face-remap.el
+
+ * lisp/face-remap.el (text-scale-adjust, global-text-scale-adjust):
+ Doc fix; quote keys.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Inherit instead of copying keymap in bookmark.el
+
+ * lisp/bookmark.el (bookmark-rename): Inherit instead of copying
+ keymap.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ * src/keymap.c (Fcopy_keymap): Document using defvar-keymap.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Use substitute-command-keys in Helper-help
+
+ * lisp/emacs-lisp/helper.el (Helper-help-scroller)
+ (Helper-help-options, Helper-help): Use substitute-command-keys.
+ (Helper-help-map): Prefer defvar-keymap.
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Avoid code duplication converting XI event state in toolkit menu code
+
+ * src/xmenu.c (x_menu_translate_generic_event):
+ (popup_get_selection): Use `xi_convert_event_state' instead.
+ * src/xterm.c (xi_convert_event_state): Export on non-GTK
+ builds.
+ * src/xterm.h: Update prototypes.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Fix scrolling backwards in Helper-help
+
+ * lisp/emacs-lisp/helper.el (Helper-help-scroller): Fix scrolling
+ backwards.
+
+2022-07-04 Mattias Engdegård <mattiase@acm.org>
+
+ Remove some useless `eval-when-compile`
+
+ * lisp/cedet/semantic/java.el (semantic-java-number-regexp):
+ * lisp/cedet/semantic/lex.el (semantic-lex-number-expression):
+ * lisp/emacs-lisp/cl-indent.el (common-lisp-indent-function-1):
+ * lisp/emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression)
+ (lisp--el-match-keyword, lisp-string-in-doc-position-p):
+ * lisp/emacs-lisp/shorthands.el (shorthands-font-lock-shorthands):
+ * lisp/net/socks.el (socks-send-command):
+ * lisp/progmodes/meta-mode.el (meta-font-lock-keywords):
+ * lisp/shell.el (shell--parse-pcomplete-arguments):
+ * lisp/textmodes/sgml-mode.el (sgml-mode):
+ * lisp/textmodes/tex-mode.el (tex--guess-mode)
+ (tex-common-initialization, tex-input-files-re):
+ * lisp/textmodes/tildify.el (tildify-mode):
+ * lisp/xdg.el (xdg-line-regexp):
+ Eliminate `eval-when-compile` when the argument would be evaluated by
+ the compiler anyway.
+
+2022-07-04 Mattias Engdegård <mattiase@acm.org>
+
+ Replace lisp-mode-symbol-regexp with (rx lisp-mode-symbol)
+
+ This is shorter, simplifies use inside rx expressions, and removes
+ need for eval-when-compile elsewhere (for later exploitation).
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-mode-symbol): New rx-define.
+ (lisp-mode-symbol-regexp): Redefine using lisp-mode-symbol.
+ (lisp-imenu-generic-expression, lisp--el-match-keyword)
+ (lisp-fdefs, lisp-string-in-doc-position-p):
+ * lisp/emacs-lisp/checkdoc.el (checkdoc--error-bad-format-p):
+ * lisp/emacs-lisp/shorthands.el (shorthands-font-lock-shorthands):
+ Use lisp-mode-symbol instead of lisp-mode-symbol-regexp.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/progmodes/ebrowse.el (ebrowse-tree-mode): Fix typo.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Remove remaining Helper-help support from view-mode
+
+ * lisp/view.el (view-old-Helper-return-blurb): Make obsolete.
+ (view--enable, view--disable): Delete remaining Helper-help support
+ code; view-mode stopped using it in 1995.
+
+2022-07-04 Daanturo <daanturo@gmail.com>
+
+ Add file-parent-directory function
+
+ * doc/lispref/files.texi: Document the function.
+ * etc/NEWS: Add its entry.
+ * lisp/emacs-lisp/shortdoc.el: Add it to 'file-name' group.
+ * lisp/files.el: implementation (bug#56355).
+
+2022-07-04 Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>
+
+ lisp/thumbs.el: Fix calling the "convert" command
+
+ * lisp/thumbs.el (thumbs-call-convert): Pass 'action-prefix' and
+ 'action' as a combined parameter. Do not pass 'arg' if it is nil.
+ (thumbs-modify-image): Do not pass "" as 'arg' to
+ 'thumbs-call-convert' (bug#56375).
+
+ Some time in the past this was converted from using the shell to
+ passing the parameters directly, but the fallout was not handled
+ correctly.
+
+2022-07-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Preserve <title> in the Emacs manuals
+
+ * admin/admin.el (manual-html-fix-headers): Preserve the <title>
+ element (bug#48334).
+
+2022-07-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't bug out in manual-html-fix-index-2 on newer makeinfo versions
+
+ * admin/admin.el (manual-html-fix-index-2): Don't bug out if the
+ makeinfo version doesn't include <ul>.
+
+2022-07-04 Visuwesh <visuweshm@gmail.com>
+
+ Exclude radio buttons when suggesting URI in eww
+
+ * lisp/net/eww.el (eww-links-at-point): Exclude radio links.
+ (bug#56366).
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ New command help-fns-edit-mode-cancel
+
+ * lisp/help-fns.el (help-fns-edit-mode-cancel): New command.
+ (help-fns--edit-value-mode-map): Bind it to 'C-c C-k'.
+ (help-fns-edit-variable): Advertise it in help text.
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Handle errors caused by ignoring errors with GDK's trap installed
+
+ * src/xterm.c (x_ignore_errors_for_next_request)
+ (x_stop_ignoring_errors): Also tell GDK to ignore errors from
+ the following requests. (bug#56372)
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Always wait for XdndStatus before sending XdndDrop
+
+ * src/xterm.c (x_dnd_do_drop): New function.
+ (x_dnd_begin_drag_and_drop): Clear new flag.
+ (handle_one_xevent): Use that function; send drops upon receipt
+ of pending XdndStatus, to avoid race conditions where we don't
+ yet know the selected action.
+
+2022-07-04 Po Lu <luangruo@yahoo.com>
+
+ Fix accessing dpyinfo after it is deallocated
+
+ * src/xterm.c (x_connection_closed): Print disconnect error for
+ the last terminal before freeing it.
+
+2022-07-04 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 41472f3b6c Document 'jit-lock-debug-mode'
+
+2022-07-03 Po Lu <luangruo@yahoo.com>
+
+ Display list of traps and handlers when crashing due to an X error
+
+ * src/xterm.c (x_connection_closed): Print list of installed
+ error handlers if not crashing due to an IO error.
+ (NO_INLINE): Include error serial in error message.
+
+2022-07-03 Florian Rommel <mail@florommel.de>
+
+ Add support for fullscreen values fullheight and fullwidth on PGTK
+
+ * src/pgtkterm.c (window_state_event): Support values fullheight and
+ fullwidth for the fullscreen frame-parameter
+ * doc/lispref/frames.texi (Size Parameters): Document inability to
+ actively set hullheight/fullwidth for PGTK frames
+ * configure.ac: Bump GTK version for PGTK
+ * etc/NEWS: Change GTK version in PGTK announcement
+
+2022-07-03 Po Lu <luangruo@yahoo.com>
+
+ Add some more error checking code to `x_stop_ignoring_errors'
+
+ * src/xterm.c (x_stop_ignoring_errors): Abort if no request was
+ actually made, making the state inconsistent.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Simplify lisp-el-font-lock-keywords-2 definition slightly
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-2):
+ Simplify slightly.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Quote some literal keys to get help-key-binding face
+
+ * lisp/align.el (align):
+ * lisp/bindings.el (undo-repeat-map):
+ * lisp/calc/calc-embed.el (calc-do-embedded):
+ * lisp/calc/calc-prog.el (calc-user-define-invocation):
+ * lisp/calc/calc-yank.el (calc--edit-mode):
+ * lisp/comint.el (comint-history-isearch)
+ * lisp/dired.el (dired-mode):
+ * lisp/emulation/viper.el (viper-mode):
+ * lisp/erc/erc-button.el (erc-button-face):
+ * lisp/erc/erc-track.el (erc-track-enable-keybindings):
+ * lisp/gnus/gnus-art.el (gnus-article-button-face):
+ * lisp/gnus/gnus-eform.el (gnus-edit-form):
+ * lisp/gnus/gnus-sum.el (gnus-summary-stop-at-end-of-message)
+ (gnus-summary-goto-unread):
+ * lisp/icomplete.el (icomplete-show-matches-on-no-input):
+ * lisp/image-mode.el (image-scroll-up):
+ * lisp/international/iso-transl.el (iso-transl-set-language):
+ * lisp/isearch.el (isearch-forward-regexp):
+ * lisp/misc.el (butterfly):
+ * lisp/outline.el (outline-minor-mode-cycle-filter)
+ (outline-minor-mode-cycle):
+ * lisp/progmodes/grep.el (rgrep):
+ * lisp/progmodes/gud.el (gud-gdb-repeat-map, gud-sdb-repeat-map)
+ (gud-dbx-repeat-map, gud-xdb-repeat-map, gud-perldb-repeat-map)
+ (gud-pdb-repeat-map, gud-guiler-repeat-map, gud-jdb-repeat-map):
+ * lisp/progmodes/idlw-shell.el (idlwave-shell-graphics-window-size)
+ (idlwave-shell-mode):
+ * lisp/progmodes/idlwave.el (idlwave-shell-debug-modifiers)
+ (idlwave-list-shell-load-path-shadows):
+ * lisp/progmodes/python.el (python-shell-get-process-or-error):
+ * lisp/repeat.el (repeat-check-key):
+ * lisp/replace.el (query-replace, query-replace-regexp)
+ (read-regexp):
+ * lisp/simple.el (read-extended-command-predicate):
+ * lisp/tab-bar.el (tab-bar-switch-repeat-map)
+ (tab-bar-move-repeat-map):
+ * lisp/term.el (ansi-term):
+ * lisp/textmodes/reftex-index.el (reftex-index-phrases-set-macro-key):
+ * lisp/vc/emerge.el (emerge-scroll-left, emerge-scroll-right):
+ * lisp/windmove.el:
+ * lisp/winner.el (winner-mode): Quote literal keys to get
+ 'help-key-binding' face.
+ * lisp/comint.el (comint-insert-previous-argument): Use regular
+ quotes.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Use command substitutions instead of literal keys in some places
+
+ * lisp/emulation/viper-macs.el (ex-map, viper-set-register-macro):
+ * lisp/minibuffer.el (minibuffer-beginning-of-buffer-movement):
+ * lisp/speedbar.el (speedbar-frame-mode):
+ * lisp/subr.el (kbd):
+ * lisp/textmodes/page-ext.el (pages-directory)
+ (pages-directory-for-addresses):
+ * lisp/textmodes/reftex-toc.el: Use command substitutions instead of
+ literal keys.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Normalize definition of erc-track-minor-mode-map
+
+ * lisp/erc/erc-track.el (erc-track-minor-mode-map): Normalize keymap
+ definition.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Use substitute-command-keys in reftex-toc-show-help
+
+ * lisp/textmodes/reftex-toc.el (reftex-toc-help)
+ (reftex-toc-show-help): Use substitute-command-keys.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Font lock \\<> and \\{} command substitutions in docstrings
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-2):
+ Support \\<> and \\{} command substitutions.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Fix warning in last commit
+
+ * lisp/calc/calc-misc.el (calc-dispatch-help): Fix warning.
+
+2022-07-03 Juri Linkov <juri@linkov.net>
+
+ Use more help-key-binding faces in repeat-mode message
+
+ * lisp/repeat.el (repeat-echo-message-string): Use
+ substitute-command-keys for repeat-exit-key as well.
+
+2022-07-03 Juri Linkov <juri@linkov.net>
+
+ * lisp/mwheel.el: More fixes for global-text-scale (bug#48307)
+
+ (mouse-wheel-global-text-scale): Move down closer to
mouse-wheel-text-scale.
+ (mouse-wheel-scroll-amount): Add :value global-text-scale and mention it
+ in the docstring.
+ (mouse-wheel-global-text-scale, mouse-wheel--setup-bindings):
+ Add mouse-wheel-down-alternate-event and mouse-wheel-up-alternate-event.
+ Allow a list of modifiers for 'text-scale'.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Improve calc-dispatch-help docstring
+
+ * lisp/calc/calc-misc.el (calc-dispatch-help): Use command
+ substitutions.
+
+2022-07-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp code cleanup
+
+ * lisp/net/tramp-cache.el (tramp-get-file-property)
+ (tramp-get-connection-property): Make DEFAULT optional. Adapt callees.
+
+ * lisp/net/tramp.el:
+ * lisp/net/tramp-adb.el:
+ * lisp/net/tramp-cmds.el:
+ * lisp/net/tramp-compat.el:
+ * lisp/net/tramp-crypt.el:
+ * lisp/net/tramp-ftp.el:
+ * lisp/net/tramp-fuse.el:
+ * lisp/net/tramp-gvfs.el:
+ * lisp/net/tramp-integration.el:
+ * lisp/net/tramp-sh.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-sshfs.el:
+ * lisp/net/trampver.el: Code cleanup.
+
+ * test/lisp/net/tramp-tests.el (tramp--test-sh-no-ls--dired-p)
+ (tramp--test-with-proper-process-name-and-buffer): Code cleanup.
+
+2022-07-03 Florian Rommel <mail@florommel.de>
+
+ abort-redisplay: Add missing unbind_to in 'recenter'
+
+ * src/window.c (recenter): Add ubind_to before early return.
+ (Bug#56369)
+
+2022-07-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ lisp/elec-pair.el: Simplify last change
+
+ * lisp/elec-pair.el (electric-pair--with-syntax):
+ Rename from `electric-pair--with-text-syntax`.
+ Make `start` mandatory. Run `body` in the normal syntax if `start` is
nil.
+ (electric-pair--with-syntax-1): New function, extracted from
+ `electric-pair--with-text-syntax`.
+ (electric-pair-syntax-info, electric-pair--balance-info):
+ Adjust calls accordingly.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Fix dired-goto-subdir prompt
+
+ * lisp/dired-aux.el (dired-goto-subdir): Fix prompt and improve
+ docstring. Add interactive mode tag for dired-mode.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Fix warnings in my last commit
+
+ * lisp/textmodes/emacs-news-mode.el (outline): Require.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Improve navigation keybindings in emacs-news-mode
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-common-map): New
+ defvar-keymap. Bind navigation commands as in 'org-mode' and
+ 'outline-minor-mode'.
+ (emacs-news-mode-map): Inherit from 'emacs-news-common-map'.
+ (emacs-news-view-mode-map): New defvar-keymap; inherit from
+ 'emacs-news-common-map'.
+
+2022-07-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix implementation of 'reset' face values
+
+ * src/xfaces.c (Finternal_merge_in_global_face)
+ (gui_supports_face_attributes_p): Only modify local copy of face
+ attributes when replacing 'reset' pseudo-values with real values.
+ (Bug#38771)
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Move dired-clean-up-buffers-too to dired.el
+
+ * lisp/dired-x.el (dired-clean-up-buffers-too)
+ (dired-clean-confirm-killing-deleted-buffers): Move from here...
+ * lisp/dired.el (dired-clean-up-buffers-too)
+ (dired-clean-confirm-killing-deleted-buffers): ...to
+ here. (Bug#21981)
+ (dired-clean-up-after-deletion): Adjust documentation.
+ * etc/NEWS: Announce the change.
+
+2022-07-03 kobarity <kobarity@gmail.com>
+
+ Fix `python-nav-beginning-of-defun' line continuation using backslash
+
+ * lisp/progmodes/python.el (python-nav--beginning-of-defun): Allow
+ line continuation using backslash in defuns (bug#55702).
+ (python-info-looking-at-beginning-of-defun): Add CHECK-STATEMENT
+ argument.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/dired-x.el (dired-omit-size-limit): Increase value.
+
+2022-07-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make string-limit with encoding return complete glyphs
+
+ * lisp/emacs-lisp/subr-x.el (string-limit): Return more correct
+ results in the CODING-SYSTEM case for coding systems with BOM and
+ charset designations (bug#48324). Also amend the algorithm to
+ return complete glyphs, not just complete code points.
+
+2022-07-03 Po Lu <luangruo@yahoo.com>
+
+ Improve performance when rejecting XI touch event
+
+ * src/xterm.c (handle_one_xevent): Avoid sync handling simple
+ error.
+
+2022-07-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix streaming problems in nnimap-retrieve-headers
+
+ * lisp/gnus/nnimap.el (nnimap-retrieve-headers): Don't stream the
+ UID FETCH commands, since the server may return the results
+ out-of-order (bug#56332).
+
+2022-07-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function `seq-split'
+
+ * doc/lispref/sequences.texi (Sequence Functions): Document it.
+
+ * lisp/emacs-lisp/seq.el (seq-split): New function.
+
+ * lisp/emacs-lisp/shortdoc.el (sequence): Mention it.
+
+2022-07-03 Allen Li <darkfeline@felesatra.moe>
+
+ elec-pair: Fix bug incorrectly hiding syntax-propertize-function
+
+ * lisp/elec-pair.el (electric-pair--with-text-syntax): New macro.
+ (electric-pair-syntax-info):
+ (electric-pair--balance-info):
+ (electric-pair--syntax-ppss, electric-pair--balance-info): Use it.
+ (electric-pair--with-uncached-syntax): Remove (bug#49629).
+
+ The main bug that this is fixing is `syntax-propertize-function' being
+ hidden in `electric-pair--balance-info' when the original syntax table
+ is to be used, not `electric-pair-text-syntax-table'.
+
+ Notably, this causes `electric-pair-mode' to often misbehave in HTML
+ files when pairing angle brackets.
+
+ This commit also flushes the cache before installing
+ `electric-pair-text-syntax-table', to prevent cached syntax for the
+ original table from affecting things.
+
+2022-07-03 Po Lu <luangruo@yahoo.com>
+
+ Improve efficiency of `x_frame_highlight' and `x_frame_unhighlight'
+
+ * src/xterm.c (x_frame_highlight, x_frame_unhighlight): Don't
+ sync catching errors.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/dired.el (dired-do-eww): New command.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Improve dired-do-{info,man} error handling
+
+ * lisp/dired.el (dired-do-man, dired-do-info): Use
+ 'dired-get-file-for-visit' to get better error handling.
+ Interactive mode tagging.
+
+2022-07-03 Eli Zaretskii <eliz@gnu.org>
+
+ Implement pseudo-value 'reset' of face attrributes
+
+ * doc/lispref/display.texi (Face Attributes):
+ * etc/NEWS: Document the new pseudo-value 'reset'.
+
+ * src/xfaces.c (realize_named_face, lookup_derived_face)
+ (gui_supports_face_attributes_p, lookup_named_face)
+ (Finternal_merge_in_global_face, merge_named_face, merge_faces):
+ Handle the 'reset' pseudo-value of a face's attribute.
+ (syms_of_xfaces): New symbol 'reset'.
+ (RESET_P): New macro.
+ (check_lface_attrs, Finternal_set_lisp_face_attribute): Allow
+ 'reset' as a value of any attribute except ':inherit'.
+ (Bug#38771)
+
+2022-07-03 James Thomas <jimjoe@gmx.net>
+
+ * lisp/leim/quail/indian.el ("malayalam-mozhi"): Set DETERMINISTIC.
+
+2022-07-03 Po Lu <luangruo@yahoo.com>
+
+ Fix deadlocks with very old versions of libXi
+
+ * src/xfns.c (setup_xi_event_mask, Fx_create_frame): Set
+ `xi_mask' ourselves if the version of libXi is too old to have
+ working XIGetSelectedEvents.
+ * src/xterm.c (x_destroy_window): Free `xi_mask' with xfree in
+ that case.
+
+2022-07-03 Eli Zaretskii <eliz@gnu.org>
+
+ Document 'jit-lock-debug-mode'
+
+ * doc/lispref/modes.texi (Other Font Lock Variables): Document
+ 'jit-lock-debug-mode'.
+
+2022-07-03 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ dc3d01a5af CC Mode: Fix a c-backward-token-2 call wrongly jumping bac...
+ e390396e68 Doc fixes; don't use obsolete names
+ c85f7c2e8a Don't refer to obsolete alias for insert-char
+ 60ad45c5d2 Don't use obsolete face name in manoj-dark-theme
+
+2022-07-02 Po Lu <luangruo@yahoo.com>
+
+ Speed up receiving drops over slow connections
+
+ * lisp/x-dnd.el (x-dnd-debug-errors): New variable.
+ (x-dnd-handle-drag-n-drop-event): Bind
+ `x-fast-protocol-requests' to t if that is off.
+
+ * src/xfns.c (Fx_change_window_property):
+ (Fx_delete_window_property):
+ * src/xselect.c (Fx_send_client_message, x_send_client_event):
+ Don't sync to check for errors if fast protocol requests are
+ enabled.
+
+ * src/xterm.c (x_catch_errors_for_lisp, x_check_errors_for_lisp)
+ (x_uncatch_errors_for_lisp): New functions.
+ (syms_of_xterm): New variable `x-fast-protocol-requests'.
+ * src/xterm.h: Update prototypes.
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ REQUIRE-MATCH doc string clarification
+
+ * src/minibuf.c (Fcompleting_read):
+ * lisp/minibuffer.el (read-file-name): Clarify what the return
+ value is in the REQUIRE-MATCH function case.
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some typos in NEWS
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add sanity check for Emacsen distributed without .el files
+
+ * src/lread.c (maybe_swap_for_eln): Add sanity check for Emacsen
+ distributed without .el files (bug#48342).
+
+2022-07-02 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix a c-backward-token-2 call wrongly jumping back over macros.
+
+ This fixes bug #56256.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-c++-lambda-captures): Replace
a
+ c-backward-token-2, which could jump back too far leading to an infinite
+ loop, with a save-excursion to remember the point we've got to go back
to.
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Filter out nul bytes when killing from a *grep* buffer
+
+ * lisp/progmodes/grep.el (grep-mode): Filter out the nul bytes
+ (bug#48321).
+
+2022-07-02 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Add more separators to longlines-mode
+
+ * lisp/obsolete/longlines.el (longlines-breakpoint-chars): New
+ custom to have multiple breakpoint chars.
+ (longlines-set-breakpoint): Add a target-column parameter and use
+ `longlines-breakpoint-chars'.
+ (longlines-find-break-backward, longlines-find-break-foreward):
+ Use `longlines-breakpoint-chars'.
+ (longlines-wrap-line): Do not insert space upon merging, just
+ remove the soft newline. Fix "space before tab" in indent.
+ (longlines-merge-lines-p): Use the new target-column parameter to
+ find out if the next line could be merged with the current one.
+ (longlines-encode-region): Do not replace a soft newline with a
+ space, just remove it.
+ * etc/NEWS: New user option 'longlines-breakpoint-chars'
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Unobsolete longlines-mode (bug#18589)
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Use help-key-binding face in text scale adjust messages
+
+ * lisp/face-remap.el (text-scale-adjust)
+ (global-text-scale-adjust): Use substitute-command-keys.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Use help-key-binding face in repeat-mode message
+
+ * lisp/repeat.el (repeat-echo-message-string): Use
+ substitute-command-keys.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Make dired-jump repeatable in repeat-mode
+
+ * lisp/dired.el (dired-jump-map): New variable.
+ (dired-jump): Put 'repeat-map' property with 'dired-jump-map'.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Move dired-info and dired-man from dired-x to dired
+
+ * lisp/dired-x.el (dired-bind-man, dired-bind-info): Change into
+ defvars and make obsolete.
+ (dired-extra-startup): Doc fix.
+ (dired-info, dired-man): Move from here...
+ * lisp/dired.el (dired-do-info, dired-do-man): ...to here and
+ rename. (Bug#21981)
+
+ * lisp/dired.el (dired-mode-map): Bind 'I' and 'N' to 'dired-do-info'
+ and 'dired-do-man'.
+
+ * doc/misc/dired-x.texi (Miscellaneous Commands): Remove documentation
+ of 'dired-info' and 'dired-man'.
+ * doc/emacs/dired.texi (Dired Enter): Document 'dired-do-info' and
+ 'dired-do-man'.
+ * etc/NEWS: Announce the above changes.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in nxml/*.el
+
+ * lisp/nxml/nxml-mode.el (nxml-mode-map):
+ * lisp/nxml/nxml-outln.el (nxml-outline-prefix-map)
+ (nxml-outline-show-map, nxml-outline-hiding-tag-map)
+ (nxml-outline-showing-tag-map): Prefer defvar-keymap.
+
+2022-07-02 Po Lu <luangruo@yahoo.com>
+
+ Fix error handling for XCB Xlib
+
+ * src/xterm.c (xm_send_drop_message)
+ (xm_send_top_level_enter_message, xm_send_drag_motion_message)
+ (xm_send_top_level_leave_message, x_dnd_compute_toplevels)
+ (x_dnd_send_enter, x_dnd_send_position, x_dnd_send_leave)
+ (x_dnd_send_drop, handle_one_xevent, x_catch_errors_with_handler)
+ (x_request_can_fail, x_clean_failable_requests)
+ (x_ignore_errors_for_next_request, x_stop_ignoring_errors)
+ (x_uncatch_errors, x_check_errors, x_had_errors_p, x_error_handler)
+ (frame_set_mouse_pixel_position, x_focus_frame): Record serial
+ sequences instead of simply the next request when ignoring a
+ single request. Use XNextRequest instead of NextRequest, since
+ the latter is unreliable when using Xlib built with XCB.
+
+ * src/xterm.h (struct x_failable_request): New struct..
+ (struct x_display_info): Make failable request variables the
+ right type.
+
+2022-07-02 Po Lu <luangruo@yahoo.com>
+
+ Fix display disconnect when tooltip frame is alive
+
+ * src/xterm.c (x_connection_closed): Don't dereference nil when
+ loop finds a tooltip frame.
+
+2022-07-02 Gregory Heytings <gregory@heytings.org>
+
+ Command for global adjustments to the default face
+
+ * lisp/face-remap.el (global-text-scale-adjust): New command.
+ (text-scale-adjust): Refer to the new related command.
+ (global-text-scale-adjust-resizes-frames): New user option.
+
+ * lisp/mwheel.el (mouse-wheel-scroll-amount): Add the new command
+ to the mouse wheel scrolling events.
+ (mouse-wheel-global-text-scale): New function.
+ (mouse-wheel-mode): Use the new function with mouse-wheel-mode.
+
+ * doc/emacs/display.texi (Text Scale): Document the new command and
+ the new user option.
+
+ * etc/NEWS: Mention the new command and its bindings, and the new
+ user option.
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a comment about buffer_local_value/find_symbol_value
+
+ * src/data.c: Note that buffer_local_value is very similar
+ (bug#48281).
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow NUL characters in JSON input
+
+ * src/json.c (Fjson_parse_string, Fjson_parse_buffer): Allow NUL
+ characters in JSON (bug#48274).
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make comint-watch-for-password-prompt more resilient
+
+ * lisp/comint.el (comint-watch-for-password-prompt): Don't try to
+ send commands to the process after it's exited (bug#56336). (This
+ commonly happens when invoked via `M-&'.)
+
+2022-07-02 Michael Albinus <michael.albinus@gmx.de>
+
+ Preserve connection-local settings in dired
+
+ * lisp/dired-aux.el (dired-shell-command):
+ Preserve connection-local settings. (Bug#56333)
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add native-compile-prune-cache command
+
+ * lisp/emacs-lisp/comp.el (native-compile-prune-cache): New
+ command (bug#48108).
+
+2022-07-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ native-comp-eln-load-path doc string fix
+
+ * src/comp.c (syms_of_comp): Fix grammar in doc string.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Doc fixes; don't use obsolete names
+
+ * etc/compilation.txt:
+ * lisp/mh-e/mh-funcs.el (mh-kill-folder): Don't use obsolete
+ names.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Don't refer to obsolete alias for insert-char
+
+ * lisp/leim/quail/persian.el: Don't refer to obsolete alias for
+ insert-char.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Don't use obsolete face name in manoj-dark-theme
+
+ * etc/themes/manoj-dark-theme.el (change-log-acknowledgment): Don't
+ use obsolete/non-existent face name.
+
+2022-07-02 Eli Zaretskii <eliz@gnu.org>
+
+ * src/sheap.h (STATIC_HEAP_SIZE): Double the size of static heap.
+
+2022-07-02 Po Lu <luangruo@yahoo.com>
+
+ Completely get rid of races during Motif drag window creation
+
+ * src/xterm.c (x_special_window_exists_p): New function.
+ (xm_get_drag_window_1): Rework workflow and display grabbing.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ * src/xfns.c (Fx_server_input_extension_version): Fix typo.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1c3d107cb5 Fix "C-u C-x =" for SPC
+ 7e33618bbc ; * src/fns.c (Frequire): Fix a typo in the doc string. (...
+ 6908309827 Doc fixes: don't refer to some obsolete items
+ dc3cb749f3 Remove obsolete cust-print from elisp index
+ 9ffbbddf8e * admin/make-tarball.txt: Minor clarifications.
+ f5421104e9 Fix external image conversion on MS-Windows
+ 6f22631a63 * doc/emacs/buffers.texi (Indirect Buffers): Mention modif...
+
+ # Conflicts:
+ # doc/emacs/buffers.texi
+ # lisp/emacs-lisp/nadvice.el
+ # lisp/image/image-converter.el
+
+2022-07-02 Lele Gaifax <lele@metapensiero.it> (tiny change)
+
+ Fix repeated "the"
+
+ * configure.ac (EMACS_CONFIG_FEATURES):
+ * etc/NEWS:
+ * lisp/dnd.el (dnd-begin-text-drag):
+ * src/pgtkfns.c (Fx_display_mm_height, Fx_display_mm_width):
+ (Fx_display_backing_store, Fx_display_visual_class):
+ * src/xterm.c: Fix repeated "the". (Bug#56341)
+
+2022-07-02 Visuwesh <visuweshm@gmail.com>
+
+ Fix fallout from bug#50143
+
+ * lisp/language/ind-util.el (indian-tml-base-table)
+ (indian-tml-base-digits-table): Add TAMIL OM sign and more Sanskrit
+ consonants to the table (bug#50143) (bug#56323).
+
+2022-07-02 Omar Polo <op@omarpolo.com>
+
+ Improve rcirc's CertFP documentation
+
+ * doc/misc/rcirc.texi: Clarify meaning of key and password
+ * lisp/net/rcirc.el (rcirc-authinfo): Add example
+
+2022-07-02 Po Lu <luangruo@yahoo.com>
+
+ Fix drag-and-drop from Chromium family browsers
+
+ * lisp/x-dnd.el (x-dnd-copy-types): New defcustom.
+ (x-dnd-default-test-function): Check if data type warrants using
+ `copy'.
+ (x-dnd-do-direct-save): Offer application/octet-stream as well.
+
+2022-07-02 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/ruler-mode.el (ruler-mode-map): Use defvar-keymap.
+
+ * lisp/epa-mail.el (epa-mail-mode-map): Use defvar-keymap.
+
+2022-07-01 Stefan Kangas <stefan@marxist.se>
+
+ Font lock \\`' command substitutions in docstrings
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-2):
+ Support \\`' command substitutions.
+
+2022-07-01 Po Lu <luangruo@yahoo.com>
+
+ Add interactive XDS test
+
+ * test/lisp/dnd-tests.el (dnd-tests-direct-save): New test.
+
+2022-07-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * editfns.c (Fbyte_to_string): Use `make_unibyte_string`
+
+2022-07-01 Po Lu <luangruo@yahoo.com>
+
+ Return the correct action from the Lisp side of drag-and-drop
+
+ * lisp/x-dnd.el (x-dnd-handle-drag-n-drop-event): Select
+ `window' when handling internal DND events.
+ (x-dnd-handle-unsupported-drop): Return an appropriate action.
+ * src/keyboard.c (kbd_buffer_get_event):
+ * src/termhooks.h (enum event_kind): Delete
+ `UNSUPPORTED_DROP_EVENT'.
+ * src/xterm.c (x_dnd_send_unsupported_drop): Set flags instead
+ of recording input event.
+ (x_clear_dnd_monitors): Rename to `x_clear_dnd_variables'. Also
+ clear unsupported drop data.
+ (x_dnd_begin_drag_and_drop): Run unsupported drop function
+ inline (and safely), and use its return value if it returned a
+ symbol.
+ (syms_of_xterm): Update doc string of
+ `x-dnd-unsupported-drop-function'.
+
+ * src/xterm.h: Update declarations.
+
+2022-07-01 Stefan Kangas <stefan@marxist.se>
+
+ Use command substitution in kmacro.el
+
+ * lisp/kmacro.el (kmacro-bind-to-key, kmacro-view-macro-repeat):
+ Use command substitution.
+
+2022-07-01 Stefan Kangas <stefan@marxist.se>
+
+ * doc/misc/erc.texi (Connecting): Fix typo.
+
+2022-07-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "C-u C-x =" for SPC
+
+ * lisp/descr-text.el (describe-char): Don't report 'nobreak-space'
+ face for SPC. (Bug#56337)
+
+2022-07-01 Eli Zaretskii <eliz@gnu.org>
+
+ Fix quoting of file names in 'ctags'
+
+ * lib-src/etags.c (main) [WINDOWSNT || MSDOS]: Quote file names
+ according to the rules of the system shells.
+
+2022-07-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for <mark> in shr
+
+ * lisp/net/shr.el (shr-mark): New face (bug#48211).
+ (shr-tag-mark): New function
+
+2022-07-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix elisp-byte-compile-buffer requirements
+
+ * lisp/progmodes/elisp-mode.el (elisp-byte-compile-buffer):
+ Require bytecomp so that byte-compile-dest-file-function is
+ defined. (The byte compiler didn't catch this, because it's
+ defined in bytecomp.)
+
+2022-07-01 dick r. chiang <dick.r.chiang@gmail.com>
+
+ Fix typo in Property Search manual entry
+
+ * doc/lispref/text.texi (Property Search): Fix typo (bug#56329).
+
+2022-07-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make time-stamp-tests.el work in a Norwegian language enviroment
+
+ The short version of names for days/month is not necessary the same as
+ limiting the string with a #n operator. For instance:
+
+ (format-time-string "%^A" time)
+ => "FREDAG"
+
+ (format-time-string "%^a" time)
+ => "FR."
+
+ (time-stamp-string "%#3a" time)
+ => "FRE"
+
+2022-07-01 Po Lu <luangruo@yahoo.com>
+
+ Document XDS stuff
+
+ * doc/emacs/frames.texi (Drag and Drop):
+ * doc/lispref/frames.texi (Drag and Drop): Add documentation
+ about XDS features.
+ * etc/NEWS: Tag entry.
+
+2022-07-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make it easier to debug nnimap-retrieve-headers
+
+ * lisp/gnus/nnimap.el (nnimap--max-retrieve-headers): New variable
+ to ease debugging.
+ (nnimap-retrieve-headers): Use it.
+
+2022-07-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the emoji-zoom commands use a transient map for repetition
+
+ * lisp/international/emoji.el (emoji-zoom-increase)
+ (emoji-zoom-decrease): Use a transient map for convenience.
+
+2022-07-01 Po Lu <luangruo@yahoo.com>
+
+ Expand file names read from XDS functions
+
+ * lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
+ before use. Some GUI dialogs read un-expanded file names.
+
+2022-07-01 Po Lu <luangruo@yahoo.com>
+
+ Prevent XdndPosition messages from rarely being sent out of band
+
+ * src/xterm.c (handle_one_xevent): Don't clear
+ `x_dnd_waiting_for_status_window' if a pending position message
+ was sent in reply to an XdndStatus event.
+
+2022-07-01 Po Lu <luangruo@yahoo.com>
+
+ Support receiving XDS drops correctly
+
+ * etc/NEWS: Announce new feature. It is not yet documented.
+ * lisp/x-dnd.el (x-dnd-known-types): Add XdndDirectSave0.
+ (x-dnd-direct-save-function): New defcustom.
+ (x-dnd-xdnd-to-action): Add `direct-save'.
+ (x-dnd-maybe-call-test-function): If XDS is present, use `direct-save'.
+ (x-dnd-find-type): New function.
+ (x-dnd-handle-xdnd): Handle XDS position and drop messages.
+ (x-dnd-handle-direct-save): Don't use local-file-uri if nil.
+ (x-dnd-save-direct): New function.
+ (x-dnd-handle-octet-stream-for-drop):
+ (x-dnd-handle-xds-drop): New functions.
+
+2022-07-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-06-29 19:13:08 UTC.
+
+2022-06-30 Po Lu <luangruo@yahoo.com>
+
+ Add tests for XDS protocol support
+
+ * test/lisp/x-dnd-tests.el (x-dnd-tests-xds-property-value): New
+ variable.
+ (x-window-property): Handle new kind of window property.
+ (x-dnd-tests-xds-target-dir, x-dnd-tests-xds-name)
+ (x-dnd-tests-xds-include-hostname): New variables.
+ (x-dnd-tests-call-xds-converter): New function.
+ (x-begin-drag, x-change-window-property):
+ (x-delete-window-property): New replacement functions.
+ (x-dnd-tests-do-direct-save-internal): New function.
+ (x-dnd-tests-do-direct-save): New test.
+
+2022-06-30 Po Lu <luangruo@yahoo.com>
+
+ Fix `clipboard-yank' inserting off the kill ring instead of CLIPBOARD
+
+ * lisp/select.el (gui-last-cut-in-clipboard)
+ (gui-last-cut-in-primary): New variables.
+ (gui-select-text): Set those variables.
+ (gui--selection-value-internal, gui-selection-value): Don't
+ return nil if the last cut did not own the chosen
+ selection. (bug#56325)
+
+2022-06-30 Po Lu <luangruo@yahoo.com>
+
+ Disable middle click selection emulation during XDS
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new
+ variable.
+ * lisp/x-dnd.el (x-dnd-do-direct-save): Disable drop emulation
+ during XDS drag-and-drop.
+
+ * src/keyboard.c (kbd_buffer_get_event): Handle recorded value.
+ * src/xterm.c (x_dnd_do_unsupported_drop): Return if new
+ variable is nil.
+ (x_dnd_send_unsupported_drop): Record value of new variable in
+ events.
+ (x_dnd_begin_drag_and_drop): Handle recorded value.
+ (syms_of_xterm): New variable `x-dnd-use-unsupported-drop'.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Update ERC's Info doc with network-ID related changes
+
+ * doc/misc/erc.texi: Update the `erc' and `erc-tls' entry-point
+ sections with the new :id keyword parameter. Expand the auth-info
+ related information in the passwords section. Remove all mention of
+ the variable `erc-rename-buffers', whose "on" behavior has been made
+ permanent.
+
+ * etc/ERC-NEWS: Add new section for future 5.5 release.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Optionally prevent sending multiline input in ERC
+
+ * lisp/erc/erc.el (erc-inhibit-multiline-input): Add option to cap the
+ number of lines to be sent before admonishing the user.
+ (erc-ask-about-multiline-input): Add option to ask instead of warning
+ user when `erc-inhibit-multiline-input' is reached.
+ (erc--check-prompt-input-for-excess-lines): Add validator to possibly
+ warn when too many lines are submitted for transmission.
+
+ * test/lisp/erc/erc-tests.el
+ (erc--check-prompt-input-for-excess-lines): Add test.
+ (Bug#54536)
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Improve ERC's handling of multiline prompt input
+
+ * lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
+ hook allowing members to revise individual lines before sending. This
+ was created with an eye toward possibly exporting it publicly as a
+ customizable option.
+ (erc-last-input-time): Tweak meaning of variable to match likely
+ original intent, which is that it's only updated on successful calls
+ to `erc-send-current-line'.
+ (erc--discard-trailing-multiline-nulls): Conditionally truncate list
+ of lines to be sent, skipping trailing blanks. This constitutes a
+ behavioral change. But, considering the nature of the bug being
+ fixed, it is thought to be justified.
+ (erc--input-split): Add new internal struct containing split input
+ lines and flag for command detection.
+ (erc--input-line-delim-regexp): Add regex var for splitting multiline
+ prompt input.
+ (erc--blank-in-multiline-p): Add helper for detecting blank lines.
+ (erc--check-prompt-input-for-multiline-blanks,
+ erc--check-prompt-input-for-point-in-bounds,
+ erc--check-prompt-input-for-running-process): New functions to
+ encapsulate logic for various pre-flight idiot checks.
+ (erc--check-prompt-input-functions): Add new hook for validating
+ prompt input prior to clearing it, internal for now.
+ (erc-send-current-line): Pre-screen for blank lines and bail out if
+ necessary.
+ (erc-send-input): Add optional param to skip checking for blank lines.
+ Call hook `erc--pre-send-split-functions'.
+
+ * test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
+ helper.
+ (erc--input-line-delim-regexp,
+ erc--blank-in-multiline-input-p): Add tests.
+ (erc-tests--send-prep, erc-tests--set-fake-server-process,
+ erc-tests--with-process-input-spy): Add test helpers.
+ (erc--check-prompt-input-functions, erc-send-current-line,
+ erc-send-whitespace-lines): Add tests.
+ (Bug#54536)
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Fix regression in erc-send-input-line
+
+ * lisp/erc/erc.el (erc-send-input-line): Restore remedial single-space
+ padding to ensure empty messages typed at the prompt without an
+ explicit /msg aren't rejected by the server. This behavior is only
+ noticeable when `erc-send-whitespace-lines' is active.
+
+ * test/lisp/erc/erc-tests.el (erc-process-input-line): Add trailing
+ newline to more correctly simulate how it's actually called by
+ `erc-send-input'. (Bug#50008)
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Standardize auth-source queries in ERC
+
+ * lisp/erc/erc.el (erc-password): Deprecate variable only used by
+ `erc-select-read-args'. Server passwords are primarily used as
+ surrogates for other forms of authentication. Such use is common but
+ nonstandard and often discouraged in favor of the de facto standard,
+ SASL. Folks in the habit of invoking `erc(-tls)' interactively should
+ be encouraged to use auth-source instead.
+ (erc-select-read-args): Before this change, `erc-select-read-args'
+ offered to use the value of a non-nil `erc-password' as the :password
+ argument for `erc' and `erc-tls', referring to it as the "default"
+ password. And when `erc-prompt-for-password' was nil and
+ `erc-password' wasn't, the latter was passed along unconditionally.
+ This only further complicated an already confusing situation for new
+ users, who in most cases shouldn't be worried about sending a PASS
+ command at all. Until SASL arrives, they should provide server
+ passwords manually or learn to use auth-source.
+ (erc-auth-source-server-function, erc-auth-source-join-function): New
+ user options for retrieving a password externally, ostensibly by
+ calling `auth-source-search'.
+ (erc--auth-source-determine-params-defaults): New helper for
+ `erc--auth-source-search' with potential for exporting publicly in the
+ future. Favors :host and :port fields above others. Prioritizes
+ network IDs over announced servers and dialed endpoints.
+ (erc--auth-source-determine-params-merge): Add new function for
+ merging contextual and default parameters. This is another contender
+ for possible exporting.
+ (erc--auth-source-search): New function for consulting auth-source and
+ sorting the result as filtered and prioritized by the previously
+ mentioned helpers.
+ (erc-auth-source-search): New function to serve as default
+ value for auth-source query-function options.
+ (erc-server-join-channel): Use user option for consulting auth-source
+ facility. Also accept nil for first argument (instead of server).
+ (erc-cmd-JOIN): Use above-mentioned facilities when joining new
+ channel. Omit server when calling `erc-server-join-channel'. Don't
+ filter target buffers twice. Don't call `switch-to-buffer', which
+ would create phantom buffers with names like target/server that were
+ never used. IOW, only switch to existing target buffers.
+ (erc--compute-server-password): Add new helper function for
+ determining password.
+ (erc-open, erc-determine-parameters): Move password figuring from the
+ first to the latter.
+
+ * lisp/erc/erc-services.el
+ (erc-auth-source-services-function): Add new option for consulting
+ auth-source in a NickServ context.
+ (erc-nickserv-get-password): Pass network-context ID, when looking up
+ password in `erc-nickserv-passwords' and when formatting prompt for
+ user input.
+ (erc-nickserv-passwords): Add comment to custom option definition type
+ tag.
+
+ * test/lisp/erc/erc-services-tests.el: Add new test file for above
+ changes. For now, stash auth-source-related tests here until a
+ suitable home can be found.
+
+ * lisp/erc/erc-join.el (erc-autojoin--join): Don't pass session-like
+ entity from `erc-autojoin-channels-alist' match to
+ `erc-server-join-channel'. Allow that function to decide for itself
+ which host to look up if necessary.
+
+ * test/lisp/erc/resources/base/auth-source/foonet.eld: New file.
+ * test/lisp/erc/resources/base/auth-source/nopass.eld: New file.
+ * test/lisp/erc/resources/erc-scenarios-common.el: New file.
+ * test/lisp/erc/resources/services/auth-source/libera.eld: New file.
+ * test/lisp/erc/erc-scenarios-auth-source.el: New file.
+ * test/lisp/erc/erc-scenarios-base-reuse-buffers.el: New file.
+ * test/lisp/erc/erc-scenarios-join-auth-source.el: New file.
+ * test/lisp/erc/resources/base/reuse-buffers/channel/barnet.eld: New
file.
+ * test/lisp/erc/resources/base/reuse-buffers/channel/foonet.eld: New
file.
+ * test/lisp/erc/resources/join/auth-source/foonet.eld: New file.
+ (Bug#48598)
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Favor network identities in erc-join
+
+ * lisp/erc/erc-join.el (erc-autojoin-server-match): Favor network
+ identities, falling back on old definition.
+ (erc-autojoin--join): Add new helper containing common code from
+ hookees `erc-autojoin-after-ident' and `erc-autojoin-channels'.
+ (erc-autojoin-after-ident, erc-autojoin-channels): No longer make a
+ point of returning nil because the hooks they're registered on,
+ `erc-nickserv-identified-hook' and `erc-after-connect', don't stop on
+ success.
+ (erc-autojoin--mutate): Add helper for `erc-autojoin-add' and
+ `erc-autojoin-remove'.
+ (erc-autojoin-add, erc-autojoin-remove): Favor given network
+ identities, over networks, when matching keys for
+ `erc-autojoin-channels-alist'.
+
+ * test/lisp/erc/erc-scenarios-base-reconnect.el: New file.
+ * test/lisp/erc/erc-scenarios-join-netid-newcmd-id.el: New file.
+ * test/lisp/erc/erc-scenarios-join-netid-newcmd.el: New file.
+ * test/lisp/erc/erc-scenarios-join-netid-recon-id.el: New file.
+ * test/lisp/erc/erc-scenarios-join-netid-recon.el: New file.
+ * test/lisp/erc/resources/erc-scenarios-common.el: New file.
+ * test/lisp/erc/resources/join/legacy/foonet.eld: New file.
+ * test/lisp/erc/resources/join/network-id/barnet.eld: New file.
+ * test/lisp/erc/resources/join/network-id/foonet-again.eld: New file.
+ * test/lisp/erc/resources/join/network-id/foonet.eld: New file.
+ * test/lisp/erc/resources/join/reconnect/foonet-again.eld: New file.
+ * test/lisp/erc/resources/join/reconnect/foonet.eld: New file.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Don't call erc-auto-query twice on PRIVMSG
+
+ * lisp/erc/erc-backend.el (erc-server-JOIN): Use `erc--open-target'
+ instead of `erc-join'.
+ (erc-server-PRIVMSG): Don't call `erc-auto-query' at all, and instead
+ borrow the portion of its logic that detects when a query buffer
+ should be created instead of a channel buffer.
+
+ * lisp/erc/erc.el (erc-cmd-QUERY): Update the mode line explicitly
+ after calling `erc-query' in case it's needed after `erc-setup-buffer'
+ runs. Simplify.
+ (erc-query, erc--open-target): Replace uses of `erc-query'
+ with `erc--open-target' and make the former obsolete. Don't call
+ `erc-update-mode-line' because `erc-open' already does that.
+ (erc-auto-query): Make this function obsolete. It was previously only
+ used in erc-backend.el and only sewed confusion.
+ (erc-query-on-unjoined-chan-privmsg): Add note questioning its role.
+ It was previously only used by the now deprecated `erc-auto-query'.
+
+ * test/lisp/erc/erc-scenarios-misc.el
+ (erc-scenarios-base-mask-target-routing): Add test for server masks.
+ * test/lisp/erc/resources/base/mask-target-routing/foonet.eld: New file.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Register erc-kill-buffer-function locally
+
+ * lisp/erc/erc.el (erc-kill-buffer-function): Don't add hook when
+ loading file. Move to major-mode setup and make buffer-local instead.
+ Depends on tests in bug#48598.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Add user-oriented test scenarios for ERC
+
+ * test/lisp/erc/erc-scenarios-base-association-nick.el: New file.
+ * test/lisp/erc/erc-scenarios-base-association-samenet.el: New file.
+ * test/lisp/erc/erc-scenarios-base-association.el: New file.
+ * test/lisp/erc/erc-scenarios-base-compat-rename-bouncer.el: New file.
+ * test/lisp/erc/erc-scenarios-base-misc-regressions.el: New file.
+ * test/lisp/erc/erc-scenarios-base-netid-bouncer-id.el: New file.
+ * test/lisp/erc/erc-scenarios-base-netid-bouncer-recon-base.el: New
file.
+ * test/lisp/erc/erc-scenarios-base-netid-bouncer-recon-both.el: New
file.
+ * test/lisp/erc/erc-scenarios-base-netid-bouncer-recon-id.el: New file.
+ * test/lisp/erc/erc-scenarios-base-netid-bouncer.el: New file.
+ * test/lisp/erc/erc-scenarios-base-netid-samenet.el: New file.
+ * test/lisp/erc/erc-scenarios-base-reconnect.el: New file.
+ * test/lisp/erc/erc-scenarios-base-renick.el: New file.
+ * test/lisp/erc/erc-scenarios-base-reuse-buffers.el: New file.
+ * test/lisp/erc/erc-scenarios-base-unstable.el: New file.
+ * test/lisp/erc/erc-scenarios-base-upstream-recon-soju.el: New file.
+ * test/lisp/erc/erc-scenarios-base-upstream-recon-znc.el: New file.
+ * test/lisp/erc/erc-scenarios-misc.el: New file.
+ * test/lisp/erc/erc-scenarios-services-misc.el: New file.
+ * test/lisp/erc/resources/base/assoc/bouncer-history/barnet.eld: New
file.
+ * test/lisp/erc/resources/base/assoc/bouncer-history/foonet.eld: New
file.
+ * test/lisp/erc/resources/base/assoc/bumped/again.eld: New file.
+ * test/lisp/erc/resources/base/assoc/bumped/foisted.eld: New file.
+ * test/lisp/erc/resources/base/assoc/bumped/refoisted.eld: New file.
+ * test/lisp/erc/resources/base/assoc/bumped/renicked.eld: New file.
+ * test/lisp/erc/resources/base/assoc/multi-net/barnet.eld: New file.
+ * test/lisp/erc/resources/base/assoc/multi-net/foonet.eld: New file.
+ * test/lisp/erc/resources/base/assoc/reconplay/again.eld: New file.
+ * test/lisp/erc/resources/base/assoc/reconplay/foonet.eld: New file.
+ * test/lisp/erc/resources/base/assoc/samenet/chester.eld: New file.
+ * test/lisp/erc/resources/base/assoc/samenet/tester.eld: New file.
+ * test/lisp/erc/resources/base/assoc/samenet/tester2.eld: New file.
+ * test/lisp/erc/resources/base/channel-buffer-revival/foonet.eld: New
file.
+ * test/lisp/erc/resources/base/flood/soju.eld: New file.
+ * test/lisp/erc/resources/base/gapless-connect/barnet.eld: New file.
+ * test/lisp/erc/resources/base/gapless-connect/foonet.eld: New file.
+ * test/lisp/erc/resources/base/gapless-connect/pass-stub.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/barnet-again.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/barnet-drop.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/barnet.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/foonet-again.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/foonet-drop.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/foonet.eld: New file.
+ * test/lisp/erc/resources/base/netid/bouncer/stub-again.eld: New file.
+ * test/lisp/erc/resources/base/netid/samenet/chester.eld: New file.
+ * test/lisp/erc/resources/base/netid/samenet/tester.eld: New file.
+ * test/lisp/erc/resources/base/reconnect/aborted-dupe.eld: New file.
+ * test/lisp/erc/resources/base/reconnect/aborted.eld: New file.
+ * test/lisp/erc/resources/base/reconnect/options-again.eld: New file.
+ * test/lisp/erc/resources/base/reconnect/options.eld: New file.
+ * test/lisp/erc/resources/base/reconnect/timer-last.eld: New file.
+ * test/lisp/erc/resources/base/reconnect/timer.eld: New file.
+ * test/lisp/erc/resources/base/renick/queries/bouncer-barnet.eld: New
file.
+ * test/lisp/erc/resources/base/renick/queries/bouncer-foonet.eld: New
file.
+ * test/lisp/erc/resources/base/renick/queries/solo.eld: New file.
+ * test/lisp/erc/resources/base/renick/self/auto.eld: New file.
+ * test/lisp/erc/resources/base/renick/self/manual.eld: New file.
+ * test/lisp/erc/resources/base/renick/self/qual-chester.eld: New file.
+ * test/lisp/erc/resources/base/renick/self/qual-tester.eld: New file.
+ * test/lisp/erc/resources/base/reuse-buffers/server/barnet.eld: New
file.
+ * test/lisp/erc/resources/base/reuse-buffers/server/foonet.eld: New
file.
+ * test/lisp/erc/resources/base/upstream-reconnect/soju-barnet.eld: New
file.
+ * test/lisp/erc/resources/base/upstream-reconnect/soju-foonet.eld: New
file.
+ * test/lisp/erc/resources/base/upstream-reconnect/znc-barnet.eld: New
file.
+ * test/lisp/erc/resources/base/upstream-reconnect/znc-foonet.eld: New
file.
+ * test/lisp/erc/resources/erc-scenarios-common.el: New file.
+ * test/lisp/erc/resources/networks/announced-missing/foonet.eld: New
file.
+ * test/lisp/erc/resources/services/password/libera.eld: New file.
+
+ Add test cases for locking down fundamental client behavior, much of
+ it involving the relationship between buffers and connections. Also
+ add accompanying resources subdir containing canned dialog scripts and
+ common code needed by various tests. For test cases demoing the
+ problematic behavior originally described in the initial report, see
+ update #4 on the bug tracker thread for bug#48598. Most reside in a
+ file named test/lisp/erc/erc-scenarios-48598.el introduced by the
+ patch "Add user-oriented test scenarios for ERC".
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Address long-standing ERC buffer-naming issues
+
+ * lisp/erc/erc-backend.el (erc-server-connected): Revise doc string.
+ (erc-server-reconnect, erc-server-JOIN): Reuse original ID param from
+ the first connection when calling `erc-open'.
+ (erc-server-NICK): Apply same name generation process used by
+ `erc-open'; except here, do so for the purpose of "re-nicking".
+ Update network identifier and maybe buffer names after a user's own
+ nick changes.
+
+ * lisp/erc/erc-networks.el (erc-networks--id, erc-networks--id-fixed,
+ erc-networks--id-qualifying): Define new set of structs to contain all
+ info relevant to specifying a unique identifier for a network context.
+ Add a new variable `erc-networks--id' to store a local reference to a
+ `erc-networks--id' object, shared among all buffers in a logical
+ session.
+ (erc-networks--id-given, erc-networks--id-create,
+ erc-networks--id-on-connect, erc-networks--id--equal-p,
+ erc-networks--id-qualifying-init-parts,
+ erc-networks--id-qualifying-init-symbol,
+ erc-networks--id-qualifying-grow-id,
+ erc-networks--id-qualifying-reset-id,
+ erc-networks--id-qualifying-prefix-length,
+ erc-networks--id-qualifying-update, erc-networks--id-reload,
+ erc-networks--id-ensure-comparable, erc-networks--id-sort-buffers):
+ Add new functions to support management of `erc-networks--id' struct
+ instances.
+ (erc-networks--id-sep): New variable for to help when formatting
+ buffer names.
+ (erc-obsolete-var): Define new generic context rewriter.
+ (erc-networks-shrink-ids-and-buffer-names,
+ erc-networks--refresh-buffer-names,
+ erc-networks--shrink-ids-and-buffer-names-any): Add functions to
+ reassess all network IDs and shrink them if necessary along with
+ affected buffer names. Also add function to rename buffers so that
+ their names are unique. Register these on all three of ERC's
+ kill-buffer hooks because an orphaned target buffer is enough to keep
+ its session alive.
+ (erc-networks-rename-surviving-target-buffer): Add new function that
+ renames a target buffer when it becomes the sole bearer of a name
+ based on a target that has become unique across all sessions and, in
+ most cases, all networks. IOW, remove the @NETWORK-ID suffix from the
+ last remaining channel or query buffer after its namesakes have all
+ been killed off. Register this function with ERC's target-related
+ kill-buffer hooks.
+ (erc-networks--examine-targets): Add new utility function that visits
+ all ERC buffers and runs callbacks when a buffer-name collision is
+ encountered.
+ (erc-networks--qualified-sep): Add constant to hold separator between
+ target and suffix.
+ (erc-networks--construct-target-buffer-name,
+ erc-networks--ensure-unique-target-buffer-name,
+ erc-networks--ensure-unique-server-buffer-name,
+ erc-networks--maybe-update-buffer-name): Add helpers to support
+ `erc-networks--reconcile-buffer-names' and friends.
+ (erc-networks--reconcile-buffer-names): Add new buffer-naming strategy
+ function and helper for `erc-generate-new-buffer-name' that only run
+ in target buffers.
+ (erc-determine-network, erc-networks--determine): Deprecate former and
+ partially replace with latter, which demotes RPL_ISUPPORT-derived
+ NETWORK name to fallback in favor of known `erc-networks-alist'
+ members as part of shift to network-based connection-identity policy.
+ Return sentinel on failure. Expect `erc-server-announced-name' to be
+ set, and signal when it's not.
+ (erc-networks--name-missing-sentinel): Value returned when new
+ function `erc-networks--determine' fails to find network name. The
+ rationale for not making this customizable is that the value signifies
+ the pathological case where a user of an uncommon IRC setup has not
+ yet set a mapping from announced- to network name. And the chances of
+ there being multiple unknown networks is low.
+ (erc-set-network-name, erc-networks--set-name): Deprecate former and
+ partially replace with latter. Ding with helpful message, and don't
+ set `erc-network' when network name is not found.
+ (erc-networks--ensure-announced): Add new fallback function to ensure
+ `erc-server-announced-name' is set. Register with post-MOTD hooks.
+ (erc-unset-network-name): Deprecate function unused internally.
+ (erc-networks--insert-transplanted-content,
+ erc-networks--reclaim-orphaned-target-buffers,
+ erc-networks--copy-over-server-buffer-contents,
+ erc--update-server-identity): Add helpers for
+ `erc-networks--rename-server-buffer'. The first re-associates all
+ existing target buffers that ought to be owned by the new server
+ process. The second grabs buffer text from an old, dead server buffer
+ before killing it. It then inserts that text above everything in the
+ current, replacement server buffer. The other two massage the IDs of
+ related sessions, possibly renaming them as well. They may also
+ uniquify the current session's network ID.
+ (erc-networks--init-identity): Add new function to perform one-time
+ session-related setup. This could be combined with
+ `erc-set-network-name'.
+ (erc-networks--rename-server-buffer): Add new function to replace
+ `erc-unset-network-name' as default `erc-disconnected-hook' member;
+ renames server buffers once network is discovered; added to/removed
+ from `erc-after-connect' hook on `erc-networks' minor mode.
+ (erc-networks--bouncer-targets): Add constant to hold target symbols
+ of well known bouncer-configuration bots.
+ (erc-networks-on-MOTD-end): Add primary network-context handler to run
+ on 376/422 functions, just before logical connection is officially
+ established.
+ (erc-networks-enable, erc-networks-mode): Register main network-setup
+ handler with 376/422 hooks.
+
+ * lisp/erc/erc.el (erc-rename-buffers): Change this option's default
+ to t, remove the only instance where it's actually used, and make it
+ an obsolete variable.
+ (erc-reuse-buffers): Make this an obsolete variable, but take pains to
+ ensure its pre-28.1 behavior is preserved. That is, undo the
+ regression involving unwanted automatic reassociation of channel
+ buffers during joins, which arrived in ERC 5.4 and effectively
+ inverted the meaning of this variable, when nil, for channel buffers,
+ all without accompanying documentation or announcement.
+ (erc-generate-new-buffer-name): Replace current policy of appending a
+ slash and the invocation host name. Favor instead temporary names for
+ server buffers and network-based uniquifying suffixes for channels and
+ query buffers. Fall back to the TCP host:port<n> convention when
+ necessary. Accept additional optional params after the others.
+ (erc-get-buffer-create): Don't generate a new name when reconnecting,
+ just return the same buffer. `erc-open' starts from a clean slate
+ anyway, so this just keeps things simple. Also add optional params.
+ (erc-open): Add new ID param to for a network identifier explicitly
+ passed to an entry-point command. This is stored in the `given' slot
+ of the `erc-network--id' object. Also initialize the latter in new
+ connections and otherwise copy it over. As part of the push to recast
+ erc-networks.el as an essential library, set `erc-network' explicitly,
+ when known, rather than via hooks.
+ (erc, erc-tls): Add new ID keyword parameter and pass it to
+ `erc-open'.
+ (erc-log-irc-protocol): Use `erc--network-id' instead of the function
+ `erc-network' to determine preferred peer name.
+ (erc-format-target-and/or-network): This is called frequently from
+ mode-line updates, so renaming buffers here is not ideal. Instead, do
+ so in `erc-networks--rename-server-buffer'.
+ (erc-kill-server-hook): Add `erc-networks-shrink-ids-and-buffer-names'
+ as default member.
+ (erc-kill-channel-hook, erc-kill-buffer-hook): Add
+ `erc-networks-shrink-ids-and-buffer-names' and
+ `erc-networks-rename-surviving-target-buffer' as default member.
+
+ * test/lisp/erc/erc-tests.el (erc-log-irc-protocol): Use network-ID
+ focused internal API.
+
+ * test/lisp/erc/erc-networks-tests.el: Add new file that includes
+ tests for the above network-ID focused functions.
+
+ See bug#48598 for background on all of the above.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Add ERC test server and related resources
+
+ * test/lisp/erc/resources/erc-d/erc-d.el: New file.
+ * test/lisp/erc/resources/erc-d/erc-d-u.el: New file.
+ * test/lisp/erc/resources/erc-d/erc-d-i.el: New file.
+ * test/lisp/erc/resources/erc-d/erc-d-t.el: New file.
+ * test/lisp/erc/resources/erc-d/erc-d-tests.el: New file.
+
+ * test/lisp/erc/erc-scenarios-internal.el: New file to serve as
+ discoverable proxy for erc-d-tests.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Discourage ill-defined use of buffer targets in ERC
+
+ * lisp/erc/erc.el (erc-default-recipients, erc-default-target):
+ Explain that the variable has fallen out of favor and that the
+ function may have been used historically by third-party code for
+ detecting channel subscription status, even though that's never been
+ the case internally since at least the adoption of version control.
+ Recommend newer alternatives.
+
+ (erc--current-buffer-joined-p): Add possibly temporary predicate for
+ detecting whether a buffer's target is a joined channel. The existing
+ means are inconsistent, as discussed in bug#48598. The mere fact that
+ they are disparate is unfriendly to new contributors. For example, in
+ the function `erc-autojoin-channels', the `process-status' of the
+ `erc-server-process' is used to detect whether a buffer needs joining.
+ That's fine in that specific situation, but it won't work elsewhere.
+ And neither will checking whether `erc-default-target' is nil, so
+ long as `erc-delete-default-channel' and friends remain in play.
+
+ (erc-add-default-channel, erc-delete-default-channel, erc-add-query,
+ erc-delete-query): Deprecate these helpers, which rely on an unused
+ usage variant of `erc-default-recipients'.
+
+ * lisp/erc/erc-services.el: remove stray `erc-default-recipients'
+ declaration.
+
+ * lisp/erc/erc-backend.el (erc-server-NICK, erc-server-JOIN,
+ erc-server-KICK, erc-server-PART): wrap deprecated helpers to suppress
+ warnings.
+
+ * lisp/erc/erc-join.el (erc-autojoin-channels): Use helper to detect
+ whether a buffer needs joining. Prefer this to server liveliness, as
+ explained above.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Add eventual replacement for erc-default-recipients
+
+ * lisp/erc/erc.el (erc--target, erc--target-channel,
+ erc--target-channel-local): Add new structs to hold info on a buffer's
+ target; stored in a local variable of the same name.
+ (erc--target-from-string): Add standalone constructor for
+ `erc--target'.
+ (erc--default-target): Add temporary internal getter to ease
+ transition to `erc--target' everywhere.
+ (erc-open): Create above items in non-server buffers.
+
+ * lisp/erc/erc-backend.el (erc-server-NICK): Recreate `erc--target'
+ when necessary.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Add helper to determine local channels in ERC
+
+ * lisp/erc/erc.el (erc--valid-local-channel-p): Add internal helper to
+ determine whether an IRC channel is local according to its network's
+ CHANTYPES ISUPPORT parameter.
+
+ * test/lisp/erc/erc-tests.el (erc--valid-local-channel-p): Add test
+ for this helper.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Make ERC respect spaces in server passwords
+
+ * lisp/erc/erc.el (erc-login): Also known as connection passwords,
+ these are sent as the sole arg to the PASS command, which is nowadays
+ often overloaded with other semantics imposed by various entities to
+ convey things like bouncer or services creds.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Recognize ASCII and strict CASEMAPPINGs in ERC
+
+ * lisp/erc/erc.el (erc-downcase, erc--casemapping-rfc1459-strict,
+ erc--casemapping-rfc1459): Add new translation tables for the latter
+ two mappings and use them in `erc-downcase'.
+
+ * test/lisp/erc/erc-tests.el: Add test for `erc-downcase'.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Update ISUPPORT handling in ERC
+
+ * lisp/erc/erc-backend.el (erc--isupport-params): Add new variable to
+ hold a hashmap of parsed `erc-server-parameters' in a more useful
+ format. But keep `erc-server-parameters' around for public use. We
+ currently lack dedicated local variables for certain discovered IRC
+ session properties, such as what prefix characters are supported for
+ channels, etc. And the truth of this needs querying many times per
+ second at various points. As such, caching here seems justified but
+ can be easily removed if deemed otherwise because all ingredients are
+ internal.
+ (erc--parse-isupport-value): Add helper function that parses an
+ ISUPPORT value and returns the component parts with backslash-x hex
+ escapes removed. This can probably use some streamlining.
+ (erc--with-memoization): Add compat alias for use in internal ISUPPORT
+ getter. Should be moved to `erc-compat.el' when that library is fully
+ reincorporated.
+ (erc--get-isupport-entry): Add internal getter to look up ISUPPORT
+ items.
+ (erc-server-005): Treat `erc-server-response' "command args" field as
+ read-only. Previously, this field was set to nil after processing,
+ which was unhelpful to other parts of the library. Also call above
+ mentioned helper to parse values. And add some bookkeeping to handle
+ negation.
+
+ * lisp/erc/erc-capab.el (erc-capab-identify-send-messages): Use
+ internal ISUPPORT getter.
+
+ * lisp/erc/erc.el (erc-cmd-NICK, erc-parse-prefix,
+ erc-nickname-in-use): Use internal ISUPPORT getter.
+
+ * test/lisp/erc/erc-tests.el: Add tests for the above mentioned
+ changes in erc-backend.el.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Require erc-networks in erc.el
+
+ * lisp/erc/erc.el: Require erc-networks.el, which ERC can't run
+ without these days. To sidestep the circular dependency, require it
+ last, just after erc-goodies. Remove the `declare-function' for
+ `erc-network-name' because it's not currently needed at load time.
+ (erc-log-irc-protocol, erc-hide-current-message-p): Remove `fboundp'
+ guard logic from `erc-network-name' invocations but preserve meaning
+ by interpreting `erc-network' being unset to mean module isn't loaded
+ or authoritative network detection has failed.
+ (erc-format-network): Likewise here. At the moment, this function
+ always returns the empty string because the function
+ `erc-network-name' always returns non-nil, perhaps from the
+ fallback/failure sentinel "Unknown", perhaps from the printed form of
+ nil.
+
+ * lisp/erc/erc-networks.el (erc-network): This is called throughout
+ erc.el but was previously cumbersome to use on account of being
+ guarded by `fboundp'. It now relies on the fact that its namesake
+ variable is set in target buffers as well.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Don't set erc-server-announced-name unless known
+
+ * lisp/erc/erc.el (erc-open): whenever this function is called, the
+ variable `erc-server-announced-name' may be set locally in the calling
+ server buffer. However, if that buffer's dialed server matches that
+ of the one being created, the announced name is copied over on faith.
+ But there's no guarantee that the name will match the one ultimately
+ emitted by the server during its introductory burst. Beyond
+ potentially causing confusion in protocol logs, this behavior may
+ complicate debugging efforts. Setting the variable to nil helps
+ ensure a consistent environment when preparing a buffer for all newly
+ dialed connections. This commit also simplifies the setting of
+ `erc-server-connected', which is always nil when connecting and
+ vice-versa.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Allow exemption from flood penalty in erc-backend
+
+ * lisp/erc/erc-backend.el (erc-server-send, erc-server-PING): Change
name
+ of param `forcep' in `erc-server-send' to `force' and change its type
+ to the union of the symbol `no-penalty' and the set of all other
+ non-nil values. In `erc-server-PING', use this exemption when calling
+ `erc-server-send'. This fix was fast tracked and summarily
+ incorporated into bug#48598 because users of the soju bouncer are all
+ affected. See update #5 in the bug's email thread under the section
+ entitled "Riders" for an explanation.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Customize displaying of ERC buffers on reconnect
+
+ * lisp/erc/erc-backend.el (erc--server-last-reconnect-count):
+ Add variable to record last reconnect tally.
+
+ * lisp/erc/erc.el (erc-reconnect-display): Add new option to specify
+ channel-buffer display behavior on reconnect.
+ (erc-setup-buffer): Use option `erc-reconnect-display' if warranted.
+ (erc-cmd-JOIN): Forget last reconnect count when issuing a manual
+ /JOIN command.
+ (erc-connection-established): Record reconnect count in internal var
+ before resetting.
+ (Bug#51753)
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Remove duplicate ERC prompt on reconnect
+
+ * lisp/erc/erc-backend.el (erc--unhide-prompt, erc--hide-prompt,
+ erc--unhide-prompt-on-self-insert): Add functions to ensure prompt is
+ hidden on disconnect and shown when a user types /reconnect in a
+ disconnected server buffer.
+ (erc-process-sentinel): Register aforementioned function with
+ `pre-command-hook' when prompt is deleted after disconnecting.
+ (erc-server-PRIVMSG): Ensure prompt is showing when a new message
+ arrives from target.
+
+ * lisp/erc/erc.el (erc-hide-prompt): Repurpose unused option by
+ changing meaning slightly to mean "selectively hide prompt when
+ disconnected." Also delete obsolete, commented-out code that at some
+ point used this option in its prior incarnation.
+ (erc-prompt-hidden): Add new option to specify look of prompt when
+ hidden.
+ (erc-unhide-query-prompt): Add option to force-reveal query prompts on
+ reconnect.
+ (erc-open): Augment earlier reconnect-detection semantics by
+ incorporating `erc--server-reconnecting'. In existing buffers, remove
+ prompt-related hooks and reveal prompt, if necessary.
+ (erc-cmd-RECONNECT): Allow a user to reconnect when already
+ connected (by first disconnecting).
+ (erc-connection-established): Possibly unhide query prompts.
+ (Bug#54826)
+
+ * test/lisp/erc/erc-tests.el (erc-tests--test-prep,
+ erc-tests--set-fake-server-process): Factor out some common
+ buffer-prep boilerplate involving user input and the server process.
+ Shared with bug#54536.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Accept user keyword arg in ERC entry-point commands
+
+ * lisp/erc/erc-backend.el (erc-server-reconnect): Reuse the username
+ argument from the previous session's USER command when reconnecting.
+ Also pass the existing client certificate, fixing an issue related to
+ bug#47788.
+ (erc-session-user-full-name): Move variable here from erc.el.
+ (erc-session-username): Add new local variable to store entry point
+ parameter.
+
+ * lisp/erc/erc.el (erc-session-user-full-name): Move variable to
+ erc-backend.
+ (erc-open, erc-determine-parameters, erc, erc-tls): Accept new
+ optional user parameter.
+ (erc-query): Preserve current `erc-session-username' when calling
+ `erc-open'.
+ (erc-login): Use `erc-session-username' instead of deriving it.
+ (erc-compute-user): Add new function to determine user name from
+ explicit argument or user options.
+ (Bug#54824)
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Initialize erc-server-filter-data in erc-backend
+
+ * lisp/erc/erc-backend.el (erc-server-connect): Set
+ `erc-server-filter-data' to nil upon (re)connecting.
+
+ * lisp/erc/erc.el (erc-open): For the sake of clarity, don't
+ initialize `erc-server-filter-data' here because non-connect
+ invocations merely set up a target buffer and have no business
+ touching this variable.
+
+2022-06-30 F. Jason Park <jp@neverwas.me>
+
+ Rework mutual dependency between erc and erc-backend
+
+ * lisp/erc/erc.el: Declare needed variables exported by erc-backend.el
+ as special near the top of the file, and only require `erc-backend'
+ after providing `erc' as a feature at the very end.
+
+ * lisp/erc/erc-backend.el: Don't preemptively provide `erc-backend'.
+
+ * test/lisp/erc/erc-tests.el (erc--meta--backend-dependencies): Add
+ utility test to scrape for unused vars that may accumulate over time.
+ (Bug#54825)
+
+2022-06-30 Stefan Kangas <stefan@marxist.se>
+
+ Doc fixes: don't refer to some obsolete items
+
+ * admin/notes/multi-tty:
+ * lisp/chistory.el (command-history):
+ * lisp/emacs-lisp/nadvice.el:
+ * lisp/vc/diff-mode.el: Doc fix; don't refer to obsolete variables and
+ functions.
+
+2022-06-30 Stefan Kangas <stefan@marxist.se>
+
+ Remove obsolete cust-print from elisp index
+
+ * doc/lispref/edebug.texi (Printing in Edebug): Remove obsolete
+ library "cust-print" from index.
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix define-obsolete-function-alias formatting in loaddefs-gen.el
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form):
+ Fix formatting of define-obsolete-function-alias statements
+ (bug#56292).
+
+2022-06-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (syntax-wholeline-max): New var
+
+ Try and reduce the pain caused by font-lock and syntax-propertize's
+ wholeline-based operation in buffers made up of a few very long lines
+ (bug#45898).
+
+ * lisp/emacs-lisp/syntax.el (syntax-wholeline-max): New var.
+ (syntax--lbp): New function.
+ (syntax-propertize-wholelines): Use it.
+
+ * lisp/jit-lock.el (jit-lock--antiblink-post-command): Use
`syntax--lbp`.
+
+ * lisp/font-lock.el (font-lock-extend-region-wholelines): Rewrite,
+ using `syntax-propertize-wholelines`.
+
+2022-06-30 Stefan Kangas <stefan@marxist.se>
+
+ * admin/make-tarball.txt: Minor clarifications.
+
+2022-06-30 Mattias Engdegård <mattiase@acm.org>
+
+ Don't say that macro-expansion error is a warning
+
+ * lisp/emacs-lisp/gv.el:
+ * lisp/emacs-lisp/macroexp.el (internal-macroexpand-for-load): Since
+ eager macro-expansion errors are no longer warnings, don't say so.
+
+2022-06-30 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/eshell/em-term.el (eshell-visual-commands): Add vim.
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Also add elisp-eval/byte-compile-buffer to lisp-interaction-mode
+
+ * lisp/progmodes/elisp-mode.el (lisp-interaction-mode-map): Also
+ add elisp-eval-buffer and elisp-byte-compile-buffer to this map.
+
+2022-06-30 Mattias Engdegård <mattiase@acm.org>
+
+ Don't change indentation rules for `>=` and `=`
+
+ * lisp/emacs-lisp/rx.el: `>=` and `=` are much more likely functions
+ than RX constructs and the indentation machinery currently has
+ no way to tell them apart.
+ Suggested by Michael Herdeegen.
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous elisp-byte-compile-buffer change
+
+ * lisp/progmodes/elisp-mode.el (elisp-byte-compile-buffer): Make
+ warnings point to the correct place.
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up warning links in elisp-byte-compile-buffer
+
+ * lisp/progmodes/elisp-mode.el (elisp-byte-compile-buffer): Make
+ warnings point to the correct place.
+
+2022-06-30 Stefan Kangas <stefan@marxist.se>
+
+ New hook save-place-after-find-file-hook
+
+ This is intended for use in Org mode, where we currently use advise.
+ * lisp/saveplace.el (save-place-after-find-file-hook): New hook.
+ (save-place-find-file-hook): Run new hook.
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make "eager macro-expansion" warning into an error
+
+ * doc/lispref/loading.texi (How Programs Do Loading): Update
+ documentation.
+
+ * lisp/emacs-lisp/macroexp.el:
+ (internal-macroexpand-for-load): We've been warning about eager
+ macro expansion for many years, so finally change that into an
+ error (bug#18154).
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Do NEWS tagging
+
+2022-06-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix external image conversion on MS-Windows
+
+ * lisp/image/image-converter.el (image-converter--convert-magick)
+ (image-converter--convert): Force encoding/decoding to avoid any
+ text or EOL conversions, since we are reading/writing binary
+ data. (Bug#56317)
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add find-function-setup-keys bindings for find-library commands
+
+ * lisp/emacs-lisp/find-func.el (find-function-setup-keys): Add `L'
+ bindings for the find-library family of commands (bug#51240).
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore temp-buffer-resize-mode behaviour wrt. [back] buttons
+
+ * lisp/help.el (help--window-setup): If temp-buffer-resize-mode, do
+ the window setup after adding [back] buttons (bug#56306).
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous server.el change
+
+ * lisp/server.el (server-process-filter): Fix typo in previous change.
+
+2022-06-30 Michael Shields <shields@msrl.com>
+
+ Don't ignore emacsclient's --frame-parameters option when -t
+
+ * lisp/server.el (server-process-filter): Add part of patch that
+ was mistakenly missed when the patch was applied (bug#24147).
+ This also fixes bug#56309.
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new commands to elisp mode for eval/compilation
+
+ * lisp/progmodes/elisp-mode.el (emacs-lisp-mode-map): Add new
+ keystrokes.
+ (elisp-eval-buffer, elisp-byte-compile-file)
+ (elisp-byte-compile-buffer): New commands.
+
+2022-06-30 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Clarify `version-control' in the Emacs manual
+
+ * doc/emacs/files.texi (Backup Names): Rephrase for greater
+ clarity (bug#56291).
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Recognize Gradle error messages in compile-mode
+
+ * lisp/progmodes/compile.el
+ (compilation-error-regexp-alist-alist): Recognize Gradle errors
+ (bug#56249).
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add provide to testcover
+
+ * lisp/emacs-lisp/testcover.el (testcover): Provide (bug#55388).
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-06-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new commands to zoom emojis
+
+ * lisp/international/emoji.el (emoji-zoom-map)
+ (emoji-zoom-increase, emoji-zoom-decrease): New commands.
+
+ * lisp/international/mule-cmds.el (ctl-x-map): Bind them.
+
+2022-06-30 Po Lu <luangruo@yahoo.com>
+
+ Disable unrelated drag-and-drop protocols during XDS drop
+
+ * doc/lispref/frames.texi (Drag and Drop): Document variables
+ used to control drag-and-drop protocols.
+ * lisp/x-dnd.el (x-dnd-do-direct-save): Disable irrelevant DND
+ protocols.
+
+ * src/xterm.c (x_dnd_get_target_window_1):
+ (x_dnd_get_target_window):
+ (handle_one_xevent): Respect new variable.
+ (syms_of_xterm): New variable `x-dnd-disable-motif-protocol'.
+
+2022-06-30 jicksaw <jicksaw@pm.me> (tiny change)
+
+ Reduce eldoc noise from hover messages
+
+ Also close https://github.com/joaotavora/eglot/issues/985
+
+ Only echo hover response content, without response range.
+
+ LSP specification says the range is meant to visualize a hover.
+ Maybe echoing the range is useful for some, but it seems
+ non-standard behavior.
+
+ Example issue: haskell-language-server responds with range set to
+ whole file when hovering a comment -> Large, useless eldoc
+
+ * eglot.el (eglot--hover-info): Remove text selected by range from
+ output
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/514
+
+2022-06-30 Po Lu <luangruo@yahoo.com>
+
+ Improve compliance with the XDS and XDND protocols
+
+ * lisp/select.el (xselect-convert-to-text-uri-list): Return a
+ type of `text/uri-list' instead of STRING or C_STRING.
+
+ * lisp/x-dnd.el (x-dnd-xds-performed): New defvar.
+ (x-dnd-handle-direct-save): Set it to t and handle URIs with
+ hostnames correctly. Also return errors correctly.
+ (x-dnd-handle-octet-stream): New function.
+ (x-dnd-do-direct-save): Handle application/octet-stream, check
+ results.
+
+2022-06-29 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Use "Surname" instead of "Name" in prompts
+
+ * lisp/net/eudc-vars.el (eudc-user-attribute-names-alist): Add
+ name/"Surname" association.
+ * lisp/net/eudc.el (eudc-get-email): Prompt for surname.
+ * lisp/net/eudc.el (eudc-get-phone): Likewise.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Fix preservation of the original value of PRIMARY after dropping on
xterm
+
+ * src/xselect.c (x_own_selection): New arg `dnd_data'. Record
+ it.
+ (x_get_local_selection, x_handle_selection_request)
+ (x_convert_selection): Convert the DND data instead if the
+ situation warrants.
+ (Fx_own_selection_internal, Fx_get_selection_internal)
+ (Fx_get_local_selection): Update calls to x_get_local_selection.
+
+ * src/xterm.c (x_dnd_do_unsupported_drop): If obtaining
+ selection ownership failed, return. Record DND value and
+ preserve the current value of PRIMARY, if it exists.
+
+ * src/xterm.h: Update prototypes.
+
+2022-06-29 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Prevent field overlap when query form is reset
+
+ * lisp/net/eudc.el (eudc-query-form): Delete all overlays before
+ erasing buffer. Remove widget-after-change from
+ after-change-functions.
+
+2022-06-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/emacs/buffers.texi (Indirect Buffers): Mention modification hook
quirk
+
+2022-06-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix hscrolling of :align-to when display-line-numbers is in effect
+
+ * src/dispextern.h (struct it): Rename 'tab_offset' member to
+ 'stretch_adjust'.
+ * src/xdisp.c (gui_produce_glyphs, produce_stretch_glyph)
+ (display_line): All users of 'tab_offset' changed.
+ (produce_stretch_glyph): Fix calculation of ':align-to' when
+ line numbers are displayed and the window is hscrolled.
+ (calc_pixel_width_or_height): Fix calculation of width of 'space'
+ display property when 'display-line-numbers' is turned on, but the
+ line number was not yet produced for the current glyph row.
+ (Bug#56176)
+
+2022-06-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): Fix `diff-buffers`
case
+
+2022-06-29 Mattias Engdegård <mattiase@acm.org>
+
+ More robust `gnu` pattern (bug#56249)
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Don't allow spaces in the file names, to avoid false matches.
+ Don't allow ad-hoc spaces preceding the program name either.
+
+2022-06-29 Mattias Engdegård <mattiase@acm.org>
+
+ Complete transition to rx for compilation `gnu` pattern
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Change from a mixture of traditional regexp syntax and rx,
+ to make intentions clearer.
+
+2022-06-29 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/emacs-lisp/rx.el: Indent some rx constructs correctly.
+
+ This includes group-n, submatch-n, =, >=, ** and repeat, whose first 1
+ or 2 arguments are special.
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 6c26f089a7 Update ChangeLog and AUTHORS for 28.1.90 pretest
+
+ # Conflicts:
+ # ChangeLog.3
+ # etc/AUTHORS
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ bf137fdbd2 ; * admin/make-tarball.txt: Small clarification.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Fix handling invalidated selection requests
+
+ * src/xselect.c (x_handle_selection_request): Correctly punt
+ when !dpyinfo.
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Bump Emacs version to 28.1.90
+
+ * README:
+ * configure.ac:
+ * msdos/sed2v2.inp:
+ * nt/README.W32: Bump Emacs version to 28.1.90.
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Update ChangeLog and AUTHORS for 28.1.90 pretest
+
+ * ChangeLog.3:
+ * etc/AUTHORS: Update.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Fix some bugs found while testing drag-and-drop
+
+ * lisp/x-dnd.el (x-dnd-get-drop-width-height):
+ (x-dnd-get-drop-x-y): Fix doc string.
+ (x-dnd-handle-xdnd): Don't set update rect if
+ `dnd-indicate-insertion-point'. Bug found testing with "JX
+ Application Framework".
+
+2022-06-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (cl--generic-compiler): Revert last change
+
+ That change (introduced to circumvent an error now that `seq.el` is
+ preloaded) caused all dispatchers to be left uncompiled, which slows
down
+ method dispatch very significantly. Fix the problem in the old way,
+ i.e. by adding an explicit call to `cl--generic-prefill-dispatchers`.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-compiler): Revert last
change.
+ Add (cl--generic-prefill-dispatchers 1 integer) instead to handle
+ the new dispatchers needed for `seq.el`.
+ (cl--generic-prefill-generalizer-sample): New function.
+ (cl--generic-get-dispatcher): Use it to signal an error giving precise
+ instructions for what to do if we're about the load the byte-compiler
+ during the preload.
+ (cl--generic-oclosure-generalizer): Rename from
+ `cl-generic--oclosure-generalizer` for consistency with all
+ other generalizers.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Update dnd-tests.el to make sure remote files are removed when Emacs
quits
+
+ * test/lisp/dnd-tests.el (dnd-tests-begin-drag-files)
+ (dnd-tests-begin-file-drag): Test value of `kill-emacs-hook'.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Implement starting X Direct Save (XDS) drops
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new function
+ `dnd-direct-save'.
+ * etc/NEWS: Likewise.
+
+ * lisp/dnd.el (dnd-direct-save-remote-files): New defcustom.
+ (dnd-begin-file-drag): Implement defucstom.
+ (dnd-begin-drag-files): Add kill-emacs-hook after saving remote
+ file.
+ (dnd-direct-save): New function.
+ * lisp/x-dnd.el (x-dnd-known-types): Fix coding style.
+ (x-dnd-handle-drag-n-drop-event): Handle local value with
+ self-originating DND events.
+ (x-dnd-xds-current-file, x-dnd-xds-source-frame): New defvars.
+ (x-dnd-handle-direct-save, x-dnd-do-direct-save): New functions.
+
+ * src/xfns.c (Fx_begin_drag): Allow any atom to be used as a DND
+ action.
+ * src/xselect.c (symbol_to_x_atom): Make public.
+ * src/xterm.c (x_dnd_note_self_drop): Include selection local
+ value.
+ (x_ignore_errors_for_next_request): Don't assume x_error_message
+ is set.
+ * src/xterm.h: Update prototypes.
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Make two text-property-search tests easier to read
+
+ * test/lisp/emacs-lisp/text-property-search-tests.el
+ (text-property-search-forward/point-at-beginning)
+ (text-property-search-backward/point-at-end): Rewrite to make tests
+ easier to read.
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Minor cleanup in dired-x-bind-find-file
+
+ * lisp/dired-x.el (dired-x-bind-find-file): Use 'format-message'
+ and 'keymap-set'.
+
+2022-06-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the eval-defun doc string
+
+ * lisp/progmodes/elisp-mode.el (eval-defun): Document what the
+ command actually does w.r.t. finding a form to evaluate
+ (bug#47747).
+
+2022-06-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that In-Reply-To is saved in drafts in Message
+
+ * lisp/gnus/message.el (message-hidden-headers): Hide In-Reply-To
+ now that we pre-generate it.
+ (message-setup-1): Pre-generate In-Reply-To so that it'll be saved
+ in drafts (bug#47639).
+
+2022-06-29 Tom Gillespie <tgbugs@gmail.com>
+
+ test/lisp/progmodes/python-tests.el: add test for nav end of block
+
+ Add test for python-nav-end-of-block to prevent regression of bug#56271.
+
+2022-06-29 Tom Gillespie <tgbugs@gmail.com>
+
+ lisp/progmodes/python.el (python-nav-end-of-block): prevent infinite
loop
+
+ lisp/progmodes/python.el (python-nav-end-of-block): Fix a bad
+ assumption that python-nav-end-of-statement always makes forward
+ progress by testing that it actually does. If this check is not made
+ then it is possible for python-nav-end-of-block to enter an infinite
+ loop. (bug#56271)
+
+2022-06-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation-mode parsing of file names in Gradle errors
+
+ * lisp/progmodes/compile.el
+ (compilation-error-regexp-alist-alist): Fix parsing of file names
+ in Gradle output (bug#56249).
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ * lisp/pgtk-dnd.el (pgtk-dnd-use-offix-drop): Remove extra variable.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Clean up failable requests in more places
+
+ * lisp/term/haiku-win.el (haiku-get-numeric-enum): Fix build.
+
+ * src/xterm.c (x_clean_failable_requests): Avoid redundant
+ memcpy if first == last.
+ (x_ignore_errors_for_next_request): Fix check for last request.
+ (x_check_errors, x_had_errors_p): Clean up failable requests
+ here.
+
+2022-06-29 Po Lu <luangruo@yahoo.com>
+
+ Handle be:actions field in Haiku DND messages
+
+ * lisp/term/haiku-win.el (haiku-get-numeric-enum): New function.
+ (haiku-numeric-enum): New macro.
+ (haiku-select-encode-xstring, haiku-select-encode-utf-8-string):
+ Replace hard-coded numeric enumerators.
+ (haiku-parse-drag-actions): New function.
+ (haiku-drag-and-drop): Use action returned by that function.
+ (x-begin-drag): Replace hard-coded enumerator.
+
+2022-06-29 Gerd Möllmann <gerd@gnu.org>
+
+ Ensure correct toggle menu item display
+
+ * lisp/menu-bar.el (menu-bar-make-toggle-command): Call
+ force-mode-line-update. (Bug#56155)
+
+2022-06-29 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 2eba8cad20 Tramp shall not trap unrelated D-Bus errors
+ a8e72eb0e2 ; * etc/NEWS: Fix file name quotations.
+ 091b22cb12 Fix hash table function return values in manual
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-06-28 Po Lu <luangruo@yahoo.com>
+
+ Fix reported problem with drag-and-drop inside VirtualBox
+
+ * lisp/x-dnd.el (x-dnd-handle-old-kde, x-dnd-handle-offix)
+ (x-dnd-handle-motif): Select window before handling drop, like
+ on Xdnd.
+ (x-dnd-convert-to-offix, x-dnd-do-offix-drop)
+ (x-dnd-handle-unsupported-drop): Accept local selection data and
+ use that instead.
+
+ * src/keyboard.c (kbd_buffer_get_event): Call unsupported drop
+ function with local selection data as 8th arg.
+ * src/xselect.c (x_get_local_selection): Accept new arg
+ `local_value'. All callers changed.
+ (Fx_get_local_selection): New function.
+ (syms_of_xselect): Update defsubrs.
+
+ * src/xterm.c (x_dnd_lose_ownership): New function.
+ (x_dnd_begin_drag_and_drop): Unless new variable is true, disown
+ XdndSelection after returning. This supposedly makes
+ drag-and-drop from guest to host work in VirtualBox without
+ causing pointer motion to become choppy afterwards.
+ (syms_of_xterm): New variable `x_dnd_preserve_selection_data'
+ and update doc string of `x-dnd-unsupported-drop-function'.
+
+ * test/lisp/dnd-tests.el (dnd-tests-begin-text-drag)
+ (dnd-tests-begin-file-drag, dnd-tests-begin-drag-files): Set new
+ variable to nil during tests.
+
+2022-06-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous maintaining.texi change
+
+ * doc/emacs/maintaining.texi (Looking Up Identifiers): Fix typo.
+
+2022-06-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el (isearch-delete-char): Improve fix for bug#52248.
+
+ When reaching the top of the stack where isearch-other-end is nil,
+ still close unnecessary overlays for the previous position.
+ (isearch-close-unnecessary-overlays): Rename arg BEG for consistency.
+
+2022-06-28 Visuwesh <visuweshm@gmail.com>
+
+ trouble.texi (Long Lines): Fix typo.
+
+ * doc/emacs/trouble.texi (Long Lines): Fix typo (bug#56283).
+
+2022-06-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Put the obsoletion earlier in the *Help* buffer
+
+ * lisp/help-fns.el (help-fns--obsolete): Remove indentation and fill.
+ (help-fns--var-obsolete): Ditto.
+ (describe-function-1): Output the obsoletion info first since it's
+ vital information.
+ (describe-variable): Ditto (bug#56251).
+
+2022-06-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve sxhash-equal documentation
+
+ * doc/lispref/hash.texi (Defining Hash): Explain more about what
+ sxhash-equal is for and what the caveats are.
+ * src/fns.c (Fsxhash_eql, Fsxhash_equal): Clarify doc string.
+
+2022-06-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using define-short-documentation-group without loading shortdoc
+
+ * lisp/emacs-lisp/shortdoc.el (define-short-documentation-group):
+ Allow using without loading shortdoc.el (bug#56260).
+
+2022-06-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp shall not trap unrelated D-Bus errors
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-dbus-event-vector): Declare.
+ (tramp-gvfs-file-name-handler): Let-bind it.
+ (tramp-gvfs-dbus-event-vector): Fix docstring.
+ (tramp-gvfs-maybe-open-connection): Do not set it globally. (Bug#56162)
+
+2022-06-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Looking Up Identifiers in the manual
+
+ * doc/emacs/maintaining.texi (Looking Up Identifiers): Clarify the
+ text about C-M-, (bug#56261).
+
+2022-06-28 Zachary Kanfer <zkanfer@gmail.com>
+
+ Add new command `rename-visited-file'
+
+ * doc/emacs/files.texi (Save Commands): Document it.
+
+ * lisp/files.el (rename-visited-file): New command (bug#56229).
+
+2022-06-28 Jim Meyering <meyering@fb.com> (tiny change)
+
+ Fix configure.ac quoting of AC_CHECK_LIB's 2nd arg
+
+ Running an autoconf-head-generated configure, would fail like this:
+ /emacs/configure: line 18002: syntax error near unexpected token `;;'
+ /emacs/configure: line 18002: ` ;;'
+ That is due to under-quoting of AC_CHECK_LIB's second argument, which
led to
+ the comma in an embedded string being interpreted as
paramater-delimiting.
+ * configure.ac: Quote the second arg of each AC_CHECK_LIB invocation.
+ (Bug#56272)
+
+2022-06-28 Po Lu <luangruo@yahoo.com>
+
+ Adjust x-clipboard-yank for recent selection ownership changes
+
+ * lisp/term/x-win.el (x-clipboard-yank): Don't own CLIPBOARD
+ inside kill-new.
+
+2022-06-28 Po Lu <luangruo@yahoo.com>
+
+ Clean up Fx_begin_drag
+
+ * src/xfns.c (Fx_begin_drag): Use FOR_EACH_TAIL instead of
+ iterating manually.
+
+2022-06-28 Po Lu <luangruo@yahoo.com>
+
+ Automatically detect cyclic lists in some Haiku functions
+
+ * src/haikuselect.c (haiku_lisp_to_message): Use FOR_EACH_TAIL
+ to iterate over message data.
+
+2022-06-28 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix hash table function return values in manual
+
+ * doc/lispref/hash.texi (Hash Access): Reconcile documented return
+ values of puthash and clrhash with their respective
+ docstrings (bug#55562).
+
+2022-06-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a280df4cab ; Mention in NEWS the need to use --bindir
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-06-27 Po Lu <luangruo@yahoo.com>
+
+ Fix handling "C-S-u" and such when using XKB
+
+ * src/xterm.c (handle_one_xevent): Don't rely on XKB for
+ consumed modifiers.
+
+2022-06-27 Po Lu <luangruo@yahoo.com>
+
+ Always use XKB to translate keysyms when no input method is available
+
+ * src/xterm.c (handle_one_xevent) [HAVE_XKB]: Also use XKB to
+ handle core KeyPress events.
+
+2022-06-27 Basil L. Contovounesios <contovob@tcd.ie>
+
+ * lisp/subr.el (plistp): Simplify (bug#47427).
+
+2022-06-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ "make clean" etc. problem now fixed on Solaris.
+
+2022-06-27 Gerd Möllmann <gerd@gnu.org>
+
+ Prevent regexp cache entries from being GC'ed in more cases
+
+ * src/search.c (string_match_1, fast_string_match_internal)
+ (fast_c_string_match_ignore_case): Use freeze_pattern.
+ (Bug#56108)
+
+2022-06-27 Eli Zaretskii <eliz@gnu.org>
+
+ Fix deletion of composed text
+
+ * lisp/composite.el (lgstring-glyph-boundary): New function.
+ * lisp/simple.el (delete-forward-char): Call
+ 'lgstring-glyph-boundary' to find where to end the deletion inside
+ an automatic composition. (Bug#56237)
+
+2022-06-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some missed Fplist_put adjustments in src/w32.c
+
+ * src/w32.c (serial_configure): Adjust some missed Fplist_put renames.
+
+2022-06-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new type predicate plistp
+
+ * lisp/subr.el (plistp): New type predicate (bug#47427). This
+ referred to in the error message from plist-put: "Debugger
+ entered--Lisp error: (wrong-type-argument plistp (a b c))".
+
+2022-06-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust plist calls in .m files
+
+ * src/nsterm.m (mod_of_kind):
+ * src/nsimage.m (ns_load_image): Adjust plist calls in .m files.
+
+2022-06-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow plist-get/plist-put/plist-member to take a comparison function
+
+ * doc/lispref/lists.texi (Plist Access): Document it.
+
+ * lisp/filesets.el (filesets-reset-fileset)
+ (filesets-ingroup-cache-get):
+ (filesets-ingroup-cache-put):
+ (filesets-build-menu-now): Don't use lax-plist functions.
+
+ * lisp/simple.el (lax-plist-put, lax-plist-get): Moved here from
+ fns.c and make obsolete.
+
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Don't mark
+ plist functions as side-effect-free or pure.
+
+ * lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Adjust type.
+
+ * lisp/emacs-lisp/shortdoc.el (list): Don't document deprecated
+ functions.
+
+ * src/xdisp.c (build_desired_tool_bar_string):
+ (display_mode_element):
+ (store_mode_line_string):
+ (display_string):
+ (produce_stretch_glyph):
+ (note_mode_line_or_margin_highlight):
+ (note_mouse_highlight):
+ * src/w32.c (serial_configure):
+ * src/sysdep.c (serial_configure):
+ * src/sound.c (parse_sound):
+ * src/process.c (Fset_process_buffer):
+ (Fset_process_sentinel):
+ (Fprocess_contact):
+ (Fmake_process):
+ (Fmake_pipe_process):
+ (Fset_network_process_option):
+ (Fserial_process_configure):
+ (Fmake_serial_process):
+ (set_network_socket_coding_system):
+ (finish_after_tls_connection):
+ (connect_network_socket):
+ (Fmake_network_process):
+ (server_accept_connection):
+ * src/lread.c (ADDPARAM):
+ (hash_table_from_plist):
+ * src/keyboard.c (make_lispy_position):
+ * src/indent.c (check_display_width):
+ * src/image.c (postprocess_image):
+ * src/gnutls.c (gnutls_verify_boot):
+ (Fgnutls_boot):
+ (gnutls_symmetric):
+ (Fgnutls_hash_mac):
+ (Fgnutls_hash_digest):
+ * src/dired.c (filter):
+ * src/data.c (add_to_function_history):
+ * src/coding.c (Fcoding_system_put): Adjust callers from
+ Fplist_put (etc) to plist_put.
+
+ * src/fns.c (plist_get):
+ (plist_put):
+ (plist_member): New functions (without optional third parameter)
+ to be used in C code.
+
+ * src/fns.c (Fplist_get, Fplist_put, Fplist_member): Take an
+ optional predicate parameter (bug#47425).
+
+ * src/lisp.h: Declare new plist_put, plist_get and plist_member
+ functions.
+
+ * test/lisp/json-tests.el (test-json-add-to-plist): Use plist-get.
+
+ * test/src/fns-tests.el (test-cycle-lax-plist-get):
+ (test-cycle-lax-plist-put):
+ (lax-plist-get/odd-number-of-elements):
+ (test-plist): Remove lax-plist tests, since semantics have changed
+ (they no longer error out on cycles).
+
+2022-06-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entry about C-h v font locking
+
+2022-06-27 hokomo <hokomo@airmail.cc> (tiny change)
+
+ Fix detecting dotted pairs in icalendar-export-region
+
+ * lisp/calendar/icalendar.el (icalendar-export-region): Fix detecting
+ dotted pairs (bug#56241).
+
+2022-06-27 Allen Li <darkfeline@felesatra.moe>
+
+ find-dired: Add find-dired-with-command
+
+ Add a command that runs and sets up the find-dired buffer with an
+ arbitrary find command. Also rewrite the existing find-dired commands
+ using it.
+
+ The set of commands possible with find-dired is limited; the new
+ command allows users to run the full set of commands, but also leaves
+ the responsibility to the user to construct the command manually.
+
+ * lisp/find-dired.el (find-command-history): New var.
+ (find-dired-with-command): New command.
+ (find-dired): Rewritten with new command.
+
+2022-06-27 Allen Li <darkfeline@felesatra.moe>
+
+ find-dired: Factor out find-dired--escaped-ls-option
+
+ Deduplicate this logic for other future find-dired commands.
+
+ * lisp/find-dired.el (find-dired--escaped-ls-option): New function.
+ (find-dired): Use find-dired--escaped-ls-option.
+
+2022-06-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix off-by-one error in Fsignal_names
+
+ * src/process.c (Fsignal_names): Fix off-by-one error.
+
+2022-06-27 Po Lu <luangruo@yahoo.com>
+
+ Use correct background for image mask color on Haiku
+
+ * src/haikuterm.c (haiku_draw_image_glyph_string): Use adjusted
+ background for image mask.
+
+2022-06-27 Po Lu <luangruo@yahoo.com>
+
+ Implement stipples for images on Haiku
+
+ * src/haiku_draw_support.cc (be_draw_bitmap_with_mask): New
+ function.
+ * src/haiku_support.h: Add prototype.
+
+ * src/haikuterm.c (haiku_draw_image_glyph_string): Draw stipple
+ correctly.
+ (haiku_draw_glyph_string): Fix conditions under which
+ row->stipple_p is set.
+
+2022-06-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 48bda83d35 Update to Org 9.5.4-3-g6dc785
+ c66b90a534 Mention Solaris 10 'make clean' and 'make check'
+ ade34cf821 Mention further crashes on Solaris 10
+
+2022-06-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a9d338818a ; elec-pair: Fix docstring typo (bug#56233)
+
+2022-06-26 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.4-3-g6dc785
+
+2022-06-26 Po Lu <luangruo@yahoo.com>
+
+ Correctly convert event state in more places
+
+ * src/xterm.c (handle_one_xevent): Use `xi_convert_event_state'
+ to handle synthetic and xwidget button events.
+
+2022-06-26 Paul Eggert <eggert@cs.ucla.edu>
+
+ Mention Solaris 10 'make clean' and 'make check'
+
+ Mention further crashes on Solaris 10
+
+2022-06-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Minor clean up of previous Fsignal_names patch
+
+ * src/process.c (Fsignal_names): Clean up code slightly.
+
+2022-06-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `signal-process' allow completing over signal names
+
+ * lisp/simple.el (read-signal-name): New function.
+ * src/process.c (Fsignal_process): Use it to allow completing over
+ the signal names (bug#56239).
+ (Fsignal_names): New function.
+
+2022-06-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Font-lock variable values in *Help*
+
+ * lisp/help-fns.el (describe-variable): Font-lock the variable
+ value (bug#47363).
+
+2022-06-26 Mattias Engdegård <mattiase@acm.org>
+
+ Optimise away functions in for-effect context
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker):
+ Turn functions into nil when compiled for-effect since they have no
+ side-effects on their own. This may enable further improvements such
+ as the elimination of variable bindings.
+ `unwind-protect` forms can be treated as plain function call at this
+ point. In particular, their unwind function argument should be
+ not optimised for effect since it's a function.
+
+2022-06-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (oclosure-test-limits): Fix test failure when interpreted
+
+ * test/lisp/emacs-lisp/oclosure-tests.el (oclosure-test-limits):
+ Make sure we bind `byte-compile-debug` dynamically.
+
+2022-06-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix re-composition under 'composition-break-at-point'
+
+ * src/xdisp.c (try_window_id): Disable this optimization if
+ 'composition-break-at-point' is non-nil.
+
+2022-06-26 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/simple.el (delete-forward-char): Fix bug #56237.
+
+2022-06-26 Jim Porter <jporterbugs@gmail.com>
+
+ When closing an Eshell process target, send EOF three times
+
+ * lisp/eshell/esh-io.el (eshell-close-target): Send EOF 3 times.
+
+ * test/lisp/eshell/em-extpipe-tests.el (em-extpipe-tests--deftest):
+ Re-enable these tests on EMBA.
+
+ This patch is adapted by one from Ken Brown, who uncovered the reason
+ for this bug (bug#56025).
+
+2022-06-26 Kjartan Óli Ágústsson <kjartanoli@outlook.com>
+
+ Reconvert EPUB buffers when user CSS is changed
+
+ * lisp/doc-view.el (doc-view-epub-user-stylesheet): Add
+ `doc-view-custom-set-mutool-user-stylesheet' as setter, change name.
+ (doc-view-custom-set-epub-font-size): Factor reconvert logic out
+ (doc-view--epub-reconvert): Add defun
+ (doc-view--epub-stylesheet-watcher): Add defvar
+ (doc-view-custom-set-epub-user-stylesheet): Add defun (bug#55825).
+
+2022-06-26 Visuwesh <visuweshm@gmail.com>
+
+ Make <mouse-2> in mode line more careful as well
+
+ * lisp/mouse.el (mouse-delete-other-windows): Only delete other
+ windows if the user didn't move the cursor off the
+ mode-line (bug#56198).
+
+2022-06-26 Visuwesh <visuweshm@gmail.com>
+
+ Make <mouse-3> in the mode line more careful
+
+ * lisp/mouse.el (mouse-delete-window): Only delete the window if
+ the user hasn't moved point out of the mode line before releasing
+ the button (bug#56198).
+
+2022-06-26 Jonas Bernoulli <jonas@bernoul.li>
+
+ Avoid positional arguments to define-minor-mode
+
+ Back in Emacs-21.1, `define-minor-mode' grew keyword arguments to
+ replace its old positional arguments. Starting with Emacs-28.1
+ a warning will be omitted if positional arguments are still used.
+
+2022-06-26 Jim Porter <jporterbugs@gmail.com>
+
+ Make Eshell globs ending in "/" match directories only
+
+ * lisp/eshell/em-glob.el (eshell-glob-convert): Return whether to
+ match directories only.
+ (eshell-glob-entries): Add ONLY-DIRS argument.
+
+ * test/lisp/eshell/em-glob-tests.el
+ (em-glob-test/match-any-directory): New test.
+ (em-glob-test/match-recursive)
+ (em-glob-test/match-recursive-follow-symlinks): Add test cases for
+ when "**/" or "***/" are the last components in a glob.
+
+ * etc/NEWS: Announce this change (bug#56227).
+
+2022-06-26 Jim Porter <jporterbugs@gmail.com>
+
+ Convert Eshell globs ahead of time instead of doing it repeatedly
+
+ * lisp/eshell/em-glob.el (eshell-glob-recursive): New variable.
+ (eshell-glob-convert-1, eshell-glob-convert): New functions.
+ (eshell-extended-glob): Use 'eshell-glob-convert'.
+ (eshell-glob-entries): Adapt function to use pre-converted globs.
+
+ * test/lisp/eshell-em-glob-tests.el (em-glob-test/match-dot-files):
+ New test.
+
+2022-06-26 Jim Porter <jporterbugs@gmail.com>
+
+ Optionally signal an error if an Eshell predicate fails to match
anything
+
+ * lisp/eshell/em-pred.el (eshell-error-if-no-glob): Declare it.
+ (eshell-apply-modifiers): Add STRING-DESC argument and signal an error
+ if there are no matches and 'eshell-error-if-no-glob' is set.
+ (eshell-parse-arg-modifier): Pass modifier string to
+ 'eshell-apply-modifiers'.
+
+ * test/lisp/eshell/em-pred-tests.el (eshell-eval-predicate): Simplify.
+ (em-pred-test/no-matches): New test.
+
+ * doc/misc/eshell.texi (Bugs and ideas): Remove todo entry about this
+ change.
+
+2022-06-26 Daniel Martín <mardani29@yahoo.es>
+
+ Fix typo in signal-process-functions
+
+ * doc/lispref/processes.texi (Signals to Processes): Update reference
+ to correct default variable in the ELisp manual.
+ * etc/NEWS: The same for the NEWS entry (bug#56234).
+
+2022-06-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update term-char-mode doc string
+
+ * lisp/term.el (term-char-mode): Update doc string.
+
+2022-06-26 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Fix Bug#56110 (switching from line-mode to char-mode)
+
+ * lisp/term.el (term-char-mode): Make `add-function' override the
+ correct place (the buffer local variable `term-input-sender').
+
+2022-06-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a recent Lisp mode filling test failure
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Restore the
+ "fill first line separately" logic.
+
+2022-06-26 Stefan Kangas <stefan@marxist.se>
+
+ Fix typo in use-package docstring
+
+2022-06-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/syntax.el: Rework the handling of nested calls.
+
+ Nested calls to `syntax-ppss` and `syntax-propertize` can easily
+ happen unexpectedly via ondemand propertizing or `forward-sexp`.
+ Refine the handling of nested calls so we detect them more reliably
+ (e.g. also within `syntax-propertize-extend-region-functions`)
+ and so that the `syntax-ppss` cache is automatically flushed in case
+ it might have been filled with data that's become obsolete since.
+
+ (syntax-propertize--inhibit-flush): Delete var.
+ (syntax-propertize--in-process-p): New function to replace it.
+ (syntax-ppss-flush-cache): Use it.
+ (syntax-ppss--updated-cache): New var.
+ (syntax-propertize): Make `syntax-propertize--done` binding apply to
+ `syntax-propertize-extend-region-functions` as well, as intended (fixes
+ bug#46713). Use `syntax-ppss--updated-cache` to flush
+ syntax-ppss cache at the end when needed.
+ Don't bind `syntax-propertize--inhibit-flush` any more.
+ (syntax-ppss): Set `syntax-ppss--updated-cache` when applicable.
+
+2022-06-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't create HOME if it doesn't exist
+
+ * lisp/files.el (locate-user-emacs-file): Don't create HOME if it
+ doesn't exist (bug#47298). This returns us to Emacs 26.3
+ behaviour here.
+
+2022-06-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix narrowing problem in tramp-debug-buffer-command-completion-p
+
+ * lisp/net/tramp.el (tramp-debug-buffer-command-completion-p):
+ Respect narrowing. (Bug#56225)
+
+2022-06-26 Po Lu <luangruo@yahoo.com>
+
+ Add some more common predefined atoms
+
+ * src/xterm.c (x_intern_cached_atom, x_get_atom_name): Add
+ DRAWABLE, BITMAP, COLORMAP, CURSOR and FONT.
+
+2022-06-26 Eli Zaretskii <eliz@gnu.org>
+
+ Fix ispell-word on colorless TTY frames
+
+ * lisp/textmodes/ispell.el
+ (ispell-highlight-spelling-error-generic): Keep marker position of
+ END intact, deletion of text notwithstanding. (Bug#56219)
+
+2022-06-26 Po Lu <luangruo@yahoo.com>
+
+ Stop catching errors for some requests
+
+ * src/xterm.c (x_dnd_compute_toplevels)
+ (frame_set_mouse_pixel_position, x_focus_frame): Use
+ `x_ignore_errors_for_next_request'. This results in a healthy
+ ~30% speedup for the involved requests.
+
+2022-06-25 Po Lu <luangruo@yahoo.com>
+
+ Handle errors while sending client events asynchronously
+
+ * src/xterm.c (xm_send_drop_message)
+ (xm_send_top_level_enter_message, xm_send_drag_motion_message)
+ (xm_send_top_level_leave_message, x_dnd_send_enter)
+ (x_dnd_send_position, x_dnd_send_leave, x_dnd_send_drop): Avoid
+ sync to check for errors while sending client events.
+ (x_dnd_begin_drag_and_drop, handle_one_xevent, XTread_socket):
+ Clean up failable requests.
+ (x_request_can_fail): New functions.
+ (x_clean_failable_requests, x_ignore_errors_for_next_request)
+ (x_uncatch_errors): Clean up failable requests.
+ (x_error_handler): If a request is allowed to fail, just return.
+ (x_term_init): Set up new pointer.
+ * src/xterm.h (N_FAILABLE_REQUESTS): New macro.
+ (struct x_display_info): New field `failable_requests' and
+ associated next pointer.
+
+2022-06-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port ‘make clean’ to Solaris 10
+
+ * test/Makefile.in (CLEAN_XML_FILES): New macro.
+ (clean): Use it.
+
+2022-06-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port distribution tarball to Solaris 10
+
+ * make-dist (taropt): Use 'tar -H ustar' to generate a portable
+ tar file format instead of a GNU-specific format. Needed now that
+ Emacs tarballs contain file names longer than 100 bytes, e.g.:
+
emacs-28.1/test/lisp/gnus/mml-sec-resources/private-keys-v1.d/C072AF82DCCCB9A7F1B85FFA10B802DC4ED16703.key
+
emacs-28.1/test/lisp/emacs-lisp/bytecomp-resources/error-lexical-var-with-run-hook-with-args-until-success.el
+ Without this patch, extracting a tarball on Solaris 10 fails with
+ many diagnostics like “tar: ././@LongLink: typeflag 'L' not
+ recognized, converting to regular file”.
+
+2022-06-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port test SUBDIRS to Solaris 10
+
+ * test/Makefile.in (SUBDIRS): Port to traditional ‘find’, which
+ lacks -path.
+
+2022-06-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify Oracle Studio re xterm.c
+
+ * src/xterm.c (xErrorHandler, xIOErrorHandler):
+ New typedefs.
+ (xm_get_drag_window_1, x_connection_closed): Use them instead of
+ void *, since the C standard frowns on converting function
+ pointers to and from void *. This pacifies Oracle Studio
+ diagnostics like “warning: assignment type mismatch: pointer to
+ void "=" pointer to function(pointer to struct _XDisplay {})\
+ returning int”.
+ (x_detect_pending_selection_requests, x_had_errors_p): Do not rely
+ on implicit conversion of a pointer to a bool return value; use !!
+ instead. This pacifies Oracle Studio’s “warning: improper
+ pointer/integer combination: op "="”.
+ (xim_open_dpy) [HAVE_X11R6 && !HAVE_X11R6_XIM]: Do not use
+ xim_destroy_callback; configure.ac says “inoue@ainet.or.jp says
+ Solaris has a bug related to X11R6-style ## XIM support” and
+ Oracle Studio complains “warning: assignment type mismatch:
+ pointer to function(pointer to struct _XIC {}, pointer to char,
+ pointer\ to char) returning void "=" pointer to function(pointer
+ to struct _XIM {}, pointer to char, pointer to char) returning
+ void”.
+
+2022-06-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify Oracle Studio re print_vectorlike
+
+ * src/print.c (print_vectorlike): Use explicit cast of function
+ pointer to void *, to pacify Oracle Studio 12.6’s “warning:
+ assignment type mismatch: pointer to void "=" pointer to
+ function(pointer to void) returning void”. Admittedly this is
+ not strictly conforming C code even with the cast.
+
+2022-06-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify Oracle Studio re Time_to_position
+
+ * src/keyboard.c (Time_to_position): Use no-op position_to_Time to
+ pacify Oracle Studio 12.6’s “warning: initializer will be
+ sign-extended”.
+
+2022-06-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `M-q' work on the first line of a multi-line string again
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Exclude the
+ quote marks from the region so that filling works (bug#56197).
+
+2022-06-25 Po Lu <luangruo@yahoo.com>
+
+ Update input_pending after deferring selection requests
+
+ * src/xterm.c (x_defer_selection_requests): If kbd_fetch_ptr
+ moved, update input_pending. Bug found calling
+ `input-pending-p' inside the DND movement function.
+
+2022-06-25 Stefan Kangas <stefan@marxist.se>
+
+ New command recentf-open
+
+ * lisp/recentf.el (recentf-open): New command. (Bug#56148)
+ (recentf): New alias.
+ (recentf, recentf-mode): Update documentation to focus more on the
+ list of recently opened files and ways of accessing it, instead of
+ focusing on the menu bar only.
+ (recentf-list, recentf-enabled-p): Minor doc fixes.
+
+ * doc/emacs/files.texi (File Conveniences): Update documentation.
+
+2022-06-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix subr-x fix that was missed when re-reverting
+
+ * lisp/replace.el (require): Fix subr-x build warning.
+
+2022-06-25 Stefan Kangas <stefan@marxist.se>
+
+ Don't error out on invalid literal key substitutions
+
+ It would be backwards-incompatible to error out on invalid literal key
+ substitutions. Consider this docstring fragment, where "\\`" should
+ have been escaped but wasn't:
+
+ "Example value: \"\\(?:\\`[#.]\\)\\|\\(?:[#~]\\'\\)\"."
+
+ If we error out, we can't display this docstring at all. However, it
+ is clearly better to display something in such cases, even if
+ suboptimal, than refusing to display anything at all.
+
+ * lisp/help.el (substitute-command-keys): Don't error out on invalid
+ literal key substitutions: just ignore them instead.
+ * test/lisp/help-tests.el
+ (help-tests-substitute-command-keys/literal-key-sequence-errors):
+ Delete test.
+
(help-tests-substitute-command-keys/literal-key-sequence-ignore-invalid):
+ New test.
+
+2022-06-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-fix build warnings about subr-x defsubsts
+
+ * lisp/term/haiku-win.el (require):
+ * lisp/progmodes/elisp-mode.el (require):
+ * lisp/isearch.el (require): Require subr-x at compile time, since
+ these use defsubsts/macros from there.
+
+ * lisp/emacs-lisp/subr-x.el (string-empty-p): Move from here...
+ * lisp/simple.el (string-empty-p): ... to here. This is to help
+ with a build problem where files.el is using the defsubst, but
+ requiring subr-x.el at compile time leads to load errors.
+
+2022-06-25 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Avoid recording passwords' chars
+
+ * lisp/cus-start.el (standard): New user custom `record-all-keys'.
+ * src/keyboard.c (syms_of_keyboard): Un-obsolete
+ `inhibit--record-char'.
+ * lisp/subr.el (read-passwd): Use `inhibit--record-char' to
+ inhibit passwords recording.
+
+2022-06-25 Eli Zaretskii <eliz@gnu.org>
+
+ Minor optimization of the "abort redisplay" feature
+
+ * src/xdisp.c (init_iterator, set_iterator_to_next)
+ (redisplay_internal):
+ * src/syntax.c (scan_sexps_forward):
+ * src/regex-emacs.c (re_match_2_internal):
+ * src/bidi.c (bidi_fetch_char, bidi_paragraph_init)
+ (bidi_find_bracket_pairs, bidi_find_other_level_edge): Don't call
+ 'update_redisplay_ticks' if aborting too-long redisplay is
+ disabled. (Bug#45898)
+
+2022-06-25 Po Lu <luangruo@yahoo.com>
+
+ Implement image transform smoothing on Haiku
+
+ * src/dispextern.h (struct image): New field
+ `use_bilinear_filtering'.
+ * src/haiku_draw_support.cc (BView_DrawBitmap): Accept it.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_draw_image_glyph_string):
+ * src/image.c (image_set_transform): Set it.
+
+2022-06-25 Eli Zaretskii <eliz@gnu.org>
+
+ Fix false positive due to 'max-redisplay-ticks' feature
+
+ * src/xdisp.c (redisplay_internal): Reset the tick count at end of
+ redisplay cycle. (Bug#45898)
+
+2022-06-25 Po Lu <luangruo@yahoo.com>
+
+ Fix non-XI2 build
+
+ * src/xterm.c (handle_one_xevent): Don't make `event' const when
+ passing it to RandR functions. Also, update out of date
+ comment.
+
+2022-06-25 Po Lu <luangruo@yahoo.com>
+
+ Implement "flip" image transforms on Haiku
+
+ * src/dispextern.h (struct image): New field `transform',
+ `original_width' and `original_height'.
+ * src/haiku_draw_support.cc (BView_DrawMask): Rename to
+ `be_draw_image_mask' and fix coding style.
+ (rotate_bitmap_270, BBitmap_transform_bitmap, rotate_bitmap_90):
+ Delete functions.
+ (be_apply_affine_transform): New function.
+ (be_apply_inverse_transform): New function.
+
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikuterm.c (haiku_translate_transform): New function.
+ (haiku_draw_image_glyph_string): Use affine transforms to
+ implement images.
+
+ * src/image.c (image_set_transform): Implement using affine
+ transforms on Haiku too.
+
+2022-06-25 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1f6750b53a Avoid treating number as an enum in the org manual
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix some byte-compilation warnings about subr-x"
+
+ This reverts commit cd479aa8bd498da4d7980a7fe7a37e238761482f.
+
+ This led to build failures when doing bootstraps.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow toggling completion modes for `M-x' with `M-X'
+
+ * doc/lispref/commands.texi (Interactive Call): Document it.
+ * lisp/minibuffer.el (minibuffer-local-must-match-map): Bind 'M-X'.
+
+ * lisp/simple.el (execute-extended-command-cycle): New command.
+ (read-extended-command): Use it to allow toggling (bug#47215).
+ (read-extended-command-1): Renamed from `read-extended-command'.
+ (execute-extended-command-for-buffer): Factored out most of the
+ code...
+ (command-completion--command-for-this-buffer-function): ... to
+ here.
+ (extended-command-versions): New variable.
+
+ This code is based on a patch by Felician Nemeth
+ <felician.nemeth@gmail.com>.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make ido sorting respect ido-case-fold
+
+ * lisp/ido.el (ido-file-lessp):
+ (ido-file-extension-lessp): Respect ido-case-fold (bug#47127).
+
+2022-06-24 Stefan Kangas <stefan@marxist.se>
+
+ Avoid treating number as an enum in the org manual
+
+ * doc/misc/org.org (The Agenda Dispatcher): Avoid treating number as
+ enum.
+
+2022-06-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Make url-tramp-convert-tramp-to-url more robust
+
+ * lisp/url/url-tramp.el (url-tramp-convert-tramp-to-url):
+ Prevent errors from not existing Tramp methods.
+
+2022-06-24 Platon Pronko <platon7pronko@gmail.com> (tiny change)
+
+ Fix logic error in Tramp, setting file ownership
+
+ * lisp/net/tramp.el (tramp-skeleton-write-region): Fix logic in
+ changing file ownership. (Bug#56180)
+
+2022-06-24 Timo Taipalus <timo@taipalus.cc>
+
+ Add support for image flipping
+
+ * lisp/image.el (image-map): Keybindings for flipping functions.
+ (image-flip-horizontally): New function that toggles image flipping
+ property.
+ (image-flip-vertically): New function that toggles image flipping
+ property and rotates image 180 degrees.
+ * src/image.c (syms_of_image): Add property.
+ (image_set_transform): Modify image rotation code to also horizontally
+ flip the image when the property is set.
+ * etc/NEWS: Add description.
+ * doc/lispref/display.texi (Image Descriptors): Document :flip
+ (bug#47095).
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some byte-compilation warnings about subr-x
+
+ * lisp/term/haiku-win.el (require):
+ * lisp/replace.el (require):
+ * lisp/progmodes/elisp-mode.el (require):
+ * lisp/isearch.el (require):
+ * lisp/files.el (require): Require subr-x when compiling.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix imenu popup syntax
+
+ * lisp/imenu.el (imenu--create-keymap): Fix menu syntax
+ (bug#56185).
+
+2022-06-24 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a772c0b852 ; Fix typos: prefer US spelling.
+
+ # Conflicts:
+ # doc/misc/modus-themes.org
+
+2022-06-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix assertion violation when 'max-redisplay-ticks' is set too low
+
+ * src/xdisp.c (update_redisplay_ticks): Disable 'scrolling_window'
+ optimization in 'update_window' when redisplay of a window is
+ aborted. (Bug#56184)
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entry about kill-buffer change
+
+2022-06-24 Mattias Engdegård <mattiase@acm.org>
+
+ Bytecode opcode comments update
+
+ This is a cosmetic change only; there is no change in behaviour.
+
+ * lisp/emacs-lisp/bytecomp.el:
+ * src/bytecode.c (BYTE_CODES, exec_byte_code):
+ Update and/or remove incorrect, outdated or useless comments.
+ Clarify. Reorder where appropriate. Rename Bsave_current_buffer to
+ Bsave_current_buffer_OBSOLETE and Bsave_current_buffer_1 to
+ Bsave_current_buffer, reflecting the state since 1996.
+
+2022-06-24 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Reduce memory footprint of eglot--{}
+
+ * eglot.el (eglot--{}): Specify smallest hash table :size, to spare
+ ~1KiB according to memory-report-object-size.
+
+ See also https://github.com/joaotavora/eglot/pull/315.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/978
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update seq.el comment
+
+ * lisp/emacs-lisp/seq.el: Update comment.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow `kill-buffer' query to save the buffer first
+
+ * lisp/loadup.el ("emacs-lisp/rmc"): Preload.
+
+ * lisp/simple.el (kill-buffer--possibly-save): New function to
+ offer to save the buffer before killing (bug#47075).
+
+ * src/buffer.c (Fkill_buffer): Call the new function to query the
+ user.
+ (syms_of_buffer): Define symbol.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Preload seq
+
+ * lisp/loadup.el ("emacs-lisp/seq"): Preload seq since it's now
+ almost impossible to do anything in Emacs that doesn't result in
+ seq being loaded -- for instance, visiting a .txt file or an .el
+ file, so this will speed up Emacs usage for basically everybody.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow read-multiple-choice to do long-form answers
+
+ * doc/lispref/commands.texi (Reading One Event): Document it.
+
+ * lisp/emacs-lisp/rmc.el (read-multiple-choice): Allow using
+ long-form answers instead of single character ones.
+ (read-multiple-choice--long-answers): New function.
+ (read-multiple-choice--short-answers): Refactored out from the
+ main function.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix cl-generic bootstrap problems
+
+ * lisp/sqlite-mode.el (require):
+ * lisp/net/eudc.el (require):
+ * lisp/arc-mode.el (require): Require subr-x, since these files
+ are using macros from there.
+ * lisp/emacs-lisp/subr-x.el (with-memoization): Move from here...
+ * lisp/subr.el (with-memoization): ... to here, as it's used from
+ the preloaded cl-generic.el file.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-compiler): Don't use
+ the autoloaded `byte-compile' function during bootstrap.
+ (cl--generic-get-dispatcher): Don't require subr-x, either.
+
+ cl-generic has been preloaded since 2015, and most usages of it (in
+ preloaded files) work fine. In particular, using `cl-defgeneric' is
+ unproblematic. However, `cl-defmethod' would end up pulling in the
+ byte compiler (at load time), which would make it impossible to use
+ `cl-defmethod' in pre-loaded files, and this change fixes that (but
+ possibly not in the most self-evidently correct way).
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make warning about require/autoload while bootstrapping not error out
+
+ * src/fns.c (Frequire):
+ * src/eval.c (Fautoload_do_load): Avoid further errors while
+ outputting the error about not being able to autoload/require
+ while bootstrapping.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make debug-early-backtrace more resilient
+
+ * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Allow
+ outputting backtraces during bootstrap.
+
+2022-06-24 Po Lu <luangruo@yahoo.com>
+
+ Fix handling of mouse motion across screens during drag-and-drop
+
+ * src/xterm.c (x_dnd_fill_empty_target): New function.
+ (handle_one_xevent): Fill empty target if the event didn't come
+ from the same screen.
+
+2022-06-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous nnimap header fetching change
+
+ * lisp/gnus/nnimap.el (nnimap-retrieve-headers): Ensure that the
+ splitting works.
+
+2022-06-24 Eli Zaretskii <eliz@gnu.org>
+
+ Merge branch 'abort-redisplay'
+
+ This allows abandoning the redisplay of a window
+ that takes too long to complete. Bug#45898
+ * src/xdisp.c (update_redisplay_ticks): New function.
+ (init_iterator, set_iterator_to_next): Call
+ 'update_redisplay_ticks'.
+ (syms_of_xdisp) <max_redisplay_ticks>: New variable.
+ <list_of_error>: Remove 'void-variable': it is no longer needed,
+ since 'calc_pixel_width_or_height' can no longer signal a
+ void-variable error, and it gets in the way of aborting
+ redisplay via 'redisplay_window_error'.
+ * src/keyboard.c (command_loop_1): Reinitialize the tick count
+ before executing each command in the loop.
+ * src/syntax.c (scan_sexps_forward): Call 'update_redisplay_ticks'
+ after finishing the loop.
+ * src/dispnew.c (make_current): Make sure enabled rows of the
+ current matrix have a valid hash, even if redisplay of a window
+ was aborted due to slowness. This avoids assertion violations in
+ 'scrolling_window' due to the wrong hash value.
+ * src/xdisp.c (display_working_on_window_p): New global variable.
+ (unwind_display_working_on_window): New function.
+ * src/keyboard.c (command_loop_1): Reset
+ 'display_working_on_window_p' before and after executing commands.
+ * src/window.c (Frecenter, window_scroll, displayed_window_lines):
+ * src/indent.c (Fvertical_motion): Set
+ 'display_working_on_window_p' before calling 'start_display'.
+ * src/syntax.c (scan_sexps_forward): Call 'update_redisplay_ticks'
+ after finishing the loop.
+ * src/regex-emacs.c (re_match_2_internal):
+ * src/bidi.c (bidi_find_bracket_pairs, bidi_fetch_char)
+ (bidi_paragraph_init, bidi_find_other_level_edge): Update the
+ redisplay tick count as appropriate, when moving the iterator by
+ one character position actually requires to examine many more
+ positions.
+ * src/xdisp.c (redisplay_window_error): Show messages about
+ aborted redisplay of a window as delayed-warnings.
+
+ * doc/emacs/trouble.texi (DEL Does Not Delete): Move to the end of
+ the chapter. This issue is no longer frequent or important as it
+ was back in Emacs 20 days.
+ (Long Lines): Document 'max-redisplay-ticks'.
+ * doc/emacs/emacs.texi (Top): Update the detailed menu.
+
+ * etc/NEWS: Announce 'max-redisplay-ticks'.
+
+2022-06-23 Po Lu <luangruo@yahoo.com>
+
+ Improve grabbing detection with multiple master devices (MPX)
+
+ * src/frame.c (gui_mouse_grabbed): Respect any_grab_hook.
+ * src/termhooks.h (GCALIGNED_STRUCT): New hook `any_grab_hook'.
+ * src/xterm.c (x_have_any_grab): New function.
+ (x_create_terminal): Define hook on XI2 builds.
+
+2022-06-23 Po Lu <luangruo@yahoo.com>
+
+ Simplify XI event state conversion
+
+ * src/xterm.c (xi_convert_button_state, xi_convert_event_state):
+ New functions.
+ (handle_one_xevent): Reduce duplicate code for converting XI
+ state and button state into X state.
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/browse-url.el: Doc fix; recommend keymap-* functions.
+
+ * lisp/recentf.el (recentf-auto-cleanup): Clarify docstring.
+
+2022-06-23 Mattias Engdegård <mattiase@acm.org>
+
+ Remove unused function in bytecomp.el
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-delete-first): Remove.
+
+2022-06-23 Gerd Moellmann <gerd.moellmann@gmail.com>
+
+ Save desktop-save-mode when changed from menu
+
+ * lisp/menu-bar.el (menu-bar-options-save): Save desktop-save-mode
+ (bug#56156).
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ Tag shortcut commands for recentf-dialog-mode
+
+ * lisp/recentf.el (recentf--shortcuts-keymap): Add interactive mode
+ tags for 'recentf-dialog-mode' specific commands.
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap and keymap-set in recentf.el
+
+ * lisp/recentf.el (recentf-mode-map): Prefer defvar-keymap.
+ (recentf--shortcuts-keymap): Prefer keymap-set.
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ Use shortened filenames in recentf-mode
+
+ * lisp/recentf.el (recentf-filename-handlers): Set to
+ 'abbreviate-file-name' to get shortened names by default. (Bug#56123)
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ Revert "Allow shortening filenames in recentf-mode menu"
+
+ This reverts commit 32906819addde1aa952d4718699d332d3a58b004.
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ Revert "Use short file names by default in recentf menu"
+
+ This reverts commit ec9228eb81c0a89b18480dfff18cc9afdc3d0884.
+
+2022-06-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that nnimap doesn't send too long lines to the server
+
+ * lisp/gnus/nnimap.el (nnimap-retrieve-headers): Don't send
+ too-long lines to the server (bug#56138).
+
+2022-06-23 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to last change
+
+ * src/pgtkselect.c (pgtk_get_window_property): Add 1 to xdata
+ when it is GdkAtom.
+ * src/pgtkterm.c (drag_leave): Initialize inev.ie.
+
+2022-06-23 Po Lu <luangruo@yahoo.com>
+
+ Make DND from other GTK programs work on Wayland
+
+ * lisp/pgtk-dnd.el (pgtk-dnd-handle-gdk): Try to keep the
+ selection contents in extra-data during a motion event.
+
+2022-06-23 Po Lu <luangruo@yahoo.com>
+
+ Allow dropping more data types on PGTK
+
+ * lisp/loadup.el (featurep): Load `pgtk-dnd'.
+ * lisp/pgtk-dnd.el: New file.
+ (pgtk-dnd-test-function, pgtk-dnd-types-alist)
+ (pgtk-dnd-known-types, pgtk-dnd-use-offix-drop)
+ (pgtk-dnd-current-state, pgtk-get-selection-internal)
+ (pgtk-register-dnd-targets, pgtk-dnd-empty-state)
+ (pgtk-dnd-init-frame, pgtk-dnd-get-state-cons-for-frame)
+ (pgtk-dnd-get-state-for-frame, pgtk-dnd-default-test-function)
+ (pgtk-dnd-current-type, pgtk-dnd-forget-drop)
+ (pgtk-dnd-maybe-call-test-function, pgtk-dnd-save-state)
+ (pgtk-dnd-handle-moz-url, pgtk-dnd-insert-utf8-text)
+ (pgtk-dnd-insert-utf16-text, pgtk-dnd-insert-ctext)
+ (pgtk-dnd-handle-uri-list, pgtk-dnd-handle-file-name)
+ (pgtk-dnd-choose-type, pgtk-dnd-drop-data)
+ (pgtk-dnd-handle-drag-n-drop-event, pgtk-update-drop-status)
+ (pgtk-drop-finish, pgtk-dnd-handle-gdk, pgtk-dnd): New variables
+ and functions and library.
+
+ * lisp/term/pgtk-win.el (special-event-map): Load
+ `drag-n-drop-event'.
+ (after-make-frame-functions): Register DND after make frame
+ functions.
+
+ * src/emacs.c (main): Stop calling empty init_pgtkterm function.
+
+ * src/pgtkselect.c (Fpgtk_register_dnd_targets, Fpgtk_drop_finish)
+ (Fpgtk_update_drop_status): New functions.
+ (syms_of_pgtkselect): Register new functions.
+ * src/pgtkterm.c (struct event_queue_t): Fix coding style of
+ definition.
+ (symbol_to_drag_action, drag_action_to_symbol)
+ (pgtk_update_drop_status, pgtk_finish_drop): New functions.
+ (drag_data_received): Delete function.
+ (pgtk_set_event_handler): Register for DND correctly.
+ (syms_of_pgtkterm): New defsyms for DND types.
+ (init_pgtkterm): Delete function.
+
+ * src/pgtkterm.h: Update prototypes, fix prototype coding style.
+
+2022-06-23 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a3f294b37f Improve last change in autotype.texi
+
+2022-06-22 Po Lu <luangruo@yahoo.com>
+
+ Don't send XdndPosition before XdndStatus arrives
+
+ * src/xterm.c (x_dnd_send_position): Set pending DND message if
+ target is right.
+ (x_dnd_send_leave): Clear pending status target.
+ (x_dnd_begin_drag_and_drop): Clear new flags.
+ (handle_one_xevent): Respect those flags.
+
+2022-06-22 Po Lu <luangruo@yahoo.com>
+
+ Update device-specific grab during drag-and-drop
+
+ * src/xterm.c (x_detect_focus_change): Fix typo.
+ (handle_one_xevent): Set device if DND is in progress and update
+ device->grab.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ Make recentf-elements obsolete
+
+ * lisp/recentf.el (recentf-elements): Make obsolete. Update
+ callers.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ Convert several defsubst to defun in recentf.el
+
+ * lisp/recentf.el (recentf-enabled-p, recentf-string-equal)
+ (recentf-string-lessp, recentf-push, recentf-expand-file-name)
+ (recentf-add-file, recentf-remove-if-non-kept)
+ (recentf-digit-shortcut-command-name, recentf-elements)
+ (recentf-menu-bar, recentf-sort-ascending)
+ (recentf-sort-descending, recentf-sort-basenames-ascending)
+ (recentf-sort-basenames-descending)
+ (recentf-sort-directories-ascending)
+ (recentf-sort-directories-descending)
+ (recentf-show-basenames-ascending)
+ (recentf-show-basenames-descending): Change from defsubst to
+ defun.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ Bind C-c C-c and C-c C-k in recentf-dialog-mode
+
+ * lisp/recentf.el (recentf-dialog-mode-map): Prefer defvar-keymap.
+ Bind `C-c C-c' and `C-c C-k' to confirm/cancel the dialog.
+ (recentf-cancel-dialog, recentf-edit-list-validate): Add
+ interactive mode tags for 'recentf-dialog-mode'.
+ (recentf-dialog-mode): Mark as non-interactive.
+ (recentf-edit-list): Display key binding.
+
+2022-06-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix dnd-tests-open-remote-url on EMBA
+
+ * test/lisp/dnd-tests.el (dnd-tests-open-remote-url): Check for
+ ftp client.
+
+2022-06-22 Mattias Engdegård <mattiase@acm.org>
+
+ duplicate-line: fix optional argument and add test (bug#46621)
+
+ The test assumes that the current semantics are intended and desired,
+ which may or may not be true, but it's better than not having any at
+ all.
+
+ * lisp/misc.el (duplicate-line): Don't crash if called with no argument.
+ * test/lisp/misc-tests.el (misc--duplicate-line): New test.
+
+2022-06-22 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (strz): Null terminate fixed-length strings if there is room
+
+ * lisp/emacs-lisp/bindat.el (bindat--pack-strz): For fixed-length strz
+ fields, explicitly write a null terminator after the packed string if
+ there is room (bug#56048).
+ * doc/lispref/processes.texi (Bindat Types): Update documentation.
+ * test/lisp/emacs-lisp/bindat-tests.el (bindat-test--str-strz-prealloc):
+ Update tests.
+
+2022-06-22 Gerd Moellmann <gerd.moellmann@gmail.com>
+
+ Prevent GC of window referenced from EmacsScroller
+
+ * src/nsterm.m (EmacsScroller.mark, mark_nsterm): New functions.
+ * src/nsterm.h (EmacsScroller.mark, mark_nsterm): Declare.
+ * src/alloc.c (garbage_collect) [MAVE_NS]: Call mark_nsterm.
+ (Bug#56095)
+
+2022-06-22 Eli Zaretskii <eliz@gnu.org>
+
+ Improve last change in autotype.texi
+
+ * doc/misc/autotype.texi (Autoinserting): Fix wording. Suggested
+ by Richard Stallman <rms@gnu.org>.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ Prefer Emacs mouse button event names to XEmacs names
+
+ * lisp/mwheel.el:
+ * lisp/vc/ediff-mult.el (ediff-meta-buffer-verbose-message)
+ (ediff-draw-dir-diffs, ediff-redraw-registry-buffer): Prefer Emacs
+ mouse button event names to XEmacs names.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/bs.el (bs-mode-map): Prefer defvar-keymap.
+
+2022-06-22 Po Lu <luangruo@yahoo.com>
+
+ Fix non-system-malloc build
+
+ * src/xterm.c (x_gc_free_ext_data_private): New function.
+ (x_gc_get_ext_data): Set it as the private data free function.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ Do interactive mode tagging in edmacro.el
+
+ * lisp/edmacro.el (edmacro-finish-edit, edmacro-insert-key):
+ Add interactive mode tag for edmacro-mode.
+
+2022-06-22 Stefan Kangas <stefan@marxist.se>
+
+ Use short file names by default in recentf menu
+
+ * lisp/recentf.el (recentf-menu-filter): Set the default to
+ 'recentf-show-abbreviated' to get short file names. (Bug#56123)
+
+2022-06-22 Sean Whitton <spwhitton@spwhitton.name>
+
+ Don't drop existing escape char in eshell
+
+ * lisp/eshell/em-term.el (eshell-exec-visual): Don't drop existing
+ escape char.
+
+2022-06-22 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_scroll_bar_note_movement): Fix no-toolkit build.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention the new Tetris user option
+
+2022-06-21 Po Lu <luangruo@yahoo.com>
+
+ Port x-selection-timeout to PGTK
+
+ * src/pgtkselect.c (pgtk_own_selection): Fix comment.
+ (wait_for_property_change, pgtk_get_foreign_selection): Respect
+ selection timeout.
+ (syms_of_pgtkselect): New variable `pgtk-selection-timeout'.
+
+2022-06-21 Po Lu <luangruo@yahoo.com>
+
+ Fix setting user time for mouse movement events
+
+ * src/xterm.c (x_note_mouse_movement, XTmouse_position)
+ (x_scroll_bar_note_movement, handle_one_xevent): Record whether
+ or not mouse movement was send_event before using the mouse
+ movement time.
+
+ * src/xterm.h (struct x_display_info): New field
+ `last_mouse_movement_time_send_event'.
+
+2022-06-21 Sam Steingold <sds@gnu.org>
+
+ A trivial optimization and a formatting fix
+
+ * lisp/subr.el (internal--compiler-macro-cXXr): Re-use `head' for `n'.
+ Fix indentation and line length.
+
+2022-06-21 Tassilo Horn <tsdh@gnu.org>
+
+ Merge from origin/emacs-28
+
+ f3acc09377 ; Revert "Use file-in-directory-p instead of obsolete dire...
+ 5082d74cfd ; * lisp/recentf.el: Fix typo.
+ 3f66e2a903 * lisp/repeat.el (repeat-mode): Fix message format.
+ 137539c125 Clarify autotype.texi text slightly
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix logic in previous Tetris change
+
+ * lisp/play/tetris.el (tetris-new-shape): Fix logic in previous
+ change.
+
+2022-06-21 Timothee Denizou <timothee.denizou@epita.fr> (tiny change)
+
+ Allow different randomization of shapes in Tetris
+
+ * lisp/play/tetris.el (tetris-allow-repetitions): New user option.
+ (tetris--shuffle, tetris--seven-bag): New functions.
+ (tetris-new-shape): Use the option.
+
+ * Added 7 bag randomizer for tetris
+ A piece is selected from the bag and removed each time we want a piece
+ When the bag is empty, refill the bag with the seven piece and shuffle
it
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix shr--set-target-ids test for empty buffer
+
+ * lisp/net/shr.el (shr--set-target-ids): Fix the check for an
+ empty buffer (which may be narrowed).
+
+2022-06-21 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Fix autoload generation of iter-defun forms
+
+ This fixes Bug#54648.
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--make-autoload):
+ Add `iter-defun' and `cl-iter-defun' to the list of "complex cases"
+ that are macro-expanded and recursed on.
+
+2022-06-21 Philipp Stephani <phst@google.com>
+
+ Document and test 'no-byte-compile' behavior.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-file): Document behavior
+ if 'no-byte-compile' is set.
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (byte-compile-file/no-byte-compile): New unit test.
+ * test/lisp/emacs-lisp/bytecomp-resources/no-byte-compile.el: New test
+ file.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix too-long ediff defface doc strings
+
+ * lisp/vc/ediff-init.el (ediff-fine-diff-Ancestor):
+ (ediff-even-diff-Ancestor):
+ (ediff-odd-diff-Ancestor): Fix too-long doc strings.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check defface doc strings
+
+ * lisp/emacs-lisp/bytecomp.el
+ (byte-compile-file-form-custom-declare-variable): We already warn
+ about missing groups from byte-compile-normal-call, so this would
+ be a double warning.
+ (custom-declare-face)
+ (byte-compile-file-form-custom-declare-face): Add doc string
+ checking for defface.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Untabify doc strings before displaying in Customize
+
+ * lisp/cus-edit.el (custom-variable-documentation): Untabify the
+ doc string since we'll be indenting it when displaying it (which
+ makes the tabs not align properly).
+
+2022-06-21 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Two typos captured on OpenBSD/clang
+
+2022-06-21 Po Lu <luangruo@yahoo.com>
+
+ Fix recent change to xlwmenu.c
+
+ * lwlib/xlwmenu.c (ungrab_all): Ungrab keyboard if it was
+ grabbed. This handles `lucid--menu-grab-keyboard' changing
+ while the menu is open.
+
+ (XlwMenuDestroy):
+ (pop_up_menu): Record if the keyboard was grabbed.
+
+2022-06-21 Po Lu <luangruo@yahoo.com>
+
+ Rewrite PGTK selection code from scratch
+
+ * src/frame.c (delete_frame): Clear selections and swallow
+ special events.
+
+ * src/keyboard.c (kbd_buffer_get_event, process_special_events):
+ Also handle selection events on PGTK.
+
+ * src/keyboard.h (union buffered_input_event): Include selection
+ events on PGTK.
+
+ * src/pgtkselect.c (symbol_to_gtk_clipboard, LOCAL_SELECTION):
+ New functions and macros.
+ (selection_type_to_quarks, get_func, clear_func): Delete
+ functions.
+ (pgtk_selection_init, pgtk_selection_lost):
+ (pgtk_selection_usable): New functions.
+ (Fpgtk_own_selection_internal, Fpgtk_disown_selection_internal)
+ (Fpgtk_selection_exists_p, Fpgtk_selection_owner_p)
+ (Fpgtk_get_selection_internal): Complete rewrite.
+ (syms_of_pgtkselect): Update defsyms and add more hooks.
+
+ * src/pgtkselect.h: Delete file.
+
+ * src/pgtkterm.c (evq_enqueue): Set last user time based on the
+ event.
+ (pgtk_any_window_to_frame, button_event): Fix coding style.
+ (pgtk_set_event_handler): Add selection events.
+ (pgtk_find_selection_owner, pgtk_selection_event): New
+ functions.
+ (pgtk_term_init): Remove call to `pgtk_selection_init'.
+
+ * src/pgtkterm.h (struct pgtk_display_info): New field
+ `display'.
+ (enum selection_input_event): New struct. New macros for
+ accessing its fields.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous -batch change for gc-cons-percentage
+
+ * src/emacs.c (main): Reset the default for gc-cons-percentage in
+ interactive Emacs.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Increase gc-cons-percentage in -batch Emacs
+
+ * doc/lispref/os.texi (Batch Mode): Document it.
+
+ * src/emacs.c (main): Use a gc-cons-percentage of 1.0 in
+ noninteractive Emacsen.
+
+2022-06-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp code cleanup
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-make-process):
+ Improve handling of "process-name" and "process-buffer" connection
+ properties.
+
+2022-06-21 Stefan Kangas <stefan@marxist.se>
+
+ Allow shortening filenames in recentf-mode menu
+
+ * lisp/recentf.el (recentf-show-abbreviated): New function.
+ (recentf--filter-names): New helper function.
+ (recentf-show-basenames): Use above new helper function.
+ (recentf-menu-filter): Allow setting user option to new value
+ 'recentf-show-abbreviated'.
+
+2022-06-21 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/repeat.el (repeat-mode): Fix message format.
+
+2022-06-21 kobarity <kobarity@gmail.com>
+
+ Fix nested defuns handling in `python-nav-beginning-of-defun'
+
+ * lisp/progmodes/python.el (python-nav--beginning-of-defun): Fix
+ handling of nested defuns (bug#56105).
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous describe-key change
+
+ * lisp/help.el (describe-function-orig-buffer): Ensure we bind
+ dynamically.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make describe-key do doc string command key substitution again
+
+ * lisp/help.el (describe-key): Do doc string command key
+ substitution (bug#56106).
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix fontification in describe-key
+
+ * lisp/help.el (describe-key): Use insert instead of princ so that
+ text properties on the key descriptions survive.
+
+2022-06-21 Kevin Brubeck Unhammer <unhammer@fsfe.org>
+
+ Speed up mail-extr in some configurations
+
+ * lisp/mail/mail-extr.el (mail-extract-address-components):
+ (mail-extract-address-components): The buffer is already in
+ fundamental-mode, so don't re-enable it (bug#56113).
+
+2022-06-21 Earl Hyatt <okamsn@protonmail.com>
+
+ Clarify autotype.texi text slightly
+
+ * doc/misc/autotype.texi (Autoinserting): Make text slightly
+ clearer (bug#56118).
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename recently-introduced dired-omit-line-regexp user option
+
+ * lisp/dired-x.el (dired-omit-lines, dired-omit-mode): Rename
+ dired-omit-line-regexp to dired-omit-lines for consistency.
+
+2022-06-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make Lucid menus work from the keyboard also when uninstalled
+
+ * lwlib/xlwmenu.c (ungrab_all, pop_up_menu): Use it.
+
+ * src/keyboard.c (syms_of_keyboard): New variable (bug#46990).
+
+2022-06-21 Po Lu <luangruo@yahoo.com>
+
+ Allow toggling antialiasing inside the Haiku font dialog
+
+ * src/haiku_support.cc (struct font_selection_dialog_message):
+ New field `disable_antialias'.
+ (MessageReceived): Handle new message SET_DISABLE_ANTIALIASING.
+ (class DualLayoutView): Rename to `TripleLayoutView'.
+ (class TripleLayoutView): Rename from `DualLayoutView'.
+ (MinSize): Update computations for three views.
+
+ (class EmacsFontSelectionDialog, UpdatePreview)
+ (EmacsFontSelectionDialog): Add an antialiasing checkbox to
+ control antialiasing.
+ (be_select_font): New arguments `initial_antialias' and
+ `disable_antialias'.
+
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufont.c (haikufont_pattern_from_object): Set
+ FSPEC_ANTIALIAS.
+ (Fx_select_font): Update accordingly.
+
+2022-06-21 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 2eb738f2b8 Support builds configured with a separate --bindir
+ cf4c204df8 * doc/misc/eww.texi (Overview, Basics): Fix typos.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Add test for bug#56078 fix
+
+ * test/lisp/dnd-tests.el (dnd-tests-open-remote-url): New test.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Remove selection requests on the keyboard buffer when closing display
+
+ * src/xterm.c (X_NEXT_KBD_EVENT): New macro.
+ (x_defer_selection_requests): Set input_pending if the kbd
+ buffer was modified.
+ (x_delete_selection_requests): New function.
+ (x_delete_display): Call that. Bug found when a display died
+ while the clipboard manager was sending an unreasonably high
+ number of requests.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Move selection delayed message to a better location
+
+ * lisp/term/x-win.el (gui-backend-get-selection): Remove
+ `with-delayed-message' here.
+ * src/xselect.c (x_display_selection_waiting_message)
+ (x_cancel_atimer): New functions.
+ (x_get_foreign_selection): Add an atimer that displays the
+ message after a while.
+
+2022-06-20 Sean Whitton <spwhitton@spwhitton.name>
+
+ * lisp/edmacro.el: Add missing (require 'seq).
+
+2022-06-20 Sean Whitton <spwhitton@spwhitton.name>
+
+ term-set-escape-char: Remove old binding from term-raw-escape-map
+
+ * lisp/term.el (term-set-escape-char): When replacing the escape char,
+ remove the binding of the old escape char in term-raw-escape-map.
+
+2022-06-20 Alan Mackenzie <acm@muc.de>
+
+ Fix potential (goto-char nil) in byte-compile-warning-prefix
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warning-prefix): Replace a
wrong
+ 'or' form involving OFFSET with simply OFFSET. This prevents OFFSET
from
+ possibly being nil in the first branch of the containing `if' form.
+
+2022-06-20 Eli Zaretskii <eliz@gnu.org>
+
+ Support builds configured with a separate --bindir
+
+ * src/emacs.c (load_pdump): Don't overwrite the leading
+ directories of the Emacs executable just because the pdumper file
+ was not found in the expected directory relative to the binary.
+ This is needed to support builds with a separate --bindir
+ configure-time option and native-compilation. (Bug#55741)
+
+2022-06-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Issue a message if getting a selection takes a long time
+
+ * lisp/term/x-win.el (gui-backend-get-selection): If getting the
+ selection takes a long time, issue a message after one second
+ (bug#46935).
+
+2022-06-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt url-tramp-tests
+
+ * test/lisp/url/url-tramp-tests.el (url-tramp-test-convert-url-to-tramp)
+ (url-tramp-test-convert-tramp-to-url): Adapt tests.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Fix x-selection-timeout if some keyboard input arrives while waiting
+
+ * src/process.c (wait_reading_process_output): Don't allow
+ skipping calls to select if detect_input_pending when just
+ waiting for a cell. (bug#46935)
+
+ * src/xselect.c (x_get_foreign_selection): Add more debugging
+ code.
+
+2022-06-20 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in hi-lock.el
+
+ * lisp/hi-lock.el: Prefer keymap-set in documentation.
+ (hi-lock-map): Prefer defvar-keymap.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Fix ns-reg-to-script definition
+
+ * src/nsfont.m (syms_of_nsfont): Fix definition.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Fix running temacs on Haiku
+
+ * src/emacs.c (main): Run init_haiku_select at the right place.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Fix initialization of Haiku font driver
+
+ * src/font.c (register_font_driver): Fix comment.
+
+ * src/haikufont.c (haikufont_booleans): New list.
+ (haikufont_filter_properties): New function.
+ (haikufont_driver): Register new hook.
+ (syms_of_haikufont_for_pdumper): Register font driver globally.
+ (syms_of_haikufont): Call it in a pdumper hook.
+
+2022-06-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix problems with Tramp FTP and URL handler mode
+
+ * lisp/net/tramp-archive.el (tramp-archive-run-real-handler):
+ Add ;;;###tramp-autoload cookie.
+
+ * lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Prevent
invocation
+ of `tramp-archive-file-name-handler'. (Bug#56078)
+
+ * lisp/url/url-tramp.el (url-tramp-convert-url-to-tramp)
+ (url-tramp-convert-tramp-to-url): Make them more robust.
+
+2022-06-20 Po Lu <luangruo@yahoo.com>
+
+ Ignore pinch events from the wrong window
+
+ * src/xterm.c (handle_one_xevent): Use x_window_to_frame to find
+ frames for pinch events.
+
+2022-06-20 David Ponce <da_vid@orange.fr>
+
+ Make images found through `find-image' be handled like `create-image'
+
+ * lisp/image.el (find-image): Use `create-image' so that we get
+ auto-scaling of images (bug#40978).
+
+2022-06-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using :width/:height as normal with xbm images
+
+ * doc/lispref/display.texi (XBM Images): Adjust the documentation.
+ * src/image.c (enum xbm_keyword_index): Add :data-width and
+ :data-height.
+ (xbm_format): Ditto.
+ (xbm_image_p): Allow passing in :width/:height for display.
+ (xbm_load): Use :data-width/:data-height.
+
+2022-06-20 Stefan Kangas <stefan@marxist.se>
+
+ * doc/misc/eww.texi (Overview, Basics): Fix typos.
+
+2022-06-20 Richard Hansen <rhansen@rhansen.org>
+
+ whitespace: Redraw if indentation or line length changes
+
+ * lisp/whitespace.el (whitespace-color-on): Convert the indentation
+ matcher from a static regular expression to a function so that changes
+ to `indent-tabs-mode' and `tab-width' are picked up the next time
+ `font-lock-flush' runs.
+ (whitespace--indentation-matcher): The new function matcher.
+ (whitespace--variable-watcher): New variable watcher that calls
+ `font-lock-flush' if `whitespace-mode' is enabled for the buffer.
+ (whitespace--watched-vars): List of variables to watch.
+ (whitespace-unload-function): Un-watch the variables. (bug#56103).
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Respect `:antialias' on Haiku
+
+ * src/haiku_font_support.cc (BFont_find): Pass through
+ FSPEC_ANTIALIAS.
+ (be_set_font_antialiasing): New function.
+
+ * src/haiku_support.h (enum haiku_font_specification): New enum
+ FSPEC_ANTIALIAS.
+ (struct haiku_font_pattern): New field `use_antialiasing'.
+
+ * src/haikufont.c (haikufont_pattern_to_entity)
+ (haikufont_spec_or_entity_to_pattern, haikufont_open): Respect
+ antialiasing.
+ (syms_of_haikufont): New defsym `:indices'.
+
+2022-06-19 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ * src/treesit.c (make_ts_parser): Initialize timestamp field.
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Don't generate superfluous wheel events during drag and drop
+
+ * src/xterm.c (handle_one_xevent): Only set user time and don't
+ create wheel events if DND is in progress.
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Fix earlier change in xfaces.c for antialiasing in the mode line
+
+ * src/xfaces.c (realize_gui_face): Don't put QCantialias in
+ empty spec if it doesn't exist in the original.
+
+2022-06-19 Miha Rihtaršič <miha@kamnitnik.top>
+
+ xref-goto-xref: Set input focus in addition to selecting window
+
+ * lisp/progmodes/xref.el (xref--show-location): Set input focus in
+ addition to selecting displayed window (Bug#55983).
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow removing quotes around links in *Help* buffers
+
+ * doc/emacs/help.texi (Help Mode): Document it.
+ * lisp/help-mode.el (help-clean-buttons): New user option
+ (help-xref-button): Use it.
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak quoting in help-fns--compiler-macro
+
+ * lisp/help-fns.el (help-fns--compiler-macro): Fix quotes in help
+ text.
+
+2022-06-19 Pip Cet <pipcet@gmail.com>
+
+ Fix bytecompiler infloop compiling infloops
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-lapcode): Don't apply
+ optimization if we can't change anything (bug#46906).
+
+2022-06-19 Drew Adams <drew.adams@oracle.com>
+
+ Let `dired-omit-mode' match lines, as well as file names
+
+ * lisp/dired-aux.el (dired-do-kill-lines): Adjust to use it.
+
+ * lisp/dired-x.el (dired-omit-line-regexp): New user option
+ (bug#46882).
+ (dired-omit-mode, dired-omit-expunge): Use the new user option.
+
+2022-06-19 Stefan Kangas <stefan@marxist.se>
+
+ Update font scaling documentation to not talk about "face height"
+
+ * lisp/play/gamegrid.el (gamegrid-init-buffer):
+ * lisp/mwheel.el (mouse-wheel-scroll-amount):
+ (mouse-wheel-text-scale):
+ * lisp/faces.el (set-face-attribute):
+ * lisp/face-remap.el (text-scale-mode-step):
+ (text-scale-increase):
+ (text-scale-adjust):
+ * lisp/cus-face.el (custom-face-attributes):
+ * doc/emacs/frames.texi (Mouse Commands):
+ * doc/emacs/display.texi (Text Scale): Talk about font sized instead
+ of "face height" (bug#46853).
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow appending to the kill ring with mouse selections
+
+ * lisp/bindings.el (ignore-preserving-kill-region): New function.
+ (global-map): Use it.
+
+ * lisp/mouse.el (mouse-set-region, mouse-drag-region)
+ (mouse-drag-track): Allow appending to kill ring with mouse
+ selections (bug#32747).
+
+2022-06-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix last change in tramp-adb-handle-make-process
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
+ Fix process buffer management.
+
+2022-06-19 Stefan Kangas <stefan@marxist.se>
+
+ Fix starting eshell with missing/invalid modules defined
+
+ * lisp/eshell/esh-mode.el (eshell-mode): Warn instead of failing to
+ start when 'eshell-modules-list' has invalid entries. (Bug#54976)
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make describe-repeat-maps fontify key bindings
+
+ * lisp/repeat.el (describe-repeat-maps): Fontify key bindings as
+ key bindings.
+
+2022-06-19 Eli Zaretskii <eliz@gnu.org>
+
+ Show warnings about aborted redisplay
+
+ * src/xdisp.c (redisplay_window_error): Show messages about
+ aborted redisplay of a window as delayed-warnings.
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ More conservative fix for bug#37473
+
+ * src/xfaces.c (realize_gui_face): Add more conservative fix,
+ since the last change makes C-x C-+ lead to weight weirdness on
+ my machine.
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make M-S-x output better in mode that have bindings for `undefined'
+
+ * lisp/simple.el (command-completion-using-modes-p): Speed up case
+ when there's no command modes.
+ (execute-extended-command-for-buffer): Make M-S-x output better
+ (bug#46665).
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Recognize \' as a quoted quote in MySQL
+
+ * lisp/progmodes/sql.el (sql-mode): Recognize \' as a quoted quote
+ in MySQL (bug#38302).
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't handle reverseVideo X resource specially
+
+ * lisp/term/x-win.el (window-system-initialization): Don't handle
+ reverseVideo specially (bug#32921).
+
+2022-06-19 Sébastien Miquel <sebastien.miquel@posteo.eu>
+
+ Small fix in font-lock-extend-region-multiline
+
+ * lisp/font-lock.el (font-lock-extend-region-multiline): Do not
+ extend the region if `font-lock-multiline' starts at
+ `font-lock-end' (bug#46558).
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't lose antialiasing info when hitting `C-x C-+'
+
+ * src/xfaces.c (realize_gui_face): Don't lose antialiasing info
+ when hitting `C-x C-+' (bug#37473).
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Fix setting last user time during drag-and-drop
+
+ * src/xterm.c (handle_one_xevent): Set the last user time if a
+ button press happens during drag and drop. Mysterious problems
+ were other seen with sending selections to a clipboard
+ immediately afterwards on Irix 6.5.
+
+2022-06-19 Stefan Kangas <stefan@marxist.se>
+
+ Add rudimentary font-locking to edmacro-mode
+
+ * lisp/edmacro.el (edmacro-label): New face.
+ (edmacro-mode-font-lock-keywords): New variable.
+ (edit-kbd-macro): Use font-lock in 'edmacro-mode'. Minor
+ improvement to command substitution.
+
+2022-06-19 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/obsolete/eieio-compat.el: Add missing Obsolete-since line.
+
+2022-06-19 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in kmacro.el
+
+ * lisp/kmacro.el (kmacro-keymap, kmacro-step-edit-map): Prefer
+ defvar-keymap.
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix edebug parsing of .,
+
+ * lisp/emacs-lisp/edebug.el (edebug-next-token-class): Parse .,
+ correctly (bug#37653).
+
+2022-06-19 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Tune when to show "Quick Help" in Ediff mode-line
+
+ * lisp/vc/ediff-wind.el (ediff-refresh-mode-lines): Decide whether to
+ display "Quick Help" in the mode-line based on the value of
+ `ediff-use-long-help-message' instead of checking
+ `ediff-window-setup-function' (Bug#12840).
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make checkdoc-defun-info parsing slightly less wrong
+
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-defun-info): Disregard
+ `interactive' in nested parts of the defun (bug#56052).
+
+2022-06-19 Eli Zaretskii <eliz@gnu.org>
+
+ Update redisplay ticks for more operations, and misc modifications
+
+ * src/xdisp.c (update_redisplay_ticks): Don't disable redisplay of
+ mini-windows.
+ * src/regex-emacs.c (re_match_2_internal):
+ * src/bidi.c (bidi_find_bracket_pairs, bidi_fetch_char)
+ (bidi_paragraph_init, bidi_find_other_level_edge): Update the
+ redisplay tick count as appropriate, when moving the iterator by
+ one character position actually requires to examine many more
+ positions.
+
+ * doc/emacs/trouble.texi (Long Lines):
+ * src/xdisp.c (syms_of_xdisp) <max_redisplay_ticks>: Update
+ recommended non-zero values.
+
+2022-06-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add mechanism for gradually phasing in new byte compilation warnings
+
+ * lisp/Makefile.in (BYTE_COMPILE_FLAGS): Enable all byte
+ compilation warnings.
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warning-types): Add
+ docstrings-non-ascii-quotes and document new semantics for `all'
+ and t.
+ (byte-compile--emacs-build-warning-types): New constant.
+ (byte-compile-warning-enabled-p): Implement the new semantics.
+ (byte-compile-docstring-style-warn): Reinstate the Unicode quote
+ warning.
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Ignore emulated mouse clicks during drag-and-drop
+
+ * src/xterm.c (handle_one_xevent): Don't set dpyinfo->grab and
+ last mouse frame for emulated mouse events during a
+ drag-and-drop operation.
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes when the _EMACS_DRAG_ATOM is the wrong type
+
+ * src/xterm.c (xm_get_drag_atom_1): Don't use PropModeAppend if
+ rc != Success.
+
+2022-06-19 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 422f958030 Fix invalid defcustom :group when :predicate is used
+
+2022-06-19 Po Lu <luangruo@yahoo.com>
+
+ Fix XDND from Firefox again
+
+ * lisp/x-dnd.el (x-dnd-handle-xdnd): Prevent nil from appearing
+ in format 32 list.
+ (x-dnd-handle-motif): Send reply if the user quit out of the
+ drop handler as well.
+
+2022-06-18 Po Lu <luangruo@yahoo.com>
+
+ Cache the Motif drag window to avoid fetching it every time
+
+ * src/xterm.c (xm_get_drag_window_1): New function.
+ (xm_get_drag_window): Cache the window. If it already exists,
+ just return it.
+ (xm_setup_dnd_targets): If a BadWindow error occurs, re-create
+ the Motif drag window.
+
+ * src/xterm.h (struct x_display_info): New field
+ `motif_drag_window'.
+
+2022-06-18 Po Lu <luangruo@yahoo.com>
+
+ Fix timestamps recorded in Motif DND top level leave messages
+
+ * src/xterm.c (xm_send_top_level_leave_message): Use X_SHRT_MAX
+ since Motif treats x and y as signed.
+ (handle_one_xevent): Use correct time for lmsg.timestamp sent in
+ response to entering the return-frame.
+
+2022-06-18 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in edmacro.el
+
+ * lisp/edmacro.el (edmacro-mode-map): Prefer defvar-keymap.
+
+2022-06-18 Stefan Kangas <stefan@marxist.se>
+
+ Respect no-face argument in literal key substitutions
+
+ * lisp/help.el (substitute-command-keys): Respect 'no-face' argument
+ also in literal key substitutions.
+ * test/lisp/help-tests.el
+ (help-tests-substitute-key-bindings/help-key-binding-face): Rename
+ from help-tests-substitute-key-bindings/face-help-key-binding.
+ (help-tests-substitute-key-bindings/help-key-binding-no-face): New test.
+
+2022-06-18 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix last tty-select-active-regions change
+
+ * lisp/frame.el (tty-select-active-regions): Pacify warning about
+ missing defcustom :group by specifying the same group as
+ select-active-regions, as well as the frames group.
+ * src/keyboard.c (command_loop_1, syms_of_keyboard): Rename last
+ occurrences of xterm-select-active-regions to
+ tty-select-active-regions (bug#55883).
+
+2022-06-18 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Add accurate handling for backslash in C line and block
comments
+
+ This is needed to handle the idiosyncratic meaning of backslash in
comments in
+ the C and C++ standards.
+
+ * lisp/progmodes/cc-engine.el: Correct a spelling error.
+
+ * lisp/progmodes/cc-mode.el (c-before-change-fix-comment-escapes)
+ (c-after-change-fix-comment-escapes): New functions.
+
+ * lisp/progmodes/cc-langs.el (c-get-state-before-change-functions): Add
+ c-before-change-fix-comment-escapes to the C/Objc and C++ values.
+ (c-before-font-lock-functions): Add c-after-change-fix-comment-escapes
to the
+ C/Objc and C++ values.
+
+2022-06-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix test failures due to 'xterm-select-active-regions'
+
+ * lisp/frame.el (tty-select-active-regions): Rename from
+ xterm-select-active-regions and move here from xterm.c.
+ (display-selections-p): Adjust to the above. (Bug#55883)
+
+2022-06-18 Mattias Engdegård <mattiase@acm.org>
+
+ More aggressive bytecode split between top-level forms (bug#55972)
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-keep-pending):
+ Allow bytecode split between all kinds of top-level forms, not just
+ those with chunk handlers, to prevent individual chunks from growing
+ too large. In particular this helps compilation of
+ package-quickstart.el.
+
+2022-06-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix checkdoc--fix-y-or-n-p query
+
+ * lisp/emacs-lisp/checkdoc.el (checkdoc--fix-y-or-n-p): Fix the
+ query to match what's done (bug#56053).
+
+2022-06-18 Richard Hansen <rhansen@rhansen.org>
+
+ Fix invalid defcustom :group when :predicate is used
+
+ * lisp/emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
+ invalid `:group' argument for the `-modes' defcustom that is created
+ when `:predicate' is used (bug#56049).
+
+2022-06-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Filter out NS non-key events from `where-is-internal'
+
+ * doc/lispref/keymaps.texi (Scanning Keymaps): Document it.
+ * lisp/keymap.el (make-non-key-event): New function.
+
+ * lisp/term/common-win.el (x-setup-function-keys): Mark ns events
+ as not being keys (bug#55940).
+
+ * src/keymap.c (Fwhere_is_internal): Filter out key sequences that
+ are marked as being non-keys.
+
+2022-06-18 Po Lu <luangruo@yahoo.com>
+
+ Remove unnecessary clearing of internal border on Haiku
+
+ * src/haikuterm.c (haiku_new_font): Don't clear internal border.
+
+2022-06-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow pretty-printing results from `C-x C-e' in edebug
+
+ * doc/lispref/edebug.texi (Edebug Eval): Document it.
+
+ * lisp/emacs-lisp/edebug.el (edebug-eval-expression): Allow
+ displaying the full value in a different buffer.
+
+2022-06-18 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix infinite loop in noise macro near end of buffer
+
+ This fixes bug #55771. Also fix an inaccuracy in c-defun-name-1 with
the same
+ cause.
+
+ * lisp/progmodes/cc-cmds.el (c-defun-name-1)
+ * lisp/progmodes/cc-engine.el (c-forward-noise-clause): Check the return
+ value of c-forward-token-2 and act upon it when not zero.
+
+2022-06-18 Duncan Findlay <duncf@google.com>
+
+ Support `select-active-regions' with xterm
+
+ This allows Emacs to save the active region to the user's
+ primary selection on supported terminals. The behavior follows
+ the existing `select-active-regions' variable and requires
+ `xterm-select-active-regions' to be non-nil.
+
+ * src/keyboard.c (command_loop_1):
+ * lisp/frame.el (display-selections-p): On text terminals, check
+ terminal parameter `xterm--set-selections' and variable
+ `xterm-select-active-regions' when deciding whether to update
+ primary selection. (bug#55883)
+ * lisp/term/xterm.el (xterm-select-active-regions): New
+ defcustom.
+
+2022-06-18 Eli Zaretskii <eliz@gnu.org>
+
+ Update documentation
+
+ * doc/emacs/trouble.texi (DEL Does Not Delete): Move to the end of
+ the chapter. This issue is no longer frequent or important as it
+ was back in Emacs 20 days.
+ (Long Lines): Document 'max-redisplay-ticks'.
+ * doc/emacs/emacs.texi (Top): Update the detailed menu.
+
+ * etc/NEWS: Announce 'max-redisplay-ticks'.
+
+2022-06-18 Eli Zaretskii <eliz@gnu.org>
+
+ Don't count ticks too eagerly in syntax.c
+
+ * src/syntax.c (scan_sexps_forward): Don't increment redisplay
+ tick count of the loop didn't advance at all.
+
+2022-06-18 Eli Zaretskii <eliz@gnu.org>
+
+ Allow aborting redisplay stuck in 'parse-partial-sexp'
+
+ * src/xdisp.c (display_working_on_window_p): New global variable.
+ (unwind_display_working_on_window): New function.
+ * src/keyboard.c (command_loop_1): Reset
+ 'display_working_on_window_p' before and after executing commands.
+ * src/window.c (Frecenter, window_scroll, displayed_window_lines):
+ * src/indent.c (Fvertical_motion): Set
+ 'display_working_on_window_p' before calling 'start_display'.
+ * src/syntax.c (scan_sexps_forward): Call 'update_redisplay_ticks'
+ after finishing the loop.
+
+2022-06-18 Mattias Engdegård <mattiase@acm.org>
+
+ Avoid "control-control-KEY" (bug#55738)
+
+ Constructs such as ?\C-^@ or ?\C-\C-m literally apply a Control
+ modifier twice which doesn't make sense at all. What is really meant
+ is a C0 base character with the Control modifier bit set.
+ This change is only stylistic in nature.
+
+ * lisp/edmacro.el (edmacro-format-keys):
+ * lisp/keymap.el (key-parse):
+ * lisp/subr.el (event-modifiers, event-basic-type):
+ * test/lisp/subr-tests.el (subr-test-kbd):
+ Use \0 and \r instead of ^@ and \C-m to represent NUL and RET
+ when combined with other modifiers.
+
+2022-06-18 Stefan Kangas <stefan@marxist.se>
+
+ Prefer URL commentary header in two files
+
+ * lisp/transient.el:
+ * test/lisp/progmodes/cperl-mode-tests.el: Prefer URL commentary
+ header.
+
+2022-06-18 Stefan Kangas <stefan@marxist.se>
+
+ Define docstring element for more forms in scheme-mode
+
+ * lisp/progmodes/scheme.el: Define docstring element for more
+ forms. (Bug#33117)
+
+2022-06-18 Po Lu <luangruo@yahoo.com>
+
+ Remove unused Haiku code
+
+ * src/haiku_select.cc (be_get_clipboard_targets_1)
+ (be_get_clipboard_targets): Delete functions.
+ (init_haiku_select): Rename to `be_clipboard_init'. Avoid
+ duplicate definition with haikuterm.h.
+
+ * src/haikuselect.c (init_haiku_select): New function.
+ * src/haikuselect.h: Update prototypes.
+
+2022-06-18 Po Lu <luangruo@yahoo.com>
+
+ Fix type mixup in haikuselect.c
+
+ * src/haikuselect.c (haiku_lisp_to_message): Fix variable mixup.
+ Found with --enable-check-lisp-object-type.
+
+2022-06-18 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 024bbcb35e Prune the Gnus FAQ of some outdated data
+
+2022-06-18 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d671cd57c4 Update cl-struct-sequence-type doc string
+ 017bdb1611 Fix a tagging problem in tramp.texi
+ e0bac17bbc Mention face quirks after the final line in the lispref ma...
+ ad74677cf3 Delete reference to obsolete library complete.el
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Prevent Lisp code or synthetic events from ruining the user time
+
+ * src/xterm.c (x_display_set_last_user_time): New parameter
+ `send_event'. Make sure user time is newer unless !send_event.
+
+ (x_set_last_user_time_from_lisp): Remove redundant check.
+ (XTmouse_position):
+ (handle_one_xevent): Pass `send_event' whenever appropriate.
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Fix specifying named action lists in `x-begin-drag'
+
+ * src/xfns.c (Fx_begin_drag): Record original value of `targets'
+ separately. Pass that as the selection targets list instead.
+
+ * src/xterm.c (x_dnd_delete_action_list): New function.
+ (x_dnd_begin_drag_and_drop): Bind it if there are multiple
+ actions.
+
+2022-06-17 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Fix double-free in treesit.c
+
+ * src/treesit.c (Ftreesit_query_capture): Remove free at the end.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Extend 'e' in edebug to pretty-print the values
+
+ * doc/lispref/edebug.texi (Edebug Eval): Document it.
+
+ * lisp/emacs-lisp/edebug.el (edebug-eval-expression): Allow
+ displaying the full value in a different buffer.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Prune the Gnus FAQ of some outdated data
+
+ * doc/misc/gnus-faq.texi (FAQ 9-2): Remove some outdated advice
+ (bug#56042).
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Delete another library obsolete since 24.1
+
+ This file was missed in the last commit to delete libraries obsolete
+ since Emacs 24.3 or older.
+ * lisp/obsolete/pc-mode.el: Delete file. This library has been
+ obsolete since Emacs 24.1. (Bug#50999)
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add hacek variations to `C-x 8'
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Add
+ hacek characters on `C-x 8 ^ ^'.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Use full name for bookmark handler type
+
+ * lisp/image-dired.el (image-dired-bookmark-jump): Use full mode name
+ for bookmark handler type.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Set bookmark handler type for Eshell
+
+ * lisp/eshell/esh-mode.el (eshell-bookmark-jump): Set bookmark handler
+ type.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Update bookmark tests for recent change
+
+ * test/lisp/bookmark-tests.el
(bookmark-tests-set/bookmark-use-annotations-t)
+ (bookmark-tests-edit-annotation)
+ (bookmark-test-bmenu-send-edited-annotation)
+ (bookmark-test-bmenu-send-edited-annotation/restore-focus): Update for
+ recent change.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix copy-from-above-command doc string type
+
+ * lisp/misc.el (copy-from-above-command): Fix doc string typo.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command `duplicate-line'
+
+ * lisp/misc.el (copy-from-above-command): Mention it.
+ (duplicate-line): New command (bug#46621).
+
+2022-06-17 Mattias Engdegård <mattiase@acm.org>
+
+ Slightly faster hash-table-keys and hash-table-values
+
+ * lisp/emacs-lisp/subr-x.el (hash-table-keys, hash-table-values):
+ Omit the reversal of the returned list. It is not ordered anyway.
+ * test/lisp/emacs-lisp/subr-x-tests.el
+ (subr-x--hash-table-keys-and-values): New test.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't quote numbers in byte-run--set-*
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--set-doc-string)
+ (byte-run--set-indent): Don't quote numbers (bug#48145).
+
+2022-06-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix handling of "process-*" properties in Tramp
+
+ * lisp/net/tramp.el (tramp-local-host-regexp): Add "localhost4".
+ (with-tramp-saved-connection-property): New defmacro.
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
+ * lisp/net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band)
+ (tramp-sh-handle-make-process):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-copy-directory):
+ (tramp-smb-handle-file-acl, tramp-smb-handle-process-file)
+ (tramp-smb-handle-set-file-acl)
+ (tramp-smb-handle-start-file-process): Use it. (Bug#55832)
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some declare-after-interactive functions
+
+ * lisp/progmodes/opascal.el (opascal-new-comment-line):
+ * lisp/image-mode.el (image-transform-fit-to-height):
+ * lisp/help-fns.el (help-fns-edit-variable):
+ * lisp/gnus/gnus-salt.el (gnus-pick-start-reading):
+ * lisp/eshell/esh-util.el (eshell-for):
+ * lisp/ldefs-boot.el (view-return-to-alist-update): Fix warnings
+ about declare after interactive.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't quote the `when' form in obsoletions
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--set-obsolete): The `when'
+ is a string (or nil), so don't quote it (bug#48145).
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form):
+ Adjust folding.
+
+2022-06-17 Mattias Engdegård <mattiase@acm.org>
+
+ Warn about misplaced or duplicated function/macro declarations
+
+ Doc strings, `declare` and `interactive` forms must appear in that
+ order and at most once each. Complain if they don't, instead of
+ silently ignoring the problem (bug#55905).
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--parse-body)
+ (byte-run--parse-declarations): New.
+ (defmacro, defun): Check for declaration well-formedness as
+ described above. Clarify doc strings. Refactor some common code.
+ * test/lisp/emacs-lisp/bytecomp-resources/fun-attr-warn.el:
+ * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-fun-attr-warn):
+ New test.
+
+2022-06-17 Eli Zaretskii <eliz@gnu.org>
+
+ Handle too long syntactic fontifications
+
+ * src/syntax.c (scan_sexps_forward): Call 'update_redisplay_ticks'
+ after finishing the loop.
+
+ * src/dispnew.c (make_current): Make sure enabled rows of the
+ current matrix have a valid hash, even if redisplay of a window
+ was aborted due to slowness. This avoids assertion violations in
+ 'scrolling_window' due to the wrong hash value.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix efaq-w32.texi build warning
+
+ * doc/misc/efaq-w32.texi (Other useful ports): Fix ordering to
+ match nodes (or should the nodes be moved instead?).
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update cl-struct-sequence-type doc string
+
+ * lisp/emacs-lisp/cl-macs.el (cl-struct-sequence-type): Fix doc
+ string to reflect what it does (bug#46523).
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Fix some command substitutions
+
+ * lisp/net/rcirc.el (rcirc-edit-multiline):
+ * lisp/textmodes/reftex-index.el (reftex-index-phrases-mode)
+ (reftex-index-phrase-selection-or-word):
+ * lisp/textmodes/remember.el (remember): Fix command substitutions.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Rename command to bookmark-edit-annotation-confirm
+
+ * lisp/bookmark.el (bookmark-edit-annotation-confirm): Rename from
+ 'bookmark-send-edited-annotation' to be more consistent with
+ 'bookmark-edit-annotation-cancel'. Make the old name into an
+ obsolete function alias.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Improve help-enable-variable-value-editing help
+
+ * lisp/help-fns.el (help-enable-variable-value-editing): Expand
+ docstring to better explain what effect it has.
+ (help-fns-edit-variable): Use command substitution.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Fix command substitution in emacsbug.el
+
+ * lisp/mail/emacsbug.el: Minor doc fix.
+ (submit-emacs-patch, report-emacs-bug): Fix command substitution.
+ Prefer keymap-set to define-key.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow editing all symbols in help-fns--editable-variable
+
+ * lisp/help-fns.el (help-fns--editable-variable): Allow editing
+ all symbols (bug#56038).
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve time parsing documentation
+
+ * doc/lispref/os.texi (Time Parsing): Clarify which functions
+ take/return timestamps and which ones take decoded time structures.
+ * src/timefns.c (Fdecode_time): Clarify TIME argument (bug#46505).
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make uce.el obsolete (bug#46472)
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix wdired marking of unsuccessfully renamed files
+
+ * lisp/wdired.el (wdired-finish-edit): Don't mark non-renamed
+ files as renamed (bug#46438).
+
+2022-06-17 Dmitry Gutov <dgutov@yandex.ru>
+
+ buffer-match-p: Resolve backward compat concerns
+
+ * doc/lispref/buffers.texi (Buffer List): Document 'major-mode'
+ and 'derived-mode' predicates. Fix some typos.
+
+ * lisp/subr.el (buffer-match-p): Use the structure initially
+ pioneered by project-kill-buffer-conditions as-is (bug#54296).
+
+ * lisp/progmodes/project.el (project-kill-buffer-conditions)
+ (project--buffer-check): Revert the latest change.
+ (project--buffer-check): Add support for lambda predicates.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a tagging problem in tramp.texi
+
+ * doc/misc/tramp.texi (Frequently Asked Questions): Restore an
+ @end lisp removed by accident.
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Reduce code duplication when setting user time window
+
+ * src/xterm.c (x_make_frame_visible): Use
+ `x_update_frame_user_time_window'.
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention face quirks after the final line in the lispref manual
+
+ * doc/lispref/display.texi (Face Attributes): Mention the quirks
+ about point after the final line (bug#56011).
+
+2022-06-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up shr-string-pixel-width
+
+ * lisp/net/eww.el (eww-update-header-line-format): Use
+ string-pixel-width (since we don't care about shr-use-fonts here).
+ * lisp/net/shr.el (shr-string-pixel-width): Use
+ `string-pixel-width', which should be faster.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Cancel editing bookmark annotations with C-c C-k
+
+ * lisp/bookmark.el (bookmark-edit-annotation-cancel): New command.
+ (bookmark-edit-annotation-mode): Document it.
+ (bookmark-edit-annotation-mode-map): Bind it to 'C-c C-k'.
+ (bookmark-default-annotation-text): Announce it when editing
+ annotations.
+ (bookmark-edit-annotation--maybe-display-list): New macro.
+ (bookmark-send-edited-annotation): Use above new macro.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Use command substitution in bookmark-edit-annotation
+
+ * lisp/bookmark.el (bookmark-default-annotation-text): Use command
+ substitution.
+ (bookmark-edit-annotation): Enter mode before inserting annotation
+ to get the correct command substitution.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/edmacro.el (edit-kbd-macro): Use command substitution.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Delete most libraries obsolete since 24.1 and 24.3
+
+ Emacs 24.3 was released 10 years ago.
+ * lisp/obsolete/abbrevlist.el:
+ * lisp/obsolete/assoc.el:
+ * lisp/obsolete/complete.el:
+ * lisp/obsolete/cust-print.el:
+ * lisp/obsolete/erc-hecomplete.el:
+ * lisp/obsolete/mailpost.el:
+ * lisp/obsolete/mouse-sel.el:
+ * lisp/obsolete/old-emacs-lock.el:
+ * lisp/obsolete/patcomp.el:
+ * lisp/obsolete/pc-select.el:
+ * lisp/obsolete/s-region.el: Delete files. These libraries have been
+ obsolete since Emacs 24.1 or 24.3. (Bug#50999)
+ * etc/NEWS: Announce their deletion.
+
+ * lisp/minibuffer.el (minibuffer-confirm-exit-commands):
+ * lisp/textmodes/rst.el: Remove references to above obsolete
+ libraries.
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Clarify doc of `x-display-set-last-user-time'
+
+ * src/xfns.c (Fx_display_last_user_time): Explain in more detail
+ the meaning of TERMINAL.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Delete reference to obsolete library complete.el
+
+ * doc/misc/tramp.texi (Frequently Asked Questions): Delete reference
+ to obsolete library complete.el.
+
+2022-06-17 Mattias Engdegård <mattiase@acm.org>
+
+ * src/fns.c (Fmapconcat): Better empty-string-or-nil detection.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Fix misplaced interactive spec
+
+ * test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-10483):
+ * test/lisp/cedet/srecode/document-tests.el
+ (srecode-document-function-comment-extract-test):
+ * test/lisp/obsolete/inversion-tests.el (inversion-unit-test):
+ * test/lisp/cedet/cedet-files-tests.el (cedet-files-utest): Remove
+ misplaced interactive spec.
+ (cedet-files-utest-list): Minor doc fix; improve formatting.
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Improve compatibility when receiving drops from early XDND programs
+
+ * lisp/x-dnd.el (x-dnd-handle-xdnd): Save version in state.
+ If version is less than 5, don't put action and success in
+ XdndFinished events. If less than 2, always use `copy' as
+ the selected action.
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Fix computation of screen width and height on Haiku
+
+ * src/haiku_support.cc (be_get_screen_dimensions): Use correct
+ macros to extract width and height.
+
+2022-06-17 Po Lu <luangruo@yahoo.com>
+
+ Fix instances of not using a usable Motif drag atom
+
+ * src/xterm.c (xm_get_drag_atom_1): If another frame owns an
+ atom, use it anyway.
+
+2022-06-17 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f419de6eca * lisp/textmodes/artist.el: Minor doc fixes.
+ 5ddd0f1a35 * lisp/net/tramp.el (tramp-methods): Fix quoting in docstr...
+ b0c5accb99 Update MS Windows FAQ for MinGW64-w64/MSYS2
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Improve window manager user time reporting mode switching
+
+ * src/xterm.c (x_display_set_last_user_time): Stop periodically
+ checking for user time window support.
+ (x_update_frame_user_time_window): New function.
+ (handle_one_xevent): Call it on toplevel ReparentNotify if the
+ frame has been visible at least once.
+
+ * src/xterm.h (struct x_display_info): Remove
+ `last_user_check_time'.
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Update last event time during DND operations
+
+ * lisp/x-dnd.el (x-dnd-handle-xdnd, x-dnd-handle-motif): Set
+ last user time to provided timestamp.
+ * src/xfns.c (Fx_display_last_user_time): New function.
+ (syms_of_xfns): New defsubr.
+
+ * src/xterm.c (x_set_last_user_time_from_lisp): New function.
+ * src/xterm.h: Update prototypes.
+
+2022-06-16 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Change treesit-parser-list from variable to function
+
+ Effectively making the list internal. Now Emacs user cannot shoot
+ themselves in the foot by removing a parser from the list, make
+ chaanges to buffer and add that parser back to the list.
+
+ * doc/lispref/parsing.texi (Language Definitions, Using Parser)
+ (Retrieving Node, Multiple Languages): Change variable to function.
+ * lisp/treesit.el (treesit-language-at, treesit-node-on)
+ (treesit-buffer-root-node, treesit-indent, treesit-check-indent)
+ (treesit-search-forward, treesit-search-beginning)
+ (treesit-end-of-defun, treesit-inspect-mode): Change variable to
+ function.
+ * src/buffer.c (bset_ts_parser_list, reset_buffer, init_buffer_once):
+ Add ts_parser_list.
+ * src/buffer.h (struct buffer): Add ts_parser_list.
+ * src/treesit.c (ts_record_change, Ftreesit_parser_create): Use the
+ buffer field instead of the old buffer local variable.
+ (Ftreesit_parser_delete, Ftreesit_parser_list): New functions.
+ (syms_of_treesit): Remove treesit-parser-list.
+ * test/src/treesit-tests.el (treesit-basic-parsing): Use the new
+ function.
+
+2022-06-16 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/textmodes/artist.el: Minor doc fixes.
+
+2022-06-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/fns.c (Fmapconcat): Optimize the case where separator==""
+
+2022-06-16 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Add treesit test for previous change
+
+ * test/src/treesit-tests.el (treesit-cross-boundary): New test.
+
+2022-06-16 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Consolidate treesit parser create functions
+
+ Merge treesit-parser-create, treesit-get-parser,
+ treesit-get-parser-create into one: treesit-parser-create.
+
+ * src/treesit.c (Ftreesit_parser_language): make BUFFER parameter
+ optional, add new parameter NO-REUSE. Optionally reuse parser.
+ * test/src/treesit-tests.el: Change all parser creation to use
+ treesit-parser-create. Remove tests for the removed functions.
+ * lisp/treesit.el (treesit-get-parser, treesit-get-parser-create):
+ Remove.
+ * lisp/treesit.el (treesit-set-ranges, treesit-get-ranges)
+ (treesit-buffer-root-node, treesit-query-string)
+ (treesit-font-lock-fontify-region, treesit-search-forward)
+ (treesit-query-validate): Change to use treesit-parser-create.
+
+2022-06-16 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Fix treesit function ts_record_change and friends
+
+ In ts_record_change, the way we calculate tree-sitter change was
+ wrong:
+
+ ptrdiff_t affected_start =
+ max (visible_beg, start_byte) - visible_beg;
+ ptrdiff_t affected_old_end =
+ min (visible_end, affected_start + bytes_del);
+ ptrdiff_t affected_new_end =
+ affected_start + bytes_ins;
+
+ I changed it to below (also renamed variables)
+
+ ptrdiff_t start_offset =
+ min (visible_end,
+ max (visible_beg, start_byte)) - visible_beg;
+ ptrdiff_t old_end_offset =
+ min (visible_end,
+ max (visible_beg, old_end_byte)) - visible_beg;
+ ptrdiff_t new_end_offset =
+ min (visible_end,
+ max (visible_beg, new_end_byte)) - visible_beg;
+
+ Also previously only visible_end is changed (in a wrong way)
+
+ XTS_PARSER (lisp_parser)->visible_end = affected_new_end;
+
+ Now we have a whole new bunch of code that makes the right change.
+
+ * src/treesit.c (ts_tree_edit_1): Add assertion.
+ (ts_record_change): See above.
+ (ts_ensure_position_synced): Add assertion.
+ (ts_ensure_parsed): Only free if non-NULL.
+ (make_ts_parser): Add assertion.
+ (Ftreesit_parser_set_included_ranges): Ensure parsed before setting
ranges.
+ (Ftreesit_parser_included_ranges): Add assertion.
+
+2022-06-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp test
+
+ * test/lisp/net/tramp-tests.el (tramp-test03-file-name-method-rules):
+ Remove superfluous checks.
+
+2022-06-16 Eli Zaretskii <eliz@gnu.org>
+
+ Fix disruption of windows' display by shr.el
+
+ * src/window.c (struct saved_window): New member 'vscroll'.
+ (Fset_window_configuration, save_window_save): Save and restore
+ the window's vscroll value.
+
+ * lisp/net/shr.el (shr-insert-document): Restore the original
+ window's hscroll, in case we are rendering in a window other than
+ where the document will be eventually displayed. This avoids
+ resetting hscroll of windows we use temporarily for shr's
+ rendering job. (Bug#56008)
+
+2022-06-16 Michael Heerdegen <michael_heerdegen@web.de>
+
+ Allow number register insertion in Calc (Bug#55943)
+
+ * lisp/calc/calc-yank.el (calc-get-register): Convert number values to
+ strings.
+
+2022-06-16 Mattias Engdegård <mattiase@acm.org>
+
+ * src/fns.c (mapcar1): Test types in rough order of likelyhood.
+
+2022-06-16 Mattias Engdegård <mattiase@acm.org>
+
+ Use BASE_EQ instead of EQ where obviously safe
+
+ * src/alloc.c (deadp):
+ * src/buffer.c (reset_buffer_local_variables, candidate_buffer)
+ (Fkill_buffer, Fbuffer_swap_text, Fmake_overlay, Fmove_overlay):
+ * src/callint.c (Fcall_interactively):
+ * src/coding.c (decode_coding_object, encode_coding_object)
+ (code_convert_region, Ffind_operation_coding_system):
+ * src/comp.c (Fcomp_el_to_eln_rel_filename):
+ * src/conf_post.h (RE_TRANSLATE_P):
+ * src/data.c (Fkill_local_variable, Fash, expt_integer):
+ * src/dired.c (file_name_completion):
+ * src/dispnew.c (set_window_cursor_after_update, update_frame_1)
+ (Fframe_or_buffer_changed_p):
+ * src/doc.c (Fdocumentation, Fdocumentation_property)
+ (default_to_grave_quoting_style):
+ * src/editfns.c (Fconstrain_to_field, save_excursion_save)
+ (save_excursion_restore, Fngettext):
+ * src/eval.c (Fautoload, un_autoload, specbind):
+ * src/fileio.c (Fmake_temp_file_internal):
+ * src/fns.c (string_char_to_byte, string_byte_to_char)
+ (Fnthcdr, Fnreverse):
+ * src/indent.c (vmotion):
+ * src/inotify.c (add_watch):
+ * src/keyboard.c (command_loop_1, read_char)
+ (read_char_minibuf_menu_prompt):
+ * src/lread.c (oblookup):
+ * src/macfont.m (macfont_descriptor_entity, macfont_open):
+ * src/minibuf.c (Finnermost_minibuffer_p, Ftry_completion)
+ (Ftest_completion):
+ * src/nsfns.m (ns_set_icon_name):
+ * src/pdumper.c (dump_queue_dequeue):
+ * src/pgtkfns.c (pgtk_set_icon_type, pgtk_set_icon_name):
+ * src/process.c (Faccept_process_output):
+ * src/textprop.c (set_text_properties):
+ * src/w32fns.c (w32_set_icon_type, w32_set_icon_name):
+ * src/w32select.c (validate_coding_system):
+ * src/window.c (decode_next_window_args, window_loop)
+ (save_window_save):
+ * src/xdisp.c (wset_redisplay):
+ * src/xfaces.c (Fx_family_fonts, resolve_face_name)
+ (gui_supports_face_attributes_p):
+ * src/xfns.c (x_set_icon_type, x_set_icon_name):
+ * src/xselect.c (clean_local_selection_data):
+ Use BASE_EQ instead of EQ where it is obvious that neither argument
+ can be a symbol with properties or at least one argument is a
+ non-symbol.
+
+2022-06-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make package-recompile delete all .elc files first
+
+ * lisp/emacs-lisp/package.el (package-recompile): Delete all .elc
+ files under the package directory.
+
+2022-06-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new package.el commands for recompilation
+
+ * doc/emacs/package.texi (Package Installation): Document them.
+
+ * lisp/emacs-lisp/package.el (package-recompile):
+ (package-recompile-all): New commands (bug#27253).
+
+2022-06-16 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp.el (tramp-methods): Fix quoting in docstring.
+
+2022-06-16 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up Org to Texinfo generation
+
+ * doc/misc/Makefile.in ($(1:.org=.texi)): Use a higher GC
+ threshold, to speed up .org=.texi conversion. Patch by Ihor
+ Radchenko <yantar92@gmail.com>.
+
+2022-06-16 Stefan Kangas <stefan@marxist.se>
+
+ Make artist-version variable obsolete
+
+ * lisp/textmodes/artist.el (artist-version): Make obsolete. This has
+ not been updated in nearly two decades; use the Emacs version instead.
+ (artist-submit-bug-report): Don't use above obsolete variable.
+
+2022-06-16 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap for artist-mode-map
+
+ * lisp/textmodes/artist.el (artist-mode-map): Prefer
+ defvar-keymap.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-cite-list-citations: Cache footnote-definition searches
+
+ * lisp/org/oc.el (org-cite-list-citations): Avoid quadratic complexity.
+ Pre-calculate list of all footnote definitions and cache the footnote
+ label search hits. Do not make `org-element-map' accumulate unused
+ result.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-element-map: Avoid repetitive `plist-get' call
+
+ * lisp/org/org-element.el (org-element-map): Do not call `(plist-get
info
+ :ignore-list)' on every iteration.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-export-data: Concatenate strings in temporary buffer for performance
+
+ * lisp/org/ox.el (org-export-data): Use temporary buffer to collect
export
+ data instead of `mapconcat'. Using buffer puts less load on garbage
+ collector.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-export-as: Do not update buffer settings when not modified
+
+ * lisp/org/ox.el (org-export-as): Use `buffer-chars-modified-tick' and
+ avoid extra invocations of `org-set-regexps-and-options' and
+ `org-update-radio-target-regexp' when the buffer is not changed.
+ Also, disable folding checks. Folding is irrelevant inside export
+ buffer.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-export-resolve-id-link: Pre-cache all the ids in the parse tree
+
+ * lisp/org/ox.el (org-export-resolve-id-link): Pre-cache all the ids in
+ the parse tree for faster lookup.
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif drag-and-drop timestamps
+
+ * lisp/x-dnd.el (x-dnd-handle-motif): Pass timestamp when
+ retrieving DND selection value. Bug found on Solaris 2.6.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-export-resolve-fuzyy-link: Pre-cache all possible search cells
+
+ * lisp/org/ox.el (org-export-resolve-fuzzy-link): Before matching LINK,
+ pre-process and cache all the non-nil search cells in the parse tree.
+ When matching, use the pre-processed info. Fix the :test function for
+ the cache hash table.
+
+2022-06-16 Ihor Radchenko <yantar92@gmail.com>
+
+ org-export-get-footnote-definition: Pre-cache references in parse tree
+
+ * lisp/org/ox.el (org-export-get-footnote-definition): Pre-process parse
+ tree once to filter out all non-footnote elements. This speeds up
+ subsequent footnote definition searches.
+
+2022-06-16 Robert Pluim <rpluim@gmail.com>
+
+ Fix check for window system with toolkit scrollbars
+
+ * configure.ac (USE_TOOLKIT_SCROLL_BARS): Add missing 'test' to
+ condition. (Bug#55970)
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Fix byte-swapping of Motif DND tables
+
+ * src/xterm.c (xm_read_targets_table_rec): Swap nitems first
+ before checking the length.
+
+2022-06-16 Arash Esbati <arash@gnu.org>
+
+ Update MS Windows FAQ for MinGW64-w64/MSYS2
+
+ * doc/misc/efaq-w32.texi (Compiling, Debugging): Mention
+ MinGW64-w64/MSYS2 as the preferred way for building Emacs on
+ capable systems.
+ (Attachments with Gnus): Catch up with emacs-mime.texi in the
+ example given.
+ (Spell check): Add the availability of GNU Aspell and Hunspell
+ in MSYS2 distribution.
+ (Other useful ports): Add an entry for MinGW64-w64/MSYS2.
+ Fix link for MinGW homepage.
+ Remove entry for defunct UWIN project. (Bug#55930)
+
+2022-06-16 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (strz): Write null terminator after variable length string
+
+ * lisp/emacs-lisp/bindat.el (bindat--pack-strz): Explicitly write a
+ null byte after packing a variable-length string to ensure proper
+ termination when packing to a pre-allocated string.
+ * doc/lispref/processes.texi (Bindat Types): Update documentation.
+ * test/lisp/emacs-lisp/bindat-tests.el (bindat-test--str-strz-prealloc):
+ Update tests.
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Fix defcustom in last change
+
+ * lisp/x-dnd.el (x-dnd-use-offix-drop): Fix defcustom.
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of fallback drop protocols
+
+ * lisp/x-dnd.el (x-dnd-use-offix-drop): New value `files', which
+ means to only drop files using the OffiX protocol. Make it the
+ default.
+ (x-dnd-handle-old-kde): Handle other data types correctly.
+ (x-dnd-offix-old-kde-to-name): New variable.
+ (x-dnd-offix-id-to-name): Fix typo in doc string.
+ (x-dnd-handle-unsupported-drop): Implement new value.
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif DND after atom ownership is lost due to frame destruction
+
+ * src/xterm.c (xm_get_drag_atom_1): Record owner.
+ (x_free_frame_resources): Clear drag atom if owner was freed.
+ * src/xterm.h (struct x_display_info): New field
+ `motif_drag_atom_owner'.
+
+2022-06-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 4d7a936ac2 ; * src/fileio.c (Fset_file_modes): Improve previous change
+ 32cff740e2 Describe 'set-file-modes' argument prompting
+
+2022-06-16 Po Lu <luangruo@yahoo.com>
+
+ Improve drag atom computation
+
+ * src/xterm.c (xm_get_drag_window): Avoid leak if error occured
+ creating drag window. Also use StructureNotifyMask instead of
+ ButtonPressMask.
+ (xm_get_drag_atom_1): Update. Make EMACS_DRAG_ATOM a list of
+ atoms and use the first one that isn't currently owned.
+ (xm_get_drag_atom): Stop owning selection here.
+ (xm_setup_drag_info): Record chosen atom.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop)
+ (x_dnd_update_state, handle_one_xevent, x_connection_closed):
+ Use chosen atom.
+ * src/xterm.h (struct x_display_info): New field
+ `motif_drag_atom_time'.
+
+2022-06-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Streamline time decoding and conversion
+
+ * src/lisp.h (lisp_h_BASE2_EQ, BASE2_EQ): New macros and functions.
+ * src/timefns.c (tzlookup, Fdecode_time): Use them.
+ (Ftime_convert): Convert to symbol once, instead of many times.
+
+2022-06-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Don’t test time functions for NaNs, INF
+
+ * test/src/timefns-tests.el (decode-then-encode-time)
+ (time-equal-p-NaN-NaN, time-arith-tests):
+ Don’t test time functions with infinities and NaNs,
+ which are not Lisp time values.
+
+2022-06-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer BASE_EQ in time-sensitive ops
+
+ * src/timefns.c (tzlookup, lisp_time_hz_ticks)
+ (decode_time_components, lisp_to_timespec, lispint_arith)
+ (time_arith, time_cmp, Fdecode_time, Fencode_time)
+ (Ftime_convert): Prefer BASE_EQ to EQ where either will do.
+
+2022-06-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ icalendar-tests no longer assumes TZ = wall
+
+ Do not assume that the TZ environment variable is either unset or
+ agrees with /etc/localtime. I ran into this test bug while
+ running ‘TZ=America/Chicago make check’ on a platform where
+ /etc/localtime was America/Los_Angeles.
+ * test/lisp/calendar/icalendar-tests.el:
+ (icalendar-tests--decode-isodatetime): Don’t use
+ set-time-zone-rule, whose doc string says “Instead of calling this
+ function, you typically want something else” for a reason.
+ Instead, pass the zone arg to icalendar-test--format.
+
+2022-06-15 Po Lu <luangruo@yahoo.com>
+
+ Handle OffiX drop of multiple files
+
+ * lisp/x-dnd.el (x-dnd-types-alist): Register DndTypeFiles.
+ (x-dnd-offix-id-to-name): Fix typo.
+ (x-dnd-handle-offix-files): New function.
+ (x-dnd-convert-to-offix): Fix conversion to DndTypeFiles.
+
+2022-06-15 Po Lu <luangruo@yahoo.com>
+
+ Comply with the Motif requirement for unique drag atoms
+
+ * src/xselect.c (x_handle_selection_request)
+ (Fx_get_selection_internal, syms_of_xselect): New variable
+ `x-selection-alias-alist'. Respect that alist of aliases.
+
+ * src/xterm.c (x_atom_refs): Intern _EMACS_DRAG_ATOM.
+ (xm_get_drag_atom_1, xm_get_drag_atom): New functions.
+ (xm_setup_drag_info, x_dnd_cleanup_drag_and_drop)
+ (x_dnd_begin_drag_and_drop, x_dnd_update_state, handle_one_xevent)
+ (x_connection_closed, x_intern_cached_atom): Alias the drag atom
+ to XdndSelection. Use it instead of XdndSelection to set the
+ Motif index atom.
+ (x_get_atom_name): Handle new atoms.
+ (syms_of_xterm): New defsym.
+ * src/xterm.h (struct x_display_info): New fields for new atoms
+ and their names.
+
+2022-06-15 Sean Whitton <spwhitton@spwhitton.name>
+
+ * .dir-locals.el: Set emacs-lisp-docstring-fill-column.
+
+2022-06-15 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ * src/treesit.c (ts_check_range_argument): Check for point-min/max.
+
+2022-06-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust ibuffer test
+
+ * test/lisp/ibuffer-tests.el (ibuffer-format-qualifier): Adjust
+ test after recent formatting changes.
+
+2022-06-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow completing tags, parameters and values in html-mode
+
+ * lisp/textmodes/sgml-mode.el (html-mode--complete-at-point):
+ Allow completing tags, parameters and values (bug#29057).
+
+2022-06-15 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Do not display 'nil for 0-ary filter qualifier in ibuf
+
+ * lisp/ibuf-ext.el (ibuffer-format-qualifier-1): Do not display
+ nil in header for 0-ary filter qualifier.
+ * lisp/ibuf-macs.el (define-ibuffer-filter): Also fix the message.
+
+2022-06-15 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in ibuffer.el
+
+ * lisp/ibuffer.el (ibuffer--filter-map, ibuffer-name-map)
+ (ibuffer-filename/process-header-map, ibuffer-mode-name-map)
+ (ibuffer-name-header-map, ibuffer-size-header-map)
+ (ibuffer-mode-header-map, ibuffer-mode-filter-group-map): Prefer
+ defvar-keymap.
+
+2022-06-15 Po Lu <luangruo@yahoo.com>
+
+ Implement using the OffiX protocol for dropping
+
+ * lisp/x-dnd.el (x-dnd-use-offix-drop): New user option.
+ (x-dnd-handle-unsupported-drop): Return t if the OffiX protocol
+ was used.
+ (x-treat-local-requests-remotely): New defvar.
+ (x-dnd-convert-to-offix, x-dnd-do-offix-drop): New functions.
+
+ * src/xterm.c: Update commentary.
+ (x_term_init): Extend number of DND atoms allocated by default.
+
+2022-06-15 Robert Pluim <rpluim@gmail.com>
+
+ Describe 'set-file-modes' argument prompting
+
+ * src/fileio.c (Fset_file_modes): Document that FILENAME is prompted
+ for. (Bug#55984)
+
+2022-06-15 Miha Rihtaršič <miha@kamnitnik.top>
+
+ whitespace.el: New whitespace style `lines-char'
+
+ * lisp/whitespace.el (whitespace-style):
+ (whitespace-style-value-list):
+ (whitespace-toggle-option-alist):
+ (global-whitespace-toggle-options):
+ (whitespace-help-text):
+ (whitespace-interactive-char):
+ (whitespace-style-face-p):
+ (whitespace-color-on):
+ (whitespace-lines-regexp): New whitespace style `lines-char', which
+ highlights only the first character over the whitespace-line-column
+ limit (bug#55980).
+
+2022-06-15 Po Lu <luangruo@yahoo.com>
+
+ Handle receiving new OffiX protocol during drag-and-drop
+
+ * lisp/x-dnd.el (x-dnd-types-alist, x-dnd-known-types): Add
+ DndTypeFile and DndTypeText.
+ (x-dnd-init-frame): Add _DND_PROTOCOL.
+ (x-dnd-handle-drag-n-drop-event): Handle _DND_PROTOCOL events.
+ (x-dnd-handle-old-kde): Drop event if proto is too new.
+ (x-dnd-offix-id-to-name): New list.
+ (x-dnd-handle-offix-file, x-dnd-handle-offix): New functions.
+
+2022-06-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix ;;;###autoload scanning from (some) packages
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--parse-file):
+ Fix autoloads scanning from packages.
+
+2022-06-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix file name quoting in tramp-smb.el
+
+ * lisp/net/tramp-smb.el (tramp-smb-shell-quote-localname): New defun.
+ (tramp-smb-handle-add-name-to-file, tramp-smb-handle-copy-file)
+ (tramp-smb-handle-delete-directory)
+ (tramp-smb-handle-delete-file)
+ (tramp-smb-do-file-attributes-with-stat)
+ (tramp-smb-handle-file-local-copy)
+ (tramp-smb-handle-file-system-info)
+ (tramp-smb-handle-make-directory-internal)
+ (tramp-smb-handle-make-symbolic-link)
+ (tramp-smb-handle-process-file, tramp-smb-handle-rename-file)
+ (tramp-smb-handle-set-file-modes)
+ (tramp-smb-handle-start-file-process)
+ (tramp-smb-handle-write-region, tramp-smb-get-file-entries)
+ (tramp-smb-get-stat-capability): Use it.
+ (tramp-smb-get-localname): Remove superfluous test. (Bug#55855)
+
+2022-06-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp debugging
+
+ * lisp/net/tramp-cache.el (tramp-list-connections): Fix docstring.
+
+ * lisp/net/tramp.el (tramp-backtrace): New optional arg FORCE.
+
+2022-06-15 Juri Linkov <juri@linkov.net>
+
+ Update args of isearch-search-fun-in-text-property (bug#14013)
+
+ * lisp/isearch.el (isearch-search-fun-in-text-property): Swap signature
args.
+ * lisp/dired-aux.el (dired-isearch-search-filenames): Update the call.
+
+2022-06-15 Visuwesh <visuweshm@gmail.com>
+
+ repeat-mode: Don't echo unset keys in help message
+
+ * repeat.el (repeat-echo-message-string): Check if the key is set.
+ (bug#55977)
+
+2022-06-15 Po Lu <luangruo@yahoo.com>
+
+ Handle coordinates for the old KDE drop protocol
+
+ * src/xterm.c (x_atom_refs): Add DndProtocol and _DND_PROTOCOL.
+ (x_coords_from_dnd_message): Handle the old KDE protocol.
+ * src/xterm.h (struct x_display_info): New atoms.
+
+2022-06-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 850050ca5c Revert "Clarify what a Calc registeri in in calc-insert-re...
+
+2022-06-15 Yuan Fu <yuan@debian-BULLSEYE-live-builder-AMD64>
+
+ Fix compile warnings and errors in treesit.c
+
+ * src/treesit.c (ts_initialize): Fix.
+ (Ftreesit_parser_set_included_ranges): Fix.
+ (Ftreesit_query_compile): Fix.
+
+2022-06-14 Po Lu <luangruo@yahoo.com>
+
+ Fix link action handling with Motif DND
+
+ * src/xterm.c (enum xm_drag_operation): New alternate
+ definition.
+ (XM_DRAG_OPERATION_IS_LINK): New macro.
+ (handle_one_xevent): Use it instead.
+
+2022-06-14 Po Lu <luangruo@yahoo.com>
+
+ Handle coordinates from XM_DRAG_REASON_DRAG_MOTION replies
+
+ * src/xterm.c (struct xm_drag_motion_reply): New struct.
+ (xm_read_drag_motion_reply): New function.
+ (x_coords_from_dnd_message): Handle those messages as well.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Merge remote-tracking branch 'savannah/master' into feature/tree-sitter
+
+ Merge branch 'feature/tree-sitter-depth-control' into
feature/tree-sitter
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Add manual for treesit-traverse-forward and friends
+
+ * doc/lispref/parsing.texi (Retrieving Node): Add manual entry for
+ treesit-traverse-depth-first, treesit-traverse-breadth-first,
+ treesit-traverse-forward.
+ * lisp/treesit.el (treesit-traverse-forward): Fix docstring.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Change treesit-check-query and mention it in documentation
+
+ * doc/lispref/parsing.texi (Pattern Matching): Mention it.
+ * lisp/treesit.el (treesit-check-query): Rename to
+ treesit-query-validate.
+ * src/treesit.c (Ftreesit_query_capture, Ftreesit_query_compile):
+ Mention it.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Add treesit-query-compile to manual
+
+ * doc/lispref/parsing.texi: Add treesit-query-compile.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Add test for treesit-query-compile
+
+ * test/src/treesit-tests.el (treesit-query-api): Rename pattern to
+ query, and add treesit-query-compile into the mix.
+
+2022-06-14 Sean Whitton <spwhitton@spwhitton.name>
+
+ Add abbrev tables for minibuffer-mode and minibuffer-inactive-mode
+
+ * lisp/minibuffer.el (minibuffer-mode, minibuffer-inactive-mode): Add
+ an abbrev table for each of these modes (bug#55946).
+
+2022-06-14 Eli Zaretskii <eliz@gnu.org>
+
+ Support callers which sometimes run unrelated to display code
+
+ * src/xdisp.c (update_redisplay_ticks): Don't abort callers
+ with w == NULL if we are called outside of display engine code,
+ and don't update the tick count in that case.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Support compiled queries in treesit-query-capture
+
+ Last commit added this new type, this commit adds functionalities.
+ treesit.el only has documentation changes.
+
+ * lisp/treesit.el (treesit-query-in, treesit-font-lock-settings,
+ treesit-defun-query): Update docstring.
+ * src/treesit.c (make_ts_query): New function.
+ (Ftreesit_query_compile): New function.
+ (Ftreesit_query_capture): Remove code that creates a query object and
+ instead either use make_ts_query or use the give compiled query. Free
+ the query object conditonally.
+ (syms_of_treesit): New symbol.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ * src/treesit.c (Ftreesit_query_p): New function.
+
+2022-06-14 Yuan Fu <casouri@gmail.com>
+
+ Add new type treesit-compiled-query
+
+ No intergration/interaction with the new type, just adding it.
+
+ * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add new type.
+ * src/alloc.c (cleanup_vector): Add gc for the new type.
+ * src/data.c (Ftype_of): Add switch case for the new type.
+ (syms_of_data): Add symbols for the new type.
+ * src/lisp.h (DEFINE_GDB_SYMBOL_BEGIN): Add new type.
+ * src/treesit.c (Ftreesit_compiled_query_p): New function.
+ (syms_of_treesit): Add symbol for the new type.
+ * src/treesit.h (struct Lisp_TS_Query): New struct.
+ (TS_COMPILED_QUERY_P, XTS_COMPILED_QUERY, CHECK_TS_COMPILED_QUERY):
+ New macros.
+ * src/print.c (print_vectorlike): Add printing for the new type.
+
+2022-06-14 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify byte-compiler assuming cconv normalisations
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker)
+ (byte-optimize-let-form, byte-optimize-letX):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-unwind-protect):
+ Simplify source optimisation and codegen code that can now rely on
+ normalised let/let* and unwind-protect forms.
+
+2022-06-14 Mattias Engdegård <mattiase@acm.org>
+
+ Run cconv for dynbound code as well
+
+ Make cconv work for dynamically bound code and always run it.
+ This allows later stages to benefit from transformations and
+ normalisations in cconv.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-preprocess): Always run
+ cconv.
+ * lisp/emacs-lisp/cconv.el (cconv--analyze-function)
+ (cconv-analyze-form): In dynbound code, treat all variable bindings
+ as dynamic (lambda, let, let* and condition-case).
+
+2022-06-14 Mattias Engdegård <mattiase@acm.org>
+
+ Normalise setq during macro-expansion
+
+ Early normalisation of setq during macroexpand-all allows later
+ stages, cconv, byte-opt and codegen, to be simplified and duplicated
+ checks to be eliminated.
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--expand-all):
+ Normalise all setq forms to a sequence of (setq VAR EXPR).
+ Emit warnings if necessary.
+ * lisp/emacs-lisp/cconv.el (cconv-convert, cconv-analyze-form):
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-setq):
+ Simplify.
+ * test/lisp/emacs-lisp/bytecomp-tests.el: Adapt and add tests.
+ *
test/lisp/emacs-lisp/bytecomp-resources/warn-variable-setq-nonvariable.el;
+ * test/lisp/emacs-lisp/bytecomp-resources/warn-variable-setq-odd.el:
+ New files.
+
+2022-06-14 Eli Zaretskii <eliz@gnu.org>
+
+ Handle W = NULL in 'update_redisplay_ticks'
+
+ * src/xdisp.c (update_redisplay_ticks): If W == NULL, assume we
+ are iterating the current buffer.
+
+2022-06-14 Juri Linkov <juri@linkov.net>
+
+ * lisp/replace.el (read-regexp): Use minibuffer-message in the
minibuffer.
+
+2022-06-14 Eli Zaretskii <eliz@gnu.org>
+
+ Restart tick counting every command
+
+ * src/keyboard.c (command_loop_1): Reinitialize the tick count
+ before executing each command in the loop.
+ * src/xdisp.c (update_redisplay_ticks): Be more defensive to W
+ being NULL and to its buffer being nil. Set
+ 'windows_or_buffers_changed' to avoid trusting stale window data
+ like w->window_end_valid.
+
+2022-06-14 Robert Pluim <rpluim@gmail.com>
+
+ Add more characters with macron in C-x 8 map and latin input methods
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Add
+ sequences for {AE,ae,G,g} with macron.
+ * lisp/leim/quail/latin-post.el ("latin-postfix"): Add missing entries
+ for {AE,ae,G,g} with macron.
+ * lisp/leim/quail/latin-pre.el ("latin-prefix"): Add entries for
+ 'letter with macron' for {A,a,E,e,AE,ae,I,I,O,o,U,u,Y,y} with macron.
+
+ (Bug#55668)
+
+2022-06-14 Stephen Berman <stephen.berman@gmx.net>
+
+ Fix errors when aligning text in find-dired
+
+ * lisp/find-dired.el (find-dired-filter): Don't error out while
+ trying to align the text (by just removing that code) (bug#46218).
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make flymake-proc--delete-temp-directory slightly safer
+
+ * lisp/progmodes/flymake-proc.el
+ (flymake-proc--delete-temp-directory): Temp dir name may be
+ abbreviatated, so expand it first (bug#46203).
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix .dir-local.el caching for symlinks
+
+ * lisp/files.el (dir-locals-read-from-dir): We want the time stamp
+ of the actual file, not the time stamp of the symlink (if
+ .dir-locals.el is a symlink) (bug#46122).
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Leave the contents on the *Backtrace* buffer on `q'
+
+ * lisp/emacs-lisp/debug.el (debug): Don't clear the contents of
+ the buffer on `q' (bug#55863).
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix gud parsing of empty jdb classpaths
+
+ * lisp/progmodes/gud.el (gud-jdb-marker-filter): Parse empty
+ classpaths (like classpath: []) correctly (bug#55957).
+
+2022-06-14 Daniel Martín <mardani29@yahoo.es>
+
+ Bind Cmd-t to menu-set-font on macOS
+
+ * lisp/term/ns-win.el (global-map): set-frame-font asks for a font
+ using the minibuffer, but the former ns-popup-font-panel always showed
+ the graphical font panel on macOS. To preserve the same behavior,
+ bind it to menu-set-font, which is also called by Options, Set Default
+ Font (bug#55967).
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using alists in ido completion and hitting TAB
+
+ * lisp/ido.el (ido-completion-help): Allow using an alist
+ COMPLETIONS (bug#46091).
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Clarify what a Calc registeri in in calc-insert-register"
+
+ This reverts commit 73400e4002ce8fca060093548e6791b3a784eeaa.
+
+ This has been fixed in Emacs 29 by making it possible to use regular
registers in calc.
+
+2022-06-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention how to only get syntactic font locking in the manual
+
+ * doc/lispref/modes.texi (Syntactic Font Lock): Note how to only
+ get syntactic font locking (bug#46039).
+
+2022-06-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp problem with non-essential
+
+ * lisp/net/tramp.el (tramp-run-real-handler):
+ Handle also functions which use a `tramp-file-name' for the file
+ name handler. (Bug#55832)
+ (tramp-get-home-directory, tramp-get-remote-uid)
+ (tramp-get-remote-gid): VEC can also be nil.
+
+2022-06-14 Po Lu <luangruo@yahoo.com>
+
+ Fix mishandling of dnd-scroll-margin with scroll bar motion
+
+ * lisp/dnd.el (dnd-handle-movement): Ignore posns inside scroll
+ bars for now.
+
+2022-06-14 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (minibuffer-complete-history): New command.
+
+ (minibuffer-complete-defaults): New command.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-06/msg00498.html
+
+2022-06-14 Juri Linkov <juri@linkov.net>
+
+ * lisp/simple.el (completion-auto-wrap): Rename from
completion-wrap-movement.
+
+ (next-completion): Use completion-auto-wrap.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-06/msg00139.html
+
+2022-06-14 Po Lu <luangruo@yahoo.com>
+
+ Fix out of date parts in NS doc and keyboard bindings
+
+ * doc/emacs/macos.texi (Mac / GNUstep Events): Remove
+ `ns-drag-n-drop' which doesn't exist anymore. Add events to
+ concept index and document `ns-show-prefs'. (bug#55940)
+ * lisp/term/ns-win.el (global-map): Remove ns-popup-font-panel.
+
+2022-06-14 Po Lu <luangruo@yahoo.com>
+
+ Handle coordinates of Motif drop start messages
+
+ * src/xterm.c (xm_read_drop_start_message): New function.
+ (xm_read_drag_motion_message): Check that the originator is
+ correct.
+ (x_coords_from_dnd_message): Read drop start messages as well.
+
+2022-06-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 73400e4002 Clarify what a Calc registeri in in calc-insert-register
+
+2022-06-13 Po Lu <luangruo@yahoo.com>
+
+ Handle coordinate extraction for more event types
+
+ * src/xterm.c (xm_read_drag_motion_message): New function.
+ (x_coords_from_dnd_message): Handle XM_DRAG_REASON_DRAG_MOTION.
+
+2022-06-13 Po Lu <luangruo@yahoo.com>
+
+ Use coordinates provided by DND messages if available
+
+ This avoids an extra sync, which matters when dropping onto
+ Emacs running over a slow connection.
+
+ * src/xselect.c (x_handle_dnd_message): New args
+ `root_window_coords', `root_x' and `root_y'.
+ * src/xterm.c (x_coords_from_dnd_message): New function.
+ (handle_one_xevent): Pass root window coordinates to
+ x_handle_dnd_message.
+ * src/xterm.h: Update prototypes.
+
+2022-06-13 Dmitry Gutov <dgutov@yandex.ru>
+
+ project--git-submodules: Parse more strictly
+
+ * lisp/progmodes/project.el (project--git-submodules):
+ Don't mistake 'load-path' for 'path' (bug#55396).
+
+2022-06-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Default decoded-time dst slot to -1
+
+ * lisp/simple.el (decoded-time): Default dst slot to -1.
+ Improve related doc strings.
+
+2022-06-13 Yuan Fu <casouri@gmail.com>
+
+ Use the up-only parameter in treesit navigation functions
+
+ * lisp/treesit.el(treesit-inspect-node-at-point,
+ treesit-end-of-defun): Set up-only to t.
+
+2022-06-13 Yuan Fu <casouri@gmail.com>
+
+ Add depth control for treesit traverse functions
+
+ * lisp/treesit.el (treesit-traverse-depth-first,
+ treesit-traverse-forward): Add depth parameter.
+ (treesit-search-forward, treesit-search-beginning,
+ treesit-search-end): Add up-only parameter.
+
+2022-06-13 Yuan Fu <casouri@gmail.com>
+
+ Fix treesit-search-forward
+
+ Move the check for movement
+
+ (if (> arg 0)
+ ;; Make sure we moved forward.
+ (> (funcall pos-fn node) starting-point)
+ ;; Make sure we moved backward.
+ (< (funcall pos-fn node) starting-point))
+
+ into cl-loop:
+
+ if (treesit-node-eq cap-node node)
+
+ becomes
+
+ if (and (treesit-node-eq cap-node node)
+ (if (> arg 0)
+ ;; Make sure we moved forward.
+ (> (funcall pos-fn node)
+ starting-point)
+ ;; Make sure we moved backward.
+ (< (funcall pos-fn node)
+ starting-point)))
+
+ * lisp/treesit.el (treesit-search-forward): Move the check.
+
+2022-06-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12.1.1 -Wanalyzer-use-of-uninitialized-value
+
+ * src/xfont.c (xfont_list_pattern): Initialize a local.
+ Although I’m not sure this is needed, it doesn’t change
+ behavior (except possibly to make undefined behavior defined).
+
+2022-06-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12.1.1 in default developer build
+
+ * src/pdumper.c (pdumper_load): Use explicit memset to work around
+ GCC bug <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105961>.
+
+2022-06-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/grep.el (grep-read-files): Combine files with aliases.
+
+ Use completion-table-merge to combine completions of files from
+ read-file-name-internal with a list of defaults from grep-files-aliases
+ (bug#55800).
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention \`M-x ...' in the lispref manual
+
+ * doc/lispref/help.texi (Keys in Documentation): Note \`M-x ...'
+ syntax.
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify what a Calc registeri in in calc-insert-register
+
+ * lisp/calc/calc-yank.el (calc-insert-register): Note that these
+ aren't normal registers (bug#55943).
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow saying \\=`M-x ...' in a doc string
+
+ * lisp/help.el (substitute-command-keys): Allow saying \\=`M-x
+ foo' in doc strings (and have it be fontified as a key binding).
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Massage In-Reply-To data in message-mail
+
+ * lisp/gnus/message.el (message-mail): Fix up Message-IDs from
+ Firefox (bug#55926).
+
+2022-06-13 Lassi Kortela <lassi@lassi.io> (tiny change)
+
+ Match complete words in dns-mode
+
+ * lisp/textmodes/dns-mode.el (dns-mode-font-lock-keywords): Match
+ complete words like SOA and not all words that contain the string
+ SOA (bug#55944).
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow `query-replace' to do exact replacement of the current item
+
+ * doc/emacs/search.texi (Query Replace): Document it.
+
+ * lisp/replace.el (query-replace-help): Amend help text.
+ (query-replace-map): Bind `E' to the exact case replacement.
+ (perform-replace): Allow editing a replacement with exact case
+ (bug#8504).
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add to mode cedilla characters to iso-transl-char-map
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Add some
+ more cedilla characters.
+
+2022-06-13 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Meetei Mayek script
+
+ * lisp/language/indian.el ("Meetei Mayek"): New language environment.
+ Add composition rules for Meetei Mayek. Add sample text and input
method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Meetei Mayek.
+ * lisp/leim/quail/indian.el ("meetei-mayek"): New input method.
+
+ * etc/HELLO: Add a Meetei Mayek greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the ediff control panel mode line prettier
+
+ * lisp/vc/ediff-wind.el (ediff-refresh-mode-lines): Don't include
+ "Quick Help" in the mode line in the plain version (bug#12840).
+ (ediff-make-wide-control-buffer-id): Make the informative part of
+ the mode line bold. (Code from Michael Heerdegen.)
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow rgrep users to indicate case folding easier
+
+ * lisp/progmodes/grep.el (rgrep): Allow the user to toggle case
+ sensitivity interactively (bug#16913).
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a `M-c' command to `read-regexp'
+
+ * doc/lispref/minibuf.texi (Text from Minibuffer): Document it.
+
+ * lisp/replace.el (read-regexp): Add a `M-c' command to indicate
+ case folding (bug#16913).
+
+2022-06-13 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (strz): Error on null byte if packing variable-length string
+
+ * lisp/emacs-lisp/bindat.el (strz): Signal an error if a null byte is
+ encountered while packing a string to a variable-length strz field.
+ * test/lisp/emacs-lisp/bindat-tests.el (strz): Add tests (bug#55938).
+
+2022-06-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * files.el (auto-mode-alist): Add entry to `.eld` files
+
+2022-06-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `/ a' in *Package* filter by name
+
+ * lisp/emacs-lisp/package.el (package-menu-filter-by-archive):
+ Filter by package name instead of by regexp, so that if the user
+ types "gnu", they won't get "nongnu", too (bug#55919).
+
+2022-06-13 Visuwesh <visuweshm@gmail.com>
+
+ * lisp/find-dired.el (find-dired): Make directory clickable.
+
+ * lisp/find-dired.el (find-dired): Make the directory line
+ clickable (bug#55906).
+
+2022-06-13 Po Lu <luangruo@yahoo.com>
+
+ Respect test function when performing local drag-and-drop
+
+ * lisp/x-dnd.el (x-dnd-test-function): Fix doc string to
+ describe what is actually accepted.
+ (x-dnd-known-types, x-dnd-targets-list): Fix coding style.
+ (x-dnd-handle-native-drop): New function.
+
+ * src/xselect.c (x_atom_to_symbol): Export.
+
+ * src/xterm.c (x_dnd_note_self_drop): Call new variable to
+ determine what action to return.
+ (x_clear_dnd_action): New function.
+ (x_dnd_begin_drag_and_drop): Respect new variable.
+ (syms_of_xterm): New defvar `x-dnd-native-test-function'.
+ * src/xterm.h: Update prototypes.
+
+2022-06-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d6f080d3de ; * doc/man/etags.1: Bump man page date.
+
+2022-06-13 Po Lu <luangruo@yahoo.com>
+
+ Improve DND tooltip updating
+
+ * src/xterm.c (x_dnd_update_tooltip_now): Add missing part of
+ last change.
+ (x_monitors_changed_cb, handle_one_xevent): Only update if a
+ change in monitor configuration really happened.
+
+2022-06-12 Po Lu <luangruo@yahoo.com>
+
+ Keep tooltip position in sync with monitor changes
+
+ * src/xterm.c (x_dnd_update_tooltip_now): New function.
+ (x_monitors_changed_cb):
+ (handle_one_xevent): Call that function on monitor change.
+
+2022-06-12 Po Lu <luangruo@yahoo.com>
+
+ Fix special DND event coordinates
+
+ * src/xterm.c (x_dnd_note_self_drop): Set DND action to
+ XdndActionPrivate.
+ (x_dnd_begin_drag_and_drop): Don't return XdndPrivate specially
+ here.
+ (handle_one_xevent): Fix order of arguments to
+ x_dnd_note_self_drop.
+
+2022-06-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/icomplete.el: Consider a list in minibuffer-default (bug#55800)
+
+ * lisp/icomplete.el (icomplete--sorted-completions): Handle a string
value
+ in the first element of the list of default values in
minibuffer-default.
+
+2022-06-12 Eli Zaretskii <eliz@gnu.org>
+
+ Change the API of 'update_redisplay_ticks'
+
+ * src/xdisp.c (update_redisplay_ticks): Change the 2nd argument
+ to be 'struct window'; all callers changed.
+
+2022-06-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el (isearch-search-fun-in-text-property): Handle ^/$
specially.
+
+ When the regexp contains ^ or $ then use a temporary buffer to find
matches
+ at the beginning/end of the region with the given text property
(bug#14013).
+
+2022-06-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix a typo in a doc string.
+
+2022-06-12 Eli Zaretskii <eliz@gnu.org>
+
+ Initial implementation of "abort-redisplay" feature
+
+ * src/xdisp.c (update_redisplay_ticks): New function.
+ (init_iterator, set_iterator_to_next): Call
+ 'update_redisplay_ticks'.
+ (syms_of_xdisp) <max_redisplay_ticks>: New variable.
+ <list_of_error>: Remove 'void-variable': it is no longer needed,
+ since 'calc_pixel_width_or_height' can no longer signal a
+ void-variable error, and it gets in the way of aborting
+ redisplay via 'redisplay_window_error'.
+
+2022-06-12 Po Lu <luangruo@yahoo.com>
+
+ Fix encoding of multibyte ToolTalk filenames
+
+ * lisp/select.el (xselect-convert-to-dt-netfile): Encode file
+ name before computing its tooltalk name, since the indices work
+ on bytes.
+
+ * test/lisp/dnd-tests.el (dnd-tests-begin-file-drag): Add test.
+
+2022-06-12 Po Lu <luangruo@yahoo.com>
+
+ Fix handling of scroll bar clicks on Haiku
+
+ * src/haiku_support.cc (class EmacsView, BasicMouseDown)
+ (BasicMouseUp): Move MouseDown and MouseUp here. New parameter
+ `scroll_bar'.
+ (MouseDown, MouseUp): Call basic variants.
+
+ (class EmacsScrollBar): New field `parent'.
+ (BScrollBar_make_for_view): Rename to
+ `be_create_scroll_bar_for_view'.
+ * src/haiku_support.h (struct haiku_button_event): New field
+ `scroll_bar'.
+ * src/haikuterm.c (haiku_scroll_bar_from_widget): Handle NULL
+ widget.
+ (haiku_scroll_bar_create): Update calls.
+ (haiku_mouse_position): Fix scroll bar part.
+ (haiku_read_socket): Handle button events on scroll bars as
+ scroll bar click events.
+
+2022-06-12 Mattias Engdegård <mattiase@acm.org>
+
+ Use BASE_EQ when comparing with Qunbound
+
+ Qunbound is uninterned and can therefore never be EQ to any symbol
+ with position.
+
+ * src/buffer.c (Fbuffer_local_value, buffer_lisp_local_variables)
+ (buffer_local_variables_1):
+ * src/bytecode.c (exec_byte_code):
+ * src/comp.c (compile_function, Fcomp__compile_ctxt_to_file):
+ * src/composite.c (composition_gstring_cache_clear_font):
+ * src/data.c (Fboundp, Fsymbol_value, set_internal)
+ (Fdefault_boundp, Fdefault_value, Fmake_variable_buffer_local):
+ * src/emacs-module.c (module_global_reference_p):
+ * src/eval.c (Fdefault_toplevel_value, defvar)
+ (run_hook_with_args):
+ * src/fns.c (hash_put, Fmaphash):
+ * src/font.c (font_put_extra):
+ * src/frame.c (gui_set_frame_parameters)
+ (gui_frame_get_and_record_arg, gui_default_parameter)
+ (gui_figure_window_size):
+ * src/haikufns.c (get_geometry_from_preferences)
+ (haiku_create_frame, haiku_create_tip_frame):
+ * src/haikuterm.c (haiku_draw_text_decoration)
+ (haiku_default_font_parameter):
+ * src/json.c (lisp_to_json_nonscalar_1):
+ * src/keymap.c (access_keymap_1, access_keymap, current_minor_maps):
+ * src/lread.c (readevalloop, define_symbol):
+ * src/minibuf.c (read_minibuf, Ftry_completion):
+ (Fall_completions, Ftest_completion):
+ * src/pgtkfns.c (pgtk_default_font_parameter, Fx_create_frame)
+ (x_create_tip_frame):
+ * src/pgtkselect.c (Fpgtk_own_selection_internal):
+ * src/print.c (print):
+ * src/profiler.c (evict_lower_half, record_backtrace):
+ * src/terminal.c (create_terminal):
+ * src/textprop.c (set_properties):
+ * src/w32fns.c (my_create_window, w32_icon)
+ (w32_default_font_parameter, Fx_create_frame)
+ (w32_create_tip_frame):
+ * src/w32term.c (w32_draw_glyph_string):
+ * src/xdisp.c (handle_single_display_spec)
+ (cursor_row_fully_visible_p, calc_pixel_width_or_height):
+ * src/xfns.c (x_default_scroll_bar_color_parameter, x_icon_verify)
+ (x_icon, x_default_font_parameter, Fx_create_frame)
+ (x_create_tip_frame):
+ * src/xselect.c (x_handle_selection_request):
+ * src/xterm.c (x_draw_glyph_string, x_term_init):
+ Use BASE_EQ instead of EQ when comparing with Qunbound.
+
+2022-06-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make find-sibling-file-search non-private
+
+ * lisp/files.el (find-sibling-file-search): Rename to be non-private.
+ (find-sibling-file): Adjust call.
+
+2022-06-12 Yuan Fu <casouri@gmail.com>
+
+ Update docstring of eglot-events-buffer-size
+
+ * eglot.el (eglot-events-buffer-size): Mention that you need to
+ restart the connection for 'eglot-events-buffer-size' to take effect.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/974
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/776
+
+2022-06-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "C-x C-d" with wildcard arguments
+
+ * lisp/files.el (list-directory): Make sure 'default-directory' is
+ set to a valid value if the argument DIRNAME included wildcards.
+ (Bug#55877)
+
+2022-06-12 Po Lu <luangruo@yahoo.com>
+
+ Fix phantom drag-and-drop targets showing up in some programs
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop)
+ (x_dnd_begin_drag_and_drop): Delete XdndTypeList if it was set
+ after the DND operation completes. Some programs apparently
+ think its presence on the drag source means there are more than
+ 3 targets.
+
+2022-06-12 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (str, strz): Reject non-ASCII, non-`eight-bit' characters
+
+ * lisp/emacs-lisp/bindat.el (str) (strz): Signal an error if the user
+ attempts to pack a multibyte string containing characters other than
+ ASCII and `eight-bit' characters (bug#55897).
+ * doc/lispref/processes.texi (Bindat Types): Update documentation.
+ * test/lisp/emacs-lisp/bindat-tests.el (str) (strz): Add tests.
+
+2022-06-12 Po Lu <luangruo@yahoo.com>
+
+ Don't repetitively initialize type lists during DND
+
+ * src/xterm.c (x_dnd_send_enter): Only set XdndTypeList once.
+ (x_dnd_begin_drag_and_drop): Clear type list flag.
+
+2022-06-12 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ cbd2c87a5d ; Fix last change in whitespace.el.
+ 52ad2b53cb Fix doc strings in whitespace.el
+
+2022-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/find-func.el (find-function-advised-original):
Simplify
+
+2022-06-11 Yuan Fu <casouri@gmail.com>
+
+ * configure.ac (HAVE_TREE_SITTER): Not set TREE_SITTER_LIBS.
+
+2022-06-11 Yuan Fu <casouri@gmail.com>
+
+ Rename treesit-traverse-forward-depth-first
+
+ * lisp/treesit.el (treesit-traverse-forward): Rename to
+ 'treesit-traverse-forward'.
+ (treesit-traverse-forward, treesit-search-forward): Use
+ the new name.
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ Use cached monitor info during DND if available
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Use previously cached
+ monitor attributes if they exist.
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ * src/nsfns.m (ns_move_tooltip_to_mouse_location): Handle invisible
frames.
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ Don't rely on XdndAware on frames for dropping to work
+
+ * src/xterm.c (x_dnd_get_target_window): New parameter
+ WAS_FRAME. If toplevel is a frame, set it and clear proto and
+ motif.
+ (x_dnd_send_enter, x_dnd_send_position, x_dnd_send_leave)
+ (x_dnd_send_drop): Remove special-cased self dropping code.
+ (x_dnd_note_self_position, x_dnd_note_self_drop): New functions.
+
+ (x_dnd_begin_drag_and_drop, x_dnd_update_state):
+ (handle_one_xevent): Handle our own frames using those functions
+ instead.
+
+2022-06-11 Mattias Engdegård <mattiase@acm.org>
+
+ * src/fns.c (internal_equal): Use BASE_EQ where possible.
+
+2022-06-11 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Recognize processes as a CL type again
+
+ For discussion, see:
+ https://lists.gnu.org/r/emacs-devel/2022-06/msg00567.html
+
+ * lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies): Include process
+ as a type, to avoid cl-typep complaining about process objects.
+
+2022-06-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make new fileio test more reliable
+
+ * test/src/fileio-tests.el: Use a unibyte buffer to avoid length
+ confusion.
+
+2022-06-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Bump sh-imenu-generic-expression defcustom version
+
+ * lisp/progmodes/sh-script.el (sh-imenu-generic-expression): Bump
+ the :version since we changed the value.
+
+2022-06-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix loaddefs installation of packages with no autoloads
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Always
+ generate an output file if we have EXTRA-DATA. This fixes package
+ installation of packages with no ;;;###autoload forms.
+
+2022-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ fileio-tests.el (test-non-regular-insert): Fix thinko
+
+ * test/src/fileio-tests.el (fileio-tests--non-regular-insert): Rename
+ from `test-non-regular-insert` and make it into a test rather than
+ a broken function. Oh, and make it work while at it.
+
+2022-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Bindat: Document `sint`; add `le` arg to `uint`; deprecate `uintr`
+
+ * lisp/emacs-lisp/bindat.el (bindat--type) <uint>: Add `le` optional
arg.
+ (bindat--type) <uintr>: Delete method.
+ (uintr): Re-define as a bindat-macro instead.
+ (bindat-type): Update docstring accordingly.
+ (bindat--primitives): Update.
+ (sint): Simplify.
+
+ * doc/lispref/processes.texi (Bindat Types): Update `uint`, add `sint`,
+ and remove `uintr`.
+
+ * test/lisp/emacs-lisp/bindat-tests.el (data-bindat-spec): Use the new
+ `le` arg of `uint` instead of `uintr`.
+
+2022-06-11 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Improve Lepcha composition rules and rename its native name
+
+ * lisp/language/indian.el ("Lepcha"): Rename lepcha script
+ native name and improve composition rules. (Bug#55869)
+
+ * etc/HELLO: Rename Lepcha script native name.
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ Fix timestamp of special drop events
+
+ * src/xterm.c (x_dnd_send_drop): Set special event timestamp
+ to the timestamp of the drop instead of CurrentTime.
+
+2022-06-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow inserting parts of /dev/urandom with insert-file-contents
+
+ * doc/lispref/files.texi (Reading from Files): Document it.
+ * src/fileio.c (Finsert_file_contents): Allow specifying END for
+ special files (bug#18370).
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ Fix some drag-and-drop handling on Haiku
+
+ * lisp/term/haiku-win.el (haiku-drag-and-drop): Don't raise
+ frame for some types of drags.
+
+ * src/haikuselect.c (haiku_unwind_drag_message): Don't hide
+ tooltip here.
+ (Fhaiku_drag_message): Only clear grab and hide tooltip if the
+ drag was successful.
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ Fix initializers for Haiku scroll bars
+
+ * src/haiku_support.cc (class Emacs):
+ (class EmacsScrollBar): Fix initializers.
+
+2022-06-11 Visuwesh <visuweshm@gmail.com>
+
+ Support mksh-specific function names in imenu
+
+ * lisp/progmodes/sh-script.el (sh-imenu-generic-expression): Add
+ mksh-specific function names to imenu-generic-expression
+ (bug#55889).
+
+2022-06-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further tweaks to how remapped commands are described
+
+ * lisp/help.el (describe-map): Rework how remapped commands are
+ output to avoid repetitions.
+
+ They're now shown as:
+
+ C-x 4 C-o ido-display-buffer
+ (Remapped via <remap> <display-buffer>)
+ C-x 5 C-o ido-display-buffer-other-frame
+ (Remapped via <remap> <display-buffer-other-frame>)
+ C-x x i ido-insert-buffer
+ (Remapped via <remap> <insert-buffer>)
+
+2022-06-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix doc strings in whitespace.el
+
+ * lisp/whitespace.el (whitespace-style, whitespace-action):
+ Untabify the doc strings. (Bug#55904)
+
+2022-06-11 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Lepcha script (bug#55869)
+
+ * lisp/language/indian.el ("Lepcha"): New language environment.
+ Add composition rules for Lepcha. Add sample text and input method.
+ * lisp/language/misc-lang.el ("Kharoshthi"): Fix whitespace.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Lepcha.
+ * lisp/leim/quail/indian.el ("lepcha"): New input method.
+
+ * etc/HELLO: Add a Lepcha greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-06-11 Po Lu <luangruo@yahoo.com>
+
+ Fix queuing already-present selection requests
+
+ * src/xterm.c (x_defer_selection_requests): Move kbd_fetch_ptr
+ if possible and fix counter increment order.
+
+2022-06-11 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 0705705ebf Improve documentation of "etags -I"
+ 0ad8cd40ce Merge branch 'emacs-28' of git.savannah.gnu.org:/srv/git/e...
+ 22a832ad82 Mention the #f syntax from cl-prin1
+ 3fd0854378 Fix file name quoting in tramp-smb.el (do not merge)
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Handle allocation errors when interning large amounts of atoms
+
+ * src/xfns.c (Fx_begin_drag): Catch BadAlloc errors around
+ XInternAtoms.
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Prevent crash handling keyboard input from non-frame windows
+
+ * src/xterm.c (handle_one_xevent): Use `dpyinfo' to access xkb
+ desc. (bug#55890)
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Fix cancelling DND upon a regular X error
+
+ * src/xterm.c (x_connection_closed): The display isn't dead upon
+ a non-IO error, so don't avoid sending messages to clean stuff
+ up.
+
+2022-06-10 Dmitry Gutov <dgutov@yandex.ru>
+
+ elisp-completion-at-point: Replace last usage of 'read'
+
+ * lisp/progmodes/elisp-mode.el (elisp-completion-at-point):
+ Replace the last remaining usage of 'read' (bug#55491).
+
+2022-06-10 Juri Linkov <juri@linkov.net>
+
+ New function isearch-search-fun-in-text-property (bug#14013).
+
+ * lisp/dired-aux.el (dired-isearch-search-filenames): Move most of the
body
+ to the new function isearch-search-fun-in-text-property.
+
+ * lisp/isearch.el (isearch-search-fun-in-text-property):
+ New function refactored from dired-isearch-search-filenames.
+
+2022-06-10 Jim Porter <jporterbugs@gmail.com>
+
+ Don't use 'list' command in Eshell command forms
+
+ When executed like a command, 'list' looks for external programs named
+ 'list' first before falling back to the Lisp function of the same
+ name. This causes unexpected behavior, since the Lisp function is
+ what we want in these tests.
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/interp-cmd-indices)
+ (esh-var-test/quoted-interp-cmd-indices): Use 'listify' instead of
+ 'list'.
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Remove extra call to XTranslateCoordinates when performing "xterm" drop
+
+ * src/xterm.c (x_dnd_do_unsupported_drop): Signal error when
+ XdndSelection is lost, set subwindow, and simplify
+ XTranslateCoordinates loop.
+
+2022-06-10 Taiju HIGASHI <higashi@taiju.info>
+
+ Don't reduce vocabulary in ja-dic.el by default
+
+ * configure.ac: Add the "--with-small-ja-dic" configure option.
+ * leim/Makefile.in (${leimdir}/ja-dic/ja-dic.el): Change the build
+ method depending on whether or not the --with-small-ja-dic option
+ is specified.
+ * lisp/international/ja-dic-cnv.el (skkdic-convert-okuri-nasi): Add
+ the "no-reduction" optional argument. When it is specified, then
+ generate a Japanese dictionary without reduced vocabulary.
+ (skkdic-convert): Add the "no-reduction" optional argument.
+ (batch-skkdic-convert): Add the "--no-reduction" command line argument.
+
+2022-06-10 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (strz): Fix documentation for strz with pre-allocated string
+
+ * doc/lispref/processes.texi (Bindat Types): Document that a null
+ terminator is not written if `bindat-pack' is given a pre-allocated
+ string.
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Link find-sibling-file to ff-find-related-file in manual
+
+ * doc/emacs/files.texi (Visiting): Link to ff-find-related-file
+ documentation.
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix find-sibling-file doc string
+
+ * lisp/files.el (find-sibling-file): Remove incorrect statement
+ from doc string (bug#55879).
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make describe-prefix-bindings say when there are no matches
+
+ * lisp/help.el (describe-prefix-bindings): Say when there are no
+ bindings under a prefix (bug#55875), for instance in `C-c C-h' in
+ a buffer with no `C-c' commands.
+
+2022-06-10 Ignacio Casso <ignaciocasso@hotmail.com>
+
+ Fix issues with loading autoloaded defcustoms while bound
+
+ * doc/lispref/customize.texi (Variable Definitions)
+ (Variable Definitions): Update documentation.
+
+ * lisp/custom.el (custom-initialize-set)
+ (custom-initialize-reset): Update doc string.
+ (custom-initialize-changed): Use set-default-toplevel-value. This
+ fixes issues with (let ((custom-variable ...)) (autoload-function
...)).
+ (custom-set-default): Ditto.
+
+ * src/data.c (Fdefault_boundp): Update doc string.
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't put trailing optional nil values into `command-history'
+
+ * src/callint.c (fix_command): Don't put trailing optional nil
+ values into `command-history' (bug#45333).
+
+2022-06-10 Mattias Engdegård <mattiase@acm.org>
+
+ Fix macOS parallel bootstrap error (bug#55846)
+
+ * nextstep/Makefile.in (${ns_appdir}):
+ Change to a single-target rule to avoid the same actions being
+ executed in parallel.
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention the REQUIRE-MATCH extension in NEWS
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow specifying a wildcard argument to list-directory again
+
+ * lisp/files.el (list-directory): Allow specifying a wildcard
+ argument interactively again (bug#55877).
+
+2022-06-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow REQUIRE-MATCH to be a function
+
+ * doc/lispref/minibuf.texi (Minibuffer Completion): Document it.
+
+ * lisp/minibuffer.el (completion--complete-and-exit): Allow
+ REQUIRE-MATCH to be a function.
+ (read-file-name): Mention it.
+
+ * src/minibuf.c (Fcompleting_read): Mention it.
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Fix receiving drops from drop-only Motif programs
+
+ * lisp/x-dnd.el (x-dnd-xm-read-targets-table): Fix doc string.
+ (x-dnd-handle-motif): Recompute types and state on XmDROP_START
+ if no state already exists.
+
+2022-06-10 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of "etags -I"
+
+ * doc/man/etags.1:
+ * doc/emacs/maintaining.texi (Create Tags Table): Elaborate on the
+ importance of the '-I' option to 'etags'. (Bug#45246)
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Eliminate extra call to XTranslateCoordinates looking for drop target
+
+ * src/xterm.c (x_dnd_get_target_window): Translate coordinates
+ starting from the root window and avoid extra sync.
+
+2022-06-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 22a832ad82 Mention the #f syntax from cl-prin1
+
+2022-06-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d02c94090c Fix error reporting in process-async-https-with-delay
+ 9a4862a973 * doc/misc/org.org: Remove spurious markup.
+ 768ed1476a Make Tramp version check more robust
+ 7f778c6943 Fix debugging with GDB when a breakpoint has multiple loca...
+ 25e53e9391 ; * lisp/files.el (file-expand-wildcards): Doc fix.
+ 3ea9357d10 Update documentation of 'aset' and 'store-substring'
+
+ # Conflicts:
+ # lisp/files.el
+
+2022-06-10 Po Lu <luangruo@yahoo.com>
+
+ Add tests for x-dnd Motif value parsing logic
+
+ * test/lisp/x-dnd-tests.el: New file.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Don't rely on TARGETS to read selection targets for Motif DND
+
+ * lisp/x-dnd.el (x-dnd-types-alist):
+ (x-dnd-known-types): Fix formatting.
+ (x-dnd-xm-unpack-targets-table-header):
+ (x-dnd-xm-read-single-rec):
+ (x-dnd-xm-read-targets-table):
+ (x-dnd-xm-read-targets): New functions.
+ (x-dnd-handle-motif): Read targets from the targets table
+ of the drag window instead of the selection's TARGET target.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes in x_tooltip_window_to_frame on GTK
+
+ * src/xterm.c (x_tooltip_window_to_frame): Ignore all non-X
+ frames instead of trying to get their tooltip window.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuselect.c (haiku_note_drag_motion): Only handle visible tip_f.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Fix DND tooltip handling with tooltip-reuse-hidden-frame
+
+ * src/xterm.c (x_dnd_update_tooltip_position): Don't move window
+ if tip_f is not visible.
+
+2022-06-09 Eli Zaretskii <eliz@gnu.org>
+
+ Update the 'etags' test suite
+
+ * ETAGS_good_1:
+ * ETAGS_good_2:
+ * ETAGS_good_3:
+ * ETAGS_good_4:
+ * ETAGS_good_5:
+ * ETAGS_good_6: Adapt to recent changes in test sources.
+
+ * lib-src/etags.c (C_entries): Add commentary for resetting
+ bracelev. (Bug#45246)
+
+2022-06-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust browse-url test after previous browse-url change
+
+2022-06-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make browse-url-encode-url encode even less
+
+ * lisp/net/browse-url.el (browse-url-encode-url): Don't encode
+ dollar signs, because that's out of spec (bug#55873).
+
+2022-06-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve `C-h b' output for remapped commands.
+
+ * lisp/help.el (describe-map): Include the bindings of the
+ remapped commands (bug#14084).
+
+ This will result in output like this, instead of just listing the
+ remapped commands:
+
+ <remap> <display-buffer> ido-display-buffer
+ C-x 4 C-o display-buffer
+ <remap> <display-buffer-other-frame> ido-display-buffer-other-frame
+ C-x 5 C-o display-buffer-other-frame
+ <remap> <insert-buffer> ido-insert-buffer
+ C-x x i insert-buffer
+ <remap> <kill-buffer> ido-kill-buffer
+ C-x k kill-buffer
+ <remap> <switch-to-buffer> ido-switch-buffer
+ C-x b switch-to-buffer
+ <remap> <switch-to-buffer-other-frame> ido-switch-buffer-other-frame
+ C-x 5 b switch-to-buffer-other-frame
+ <remap> <switch-to-buffer-other-window> ido-switch-buffer-other-window
+ C-x 4 b switch-to-buffer-other-window
+
+2022-06-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ New setting for mouse-drag-copy-region to not put "" onto kill ring
+
+ * doc/emacs/frames.texi (Mouse Commands): Document it.
+ * lisp/mouse.el (mouse-drag-copy-region): Add value (bug#17211)
+ for not putting "" strings onto the kill ring.
+ (mouse-set-region, mouse-save-then-kill): Use the new value.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Fix recalculation of `icon-title-format' after a frame is iconified
+
+ Previously it would only happen upon the next mode line
+ redisplay, meaning that just pressing C-z would not update the
+ implicit title, since C-z doesn't cause a redisplay.
+
+ * src/dispextern.h: Update prototypes.
+ * src/frame.h (SET_FRAME_ICONIFIED): De-slugify. Call
+ `gui_consider_frame_title', since `icon-title-format' might be
+ different from the current frame title.
+ * src/xdisp.c (gui_consider_frame_title): Export (also in
+ dispextern.h). (bug#55850)
+
+2022-06-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention the #f syntax from cl-prin1
+
+ * doc/lispref/objects.texi (Special Read Syntax): Mention #f,
+ which is in cl-prin1 output (bug#55853).
+
+2022-06-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `line-number-at-pos' work more like in earlier Emacs versions
+
+ * src/fns.c (Fline_number_at_pos): Allow calling with position
+ outside the region if called with ABSOLUTE non-nil (bug#55847).
+ This isn't announced in the doc string, but makes function
+ compatible with the version in earlier Emacs versions.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Never return tooltip frames from ns-begin-drag
+
+ * src/nsterm.m ([EmacsWindow draggedImage:movedTo:]):
+ ([EmacsWindow beginDrag:forPasteboard...]): Don't return frame
+ if tooltip.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Handle monitor attribute updates during drag-and-drop
+
+ * src/xterm.c (x_monitors_changed_cb):
+ (handle_one_xevent): Set x_dnd_monitors during monitor changes.
+
+2022-06-09 Stefan Baums <baums@stefanbaums.com>
+
+ Add support for the Kharoshthi script
+
+ * etc/NEWS: Announce the new language environment and script.
+ * etc/HELLO: Add Kharoshthi greeting.
+
+ * lisp/leim/quail/misc-lang.el ("kharoshthi"): New input method.
+ * lisp/language/misc-lang.el ("Kharoshthi"): New language
+ environment. Set up composition rules for Kharoshthi.
+ (Bug#55539)
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Satisfy GCC warnings on the GNUstep build
+
+ * src/nsfns.m (ns_move_tooltip_to_mouse_location):
+ * src/nsterm.m ([EmacsWindow draggedImage:movedTo:]): Pacify GCC.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Disable tooltip timeouts for drag-and-drop tooltips
+
+ * lisp/mouse.el (mouse-drag-and-drop-region-display-tooltip):
+ Don't time out the created tooltip.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Implement `follow-tooltip' on NS as well
+
+ * lisp/term/ns-win.el (x-begin-drag): Pass `follow-tooltip'.
+ * src/nsfns.m (Fx_show_tip): Record last dx and dy.
+ (syms_of_nsfns): New staticpros.
+ * src/nsmenu.m ([EmacsTooltip moveTo:]): New method.
+
+ * src/nsselect.m (Fns_begin_drag): New parameter
+ `follow-tooltip'.
+
+ * src/nsterm.h (@interface EmacsWindow):
+ (EmacsTooltip): Update prototypes.
+ * src/nsterm.m ([EmacsWindow draggedImage:movedTo:]): Move any
+ tooltip to the right location.
+ ([EmacsWindow beginDrag:forPasteboard...]): New parameter
+ `followTooltip'.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Note caveats of `follow-tooltip' with system tooltips
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Turn off system
+ tooltips inside.
+ * src/xfns.c (Fx_begin_drag): Say that follow-tooltip doesn't
+ work with system tooltips.
+
+2022-06-09 Richard Hansen <rhansen@rhansen.org>
+
+ bindat: Improve str, strz documentation
+
+ * doc/lispref/processes.texi (Bindat Types): Expand the documentation
+ for the `str' and `strz' types to clarify expectations and explain
+ edge case behavior.
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Implement `follow-tooltip' for DND on Haiku
+
+ * lisp/term/haiku-win.el (x-begin-drag): Implement
+ `follow-tooltip'.
+ * src/haikufns.c (Fx_show_tip): Record last dx and dy.
+ (syms_of_haikufns): New staticpros.
+
+ * src/haikuselect.c (haiku_unwind_drag_message): Clear new flag.
+ (Fhaiku_drag_message): New argument `follow-tooltip'. Set new
+ flag.
+ (haiku_dnd_compute_tip_xy): New function.
+ (haiku_note_drag_motion): Move tooltip if flag is true.
+
+ * src/haikuterm.c (haiku_read_socket): Don't generate help event
+ if mouse moves onto a tooltip during DND.
+ * src/haikuterm.h: Update prototypes.
+
+2022-06-09 Jim Porter <jporterbugs@gmail.com>
+
+ Account for remapped faces in $COLUMNS and $LINES in Eshell
+
+ * src/window.h (window_body_unit): New enum...
+ (window_body_width): ... use it.
+
+ * src/window.c (window_body_unit_from_symbol): New function.
+ (window_body_height, window_body_width): Make PIXELWISE a
+ 'window_body_unit'.
+ (window-body-height, window-body-width): Accept 'remap' for PIXELWISE.
+ (window-lines-pixel-dimensions, window_change_record_windows)
+ (run_window_change_functions, resize_frame_windows, grow_mini_window)
+ (shrink_mini_window, scroll-left, scroll-right): Update calls to
+ 'window_body_height' and 'window_body_width'.
+
+ * src/indent.c (compute_motion): Update calls to 'window_body_width'.
+
+ * lisp/eshell/em-ls.el (eshell-ls-find-column-widths)
+ (eshell-ls-find-column-lengths): Use 'window-body-width'.
+
+ * lisp/eshell/esh-var.el (eshell-variable-aliases-list): Use
+ 'window-body-width' and 'window-body-height'.
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/window-height)
+ (esh-var-test/window-width): Rename to...
+ (esh-var-test/lines-var, esh-var-test/columns-var): ... and update
+ expected value.
+
+ * doc/lispref/windows.texi (Window Sizes): Document new behavior of
+ PIXELWISE argument for 'window-body-width' and 'window-body-height'.
+
+ * etc/NEWS: Announce this change (bug#55696).
+
+2022-06-09 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "* src/comp.c (Fcomp_el_to_eln_filename): Update error message."
+
+ This reverts commit ec987e3e1786d06ffd306e5717b4d7fd118f05ac.
+ This change was installed on the emacs-28 branch instead.
+
+2022-06-09 Juri Linkov <juri@linkov.net>
+
+ Allow C-x 4 4, C-x 5 5, C-x t t to handle commands that use
switch-to-buffer
+
+ * lisp/window.el (display-buffer-override-next-command):
+ Temporarily set switch-to-buffer-obey-display-actions to t,
+ and revert back to the original value afterwards.
+ This allows other-window-prefix, other-frame-prefix, other-tab-prefix,
+ windmove-display-in-direction to override the default behavior of
+ commands that use switch-to-buffer.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-06/msg00483.html
+
+2022-06-09 Jeff Walsh <fejfighter@gmail.com>
+
+ * src/comp.c (Fcomp_el_to_eln_filename): Update error message.
+
+2022-06-09 Jeff Walsh <fejfighter@gmail.com>
+
+ Update error message to reflect variable rename
+
+ * src/comp.c (Fcomp_el_to_eln_filename): Update error message.
(Bug#55861)
+
+2022-06-09 Po Lu <luangruo@yahoo.com>
+
+ Also show mouse DND tooltip contents during interprogram drag-and-drop
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new
+ parameter to `x-begin-drag'.
+ * lisp/mouse.el (mouse-drag-and-drop-region): Don't hide tooltip
+ when initiating interprogram drag-and-drop.
+ * lisp/term/haiku-win.el (x-begin-drag):
+ * lisp/term/ns-win.el (x-begin-drag): Add stubs for new
+ parameter.
+ * src/xfns.c (Fx_begin_drag): New parameter `follow-tooltip'.
+ (Fx_show_tip, syms_of_xfns): Add records of the last dx and dy
+ given to `x-show-tip'.
+ * src/xterm.c (x_clear_dnd_monitors): New function.
+ (x_dnd_begin_drag_and_drop): Save monitor attributes list if
+ appropriate.
+ (x_dnd_compute_tip_xy, x_dnd_update_tooltip_position): New
+ function.
+ (x_dnd_update_state, handle_one_xevent): Update tooltip position
+ during DND mouse movement.
+ (syms_of_xterm): Update staticpros.
+ * src/xterm.h: Update prototypes.
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Fix dnd-tests on builds without X
+
+ * test/lisp/dnd-tests.el (x-get-selection-internal): New
+ function declaration.
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Ignore tooltip frames when looking for DND target
+
+ * src/xterm.c (x_dnd_get_target_window): When not using client
+ lists, look beneath any tooltip frame.
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Make use of faster atom intern functions in xselect.c
+
+ * src/xselect.c (symbol_to_x_atom):
+ (x_atom_to_symbol): Use x_get_atom_name and
+ x_intern_cached_atom.
+
+2022-06-08 Ken Brown <kbrown@cornell.edu>
+
+ Fix error reporting in process-async-https-with-delay
+
+ * test/src/process-tests.el (process-async-https-with-delay): Use
+ 'plist-get' instead of 'assq' in testing for a connection error.
+ The 'status' variable is a plist, not an alist. (Bug#55849)
+
+2022-06-08 Juri Linkov <juri@linkov.net>
+
+ * lisp/rect.el: Return correct positions of region-beginning/end
(bug#55234)
+
+ (rectangle-mark-mode): Add advices for region-beginning and region-end.
+ (rectangle--region-beginning, rectangle--region-end): New advices.
+ (rectangle--extract-region): Let-bind rectangle-mark-mode around
+ region-beginning and region-end to use the original functions.
+
+2022-06-08 Robert Pluim <rpluim@gmail.com>
+
+ Add more super and subscript characters to latin input methods
+
+ * lisp/leim/quail/latin-post.el ("latin-postfix", "latin-prefix"): Add
+ mssing super and subscript characters. (Bug#55722)
+
+2022-06-08 Robert Pluim <rpluim@gmail.com>
+
+ Add fractions to latin-post input method
+
+ * lisp/leim/quail/latin-post.el ("latin-postfix"): Add fractions.
+
+2022-06-08 Robert Pluim <rpluim@gmail.com>
+
+ Add more ways to enter trade mark and registered sign
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Add sequence
+ for TRADE MARK.
+ * lisp/leim/quail/latin-post.el ("latin-postfix"): Add REGISTERED SIGN
+ and TRADE MARK.
+ * lisp/leim/quail/latin-pre.el ("latin-prefix"): Add TRADE MARK.
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Allow running some DND tests interactively
+
+ * src/xselect.c (x_get_local_selection): Respect new variable.
+ (syms_of_xselect): New variable
+ `x-treat-local-requests-remotely'.
+
+ * test/lisp/dnd-tests.el (x-begin-drag, gui-set-selection):
+ Don't redefine these functions under X.
+ (dnd-tests-verify-selection-data): Use
+ `x-get-selection-internal' under X.
+ (dnd-tests-extract-selection-data): New function.
+ (dnd-tests-begin-text-drag): Update accordingly.
+ (dnd-tests-begin-file-drag, dnd-tests-begin-drag-files):
+ Temporarily skip these tests under X.
+
+2022-06-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Give ,@ a prefix syntax in elisp-mode"
+
+ This reverts commit d003848b5e3ad2dfbe84cc62b99776fdc6734325.
+
+ This leads to hangs in edebug-tests.
+
+2022-06-08 Jim Porter <jporterbugs@gmail.com>
+
+ Don't split Eshell expansions by line when using split-subscript
operator
+
+ * lisp/eshell/esh-var.el (eshell-apply-indices): Use
+ 'eshell-convert-to-number' instead of 'eshell-convert'.
+
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/interp-convert-var-split-indices): Expand test
+ (bug#55838).
+
+2022-06-08 Nicholas Vollmer <iarchivedmywholelife@gmail.com>
+
+ * doc/man/emacs.1.in: Add --init-directory.
+
+ * doc/man/emacs.1.in: Document --init-directory (bug#55839).
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Simplify XDND toplevel freeing code
+
+ * src/xterm.c (x_free_dnd_toplevels): New function.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop): Record
+ an unwind function to free DND toplevels instead of doing that
+ manually everywhere.
+
+2022-06-08 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix last-modified meaning in bookmark.el
+
+ * lisp/bookmark.el (bookmark-update-last-modified): New function
+ to update the last-modified field.
+ (bookmark-send-edited-annotation, bookmark-relocate)
+ (bookmark-rename): Use `bookmark-update-last-modified' in
+ annotations editing, relocation and renaming.
+
+2022-06-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ icomplete-in-buffer doc fix
+
+ * lisp/icomplete.el (icomplete-in-buffer): dabbrev now uses
+ icomplete-in-buffer (bug#45764).
+
+2022-06-08 Stefan Kangas <stefan@marxist.se>
+
+ * doc/misc/org.org: Remove spurious markup.
+
+2022-06-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Make Tramp version check more robust
+
+ * lisp/net/trampver.el (tramp-repository-branch)
+ (tramp-repository-version): Check for "git" executable.
+
+2022-06-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Factor out test configuration for remote files
+
+ * lisp/emacs-lisp/ert-x.el (tramp-methods)
+ (tramp-default-host-alist): Declare.
+ (ert-remote-temporary-file-directory): New defconst.
+
+ * test/README: Mention dnd-tests.el.
+
+ * test/lisp/autorevert-tests.el
+ (auto-revert-test-remote-temporary-file-directory): Remove.
+ Replace all uses by `ert-remote-temporary-file-directory'.
+
+ * test/lisp/dnd-tests.el (ert-x): Require.
+ (dnd-tests-temporary-file-directory): Remove. Replace all uses by
+ `ert-remote-temporary-file-directory'.
+
+ * test/lisp/filenotify-tests.el
+ (file-notify-test-remote-temporary-file-directory): Remove.
+ Replace all uses by `ert-remote-temporary-file-directory'.
+
+ * test/lisp/shadowfile-tests.el (ert-x): Require.
+ (shadow-test-remote-temporary-file-directory): Remove. Replace
+ all uses by `ert-remote-temporary-file-directory'.
+
+ * test/lisp/net/tramp-tests.el: Don't require ert.
+ (ert-remote-temporary-file-directory): Define if it doesn't exist.
+ (tramp-test-temporary-file-directory): Remove. Replace all uses
+ by `ert-remote-temporary-file-directory'.
+
+2022-06-08 Mattias Engdegård <mattiase@acm.org>
+
+ Preserve doc string in `byte-compile` (bug#55830)
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--reify-function):
+ Don't transpose doc string and interactive spec, which must come
+ in this order.
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (bytecomp-function-attributes): New test.
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Make responding to selection requests work inside popups
+
+ * src/xfns.c (Fx_file_dialog):
+ * src/xmenu.c (x_menu_wait_for_event, create_and_show_popup_menu)
+ (create_and_show_dialog, x_menu_show): Defer selection requests.
+ * src/xselect.c (x_get_foreign_selection)
+ (x_handle_selection_notify): Add some more info to selection
+ trace.
+
+ * src/xterm.c (x_defer_selection_requests): Make non-static.
+ (x_release_selection_requests_and_flush): New function.
+ (x_dnd_begin_drag_and_drop): Use DEFER_SELECTIONS instead.
+ (x_wait_for_cell_change): Fix initial value of rc for pushed
+ back events.
+ (handle_one_xevent): Allow GTK to respond to selections in its
+ windows too.
+
+ * src/xterm.h (DEFER_SELECTIONS): New slug of code.
+
+2022-06-08 Po Lu <luangruo@yahoo.com>
+
+ Fix quitting in one go out of `mouse-drag-and-drop-region'
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Make sure
+ handle_interrupt is called inside the nested event loop upon a
+ quit event.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Fix crash with outdated selection requests
+
+ * src/xselect.c (x_handle_selection_request): Don't store into
+ stack if it wasn't previously pushed.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Improve drag-and-drop tests
+
+ * lisp/dnd.el (dnd-begin-file-drag, dnd-begin-drag-files): Fix
+ type of `x-xdnd-username'.
+ * lisp/select.el (selection-converter-alist): Fix declaration of
+ _DT_NETFILE converter.
+
+ * test/lisp/dnd-tests.el (dnd-tests-verify-selection-data):
+ Handle "compound" selection converters.
+ (dnd-tests-parse-tt-netfile): New function.
+ (dnd-tests-begin-file-drag, dnd-tests-begin-drag-files): Verify
+ validity of file selection data.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ More fixes to mouse event reporting during drag-and-drop
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Don't reset
+ dpyinfo->grabbed when quitting.
+ (handle_one_xevent): Keep track of dpyinfo->grabbed as well
+ inside the drag-and-drop event loop.
+
+2022-06-07 Dmitry Gutov <dgutov@yandex.ru>
+
+ pcomplete-parse-arguments: Fix last change
+
+ * lisp/pcomplete.el (pcomplete-parse-arguments):
+ Throw the previous value of 'pcomplete-stub' (a list) rather than
+ the newly constructed one (bug#50470).
+
+2022-06-07 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/vc1-xtra.texi (Customizing VC): Remove deprecated Mtn.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Give ,@ a prefix syntax in elisp-mode
+
+ * lisp/progmodes/elisp-mode.el (elisp-mode-syntax-propertize):
+ Give ,@ a prefix syntax so that we can properly identify symbols
+ that follow it, i.e., ,@foo (bug#44418).
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Demote extended attribute errors in basic-save-buffer-2
+
+ * lisp/files.el (basic-save-buffer-2): Give demoted errors when
+ reading extended attributes that fail (bug#43723).
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+ This is the first check-in after the loaddefs-gen.el rewrite.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove Mtn from vc-handled-backends
+
+ * lisp/vc/vc-hooks.el (vc-handled-backends): Remove the deprecate
+ vc-mtn backend.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix loaddefs-generate--rubric recorded name
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric): Fix
+ the name that's recorded in the file -- this is only used by
+ loaddefs-gen now, I think.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make artist-mode work in zoomed buffers
+
+ * lisp/textmodes/artist.el (artist-mouse-draw-continously):
+ (artist-mouse-draw-continously):
+ (artist-mouse-draw-poly):
+ (artist-mouse-draw-1point):
+ (artist-mouse-draw-2points):
+ (artist-mouse-draw-2points): Work better when the window is zoomed
+ (bug#46035).
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow posn-col-row to return data on a per-window basis
+
+ * doc/lispref/commands.texi (Accessing Mouse): Document it.
+ * lisp/subr.el (posn-col-row): Extend to use window data.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow hooks to alter the process in prolog-ensure-process
+
+ * lisp/progmodes/prolog.el (prolog-ensure-process): Start the mode
+ after starting the process, so that the mode hook can talk to the
+ process (bug#46003).
+
+2022-06-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ find-func.el: Fix bug#41104
+
+ * lisp/emacs-lisp/find-func.el (find-function-advised-original): Look
+ at the actual function definition rather than
+ `advice--symbol-function` which sometimes returns only the advice.
+
+ * test/lisp/emacs-lisp/find-func-tests.el
+ (find-func-tests--find-library-verbose): Add test.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Add selection stuff to DND tests
+
+ * test/lisp/dnd-tests.el (dnd-tests-selection-table): New
+ defvar.
+ (gui-set-selection): Actually implement in a way that validates
+ the local value and stores it for future use.
+ (dnd-tests-verify-selection-data): New function.
+ (dnd-tests-begin-text-drag): Add tests for the contents of
+ various selections.
+
+2022-06-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix debugging with GDB when a breakpoint has multiple locations
+
+ * lisp/progmodes/gdb-mi.el (gdb-breakpoints--add-breakpoint-row):
+ New function, extracted from 'gdb-breakpoints-list-handler-custom'.
+ Don't print "in <unknown>" for header-rows of breakpoints with
+ multiple locations that don't have a function name attached.
+ (gdb-breakpoints-list-handler-custom): Add to the breakpoint table
+ also any locations in multiple-location breakpoints, which are
+ supported since GDB 6.8.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Fix coding style of some Haiku files
+
+ * src/haiku_support.cc: (FrameResized):
+ (class EmacsView, AfterResize): Fix coding and initializer
+ style.
+
+ * src/haiku_support.h (struct haiku_resize_event): Rename
+ confusingly named fields.
+ * src/haikuterm.c (haiku_read_socket): Update accordingly.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify mode line for vc-print-root-log
+
+ * lisp/vc/vc.el (vc-print-root-log): Don't display "from <file>"
+ (bug#45007).
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Fix more bugs with DND selection handling
+
+ * src/xterm.c (x_defer_selection_requests)
+ (x_release_selection_requests): New functions.
+ (x_dnd_begin_drag_and_drop): Use those functions to defer
+ selections instead. Fix error signalled when ownership of
+ XdndSelection is lost.
+ (handle_one_xevent): Likewise.
+
+2022-06-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify highlight-changes-rotate-faces doc string
+
+ * lisp/hilit-chg.el (highlight-changes-rotate-faces): Doc string
+ clarification (bug#44150).
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Remove mentions of GNOME MediaKeys from dbus documentation examples
+
+ * doc/misc/dbus.texi (Properties and Annotations):
+ * lisp/net/dbus.el (dbus-get-all-managed-objects): Remove
+ mentions of obsolete GNOME APIs from example text.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Improve compatibility with some clients of the Motif drop protocol
+
+ * lisp/select.el (x-dnd-targets-list): New defvar.
+ (xselect-convert-to-targets): Convert XdndSelection based on the
+ DND targets list.
+ * src/xfns.c (Fx_begin_drag): Pass new argument.
+ * src/xselect.c (struct x_selection_request): New struct.
+ (x_push_current_selection_request):
+ (x_pop_current_selection_request): New functions.
+ (x_selection_request_lisp_error, x_reply_selection_request)
+ (x_handle_selection_request, x_convert_selection)
+ (syms_of_xselect_for_pdumper): Correctly handle recursive
+ requests for MULTIPLE by maintaining a stack of selection
+ requests, converted selections, and other data.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): New argument
+ `selection_target_list'. Bind it to the DND targets list.
+ (syms_of_xterm): New defvar and associated defsym.
+ * src/xterm.h: Update prototypes.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Add new drag-and-drop test
+
+ * test/lisp/dnd-tests.el (dnd-tests-get-local-file-uri): New
+ test.
+
+2022-06-07 Po Lu <luangruo@yahoo.com>
+
+ Fix leak of event data on GTK+ 2.x
+
+ * src/xterm.c (handle_one_xevent): Fix goto XI_OTHER for
+ valuator motion events generated on scroll bars.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Update Haiku drag-and-drop code
+
+ * lisp/term/haiku-win.el (haiku-drag-and-drop): Don't allow
+ dropping on places other than the text area (it doesn't work).
+ Also respect mouse-yank-at-point.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Don't allow dropping on invalid drop sites
+
+ * lisp/x-dnd.el (x-dnd-drop-data): If dropping on something
+ other than the text area, don't set point.
+ (x-dnd-handle-xdnd, x-dnd-handle-motif): Don't pretend dropping
+ on the mode line is ok.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Don't display mouse face during mouse drag-and-drop
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Don't display
+ mouse face, since it leads to a lot of flicker.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes with very large Motif targets tables
+
+ * src/xterm.c (xm_setup_dnd_targets): Catch errors around
+ xm_write_targets_table lest we get a BadAlloc error.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Fix two crashes when a display connection is lost
+
+ This fixes errors caused by invalid error traps being left on
+ the error handler stack if an IO error causes a non-local exit
+ out of the protected code, and another crash caused by
+ delete_frame trying to read async input.
+
+ * src/eval.c (unwind_to_catch, push_handler_nosignal): Save and
+ restore the X error handler stack.
+ * src/lisp.h (struct handler): [HAVE_X_WINDOWS]: New field
+ `x_error_handler_depth'.
+
+ * src/xterm.c (struct x_error_message_stack): Make string a
+ regular string.
+ (x_unwind_errors_to): New function.
+ (x_error_catcher, x_catch_errors_with_handler)
+ (x_uncatch_errors_after_check, x_uncatch_errors): Update the
+ stack depth.
+ (x_check_errors): Stop manually unwinding since unwind_to_catch
+ now does that for us.
+ (x_had_errors_p, x_clear_errors): Update for new type of
+ `string'.
+ (x_connection_closed): Block input between just before
+ delete_frame to when the terminal is unlinked.
+
+ * src/xterm.h: Update prototypes.
+
+2022-06-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix execute-extended-command help text for remapped commands
+
+ * lisp/simple.el (execute-extended-command): Don't provide
+ misleading help text for remapped commands (bug#23543).
+
+2022-06-06 Stephen Berman <stephen.berman@gmx.net>
+
+ Allow using xref buttons in non-*Help* buffers
+
+ * lisp/help-mode.el (help-buffer): Allow using the xref buttons in
+ non-*Help* buffers (bug#8147) (but display the result in a *Help*
+ buffer).
+
+2022-06-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make find-file-noselect not pick buffers with broken symlinks
+
+ * lisp/files.el (find-buffer-visiting): Improve doc string.
+ (find-file-noselect): Don't pick buffers with broken symlinks,
+ because that's too confusing (bug#41414).
+
+2022-06-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve scheme-mode syntax-rules indentation
+
+ * lisp/progmodes/scheme.el (syntax-rules): Indent syntax-rules
+ with a parameter better (bug#40869).
+
+2022-06-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve find-sibling-file error reporting
+
+ * lisp/files.el (find-sibling-file): Improve error reporting.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Update comments in X error handling code
+
+ * src/xterm.c (struct x_error_message_stack, x_error_message)
+ (x_error_catcher, x_catch_errors, x_had_errors_p)
+ (x_clear_errors): Long-overdue comment update. Describe the
+ fields of the error message stack, and the fact that
+ `x_error_message' is a stack, not a pointer to a string (which
+ has been true since 2006). Also describe the updated conditions
+ used to find an applicable error handler and to call
+ x_uncatch_errors_after_check.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Add drag-and-drop API tests
+
+ * test/lisp/dnd-tests.el: New file.
+ (dnd-tests-begin-text-drag):
+ (dnd-tests-begin-file-drag):
+ (dnd-tests-begin-drag-files): New tests.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of remote files during drag-and-drop
+
+ * lisp/dnd.el (dnd-begin-drag-files): Don't fail if one remote
+ file couldn't be downloaded.
+
+2022-06-06 Mattias Engdegård <mattiase@acm.org>
+
+ Test warning suppressions with lexical binding
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (test-byte-comp-compile-and-load): Add lexical cookie to file being
+ compiled as part of the test.
+ (bytecomp-test--with-suppressed-warnings): Comment out the test
+ for suppressing warnings when attempting to let-bind `nil`,
+ as that (1) doesn't work and (2) is a silly thing to do anyway.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Fix several more issues with running Lisp during drag-and-drop
+
+ * src/xterm.c (handle_one_xevent): Fix _NET_WM_PING cycle again
+ and set mouse_moved flags during drag-and-drop so reading mouse
+ events from Lisp continues to work.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Signal an error XdndSelection was lost during drag-and-drop
+
+ * src/xselect.c (x_handle_selection_clear): Signal an error if
+ ownership of XdndSelection was lost during drag-and-drop.
+
+2022-06-06 Po Lu <luangruo@yahoo.com>
+
+ Make mouse input work properly inside the debugger during DND
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Set
+ `x_dnd_recursion_depth'.
+ (handle_one_xevent): If the recursive edit level is higher than
+ when DND started, handle mouse events normally.
+
+2022-06-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-typep: Emit warning when using a type not known to be a type
+
+ `cl-typep` has used a heuristic that if there's a `<foo>-p` function,
+ then <foo> can be used as a type. This made sense in the past where
+ most types were not officially declared to be (cl-)types, but nowadays
+ this just encourages abuses such as using `cl-typecase` with
+ "types" like `fbound`. It's also a problem for EIEIO objects, where
+ for historical reasons `<foo>-p` tests if the object is of type
+ exactly `<foo>` whereas (cl-typep OBJ <foo>) should instead test
+ if OBJ is a *subtype* of `<foo>`.
+
+ So we change `cl-typep` to emit a warning whenever this "-p" heuristic
+ is used, to discourage abuses, encourage the use of explicit
+ `cl-deftype` declarations, and try and detect some misuses of
+ `<foo>-p` for EIEIO objects.
+
+ * lisp/emacs-lisp/eieio.el (defclass): Define as type not only at
+ run-time but also for the current compilation unit.
+
+ * lisp/emacs-lisp/eieio-core.el (class, eieio-object): Define as types.
+
+ * lisp/emacs-lisp/cl-preloaded.el (cl-struct-define): Don't abuse the
+ "-p" heuristic.
+
+ * lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies):
+ Add entries for frames, windows, markers, and overlays.
+ (cl-typep): Emit a warning when using a predicate that is not known to
+ correspond to a type.
+
+ * lisp/files.el (file-relative-name): Fix error that can trigger if
+ there's an(other) error between loading `files.el` and loading
+ `minibuffer.el`.
+
+2022-06-05 Po Lu <luangruo@yahoo.com>
+
+ Rework X selections to make it safe to run the debugger inside
converters
+
+ * src/keyboard.c (prev_kbd_event): Delete function.
+ (readable_events): Return 1 if
+ x_detect_pending_selection_requests returns true.
+ (kbd_buffer_unget_event): Also delete function, since nested
+ selection requests are really handled correctly.
+ (kbd_buffer_get_event): Handle events from the special X
+ deferred selection queue as well.
+
+ * src/keyboard.h: Update prototypes.
+
+ * src/xselect.c (struct selection_event_queue)
+ (selection_input_event_equal, x_queue_event)
+ (x_start_queuing_selection_requests)
+ (x_stop_queuing_selection_requests): Delete structs, since they
+ are no longer required.
+ (x_handle_selection_request, x_handle_selection_event): Allow
+ nested selection events.
+
+ * src/xterm.c (struct x_selection_request_event): New struct.
+ (x_handle_pending_selection_requests_1)
+ (x_handle_pending_selection_requests): Handle all events in the
+ new selection event queue.
+ (x_push_selection_request, x_detect_pending_selection_requests):
+ New functions.
+ (x_dnd_begin_drag_and_drop): Drain the selection queue here as
+ well.
+ (handle_one_xevent): When inside a nested event loop, just push
+ selections to that queue.
+ (XTread_socket): Allow reading X events if x_dnd_unwind_flag is
+ true, even though DND is in progress.
+ (x_delete_display): Delete pending selection events for the
+ display that is going away.
+
+ * src/xterm.h: Update prototypes.
+
+2022-06-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ pcomplete.el: Fix part of bug#50470
+
+ Try and handle the case where `pcomplete-parse-arguments-function`
+ directly returns a list of completions.
+
+ * lisp/pcomplete.el (pcomplete-parse-arguments): Don't modify the
+ buffer if we're not allowed to. Instead use the buffer's current
+ content as the "pattern to be completed" and return the list
+ of completions as is. Also, use `try-completions` to simplify the
+ previous code.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add nohandle-guide images for tree-widget
+
+ These are copies of the guide.* files
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-re-fix previous describe-function change
+
+ * lisp/help-fns.el (describe-function): Put back binding removed
+ by mistake in previous change.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix key binding buffer issue in describe-function better
+
+ * lisp/help-fns.el (describe-function): Revert previous change here.
+ (describe-function-1): Just use describe-function-orig-buffer
+ instead of the key-buffer binding -- this will also make the
+ rendering results correct when hitting `g' and `l'.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify syntax-ppss doc string
+
+ * lisp/emacs-lisp/syntax.el (syntax-ppss): Clarify doc string.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify set-goal-column
+
+ * lisp/simple.el (set-goal-column): Simplify the code.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-h f' look up key bindings in the current buffer again
+
+ * lisp/help-fns.el (describe-function): Pass in the correct buffer
+ to look up key bindings in.
+ (describe-function-1): Use it.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the goal column work for the scrolling commands, too
+
+ * doc/emacs/basic.texi (Moving Point): Document it.
+ * lisp/simple.el (set-goal-column): Update doc string.
+
+ * lisp/window.el (scroll-up-command, scroll-down-command): Make
+ the goal column take effect for these commands, too (bug#17346).
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move two more variables from autoload.el to loaddefs-gen.el
+
+ * lisp/emacs-lisp/loaddefs-gen.el (generated-autoload-file)
+ (generated-autoload-load-name): Move the remaining two autoload.el
+ variables used by loaddefs-gen.el from autoload.el.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make finder/cus-dep scraping use generate-lisp-file functions
+
+ * lisp/finder.el (finder-compile-keywords):
+ * lisp/cus-dep.el (custom-make-dependencies): Use
+ generate-lisp-file functions directly instead of piggy-backing on
+ the autoload.el functions. (This is part of making autoload.el
obsolete.)
+
+2022-06-05 Stefan Kangas <stefan@marxist.se>
+
+ Don't generate separate autoload file for htmlfontify
+
+ * lisp/hfy-cmap.el: Update file local to no longer put htmlfontify
+ autoloads in htmlfontify-loaddefs.el.
+ * lisp/htmlfontify.el (htmlfontify-loaddefs): Don't require.
+ * test/lisp/htmlfontify-tests.el (htmlfontify-autoload): Delete
+ test (bug#52400).
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename generate-file to generate-lisp-file
+
+ * lisp/url/url-cookie.el (url-cookie-write-file):
+ * lisp/international/titdic-cnv.el (tit-process-header)
+ (miscdic-convert):
+ * lisp/international/ja-dic-cnv.el (skkdic-convert):
+ * lisp/international/emoji.el (emoji--generate-file):
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric):
+ * admin/unidata/unidata-gen.el (unidata-gen-file)
+ (unidata-gen-charprop): Adjust callers.
+
+ * lisp/emacs-lisp/generate-lisp-file.el: Renamed from
+ generate-file.el. Also rename some keyword parameters and require
+ a generator function.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add convenience functions for generating Emacs Lisp files
+
+ * lisp/url/url-cookie.el (url-cookie-write-file):
+ * lisp/international/titdic-cnv.el (tit-process-header):
+ * lisp/international/ja-dic-cnv.el (skkdic-convert):
+ * lisp/international/emoji.el (emoji--generate-file):
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric)
+
+ * admin/unidata/unidata-gen.el (unidata-gen-file)
+ (unidata-gen-charprop): Use the new functions.
+
+ * lisp/emacs-lisp/generate-file.el: New file to provide
+ convenience functions for generated files. It's not always
+ trivial to know which parts of the trailer that has to be
+ obfuscated to avoid not getting byte-compiled etc, and some parts
+ of the headers/trailers are usually forgotten when hand-coding
+ these.
+
+2022-06-05 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add a fallback font for Tamil Supplement characters
+
+ * lisp/international/fontset.el (setup-default-fontset): Add
+ and entry for "Noto Sans Tamil Supplement". (Bug#55807)
+
+2022-06-05 JD Smith <jdtsmith@gmail.com> (tiny change)
+
+ Make the Unicode tree widget prettier
+
+ * lisp/tree-widget.el (tree-widget-nohandle-guide): New widget:
+ "One small change is needed to accommodate this
+ style. `tree-widget-guide’ specifies a single vertical bar “guide”
+ widget. In the unicode tree, two separate vertical bars are needed
+ — one “plain” (│), and one which connects to the horizontal
+ “handle” preceding the node (├)."
+ (tree-widget--cursors):
+ (tree-widget):
+ (tree-widget-value-create): Use it.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command find-sibling-file
+
+ * doc/emacs/files.texi (Visiting): Document it.
+ * lisp/files.el (file-expand-wildcards): Fix up the regexp expansion.
+ (find-sibling-rules, find-sibling-file): New user option and command.
+ (find-sibling-file--search): New helper function.
+
+2022-06-05 Po Lu <luangruo@yahoo.com>
+
+ Fix file name encoding of Motif drop protocol file selections
+
+ * lisp/select.el (xselect-convert-to-filename):
+ (xselect-convert-to-dt-netfile): Encode in the file name coding
+ system instead of `raw-text-unix'.
+
+2022-06-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Extend file-expand-wildcards to allow regexps
+
+ * doc/lispref/files.texi (Contents of Directories): Document it.
+ * lisp/files.el (file-expand-wildcards): Extend to allow regexps.
+
+ * lisp/emacs-lisp/shortdoc.el (file): Expand the
+ file-expand-wildcards example.
+
+2022-06-05 Eli Zaretskii <eliz@gnu.org>
+
+ Update documentation of 'aset' and 'store-substring'
+
+ * doc/lispref/strings.texi (Modifying Strings): Adjust to
+ implementation changes: it is possible for the modified string to
+ have fewer or more bytes than the original. Add recommendations
+ regarding unibyte vs multibyte strings and characters. (Bug#55801)
+
+2022-06-05 Po Lu <luangruo@yahoo.com>
+
+ Fix drag-and-drop of files with multibyte filenames
+
+ * lisp/dired.el (dired-mouse-drag): Fix re-signalling of errors.
+
+ * lisp/select.el (xselect-convert-to-filename):
+ (xselect-convert-to-text-uri-list):
+ (xselect-convert-to-dt-netfile): Encode in raw-text-unix.
+
+ * src/xgselect.c (suppress_xg_select, release_xg_select): New
+ functions.
+ (xg_select): Respect xg_select suppression by delegating to
+ pselect.
+ * src/xgselect.h: Update prototypes.
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Suppress xg_select
+ during the nested event loop.
+ (handle_one_xevent): Handle cases where hold_quit is nil inside
+ a selection event handler during DND.
+
+2022-06-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix sorting in ls-lisp.el under -v
+
+ * lisp/ls-lisp.el (ls-lisp-version-lessp): Handle correctly the
+ case where strings begin with numerical parts. More faithful
+ implementation of the 'strverscmp' spec for fractional parts.
+ (Bug#55787)
+
+ * test/lisp/ls-lisp-tests.el (ls-lisp-test-bug55787): New test.
+
+2022-06-05 Po Lu <luangruo@yahoo.com>
+
+ Fix bug#55779
+
+ * src/xterm.c (x_update_opaque_region): Don't make GTK reset the
+ opaque region if F is a child frame.
+
+2022-06-05 Po Lu <luangruo@yahoo.com>
+
+ Better respect window manager stacking order
+
+ * src/xfns.c (x_frame_list_z_order, Fx_frame_list_z_order): Use
+ _NET_CLIENT_LIST_STACKING if supported.
+ * src/xterm.c (x_wm_supports_1): New function. Accept dpyinfo
+ instead of frame.
+ (x_wm_supports): Use that function instead.
+
+ * src/xterm.h: Update prototypes.
+
+2022-06-05 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1b8719835a Update to Org 9.5.4
+ 92c5faafd7 Clarify documentation of 'string-to-unibyte'
+ 2848512654 ; * lisp/files.el (find-file): Avoid too short lines in do...
+ 672f9f787f Improve keystrokes in doc strings in some find-file functions
+ ef5651cc77 Fix segfaults when starting on 80x26 TTY frames
+ bfa647972f ; Fix doc string of 'delete-selection-repeat-replace-region'
+ a95d46e00f Make it explicit that a couple of _s in lispref are unders...
+ 5c74c25123 Remove from FAQ the MS-Windows info about BDF fonts
+ edb48646f2 Fix Display Property manual example
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Fix positioning of non-system tooltips on GTK builds
+
+ * src/xfns.c (compute_tip_xy): Fix coding style.
+ * src/xterm.c (handle_one_xevent): Set tooltip size immediately
+ on GTK builds.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Adjust last change for GTK+ 2.x
+
+ * src/xterm.c (x_tooltip_window_to_frame): Fix build on GTK 2.x.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Make `mouse-position' work correctly with GTK tooltips
+
+ * src/xterm.c (x_tooltip_window_to_frame): New parameter
+ `unrelated_tooltip_p'.
+ (XTmouse_position): Pass that, and if it turns out to be true,
+ look beneath the tooltip window.
+
+2022-06-04 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.4
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make loaddefs-generate--parse-file more robust
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--parse-file):
+ Ensure that we don't have an autoload cookie on the first column
+ inside a string.
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make skkdic-convert replacements literal
+
+ * lisp/international/ja-dic-cnv.el (skkdic-convert): The
+ replacement is literal and fixed-case. (The build on EMBA is
+ failing mysteriously with "Match data clobbered by buffer
+ modification hooks", so this is mainly a stab in the dark at
+ fixing that, but it's also generally correct.)
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make vc-mtn obsolete
+
+ * lisp/obsolete/vc-mtn.el: Make obsolete (bug#6513).
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix failing shortdoc test
+
+ * lisp/emacs-lisp/shortdoc.el (string): Each example section is
+ supposed to contain only examples of using the function in
+ question (as policed by the FAILED shortdoc-examples test).
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Fix error during DND from both Emacs and GTK at the same time
+
+ * src/xterm.c (x_dnd_get_target_window): Make mapping and
+ releasing the COW atomic. This is to fix a rare bug when
+ MPX (multi-pointer X) is in use and the user tries to drag
+ from both GTK and Emacs at the same time using multiple seats.
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further raise-sexp doc string improvement
+
+ * lisp/emacs-lisp/lisp.el (raise-sexp): Fix the key binding syntax
+ in the doc string.
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the raise-sexp doc string
+
+ * lisp/emacs-lisp/lisp.el (raise-sexp): Try to explain what the
+ command does (bug#55788).
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix warnings introduced by the lisp-mode-autoload-regexp change
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-fdefs): The package name bit
+ in ###;;;foo-autoload may be missing, so do a lax match (bug#55784).
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a face to \\= doc string escapes
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-fdefs): Add a face to \\= doc
+ string escapes (bug#55783).
+
+2022-06-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further notes about quotation marks in the manual
+
+ * doc/lispref/tips.texi (Documentation Tips): Note that we
+ previously recommended using single quotation marks (bug#55780).
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Allow keyboard modifiers to control the action taken during dired DND
+
+ * doc/emacs/dired.texi (Misc Dired Features): Update
+ documentation.
+ * lisp/dired.el (dired-mouse-drag-files): Update defcustom for
+ new values.
+ (dired-mouse-drag): Recognize more values of
+ `dired-mouse-drag-files' and keyboard modifiers.
+ (dired-mouse-drag-files-map): Add C-down-mouse-1, M-down-mouse-1
+ and S-down-mouse-1.
+
+2022-06-04 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/emacs-lisp/shortdoc.el (string): Add `string-collate-lessp'.
+
+2022-06-04 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Grantha script (bug#55782)
+
+ * lisp/language/indian.el ("Grantha"): New language environment.
+ Add composition rules for Grantha. Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Grantha.
+ * lisp/leim/quail/indian.el ("grantha"): New input method.
+
+ * etc/HELLO: Add two Grantha greetings.
+ * etc/NEWS: Announce the new language environment.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Fix file drag-and-drop on GNUstep
+
+ * src/nsselect.m (ns_decode_data_to_pasteboard): Convert URL to
+ path names when we're using NSFilenamesPboardType.
+ * src/nsterm.m: ([EmacsView performDragOperation:]): Handle
+ cases where plist is a string.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Support dragging multiple files on NS
+
+ This has to use a deprecated pasteboard type, since Emacs uses
+ the "old" (but not deprecated) dragImage: method for
+ drag-and-drop, which can't drop file URLs.
+
+ * lisp/term/ns-win.el (x-begin-drag): Update accordingly.
+ * src/nsselect.m (ns_decode_data_to_pasteboard):
+ (Fns_begin_drag): Allow files to be a list of filenames as well.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Fix splurious drag-mouse-1 events after NS drag-and-drop
+
+ * src/nsterm.m ([EmacsWindow beginDrag:...]): Clear
+ dpyinfo->grabbed.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Clear mouse face during drag-and-drop
+
+ * src/xterm.c (handle_one_xevent): Clear mouse face during drag
+ and drop, since note_mouse_highlight isn't called.
+
+2022-06-04 Eli Zaretskii <eliz@gnu.org>
+
+ Clarify documentation of 'string-to-unibyte'
+
+ * doc/lispref/nonascii.texi (Converting Representations): Clarify
+ what 'string-to-unibyte' does. Reported by Richard Hansen
+ <rhansen@rhansen.org>. (Bug#55777)
+
+2022-06-04 Eli Zaretskii <eliz@gnu.org>
+
+ Another attempt to void compiler warnings on macOS (bug#55595)
+
+ * configure.ac (WERROR_CFLAGS): Use "-Wno-unknown-pragmas" with
+ Clang.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Improve doc of `mouse-drag-mode-line-buffer'
+
+ * doc/emacs/frames.texi (Mouse Commands): Document
+ `mouse-drag-mode-line-buffer'.
+ * etc/NEWS: Explain where that option is supported.
+ * lisp/mouse.el (mouse-drag-mode-line-buffer): Likewise.
+
+2022-06-04 Po Lu <luangruo@yahoo.com>
+
+ Make XTmouse_position faster during dragging with lots of frames
+
+ * src/xterm.c (x_tooltip_window_to_frame): New function.
+ (XTmouse_position): Use that to find tooltip frames underneath
+ the pointer instead.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Fix leak of toplevel data
+
+ * src/xterm.c (x_dnd_compute_toplevels): Make sure to free
+ `data'.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Fix leak of DND toplevels when return-frame is non-nil
+
+ * src/xterm.c (x_dnd_free_toplevels): Don't leak DND toplevels
+ if returning a frame.
+ (x_dnd_begin_drag_and_drop): Make this function reentrant from
+ the IO error handler.
+
+2022-06-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ Post-review additions
+
+ * lisp/progmodes/project.el (project-vc-include-untracked):
+ Add :version.
+ (project--vc-list-files): Use 'and' instead of 'when'.
+
+2022-06-03 Jan Synáček <jan.synacek@gmail.com>
+
+ Add new user option project-vc-include-untracked
+
+ * doc/emacs/maintaining.texi (Projects): Document it.
+ * lisp/progmodes/project.el (project--vc-list-files): Use it.
+
+2022-06-03 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-query-replace-regexp: Filter out non-regular files
+
+ * lisp/progmodes/project.el (project-query-replace-regexp):
+ Filter out non-regular files (bug#55382).
+
+2022-06-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp test
+
+ * test/lisp/net/tramp-tests.el (tramp-test31-signal-process):
+ Skip on MS Windows.
+
+2022-06-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Add remote file functions to shortdoc
+
+ * lisp/net/tramp-integration.el (shortdoc-add-function)
+ (shortdoc--groups): Declare.
+ (shortdoc): Configure shortdoc.el to recognize file name functions
+ for remote access.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Fix dired drag and drop actions
+
+ * lisp/dired.el (dired-mouse-drag): Make `link' values work
+ again.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Handle dragging multiple files on Haiku
+
+ * lisp/term/haiku-win.el (haiku-dnd-selection-converters)
+ (haiku-dnd-convert-file-name, x-begin-drag): Handle vector
+ values of selection data.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Allow dragging multiple files from a Dired buffer
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new function
+ `dnd-begin-drag-files'.
+ * lisp/dired.el (dired-mouse-drag-files): Update doc string.
+ (dired-map-over-marks): Accept a new value of ARG `marked',
+ meaning to not fall back to the current file if no marks were
+ found.
+ (dired-mouse-drag): Handle marked files in an intuitive way.
+
+ * lisp/dnd.el (dnd-last-dragged-remote-file): Allow list values
+ as well.
+ (dnd-remove-last-dragged-remote-file): Handle list values.
+ (dnd-begin-file-drag): Fix file name expansion.
+ (dnd-begin-drag-files): New function.
+ * lisp/select.el (xselect-convert-to-filename): Handle mutiple
+ files
+ (a vector of file names):.
+
+2022-06-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't issue warnings for Unicode quotes for now
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-docstring-style-warn):
+ Remove warning for "Unicode quotes" for now (bug#55780).
+
+2022-06-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert the `...' documentation back to actual usage
+
+ * doc/lispref/tips.texi (Documentation Tips): Document how `...'
+ is really used now (bug#55780). ‘...’ is not really used in the
+ Emacs sources.
+
+2022-06-03 Mattias Engdegård <mattiase@acm.org>
+
+ Let ?\LF signal an error (bug#55738)
+
+ As suggested by Stefan Monnier.
+
+ * src/lread.c (read_escape):
+ Signal an error for ?\LF since it cannot reasonably be intended.
+ * test/src/lread-tests.el (lread-escaped-lf): Update test.
+ * etc/NEWS: Announce.
+
+2022-06-03 Mattias Engdegård <mattiase@acm.org>
+
+ Fix wrong value in idlwave-comment-indent-char
+
+ * lisp/progmodes/idlwave.el (idlwave-comment-indent-char):
+ Use a space since that is clearly what was meant.
+ ?\ at the end of a line (ie, ?\LF) never was well-defined and produced
+ -1 most of the time, but will soon raise an error (bug#55738).
+ This doesn't matter much becaue this variable is unused.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Add new user option `mouse-drag-mode-line-buffer'
+
+ * etc/NEWS: Announce new option. Also add missing entries for
+ an earlier change.
+ * lisp/mouse.el (mouse-drag-mode-line-buffer): New user option.
+ (mouse-drag-mode-line): Implement that option.
+
+2022-06-03 Po Lu <luangruo@yahoo.com>
+
+ Add easier-to-use interfaces for initiating drag-and-drop
+
+ The previous interface required that users know intricacies of
+ the data types used to transfer data on each platform Emacs
+ supports.
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new
+ functions.
+ * lisp/dired.el (dired-last-dragged-remote-file)
+ (dired-remove-last-dragged-local-file): Delete functions.
+ (dired-mouse-drag): Use `dnd-begin-file-drag'.
+ * lisp/dnd.el (dnd-last-dragged-remote-file)
+ (dnd-remove-last-dragged-remote-file): New variables and
+ functions.
+ (dnd-begin-text-drag, dnd-begin-file-drag): New functions.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Add porting note.
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new user option battery-update-functions
+
+ * doc/emacs/display.texi (Optional Mode Line): Document it.
+ * lisp/battery.el (battery-update-functions): New user option
+ (bug#55770).
+ (battery-update): Use it.
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove window-max-characters-per-line
+
+ * doc/lispref/windows.texi (Window Sizes):
+ * doc/lispref/display.texi (Size of Displayed Text): Remove
+ documentation.
+ * lisp/fringe.el (fringe-mode): Point to the right function.
+
+ * lisp/window.el (window-char-pixel-width)
+ (window-char-pixel-height, window-max-characters-per-line): Remove
+ functions -- this was already added as window-max-chars-per-line.
+
+ * src/window.c (Fwindow_body_width): Adjust doc string.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK build
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop) [USE_GTK]: Adjust call
+ to x_dnd_free_toplevels as well.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Don't call XSelectInput on a dying display when cancelling drag-and-drop
+
+ * src/xterm.c (x_dnd_free_toplevels): New argument
+ `display_alive'.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop)
+ (handle_one_xevent): Change calls to `x_dnd_free_toplevels'.
+ (x_connection_closed, x_delete_terminal): Set it to false.
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make checkdoc-file-comments-engine match more ;;;### forms
+
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Use
+ the more general lisp-mode-autoload-regexp instead of
+ generate-autoload-cookie (i.e., also match ;;;###tramp-autoload).
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `M-x grep' work better with "git grep"
+
+ * lisp/progmodes/compile.el (compilation-start): Bind PAGER to ""
+ to avoid errors in output from "git grep" and similar commands
+ (bug#4359).
+
+2022-06-02 Mattias Engdegård <mattiase@acm.org>
+
+ Make ?\LF generate 10, not -1 (bug#55738)
+
+ The old -1 value was an artefact of the reader implementation.
+
+ * src/lread.c (read_escape): Remove the `stringp` argument; assume
+ character literal syntax. Never return -1.
+ (read_string_literal): Handle string-specific escape semantics here
+ and simplify.
+ * test/src/lread-tests.el (lread-escaped-lf): New test.
+
+2022-06-02 Mattias Engdegård <mattiase@acm.org>
+
+ * src/lread.c (skip_lazy_string): Fix uninitialised variable.
+
+2022-06-02 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/play/morse.el: Doc fixes.
+
+2022-06-02 Ikumi Keita <ikumi@ikumi.que.jp> (tiny change)
+
+ Improve keystrokes in doc strings in some find-file functions
+
+ * lisp/files.el (find-file):
+ (find-file-other-window):
+ (find-file-other-frame): Include the correct keymap so that
+ keystrokes are displayed better (bug#55761).
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ More gracefully handle errors during Motif drag window creation
+
+ * src/xterm.c (xm_drag_window_error_handler): Store whether or
+ not an error happened.
+ (xm_get_drag_window): Handle errors during XCreateWindow and
+ XChangeProperty without leaking anything.
+ (x_error_handler): Fix coding style.
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix out-of-tree build problems with loaddefs.el
+
+ * lisp/Makefile.in ($(lisp)/loaddefs.el): Use the new function.
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Pass in
+ whether to inhibit a partial build (to make the code more general).
+ (loaddefs-generate--emacs-batch): Add a new function specially for
+ the Emacs build that has the special rules needed. (This also
+ fixes out-of-tree builds.)
+ loaddefs-generate-batch can be used in general for packages etc.
+ (loaddefs-generate-batch): Remove the special code for Emacs builds.
+
+2022-06-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix segfaults when starting on 80x26 TTY frames
+
+ * src/dispnew.c (adjust_frame_glyphs_for_frame_redisplay): Make
+ sure we have valid frame glyph matrices for the interactive
+ session. (Bug#55760)
+ (adjust_frame_glyphs): Add assertions for when we fail to allocate
+ valid frame glyph matrices for a TTY frame.
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reinstate the Qload file name handler
+
+ * src/lread.c (Fload): Reinstate the Qload file name handler
+ (bug#12598). This makes loading non-ASCII elc.gz files work.
+
+2022-06-02 Frédéric Giquel <frederic.giquel@laposte.net> (tiny change)
+
+ Use `read-process-output-max' when creating pipes on GNU/Linux
+
+ * src/process.c (syms_of_process): Note max size.
+ (create_process): Set the pipe size from `read-process-output-max'
+ (bug#55737).
+
+2022-06-02 yilkalargaw <yilkalargawworkneh@gmail.com>
+
+ Fix usage of absolute :height in manoj-dark-theme
+
+ * etc/themes/manoj-dark-theme.el (manoj-dark): Avoid using
+ absolute heights (bug#55759).
+
+2022-06-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up loaddefs-generate on slow disks
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Make file
+ update comparisons faster.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix rare crash when async input happens while creating xm drag window
+
+ * src/xterm.c (xm_get_drag_window): Work around XCloseDisplay
+ freezing upon being interrupted by a signal.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix macOS build
+
+ * src/nsterm.m (ns_mouse_position): Fix typos.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix potential NULL pointer dereference on NS
+
+ * src/nsterm.m (ns_mouse_position): Don't test f's tooltip-ness
+ if it's NULL.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix flickering tooltips with mouse DND without interprogram drag
+
+ * src/haikuterm.c (haiku_read_socket):
+ * src/nsterm.m (ns_mouse_position):
+ * src/xterm.c (XTmouse_position, handle_one_xevent): Apply
+ special tooltip treatment to `dropping' as well as
+ `drag-source'.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix tooltip frames leaking into mouse position on NS
+
+ * src/nsterm.m (ns_mouse_position): Avoid tooltip frames and
+ look underneath them when `drag-source'.
+
+ ([EmacsView mouseDown:]):
+ ([EmacsView mouseMoved:]): Ignore events from tip frames.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Handle dropping text/uri-list on Haiku
+
+ * lisp/term/haiku-win.el (window-system-initialization): Remove
+ extra whitespace.
+ (haiku-drag-and-drop): Handle "text/uri-list".
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix help-echo tooltips interfering with mouse drag-and-drop
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Disable
+ tooltip-mode while mouse drag-and-drop is in progress. Also
+ restore state correctly in some more cases.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix flicker during mouse DND on Haiku as well
+
+ * src/haikuterm.c (haiku_read_socket): Don't clear tooltips on
+ crossing if track-mouse is drag-source and the display is
+ grabbed.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix typos in last change
+
+ * src/xterm.c (handle_one_xevent): Fix typos.
+
+2022-06-02 Po Lu <luangruo@yahoo.com>
+
+ Fix tooltips flickering on X during `mouse-drag-and-drop-region'
+
+ * src/xterm.c (x_get_window_below): New function.
+ (XTmouse_position): If track-mouse is drag-source and a window
+ is a tooltip, look below it.
+ (handle_one_xevent): Don't generate a nil help-echo event on
+ LeaveNotify if the display is grabbed and track-mouse is
+ drag-source.
+
+2022-06-01 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (strz): Fix wrong-type-argument error when unpacking
+
+ * lisp/emacs-lisp/bindat.el (strz): Fix (wrong-type-argument
+ number-or-marker-p nil) error when unpacking a strz with
+ unspecified (variable) length.
+ * test/lisp/emacs-lisp/bindat-tests.el (strz): Mark test as passing.
+
+2022-06-01 Richard Hansen <rhansen@rhansen.org>
+
+ bindat (strz): Fix off-by-one bug in computed length
+
+ * lisp/emacs-lisp/bindat.el (strz): Include null terminator when
+ computing packed string length.
+ * test/lisp/emacs-lisp/bindat-tests.el (strz): Mark tests as passing.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Clean up Motif drag-and-drop code
+
+ * src/xterm.c (enum xm_drag_operation, enum xm_drag_action)
+ (enum xm_drag_reason, enum xm_drag_originator, enum xm_drag_style)
+ (enum xm_drop_site_status): Turn macros into enums.
+ (x_next_event_from_any_display): Fix initial value of rc.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Fix decoding of XdndStatus rectangles on 64-bit systems
+
+ * src/xterm.c (handle_one_xevent): Make data.l[2] and data.l[3]
+ unsigned.
+
+2022-06-01 Mattias Engdegård <mattiase@acm.org>
+
+ Revert "Fix reader char escape bugs (bug#55738)"
+
+ This reverts commit c50718dcfa54293b695f8a3fa5cd4d77848ee084.
+
+ It may have caused bootstrap problems. Sorry about that.
+
+2022-06-01 Juri Linkov <juri@linkov.net>
+
+ * lisp/simple.el (completion-setup-function): Use file-name-directory.
+
+ Replace file-name-as-directory with file-name-directory,
+ because file-name-as-directory returns a nonexistent dir
+ e.g. "/dir/prefix/" when completing "/dir/prefix".
+ OTOH, file-name-directory returns "/dir/" in such cases (bug#55743).
+
+2022-06-01 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid segfaults on MS-Windows when invoked with --version
+
+ * src/emacs.c (main): If invoked with --version, call
+ 'init_bignum' before calling 'format-time-string', as that is
+ needed for safe manipulation of bignums in timefns.c.
+
+2022-06-01 Mattias Engdegård <mattiase@acm.org>
+
+ Fix reader char escape bugs (bug#55738)
+
+ Make the character literal ?\LF (linefeed) generate 10, not -1.
+
+ Ensure that Control escape sequences in character literals are
+ idempotent: ?\C-\C-a and ?\^\^a mean the same thing as ?\C-a and ?\^a,
+ generating the control character with value 1. "\C-\C-a" no longer
+ signals an error.
+
+ * src/lread.c (read_escape): Make nonrecursive and only combine
+ the base char with modifiers at the end, creating control chars
+ if applicable. Remove the `stringp` argument; assume character
+ literal syntax. Never return -1.
+ (read_string_literal): Handle string-specific escape semantics here
+ and simplify.
+ * test/src/lread-tests.el (lread-misc-2): New test.
+
+2022-06-01 Michael Albinus <michael.albinus@gmx.de>
+
+ Make files-tests.el more robust
+
+ * test/lisp/files-tests.el (files-tests--with-temp-non-special)
+ (files-tests--with-temp-non-special-and-file-name-handler): Make
+ it more robust wrt parallel test jobs. (Bug#55706)
+
+2022-06-01 Visuwesh <visuweshm@gmail.com>
+
+ delete-selection-mode: Add user option to delete temporary regions only
+
+ * lisp/delsel.el (delete-selection-temporary-region): Add new
+ user option.
+ (delete-selection-pre-hook): Respect it.
+ * doc/emacs/mark.texi (Using Region): Document the new user option.
+ * etc/NEWS: Announce the new user option. (bug#55692)
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make it explicit that a couple of _s in lispref are underscores
+
+ * doc/lispref/strings.texi (Custom Format Strings):
+ * doc/lispref/control.texi (pcase Macro): Make it explicit that
+ it's an underscore (bug#55742).
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a comment to lisp/Makefile.in
+
+ * lisp/Makefile.in: Add FIXME comment.
+
+2022-06-01 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Place bookmarks without last-modified at the end
+
+ * lisp/bookmark.el (bookmark-sort-flag): Typo fix in doc string.
+ (bookmark-maybe-sort-alist): Fix sorting when there's no last
+ modified.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation of Lisp-level drag-and-drop features
+
+ * doc/lispref/frames.texi (Drag and Drop): Don't conflate X
+ Windows specific implementation details with general
+ drag-and-drop functionality, document what `dnd-protocol-alist'
+ actually means, and improve documentation on DND data types.
+
+2022-06-01 Stefan Kangas <stefan@marxist.se>
+
+ Make XEmacs compat code in gamegrid.el obsolete
+
+ * lisp/play/gamegrid.el (gamegrid-make-glyph): Warn on using obsolete
+ XEmacs style glyph. (This is currently unused in the Emacs tree.)
+ (gamegrid-make-image-from-vector): Make obsolete.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that loaddefs-gen.elc is build before loaddefs.el is generated
+
+ * lisp/Makefile.in ($(lisp)/loaddefs.el): Make loaddefs.el depend
+ on loaddefs-gen.elc to ensure that it's built.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to x_next_event_from_any_display
+
+ * src/xterm.c (x_next_event_from_any_display): Don't call
+ XPending unless there is input to be read on the connection, and
+ don't call ConnectionNumber twice.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up the loaddefs-gen updating logic
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Only do the
+ updating logic if we're really updating.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix loaddefs generation"
+
+ This reverts commit 28358db93007456a1e0a6d9118823d4ddea4ba39.
+
+ This has been fixed in a different way.
+
+2022-06-01 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Hanifi Rohingya script (bug#55745)
+
+ * lisp/language/misc-lang.el ("Hanifi Rohingya"):
+ New language environment.
+ Add composition rules for Hanifi Rohingya.
+ Add sample text and input method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Hanifi Rohingya.
+ * lisp/leim/quail/misc-lang.el ("hanifi-rohingya"):
+ New input method.
+
+ * etc/HELLO: Add a Hanifi Rohingya greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Start the org -> texi conversion while doing byte compilation
+
+ * lisp/Makefile.in (MAIN_FIRST): Compile stuff needed for org ->
+ texi generation.
+ (all): Add org-manuals.
+ (org-manuals): Start org -> texi conversion while we're doing byte
+ compilation to make things more parallel. This shaves off about
+ ten seconds of a "make -j8" build.
+
+2022-06-01 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to their latest version
+
+ * admin/MAINTAINERS: Update link to the Git repository of the
+ modus-themes; point to the new mailing list; include command for
+ sending a bug report.
+
+ * doc/misc/modus-themes.org (Install from the archives): Minor
+ rewording.
+ (Dealing with byte compilation errors): Clarify that occasional bugs
+ are not always a fault of the themes.
+ (Custom hl-todo colors): Add note about package.:(Full support for
+ packages or face groups, Indirectly covered packages): Update lists of
+ supported packages.
+ (Note on avy hints): Remove obsolete node.
+ (Note on git-gutter in Doom Emacs): Note problem with custom bitmaps,
+ which is not the fault of the themes.
+ (Note on display-fill-column-indicator-mode): Show how to use a
+ thicker indicator.:(Why are colors mostly variants of blue, magenta,
+ cyan?): Minor rewording.
+ (Sources of the themes): Update official theme sources.
+ (Issues you can help with)
+ (Patches require copyright assignment to the FSF): Update the
+ information on potential contributions.
+ (Acknowledgements): Update list of contributors in the form of code or
+ ideas/feedback.
+ (Meta, Other notes about the project): Rename section and include more
+ links to development-related blog posts.
+
+ * etc/themes/modus-themes.el (seq): Stop requiring 'seq'.
+ (modus-themes--version): Use internal variable for the themes'
+ version.
+ (modus-themes-operandi-colors, modus-themes-vivendi-colors): Make
+ minor tweaks to the color palettes.
+ (modus-themes-variable-pitch): Remove obsolete symbol from doc string.
+ (modus-themes--alist-or-seq): Update function to not rely on 'seq'.
+ (modus-themes--current-theme): Make stylistic tweaks.
+ (modus-themes--markup): Use correct order of inheritance for faces.
+ (modus-themes--paren, modus-themes--heading)
+ (modus-themes--agenda-structure, modus-themes--agenda-date)
+ (modus-themes--agenda-habit, modus-themes--mode-line-attrs)
+ (modus-themes--mode-line-padded-box, modus-themes--button): Update to
+ use 'modus-themes--property-lookup' instead of the previous function
+ that depended on 'seq'.
+ (modus-themes--diff): Make it combine as expected with the user option
+ 'modus-themes-deuteranopia'.
+ (modus-themes-faces): Update list of faces.
+ (modus-themes-custom-variables): Expand support for face rotation in
+ 'highlight-changes'.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Bump version number to 2.4.1.
+
+ Release notes:
<https://protesilaos.com/codelog/2022-06-01-modus-themes-2-4-0/>.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how loaddefs-gen decides whether to do a full update
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Do a
+ complete build more often to avoid problems with going from old
+ loaddefs.el files to new ones.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif DND return value upon transfer failure
+
+ * src/xterm.c (handle_one_xevent): Make XmTRANSFER_FAILURE clear
+ DND action.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Fix loaddefs generation
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Prevent
+ one kind of string match error.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Adjust last change to Haiku as well
+
+ * lisp/term/haiku-win.el (haiku-dnd-selection-converters): Add
+ text/uri-list.
+ (haiku-dnd-convert-text-uri-list): New function.
+ (x-begin-drag): Handle alternative data specified in selection
+ local values.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Clean up text/uri-list mess inside the Dired drag-and-drop code
+
+ * doc/lispref/frames.texi (Window System Selections):
+ * etc/NEWS: Document new changes to `gui-get-selection'.
+ * lisp/dired.el (dired-mouse-drag): Specify text/uri-list value
+ explicitly.
+ * lisp/select.el (gui-set-selection): Update doc string.
+ (xselect-convert-to-text-uri-list): Update to handle either a
+ single URL (as a string) or a vector of URLs, instead of file
+ names.
+ (xselect-uri-list-available-p): Likewise.
+ * src/xselect.c (x_get_local_selection): Look in tem's text
+ properties (if it is a string) for a local value before using
+ tem itself.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Fix hangs when explicitly moving frames with input blocked
+
+ * src/xterm.c (x_check_expected_move): Fix indent.
+ (x_sync_with_move): Use pselect to wait the 0.5 seconds instead
+ of wait_reading_process_output if input is blocked.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Implement `allow-same-frame' for NS drag-and-drop
+
+ * lisp/term/ns-win.el (x-begin-drag): Implement
+ `allow-same-frame'.
+ * src/nsselect.m (Fns_begin_drag): New parameter
+ `allow-same-frame'.
+ * src/nsterm.h (@interface EmacsWindow): Update prototypes.
+ * src/nsterm.m ([EmacsView draggingEntered:]):
+ ([EmacsView prepareForDragOperation:]):
+ ([EmacsView performDragOperation:]): Respect new parameter.
+ ([EmacsWindow beginDrag:forPasteboard:withMode:returnFrameTo:]):
+ Likewise.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Fix creation of menu items without help text on Haiku
+
+ * src/haiku_support.cc (EmacsMenuItem): Don't mistakenly assume
+ help is non-NULL.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak MAIN_FIRST/ja-dic compilation
+
+ * lisp/Makefile.in (MAIN_FIRST): ja-dic-utl isn't used in the
+ conversion process, to don't compile it early.
+
+2022-06-01 Po Lu <luangruo@yahoo.com>
+
+ Fix pselect usage mistakes
+
+ * src/xterm.c (x_next_event_from_any_display):
+ (x_wait_for_cell_change): Fix calls to pselect and tests against
+ return value.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't do OKURI-NASI until the conversion files have been compiled
+
+ * lisp/Makefile.in (generate-ja-dic): Byte-compile the ja-dic.el
+ file, too.
+
+2022-06-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Compile ja-dic files to speed OKURI-NASI up
+
+ * lisp/Makefile.in (MAIN_FIRST): Also compile ja-dic utils to
+ speed generation up.
+
+2022-06-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-05-18 19:45:52 UTC.
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure byte compilation of the ja-dic.el file
+
+ * lisp/Makefile.in (generate-ja-dic): Byte-compile the ja-dic.el
+ file, too.
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reshuffle the generation of the OKURO-NASI entries to speed up build
+
+ * leim/Makefile.in (all): Remove the ja-dic target from all -- we
+ don't need this file generated before we generate the .elc files.
+ (generate-ja-dic): Add new target.
+
+ * lisp/Makefile.in (.PHONY, generate-ja-dic): Add new target.
+ (all): Make all depend on the new generate-ja-dic target so that
+ the OKURO-NASI entries are computed while the .elc files are
+ compiled. On a AMD Ryzen 9 5950X 16-Core Processor this brings
+ compilation time on a "make -j32 bootstrap" down from 1m52s to 1m34s.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Fix the GTK build
+
+ * src/xterm.c (x_wait_for_cell_change): Don't initialize rfds
+ on GTK.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Improve x_wait_for_cell_change
+
+ * src/xterm.c (x_wait_for_cell_change): Keep processing events
+ while still XPending.
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Note changes in ;;;### parsing
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the loaddefs updating logic
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Fix the
+ logic of updating -- we update per loaddefs file.
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix yank-in-context--transform after recent reversion
+
+ * lisp/simple.el (yank-in-context--transform): Fix call to
+ comment-region-default-1 after recent reverted patch.
+
+2022-05-31 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Add a last-modified field when a bookmark is set
+
+ * test/lisp/bookmark-tests.el (bookmark-tests-make-record)
+ (bookmark-tests-make-record-list, bookmark-tests-set): fix tests
+ to not consider last-modified in bookmark equality.
+ * lisp/bookmark.el (bookmark-make-record-default): add a
+ last-modified field.
+ (bookmark-sort-flag): add the 'last-modified choice.
+ (bookmark-get-last-modified): new function to get last-modified
+ bookmark field.
+ (bookmark-maybe-sort-alist): sort in last-modified first order.
+ (bookmark-completing-read): use `bookmark-maybe-sort-alist'.
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Allow commenting out white space lines in latex-mode"
+
+ This reverts commit 0870ebb3cbfcb097d85eea5eacaf992dd88ed204.
+
+ This was the wrong way to try to fix this -- see bug#55716.
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make partial loaddefs updates work again
+
+ * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Only update
+ the loaddefs section for the files that have changed. This makes
+ "git pull" (when few/no Lisp files have changed much faster).
+
+2022-05-31 Juri Linkov <juri@linkov.net>
+
+ Fix handling of windows/buffers for non-nil completion-auto-select
(bug#55712)
+
+ * lisp/minibuffer.el (completion--in-region-1): When
completion-auto-select
+ is `second-tab', call switch-to-completions outside of
`with-current-buffer'.
+ For the case of completion-auto-select customized to t,
+ move switch-to-completions from completion-setup-function
+ where it was called inside of with-current-buffer-window.
+
+ * lisp/simple.el (completion-setup-function): Move switch-to-completions
+ for completion-auto-select=t to completion--in-region-1 where it's
+ handled together with the case of `second-tab'.
+ (next-completion): Add check for the minibuffer to support in-buffer
+ inline completions.
+
+2022-05-31 Eli Zaretskii <eliz@gnu.org>
+
+ Remove unused w32-* variables
+
+ * src/w32fns.c (syms_of_w32fns) <w32-bdf-filename-alist>
+ <w32-strict-fontnames>: Remove unused variables.
+
+2022-05-31 Eli Zaretskii <eliz@gnu.org>
+
+ Remove from FAQ the MS-Windows info about BDF fonts
+
+ * doc/misc/efaq.texi (How to add fonts): Remove the MS-Windows
+ specific steps, as BDF fonts are no longer supported on
+ MS-Windows. (Bug#55740)
+
+2022-05-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up generation of loaddefs files
+
+ * doc/lispref/loading.texi (Autoload, Autoload by Prefix): Refer
+ to loaddefs-generate instead of update-file-autoloads.
+
+ * lisp/Makefile.in (LOADDEFS): Remove, because all the loaddefs
+ files are created in one go now.
+ (COMPILE_FIRST): Add loaddefs-gen/radix-tree, and drop autoload.
+ ($(lisp)/loaddefs.el): Use loaddefs-gen.
+ (MH_E_DIR, $(TRAMP_DIR)/tramp-loaddefs.el)
+ ($(MH_E_DIR)/mh-loaddefs.el, $(CAL_DIR)/cal-loaddefs.el)
+ ($(CAL_DIR)/diary-loaddefs.el, $(CAL_DIR)/hol-loaddefs.el): Remove.
+
+ * lisp/generic-x.el: Inhibit computing prefixes, because the
+ namespace here is all wonky.
+
+ * lisp/w32-fns.el (w32-batch-update-autoloads): Removed -- unused
+ function.
+
+ * lisp/calendar/holidays.el ("holiday-loaddefs"): Renamed from
+ hol-loaddefs to have a more regular name.
+
+ * lisp/cedet/ede/proj-elisp.el (ede-emacs-cedet-autogen-compiler):
+ Refer to loaddefs-gen instead of autoload.
+
+ * lisp/emacs-lisp/autoload.el (make-autoload, autoload-rubric)
+ (autoload-insert-section-header): Made into aliases of
+ loaddefs-gen functions.
+ (autoload--make-defs-autoload): Ditto.
+ (autoload-ignored-definitions, autoload-compute-prefixes): Moved
+ to loaddefs-gen.
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-mode-autoload-regexp): New
+ constant.
+ (lisp-fdefs, lisp-mode-variables, lisp-outline-level): Use it to
+ recognize all ;;;###autoload forms.
+
+ * lisp/emacs-lisp/loaddefs-gen.el: New file.
+
+ * lisp/emacs-lisp/package.el: Use loaddefs-generate instead of
+ make-directory-autoloads.
+
+ * test/lisp/vc/vc-bzr-tests.el (vc-bzr-test-faulty-bzr-autoloads):
+ Use loaddefs instead of autoloads.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Convert FILE_NAME to refs on Haiku instead of text/uri-list
+
+ * lisp/term/haiku-win.el (haiku-dnd-selection-converters): Use
+ more appropriate target for file names.
+ (haiku-dnd-convert-uri-list): Delete function.
+ (haiku-dnd-convert-file-name): New function. Also handle remote
+ file names.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Add missing part of recent changes to NS DND support
+
+ * lisp/term/ns-win.el (x-begin-drag): Implement `return-frame'
+ argument.
+
+2022-05-31 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Makasar and Lontara scripts (bug#55734)
+
+ * lisp/language/indonesian.el ("Makasar") ("Buginese"):
+ New language environment. Add composition rules for Makasar
+ and Lontara. Add sample texts and input methods.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Makasar and Buginese.
+ * lisp/leim/quail/indonesian.el ("makasar") ("lontara"):
+ New input methods.
+
+ * etc/HELLO: Add Makasar and Buginese greetings.
+ * etc/NEWS: Announce the new language environments.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Slightly optimize x_check_errors as well
+
+ * src/xterm.c (x_check_errors): Don't sync if no requests were
+ made since the error trap was installed.
+
+2022-05-31 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/play/handwrite.el: Minor doc fixes.
+
+2022-05-31 Antonio Ruiz <antonioruiz.math@gmail.com> (tiny change)
+
+ Make handwrite.el printing use more of the ps-print setup
+
+ * lisp/play/handwrite.el (handwrite): Allow ps-lpr-printer to be
+ computed at runtime (bug#55733).
+
+2022-05-31 Ikumi Keita <ikumi@ikumi.que.jp> (tiny change)
+
+ Fix Display Property manual example
+
+ * doc/lispref/display.texi (Display Property): Fix syntax of
+ example (bug#55736).
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Fix replying to _NET_WM_PING during drag-and-drop
+
+ * src/xterm.c (handle_one_xevent): Test client window against
+ root window instead of using nonstandard event mask.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Implement `return-frame' for DND on NS
+
+ * src/nsselect.m (Fns_begin_drag): New argument `return-frame'.
+ (syms_of_nsselect): New defsym.
+ * src/nsterm.h (EmacsWindow): New fields.
+ * src/nsterm.m (ns_read_socket): Split parts off to
+ ns_read_socket_1.
+ (ns_read_socket_1): New function.
+ (ns_flush_display): Use that function instead.
+
+ ([EmacsWindow beginDrag:forPasteboard:]): Update for
+ return-frame.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Fix autorelease pool "straddling" during DND on NS
+
+ * src/nsterm.m (ns_mouse_position): Implement `drag-source'
+ on NS.
+ ([EmacsView draggingUpdated:]): Add autorelease pool around
+ callbacks.
+ ([EmacsWindow beginDrag:forPasteboard:]): Block input around
+ dragImage.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 in x_get_current_wm_state
+
+ * src/xterm.c (x_get_current_wm_state): When lint checking,
+ initialize reply_data to a non-null dummy value instead of to a
+ null one. This pacifies GCC 12 -Wanalyzer-null-dereference.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 in dump_queue_enqueue
+
+ * src/pdumper.c (dump_queue_enqueue): Use BASE_EQ, not EQ.
+ This pacifies GCC 12 -Wanalyzer-null-dereference.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Be more robust if doc file is corrupted
+
+ * src/doc.c (Fsnarf_documentation): Don’t dump core on a corrupted
+ doc file. Problem found by GCC 12 -Wanalyzer-null-argument.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 in Fmove_overlay
+
+ * src/buffer.c (Fmove_overlay): Use BASE_EQ, not EQ.
+ This pacifies GCC 12 -Wanalyzer-null-dereference.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 in Fx_show_tip
+
+ * src/xfns.c (Fx_show_tip): Use BASE_EQ, not EQ.
+ This pacifies GCC 12 -Wanalyzer-null-dereference.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 in xrdb.c
+
+ * src/xrdb.c (x_get_resource): Simply assign the return value.
+ This pacifies GCC 12 -Wanalyzer-use-of-uninitialized-value.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 false positive in ccl.c
+
+ * src/ccl.c: Suppress -Wanalyzer-use-of-uninitialized-value
+ in GCC 12 or later.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify CHAR_TABLE_REF_ASCII
+
+ * src/lisp.h (CHAR_TABLE_REF_ASCII): Refactor as a straightforward
+ for-loop. Redo an if-then-else to be an (!if)-else-then as this
+ is a bit cleaner, and it also works around GCC bug 105755.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Avoid undefined behavior in detect_coding routines
+
+ * src/coding.c (detect_coding): Always initialize all
+ components of detect_info, so that detect_coding_utf_8 etc.
+ do not have undefined behavior when they read detect_info.checked.
+ This bug is not likely to cause problems on real systems.
+ Problem found by GCC 12 -fanalyzer.
+ (detect_coding_system): Use consistent style with detect_coding
+ initialization.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 -fanalyzer in x_popup_menu_1
+
+ * src/menu.c (x_popup_menu_1): Rework to avoid unnecessary
+ initialization and test. This also pacifies GCC 12.
+
+2022-05-31 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 -Wanalyzer-use-of-uninitialized-value
+
+ * lib-src/etags.c (readline_internal): Do not copy a pointer to
+ freed storage, as that has undefined behavior even if the pointer
+ is not dereferenced.
+ (relative_filename): Avoid a backward scan by remembering where
+ the last slash was. This is a bit faster, and pacifies a GCC
+ false alarm.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes displaying menu help text on NS
+
+ * src/nsterm.m (ns_flush_display): Run event loop manually,
+ avoiding a double free of an autorelease pool.
+
+2022-05-31 Po Lu <luangruo@yahoo.com>
+
+ Fix processing of DND events on GTK
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Clear `current_count'
+ and `current_hold_quit' after calling gtk_main_iteration.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Fix unused variables on GTK
+
+ * src/xterm.c (x_wait_for_cell_change): Fix unused variables
+ on GTK builds.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Fix initialization of `hold_quit' during DND
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Use `EVENT_INIT'
+ instead of just setting type to NO_EVENT.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Prevent events from being lost waiting for selections on GTK
+
+ * src/xterm.c (x_wait_for_cell_change): Use GTK to iterate the
+ main loop so events reach the toolkit.
+
+2022-05-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-05-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'debug-timer-check' on MS-Windows
+
+ * src/w32proc.c (w32_raise): New function.
+ * src/atimer.c (raise) [WINDOWSNT]: Redirect to 'w32_raise'.
+
+2022-05-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/project.el: Improve file-reading history and default
values.
+
+ (project-find-file): Use relative file name of the
+ currently visited file as an alternative default value.
+ (project-find-file-in, project-find-dir): Use 'file-name-history'
(bug#55267).
+
+2022-05-30 Mattias Engdegård <mattiase@acm.org>
+
+ Nonrecursive Lisp reader (bug#55676)
+
+ Restructure the reader to be nonrecursive so that it is not limited by
+ the C stack or crashes Emacs when reading deeply nested data.
+ This also improves performance.
+ A few minor bugs were fixed:
+
+ - (a .{NBSP}b) where {NBSP} is a non-breaking space (U+00A0) is now
+ the dotted pair (a . b), not the 3-element list (a \. b), since U+00A0
+ is treated as whitespace everywhere else.
+ - #_ with no symbol following is now equivalent to ## (empty interned
+ symbol), not #: (empty uninterned symbol).
+
+ * src/alloc.c (garbage_collect): Call mark_lread.
+ * src/lread.c (readevalloop): Use read0 instead of read_list.
+ (stackbufsize): Increase to 1024, now that read0 isn't recursive.
+ (invalid_radix_integer): Buffer overflow check.
+ (read1, read_list, read_vector): Remove.
+ (read_char_literal, read_string_literal)
+ (hash_table_from_plist, record_from_list, vector_from_rev_list)
+ (bytecode_from_rev_list, char_table_from_rev_list)
+ (sub_char_table_from_rev_list, string_props_from_rev_list)
+ (read_bool_vector, skip_lazy_string, symbol_char_span)
+ (skip_space_and_comments)
+ (enum read_entry_type, struct read_stack_entry, struct read_stack)
+ (rdstack, mark_lread, read_stack_top, read_stack_pop)
+ (read_stack_empty_p, grow_read_stack, read_stack_push): New.
+ (read0): Rewrite to be nonrecursive.
+ * test/src/lread-tests.el (lread-deeply-nested, lread-misc): New tests.
+
+2022-05-30 Mattias Engdegård <mattiase@acm.org>
+
+ Fix atimer setting and overdue expiration (bug#55628)
+
+ * src/atimer.c (set_alarm): If the atimer has already expired, signal
+ it right away instead of postponing it further. Previously this could
+ occur repeatedly, blocking atimers indefinitely.
+ Also only use `alarm` as fallback if `setitimer` is unavailable, not
+ both at the same time (which makes no sense, and they both typically
+ use the same mechanism behind the curtains).
+
+ * test/src/eval-tests.el (eval-tests/funcall-with-delayed-message):
+ New test, verifying proper functioning of funcall-with-delayed-message
+ which also serves as test for this bug (which also caused
+ debug-timer-check to fail, but that test is only run when Emacs is
+ built with enable-checking).
+
+2022-05-30 Eli Zaretskii <eliz@gnu.org>
+
+ Add more subscript and superscript characters to "C-x 8"
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Add more
+ numerical superscript and subscript characters. (Bug#55722)
+
+2022-05-30 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Rejang script (bug#55718)
+
+ * lisp/language/indonesian.el ("Rejang"): New language environment.
+ Add composition rules for Rejang. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Rejang.
+ * lisp/leim/quail/indonesian.el ("rejang"): New input method.
+
+ * etc/HELLO: Add a Rejang greeting.
+ * etc/NEWS: Announce the new language environment.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Get rid of `defvar-keymap' in flymake.el
+
+ * lisp/progmodes/flymake.el (flymake-mode-map)
+ (flymake-diagnostics-buffer-mode-map): Stop using
+ `defvar-keymap', since Flymake only requires Emacs 26.1.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Fix `dnd-indicate-insertion-point' on Mac OS
+
+ * lisp/term/ns-win.el (ns-handle-drag-motion): Remove debugging
+ code.
+
+ * src/nsterm.m ([EmacsView draggingUpdated:]): Redisplay here
+ instead.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Update frame positions on Haiku after changing Z group
+
+ * src/haiku_support.cc (EmacsScreenChangeMonitor): Fix comment.
+ * src/haikufns.c (haiku_set_z_group): Ask for a position update,
+ since changing the Z group might change the feel of the window.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Fix cursor flushing inside minibuffers on NS
+
+ * src/nsterm.m (EV_TRAILER): Fix coding style.
+ (ns_flush_display): New function.
+ (ns_redisplay_interface): Register `flush_display'.
+
+2022-05-30 Po Lu <luangruo@yahoo.com>
+
+ Fix hangs when x-get-selection is called inside a popup menu
+
+ * src/xselect.c (wait_for_property_change):
+ (x_get_foreign_selection): Use `x_wait_for_cell_change' if input
+ is blocked. (bug#22214)
+ * src/xterm.c (x_wait_for_cell_change): New function.
+ * src/xterm.h: Update prototypes.
+
+2022-05-30 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1b7b69e764 Some Tramp cleanup on MS Windows
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ Try to implement `dnd-indicate-insertion-point' on macOS
+
+ * lisp/term/ns-win.el (ns-handle-drag-motion): New function.
+ * src/nsterm.m ([EmacsView draggingUpdated:]): Call that
+ function instead.
+ (syms_of_nsterm): Clean up old style defvars and add new
+ defvar for the DND drag function.
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ Further clean up DND target handling
+
+ * src/xfns.c (Fx_begin_drag): Alloca target list.
+
+ * src/xterm.c (x_set_dnd_targets): Copy the given targets list.
+ (x_dnd_begin_drag_and_drop): Record freeing the targets list on
+ the specpdl.
+ (handle_one_xevent, x_dnd_cleanup_drag_and_drop)
+ (x_connection_closed, x_delete_terminal): Stop calling
+ `x_set_dnd_targets' manually to free the targets list.
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when loading Postscript images
+
+ * src/xterm.c (handle_one_xevent): Catch errors around
+ `x_kill_gs_process'.
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ Use XDrawPoint to clear relief rect corners
+
+ * xterm.c (x_clear_point): New function.
+ (x_draw_relief_rect): Use that instead.
+
+2022-05-29 Paul Eggert <eggert@cs.ucla.edu>
+
+ Document decoded-time-string issue on 6-elt args
+
+ * lisp/simple.el: Document problematic use of decoded-time-dst on
+ 6-element args.
+
+2022-05-29 Paul Eggert <eggert@cs.ucla.edu>
+
+ ISO 8601 strings sans "Z" don’t specify DST flag
+
+ * lisp/calendar/iso8601.el (iso8601--zone-dst): New function.
+ (iso8601-parse, iso8601-parse-time): Use it.
+ (iso8601--decoded-time): Default dst to -1, not nil.
+ * test/lisp/calendar/iso8601-tests.el (test-iso8601-combined)
+ (standard-test-time-of-day-zone): Adjust to new behavior.
+
+2022-05-29 Paul Eggert <eggert@cs.ucla.edu>
+
+ Doc fix for dst flag
+
+ * doc/lispref/os.texi (Time Conversion): Note Common Lisp dst differs.
+
+2022-05-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/shell.el (shell): Fix last change
+
+ Wrap the file-name prompt within `with-connection-local-variables` as
+ it was before the previous change.
+ While at it, make sure we set the `default-directory` of
+ the actual shell buffer after querying the user.
+
+2022-05-29 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Batak script (bug #55694)
+
+ * lisp/language/indonesian.el ("Batak"): New language environment.
+ Add composition rules for Batak. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Batak.
+ * lisp/leim/quail/indonesian.el ("batak"): New input method.
+ Rename TITLE of balinese, javanese and sundanese in
+ ("quail-define-package").
+
+ * etc/HELLO: Add a Batak greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix hfy-etags-cmd type
+
+ * lisp/htmlfontify.el (hfy-etags-cmd): Fix the type -- this
+ variable usually ends up being nil.
+
+2022-05-29 Daniel Martín <mardani29@yahoo.es>
+
+ Fix reference to help-enable-variable-value-editing
+
+ * lisp/help-mode.el (help-mode): Fix docstring to reference the
+ correct variable name.
+ * lisp/ldefs-boot.el (help-mode): Ditto (bug#55705).
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ * etc/tutorials/TUTORIAL.cn (INSTALLING PACKAGES): Translate
+ from English.
+
+2022-05-29 Michael Albinus <michael.albinus@gmx.de>
+
+ Some Tramp cleanup on MS Windows
+
+ * lisp/net/tramp.el (tramp-restricted-shell-hosts-alist): Do not add
+ localhost when `tramp-encoding-shell' is a POSIX shell.
+
+ * test/lisp/net/tramp-tests.el (tramp-test31-interrupt-process):
+ Skip on MS Windows.
+
+2022-05-29 Mattias Engdegård <mattiase@acm.org>
+
+ Traverse record literals in byte-compile--first-symbol-with-pos
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--first-symbol-with-pos):
+ Traverse record literals as well as vectors. Either is rather
+ pointless but there were some strong feelings about it.
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ * admin/alloc-colors.c: Fix missing declaration.
+
+2022-05-29 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Make `count-words' count sentences.
+
+ * lisp/textmodes/paragraphs.el (count-sentences): New function.
+ * lisp/simple.el (count-words--format): Update format for showing
+ sentences.
+ (count-words): Also count sentences.
+
+ * lisp/simple.el (count-words):
+ * etc/NEWS:
+ * doc/emacs/basic.texi (Position Info): Update documentation for
+ sentence counting.
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ Keep display mm width and height up to date after changes
+
+ * src/xfns.c (Fx_display_mm_width, Fx_display_mm_height): Use
+ new fields if they are set.
+ * src/xterm.c (handle_one_xevent): Set new fields on RRNotify if
+ the screen is correct.
+ * src/xterm.h (struct x_display_info): New fields
+ `screen_mm_width', `screen_mm_height'.
+
+2022-05-29 Po Lu <luangruo@yahoo.com>
+
+ Make DND target list lifecycle a little clearer
+
+ * src/xfns.c (Fx_begin_drag): Pass target atoms and ntargets to
+ x_dnd_begin_drag_and_drop instead.
+ * src/xterm.c (x_set_dnd_targets): Make static.
+ (x_clear_dnd_targets): Delete function.
+ (x_dnd_begin_drag_and_drop): Adjust to set targets here instead.
+ * src/xterm.h: Update prototypes.
+
+2022-05-29 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f9ee83bfb9 do_switch_frame: before leaving mini-window, check other (...
+ 908e2e09d0 Fix commands used to produce on-line HTML docs
+ fff770fb97 Fix a bad cross-reference in elisp.pdf
+ ebea3415b0 Fix documentation of 'string-pad'
+
+2022-05-28 Po Lu <luangruo@yahoo.com>
+
+ Fix pending window changes in haiku_set_window_size
+
+ * src/haikuterm.c (haiku_set_window_size): Wait for
+ FRAME_RESIZED events, then call `do_pending_window_change'.
+ (haiku_read_socket): Allow waiting for FRAME_RESIZED events.
+
+2022-05-28 Po Lu <luangruo@yahoo.com>
+
+ Improve error trapping on X
+
+ * xterm.c (x_uncatch_errors, x_had_errors_p): Don't sync if no
+ request was made since the error trap was installed.
+
+2022-05-28 kobarity <kobarity@gmail.com>
+
+ Fix Python Hideshow problem with backslash escaped newlines
+
+ * lisp/progmodes/python.el (python-rx)
+ (python-nav-beginning-of-defun-regexp): Allow
+ python-nav-*-defun to handle backslash escaped newlines
+ (bug#55690).
+
+2022-05-28 Visuwesh <visuweshm@gmail.com>
+
+ pp--insert-lisp: Don't bug out on certain forms at beginning of buffer
+
+ * pp.el (pp--insert): Check if point is in beginning of buffer before
+ calling `looking-back' (bug#55677).
+
+2022-05-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ with-connection-local-variables: Avoid code duplication
+
+ Move the bulk of the code of `with-connection-local-variables` into
+ a separate function, which both avoids duplicating that code but also
+ avoids duplicating the code passed as the body of
+ a `with-connection-local-variables`. Also makes it easier to
+ debug the code, or change the implementation of
+ `with-connection-local-variables` without having to recompile all
+ the users.
+
+ * lisp/files-x.el (with-connection-local-variables-1): New function,
+ extracted from `with-connection-local-variables`.
+ (with-connection-local-variables): Use it.
+
+2022-05-28 Alan Mackenzie <acm@muc.de>
+
+ do_switch_frame: before leaving mini-window, check other (mru) window
is live
+
+ This fixes bug#55684. There, with a minibuffer-only frame at start up,
+ Emacs tried to switch to this frame, whose selected window was the
+ mini-window. There is no other active window in this frame, so the
+ attempt to swith to another window failed.
+
+ * src/frame.c (do_switch_frame): On switching to a frame whose selected
+ window is as above, before selecting the most recently used window,
check
+ this ostensible window is an actual live window. Otherwise leave the
+ mini-window selected.
+
+2022-05-28 Eli Zaretskii <eliz@gnu.org>
+
+ Fix commands used to produce on-line HTML docs
+
+ * admin/admin.el (manual-meta-string): Only include the first
+ line, and move the rest...
+ (manual-links-string): ...to this new string.
+ (manual-html-fix-headers): Don't remove the '<meta name=' elements
+ produced by makeinfo, especially not the 'name="viewport"' one,
+ which is essential for viewing the docs on mobile devices.
+ Reported by "Facundo Lander via RT" <webmasters-comment@gnu.org>,
+ see gnu.org ticket #1840138.
+
+2022-05-28 Valenoern <valenoern@distributary.network> (tiny change)
+
+ Support html template tag in shr
+
+ * lisp/net/shr.el: Add shr-tag-template as a dummy tag.
+
+2022-05-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix native-comp of trampolines after previous change
+
+ * lisp/emacs-lisp/comp.el (comp--native-compile): Don't delete the
+ explicitly specified output file, just temp files.
+
+2022-05-28 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Sundanese script (bug#55686)
+
+ * lisp/language/indonesian.el ("Sundanese"): New language environment.
+ Add composition rules for Sundanese. Add sample text and input
+ method.
+ Improve composition rules for Balinese and Javanese.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Sundanese.
+ * lisp/leim/quail/indonesian.el ("sundanese"): New input method.
+
+ * etc/HELLO: Add a Sundanese greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-28 Eli Zaretskii <eliz@gnu.org>
+
+ Fix a bad cross-reference in elisp.pdf
+
+ * doc/lispref/control.texi (pcase Macro): Fix a conditional
+ cross-reference (bug#55689).
+
+2022-05-28 Po Lu <luangruo@yahoo.com>
+
+ Fix dired drag-and-drop for certain Motif programs
+
+ * lisp/dired.el (dired-mouse-drag): Announce _DT_NETFILE in
+ targets list as well.
+ * lisp/select.el (xselect--encode-string): New arg
+ `prefer-string-to-c-string'.
+ (xselect-convert-to-filename): Convert to TEXT instead of
+ C_STRING, but use STRING if the type would otherwise be
+ C_STRING.
+ (xselect-dt-netfile-available-p, xselect-tt-net-file)
+ (xselect-convert-to-dt-netfile): New functions.
+ (selection-converter-alist): New selection converter.
+
+2022-05-28 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'string-pad'
+
+ * doc/lispref/strings.texi (Creating Strings): Fix description of
+ 'string-pad'. (Bug#55688)
+
+2022-05-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d3cde28b03 Fix more occurrences of renamed kmacro-keymap command
+ bd5c95a90d Mention "unspecified-fg" and "unspecified-bg" in some doc ...
+
+2022-05-28 Po Lu <luangruo@yahoo.com>
+
+ Add more cursor bitmaps on Haiku
+
+ * src/haikufns.c (cursor_bitmaps_for_id): Add hourglass cursor.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation on what callers of `x-begin-drag' should do
+
+ * doc/lispref/frames.texi (Drag and Drop):
+ * src/xfns.c (Fx_begin_drag): Improve documentation of how the
+ chosen action should be performed.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation of `x-begin-drag'
+
+ * src/xfns.c (Fx_begin_drag): Fix typos and improve wording.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Improve safety of various DND callbacks
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Restore selection
+ events if DND is no longer in progress and don't call
+ x-dnd-movement-function.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Fix frame destruction issues and misuse of x_get_atom_name
+
+ * src/frame.c (delete_frame): Prevent deleting the dnd frame
+ while waiting for finish as well.
+ * src/xselect.c (Fx_get_atom_name): Clean up code and fix
+ uninitialized use of need_sync.
+ * src/xterm.c (x_dnd_send_unsupported_drop, x_dnd_send_drop)
+ (handle_one_xevent): Clean up usage of x_get_atom_name.
+ (x_get_atom_name): Accept NULL for need_sync.
+
+ * src/xterm.h: Update declarations.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Fix build on earlier versions of Mac OS X
+
+ * src/nsselect.m (ns_decode_data_to_pasteboard): Respect
+ NS_USE_NSPasteboardTypeFileUrl.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Add file dragging support to NS port
+
+ * lisp/dired.el (dired-mouse-drag-files): Document that
+ `dired-mouse-drag-files' now works on NS.
+
+ * lisp/term/ns-win.el (x-begin-drag): Handle FILE_NAME.
+ * src/nsselect.m (ns_decode_data_to_pasteboard): Handle file URL
+ type.
+ (ns_lisp_to_pasteboard, Fns_begin_drag): Handle new type `file'.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Improve DND documentation
+
+ * doc/lispref/frames.texi (Drag and Drop):
+ * src/xfns.c (Fx_begin_drag): Document that x-begin-drag may
+ return immediately if no mouse buttons are held down.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Fix x_dnd_movement_frame detection on GTK builds
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Make sure movement
+ frame is on the correct display.
+
+2022-05-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove stray decl of nonexistent var
+
+ * src/lisp.h (symbols_with_pos_enabled): Remove decl.
+
+2022-05-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ decoded-time-set-defaults now leaves DST alone
+
+ * lisp/calendar/time-date.el (decoded-time-set-defaults):
+ Don’t mess with decoded-time-dst (Bug#55635).
+
+2022-05-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix unlikely null pointer dereference
+
+ * src/xselect.c (Fx_get_atom_name): Fix unlikely core dump when
+ build_string is called on a null pointer. Found by GCC -fanalyzer.
+
+2022-05-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ Add ATTRIBUTE_DEALLOC to extern functions
+
+ This can help static checking. It’s not as important for static
+ functions, where GCC can figure this stuff out own its own.
+ * src/sysstdio.h (emacs_fopen): Add ATTRIBUTE_DEALLOC (fclose, 1).
+ * src/tparam.h (tparam): Add ATTRIBUTE_DEALLOC_FREE.
+ Include stdlib.h so that ‘free’ is declared.
+ * src/xterm.h (x_get_atom_name): Add ATTRIBUTE_DEALLOC_FREE.
+
+2022-05-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -Wsuggest-attribute-malloc
+
+ * src/xterm.h (x_get_atom_name): Add ATTRIBUTE_MALLOC.
+
+2022-05-27 Juri Linkov <juri@linkov.net>
+
+ Fix navigation in the *Completions* buffer and enable more tests
(bug#54374)
+
+ * lisp/ido.el: Use first-completion instead of next-completion.
+
+ * lisp/minibuffer.el (completion--insert): Put completion--string
+ text property on prefix and suffix as well.
+
+ * lisp/simple.el (first-completion, last-completion): New commands.
+ (next-completion): Rewrite to fix many bugs reported in
+ bug#54374, bug#55289, bug#55430.
+ (choose-completion): Use the text property completion--string that
+ allows to select a completion when point is on its prefix or suffix.
+ (switch-to-completions): Use first-completion instead of
next-completion,
+ and last-completion instead of previous-completion.
+
+ * test/lisp/minibuffer-tests.el (completion-auto-select-test)
+ (completion-auto-wrap-test, completions-header-format-test)
+ (completions-affixation-navigation-test): Uncomment fixed lines.
+
+2022-05-27 Eli Zaretskii <eliz@gnu.org>
+
+ Extend 'C-x 8 =' to produce characters with macron
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Add
+ several new sequences for characters with macron. (Bug#55668)
+
+2022-05-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/shell.el (shell): Query shell file name from `interactive`
+
+ This avoids the use of the brittle `called-interactively-p`
+ and makes it easier to start a shell buffer running another shell than
+ your usual one.
+
+2022-05-27 Eli Zaretskii <eliz@gnu.org>
+
+ Improve font selection on MS-Windows
+
+ The Arial Unicode MS font claims in its USB (Unicode Subset
+ Bitfields) values support for several scripts for which it
+ doesn't actually have glyphs. This sometimes caused Emacs to
+ decide to use Arial Unicode MS for some script, only to
+ discover later that there are no glyphs for that script's
+ characters. This change fixes the USB values according to
+ actual font coverage, as determined by BabelMap.
+ * src/w32font.c (add_font_entity_to_list): Fix USB values of Arial
+ Unicode MS font according to its actual coverage of scripts.
+
+2022-05-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make make-decoded-time use -1 for dst unless given
+
+ * lisp/calendar/time-date.el (make-decoded-time): DST -1 is the
+ value for "doesn't know", not nil (bug#55635).
+
+2022-05-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make package-update-all also refresh the list
+
+ * lisp/emacs-lisp/package.el (package-update-all): Also refresh
+ package list.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Fix GNUstep build
+
+ * src/nsterm.h (NSPasteboardNameGeneral): Fix definition.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Fix NS drag and drop on macOS
+
+ * lisp/term/ns-win.el (gui-backend-set-selection):
+ * src/nsselect.m (Fns_begin_drag): Fix deprecation warnings and
+ selection/value mixup.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into x-window-xwidget
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Implement some drag and drop functions on NS
+
+ * lisp/term/ns-win.el (ns-selection-exists-p):
+ (gui-backend-set-selection):
+ (x-begin-drag): New functions and selection types.
+ * src/nsfns.m (Fns_get_resource):
+ (Fns_set_resource):
+ (Fx_server_max_request_size): Fix coding style.
+ * src/nsselect.m (ns_decode_data_to_pasteboard):
+ (ns_lisp_to_pasteboard):
+ (ns_dnd_action_to_operation):
+ (ns_dnd_action_from_operation):
+ (Fns_begin_drag): New functions.
+ (syms_of_nsselect): New subrs.
+ * src/nsterm.h (EmacsWindow): New fields and messages.
+ (NSPasteboardNameGeneral): New define.
+ * src/nsterm.m ([EmacsView mouseDown:]): Store last mouse event.
+ ([EmacsWindow initWithEmacsFrame:fullscreen:screen:]): Clear that event.
+ ([EmacsWindow dealloc]): Free last mouse event.
+
+2022-05-27 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/progmodes/asm-mode.el: Minor doc fixes.
+
+2022-05-27 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in some progmodes
+
+ * lisp/progmodes/asm-mode.el (asm-mode-map):
+ * lisp/progmodes/bug-reference.el (bug-reference-map):
+ * lisp/progmodes/erts-mode.el (erts-mode-map):
+ * lisp/progmodes/flymake.el (flymake-mode-map)
+ (flymake-diagnostics-buffer-mode-map):
+ * lisp/progmodes/icon.el (icon-mode-map):
+ * lisp/progmodes/js.el (js-mode-map):
+ * lisp/progmodes/m4-mode.el (m4-mode-map):
+ * lisp/progmodes/mixal-mode.el (mixal-mode-map):
+ * lisp/progmodes/scheme.el (scheme-mode-map): Prefer defvar-keymap.
+
+2022-05-27 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler warning about x-pointer-invisible
+
+ * lisp/avoid.el (x-pointer-invisible): Declare to silence
+ byte-compiler.
+
+2022-05-27 Juri Linkov <juri@linkov.net>
+
+ Fix more occurrences of renamed kmacro-keymap command
+
+ * doc/emacs/kmacro.texi (Basic Keyboard Macro): Fix documentation
+ after recent kmacro-redisplay command name change.
+
+2022-05-27 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Javanese script (bug#55667)
+
+ * lisp/language/indonesian.el ("Javanese"): New language environment.
+ Add composition rules for Javanese. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars):
+ Support Javanese.
+ * lisp/leim/quail/indonesian.el ("javanese"): New input method.
+
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ * etc/PROBLEMS: Document problems with PGTK input methods.
+
+2022-05-27 Po Lu <luangruo@yahoo.com>
+
+ Update comments in some X code
+
+ * src/xterm.c (x_parse_color): Update comment.
+ (syms_of_xterm): Add new debugging option too.
+
+2022-05-27 Eli Zaretskii <eliz@gnu.org>
+
+ Mention "unspecified-fg" and "unspecified-bg" in some doc strings
+
+ * lisp/faces.el (face-foreground, face-background)
+ (foreground-color-at-point, background-color-at-point):
+ * lisp/color.el (color-name-to-rgb): Mention "unspecified-fg" and
+ "unspecified-bg" pseudo-colors on TTY frames. (Bug#55623)
+
+2022-05-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9283508fb2 Fix format specifiers in tramp-adb.el
+ a9f17ccce3 ; Fix some doc typos and minor language issues
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Fix XI scroll valuator reset on X Toolkit builds
+
+ * src/xterm.c (handle_one_xevent): Reset valuators on XI_Leave
+ if leave->event is an edit widget as well.
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Improve lookup efficiency of color cache and prevent leaking
+
+ * src/xterm.c (x_parse_color): Move recently used colors to the
+ start of the cache and free unused entries when there are too
+ many.
+ (x_term_init, x_delete_display): Initialize and free new fields.
+ * src/xterm.h (struct x_display_info): New field
+ `color_names_length'.
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Handle allocation errors when creating menu items on Haiku
+
+ * src/haiku_support.cc (class EmacsMenuItem): Don't abort on
+ failed strdup.
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Fix longjmp/siglongjmp mixup
+
+ * src/xterm.c (xm_drag_window_io_error_handler)
+ (x_dnd_io_error_handler): Use `siglongjmp'. Reported by Ken
+ Brown <kbrown@cornell.edu>.
+
+2022-05-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-05-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ package-activate-all: Use the quickstart more conservatively
+
+ * lisp/emacs-lisp/package.el (package-activate-all): Don't use the
+ quickstart file if some packages have already been activated.
+
+2022-05-26 Sam Steingold <sds@gnu.org>
+
+ Avoid duplicates in `package-activated-list'
+
+ * lisp/emacs-lisp/package.el (package-quickstart-refresh): Calling
+ `package-activate-all' twice leads to duplicates in
+ `package-activated-list' - avoid that.
+
+2022-05-26 Juri Linkov <juri@linkov.net>
+
+ Test suite for Completions UI (bug#54374)
+
+ * test/lisp/minibuffer-tests.el (completing-read-with-minibuffer-setup):
+ New macro based on xdisp-tests--in-minibuffer.
+ (completion-auto-help-test, completion-auto-select-test)
+ (completion-auto-wrap-test, completions-header-format-test)
+ (completions-affixation-navigation-test): New tests.
+
+2022-05-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ eval.c: New functions `defvar-1` and `defconst-1` (bug#55156)
+
+ The bytecode interpreter can't directly call special forms, so
+ the byte-compiler usually converts special forms into some sequence of
+ byte codes (basically, providing a duplicate definition of the special
+ form). There are still two exceptions to this: `defconst` and `defvar`,
+ where the compiler instead generates a convoluted chunk of code like:
+
+ (funcall '(lambda (x) (defvar <sym> x <doc>)) <value>)
+
+ where the quote makes sure we keep the function non-compiled, so as
+ to end up running the special form at run time.
+
+ Get rid of this workaround by introducing `defvar-1` and `defconst-1`
+ which provide a *functional* interface to the functionality of the
+ corresponding special form.
+
+ * src/eval.c (defvar, Fdefvar_1, Fdefconst_1): New functions, extracted
from
+ `Fdefvar` and `Fdefconst`.
+ (Fdefvar, Fdefconst): Use them.
+ (syms_of_eval): `defsubr` the new functions.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-tmp-var): Delete const.
+ (byte-compile-defvar): Simplify using the new functions.
+
+ * doc/lispref/variables.texi (Defining Variables): Adjust the doc of
+ `defvar` to reflect the actual semantics implemented.
+
+2022-05-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * test/lisp/files-resources/compile-utf8.el: Use lexical-binding
+
+ * etc/themes/leuven-dark-theme.el: Use lexical-binding
+
+2022-05-26 Hayden Shenk <hayden.shenk@zetier.com> (tiny change)
+
+ Fix format specifiers in tramp-adb.el
+
+ * lisp/net/tramp-adb.el (tramp-adb-get-device): Fix format
+ specifiers for port. (Bug#55651)
+
+2022-05-26 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Balinese script (bug#55648)
+
+ * lisp/language/indonesian.el ("Balinese"): New language environment.
+ Add composition rules for Balinese. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Balinese.
+ * lisp/leim/quail/indonesian.el ("balinese"): New input method.
+ * lisp/loadup.el: Preload lisp/language/indonesian.el.
+
+ * etc/HELLO: Add a Balinese greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-26 Mattias Engdegård <mattiase@acm.org>
+
+ Faster and less recursive byte-compile--first-symbol-with-pos
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--first-symbol-with-pos)
+ (byte-compile--warning-source-offset):
+ Remove recursion for cdr-traversal of lists, and optimise (bug#55414).
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Handle alternate actions for Motif drop targets
+
+ * src/xterm.c (xm_side_effect_from_action): Handle
+ `XdndActionAsk'.
+ (xm_operations_from_actions): New function.
+ (xm_send_top_level_leave_message, x_dnd_cleanup_drag_and_drop)
+ (x_dnd_update_state, handle_one_xevent, x_connection_closed):
+ Use those actions when building a side effect.
+ (x_dnd_begin_drag_and_drop): Keep track of the set of
+ alternative drag-and-drop actions.
+
+2022-05-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make comp--native-compile delete the temp file it creates
+
+ * lisp/emacs-lisp/comp.el (comp--native-compile): Delete the
+ temporary files we create (bug#55611).
+
+2022-05-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make memory-report not bug out with symbols with positions
+
+ * lisp/emacs-lisp/memory-report.el (memory-report--object-size-1):
+ Don't bug out when there are symbols with positions.
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Fix the `x_trace_wire' option
+
+ * src/xterm.c (x_trace_wire):
+ (x_term_init): Fix debugging code for modern C and Xlib.
+
+2022-05-26 Po Lu <luangruo@yahoo.com>
+
+ Use x_get_atom_name for some more things
+
+ * src/xterm.c (x_dnd_send_unsupported_drop, x_dnd_send_drop):
+ Use x_get_atom_name instead of XGetAtomName.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ * src/xselect.c (Fx_register_dnd_atom): Use x_intern_cached_atom.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ Make X error checking more asynchronous
+
+ This makes some operations (such as x-get-atom-name and
+ x-change-window-property) up to 2600x faster by avoiding calls
+ to XSync when setting up an error handler, and when checking for
+ or uncatching errors if all requests were already processed.
+
+ * src/xterm.c (X_COMPARE_SERIALS): New macro.
+ (struct x_error_message_stack): Add new field `first_request'.
+ (x_find_error_handler): New function.
+ (x_error_catcher): New parameter `stack'. Use it instead.
+ (x_catch_errors_with_handler): Keep a record of the next
+ protocol request serial inside the stack entry.
+ (x_uncatch_errors, x_check_errors, x_had_errors_p, x_clear_errors)
+ (x_error_handler): Avoid XSync if all requests were processed by
+ the X server and look for the error handler matching the display
+ and request serial when processing errors.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ Improve x_get_atom_name for some predefined atoms
+
+ * src/xterm.c (x_get_atom_name): Handle XSETTINGS and cm atoms.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ Fix 32-bit warnings again
+
+ * src/print.c (struct print_stack_entry): Make
+ u.list.tortoise_idx intmax_t.
+
+2022-05-25 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Limbu script (bug#55621)
+
+ * lisp/language/indian.el ("Limbu"): New language environment.
+ Add composition rules for Limbu. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Limbu.
+ * lisp/leim/quail/indian.el ("limbu"): New input method.
+
+ * etc/HELLO: Add a Limbu greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-25 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 86b49d5865 ; * etc/NEWS: Announce changes in 'desktop-kill'. (Bug#55...
+ d5ccf2621a ; Fix last change
+ f1c1fd7184 Improve documentation of mail-user-agent.
+ b05d1e9b98 ; * lisp/desktop.el: Update the commentary. (Bug#55560)
+ 139bfa1a08 More fixes in abbrev.el doc strings
+ d80dea6036 Add note about Tramp completion to completion-styles doc s...
+ 9e7c0cf57d Remove mention of removed nnimap-nov-is-evil variable
+ 90aae0bca2 Improve documentation strings and prompts in abbrev.el
+ dfa3e6f424 Restore the Fselect_window call in gui_consider_frame_title.
+ de35e9728f Advise against settings in the MS-Windows system registry
+ 3ffa3d3403 ; Minor addition to make-tarball.txt
+ 7dc026f9ea Fix kmacro-keymap binding after previous change
+ 4f0fd54bc4 Add glossary entries for "interactively"
+ af1c05a3c4 Fix the name of a kmacro command.
+
+ # Conflicts:
+ # etc/NEWS
+ # lisp/abbrev.el
+
+2022-05-25 Juri Linkov <juri@linkov.net>
+
+ * lisp/subr.el (insert-for-yank): Add nil to run-hook-wrapped to keep
looping.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ Lower the roundtrip overhead of x-get-atom-name by 50% for common atoms
+
+ * src/xselect.c (Fx_get_atom_name):
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Use that instead. Don't
+ sync to handle errors if using `x_get_atom_name' resulted in no
+ protocol request being made.
+ (x_get_atom_name): New function.
+ * src/xterm.h: Update prototypes.
+
+2022-05-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make yank-transform-functions into defvar
+
+ * doc/lispref/text.texi (Yanking): Adjust.
+ * lisp/simple.el (yank-transform-functions): Make into defvar
+ because it's not that useful as a user option.
+
+2022-05-25 Jim Porter <jporterbugs@gmail.com>
+
+ Reset 'eshell-in-pipeline-p' when interpolating commands
+
+ * lisp/eshell/esh-cmd.el (eshell-subcommand-bindings)
+ (eshell-command-to-value): Set 'eshell-in-pipeline-p' to nil.
+
+ * test/lisp/eshell/eshell-tests.el
+ (eshell-test/subcommand-reset-in-pipeline)
+ (eshell-test/lisp-reset-in-pipeline): New tests (bug#55620).
+
+2022-05-25 Paul W. Rankin <pwr@bydasein.com>
+
+ Change variable which-func-unknown to "n/a"
+
+ * lisp/progmodes/which-func.el (which-func-unknown): Change string
+ displayed in mode-line from "???" to "n/a"; the former appears to
+ indicate an error whereas the latter is more indicative that the
+ current function is not known.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ Add more predefined atoms for the benefit of DND code
+
+ * src/xterm.c (x_intern_cached_atom): Handle `CARDINAL' and
+ `WINDOW' as well.
+
+2022-05-25 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap in url/*.el
+
+ * lisp/url/url-cookie.el (url-cookie-mode-map):
+ * lisp/url/url-dired.el (url-dired-minor-mode-map): Prefer
+ defvar-keymap.
+
+2022-05-25 Stefan Kangas <stefan@marxist.se>
+
+ Remove some ancient Emacs compat code
+
+ * lisp/url/url-util.el (url-percentage): Remove Emacs 19 compat
+ code.
+
+ * lisp/erc/erc-backend.el (erc-server-coding-system):
+ * lisp/gnus/mm-util.el (mm-iso-8859-x-to-15-table): Remove Emacs
+ 19 compat code; coding-system-p is fboundp.
+
+ * lisp/progmodes/cfengine.el (cfengine-fill-paragraph): Remove Emacs
+ 21 compat code.
+
+2022-05-25 Po Lu <luangruo@yahoo.com>
+
+ Improve atom interning in `x-change-window-property'
+
+ * src/xfns.c (Fx_change_window_property): Improve doc string and
+ use `x_intern_cached_atom'.
+ * src/xterm.c (x_intern_cached_atom): New argument
+ `predefined_only'. All callers changed.
+ * src/xterm.h: Update prototypes.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Fix cursor color adjustment on Haiku
+
+ * src/haikufns.c (haiku_set_foreground_color): Maybe set cursor
+ color correctly if it was equal to the old foreground color.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't have edebug bug out if C-x is rebound
+
+ * lisp/emacs-lisp/edebug.el (edebug-global-prefix): Don't bug out
+ if C-x has been rebound (bug#55607).
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Add more atoms that don't need a roundtrip to intern
+
+ * src/xterm.c (x_intern_cached_atom): Handle dpyinfo atoms that
+ depend on the screen number and common selection atoms.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update edebug comments
+
+ * lisp/emacs-lisp/edebug.el: Update function name in comments
+ (bug#55607).
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix ert-run-tests-batch-and-exit doc string typo
+
+ * lisp/emacs-lisp/ert.el (ert-run-tests-batch-and-exit): Fix doc
+ string typo.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Autoload package-update-all
+
+ * lisp/emacs-lisp/package.el (package-update-all): Autoload and
+ tweak querying so that -f works.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Fix compilation on GTK when Xrandr is not present
+
+ * src/xterm.c (x_term_init): Make term always present on GTK.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix comp-mvar doc string quoting
+
+ * lisp/emacs-lisp/comp.el (comp-mvar): Fix quoting of symbol in
+ doc string.
+
+2022-05-24 Mattias Engdegård <mattiase@acm.org>
+
+ Remove f90-mode regexp ambiguity (bug#17222)
+
+ * lisp/progmodes/f90.el (f90-font-lock-keywords-2):
+ Modify regexp to be better-behaved.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't use `format-message' to make doc strings in erc-backend
+
+ * lisp/erc/erc-backend.el (define-erc-response-handler): Use
+ `format' here instead of `format-message' since Emacs will expand
+ the doc string later when the user asks for help about the symbols
+ defined.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a byte compilation warning in electric.el
+
+ * lisp/electric.el (electric-quote-mode): Quote a naked ‘ character.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make byte compilation warn about wrong quoting in doc strings
+
+ * lisp/emacs-lisp/bytecomp.el
+ (byte-compile-docstring-length-warn): Made into obsolete alias.
+ (byte-compile-docstring-style-warn): Also warn about other
+ stylistic issues.
+ (byte-compile-file-form-autoload, byte-compile-file-form-defvar)
+ (byte-compile-file-form-defvar-function, byte-compile-lambda)
+ (byte-compile-defvar, byte-compile-file-form-defalias): Adjust callers.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the final divergent single quote usages in doc strings
+
+ * lisp/view.el (view-mode-map):
+ * lisp/repeat.el (repeat-is-really-this-command):
+ * lisp/help.el (substitute-command-keys):
+ * lisp/electric.el (electric-quote-mode):
+ * lisp/cedet/srecode/texi.el (srecode-texi-texify-docstring):
+ * lisp/cedet/semantic/sort.el
+ (semantic-orphaned-member-metaparent-type): Audit usages of single
+ quotes in doc strings.
+
+2022-05-24 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix interplay between string fences and electric-pair-mode.
+
+ This is an amendment to the fix for bug #55230.
+
+ * lisp/progmodes/cc-defs.el: (c-with-string-fences): Add an edebug spec.
+
+ * lisp/progmodes/cc-cmds.el: (c-electric-pound, c-electric-brace)
+ (c-electric-slash, c-electric-star, c-electric-semi&comma,
c-electric-colon)
+ (c-electric-lt-gt, c-electric-paren): Put the final
+ c--call-post-self-insert-hook-more-safely outside of the functions'
+ c-with-string-fences.
+ (c-electric-brace, c-electric-lt-gt, c-electric-paren): Put the calls to
+ electric-pair-post-self-insert-function outside of c-with-string-fences.
+
+2022-05-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Make `yank-transform-functions` a proper hook
+
+ * lisp/subr.el (insert-for-yank): Use `run-hook-wrapped` to run
+ `yank-transform-functions`.
+ * lisp/simple.el (yank-transform-functions): Adjust accordingly.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix issue with nativecomp tests leaving files behind in /tmp
+
+ * test/src/comp-tests.el (comp-deftest): Ensure that no files are left
+ behind (bug#55611).
+
+2022-05-24 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Buhid and Tagbanwa scripts (bug#55610)
+
+ * lisp/language/philippine.el ("Buhid"): New language environment.
+ ("Tagbanwa"): New language environment.
+ Add input methods for Buhid and Tagbanwa.
+ Add sample text for Tagbanwa.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Buhid and Tagbanwa.
+ * lisp/leim/quail/philippine.el ("buhid"): New input method.
+ ("tagbanwa"): New input method.
+
+ * etc/HELLO: Add a Tagbanwa greeting.
+ * etc/NEWS: Announce the new language environments and their
+ input methods.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up a test file in /tmp
+
+ * test/src/buffer-tests.el (test-restore-buffer-modified-p): Clean
+ up autosave file in /tmp.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Add more error checking to some X functions
+
+ * src/xfns.c (Fx_change_window_property, Fx_delete_window_property)
+ (Fx_window_property, Fx_window_property_attributes): Check for
+ errors in case the window is invalid. Also use better function
+ for interning prop names.
+
+ * src/xterm.c (struct x_atom_ref): New structure.
+ (x_atom_refs): New list. Extract from x_term_init.
+ (x_intern_cached_atom): New function. Use it in several places
+ to avoid interning common atoms.
+ (x_term_init): Adjust accordingly.
+
+ * src/xterm.h: Update prototypes.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Prevent errors when Lisp code asks for props of invalid windows
+
+ * src/xfns.c (Fx_window_property):
+ (Fx_window_property_attributes): Catch X errors.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Handle invalid NEWS files during describe-function
+
+ * src/help-fns.el (help-fns--first-release): Don't error if
+ searching for a heading fails.
+
+2022-05-24 Jim Porter <jporterbugs@gmail.com>
+
+ Keep subcommands in pipelines from clobbering the head/tail processes
+
+ * lisp/eshell/esh-cmd.el (eshell-execute-pipeline): Use 'make-symbol'
+ for headproc and tailproc.
+ (eshell-do-pipelines, eshell-do-pipelines-synchronously): Adapt to the
+ above.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/pipe-subcommand)
+ (eshell-test/pipe-subcommand-with-pipe): New test.
+
+ * doc/misc/eshell.texi (Bugs and ideas): Remove item about piping to
+ process from loop; this commit fixes it (bug#55590).
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak remapping fix for set-transient-map
+
+ * lisp/subr.el (set-transient-map): The remapping doesn't have to
+ be in this map.
+
+2022-05-24 Štěpán Němec <stepnem@gmail.com>
+
+ Add elisp-eldoc-var-docstring-with-value function
+
+ * lisp/progmodes/elisp-mode.el
+ (elisp-eldoc-var-docstring-with-value): New function (bug#55096).
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the nativecomp test eln directory more reliably be removed
+
+ * lisp/startup.el (startup-redirect-eln-cache, normal-top-level):
+ Don't create the nativecomp directory here, because this led to
+ brittle deletions of the directory -- there would be several
+ instances of the directory left over after a test run.
+
+ * lisp/emacs-lisp/ert.el (ert-run-tests-batch-and-exit): Create
+ the nativecomp directory.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further audits of single quotes in Lisp doc strings
+
+ * test/manual/etags/el-src/emacs/lisp/progmodes/etags.el
+ (tags-apropos-additional-actions):
+ * lisp/window.el (delete-window-choose-selected):
+ * lisp/vc/ediff-merg.el (ediff-combination-pattern):
+ * lisp/vc/diff.el (diff-no-select):
+ * lisp/tab-bar.el (tab-bar-new-tab-choice):
+ * lisp/simple.el (next-error-message-highlight):
+ (backward-delete-char-untabify):
+ * lisp/ses.el (ses-jump-cell-name-function):
+ * lisp/org/org.el (org-latex-to-html-convert-command):
+ * lisp/org/org-agenda.el (org-agenda-sorting-strategy):
+ * lisp/net/tramp.el (tramp-default-file-modes):
+ * lisp/net/newst-treeview.el
+ (newsticker-treeview-use-feed-name-from-url-list-in-treeview):
+ * lisp/net/eww.el (eww-auto-rename-buffer):
+ * lisp/mwheel.el (mouse-wheel-scroll-amount):
+ * lisp/mail/rmail.el (rmail-re-abbrevs):
+ * lisp/info.el (Info-history-forward-menu):
+ * lisp/gnus/nnselect.el (nnselect-retrieve-headers-override-function):
+ * lisp/gnus/gnus-start.el (gnus-subscribe-hierarchical-interactive):
+ * lisp/fringe.el (fboundp):
+ * lisp/eshell/esh-var.el (eshell-variable-aliases-list):
+ * lisp/emacs-lisp/checkdoc.el
(checkdoc-column-zero-backslash-before-paren):
+ * lisp/dired-aux.el (dired-confirm-shell-command):
+ * lisp/calendar/calendar.el (calendar-time-zone-style):
+ * lisp/ansi-color.el (ansi-color-faces-vector):
+ (ansi-color-names-vector): Audit use of various single quotes in
+ Lisp doc strings.
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Audit symbol quoting in Lisp doc strings
+
+ * lisp/vc/vc-svn.el (vc-svn-dir-status-files):
+ * lisp/so-long.el (so-long-mode-maintain-preserved-variables):
+ * lisp/help-fns.el (help-fns--most-relevant-active-keymap):
+ * lisp/gnus/nnselect.el (nnselect-get-artlist):
+ (nnselect-store-artlist):
+ * lisp/forms.el (forms-enumerate):
+ * lisp/ffap.el (ffap-string-at-point):
+ * lisp/emacs-lisp/byte-run.el (define-obsolete-variable-alias):
+ Audit symbol quoting in Lisp doc strings.
+
+2022-05-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Add ".epub" to Tramp archive file suffixes.
+
+ * doc/misc/tramp.texi (Archive file names):
+ * lisp/net/tramp-archive.el (tramp-archive-suffixes): Add ".epub".
+
+2022-05-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Audit quoting symbols in C doc strings
+
+ * test/manual/etags/c-src/emacs/src/keyboard.c (Frecursive_edit):
+ * src/xfns.c (syms_of_xfns):
+ * src/xdisp.c (Fwindow_text_pixel_size):
+ (syms_of_xdisp):
+ * src/w32notify.c (Fw32notify_add_watch):
+ (Fw32notify_add_watch):
+ * src/frame.c (Fframe_child_frame_border_width):
+ * src/comp.c (Fcomp__subr_signature):
+ * src/alloc.c (Fgarbage_collect):
+ * lib-src/make-docfile.c (scan_c_stream): Audit quoting symbols in C
+ doc strings.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Allow the user to fix `x-mouse-click-focus-ignore-position' on some
systems
+
+ * src/xterm.c (handle_one_xevent): Apply that variable instead.
+ (syms_of_xterm): Update doc string and add new option to adjust
+ the focus click timeout.
+
+2022-05-24 Po Lu <luangruo@yahoo.com>
+
+ Fix use of wrong event structure handling XI_Enter events
+
+ * src/xterm.c (handle_one_xevent): Use `enter' instead of `xev'
+ to set the mouse click timeout.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ * src/nsmenu.m (ns_menu_show): Use SAFE_ALLOCA.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to cursor color handling on Haiku
+
+ * src/haikufns.c (haiku_decode_color): New function.
+ (haiku_set_foreground_color, haiku_set_background_color)
+ (haiku_set_cursor_color, haiku_set_mouse_color): Use that
+ function to decode colors instead. Also set cursor GC
+ foreground when setting background color.
+
+ * src/haikuterm.c (haiku_merge_cursor_foreground): Fix color
+ equality test.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Only send fallback MONITORS_CHANGED_EVENT when dimensions really changed
+
+ * src/xterm.c (handle_one_xevent): Test that root window
+ configure width and height are not the same as the previously
+ recorded ones.
+
+2022-05-23 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid compiler warnings on macOS (bug#55595)
+
+ * configure.ac: Don't use -Wunknown-pragmas with Clang.
+
+ * src/comp.c (load_comp_unit): Avoid Clang compilation warning.
+
+2022-05-23 Mattias Engdegård <mattiase@acm.org>
+
+ Less wrong printed circular list tail index (bug#55395)
+
+ When printing a circular list and `print-circle` is nil, use a
+ somewhat more meaningful ". #N" tail index. The previous method for
+ calculating that index was based on Floyd circularity detection being
+ used so it had been broken ever since the change to Brent's algorithm.
+
+ The new index is correct with respect to the start of the list itself
+ which is what it used to be before being completely broken.
+ It does not take into account the nesting depth of the list context.
+
+ * src/print.c (struct print_stack_entry, print_object):
+ Keep track of the tortoise index (which is cheap) instead of trying
+ to derive it from the printed element index.
+ * test/src/print-tests.el (print-test-rho, print-circular):
+ New test.
+
+2022-05-23 Eli Zaretskii <eliz@gnu.org>
+
+ * src/w32menu.c (w32_menu_show): Use SAFE_ALLOCA. (Bug#55068)
+
+2022-05-23 Eli Zaretskii <eliz@gnu.org>
+
+ Fix saveplace.el when desktop.el restores non-ASCII buffers
+
+ * lisp/saveplace.el (load-save-place-alist-from-file): Bind
+ 'coding-system-for-read' to nil, so that the 'coding:' cookie in
+ the save-place file takes effect. (Bug#55592)
+
+2022-05-23 Tino Calancha <tino.calancha@gmail.com>
+
+ zap-to-char: Fix interactive specification
+
+ * lisp/simple.el (zap-to-char): Include t in the list.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Adapt last change to Haiku as well
+
+ * src/haikumenu.c (digest_menu_items, haiku_menu_show): Use
+ SAFE_ALLOCA for various temporary buffers.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Fix stack overflows with large popup menus
+
+ * src/xmenu.c (x_menu_show): Allocate various stacks with
+ SAFE_ALLOCA.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Fix default child-frame-border-width on PGTK
+
+ * src/pgtkfns.c (Fx_create_frame): Make default
+ `child-frame-border-width' nil. (bug#55588)
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve command-error-function discoverability
+
+ * lisp/subr.el (error, user-error): Point to command-error-function.
+
+ * src/keyboard.c (syms_of_keyboard): Add an example (bug#40750).
+
+2022-05-23 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Hanunoo script (bug#55581)
+
+ * lisp/language/philippine.el ("Hanunoo"): New language environment.
+ Add composition rules for Hanunoo. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Hanunoo.
+ * lisp/leim/quail/philippine.el ("hanunoo"): New input method.
+
+ * etc/HELLO: Add a Hanunoo greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make remapped keys work in set-transient-map
+
+ * lisp/subr.el (set-transient-map): Make remapped keys work in
+ transient maps (bug#40096).
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Fix coding style of recent change
+
+ * src/emacs.c (main): Fix coding style by putting the = operator
+ on the right row.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Implement monitor change functions on Haiku
+
+ * src/haiku_io.c (haiku_len): Handle new event type.
+ * src/haiku_support.cc (class EmacsScreenChangeMonitor): New
+ class.
+ (class Emacs, Emacs): Create new screen change monitor.
+ (DispatchMessage): Update fullscreen state if the screen
+ changed.
+ (SetFullscreen): Don't punt if fullscreen mode is identical.
+
+ * src/haiku_support.h (enum haiku_event_type): New event
+ `SCREEN_CHANGE_EVENT'.
+ (struct haiku_screen_changed_event): New struct.
+
+ * src/haikuterm.c (haiku_read_socket): Handle new event.
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `d' in Dired skip dot files
+
+ * lisp/dired.el (dired-mark): Skip dot files (bug#38729). This
+ makes `C-u 10 d' (etc) consistent with marking the next ten lines
+ with the mouse and then hitting `d'.
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Include development data in --version output
+
+ * src/emacs.c (main): Include development into in --version output
+ (bug#38657).
+
+2022-05-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (switch-to-buffer-other-tab): Use pop-to-buffer
(bug#55582).
+
+ Replace display-buffer with pop-to-buffer that sets the current buffer
+ explicitly.
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow extending 'save-some-buffers'
+
+ * lisp/abbrev.el (abbrev--possibly-save): Separated out from
+ `save-some-buffers'.
+ (save-some-buffers-functions): Add to the save function.
+
+ * lisp/files.el (save-some-buffers-functions): New variable.
+ (save-some-buffers): Use it.
+ (save-buffers-kill-emacs): Also use it to see if we have something
+ to save (bug#55579).
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make bootstrap remove more generated files
+
+ * Makefile.in (bootstrap-clean): Remove lisp/leim/ja-dic/.
+
+2022-05-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make bootstrap remove the native-lisp/ directory
+
+ * Makefile.in (bootstrap-clean): Remove the native-lisp/ directory.
+
+2022-05-23 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to PGTK child frames
+
+ * src/gtkutil.c (xg_check_special_colors): Handle child frames
+ correctly.
+ * src/pgtkfns.c (pgtk_set_child_frame_border_width): Synchronize
+ code from X. (bug#55588)
+ * src/pgtkmenu.c (pgtk_menu_show, pgtk_dialog_show): Allow in
+ child frames. There are no problems here.
+ * src/pgtkterm.c (pgtk_mouse_position): Clean up coding style.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Implement monitor change functions on GNUstep
+
+ * src/nsfns.m (Fns_display_monitor_attributes_list): Fix coding
+ style.
+ * src/nsterm.m (nstrace_leave, nstrace_restore_global_trace_state)
+ (nstrace_fullscreen_type_name): Fix coding style.
+ (ns_displays_reconfigured, ns_term_init): Make a record of the
+ previous display attributes list and avoid storing duplicate
+ events.
+ ([EmacsApp init]): Listen for
+ NSApplicationDidChangeScreenParametersNotification.
+ ([EmacsApp updateMonitors:]): New method.
+ (syms_of_nsterm): New staticpro.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Handle screen size changes if the RandR library isn't available
+
+ * src/xterm.c (handle_one_xevent): [!HAVE_XRANDR]: Store
+ MONITORS_CHANGED_EVENT upon root window reconfiguration.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Fix `gui-backend-selection-owner-p' on Haiku
+
+ * src/haiku_select.cc (be_update_clipboard_count): New function.
+ (be_set_clipboard_data): Update clipboard counts.
+ (BClipboard_owns_clipboard, clipboard_owner_p)
+ (BClipboard_owns_primary, primary_owner_p)
+ (BClipboard_owns_secondary, secondary_owner_p): Rename functions
+ somewhat.
+ (be_clipboard_owner_p): New function.
+ * src/haikuselect.c (Fhaiku_selection_put)
+ (Fhaiku_selection_owner_p): Update selection counts as well.
+ * src/haikuselect.h: Update prototypes.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Use GDK for handling monitor changes when built with GTK
+
+ * src/xterm.c (x_monitors_changed_cb): New function.
+ (handle_one_xevent): Don't handle RRNotify and
+ RRScreenChangeNotify on GTK.
+ (x_term_init): Connect to GdkScreen::monitors-changed instead of
+ selecting for RRNotify events.
+ (mark_xterm): Also mark `last_monitor_attributes_list' on GTK.
+ * src/xterm.h (struct x_display_info): Enable
+ `last_monitor_attributes_list' on GTK builds as well.
+
+2022-05-22 F. Jason Park <jp@neverwas.me>
+
+ Recognize DCC SSEND when receiving files in erc-dcc
+
+ * lisp/erc/erc-dcc.el (erc-dcc-open-network-stream): Use TLS
+ for new connections when :secure flag is set.
+ (erc-dcc-do-GET-command): Set secure flag when user explicitly passes
+ an "-s" option.
+ (erc-dcc-do-LIST-command): Show an "s" to indicate a secure connection
+ when applicable.
+ (erc-dcc-query-handler-alist): Add extra items for "SSEND", etc.
+ (erc-dcc-handle-ctcp-send): Set secure flag when a leading "S" appears
+ in the command type.
+
+2022-05-22 F. Jason Park <jp@neverwas.me>
+
+ Accommodate nonstandard turbo file senders in erc-dcc
+
+ * lisp/erc/erc-dcc.el (erc-dcc-list): Document optional :turbo item.
+ (erc-message-english-dcc-list-{head,line,item}): Adjust format strings
+ to make room for "(T)" turbo indicator.
+ (erc-dcc-do-GET-command): Optionally set :turbo in `erc-dcc-list'
+ entry when passed "-t" in the "/DCC GET" slash command. Also add
+ switch to command line in front-matter Commentary, but refrain from
+ publicizing further because our implementation is only defensive and
+ only for receiving.
+ (erc-dcc-do-LIST): Print message with new format specifier for turbo
+ status.
+ (erc-dcc-ctcp-query-send-regexp): Account for T- and S-prefixed
+ commands. Receiving from an SSEND-capable sender will be added in a
+ subsequent commit.
+ (erc-dcc-handle-ctcp-send): Set :turbo item in `erc-dcc-list' member
+ when new match group is nonempty.
+ (erc-dcc--X-send-final-turbo-ack): New internal variable and potential
+ future option for extreme corner cases involving maverick turbo
+ senders, like WeeChat, who don't use the TSEND command variant.
+ (erc-dcc-get-filter): Don't send when turbo is active.
+
+ * test/lisp/erc/erc-dcc-tests.el: Add new file.
+ (Bug#54458)
+
+2022-05-22 F. Jason Park <jp@neverwas.me>
+
+ Allow matching against string values in erc-dcc-member
+
+ * lisp/erc/erc-dcc.el (erc-dcc-member): Be more tolerant in the
+ catch-all case by testing for equality instead of identity.
+ (erc-dcc-do-GET-command): Pass file name when querying
+ `erc-dcc-member'. (Bug#54458)
+
+2022-05-22 F. Jason Park <jp@neverwas.me>
+
+ Don't send reports in erc-dcc-get-filter when nested
+
+ * lisp/erc/erc-dcc.el (erc-dcc-get-filter): Don't bother sending a
+ "received so far" receipt if another attempt is still ongoing.
+ (Bug#54458)
+
+2022-05-22 F. Jason Park <jp@neverwas.me>
+
+ Summarize failed transfers in erc-dcc
+
+ * lisp/erc/erc-dcc.el (erc-dcc-get-sentinel): Display error when total
+ byte count received is lower than expected.
+ (erc-message-english-dcc-get-failed): Add `dcc-get-failed' to the
+ English messages catalog.
+ (erc-dcc-get-file): Tweak initialization of `erc-dcc-entry-data'.
+ (Bug#54458)
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/cedet/semantic/fw.el: Fix typo
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ mode-local: Revert the deprecation of buffer-local overrides
+
+ Obviously, I did not understand how the <foo>--install-parser was
invoked.
+
+ Revert "mode-local: Deprecate buffer-local overrides"
+ Revert "semantic-install-function-overrides: Declare obsolete"
+ Revert "wisent.el: Prefer `define-mode-local-override`"
+
+ This reverts commits 91bc24c46768aab4a851c87edaea05c7476ff779,
+ d2e0d1452b976a51579cf044257326850804c562, and
+ 3294ad44ebcd024b4ada68d00bedca33acc52de6.
+
+2022-05-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bytecomp-test--with-suppressed-warnings test
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (bytecomp-test--with-suppressed-warnings): Adjust test to change
+ in warning message.
+
+2022-05-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous warning suppression change
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-emit-callargs-warn)
+ (byte-compile-subr-wrong-args):
+ * lisp/emacs-lisp/byte-run.el (with-suppressed-warnings):
+ * lisp/cedet/semantic/fw.el (semantic-install-function-overrides):
+ The `wrong-args' warning is really called `callargs'.
+
+2022-05-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warning in semantic-install-function-overrides
+
+ * lisp/cedet/semantic/fw.el (semantic-install-function-overrides):
+ Suppress message about wrong number of arguments.
+
+2022-05-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow suppressing messages about the wrong number of arguments
+
+ * lisp/emacs-lisp/byte-run.el (with-suppressed-warnings): Add
+ `wrong-args'.
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-emit-callargs-warn)
+ (byte-compile-subr-wrong-args): Allow suppressing wrong number of
+ arguments.
+
+2022-05-22 Juri Linkov <juri@linkov.net>
+
+ Enable keys M-down, M-up, M-RET for in-buffer completion
+
+ * lisp/minibuffer.el (completion-in-region-mode-map): Add keybindings
M-<up>
+ for minibuffer-previous-completion, M-<down> for
minibuffer-next-completion,
+ M-RET for minibuffer-choose-completion.
+ (completion-in-region-mode): Set buffer-local
+ 'minibuffer-completion-auto-choose' to nil.
+ (minibuffer-next-completion): Get the value of
+ 'minibuffer-completion-auto-choose' from the minibuffer.
+ (minibuffer-previous-completion): Simplify by delegating to
+ 'minibuffer-next-completion'.
+
+ * doc/emacs/programs.texi (Symbol Completion): Add description of keys
+ M-down, M-up, M-RET.
+
+ https://lists.gnu.org/archive/html/emacs-devel/2022-05/msg00916.html
+
+2022-05-22 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Restore string fence properties at each relevant external
entry point
+
+ This fixes bug #55230.
+
+ * lisp/progmodes/cc-defs.el (c-string-fences-set-flag,
c-with-string-fences):
+ New variable and macro.
+
+ * lisp/progmodes/cc-mode.el (c-called-from-text-property-change-p): Add
+ remove-text-properties to the list of accepted functions.
+ (c-clear-string-fences, c-restore-string-fences): Surround the
functions'
+ innards with c-save-buffer-state to prevent text property changes
causing
+ change functions to be called.
+ (c-before-change, c-after-change, c-font-lock-fontify-region): Replace
the
+ explicit calls to c-restore-string-fences and c-clear-string-fences with
+ invocations of the new macro c-with-string-fences.
+
+ * lisp/progmodes/cc-awk.el (c-awk-extend-and-syntax-tablify-region)
+ (c-awk-end-of-defun)
+ * lisp/progmodes/cc-cmds.el (c-show-syntactic-information)
+ (c-electric-backspace, c-hungry-delete-backwards,
c-electric-delete-forward)
+ (c-hungry-delete-forward, c-electric-pound, c-electric-brace)
+ (c-electric-slash, c-electric-star, c-electric-semi&comma,
c-electric-colon)
+ (c-electric-lt-gt, c-electric-paren, c-beginning-of-defun,
c-end-of-defun)
+ (c-display-defun-name, c-mark-function, c-beginning-of-statement)
+ (c-end-of-statement, c-indent-command, c-indent-exp, c-indent-defun)
+ (c-indent-line-or-region, c-fill-paragraph, c-indent-new-comment-line)
+ (c-context-line-break)
+ * lisp/progmodes/cc-guess.el (c-guess-region-no-install): These are all
+ "boundary" functions to CC Mode. Surround each by c-with-string-fences.
+
+2022-05-22 kobarity <kobarity@gmail.com>
+
+ Don't font-lock invalid invalid class/function names
+
+ * lisp/progmodes/python.el (python-font-lock-keywords-level-1):
+ Don't font-lock invalid invalid class/function names (bug#55573).
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ mode-local: Deprecate buffer-local overrides
+
+ * lisp/cedet/mode-local.el (mode-local-bind): Make all args mandatory.
+ Deprecate the use of a nil `mode` argument.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ semantic-install-function-overrides: Declare obsolete
+
+ * lisp/cedet/semantic/fw.el (semantic-install-function-overrides):
+ Declare obsolete.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ wisent.el: Prefer `define-mode-local-override`
+
+ * lisp/cedet/semantic/wisent.el (wisent--parse-stream): Rename from
+ `wisent-parse-stream` and mark the old name obsolete.
+ (semantic-parse-stream): Override with `define-mode-local-override`.
+
+ * lisp/cedet/semantic/wisent/grammar.el
+ (semantic-grammar-setupcode-builder): Don't override
+ `semantic-parse-stream` manually here via
+ `semantic-install-function-overrides`.
+
+ * lisp/cedet/semantic/grm-wy-boot.el: Refresh.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ wisent/grammar.el: Prefer `define-mode-local-override`
+
+ * lisp/cedet/semantic/wisent/grammar.el
+ (semantic-grammar-parsetable-builder,
semantic-grammar-setupcode-builder):
+ Override with `define-mode-local-override`.
+ (wisent-grammar-mode): Don't override them with
+ `semantic-install-function-overrides`.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cedet/html.el: Prefer `define-mode-local-override`
+
+ * lisp/cedet/semantic/html.el (semantic-tag-components): Override via
+ `define-mode-local-override`.
+ (semantic-default-html-setup): Don't override via
+ `semantic-install-function-overrides`.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ bovine/grammar.el: Prefer `define-mode-local-override`
+
+ * lisp/cedet/semantic/bovine/grammar.el
+ (semantic-grammar-parsetable-builder,
semantic-grammar-setupcode-builder):
+ Override with `define-mode-local-override`.
+ (bovine-grammar-mode): Don't override them with
+ `semantic-install-function-overrides`.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cedet/texi.el: prefer `define-mode-local-override`
+
+ * lisp/cedet/semantic/texi.el (semantic-parse-region)
+ (semantic-parse-changes): Override with `define-mode-local-override`.
+ (semantic-default-texi-setup): Don't override them with
+ `semantic-install-function-overrides`.
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ comp.el: Cosmetic changes
+
+ * lisp/emacs-lisp/comp.el (comp-run-async-workers): Tweak code.
+ (comp-run-async-workers): Don't set `buffer-read-only` directly.
+ (native--compile-async): Fix misuse of "path".
+
+2022-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Run `minibuffer-exit-hook` in the right buffer
+
+ * src/minibuf.c (run_exit_minibuf_hook): Take the minibuffer as arg
+ and run the hook in that buffer.
+ (read_minibuf): Adjust accordingly.
+
+2022-05-22 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/window.el (display-buffer-avoid-small-windows): Fix :type.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Clean up Haiku code
+
+ * src/haiku_support.cc (movement_locker, class EmacsWindow)
+ (MouseMoved): Delete `movement_locker' and associated hack,
+ since it's superseeded by some code in haiku_read_socket.
+ (key_map, key_chars, dpy_color_space, popup_track_message)
+ (alert_popup_value, grab_view, grab_view_locker)
+ (drag_and_drop_in_progress): Write comments and fix
+ initializers.
+
+ * src/haikuterm.c (haiku_read_socket): Update comment.
+
+2022-05-22 kobarity <kobarity@gmail.com>
+
+ Fix two typos in comments in python.el
+
+ * lisp/progmodes/python.el
+ (python-font-lock-keywords-maximum-decoration): Fix typos in
+ comments (bug#55557).
+
+2022-05-22 Damien Cassou <damien@cassou.me>
+
+ Fix submit-emacs-patch
+
+ submit-emacs-patch creates a new message and immediately inserts new
+ lines without first moving the point to the message body. This
+ doesn't work with notmuch (and its notmuch-user-agent symbol) because
+ the point starts in the headers and nothing in Emacs specifies that
+ the mua should move point to the body automatically.
+
+ * lisp/mail/emacsbug.el (submit-emacs-patch): Make sure point is in
+ the body before inserting new lines (bug#55571).
+
+2022-05-22 Lele Gaifax <lele@metapensiero.it>
+
+ Properly indent Python PEP634 match/case blocks
+
+ Python 3.10 introduced the "structural pattern matching" syntax, and
+ commit 139042eb8629e6fd49b2c3002a8fc4d1aabd174d told font-lock about the
+ new keywords. This adds them also as block-start statements, to enable
+ proper indentation of such blocks.
+
+ * lisp/progmodes/python.el (python-rx): Add "match" and "case" as
+ block-start keywords.
+ * test/lisp/progmodes/python-tests.el (python-indent-after-match-block,
+ python-indent-after-case-block): New tests to verify indentation of
+ "match" and "case" blocks (bug#55572).
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Implement `display-monitors-changed-functions' on MS Windows
+
+ * src/w32term.c (w32_read_socket): Handle WM_DISPLAYCHANGE by
+ sending monitor change events.
+
+2022-05-22 Damien Cassou <damien@cassou.me>
+
+ Improve documentation of mail-user-agent.
+
+ * doc/emacs/sending.texi (Mail Methods):
+ * lisp/simple.el (mail-user-agent): Mention additional options
+ of non-bundled MUA. (Bug#5569)
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Fix uninitialized use of xm drag receiver data
+
+ * src/xterm.c (xm_read_drag_receiver_info): Just return if the
+ protocol is invalid. Reported by Jashank Jeremy
+ <jashank@rulingia.com.au>.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Fix build with --enable-check-lisp-object-type
+
+ * src/xterm.c (handle_one_xevent): Fix use of Fequal. Reported
+ by Jashank Jeremy <jashank@rulingia.com.au>.
+
+2022-05-22 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Tagalog script
+
+ * lisp/language/philippine.el ("Tagalog"): New language environment.
+ Add composition rules for Tagalog. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Tagalog.
+ * lisp/leim/quail/philippine.el ("tagalog"): New input method.
+ * lisp/loadup.el: Preload lisp/language/philippine.el.
+
+ * etc/HELLO: Add a Tagalog greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+ (Bug#55529)
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Fix use-after-free in x_destroy_window
+
+ * src/xterm.c (x_destroy_window): Fix use after free of the
+ dpyinfo.
+
+2022-05-22 Po Lu <luangruo@yahoo.com>
+
+ Fix focus redirection to/from surrogate minibuffer frames on Haiku
+
+ * src/haikuterm.c (haiku_get_focus_frame): New function.
+ (haiku_create_terminal): Register new hook.
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Fix GNUstep build
+
+ * src/nsfns.m (ns_implicitly_set_icon_type): Don't use UTType if
+ GNUstep.
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warnings on Mac OS X 10.12
+
+ * configure.ac: Check for Mac OS X 12 and link with
+ UniformTypeIdentifiers.framework.
+
+ * src/nsfns.m (IOMasterPort): Define to `IOMainPort' on Mac OS X
+ 12.
+ (ns_implicitly_set_icon_type, Fns_read_file_name):
+ * src/nsxwidget.m: ([XwWebView
+ initWithFrame:configuration:xwidget:]): Fix uses of obsolete
+ things.
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Set display size upon RRScreenChangeNotify
+
+ * src/xterm.c (handle_one_xevent): Handle RRScreenChangeNotify
+ correctly.
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Don't unnecessarily call monitor change functions
+
+ * src/xterm.c (handle_one_xevent): If monitor attributes didn't
+ change, don't send monitor change event.
+ (x_term_init, mark_xterm): Mark and init new field.
+ * src/xterm.h (struct x_display_info): New field
+ `last_monitor_attributes_list'.
+
+2022-05-21 Eli Zaretskii <eliz@gnu.org>
+
+ More fixes in abbrev.el doc strings
+
+ * lisp/abbrev.el (inverse-add-global-abbrev, inverse-add-mode-abbrev):
+ Document the effect of negative ARG. (Bug#55527)
+
+2022-05-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Some cleanups in tramp-tests.el
+
+ * test/lisp/net/tramp-tests.el (tramp-fuse-remove-hidden-files):
Declare.
+ (tramp-test16-directory-files)
+ (tramp-test16-file-expand-wildcards)
+ (tramp-test26-file-name-completion, tramp--test-check-files): Use it.
+ (tramp--test-check-files): Delete directory recursively.
+ (tramp-test43-file-system-info): Make test more robust.
+
+2022-05-21 kobarity <kobarity@gmail.com>
+
+ Fix recently introduced Python font lock breakage of chained assignments
+
+ * lisp/progmodes/python.el (python-font-lock-assignment-matcher):
+ Fix fontification of chained assignments (bug#54992).
+
+2022-05-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge from origin/emacs-28
+
+ f836ed098f Some minor Tramp fixes
+
+2022-05-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new hooks when enabling and disabling themes
+
+ * lisp/custom.el (enable-theme-hook, disable-theme-hook): New
+ hooks (bug#37802).
+ (enable-theme, disable-theme): Call them.
+
+2022-05-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add note about Tramp completion to completion-styles doc string
+
+ * lisp/minibuffer.el (completion-styles): Add note about Tramp
+ completion (bug#37954).
+
+2022-05-21 Arash Esbati <arash@gnu.org>
+
+ Remove mention of removed nnimap-nov-is-evil variable
+
+ * doc/misc/gnus.texi (Slow/Expensive Connection): Remove mention
+ of removed nnimap-nov-is-evil variable (bug#55556).
+
+2022-05-21 Tino Calancha <tino.calancha@gmail.com>
+
+ zap-to-char: case sensitive for upper-case characters
+
+ In interactive calls, behave case-sensitively if the given char
+ is an upper-case character. Same for zap-up-to-char (Bug#54804).
+
+ This is analog to what the user-level incremental search feature does.
+
+ * lisp/misc.el (zap-up-to-char): Add an optional arg INTERACTIVE.
+ Perform a case-sensitive search when INTERACTIVE is non-nil and
+ CHAR is an upper-case character.
+ * lisp/simple.el (zap-to-char): Same.
+
+ * etc/NEWS (Editing Changes in Emacs 29.1): Announce this change.
+ * test/lisp/misc-tests.el (misc-test-zap-up-to-char): Add test cases.
+ * test/lisp/simple-tests.el (with-zap-to-char-test): Add helper macro.
+ (simple-tests-zap-to-char): Add a test.
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Improve doc for `display-monitors-changed-functions'
+
+ * doc/lispref/frames.texi (Multiple Terminals): Describe how to
+ retrieve the new monitor configuration inside
+ `display-monitor-attributes-list'.
+
+2022-05-21 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation strings and prompts in abbrev.el
+
+ * lisp/abbrev.el (abbrev-file-name, only-global-abbrevs)
+ (copy-abbrev-table, insert-abbrevs, list-abbrevs)
+ (abbrev-table-name, edit-abbrevs, define-abbrevs)
+ (read-abbrev-file, quietly-read-abbrev-file, write-abbrev-file)
+ (abbrev-edit-save-to-file, abbrev-edit-save-buffer)
+ (add-mode-abbrev, add-global-abbrev, inverse-add-mode-abbrev)
+ (inverse-add-global-abbrev, abbrev-prefix-mark)
+ (expand-region-abbrevs, abbrev-table-get, abbrev-table-put)
+ (abbrev-get, abbrev-minor-mode-table-alist, abbrevs-changed)
+ (abbrev-all-caps, last-abbrev-text, last-abbrev-location)
+ (clear-abbrev-table, define-abbrev, define-global-abbrev)
+ (define-mode-abbrev, abbrev--active-tables, abbrev--symbol)
+ (abbrev-symbol, abbrev-expansion, abbrev-insert)
+ (abbrev-expand-function, abbrev--suggest-above-threshold)
+ (abbrev--suggest-saved-recommendations)
+ (abbrev--suggest-shortest-abbrev, abbrev--suggest-get-totals)
+ (insert-abbrev-table-description, define-abbrev-table)
+ (abbrev-table-menu): Fix doc strings: wording, punctuation,
+ clarity.
+ (add-abbrev, inverse-add-abbrev): Improve the prompt text.
+ (Bug#55527)
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warnings in printer code on 32-bit systems
+
+ * print.c (enum print_entry_type, struct print_stack_entry):
+ Clean up coding style.
+ (struct print_stack): Make print_stack_entry.list.idx intmax_t,
+ like it was before the nonrecursive printing was installed.
+ Also clarify what "Brent cycle detection" means in the comments.
+
+2022-05-21 Po Lu <luangruo@yahoo.com>
+
+ Compute frame workareas on Haiku
+
+ * lisp/frame.el (display-monitor-attributes-list): Implement
+ specially on Haiku as well.
+ * src/haiku_support.cc (get_zoom_rect): New function. Extract
+ CalculateZoomRect here.
+ (class EmacsWindow, SetFullscreen): Use that instead of
+ CalculateZoomRect.
+ (be_get_explicit_workarea): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (Fhaiku_display_monitor_attributes_list): New
+ function.
+ (syms_of_haikufns): Register new subr.
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Implement monitor change hooks on NS
+
+ This hasn't been tested with anything more complicated than
+ removing an emulated monitor.
+
+ * nsterm.m (ns_displays_reconfigured): New function.
+ (ns_term_init): Register display reconfiguration callbacks.
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Call XRRUpdateConfiguration when the root window geometry changes
+
+ * src/xterm.c (handle_one_xevent): Call XRRUpdateConfiguration
+ on RRScreenChangeNotify and upon ConfigureNotify events for the
+ root window.
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Implement `display-monitors-changed-hook' on PGTK
+
+ * src/pgtkterm.c (pgtk_draw_glyphless_glyph_string_foreground):
+ Pacify GCC 12.
+ (pgtk_monitors_changed_cb): New function.
+ (pgtk_term_init): Attach new signal handler.
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Add a hook run upon monitor configuration changes
+
+ * doc/lispref/frames.texi (Multiple Terminals): Document new
+ hook `display-monitors-changed-functions'.
+ * etc/NEWS: Announce new abnormal hook.
+
+ * src/keyboard.c (kbd_buffer_get_event): Handle
+ MONITORS_CHANGED_EVENT.
+ (syms_of_keyboard): New hook and defsyms.
+ * src/termhooks.h (enum event_kind): Add new event
+ `MONITORS_CHANGED_EVENT'.
+
+ * src/xterm.c (handle_one_xevent): Handle RRNotify and
+ RRScreenChangeNotify events.
+ (x_term_init): Select for RRScreenChange, RRCrtcChange and
+ RROutputChange.
+ * src/xterm.h (struct x_display_info): Improve RandR version
+ detection.
+
+2022-05-20 Alan Mackenzie <acm@muc.de>
+
+ Restore the Fselect_window call in gui_consider_frame_title.
+
+ This fixes bug #55412. The call to Fselect_window was removed on
2021-03-21
+ in the commit "Prevent open minibuffers getting lost when their frame
gets
+ deleted". This call is actually needed to determine current elements
of the
+ pertinent window and frame when these are used in the frame title.
+
+ * src/frame.c (do_switch_frame): When the selected window in the target
frame
+ is the mini-window, switch away from this window unless there is a valid
+ minibuffer there.
+
+ * src/frame.h (struct frame): Add an incidental comment about the
element
+ selected_window.
+
+ * src/minibuf.c (move_minibuffers_onto_frame): No longer set the
selected
+ window of the source frame. This action is now performed later, on
returning
+ to that frame, in do_switch_frame when needed (see above).
+
+ * src/xdisp.c (gui_consider_frame_title): Replace the Fselect_window
call and
+ associated ancillary settings.
+
+2022-05-20 Stefan Kangas <stefan@marxist.se>
+
+ Remove compat code; assume imenu.el exists
+
+ * lisp/progmodes/antlr-mode.el (antlr-mode):
+ * lisp/progmodes/cperl-mode.el (cperl-menu):
+ * lisp/progmodes/f90.el (f90-mode-map):
+ * lisp/progmodes/fortran.el (fortran-menu):
+ * lisp/speedbar.el (speedbar-use-imenu-flag): Remove compat code;
+ assume imenu.el exists.
+
+2022-05-20 Eli Zaretskii <eliz@gnu.org>
+
+ Advise against settings in the MS-Windows system registry
+
+ * doc/emacs/cmdargs.texi (MS-Windows Registry): Advise against
+ setting environment variables in the system registry. (Bug#16429)
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Check for allocation errors when setting XdndActionDescription
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Check for BadAlloc
+ when setting action descriptions.
+
+2022-05-20 Eli Zaretskii <eliz@gnu.org>
+
+ Document 'enriched-toggle-markup'
+
+ * etc/enriched.txt: Document the new 'enriched-toggle-markup'
+ command. (Bug#33855)
+
+2022-05-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option display-buffer-avoid-small-windows
+
+ * doc/lispref/windows.texi (Choosing Window Options): Document it.
+ * lisp/window.el (display-buffer-avoid-small-windows): New user
+ option (bug#10186).
+ (get-lru-window): Use it.
+
+2022-05-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify select-active-regions doc string
+
+ * src/keyboard.c (syms_of_keyboard): Clarify doc string (bug#29889).
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions processing zoom events on Haiku
+
+ * src/haiku_support.cc (Zoom):
+ * src/haiku_support.h (struct haiku_zoom_event): Include the
+ current fullscreen mode in the event.
+
+ * src/haikuterm.c (haiku_read_socket): Use that instead of the
+ current frame's fullscreen mode.
+
+2022-05-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-fix previous `&' dired change
+
+ * lisp/dired-aux.el (dired-shell-stuff-it): Re-fix the previous
+ change -- the &wait was in the wrong place (bug#36331).
+
+2022-05-20 Philip Kaludercic <philipk@posteo.net>
+
+ Add option to kill a shell buffer when the process ends
+
+ * shell.el (shell-kill-buffer-on-quit): Add new option (bug#55426).
+ (shell): Respect 'shell-kill-buffer-on-quit'.
+ * NEWS: Mention 'shell-kill-buffer-on-quit'.
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Fix NS port warnings with GCC 12
+
+ * src/nsterm.m (ns_draw_glyphless_glyph_string_foreground):
+ Clear s->char2b after function returns.
+
+2022-05-20 Po Lu <luangruo@yahoo.com>
+
+ Remove flickering when toggling between different fullscreen states on
Haiku
+
+ * src/haiku_support.cc (FrameMoved): Don't allow moving the
+ frame along the "filled" axis when fullwidth or fullheight.
+ (ClearFullscreen): New argument `mode'. Return the previous
+ rect but don't revert the frame to it if the target mode is not
+ NONE.
+ (SetFullscreen): Use rect provided by ClearFullscreen instead.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Minor cleanups to X drag-and-drop code
+
+ * src/xterm.c (struct x_client_list_window): Write comments
+ describing the meaning of each field.
+ (XM_DRAG_PROTOCOL_VERSION, xm_setup_dnd_targets)
+ (xm_setup_drag_info, xm_read_drag_receiver_info)
+ (x_dnd_compute_toplevels): Don't hard-code the supported Motif
+ protocol version.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Implement `cross-disabled-images' on Haiku
+
+ * src/haiku_draw_support.cc (be_draw_cross_on_pixmap_1)
+ (be_draw_cross_on_pixmap): New functions.
+
+ * src/haiku_support.h: Update prototypes.
+
+ * src/image.c (image_pixmap_draw_cross, image_disable_image):
+ Implement drawing cross on Haiku.
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename compare-window-configurations and update doc
+
+ * doc/lispref/windows.texi (Window Configurations): Update name.
+ * lisp/strokes.el (strokes-window-configuration-changed-p):
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Update
+ callers and references.
+
+ * lisp/subr.el (compare-window-configurations): Make into obsolete
+ alias.
+
+ * src/window.c (Fwindow_configuration_equal_p): Rename (bug#14964).
+
+2022-05-19 Theodor Thornhill <theo@thornhill.no>
+
+ Fix typo and argument in treesit-beginning-of-defun, etc
+
+ * lisp/treesit.el (treesit-beginning-of-defun, treesit-end-of-defun):
+ Fix typo, add shield for argument.
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't have the tutorial ask to save if we haven't moved
+
+ * lisp/tutorial.el (tutorial--save-on-kill): Don't ask if the user
+ hasn't moved point (bug#37326).
+ (help-with-tutorial): Set the start point.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Implement more data type conversions for Haiku selections
+
+ * src/haikuselect.c (haiku_message_to_lisp):
+ (lisp_to_type_code):
+ (haiku_lisp_to_message):
+ (Fhaiku_drag_message): Recognize `double' and `float' types.
+ (syms_of_haikuselect): New defsyms.
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix font-locking of (defun foo (function ...))
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp--el-funcall-position-p):
+ Don't colorize the `function' in (defun foo (function ...)) as a
+ special form (bug#37074).
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make diff--font-lock-prettify do less if we don't have a left fringe
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): Don't remove
+ insert/deletions from the buffer if we don't have a left fringe
+ (bug#37019).
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new command 'yank-in-context'
+
+ * lisp/simple.el (escaped-string-quote): New variable.
+ (yank-in-context): New command.
+ (yank-in-context--transform): Helper function.
+
+ * lisp/progmodes/sh-script.el (sh-mode): Set up an
+ escaped-string-quote function.
+ * lisp/progmodes/sql.el (sql-mode): Define escaped-string-quote.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Fix session management detection of the first X display
+
+ * src/xterm.c (x_term_init): Check that there is no other
+ display in the chain instead of testing the terminal ID.
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify yank-transform-functions doc string
+
+ * lisp/simple.el (yank-transform-functions): Clarify calling
+ convention.
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make completion in emacs-lisp-mode intern fewer symbols
+
+ * lisp/progmodes/elisp-mode.el (elisp-completion-at-point): Don't
+ intern the string before point just to check whether we're looking
+ at `ignore-error' (bug#55491).
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `&' in dired be more consistent wrt. user input
+
+ * lisp/dired-aux.el (dired-do-async-shell-command): Mention that
+ commands here don't accept input.
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command 'enriched-toggle-markup'
+
+ * lisp/textmodes/enriched.el (enriched-toggle-markup): New command
+ (bug#33855).
+
+2022-05-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option 'yank-transform-functions'
+
+ * doc/lispref/text.texi (Yanking): Mention it.
+ (Yanking): Document it.
+
+ * lisp/simple.el (yank-transform-functions): New user option.
+ (yank): Mention it.
+
+ * lisp/subr.el (insert-for-yank): Use it.
+
+2022-05-19 Eli Zaretskii <eliz@gnu.org>
+
+ Provide Oriya language-environment alongside Odia
+
+ * lisp/language/indian.el ("Oriya"): Add another name for the Odia
+ language-environment. (Bug#55493)
+
+2022-05-19 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Rename Oriya to Odia, and more
+
+ Due to "The Orissa (Alteration of Name) Act, 2011"
+ (https://legislative.gov.in/sites/default/files/A2011-15.pdf)
+ Oriya has been renamed to Odia.
+
+ * lisp/language/indian.el (set-language-info-alist): Rename
+ Oriya to Odia. Improve Oriya composition rules.
+ * lisp/leim/quail/indian.el ("odia"): New input method.
+ * lisp/erc/erc-lang.el: Obsolete the iso-638-languages variable
+ (which was a typo) and replace it with iso-639-1-languages.
+
+ * etc/HELLO: Rename Oriya to Odia.
+ Replace the old Odia greeting with the new one.
+ Add a Hindi greeting separate from the Devanagari one.
+ (Bug#55493)
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Whitelist some incorrectly labeled "color" fonts under Xft
+
+ * etc/PROBLEMS: Document problem with fonts incorrectly labeled
+ as color fonts under Xft.
+
+ * src/ftfont.c (xft_color_font_whitelisted_p): New function.
+ (ftfont_spec_pattern, ftfont_list): Respect whitelisting of
+ "color" fonts under Xft.
+ * src/xftfont.c (syms_of_xftfont): New variable
+ `xft-color-font-whitelist'.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Fix tooltip buffer flipping inside popup menus
+
+ * src/xterm.c (x_flip_and_flush): Don't ignore if
+ `inhibit-redisplay' but F is a tooltip frame. (bug#55519)
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Fix error handling when allowing touch events
+
+ * src/xterm.c (handle_one_xevent): Catch errors correctly when
+ linking touch points.
+
+2022-05-19 João Távora <joaotavora@gmail.com>
+
+ Don't ignore flymake-no-changes-timeout
+
+ Also per https://github.com/joaotavora/eglot/issues/957.
+
+ Only actually and eagerly report LSP diagnotics if the user has
+ Flymake starting automatically on a timer (flymake-no-changes-timeout
+ is a number).
+
+ By contrast, if flymake-no-changes-timeout is nil, the user starts the
+ diagnostic collection process on-demand via 'M-x flymake-start'.
+
+ Since the control of such collection is impossible with LSP, we should
+ just hold on to whatever diagnostics we have (which are presumably
+ up-to-date) until the next invocation of 'eglot-flymake-backend'.
+
+ For now, this doesn't affect Flymake "list-only" diagnostics. Those
+ are reported via the 'flymake-list-only-diagonstics' variable and
+ are always communicated immediately to it.
+
+ * eglot.el: (eglot-handle-notification
+ textDocument/publishDiagnostics): Consult flymake-no-changes-timeout.
+
+ Suggested-by: Jim Davis <jim.jd.davis@gmail.com>
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/508
+
+2022-05-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix Flymake diagnostics reporting in non-UTF-8 locales
+
+ * lisp/progmodes/elisp-mode.el (elisp-flymake-byte-compile)
+ (elisp-flymake--batch-compile-for-flymake): Bind I/O encoding to
+ UTF-8, instead of relying on the locale's defaults. This is
+ needed because ELisp files use UTF-8 by default, but Flymake
+ doesn't know about that, since it isn't specific to ELisp.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Fix specifying terminal names to some functions on Haiku
+
+ * src/haikufns.c (haiku_display_info_for_name): Implement
+ correctly.
+
+2022-05-19 Po Lu <luangruo@yahoo.com>
+
+ Satisfy Valgrind when iconifying frames
+
+ * src/xterm.c (x_iconify_frame): Set the rest of data in the
+ WM_CHANGE_STATE message to 0 instead of leaving it
+ uninitialized.
+
+2022-05-18 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions processing frame fullscreen state on Haiku
+
+ * doc/lispref/frames.texi (Size Parameters): Remove note saying
+ Haiku doesn't support `fullwidth' and `fullboth'.
+
+ * src/haiku_support.cc (subset_windows, class EmacsWindow)
+ (Unparent, ParentTo): Stop calling old fullscreen functions.
+ (ClearFullscreen, FullscreenRectForMode, SetFullscreen): New
+ functions. Completely rewrite old zoom and fullscreen handling
+ code.
+ (Zoom): Send a ZOOM_EVENT and don't actually zoom.
+ (BWindow_zoom, EmacsWindow_make_fullscreen, EmacsWindow_unzoom):
+ Delete functions.
+ (be_set_window_fullscreen_mode): New function.
+
+ * src/haiku_support.h (struct haiku_zoom_event): Remove
+ `zoomed_p' parameter.
+ (enum haiku_fullscreen_mode): New enum. Update prototypes.
+
+ * src/haikufns.c (Fx_display_pixel_height): Return height
+ instead of width.
+
+ * src/haikuterm.c (haiku_make_fullscreen_consistent)
+ (haiku_read_socket, haiku_fullscreen): Adjust to always set zoom
+ and fullscreen in the main thread instead of the UI threads.
+
+ * src/haikuterm.h (struct haiku_output): Remove flag `zoomed_p'
+ and add field `fullscreen_mode'.
+
+2022-05-18 Po Lu <luangruo@yahoo.com>
+
+ Respond to changes to the size of the root window
+
+ * src/xterm.c (x_display_pixel_height, x_display_pixel_width):
+ Move here instead.
+ (handle_one_xevent): Handle ConfigureNotify for the root window.
+ (x_term_init): Select for structure events on the root window.
+
+ * src/xterm.h (struct x_display_info): New fields `screen_width'
+ and `screen_height'.
+ (x_display_pixel_height, x_display_pixel_width): Make
+ prototypes.
+
+2022-05-18 Stefan Kangas <stefan@marxist.se>
+
+ Delete entry on SPC completes file names from FAQ
+
+ * doc/misc/efaq.texi (SPC no longer completes file names): Delete
+ node: this is about a change that took place over 15 years ago and is
+ not likely to be a FAQ these days.
+
+2022-05-18 Stefan Kangas <stefan@marxist.se>
+
+ Don't refer to obsolete Ultrix support in FAQ
+
+ * doc/misc/efaq.texi (Meta key does not work in xterm): Delete
+ reference to Ultrix; that platform support was removed in Emacs 23.1.
+
+2022-05-18 Paul Eggert <eggert@day>
+
+ Avoid formatting twice in flymake
+
+ * lisp/progmodes/flymake.el (flymake-error): Don't format a
+ message twice, as that can translate quotes we don't want
+ translated.
+
+2022-05-18 Augusto Stoffel <arstoffel@gmail.com>
+
+ Fix last change in minibuffer-lazy-highlight-setup
+
+ * lisp/isearch.el (minibuffer-lazy-highlight-setup): Apply advices
+ buffer-locally.
+
+2022-05-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new display-buffer-full-frame display action
+
+ * doc/lispref/windows.texi (Buffer Display Action Functions):
+ Document it.
+
+ * lisp/window.el (display-buffer-full-frame): New display action
+ (bug#34169).
+ (display-buffer--action-function-custom-type): Add.
+ (display-buffer): Mention it.
+
+2022-05-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention next-error-function in flymake-mode doc string
+
+ * lisp/progmodes/flymake.el (flymake-mode): Note that you can set
+ next-error-function (bug#32322).
+
+2022-05-18 Po Lu <luangruo@yahoo.com>
+
+ Implement gamma-correction on Haiku
+
+ * src/dispextern.h: Add `gamma_correct' prototype on Haiku as
+ well.
+ * src/haikufns.c (gamma_correct): New function.
+ * src/haikuterm.c (haiku_defined_color): Gamma-correct colors if
+ their pixels are being allocated.
+
+2022-05-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve previous apropos-documentation-check-elc-file change
+
+ * lisp/apropos.el (apropos-documentation-check-elc-file): Add
+ comment to explain what's going on and expand to lisp-directory
+ (bug#55492).
+
+2022-05-18 Alan Mackenzie <acm@muc.de>
+
+ Fix M-x compile-defun when an interactive form is (list ...)
+
+ This is for when lexical-binding is nil. The problem fixed was M-x
+ compile-defun leaving symbols with position in the compiled function's
arglist
+ and interactive form. This fixes bug #55323. Also ensure the doc
string is
+ correctly stripped when lexical-binding is t.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-lambda): For a (list ...)
+ interactive form when lexical-binding is nil, strip the positions from
the
+ symbols in the form. Also strip the position from the symbols in the
arglist.
+ (byte-compile-make-closure): (Twice) strip symbols from positions in
the doc
+ string expression. Add comments.
+
+2022-05-18 Martin Rudalics <rudalics@gmx.at>
+
+ Clean up and simplify 'quit-restore-window' code
+
+ * lisp/window.el (window--quit-restore-select-window): New internal
+ name for 'quit-restore-select-window'.
+ (quit-restore-window): Use 'window--quit-restore-select-window'
+ instead of 'quit-restore-select-window'. Simplify code.
+
+2022-05-18 Mattias Engdegård <mattiase@acm.org>
+
+ Make printing mostly non-recursive (bug#55481)
+
+ Introduce explicit stacks for traversing common data types during
+ printing: conses, vectors, records, byte-code, hash-tables and
+ char-tables, all previously traversed using recursion in C. This
+ greatly reduces the risk of crashing Emacs from C stack overflow
+ when printing deeply nested data.
+
+ * src/print.c (Fprinc, print, PRINT_CIRCLE_CANDIDATE_P):
+ Special-case Fprinc with a plain string argument to eliminate the need
+ for keeping track of print_depth during the preprocessing phase.
+ This also improves performance.
+ (struct print_pp_entry, struct print_pp_stack, ppstack)
+ (grow_pp_stack, pp_stack_push_value, pp_stack_push_values)
+ (pp_stack_empty_p, pp_stack_pop):
+ New stack for preprocessing.
+ (print_preprocess):
+ Make mostly nonrecursive, except for string properties.
+ (enum print_entry_type, struct print_stack_entry)
+ (struct print_stack, prstack, grow_print_stack)
+ (print_stack_push, print_stack_push_vector):
+ New stack for printing.
+ (print_vectorlike, print_object):
+ Make mostly nonrecursive, except for string properties and some less
+ heavily used types.
+ * test/src/print-tests.el (print-deeply-nested):
+ New test.
+
+2022-05-18 Po Lu <luangruo@yahoo.com>
+
+ Avoid dismissing GTK+ popup menus upon wheel movement
+
+ * src/xterm.c (handle_one_xevent): Don't forward XI button
+ events for wheel buttons to GTK+ when a popup menu is active.
+
+2022-05-18 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions when calculating Haiku frame geometry
+
+ * src/haiku_support.cc (be_lock_window, be_unlock_window): New
+ functions.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufns.c (frame_geometry): Lock window before asking for
+ its dimensions and frame.
+
+2022-05-17 Po Lu <luangruo@yahoo.com>
+
+ Don't allow moving fullscreen frames on Haiku
+
+ * src/haikuterm.c (haiku_set_window_size): Fix typo in comment.
+ (haiku_set_offset): Prevent offset from changing in fullboth
+ frames.
+
+2022-05-17 Po Lu <luangruo@yahoo.com>
+
+ Fix a crash when an X connection is dropped in some situations
+
+ * src/xterm.c (x_flip_and_flush): Don't try to flush if
+ `inhibit-redisplay' is t.
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix apropos-documentation with universal argument
+
+ * lisp/apropos.el (apropos-documentation-check-elc-file): Look up
+ .elc files in the load path (and don't bug out on deleted .elc
+ files) (bug#55492).
+
+2022-05-17 Stefan Kangas <stefan@marxist.se>
+
+ Recommend Wikipedia over Usenet in FAQ
+
+ * doc/misc/efaq.texi (Origin of the term Emacs): Recommend
+ Wikipedia over Usenet to find out more about TECO.
+
+2022-05-17 Stefan Kangas <stefan@marxist.se>
+
+ Remove some ancient Emacs compat code
+
+ * lisp/cedet/mode-local.el (mode-local-describe-bindings-1):
+ * lisp/cedet/semantic/senator.el (senator-copy-tag-to-register):
+ * lisp/gnus/nnrss.el (nnrss-opml-export):
+ * lisp/net/newst-backend.el (newsticker-opml-export):
+ * lisp/textmodes/reftex.el (reftex-mode-menu):
+ * lisp/woman.el (woman-menu): Remove some ancient Emacs compat code.
+
+2022-05-17 Matthias Meulien <orontee@gmail.com>
+
+ Update comment about comint-osc-handlers
+
+ * lisp/comint.el: Update comment about comint-osc-handlers.
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow running several commands in compilation-start
+
+ * lisp/progmodes/compile.el (compilation-start): Allow not erasing
+ the contents of the buffer (bug#28892).
+
+2022-05-17 Protesilaos Stavrou <info@protesilaos.com>
+
+ Use better word for "buffer" in Greek TUTORIAL (bug#55332)
+
+ * TUTORIAL.el_GR: Replace all instances of "αποσβεστήρας" with the
+ more accurate "ενταμιευτής".
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bogus future history entries for `M-x grep'
+
+ * lisp/net/mailcap.el (mailcap-file-default-commands): If we have
+ no matching MIME types, don't iterate over (nil) (bug#27236).
+
+ This fixes things like:
+
+ (mailcap-file-default-commands '("grep --color=auto -nH --null '' "))
+ => ("/usr/bin/emacs -nw")
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix kmacro-keymap binding after previous change
+
+ * lisp/kmacro.el (kmacro-keymap): Fix binding after
+ kmacro-redisplay command name change.
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Explain more about jit-lock-mode calling conventions
+
+ * lisp/jit-lock.el (jit-lock-mode): Explicitly explain ARG
+ (bug#55451).
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add glossary entries for "interactively"
+
+ * doc/emacs/glossary.texi (Glossary): Mention "interactively" and
+ how it relates to the "command" concept (bug#55461).
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix pp-emacs-lisp-code printing of cons cells
+
+ * lisp/emacs-lisp/pp.el (pp--insert-lisp): Fix printing of cons
+ cells (bug#55478).
+
+2022-05-17 Robert Pluim <rpluim@gmail.com>
+
+ Correct cycle-spacing-actions type
+
+ * lisp/simple.el (cycle-spacing-actions): Fix type for predefined
+ action with fixed numeric arg case.
+
+2022-05-17 Robert Pluim <rpluim@gmail.com>
+
+ Clarify 'cycle-spacing-actions' docstring
+
+ * lisp/simple.el (cycle-spacing-actions): Clarify docstring.
+
+2022-05-17 Po Lu <luangruo@yahoo.com>
+
+ Avoid race conditions when computing real frame positions on Haiku
+
+ * src/haiku_support.cc (DispatchMessage): Accept
+ SEND_MOVE_FRAME_EVENT.
+ (class EmacsWindow, FrameMoved): Include decorator frame in
+ MOVE_EVENT events.
+ (be_send_move_frame_event): New function.
+ * src/haiku_support.h (struct haiku_move_event): Include
+ decorator dimensions. Update prototypes.
+
+ * src/haikufns.c (haiku_update_after_decoration_change): Ask for
+ a move frame event and don't do anything if configury is not yet
+ complete.
+
+ * src/haikuterm.c (haiku_read_socket): Adjust accordingly.
+
+2022-05-17 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Modi script
+
+ * lisp/language/indian.el ("Modi"): New language environment.
+ Add composition rules for Modi. Add sample text and input
+ method.
+ Add sample text to various scripts.
+ Rename Punjabi to Gurmukhi.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Modi.
+ * lisp/leim/quail/indian.el ("modi"): New input method.
+ (Bug#55439)
+
+ * etc/HELLO: Add a Modi greeting.
+ Rename Hindi to Devanagari.
+ Add a Gurmukhi greeting.
+ Replace Odia greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the name of a kmacro command.
+
+ * lisp/kmacro.el (kmacro-redisplay): Rename from
+ 'kdb-macro-redisplay' (which was wrong and included a typo).
+
+ * etc/NEWS: Announce the change. (Bug#55471)
+
+2022-05-17 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Correct a rare error in the state cache
+
+ * lisp/progmodes/cc-engine.el
(c-append-lower-brace-pair-to-state-cache): Do
+ not record a position in a macro as the starting position in
+ c-state-brace-pair-desert. Instead record the position at the
beginning of
+ that macro.
+
+2022-05-17 Alan Mackenzie <acm@muc.de>
+
+ Correct indentation of opening brace in xdisp.c, which isn't at start
of defun
+
+ * xdisp.c (calc_pixel_width_or_height): indent the opening brace of a
+ substatement correctly. It's previous position, in column 0, caused
+ indentation errors in C Mode.
+
+2022-05-17 Po Lu <luangruo@yahoo.com>
+
+ Fix unused function warning on X
+
+ * src/xsettings.c (xg_settings_key_valid_p): Surround with
+ HAVE_PGTK and HAVE_GSETTINGS.
+
+2022-05-17 Pieter van Prooijen <pieter.van.prooijen@teloden.nl>
+
+ Fix font options compilation with gsettings disabled
+
+ * src/xsettings.c (xsettings_get_font_options): Return a font_options
+ even if gsettings is not enabled.
+
+2022-05-17 Po Lu <luangruo@yahoo.com>
+
+ Rewrite Haiku frame geometry code to handle decorator frames
+
+ * doc/lispref/frames.texi (Frame Layout): Document changes to
+ Haiku frame layout.
+
+ * src/haiku_support.cc (class EmacsWindow, MoveToIncludingFrame)
+ (EmacsMoveTo, MakeFullscreen): Move to an offset including the
+ decorator frames.
+ (be_get_window_decorator_dimensions):
+ (be_get_window_decorator_frame): New functions.
+
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufns.c (haiku_update_after_decoration_change): New
+ function.
+ (haiku_create_frame, haiku_set_undecorated)
+ (haiku_set_override_redirect): Call that function.
+ (frame_geometry): Actually calculate frame geometry based on
+ decorator and frame sizes.
+
+ * src/haikuterm.c (haiku_coords_from_parent): Use frame width
+ instead.
+ (haiku_read_socket): Set left and top positions based on
+ decorator width and height.
+ * src/haikuterm.h (struct haiku_output): New field `frame_x' and
+ `frame_y'.
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix package-quickstart breakage
+
+ * lisp/emacs-lisp/package.el (package-quickstart-refresh): Work
+ around syntax-ppss now clobbering match data (but it's not clear
+ whether that's supposed to be allowed) (bug#55447).
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve Finternal__define_uninitialized_variable erroring
+
+ * src/eval.c (Finternal__define_uninitialized_variable): Say what
+ symbol we're bugging out on for easier debugging.
+
+2022-05-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix edebug-tests test failure after prin1 change
+
+ * lisp/emacs-lisp/ert-x.el (ert--make-print-advice): Fix test
+ failures in edebug-tests.
+
+2022-05-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Some minor Tramp fixes
+
+ * lisp/net/tramp-cmds.el (tramp-list-tramp-buffers)
+ (tramp-list-remote-buffers): Add ;;;###tramp-autoload cookie.
+
+ * lisp/net/tramp-fuse.el (tramp-fuse-remove-hidden-files): New defvar.
+ (tramp-fuse-remove-hidden-files): Use it.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handler-askquestion):
+ Keep regression tests running.
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Remove extra EmacsPopUpMenu class
+
+ * src/haiku_support.cc (class EmacsPopUpMenu): Delete class that
+ does nothing.
+ (BPopUpMenu_new): Use BPopUpMenu directly.
+ (BMenu_add_title): Clean up coding style.
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Add more cursor bitmaps on Haiku
+
+ * src/haikufns.c (cursor_bitmaps_for_id): Add vertd, horizd and
+ hand bitmaps.
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Let XTread_socket read events for all non-DND displays
+
+ * src/xterm.c (XTread_socket): Allow reading events from
+ displays other than the DND display during drag-and-drop.
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Fix byte swapping of some drag-and-drop messages
+
+ * src/xterm.c (SWAPCARD16, SWAPCARD32): Actually swap the data
+ instead of just calling bswap_32/bswap_16.
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Fix detection of wheel movement during drag-and-drop
+
+ * src/xterm.c (x_dnd_send_position): Don't treat Button8 as the
+ mouse wheel.
+
+2022-05-16 kobarity <kobarity@gmail.com>
+
+ Fix Python highlighting of some assignment statements
+
+ * lisp/progmodes/python.el (python-rx): Limit not-simple-operator
+ to a single line (bug#51362).
+
+2022-05-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option compilation-hidden-output
+
+ * doc/emacs/building.texi (Compilation Mode): Document it.
+ * lisp/progmodes/compile.el (compilation-hidden-output): New user
+ option.
+ (compilation-filter): Use it.
+ (compilation--hide-output): New function.
+
+2022-05-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't expose Vprint_variable_mapping to Lisp
+
+ * src/print.c: Don't expose Vprint_variable_mapping to the Lisp
+ world, because it really should be immutable.
+ (print_create_variable_mapping): Initialization moved here from
+ syms_of_print.
+ (print_bind_overrides): Call it.
+ (syms_of_print): Protect the mapping variable.
+
+2022-05-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Make TAB work in makefile mode when transient mark mode is on"
+
+ This reverts commit a4c96147d1875d359db8d7fda3489954046a5db8.
+
+ This change made hitting RET after an assignment insert a TAB character
+ (bug#55446).
+
+2022-05-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve newsticker file name handling and printing
+
+ * lisp/net/newst-backend.el (newsticker--images-dir)
+ (newsticker--icons-dir, newsticker--cache-dir): Don't use concat
+ to construct file names.
+ (newsticker-download-images, newsticker-download-enclosures): Ditto.
+ (newsticker--cache-save-feed): Bind print-level etc when printing.
+
+ * lisp/net/newst-treeview.el (newsticker-treeview-save): Ditto.
+
+ This patch was mostly written by mailj2@protonmail.com, but was then
+ rewritten by me, and has some contributions from Xavier Capaldi (which
+ doesn't need copyright assignment).
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Document recent tooltip changes on NS
+
+ * doc/emacs/frames.texi (Tooltips):
+ * etc/NEWS: Announce that non-system tooltips are now available
+ on Nextstep.
+
+2022-05-16 Po Lu <luangruo@yahoo.com>
+
+ Improve error checking in `haiku-roster-launch'
+
+ * src/haikuselect.c (Fhaiku_roster_launch): Signal error if
+ FILE-OR-TYPE doesn't exist or ARGS does not apply.
+
+2022-05-16 Tassilo Horn <tsdh@gnu.org>
+
+ Improve cycle-spacing and bind it to M-SPC by default
+
+ * lisp/bindings.el (esc-map): Bind M-SPC to cycle-spacing instead of
+ just-one-space.
+ * lisp/simple.el (delete-space--internal): New function.
+ (delete-horizontal-space): Use it.
+ (delete-all-space): New command.
+ (just-one-space): Implement on its own instead of calling
+ cycle-spacing with a special flag.
+ (cycle-spacing--context): Make it a plist instead of a list. Adapt
+ docstring accordingly.
+ (cycle-spacing-actions): New user option.
+ (cycle-spacing): Rewrite so that it performs the actions in
+ cycle-spacing-actions instead of the hard-coded ones.
+ * doc/emacs/killing.texi (characters): Mention and add a variable
+ index entry for cycle-spacing-actions.
+ * etc/NEWS: Document that M-SPC is now cycle-spacing instead of
+ just-one-space.
+
+2022-05-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f928330fa8 Update to Org 9.5.3-6-gef41f3
+ 007bf9a34c Hide temporary FUSE files in Tramp
+ 5dbaddc729 ; Fix some typos
+
+2022-05-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 48201ce8de ; * lisp/electric.el (electric-indent-mode): Fix a typo.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Improve safety of handling unsupported drop events on X
+
+ * src/keyboard.c (kbd_buffer_get_event):
+ * src/xterm.c (handle_one_xevent): Check that the event frame is
+ still live after calling arbitrary Lisp code.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Clean up Haiku code after file panel changes
+
+ * src/haiku_support.cc:
+ * src/haiku_support.h: Stop including pthread.h and specpdl_ref.
+
+ * src/haikumenu.c (run_menu_bar_help_event): Ignore invalid help
+ events instead of aborting.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Handle pointer axes changing along with scroll valuators
+
+ * xterm.c (x_get_scroll_valuator_delta): Set valuator_return to
+ NULL if no valuator was found.
+ (handle_one_xevent): Assume pointer axes might've changed if no
+ scroll valuator was found but valuators were set when handling
+ motion events.
+
+2022-05-15 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.3-6-gef41f3
+
+2022-05-15 Stefan Kangas <stefan@marxist.se>
+
+ Minor clarification of package-update-all docstring
+
+ * lisp/emacs-lisp/package.el (package-update-all): Clarify
+ docstring slightly. (Bug#55408)
+
+2022-05-15 Augusto Stoffel <arstoffel@gmail.com>
+
+ Make minibuffer lazy highlight setup buffer-local where appropriate
+
+ * lisp/isearch.el (minibuffer-lazy-highlight-setup): Modify hooks
+ buffer-locally, so that recursive minibuffers are not affected by the
+ special behavior of lazy-highlight. Also make
+ 'isearch-filter-predicate' buffer-local, so that isearch in the
+ minibuffer is not affected by the region filter (bug#55110).
+
+2022-05-15 Simen Heggestøyl <simenheg@runbox.com>
+
+ Recognize some more SCSS selectors
+
+ * lisp/textmodes/css-mode.el (css--selector-regexp): Recognize some
+ more SCSS selectors.
+
+ * test/lisp/textmodes/css-mode-resources/scss-selectors.txt: Add tests
+ for them.
+
+2022-05-15 Simen Heggestøyl <simenheg@runbox.com>
+
+ Fix warning suppression in (S)CSS mode tests
+
+ * test/lisp/textmodes/css-mode-tests.el (css-mode-test-selectors)
+ (scss-mode-test-selectors): Fix warning suppression.
+
+2022-05-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix native-comp type of prin1-to-string
+
+ * lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix type
+ of prin1-to-string.
+
+2022-05-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust more prin1-to-string callers
+
+ * src/w32.c (check_windows_init_file):
+ * src/comp.c (Lisp_Object):
+ (emit_lisp_obj_reloc_lval):
+ (emit_lisp_obj_rval):
+ (emit_mvar_rval):
+ (emit_limple_insn):
+ (emit_static_object): Adjust prin1-to-string callers.
+
+2022-05-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add OVERRIDES argument to prin1/prin1-to-string
+
+ * doc/lispref/streams.texi (Output Functions): Document it.
+ (Output Overrides): New node.
+
+ * src/process.c (Faccept_process_output):
+ * src/print.c (debug_print, print_error_message):
+ * src/pdumper.c (print_paths_to_root_1, decode_emacs_reloc):
+ * src/lread.c (readevalloop):
+ * src/eval.c (internal_lisp_condition_case):
+ * src/editfns.c (styled_format): Adjust prin1/prin1-to-string
+ callers.
+
+ * src/print.c (Fprin1): Take an OVERRIDES parameter.
+ (print_bind_overrides, print_bind_all_defaults): New functions.
+ (Fprin1_to_string): Take an OVERRIDES parameter.
+
+2022-05-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Hide temporary FUSE files in Tramp
+
+ * lisp/net/tramp-fuse.el (tramp-fuse-remove-hidden-files): New defsubst.
+ (tramp-fuse-handle-directory-files)
+ (tramp-fuse-handle-file-name-all-completions): Use it.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Make Haiku stipple display slightly faster
+
+ * src/haikuterm.c (haiku_draw_stipple_background): Draw tiled
+ bitmap to end of stipple instead of the end of the frame.
+
+2022-05-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't freeze Emacs on colour codes in sccs-mode
+
+ * lisp/textmodes/css-mode.el (css--font-lock-keywords): Don't
+ freeze Emacs on #ffffff #ffffff, and be more strict in parsing
+ selectors (bug#53203).
+
+2022-05-15 Simen Heggestøyl <simenheg@runbox.com>
+
+ Update CSS Multi-column Layout Module properties
+
+ * lisp/textmodes/css-mode.el (css-property-alist): Update CSS
+ Multi-column Layout Module properties.
+
+2022-05-15 Simen Heggestøyl <simenheg@runbox.com>
+
+ Update CSS Box Alignment Module properties
+
+ * lisp/textmodes/css-mode.el (css-property-alist): Update properties.
+
+2022-05-15 Simen Heggestøyl <simenheg@runbox.com>
+
+ Add `all` to CSS property list
+
+ * lisp/textmodes/css-mode.el (css-property-alist): Add new property
+ `all` from the CSS Cascading and Inheritance Level 3 module.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Fix use of more invalid keys in PGTK GSettings code
+
+ * src/xsettings.c (apply_gsettings_font_hinting):
+ (apply_gsettings_font_rgba_order): Test for key existence before
+ using it.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Improve return value of `haiku-roster-launch'
+
+ * src/haikuselect.c (Fhaiku_roster_launch): Return
+ `already-running' if no PID is available since the target
+ application is already running.
+ (syms_of_haikuselect): New defsym.
+
+2022-05-15 Po Lu <luangruo@yahoo.com>
+
+ Simplify Haiku cursor management code
+
+ * src/haiku_support.cc (BCursor_create_default)
+ (BCursor_create_modeline, BCursor_from_id, BCursor_create_i_beam)
+ (BCursor_create_progress_cursor, BCursor_create_grab)
+ (BCursor_delete): Delete specialized cursor creation functions.
+ (be_delete_cursor, be_create_cursor_from_id): New functions.
+ (BView_set_view_cursor): Fix coding style.
+ * src/haiku_support.h (enum haiku_cursor): Add all cursor IDs.
+ * src/haikufns.c (haiku_free_custom_cursors):
+ (haiku_set_mouse_color):
+ * src/haikuterm.c (haiku_term_init): Adjust accordingly.
+
+2022-05-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix database related to some scripts
+
+ * lisp/international/fontset.el (script-representative-chars): Add
+ tai-le and tai-lue scripts.
+ (otf-script-alist): Fix the name of tai-le.
+
+ * src/w32font.c (syms_of_w32font): Fix typos in some script symbol
+ names.
+
+2022-05-15 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Syloti Nagri script
+
+ * lisp/language/indian.el ("Syloti Nagri"): New language environment.
+ Add composition rules for Syloti Nagri. Add sample text and input
+ method.
+ Improve composition rules for Kaithi, Tirhuta, Sharada and Siddham.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Syloti Nagri.
+ * lisp/leim/quail/indian.el ("syloti-nagri"): New input method.
+
+ * etc/HELLO: Add two Syloti Nagri greetings.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-15 Visuwesh <visuweshm@gmail.com>
+
+ describe-keymap: Suggest symbol at point
+
+ * lisp/help-fns.el (describe-keymap): Suggest symbol at point
+ if it is a keymap. (Bug#55393)
+ * etc/NEWS: Announce change in behavior of 'describe-keymap'.
+
+2022-05-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 8370caa835 ; * lisp/electric.el (electric-indent-mode): Clarify doc (...
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Allocate some buffers used during event handling safely
+
+ * src/xterm.c (handle_one_xevent): Allocate string lookup and
+ device disable data safely since they can potentially become
+ very large.
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes trying to access nonexistent key
+
+ * src/xsettings.c (xg_settings_key_valid_p): New function.
+ (apply_gsettings_font_antialias): Test that `font-aliasing' is
+ actually available. (bug#55416)
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Fix scroll event translation for legacy button events
+
+ * src/xterm.c (handle_one_xevent): Don't treat emulated Button8
+ as a wheel event.
+
+2022-05-14 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code for display-graphic-p
+
+ * lisp/dframe.el (dframe-have-timer-flag):
+ * lisp/emacs-lisp/chart.el (chart-face-pixmap-list):
+ * lisp/speedbar.el (speedbar-easymenu-definition-base): Remove
+ XEmacs compat code; assume display-graphic-p is fboundp.
+
+ * lisp/progmodes/cperl-mode.el (cperl-tags-hier-init): Remove XEmacs
+ compat code.
+
+2022-05-14 Stefan Kangas <stefan@marxist.se>
+
+ Delete some compat code for very old Emacs versions
+
+ * lisp/apropos.el (apropos-local-value):
+ * lisp/ido.el (ido-buffer-internal):
+ * lisp/leim/quail/ipa.el (ipa-x-sampa-prepend-to-keymap-entry):
+ * lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
+ * lisp/speedbar.el (speedbar-create-tag-hierarchy): Delete compat code
+ for very old versions of Emacs.
+ * lisp/gnus/nnmail.el (nnmail-fancy-expiry-target): Avoid using
+ obsolete name.
+
+2022-05-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ src/lisp.h (FOR_EACH_TAIL_SAFE): Typo
+
+2022-05-14 Eli Zaretskii <eliz@gnu.org>
+
+ Make 'check-declare-directory' more portable
+
+ * lisp/emacs-lisp/check-declare.el (check-declare-directory): Use
+ 'directory-files-recursively' instead of running Find and Grep in
+ a subprocess. (Bug#55386)
+
+2022-05-14 Stefan Kangas <stefan@marxist.se>
+
+ Drop ancient OEmacs support from vcursor.el
+
+ * lisp/vcursor.el (vcursor-bind-keys, vcursor-key-bindings)
+ (vcursor-other-window): Drop OEmacs support. OEmacs was "a
+ version of GNU Emacs V19.19" that worked "under plain MSDOS,
+ Windows, or DESQview/X".
+
+2022-05-14 Stefan Kangas <stefan@marxist.se>
+
+ Remove Emacs 22 compat code from htmlfontify.el
+
+ * lisp/htmlfontify.el (hfy-prop-invisible-p): Redefine as obsolete
+ function alias for invisible-p. Update all callers.
+
+2022-05-14 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from org-mode
+
+ * lisp/org/org-clock.el (org-clock-select-task): Remove XEmacs
+ compat code.
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes for popup dialogs on macOS
+
+ * nsmenu.m (pop_down_menu): Restore old hack for macOS.
+ ([EmacsDialogPanel initWithTitle:isQuestion:]): Set command
+ title correctly.
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Fix processing of dialog box items on NS
+
+ * src/nsmenu.m (pop_down_menu): Remove old hack and discard menu
+ items.
+ (ns_popup_dialog):
+ ([EmacsDialogPanel initWithContentRect:styleMask:backing:defer:]):
+ ([EmacsDialogPanel windowShouldClose:]):
+ ([EmacsDialogPanel dealloc]):
+ ([EmacsDialogPanel processdialog:]):
+ ([EmacsDialogPanel addButton:value:row:]):
+ ([EmacsDialogPanel addString:row:]):
+ ([EmacsDialogPanel clicked:]):
+ ([EmacsDialogPanel initFromContents:isQuestion:]):
+ ([EmacsDialogPanel timeouthandler:]):
+ ([EmacsDialogPanel runDialogAt:]): Use the regular menu item
+ machinery to parse dialog items instead of the incorrect ad-hoc
+ code used previously.
+
+ * src/nsterm.h: Update prototypes.
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Avoid unsafe alloca when looking up toplevels
+
+ * src/xterm.c (x_dnd_compute_toplevels): Use SAFE_ALLOCA, since
+ alloca isn't safe when there are lots of toplevels or the window
+ manager is broken.
+
+2022-05-14 Eli Zaretskii <eliz@gnu.org>
+
+ Fix undigest-tests on MS-Windows
+
+ * lisp/emacs-lisp/ert-x.el (ert-with-temp-file): Accept a new
+ keyword argument :coding CODING to use as the encoding when
+ writing initial text to the temporary file.
+
+ * test/lisp/mail/undigest-tests.el (rmail-undigest-test-rfc934-digest)
+ (rmail-undigest-test-rfc1153-digest-strict)
+ (rmail-undigest-test-rfc1153-less-strict-digest)
+ (rmail-undigest-test-rfc1153-sloppy-digest)
+ (rmail-undigest-test-rfc1521-mime-digest)
+ (rmail-undigest-test-multipart-mixed-digest): Force the temporary
+ mbox files to have Unix-style EOL format.
+
+2022-05-14 Martin Rudalics <rudalics@gmx.at>
+
+ 2022-05-14 Martin Rudalics <rudalics@gmx.at>
+
+ * lisp/window.el (quit-restore-select-window): New function.
+ (quit-restore-window): Call 'quit-restore-select-window' to avoid
+ selecting inactive minibuffer window (Bug#55403).
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Try to restore valuator values when a device is enabled
+
+ * src/xterm.c (struct xi_known_valuator): New struct.
+ (xi_populate_device_from_info): Figure out all the values of the
+ valuators and set the scroll valuators's current_value to it.
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Better fix for disappearing menu items on NS
+
+ * src/frame.c (delete_frame): Revert last change.
+ * src/nsmenu.m (free_frame_menubar): Only free if that frame's
+ menu bar is actually being displayed.
+ (ns_update_menubar): Note the last frame to have updated the
+ menu bar.
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Add more cursor bitmaps on Haiku
+
+ * src/haikufns.c (cursor_bitmaps): Register new cursor bitmaps.
+ * src/haikugui.h (hand_ptr_bits, hand_ptrmask_bits)
+ (horizd_ptr_bits, horizd_ptrmask_bits, vertd_ptr_bits)
+ (vertd_ptrmask_bits, hourglass_bits, hourglass_mask_bits): New
+ cursor bitmaps.
+
+2022-05-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a769cbfcfb Fix lexical-binding fallout in vhdl-mode.el
+
+2022-05-14 Po Lu <luangruo@yahoo.com>
+
+ Work around deleting tooltip frames clearing menubars on NS
+
+ * src/frame.c (delete_frame): Update menu bars if a tooltip
+ frame was deleted on NS.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Implement non-system tooltips on NS
+
+ * src/nsfns.m (unwind_create_frame): Return Lisp_Object like on
+ X.
+ (do_unwind_create_frame): New function.
+ (Fx_create_frame): Adjust accordingly.
+ (compute_tip_xy): Fix coding style.
+ (unwind_create_tip_frame, ns_create_tip_frame): New functions.
+ (x_hide_tip, Fx_show_tip, Fx_hide_tip): Create and hide actual
+ tooltip frames.
+ (syms_of_nsfns): New defvar `x-max-tooltip-size' and staticpros.
+
+ * src/nsterm.m (ns_set_window_size): Clean up coding style.
+ ([EmacsWindow initWithEmacsFrame:]):
+ ([EmacsWindow initWithEmacsFrame:fullscreen:screen:]): Handle
+ tooltip frames.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Put help-fns--compiler-macro last in the *Help* buffer
+
+ * lisp/help-fns.el (help-fns-describe-function-functions): Make
+ help-fns--compiler-macro the last entry (because it's not the most
+ interesting information).
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Fix display class of tooltip frames on Haiku
+
+ * haikufns.c (haiku_create_tip_frame): Set up frame display
+ class.
+ (syms_of_haikufns): New symbols `mono', `grayscale' and `color'.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore `with-help-window' return code
+
+ * lisp/help.el (help--window-setup): Return the correct thing.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the *Help* output for compiler macros and the like
+
+ * doc/lispref/functions.texi (Advice and Byte Code): New node.
+
+ * lisp/help-fns.el (help-fns--compiler-macro): Also output data on
+ other byte compilation things, and link to the manual (bug#23264).
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Reenable frame sync for child frames after they're unparented
+
+ * src/xfns.c (x_set_parent_frame, Fx_create_frame): Use correct
+ boolean constants.
+ * src/xterm.c (handle_one_xevent): Enable frame synchronization
+ upon receiving a sync request event.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak querying in package-update-all
+
+ * lisp/emacs-lisp/package.el (package-update-all): Reverse the
+ QUERY logic to make calling more regular.
+
+2022-05-13 Yuan Fu <casouri@gmail.com>
+
+ Extract out treesit-search-forward
+
+ * lisp/treesit.el (treesit-search-forward, treesit-search-beginning,
+ treesit-search-end): New functions.
+ (treesit-traverse-defun): Remove function.
+ (treesit-beginning-of-defun, treesit-end-of-defun): Replace
+ 'treesit-traverse-defun' with 'treesit-search-forward' and fiends.
+ * test/src/treesit-tests.el: Add reminder for tests.
+
+2022-05-13 Yuan Fu <casouri@gmail.com>
+
+ * lisp/treesit.el (treesit-node-at): Add check for nil node.
+
+2022-05-13 Yuan Fu <casouri@gmail.com>
+
+ Add defun navigation
+
+ * lisp/treesit.el (treesit-defun-query): New variable.
+ (treesit-traverse-defun, treesit-beginning-of-defun,
+ treesit-end-of-defun): New functions.
+ * test/src/treesit-tests.el: Add reminders for tests.
+
+2022-05-13 Yuan Fu <casouri@gmail.com>
+
+ New node traversal functions
+
+ * lisp/treesit.el (treesit-traverse-parent): New alias.
+ (treesit-traverse-depth-first, treesit--traverse-breadth-first-1,
+ treesit-traverse-breadth-first, treesit-next-sibling-or-up,
+ treesit-traverse-forward-depth-first): New functions.
+ * test/src/treesit-tests.el (treesit-node-supplemental): Add reminders
+ for tests.
+
+2022-05-13 Yuan Fu <casouri@gmail.com>
+
+ Redefine treesit-node-at
+
+ The old 'treesit-node-at' becomes 'treesit-node-on'. The new
+ 'treesit-node-at' has slightly different semantics. Now
+ 'treesit-node-on' gets the smallest node covering a range and
+ 'treesit-node-at' gets the smallest node after a position.
+
+ The reason of change can be found in the docstring of
+ 'treesit-node-on' (the BEWARE part): its result can be sometimes
+ surprising/unexpected.
+
+ * doc/lispref/parsing.texi (Retrieving Node): Update manual.
+ * lisp/treesit.el (treesit-node-at): Change to new definition.
+ (treesit-node-on): Inherits the old definition of
+ 'treesit-node-at'. Parameter END is now mandatory.
+ (treesit-language-at, treesit-node-field-name): Use the new '-on'
+ function.
+ (treesit-font-lock-fontify-region, treesit-simple-indent-presets,
+ treesit-indent): Use the new '-at' function.
+ * test/src/treesit-tests.el (treesit-node-supplemental): Update tests.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Use ert-with-temp-file in undigest-tests.el
+
+ * test/lisp/mail/undigest-tests.el (ert-x): Require.
+ (rmail-undigest-test-rfc934-digest)
+ (rmail-undigest-test-rfc1153-digest-strict)
+ (rmail-undigest-test-rfc1153-less-strict-digest)
+ (rmail-undigest-test-rfc1153-sloppy-digest)
+ (rmail-undigest-test-rfc1521-mime-digest)
+ (rmail-undigest-test-multipart-mixed-digest): Use ert-with-temp-file.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Don't use obsolete yow library
+
+ * lisp/erc/erc.el (erc-quit-reason-zippy, erc-part-reason-zippy):
+ Don't use obsolete yow library.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from flyspell.el
+
+ * lisp/textmodes/flyspell.el (flyspell-display-next-corrections):
+ Remove XEmacs compat code.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from org-mode
+
+ * lisp/org/ol-eww.el (org-eww-copy-for-org-mode):
+ * lisp/org/ol-w3m.el (org-w3m-copy-for-org-mode):
+ * lisp/org/org-refile.el (org-refile):
+ * lisp/org/org.el (org-change-tag-in-region): Remove XEmacs compat
+ code.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from eudc-bob.el
+
+ * lisp/net/eudc-bob.el (eudc-bob-can-display-inline-images): Make
+ into obsolete alias for display-graphic-p. Update all callers.
+ (eudc-bob-display-jpeg): Remove XEmacs compat code.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new minor mode `header-line-indent-mode'
+
+ This is mostly factored out from tabulated-list.el (with bugs fixed).
+
+ * doc/lispref/modes.texi (Header Lines): Document it.
+ * lisp/display-line-numbers.el (header-line-indent): New variable.
+ (header-line-indent--line-number-width)
+ (header-line-indent--watch-line-number-width)
+ (header-line-indent--window-scroll-function): New helper functions.
+ (header-line-indent-mode): New minor mode.
+
+ * lisp/display-line-numbers.el (header-line-indent-width): New
+ variable.
+
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-line-number-width)
+ (tabulated-list-watch-line-number-width)
+ (tabulated-list-window-scroll-function): Make into obsolete aliases.
+ (tabulated-list-mode): Use 'header-line-indent-mode'.
+
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-init-header):
+ Adjust the header line format and computation.
+
+ * src/buffer.c (syms_of_buffer): Mention header-line-indent-mode.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert mistaken change in help-mode-setup
+
+ * lisp/help-mode.el (help-mode-setup): Revert mistakenly applied
+ change from cd87a5c7a.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't overwrite variables set by callback in help--window-setup
+
+ * lisp/help.el (help--window-setup): Initialize the buffer in the
+ correct order to avoid resetting variables set by the callback.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't clear out local variables in `with-help-window'
+
+ * lisp/help-mode.el (help-mode-setup): Declare obsolete.
+ (help-mode-finish): Ditto.
+
+ * lisp/help.el (with-help-window): Don't be a wrapper around
+ `with-temp-buffer-window', because that made the macro big and
+ difficult to understand.
+ (help--window-setup): Implement the relevant bits from
+ `with-temp-buffer-window'. Also don't clear out local variables,
+ because that makes things like `text-scale-mode' not work (bug#25979).
+
+2022-05-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/lispref/help.texi (Keys in Documentation): Typo in last change
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow substitute-command-keys to include menus in \{...} output
+
+ * doc/lispref/help.texi (Keys in Documentation): Document it.
+ * lisp/help.el (substitute-command-keys): Add an argument to
+ include menus in the \{...-map} output (bug#24236).
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Include the number of dependencies in the install prompt
+
+ * lisp/emacs-lisp/package.el (package-menu--list-to-prompt): Add
+ the info to the prompt (bug#23346).
+ (package--dependencies): New function.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow calling package-update-all from the command line
+
+ * lisp/emacs-lisp/package.el (package-update-all): Allow calling from
+ the command line with -f package-update-all without any queries.
+
+2022-05-13 Pieter van Prooijen <pieter.van.prooijen@teloden.nl>
+
+ Use gsettings font rendering entries for pgtk builds
+
+ If present, apply the gsettings font hinting and antialiasing
+ entries when creating a font in cairo. Do this at
+ initialization and when the entries change, re-rendering the
+ frames.
+
+ * src/ftcrfont.c (ftcrfont_open): Use the font_options derived
+ from gsettings when opening a font.
+ (ftcrfont_cached_font_ok): Report a cached font as invalid if
+ its font options differ from the current options inside
+ gsettings.
+ * src/xsettings.c (apply_gsettings_font_hinting)
+ (apply_gsettings_font_alias, apply_gsettings_font_rgba_order):
+ Convert the settings from GSettings to the cairo_font_options_t
+ object.
+ (init_gsettings, something_changed_gsettingsCB): Invoke the
+ apply functions if the relevant settings changed.
+ (store_font_options_changed): Store an event to re-render the
+ fonts.
+ (xsetting_get_font_options)
+ * src/xsettings.h (xsettings_get_font_options): New function.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a provide in epa-ks
+
+ * lisp/epa-ks.el (epa-ks): Add a provide (bug#55388).
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from pascal.el
+
+ * lisp/progmodes/pascal.el (pascal-outline-map): Remove XEmacs compat
+ code.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/language/thai-util.el (thai-word-mode-map): Prefer defvar-keymap.
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix dabbrev expansion after recent file-name buffer addition
+
+ * lisp/dabbrev.el (dabbrev--find-expansion): Remove the now-dead
+ file name buffer from dabbrev--friend-buffer-list, so that we
+ don't trip over the killed buffer later (bug introduced in 2d0085f756).
+
+2022-05-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make imenu-flush-cache into a function
+
+ * doc/emacs/programs.texi (Imenu): Remove documentation.
+
+ * lisp/imenu.el (imenu-flush-cache): Make into a function, since
+ this isn't supposed to be used interactively.
+
+2022-05-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix lexical-binding fallout in vhdl-mode.el
+
+ * lisp/progmodes/vhdl-mode.el (arch-alist, pack-alist)
+ (file-alist, unit-alist, rule-alist): Defvar them, since vhdl-aput
+ expects them to be dynamically bound. (Bug#55389)
+ (vhdl-speedbar-insert-hierarchy): Rename the PACK-ALIST argument
+ to PACKAGE-ALIST, to avoid shadowing the global variable.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Allow changing the face used for text and frame colors in tooltips
+
+ * etc/NEWS: Announce new arguments to `tooltip-show'.
+ * lisp/tooltip.el (tooltip-show): Accept new arguments
+ `text-face' and `frame-face'. Use them to display text and
+ determine the foreground, background and border colors of the
+ tooltip frame respectively.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Rely solely on device scaling for fonts on PGTK
+
+ * src/pgtkterm.c (pgtk_get_text_scaling_factor): Delete
+ function.
+ (pgtk_term_init): Stop multiplying dpi by text scale.
+ (bug#55394)
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Fix display of image reliefs for tab bars on NS
+
+ * src/nsterm.m (ns_draw_image_relief): New function.
+ Synchronize code with X.
+ (ns_dumpglyphs_image): Use that function instead, as on X.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Minor cleanups to PGTK code
+
+ * src/pgtkterm.c (pgtk_text_scaling_factor): Rename to
+ `pgtk_get_text_scaling_factor', clean up coding style, and fix
+ leak of GSettings object.
+ (pgtk_term_init): Clean up coding style and fix scroll
+ increments.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Improve test for empty help-echo on NS menu bar items
+
+ * src/nsmenu.m ([EmacsMenu menu:willHighlightItem:]): Also check
+ if idx is valid.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Display help-echo for popup menus on NS
+
+ * src/nsmenu.m ([EmacsMenu menu:willHighlightItem:]): Display
+ help echo for ordinary popup menus as well.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Fix extraneous quit events processing GTK native input inside popups
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Return
+ immediately if a popup is active.
+ * src/xterm.c (x_filter_event): Clear `xg_pending_quit_event' if
+ a popup is active.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Add more cursor bitmaps on Haiku
+
+ * src/haikufns.c (cursor_bitmaps, cursor_bitmaps_for_id):
+ Register crosshair and xterm cursors.
+
+ * src/haikugui.h (cross_ptr_bits, cross_ptrmask_bits)
+ (ibeam_ptr_bits, ibeam_ptrmask_bits): New cursor bitmaps.
+
+2022-05-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f03c5d81bd Fix ControlPath quoting in Tramp
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Fix disabling frame synchronization on child frames
+
+ * src/xfns.c (Fx_create_frame): Disable GTK 3's own frame
+ synchronization on child frames, since the CM doesn't send
+ synchronization events to them.
+
+2022-05-13 Po Lu <luangruo@yahoo.com>
+
+ Allow setting cursor colors for custom cursors on Haiku
+
+ * src/haikufns.c: (struct user_cursor_bitmap_info):
+ (cursor_bitmaps): Fix hotspot for left arrow pointer.
+ (cursor_bitmaps_for_id): New array.
+ (haiku_set_mouse_color): If a color was specified, consult
+ `cursor_bitmaps_for_id' for user-specified cursors.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Allow actually setting cursor colors on Haiku
+
+ * src/haiku_support.cc (be_create_pixmap_cursor): New function.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufns.c (haiku_create_frame): Change default cursor
+ color to "font-color".
+ (haiku_create_tip_frame): Likewise.
+
+ (struct user_cursor_bitmap_info): New struct.
+ (cursor_bitmaps): New list of bitmaps corresponding to cursors.
+ (haiku_create_colored_cursor): New function.
+ (haiku_free_custom_cursors): Set current cursor to the default
+ cursor before freeing the original value.
+ (haiku_set_mouse_color): Actually recolor cursors based on
+ built-in bitmaps.
+
+ * src/haikuterm.c (haiku_defined_color): Clean up coding style.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Fix quitting during drag-and-drop when GTK native input is on
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Also look in
+ `xg_pending_quit_event' when GTK native input is on.
+
+2022-05-12 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from gnulib
+
+2022-05-12 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC 12 in default developer build
+
+ This lets ‘./configure; make’ work on Fedora 36 x86-64 from a Git
+ checkout without generating false-alarm warnings.
+ * lib-src/etags.c (main): There appeared to be false alarm with
+ GCC 12. However, the code was wrong anyway, as it mishandled file
+ names containing "'" so fix that bug. This pacifies GCC.
+ (mercury_decl): Omit tests ‘s + pos != NULL’ that were apparently
+ intended to be ‘s[pos] != '\0'’ but which were miscoded to always
+ be true and which were mostly not needed anyway. In one place,
+ though, a test was needed, so fix that by using strchr instead.
+ * src/alloc.c (lisp_free) [!GC_MALLOC_CHECK]:
+ * src/term.c (Fsuspend_tty): Don’t look at a pointer after freeing
+ it, even just to test it for equality with some other pointer, as
+ this has undefined behavior in C and GCC 12 diagnoses this.
+ * src/dbusbind.c (xd_read_message_1): Rework the code a bit
+ so that it has fewer tests. This pacifies GCC 12 which was
+ complaining incorrectly about dereferencing a null pointer.
+ * src/intervals.c (copy_properties): Remove an eassume that should
+ no longer be needed even to pacify older GCCs, due to ...
+ * src/intervals.h (split_interval_left): ... this addition of
+ ATTRIBUTE_RETURNS_NONNULL to pacify a GCC 12 warning about
+ dereferencing a null pointer.
+ * src/regex-emacs.c (EXTEND_BUFFER): Use negative values rather
+ than auxiliary booleans to indicate null pointers. This pacifies
+ GCC 12 false alarms about using uninitialized variables.
+ * src/xdisp.c (clear_position): New function.
+ (append_space_for_newline, extend_face_to_end_of_line):
+ Use it to work around false alarms from GCC 12.
+ (display_and_set_cursor): Add an UNINIT to pacify GCC 12.
+ * src/xterm.c (x_draw_glyphless_glyph_string_foreground):
+ Defend against hypothetical bad code elsewhere;
+ this also pacifies GCC 12.
+ (x_term_init): Use fixed-size auto array rather than alloca,
+ as the array is small; this also pacifies GCC 12.
+
+2022-05-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option 'sh-indent-statement-after-and'
+
+ * lisp/progmodes/sh-script.el (sh-indent-statement-after-and): New
+ user option (bug#22645).
+ (sh-smie-sh-rules): Use it.
+
+2022-05-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix ControlPath quoting in Tramp
+
+ * lisp/net/tramp-sh.el (tramp-ssh-controlmaster-options):
+ Adapt docstring. Do not quote ControlPath. Reported by Daniel
+ Kessler <kesslerd@umich.edu>.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Remove unused RIF method
+
+ * src/haikuterm.c (haiku_update_window_end): Delete function.
+ (haiku_redisplay_interface): Remove RIF method.
+
+2022-05-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make prompt read-only in inferior-scheme-mode
+
+ * lisp/cmuscheme.el (inferior-scheme-mode): Make the prompt
+ read-only to be more consistent with other inferior modes
+ (bug#21118).
+
+2022-05-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix retrieving images that contain ) characters in shr
+
+ * lisp/net/shr.el (shr-save-contents, shr-get-image-data): Don't call.
+ (shr-encode-url): Make obsolete. (This function makes no sense.)
+ (shr-tag-img): Don't call.
+
+2022-05-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve url-http debugging
+
+ * lisp/url/url-http.el (url-http-parse-headers): Output the
+ headers we receive in the debug output.
+ * lisp/url/url-vars.el (url-extensions-header): Remove useless header.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Fix build on Mac OS X 10.11
+
+ * src/nsterm.h (NSButtonTypeMomentaryPushIn): New define.
+
+2022-05-12 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/array.el (array-mode-map): Prefer defvar-keymap.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Fix searching the bitmap file path on Haiku
+
+ * src/image.c (image_create_bitmap_from_file): [HAVE_HAIKU]:
+ Look for the bitmap inside `x-bitmap-file-path' as well.
+
+2022-05-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp's write-region
+
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Use `tramp-handle-write-region'.
+ (tramp-sudoedit-handle-write-region): Remove.
+
+ * lisp/net/tramp.el (tramp-skeleton-write-region):
+ Set extended attributes.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Fix merging of anonymous faces with an `:extend' property on unexec
+
+ * src/emacs.c (main): Unconditionally call `init_xfaces'.
+ * src/lisp.h: Enable `init_xfaces' on unexec builds too.
+ * src/xfaces.c (init_xfaces): Move fix for bug#34226 into
+ pdumper-specific section leaving the initialization of
+ `face_attr_sym' intact.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Improve mouse dragging
+
+ * lisp/mouse.el (mouse-drag-and-drop-region-display-tooltip):
+ Respect foreground and background parameters.
+ (mouse-drag-and-drop-region): Enable fine grained tracking.
+
+2022-05-12 Po Lu <luangruo@yahoo.com>
+
+ Make cursor display on Haiku consistent with X
+
+ * src/haikuterm.c (haiku_draw_image_glyph_string): Merge cursor
+ foregrounds correctly.
+ (haiku_draw_hollow_cursor, haiku_draw_bar_cursor): New
+ functions. Port code from X.
+ (haiku_draw_window_cursor): Port code from X so bar cursors on
+ top of images are treated right.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix cperl-file-style defcustom type
+
+ * lisp/progmodes/cperl-mode.el (cperl-file-style): Fix the type.
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Clean up Haiku display opening code
+
+ * src/haikufns.c (Fx_open_connection):
+ (Fhaiku_frame_list_z_order): Improve error messages and fix
+ coding style.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command 'imenu-flush-cache'
+
+ * lisp/imenu.el (imenu-flush-cache): New command (bug#20589).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ New command 'package-update-all'
+
+ * lisp/emacs-lisp/package.el (package-update-all): New function
+ (bug#19146).
+ (package--updateable-packages): Factored out...
+ (package-update): ... from here.
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Port some stuff to XCB to avoid confusing Xlib behavior
+
+ * src/xterm.c (x_set_frame_alpha, handle_one_xevent): Port
+ retrieving the opacity property to XCB.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option switch-to-prev-buffer-skip-regexp
+
+ * doc/lispref/windows.texi (Window History): Document it.
+ * lisp/window.el (switch-to-prev-buffer-skip): Mention it.
+ (switch-to-prev-buffer-skip-regexp): New user option (bug#19070).
+ (switch-to-prev-buffer-skip-p): Use it.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Bind TAB in indent-rigidly-map as a convenience
+
+ * lisp/indent.el (indent-rigidly): Mention it.
+ (indent-rigidly-map): Bind TAB so that `C-x TAB TAB...' does the
+ logical thing.
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Only handle SelectionRequest events from the DND display during DND
+
+ * src/xterm.c (handle_one_xevent): Handle only SelectionRequest
+ events from the DND frame's display via hold_quit.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make message load eudc-capf more lazily
+
+ * lisp/gnus/message.el (eudc-capf): Remove require, because all
+ the relevant eudc-capf functions are autoloaded, apparently.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make anchored regexps work in image-dired-mark-tagged-files
+
+ * lisp/image-dired.el (image-dired-mark-tagged-files): Make
+ anchored regexps work (bug#55375).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix non-variable widgets in the 'H' command in Cus-mode
+
+ * lisp/cus-edit.el (custom-mode-map):
+ (custom-commands): Adjust.
+ (custom-toggle-hide-all-widgets): Rename and work for all widget
+ types, not just variables.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust restore-buffer-modified-p autosaved logic
+
+ * doc/lispref/buffers.texi (Buffer Modification): Adjust
+ documentation.
+
+ * src/buffer.c (Frestore_buffer_modified_p): Fix up the logic
+ around `autosaved': It means "the buffer is modified, and also
+ autosaved".
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make C-u M-x apropos-user-option include buttons
+
+ * lisp/apropos.el (apropos-user-option): Include buttons in the
+ output always (bug#55376).
+ (apropos-print-doc): Don't insert three spaces in the
+ non-apropos-multi-type case.
+
+2022-05-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (byte-compile-eval): Avoid some false positive "noruntime" warnings
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-eval): Loosen the check
+ before refraining from adding a function to noruntime.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix regression in edmacro-finish-edit when parsing "none"
+
+ * lisp/edmacro.el (edmacro-finish-edit): Use `kbd' here because
+ we're comparing the result to a string (bug#55372).
+
+2022-05-11 Paul Eggert <eggert@cs.ucla.edu>
+
+ functionp doc improvement
+
+ * doc/lispref/eval.texi, doc/lispref/functions.texi, src/eval.c:
+ Document functionp a bit more carefully. It can return t
+ on non-functions.
+
+2022-05-11 Tino Calancha <tino.calancha@gmail.com>
+
+ char-uppercase-p: New predicate
+
+ Return non-nil if its argument is an uppercase character.
+
+ Suggested in Bug#54804.
+
+ * lisp/subr.el (char-uppercase-p): New defun.
+ * etc/NEWS (Lisp Changes in Emacs 29.1): Announce it
+ * doc/lispref/display.texi (Size of Displayed Text): Document it.
+ * test/lisp/subr-tests.el (test-char-uppercase-p): Add a test.
+
+2022-05-11 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve handling of `tramp-set-file-uid-gid'
+
+ * lisp/net/tramp.el (tramp-skeleton-write-region):
+ Call `tramp-set-file-uid-gid' properly.
+ (tramp-set-file-uid-gid): Handle also `tramp-crypt-file-name-handler'.
+
+ * test/lisp/net/tramp-tests.el (tramp-test27-load): Adapt test.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify precedence rules in Active Display Table manual node
+
+ * doc/lispref/display.texi (Active Display Table): Say what "takes
+ precedence" means here (bug#18546).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow giving switches to the program in `M-x term'
+
+ * lisp/term.el (term, ansi-term): Allow giving switches to the
+ program (bug#18105).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous cperl-file-style change
+
+ * lisp/progmodes/cperl-mode.el (cperl--set-file-style): New function.
+ (cperl-mode): Add it to hack-local-variables-hook to really set
+ the cperl style.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option 'cperl-file-style'
+
+ * lisp/progmodes/cperl-mode.el (cperl-file-style): New user option
+ (bug#17948).
+ (cperl-mode): Mention it.
+ (cperl-style-alist): Mention it.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix fontification of multi-line declarations in f90-mode
+
+ * lisp/progmodes/f90.el (f90-font-lock-keywords-2): Fontify
+ multi-line declarations (bug#17222).
+
+2022-05-11 Stefan Kangas <stefan@marxist.se>
+
+ * etc/NEWS: Improve some entries.
+
+ * lisp/net/browse-url.el (browse-url-button-map): Prefer defvar-keymap.
+
+ * lisp/scroll-lock.el (scroll-lock-mode-map): Prefer defvar-keymap.
+
+ * lisp/iimage.el (iimage-mode-map): Prefer defvar-keymap.
+
+ * lisp/calendar/diary-lib.el (diary-mode-map): Prefer defvar-keymap.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add grep-files-aliases entry for .am files
+
+ * lisp/progmodes/grep.el (grep-files-aliases): Add an alias for
+ .am files (bug#16921).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make recent nicknames erc change more backwards-compatible
+
+ * lisp/erc/erc-button.el (erc-button-add-buttons): Make the
+ nicknames change more backwards-compatible (bug#16271).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command 'vc-dir-mark-by-regexp'
+
+ * doc/emacs/maintaining.texi (VC Directory Commands): Document it.
+ * lisp/vc/vc-dir.el (vc-dir-mode-map): Bind it to `%'.
+ (vc-dir-mark-by-regexp): New command (bug#16460).
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Add support for changing pointer types on Haiku
+
+ * doc/lispref/frames.texi (Pointer Shape): Document that the
+ pointer shape can now be changed on some window systems other
+ than X.
+
+ * lisp/term/haiku-win.el (x-pointer-X-cursor, x-pointer-arrow)
+ (x-pointer-bottom-left-corner, x-pointer-bottom-right-corner)
+ (x-pointer-bottom-side, x-pointer-clock, x-pointer-cross)
+ (x-pointer-cross-reverse, x-pointer-crosshair)
+ (x-pointer-diamond-cross, x-pointer-hand1, x-pointer-hand2)
+ (x-pointer-left-side, x-pointer-right-side)
+ (x-pointer-sb-down-arrow, x-pointer-sb-left-arrow)
+ (x-pointer-sb-right-arrow, x-pointer-sb-up-arrow, x-pointer-target)
+ (x-pointer-top-left-corner, x-pointer-top-right-corner)
+ (x-pointer-top-side, x-pointer-watch, x-pointer-invisible): New
+ pointer constants.
+
+ * src/haiku_support.cc (BCursor_from_id): Accept int instead of
+ enum.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufns.c (haiku_create_frame): Stop manually assigning
+ cursors and set default value of the mouse color property.
+ (haiku_free_frame_resources): Free custom cursors too.
+ (struct user_cursor_info, INIT_USER_CURSOR): New struct.
+ (haiku_free_custom_cursors): New function.
+ (haiku_set_mouse_color): New param handler.
+ (haiku_frame_parm_handlers): Add param handler.
+ (syms_of_haikufns): New cursor shape variables from X.
+
+ * src/haikuterm.h: Update prototypes.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warning in gdb-mi.el
+
+ * lisp/progmodes/gdb-mi.el (gud-go): Fix compilation warning
+ introduced by previous change.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Bind gud-go and allow the prefix to enter arguments
+
+ * lisp/progmodes/gdb-mi.el (gdb): Bind gud-go to `C-c C-v' and
+ allow a prefix to enter arguments (bug#10106).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't signal errors in check-declare-directory
+
+ * lisp/emacs-lisp/check-declare.el (check-declare-directory): Don't
+ bug out if we don't find any files with declare-function:(bug#55354)
+ because this is a predicate function, and that's inconvenient.
+
+2022-05-11 Yoav Marco <yoavm448@gmail.com> (tiny change)
+
+ (sqlite-mode--column-names): Suppport nested parens
+
+ * lisp/sqlite-mode.el (sqlite-mode--column-names): Make parsing
+ more resilient (bug#55363).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Add meta navigation keys to outline-minor-mode-cycle-map"
+
+ This reverts commit 2e949031160d769bbac941c064b825a5c578afc5.
+
+ These key bindings are too intrusive.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't try to toggle untogglable widgets in
custom-toggle-hide-all-variables
+
+ * lisp/cus-edit.el (custom-toggle-hide-all-variables): Only toggle
+ the widgets that can be toggled.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Warn about quoted symbols in defcustom choice/other forms
+
+ * lisp/emacs-lisp/bytecomp.el
+ (byte-compile--suspicious-defcustom-choice): New function (bug#16271).
+ (byte-compile-nogroup-warn): Use it to warn about forms like
+ (choice (const :tag "foo" 'bar)).
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use `nicknames' instead if `'nicknames' in erc-button-alist
+
+ * lisp/erc/erc-button.el (erc-button-alist): Use "nicknames"
+ instead of "'nicknames" to enable automatic syntax checking
+ (bug#16271).
+ (erc-button-add-buttons): Adjust usage.
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-05-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix more defcustom :type errors
+
+ * lisp/vc/vc-src.el (vc-src-master-templates):
+ * lisp/vc/vc-rcs.el (vc-rcs-master-templates): Remove quote
+ characters inserted by mistake.
+
+2022-05-11 Mattias Engdegård <mattiase@acm.org>
+
+ Remedy ineffective backslashes and fix regexps
+
+ * lisp/info.el (Info-read-node-name-2): Double backslash for intended
+ escaping effect.
+ * lisp/term.el (term-send-function-key): Remove redundant `+`.
+ * lisp/leim/quail/indian.el:
+ * lisp/simple.el (scratch-buffer, get-scratch-buffer-create):
+ Remove ineffective backslashes.
+
+2022-05-11 Mattias Engdegård <mattiase@acm.org>
+
+ * src/lisp.h (FOR_EACH_TAIL_INTERNAL): Faster node comparison.
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse pointer avoidance in some configurations
+
+ * lisp/avoid.el (mouse-avoidance-random-shape): Ignore invisible
+ pointer.
+ (mouse-avoidance-ignore-p): Adjust for interprogram DND.
+ * lisp/term/x-win.el (x-pointer-invisible): Make value larger
+ than the maximum possible glyph.
+
+ * src/xfns.c (x_set_mouse_color): Use function that handles
+ `x-pointer-invisible' too.
+ * src/xterm.c (x_create_font_cursor): New function. Handle
+ invisible cursors.
+ * src/xterm.h: Update prototypes.
+
+2022-05-11 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/string-edit.el: Improvements for pop-to-buffer
(bug#33007)
+
+ * lisp/textmodes/string-edit.el (string-edit): Use pop-to-buffer
+ with fit-window-to-buffer after the buffer is filled with text.
+ (string-edit-done, string-edit-abort): Use (quit-window 'kill).
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Make Haiku event buffer non-static
+
+ * src/haikuterm.c (haiku_read_socket): Don't make `buf' static
+ in case thread yielding happens inside.
+
+2022-05-11 Po Lu <luangruo@yahoo.com>
+
+ Fix event memory leak on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Allocate event buffer on
+ the stack.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Fix frame invalidation on Haiku
+
+ * src/haiku_support.cc (FlipBuffers): Only set view bitmap if it
+ actually changed.
+
+ * src/haikuterm.c (haiku_clip_to_string_exactly)
+ (haiku_draw_window_cursor, haiku_draw_fringe_bitmap): Fix region
+ invalidation.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Try to preserve font styles in the Haiku font dialog
+
+ * haiku_support.cc (class EmacsFontSelectionDialog)
+ (UpdateStylesForIndex): If a style was previously selected and
+ exists in the new family as well, select it after adding the new
+ items.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Make reliefs on Haiku more like X
+
+ * src/haikuterm.c (haiku_draw_relief_rect): Use frame background
+ (normal GC) for corners.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Clean up some MAYBE_UNUSED functions
+
+ * src/xterm.c (x_clear_area1): Wrap in the conditions where it
+ will actually be used.
+
+2022-05-10 Paul Eggert <eggert@cs.ucla.edu>
+
+ * src/eval.c (Ffunctionp): Clarify "function" in doc string.
+
+ * src/floatfns.c: Update comment.
+
+2022-05-10 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port libm configure-time test to Solaris 11.4
+
+ * configure.ac (LIB_MATH): Check all the math.h functions
+ that Emacs uses, not just sqrt (Bug#55294).
+
+2022-05-10 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ EUDC: Add completion-at-point support
+
+ * lisp/net/eudc-capf.el: New file.
+ * lisp/gnus/message.el (message-mode): Add `eudc-capf-complete' to
+ `completion-at-point-functions' when a `message-mode' buffer is
+ created.
+ * doc/misc/eudc.texi (Inline Query Expansion): Add a new subsection,
+ describing the new `completion-at-point' mechanism in `message-mode'.
+ * etc/NEWS (EUDC): Describe the new `completion-at-point' method.
+
+2022-05-10 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Siddham script
+
+ * lisp/language/indian.el ("Siddham"): New language environment.
+ Add composition rules for Siddham. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Siddham.
+ * lisp/leim/quail/indian.el ("siddham"): New input method.
+
+ * etc/HELLO: Add a Siddham greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method. (Bug#55350)
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some quoting problems in defcustom :type
+
+ * lisp/progmodes/gdb-mi.el
+ (gdb-restore-window-configuration-after-quit):
+ * lisp/gnus/gnus.el (large-newsgroup-initial):
+ * lisp/eshell/em-hist.el (eshell-hist-ignoredups): Fix invalid
+ quoting in :type.
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command to toggle hiding all widgets in a Customize buffer
+
+ * lisp/cus-edit.el (custom-commands): Add menu entry.
+ (custom-toggle-hide-all-variables): New command (bug#15748).
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use fields on log-edit headers (which changes `C-a' behaviour)
+
+ * lisp/vc/log-edit.el (log-edit-insert-message-template): Fieldify
+ headers so that `C-a' takes us to the start of the string, not the
+ line (bug#15645).
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make ispell-region/buffer push the mark of the final word
+
+ * lisp/textmodes/ispell.el (ispell-region): Push the mark of the
+ final location.
+ (ispell-process-line): Change the return value to include the
+ position of the final word.
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix markup in read-number doc string
+
+ * lisp/subr.el (read-number): Fix markup for the letter.
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow packages to alter menu entries in the Buffers menu
+
+ * lisp/menu-bar.el (menu-bar-update-buffers): Use it.
+ (menu-bar-buffers-menu-command-entries): Put the entries into the
+ defvar so that packages can modify it (bug#14244).
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Improve display of relief rectangles on NS
+
+ * src/nsterm.m (ns_draw_relief): Respect cursor color and draw
+ corners like X.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Respect `alpha-background' drawing relief corners
+
+ * src/xterm.c (x_draw_relief_rect): Respect background alpha for
+ corner rects.
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `apropos-variable' include values in output
+
+ * lisp/apropos.el (apropos-print): Include variable values in the
+ output (bug#13842).
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Fix display of depressed buttons
+
+ * src/xterm.c (x_draw_relief_rect): Fix typo.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Improve relief rect handling on Haiku
+
+ * haikuterm.c (haiku_calculate_relief_colors): Calculate
+ backgrounds for image glyphs like on X.
+ (haiku_draw_relief_rect): Remove extra parameter.
+ (haiku_draw_string_box, haiku_draw_image_relief): Adjust
+ accordingly.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Fix X11 relief background clearning when hwidth is larger than vwidth
+
+ * src/xterm.c (x_fill_triangle, x_make_point, x_inside_rect_p):
+ New functions.
+ (x_draw_relief_rect): Complete rewrite. Use more sensible
+ primitives.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Improve display of reliefs on NS
+
+ * src/nsfont.m (nsfont_draw): Don't compensate for left box
+ twice.
+ * src/nsterm.m (ns_draw_relief): Draw outer edges of box like on
+ X.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Handle deletion of opacity property too
+
+ * src/xterm.c (handle_one_xevent): Clear `alpha' frame parameter
+ when opacity prop is gone or invalid.
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Work around some broken programs when reading opacity prop
+
+ * src/xterm.c (handle_one_xevent): Accept some other types that
+ property is set to by thoughtless programs.
+
+2022-05-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bibtex-map-entries regression at bobp
+
+ * lisp/textmodes/bibtex.el (bibtex-map-entries): Fix regression
+ introduced by c32e8b33f (bug#55342) -- don't fail when the first
+ entry is at bobp.
+
+2022-05-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 7b4bdf7b9b Remove the AUCTeX subsection from MS-Windows FAQ
+ d2a5631552 Update AUCTeX FAQ entry
+ 177718bc6d Update string-to-number documentation to bignum Emacs
+ 74cc3b525f Fix doc string references to tags-loop-continue
+
+2022-05-10 Po Lu <luangruo@yahoo.com>
+
+ Simplify Haiku selection code
+
+ * src/haiku_select.cc (get_clipboard_object): New function.
+ (BClipboard_find_data, BClipboard_get_targets, BClipboard_set_data)
+ (BClipboard_find_system_data)
+ (BClipboard_find_primary_selection_data)
+ (BClipboard_find_secondary_selection_data)
+ (BClipboard_set_system_data, BClipboard_set_primary_selection_data)
+ (BClipboard_set_secondary_selection_data, BClipboard_free_data)
+ (BClipboard_system_targets, BClipboard_primary_targets)
+ (BClipboard_secondary_targets): Delete functions.
+ (be_find_clipboard_data_1, be_set_clipboard_data_1)
+ (be_get_clipboard_targets_1, be_find_clipboard_data)
+ (be_set_clipboard_data, be_get_clipboard_targets): New
+ functions.
+ (be_lock_clipboard_message, be_unlock_clipboard): Use
+ `get_clipboard_object' to get clipboard from ID.
+
+ * src/haikuselect.c (haiku_get_clipboard_name): New function.
+ (Fhaiku_selection_data, Fhaiku_selection_put)
+ (Fhaiku_selection_owner_p): Adjust to use new simplified
+ functions.
+
+ * src/haikuselect.h: Update prototypes.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add more compilation-auto-jump-to-first-error options
+
+ * doc/emacs/building.texi (Compilation Mode): Document it.
+ * lisp/progmodes/compile.el
+ (compilation-auto-jump-to-first-error): Extend type.
+ (compilation--file-known-p): New function.
+ (compilation-auto-jump): Use it to support the new values
+ (bug#8228).
+ (compilation-find-file-1): Factored out into own function.
+ (compilation-find-file): Factored out from here.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dabbrev use the buffer's file name as a source for completions
+
+ * lisp/dabbrev.el (dabbrev--find-expansion): Include the buffer's
+ file name in the completions (bug#8163).
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make imenu find defalias entries
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression):
+ Also find defalias (bug#7855).
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Simplify XDND code
+
+ * src/xfns.c (Fx_begin_drag): Use SAFE_ALLOCA_STRING and encode
+ strings in the right coding system.
+
+2022-05-09 Sean Whitton <spwhitton@spwhitton.name>
+
+ Factor out *scratch* initialization
+
+ * lisp/simple.el (get-scratch-buffer-create): New function, factored
+ out of scratch-buffer, and additionally clearing the modification flag
+ and calling substitute-command-keys (bug#55257).
+ (scratch-buffer):
+ * lisp/server.el (server-execute):
+ * lisp/startup.el (normal-no-mouse-startup-screen, command-line-1):
+ * lisp/window.el (last-buffer, window-normalize-buffer-to-switch-to):
+ * src/buffer.c (Fother_buffer, other_buffer_safely): Use it.
+ (syms_of_buffer): Add Qget_scratch_buffer_create.
+ * lisp/startup.el (startup--get-buffer-create-scratch): Delete
+ now-unused function.
+ * doc/lispref/os.texi (Summary: Sequence of Actions at Startup):
+ * NEWS (Incompatible changes in Emacs 29.1): Document the change.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entries for recent autosaved buffer modification status
+
+ * doc/lispref/buffers.texi (Buffer Modification): Note 'autosaved'
+ value.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reimplement recent with-silent-modifications auto-save changes
+
+ * doc/lispref/buffers.texi (Buffer Modification): Document
+ buffer-modified-p returning `autosaved'.
+ * lisp/subr.el (with-silent-modifications): Use
+ restore-buffer-modified-p instead of altering the buffer modiff
+ (since this has other side effects like not updating after async
+ `display' changes.
+
+ * src/buffer.c (Fbuffer_modified_p): Allow returning whether the
+ buffer has been autosaved after changes.
+ (Frestore_buffer_modified_p): Allow adjusting whether the buffer
+ has been autosaved after changes.
+
+ * src/fileio.c (Fdo_auto_save): Refill the doc string.
+
+2022-05-09 Andrea Corallo <akrl@sdf.org>
+
+ Fix syntax descriptor comparison in python-indent-region
+
+ * lisp/progmodes/python.el (python-indent-region): Compare raw
+ syntax descriptors with equal (bug#45328) (because comparing them with
+ eq will always be false).
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Update alpha frame parameter when the window manager changes it
+
+ * src/xfns.c (x_set_alpha): New function. Set
+ `alpha_identical_p' flag.
+ (x_frame_parm_handlers): Use it to handle `alpha' instead.
+
+ * src/xterm.c (x_set_frame_alpha): Make tests against current
+ alpha safer.
+ (handle_one_xevent): Set frame alpha when alpha property
+ changes.
+ * src/xterm.h (struct x_output): New flag `alpha_identical_p'.
+
+2022-05-09 Yuan Fu <casouri@gmail.com>
+
+ Fix compilation warnings
+
+ * src/treesit.c: Add static keywords, remove unused variables, add
+ const qualifier.
+
+2022-05-09 Yuan Fu <casouri@gmail.com>
+
+ Remove call to nconc to improve performance
+
+ * src/treesit.c (struct capture_range): New struct.
+ (ts_predicate_capture_name_to_text, ts_predicate_equal,
+ ts_predicate_match, ts_eval_predicates): Replace capture list with
+ capture_range.
+ (Ftreesit_query_capture): Remove call to nconc.
+
+2022-05-09 Theodor Thornhill <theo@thornhill.no>
+
+ Use format string instead of concat
+
+ * eglot.el (eglot-handle-notification): Because diagnostics code can
+ be integer or string, and integer fails the sequencep test, use format
+ to create this string.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/948
+
+2022-05-09 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Sharada script
+
+ * lisp/language/indian.el ("Sharada"): New language environment.
+ Add composition rules for Sharada. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Sharada.
+ * lisp/leim/quail/indian.el ("sharada"): New input method.
+
+ * etc/HELLO: Add a Sharada greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method. (Bug#55328)
+
+2022-05-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp tests
+
+ * lisp/net/tramp-smb.el (tramp-smb-handle-copy-file):
+ Handle compressed files.
+
+ * lisp/net/tramp.el (tramp-skeleton-write-region):
+ Handle encrypted VISIT file.
+ (tramp-get-process-attributes): Add backward compatibility.
+
+ * test/lisp/net/tramp-tests.el (with-connection-local-variables):
+ Declare.
+ (auto-save-file-name-transforms): Don't declare.
+ (ert-resource-directory-format)
+ (ert-resource-directory-trim-left-regexp)
+ (ert-resource-directory-trim-right-regexp, ert-resource-directory)
+ (ert-resource-file): Define if they don't exist.
+ (tramp-test10-write-region-file-precious-flag)
+ (tramp-test10-write-region-other-file-name-handler)
+ (tramp-test31-interrupt-process, tramp-test31-signal-process)
+ (tramp--test-async-shell-command)
+ (tramp-test34-connection-local-variables)
+ (tramp-test39-make-lock-file-name)
+ (tramp-test39-detect-external-change): Extend tests.
+
+2022-05-09 Eli Zaretskii <eliz@gnu.org>
+
+ Remove the AUCTeX subsection from MS-Windows FAQ
+
+ * doc/misc/efaq-w32.texi (AUCTeX): Remove the subsection, it is no
+ longer useful. (Bug#55330)
+
+2022-05-09 Protesilaos Stavrou <info@protesilaos.com>
+
+ Shorten note about didactic space in TUTORIAL.el_GR (bug#55332)
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuterm.c (haiku_draw_fringe_bitmap): Set stipple flag.
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Fix reading faces with a default value that is a symbol
+
+ * lisp/faces.el (read-face-name): Don't try to intern face if it
+ is already a symbol.
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Fix scroll optimizations being enabled for some rows with stipples
+
+ * src/dispnew.c (update_text_area): New parameter `partial_p'.
+ Set it if not enough glyphs were drawn to determine if a row
+ doesn't have a stipple.
+ (update_window_line): Preserve current_row->stipple_p in that
+ case, after making the desired row current.
+
+ * src/xterm.c (x_draw_fringe_bitmap): Set row->stipple.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make ediff-show-diff-output work better on unsaved buffers
+
+ * lisp/vc/ediff-util.el (ediff-show-diff-output): Make the `D'
+ command work on unsaved buffers without a prefix (bug#45016).
+
+2022-05-09 João Távora <joaotavora@gmail.com>
+
+ Allow non-interactive use of eldoc-doc-buffer
+
+ * lisp/emacs-lisp/eldoc.el (eldoc-doc-buffer): Allow
+ non-interactive use.
+ (Version): Bump minor.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Copy edits for the regexp sections in the manuals
+
+ * doc/lispref/searching.texi (Regexp Backslash):
+ * doc/emacs/search.texi (Regexps, Regexp Backslash): Copy edits
+ from Jay Bingham (bug#41970).
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Respect display scale factor drawing underwaves on Haiku
+
+ * src/haikuterm.c (haiku_get_scale_factor): New function.
+ (haiku_draw_underwave): Apply said factor.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add meta navigation keys to outline-minor-mode-cycle-map
+
+ * lisp/outline.el (outline-minor-mode-cycle-map): Add meta
+ navigate keys (bug#41129).
+
+2022-05-09 Arash Esbati <arash@gnu.org>
+
+ Update AUCTeX FAQ entry
+
+ * doc/misc/efaq-w32.texi (AUCTeX): AUCTeX project isn't providing
+ pre-compiled versions for Windows anymore (bug#55330).
+
+2022-05-09 Vladimir Nikishkin
<for.emacs-table.el-environment-patch_2022-05-09@lockywolf.net>
+
+ Add new user option table-latex-environment
+
+ * lisp/textmodes/table.el (table-latex-environment): New user
+ option (bug#55333).
+ (table--generate-source-prologue): Use it.
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update string-to-number documentation to bignum Emacs
+
+ * doc/lispref/strings.texi (String Conversion): string-to-number
+ no longer converts integers to floating point numbers (bug#55334).
+
+2022-05-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix doc string references to tags-loop-continue
+
+ * lisp/vc/vc-dir.el (vc-dir-search, vc-dir-query-replace-regexp):
+ Fix reference to obsolete tags-loop-continue (bug#55311).
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Fix file-based launching on Haiku
+
+ * src/haikuselect.c (Fhaiku_roster_launch): Canonicalize file
+ names before using them.
+
+2022-05-09 Po Lu <luangruo@yahoo.com>
+
+ Use default external browser by default on Haiku
+
+ * lisp/net/browse-url.el (browse-url-default-browser): Use that
+ by default on Haiku.
+ (browse-url-default-haiku-browser): New function.
+ * src/haiku_support.cc (be_roster_launch):
+ * src/haiku_support.h: New function. Update prototypes.
+ * src/haikuselect.c (haiku_message_to_lisp): Encode and decode
+ files correctly.
+ (haiku_lisp_to_message): Encode and decode files correctly.
+ (Fhaiku_roster_launch): New function.
+ (syms_of_haikuselect): Update defsubrs.
+
+2022-05-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1d012e0a62 Linux console: don't translate ESC TAB to `backtab' in inp...
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix stipple bitmap caching on Haiku
+
+ * src/image.c (image_create_bitmap_from_file): Set file name on
+ the bitmap rec on Haiku.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Allow disabling Motif drag protocol
+
+ * lisp/cus-start.el (standard): Add new variable.
+ * src/xterm.c (x_dnd_update_state, handle_one_xevent): Respect
+ new variable.
+ (syms_of_xterm): New variable `x-dnd-disable-motif-drag'.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Allow precision-scrolling nonselected windows when the minibuffer is
resized
+
+ * doc/lispref/windows.texi (Vertical Scrolling): Document new
+ `preserve-vscroll-p' parameter of `set-window-vscroll'.
+ * etc/NEWS: Announce new parameter.
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down-page)
+ (pixel-scroll-precision-scroll-up-page): Use that parameter when
+ setting the vscroll.
+
+ * src/window.c (window_scroll_pixel_based, Fset_window_vscroll):
+ Adjust for new parameter.
+ * src/window.h (struct window): New flag `preserve_vscroll_p'.
+
+ * src/xdisp.c (redisplay_window): Preserve the vscroll inside
+ force_start on frozen windows with that flag set. (bug#55312)
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions in handling of unsupported drops on X
+
+ * lisp/x-dnd.el (x-dnd-handle-unsupported-drop): Adjust for new
+ parameters.
+
+ * src/keyboard.c (kbd_buffer, kbd_fetch_ptr, kbd_store_ptr):
+ Export variables.
+ (kbd_buffer_get_event): Ignore already handled unsupported
+ drops.
+ * src/keyboard.h: Update prototypes.
+
+ * src/termhooks.h (enum event_kind): Document meaning of
+ `modifiers' in UNSUPPORTED_DROP_EVENTs.
+
+ * src/xterm.c (x_dnd_send_unsupported_drop): Set event modifiers
+ to current level.
+ (x_toggle_visible_pointer): Fix fixes fallback.
+ (x_dnd_begin_drag_and_drop): Handle UNSUPPORTED_DROP_EVENTs
+ already in the keyboard buffer before starting DND.
+ (syms_of_xterm): Give timestamp to unsupported drop function.
+
+ * src/xterm.h: Update prototypes.
+
+2022-05-08 João Távora <joaotavora@gmail.com>
+
+ Fix egregious thinko in eglot--uri-to-path
+
+ One shouldn't unhex the URI before parsing it. Just consider a
+ filename with a # character in it. The character is encoded as C%23,
+ after unhexing the file name becomes.
+
+ /tmp/C#/Program.cs
+
+ Now, parsing this as the URL will fail completely as the # mean
+ "anchor" in URLs.
+
+ * eglot.el (eglot--uri-to-path): Fix thinko.
+
+2022-05-08 João Távora <joaotavora@gmail.com>
+
+ Consider diagnostic.code when generating flymake diagnostics
+
+ Not sure this will please everybody, can almost guess someone is going
+ to ask for a custom switch.
+
+ Instead this info (and the source) should be passed on to Flymake.
+ That's where the custom switch for controlling formatting of
+ diagnostic messages should exist. But that's too much work right now.
+
+ * eglot.el (eglot-handle-notification): Consider Diagnostic.code.
+
+2022-05-08 Sean Whitton <spwhitton@spwhitton.name>
+
+ remember-notes: Use pop-to-buffer-same-window not switch-to-buffer
+
+ * lisp/textmodes/remember.el (remember-notes): Use
+ pop-to-buffer-same-window rather than switch-to-buffer, to allow
+ customization via display-buffer-alist.
+
+2022-05-08 Juri Linkov <juri@linkov.net>
+
+ Minor documentation improvements for completions commands and options
+
+ * doc/emacs/mini.texi (Completion Commands): Mention prefix argument
+ of choose-completion.
+ (Completion Options): Improve documentation of completions-format
+ and completions-sort.
+
+2022-05-08 Protesilaos Stavrou <info@protesilaos.com>
+
+ Add Greek translation of the tutorial
+
+ * etc/tutorials/TUTORIAL.el_GR: Add tutorial in Greek. It is a
+ faithful translation of the TUTORIAL.
+ * etc/tutorials/TUTORIAL.translators (Author): Mention myself as
+ the author and the maintainer.
+ * etc/NEWS: Announce it. (Bug#55314)
+
+ * lisp/language/greek.el (set-language-info-alist): Link to the
+ tutorial and include sample text.
+
+2022-05-08 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Tirhuta script
+
+ * lisp/language/indian.el ("Tirhuta"): New language environment.
+ Add composition rules for Tirhuta. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Tirhuta.
+ * lisp/leim/quail/indian.el ("tirhuta"): New input method.
+
+ * etc/HELLO: Add a Tirhuta greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/oclosure.el (oclosure-define): Fix empty case
+
+2022-05-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't hang on trying to rename FIFOs between file systems
+
+ * src/fileio.c (Frename_file): Don't hang on trying to move FIFOs
+ (bug#34069).
+
+2022-05-08 Visuwesh <visuweshm@gmail.com>
+
+ dired-do-query-replace-regexp doc string fix
+
+ * lisp/dired-aux.el (dired-do-query-replace-regexp): Refer
+ 'fileloop-continue' instead of the obsolete command
+ 'tags-loop-continue'. (Bug#55311)
+
+ (cherry picked from commit 4c505203f9171886f47638779326e257a95a1d79)
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix display of fringes with stipples on X
+
+ * src/xterm.c (x_draw_fringe_bitmap): Set fill style and use
+ fill function correctly.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix display of fringes with stipples on Haiku
+
+ * haikuterm.c (haiku_after_update_window_line): Fix coding
+ style.
+ (haiku_draw_fringe_bitmap): Handle display of stipples if
+ present.
+
+2022-05-08 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix bug in c-parse-state. Fixes bug #55181.
+
+ * lisp/progmodes/cc-engine.el (c-state-cache-lower-good-pos): When in a
+ literal, return the start of that literal as a "good pos", not the
parameter
+ POS.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Set stipple flag on PGTK as well
+
+ * pgtkterm.c (pgtk_draw_glyph_string_background):
+ (pgtk_draw_glyph_string): Set stipple flag on string row.
+ (pgtk_draw_fringe_bitmap):
+ (pgtk_defined_color): Fix coding style.
+
+2022-05-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow term-mode to send function keys to the underlying shell
+
+ * lisp/term.el (term-bind-function-keys): New user option.
+ (term-raw-map): Bind f keys.
+ (term-send-function-key): Send the function key to the underlying
+ shell (bug#29920).
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Set stipple flags on Haiku as well
+
+ * src/haikuterm.c (haiku_draw_glyph_string): Set stipple flag
+ where stipples are actually drawn. (This is different from X.)
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Disable scrolling optimizations when a stipple is present
+
+ * src/dispextern.h (struct glyph_row): New field `stippled_p'.
+ We cannot just use the contents of the glyph row, since it has
+ to be set in `gui_clear_end_of_line' and is more convenient to
+ set inside the various draw_glyph_string functions.
+
+ * src/dispnew.c (scrolling_window): Disable if a row in the
+ current matrix has the stipple_p flag set.
+
+ * src/xdisp.c (gui_clear_end_of_line):
+ * src/xterm.c (x_draw_image_glyph_string)
+ (x_draw_stretch_glyph_string, x_draw_glyph_string): Set
+ `stipple_p' if a stipple pattern was drawn.
+
+2022-05-08 Alan Mackenzie <acm@muc.de>
+
+ Linux console: don't translate ESC TAB to `backtab' in input-decode-map.
+
+ This translation happened after the terminfo entry for <shift>TAB in
the linux
+ section was changed to kcbt=\E^I in ncurses version 6.3.
+
+ * lisp/term/linux.el (terminal-init-linux): Add a define-key form to
remove
+ the entry for "\e\t" from input-decode-map.
+
+ * etc/PROBLEMS: Add a new section under "character terminals" about
S-TAB
+ wrongly doing the same thing as M-TAB, giving tips about amending the
Linux
+ keyboard layout.
+
+2022-05-08 Visuwesh <visuweshm@gmail.com>
+
+ dired-do-query-replace-regexp doc string fix
+
+ * lisp/dired-aux.el (dired-do-query-replace-regexp): Refer
+ 'fileloop-continue' instead of the obsolete command
+ 'tags-loop-continue'.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes on ordinary menus on macOS
+
+ * src/nsmenu.m ([EmacsMenu runMenuAt:forFrame:keymaps:]): Fix
+ coding style.
+ ([EmacsMenu menu:willHighlightItem:]): Ignore if this is a
+ context menu.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix bug in `pixel-scroll-precision-mode' on nonselected windows
+
+ * src/window.c (Fset_window_vscroll): Mark window for redisplay.
+ (bug#55299)
+
+2022-05-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle changed scp protocol in Tramp
+
+ * lisp/net/tramp-sh.el (tramp-scp-force-scp-protocol): New defvar.
+ (tramp-scp-force-scp-protocol): New defun.
+ (tramp-do-copy-or-rename-file-out-of-band): Use it.
+ (tramp-scp-direct-remote-copying, tramp-methods) <scp, scpx>: Use "%z".
+
+ * lisp/net/tramp.el (tramp-methods): Adapt docstring.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of invisible cursor alloc failures
+
+ * src/xterm.c (x_toggle_visible_pointer): Use Xfixes if cursor
+ allocation really fails. This happens when the X server has a
+ limit on the number of cursors that can be created.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix file-based stipple on NS
+
+ * src/image.c (image_create_bitmap_from_file) [HAVE_NS]: Fix
+ loading XBM data from file.
+
+2022-05-08 Eli Zaretskii <eliz@gnu.org>
+
+ Fix selection dialog display on MS-Windows
+
+ * src/w32fns.c (w32_wnd_proc) <WM_PAINT>: Update the frame from
+ the back buffer when double-buffering is in effect and a selection
+ dialog is open.
+ (w32_dialog_in_progress): Indicate to 'w32_wnd_proc' that a
+ selection dialog is open. (Bug#55208)
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix display of hollow box cursor on NS
+
+ * src/nsterm.m (ns_draw_window_cursor): Fix verbatim
+ translations from X.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fix setting stipple via `set-face-stipple'
+
+ * lisp/faces.el (face-valid-attribute-values): Return results
+ for `:stipple' in correct format.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Implement stipples for stretch glyphs
+
+ * src/haikuterm.c (haiku_draw_stipple_background): Accept new
+ arguments for specifying the color explicitly. All callers
+ changed.
+ (haiku_draw_stretch_glyph_string): Draw stipple correctly.
+ (haiku_draw_glyph_string): Handle stipple correctly when drawing
+ neighbors.
+
+2022-05-08 Po Lu <luangruo@yahoo.com>
+
+ Fully implement stipples for text on Haiku
+
+ * src/haikufont.c (haikufont_draw): Use
+ `haiku_draw_background_rect' instead.
+
+ * src/haikuterm.c (haiku_draw_plain_background): Change
+ arguments to accept rect manually.
+ (haiku_get_bitmap): Delete function.
+ (haiku_get_bitmap_rec): New function.
+ (haiku_draw_stipple_background): Accept rect instead of box
+ sizes.
+ (haiku_draw_background_rect): New function.
+ (haiku_maybe_draw_background): Use that instead.
+ (haiku_draw_image_glyph_string): Add notice.
+ (haiku_draw_glyph_string): Set `stippled_p' correctly.
+
+ * src/haikuterm.h (struct haiku_bitmap_record): New fields for
+ keeping track of stipple state.
+ * src/image.c (image_create_bitmap_from_data)
+ (image_create_bitmap_from_file, free_bitmap_record): Free and
+ set them accordingly.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Implement bitmap loading for faces on Haiku
+
+ Stipples don't completely work yet.
+
+ * lisp/faces.el (face-valid-attribute-values): Enable `:stipple'
+ on Haiku.
+ * src/haiku_draw_support.cc (BView_DrawBitmap)
+ (BView_DrawBitmapWithEraseOp, BView_DrawMask): Don't push and
+ pop states.
+ (BView_DrawBitmapTiled): New function.
+
+ * src/haiku_support.cc (BBitmap_import_mono_bits): Delete
+ function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (get_string_resource): Fix coding style.
+ (haiku_get_bitmap, haiku_draw_stipple_background): Implement
+ partially.
+ (haiku_set_scroll_bar_default_width)
+ (haiku_set_scroll_bar_default_height, haiku_scroll_bar_create)
+ (haiku_set_horizontal_scroll_bar, haiku_set_vertical_scroll_bar)
+ (haiku_create_terminal, haiku_scroll_bar_remove): Fix coding
+ style.
+
+ * src/image.c (image_create_bitmap_from_data)
+ (image_create_bitmap_from_file): Implement on Haiku.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Use correct event structures to fetch time on XI2
+
+ * src/xterm.c (handle_one_xevent): Don't use generic `xi_event'
+ to access the event time.
+
+2022-05-07 Paul Eggert <eggert@cs.ucla.edu>
+
+ * src/fns.c: Fix IDs in comments to match code.
+
+2022-05-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix Bengali composition rules
+
+ * lisp/language/indian.el (bengali-composable-pattern): Fix
+ composition rules for U+09F0 and U+09FE. Patch from
+ समीर सिंह Sameer Singh <lumarzeli30@gmail.com>. (Bug#55303)
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make 'delete-process' into a command
+
+ * doc/lispref/processes.texi (Deleting Processes): Document
+ missing PROCESS value.
+ * src/process.c (Fdelete_process): Allow calling interactively
+ (bug#10107).
+
+2022-05-07 Eli Zaretskii <eliz@gnu.org>
+
+ Improve Devanagari character composition rules
+
+ * lisp/language/indian.el (devanagari-composable-pattern): Add
+ rules for Vedic accents. Suggested by Madhu <enometh@meer.net>.
+
+2022-05-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (dabbrev-completion): Fix bug#45768
+
+ Make `dabbrev-completion` go through `completion-at-point` so that
+ it interacts correctly with Icomplete. Export a new
+ `completion-capf` function while we're at it, since it can be useful
+ elsewhere.
+
+ * lisp/dabbrev.el (dabbrev-capf): New function,
+ extracted from `dabbrev-completion`.
+ (dabbrev-completion): Use it.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Clean up some variables in the Haiku code
+
+ * src/haikuterm.c: Add comments to some variables and clean up
+ initializers.
+ * src/haikuterm.h (haiku_frame_param_handlers): Move here
+ instead.
+
+2022-05-07 समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
+
+ Add support for the Kaithi script
+
+ * lisp/language/indian.el ("Kaithi"): New language environment.
+ Add composition rules for Kaithi. Add sample text and input
+ method.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Kaithi.
+ * lisp/leim/quail/indian.el ("kaithi"): New input method.
+
+ * etc/HELLO: Add a Kaithi greeting.
+ * etc/NEWS: Announce the new language environment and its
+ input method.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Explain better what the interactive prefix does in scroll-down/up
+
+ * lisp/window.el (scroll-up-command, scroll-down-command):
+ * lisp/image-mode.el (image-scroll-up, image-scroll-down):
+ Actually explain what the interactive prefix does (bug#44503).
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document the `x' DWIM action in the manual
+
+ * doc/emacs/package.texi (Package Menu): Mention the DWIM action
+ of the `x' command.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove tar-mode dabbrev-ignored-buffer-modes
+
+ * lisp/dabbrev.el (dabbrev-ignored-buffer-modes): Remove tar-mode
+ from the default, because it isn't really a binary mode.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `x' in package-menu-mode more DWIM
+
+ * lisp/emacs-lisp/package.el (package-menu-mode): Make the doc
+ string more helpful.
+ (package-menu-execute): Make `x' when no files are installed DWIM.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve inferior-python-mode scroll behaviour
+
+ * lisp/progmodes/python.el (inferior-python-mode): Use
+ scroll-convervatively instead of trying to do this with a comint
+ filter (which produces flickering) (bug#31115).
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warnings in newer subr tests
+
+ * test/lisp/subr-tests.el (test-local-set-state): Fix compilation
+ warnings.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow dabbrev to ignore binary buffers
+
+ * doc/emacs/abbrevs.texi (Dynamic Abbrevs): Document it.
+ * lisp/dabbrev.el (dabbrev-ignored-buffer-names)
+ (dabbrev-ignored-buffer-regexps): Link to it.
+ (dabbrev-ignored-buffer-modes): New user option (bug#19392).
+ (dabbrev--filter-buffer-modes): New function.
+ (dabbrev--select-buffers, dabbrev--make-friend-buffer-list): Use it.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse face dismissal in some widget popups
+
+ * src/xterm.c (handle_one_xevent): Accept XINotifyUngrab as
+ well.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow inhibiting linkification in *Help* buffers
+
+ * doc/lispref/help.texi (Keys in Documentation): Document it.
+ lisp/help-mode.el (help-make-xrefs): Implement a new \+ syntax to
+ inhibit buttonification.
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the icomplete-in-buffer doc string document more
+
+ * lisp/icomplete.el (icomplete-in-buffer): Note what this variable
+ does and doesn't do (bug#45768).
+
+2022-05-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid having font locking triggering unnecessary auto-saving
+
+ * lisp/subr.el (with-silent-modifications): Use it to restore the
+ ticks (bug#11303).
+
+ * src/buffer.c (Finternal__set_buffer_modified_tick): New function.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Cache color lookup failures as well
+
+ * src/xterm.c (x_parse_color): Cache color lookup failures too.
+ * src/xterm.h (struct color_name_cache_entry): New field
+ `valid'.
+
+2022-05-07 Yuan Fu <casouri@gmail.com>
+
+ Add tree-sitter intergration
+
+ * configure.ac (HAVE_TREE_SITTER, TREE_SITTER_OBJ): New variables.
+ (DYNAMIC_LIB_SUFFIX): new variable, I copied code from MODULES_SUFFIX
+ so the diff looks this way.
+ * doc/lispref/elisp.texi (Top): Add tree-sitter manual.
+ * doc/lispref/modes.texi (Font Lock Mode): mention tree-sitter.
+ (Parser-based Font Lock): New section.
+ (Auto-Indentation): Mention tree-sitter.
+ (Parser-based Indentation): New section.
+ * doc/lispref/parsing.texi (Parsing Program Source): New chapter.
+ * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add
+ treesit-parser and treesit-node type.
+ * lisp/treesit.el: New file.
+ * src/Makefile.in (TREE_SITTER_LIBS, TREE_SITTER_FLAGS,
+ TREE_SITTER_OBJ): New variables.
+ * src/alloc.c:
+ (cleanup_vector): Add cleanup code for treesit-parser and
+ treesit-node.
+ * src/casefiddle.c (casify_region): Notify tree-sitter parser of
+ buffer change.
+ * src/data.c (Ftype_of): Add treesit-parser and treesit-node type
+ (Qtreesit_parser, Qtreesit_node): New symbol.
+ * src/emacs.c (main): Add symbols in treesit.c.
+ * src/eval.c (define_error): Move the function to here.
+ * src/insdel.c (insert_1_both, insert_from_string_1, insert_from_gap,
+ insert_from_buffer_1, replace_range, del_range_2): Notify tree-sitter
+ parser of buffer change.
+ * src/json.c (define_error): Move this function out.
+ * src/lisp.h (DEFINE_GDB_SYMBOL_BEGIN): Add treesit-parser and
+ treesit-node.
+ * src/lread.c (Vdynamic_library_suffixes): New variable.
+ * src/print.c (print_vectorlike): Add code for printing
+ treesit-parser and treesit-node.
+ * src/treesit.c: New file.
+ * src/treesit.h: New file.
+ * test/src/treesit-tests.el: New file.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Fix 32-bit Haiku build
+
+ * src/haiku_support.cc (MessageReceived): Fix type of
+ `old_what'.
+
+2022-05-07 Po Lu <luangruo@yahoo.com>
+
+ Implement `sticky' frame parameter on Haiku
+
+ * src/haiku_support.cc (BWindow_set_sticky): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (haiku_set_sticky, haiku_frame_parm_handlers):
+ New frame param handler.
+
+2022-05-07 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ afdf72eeb2 Fix bug#55274
+ 5bfac7c774 Provide reference for OTF tags in the ELisp manual
+
+2022-05-06 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions in the Haiku file dialog
+
+ * src/haiku_support.cc (current_file_panel_port): Delete
+ variable.
+ (class EmacsWindow, MessageReceived): Stop handling file panel
+ events here.
+ (class EmacsFilePanelCallbackLooper): New class.
+ (be_popup_file_dialog): Use a separate looper to handle file
+ panel events.
+
+2022-05-06 Po Lu <luangruo@yahoo.com>
+
+ Fix freezes with some oddball menus
+
+ * src/xmenu.c (x_activate_menubar): Clear flag if dispatching
+ the event failed.
+ * src/xterm.c (handle_one_xevent): Check for sensitive
+ CascadeButton instead of row column type.
+
+2022-05-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (icomplete-exhibit): Fix use in-buffer
+
+ Also prefer #' to quote function names and remove redundant :group args.
+
+ * lisp/icomplete.el (icomplete-exhibit): Don't presume the completion
+ field ends at `point-max`.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make elisp-mode-syntax-propertize tighter to reflect syntax
+
+ * lisp/progmodes/elisp-mode.el (elisp-mode-syntax-propertize): ?\N
+ and #s are case sensitive, so don't case-fold. (And adjust regexps.)
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make down-list signal an error if called inside a string
+
+ * lisp/emacs-lisp/lisp.el (down-list): Signal an error inside a
+ string (bug#5588).
+
+2022-05-06 Juri Linkov <juri@linkov.net>
+
+ Add char-folding of double quotes in isearch-fold-quotes-mode
(bug#24510)
+
+ * lisp/isearch.el (isearch-fold-quotes-mode): Add char-folding of
+ double quotation marks.
+
+ * test/lisp/subr-tests.el (test-local-set-state): Test values
+ after setting state.
+
+2022-05-06 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Fix handling of IMAP search strings
+
+ * lisp/gnus/gnus-search.el (gnus-search-imap-handle-string): This was
+ a misunderstanding of what `multibyte-string-p' means. The check was
+ actually supposed to be whether the string was non-ascii or not.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further log-view-file-next fix-ups
+
+ * doc/emacs/maintaining.texi (VC Change Log): Remove the entries
+ for commands now removed from most VCs.
+ * lisp/vc/log-view.el (log-view-mode-menu): Disable menu entries
+ (bug#14531).
+
+2022-05-06 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Don't force Gnus cache usage in nnvirtual
+
+ * lisp/gnus/nnvirtual.el (nnvirtual-retrieve-headers): We're not sure
+ why this was happening, but it shouldn't be necessary. Simply calling
+ `gnus-retrieve-headers' directly will use the cache if the user has
+ configured it.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix forward-sexp for Unicode names in Emacs Lisp mode
+
+ * lisp/progmodes/elisp-mode.el (elisp-mode-syntax-propertize):
+ Make forward-sexp work for Unicode character names (bug#23354).
+
+2022-05-06 Noam Postavsky <npostavs@gmail.com>
+
+ Handle elisp #-syntax better in Emacs Lisp mode
+
+ * elisp-mode.el (elisp-mode-syntax-propertize): New function.
+ (emacs-lisp-mode): Set it as syntax-propertize-function (bug#15998).
+
+2022-05-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix bug#55274
+
+ * lisp/dired-aux.el (dired-do-compress-to): Use `file-local-name'
+ for shell out-file. (Bug#55274)
+
+2022-05-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/smie.el (smie-auto-fill): Fix bug#19342
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Respect help-window-keep-selected in shortdoc buttons
+
+ * lisp/help-fns.el (help-fns--mention-shortdoc-groups): Respect
+ help-window-keep-selected.
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc-display-group): Allow
+ reusing the window.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move buffer-local-set-state to subr because it's used at runtime
+
+ * lisp/subr.el (buffer-local-set-state)
+ (buffer-local-set-state--get, buffer-local-restore-state): Moved
+ from easy-mmode.el because they have to be available run-time.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make compilation-parse-errors more resilient
+
+ * lisp/progmodes/compile.el (compilation-parse-errors): Be more
+ resilient in the presence of regexp alist not being completely set
+ up (bug#55282).
+
+2022-05-06 Po Lu <luangruo@yahoo.com>
+
+ Improve font specs generated by the Haiku font dialog
+
+ * src/haikufont.c (Fx_select_font): Use `nil' instead of
+ `unspecified' to be consistent with other font dialogs.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix inhibiting reading the user init file with "emacs -x"
+
+ * lisp/startup.el (command-line): Really inhibit loading the user
+ init file with "emacs -x".
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the P/N/M-p/M-n bindings from the general log-view map
+
+ * lisp/vc/log-view.el (log-view-mode-map): Remove the P/N/M-p/M-n
+ bindings (that are only usable in some VCs).
+ * lisp/vc/vc-sccs.el (vc-sccs-log-view-mode):
+ * lisp/vc/vc-rcs.el (vc-rcs-log-view-mode):
+ * lisp/vc/vc-cvs.el (vc-cvs-log-view-mode): New modes that bind
+ the P/N/M-p/M-n commands (bug#14531).
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't override search-default-mode set by user in info/help
+
+ * lisp/info.el (Info-mode):
+ * lisp/help-mode.el (help-mode): Don't override isearch mode set
+ by the user.
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Char-fold quotation characters in *info* and *Help*
+
+ * lisp/info.el (Info-mode):
+ * lisp/help-mode.el (help-mode): Use it.
+ * lisp/isearch.el (isearch-fold-quotes-mode): New minor mode
+ (bug#24510).
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Autoload the buffer-local-set* things
+
+ * lisp/emacs-lisp/easy-mmode.el (buffer-local-set-state--get)
+ (buffer-local-restore-state): Autoload. Perhaps it would be
+ better to move these functions to subr.el or something...
+
+2022-05-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new helper macros for minor modes to restore variables
+
+ * doc/lispref/modes.texi (Defining Minor Modes): Document it.
+
+ * lisp/emacs-lisp/easy-mmode.el (buffer-local-set-state): New macro.
+ (buffer-local-set-state--get): Helper function.
+ (buffer-local-restore-state): New function.
+
+ * lisp/textmodes/word-wrap-mode.el (word-wrap-whitespace-mode):
+ Use it to simplify code.
+
+2022-05-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix thinko in tramp-skeleton-write-region
+
+ * lisp/net/tramp.el (tramp-skeleton-write-region): Fix typos.
+ Flush cache in time. (Bug#55247)
+ (tramp-handle-lock-file): Suppress messages in `write-region'.
+
+2022-05-06 Po Lu <luangruo@yahoo.com>
+
+ Fix calculation of display resolution on Haiku
+
+ * src/haiku_support.cc (BScreen_px_dim): Rename to
+ `be_get_screen_dimensions'.
+ (BScreen_res): Rename to `be_get_display_resolution' and fix
+ resolution computation.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufns.c (compute_tip_xy, Fx_display_pixel_width)
+ (Fx_display_pixel_height, Fx_display_mm_height)
+ (Fx_display_mm_width): Update accordingly.
+
+ * src/haikuterm.c (haiku_term_init): Likewise.
+
+2022-05-06 Eli Zaretskii <eliz@gnu.org>
+
+ Provide reference for OTF tags in the ELisp manual
+
+ * doc/lispref/display.texi (Low-Level Font): Provide the canonical
+ reference URL for OTF tags.
+
+2022-05-06 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 69c56cbe6e ; * src/w32notify.c: Fix a typo in a comment.
+ 3b9e60ba2f ; * src/window.c (Fset_window_start): Mention the effect o...
+
+2022-05-06 Po Lu <luangruo@yahoo.com>
+
+ Fix more problems with display of composite glyph strings on Haiku
+
+ * src/haikuterm.c
+ (haiku_draw_composite_glyph_string_foreground): Fix pen size of
+ placeholder rectangle.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse face persisting inside Lucid menus on XI2
+
+ * src/xmenu.c (create_and_show_popup_menu): Call `x_mouse_leave'
+ on Lucid as well when the input extension is being used.
+
+ * src/xterm.c (x_mouse_leave): Enable on Lucid XI2 builds.
+ * src/xterm.h: Update prototypes.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ * lwlib/lwlib.c (lw_separator_p): Fix empty strings being separators.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Fix menu dismissal problems on Xt builds with XI2
+
+ * src/xmenu.c (prepare_for_entry_into_toolkit_menu)
+ (leave_toolkit_menu): New functions.
+ (create_and_show_popup_menu): Replace some of the grab logic
+ with resetting the XI event mask instead.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Fix more issues with DND state on multiple displays
+
+ * src/xterm.c (handle_one_xevent): Don't update DND state on the
+ wrong display.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Improve safety of DND when Emacs is connected to multiple displays
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Don't check movement
+ frame unless we know it comes from the right display.
+
+2022-05-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ Gnulib update via admin/merge-gnulib
+
+2022-05-05 James N. V. Cash <james.nvc@gmail.com>
+
+ * lisp/emacs-lisp/crm.el: Set completion-list-insert-choice-function.
+
+ * lisp/emacs-lisp/crm.el (completing-read-multiple): Set buffer-local
+ completion-list-insert-choice-function that handles string values of
args.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-05/msg00017.html
+
+2022-05-05 Juri Linkov <juri@linkov.net>
+
+ * lisp/desktop.el: Enable tab-bar-mode after restoring frames with a
tab bar.
+
+ (desktop-restore-frameset): Enable tab-bar-mode when a restored frame
+ contains the frame parameter tab-bar-lines (bug#55070).
+
+2022-05-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ timestamp doc minor improvements
+
+ * doc/lispref/os.texi (Time of Day, Time Conversion)
+ (Time Calculations): Fix some confusion about decoded times,
+ timestamps, and time values. Exclude floating-point infinities
+ and NaNs from timestamps, as the code doesn’t always follow
+ IEEE-754 rules for them and whatever the code does, doesn’t matter
+ for timestamps anyway.
+
+2022-05-05 Glenn Morris <rgm@gnu.org>
+
+ * doc/emacs/misc.texi (Interactive Shell): Fix paren typo.
+
+2022-05-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a mistaken test case in test-undo-region
+
+ * test/lisp/simple-tests.el (test-undo-region): Fix failing cases
+ (bug#21523) -- the crossing-region case shouldn't be included,
+ either.
+
+2022-05-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Advertise OSC directory tracking more
+
+ * doc/emacs/misc.texi (Interactive Shell): Document OSC directory
+ tracking more.
+ * lisp/shell.el (shell-dirtrack-mode): Link to the OSC directory
+ tracking function.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Set GC line width on more GCs
+
+ * src/xterm.c (x_set_cursor_gc, x_set_mouse_face_gc)
+ (x_draw_bar_cursor): Make created scratch GCs have a line-width
+ of 1.
+
+2022-05-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Sort completions in Info references/menu correctly
+
+ * lisp/info.el (Info-follow-reference): Sort completions in the
+ order they appear in the buffer (bug#54175).
+ (Info-menu-update): Ditto.
+
+2022-05-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Be more resilient towards errors during error handling
+
+ * src/print.c (print_error_message): Avoid infinite recursion if
+ `substitute-command-keys' bugs out (bug#55269).
+
+2022-05-05 Philip Kaludercic <philipk@posteo.net>
+
+ Avoid resizing mini buffer when displaying page numbers
+
+ * doc-view.el (doc-view-goto-page): Do not insert a newline at the end
+ of the "current info" if not necessary.
+
+2022-05-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Describe kmacro registers better
+
+ * lisp/kmacro.el (register-val-describe): Allow describing macros
+ that contain mouse events (bug#55266).
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Speed up opening fonts on Haiku
+
+ * src/font.h (font_property_index): Note that some font drivers
+ use the extra data in a font entity to store driver-specific
+ information.
+
+ * src/haiku_font_support.cc (BFont_find): Set font indices.
+ (be_open_font_at_index): New function.
+ (BFont_open_pattern): Clean up coding style.
+ * src/haiku_support.h (enum haiku_font_specification)
+ (struct haiku_font_pattern): New fields and specifications for
+ indices.
+ * src/haikufont.c (haikufont_pattern_to_entity, haikufont_open):
+ Use indices to open fonts if available in the extra data.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Fix font weight reporting on macOS
+
+ * src/macfont.m (macfont_store_descriptor_attributes): Fix
+ numeric values for the addition of `medium'.
+
+ * src/nsterm.m (ns_font_desc_to_font_spec): Adjust accordingly.
+ (ns_create_font_panel_buttons): Try to fix button width.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Improve appearance of macOS font panel buttons
+
+ * src/nsterm.m (ns_create_font_panel_buttons):
+ ([EmacsView noteUserCancelledSelection]): New functions.
+ ([EmacsView showFontPanel]): Use those buttons instead.
+
+2022-05-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Add Tramp test
+
+ * test/lisp/net/tramp-tests.el (tar-mode): Require.
+ (tramp-test10-write-region-other-file-name-handler): New test.
+ (tramp-test31-interrupt-process, tramp-test31-signal-process):
+ Tag them :unstable unconditionally.
+
+ * test/lisp/net/tramp-resources/foo.tar.gz: New resource file.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Fix min size reporting of style pane in Haiku font dialogs
+
+ * src/haiku_support.cc (class DualLayoutView):
+ (MinSize): Implement correctly with both views.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Use bswap_32 and bswap_16 in Motif DND code
+
+ * src/xterm.c (SWAPCARD32, SAPCARD16): Use glibc/gnulib
+ byte-swapping functions if checking is disabled.
+
+2022-05-05 Po Lu <luangruo@yahoo.com>
+
+ Take size into account when previewing fonts on Haiku
+
+ * src/haiku_support.cc (MessageReceived): Decode size sent and
+ handle `UPDATE_PREVIEW_DIALOG' message.
+ (UpdatePreview): Add current size.
+ (EmacsFontSelectionDialog): Assign correct modification messages
+ to the size entry.
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Allow displaying font preview on Haiku
+
+ * src/haiku_support.cc (class EmacsFontPreviewDialog)
+ (class DualLayoutView): New classes.
+ (class EmacsFontSelectionDialog): Add field for preview,
+ checkbox and layout view.
+ (MessageReceived): Handle new font preview messages.
+ (EmacsFontSelectionDialog): New constructor.
+ (FrameResized): Resize the layout view instead.
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Fix device reporting from scroll bar events on X
+
+ * src/xterm.c (x_scroll_bar_handle_click): New argument
+ `device'.
+ (handle_one_xevent): Set it appropriately as long as required.
+
+2022-05-04 dickmao <dick.r.chiang@gmail.com>
+
+ Transcription error
+
+ * lisp/gnus/gnus-topic.el (gnus-topic-display-missing-topic):
+ Indent.
+ (gnus-topic-update-topic-line): Insert missing fourth argument.
+
+2022-05-04 Sean Whitton <spwhitton@spwhitton.name>
+
+ Revert "server-execute: Initialize the *scratch* buffer"
+
+ This reverts commit f2d2fe6fc8ef0b6087c4a8a69d05a4e521b23047.
+
+ To be replaced with factoring out *scratch* buffer initialization.
+
+2022-05-04 Glenn Morris <rgm@gnu.org>
+
+ Stop esh-var-tests leaving temp files behind
+
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/quoted-interp-temp-cmd): Don't leave temporary files.
+
+2022-05-04 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Remove bogus mode check from gnus topic update functions
+
+ * lisp/gnus/gnus-topic.el (gnus-topic-update-topics-containing-group):
+ (gnus-topic-update-topic): These functions originally checked to see
+ if we were in group mode, but later that check was changed to
+ 'gnus-topic-mode, which never passes because 'gnus-topic-mode isn't a
+ major mode. Revert to checking for 'gnus-group-mode, and use
+ `derived-mode-p' while we're at it.
+
+2022-05-04 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Use pixel-based alignment (bug#55207)
+
+ * lisp/tab-bar.el (tab-bar-format-align-right): Use string-pixel-width
+ on the string with tab-bar face to get the width in pixels to align.
+ (tab-bar-format-global): Remove string-trim-right to keep padding-right.
+
+2022-05-04 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Remove unused lexvar in subr-x-tests.el
+
+ * test/lisp/emacs-lisp/subr-x-tests.el
+ (test-with-buffer-unmodified-if-unchanged): Pacify unused lexvar
+ byte-compiler warning. Simplify slightly and reindent.
+
+2022-05-04 Glenn Morris <rgm@gnu.org>
+
+ * src/xterm.c (handle_one_xevent): Fix int/Lisp_Object mix-up.
+
+2022-05-04 Robert Pluim <rpluim@gmail.com>
+
+ * etc/NEWS: Improve some NEWS entries
+
+2022-05-04 Robert Pluim <rpluim@gmail.com>
+
+ * doc/emacs/killing.texi: Fix typos
+
+ * doc/emacs/killing.texi (Clipboard): Fix wording in description of
+ 'save-interprogram-paste-before-kill'. Ensure the reference to
+ "Yanking Media" is not split over two lines.
+
+2022-05-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix restoring desktop from TTY-saved sessions
+
+ * lisp/frameset.el (frameset-restore): Don't override/fix position
+ of the restored frames for which we have geometry information
+ saved by a past GUI session. (Bug#55070)
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Turn on XInput 2 support by default
+
+ The support doesn't interfere with compatibility, since Emacs
+ built with XInput 2 support transparently falls back to Core
+ Input when a suitable version of the input extension is not
+ available. It also matured much sooner than expected, so
+ enabling this by default will lead to new features being
+ available to more users.
+
+ * INSTALL:
+ * configure.ac:
+ * etc/NEWS: Enable XInput 2 support by default.
+
+2022-05-04 Eli Zaretskii <eliz@gnu.org>
+
+ Clarify the doc string of 'with-buffer-unmodified-if-unchanged'
+
+ * lisp/emacs-lisp/subr-x.el (with-buffer-unmodified-if-unchanged):
+ Describe better what is meant by "buffer changes". (Bug#4587)
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Remove unused variable in Haiku selection code
+
+ * src/haiku_select.cc (selection_state_flag):
+ * src/haikuselect.h: Remove variable.
+
+2022-05-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'bidi-class' property of unassigned codepoints
+
+ * admin/unidata/unidata-gen.el (unidata-file-alist): Update the
+ default values of 'bidi-class' according to the latest Unicode
+ Standard.
+
+ * admin/notes/unicode: Mention possible changes in
+ DerivedBidiClass.txt that need to be reflected in unidata-gen.el.
+
+ * lisp/international/characters.el (#xfb50, #xfdf0): Fix the
+ Arabic block characters. (Bug#55256)
+
+2022-05-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Flush the tool bar cache on all terminals when adding new entries
+
+ * lisp/tool-bar.el (tool-bar--flush-cache): Flush the cache for
+ the current tool bar on all terminals.
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Correctly encode and decode filenames on NS
+
+ * src/nsfns.m (Fns_read_file_name): Run dir through ENCODE_FILE
+ and fname through DECODE_FILE.
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Fix file name encoding on Haiku file dialogs
+
+ * src/haikufns.c (Fhaiku_read_file_name): Use ENCODE_FILE and
+ DECODE_FILE correctly.
+
+2022-05-04 Po Lu <luangruo@yahoo.com>
+
+ Set initial size in the Haiku font dialog
+
+ * src/haiku_support.cc (class EmacsFontSelectionDialog)
+ (EmacsFontSelectionDialog): New argument `initial_size'.
+ (be_select_font): Likewise.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufont.c (Fx_select_font): Set font dialog size to the
+ pixel size of the current font.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Encode and decode filenames correctly on Haiku
+
+ * src/haikufns.c (Fhaiku_read_file_name): Decode file names
+ correctly.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Clean up Haiku file panel code
+
+ * lisp/term/haiku-win.el (x-file-dialog): Fix nil values of
+ `default-filename'.
+ * src/haiku_io.c (haiku_len): Remove `FILE_PANEL_EVENT'.
+ (record_c_unwind_protect_from_cxx, c_specpdl_idx_from_cxx)
+ (c_unbind_to_nil_from_cxx): Delete functions.
+ * src/haiku_support.cc (MessageReceived): Write pointer to
+ buffer to file panel port instead.
+ (struct popup_file_dialog_data): Delete strict.
+ (unwind_popup_file_dialog): Delete functions.
+ (be_popup_file_dialog): Accept a pointer to
+ `process_pending_signals' and run nested event loop as usual.
+
+ * src/haiku_support.h (enum haiku_event_type): Remove
+ `FILE_PANEL_EVENT'.
+ (struct haiku_file_panel_event): Delete struct.
+ * src/haikufns.c (unwind_popup): Delete function.
+ (Fhaiku_read_file_name): Update and quit on invalid filename.
+
+ * src/haikuterm.c (struct unhandled_event): Delete struct.
+ (haiku_read_socket): Remove "unhandled events".
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (haiku_create_frame): Improve default border width.
+
+2022-05-03 Sean Whitton <spwhitton@spwhitton.name>
+
+ server-execute: Initialize the *scratch* buffer
+
+ * lisp/server.el: Require subr-x when compiling.
+ (server-execute): Initialize the *scratch* buffer in the same way that
+ the scratch-buffer command does, for consistency.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Fix display of placeholder composite string on Haiku
+
+ * src/haikuterm.c
+ (haiku_draw_composite_glyph_string_foreground): Correct
+ translation of XDrawRectangle.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Fix event mask and source indication of _NET_WM_STATE messages
+
+ * src/xselect.c (x_send_client_event): Make static.
+ * src/xterm.c (set_wm_state): Send event with correct mask and
+ source indication set.
+ * src/xterm.h: Update prototypes.
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make some recently added tests actually run
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make with-buffer-unmodified-if-unchanged more efficient
+
+ * lisp/emacs-lisp/subr-x.el (with-buffer-unmodified-if-unchanged):
+ Make more efficient.
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make with-buffer-unmodified-if-unchanged more resilient
+
+ * lisp/emacs-lisp/subr-x.el (with-buffer-unmodified-if-unchanged):
+ Make more resilient.
+
+2022-05-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ with-buffer-unmodified-if-unchanged: Tweak the implementation
+
+ * lisp/emacs-lisp/subr-x.el (with-buffer-unmodified-if-unchanged):
+ Skip the hash if the buffer was not modified at all.
+ Use `restore-buffer-modified-p`.
+ Also mention that it's imperative that the current buffer is preserved.
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entry about incompatible sorting command behaviors
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make sorting not change buffer modification status always
+
+ * lisp/sort.el (sort-subr): Don't mark buffer modified if the
+ sorting didn't change anything (bug#4587).
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new macro with-buffer-unmodified-if-unchanged
+
+ * lisp/emacs-lisp/subr-x.el (with-buffer-unmodified-if-unchanged):
+ New macro.
+ * lisp/textmodes/fill.el (fill-paragraph): Macro code copied from
+ here. Adjust and use the macro.
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix thinko in recent tool bar caching logic
+
+ * lisp/tool-bar.el (tool-bar--cache-key): New function.
+ (tool-bar--flush-cache, tool-bar-make-keymap): Use it.
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make tool bar caching more sensible
+
+ * lisp/tool-bar.el (tool-bar-keymap-cache): Make into a non-weak
+ EQ hash table, which should be faster and not lose the contents
+ after a GC (bug#43397).
+ (tool-bar--flush-cache, tool-bar-make-keymap): Use the terminal
+ only as the key.
+ (tool-bar-local-item, tool-bar-local-item-from-menu): Flush the
+ cache after altering the tool bar.
+
+2022-05-03 Eli Zaretskii <eliz@gnu.org>
+
+ Allow desktop to restore frames and windows on TTY frames
+
+ * lisp/frameset.el (frameset-persistent-filter-alist): Add 'top',
+ 'left', 'bottom', and 'right' to frame parameters that are shelved
+ and unshelved when switching from GUI to TTY frames and vice
+ versa.
+ (frameset--restore-frame): Accept two optional arguments DX and
+ DY, and offset by them each frame restored from TTY desktop, to
+ make such restored frames more prominently visible. Force such
+ frames to be visible on GUI display, since the visibility
+ parameter is meaningless for TTY frames.
+ (frameset-restore): Pass DX and DY offsets to
+ 'frameset--restore-frame', when restoring TTY frames on GUI
+ display.
+ * lisp/desktop.el (desktop-restore-frameset): Pass the
+ :force-onscreen argument of 'frameset-restore' as nil when
+ restoring frames on text-mode display.
+ (desktop-restore-forces-onscreen): Document that this option has
+ no real effect on restoring frames on text-mode display.
+ (desktop-restoring-frameset-p): Allow restoring frames in non-GUI
+ sessions, but disallow that when the selected frame is the
+ daemon's initial frame. (Bug#55070)
+
+2022-05-03 Jim Porter <jporterbugs@gmail.com>
+
+ Improve the behavior of concatenating parts of Eshell arguments
+
+ Previously, concatenating a list to a string would first convert the
+ list to a string. Now, the string is concatenated with the last
+ element of the list.
+
+ * lisp/eshell/esh-util.el (eshell-to-flat-string): Make obsolete.
+
+ * lisp/eshell/esh-arg.el (eshell-concat, eshell-concat-1): New
+ functions.
+ (eshell-resolve-current-argument): Use 'eshell-concat'.
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/interp-concat-cmd):
+ Add check for concatenation of multiline output of subcommands.
+ (esh-var-test/quoted-interp-concat-cmd): New test.
+
+ * test/lisp/eshell/em-extpipe-tests.el (em-extpipe-test-13): Use
+ 'eshell-concat'.
+
+ * doc/misc/eshell.texi (Expansion): Document this behavior.
+
+ * etc/NEWS: Announce the change (bug#55236).
+
+2022-05-03 Jim Porter <jporterbugs@gmail.com>
+
+ Return a list of numbers if all lines of an Eshell subcommand are
numeric
+
+ * lisp/eshell/esh-util.el (eshell-convertible-to-number-p)
+ (eshell-convert-to-number): New functions...
+ (eshell-convert): ... use them.
+
+ * test/lisp/eshell/esh-var-tests.el
+ (esh-var-test/interp-convert-cmd-string-newline): Add checks for
+ numeric output.
+
+ * doc/misc/eshell.texi (Dollars Expansion): Document the new behavior.
+
+ * etc/NEWS: Announce the change (bug#55236).
+
+2022-05-03 Jim Porter <jporterbugs@gmail.com>
+
+ Eshell variable expansion should always return strings inside quotes
+
+ This is closer in behavior to regular shells, and gives Eshell users
+ greater flexibility in how variables are expanded.
+
+ * lisp/eshell/esh-util.el (eshell-convert): Add TO-STRING argument.
+
+ * lisp/eshell/esh-var.el (eshell-parse-variable-ref): Add MODIFIER-P
+ argument and adjust how 'eshell-convert' and 'eshell-apply-indices'
+ are called.
+ (eshell-get-variable, eshell-apply-indices): Add QUOTED argument.
+
+ * test/lisp/eshell/esh-var-tests.el (eshell-test-value): New defvar.
+ (esh-var-test/interp-convert-var-number)
+ (esh-var-test/interp-convert-var-split-indices)
+ (esh-var-test/interp-convert-quoted-var-number)
+ (esh-var-test/interp-convert-quoted-var-split-indices)
+ (esh-var-test/interp-convert-cmd-string-newline)
+ (esh-var-test/interp-convert-cmd-multiline)
+ (esh-var-test/interp-convert-cmd-number)
+ (esh-var-test/interp-convert-cmd-split-indices)
+ (esh-var-test/quoted-interp-convert-var-number)
+ (esh-var-test/quoted-interp-convert-var-split-indices)
+ (esh-var-test/quoted-interp-convert-quoted-var-number)
+ (esh-var-test/quoted-interp-convert-quoted-var-split-indices)
+ (esh-var-test/quoted-interp-convert-cmd-string-newline)
+ (esh-var-test/quoted-interp-convert-cmd-multiline)
+ (esh-var-test/quoted-interp-convert-cmd-number)
+ (esh-var-test/quoted-interp-convert-cmd-split-indices): New tests.
+
+ * doc/misc/eshell.texi (Arguments): Expand this section, and document
+ the new behavior.
+ (Dollars Expansion): Provide more detail about '$(lisp)' and
+ '${command}' forms.
+
+ * etc/NEWS (Eshell): Announce this change (bug#55236).
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make adding things to the tool bar show up on next redisplay
+
+ * lisp/tool-bar.el (tool-bar--flush-cache): New function.
+ (tool-bar-add-item): Flush the cache (bug#43397).
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command 'package-update'
+
+ * doc/emacs/package.texi (Package Installation): Mention it.
+ * lisp/emacs-lisp/package.el (package-update): New command
+ (bug#18790).
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix key-parse problem with C-x ( ... sequences
+
+ * lisp/keymap.el (key-parse): Move the read-kbd-macro compat code
+ from here...
+ * lisp/subr.el (kbd): ... to here. (And fix the logic, too.)
+ This allows `key-parse' to have a less puzzling result while
+ maintaining backwards compatibility (bug#38775).
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make TAB work in makefile mode when transient mark mode is on
+
+ * lisp/progmodes/make-mode.el (makefile-mode): Insert a tab
+ instead of removing it (bug#37087).
+
+2022-05-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle file name handler in write-region's VISIT arg
+
+ * lisp/net/tramp.el (tramp-skeleton-delete-directory): Move up.
+ (tramp-skeleton-write-region): New defmacro. Handle also file
+ name handler in VISIT. (Bug#55166)
+ (tramp-handle-write-region):
+ * lisp/net/tramp-adb.el (tramp-adb-handle-write-region):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-write-region):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-write-region):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-write-region): Use it.
+
+2022-05-03 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Rewrite sql-interactive-remove-continuation-prompt
+
+ * lisp/progmodes/sql.el (sql-starts-with-prompt-re): Remove.
+ (sql-ends-with-prompt-re): Remove
+ (sql-interactive-remove-continuation-prompt): Delete prompts from
+ anywhere in the process output, not just at the beginning of current
+ string. Streamline logic, describe it in docstring.
+ * test/lisp/progmodes/sql-tests.el: Add tests
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make more buttons in *Help* respect `help-window-keep-selected'
+
+ * lisp/help-mode.el (help-function-cmacro, help-variable-def)
+ (help-face-def): Also respect `help-window-keep-selected' like the
+ other commands.
+
+2022-05-03 rbrtb <104695105+rbrtb@users.noreply.github.com> (tiny change)
+
+ Ensure exit-function of eglot-c-at-point runs on exact match
+
+ When the completion is exact match, exit-function should still run.
+
+ Say one is using auto-imports feature of pyright. One types foo, and
+ triggers the completion. There are two candidates: foo and foo_bar. If
+ one chooses foo, the status would be 'exact' instead of 'finished', thus
+ exit-function is not executed, foo is not auto-imported.
+
+ * eglot.el (eglot-completion-at-point): Consider 'exact status.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/941
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further mm-base64-line-p bug fixes
+
+ * lisp/gnus/mm-bodies.el (mm-base64-line-p): Fix parsing error
+ introduced by d90f54d.
+
+2022-05-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mm-base64-line-p logic
+
+ * lisp/gnus/mm-bodies.el (mm-base64-line-p): Don't claim that an
+ empty line is base64.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ * src/haiku_support.cc (DrawContent): Use right UI color.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Make menu bar help text work on macOS as well
+
+ * lisp/tooltip.el (tooltip-show-help): Resort to displaying
+ messages in the echo area on NS.
+
+ * src/nsmenu.m ([EmacsMenu menu:willHighlightItem:]): Call
+ `show_help_echo' instead of storing an event into the keyboard
+ buffer.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Fix default font in macOS font dialogs
+
+ * src/nsterm.m ([EmacsView noteUserSelectedFont]): Use current
+ font if none was selected.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Fix some font parsing problems on NS
+
+ * src/nsterm.m (ns_font_desc_to_font_spec): Fix processing of
+ condensed width.
+
+2022-05-03 Po Lu <luangruo@yahoo.com>
+
+ Handle GraphicsExpose events on scroll bars
+
+ * src/xterm.c (x_scroll_bar_expose): Handle GraphicsExpose
+ events.
+ (handle_one_xevent): Give graphics exposures to scroll bars.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Make sure rectangles are drawn correctly on X
+
+ * src/xfaces.c (prepare_face_for_display): Always use line-width
+ of 1.
+ * src/xfns.c (x_make_gc): Likewise.
+ * src/xterm.c (x_scroll_bar_expose): Comment out obsolete code.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Fix glyphless glyph display on Haiku
+
+ * src/haikuterm.c
+ (haiku_draw_glyphless_glyph_string_foreground): Fix rectangle
+ width.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Fix font matching of "Fira Code Retina" and "Fira Code Regular" on Haiku
+
+ * src/haiku_font_support.cc (font_family_style_matches_p): Don't
+ allow matches on fonts with an adstyle if none was specified in
+ the input pattern.
+
+2022-05-02 Glenn Morris <rgm@gnu.org>
+
+ Don't leave temp files behind from undigest-tests
+
+ Sadly the "temp" in with-temp-file refers to a buffer, not a file.
+ * test/lisp/mail/undigest-tests.el (rmail-undigest-test-rfc934-digest)
+ (rmail-undigest-test-rfc1153-digest-strict)
+ (rmail-undigest-test-rfc1153-less-strict-digest)
+ (rmail-undigest-test-rfc1153-sloppy-digest)
+ (rmail-undigest-test-rfc1521-mime-digest)
+ (rmail-undigest-test-multipart-mixed-digest):
+ Delete temporary files at end.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Clean up X11 double buffering code
+
+ This fixes several latent bugs where code went down the path
+ with double buffering enabled when it wasn't, and vice versa.
+
+ * src/xfns.c (x_set_inhibit_double_buffering): Improve
+ commentary and only define when HAVE_XDBE.
+ (x_mark_frame_dirty): Only set buffer flip flag when HAVE_XDBE.
+ (initial_set_up_x_back_buffer): Clean up coding style and remove
+ unnecessary block_input pair.
+ (Fx_double_buffered_p): Always return nil if !HAVE_XDBE.
+ (x_frame_parm_handlers): Don't set double buffering handler if
+ !HAVE_XDBE.
+
+ * src/xftfont.c (xftfont_drop_xrender_surfaces, xftfont_driver):
+ Only define when XDBE is available.
+
+ * src/xterm.c (x_drop_xrender_surfaces): Likewise.
+ (x_clear_window): Don't test double buffering flags when
+ !HAVE_XDBE.
+ (show_back_buffer): Only define when HAVE_XDBE.
+ (x_flip_and_flush): Don't try to flip when !HAVE_XDBE.
+ (XTframe_up_to_date): Likewise.
+ (XTbuffer_flipping_unblocked_hook): Only define when Xdbe is
+ available.
+ (x_clear_area): Don't test double buffering flags when Xdbe is
+ not available.
+ (flush_dirty_back_buffer_on): Don't define if there's no DBE.
+ (handle_one_xevent, x_create_terminal): Likewise.
+
+ * src/xterm.h (FRAME_X_DRAWABLE): Fix coding style.
+
+2022-05-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix punctuation in the Eshell manual
+
+ * doc/misc/eshell.texi (Argument Predication and Modification):
+ Fix whitespace.
+
+2022-05-02 Arash Esbati <arash@gnu.org>
+
+ Load multiple bibliographies with multibib package
+
+ * lisp/textmodes/reftex-parse.el (reftex-using-biblatex-p):
+ Recognize 'multibib' which allows multiple bibliography loading
+ macro calls.
+ (reftex-locate-bibliography-files): Prevent possible duplications
+ in bibliography database files.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Wait for events from all displays in Xm dialogs even on XI2
+
+ * src/xfns.c (Fx_file_dialog): Always process events from all
+ displays.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the eval-in-debug error message prettier in non-recursive errors
+
+ * lisp/emacs-lisp/debug.el (debugger-eval-expression): Make the
+ error message (when recursive debugging is off) prettier.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make non-recursive error messages in edebug prettier
+
+ * lisp/emacs-lisp/edebug.el (edebug-eval-expression): Make the
+ error message (when recursive debugging is off) prettier.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix eldoc interaction with `when' and `unless'
+
+ * lisp/subr.el (when, unless): Remove the (fn...) bits from the
+ doc string, because the advertised calling convention is correct
+ the way it is (bug#27229). This also makes eldoc highlight the
+ arguments correctly.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a command to recreate the *scratch* buffer
+
+ * doc/emacs/building.texi (Lisp Interaction): Mention it.
+ * lisp/simple.el (scratch-buffer): New command.
+
+2022-05-02 Stefan Kangas <stefankangas@gmail.com>
+
+ Fix handling double-click-time nil or t
+
+ * lisp/mouse.el (mouse-double-click-time): New function to always
+ return a number for `double-click-time'.
+ * lisp/emulation/viper-mous.el (viper-multiclick-timeout):
+ * lisp/foldout.el (foldout-mouse-swallow-events):
+ * lisp/help.el (help--read-key-sequence):
+ * lisp/org/org-mouse.el (org-mouse-show-context-menu): Use
+ 'mouse-double-click-time' instead of 'double-click-time'.
+ * src/keyboard.c (syms_of_keyboard): Mention
+ 'mouse-double-click-time' in doc string of 'double-click-time'.
+ * test/lisp/mouse-tests.el (mouse-test-mouse-double-click-time):
+ New test.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-fix Gcc header tokenization in Gnus
+
+ * lisp/gnus/gnus-msg.el (gnus-inews-do-gcc): Split the Gcc header
+ on commas, but allow group names to contain spaces (bug#55217).
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow reusing the *Help* window with `i'/`s/ commands
+
+ * doc/emacs/help.texi (Help): Document it.
+
+ * lisp/help-mode.el (help-function-def--button-function): Use it.
+ * lisp/help-mode.el (help-goto-info): Use it.
+
+ * lisp/help.el (help-window-select): Mention it.
+ (help-window-keep-selected): New user option (bug#9054).
+
+ * lisp/info-look.el (info-lookup-symbol):
+ (info-lookup): Allow keeping the same window.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Fix inconsistencies in Haiku font selection dialog
+
+ * src/haiku_font_support.cc (font_family_style_matches_p): Fix
+ coding style.
+ * src/haikufont.c (haikufont_pattern_from_object): Set slant and
+ width using correct object.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow show-paren to show matching parentheses inside comments
+
+ * lisp/paren.el (show-paren--default): Improve blinking when
+ inside a comment (bug#5410).
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Fix handling of some weights in the Haiku font driver
+
+ * src/haiku_font_support.cc (font_style_to_flags):
+ * src/haiku_support.h (enum haiku_font_weight):
+ * src/haikufont.c (haikufont_weight_to_lisp)
+ (haikufont_lisp_to_weight): Make `ultralight' and `extralight'
+ mean the same thing.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use xref-goto-xref as the xref mouse binding
+
+ * lisp/progmodes/xref.el (xref--button-map): Keep the
+ xref-goto-xref binding instead of select-and-show to be more
+ similar to grep buffers.
+
+2022-05-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the OMIT-NULLS + "" case in string-lines
+
+ * lisp/subr.el (string-lines): Respect OMIT-NULLS when given an
+ empty string.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Improve font dialog on macOS
+
+ * src/nsterm.m ([EmacsView changeFont:]): Don't exit loop here
+ on macOS.
+ ([EmacsView noteUserSelectedFont]): New function.
+ ([EmacsView showFontPanel]): Add explicit "OK" button on macOS.
+
+2022-05-02 Po Lu <luangruo@yahoo.com>
+
+ Default to currently selected font in Haiku font dialogs
+
+ * src/haiku_font_support.cc (be_find_font_indices): New
+ function.
+ * src/haiku_support.cc (class EmacsFontSelectionDialog)
+ (UpdateStylesForIndex, EmacsFontSelectionDialog): Allow
+ specifying an initial font family and style.
+ (be_select_font): New parameters `initial_family' and
+ `initial_style'.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufont.c (haikufont_lisp_to_weight)
+ (haikufont_lisp_to_slant, haikufont_lisp_to_width): Handle
+ `regular'.
+ (haikufont_pattern_from_object): New function.
+ (haikufont_spec_or_entity_to_pattern): Fix coding style.
+ (Fx_select_font): Compute indices based on currently selected
+ font.
+ (syms_of_haikufont): New defsyms.
+
+2022-05-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/gnus/gnus-util.el (gnus-byte-compile): Use `lexical-binding`
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions with async input in some Haiku dialogs
+
+ * src/haikufns.c (Fhaiku_save_session_reply):
+ * src/haikufont.c (Fx_select_font): Block sigio around system
+ calls.
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Fix the macOS build
+
+ * src/nsterm.m (ns_font_desc_to_font_spec, syms_of_nsterm):
+ Define missing symbols that are only on GNUstep.
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Make the NS font dialog return more correct values
+
+ * src/nsfns.m (Fx_select_font): Update doc string.
+ * src/nsterm.m (ns_font_desc_to_font_spec): New
+ function.
+ ([EmacsView showFontPanel]): Return selected font as a
+ font spec instead.
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Fix devices staying disabled in some cases
+
+ * src/xterm.c (handle_one_xevent): Process queued disables
+ before handling an XIDeviceEnabled situation.
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix string-lines return for ""
+
+ * lisp/subr.el (string-lines): Return the correct result on ""
+ (bug#55213).
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change string-lines semantics slightly
+
+ * lisp/subr.el (string-lines): Change the semantics slightly --
+ don't return an empty string for a trailing newline.
+
+2022-05-01 Jim Porter <jporterbugs@gmail.com>
+
+ Handle escaped characters in Eshell special references (e.g. buffers)
+
+ * lisp/eshell/esh-arg.el (eshell-parse-special-reference): Unescape
+ escaped characters.
+
+ * test/lisp/eshell/eshell-tests-helpers.el (with-temp-eshell): Restore
+ current buffer after evaluating BODY.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/redirect-buffer)
+ (eshell-test/redirect-buffer-escaped): New tests (bug#55204).
+
+2022-05-01 Jim Porter <jporterbugs@gmail.com>
+
+ Handle escaped characters in Eshell argument predicates/modifiers
+
+ * lisp/eshell/em-pred.el (eshell-get-delimited-modifier-argument):
+ Unescape escaped characters.
+
+ * test/lisp/eshell/em-pred-tests.el (em-pred-test/predicate-escaping):
+ New test (bug#55204).
+
+2022-05-01 Jim Porter <jporterbugs@gmail.com>
+
+ Use a common set of string delimiters for all Eshell
predicates/modifiers
+
+ * lisp/eshell/em-pred.el (eshell-pred-delimiter-pairs): New variable.
+ (eshell-get-comparison-modifier-argument)
+ (eshell-get-numeric-modifier-argument)
+ (eshell-get-delimited-modifier-argument): New functions...
+ (eshell-pred-user-or-group, eshell-pred-file-time)
+ (eshell-pred-file-links, eshell-pred-file-size)
+ (eshell-pred-substitute, eshell-join-memebers, eshell-split-members):
+ ... and use them here.
+ (eshell-include-members): Pass 'mod-char' and use
+ 'eshell-get-delimited-modifier-argument'.
+ (eshell-pred-file-type, eshell-pred-file-mode): Use 'when-let'.
+ (eshell-modifier-alist): Pass modifier char to
+ 'eshell-include-members'.
+
+ * test/lisp/eshell/em-pred-tests.el
+ (em-pred-test/predicate-delimiters): New test.
+ (em-pred-test/predicate-uid, em-pred-test/predicate-gid,
+ em-pred-test/modifier-include, em-pred-test/modifier-exclude): Remove
+ cases covered by 'em-pred-test/predicate-delimiters'.
+ (em-pred-test/modifier-substitute): Add test cases for new delimiter
+ styles.
+
+ * doc/misc/eshell.texi (Argument Predication and Modification):
+ Explain how string parameters are delimited.
+ (Argument Modifiers): Document some special delimiter behavior with
+ the 's/PATTERN/REPLACE/' modifier (bug#55204).
+
+ * etc/NEWS: Announce this change, and move the
+ 'eshell-eval-using-options' entry to the Eshell section.
+
+2022-05-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/minibuffer.el (completion--replace): Fix bug#55205
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Replace NS code that implemented font panels in a different way
+
+ * doc/emacs/macos.texi (Mac / GNUstep Events): Document removal
+ of `ns-change-font' event. The font panels are now implemented
+ normally, via `x-select-font'.
+
+ * lisp/term/common-win.el (x-setup-function-keys): Likewise.
+
+ * lisp/term/ns-win.el (global-map, ns-popup-font-panel): Remove.
+ (x-select-font, mouse-set-font, ns-input-font):
+ (ns-input-fontsize): Remove.
+ (ns-respond-to-change-font): Delete function.
+
+ * src/nsfns.m (Fns_popup_font_panel): Delete function.
+ (Fx_select_font): New function.
+ (syms_of_nsfns): Update subrs.
+ * src/nsterm.h (@interface EmacsView):
+ * src/nsterm.m (ns_select_1): New function.
+ (ns_select): Wrap around that instead.
+ ([EmacsView changeFont:]): Exit nested event loop
+ ([EmacsView showFontPanel:]): New function.
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't enter the debugger from *Backtrace* or edebug on eval errors
+
+ * doc/lispref/debugging.texi (Error Debugging): Document it.
+
+ * doc/lispref/edebug.texi (Edebug Eval): Mention it.
+ * lisp/emacs-lisp/debug.el (debug-allow-recursive-debug): New user
+ option (bug#36145).
+ (debugger-eval-expression): Use it.
+
+ * lisp/emacs-lisp/edebug.el (edebug-eval-expression): Ditto.
+
+ This patch is based on a patch by Noam Postavsky.
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Correct Using Debugger lispref node
+
+ * doc/lispref/debugging.texi (Using Debugger): Make documentation
+ reflect reality (bug#36145).
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make scroll-other-window respect target window remappings
+
+ * lisp/window.el (scroll-other-window, scroll-other-window-down):
+ Moved from window.c and change implementation so that they respect
+ command remappings in the target window (bug#20236).
+
+2022-05-01 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'malloc-trim'
+
+ * src/alloc.c (Fmalloc_trim): Fix the doc string.
+
+ * etc/NEWS: Document which systems support 'malloc-trim'.
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function `malloc-trim'
+
+ * configure.ac (PGTK_LIBS): Check for malloc_trim.
+
+ * src/alloc.c (Fmalloc_trim): Add new function (bug#45200).
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Fix specifying zero as a size for fonts on Haiku
+
+ * src/haiku_support.cc (MessageReceived): Set `size_specified'
+ correctly.
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Improve display of Haiku font dialog
+
+ * src/haiku_support.cc (EmacsFontSelectionDialog)
+ (class EmacsFontSelectionDialog, FrameResized): Set minimum size
+ based on individual view dimensions and add label to size
+ control.
+ (BWindow_set_min_size): Delete function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_update_size_hints): Stop setting min
+ size, since that doesn't work correctly on Haiku.
+
+2022-05-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the mm-decode-content-transfer-encoding overflow better
+
+ * lisp/gnus/mm-bodies.el (mm-decode-content-transfer-encoding):
+ Use it.
+ (mm-base64-line-p): New function.
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ * lisp/menu-bar.el (menu-bar-search-menu): Remove extra separator.
+
+2022-05-01 Eli Zaretskii <eliz@gnu.org>
+
+ Document 'help-window-select'
+
+ * etc/NEWS:
+ * doc/emacs/help.texi (Apropos, Help): Document
+ 'help-window-select'; improve indexing. (Bug#46034)
+
+2022-05-01 Po Lu <luangruo@yahoo.com>
+
+ Allow specifying font size in the Haiku font selection dialog
+
+ * src/haiku_support.cc (struct font_selection_dialog_message):
+ New fields `size' and `size_specified'.
+ (class EmacsFontSelectionDialog): New `size_entry' control.
+ (MessageReceived): Set size from that control if available.
+ (EmacsFontSelectionDialog): Initialize that control.
+ (FrameResized): Handle layout for that control.
+ (be_select_font): New field `size'.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufont.c (Fx_select_font): Populate font spec with
+ size.
+
+2022-05-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-04-30 19:52:14 UTC.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Allow quitting inside font selection dialogs on Haiku
+
+ * src/haiku_support.cc (WaitForChoice): Accept new function for
+ checking quit flag.
+ (be_select_font): Pass that function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufont.c (haikufont_should_quit_popup): New function.
+ (Fx_select_font): Give said function to `be_select_font'.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Allow invoking fonts in the Haiku font dialog
+
+ * src/haiku_support.cc (MessageReceived): Handle invocations.
+ (EmacsFontSelectionDialog): Set style panel invocation message.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Improvements to the Haiku font dialog
+
+ * src/haiku_support.cc (class EmacsFontSelectionDialog)
+ (EmacsFontSelectionDialog, FrameResized): Fix colors and respect
+ monospace only.
+ (be_select_font): New parameter `allow_monospace_only'.
+ * src/haiku_support.h: Update prototype.
+ * src/haikufont.c (Fx_select_font): Respect
+ `exclude-proportional'.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Also fix some compiler warnings in xterm.c that didn't show up
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Don't define unused
+ variable on GTK builds.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Fix the GTK build
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Let GTK handle events
+ again.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Fix typo.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Fix processing events from multiple displays during DND
+
+ * src/xterm.c (x_next_event_from_any_display): New function.
+ Only used on no-toolkit builds.
+ (x_dnd_begin_drag_and_drop): Compute correct dpyinfo for
+ handle_one_xevent.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Clean up X Windows tooltip code
+
+ * src/xfns.c (x_hide_tip): Remove "bloodcurdling hack".
+ * src/xterm.c (handle_one_xevent): Add a better version here
+ instead. The code is unlikely to be hit as well, since tooltip
+ frames are typically deleted, not just hidden.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Implement font selection dialog on Haiku
+
+ * src/haiku_font_support.cc (font_style_to_flags): Handle style
+ allocation failures.
+ (be_font_style_to_flags): New function.
+
+ * src/haiku_support.cc (struct font_selection_dialog_message):
+ New struct.
+ (class EmacsFontSelectionDialog): New class.
+ (be_select_font): New function.
+
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufont.c (Fx_select_font): New function.
+ (syms_of_haikufont): Define new subr.
+
+2022-04-30 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix failing image test on nox builds
+
+ * test/lisp/image-tests.el (image-supported-file-p/built-in): Skip
+ test in --without-x builds.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `M-x apropos' respect help-window-select
+
+ * lisp/apropos.el (apropos-print): Respect help-window-select.
+ (apropos): Mention it (bug#46034).
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make load-path-shadows-mode a special mode
+
+ * lisp/emacs-lisp/shadow.el (load-path-shadows-mode): Make the
+ mode inherit from special-mode so that the `q' command works.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation-max-output-line-length type
+
+ * lisp/progmodes/compile.el (compilation-max-output-line-length):
+ Fix the type.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid regexp overflow in mm-decode-content-transfer-encoding
+
+ * lisp/gnus/mm-bodies.el (mm-decode-content-transfer-encoding):
+ The base64 may be huge, so avoid backtracking (bug#55195).
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix Vx_show_tooltip_timeout in ns build, too
+
+ * src/nsfns.m (Fx_show_tip): Respect Vx_show_tooltip_timeout here,
+ too.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation after recent x-show-tooltip-timeout changes
+
+ * src/dispnew.c (syms_of_display): Move x-show-tooltip-timeout to
+ a common file to avoid breaking other systems.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the "retro" Gnus/Message tool bars
+
+ * doc/misc/gnus.texi (Gravatars): Remove documentation.
+ * lisp/gnus/gmm-utils.el (gmm-tool-bar-style): Obsoleted.
+
+ * lisp/gnus/gnus-group.el (gnus-group-tool-bar): Use the "Gnome"
+ definition.
+ (gnus-group-tool-bar-gnome, gnus-group-tool-bar-retro)
+ (gnus-group-tool-bar-zap-list): Obsolete.
+
+ * lisp/gnus/gnus-sum.el (gnus-summary-tool-bar): Use the "Gnome"
+ definition.
+ (gnus-summary-tool-bar-gnome, gnus-summary-tool-bar-retro)
+ (gnus-summary-tool-bar-zap-list): Obsolete.
+
+ * lisp/gnus/message.el (message-tool-bar): Use the "Gnome"
+ definition.
+ (message-tool-bar-gnome, message-tool-bar-retro)
+ (message-tool-bar-zap-list): Obsolete.
+
+2022-04-30 Andreas Schwab <schwab@linux-m68k.org>
+
+ * lisp/gnus/deuglify.el (gnus-article-outlook-rearrange-citation): Add
autoload cookie.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use x-show-tooltip-timeout in all the implementations
+
+ * src/haikufns.c (Fx_show_tip): Use the timeout variable.
+ * src/pgtkfns.c (Fx_show_tip): Ditto.
+
+ * src/w32fns.c (Fx_show_tip): Ditto.
+
+ * src/xfns.c (Fx_show_tip): Doc fix.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't hard code the default x-show-tip timeout
+
+ * src/xfns.c (Fx_show_tip): Use it.
+ (syms_of_xfns): Add a new x-show-tooltip-timeout variable
+ (bug#23341).
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move the when-let family of macros to subr.el
+
+ * lisp/subr.el (internal--build-binding)
+ (internal--build-bindings): Moved from subr-x.el and rewritten to
+ not use the threading macro.
+ (if-let*, when-let*, and-let*, if-let, when-let): Moved from
+ subr-x.el. This avoids breaking the build every time somebody
+ uses these macros in functions that end up being called during
+ bootstrap.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid using if-let in subr.el
+
+ * lisp/subr.el (string-lines): Avoid using if-let (from subr-x) in
+ subr (bug#55194).
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the xref--button-map more regular
+
+ * lisp/progmodes/xref.el (xref--button-map): Remove the mouse-1
+ binding (bug#35353).
+
+2022-04-30 Jin Choi <jsc@alum.mit.edu> (tiny change)
+
+ Make Python evaluation work more reliably
+
+ * lisp/progmodes/python.el (python-shell-buffer-substring): Make
+ more regions valid Python code (bug#55174).
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Fix some cases of flicker on MS Windows
+
+ * src/w32term.c (w32_read_socket): Fix typo in check before
+ flipping buffers.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Truncate output from grep
+
+ * doc/emacs/building.texi (Compilation): Document it.
+ * lisp/progmodes/compile.el (compilation-max-output-line-length):
+ New user option (bug#44983).
+ (compilation-filter): Use it.
+ (compilation--insert-abbreviated-line): New function.
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make grep-mode-font-lock-keywords more efficient
+
+ * lisp/progmodes/grep.el (grep-mode-font-lock-keywords): Make the
+ regexp less greedy so that long lines don't take forever to
+ font-lock (bug#44983).
+
+2022-04-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a KEEP-NEWLINES argument to string-lines
+
+ * doc/lispref/strings.texi (Creating Strings): Document it.
+
+ * lisp/subr.el (string-lines): Add a KEEP-NEWLINES argument.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Fix display updating inside the minibuffer on MS Windows
+
+ * src/minibuf.c (read_minibuf): Call `w32_flip_buffers_if_dirty'
+ after changing the cursor position and redisplaying instead of
+ `flush_frame'. (bug#55193)
+
+ * src/w32term.c (w32_flip_buffers_if_dirty): New function.
+ * src/w32term.h: Update prototypes.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Avoid server roundtrip on wheel events from scroll bars on XI2
+
+ * src/xterm.c (handle_one_xevent): Translate coordinates for
+ scroll bars correctly when handling XI2 wheel events.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ * admin/CPP-DEFINES: Update for new features.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Process editres events not for frames correctly
+
+ * src/xterm.c (handle_one_xevent): Dispatch Editres events to
+ interested widgets.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Adjustments to double buffering on MS Windows
+
+ * src/w32fns.c (w32_set_inhibit_double_buffering): Add comment
+ describing double buffering.
+ (w32_wnd_proc): Respect `w32-disable-double-buffering'.
+ (globals_of_w32fns): New variable
+ `w32-disable-double-buffering'.
+
+ * src/w32term.c (w32_show_back_buffer): Return immediately if
+ double buffering is disabled on the frame.
+ (w32_scroll_run): Use old scrolling code if
+ `w32-disable-double-buffering' is enabled.
+ (w32_scroll_bar_clear): Document why we don't clear scroll bars
+ when double buffering is enabled.
+ (w32_read_socket): Respect `w32-disable-double-buffering' and
+ clean up some code.
+
+ * src/w32xfns.c (get_frame_dc): Respect
+ `w32-disable-double-buffering'.
+
+2022-04-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix use of kp-decimal in 'vhdl-stutter-mode'
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-electric-period): Avoid
+ signaling an error when the user presses the kp-decimal key on the
+ numeric pad in 'vhdl-stutter-mode'. (Bug#55079)
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Handle exposure in the widget's expose proc on X
+
+ * src/widget.c (emacsFrameClassRec): Don't inherit expose proc.
+ (get_default_char_pixel_size):
+ (pixel_to_char_size):
+ (char_to_pixel_size):
+ (round_size_to_char):
+ (EmacsFrameInitialize):
+ (EmacsFrameRealize):
+ (EmacsFrameResize): Clean up coding style.
+ (EmacsFrameExpose): New function. Expose the frame here to
+ satisfy the toolkit when it calls the expose proc by hand.
+
+ * src/xterm.c (handle_one_xevent): Handle exposure through the
+ widget instead.
+
+2022-04-30 Po Lu <luangruo@yahoo.com>
+
+ Fix releasing the mouse on top of the tool bar on MS Windows
+
+ * src/w32term.c (w32_read_socket): Don't handle tool bar clicks
+ specially for button up events if no tool bar item was
+ previously pressed.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Fix palette freeing on MS Windows with double buffering
+
+ * src/w32term.c (w32_release_paint_buffer): Also release target
+ DC palette.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Implement double buffering on MS Windows
+
+ * etc/NEWS: Announce changes.
+ * src/w32fns.c (w32_set_inhibit_double_buffering): New function.
+ (w32_wnd_proc):
+ (Fx_create_frame):
+ (w32_create_tip_frame): Set `inhibit-double-buffering' parameter.
+ (w32_frame_parm_handlers): Add new handler.
+
+ * src/w32term.c (w32_show_back_buffer):
+ (w32_release_paint_buffer): New functions.
+ (w32_frame_up_to_date): Show back buffer if applicable.
+ (w32_buffer_flipping_unblocked_hook): New hook.
+ (w32_scroll_run): Use BitBlt to scroll instead of window
+ scrolling functions.
+ (w32_scroll_bar_clear): Don't clear scroll bars when double
+ buffered.
+ (w32_read_socket): Flip buffers after reading input events in
+ some cases.
+ (w32_free_frame_resources): Free back buffer.
+ (w32_create_terminal): Add new hook.
+
+ * src/w32term.h (struct w32_output): New fields for handling
+ back buffers.
+ * src/w32xfns.c (select_palette): Fix indentation.
+ (get_frame_dc, release_frame_dc): Return back buffer when
+ appropriate and set dirty flag.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Prevent cursors from being set on tooltip frames on Haiku
+
+ * src/haikuterm.c (haiku_show_hourglass, haiku_hide_hourglass)
+ (haiku_define_frame_cursor, haiku_toggle_invisible_pointer):
+ Ignore tooltip frames. Otherwise, the cursor changes every time
+ a tooltip is mapped.
+
+2022-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ debug-early: Print bytecode in a more manageable way
+
+ * lisp/emacs-lisp/debug-early.el (debug-early-backtrace):
+ Escape newlines to and bytecodes to make backtraces slightly more
+ readable. Use `cl-prin1` when available.
+
+2022-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add
`symbol-with-pos`
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Fix focus reversion of Motif menus on XI2
+
+ * src/xmenu.c (create_and_show_popup_menu): Stop setting input
+ focus on the menu window.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse face bugs on Motif
+
+ * src/xterm.c (handle_one_xevent): Fix handling LeaveNotify
+ events from Motif menus.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Check display when handling XdndFinished events
+
+ * src/xterm.c (handle_one_xevent): Check that the display is
+ actually the one we want before finishing DND.
+
+2022-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ CL types: Accept both `byte-code-function` and `compiled-function`
+
+ `type-of` returns `compiled-function` for bytecode functions, but the
+ predicate for those objects is called `byte-code-function-p`,
+ So accept both `compiled-function` and `byte-code-function` as type
+ names for those objects.
+
+ * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types):
+ Add `byte-code-function`.
+ * lisp/emacs-lisp/cl-macs.el (byte-code-function, compiled-function,
subr):
+ New types.
+
+2022-04-29 Juri Linkov <juri@linkov.net>
+
+ * test/lisp/replace-tests.el (query-replace-tests): Add more tests
(bug#54733)
+
+ (perform-replace-tests): New tests.
+ (perform-replace--run-tests): New function.
+ (perform-replace-tests): New test function.
+
+2022-04-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify window-char-pixel-* code slightly
+
+ * lisp/window.el (window-char-pixel-width)
+ (window-char-pixel-height): Simplify code slightly.
+
+2022-04-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Explain effects of setting a zero-width fringe
+
+ * lisp/fringe.el (fringe-mode): Not non-obvious effects of setting
+ a fringe to zero width.
+
+2022-04-29 Titus von der Malsburg <malsburg@posteo.de>
+
+ Add new functions for computing character metrics for windows
+
+ * doc/lispref/display.texi (Size of Displayed Text): Document the
+ char functions.
+ * doc/lispref/windows.texi (Window Sizes): Document
+ window-max-characters-per-line.
+
+ * lisp/window.el (window-char-pixel-width)
+ (window-char-pixel-height)
+ (window-max-characters-per-line): New functions (bug#19395).
+
+2022-04-29 Pip Cet <pipcet@gmail.com>
+
+ Make timer_check even more resilient
+
+ * src/keyboard.c (timer_check): Inhibit atimers while making the
+ copy of the timer list (bug#21380). This prevents an extremely
+ unlikely segfault.
+
+2022-04-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid binding mouse-1 in xref when mouse-1 doesn't follow links
+
+ * lisp/progmodes/xref.el (xref--button-map): Avoid binding mouse-1
+ when `mouse-1-click-follows-link' is nil (bug#35353).
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Fix colorspace calculations on Haiku
+
+ * src/haiku_support.cc (be_get_display_planes)
+ (be_get_display_color_cells): Handle grayscale basic colorspaces
+ correctly.
+ (be_is_display_grayscale): New function.
+
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikufns.c (haiku_set_no_accept_focus, haiku_iconify_frame)
+ (Fxw_display_color_p, Fxw_color_values, Fx_display_grayscale_p):
+ Actually handle grayscale colorspaces.
+ (Fx_display_pixel_width, Fx_display_pixel_height)
+ (Fx_display_mm_height, Fx_display_mm_width): Clean up coding
+ style.
+ (Fx_display_visual_class): Handle grayscale colorspaces.
+ (syms_of_haikufns): New defsyms.
+
+2022-04-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add helper function to remove title bar when maximizing frames
+
+ * lisp/frame.el (toggle-frame-maximized): Mention it.
+ (frame-hide-title-bar-when-maximized): New function (bug#31968).
+ Adapted from code by Jonathan Kyle Mitchell.
+
+ * src/window.c (syms_of_window): Mention it.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Handle IO errors when creating Motif drag window
+
+ * src/xterm.c (xm_drag_window_io_error_handler): New function.
+ (xm_get_drag_window): Use that as the IO error handler when the
+ temporary display is open.
+
+2022-04-29 Po Lu <luangruo@yahoo.com>
+
+ Fix file name selection conversion on Haiku
+
+ * lisp/term/haiku-win.el (haiku-normal-selection-encoders):
+ Register new encoder.
+ (haiku-select-encode-file-name): New function.
+
+2022-04-28 Po Lu <luangruo@yahoo.com>
+
+ Remove some unneeded tests from the X double buffering code
+
+ * src/xterm.c (x_flip_and_flush): Fix coding style.
+ (flush_dirty_back_buffer_on): Avoid testing for impossible
+ situations.
+
+2022-04-28 Po Lu <luangruo@yahoo.com>
+
+ Cancel DND correctly during display disconnect on a different display
+
+ * src/xterm.c (x_dnd_io_error_handler): New function.
+ (x_connection_closed): Send the messages to cancel DND if a
+ different display was disconnected.
+
+2022-04-28 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (XTflash): Check return value of pselect.
+
+2022-04-28 Eugene Ha <eha@posteo.de> (tiny change)
+
+ Find libgccjit.dylib on Homebrew Macos
+
+ * configure.ac: Also find libggcjit on Homebrew (bug#55173).
+
+2022-04-28 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify byte compiler etc. on org-compat, org-macs
+
+ Byte-compiler problem reported by Lars Ingebrigtsen in:
+ https://lists.gnu.org/r/emacs-devel/2022-04/msg01256.html
+ * lisp/org/org-compat.el (org-at-table.el-p):
+ Now declared in org-table, not org.
+ (org-string-collate-lessp): Define the ersatz
+ org-string-collate-lessp with the same API as the primary form, to
+ pacify check-declare-file when run on org-macs.
+ * lisp/org/org-macs.el (org-time-convert-to-integer): Declare.
+
+2022-04-28 Paul Eggert <eggert@cs.ucla.edu>
+
+ Change current-time back to list form
+
+ Change current-time and related functions back to using the
+ traditional list form. Also, add a new boolean variable
+ current-time-list that lets people try out (TICKS . HZ) form,
+ with the goal of smoothing the transition.
+ * src/timefns.c (CURRENT_TIME_LIST): Change default back to true.
+ (current-time-list): New boolean Lisp variable, which defaults to
+ CURRENT_TIME_LIST. All uses of CURRENT_TIME_LIST changed to
+ use current_time_list, and all documentation changed.
+
+2022-04-28 Paul Eggert <eggert@cs.ucla.edu>
+
+ Document \807 etc. in raw byte display
+
+ * doc/emacs/display.texi (Display Custom): Mention potential
+ confusion in raw byte display.
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Kill off more Gnus buffers on Gnus exit
+
+ * lisp/gnus/gnus.el (gnus-kill-buffer): Make into function;
+ there's no reason this should be a macro.
+
+ * lisp/gnus/nntp.el (nntp-make-process-buffer): Ensure that we
+ kill these buffers on Gnus exit (bug#55167).
+
+2022-04-28 Sam Steingold <sds@gnu.org>
+
+ Add Sefirot to Omer counting
+
+ * lisp/calendar/cal-hebrew.el (diary-hebrew-omer-sefirot): New variable.
+ (diary-hebrew-omer): Use it to show the sefirot.
+
+2022-04-28 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ # Conflicts:
+ # lisp/progmodes/xref.el
+
+2022-04-28 Stefan Kangas <stefan@marxist.se>
+
+ Add tests for image-supported-file-p
+
+ * test/lisp/image-tests.el (image-type-from-file-name): Suppress
+ obsoletion warnings for test.
+ (image-supported-file-p/built-in)
+ (image-supported-file-p/optional)
+ (image-supported-file-p/unsupported-returns-nil): New tests.
+
+2022-04-28 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/finder.el (finder-mode-map): Use defvar-keymap.
+
+2022-04-28 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of font- and face-related attribute functions
+
+ * lisp/faces.el (face-attribute):
+ * src/xfaces.c (Fx_family_fonts):
+ * src/font.c (Ffont_get, Ffont_put): Improve and clarify the doc
+ strings.
+
+ * doc/lispref/display.texi (Low-Level Font): Document the :type
+ attribute of a font. Improve documentation of 'font-get' and
+ 'font-put'.
+ (Attribute Functions): Add cross-reference to the description of
+ face attributes.
+
+2022-04-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/nadvice.el: Fix bug#55149
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow inserting and selecting binary blobs from sqlite
+
+ * doc/lispref/text.texi (Database): Document how to insert binary
+ data.
+ * src/sqlite.c (bind_values): Bind BLOB columns correctly (bug#54591).
+
+2022-04-28 Po Lu <luangruo@yahoo.com>
+
+ Simplify buffer flipping code on Haiku
+
+ * src/haikuterm.c (flush_dirty_back_buffers): Delete function.
+ (haiku_flush_dirty_back_buffer_on): New function.
+ (haiku_read_socket): Use that instead of looping over each frame
+ at the end.
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document dired-keep-marker-copy more
+
+ * doc/emacs/dired.texi (Operating on Files): Mention
+ dired-keep-marker-copy.
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve dired-do-copy doc string
+
+ * lisp/dired-aux.el (dired-do-copy): Mention the
+ `dired-keep-marker-copy' variable in the doc string (bug#21746).
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document the non-effect of narrowing on get-text-property
+
+ * doc/lispref/text.texi (Examining Properties): Document
+ surprising non-effect of narrowing (bug#16413).
+
+ * src/textprop.c (Ftext_properties_at, Fget_text_property):
+ Mention narrowing.
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add comment to linum-mode about being old
+
+ * lisp/linum.el (linum-mode): Link to display-line-numbers-mode
+ (bug#34639).
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix `g' in *grep* after `A' in Dired
+
+ * lisp/dired-aux.el (dired-do-find-regexp): Allow `g' to work in
+ the resulting grep buffer by not being destructive (bug#55157).
+
+2022-04-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix another help-fns--insert-menu-bindings parsing problem
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): Fix keymap
+ traversal when elements are symbols.
+
+2022-04-28 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_term_init): Fix the non-GTK3 XI2 build.
+
+2022-04-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Revert previous change in test/Makefile.in
+
+ * test/Makefile.in (test_template): Revert previous change, it isn't
needed.
+
+2022-04-28 Eli Zaretskii <eliz@gnu.org>
+
+ Fix handling of proportional fonts on MS-Windows
+
+ * src/xfaces.c (Fx_family_fonts): Consider fonts whose :spacing
+ value is numeric, but still indicates that they are proportional,
+ to be proportional.
+
+ * lisp/textmodes/artist.el (artist-mode): Fix test for monospaced
+ fonts.
+
+2022-04-28 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK build
+
+ * src/xrdb.c (x_load_resources): Fix definitions of `helv'.
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Stop overriding default Motif colors with our own
+
+ * src/xrdb.c (x_load_resources): Instead of specifying the Motif
+ defaults manually, let Motif set them itself. This makes
+ palettes provided by color servers work again.
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Handle display disconnects during DND
+
+ * src/xterm.c (handle_one_xevent): Keep track of the display the
+ drop target is on during DND finish.
+ (x_connection_closed, x_delete_terminal): Handle display
+ disconnects during DND correctly.
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Fix target display checks during Motif DND
+
+ * src/xterm.c (handle_one_xevent): Check that the Motif DND
+ completion message is actually from the right display before
+ proceeding.
+
+2022-04-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ src/xdisp.c: Use same test in `redisplay_window` and `prepare_menu_bars`
+
+ This consolidates the test made in those two functions so as to make
+ sure they agree whether a window needs to be redisplayed.
+ At the same time, change this test so it uses the window's point
+ rather than the buffer's point when comparing to `w->last_point`.
+
+ * src/xdisp.c (needs_no_redisplay): New function, extracted from
+ `redisplay_window`.
+ (redisplay_window, prepare_menu_bars): Use it.
+
+ * src/window.c (window_point): New function, extracted from
`Fwindow_point`.
+ (Fwindow_point): Use it.
+ * src/window.h (window_point): Declare it.
+
+2022-04-27 Sean Whitton <spwhitton@spwhitton.name>
+
+ New user option 'calc-kill-line-numbering'
+
+ * lisp/calc/calc.el (calc-kill-line-numbering): New defcustom.
+ * lisp/calc/calc-yank.el (calc-kill): Unless calc-kill-line-numbering
+ is non-nil, do not include line numbering in copied text (bug#55133).
+ * etc/NEWS:
+ * doc/misc/calc.texi (Killing from the Stack): Document the change.
+
+2022-04-27 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: "linux" style: set indent-tabs-mode to t
+
+ * lisp/progmodes/cc-styles.el (c-style-alist): Add the setting of
+ indent-tabs-mode to "linux" style.
+
+2022-04-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve tramp-test46-read-password
+
+ * test/lisp/net/tramp-tests.el (tramp-test46-read-password): Add a
+ further check.
+
+2022-04-27 Eli Zaretskii <eliz@gnu.org>
+
+ Emulate 'clock' for MS-Windows
+
+ * src/w32.c (sys_clock): New function. (Bug#44674)
+ * nt/inc/ms-w32.h (clock): Redirect to sys_clock.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-M-x' use the original value of print-length while evalling
+
+ * lisp/progmodes/elisp-mode.el (elisp--eval-defun): Eval the form
+ with the original values of print-level and print-length
+ (bug#135).
+
+2022-04-27 Ken Brown <kbrown@cornell.edu>
+
+ Implement system_process_attributes on Cygwin
+
+ * src/sysdep.c (system_process_attributes) [CYGWIN]: Implement,
+ using the /proc filesystem. The code is identical to the
+ GNU/Linux code except for the 'ttname' attribute. (Bug#55153)
+
+ * etc/NEWS: Mention the change.
+
+2022-04-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Add new function current-cpu-time
+
+ * doc/lispref/os.texi (Time of Day): Document it.
+ * src/timefns.c (Fcurrent_cpu_time): New function (bug#44674).
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change parameter order for string-edit functions
+
+ * lisp/textmodes/string-edit.el (string-edit)
+ (read-string-from-buffer): Rework the function arguments so that
+ they're more similar to `read-string'. Rename symbols throughout
+ the file from help-text to prompt.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add autoload cookies to string-edit
+
+ * lisp/textmodes/string-edit.el (string-edit)
+ (read-string-from-buffer): Autoload.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some typos in the recent holidays change
+
+ * lisp/calendar/holidays.el (holiday-available-holiday-lists): Fix
+ typos.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Give better error message in dired-toggle-read-only on nonexisting dirs
+
+ * lisp/dired.el (dired-toggle-read-only): Refuse to edit
+ non-existent directories (bug#23276).
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename holiday-lists to holiday-available-holyday-lists
+
+ * lisp/calendar/holidays.el (holiday-available-holyday-lists):
+ Give holiday-lists a better name.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Separate out the holiday lists into its own function
+
+ * lisp/calendar/holidays.el (holiday-lists): Separated out into
+ its own function so that it can be altered (bug#55140).
+ (list-holidays): Use it.
+
+2022-04-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Make test/Makefile more robust
+
+ * test/Makefile.in (test_template): Do not fails if corresponding
+ source file doesn't exist.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add an instruction header line to string-edit
+
+ * lisp/textmodes/string-edit.el (string-edit): Add a header line
+ with instructions.
+
+2022-04-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make isearch respond to 'mouse-yank-at-point'
+
+ * doc/emacs/killing.texi (Secondary Selection): Document it.
+ * lisp/isearch.el (isearch-mouse-2): Make isearch respond to
+ mouse-yank-at-point (bug#7787).
+
+ * lisp/mouse.el (mouse-yank-at-point): Mention it.
+
+2022-04-27 Tomasz Hołubowicz
<45176912+alternateved@users.noreply.github.com> (tiny change)
+
+ Add out-of-box support for purescript lsp server
+
+ * eglot.el (eglot-server-programs): Support purescript lsp.
+ * README.md: Update.
+ * NEWS.md: Update.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/905
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Cleanups to PGTK code
+
+ * src/pgtkfns.c (pgtk_explicitly_set_name, pgtk_set_tab_bar_lines)
+ (pgtk_change_tab_bar_height, pgtk_set_child_frame_border_width)
+ (pgtk_set_internal_border_width, pgtk_set_cursor_type)
+ (pgtk_set_mouse_color, pgtk_set_override_redirect, xg_set_icon)
+ (pgtk_frame_parm_handlers, Fpgtk_set_monitor_scale_factor)
+ (pgtk_set_scroll_bar_default_width, pgtk_get_focus_frame)
+ (pgtk_hide_tip, Fx_show_tip, Fx_hide_tip, frame_geometry)
+ (syms_of_pgtkfns): Clean up coding style and delete incorrect
+ comments that mostly duplicate what is in xfns.c, and fix
+ comment coding style. Also rename functions from `x_' to
+ `pgtk_'.
+
+ * src/pgtkterm.c (pgtk_setup_relief_colors): Fix relief caching
+ with new flag.
+ (pgtk_draw_relief_rect, flip_cr_context, pgtk_wait_for_map_event)
+ (pgtk_make_frame_visible, pgtk_make_frame_invisible)
+ (pgtk_set_parent_frame, pgtk_draw_glyph_string_foreground)
+ (pgtk_draw_composite_glyph_string_foreground)
+ (pgtk_draw_glyphless_glyph_string_foreground)
+ (pgtk_set_clip_rectangles, pgtk_draw_glyph_string_bg_rect)
+ (pgtk_draw_image_foreground, pgtk_draw_image_glyph_string)
+ (pgtk_draw_stretch_glyph_string, pgtk_draw_glyph_string)
+ (pgtk_copy_bits, pgtk_bitmap_icon, pgtk_define_fringe_bitmap)
+ (pgtk_show_hourglass, pgtk_flash, pgtk_send_scroll_bar_event)
+ (pgtk_free_pixmap, set_opacity_recursively, frame_highlight)
+ (frame_unhighlight, pgtk_toggle_invisible_pointer)
+ (pgtk_create_terminal, pgtk_window_is_of_frame_recursive)
+ (pgtk_window_is_of_frame, pgtk_any_window_to_frame)
+ (pgtk_handle_draw, size_allocate, pgtk_enqueue_string)
+ (key_press_event, motion_notify_event): Fix coding style and
+ some minor bugs.
+
+ * src/pgtkterm.h (struct pgtk_output): New field for tracking
+ relief color status, update prototypes.
+
+2022-04-27 João Távora <joaotavora@gmail.com>
+
+ Ensure non-null :settings param in didchangeconfiguration notif
+
+ * eglot.el (eglot-signal-didChangeConfiguration): Use eglot--{}
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/936
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Remove some unnecessary code
+
+ * src/haiku_support.cc (class EmacsView, AfterResize)
+ (SetUpDoubleBuffering): Remove `cspace' field since it's always
+ RGBA32.
+
+2022-04-27 Juri Linkov <juri@linkov.net>
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): Don't highlight
heading.
+
+2022-04-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use org-time-convert-to-integer instead of by hand
+
+ * lisp/org/org-macs.el (org-file-newer-than-p):
+ Don’t assume list-format timestamps, by using
+ org-time-convert-to-integer instead of doing it by hand.
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Fix quitting application from the Deskbar on Haiku
+
+ * lisp/term/haiku-win.el (handle-save-session): Kill Emacs
+ afterwards.
+
+2022-04-27 Po Lu <luangruo@yahoo.com>
+
+ Add simple session management support to Haiku
+
+ * lisp/term/common-win.el (emacs-save-session-functions): Move
+ from x-win.el to common-win.el.
+ * lisp/term/haiku-win.el (haiku-save-session-reply)
+ (emacs-session-save, handle-save-session): New functions.
+ * lisp/term/x-win.el (emacs-save-session-functions): Delete.
+
+ * src/haiku_font_support.cc (font_style_to_flags):
+ * src/haiku_support.h (enum haiku_font_weight): Turn weight
+ macros into enum.
+ (struct haiku_font_pattern): Likewise.
+ (struct haiku_session_manager_reply): New struct.
+ * src/haiku_io.c (haiku_io_init): Create sm port.
+ * src/haiku_support.cc (QuitRequested): Wait for reply from sm
+ port.
+ * src/haikufns.c (Fhaiku_save_session_reply): New function.
+ (syms_of_haikufns): Define new subr.
+ * src/haikuterm.c (haiku_read_socket): Send session management
+ events.
+ (haiku_term_init): Check new port.
+
+2022-04-27 Paul Eggert <eggert@cs.ucla.edu>
+
+ Avoid change to desktop file format
+
+ * lisp/desktop.el (desktop--get-file-modtime): New function.
+ (desktop-save, desktop-read): Use it.
+
+2022-04-26 Paul Eggert <eggert@cs.ucla.edu>
+
+ Be more compatible with older desktops
+
+ * lisp/desktop.el (desktop-save): When comparing timestamps use
+ time-equal-p instead of ‘equal’.
+
+2022-04-26 Po Lu <luangruo@yahoo.com>
+
+ Clean up pointer blanking code
+
+ * src/xterm.c (XTtoggle_invisible_pointer): Dispatch to correct
+ function directly.
+ (x_probe_xfixes_extension): Return directly based on dpyinfo.
+ (xfixes_toggle_visible_pointer): Make conditional on
+ `HAVE_XFIXES'.
+ (make_invisible_cursor): Initialize `c' correctly.
+ (x_toggle_visible_pointer): Handle cursor allocation failures.
+ (x_free_frame_resources): Dispatch with
+ XTtoggle_visible_pointer.
+ (x_setup_pointer_blanking): Delete function.
+ (x_term_init): Initialize blank cursor here instead.
+ * src/xterm.h (struct x_display_info): New field
+ `fixes_pointer_blanking'.
+
+2022-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ nadvice.el: Auto-generate the doc describing the "how" arg
+
+ * lisp/emacs-lisp/nadvice.el (advice--make-how-alist): New macro.
+ (advice--how-alist): Use it.
+ (nadvice--make-docstring): New function.
+ (add-function, advice-add): Use it to auto-generate the table
+ describing the accepted values for `how`.
+
+2022-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ nadvice.el: Use OClosures
+
+ * lisp/emacs-lisp/nadvice.el (advice): New OClosure type.
+ (advice--how-alist): Make it hold prototype OClosures rather
+ than bytecode strings.
+ (advice--bytecodes): Delete var.
+ (advice--where): Make it an obsolete alias of new `advice--how`.
+ (oclosure-interactive-form, cl-print-object) <advice>: New methods.
+ (advice--make-1): Delete function.
+ (advice--make): Use `advice-copy` and `advice-cons`.
+ (advice--tweak): Use `advice-cons`.
+ (add-function, advice-add): Rename `where` arg to `how`.
+
+ * lisp/emacs-lisp/cl-print.el (cl-print-object) <:extra "nadvice">:
+ Remove now-redundant ad-hoc method.
+
+ * test/lisp/emacs-lisp/nadvice-tests.el (advice-test-print): New test.
+
+2022-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ nadvice.el: Rename "where" to "how"
+
+ * lisp/emacs-lisp/nadvice.el (advice--how-alist): Rename from
+ `advice--where-alist`.
+ (advice--how): Rename from `advice--where` and keep obsolete alias.
+ (add-function, advice-add): Rename `where` arg to `how`.
+ * lisp/emacs-lisp/cl-print.el (cl-print-object): Use `advice--how` name.
+
+2022-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Use `advice--cd*r` where applicable
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--function-signature):
+ * lisp/emacs-lisp/advice.el (ad-get-orig-definition):
+ * lisp/help.el (help-function-arglist): Use `advice--cd*r`.
+
+2022-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Pretty print OClosure slot accessors
+
+ * lisp/emacs-lisp/oclosure.el (oclosure--accessor-cl-print): New
function.
+ * lisp/emacs-lisp/cl-print.el (cl-print-object) <accessor>: New method.
+ * test/lisp/emacs-lisp/nadvice-tests.el
(advice-test-call-interactively):
+ Avoid `defun` within a function.
+
+2022-04-26 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix gnus-html-image-cache-ttl FIXME
+
+ * lisp/gnus/gnus-html.el (gnus-html-image-cache-ttl):
+ Make it a seconds count.
+
+2022-04-26 Alex Schroeder <alex@gnu.org>
+
+ Fix error in rcirc for IRC tags without values
+
+ * src/lisp/net/rcirc.el (rcirc-process-server-response-1): If the
+ optional value for a tag is not present, do not call
+ replace-regexp-in-string on it. If (match-string 2 tag) is
+ nil, the STRING argument for the replace-regexp-in-string is nil,
+ which results in an error.
+
+2022-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ New generic function `oclosure-interactive-form`
+
+ It's used by `interactive-form` when it encounters an OClosure.
+ This lets one compute the `interactive-form` of OClosures
+ dynamically by adding appropriate methods.
+ This does not include support for `command-modes` for Oclosures.
+
+ * lisp/simple.el (oclosure-interactive-form): New generic function.
+
+ * src/data.c (Finteractive_form): Delegate to
+ `oclosure-interactive-form` if the arg is an OClosure.
+ (syms_of_data): New symbol `Qoclosure_interactive_form`.
+ * src/eval.c (Fcommandp): Delegate to `interactive-form` if the arg is
+ an OClosure.
+
+ * src/lisp.h (VALID_DOCSTRING_P): New function, extracted from
+ `store_function_docstring`.
+ * src/doc.c (store_function_docstring): Use it.
+
+ * lisp/kmacro.el (kmacro): Don't carry any interactive form.
+ (oclosure-interactive-form) <kmacro>: New method, instead.
+
+ * test/lisp/emacs-lisp/oclosure-tests.el (oclosure-interactive-form)
+ <oclosure-test>: New method.
+ (oclosure-test-interactive-form): New test.
+
+ * doc/lispref/commands.texi (Using Interactive):
+ Document `oclosure-interactive-form`.
+
+2022-04-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention caveats in the map-delete doc string
+
+ * lisp/emacs-lisp/map.el (map-delete): Mention how this has to be
+ used for lists (bug#25929).
+
+2022-04-26 Po Lu <luangruo@yahoo.com>
+
+ Fix EWMH window activation
+
+ * src/xterm.c (x_ewmh_activate_frame): Add missing fields of
+ message. (bug#55122)
+
+2022-04-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak interactive use of delete-windows-on
+
+ * lisp/window.el (delete-windows-on): Make prompting better, and
+ allow specifying only the current frame interactively (bug#34749).
+
+2022-04-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C RET' work in archive-mode
+
+ * lisp/arc-mode.el (archive-copy-file): Fix the default value
+ (when the user hits RET) (bug#55123).
+
+2022-04-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make new menu *Help* output be more resilient
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): Only insert
+ the heading if it turns out that we actually find the menu.
+ (help-fns--insert-bindings): Tweak calling convention.
+
+2022-04-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option flymake-mode-line-lighter
+
+ * doc/misc/flymake.texi (Customizable variables): Document it.
+
+ * lisp/progmodes/flymake.el (flymake-mode-line-lighter): New user
+ option (bug#55115).
+ (flymake--mode-line-title): Use it.
+
+2022-04-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve documentation for t value for reusable-frames
+
+ * doc/lispref/windows.texi (Buffer Display Action Alists): Note
+ that the t value is rarely a good one (bug#55103).
+
+2022-04-26 Po Lu <luangruo@yahoo.com>
+
+ Fix event mask of activation client message
+
+ * src/xterm.c (x_alloc_lighter_color):
+ (x_get_scale_factor): Minor formatting fixes.
+ (x_ewmh_activate_frame): Fix event mask used to send message to
+ the root window.
+
+2022-04-25 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_scroll_run): Only flush GC if really necessary.
+
+2022-04-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix Ruby indentation with double splat as first block param
+
+ * lisp/progmodes/ruby-mode.el (ruby-smie--forward-token)
+ (ruby-smie--backward-token): Tokenize "**" separately from "|".
+ Problem reported at https://github.com/dgutov/robe/issues/136.
+
+2022-04-25 Po Lu <luangruo@yahoo.com>
+
+ Cache relief colors on Haiku since their computation is expensive
+
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame):
+ Clear `relief_background'.
+ * src/haikuterm.c (haiku_calculate_relief_colors): Cache relief
+ colors for each frame.
+ * src/haikuterm.h (struct haiku_output): New fields for caching
+ the last relief color.
+
+2022-04-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify misc/test-custom-opts
+
+ * lisp/gnus/gnus-html.el (gnus-html-image-cache-ttl):
+ Also allow it to be a cons of integers.
+
+2022-04-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic.el: Upcase formal args in `C-h o`
+
+ Try and improve the display of methods in `C-h o` by moving
+ the qualifiers to a separate line and upcasing the formal args.
+ It still needs love, tho.
+
+ * lisp/emacs-lisp/cl-generic.el: Upcase formal args in `C-h o`
+ (cl--generic-upcase-formal-args): New function.
+ (cl--generic-describe): Use it.
+
+2022-04-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use (TICKS . HZ) for current-time etc.
+
+ * src/timefns.c (CURRENT_TIME_LIST): Change default to false.
+ All documentation changed.
+
+2022-04-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Support (encode-time (list s m h D M Y))
+
+ * src/timefns.c (Fencode_time): Add support for a 6-elt list arg.
+ Requested by Max Nikulin for Org (bug#54764).
+ * test/src/timefns-tests.el (encode-time-alternate-apis): New test.
+
+2022-04-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change the display of menu bindings in *Help*
+
+ * lisp/help-fns.el (help-fns--insert-menu-bindings): New function
+ to describe menu entries more fully (bug#52870).
+ (help-fns--key-bindings): Use it.
+
+2022-04-25 Glenn Morris <rgm@gnu.org>
+
+ Fix type of word-wrap-whitespace-characters
+
+ * lisp/textmodes/word-wrap-mode.el (word-wrap-whitespace-characters):
+ Fix type.
+
+2022-04-25 Alan Third <alan@idiocy.org>
+ Po Lu <luangruo@yahoo.com>
+
+ Fix nsmenu compilation under macOS 10.6
+
+ * src/nsmenu.m ([EmacsMenu fillWithWidgetValue:]): Replace modern
+ shorthand dictionary and array definitions.
+ * src/nsterm.h (NSTextAlignmentRight): Redefine if necessary.
+ * src/macfont.m (mac_font_create_preferred_family_for_attributes):
+ isOperatingSystemAtLeastVersion is new in macOS 10.10, so it's
+ probably wrong to use it to check whether we're below 10.9.
+ (mac_font_copy_default_descriptors_for_language):
+ (mac_font_copy_default_name_for_charset_and_languages): It seems these
+ functions are only used on macOS 10.8 and below.
+ * src/nsterm.m ([NSColor colorUsingDefaultColorSpace]): Use the
+ generic colorspace.
+ (ns_parent_window_rect):
+ (ns_frame_scale_factor):
+ ([EmacsWindow setParentChildRelationships]): Fix macOS version stuff.
+
+2022-04-25 Karl Fogel <kfogel@red-bean.com>
+
+ Update bookmark sort indicator at proper time
+
+ This follows up to my commit 8b071c77b0d7 of 2022-04-24. Thanks to
+ Manuel Giraud <manuel@ledu-giraud.fr> for reporting the buglet.
+
+2022-04-25 Po Lu <luangruo@yahoo.com>
+
+ Make default Haiku tool bar color match system preferences
+
+ * lisp/faces.el (tool-bar): Use system bar color as the default
+ tool-bar background color on Haiku.
+
+2022-04-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move the Incremental Search menu one menu up
+
+ * lisp/menu-bar.el (menu-bar-search-menu): Move the Incremental
+ Search from the Search menu...
+ (menu-bar-edit-menu): ... one step up (bug#43308).
+
+2022-04-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Protect against the host name containing an alpha character
+
+ * src/filelock.c (lock_file_1, current_lock_owner): Protect
+ against the unlikely case that the host name contains an alpha
+ character (bug#14250).
+
+2022-04-25 Michael Albinus <michael.albinus@gmx.de>
+
+ Add test for Tramp password handling
+
+ * lisp/net/tramp.el (tramp-error-show-message-timeout): New defvar.
+ (tramp-error-with-buffer, tramp-user-error): Use it.
+
+ * test/lisp/net/tramp-tests.el (tramp-error-show-message-timeout):
+ Set it to nil.
+ (tramp-test46-read-password): New test.
+ (tramp-test47-auto-load, tramp-test47-delay-load)
+ (tramp-test47-recursive-load, tramp-test47-remote-load-path)
+ (tramp-test48-unload):
+ * test/lisp/net/tramp-archive-tests.el (tramp-archive-test47-auto-load)
+ (tramp-archive-test47-delay-load): Rename.
+
+2022-04-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make flymake-show-buffer-diagnostics error out in non-Flymake buffers
+
+ * lisp/progmodes/flymake.el (flymake-show-buffer-diagnostics):
+ Signal an error if run outside of a buffer with Flymake enabled
+ (bug#55097).
+
+2022-04-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up some string-edit.el strings
+
+ * lisp/textmodes/string-edit.el (string-edit)
+ (read-string-from-buffer): Make doc strings use dynamic key
+ bindings.
+ (string-edit): Fix message at the end.
+
+2022-04-25 Po Lu <luangruo@yahoo.com>
+
+ Delete some unused functions on Haiku
+
+ * src/haiku_support.cc (haiku_current_workspace)
+ (BWindow_workspaces):
+ * src/haiku_support.h: Remove unused functions and prototypes.
+
+2022-04-25 Po Lu <luangruo@yahoo.com>
+
+ Get rid of autorelease warnings during building on GNUstep
+
+ * src/emacs.c (decode_env_path):
+ * src/nsfns.m (ns_appkit_version_str):
+ * src/nsterm.m (ns_term_shutdown): Setup autorelease when
+ objects might be autoreleased during building.
+
+2022-04-25 Po Lu <luangruo@yahoo.com>
+
+ * src/nsfns.m (Fns_list_colors): Fix autoreleasing.
+
+2022-04-24 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.3-3-gd54104
+
+2022-04-24 Po Lu <luangruo@yahoo.com>
+
+ Set last user time during drag-and-drop
+
+ * src/xterm.c (XTmouse_position): Set last user time if
+ track-mouse is drag-source or dropping.
+
+2022-04-24 Po Lu <luangruo@yahoo.com>
+
+ Fix 32-bit Haiku build
+
+ * src/haiku_support.h (be_get_ui_color): Fix prototype.
+
+2022-04-24 Eli Zaretskii <eliz@gnu.org>
+
+ Improve indexing in "Programmed Completion"
+
+ * doc/lispref/minibuf.texi (Programmed Completion): Improve
+ indexing. (Bug#55095)
+
+2022-04-24 Karl Fogel <kfogel@red-bean.com>
+
+ Improve sorting in the bookmark list buffer
+
+ - Ensure that the bookmark bmenu buffer sorts when it should.
+ - Sort case-insensitively and by locale-dependent collation order.
+ - Rename "Bookmark" column to "Bookmark Name".
+ - Coordinate that column's sort toggle and `bookmark-sort-flag'.
+ - Document the new behavior.
+
+ * lisp/bookmark.el (bookmark-bmenu--name-predicate,
+ bookmark-bmenu--type-predicate, bookmark-bmenu--file-predicate): Use
+ `string-collate-lessp' with IGNORE-CASE argument, instead of plain
+ `string<'.
+ (bookmark-bmenu--revert): Sort based on `bookmark-sort-flag'.
+ (bookmark-bmenu-mode): Document the new behavior. Rename the
+ "Bookmark" column to "Bookmark Name" for clarity & documentabilty.
+
+2022-04-24 Aleksandr Vityazev <avityazev@posteo.org>
+
+ Fix typo in cl.texi example
+
+ * doc/misc/cl.texi (Argument Lists): Fix typo (bug#55092).
+
+2022-04-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use `C-c C-k' instead of `C-c C-d' to abort in string-edit
+
+ * lisp/textmodes/string-edit.el (string-edit-mode-map): Use `C-c
+ C-k' to abort.
+
+2022-04-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further help-fns--editable-variable fixes
+
+ * lisp/help-fns.el (help-fns--editable-variable): Don't bug out on
+ non-symbols.
+
+2022-04-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Provide help when doing (shell-command "... &") on buffer collisions
+
+ * lisp/simple.el (shell-command--same-buffer-confirm): New
+ function (bug#13649).
+ (shell-command): Use it to provide fuller help.
+
+2022-04-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function `read-string-from-buffer'.
+
+ * doc/lispref/minibuf.texi (Text from Minibuffer): Document it.
+ * lisp/textmodes/string-edit.el: New file.
+
+2022-04-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow 'C-u C-h .' to describe button/widgets
+
+ * doc/emacs/help.texi (Help Summary): Document it.
+ * lisp/help-at-pt.el (display-local-help): Display button/widget
+ help (bug#54963).
+
+2022-04-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that the global sql-buffer variable is set
+
+ * lisp/progmodes/sql.el (sql-product-interactive): Set the
+ expected global value of sql-buffer (bug#55088).
+
+2022-04-24 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'set-fontset-font'
+
+ * doc/lispref/display.texi (Fontsets):
+ * src/fontset.c (Fset_fontset_font): Improve and clarify the
+ documentation of 'set-fontset-font'. Rename the arguments to be
+ more self-explanatory. (Bug#55086)
+
+2022-04-24 Po Lu <luangruo@yahoo.com>
+
+ * lisp/term/haiku-win.el (x-colors): Also update with system colors.
+
+2022-04-24 Po Lu <luangruo@yahoo.com>
+
+ Allow looking up window system colors on Haiku
+
+ * lisp/help-fns.el (help-fns--editable-variable): Fix describing
+ variables which don't have symbol values.
+ * lisp/term/haiku-win.el (haiku-allowed-ui-colors): Set list of
+ allowed UI colors.
+ * src/haiku_support.cc (be_get_ui_color): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (haiku_get_color): Look for defined UI color.
+ (syms_of_haikufns): New defvar `haiku-allowed-ui-colors'.
+ * src/haikuterm.c (haiku_term_init): Fix coding style.
+
+2022-04-23 Po Lu <luangruo@yahoo.com>
+
+ Fix disabling double buffering on Haiku
+
+ * src/haikufns.c (haiku_set_inhibit_double_buffering): Garbage
+ frame correctly after changing double buffering.
+ * src/haikuterm.c (haiku_calculate_relief_colors)
+ (haiku_draw_relief_rect, haiku_draw_underwave): Clean up coding
+ style.
+
+2022-04-23 Po Lu <luangruo@yahoo.com>
+
+ Speed up color cache lookup on X
+
+ * src/xterm.c (x_hash_string_ignore_case): New function.
+ (x_parse_color): Turn color cache into a hash table.
+ (x_term_init): Allocate color cache.
+ (x_delete_display): Free color cache correctly.
+ * src/xterm.h (struct x_display_info): Turn color cache into a
+ hash table and add appropriate fields.
+
+2022-04-23 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: New alignment function c-lineup-argcont-+
+
+ This fixes bug #21409.
+
+ * lisp/progmodes/cc-align.el (c-lineup-argcont-1): New function, mainly
+ extracted from c-lineup-argcont.
+ (c-lineup-argcont): Refactored to use the new function above.
+ (c-lineup-argcont-+): New function.
+
+ * doc/misc/cc-mode.texi (Operator Line-Up): Add a new piece for
+ c-lineup-argcont-+.
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ NEWS copy editing
+
+ Fix elc.gz loading test some more
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a failing test case for bug#12598
+
+ Author:
+
+2022-04-23 Juri Linkov <juri@linkov.net>
+
+ Allow not clearing the echo area
+
+ * doc/lispref/display.texi (Displaying Messages): Document it.
+ * lisp/minibuffer.el (clear-minibuffer-message): Return nil.
+
+ * src/xdisp.c (clear_message): Respect the dont-clear-message
+ value.
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't have help-fns--editable-variable override link buttons
+
+ * lisp/help-fns.el (help-fns--editable-variable): Don't override
+ link buttons (bug#40774).
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention the case of the result in the try-completion doc string
+
+ * src/minibuf.c (Ftry_completion): Mention the case of the results
+ (bug#39484).
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make elisp-flymake-byte-compile clean up on failures
+
+ * lisp/progmodes/elisp-mode.el (elisp-flymake-byte-compile): Clean
+ up no matter what the exit status of the process is (bug#55056).
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't make a header if the user hasn't specified columns in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable):
+ (make-vtable): Store whether the user has specified the columns.
+ (vtable-insert): Don't insert a header line or a header if the
+ user hasn't specified the columns (bug#55075).
+
+2022-04-23 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Fix prompts in sql-get-login again
+
+ * lisp/progmodes/sql.el (sql-get-login-ext): Use prompt-def
+ everywhere.
+ (sql-get-login): Revert previous fix (bug#52546).
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-04-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new minor mode word-wrap-whitespace-mode
+
+ * doc/emacs/display.texi (Visual Line Mode): Document it.
+ * lisp/textmodes/word-wrap-mode.el: New minor mode.
+
+2022-04-23 Po Lu <luangruo@yahoo.com>
+
+ Fix key navigation of Lucid menus on XI2
+
+ * src/xmenu.c (popup_get_selection): Fix cookie claiming of
+ input extension events.
+ (Fx_menu_bar_open_internal): Use right timestamps on XI2.
+ * src/xterm.c (handle_one_xevent): Dispatch XI2 key events via
+ Xt when popup is active.
+
+2022-04-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix problem with Solaris ls in Tramp
+
+ * lisp/net/tramp-sh.el (tramp-sunos-unames): Move up.
+ (tramp-sh--quoting-style-options): Handle erroneous Solaris ls.
+
+2022-04-22 Po Lu <luangruo@yahoo.com>
+
+ Avoid unnecessary calculations when handling button events during DND
+
+ * src/xterm.c (handle_one_xevent): Only calculate DND grab for
+ button release events.
+
+2022-04-22 Po Lu <luangruo@yahoo.com>
+
+ Avoid clearing splash screen message during DND on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Respect any_help_event_p
+ when sending help events for DND.
+
+2022-04-22 Alan Mackenzie <acm@muc.de>
+
+ Byte compiler: Prevent special forms' symbols being replaced by bare
symbols
+
+ These are symbols with position from source code, which should not be
replaced
+ by bare symbols in, e.g., optimization functions.
+
+ * lisp/Makefile.in: (BYTE_COMPILE_FLAGS, compile-first case): Set
+ max-specpdl-size to 5000 for the benefit of lisp/emacs-lisp/comp.el.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker)
+ (byte-optimize--rename-var, byte-optimize-if, byte-optimize-letX)
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-recurse-toplevel)
+ (byte-compile-lambda)
+ * lisp/emacs-lisp/cconv.el (cconv-convert)
+ * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Preserve, e.g.,
(car
+ form) in the byte compiler, when this form's car is a symbol with
position of
+ a special form, rather than replacing the symbol with a bare symbol,
e.g.
+ 'cond.
+
+2022-04-22 Alan Mackenzie <acm@muc.de>
+
+ Byte compiler: correct output warning message positions (part 2)
+
+ A supplementary commit to that on 2022-04-18:
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--first-symbol-with-pos):
Handle
+ vectors and records correctly.
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--ssp-seen): Correct the doc
string.
+
+2022-04-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further doc string quoting fixes
+
+ * test/lisp/progmodes/cperl-mode-tests.el (cperl--run-test-cases):
+ * lisp/simple.el (undo-equiv-table):
+ * lisp/shell.el (shell-mode):
+ (shell-mode):
+ * lisp/recentf.el (recentf-mode):
+ * lisp/org/ob-table.el (org-sbe):
+ * lisp/net/eudc.el (eudc-rfc5322-cctext-token):
+ * lisp/mail/ietf-drums-date.el (ietf-drums-date--slot-ranges):
+ * lisp/faces.el (color-luminance-dark-limit):
+ * lisp/erc/erc.el (erc-tls):
+ * lisp/emacs-lisp/pcase.el (pcase-setq): Further quoting fixes in
+ doc strings.
+
+2022-04-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Audit quoting the quote character in doc strings
+
+ * test/src/regex-emacs-tests.el (regex-tests-compare):
+ (regex-tests-compare):
+ (regex-tests-match):
+ * test/lisp/xml-tests.el (xml-parse-tests--qnames):
+ * test/lisp/mh-e/mh-thread-tests.el (mh-thread-tests-before-from):
+ * test/lisp/cedet/srecode-utest-template.el (srecode-utest-map-reset):
+ * test/lisp/calc/calc-tests.el (calc-tests-equal):
+ * lisp/window.el (get-lru-window):
+ (get-mru-window):
+ (get-largest-window):
+ (quit-restore-window):
+ (display-buffer):
+ * lisp/vc/vc-rcs.el (vc-rcs-consult-headers):
+ * lisp/url/url-auth.el (url-digest-auth-build-response):
+ * lisp/tutorial.el (tutorial--find-changed-keys):
+ * lisp/transient.el (transient-suffix-object):
+ * lisp/textmodes/rst.el (rst-insert-list-new-item):
+ * lisp/textmodes/bibtex.el (bibtex-clean-entry):
+ * lisp/tab-bar.el (tab-bar--key-to-number):
+ (toggle-frame-tab-bar):
+ * lisp/ses.el (ses-recalculate-cell):
+ (ses-define-local-printer):
+ (ses-prin1):
+ * lisp/progmodes/xref.el (xref--find-ignores-arguments):
+ * lisp/progmodes/verilog-mode.el (verilog-single-declaration-end):
+ * lisp/progmodes/tcl.el (tcl-mode-hook):
+ * lisp/progmodes/gdb-mi.el (gdb-get-buffer-create):
+ * lisp/progmodes/elisp-mode.el (elisp--xref-make-xref):
+ * lisp/play/dunnet.el (dun-room-objects):
+ * lisp/outline.el (outline--cycle-state):
+ * lisp/org/ox-publish.el (org-publish-find-property):
+ * lisp/org/ox-html.el (org-html--unlabel-latex-environment):
+ * lisp/org/org-table.el (org-table-collapse-header):
+ * lisp/org/org-plot.el (org--plot/prime-factors):
+ * lisp/org/org-agenda.el (org-agenda--mark-blocked-entry):
+ (org-agenda-set-restriction-lock):
+ * lisp/org/ob-lua.el (org-babel-lua-read-string):
+ * lisp/org/ob-julia.el (org-babel-julia-evaluate-external-process):
+ (org-babel-julia-evaluate-session):
+ * lisp/org/ob-core.el (org-babel-default-header-args):
+ * lisp/obsolete/mouse-sel.el (mouse-select):
+ (mouse-select-secondary):
+ * lisp/net/tramp.el (tramp-methods):
+ * lisp/net/eww.el (eww-accept-content-types):
+ * lisp/net/dictionary-connection.el (dictionary-connection-status):
+ * lisp/minibuffer.el (completion-flex--make-flex-pattern):
+ * lisp/mh-e/mh-mime.el (mh-have-file-command):
+ * lisp/mh-e/mh-limit.el (mh-subject-to-sequence):
+ (mh-subject-to-sequence-threaded):
+ (mh-subject-to-sequence-unthreaded):
+ * lisp/mail/feedmail.el (feedmail-queue-buffer-file-name):
+ (feedmail-vm-mail-mode):
+ * lisp/ls-lisp.el (ls-lisp--sanitize-switches):
+ * lisp/keymap.el (key-valid-p):
+ * lisp/international/ccl.el (ccl-compile-branch-blocks):
+ * lisp/image/image-converter.el (image-convert):
+ * lisp/gnus/spam.el (spam-backend-check):
+ * lisp/gnus/nnselect.el (nnselect-generate-artlist):
+ * lisp/gnus/nnmairix.el (nnmairix-widget-other):
+ * lisp/gnus/message.el (message-mailto):
+ * lisp/gnus/gnus-sum.el (gnus-collect-urls-from-article):
+ * lisp/gnus/gnus-search.el (gnus-search-prepare-query):
+ * lisp/frame.el (frame-size-history):
+ * lisp/eshell/esh-var.el (eshell-parse-variable-ref):
+ * lisp/eshell/em-dirs.el (eshell-expand-multiple-dots):
+ * lisp/erc/erc-backend.el (erc-bounds-of-word-at-point):
+ * lisp/emulation/cua-rect.el (cua--rectangle-operation):
+ * lisp/emacs-lisp/text-property-search.el
(text-property-search-forward):
+ * lisp/emacs-lisp/package.el (package-desc-suffix):
+ * lisp/emacs-lisp/faceup.el (faceup-test-explain):
+ * lisp/emacs-lisp/comp.el (comp-curr-allocation-class):
+ (comp-alloc-class-to-container):
+ (comp-add-cstrs):
+ (comp-remove-type-hints-func):
+ (batch-byte+native-compile):
+ * lisp/emacs-lisp/cl-macs.el (cl--optimize):
+ * lisp/elec-pair.el (electric-pair--syntax-ppss):
+ * lisp/doc-view.el (doc-view-doc-type):
+ * lisp/cedet/semantic/symref.el (semantic-symref-tool-alist):
+ (semantic-symref-hit-to-tag-via-db):
+ (semantic-symref-hit-to-tag-via-buffer):
+ * lisp/cedet/semantic/lex-spp.el (semantic-lex-spp-get-overlay):
+ * lisp/cedet/semantic/java.el (semantic-java-doc-keywords-map):
+ * lisp/cedet/semantic/find.el (semantic-brute-find-tag-by-function):
+ * lisp/cedet/semantic/db.el (semanticdb-project-predicate-functions):
+ * lisp/cedet/semantic.el (semantic-working-type):
+ * lisp/cedet/ede/files.el (ede-flush-directory-hash):
+ * lisp/calc/calc.el (calc--header-line):
+ * lisp/auth-source.el (auth-source-pick-first-password):
+ (auth-source--decode-octal-string):
+ * etc/themes/modus-themes.el (modus-themes--paren):
+ (modus-themes--agenda-habit):
+ * admin/cus-test.el (cus-test-vars-with-changed-state): Fix
+ quoting in doc strings. In code examples, the ' character is
+ quoted with \\=, and regularize 'foo to `foo', and quote strings
+ like "foo" instead of 'foo'.
+
+2022-04-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix map-into doc string example
+
+ * lisp/emacs-lisp/map.el (map-into): Fix quote quoting in example.
+
+2022-04-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-u C-x =' be more verbose about invisible characters
+
+ * lisp/descr-text.el (describe-text-properties-1): Note confusing
+ bits about invisible characters (bug#3400).
+
+2022-04-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow completion-ignore-case to be buffer-local
+
+ * lisp/minibuffer.el (completing-read-default): Use the value of
+ completion-ignore-case from the current buffer (bug#12615).
+
+2022-04-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix problem with (narrow-to-page 1) with point at point-max
+
+ * lisp/textmodes/page.el (forward-page): Make this work more
+ consistently if point is on bol (bug#20663).
+
+2022-04-22 Po Lu <luangruo@yahoo.com>
+
+ Don't transfer window attributes trying to find the XM drag window
+
+ * src/xterm.c (xm_get_drag_window): Select for impossible event
+ mask instead of asking for the window attributes.
+
+2022-04-22 Eli Zaretskii <eliz@gnu.org>
+
+ Another fix for non-ASCII 'overlay-arrow-string'
+
+ * src/xdisp.c (get_overlay_arrow_glyph_row): Fix yet another place
+ that assumed each character is a single byte.
+
+2022-04-22 Po Lu <luangruo@yahoo.com>
+
+ Fix default frame name on Haiku
+
+ * src/haikufns.c (haiku_set_background_color)
+ (haiku_set_cursor_color, haiku_get_pixel, haiku_put_pixel)
+ (haiku_set_internal_border_width)
+ (haiku_set_inhibit_double_buffering)
+ (Fhaiku_mouse_absolute_pixel_position, Fxw_color_defined_p)
+ (Fxw_color_values, Fx_double_buffered_p)
+ (Fx_display_backing_store): Clean up coding style.
+ (haiku_set_name): Use correct default name and don't cons extra
+ string all the time.
+
+ * src/haikuterm.c (haiku_read_socket): Remove unused variable.
+ (haiku_term_init): Set default name.
+ (mark_haiku_display): Mark new field.
+
+ * src/haikuterm.h (struct haiku_display_info): New field
+ `default_name'.
+
+2022-04-21 Po Lu <luangruo@yahoo.com>
+
+ Add an option to disable XI2 for debugging purposes
+
+ * src/xterm.c (handle_one_xevent): Accept resource
+ `disableInputExtension', which means to skip setting up the X
+ input extension.
+
+2022-04-21 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Handle nil BOB button label
+
+ * lisp/net/eudc-bob.el (eudc-bob-make-button): Do not throw error
+ when label is nil.
+
+2022-04-21 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid a redisplay loop when 'overlay-arrow-string' is non-ASCII
+
+ * src/xdisp.c (get_overlay_arrow_glyph_row): Don't assume every
+ character in 'overlay-arrow-string' is one byte long. Reported by
+ Yuri D'Elia <wavexx@thregr.org>.
+
+2022-04-21 Sean Whitton <spwhitton@spwhitton.name>
+
+ New electric forward slash Eshell module
+
+ * lisp/eshell/em-elecslash.el: New file.
+ * etc/NEWS:
+ * doc/misc/eshell.texi (Electric forward slash): Document the module.
+ (Make / electric): Retitle to "Make / more electric", update, add
+ "@noindent", and standardize terminology.
+
+2022-04-21 Sean Whitton <spwhitton@spwhitton.name>
+
+ Bind 'imenu' to 'M-g i' globally
+
+ Another candidate was 'M-s i'. Discussion on emacs-devel has led me
+ to conclude that most people will find 'M-g i' more intuitive and thus
+ easier to memorize.
+
+ * lisp/bindings.el (goto-map): Bind 'imenu' to 'M-g i' globally.
+ * etc/NEWS: Document the change.
+ * doc/emacs/programs.texi (Imenu):
+ * lisp/progmodes/cperl-mode.el: Replace 'M-x imenu' with 'M-g i'.
+
+2022-04-21 Tino Calancha <tino.calancha@gmail.com>
+
+ Respect user-emacs-directory-warning in startup
+
+ * lisp/startup.el (command-line): If user-emacs-directory is not
+ accessible, delay to show a warning until all command line args
+ are processed (bug#25163).
+
+2022-04-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow searching for regexps with a prefix
+
+ * doc/misc/info.texi (Search Index): Mention it.
+
+ * lisp/info.el (Info-find-node): Allow not signalling errors.
+ (Info-apropos-matches): Allow taking a regexp.
+ (info-apropos): Prefix now means looking for a regexp.
+
+2022-04-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix indentation in copy-region-as-kill
+
+ * lisp/simple.el (copy-region-as-kill): Fix indendation.
+
+2022-04-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify cl-incf/decf doc strings
+
+ * lisp/emacs-lisp/cl-lib.el (cl-incf):
+ (cl-decf): Clarify that nil isn't a valid value for X (bug#31715).
+
+2022-04-21 Po Lu <luangruo@yahoo.com>
+
+ * src/haiku_support.cc (gui_abort): Get rid of extern "C" declarations.
+
+2022-04-21 Eli Zaretskii <eliz@gnu.org>
+
+ Add minimum instructions to 'query-replace' commands
+
+ * lisp/vc/vc-dir.el (vc-dir-query-replace-regexp):
+ * lisp/textmodes/reftex-global.el (reftex-query-replace-document):
+ * lisp/progmodes/project.el (project-query-replace-regexp):
+ * lisp/progmodes/etags.el (tags-query-replace):
+ * lisp/progmodes/ebrowse.el (ebrowse-tags-query-replace):
+ * lisp/isearch.el (isearch-query-replace, isearch-occur):
+ * lisp/emulation/viper-cmd.el (viper-query-replace):
+ * lisp/dired-aux.el (dired-do-query-replace-regexp)
+ (dired-do-find-regexp-and-replace):
+ * lisp/progmodes/xref.el (xref-query-replace-in-results):
+ * lisp/replace.el (query-replace, query-replace-regexp)
+ (query-replace-regexp-eval, map-query-replace-regexp): Add minimal
+ instructions for dealing with matches, with a link to the command
+ that shows the full instructions. (Bug#55050)
+
+2022-04-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Link dired-do-find-regexp-and-replace to query-replace
+
+ * lisp/dired-aux.el (dired-do-find-regexp-and-replace): Link to
+ `query-replace' (bug#55050).
+
+2022-04-21 Eli Zaretskii <eliz@gnu.org>
+
+ Unbreak build with MinGW64.
+
+ * src/w32.c (CONSOLE_FONT_INFO): Define only when _WIN32_WINNT is
+ less than _WIN32_WINNT_WINXP, i.e. for building with mingw.org's
+ MinGW.
+
+2022-04-21 Andreas Schwab <schwab@linux-m68k.org>
+
+ gnus: fix %a in topic line
+
+ * lisp/gnus/gnus-topic.el (gnus-topic-insert-topic-line): Also
+ bind `entries'.
+
+2022-04-21 Po Lu <luangruo@yahoo.com>
+
+ Clean up PGTK code some more
+
+ * src/pgtkterm.c (x_alloc_lighter_color): Simplify. Do not try
+ to "allocate" colors, remove unused flag and impossible return
+ value.
+ (pgtk_clear_frame): Remove unused code from NS port and remove
+ incorrect workaround for now-fixed double buffering.
+ (pgtk_make_frame_visible_wait_for_map_event_cb)
+ (x_clear_glyph_string_rect, x_draw_glyph_string_background)
+ (x_draw_glyph_string_foreground)
+ (x_draw_composite_glyph_string_foreground)
+ (x_draw_glyphless_glyph_string_foreground)
+ (x_fill_trapezoid_for_relief, x_erase_corners_for_relief)
+ (pgtk_setup_relief_color, x_draw_relief_rect, x_draw_box_rect)
+ (x_draw_glyph_string_box, x_get_scale_factor)
+ (x_draw_horizontal_wave, pgtk_draw_horizontal_wave)
+ (x_draw_underwave, x_draw_image_relief)
+ (x_draw_glyph_string_bg_rect, x_cr_draw_image)
+ (x_draw_image_foreground, x_draw_image_glyph_string)
+ (x_draw_stretch_glyph_string, pgtk_draw_glyph_string)
+ (x_draw_hollow_cursor, x_draw_bar_cursor, pgtk_draw_window_cursor)
+ (pgtk_cr_draw_image, pgtk_draw_fringe_bitmap, hourglass_cb)
+ (pgtk_show_hourglass, pgtk_redraw_scroll_bars, pgtk_flash)
+ (x_create_toolkit_scroll_bar)
+ (x_create_horizontal_toolkit_scroll_bar, x_scroll_bar_create)
+ (x_scroll_bar_remove, pgtk_set_vertical_scroll_bar)
+ (pgtk_set_horizontal_scroll_bar, pgtk_judge_scroll_bars)
+ (x_new_focus_frame, x_focus_changed, enter_notify_event)
+ (leave_notify_event, focus_in_event, focus_out_event)
+ (pgtk_cr_accumulate_data): Clean up coding style, rename
+ functions copied over from X and modified, and remove duplicate
+ definition of at least one function.
+
+2022-04-21 Po Lu <luangruo@yahoo.com>
+
+ Don't leave xm drag initiator info around
+
+ * src/xterm.c (x_cleanup_drag_and_drop)
+ (x_begin_drag_and_drop): Don't confuse GTK+ 2.x by leaving drag
+ initiator info around after DND completes.
+
+2022-04-21 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ dbb2dd6939 ; Fix wording of "File Notifications" in the ELisp manual
+
+2022-04-20 Po Lu <luangruo@yahoo.com>
+
+ Use a cache on Haiku to avoid constantly reading fonts during font
lookup
+
+ * src/haiku_font_support.cc (struct font_object_cache_bucket):
+ New struct.
+ (language_code_points): Make `int'.
+ (hash_string): New function.
+ (cache_font_object_data, lookup_font_object_data)
+ (font_object_has_chars): New functions.
+ (font_check_wanted_chars, font_check_one_of)
+ (font_check_language): Lookup in cached font object instead.
+ (be_init_font_data, be_evict_font_cache): New functions.
+
+ * src/haiku_support.h (struct haiku_font_pattern): Make
+ `uint32_t's ints instead.
+ * src/haikufont.c (haikufont_apply_registry, syms_of_haikufont):
+ Adjust for those changes.
+
+ * src/haikuterm.c (haiku_frame_up_to_date): Clear font lookup
+ cache every 50 updates.
+
+2022-04-20 Po Lu <luangruo@yahoo.com>
+
+ Make some frame params work on Haiku tooltip frames
+
+ * src/haiku_support.cc (RecomputeFeel): Handle tooltips.
+ (BWindow_set_tooltip_decoration): Use RecomputeFeel instead of
+ setting window feel by hand.
+
+2022-04-20 Paul Eggert <eggert@cs.ucla.edu>
+
+ More encode-time pitfall doc fixes
+
+ * doc/lispref/os.texi (Time Conversion): Improve discussion of
+ encode-time pitfalls based on comments by Max Nikulin (Bug#54764#63).
+
+2022-04-20 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'scheme-indent-function' property
+
+ * lisp/progmodes/scheme.el: Extend and clarify the commentary
+ regarding the 'scheme-indent-function' property of special forms.
+
+2022-04-20 Jean Abou Samra <jean@abou-samra.fr> (tiny change)
+
+ Define indentation behavior for a few more special Scheme forms
+
+ * lisp/progmodes/scheme.el: Define 'scheme-indent-function'
+ property for 'and-let*', 'with-syntax', 'eval-when;, and
+ pattern matching macros. (Bug#55033)
+
+2022-04-20 Po Lu <luangruo@yahoo.com>
+
+ Implement `below' z-group on Haiku
+
+ * src/haiku_support.cc (BWindow_set_z_group): Handle
+ Z_GROUP_BELOW by setting the B_AVOID_FRONT flag.
+
+2022-04-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure forward progress in bibtex-map-entries
+
+ * lisp/textmodes/bibtex.el (bibtex-map-entries): Ensure forward
+ progress (bug#55036).
+
+2022-04-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the outline level in the Emacs NEWS modes
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common): Fix
+ the outline level (bug#54993).
+
+2022-04-20 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix build for --enable-checking=structs
+
+ * src/pdumper.c (dump_subr): Update Lisp_Subr hash after last change
+ of 2022-04-18 "Port struct Lisp_Subr to C99".
+
+2022-04-20 Po Lu <luangruo@yahoo.com>
+
+ Reset Motif DND protocol numbers when writing targets table
+
+ * src/xterm.c (xm_setup_dnd_targets): Set header.protocol to 0
+ when writing table.
+
+2022-04-20 Po Lu <luangruo@yahoo.com>
+
+ Implement `above' z-group on Haiku
+
+ * src/haiku_support.cc (class EmacsWindow): New field `z_group'.
+ (RecomputeFeel): New function.
+ (ParentTo, BWindow_set_override_redirect): Use that instead
+ instead of manually juggling the window feel around.
+ (BWindow_set_z_group): New function.
+
+ * src/haiku_support.h (enum haiku_z_group): New enum.
+ * src/haikufns.c (haiku_set_parent_frame): Clean up coding
+ style.
+ (haiku_set_z_group): New function.
+ (haiku_create_frame): Always set z group after window creation,
+ like on X.
+ (haiku_frame_parm_handlers): Add `haiku_set_z_group'.
+
+2022-04-19 Po Lu <luangruo@yahoo.com>
+
+ Fix enabling menu bar multiple times on Haiku
+
+ * src/haiku_support.cc (FrameResized): Adjust width and height
+ appropriately when sending menu bar resize event.
+ * src/haikufns.c (haiku_set_menu_bar_lines): Don't always reset
+ FRAME_MENU_BAR_LINES and FRAME_MENU_BAR_HEIGHT.
+ * src/haikumenu.c (free_frame_menubar): Clear Haiku menu bar.
+ (set_frame_menubar): Fix coding style.
+ * src/haikuterm.c (haiku_read_socket): Don't adjust height here
+ anymore.
+
+2022-04-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from gnulib
+
+2022-04-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -std=c99 with printf %p
+
+ * src/print.c (print_vectorlike): Assign pointer-to-function
+ to void * before printing it with %p, as the C standard
+ doesn’t bless printing function pointers with %p.
+
+2022-04-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -std=c99
+
+ * src/sysdep.c (system_process_attributes): Use %llu instead of
+ %Lu for sscanf, as %llu is standard and %Lu is not, and the latter
+ can provoke warnings if gcc is used pedantically.
+
+2022-04-19 Po Lu <luangruo@yahoo.com>
+
+ Check for integer overflow when writing Motif targets tables
+
+ * src/xterm.c (xm_setup_dnd_targets): Check for integer overflow
+ when adding list to target table.
+
+2022-04-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous description of fallback order
+
+ * doc/emacs/custom.texi (Specifying File Variables): Document
+ fallback mode order.
+
+2022-04-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document how to specify fallback modes
+
+ * doc/emacs/custom.texi (Specifying File Variables): Document
+ fallback mode order.
+
+2022-04-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix regression with multiple mode: entries in the prop line
+
+ * lisp/files.el (hack-local-variables--find-variables): Use the
+ final mode: line (which is the same as having several mode: bits
+ in the header line.
+
+2022-04-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow several mode: elements in the local variable section
+
+ * etc/NEWS (mode): Fall back on outline-mode in older Emacsen.
+ * lisp/files.el (hack-local-variables--find-variables): Use the
+ final mode: line (which is the same as having several mode: bits
+ in the header line.
+
+2022-04-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Fix GCC warnings when CHECK_LISP_OBJECT_TYPE
+
+ * src/lisp.h (lisp_h_Qni): New macro.
+ (DEFUN): Use it.
+ * src/alloc.c (syms_of_alloc): Use it.
+
+ * src/bytecode.c (Fbyte_code): Fix Lisp_Object/int mixup.
+
+2022-04-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert prompting changes in viper-cmd
+
+ * lisp/emulation/viper-cmd.el (viper-quote-region)
+ (viper-read-string-with-history, viper-query-replace): Revert
+ prompting changes done in 50512e3 -- the way viper prompts in
+ command mode is special (bug#55007).
+
+2022-04-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Be more resilient against invalid headers in mml-generate-mime
+
+ * lisp/gnus/mml.el (mml-generate-mime): Don't bug out when called
+ with invalid headers (bug#55014).
+
+2022-04-19 Philip Kaludercic <philipk@posteo.net>
+
+ Fix handling of intspecs as string by rcirc-define-command
+
+ * rcirc.el (rcirc-define-command): Check if an interactive
+ specification is a string, in which case it was to be wrapped in a
+ list so that the result of its interpretation is passed as the first
+ argument of the command resulting from the macro expansion.
+
+2022-04-19 Po Lu <luangruo@yahoo.com>
+
+ Fix `x-mouse-click-focus-ignore-position' for odd coincidences across
displays
+
+ * src/xterm.c (handle_one_xevent): Save the display alongside
+ the next mouse click timeout.
+ (x_delete_display): Clear that display here if applicable.
+ (x_initialize): Likewise.
+
+2022-04-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix dimensions of console window of restarted Emacs on MS-Windows
+
+ * src/w32.c (get_console_font_size): New function.
+ (w32_reexec_emacs): Call 'get_console_font_size' to set up the
+ dimensions of the restarted Emacs's console window to the same
+ values as that of the original Emacs.
+
+2022-04-19 Po Lu <luangruo@yahoo.com>
+
+ Deal with Motif drag window related races
+
+ * src/xterm.c (xm_drag_window_error_handler): New function.
+ (xm_get_drag_window): If a drag window was created and we have
+ the temp display grabbed, use that instead.
+
+2022-04-19 Po Lu <luangruo@yahoo.com>
+
+ Minor cleanups to Haiku menu code
+
+ * src/haiku_draw_support.cc (BView_SetHighColorForVisibleBell):
+ Delete function.
+ * src/haiku_font_support.cc (BFont_dat): Rename to
+ `BFont_metrics'.
+ * src/haiku_support.cc (DrawContent): Use correct UI color for
+ control text.
+ * src/haiku_support.h (HAIKU_MODIFIER_ALT): Turn into enum.
+ (enum haiku_modifier_specification): New enum.
+ * src/haikufont.c (haikufont_open, haikufont_close): Fix coding
+ style.
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Fix last change for GTK 2
+
+ * src/xfns.c (x_set_alpha_background):
+ * src/xterm.c (x_update_opaque_region): Move some ifdefs around.
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Fix opaque region treatment on GTK 3
+
+ * src/xfns.c (x_set_alpha_background):
+ * src/xterm.c (x_update_opaque_region): Update opaque region for
+ tooltip frames the correct way on GTK.
+
+2022-04-18 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port struct Lisp_Subr to C99
+
+ * src/lisp.h (struct Lisp_Subr): Don’t use an anonymous union,
+ a feature missing from C99 and not supported by older OS X.
+ All uses changed.
+
+2022-04-18 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port module_bignum_count_max to strict C
+
+ * src/emacs-module.c (module_bignum_count_max): Make
+ this a macro, not an enum, since it might not fit into
+ int as C99 requires.
+
+2022-04-18 Sean Whitton <spwhitton@spwhitton.name>
+
+ Tell those using exclusively X not to use the PGTK port
+
+ * INSTALL (Alternative window systems): Tell those using exclusively X
+ not to use the PGTK port.
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Fix display of glyphless characters on Haiku
+
+ * src/haikuterm.c (haiku_draw_glyph_string_foreground): Fix pen
+ size when drawing composite string w/o font.
+ (haiku_draw_glyphless_glyph_string_foreground): Correctly
+ display glyphless character rectangle.
+
+2022-04-18 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use "@code{nil}" in documentation
+
+2022-04-18 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove obsolete footnote
+
+ Emacs no longer warns about timestamps like (1 . 1000).
+
+2022-04-18 Alan Third <alan@idiocy.org>
+
+ Fix glyphless glyph display on NS (bug#54970)
+
+ * src/nsterm.m (ns_draw_glyphless_glyph_string_foreground): New
+ function.
+ (ns_draw_glyph_string): Use the new function.
+ * src/nsfont.m (nsfont_draw): Fix the location the glyphs are drawn,
+ and also which glyphs are drawn.
+ (ns_glyph_metrics): Reverse ascent and descent.
+
+2022-04-18 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements in 'restart-emacs' on MS-Windows
+
+ * src/w32.c (w32_reexec_emacs): Explicitly request a new console
+ for the restarted Emacs -nw, and specify its dimensions. Specify
+ NULL instead of security attributes, per examples on the Internet.
+ * src/w32console.c (initialize_w32_display): Check errors in call
+ to GetConsoleCursorInfo.
+
+2022-04-18 Alan Mackenzie <acm@muc.de>
+
+ Byte compiler: correct output warning message positions
+
+ Correct the algorithm for determining the warning position to get the
first
+ symbol-with-position in byte-compile--form-stack.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--first-symbol-with-pos):
Function
+ renamed and amended from byte-compile--first-symbol.
+ (byte-compile--warning-source-offset): Call the new function above
rather than
+ the old one.
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make isearch-lax-whitespace a user option
+
+ * lisp/isearch.el (isearch-lax-whitespace): Make into a defcustom
+ (bug#20351).
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid hangs in python-mode with debug-on-error set
+
+ * lisp/progmodes/python.el (python-nav-end-of-statement): Avoid
+ using cl-assert here, because this is called from the font-lock
+ machinery, and if debug-on-error is set here, we'll hang Emacs
+ (bug#54996).
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make it easier to use Emacs as a script interpreter
+
+ * doc/emacs/cmdargs.texi (Initial Options): Document -x.
+ * lisp/startup.el (command-line-1): Add new -scripteval.
+ (command-line--eval-script): New function.
+
+ * src/emacs.c (main): Transform -x to -scripteval.
+ (standard_args): Add -x (bug#20682).
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Add missing Motif atoms
+
+ * src/xselect.c (symbol_to_x_atom):
+ (x_atom_to_symbol):
+ (syms_of_xselect): Optimize for XmTRANSFER_SUCCESS and
+ XmTRANSFER_FAILURE as well.
+
+2022-04-18 Alan Mackenzie <acm@muc.de>
+
+ Byte compiler: remove symbol positions from byte-switch tables
+
+ This fixes bug #54990.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Remove positions
from
+ symbols with positions in byte-switch tables, by temporarily removing
the
+ entries from the table, and reinserting them amended.
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up view-emacs-news code
+
+ * lisp/help.el (view-emacs-news): Remove workaround after fixing
+ mode: cookie error.
+
+2022-04-18 Nacho Barrientos <nacho.barrientos@cern.ch> (tiny change)
+
+ Unify local variable initialisation in url-http
+
+ * lisp/url/url-http.el (url-http-chunked-last-crlf-missing): Treat
+ url-http-chunked-last-crlf-missing as any other buffer variable by
+ declaring and initialising it the same way as the other related
+ ones (bug#54989).
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `restart-emacs' work when Emacs is started with --chdir
+
+ * src/emacs.c (find_emacs_executable): Rename from
+ load_pdump_find_executable and always define.
+ (load_pdump): Return the executable.
+ (main): Store the executable.
+ (Fkill_emacs): Use the stored executable so that --chdir works
+ with relative executable names, and so that we attempt to restart
+ the same executable and not some other Emacs from PATH.
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve `restart-emacs' error reporting
+
+ * src/emacs.c (Fkill_emacs): Do better error reporting on restarting.
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make "restart" erroring slightly more reliable
+
+ * src/emacs.c (Fkill_emacs): Use emacs_perror for the "restart"
+ errors -- we've already shut down Emacs at this point, so the
+ normal erroring machinery isn't reliable.
+
+2022-04-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix major-mode setting regression when there's a mode: cookie
+
+ * lisp/files.el (hack-local-variables): Fix regression in setting
+ the major mode when there are mode: cookies in the file (bug#54993).
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Stop skipping ShapeNotify events during DND on GTK+
+
+ * src/xterm.c (handle_one_xevent): Don't skip ShapeNotify events
+ because we can't send these events back to GDK manually.
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Clarify computation of header line vpos
+
+ * src/dispnew.c (update_text_area): Test vpos is more than 1
+ only if is both a tab and header line. Reported by Eli
+ Zaretskii <eliz@gnu.org>.
+
+2022-04-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'restart-emacs' in -nw mode on MS-Windows
+
+ * src/w32.c (openat): #ifdef away: not used.
+ (w32_reexec_emacs): Kludgey solution for restarting Emacs in the
+ "-nw" mode.
+
+2022-04-18 Po Lu <luangruo@yahoo.com>
+
+ Fix glyph skipping optimization when a tab line is enabled
+
+ * src/dispnew.c (update_text_area): Compute vpos of header line
+ correctly when window has tab line.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Minor cleanups to PGTK code
+
+ * src/gtkutil.c (xg_set_geometry):
+ (xg_frame_set_char_size):
+ (x_wm_set_size_hint): Rename to `xg_wm_set_size_hint'. All
+ callers changed.
+ * src/gtkutil.h: Update prototypes.
+ * src/pgtkfns.c (unwind_create_frame):
+ (Fx_create_frame):
+ (compute_tip_xy):
+ * src/pgtkterm.c (x_free_frame_resources):
+ (x_destroy_window):
+ (x_calc_absolute_position):
+ (x_set_offset):
+ (pgtk_set_window_size):
+ (x_display_pixel_height):
+ (x_display_pixel_width):
+ (x_set_parent_frame): Rename `x_foo' functions to `pgtk_foo'.
+ Get rid of some copy-pasted code from various places.
+ (pgtk_create_terminal): Clean up coding style.
+ * src/pgtkterm.h: Update prototypes.
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port sqlite.c to OS X 10.6.8 with Xcode 3.2.6
+
+ Problem reported by Keith David Bershatsky in:
+ https://lists.gnu.org/r/emacs-devel/2022-04/msg00923.html
+ * src/sqlite.c (Fsqlite_open): Don’t assume SQLITE_OPEN_MEMORY
+ is defined.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Fix Haiku menu bars when redisplay happens immediately after activation
+
+ * src/haiku_support.cc (MessageReceived): Make `REPLAY_MENU_BAR'
+ messages synchronous.
+ (be_replay_menu_bar_event): Return whether or not the menu bar
+ really opened.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikumenu.c (haiku_activate_menubar): Immediately activate
+ menu bar after replaying event.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Some minor fixes to Motif DND support
+
+ * src/xterm.c (xm_write_drag_initiator_info): Swap cardinal
+ values if wrong byteorder.
+ (xm_setup_dnd_targets): Read LONG_MAX amount of drag targets.
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Merge from origin/emacs-28
+
+ 65c04e7115 Update to Org 9.5.2-38-g682ccd
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Merge from origin/emacs-28
+
+ 3cccf0a910 Don’t assume openat
+
+2022-04-17 Jim Porter <jporterbugs@gmail.com>
+
+ Fix Eshell predicate tests when running from 'make check'
+
+ * test/lisp/eshell/em-pred-tests.el (eshell-partial-let-func): Get
+ original function after macro-expansion.
+
+2022-04-17 Kyle Meyer <kyle@kyleam.com>
+
+ Update to Org 9.5.2-38-g682ccd
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make desktop.el use local-minor-modes when saving
+
+ * lisp/desktop.el (desktop-buffer-info): Use a more reliable way
+ to get minor modes (bug#29972).
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Don’t assume openat
+
+ Use openat only on platforms with O_PATH.
+ This ports to OS X 10.9 and earlier.
+ Problem reported by Keith David Bershatsky in:
+ https://lists.gnu.org/r/emacs-devel/2022-04/msg00805.html
+ * lib-src/emacsclient.c (local_sockname): Use open, not openat.
+ * src/sysdep.c (sys_openat): New static function,
+ which uses openat only if O_PATH is defined.
+ (emacs_openat): Use it instead of openat.
+ (emacs_openat_noquit): Remove.
+ (emacs_open_noquit): Reimplement as per the old emacs_openat_noquit,
+ but use plain 'open'.
+
+2022-04-17 Eli Zaretskii <eliz@gnu.org>
+
+ Improve the support for the Brahmi script
+
+ * lisp/leim/quail/indian.el ("brahmi"): New input method.
+ * lisp/language/indian.el ("Brahmi"): Add sample-text and
+ input-method. (Bug#54914)
+
+ * etc/NEWS: Mention the brahmi input method.
+ * etc/HELLO: Add a Brahmi greeting.
+
+2022-04-17 kobarity <kobarity@gmail.com> (tiny change)
+
+ Fix fontifying type hints in python-mode
+
+ * lisp/progmodes/python.el
+ (python-font-lock-keywords-maximum-decoration): Avoid fontifying
+ type hints as variable names (bug#54992).
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow editing variable values in *Help* buffers
+
+ * lisp/help-fns.el (help-enable-variable-value-editing): New user
+ option.
+ (describe-variable): Tag values for editing.
+ (help-fns--editable-variable, help-fns-edit-variable): New
+ functions (bug#36826).
+ (help-fns--edit-value-mode-map, help-fns--edit-value-mode)
+ (help-fns-edit-mode-done): New mode and commands.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make :filters run in the correct buffer in describe-buffer-bindings
+
+ * lisp/help.el (describe-map-tree): Take an optional buffer parameter.
+ (describe-map): Ditto, and use it to run `lookup-key' in the
+ correct buffer. This fixes problems of filters being run in the
+ wrong buffer (bug#39149).
+
+ * src/keymap.c (Fdescribe_buffer_bindings): Pass in BUFFER to
+ describe-map-tree.
+
+2022-04-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'restart-emacs' on MS-Windows
+
+ * src/w32.c (w32_reexec_emacs): New function, emulation of
+ 'execvp' on Posix systems.
+ * src/w32.h (w32_reexec_emacs): Add prototype.
+ * src/emacs.c (main) [WINDOWSNT]: Save the original command line
+ and working directory.
+ (Fkill_emacs) [WINDOWSNT]: Call 'w32_reexec_emacs' instead of
+ 'execvp'. (Bug#17036)
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a `restart-emacs' sanity check
+
+ * src/emacs.c (Fkill_emacs): Add a sanity check for argv.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Handle bad actual actions during DND
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Behave correctly when
+ the target gives us a bad atom.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check whether we can restart in Fkill_emacs
+
+ * src/emacs.c (Fkill_emacs): Report an error if we can't restart.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Explain what "pending" means in isearch
+
+ * doc/emacs/search.texi (Regexp Search): Explain what "Pending"
+ usually means (bug#10148).
+
+2022-04-17 Philip Kaludercic <philipk@posteo.net>
+
+ Handle connection errors in rcirc-keepalive
+
+ * rcirc.el (rcirc-reconnect-delay): Declare variable before it is
+ defined.
+ (rcirc-keepalive): Handle rcirc-closed-connection, respecting
+ rcirc-reconnect-delay.
+ (rcirc-closed-connection): Add new error type.
+ (rcirc-send-string): Throw rcirc-closed-connection instead of a
+ generic error.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function `flush-standard-output'.
+
+ * doc/lispref/streams.texi (Output Functions): Document it.
+ * src/print.c (Fflush_standard_output): New function (bug#15180).
+
+2022-04-17 Philip Kaludercic <philipk@posteo.net>
+
+ Further improve buffer-match-p related documentation
+
+ * doc/lispref/buffers.texi (Buffer List): Add entries for
+ buffer-match-p and match-buffers.
+ * etc/NEWS: Give examples for buffer-match-p conditions.
+ * lisp/window.el (display-buffer-assq-regexp): Mention what happens
+ when no entry in the alist satisfies a condition.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new command `restart-emacs'
+
+ * doc/lispref/os.texi (Killing Emacs): Document it.
+
+ * lisp/files.el (save-buffers-kill-emacs): Add new RESTART parameter.
+ (restart-emacs): New function.
+
+ * src/emacs.c (terminate_due_to_signal, Fkill_emacs): Take an
+ optional RESTART parameter.
+
+ * test/lisp/files-tests.el
+ (files-tests-save-buffers-kill-emacs--confirm-kill-processes):
+ * src/xterm.c (x_connection_closed):
+ * src/xsmfns.c (Fhandle_save_session):
+ * src/keyboard.c (Fcommand_error_default_function, command_loop)
+ (command_loop_1, read_menu_command, read_event_from_main_queue)
+ (read_key_sequence, quit_throw_to_read_char):
+ * src/eval.c (process_quit_flag): Adjust Fkill_emacs callers.
+
+2022-04-17 Nacho Barrientos <nacho.barrientos@cern.ch> (tiny change)
+
+ Fix chunked encoding connections in url-http
+
+ * lisp/url/url-http.el
+ (url-http-chunked-encoding-after-change-function): Ensure that chunked
+ encoding is interpreted correctly (bug#54989).
+
+ As per [0], the last chunk of 0 bytes is always accompanied by a last
+ CRLF that signals the end of the message:
+
+ chunked-body = *chunk
+ last-chunk
+ trailer-part
+ CRLF
+ ^ this one
+
+ chunk = chunk-size [ chunk-ext ] CRLF
+ chunk-data CRLF
+ chunk-size = 1*HEXDIG
+ last-chunk = 1*("0") [ chunk-ext ] CRLF
+
+ chunk-data = 1*OCTET ; a sequence of chunk-size octets
+
+ `url-http-chunked-encoding-after-change-function' is able to process
+ (and remove) that terminator IF AVAILABLE in the buffer when
+ processing the response, however it won't wait for it if it's not yet
+ there.
+
+ In other words:
+
+ | Bottom of the response buffer | Bottom of the full response |
+ | (visible to url-http) | (to be delivered to Emacs) |
+ | ------------------------------+-----------------------------|
+ | 0\r\n | 0\r\n |
+ | | \r\n |
+
+ If the last chunk is processed when the bottom of the response buffer
+ is as above (note that the whole response has not yet been delivered
+ to Emacs), url-http will call the user callback without waiting for
+ the final terminator to be read from the socket.
+
+ This is normally not an issue when doing one-shot requests, but it's
+ problematic when the connection is reused immediately. As there are 2
+ bytes from the request N that have not been dealt with, they'll be
+ considered as part of the response of the request N+1. On top, it
+ turns out that when processing the headers of request N+1,
+ `url-http-wait-for-headers-change-function' will consider the request
+ a "headerless malformed response" delivering it broken to the caller.
+
+ The proposed fix implements a state in which
+ `url-http-chunked-encoding-after-change-function` properly waits for
+ the very last element of the message preventing the problem explained
+ above from happening.
+
+ For additional context, this bug was found when debugging
+ magit/ghub (see [1] for details).
+
+ [0] https://datatracker.ietf.org/doc/html/rfc7230#section-4.1
+ [1] https://github.com/magit/ghub/issues/81
+
+2022-04-17 Oleh Krehel <ohwoeowho@gmail.com>
+
+ Remove duplicates from Info-read-node-name-2
+
+ * lisp/info.el (Info-read-node-name-2): Remove duplicates from
+ completions (bug#20365).
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix instructions on how to enable password-store
+
+ * doc/misc/auth.texi (Help for users): Give the correct
+ instructions on how to enable password store (bug#30900).
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify setopt NEWS entry
+
+ Do some NEWS tagging
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a doc string to xref-current-item
+
+ * lisp/progmodes/xref.el (xref-after-jump-hook): Link to it.
+ (xref-current-item): Add a doc string to the now-public variable.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify emacs-news--heading-p logic
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--heading-p):
+ Clarify the logic.
+
+2022-04-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move some entries around in the NEWS file
+
+ Fix up the NEWS entry for emacs-news*-mode
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ * src/filelock.c (Fcreate_lockfiles): Doc string fix.
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Merge from origin/emacs-28
+
+ 4641bc1c55 Fix GC bug in filelock.c
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions waiting for menu bar resize events on Haiku
+
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame):
+ Clear `wait_for_event_type'.
+ (haiku_set_menu_bar_lines): Clean up coding style.
+ * src/haikuterm.c (haiku_wait_for_event): New function.
+ (haiku_read_socket): Implement waiting for MENU_BAR_RESIZE
+ events.
+ * src/haikuterm.h (struct haiku_output): New field
+ `wait_for_event_type'.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Fix race conditions waiting for menu bar resize events on Haiku
+
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame)
+ (haiku_set_menu_bar_lines): Clear `wait_for_event_type'.
+ * src/haikumenu.c (set_frame_menubar): Wait for menu bar resize
+ event.
+ * src/haikuterm.c (haiku_wait_for_event): New function.
+ (haiku_read_socket): Handle waiting for MENU_BAR_RESIZE.
+ * src/haikuterm.h (struct haiku_output): New field
+ `wait_for_event_type'.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Get rid of unused flags on Haiku
+
+ * src/haikufns.c (haiku_free_frame_resources): Syntax fixes.
+ * src/haikumenu.c (set_frame_menubar, run_menu_bar_help_event):
+ * src/haikuterm.c (haiku_read_socket): Stop setting and
+ consulting `menu_up_to_date_p'.
+ * src/haikuterm.h (struct haiku_output): Delete
+ `menu_up_to_date_p'.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (haiku_free_frame_resources): Free saved menu event.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Fix hangs when clicking on Haiku menu bar to activate frame
+
+ * src/haiku_io.c (haiku_len): Handle new event `MENU_BAR_CLICK'.
+ * src/haiku_support.cc (class EmacsWindow): Remove most of the
+ menu bar cv stuff.
+ (MessageReceived): Handle REPLAY_MENU_BAR message.
+ (EmacsWindow_signal_menu_update_complete): Delete function.
+ (be_replay_menu_bar_event): New function.
+
+ * src/haiku_support.h (enum haiku_event_type): New event type
+ `MENU_BAR_CLICK'.
+ (struct haiku_menu_bar_click_event): New struct.
+
+ * src/haikumenu.c (haiku_activate_menubar): New function.
+ * src/haikuterm.c (haiku_read_socket): Save a
+ MENU_BAR_ACTIVATE_EVENT and the menu bar click event instead of
+ handling the menu bar update synchronously.
+ (haiku_create_terminal): Set `activate_menubar_hook'.
+ (syms_of_haikuterm): Remove extraneous newline.
+
+ * src/haikuterm.h (struct haiku_output): New field
+ `saved_menu_event'.
+
+2022-04-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix GC bug in filelock.c
+
+ Fix a bug where if GC occurred at the wrong moment when locking a
+ file, the lock file’s name was trashed so file locking did not work.
+ This bug was introduced in Emacs 28.1. The bug sometimes caused
+ filelock-tests-detect-external-change test failures on Fedora 35
+ x86-64 in an en_US.utf8 locale.
+ * src/filelock.c (lock_file_1, current_lock_owner, lock_if_free)
+ (lock_file, unlock_file, Ffile_locked_p):
+ Use Lisp_Object, not char *, for string, so that GC doesn’t trash
+ string contents.
+ (make_lock_file_name): Return the encoded name, not the original.
+ All callers changed.
+
+2022-04-17 Jim Porter <jporterbugs@gmail.com>
+
+ Add 'G' argument predicate in Eshell
+
+ * lisp/eshell/em-pred.el (eshell-predicate-alist): Add 'G' predicate.
+ (eshell-predicate-help-string): Document it. (Bug#54470)
+
+ * test/lisp/eshell/em-pred-tests.el
+ (em-pred-test/predicate-effective-gid): New test.
+
+ * doc/misc/eshell.texi (Argument Predication): Document 'G' predicate.
+
+2022-04-17 Jim Porter <jporterbugs@gmail.com>
+
+ Add unit tests and documentation for Eshell predicates/modifiers
+
+ * lisp/eshell/esh-cmd.el (eshell-eval-argument): New function.
+ * lisp/eshell/esh-util.el (eshell-file-attributes): Pass original
+ value of FILE to 'file-attributes'.
+ * lisp/eshell/em-pred.el (eshell-predicate-alist): Change socket char
+ to '=', since 's' conflicts with setuid.
+ (eshell-modifier-alist): Fix 'E' (eval) modifier by using
+ 'eshell-eval-argument'. Also improve performance of 'O' (reversed
+ sort) modifier.
+ (eshell-modifier-help-string): Fix documentation of global
+ substitution modifier.
+ (eshell-pred-substitute): Fix infinite loop in some global
+ substitutions.
+ (eshell-join-members): Fix joining with implicit " " delimiter.
+ (Bug#54470)
+
+ * test/lisp/eshell/em-pred-tests.el: New file.
+
+ * doc/misc/eshell.texi (Argument Predication): New section.
+
+2022-04-17 Jim Porter <jporterbugs@gmail.com>
+
+ Add unit tests and documentation for Eshell pattern-based globs
+
+ * lisp/eshell/em-glob.el (eshell-extended-glob): Fix docstring.
+ (eshell-glob-entries): Refer to '**/' in error (technically, '**' can
+ end a glob, but it means the same thing as '*'). (Bug#54470)
+
+ * test/lisp/eshell/em-glob-tests.el: New file.
+
+ * doc/misc/eshell.texi (Globbing): Document pattern-based globs.
+
+2022-04-17 Po Lu <luangruo@yahoo.com>
+
+ Make sure the ftcr font driver is used on Haiku when Cairo is enabled
+
+ * src/haikufont.c (syms_of_haikufont): [USE_BE_CAIRO]: Make sure
+ `ftcr' superseeds `haiku'.
+
+2022-04-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Document encode-time caveats
+
+ * doc/lispref/os.texi (Time of Day, Time Conversion):
+ Move the warnings about DST being -1 to closer to where DST is
+ discussed, and reword and improve the discussions and warnings.
+ Be more precise about years before 1969 (possible west of UTC) vs the
+ Epoch. Mention some problems due to leap seconds, leap years,
+ daylight saving transitions, and time zone changes. Modernize
+ discussion of OS timestamp range. Prefer secular ‘BCE’ to religious
+ ‘BC’. Omit discussion of decoded-time-add and make-decoded-time, as
+ they are in a library and are not always available; instead, mention
+ the library. Warn about common mistakes when doing simple date
+ arithmetic.
+ * src/timefns.c (Fencode_time): In doc string, mention date
+ arithmetic and tighten up the wording a bit.
+
+2022-04-16 Max Nikulin <manikulin@gmail.com>
+
+ Stress difference of new and old ways to call `encode-time'
+
+ * doc/lispref/os.texi (Time Conversion): Add a warning that blind
+ changing of code calling `encode-time' to use single list instead of
+ multiple values may cause deferred bugs since it is common to use nil
+ for ignored arguments such as DST in the old calling convention.
+ * src/timefns.c (encode-time): Mention the warning added to the elisp
+ reference in the docstring.
+
+ Refactoring related to `encode-time' caused (bug#54731), so it is better
+ to make apparent the difference between the recommended and the
+ obsolescent ways to call the function. More details concerning the
+ purpose and limitations of the DST field are added after discussion with
+ Paul Eggert in (bug#54764).
+
+2022-04-16 Po Lu <luangruo@yahoo.com>
+
+ Restore pending_signals at a point in the DND event loop
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Restore
+ pending_signals after unblock_input.
+
+2022-04-16 Earl Hyatt <okamsn@protonmail.com>
+
+ Add basic Texinfo support for Flymake.
+
+ * lisp/textmodes/texinfo.el (texinfo-flymake, texinfo--flymake-proc)
+ (texinfo-mode):
+ Add the functions texinfo-flymake and process variable
+ texinfo--flymake-proc. Modify texinfo-mode to automatically add this
+ function to the hook flymake-diagnostic-functions.
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ d53c999b4a Further vcs-cvs/rcs-responsible-p updates from master
+ dc3d1628ec ; * src/sysdep.c: Fix mistake in previous commit
+ 855e15dbf1 Fix builds on older versions of macOS
+ 9da744e450 Fix documentation of Outline minor mode options
+ a8bb12ab05 Improve discoverability of 'insert-directory-program'
+ 3f166bdf44 ; * etc/PROBLEMS: Describe MS-Windows issues with fonts. ...
+ 803ac857ee Fix cursor motion under truncate-lines with Flymake fringe...
+
+ # Conflicts:
+ # etc/PROBLEMS
+ # lisp/outline.el
+ # src/sysdep.c
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ b201823f63 Describe problems with invoking Python on MS-Windows
+ 880f2734c9 A better fix for bug#54800
+ 5ee959aa87 Add a comment about cl-concatenate
+ ab2b822b9b Revert "Make cl-concatenate an alias of seq-concatenate"
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 5e47d6284b * lisp/gnus/mm-encode.el (mm-default-file-encoding): Fix "...
+ e71c7a7c60 Fix default-directory of buffers visiting files in renamed...
+ cccaa9c31d Fix a kill-append regression
+ 33828e4818 * doc/misc/eww.texi (Advanced): Correct outdated info (bug...
+ e8d2f40f41 Clean up the MSDOS port
+ 338eda09d8 Fix typo in next-error-find-buffer-function
+
+ # Conflicts:
+ # doc/misc/eww.texi
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 84a2857722 Fix scrolling of the stack window in Calc
+ 9dd44505b1 ; * src/window.c (Fset_window_start): Clarify the effect o...
+ 24a6c7c8c0 Update and fix instructions and scripts for updating the W...
+ 886339747b Extend tramp-archive-test45-auto-load
+ ff997ad786 Ensure local `default-directory' in Tramp when needed
+ 4f27588a16 Clarify "idleness" in the ELisp manual
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ aab36e1895 Fix error in tramp-archive-autoload-file-name-handler
+ 11a1f7817e Merge branch 'emacs-28' of git.sv.gnu.org:/srv/git/emacs i...
+ 93974198b6 Commit missing file from previous commit
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 8c71ac606e Fix fallout from lexical-binding in vhdl-mode.el
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't leave `C-h N' in a text-mode derived mode
+
+ * lisp/help.el (view-emacs-news): Use emacs-news-view-mode.
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-view-mode): Split
+ into own mode to avoid confusion.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix button-buffer-map binding error
+
+ * lisp/button.el (button-buffer-map): Fix error in map rewriting
+ in previous commit.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new commands to go to headings/sections in the NEWS file
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news-find-heading)
+ (emacs-news-goto-section): New commands.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add emacs-news-previous-untagged-entry command
+
+ * lisp/textmodes/emacs-news-mode.el
+ (emacs-news-next-untagged-entry): Allow searching backward.
+ (emacs-news-previous-untagged-entry): New command and keystroke.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fold some too-long NEWS lines
+
+ Do some NEWS tagging
+
+ Do some NEWS tagging
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve exif-field discoverability
+
+ * lisp/image/exif.el (exif-parse-file, exif-parse-buffer): Link to
+ `exif-field'.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Do some NEWS tagging
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document project-kill-buffers-display-buffer-list
+
+ * doc/emacs/maintaining.texi (Project Buffer Commands): Mention
+ project-kill-buffers-display-buffer-list.
+
+ * lisp/progmodes/project.el (project-kill-buffers): Link to
+ project-kill-buffers-display-buffer-list.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document prefix to project-find-file
+
+ * doc/emacs/maintaining.texi (Project File Commands): Mention the
+ prefix in the project-find-file command.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix glyphless-display-mode indexing
+
+ * doc/lispref/display.texi (Glyphless Chars): Fix indexing.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document completions-sort
+
+ * doc/emacs/mini.texi (Completion Options): Document completions-sort.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention completion-wrap-movement in relevant commands
+
+ * lisp/simple.el (previous-completion, next-completion): Mention
+ `completion-wrap-movement'.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document minibuffer-completion-auto-choose/M-up/M-down
+
+ * doc/emacs/mini.texi (Completion Commands): Document
+ minibuffer-completion-auto-choose/M-up/M-down.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further IDNA/proxy url fixes
+
+ * lisp/url/url-http.el (url-http-create-request): Puny-encode
+ domains (bug#54921).
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Crosslink some buttonize function doc strings
+
+ * lisp/button.el (buttonize-region, buttonize): Crosslink doc
+ strings for discoverability.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve completion in `C-h R'
+
+ * lisp/info.el (info-display-manual): Use it (bug#54961).
+ (info--filter-manual-names): Filter away duplicates and irrelevant
+ files.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify when mode tagging is used
+
+ * etc/NEWS: Clarify when mode tagging is used (bug#54964).
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further vcs-cvs/rcs-responsible-p updates from master
+
+ * lisp/vc/vc-bzr.el (vc-bzr-responsible-p):
+ * lisp/vc/vc-sccs.el (vc-sccs-responsible-p):
+ * lisp/vc/vc-dav.el (vc-dav-responsible-p): Update doc string.
+
+ * lisp/vc/vc-rcs.el (vc-rcs-responsible-p):
+ * lisp/vc/vc-cvs.el (vc-cvs-responsible-p): Further fixes from
+ master.
+
+ * lisp/vc/vc-src.el (vc-src-responsible-p): Return the directory.
+
+ * lisp/vc/vc.el: Update comments.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make emacs-news-next-untagged-entry push the mark
+
+ * lisp/textmodes/emacs-news-mode.el
+ (emacs-news-next-untagged-entry): Push the mark for easier
+ navigation back to where we were.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix NEWS tag commands
+
+ * lisp/textmodes/emacs-news-mode.el
+ (emacs-news-next-untagged-entry): Fix logic.
+ (emacs-news-count-untagged-entries): Add new command and keystroke.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up emacs-news--buttonize
+
+ * lisp/textmodes/emacs-news-mode.el (emacs-news--buttonize):
+ Remove unnecessary check left over from previous version.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Bind TAB and <backtab> on buttons
+
+ * lisp/button.el (button-map): Inherit from 'button-buffer-map'.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new mode for editing and viewing the Emacs NEWS file
+
+ * etc/NEWS (mode): Use emacs-news-mode.
+ * lisp/help.el (view-emacs-news): Use emacs-news-mode.
+
+ * lisp/textmodes/emacs-news-mode.el: New mode for editing and
+ viewing the Emacs NEWS file.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function buttonize-region
+
+ * lisp/button.el (buttonize-region): New function.
+ (button--properties): Factored out.
+ (buttonize): Use it.
+
+2022-04-16 Po Lu <luangruo@yahoo.com>
+
+ Prevent race conditions with async input during drag-and-drop
+
+ * src/xterm.c (XTread_socket): Don't read events here during
+ drag-and-drop, otherwise the right hold_quit might not be used
+ for selection events.
+
+2022-04-16 Mattias Engdegård <mattiase@acm.org>
+
+ Fix builds on older versions of macOS
+
+ This adds back macOS-specific code replaced earlier (bug#48548),
+ specifically to fix build errors on macOS 10.7.5. See discussion at
+ https://lists.gnu.org/archive/html/emacs-devel/2022-04/msg00779.html .
+
+ * src/sysdep.c (HAVE_RUSAGE_INFO_CURRENT, HAVE_PROC_PIDINFO): New.
+ (system_process_attributes): Use alternative code or exclude features
+ when building on older macOS versions.
+
+ (cherry picked from commit 855e15dbf10a6aac42b860fdb28711f979e2bf22)
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Improve support for the Brahmi script
+
+ * lisp/language/indian.el ("Brahmi"): New language environment.
+ Add composition rules for Brahmi.
+ * lisp/international/fontset.el (script-representative-chars)
+ (setup-default-fontset): Support Brahmi. (Bug#54914)
+
+ * etc/NEWS: Announce the new language environment.
+
+2022-04-16 Mattias Engdegård <mattiase@acm.org>
+
+ Fix builds on older versions of macOS
+
+ This adds back macOS-specific code replaced earlier (bug#48548),
+ specifically to fix build errors on macOS 10.7.5. See discussion at
+ https://lists.gnu.org/archive/html/emacs-devel/2022-04/msg00779.html .
+
+ * src/sysdep.c (HAVE_RUSAGE_INFO_CURRENT, HAVE_PROC_PIDINFO): New.
+ (system_process_attributes): Use alternative code or exclude features
+ when building on older macOS versions.
+
+2022-04-16 Mattias Engdegård <mattiase@acm.org>
+
+ Disable annoying Clang warnings
+
+ * configure.ac (CHECK_LISP_OBJECT_TYPE): Disable
+ -Wimplicit-const-int-float-conversion and -Wint-in-bool-context, which
+ currently only have false positives.
+
+2022-04-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix ODF file detection in doc-view-mode
+
+ * lisp/doc-view.el (doc-view-set-doc-type): Fix ODF file detection
+ (bug#54947).
+
+2022-04-16 Po Lu <luangruo@yahoo.com>
+
+ Fix build with toolkit scroll bars without XI2
+
+ * src/xterm.c (mark_xterm): Fix up ifdefs slightly.
+
+2022-04-16 Po Lu <luangruo@yahoo.com>
+
+ Protect windows from garbage collection when a ClientMessage is pending
+
+ * src/xterm.c (x_protect_window_for_callback)
+ (x_unprotect_window_for_callback): New functions.
+ (x_send_scroll_bar_event): Protect windows from garbage
+ collection before sending event containing pointer to window.
+ (handle_one_xevent): Unprotect after such a ClientMessage is
+ received and the window put in the keyboard buffer.
+ (x_term_init): Initialize protected windows list.
+ (x_delete_display): Free that list.
+ (mark_xterm): Mark the windows in that list.
+ * src/xterm.h (struct x_display_info): New fields for recording
+ a list of protected windows.
+
+2022-04-16 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of Outline minor mode options
+
+ * lisp/outline.el (outline-minor-mode-cycle-filter)
+ (outline-minor-mode-cycle, outline-minor-mode-highlight)
+ (outline-cycle, outline-cycle-buffer): Doc fixes. (Bug#54967)
+
+2022-04-16 Po Lu <luangruo@yahoo.com>
+
+ Add some missing multilingual keys to Haiku
+
+ * src/haiku_support.cc (keysym_from_raw_char): Support keys
+ found on some East Asian keyboards.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Handle errors getting selection ownership when starting DND
+
+ * src/xterm.c (x_clear_dnd_targets): New function.
+ (x_dnd_begin_drag_and_drop): Handle errors in `x_own_selection'.
+
+2022-04-15 Eli Zaretskii <eliz@gnu.org>
+
+ Improve discoverability of 'insert-directory-program'
+
+ * lisp/files.el (insert-directory-program): Mention 'dired' in the
+ doc string.
+ * lisp/dired.el (dired): Mention 'insert-directory-program' in the
+ doc string. (Bug#54962)
+
+2022-04-15 Philip Kaludercic <philipk@posteo.net>
+
+ Improve buffer-match-p documentation
+
+ * doc/lispref/windows.texi (Choosing Window): Document that
+ buffer-match-p is used by display-buffer-alist.
+ * etc/NEWS: Mention buffer-match-p and match-buffers.
+ * lisp/window.el (display-buffer-alist): Update documentation as for
+ display-buffer-assq-regexp.
+ (display-buffer-assq-regexp): Rename buffer-name to buffer-or-name.
+ (display-buffer): Pass the buffer directly to
+ display-buffer-assq-regexp,.
+
+2022-04-15 Troels Henriksen <athas@sigkill.dk> (tiny change)
+
+ Add out-of-box support for futhark lsp server
+
+ * eglot.el (eglot-server-programs): Support futhark lsp.
+ * README.md: Update.
+ * NEWS.md: Update.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/922
+
+2022-04-15 Philip Kaludercic <philipk@posteo.net>
+
+ Add rcirc-cycle-completion-flag
+
+ * doc/misc/rcirc.texi: Document new option.
+ * lisp/net/rcirc.el (rcirc-cycle-completion-flag): Add new option.
+ (rcirc-mode): Respect new option.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Fix default registry of Haiku font backend
+
+ * src/haiku_support.h (struct haiku_zoom_event): Fix coding
+ style.
+ (enum haiku_font_specification): Move FSPECs over here.
+ * src/haikufont.c (haikufont_apply_registry)
+ (haikufont_get_fallback_entity, haikufont_pattern_to_entity)
+ (haikufont_spec_or_entity_to_pattern, haikufont_list): Use
+ `iso10646-1' as the default registry instead of `utf8', which is
+ not a registry.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Enable dragging resizing final column in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-line): Insert the
+ divider after the final column, too, so that the size can be
+ dragged.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Clean up keysyms from Haiku headers
+
+ * src/haiku_support.cc (keysym_from_raw_char): Add keysym
+ numbers here and use those instead.
+ * src/haiku_support.h: Delete all the X11 keysym definitions.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add some mouse-face bits to vtable
+
+ * lisp/emacs-lisp/vtable.el (make-vtable)
+ (vtable--insert-header-line): Put mouse-face on draggable bits.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak sorting indicator placement in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Tweak
+ sorting indicator position.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the sorting indicator prettier in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Place
+ the sorting indicator flush right in the heading.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Fix dismissal of tooltips on Haiku
+
+ * src/haikuterm.c (haiku_mouse_or_wdesc_frame): New argument
+ `accept_tooltip'.
+ (haiku_read_socket): Use it when handling MOUSE_MOTION events.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using faces for colors in vtable
+
+ * doc/misc/vtable.texi (Making A Table): Adjust color documentation.
+ * lisp/emacs-lisp/vtable.el (make-vtable): Mix more.
+ (vtable--compute-colors): Mix both foreground and background colors.
+ (vtable--make-color-face, vtable--face-blend): New functions.
+ (vtable--insert-line): Adjust usage.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow dragging the divider in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable): Add a keymap cache.
+ (make-vtable): Allow dragging the divider.
+ (vtable-insert): Don't put the table keymap over the entire line
+ -- avoid the divider, which has its own keymap.
+ (vtable--drag-resize-column): Adjust to the in-buffer divider
+ dragging.
+
+2022-04-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix off-by-one error in text-property-search-backward
+
+ * lisp/emacs-lisp/text-property-search.el
+ (text-property-search-backward): Fix off-by-one error -- this
+ would result in not finding the previous (non-)match when at the
+ first character in a field.
+
+2022-04-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix cursor motion under truncate-lines with Flymake fringe indicator
+
+ * src/indent.c (Fvertical_motion): Don't consider fringe bitmaps
+ as "images" for the purpose of vertical-motion logic dealing with
+ overshooting buffer positions. (Bug#54946)
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ More PGTK related cleanup
+
+ * src/pgtkfns.c (x_set_foreground_color, x_set_background_color)
+ (x_set_border_color, x_set_cursor_color, x_set_title)
+ (x_set_menu_bar_lines, x_set_tab_bar_lines, x_set_tool_bar_lines)
+ (x_set_child_frame_border_width, x_set_internal_border_width)
+ (x_set_icon_type, x_set_icon_name, x_set_cursor_type)
+ (x_set_mouse_color, x_set_undecorated, x_set_skip_taskbar)
+ (x_set_override_redirect, pgtk_frame_parm_handlers)
+ (Fx_create_frame): Rename most `x_' functions to `pgtk_' ones.
+ All callers changed.
+ * src/pgtkmenu.c (Fx_menu_bar_open_internal): Remove duplicate
+ doc string definition.
+ * src/pgtkterm.c (x_set_offset, pgtk_iconify_frame)
+ (x_set_parent_frame, x_set_no_focus_on_map, x_set_no_accept_focus)
+ (x_set_z_group, x_set_cursor_gc, x_set_mouse_face_gc)
+ (x_set_mode_line_face_gc, x_set_glyph_string_gc)
+ (x_set_glyph_string_clipping, x_set_glyph_string_clipping_exactly)
+ (x_setup_relief_color, x_setup_relief_colors)
+ (x_set_clip_rectangles, x_draw_relief_rect, x_draw_box_rect)
+ (x_draw_glyph_string_box, x_draw_image_relief)
+ (x_draw_image_foreground, x_draw_stretch_glyph_string)
+ (pgtk_draw_glyph_string, x_set_toolkit_scroll_bar_thumb)
+ (x_set_toolkit_horizontal_scroll_bar_thumb)
+ (pgtk_set_vertical_scroll_bar, pgtk_set_horizontal_scroll_bar)
+ (x_set_frame_alpha, frame_highlight, frame_unhighlight)
+ (pgtk_create_terminal, map_event): Rename most `x_' functions to
+ `pgtk_' ones. All callers changed.
+ * src/pgtkterm.h: Update prototypes.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Clean up some extraneous stuff in pgtkfns.c
+
+ * src/pgtkfns.c (Fx_gtk_debug): Fix doc string and remove extra
+ version check.
+ (syms_of_pgtkfns): Delete left over defvar from NS port.
+
+2022-04-15 Philip Kaludercic <philipk@posteo.net>
+
+ Update project-kill-buffer-conditions to match buffer-match-p
+
+ * project.el (project-kill-buffer-conditions): Document the
+ deprecation of the use of derived-mode
+ (project--buffer-check): Have `major-mode' behave like `derived-mode'
+ did previously, and issue a warning of `derived-mode' is used.
+
+2022-04-15 Philip Kaludercic <philipk@posteo.net>
+
+ * window.el (display-buffer-assq-regexp): Use buffer-match
+
+2022-04-15 Philip Kaludercic <philipk@posteo.net>
+
+ Generalise buffer matching from project.el
+
+ * subr.el (buffer-match): Add function to check if a buffer satisfies
+ a condition.
+ (match-buffers): Returns all buffers that satisfy a condition.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Fix core string lookup with modifiers on XI2
+
+ * src/xterm.c (handle_one_xevent): Clean modifiers from
+ xkey.state before giving it to XLookupString.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Clean up various bits of Haiku code
+
+ * src/haiku_font_support.cc (BFont_string_width): Delete unused
+ function.
+ * src/haiku_support.cc (BWindow_new): Clean up type of `view'.
+ (BWindow_quit): Clean up coding style.
+ (BView_mouse_down, BView_mouse_up, BView_mouse_moved): Delete
+ unused functions.
+ (unwind_popup_file_dialog): Clean up coding style.
+ (be_popup_file_dialog_safe_set_target): Delete function.
+ (be_popup_file_dialog): Improve code clarity.
+ * src/haiku_support.h: Fix coding style.
+ * src/haikufns.c (haiku_get_color, haiku_display_info_for_name)
+ (check_haiku_display_info, Fhaiku_read_file_name)
+ (Fx_display_save_under, Fhaiku_frame_restack): Remove references
+ to "Be displays" and replace them with "Haiku displays".
+ * src/haikuselect.h: Clean up coding style.
+ * src/haikuterm.c (haiku_read_socket): Clean up coding style and
+ fix a few latent bugs.
+
+2022-04-15 Po Lu <luangruo@yahoo.com>
+
+ Add missing extern declarations to headers
+
+ * src/xterm.h (xi_device_from_id, xi_frame_selected_for): Add
+ `extern' declaration.
+
+2022-04-14 Po Lu <luangruo@yahoo.com>
+
+ Make Haiku scroll bar behave more like other programs
+
+ * haiku_support.cc (class EmacsScrollBar): New field
+ `repeater_start'.
+ (Pulse): Wait for time to pass repeater_delay.
+ (MouseDown): Set it to the current time + the system repeater
+ delay.
+
+2022-04-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port new tests to leap seconds or (TICKS . HZ)
+
+ * test/lisp/mail/ietf-drums-date-tests.el (ietf-drums-date-tests):
+ Don’t assume leap seconds are ignored, or that timestamps are in
+ (HI LO) format.
+
+2022-04-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ New time-equal-p test
+
+ * test/src/timefns-tests.el (time-equal-p-NaN-NaN): New test.
+
+2022-04-14 Po Lu <luangruo@yahoo.com>
+
+ Properly wait for app thread exit on Haiku
+
+ * src/haiku_support.cc (MessageReceived): Handle
+ QUIT_APPLICATION.
+ (start_running_application): Clean up code a little.
+ (wait_for_exit_of_app_thread): New function.
+ (BApplication_setup): Add atexit handler to clean up app thread.
+ (be_app_quit): Delete function.
+ * src/haikuterm.c (haiku_delete_terminal): Un-implement
+ function.
+ * src/haikuterm.h: Update prototypes.
+
+2022-04-14 Po Lu <luangruo@yahoo.com>
+
+ Fix calls to XKB functions without testing for server support
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop):
+ (x_dnd_begin_drag_and_drop): Never call XkbSelectEvents if the
+ X server doesn't have XKB.
+
+2022-04-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow dragging dividers in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Allow
+ dragging dividers.
+ (vtable--drag-resize-column): Adjust function.
+
+2022-04-14 Eli Zaretskii <eliz@gnu.org>
+
+ Fix mouse clicks in hscrolled window with variable-height fonts
+
+ * src/xdisp.c (move_it_in_display_line_to): Fix calculation of
+ height of a screen-line that is completely hscrolled out of view.
+ Reported by Yasushi SHOJI <yasushi.shoji@gmail.com>.
+
+2022-04-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow resizing vtable columns by dragging
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Allow
+ resizing by dragging headers.
+ (vtable--drag-resize-column): New function.
+ (vtable-narrow-current-column): Refactor out common bits.
+ (vtable--alter-column-width): To here.
+ (vtable-widen-current-column): Rewrite to use
+ vtable-narrow-current-column.
+
+2022-04-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/gnus/gnus.el (toplevel autoloads): Fix file name
+
+ `score-mode` does not define `gnus-score-edit-all-score`, it's defined
+ in `gnus-score` instead.
+
+2022-04-14 Philip Kaludercic <philipk@posteo.net>
+
+ Have submit-emacs-patch prompt for patch file before subject
+
+ * emacsbug.el (submit-emacs-patch): Prompt for patch file and use that
+ to guess the subject.
+
+2022-04-14 Philip Kaludercic <philipk@posteo.net>
+
+ Avoid possibly unnecessary lisp_time_struct call
+
+ * timefns.c (time_cmp): Defer the calculation of the time struct, in
+ case A and B are eq to one another.
+
+2022-04-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Handle non-ASCII domains correctly in url-https-proxy-connect
+
+ * lisp/url/url-http.el (url-https-proxy-connect)
+ (url-https-proxy-after-change-function): Handle IDNA domains
+ correctly.
+
+2022-04-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make vtable remember user-altered column widths
+
+ * lisp/emacs-lisp/vtable.el (vtable-narrow-current-column)
+ (vtable-widen-current-column): Store the size to that it's
+ respected on `g'.
+
+2022-04-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that commands like { work on all frames in vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--recompute-cache)
+ (vtable--ensure-cache): New functions.
+ (vtable-insert): Use it.
+ (vtable--widths): Ditto.
+
+2022-04-14 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ ldap-search-internal cleanup
+
+ * lisp/net/ldap.el (ldap-ldapsearch-args): Change -LL to -LLL to
+ suppress ldif version output.
+ (ldap-search-internal): Remove skipping of version output. Remove
+ redundand ws skipping.
+
+2022-04-14 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Fix eudc-get-attribute-list
+
+ * lisp/net/eudc-vars.el (eudc-ldap-no-wildcard-attributes): New
+ defcustom.
+ * doc/misc/eudc.texi (LDAP Configuration): Mention it.
+ * lisp/net/eudcb-ldap.el (eudc-ldap-format-query-as-rfc1558): Use it.
+ (eudc-ldap-get-field-list): Set scope and sizelimit, instead of
+ overriding the whole ldap-host-parameters-alist.
+ * lisp/net/ldap.el (ldap-search-internal): Allow "size limit exceeded"
+ exit code. Allow empty attribute values.
+
+2022-04-14 Nobuyoshi Nakada <nobu.nakada@gmail.com>
+
+ Fix electric-help-map problem when help-char has meta-prefix
+
+ * lisp/ehelp.el (electric-help-map): Fix problem when help-char
+ has meta-prefix (bug#54932).
+
+2022-04-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make all vc-*-responsible-p functions return a string
+
+ * lisp/vc/vc-sccs.el (vc-sccs-responsible-p):
+ * lisp/vc/vc-rcs.el (vc-rcs-responsible-p):
+ * lisp/vc/vc-dav.el (vc-dav-responsible-p):
+ * lisp/vc/vc-cvs.el (vc-cvs-responsible-p): Return a file name
+ instead of t when we get a match (which is what
+ vc-backend-for-registration expects) (bug#51800).
+
+ This fixes the regression reported in bug#54935.
+
+ Do not merge to master.
+
+2022-04-14 Po Lu <luangruo@yahoo.com>
+
+ Fix races with child frame locks on Haiku
+
+ * src/haiku_support.cc
+ (CHILD_FRAME_LOCK_INSIDE_LOOPER_CALLBACK): New macro.
+ (FrameMoved, WorkspacesChanged): Lock child frame data with that
+ macro instead.
+
+2022-04-14 Po Lu <luangruo@yahoo.com>
+
+ Keep track of keyboard state during drag and drop
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop): Deselect for
+ keyboard state changes.
+ (x_dnd_begin_drag_and_drop): Select for keyboard state changes
+ when XKB is available.
+ (x_dnd_update_state, handle_one_xevent): Use current XKB state
+ if it is available.
+ (x_term_init): Reformat code a little.
+
+2022-04-14 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to menus on XI2
+
+ * src/xfns.c (Fx_create_frame): Populate `xi_masks'.
+ * src/xmenu.c (x_activate_menubar)
+ (create_and_show_popup_menu, x_menu_show): Only clear input
+ extension grabs if we (or the toolkit) actually selected for
+ XI_ButtonPress events.
+ * src/xterm.c (xi_frame_selected_for): New function.
+ (xi_populate_device_from_info, handle_one_xevent): Store device
+ use instead of just whether or not it's a master device.
+ (x_dnd_begin_drag_and_drop): Clean up block_input stuff.
+ * src/xterm.h: Update prototypes.
+ (struct xi_device_t): Rename `master_p' to `use'.
+
+2022-04-14 Eli Zaretskii <eliz@gnu.org>
+
+ Describe problems with invoking Python on MS-Windows
+
+ * etc/PROBLEMS: Describe problems with running an inferior Python
+ interpreter due to the MS-Windows "App Execution Aliases" feature.
+ (Bug#54860)
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Ignore XdndPosition events triggered by the wrong mouse button
+
+ * src/xterm.c (x_dnd_send_position): Don't send if button is set
+ but not a scroll wheel button.
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Add support for Xdnd features introduced after version 5
+
+ * src/xterm.c (x_dnd_send_position, x_dnd_update_state)
+ (handle_one_xevent): Add support for sending button and keyboard
+ state during DND.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix describe-mode--minor-modes formatting issue
+
+ * lisp/help-fns.el (describe-mode--minor-modes): Fix multi-line
+ local-minor paragraph.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make vtable narrow/widen functions take a prefix
+
+ * lisp/emacs-lisp/vtable.el (vtable-narrow-current-column)
+ (vtable-widen-current-column): Allow using the prefix to say how
+ much to narrow/widen the columns.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Copy edit make-vtable code
+
+ * lisp/emacs-lisp/vtable.el (make-vtable): Clean up code slightly.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Edit some vtable doc strings
+
+ * lisp/emacs-lisp/vtable.el (make-vtable, vtable): Improve doc
+ strings.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further divider fixes for vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Don't
+ insert the divider at the end.
+ (vtable-narrow-current-column, vtable-widen-current-column): Don't
+ error out when being called on the divider.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore vtable.texi lines removed by accident
+
+ * doc/misc/vtable.texi (Introduction): Restore lines inadvertently
+ removed.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix dividers in vtable header lines
+
+ * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Put the
+ divider in the correct place in the header line.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow having dividers between columns in vtable
+
+ * doc/misc/vtable.texi (Making A Table): Document it.
+ * lisp/emacs-lisp/vtable.el (vtable): Add a divider slot.
+ (make-vtable): Accept :divider and :divider-width arguments.
+ (vtable--insert-line, vtable--insert-header-line): Display the
+ divider.
+
+2022-04-13 Sean Whitton <spwhitton@spwhitton.name>
+
+ Document additions of cl-with-gensyms and cl-once-only
+
+ * NEWS: Document additions of cl-with-gensyms and cl-once-only.
+ * doc/misc/cl.texi (Macro-Writing Macros): New section.
+ (Creating Symbols): Add to the concept index under the name "gensym".
+ (Obsolete Setf Customization): Use cl-once-only rather than
+ macroexp-let2, and fix a quotation bug in one example.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow putting alternating colors on vtable rows
+
+ * doc/misc/vtable.texi (Making A Table): Document it.
+ * lisp/emacs-lisp/vtable.el (vtable): Add :row-colors.
+ (make-vtable): Ditto.
+ (vtable--compute-colors, vtable--color-blend): New functions.
+ (vtable--insert-line): Take a line number argument and adjust
+ callers.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-h m' actually output the documentation for the major mode
+
+ * lisp/help-fns.el (describe-mode): Get the documentation for the
+ correct major mode.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new `vtable' face
+
+ * doc/misc/vtable.texi (Introduction): Document it.
+
+ * lisp/emacs-lisp/vtable.el (vtable): Add a new face.
+
+2022-04-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/comint.el (comint-dynamic-list-input-ring): Keep replaced text
props.
+
+ * lisp/minibuffer.el (completions-header-format): Remove unused text
prop.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-04-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp manual
+
+ * doc/misc/tramp.texi (Ssh setup): New subsection "Using ssh
+ config include for host name completion". (Bug#54885)
+ Precise, that list-system-processes and process-attributes are
+ about system processes.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for column background colors in vtable
+
+ * doc/misc/vtable.texi (Making A Table): Document it.
+
+ * lisp/emacs-lisp/vtable.el (vtable): Add a column color element.
+ (make-vtable): Use it.
+ (vtable--insert-line): Insert the colors here.
+
+2022-04-13 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix format-seconds error in previous change
+
+ * lisp/calendar/time-date.el (format-seconds): Fix zero elision
+ when using fractional seconds.
+
+2022-04-13 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ # Conflicts:
+ # etc/NEWS
+ # lisp/desktop.el
+ # lisp/dired.el
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make list-times not include zero elements
+
+ * doc/lispref/os.texi (Time Parsing): Mention %x.
+ * lisp/calendar/time-date.el (format-seconds): Accept a new %x
+ spec that removes trailing zeros (bug#54904).
+
+ * lisp/emacs-lisp/timer-list.el (list-timers): Don't display
+ trailing zero bits.
+
+2022-04-13 Eli Zaretskii <eliz@gnu.org>
+
+ A better fix for bug#54800
+
+ * lisp/calc/calc.el (calc-align-stack-window): Improve scrolling
+ when windows have non-integral dimensions.
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Move raw event selection on GTK+ 2 to a more appropriate place
+
+ * src/xfns.c (setup_xi_event_mask): Stop selecting for
+ RawKeyPress on the root window.
+ * src/xterm.c (x_new_focus_frame): Select here instead, once a
+ frame becomes focused.
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Fix marking upgrades for packages from ELPA or NonGNU ELPA
+
+ * lisp/emacs-lisp/package.el (package-menu--find-upgrades): Look
+ inside ``external'' packages as well when searching for
+ upgrades. (bug#54117)
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Fix input availability detection during visible-bell
+
+ * src/xterm.c (XTflash): Exit pselect loop also if input becomes
+ available on f's display connection.
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Minor cleanups to Haiku windowing
+
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame):
+ * src/haikuterm.h (struct haiku_output, struct scroll_bar)
+ (XSCROLL_BAR): Remove used fields of various structs.
+
+ * src/haikuterm.c (haiku_flash): Make input detection actually
+ work.
+
+2022-04-13 Po Lu <luangruo@yahoo.com>
+
+ Fix zoom rect computation for some deskbar positions on Haiku
+
+ * src/haiku_support.cc (CalculateZoomRect): Fix computation for
+ left top and right bottom.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a comment about cl-concatenate
+
+ * lisp/emacs-lisp/cl-extra.el (cl-concatenate): Add a comment.
+
+2022-04-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Make cl-concatenate an alias of seq-concatenate"
+
+ This reverts commit 78f76fe16e2737b40694f82af28d17a90a21ed7b.
+
+ The commit made calls to cl-concatenate bug out, since
+ autoloading defalises doesn't work very well (bug#54901).
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix last change in configure.ac
+
+ * configure.ac: Test window system against "x11", not "x".
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Bump minimum GTK for PGTK builds
+
+ * configure.ac: Require GTK 3.20 or later if building with PGTK.
+ It has already been required for some time now, but the
+ requirement was not reflected in the configure script.
+
+ * src/pgtkterm.c (pgtk_any_window_to_frame): Remove version
+ check.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how `M-q' in emacs-lisp-mode works
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Only fill as
+ strings inside strings (bug#31656).
+ (lisp--fill-line-simple): New function to do simple sexp-based
+ filling.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Clean up PGTK code more
+
+ * src/pgtkterm.c (STORE_KEYSYM_FOR_DEBUG): Delete macro.
+ (x_find_modifier_meanings): Delete function.
+ (get_modifier_values, pgtk_gtk_to_emacs_modifiers)
+ (pgtk_emacs_to_gtk_modifiers): Use GDK's own modifier mask
+ constants instead of detecting our own from the keymap. This
+ does mean a specific "meta" key will no longer be detected on X
+ Windows, but that interface doesn't exist on Wayland, and X
+ users should use the X port anyway.
+ (key_press_event): Avoid decoding input text.
+ (pgtk_term_init): Stop computing modifiers.
+ (syms_of_pgtkterm): Delete obsolete comment.
+ * src/pgtkterm.h (struct pgtk_display_info): Delete modifier
+ masks.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Remove unused flag on Haiku
+
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame):
+ * src/haikuterm.h (struct haiku_output): Delete mentions of
+ `explicit_parent'.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix bit rot in the XEmbed code
+
+ * src/xterm.c (x_term_init): Delete unused atom.
+ (handle_one_xevent):
+ (x_make_frame_visible): Handle embedded frame visibility
+ correctly.
+ * src/xterm.h (struct x_display_info): Delete unused atom.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entry for `C-h m' change
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Redo `C-h m' output
+
+ * lisp/help-fns.el (describe-mode--minor-modes): New function
+ (bug#2473).
+ (describe-mode): Rewritten to include local minor mode links first,
+ then the major mode, and then global minor mode links, and then
+ all the minor modes.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `describe-mode' include a link to the major mode function
+
+ * lisp/help-fns.el (describe-mode): Add a link to the mode
+ function so that the user can go to the manual more easily
+ (bug#575).
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix freezes when trying to accelerate menu bar on Haiku
+
+ * src/haiku_support.cc (class EmacsWindow): New field
+ `menus_begun'.
+ (MenusBeginning): Don't send menu bar open events when that is
+ set, instead set it to true.
+ (BMenuBar_start_tracking): Stop locking the menu bar here and
+ send a special BE_MENU_BAR_OPEN event instead.
+ * src/haiku_support.h (struct haiku_menu_bar_state_event):
+ Delete field `no_lock'.
+ * src/haikumenu.c (Fhaiku_menu_bar_open):
+ * src/haikuterm.c (haiku_read_socket): Update accordingly.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Provide a useful default to smime-CA-file
+
+ * lisp/gnus/smime.el (smime-CA-file): Use `gnutls-trustfiles' to
+ provide a default so that this will work automatically on many
+ systems (bug#20960).
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the SVG error message less verbose
+
+ * src/image.c (svg_load_image): Don't include the spec in the
+ error message, because this is commonly the entire SVG string, and
+ this will fill up the *Messages* buffer quickly.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention animated WebP images
+
+2022-04-12 Sean Whitton <spwhitton@spwhitton.name>
+
+ Fix eager macroexpansion cycle in cl-once-only
+
+ * lisp/emacs-lisp/cl-macs.el (cl-once-only): Use different cl-loop
+ syntax, with no functional change, but such that the loop does not
+ expand into cl-psetq.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve DISPOSE_PREVIOUS in gif_load slightly
+
+ * src/image.c (gif_load): Tweak how DISPOSE_PREVIOUS is handled.
+ It's still not right, but it's less glaringly wrong.
+
+2022-04-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'window-text-pixel-size' when starting from a display property
+
+ * src/xdisp.c (Fwindow_text_pixel_size): Handle the case where
+ there's a display property at START and 'move_it_to' overshoots.
+ (Bug#54862)
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix webp_load data lifetime issues
+
+ * src/image.c (webp_load): Take care of lifetime issues of the
+ image data we're iterating over for animated images.
+
+2022-04-12 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'window-text-pixel-width' when starting from display property
+
+ * src/xdisp.c (Fwindow_text_pixel_size): Handle the case where
+ there's a display property at START, and move_it_to overshoots.
+ Do not merge to master. (Bug#54862)
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix keyboard event device attribution on GTK+ 2
+
+ * src/xfns.c (setup_xi_event_mask): Select for raw keypress
+ events on GTK 2.
+ * src/xterm.c (handle_one_xevent): Set pending keystroke time
+ when a raw event is received.
+ * src/xterm.h (struct x_display_info): New flag
+ `pending_keystroke_time_special_p'.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix detection of Meta key in some cases
+
+ * src/xterm.c (x_find_modifier_meanings): Set found_meta_p
+ correctly.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix check for whether frames fit into gif images
+
+ * src/image.c (gif_load): Really check all frames that they fit.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix some confusing names in xterm.c
+
+ * src/xterm.c (enum xm_targets_table_byte_order): Rename to
+ `xm_byte_order'. All uses changed.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Store less data in the gif animation cache
+
+ * src/image.c (gif_load): Only start a cache if we're have an
+ :index entry (which means that we're trying to animate something).
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix clicking on files in Dired when drag is enabled
+
+ * lisp/dired.el (dired-mouse-drag): Don't drag if the mouse
+ didn't move far enough.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Release resources in gif_load on errors
+
+ * src/image.c (webp_load): Clean up code slightly.
+ (gif_load): Really release resources on GIF parsing errors.
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Animate GIF images that don't have an explicit delay setting
+
+ * src/image.c (gif_load): Use the default delay for GIF images
+ that don't explicitly state a delay.
+
+2022-04-12 Olaf Trygve Berglihn <olafb@pvv.org> (tiny change)
+
+ Add biblatex alias entry types for compability with bibtex
+
+ * lisp/textmodes/bibtex.el (bibtex-biblatex-entry-alist): Add
+ biblatex alias entry types for compability with bibtex (bug#54877).
+
+2022-04-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix thinko in the anim cache
+
+ * src/image.c (gif_load): Fix resetting the cache when we're out
+ of sync.
+ (anim_create_cache): Start from zero, not 1.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Disallow drag and drop inside a menu-entry
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop): Always free DND
+ targets even if waiting for finish.
+ (x_dnd_begin_drag_and_drop): Free targets correctly when
+ signalling error and prevent activating drag-and-drop inside a
+ menu or popup. (It doesn't work.)
+
+2022-04-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt macOS defaults in Tramp's process-attributes implementation
+
+ * doc/misc/tramp.texi (Remote processes):
+ Mention tramp-connection-local-darwin-ps-* constants.
+
+ * lisp/net/tramp-integration.el
+ (tramp-connection-local-darwin-ps-variables): Fix docstring.
+ (top): Simplify setting local profiles.
+
+ * test/lisp/net/tramp-tests.el (tramp-test31-list-system-processes)
+ (tramp-test31-process-attributes): New tests.
+
+2022-04-12 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ process-attributes-ps-args / process-attributes-ps-format for Darwin
+
+ * lisp/net/tramp-integration.el
+ (tramp-darwin-process-attributes-ps-args)
+ (tramp-darwin-process-attributes-ps-format)
+ (tramp-connection-local-darwin-ps-variables): New defconsts. Add
+ them to connection-local variables. Preset default "ps" profile
+ for Darwin.
+
+2022-04-12 Sean Whitton <spwhitton@spwhitton.name>
+
+ Add two classic Common Lisp macro-writing macros
+
+ * lisp/emacs-lisp/cl-macs.el (cl-with-gensyms, cl-once-only): New
macros.
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ Fix some DISPLAY variable related bugs on PGTK
+
+ * src/callproc.c (getenv_internal, make_environment_block):
+ Don't set DISPLAY on non-X GDK backends. (bug#54844)
+
+2022-04-12 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (frame_set_mouse_pixel_position): Avoid server grab.
+
+2022-04-11 Po Lu <luangruo@yahoo.com>
+
+ Don't use native image APIs for some types on Haiku
+
+ * src/haikuimage.c (haiku_can_use_native_image_api): Ignore
+ types with animations when their respective libraries are
+ present.
+
+2022-04-11 Po Lu <luangruo@yahoo.com>
+
+ Fix last tool bar bug on Haiku as well
+
+ * src/haikuterm.c (haiku_read_socket): Adapt last change to
+ Haiku.
+
+2022-04-11 Po Lu <luangruo@yahoo.com>
+
+ Fix selecting text and releasing the mouse buttons above the toolbar
+
+ * src/xterm.c (handle_one_xevent): Don't send ButtonRelease
+ events to tool bars if there is no selected tool bar item.
+
+2022-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/macroexp.el (macroexp-let2*): Allow common shorthand
+
+ * lisp/gnus/mm-encode.el (mm-default-file-encoding): Fix "when" arg
+
+2022-04-11 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use preferred chars among duplicates as per UTR#25 §25.
+
+2022-04-11 Juri Linkov <juri@linkov.net>
+
+ * lisp/minibuffer.el (minibuffer-completion-auto-choose): New defcustom.
+
+ (minibuffer-choose-previous-completion)
+ (minibuffer-choose-next-completion): Remove commands.
+ (minibuffer-local-completion-map): Remove keybindings of
+ minibuffer-choose-next-completion and
minibuffer-choose-previous-completion.
+ Use them for minibuffer-next-completion and
minibuffer-previous-completion.
+ * lisp/simple.el (minibuffer-local-shell-command-map): Idem.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make normal image caching actually work when doing animated images
+
+ * src/image.c (filter_image_spec): New function.
+ (uncache_image): Use it.
+ (lookup_image): Ditto.
+ (syms_of_image): Define some keywords.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make more IPV6 domains non-suspicious in textsec
+
+ * lisp/international/textsec.el (textsec--ipvx-address-p): Make
+ more IPV6 domains non-suspicious.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make gif_load work across architectures again
+
+ * src/image.c (gif_load): Invert the way animated pixmaps are
+ created: Work on the cached computed-so-far pixmap, and then copy
+ the entire thing to the ximg with PUT_PIXEL at the end. This
+ should work across platforms, which the previous version didn't.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "; * src/image.c (gif_load): Fix compilation error on
MS-Windows."
+
+ This reverts commit a715f2fbe70bb4cbb961e82af95e2965030b4513.
+
+ This is fixed in a different way in a subsequent commit.
+
+2022-04-11 Mattias Engdegård <mattiase@acm.org>
+
+ Recognise hybrid IPv6/IPv4 addresses in textsec (bug#54624)
+
+ * lisp/international/textsec.el (textsec--ipvx-address-p):
+ Recognise hybrid addresses like "::ffff:129.55.2.201".
+ Combine to a single regexp and translate to rx.
+ Remove some regexp ambiguity (relint complaint).
+ * test/lisp/international/textsec-tests.el (test-suspiction-domain):
+ Add test cases.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix anim_cache garbage collection
+
+ * src/image.c (struct anim_cache): Move earlier.
+ (mark_image_cache): Mark the Lisp_Object in the anim cache.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation errors when HAVE_GIF and not HAVE_WEBP
+
+ * src/image.c: Enable the cache functions when HAVE_GIF, too
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up GIF animations
+
+ * src/image.c (anim_prune_animation_cache): Tweak the destructor
+ API.
+ (gif_destroy): New function.
+ (gif_load): Use a cache to avoid quadratic CPU usage for animated
+ images (bug#45224).
+ (webp_destroy): New function.
+ (webp_load): Use it.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Refactor the webp cache code to allow usage by gif_load, too
+
+ * src/image.c (struct anim_cache, anim_create_cache)
+ (anim_prune_animation_cache, anim_get_animation_cache): Rename
+ from webp_cache (etc) to prepare for usage in the gif animation
+ implementation, too.
+ (webp_load): Adjust cache usage.
+
+2022-04-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix default-directory of buffers visiting files in renamed directories
+
+ * lisp/dired-aux.el (dired-rename-file): Take note of whether FILE
+ is a directory before it is renamed, which makes it impossible to
+ determine if it was a directory.
+ (dired-rename-subdir, dired-rename-subdir-1): Revert to using
+ dired-in-this-tree-p instead of file-in-directory-p, for the
+ benefit of files that were renamed/removed, because
+ file-in-directory-p returns nil in those cases. (Bug#54838)
+
+2022-04-11 Po Lu <luangruo@yahoo.com>
+
+ Fix event source attribution for GTK input methods
+
+ * src/gtkutil.c (xg_im_context_commit): Use pending keystroke
+ source if it exists.
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a kill-append regression
+
+ * lisp/simple.el (kill-append): Fix a regression when
+ kill-ring-max is zero (bug#54842).
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve gif_load error messages
+
+ * src/image.c (gif_load): Improve error reporting (bug#54848).
+
+2022-04-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure shell.el loading properly
+
+ * lisp/shell.el (subr-x): Require for string-chop-newline
+ (bug#54834).
+
+2022-04-11 Po Lu <luangruo@yahoo.com>
+
+ Always cascade from toplevel frames on Haiku
+
+ * src/haikufns.c (haiku_create_frame): Cascade from toplevel
+ frames, since otherwise the positions are wrong anyway, and it
+ doesn't make sense to cascade from a frame that disappears when
+ it becomes deactivated.
+
+2022-04-11 Po Lu <luangruo@yahoo.com>
+
+ Fix IM event source attribution on GTK
+
+ * src/xterm.c (handle_one_xevent): Set pending times on GTK as
+ well.
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Respect pending
+ keystroke time on XI2.
+
+2022-04-10 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_event): Make event attribution more accurate.
+
+2022-04-10 Augusto Stoffel <arstoffel@gmail.com>
+
+ Add lazy highlight when reading 'query-replace' arguments
+
+ * lisp/replace.el (query-replace-read-args): Use
+ 'minibuffer-lazy-highlight-setup' to highlight the text to be replaced
+ in the original buffer (and a match count, if applicable).
+ (replace--region-filter): New function for code that
+ used to be inlined in perform-replace but is useful elsewhere.
+ (perform-replace): Use 'replace--region-filter'.
+
+2022-04-10 Augusto Stoffel <arstoffel@gmail.com>
+
+ Rewrite the minibuffer lazy highlight feature
+
+ The new API was discussed in bug#53126. It's more robust and easier
+ to use in complex cases like that of 'query-replace'.
+
+ * etc/NEWS: Amend the feature announcement
+ * lisp/isearch.el (isearch-edit-string): Use new API.
+ (minibuffer-lazy-highlight-transform,
+ minibuffer-lazy-highlight--overlay, minibuffer-lazy-highlight--count,
+ minibuffer-lazy-highlight--after-change,
+ minibuffer-lazy-highlight--exit) Remove helper functions, which are
+ now kept together with the lazy highlight configuration variables
+ within a closure.
+ (minibuffer-lazy-highlight-setup): This function now takes the lazy
+ highlighting configuration variables as argument, and returns a
+ closure that is intended to run as part of the minibuffer setup.
+
+2022-04-10 Eli Zaretskii <eliz@gnu.org>
+
+ * doc/misc/eww.texi (Advanced): Correct outdated info (bug#54839).
+
+2022-04-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix markup in Drag and Drop
+
+ * doc/emacs/frames.texi (Drag and Drop): Fix markup.
+
+2022-04-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix WebP image support on MS-Windows
+
+ * src/image.c (init_webp_functions) [WINDOWSNT]: Load Demux
+ functions from the WebPDemux DLL. Load internal functions where
+ the public APIs are inline functions defined in the WebP headers.
+ (WebPAnimDecoderOptionsInit) [WINDOWSNT]: Define to call
+ 'WebPAnimDecoderOptionsInitInternal'.
+ (WebPDemux): Define to call 'WebPDemuxInternal'.
+ (WebPAnimDecoderNew): Define to call
+ 'WebPAnimDecoderNewInternal'.
+ (syms_of_image) <webpdemux>: New symbol.
+
+ * lisp/term/w32-win.el (dynamic-library-alist): Add a member for
+ 'webpdemux'.
+
+2022-04-10 Eli Zaretskii <eliz@gnu.org>
+
+ Clean up the MSDOS port
+
+ * src/msdos.h (tcdrain): Redirect to '_dos_commit'.
+ (openat, fchmodat, futimens, utimensat): Add prototypes.
+
+ * msdos/sed1v2.inp (MAKE_PDUMPER_FINGERPRINT): Fix indentation, so
+ that Make won't consider this line a command.
+ ($(etc)/DOC): Chdir back to ../src, since "make-docfile -d" leaves
+ us in a wrong directory.
+ * msdos/sedlibmk.inp (GL_GNULIB_GETRANDOM, GL_GNULIB_MEMMEM)
+ (GL_GNULIB_SIGDESCR_NP): Define to 1, to get the prototypes from
+ Gnulib headers.
+
+2022-04-10 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Fix a ja-dic compilation warning
+
+ * leim/Makefile.in (${leimdir}/ja-dic/ja-dic.el): Increase
+ specpdl-size to avoid a compilation warning (bug#54816).
+
+2022-04-10 Daniel Martín <mardani29@yahoo.es>
+
+ Fix typo in next-error-find-buffer-function
+
+ * lisp/simple.el (next-error-find-buffer-function): Fix typo
+ (bug#54830).
+
+2022-04-10 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fix unwanted fontification of function call as function
declaration
+
+ This happens when the enclosing function's return type is a struct,
etc. This
+ fixes bug #54743;
+
+ * lisp/progmodes/cc-engine.el (c-update-brace-stack): Replace "(" by
")" in a
+ `member' call.
+
+2022-04-10 Kaushal Modi <kaushal.modi@gmail.com>
+
+ Update docstrings for shortdoc.el FUNC lisp form API
+
+ * lisp/emacs-lisp/shortdoc.el (define-short-documentation-group):
+ Updated docstrings.
+
+2022-04-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Make shell-resync-dirs handle whitespace in directory names"
+
+ This reverts commit 90e65c826fab2092ad2099d7763538194c93e021.
+
+ This change led to hangs (bug#54776).
+
+ Do not merge to master; it has been fixed in a more encompassing way
there.
+
+2022-04-10 Po Lu <luangruo@yahoo.com>
+
+ Attribute filtered events to the right source device
+
+ * src/xterm.c (handle_one_xevent): Attribute core events sent by
+ input methods like I-Bus to the extension device that caused
+ them to be sent.
+ * src/xterm.h (struct x_display_info): New fields
+ `pending_keystroke_time' and `pending_keystroke_source'.
+
+2022-04-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for animated webp images
+
+ * configure.ac (HAVE_RSVG): Also include the webpdemux library.
+ It was new in version 0.4.4, and we require 0.6.0, so it should be
+ safe.
+ * src/image.c: Include demux.h.
+ (enum webp_keyword_index, webp_format): Include :index for
+ animations.
+ (init_webp_functions): Add Windows LOAD_DLLs.
+ (struct webp_cache, webp_create_cache)
+ (webp_prune_animation_cache, webp_get_animation_cache): New
+ functions.
+ (webp_load): Support animated webp images (bug#54242).
+
+2022-04-10 Juri Linkov <juri@linkov.net>
+
+ Allow non-interactive uses of minibuffer-next-completion
+
+ * lisp/minibuffer.el (minibuffer-previous-completion)
+ (minibuffer-next-completion): Use 1 for n by default.
+
+2022-04-10 Po Lu <luangruo@yahoo.com>
+
+ Add missing details to filter event on XI2
+
+ * src/xterm.c (handle_one_xevent): Pass coordinates when
+ translating XI2 key events to core key events.
+
+2022-04-09 Po Lu <luangruo@yahoo.com>
+
+ Update XI2 device use on slave attachment and detachment
+
+ * src/xterm.c (handle_one_xevent): Update whether device is a
+ master device when it's detached or attached.
+
+2022-04-09 Po Lu <luangruo@yahoo.com>
+
+ Try harder to own DND selections
+
+ * src/xterm.c (x_dnd_do_unsupported_drop): Fix computation of
+ local value.
+ (x_dnd_begin_drag_and_drop): Try to own the selection if we do
+ have a local value.
+
+2022-04-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mode-line doc string
+
+ * lisp/faces.el (mode-line): Fix doc string.
+
+2022-04-09 Vincent Belaïche <vincentb1@users.sourceforge.net>
+
+ ses-test Prefix used symbols by ses--
+
+ * test/lisp/ses-tests.el: Rename cell symbols of renamed cells so
+ that they are in the SES namespace, as recommended by Stefan.
+
+2022-04-09 Eli Zaretskii <eliz@gnu.org>
+
+ Fix scrolling of the stack window in Calc
+
+ * lisp/calc/calc.el (calc-align-stack-window): Fix off-by-one
+ error in computing the window-start point. (Bug#54800)
+
+2022-04-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix sql-mode comment-end parsing
+
+ * lisp/progmodes/sql.el (sql-mode): Fix /* ... -*/ parsing
+ (bug#54769).
+
+2022-04-09 Po Lu <luangruo@yahoo.com>
+
+ Avoid sync when allowing touch events in handle_one_xevent
+
+ * src/xterm.c (handle_one_xevent): Don't catch errors around
+ XIAllowTouchEvents.
+ (x_error_handler): Ignore Device errors here instead.
+
+2022-04-09 Po Lu <luangruo@yahoo.com>
+
+ Handle hierarchy events for updating scroll valuators correctly
+
+ * src/keyboard.c (gen_help_event, kbd_buffer_store_help_event):
+ Make sure to initialize the event buffer correctly.
+
+ * src/xterm.c (xi_populate_device_from_info): New function.
+ (x_init_master_valuators): Factor out most of the valuator
+ tracking code to that function.
+ (handle_one_xevent): Handle device enable and disable events in
+ a more detailed fashion.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Fix DND leave events not being sent to toplevel after returning frame
+
+ * src/xterm.c (x_dnd_update_state, handle_one_xevent): Make sure
+ to send leave events to the previous toplevel when cancelling to
+ return a frame.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Use right frame when computing mouse movement device
+
+ * src/keyboard.c (kbd_buffer_get_event): Use the frame on which
+ the mouse actually moved to compute the last mouse device.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Minor cleanups in X Windows drag-and-drop code
+
+ * src/keyboard.c (kbd_buffer_get_event): Don't dereference f if
+ nil when generating mouse motion event.
+ * src/xterm.c (x_dnd_send_enter, x_dnd_send_position)
+ (x_dnd_send_leave, x_dnd_send_drop, x_send_scroll_bar_event):
+ Use NoEventMask instead of 0.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Fix source reporting for focus in and focus out events
+
+ * src/xterm.c (handle_one_xevent): Report source name for
+ FocusIn and FocusOut events.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Clean up XI2 scroll valuator tracking code
+
+ * src/xterm.c (x_get_scroll_valuator_delta): Accept a pointer to
+ a device instead of the device id.
+ (handle_one_xevent): Pass the previously found device.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (pgtk_set_cr_source_with_color): Fix default operator.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Fix subpixel AA with alpha-background on Cairo on X
+
+ * xterm.c (x_set_cr_source_with_gc_foreground)
+ (x_set_cr_source_with_gc_background): Set operator back to OVER
+ if alpha-background isn't to be respected.
+
+2022-04-08 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-04-08 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify clang -Wunused-variable
+
+ * src/coding.c (detect_coding_utf_8):
+ * src/process.c (Finternal_default_process_filter):
+ Remove unused local vars.
+
+2022-04-08 Paul Eggert <eggert@cs.ucla.edu>
+
+ ebrowse dumping need not return int
+
+ * lib-src/ebrowse.c (dump_members, dump_tree): Return void, not
+ int, since callers never actually use returned value. All uses
+ changed.
+
+2022-04-08 Alan Third <alan@idiocy.org>
+
+ Fix scrollbars on macOS 10.13 and below (bug#54623)
+
+ Make any build on macOS 10.13 and below follow the same drawing path
+ as the GNUstep port. macOS 10.14 and above will use EmacsLayer.
+
+ * src/nsterm.h (EmacsLayer):
+ * src/nsterm.m ([EmacsView makeBackingLayer]):
+ ([EmacsView unlockFocus]):
+ ([EmacsView windowDidChangeBackingProperties:]):
+ ([EmacsView copyRect:to:]): Remove any code required for macOS 10.13
+ and below, and fix the #if's to enforce strict separation of the
+ drawing paths.
+ (ns_update_end):
+ (ns_unfocus): Fix #ifs so that flushWindow is called on old macOS
+ versions as well as GNUstep.
+
+2022-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Update and fix instructions and scripts for updating the Web pages
+
+ * admin/admin.el (manual-html-fix-index-2): Support Texinfo 6.8
+ and later by not converting TOC menus into tables. (Bug#49719)
+ * admin/upload-manuals (New directory): Invoke "cvs add" in
+ $webdir, to pick up the correct CVSROOT.
+ * admin/make-tarball.txt: Update the section about the Emacs Web
+ pages.
+
+ * etc/refcards/Makefile (pl-refcard.dvi): If mex.fmt cannot be
+ found, invoke 'mex' instead of 'tex'.
+
+2022-04-08 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix pacifying gcc -Wanalyzer-null-dereference
+
+ * src/xterm.c (handle_one_xevent): Use eassume not eassert.
+ eassert (X)’s suppress_checking does not let GCC assume X.
+
+2022-04-08 Mattias Engdegård <mattiase@acm.org>
+
+ Rename mark_stack to mark_c_stack
+
+ This is the function that marks the C stack. Avoid confusion with the
+ new mark stack, a stack used in the GC mark phase.
+
+ * src/alloc.c (SETJMP_WILL_LIKELY_WORK, SETJMP_WILL_NOT_WORK)
+ (mark_stack, mark_c_stack):
+ * src/lisp.h:
+ * src/thread.c (mark_one_thread): Rename mark_stack to mark_c_stack.
+
+2022-04-08 Mattias Engdegård <mattiase@acm.org>
+
+ Enable warnings when building as a developer with Clang
+
+ The configure-script logic that automatically enables warnings when
+ building in a development tree didn't work for Clang because it was
+ identified as an old GCC version.
+
+ * configure.ac: Don't test Clang version as if it were GCC.
+
+2022-04-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve package.el error messages on too-old Emacsen
+
+ * lisp/emacs-lisp/package.el (package-compute-transaction): Give a
+ better error message on too-old Emacs versions (bug#54747).
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Recommend that the user turn off memory overcommit
+
+ * doc/emacs/trouble.texi (Memory Full): Tell the user that Emacs
+ behaves best with overcommit off, and how to turn it off.
+
+2022-04-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend tramp-archive-test45-auto-load
+
+ * test/lisp/net/tramp-archive-tests.el (tramp-archive-test45-auto-load):
+ Extend test.
+
+2022-04-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Ensure local `default-directory' in Tramp when needed
+
+ * lisp/net/tramp.el (tramp-process-running-p): Ensure local
+ `default-directory' when calling `list-system-processes' and
+ `process-attributes'.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Interpolate scrolls coming from mice by default
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-interpolate-mice): New
+ user option.
+ (pixel-scroll-precision): If the class of the last event device
+ is `mouse', interpolate the next scroll.
+
+2022-04-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Ensure local `default-directory' when calling `process-attributes'.
+
+ * lisp/server.el (server-running-p):
+ * lisp/subr.el (memory-limit): Ensure local `default-directory'
+ when calling `process-attributes'.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Fix GC marking of input events with devices
+
+ * src/keyboard.c (mark_kboards):
+ * src/pgtkterm.c (mark_pgtkterm): Mark `device' as well.
+
+2022-04-08 Eli Zaretskii <eliz@gnu.org>
+
+ Clarify "idleness" in the ELisp manual
+
+ * doc/lispref/os.texi (Idle Timers): Clarify that waiting for
+ input with timeout doesn't make Emacs idle. Suggested by Ignacio
+ <ignaciocasso@hotmail.com>. (Bug#54371)
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ Implement support for reporting device names on PGTK
+
+ * lisp/frame.el (device-class): Add new function.
+ * lisp/term/pgtk-win.el (pgtk-device-class): New function.
+ * src/pgtkterm.c (pgtk_device_added_or_removal_cb)
+ (pgtk_seat_added_cb, pgtk_seat_removed_cb)
+ (pgtk_enumerate_devices)
+ (pgtk_free_devices, pgtk_regenerate_devices)
+ (pgtk_get_device_for_event): New functions.
+ (mark_pgtkterm): Mark device data.
+ (pgtk_delete_terminal): Delete device data.
+ (pgtk_handle_event, key_press_event, note_mouse_movement)
+ (construct_mouse_click, button_event, scroll_event)
+ (drag_data_received): Set device correctly.
+ (pgtk_term_init): Initialize device data and seat tracking.
+ (pgtk_delete_display): Delete device data.
+ * src/pgtkterm.h (struct pgtk_device_t): New struct.
+ (struct pgtk_display_info): New field `devices'. Delete lots of
+ unused macros and reformat comments.
+
+2022-04-08 Po Lu <luangruo@yahoo.com>
+
+ * lisp/term/x-win.el (x-device-class): Detect more keyboards.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Ignore input extension errors caused by grabbing
+
+ * src/xterm.c (x_error_handler): Ignore GrabDevice and
+ UngrabDevice errors.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ * lisp/term/x-win.el (x-device-class): Detect "USB USB Keykoard"s.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Add code for determining the type of an input device
+
+ * doc/lispref/commands.texi (Command Loop Info):
+ * etc/NEWS: Update documentation and announce `device-class'.
+
+ * lisp/frame.el (x-device-class):
+ (device-class):
+ * lisp/term/x-win.el (x-device-class): New functions.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Fix reporting of last-event-device for synthetic events
+
+ * src/keyboard.c (read_char): Clear `last-event-device' earlier.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Make device reporting work for tool bar clicks
+
+ * src/dispextern.h: Update prototyupes.
+ * src/xdisp.c (handle_tool_bar_click): Pass Qt to that function
+ instead.
+ (handle_tool_bar_click_with_device): New function.
+ * src/xterm.c (handle_one_xevent): Pass device to tool bar click
+ logic.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Fix build warning on non-GTK builds.
+
+2022-04-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ lisp/simple.el: Use #' in new code
+
+ * lisp/simple.el (minibuffer-local-shell-command-map): Use #' to quote
+ function names.
+
+2022-04-07 Matthias Meulien <orontee@gmail.com>
+
+ Display file mode information when diff font lock prettify enabled
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): Make regexp capture
+ file mode information.
+
+2022-04-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ OClosure: New function `function-documentation`
+
+ As mentioned in the original OClosure commit, OClosures (ab)use the
+ bytecode's docstring slot to hold the OClosure's type. This currently
+ prevents OClosures from having their own docstring.
+
+ Introduce a new generic function `function-documentation` to fetch the
+ docstring of a function, which can then be implemented in various
+ different ways depending on the OClosure's type.
+
+ * lisp/simple.el (function-documentation): New generic function.
+ (bad-package-check): Strength-reduce `eval` to `symbol-value`.
+ * src/doc.c (Fdocumentation): Use it.
+
+ * lisp/emacs-lisp/oclosure.el (oclosure--accessor-docstring): New
function.
+ * test/lisp/emacs-lisp/oclosure-tests.el (oclosure-test):
+ Add test for accessor's docstrings.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Expose the name of an event's input device to Lisp
+
+ This name can be used to identify the device for special
+ treatment, i.e. only interpolating scrolls coming from mice and
+ not touchpads inside pixel-scroll-precision-mode.
+
+ * doc/lispref/commands.texi (Command Loop Info): Document new
+ variable `last-event-device'.
+ * etc/NEWS: Announce new variable `last-event-device'.
+ * src/frame.h (struct frame): New field `last_mouse_device'.
+ * src/keyboard.c (read_char): Clear last-event-device.
+ (kbd_buffer_get_event): Set last-event-device to the event's
+ recorded device.
+ (init_keyboard): Clear last-event-device.
+ (syms_of_keyboard): New defvar `last-event-device'.
+ * src/termhooks.h (struct input_event): New field `device'.
+ (EVENT_INIT): Set it to the special value `Qt' by default.
+ * src/xterm.c (x_init_master_valuators): Record the device's
+ name.
+ (x_dnd_begin_drag_and_drop): Only preserve last event device if
+ the mouse ended up in the source frame.
+ (x_note_mouse_movement): New argument `source'.
+ (handle_one_xevent): Set input event sources whenever
+ appropriate.
+ (mark_xterm): Mark device names.
+
+ * src/xterm.h (struct xi_device_t): New field `name'.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget smooth scrolling when the default pointer is not a touchpad
+
+ * xwidget.c (find_suitable_pointer): New argument
+ `need_smooth'. Try to find a touchpad if that is set.
+ (xwidget_button_1, xwidget_button, xwidget_motion_notify)
+ (xwidget_scroll, xwidget_pinch, xw_notify_virtual_upwards_until)
+ (xw_notify_virtual_downwards_until):
+ (xw_maybe_synthesize_crossing):
+ (xwidget_motion_or_crossing, synthesize_focus_in_event): Set
+ parameter accordingly.
+
+2022-04-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify read-answer-short/use-short-answers action
+
+ * lisp/emacs-lisp/map-ynp.el (read-answer-short): Clarify what
+ this variable affects (bug#54754).
+
+ * src/fns.c (Fyes_or_no_p): Mention `use-short-answers'.
+
+2022-04-07 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Encrypt some parameters in auth-source plstore backend
+
+ The auth-source plstore backend allows a list of extra parameters but
+ currently stores them all unencrypted. This allows a plist with
+ :unencrypted and :encrypted keys to specify which extra parameters to
+ encrypt in the plstore file.
+
+ * lisp/auth-source.el (auth-source-plstore-create): Allow specifying
+ both unencrypted and encrypted extra parameters.
+
+2022-04-07 Jai Flack <jflack@disroot.org>
+
+ Add a mu backend for gnus-search
+
+ * lisp/gnus-search.el (gnus-search-mu-program): New defcustom
+ (gnus-search-mu-switches): New defcustom
+ (gnus-search-mu-remove-prefix): New defcustom
+ (gnus-search-mu-config-directory): New defcustom
+ (gnus-search-mu-raw-queries-p): New defcustom
+ (gnus-search-mu): New subclass of gnus-search-indexed
+ (gnus-search-transform-expression): New method
+ (gnus-search-mu-handle-date): New function
+ (gnus-search-mu-handle-flag): New function
+ (gnus-search-indexed-extract): New method
+ (gnus-search-indexed-search-command): New method (bug#54662).
+
+2022-04-07 Jürgen Hötzel <juergen@archlinux.org>
+
+ Use correct signal oldset in posix_spawn implementation
+
+ posix_spawn was restoring the wrong signal set, which still had
+ SIGCHLD and SIGINT masked, causing problems with child processes that
+ spawned child processes. (Bug#54667)
+
+ See the thread ending at
+ https://lists.gnu.org/archive/html/emacs-devel/2022-03/msg00067.html
+ for more details.
+
+ * src/callproc.c (emacs_spawn): Pass oldset parameter.
+ (emacs_posix_spawn_init_attributes): Use correct oldset.
+ (emacs_posix_spawn_init): Remove intermediate function.
+
+ (cherry picked from commit 8103b060d89ac63a12c439087bd46c30da72cd97)
+
+2022-04-07 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp-integration.el: Don't require files-x.
+
+2022-04-07 Felix Dietrich <felix.dietrich@sperrhaken.name> (tiny change)
+
+ Fix error in tramp-archive-autoload-file-name-handler
+
+ * lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-handler):
+ Always call `tramp-autoload-file-name'. Otherwise, when
+ `tramp-archive-enabled’ is nil and
+ `tramp-archive-autoload-file-name-handler’ is in the
+ `file-name-handler-alist’ results in an error “Invalid handler in
+ `file-name-handler-alist” once Emacs calls
+ `tramp-archive-autoload-file-name-handler’ with a handler that
+ does not expect nil. Always returning nil is also false in
+ general.
+
+2022-04-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Commit missing file from previous commit (Do not merge with master)
+
+ Commit missing file from previous commit
+
+2022-04-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge with Tramp 2.5.2.3 (Do not merge with master)
+
+ * doc/misc/tramp.texi (Archive file names): Explicitly say how to
+ open an archive with Tramp (Bug#25076).
+
+ * doc/misc/trampver.texi:
+ * lisp/net/trampver.el: Change version to "2.5.3-pre".
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-process-file)
+ * lisp/net/tramp-sh.el (tramp-sh-handle-process-file):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-process-file):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file):
+ Improve implementation. (Bug#53854)
+
+ * lisp/net/tramp-adb.el (tramp-adb-tolerate-tilde):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-tolerate-tilde):
+ New defuns. Advice `shell-mode' with them.
+
+ * lisp/net/tramp.el (tramp-register-autoload-file-name-handlers):
+ * lisp/net/tramp-archive.el (tramp-register-archive-file-name-handler):
+ Check, whether the real file name handler is already registered.
+ rules. (Bug#54542)
+
+ * lisp/net/tramp.el (tramp-autoload-file-name-handler)
+ (tramp-register-autoload-file-name-handlers)
+ (tramp-unload-file-name-handlers, tramp-unload-tramp):
+ * lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-regexp)
+ (tramp-archive-autoload-file-name-handler)
+ (tramp-register-archive-file-name-handler):
+ Add `tramp-autoload' property.
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-handle-file-notify-add-watch',
+ `tramp-handle-file-notify-rm-watch' and
+ `tramp-handle-file-notify-valid-p'.
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ Use `tramp-handle-insert-file-contents'.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
+ * lisp/net/tramp-rclone.el (tramp-rclone-maybe-open-connection):
+ * lisp/net/lisp/net/tramp-sshfs.el (tramp-sshfs-maybe-open-connection):
+ * tramp-sudoedit.el (tramp-sudoedit-maybe-open-connection): Do not
+ set "lock-pid" connection-property.
+ (tramp-sudoedit-handle-delete-file): Use "rm -f".
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-executable-p):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-executable-p):
+ Check also for setuid/setgid bit.
+ (tramp-gvfs-handle-expand-file-name):
+ Respect `tramp-tolerate-tilde'.
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-insert-directory):
+ Do not modify disk space information when
+ `dired--insert-disk-space' is available. (Bug#54512)
+
+ * lisp/net/tramp-sh.el (tramp-maybe-open-connection): Extend suppression
+ (tramp-get-remote-dev-tty): New defun.
+ (tramp-sh-handle-make-process): Use it.
+
+ * lisp/net/tramp-sshfs.el (tramp-methods) <sshfs>:
+ Add "-t -t" to `tramp-login-args'.
+ Add "-o dir_cache=no" to `tramp-mount-args'. (Bug#54126)
+ Add "-o transform_symlinks" to `tramp-mount-args'.
+ (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-sshfs-handle-file-writable-p'.
+ (tramp-sshfs-handle-file-writable-p): New defun. (Bug#54130)
+ (tramp-sshfs-handle-write-region): Set file modification time.
+ (Bug#54016)
+ (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-sshfs-handle-set-file-times'.
+ (tramp-sshfs-handle-set-file-times): New defun.
+
+ * test/lisp/net/tramp-tests.el (tramp--test-expensive-test-p):
+ Rename from `tramp--test-expensive-test'. Make it a defun. Adapt
+ all callees.
+ (tramp-test07-file-exists-p, tramp-test14-delete-directory)
+ (tramp-test18-file-attributes, tramp-test20-file-modes)
+ (tramp-test28-process-file, tramp-test29-start-file-process)
+ (tramp-test30-make-process, tramp-test32-shell-command)
+ (tramp-test33-environment-variables, tramp--test-check-files)
+ (tramp--test-special-characters, tramp-test46-unload): Adapt tests.
+ (tramp-test39-detect-external-change): New test.
+ (tramp-test29-start-file-process)
+ (tramp--test--deftest-direct-async-process)
+ (tramp-test30-make-process, tramp-test31-interrupt-process)
+ (tramp-test34-explicit-shell-file-name)
+ (tramp-test44-asynchronous-requests):
+ Add :tramp-asynchronous-processes tag.
+ (tramp--test-asynchronous-processes-p): New defun.
+ (tramp--test-hpux-p, tramp--test-macos-p): Protect against errors.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Fix error when calling DND movement tracking function
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Verify
+ x_dnd_movement_x and x_dnd_movement_y are wholenums before
+ caling posn-at-x-y.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (xm_write_targets_table): Remove extra XGrabServer pair.
+
+2022-04-07 Po Lu <luangruo@yahoo.com>
+
+ Fix DND bugs on GTK
+
+ * src/xterm.c (handle_one_xevent): Don't let some client
+ messages reach the toolkit.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Remove more code mindlessly copied from NS
+
+ * src/pgtkfns.c (Fx_open_connection):
+ * src/pgtkselect.c (nxatoms_of_pgtkselect):
+ * src/pgtkselect.h:
+ * src/pgtkterm.h: Delete `nxatoms_of_pgtkselect'.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Fix sending unsupported drops when there is no target but a toplevel
+
+ * src/xterm.c (handle_one_xevent): Send unsupported drops to
+ last seen toplevel if no target was found.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Improve doc of x-begin-drag
+
+ * doc/lispref/frames.texi (Drag and Drop): Fix typos and clarify
+ meaning of XdndActionPrivate.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Return an appropriate action when performing unsupported drop
+
+ * src/xterm.c (x_dnd_send_unsupported_drop): Set action to
+ XdndActionPrivate.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ * src/xselect.c (x_atom_to_symbol): Add XdndSelection.
+
+2022-04-06 Vincent Belaïche <vincentb1@users.sourceforge.net>
+
+ Fix ses-tests.el
+
+ * lisp/ses.el (ses-jump-cell-name-function): Docstring typo.
+
+ * test/lisp/ses-tests.el (ses--cells, foo, bar, B2, toto): Do not
+ do any outer defvar, but set the defvar only under the
+ with-suppressed-warnings directive to silence the byte-compiler.
+
+2022-04-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/ses.el: Fix 80-column-docstring warnings
+
+ Also remove redundant `:group` args and prefer #' to quote function
names.
+
+2022-04-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic.el: Fix bug#46722
+
+ Fix longstanding bug due to unexpected interference via side-effect.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-get-dispatcher):
+ Copy the `dispatch` arg before storing it into the hash-table.
+
+ Backport from `master` (cherrypick from commit 61f8f7f68f).
+
+2022-04-06 João Távora <joaotavora@gmail.com>
+
+ Solve flymake diagnostics synchronization problems
+
+ A diagnostics-lazy server is one who doesn't re-report already
+ reported diagnostics when it received textDocument/didSave.
+
+ Such is the case of Clangd, for example. Before this change, saving
+ an Eglot/Clang-managed buffer with some diagnostics caused the Flymake
+ indicator to display Wait[0 0] until some change was actually done to
+ the buffer.
+
+ That is because Flymake, by default, wants diagnostics on buffer save,
+ per flymake-start-on-save-buffer. But it doesn't work to simply turn
+ that off. That's because if one types something and quickly saves,
+ and the LSP diagnostics do come in after the save (for some reason,
+ like server latency), then Flymake sometimes doesn't request any
+ diagnostics at all.
+
+ The reason for the Flymake behaviour wasn't investigated, but that
+ wasn't a very good solution either
+
+ Rather this change makes it so that when such a Flymake request comes
+ in, it always gets served immediately with the latest information.
+ The latest information is now always stored in eglot--diagnostics,
+ with eglot--unreported-diagnotics being removed. The up-to-date list
+ is reported to Flymake whenever it requests it. It is updated
+ whenever the LSP server decides to.
+
+ * eglot.el (eglot--last-reported-diagnostics): Delete.
+ (eglot--unreported-diagnostics): Delete.
+ (eglot--diagnostics): New variable..
+ (eglot--maybe-activate-editing-mode): Use eglot--diagnostics.
+ (eglot-handle-notification): Set eglot--diaggnostics.
+ (eglot-flymake-backend): Read eglot--diagnostics. Always report.
+ (eglot--report-to-flymake): Set eglot--diagnostics.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Get rid of extra sync looking up window through XTranslateCoordinates
+
+ * src/xterm.c (x_dnd_get_wm_state_and_proto): Return proxy as
+ well.
+ (x_dnd_get_target_window): Use that proxy.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Move some X11 drag and drop processing to Lisp
+
+ * lisp/term/x-win.el: Set unsupported drop function.
+ * lisp/x-dnd.el (x-dnd-handle-unsupported-drop): New function.
+ * src/keyboard.c (kbd_buffer_get_event): Handle
+ UNSUPPORTED_DROP_EVENT.
+ * src/termhooks.h (enum event_kind): New event
+ `UNSUPPORTED_DROP_EVENT'.
+ * src/xterm.c (x_dnd_send_unsupported_drop): Send those events
+ instead.
+ (x_dnd_do_unsupported_drop): Move actual unsupported drop
+ handling here.
+ (syms_of_xterm): New variable `x-dnd-unsupported-drop-function'.
+ * src/xterm.h: Update prototypes.
+
+2022-04-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix minor-mode doc string quoting
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode--mode-docstring): Fix
+ double quoting of things like (default-value 'electric-pair-mode)
+ (bug#54746).
+
+2022-04-06 Davide Masserut <dm@mssdvd.com>
+
+ Make the Foot terminal an alias of xterm-256color
+
+ * lisp/faces.el (term-file-aliases): Make the foot terminal an alias
+ of xterm-256color (bug#54739).
+
+2022-04-06 Kien Nguyen <kien.n.quang@gmail.com>
+
+ Make file-name-split returns driver name as well in Windows
+
+ * lisp/files.el (file-name-split): Returns driver name as well in
+ Windows.
+ * lisp/net/browse-url.el (browse-url-file-url): Don't hexify colon
+ character in file path for Windows (bug#54721).
+
+2022-04-06 Davide Masserut <dm@mssdvd.com>
+
+ Add .bashrc detection to sh-mode
+
+ * lisp/progmodes/sh-script.el (sh-mode): Add .bashrc string-match
+ (bug#54727).
+
+2022-04-06 Markus Kopp <markus.kopp@student.uibk.ac.at>
+
+ Use CUA functions to scroll pages with pixel-scroll-scroll-mode
+
+ * lisp/pixel-scroll.el (pixel-scroll-interpolate-down)
+ (pixel-scroll-interpolate-up): Use `cua-scroll-up' and
+ `cua-scroll-down' to scroll if
+ `pixel-scroll-precision-interpolate-page' is off. (bug#54696)
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Prevent races when trying to set Motif drag window
+
+ * src/xterm.c (xm_get_drag_window): Grab temp connection when
+ setting the drag window.
+
+2022-04-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Revert unneeded change in tramp-integration.el
+
+ * lisp/net/tramp-integration.el:
+ Apply `connection-local-set-profiles' w/o retrieving old values.
+
+2022-04-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix URL-related typos in comments and messages
+
+ * lisp/ffap.el (ffap-next): Fix typo in message.
+ * lisp/finder.el (finder-commentary): Fix typo in comment.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Improve safety of haiku-drag-message
+
+ * lisp/term/haiku-win.el (haiku-drag-and-drop): Ignore
+ placeholder message.
+ * src/frame.c (delete_frame): Prevent deleting drop source frame
+ on Haiku.
+ * src/haiku_support.cc (RELEASE_NOW, CANCEL_DROP): New message
+ types.
+ (class EmacsView, MessageReceived): Handle new message types.
+ (be_drag_message): Drag CANCEL_DROP message on quit; also send
+ RELEASE_NOW to view if quitting.
+
+ * src/haikuselect.c (syms_of_haikuselect)
+ (haiku_unwind_drag_message): Clear new frame variable.
+ (Fhaiku_drag_message): Set new frame variable.
+ * src/haikuterm.h: Update prototypes.
+
+2022-04-06 Po Lu <luangruo@yahoo.com>
+
+ Clean up more PGTK code
+
+ * lisp/term/pgtk-win.el (featurep):
+ (pgtk):
+ (pgtk-use-im-context):
+ (pgtk-handle-nxopen):
+ (pgtk-handle-nxopentemp):
+ (pgtk-ignore-1-arg):
+ ([C-drag-n-drop]):
+ ([M-drag-n-drop]):
+ ([C-M-drag-n-drop]):
+ (pgtk-alternate-modifier):
+ (pgtk-right-alternate-modifier):
+ (pgtk-right-command-modifier):
+ (pgtk-right-control-modifier):
+ (pgtk-do-hide-emacs):
+ (pgtk-hide-others):
+ (pgtk-do-hide-others):
+ (pgtk-emacs-info-panel):
+ (pgtk-do-emacs-info-panel):
+ (pgtk-next-frame):
+ (pgtk-prev-frame):
+ (after-make-frame-functions):
+ (tool-bar-mode):
+ (pgtk-toggle-toolbar):
+ (pgtk-print-buffer):
+ (scalable-fonts-allowed):
+ (pgtk-standard-fontset-spec):
+ (pgtk-store-cut-buffer-internal):
+ (pgtk-copy-including-secondary):
+ (pgtk-paste-secondary):
+ (pgtk-suspend-error):
+ (window-system-initialization):
+ (after-init-hook): Remove code mindlessly copied from ns-win.el,
+ delete unused custom group, write doc strings and rename
+ variables duplicated from X to their names on X. Also reformat
+ comments and code.
+ (pgtk-use-im-context-handler): New function.
+
+ * src/pgtkfns.c (syms_of_pgtkfns): Delete useless
+ AppleScript (!) code copied from NS.
+ * src/pgtkselect.c: Write FIXME about selection API usage.
+
+ * src/pgtkterm.c (get_keysym_name): Implement correctly instead
+ of sprintf'ing the numeric value of the keysym into a static
+ buffer.
+ (pgtk_set_window_size):
+ (xg_scroll_callback): Delete code that was #if 0'd out and
+ doesn't make sense on PGTK.
+ (pgtk_delete_terminal): Remove misleading comment.
+
+2022-04-05 Po Lu <luangruo@yahoo.com>
+
+ * src/emacs.c (main): Improve accuracy of daemon warning message on
PGTK.
+
+ * src/xterm.c (x_dnd_send_unsupported_drop): Also handle TEXT target.
+
+2022-04-05 Po Lu <luangruo@yahoo.com>
+
+ Preserve contents of PRIMARY when sending unsupported drop
+
+ * src/xterm.c (x_dnd_send_unsupported_drop): Set local value of
+ PRIMARY to the preexisting selection value, if any.
+
+2022-04-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port Org encode-time usage back to Emacs 25
+
+ * lisp/org/ol.el (org-store-link):
+ * lisp/org/org-clock.el (org-clock-sum)
+ (org-clock-update-time-maybe):
+ * lisp/org/org-colview.el (org-colview-construct-allowed-dates):
+ * lisp/org/org-macro.el (org-macro--vc-modified-time):
+ * lisp/org/org-macs.el (org-2ft, org-matcher-time):
+ * lisp/org/org-table.el (org-table-eval-formula):
+ * lisp/org/org.el (org-read-date, org-display-custom-time)
+ (org-time-string-to-time, org-timestamp-change):
+ Don’t assume Emacs 27 encode-time, since standalone Org still
+ works with Emacs 25 and it’s easier if we minimize differences
+ from standalone Org. Problem reported by Max Nikulin (Bug#54731).
+ This reverts much of 2021-12-16T17:40:21Z!eggert@cs.ucla.edu.
+
+2022-04-05 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Assert that hold_quit is present
instead.
+
+2022-04-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -Wanalyzer-null-dereference
+
+ * src/xterm.c (handle_one_xevent): Don’t dereference HOLD_QUIT if
+ it’s null. Potential problem found with gcc 11.2.1 20220127 (Red
+ Hat 11.2.1-9), when configured with --enable-gcc-warnings.
+
+2022-04-05 Juri Linkov <juri@linkov.net>
+
+ Allow completion wrapping in minibuffer completion navigation commands
+
+ * lisp/minibuffer.el (minibuffer-previous-completion)
+ (minibuffer-next-completion): Don't set completion-wrap-movement.
+
+2022-04-05 Glenn Morris <rgm@gnu.org>
+
+ * test/lisp/ses-tests.el: Require ert-x, for ert-simulate-keys.
+
+2022-04-05 Juri Linkov <juri@linkov.net>
+
+ New commands for navigating completions from the minibuffer.
+
+ * lisp/simple.el (minibuffer-local-shell-command-map):
+ * lisp/minibuffer.el (minibuffer-local-completion-map):
+ Bind "M-<up>" to minibuffer-choose-previous-completion,
+ "M-<down>" to minibuffer-choose-next-completion,
+ "M-S-<up>" to minibuffer-previous-completion,
+ "M-S-<down>" to minibuffer-next-completion,
+ "M-RET" to minibuffer-choose-completion.
+ (with-minibuffer-completions-window): New macro.
+ (minibuffer-previous-completion, minibuffer-next-completion)
+ (minibuffer-choose-previous-completion)
+ (minibuffer-choose-next-completion)
+ (minibuffer-choose-completion): New commands.
+
+ https://lists.gnu.org/archive/html/emacs-devel/2022-03/msg00335.html
+
+2022-04-05 Juri Linkov <juri@linkov.net>
+
+ Use base prefix and suffix instead of completion-base-position
(bug#49931)
+
+ * lisp/minibuffer.el (minibuffer-completion-help):
+ Set completion-base-affixes from base-prefix and base-suffix.
+ In completion-list-insert-choice-function handle
+ string values of start/end as prefix/suffix.
+
+ * lisp/simple.el (completion-base-affixes)
+ (completion-use-base-affixes): New variables.
+ (choose-completion): Let-bind base-affixes to completion-base-affixes.
+ Use base-affixes when completion-use-base-affixes is non-nil.
+ (completion-setup-function): Sync values of base-affixes and
+ completion-base-affixes.
+
+2022-04-05 Juri Linkov <juri@linkov.net>
+
+ Choosing a completion with a prefix argument doesn't exit the minibuffer
+
+ * lisp/simple.el (choose-completion): New optional args NO-EXIT and
NO-QUIT.
+ (bug#47417)
+
+2022-04-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix fallout from lexical-binding in vhdl-mode.el
+
+ * lisp/progmodes/vhdl-mode.el (vhdl-update-sensitivity-list): Fix
+ production of a list with embedded function calls. (Bug#54730)
+
+2022-04-05 Juri Linkov <juri@linkov.net>
+
+ * test/lisp/replace-tests.el: New tests for query-replace (bug#54733)
+
+ * test/lisp/replace-tests.el (query-replace-tests): New defconst.
+ (query-replace--perform-tests): New function.
+ (query-replace-tests, query-replace-search-function-tests): New
ert-deftest.
+
+2022-04-05 Robert Pluim <rpluim@gmail.com>
+
+ Reject invalid time-string in appt-add immediately
+
+ * lisp/calendar/appt.el (appt-add): Check the provided time-string for
+ validity immediately after reading it rather than after reading all
+ the parameters. (Bug#54210)
+
+2022-04-05 Billy.Zheng <vil963@gmail.com> (tiny change)
+ João Távora
+
+ Update invocation for out-of-box dart ls support
+
+ * eglot.el (eglot-server-programs): Tweak dart-mode entry.
+
+ * README.md: Tweak Dart entry.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/862
+
+2022-04-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle remote system processes
+
+ * doc/lispref/files.texi (Magic File Names):
+ Add list-system-processes and process-attributes.
+
+ * doc/lispref/processes.texi (System Processes): Document changes
+ in list-system-processes and process-attributes.
+
+ * doc/misc/tramp.texi (Customizing Completion): Use @ftable.
+ (Remote processes): Document changes in list-system-processes and
+ process-attributes.
+
+ * etc/NEWS: Document changes in proced, list-system-processes and
+ process-attributes.
+
+ * lisp/proced.el (proced-show-remote-processes): New defcustom.
+ (proced-remote-directory): Remove.
+ (proced-filter-alist): Use it.
+ (proced-user-name): New defun.
+ (proced-available): Set it to t.
+ (proced-mode): Adapt docstring.
+ (proced): Adapt docstring. Acknowledge prefix argument.
+ (proced-format): Change initialization of `standard-attributes'.
+ (proced-send-signal, proced-renice): Adapt docstring. Remove
+ special handling of prefix argument.
+
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist):
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Add 'list-system-processes' and `process-attributes'.
+
+ * lisp/net/tramp-integration.el (files-x): Require `files-x'.
+ (tramp-bsd-process-attributes-ps-args)
+ (tramp-bsd-process-attributes-ps-format)
+ (tramp-connection-local-bsd-ps-variables)
+ (tramp-busybox-process-attributes-ps-args)
+ (tramp-busybox-process-attributes-ps-format)
+ (tramp-connection-local-busybox-ps-variables):
+ * lisp/net/tramp-adb.el
(tramp-adb-connection-local-default-ps-variables):
+ New defconsts. Add them to connection-local variables.
+
+ * lisp/net/tramp.el (tramp-file-name-for-operation):
+ Add 'list-system-processes' and `process-attributes'.
+ (tramp-process-attributes-ps-args)
+ (tramp-process-attributes-ps-format): New defconsts.
+ (tramp-ps-time, tramp-get-process-attributes)
+ (tramp-handle-list-system-processes)
+ (tramp-handle-process-attributes): New defuns.
+
+ * src/process.c (Flist_system_processes, Fprocess_attributes):
+ Support remote system processes.
+ (Qlist_system_processes, Qprocess_attributes): Declare symbols.
+
+2022-04-05 Po Lu <luangruo@yahoo.com>
+
+ Mark some data during drag-and-drop
+
+ It doesn't make sense to prevent the return frame or movement
+ frame from being deleted, but we should at least protect them
+ from garbage collection.
+
+ * src/alloc.c (garbage_collect): Call mark_xterm.
+ * src/xterm.c (x_dnd_begin_drag_and_drop)
+ (x_dnd_cleanup_drag_and_drop): Clear movement and return frames
+ upon DND completion.
+ (mark_xterm): Mark those frames.
+ * src/xterm.h: Update prototypes.
+
+2022-04-05 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Fix some details in completions
+
+ * lisp/minibuffer.el (completion--insert-one-column) : Remove the extra
+ new-line at the end.
+ * lisp/simple.el (next-completion) : Fix behavior when
+ completion-wrap-movement and remove bobp and eobp. This removes the
+ extra tab ad the end of the list before wrapping or going to the
+ minibuffer and apparently also fixes bug#54374
+ (switch-to-completions) : Simplify condition code and remove comment not
+ applicable anymore.
+
+2022-04-05 Po Lu <luangruo@yahoo.com>
+
+ Allow dropping text to the root window
+
+ * src/xterm.c (x_dnd_send_unsupported_drop): Allow dropping to
+ the root window.
+ (handle_one_xevent): Send unsupported drops to the last toplevel
+ instead of the target window.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Add support for dragging text onto windows that don't support any DND
protocol
+
+ * src/xselect.c (x_own_selection): Export function.
+ (x_handle_selection_request): Handle selection requests to the
+ pending DND time.
+ (x_set_pending_dnd_time): New function.
+
+ * src/xterm.c (x_dnd_send_unsupported_drop): New function.
+ Implement according to the suggestions in the XDND protocol
+ specification.
+ (x_dnd_get_target_window): Return the toplevel window as well.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop)
+ (x_dnd_update_state, handle_one_xevent): Send unsupported drops
+ and use last seen toplevel instead of target for `return_frame'.
+ * src/xterm.h: Update prototypes.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ * configure.ac (HAVE_GIF): Respect --with-gif on PGTK. (bug#54633)
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Respect new DND options when dragging to ourselves on Haiku
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Allow dragging to
+ the current frame if we know `return-frame' doesn't work.
+ * lisp/term/haiku-win.el (haiku-dnd-drag-handler): New function.
+ * src/haiku_support.cc (MouseMoved): Don't send drag motion
+ events for the drag frame.
+ * src/haikuselect.c (haiku_note_drag_motion_1)
+ (haiku_note_drag_motion_2, haiku_note_drag_motion): New
+ functions.
+ (syms_of_haikuselect): New variable `haiku-drag-track-function'.
+ * src/haikuterm.c (haiku_read_socket): Note mouse motion in that
+ case.q
+ * src/haikuterm.h: Update prototypes.
+
+2022-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/cc-cmds.el (indent-new-comment-line): Delete advice
+
+ This piece of advice was effective only for Emacs<20.1 and old XEmacs
+ (at least older than Aug 2007).
+
+2022-04-04 Damien Cassou <damien.cassou@gmail.com>
+
+ Update use-package.texi
+
+2022-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ OClosure: add support for `slot-value`
+
+ * lisp/emacs-lisp/oclosure.el (oclosure--slot-index)
+ (oclosure--slot-value, oclosure--set-slot-value): New functions.
+
+ * lisp/emacs-lisp/eieio-core.el (eieio-oset, eieio-oref):
+ Consolidate the type test. Use `oclosure--(set-)slot-value`.
+ (eieio--validate-slot-value, eieio--validate-class-slot-value):
+ Don't presume `class` is an EIEIO class.
+ (eieio--class): Fix bogus `:type` info.
+ (eieio--object-class): Simplify.
+ (eieio--known-slot-name-p): New function.
+ (eieio-oref, eieio-oref-default, eieio-oset-default): Use it.
+
+ * test/lisp/emacs-lisp/oclosure-tests.el: Require `eieio`.
+ (oclosure-test): Make `name` field mutable.
+ (oclosure-test-slot-value): New test.
+
+2022-04-04 Vincent Belaïche <vincentb1@users.sourceforge.net>
+
+ SES with case insensitive cell names for jumping.
+
+ * doc/misc/ses.texi (The Basics): Document that ses-jump may be
+ customized.
+ (Customizing @acronym{SES}): Document new customisations for ses-jump.
+
+ * lisp/ses.el (ses-jump-cell-name-function)
+ (ses-jump-prefix-function): New defcustoms.
+ (ses-jump-prefix): New defun.
+ (ses-jump): Make ses-jump use the new defcustoms.
+
+ * test/lisp/ses-tests.el (ses-jump-B2-prefix-arg)
+ (ses-jump-B2-lowcase, ses-jump-B2-lowcase-keys)
+ (ses-jump-B2-symbol, ses-jump-B2-renamed): New tests.
+
+2022-04-04 Mattias Engdegård <mattiase@acm.org>
+
+ Reduce GC mark-phase recursion by using explicit stack (bug#54698)
+
+ An explict stack of objects to be traversed for marking replaces
+ recursion for most common object types: conses, vectors, records, hash
+ tables, symbols, functions etc. Recursion is still used for other
+ types but those are less common and thus not as likely to cause a
+ problem.
+
+ The stack grows dynamically as required which eliminates almost all C
+ stack overflow crashes in the GC. There is also a nontrivial GC
+ performance improvement.
+
+ * src/alloc.c (GC_REMEMBER_LAST_MARKED, GC_CDR_COUNT): New.
+ (mark_char_table, struct mark_entry):
+ Remove (subsumed into process_mark_stack).
+ (struct mark_entry, struct mark_stack, mark_stk)
+ (mark_stack_empty_p, mark_stack_pop, grow_mark_stack)
+ (mark_stack_push_value, mark_stack_push_values)
+ (process_mark_stack): New.
+ (mark_object, mark_objects):
+ Just push the object(s) and let process_mark_stack do the work.
+
+2022-04-04 Jürgen Hötzel <juergen@archlinux.org>
+
+ Use correct signal oldset in posix_spawn implementation
+
+ posix_spawn was restoring the wrong signal set, which still had
+ SIGCHLD and SIGINT masked, causing problems with child processes that
+ spawned child processes. (Bug#54667)
+
+ See the thread ending at
+ https://lists.gnu.org/archive/html/emacs-devel/2022-03/msg00067.html
+ for more details.
+
+ * src/callproc.c (emacs_spawn): Pass oldset parameter.
+ (emacs_posix_spawn_init_attributes): Use correct oldset.
+ (emacs_posix_spawn_init): Remove intermediate function.
+
+2022-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ test/lisp/edmacro-tests.el: Adjust to recent changes
+
+2022-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ edmacro.el: Silence warnings due to kmacro changes
+
+ * lisp/edmacro.el (edit-kbd-macro): Use `kmacro-p` and kmacro accessors.
+ (edmacro-finish-edit): Use `kmacro-p` and the new `kmacro` constructor.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Handle mouse movement correctly during DND from one of our own frames
+
+ * lisp/dnd.el (dnd-handle-movement): Select the window specified
+ in posn.
+ * lisp/term/x-win.el (x-dnd-movement): New function.
+ (x-dnd-movement-function): Set it as the default.
+ * src/frame.c (delete_frame): Prevent deleting the drop source
+ frame.
+ * src/xterm.c (x_dnd_send_position): Set new mouse movement
+ flags if the target window is one of our own frames.
+ (x_dnd_begin_drag_and_drop): Call DND movement function whenever
+ appropriate.
+ (x_free_frame_resources): Remove useless code.
+ (syms_of_xterm): New defvar `x-dnd-movement-function'.
+ * src/xterm.h: Update prototypes.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Fix generation of extra DND events while dragging on Haiku
+
+ * src/haiku_support.cc (be_drag_message): Set new DND flag.
+ (be_drag_and_drop_in_progress): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_read_socket): Don't store DND motion
+ events if DND is in progress.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c: Explain meaning of drag-and-drop state variables.
+
+2022-04-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further fixes for cl--generic-describe and (function ...)
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Fix the #'
+ problem for defmethods, too (bug#54628).
+
+2022-04-04 João Távora <joaotavora@gmail.com>
+
+ Check textdocumentsync/willsave cap before sending it
+
+ * eglot.el (eglot--guess-contact): Default language-id to educated
+ guess when eglot--lookup-mode returns nil.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/823
+
+2022-04-04 João Távora <joaotavora@gmail.com>
+
+ Guess language-id if manually entering server program
+
+ * eglot.el (eglot--guess-contact): Default language-id to educated
+ guess when eglot--lookup-mode returns nil.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/837
+
+2022-04-04 João Távora <joaotavora@gmail.com>
+
+ Tweak eglot mode-line menus
+
+ * eglot.el (eglot-manual): Rename from eglot-read-documentation
+ (eglot-customize): Delete.
+ (eglot-menu): Rename from eglot-menu-map. Rework.
+ (eglot--mode-line-format): Tweak.
+ (eglot-menu-string): Rename from eglot-mode-line-string.
+ (Flymake customization): New source section.
+
+ * NEWS.md: Tweak.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/792
+
+2022-04-04 Felicián Németh <felician.nemeth@gmail.com>
+
+ Rework eglot's mode-line
+
+ Mimic flymake by replacing the old menus of the mode-line with
+ "context menus". List all usefull commands under the main menu
+ (eglot-menu-map), and commands related to LSP debugging under the
+ project menu (eglot-debug-map).
+
+ * eglot.el (eglot-read-documentation, eglot-customize): New
+ commands.
+ (eglot-mode-line-string): New defcustom.
+ (eglot-menu-map, eglot-debug-map,): New variables.
+ (eglot--mode-line-props): Rework to use eglot-menu-map and
+ eglot-debug-map.
+ (eglot--mode-line-format): Use eglot-mode-line-string.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/792
+
+2022-04-04 João Távora <joaotavora@gmail.com>
+
+ Make eglot--plist-keys a simple (non-map.el) helper again
+
+ This removes a nagging compilation warning when developing on Emacs
+ master.
+
+ There's not much point in depending on map.el just for this util. And
+ there' snot much point in making eglot--plist-keys go through a
+ generic dispatching mechanism when we happen to know the thing
+ being dispatched
+
+ * eglot.el (eglot--plist-keys): Define in helpers section.
+
+2022-04-04 Mattias Engdegård <mattiase@acm.org>
+
+ Inline call0..8
+
+ Inlining these trivial functions gives a healthy speed boost to many
+ common functions such as `sort`, `mapcar` etc.
+
+ * src/eval.c (call0, ..., call8): Move functions...
+ * src/lisp.h (call0, ..., call8): ...here and declare them inline.
+
+2022-04-04 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up comparisons between 2 fixnums
+
+ Since <, <=, > and >= have their own byte-ops, the corresponding
+ functions are mostly used as arguments to higher-order functions.
+ This optimisation is particularly beneficial for sorting, where the
+ comparison function is time-critical.
+
+ * src/data.c (Flss, Fgtr, Fleq, Fgeq):
+ * src/fileio.c (Fcar_less_than_car):
+ Fast path for calls with 2 fixnum arguments.
+
+2022-04-04 Mattias Engdegård <mattiase@acm.org>
+
+ Rewrite string-greaterp and string> using string-lessp
+
+ Since string-lessp has its own byte-op, using it is much faster than
+ calling string-greaterp even with the need to bind a temporary
+ variable.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-string-greaterp): New.
+ (string-greaterp, string>): Set byte-optimizer.
+
+2022-04-04 Mattias Engdegård <mattiase@acm.org>
+
+ Faster `string-lessp` for unibyte arguments
+
+ Since this function is commonly used as a sorting predicate
+ where it is time-critical, this is a useful optimisation.
+
+ * src/fns.c (Fstring_lessp): Add fast path for the common case
+ when both arguments are unibyte.
+ * test/src/fns-tests.el (fns-tests--string-lessp-cases)
+ (fns-tests-string-lessp): New test.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Respect frame extents during drag and drop
+
+ * xterm.c (struct x_client_list_window): New fields for frame
+ extents.
+ (x_dnd_compute_toplevels): Set window frame extents.
+ (x_dnd_get_target_window_1): Return None if the mouse is in a
+ frame extent.
+ (x_dnd_get_target_window): Likewise.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Don't baselessly ignore frames after passing through the root window
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop):
+ (handle_one_xevent): Don't rely on target not being None to set
+ x_dnd_return_frame to 2.
+
+2022-04-04 Po Lu <luangruo@yahoo.com>
+
+ Improve behavior of dragging text to windows on top of frames
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new meaning
+ of `return-frame' in `x-begin-drag'.
+ * lisp/mouse.el (mouse-drag-and-drop-region): Use `now' when
+ calling `x-begin-drag'.
+ * src/xfns.c (Fx_begin_drag): Update doc string.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Accept return_frame
+ as a Lisp_Object and handle Qnow correctly.
+ (XTmouse_position): Ignore tooltip frames when processing
+ `drag-source'.
+ (syms_of_xterm): New defsym `now'.
+ * src/xterm.h: Update prototypes.
+
+2022-04-03 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Replace list and vector sorting with TIMSORT algorithm
+
+ * src/Makefile.in (base_obj): Add sort.o.
+ * src/deps.mk (fns.o): Add sort.c.
+ * src/lisp.h: Add prototypes for inorder, tim_sort.
+ * src/sort.c: New file providing tim_sort.
+ * src/fns.c: Remove prototypes for removed routines.
+ (merge_vectors, sort_vector_inplace, sort_vector_copy): Remove.
+ (sort_list, sort_vector): Use tim_sort.
+ * test/src/fns-tests.el (fns-tests-sort): New sorting unit tests.
+
+2022-04-03 Mattias Engdegård <mattiase@acm.org>
+
+ Add optional GC marking function to specpdl unwind_ptr record
+
+ Add a new `record_unwind_protect_ptr_mark` function for use with C data
+ structures that use the specpdl for clean-up but also contain possibly
+ unique references to Lisp objects.
+
+ * src/eval.c (record_unwind_protect_ptr_mark): New.
+ (record_unwind_protect_module, set_unwind_protect_ptr):
+ Set the mark function to NULL.
+ (mark_specpdl): Call the mark function if present.
+ * src/lisp.h (unwind_ptr): Add a mark function pointer to the
+ SPECPDL_UNWIND_PTR case.
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_dnd_get_target_window): Look at root window proxies
too.
+
+2022-04-03 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-undo-close-tab): Update tab-bar-lines
(bug#54684)
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Fix various bugs with mouse dragging on Haiku
+
+ * src/haikuterm.c (haiku_mouse_position): Rewrite so that
+ different track-mouse types can be handled more consistently.
+
+2022-04-03 Eli Zaretskii <eliz@gnu.org>
+
+ Update logs and HISTORY for Emacs 28.1
+
+ * ChangeLog.3:
+ * etc/HISTORY:
+ * etc/AUTHORS: Update for Emacs 28.1 release.
+
+2022-04-03 Jim Porter <jporterbugs@gmail.com>
+
+ Fix handling of '\\' inside double-quotes in Eshell
+
+ Previously, Eshell would get confused and think the following command
+ was unterminated due to the second double-quote looking like it was
+ escaped:
+
+ echo "\\"
+
+ * lisp/eshell/esh-util.el (eshell-find-delimiter): Correct docstring
+ and treat '\' as an escapeable character when using backslash escapes.
+
+ * test/lisp/eshell/eshell-tests.el
+ (eshell-test/escape-special-quoted): Adapt test.
+
+2022-04-03 James Thomas <jimjoe@gmx.net>
+
+ Ensure re-encoding after change in gnus-inews-do-gcc
+
+ * lisp/gnus/gnus-msg.el (gnus-inews-do-gcc): Re-encode the message
+ body if it has been modified by gnus-gcc-pre-body-encode-hook
+ (bug#54687).
+
+2022-04-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Have global minor modes say so in the doc string
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode--arg-docstring): Allow
+ saying whether it's a global minor mode or not.
+ (easy-mmode--mode-docstring): Use it.
+ (define-minor-mode): Pass in the data.
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Implement `drag-source' values of `track-mouse' on PGTK.
+
+ * src/frame.c (Fmouse_position, mouse_position)
+ (Fmouse_pixel_position): Fix crashes when mouse_position_hook
+ stores nil.
+
+ * src/pgtkterm.c (pgtk_mouse_position): Behave appropriately.
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Implement `drag-source' values of track-mouse on NS
+
+ * src/nsterm.m (ns_mouse_position): Don't return frame when
+ appropriate.
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Implement (sort of) `drag-source' on Haiku
+
+ * src/haikuterm.c (haiku_mouse_or_wdesc_frame)
+ (haiku_mouse_position): Behave reasonably when track_mouse is
+ Qdrag_source.
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Make dragging stuff to a window above a frame work
+
+ * doc/lispref/frames.texi (Mouse Tracking):
+ * etc/NEWS: Announce new `drag-source' value of `track-mouse'.
+ * lisp/mouse.el (mouse-drag-and-drop-region): Use new value of
+ `track-mouse' during interprogram drag and drop.
+
+ * src/keyboard.c (make_lispy_position): Handle nil values of f
+ correctly.
+ * src/xdisp.c (define_frame_cursor1): Ignore if `drag-source' as
+ well.
+ (syms_of_xdisp): New defsym `drag-source'.
+ * src/xterm.c (XTmouse_position): Implement `drag-source'.
+ (mouse_or_wdesc_frame): Likewise.
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Don't touch WAYLAND_DISPLAY in browse-url
+
+ * lisp/net/browse-url.el (browse-url): Don't touch
+ WAYLAND_DISPLAY. (bug#53969)
+
+2022-04-03 Po Lu <luangruo@yahoo.com>
+
+ Look for DND proxies on the root window as well
+
+ * src/xterm.c (x_dnd_get_target_window): If nothing was found on
+ the COW, look at the root window.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Implement new DND features on GNUstep
+
+ * lisp/term/ns-win.el (ns-drag-n-drop): Handle special `lambda'
+ drag-n-drop events.
+ * src/nsterm.m: ([EmacsView wantsPeriodicDraggingUpdates]):
+ ([EmacsView draggingUpdated:]): New functions.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Implement new DND options on Haiku
+
+ * lisp/term/haiku-win.el (haiku-drag-and-drop): Handle special
+ drag and drop motion events.
+ * src/haiku_support.cc (MouseMoved): Set `dnd_message' flag.
+ * src/haiku_support.h (struct haiku_mouse_motion_event): New
+ member `dnd_message'.
+ * src/haikuterm.c (haiku_read_socket): Create special DND events
+ when the mouse moves with a drop message.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Add user options to move point and scroll window during DND
+
+ * doc/emacs/frames.texi (Drag and Drop):
+ * etc/NEWS: Document new options 'dnd-scroll-margin' and
+ 'dnd-indicate-insertion-point'.
+ * lisp/dnd.el (dnd-protocol-alist):
+ (dnd-open-remote-file-function):
+ (dnd-open-file-other-window): Add right group to defcustoms.
+ (dnd-scroll-margin, dnd-indicate-insertion-point): New user
+ options.
+ (dnd-handle-movement): New function.
+ * lisp/x-dnd.el (x-dnd-handle-xdnd):
+ (x-dnd-handle-motif): Call `dnd-handle-movement' when
+ appropriate.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif drag-and-drop on servers without XI2
+
+ * src/xterm.c (handle_one_xevent): Pass right flags to the
+ receiver when handling drops for core button events.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Fix incorrect usage of XM_DRAG_SIDE_EFFECT
+
+ * src/xterm.c (xm_send_top_level_leave_message)
+ (handle_one_xevent): Pass corret alt side effects and flags to
+ XM_DRAG_SIDE_EFFECT.
+
+2022-04-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bootstrap errors after previous easy-mmode change
+
+ * lisp/subr.el (ensure-empty-lines, string-lines): Moved from
+ subr-x so that they can be used in early bootstrap files.
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode--mode-docstring):
+ Don't use string-empty-p because of bootstrap issues.
+
+2022-04-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix regression in tex alignment
+
+ * lisp/align.el (align-rules-list): Make alignment in tex mode
+ work better again (bug#54663).
+
+2022-04-02 Sean Whitton <spwhitton@spwhitton.name>
+
+ em-extpipe: Catch eshell-incomplete thrown while parsing
+
+ * lisp/eshell/em-extpipe.el (em-extpipe--or-with-catch): New macro.
+ (eshell-parse-external-pipeline): Use new macro to treat
+ `eshell-incomplete' as a failure of the parse function to move us
+ forward (Bug#54603). Thanks to Jim Porter <jporterbugs@gmail.com> for
+ the report and for help isolating the problem.
+
+ * test/lisp/eshell/eshell-tests.el
+ (eshell-test/lisp-command-with-quote): New test for Bug#54603, thanks
+ to Jim Porter <jporterbugs@gmail.com> (bug#54603).
+
+2022-04-02 August Feng <au.fengster@gmail.com> (tiny change)
+
+ Add S-SPC key sequence to bookmark-bmenu-mode-map
+
+ * lisp/bookmark.el (bookmark-bmenu-mode-map): Add an S-SPC binding
+ for symmetry (bug#54672).
+
+2022-04-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Put the define-minor-mode boilerplate at the end of the doc strings
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode--mode-docstring): Put
+ the boilerplate at the end of the doc string.
+
+2022-04-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further tweaks to cl--generic-describe
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Further
+ tweak the look of the implementation output.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ * lisp/dired.el (dired-mouse-drag): Offer HOST_NAME as well.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when retrieving window property with invalid atom data
+
+ This happens when dropping files from dtfile, which somehow puts
+ non-atom stuff in window properties of type ATOM_PAIR.
+
+ * src/xselect.c (x_atom_to_symbol): Catch errors around
+ XGetAtomName.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Compute size of structs with flexible arrays correctly in Motif DND code
+
+ * src/xterm.c (xm_read_targets_table_rec, xm_setup_dnd_targets):
+ Use FLEXSIZEOF instead of sizeof on struct xm_targets_table_rec.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Fix error on mouse move over something not a window while dragging text
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Handle non-window
+ values of `posn-window' correctly.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Add new option `mouse-drag-and-drop-region-scroll-margin'
+
+ * etc/NEWS: Announce new user option.
+ * lisp/mouse.el (mouse-drag-and-drop-region-scroll-margin): New
+ user option.
+ (mouse-drag-and-drop-region): Implement "scroll margin" like
+ behavior during mouse movement.
+
+2022-04-02 Po Lu <luangruo@yahoo.com>
+
+ Implement DELETE selection target for cross program drags
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Make sure mark
+ stays deactivated if a "cut" operation was performed.
+ * lisp/select.el (xselect-convert-to-delete): Don't clear
+ selection contents if it's the XdndSelection.
+
+2022-04-01 Po Lu <luangruo@yahoo.com>
+
+ Work around dynamic drag bugs in modern Motif
+
+ * src/xterm.c (xm_send_top_level_leave_message): Send a motion
+ event with impossible coordinates by default.
+ (handle_one_xevent): Slightly update drop motion message
+ parameters.
+ (syms_of_xterm): New variable `x-dnd-fix-motif-leave'.
+
+2022-04-01 Po Lu <luangruo@yahoo.com>
+
+ Make Motif drag work on window managers that don't support client lists
+
+ * xterm.c (x_dnd_send_xm_leave_for_drop): New function.
+ (x_dnd_get_wm_state_and_proto): New field `motif_out'.
+ (x_dnd_get_target_window): Return Motif protocol style if
+ looking for windows via XTranslateCoordinates.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop)
+ (x_dnd_update_state, handle_one_xevent): Send toplevel leave
+ along with drops.
+
+2022-04-01 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el (xref-search-program): Fix typo.
+
+2022-04-01 Manuel Uberti <manuel.uberti@inventati.org>
+
+ Support ugrep in xref-search-program-alist
+
+ * lisp/progmodes/xref.el
+ (xref-search-program-alist)
+ (xref-search-program): Add entries for ugrep (bug#54608).
+
+2022-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ kmacro: Represent it as an OClosure
+
+ Merge the old lambda+list into a single OClosure object which plays
+ both roles at the same time. Take advantage of it to provide a
+ `cl-print-object` method so kmacro objects print nicely using the
+ `key-parse` syntax.
+ Also replace the old `kmacro-lambda-form` with a new `kmacro`
constructor
+ which takes a `key-parse` syntax, so that the code inserted with
+ `insert-kbd-macro` is now more readable.
+
+ * lisp/kmacro.el (kmacro): New OClosure type.
+ (kmacro-ring-head): Use `kmacro` constructor.
+ (kmacro-push-ring): Convert `elt` from old representation if needed.
+ (kmacro-split-ring-element, kmacro-view-ring-2nd, kmacro-view-macro):
+ Adapt to new representation.
+ (kmacro-exec-ring-item): Turn into obsolete alias.
+ (kmacro-call-ring-2nd, kmacro-end-or-call-macro): Adjust accordingly.
+ (kmacro-start-macro): Simplify call to `kmacro-push-ring`.
+ (kmacro): New constructor function. Replaces `kmacro-lambda-form`.
+ (kmacro-lambda-form): Use it and declare obsolete.
+ (kmacro-extract-lambda): Rewrite and declare obsolete.
+ (kmacro-p): Rewrite.
+ (cl-print-object): New method.
+ (kmacro-bind-to-key, kmacro-name-last-macro): Simplify.
+
+ * lisp/macros.el (macro--string-to-vector): New function.
+ (insert-kbd-macro): Use it. Generate code using the `kmacro`
constructor.
+
+ * test/lisp/kmacro-tests.el (kmacro-tests-kmacro-bind-to-single-key):
+ Silence warning.
+ (kmacro-tests-name-last-macro-bind-and-rebind): Strengthen the test a
bit.
+ (kmacro-tests--cl-print): New test.
+
+2022-04-01 Augusto Stoffel <arstoffel@gmail.com>
+
+ New user option 'font-lock-ignore'
+
+ * lisp/font-lock.el (font-lock-ignore): New defcustom.
+ (font-lock-compile-keywords): Call 'font-lock--filter-keywords'.
+ (font-lock--match-keyword, font-lock--filter-keywords): New functions,
+ implement the functionality described in 'font-lock-ignore'.
+ * doc/lispref/modes.texi: Describe 'font-lock-ignore'.
+
+2022-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic: Rework obsolescence checks for defmethod
+
+ * lisp/emacs-lisp/cl-generic.el (cl-defgeneric): Silence obsolescence
+ warnings in the included methods.
+ (cl-defmethod): Reuse standard obsolescence checks.
+
+ * lisp/emacs-lisp/seq.el (seq-contains): Remove redundant
+ `with-suppressed-warnings`.
+
+2022-04-01 Ignacio <ignacio.decasso@imdea.org>
+
+ Better check for when clipboard or primary selection have changed
+
+ Previously it was done by just comparing new and old selection
+ text, now we use also selection timestamps for systems that
+ support it (only enabled in X for now). (bug#53894)
+
+ * lisp/select.el: (gui--last-selection-timestamp-clipboard)
+ (gui--last-selection-timestamp-primary): New variables.
+
+ (gui--set-last-clipboard-selection)
+ (gui--set-last-primary-selection)
+ (gui--clipboard-selection-unchanged-p)
+ (gui--primary-selection-unchanged-p): New functions.
+
+2022-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ OClosure: Add support for defmethod dispatch
+
+ * lisp/emacs-lisp/oclosure.el (oclosure--class): Add slot `allparents`.
+ (oclosure--class-make): Add corresponding arg `allparents`.
+ (oclosure, oclosure--build-class): Pass the new arg to the constructor.
+ (oclosure--define): Make the predicate function understand subtyping.
+
+ * lisp/emacs-lisp/cl-preloaded.el (cl--class-allparents): Move from
+ `cl-generic.el`.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-class-parents): Move to
+ `cl-preloaded.el` and rename to `cl--class-allparents`.
+ Adjust all callers.
+ (cl--generic-oclosure-tag, cl-generic--oclosure-specializers): New
functions.
+ (cl-generic-generalizers) <oclosure-struct>: New generalizer.
+
+ * test/lisp/emacs-lisp/oclosure-tests.el (oclosure-test-gen):
+ New generic function.
+ (oclosure-test): Add test for dispatch on oclosure types.
+
+2022-04-01 Po Lu <luangruo@yahoo.com>
+
+ Implement the Motif drag protocol
+
+ * src/xterm.c (struct x_client_list_window): New field
+ `xm_protocol_style'.
+ (xm_top_level_enter_message, xm_drag_motion_message)
+ (xm_top_level_leave_message): New structures.
+ (xm_setup_drag_info, xm_send_top_level_enter_message)
+ (xm_send_drag_motion_message, xm_send_top_level_leave_message):
+ New functions.
+ (x_dnd_compute_toplevels): Compute `xm_protocol_style'.
+ (x_dnd_get_target_window_1, x_dnd_get_target_window): New
+ parameter `motif_out'. Place the xm protocol style in it if
+ necessary.
+ (x_dnd_cleanup_drag_and_drop, x_dnd_begin_drag_and_drop)
+ (x_dnd_update_state, handle_one_xevent): Handle Motif drag
+ protocol messages.
+ (x_free_frame_resources): Cancel Motif drag protocol operations
+ correctly.
+
+2022-04-01 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to their version 2.3.0
+
+ * doc/misc/modus-themes.org (Enable and load): Clarify wording.
+ (Sample configuration with and without use-package): Improve sample
+ code on how to set up the themes.
+ (Customization Options): Update sample configuration.
+ (Option for box buttons, Option for mode line presentation)
+ (Option for completion framework aesthetics)
+ (Option for Org agenda constructs)
+ (Option for the headings' overall style): Document how to optionally
+ pass number values as a cons cell.
+ (Option for mouseover effects): Document new boolean user option.
+ (More accurate colors in terminal emulators): Write about the color
+ range in terminal emulators and provide sample palette for XTerm.
+ (Override colors): Use American English.
+ (Near-monochrome syntax highlighting): Provide sample code on how to
+ achieve a monochrome style.
+ (Full support for packages or face groups)
+ (Indirectly covered packages): Update lists of supported packages.
+ (Note on display-fill-column-indicator-mode): Reword node.
+ (Note on prism.el): Use American English.
+ (Note on SHR colors): Clarify statement.
+ (Note on the Notmuch logo): Remark that the Notmuch logo can be
+ disabled.
+ (Port the Modus themes to other platforms?): Use American English.
+ (Sources of the themes): Fix capitalization of proper nouns.
+ (Acknowledgements): Update list of contributors to the project.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Ensure that the theme is reified
+ as expected both at compiletime and runtime.
+
+ * etc/themes/modus-themes.el (require): Require 'cl-lib' and 'subr-x'
+ at compiletime.
+ (seq): Require the 'seq' library.
+ (modus-themes-completion-standard-first-match)
+ (modus-themes-completion-standard-selected)
+ (modus-themes-completion-extra-selected): Use correct symbol for
+ deprecated faces.
+ (modus-themes-slanted-constructs): Provide it as an alias of
+ 'modus-themes-italic-constructs'.
+ (modus-themes-variable-pitch-headings): Remove obsolete user option.
+ (modus-themes-no-mixed-fonts): Remove obsolete user option alias.
+ (modus-themes-intense-mouseovers): Add new user option.
+ (modus-themes--headings-choice): Accept value as a cons cell.
+ (modus-themes-headings, modus-themes-org-agenda): Update user option
+ to accept number value as a cons cell.
+ (modus-themes-scale-headings, modus-themes-scale-1,
modus-themes-scale-2)
+ (modus-themes-scale-3, modus-themes-scale-4, modus-themes-scale-title)
+ (modus-themes-scale-small): Remove obsolete user options.
+ (modus-themes-mode-line): Update user option to accept number values
+ as cons cells.
+ (modus-themes-mode-line-padding): Remove obsolete user option.
+ (modus-themes-completions): Add support for the 'text-also' property
+ and update it accordingly.
+ (modus-themes-success-deuteranopia): Remove obsolete user option.
+ (modus-themes-box-buttons): Update user option to accept number values
+ as cons cells.
+ (modus-themes--warn, modus-themes--list-or-warn)
+ (modus-themes--alist-or-seq): Add functions to check for correct value
+ in some user options.
+ (modus-themes--current-theme): Return the first Modus theme from
+ 'current-enable-themes' (bug#54598).
+ (modus-themes--lang-check, modus-themes--prompt, modus-themes--paren)
+ (modus-themes--syntax-foreground, modus-themes--syntax-extra)
+ (modus-themes--syntax-string, modus-themes--syntax-comment)
+ (modus-themes--heading, modus-themes--agenda-structure)
+ (modus-themes--agenda-date, modus-themes--mode-line-attrs)
+ (modus-themes--completion, modus-themes--link, modus-themes--link-color)
+ (modus-themes--region, modus-themes--hl-line, modus-themes--button):
+ Make private functions check for the desired value. Refine them where
+ necessary.
+ (modus-themes-faces, modus-themes-custom-variables): Update supported
+ faces and relevant variables.
+
+2022-04-01 Michael Albinus <michael.albinus@gmx.de>
+
+ More robust checks for directory buffers in image-mode
+
+ * lisp/image-mode.el (image-mode--directory-buffers): Apply more
+ robust checks for directory buffers. (Bug#54606)
+
+2022-04-01 Po Lu <luangruo@yahoo.com>
+
+ Only read 16 bytes of motif drag receiver info
+
+ * src/xterm.c (xm_drag_receiver_info): Only read 16 bytes of
+ receiver info.
+ (handle_one_xevent): Fix default XM drop action.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Simplify Haiku drag-and-drop implementation
+
+ * lisp/term/haiku-win.el (x-begin-drag): Bind `mouse-highlight'
+ to nil.
+
+ * src/haikuselect.c (haiku_unwind_drag_message)
+ (Fhaiku_drag_message):
+ * src/haikuterm.h (HAVE_CHAR_CACHE_MAX):
+ * src/xdisp.c (note_mouse_highlight): Delete
+ `haiku_dnd_in_progress' variable.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Support Motif DND help
+
+ * src/xterm.c (x_dnd_xm_use_help): New state variable.
+ (x_dnd_begin_drag_and_drop): Clear new variable.
+ (handle_one_xevent): Set new variable if we get a key press
+ event F1 during the drag-and-drop session, and use help action
+ when dropping onto a Motif program if it is set.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Make dropping files on Motif programs work
+
+ * lisp/dired.el (dired-mouse-drag): Announce "FILE" and
+ "FILE_NAME" as targets as well.
+ * lisp/select.el (xselect-convert-to-filename): Handle
+ XdndSelection specially.
+ (xselect-convert-to-xm-file): New function.
+ (selection-converter-alist): Add new converters.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Avoid extra sync if we didn't get the right wmstate
+
+ * src/xterm.c (x_dnd_get_wm_state_and_proto): Always set proto
+ version.
+ (x_dnd_get_target_window): Optimize accordingly.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Fix a build warning on the non-XI2 build
+
+ * src/xterm.c (xm_read_drop_start_reply): Take a const XEvent as
+ msg.
+
+2022-03-31 Eli Zaretskii <eliz@gnu.org>
+
+ Fix a bug in configure.ac that failed the --without-x build
+
+ * configure.ac (USE_TOOLKIT_SCROLL_BARS): Fix test for unsupported
+ scroll-bars configuration. (Bug#54629)
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif DND on window managers that don't support client lists
+
+ * src/xterm.c (x_dnd_compute_toplevels): Fix usage of
+ `x_uncatch_errors_after_check'.
+ (x_dnd_get_wm_state_and_proto): New function.
+ (x_dnd_get_target_window): Also return first toplevel window
+ found.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Implement missing parts of the Motif drag and drop protocol
+
+ * src/xterm.c (xm_drop_start_reply): New structure.
+ (xm_get_drag_window): Don't grab the server since this leads to
+ weird freezes when creating the drag window.
+ (xm_read_drop_start_reply): New function.
+ (x_dnd_begin_drag_and_drop): Set Motif finish flag to 0.
+ (handle_one_xevent): When starting a motif drop, set the finish
+ flag to 1. When the receiver replies to our drop message, set
+ the finish flag to 2 if the drop was accepted, and only clear
+ the waiting for finish flag when a selection request for
+ XmTRANSFER_SUCCESS or XmTRANSFER_FAILURE arrives.
+ (x_term_init): New atoms.
+ * src/xterm.h (struct x_display_info): New atoms.
+
+2022-03-31 João Távora <joaotavora@gmail.com>
+
+ Protect against empty firsttriggercharacter strings
+
+ Which some LS's like gopls like to send.
+
+ * eglot.el (eglot--post-self-insert-hook): Beware of empty strings.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/906
+
+2022-03-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how functions are formatted in Implementation in *Help*
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Include
+ the function name in the implementations (bug#54628). This
+ clarifies what we're talking about here, and avoids getting
+ (function ...) translated into #'...
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to treatment of `allow_current_frame'
+
+ * src/xterm.c (x_dnd_send_drop): Don't send special event for
+ wrong frame.
+ (x_dnd_send_drop): Fix condition for returning
+ XdndActionPrivate.
+
+2022-03-31 Po Lu <luangruo@yahoo.com>
+
+ Implement Motif drop protocol
+
+ This is the second most widely implemented drag-and-drop
+ protocol on X Windows, but seems to have some unsolvable
+ problems (i.e. stuff will keep accumulating in the drag window
+ as long the target lists keep changing.) The implementation is
+ not yet complete and doesn't work with some programs.
+
+ * lisp/select.el (xselect-convert-xm-special): New functions.
+ (selection-converter-alist): Add new converters.
+ * lisp/x-dnd.el (x-dnd-handle-motif): Ignore messages sent by
+ the receiver.
+ * src/xterm.c (xm_targets_table_byte_order): New enum;
+ (SWAPCARD32, SWAPCARD16): New macros.
+ (xm_targets_table_rec, xm_drop_start_message)
+ (xm_drag_initiator_info, xm_drag_receiver_info): New structures.
+ (XM_DRAG_SIDE_EFFECT, xm_read_targets_table_header)
+ (xm_read_targets_table_rec, xm_find_targets_table_idx)
+ (x_atoms_compare, xm_write_targets_table)
+ (xm_write_drag_initiator_info, xm_get_drag_window)
+ (xm_setup_dnd_targets, xm_send_drop_message)
+ (xm_read_drag_receiver_info): New functions.
+ (x_dnd_compute_toplevels): Correctly free some temp data.
+ (x_dnd_get_window_proxy, x_dnd_get_window_proto)
+ (x_set_frame_alpha): Likewise.
+ (handle_one_xevent): If the window has no XDND proto but has
+ motif drag receiver data, send a motif drop protocol request.
+ (x_term_init): New atoms for Motif DND support.
+ * src/xterm.h (struct x_display_info): Add new atoms.
+
+2022-03-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic: Use OClosures for `cl--generic-isnot-nnm-p`
+
+ Rewrite the handling of `cl-no-next-method` to get rid of the hideous
+ hack used in `cl--generic-isnot-nnm-p` and also to try and move
+ some of the cost to the construction of the effective method rather
+ than its invocation. This speeds up method calls measurably when
+ there's a `cl-call-next-method` in the body.
+
+ * lisp/loadup.el ("emacs-lisp/oclosure"): Load.
+
+ * lisp/emacs-lisp/oclosure.el (oclosure-define): Remove workaround now
+ that we're preloaded.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-method): Rename `uses-cnm`
+ to `call-con` to reflect it's not a boolean any more.
+ (cl-defmethod): Adjust to the new name and new values.
+ (cl-generic-define-method): Adjust to the new name.
+ (cl--generic-lambda): Use the new `curried` calling convention.
+ (cl--generic-no-next-method-function): Delete function.
+ (cl--generic-nnm): New type.
+ (cl-generic-call-method): Rewrite to support the various
+ calling conventions.
+ (cl--generic-nnm-sample, cl--generic-cnm-sample): Delete consts.
+ (cl--generic-isnot-nnm-p): Rewrite using `oclosure-type`.
+ (cl--generic-method-info): Add support for new calling convention.
+
+2022-03-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ EIEIO tests: Fix failure when `eieio-core.el` is interpreted
+
+ * lisp/emacs-lisp/eieio-core.el (eieio--validate-slot-value)
+ (eieio--slot-name-index): Use the `cl--class` accessor functions.
+
+2022-03-30 Andrea Corallo <akrl@sdf.org>
+
+ * src/pdumper.c (dump_get_max_page_size): Rename from
'dump_get_page_size'.
+
+ * src/pdumper.c: Remove getpagesize.h dependecy.
+
+2022-03-30 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend signal-process and proced.el
+
+ * doc/lispref/processes.texi (Signals to Processes):
+ Document changes in signal-process.
+
+ * etc/NEWS: Mention changes in proced.el and signal-process.
+
+ * lisp/proced.el (proced-signal-function): Declare it obsolete.
+ (proced-remote-directory): New user option.
+ (proced-mode): Adapt docstring.
+ (proced-send-signal, proced-renice): Handle interactive prefix argument.
+
+ * lisp/net/tramp.el (tramp-signal-process): New defun. Add it to
+ `signal-process-functions'.
+
+ * src/process.c (Finternal_default_signal_process): New defun,
+ providing the hitherto existing implementation of Fsignal_process.
+ (Fsignal_process): Loop through Vsignal_process_functions.
+ (Vsignal_process_functions): New defvar.
+ (Qinternal_default_signal_process, Qsignal_process_functions):
+ Declare symbols.
+ (Sinternal_default_signal_process): Declare subroutine.
+
+ * test/lisp/net/tramp-tests.el (tramp-test31-signal-process): New test.
+
+2022-03-30 Po Lu <luangruo@yahoo.com>
+
+ Remove local copies of remote files created for drag-and-drop
+
+ * lisp/dired.el (dired-mouse-drag): Remove last dragged remote
+ file and save a record of any local copy created.
+ (dired-remove-last-dragged-local-file): New function.
+
+2022-03-30 Po Lu <luangruo@yahoo.com>
+
+ Ignore mouse movement correctly on Haiku during drag and drop
+
+ * src/haikuselect.c (haiku_unwind_drag_message): New function.
+ (Fhaiku_drag_message): Set `haiku_dnd_in_progress' to false.
+ * src/haikuterm.c (haiku_read_socket): Fix overriding of
+ need_flush when reading events from multiple frames.
+ * src/haikuterm.h (haiku_dnd_in_progress): New variable.
+ * src/xdisp.c (note_mouse_highlight): Ignore if said variable is
+ true.
+
+2022-03-30 Po Lu <luangruo@yahoo.com>
+
+ Prevent signals when dragging nonexistent files on Haiku
+
+ * lisp/term/haiku-win.el (x-begin-drag): Bind
+ `haiku-signal-invalid-refs' to nil.
+ * src/haiku_support.cc (MouseMoved): Send motion events while
+ dragging as well.
+ * src/haikuselect.c (haiku_lisp_to_message): Respect new
+ variable.
+ (syms_of_haikuselect): New variable `haiku-signal-invalid-refs'.
+
+2022-03-29 Po Lu <luangruo@yahoo.com>
+
+ Disallow building with non-toolkit scroll bars on non-X systems
+
+ * configure.ac: Prevent building without toolkit scroll bars on
+ non-X systems, where they're not implemented. (bug#54629)
+
+2022-03-29 Po Lu <luangruo@yahoo.com>
+
+ Avoid calling XGetAtomName in a loop when fetching monitor attributes
+
+ * src/xfns.c (x_get_monitor_attributes_xrandr): Avoid syncing on
+ each monitor when waiting for XGetAtomName when built with XCB.
+
+2022-03-29 Po Lu <luangruo@yahoo.com>
+
+ Add some optimizations to ShapeNotify handling
+
+ * src/xterm.c (handle_one_xevent): Do bounding rect
+ optimizations on ShapeNotify events as well.
+
+2022-03-29 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle process property `remote-command' in Tramp
+
+ * doc/misc/tramp.texi (Remote processes): New subsection "Process
+ properties of asynchronous remote processes".
+
+ * lisp/net/tramp.el (tramp-handle-make-process):
+ * lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-start-file-process):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-make-process)
+ Set `remote-command' process property.
+ (tramp-scp-direct-remote-copying): Rename connection property.
+
+ * test/lisp/net/tramp-tests.el (tramp-test29-start-file-process)
+ (tramp-test30-make-process, tramp-test31-interrupt-process)
+ (tramp--test-async-shell-command): Check process property
+ `remote-command'.
+
+2022-03-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ ipv6 addresses aren't suspicious
+
+ * lisp/international/textsec.el (textsec--ipvx-address-p): New
+ function.
+ (textsec-domain-suspicious-p): Use it to say that ipv6 addresses
+ aren't suspicious (bug#54624).
+
+2022-03-29 Jim Porter <jporterbugs@gmail.com>
+
+ Don't use 'eshell-convert' when all we want is a number
+
+ * lisp/eshell/em-hist.el (eshell/history): Use 'string-to-number'
+ instead of 'eshell-convert'.
+
+ * lisp/eshell/em-basic.el (eshell/umask): Simplify implementation and
+ be more careful about parsing numeric umasks to set.
+
+2022-03-29 Jim Porter <jporterbugs@gmail.com>
+
+ Add tests for Eshell's umask command
+
+ 'em-basic-test/umask-set' fails when passing an actual number to the
+ command, but this is fixed in the subsequent commit.
+
+ test/lisp/eshell/em-basic-tests.el: New file.
+
+2022-03-29 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ Fix eww bookmark writing
+
+ * lisp/net/eww.el (eww-write-bookmarks): Ensure that the complete
+ bookmarks are written (bug#54612).
+
+2022-03-29 João Távora <joaotavora@gmail.com>
+
+ Easier initializationoptions in eglot-server-programs
+
+ Per https://github.com/joaotavora/eglot/issues/845.
+
+ * NEWS.md: Update.
+
+ * eglot.el (eglot-server-programs): Document new syntax.
+ (eglot-initialization-options): Can use initializationOptions from
+ server's saved initargs.
+ (eglot--connect): Allow a plist to be appended to a server
+ contact.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/901
+
+2022-03-29 Po Lu <luangruo@yahoo.com>
+
+ Rewrite desktop workarea computation to avoid too many calls to XSync
+
+ * src/xfns.c (x_get_net_workarea): Rewrite using XCB without
+ using long_offset and long_length, since the data transfer is
+ usually negligible compared to the roundtrip delay.
+
+2022-03-29 Mattias Engdegård <mattiase@acm.org>
+
+ Fix typo in ERC DCC code in verbose mode
+
+ * lisp/erc/erc-dcc.el (erc-dcc-send-block): Typo causing incorrect
+ message when `erc-dcc-verbose` is set.
+
+2022-03-29 João Távora <joaotavora@gmail.com>
+
+ Tweak on-type-formatting code
+
+ * eglot.el (eglot--post-self-insert-hook): Tweak.
+ (eglot-format): Tweak docstring.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/899
+
+2022-03-29 Felicián Németh <felician.nemeth@gmail.com>
+
+ Implement on-type-formatting support
+
+ * eglot.el (eglot-format): Add new optional argument `on-type-format'
+ to request :textDocument/onTypeFormatting, and ...
+ (eglot--post-self-insert-hook): ... call it from here when necessary.
+
+ * eglot-tests.el (eglot--simulate-key-event): New helper defun.
+ (rust-on-type-formatting): New test.
+
+ * NEWS.md: mention feature.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/899
+
+2022-03-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/oclosure.el (oclosure--define): Autoload
+
+2022-03-29 Po Lu <luangruo@yahoo.com>
+
+ Specially decode more selection types on Haiku
+
+ * src/haiku_select.cc (be_get_point_data, be_add_point_data):
+ New functions.
+ * src/haikuselect.c (haiku_message_to_lisp, lisp_to_type_code)
+ (haiku_lisp_to_message): Accept new types `size_t', `ssize_t'
+ and `point'.
+ (Fhaiku_drag_message): Update doc string.
+ (syms_of_haikuselect): New defsyms.
+ * src/haikuselect.h: Update prototypes.
+
+2022-03-29 Po Lu <luangruo@yahoo.com>
+
+ Temporarily fix the oclosure bootstrap
+
+ * lisp/emacs-lisp/oclosure.el (oclosure-define): Load oclosure
+ from source if `oclosure--define' is not defined during byte
+ compilation.
+
+2022-03-28 Po Lu <luangruo@yahoo.com>
+
+ Don't loop through useless region when searching for DND toplevel
+
+ * src/xterm.c (x_dnd_compute_toplevels): Optimize for the
+ bounding rect being the window dimensions.
+
+2022-03-28 Juri Linkov <juri@linkov.net>
+
+ Add search function to search within filenames in Dired and WDired
(bug#14013)
+
+ * lisp/dired-aux.el (dired-isearch-filenames-mode): Use
+ dired-isearch-search-filenames on isearch-search-fun-function
+ instead of dired-isearch-filter-filenames on isearch-filter-predicate.
+ (dired-isearch-filter-filenames): Remove function.
+ (dired-isearch-search-filenames): Add function.
+
+ * lisp/isearch.el (isearch-message-prefix): Add
isearch-search-fun-function
+ to the list of supported advice-functions along with
isearch-filter-predicate.
+
+ * lisp/replace.el (replace-search): Add comment.
+
+ * lisp/wdired.el (wdired-search-replace-filenames): New defcustom.
+ (wdired-isearch-filter-read-only): Remove function.
+ (wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
+ Add and remove dired-isearch-search-filenames on
isearch-search-fun-function
+ instead of wdired-isearch-filter-read-only on isearch-filter-predicate.
+ Also set/unset replace-search-function and replace-re-search-function.
+ Remove and restore isearch-mode-hook with dired-isearch-filenames-setup.
+ The problem is that dired-isearch-filenames-setup adds
+ dired-isearch-filenames-end to isearch-mode-end-hook that removes
+ dired-isearch-search-filenames added to isearch-search-fun-function
+ in wdired-change-to-wdired-mode. Then replace-highlight can't use
+ dired-isearch-search-filenames.
+
+2022-03-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Add OClosures, a cross between functions and structs
+
+ We here just add the new type. It is not fully self-contained.
+ It requires cooperation from `cconv.el` on the one hand, and it
+ hijacks the docstring info to hold the type of OClosure objects.
+ This does imply that OClosures can't have docstrings, tho this
+ limitation will be lifted in subsequent patches.
+
+ * lisp/emacs-lisp/oclosure.el: New file.
+ * test/lisp/emacs-lisp/oclosure-tests.el: New file.
+ * doc/lispref/functions.texi (OClosures): New section.
+
+ * src/eval.c (Ffunction): Accept symbols instead of strings for
docstrings.
+ * src/doc.c (store_function_docstring): Avoid overwriting an OClosure
type.
+ * lisp/emacs-lisp/cconv.el (cconv--convert-function): Tweak ordering of
+ captured variables.
+ (cconv-convert): Add case for `oclosure--fix-type`.
+
+2022-03-28 Po Lu <luangruo@yahoo.com>
+
+ Fix doc of `gui-get-selection' as to what is really valid as `data'
+
+ * doc/lispref/frames.texi (Window System Selections):
+ * lisp/select.el (gui-set-selection): Don't say `data' can be a
+ cons or list of two integers, since that's not supported.
+
+2022-03-28 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to Haiku selection support
+
+ * lisp/term/haiku-win.el (haiku-selection-bounds): New function.
+ (haiku-dnd-convert-string, haiku-select-encode-xstring)
+ (haiku-select-encode-utf-8-string): Handle position pairs
+ correctly.
+ (gui-backend-set-selection): Adjust for new airity.
+ * src/haikuselect.c (Fhaiku_selection_put): Fix arity.
+
+2022-03-28 Po Lu <luangruo@yahoo.com>
+
+ Improve portability of XCB configure checks
+
+ * configure.ac: Look for xcb_aux_sync in -lxcb-aux if it's not
+ in -lxcb-util.
+
+2022-03-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Do not register Tramp file name handlers twice
+
+ * lisp/net/tramp.el (tramp-register-autoload-file-name-handlers):
+ * lisp/net/tramp-archive.el (tramp-register-archive-file-name-handler):
+ Check, whether the real file name handler is already registered.
+
+2022-03-28 Po Lu <luangruo@yahoo.com>
+
+ Avoid extra sync when fetching DND proxy window
+
+ * src/xterm.c (x_dnd_get_proxy_proto): New function.
+ (x_dnd_get_target_window): Use it on XCB to determine window
+ proxy and proto for toplevel window.
+
+2022-03-27 Po Lu <luangruo@yahoo.com>
+
+ Clean up some uses of XInternAtom
+
+ * src/xfns.c (x_set_undecorated, x_set_no_focus_on_map, x_window)
+ (set_machine_and_pid_properties): Move calls to XInternAtom for
+ static string to use previously interned atoms.
+ (Fx_change_window_property): Use XCB if available to avoid extra
+ call to XSync.
+ * src/xterm.c (x_term_init):
+ * src/xterm.h (struct x_display_info): New atoms _MOTIF_WM_HINTS
+ and _NET_WM_PID.
+
+2022-03-27 Felicián Németh <felician.nemeth@gmail.com>
+
+ Map more emacs variables to lsp formattingoptions fields
+
+ * eglot.el (eglot-format): Map require-final-newline to
+ insertFinalNewline and delete-trailing-lines to trimFinalNewlines.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/900
+
+2022-03-27 Po Lu <luangruo@yahoo.com>
+
+ Store latin-1 content into the Haiku clipboard as well
+
+ * lisp/term/haiku-win.el (haiku-normal-selection-encoders): New
+ variable.
+ (haiku-select-encode-utf-8-string, haiku-select-encode-xstring):
+ New functions.
+ (gui-backend-set-selection): Use new selection encoder functions
+ instead of hard-coding UTF-8.
+ (haiku-dnd-handle-drag-n-drop-event): Rename to
+ `haiku-drag-and-drop'.
+
+ * src/haiku_select.cc (be_lock_clipboard_message): Accept new
+ argument `clear'.
+ (be_unlock_clipboard): Accept new argument `discard'.
+
+ * src/haikuselect.c (Fhaiku_selection_data): Change calls to
+ `be_lock_clipboard_message' and `be_unlock_clipboard'.
+ (haiku_unwind_clipboard_lock): New function.
+ (Fhaiku_selection_put): Accept new meaning of `name' which means
+ to set the selection message.
+
+ * src/haikuselect.h: Update prototypes.
+
+2022-03-27 Po Lu <luangruo@yahoo.com>
+
+ Clean up PGTK cursor blanking code
+
+ * src/pgtkterm.c (XTframe_rehighlight): Rename to
+ `pgtk_frame_rehighlight_hook'. All callers changed.
+ (x_toggle_visible_pointer): Rename to
+ `pgtk_toggle_visible_pointer'. All callers changed.
+ (x_setup_pointer_blanking, XTtoggle_invisible_pointer): Delete
+ functions.
+ (pgtk_create_terminal): Use new names for various hooks.
+ (pgtk_term_init): Set up blank cursor directly.
+
+ * src/pgtkterm.h (struct pgtk_display_info): Remove
+ `toggle_visible_pointer'.
+
+2022-03-27 Po Lu <luangruo@yahoo.com>
+
+ Don't wait for XdndFinished messages if the target did not send status
+
+ * src/xterm.c (x_dnd_send_leave): Return if we should wait for a
+ XdndFinished message.
+ (handle_one_xevent): Use that value for
+ `x_dnd_waiting_for_finish'.
+
+2022-03-27 Augusto Stoffel <arstoffel@gmail.com>
+
+ Always run 'isearch-lazy-count-update-hook' with point at match
+
+ * lisp/isearch.el (isearch-lazy-highlight-buffer-update): Run
+ 'isearch-lazy-count-update-hook' outside of save-excursion, so point
+ is at the current match.
+
+2022-03-27 Po Lu <luangruo@yahoo.com>
+
+ Fix processing of DND grab on non-XI2 builds
+
+ * src/xterm.c (handle_one_xevent): Process DND grab flag
+ correctly.
+
+2022-03-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1bef52ce73 * doc/emacs/anti.texi (Antinews): Unannounce removal of Mo...
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Fix no-toolkit build
+
+ * src/xterm.c (x_top_window_to_frame): Declare correctly on
+ no-toolkit builds.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Avoid excessive synchronization when handling ShapeNotify events
+
+ * src/xterm.c (handle_one_xevent): Use XCB to handle ShapeNotify
+ events when we want both the bounding and input rects.
+
+2022-03-26 Marcus Swanson <marcus.swanson91@gmail.com> (tiny change)
+
+ Add omnisharp support for c#
+
+ * eglot.el (eglot-server-programs): Add omnisharp for C#.
+ * README.md: Document the above change.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/897
+
+2022-03-26 Mattias Engdegård <mattiase@acm.org>
+
+ Fix reader infinite recursion for circular mixed-type values
+
+ Make sure that the value added to the `read_objects_completed` set is
+ the one we actually return; previously this wasn't the case for conses
+ because of an optimisation (bug#54501).
+
+ Also add a check for vacuous self-references such as #1=#1# instead of
+ returning a nonsense value from thin air.
+
+ * src/lread.c (read1): Treat numbered conses correctly as described
+ above. Detect vacuous self-references.
+ * test/src/lread-tests.el (lread-test-read-and-print)
+ (lread-test-circle-cases, lread-circle): Add tests.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Enable the native display of BMP images on Haiku
+
+ * src/image.c (syms_of_image): Also register `bmp' image type on
+ Haiku when native image APIs are enabled.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when timer signals or throws inside a popup menu on Haiku
+
+ * src/haikumenu.c (haiku_process_pending_signals_for_menu_1)
+ (haiku_process_pending_signals_for_menu_2): New functions.
+ (haiku_process_pending_signals_for_menu): Catch non local exits
+ around `timer_check'.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Fix processing of emacs:window_id inside DND messages if it already
exists
+
+ * src/haiku_support.cc (MessageReceived): Use DropPoint instead
+ of getting it manually.
+ (be_drag_message): Replace window_id if it already exists.
+
+2022-03-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Don't let Tramp block dired (Bug#54542)
+
+ * lisp/dired.el (dired-find-buffer-nocreate): Avoid avoid hangs in
+ remote buffers with a blocked connection. (Bug#54542)
+
+ * lisp/net/tramp-sh.el (tramp-maybe-open-connection):
+ Extend suppression rules.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to last change
+
+ * src/Makefile.in: Add XSHAPE_LIBS and XSHAPE_CFLAGS.
+ (LIBES, EMACS_CFLAGS): Likewise.
+
+ * src/xterm.c (x_dnd_compute_toplevels): Fix build without
+ HAVE_XCB_SHAPE.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Also fetch shapes via XCB for drag and drop
+
+ * configure.ac: Also look for xcb-shape.
+ * src/xterm.c (HAVE_XCB_SHAPE_INPUT_RECTS): New define.
+ (x_dnd_compute_toplevels): Use XCB for input shapes if possible.
+
+2022-03-26 Eli Zaretskii <eliz@gnu.org>
+
+ Use native image APIs on MS-Windows by default
+
+ * src/w32term.c (syms_of_w32term) <w32-use-native-image-API>: Now
+ t by default on W2K and later systems, but only on WINDOWSNT
+ builds.
+
+ * etc/NEWS: Announce the change.
+
+2022-03-26 Eli Zaretskii <eliz@gnu.org>
+
+ Support display of BMP images on MS-Windows
+
+ * src/w32image.c (w32_can_use_native_image_api): Support BMP
+ images.
+ * src/image.c (syms_of_image) <Qbmp>: New symbol.
+ [HAVE_NTGUI]: Add 'bmp' to list of supported image types.
+
+ * doc/lispref/display.texi (Image Formats): Document built-in
+ support for BMP images.
+
+ * etc/NEWS: Announce the change.
+
+2022-03-26 Eli Zaretskii <eliz@gnu.org>
+
+ Improve 'desktop--emacs-pid-running-p'
+
+ * lisp/desktop.el (desktop--emacs-pid-running-p): Avoid false
+ negatives on MS-Windows and with some symlinks to Emacs
+ executables. (Bug#1474)
+
+2022-03-26 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 4ec9f9edd1 Fix eshell-explicit-command-char doc string typo
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when windows are destroyed by faulty clients
+
+ * src/xterm.c (x_dnd_compute_toplevels): Make sure
+ property_reply is non-NULL before testing its format and length.
+
+2022-03-26 Po Lu <luangruo@yahoo.com>
+
+ Avoid excessive synchronization when initiating drag-and-drop
+
+ * src/xterm.c (x_dnd_compute_toplevels): Use XCB to get WM
+ state, attributes, geometry and to translate coordinates. This
+ avoids 4 calls to XSync.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warning in x-dnd.el
+
+ * lisp/x-dnd.el (x-dnd-xdnd-to-action): Move declaration
+ earlier.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Avoid ClientMessage overhead when dragging stuff to other frames
+
+ * lisp/dired.el (dired-mouse-drag): Handle correctly dragging
+ from dired buffers in nonselected windows.
+ * lisp/x-dnd.el (x-dnd-handle-drag-n-drop-event): Understand new
+ client message type.
+ * src/xterm.c (x_dnd_send_enter, x_dnd_send_position)
+ (x_dnd_send_leave): Ignore if window is the top window of a
+ frame.
+ (x_dnd_send_drop): Send special DND event in that case.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Fix minor issues with dired-mouse-drag-files
+
+ * lisp/dired.el (dired-mouse-drag-files): Update doc string and
+ add setter.
+ (dired-insert-set-properties): Don't insert misleading tooltip
+ if feature is not available.
+
+2022-03-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix (bounds-of-thing-at-point 'number)
+
+ * lisp/thingatpt.el (number): Make (bounds-of-thing-at-point
+ 'number) work (bug#54555).
+
+2022-03-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix reporting of read error line/columns in the init file
+
+ * src/lread.c (invalid_syntax_lisp): The comments here said that
+ we were supposed to be called with point in the readcharfun
+ buffer. This was not the case (at least) when reading the Emacs
+ init file, so the reported line/column was always wrong (1 and 0,
+ respectively) (bug#54550).
+
+2022-03-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve pp-last-sexp ergonomics
+
+ * lisp/emacs-lisp/pp.el (pp-last-sexp): Ignore ,@?
+ before a sexp, because eval-ing that will always lead to an error
+ (bug#54537).
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Implement new drag and drop parameter on Haiku
+
+ * lisp/term/haiku-win.el (x-begin-drag): Implement
+ `allow-current-frame'.
+ * src/haiku_support.cc (be_drag_message): New argument
+ `allow_same_view'.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuselect.c (Fhaiku_drag_message): New parameter
+ `allow-same-frame'.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Allow dragging files from dired to windows on the same frame
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new
+ parameter to `x-begin-drag'.
+ * lisp/dired.el (dired-mouse-drag): Utilize new parameter.
+ * lisp/term/haiku-win.el (x-begin-drag): Add new parameter.
+ * src/xfns.c (Fx_begin_drag): New parameter
+ `allow-current-frame'. Fix typo and update doc string.
+ * src/xterm.c (x_dnd_get_window_proto): Respect
+ `x_dnd_allow_current_frame'.
+ (x_dnd_begin_drag_and_drop): New parameter
+ `allow_current_frame'.
+ * src/xterm.h: Update prototypes.
+
+2022-03-25 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'completion-auto-select'
+
+ * lisp/simple.el (completion-auto-select):
+ * doc/emacs/mini.texi (Completion Options): Improve documentation
+ and description of customization options of 'completion-auto-select'.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Make it easier to select text inside dired when mouse dragging is on
+
+ * lisp/dired.el (dired-insert-set-properties): Only set drag
+ keymap on the filename itself.
+
+2022-03-25 Michael Albinus <michael.albinus@gmx.de>
+
+ * admin/notes/emba: Mention workflow rules for branches.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Fix quitting DND while waiting for finish
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Always clear finish
+ flag before quitting.
+
+2022-03-25 Po Lu <luangruo@yahoo.com>
+
+ Take window shapes into account when processing drag and drop
+
+ * configure.ac: Test for the Nonrectangular Window Shape
+ extension.
+ * msdos/sed1v2.inp: Update.
+ * src/xterm.c (struct x_client_list_window): New fields for
+ shapes.
+ (x_dnd_free_toplevels): Free shapes.
+ (x_dnd_compute_toplevels): Populate window shapes.
+ (x_dnd_get_target_window_2): New function.
+ (x_dnd_get_target_window_1): Test WM state of window before
+ taking it into account.
+ (x_dnd_begin_drag_and_drop): Use outer window as the initial
+ last seen window.
+ (x_dnd_update_state): Small fixes to frame tracking.
+ (handle_one_xevent): Handle ShapeNotify events correctly.
+ (x_term_init): Test for the Nonrectangular Window Shape
+ extension.
+ * src/xterm.h (struct x_display_info): New atom `WM_STATE'.
+
+2022-03-25 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d3d6f1c9bd Clarify the description of "selected tags table"
+
+2022-03-24 Po Lu <luangruo@yahoo.com>
+
+ Use _NET_CLIENT_LIST_STACKING to optimize drag and drop window discovery
+
+ * src/xterm.c (struct x_client_list_window): New struct.
+ (x_dnd_free_toplevels, x_dnd_compute_toplevels)
+ (x_dnd_get_target_window_1): New functions.
+ (x_dnd_get_target_window): Search in the toplevel list if it
+ exists.
+ (x_dnd_cleanup_drag_and_drop): Clean up toplevel list.
+ (x_dnd_begin_drag_and_drop): Compute toplevel list if the
+ window manager supports it.
+ (handle_one_xevent): Update the toplevel list if prudent.
+
+2022-03-24 Philip Kaludercic <philipk@posteo.net>
+
+ Fix wrapping of 'previous-completion' at the beginning of buffer
+
+ * lisp/simple.el (next-completion): Prevent an error of
+ 'previous-completion' at the beginning of completions buffer.
+ Also fix 'previous-completion' to wrap to the last completion.
+ (bug#54374)
+
+2022-03-24 Juri Linkov <juri@linkov.net>
+
+ Small fixes for the new feature 'second-tab' of 'completion-auto-select'
+
+ * lisp/simple.el (completion-auto-select): Extend the docstring.
+
+2022-03-24 João Távora <joaotavora@gmail.com>
+
+ Use bounds of thing at point when asking for code actions
+
+ * eglot.el (eglot--region-bounds): Consider bounds of things at
+ point.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/895
+
+2022-03-24 Augusto Stoffel <arstoffel@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Handle invisible text in Eldoc when calculating size
+
+
+ * lisp/emacs-lisp/eldoc.el (eldoc--echo-area-substring,
+ eldoc-display-in-echo-area): Take invisible text into consideration
+ when counting lines to crop an echo-area message.
+ (Version): Bump.
+
+2022-03-24 Po Lu <luangruo@yahoo.com>
+
+ Allow fetching events from other displays inside DND
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Get the next event
+ from the app connection instead on Xt.
+
+2022-03-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp to dired--insert-disk-space assumptions
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-insert-directory):
+ Do not modify disk space information when
+ `dired--insert-disk-space' is available. (Bug#54512)
+
+2022-03-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix autoinsert.el byte compilation warning
+
+ * lisp/autoinsert.el (sgml-tag): Fix a byte compilation warning.
+
+2022-03-24 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Merge 'completion-auto-select new value secont-tab'
+
+ This includes the second-tab value for completion-auto-select and
+ documentation related.
+
+2022-03-24 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add documentation entries for completion-auto-select user option.
+
+2022-03-24 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add completion-auto-select second-tab value.
+
+ * lisp/minibuffer.el (completion--in-region-1) : Change if with cond and
+ check if completion-auto-select.
+ * lisp/simple.el (completion-auto-select) : Move before first use.
+ (completion-setup-function) : Make a more precise check for when
+ completion-auto-select is t.
+
+2022-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/select.el (xselect-convert-to-targets): Use `delete-dups` and
`delq`
+
+ * lisp/autoinsert.el (auto-insert-alist): Expose lambdas as code
+
+2022-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (archive-*-write-file-member): Fix relative file name
+
+ * lisp/arc-mode.el (archive-*-write-file-member): Set the pwd
+
+2022-03-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Do some NEWS tagging
+
+2022-03-24 Po Lu <luangruo@yahoo.com>
+
+ Avoid crashes if async input arrives when setting properties for DND
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Block input around
+ non-async signal safe functions.
+
+2022-03-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention frame-text-* function in frame-pixel-* doc strings
+
+ * src/frame.c (Fframe_native_width, Fframe_native_height): Link to
+ `frame-text-*' functions.
+
+2022-03-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix image-mode-fit-frame some more
+
+ * lisp/image-mode.el (image-mode-fit-frame): Use frame-text-width
+ and fit-frame-to-buffer instead of computing things ourselves
+ (bug#37630). This makes things work better across platforms.
+
+2022-03-24 Po Lu <luangruo@yahoo.com>
+
+ Fix some bugs with drag and drop and Mozilla
+
+ * src/xfns.c (Fx_begin_drag): Call maybe_quit when iterating
+ through potentially long lists. Also allow specifying
+ XdndActionAsk manually again, since it's useful for debugging.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Delete XdndActionList
+ and XdndActionDescription if they were not specified.
+
+2022-03-24 Stefan Kangas <stefankangas@gmail.com>
+
+ Load desktop without prompting if process is dead
+
+ * doc/emacs/misc.texi (Saving Emacs Sessions): Document the new
+ 'check' value.
+ * etc/NEWS: Announce the change (bug#1474).
+ * lisp/desktop.el (desktop-load-locked-desktop): Add new value 'check'
+ to load desktop file without prompting if locking Emacs process does
+ not exist on the local machine. (Bug#1474)
+ (desktop-read): Extract function from here...
+ (desktop--load-locked-desktop-p): ...to here. New function handles
+ the semantics of 'desktop-load-locked-desktop', including above new
+ value 'check'.
+ (desktop--emacs-pid-running-p): New function.
+
+ * test/lisp/desktop-tests.el: New file with tests for the above.
+
+2022-03-24 Po Lu <luangruo@yahoo.com>
+
+ Fix setter for hl-line-sticky-flag when hl-line is not loaded
+
+ * lisp/hl-line.el (hl-line-sticky-flag): Wrap most of setter
+ around (featurep 'hl-line). Reported by Michael Heerdegen
+ <michael_heerdegen@web.de>.
+
+2022-03-24 Po Lu <luangruo@yahoo.com>
+
+ Allow holding down scroll bar buttons on Haiku when overscrolling
+
+ * src/haiku_support.cc (EmacsWindow): Set appropriate pulse
+ rate.
+ (class EmacsScrollBar, ValueChanged): Don't send any part events
+ here.
+ (MouseDown): Set dragging to a value larger than 1 if the scroll
+ bar is at the end.
+ (Pulse): New method.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Fix an infinite loop if the window manager pings Emacs during DND
+
+ * src/xterm.c (handle_one_xevent): Work around _NET_WM_PING
+ infinite loop during drag and drop.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Fix copying font names around on Haiku
+
+ * src/haiku_font_support.cc (font_style_to_flags)
+ (haiku_font_fill_pattern, BFont_open_pattern)
+ (BFont_populate_fixed_family, BFont_populate_plain_family):
+ * src/haiku_support.cc (be_get_version_string):
+ * src/haikufont.c (haikufont_spec_or_entity_to_pattern): Stop
+ assuming patterns were allocated by xzalloc.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Allow dragging and dropping multiple actions
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new meaning
+ of `action'.
+ * lisp/term/haiku-win.el (x-begin-drag): Correct for new meaning
+ of `action'.
+ * src/xfns.c (Fx_begin_drag): Handle new alist meaning of
+ `action'.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): New parameters
+ `ask_action_list', `ask_action_names' and `n_ask_actions'.
+ * src/xterm.h: Update prototypes.
+
+2022-03-23 Augusto Stoffel <arstoffel@gmail.com>
+
+ Fix regression in isearch-yank-char-in-minibuffer
+
+ * lisp/isearch.el (isearch-yank-char-in-minibuffer): Select the
+ original window in order to restore point. This is needed when
+ minibuffer lazy highlight is in effect.
+
+2022-03-23 Mauro Aranda <maurooaranda@gmail.com>
+
+ Make undigest work with multipart/mixed messages
+
+ * test/lisp/mail/undigest.el: New test file (bug#12873).
+ * lisp/mail/undigest.el (rmail-digest-methods): Install
+ rmail-digest-parse-mixed-mime.
+ (rmail-content-type-boundary): New function, to get a specific
+ Content-type boundary.
+ (rmail-digest-parse-mixed-mime): New function, to search for a
+ multipart/digest message inside a multipart/mixed message.
+
+2022-03-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Make quoting of shell arguments in grep.el more robust
+
+ * lisp/progmodes/grep.el (grep-apply-setting)
+ (grep-compute-defaults): Adapt docstring.
+ (grep-quoting-style): New variable.
+ (grep-compute-defaults, grep-default-command)
+ (grep-expand-keywords, lgrep, rgrep-default-command): Use it.
+
+2022-03-23 Glenn Morris <rgm@gnu.org>
+
+ * doc/misc/eudc.texi (Inline Query Expansion): Unbreak it.
+
+2022-03-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Support changing remoteness of DIR in rgrep and lgrep
+
+ * lisp/net/tramp-sh.el (tramp-get-remote-dev-tty): New defun.
+ (tramp-sh-handle-make-process): Use it.
+
+ * lisp/progmodes/grep.el: Prefer #' to quote named functions.
+ (lgrep, rgrep): Recompute grep defaults when the remoteness of DIR
+ changes.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Improvements to Haiku selection handling
+
+ * lisp/term/haiku-win.el (haiku-selection-targets): Implement in Lisp.
+ * src/haiku_select.cc (be_get_message_type):
+ (be_set_message_type):
+ (be_get_message_message):
+ (be_add_message_message): New functions.
+
+ * src/haiku_support.cc (MessageReceived): Fix typo.
+ * src/haikuselect.c (haiku_selection_data_1)
+ (Fhaiku_selection_targets): Delete functions.
+ (haiku_message_to_lisp, lisp_to_type_code)
+ (haiku_lisp_to_message): Correctly decode and encode nested
+ messages, and fix encoding specially decoded types via numeric
+ names. Also store and decode message types inside Lisp
+ messages.
+ (Fhaiku_drag_message): Update doc string.
+ (syms_of_haikuselect): Update subrs.
+ * src/haikuselect.h: Update prototypes.
+
+2022-03-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reinstate `C-M-<delete>'
+
+ * lisp/bindings.el (global-map): Reinstate `C-M-<delete>' and
+ `C-M-<backspace>' (bug#29430). These used to kill X, but that
+ hasn't been the case in any common GNU/Linux distributions for
+ decades.
+
+2022-03-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix image-mode-fit-frame resizing
+
+ * lisp/image-mode.el (image-mode-fit-frame): Use pixel sizes
+ instead of lines/columns to get more accurate resizing (bug#37630).
+
+2022-03-23 Andreas Schwab <schwab@linux-m68k.org>
+
+ * lisp/term/pgtk-win.el: Update header comment.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Fix hl-line tests
+
+ * lisp/hl-line.el (hl-line-mode): Restore old setter.
+ * test/lisp/hl-line-tests.el (hl-line-tests-verify): Don't rely
+ `cl-some' always returning t on success.
+ (hl-line-tests-sticky-across-frames): Use correct global variable.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ * lisp/calendar/todo-mode.el: Restore old code.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Restore old hl-line code
+
+ * lisp/hl-line.el: Restore old code to remove obsoletions.
+ (hl-line-overlay-priority): Make defcustom.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Allow retrieving some more kinds of clipboard data on Haiku
+
+ * src/haiku_select.cc (BClipboard_find_data): Handle NULL
+ characters inside data correctly.
+ (be_lock_clipboard_message, be_unlock_clipboard): New functions.
+ * src/haikuselect.c (Fhaiku_selection_data): Return entire
+ clipboard contents as a message when clipboard is NULL.
+ (haiku_lisp_to_message): Allow quitting when iterating through
+ potentially large or circular lists.
+ * src/haikuselect.h (enum haiku_clipboard): New enum.
+
+2022-03-23 Po Lu <luangruo@yahoo.com>
+
+ Fix crash in haiku_message_to_lisp
+
+ * src/haikuselect.c (haiku_message_to_lisp): Block input around
+ `free'.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ Handle quitting correctly during interprogram drag-and-drop
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Handle quit
+ correctly by exiting the cross program drag and drop.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Fix test against DND frame.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ Don't allocate duplicate cursors for each frame on Haiku
+
+ * src/haikufns.c (haiku_create_frame)
+ (haiku_free_frame_resources): Stop creating cursors.
+ * src/haikuterm.c (haiku_delete_terminal, haiku_term_init):
+ Create and free cursors here instead.
+ * src/haikuterm.h (struct haiku_display_info): New fields for
+ cursors.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ Improve DND documentation
+
+ * doc/lispref/frames.texi (Drag and Drop):
+ * src/xfns.c (Fx_begin_drag): Document meaning of
+ `XdndActionPrivate'.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ Reported taken action correctly when dragging to another frame on X
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop, x_dnd_update_state)
+ (x_free_frame_resources, handle_one_xevent): Set
+ `x_dnd_end_window'.
+ (x_dnd_begin_drag_and_drop): Return `XdndActionPrivate' if the
+ drop landed on one of our own frames.
+
+2022-03-22 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Refactor gnus/nnselect artlist saving and getting
+
+ * lisp/gnus/nnselect.el (nnselect-generate-run): New function that
+ replaces nnselect-run.
+ (nnselect-store-artlist): New function.
+ (nnselect-get-artlist): Update function.
+ (nnselect-request-group, nnselect-request-thread)
+ (nnselect-request-create-group, nnselect-request-group-scan): Use the
+ new functions.
+ * doc/misc/gnus.texi (Selection Groups): Document artlist storage and
+ retrieval.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ NEWS copy edits
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention highlight-confusing-reorderings in doc string
+
+ * src/xdisp.c (Fbidi_find_overridden_directionality): Mention
+ highlight-confusing-reorderings.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention the other-window-scroll-default user option
+
+ * src/window.c (Fscroll_other_window): Link to
+ other-window-scroll-default in the doc string.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document outline-default-state
+
+ * doc/emacs/text.texi (Outline Visibility): Mention
+ outline-default-state.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Do some NEWS tagging
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document sqlite-mode-open-file and do some NEWS tagging
+
+ * doc/lispref/text.texi (Database): Mention sqlite-mode-open-file.
+
+2022-03-22 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ Enable Better Alignment of EUDC Inline Expansion With RFC5322
+
+ The format of EUDC inline expansion results is formatted according to
+ the variable eudc-inline-expansion-format, which previously defaulted
+ to '("%s %s <%s>" firstname name email).
+
+ Since email address specifications need to comply with RFC 5322 in
+ order to be useful in messages, there was little headroom for users to
+ change this format anyway. Plus, if an EUDC back-end returned an empty
+ first and last name, the result was the email address in angle
+ brackets. Whilst this was standard with RFC 822, it is marked as
+ obsolete syntax by its successor RFC 5322. Also, the first and last
+ name part was never enclosed in double quotes, potentially producing
+ invalid address specifications, which may be rejected by a receiving
+ MTA.
+
+ This commit updates the variable eudc-inline-expansion-format, so that
+ it can, in addition to the current ("format" attributes) list, now
+ alternatively be set to nil, or a formatting function. In both cases
+ the resulting email address is formatted using the new function
+ eudc-rfc5322-make-address, whose results fully comply with RFC 5322.
+
+ If the value is nil (the new default value), eudc-rfc5322-make-address
+ will be called to produce any of the default formats
+
+ ADDRESS
+ FIRST <ADDRESS>
+ LAST <ADDRESS>
+ FIRST LAST <ADDRESS>
+
+ depending on whether a first and/or last name are returned by the
+ query, or not.
+
+ If the value is a formatting function, that will be called to allow
+ the user to supply content for the phrase and comment parts of the
+ address (cf. RFC 5322). Thus one can produce any of the formats:
+
+ ADDRESS
+ PHRASE <ADDRESS>
+ ADDRESS (COMMENT)
+ PHRASE <ADDRESS> (COMMENT)
+
+ This can for example be used to get "last, first <address>" instead of
+ the default "first last <address>".
+
+ In any case when using nil, or the formatting function, the phrase
+ part of the result will be enclosed in double quotes if needed, and
+ the comment part will be omitted if it contains characters not allowed
+ by RFC 5322.
+
+ When eudc-inline-expansion-format remains set to a list as previously,
+ the old behaviour is fully retained.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix two no-X compilation warnings
+
+ * lisp/mouse.el (x-hide-tip, x-show-tip): Declare to avoid no-X
+ build compilation warnings (bug#54524).
+
+ * lisp/term/pgtk-win.el (window-system-initialization): Avoid no-X
+ compilation warning.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a keyboard.c no-X compilation warning
+
+ * src/keyboard.c (make_lispy_position): Fix compilation warning in
+ a --without-x build.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make mail-header-parse-addresses-lax more lax
+
+ * lisp/mail/mail-parse.el (mail-header-parse-addresses-lax): Be
+ more resilient (bug#54523).
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix Completion Options typo
+
+ * doc/emacs/mini.texi (Completion Options): Fix typo.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a shell-filter-ring-bell function
+
+ * lisp/shell.el (shell-mode): Mention it.
+ (shell-filter-ring-bell): New function (bug#21652).
+
+2022-03-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of the new completion-related features
+
+ * etc/NEWS:
+ * lisp/minibuffer.el (completion-auto-help):
+ * doc/lispref/text.texi (Special Properties):
+ * doc/emacs/mini.texi (Completion Options): Fix wording of
+ recently added documentation and customization options.
+
+2022-03-22 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Revert "Set cursor-face-highlight-nonselected-window in completions."
+
+ This reverts commit 1641b5c04c383b5f53298d70776e3c18577b6f30.
+
+ This fixes incorrect highlight in Completions.
+
+2022-03-22 Allen Li <darkfeline@felesatra.moe>
+
+ Add user option for controlling dired-do-shell-command prompt
+
+ * doc/emacs/dired.texi (Shell Commands in Dired): Document option
+ * lisp/dired-aux.el (dired-confirm-shell-command): Add option
+ (dired-do-shell-command): Check option before prompting
+ (bug#29465).
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make eshell link faces more distinctive on 8-color displays
+
+ * lisp/eshell/em-ls.el (eshell-ls-directory):
+ (eshell-ls-symlink): Make the faces be distinctive on 8-colour
+ displays (bug#43615).
+
+2022-03-22 dickmao <dick.r.chiang@gmail.com>
+
+ Restore hl-line--buffer tracking
+
+ * lisp/hl-line.el (hl-line-overlay, hl-line-overlay-buffer):
+ Correct replacement variable.
+ (hl-line--overlay): Clearer doc.
+ (hl-line--buffer): Nee hl-line-overlay-buffer
+ (hl-line-sticky-flag): Custom initialization is unfathomable.
+ (hl-line-mode, hl-line-unhighlight): Orthogonalize sticky.
+ (hl-line-highlight): Remove highlight from previous buffer.
+ * test/lisp/hl-line-tests.el (hl-line-sticky, hl-line-tests-verify):
+ (hl-line-tests-sticky-across-frames, hl-line-tests-sticky):
+ Test (bug#54481).
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix dependency problem in hl-line-sticky-flag"
+
+ This reverts commit 46daf70c4a7ce208ab0b3a7893c042fed5f022c2.
+
+ This is fixed differently in a subsequent patch.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix dependency problem in hl-line-sticky-flag
+
+ * lisp/hl-line.el (hl-line-sticky-flag): Open-code
+ hl-line-unhighlight to avoid recursive dependencies (bug#54481).
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix color-lighten-hsl logic
+
+ * lisp/color.el (color-lighten-hsl): Lighten by percentage,
+ instead of just adding the specified number to the luminance
+ element (bug#54514).
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert todo-mode tests failing after todo-mode reversion
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function image-supported-file-p
+
+ * lisp/image.el (image-type-from-file-name): Make obsolete.
+ (image-supported-file-p): New function that has a more sensible
+ value.
+ (image-type): Adjust caller.
+
+ * lisp/thumbs.el (thumbs-file-size, thumbs-show-image-num): Adjust
+ callers.
+
+ * lisp/mail/rmailmm.el (rmail-mime-set-bulk-data): Adjust caller
+ and logic.
+
+2022-03-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Allow using image-convert to view .bmp images"
+
+ This reverts commit ede8ad507d06a336ce8202927f214aecbaf15d6b.
+
+ This leads to failures for usages of the function where
+ Emacs doesn't have support for the formats.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ Simplify fullscreen management on Haiku
+
+ * src/haiku_support.cc (class EmacsWindow, Zoom, UnZoom): Track
+ zoom state manually instead of guessing what the system
+ currently thinks it is.
+ (MakeFullscreen): Always unzoom first.
+ * src/haiku_support.h (struct haiku_zoom_event): Remove all
+ fields and add a single field `zoomed'.
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame):
+ Remove use of pending_zoom fields.
+ * src/haikuterm.c (haiku_read_socket): Simplify handling of zoom
+ events.
+ (haiku_fullscreen): Simplify handling of different zoom states.
+ * src/haikuterm.h (struct haiku_output): Remove all pending_zoom
+ fields since they are no longer required.
+
+2022-03-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix grep-like functions when running on a remote host
+
+ * doc/lispref/processes.texi (Shell Arguments):
+ * etc/NEWS: Describe change in 'shell-quote-argument'. Fix typos.
+
+ * lisp/subr.el (shell-quote-argument): New optional argument POSIX.
+
+ * lisp/progmodes/grep.el (grep-compute-defaults)
+ (grep-default-command, grep-expand-keywords, lgrep)
+ (rgrep-default-command): Use POSIX argument in
+ `shell-quote-argument'. (Bug#54487)
+
+2022-03-22 Andrea Corallo <akrl@sdf.org>
+
+ * src/comp.c: Few improvements following 71b8f1fc635.
+
+ * src/comp.c (ABI_VERSION): Update.
+ (Fcomp__register_lambda, Fcomp__register_subr): Remove unnecessary
+ check.
+ * src/comp.c (Fcomp__register_lambda, Fcomp__register_subr):
+ Remove unnecessary change.
+
+2022-03-22 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_dnd_get_window_proto): Don't return huge protocols.
+
+2022-03-22 Juri Linkov <juri@linkov.net>
+
+ Merge branch 'feature/completions-customs'
+
+2022-03-21 Po Lu <luangruo@yahoo.com>
+
+ Fix starting Emacs with -mm or -fs on Haiku
+
+ * src/haikuterm.c (haiku_set_window_size): Disallow setting the
+ window size if the frame is fullscreen, like most X window
+ managers.
+
+2022-03-21 Po Lu <luangruo@yahoo.com>
+
+ Fix leak of saved menu event and output data
+
+ * src/xterm.c (x_destroy_window, x_free_frame_resources): Free
+ output data and saved menu event even if display is closed.
+
+2022-03-21 Po Lu <luangruo@yahoo.com>
+
+ Fix unloading the hl-line library
+
+ * lisp/hl-line.el (hl-line-unload-function): Restore function.
+
+2022-03-21 Po Lu <luangruo@yahoo.com>
+
+ Fix incompatible changes in hl-line
+
+ * lisp/hl-line.el (hl-line-face): Rename back to hl-line.
+ (hl-line-face): Restore defcustom.
+
+2022-03-21 Juri Linkov <juri@linkov.net>
+
+ Small fixes for new completions features
+
+ * lisp/minibuffer.el (completions-header-format):
+ Rename from completion-header-format.
+ (completions-highlight, completions-highlight-face):
+ Move up before first use.
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option `diff-entire-buffers'
+
+ * lisp/vc/diff.el (diff-entire-buffers): New user option (bug#54060).
+ (diff-file-local-copy): Use it.
+ (diff-buffers): Mention it in the doc string.
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't break autoload generation of `left-margin' isn't zero
+
+ * lisp/emacs-lisp/autoload.el (make-directory-autoloads): Fix
+ autoload generation breakage is left-margin isn't zero (bug#54491).
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `n' in image-mode work more reliably with external formats
+
+ * lisp/image-mode.el (image-mode): Init the external machinery so
+ that commands like `n' work for those files.
+ * lisp/image/image-converter.el (image-converter-initialize):
+ Factored out into own function.
+ (image-convert-p): Use it.
+ (image-convert): Ditto.
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow specifying the intermediate format
+
+ * lisp/image/image-converter.el (image-convert-to-format): New
+ user format (bug#54494).
+ (image-convert, image-converter--convert-magick)
+ (image-converter--convert): Use it.
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using image-convert to view .bmp images
+
+ * lisp/image.el (image-type-from-file-name): Allow Emacs to fall
+ back on image-convert to display .bmp images (bug#54492).
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerated ldefs-boot.el
+
+2022-03-21 dickmao <dick.r.chiang@gmail.com>
+
+ Rewrite hl-line-mode
+
+ The fashion of dual global and minor modes, each managing a replica of
+ state, has long been outmoded by globalized minor modes (nee
+ easy-mmode-define-global-mode) around the turn of the century.
+
+ * lisp/calendar/todo-mode.el (todo-toggle-item-highlighting,
+ todo-hl-line-range, todo-modes-set-2): Adapt to new
+ hl-line-highlight-hook.
+ * lisp/hl-line.el (hl-line-overlay): Rename hl-line--overlay.
+ (global-hl-line-overlay, global-hl-line-overlays,
+ global-hl-line-sticky-flag, hl-line-overlay-buffer,
+ hl-line-range-function): Obsolesce.
+ (hl-line--overlay): Erstwhile hl-line-overlay.
+ (hl-line, hl-line-face): Consolidate.
+ (hl-line-sticky-flag): Say less (Gen Z Hospital).
+ (hl-line-overlay-priority): Make this a custom.
+ (hl-line-highlight-hook): Prefer hook over specialized
+ hl-line-range-function.
+ (hl-line-mode): Say less (Gen Z Hospital).
+ (hl-line-make-overlay): Remove
+ (hl-line-highlight, hl-line-unhighlight): Rewrite.
+ (hl-line-maybe-unhighlight): Remove.
+ (hl-line-turn-on): Necessary for globalized minor mode.
+ (global-hl-line-mode, global-hl-line-highlight,
+ global-hl-line-highlight-all, global-hl-line-unhighlight,
+ global-hl-line-maybe-unhighlight, global-hl-line-unhighlight-all):
+ Prefer globalized minor mode.
+ (hl-line-move, hl-line-unload-function): Remove.
+ * test/lisp/calendar/todo-mode-tests.el (todo-test-item-highlighting,
+ todo-test-done-items-separator06-bol,
+ todo-test-done-items-separator06-eol,
+ todo-test-done-items-separator07): Adapt to consolidated face.
+
+2022-03-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new face shr-code
+
+ * lisp/net/shr.el (shr-code): New face (bug#54480).
+ (shr-tag-code): Use it.
+
+2022-03-21 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to Haiku DND support
+
+ * src/haiku_support.cc (MessageReceived): If source is remote,
+ don't test window ID.
+ (MouseMoved): Don't send mouse motion if dragging.
+ (be_drag_message): Return true if quit-flag.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuselect.c (haiku_should_quit_drag): New function.
+ (Fhaiku_drag_message): If rc is true, quit.
+
+2022-03-21 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Set cursor-face-highlight-nonselected-window in completions.
+
+ * lisp/simple.el (completion-setup-function) : Sets
+ cursor-face-highlight-nonselected-window to t in Completions.
+
+2022-03-21 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f15922a57c Update to Org 9.5.2-25-gaf6f12
+ 9fcdd5b63f Improve doc strings of read-char-from-minibuffer-insert-* ...
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of input methods during drag-and-drop
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop)
+ (x_dnd_begin_drag_and_drop): Stop removing IC and filter events
+ before dispatching them.
+ (x_filter_event): Actually filter events during DND.
+ (XTread_socket): Verify GenericEvents are actually input
+ extension events before ignoring them.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Make quitting work while DND is waitng for finish
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop):
+ (x_dnd_begin_drag_and_drop, handle_one_xevent)
+ (x_free_frame_resources): Clear waiting for finish flag.
+ (x_filter_event): Don't filter if waiting for DND finish as
+ well.
+
+2022-03-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ Support indentation of Ruby pattern matching expressions
+
+ * lisp/progmodes/ruby-mode.el (ruby-smie-grammar, ruby-smie-rules)
+ (ruby-block-mid-keywords): Treat 'in' token similarly to 'when'.
+
+ * test/lisp/progmodes/ruby-mode-resources/ruby.rb:
+ Add indentation example.
+
+2022-03-20 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Fix imap fetching multiple mailboxes (bug#54158)
+
+ * lisp/gnus/mail-source.el (mail-source-fetch-imap): Variables
+ mailbox-source-string and remove should be reset for each mailbox.
+
+2022-03-20 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS: Mention new hook 'minibuffer-lazy-highlight-setup'.
+
+2022-03-20 Augusto Stoffel <arstoffel@gmail.com>
+
+ Add lazy highlight to 'isearch-edit-string'
+
+ * lisp/isearch.el (isearch-edit-string): Activate lazy highlight and
+ lazy count, provided 'isearch-lazy-highlight' respectively
+ 'isearch-lazy-count' are non-nil.
+
+2022-03-20 Augusto Stoffel <arstoffel@gmail.com>
+
+ Allow lazy highlight and match count while reading from minibuffer
+
+ * lisp/isearch.el (minibuffer-lazy-highlight-setup): New function, can
+ be added to 'minibuffer-setup-hook' to enable lazy highlight and count
+ while reading from minibuffer.
+ (minibuffer-lazy-count-format, minibuffer-lazy-highlight-transform,
+ minibuffer-lazy-highlight--overlay, minibuffer-lazy-highlight--count,
+ minibuffer-lazy-highlight--after-change,
+ minibuffer-lazy-highlight--exit): Auxiliary variables and functions
+ implementing the lazy highlight functionality while reading from
+ minibuffer.
+
+2022-03-20 Augusto Stoffel <arstoffel@gmail.com>
+
+ New hook, lazy-count-update-hook
+
+ * lisp/isearch.el (lazy-count-update-hook): New hook allowing to
+ display the lazy count in special ways.
+ (isearch-lazy-highlight-new-loop,
+ isearch-lazy-highlight-buffer-update): Run `lazy-count-update-hook' at
+ appropriate times.
+ * lisp/comint.el (comint-history-isearch-setup,
+ comint-history-isearch-end): Make sure no lazy count is displayed.
+ * lisp/simple.el (minibuffer-history-isearch-setup): Make sure no lazy
+ count is displayed.
+
+2022-03-20 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-new-tab-to): Don't funcall const values.
+
+ Filter out the values 'clone' and 'window' of 'tab-bar-new-tab-choice'
+ from function call.
+
+2022-03-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend connection-local variables example in Elisp manual
+
+ * doc/lispref/variables.texi (Connection Local Variables):
+ Explain, how to append variable settings to an existing profile.
+
+2022-03-20 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove duplicate INLINE_HEADER_BEGIN
+
+ * src/thread.h: Remove duplicate INLINE_HEADER_BEGIN.
+ Problem reportd by Mattias Engdegård.
+
+2022-03-20 Felicián Németh <felician.nemeth@gmail.com>
+
+ Add simple support for workspacefolders
+
+ Close https://github.com/joaotavora/eglot/issues/893.
+
+ Clients can support workspaceFolders since LSP 3.6. rootUri and
+ rootPath are deprecated. Dynamic changes in folders are not
+ supported, i.e., this patch does not implement
+ workspace/didChangeWorkspaceFolders.
+
+ * eglot.el (eglot-client-capabilities): Add capability
+ `workspaceFolders'.
+ (eglot-workspace-folders): New cl-defgeneric.
+ (eglot--connect): Add workspaceFolders to initializeParams.
+ (eglot-handle-request workspace/workspaceFolders): New cl-defmethod.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Fix confusion of wanted action with actual action on X
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop)
+ (x_dnd_update_state, handle_one_xevent): Differentiate between
+ wanted action and chosen action correctly.
+
+2022-03-20 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix wrong password stored in Tramp
+
+ * lisp/net/tramp.el (tramp-process-actions):
+ Unset `tramp-password-save-function'.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Make DND between frames work properly
+
+ * src/xterm.c (handle_one_xevent): Don't wait for a finish event
+ when dropping on top of another Emacs frame.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Improve compliance with version 5 of the XDND specification
+
+ * src/xterm.c (x_dnd_cleanup_drag_and_drop): New function.
+ (x_dnd_begin_drag_and_drop): Handle selection request events
+ immediately.
+ (handle_one_xevent): Wait for XdndFinished events and return the
+ action chosen there.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Fix some crashes in shut_down_emacs on Haiku
+
+ * src/emacs.c (shut_down_emacs): Stop quitting be app, since
+ it's not always there.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Implement `haiku_delete_terminal'
+
+ * src/haikuterm.c (haiku_delete_terminal): Actually delete the
+ terminal instead of aborting.
+
+2022-03-20 Po Lu <luangruo@yahoo.com>
+
+ Check list tail properly in x-begin-drag
+
+ * src/xfns.c (Fx_begin_drag): Check that TARGETS is actually a
+ proper list.
+ * src/xterm.c (x_dnd_update_state): Remove debugging code.
+
+2022-03-19 Po Lu <luangruo@yahoo.com>
+
+ Fix crash on some compositing managers
+
+ * src/xterm.c (x_dnd_get_target_window): Catch errors around
+ CompositeReleaseOverlayWindow.
+
+2022-03-19 Po Lu <luangruo@yahoo.com>
+
+ Improve behaviour of drag-n-drop during window manager operations
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Select for some
+ events on the root window.
+ (x_dnd_update_state): New function.
+ (handle_one_xevent): Call that function when we get some events
+ from the root window substructure or the window manager.
+ (x_term_init): New atom `_NET_CLIENT_LIST_STACKING'.
+ * src/xterm.h (struct x_display_info): New atom
+ `_NET_CLIENT_LIST_STACKING'.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port to gcc -D EMACS_EXTERN_INLINE
+
+ * src/comp.h, src/thread.h: Add INLINE_HEADER_BEGIN and
+ INLINE_HEADER_END, since it uses INLINE.
+ * src/emacs.c: Include these two files.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ valid_sp inline fix
+
+ * src/bytecode.c (valid_sp): static, not INLINE, as INLINE
+ should be used only in headers and between INLINE_HEADER_BEGIN
+ and INLINE_HEADER_END. No need for ‘inline’ here.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify alloc.c static function decls
+
+ * src/alloc.c: Omit unnecessary static function declarations.
+ Don’t use ‘inline static’ as the C standard says that keyword
+ order is obsolescent. Anyway, no need for ‘inline’ as compilers
+ inline without it well enough.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Make native helper functions static
+
+ These don’t need to be extern, even with -flto, since
+ their addresses are taken.
+ * src/comp.c (helper_unwind_protect, helper_unbind_n)
+ (helper_save_restriction, helper_GET_SYMBOL_WITH_POSITION)
+ (helper_PSEUDOVECTOR_TYPEP_XUNTAG): Now static.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove unused fns/data and make fns static
+
+ * src/comp.c (saved_sigset, helper_temp_output_buffer_setup):
+ Remove; unused.
+ * src/comp.c (logfile, helper_link_table):
+ * src/fns.c (hashfn_equal, hashfn_eql):
+ * src/frame.c (frame_windows_min_size):
+ * src/gnutls.c (emacs_gnutls_global_init):
+ * src/minibuf.c (Vcommand_loop_level_list):
+ * src/syntax.c (syntax_code_spec):
+ * src/timefns.c (time_overflow):
+ * src/xterm.c (x_xrender_color_from_gc_foreground)
+ (x_display_set_last_user_time):
+ Now static, since it’s not used elsewhere.
+ * src/xterm.c (x_xrender_color_from_gc_foreground)
+ (x_xrender_color_from_gc_background): Move earlier to avoid
+ forward use.
+ (x_xrender_color_from_gc_foreground): Do not define unless
+ !defined USE_CAIRO && (RENDER_MAJOR > 0 || RENDER_MINOR >= 2),
+ since it’s not used otherwise.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use filenvercmp instead of doing it by hand
+
+ * src/fns.c (Fstring_version_lessp): Use filenvercmp,
+ not string_version_cmp.
+ (string_version_cmp): Remove; no longer used.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Omit unnecessary code when !HAVE_NATIVE_COMP
+
+ * src/decompress.c (MD5_BLOCKSIZE, acc_buf, acc_size)
+ (accumulate_and_process_md5, final_process_md5, md5_gz_stream):
+ * src/dynlib.c (dynlib_open_for_eln, dynlib_close) [!WINDOWSNT]:
+ * src/fileio.c (internal_delete_file_1, internal_delete_file):
+ Define only if HAVE_NATIVE_COMP && WINDOWSNT,
+ as they’re not used otherwise.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove internal_condition_case_[345]
+
+ * src/comp.c (directory_files_matching) [WINDOWSNT]: New function.
+ (eln_load_path_final_clean_up) [WINDOWSNT]: Use it.
+ This removes the need for internal_condition_case_5.
+ * src/eval.c (internal_condition_case_3)
+ (internal_condition_case_4, internal_condition_case_5): Remove.
+ The first two were never used; the last only in now-removed code.
+
+2022-03-19 Paul Eggert <eggert@cs.ucla.edu>
+
+ Remove sanitize_window_sizes
+
+ * src/window.c (sanitize_window_sizes): Remove; no-longer-used.
+ A previous refactoring moved this to Lisp without removing the C code.
+
+2022-03-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `command-modes' work for (native-compiled) subrs, too
+
+ * lisp/emacs-lisp/comp.el (comp-func): Add a command-modes slot.
+ (comp-spill-lap-function, comp-intern-func-in-ctxt): Fill it.
+ (comp-emit-for-top-level, comp-emit-lambda-for-top-level): Use it.
+
+ * src/alloc.c (mark_object): Mark the command_modes slot.
+
+ * src/comp.c (make_subr): Add a command_modes parameter.
+ (Fcomp__register_lambda): Use it.
+ (Fcomp__register_subr): Ditto.
+
+ * src/data.c (Fcommand_modes): Output the command_modes data for subrs
+ (bug#54437).
+
+ * src/lisp.h (GCALIGNED_STRUCT): Add a command_modes slot.
+
+ * src/pdumper.c (dump_subr): Update hash.
+ (dump_subr): Dump the command_modes slot.
+
+2022-03-19 Po Lu <luangruo@yahoo.com>
+
+ Improve protection against faulty clients during DND
+
+ * src/xterm.c (x_dnd_send_enter, x_dnd_send_position)
+ (xdnd_send_leave, x_dnd_send_drop): Catch errors around call to
+ XSendEvent. The target window could be gone.
+
+2022-03-19 Guy Gastineau <strings.stringsandstrings@gmail.com> (tiny change)
+
+ Remove redundant checks in erc--switch-to-buffer
+
+ * lisp/erc/erc.el (erc--switch-to-buffer): Commit
+ f925fc93bac41d7622d1af927e33b0e738ff55b0 "Add `predicate' arg to
+ `read-buffer' and use it for erc-iswitchb" meant to remove this, but
+ it was left behind. (Bug#53617)
+
+2022-03-19 F. Jason Park <jp@neverwas.me>
+
+ Add unit test for erc--switch-to-buffer
+
+ * test/lisp/erc/erc-tests.el (erc--switch-to-buffer): Add new test.
+ (Bug#53617)
+
+2022-03-19 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ e059d7c Fix region highlight in non-selected windows
+
+2022-03-19 Po Lu <luangruo@yahoo.com>
+
+ Ignore drag source frame on Haiku in line with documentation
+
+ * src/haiku_support.cc (class EmacsWindow): New field
+ `window_id'.
+ (MessageReceived): Ignore dropped messages with same window id.
+ (be_drag_message): Add source frame's window ID to message.
+
+2022-03-19 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c4596c8522 Fix a regression in 'decipher-digram-list'
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Document dired-mouse-drag-files
+
+ * doc/emacs/dired.texi (Misc Dired Features): Explain that
+ dragging files is now supported.
+ * etc/NEWS: Update documentation status.
+ * lisp/dired.el (dired-mouse-drag-files): Fix typo in doc
+ string.
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (XTread_socket): Don't filter GenericEvents.
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Fix some glitches when dragging files from dired
+
+ * lisp/dired.el (dired-mouse-drag-files): Fix initial values.
+
+ (dired-mouse-drag): Clear mark if active and only make button
+ release events unread.
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Handle composite overlay window during drag and drop sessions
+
+ * configure.ac: Test for the composite extension and use it if
+ available.
+ * msdos/sed1v2.inp: Update.
+ * src/Makefile.in (XCOMPOSITE_LIBS, XCOMPOSITE_CFLAGS): New
+ variables.
+ (EMACS_CFLAGS, LIBES): Add new libs and cflags.
+ * src/xterm.c (x_dnd_get_target_window): Look for proxy on
+ composite overlay window if mapped.
+ (x_term_init): Test if the composite extension is available.
+ * src/xterm.h (struct x_display_info): New fields for composite
+ extension presence.
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Fix some XIM servers getting confused during drag-and-drop
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Clear XIC while event
+ loop is in progress.
+ (x_filter_event): Return 0 if DND is in progress.
+ (xim_instantiate_callback): Likewise.
+
+2022-03-18 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ cursor-face-highlight-nonselected-window default to nil
+
+ * lisp/simple.el (redisplay--update-cursor-face-highlight) : Use if-let*
+ and not check facep.
+ (cursor-face-highlight-nonselected-window) : default to nil
+
+2022-03-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-make-closure): Minor
optimization
+
+2022-03-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Pcomplete: Better obey `completion-at-point-functions`
+
+ Functions on `completion-at-point-functions` should not modify
+ the buffer. Pcomplete itself mostly abides by this but Eshell's
+ use of it doesn't. Try and catch those cases. Also fix one of
+ those cases.
+
+ * lisp/pcomplete.el (pcomplete-allow-modifications): New var.
+ (pcomplete-completions-at-point): Enforce it.
+ (pcomplete, pcomplete-expand-and-complete, pcomplete-expand):
+ Rebind it since these commands expect the extra side effects.
+
+ * lisp/eshell/em-cmpl.el (eshell--pcomplete-insert-tab): New function,
+ extracted from `eshell-complete-parse-arguments`.
+ (eshell-complete-parse-arguments): Use it and obey
+ `pcomplete-allow-modifications`.
+
+2022-03-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/gnus/mail-source.el (mail-source-set-1): Fix indent and simplify
+
+2022-03-18 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up fixnum printing
+
+ Use the new number-to-string code to speed up fixnum printing, with
+ similar results (often more than twice as fast as before).
+
+ * src/data.c (Fnumber_to_string): Move fixnum conversion to...
+ (fixnum_to_string): ... this new function.
+ * src/lisp.h: (fixnum_to_string): External declaration.
+ * src/print.c (print_object): Use fixnum_to_string instead of sprintf.
+
+2022-03-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Make application configurable in 'with-connection-local-variables'
+
+ * doc/lispref/variables.texi (Connection Local Variables):
+ Explain 'connection-local-default-application'.
+
+ * etc/NEWS: Mention 'connection-local-default-application'.
+
+ * lisp/files-x.el (connection-local-default-application): New variable.
+ (connection-local-criteria-for-default-directory): Use it. (Bug#54405)
+
+ * test/lisp/files-x-tests.el
+ (files-x-test-with-connection-local-variables): Extend test.
+
+2022-03-18 João Távora <joaotavora@gmail.com>
+
+ Defend against broken move-to-column in recent emacs
+
+ * eglot.el (eglot-lsp-abiding-column): Use (min (point) (point-max))
+
+ This is a defensive fix for an Emacs/company-mode problem described
+ below.
+
+ The problem can be reproduced in Eglot before this commit with:
+
+ ~/Source/Emacs/emacs/src/emacs -Q -f package-initialize -L \
+ ~/Source/Emacs/company-mode -l company -f global-company-mode -l \
+ eglot.el ~/tmp/issue-860/args_out_of_range.c -f eglot -f \
+ display-line-numbers-mode -f toggle-debug-on-error
+
+ 1 // args_out_of_range.c
+ 2 struct Book {
+ 3 int id;
+ 4 char title[50]
+ 5 } book = { 1024, "C" };
+ 6
+ 7 int main(int argc, char *argv[])
+ 8 {
+ 9
+ 10 // Error when typing the dot to make "book."
+ 11 book
+ 12 return 0;
+ 13 }
+
+ When one types the dot after the "book" on line 11, company-mode
+ displays a two-line overlay that visually encompasses line 12 after
+ "book", which has the "return 0;" statement. That line happens to
+ also hold a warning about incorrect syntax, one that starts at column
+ 2.
+
+ Eglot uses 'move-to-column' to go that precise place.
+
+ In Emacs 27.2, move-to-column is unaffected by previous company-mode
+ overlays, even if the current line is being co-used visually by the
+ overlay. It moves to the right buffer position.
+
+ In Emacs master, this isn't true. It seems to be confounded by the
+ company-mode overlay and moves to eob, which eventually breaks Eglot
+ with a backtrace such as this one:
+
+ Debugger entered--Lisp error: (args-out-of-range #<buffer
args_out_of_range.c> 110 124)
+ encode-coding-region(110 124 utf-16 t)
+ (length (encode-coding-region (or lbp (line-beginning-position))
(point) 'utf-16 t))
+ (- (length (encode-coding-region (or lbp (line-beginning-position))
(point) 'utf-16 t)) 2)
+ (/ (- (length (encode-coding-region (or lbp
(line-beginning-position)) (point) 'utf-16 t)) 2) 2)
+ eglot-lsp-abiding-column(110)
+ (- column (eglot-lsp-abiding-column lbp))
+ (setq diff (- column (eglot-lsp-abiding-column lbp)))
+ (progn (setq diff (- column (eglot-lsp-abiding-column lbp))) (not (=
0 diff)))
+ (while (progn (setq diff (- column (eglot-lsp-abiding-column lbp)))
(not (= 0 diff))) (condition-case eob-err (forward-char (/ (if (> diff 0) (1+
diff) (1- diff)) 2)) (end-of-buffer (throw '--cl-block-nil-- eob-err))) (setq
--cl-var-- nil))
+ (let* ((lbp (line-beginning-position)) (diff nil) (--cl-var-- t))
(narrow-to-region lbp (line-end-position)) (move-to-column column) (while
(progn (setq diff (- column (eglot-lsp-abiding-column lbp))) (not (= 0 diff)))
(condition-case eob-err (forward-char (/ (if (> diff 0) (1+ diff) (1- diff))
2)) (end-of-buffer (throw '--cl-block-nil-- eob-err))) (setq --cl-var-- nil))
nil)
+ (catch '--cl-block-nil-- (let* ((lbp (line-beginning-position)) (diff
nil) (--cl-var-- t)) (narrow-to-region lbp (line-end-position)) (move-to-column
column) (while (progn (setq diff (- column (eglot-lsp-abiding-column lbp)))
(not (= 0 diff))) (condition-case eob-err (forward-char (/ (if (> diff 0) (1+
diff) (1- diff)) 2)) (end-of-buffer (throw '--cl-block-nil-- eob-err))) (setq
--cl-var-- nil)) nil))
+ (save-restriction (catch '--cl-block-nil-- (let* ((lbp
(line-beginning-position)) (diff nil) (--cl-var-- t)) (narrow-to-region lbp
(line-end-position)) (move-to-column column) (while (progn (setq diff (- column
(eglot-lsp-abiding-column lbp))) (not (= 0 diff))) (condition-case eob-err
(forward-char (/ (if ... ... ...) 2)) (end-of-buffer (throw '--cl-block-nil--
eob-err))) (setq --cl-var-- nil)) nil)))
+ eglot-move-to-lsp-abiding-column(2)
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/860
+
+2022-03-18 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up number-to-string for fixnums
+
+ Do the binary-to-decimal conversion by hand for fixnums instead of
+ calling sprintf. This results in a noticeable speed increase (on my
+ machine, 2.2× faster excluding GC).
+
+ * src/data.c (Fnumber_to_string): Don't use sprintf for fixnums.
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Implement drag-and-drop of files on Haiku
+
+ * lisp/term/haiku-win.el (haiku-dnd-selection-converters): Add
+ new selection converter.
+ (haiku-dnd-convert-uri-list): New function.
+ (x-begin-drag): Allow selection converters to change message
+ field type.
+
+ * src/haikuselect.c (haiku_lisp_to_message): Perform more error
+ checking.
+
+2022-03-18 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 530c3491e8 Improve documentation of bookmark default sorting
+ 11492259b1 ; * doc/lispref/display.texi (Overlay Arrow): More accurat...
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Allow dragging messages with file names on Haiku
+
+ * src/haiku_select.cc (be_add_refs_data): New function.
+ * src/haikuselect.c (haiku_lisp_to_message): Handle `ref' type
+ correctly.
+ * src/haikuselect.h: Update prototypes.
+
+2022-03-18 Po Lu <luangruo@yahoo.com>
+
+ Allow dragging files from Dired to other programs
+
+ * etc/NEWS: Announce new user option `dired-mouse-drag-files'.
+ * lisp/dired.el (dired-mouse-drag-files): New user option.
+ (dired-mouse-drag): New command.
+ (dired-mouse-drag-files-map): New variable.
+ (dired-insert-set-properties): Add additional keymap if mouse
+ dragging is enabled.
+
+ * lisp/select.el (xselect-convert-to-targets): Handle new
+ form of selection converters.
+ (xselect-convert-to-username):
+ (xselect-convert-to-text-uri-list):
+ (xselect-uri-list-available-p): New functions.
+ (selection-converter-alist): Add them as selection converters.
+
+ * src/xselect.c (x_get_local_selection): Handle new form of
+ selection converters.
+ (syms_of_xselect): Update doc strings.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ Minor fixes to DND support
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Free targets
+ afterwards.
+ (handle_one_xevent): Only calculate dnd_grab if DND is in
+ progress.
+
+2022-03-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Remove some early-bootstrap dependencies for `advice`
+
+ The dependencies between `advice`, cl-generic`, `bytecomp`, `cl-lib`,
+ `simple`, `help`, ... were becoming unmanageable.
+ Break the reliance on `advice` (which includes making sure the
+ compiler is not needed during the early bootstrap).
+
+ * lisp/simple.el (pre-redisplay-function): Set without using
`add-function`.
+
+ * lisp/loadup.el (advice, simple): Move to after `cl-generic`.
+
+ * lisp/help.el (command-error-function): Set without using
`add-function`.
+ (help-command-error-confusable-suggestions): Explicitly call
+ `command-error-default-function` instead.
+
+ * lisp/emacs-lisp/cl-macs.el (pcase--mutually-exclusive-p): Don't
+ optimize during early-bootstrap.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Tiny
simplification.
+ (cl-defmethod): Label the obsolescence warning as it should.
+ (cl--generic-compiler): New variable.
+ (cl--generic-get-dispatcher): Use it.
+ (cl--generic-prefill-dispatchers): Make freshly made dispatchers.
+
+2022-03-17 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add new variable cursor-face-highlight-nonselected-window
+
+ * lisp/simple.el (cursor-face-highlight-nonselected-window) : New
+ custom default to cursor-in-non-selected-windows.
+ (redisplay--update-cursor-face-highlight) : Extend highlight condition
+ to consider the new variable.
+
+2022-03-17 Mattias Engdegård <mattiase@acm.org>
+
+ Put bytecode stack frame metadata in a struct
+
+ Using a plain C struct instead of type-punning Lisp_Object stack slots
+ makes the bytecode interpreter code more type-safe and potentially
+ faster (from better alias analysis), and the special-purpose accessors
+ are no longer needed. It also reduces the stack requirements when
+ using 64-bit Lisp_Object on 32-bit platforms.
+
+ * src/bytecode.c (enum stack_frame_index)
+ (sf_get_ptr, sf_set_ptr, sf_get_lisp_ptr, sf_set_lisp_ptr,
+ sf_get_saved_pc, sf_set_saved_pc): Remove.
+ (BC_STACK_SIZE): Now in bytes, not Lisp words.
+ (struct bc_frame): New.
+ (init_bc_thread, mark_bytecode, Finternal_stack_stats, valid_sp)
+ (exec_byte_code):
+ * src/lisp.h (struct handler, get_act_rec, set_act_rec):
+ Adapt to new struct bc_frame.
+
+2022-03-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore HOME after mailcap-parsing-and-mailcap-mime-info
+
+ * test/lisp/net/mailcap-tests.el
+ (mailcap-parsing-and-mailcap-mime-info): Restore HOME after the
+ test (bug#54435).
+
+2022-03-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Enable Tramp reloading
+
+ * lisp/net/tramp.el (tramp-file-name): Add ;;;###tramp-autoload
+ cookie. (Bug#50869)
+
+ * test/lisp/net/tramp-tests.el (tramp-test47-unload): Do not skip.
+ Test reload.
+
+2022-03-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-generic.el (cl-defgeneric): Warn suspicious args
+
+2022-03-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid repeated prompts in `M-x shell' if using ~/.emacs_bash
+
+ * lisp/shell.el (shell): Use `shell-eval-command' to avoid
+ repeated prompts (bug#9961).
+
+2022-03-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make shell-resync-dirs work with zsh
+
+ * lisp/shell.el (shell-resync-dirs): Use shell-eval-command to
+ avoid getting confused by zsh (bug#54384).
+ (shell-eval-command): New function.
+
+2022-03-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (seq-contains-p): Refine the non-nil returned value
+
+ * lisp/emacs-lisp/seq.el (seq-contains-p): Like `cl-some` return the
+ value returned by the test function rather than t.
+
+2022-03-17 Philipp Stephani <phst@google.com>
+
+ Fix a use of 'cl-defgeneric'.
+
+ * lisp/progmodes/xref.el (xref-match-length): Use 'cl-defmethod'
+ instead of 'cl-defgeneric'.
+
+2022-03-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `?' work again in read-multiple-choice
+
+ * lisp/emacs-lisp/rmc.el (read-multiple-choice): Make the `?' key
+ work again to show the help text.
+
+2022-03-17 Felician Nemeth <felician.nemeth@gmail.com>
+
+ Format long help texts better in read-multiple-choice
+
+ * lisp/emacs-lisp/rmc.el (rmc--show-help): Format long help texts
+ better (bug#54430).
+
+2022-03-17 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Improve propagation of gnus/nnselect group info
+
+ * lisp/gnus/nnselect.el (nnselect-push-info): Speed up pushing the
+ nnselect info back to the originating groups.
+
+2022-03-17 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Fix bug in nnselect fetching new articles in a thread
+
+ * lisp/gnus/nnselect.el (nnselect-request-thread): Ignore the
+ Retrieval Status Value in comparing whether articles are the same.
+
+2022-03-17 Sean Whitton <spwhitton@spwhitton.name>
+
+ Don't use the original sender's address as the envelope-from
+
+ * lisp/gnus/message.el (message-resend): Avoid setting the
+ envelope-from to the original sender's address rather than the
+ resender's (bug#54429).
+
+2022-03-17 Arash Esbati <arash@gnu.org>
+
+ Improve LaTeX symbol prettification
+
+ * lisp/textmodes/tex-mode.el (tex--prettify-symbols-alist):
+ Support macros which used to be part of textcomp package.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ Prevent invisible frames from acting as drag sources
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Error out if f is
+ invisible. It makes no sense for an invisible frame to be a
+ drag source, so the function just hangs.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuselect.c (Fhaiku_drag_message): Clear display grab after
drag ends.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ Fix creating frames with an initial value of `fullscreen' on Haiku
+
+ * src/haikufns.c (haiku_create_frame): Set configury_done and do
+ pending fullscreen change if any.
+ * src/haikuterm.c (haiku_fullscreen): Defer actually setting
+ fullscreen until configury_done is set.
+ * src/haikuterm.h (struct haiku_output): New field
+ `configury_done'.
+
+2022-03-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Do not cache directories with Tramp sshfs
+
+ * lisp/net/tramp-sshfs.el (tramp-methods) <sshfs>:
+ Add "-o dir_cache=no" to `tramp-mount-args'. (Bug#54126)
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse movement on Haiku
+
+ * src/haiku_support.cc (MouseMoved): Make sure grab view exists
+ before comparing against it.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ Display drag-and-drop messages in echo area on non-graphics displays
+
+ * lisp/mouse.el (mouse-drag-and-drop-region-display-tooltip)
+ (mouse-drag-and-drop-region-hide-tooltip): New functions.
+ (mouse-drag-and-drop-region): Use them instead of calling
+ `x-hide-tip' and `x-show-tip' directly.
+
+2022-03-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix compilation error of xterm.c
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Use current_count only
+ if defined. Reported by Tassilo Horn <tsdh@gnu.org>.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ Prevent delivery of duplicate events when window is grabbed on Haiku
+
+ * src/haiku_support.cc (grab_view, grab_view_locker): New
+ variables.
+ (MouseMoved, MouseDown, MouseUp): Keep track of the grab and
+ don't deliver motion events to any other view.
+
+2022-03-17 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Always initialize hold_quit.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Restore old PGTK scrolling code
+
+ * src/pgtkterm.c (pgtk_copy_bits): Restore old code using
+ cairo_surface_create_similar. (bug#54040)
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Make GTK inspector available on PGTK
+
+ * src/pgtkfns.c (Fx_gtk_debug): New function.
+ (syms_of_pgtkfns): Define new subr.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ * lisp/term/haiku-win.el (x-begin-drag): Fix type code of B_MIME_TYPE.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Implement cross-program drag-and-drop on Haiku
+
+ * doc/lispref/frames.texi (Drag and Drop): Fix documentation of
+ `x-begin-drag' to match actual function arity.
+ * lisp/term/haiku-win.el (haiku-dnd-selection-value): New
+ variable.
+ (haiku-dnd-selection-converters): New variable.
+ (haiku-dnd-convert-string): New function.
+ (gui-backend-get-selection, gui-backend-set-selection): Handle
+ XdndSelection specially.
+ (x-begin-drag): New function.
+
+ * src/haiku_select.cc (be_create_simple_message)
+ (be_add_message_data): New functions.
+ * src/haiku_support.cc (WAIT_FOR_RELEASE): New message type.
+ (class EmacsView, MouseUp): If waiting for release, reply and
+ drop event.
+ (be_drag_message, be_drag_message_thread_entry): New functions.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikuselect.c (lisp_to_type_code, haiku_lisp_to_message)
+ (Fhaiku_drag_message): New functions.
+ (syms_of_haikuselect): Define new subr.
+
+ * src/haikuselect.h: Update prototypes.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Improve GTK support for X11 drag-n-drop
+
+ * src/xterm.c (x_dnd_begin_drag_and_drop): Run nested GTK event
+ loop instead, so GTK gets the correct events.
+
+2022-03-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify generate-new-buffer-name randomness
+
+ * src/buffer.c (Fgenerate_new_buffer_name):
+ Simplify by calling get_random instead of Frandom;
+ that’s random enough here.
+
+2022-03-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve random bignum generation
+
+ * src/bignum.c (get_random_limb, get_random_limb_lim)
+ (get_random_bignum): New functions, for more-efficient
+ generation of random bignums without using Frem etc.
+ * src/fns.c (get_random_fixnum): New function.
+ (Frandom): Use it, and get_random_bignum.
+ Be consistent about signalling nonpositive integer arguments;
+ since zero is invalid, Qnatnump is not quite right here.
+ * src/sysdep.c (get_random_ulong): New function.
+
+2022-03-16 Alan Mackenzie <acm@muc.de>
+
+ Strip positions from symbols before the eval in eval-{when,and}-compile.
+
+ This fixes bug #54079.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment):
Change
+ the position of 'byte-run-strip-symbol-positions' in the
eval-when-compile
+ entry. Add a call to `byte-run-strip-symbol-positions' in the
+ eval-and-compile entry.
+
+2022-03-16 Robert Pluim <rpluim@gmail.com>
+
+ Report buffer-name when local mode-line is invalid
+
+ * lisp/files.el (hack-local-variables-prop-line): Add '(buffer-name)'
+ to the message reporting the malformed mode-line.
+
+2022-03-16 Robert Pluim <rpluim@gmail.com>
+
+ Guard against custom entries that can contain NULs
+
+ There are custom entries that contain lambda's as values by default,
+ which can result in them containing embedded NULs after
+ byte-compilation, which wreaks havoc when they are saved to .emacs and
+ later read in. (Bug#52554)
+
+ * lisp/cus-edit.el (custom-save-all): Bind
+ print-escape-control-characters to t.
+ * lisp/startup.el (startup--load-user-init-file): Bind
+ inhibit-null-byte-detection to t.
+
+2022-03-16 Robert Pluim <rpluim@gmail.com>
+
+ Improve error message for 'not running' processes
+
+ The current error message is simply 'not running', but
+ 'status_message' can give information about why the process is in that
+ state, such as network errors, so return that as well. (Bug#53762)
+
+ * src/process.c (send_process, Fprocess_send_eof): Add the output of
+ 'status_message' to the error string.
+
+2022-03-16 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ * lisp/net/tramp-sh.el (tramp-find-file-exists-command): Fix comment.
+
+2022-03-16 Robert Pluim <rpluim@gmail.com>
+
+ Link with libdl when using pgtk
+
+ * configure.ac: Define LIBMODULES on GNU/Linux when using pgtk, even
+ when not using modules, since pgtkterm.c uses dlsym. (Bug#54378)
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ * doc/lispref/frames.texi (x-begin-drag): Improve wording.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Fix 32-bit Haiku build
+
+ * src/haikuselect.h (be_enum_message): Fix declaration for
+ 32-bit types.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Add support for dropping plain text on Haiku
+
+ * haiku-win.el (haiku-dnd-handle-drag-n-drop-event): Handle
+ `text/plain'.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Redo Haiku DND support
+
+ * lisp/term/haiku-win.el (haiku-dnd-handle-drag-n-drop-event):
+ Update for new DND event format.
+ * src/haiku_io.c (haiku_len): Handle DRAG_AND_DROP_EVENTs.
+ * src/haiku_select.cc (be_enum_message, be_get_refs_data)
+ (be_get_message_data): New function.
+ * src/haiku_support.cc (class Emacs): Remove `RefsReceived'.
+ (MessageReceived): Generate new kind of drag-n-drop events.
+ * src/haiku_support.h (enum haiku_event_type): Rename
+ `REFS_EVENT' to `DRAG_AND_DROP_EVENT'.
+ (struct haiku_refs_event): Delete struct.
+ (struct haiku_drag_and_drop_event): New struct.
+ * src/haikuselect.c (haiku_message_to_lisp): New function.
+ (syms_of_haikuselect): New symbols.
+ * src/haikuselect.h: Update prototypes.
+ * src/haikuterm.c (haiku_read_socket): Handle new type of
+ drag-and-drop events by serializing drop message to Lisp and
+ letting Lisp code do the processing.
+ * src/haikuterm.h: Update prototypes.
+
+2022-03-16 Eli Zaretskii <eliz@gnu.org>
+
+ Fix last change in frames.texi
+
+ * doc/lispref/frames.texi (Drag and Drop): Improve and clarify the
+ wording.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Pacify compiler warning in handle_one_xevent
+
+ * src/xterm.c (x_dnd_get_target_window): Set proto_out even if
+ it won't be used because target is None. Reported by Lars
+ Ingebrigtsen <larsi@gnus.org>.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Correct last change for return-frame drags
+
+ * src/xterm.c (handle_one_xevent): Use `x_any_window_to_frame'
+ to determine `x_dnd_return_frame_object'.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Fix minor bugs with XDND support
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Report more
+ selection targets for the benefit of Qt and Mozilla.
+ * lisp/select.el (xselect--encode-string)
+ (selection-converter-alist): Add new selection targets.
+
+ * src/xterm.c (x_dnd_get_window_proxy): New function.
+ (x_dnd_get_target_window): New argument proto_out, and return
+ first window with XdndAware instead of bottommost window.
+ (handle_one_xevent): Use new argument `proto_out'.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Fix XI 2.0 build
+
+ * src/xterm.c (handle_one_xevent): Move declaration of dummy out
+ of HAVE_XINPUT2_1.
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Fix tooltip text properties showing up in dragged text
+
+ * lisp/mouse.el (mouse-drag-and-drop-region): Directly call
+ x-show-tip and x-hide-tip instead of going through tooltip-show.
+
+2022-03-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 62e830c3d9 * doc/misc/transient.texi: Fix @dircategory to "Emacs misc...
+
+2022-03-16 Po Lu <luangruo@yahoo.com>
+
+ Better handle drag-and-drop from one Emacs frame to another
+
+ * doc/lispref/frames.texi (Drag and Drop): Document new
+ parameter `return-frame' to `x-begin-drag'.
+ * lisp/mouse.el (mouse-drag-and-drop-region): Utilize new
+ feature.
+
+ * src/xfns.c (Fx_begin_drag): New parameter `return-frame'.
+ * src/xterm.c (x_dnd_begin_drag_and_drop): New parameter
+ return_frame_p.
+ (handle_one_xevent): Set new flags and return frame whenever
+ appropriate.
+ * src/xterm.h: Update prototypes.
+
+2022-03-15 Po Lu <luangruo@yahoo.com>
+
+ * src/xfns.c (Fx_begin_drag): Improve doc string.
+
+2022-03-15 Po Lu <luangruo@yahoo.com>
+
+ Add support for dragging text from Emacs to other programs
+
+ This still probably needs some more protection from
+ malfunctioning clients which delete windows at random, but I
+ don't know if that's a problem in practice.
+
+ * doc/emacs/frames.texi (Drag and Drop):
+ * doc/lispref/frames.texi (Drag and Drop): Document new
+ features.
+
+ * etc/NEWS: Announce new function `x-begin-drag' and new user
+ option `mouse-drag-and-drop-region-cross-program'.
+
+ * lisp/mouse.el (mouse-drag-and-drop-region-cross-program): New
+ user option.
+ (x-begin-drag): New variable declaration.
+ (mouse-drag-and-drop-region): If the mouse moves out of an Emacs
+ frame, begin a window system drag.
+ * lisp/x-dnd.el (x-dnd-handle-xdnd): Remove left-over debugging
+ code.
+
+ * src/xfns.c (Fx_set_mouse_absolute_pixel_position): Fix
+ indentation of opening paren.
+ (Fx_begin_drag): New function.
+ (syms_of_xfns): Define new subr.
+ * src/xselect.c (x_timestamp_for_selection): New function.
+
+ * src/xterm.c (X_DND_SUPPORTED_VERSION): New preprocessor
+ declaration.
+ (x_dnd_get_window_proto, x_dnd_send_enter, x_dnd_send_position)
+ (x_dnd_send_leave, x_dnd_send_drop, x_set_dnd_targets)
+ (x_dnd_begin_drag_and_drop): New functions.
+ (handle_one_xevent): Handle drag-and-drop motion and button
+ events when active.
+ (x_free_frame_resources): If f is the DND source, stop
+ drag-and-drop.
+ (x_term_init): Intern new atoms.
+ (syms_of_xterm): New symbol QXdndSelection.
+
+ * src/xterm.h (struct x_display_info): New atoms
+ Xatom_XdndAware, Xatom_XdndSelection, Xatom_XdndTypeList,
+ Xatom_XdndActionCopy, Xatom_XdndActionMove,
+ Xatom_XdndActionLink, Xatom_XdndActionAsk,
+ Xatom_XdndActionPrivate, Xatom_XdndActionList,
+ Xatom_XdndActionDescription, Xatom_XdndProxy, Xatom_XdndEnter,
+ Xatom_XdndPosition, Xatom_XdndStatus, Xatom_XdndLeave,
+ Xatom_XdndDrop, and Xatom_XdndFinished.
+
+2022-03-15 Po Lu <luangruo@yahoo.com>
+
+ Fix build with GTK 3.18.0 or earlier
+
+ * src/gtkutil.c (xg_update_scroll_bar_pos)
+ (xg_update_horizontal_scrollbar_pos): Avoid
+ gtk_widget_queue_allocate on older GTK versions.
+
+2022-03-15 Eli Zaretskii <eliz@gnu.org>
+
+ Clean up implementation of N0 per UAX#9
+
+ * src/bidi.c (bidi_resolve_brackets): Instead of requiring
+ prev_for_neutral's type to be known, fall back on SOS, per
+ the UBA.
+
+2022-03-15 Sam Steingold <sds@gnu.org>
+
+ Extract `gnus-collect-urls-from-article' from `gnus-summary-browse-url'
+
+ * lisp/gnus-sum.el (gnus-collect-urls-from-article):
+ New function, extracted from `gnus-summary-browse-url'.
+ (gnus-summary-browse-url): Use it.
+
+2022-03-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/url/url-vars.el: Cosmetic changes
+
+ (url-mime-separator-chars): Simplify.
+ (url-interactive-p): Tweak docstring.
+
+2022-03-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ doctex-mode: Try and fix bug#35140
+
+ * lisp/textmodes/tex-mode.el (doctex-syntax-propertize-rules):
+ Add support for the new ^^X and consider the first ^ of ^^A to be the
+ closing char for the previous comment.
+ (doctex-font-lock-^^A): Simplify accordingly.
+
+2022-03-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix byte-code button in help--describe-command
+
+ * lisp/help.el (help--describe-command): Fix byte-code button
+ (bug#24235).
+
+2022-03-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "New command `gnus-summary-browse-all-urls' bound to "v""
+
+ This reverts commit f52dcfd03ad542704d9a43faab0c33be09ab442e.
+
+ It was never agreed that this should be added.
+
+2022-03-15 João Távora <joaotavora@gmail.com>
+
+ Don't advertise didchangewatchedfiles on tramp
+
+ * eglot.el (eglot--trampish-p): New helper.
+ (eglot-client-capabilities): Use it.
+ (eglot--uri-to-path): Use it.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/883
+
+2022-03-15 Po Lu <luangruo@yahoo.com>
+
+ Fix some minor glitches with Haiku scroll bars
+
+ * src/haiku_support.cc (MouseDown): Don't start overscroll if
+ dragging started inside a button.
+
+2022-03-15 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes when trying to pop up a menu on GTK 2
+
+ * src/xterm.c (handle_one_xevent): Respect finish when
+ dispatching copy.
+
+2022-03-15 Po Lu <luangruo@yahoo.com>
+
+ Fix some issues with input on GTK 2 builds
+
+ * src/xfns.c (setup_xi_event_mask): Don't ask for XI key press
+ on GTK 2.
+
+2022-03-14 Po Lu <luangruo@yahoo.com>
+
+ Fix extraneous ifdef in xwidgets code
+
+ * xterm.c (handle_one_xevent): Pass GesturePinchEnd events to
+ xwidgets regardless of no-longer-present define.
+
+2022-03-14 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Fix use of wrong motion structure.
+
+2022-03-14 Po Lu <luangruo@yahoo.com>
+
+ Stop relying on dynlib for PGTK interrupt input
+
+ * src/pgtkterm.c (pgtk_term_init): Use dlopen and dlsym directly
+ instead of dynlib functions. (bug#54378)
+
+2022-03-14 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Fix a bug and some docstrings
+
+ * lisp/net/eudc.el (eudc-register-protocol): Add doc string.
+ (eudc-expand-inline): Add TRY-ALL-SERVERS to docstring.
+ (eudc-query-with-words): Fix early-return bug reported by
+ Alexander Adolf.
+ (eudc-menu): Add doc string.
+ (eudc-install-menu): Likewise.
+
+2022-03-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Another fix for the no-toolkit build
+
+ This should be better in the long run.
+ * oldXMenu/Activate.c (XMenuActivate): Revert previous change,
+ eliminating the goto it introduced.
+ * oldXMenu/XMenuInt.h: Include <attribute.h>, for FALLTHROUGH.
+
+2022-03-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer CALLN
+
+ * src/bytecode.c (Fbyte_code):
+ * src/composite.c (Fclear_composition_cache):
+ Prefer CALLN to doing it by hand.
+ * src/fns.c (ccall2): Remove. All uses replaced by CALLN.
+
+2022-03-14 Sam Steingold <sds@gnu.org>
+
+ New command `gnus-summary-browse-all-urls' bound to "v"
+
+ * lisp/gnus-sum.el (gnus-collect-urls-from-article): New function,
+ extracted from `gnus-summary-browse-url'.
+ (gnus-summary-browse-url): Use it; also use `browse-url-button-open-url'
+ to handle the prefix argument.
+ (gnus-summary-browse-all-urls): New command.
+ (gnus-summary-mode-map): Bind `gnus-summary-browse-all-urls' to "v".
+
+2022-03-14 Po Lu <luangruo@yahoo.com>
+
+ Fix the no toolkit build
+
+ * Activate.c (XMenuActivate): Stop relying on fallthroughs
+ inside switch statement. (bug#54382)
+
+2022-03-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix RFC2047 encoding of Disposition-Notification-To
+
+ * lisp/mail/rfc2047.el (rfc2047-header-encoding-alist): Encode
+ Disposition-Notification-To as an address header (bug#54383).
+
+2022-03-14 Po Lu <luangruo@yahoo.com>
+
+ Handle position specification hints on X toolkit builds
+
+ * src/xterm.c (x_wm_set_size_hint): Set PPosition and USPosition
+ independently of Xt.
+
+2022-03-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify Edebug spec
+
+ * lisp/simple.el (cursor-face-highlight-mode): Fix copy&paste
+
+2022-03-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the execute-kbd-macro doc string
+
+ * src/macros.c (Fexecute_kbd_macro): Improve the doc string
+ (bug#14206).
+
+2022-03-14 Philipp Stephani <phst@google.com>
+
+ Make Edebug specification for 'cl-defstruct' more lenient.
+
+ For example, 'xref-item' uses the list form of ':noinline'.
+
+ * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Accept ':noinline' and
+ ':named' with an argument.
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-defstruct/edebug): New
+ unit test.
+
+2022-03-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't always escape "." and "?" in `prin1'
+
+ * src/print.c (print_object): Only escape "." and "?" when
+ appearing as the first character in a symbol (bug#23130).
+
+2022-03-14 Martin Rudalics <rudalics@gmx.at>
+
+ Init 'rest' in 'balance-windows-2' (Bug#54380)
+
+ * lisp/window.el (balance-windows-2): Give 'rest' an initial
+ value (Bug#54380).
+
+2022-03-14 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add local to remove-hook in cursor-face-highlight-mode
+
+ Add LOCAL flag in remove-hook and reword the dock string.
+
+ Thanks to Stefan Monnier for this
+
+2022-03-14 Po Lu <luangruo@yahoo.com>
+
+ Clean up some Haiku toolkit code
+
+ * src/haiku_io.c (haiku_read_with_timeout): Accept `bigtime_t'
+ instead of `time_t' for values which are cast to bigtime_t
+ anyway.
+ * src/haiku_support.cc (BMenu_run): Read all help events instead
+ of just one.
+ * src/haiku_support.h: Update prototypes.
+
+2022-03-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1ec4063017 ; * admin/make-tarball.txt: Minor updates.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix extraneous overscroll activation on Haiku
+
+ * src/haiku_support.cc (class EmacsScrollBar): New field
+ `maybe_overscroll'.
+ (MouseDown): Set that field.
+ (MouseUp): Clear that field.
+ (MouseMoved): Also test `maybe_overscroll' to ensure that a grab
+ started inside the scroll bar.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Improve cursor-face-highlight-mode a bit more.
+
+ Add the hook locally to the buffer only when needed to avoid even
+ calling the function redisplay--update-cursor-face-highlight when the
+ mode is enabled.
+
+ * lisp/simple.el (redisplay--update-cursor-face-highlight) : Remove
+ unneeded condition.
+ (cursor-face-highlight-mode) : Conditionally add or remove
+ redisplay--update-cursor-face-highlight to pre-redisplay-functions with
+ buffer local flag.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Improve the cursor-face feature.
+
+ Use a minor mode to reduce potential performance issues.
+
+ * lisp/simple.el (cursor-face-highlight-mode) : New minor mode
+ (completion-setup-function) : Use the new minor mode
+ cursor-face-highlight-mode in completions.
+ (redisplay--unhighlight-overlay-function) : Add -- to the name
+ (redisplay--highlight-overlay-function) : Make the face parameter
+ optional and add -- in the name.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix tool-bar highlight persisting after mouse moves onto WM frame
+
+ * src/xterm.c (handle_one_xevent): Always report MotionNotify
+ coordinates in terms of the edit widget.
+
+2022-03-13 Glenn Morris <rgm@gnu.org>
+
+ * src/bytecode.c: Include sysstdio.h, for fprint, stderr.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Enable overscroll on Haiku horizontal scroll bars
+
+ * src/haiku_support.cc (MouseMoved): Handle horizontal
+ directions correctly.
+ * src/haikuterm.c (haiku_set_horizontal_scroll_bar_thumb):
+ Enable overscrolling on scroll bar widget.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix scroll bar movement right before overscroll begins on Haiku
+
+ * src/haikuterm.c (haiku_set_scroll_bar_thumb): Make sure value
+ and size are within bounds even if portion adjustment is off.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Make the completion-header-format info more precise.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Simplify unneeded condition.
+
+ * lisp/minibuffer.el (display-completion-list) : The function
+ completion--insert-string already has a condition for when completions
+ is nil.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Rename hook
+
+ * lisp/simple.el (redisplay--update-cursor-property-highlight) : Renamed
+ to redisplay--update-cursor-property-highlight
+
+2022-03-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Really fix find-func for defgeneric
+
+ * lisp/emacs-lisp/find-func.el (find-function-regexp): Really add
+ defgeneric.
+
+2022-03-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make vtable sorting stable
+
+ * lisp/emacs-lisp/vtable.el (vtable--sort): Make the sorting
+ stable.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Extend completion-auto-help 'always and 'visible.
+
+ Make them behave the same also with exact but not single completion.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Use the new cursor-face feature to highlight completions.
+
+ * lisp/minibuffer.el (completions-highlight-face) : New custom.
+ (completions-highlight-mode) : Removed
+
+2022-03-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Clang debug notes
+
+ * etc/DEBUG: Don’t imply Clang works as well as GCC when
+ debugging Emacs. Mention a coverage problem with Clang.
+
+2022-03-13 Jim Porter <jporterbugs@gmail.com>
+
+ Fix evaluation of negated argument predicates in Eshell
+
+ * lisp/eshell/em-pred.el (eshell-add-pred-func): Let-bind 'pred' so
+ the lambdas see the original value (bug#54369).
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Rename completion-header-string to completion-header-format
+
+ And use a propertized default value.
+
+2022-03-13 Mattias Engdegård <mattiase@acm.org>
+
+ * src/bytecode.c (sf_set_ptr): Cast pointer to type of right size.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add new special text attribute cursor-face
+
+ Reuse the functions for highlight region.
+ * lisp/simple.el (redisplay-unhighlight-overlay-function) :
+ (redisplay-highlight-overlay-function) : New functions from previous
+ lambda
+ (redisplay-unhighlight-region-function) :
+ (redisplay-highlight-region-function) : Redefined with the new
functions.
+ (redisplay--update-cursor-property-highlight) : New function for
+ pre-redisplay-functions.
+
+2022-03-13 Mattias Engdegård <mattiase@acm.org>
+
+ Separate bytecode stack
+
+ Use a dedicated stack for bytecode, instead of using the C stack.
+ Stack frames are managed explicitly and we stay in the same
+ exec_byte_code activation throughout bytecode function calls and
+ returns. In other words, exec_byte_code no longer uses recursion
+ for calling bytecode functions.
+
+ This results in better performance, and bytecode recursion is no
+ longer limited by the size of the C stack. The bytecode stack is
+ currently of fixed size but overflow is handled gracefully by
+ signalling a Lisp error instead of the hard crash that we get now.
+
+ In addition, GC marking of the stack is now faster and more precise.
+ Full precision could be attained if desired.
+
+ * src/alloc.c (ATTRIBUTE_NO_SANITIZE_ADDRESS): Make non-static.
+ * src/bytecode.c (enum stack_frame_index, BC_STACK_SIZE)
+ (sf_get_ptr, sf_set_ptr, sf_get_lisp_ptr, sf_set_lisp_ptr)
+ (sf_get_saved_pc, sf_set_saved_pc, init_bc_thread, free_bc_thread)
+ (mark_bytecode, Finternal_stack_stats, valid_sp): New.
+ (exec_byte_code): Adapt to use the new bytecode stack.
+ (syms_of_bytecode): Add defsubr.
+ * src/eval.c (unwind_to_catch): Restore saved stack frame.
+ (push_handler_nosignal): Save stack frame.
+ * src/lisp.h (struct handler): Add act_rec member.
+ (get_act_rec, set_act_rec): New.
+ * src/thread.c (mark_one_thread): Call mark_bytecode.
+ (finalize_one_thread): Free bytecode thread state.
+ (Fmake_thread, init_threads): Set up bytecode thread state.
+ * src/thread.h (struct bc_thread_state): New.
+ (struct thread_state): Add bytecode thread state.
+
+2022-03-13 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify exec_byte_code arguments
+
+ Pass the function object and encoded arity, not the other components.
+ This speeds up several call paths and is necessary for improvements to
+ come.
+
+ * src/bytecode.c (Fbyte_code): Make a new byte code object for
+ execution. This is slower but performance isn't critical here.
+ (exec_byte_code): Retrieve components from the passed function.
+ * src/eval.c (fetch_and_exec_byte_code):
+ * src/lisp.h (exec_byte_code): Update signature.
+
+2022-03-13 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/ange-ftp.el (ange-ftp-ls): Make a loop when sanitizing
LSARGS.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Make minibuffer-hide-completions interactive.
+
+ Mainly to find a binding for it.
+
+2022-03-13 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add completion-header-string.
+
+ * doc/emacs/mini.texi (completion-header-string): Remove
+ completion-header-text-property-list and completion-lazy-count.
+ (completion-header-string): Substitutes the removed variable.
+
+2022-03-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add cl-defgeneric to find-func, too
+
+ * lisp/emacs-lisp/find-func.el (find-function-regexp): Add
+ cl-defgeneric, too (bug#54343).
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Allow overscrolling on Haiku scroll bars that are full
+
+ * src/haiku_support.cc (MouseMoved): Allow overscrolling even if
+ portion is less than 1.0.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix pointer event tracking on top of Haiku scroll bars
+
+ * src/haiku_support.cc (MouseDown): Set correct mouse event mask
+ in case the scroll bar widget decides to not do that.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix splurious button events being generated on Haiku
+
+ * src/haiku_support.cc (MouseDown, MouseUp): Don't process if
+ the grab is not appropriate for the buttons that were pressed.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix setting IM spot after key press events
+
+ * src/xterm.c (handle_one_xevent): Check f is not NULL before
+ trying to set its status area and set preedit spot location
+ after KeyPress events.
+
+2022-03-13 Mattias Engdegård <mattiase@acm.org>
+
+ Fix esh-proc-tests on macOS
+
+ * test/lisp/eshell/esh-proc-tests.el (esh-proc-test/kill-pipeline):
+ Add pattern matching output when killing a process on macOS (and
+ possibly other BSDs).
+
+2022-03-13 Visuwesh <visuweshm@gmail.com> (tiny change)
+
+ * quail.el (quail-define-package): Describe VAR form in DOCSTRING
better.
+
+ Bug#50143
+
+2022-03-13 Visuwesh <visuweshm@gmail.com> (tiny change)
+
+ Follow contemporary practices in the Tamil input methods
+
+ * lisp/language/ind-util.el (indian-tml-base-digits-table): New table
+ to translate digits.
+ (indian-tml-base-table): Don't translate digits.
+ (indian-tml-itrans-digits-v5-hash): Hashtable that translates digits.
+
+ * lisp/leim/quail/indian.el (quail-tamil-itrans-compute-signs-table)
+ (quail-tamil-itrans-various-signs-table)
+ (quail-tamil-itrans-various-signs-and-digits-table): Separate out the
+ digits from the signs table using the function
+ 'quail-tamil-itrans-compute-signs-table'.
+ (tamil-itrans-digits, tamil-inscript-digits): New input methods that
+ translates digits.
+ (tamil-itrans, tamil-inscript): Fix table inclusion.
+
+ * etc/NEWS: Announce the change.
+
+ Fixes bug#50143.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Fix small regression for horizontal scroll bars
+
+ * src/haikuterm.c (haiku_read_socket): Restore previous
+ horizontal scrollbar code, since the change it was intended for
+ was never made.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Improve overscrolling support on Haiku
+
+ * src/haiku_support.cc (class EmacsScrollBar): New field
+ `real_max_value'.
+ (MessageReceived): Set real max value.
+ (MouseMoved): Get rid of magic numbers by using real max value
+ instead.
+
+2022-03-13 Po Lu <luangruo@yahoo.com>
+
+ Allow dragging scroll bar for overscroll on Haiku
+
+ * src/haiku_support.cc (class EmacsScrollBar): New fields
+ `in_overscroll', `can_overscroll', `last_overscroll',
+ `last_reported_overscroll_value' and `max_value'.
+ (ValueChanged): Make very sure extraneous value are not
+ generated.
+ (MouseUp): Clear overscroll if enabled.
+ (MouseMoved): If overscroll is enabled and dragging downwards
+ fails to dislodge the maximum value, enable overscrolling.
+ (BView_scroll_bar_update): New parameter `can_overscroll'
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_set_scroll_bar_thumb)
+ (haiku_set_horizontal_scroll_bar_thumb): Adjust parameters to
+ scroll bar update functions.
+ (haiku_read_socket): Take ceiling of bar position if
+ horizontal.
+
+2022-03-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e5b191465d ; * admin/authors.el (authors-canonical-file-name): Remove...
+ 6b0fdf73cf ; Fix data structures in authors.el
+
+2022-03-12 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Flocate_file_internal: Protect from `.eln` remapping
+
+ Don't use `openp`s functionality to remap `.elc` files to `.eln` files
+ since `locate-file` is not specific to ELisp files.
+ This should be not just simpler but more robust than the current
+ hack which tries to undo the damage after the fact.
+
+ * src/lread.c (Flocate_file_internal): Don't map `.elc` to `.eln`.
+ * lisp/files.el (locate-file): Simplify accordingly.
+
+2022-03-12 Po Lu <luangruo@yahoo.com>
+
+ Improve reliaibility of scroll bar dimensions adjustment on GTK 3
+
+ * src/gtkutil.c (xg_scroll_bar_size_allocate_cb): New function.
+ (xg_finish_scroll_bar_creation): Attach new signal.
+ (xg_update_scrollbar_pos)
+ (xg_update_horizontal_scrollbar_pos): Also set window dimensions
+ for the event box.
+ * src/xterm.c (x_scroll_bar_configure): New function.
+ * src/xterm.h: Update prototypes.
+
+2022-03-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further locate-file fixes on nativecomp
+
+ * lisp/files.el (locate-file): Fix up previous locate-file change
+ -- don't unconditionally return .elc on nativecomp.
+
+2022-03-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Disable esh-proc-test/kill-pipeline on EMBA
+
+ Test esh-proc-test/kill-pipeline condition:
+ (ert-test-failed
+ ((should
+ (string-match-p
+ (rx ...)
+ (buffer-substring-no-properties output-start ...)))
+ :form
+ (string-match-p "\\(?:\\(?:interrupt\\|killed\\)\n\\)" "")
+
+2022-03-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix EMBA failure for ert-test-record-backtrace
+
+ * test/lisp/emacs-lisp/ert-tests.el (ert-test-record-backtrace): Make
+ this work with AOT.
+
+2022-03-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Return the same file from locate-file in nativecomp and non
+
+ * lisp/files.el (locate-file): Return the .elc file (if it exists)
+ in nativecomp, too, to mimic the behaviour from non-nativecomp
+ builds (bug#51308).
+
+2022-03-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make find-function-regexp also find cl-defun/defmethod
+
+ * lisp/emacs-lisp/find-func.el (find-function-regexp): Also find
+ cl-defun and cl-defmethod (bug#54343).
+
+2022-03-12 Colin Woodbury <colin@fosskers.ca>
+
+ * lisp/progmodes/python.el: Account for new keywords.
+
+ * lisp/progmodes/python.el (python-font-lock-keywords-level-2): As
+ of Python 3.10, Python has structured pattern matching. This adds
+ two new keywords which need to be highlighted (bug#54345).
+
+2022-03-12 Alexander Adolf <alexander.adolf@condition-alpha.com>
+
+ Facilitate Customisation of Message-Mode Header Completion Behaviour
+
+ * lisp/gnus/message.el (message-email-recipient-header-regexp):
+ New user option.
+ (message-completion-alist): Use it here.
+
+2022-03-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark tramp-test30-make-process unstable on EMBA
+
+ * test/lisp/net/tramp-tests.el (tramp-test30-make-process): This times
+ out on EMBA.
+
+2022-03-12 Mattias Engdegård <mattiase@acm.org>
+
+ Remove never-used relative jump opcodes
+
+ * src/bytecode.c (BYTE_CODES, exec_byte_code):
+ Remove relative jump opcodes that seem to have been a short-lived
+ experiment, never used in a release.
+
+2022-03-12 Mattias Engdegård <mattiase@acm.org>
+
+ Remove debug code for opcodes long gone
+
+ * src/bytecode.c (BYTE_CODES, enum byte_code_op, exec_byte_code):
+ Don't display custom messages in debug mode for Bscan_buffer and
+ Bset_mark which were removed long ago.
+
+2022-03-12 Mattias Engdegård <mattiase@acm.org>
+
+ Faster bytecode immediate argument fetching
+
+ * src/bytecode.c (FETCH2):
+ Use `|` instead of `+` to combine the bytes forming a 16-bit immediate
+ argument so that GCC (prior to version 12) recognises the idiom and
+ generates a 16-bit load. This applies for little-endian machines with
+ cheap unaligned accesses such as x86[-64], arm64 and power64le.
+
+ This 1-character change results in a measurable speed gain on many
+ kinds of Lisp code, as 16-bit immediates are used by all jump
+ instructions.
+
+ Clang performs this optimisation for both `+` and `|` from version 10.
+
+2022-03-12 Mattias Engdegård <mattiase@acm.org>
+
+ Maintain end of specpdl instead of size
+
+ Keep track of the end of specpdl explicitly since that is what we are
+ comparing against on critical code paths.
+
+ * src/eval.c (init_eval_once_for_pdumper, signal_or_quit)
+ (grow_specpdl_allocation):
+ * src/fileio.c (Fdo_auto_save):
+ * src/lisp.h (grow_specpdl):
+ * src/thread.c (run_thread, Fmake_thread):
+ * src/thread.h (struct thread_state):
+ Replace specpdl_size with specpdl_end, according to the equation
+ specpdl_end = specpdl + specpdl_size.
+
+2022-03-12 Mattias Engdegård <mattiase@acm.org>
+
+ Inline record_in_backtrace
+
+ It's critical in several function call paths.
+
+ * src/eval.c (grow_specpdl_allocation): Make non-static.
+ (grow_specpdl, record_in_backtrace): Move from here...
+ * src/lisp.h (grow_specpdl, record_in_backtrace): ... to here,
+ and declare inline.
+
+2022-03-12 Po Lu <luangruo@yahoo.com>
+
+ Fix the PGTK build
+
+ * src/gtkutil.c (xg_finish_scroll_bar_creation): Fix ifdefs
+ preventing x_window from being correctly set.
+ (xg_get_scroll_id_for_window): Ifdef out unused function.
+
+2022-03-12 Po Lu <luangruo@yahoo.com>
+
+ Try really hard to make GTK 3 scroll bars fit
+
+ * src/gtkutil.c (xg_get_widget_from_map): New argument DISPLAY.
+ All callers changed.
+ (find_scrollbar_cb): New function.
+ (xg_finish_scroll_bar_creation, xg_remove_scroll_bar)
+ (xg_update_scrollbar_pos, xg_update_horizontal_scrollbar_pos)
+ (xg_set_toolkit_scroll_bar_thumb)
+ (xg_set_toolkit_horizontal_scroll_bar_thumb, xg_initialize):
+ Stop using id_to_widget_map on X builds with GTK 3 and set the
+ event box as the x_window instead.
+ * src/xterm.c (x_window_to_scroll_bar): Don't look for ID on GTK
+ 3.
+ (handle_one_xevent): If a ConfigureNotify event is found for a
+ scroll bar and the dimensions are wrong, resize the X window to
+ the right ones.
+
+2022-03-12 Felicián Németh <felician.nemeth@gmail.com>
+
+ Change capability 'documentchanges' to t
+
+ Eglot does support woskspaceEdit/documentChanges, but failed to
+ advertise this fact.
+
+ Per https://github.com/joaotavora/eglot/issues/873.
+
+ * eglot.el (eglot-client-capabilities): Set documentChanges to t.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/853
+
+2022-03-12 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ dbe6a3ecf7 Fix regression in 'custom-prompt-customize-unsaved-options'
+ a9920473f6 Improve documentation of 'map-charset-chars'
+
+2022-03-12 Po Lu <luangruo@yahoo.com>
+
+ Fix some issues with input methods that depend on button state
+
+ * src/xterm.c (handle_one_xevent): Translate button state before
+ filtering events.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Fix horizontal scroll bar updating on Haiku
+
+ * src/haikuterm.c (haiku_set_horizontal_scroll_bar_thumb): Just
+ take portion and position without adjustments.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Use more reasonable default timeouts in Haiku menu loop
+
+ * src/haiku_support.cc (BMenu_run): Set default timeout to 10
+ seconds.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Make C-mouse-3 on scroll bars work on Haiku
+
+ * src/haiku_support.cc (class EmacsScrollBar): New field
+ `handle_button'.
+ (MouseDown, MouseUp): Pass button events with ControlMask to
+ parent view.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Slightly improve scrollbar position accounting on Haiku
+
+ * src/haiku_support.cc (MessageReceived): Use floats for
+ calculating portion and subtract proportion directly.
+ * src/haikuterm.c (haiku_set_scroll_bar_thumb): Take ceiling of
+ value instead of rounding it.
+
+2022-03-11 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add two new options for completions.
+
+ * doc/emacs/mini.texi (completion-lazy-count):
+ (completion-header-text-property-list) : New customs
+
+ Updated NEWS and manual.
+
+2022-03-11 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Support querying all servers
+
+ * lisp/net/eudc.el (eudc-expand-try-all): New command.
+ (eudc-expand-inline): Add `try-all-servers' optional argument.
+ Update `eudc-query-with-words' call.
+ (eudc-query-with-words): Add `try-all-servers' optional argument.
+ Move response formatting into main query loop. Query next server
+ if `try-all-servers' is non-nil.
+ (eudc-tail-menu): Add "Expand Inline Query Trying All Servers"
+ menu item.
+ * doc/misc/eudc.texi (Installation): Recommend
+ eudc-expand-try-all.
+ (Emacs-only Configuration): Likewise.
+ (Inline Query Expansion, Inline Query Expansion): Likewise.
+ Document `eudc-expand-try-all'.
+ * etc/NEWS (EUDC): Describe new 'eudc-expand-try-all' command.
+
+2022-03-11 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ EUDC: Update save-query-as-kill name and docstring
+
+ * lisp/net/eudc-vars.el (eudc-server): Fix quoting for checkdoc.
+ (eudc-expansion-save-query-as-kill): Rename from
+ `eudc-expansion-overwrites-query'. Define obsolete variable
+ alias. Update comment and documentation.
+ * lisp/net/eudc.el (eudc-expand-inline): Rename `replace' argument
+ to `save-query-as-kill'. Update argument documentation.
+ * doc/misc/eudc.texi (Inline Query Expansion): Rename
+ `eudc-expand-inline' argument.
+ * etc/NEWS (EUDC): Document `eudc-expansion-overwrites-query'
+ rename to `eudc-expansion-save-query-as-kill'.
+
+2022-03-11 Manuel Uberti <manuel.uberti@inventati.org>
+
+ Use new jdtls script for eclipse jdt
+
+ Per https://github.com/joaotavora/eglot/issues/864.
+
+ * eglot.el (eglot-server-programs): use new jdtls
+ (eglot--eclipse-jdt-contact, eglot--eclipse-jdt). Remove.
+ (eglot-execute-command eglot-eclipse-jdt): Remove.
+ (eglot-initialization-options eglot-eclipse-jdt): Remove.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/863
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Fix a crash inside Haiku popup menus
+
+ * src/haiku_support.cc (BMenu_run): Handle B_WOULD_BLOCK from
+ wait_for_objects loop.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Fix initial values of scroll bar foreground and background on GTK 3
+
+ * src/gtkutil.c (xg_create_frame_widgets): Stop creating
+ scrollbar stylesheet providers.
+ * src/xfns.c (Fx_create_frame): Create scroll bar stylesheet
+ providers here instead.
+ (x_set_scroll_bar_background):
+ (x_set_scroll_bar_foreground): Ignore tooltip frames.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Implement customization of scroll bar colors on GTK 3
+
+ * src/gtkutil.c (xg_create_frame_widgets): Create CSS providers
+ for scroll bars.
+ (xg_finish_scroll_bar_creation): Attach created CSS providers.
+ * src/xfns.c (x_set_scroll_bar_foreground):
+ (x_set_scroll_bar_background): Put appropriate content into CSS
+ providers.
+ * src/xterm.c (x_free_frame_resources): Free CSS providers.
+ * src/xterm.h (struct x_output): New fields for scroll bar
+ stylesheet providers.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ * src/frame.c (scroll_bar_adjust_thumb_portion_p): Adjust doc string.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Improve scroll bar treatment on Haiku
+
+ * src/haiku_support.cc (MessageReceived): Subtract portion from
+ range of scroll bar.
+ * src/haikuterm.c (BE_SB_MAX): Adjust values for better
+ rounding.
+ (haiku_set_scroll_bar_thumb): Round values instead of
+ truncating them.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Fix inconsistent thumb position on Haiku scroll bars
+
+ * src/haikuterm.c (haiku_set_scroll_bar_thumb): If
+ scroll_bar_adjust_thumb_portion is nil, directly calculate thumb
+ portions without setting page_size.
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Handle Wayland displays correctly in browse-url
+
+ * lisp/net/browse-url.el (browse-url-process-environment): Use
+ WAYLAND_DISPLAY as the display environment variable on
+ PGTK. (bug#54333)
+
+2022-03-11 Po Lu <luangruo@yahoo.com>
+
+ Allow C-mouse-2 to split windows on XInput 2 builds
+
+ * src/xterm.c (handle_one_xevent): Use x_scroll_bar_handle_click
+ if ControlMask is set.
+
+2022-03-10 Po Lu <luangruo@yahoo.com>
+
+ Fix scroll bar portion on Haiku scroll bars
+
+ * src/haiku_support.cc (EmacsScrollBar): Set steps to
+ appropriate value.
+ (ValueChanged): Test new value against old value before sending
+ value event.
+ (MessageReceived): Handle portion and range.
+ (BView_scroll_bar_update): New argument for portion.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_set_scroll_bar_thumb):
+ (haiku_set_horizontal_scroll_bar_thumb): New functions.
+ (haiku_set_horizontal_scroll_bar):
+ (haiku_set_vertical_scroll_bar): Use those functions to set
+ scroll bar values.
+ (haiku_read_socket): Handle new meanings of scroll bar values.
+ * src/haikuterm.h (struct scroll_bar):
+
+2022-03-10 Alan Third <alan@idiocy.org>
+
+ Fix NS toolbar identifier (bug#54326)
+
+ * src/nsterm.m ([EmacsWindow createToolbar:]): Set the identifier to
+ something that will always be unique to that frame.
+
+2022-03-10 Juri Linkov <juri@linkov.net>
+
+ Fix new option completions-max-height and new values for
completion-auto-help
+
+ * doc/emacs/mini.texi (Completion Options): Fix pxref for
+ "Buffer Display Action Alists".
+
+ * lisp/minibuffer.el (completion-auto-help): Explain new values in
docstring.
+ (completions-max-height): Use choice to allow nil.
+
+2022-03-10 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Add new mode completions-highlight-mode.
+
+ completions-max-height new custom variable.
+
+2022-03-10 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ completion-auto-help new values.
+
+ Added also entries to news and manual
+
+2022-03-10 Augusto Stoffel <arstoffel@gmail.com>
+
+ Don't strip invisible text when formatting hover string
+
+ This was introduced in https://github.com/joaotavora/eglot/issues/482
due to a bad interaction with a specific
+ server. But this solution makes hyperlinks in Eldoc buffers
+ unclickable, because the markdown-mode function that visits a link
+ relies on the invisible text.
+
+ Per https://github.com/joaotavora/eglot/issues/866
+
+ * eglot.el (eglot--format-markup): Use buffer-string instead of
+ filter-buffer-substring
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/865
+
+2022-03-10 Michael Albinus <michael.albinus@gmx.de>
+
+ Support remote home directories via connection property
+
+ * doc/misc/tramp.texi (Home directories): New section.
+ (Top, Usage): Add it to the menue.
+ (Predefined connection information): Mention "~".
+ (Multi-hops, File name syntax): Fix typos.
+
+ * lisp/net/tramp.el (tramp-handle-expand-file-name): Check for
+ remote home directory. (Bug#53847)
+
+2022-03-10 Po Lu <luangruo@yahoo.com>
+
+ Fix display of minibuffer prompts in some circumstances on Haiku
+
+ * src/haikuterm.c (haiku_flush): Always flip buffers as long as
+ buffer flipping is not blocked.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Fix menu bar activation on PGTK
+
+ * src/gtkutil.c (menu_bar_button_pressed_cb): Only update menu
+ bar if no menu is active, and the event window is not the widget
+ window itself. Also make menu in use.
+ * src/pgtkmenu.c (popup_deactivate_callback): Make menu not in
+ use.
+ * src/xdisp.c (redisplay_internal): Return if popup_activated
+ also on PGTK.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Fix stray button release events being reported on GTK 2
+
+ * src/xterm.c (handle_one_xevent): Drop ButtonRelease events
+ that are destined for a popup menu.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Fix menu bar event detection on XI2 builds using Core Input
+
+ * src/gtkutil.c (xg_get_gdk_scale): Always return 1 on GTK+ 2.
+ (xg_event_is_for_menubar): Fix some ifdefs.
+ * src/xterm.c (handle_one_xevent): Update a comment.
+
+2022-03-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix regression in vtable-goto-object
+
+ * lisp/emacs-lisp/vtable.el (vtable-goto-object): Fix moving to
+ the object.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Fix some issues with GTK native input and modifiers on GTK 2
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Manually ignore
+ modifier keys on GTK 2.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Make XInput 2 features work on GTK 2 builds
+
+ * src/xfns.c (setup_xi_event_mask): On GTK 2, select for
+ button, motion, entry/exit and key events.
+ * src/xmenu.c (create_and_show_popup_menu): Clear XI grab if
+ appropriate.
+ * src/xterm.c (handle_one_xevent): Pass some kinds of input
+ extension events to GTK manually on versions of GTK+ that don't
+ understand them.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK widgets not appearing inside child frames
+
+ * src/xfns.c (x_set_parent_frame): Disable GTK's own frame
+ synchronization in child frames.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Fix error when creating frames on NS with no main window
+
+ * nsfns.m (Fx_create_frame): If main window is not present,
+ center frame window instead of cascading it.
+
+2022-03-09 Po Lu <luangruo@yahoo.com>
+
+ Don't update Haiku menu bar if nothing changed
+
+ * haikumenu.c (set_frame_menubar): If Lisp-level contents didn't
+ change, refrain from actually updating the menu bar.
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Fix flicker during frame resize on Haiku
+
+ * haikuterm.c (haiku_update_end): Call BWindow_Flush directly.
+ (haiku_set_vertical_scroll_bar): Stop calling flush_frame.
+ (haiku_flush): Only flip buffer of tooltip frames.
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS build
+
+ * sed1v2.inp: Update for recent changes.
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of tooltips inside menus on Haiku
+
+ * src/haiku_support.cc (BMenu_run): Make
+ `process_pending_signals_function' return a struct timespec.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikumenu.c (haiku_process_pending_signals_for_menu):
+ Return result of `timer_run'.
+ * src/haikuterm.c (haiku_flush): Flip buffers if frame is dirty.
+
+2022-03-08 Paul Eggert <eggert@cs.ucla.edu>
+
+ Decouple mod-test.c from Gnulib
+
+ mod-test.c should not use Gnulib code, as that creates
+ unnecessary coupling between Emacs internals and this test module.
+ Also Gnulib code is compiled without -fPIC whereas mod-test.c
+ needs -fPIC and recompiling Gnulib with -fPIC would be too painful.
+ * src/Makefile.in (LIB_NANOSLEEP): New macro.
+ (LIBES): Use it.
+ * test/Makefile.in (REPLACE_FREE, FREE_SOURCE_0, FREE_SOURCE_0):
+ Remove. All uses removed.
+ (LIB_CLOCK_GETTIME, LIB_NANOSLEEP): New macros.
+ (MODULE_CFLAGS): Do not -I from lib as that would include Gnulib
+ modifications to standard .h files (e.g., "#define nanosleep
+ rpl_nanosleep") and we don’t want the Gnulib replacements.
+ Instead, for gmp.h (on platforms lacking <gmp.h>) simply '-I.'
+ with a suitable gmp.h.
+ (gmp.h): New rule to create a suitable gmp.h.
+ ($(test_module)): Depend on config.h since the code uses config.h.
+ Depend on gmp.h if we need to create a suitable one.
+ If compiling mini-gmp.h, compile the original one and not
+ the Emacs-specific one, to lessen coupling with Emacs internals.
+ Link with LIB_CLOCK_GETTIME and LIB_NANOSLEEP.
+ (clean): Remove gmp.h.
+ * test/src/emacs-module-resources/mod-test.c: Don’t include timespec.h.
+ All uses of timespec.h APIs changed to use system-supplied APIs.
+ Change _Static_assert to plain assert, so that we needn’t rely
+ on Gnulib’s _Static_assert.
+ (timespec_le) [CLOCK_REALTIME]: New function.
+ Change use of timespec_cmp changed to use this instead.
+ (Fmod_test_sleep_until, Fmod_test_nanoseconds):
+ Define these functions and their Lisp names mod-test-sleep-until
+ and mod-test-nanoseconds only if CLOCK_REALTIME,
+ since they now won’t work on platforms lacking CLOCK_REALTIME.
+ (Fmod_test_nanoseconds): Just use _Static_assert since it
+ should work on all platforms.
+ * test/src/emacs-module-tests.el (mod-test-sleep-until)
+ (mod-test-nanoseconds, mod-test-double):
+ Skip test if the corresponding functione is not defined.
+
+2022-03-08 Paul Eggert <eggert@cs.ucla.edu>
+
+ Do not include <attribute.h> from <config.h>
+
+ This is because mod-test.c shouldn’t use source code from lib,
+ but it does need to include <config.h>.
+ * lib-src/ebrowse.c, lib-src/emacsclient.c, lib-src/etags.c:
+ * lib-src/make-docfile.c, lib-src/movemail.c:
+ * lib-src/seccomp-filter.c, src/dynlib.h, src/lisp.h:
+ * src/syssignal.h, src/sysstdio.h, src/systhread.h, src/tparam.h:
+ Include <attribute.h>.
+ * src/conf_post.h: Do not include <attribute.h>.
+ All uses of attribute.h macros replaced with their _GL_ equivalents.
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Add more dead keys.
+
+2022-03-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark tramp test unstable on EMBA
+
+ * test/lisp/net/tramp-tests.el
+ (tramp-test44-asynchronous-requests): Mark timed-out EMBA test as
+ unstable.
+
+2022-03-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Implement abbreviate-file-name in Tramp for Google drive
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-get-home-directory):
+ Implement for Google drive.
+
+2022-03-08 Jim Porter <jporterbugs@gmail.com>
+
+ Support applying indices to more Eshell dollar expansions
+
+ For example, '${echo -e "hi\nbye"}[1]' should expand to "bye".
+
+ * lisp/eshell/esh-var.el (eshell-parse-variable-ref): Support applying
+ indices to '${}', '$()', and '$<>' forms.
+ (Bug#54227)
+
+ * lisp/eshell/esh-var-tests.el (esh-var-test/interp-lisp-indices)
+ (esh-var-test/interp-cmd-indices)
+ (esh-var-test/interp-cmd-external-indices)
+ (esh-var-test/quoted-interp-lisp-indices)
+ (esh-var-test/quoted-interp-cmd-indices): New tests.
+
+2022-03-08 Jim Porter <jporterbugs@gmail.com>
+
+ Improve wording of Eshell variable interpolation code/documentation
+
+ * lisp/eshell/esh-arg.el (eshell-unescape-inner-double-quote): Rename
+ from 'eshell-parse-inner-double-quote'.
+
+ * lisp/eshell/esh-cmd.el (eshell-with-temp-command): Improve
+ docstring.
+
+ * lisp/eshell/esh-var.el (eshell-parse-variable-ref): Use
+ 'eshell-unescape-inner-double-quote' and improve robustness of quoted
+ variable name matching.
+ (eshell-parse-indices): Use 'eshell-unescape-inner-double-quote'.
+
+ * doc/misc/eshell.texi (Dollars Expansion): Improve wording of
+ subscript notation.
+
+2022-03-08 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ d184773 Avoid assertion violations in 'bidi_resolve_brackets'
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Handle XI focus change events that specify implicit focus correctly
+
+ * src/xterm.c (x_detect_focus_change): If detail is
+ XINotifyPointer, set focus type to implicit.
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Fix detection of modifier keys on XInput 2
+
+ * src/xterm.c (handle_one_xevent): Fix iteration over sets of
+ modifiers.
+
+2022-03-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle bug#54294 in Tramp
+
+ * lisp/net/tramp.el (tramp-handle-file-locked-p,
tramp-handle-lock-file):
+ Use `tramp-system-name'. (Bug#54294)
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Fix more uses of opaque Visual structure
+
+ * src/image.c (x_kill_gs_process):
+ * src/xfaces.c (x_free_colors):
+ (x_free_dpy_colors):
+ * src/xfns.c (Fxw_display_color_p):
+ (Fx_display_grayscale_p):
+ (Fx_display_visual_class):
+ * src/xterm.c (x_copy_color):
+ * src/xterm.h (x_mutable_colormap): Stop using private fields of
+ Visual.
+
+2022-03-08 Po Lu <luangruo@yahoo.com>
+
+ Return actual color cell count in x-display-color-cells
+
+ * src/xfns.c (Fx_display_color_cells): Return the actual amount
+ of color cells, or the amount of individual combinations of
+ components.
+
+2022-03-08 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 80736aef90 Fix which-func-update doc string
+ d9e5ae5e20 Improve wording of 'dired-jump's description
+
+2022-03-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (cl-macro-list): Simplify by unifying the variants
+
+ * lisp/emacs-lisp/cl-macs.el (cl-macro-list): Add the &whole and the
+ dotted tail cases from `cl-macro-list1`.
+ (cl-macro-list1, cl-define-compiler-macro-list): Delete edebug elem
specs.
+ (cl-destructuring-bind, cl-define-compiler-macro): Use `cl-macro-list`
+ instead, now that it covers all the cases we need.
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Avoid color leaks while better ensuring a close color is found
+
+ * src/xterm.c (x_alloc_nearest_color_1): Verify nearest can be
+ allocated, and use that color value.
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Fix choice of visuals for XPM icon
+
+ * src/xterm.c (x_bitmap_icon): Allow using XPM icon on
+ StaticColor and StaticGray as well.
+
+2022-03-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove lock file in --no-build-details, too
+
+ * src/filelock.c (current_lock_owner): Make file writes work when
+ using --no-build-details (bug#54294).
+
+2022-03-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark ert-test-run-tests-batch-expensive unstable on EMBA
+
+2022-03-07 Kjartan Oli Agustsson <kjartanoli@outlook.com> (tiny change)
+
+ Add user stylesheet option for doc-view EPUB support
+
+ * lisp/doc-view.el (doc-view-start-process): Add user stylesheet to
+ process arguments when appropriate.
+
+ * lisp/doc-view.el (doc-view-mutool-user-stylesheet): New user option.
+
+2022-03-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/seq.el (seq-concatenate): Accept non-`sequencep`
sequences
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Correctly handle exposure in oldXMenu
+
+ * oldXMenu/Activate.c (XMenuActivate): Call set expose_func if
+ no pane was found.
+ (XMenuActivateSetExposeFunction): New function.
+ * oldXMenu/XMenu.h: New typedef `expose_func'. Update
+ prototypes.
+ * src/xmenu.c (x_menu_expose_event): New function.
+ (x_menu_show): Set expose event handler.
+ * src/xterm.c (x_dispatch_event): Make `static' only on GTK.
+ * src/xterm.h: Expose `x_dispatch_event' on no-toolkit builds.
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Improve color handling on colormapped displays
+
+ * src/xfns.c (select_visual): Set `visual_info' field whenever
+ appropriate.
+ (x_create_tip_frame, XDisplayCells): Don't access private fields
+ of Visual.
+
+ * src/xterm.c (x_color_cells, x_alloc_nearest_color_1): Use
+ colormap_size instead of default cell count.
+ (XTflash, x_bitmap_icon, x_term_init):
+ * src/xterm.h (struct x_display_info, FRAME_X_VISUAL_INFO): Stop
+ accessing private fields of Visual.
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Handle color allocation failures caused by colormap changes
+
+ * src/xterm.c (x_alloc_nearest_color_1): Recompute color cells
+ if allocation of cached value failed.
+
+2022-03-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Rework `abbreviate-file-name' in Tramp
+
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ Add 'tramp-get-home-directory'.
+
+ * lisp/net/tramp-compat.el (tramp-file-name-handler): Declare.
+ (tramp-compat-exec-path): Use it.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ Add 'tramp-get-home-directory'.
+ (tramp-gvfs-handle-expand-file-name): Rewrite tilde handling.
+ (tramp-gvfs-handle-get-home-directory): New defun.
+
+ * lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist):
+ Add 'tramp-get-home-directory'.
+ (tramp-sh-handle-get-home-directory): New defun.
+ (tramp-sh-handle-expand-file-name): Rewrite tilde handling.
+
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ Add 'tramp-get-home-directory'.
+ (tramp-smb-handle-expand-file-name): Rewrite tilde handling.
+ (tramp-smb-handle-get-home-directory): New defun.
+
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Add 'tramp-get-home-directory'.
+ (tramp-sudoedit-handle-expand-file-name): Rewrite tilde handling.
+ (tramp-sudoedit-handle-get-home-directory): New defun.
+
+ * lisp/net/tramp.el (tramp-file-name-for-operation):
+ Add `tramp-get-home-directory'.
+ (tramp-get-home-directory): New defun.
+ (tramp-handle-abbreviate-file-name): Use it.
+ (tramp-set-file-uid-gid, tramp-get-remote-uid)
+ (tramp-get-remote-gid): Use `tramp-file-name-handler'.
+ (tramp-get-remote-null-device): Do not check for null VEC, it
+ doesn't happen anymore.
+
+ * test/lisp/net/tramp-tests.el (tramp-test05-expand-file-name-relative):
+ Reorder checks.
+ (tramp-test07-abbreviate-file-name):
+ (tramp--test-ange-ftp-p): Adapt tests.
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Fix color leak
+
+ * src/xterm.c (x_alloc_nearest_color_1): Don't allocate colors
+ multiple times when searching for a closest match.
+
+2022-03-07 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 73f28fbde8 Add a comment for previous browse-url-of-dired-file change
+ 9b74e84857 Restore documented Emacs 27.2 behaviour of browse-url-of-d...
+ cd77fd3b85 Update to Org 9.5.2-24-g668205
+
+2022-03-07 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Fix bookmark-bmenu-list sorting.
+
+ Do not sort bookmarks in `bookmark-bmenu-list' if `bookmark-sort-flag'
+ is nil.
+
+ Also, make the default order of bookmark-bmenu-list be the LIFO order
+ defined in `bookmark-sort-flag's documentation.
+
+2022-03-07 Po Lu <luangruo@yahoo.com>
+
+ Fix maximum selection size reporting
+
+ * src/xselect.c (selection_quantum): Take into account extended
+ request size.
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous browse-url-file-url change
+
+ * lisp/net/browse-url.el (browse-url-file-url): Fix typo in
+ previous change.
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix esh-proc-test/kill-pipeline-head loop syntax
+
+ * test/lisp/eshell/esh-proc-tests.el
+ (esh-proc-test/kill-pipeline-head): Fix syntax of loop.
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Inhibit extpipe tests on EMBA, because they apparently time out?
+
+ https://emba.gnu.org/emacs/emacs/-/pipelines/16387
+
+2022-03-06 Po Lu <luangruo@yahoo.com>
+
+ Fix clearing of scroll bars on builds with disabled double buffers
+
+ * src/xterm.c (x_scroll_bar_clear): Use XClearArea if the scroll
+ bar is not double-buffered.
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how bibtex-mark-entry places point
+
+ * lisp/textmodes/bibtex.el (bibtex-mark-entry): Make `C-M-h'
+ behave like in other modes (with point at the beginning of the
+ region) (bug#4717).
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Show SVN status on "." directories, too
+
+ * lisp/vc/vc-svn.el (vc-svn-after-dir-status): Allow tracking
+ state of the "." directory, too, since they may have modified
+ properties (bug#7861).
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix `W' in Dired with non-ASCII file names
+
+ * lisp/net/browse-url.el (browse-url--file-name-coding-system):
+ Factor out into own function.
+ (browse-url-file-url): Property encode non-ASCII characters so
+ that external browsers can understand them.
+ (browse-url-emacs): Make `W' in Dired work with non-ASCII file
+ names (bug#54271).
+
+2022-03-06 Po Lu <luangruo@yahoo.com>
+
+ Get rid of a loop through all frames when processing events
+
+ * src/xterm.c (handle_one_xevent): Just flip back buffer of f
+ and any instead.
+ (flush_dirty_back_buffer_on): New function.
+ (flush_dirty_back_buffers): Delete function.
+
+2022-03-06 Gustaf Waldemarson <gustaf.waldemarson@gmail.com>
+
+ Display complex data types in gdb-mi
+
+ * lisp/progmodes/gdb-mi.el (bindat): Require.
+ (gdb-invalidate-locals): Use `-stack-list-variables` instead of
+ the deprecated `-stack-list-locals`. Additionally, this allow
+ function arguments to be displayed in the locals buffer.
+ (gdb-locals-values-buffer, gdb-locals-values-buffer-name)
+ (gdb-locals-simple-values-only, gdb-locals-values-table): New
+ variables.
+ (gdb-locals-values-handler-custom): Create a new gdb buffer for
+ extracting local variable values. To
+ extract the values for 'complex' data-types, the command
+ `-stack-list-locals` is used with the `--all-values` flag.
+
+ The extracted values are then stored in a hash-table for later use in
+ the `gdb-locals-handler-custom` that performs the actual update of the
+ Local variable buffer.
+
+ All variable values are filtered to fit it into a single line, being
+ truncated as necessary by the user customizable option
+ `gdb-locals-value-limit`.
+
+ The old behavior of hiding complex values can be restored using the
+ customizable `gdb-locals-simple-values-only` option.
+
+ Patch amended by William Xu <william.xwl@gmail.com>.
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix syntax error in obsolete message function
+
+ * lisp/gnus/message.el (message-send-mail-function): Fix syntax error.
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix url-interactive-p type
+
+ * lisp/url/url-vars.el (url-interactive-pw): Fix typo in previous
+ checkin (bug#54275).
+
+2022-03-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix problem with fetching images via Cloudflare
+
+ * lisp/url/url-http.el (url-http): Factor out url-interactive-p.
+ * lisp/url/url-auth.el (url-basic-auth):
+ (url-basic-auth):
+ (url-digest-prompt-creds): Use it to not query the user.
+
+ * lisp/url/url-queue.el (url-queue-start-retrieve): Don't send a
+ bogus empty Authorization header (bug#54246) -- this triggers
+ Cloudflare's anti-attack software. Instead rely on
+ url-request-noninteractive.
+
+ * lisp/url/url-vars.el (url-interactive-p): New utility function.
+
+2022-03-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (ecomplete-add-item): Preserve the more complete text
+
+ Avoid replacing "John Doe <john@doe.ch>" with "john@doe.ch".
+
+ * lisp/ecomplete.el (ecomplete-add-item): Keep the longest text
+
+2022-03-06 Alan Mackenzie <acm@muc.de>
+
+ Restore call to byte-run-strip-symbol-positions in byte-compile-out
+
+ Also increment a loop counter. This should fix bug #54248.
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--strip-vector/record):
increment the
+ loop counter 'i' in the main loop.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-out): call
+ byte-run-strip-symbol-positions on operands which are one-element lists.
+
+2022-03-06 Mattias Engdegård <mattiase@acm.org>
+
+ Don't accept whitespace or hex floats in rgbi: colour specs
+
+ `color-values-from-color-spec` (new in Emacs 28) erroneously accepted
+ leading whitespace and hex floats in rgbi: components.
+
+ Reported by Philip Kaludercic.
+
+ * src/xfaces.c (parse_float_color_comp): Disallow leading whitespace
+ and hex floats.
+ * test/src/xfaces-tests.el
+ (xfaces-internal-color-values-from-color-spec): Add test cases.
+
+2022-03-06 Po Lu <luangruo@yahoo.com>
+
+ Respect inhibit-double-buffering on non-toolkit scroll bars
+
+ * src/xfns.c (x_set_inhibit_double_buffering): Force scroll bars
+ to be re-created on builds without toolkit scroll bars.
+
+ * src/xterm.c (x_scroll_bar_create): Don't initialize back
+ buffer if double buffering is disabled for the frame.
+
+2022-03-06 João Távora <joaotavora@gmail.com>
+
+ Have a couple of lsp faces inherit from basic "shadow"
+
+ * eglot.el (eglot-diagnostic-tag-unnecessary-face)
+ (eglot-diagnostic-tag-deprecated-face): Inherit from 'shadow'.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/858
+
+2022-03-06 Po Lu <luangruo@yahoo.com>
+
+ Slightly fix mouse-highlight processing on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): If no corresponding frame
+ was found for a keyboard event, clear mouse highlight.
+
+2022-03-06 Po Lu <luangruo@yahoo.com>
+
+ Implement frame cascading on Haiku
+
+ * haikufns.c (haiku_create_frame): Cascade frame position with
+ the focused frame if position is not user or programmer
+ specified.
+
+2022-03-06 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 0090318c61 * lib-src/seccomp-filter.c (main): Use faccessat2 only if ...
+ 3bb01a499b Fix regression in derived-mode-init-mode-variables
+
+2022-03-05 Po Lu <luangruo@yahoo.com>
+
+ Implement "window cascading" on NS
+
+ * src/nsfns.m (Fx_create_frame): Cascade new frame position if
+ size hint flags are not USPosition or PPosition.
+
+2022-03-05 Po Lu <luangruo@yahoo.com>
+
+ Reduce non-toolkit scroll bar flicker
+
+ * src/xterm.c (x_scroll_bar_create): Initialize double buffer
+ for scroll bar.
+ (x_scroll_bar_set_handle)
+ (x_scroll_bar_remove, x_scroll_bar_expose): Draw to back buffer
+ instead.
+ (x_scroll_bar_end_update): New function.
+ (x_scroll_bar_clear): Fill the scroll bar with the background
+ instead when double buffered.
+ * src/xterm.h (struct scroll_bar): New field `x_drawable'.
+
+2022-03-05 Po Lu <luangruo@yahoo.com>
+
+ Fix reporting of menu bar wheel events on no toolkit builds
+
+ * src/xterm.c (x_toolkit_position): Handle menu bar position
+ on no-toolkit builds.
+ (x_create_terminal): Always add `toolkit_position_hook'.
+
+2022-03-05 Robert Pluim <rpluim@gmail.com>
+
+ Use pselect instead of select in nsterm.m
+
+ * src/nsterm.m ([EmacsApp fdhandler:]): Use pselect instead of
+ the single remaining use of select (because we try to avoid using
+ select directly) (bug#54245).
+
+2022-03-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix emacs-module-test after recent changes
+
+ * test/Makefile.in ($(test_module)): Include libgnu.a in the
+ module test (because the module uses functions from gnulib)
+ (bug#32452).
+
+2022-03-05 Po Lu <luangruo@yahoo.com>
+
+ Obey decorator-specified width and height of tooltip frames on Haiku
+
+ * src/haiku_support.cc (BWindow_dimensions): New functions.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (Fx_show_tip): Use actual dimensions, because
+ the decorator might specify a minimum width and height for the
+ tooltip frame.
+ * src/haikuterm.c (haiku_update_size_hints): Ignore tooltip
+ frames.
+
+2022-03-05 Po Lu <luangruo@yahoo.com>
+
+ Garbage Haiku tooltip frames on size change
+
+ * haikuterm.c (haiku_read_socket): If tooltip frame dimensions
+ actually changed, garbage the frame.
+
+2022-03-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix process-attributes time precision on BSD
+
+ * src/sysdep.c (timeval_to_timespec) [__FreeBSD__ || DARWIN_OS]:
+ Remove; no longer needed.
+ (make_lisp_s_us) [__FreeBSD__ || DARWIN_OS || __OpenBSD__]:
+ New function.
+ (make_lisp_timeval) [__FreeBSD__ || DARWIN_OS || __OpenBSD__]:
+ Rework in terms of make_lisp_s_us.
+ (system_process_attributes) [__FreeBSD__ || DARWIN_OS ||
+ __OpenBSD__]: Simplify by using the above. This fixes some minor
+ problems where timestamps promised more precision than was
+ actually available.
+
+2022-03-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix process-attributes time precision on GNU/Linux
+
+ * src/sysdep.c [GNU_LINUX]:
+ (time_from_jiffies): Simplify by using time-convert. Change args
+ and result type. All uses changed.
+ (ltime_from_jiffies): Remove; call time_from_jiffies instead.
+ (put_jiffies): New function.
+ (get_up_time): Return Lisp_Object not struct timespec.
+ All uses changed. Simplify by using time-add.
+ (system_process_attributes): Simplify by using the above.
+ This fixes some minor problems where timestamps promised more
+ precision than was actually available. When info is not
+ available (e.g., sysconf fails) do not place it into the alist.
+ * src/timefns.c (float_time): Now extern.
+
+2022-03-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ %CPU can exceed 100 on GNU/Linux
+
+ * src/sysdep.c (system_process_attributes) [GNU_LINUX]:
+ CPU usage can exceed 100% on a multicore platform when Emacs is
+ not entirely single-threaded.
+
+2022-03-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Avoid unnecessary make_float in time arithmetic
+
+ * src/timefns.c (float_time): New function.
+ (time_arith, Ffloat_time): Use it.
+
+2022-03-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix FreeBSD typo in process-attributes cstime
+
+ * src/sysdep.c (system_process_attributes) [__FreeBSD__]:
+ Fix typo that caused cstime to always equal cutime.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Flush default GC before using it in functions that accept a GContext
+
+ * src/xterm.c (x_scroll_run): Flush normal_gc, since some of the
+ following code depends on it being up-to-date.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Remove render code in x_scroll_run and drop NoExpose events instead
+
+ * src/xterm.c (x_scroll_run): Stop avoiding NoExpose events
+ through XRenderComposite.
+ (handle_one_xevent): Drop NoExpose events to placate some code
+ in Athena widgets.
+
+2022-03-04 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-shell: Ensure the resulting buffer is live
+
+ * lisp/progmodes/project.el (project-shell):
+ Make sure to recreate the shell if the buffer exists but not live
+ (https://lists.gnu.org/archive/html/emacs-devel/2022-03/msg00017.html).
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Prevent some NoExpose events from being generated
+
+ * src/xterm.c (x_scroll_run): Use the rendering extension if
+ available to avoid NoExpose events.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Implement `pre_activate' callbacks for Motif menus
+
+ * lwlib/lwlib-Xm.c (make_menu_in_widget): Add
+ xm_pop_up_callback as the popup callback.
+ (xm_pop_up_callback): New function.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS build
+
+ * msdos/sedlibmk.inp: Update for gnulib merge.
+
+2022-03-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ trace.el: Preserve the line structure
+
+ Print newlines appearing inside values (i.e. inside strings) as \n
+ rather than actual newlines so as to avoid messing up the main
+ structure of the trace buffer.
+
+ * lisp/emacs-lisp/trace.el (trace-entry-message)
+ (trace-exit-message, trace--read-args): Quote newlines
+
+2022-03-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid statting directories on startup for Info
+
+ * doc/misc/efaq.texi (File-name conventions) Mention
+ Info-directory-list instead.
+
+ * doc/misc/info.texi (Emacs Info Variables): Mention
+ Info--default-directory-list.
+
+ * lisp/info.el (Info-default-directory-list): Default to nil to
+ avoid statting directories on Emacs startup (bug#27933).
+ (Info--default-directory-list): Factored out into own function.
+ (Info-default-dirs): Append value of Info-default-directory-list
+ to the value returned from Info--default-directory-list.
+
+2022-03-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve scroll-bar-mode/default-frame-alist interaction docs
+
+ * lisp/scroll-bar.el (scroll-bar-mode): Mention
+ default-frame-alist (bug#54237).
+
+ * src/frame.c (syms_of_frame): Clarify further that setting this
+ variable may have unintended consequences.
+
+2022-03-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add some sleeps to gnutls_try_handshake
+
+ * admin/merge-gnulib (GNULIB_MODULES): Add the nanosleep module.
+ * m4/gnulib-comp.m4 (gl_EARLY):
+ * lib/gnulib.mk.in: Automatic update.
+
+ * m4/nanosleep.m4:
+ * lib/nanosleep.c: New module.
+
+ * nt/mingw-cfg.site (gl_cv_func_free_preserves_errno):
+ * nt/gnulib-cfg.mk (OMIT_GNULIB_MODULE_nanosleep): Omit nanosleep,
+ since mingw has it.
+
+ * src/gnutls.c (gnutls_try_handshake): Add some sleeping to the
+ busy-wait loop so that we don't use 100% CPU here (bug#32452).
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Add a few warnings about special event structures on X
+
+ * xterm.c (x_construct_mouse_click)
+ (x_note_mouse_movement): Add comments explaining the nature of
+ some special event structures.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Fix some errors in stretch glyphs code on PGTK
+
+ * src/pgtkterm.c (x_draw_stretch_glyph_string): Remove
+ unnecessary code. Reported by Eli Zaretskii <eliz@gnu.org>.
+
+2022-03-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix wording and punctuation in recent Gnus documentation changes
+
+ * lisp/gnus/nnselect.el (nnselect-allow-ephemeral-expiry): Make
+ the first sentence of the doc string be a single line.
+
+ * doc/misc/gnus.texi (Creating Search Groups): Fix space between
+ sentences.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Initialize time inside motion and button events converted from XI events
+
+ * src/xterm.c (handle_one_xevent): Make sure time is initialized
+ in artificial events passed to functions that use it.
+
+2022-03-04 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Turn expiry on for nnselect groups
+
+ Articles in (persistent) groups from the gnus/nnselect backend will
+ now be run through the expiry process upon exit, like other persistent
+ groups. Expiry is not on by default for ephemeral nnselect groups but
+ may be turned on with nnselect-allow-ephemeral-expiry set to t.
+
+ * lisp/gnus/nnselect.el (nnselect-request-expire-articles): Make
+ article expiry work.
+ (nnselect-allow-ephemeral-expiry): New variable.
+ * doc/misc/gnus.texi (Creating Search Groups): Document
+ nnselect-allow-ephemeral-expiry.
+
+2022-03-04 Po Lu <luangruo@yahoo.com>
+
+ Correctly process legacy XI wheel events on top of scroll bars
+
+ * src/xterm.c (handle_one_xevent): Handle XI button events
+ generated by scroll wheels on top of scroll bars.
+
+2022-03-03 Po Lu <luangruo@yahoo.com>
+
+ Pass core scroll wheel events outside the edit widget to Emacs on GTK
+
+ * src/xterm.c (x_construct_mouse_click): Translate coordinates
+ if the event window is not the edit widget window.
+ (handle_one_xevent): Treat core scroll wheel events specially,
+ if mouse_or_wdesc_frame did not find the frame.
+
+2022-03-03 Po Lu <luangruo@yahoo.com>
+
+ Fix display of stretch glyphs when hscrolled on PGTK
+
+ * pgtkterm.c (x_draw_stretch_glyph_string): Use correct box
+ dimensions.
+
+2022-03-03 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (pgtk_draw_fringe_bitmap): Synchronize logic with X.
+
+2022-03-03 Po Lu <luangruo@yahoo.com>
+
+ Synchronize NS fringe bitmap code with X
+
+ * nsterm.m (ns_draw_fringe_bitmap): Redefine bitmap if it does
+ not already exist.
+
+2022-03-03 Po Lu <luangruo@yahoo.com>
+
+ Synchronize Haiku fringe bitmap code with X
+
+ * haikuterm.c (haiku_draw_fringe_bitmap):
+ (haiku_define_fringe_bitmap):
+ (haiku_destroy_fringe_bitmap): Synchronize logic with X.
+
+2022-03-03 Po Lu <luangruo@yahoo.com>
+
+ Merge from origin/emacs-28
+
+ 29ff903bb0 Avoid crashes when fringe bitmaps are defined in daemon mode
+ 92e2d19fe7 One more fix of the BPA implementation
+ cd51d9c7ab Fix handling of brackets in BPA
+
+2022-03-03 Philipp Stephani <phst@google.com>
+
+ Teach Edebug about the special '&whole' syntax for compiler macros.
+
+ * lisp/emacs-lisp/cl-macs.el (cl-define-compiler-macro-list): New
+ Edebug element specification.
+ (cl-define-compiler-macro): Use it.
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el
+ (cl-define-compiler-macro/edebug): New unit test.
+
+2022-03-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (with-demoted-errors): Fix bug#54225
+
+ * lisp/subr.el (with-demoted-errors): Adjust to argument order of
+ `macroexp-warn-and-return` changed in f262a6af3694b41828ff.
+
+2022-03-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix clobbering of match data in executable-set-magic
+
+ * lisp/progmodes/executable.el (executable-set-magic): Switching
+ buffers may clobber match data, so save the match data first
+ (bug#54218).
+
+2022-03-03 Jim Porter <jporterbugs@gmail.com>
+
+ Allow splitting strings in Eshell expansions with "plain" strings
+
+ Since '$var[hello 0]' doesn't make sense when 'var' is a string, the
+ previous restriction was unnecessary.
+
+ * lisp/eshell/esh-var.el (Commentary): Update documentation.
+ (eshell-apply-indices): Allow "plain" strings to split strings.
+
+ * test/lisp/eshell/esh-var-test.el
+ (esh-var-test/interp-var-string-split-indices)
+ (esh-var-test/quoted-interp-var-string-split-indices): Update tests.
+
+ * doc/misc/eshell.texi (Dollars expansion): Update documentation.
+
+2022-03-03 Jim Porter <jporterbugs@gmail.com>
+
+ Fix parsing of indices in Eshell expansions
+
+ Previously, more-complex index expansions, like '$var[":" 0]' or
+ '$var[$(expr) 0]' failed to parse correctly.
+
+ * lisp/eshell/esh-var.el (Commentary): Clarify indexing and length
+ expansions.
+ (eshell-parse-indices): Expand docstring and support parsing inside
+ double-quotes.
+ (eshell-eval-indices): New function.
+ (eshell-parse-variable): Use it.
+
+ * test/lisp/eshell/esh-var-tests.el (eshell-test-value): New defvar.
+ (esh-var-test/interp-var-indices,
+ (esh-var-test/interp-var-split-indices)
+ (esh-var-test/interp-var-string-split-indices)
+ (esh-var-test/interp-var-regexp-split-indices)
+ (esh-var-test/interp-var-assoc, esh-var-test/interp-var-length-list)
+ (esh-var-test/interp-var-length-string)
+ (esh-var-test/interp-var-length-alist)
+ (esh-var-test/quoted-interp-var-indices)
+ (esh-var-test/quoted-interp-var-split-indices)
+ (esh-var-test/quoted-interp-var-string-split-indices)
+ (esh-var-test/quoted-interp-var-regexp-split-indices)
+ (esh-var-test/quoted-interp-var-assoc)
+ (esh-var-test/quoted-interp-var-length-list)
+ (esh-var-test/quoted-interp-var-length-string)
+ (esh-var-test/quoted-interp-var-length-alist): New tests.
+
+ * doc/misc/eshell.texi (Dollars Expansion): Expand and reword
+ documentation for indexing and length expansions.
+
+2022-03-03 Jim Porter <jporterbugs@gmail.com>
+
+ Fix Eshell dollar interpolation inside of double-quotes
+
+ For example,
+
+ echo "${echo hi}"
+
+ previously tried to run the program named 'echo hi', instead of 'echo'
+ with the argument 'hi'.
+
+ * lisp/eshell/esh-arg.el (eshell-parse-inner-double-quote):
+ New function.
+
+ * lisp/eshell/esh-var.el (eshell-parse-variable-ref): Support parsing
+ when wrapped in double-quiotes.
+
+ * test/lisp/eshell/esh-var-tests.el (esh-var-test/interp-var)
+ (esh-var-test/interp-quoted-var)
+ (esh-var-test/interp-quoted-var-concat)
+ (esh-var-test/quoted-interp-var)
+ (esh-var-test/quoted-interp-quoted-var)
+ (esh-var-test/quoted-interp-lisp, esh-var-test/quoted-interp-cmd)
+ (esh-var-test/quoted-interp-temp-cmd): New tests.
+
+2022-03-03 Jim Porter <jporterbugs@gmail.com>
+
+ Add a new macro to simplify parsing temporary Eshell command strings
+
+ This abstracts out the somewhat-unusual "insert&delete" logic in
+ 'eshell-parse-command' so that it can be used elsewhere, and also
+ ensures that the deletion occurs even if an an error occurs.
+
+ * lisp/eshell/esh-cmd.el (eshell-with-temp-command): New macro.
+ (eshell-parse-command): Use it.
+
+2022-03-03 Jim Porter <jporterbugs@gmail.com>
+
+ Move Eshell variable interpolation tests to their own file
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/interp-cmd)
+ (eshell-test/interp-lisp, eshell-test/interp-temp-cmd)
+ (eshell-test/interp-concat, eshell-test/interp-concat-lisp)
+ (eshell-test/interp-concat2, eshell-test/interp-concat-lisp2)
+ (eshell-test/interp-cmd-external)
+ (eshell-test/interp-cmd-external-concat, eshell-test/window-height)
+ (eshell-test/window-width, eshell-test/last-result-var)
+ (eshell-test/last-result-var2, eshell-test/last-arg-var):
+ Move from here...
+
+ * test/lisp/eshell/esh-var-test.el (esh-var-test/interp-lisp)
+ (esh-var-test/interp-cmd, esh-var-test/interp-cmd-external)
+ (esh-var-test/interp-temp-cmd, esh-var-test/interp-concat-lisp)
+ (esh-var-test/interp-concat-lisp2, esh-var-test/interp-concat-cmd)
+ (esh-var-test/interp-concat-cmd2)
+ (esh-var-test/interp-concat-cmd-external, esh-var-test/window-height)
+ (esh-var-test/window-width, esh-var-test/last-result-var)
+ (esh-var-test/last-result-var2, esh-var-test/last-arg-var):
+ ... to here.
+
+2022-03-03 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 225e0d6047 Correct etc/NEWS entry about bitmapped fonts
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-03-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ Cache the backend value together with the project root
+
+ * lisp/progmodes/project.el (project-try-vc):
+ Cache the backend value together with the root.
+ (project-root, project-files, project-ignores):
+ Update to access the new data structure.
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c: Fix commentary on GTK client side windows.
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif build without toolkit scroll bars
+
+ * src/xterm.c: Always include Xm.h on Motif.
+
+2022-03-02 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el: Bump the version.
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ Don't calculate any frame for extension events
+
+ * src/xterm.c (handle_one_xevent): If event is not a core event,
+ don't try to calculate any from event.xany.window.
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ Implement `toolkit_position_hook' on PGTK
+
+ * src/pgtkterm.c (pgtk_toolkit_position): New function.
+ (pgtk_create_terminal): Set it as the toolkit position hook.
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ Fix menu bar position reporting on Haiku as well
+
+ * src/haikuterm.c (haiku_toolkit_position): New function.
+ (haiku_create_terminal): Register new hook.
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ Fix reporting of imaginary key prefixes on toolkit tool and menu bars
+
+ * src/keyboard.c (make_lispy_position): Set imaginary prefix if
+ the terminal says what widget the position is on top of.
+ * src/termhooks.h (struct terminal): New field
+ `toolkit_position_hook'.
+ * src/xterm.c (x_toolkit_position): New function.
+ (x_create_terminal): Register hook.
+
+2022-03-02 Brian Leung <bkleung89@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Prevent empty diagnostic tags vector hiding main fontification
+
+ * eglot.el (eglot-handle-notification): Require that the resulting
+ list of faces is non-empty and that each face corresponds only to a
+ known tag.
+
+ For unknown tags, we don't pass any additional face information to
+ Flymake, and instead expect it to make the appropriate overlay with
+ the "severity" property of the Diagnostic.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/851
+
+2022-03-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9dadcbe429 ; * doc/misc/eshell.texi (Dollars Expansion): Fix markup.
+ 2c3d1b6bf4 Improve/correct documentation about Eshell variable expansion
+ 9e257aecc9 Partially revert b03f74e0f2a578b1580e8b1c368665850ee7f808
+
+2022-03-02 Po Lu <luangruo@yahoo.com>
+
+ Fix some bugs with multiple terminals on Haiku
+
+ * src/haikuterm.c (haiku_mouse_position): Only clear
+ `mouse_moved' for Haiku frames.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Fix persistent help text on disabled menu items
+
+ * oldXMenu/Activate.c (XMenuActivate): Always deactivate help
+ echo upon leaving a menu item.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ * src/msdos.c (dos_rawgetc): Handle tab bar clicks correctly.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Dismiss help text when item becomes unactivated on oldXMenu
+
+ * oldXMenu/Activate.c (XMenuActivate): Dismiss help text when
+ leaving an item.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Fix odd scrolling bugs on LessTif
+
+ * src/xterm.c (handle_one_xevent): Give emulated button events
+ to Motif.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Improve behavior of Motif popup menus on XI2
+
+ * src/xmenu.c (create_and_show_popup_menu): Set input focus to
+ menu window.
+
+2022-03-01 Paul Eggert <eggert@cs.ucla.edu>
+
+ Revert previous merge-gnulib change
+
+ * admin/merge-gnulib: Revert previous stopgap change.
+ It shouldn’t be needed now that Gnulib has the change
+ 2022-03-01T18:01:59Z!eggert@cs.ucla.edu.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Add PropertyChangeMask to the standard event set
+
+ * src/xfns.c (x_window): Remove special Motif code.
+ * src/xterm.h (STANDARD_EVENT_SET): Add PropertyChangeMask.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Fix crashes and other bugs on LessTif
+
+ * lwlib/lwlib-Xm.c (make_menu_in_widget): XmIsRowColumn is
+ broken on the latest LessTif release, so avoid that here.
+ * src/xfns.c (x_window): Add PropertyChangeMask which LessTif
+ doesn't do itself.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Fix reporting of wheel events on top of GTK scroll bars
+
+ * src/gtkutil.c (xg_update_scrollbar_pos):
+ (xg_update_horizontal_scrollbar_pos): Stop ensuring the window
+ is native.
+ (xg_event_is_for_scrollbar): New variable `for_valuator'.
+ All callers changed.
+ * src/gtkutil.h: Update prototypes.
+ * src/xterm.c (handle_one_xevent): Drop all valuator change
+ events destined for scroll bars.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ * src/xwidget.h: Fix build with XI 2.4.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Make precision scrolling on top of the tool bar work
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Bind
+ some more events.
+
+ (pixel-scroll-precision):
+ (pixel-scroll-start-momentum): If window is a frame, use its
+ selected window.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Avoid duplicate wheel and button events on non-toolkit scroll bars
+
+ * src/xterm.c (x_scroll_bar_create): Set appropriate input
+ extension event mask.
+ (handle_one_xevent): Move some ifdefs around and handle input
+ extension button events on scroll bars.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Fix old X menu on builds with XI2
+
+ * oldXMenu/Activate.c (XMenuActivateSetTranslateFunction): New
+ function.
+ (XMenuActivate): Handle generic events.
+ * oldXMenu/XMenu.h: New prototypes.
+ (Translate_func): New type.
+ * src/xmenu.c (x_menu_wait_translate_generic_event): New
+ function.
+ (x_menu_show): Set translate function.
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Disable some code that interferes with menus on Lucid
+
+ * src/xmenu.c (create_and_show_popup_menu)
+ (server_timestamp_predicate): Disable timestamp code on builds
+ using the Lucid menu bar widget.
+
+2022-03-01 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 6dbc3da205 Fix :tag for eol in tab-first-completion
+
+2022-03-01 Po Lu <luangruo@yahoo.com>
+
+ Fix C-g inside toolkit file dialogs with XI2
+
+ * src/xfns.c (Fx_file_dialog): Handle GenericEvents when looking
+ for quit character.
+ * src/xmenu.c (x_menu_wait_for_event): If data is non-nil, use
+ XPending.
+
+2022-03-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-02-28 02:58:30 UTC.
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ Intern server time property during terminal initialization
+
+ * src/xmenu.c (create_and_show_popup_menu): Use previously
+ interned atom.
+ * src/xterm.c (x_term_init): New atom `EMACS_SERVER_TIME_PROP'.
+ * src/xterm.h (struct x_display_info): New field
+ `Xatom_EMACS_SERVER_TIME_PROP'.
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif menu help text in submenus
+
+ * lwlib/lwlib-Xm.c (xm_arm_callback):
+ (make_menu_in_widget):
+ (update_one_menu_entry):
+ (xm_update_one_widget):
+ (do_call): Pass instance to arm callback and use wv as user data
+ instead of call data.
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c: Explain frame resize synchronization.
+
+2022-02-28 Paul Eggert <eggert@cs.ucla.edu>
+
+ Work around merge-gnulib glitch from fresh checkout
+
+ * admin/merge-gnulib: In a fresh checkout, run gnulib-tool
+ twice, instead of merely running autogen.sh twice.
+
+2022-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ ecomplete: Try and avoid losing data
+
+ * lisp/ecomplete.el (ecomplete-add-item): Make sure the database is
+ setup, so we don't risk overwriting it with a (mostly) empty one.
+ (ecomplete-save): Don't save an empty database.
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ Clean up input extension event handling code
+
+ * src/xterm.c (handle_one_xevent): Fix usages of event
+ structures of the wrong type.
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Add some missing dead keys.
+
+2022-02-28 Mattias Engdegård <mattiase@acm.org>
+
+ Clean up byte-compile-arglist-warn
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-arglist-warn):
+ Remove unnecessary sort (only need min and max). Reduce mutation.
+
+2022-02-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix :color specification in flat-button boxes
+
+ * src/xfaces.c (realize_gui_face): Allow reliably specifying
+ :color in flat-button boxes (bug#54196).
+
+2022-02-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't throw errors while propertizing in sgml-mode
+
+ * lisp/textmodes/sgml-mode.el (sgml-syntax-propertize): Don't
+ throw an error when propertizing (bug#54195).
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ Better fix for bug#13476
+
+ * lisp/faces.el (face-spec-recalc): Apply scroll bar foreground
+ and background to the frame if changing the scroll-bar face.
+ (scroll-bar): Restore previous declaration. That way, the
+ default colors are used for toolkit scroll bars, instead of
+ black and white.
+
+2022-02-28 Po Lu <luangruo@yahoo.com>
+
+ Improve treatment of toolkit scroll bars with the input extension
+
+ * src/xterm.c (x_create_horizontal_toolkit_scroll_bar)
+ (x_create_toolkit_scroll_bar): Set XI2 event mask appropriately.
+ (handle_one_xevent): Make sure coordinates are correct for the
+ frame's window when handling wheel events.
+
+2022-02-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e77fc8262a Update to Org 9.5.2-22-g33543d
+ 9bce4b67f1 ; * lisp/help.el (with-help-window): Doc fix. (Bug#54170)
+ 558b03a958 Add explicit '--no-heading' for ripgrep
+
+2022-02-27 Po Lu <luangruo@yahoo.com>
+
+ Don't save menu bar events that land on the menu bar itself
+
+ * src/xterm.c (handle_one_xevent): Ignore menu bar events which
+ land on the menu bar itself instead of a button.
+
+2022-02-27 Po Lu <luangruo@yahoo.com>
+
+ Treat scroll bar information consistently on Haiku
+
+ * src/haiku_support.cc (class EmacsScrollBar): New field `info'.
+ (EmacsScrollBar): Obtain scroll bar info on initialization.
+ (ButtonRegionFor): Use that information instead.
+
+2022-02-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Merge from gnulib
+
+ * m4/gnulib-common.m4 (gl_COMMON_BODY):
+ * lib/gnulib.mk.in (CXXCPP):
+ * lib/cdefs.h: Updated with admin/merge-gnulib. (This is in
+ preparation to adding the nanosleep module later.)
+
+2022-02-27 Po Lu <luangruo@yahoo.com>
+
+ Don't send help-echo on menu button arming not caused by motion events
+
+ * lwlib/lwlib-Xm.c (xm_arm_callback): Ignore arming if the arm
+ was not caused by an EnterNotify or MotionNotify event.
+
+2022-02-27 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Translate motion events on Motif.
+
+2022-02-27 Po Lu <luangruo@yahoo.com>
+
+ Work around some problems with Motif and the input extension
+
+ * src/xmenu.c (create_and_show_popup_menu): Restore input focus
+ to the frame's outer window if there was an input extension
+ grab.
+
+2022-02-27 Po Lu <luangruo@yahoo.com>
+
+ Translate some more input extension events needed by Motif
+
+ * src/xterm.c (handle_one_xevent): Translate XI_Enter and
+ XI_Leave events when built with Motif.
+
+2022-02-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a50f8dec09 Follow OpenSSH changes in Tramp
+ e86eae21a9 Document better how to reset attributes of faces for new f...
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ * commands.texi (Misc Events): Update description of wheel events.
+
+2022-02-26 Manuel Uberti <manuel.uberti@inventati.org>
+
+ Add project-ignore-buffer-conditions
+
+ * lisp/progmodes/project.el (project-ignore-buffer-conditions):
+ New defcustom.
+ (project--read-project-buffer):
+ Use it (bug#54100).
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Fix translation of button events.
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ Fix Motif menu and menu bar dismissal on XI2
+
+ * src/xmenu.c (x_activate_menubar): Improve ungrabbing logic on
+ XI2.
+ (server_timestamp_predicate): New function.
+ (create_and_show_popup_menu): If the display supports XI2, make
+ sure the timestamps are correct by dispatching a PropertyNotify
+ event to Xt.
+ * src/xterm.c (handle_one_xevent): Translate XI_ButtonRelease
+ events into core events before dispatching them to Xt.
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ Ignore irrelevant button events on Haiku scroll bars
+
+ * src/haiku_support.cc (MouseDown): Ignore if there are too many
+ buttons pressed.
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes on event for removed scroll bar on Haiku
+
+ * src/haiku_support.cc (class EmacsScrollBar): Remove field
+ `scroll_bar'.
+ (ValueChanged, MouseDown, MouseUp, BScrollBar_make_for_view):
+ Adjust for changes.
+
+ * src/haiku_support.h (struct haiku_scroll_bar_value_event)
+ (struct haiku_scroll_bar_drag_event)
+ (struct haiku_scroll_bar_part_event): New field `window'.
+
+ * src/haikuterm.c (haiku_scroll_bar_from_widget): New function.
+ (haiku_read_socket): Adjust for changes in scroll bar event
+ structures.
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ Fix reporting of horizontal scroll bar buttons on Haiku
+
+ * haikuterm.c (haiku_read_socket): Use correct values for scroll
+ bar buttons when the scroll bar is horizontal.
+
+2022-02-26 Po Lu <luangruo@yahoo.com>
+
+ Improve scroll bar button handling on Haiku
+
+ * src/haiku_io.c (haiku_len): Add `SCROLL_BAR_PART_EVENT'.
+ * src/haiku_support.cc (class EmacsScrollBar): New fields
+ `dragging' and `current_state', along with `old_value' and
+ `current_part'.
+ (EmacsScrollBar): Set horizontal flag to `horizontal_p'.
+ (MessageReceived): Set old_value when receiving
+ SCROLL_BAR_UPDATE message.
+ (ValueChanged): Don't allow scroll bar values to change while
+ dragging.
+ (MouseUp, MouseDown): Calculate button under mouse and act
+ accordingly.
+ * src/haiku_support.h (enum haiku_event_type): New event
+ `SCROLL_BAR_PART_EVENT'.
+ (enum haiku_scroll_bar_part): New enumerator.
+ (struct haiku_scroll_bar_part_event): New struct.
+ * src/haikuterm.c (haiku_read_socket): Handle
+ SCROLL_BAR_PART_EVENTs.
+
+2022-02-26 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ded89ed3fa * lisp/net/tramp-sh.el (tramp-ssh-controlmaster-options): ...
+
+2022-02-25 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Set user time for xwidgets as well.
+
+2022-02-25 Dmitry Gutov <dgutov@yandex.ru>
+
+ Drop the visited file modtime check for remote xref hits
+
+ * lisp/progmodes/xref.el (xref--hits-remote-id): New variable.
+ (xref--convert-hits, xref--collect-matches)
+ (xref--find-file-buffer): Use it (bug#54025).
+
+2022-02-25 Paul Eggert <eggert@cs.ucla.edu>
+
+ Robustify merge-gnulib a bit
+
+ * admin/merge-gnulib: Fail if autogen.sh fails.
+ Remove autom4te.cache before running gnulib-tool.
+
+2022-02-25 Bob Rogers <rogers@rgrjr.com>
+
+ Add new file ietf-drums-date.el
+
+ * lisp/mail/ietf-drums-date.el: parse-time-string replacement which is
+ compatible but can be made stricter if desired.
+ * test/lisp/mail/ietf-drums-date-tests.el (added): Add tests for
+ ietf-drums-parse-date-string.
+ * lisp/mail/ietf-drums.el (ietf-drums-parse-date): Use
+ ietf-drums-parse-date-string.
+
+2022-02-25 Po Lu <luangruo@yahoo.com>
+
+ Improve treatment of dropping mouse track state on Haiku
+
+ * src/haikuterm.c (haiku_mouse_or_wdesc_frame): New function.
+ (haiku_read_socket): Use it to find the appropriate frame when
+ handling motion or button events.
+
+2022-02-25 Po Lu <luangruo@yahoo.com>
+
+ Improve tracking of modified regions on Haiku
+
+ * src/haiku_support.cc (class EmacsView): New field
+ `invalid_region'.
+ (FlipBuffers): Only invalidate that region.
+ (SetUpDoubleBuffering): Clear that region.
+ (BView_draw_lock): New parameters for denoting the region
+ to invalidate.
+ (BView_invalidate_region): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufns.c (haiku_set_background_color):
+ * src/haikumenu.c (digest_menu_items):
+ * src/haikuterm.c (haiku_clip_to_string):
+ (haiku_flip_buffers):
+ (haiku_clear_frame_area):
+ (haiku_clear_frame):
+ (haiku_draw_glyph_string):
+ (haiku_after_update_window_line):
+ (haiku_draw_window_cursor):
+ (haiku_draw_vertical_window_border):
+ (haiku_draw_window_divider):
+ (haiku_draw_fringe_bitmap):
+ (haiku_scroll_run):
+ (haiku_read_socket):
+ (haiku_flash):
+ (haiku_clear_under_internal_border): Mark appropriate region as
+ invalid before buffer flip.
+
+2022-02-25 Po Lu <luangruo@yahoo.com>
+
+ Fix calculation of scroll deltas when coalescing wheel events
+
+ * src/xterm.c (handle_one_xevent): Use accumulated values
+ instead of raw delta to determine scroll amounts.
+
+2022-02-25 Po Lu <luangruo@yahoo.com>
+
+ Make interpolated scrolling work above non-selected windows
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-interpolate): New
+ parameter `old-window'.
+ (pixel-scroll-precision): Pass originally selected window to the
+ interpolation function.
+
+2022-02-25 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5c77aed2d6 Mention flyspell-prog-mode in flyspell-mode doc string
+
+2022-02-24 Jim Porter <jporterbugs@gmail.com>
+
+ Fix Eshell process tests to (hopefully) work on all platforms
+
+ * test/lisp/eshell/esh-proc-tests.el (esh-proc-test/kill-pipeline):
+ Fix test (bug#54136).
+
+2022-02-24 Dmitry Gutov <dgutov@yandex.ru>
+
+ xref--find-file-buffer: Check modified-p and modtime
+
+ * lisp/progmodes/xref.el (xref--find-file-buffer):
+ Check whether the buffer contents match what's on disk
+ (bug#54025).
+
+2022-02-24 Po Lu <luangruo@yahoo.com>
+
+ Set user time when receiving any wheel events
+
+ * src/xterm.c (handle_one_xevent): Set user time if the mouse
+ wheel moved.
+
+2022-02-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix esh-proc-tests on MS-Windows
+
+ * test/lisp/eshell/esh-proc-tests.el (esh-proc-test/kill-pipeline)
+ (esh-proc-test/kill-background-process): Fix tests on MS-Windows.
+
+2022-02-24 Eli Zaretskii <eliz@gnu.org>
+
+ Make 't' in Buffer-menu be more defensive
+
+ * lisp/buff-menu.el (Buffer-menu-visit-tags-table): Verify that
+ the buffer holds a tags-table file before using it as such.
+ (Bug#54133)
+
+2022-02-24 Paul Eggert <eggert@cs.ucla.edu>
+
+ * admin/merge-gnulib: fix bare checkout (Bug#32452#65)
+
+2022-02-24 Alan Mackenzie <acm@muc.de>
+
+ Amend byte-run-strip-symbol-positions so that an unexec build builds
+
+ This fixes bug #54098.
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--strip-list)
+ (byte-run--strip-vector/record): New functions. These alter a list or
+ vector/record structure only where a symbol with position gets replaced
by a
+ bare symbol.
+ (byte-run-strip-symbol-positions): Reformulate to use the two new
functions.
+ (function-put): No longer strip positions from the second and third
arguments.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-out): Remove the senseless
+ "stripping" of putative symbol positions from OPERAND, which is nil or a
+ number.
+
+2022-02-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix symlinks in tramp-sshfs.el (Bug#54130)
+
+ * lisp/net/tramp-sshfs.el (tramp-methods) <sshfs>:
+ Add "-o transform_symlinks" to `tramp-mount-args'.
+ (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-sshfs-handle-file-writable-p'.
+ (tramp-sshfs-handle-file-writable-p): New defun. (Bug#54130)
+
+ * test/lisp/net/tramp-tests.el (tramp-test18-file-attributes)
+ (tramp-test20-file-modes): Adapt tests.
+
+2022-02-24 Po Lu <luangruo@yahoo.com>
+
+ Check if WM support for NET_WM_USER_TIME_WINDOW changed during updates
+
+ * src/xterm.c (x_display_set_last_user_time): Update the user
+ time window if window manager support changed.
+
+ * src/xterm.h (struct x_display_info): New field
+ `last_user_check_time'.
+
+2022-02-24 Jim Porter <jporterbugs@gmail.com>
+
+ Don't superfluously emit prompts when terminating processes in Eshell
+
+ * lisp/eshell/esh-proc.el (eshell-kill-process-function): Only reset
+ the prompt if PROC is writing to the terminal.
+ (eshell-sentinel): Only write the exit message if PROC is writing to
+ the terminal (bug#54136).
+
+ * test/lisp/eshell/esh-proc-tests.el (esh-proc-test/kill-pipeline)
+ (esh-proc-test/kill-pipeline-head)
+ (esh-proc-test/kill-background-process): New tests.
+
+2022-02-24 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5942504391 Reword face-remap-add-relative manual entry
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Set border colors through the toolkit
+
+ * src/xfns.c (x_set_border_pixel): Set colors through Xt to
+ avoid some problems.
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Fix auto-lower when the mouse moves onto a scrollbar on Haiku
+
+ * src/haiku_support.cc (MouseMoved):
+ (BView_inside_scroll_bar): New functions.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_read_socket): Don't auto-lower if the
+ pointer left the view for a scroll bar.
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Add support for _NET_WM_STATE_SHADED
+
+ * doc/lispref/frames.texi (Management Parameters): Document new
+ frame parameter `shaded'.
+ * etc/NEWS: Announce new frame parameter.
+
+ * src/frame.c (frame_parms) [HAVE_X_WINDOWS]: New frame
+ parameter `shaded'.
+ (syms_of_frame): New symbol `shaded'.
+ * src/xfns.c (x_frame_parm_handlers): Install handler
+ `x_set_shaded'.
+ * src/xterm.c (x_set_shaded): New frame parameter handler.
+ (x_get_current_wm_state): New parameter `shaded'. All callers
+ changed.
+ (x_net_wm_state):
+ (x_handle_net_wm_state): Handle shaded state.
+ (x_term_init): Intern new atom `shaded'.
+ * src/xterm.h: Update prototypes.
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Condition out things specific to some versions of the input extension
+
+ * src/xterm.c (x_free_xi_devices, x_init_master_valuators)
+ (handle_one_xevent): Condition out code that isn't supposed to
+ be run on the current input extension version.
+ * src/xterm.h (struct xi_scroll_valuator_t): Make conditional on
+ HAVE_XINPUT2_1.
+ (struct xi_touch_point_t): Make conditional on HAVE_XINPUT2_2.
+ (struct xi_device_t): Make individual fields conditional on the
+ appropriate client-side input extension version.
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Fix the MS-DOS port
+
+ * msdos/sedlibmk.inp:
+ * src/conf_post.h [MSDOS]: Update for recent gnulib.
+
+2022-02-23 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -Wanalyzer-null-dereference
+
+ * src/xdisp.c (normal_char_ascent_descent): Pacify GCC 11.2.1
+ 20220127 (Red Hat 11.2.1-9) x86-64 -Wanalyzer-null-dereference.
+
+2022-02-23 Mauro Aranda <maurooaranda@gmail.com>
+
+ Fix auth-sources defcustom
+
+ * lisp/auth-source.el (auth-sources): The extra attributes should be
+ in a plist, so inline both :host and :port. Also, give a valid
+ default value for the choice (bug#54127).
+
+2022-02-23 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port pre-commit hook to Git 2.35.0
+
+ * build-aux/git-hooks/pre-commit: Use LC_ALL=C grep -E instead of
+ sane_egrep (removed in Git 2.35.0).
+
+2022-02-23 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port to current Gnulib some more
+
+ * admin/merge-gnulib: Remove lib/stdio-read.c and lib/stdio-write.c,
+ as Emacs doesn’t need these new Gnulib files.
+
+2022-02-23 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from Gnulib by running admin/merge-gnulib
+
+2022-02-23 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port to current Gnulib
+
+ * configure.ac (AM_COND_IF): New macro, needed because Gnulib
+ normally assumes Automake and now uses this Automake macro.
+ Problem reported by Lars Ingebrigtsen (Bug#32452#47).
+
+2022-02-23 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Create new unique windows with 'C-x t n' (bug#54038).
+
+ * lisp/tab-bar.el (tab-bar-new-tab-choice): Replace the value 'nil'
+ with explicit 'clone'.
+ (tab-bar-move-window-to-tab): Ignore possible side/atom window
+ parameters with ignore-window-parameters while deleting window.
+ (tab-bar-new-tab-to): When 'tab-bar-new-tab-choice' is 'clone',
+ create new unique windows with the same layout using window-state-get
+ and window-state-put. Do the same after deleting other windows
+ when 'tab-bar-new-tab-choice' is 'window'.
+ (tab-bar-duplicate-tab): Replace the value 'nil' with 'clone' for
+ 'tab-bar-new-tab-choice'.
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Expand commentary in xterm.c
+
+ * src/xterm.c: Expand commentary to include sections on optional
+ features and toolkit support.
+
+2022-02-23 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to version 2.2.0
+
+ * doc/misc/modus-themes.org (Enable and load)
+ (Differences between loading and enabling): Clarify wording.
+ (Customization Options): Update sample configuration.
+ (Option for completion framework aesthetics): Refactor
+ 'modus-themes-completions' to accept an alist value instead of a
+ symbol.
+ (Override colors): Elaborate on the example.
+ (Toggle themes without reloading them): Document sample command that
+ uses 'enable-theme' instead of 'load-theme'.
+ (Acknowledgements): Update names of contributors to ideas.
+ * etc/themes/modus-themes.el (modus-themes-operandi-colors)
+ (modus-themes-vivendi-colors): Tweak the palette's completion-related
+ background colors.
+ (modus-themes-completion-standard-first-match)
+ (modus-themes-completion-standard-selected)
+ (modus-themes-completion-extra-selected): Deprecate faces and replace
+ them with 'modus-themes-completion-selection'.
+ (modus-themes-completion-key-binding): Rename it to
+ 'modus-themes-key-binding'.
+ (modus-themes-mode-line): Remove faulty default value.
+ (modus-themes-completions): Refactor it to accept an alist value.
+ (modus-themes-box-buttons): Fix typo.
+ (modus-themes--standard-completions, modus-themes--extra-completions)
+ (modus-themes--extra-completions-line): Remove outdated private
+ functions.
+ (modus-themes--completion): Add new private function.
+ (modus-themes-faces): Update faces.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Bump file's version.
+
+ For a detailed change log, read:
+ <https://protesilaos.com/codelog/2022-02-23-modus-themes-2-2-0/>.
+
+2022-02-23 Jim Porter <jporterbugs@gmail.com>
+
+ Ignore 'eshell-broken-pipe' error in 'eshell-sentinel'
+
+ This can happen if 'eshell-sentinel' tries to write output to another
+ process, but that process has already terminated.
+
+ * lisp/eshell/esh-proc.el (eshell-sentinel): Use 'ignore-error'
+ instead of 'unwind-protect'.
+
+2022-02-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make face-remap-set-base work with a single face again
+
+ * lisp/face-remap.el (face-remap-set-base): Fix regression
+ introduced by cece37cf09de9 (bug#46973).
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_term_init): Catch some errors from defective X servers.
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Improve input extension version checks on GTK 3
+
+ * src/xterm.c (x_term_init): If newer versions of XInput 2 don't
+ work, then look for an older one.
+
+2022-02-23 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 3dfc8bff15 Fix indexing of module functions that return enumeration t...
+ 86c0d9eb5f * doc/misc/transient.texi (Other Options): Fix a @ref. (B...
+ 3b5e29eaa3 tramp.texi texinfo 4.13 compatibility
+ 5edb9572ec Explain "Tramp" spelling in its manual
+
+2022-02-23 Po Lu <luangruo@yahoo.com>
+
+ Fix display corruption with background alpha set on unsupported display
+
+ * src/xfns.c (x_set_alpha_background): Make opaque if display
+ doesn't support the required features.
+
+2022-02-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (add-hook): Fix regression
+
+ * lisp/subr.el (add-hook): When the hook has no local part yet, don't
+ set `local` to t, so we set the right part of the depth-sym.
+ (remove-hook): Don't modify the depth alist by side-effect since I'm
+ not completely sure it's safe.
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c: Expand commentary.
+
+2022-02-22 Dmitry Gutov <dgutov@yandex.ru>
+
+ Unbreak project switcher when inside *xref* buffer
+
+ * lisp/progmodes/xref.el (xref--ensure-default-directory):
+ New function.
+ (xref--show-xref-buffer, xref-show-definitions-buffer-at-bottom):
+ Use it (bug#53626).
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_term_init): Don't catch errors too many times.
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ Fix X errors caused by GTK using newer versions of XI2 than Emacs
+
+ * src/xterm.c (x_term_init): Handle errors from XIQueryVersion
+ caused by Emacs requesting versions of XI2 older than 2.2 and
+ what GTK requested.
+
+2022-02-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Enable "Revert Buffer" if file has different writability
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Enable "Revert Buffer" if
+ the file has different writability than the buffer (bug#17148).
+
+2022-02-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (add-hook, remove-hook): Fix leaks (bug#48666)
+
+ * lisp/subr.el (add-hook, remove-hook): Rewrite the hook depth
+ management so we only keep the info relevant to functions present on
+ the hook.
+
+2022-02-22 Andrea Rossetti <andrea.rossetti@gmail.com> (tiny change)
+
+ Improve ruler-mode dragging
+
+ * lisp/ruler-mode.el (ruler-mode-mouse-drag-any-column)
+ (ruler-mode-mouse-add-tab-stop, ruler-mode-mouse-del-tab-stop):
+ Adjust callers.
+
+ * lisp/ruler-mode.el (ruler-mode-window-col): Fix dragging when
+ stepping outside the header line (bug#17788).
+
+2022-02-22 Jeff Norden <jeff@jnorden.com> (tiny change)
+
+ Make outline-blank-line into defcustom
+
+ * lisp/outline.el (outline-blank-line): Make into defcustom
+ (bug#54095).
+
+2022-02-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't signal an error on re-builder startup with rx syntax
+
+ * lisp/emacs-lisp/re-builder.el (reb-initialize-buffer): Make
+ startup with rx syntax not signal an error (bug#54107).
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ Fix build on glibc <2.10
+
+ * src/alloc.c (Fmalloc_info): Only enable if glibc supports
+ malloc_info.
+ (syms_of_alloc): Likewise.
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK build with GLib <2.44
+
+ * src/gtkutil.c (struct _EmacsMenuBar, EmacsMenuBar): New
+ structs.
+ (emacs_menu_bar_get_type): New function declaration.
+
+ * src/gtkutil.c: Remove declaration of EmacsMenuBar class.
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ Improve XInput2 version checking
+
+ * configure.ac: Check for various important structures from all
+ versions of libXi.
+
+ * src/xfns.c (setup_xi_event_mask):
+ * src/xwidget.c (x_draw_xwidget_glyph_string):
+ * src/xterm.c (x_init_master_valuators, handle_one_xevent)
+ (x_term_init): Replace XI version checks based on protocol
+ headers with new constants.
+
+ * src/xterm.h (HAVE_XINPUT2_1, HAVE_XINPUT2_2, HAVE_XINPUT2_3)
+ (HAVE_XINPUT2_4): New definitions.
+
+2022-02-22 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/lisp/net/tramp-tests.el (tramp--test-check-files): Adapt test.
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ Fix duplicate wheel events on XI2
+
+ * src/xterm.c (handle_one_xevent): Don't generate wheel events
+ on XI_ButtonPress.
+
+2022-02-22 Po Lu <luangruo@yahoo.com>
+
+ Always send wheel events on XI2
+
+ * src/xterm.c (handle_one_xevent): Send emulated button events
+ as wheel events when handling XI2 button events.
+
+2022-02-22 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 666e40a109 Fix 'display-line-numbers-mode' in hide-show buffers
+ 68d134cf0f Don't check whether a deleted window is deletable (Bug#54028)
+ b38223a844 A friendlier error message from image-mode in an empty buffer
+ b7a651ba37 Update to Org 9.5.2-17-gea6b74
+ 3a8c3f7abd ; Don't reference obsolete variables in edebug.el
+
+2022-02-21 Po Lu <luangruo@yahoo.com>
+
+ Improve momentum pixel scrolling on a non-selected window
+
+ * lisp/pixel-scroll.el (pixel-scroll-kinetic-state): New
+ argument `window'.
+ (pixel-scroll-start-momentum): Don't select the window under
+ the event when calculating velocity or redisplaying.
+
+2022-02-21 Po Lu <luangruo@yahoo.com>
+
+ Don't generate multibyte keystroke events if there is no actual text
+
+ * src/xterm.c (handle_one_xevent): Don't generate
+ MULTIBYTE_CHAR_KEYSTROKE_EVENTs if nbytes is zero.
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add links to the vtable manual
+
+ * doc/lispref/modes.texi (Tabulated List Mode): Mention vtables.
+ * lisp/info-look.el (lambda): Link to vtables.
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the ELPA dependencies from test/Makefile.in
+
+ * test/Makefile.in: Remove the ELPA dependencies, because it's
+ pretty confusing when trying to debug things.
+
+ * test/README (SELECTOR): Remove mention of the now-removed
+ GNU_ELPA_DIRECTORY variable.
+
+ * test/lisp/net/ntlm-tests.el (push): Add the ELPA dependencies
+ here, which keeps it contained to one test file. This also fixes
+ bug#53586, since the obsoletion of `body' came from web-server.el.
+
+2022-02-21 Po Lu <luangruo@yahoo.com>
+
+ Don't pass invalid keyboard modifiers to the event loop on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Ensure validity of extra
+ keyboard modifiers.
+
+2022-02-21 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): Recognize mode
changes
+
+2022-02-21 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): bug#54034
+
+ Handle Git's output when deleting and creating empty files, as well as
+ when the diff is not shown because the file is considered as binary.
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve vtable :keymap handling
+
+ * lisp/emacs-lisp/vtable.el (vtable-map, vtable--make-keymap):
+ Don't alter keymaps passed in, and respect parent keymaps.
+
+2022-02-21 Jim Porter <jporterbugs@gmail.com>
+
+ Send SIGPIPE to external Eshell processes if their output target closes
+
+ * lisp/eshell/esh-io.el (eshell-pipe-broken): New error.
+ (eshell-output-object-to-target): Signal 'eshell-pipe-broken' if the
+ target is an exited/signaled process.
+
+ * lisp/eshell/esh-proc.el (eshell-insertion-filter): Handle
+ 'eshell-pipe-broken'.
+
+ * test/lisp/eshell/esh-proc-tests.el: New test.
+
+2022-02-21 Jim Porter <jporterbugs@gmail.com>
+
+ Ensure 'eshell-output-object' always returns nil for consistency
+
+ This prevents functions like 'eshell-print' from writing doubled
+ output when run in Eshell. Previously, the result would be:
+
+ ~ $ eshell-print hi
+ hihi
+
+ * lisp/eshell/esh-io.el (eshell-output-object): Always return nil.
+
+2022-02-21 Jim Porter <jporterbugs@gmail.com>
+
+ Improve docstrings for 'eshell-exec-lisp' and functions that call it
+
+ * lisp/eshell/esh-cmd.el (eshell-exec-lisp, eshell-apply*)
+ (eshell-funcall*, eshell-eval*, eshell-apply, eshell-eval)
+ (eshell-funcall, eshell-applyn, eshell-funcalln, eshell-evaln):
+ Improve docstrings.
+
+2022-02-21 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Remove PROBLEMS section on double-buffering"
+
+ This reverts commit 366b2bc757d011f96693bd219877c5aa42fa3359.
+
+ We cannot be sure this problem is no longer relevant, since
+ its root cause was in software we don't control, and cannot
+ tell whether any of the versions where that problem happened
+ are still out in the wild.
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Special Isearch slightly
+
+ * doc/emacs/search.texi (Special Isearch): Clarify slightly
+ (bug#19924). (All the keys in this node is about what happens
+ during isearch, but that information is quite a ways away at this
+ point, so it doesn't hurt to repeat that info.)
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove PROBLEMS section on double-buffering
+
+ * etc/PROBLEMS: Remove section on problems with double-buffering,
+ as apparently it's now no longer an issue (bug#30088).
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make 'ispell-change-dictionary' completion work better
+
+ * lisp/textmodes/ispell.el (ispell--aspell-found-dictionaries):
+ New variable (bug#24050).
+ (ispell-find-aspell-dictionaries): Save the list of actually
+ identified dictionary.
+ (ispell-valid-dictionary-list): Use it to filter out non-installed
+ dictionaries.
+
+2022-02-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `next-buffer' order reflect command line file order
+
+ * lisp/startup.el (command-line-1): Make `next-buffer' order
+ reflect the command line file order (bug#21505).
+
+2022-02-21 Po Lu <luangruo@yahoo.com>
+
+ Try to fix bug#54051
+
+ * src/xterm.c (handle_one_xevent): Don't give obviously bogus
+ configure events to Xt.
+
+2022-02-21 Po Lu <luangruo@yahoo.com>
+
+ Prevent Haiku display from being opened multiple times
+
+ * src/haikufns.c (Fx_open_connection): Return if display
+ connection already exists.
+
+2022-02-21 Po Lu <luangruo@yahoo.com>
+
+ Prevent GTK from setting unreasonable size hints with large menu bars
+
+ * src/gtkutil.c (struct _EmacsMenuBar): New struct.
+ (emacs_menu_bar_init):
+ (emacs_menu_bar_class_init):
+ (emacs_menu_bar_get_preferred_width):
+ (emacs_menu_bar_new): New functions.
+ (xg_update_menu_item): Use our own menu bar class on GTK 3.
+ * src/gtkutil.h (EmacsMenuBar): New class.
+
+2022-02-20 Po Lu <luangruo@yahoo.com>
+
+ Implement left-right separators for dialog boxes on Haiku
+
+ * src/haiku_support.cc (BAlert_set_offset_spacing): New
+ function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikumenu.c (struct submenu_stack_cell): Remove unused
+ struct.
+ (haiku_dialog_show): Use offset spacing if a left-right boundary
+ was seen and make sure the user can always quit a dialog if no
+ enabled items exist.
+
+2022-02-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ Bump xref.el version.
+
+ * lisp/progmodes/xref.el: Bump version to 1.4.0.
+
+2022-02-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ Public-ize xref-show-xrefs
+
+ * lisp/progmodes/xref.el (xref-show-xrefs):
+ New function (wrapper for an older, private one, bug#42967).
+
+2022-02-20 Po Lu <luangruo@yahoo.com>
+
+ Respect `extra-keyboard-modifiers' when handling XI2 keyboard input
+
+ * src/xterm.c (handle_one_xevent): Add extra modifiers to
+ XI2 keyboard state.
+
+2022-02-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ Public-ize xref-current-item
+
+ * lisp/progmodes/xref.el (xref--current-item):
+ Rename to 'xref-current-item' (bug#53956). Update all references.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further fixes for eww-open-url on Tramp files
+
+ * lisp/url/url-file.el (url-file-asynch-callback): Simplify
+ slightly (bug#40425).
+ * lisp/url/url-queue.el (url-queue-start-retrieve): Allow
+ non-local files here, too.
+
+2022-02-20 Juri Linkov <juri@linkov.net>
+
+ * lisp/mouse.el (context-menu-entry): Remove
help-buffer-under-preparation.
+
+ (bug#53910)
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a compilation warning in cus-edit-tests.el
+
+2022-02-20 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (loadhist_initialize): Fix regression test failure
+
+ * src/lread.c (loadhist_initialize): Adjust assertion for the nil case.
+ (readevalloop): Signal an error for non-string `sourcename`.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust doc-tests-documentation/autoloaded-macro
+
+ * test/src/doc-tests.el
+ (doc-tests-documentation/autoloaded-macro): Adjust test -- rx is
+ loaded in nativecomp Emacsen when the tests are run, apparently.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify Minibuffer Edit example
+
+ * doc/emacs/mini.texi (Minibuffer Edit): Say how to disable SPC
+ and ? completion (bug#36745).
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add instructions on disabling SPC completion to Minibuffer Edit
+
+ * doc/emacs/mini.texi (Minibuffer Edit): Say how to disable SPC
+ and ? completion (bug#36745).
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warning introduced by previous shr.el change
+
+ * lisp/net/shr.el (url-file): Fix compilation warning.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make eww work better on Tramp HTML
+
+ * lisp/net/eww.el (eww-open-file): Use it.
+ (eww-browse-url): Ditto.
+
+ * lisp/net/shr.el (shr-expand-url): Allow loading relative Tramp
+ files if we're reading from a file:// document.
+
+ * lisp/url/url-file.el (url-allow-non-local-files): New user option
+ (bug#40425).
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `g' work in eww buffers displaying Tramp files
+
+ * lisp/net/eww.el (eww--file-buffer): Refactored out.
+ (eww-open-file): From here.
+ (eww-reload): Make reloading work in Tramp files.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make string-pixel-width about 40% faster
+
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width): Speed up.
+
+2022-02-20 Michael Albinus <michael.albinus@gmx.de>
+
+ * doc/misc/tramp.texi (Customizing Methods): Add tramp-nspawn.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Quote files that start with - in dired
+
+ * lisp/dired-aux.el (dired-shell-stuff-it): Add ./ to file names
+ that start with - (bug#10458).
+
+2022-02-20 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp.el (tramp-read-passwd): Adapt for empty user names.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation warning in previous sendmail.el change
+
+ * lisp/mail/sendmail.el (mm-long-lines-p): Fix compilation warning.
+
+2022-02-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that `mail-send' breaks too-long lines
+
+ * lisp/mail/sendmail.el (mail-send): Ensure that we fold too-long
+ lines when using `sendmail-user-agent' (bug#53412).
+
+2022-02-20 Matthias Meulien <orontee@gmail.com>
+
+ Add more bookmark types
+
+ * lisp/gnus/gnus-sum.el (gnus-summary-bookmark-jump):
+ * lisp/man.el (Man-bookmark-jump): Mark the bookmark type
+ (bug#54030).
+
+2022-02-20 Po Lu <luangruo@yahoo.com>
+
+ Fix font panel on NS
+
+ * src/nsterm.m ([EmacsView changeFont:]): Don't use emacs_event,
+ instead placing events directly into the keyboard buffer.
+
+2022-02-20 Po Lu <luangruo@yahoo.com>
+
+ * src/haikumenu.c (haiku_dialog_show): Set `popup_activated_p'.
+
+ Author:
+
+2022-02-20 Po Lu <luangruo@yahoo.com>
+
+ Handle GUI input while inside popup dialog on Haiku
+
+ * src/haiku_support.cc (alert_popup_value): New variable.
+ (be_alert_thread_entry): New function.
+ (BAlert_go): Complete rewrite that allows async input to be
+ handled while the popup is active.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikumenu.c (haiku_dialog_show, haiku_popup_dialog): Stop
+ blocking input and pass required callbacks to `BAlert_go'.
+ * src/haikuterm.c (haiku_term_init): Set interrupt input mode to
+ t.
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Fix typo in last change
+
+ * src/xterm.c (handle_one_xevent): Use `xi_done_keysym' label
+ when ignoring modifier keys from XI2 input.
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Ignore modifier keys early when handling X key press events
+
+ * src/xterm.c (handle_one_xevent): Ignore modifier keys earlier
+ without going through the usual key lookup.
+ (x_delete_terminal): Free recorded modifier map.
+ (x_find_modifier_meanings): Record modifier map.
+
+ * src/xterm.h (struct x_display_info): New field `modmap'.
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Free XI2 devices in x_delete_display instead
+
+ * src/xterm.c (x_delete_display): Free XI2 device data here
+ instead, since it doesn't involve contacting the X server any
+ more.
+ (x_delete_terminal): Stop freeing XI2 device data.
+
+2022-02-19 Philip Kaludercic <philipk@posteo.net>
+
+ Revert "; * rcirc.el (rcirc-print): Prefer sleep-for over sit-for"
+
+2022-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (specpdl_unrewind): Fix corner case
+
+ * src/lisp.h (enum specbind_tag): New elem SPECPDL_NOP.
+
+ * src/eval.c (specpdl_unrewind): Zap entries that can't be applied any
more,
+ and simplify.
+ (default_toplevel_binding, lexbound_p, Fbacktrace__locals): Simplify.
+ (do_one_unbind, mark_specpdl): Handle SPECPDL_NOP.
+
+2022-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (macroexp-warn-and-return): Fix bug#53618
+
+ * lisp/emacs-lisp/macroexp.el (macroexp-warn-and-return):
+ Reorder arguments to preserve compatibility with that of Emacs-28.
+ (macroexp--unfold-lambda, macroexp--expand-all):
+ * lisp/emacs-lisp/pcase.el (pcase-compile-patterns, pcase--u1):
+ * lisp/emacs-lisp/gv.el (gv-ref):
+ * lisp/emacs-lisp/eieio.el (defclass):
+ * lisp/emacs-lisp/eieio-core.el (eieio-oref, eieio-oref-default)
+ (eieio-oset-default):
+ * lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
+ * lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet, cl-defstruct):
+ * lisp/emacs-lisp/cl-generic.el (cl-defmethod):
+ * lisp/emacs-lisp/byte-run.el (defmacro, defun):
+ * lisp/emacs-lisp/bindat.el (bindat--type): Adjust accordingly.
+
+2022-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (loadhist_initialize): Minor refactoring
+
+ Consolidate a bit of code.
+
+ * src/lread.c (loadhist_initialize): New function.
+ (Fload, readevalloop): Use it.
+
+2022-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): Fix mishaps
+
+ This reverts the last change so it also applies to non-git diffs again.
+ Instead, we're now more careful not to mis-recognize file headers as
+ addition/removal lines.
+ In addition to that, mark the file header such that it's
+ re-font-locked all at once, and to still recognize it after
+ `diff-reverse-direction`.
+
+2022-02-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp password prompts for sudo-like methods
+
+ * doc/misc/tramp.texi (Password handling): Explain entries for
+ doas, sudo and sudoedit.
+
+ * etc/NEWS (Tramp): Document changed password prompts.
+
+ * lisp/net/tramp-sh.el (tramp-methods) <sudo, doas>:
+ Add `tramp-password-previous-hop'.
+ (tramp-maybe-open-connection): Modify `previous-hop' if needed.
+
+ * lisp/net/tramp-sudoedit.el (tramp-methods) <sudoedit>:
+ Add `tramp-password-previous-hop'.
+ (tramp-sudoedit-null-hop): New defconst.
+ (tramp-sudoedit-send-command): Use it.
+
+ * lisp/net/tramp.el (tramp-methods): Adapt docstring.
+ (tramp-null-hop): New defconst.
+ (tramp-get-remote-null-device): Use it.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Some vtable.texi copy edits
+
+ * doc/misc/vtable.texi (Making A Table): Mention the accessors.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention vtable accessor functions
+
+ * doc/misc/vtable.texi (Making A Table): Mention the accessors.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the vtable documentation on argument types
+
+ * doc/misc/vtable.texi (Making A Table): Say what the argument
+ types are.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix a vtable example
+
+ * doc/misc/vtable.texi (Introduction): Fix example.
+
+2022-02-19 Eli Zaretskii <eliz@gnu.org>
+
+ Improve vtable documentation
+
+ * doc/misc/vtable.texi (top-level): Add @syncodeindex directives.
+ (Introduction): Fix wording and markup. Add indexing.
+ (Making A Table, Commands, Interface Functions): Fix typos and
+ markup. Add indexing.
+
+ * etc/NEWS: Improve wording of the vtable's NEWS entry.
+
+ * doc/misc/Makefile.in (INFO_COMMON): Add 'vtable'.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add column sorting order indicators to vtable
+
+ * lisp/emacs-lisp/vtable.el (vtable--indicator): New function.
+ (vtable--insert-header-line): Use it to display sorting order
+ indicators.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make string-pixel-width slightly speedier
+
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width): Speed up
+ string-pixel-width in the zero-length string case.
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Avoid consing extra string when processing GTK native input
+
+ * src/gtkutil.c (xg_im_context_commit): Use
+ `decode_string_utf8' to decode input text.
+
+ * src/keyboard.c (kbd_buffer_get_event_1): If coding system is
+ Qt, simply return the string without decoding it.
+
+ * src/termhooks.h (enum event_kind): Document meaning of Qt as
+ coding system in a multibyte keystroke event's string argument.
+
+2022-02-19 Mauro Aranda <maurooaranda@gmail.com>
+
+ Fix types of some align.el defcustoms
+
+ * lisp/align.el (align-region-heuristic)
+ (align-large-region): Both options can be nil, but the defcustom type
+ didn't allow nil values.
+ (align-rules-list-type): The "Run If" and "Valid" attributes
+ should be functions, but the default value was t. Change it to
+ #'always (bug#54048).
+
+2022-02-19 Mauro Aranda <maurooaranda@gmail.com>
+
+ Fix :match function for the key widget
+
+ * lisp/wid-edit.el (key): Calling key-valid-p directly doesn't work,
+ because the :match function is called with the widget and the value as
+ arguments (bug#54049).
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Fix some more hangs when parenting child frames around on Haiku
+
+ * src/haiku_support.cc (ParentTo):
+ (FrameMoved): Don't sync when a recursive lock might be able to
+ be held.
+
+2022-02-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new library to format variable-pitch tables
+
+ * doc/misc/vtable.texi (Index): New manual.
+
+ * lisp/emacs-lisp/vtable.el: New library.
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Improve portability of alpha channel visual detection
+
+ * src/xfns.c (select_visual): Look for PictVisuals with an alpha
+ channel instead of blindly assuming that 32 bit visuals have an
+ alpha channel.
+ (Fx_show_tip): Fix crash on some displays where child is None.
+
+ * src/xterm.c (x_term_init): Initialize Xrender before
+ calling select_visual.
+
+2022-02-19 Alan Mackenzie <acm@muc.de>
+
+ Fix symbols with position appearing in the output of `compile-defun'
+
+ This happened with the tags of a condition-case. Also fix the
detection of
+ circular lists while stripping the positions from symbols with position.
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--circular-list-p): Remove.
+ (byte-run--strip-s-p-1): Write a value of t into a hash table for each
cons or
+ vector/record encountered. (This is to prevent loops with circular
+ structures.) This is now done for all arguments, not just those
detected as
+ circular lists.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
+ (byte-compile-form, byte-compile-dynamic-variable-op)
+ (byte-compile-constant, byte-compile-push-constant): Remove redundant
calls to
+ `bare-symbol'.
+ (byte-compile-lambda): call `byte-run-strip-symbol-positions' on the
arglist.
+ (byte-compile-out): call `byte-run-strip-symbol-positions' on the
operand.
+ This is the main call to this function in bytecomp.el.
+
+ * src/fns.c (hashfn_eq): Strip the position from an argument which is a
symbol
+ with position.
+ (hash_lookup): No longer strip a position from a symbol with position.
+ (sxhash_obj): Add handling for symbols with position, substituting
their bare
+ symbols when symbols with position are enabled.
+
+2022-02-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix character compositions on the mode line
+
+ * src/composite.c (composition_compute_stop_pos)
+ (Ffind_composition_internal): When characters come from a string,
+ determine whether to compose them from that string's multibyteness,
+ not from that of the current buffer. (Bug#53729)
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Don't ignore events from XI2 slave devices anymore
+
+ All the machinery needed to keep track of events from those
+ devices is already in place, so that's no longer required.
+
+ * src/xterm.c (x_get_scroll_valuator_delta):
+ (xi_reset_scroll_valuators_for_device_id):
+ (handle_one_xevent): Don't ignore XI devices that are not master
+ pointers or keyboards.
+
+2022-02-19 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 57c112cfe5 ; * doc/emacs/files.texi (Comparing Files): Fix a reference.
+ bdeac2d5af ; Fix a typo in filesets.el's doc string
+
+2022-02-19 Po Lu <luangruo@yahoo.com>
+
+ Always decode GTK input method text as utf-8-unix
+
+ * src/gtkutil.c (xg_im_context_commit): Use `utf-8-unix' as
+ coding system for text.
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ Be less strict about which emulated motion events to ignore
+
+ * src/xterm.c (handle_one_xevent): Don't test XI2 version before
+ dropping PointerEmulated motion events.
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (haiku_create_frame): Error if font wasn't found.
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ Utilize new string decoding feature in GTK native input
+
+ * src/gtkutil.c (xg_im_context_commit): Don't decode strings
+ manually using g_utf8_to_ucs4 but pass unibyte string as the
+ keystroke event arg instead.
+
+2022-02-18 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Handle multiple directory separators in gnus-search results
+
+ Try to treat the file names more like file names, less like strings
+ to massage.
+
+ * lisp/gnus/gnus-search.el (gnus-search-indexed-parse-output): Use
+ `expand-file-name' to collapse separators and generally canonicalize
+ the name. Use `file-name-split' and joining instead of regexp
+ munging.
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ Fix background stipple with `alpha_background'
+
+ * src/xterm.c (x_fill_rectangle): Fix treatment of foreground
+ and background colors when there is a stipple.
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ Fix a crash on some versions of GTK
+
+ * src/emacsgtkfixed.c (XSetWMNormalHints): Fix potential
+ arithmetic fault.
+
+2022-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 1e4b04c Improve documentation of filling and justification commands
+ 9fd396e * lisp/progmodes/subword.el (superword-mode): Doc fix. (Bug#...
+ e303cb1 Fix indexing of module functions that return complex types.
+
+2022-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ c8442df ; Separate command and concept index in Transient manual
+ 8aa052c ; Fix Transient manual
+ 5b7752a Fix problem with popd for in remote shell buffers
+ 38f6ea1 Import texi source file for transient manual
+ df34929 Update to Org 9.5.2-15-gc5ceb6
+
+2022-02-18 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ # Conflicts:
+ # lisp/startup.el
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ Fix blurry text on multiple scale monitor setups
+
+ * src/pgtkterm.c (pgtk_copy_bits): Preserve window scale factor
+ on temporary surface. (bug#54040)
+
+2022-02-18 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Make sure nnselect search query is properly parsed
+
+ * lisp/gnus/gnus-search.el (gnus-search-make-spec): The search query
+ should not be interpreted as raw, but whatever the underlying search
+ engine expects.
+
+2022-02-18 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Fix gnus searching of native servers
+
+ * lisp/gnus/gnus-group.el (gnus-group-make-search-group):
+ (gnus-group-read-ephemeral-search-group): Find the real server even
+ when the group is native.
+
+2022-02-18 Po Lu <luangruo@yahoo.com>
+
+ Make treatment of `alpha-background' more consistent
+
+ * src/xterm.c (x_clear_glyph_string_rect):
+ (x_draw_glyph_string_background): Ignore alpha_background on all
+ cursors.
+
+2022-02-18 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Fix gnus-search-run-search methods
+
+ * lisp/gnus/gnus-search.el (gnus-search-run-search): Both these
+ implementations were setting the current buffer and then not setting
+ it back.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Make stipple backgrounds respect `alpha-background'
+
+ * src/xterm.c (x_fill_rectangle): Respect `alpha-background'
+ when drawing stipple.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Fix mis-parsing of certain malformed XBM files
+
+ * src/image.c (xbm_scan): Return error on a character literal
+ that doesn't start with "\x".
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Parse XBM images which use character escapes for hex literals
+
+ * src/image.c (xbm_scan): Implement parsing of hex escapes in
+ character literals.
+
+2022-02-17 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Fix gnus-search notmuch thread searches
+
+ * lisp/gnus/gnus-search.el (gnus-search-run-search): Multiple things
+ wrong with collecting thread ids from the search results, and
+ constructing a new search query.
+ (gnus-search-indexed-search-command): Use list appending rather than
+ backtick construction, that was more confusing than it was helpful.
+
+2022-02-17 Juri Linkov <juri@linkov.net>
+
+ * lisp/mouse.el (context-menu-entry): Don't create menu for Help
commands.
+
+ Help commands that describe keybindings call context-menu-entry bound to
+ a key. This causes too much trouble when trying to build the context
menu
+ in a temporary Help buffer that is not displayed in a window.
+ OTOH, there is no information in context menus useful for Help commands.
+ So `help-buffer-under-preparation' is added to filter out such calls.
+ (bug#53910)
+
+2022-02-17 Eli Zaretskii <eliz@gnu.org>
+
+ Resurrect innocent joke in byte-opt.el
+
+ * lisp/emacs-lisp/byte-opt.el: Resurrect innocent joke in a
+ comment.
+
+2022-02-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix files-tests on MS-Windows
+
+ * test/lisp/files-tests.el
+ (files-tests-zzdont-rewrite-precious-files): Renamed from
+ 'files-tests-dont-rewrite-precious-files', to fix a subtle problem
+ that breaks 2 tests on MS-Windows.
+ (files-tests-revert-buffer)
+ (files-tests-revert-buffer-with-fine-grain): No need to disable
+ file locking anymore.
+
+2022-02-17 Mattias Engdegård <mattiase@acm.org>
+
+ Fix or remove outdated comments
+
+ * src/eval.c (funcall_lambda): Rewrite obsolete comment.
+ * src/bytecode.c (exec_byte_code): Remove lying comment and
+ unneeded #define.
+ * lisp/emacs-lisp/byte-opt.el: Remove car. Keep pig.
+ (byte-compile-log-lap-1): Remove obsolete and irrelevant comment.
+
+2022-02-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/face-remap.el: Fix bug#53294
+
+ * lisp/face-remap.el (face-remap--copy-face): New function.
+ (face-attrs--make-indirect-safe): Use it.
+
+2022-02-17 Eli Zaretskii <eliz@gnu.org>
+
+ Speed up exiting "emacs -Q"
+
+ * lisp/files.el (files--buffers-needing-to-be-saved): Don't call
+ functions from seq.el. Using seq.el has an annoying side-effect
+ of slowing down "C-x C-c" from "emacs -Q" due to the need to load
+ seq.el.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when displaying XBM images on a 32-bit visual
+
+ * src/image.c (Create_Pixmap_From_Bitmap_Data): Fix use of wrong
+ (default) depth.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Implement XBM images on Haiku
+
+ * src/image.c (image_create_bitmap_from_data): Handle allocation
+ failures on Haiku.
+ (Create_Pixmap_From_Bitmap_Data): Implement for Haiku.
+
+2022-02-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a NEWS entry for the bookmark changes (bug#54030)
+
+ * lisp/bookmark.el (bookmark-bmenu-mode): Make the type shorter.
+
+2022-02-17 Matthias Meulien <orontee@gmail.com>
+
+ Don't prefix bookmark name with VC backend name
+
+ * lisp/vc/vc-dir.el (vc-dir-bookmark-make-record): Remove prefix from
+ bookmark name.
+
+2022-02-17 Matthias Meulien <orontee@gmail.com>
+
+ Extend bookmark menu with with handler type column
+
+ * lisp/bookmark.el (bookmark-bmenu--revert): Extend table entries with
+ handler type.
+ (bookmark-bmenu-mode): Add handler type column.
+ * lisp/doc-view.el (doc-view-bookmark-jump): Set bookmark handler type.
+ * lisp/help-mode.el (help-bookmark-jump): Set bookmark handler type.
+ * lisp/image-dired.el (image-dired-bookmark-jump): Set bookmark handler
type.
+ * lisp/info.el (Info-bookmark-jump): Set bookmark handler type.
+ * lisp/net/eww.el (eww-bookmark-jump): Set bookmark handler type.
+ * lisp/vc/vc-dir.el (vc-dir-bookmark-jump): Set bookmark handler type.
+ * lisp/woman.el (woman-bookmark-jump): Set bookmark handler type.
+
+2022-02-17 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to version 2.1.0
+
+ * doc/misc/modus-themes.org (Customization Options): Document new user
+ options and relevant changes.
+ (Option for links, Option for box buttons)
+ (Option for completion framework aesthetics, Option for mail citations)
+ (Option for intense markup in Org and others)
+ (Option for diff buffer looks, Option for org-mode block styles)
+ (Option for Org agenda constructs)
+ (Option for the headings' overall style): Update user options.
+ (More accurate colors in terminal emulators): Add section on how to
+ improve the accuracy of color reproduction in terminal emulators.
+ (Case-by-case face specs using the themes' palette)
+ (Face specs at scale using the themes' palette, Override colors)
+ (Override colors through blending, Custom Org user faces): Improve
+ wording.
+ (Custom Org emphasis faces): Add section about bespoke faces for Org
+ emphasis markers.
+ (Backdrop for pdf-tools): Improve sample code.
+ (Ediff without diff color-coding): Add section about user-level
+ changes to the style of Ediff buffers.
+ (Full support for packages or face groups): Update lists of supported
+ packages.
+ (Indirectly covered packages): Update list of indirectly supported
+ packages.
+ (Note on underlines in compilation buffers): Clarify wording.
+ (Note on EWW and Elfeed fonts): Be more specific about 'shr' faces.
+ (Are these color schemes?): Answer frequently asked question.
+ (Acknowledgements): Update acknowledgements' section.
+
+ * etc/themes/modus-themes.el (modus-themes-operandi-colors)
+ (modus-themes-vivendi-colors): Update color palettes.
+ (modus-themes-subtle-red, modus-themes-subtle-green)
+ (modus-themes-subtle-yellow, modus-themes-subtle-blue)
+ (modus-themes-subtle-magenta, modus-themes-subtle-cyan)
+ (modus-themes-subtle-neutral, modus-themes-intense-red)
+ (modus-themes-intense-green, modus-themes-intense-yellow)
+ (modus-themes-intense-blue, modus-themes-intense-magenta)
+ (modus-themes-intense-cyan, modus-themes-intense-neutral)
+ (modus-themes-refine-red, modus-themes-refine-green)
+ (modus-themes-refine-yellow, modus-themes-refine-blue)
+ (modus-themes-refine-magenta, modus-themes-refine-cyan)
+ (modus-themes-nuanced-red, modus-themes-nuanced-green)
+ (modus-themes-nuanced-yellow, modus-themes-nuanced-blue)
+ (modus-themes-nuanced-magenta, modus-themes-nuanced-cyan)
+ (modus-themes-special-cold, modus-themes-special-mild)
+ (modus-themes-special-warm, modus-themes-special-calm)
+ (modus-themes-diff-added, modus-themes-diff-changed)
+ (modus-themes-diff-removed, modus-themes-diff-refine-added)
+ (modus-themes-diff-refine-changed, modus-themes-diff-refine-removed)
+ (modus-themes-diff-focus-added, modus-themes-diff-focus-changed)
+ (modus-themes-diff-focus-removed, modus-themes-diff-heading)
+ (modus-themes-heading-1, modus-themes-heading-2, modus-themes-heading-3)
+ (modus-themes-heading-4, modus-themes-heading-5, modus-themes-heading-6)
+ (modus-themes-heading-7, modus-themes-heading-8, modus-themes-hl-line)
+ (modus-themes-variable-pitch, modus-themes-lang-note)
+ (modus-themes-lang-warning, modus-themes-lang-error)
+ (modus-themes-reset-soft, modus-themes-reset-hard): Fix typo in
+ ':group'.
+ (modus-themes-markup-code): Add face.
+ (modus-themes--headings-choice, modus-themes-headings)
+ (modus-themes-org-agenda): Update documentation about typographic
+ weights.
+ (modus-themes-org-blocks, modus-themes-completions): Update doc string
+ and add new stylistic variant.
+ (modus-themes-intense-markup): Deprecate old user option. Replace it
+ with 'modus-themes-markup'.
+ (modus-themes-mail-citations): Update doc string and add another
+ stylistic variant.
+ (modus-themes-box-buttons): Add new user option.
+ (modus-themes--slant): Tweak how slant is applied.
+ (modus-themes--markup, modus-themes--prompt, modus-themes--paren)
+ (modus-themes--syntax-foreground, modus-themes--syntax-extra)
+ (modus-themes--syntax-string, modus-themes--syntax-comment)
+ (modus-themes--heading, modus-themes--agenda-structure)
+ (modus-themes--agenda-habit, modus-themes--org-block-delim)
+ (modus-themes--mode-line-attrs, modus-themes--standard-completions)
+ (modus-themes--link, modus-themes--link-color, modus-themes--region)
+ (modus-themes--hl-line, modus-themes--mail-cite): Tweak private
+ functions.
+ (modus-themes--button): Adjust private function.
+ (modus-themes--heading-weights): Deprecate it. Replace by
+ 'modus-themes-weights'.
+ (modus-themes-faces): Update faces.
+
+ * etc/themes/modus-vivendi-theme.el
+ * etc/themes/modus-operandi-theme.el: Bump version number.
+
+ For a detailed change log, read:
+ <https://protesilaos.com/codelog/2022-02-17-modus-themes-2-1-0/>.
+
+2022-02-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Have setopt check types
+
+ * doc/lispref/variables.texi (Setting Variables): Note type checking.
+ * lisp/cus-edit.el (setopt--set): New function to avoid having
+ Customize saving values, too.
+ (setopt): Use it.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Fix warning during dumping on MS-DOS
+
+ * lisp/cus-start.el (standard): Filter out
+ `process-error-pause-time' on MS-DOS.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Prevent menu items leak if x-pre-popup-menu-hook signals
+
+ * src/menu.c (x_popup_menu_1): Make sure menu items are
+ discarded if the pre popup menu hook signals.
+
+2022-02-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix problem with "~" in Tramp
+
+ * lisp/net/tramp.el (tramp-handle-substitute-in-file-name):
+ Remove special handling of "~" in localname. (Bug#53053)
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_init_master_valuators): Clear `pending_enter_reset'.
+
+2022-02-17 Po Lu <luangruo@yahoo.com>
+
+ Improve handling of XI2 wheel movement
+
+ * src/xterm.c (handle_one_xevent): Process movement in all
+ directions and send it as a single event.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ Fix SIGFPE on some fonts when calculating their average width on Haiku
+
+ * src/haiku_font_support.cc (estimate_font_ascii): Avoid divison
+ by zero.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ * src/emacsgtkfixed.c (XSetWMSizeHints): Improve fix for bug#8919.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ Don't auto-lower when moving onto a menu bar on Haiku
+
+ * src/haiku_io.c (haiku_len): Handle `MENU_BAR_LEFT'.
+ * src/haiku_support.cc (EmacsMenuBar::MouseMoved): New function.
+ * src/haiku_support.h (enum haiku_event_type): New event
+ `MENU_BAR_LEFT'.
+ (struct haiku_menu_bar_left_event): New structure.
+ * src/haikuterm.c (haiku_read_socket): Don't auto-lower when the
+ mouse exits the frame view onto the menu bar and handle
+ MENU_BAR_LEFT events.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ Handle `unspecified' values of symbolic font values on Haiku
+
+ * src/haikufont.c (haikufont_spec_or_entity_to_pattern): Handle
+ `unspecified' values of symbolic values.
+
+2022-02-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix problem with file-modification-time in tramp-sshfs.el
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-handle-file-notify-add-watch',
+ `tramp-handle-file-notify-rm-watch' and
+ `tramp-handle-file-notify-valid-p'.
+ (tramp-sshfs-handle-write-region): Set file modification time.
+ (Bug#54016)
+
+ * test/lisp/net/tramp-tests.el (tramp--test-asynchronous-processes-p):
+ Filter out tramp-adb on multi-byte `default-directory'.
+ (tramp--test-hpux-p, tramp--test-macos-p): Protect against errors.
+ (tramp--test-check-files): Discriminate also tramp-sshfs.el.
+
+2022-02-16 Matthias Meulien <orontee@gmail.com>
+
+ Fix computation of outline heading level for non-git diff
+
+ * lisp/vc/diff-mode.el (diff-setup-buffer-type): Compute outline
heading level
+ using diff-hunk-header-re (bug#51809).
+ (diff--font-lock-prettify): Disable prettify in non-git diff.
+
+2022-02-16 Eli Zaretskii <eliz@gnu.org>
+
+ Add support for Tai Tham script
+
+ * lisp/international/fontset.el (setup-default-fontset)
+ (script-representative-chars): Add tai-tham.
+ * lisp/language/thai.el ("Northern Thai"): New language
+ environment. Patch by Richard Wordingham
+ <richard.wordingham@ntlworld.com>. Set
+ 'composition-function-table' for the Tai Tham block. Original
+ code by Richard Wordingham <richard.wordingham@ntlworld.com>.
+
+ * etc/HELLO: Add Northern Thai greeting.
+ * etc/NEWS: Announce addition of Northern Thai language environment.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ Fix recent change in xwidget.c
+
+ * src/xwidget.c (xwidget_init_view): Don't assume ttip_widget
+ is NULL if tooltips have not been initialized.
+
+2022-02-16 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up count_size_as_multibyte
+
+ This function is used in many places to calculate the length of
+ a unibyte string converted to multibyte.
+
+ * src/character.c (count_size_as_multibyte): Move the overflow test
+ outside the loop, which makes it much faster. Standard compilers
+ will even vectorise it if asked to (-O2 in Clang, -O3 in GCC).
+
+2022-02-16 Mattias Engdegård <mattiase@acm.org>
+
+ Avoid emacs-module-tests failure on macOS
+
+ * test/src/emacs-module-tests.el (module/describe-function-1):
+ Prevent string mismatch caused by line breaks after filling;
+ the macOS dynamic library suffix (.dylib) is longer than on other
+ platforms.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ Fix frame focus handling with native input
+
+ * lisp/term/x-win.el (x-gtk-use-native-input-watcher): Stop
+ passing frame parameter to `x-internal-focus-input-context'.
+ * src/xfns.c (Fx_internal_focus_input_context): Focus all focus
+ frames from all displays.
+
+2022-02-16 Po Lu <luangruo@yahoo.com>
+
+ Resolve xwidget scrolling mysteries
+
+ * src/xterm.c (x_any_window_to_frame): Handle xwidget views.
+ (handle_one_xevent): Always increment values array when handling
+ motion events.
+
+2022-02-15 Po Lu <luangruo@yahoo.com>
+
+ * etc/NEWS: Improve the PGTK entry.
+
+2022-02-15 Po Lu <luangruo@yahoo.com>
+
+ Decode keyboard input as latin-1 whenever appropriate
+
+ * src/keyboard.c (kbd_buffer_get_event_1): Use `coding'
+ property if present.
+
+ * src/termhooks.h (enum event_kind): Document meaning of
+ `coding' property on text strings.
+
+ * src/xterm.c (handle_one_xevent): Set coding property on text
+ to latin-1 if it was obtained with XLookupString.
+
+2022-02-15 Po Lu <luangruo@yahoo.com>
+
+ Don't decode text within XIM callbacks or handle_one_xevent
+
+ * src/keyboard.c (kbd_buffer_get_event_1):
+ (kbd_buffer_get_event_2): New functions.
+ (kbd_buffer_get_event): Accept a new meaning of
+ MULTIBYTE_CHAR_KEYSTROKE_EVENT where .arg can be a unibyte
+ string to be decoded in the locale coding system.
+
+ * src/termhooks.h (enum event_kind): Document new meaning of
+ .arg in a multibyte keystroke event.
+
+ * src/xfns.c (struct x_xim_text_conversion_data): New struct.
+ (x_xim_text_to_utf8_unix_1):
+ (x_xim_text_to_utf8_unix_2): New functions.
+ (x_xim_text_to_utf8_unix): Handle decode failure correctly.
+ (xic_preedit_draw_callback): Abort IM context if text could not
+ be decoded correctly.
+
+ * src/xterm.c (handle_one_xevent): Utilize new meaning of
+ MULTIBYTE_CHAR_KEYSTROKE_EVENT.
+
+2022-02-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Some Tramp cleanup
+
+ * doc/misc/tramp.texi (Remote processes): Add also tramp-sshfs.el.
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
+ Error-out for multi-byte `default-directory'.
+
+ * lisp/net/tramp.el (tramp-tolerate-tilde): Move it up.
+ (tramp-handle-abbreviate-file-name): Use it.
+ (tramp-read-passwd): Show literal passphrase prompt.
+
+2022-02-15 Jim Porter <jporterbugs@gmail.com>
+
+ Don't attempt to connect to a remote server during
'abbreviate-file-name'
+
+ * lisp/net/tramp.el (tramp-handle-abbreviate-file-name): Only use the
+ "home-directory" when a connection has been established.
+
+2022-02-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow savehist-additional-variables to truncate lists
+
+ * lisp/savehist.el (savehist-save): Allow truncating values (bug#30943).
+
+2022-02-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust files-test-file-size-human-readable test
+
+ * test/lisp/files-tests.el (files-test-file-size-human-readable):
+ Fix test after recent change.
+
+2022-02-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make autoarg obsolete
+
+ * lisp/obsolete/autoarg.el: Make obsolete.
+
+2022-02-15 Po Lu <luangruo@yahoo.com>
+
+ Fix parsing of some semibold font styles on Haiku
+
+ * src/haiku_font_support.cc (font_style_to_flags): Accept
+ "Semibold" to mean SemiBold as well. Reported by
+ augiedoggie <augiedoggie@users.noreply.github.com>.
+
+2022-02-15 Po Lu <luangruo@yahoo.com>
+
+ Disable auto-lowering and raising on Haiku when a popup is active
+
+ * src/haikuterm.c (haiku_new_focus_frame):
+ (haiku_read_socket): Don't raise or lower if popup is activated.
+
+2022-02-15 Po Lu <luangruo@yahoo.com>
+
+ Replace use of `DefaultRootWindow' with our recorded root window
+
+ * src/xfns.c (x_relative_mouse_position):
+ (x_set_parent_frame):
+ (Fx_mouse_absolute_pixel_position):
+ (Fx_set_mouse_absolute_pixel_position):
+ * src/xterm.c (x_iconify_frame): Use dpyinfo->root_window
+ instead of DefaultRootWindow.
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ Improve the help message for the pgtk configure option
+
+ * configure.ac: Describe the purpose of PGTK better.
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (init_xterm): Use more reliable method to disable XI2.
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ Better handle devices being enabled on XI2
+
+ * src/xterm.c (handle_one_xevent): Don't abort on DeviceChanged
+ if the device couldn't be found, instead regenerating the device
+ hierarchy to see if it was enabled.
+
+2022-02-14 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Fix docstring and init of Gnus search -remove-prefix options
+
+ * lisp/gnus/gnus-search.el (*-remove-prefix): For all engine defaults,
+ remove incorrect docs stating this is a regexp (it's a string). Also,
+ use `expand-file-name' to get the correct default value, not `concat'
+ and (getenv "HOME").
+
+2022-02-14 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Fix manual documentation of Gnus tool bars
+
+ * doc/misc/gnus.texi: The options `gnus-use-toolbar',
+ `gnus-toolbar-thickness', and `gnus-summary-mail-toolbar' no longer
+ exist. Other options in this section have been renamed from "toolbar"
+ to "tool-bar".
+
+2022-02-14 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Be more explicit about the meaning of "remove prefix" in Gnus search
+
+ * doc/misc/gnus.texi (Search Engines): It's easy to get confused about
+ what we're removing and why.
+
+2022-02-14 Eli Zaretskii <eliz@gnu.org>
+
+ Improve recent addition to documentation of face remapping
+
+ * doc/lispref/display.texi (Basic Faces): Make the list of basic
+ faces more complete.
+ (Face Remapping): Improve wording of a recent addition; add
+ cross-reference to "Basic Faces".
+
+2022-02-14 Eli Zaretskii <eliz@gnu.org>
+
+ Improve format of values returned by 'file-size-human-readable'
+
+ * lisp/files.el (file-size-human-readable): Emit one digit of the
+ fractional part of the size only if there's just one digit before
+ the decimal point.
+
+2022-02-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in Face Remapping
+
+ * doc/lispref/display.texi (Face Remapping): Fix typo.
+
+2022-02-14 Philip Kaludercic <philipk@posteo.net>
+
+ Add command to contact maintainer
+
+ * package.el (package-menu-mode-map): Add package-contact-maintainer.
+ (package--query-desc): Extract a common utility function.
+ (package-browse-url): Use package--query-desc.
+ (package-contact-maintainer): Add command.
+
+2022-02-14 Philip Kaludercic <philipk@posteo.net>
+
+ Allow for packages to be installed directly from VCS
+
+ Packages installed via package-fetch are of the kind 'source, and
+ their extra properties may include a :upstream key (a list consisting
+ of the VC backend, a remote repository, a branch and a path within the
+ repository) and :rev key (indicating a specific revision to checkout).
+
+ * package.el (package-devel-dir): Add new option.
+ (package-desc): Allow an empty version string to be passed to
+ package-desc-from-define.
+ (package-desc-full-name): Handle source packages.
+ (vc-working-revision): Declare function for package-devel-commit.
+ (package-devel-commit): Add function.
+ (package-load-descriptor): Detect and handle source packages.
+ (package-load-all-descriptors): Use package-devel-dir.
+ (vc-clone): Declare function for package-unpack.
+ (package-unpack): Handle source packages.
+ (package-generate-description-file): Handle source packages by
+ ommiting a version number.
+ (package-install-from-archive): Check if a package is a source
+ package.
+ (package-fetch): Add new command
+ (package-desc-status): Check for source packages.
+ (package--remove-hidden): Hide regular packages from the package list
+ if a source package was installed.
+ (package-status-from-source): Add new face.
+ (package-menu--print-info-simple): Handle source packages.
+ (package-menu-mark-delete): Allow deleting source packages.
+ (package-menu--status-predicate): Sort source packages after
+ dependencies but before unsigned packages.
+ (package-menu-filter-by-status): Allow filtering by source packages.
+
+2022-02-14 Philip Kaludercic <philipk@posteo.net>
+
+ Implement vc-clone for git
+
+ * vc-git.el (vc-git-clone): Add Git implementation
+
+2022-02-14 Philip Kaludercic <philipk@posteo.net>
+
+ Add new command to clone a repository
+
+ * vc.el (vc-clone): Add command
+
+2022-02-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't signal errors in abbrev-table-p
+
+ * lisp/abbrev.el (abbrev-table-p): Ignore the error.
+ * src/lread.c (oblookup): Signal `wrong-type-argument' instead of
+ `error' if it turns out that we're not really in an obarray (bug#53988).
+
+2022-02-14 Philip Kaludercic <philipk@posteo.net>
+
+ Improve stability of message-hide-headers
+
+ * message.el (message-hide-headers): Use a pointer instead of tracking
+ the "end-of-headers" point manually (bug#53991).
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ Premultiply background color by alpha for images
+
+ * src/xterm.c (x_query_frame_background_color): Premultiply
+ colors as X wants them when built without Cairo.
+
+2022-02-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous Face Remapping doc change
+
+ * doc/lispref/display.texi (Face Remapping): Fix typo.
+
+2022-02-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Note caveat about remapping basic faces
+
+ * doc/lispref/display.texi (Face Remapping): Note caveat about
+ basic faces (bug#53636).
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ Improve Haiku selection handling
+
+ * lisp/select.el (gui--selection-value-internal): Use X types on
+ Haiku as well.
+
+ * lisp/term/haiku-win.el (haiku--selection-type-to-mime): Update
+ types to correspond better with X.
+
+ * src/haikuselect.c (Fhaiku_selection_data):
+ (Fhaiku_selection_put): Remove a great deal of ad hoc code now
+ handled by the regular selection machinery.
+
+2022-02-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a mechanism for querying before executing a command
+
+ * doc/emacs/custom.texi (Disabling): Document it.
+ * doc/lispref/commands.texi (Disabling Commands): Document the
+ low-level stuff.
+
+ * lisp/simple.el (command-execute): Respect the `(query ...)'
+ value for `disabled'.
+ (command-execute--query): New function.
+ (command-query): New function.
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ Handle allocation failures of fringe bitmaps on Haiku
+
+ * src/haikuterm.c (haiku_define_fringe_bitmap): Handle
+ allocation failures.
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ * etc/TODO: Update some entires related to macOS and NS.
+
+ Xwidgets have worked on NS for a long time, "smooth scrolling"
+ is now available as `pixel-scroll-precision-mode' for all GUI
+ platforms, and some mouse gestures have been implemented on NS
+ and X.
+
+2022-02-14 Po Lu <luangruo@yahoo.com>
+
+ Ensure bad values don't leak into scroll valuators after DeviceChange
+
+ * src/xterm.c (xi_reset_scroll_valuators_for_device_id): New
+ argument `pending_only'.
+ (handle_one_xevent): Reset pending scroll valuators on XI_Enter
+ and mark valuators updated via DeviceChanged events as pending.
+
+ * src/xterm.h (struct xi_scroll_valuator_t): New field
+ `pending_enter_reset'.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Restore valuator values after receiving a DeviceChanged event
+
+ * src/xterm.c (x_init_master_valuators): Generate valuators for
+ both master and slave devices.
+ (handle_one_xevent): Find current valuator info and use that to
+ populate scroll valuators after a device changed.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Improve efficency of handling DeviceChanged events
+
+ * src/xterm.c (handle_one_xevent): Just update the device that
+ was changed on DeviceChanged and only do hierarchy recalculation
+ upon HierarchyChanged events.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Try to reduce empty areas on GTK when a frame is being resized
+
+ * src/xterm.c (x_fill_rectangle):
+ (x_clear_rectangle, x_draw_image_glyph_string):
+ (x_clear_area): Don't use picture if frame background is opaque.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Fix wide fringe bitmap processing on Haiku
+
+ * src/haiku_support.cc (BBitmap_import_mono_bits): Rewrite to
+ use ImportBits.
+ (BBitmap_import_fringe_bitmap): New function.
+
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikuterm.c (haiku_define_fringe_bitmap): Pass entire
+ short array to BBitmap_import_fringe_bitmap instead.
+
+2022-02-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp's process-file implementations
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-process-file)
+ * lisp/net/tramp-sh.el (tramp-sh-handle-process-file):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-process-file):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file):
+ Improve implementation. (Bug#53854)
+
+ * test/lisp/net/tramp-tests.el (tramp-test28-process-file)
+ (tramp--test-check-files, tramp-test47-unload): Extend tests.
+
+2022-02-13 Juri Linkov <juri@linkov.net>
+
+ * lisp/faces.el (read-face-name-sample-text): Add defconst (bug#53960).
+
+ (read-face-name): Use it instead of hard-coded string.
+
+2022-02-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new macro `setopt'
+
+ * doc/emacs/custom.texi (Examining): Mention it.
+ (Init Syntax): Ditto.
+
+ * doc/emacs/windows.texi (Window Choice): Adjust example.
+
+ * doc/lispref/windows.texi (Choosing Window Options): Adjust examples.
+
+ * doc/lispref/variables.texi (Setting Variables): Document setopt.
+
+ * doc/misc/eudc.texi (Emacs-only Configuration): Adjust examples.
+
+ * lisp/cus-edit.el (setopt): New macro.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuterm.c (haiku_read_socket): Implement auto-lower.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Only get rid of IC focus if focus is really gone
+
+ * src/xterm.c (x_focus_changed): Only unset IC focus if the
+ focus state is empty.
+
+2022-02-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the 'C-k' binding in ido-mode
+
+ * lisp/ido.el (ido-file-completion-map): Remove the `C-k' binding,
+ because it's too dangerous and probably not very useful (bug#44556).
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes from illegal locale coding systems
+
+ * src/xfns.c (xic_preedit_draw_callback):
+ * src/xterm.c (handle_one_xevent): Don't pass invalid coding
+ systems to `setup_coding_system'.
+
+2022-02-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-u M-x count-words' also give totals
+
+ * lisp/simple.el (count-words-region): Adjust callers.
+ (count-words): If given a prefix, give totals (bug#9959).
+ (count-words--buffer-format, count-words--format): Rename and
+ don't message, but return the string.
+
+2022-02-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Note meaning on nil HIST in Fread_from_minibuffer
+
+ * src/minibuf.c (Fread_from_minibuffer): Note the meaning of a nil
+ HIST parameter (bug#20063).
+
+2022-02-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mouse clicking in read-face-name
+
+ * lisp/faces.el (read-face-name): Put the data in the right
+ position so that clicking on completions work (bug#53960).
+
+2022-02-13 Bob Rogers <rogers@rgrjr.com>
+
+ Fix ietf-drums-remove-whitespace unmatched " and (
+
+ * lisp/mail/ietf-drums.el:
+ + (ietf-drums-skip-comment): New helper function.
+ + (ietf-drums-remove-comments): Use ietf-drums-skip-comment.
+ + (ietf-drums-remove-whitespace): Handle unterminated quotes and
+ comments, as ietf-drums-remove-comments already does.
+ * test/lisp/mail/ietf-drums-tests.el:
+ + Test unterminated quote and comment for
+ ietf-drums-remove-whitespace and ietf-drums-remove-comments (bug#53965).
+
+2022-02-13 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/eval.c (specpdl_unrewind): Remove empty statement.
+
+2022-02-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid a compilation warning in eval.c
+
+ * src/eval.c (specpdl_unrewind): Avoid a compilation warning.
+
+2022-02-13 Po Lu <luangruo@yahoo.com>
+
+ Fix integer overflow with 32-bit visual
+
+ * src/xfns.c (x_set_border_pixel):
+ (x_set_border_color): Use `unsigned long' for border color.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ Work around tooltip bug on new versions of WebKitGTK
+
+ * src/xwidget.c (dummy_tooltip_string): New variable.
+ (xw_maybe_synthesize_crossing): Call `xg_prepare_tooltip' to
+ disable tooltips on WebKitGTK 2.34 or later.
+ (syms_of_xwidget): Make dummy string.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ Stop quering for Xinerama inside x_get_monitor_attributes
+
+ * src/xfns.c (x_get_monitor_attributes): Remove Xinerama check
+ and use xinerama_supported_p instead.
+ * src/xterm.c (x_term_init): Set `xinerama_supported_p'
+ * src/xterm.h (struct x_display_info): New field
+ `xinerama_supported_p'.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkfns.c (Fx_create_frame): Set `was_invisible' flag.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ Use better GC for visible bell on colormapped visuals
+
+ * src/xterm.c (XTflash): Use normal_gc if the visual is not
+ TrueColor.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ Fix the Haiku port
+
+ * src/haiku_support.h [__cplusplus]: Define `specpdl_ref' type
+ on C++ since that code cannot include lisp.h.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ Fix last change in xterm.c
+
+ * src/xterm.c (x_update_opaque_region): Remove check that f is
+ non-NULL.
+ (handle_one_xevent): If f is NULL and the configure event is for
+ any's edit widget, use that instead.
+
+2022-02-12 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/xterm.c (x_update_opaque_region): Avoid crash at startup in Lucid
build
+
+2022-02-12 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Rewrite thread context switch code (bug#48990)
+
+ Make the context switch code handle buffer-local variables more
+ correctly by reusing the code originally written for `backtrace-eval`.
+ This has the side benefit of making the `saved_value` field unused.
+
+ * src/lisp.h (enum specbind_tag): Remove `saved_value` field.
+ (rebind_for_thread_switch, unbind_for_thread_switch): Delete decls.
+ (specpdl_unrewind): Declare function.
+
+ * src/eval.c (specpdl_saved_value): Delete function.
+ (specbind): Delete the code related to `saved_value`, and consolidate
+ common code between the different branches.
+ (rebind_for_thread_switch, -unbind_for_thread_switch): Move to
`thread.c`.
+ (specpdl_unrewind): New function, extracted from
`backtrace_eval_unrewind`.
+ Use `SET_INTERNAL_THREAD_SWITCH`. Skip the buffer & excursion unwinds
+ depending on new arg `vars_only`.
+ (backtrace_eval_unrewind): Use it.
+ (mark_specpdl): Don't mark `saved_value`.
+
+ * src/thread.c (rebind_for_thread_switch, unbind_for_thread_switch):
+ Move from `eval.c` and rewrite using `specpdl_unrewind`.
+
+ * test/src/thread-tests.el (threads-test-bug48990): New test.
+
+ * test/Makefile.in (test_template): Add a + as suggested by make:
+ "warning: jobserver unavailable: using -j1. Add '+' to parent make
rule".
+
+2022-02-12 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up `=` on fixnums in bytecode
+
+ Now that EQ has become expensive, use BASE_EQ where possible.
+
+ * src/bytecode.c (exec_byte_code): Use cheaper operation for Beqlsign.
+
+2022-02-12 Eli Zaretskii <eliz@gnu.org>
+
+ Optionally allow point to enter composed character sequences
+
+ This changeset is based on code originally posted by
+ Kenichi Handa <handa@gnu.org> as part of discussing bug#20140,
+ with a few adjustments and changes, mainly to support R2L
+ text and provide a user option to control the feature.
+ * src/xdisp.c (compute_stop_pos, next_element_from_buffer)
+ (composition_reseat_it): Don't allow auto-composing characters
+ past point when 'composition-break-at-point' is non-nil.
+ (syms_of_xdisp) <composition-break-at-point>: New boolean variable.
+ (redisplay_internal, redisplay_window): Disable "just move the
+ cursor" optimizations when 'composition-break-at-point' is non-nil.
+ * src/keyboard.c (command_loop_1): Force redisplay when
+ 'composition-break-at-point' is non-nil.
+
+ * lisp/cus-start.el (standard): Provide customization form for
+ 'composition-break-at-point'.
+
+ * etc/NEWS: Announce the new feature.
+
+2022-02-12 Mattias Engdegård <mattiase@acm.org>
+
+ Count bytes, not records, in specpdl_ref
+
+ SPECPDL_INDEX becomes much faster because the pointer subtraction,
+ expensive because of the inconveniently sized specpdl records, is now
+ gone. This translates to a useful speedup on a wide variety of code.
+
+ * src/lisp.h (specpdl_ref, wrap_specpdl_ref, unwrap_specpdl_ref):
+ Rename member.
+ (specpdl_count_to_ref, specpdl_ref_to_count)
+ (specpdl_ref_add, specpdl_ref_to_ptr, SPECPDL_INDEX):
+ Count offset in bytes rather than in records.
+
+2022-02-12 Mattias Engdegård <mattiase@acm.org>
+
+ Turn specpdl_ref into a type of its own
+
+ Wrap the specpdl_ref contents in a struct, which gives us some very
+ useful type checking to make sure that all code that assumed integral
+ specpdl refs has been converted.
+
+ We only do this on 64-bit platforms, since those tend to have modern
+ ABIs where small structs are optimised as scalars. In other words,
+ this change should not affect the compiled code.
+
+ * src/lisp.h (specpdl_ref): Now a struct on 64-bit platforms.
+ (wrap_specpdl_ref, unwrap_specpdl_ref): New.
+ (specpdl_count_to_ref, specpdl_ref_to_count)
+ (specpdl_ref_eq, specpdl_ref_lt)
+ (specpdl_ref_valid_p, make_invalid_specpdl_ref): Use new wrappers.
+
+2022-02-12 Mattias Engdegård <mattiase@acm.org>
+
+ Replace ptrdiff_t with new specpdl_ref type for specpdl references
+
+ The specpdl_ref type is just an alias for ptrdiff_t; the compiled code
+ remains the same. All operations on specpdl_ref (arithmetic,
+ comparison etc) now go through inline functions.
+
+ The bulk of the change is almost completely mechanical. It is done to
+ prepare for a type-safe representation and subsequent performance
+ improvement.
+
+ * src/lisp.h (specpdl_ref, specpdl_count_to_ref, specpdl_ref_to_count)
+ (specpdl_ref_eq, specpdl_ref_lt, specpdl_ref_valid_p)
+ (make_invalid_specpdl_ref, specpdl_ref_add, specpdl_ref_to_ptr): New.
+ (SPECPDL_INDEX, struct handler, USE_SAFE_ALLOCA, safe_free)
+ (safe_free_unbind_to):
+ * src/alloc.c (run_finalizer_function, inhibit_garbage_collection)
+ (garbage_collect, Fgarbage_collect, which_symbols):
+ * src/bidi.c (bidi_at_paragraph_end, bidi_find_paragraph_start):
+ * src/buffer.c (Fkill_buffer, Fset_buffer_major_mode, Fmove_overlay)
+ (Fdelete_overlay):
+ * src/bytecode.c (exec_byte_code):
+ * src/callint.c (Ffuncall_interactively, Fcall_interactively):
+ * src/callproc.c (Fcall_process, call_process, create_temp_file)
+ (Fcall_process_region):
+ * src/charset.c (load_charset_map_from_file):
+ * src/coding.c (decode_coding_gap, decode_coding_object)
+ (encode_coding_object, Fread_coding_system):
+ * src/comp.c (emit_static_object, helper_unbind_n, load_comp_unit):
+ * src/composite.c (update_compositions, autocmp_chars):
+ * src/cygw32.c (conv_filename_to_w32_unicode)
+ (conv_filename_from_w32_unicode):
+ * src/data.c (notify_variable_watchers):
+ * src/decompress.c (Fzlib_decompress_region):
+ * src/dired.c (directory_files_internal, file_name_completion)
+ (file_attributes):
+ * src/dispnew.c (Fredisplay):
+ * src/doc.c (get_doc_string, Fsnarf_documentation):
+ * src/editfns.c (Fsave_excursion, Fsave_current_buffer)
+ (Freplace_buffer_contents, Fsubst_char_in_region, Fsave_restriction)
+ (styled_format):
+ * src/emacs-module.c (Fmodule_load, funcall_module):
+ * src/emacs.c (init_cmdargs, Fdump_emacs):
+ * src/eval.c (call_debugger, do_debug_on_call, FletX, Flet)
+ (Ffuncall_with_delayed_message, Funwind_protect)
+ (internal_lisp_condition_case, signal_or_quit)
+ (load_with_autoload_queue, Feval, grow_specpdl_allocation)
+ (record_in_backtrace, eval_sub, Ffuncall, apply_lambda)
+ (funcall_lambda, clear_unwind_protect, set_unwind_protect)
+ (set_unwind_protect_ptr, unbind_to, Fbacktrace_eval):
+ * src/fileio.c (Fmake_temp_file_internal, Fcopy_file, Frename_file)
+ (Finsert_file_contents, write_region, Fdo_auto_save):
+ * src/fns.c (Fyes_or_no_p, Frequire, hash_table_user_defined_call):
+ * src/fringe.c (update_window_fringes):
+ * src/gtkutil.c (xg_dialog_run):
+ * src/haiku_io.c (c_specpdl_idx_from_cxx):
+ * src/haiku_support.cc (be_popup_file_dialog):
+ * src/haiku_support.h (c_specpdl_idx_from_cxx):
+ * src/haikufns.c (haiku_create_frame, haiku_create_tip_frame)
+ (haiku_hide_tip, Fx_show_tip, Fhaiku_read_file_name):
+ * src/haikumenu.c (haiku_popup_dialog, set_frame_menubar):
+ * src/image.c (slurp_file):
+ * src/indent.c (line_number_display_width, Fvertical_motion):
+ * src/insdel.c (signal_before_change, signal_after_change)
+ (Fcombine_after_change_execute):
+ * src/intervals.c (get_local_map):
+ * src/json.c (lisp_to_json_nonscalar_1, Fjson_serialize, Fjson_insert)
+ (Fjson_parse_string, Fjson_parse_buffer):
+ * src/keyboard.c (recursive_edit_1, Frecursive_edit, cmd_error)
+ (Finternal_track_mouse, command_loop_1, read_menu_command)
+ (safe_run_hooks, read_event_from_main_queue, read_char, timer_check_2)
+ (menu_item_eval_property, read_key_sequence, read_key_sequence_vs)
+ (Fsuspend_emacs):
+ * src/keymap.c (Fcurrent_active_maps, Fdescribe_vector)
+ (Fhelp__describe_vector):
+ * src/lread.c (Fload, save_match_data_load, readevalloop)
+ (Feval_buffer, Feval_region, grow_read_buffer, read_integer, read1):
+ * src/macros.c (Fexecute_kbd_macro):
+ * src/menu.c (x_popup_menu_1):
+ * src/minibuf.c (read_minibuf, set_minibuffer_mode)
+ (read_minibuf_unwind, Fread_string, Fread_buffer):
+ * src/nsfns.m (Fx_create_frame, Fx_show_tip):
+ * src/nsmenu.m (ns_update_menubar, ns_menu_show, ns_popup_dialog):
+ * src/pdumper.c (Fdump_emacs_portable):
+ * src/pgtkfns.c (Fx_create_frame, x_create_tip_frame, x_hide_tip)
+ (Fx_show_tip, Fpgtk_print_frames_dialog, Fx_file_dialog,
Fx_select_font):
+ * src/pgtkmenu.c (set_frame_menubar, create_and_show_popup_menu)
+ (pgtk_menu_show, create_and_show_dialog, pgtk_dialog_show)
+ (pgtk_popup_dialog):
+ * src/pgtkterm.c (pgtk_cr_export_frames):
+ * src/print.c (PRINTPREPARE, temp_output_buffer_setup)
+ (Fprin1_to_string, print_vectorlike):
+ * src/process.c (Fmake_process, create_process, Fmake_pipe_process)
+ (Fmake_serial_process, connect_network_socket, Fmake_network_process)
+ (network_interface_info, server_accept_connection)
+ (wait_reading_process_output, read_process_output, exec_sentinel):
+ * src/regex-emacs.c (re_match_2_internal):
+ * src/search.c (looking_at_1, fast_looking_at, search_buffer_re):
+ * src/sound.c (Fplay_sound_internal):
+ * src/sysdep.c (system_process_attributes):
+ * src/term.c (tty_menu_show):
+ * src/textprop.c (Fnext_single_char_property_change)
+ (Fprevious_single_char_property_change, add_text_properties_1)
+ (set_text_properties, set_text_properties_1, Fremove_text_properties)
+ (Fremove_list_of_text_properties):
+ * src/thread.c (Fmutex_lock, invoke_thread_function):
+ * src/undo.c (truncate_undo_list):
+ * src/w32fns.c (Fx_create_frame, w32_create_tip_frame, w32_hide_tip)
+ (Fx_show_tip, Fx_file_dialog):
+ * src/w32font.c (Fx_select_font):
+ * src/w32menu.c (set_frame_menubar):
+ * src/window.c (window_list, next_window, window_list_1)
+ (run_window_configuration_change_hook, Frun_window_scroll_functions)
+ (run_window_change_functions, set_window_buffer)
+ (temp_output_buffer_show, window_scroll, scroll_command)
+ (Fscroll_other_window, Fscroll_other_window_down):
+ * src/xdisp.c (safe__call, handle_fontified_prop, handle_face_prop)
+ (handle_single_display_spec, Fbuffer_text_pixel_size)
+ (message_dolog, with_echo_area_buffer, setup_echo_area_for_printing)
+ (display_echo_area, set_message, clear_message, echo_area_display)
+ (gui_consider_frame_title, prepare_menu_bars, update_menu_bar)
+ (update_tab_bar, update_tool_bar, redisplay_internal)
+ (redisplay_preserve_echo_area, run_window_scroll_functions)
+ (redisplay_window, extend_face_to_end_of_line)
+ (display_count_lines_logically, display_count_lines_visually)
+ (display_mode_lines, display_mode_line, Fformat_mode_line)
+ (decode_mode_spec):
+ * src/xfns.c (Fx_create_frame, x_create_tip_frame, x_hide_tip)
+ (Fx_show_tip, Fx_file_dialog, Fx_select_font, Fx_print_frames_dialog):
+ * src/xmenu.c (set_frame_menubar, create_and_show_popup_menu)
+ (x_menu_show, create_and_show_dialog, x_dialog_show)
+ (xw_popup_dialog):
+ * src/xselect.c (x_get_local_selection, x_reply_selection_request)
+ (x_handle_selection_request, wait_for_property_change):
+ * src/xterm.c (x_cr_export_frames, x_connection_closed):
+ Replace ptrdiff_t with specpdl_ref for referencing specpdl and use the
+ corresponding functions instead of direct arithmetic.
+
+2022-02-12 Po Lu <luangruo@yahoo.com>
+
+ Fix entry and exit events with XI2 grabs on X toolkit menus
+
+ * src/xmenu.c (popup_get_selection): Only claim cookie if new
+ event will be generated.
+ (create_and_show_popup_menu): Ungrab XI2 device, then
+ immediately set core grab on the frame's edit widget window.
+
+ * src/xterm.c (handle_one_xevent): Use x_any_window_to_frame to
+ find exit event frame if a popup menu is active.
+
+2022-02-12 Eli Zaretskii <eliz@gnu.org>
+
+ Clean up mode-line-* faces handling
+
+ * src/xfaces.c (realize_basic_faces):
+ * src/dispextern.h (enum face_id): Remove MODE_LINE_ID.
+
+2022-02-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add documentation on how to delete files from Trash
+
+ * doc/emacs/files.texi (Misc File Ops): Note trick to make `D'
+ work in Trash directories (bug#44059).
+
+2022-02-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve interaction between track-mouse and edebug
+
+ * lisp/emacs-lisp/edebug.el (edebug--display-1): Work around
+ `track-mouse' oddity (bug#675).
+
+2022-02-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix off-by-one file size formatting in ls-lisp
+
+ * lisp/ls-lisp.el (ls-lisp-format, ls-lisp-format-file-size): The
+ human-readable file sizes can be 7 characters wide (e.g.,
+ "1016.1k") (bug#53937).
+
+2022-02-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Cross-link message-expand-name-standard-ui-relevant doc strings
+
+ * lisp/gnus/message.el (message-expand-name-standard-ui): Mention
+ the other relevant variables in the doc string (bug#50667).
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Implement visual bell on Haiku like on X
+
+ * src/haiku_draw_support.cc
+ (BView_FillRectangleForVisibleBell): Delete function.
+ (BView_InvertRect): New function.
+
+ * src/haiku_support.cc (class EmacsView): Delete field
+ `visible_bell_color' and visible bell related methods.
+ (EmacsView_do_visible_bell): Delete function.
+ * src/haiku_support.h: Update prototypes.
+
+ * src/haikuterm.c (haiku_flash): Implement using
+ `BView_InvertRect'.
+ (haiku_beep): Use `haiku_flash' instead.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Fix compatibility with ancient versions of libXi
+
+ * src/xmenu.c (popup_get_selection): Don't rely on xev->display
+ being non-NULL.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Be less strict about which PointerEmulated button events to ignore
+
+ * src/xterm.c (handle_one_xevent): Ignore all PointerEmulated
+ button events.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Never set opaque region without an alpha channel
+
+ * src/xfns.c (x_set_alpha_background): Don't modify opaque
+ region if the visual has no alpha channel.
+
+2022-02-11 Mattias Engdegård <mattiase@acm.org>
+
+ Modernise byte-compilation chapters in manual
+
+ * doc/lispref/compile.texi (Speed of Byte-Code): More representative
+ numbers for byte code; the difference is much greater today.
+ (Compilation Functions, Disassembly): Example output for lexbind
+ bytecode.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Fix the DJGPP port
+
+ * config.bat:
+ * msdos/sed1v2.inp:
+ * msdos/sedlibmk.inp: Update for present Emacs.
+
+ * src/Makefile.in (MAKE_PDUMPER_FINGERPRINT): Fix indentation
+ to not confuse sed*.inp.
+ * src/conf_post.h [MSDOS]: Define some things gnulib wants.
+
+2022-02-11 Michael Albinus <michael.albinus@gmx.de>
+
+ Tolerate tilde in remote file names when needed
+
+ * lisp/net/tramp.el (tramp-tolerate-tilde): New defvar.
+ (tramp-handle-expand-file-name):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-expand-file-name):
+ Respect it.
+
+ * lisp/net/tramp-adb.el (tramp-adb-tolerate-tilde):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-tolerate-tilde): New defuns.
+ Advice `shell-mode' with them.
+ (tramp-methods) <sshfs>: Add "-t -t" to `tramp-login-args'.
+
+2022-02-11 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Allow searching of nnselect (search) groups
+
+ * lisp/gnus/gnus-group.el (gnus-group-make-search-group):
+ (gnus-group-read-ephemeral-search-group): Ensure the server is
+ correctly identified even for nnselect groups.
+ * lisp/gnus/gnus-search.el (gnus-search-nnselect): New function.
+ (gnus-search-default-engines): Use it.
+ (gnus-search-make-spec): Queries from nnselect should always be raw.
+ * lisp/gnus/nnselect.el (gnus-search): Silence the byte-compiler.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ * etc/PROBLEMS: Document some limitations of Xwayland and PGTK.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Don't make cursors affected by background alpha on PGTK
+
+ * src/ftcrfont.c (ftcrfont_draw):
+ * src/pgtkterm.c (x_clear_glyph_string_rect): Make behavior on
+ PGTK consistent with X.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Set _NET_WM_OPAQUE_REGION on non-GTK3 toolkits when using 32 bit visual
+
+ * src/xfns.c (x_set_alpha_background): Set opaque region if
+ opaque.
+
+ * src/xterm.c (x_update_opaque_region): New parameter
+ `configure'. All callers changed.
+ (handle_one_xevent): Call `x_update_opaque_region' on configure
+ events.
+
+2022-02-11 Po Lu <luangruo@yahoo.com>
+
+ Fix fallout from switch to 32-bit visuals
+
+ * src/xfns.c (x_decode_color): Make return type wide enough to
+ hold any pixel value.
+ * src/xterm.h (x_make_truecolor_pixel): Simplify.
+
+2022-02-10 Po Lu <luangruo@yahoo.com>
+
+ Improve reliability of selection ownership on Haiku
+
+ * src/haiku_select.cc (count_clipboard, count_primary)
+ (count_secondary): Initialize to -1
+ (BClipboard_set_system_data)
+ (BClipboard_set_primary_selection_data)
+ (BClipboard_set_secondary_selection_data): Store count before
+ saving to the the clipboard.
+ (BClipboard_owns_clipboard, BClipboard_owns_primary)
+ (BClipboard_owns_secondary): Adjust tests accordingly.
+
+2022-02-10 Po Lu <luangruo@yahoo.com>
+
+ Disable nearest-color allocation on DirectColor visuals
+
+ * src/xterm.c (x_alloc_nearest_color_1): Disable such allocation
+ on DirectColor. The method we use can't possibly work there.
+
+2022-02-10 Mattias Engdegård <mattiase@acm.org>
+
+ Silence macOS vfork deprecation warnings
+
+ The vfork system call exists and works in macOS 11.6 but the compiler
+ gives a deprecation message; silence it, because the performance is
+ still better than that of plain fork. See discussion at
+ https://lists.gnu.org/archive/html/emacs-devel/2022-02/msg00260.html
+
+ * src/conf_post.h (VFORK): New #define.
+ * src/callproc.c (emacs_spawn):
+ * src/sysdep.c (sys_subshell): Use it.
+
+2022-02-10 Juri Linkov <juri@linkov.net>
+
+ * lisp/mouse.el (context-menu-map): Select only unselected window
(bug#53910)
+
+2022-02-10 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el (tab-line-format): Use mode-line-window-selected-p.
+
+ Recently 'mode-line-window-selected-p' was added to
+ 'tab-line-tab-name-format-default'. Now add the same to another
+ place that handles the face 'tab-line-tab-current' (bug#53629).
+
+2022-02-10 Corwin Brust <corwin@bru.st> (tiny change)
+
+ Autoload package-installed-p
+
+ * lisp/emacs-lisp/package.el (package-installed-p): Add autoload
+ cookie. (Bug#53885)
+
+2022-02-10 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ # Conflicts:
+ # lisp/startup.el
+
+2022-02-10 Alan Mackenzie <acm@muc.de>
+
+ Note current buffer and restore it in c-force-redisplay.
+
+ This fixes bug #52709.
+
+ * lisp/progmodes/cc-fonts.el (c-force-redisplay): New parameter BUFFER.
Set
+ current buffer to this before fontifying.
+ (c-fontify-new-found-type): Give the current buffer as argument to
+ run-with-timer.
+
+2022-02-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Restore command-line--load-script messaging
+
+ * lisp/startup.el (command-line--load-script): Restore previous
+ non-messaging behaviour.
+
+2022-02-10 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve handling of file modes in Tramp
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-get-remote-uid)
+ (tramp-gvfs-handle-get-remote-gid): Do not assume that the default
+ location is owned be the remote uid/gid.
+ (tramp-gvfs-handle-file-executable-p):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-executable-p):
+ Check also for setuid/setgid bit.
+
+ * lisp/net/tramp.el (tramp-check-cached-permissions): Check also
+ for ?s access type. Check whether remote uid/gid are unknown.
+
+2022-02-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't signal a backtrace on empty --script files
+
+ * lisp/startup.el (command-line--load-script): New function that
+ avoids erroring out if it turns out there's no forms in the buffer
+ (bug#4616).
+
+ * lisp/subr.el (delete-line): New utility function.
+ * lisp/international/mule.el (load-with-code-conversion): Accept
+ an eval function.
+
+2022-02-10 Po Lu <luangruo@yahoo.com>
+
+ Enable TrueColor allocation optimizations on all visuals
+
+ * src/xterm.c (x_alloc_nearest_color): Enable optimizations on
+ 32-bit TrueColor visuals that legitimately don't have an alpha
+ mask.
+
+2022-02-10 Po Lu <luangruo@yahoo.com>
+
+ Correctly premultiply background color of fringe bitmaps
+
+ * src/xterm.c (x_draw_fringe_bitmap): Premultiply alphas by
+ alpha_background.
+
+2022-02-10 Po Lu <luangruo@yahoo.com>
+
+ Correctly allocate colors in xftfont
+
+ * src/xftfont.c (struct xftface_info): New fields
+ `bg_allocated_p' and `fg_allocated_p'.
+ (xftfont_get_colors): Actually allocate colors and tell the
+ caller whether colors were allocated.
+ (xftfont_prepare_face): Set allocated fields.
+ (xftfont_done_face):
+ (xftfont_draw): Free colors that were allocated.
+
+2022-02-10 Dima Kogan <dima@secretsauce.net>
+
+ Make comint-word actually check comint-file-name-quote-list
+
+ * lisp/comint.el (comint-word): We were checking for
+ comint-file-name-quote-list existing, but not actually comparing
+ to the characters in that list. This patch actually checks the
+ contents of comint-file-name-quote-list (bug#53911).
+
+2022-02-10 Eli Zaretskii <eliz@gnu.org>
+
+ Allow customization of the user's eln-cache directory
+
+ * lisp/startup.el (startup-redirect-eln-cache)
+ (startup--update-eln-cache): New functions.
+ (startup--original-eln-load-path): New defvar.
+ (normal-top-level): Record the original value of
+ 'native-comp-eln-load-path' in 'startup--original-eln-load-path'.
+ Do not amend 'native-comp-eln-load-path' here, as that could
+ overwrite user customizations.
+ (command-line): Amend 'native-comp-eln-load-path' after loading
+ the early-init file, and then again after loading the user init
+ file. (Bug#53891)
+
+ * etc/NEWS: Announce 'startup-redirect-eln-cache'.
+
+2022-02-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 69e82968d7 Fix integer arithmetic miss-compilation (bug#53451)
+ 31af9bca99 Mark flymake as compatible with emacs-26.1
+
+2022-02-10 Po Lu <luangruo@yahoo.com>
+
+ Fix disconnect errors on some X servers
+
+ * src/xfns.c (x_make_gc): Don't set FillOpaqueStippled on cursor
+ GC. The reason is that some X servers break on such a fill
+ style if the operation being performed is not a stiple
+ operation.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Fill in missing pixel after PolyLine on scroll bars
+
+ * src/xterm.c (x_scroll_bar_expose): Draw bottom right corner of
+ scroll bar manually.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ * src/haikugui.h [_cplusplus]: Remove extern "C" declarations.
+
+ These were left over from an old implementation strategy
+ abandoned long before the port was installed.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Improve reliability of hotplugging window managers
+
+ * src/xterm.c (x_make_frame_visible): Change the user time
+ window if the window manager supports something different from
+ what it did the first time the frame was made visible.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Ignore tooltip frames when setting PGTK scrollbar foreground
+
+ * src/pgtkfns.c (pgtk_set_scroll_bar_foreground): Ignore tip
+ frames. (bug#53900)
+
+2022-02-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Tilde expansion is not possible for Tramp sshfs method
+
+ * lisp/net/tramp.el (tramp-handle-expand-file-name):
+ Tilde expansion is not possible. (Bug#53847)
+
+2022-02-09 Tassilo Horn <tsdh@gnu.org>
+
+ show-paren: Don't show context again after C-g-ing it away.
+
+ * lisp/paren.el (show-paren--last-pos): New variable.
+ (show-paren-function): Don't show context again after C-g-ing it away.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Get rid of `register' declarations in X11 related files
+
+ * src/xfns.c (XScreenNumberOfScreen): Rewrite K&R declaration.
+ * src/xterm.c (x_set_offset): Remove `register' from `xoff' and
+ `yoff'.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warning on GTK
+
+ * src/xterm.c (x_make_frame_visible): Make some fields that are
+ set but never used conditioned out on GTK.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Add support for _NET_WM_USER_TIME_WINDOW
+
+ * src/xterm.c (x_make_frame_visible):
+ (x_display_set_last_user_time): Use and set user time window if
+ the WM supports it.
+ (x_term_init): Intern new atom.
+
+ * src/xterm.h (struct x_display_info): New atom
+ `_NET_WM_USER_TIME_WINDOW'.
+ (struct x_output): New field `user_time_window'.
+
+2022-02-09 Antoine Levitt <antoine.levitt@gmail.com>
+
+ Improve the set-fill-column prompt
+
+ * lisp/simple.el (set-fill-column): Improve the prompt (bug#53874).
+
+2022-02-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make calendar-exit actually respect the KILL parameter
+
+ * lisp/calendar/calendar.el (calendar-exit): Really kill off all
+ the buffers (if requested) (bug#53870).
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Implement _NET_WM_USER_TIME protocol
+
+ * src/xterm.c (x_display_set_last_user_time): Set user time on
+ the active window.
+ (handle_one_xevent): Only set user time when the user actually
+ interacted with Emacs.
+ (x_make_frame_visible): Set user time if non-zero.
+ (x_term_init): Intern `_NET_WM_USER_TIME'.
+ * src/xterm.h (struct x_display_info): New field
+ `Xatom_net_wm_user_time'.
+ (x_display_set_last_user_time): Implement in xterm.c instead.
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Explictly specify whether or not to respect alpha-background on Cairo
+
+ * src/ftcrfont.c (ftcrfont_draw): Don't respect
+ `alpha-background' if drawing cursor. (bug#53890)
+ * src/xterm.c (x_set_cr_source_with_gc_foreground):
+ (x_set_cr_source_with_gc_background): New parameters
+ `respect_alpha_background'. All callers changed.
+ * src/xterm.h: Update protoypes.
+
+2022-02-09 Tassilo Horn <tsdh@gnu.org>
+
+ Mention `overlay' show-paren-context-when-offscreen value in NEWS
+
+ * etc/NEWS: Mention `overlay' value of
+ show-paren-context-when-offscreen.
+
+2022-02-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 82e74e4559 flymake: Ensure compatibility with older Emacsen
+
+2022-02-09 Po Lu <luangruo@yahoo.com>
+
+ Make haikufont_list_family actually work
+
+ * haikufont.c (haikufont_list_family): Intern returned font
+ families.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Implement `list_family' for the haikufont driver
+
+ * src/haiku_font_support.cc (be_list_font_families): New
+ function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikufont.c (haikufont_list_family): New function.
+ (haikufont_driver): Add `haikufont_list_family'.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Improve selection of fonts available from `mouse-set-font'
+
+ People get confused on a build without font dialogs (such as a
+ Lucid build) if `menu-set-font' and `mouse-set-font' don't
+ present them a list of the fonts actually available on their
+ system.
+
+ * lisp/mouse.el (mouse-generate-font-name-for-menu)
+ (mouse-generate-font-menu): New functions.
+ (mouse-select-font): Allow the user to select from all fonts
+ available on the system.
+ (mouse-set-font): Use `mouse-select-font' to display font menu.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Make sure the cursor can't move on top of a tooltip on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Work around leave
+ notification events not being sent on tooltip frames.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Fix creation of tooltip frames with a stippled background
+
+ * src/xfns.c (x_create_tip_frame): Init faces after creating the
+ drawable, since that's needed for loading stipple files.
+
+2022-02-08 Tassilo Horn <tsdh@gnu.org>
+
+ Allow showing show-paren context in an overlay
+
+ * lisp/paren.el (show-paren-context-when-offscreen): Add new
+ possibility `overlay'.
+ (show-paren--context-overlay): New defvar.
+ (show-paren--delete-context-overlay): New function.
+ (show-paren--show-context-in-overlay): New function.
+ (show-paren-function): Handle the new `overlay' case.
+ * lisp/emacs-lisp/eldoc.el (eldoc-display-message-no-interference-p):
+ There's no interference if `show-paren-context-when-offscreen' is
+ overlay or child-frame.
+
+2022-02-08 Juri Linkov <juri@linkov.net>
+
+ * lisp/replace.el (perform-replace): Allow using isearch in
recursive-edit.
+
+ Let-bind isearch-filter-predicate to the default value before calling
+ recursive-edit to allow using isearch in a recursive edit (bug#53758).
+
+2022-02-08 Robert Pluim <rpluim@gmail.com>
+
+ Improve make-frame-on-display initial values
+
+ * doc/emacs/frames.texi (Multiple Displays): Add index entry for
+ 'display server'.
+ * lisp/frame.el (make-frame-on-display): Specify sensible initial
+ values when reading display name.
+ * lisp/menu-bar.el (menu-bar-file-menu): Use 'display server' rather
+ than 'display' to avoid monitor<->display confusion.
+
+2022-02-08 Robert Pluim <rpluim@gmail.com>
+
+ Improve thing-at-point-url-at-point docstring
+
+ * lisp/thingatpt.el (thing-at-point-url-at-point): Correct description
+ of BOUNDS argument.
+
+2022-02-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Respect customization nature of `connection-local-*' user options
+
+ * lisp/files-x.el (connection-local-set-profiles)
+ (connection-local-set-profile-variables): Set user options via
+ `customize-set-variable'.
+
+2022-02-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix processes on remote default-directory with special characters
+
+ * lisp/net/tramp.el (tramp-handle-make-process): Quote `localname'.
+
+ * test/lisp/net/tramp-tests.el (tramp--test-check-files):
+ Test also remote `default-directory' for processes. (Bug#53846)
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (map_event): Fix last change.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Document some problems found during testing on various X servers
+
+ * etc/PROBLEMS (General X problems): Document some problems
+ found during testing on various X servers.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Improve robustness of override-redirect on Haiku
+
+ * src/haiku_support.cc (class EmacsWindow): New field
+ `override_redirect_p'.
+ (BWindow_change_decoration, BWindow_set_override_redirect): Set
+ and restore from the saved pre-override redirect state fields if
+ appropriate.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Fix frame offset reporting on PGTK
+
+ * src/pgtkterm.c (configure_event): Handle changes in window
+ position. (bug#52697)
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Implement frame resize synchronization on GTK 3
+
+ * src/xterm.c (XTframe_up_to_date):
+ (handle_one_xevent): Use the GTK frame clock to implement frame
+ resize synchronization.
+
+ * src/xterm.h (struct x_output): New variable
+ `xg_sync_end_pending_p'.
+
+2022-02-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Extend find-lisp-object-file-name
+
+ * lisp/help-fns.el (find-lisp-object-file-name): Add optional
+ parameter to always look in the DOC file (bug#17685).
+
+2022-02-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document pcase-lambda
+
+ * doc/lispref/control.texi (Destructuring with pcase Patterns):
+ Document pcase-lambda (bug#20268).
+
+2022-02-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some standard-output/help-buffer confusion in describe-function-1
+
+ * lisp/help-fns.el (describe-function-1): We're outputting to
+ standard-output, so deconfuse slightly.
+
+2022-02-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix describe-function-1 test failure from previous change
+
+ * lisp/help-fns.el (describe-function-1): Fix test failure from
+ previous patch.
+
+2022-02-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Minor fix to how describe-function-1 displays symbols with spaces
+
+ * lisp/help-fns.el (describe-function-1): Ensure that symbols like
+ `bar\ ' aren't rendered incorrectly (bug#23130).
+
+2022-02-08 martin rudalics <rudalics@gmx.at>
+
+ Improve handling of frame-inherited-parameters
+
+ * lisp/frame.el (make-frame): Improve handling of
+ frame-inherited-parameters (bug#24651).
+
+2022-02-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make exit from text-scale-adjust less confusing
+
+ * lisp/face-remap.el (text-scale-adjust): Clear the prompt after
+ exiting (bug#25978).
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Clear mouse highlight when mouse moves outside edit widget
+
+ * src/xterm.c (handle_one_xevent): Clear mouse highlight when
+ leaving the edit widget. Otherwise, it stays around on the
+ toolbar after the mouse is moved onto the menu bar.
+
+2022-02-08 Andrew G Cohen <cohen@andy.bu.edu>
+
+ nnselect.el: Speed up group info updating
+
+ * lisp/gnus/nnselect.el (nnselect-request-update-info): Use a hash and
+ other tricks to speed things up.
+ (nnselect-request-group-scan): Make sure the artlist is uncompressed.
+
+2022-02-08 Po Lu <luangruo@yahoo.com>
+
+ Try harder to preserve cursor when mapping tooltip frames on Haiku
+
+ * src/haikufns.c (haiku_set_cursor_color): Fix argument to
+ `error'.
+ (Fx_show_tip): Define cursors on both views.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Fix menu bar not opening after popup menu is dismissed on Lucid
+
+ * lwlib/xlwmenu.c (XlwMenuDestroy): Only set submenu_destroyed
+ if menu bar widget.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkfns.c (Fx_create_frame): Realize frame widgets. (bug#53861)
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Don't allow tooltips to be transient for override redirect windows
+
+ * src/xfns.c (Fx_show_tip): Delete WM_TRANSIENT_FOR if the child
+ window is override-redirect.
+
+ * src/xterm.c (x_term_init): Intern new atom.
+ * src/xterm.h (struct x_display_info): New atom
+ `Xatom_wm_transient_for'.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Make sure `update_wm_hints' finds the WMShell
+
+ * src/widget.c (update_wm_hints): Accept frame separately from
+ the shell widget.
+ (widget_update_wm_size_hints): Require WM shell to be explictly
+ specified.
+ (EmacsFrameRealize):
+ (EmacsFrameResize): Update callers to `update_wm_hints'.
+ * src/widget.h: Update prototypes.
+ * src/xterm.c (x_wm_set_size_hint): Pass frame widget
+ (ApplicationShell) and the edit widget (EmacsFrame) to
+ `widget_update_wm_size_hints'. (bug#53839)
+
+2022-02-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ minibuffer.el: Try and fix bug#53053
+
+ * lisp/minibuffer.el (completion--sifn-requote): Special case for when
+ `upos` is at the very end.
+
+2022-02-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/xref.el (xref--marker-ring): Fix typo
+
+2022-02-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Make connection-local variables user options
+
+ * lisp/files-x.el (connection-local-profile-alist)
+ (connection-local-criteria-alist): Make them user options.
+
+ * doc/lispref/variables.texi (Connection Local Variables):
+ * etc/NEWS: Document this.
+
+2022-02-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ lisp-mnt, checkdoc: Reduce run-time dependencies
+
+ * lisp/emacs-lisp/lisp-mnt.el: Don't require `mail-parse` at top-level.
+ (lm-crack-address): Require it here instead.
+
+ * lisp/emacs-lisp/checkdoc.el (dired): Don't load at run-time.
+ (checkdoc-dired): Add corresponding `declare-function`.
+
+2022-02-07 Mattias Engdegård <mattiase@acm.org>
+
+ Pin lazily read bytecode (bug#53809)
+
+ * src/eval.c (Ffetch_bytecode): Bytecode strings read lazily weren't
+ pinned as they must be. Do so.
+
+ Bug reported by Gregor Zattler.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Improve contrast of `custom-button' in the leuven-dark theme
+
+ * etc/themes/leuven-dark-theme.el (custom-button): Improve
+ contrast of custom-button foreground.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ * lwlib/xlwmenu.c (pop_up_menu): Fix cast.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Correct off-by-one errors with frame resizing on Haiku
+
+ * src/haiku_support.cc (UnZoom):
+ (MakeFullscreen):
+ (BWindow_resize): Fix off-by-one errors in calls to
+ `BWindow::ResizeTo'.
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Make menus work better on X toolkit builds with XInput 2
+
+ * src/xmenu.c (popup_get_selection): Translate some important
+ XI2 events into events the toolkit can understand.
+ (x_activate_menubar):
+ (create_and_show_popup_menu): Clear grab regardless of reported
+ status on Motif.
+ * src/xterm.c (xi_device_from_id): Export function.
+ * src/xterm.h: Update prototypes.
+
+2022-02-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Sanitize ls switches in ange-ftp (bug#53360)
+
+ * lisp/net/ange-ftp.el (ls-lisp--sanitize-switches): Declare.
+ (ange-ftp-ls): Sanitize LSARGS. (Bug#53360)
+
+2022-02-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve indentation of some shell script forms
+
+ * lisp/progmodes/sh-script.el (sh-smie--default-backward-token):
+ Don't skip past things like "true;then" (bug#53817).
+
+2022-02-07 Po Lu <luangruo@yahoo.com>
+
+ Really fix extended frame synchronization
+
+ * src/xterm.c (XTframe_up_to_date): Make sure the extended
+ counter ends up even.
+
+2022-02-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the Scroll key binding on Windows
+
+ * lisp/bindings.el (global-map): Fix the binding on Windows
+ (bug#38007).
+
+ * lisp/scroll-lock.el (scroll-lock-mode): The event is `scroll' on
+ Windows, not `Scroll_Lock'.
+
+2022-02-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the eintr.html target match what's on the web
+
+ * doc/lispintro/Makefile.in (HTML_TARGETS, eintr.html): Make the
+ name match the URL at
+ https://www.gnu.org/software/emacs/manual/eintr.html (bug#38817).
+
+2022-02-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Give a better error in locate-default-make-command-line
+
+ * lisp/locate.el (locate-default-make-command-line): Error out
+ more nicely.
+
+2022-02-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the ediff-diff-options documentation
+
+ * lisp/vc/ediff-diff.el (ediff-diff-options):
+ * doc/misc/ediff.texi (Patch and Diff Programs): Note that setting
+ this variable directly is probably the wrong thing to do (bug#6512).
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Respect `x-cursor-fore-pixel' on Haiku
+
+ * src/haikufns.c (haiku_set_cursor_color): Respect
+ `x-cursor-fore-pixel'.
+ (syms_of_haikufns): Declare variable `x-cursor-fore-pixel'.
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Clean up more code from PGTK port
+
+ * lisp/term/pgtk-win.el (pgtk-disown-selection-internal)
+ (pgtk-get-selection-internal): Fix declarations for new calling
+ conventions.
+ * src/gtkutil.c (xg_frame_set_char_size, x_wm_set_size_hint):
+ Clean up meaningless variables on PGTK.
+ * src/pgtkfns.c (Fx_create_frame, syms_of_pgtkfns): Clean up
+ meaningless variables and fix copied doc strings to use "skip".
+ * src/pgtkim.c (im_context_commit_cb)
+ (im_context_retrieve_surrounding_cb)
+ (im_context_delete_surrounding_cb, make_color_string)
+ (im_context_preedit_changed_cb, im_context_preedit_end_cb)
+ (im_context_preedit_start_cb): Fix coding style.
+ * src/pgtkselect.c (pgtk_selection_usable)
+ (Fpgtk_disown_selection_internal, Fpgtk_get_selection_internal):
+ Remove unused arguments.
+ (syms_of_pgtkselect): Fix doc strings and old style variable
+ declarations.
+ * src/pgtkterm.c (x_set_offset, x_set_parent_frame)
+ (syms_of_pgtkterm): Clean up doc strings and remove meaningless
+ variables.
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ * doc/emacs/xresources.texi (Table of Resources): Improve wording.
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Correct implementation of extended frame synchronization
+
+ * src/xterm.c (handle_one_xevent): Use value provided in the
+ extended synchronization message as the current counter value.
+
+2022-02-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dired-directory and dired-subdir-alist buffer-local
+
+ * lisp/dired.el (dired-directory):
+ (dired-subdir-alist): Make buffer-local (bug#7118)
+ (dired-readin):
+ (dired-mode):
+ * lisp/dired-x.el (dired-virtual): Adjust usage.
+ * lisp/locate.el (locate-mode):
+ * lisp/find-lisp.el (find-lisp-find-dired-internal):
+ * lisp/find-dired.el (find-dired): Adjust usage.
+
+2022-02-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Fix eval-tests/backtrace-in-batch-mode test
+
+ * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix the
+ zero-arg case.
+
+2022-02-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make async connect_network_socket failures use Qfailed
+
+ * src/process.c (connect_network_socket): Mark the process as
+ Qfailed instead of using the error symbol (since this is what's
+ defined for the status) (bug#53814).
+
+2022-02-06 Bob Rogers <rogers-emacs@rgrjr.homedns.org>
+
+ Remove outdated comments from ietf-drums.el
+
+ * lisp/mail/ietf-drums.el: Remove outdated comments (bug#53811).
+
+2022-02-06 Ioannis Kappas <ioannis.kappas@gmail.com> (tiny change)
+
+ ansi-color: don't get stuck on \e
+
+ * lisp/ansi-color.el (ansi-color--control-seq-fragment-regexp): New
+ constant.
+
+ * test/lisp/ansi-color-tests.el
+ (ansi-color-incomplete-sequences-test): Test for \e that doesn't
+ start a valid ANSI escape sequence (bug#53808).
+
+ Code amended (and test code written) by <miha@kamnitnik.top>. Code by
+ Ioannis Kappas is small enough to be
+
+2022-02-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (debug-early-backtrace): Tweak the non-evald output
+
+ * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Make the
+ non-evald output more like what is used in `debug.el`.
+
+2022-02-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (debug-early-backtrace): Tweak the non-evald output
+
+ * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Make the
+ non-evald output more like what is used in `debug.el`.
+
+2022-02-06 Juri Linkov <juri@linkov.net>
+
+ Use mode-line-window-selected-p in tab-line-tab-name-format-default.
+
+ * lisp/tab-line.el (tab-line-tab-name-format-default):
+ Use the recently added function 'mode-line-window-selected-p'
+ for the face 'tab-line-tab-current' (bug#53629).
+
+2022-02-06 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-new-tab-choice): Add const 'window'. Update
doc.
+
+ (tab-bar-new-tab-to): Remove window parameters 'window-side' and
+ 'window-atom' from the old window. Move split-window/delete-window
+ inside ignore-window-parameters (bug#53662).
+
+2022-02-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt em-tramp-tests.el
+
+ * test/lisp/eshell/em-tramp-tests.el (tramp): Require.
+ (em-tramp-test/su-default, em-tramp-test/su-user)
+ (em-tramp-test/su-login, em-tramp-test/sudo-basic)
+ (em-tramp-test/sudo-user): Adapt tests.
+
+2022-02-06 Mattias Engdegård <mattiase@acm.org>
+
+ Avoid deprecation warning in NS-specific code
+
+ * src/macfont.m (mac_font_create_preferred_family_for_attributes):
+ CTGetCoreTextVersion is obsolete and its use elicits a warning
+ in macOS 11.6; use NSProcessInfo instead.
+
+2022-02-06 Wang Chunye <chunywan@xilinx.com> (tiny change)
+
+ optimization: constand folding for read-kbd-macro
+
+ to boost startup performance, it is better to avoid invoking
+ `read-kbd-macro` at run time which requires 'cl-lib.
+
+ it takes ~20ms to load cl-lib
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Ensure bar cursors are always visible on Haiku
+
+ * src/haikuterm.c (haiku_draw_window_cursor): Adjust bar cursor
+ colors like X.
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Fix the GTK 2 build
+
+ * src/gtkutil.c (xg_filter_key): Remove call to GTK3-only
+ function without GTK 3.
+ * src/xfns.c (select_visual): Avoid 32-bit visuals on GTK 2.
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Disable extended frame synchronization by default
+
+ * doc/emacs/xresources.texi (Table of Resources): Document
+ new possible value of `synchronizeResize'.
+ * src/xfns.c (Fx_create_frame): Set synchronization protocol
+ according to `synchronizeResize'.
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ Add support for EWMH extended frame synchronization
+
+ * src/xfns.c (Fx_create_frame): Populate both counter variables.
+ * src/xterm.c (XTframe_up_to_date):
+ (handle_one_xevent): Support extended synchronization.
+ (x_free_frame_resources): Destroy extended counter.
+ (x_term_init): Intern new atom _NET_WM_FRAME_DRAWN.
+
+ * src/xterm.h (struct x_display_info): New atom
+ `_NET_WM_FRAME_DRAWN'.
+ (struct x_output): New fields for extended counter tracking.
+ (FRAME_X_EXTENDED_COUNTER): New macro.
+
+2022-02-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix infloop in 'redisplay_window' when buffer is narrowed
+
+ * src/xdisp.c (redisplay_window): Ensure window-start point is in
+ the accessible portion of the buffer when passing it to
+ 'window_start_acceptable_p'. (Bug#14582)
+
+2022-02-06 Tassilo Horn <tsdh@gnu.org>
+
+ Display show-paren-context-when-offscreen in child frame
+
+ * etc/NEWS: Extend section about the new
+ `show-paren-context-when-offscreen' custom option.
+ * lisp/paren.el (show-paren-context-when-offscreen): Allow special
+ value `child-frame'.
+ (show-paren-function): Handle `child-frame' value of
+ `show-paren-context-when-offscreen'.
+ (show-paren--context-child-frame): New defvar.
+ (show-paren--context-child-frame-redirect-focus): New function.
+ (show-paren--context-child-frame-buffer): New function.
+ (show-paren--context-child-frame-parameters): New defvar.
+ (show-paren--delete-context-child-frame): New function.
+ (show-paren--show-context-in-child-frame): New function.
+
+2022-02-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Make usage of su and sudo consistent in eshell (bug#53783)
+
+ * lisp/eshell/em-tramp.el (eshell/su, eshell/sudo):
+ Use `tramp-default-host' instead of "localhost".
+
+2022-02-06 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 821c240075 Fix ietf-drums-get-comment doc string
+ 638247baa4 Fix typo in display.texi
+
+2022-02-06 Po Lu <luangruo@yahoo.com>
+
+ * lwlib/xlwmenu.c (pop_up_menu): Work around motion problems on XI2.
+
+2022-02-05 Bob Rogers <rogers@rgrjr.com>
+
+ Add ietf-drums tests, fix parse-address decoding
+
+ * test/lisp/mail/ietf-drums-tests.el (ietf-drums-tests): Test most of
+ lisp/mail/ietf-drums.el functionality.
+ * lisp/mail/ietf-drums.el: (ietf-drums-parse-address): Bug fix:
+ Require rfc2047 when needed (bug#53811).
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ Allow disabling frame resize synchronization
+
+ * doc/emacs/xresources.texi (Table of Resources): Document new
+ parameter `synchronizeResize'.
+ * etc/NEWS: Announce frame resize synchronization.
+ * src/xterm.c (x_term_init): Don't enable XSync if the
+ X resource `synchronizeResize' is off or false.
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ Clean up lots of #ifdef'd out code in PGTK files
+
+ Most of them are either relics from X or from the NS code
+ pgtkfns.c was copied from whole.
+
+ * src/pgtkfns.c (x_icon):
+ (pgtk_set_scroll_bar_foreground):
+ (pgtk_set_scroll_bar_background):
+ (Fx_create_frame):
+ (pgtk_window_is_ancestor):
+ (x_create_tip_frame):
+ * src/pgtkselect.c (syms_of_pgtkselect):
+ * src/pgtkterm.c (pgtk_iconify_frame):
+ (x_set_frame_alpha):
+ (button_event): Remove defined out code that cannot make sense.
+
+ * src/pgtkmenu.c (show_help_event): Remove ifdef'd out code and
+ reword comment.
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ Handle window state changes on PGTK
+
+ * src/pgtkterm.c (window_state_event): Set fullscreen, sticky,
+ and iconification status according to the new window state.
+ (bug#53793)
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ Minor changes to xsync support
+
+ * src/xfns.c (append_wm_protocols): Don't append
+ _NET_WM_SYNC_REQUEST unless the display supports our version of
+ XSync.
+
+ * src/xterm.c (handle_one_xevent): Don't handle
+ _NET_WM_SYNC_REQUEST unless the display supports that.
+ (x_free_frame_resources): Test basic counter against None.
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the elp-instrument-package doc string
+
+ * lisp/emacs-lisp/elp.el (elp-instrument-package): Note the effect
+ of loading further files (bug#13252).
+
+2022-02-05 Mauro Aranda <maurooaranda@gmail.com>
+
+ Fix reverting the default face to standard/themed state in GUIs
+
+ * lisp/cus-edit.el (custom-face-set, custom-face-mark-to-save)
+ (custom-face-save): Record the default (standard or themed) attributes
+ of the default face in a symbol property.
+ (custom-face-reset-saved, custom-face-mark-to-reset-standard): When
+ reverting the default face to the standard or themed state, use the
+ default attributes we recorded, instead of relying in the defface spec
+ of the default face, since that doesn't give enough information to
+ reset all attributes, like foreground, family, etc (bug#14635).
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option 'find-library-include-other-files'
+
+ * lisp/emacs-lisp/find-func.el (read-library-name--find-files):
+ New function (bug#15735).
+ (read-library-name): Use it.
+ (find-library-include-other-files): New user option.
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how eshell/cd works when cd-ing to ".." from "/"
+
+ * lisp/eshell/em-dirs.el (eshell/cd): Make "cd .." from "/" less
+ confusing (bug#16861).
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a :distant-foreground to the lazy-highlight face
+
+ * lisp/isearch.el (lazy-highlight): Add a :distant-foreground
+ colour so that the text is always legible (bug#16969).
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function mode-line-window-selected-p
+
+ * doc/lispref/modes.texi (Mode Line Basics): Mention it (bug#53629).
+ * lisp/bindings.el (mode-line-window-selected-p): New function
+ from martin rudalics <rudalics@gmx.at>.
+
+2022-02-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp to changed unload behavior (bug#53632)
+
+ * test/lisp/net/tramp-tests.el (tramp-test47-unload): Check also
+ for autoloaded macros. Respect `tramp-autoload' function property.
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ Add support for basic syncing with the window manager on resize
+
+ This is handled by GTK 3, so the code is disabled on that
+ specific build. On other builds, this eliminates any unexposed
+ part of a frame from showing up after a resize when
+ `frame-resize-pixelwise' is t.
+
+ * configure.ac: Check for the X Synchronization Extension if
+ present.
+ * src/Makefile.in (EMACS_CFLAGS):
+ (LIBES): Add XSYNC_LIBS and XSYNC_CFLAGS.
+
+ * src/xfns.c (append_wm_protocols): Declare
+ `_NET_WM_SYNC_REQUEST' support if appropriate.
+ (x_window): Adjust location of call to `append_wm_protocols' on
+ Xt version to prevent it from being overwritten.
+ (Fx_create_frame): Create basic counter.
+ * src/xterm.c (XTframe_up_to_date): Set counter value to the one
+ asked for by the window manager.
+ (handle_one_xevent): Handle _NET_WM_SYNC_REQUEST.
+ (x_free_frame_resources): Free frame counter if present.
+ (x_term_init): Test for XSync and set fields accordingly.
+ * src/xterm.h (struct x_display_info): New fields for XSync
+ support and new atoms.
+ (struct x_output): New fields for counter status.
+ (FRAME_X_BASIC_COUNTER): New macro.
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ * lisp/pixel-scroll.el: Update commentary.
+
+2022-02-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'current-column' in the presence of display strings
+
+ * src/indent.c (check_display_width): Support calculation of width
+ of 'display' properties whose values are strings. This fixes the
+ value returned by 'current-column' when display strings are
+ present between BOL and point. (Bug#53795)
+
+2022-02-05 Alan Mackenzie <acm@muc.de>
+
+ * lisp/emacs-lisp/debug-early.el: Improve the documentation
+
+2022-02-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Remove superfluous `font-lock-add-keywords' calls in Tramp
+
+ * lisp/net/tramp.el (with-parsed-tramp-file-name)
+ (with-tramp-progress-reporter, with-tramp-file-property)
+ (with-tramp-connection-property, with-tramp-locked-connection):
+ * lisp/net/tramp-gvfs.el (with-tramp-dbus-call-method)
+ (with-tramp-dbus-get-all-properties): Do not call
+ `font-lock-add-keywords' for macros, it isn't needed anymore.
+
+2022-02-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp to changed unload behavior (bug#53632)
+
+ * lisp/net/tramp.el (tramp-autoload-file-name-handler)
+ (tramp-register-autoload-file-name-handlers)
+ (tramp-unload-file-name-handlers, tramp-unload-tramp):
+ * lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-regexp)
+ (tramp-archive-autoload-file-name-handler)
+ (tramp-register-archive-file-name-handler):
+ Add `tramp-autoload' function property.
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix yank-media utf-16 detection
+
+ * lisp/yank-media.el (yank-media--utf-16-p): Factor out into its
+ own function for easier testing and fix the code.
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the selected-window doc string
+
+ * src/window.c (Fselected_window): Add some pointers to other
+ functions in this area.
+
+2022-02-05 Jim Porter <jporterbugs@gmail.com>
+
+ Ensure that the CAR of 'eshell-last-async-procs' always points to a
process
+
+ Previously, if a non-process was piped to a process, this could end up
+ being nil, which isn't correct. 'eshell-last-async-procs' should just
+ ignore non-process commands in a pipeline.
+
+ * lisp/eshell/esh-cmd.el (eshell-do-pipelines): Set 'headproc'
+ correctly.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/pipe-headproc): New
test.
+
+2022-02-05 Brendan O'Dea <bod@debian.org> (tiny change)
+
+ Remove kerning escapes in woman mode
+
+ * lisp/woman.el (woman-decode-region): Remove kerning escapes
+ (bug#53770).
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the Archive file names tramp documentation
+
+ * doc/misc/tramp.texi (Archive file names): Explicitly say how to
+ open an archive with Tramp (bug#25076).
+
+2022-02-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix yank-media-types--format decoding
+
+ * lisp/yank-media.el (yank-media-types--format): Check that we
+ really have some nuls.
+
+2022-02-05 Po Lu <luangruo@yahoo.com>
+
+ Finish up cursor color merging on Haiku
+
+ * src/haikuterm.c (haiku_draw_text_decoration):
+ (haiku_draw_plain_background):
+ (haiku_draw_stretch_glyph_string):
+ (haiku_merge_cursor_foreground): Use merged cursor colors.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Fix last change to ftcrfont.c
+
+ * src/ftcrfont.c (ftcrfont_draw): Remove relic `face' variable
+ and use s->face instead.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Implement face cursor color merging on Haiku
+
+ * src/ftcrfont.c (ftcrfont_draw):
+ * src/haikufont.c (haikufont_draw): Use
+ `haiku_merge_cursor_foreground' to calculate cursor HL colors.
+ * src/haikuterm.c (haiku_merge_cursor_foreground): New function.
+ * src/haikuterm.h: Update prototypes.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Set WM_TRANSIENT_FOR on tooltip frames
+
+ Otherwise the decorations get all messed up on GNOME and some
+ other composited desktops.
+
+ * src/xfns.c (Fx_show_tip): Set WM_TRANSIENT_FOR to the window
+ underneath the tooltip.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Implement _NET_WM_PING protocol
+
+ * src/xfns.c (append_wm_protocols): New function.
+ (x_window): Call `append_wm_protocols' after window creation.
+ * src/xterm.c (handle_one_xevent): Handle _NET_WM_PING client
+ messages.
+ (x_term_init): Intern _NET_WM_PING atom.
+ * src/xterm.h (struct x_display_info): New field
+ `Xatom_net_wm_ping'.
+
+2022-02-04 Vladimir Panteleev <git@cy.md>
+
+ Update the MULTIPLE property with conversion outcomes
+
+ Per the ICCCM spec:
+
+ > If the owner fails to convert the target named by an atom in the
+ > MULTIPLE property, it should replace that atom in the property with
+ > None.
+
+ * src/xselect.c (x_handle_selection_request): Do it.
+
+2022-02-04 Vladimir Panteleev <git@cy.md>
+
+ Do not delete the MULTIPLE property after reading it
+
+ Per the ICCCM spec:
+
+ > The requestor should delete [...] the property specified in the
+ > MULTIPLE request when it has copied all the data.
+
+ We are not the requestor, so we should not be deleting this property
+ (which is what x_get_window_property_as_lisp_data does). The property
+ needs to remain available as the requestor will generally want to read
+ it back to see which conversions succeeded or not.
+
+ * src/xselect.c (x_get_window_property_as_lisp_data): Add flag which
+ skips deleting the read property, or handling INCR (which does not
+ make sense for MULTIPLE).
+ (x_handle_selection_request): Enable the flag.
+
+2022-02-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (with-demoted-errors): Warn on missing `format` arg
+
+ The `format` arg has been mandatory for a while, but the backward
+ compatibility code that handled the case of a missing `format` arg
+ made it hard to notice when using the old calling convention.
+
+ * lisp/subr.el (with-demoted-errors): Warn on missing `format` arg.
+
+ * lisp/emacs-lisp/smie.el (smie-indent--separator-outdent): Don't abuse
+ `with-demoted-errors`.
+ (smie-indent-line, smie-auto-fill):
+ * test/lisp/emacs-lisp/ert-tests.el (ert-test-with-demoted-errors):
+ * lisp/vc/vc-hooks.el (vc-refresh-state):
+ * lisp/vc/vc-annotate.el (vc-annotate-background-mode):
+ * lisp/vc/diff-mode.el (diff-syntax-fontify-hunk):
+ * lisp/textmodes/reftex-toc.el (reftex-re-enlarge):
+ * lisp/progmodes/sh-script.el (sh-smie-sh-rules):
+ * lisp/progmodes/octave.el (inferior-octave-startup):
+ * lisp/pcmpl-gnu.el (pcmpl-gnu-make-all-targets):
+ * lisp/org/org-refile.el (org-refile):
+ * lisp/org/org-capture.el (org-capture-store-last-position):
+ * lisp/nxml/nxml-mode.el (nxml-mode):
+ * lisp/notifications.el (notifications-notify):
+ * lisp/gnus/mm-view.el (mm-display-inline-fontify):
+ * lisp/finder.el (finder-unload-function):
+ * lisp/files.el (safe-local-variable-p, backup-buffer-copy
+ * lisp/autorevert.el (auto-revert-notify-handler):
+ Pass `format` arg to `with-demoted-errors`.
+
+2022-02-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ python.el: Silence left over warning in last commit
+
+ * lisp/progmodes/python.el
+ (python-shell-calculate-process-environment): Declare
+ tramp-remote-process-environment before using it.
+
+2022-02-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ python.el: Try and better split the Tramp code
+
+ Massage the Python-Tramp code so that the Tramp part and the Python
+ part are a bit less intertwined. It's still not quite right, but it's
+ a bit closer to the point where the Tramp part can be moved to
`tramp.el`.
+
+ * lisp/progmodes/python.el: Don't require `tramp-sh`.
+ Do require `subr-x` OTOH. Remove redundant `:group`s.
+ (python-shell--calculate-process-environment): New function, that only
+ return the entries to be added.
+ (python-shell-calculate-process-environment): Rewrite and declare
obsolete.
+ (python-shell-tramp-refresh-remote-path)
+ (python-shell-tramp-refresh-process-environment): Silence
+ compiler warnings.
+ (python-shell-with-environment): Move the bulk of its code to
+ a new function `python-shell--with-environment` for easier debugging
+ and to avoid code duplication.
+ (python-shell--with-environment): New function. Split the Tramp case
+ into its own function.
+ (python-shell--tramp-with-environment): New function.
+ (python-eldoc-function-timeout-permanent): Fix doc's first line.
+
+ * test/lisp/progmodes/python-tests.el: Adjust accordingly.
+ (python-shell-calculate-process-environment-1)
+ (python-shell-calculate-process-environment-2)
+ (python-shell-calculate-process-environment-3)
+ (python-shell-calculate-process-environment-4)
+ (python-shell-calculate-process-environment-5)
+ (python-shell-calculate-process-environment-6)
+ (python-shell-calculate-process-environment-7)
+ (python-shell-calculate-process-environment-8):
+ Use `python-shell--calculate-process-environment`.
+ (python--tests-process-env-canonical, python--tests-process-env-eql):
+ New functions.
+ (python-shell-with-environment-2, python-shell-with-environment-3):
+ Use them.
+
+2022-02-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp tests backward compatibility
+
+ * test/lisp/net/tramp-tests.el (tramp-test39-detect-external-change):
+ Improve backward compatibility.
+
+2022-02-04 Andrea Corallo <akrl@sdf.org>
+
+ * Have `null' and `not' explicit in LIMPLE so we inline them
+
+ * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Generate explicit
+ `eq' call in LIMPLE for LAP opcode 'not'.
+
+2022-02-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix infloop in redisplay_window due to fix of bug#14582
+
+ * src/xdisp.c (window_start_acceptable_p): New function.
+ (redisplay_window): Call 'window_start_acceptable_p' to determine
+ whether a given window-start point is acceptable, including when
+ the window's force_start flag is set -- this fixes infloop in
+ redisplay_window in that case.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Remove misleading "in current buffer" message from auto-raise-mode
+
+ * lisp/frame.el (auto-raise-mode): Declare as global to prevent
+ a misleading message from being displayed. It's actually
+ frame-local, but declaring it global doesn't hurt since
+ `frame-parameter' is a gv.
+
+2022-02-04 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in two tests
+
+ * test/lisp/electric-tests.el (electric-pair-define-test-form):
+ * test/src/buffer-tests.el (buffer-tests--make-test-name): Silence
+ byte-compiler by defining defuns also at run time.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Implement auto-raise on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Implement auto-raising
+ of frames that have that parameter set.
+
+2022-02-04 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-send-command): Fix problem with
locale.
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Fix bit rot in the color allocation code
+
+ * src/xterm.c (x_alloc_nearest_color_1): Reintroduce an older
+ version of the code that would try to allocate a "compromise
+ delta".
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ * src/xwidget.c (xwidget_button): Always let button events through.
+
+ Filtering out emulated events is done in handle_one_xevent, so
+ all this accomplishes is to filter out legitimate button events.
+
+2022-02-04 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 0591aa6cd3 Revert an erroneous change in tramp-cache.el
+
+2022-02-04 Po Lu <luangruo@yahoo.com>
+
+ Fix toggling `x-gtk-use-native-input'.
+
+ * lisp/term/x-win.el (x-internal-focus-input-context):
+ (x-gtk-use-native-input-watcher): Update for changes to
+ `x-internal-focus-input-context'.
+
+ * src/xfns.c (Fx_internal_focus_input_context): New parameter
+ `focus'.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Make Emacs build with some other XLib implementations
+
+ * configure.ac (HAVE_XKB): Check for functions that aren't
+ always implemented by various XLib implementations.
+
+ * src/xfns.c (select_visual): Handle NULL values of vinfo.
+ (XkbRefreshKeyboardMapping):
+ (XkbFreeNames):
+ (XDisplayCells):
+ (XDestroySubwindows): Define replacement functions where they
+ aren't available.
+
+ * src/xterm.c (x_find_modifier_meanings): Handle NULL values of
+ various fields.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ * src/xfns.c (Fx_internal_focus_input_context): Fix typo.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Make `x-gtk-use-native-input' take effect immediately
+
+ * lisp/term/x-win.el (x-internal-focus-input-context): New
+ declaration.
+ (x-gtk-use-native-input-watcher): New variable watcher.
+ * src/xfns.c (Fx_internal_focus_input_context): New function.
+ (syms_of_xfns): Define new subr.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Try to fix input method flicker on GTK builds
+
+ * src/xterm.c (x_focus_changed): Only focus GTK context if
+ native input is on. (bug#53698)
+
+2022-02-03 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Improve compression of article lists in gnus/nnselect
+
+ * lisp/gnus/nnselect.el (nnselect-compress-artlist): Allow compressed
list.
+ nnselect-uncompress-artlist): Properly loop over rsv values.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Improve image depth handling
+
+ Emacs defaults to a 32-bit TrueColor visual, but if that happens
+ on a display which defaults to 16-bit TrueColor, yet happens to
+ have 32-bit color, and doesn't have the X Render Extension, an
+ error will occur in x_composite_image as libXpm will load
+ pixmaps of depth 16 instead of depth 32.
+
+ * src/image.c (x_create_x_image_and_pixmap): Explictly specify
+ display depth.
+ (x_create_xrender_picture):
+ (xpm_load):
+ (gs_load): Use dpyinfo->n_planes instead of
+ DefaultDepthOfScreen.
+
+2022-02-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the bookmark-default-handler doc string
+
+ * lisp/bookmark.el (bookmark-default-handler): Document the
+ `buffer' property (bug#20845).
+
+2022-02-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove tarball instructions from gnus-faq.texi
+
+2022-02-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make sort-numeric-fields resilient towards blank lines
+
+ * lisp/sort.el (sort-numeric-fields): Don't signal an error on
+ blank lines (bug#31800).
+
+2022-02-03 Jim Porter <jporterbugs@gmail.com>
+
+ Use 'require' to load eshell-tests-helpers
+
+ * test/lisp/eshell/eshell-tests.el
+ * test/lisp/eshell/em-extpipe-tests.el: Load eshell-tests-helpers with
+ 'require'.
+
+ * test/lisp/eshell/eshell-tests-helpers.el (eshell-history-file-name):
+ Define this here so individual test files don't have to.
+
+2022-02-03 Jim Porter <jporterbugs@gmail.com>
+
+ When executing an Eshell pipeline, send input to the first process
+
+ Previously, input was sent to the last process in the pipeline,
+ resulting in unexpected behavior when running commands like
+ 'tr a-z A-Z | rev'.
+
+ * lisp/eshell/esh-util.el (eshell-process-pair-p)
+ (eshell-make-process-pair): New functions.
+
+ * lisp/eshell/esh-cmd.el (eshell-last-async-proc): Rename to...
+ (eshell-last-async-procs): ... this, and store a pair of processes.
+ (eshell-interactive-process): Replace with...
+ (eshell-interactive-process-p, eshell-head-process)
+ (eshell-tail-process): ... these.
+ (eshell-cmd-initialize): Set 'eshell-last-async-procs'.
+ (eshell-do-pipelines): Set 'headproc'.
+ (eshell-execute-pipeline): Return 'headproc' and 'tailproc'.
+ (eshell-resume-eval): Use 'eshell-last-async-procs'.
+ (eshell-do-eval): Make sure we work with a pair of processes.
+
+ * lisp/eshell/esh-proc.el (eshell-send-eof-to-process): Move from
+ here...
+ * lisp/eshell/esh-mode.el (eshell-send-eof-to-process): ... to here,
+ and only send EOF to the head process.
+
+ * lisp/eshell/em-cmpl.el (eshell-complete-parse-arguments)
+ * lisp/eshell/esh-mode.el (eshell-intercept-commands)
+ (eshell-watch-for-password-prompt):
+ Use 'eshell-interactive-process-p'.
+
+ * lisp/eshell/em-rebind.el (eshell-delchar-or-maybe-eof)
+ * lisp/eshell/em-term.el (eshell-term-send-raw-string)
+ * lisp/eshell/esh-mode.el (eshell-self-insert-command)
+ (eshell-send-input, eshell-send-invisible):
+ Use 'eshell-head-process'.
+
+ * lisp/eshell/esh-cmd.el (eshell-as-subcommand):
+ Use 'eshell-tail-process'.
+
+ * lisp/eshell/eshell.el (eshell-command):
+ * test/lisp/eshell/eshell-tests-helpers.el
+ (eshell-wait-for-subprocess):
+ Use 'eshell-interactive-process-p' and 'eshell-tail-process'.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/pipe-headproc-stdin):
+ New test.
+
+2022-02-03 Jim Porter <jporterbugs@gmail.com>
+
+ Ensure that tailproc is set for the last process in an Eshell pipeline
+
+ In particular, this used to fail for pipelines where the last process
+ in the pipeline came from the first element of the pipeline. This
+ could happen when a process was piped to an ordinary Lisp function,
+ like in '*echo hi | echo bye'.
+
+ * lisp/eshell/esh-cmd.el (eshell-do-pipelines): Set the tailproc even
+ for the first process in the pipeline.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test/pipe-tailproc): New
+ test.
+
+2022-02-03 Eli Zaretskii <eliz@gnu.org>
+
+ Allow ensuring that a window's starting point is never invisible
+
+ * src/xdisp.c (syms_of_xdisp) <make-window-start-visible>: New
+ buffer-local variable.
+ (redisplay_window): If 'make-window-start-visible' is non-nil,
+ don't accept window-start position that is in invisible text or is
+ covered by a "replacing" 'display' property. (Bug#14582)
+
+2022-02-03 Thomas Fitzsimmons <fitzsim@fitzsim.org>
+
+ soap-client: Add minimum supported Emacs version
+
+ * lisp/net/soap-client.el: Add Emacs 24.1 to Package-Requires.
+ Bump version to 3.2.1.
+
+2022-02-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Implement file modification check in Tramp
+
+ * lisp/net/tramp.el (tramp-handle-lock-file): Check, whether FILE
+ is modified.
+
+ * test/lisp/net/tramp-tests.el (tramp-test39-detect-external-change):
+ New test.
+
+2022-02-03 Mattias Engdegård <mattiase@acm.org>
+
+ Don't use `string-replace` in soap-client (bug#53744)
+
+ * lisp/net/soap-client.el (soap-decode-xs-complex-type):
+ Cease using `string-replace` since it requires Emacs 28.
+
+2022-02-03 Mattias Engdegård <mattiase@acm.org>
+
+ Don't use `string-search` in soap-client (bug#53744)
+
+ * lisp/net/soap-client.el (soap-decode-xs-complex-type):
+ Since soap-client is a core ELPA package and may be used with
+ Emacs versions older than 28, it cannot use `string-search`;
+ revert to `string-match`.
+
+2022-02-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "Buffers->Frames" submenu in daemon sessions
+
+ * lisp/menu-bar.el (menu-bar-update-buffers): Detect the initial
+ frame by its special terminal's name. (Bug#53740)
+
+ * src/terminal.c (init_initial_terminal): Add comment about using
+ the initial-terminal's name in menu-bar.el.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufont.c (haikufont_draw): Allocate string buffer on stack.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Stop creating cairo contexts in haiku_begin_cr_clip
+
+ * src/haikufont.c (haikufont_draw):
+ * src/ftcrfont.c (ftcrfont_draw): Stop holding the draw lock.
+ * src/haiku_support.cc (class EmacsView): New field
+ `cairo_context'.
+ (DetachCairoSurface): Destroy cairo_context.
+ (AttachCairoSurface): Create cairo_context from the surface.
+ (EmacsView_cairo_surface): Delete function.
+ (EmacsView_cairo_context): New function.
+ * src/haiku_support.h: Update prototypes.
+ * src/haikuterm.c (haiku_begin_cr_clip):
+ (haiku_end_cr_clip): Retrieve the existing cairo context instead
+ of creating a new one.
+ * src/haikuterm.h (FRAME_CR_CONTEXT): New macro.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Obtain draw lock outside haiku_start_clip
+
+ * src/haikuterm.c (haiku_start_clip):
+ (haiku_end_clip): Stop obtaining the draw lock.
+ (haiku_draw_glyph_string): Set draw lock here instead.
+
+2022-02-03 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ab2f275422 Improve documentation of 'emacs-version'
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuterm.c (haiku_draw_text_decoration): Don't lock for draws.
+
+2022-02-03 Po Lu <luangruo@yahoo.com>
+
+ Simplify box display code on Haiku
+
+ * src/haikuterm.c (haiku_calculate_relief_colors): Remove
+ `rgbout_c' parameter.
+ (haiku_draw_relief_rect): Push state if performing additional
+ clipping.
+ (haiku_draw_string_box): Stop passing clip rects to the relief
+ drawing functions.
+ (haiku_draw_glyph_string): Fix calls to haiku_draw_string_box
+ for new parameters.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ Fix display of text decorations with defaulted foreground on Haiku
+
+ * src/haikuterm.c (haiku_draw_text_decoration): Remove parameter
+ `dcol' and use face->foreground instead. All callers changed.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ Fix background daemon on Haiku
+
+ * src/emacs.c (DAEMON_MUST_EXEC): Define when using the Haiku
+ application kit.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ Prevent the initial frame from showing up in the frame menu
+
+ * lisp/menu-bar.el (menu-bar-update-buffers): Ignore initial
+ frame when generating frame list. (bug#53740)
+
+2022-02-02 Stefan Kangas <stefan@marxist.se>
+
+ New theme leuven-dark (Bug#53032)
+
+ * etc/themes/leuven-dark-theme.el: New file, written by
+ Fabrice Niessen and Thibault Polge.
+
+2022-02-02 Stefan Kangas <stefan@marxist.se>
+
+ * test/lisp/cedet/semantic/bovine/gcc-tests.el (ert-x): Require.
+
+2022-02-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust test to adjusted code
+
+2022-02-02 Alan Mackenzie <acm@muc.de>
+
+ New file lisp/emacs-lisp/debug-early.el for backtraces in early
bootstrap
+
+ This is also used in batch mode in general.
+
+ * lisp/debug-early.el (debug-early-backtrace, debug-early): New
functions.
+
+ * lisp/loadup.el (top level): Load debug-early.el as first file.
+
+ * src/eval.c (signal_or_quit): Remove the condition in the batch mode
section
+ of not being in dumping or bootstrap, since it is no longer needed.
Test that
+ 'debug-early's symbol-function is bound. Ensure there is enough
working space
+ in specpdl and eval_depth.
+ (syms_of_eval): New DEFSYM for Qdebug_early. Initialise Vdebugger to
+ Qdebug_early rather than Qnil.
+
+2022-02-02 Juri Linkov <juri@linkov.net>
+
+ * lisp/replace.el (query-replace-read-from): Use default for empty
input.
+
+ Set 'default' from non-empty 'query-replace-read-from-default'.
+ Use the default in non-regexp prompt and return it for empty input.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-02/msg00044.html
+
+2022-02-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the describe-key doc string
+
+ * lisp/help.el (describe-key): Say something about prefix keys
+ (bug#33320).
+
+2022-02-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add some indexing for "compiler macro"
+
+ * doc/lispref/functions.texi (Inline Functions): Add a link to
+ where compiler macros are defined.
+ (Declare Form): Add a concept index.
+
+2022-02-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark vt-control and vc100-led obsolete since Emacs 29.1
+
+ Move vt-control and vt100-led to obsolete (bug#37562)
+
+2022-02-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix decoding error in ietf-drums-parse-address
+
+ * lisp/mail/ietf-drums.el (ietf-drums-parse-address): Don't try to
+ decode the name if there is no name (bug#53716).
+
+2022-02-02 Alan Mackenzie <acm@muc.de>
+
+ Fix bug with M-x compile-defun in a defconst/defvar
+
+ * lisp/emacs-lisp/bytecomp.el (compile-defun): Have
symbols-with-pos-enabled
+ bound to non-nil when the eval takes place.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ Improve correctness of generated xwidget events
+
+ * src/xwidget.c (xw_maybe_synthesize_crossing): Add new
+ parameters for controlling the crossing mode. Also improve the
+ accuracy of generated crossing events when the mouse pointer
+ moves outside the toplevel from an inferior of it. All callers
+ changed.
+ (xw_notify_virtual_upwards_until):
+ (xw_notify_virtual_downwards_until): New parameters for crossing
+ mode. All callers changed.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ Send button events before setting xwidget passive grab
+
+ * src/xwidget.c (xwidget_button_1): Send button event before
+ any grab processing.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ * src/nsselect.m (ns_get_foreign_selection): Fix GCC warning.
+
+2022-02-02 Po Lu <luangruo@yahoo.com>
+
+ Make behaviour of `mouse-autoselect-window' consistent with X on NS
+
+ * src/nsterm.m ([EmacsView mouseMoved:]): Ignore if
+ `selected_window' is a minibuffer window.
+
+2022-02-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9ab0b43a72 * etc/NEWS: Apply final fixes after proofreading.
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-02-01 Po Lu <luangruo@yahoo.com>
+
+ Improve behaviour of `mouse-autoselect-window' on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Don't select windows if
+ the selected window is a minibuffer window or a popup is
+ activated.
+
+2022-02-01 Po Lu <luangruo@yahoo.com>
+
+ Fix display of vertical window dividers on Haiku
+
+ * src/haikuterm.c (haiku_draw_window_divider): Make drawing
+ consistent with X.
+
+2022-02-01 Po Lu <luangruo@yahoo.com>
+
+ Don't use XRender to fill rectangles unless an alpha channel exists
+
+ * src/xterm.c (x_clear_area): Don't use XRender unless
+ `alpha_bits' is set.
+
+2022-02-01 Juri Linkov <juri@linkov.net>
+
+ * lisp/replace.el (query-replace-read-from-default): New variable.
+
+ (query-replace-read-from-regexp-default): New variable.
+ (query-replace-read-from): Use new variables.
+
+ * lisp/progmodes/project.el (project-query-replace-regexp):
+ Let-bind query-replace-read-from-regexp-default to
find-tag-default-as-regexp.
+
+ * lisp/progmodes/xref.el (xref-find-references-and-replace):
+ Let-bind query-replace-read-from-default to find-tag-default.
+
+ https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg01909.html
+
+2022-02-01 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el: Support non-buffer tabs in some tab face functions.
+
+ (tab-line-tab-face-special, tab-line-tab-face-modified): For non-buffer
tabs
+ when 'tab-line-tabs-function' is e.g. 'tab-line-tabs-buffer-groups',
+ try to get the buffer from the property 'buffer'.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg01923.html
+
+2022-02-01 Andrea Corallo <akrl@sdf.org>
+
+ * Improve 'maybe_defer_native_compilation'
+
+ * src/comp.c (maybe_defer_native_compilation): Always store the
+ function name in Vcomp_deferred_pending_h if pending for deferred
+ compilation.
+
+2022-02-01 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/startup.el (startup--require-comp-safely): Fix typo in a92c6191b0
+
+2022-02-01 Mattias Engdegård <mattiase@acm.org>
+
+ Speed up calls to C primitives
+
+ * src/eval.c (funcall_subr): Test most likely cases first (conforming
+ calls to finite-arity or n-adic SUBRs), and the error cases last,
+ instead of doing it the other way around. Simplify.
+
+2022-02-01 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (pgtk_draw_rectangle): Fix trivial typo. (bug#53677)
+
+2022-02-01 Andreas Schwab <schwab@linux-m68k.org>
+
+ Remove extra \= from obsoletion message
+
+ * lisp/emacs-lisp/eieio.el (defclass): Remove \= from obsoletion
+ message.
+ * lisp/emacs-lisp/eieio-core.el (eieio-defclass-autoload)
+ (eieio-defclass-internal): Likewise.
+
+2022-02-01 Andrea Corallo <akrl@sdf.org>
+
+ Rename `comp--loadable' into `comp--compilable'
+
+ * lisp/startup.el (comp--compilable): Rename from `comp--loadable'.
+ (startup--require-comp-safely): Update accordingly.
+ (startup--honor-delayed-native-compilations): Likewise.
+ * src/comp.c (syms_of_comp): Update.
+ (maybe_defer_native_compilation): Likewise.
+
+2022-02-01 Andrea Corallo <akrl@sdf.org>
+
+ * Fix `startup--require-comp-safely' (bug#53675)
+
+ * lisp/startup.el (startup--require-comp-safely): Remove unnecessary
+ check.
+
+2022-02-01 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 31ef751f94 Clarify documentation of a "face's font"
+ 29bdedf12f Bind Qdebugger to Qdebug in signal_or_quit.
+
+2022-02-01 Po Lu <luangruo@yahoo.com>
+
+ Clean up Haiku display structures
+
+ * src/haikufns.c (haiku_set_parent_frame): Set `parent_desc'
+ correctly.
+
+ * src/haikuterm.h (C_FRAME, C_FONT, C_TERMINAL):
+ (struct haiku_display_info):
+ (struct haiku_output): Get rid of C_* preprocessor defines,
+ since these files are no longer included in any way by C++ files.
+
+2022-02-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2022-01-27 20:16:15 UTC.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Display images with a mask correctly when `alpha-background' is set
+
+ * src/xterm.c (x_query_frame_background_color): Return value
+ adjusted for background alpha.
+ (x_draw_image_glyph_string): Respect `alpha-background' when
+ generating background pixmap.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Only apply last change to the clipboard
+
+ * lisp/select.el (gui--selection-value-internal): Only return
+ nil if we own the clipboard.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Avoid extraneous selection querying if we own the selection
+
+ * lisp/select.el (gui--selection-value-internal): Return nil if
+ `gui-backend-selection-owner-p' on window systems where it is
+ reliable.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Make fringe bitmaps respect alpha-background
+
+ * src/xterm.c (x_draw_fringe_bitmap): Respect alpha-background
+ on non-overlay fringe bitmaps.
+ * src/xterm.h (struct x_display_info): New field `alpha_mask'.
+
+2022-01-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix nnregistry byte compilation warning
+
+ * lisp/gnus/nnregistry.el (nnregistry-server-opened)
+ (nnregistry-open-server): Fix byte compilation warning.
+
+2022-01-31 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (byte-compile-eval): Adjust to changes in `load-history`
+
+ The `function-history` patch introduced a regression which caused
+ spurious compiler warnings. Fix it.
+ The new code also fixes a bug in the old code, thus causing some
+ new non-spurious warnings. Fix them as well.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-eval): Adjust to changes in
+ `load-history`.
+
+ * lisp/gnus/gnus-group.el (nnrss-discover-feed)
+ (nnrss-save-server-data): Use `declare-function`.
+
+ * lisp/cedet/semantic/wisent/comp.el (wisent-defcontext)
+ (wisent-with-context):
+ * lisp/emacs-lisp/comp.el (comp-op-case): Silence compiler warning.
+
+2022-01-31 Alan Mackenzie <acm@muc.de>
+
+ Enlarge max-specpdl-size for generation of files in .../admin/grammars
+
+ * admin/grammars/Makefile.in: Add a --eval clause to set
max-specpdl-size to
+ 5000 (previously 2500) for these targets.
+
+2022-01-31 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Don't remove dummy.group from gnus-newsrc-alist on Gnus save
+
+ bug#53352
+
+ * lisp/gnus/gnus-start.el (gnus-gnus-to-quick-newsrc-format): This
+ function was removing dummy.group from the global value of
+ `gnus-newsrc-alist' on save; we only wanted to remove it temporarily.
+
+2022-01-31 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Obsolete gnus-registry-enabled in favor of checking gnus-registry-db
+
+ * lisp/gnus/gnus-registry.el (gnus-registry-enabled): Obsolete this
+ variable; recommend using `gnus-registry-db' as a boolean instead.
+ (gnus-registry-load, gnus-registry-register-message-ids,
+ gnus-registry-article-marks-to-chars,
+ gnus-registry-article-marks-to-names, gnus-registry-clear,
+ gnus-registry-install-p): In all these functions, test
+ `gnus-registry-db' instead of `gnus-registry-enabled'. We no longer
+ set or clear that variable.
+
+2022-01-31 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc.el (vc-diff-internal): Assume revert-buffer is in current
buffer.
+
+ Support the case when reverting is in the buffer with a name other than
+ the default name "*vc-diff*". Then don't try to switch to the buffer
+ "*vc-diff*" with an assumption that revert-buffer is always performed
+ in the current buffer (bug#28852).
+
+2022-01-31 Alan Mackenzie <acm@muc.de>
+
+ * lisp/progmodes/cc-mode.el (c-common-init): Bind case-fold-search to
nil
+
+ This fixes bug #53605.
+
+2022-01-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust toggle-menu-bar-mode-from-frame doc string
+
+ * lisp/menu-bar.el (toggle-menu-bar-mode-from-frame): Adjust the
+ doc string to reflect what it does (bug#43383).
+
+2022-01-31 Eli Zaretskii <eliz@gnu.org>
+
+ Minor copyedits of 'function-history' documentation
+
+ * doc/lispref/loading.texi (Where Defined): Fix indexing and
+ punctuation.
+
+2022-01-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix misplaced braces in loading.texi
+
+ * doc/lispref/loading.texi (Where Defined): Fix misplaced braces.
+
+2022-01-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make more ranges sort properly in describe-keymap
+
+ * lisp/subr.el (keymap-canonicalize): Don't consider two-character
+ ranges as a range (bug#11325).
+
+2022-01-31 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (function-history): New symbol property (bug#53632)
+
+ Rework the code we have in Fdefalias that tries to keep track
+ of definitions so as to be able to undo them later.
+
+ We used to store in `load-history` when an autoload is redefined as
+ a non-autoload and in the `autoload` symbol property we used to store
+ the autoload data that used to be used before it got overriden.
+
+ Instead, store the history of the function definition of
+ a symbol in its `function-history` symbol property.
+ To make this list cheap in the default case, the latest value is not
stored
+ in the list (since it's in the `symbol-function`) and neither is the
first
+ file. So if there's only been a single definition (the most common
case),
+ the list is empty and the property is just not present at all.
+
+ The patch also gets rid of the `autoload` vs `defun` distinction in
+ `load-history` which seems unnecessary (a significant part of the
+ motivation for this patch was to get rid of the special handling of
+ autoloads in this part of the code).
+
+ * src/data.c (add_to_function_history): New function.
+ (defalias): Use it. Don't add the `t` entries for autoloads and always
+ use `defun` regardless of the kind of definition.
+ Change `Vautoload_queue` to only hold the function
+ symbols since the rest is now available from `function-history`.
+ * src/eval.c (un_autoload): Adjust accordingly.
+
+ * src/lread.c (load-history): Udate docstring.
+
+ * lisp/loadhist.el (loadhist-unload-filename): New var.
+ (unload-feature): Bind it.
+ (loadhist-unload-element): Document its availability.
+ (loadhist--restore-autoload): Delete var.
+ (loadhist--unload-function): Delete function.
+ (loadhist-unload-element): Delete the `t` and `autoload` methods.
+ Rewrite the `defun` method using `function-history`.
+
+ * lisp/help-fns.el: Require `seq`.
+ (help-fns--autoloaded-p): Rewrite.
+ (help-fns-function-description-header): Adjust call accordingly.
+
+ * doc/lispref/loading.texi (Where Defined): Remove `autoload` and `t`
+ entries from `load-history` since we don't generate them any more.
+ Document the `function-history` which replaces the `autoload` property.
+ (Unloading): Adjust symbol property name accordingly.
+
+ * test/lisp/loadhist-resources/loadhist--bar.el:
+ * test/lisp/loadhist-resources/loadhist--foo.el: New files.
+ * test/lisp/loadhist-tests.el (loadhist-tests-unload-feature-nested)
+ (loadhist-tests-unload-feature-notnested): New tests.
+
+2022-01-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make Gnus address checking more resilient
+
+ * lisp/gnus/gnus-art.el (article--check-suspicious-addresses):
+ Check that we have an email address before checking the validity
+ (bug#53651).
+
+2022-01-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify that INSTALL isn't for Git checkouts (bug#53627)
+
+2022-01-31 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend filelock-tests.el for bug#53207
+
+ * test/src/filelock-tests.el (filelock-tests--fixture): Make it a
+ defmacro. Adapt callees.
+ (filelock-tests-unlock-spoiled, filelock-tests-kill-buffer-spoiled):
+ Simplify.
+ (filelock-tests-detect-external-change): New test
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Fix artifacting on PGTK when bits are copied with an alpha channel
+
+ * src/pgtkterm.c (x_draw_stretch_glyph_string): Draw background
+ respecting `alpha-background'.
+ (pgtk_copy_bits): Use CAIRO_OPERATOR_SOURCE to draw onto the
+ destination surface.
+
+2022-01-31 Eli Zaretskii <eliz@gnu.org>
+
+ Improve 'latin1-display-ucs-per-lynx'
+
+ * lisp/international/latin1-disp.el (latin1-display-ucs-per-lynx):
+ Don't judge display-ability of all the characters by testing just
+ one of them. Instead, install an ASCII equivalent of every
+ character that the terminal cannot display.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Implement `alpha-background' on PGTK
+
+ * src/ftcrfont.c (ftcrfont_draw): Respect alpha-background where
+ appropriate.
+ * src/gtkutil.c (xg_create_frame_widgets): Swap some
+ conditionals around to get the right visual and signal handlers
+ on PGTK.
+ (xg_widget_style_updated): Likewise.
+ * src/pgtkfns.c (pgtk_set_alpha_background): New function.
+ (pgtk_frame_parm_handlers): Add it instead of the generic param
+ handler.
+ (Fx_create_frame): Fix typo.
+ * src/pgtkterm.c (pgtk_fill_rectangle):
+ (pgtk_set_cr_source_with_gc_foreground):
+ (pgtk_set_cr_source_with_gc_background):
+ (pgtk_set_cr_source_with_color): New argument
+ `respect_alpha_backend'. All callers changed.
+ * src/pgtkterm.h: Update function prototypes.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Fix accesses to GTK structures on tooltip frames
+
+ * src/xfns.c (xic_set_preeditarea): Don't set the GTK context on
+ tooltip frames.
+ (x_set_alpha_background): Don't make tooltip frames paintable.
+ * src/xterm.c (x_xr_ensure_picture): Get rid of GDK visual code.
+ This is now done in a better way inside xg_create_frame_widgets.
+ (bug#53654)
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (Fx_display_visual_class): Return correct values.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Improve portability of GDK visual code
+
+ * src/gtkutil.c (xg_create_frame_widgets): Look up the visual
+ instead of assuming it based on the depth.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_term_init): Avoid freeze with 24-bit visuals.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Improve portability of alpha channel handling on TrueColor visuals
+
+ * src/xfns.c (select_visual): Always ask for a TrueColor visual.
+ * src/xfont.c (xfont_draw):
+ * src/xftfont.c (xftfont_draw): Test `alpha_bits' instead of
+ n_planes.
+ * src/xterm.c (x_fill_rectangle, x_clear_rectangle): Likewise.
+ (x_query_colors, x_alloc_nearest_color): Remove code that
+ hard-coded alpha mask.
+ (x_term_init): Calculate alpha bits and offset and populate
+ field appropriately.
+ * src/xterm.h (struct x_display_info): New fields `alpha_bits'
+ and `alpha_offset'.
+ (x_make_truecolor_pixel): Stop hardcoding the value of the alpha
+ mask.
+
+2022-01-31 Stefan Kangas <stefan@marxist.se>
+
+ Factor out function to check for clang in tests
+
+ This also stops a flymake test from failing on my machine.
+
+ * lisp/emacs-lisp/ert-x.el (ert-gcc-is-clang-p): New function
+ factored out from ...
+ * test/lisp/progmodes/flymake-tests.el (flymake-tests--gcc-is-clang):
+ * test/lisp/cedet/semantic/bovine/gcc-tests.el
+ (semantic-gcc-test-output-parser-this-machine): ... here.
+
+ * test/lisp/progmodes/flymake-tests.el (different-diagnostic-types)
+ (included-c-header-files):
+ * test/lisp/cedet/semantic/bovine/gcc-tests.el
+ (semantic-gcc-test-output-parser-this-machine): Use above new function.
+
+2022-01-31 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/image.el (image-map): Use defvar-keymap.
+
+2022-01-31 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 6f282b31ad Update to Org 9.5.2-13-gdd6486
+ 6636231b2c ; * lisp/international/latin1-disp.el: Update commentary.
+ f22e9ba9ac Fix regression in Occur Edit mode
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Fix motion not being reported on GTK when mouse moves over toolbar
+
+ * src/gtkutil.c (xg_event_is_for_scrollbar): Make code
+ consistent between XI2 and Core Input.
+
+2022-01-31 Po Lu <luangruo@yahoo.com>
+
+ Make cursor alpha consistent with a transparent background
+
+ * src/xfont.c (xfont_draw):
+ * src/xftfont.c (xftfont_shape):
+ * src/xterm.c (x_clear_glyph_string_rect): Don't respect
+ background alpha when drawing the cursor.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_xrender_color_from_gc_foreground): Fix omission error.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Fix the X toolkit build
+
+ * src/xterm.c (x_after_update_window_line): Update calls to
+ `x_fill_rectangle'.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Fix tooltip frame creation with 32-bit visuals
+
+ * src/xfns.c (x_create_tip_frame): Define CWColormap and
+ CWBorderPixel to use a 32-bit visual if available.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ * etc/NEWS: Announce the 'alpha-background' frame parameter.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Fix the no toolkit build.
+
+ * src/xfns.c (x_window): Use n_planes instead of CopyFromParent
+ for depth.
+
+2022-01-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix with-suppressed-warnings edebug spec
+
+ * lisp/emacs-lisp/byte-run.el (with-suppressed-warnings): Fix
+ edebug spec.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Fix builds without GTK
+
+ * src/xfns.c (x_set_alpha_background): Don't call
+ gtk_widget_set_app_paintable without GTK.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Implement `alpha-background' on non-Cairo builds
+
+ * src/frame.c (gui_set_alpha_background): Recompute basic faces
+ so xft face ext info gets reset.
+ * src/gtkutil.c (xg_create_frame_widgets): Attach to style
+ updated signal.
+ (xg_update_frame_menubar): Set menu bar visual correctly.
+ (xg_widget_style_updated): New function.
+
+ * src/xfns.c (x_set_alpha_background): New function.
+ (x_frame_parm_handlers): Use x_set_alpha_background instead.
+
+ * src/xfont.c (xfont_draw):
+ * src/xftfont.c (xftfont_draw): Handle `alpha-background'
+ parameter.
+
+ * src/xterm.c (x_xr_ensure_picture): Export function.
+ (x_update_opaque_region): New function.
+ (x_fill_rectangle): New parameter `respect_alpha_background'.
+ All callers changed.
+ (handle_one_xevent): Set opaque region on ConfigureNotify.
+ (x_drop_xrender_surfaces): Set opaque region.
+ (x_xrender_color_from_gc_foreground):
+ (x_xrender_color_from_gc_background): Premultiply alpha with
+ components if asked for.
+ * src/xterm.h (struct x_display_info): New atom
+ `Xatom_net_wm_opaque_region'.
+
+2022-01-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/frame.el (undelete-frame--save-deleted-frame): Handle initial
frame.
+
+ The function undelete-frame--save-deleted-frame is renamed
+ from undelete-frame--handle-delete-frame (bug#51883).
+
+2022-01-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/frame.el: Don't require 'frameset.el' (bug#51883).
+
+ (clone-frame): Use frame-internal-parameters.
+ (undelete-frame--handle-delete-frame): Instead of using frameset-save,
+ save frame-parameters except frame-internal-parameters and 'display'
+ on non-graphic display. Also save window-state from window-state-get.
+ (undelete-frame): Instead of using frameset-restore,
+ set default-frame-alist for make-frame (like in clone-frame),
+ and restore window-state with window-state-put.
+
+ * lisp/frameset.el (frameset-session-filter-alist): Append
+ parameters from frame-internal-parameters with the filter :never.
+ Remove :name that is now in frame-internal-parameters.
+ (frameset-persistent-filter-alist): Remove outer-window-id,
+ parent-id, window-id that are now in frame-internal-parameters,
+ included here via frameset-session-filter-alist.
+
+ * src/frame.c (frame-internal-parameters): New variable.
+
+2022-01-30 Alan Mackenzie <acm@muc.de>
+
+ Enlarge max-specpdl-size for generation of leim-list.el in bootstrap
+
+ * leim/Makefile.in (${leimdir}/leim-list.el): Add a --eval clause to set
+ max-specpdl-size to 5000 (previously 2500) for this target.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Handle correctly errors during frame creation on Haiku
+
+ * src/haikufns.c (haiku_create_frame): Only block input where
+ required.
+
+ * src/haiku_support.cc (BCursor_delete): Accept NULL values of
+ `cursor'.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Use XRender to composite fringe bitmaps
+
+ This will allow us to apply transforms such as scaling in the
+ future.
+
+ * src/xterm.c (x_draw_fringe_bitmap): Composite fringe bitmaps
+ with XRender if available.
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Fix some problems with inconsistent visuals on GDK
+
+ * src/xterm.c (x_xr_ensure_picture): Use the visual GDK used
+ instead of our own.
+
+2022-01-30 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e81e375539 ; Yet another minor fix of Malayalam composition rules.
+ 94f38cbec4 Fix last change of Malayalam composition rules
+ ed3bbeb80d Fix rendering of Malayalam script
+ 5ef3a52342 Improve documentation of Occur mode
+
+2022-01-30 Po Lu <luangruo@yahoo.com>
+
+ Use consistent font when displaying menu equivalent keys on Haiku
+
+ * src/haiku_support.cc (DrawContent): Set plain font when
+ drawing key text.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Add support for ARGB visuals on non-Xt builds
+
+ * src/gtkutil.c (xg_create_frame_widgets): Enable RGBA visual
+ on non-PGTK builds.
+ * src/xfns.c (select_visual): Select 32-bit visuals on non-Xt
+ builds.
+ * src/xterm.c (x_draw_fringe_bitmap):
+ (x_draw_image_glyph_string): Stop using DefaultDepthOfScreen.
+ (x_query_colors):
+ * src/xterm.h (x_make_truecolor_pixel): Make colors opaque on
+ 32-bit visuals.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Some adjustments to last change
+
+ * src/gtkutil.c (xg_set_undecorated): Only set ARGB visual on
+ Cairo builds wtihout PGTK.
+ * src/xfns.c (select_visual): Likewise.
+
+2022-01-29 Håkon Flatval <hkon20@hotmail.com>
+
+ Add background transparency support for GTK+Cairo
+
+2022-01-29 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ package.el: Fix bug#53529
+
+ * lisp/emacs-lisp/package.el (package-autoload-ensure-default-file):
+ Enforce Unix EOLs.
+
+2022-01-29 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-menu-bar-button): New variable (bug#51648).
+
+ (tab-bar-format-menu-bar): Use it.
+
+2022-01-29 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el: Put 'isearch-scroll' property on two new symbols.
+
+ Put 'isearch-scroll' property on new commands 'recenter-other-window'
+ and 'context-menu-open'.
+
+2022-01-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Modernise the security section in the efaq a bit
+
+ * doc/misc/efaq.texi (Security risks with Emacs): Remove the X
+ bit, and add a bit about browsing the web (bug#24489).
+
+2022-01-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow redirecting `message' output to a different buffer
+
+ * doc/lispref/display.texi (Logging Messages): Document it.
+ * src/xdisp.c (message_dolog): Add sanity checking.
+ (syms_of_xdisp): Make Vmessages_buffer_name into a defvar
+ (bug#27170).
+
+2022-01-29 Eli Zaretskii <eliz@gnu.org>
+
+ Don't require mouse for prompting via dialog boxes
+
+ * lisp/subr.el (use-dialog-box-p): Don't require mouse support,
+ and allow dialog boxes when invoked via the TTY menus without a
+ mouse.
+ (from--tty-menu-p): New internal variable.
+
+ * lisp/menu-bar.el (popup-menu): Bind 'from--tty-menu-p' when
+ invoking a command from the menu.
+
+2022-01-29 Charles A. Roelli <charles@aurox.ch>
+
+ Make revert-buffer ('g') keep point in VC diff buffers
+
+ * lisp/vc/vc.el (vc-diff-restore-buffer): New function.
+ (vc-diff-finish): Update its calling convention to include an
+ optional 'oldbuf' parameter, and handle it.
+ (vc-diff-internal): Pass a clone of the incumbent vc-diff
+ buffer to 'vc-diff-finish' (bug#28852).
+
+2022-01-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Fmatch_data doc string
+
+ * src/search.c (Fmatch_data): Note quirk about non-matching
+ optional groups in the doc string (bug#29343).
+
+2022-01-29 Jae-hyeon Park <jhpark@kias.re.kr> (tiny change)
+
+ Make gnus-icalendar-with-decoded-handle more DWIM
+
+ * lisp/gnus/gnus-icalendar.el
+ (gnus-icalendar-with-decoded-handle): Assume that calendars with
+ no charset is utf-8.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Fix error after merge
+
+ * src/filelock.c (lock_file): Fix test against I_OWN_IT.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Merge from origin/emacs-28
+
+ 611736f3bc Remove debug logging
+ ddba3c3dba Fix error in filelock.c
+
+ # Conflicts:
+ # src/filelock.c
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Fix error at startup with recent change
+
+ * lisp/startup.el (normal-top-level): Don't access
+ `native-comp-eln-load-path' if not (featurep 'native-compile).
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Fix unrelated help text tooltips if a popup is shown during the delay
+
+ * doc/lispref/frames.texi (Pop-Up Menus): Document new hook.
+ * etc/NEWS: Announce `x-pre-popup-menu-hook'.
+ * lisp/tooltip.el (tooltip-mode): Make sure `tooltip-hide' is
+ run before any popup menu is displayed to prevent unrelated help
+ text from obscuring the popup menu if it pops up during the
+ tooltip delay.
+ * src/menu.c (x_popup_menu_1): Run said hook right before the
+ popup menu is displayed.
+ (syms_of_menu): New hook `x-pre-popup-menu-hook'.
+
+2022-01-29 Eli Zaretskii <eliz@gnu.org>
+
+ Allow <Delete> key to delete entire grapheme clusters
+
+ * lisp/simple.el (delete-forward-char): If deleting forward,
+ delete complete grapheme clusters as single units.
+
+ * etc/NEWS: Announce the change.
+
+2022-01-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix native-compilation at startup
+
+ * lisp/startup.el (normal-top-level): Set up the initial value of
+ 'native-comp-eln-load-path' early into startup, then amend it
+ after calling 'command-line'. (Bug#53497)
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Write a dummy event on each popup menu event
+
+ * src/haiku_io.c (haiku_len): Add new event.
+ * src/haiku_support.cc (be_popup_menu_thread_entry):
+ (Highlight): Write a dummy event to the event port.
+ * src/haiku_support.h (enum haiku_event_type): New `DUMMY_EVENT'
+ type.
+ (struct haiku_dummy_event): New structure.
+ * src/haikuterm.c (haiku_read_socket): Handle dummy events.
+
+2022-01-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix compiler warning due to a recent change
+
+ * src/data.c (Ffset): Avoid compiler warning about 'function'.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Fix a default value of the `:underline' face attribute
+
+ * lisp/cus-face.el (custom-face-attributes): Add `:position' t
+ default value of "On" for underlines.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Improve menu drag tracking on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Ignore all button events
+ when popup_activated_p.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Make menus on Haiku work better
+
+ * src/haikuterm.c (haiku_read_socket): Don't send up events for
+ ungrabbed buttons.
+
+2022-01-29 Po Lu <luangruo@yahoo.com>
+
+ Implement real menu help-echo text on Haiku
+
+ * lisp/tooltip.el (tooltip-show-help): Remove Haiku-specific
+ conditional since that's now taken care of by C code.
+
+ * src/haiku_io.c (haiku_read_size):
+ (haiku_read_with_timeout):
+ (haiku_write_without_signal): Add parameter `popup_p'. All
+ callers changed.
+ (port_popup_menu_to_emacs): New variable.
+
+ * src/haiku_support.cc (struct be_popup_menu_data): New
+ structure.
+ (be_popup_menu_thread_entry): New function.
+ (class EmacsMenuItem): New field `menu_ptr'.
+ (Highlight): Send help text to the popup port if this item
+ isn't for a menu bar.
+ (BMenu_add_item): Set menu_ptr appropriately.
+ (BMenu_run): Complete rewrite that allows to read help text from
+ the menu bar port.
+
+ * src/haiku_support.h (struct haiku_menu_bar_help_event): New
+ fields for popup menus.
+
+ * src/haikumenu.c (digest_menu_items): Only set help tooltip on
+ popup menus when system tooltips are enabled.
+ (haiku_menu_show_help):
+ (haiku_process_pending_signals_for_menu): New functions.
+ (haiku_menu_show): Pass new callbacks.
+
+2022-01-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/data.c (Ffset, defalias): Complete last change
+
+ Somehow part of the autoload history handling was left behind in `Ffset`
+ when the rest was moved to `defalias`. Finish the job.
+
+ * src/data.c (Ffset): Don't set the `autoload` property here...
+ (defalias): ... set it here instead.
+
+2022-01-28 Hugo Heagren <hugo@heagren.com>
+
+ bind-keys-form: error for repeat sub-keywords without :repeat-map
+
+ Error descriptively if :continue or :exit is specified without
+ :repeat-map.
+
+2022-01-28 Hugo Heagren <hugo@heagren.com>
+
+ bind-key-form: allow :continue keyword inside repeat map
+
+ Purely syntactic sugar, using :continue is the same as not using any
+ keyword inside :repeat-map at all.
+
+ Amend end of function to pass repeat-map value onto next invocation in
+ recursive uses. This allows for the same repeat map to be used for
+ :exit and :continue.
+
+2022-01-28 Hugo Heagren <hugo@heagren.com>
+
+ bind-key-form: allow :exit keyword inside repeat map
+
+ Keys bound inside the scope of :exit are bound inside the repeat map,
+ but do not have their repeat-map property set (so they run a function,
+ but 'exit' the map).
+
+2022-01-28 Hugo Heagren <hugo@heagren.com>
+
+ bind-keys-form: new keyword :repeat-map, for defining repeat maps
+
+ use-package-normalize/:bind: allow keyword :repeat-map.
+
+ bind-keys-form: Add keyword :repeat-map. Specifying a symbol as the
+ repeat-map defines a keymap with that name (and with the docstring
+ `repeat-doc', if specified). Symbols for functions bound to keys under
+ the scope of :repeat-map have their 'repeat-map property set to this
+ map. Update docstring (and that of `bind-keys') to reflect changes.
+
+ Rename `doc' to `prefix-doc' for clarity and consistency with
+ 'repeat-doc'.
+
+2022-01-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Reduce code duplication in parts of (auto)load&defalias
+
+ * src/data.c (defalias): New function, extracted from `Fdefalias`.
+ (Fdefalias): Use it.
+ (Ffset): Don't handle `Vautoload_queue` here, handle it in
+ `defalias` instead.
+ * src/comp.c (comp--register-subr): Use `defalias` instead of
+ duplicating its code.
+
+ * src/eval.c (load_with_autoload_queue): New function, extracted from
+ `Fautoload_do_load`.
+ (Fautoload_do_load): Use it.
+ (un_autoload): Mark it as static.
+ * src/fns.c (Frequire): Use it as well.
+
+ * src/lisp.h (defalias, load_with_autoload_queue): New declarations.
+ (un_autoload): Remove declaration.
+
+2022-01-28 Sebastian Urban <mrsebastianurban@gmail.com>
+
+ Make where-is correctly identify aliases
+
+ * lisp/help.el (where-is): Make aliases correctly say which
+ function is an alias for what (bug#37325).
+
+2022-01-28 Sebastian Urban <mrsebastianurban@gmail.com> (tiny change)
+
+ Fix manual points about tex-latex-block/latex-insert-block
+
+ * doc/emacs/text.texi (LaTeX Editing):
+ (LaTeX Editing): Update documentation of
+ tex-latex-block/latex-insert-block to what they really point to
+ (bug#37325).
+
+2022-01-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the read-file-name doc string slightly
+
+ * lisp/minibuffer.el (read-file-name): Note that the semantics of
+ INITIAL are odd (bug#37883).
+
+2022-01-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Clarify where the shell-command output goes
+
+ * lisp/simple.el (shell-command):
+ * doc/emacs/misc.texi (Single Shell): Clarify where the output
+ goes if the specified buffer isn't the current one (bug#40896).
+
+2022-01-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using dired-hide-details-mode in wdired buffers
+
+ * lisp/dired.el (dired-hide-details-mode): Also work in
+ wdired-mode buffers (bug#45127).
+
+ * lisp/wdired.el (wdired-mode-map): Add a key binding.
+
+2022-01-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move native-comp-eln-load-path setting earlier again
+
+ * lisp/startup.el (normal-top-level): Move
+ `native-comp-eln-load-path' earlier because hooks called may need
+ the setting (bug#53596).
+
+2022-01-28 Lele Gaifax <lele@metapensiero.it>
+
+ Fix copyright-fix-years, use a dash to separate years in a range
+
+ Commit 7a46fa9c751f7c3147cd9b27fe84c1ce25419d3b, allowing en-dash as
+ years separator, changed the way the years range is composed taking the
+ separator from the `sep' variable instead of always using an hardwired
+ hyphen. Since the code explicitly avoid to touch (that is, extend)
+ existing ranges, that `sep' variable is almost always a space, or
+ whatever character precedes the last parsed year, thus generating a
+ range like "2020 2022" instead of "2020-2022".
+
+ * lisp/emacs-lisp/copyright.el (copyright-fix-years): Always use an dash
+ to separate years in a range.
+
+ * test/lisp/emacs-lisp/copyright-tests.el
(with-copyright-fix-years-test):
+ (copyright-fix-years-tests--data):
+ (text-copyright-fix-years): New test cases (bug#53597).
+
+2022-01-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix merge error in doc-view-pdf/ps->png
+
+ * lisp/doc-view.el (doc-view-pdf/ps->png): Fix merge error from
+ previous epub patch.
+
+2022-01-28 Po Lu <luangruo@yahoo.com>
+
+ Prevent duplicate grab setting with xwidgets
+
+ * src/xwidget.c (xwidget_show_view): Don't set passive grab if
+ already set.
+
+2022-01-28 Po Lu <luangruo@yahoo.com>
+
+ Use the real cursor beneath the pointer on xwidgets
+
+ * src/xwidget.c (define_cursors): Make manual cursor definition
+ code PGTK-only.
+ (xw_update_cursor_for_view):
+ (xw_last_crossing_cursor_cb): New functions.
+ (xw_maybe_synthesize_crossing): Attach and disconnect cursor
+ signal handler where appropriate.
+ (xwidget_init_view): Set the default cursor to the nontext
+ cursor.
+ (Fxwidget_delete_view): Disconnect last crossing signal if
+ appropriate.
+ * src/xwidget.h (struct xwidget_view): New field
+ `last_crossing_cursor_signal'.
+
+2022-01-28 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget build on PGTK
+
+ * src/xwidget.c (xw_forward_event_translate): Adjust calls to
+ `find_widget_at_pos' for recent changes.
+
+2022-01-28 Po Lu <luangruo@yahoo.com>
+
+ Fix duplicate scroll events without XI2
+
+ * src/xwidget.c (xwidget_button): Only generate scroll events
+ when the button was released.
+
+2022-01-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 3dd47bde7a * lisp/frame.el (clone-frame): Filter out 'parent-id' (bug...
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ Clear xwidget passive grab whenever a drag begins
+
+ * src/xwidget.c (xv_drag_begin_cb): New function.
+ (xwidget_view_from_window): Attach said function to grab widget
+ when a grab starts.
+ * src/xwidget.h (struct xwidget_view): New field
+ `passive_grab_drag_signal'.
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Remove obsolete workaround.
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ Fix inappropriate use of killed xwidgets
+
+ * src/xwidget.c (x_draw_xwidget_webkit_view): Don't record
+ embedder or synthesize focus events if the widget is killed.
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ Implement xwidget passive grabs
+
+ * src/xwidget.c (find_widget_at_pos): New parameters for
+ controlling whether to respect grabs. All callers changed.
+ (window_coords_from_toplevel): Make work when the widget is
+ the toplevel.
+ (find_widget): Fix coding style.
+ (xwidget_button_1): Set and clear passive grabs if appropriate.
+ (xw_maybe_synthesize_crossing): Allow current_window to be NULL
+ if the mode is XW_CROSSING_LEFT.
+
+2022-01-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new switch --init-directory
+
+ * doc/emacs/cmdargs.texi (Initial Options): Mention it.
+ * lisp/startup.el (normal-top-level): Move the eln init to after
+ we've processed the command line arguments.
+ (command-line): Interpret the --init-directory switch.
+
+ * src/emacs.c (standard_args): Add.
+
+2022-01-27 Glenn Morris <rgm@gnu.org>
+
+ * lisp/doc-view.el (doc-view-epub-font-size): Fix type; add version.
+
+ Flagged by test-custom-opts.
+
+2022-01-27 Andrea Corallo <akrl@sdf.org>
+
+ Fix potential native compiler circular dependencies during load
+
+ * lisp/startup.el (startup--require-comp-safetly): New function.
+ (startup--honor-delayed-native-compilations): Make use of
+ `startup--require-comp-safetly'.
+ * src/comp.c (CALL0I): New define.
+ (maybe_defer_native_compilation): Make use of
+ `startup--require-comp-safetly'.
+
+2022-01-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up previous "Quit Emacs" from menu logic
+
+ * lisp/files.el (files--buffers-needing-to-be-saved): Separated
+ out into its own function...
+ (save-some-buffers): ... from here.
+ (save-buffers-kill-emacs): Check that we have anything to save
+ before prompting the user.
+
+2022-01-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the save buffers prompt from Quit Emacs menu more understandable
+
+ * lisp/files.el (save-buffers-kill-emacs): Use a much simpler (and
+ more understandable) prompt when exiting Emacs from the menu bar
+ (bug#4980).
+
+ * lisp/subr.el (use-dialog-box-p): Separate out into its own
+ function for reuse...
+ (y-or-n-p): ... from here.
+
+2022-01-27 Eli Zaretskii <eliz@gnu.org>
+
+ Improve detection of glyphless characters on TTY frames
+
+ * src/term.c (produce_glyphs): If the terminal can report for
+ which characters it has glyphs, use that to determine whether
+ a given character should be displayed as glyphless.
+
+2022-01-27 Arni Magnusson <thisisarni@gmail.com>
+
+ Add setx highlighting to bat-mode
+
+ * lisp/progmodes/bat-mode.el (bat-font-lock-keywords):
+ (bat-font-lock-keywords): Highlight setx (bug#53568).
+
+2022-01-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move some of the doc-view variables around to fix load errors
+
+2022-01-27 Daniel Nicolai <dalanicolai@gmail.com>
+
+ Add support for EPUB, CBZ, FB2 and (O)XPS extension to doc view
+
+ * doc/emacs/misc.texi (Document View): Add requirements for new
+ extensions (i.e. mutool).
+
+ * lisp/doc-view.el (doc-view): Additionally update preliminary comment
+ (doc-view-custom-set-epub-font-size): redraw image after setting
+ (doc-view-unoconv-program): Put code all on one line
+ (doc-view-doc-type): Update docstring.
+ (doc-view-kill-proc): Fix comment indentation
+ (doc-view-mode-p):
+ Add check for new extensions and alternative check for PDF
+ (doc-view-pdf/ps->png): Associate new extension with png converter
+ (doc-view-convert-current-doc): Handle new extensions like PDF's
+ (doc-view-set-doc-type): Set correct doc-type for new extensions.
+
+ * lisp/files.el (auto-mode-alist):
+ Associate new extension types with doc-view.
+
+2022-01-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak href/superscript fix in tex-mode
+
+ * lisp/textmodes/tex-mode.el (tex-font-lock-keywords-1): Fix
+ superscripts in href in a better way.
+
+2022-01-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Don't output spurious prefixes in read-char-exclusive"
+
+ This reverts commit 701ec0bda2b15fc97af6ca68fb842fb1ec9aac35.
+
+ This change broke display of `C-q-' when doing the `C-q' command,
+ so it has to be fixed a different way.
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ Improve xwidget window ancestry calculations
+
+ * src/xwidget.c (xw_find_common_ancestor):
+ (xw_notify_virtual_upwards_until)
+ (xw_notify_virtual_downwards_until): New functions.
+ (xw_maybe_synthesize_crossing): Synthesize virtual events like
+ GTK does for non-linear changes.
+
+2022-01-27 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/pdumper.c (dump_vectorlike): Handle PVEC_SYMBOL_WITH_POS.
+
+2022-01-27 Andrea Corallo <akrl@sdf.org>
+
+ * Fix `startup--honor-delayed-native-compilations' for (bug#53497)
+
+ * lisp/startup.el (startup--honor-delayed-native-compilations): Don't
+ forget to set `comp--loadable' when `comp--delayed-sources' is empty.
+
+2022-01-27 Andrea Corallo <akrl@sdf.org>
+
+ * Have `benchmark-run-compiled' use the native compiler when available
+
+ * lisp/emacs-lisp/benchmark.el (benchmark-run-compiled): Use native
+ compiler when available.
+
+2022-01-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c9524819ea Partially revert a fill-region-as-paragraph regression
+ 6075ea0b79 Fix 'make_lispy_position' when there's an image at EOB
+
+ # Conflicts:
+ # test/lisp/textmodes/fill-tests.el
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ * lisp/xwidget.el (xwidget-webkit-edit-mode-map): Pass C-backspace.
+
+2022-01-27 Po Lu <luangruo@yahoo.com>
+
+ Implement crossing event generation between windows for xwidgets on X
+
+ * src/xwidget.c (enum xw_crossing_mode): New enum.
+ (xwidget_motion_notify):
+ (xwidget_motion_or_crossing): Synthesize crossing events if the
+ pointer moved between different windows.
+ (window_coords_from_toplevel):
+ (xw_maybe_synthesize_crossing): New functions.
+ (xwidget_init_view): Initialize new field to NULL.
+ (Fdelete_xwidget_view): Clear last crossing window.
+
+ * src/xwidget.h (struct xwidget_view): New field
+ `last_crossing_window'.
+
+2022-01-26 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler slightly in tests
+
+ * test/src/comp-resources/comp-test-45603.el
+ (comp-test-45603--call-marked):
+ * test/src/comp-resources/comp-test-funcs.el
+ (comp-tests-discardn-f, comp-test-42360-f, comp-test-46824-1-f)
+ (comp-test-silly-frame2): Silence byte-compiler.
+
+2022-01-26 Stefan Kangas <stefan@marxist.se>
+
+ Don't use obsolete second argument to byte-compile-file
+
+ * test/src/comp-resources/comp-test-funcs.el
+ (comp-test-big-interactive): Don't use obsolete second argument to
+ byte-compile-file.
+
+2022-01-26 Stefan Kangas <stefan@marxist.se>
+
+ Don't discourage auto-mode-alist entries in autoloads
+
+ * lisp/files.el (auto-mode-alist, interpreter-mode-alist): Delete
+ comment discouraging entries in autoload directives. (Bug#8158)
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Improve XI2 valuator reset logic
+
+ * src/xterm.c (handle_one_xevent): Clear valuators on XI_Leave
+ instead of XI_Enter.
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_focus_frame): Set input focus on outer window.
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Get rid of unnecessary draw locking in haikumenu.c
+
+ * src/haikumenu.c (Fhaiku_menu_bar_open): Stop holding the draw
+ lock.
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Apply fix for bug#52761 to GTK native input as well
+
+ * src/xgselect.c (xg_select): Apply said fix on regular GTK
+ builds when native input is being used.
+
+2022-01-26 Glenn Morris <rgm@gnu.org>
+
+ * Makefile.in (install-etc): Remove unnecessary chown.
+
+ Not needed since this rule was changed to not use tar, 2012-05-11.
+
+2022-01-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make smerge-refine-ignore-whitespace into defcustom
+
+ * lisp/vc/smerge-mode.el (smerge-refine-ignore-whitespace): Make
+ into defcustom (bug#12585).
+
+2022-01-26 Mattias Engdegård <mattiase@acm.org>
+
+ Add tests for concat, vconcat and append
+
+ * test/src/fns-tests.el (fns-tests-concat)
+ (fns-concat, fns-vconcat, fns-append): New.
+
+2022-01-26 Mattias Engdegård <mattiase@acm.org>
+
+ Minor `concat` tweaks
+
+ * src/fns.c (concat): Do things in the right order for speed.
+ (concat_strings): Initialise variable.
+
+2022-01-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix copyright-find-copyright when searching from the end
+
+ * lisp/emacs-lisp/copyright.el (copyright-find-copyright): Make
+ the double check also work when searching from the end (bug#7179).
+
+2022-01-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix copyright.el comment and add a test
+
+ * lisp/emacs-lisp/copyright.el (copyright-find-copyright): Fix
+ comment (bug#7179).
+
+2022-01-26 Sean Whitton <spwhitton@spwhitton.name>
+
+ Fix input of sharp-quoted symbols in Eshell with em-extpipe
+
+ * lisp/eshell/em-extpipe.el (eshell-parse-external-pipeline): Fix
+ misinterpreting sharp-quoted symbols as the beginning of single-quoted
+ strings (Bug#53518). Add protection against a possible infinite loop.
+ * test/lisp/eshell/em-extpipe-tests.el (em-extpipe-test-17): New
+ test (bug#53518).
+
+2022-01-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt tramp-tests
+
+ * test/lisp/net/tramp-tests.el (tramp--test-special-characters):
+ Adapt test candidates.
+
+2022-01-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix insert-file-contents for tramp-crypt
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ Use `tramp-handle-insert-file-contents'.
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Add workaround for super modifier misconfiguration to non-XKB code
+
+ * src/xterm.c (x_find_modifier_meanings): Don't let a modifier
+ be both Hyper and Super.
+
+2022-01-26 Andrea Corallo <akrl@sdf.org>
+
+ Make use of NILP where possible
+
+ * src/w32menu.c (menubar_selection_callback, w32_menu_show): Use NILP
+ where possible.
+ * src/w32fns.c (w32_set_mouse_color): Likewise.
+ * src/w16select.c (Fw16_selection_exists_p): Likewise.
+ * src/process.c (Fnetwork_lookup_address_info): Likewise.
+ * src/cygw32.c (Fcygwin_convert_file_name_to_windows)
+ (Fcygwin_convert_file_name_from_windows): Likewise.
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Simplify Haiku scrolling code
+
+ * src/haikuterm.c (haiku_scroll_run): Remove code that can never
+ be reached since Cairo frames are always double buffered.
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK menu bar height reporting when scaled
+
+ * src/gtkutil.c (xg_update_frame_menubar): Multiply requisition
+ height by GDK scale.
+
+2022-01-26 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 7eca80b204 ; * src/composite.c (syms_of_composite) <auto-composition-...
+
+2022-01-26 Po Lu <luangruo@yahoo.com>
+
+ Simplify Haiku underline code
+
+ * src/haikuterm.c (haiku_draw_text_decoration): Remove code left
+ over from when mouse face had to be set manually.
+
+2022-01-25 Po Lu <luangruo@yahoo.com>
+
+ Make `haiku-menu-bar-open' faster
+
+ * src/haikumenu.c (Fhaiku_menu_bar_open): Get draw lock before
+ updating the menu bar.
+ * src/haikuterm.c (haiku_read_socket): Don't update menu bar if
+ b->no_lock.
+
+2022-01-25 Stefan Kangas <stefan@marxist.se>
+
+ * src/image.c (parse_image_spec): Use NILP.
+
+2022-01-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve how change-log-mode fills all-file-name lines
+
+ * lisp/vc/add-log.el (change-log-fill-file-list): New function to
+ improve how we fill all-file-name ChangeLog lines (bug#19341).
+ (change-log-indent): Use it.
+
+2022-01-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up Gnus FAQ entry
+
+ * doc/misc/gnus-faq.texi (FAQ 3-9): Remove mention of
+ nnimap-list-pattern, which was removed some years ago (bug#53522).
+
+2022-01-25 Andrea Corallo <akrl@sdf.org>
+
+ * src/comp.c (emit_lisp_obj_rval): Make use of NILP.
+
+ ;* src/fns.c (concat_strings): Add missing space.
+
+2022-01-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/comp.c (emit_limple_insn): Fix another int/Lisp_Object mixup
+
+2022-01-25 Glenn Morris <rgm@gnu.org>
+
+ Tag an mml-sec test
+
+ * test/lisp/gnus/mml-sec-tests.el (mml-secure-en-decrypt-3):
+ Tag unstable on hydra.nixos.org due to repeated intermittent failures.
+
+2022-01-25 Andrea Corallo <akrl@sdf.org>
+
+ * src/fns.c (concat_strings): Clean-up unused variable.
+
+2022-01-25 Andrea Corallo <akrl@sdf.org>
+
+ * `batch-byte+native-compile' produce .eln younger than .elc (bug#52912)
+
+ * lisp/emacs-lisp/comp.el (batch-native-compile): Add return
+ value.
+ (batch-byte+native-compile): Touch the produced .eln after the
+ corresponding .elc is produced.
+
+2022-01-25 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/comp.el (batch-byte+native-compile): Fix unwind form
+
+2022-01-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/lisp.h (lisp_h_EQ, lisp_h_NILP): Fix length and indent
+
+2022-01-25 Mattias Engdegård <mattiase@acm.org>
+
+ Faster concat, append, vconcat, copy-sequence, etc
+
+ Split the C auxiliary function `concat` into separate functions for
+ string and list/vector as target types, respectively. This makes them
+ simpler and faster.
+
+ Implement `Fcopy_sequence` more efficiently for strings, lists and
+ vectors instead of using `concat`.
+
+ The result is a significant performance increase for the Lisp
+ built-ins concat, append, vconcat, copy-sequence and anything using
+ them such as mapconcat, copy-alist and propertize.
+
+ * src/fns.c (concat2, concat3, Fconcat): Use concat_strings.
+ (Fappend, Fvconcat): Adapt to changed signature of concat.
+ (Fcopy_sequence): Faster implementation for lists, strings, and vectors.
+ (concat_strings): New.
+ (concat): Strip code for string target, simplify, optimise.
+ (Fcopy_alist): Use Fcopy_sequence.
+
+2022-01-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't mutate literals in tabulated-list-widen-current-column
+
+ * lisp/emacs-lisp/tabulated-list.el
+ (tabulated-list-widen-current-column): Avoid mutating constants
+ (bug#53501).
+
+2022-01-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix widening some columns in tabulated-list-widen-current-column
+
+ * lisp/emacs-lisp/tabulated-list.el
+ (tabulated-list-widen-current-column): Don't bug out on list-based
+ columns (bug#53498).
+
+2022-01-25 Jim Porter <jporterbugs@gmail.com>
+
+ Treat "-" as a positional arg in 'eshell-eval-using-options'
+
+ * lisp/eshell/esh-opt.el (eshell--process-args): Treat "-" as a
+ positional arg.
+
+ * lisp/eshell/em-tramp.el (eshell/su): Simplify checking for "-".
+
+ * test/lisp/eshell/esh-opt-tests.el
+ (esh-opt-test/eval-using-options-stdin): New test.
+
+2022-01-25 Jim Porter <jporterbugs@gmail.com>
+
+ Don't manipulate args in-place for 'eshell-eval-using-options'
+
+ This is necessary for preserve the original arguments to forward on to
+ :external commands. Previously, when :preserve-args was also set, the
+ original argument list could be altered, changing the meaning of the
+ command.
+
+ * lisp/eshell/esh-opt.el (eshell-eval-using-options): Copy MACRO-ARGS
+ when :preserve-args is set, and pass the original value to
+ 'eshell--do-opts'.
+ (eshell--do-opts): Use the original arguments when calling an external
+ command.
+
+ * lisp/eshell/em-tramp.el (eshell/su, eshell/sudo): Don't copy the
+ original arguments, since 'eshell-eval-using-options' does this for
+ us.
+
+ * test/lisp/eshell/esh-opt-tests.el (esh-opt-process-args-test):
+ Split this test into...
+ (esh-opt-test/process-args)
+ (esh-opt-test/process-args-parse-leading-options-only)
+ (esh-opt-test/process-args-external): ... these.
+ (test-eshell-eval-using-options): Split this test into...
+ (esh-opt-test/eval-using-options-short)
+ (esh-opt-test/eval-using-options-long)
+ (esh-opt-test/eval-using-options-constant)
+ (esh-opt-test/eval-using-options-user-specified)
+ (esh-opt-test/eval-using-options-short-single-token)
+ (esh-opt-test/eval-using-options-terminate-options)
+ (esh-opt-test/eval-using-options-parse-leading-options-only)
+ (esh-opt-test/eval-using-options-unrecognized): ... these.
+ (esh-opt-test/eval-using-options-external): New test.
+
+ * test/lisp/eshell/em-tramp-tests.el: New tests.
+
+2022-01-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the term-clear-full-screen-programs doc string
+
+ * lisp/term.el (term-clear-full-screen-programs): Improve the doc
+ string.
+
+2022-01-25 Po Lu <luangruo@yahoo.com>
+
+ Improve reliability of menu bar updates on Haiku
+
+ * src/haiku_support.cc (class EmacsWindow): New fields
+ `menu_update_cv', `menu_update_mutex' and `menu_updated_p'.
+ (~EmacsWindow): Destroy cv and mutex.
+ (MenusBeginning): Release lock and wait for condition to be
+ become true.
+ (EmacsWindow_signal_menu_update_complete): New function.
+ * src/haiku_support.h (struct haiku_menu_bar_state_event): New
+ field `no_lock'.
+ * src/haikumenu.c (Fhaiku_menu_bar_open): Always update menu
+ bar.
+ * src/haikuterm.c (haiku_read_socket): Always update menu bar
+ and signal the window thread after update completion.
+
+2022-01-25 Po Lu <luangruo@yahoo.com>
+
+ * src/haiku_support.cc (Highlight): Send events if !highlight_p.
+
+2022-01-25 Po Lu <luangruo@yahoo.com>
+
+ Don't send menu help events on Haiku if the pointer isn't in the menu
+
+ * src/haiku_support.cc (Highlight): Only send help events
+ if the mouse cursor is actually in the menu.
+
+2022-01-25 Po Lu <luangruo@yahoo.com>
+
+ Fix tool bar size reporting on GTK when the display is scaled
+
+ * src/gtkutil.c (xg_update_tool_bar_sizes): Multiply sizes to
+ turn them into device pixels.
+
+2022-01-25 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c34d06e3d7 * configure.ac (LIBSECCOMP): Bump minimum version for facc...
+ 335a5a9e0f Make the `f' command work in image-mode again
+
+2022-01-24 Po Lu <luangruo@yahoo.com>
+
+ Improve portability of X11 IM code
+
+ * configure.ac: Test for XICCallback.callback if X11R6 or later.
+ * src/xfns.c (Xxic_preedit_start_callback): Use XICCallback if
+ present.
+
+2022-01-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Remove some dubious uses of `interactive-form`
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): `commandp` and
+ `interactive-form` are for function values, not for source code.
+ * lisp/cedet/semantic/db-el.el (semanticdb-elisp-sym->tag):
+ Prefer `commandp` over `interactive-form`.
+
+2022-01-24 Po Lu <luangruo@yahoo.com>
+
+ Fix invalid picture after toggling the tool bar or menu bar on GTK
+
+ * src/xterm.c (x_drop_xrender_surfaces): New function.
+ (handle_one_xevent): Call x_drop_xrender_surfaces instead of
+ just font_drop_xrender_surfaces.
+
+2022-01-24 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK native input on scaled displays
+
+ * src/xfns.c (xic_set_preeditarea): Scale preedit spot rectangle
+ before giving it to GTK.
+
+2022-01-24 Sean Whitton <spwhitton@spwhitton.name>
+
+ Add Eshell syntax to more easily bypass Eshell's own pipelining
+
+ * etc/NEWS:
+ * doc/misc/eshell.texi (Input/Output): Document the new syntax.
+ * lisp/eshell/em-extpipe.el: New module (Bug#46351).
+ * test/lisp/eshell/em-extpipe-tests.el: New tests.
+ * lisp/eshell/esh-module.el (eshell-modules-list): Add `eshell-extpipe'.
+
+2022-01-24 Sean Whitton <spwhitton@spwhitton.name>
+
+ Rework eshell-match-result for testing asynchronous commands
+
+ When using eshell-match-result via eshell-command-result-p to examine
+ the output of asynchronous Eshell commands, a newly emitted prompt is
+ included in the text against which the regexp is matched. This makes
+ it awkward to match against the whole output; for example, to check
+ whether it is empty. Rework the function to exclude the prompt.
+
+ * test/lisp/eshell/eshell-tests-helpers.el (eshell-match-result):
+ Exclude any newly emitted prompt from the text against which the
+ regexp is matched. Additionally, the function no longer moves point.
+ * test/lisp/eshell/eshell-tests.el (eshell-test/flush-output): Update
+ and simplify test given how eshell-match-result no longer moves point.
+
+2022-01-24 Sean Whitton <spwhitton@spwhitton.name>
+
+ Move Eshell test helpers to their own file
+
+ * test/lisp/eshell/eshell-tests.el:
+ * test/lisp/eshell/eshell-tests-helpers.el: Move helpers to own file.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make hi-lock-face-defaults into a defcustom
+
+ * lisp/hi-lock.el (hi-lock-face-defaults): Make into defcustom.
+
+2022-01-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/hi-lock.el (hi-lock-use-overlays): New variable.
+
+ (hi-lock-set-pattern): Use it. Set overlay priority to 1.
+ (bug#53155)
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS entry for term-clear-full-screen-programs
+
+2022-01-24 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Implement alternative sub-buffer support in term.el
+
+ * etc/e/eterm-color.ti: Added termcaps for entering and leaving an
+ alternative sub-buffer.
+ * lisp/term.el (term-reset-size): Resize correctly in an alternative
+ sub-buffer is in use.
+ (term-clear-full-screen-programs): New user option.
+ (term-handle-ansi-escape):
+ (term-termcap-format): Handle termcaps for entering and leaving an
+ alternative sub-buffer.
+ (term-switch-to-alternate-sub-buffer): New (used to be commented out)
+ function to enter or leave an alternative sub-buffer.
+ bug#53485
+
+2022-01-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/info.el (Info-link-keymap): Fix repetitive clicks on the header
line.
+
+ Rebind [header-line mouse-1] from mouse-select-window to
+ Info-mouse-follow-link. It selects the window anyway,
+ but also allows repetitively clicking on the Next button
+ on the Info header line (bug#53170).
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't list the default hi-lock faces twice in the future history
+
+ * lisp/hi-lock.el (hi-lock-read-face-name): Don't include faces
+ twice in the defaults (bug#19877).
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix gnus-article-truncate-lines doc string
+
+ * lisp/gnus/gnus-art.el (gnus-article-truncate-lines): Fix doc
+ string.
+
+2022-01-24 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS: Mention 'replace-regexp-function' (bug#52558).
+
+2022-01-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/faces.el (read-face-name): Support a list of defaults for M-n.
+
+ When MULTIPLE is nil and the arg DEFAULT is a list, keep its elements
+ in the "future history" of the minibuffer retrieved by `M-n M-n ...'.
+ (bug#53255)
+
+2022-01-24 Glenn Morris <rgm@gnu.org>
+
+ * lisp/minibuffer.el (completions-sort): Fix type.
+
+ Flagged by test-custom-opts.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't output spurious prefixes in read-char-exclusive
+
+ * src/keyboard.c (read_char): Don't touch the echo area if
+ Vecho_keystrokes is nil.
+ * src/lread.c (read_filtered_event): Bind echo_keystrokes to nil
+ to avoid outputting prefixes we're not going to act on anyway
+ (bug#19718).
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow sorting in electric-buffer-list with `S'
+
+ * lisp/ebuff-menu.el (electric-buffer-menu-mode-map): Add the `S'
+ sorting command here, too (bug#20178).
+
+2022-01-24 Amin Bandali <bandali@gnu.org>
+
+ ERC: Add new comaintainer, F. Jason Park
+
+ * lisp/erc/erc*.el: Add J.P. as my comaintainer to headers.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix \href{a_b} in tex-mode
+
+ * lisp/textmodes/tex-mode.el (tex-font-lock-keywords-2): Fontify
+ href parameters like constants so that _ aren't fontified like
+ subscripts.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix tex-mode handling of _ chars in href{} commands"
+
+ This reverts commit 487a0be7f7eb0ca9402247f13a11e39aa2946d05.
+
+ This will be fixed a different way.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add derived-mode test for bug#24176
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make anonymous functions work in auto-mode-alist
+
+ * lisp/files.el (set-auto-mode--apply-alist): Don't infloop on
+ anonymous functions in auto-mode-alist (bug#20709).
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't loop so much in gud-query-cmdline on remote systems
+
+ * lisp/progmodes/gud.el (gud-query-cmdline): Avoid looping over
+ large numbers of files on remote systems (bug#21528).
+
+2022-01-24 Protesilaos Stavrou <info@protesilaos.com>
+
+ Make Completions sorting a user option
+
+ * etc/NEWS: Document the new user option.
+ * lisp/minibuffer.el (completions-sort): Add new user option.
+ (minibuffer-completion-help): Implement it for the Completions
+ buffer. (Bug#53362)
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow jumping to ert failure definitions
+
+ * lisp/emacs-lisp/ert.el (ert-test):
+ (ert-deftest): Store the file name.
+ (ert-test-location): New function.
+ (ert-run-tests-batch): Use it.
+
+ * lisp/emacs-lisp/find-func.el (find-ert-deftest-regexp): New
+ variable.
+ (find-function-regexp-alist): Add ert-deftest (bug#22471).
+
+ Based on code by Phillip Lord <phillip.lord@russet.org.uk>.
+
+2022-01-24 Yuuki Harano <masm+github@masm11.me>
+
+ * configure.ac: Remove forgotten GLIB_GSETTINGS call
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add NEWS item for `I' command
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a *Help* command that'll take you to the lispref manual
+
+ * doc/emacs/help.texi (Help Mode): Document it.
+ * lisp/help-mode.el (help-mode-map): Add an `I' keystroke.
+ (help-goto-lispref-info): New command.
+
+ * lisp/info-look.el (:mode): Add an entry for the lispref manual.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix tex-mode handling of _ chars in href{} commands
+
+ * lisp/textmodes/tex-mode.el (tex--current-command): New function
+ (bug#23102).
+ (tex-font-lock-suscript): Don't subscript _ chars in href.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `font-lock-add-keywords' work in derived modes
+
+ * lisp/font-lock.el (font-lock-set-defaults): Make
+ `font-lock-add-keywords' work in derived modes (bug#24176).
+
+2022-01-24 Po Lu <luangruo@yahoo.com>
+
+ Remove redundant declarations from keyboard.h that are now in lisp.h
+
+ * src/keyboard.h (process_pending_signals)
+ (pending_signals): Remove declarations.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Inline maybe_quit
+
+ Since `maybe_quit` is called on many critical paths, inline a slightly
+ cheaper condition (that ignores Vinhibit_quit).
+
+ * src/eval.c (maybe_quit): Rename to `probably_quit`.
+ * src/lisp.h (maybe_quit): New simplified inline function.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Bump specpdl inline, move reallocation out of line
+
+ The common case is just to increment `specpdl_ptr`; do that in-line,
+ but move the uncommon reallocation to a separate subroutine.
+
+ * src/eval.c (grow_specpdl): Now inline, most code moved...
+ (grow_specpdl_allocation): ...here.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Implement Ffuncall in terms of funcall_general
+
+ * src/eval.c (funcall_general, Ffuncall): Delegate the actual work in
+ Ffuncall to funcall_general which does exactly this.
+ This slows down some less used function call paths by a small amount
+ but the code duplication was just silly.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Open-code aref and aset in bytecode interpreter
+
+ * src/bytecode.c (exec_byte_code): Inline aref and aset for
+ vectors and records, since this is important for code that makes heavy
+ use of arrays and/or objects.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Remove the unused unbind-all bytecode
+
+ It was implemented but never generated, originally intended for
+ TCO in the pre-lexbind era (which was semantically dubious anyway).
+ Removing it speeds up the interpreter because there is no longer any
+ need for the outermost `count` variable unless checking is enabled.
+
+ * lisp/emacs-lisp/bytecomp.el:
+ * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst):
+ * src/bytecode.c (BYTE_CODES, exec_byte_code):
+ Remove definition and implementation of unbind-all, freeing up the
opcode
+ for other purposes.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Move a runtime interpreter check to debug mode
+
+ * src/bytecode.c (exec_byte_code): Perform bytecode unwinding error
+ check only when building with debugging (NDEBUG not defined, checking
+ enabled, or BYTE_CODE_SAFE enabled). This improves speed in several
+ ways.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Remove nil check in exec_byte_code
+
+ Since we pass no arguments to a non-lexbind bytecode function, we can
+ specify its arity as 0 instead of nil and save a test and branch.
+
+ * src/bytecode.c (Fbyte_code, exec_byte_code):
+ * src/eval.c (fetch_and_exec_byte_code, funcall_lambda):
+ * src/lisp.h:
+ Change the args_template parameter type to ptrdiff_t, since it is now
+ always a small integer, in exec_byte_code and
+ fetch_and_exec_byte_code, all callers adjusted.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Byte code arity check micro-optimisation
+
+ * src/bytecode.c (exec_byte_code): Slight simplification.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Pin bytecode strings to avoid copy at call time
+
+ Avoid making a copy (in the interpreter C stack frame) of the bytecode
+ string by making sure it won't be moved by the GC. This is done by
+ reallocating it to the heap normally only used for large strings,
+ which isn't compacted.
+
+ This requires that we retain an explicit reference to the bytecode
+ string object (`bytestr`) lest it be GCed away should all other
+ references vanish during execution. We allocate an extra stack slot
+ for that, as we already do for the constant vector object.
+
+ * src/alloc.c (allocate_string_data): Add `immovable` argument.
+ (resize_string_data, make_clear_multibyte_string): Use it.
+ (pin_string): New.
+ * src/pdumper.c (dump_string): Fix incorrect comment.
+ Update hash for Lisp_String (only comments changed, not contents).
+ * src/lread.c (read1):
+ * src/alloc.c (Fmake_byte_code, purecopy):
+ * src/bytecode.c (Fbyte_code): Pin bytecode on object creation.
+ (exec_byte_code): Don't copy bytecode. Retain `bytestr` explicitly.
+ * src/lisp.h (Lisp_String): Explain special size_byte values.
+ (string_immovable_p): New.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Inline setcar and setcdr in byte-code interpreter
+
+ The function call overhead is nontrivial in comparison to the actual
+ code which makes this worthwhile.
+
+ * src/bytecode.c (exec_byte_code):
+ Inline code from Fsetcar and Fsetcdr.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Inline fixnum operations in bytecode interpreter
+
+ Since numeric operations are mostly done on fixnums, this gives a
+ speed-up for common code.
+
+ * src/bytecode.c (exec_byte_code): Inline fixnum comparisons and
+ operations with fixnum results: =, >, <, <=, >=, -, +, -, *, /, %, max
+ and min.
+
+2022-01-24 Mattias Engdegård <mattiase@acm.org>
+
+ Short-circuit the recursive bytecode funcall chain
+
+ Inline parts of the code for function calls to speed up the common
+ case of calling lexbound byte-code. By eliminating intermediate
+ functions, this also reduces C stack usage a little.
+
+ * src/bytecode.c (exec_byte_code): Inline parts of Ffuncall,
+ funcall_lambda and fetch_and_exec_byte_code in the Bcall opcode
+ handler.
+ * src/eval.c (backtrace_debug_on_exit): Inline and move to lisp.h.
+ (do_debug_on_call): Make global so that it can be called from
+ bytecode.c.
+ (funcall_general): New function, essentially the meat of Ffuncall.
+ * src/lisp.h (backtrace_debug_on_exit): Moved here from eval.c.
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add "then" to sh--completion-keywords
+
+ * lisp/progmodes/sh-script.el (sh--completion-keywords): Allow
+ completing over "then" (bug#53490).
+
+2022-01-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix Gnus registry key bindings
+
+ * lisp/gnus/gnus-registry.el (gnus-registry-install-shortcuts):
+ Don't overwrite all other M M commands (bug#53492).
+
+2022-01-24 Martin Rudalics <rudalics@gmx.at>
+
+ Orderly inhibit frame resizing when activating tool or tab bar
(Bug#52986)
+
+ * src/xdisp.c (redisplay_tab_bar, redisplay_tool_bar): If we do
+ not display a tool or tab bar in these functions, still set
+ f->tool/tab_bar_redisplayed and f->tool/tab_bar_resized. This
+ avoids that when one of these are initially turned off, a later
+ activation resizes the frame despite of the fact that
+ 'frame-inhibit-implied-resize' should prevent it (Bug#52986).
+
+2022-01-24 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_composite_image): Use the display's picture format.
+
+2022-01-24 Po Lu <luangruo@yahoo.com>
+
+ Scale coordinates when checking if a touch event falls inside menu bar
+
+ * src/xterm.c (handle_one_xevent): Apply scale to touch event
+ coordinates before intersecting them with the menu bar.
+
+2022-01-24 Paul Eggert <eggert@cs.ucla.edu>
+
+ Avoid glitches in ELC lines in build output
+
+ * src/verbose.mk.in (AM_V_ELC, AM_V_ELN): Use ifneq not ifdef, as
+ we want have_working_info’s value expanded (Bug#53358).
+
+2022-01-23 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Drop frame picture on configure.
+
+2022-01-23 Po Lu <luangruo@yahoo.com>
+
+ Add some code for transparent frame backgrounds without Cairo
+
+ * src/image.c (svg_load_image): Fix build without native image
+ transforms.
+
+ * src/xfns.c (set_up_x_back_buffer):
+ (tear_down_x_back_buffer): Free XR picture if present.
+
+ * src/xftfont.c (xftfont_get_xft_draw): Fix formatting issue.
+
+ * src/xterm.c (x_xr_ensure_picture): New function.
+ (FRAME_CR_CONTEXT, FRAME_CR_CONTEXT):
+ (FRAME_CR_SURFACE_DESIRED_WIDTH)
+ (FRAME_CR_SURFACE_DESIRED_HEIGHT): Move to separate USE_CAIRO
+ block so the ext data code can be used on builds with XRender as
+ well.
+
+ (x_xr_apply_ext_clip):
+ (x_xr_reset_ext_clip): New functions.
+ (x_set_clip_rectangles):
+ (x_reset_clip_rectangles): Set ext data on XRender as well.
+ (x_term_init): Look for a picture format appropriate for our
+ purposes.
+ (x_clear_area): Use XRenderFillRectangle to draw backgrounds if
+ available.
+ (x_xrender_color_from_gc_foreground):
+ (x_xrender_color_from_gc_background): New functions.
+
+ * src/xterm.h (FRAME_X_PICTURE):
+ (FRAME_X_PICTURE_FORMAT)
+ (FRAME_CHECK_XR_VERSION): New macros.
+
+ (struct x_gc_ext_data): Define on XRender as well.
+ (struct x_display_info): Define ext_codes when using XRender and
+ add new field `pict_format'.
+ (struct x_output): New field `picture'.
+
+2022-01-23 Po Lu <luangruo@yahoo.com>
+
+ Get rid of compose status on XI2
+
+ * src/xterm.c (handle_one_xevent): Stop assuming compose
+ processing will occur on XI2.
+
+2022-01-23 Alan Mackenzie <acm@muc.de>
+
+ Expunge read-with-symbol-position and read-symbol-positions-list
+
+ These are remnants of the old way of determining byte compiler warning
+ positions.
+
+ * src/lread.c (read_internal_start, read1): Remove initializations amd
+ manipulations of these variables.
+ (syms_of_lread): Remove the declarations of the variables.
+
+ * lisp/emacs-lisp/bytecomp.el (compile-defun, byte-compile-from-buffer):
+ Remove bindings of the variables.
+
+2022-01-23 Po Lu <luangruo@yahoo.com>
+
+ Set IC preedit area on ConfigureNotify
+
+ * src/xterm.c (handle_one_xevent): Set the preedit spot when a
+ ConfigureNotify event is received.
+
+2022-01-23 Alan Mackenzie <acm@muc.de>
+
+ Bind print-symbols-bare to t in byte-compile-from-buffer
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Bind
+ print-symbols-bare to t here for the benefit of non-defining forms in
buffers.
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make message in hack-local-variables-confirm clearer
+
+ * lisp/files.el (hack-local-variables-confirm): Mention the
+ .dir-locals.el file in the message to be slightly less confusing
+ (bug#27066).
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-x M-x insert-kbd-macro RET RET' work better
+
+ * lisp/macros.el (insert-kbd-macro): Don't give bogus output on
+ names that have no function definition (bug#30309).
+
+2022-01-23 Thuna <thuna.cing@gmail.com> (tiny change)
+
+ Fix tabulated-list-widen-current-column widening wrong column
+
+ * tabulated-list.el (tabulated-list-widen-current-column): Use correct
+ comparison operation when checking if point is within the column
+ bounds (bug#53375).
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using outline minor mode in `M-x apropos-value'
+
+ * lisp/apropos.el (apropos-mode): Set up outline minor mode
+ (bug#31094).
+ (apropos-value): Don't add "---" separators, because it doesn't
+ really seem to add anything much.
+ (apropos-value-internal): Escape newlines so that no values can be
+ confused for headings.
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make apropos-print-doc more resilient
+
+ * lisp/apropos.el (apropos-print-doc): Don't bug out on doc
+ strings that have invalid command key syntaxes.
+
+2022-01-23 Brian Leung <bkleung89@gmail.com>
+
+ Properly check the completionitem.deprecated property
+
+ * eglot.el (eglot-completion-at-point): Check the :deprecated property
+ is `t'. We do this so that a :deprecated property of :json-false does
+ not cause a completion candidate to be incorrectly marked as deprecated.
+
+2022-01-23 Alan Mackenzie <acm@muc.de>
+
+ Fix position argument to macroexp--warn-wrap in cconv--convert-funcbody
+
+ * lisp/emacs-lisp/cconv.el (cconv--convert-funcbody): Change the
position
+ argument to macroexp--warn-wrap from BODY to ARG, to give correct
positions in
+ warning messages.
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve `M-x speedbar' under emacs -nw very slightly
+
+ * lisp/speedbar.el (speedbar-frame-mode): `M-x speedbar' doesn't
+ seem to do anything visible under -nw, so issue a message in that
+ case to tell the user how to proceed (bug#32597).
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make kill-process into a command
+
+ * doc/lispref/processes.texi (Signals to Processes): Document it.
+ * src/process.c (Fkill_process): Make into a command (bug#32640).
+
+2022-01-23 Phil Sainty <psainty@orcon.net.nz>
+
+ Add new function to prompt a user for a process name
+
+ * lisp/emacs-lisp/subr-x.el (read-process-name): New function
+ (bug#32640).
+
+2022-01-23 Po Lu <luangruo@yahoo.com>
+
+ Make sure cursors are drawn correctly after haiku_clear_frame
+
+ * src/haikuterm.c (haiku_clear_frame): Mark all cursors as off.
+
+2022-01-23 Alex Kost <alezost@gmail.com>
+
+ Improve scheme-imenu-generic-expression
+
+ * lisp/progmodes/scheme.el (scheme-imenu-generic-expression):
+ Improve so that we match `define-public' etc (bug#33117).
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make occur edit mode more resilient
+
+ * lisp/replace.el (occur-engine): Make the prefix read-only so
+ that it's preserved in edit mode (bug#53419).
+
+2022-01-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert the other bits related to `load-read-file'
+
+ * src/lread.c (syms_of_lread): Revert the other bits related to
+ reverting `byte-compile-from-buffer'/`load-read-file'.
+
+2022-01-23 Po Lu <luangruo@yahoo.com>
+
+ Fix menus on the no-toolkit build when using XI2
+
+ * src/xmenu.c (x_activate_menubar):
+ (create_and_show_popup_menu): Only ungrab the device if it is
+ actually grabbed.
+ (x_menu_show): Release XI2 passive grab.
+
+2022-01-23 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 6d3608be88 Seccomp: improve support for newer versions of glibc (Bug#...
+ e58ecd01d5 EUDC: Fix a quoting bug in the BBDB backend
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Fix documentation formatting error
+
+ * doc/lispref/streams.texi (Input Functions): Remove extraneous
+ @end defun.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ * src/haikumenu.c (run_menu_bar_help_event): Fix bounds sanity check.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Clean up some of the X extension related code
+
+ * src/image.c (Fimage_transforms_p): Remove unused variables.
+ * src/xterm.c (x_probe_xfixes_extension):
+ (x_term_init): Probe for xfixes during terminal initialization
+ instead.
+ * src/xterm.h (struct x_display_info): New fields for xfixes
+ support.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (pgtk_flash): Fix input blocking.
+
+2022-01-22 Eli Zaretskii <eliz@gnu.org>
+
+ Minor copyedits in "Symbols with Position"
+
+ * doc/lispref/symbols.texi (Symbols with Position): Fix wording
+ and improve indexing.
+
+2022-01-22 Alan Mackenzie <acm@muc.de>
+
+ Merge branch 'master' of /home/acm/emacs/emacs.git/master
+
+2022-01-22 Alan Mackenzie <acm@muc.de>
+
+ Don't use 'load-read-function' in byte-compile-from-buffer
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Call
+ read-positioning-symbols directly, rather than binding
load-read-function to
+ it. This is so that a lower level use of load-read-function will not
return a
+ form containing symbols with position.
+
+2022-01-22 Alan Mackenzie <acm@muc.de>
+
+ Merge branch 'scratch/correct-warning-pos'
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix print-unreadable-function documentation
+
+ * doc/lispref/streams.texi (Output Variables): Fix description of
+ non-string values.
+
+2022-01-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Add direct remote copying in Tramp's scp support
+
+ * doc/misc/tramp.texi: Use @trampfn{} function where possible.
+ (Top, Configuration): Insert section 'Ssh setup' and remove
+ section 'Windows setup hints' in menu.
+ (Default Method): Mention tramp-use-scp-direct-remote-copying.
+ (Ssh setup): New node.
+ (Windows setup hints): Move it to that new node.
+ (Frequently Asked Questions): Move items about ssh config to that node.
+
+ * etc/NEWS: Add Tramp's direct remote copying feature. Fix typos.
+
+ * lisp/net/tramp-sh.el (tramp-use-scp-direct-remote-copying):
+ New defcustom.
+ (tramp-methods) <scp, scpx>: Add "%y" marker.
+ (tramp-scp-direct-remote-copying): New defun.
+ (tramp-do-copy-or-rename-file-out-of-band): Extend for direct
+ remote copying.
+
+ * lisp/net/tramp.el (tramp-methods): Extend docstring.
+ (tramp-password-prompt-not-unique): New defvar.
+ (tramp-read-passwd): Adapt docstring.
+ (tramp-read-passwd-without-cache): New defun.
+ (tramp-action-password): Call it.
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark nil vc-follow-symlinks as safe
+
+ * lisp/vc/vc-hooks.el (vc-follow-symlinks): A nil value should be
+ safe for file-local (bug#33264).
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use load-read-function in byte-compile-from-buffer
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Use
+ load-read-function.
+
+ * src/lread.c (syms_of_lread): Adjust doc string (bug#33723).
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Vprint_unreadable_function doc string
+
+ * src/print.c (syms_of_print): Clarify Vprint_unreadable_function
+ doc string
+
+2022-01-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'unprintable' stuff
+
+ * src/print.c (syms_of_print) <print-unreadable-function>:
+ * doc/lispref/streams.texi (Input Functions, Output Variables):
+ Improve the documentation of 'print-unreadable-function' and
+ 'readablep'. Add indexing and cross-references.
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve dired-do-create-files slightly
+
+ * lisp/dired-aux.el (dired-do-create-files): Expand slightly upon
+ the doc string (bug#35367). Suggested by Mike Kupfer
+ <mkupfer@alum.berkeley.edu>.
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up multisession--set-value-sqlite slightly
+
+ * lisp/emacs-lisp/multisession.el
+ (multisession--set-value-sqlite): Use `readablep'.
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function 'readablep'
+
+ * doc/lispref/streams.texi (Input Functions): Document it.
+ * lisp/subr.el (readablep): New function (bug#52566).
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new variable print-unreadable-function
+
+ * doc/lispref/streams.texi (Output Variables): Document it.
+
+ * src/print.c (print_vectorlike): Use the variable.
+ (syms_of_print): New variable print-unreadable-function
+ (bug#52566).
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Add some menu bar help code on GNUstep
+
+ * src/nsmenu.m ([EmacsMenu menu:willHighlightItem:]): Implement
+ help event generation for GNUstep.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Fix PGTK build with xwidgets
+
+ * src/xwidget.c: Swap some preprocessor definitions around.
+ Reported by Iñigo Serna <inigoserna@gmail.com>.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Fix GNUstep build warnings
+
+ * src/nsmenu.m
+ ([EmacsMenu menu:updateItem:atIndex:shouldCancel:])
+ ([EmacsMenu menuHasKeyEquivalent:forEvent:target:action:])
+ ([EmacsMenu numberOfItemsInMenu:]): New methods.
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix HTML target marking in shr
+
+ * lisp/net/shr.el (shr-descend): Use a marker (because we may be
+ altering the text later for indentation), and mark the start, not
+ the end of the tag (bug#53409).
+ (shr-tag-a): Ditto.
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Put the old label into the future history in reftex-change-label
+
+ * lisp/textmodes/reftex-global.el (reftex-change-label): Put the
+ old label into the future history so that it can be edited easily
+ (bug#53417).
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the prompt in hi-lock-read-face-name
+
+ * lisp/hi-lock.el (hi-lock-read-face-name): Fix the prompt after
+ recent changes (bug#53255).
+
+2022-01-22 Matthias Meulien <orontee@gmail.com>
+
+ Fix some doc strings in outline.el
+
+ * lisp/outline.el (outline-default-state): Fix doc string.
+ (outline-default-rules): Fix doc string.
+
+2022-01-22 Alan Mackenzie <acm@muc.de>
+
+ Merge branch 'master' into scratch/correct-warning-pos
+
+2022-01-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the test for existing multisession variables more sensible
+
+ * lisp/emacs-lisp/multisession.el (multisession-edit-value):
+ Unconfuse the code.
+
+2022-01-22 Alan Mackenzie <acm@muc.de>
+
+ Miscellaneous amendments to the scratch/correct-warning-pos branch
+
+ * lisp/cedet/semantic/fw.el (semantic-alias-obsolete)
+ (semantic-varalias-obsolete): Replace calls to byte-compile-warn with
calls to
+ byte-compile-warn-x (when it exists).
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-log-warning-function)
+ (byte-compile--log-warning-for-byte-compile): Make the POSITION
parameter no
+ longer &optional (for the benefit of flymake on *.el).
+ (byte-compile-log-warning): Replace a nil POSITION argument with an
actual
+ position.
+ (byte-compile-file-form-require): Push the required symbol onto
+ byte-compile-form-stack, for the benefit of `do-after-load-evaluation'.
+
+ * lisp/keymap.el (define-keymap--compile): Replace four calls to
+ byte-compile-warn with byte-compile-warn-x.
+
+ * doc/lispref/elisp.texi (master menu): Add entries for Shorthands and
Symbols
+ with position.
+
+ * doc/lispref/streams.texi (Input Functions): Document
+ read-positioning-symbols.
+
+ * doc/lispref/symbols.texi (Symbols): Add new menu entry.
+ (Symbols with Position): New @section.
+
+2022-01-22 Eli Zaretskii <eliz@gnu.org>
+
+ Improve detection of suspicious uses of bidi controls
+
+ * lisp/international/textsec.el
+ (textsec-bidi-controls-suspicious-p): New function.
+ (textsec-name-suspicious-p): Use it.
+
+ * test/lisp/international/textsec-tests.el (test-suspicious-name):
+ Enable the test that was previously failing with
+ 'bidi-find-overridden-directionality'.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Prevent raw bytes from being displayed as help text on Haiku
+
+ * src/haikumenu.c (digest_menu_items): Don't set encoded text
+ into the menu item vector.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Use locale coding system to decode XIM preedit text
+
+ * src/xfns.c (x_xim_text_to_utf8_unix): XIMs typically return
+ text in the locale coding system, so use that instead.
+
+2022-01-22 Eli Zaretskii <eliz@gnu.org>
+
+ Change visibility of "Undelete Frame"
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Make "Undelete Frame"
+ always visible. Suggested by Gregory Heytings <gregory@heytings.org>.
+
+2022-01-22 Po Lu <luangruo@yahoo.com>
+
+ Get rid of some unnecessary code in handle_one_xevent
+
+ * src/xterm.c (handle_one_xevent): Stop mutating event->xkey.
+
+2022-01-21 Stefan Kangas <stefankangas@gmail.com>
+
+ * eglot.el (eglot-handle-notification): silence byte-compiler.
+
+2022-01-21 Brian Leung <bkleung89@gmail.com>
+
+ Add support for optional completionitem.tags
+
+ * eglot.el (eglot--lsp-interface-alist): Add optional
CompletionItem.tags.
+ (eglot-completion-at-point): Add :company-deprecated key and value,
+ checking for either the appropriate tag (1) in the :tags property, or
+ a truthy value for the :deprecated property.
+ (eglot-client-capabilities): Advertise tagSupport (for tag == 1) and
+ deprecatedSupport.
+
+ Also load an updated version of seq.el in Emacsen < 27.
+
+ * Makefile (ELPA_DEPS): Require latest seq.el.
+
+2022-01-21 Stefan Kangas <stefankangas@gmail.com>
+
+ Don't use :exclusive no
+
+ See https://github.com/joaotavora/eglot/issues/812 for background, in
particular:
+ https://github.com/joaotavora/eglot/issues/812#issuecomment-1014821345
+
+ * eglot.el (eglot-completion-at-point): Don't use :exclusive no, as it
+ leads to breakage in many cases.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/812
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Fix recent changes to visible bell code
+
+ * src/gtkutil.c (xg_create_scroll_bar):
+ (xg_create_horizontal_scroll_bar): Stop ensuring an X window
+ before the widget is realized.
+ (xg_update_scrollbar_pos):
+ (xg_update_horizontal_scrollbar_pos): Ensure such a window here
+ instead.
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Clean up visible bell code on X
+
+ * src/gtkutil.c (xg_create_scroll_bar):
+ (xg_create_horizontal_scroll_bar): Ensure that the scroll bars
+ have their own X windows.
+ * src/xterm.c (XTflash): Remove use of GDK functions for
+ drawing.
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Fix crash when the visible bell is rung but there is no cairo surface
+
+ * src/pgtkterm.c (pgtk_flash): Return if the cairo surface is
+ not present. (bug#53420)
+ (pgtk_cr_update_surface_desired_size): Reformat comment.
+
+2022-01-21 Paul Eggert <eggert@cs.ucla.edu>
+
+ Avoid glitches in ELC lines in build output
+
+ * src/verbose.mk.in (have_working_info): New macro.
+ (AM_V_ELC, AM_V_ELN): Use 'echo' rather than $(info ...)
+ on buggy versions of GNU Make.
+
+2022-01-21 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify AM_V_ELC setup
+
+ * src/verbose.mk.in (AM_V_ELC, AM_V_ELN): Use simpler Make ‘if’s.
+
+2022-01-21 Glenn Morris <rgm@gnu.org>
+
+ * lisp/cus-start.el (polling-period): Update type.
+
+ Flagged by test-custom-opts.
+
+2022-01-21 Glenn Morris <rgm@gnu.org>
+
+ * src/keyboard.c (start_polling): Fix type mixup.
+
+ Flagged by --enable-check-lisp-object-type.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Disable background image fetching from asking for passwords
+
+ * lisp/url/url-queue.el (url-queue-start-retrieve): Inhibit
+ prompting for passwords from these background requests.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further emake tweaks
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous emake change
+
+ * admin/emake (cores): Fix typo in previous change.
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ * src/keyboard.c (syms_of_keyboard): Fix build without input polling.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the completion-category-overrides doc string
+
+ * lisp/minibuffer.el (completion-category-overrides): Clarify what
+ this variable does (bug#22324).
+ (completion-category-defaults): Mention the overrides variable.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove text mistakenly added to the diff--iterate-hunks doc string
+
+ * lisp/vc/diff-mode.el (diff--iterate-hunks): Remove text added by
+ mistake to the doc string.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Followup fix to previous message-update-smtp-method-header change
+
+ * lisp/gnus/message.el (message-update-smtp-method-header): Narrow
+ to the headers first.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow From to be part of message-hidden-headers
+
+ * lisp/gnus/message.el (message-update-smtp-method-header): Don't
+ bug out if the From header is part of `message-hidden-headers'
+ (bug#52871).
+
+2022-01-21 Jim Porter <jporterbugs@gmail.com>
+
+ Don't use 'eshell-eval-using-options' for 'eshell/source' or 'eshell/.'
+
+ This makes 'source' and '.' in Eshell more compatible with regular
+ shells, which just treat the first argument as the file to source and
+ all subsequent arguments as arguments to that file.
+
+ * lisp/eshell/em-script.el (eshell/source, eshell/.): Don't use
+ 'eshell-eval-using-options'.
+
+ * etc/NEWS: Announce the change (bug#53293)
+
+2022-01-21 Jim Porter <jporterbugs@gmail.com>
+
+ Raise an error from 'eval-eval-using-options' for unknown options
+
+ * lisp/eshell/em-basic.el (eshell/echo): Add -E option.
+
+ * lisp/eshell/esh-opt.el (eshell--process-option): Raise an error if
+ an unknown option is encountered, even when :external is nil.
+
+ * test/lisp/eshell/esh-opt-tests.el (esh-opt-process-args-test)
+ (test-eshell-eval-using-options): Add test cases for this.
+
+2022-01-21 Theodor Thornhill <theo@thornhill.no>
+
+ Fix indentation in NEWS of cl-flet item
+
+ * etc/NEWS: Correct description of indentation of 'cl-flet' and
+ 'cl-labels (bug#53410).
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Splitting Mail in the Gnus manual
+
+ * doc/misc/gnus.texi (Splitting Mail): Clarify what happens when
+ crossposting or not (bug#53307).
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Interpret a "" value of EMACS_TEST_VERBOSE as "off"
+
+ * doc/misc/ert.texi (Running Tests in Batch Mode): Adjust doc.
+ * lisp/emacs-lisp/ert.el (ert-run-tests-batch): Allow overriding
+ the EMACS_TEST_VERBOSE variable by setting it to "" (bug#53313).
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the edebug-all-defs user option work more reliably
+
+ * lisp/emacs-lisp/edebug.el (edebug-all-defs): This user option
+ has no effect unless edebug is loaded (because that loads the
+ advice needed for the commands in question) (bug#53331).
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Make xwidgets work on builds that don't use Cairo drawing
+
+ * configure.ac: Check for the parts of Cairo that are needed for
+ xwidgets when they are enabled without cairo drawing.
+
+ * src/xterm.c:
+ * src/xwidget.c: Always include cairo-xlib headers when xwidgets
+ are enabled.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up mm-display-inline-fontify slightly
+
+ * lisp/gnus/mm-view.el (mm-display-inline-fontify): Remove some
+ left-over compat code.
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make diff--iterate-hunks more resilient
+
+ * lisp/vc/diff-mode.el (diff--iterate-hunks): Ignore malformed
+ hunks instead of signalling errors (bug#53343).
+
+2022-01-21 Shuguang Sun <shuguang79@qq.com>
+
+ Use the correct converter for odf files in doc-view
+
+ * lisp/doc-view.el (doc-view-pdf/ps->png): Use the correct
+ converter for odf files (bug#53354).
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update multisession variables when editing the values
+
+ * lisp/emacs-lisp/multisession.el (multisession-edit-value):
+ Update multisession variables when editing the values (bug#53361).
+
+2022-01-21 Jim Porter <jporterbugs@gmail.com>
+
+ Further improve determination of when commands can be invoked directly
+
+ This covers the case when a subcommand is to be invoked in more places
+ than before, for example when a subcommand is concatenated in an
+ argument.
+
+ * lisp/eshell/esh-cmd.el (eshell--find-subcommands): New fuction.
+ (eshell--invoke-command-directly): Use 'eshell-find-subcommands'.
+
+ * test/lisp/eshell/eshell-tests.el
+ (eshell-test/interp-cmd-external-concat): New test (bug#30725).
+
+2022-01-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust emake after recent changes
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Synchronize XI2 code with Core Input code
+
+ * src/xterm.c (handle_one_xevent): Apply recent changes for XI2
+ events as well.
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Merge from origin/emacs-28
+
+ 11ea45c9e4 Fix UB in ebrowse
+ ba57b78064 Fix execute-extended-command-for-buffer in fundamental-mode
+ ef0c1d4c2c Add workaround to handle a problem with Enlightenment WM (...
+
+2022-01-21 Po Lu <luangruo@yahoo.com>
+
+ Work around GTK changing window backgrounds on colormapped displays
+
+ * src/xterm.c (x_clear_window):
+ (x_clear_area): Fill the contents with the reverse GC instead of
+ using XClearArea and XClearWindow when not double buffered.
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Fix BadValue crash when looking up empty color names on some X servers
+
+ * src/xterm.c (x_parse_color): Avoid parsing empty color names.
+
+2022-01-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ ruby-toggle-block-space-before-parameters: New user option
+
+ * lisp/progmodes/ruby-mode.el
(ruby-toggle-block-space-before-parameters):
+ New user option (bug#53321).
+ (ruby-do-end-to-brace): Handle it.
+
+ * test/lisp/progmodes/ruby-mode-tests.el
+ (ruby-toggle-block-to-brace-no-space): New test.
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Update menu bars when `use-system-tooltips' changes on Haiku
+
+ * lisp/term/haiku-win.el: Add new function as variable watcher
+ for `use-system-tooltips'.
+ (haiku-use-system-tooltips-watcher): New function.
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Allow fractional values of `polling-period'
+
+ This allows C-g to be handled faster in the NS port at the cost
+ of some extra CPU time on slow machines.
+
+ * etc/NEWS: Announce new feature.
+ * src/keyboard.c (start_polling):
+ (bind_polling_period): Handle floating point values of
+ `polling-period'.
+ (syms_of_keyboard): Make `polling-period' a Lisp variable
+ instead of an int variable.
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Avoid FOCUS_IN_EVENTS not being sent on NS
+
+ * src/nsterm.m ([EmacsView windowDidBecomeKey]): Work around
+ emacs_event being NULL by storing focus in events directly
+ into the keyboard buffer. (bug#52376)
+
+2022-01-20 Theodor Thornhill <theo@thornhill.no>
+
+ Enable lsp project-wide diagnostics via flymake
+
+ * eglot.el (eglot-handle-notification): Pass on diagnostics from
+ unvisited files to flymake. Enables project-wide-diagnostics, so that
+ we can view all diagnostics in a given workspace. Uses new
+ functionality from flymake 1.2.1, hence the version bump.
+
+ * eglot-tests.el (project-wide-diagnostics-typescript): New tests
+ showcasing the possibility to see all related diagnostics in a
+ workspace.
+
+ * eglot-tests.el (project-wide-diagnostics-rust-analyzer): New tests
+ showcasing the possibility to see all related diagnostics in a
+ workspace.
+
+ * NEWS.md: Mention the new functionality
+ * README.md: Mention the new functionality
+
+2022-01-20 Alan Mackenzie <acm@muc.de>
+
+ In early bootstrap, use byte-compiled compiler to native compile first
files
+
+ This speeds up a make bootstrap by around 15%.
+
+ * lisp/Makefile.in (BYTE_COMPILE_FLAGS): set a value specific to
compile-first
+ which doesn't contain the setting of Emacs variable load-prefer-newer.
+ Add a new make hunk which byte-compiles (rather then native compiles)
when the
+ environment variable ANCIENT is "yes". Set the date of the .elc files
built
+ to 1971-01-01 to cause a second compilation of them later.
+
+ * src/Makefile.in: Add an extra invocation of directory lisp's MAKE with
+ target compile-first and the flag environment variable ANCIENT set to
yes.
+
+ * src/verbose.mk.in: When ANCIENT is yes, output ELC, not ELC+ELN for
+ AM_V_ELC.
+
+2022-01-20 Arash Esbati <arash@gnu.org>
+
+ Remove matching of whitespaces in LaTeX environment names
+
+ * lisp/textmodes/ispell.el (ispell-tex-skip-alists): Don't match
+ arbitrary number of whitespaces in LaTeX environment names.
+ (bug#53390)
+
+2022-01-20 Eli Zaretskii <eliz@gnu.org>
+
+ Update documentation of 'clone-indirect-buffer-hook'
+
+ * doc/emacs/buffers.texi (Indirect Buffers):
+ * src/buffer.c (syms_of_buffer) <clone-indirect-buffer-hook>:
+ Update the documentation of 'clone-indirect-buffer-hook' due the
+ recent changes.
+ * etc/NEWS: Mention the change in where the hook is run.
+
+ * lisp/face-remap.el (face-attrs--make-indirect-safe): Doc fix.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make textsec-link-suspicious-p less mistrustful
+
+ * lisp/international/textsec.el (textsec-link-suspicious-p): Scale
+ back the suspicion -- only warn about texts that contain a full
+ explicit link.
+
+2022-01-20 Thuna <thuna.cing@gmail.com> (tiny change)
+
+ Fix tabulated-list-widen-current-column widening wrong column
+
+ * tabulated-list.el (tabulated-list-widen-current-column): Account
+ for the padding and the content width when calculating column
+ width (bug#53375).
+
+2022-01-20 Peter Münster <pm@a16n.net>
+
+ Make image-dired-delete-marked more resilient
+
+ * lisp/image-dired.el (image-dired-delete-marked): Don't bug out
+ on empty buffers (bug#53385).
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix thinko in previous hi-lock-read-face-name change
+
+ * lisp/hi-lock.el (hi-lock-read-face-name): Fix the string/symbol
+ logic.
+
+2022-01-20 Andrew Hyatt <ahyatt@gmail.com>
+
+ Fix indirect font changes incorrectly affecting original buffer
+
+ * lisp/face-remap.el (face-attrs--make-indirect-safe):
+ (clone-indirect-buffer-hook): Set up a face remapping alist
+ (bug#53294).
+
+ * lisp/simple.el (clone-indirect-buffer): Move the point the hook
+ is run.
+
+ * src/buffer.c (Fmake_indirect_buffer, syms_of_buffer): Move the
+ place where the clone-indirect-buffer-hook variable is defined, so
+ that we can call it from C.
+
+2022-01-20 Jim Porter <jporterbugs@gmail.com>
+
+ Consider subcommands when deciding to invoke Eshell command directly
+
+ When an Eshell command contains an asynchronous subcommand (such as
+ calling an external process), it must be evaluated iteratively. See
+ bug#30725.
+
+ * lisp/eshell/esh-cmd.el (eshell-invoke-command): Move most of the
+ logic from here...
+ (eshell--invoke-command-directly): ... to here. Also add checks for
+ subcommands.
+
+ * test/lisp/eshell/eshell-tests.el (eshell-test--max-subprocess-time):
+ New variable.
+ (eshell-wait-for-subprocess): New function.
+ (eshell-command-result-p): Use 'eshell-wait-for-subprocess'.
+ (eshell-test/interp-cmd-external): New test (bug#30725).
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename the textsec-check function to textsec-suspicious-p
+
+ * lisp/net/shr.el (shr-tag-a):
+ * lisp/international/textsec-check.el (textsec-suspicious-p):
+ * lisp/gnus/message.el (message-send-mail):
+ * lisp/gnus/gnus-art.el (article--check-suspicious-addresses):
+ * etc/NEWS (like):
+ * doc/lispref/text.texi (Suspicious Text):
+ (Suspicious Text): Rename the textsec-check function to
+ textsec-suspicious-p.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the read-face-name completion buffer display samples
+
+ * lisp/faces.el (read-face-name): Display face samples when
+ completing (bug#53255).
+
+ * lisp/hi-lock.el (hi-lock-read-face-name): Use read-face-name.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the textsec-domain-suspicious-p warning message
+
+ * lisp/international/textsec.el (textsec-domain-suspicious-p):
+ Improve warning message.
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Fix error when describing menu items that don't have equivalent keys
+
+ * lisp/help-fns.el (help-fns--key-bindings): Never pass nil to
+ insert.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make textsec-link-suspicious-p have fewer false positives
+
+ * lisp/international/textsec.el (textsec-link-suspicious-p):
+ Attempt to improve the domain-guessing logic.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve how menus are described in *Help*
+
+ * lisp/help-fns.el (help-fns--insert-bindings): New function.
+ (help-fns--key-bindings): Split menu/key handling and output menu
+ bindings separately (bug#52870).
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Make system tooltips display in the menu bar on Haiku
+
+ * doc/emacs/haiku.texi (Haiku Basics): Update documentation.
+ * src/haiku_support.cc (Highlight): Apply the hack used for
+ regular menus to the menu bar as well.
+ * src/haikumenu.c (digest_menu_items): Set help text on menu bar
+ if `tooltip-mode' is t and system tooltips are used.
+ (syms_of_haikumenu): New symbol `tooltip-mode'.
+
+2022-01-20 Mattias Engdegård <mattiase@acm.org>
+
+ Fix Fchar_syntax for non-ASCII in unibyte buffers
+
+ Fchar_syntax did not convert unibyte characters to multibyte when the
+ current buffer was unibyte, in contrast to `char-syntax` in
+ byte-compiled code (bug#53260).
+
+ * src/bytecode.c (exec_byte_code): Call out to Fchar_syntax;
+ the dynamic frequency is too low to justify inlining here, and it
+ did lead to implementations diverging.
+ * src/syntax.c (Fchar_syntax): Convert non-ASCII unibyte values to
+ multibyte.
+ * test/src/syntax-tests.el (syntax-char-syntax): New test.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-enable some textsec-tests after recent bidi.c fix
+
+2022-01-20 Jim Porter <jporterbugs@gmail.com>
+
+ In Eshell, allow "-n" to suppress the trailing newline for "plain" echo
+
+ * doc/misc/eshell.texi (Built-in commands): Expand on the
+ documentation of echo (bug#27361).
+ * lisp/eshell/em-basic.el (eshell-echo): Respect OUTPUT-NEWLINE even
+ when 'eshell-plain-echo-behavior' is non-nil.
+ (eshell/echo): Add "-N" option and recommend its use over "-n" in
+ Lisp-friendly echo.
+ (eshell/printnl): Simplify; 'eshell-stringify' is equivalent to
+ calling 'eshell-echo' here.
+
+2022-01-20 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'bidi-find-overridden-directionality' for Lisp strings
+
+ * src/bidi.c (bidi_find_first_overridden): Don't use ZV for Lisp
+ strings. Reported by Lars Ingebrigtsen <larsi@gnus.org>.
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Make the undelete-frame-mode menu item a toggle
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Make the undelete frame
+ mode option a toggle. (bug#53382)
+ Also enable some options that were disabled on NS, but should no
+ longer be since NS now supports the tab bar.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make key-valid-p work in Turkey
+
+ * lisp/keymap.el (key-valid-p): Inhibit case folding, otherwise
+ (key-valid-p "I") would return nil in tr_TR environments.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak textsec-link-suspicious-p
+
+ * lisp/international/textsec.el (textsec-link-suspicious-p): Don't
+ mark dates as suspicious.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add test for bug#51733
+
+2022-01-20 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of textsec
+
+ * lisp/international/textsec-check.el (textsec-check): Doc fixes.
+
+ * doc/lispref/text.texi (Suspicious Text): Improve wording and
+ indexing.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow suspicious names with some forms of bidi controls
+
+ * lisp/international/textsec.el (textsec-name-suspicious-p): Allow
+ names with bidi-find-overridden-directionality.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve textsec-domain-suspicious-p message
+
+ * lisp/international/textsec.el (textsec-domain-suspicious-p):
+ Improve warning message.
+
+2022-01-20 Eli Zaretskii <eliz@gnu.org>
+
+ Allow disabling 'undelete-frame-mode' from the menu bar
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Add
+ 'disable-undelete-frame-mode' menu item. (Bug#53382)
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document textsec
+
+ * doc/lispref/elisp.texi (Top): Add menu.
+ * doc/lispref/text.texi (Text): Add menu.
+ (Suspicious Text): New node.
+
+ * lisp/international/textsec-check.el (textsec-check): Adjust doc
+ string.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check link text domain suspiciousness
+
+ * lisp/international/textsec.el (textsec-link-suspicious-p): Check
+ whether the domain in the link text is suspicious.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Expand textsec-link-suspicious-p checking
+
+ * lisp/international/textsec.el (textsec-link-suspicious-p): Check
+ the text more thoroughly for link-like things.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve textsec-domain-suspicious-p message
+
+ * lisp/international/textsec.el (textsec-domain-suspicious-p):
+ Ensure that we're not confusing the user if there's a directional
+ override in the string we're checking.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new bidi-string-strip-control-characters function
+
+ * lisp/international/characters.el
+ (bidi-string-strip-control-characters): New function.
+
+2022-01-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make article--check-suspicious-addresses more resilient
+
+ * lisp/gnus/gnus-art.el (article--check-suspicious-addresses): Be
+ more resilient to junk in headers. (But all this should be rewritten
+ eventually, because the entire process is way too convoluted.)
+
+2022-01-20 Po Lu <luangruo@yahoo.com>
+
+ Make `nil' values of the `:position' underline property work correctly
+
+ * src/xfaces.c (Finternal_set_lisp_face_attribute): Handle cases
+ where the underline property `:position' is nil.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Port hourglass display to XCB
+
+ * src/xterm.c (x_show_hourglass):
+ (x_hide_hourglass): Use straightforward translations to XCB if
+ available.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Get rid of calls to XRenderQueryExtension after terminal initialization
+
+ * src/image.c (x_create_xrender_picture):
+ (Fimage_transforms_p): Use `xrender_supported_p'.
+
+ * src/xterm.c (x_term_init): Query for XRender support and
+ extension versions.
+
+ * src/xterm.h (struct x_display_info): New fields
+ `xrender_supported_p', `xrender_major' and `xrender_minor'.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Implement selection ownership on Haiku
+
+ * lisp/term/haiku-win.el (haiku-selection-owner-p): New
+ declaration.
+ (gui-backend-selection-owner-p): Implement using newly exposed
+ primitive.
+
+ * src/haiku_select.cc
+ (count_clipboard, count_primary, count_secondary): New
+ variables for tracking selection ownership.
+ (BClipboard_set_system_data):
+ (BClipboard_set_primary_selection_data):
+ (BClipboard_set_secondary_selection_data): Set ownership
+ variables.
+ (BClipboard_owns_clipboard):
+ (BClipboard_owns_primary):
+ (BClipboard_owns_secondary): New functions.
+
+ * src/haikuselect.c (Fhaiku_selection_owner_p): New function.
+ (syms_of_haikuselect): Define new subr.
+ * src/haikuselect.h: New prototypes.
+
+2022-01-19 Derek Passen <dpassen1@gmail.com> (tiny change)
+
+ Add clojure-lsp support for clojure
+
+ * eglot.el (eglot-server-programs): Add clojure-lsp for Clojure.
+ * README.md: Document the above change.
+
+2022-01-19 Andrea Corallo <akrl@sdf.org>
+
+ Suspend temp .elc production when native compiling till when necessary
+
+ * lisp/emacs-lisp/bytecomp.el (byte-to-native-output-buffer-file):
+ Rename from `byte-to-native-output-file'.
+ (byte-write-target-file): Update.
+ (byte-compile-file): Write the temporary .elc only when not native
+ compiling.
+ (byte-compile-file): Kill the .elc buffer only when not native
+ compiling.
+ * lisp/emacs-lisp/comp.el (batch-byte+native-compile): Instead of just
+ renaming the temporary .elc make use of `byte-write-target-file' to
+ write it down and kill the temporary buffer.
+
+2022-01-19 Andrea Corallo <akrl@sdf.org>
+
+ * Move some code in in `byte-write-target-file'.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-write-target-file): New function
+ spilling code from `byte-compile-file'.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make article--check-suspicious-addresses more resilient
+
+ * lisp/gnus/gnus-art.el (article--check-suspicious-addresses):
+ Don't bug out on mbox-less addresses.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak the previous suspicious Message change
+
+ * lisp/gnus/message.el (message-check-recipients)
+ (message-send-mail): Move the check to after encoding.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make Message check for invalid recipients before sending
+
+ * lisp/gnus/message.el (message-check-recipients): Check for
+ suspicious addresses before sending (bug#51733).
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make textsec-mixed-numbers-p actually work
+
+ * lisp/international/textsec.el (textsec-mixed-numbers-p): Fix the
+ test.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make Gnus check for suspicious headers
+
+ * lisp/gnus/gnus-art.el (gnus-treat-suspicious-headers): New user
+ option.
+ (gnus-article-treat-suspicious-headers): New function.
+ (article-decode-encoded-words): Hook into the machinery to check
+ headers.
+ (article--check-suspicious-addresses): New function.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add text for suspicious links
+
+ * lisp/international/textsec-check.el (textsec-check): Note `link'.
+ (textsec-propertize): Fix typo.
+
+ * lisp/international/textsec.el (textsec-link-suspicious-p): New
+ function.
+
+ * lisp/net/shr.el (shr-tag-a): Check for sus links.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't overwrite the link text in shr-tag-a for suspicious URLs
+
+ * lisp/net/shr.el (shr-tag-a): Tweak how the suspiciousness
+ warning is handled.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix thinko in textsec-url-suspicious-p
+
+ * lisp/international/textsec.el (textsec-url-suspicious-p): Don't
+ bug out on non-HTTP URLs.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make shr mark links with suspicious URLs
+
+ * lisp/international/textsec-check.el (textsec-propertize): New
+ function.
+ (textsec-check): Only check, don't alter STRING.
+
+ * lisp/international/textsec.el (textsec-url-suspicious-p): New
+ function.
+
+ * lisp/net/shr.el (shr-tag-a): Mark suspicious links.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new file textsec-check.el
+
+ * lisp/international/textsec-check.el: New file.
+ * lisp/international/textsec.el
+ (textsec-email-address-header-suspicious-p): Rename.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark whole-script confusables as suspicious domains
+
+ * lisp/international/textsec.el (textsec-domain-suspicious-p):
+ Consider domain names that are whole-script confusables with ASCII
+ to be suspicious. (I think this is what the Unicode standard is
+ recommending, but I'm not 100% sure.)
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Split textsec-email-address-suspicious-p into two functions
+
+ * lisp/international/textsec.el
+ (textsec-email-address-suspicious-p): Made into its own function.
+ (textsec-email-suspicious-p): Use it and adjust doc strings.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make textsec-suspicious-nonspacing-p work on marks
+
+ * lisp/international/textsec.el (textsec-suspicious-nonspacing-p):
+ We're only interested in nonspacing marks, not control characters
+ in this test.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Fix recent change for big endian systems where `Atom' is 64 bits
+
+ * src/xfns.c (x_create_tip_frame): Cast atoms to xcb_atom_t
+ and pass a reference to that to xcb_change_property instead.
+
+2022-01-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/cus-face.el (custom-face-attributes): Expose the lambdas
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Port some X11 tooltip code to XCB
+
+ * configure.ac: Require `xcb-aux' to be present before using
+ XCB.
+ * src/xfns.c (x_sync):
+ (x_create_tip_frame):
+ (Fx_show_tip): Port window related code to XCB.
+
+2022-01-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Deconfuse textsec doc strings slightly
+
+ * lisp/international/textsec.el (textsec-name-suspicious-p):
+ (textsec-domain-suspicious-p):
+ (textsec-local-address-suspicious-p):
+ (textsec-name-suspicious-p):
+ (textsec-suspicious-nonspacing-p):
+ (textsec-email-suspicious-p): Suspiciosness isn't only about
+ homoglyphs, so don't claim so in the doc strings.
+
+2022-01-19 Robert Pluim <rpluim@gmail.com>
+
+ Improve textsec doc strings
+
+ * lisp/international/textsec.el (textsec-domain-suspicious-p)
+ (textsec-local-address-suspicious-p, textsec-name-suspicious-p)
+ (textsec-suspicious-nonspacing-p): Improve doc strings.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Use Cairo XCB surfaces when XCB is available
+
+ This lets us get at goodies such as shm support, which aren't
+ available with the xlib surface. (bug#52120)
+
+ * configure.ac: Test for cairo-xcb if cairo is available on X.
+ * src/xterm.c (USE_CAIRO_XCB_SURFACE): New define.
+ (x_begin_cr_clip): Create XCB surfaces if available.
+ (x_try_cr_xlib_drawable):
+ (x_scroll_run): Handle XCB surfaces.
+ (x_term_init): Find XCB visualtype structure.
+ * src/xterm.h (struct x_display_info): New field `xcb_visual'.
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Fix integer
+ overflow.
+
+2022-01-19 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvement in textsec diagnostics
+
+ * lisp/international/textsec.el (textsec-suspicious-nonspacing-p):
+ Clarify wording of the strings returned to explain the suspicious
+ use of nonspacing characters.
+
+2022-01-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Respect structure of Tramp archive file names
+
+ * lisp/net/tramp.el (tramp-make-tramp-file-name):
+ Respect structure of archive file names.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (Fx_display_mm_width): Fix copy-paste error.
+
+2022-01-19 Po Lu <luangruo@yahoo.com>
+
+ Rename system tooltip variables to `use-system-tooltips'
+
+ * doc/emacs/frames.texi (Tooltips):
+ * doc/emacs/haiku.texi (Haiku Basics):
+ * doc/lispref/display.texi (Tooltips): Document
+ `use-system-tooltips' instead.
+
+ * etc/NEWS: Announce new option.
+ * lisp/cus-start.el (standard): Add new option.
+
+ * lisp/term/haiku-win.el (haiku-use-system-tooltips):
+ * lisp/term/pgtk-win.el (x-gtk-use-system-tooltips):
+ * lisp/term/x-win.el (x-gtk-use-system-tooltips): Add aliases
+ for old options.
+
+ * src/frame.c (syms_of_frame): New variable
+ `use-system-tooltips'.
+
+ * src/haikufns.c (Fx_show_tip):
+ (syms_of_haikufns):
+ * src/pgtkfns.c (x_hide_tip):
+ (Fx_show_tip):
+ (syms_of_pgtkfns):
+ * src/xfns.c (x_hide_tip):
+ (Fx_show_tip):
+ (syms_of_xfns): Use `use-system-tooltips' instead of the old
+ platform dependent options.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ Use more reliable timestamps for some kinds of events on Haiku
+
+ * src/haiku_support.cc (DispatchMessage):
+ (MouseMoved):
+ (MouseDown):
+ (MouseUp): Set `time' field of event structures to input server
+ time.
+ * src/haiku_support.h (struct haiku_key_event):
+ (struct haiku_mouse_motion_event):
+ (struct haiku_button_event): New field `time'.
+ * src/haikuterm.c (haiku_read_socket): Use input server time
+ if provided.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ Fix event timestamp generation on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Use miliseconds for event
+ time.
+
+2022-01-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic-tests.el: Fix warning
+
+ * test/lisp/emacs-lisp/cl-generic-tests.el (ert): Require at run-time
+ for `ert--get-explainer`.
+
+2022-01-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ VC: Fix tests for SCCS and Mtn
+
+ * test/lisp/vc/vc-tests.el: Prefer closures to `(lambda ...).
+ (vc-test-mtn05-rename-file, vc-test-mtn06-version-diff): Skip.
+
+ * lisp/vc/vc.el (vc-responsible-backend): Fix vc-test--register on SCCS.
+
+2022-01-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ autoload.el: Fix corner case and avoid encoding issues
+
+ * lisp/emacs-lisp/autoload.el (autoload-print-form): Don't burp when
+ autoloading a `cl-defmethod`.
+ (autoload-rubric): Support non-UTF-8 chars and enforce Unix EOLs.
+
+2022-01-18 Eli Zaretskii <eliz@gnu.org>
+
+ Improve doc strings in textsec.el
+
+ * lisp/international/textsec.el (textsec-mixed-numbers-p)
+ (textsec-ascii-confusable-p, textsec-resolved-script-set)
+ (textsec-single-script-confusable-p)
+ (textsec-mixed-script-confusable-p)
+ (textsec-whole-script-confusable-p, textsec-domain-suspicious-p)
+ (textsec-local-address-suspicious-p, textsec-name-suspicious-p)
+ (textsec-suspicious-nonspacing-p): Doc fix.
+
+2022-01-18 Eli Zaretskii <eliz@gnu.org>
+
+ Remove 'cuneiform-numbers-and-punctuation' from w32font.c
+
+ * src/w32font.c (syms_of_w32font, font_supported_scripts): Remove
+ 'cuneiform-numbers-and-punctuation'. Reported by Kévin Le Gouguec
+ <kevin.legouguec@gmail.com>.
+
+2022-01-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ The name in textsec-email-suspicious-p is optional
+
+ * lisp/international/textsec.el (textsec-email-suspicious-p): The
+ name is optional.
+
+2022-01-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add textsec functions for verifying email addresses
+
+ * lisp/international/characters.el (bidi-control-characters):
+ Rename from glyphless--bidi-control-characters for use in textsec,
+ and add LRM/RLM/ALM.
+ (update-glyphless-char-display): Adjust the code.
+
+ * lisp/international/textsec.el (textsec-local-address-suspicious-p)
+ (textsec-name-suspicious-p, textsec-suspicious-nonspacing-p)
+ (textsec-email-suspicious-p): New functions.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ Intern virtual modifier atoms the smart way on X
+
+ * src/xterm.c (x_find_modifier_meanings): Get rid of calls to
+ XInternAtom.
+ (x_term_init): Initialize atom refs for virtual modifiers and
+ make sure to only call `x_find_modifier_meanings' after they
+ are interned.
+ * src/xterm.h (struct x_display_info): New fields for virtual
+ modifier atoms.
+
+2022-01-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add textsec-domain-suspicious-p
+
+ * .gitignore: Ignore idna-mapping.el.
+
+ * admin/notes/unicode: Note idna-mapping file.
+ * admin/unidata/IdnaMappingTable.txt: New file.
+
+ * admin/unidata/Makefile.in (all): Generate idna-mapping.el.
+
+ * admin/unidata/unidata-gen.el (unidata-gen-idna-mapping): Generate.
+
+ * lisp/international/textsec.el (textsec-domain-suspicious-p): New
+ function.
+
+2022-01-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Morka handling of multi-hops in Tramp more consistent
+
+ * lisp/net/tramp.el (tramp-make-tramp-file-name): Adapt argument list.
+ Add hops to `tramp-default-proxies-alist'.
+ (tramp-find-foreign-file-name-handler): Adapt argument list.
+ (tramp-handle-abbreviate-file-name): Abbreviate multi-hops.
+ (tramp-handle-file-remote-p): Adapt handling of hops.
+ (tramp-add-hops): New defun.
+ (tramp-compute-multi-hops): Use it.
+
+ * lisp/net/tramp.el (tramp-make-tramp-hop-name, tramp-get-buffer)
+ (tramp-file-name-handler, tramp-handle-file-truename)
+ (tramp-handle-insert-file-contents, tramp-local-host-p)
+ (tramp-read-passwd, tramp-clear-passwd):
+ * lisp/net/tramp-archive.el (tramp-archive-dissect-file-name)
+ (tramp-archive-gvfs-file-name):
+ * lisp/net/tramp-cache.el (tramp-get-hash-table):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-truename)
+ (tramp-sh-handle-make-process, tramp-sh-handle-process-file)
+ (tramp-sh-file-name-handler-p, tramp-get-remote-path):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-file-truename):
+ Adapt callees.
+
+ * test/lisp/net/tramp-tests.el (tramp-test02-file-name-dissect)
+ (tramp-test02-file-name-dissect-simplified)
+ (tramp-test02-file-name-dissect-separate)
+ (tramp-test07-abbreviate-file-name): Adapt tests.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuterm.c (haiku_read_socket): Add work for frame size bug.
+
+ BWindow::ResizeTo seems to have the same rounding issues that
+ BRect has, but I have no idea how to solve it there. As a
+ temporary workaround until a solution has been found, avoid
+ garbaging tooltip frames when FrameResized reports different
+ dimensions from what they were set to.
+
+2022-01-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add textsec predicates for different types of confusability
+
+ * lisp/international/textsec.el (textsec-resolved-script-set)
+ (textsec-single-script-confusable-p)
+ (textsec-mixed-script-confusable-p)
+ (textsec-whole-script-confusable-p): New functions.
+
+2022-01-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add textsec support for confusable characters
+
+ * admin/notes/unicode: Note the confusables.txt file.
+ * admin/unidata/Makefile.in (${unidir}/uni-confusable.el):
+ Generate the confusable file.
+
+ * admin/unidata/README (https): Add confusables.txt.
+
+ * admin/unidata/confusables.txt: New file.
+
+ * admin/unidata/unidata-gen.el (unidata-gen-confusable): Parse the
+ confusables.txt file.
+
+ * lisp/international/textsec.el (textsec-ascii-confusable-p)
+ (textsec-unconfuse-string): New functions.
+
+2022-01-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve textsec-restriction-level doc string
+
+ * lisp/international/textsec.el (textsec-restriction-level):
+ Improve doc string.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (Fx_show_tip): Fix typo.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ Fix default value of `no-special-glyphs' frame parameter on Haiku
+
+ * src/haikufns.c (haiku_create_frame): Make `no-special-glyphs'
+ nil by default.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ Improve tooltip implementation on Haiku
+
+ This fixes several issues: tooltips having no right internal
+ border, reusing tooltips occasionally freezing Emacs, and
+ inconsistent behaviour when compared to X.
+
+ * src/haiku_support.cc (BWindow_resize): Revert a recent change.
+ (BView_move_frame):
+ (BWindow_set_avoid_focus): Stop sync'ing when locked. This
+ tends to cause lockups for an unknown reason.
+ * src/haikufns.c (initial_setup_back_buffer): New function.
+ (haiku_create_frame): Remove tooltip related code.
+ (haiku_set_internal_border_width): Handle cases where the face
+ cache is NULL and/or the window has not been created.
+ (haiku_set_inhibit_double_buffering): Likewise.
+ (haiku_create_tip_frame): New function.
+ (Fx_create_frame): Remove tooltip specific code.
+ (Fx_show_tip): Synchronize code with X.
+
+ * src/haikuterm.c (haiku_new_font): Don't adjust size on tooltip
+ frames.
+ (haiku_read_socket): Draw internal border on tooltip frames
+ during resize.
+ (haiku_clear_under_internal_border): Handle cases where the face
+ cache is NULL.
+
+2022-01-18 Po Lu <luangruo@yahoo.com>
+
+ * lisp/tooltip.el (tooltip-show-help): Fix typo.
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ * lisp/tooltip.el: Fix warning when built on a non-Haiku system.
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ Fix system tooltips above menus
+
+ * src/haikufns.c (Fx_show_tip): Disable frame reuse inside a
+ menu.
+ (syms_of_haikufns): New symbol `tooltip-reuse-hidden-frame'.
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ Allow non-system tooltips to display above menus on Haiku
+
+ * doc/emacs/haiku.texi (Haiku Basics): Document that tooltips
+ can now be displayed above the menu bar.
+
+ * lisp/tooltip.el (tooltip-show-help): Only display help text in
+ the echo area if Haiku system tooltips are enabled.
+
+ * src/haiku_support.cc (FlipBuffers): Stop flushing view.
+ * src/haikufns.c (Fx_show_tip): Fix a sizing bug leading to
+ tooltips needing two redisplays to display correctly.
+ * src/haikuterm.c (haiku_read_socket): Ignore resize events on
+ tooltips.
+
+2022-01-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (hack-local-variables--find-variables): Use `user-error`
+
+ * lisp/files.el (hack-local-variables--find-variables):
+ Incorrect formatting are not coding errors.
+
+2022-01-17 Stefan Kangas <stefankangas@gmail.com>
+
+ Change rust language server to rust-analyzer
+
+ rust-analyzer is the officially blessed Language Server for Rust:
+ https://github.com/rust-lang/rfcs/pull/2912
+
+ Also drop the special support code for RLS.
+
+ * eglot.el (eglot-server-programs): Add rust-mode language server
+ "rust-analyzer" and prefer it to the older "rls".
+ (eglot-rls, jsonrpc-connection-ready-p)
+ (eglot-handle-notification): Delete special support for "rls".
+
+ * eglot-tests.el (rls-analyzer-watches-files)
+ (rls-analyzer-hover-after-edit): Rename to ...
+ (rust-analyzer-watches-files)
+ (rust-analyzer-hover-after-edit): ... this. Update tests to work
+ with rust-analyzer.
+ * README.md: Update references for RLS to point to rust-analyzer.
+ * NEWS.md: Announce above change.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/803
+
+2022-01-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix minor inconsistencies in 'char-script-table'
+
+ * admin/unidata/blocks.awk (name2alias): Map some obscure blocks
+ to their native scripts, to follow Scripts.txt.
+
+ * lisp/international/characters.el (char-script-table): Add
+ few exceptions.
+ * lisp/international/fontset.el (script-representative-chars):
+ Remove scripts no longer used.
+
+2022-01-17 Eli Zaretskii <eliz@gnu.org>
+
+ Doc fixes in textsec.el
+
+ * lisp/international/textsec.el (textsec-scripts)
+ (textsec-single-script-p, textsec-covering-scripts): Clarify "script".
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change textsec-mixed-numbers-p to use recommended algorithm
+
+ * lisp/international/textsec.el (textsec-mixed-numbers-p): New
+ function.
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function textsec-mixed-numbers-p
+
+ * lisp/international/textsec.el (textsec-mixed-numbers-p): New
+ function.
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add some textsec-restriction-level comments
+
+ * lisp/international/textsec.el (textsec-restriction-level): Add
+ comment about source of the list of languages.
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add textsec-restriction-level function
+
+ * lisp/international/textsec.el (textsec-restriction-level): New
+ function.
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some doc strings in textsec.el
+
+ * lisp/international/textsec.el (textsec-single-script-p): Fix
+ typo in doc string.
+ (textsec-covering-scripts): Improve doc string and sort the results.
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid loading the possibly stale unidata-gen.elc file
+
+ * admin/unidata/Makefile.in (${unidir}/uni-scripts.el): Fix .elc
+ staleness. (Should probably be fixed in a different way.)
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for functions that deal with Unicode scripts
+
+ * admin/unidata/Makefile.in (${unidir}/uni-scripts.el): Build
+ uni-scripts.el.
+
+ * admin/unidata/Scripts.txt:
+ * admin/unidata/ScriptExtensions.txt:
+ * admin/unidata/PropertyValueAliases.txt: New files from Unicode.
+
+ * admin/unidata/README: Update.
+
+ * admin/unidata/unidata-gen.el (unidata-gen-charprop): Allow
+ writing other data, too.
+ (unidata-gen-scripts, unidata-gen--read-script-aliases)
+ (unidata-gen--insert-file): New functions to parse the Script* files.
+
+ * lisp/international/textsec.el: Implement some functions that
+ work on scripts.
+
+2022-01-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move the Gnus range functions to a new range.el file
+
+ * lisp/emacs-lisp/range.el: New file.
+
+ * lisp/gnus/gnus-agent.el (range):
+ (gnus-agent-synchronize-group-flags):
+ (gnus-agent-possibly-alter-active):
+ (gnus-agent-fetch-headers):
+ (gnus-agent-read-agentview):
+ (gnus-agent-fetch-group-1):
+ (gnus-agent-read-p):
+ (gnus-agent-expire-group-1):
+ (gnus-agent-retrieve-headers): Adjust callers.
+
+ * lisp/gnus/gnus-art.el (range):
+ (gnus-article-describe-bindings):
+
+ * lisp/gnus/gnus-cloud.el (range):
+ (gnus-cloud-available-chunks):
+
+ * lisp/gnus/gnus-draft.el (gnus-group-send-queue):
+
+ * lisp/gnus/gnus-group.el (range):
+ (gnus-group-line-format-alist):
+ (gnus-number-of-unseen-articles-in-group):
+ (gnus-group-update-eval-form):
+ (gnus-group-read-group):
+ (gnus-group-delete-articles):
+ (gnus-group-catchup):
+ (gnus-group-expire-articles-1):
+ (gnus-add-marked-articles):
+
+ * lisp/gnus/gnus-int.el (gnus-request-marks):
+
+ * lisp/gnus/gnus-kill.el (gnus-apply-kill-file-internal):
+
+ * lisp/gnus/gnus-range.el (gnus-range-difference)
+ (gnus-sorted-range-intersection, gnus-uncompress-range)
+ (gnus-add-to-range, gnus-remove-from-range)
+ (gnus-member-of-range, gnus-list-range-intersection)
+ (gnus-list-range-difference, gnus-range-length, gnus-range-add)
+ (gnus-range-map): Make into obsolete aliases.
+
+ * lisp/gnus/gnus-start.el (gnus-make-articles-unread):
+ (gnus-convert-old-ticks):
+ (gnus-read-old-newsrc-el-file):
+
+ * lisp/gnus/gnus-sum.el (gnus-select-newsgroup):
+ (gnus-articles-to-read):
+ (gnus-articles-to-read):
+ (gnus-killed-articles):
+ (gnus-adjust-marked-articles):
+ (gnus-update-marks):
+ (gnus-update-marks):
+ (gnus-compute-read-articles):
+ (gnus-list-of-read-articles):
+ (gnus-summary-update-info):
+ (gnus-summary-move-article):
+ (gnus-summary-expire-articles):
+ (gnus-update-read-articles):
+ (gnus-summary-insert-old-articles):
+ (gnus-summary-insert-old-articles):
+ (gnus-summary-insert-old-articles):
+
+ * lisp/gnus/mail-source.el (gnus-range):
+ (gnus-compress-sequence):
+
+ * lisp/gnus/nnheader.el (range):
+ (gnus-range-add):
+ (nnheader-update-marks-actions):
+
+ * lisp/gnus/nnimap.el (nnimap-update-info):
+ (nnimap-update-info):
+ (nnimap-update-info):
+ (nnimap-update-qresync-info):
+ (nnimap-update-qresync-info):
+ (nnimap-update-qresync-info):
+ (nnimap-parse-copied-articles):
+
+ * lisp/gnus/nnmaildir.el (nnmaildir-request-update-info):
+ (nnmaildir-request-update-info):
+ (nnmaildir-request-expire-articles):
+ (nnmaildir-request-expire-articles):
+ (nnmaildir-request-set-mark):
+
+ * lisp/gnus/nnmairix.el (nnmairix-request-set-mark):
+
+ * lisp/gnus/nnmbox.el (nnmbox-record-active-article):
+ (nnmbox-record-deleted-article):
+
+ * lisp/gnus/nnml.el (nnml-request-compact-group):
+
+ * lisp/gnus/nnvirtual.el (nnvirtual-request-expire-articles):
+ * lisp/gnus/nnselect.el (numbers-by-group):
+ (nnselect-request-update-info):
+ (nnselect-push-info):
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ Merge from origin/emacs-28
+
+ f393d0d441 Fix regression leading to flickering tooltips when the mou...
+
+2022-01-17 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Add undelete-frame-max instead of undelete-frame-mode
(bug#51883)"
+
+ This reverts commit 714e11d53534416b6519396a9df5d62054731810.
+
+ That commit was unilateral and disregarded past discussions.
+
+2022-01-17 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "* etc/NEWS: Improve wording of 'undelete-frame-max'
(bug#51883)."
+
+ This reverts commit 65666c47863c4ad2ed4bacd1a0bc5e638269df52.
+
+ The original commit was unilateral and disregarded past
+ discussions.
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ Fix Emacs icon not appearing on Haiku
+
+ * lib-src/be_resources.cc (main): Scale input bitmap
+ appropriately before setting it as the mini and large icons.
+ * src/Makefile.in (Emacs): Add dependency on
+ `lib-src/be-resources'.
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ Use BControlLook to determine scroll bar size on Haiku
+
+ * src/haiku_support.cc (BScrollBar_default_size): Use
+ BControlLook instead of legacy constants.
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ Display override redirect frames in all workspaces on Haiku
+
+ * src/haiku_support.cc (class EmacsWindow): New field
+ `pre_override_redirect_workspaces'.
+ (BWindow_set_override_redirect): Set window to display on all
+ workspaces.
+
+2022-01-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve handling of INFILE in tramp*-process-file (Bug#53284)
+
+ * lisp/net/tramp-adb.el (tramp-adb-handle-process-file):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-process-file):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-process-file):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file):
+ Improve handling of INFILE. Fix thinko using
+ `process-file-side-effects'. (Bug#53284)
+
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-sshfs-handle-set-file-times'.
+ (tramp-sshfs-handle-set-file-times): New defun.
+
+ * test/lisp/net/tramp-tests.el (tramp-test28-process-file): Extend test.
+
+2022-01-17 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS: Improve wording of 'undelete-frame-max' (bug#51883).
+
+2022-01-17 Po Lu <luangruo@yahoo.com>
+
+ * src/haikufns.c (Fx_show_tip): Sync after making window visible.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Really eliminate tooltip flicker on Haiku
+
+ * src/haikufns.c (tip_frame): Make non-static.
+ * src/haikuterm.c (haiku_read_socket): Ignore motion events that
+ didn't actually move when a tip frame is visible.
+ * src/haikuterm.h (tip_frame): Declare.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Translate timestamps when using GTK native input
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Use timestamp
+ specified in key event.
+ (xg_filter_key): Translate timestamps.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Exercise wire right after event is filtered for native input
+
+ * src/xterm.c (handle_one_xevent): Run a no-op immediately after
+ an event was filtered by GDK.
+
+2022-01-16 Juri Linkov <juri@linkov.net>
+
+ Add undelete-frame-max instead of undelete-frame-mode (bug#51883)
+
+ * doc/emacs/frames.texi (Frame Commands): Replace
+ undelete-frame-mode with undelete-frame-max.
+
+ * lisp/frame.el (undelete-frame-max): New defcustom, by default 1.
+ (undelete-frame--handle-delete-frame): Use undelete-frame-max
+ instead of hard-coded 16.
+ (undelete-frame-mode): Remove function.
+ (after-init-hook): Add hook undelete-frame--handle-delete-frame to
+ delete-frame-functions using after-init-hook to not store the
+ initial frame.
+ (undelete-frame): Remove undelete-frame-mode. Use undelete-frame-max
+ instead of hard-coded 16.
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Remove menu item
undelete-frame-mode.
+
+ * src/frame.c (Fdelete_frame): Replace `undelete-frame-mode' with
+ `undelete-frame-max' in the docstring.
+
+2022-01-16 Matthias Meulien <orontee@gmail.com>
+
+ Extend Outline mode with default visibility state
+
+ * etc/NEWS: Announce support for default visibility state (bug#51809).
+
+ * lisp/outline.el (outline-mode, outline-minor-mode): Ensure default
+ visibility state is applied with outline-apply-default-state.
+ (outline-default-state, outline-default-rules)
+ (outline-default-long-line, outline-default-line-count): New defcustoms.
+ (outline-apply-default-state, outline-show-only-headings)
+ (outline--show-headings-up-to-level): New functions.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Fix XI2 event filtering for very old versions of libXi
+
+ * src/xterm.c (handle_one_xevent): Handle cases where
+ xev->display is NULL.
+
+2022-01-16 Stefan Kangas <stefankangas@gmail.com>
+
+ * eglot.el (eglot--server-capable): don't use obsolete name.
+
+2022-01-16 Stefan Kangas <stefankangas@gmail.com>
+
+ Obsolete eglot--plist-keys in favor of map-keys
+
+ * eglot.el (eglot--plist-keys): Make into obsolete function alias
+ for map-keys.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Fix the xft build
+
+ * src/xsettings.h [!HAVE_PGTK]: Include dispextern.h and remove
+ duplicate definition of Display_Info.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Use kMenuWindowFeel on Haiku toolkip windows
+
+ * src/haiku_support.cc (BWindow_set_tooltip_decoration): Use
+ kMenuWindowFeel and set flags here.
+ * src/haikufns.c (Fx_show_tip): Don't set_avoid_focus manually
+ since setting tooltip decorations already does that.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Make help event generation on Haiku behave closer to X
+
+ * src/haikuterm.c (haiku_read_socket): Generate help events more
+ like how X does it.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Reduce poll time for Haiku file dialogs
+
+ * src/haiku_support.c (be_popup_file_dialog): Reduce idle
+ processor load by increasing timeout. The timeout is still too
+ low to be noticable by the user.
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Also raise input signal.
+
+2022-01-16 Yuuki Harano <masm+github@masm11.me>
+
+ * src/pgtkterm.c (evq_flush): Shift events one by one
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Avoid focus and allow monospace text in tooltip frames on Haiku
+
+ * src/haikufns.c (Fx_show_tip): Set avoid focus on tooltip
+ frames.
+
+ * src/haikuterm.c (haiku_default_font_parameter): Don't special
+ case the default font on tooltip frames, since the bug that was
+ supposed to work around has already been fixed.
+
+2022-01-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e488601849 Update to Org 9.5.2-9-g7ba24c
+ 95640360f0 * lisp/net/dictionary.el (dictionary-context-menu): Use pa...
+
+2022-01-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 7f36aca99d * lisp/indent.el (tab-first-completion): Fix incorrect cho...
+
+2022-01-16 Po Lu <luangruo@yahoo.com>
+
+ Update modifier meanings even if an xkb_desc was not available
+
+ * src/xterm.c (handle_one_event): Always update modifiers after
+ the keyboard mapping is refreshed.
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ * src/xwidget.c (webkit_js_to_lisp): Use correct constant to check size.
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ Fix a minor snafu when resizing frames on Haiku
+
+ * src/haiku_support.cc (BWindow_resize): Adjust for minor snafu
+ where BWindow::ResizeTo uses BRect-style width and height
+ instead of actual width and height.
+
+2022-01-15 Tassilo Horn <tsdh@gnu.org>
+
+ Add some more mailcap tests.
+
+ * test/lisp/net/mailcap-resources/mailcap: New file.
+ * test/lisp/net/mailcap-resources/test.test: New file.
+ * test/lisp/net/mailcap-tests.el (with-pristine-mailcap): New macro.
+ (mailcap-parsing-and-mailcap-mime-info): New test for parsing mailcap
+ files and selecting the right viewer.
+ (mailcap--test-result): New variable.
+ (mailcap--test-viewer): New function.
+ (mailcap-view-file): New test for mailcap-view-file.
+
+2022-01-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Remove unnecessary compatibility code
+
+ * eglot.el (eglot-mode-map): Remove unnecessary compatibility
+ code. We already depend on eldoc 0.11.0.
+
+2022-01-15 Juri Linkov <juri@linkov.net>
+
+ * lisp/mouse.el (context-menu-map): Select clicked window (bug#53249).
+
+2022-01-15 Juri Linkov <juri@linkov.net>
+
+ More fixes for recently committed context-menu additions from bug#52973
+
+ * lisp/hi-lock.el (highlight-symbol-at-mouse): New defalias.
+ (hi-lock-face-symbol-at-mouse): Rename from hi-lock-symbol-at-mouse.
+ (hi-lock-context-menu): Use thing-at-mouse and middle-separator.
+
+ * lisp/man.el (Man-context-menu): Fix Man-at-mouse and use
middle-separator.
+
+ * lisp/mouse.el (context-menu-functions): Remove
context-menu-online-search.
+ Add occur-context-menu and dictionary-context-menu (bug#50552).
+
+2022-01-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Improve backwards-compatibility of eglot-mode-map
+
+ * eglot.el (eglot-mode-map): Only bind to eldoc-doc-buffer in Emacs
+ 28.1 or later.
+
+2022-01-15 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/search.texi (Special Isearch): Move isearch-char-by-name
item back
+
+ Put it at the end of the list and still closer to isearch-emoji-by-name.
+
+2022-01-15 Alan Mackenzie <acm@muc.de>
+
+ Remove the remnants of old position mechanism from
scratch/correct-warning-pos
+
+ Also correct one or two positions in macroexp-warn-and-return
invocations.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-read-position)
+ (byte-compile-last-position, byte-compile-set-symbol-position): Remove.
+ (byte-compile-warning-prefix, byte-compile-function-warn)
+ (byte-compile-emit-callargs-warn, byte-compile-arglist-warn)
+ (byte-compile-warn-about-unresolved-functions, compile-defun)
+ (byte-compile-from-buffer, byte-compile-from-buffer)
+ (byte-compile-file-form-defmumble, byte-compile-check-lambda-list)
+ (byte-compile-lambda, byte-compile-form, byte-compile-normal-call)
+ (byte-compile-check-variable, byte-compile-push-constant)
+ (byte-compile-subr-wrong-args, byte-compile-negation-optimizer)
+ (byte-compile-condition-case, byte-compile-defvar,
byte-compile-autoload)
+ (byte-compile-lambda-form): Remove the remnants of the old warning
position
+ mechanism.
+ (byte-compile-function-warn): Replace byte-compile-last-position by a
+ symbol-with-pos-pos call.
+ (compile-defun): Use local variable start-read-position to fulfil
purpose of
+ old byte-compile-read-position. Push the just read FORM onto
+ byte-compile-form-stack.
+
+ * lisp/emacs-lisp/eieio.el (defclass): New mechanism to get the correct
+ source warning position to macroexp-warn-and-return.
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--unfold-lambda): Correct
+ the position argument given to macroexp-warn-and-return.
+
+2022-01-15 Stefan Kangas <stefankangas@gmail.com>
+
+ * eglot.el (eglot-strict-mode): very minor docfix.
+
+2022-01-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * pcvs-info.el (cvs-mode-toggle-mark): Typo
+
+2022-01-15 Eli Zaretskii <eliz@gnu.org>
+
+ Fix setting cursor in pixel-scrolling modes
+
+ * src/xdisp.c (redisplay_window): Don't set cursor to any glyph
+ row past the one that contains EOB. (Bug#53275)
+
+2022-01-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't strip properties in show-paren-function
+
+ * lisp/paren.el (show-paren-function): Don't strip text properties
+ (bug#51606) because that makes the offscreen context less
+ informative.
+
+2022-01-15 Stefan Kangas <stefankangas@gmail.com>
+
+ * eglot.el (eglot--connect): display seconds on timeout.
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ Use preferred XIM style without trying to detect if it's supported
+
+ The old code would in general fall back to the default if the
+ preferred style wasn't available, which is usually worse than
+ what the user specified
+
+ * src/xfns.c (best_xim_style): Stop checking if the preferred
+ input style is supported.
+
+2022-01-15 Stefan Kangas <stefankangas@gmail.com>
+
+ Print server command to events buffer
+
+ * eglot.el (eglot--connect): Print server command to events
+ buffer.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/476
+
+2022-01-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add emoji-alternate-names variable
+
+ * lisp/international/emoji.el (emoji-alternate-names): New
+ variable (bug#52860).
+ (emoji-search): Note usage.
+ (emoji--choose-emoji): Use it.
+
+2022-01-15 Tassilo Horn <tsdh@gnu.org>
+
+ mailcap: Docfix & handle function-viewer case in mailcap-view-file
+
+ * lisp/net/mailcap.el (mailcap-mime-data): Fix docstring: if viewer is
+ a symbol/function, it should have zero args and expect the file's
+ contents to be in the current buffer.
+ (mailcap-view-file): Implement the case where the chosen viewer is a
+ function and not a shell command.
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ Prevent pre-edit overlay text from being displayed after a command
+
+ This works around buggy input methods causing the overlay to be
+ displayed alongside newly inserted text for a brief period.
+
+ * lisp/term/x-win.el (x-clear-preedit-text): New function.
+ (x-preedit-text): Add said function to pre-command-hook. It
+ will remove itself when triggered.
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ * src/emacsgtkfixed.c (XSetWMSizeHints): Remove some useless code.
+
+2022-01-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't bug out on improper lists in pp-emacs-lisp-code
+
+ * lisp/emacs-lisp/pp.el (pp--format-list): Don't bug out on
+ improper lists (bug#52917).
+
+2022-01-15 Tom Tromey <tom@tromey.com>
+
+ Use "server complete" instead of "complete" in gud-gdb-completions
+
+ * lisp/progmodes/gud.el (gud-gdb-completions): gud-gdb sends a
+ "complete" command to gdb to implement command line completion. It
+ would be better to send "server complete". This is what Emacs does
+ for other behind-the-scenes commands it sends (bug#52922).
+
+2022-01-15 Alex Bochannek <alex@bochannek.com>
+
+ (gnus-summary-hide-thread): Fix thread hiding for dummy roots.
+
+ * lisp/gnus/gnus-sum.el (gnus-summary-hide-thread): Make thread
+ hiding work when using dummy `gnus-summary-make-false-root'
+ (bug#52923).
+
+2022-01-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve the with-output-to-temp-buffer doc string
+
+ * lisp/subr.el (with-output-to-temp-buffer): Clarify the point of
+ the macro (bug#53265).
+
+2022-01-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Add command to invoke a search engine"
+
+ This reverts commit 3f36d0836274a01d3cfc73f53ddbc76afc1d8a5e.
+
+ Similar functionality has been added to webjump, so this commit
duplicated that.
+
+2022-01-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5990148860 * lisp/simple.el (undo-no-redo): Fix customization group
+ ac2cdb8a46 * lisp/progmodes/xref.el (xref-file-name-display): Fix doc...
+ c05864dd25 Avoid another segfault in 'face_at_buffer_position'
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ Find a way to make lowering frames work on Haiku
+
+ * doc/lispref/frames.texi (Raising and Lowering): Document that
+ lowering frames is now supported on Haiku.
+ * src/haikuterm.c (haiku_frame_raise_lower): Implement a hack to
+ lower frames.
+
+2022-01-15 Po Lu <luangruo@yahoo.com>
+
+ Filter key release events when using native input without having XIM
+
+ * src/xterm.c (handle_one_xevent): Also check for XI key
+ release events when using native input on a build without XIM.
+
+2022-01-14 Po Lu <luangruo@yahoo.com>
+
+ Fix native input when using core input events
+
+ * src/gtkutil.c (xg_filter_key): Test for core key press events
+ correctly.
+ * src/xterm.c (handle_one_xevent): Also check for KeyRelease
+ events.
+
+2022-01-14 Po Lu <luangruo@yahoo.com>
+
+ Remove non-functional configure test
+
+ It cannot work anymore, leading to compiler warnings when
+ building xterm.c.
+
+ * configure.ac: Remove test for whether
+ XRegisterIMInstantiateCallback wants XPointer or XPointer * as
+ the client_data.
+
+ * src/xterm.c (xim_initialize):
+ (xim_close_dpy): Just cast client data to void * and hope that
+ the compiler keeps quiet.
+
+2022-01-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ pcvs-info.el: Prefer `declare-function` over `autoload`
+
+ * lisp/vc/pcvs-info.el (cvs-mode-toggle-mark): Use `declare-function`
+ to silence the byte-compiler warning.
+
+2022-01-14 Philipp Stephani <phst@google.com>
+
+ * lisp/indent.el (indent-for-tab-command): Use 'eq' for symbols.
+
+2022-01-14 Philipp Stephani <phst@google.com>
+
+ indent-for-tab-command: Deal with large point or modiff values.
+
+ * lisp/indent.el (indent-for-tab-command): Don't use 'eq' to compare
+ integers that aren't guaranteed to be fixnums.
+
+2022-01-14 Philipp Stephani <phst@google.com>
+
+ Simplify code for 'indent-for-tab-command' slightly.
+
+ * lisp/indent.el (indent-for-tab-command): Don't use a one-element
+ list for SYN.
+
+2022-01-14 Alan Mackenzie <acm@muc.de>
+
+ Merge branch 'master' into scratch/correct-warning-pos
+
+ Merge branch:
+ commit d29291d665e808307126bf52c3e748fef78f0f9c (HEAD -> master,
+ origin/master, origin/HEAD)
+ Author: Stefan Monnier <monnier@iro.umontreal.ca>
+ Date: Fri Jan 14 12:26:30 2022 -0500
+
+ (macroexp--expand-all): Fix bug#53227 and bug#46636
+
+2022-01-14 Alan Mackenzie <acm@muc.de>
+
+ Commit fixes and enhancements to the scratch/correct-warning-pos branch
+
+ No longer strip positions from symbols before each use of a form,
instead
+ relying on the low level C routines to do the right thing. Instead
strip them
+ from miscellaneous places where this is needed. Stip them alson in
+ `function-put'.
+
+ Push forms onto byte-compile-form-stack and pop them "by hand" rather
than by
+ binding the variable at each pushing, so that it will still have its
data
+ after an error has been thrown and caught by a condition case. This
gives an
+ source position to the ensuing error message.
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--ssp-seen,
byte-run--circular-list-p)
+ (byte-run--strip-s-p-1, byte-run-strip-symbol-positions): New functions
and
+ variables, which together implement stripping of symbol positions. The
latest
+ (?final) version modifies the argument in place rather than making a
copy.
+ (function-put): Strip symbol positions from all of the arguments before
doing
+ the `put'.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--form-stack): has been
renamed to
+ byte-compile-form-stack and moved to macroexp.el.
+ (byte-compile-initial-macro-environment (eval-and-compile)): Replace
+ macroexpand-all-toplevel with macroexpand--all-toplevel.
+ (displaying-byte-compile-warnings): bind byte-compile-form-stack here.
+ (byte-compile-toplevel-file-form, byte-compile-form): Push the top
level form
+ onto byte-compile-form-stack (whereas formally the variable was bound
at each
+ pushing). Manually pop this from of the variable at the end of the
function.
+
+ * lisp/emacs-lisp/cl-macs.el (cl-define-compiler-macro): Remove the
symbol
+ stripping.
+
+ * lisp/emacs-lisp/comp.el (comp--native-compile): Set max-specpdl-size
to at
+ least 5000 (previously it was 2500). Bind print-symbols-bare to t.
+
+ * lisp/emacs-lisp/macroexp.el (byte-compile-form-stack): Definition
move here
+ from bytecomp.el for easier compilation.
+ (byte-compile-strip-symbol-positions and associated functions): Removed.
+ (macro--expand-all): push argument FORM onto byte-compile-form-stack at
the
+ start of this function, and pop it off at the end.
+ (internal-macroexpand-for-load): No longer strip symbol positions. Bind
+ symbols-with-pos-enabled and print-symbols-bare to t.
+
+ * lisp/help.el (help--make-usage): Strip any position from argument ARG.
+
+ * src/fns.c (Fput): No longer strip symbol positions from any of the
+ arguments.
+
+2022-01-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (macroexp--expand-all): Fix bug#53227 and bug#46636
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Don't mis-expand
+ invalid funcalls.
+
+2022-01-14 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Use MD5 for thumb filename generation
+
+ * lisp/image-dired.el (image-dired-thumb-name): Revert back to MD5 for
+ file name generation to preserve backwards-compatibility. (Bug#53229)
+
+2022-01-14 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c: Add a small writeup on input handling on X.
+
+ Hopefully I will extend this section with details about more
+ aspects of X11 support in the future.
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+ Skip ffap test on some systems
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make function-alias-p use a better error symbol
+
+ * lisp/subr.el (function-alias-p): Use the same error symbol as
+ `indirect-function'.
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't have ffap interpret ":/bin" as the current directory
+
+ * lisp/ffap.el (ffap-file-at-point): Don't interpret :/bin as the
+ current directory (bug#52441).
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a `shortdoc' convenience alias
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc): Add a convenience alias
+ (bug#52968).
+
+2022-01-14 Po Lu <luangruo@yahoo.com>
+
+ Fix leak when refs are sent to a frame during destruction on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Free b->ref if it was
+ sent from a frame that was destroyed.
+
+2022-01-14 Po Lu <luangruo@yahoo.com>
+
+ Make sure the X mouse position hook always looks at an X frame
+
+ * src/xterm.c (XTmouse_position): Check that f1 is an X frame.
+
+2022-01-14 Robert Pluim <rpluim@gmail.com>
+
+ spelling-tests.el: use ert-with-temp-directory
+
+ * test/lisp/so-long-tests/spelling-tests.el (so-long-spelling): Use
+ ;ert-with-temp-directory' instead of passing :directory to
+ 'ert-with-temp-file', and restore the prefix/suffix values used
+ originally with 'make-temp-file'.
+
+2022-01-14 Robert Pluim <rpluim@gmail.com>
+
+ spelling-tests.el: ignore errors when checking for ispell
+
+ ispell-valid-dictionary-list can signal an error, eg when the local
+ hunspell installation cannot find any dictionaries, so it's best to
+ ignore that error.
+
+ * test/lisp/so-long-tests/spelling-tests.el (so-long-spelling): Wrap
+ ispell check in ignore-errors, as ispell-valid-dictionary-list can
+ signal an error.
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new context menu functions to the context-menu-functions type
+
+ * lisp/mouse.el (context-menu-functions): Add new menu functions
+ to the defcustom type list (bug#52973).
+
+2022-01-14 Philip Kaludercic <philipk@posteo.net>
+
+ Add command to invoke a search engine
+
+ * mouse.el (context-menu-online-search): Add new function
+ (eww-search-prefix): Declare variable from eww.el
+ (mouse-online-search-at-point): Add new command
+
+2022-01-14 Philip Kaludercic <philipk@posteo.net>
+
+ Implement context-menu-mode support for hi-lock
+
+ * hi-lock.el (hi-lock-symbol-at-mouse): Add new command
+ (hi-lock-context-menu): Add new function
+
+2022-01-14 Philip Kaludercic <philipk@posteo.net>
+
+ Implement context-menu-mode support for man pages
+
+ * man.el (Man-at-mouse): Add new command
+ (Man-context-menu): Add new function
+
+2022-01-14 Juri Linkov <juri@linkov.net>
+
+ Fix @item in the Emacs manual
+
+ * doc/emacs/maintaining.texi (Identifier Search): Replace @itemx with
@item.
+
+ * doc/emacs/search.texi (Special Isearch): Remove @item.
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mailcap setup when no mailcap files exist
+
+ * lisp/net/mailcap.el (mailcap-parse-mailcaps): Ensure that we
+ populate mailcap--computed-mime-data even if none of the files
+ exist (bug#53009).
+
+2022-01-14 Lucien Cartier-Tilet <lucien@phundrak.com> (tiny change)
+
+ (battery-status-function) Fix errors in Termux
+
+ * lisp/battery.el (battery-status-function): In Termux, neither
+ /sys/ or /proc/ are readable on phones that are not rooted. This
+ patch makes Emacs verify if they are readable before it attemps
+ reading them (bug#53026).
+
+2022-01-14 Robert Pluim <rpluim@gmail.com>
+
+ Improve some nntp/nnimap error messages
+
+ * lisp/gnus/nntp.el (nntp-send-string):
+ (nntp-wait-for):
+ (nntp-accept-process-output):
+ (nntp-possibly-change-group):
+ * lisp/gnus/nnimap.el (nnimap-retrieve-headers): Improve error
+ messages (bug#53070).
+
+2022-01-14 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/xref.el (xref-query-replace-in-results): Fix
prefix-arg.
+
+ Use current-prefix-arg.
+
+2022-01-14 Juri Linkov <juri@linkov.net>
+
+ * doc/emacs/search.texi (Special Isearch): Put related items together.
+
+ Move isearch-char-by-name closer to isearch-emoji-by-name.
+
+2022-01-14 Eli Zaretskii <eliz@gnu.org>
+
+ Update docs of 'xref-query-replace-in-results'
+
+ * doc/emacs/maintaining.texi (Identifier Search): Update the
+ documentation of 'xref-query-replace-in-results'.
+
+2022-01-14 Sergey Vinokurov <serg.foo@gmail.com>
+
+ Use assq_no_quit on all local_var_alist accesses
+
+ * src/data.c (Fkill_local_variable):
+ * src/buffer.c (buffer_local_value): Use assq_no_quit instead of
+ Fassoc/Fassq on local_var_alist (bug#53242).
+
+ * src/data.c (Flocal_variable_p): Use assq_no_quit instead of
+ open-coding the search on local_var_alist.
+
+2022-01-14 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'xref-find-references-and-replace'
+
+ * etc/NEWS: Clarify the 'xref-find-references-and-replace' entry.
+
+ * doc/emacs/maintaining.texi (Identifier Search): Document
+ 'xref-find-references-and-replace'.
+
+2022-01-14 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Fix python-eldoc affecting unrelated comint processes
+
+ * lisp/progmodes/python.el (python-shell-send-string-no-output): Don't
+ let-bind comint-preoutput-filter-functions globally for all comint
+ processes. Modify the behaviour of only the current python
+ process (bug#53219).
+
+2022-01-14 Robert Pluim <rpluim@gmail.com>
+
+ Improve function-alias-p documentation
+
+ * doc/lispref/functions.texi (Defining Functions): Improve the text.
+
+2022-01-14 Po Lu <luangruo@yahoo.com>
+
+ Try to make sure an XKB desc is always available
+
+ * src/xterm.c (handle_one_xevent): Re-retrieve XKB map if it's
+ unavailable for some reason upon handling an XKB map or keyboard
+ notify event.
+
+2022-01-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix byte-compilation warning in pcvs-info
+
+ * lisp/vc/pcvs-info.el (cvs-mode-toggle-mark): Fix
+ byte-compilation warning.
+
+2022-01-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 34ca4ff9a5 Fix Edebug specification for inline functions (Bug#53068).
+ 3c06c37a8b Remove mention of removed `gnus-treat-play-sounds' variabl...
+
+2022-01-13 Po Lu <luangruo@yahoo.com>
+
+ * INSTALL: Document using Emacs on alternative window systems.
+
+2022-01-13 Dmitry Gutov <dgutov@yandex.ru>
+
+ xref-find-references-and-replace: New command
+
+ * lisp/progmodes/xref.el (xref-find-references-and-replace):
+ New command.
+
+2022-01-13 Dmitry Gutov <dgutov@yandex.ru>
+
+ Steamline xref-query-replace-in-results
+
+ * lisp/progmodes/xref.el (xref-query-replace-in-results):
+ Steamline the most common scenario
+ (https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg00864.html).
+
+2022-01-13 Po Lu <luangruo@yahoo.com>
+
+ Fix out of bounds bitmap access on Haiku
+
+ * src/haiku_draw_support.cc (BView_DrawBitmapWithEraseOp): Fix
+ out of bounds access to bitmap data.
+
+2022-01-13 Po Lu <luangruo@yahoo.com>
+
+ Refresh keyboard mapping upon receiving new XKB map
+
+ * src/xterm.c (handle_one_xevent): Call
+ XkbRefreshKeyboardMapping where required.
+
+2022-01-13 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-keymap to easy-mmode-defmap
+
+ * lisp/progmodes/gud.el (gud-minibuffer-local-map):
+ * lisp/vc/pcvs-info.el (cvs-status-map): Use defvar-keymap.
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode-defmap): Document as
+ deprecated.
+
+2022-01-13 Theodor Thornhill <theo@thornhill.no>
+ João Távora <joaotavora@gmail.com>
+
+ Change from symbol-at-point to thing-at-point
+
+ * eglot.el (eglot-rename): Change from symbol-at-point to
+ thing-at-point to avoid interning a symbol. Add "unknown symbol" to
+ prompt when no symbol is found.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/385
+
+2022-01-13 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'isearch-emoji-by-name'
+
+ * lisp/isearch.el (isearch-menu-bar-map, isearch-emoji-by-name):
+ Fix wording of documentation.
+
+ * etc/NEWS: Fix wording of the 'isearch-emoji-by-name' entry.
+
+ * doc/emacs/search.texi (Special Isearch): Fix wording of the
+ documentation of 'isearch-emoji-by-name'; move it out of the
+ enumeration that deals with non-ASCII characters in general.
+
+2022-01-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix frame-undeletion menu items
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Fix wording of the new
+ menu items and their help-echo. Don't show "Undelete Frame"
+ in the menu unless there is a frame to undelete.
+
+2022-01-13 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid scrolling display when point moves into invisible text
+
+ * src/xdisp.c (try_cursor_movement): Handle point moving into
+ invisible text. (Bug#53215)
+
+2022-01-13 Michael Albinus <michael.albinus@gmx.de>
+
+ * doc/lispref/functions.texi (Defining Functions): Fix thinko.
+
+2022-01-13 Brian Leung <bkleung89@gmail.com>
+
+ Support optional diagnostic.tags
+
+
https://microsoft.github.io/language-server-protocol/specifications/specification-3-17/#diagnosticTag
+
+ A DiagnosticTag can be either 1 (DiagnosticTag.Unnecessary) or
+ 2 (DiagnosticTag.Deprecated). Following the rendering suggestions in
+ the protocol, we fade out Unnecessary code and strike-through
+ Deprecated code.
+
+ * eglot.el (eglot-diagnostic-tag-unnecessary-face)
+ (eglot-diagnostic-tag-deprecated-face): New faces.
+ (eglot--tag-faces): New defconst.
+ (eglot--lsp-interface-alist): Add Diagnostic.tags.
+ (eglot-client-capabilities): Advertise supported tags.
+ (eglot-handle-notification): Assign the appropriate properties.
+
+ * eglot-tests.el (diagnostic-tags-unnecessary-code): New test.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/794
+
+2022-01-13 Eli Zaretskii <eliz@gnu.org>
+
+ Improve preserving X coordinate during scroll commands
+
+ * src/window.c (window_scroll_pixel_based): Don't unnecessarily
+ move the iterator. (Bug#53220)
+
+2022-01-13 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/jsonrpc.el (Version): Bump to 1.0.15.
+
+2022-01-13 Po Lu <luangruo@yahoo.com>
+
+ Fix passive input focus when the pointer moves over inferiors
+
+ * src/xterm.c (handle_one_xevent): Don't detect focus on entry
+ and exit events if we're not on the top window.
+
+2022-01-13 Stefan Kangas <stefankangas@gmail.com>
+
+ * eglot.el: improve commentary section.
+
+2022-01-13 Stefan Kangas <stefankangas@gmail.com>
+
+ Support racket-langserver
+
+ * eglot.el (eglot-server-programs): Support racket-langserver.
+ * README.md:
+ * NEWS.md: Update for above changes.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/694
+
+2022-01-13 Robert Pluim <rpluim@gmail.com>
+
+ spelling-tests.el: actually create a temp directory
+
+ This test was creating a file, but actually needs a directory, and
+ fails otherwise.
+
+ * test/lisp/so-long-tests/spelling-tests.el (so-long-spelling):
+ Pass the :directory arg to ert-with-temp-file so we actually
+ create a directory.
+
+2022-01-13 Po Lu <luangruo@yahoo.com>
+
+ Filter key release events through GTK when using native input
+
+ * src/gtkutil.c (xg_filter_key): Set correct event type for key
+ release events.
+ * src/xterm.c (x_filter_event): Also filter release events.
+
+2022-01-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make ert explainers work on function aliases
+
+ * lisp/emacs-lisp/ert.el: New function.
+ (ert--expand-should-1): Use it (bug#53178).
+
+2022-01-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid infloops in help-fns--analyze-function with aliases
+
+ * lisp/help-fns.el (help-fns--analyze-function): Use
+ function-alias-p to avoid infloops.
+
+2022-01-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function function-alias-p
+
+ * doc/lispref/functions.texi (Defining Functions): Document it.
+ * lisp/subr.el (function-alias-p): New function (bug#53178).
+
+2022-01-13 Gregory Heytings <gregory@heytings.org>
+
+ Undelete deleted frames.
+
+ * lisp/frame.el (undelete-frame): New command.
+ (undelete-frame--handle-delete-frame): New auxiliary function.
+ (undelete-frame--deleted-frames): New auxiliary variables.
+ (undelete-frame-mode): New minor mode.
+ (ctl-x-5-map): Bind the new command.
+
+ * etc/NEWS: Document the new command and minor mode.
+
+ * src/frame.c (Fdelete_frame): Update docstring, and mention the
+ minor mode.
+
+ * lisp/menu-bar.el (menu-bar-file-menu): Add an entry for the
+ new command.
+
+ * doc/emacs/frames.tex (Frame Commands): Document the new command
+ and minor mode.
+
+ See bug#51883.
+
+2022-01-12 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK native input methods randomly freezing input
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Exercise the X11
+ connection causing pselect to return immediately from input.
+ (bug#53160)
+
+2022-01-12 Po Lu <luangruo@yahoo.com>
+
+ Block input when drawing fringe bitmaps on Haiku
+
+ * src/haikuterm.c (haiku_draw_fringe_bitmap): Block input.
+
+2022-01-12 Po Lu <luangruo@yahoo.com>
+
+ Use XI2 focus events on X toolkit builds
+
+ * src/xfns.c (setup_xi_event_mask): Set focus masks on both the
+ shell window and the frame window.
+ * src/xterm.c (x_detect_focus_change): Enable XI2 focus code on
+ Xt.
+
+2022-01-12 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/jsonrpc.el (jsonrpc--debug): Use apply on format args list.
+
+2022-01-12 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Rework setting/unsetting of gnus-registry-enabled
+
+ The basic idea is, we're moving the setting/unsetting of
+ `gnus-registry-enabled' so that it is a more reliable indicator of
+ whether the registry is actually available or not.
+
+ * lisp/gnus/gnus-registry.el (gnus-registry-load): Move the setting of
+ `gnus-registry-enabled' here, after we're sure the registry actually
+ has been loaded.
+ (gnus-registry-initialize): Move it out of here. All this function
+ does is conditionally call `gnus-registry-load'.
+ (gnus-registry-register-message-ids): Only check
+ `gnus-registry-enabled', since we'd more confident about this
+ now. Sort checks in order of increasing complexity.
+ (gnus-registry-clear): Unset `gnus-registry-enabled'.
+ (gnus-registry-install-hooks): This function should only install
+ hooks, not set variables.
+ (gnus-registry-unload-hook): Change the unload hook to call
+ `gnus-registry-clear', as that will do all the necessary
+ work (including calling `gnus-registry-unload-hook')
+
+2022-01-12 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge remote-tracking branch 'origin/emacs-28' into trunk
+
+2022-01-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/subr.el (remove-hook): Use set-variable-value-history for value
history
+
+2022-01-12 Stefan Kangas <stefankangas@gmail.com>
+
+ Bump eglot version to 1.8
+
+ * eglot.el (Version): Bump to 1.8.
+ * NEWS.md (1.8): Rename header from "(upcoming)".
+
+2022-01-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/leim/quail/emoji.el: New file (bug#52605).
+
+2022-01-12 Daniel Martín <mardani29@yahoo.es>
+
+ Add isearch-emoji-by-name
+
+ * lisp/isearch.el (isearch-emoji-by-name): Add a new command to insert
+ Emoji characters into incremental search strings. (Bug#52605)
+ (isearch-mode-map): Bind it to 'C-x 8 e RET'.
+ (isearch-menu-bar-map): Add it to the menu bar.
+ * doc/emacs/search.texi (Special Isearch): Update the documentation to
+ mention the new command.
+ * etc/NEWS: And advertise it.
+
+2022-01-12 Glenn Morris <rgm@gnu.org>
+
+ Prefer unexport in Makefiles
+
+ * admin/grammars/Makefile.in, leim/Makefile.in:
+ * lisp/Makefile.in, test/Makefile.in:
+ Use unexport for EMACSLOADPATH.
+
+2022-01-12 Glenn Morris <rgm@gnu.org>
+
+ Avoid user environment interfering with bootstrap
+
+ * Makefile.in, admin/unidata/Makefile.in:
+ * doc/misc/Makefile.in, lib-src/Makefile.in:
+ Don't export user environment variables that can affect running
+ emacs. (Bug#53038)
+
+2022-01-12 Jim Porter <jporterbugs@gmail.com>
+
+ Follow POSIX/GNU argument conventions for 'eshell-eval-using-options'
+
+ * lisp/eshell/esh-opt.el (eshell--split-switch): New function.
+ (eshell-set-option): Allow setting a supplied value instead of always
+ consuming from 'eshell--args'.
+ (eshell--process-option): Support consuming option values specified as
+ a single token.
+ (eshell--process-args): For short options, pass full switch token to
+ 'eshell--process-option'.
+
+ * test/lisp/eshell/esh-opt-tests.el (esh-opt-process-args-test): Fix
+ test.
+ (test-eshell-eval-using-options): Add tests for various types of
+ options.
+
+ * doc/misc/eshell.texi (Defining new built-in commands): New
+ subsection, describe how to use 'eshell-eval-using-options'.
+
+ * etc/NEWS: Announce the change.
+
+2022-01-12 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations with variable-weight fonts
+
+ * src/font.c (font_score, font_delete_unmatched): Don't assume
+ weight, slant, and width properties of the font must be fixnums:
+ some variable-weight fonts violate that assumption. Reported
+ by Sean Whitton <spwhitton@spwhitton.name>. This is for builds
+ with Fontconfig < v2.11.91, for which the fix in
+ 'ftfont_pattern_entity' cannot work. (Bug#52888)
+
+2022-01-12 Sean Whitton <spwhitton@spwhitton.name>
+
+ Skip virtual FcPattern entries for variable weight fonts
+
+ * src/ftfont.c (ftfont_list): Pass FC_VARIABLE to FcObjectSetBuild.
+ * src/ftfont.c (ftfont_pattern_entity): Skip meta/virtual FcPattern
+ entries for variable weight fonts (Bug#52888).
+
+2022-01-12 Po Lu <luangruo@yahoo.com>
+
+ Use correct coordinates when translating XI2 crossing events
+
+ * src/xwidget.c (xwidget_motion_or_crossing): Use displaced
+ position instead of event position.
+
+2022-01-12 Po Lu <luangruo@yahoo.com>
+
+ Ignore scroll lock key on Haiku
+
+ * src/haiku_support.cc (keysym_from_raw_char): Return special
+ value for keys that shouldn't be sent to Emacs.
+ (DispatchMessage): Respect said value.
+
+2022-01-12 Brian Leung <bkleung89@gmail.com>
+
+ Don't error out on unsupported diagnostic.codedescription
+
+ A codeDescription property is, at the time of writing, an object with
+ an href property (of type URI, or a string), denoting a "URI to open
+ with more information about the diagnostic error".
+
+ It's not obvious how best to put this into a Flymake diagostic
+ aside from simply appending it to the diagnostic message, so we'll
+ worry about it some other time.
+
+ * eglot.el (eglot--lsp-interface-alist)
+ (eglot-client-capabilities): Don't error out on unsupported
+ Diagnostic.codeDescription.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/768
+
+2022-01-12 Po Lu <luangruo@yahoo.com>
+
+ Translate more keys on Haiku
+
+ * src/haiku_support.cc (keysym_from_raw_char): Translate print,
+ scroll lock, and pause/break.
+
+2022-01-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't do Gnus article emphasis in text/html parts
+
+ * lisp/gnus/gnus-art.el (gnus-treat-emphasize): Don't do emphasis
+ in text/html parts, because this leads to mis-filled text
+ (especially with *...* that's boldified, which typically becomes
+ much wider).
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Fix arity error when trying to add a file to an automake project
+
+ * lisp/cedet/ede/project-am.el (project-add-file): Add ignored
+ _FILE parameter like the other `project-add-file' methods.
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Fix display of text decorations in the mode line
+
+ This is considered a temporary fix until the cause of
+ fringe-overwriting underlines is established.
+
+ * src/xterm.c (x_draw_glyph_string): Don't constrain decorations
+ if the row is a tab or modeline.
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Avoid unnecessary lookup of min and max keycodes when XKB is present
+
+ * src/xterm.c (x_emacs_to_x_modifiers): Avoid calling
+ XDisplayKeycodes when that information is available in the xkb
+ desc and is not needed anyway.
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Ignore resetting devices upon some events we don't have to handle
+
+ * src/xterm.c (handle_one_xevent): Ignore SlaveSwitch
+ DeviceChanged events.
+
+2022-01-11 Alan Mackenzie <acm@muc.de>
+
+ Merge branch 'master' into scratch/correct-warning-pos
+
+2022-01-11 Alan Mackenzie <acm@muc.de>
+
+ Remove the filename argument from the command line after an ELC+ELN
build
+
+ This fixes bug #53164. Without this fix, bootstrap-emacs loads the
source
+ file uselessly into a buffer after completing the compilation.
+
+2022-01-11 Juri Linkov <juri@linkov.net>
+
+ * lisp/window.el (display-comint-buffer-action): Move to the end of
file.
+
+ Move closer to pop-to-buffer-same-window after its default value
+ display-buffer--same-window-action is defined.
+
+2022-01-11 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc.el (vc-shrink-buffer-window): New function (bug#51062).
+
+ (vc-diff-finish-functions): New variable.
+ (vc-diff-finish): Use it.
+ (vc-log-finish-functions): New variable.
+ (vc-log-internal-common): Use it.
+
+2022-01-11 Juri Linkov <juri@linkov.net>
+
+ * src/window.c (other-window-scroll-default): New variable (bug#51210).
+
+ (Fother_window_for_scrolling): Use it.
+
+2022-01-11 Juri Linkov <juri@linkov.net>
+
+ More fixes for display-comint-buffer-action
+
+ * lisp/window.el (display-comint-buffer-action):
+ Use display-buffer--same-window-action as the default value.
+
+ * lisp/progmodes/sh-script.el (sh-show-shell):
+ * lisp/shell.el (shell): Add display-comint-buffer-action to
pop-to-buffer.
+
+ * lisp/progmodes/project.el (project-shell, project-eshell): Use
+ `bound-and-true-p display-comint-buffer-action' for
backward-compatibility.
+
+ https://lists.gnu.org/archive/html/emacs-devel/2021-12/msg02964.html
+
+2022-01-11 Morgan Smith <Morgan.J.Smith@outlook.com>
+
+ Fix display-comint-buffer-action default behavior (closes bug#52878)
+
+ * lisp/window.el (display-comint-buffer-action): Make it an alist.
+
+2022-01-11 Paul Eggert <eggert@cs.ucla.edu>
+
+ Clean up filelock code related to errno
+
+ Reduce dependency on Haiku internals, by not assuming that
+ Haiku errno values (which are negative) are neither -1 nor -2.
+ This removes an #ifdef HAIKU while still maintaining
+ portability to Haiku.
+ * src/filelock.c (NEGATIVE_ERRNO, ANOTHER_OWNS_IT, I_OWN_IT):
+ New constants, which should work regardless of whether
+ we are on Haiku or B_USE_POSITIVE_POSIX_ERRORS is defined.
+ (current_lock_owner, lock_if_free, lock_file, unlock_file)
+ (Ffile_locked_p): Use them, without assuming anything about errno
+ value sign.
+
+2022-01-11 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix userlock diagnostic
+
+ * lisp/userlock.el (ask-user-about-lock):
+ Fix typo (missing paren) in diagnostic.
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Stop ungrabbing when freeing XI devices
+
+ This breaks when x_free_xi_devices is called from a
+ HierarchyChange event where a master device has been removed or
+ a slave device has been detached, and it should no longer be
+ required since we now rely on passive grabs.
+
+ * src/xterm.c (x_init_master_valuators): Stop calling
+ XIUngrabDevice on all devices.
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Make native input work on GTK 2
+
+ * src/gtkutil.c (xg_create_frame_widgets): Allow focusing fixed
+ widget.
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Stop decoding GTK event strings when using native input
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Stop decoding
+ event strings.
+
+2022-01-11 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-minor-mode-cycle--bind): Fix
outline-on-heading-p.
+
+ When calling outline-on-heading-p, set its argument INVISIBLE-OK to t,
+ so when <backtab> (bound to outline-cycle-buffer) hides the current
outline
+ at a deep level, <backtab> should continue cycling outlines even when
+ the current outline heading is invisible. It worked this way before
+ the recent change that moved cycling keys from font-lock text properties
+ to outline-minor-mode keymap with :filter.
+
+2022-01-11 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 8db5f82d45 ; Fix tabulated-list-mode tests after revert
+
+2022-01-11 Po Lu <luangruo@yahoo.com>
+
+ Fix creating GUI frames in an automatically started server on Haiku
+
+ * lisp/term/haiku-win.el: Correct specification of
+ `display-format-alist'.
+
+2022-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (files-tests--with-buffer-offer-save): Turn it into a function
+
+ * test/lisp/files-tests.el (files-tests--with-buffer-offer-save):
+ Turn it into a function.
+ (files-tests-save-buffers-kill-emacs--asks-to-save-buffers)
+ (files-tests-buffer-offer-save): Adjust calls accordingly
+
+2022-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (hack-one-local-variable-constantp): Mark as obsolete
+
+ * lisp/files.el (hack-one-local-variable-constantp): Mark as obsolete.
+ (hack-one-local-variable-eval-safep): Use `macroexp-const-p` instead.
+
+2022-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge remote-tracking branch 'origin/emacs-28' into trunk
+
+2022-01-10 Fredrik Bergroth <fbergroth@gmail.com>
+
+ Support autoimporttext from pyright language server
+
+ * eglot.el (eglot-completion-at-point): show autoImportText via
company-docsig.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/769
+
+2022-01-10 Sam Steingold <sds@gnu.org>
+
+ Use 'auth-info-password' in tests
+
+ * test/lisp/auth-source-tests.el (auth-source-test-searches):
+ (auth-source-test-secrets-create-secret):
+ (auth-source-test-netrc-create-secret, auth-source-delete):
+ Use 'auth-info-password' instead of ad hoc code.
+
+2022-01-10 Sam Steingold <sds@gnu.org>
+
+ Update for the recent change
+
+ * doc/misc/auth.texi (Help for developers): Document
+ 'auth-source-pick-first-password' and 'auth-info-password'.
+ Update the 'auth-source-search' example.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Use window beneath mouse for determining scroll deltas on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Use window underneath
+ wheel for calculating scroll deltas.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ * src/filelock.c (lock_if_free): Fix Haiku positive errno check.
+
+2022-01-10 Paul Eggert <eggert@cs.ucla.edu>
+
+ Assume C99 when defining pD
+
+ * src/lisp.h (pD): Assume C99 or later, to simplify the ifdefs.
+
+2022-01-10 Felicián Németh <felician.nemeth@gmail.com>
+
+ Add tooltip describing pending requests
+
+ * eglot.el (eglot--mode-line-format): Add tooltip to `pending'.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/784
+
+2022-01-10 Karl Fogel <kfogel@red-bean.com>
+
+ Document external maintenance of some packages
+
+ Document the fact that some packages in Emacs are externally
+ maintained, and specifically document Org Mode's external maintenance.
+
+ For more context, see the thread that starts here:
+
+ https://lists.gnu.org/archive/html/emacs-devel/2021-12/msg00366.html
+ From: Karl Fogel
+ To: Emacs Devel
+ Subject: Improving documentation of Org Mode integration into Emacs.
+ Date: Sat, 04 Dec 2021 15:14:59 -0600
+ Message-ID: <87zgpgax7w.fsf@red-bean.com>
+
+2022-01-10 Juri Linkov <juri@linkov.net>
+
+ Add diff-mode-read-only to enable shorter keys in diff-mode
+
+ To be able to use outline-minor-mode-cycle keys in diff-mode,
+ outline-minor-mode should be higher in minor-mode-map-alist,
+ and a new variable diff-mode-read-only should be set
+ when the diff-mode buffer is read-only.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg00740.html
+
+ * lisp/vc/diff-mode.el: Add diff-mode-read-only to minor-mode-map-alist.
+ (diff-mode-read-only): New buffer-local variable.
+ (diff-mode): Set diff-mode-read-only to t when buffer-read-only is
non-nil.
+ Update diff-mode-read-only in read-only-mode-hook.
+ Remove buffer-read-only from minor-mode-overriding-map-alist.
+ Remove view-mode-hook because now view-mode is higher than
+ diff-mode-read-only in minor-mode-map-alist.
+
+ * lisp/vc/vc-git.el (vc-git-stash-show):
+ * lisp/vc/vc.el (vc-diff-internal): Set buffer-read-only to t
+ before calling diff-mode that will set diff-mode-read-only.
+
+2022-01-10 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el: Don't set outline-minor font-lock text property
'keymap'.
+
+ Instead of adding font-lock text property 'keymap' with
+ outline-minor-mode-cycle on headings in outline-minor-mode,
+ check for outline-minor-mode-cycle and outline-on-heading-p
+ in :filter on keys from the keymap of outline-minor-mode.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg00180.html
+
+ (outline-minor-mode-cycle--bind): Add a condition on
outline-minor-mode-cycle
+ and outline-on-heading-p in :filter.
+ (outline-font-lock-keywords): Remove if-branches for
outline-minor-mode-cycle
+ that added keymap.
+ (outline-minor-mode-highlight-buffer): Don't put keymap on overlays.
+ (outline-minor-mode): Rewrite :keymap setting to rely on
+ easy-mmode-define-keymap, and add :inherit outline-minor-mode-cycle-map.
+ Don't check for outline-minor-mode-cycle to add font-lock keywords.
+ (outline--insert-open-button, outline--insert-close-button):
+ Remove :parent outline-minor-mode-cycle-map.
+
+2022-01-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 'exchange-point-and-mark' in 'transient-mark-mode'
+
+ * lisp/simple.el (exchange-point-and-mark): Don't deactivate mark
+ when 'transient-mark-mode' is ON. (Bug#53150)
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Implement recent improvements to underline display on PGTK
+
+ * src/pgtkterm.c (pgtk_draw_glyph_string): Respect new underline
+ face fields.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Prevent text decorations from overwriting surrounding areas on X
+
+ * src/xterm.c (x_draw_underwave): New parameter
+ `decoration_width'.
+ (x_draw_glyph_string): Constrain decoration width to current
+ text area.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Allow controlling the underline position of faces
+
+ * doc/lispref/display.texi (Face Attributes): Document new
+ `:position' property of the `:underline' attribute.
+ * etc/NEWS: Announce new property.
+ * lisp/cus-face.el (custom-face-attributes): Implement
+ customization for new face attribute.
+ * src/dispextern.h (struct face): New fields
+ `underline_pixels_above_descent_line' and
+ `underline_at_descent_line_p'.
+ * src/haikuterm.c (haiku_draw_text_decoration):
+ * src/nsterm.m (ns_draw_text_decoration):
+ * src/w32term.c (w32_draw_glyph_string):
+ * src/xterm.c (x_draw_glyph_string): Respect new face fields.
+
+ * src/xfaces.c (realize_gui_face): Handle new `:position'
+ keyword.
+ (syms_of_xfaces): New symbol `:position'.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ * doc/emacs/xresources.texi (GTK resources): Fix dead links.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Load X resources from a settings file like other programs on Haiku
+
+ * doc/emacs/haiku.texi (Haiku Basics): Document how X resources
+ are discovered on Haiku.
+ * src/haiku_support.cc (class Emacs): Load settings file.
+ (be_find_setting): New function.
+ * src/haiku_support.h (be_find_setting): New prototype.
+ * src/haikuterm.c (get_string_resource): Look in the settings
+ file if there's nothing in the in-memory resource database.
+
+2022-01-10 Michael Albinus <michael.albinus@gmx.de>
+
+ * admin/MAINTAINERS: Add Tramp compatibility note
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Use phys cursor height instead of font base to set spot Y
+
+ * src/xfns.c (xic_set_xfontset): Use `phys_cursor_height' to
+ avoid the spot potentially appearing at an incorrect position.
+
+2022-01-10 Po Lu <luangruo@yahoo.com>
+
+ Don't set callbacks on XIC when adjusting spot if callbacks are off
+
+ * src/xfns.c (xic_set_preeditarea): Don't set callbacks if the
+ XIC style is not XIMPreeditCallbacks. (bug#53146)
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Make toggling native input methods via shift work again
+
+ * src/xterm.c (handle_one_xevent): Start filtering XI key
+ release events again, but drop the event if the IM asked.
+
+2022-01-09 Stefan Kangas <stefan@marxist.se>
+
+ Make old elide-head commands wrappers for mode
+
+ * lisp/elide-head.el (elide-head, elide-head-show): Make into
+ wrappers around elide-head-mode.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Don't hard code key codes on Haiku
+
+ * src/haiku_support.cc (keysym_from_raw_char): New function.
+ (DispatchMessage): Map raw character to keysym if applicable.
+ (be_map_key): Delete function.
+ * src/haiku_support.h (struct haiku_key_event): Update fields
+ to hold keysym and character instead.
+ * src/haikuterm.c (haiku_read_socket): Don't call be_map_key,
+ and use keysym field if provided instead.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Map some more keypad keys on Haiku
+
+ * src/haiku_support.cc (BMapKey): Rename to `be_map_key'.
+ (be_map_key): Recognize more key codes.
+ * src/haiku_support.h (BMapKey, be_map_key): Adjust accordingly.
+ * src/haikuterm.c (haiku_read_socket): Likewise.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Fix build without X11 I18N
+
+ * src/xterm.c (event_handler_gdk):
+ (handle_one_xevent):
+ (x_draw_window_cursor):
+ (x_term_init): Fix build without HAVE_X_I18N.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Fix off-by-one errors in caret position application
+
+ * src/gtkutil.c (xg_im_context_preedit_changed):
+ * src/xfns.c (xic_preedit_caret_callback):
+ (xic_preedit_draw_callback): Constrain caret position to
+ SCHARS (arg) - 1.
+
+2022-01-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/abbrev.el (edit-abbrevs-mode-map): Use defvar-keymap.
+
+2022-01-09 Stefan Kangas <stefan@marxist.se>
+
+ Do interactive mode tagging for edit-abbrevs-mode
+
+ * lisp/abbrev.el (edit-abbrevs-redefine)
+ (abbrev-edit-save-to-file, abbrev-edit-save-buffer): Interactive mode
+ tagging for edit-abbrevs-mode.
+ (edit-abbrevs-mode): Make non-interactive.
+
+2022-01-09 Brian Leung <bkleung89@gmail.com>
+
+ Properly print error message of eglot-alternatives
+
+ * eglot.el (eglot-alternatives): Work with the listified form. This
+ allows presumed executables provided as (EXECUTABLE &rest ARGS...)
+ to be displayed in the error.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/786
+
+2022-01-09 Brian Leung <bkleung89@gmail.com>
+
+ Add up-to-date server executables for html/css/json
+
+ * README.md: Advertise updated executables.
+ * eglot.el (eglot-server-programs): Prioritize the alternatives.
+
+ The {html,css,json}-languageserver executables that are distributed
+ outside VS Code are not regularly updated by Microsoft; any relevant
+ updates to the VS Code source tree reach VS Code users without the
+ need for VS Code developers to go out of their way to publish new
+ versions of the executables. Consequently, users of other editors who
+ have been using the server executables from the most obvious NPM
+ packages are likely using stale versions.
+
+ @hrsh7th, a Vim user, created an NPM package with updated versions of
these
+ executables taken straight from VS Code's source tree. We therefore
+ prefer to direct users to the corresponding repo, which contains
+ appropriate installation instructions, in the README.
+
+2022-01-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/gnus/nnnil.el (nnnil-close-server): Add new `defs` arg
+
+2022-01-09 Ivan Sokolov <ivan-p-sokolov@ya.ru>
+
+ Add doc-string indices to easy-mmode-{defmap,defsyntax}
+
+ * lisp/emacs-lisp/easy-mmode.el (easy-mmode-defmap)
+ (easy-mmode-defsyntax): Declare third argument as doc-string.
+ (Bug#52978)
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Fix filelock.c for Haiku
+
+ This was found during the investigation surrounding bug#53136,
+ but is not directly related.
+
+ * src/filelock.c (lock_if_free): Explictly test err against -1
+ or -2, and reverse sign of system errors on Haiku. (No Haiku
+ error occupies -1 or -2.)
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Add an option to display the cursor at the beginning of any preedit text
+
+ Believe it or not, people actually want this, because it makes
+ Emacs behave closer to some other editors such as WPS Office.
+
+ * lisp/term/x-win.el
+ (x-display-cursor-at-start-of-preedit-string): New user option.
+ (x-preedit-text): Respect new option.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Pass through caret position from native GTK input methods
+
+ * src/gtkutil.c (xg_im_context_preedit_changed): Set caret
+ position appropriately.
+ * src/xfns.c (xg_widget_key_press_event_cb): Ignore modifier
+ keys.
+ (xic_preedit_caret_callback, xic_preedit_draw_callback):
+ Constrain caret position to the string length as well.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Fix specification of caret position
+
+ * src/xfns.c (xic_preedit_caret_callback):
+ (xic_preedit_draw_callback): Use `cursor' property correctly.
+
+ * src/xterm.c (handle_one_xevent): Stop filtering XI release
+ events. This caused more problems than it fixed.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Add missing part of last commit
+
+ * src/xterm.h (struct x_output): Add field `preedit_caret'.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Display caret in preedit text where the input method asked
+
+ * src/xfns.c (xic_preedit_start_callback): Clear caret position.
+ (xic_preedit_caret_callback): Record new caret position and
+ announce it.
+ (xic_preedit_done_callback): Clear caret position.
+ (xic_preedit_draw_callback): Set caret position appropriately.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Fix native GTK input for cyrillic input methods
+
+ * src/gtkutil.c (xg_widget_key_press_cb): Get unicode mapping of
+ keyval if string doesn't exist.
+ * src/xterm.c (handle_one_xevent): Fix build without
+ HAVE_X_I18N.
+
+2022-01-09 Stefan Kangas <stefan@marxist.se>
+
+ New minor mode elide-head-mode
+
+ * lisp/elide-head.el (elide-head-mode): New minor mode. (Bug#52980)
+ (elide-head--delete-overlay, elide-head--show)
+ (elide-head--hide): New functions factored out from ...
+ (elide-head, elide-head-show): ... here. Make obsolete in favor
+ of elide-head-mode.
+ (elide-head-headers-to-hide): Doc fix.
+
+ * test/lisp/elide-head-tests.el (ert-x): Require.
+ (elide-head-tests-elide-head-mode)
+ (elide-head-tests-elide-head-mode/enable-disable)
+ (elide-head-tests-elide-head-mode/normal-mode)
+ (elide-head-tests-elide-head-mode/revert-buffer): New tests.
+ (elide-head--add-test): Update test to use elide-head-mode.
+ (elide-head-tests-elide-head)
+ (elide-head-tests-elide-head-with-prefix-arg)
+ (elide-head-tests-show): Make obsolete.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ * lisp/term/x-win.el (x-preedit-text): Make edit overlay window local.
+
+2022-01-09 Brian Leung <bkleung89@gmail.com>
+
+ Add vim-language-server for vimrc-mode
+
+ * README.md: Advertise.
+ * eglot.el (eglot-server-programs): Add vim-language-server.
+
+2022-01-09 Brian Leung <bkleung89@gmail.com>
+
+ Add cmake-language-server for cmake-mode
+
+ * README.md: Advertise.
+ * eglot.el (eglot-server-programs): Add cmake-language-server.
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ Reduce flicker on Haiku Emacs tooltips
+
+ * src/haikuterm.c (haiku_read_socket): Ignore motion events from
+ tooltip frames.
+
+2022-01-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 30f1bdb41f Clarify docstring of package-native-compile
+ c54fda643d Fix Subject "simplification" in Rmail
+
+2022-01-09 Po Lu <luangruo@yahoo.com>
+
+ * src/image.c (syms_of_image): Declare support for webp on Haiku.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Add support for native webp images on Haiku
+
+ * src/haikuimage.c (haiku_can_use_native_image_api): Add support
+ for `webp' images.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Make caps lock work on Haiku
+
+ * src/haiku_support.cc (map_caps):
+ (map_caps_shift): New functions.
+ (DispatchMessage): Map keys with the appropriate map if caps
+ lock is on.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Fix some problems with Haiku font display
+
+ * src/haiku_font_support.cc (BFont_char_bounds): Fix rounding
+ errors.
+ (BFont_open_pattern): Set size before setting family and style.
+
+2022-01-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Un-reverse references in xref buffer
+
+
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/763
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Implement override redirect on Haiku
+
+ * src/haiku_support.cc (pre_override_redirect_style):
+ (pre_override_redirect_feel): New variables.
+ (BWindow_set_override_redirect):
+ * src/haiku_support.h (BWindow_set_override_redirect): New
+ functions.
+ * src/haikufns.c (haiku_create_frame): Set override redirect.
+ (haiku_set_override_redirect): New function.
+ (haiku_frame_parm_handlers): Add `haiku_set_override_redirect'
+
+2022-01-08 Martin Carlson <spearalot@gmail.com> (tiny change)
+
+ Add variable to withhold the init req process id
+
+ * eglot.el (eglot-withhold-process-id): New defvar.
+ (eglot--connect): Don't send pid to language server if above new
+ defvar has a non-nil value.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/722
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Fix some portability bugs in gtkutil.c
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Surround raising
+ SIGIO with USABLE_SIGIO.
+
+2022-01-08 NA <na@aisrntairetnraoitn.com> (tiny change)
+
+ Support language server for html, css, json and docker
+
+ * eglot.el (eglot-server-programs): Support html-languageserver,
+ css-languageserver, json-languageserver, and docker-langserver.
+ * README.md: Update documentation for above changes.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/204
+
+2022-01-08 Stefan Kangas <stefankangas@gmail.com>
+
+ Minor checkdoc fixes
+
+ * eglot.el (eglot, eglot--when-buffer-window, eglot--widening)
+ (eglot-initialization-options, eglot--current-flymake-report-fn)
+ (eglot-handle-notification, eglot-handle-request)
+ (eglot--highlight-piggyback, eglot-register-capability)
+ (eglot-unregister-capability):
+ * eglot-tests.el (auto-detect-running-server, auto-shutdown)
+ (auto-reconnect, eglot--tests-force-full-eldoc, rename-a-symbol)
+ (basic-completions, non-unique-completions, basic-xref)
+ (snippet-completions, snippet-completions-with-company)
+ (eglot-eldoc-after-completions, python-yapf-formatting)
+ (javascript-basic, json-basic, eglot-ensure)
+ (eglot--guessing-contact): Doc fixes; formatting.
+
+ * eglot.el (xref-backend-identifier-completion-table): Fix error
+ format.
+
+2022-01-08 Omar Polo <op@omarpolo.com>
+
+ Add lua-lsp support for lua-mode
+
+ * eglot.el (eglot-server-programs): Add support for the lua-lsp server
for lua.
+ * README.md: Document the above change.
+
+2022-01-08 jgart <47760695+jgarte@users.noreply.github.com> (tiny change)
+
+ Add support for the mint language server
+
+ * eglot.el (eglot-server-programs): Add support for the mint language
server.
+ * README.md: Document the above change.
+
+2022-01-08 Illia Danko <illia@aigent.com> (tiny change)
+
+ Add pyright language server support for python-mode
+
+ * eglot.el (eglot-server-programs): Add pyright support for
+ python-mode.
+ * README.md: Document the above change.
+
+2022-01-08 Philipp Edelmann <edelmann@fs.tum.de> (tiny change)
+
+ Use fortls also for fortran-mode
+
+ * eglot.el (eglot-server-programs): Use fortls also for fortran-mode.
+
+2022-01-08 Brian Leung <bkleung89@gmail.com>
+
+ Add yaml-language-server for yaml-mode
+
+ * eglot.el (eglot-server-programs): Add yaml-language-server.
+ * README.md: Mention yaml-language-server.
+
+2022-01-08 lorniu/sz <lorniu@gmail.com> (tiny change)
+
+ Use `locate-user-emacs-file` instead of `concat`
+
+ * eglot.el (eglot--eclipse-jdt-contact): Use locate-user-emacs-file.
+
+2022-01-08 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d2284b0353 ; Update files for 28.0.91 pretest
+
+ # Conflicts:
+ # lisp/ldefs-boot.el
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Make sure native keypresses are received immediately on GTK
+
+ * src/gtkutil.c (xg_widget_key_press_event_cb): Send input
+ available signal.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Fix pinch-to-scale on real X servers and NS
+
+ * lisp/face-remap.el (text-scale-pinch): Stop waiting for
+ more events.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Correctly translate GDK virtual modifiers when using native input
+
+ * src/gtkutil.c (xg_virtual_mods_to_x): New function.
+ (xg_widget_key_press_event_cb): Translate modifiers to X first.
+
+2022-01-08 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt Tramp for `auth-info-password'
+
+ * lisp/net/tramp-compat.el (tramp-compat-auth-info-password):
+ New defalias.
+
+ * lisp/net/tramp.el (tramp-read-passwd): Use it.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuterm.c (haiku_clear_frame): Fix clipping.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Add an option to rely on passive touch grabs on X
+
+ This prevents crashes with three-finger touch gestures on
+ Xwayland running on GNOME Shell, and also when running some
+ programs that make use of an Emacs window's XID on the same X
+ server.
+
+ * src/xterm.c (handle_one_xevent): Respect
+ `x-input-grab-touch-events'.
+ (syms_of_xterm): New option `x-input-grab-touch-events.
+
+2022-01-08 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of native input methods
+
+ * doc/emacs/mule.texi (International, Input Methods)
+ (Unibyte Mode): Document user-level features of native input
+ methods.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ * lisp/cus-start.el (standard): Fix standard customizables for PGTK.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Fix build on PGTK
+
+ * src/gtkutil.c (xg_mark_data):
+ * src/gtkutil.h (xg_filter_key): Ifdef out definitions on PGTK.
+
+2022-01-08 Po Lu <luangruo@yahoo.com>
+
+ Allow using GTK+ to handle input methods on X
+
+ * doc/emacs/xresources.texi (Table of Resources): Document new
+ value of `inputStyle'.
+ * etc/NEWS: Announce new option.
+
+ * lisp/cus-start.el (standard): Add `x-gtk-use-native-input'.
+ * src/gtkutil.c (xg_mark_data): Mark xg_pending_quit_event.
+ (xg_add_virtual_mods):
+ (xg_im_context_commit):
+ (xg_im_context_preedit_changed):
+ (xg_im_context_preedit_end):
+ (xg_widget_key_press_event_cb):
+ (xg_filter_key): New functions.
+ * src/gtkutil.h: Add prototype for `xg_filter_key'.
+ * src/xfns.c (xic_set_preeditarea): Set cursor location for the
+ GTK IM context as well.
+ * src/xterm.c (xg_pending_quit_event): New variable.
+ (x_focus_changed): Set focus on the GTK input context as well.
+ (x_filter_event): Filter events through GTK if the user asked
+ for it.
+ (handle_one_xevent): Likewise.
+ (XTread_socket): Set hold_quit to xg_pending_quit_event if it
+ exists.
+ (x_draw_window_cursor): Always set preedit area even if XIC
+ doesn't exist.
+ * src/xterm.h (struct x_display_info): New field
+ `prefer_native_input'.
+ (struct x_output): New field `im_context'.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (pgtk_enqueue_string): Free return of g_utf8_to_ucs4.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Call EVENT_INIT in some places
+
+ * src/xfns.c (xic_preedit_done_callback):
+ (xic_preedit_draw_callback): Call EVENT_INIT.
+
+2022-01-07 Sam Steingold <sds@gnu.org>
+
+ Add `auth-info-password' and use it instead of ad hoc code
+
+ * lisp/auth-source.el (auth-info-password):
+ Extract from `auth-source-pick-first-password'.
+ (auth-source-pick-first-password, auth-source-secrets-create)
+ (auth-source-user-and-password): Use `auth-info-password'.
+ * lisp/erc/erc-services.el (erc-nickserv-get-password):
+ Use `auth-source-pick-first-password'.
+ * lisp/erc/erc.el (erc-open, erc-server-join-channel): Likewise.
+ * lisp/gnus/mail-source.el (mail-source-set-1): Add a comment.
+ * lisp/gnus/nnimap.el (nnimap-credentials): Use `auth-info-password'.
+ * lisp/gnus/nntp.el (nntp-send-authinfo): Likewise.
+ * lisp/mail/rmail.el (rmail-get-remote-password): Likewise.
+ * lisp/mail/smtpmail.el (smtpmail-try-auth-methods): Likewise.
+ * lisp/net/sieve-manage.el (sieve-sasl-auth): Likewise.
+ * lisp/net/tramp.el (tramp-read-passwd): Likewise.
+ * lisp/net/rcirc.el (rcirc): Likewise (fixes a bug: the possibility
+ that password might be a function was not handled).
+
+2022-01-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix "C-SPC C-SPC" after "C-x C-x"
+
+ * lisp/simple.el (exchange-point-and-mark): Fix what the command
+ does when 'transient-mark-mode' is OFF. (Bug#52896)
+
+2022-01-07 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements for 'pgtk' documentation
+
+ * src/dispnew.c (syms_of_display) <initial-window-system>
+ <window-system>:
+ * src/frame.c (Fwindow_system):
+ * doc/lispref/display.texi (Defining Faces, Window Systems):
+ * doc/lispref/frames.texi (Frames): Mention/explain 'pgtk'/'haiku'.
+ * doc/lispref/commands.texi (Misc Events): Fix @example and
+ markup.
+
+2022-01-07 Yuuki Harano <masm+github@masm11.me>
+
+ Handle internal events specially on PGTK
+
+ * src/xgselect.c (xg_select): If there are pending events already,
+ don't sleep.
+
+2022-01-07 Yuuki Harano <masm+github@masm11.me>
+
+ Write documentation about ARG of the preedit-text event on PGTK
+
+ * doc/lispref/commands.texi (Misc Events):
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Fix special-cased cursor foreground and background correctly on PGTK
+
+ * src/pgtkfns.c (x_set_foreground_color):
+ (x_set_background_color): Set cursor color as well if
+ appropriate. (bug#53073)
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Add documentation for the `none' input style
+
+ * doc/emacs/xresources.texi (Table of Resources): Document
+ missing value of `inputStyle'.
+
+2022-01-07 Protesilaos Stavrou <info@protesilaos.com>
+
+ * admin/MAINTAINERS: Describe Modus themes as externally maintained
package
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ * doc/lispref/display.texi (Face Attributes): Update doc for new values.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation of the preedit-text event
+
+ * doc/lispref/commands.texi (Misc Events): Document how
+ `preedit-text' events are used.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Disable new input method behaviour by default on X
+
+ * src/xfns.c (supported_xim_styles): Default to STYLE_NONE.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Allow controlling the X input method style
+
+ * doc/emacs/xresources.texi (Table of Resources): Document new
+ resource `inputStyle'.
+ * etc/NEWS: Announce new resource.
+
+ * src/xfns.c (create_frame_xic): Give the display info to
+ `best_xim_style'.
+ (best_xim_style): Take the display's preferred style into
+ account.
+
+ * src/xterm.c (x_term_init): Parse the preferred style if
+ inputStyle is set.
+
+ * src/xterm.h (struct x_display_info): New field
+ `preferred_xim_style'.
+
+ (STYLE_OFFTHESPOT, STYLE_OVERTHESPOT, STYLE_ROOT):
+ (STYLE_CALLBACK, STYLE_NONE): New macros.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ * src/haikuselect.c: Fix implicit declaration of free.
+
+2022-01-07 Po Lu <luangruo@yahoo.com>
+
+ Display pre-edit information from X input methods
+
+ This also repurposes the `pgtk-preedit-text' event to be
+ meaningful on X, renames it `preedit-text', and documents it.
+
+ * doc/lispref/commands.texi (Misc Events): Document
+ `preedit-text'.
+ * lisp/term/pgtk-win.el (pgtk-preedit-text): Bind to
+ `preedit-text' instead.
+ * lisp/term/x-win.el (x-preedit-overlay): New variable.
+ (x-preedit-text): New command, bound as a special event to
+ `preedit-text'.
+
+ * src/keyboard.c (kbd_buffer_get_event):
+ (make_lispy_event): Rename PGTK_PREEDIT_TEXT_EVENT
+ PREEDIT_TEXT_EVENT.
+ (syms_of_keyboard): New defsym `preedit-text'.
+ * src/pgtkterm.c (pgtk_enqueue_preedit): Use PREEDIT_TEXT_EVENT
+ instead.
+ * src/termhooks.h (enum event_kind): Rename
+ `PGTK_PREEDIT_TEXT_EVENT' `PREEDIT_TEXT_EVENT'.
+
+ * src/xfns.c (Xxic_preedit_draw_callback):
+ (Xxic_preedit_caret_callback):
+ (Xxic_preedit_done_callback):
+ (Xxic_preedit_start_callback): New callback variables.
+
+ (STYLE_OFFTHESPOT, STYLE_OVERTHESPOT):
+ (STYLE_ROOT, STYLE_CALLBACK, STYLE_NONE): New macros.
+ (supported_xim_styles): Use reasonable values. This also serves
+ as a better fix for bug#10867.
+ (best_xim_style): Restore code deleted as part of the original
+ fix for bug#10867.
+ (create_frame_xic): Add preedit callbacks.
+ (xic_set_preeditarea): Add preedit callbacks.
+ (x_xic_to_frame):
+ (xic_preedit_start_callback):
+ (xic_preedit_caret_callback):
+ (xic_preedit_done_callback):
+ (x_xim_text_to_utf8_unix):
+ (xic_preedit_draw_callback): New functions.
+
+ * src/xterm.c (x_detect_focus_change): Fix type of XI event.
+ (x_free_frame_resources): Free preedit text buffer if still
+ present.
+ * src/xterm.h (struct x_output): New fields `preedit_size',
+ `preedit_chars' and `preedit_active'.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ * admin/MAINTAINERS: Add myself for some things.
+
+2022-01-06 Philip Kaludercic <philipk@posteo.net>
+
+ Add rcirc-when command
+
+ * doc/misc/rcirc.texi: Document rcirc-when.
+ * etc/NEWS: Document rcirc-when.
+ * lisp/net/rcirc.el (rcirc-when): Add command.
+
+2022-01-06 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of font-related face attributes
+
+ * lisp/faces.el (set-face-attribute): Mention aliases of face
+ attributes. (Bug#53050)
+
+2022-01-06 Michael Albinus <michael.albinus@gmx.de>
+
+ * admin/MAINTAINERS: Describe Tramp as externally maintained package
+
+2022-01-06 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Fix selection of fonts that don't have regular weight"
+
+ This reverts commit 1b2511fa2aed460120a36765ba16c14e355eef1d.
+ That commit caused unintended regressions which are worse
+ than the problem it attempted to fix. See the discussion at
+
+ https://lists.gnu.org/archive/html/emacs-devel/2021-12/msg01643.html
+
+ for the details.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ Remove some more useless clipping stack calls on Haiku
+
+ * src/haikuterm.c (haiku_draw_box_rect):
+ (haiku_draw_relief_rect):
+ (haiku_draw_text_decoration): Get rid of calls to
+ BView_StartClip and BView_EndClip.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ Generate TOUCH_END_EVENTs on NS when mwheel momentum is disabled
+
+ * src/nsterm.m ([EmacsView mouseDown:]): Generate
+ TOUCH_END_EVENTs on the first event whose momentum phase is not
+ NSEventPhaseNone.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ Make sure touch end events aren't sent too many times
+
+ * src/xterm.c (handle_one_xevent): Don't send touch end events
+ twice if two valuators have their masks set without a change in
+ value.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ Add group to xkey state before filtering it on XI_KeyRelease
+
+ * src/xterm.c (handle_one_xevent): Add group to xkey.state
+ before filtering an XI2 key release event. This fixes fcitx on
+ some systems.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ Fix GNUstep compilation warnings
+
+ * src/Makefile.in (NON_OBJC_CFLAGS): Add `-Wnested-externs'.
+ * src/emacs.c (load_pdump): Only define exec_bufsize if
+ !NS_SELF_CONTAINED.
+ * src/image.c (ARGB_TO_ULONG): Don't define if HAVE_NS.
+ * src/nsterm.m (ns_destroy_window): Pacify incorrect GCC
+ warning.
+ (ns_query_color): Make static.
+ (ns_run_loop_break): Fix old-style definition.
+ ([EmacsView toggleFullScreen:]): Remove unused variable.
+
+2022-01-06 Po Lu <luangruo@yahoo.com>
+
+ Fix duplicate overhang display on GNUstep
+
+ * src/nsfont.m (nsfont_draw): Stop saving DPS clip and remove
+ workaround for bad clipping.
+ * src/nsterm.m (ns_draw_glyph_string): Clip to glyph string rect
+ when displaying overhangs.
+
+2022-01-05 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Check for errors when kbd map.
+
+2022-01-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ cl-generic.el: Fix bug#46722
+
+ Fix longstanding bug due to unexpected interference via side-effect.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-get-dispatcher):
+ Copy the `dispatch` arg before storing it into the hash-table.
+
+2022-01-05 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/paragraphs.el (repunctuate-sentences): Use filter
variable.
+
+ (repunctuate-sentences-filter)<defun>:
+ Reimplement without using match data.
+ (repunctuate-sentences-filter)<defvar>: New variable.
+ (repunctuate-sentences): Use new variable.
+ Remove regexp group from spaces as was before.
+ https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg00395.html
+
+2022-01-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in cvs-status-mode-map keymap
+
+ * lisp/vc/cvs-status.el (cvs-status-mode-map): Fix typo in keymap
+ definition.
+
+2022-01-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix info-lookup docs and "C-h S" in major-modes with no manuals
+
+ * lisp/info-look.el (info-lookup-alist, info-lookup-add-help)
+ (info-lookup-symbol, info-lookup-file, info-lookup)
+ (info-lookup-interactive-arguments): Clarify and expand the doc
+ strings.
+ (info-lookup-change-mode): Topic values can have their `:mode' as
+ a cons cell, not just a mode's symbol; support that.
+
+2022-01-05 Po Lu <luangruo@yahoo.com>
+
+ Enable subpixel antialiasing on the Cairo font driver on Haiku
+
+ * src/ftcrfont.c (ftcrfont_open): Manually enable subpixel
+ antialiasing on Haiku.
+
+ * src/haiku_support.cc
+ (get_subpixel_antialiasing): New function declaration.
+ (be_use_subpixel_antialising):
+ * src/haiku_support.h (be_use_subpixel_antialising): New
+ functions.
+
+2022-01-05 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/buff-menu.el (Buffer-menu-mode-map): Use defvar-keymap.
+
+2022-01-05 Po Lu <luangruo@yahoo.com>
+
+ Resolve clipping related mysteries on Haiku
+
+ * src/ftcrfont.c (ftcrfont_draw):
+ * src/haikufont.c (haikufont_draw): Remove workarounds for
+ previously broken clipping code.
+ * src/haikuterm.c (haiku_clip_to_string): Handle empty clipping
+ rectangles correctly.
+ (haiku_clip_to_string_exactly): Stop setting num_clips.
+ (haiku_draw_glyph_string): Stop saving face when drawing
+ overhangs.
+
+2022-01-05 Po Lu <luangruo@yahoo.com>
+
+ Make sure mouse face doesn't stay on the cursor after it is cleared
+
+ cursor_in_mouse_face_p will still return true when the phys
+ cursor is drawn inside show_mouse_face when called by
+ clear_mouse_face, since that drawing happens before
+ hlinfo->mouse_face_window can be set to nil.
+
+ However, the row's mouse_face_p will be adjusted before the
+ cursor is drawn in show_mouse_face, so it can be used to
+ determine if the cursor is actually under mouse face.
+
+ * src/xdisp.c (fill_composite_glyph_string):
+ (fill_gstring_glyph_string):
+ (fill_glyphless_glyph_string):
+ (fill_glyph_string):
+ (fill_xwidget_glyph_string):
+ (fill_stretch_glyph_string): Only apply mouse face when
+ DRAW_CURSOR if the row is also mouse_face_p.
+
+ (set_glyph_string_background_width): Only adjust width if the
+ row holding the cursor is also mouse_face_p.
+
+2022-01-05 Po Lu <luangruo@yahoo.com>
+
+ Simply conditions for mouse face display when drawing cursor on Haiku
+
+ * src/haikuterm.c (haiku_draw_stretch_glyph_string): Simplify
+ conditions for mouse face display.
+
+2022-01-05 Po Lu <luangruo@yahoo.com>
+
+ Remove some unnecessary graphics state saves on Haiku
+
+ * src/haikufont.c (haikufont_draw):
+ * src/haikuterm.c (haiku_draw_box_rect):
+ (haiku_draw_relief_rect):
+ (haiku_draw_underwave):
+ (haiku_draw_text_decoration):
+ (haiku_draw_plain_background):
+ (haiku_draw_glyph_string_foreground):
+ (haiku_draw_glyphless_glyph_string_foreground):
+ (haiku_draw_stretch_glyph_string):
+ (haiku_draw_composite_glyph_string_foreground):
+ (haiku_draw_image_glyph_string): Remove unnecessary calls to
+ BView_StartClip and BView_EndClip.
+
+2022-01-05 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e7aa3ece52 Fix vc-git with old Git over Tramp and cygwin-mount.el
+ c0cfbca311 * lisp/emacs-lisp/checkdoc.el (bytecomp): Add missing require
+
+ # Conflicts:
+ # etc/NEWS
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidgets setting their own signal handlers
+
+ * src/xgselect.c (release_select_lock):
+ (acquire_select_lock): Fix coding style.
+ (xg_select): Call `catch_child_signal' if xwidgets are enabled.
+
+ * src/xwidget.c (kill_xwidget):
+ (kill_buffer_xwidgets): Call `catch_child_signal'. (bug#53013)
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Fix display of internal border in child frames on pgtk
+
+ * src/pgtkfns.c (Fx_create_frame): Fix child frame border
+ resource names.
+ * src/pgtkterm.c (pgtk_clear_under_internal_border): Fix test
+ for child frames. (bug#53018)
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Correctly set up XI key input mask on X Toolkit builds
+
+ * src/xfns.c (setup_xi_event_mask): Also set the key event mask
+ on the outer window, which might also have the input focus.
+ (x_window) [USE_X_TOOLKIT]: Set up XI event mask a bit later.
+
+2022-01-04 Daniel Mendler <mail@daniel-mendler.de>
+
+ completion--nth-completion: Throw meaningful error
+
+ If a configured completion style does not exist, throw a meaningful
+ error. Also make completion-styles-alist a defvar, since completion
+ styles like orderless extend it.
+
+ * lisp/minibuffer.el (completion-styles-alist): Make it a defvar.
+ (completion--nth-completion): Give a more meaningful error.
+
+2022-01-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from gnulib
+
+2022-01-04 Robert Pluim <rpluim@gmail.com>
+
+ Remove ambiguity from key-valid-p docstring
+
+ * lisp/keymap.el (key-valid-p): Be explicit about the separator
+ being one and only one space.
+
+2022-01-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve pp-emacs-lisp-code for #'
+
+ * lisp/emacs-lisp/pp.el (pp--insert-lisp): Format (function ...)
+ as #'.
+
+2022-01-04 Eli Zaretskii <eliz@gnu.org>
+
+ A cleaner fix for display bug#52947
+
+ * src/xdisp.c (tab_bar_height, redisplay_tab_bar): Don't call
+ set_iterator_to_next here...
+ (display_tab_bar_line): ...call it here, even if we exit the loop
+ because we encounter a newline.
+
+2022-01-04 Jimmy Aguilar Mena <spacibba@aol.com>
+
+ Autoload decorator for windmove-mode
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Translate more modifiers to GDK ones in xwidgets
+
+ * src/xwidget.c (xw_translate_x_modifiers): Also handle Control
+ and ShiftMask.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Stop assuming X kbd state works with GDK when forwarding events to
xwidgets
+
+ * src/xwidget.c (xw_translate_x_modifiers): New function.
+ (Fxwidget_perform_lispy_event): Translate X modifiers to GDK
+ modifiers before sending them to the xwidget.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Make `x-file-dialog' arity match documentation on Haiku
+
+ * lisp/term/haiku-win.el (x-file-dialog): Fix arity.
+
+2022-01-04 Alan Third <alan@idiocy.org>
+
+ Remove macOS drop-shadows on some frames (bug#28512)
+
+ * src/nsterm.m ([EmacsWindow setParentChildRelationships]): Remove
+ shadows on undecorated child frames.
+
+2022-01-04 Stefan Kangas <stefan@marxist.se>
+
+ Remove unnecessary autoload cookie in font-core.el
+
+ * lisp/font-core.el (font-lock-defaults): Remove autoload of
+ risky-local-variable property; this file is preloaded.
+
+2022-01-04 Yuuki Harano <masm+github@masm11.me>
+
+ Remove gsettings.m4 and write directly into Makefile.in
+
+ * configure.ac (HAVE_PGTK): Declare substitution
+ (HAVE_GSETTINGS): Declare substitution
+ * Makefile.in (HAVE_PGTK): New variable
+ (HAVE_GSETTINGS): New variable
+ (gsettingsschemadir): Don't use value from gsettings.m4
+ (distclean): Add clean-gsettings-schemas
+ (install-gsettings-schemas): Implement instead of gsettings.m4
+ (uninstall-gsettings-schemas): Implement instead of gsettings.m4
+ (clean-gsettings-schemas): Implement instead of gsettings.m4
+ ($(gsettings_SCHEMAS:.xml=.valid)): Implement instead of gsettings.m4
+ * m4/gsettings.m4: Remove
+
+2022-01-04 Jim Porter <jporterbugs@gmail.com>
+
+ Prevent further cases of duplicated separators in context menus
+
+ In some cases, context menu items are added before the overall prompt
+ string. This could cause multiple consecutive separators to appear if
+ they "surround" the prompt string. (Bug#52293)
+
+ * lisp/mouse.el (context-menu-map): Improve the de-duplication logic
+ to ignore non-menu-items when checking for consecutive separators.
+
+ * test/lisp/mouse-tests.el
+ (context-menu-map-remove-consecutive-separators)
+ (context-menu-map-remove-separators-at-beginning-or-end): New tests.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Fix unused variable warning in last change
+
+ * src/haiku_draw_support.c (BBitmap_transform_bitmap): Fix
+ unused variable warning.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Rationalize Haiku rectangle handling
+
+ * src/haiku_draw_support.cc (BView_DrawBitmapWithEraseOp):
+ (BView_DrawMask):
+ (rotate_bitmap_270):
+ (rotate_bitmap_90):
+ (BBitmap_transform_bitmap):
+ * src/haiku_support.cc (UnZoom):
+ (GetParentWidthHeight):
+ (MakeFullscreen):
+ (AttachCairoSurface):
+ (AfterResize):
+ (DrawContent):
+ (BView_cr_dump_clipping): Use new rectangle handling macros.
+
+ * src/haiku_support.h (BE_RECT_WIDTH, BE_RECT_HEIGHT): New
+ macros.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Make menu bar key navigation work on Haiku
+
+ * src/haiku_support.cc (menu_bar_active_p): New variable.
+ (DispatchMessage): Pass through key events if the menu bar is
+ active.
+ (MenusBeginning, MenusEnd): Set `menu_bar_active_p' according
+ to the state of the menu bar.
+ (BMenuBar_delete): Clear `menu_bar_active_p'.
+
+ * src/haikufns.c (haiku_free_frame_resources): Block input only
+ after checking that F is a window system frame.
+ * src/haikumenu.c (Fhaiku_menu_bar_open): Update doc string.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Improve Haiku frame restacking logic
+
+ * src/haiku_support.cc (BWindow_is_active):
+ * src/haiku_support.h (BWindow_is_active): New functions.
+
+ * src/haikufns.c (Fhaiku_frame_restack): Prevent the newly
+ raised frame from being sent to the back of the display.
+
+2022-01-04 Po Lu <luangruo@yahoo.com>
+
+ Find a way to make restacking frames work on Haiku
+
+ * doc/lispref/frames.texi (Raising and Lowering): Update
+ documentation to reflect that restacking frames is now
+ supported on Haiku.
+ * lisp/frame.el (haiku-frame-restack): New declaration.
+ (frame-restack): Use `haiku-frame-restack' on Haiku.
+
+ * src/haiku_support.cc (BWindow_send_behind):
+ * src/haiku_support.h (BWindow_send_behind):
+ * src/haikufns.c (Fhaiku_frame_restack): New functions.
+ (syms_of_haikufns): New subr `haiku-frame-restack'.
+
+2022-01-03 Stefan Kangas <stefan@marxist.se>
+
+ * test/src/doc-tests.el: New file.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Add effective group to xkey events when handling XI key press events
+
+ * src/xterm.c (handle_one_xevent): Add effective group to
+ xkey.state when translating XI key events.
+
+2022-01-03 Stefan Kangas <stefan@marxist.se>
+
+ Fix two unused variable warnings in make-docfile.c
+
+ * lib-src/make-docfile.c (scan_lisp_file): Fix unused variable
+ warnings.
+
+2022-01-03 Stefan Kangas <stefan@marxist.se>
+
+ Test that buffer exists in shortdoc-all-groups-work
+
+ * test/lisp/emacs-lisp/shortdoc-tests.el
+ (shortdoc-all-groups-work): Test that the shortdoc buffer was created.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Fix Haiku bitmap sanity checks
+
+ * src/haikufns.c (haiku_get_pixel, haiku_put_pixel): Fix sanity
+ checking of coordinate values.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Fix fringe bitmap display on haiku again
+
+ * src/haiku_draw_support.cc (BView_DrawBitmapWithEraseOp): Fix
+ off-by-one errors.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Fix duplicate file panel display on Haiku
+
+ * lisp/term/haiku-win.el (x-file-dialog): Fix up prompt to look
+ better.
+
+ * src/haiku_support.cc (be_popup_file_dialog): Remove duplicate
+ call to `Show'.
+
+2022-01-03 Stefan Kangas <stefan@marxist.se>
+
+ New test shortdoc-all-groups-work
+
+ * test/lisp/emacs-lisp/shortdoc-tests.el
+ (shortdoc-all-groups-work): New test. See Bug#52969.
+
+2022-01-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Revert part of 59732a83c8 to fix bug#52969
+
+ While we don't need to put docstrings of .elc files into etc/DOC,
+ we still need to put those of `loaddefs.el` there since we don't have
+ a "dynamic docstring" feature for the non-compiled files and keeping
+ the actual docstrings in the heap would be prohibitive.
+
+ * src/Makefile.in ($(etc)/DOC): Scan `lisp/loaddefs.el` still.
+
+ * lib-src/make-docfile.c (scan_lisp_file): New function.
+ (scan_file): Use it.
+ (skip_white, read_lisp_symbol, search_lisp_doc_at_eol): New functions.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ * src/haiku_font_support.cc (BFont_char_bounds): Fix bearings.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Synchronize at a better place when making a frame visible on Haiku
+
+ * src/haiku_support.cc (BWindow_set_visible): Stop synchronizing
+ here.
+
+ * src/haikufns.c (haiku_visualize_frame):
+ (haiku_unvisualize_frame): Sychronize after visibility changes.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Implement AC line status for the Haiku battery function
+
+ * lisp/battery.el (battery--search-haiku-acpi-status): Return
+ `fully-charged' instead of `normal'.
+ (battery-haiku-acpi-battery): Implement %L for AC line status.
+
+2022-01-03 Stefan Kangas <stefan@marxist.se>
+
+ elide-head: Make GPL regexp more forgiving
+
+ * lisp/elide-head.el (elide-head-headers-to-hide): Make GPL regexp
+ more forgiving.
+ * test/lisp/elide-head-tests.el (elide-head--add-test): New macro.
+ (elide-head--test-headers-to-hide/gpl2-1)
+ (elide-head--test-headers-to-hide/gpl3-1)
+ (elide-head--test-headers-to-hide/gpl3-2)
+ (elide-head--test-headers-to-hide/gpl3-3)
+ (elide-head--test-headers-to-hide/gpl3-4): New tests.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Fix battery load calculation on Haiku
+
+ * lisp/battery.el (battery-haiku-acpi-battery): Fix load
+ calculation.
+
+2022-01-03 Po Lu <luangruo@yahoo.com>
+
+ Add support for the Haiku ACPI battery driver
+
+ * lisp/battery.el (battery-status-function): Choose
+ `battery-haiku-acpi-battery' if the Haiku ACPI driver is
+ available.
+ (battery--search-haiku-acpi-status):
+ (battery-haiku-acpi-battery): New functions.
+
+2022-01-03 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/elide-head.el (elide-head-headers-to-hide): Simplify.
+
+2022-01-02 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in eieio tests
+
+ This is a temporary workaround for Bug#52971.
+ * test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el
+ (eieio-compat)
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el (eieio-compat):
+ Silence byte-compiler by wrapping require in with-no-warnings.
+
+2022-01-02 Po Lu <luangruo@yahoo.com>
+
+ Don't try to guess a delta if a scroll valuator's state is unknown
+
+ * src/xterm.c (x_get_scroll_valuator_delta): Return DBL_MAX if
+ the scroll valuator's value is unknown.
+
+2022-01-02 Po Lu <luangruo@yahoo.com>
+
+ Revert "Stop sending touch-end events if coalescing scroll events"
+
+ This reverts commit a6952f78f3962ac2d9a5add580a130f0abd31429.
+
+2022-01-02 Po Lu <luangruo@yahoo.com>
+
+ Use XKB to find modifiers on x
+
+ * src/xterm.c (x_find_modifier_meanings): Look for virtual
+ modifiers with Xkb instead.
+ (handle_one_xevent): Add group when translating XI2 keycodes and
+ handle Xkb keymap events.
+ (x_term_init): Populate dpyinfo->xkb_event_type.
+
+ * src/xterm.h (struct x_display_info): New field
+ `xkb_event_type', and change modifier masks to `unsigned int'.
+
+2022-01-02 Po Lu <luangruo@yahoo.com>
+
+ * src/haikumenu.c (haiku_menu_show): Fix input blocking.
+
+2022-01-02 Stefan Kangas <stefan@marxist.se>
+
+ Move define-keymap and defvar-keymap to keymap.el
+
+ These functions deal with the "new" keymap binding interface, so they
+ belong in keymap.el rather than in subr.el.
+ * lisp/subr.el (define-keymap--compile, define-keymap)
+ (defvar-keymap): Move from here ...
+ * lisp/keymap.el (define-keymap--compile, define-keymap)
+ (defvar-keymap): ... to here.
+
+2022-01-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge remote-tracking branch 'origin/emacs-28' into trunk
+
+2022-01-02 Stefan Kangas <stefan@marxist.se>
+
+ elide-head: Add support for modified BSD license
+
+ * lisp/elide-head.el (elide-head-headers-to-hide): Add support for
+ the modified BSD license (3-clause BSD).
+
+2022-01-02 Stefan Kangas <stefan@marxist.se>
+
+ New :type key for defcustom
+
+ As compared to the old type key-sequence that deals with raw key
+ sequences, this :type conforms to the format used by the new keymap-*
+ functions.
+ * lisp/wid-edit.el (key): New widget type. (Bug#52523)
+ (widget-key-prompt-value-history): New variable.
+ (widget-key-validate): New function.
+ (key-sequence): Doc fix.
+ * doc/lispref/customize.texi (Simple Types): Document above new type.
+
+2022-01-02 Mattias Engdegård <mattiase@acm.org>
+
+ Don't fail flymake-tests if `gcc` actually is Clang
+
+ * test/lisp/progmodes/flymake-tests.el (flymake-tests--gcc-is-clang)
+ (different-diagnostic-types, included-c-header-files): Skip tests that
+ depend on the `gcc` command really being GCC and not Clang.
+
+2022-01-02 Po Lu <luangruo@yahoo.com>
+
+ Add column width to tooltip frame width on pgtk
+
+ * src/pgtkfns.c (Fx_show_tip): Add column width to width to
+ avoid an odd problem in the GTK allocation code. (bug#52705)
+
+2022-01-02 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse wheel scroll direction on pgtk
+
+ * src/pgtkterm.c (scroll_event): Fix scroll modifiers when
+ `mwheel-coalesce-scroll-events' is nil.
+
+2022-01-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ efb1c7ec37 ; * admin/notes/years: More known problems.
+ f475c5823a ; Copyright year fixes
+ 2684def348 ; Run set-copyright from admin.el
+ 2558b37b5e ; * admin/notes/years: Mention known problems with 'update...
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Fix XRegisterIMInstantiateCallback function argument configure test
+
+ * configure.ac: Use XIDProc where XIMProc was mistakenly used.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Stop sending touch-end events if coalescing scroll events
+
+ * src/xterm.c (handle_one_xevent): Don't generate touch-end
+ events if mwheel_coalesce_scroll_events is non-nil.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse face problems when moving between two frames on Haiku
+
+ * src/haiku_support.cc (movement_locker): New locker.
+ (MouseMoved): Lock that locker.
+ (BWindow_new):
+ (BWindow_quit): Use LockLooper instead of Lock.
+
+ * src/haikuterm.c (haiku_read_socket): Clear mouse face if
+ a motion event is received for a frame other than the one
+ that is currently displaying the mouse face.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Make quitting actually work in Haiku file dialogs
+
+ * src/haiku_support.h: (be_popup_file_dialog)
+ * src/haiku_support.cc (be_popup_file_dialog): New parameter
+ `maybe_quit_function'.
+ * src/haikufns.c (Fhaiku_read_file_name): Pass `maybe_quit' as
+ the maybe_quit_function.
+
+2022-01-01 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 58b0ada20b Update more copyright years
+
+2022-01-01 Stefan Kangas <stefan@marxist.se>
+
+ elide-head: Support more licenses
+
+ * lisp/elide-head.el (elide-head-headers-to-hide): Add support for the
+ Expat License, and more variants of the BSD-2-Clause License.
+
+ Add old FSF address. This fixes a bug reported in 2003:
+ https://lists.gnu.org/r/bug-gnu-emacs/2003-01/msg00142.html
+
+2022-01-01 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 836be7a112 ; * etc/refcards/ru-refcard.tex: Update Copyright year.
+ 86cbc6ee4a * lisp/net/tramp-sh.el: Adapt copyright year
+ ebe8772f65 ; Minor fixes related to copyright years
+ 23c1ee6989 ; * test/manual/etags/ETAGS.good_N: Adjust to copyright ye...
+ 8d3fc7ec89 * src/xfaces.c (face_for_font): Make 'hash' be uintptr_t.
+ 19dcb237b5 ; Add 2022 to copyright years.
+
+ # Conflicts:
+ # etc/NEWS
+ # etc/refcards/ru-refcard.tex
+ # lib/cdefs.h
+ # lisp/erc/erc-dcc.el
+ # lisp/erc/erc-imenu.el
+ # lisp/erc/erc-replace.el
+ # lisp/image-dired.el
+ # lisp/progmodes/xref.el
+ # m4/alloca.m4
+ # m4/byteswap.m4
+ # m4/errno_h.m4
+ # m4/getopt.m4
+ # m4/gnulib-common.m4
+ # m4/inttypes.m4
+ # m4/stddef_h.m4
+ # m4/stdint.m4
+ # m4/sys_socket_h.m4
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Increase size of precision scrolling momentum ring
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-initial-velocity-factor): Fix
+ calculation of last timestamp.
+ (pixel-scroll-precision):
+ (pixel-scroll-kinetic-state):
+ (pixel-scroll-accumulate-velocity):
+ (pixel-scroll-start-momentum):
+ (pixel-scroll-calculate-velocity): Increase default ring size
+ to 30.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Make last change compile
+
+ * src/haiku_support.cc (EmacsShow): Fix last change.
+ (TearDownDoubleBuffering): Likewise.
+ (Draw): Draw normally if not double buffered even if shown_flag
+ is true.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Fix expose events in non-double-buffered child frames on Haiku
+
+ * src/haiku_support.cc (EmacsShow): Set shown_flag to 1 only if
+ this view is double buffered.
+ (TearDownDoubleBuffering): Clear shown_flag.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Fix some more off-by-one errors in Haiku image code
+
+ * src/haiku_draw_support.cc (BView_DrawBitmapWithEraseOp):
+ (BView_DrawMask):
+ (BBitmap_transform_bitmap):
+ * src/haiku_support.cc (AttachCairoSurface): Adjust calculations
+ to take account of BRect width and height functions returning
+ (start - end) instead of the actual width and height of the
+ rectangle.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Fix deadlocks with invisible frames and threads in Haiku
+
+ * src/haiku_support.cc (class EmacsWindow): New field
+ `was_shown_p'.
+ (EmacsShow): Lock looper if the window wasn't ever visible.
+ (BWindow_new): Unlock window looper after creating it.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Set display last user time when handling pinch events
+
+ * src/xterm.c (handle_one_xevent): Set last user time for XI
+ pinch events.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Fix child frame synchronization order on Haiku
+
+ * src/haiku_support.cc (DoMove):
+ (FrameMoved): Fix locking and sync order semantics.
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Implement numeric values of `mouse-highlight' on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Clear mouse face on
+ keyboard input if `mouse-highlight' is a fixnum.
+
+2022-01-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2021-12-31 02:56:06 UTC.
+
+2022-01-01 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 67400da412 Improve doc strings of fringe indicator variables
+ a6adfe21e4 * lisp/tab-line.el (tab-line--get-tab-property): New funct...
+
+2022-01-01 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f2031d0ddb Minor improvement in user documentation of completion style
+ 1e3076e2db Fix bug where bookmark-jump used (point), not (point-at-bol)
+
+2022-01-01 Po Lu <luangruo@yahoo.com>
+
+ Flush frames after mouse face is cleared on a child frame in Haiku
+
+ * src/haiku_support.cc (~EmacsWindow):
+ (UpwardsSubsetChildren):
+ (UpwardsUnSubsetChildren): Fix locking semantics.
+
+ * src/haikuterm.c (haiku_read_socket): Flush dirty back buffers
+ after clearing mouse face because the pointer was moved out of a
+ frame.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ Print dead xwidgets specially
+
+ * src/print.c (print_vectorlike) <PVEC_XWIDGET>: Print "killed
+ xwidget" for dead xwidgets.
+
+2021-12-31 Alan Mackenzie <acm@muc.de>
+
+ Try to make scratch/correct-warning-pos build on Windows and not
segfault
+
+ * src/comp.c (emit_EQ): Replace calls to gcc_jit_context_new_location
with
+ NULLs.
+ (Fcomp__init_ctxt): Remove the register_emitter call for
Qsymbol_with_pos_p,
+ which was causing a segfault.
+
+2021-12-31 Alan Mackenzie <acm@muc.de>
+
+ Miscellaneous enhancements to scratch/correct-warning-pos.
+
+ 1. Check the type (symbol with position) of the argument given to the
native
+ compiled version of SYMBOL_WITH_POS_SYM.
+ 2. Handle infinite recursion caused by circular lists, etc., in
+ macroexp-strip-symbol-positions by using hash tables.
+ 3. Read byte compiled functions without giving symbols positions.
+
+ * lisp/emacs-lisp/comp.el (comp-finalize-relocs): Add symbol-with-pos-p
into
+ the list of relocated symbols.
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--ssp-conses-seen)
+ (macroexp--ssp-vectors-seen, macroexp--ssp-records-seen): Renamed, and
+ animated as hash tables.
+ (macroexp--strip-s-p-2): Optionally tests for the presence of an
argument in
+ one of the above hash tables, so as to handle otherwise infinite
recursion.
+ (byte-compile-strip-s-p-1): Add a condition-case to handle infinite
recursion
+ caused by circular lists etc., using the above hash tables as required.
+
+ * src/comp.c (comp_t): New element symbol_with_pos_sym.
+ (emit_SYMBOL_WITH_POS_SYM): Amend just to call the new
SYMBOL_WITH_POS_SYM.
+ (emit_CHECK_SYMBOL_WITH_POS, define_SYMBOL_WITH_POS_SYM): New functions.
+ (Fcomp__init_ctxt): Register an emitter for Qsymbol_with_pos_p.
+ (Fcomp__compile_ctxt_to_file): Call define_SYMBOL_WITH_POS_SYM.
+ (syms_of_comp): Define Qsymbol_with_pos_p.
+
+ * src/data.c (syms_of_data): Define a new error symbol
Qrecursion_error, an
+ error category for the new error symbols Qexcessive_variable_binding and
+ Qexcessive_lisp_nesting.
+
+ * src/eval.c (grow_specpdl): Change the signal_error call to an
xsignal0 call
+ using the new error symbol Qexcessive_variable_binding.
+ (eval_sub, Ffuncall): Change the `error' calls to xsignal using the new
error
+ symbol Qexcessive_lisp_nesting.
+
+ * src/lread.c (read1): When reading a compiled function, read the
components
+ of the vector without giving its symbols a position.
+
+2021-12-31 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in play/*.el
+
+ * lisp/play/5x5.el (5x5-mode-map):
+ * lisp/play/blackbox.el (blackbox-mode-map):
+ * lisp/play/bubbles.el (bubbles-mode-map):
+ * lisp/play/decipher.el (decipher-mode-map):
+ * lisp/play/doctor.el (doctor-mode-map):
+ * lisp/play/gametree.el (gametree-mode-map):
+ * lisp/play/gomoku.el (gomoku-mode-map):
+ * lisp/play/mpuz.el (mpuz-mode-map):
+ * lisp/play/pong.el (pong-mode-map):
+ * lisp/play/solitaire.el (solitaire-mode-map): Use defvar-keymap.
+
+2021-12-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ `make-finalizer' now has to be called with a function, so adjust test
+
+2021-12-31 Michael Albinus <michael.albinus@gmx.de>
+
+ Documentation update for Secret Service
+
+ * doc/misc/auth.texi (Secret Service API): Precise "session" collection.
+
+ * lisp/auth-source.el (auth-sources): Adapt custom label.
+
+ * lisp/net/secrets.el: Adjust comments.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ Fix copyright dates in some files belonging to the pgtk port
+
+ * src/pgtkgui.h:
+ * src/pgtkim.c:
+ * src/pgtkmenu.c:
+ * src/pgtkselect.c:
+ * src/pgtkselect.h:
+ * src/pgtkterm.c:
+ * src/pgtkterm.h: Fix copyright dates to say '2021'.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ On Haiku, sync a frames's connection to the app sever after raising
+
+ * src/haiku_support.h: (BWindow_sync)
+ * src/haiku_support.cc (BWindow_sync): New function.
+ * src/haikuterm.c (haiku_frame_raise_lower): Synchronize window
+ after raising it to avoid situations where raising windows is
+ done out-of-order, such as when ediff raises a frame.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ Fix child frame unlinking on Haiku
+
+ * src/haiku_support.cc (UnlinkChild): Fix obvious mistake.
+ (DoMove): Lock child frame window before moving it.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ Use a single global lock for the child frame state on Haiku
+
+ Each BWindows (and various system callbacks) runs in a separate
+ thread, so there are very complicated locking semantics that
+ used to be handled manually. This changes child frame state to
+ use a single global lock, which makes things much easier.
+
+ * src/haiku_support.cc (child_frame_lock): New variable.
+ (class EmacsWindow):
+ (~EmacsWindow):
+ (Unparent):
+ (ParentTo):
+ (MoveChild):
+ (FrameMoved):
+ (EmacsHide):
+ (EmacsShow):
+ (GetParentWidthHeight):
+ (OffsetChildRect):
+ (MakeFullscreen):
+ (SetUpDoubleBuffering): Use a single lock for controlling access
+ to child frame state.
+
+2021-12-31 Stephen Berman <stephen.berman@gmx.net>
+
+ Fix handling of webkit xwidget bookmarks
+
+ Make jumping to a bookmarked webkit xwidget in another window or
+ another frame show the xwidget only in that window or frame and
+ refactor new session code used by the bookmark code (bug#52856).
+ In addition, make xwidget-webkit-clone-* commands work.
+
+ * lisp/xwidget.el (xwidget-webkit-clone-and-split-below)
+ (xwidget-webkit-clone-and-split-right): Unbreak these functions by
+ passing just the URL to them, not the message displaying it.
+ (xwidget-webkit-bookmark-jump-new-session): Adjust doc string,
+ rephrasing and removing a customization suggestion that cannot
+ take effect.
+ (xwidget-webkit-bookmark-jump-handler): New autoloaded function.
+ (xwidget-webkit-bookmark-make-record): Use it.
+ (xwidget-webkit--create-new-session-buffer): New function
+ extracted from `xwidget-webkit-new-session'.
+ (xwidget-webkit-new-session): Use it.
+
+2021-12-31 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements of 'lisp-directory' docs
+
+ * lisp/startup.el (lisp-directory):
+ * etc/NEWS:
+ * doc/lispref/loading.texi (Library Search): Improve wording of
+ documentation of 'lisp-directory' and related features.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ Prevent double buffering from being disabled on USE_BE_CAIRO builds
+
+ The direct rendering code used in that situation never
+ completely worked, and the BDirectWindow destructor is also
+ buggy. Completely remove that code in order to let us inherit
+ from BWindow, so as to prevent the buggy destructor from being
+ run.
+
+ * src/haiku_support.cc (cairo_format_from_color_space): Delete
+ function.
+ (class EmacsWindow): Inherit from BWindow.
+ (EmacsWindow): Call BWindow constructor instead.
+ (MessageReceived):
+ (DispatchMessage):
+ (FrameResized):
+ (FrameMoved):
+ (Zoom): Call BWindow functions instead.
+ (EmacsView_cairo_surface): Stop looking for surfaces in the
+ window.
+ (EmacsWindow_begin_cr_critical_section):
+ (EmacsWindow_end_cr_critical_section): Stop locking the window.
+
+ * src/haikufns.c (haiku_set_inhibit_double_buffering): Always
+ enable double buffering on Cairo builds.
+
+2021-12-31 Po Lu <luangruo@yahoo.com>
+
+ Don't select for gesture events on xwidgets if the server is too old
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Only select for
+ XI gesture events if the server supports XI 2.4 or later.
+
+2021-12-31 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (Fmake_finalizer): Check the arg is a function
+
+ * src/eval.c (syms_of_eval): Add `Qfunctionp`.
+ * src/alloc.c (Fmake_finalizer): Check the arg is a function.
+
+2021-12-31 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/package.el (package-get-version): Add fallback
+
+2021-12-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Don't store docstrings of preloaded .el files in etc/DOC
+
+ Since the location of those files changes between build time and
+ installation time, this requires to tweak the file name used in those
+ (#$ . NNN) references during the dump so they don't hardcode the build
+ directory. We do it in the same way as was already done for those
+ same file names in `load-history`, except we convert them back to
+ absolute file names more lazily (i.e. when fetching the actual
+ docstring rather than at startup), which requires remembering the
+ `lisp-dir` computed at startup in the new `lisp-directory` variable.
+
+ * src/Makefile.in ($(etc)/DOC): Don't scan Lisp files any more.
+
+ * src/lread.c (Fload): Use relative file names for `load-file-name`
+ when preloading for the dump, like we already did for
`current-load-list`.
+ (read_list): Don't zero-out dynamic docstring references during the
+ preload since they won't be filled later by Snarf-documentation any
more.
+ (read1): Remove the hash-hack for doc references that were zeroed.
+
+ * lisp/startup.el (lisp-directory): New variable.
+ (command-line): Set it.
+
+ * src/doc.c (get_doc_string): Use `lisp-directory` for dynamic
+ docstring references using relative file names.
+ (syms_of_doc): Add `Qlisp_directory`.
+
+ * lib-src/make-docfile.c (scan_file): Don't handle `.el` or `.elc`
+ files any more.
+ (IS_SLASH): Remove macro, not used any more.
+ (skip_white, read_lisp_symbol, search_lisp_doc_at_eol)
+ (scan_lisp_file): Remove functions, not used any more.
+
+ * doc/lispref/loading.texi (Library Search): Mention `lisp-directory`.
+
+2021-12-30 Po Lu <luangruo@yahoo.com>
+
+ Add pinch event support to xwidgets
+
+ * src/xterm.c (handle_one_xevent): Pass through pinch events to
+ xwidgets and provide root coordinates when translating motion
+ events.
+ * src/xwidget.c (xwidget_motion_notify): Use provided root
+ window coordinates.
+ (xwidget_pinch): New function.
+ * src/xwidget.h (xwidget_motion_notify): Update prototype.
+ (xwidget_pinch): New function prototype.
+
+2021-12-30 Po Lu <luangruo@yahoo.com>
+
+ Restore original xwidget embedder after performing a lispy event
+
+ * src/xwidget.c (Fxwidget_perform_lispy_event): Restore original
+ embedder after performing event.
+ (Fdelete_xwidget_view): Block input around non-reentrant
+ section.
+
+2021-12-30 Po Lu <luangruo@yahoo.com>
+
+ * src/xwidget.c (Fxwidget_perform_lispy_event): Use FRAME_WINDOW_P.
+
+2021-12-30 Glenn Morris <rgm@gnu.org>
+
+ * lisp/window.el (display-comint-buffer-action): Fix type.
+
+2021-12-30 Philipp Stephani <phst@google.com>
+
+ * lisp/emacs-lisp/ert.el (ert-select-tests): Document new error.
+
+ * lisp/emacs-lisp/ert.el (ert-select-tests): Simplify nested switch
+
+2021-12-30 Philipp Stephani <phst@google.com>
+
+ Properly report errors about unbound ERT test symbols.
+
+ Assertions should only be used to check internal consistency within a
+ package, not to check arguments passed by callers. Instead, define
+ and use a new error symbol.
+
+ * lisp/emacs-lisp/ert.el (ert-test-unbound): New error symbol.
+ (ert-select-tests): Use it.
+
+ * test/lisp/emacs-lisp/ert-tests.el (ert-test-select-undefined): New
+ unit test.
+
+ * etc/NEWS: Document new behavior.
+
+2021-12-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix multisession-tests on MS-Windows
+
+ * test/lisp/emacs-lisp/multisession-tests.el
+ (multi-test-files-simple): On MS-Windows and Haiku, wait before
+ invoking the Emacs sub-process, not after, to ensure the later
+ update is detected with 1-sec file time resolution.
+
+2021-12-30 Po Lu <luangruo@yahoo.com>
+
+ Make sure widget buttons always have a left box line
+
+ * lisp/wid-edit.el (widget-specify-button): Add an invisible
+ before-string to the button overlay. (bug#51550)
+
+2021-12-30 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Prevent rapid alternation of fontification of "found types"
+
+ This fixes bug #52863.
+
+ * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): When a new
type is
+ found, postpone entering it into c-found-types (and thus triggering the
+ fontification of that type throughout the buffer) until the end of the
+ function, when we're sure that the "type" found actually is a type.
+
+2021-12-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix previous change in 'pop_it'
+
+ * src/xdisp.c (restore_face_box_flags): New function.
+ (pop_it): Use 'restore_face_box_flags'. (Bug#51550)
+
+2021-12-30 Eli Zaretskii <eliz@gnu.org>
+
+ Fix start-of-box-face display after display and overlay strings
+
+ * src/xdisp.c (pop_it): Recompute the 'start_of_box_run_p' flag,
+ like we do in 'handle_fontified_prop', when faces change while
+ iterating over a buffer or string. (Bug#51550)
+
+2021-12-30 Alan Mackenzie <acm@muc.de>
+
+ Make symbols with positions work with native compilation
+
+ This version of the software should bootstrap Emacs successfully with
native
+ compilation enabled.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-strip-s-p-1)
+ (byte-compile-strip-symbol-positions): Rename and move to macroexp.el.
Rename
+ calls to these functions throughout the file.
+ (byte-compile-initial-macro-environment): In the code sections for
+ eval-when-compile and eval-and-compile, call
macroexp-strip-symbol-positions
+ before evaluating code.
+ (byte-compile-file, byte-compile-output-file-form)
+ (byte-compile-file-form-defmumble, byte-compile, batch-byte-compile):
Call
+ macroexp-strip-symbol-positions from code being passed to the native
compiler.
+
+ * lisp/emacs-lisp/cl-macs.el (cl-macs--strip-s-p-1)
+ (cl-macs--strip-symbol-positions): Remove, replacing them with the
renamed
+ functions in macroexp.el.
+ (cl-define-compiler-macro): Apply macroexp-strip-symbol-positions to
ARGS and
+ BODY.
+
+ * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Use `null' to
compile
+ byte-not rather than a compilation of `eq'.
+ (comp--native-compile): bind symbols-with-pos-enabled to t.
+
+ * lisp/emacs-lisp/macroexp.el (byte-compile--ssp-conses-seen)
+ (byte-compile--ssp-vectors-seen, byte-compile--ssp-records-seen):
Provisional
+ auxiliary variables to support the following functions.
+ (macroexp--strip-s-p-2, byte-compile-strip-s-p-1)
+ (macroexp-strip-symbol-positions): Functions moved from bytecomp.el,
renamed,
+ and further developed.
+ (macroexp--compiler-macro): Bind symbol-with-pos-enabled to t around
the call
+ to `handler'.
+ (internal-macroexpand-for-load): Strip symbol positions from the form
being
+ eagerly expanded for macros.
+
+ * src/comp.c (F_SYMBOLS_WITH_POS_ENABLED_RELOC_SYM): New macro for a
+ relocation symbol.
+ (comp_t): New elements bool_ptr_type, f_symbols_with_pos_enabled_ref,
+ lisp_symbol_with_position, lisp_symbol_with_position_header,
+ lisp_symbol_with_position_sym, lisp_symbol_with_position_pos,
+ lisp_symbol_with_position_type, lisp_symbol_with_position_ptr_type,
+ get_symbol_with_position.
+ (helper_GET_SYMBOL_WITH_POSITION): New function.
+ (emit_BASE_EQ): Function rename from emit_EQ.
+ (emit_AND, emit_OR, emit_BARE_SYMBOL_P, emit_SYMBOL_WITH_POS_P)
+ (emit_SYMBOL_WITH_POS_SYM): New functions.
+ (emit_EQ): New function which handles symbols with position correctly.
+ (emit_NILP): Use emit_BASE_EQ rather than emit_EQ.
+ (emit_limple_insn): When emitting a conditional branch, check each
operand for
+ being a literal Qnil, and if one of them is, use emit_BASE_EQ rather
than
+ emit_EQ.
+ (declare_runtime_imported_funcs): Declare
helper_GET_SYMBOL_WITH_POSITION.
+ (emit_ctxt_code): Export the global
F_SYMBOLS_WITH_POS_ENABLED_RELOC_SYM.
+ (define_lisp_symbol_with_position, define_GET_SYMBOL_WITH_POSITION): New
+ functions.
+ (Fcomp__init_ctxt): Initialise comp.bool_ptr_type, call the two new
+ define_.... functions.
+ (load_comp_unit): Initialise **f_symbols_with_pos_enabled_reloc.
+
+ * src/fns.c (Fput): Strip positions from symbols in PROPNAME and VALUE.
+
+2021-12-30 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el (tab-line-tab-name-format-default): Add help-echo.
+
+ (bug#52889)
+
+2021-12-30 Po Lu <luangruo@yahoo.com>
+
+ Make xwidget motion commands hscroll the window of wide widgets
+
+ * lisp/xwidget.el (xwidget-info): New function declaration.
+ (xwidget-webkit-scroll-forward):
+ (xwidget-webkit-scroll-backward): Hscroll the window if the
+ widget is wider than the text area. (bug#52885)
+
+ * src/xwidget.c (xwidget_scroll, xwidget_motion_notify): Apply
+ clip offsets to coordinates.
+
+2021-12-30 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 06545bc0cc CC Mode: c-update-brace-stack: After struct foo *, do not ...
+ f11779f01b Improve documentation of 'M-X' and related features
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Work around xwidgets releasing the passive grab on an entry event
+
+ * src/xterm.c (handle_one_xevent): Don't send XI_Enter events to
+ xwidgets if button 1 is pressed.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Use XRandR 1.5 to generate monitor attributes if available
+
+ * src/xfns.c (x_get_monitor_attributes_xrandr): Use XRR 1.5 if
+ present.
+ (xlw_monitor_dimensions_at_pos_1): Remove redundant XRR 1.5
+ code.
+ (xlw_monitor_dimensions_at_pos): Rely on
+ `x_get_monitor_attributes_xrandr' to retrieve the workarea
+ instead.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Translate crossing event mode when sending them to xwidgets
+
+ * src/xwidget.c (xi_translate_notify_detail): Use XI constants
+ instead.
+ (xwidget_motion_or_crossing): Translate XI entry event mode.
+
+2021-12-29 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/paragraphs.el (repunctuate-sentences-filter): New
function.
+
+ (repunctuate-sentences): Use it on isearch-filter-predicate
+ to skip unnecessary matches. (bug#52769)
+
+2021-12-29 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/sgml-mode.el (sgml-mode): Set skeleton-end-newline to
nil.
+
+ Prevent skeleton.el from adding a newline to each inserted
+ skeleton. Those which do want a newline do that explicitly in
+ their define-skeleton form. This is what texinfo-mode does (bug#52864).
+
+2021-12-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'define-keymap'
+
+ * doc/lispref/keymaps.texi (Creating Keymaps)
+ (Changing Key Bindings): Fix typos, improve wording.
+
+2021-12-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix recent changes in 'keymap-lookup' documentation
+
+ * doc/lispref/keymaps.texi (Functions for Key Lookup): Improve
+ wording, correct typos.
+
+2021-12-29 Tassilo Horn <tsdh@gnu.org>
+
+ Revert "Revert "Fix fontification in diff--font-lock-prettify""
+
+ This reverts commit 3cadd72673d8095df7eeb8e847db87ae42b5e2f6.
+
+2021-12-29 Tassilo Horn <tsdh@gnu.org>
+
+ Revert "Fix fontification in diff--font-lock-prettify"
+
+ This reverts commit 1da392d62d1ae743151f7fda83d0725ec6053686.
+
+2021-12-29 Matthias Meulien <orontee@gmail.com>
+
+ Fix fontification in diff--font-lock-prettify
+
+ * lisp/vc/diff-mode.el (diff--font-lock-prettify): Fix
+ diff--font-lock-prettify on created or deleted files
+ (bug#52810).
+
+2021-12-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document keymap-set-after in Modifying Menus in lispref
+
+ * doc/lispref/keymaps.texi (Modifying Menus): Document
+ keymap-set-after (bug#52819).
+
+2021-12-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document `keymap-lookup' in the lipsref manual
+
+ * doc/lispref/keymaps.texi (Functions for Key Lookup): Document
+ `keymap-lookup' instead of `lookup-key' (bug#52820).
+
+2021-12-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move define-keymap manual entry to Creating Keymaps
+
+ * doc/lispref/keymaps.texi (Creating Keymaps)
+ (Changing Key Bindings): Move `define-keymap'/`defvar-keymap' to
+ the Creating Keymaps node.
+
+2021-12-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow the user to specify shr-width in mm-shr
+
+ * lisp/gnus/mm-decode.el (mm-shr): Allow the user to specify the
+ width by setting `shr-width' (bug#52825).
+
+2021-12-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make multi-test-files-busy shorter
+
+ Ignore manual/ directory made by admin/make-manuals
+
+2021-12-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust multi-test-files-simple test for Windows
+
+ * test/lisp/emacs-lisp/multisession-tests.el
+ (multi-test-files-simple): Adjust test to Emacs timestamp
+ resolution on Windows.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Fix a hang on servers that don't support the X Keyboard Extension
+
+ * src/xfns.c (Fx_backspace_delete_keys_p): Don't block input
+ before checking for Xkb.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Translate state of XI2 entry events when sending them to xwidgets
+
+ * src/xwidget.c (xi_translate_notify_detail): New function.
+ (xwidget_motion_or_crossing): Translate detail and state of
+ GenericEvents before sending them to the widget.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Get rid of obsolete xwidget-related code on PGTK
+
+ * src/emacsgtkfixed.c (emacs_fixed_class_init): Stop setting
+ obsolete methods.
+
+ (EMACS_FIXED_GET_CLASS, struct GtkFixedPrivateL):
+ (emacs_fixed_gtk_widget_size_allocate): Delete obsolete things.
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Work around
+ mysterious bug.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Test for Xkb support when opening a display
+
+ * src/xfns.c (Fx_backspace_delete_keys_p): Use
+ dpyinfo->supports_xkb instead of testing for its presence
+ manually.
+
+ * src/xterm.c (x_term_init): Test for Xkb presence
+ and set supports_xkb appropriately.
+
+ * src/xterm.h (struct x_display_info): New field `supports_xkb'.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Queue xwidget views for allocation in more places
+
+ * src/xwidget.c (Fmake_xwidget) [HAVE_PGTK]:
+ (Fxwidget_resize) [HAVE_PGTK]: Queue xwidgets and views for
+ allocation.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Improve xwidget event handling on XI2
+
+ * src/xterm.c (handle_one_xevent): Pass XI2 entry and leave
+ events to xwidgets and fix scroll valuator reset logic for
+ xwidgets.
+
+ * src/xwidget.c (xwidget_button_1): Stop ungrabbing all devices
+ XI2 builds.
+ (xwidget_motion_or_crossing): Learn to pass through XI2 crossing
+ events.
+ (x_draw_xwidget_glyph_string): Add crossing events to the XI2
+ event mask.
+
+2021-12-29 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 06dcd2be5d Improve rectangle-mark-mode documentation regarding mark a...
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Translate buttons when sending XI2 motion events to xwidgets
+
+ * src/xterm.c (handle_one_xevent): Translate all three buttons
+ when passing XI2 motion events to xwidgets.
+
+2021-12-29 Po Lu <luangruo@yahoo.com>
+
+ Use XI2 to handle xwidget button events
+
+ * src/xterm.c (handle_one_xevent): Handle xwidget views when
+ handling XI_ButtonPress or XI_ButtonRelease events.
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Add appropriate
+ values to the XI2 event mask.
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ Fix embedder calculation for xwidgets on PGTK
+
+ * src/xwidget.c (Fmake_xwidget):
+ (x_draw_xwidget_glyph_string): Defer focus event synthesis on
+ PGTK as well.
+ (record_osr_embedder): Use view window on PGTK.
+ (to_embedder):
+ (from_embedder): Rectify accordingly.
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ Fix NS xwidget build
+
+ * src/xwidget.c (kill_frame_xwidget_views):
+ * src/xwidget.h (kill_frame_xwidget_views): Disable on NS.
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ * src/xwidget.c (syms_of_xwidget): Fix typo.
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ Add support for xwidgets to the PGTK port
+
+ * src/emacsgtkfixed.c (EMACS_FIXED_GET_CLASS): New function.
+ (struct GtkFixedPrivateL): New struct.
+ (emacs_fixed_gtk_widget_size_allocate):
+ (emacs_fixed_class_init): New functions.
+
+ * src/keyboard.h: Declare lispy_function_keys also when
+ HAVE_PGTK.
+
+ * src/pgtkterm.c (x_free_frame_resources): Destroy all xwidget
+ views.
+ (pgtk_scroll_run): Move xwidget views that overlap with the
+ scrolled area.
+ (pgtk_emacs_to_gtk_modifiers): Expose function.
+
+ * src/pgtkterm.h: Wrap in include guard.
+ (pgtk_emacs_to_gtk_modifiers): New prototype.
+
+ * src/xwidget.c (xw_forward_event_translate):
+ (xw_forward_event_from_view): New functions.
+ (Fmake_xwidget): Remove obsolete PGTK specific code.
+ (Fxwidget_perform_lispy_event): Convert modifiers correctly on
+ PGTK.
+ (define_cursors): Use GDK functions to define cursors on PGTK.
+ (xwidget_view_from_window): Disable on non-PGTK builds.
+ (xwidget_show_view):
+ (xwidget_hide_view): Implement on PGTK.
+ (xv_do_draw): Disable on non-PGTK builds.
+ (offscreen_damage_event): Queue xwidget views for draw.
+ (xwidget_expose): Disable on non-PGTK builds.
+ (xwidget_init_view):
+ (x_draw_xwidget_glyph_string):
+ (Fdelete_xwidget_view): Implement for PGTK.
+ (syms_of_xwidget): Don't initialize XID to widget table on PGTK.
+ (lower_frame_xwidget_views): Disable on PGTK.
+ * src/xwidget.h (struct xwidget_view): New fields for PGTK
+ builds.
+ (kill_frame_xwidget_views): Enable on PGTK.
+
+2021-12-28 Sam Steingold <sdsg@amazon.com>
+
+ Fix bug#52467 by adding a new custom variable
'display-comint-buffer-action'
+
+ * lisp/window.el (display-comint-buffer-action): New `defcustom`,
+ defaults to 'display-buffer-same-window' for backward compatibility.
+ * lisp/cmuscheme.el (run-scheme, switch-to-scheme): Pass
+ 'display-comint-buffer-action' to 'pop-to-buffer' instead
+ of using 'pop-to-buffer-same-window'.
+ * lisp/eshell/eshell.el (eshell): Likewise.
+ * lisp/shell.el (shell): Likewise.
+ * lisp/org/ol-eshell.el (org-eshell-open): Likewise.
+ * lisp/progmodes/inf-lisp.el (inferior-lisp): Likewise.
+ * lisp/progmodes/project.el (project-shell, project-eshell): Likewise.
+ * lisp/textmodes/tex-mode.el (tex-display-shell, tex-compile-default)
+ (tex-recenter-output-buffer): Pass 'display-comint-buffer-action'
+ to 'pop-to-buffer'.
+
+2021-12-28 Philipp Stephani <phst@google.com>
+
+ Fix test lisp/cedet/semantic/bovine/gcc-tests on macOS (Bug#52431)
+
+ * test/lisp/cedet/semantic/bovine/gcc-tests.el
+ (semantic-gcc-test-output-parser-this-machine): Also detect Apple
+ clang on macOS Monterey.
+
+2021-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/paragraphs.el (repunctuate-sentences): Region for
NO-QUERY.
+
+ Use region boundaries also for the case when NO-QUERY arg is non-nil
+ (bug#52769).
+
+2021-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/paragraphs.el (repunctuate-sentences): Support region.
+
+ Add optional args 'start' and 'end', and pass them as region boundaries
+ to query-replace-regexp (bug#52769).
+
+2021-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/replace.el (replace-regexp-function): New function (bug#52558).
+
+ (replace-search, replace-highlight): Use it.
+
+2021-12-28 Andrea Corallo <akrl@sdf.org>
+
+ * Fix native comp for non trivial function names (bug#52833)
+
+ * lisp/emacs-lisp/comp.el (comp-c-func-name): Fix native compilation
+ for functions with function names containing non trivial
+ characters (bug#52833).
+
+2021-12-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * etc/NEWS (eieio-compat): Rewrite
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ * lwlib/xlwmenu.c (fit_to_screen): Adjust correctly for child menus.
+
+2021-12-28 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc.el (vc-revert): Use generate-new-buffer, not just new
buffer name
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ Document a problem with IBus and the C-. key
+
+ * etc/PROBLEMS: Document an IBus emoji panel problem.
+
+2021-12-28 Po Lu <luangruo@yahoo.com>
+
+ Add support for pinch events to NS
+
+ * lisp/face-remap.el (text-scale-pinch): Remove mistaken
+ assumption that angle is always 1.0 at the beginning of
+ a sequence.
+
+ * src/nsterm.c (- magnifyWithEvent): New function.
+
+2021-12-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c0815aca18 Fix typos in in 'reset-language-environment'
+ ea65de7577 eshell-complete-parse-arguments: don't use string-match on...
+
+2021-12-27 Po Lu <luangruo@yahoo.com>
+
+ Fix menu placement on multiple-display setups when using lwlib
+
+ * lwlib/xlwmenu.c (fit_to_screen):
+ (pop_up_menu): Adjust menu position based on dimensions of the
+ current monitor's workarea. (bug#52809)
+
+ * src/xfns.c (x_get_monitor_attributes): Stop testing for the
+ RandR extension here.
+ (xlw_monitor_dimensions_at_pos_1):
+ (xlw_monitor_dimensions_at_pos): New functions.
+
+ * src/xterm.c (x_term_init): Query for the RandR extension when
+ connecting to a display.
+ * src/xterm.h (xlw_monitor_dimensions_at_pos): New prototype.
+
+2021-12-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Replace uniquify.el's advice with direct calls
+
+ This fixes bug#1338.
+
+ * src/buffer.c (Frename_buffer): Call `uniquify--rename-buffer-advice`.
+ * lisp/files.el (create-file-buffer):
+ Call`uniquify--create-file-buffer-advice`.
+
+ * lisp/uniquify.el (uniquify--rename-buffer-advice)
+ (uniquify--create-file-buffer-advice): Don't add them as advice any
more.
+ Adjust their calling convention accordingly.
+
+2021-12-27 Po Lu <luangruo@yahoo.com>
+
+ Only rely on passive device grabs on XI2
+
+ * src/xterm.c (xi_grab_or_ungrab_device): Remove function.
+ (handle_one_xevent): Stop setting non-passive grabs.
+
+2021-12-27 Stefan Kangas <stefan@marxist.se>
+
+ Fix read-multiple-choice tests
+
+ * lisp/emacs-lisp/rmc.el (rmc--add-key-description): Fix typo.
+ * test/lisp/emacs-lisp/rmc-tests.el
+ (test-rmc--add-key-description)
+ (test-rmc--add-key-description/with-attributes)
+ (test-rmc--add-key-description/non-graphical-display): Fix tests.
+
+2021-12-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Fix EIEIO tests to account for eieio-compat move
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el:
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el:
+ Require `eieio-compat` explicitly.
+
+ * test/manual/cedet/tests/test.el (a-method, a-generic):
+ * doc/misc/srecode.texi (Compound Dictionary Values):
+ * doc/misc/ede.texi (ede-generic-project): Update sample code to use
+ cl-generic syntax.
+
+2021-12-27 Stefan Kangas <stefan@marxist.se>
+
+ admin.el: Move etc/NEWS to etc/NEWS.NN in one commit
+
+ This should preserve git history better for git blame, etc.
+ * admin/admin.el (admin-git-command): New variable.
+ (set-version): Move etc/NEWS to etc/NEWS.NN and prompt to commit
+ it immediately. (Bug#52420)
+
+2021-12-27 Stefan Kangas <stefan@marxist.se>
+
+ disabled-command: Explain what SPC means again
+
+ * lisp/novice.el (disabled-command-function): Explain what SPC means
+ again, an explanation that was lost in a recent change.
+
+2021-12-27 Stefan Kangas <stefan@marxist.se>
+
+ read-multiple-choice: Improve key formatting
+
+ * lisp/emacs-lisp/rmc.el (rmc--add-key-description): Improve
+ formatting of key missing in the description. Use face help-key-name
+ on terminals that can't display underline.
+
+2021-12-27 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS: Mention completion-wrap-movement.
+
+ * doc/emacs/search.texi (Lax Search): Add char-fold-include.
+
+ * lisp/tab-bar.el (tab-bar-history-mode-map): New defvar-keymap.
+
+2021-12-27 Michael Albinus <michael.albinus@gmx.de>
+
+ The temprary "session" collection might not exist in Secret Service
+
+ * doc/misc/auth.texi (Secret Service API):
+ * test/lisp/net/secrets-tests.el
(secrets--test-delete-all-session-items)
+ (secrets-test02-collections, secrets-test03-items)
+ (secrets-test04-search): The temporary "session" collection might
+ not exist.
+
+ * lisp/net/secrets.el (secrets-struct-secret-content-type):
+ Remove compatibility hack.
+ (secrets-create-item): Adapt accordingly.
+
+2021-12-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Use `permission-denied' in Tramp tests, and more
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-maybe-open-connection):
+ Simplify code.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info):
+ Adapt for "mtp" method.
+
+ * test/lisp/net/tramp-tests.el (tramp-test18-file-attributes):
+ Use `permission-denied' error. Simplify code.
+ (tramp-test24-file-acl, tramp-test26-file-name-completion):
+ Simplify code.
+
+2021-12-27 Stefan Kangas <stefan@marxist.se>
+
+ Doc fix; fix terminology in key binding functions
+
+ * lisp/keymap.el (keymap-set, key-valid-p):
+ * lisp/subr.el (define-keymap): Doc fix; improve terminology.
+
+2021-12-27 Po Lu <luangruo@yahoo.com>
+
+ Fix precision scrolling inside terminal buffers
+
+ * lisp/term.el (term-goto-process-mark-maybe): Don't move point
+ to process mark if the event is a vertical wheel event.
+
+2021-12-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-list/eieio-compat.el: Really move to obsolete
+
+2021-12-27 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d4e2850b32 Update to Org 9.5.2-3-geb9f34
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (pgtk_handle_event): Add pinch event support.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ perl-mode: Recognize "when"/"given" keywords
+
+ * lisp/progmodes/perl-mode.el (perl-font-lock-keywords-2): Add
+ keywords "when", "given" and "default". (Bug#10560)
+ (perl--syntax-exp-intro-keywords): Add "printf".
+
+ * test/manual/indent/perl.perl: Add test for "when"/"given".
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Fix menu window persistence and entry/leave events on Lucid on XI2
+
+ * src/xmenu.c (x_activate_menubar): Always clear the XI2 grab on
+ Xt.
+ * src/xterm.c (handle_one_xevent): On XI2, ignore LeaveNotify
+ events coming from the shell widget and use `x_window_to_frame'
+ to find the frame when handling XI_Leave events.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Fix Lucid popup menu being stuck on XI2 builds
+
+ * src/xmenu.c (x_activate_menubar): Make some changes
+ conditional on XI2.
+ (create_and_show_popup_menu): Clear XI2 grab before showing
+ popup.
+ * src/xterm.c (xi_grab_or_ungrab_device): Don't grab device
+ if popup is activated on Lucid.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Store sign separately when accumulating precision scroll momentum
+
+ * lisp/pixel-scroll.el (pixel-scroll-kinetic-state): Return
+ vector in new format.
+ (pixel-scroll-accumulate-velocity): Use new sign field.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in tests
+
+ * test/lisp/button-tests.el (button-tests--map):
+ * test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-keymap):
+ * test/lisp/help-tests.el (help-tests-remap-map)
+ (help-tests-major-mode-map, help-tests-minor-mode-map):
+ * test/lisp/kmacro-tests.el (kmacro-tests-keymap):
+ * test/lisp/repeat-tests.el (repeat-tests-map)
+ (repeat-tests-repeat-map):
+ * test/src/keymap-tests.el (keymap-tests-minor-mode-map)
+ (keymap-tests-major-mode-map): Use defvar-keymap.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ Prefer the defcustom :risky property in gnus
+
+ * lisp/gnus/gnus-art.el (gnus-button-alist)
+ (gnus-header-button-alist):
+ * lisp/gnus/gnus-group.el (gnus-group-highlight)
+ (gnus-group-icon-list):
+ * lisp/gnus/gnus-sum.el (gnus-summary-highlight):
+ * lisp/gnus/mm-util.el (mm-charset-eval-alist): Prefer the
+ defcustom :risky property to setting 'risky-local-variable
+ manually.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ Rewrite disabled-command to use read-multiple-choice
+
+ * lisp/novice.el (disabled-command-function): Rewrite to use
+ read-multiple-choice. Use command substitutions.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ read-multiple-choice: Display "SPC" instead of " "
+
+ * lisp/emacs-lisp/rmc.el (rmc--add-key-description): Improve display
+ of the keys TAB, RET, SPC, DEL, and ESC. This fixes a bug where " "
+ was highlighted in the description in a confusing way.
+ * test/lisp/emacs-lisp/rmc-tests.el
+ (test-rmc--add-key-description)
+ (test-rmc--add-key-description/with-attributes): Update tests for the
+ above change.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ read-multiple-choice: Add optional argument show-help
+
+ * lisp/emacs-lisp/rmc.el (rmc--show-help): Factor out new function
+ from read-multiple-choice.
+ (read-multiple-choice): Add new optional argument show-help.
+ * doc/lispref/commands.texi (Reading One Event): Document above new
+ optional argument.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ read-multiple-choice: Add face when key not in name string
+
+ * lisp/emacs-lisp/rmc.el (rmc--add-key-description): Add face
+ property also when key is not in the name string.
+ * test/lisp/emacs-lisp/rmc-tests.el
+ (test-rmc--add-key-description/with-attributes)
+ (test-rmc--add-key-description/non-graphical-display): Update tests.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ Factor out new function rmc--add-key-description
+
+ * lisp/emacs-lisp/rmc.el (rmc--add-key-description): Factor out
+ new function from...
+ (read-multiple-choice): ...here.
+
+ * test/lisp/emacs-lisp/rmc-tests.el (test-rmc--add-key-description)
+ (test-rmc--add-key-description/with-attributes)
+ (test-rmc--add-key-description/non-graphical-display): New tests.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ * INSTALL: Document `--with-xinput2'.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Accumulate deltas in pinch events that were skipped
+
+ * src/keyboard.c (kbd_buffer_get_event): Accumulate relative deltas
+ inside skipped events when coalescing them.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Clarify situations where pinch events can be sent.
+
+ * doc/lispref/commands.texi (Misc Events): Clarify the
+ conditions under which pinch events will be sent.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Coalesce pinch gestures in the keyboard buffer
+
+ * src/keyboard.c (kbd_buffer_get_event): Coalesce consecutive
+ pinch gesture events.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Document the representation of DX and DY in pinch events
+
+ * doc/lispref/commands.texi (Misc Events): Document
+ the precise meaning of DX and DY in pinch events.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Document some missing commands related to text scaling
+
+ * doc/emacs/display.texi (Text Scale): Document
+ `text-scale-pinch' and `mouse-wheel-text-scale'.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Fix some issues with a recent change
+
+ * doc/lispref/commands.texi (Misc Events): Improve documentation
+ on pinch events.
+ * etc/NEWS: Update documentation status for some recent changes
+ and describe pinch events in more detail.
+ * lisp/face-remap.el (text-scale-pinch): Prevent pinch events
+ from being received in too quick succession.
+
+2021-12-26 Eli Zaretskii <eliz@gnu.org>
+
+ Minor improvements in multisession.el
+
+ * lisp/emacs-lisp/multisession.el (multisession--read-file-value):
+ Handle 'file-missing' error when reading values from files.
+ (multisession--backend-values, multisession--backend-set-value)
+ (multisession--read-file-value): Use 'utf-8-emacs' encoding.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Change `x-server-input-version' to `x-server-input-extension-version'
+
+ * src/xfns.c (Fx_server_input_version)
+ (Fx_server_input_extension_version): Rename to
+ `x-server-input-extension-version'.
+ (syms_of_xfns): Update defsubr.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Add configure tests for faulty XI2 installations
+
+ * configure.ac: Detect cases where XI 2.4 headers are installed
+ without the correct event structures.
+ * src/xterm.c (handle_one_xevent): Don't use structures that
+ might not exist unless configure found them.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Only focus frame implicitly if focus flag is set
+
+ * src/xterm.c (x_detect_focus_change): Test for focus flag on
+ XI entry events.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ Add test for text-char-description
+
+ * test/src/keymap-tests.el (keymap-text-char-description): New
+ test.
+
+2021-12-26 Po Lu <luangruo@yahoo.com>
+
+ Add support for pinch gestures to the XI2 build
+
+ * doc/lispref/commands.texi (Misc Events): Document new event
+ type `pinch'.
+ * etc/NEWS: Announce new event `pinch'.
+ * etc/PROBLEMS: Document problems with mismatched libXi
+ versions.
+ * lisp/face-remap.el (text-scale--pinch-start-scale): New
+ variable.
+ (text-scale-pinch): New command.
+ * src/keyboard.c (make_lispy_event): Handle PINCH_EVENTs.
+ (syms_of_keyboard): New symbol `pinch'.
+ * src/termhooks.h (enum event_kind): New enum `PINCH_EVENT'.
+ * src/xfns.c (setup_xi_event_mask): Add pinch events to event
+ mask if available.
+ * src/xterm.c (handle_one_xevent): Handle pinch events.
+
+2021-12-26 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 89a82182cb Improve documentation of read-multiple-choice
+ 5fccd1e371 Explain why we remove stuff from 'user-full-name'
+
+2021-12-25 Po Lu <luangruo@yahoo.com>
+
+ Allow interpolating scrolls via the Page Down and Page Up keys
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Define
+ new commands.
+ (pixel-scroll-precision-interpolate-page): New user option.
+ (pixel-scroll-interpolate-down):
+ (pixel-scroll-interpolate-up): New functions.
+
+2021-12-25 Po Lu <luangruo@yahoo.com>
+
+ Don't clear internal border if frame isn't realized
+
+ * src/pgtkterm.c (pgtk_clear_under_internal_border): Don't clear
+ border if frame isn't realized. (bug#52705)
+
+2021-12-25 Stefan Kangas <stefan@marxist.se>
+
+ Make read-multiple-choice-face inherit help-key-binding
+
+ * lisp/faces.el (read-multiple-choice-face): Inherit
+ help-key-binding in addition to underline.
+
+2021-12-25 Sam Steingold <sds@gnu.org>
+
+ Use the standard `quit-window' binding from `special-mode' for "q"
+
+ * epa.el (epa-info-mode-map): Remove `defvar'.
+
+2021-12-25 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to version 2.0.0
+
+ * doc/misc/modus-themes.org (Overview): Update the description of the
+ themes.
+ (Enable and load): Reflow text.
+ (Customization Options): Update the code sample with all customization
+ options.
+ (Option for color-coding success state)
+ (Option for red-green color deficiency or deuteranopia): Document the
+ new user option 'modus-themes-deuteranopia'.
+ (Option for mode line presentation, Option for mode line padding):
+ Update documentation about mode line padding.
+ (Option for completion framework aesthetics): Minor rewording.
+ (Option for diff buffer looks): Update section to exclude the
+ discontinued "foreground-only" diff styles.
+ (Option for Org agenda constructs): Expand documentation pertaining to
+ the 'modus-themes-org-agenda' user option.
+ (Option for the headings' overall style, Option for scaled headings):
+ Document how heading scaling is now done directly with the
+ 'modus-themes-headings' user option.
+ (Option for variable-pitch font in headings): Remove section on
+ 'modus-themes-variable-pitch-headings'. Its functionality is merged
+ into 'modus-themes-headings'.
+ (A theme-agnostic hook for theme loading): Add section on how users
+ can add their own "foreground-only" diff styles.
+ (Full support for packages or face groups, Indirectly covered
+ packages): Update list of supported packages.
+ (Note on god-mode.el): Reflow text.
+ (Frequently Asked Questions): Remove invalid characters from heading.
+ (Acknowledgements): Update list of contributors to code, ideas, etc.
+
+ * etc/themes/modus-themes.el (modus-themes-operandi-colors)
+ (modus-themes-vivendi-colors): Update theme color palettes.
+ (modus-themes-variable-pitch-headings): Make it obsolete. Use
+ 'modus-themes-headings' instead.
+ (modus-themes--headings-choice): Accept float to adjust heading
+ height.
+ (modus-themes-headings, modus-themes-org-agenda): Update doc strings
+ to cover new features.
+ (modus-themes-scale-headings, modus-themes-scale-1,
modus-themes-scale-2)
+ (modus-themes-scale-3, modus-themes-scale-4, modus-themes-scale-5)
+ (modus-themes-scale-title, modus-themes-scale-small): Deprecate them.
+ Use 'modus-themes-headings' directly.
+ (modus-themes-org-habit): Remove long-deprecated user option
+ (modus-themes-mode-line): Update doc string about padding the mode
+ line.
+ (modus-themes-mode-line-padding): Deprecate user option. Use
+ 'modus-themes-mode-line' directly.
+ (modus-themes-diffs): Update doc string to omit discontinued
+ "foreground-only" styles.
+ (modus-themes-completions): Remove outdated reference.
+ (modus-themes-intense-hl-line): Delete long-deprecated form.
+ (modus-themes-lang-checkers, modus-themes-hl-line)
+ (modus-themes-paren-match, modus-themes-syntax, modus-themes-links)
+ (modus-themes-region): Update syntax of code sample in doc string.
+ (modus-themes-success-deuteranopia): Deprecate it and alias it as
+ 'modus-themes-deuteranopia'.
+ (modus-themes--variable-pitch, modus-themes--lang-check)
+ (modus-themes--prompt, modus-themes--paren)
+ (modus-themes--syntax-foreground, modus-themes--syntax-extra)
+ (modus-themes--syntax-string, modus-themes--syntax-comment)
+ (modus-themes--heading, modus-themes--agenda-structure)
+ (modus-themes--agenda-date, modus-themes--agenda-event)
+ (modus-themes--agenda-habit, modus-themes--org-block-delim)
+ (modus-themes--mode-line-padding, modus-themes--mode-line-attrs)
+ (modus-themes--diff, modus-themes--diff-deuteran)
+ (modus-themes--success-deuteran, modus-themes--link)
+ (modus-themes--link-color, modus-themes--scale, modus-themes--region)
+ (modus-themes--hl-line): Update private functions to parse the updated
+ user options and to simplify/refine their code.
+ (modus-themes-faces): Remove some faces, add a few others, and
+ generally clean up the code to avoid overusing private functions for
+ the expansion of attributes with user-facing options.
+ (modus-themes-custom-variables): Remove support for 'highlight-tail'
+ variable.
+
+ * etc/themes/modus-operandi-theme.el:
+ * etc/themes/modus-vivendi-theme.el: Bump file version.
+
+ The change log entry for this release is available here:
+ <https://protesilaos.com/codelog/2021-12-24-modus-themes-2-0-0/>.
+
+2021-12-25 Stefan Kangas <stefan@marxist.se>
+
+ Fix unused variable warning in xfns.c
+
+ * src/xfns.c (Fx_server_input_version): Fix unused variable
+ warning.
+
+2021-12-25 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/webjump.el: Add TODO section. (Bug#14624)
+
+2021-12-25 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in ido.el
+
+ * lisp/ido.el (ido-common-completion-map)
+ (ido-file-dir-completion-map, ido-file-completion-map)
+ (ido-buffer-completion-map): Use defvar-keymap.
+
+2021-12-25 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/url/url-handlers.el (directory-files): Adapt ARGS list.
+
+ * lisp/net/browse-url.el (browse-url-of-file): Improve browsing remote
files.
+
+ * lisp/simple.el (completion-auto-select): Fix docstring.
+
+2021-12-25 Po Lu <luangruo@yahoo.com>
+
+ Add a utility function to query the XI2 version on a display
+
+ * src/xfns.c (Fx_server_input_version): New function.
+ (syms_of_xfns): Define new subr.
+
+2021-12-25 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c09ad0cabd Fix the bug with duplicate entries in xref output
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ Move mouse key bindings to gametree-mode-map
+
+ * lisp/play/gametree.el (gametree-mode-map): Move mouse key
+ bindings here.
+
+2021-12-24 Po Lu <luangruo@yahoo.com>
+
+ Add support for XI 2.4
+
+ We will be able to use touchpad (not touchscreen) gestures, such
+ as pinch and swipe gestures after this change, but they are not
+ yet exposed to Lisp.
+
+ * src/xterm.c (x_term_init): Declare support for XI 2.4 if
+ present.
+
+2021-12-24 Po Lu <luangruo@yahoo.com>
+
+ Fix Emacs tooltips on PGTK
+
+ * src/pgtkfns.c (x_create_tip_frame): Don't set cursor and
+ show window.
+ (Fx_show_tip): Set cursor and show window.
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ Simplify command remapping in play/blackbox.el
+
+ * lisp/play/blackbox.el (blackbox-redefine-key): Make obsolete.
+ (blackbox-mode-map): Simplify.
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ Prefer the defcustom :risky property in eshell
+
+ * lisp/eshell/em-banner.el (eshell-banner-message):
+ * lisp/eshell/em-hist.el (eshell-input-filter):
+ * lisp/eshell/em-pred.el (eshell-predicate-alist)
+ (eshell-modifier-alist):
+ * lisp/eshell/esh-cmd.el (eshell-subcommand-bindings):
+ * lisp/eshell/esh-io.el (eshell-virtual-targets):
+ * lisp/eshell/esh-var.el (eshell-variable-aliases-list): Prefer
+ defcustom :risky property to setting 'risky-local-variable manually.
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/eshell/em-hist.el (eshell-hist-match-partial): Minor doc fix.
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in eshell
+
+ * lisp/eshell/em-cmpl.el (eshell-cmpl-mode-map):
+ * lisp/eshell/em-hist.el (eshell-isearch-map, eshell-hist-mode-map):
+ * lisp/eshell/em-pred.el (eshell-pred-mode-map):
+ * lisp/eshell/em-prompt.el (eshell-prompt-mode-map):
+ * lisp/eshell/em-rebind.el (eshell-rebind-mode-map):
+ * lisp/eshell/esh-arg.el (eshell-arg-mode-map):
+ * lisp/eshell/esh-mode.el (eshell-mode-map, eshell-command-map):
+ * lisp/eshell/esh-proc.el (eshell-proc-mode-map):
+ * lisp/eshell/esh-var.el (eshell-var-mode-map): Use defvar-keymap.
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ Respect changes in eshell-hist-match-partial
+
+ * lisp/eshell/em-hist.el (eshell-hist--update-keymap): New function.
+ (eshell-hist-match-partial): Add :set property with above new
+ function.
+ (eshell-hist-mode-map): Update for eshell-hist-match-partial using
+ eshell-hist--update-keymap.
+
+2021-12-24 Yuuki Harano <masm+github@masm11.me>
+
+ * etc/PROBLEMS: Add a problem when PGTK started in systemd unit file
+
+2021-12-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Add tag :tramp-asynchronous-processes to tramp-tests.el
+
+ * test/lisp/net/tramp-tests.el (tramp-test29-start-file-process)
+ (tramp--test--deftest-direct-async-process)
+ (tramp-test30-make-process, tramp-test31-interrupt-process)
+ (tramp-test34-explicit-shell-file-name)
+ (tramp-test44-asynchronous-requests):
+ Add :tramp-asynchronous-processes tag.
+ (tramp--test-asynchronous-processes-p): New defun.
+ (tramp-test32-shell-command, tramp-test33-environment-variables):
+ Use it.
+ (tramp--test-expensive-test-p): Rename from
+ `tramp--test-expensive-test'. Make it a defun. Adapt all callees.
+
+2021-12-24 Sebastian Fieber <sebastian.fieber@web.de>
+
+ verify signed content in smime encrypted and signed message
+
+ * lisp/gnus/gnus-art.el (gnus-mime-display-part): Parse pkcs7
+ parts (bug#40397).
+ (gnus-mime-security-verify-or-decrypt):
+ (gnus-insert-mime-security-button): Handle these parts.
+
+ * lisp/gnus/mm-decode.el (mm-verify-function-alist): Add pkcs7
+ functions.
+ (mm-decrypt-function-alist): Handle them.
+ (mm-possibly-verify-or-decrypt): Ditto.
+
+ * lisp/gnus/mm-view.el (mm-view-pkcs7-decrypt): Handle pkcs7.
+
+ Changes:
+ - structure the result of mm-dissect-buffer of application/pkcs7-mime
+ like a multipart mail so there is no loosing of information of
+ verification and decryption results which can now be displayed by
+ gnus-mime-display-security
+
+ - adjust gnus-mime-display-part to handle application/pkcs7-mime like
+ multipart/encrypted or multipart/signed
+
+ - add dummy entries to mm-verify-function-alist and
+ mm-decrypt-function-alist so gnus-mime-display-security correctly
+ displays "S/MIME" and not "unknown protocol"
+
+ - don't just check for multipart/signed in
+ gnus-insert-mime-security-button but also for the pkcs7-mime mimetypes
+ to print "Encrypted" or "Signed" accordingly in the security button
+
+ - adjust mm-possibly-verify-or-decrypt to check for smime-type to ask
+ wether to verify or decrypt the part and not to always ask to decrypt
+
+ - adjust mm-view-pkcs7-decrypt and verify to call mm-sec-status so
+ success information can be displayed by gnus-mime-display-security
+
+ - adjust gnus-mime-security-verify-or-decrypt to handle pkcs7-mime
+ right with the done changes
+
+2021-12-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify whitespace stripping in shr-expand-url
+
+ * lisp/net/shr.el (shr-expand-url): Simplify whitespace stripping.
+
+2021-12-24 Po Lu <luangruo@yahoo.com>
+
+ Fix text decoration display on stretch glyphs with no box on NS
+
+ * src/nsterm.m (ns_dumpglyphs_stretch): Draw decorations if
+ there is no box.
+
+2021-12-24 Po Lu <luangruo@yahoo.com>
+
+ Make precision scrolling work on margins and fringes
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Add
+ missing key definitions.
+
+2021-12-24 Po Lu <luangruo@yahoo.com>
+
+ Remove useless functions from PGTK port that were breaking emacsbug
+
+ * src/pgtkfns.c (Fx_server_vendor, Fx_server_version): Remove
+ useless functions that returned invalid values.
+ (syms_of_pgtkfns): Stop defining removed subrs.
+
+2021-12-24 Po Lu <luangruo@yahoo.com>
+
+ Grab the server when warping the client pointer
+
+ * src/xfns.c (Fx_set_mouse_absolute_pixel_position):
+ * src/xterm.c (x_make_frame_invisible): Avoid race conditions
+ where the client pointer is destroyed between when it is
+ obtained and when XIWarpPointer is called.
+
+2021-12-24 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 04be23f19f Improve Xref documentation
+ edb1d491d9 * lisp/net/shr.el (shr-expand-url): Also strip trailing wh...
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Acquire draw lock when updating menubar on Haiku
+
+ * src/haikumenu.c (digest_menu_items): Acquire draw lock.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Fix menu grabs on XI2 Motif builds
+
+ * src/xmenu.c (x_activate_menubar) [USE_MOTIF]: Clear XI grab.
+ * src/xterm.c (xi_grab_or_ungrab_device) [USE_MOTIF]: Always
+ ungrab if a popup is active.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Fix some more incorrect valuator clearing
+
+ * src/xterm.c (handle_one_xevent): Improve detection of stray
+ ungrab events.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Drop scrollbar motion events when valuators are found
+
+ * src/xterm.c (handle_one_xevent): Drop XI_Motion if it's on
+ top of a scroll bar and a valuator is found.
+
+2021-12-23 Glenn Morris <rgm@gnu.org>
+
+ * doc/misc/Makefile.in (need_emacsver): Add missing members.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Make precision scrolling also work on various bars
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map):
+ Define keys for various kinds of bars.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Fix precision scrolling down for multi-line display strings
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Make sure Y delta
+ is appropriate before deciding on next-pos.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Set start to desired start when pixel scrolling to end of buffer
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Set start to desired
+ start when point cannot be moved further down.
+
+2021-12-23 Po Lu <luangruo@yahoo.com>
+
+ Allow window-text-pixel-size to measure pixels around a position
+
+ * doc/lispref/display.texi (Size of Displayed Text): Announce
+ new meaning of `from'.
+ * etc/NEWS: Announce changes.
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-up-page):
+ Use new feature.
+
+ * src/xdisp.c (window_text_pixel_size): Understand a special
+ format of `from' that specifies the amount of pixels above or
+ below a position.
+
+ (Fwindow_text_pixel_size): Update doc string.
+
+2021-12-23 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert back to using monospaced fonts in the mode line
+
+ * lisp/faces.el (mode-line-active, mode-line-inactive): Revert
+ back to using monospaced fonts on the mode line (for now). The
+ main remaining usability problem is clicking on the very small "-"
+ characters in "U:--".
+
+2021-12-23 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 29fffbdd87 Revert field-related thingatpt changes
+ 9bcb732686 * lisp/window.el (quit-restore-window): Select previously ...
+ b7d31d6192 Revert "Remove Motif support"
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-12-22 Philip Kaludercic <philipk@posteo.net>
+
+ Fix wrong-type-argument
+
+ * message.el (message-update-smtp-method-header): Only Use address
+ part of mail-extract-address-component.
+
+2021-12-22 Philip Kaludercic <philipk@posteo.net>
+
+ Allow automatic X-Message-SMTP-Method header insertion
+
+ * message.el (message-server-alist): Add user option
+ (message-update-smtp-method-header): Add function
+ (message-send): Call message-update-smtp-method-header
+ * doc/misc/message.texi (Sending Variables): Document
+ message-server-alist
+ * etc/NEWS: Add news entry
+
+2021-12-22 Stefan Kangas <stefan@marxist.se>
+
+ Fix compile time error in a pcase test
+
+ * test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-cl-type): Fix test.
+
+2021-12-22 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in minibuffer.el
+
+ * lisp/minibuffer.el (completion-in-region-mode-map)
+ (minibuffer-local-completion-map)
+ (minibuffer-local-must-match-map)
+ (minibuffer-local-filename-completion-map)
+ (minibuffer-local-ns-map, minibuffer-inactive-mode-map): Use
+ defvar-keymap.
+
+2021-12-22 Stefan Kangas <stefan@marxist.se>
+
+ Make substitute-command-keys test less brittle
+
+ * test/lisp/help-tests.el (help-tests--test-keymap): New keymap
+ variable.
+ (help-tests-substitute-command-keys/keymaps): Make test less
+ brittle by using above new keymap.
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Add native HEIC support on macOS (bug#51381)
+
+ * lisp/image.el (image-type-header-regexps):
+ (image-type-file-name-regexps):
+ (image-type-auto-detectable): Add auto-detect code for heic.
+ * src/image.c (syms_of_image): Add heic as an image type under NS.
+ * src/nsimage.m (ns_can_use_native_image_api): Add heic to list of
+ possible image types in the native image support lookup.
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Allow resizing undecorated frames on macOS (bug#28512, bug#31795)
+
+ * src/nsterm.m (FRAME_DECORATED_FLAGS, FRAME_UNDECORATED_FLAGS):
+ Remove unused defines.
+ * src/nsterm.m ([EmacsWindow initWithEmacsFrame:fullscreen:screen:]):
+ Since this is now the only place these defines are used just put them
+ inline and add NSWindowStyleMaskResizable for undecorated frames on
+ Cocoa.
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Make NS toolbar item ID more unique (bug#50160)
+
+ * src/nsmenu.m
+ ([EmacsToolbar
addDisplayItemWithImage:idx:tag:labelText:helpText:enabled:]):
+ Add the label to the identifier to avoid collisions between toolbar
+ items that use the same image.
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Make NS toolbar use NSString instead of C strings
+
+ * src/nsfns.m ([NSString stringWithLispString:]): Ensure that the lisp
+ object is actually a string.
+ * src/nsmenu.m (update_frame_tool_bar): Convert to NSString instead of
+ C strings.
+ ([EmacsToolbar
addDisplayItemWithImage:idx:tag:labelText:helpText:enabled:]):
+ No need to convert to NSString here anymore.
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Fix macfont backend color handling
+
+ * src/macfont.m (get_cgcolor): Replace use of ns_lookup_indexed_color.
+ (CG_SET_FILL_COLOR_WITH_FACE_FOREGROUND):
+ (CG_SET_FILL_COLOR_WITH_FACE_BACKGROUND):
+ (CG_SET_STROKE_COLOR_WITH_FACE_FOREGROUND): Fix call to get_cgcolor
+ and fix all callers.
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Further cleanup of NS color code
+
+ * src/dispextern.h (FACE_COLOR_TO_PIXEL): Remove define and fix all
+ callers.
+ * src/nsterm.h (struct nsfont_info): Remove color_table.
+ * src/nsterm.m ([NSColor colorWithUnsignedLong:]): Always assume the
+ input contains the correct alpha value.
+ (ns_lookup_indexed_color):
+ (ns_index_color):
+ (ns_color_index_to_rgba): Remove functions and fix all callers.
+ (ns_query_color): No longer set pixel to the lookup table index,
+ always just set it to the ARGB integer value.
+ (ns_defined_color): Ignore makeindex as we no longer set pixel to the
+ lookup table index.
+ (ns_initialize_display_info):
+ (ns_redisplay_interface): Remove lookup table.
+ (ns_term_init): Fix the alpha setting.
+
+ thing
+
+2021-12-22 Alan Third <alan@idiocy.org>
+
+ Simplify NS color handling
+
+ * src/image.c (RGB_TO_ULONG):
+ (ARGB_TO_ULONG):
+ (RED_FROM_ULONG):
+ (RED16_FROM_ULONG):
+ (GREEN16_FROM_ULONG):
+ (BLUE16_FROM_ULONG): Define these here for NS too.
+ * src/nsfns.m (ns_set_foreground_color):
+ (ns_set_background_color): Use new EmacsColor methods.
+ * src/nsterm.h (struct ns_color_table): Replace this struct with a
+ built-in Objective C type.
+ (RGB_TO_ULONG):
+ (ARGB_TO_ULONG):
+ (ALPHA_FROM_ULONG):
+ (RED_FROM_ULONG):
+ (GREEN_FROM_ULONG):
+ (BLUE_FROM_ULONG):
+ (RED16_FROM_ULONG):
+ (GREEN16_FROM_ULONG):
+ (BLUE16_FROM_ULONG): These are no longer needed in the NS specific code.
+ (struct ns_display_info): Use an NSMutableArray instead of a custom
struct.
+ * src/nsterm.m ([NSColor colorWithUnsignedLong:hasAlpha:]):
+ ([NSColor unsignedLong]): New methods.
+ (ns_lookup_indexed_color):
+ (ns_index_color): Use the NSMutableArray lookup table.
+ (ns_term_init):
+ (ns_color_index_to_rgba):
+ (ns_query_color): Use the new EmacsColor methods.
+ (ns_initialize_display_info):
+ (ns_delete_display): Initialize and release the NSMutableArray lookup
table.
+
+2021-12-22 Jonas Bernoulli <jonas@bernoul.li>
+
+ Help outline-minor-mode avoid some false matches
+
+ * lisp/international/emoji.el (emoji--generate-file): Help
+ 'outline-minor-mode' avoid false matches by quoting certain
+ characters when they appear at bol in a multi-line string.
+
+2021-12-22 Jonas Bernoulli <jonas@bernoul.li>
+
+ Hide transient prefix/suffix commands from execute-extended-command
+
+ * lisp/international/emoji.el (emoji--define-transient): Hide
+ transient prefix/suffix commands from 'execute-extended-command'
+ by declaring that they should only be listed in the non-existent
+ 'not-a-mode' mode.
+
+2021-12-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix some Tramp tests
+
+ * test/lisp/net/tramp-tests.el (tramp-test07-file-exists-p)
+ (tramp-test14-delete-directory, tramp-test29-start-file-process)
+ (tramp-test30-make-process): Adapt tests.
+
+2021-12-22 Mattias Engdegård <mattiase@acm.org>
+
+ Use unibyte strings in ntlm auth requests and responses
+
+ * lisp/net/ntlm.el (ntlm-build-auth-request)
+ (ntlm-build-auth-response): Make sure to use unibyte strings for bytes
+ greater than 127, or base64 encoding will fail.
+ This should fix failures in ntlm-tests.
+
+2021-12-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust test after recent help.el change
+
+2021-12-22 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkterm.c (scroll_event): Fix scroll delta scale.
+
+ * src/pgtkterm.c (scroll_event): Fix sign of delta_y.
+
+2021-12-22 Po Lu <luangruo@yahoo.com>
+
+ Disable by default and add NEWS entry to the new completion behavior
+
+ * etc/NEWS: Announce 'completion-auto-select'.
+ * lisp/simple.el (completion-auto-select): Default to nil.
+
+2021-12-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify disabled-command-function prompting
+
+ * lisp/novice.el (disabled-command-function): Use a prompt for
+ `read-event' instead of messaging it, so that people using
+ Emacspeak get the prompt read to them.
+
+2021-12-22 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use pop-to-buffer-same-window in `M-x term'
+
+ * lisp/term.el (term): Allow `display-buffer*' customization to
+ take effect (bug#52688).
+
+2021-12-22 Po Lu <luangruo@yahoo.com>
+
+ Fix horizontal scrolling on PGTK
+
+ * src/pgtkterm.c (scroll_event): Fix for when
+ `mwheel-coalesce-scroll-events' is nil.
+
+2021-12-21 Po Lu <luangruo@yahoo.com>
+
+ Use XI2 calls to warp the client pointer
+
+ * src/xfns.c (Fx_set_mouse_absolute_pixel_position):
+ * src/xterm.c (frame_set_mouse_pixel_position): Replace
+ calls to XWarpPointer with calls to XIWarpPointer with
+ the client pointer explictly specified. This avoids the
+ odd situation where the client pointer of the root window
+ is not the client pointer of the frame.
+
+2021-12-21 Po Lu <luangruo@yahoo.com>
+
+ Fix GTK crash when clicking on xwidgets on XI2
+
+ * src/xterm.c (handle_one_xevent): Drop button events destined
+ for an xwidget.
+
+2021-12-21 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from gnulib
+
+2021-12-21 Philip Kaludercic <philipk@posteo.net>
+
+ Delete completion window on quitting
+
+ * lisp/simple.el (completion-list-mode-map): Rebind
+ delete-completion-window over keyboard-quit.
+
+2021-12-21 Philip Kaludercic <philipk@posteo.net>
+
+ Allow for next-completion to wrap around the completion buffer
+
+ * lisp/simple.el (completion-wrap-movement): Add new option.
+ (previous-completion): Update docstring.
+ (next-completion): Respect completion-wrap-movement.
+ (switch-to-completions): Handle backwards completion by jumping to the
+ end of the buffer.
+ * lisp/minibuffer.el: (minibuffer-local-completion-map): Bind
+ minibuffer-complete to backtab
+ (completion--in-region-1): Handle backtab to scroll backwards
+
+2021-12-21 Philip Kaludercic <philipk@posteo.net>
+
+ Allow for the completion buffer to be automatically selected
+
+ * lisp/simple.el (completion-auto-select): Add new option.
+ (completion-setup-function): Respect completion-auto-select.
+
+2021-12-21 Stefan Kangas <stefan@marxist.se>
+
+ Declare functions to silence byte-compiler
+
+ * lisp/auth-source.el (gnutls-symmetric-decrypt, gnutls-ciphers):
+ * lisp/net/dbus.el (libxml-parse-xml-region):
+ * lisp/simple.el (thread-name):
+ * lisp/thread.el (thread-name, thread-signal, thread--blocker)
+ (current-thread, thread-live-p, all-threads):
+ * test/lisp/emacs-lisp/multisession-tests.el (sqlite-close):
+ * test/lisp/net/gnutls-tests.el (gnutls-symmetric-decrypt)
+ (gnutls-symmetric-encrypt, gnutls-hash-mac, gnutls-hash-digest)
+ (gnutls-ciphers, gnutls-digests, gnutls-macs):
+ * test/lisp/net/network-stream-tests.el (gnutls-peer-status):
+ * test/lisp/net/shr-tests.el (libxml-parse-html-region):
+ * test/src/decompress-tests.el (zlib-decompress-region):
+ * test/src/process-tests.el (thread-last-error, thread-join)
+ (make-thread):
+ * test/src/xml-tests.el (libxml-parse-xml-region): Declare
+ functions to silence byte-compiler in --without-all builds.
+
+2021-12-21 Stefan Kangas <stefan@marxist.se>
+
+ Fix some tests in --without-all builds
+
+ * test/lisp/image-tests.el (image-type/from-filename):
+ * test/src/image-tests.el (image-tests-init-image-library):
+ * test/src/thread-tests.el (threads-test-bug33073): Fix tests in
+ --without-all builds.
+
+2021-12-21 Stefan Kangas <stefan@marxist.se>
+
+ Silence additional byte-compiler warning in test
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el:
+ Silence byte-compiler.
+
+2021-12-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Add `permission-denied' error to Tramp
+
+ * lisp/net/tramp-compat.el (tramp-permission-denied): New defconst.
+ (tramp-compat-permission-denied): New defsubst.
+
+ * lisp/net/tramp.el (tramp-handle-access-file):
+ * lisp/net/tramp-archive.el (tramp-archive-handle-copy-file): Use it.
+
+2021-12-21 Po Lu <luangruo@yahoo.com>
+
+ Fix xg_event_is_scrollbar for grab-related events on XI2
+
+ * src/gtkutil.c (xg_event_is_for_scrollbar): Don't return true
+ if event coordinates are outside the frame on XInput 2.
+
+2021-12-21 Mattias Engdegård <mattiase@acm.org>
+
+ Don't produce multibyte strings by accident in sasl-scram-rfc
+
+ * lisp/net/sasl-scram-rfc.el (sasl-scram--client-final-message):
+ The XOR of two unibyte strings should be a unibyte string.
+ This code previously worked by accident because of an overly tolerant
+ base64 encoder (bug#52670), but now causes a test failure.
+
+2021-12-21 Po Lu <luangruo@yahoo.com>
+
+ Ignore XI_TouchBegin events on the GTK tool bar
+
+ * src/xterm.c (handle_one_xevent): Ignore TouchBegin events
+ that target the tool bar.
+
+2021-12-21 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Fix gnus subject matching when subject is empty
+
+ * lisp/gnus/gnus-sum.el (gnus-summary-limit-include-thread): Don't try
+ to limit to a matching subject when the simplified subject is empty.
+
+2021-12-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Speed up find_field when called from outside a field"
+
+ This reverts commit 4d8af56c76ee20bc8e1ebdeef5c4100cea005974.
+
+ This leads to lisp-mode-tests failures
+
+2021-12-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the `mode-line-percent-position' min width hack
+
+ * lisp/bindings.el (mode-line-position): Remove hack to get
+ min-width to work on the `mode-line-percent-position' bit.
+ * src/xdisp.c (display_string): Respect min-width in the non-Lisp
+ string case (bug#52332).
+
+2021-12-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow @ characters in heredoc in shell-script-mode
+
+ * lisp/progmodes/sh-script.el (defconst): Also allow @ in heredoc
+ (bug#52496).
+
+2021-12-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use the new `permission-denied' error to catch multisession errors
+
+ * lisp/emacs-lisp/multisession.el (multisession--read-file-value):
+ Use the new `permission-denied' error to catch file errors on Windows.
+
+2021-12-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Speed up find_field when called from outside a field
+
+ * src/editfns.c (find_field): Speed up the field functions when
+ called from outside a field (bug#52593). (In some cursory tests,
+ this makes the called-from-outside-a-field case about 3x faster.)
+
+2021-12-20 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Fix bug#28557
+
+ * test/lisp/emacs-lisp/cconv-tests.el: Remove `:expected-result :failed`
+ from the bug#28557 tests.
+ (cconv-tests-cl-function-:documentation): Account for the presence of
+ the arglist (aka "usage") in the docstring.
+
+ * lisp/emacs-lisp/cl-macs.el (cl--transform-lambda):
+ * lisp/emacs-lisp/cl-generic.el (cl-defgeneric):
+ Handle non-constant `:documentation`.
+
+ * lisp/emacs-lisp/generator.el (iter-lambda):
+ * lisp/emacs-lisp/cconv.el (cconv--convert-funcbody):
+ Use `macroexp-parse-body`.
+
+2021-12-20 Po Lu <luangruo@yahoo.com>
+
+ Don't drop touch events we're not interested in on GTK3
+
+ * src/xterm.c (handle_one_xevent): Allow GTK to handle
+ unwanted TouchBegin events.
+
+2021-12-20 Po Lu <luangruo@yahoo.com>
+
+ Fix touch event menu bar detection
+
+ * src/xterm.c (handle_one_event): Don't drop menu bar touch
+ events.
+
+2021-12-20 Po Lu <luangruo@yahoo.com>
+
+ Fix xg_event_is_for_menubar for XI2 events
+
+ * src/gtkutil.c (xg_event_is_for_menubar): Use correct fields
+ for XI2 events.
+ * src/xterm.c (handle_one_event): Drop TouchBegin events we
+ know about.
+
+2021-12-20 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ eieio-tests.el: Silence last warnings
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el (eieio-tests--dummy):
+ New class.
+ (eieio-test-22-init-forms-dont-match-runnable): Tweak to silence
warning.
+
+2021-12-20 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (handle_one_xevent): Set user time on touch events.
+
+2021-12-20 Po Lu <luangruo@yahoo.com>
+
+ Ignore all emulated button events (i.e. those from touchscreens)
+
+ * src/xterm.c (handle_one_xevent): Ignore all XIPointerEmulated
+ events if the display supports XI 2.2 or later.
+
+2021-12-20 Paul Eggert <eggert@cs.ucla.edu>
+
+ Put AM_V_GEN etc. first
+
+ With the recent changes to src/verbose.mk.in, it’s more important
+ to be consistent about putting AM_V_GEN and similar macros at the
+ start of a rule’s recipe, since ‘make’ now outputs the diagnostic
+ before it executes the recipe rather than the shell outputting it.
+ Most of the uses were already this way, but there were a few
+ outliers. Problem reported by Pip Cet.
+ * Makefile.in (${srcdir}/info/dir):
+ * admin/unidata/Makefile.in (${unidir}/charprop.el, ${unifiles})
+ (${unidir}/emoji-labels.el):
+ * lib/Makefile.in (libgnu.a, libegnu.a):
+ * lisp/Makefile.in (TAGS):
+ * src/Makefile.in (lisp.mk, Emacs):
+ * test/Makefile.in (%.log, $(test_module)):
+ Put AM_V_GEN and similar macros first.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Make some variable aliases obsolete
+
+ * lisp/progmodes/make-mode.el (makefile-query-one-target-method):
+ * lisp/skeleton.el (skeleton-transformation, skeleton-filter):
+ * lisp/textmodes/artist.el (artist-text-renderer):
+ * lisp/textmodes/bibtex.el (bibtex-autokey-name-case-convert):
+ (bibtex-autokey-titleword-case-convert):
+ * lisp/textmodes/ispell.el (ispell-format-word):
+ * lisp/textmodes/sgml-mode.el (sgml-transformation):
+ * lisp/vc/add-log.el (change-log-time-zone-rule): Make variable
+ aliases obsolete.
+
+2021-12-20 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer $(info) to @echo
+
+ Have GNU Make output some diagnostics directly, instead of forking
+ and execing a shell to do it.
+ * GNUmakefile (help):
+ * doc/lispref/two-volume.make (vol2.pdf, elisp2med-init)
+ (elisp2-init):
+ * doc/misc/Makefile.in (echo-info, echo-sources):
+ * lib-src/Makefile.in (archlibdir, install, check):
+ * src/verbose.mk.in (AM_V_AR, AM_V_CC, AM_V_CXX, AM_V_CCLD)
+ (AM_V_CXXLD, AM_V_ELC, AM_V_ELN, AM_V_GEN, AM_V_GLOBALS)
+ (AM_V_RC):
+ * test/Makefile.in (subdirs, subdir-targets):
+ Prefer $(info) to @echo.
+ * GNUmakefile (MAKECMDGOALS, configure, Makefile):
+ Prefer $(warning) to @echo >&2.
+ * src/verbose.mk.in (AM_V_ELN): Output target, like the others.
+
+2021-12-20 Mattias Engdegård <mattiase@acm.org>
+
+ Fix sloppy base64 acceptance of some multibyte characters
+
+ The base64 encoding functions incorrectly accepted some multibyte
+ characters; stop doing that (bug#52670).
+
+ * src/fns.c (base64_encode_1): Reject all multibyte characters.
+ * test/src/fns-tests.el (fns-tests-base64-encode-string)
+ (fns-test-base64url-encode-region)
+ (fns-test-base64url-encode-string): Add tests.
+ * doc/lispref/text.texi (Base 64): Rephrase outdated manual text.
+ * etc/NEWS: Add a notice.
+
+2021-12-20 Sam Steingold <sds@gnu.org>
+
+ Fix build in a separate directory (bug#52669)
+
+ * src/lisp.h: Include <globals.h> instead of "globals.h"
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in wdired.el
+
+ * lisp/wdired.el (wdired-mode-map, wdired-perm-mode-map): Use
+ defvar-keymap.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Use declare-function instead of defun in eieio-tests.el
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: Prefer
+ declare-function to defun.
+
+2021-12-20 Mattias Engdegård <mattiase@acm.org>
+
+ Silence byte-compiler warnings from absent optional features
+
+ * test/src/inotify-tests.el (inotify-rm-watch):
+ * test/src/lcms-tests.el (lcms-xyz->jch):
+ * test/src/sqlite-tests.el (sqlite-open):
+ Add declarations to prevent byte-compilation warnings when features
+ are absent.
+
+2021-12-20 Mattias Engdegård <mattiase@acm.org>
+
+ Body of dynamic let-bindings is not in tail position
+
+ This fixes a known bug in `named-let`.
+
+ * lisp/emacs-lisp/cl-macs.el (cl--self-tco): Prevent TCO from inside
+ dynamic variable bindings.
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--labels): Add test.
+
+2021-12-20 Mattias Engdegård <mattiase@acm.org>
+
+ Add `macroexp--dynamic-variable-p`
+
+ This predicate can be used for discriminating between lexically and
+ dynamically bound variables during macro-expansion (only).
+ It is restricted to internal use for the time being.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment):
+ Use macroexpand--all-toplevel.
+ * lisp/emacs-lisp/macroexp.el (macroexp-dynamic-variable-p): New.
+ (macroexp--expand-all): Maintain macroexp--dynvars.
+ (macroexpand-all): Rebind macroexp--dynvars.
+ (macroexpand--all-toplevel): New.
+ (internal-macroexpand-for-load): Use macroexpand--all-toplevel.
+ * src/eval.c (eval_sub): Transfer defvar declarations from
+ Vinternal_interpreter_environment into macroexp--dynvars during
+ lazy macro-expansion.
+ * src/lread.c (readevalloop): Rebind macroexp--dynvars around
+ read-and-evaluate operations.
+ (syms_of_lread): Define macroexp--dynvars.
+ * test/lisp/emacs-lisp/macroexp-resources/vk.el: New file.
+ * test/lisp/emacs-lisp/macroexp-tests.el (macroexp-tests--run-emacs)
+ (macroexp-tests--eval-in-subprocess)
+ (macroexp-tests--byte-compile-in-subprocess)
+ (macroexp--tests-dynamic-variable-p): Add tests.
+
+2021-12-20 Mattias Engdegård <mattiase@acm.org>
+
+ Treat base64 string encode/decode as pure functions
+
+ * lisp/emacs-lisp/byte-opt.el (side-effect-free-fns, pure-fns):
+ Mark base64-decode-string, base64-encode-string and
+ base64url-encode-string as pure and side-effect-free.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler using with-no-warnings in tests
+
+ We could silence the specific warnings by adding support for them to
+ with-suppressed-warnings, but it is almost not worth the complexity
+ for warnings that only show up in one file. In any case, it is not
+ urgent, so leave behind FIXMEs for now.
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
+ (eieio-test-37-obsolete-name-in-constructor, class-c)
+ (eieio-test-01-mix-alloc-initarg, slotattr-class-base):
+ * test/lisp/progmodes/elisp-mode-tests.el
+ (xref-elisp-generic-co-located-default): Silence byte-compiler.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Silence undefined function warnings in eieio-tests.el
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: Silence
+ byte-compiler with some function definitions. These are overridden by
+ class definitions further down.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Prefer skip-unless in one eieio test
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
+ (eieio-test-01-mix-alloc-initarg): Use skip-unless to correctly mark
+ the test as skipped.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in cconv-tests.el
+
+ * test/lisp/emacs-lisp/cconv-tests.el
+ (cconv-tests-iter-lambda-:documentation)
+ (cconv-tests-cl-function-:documentation): Silence byte-compiler.
+
+2021-12-20 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 16ed9fad2c ; * doc/lispref/frames.texi (Child Frames): Improve wording.
+ f11b996a3c Clarify description of two mouse dragging parameters (Bug#...
+
+2021-12-19 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/progmodes/sh-script.el (sh-mode-map): Use defvar-keymap.
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further tweaks to emoji person groups
+
+ * lisp/international/emoji.el (emoji--score): Don't take the bit
+ after the colon into consideration, like in "kiss: person, person,
+ light skin tone, medium-light skin tone".
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further tweaks to the emoji segmentation
+
+ * lisp/international/emoji.el (emoji--parse-emoji-test): Ensure
+ that we key off of the "person" variants, even if they come after
+ the gendered variations (which is the case for a handful of glyphs).
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further fixes for emojis in the "people" categories
+
+ * lisp/international/emoji.el (emoji--base-name): Get more derived
+ categories right.
+
+2021-12-19 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el: Don't display "Pending" for lax and toggle commands.
+
+ * lisp/isearch.el (isearch-message-prefix): Display "Pending"
+ only when isearch-adjusted is 't' (bug#52356).
+ (isearch-define-mode-toggle):
+ Set isearch-adjusted to 'toggle' instead of 't'.
+ (isearch-search-fun-default):
+ Set isearch-adjusted to 'lax' instead of 't'.
+
+2021-12-19 Eli Zaretskii <eliz@gnu.org>
+
+ Move Rmail autoloads to the common loaddefs.el
+
+ * lisp/mail/rmailsum.el:
+ * lisp/mail/rmailsort.el:
+ * lisp/mail/rmailmsc.el:
+ * lisp/mail/rmailmm.el:
+ * lisp/mail/rmailkwd.el:
+ * lisp/mail/rmailedit.el:
+ * lisp/mail/rmail.el: Remove generated-autoload-file setting and
+ don't require rmail-loaddefs.el
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add some very rudimentary field-beginning/end tests
+
+2021-12-19 Eli Zaretskii <eliz@gnu.org>
+
+ New error symbol 'permission-denied'
+
+ * src/fileio.c (syms_of_fileio) <permission-denied>: Define the
+ symbol and its 'err-conditions' and 'error-message' properties.
+ (get_file_errno_data): Return permission-denied on EACCES.
+
+ * test/src/filelock-tests.el (filelock-tests-file-locked-p-spoiled)
+ (filelock-tests-unlock-spoiled)
+ (filelock-tests-kill-buffer-spoiled): Adapt the tests to the new
+ error symbol.
+
+ * doc/lispref/errors.texi (Standard Errors):
+ * etc/NEWS: Document 'permission-denied' error.
+
+2021-12-19 Stefan Kangas <stefan@marxist.se>
+
+ Make bad-packages-alist obsolete
+
+ * lisp/simple.el (bad-packages-alist, bad-package-check): Make
+ obsolete. (Bug#52351)
+
+2021-12-19 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Remove annoying background fontification. Should fix bug
#52298
+
+ Partially revert the commits from 2021-10-24 - 2021-10-26, "CC Mode:
Fontify
+ "found types" which are recognized after being first scanned".
+
+ This removes the background fontification which ran off of a 0.1s
timer, but
+ leaves the facility of normal fontification causing the fontification
+ throughout the buffer of newly found types.
+
+ * lisp/progmodes/cc-fonts.el (c-find-types-background)
+ (c-type-finder-timer-func): Remove.
+
+ * lisp/progmodes/cc-mode.el (c-type-finder-timer, c-inhibit-type-finder)
+ (c-type-finder-pos, c-post-gc-hook): Remove.
+ (c-leave-cc-mode-mode): Remove the manipulations of c-type-finder-timer
and
+ c-post-gc-hook.
+ (c-basic-common-init): Remove the manipulations of c-type-finder-pos,
+ c-type-finder-timer, and c-post-gc-hook.
+
+ * lisp/progmodes/cc-vars.el (c-type-finder-time-slot)
+ (c-type-finder-repeat-time, c-type-finder-chunk-size): Remove.
+
+ * doc/misc/cc-mode.texi (Found Types): Remove. Amend some menu entries.
+
+2021-12-19 Stefan Kangas <stefan@marxist.se>
+
+ Silence "initform needs quoting" warning in tests
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
+ (persist-simple):
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el (class-a)
+ (class-c, inittest, slotattr-base, slotattr-ok)
+ (slotattr-class-base, slotattr-class-ok, IT): Silence byte-compiler
+ warnings about "ambiguous initform needs quoting".
+
+2021-12-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix timeout problem in autorevert-tests.el
+
+ * test/lisp/autorevert-tests.el (auto-revert-test05-global-notify):
+ Remove debug message. Increase timeout.
+
+2021-12-19 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Enable webp support in PGTK builds, too
+
+ * configure.ac (HAVE_WEBP): Enable webp in PGTK builds, too.
+
+2021-12-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix last change in 'handle_display_prop'
+
+ * src/xdisp.c (handle_display_prop): Pass the window's buffer to
+ 'display_min_width' and to 'handle_display_spec'. (Bug#52385)
+
+2021-12-19 Stefan Kangas <stefan@marxist.se>
+
+ Silence "Unknown slot" warnings in tests
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el:
+ * test/lisp/net/ntlm-tests.el: Silence byte-compiler.
+
+2021-12-19 Daniel Mendler <mail@daniel-mendler.de>
+
+ Add a new elp-restore-package command
+
+ * lisp/emacs-lisp/elp.el (elp-restore-package): New command
+ (bug#52457).
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix elp-*-list interactive specs
+
+ * lisp/emacs-lisp/elp.el (elp-reset-list):
+ (elp-restore-list): Fix the interactive specs (bug#52457).
+
+2021-12-19 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5f25852e91 Update to Org 9.5.1-31-ga18849
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rework how shr sets <span id='foo'> targets to make it more reliable
+
+ * lisp/net/eww.el (eww-display-html): The target is now a list.
+ * lisp/net/shr.el (shr--link-targets): New variable.
+ (shr-insert-document): Set the targets.
+ (shr-descend): Save targets and apply them later.
+ (shr-ensure-paragraph): Remove hack to avoid filling from removing
+ targets.
+ (shr-tag-a): Save targets for later.
+ (shr-render-td-1): Bind and set targets (bug#52512).
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix prompt in `sql-sqlite'
+
+ * lisp/progmodes/sql.el (sql-get-login): Fix the Database: prompt
+ (bug#52546).
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix indexing gendered emoji forms that have "person" base forms
+
+ * lisp/international/emoji.el (emoji--base-name): Index man/woman
+ on the generic form we have read already (bug#52580).
+
+2021-12-19 LdBeth <andpuke@foxmail.com> (tiny change)
+
+ Add a shr-allowed-images user option
+
+ * lisp/net/shr.el (shr-allowed-images): New variable (bug#52594).
+ (shr-image-is-blocked): New function to use it.
+ (shr-tag-img): Use it.
+ * doc/misc/eww.texi (Advanced): Document it.
+
+2021-12-19 miha <miha@kamnitnik.top>
+
+ Fix prompt colors in comint-snapshot-last-prompt
+
+ * lisp/comint.el (comint-snapshot-last-prompt): Fix colorization
+ of the prompt (bug#11883).
+
+2021-12-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move rmail-related functions from gnus-util.el to gnus-rmail.el
+
+ * lisp/gnus/gnus-rmail.el: New file with rmail-related functions
+ moved from gnus-util.el.
+
+ * lisp/gnus/gnus-util.el: Move the rmail-related functions to its
+ own file. This avoids loading rmail.el when something requires
+ gnus-util.el.
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Add missing implementation of `pgtk-menu-bar-open'
+
+ * lisp/term/pgtk-win.el (pgtk-menu-bar-open): New function.
+ (bug#52604)
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ * src/gtkutil.c: Remove obsolete fixme.
+
+ * etc/NEWS: Add news entry for pgtk.
+
+2021-12-18 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update from gnulib
+
+ Make the following changes by hand, and run ‘admin/merge-gnulib’.
+ * configure.ac (AM_CONDITIONAL): Adjust to new Gnulib convention.
+
+2021-12-18 Andrew G Cohen <cohen@andy.bu.edu>
+
+ Fix gnus search by message-id
+
+ * lisp/gnus/gnus-search.el (gnus-search-run-search): Continue
+ iterating until a match is found.
+
+ * lisp/gnus/nnselect.el (nnselect-request-article): Use new
+ gnus-search query format.
+
+2021-12-18 Eli Zaretskii <eliz@gnu.org>
+
+ Improve doc strings in emoji.el
+
+ * lisp/international/emoji.el (emoji-insert, emoji-recent)
+ (emoji-search, emoji-list, emoji-describe, emoji-list-help):
+ Improve and clarify the doc strings.
+
+2021-12-18 Mattias Engdegård <mattiase@acm.org>
+
+ Remove incorrect byte-hunk-handler for `eval`
+
+ This optimisation is of very limited utility and miscompiles top-level
+ code having the form (eval 'CODE t) by replacing it with CODE which
+ will then, as things currently stand, be evaluated with dynamic binding.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-eval): Remove.
+
+2021-12-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Make generation of JUnit test reports more robust.
+
+ * lisp/emacs-lisp/ert.el (ert-load-file-name): New defvar.
+ (ert-write-junit-test-report): Use it. Make detection of selector
+ more robust. Protect calls of `xml-escape-string' with 'noerror.
+
+ * test/infra/Makefile.in (subdir_template): Use "make -k ...".
+
+ * test/infra/gitlab-ci.yml (test-filenotify-gio):
+ Adapt make_params in order to get a JUnit test report.
+ (test-native-comp-speed0): Use "make -k ...".
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+ * test/lisp/progmodes/perl-mode-tests.el (top):
+ Set `ert-load-file-name'.
+
+2021-12-18 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/dired.el (dired-mode-map): Use defvar-keymap.
+
+2021-12-18 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in multisession-tests.el
+
+ * test/lisp/emacs-lisp/multisession-tests.el
+ (multi-test-sqlite-simple, multi-test-sqlite-busy)
+ (multi-test-files-simple, multi-test-files-busy)
+ (multi-test-files-some-values): Silence byte-compiler.
+
+2021-12-18 YugaEgo <yet@ego.team>
+
+ Cleanup append-to-buffer section in ELisp Intro
+
+ * doc/lispintro/emacs-lisp-intro.texi
+ (append-to-buffer, Buffer Related Review, fwd-para let):
+ Finalize shifting focus of the 'let*' introduction
+ to the 'append-to-buffer' section. Improve wording, fix
+ typos, remove redundant comments (Bug#8275).
+
+2021-12-18 Eli Zaretskii <eliz@gnu.org>
+
+ Clean up some of PGTK code
+
+ * src/pgtkgui.h: Fix comments.
+ * src/image.c (DONT_CREATE_TRANSFORMED_IMAGEMAGICK_IMAGE)
+ (is_wayland_display, check_x_display_info)
+ (pgtk_get_string_resource): Reformat comments.
+ * src/gtkutil.c (xg_show_tooltip): Add comments to large #ifdef's.
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Fix cairo build on haiku
+
+ * configure.ac: Move pgtk cairo detection to the correct
+ location.
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ * src/pgtkfns.c (Fx_show_tip): Adjust call for new signature.
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Work around some mysterious touch ownership race on GNOME Shell
+
+ * src/xterm.c (x_unlink_touch_point): Return if touchpoint was
+ actually unlinked.
+ (handle_one_xevent): Catch and ignore errors during touch
+ sequence grabbing.
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Add new argument `ignore-line-at-end' to `window-text-pixel-size'
+
+ * doc/lispref/display.texi (Size of Displayed Text): Update
+ documentation.
+ * etc/NEWS: Announce new argument.
+ * src/xdisp.c (window_text_pixel_size): Allow controlling if
+ the iterator's ascent and descent will be appended to the
+ pixel height returned. All callers changed.
+ (Fwindow_text_pixel_size): New argument `ignore-line-at-end'.
+ All callers changed.
+
+2021-12-18 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of window-specific overlays with 'display' property
+
+ * src/xdisp.c (handle_display_prop): Pass the window to
+ 'get_char_property_and_overlay', not the buffer. (Bug#52385)
+ The assignment of the buffer to OBJECT was moved to before
+ the call to 'get_char_property_and_overlay', for unknown
+ reasons, as part of installing the support for the
+ 'min-width' space spec.
+
+2021-12-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make multisession file reading more resilient on Windows
+
+ * lisp/emacs-lisp/multisession.el (multisession--read-file-value):
+ Rename and try harder on file errors on Windows.
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Coding style fixes
+
+ * src/gtkutil.c (xg_frame_set_char_size): Fix coding style.
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-18 Po Lu <luangruo@yahoo.com>
+
+ Document a bug that exists with some versions of GNOME and GTK
+
+ * etc/PROBLEMS (Window-manager and toolkit-related problems):
+ Document GNOME shell bug.
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Flip buffers if display were modified in haiku_read_socket
+
+ * src/haikuterm.c (flush_dirty_back_buffers): New function.
+ (haiku_read_socket): Flip buffers if the display could have
+ been modified.
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Don't abort upon untracked TouchUpdate events
+
+ Emacs might get an untracked TouchUpdate event in the unlikely
+ event of a device hierarchy change during a touch sequence, in
+ which case all devices and touchpoints will be reset.
+
+ * src/xterm.c (handle_one_xevent): Don't abort when receiving
+ a TouchUpdate that isn't part of a touch sequence.
+
+2021-12-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Handle missing JUnit test reports
+
+ * lisp/emacs-lisp/ert.el (ert-write-junit-test-report)
+ (ert-write-junit-test-summary-report): Handle missing JUnit test
reports.
+
+2021-12-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ multisession.el: Avoid old specializer syntax
+
+ Avoid the use of the old (eql VAL) specializer, preferring the new
+ (eql EXP) form.
+
+ * lisp/emacs-lisp/multisession.el (multisession-backend-value)
+ multisession--backend-set-value, multisession--backend-values)
+ multisession--backend-delete, multisession-backend-value)
+ multisession--backend-set-value, multisession--backend-values)
+ multisession--backend-delete): Quote the symbol passed to `eql`
specializer.
+
+2021-12-17 Eli Zaretskii <eliz@gnu.org>
+
+ Improve multisession test results on MS-Windows
+
+ * lisp/emacs-lisp/multisession.el
+ (multisession--backend-set-value): Force 'fsync'ing the temporary
+ file.
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Fix touchscreen support on Xt builds
+
+ * src/xterm.c (handle_one_xevent): Make menu bar touch event
+ code conditional on GTK3.
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Update menu bar when processing touch sequences on it
+
+ * src/xterm.c (handle_one_event): Prevent menu bar from
+ becoming outdated when handling XI_TouchBegin events that may
+ cause it to be opened.
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Ignore motion events sent by an emulated pointer
+
+ * src/xterm.c (handle_one_xevent): Ignore XI_Motion events that
+ have PointerEmulated set when the display supports XInput 2.2
+ or later.
+
+2021-12-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port tramp-adb.el back to Emacs 26
+
+ * lisp/net/tramp-adb.el (tramp-adb-ls-output-time-less-p):
+ Revert previous change since Tramp code should still be backward
+ compatible to Emacs 26. But add a comment about this.
+ Problem reported by Michael Albinus in:
+ https://lists.gnu.org/r/emacs-devel/2021-12/msg01623.html
+
+2021-12-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix selection of fonts that don't have regular weight
+
+ * src/font.c (font_delete_unmatched): The kludge of allowing
+ inexact matches of the font weight is now used for non-NTGUI
+ platforms as well. (Bug#52493)
+
+2021-12-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix parallel build with multisession.el
+
+ * lisp/emacs-lisp/multisession.el: Don't require url -- this pulls
+ in gnus-util, which requires rmail, which depends on
+ rmail-loaddefs being generated, which our Makefiles doesn't guarantee.
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-17 Po Lu <luangruo@yahoo.com>
+
+ Add support for touchscreen events generated by XInput 2
+
+ * doc/lispref/commands.texi (Input Events): Add "Touchscreen
+ Events" to menu.
+ (Touchscreen Events): New node.
+ * etc/NEWS: Announce new event types.
+
+ * src/keyboard.c (make_lispy_event): Handle touchscreen events.
+ (syms_of_keyboard): New symbols `touchscreen-begin',
+ `touchscreen-end' and `touchscreen-update'.
+ * src/termhooks.h (enum event_kind): New touchscreen events.
+
+ * src/xfns.c (setup_xi_event_mask): Set up touch event mask if
+ appropriate.
+ (x_window) [USE_GTK]: Call `setup_xi_event_mask'.
+
+ * src/xterm.c (x_free_xi_devices): Free touchpoints.
+ (x_init_master_valuators): Handle all devices and set master and
+ touch mode flags appropriately.
+ (xi_reset_scroll_valuators_for_device_id):
+ (x_get_scroll_valuator_delta): Ignore slave devices.
+
+ (xi_link_touch_point):
+ (xi_unlink_touch_point):
+ (xi_find_touch_point): New functions.
+ (handle_one_xevent): Handle XI touch events and events from
+ non-master devices.
+
+ * src/xterm.h (struct xi_touch_point_t): New structure.
+ (struct xi_device_t): Add touchpoints field.
+
+2021-12-16 Dmitry Gutov <dgutov@yandex.ru>
+
+ Kill eshell-mode project buffers too
+
+ * lisp/progmodes/project.el (project-kill-buffer-conditions):
+ Add 'eshell-mode' too (bug#49465).
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ * src/timefns.c: Minor comment fix.
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify epa-ks--parse-buffer timestamp handling
+
+ * lisp/epa-ks.el (epa-ks--parse-buffer): Omit unnecessary calls to
+ seconds-to-time, and prefer the unaliased name time-convert when
+ calls are necessary.
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Omit temporary warning re obsolete timestamps
+
+ Do not warn about timestamps like (1 . 1000). This warning was added
+ in Emacs 27 as a temporary transition aid, and has now served its
+ purpose. These timestamps, which Emacs 26 and earlier treated as (HI
+ . LO) instead of as (TICKS . HZ), were never generated by Emacs
+ primitives, and in practice the warning seems to have been triggered
+ only by test cases designed to generate it.
+ * src/timefns.c (WARN_OBSOLETE_TIMESTAMPS): Remove.
+ All uses changed to assume it’s false.
+ (decode_lisp_time): Simplify by taking a bool instead of an
+ integer bitmask. All uses changed.
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Assume current-time-zone exists
+
+ * lisp/timezone.el (timezone-time-zone-from-absolute): Simplify by
+ assuming current-time-zone exists (true since Emacs 19.7 in 1993).
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer format-time-string to current-time-zone
+
+ * lisp/org/ox-icalendar.el (org-icalendar-template)
+ (org-icalendar-export-current-agenda)
+ (org-icalendar--combine-files):
+ * lisp/time.el (display-time-update):
+ Prefer (format-time-string "%Z") to (cadr (current-time-zone)).
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Minor nndiary simplificatiuon with time zone
+
+ * lisp/gnus/nndiary.el (nndiary-last-occurrence)
+ (nndiary-next-occurrence): Simplify (and X (car X)) to (car X).
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer format-time-string to current-time-string
+
+ * lisp/arc-mode.el (archive-unixdate):
+ * lisp/gnus/nnrss.el (nnrss-normalize-date):
+ * lisp/tar-mode.el (tar-clip-time-string):
+ Prefer format-time-string to reassembling current-time-string output.
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ encode-time simplifications
+
+ * lisp/gnus/gnus-search.el (gnus-search-query-parse-date):
+ * lisp/net/soap-client.el (soap-decode-date-time):
+ * lisp/net/tramp-adb.el (tramp-adb-ls-output-time-less-p):
+ * lisp/org/ol.el (org-store-link):
+ * lisp/org/org-clock.el (org-clock-sum)
+ (org-clock-update-time-maybe):
+ * lisp/org/org-colview.el (org-colview-construct-allowed-dates):
+ * lisp/org/org-macro.el (org-macro--vc-modified-time):
+ * lisp/org/org-macs.el (org-2ft, org-matcher-time):
+ * lisp/org/org-table.el (org-table-eval-formula):
+ * lisp/org/org.el (org-read-date, org-display-custom-time)
+ (org-time-string-to-time, org-timestamp-change):
+ Prefer (encode-time L) to (apply #'encode-time L) where either will do.
+ * lisp/gnus/gnus-search.el (gnus-search-imap-handle-date):
+ * lisp/org/org-clock.el (org-clocktable-steps):
+ Prefer (encode-time S M ...) to (apply #'encode-time (list S M ...)).
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix icalendar time zone parsing glitch
+
+ * lisp/calendar/icalendar.el (icalendar--decode-isodatetime):
+ Use pcase instead of cl-case, as cl-macs might not be loaded.
+ Otherwise, a build complains “calendar/icalendar.el:618:57:
+ Warning: ‘90’ is a malformed function” and some
+ icalendar--decode-isodatetime tests fail. This fixes a bug
+ introduced in 2021-11-21T08:18:57Z!dick.r.chiang@gmail.com.
+
+2021-12-16 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix encode-time doc string
+
+ * src/timefns.c (Fencode_time): Fix incorrect doc string
+ that talks about FORM (which doesn’t exist) by copying
+ wording from the manual instead.
+
+2021-12-16 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/vc-dispatcher.el (vc-command-messages): Add choice 'log'.
+
+ (vc-do-command): Don't display messages but only write them to the
*Messages*
+ buffer when vc-command-messages is 'log' (bug#52518).
+
+2021-12-16 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-16 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of multisession variables
+
+ * doc/lispref/variables.texi (Multisession Variables): Improve
+ wording and markup, add indexing.
+
+2021-12-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update files times in multisesssion properly
+
+ * lisp/emacs-lisp/multisession.el
+ (multisession--backend-set-value): Make cached/external files
+ times match up.
+
+2021-12-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the multisession files value read more resilient
+
+ * lisp/emacs-lisp/multisession.el
+ (multisession--update-file-value): Make more resilient towards errors.
+
+2021-12-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Skip extension tests on hosts without the function
+
+2021-12-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make emoji--recent use multisession variables
+
+ * lisp/international/emoji.el (emoji--recent): Make into a
+ multisession variable.
+ (emoji-recent, emoji--recent-transient): Use it.
+ (emoji--add-recent): Update it.
+
+2021-12-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Declare a couple more functions in multisession.el
+
+ * lisp/emacs-lisp/multisession.el: New file.
+
+2021-12-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for multisession variables
+
+ * doc/lispref/elisp.texi (Top): Add to menu.
+ (Top):
+ * doc/lispref/variables.texi (Variables): Ditto.
+ (Multisession Variables): Document multisession variables.
+
+ * lisp/emacs-lisp/multisession.el: New file.
+
+2021-12-16 Po Lu <luangruo@yahoo.com>
+
+ Require xwidget.el in `make-xwidget'
+
+ * src/xwidget.c (Fmake_xwidget): Require `xwidget'.
+
+2021-12-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1e578267fb Fix control buffer window height in 'ediff-setup-control-b...
+
+2021-12-15 Stefan Kangas <stefan@marxist.se>
+
+ Prefer command remapping in ses.el
+
+ * lisp/ses.el (ses-mode-print-map): Use command remapping instead of
+ substitute-key-definition.
+
+2021-12-15 Fredrik Bergroth <fbergroth@gmail.com>
+
+ Add missing entries from completionitemkind
+
+ * eglot.el (eglot--kind-names): update
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/772
+
+2021-12-15 Garret Buell <gmbuell@gmail.com> (tiny change)
+
+ Mark eglot-completion-at-point capf "non-exclusive"
+
+ Add :exclusive 'no to eglot-completion-at-point results marking it as
+ non-exclusive. This will allow completion to fall back to other less
precise
+ completion backends (e.g. dabbrev) if Eglot's returns no results.
+
+ * eglot.el (eglot-completion-at-point): Set :exclusive to 'no
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/770
+
+2021-12-15 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in hideif.el
+
+ * lisp/progmodes/hideif.el (hide-ifdef-mode-submap): Use
+ defvar-keymap. Use command remapping instead of
+ substitute-key-definition.
+
+2021-12-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Add errors in ert JUnit test reports
+
+ * lisp/emacs-lisp/ert.el (ert-write-junit-test-report)
+ (ert-write-junit-test-summary-report): Handle errors.
+
+2021-12-15 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Add :safe
#'booleanp.
+
+ (outline-minor-mode-cycle, outline-minor-mode-highlight):
+ Replace `put safe-local-variable' with :safe tag.
+
+2021-12-15 Andrea Corallo <akrl@sdf.org>
+
+ Have 'dlopen' use RTLD_GLOBAL in 'dynlib_open'
+
+ * src/pdumper.c (dump_do_dump_relocation): Use 'dynlib_open_for_eln'
+ in place of 'dynlib_open'.
+ * src/dynlib.h (dynlib_open_for_eln): Declare it.
+ * src/dynlib.c (dynlib_open_for_eln): New function.
+ (dynlib_open): Add RTLD_GLOBAL.
+ * src/comp.c (Fnative_elisp_load): Use 'dynlib_open_for_eln' in place
+ of 'dynlib_open'.
+
+2021-12-15 Arash Esbati <arash@gnu.org>
+
+ Recognize starred environments
+
+ * lisp/textmodes/reftex-vars.el (reftex-label-alist-builtin): Add
+ missing starred environments from sidecap and rotating packages.
+
+2021-12-15 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 7078f32b5b Fix crash when dumping charset_table with portable dumper ...
+ a4fcbf46a7 ; etc/NEWS: Move the note about Xref EIEIO change to the p...
+ f88c1d222f Remove maintainer comment from Emacs 28 module snippet.
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-12-14 Po Lu <luangruo@yahoo.com>
+
+ Prevent GDK from handling emulated button events
+
+ * src/xterm.c (handle_one_xevent): Drop emulated button events.
+
+2021-12-14 Po Lu <luangruo@yahoo.com>
+
+ Work around pixel scrolling issues when line numbers are displayed
+
+ * lisp/pixel-scroll.el (pixel-point-and-height-at-unseen-line):
+ Compare start position against line number display width
+ instead.
+
+2021-12-14 Dmitry Gutov <dgutov@yandex.ru>
+
+ project-kill-buffers-display-buffer-list: Fix :package-version value
+
+ * lisp/progmodes/project.el (project-kill-buffers-display-buffer-list):
+ Fix :package-version value.
+
+2021-12-14 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add 'comint-mode' and 'change-log-mode' to
project-kill-buffer-conditions
+
+ * lisp/progmodes/project.el (project-kill-buffer-conditions):
+ Add 'comint-mode' and 'change-log-mode' to the list (bug#52465).
+
+2021-12-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ eieio-compat.el: Move to lisp/obsolete
+
+ The file only contains obsolete definitions, so it really belongs in
+ `lisp/obsolete`. Moving it there will also signal a warning for those
+ people who run old `.elc` files using EIEIO and generated with
+ Emacs<25 and who otherwise might not know about the obsolescence of
+ some of the functions they use.
+
+ * lisp/emacs-lisp/eieio-compat.el: Move to ...
+ * lisp/obsolete/eieio-compat.el: ... here.
+
+2021-12-14 Stefan Kangas <stefan@marxist.se>
+
+ Prefer command remapping in allout.el
+
+ * lisp/allout.el (allout-compose-and-institute-keymap): Use command
+ remapping instead of substitute-key-definition.
+
+2021-12-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix ert.texi error from previous change
+
+ * doc/misc/ert.texi (Running Tests in Batch Mode): Fix @r command.
+
+2021-12-14 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/net/eudc.el (custom-menu-create): Remove unnecessary autoload.
+
+2021-12-14 Stefan Kangas <stefan@marxist.se>
+
+ Remove Emacs 21 compat code for command-remapping
+
+ * lisp/arc-mode.el (archive-mode-map):
+ * lisp/obsolete/iswitchb.el (iswitchb-global-map): Remove Emacs 21
+ compat code.
+
+2021-12-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Minor Tramp cleanup
+
+ * lisp/net/tramp.el (tramp-get-buffer-string): Simplify.
+ (tramp-lock-pid): Fix docstring.
+
+2021-12-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Explain JUnit test reports in ert doc
+
+ * doc/misc/ert.texi (Running Tests in Batch Mode): Explain
+ generation of JUnit test reports.
+
+2021-12-14 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap in elisp-mode.el
+
+ * lisp/progmodes/elisp-mode.el (emacs-lisp-mode-map)
+ (elisp--dynlex-modeline-map, lisp-interaction-mode-map): Use
+ defvar-keymap.
+
+2021-12-14 Stefan Kangas <stefan@marxist.se>
+
+ Prefer command remapping in cperl-mode.el
+
+ * lisp/progmodes/cperl-mode.el (cperl-mode-map): Use command remapping
+ instead of substitute-key-definition.
+
+2021-12-14 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Only allow SQLite extensions from an allowlist
+
+ * src/sqlite.c (Fsqlite_load_extension): Only allow extensions
+ from an allowlist.
+
+2021-12-14 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 3607508f3f Set calc-make-windows-dedicated to nil by default
+ 9de8eec3bc * make-dist: Don't run "make --question info". (Bug#52322)
+ cea8deea72 ; * src/xdisp.c (move_it_vertically_backward): Clarify com...
+ 6170c5036e Fix regression in help-mode prompt
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-12-13 Stefan Kangas <stefan@marxist.se>
+
+ completion.el: Make two compat aliases obsolete
+
+ * lisp/completion.el (cmpl-syntax-table, initialize-completions):
+ Make compat aliases obsolete.
+
+2021-12-13 Michael Albinus <michael.albinus@gmx.de>
+
+ ERT can generate JUnit test reports
+
+ * .gitignore: Add test/**/*.xml.
+
+ * admin/notes/emba: Mention JUnit test report.
+
+ * etc/NEWS: ERT can generate JUnit test reports.
+
+ * lisp/emacs-lisp/ert.el (xml-escape-string): Autoload.
+ (ert-write-junit-test-report)
+ (ert-write-junit-test-summary-report): New defuns.
+ (ert-run-tests-batch, ert-summarize-tests-batch-and-exit): Call them.
+
+ * test/Makefile.in (clean): Remove *.xml.
+
+ * test/README: Mention $EMACS_TEST_JUNIT_REPORT environment variable.
+
+ * test/infra/Makefile.in ($(FILE)): Generate header commentary.
+ (clean): Remove.
+
+ * test/infra/gitlab-ci.yml (variables): Set EMACS_TEST_JUNIT_REPORT.
+ (.job-template): Use it in script and after_script.
+ (.build-template, .gnustep-template, .filenotify-gio-template)
+ (.native-comp-template): Adapt rules.
+ (.test-template): Trigger JUnit test report.
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+2021-12-13 Stefan Kangas <stefan@marxist.se>
+
+ Make alias obsolete in xscheme.el
+
+ * lisp/progmodes/xscheme.el (xscheme-yank-previous-send): Make
+ obsolete.
+
+2021-12-13 Stefan Kangas <stefan@marxist.se>
+
+ Make two aliases obsolete in lisp/international/robin.el
+
+ * lisp/international/robin.el (robin-transliterate-region)
+ (robin-transliterate-buffer): Make obsolete.
+
+2021-12-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/generator.el (iter-yield): Simplify
+
+2021-12-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ lisp/pcomplete.el: Mark obsolete some unused functions
+
+ * lisp/pcomplete.el (pcomplete-match-beginning, pcomplete-match-end):
+ Mark as obsolete.
+ (pcomplete-opt, pcomplete--here, pcomplete--help): Use lexical-binding.
+
+2021-12-13 Eli Zaretskii <eliz@gnu.org>
+
+ * src/sqlite.c (Fsqlite_open, Fsqlite_load_extension): Use ENCODE_FILE.
+
+2021-12-13 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/ielm.el (ielm-map): Use defvar-keymap.
+
+ * lisp/ielm.el (ielm-header): Show key binding for describe-mode.
+
+2021-12-13 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9bd3f78645 Make `M-x run-python' select the window again
+ 62139aeb42 * lisp/tab-bar.el (tab-bar-switch-to-last-tab): Add 'abs' ...
+ ea8422204f * make-dist (manifest): Filter out msdos/autogen/* files.
+ b5354e989d Rewrite the "Quitting Windows" section of Emacs Lisp Refer...
+ 64ea1a178c Fix eshell for systems that do not have subprocesses
+
+2021-12-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new `sqlite-pragma' command
+
+ * doc/lispref/text.texi (Database): Document it.
+ * src/sqlite.c (Fsqlite_pragma): Add a separate command for
+ pragmas. These can be done via sqlite-execute, but it's less
+ confusing to have them in a separate command.
+
+2021-12-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Introduce a new sqlite-locked-error
+
+ * src/sqlite.c (Fsqlite_execute): Use it.
+ (syms_of_sqlite): Introduce a new error for locked databases so
+ that we can catch that condition on higher levels.
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Work around pixel scrolling issues when org-indent-mode is on
+
+ * lisp/pixel-scroll.el (pixel-point-and-height-at-unseen-line):
+ Subtract line height of window start when it doesn't appear
+ at the 0th pixel of the line.
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Stop using XI focus events on non-GTK builds
+
+ * src/xfns.c (setup_xi_event_mask): Stop setting XI_FocusIn
+ and XI_FocusOut.
+ * src/xterm.c (x_detect_focus_change) <GenericEvent>: Don't
+ handle XI_FocusIn and XI_FocusOut events when not on GTK.
+
+2021-12-12 Eli Zaretskii <eliz@gnu.org>
+
+ * lisp/char-fold.el (char-fold-override): Doc fix.
+
+2021-12-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/char-fold.el (char-fold-override): New defcustom (bug#52394).
+
+ (char-fold--default-override): New defconst with the default value nil.
+ (char-fold--previous): Add char-fold--default-override.
+ (char-fold--make-table): Don't populate the table with default chars
+ when char-fold-override or char-fold--default-override is non-nil.
+ (char-fold-update-table): Add char-fold--default-override.
+
+2021-12-12 Juri Linkov <juri@linkov.net>
+
+ * lisp/startup.el: Let-bind browse-url-browser-function instead of
setq-local
+
+ * lisp/startup.el (fancy-startup-text, fancy-about-text)
+ (fancy-splash-head, normal-about-screen): Let-bind
browse-url-browser-function
+ to eww-browse-url around functions that use browse-url.
+ (fancy-startup-screen, fancy-about-screen): Don't set buffer-local
+ browse-url-browser-function.
+ https://lists.gnu.org/archive/html/emacs-devel/2021-12/msg00939.html
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Fix overline display when there is a box on PGTK
+
+ * src/pgtkterm.c (pgtk_draw_glyph_string): Draw box before any
+ text decorations.
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Fix overline display over stretch glyphs with box on NS
+
+ * src/nsterm.m (ns_dumpglyphs_stretch): Don't draw text
+ decorations when there is a box.
+ (ns_draw_glyph_string): Draw text decorations after the box
+ in stretch glyph that have one.
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Fix overline display when there is a box
+
+ * src/w32term.c (w32_draw_glyph_string):
+ * src/xterm.c (x_draw_glyph_string): Draw box before any text
+ decorations.
+
+2021-12-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Really fix the etags TEX parsing
+
+ * lib-src/etags.c (TEX_decode_env): Re-fix off-by-one parsing of
+ TEXTAGS environment variable (bug#52438).
+
+2021-12-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix an off-by-one error in TEX parsing in etags
+
+ * lib-src/etags.c (TEX_decode_env): Fix off-by-one parsing of
+ TEXTAGS environment variable (bug#52438). Based on a patch by
+ David Fussner <dfussner@googlemail.com> and amended by Andreas
+ Schwab <schwab@linux-m68k.org>.
+
+2021-12-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check for support in sqlite-mode-open-file
+
+ * lisp/sqlite-mode.el (sqlite-mode-open-file): Error out earlier
+ when we don't have sqlite support.
+
+2021-12-12 Stefan Kangas <stefan@marxist.se>
+
+ eshell: Prefer octal number for file modes
+
+ * lisp/eshell/esh-util.el (eshell-private-file-modes)
+ (eshell-private-directory-modes): Prefer octal number for file modes.
+
+2021-12-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make with-sqlite-transaction mode code efficient
+
+ * lisp/sqlite.el (with-sqlite-transaction): Rewrite to only
+ include BODY once.
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ * src/xterm.c (x_detect_focus_change): Fix XI2 focus on GTK builds.
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Fix last change
+
+ * src/xterm.c (x_detect_focus_change): Test against
+ FOCUS_EXPLICIT.
+
+2021-12-12 dick r. chiang <dick.r.chiang@gmail.com>
+
+ Fix some compilation warnings in sqlite-less builds
+
+ * test/src/sqlite-tests.el:
+ * lisp/sqlite-mode.el: Avoid compilation warnings in builds
+ without libsqlite (bug#52440).
+
+2021-12-12 Po Lu <luangruo@yahoo.com>
+
+ Fix frame focus on X Toolkit builds with XInput 2
+
+ * src/xterm.c (x_detect_focus_change): Allow focus_state to not
+ be FOCUS_EXPLICIT when handling FocusIn and FocusOut events.
+
+2021-12-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update bovine/gcc-tests for newer Macos versions
+
+ * test/lisp/cedet/semantic/bovine/gcc-tests.el
+ (semantic-gcc-test-output-parser-this-machine): Update gcc->llvm
+ detection to Macos Monterey.
+
+2021-12-12 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 8a0734329a Avoid undefined behavior in 'send-process-region' (Bug#523...
+ 30dd5c9acc Update to Org 9.5.1-25-g9ca3bc
+ a374849926 Fix the DJGPP port
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak erroring in sqlite-mode-delete
+
+ * lisp/sqlite-mode.el (sqlite-mode-delete): Use user-error instead
+ of error for user-level stuff.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make sqlite-mode-list-tables work on older sqlite versions
+
+ * lisp/sqlite-mode.el (sqlite-mode-list-tables): Use sqlite_master
+ instead of sqlite_schema, since the former name is the historical
+ name and is available in all sqlite3 versions:
+ https://sqlite.org/schematab.html
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Fix coding style
+
+ * src/pgtkmenu.c (popup_widget_loop):
+ (popup_deactivate_callback):
+ (show_help_event):
+ (menu_highlight_callback):
+ (menubar_selection_callback):
+ (popup_selection_callback):
+ (dialog_selection_callback):
+ (create_and_show_dialog): Fix coding style.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Prevent hangs when displaying a context menu on pgtk
+
+ * src/pgtkmenu.c (pgtk_menu_wait_for_event, popup_widget_loop):
+ Remove unnecessary workarounds.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Clear precision scroll interpolation when direction changes
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-interpolate):
+ Clear scroll interpolation when direction changes.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Fix drawing overlines on top of stretch glyphs when there is a box
+
+ * src/haikuterm.c (haiku_draw_string_box): Also draw text
+ decorations if the clipping is to be set.
+ (haiku_draw_glyph_string): Only draw text decorations if
+ the box will not be drawn with clipping.
+
+2021-12-11 Mattias Engdegård <mattiase@acm.org>
+
+ Constant-propagate access to captured variables
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize--substitutable-p):
+ Treat (internal-get-closed-var N) as constants for propagation
+ purposes, because that is effectively what such forms will be compiled
+ to. This allows for the elimination of some lexical variables.
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
+ Add test case.
+
+2021-12-11 Mattias Engdegård <mattiase@acm.org>
+
+ Reimplement gnus-thread-header in Lisp
+
+ * lisp/gnus/gnus-sum.el (gnus-thread-header):
+ Replace lovingly hand-crafted assembler code with plain Lisp.
+ With lexical binding the difference is unlikely to be detectable.
+
+2021-12-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix hang when deleting a pipe process
+
+ * src/w32.h (FILE_DONT_CLOSE): New flag.
+ * src/w32.c (sys_close): Don't close descriptors used to read from
+ the pipe process. Leave the FILE_DONT_CLOSE flag set in the
+ descriptor's info.
+ (register_aux_fd): Set the FILE_DONT_CLOSE flag in the
+ descriptor's info.
+ * src/w32proc.c (reader_thread): When exiting normally, close the
+ file descriptor used to read from a pipe process. (Bug#52414)
+
+2021-12-11 Yuuki Harano <masm+github@masm11.me>
+
+ Implement pgtk_frame_raise_lower
+
+ * src/pgtkterm.c (pgtk_raise_frame): New function.
+ (pgtk_lower_frame): New function.
+ (pgtk_frame_raise_lower): New function to call one of those.
+ (pgtk_create_terminal): Set frame_raise_lower_hook.
+
+2021-12-11 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of sqlite3 support
+
+ * lisp/sqlite-mode.el (sqlite-mode-list-data):
+ * configure.ac (HAVE_SQLITE3): Fix typos.
+
+ * doc/lispref/text.texi (Database): Improve and clarify wording,
+ add index entries, mention all the function arguments.
+
+ * etc/NEWS: Minor wording changes of the sqlite entries.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Coding style fixes
+
+ * src/pgtkterm.c (button_event): Fix coding style.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Fix tooltips in PGTK child frames
+
+ * src/gtkutil.c (xg_show_tooltip, xg_hide_tooltip): Make
+ safe for child frames.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Use window height to determine wheel event pixel deltas on XInput 2
+
+ * src/xterm.c (handle_one_xevent): Use window height instead of
+ frame height to determine the height of a scroll unit.
+
+2021-12-11 Po Lu <luangruo@yahoo.com>
+
+ Prevent hang when exiting Emacs on Haiku
+
+ * src/haiku_support.cc (be_app_quit): Don't wait for app
+ thread to also quit.
+
+2021-12-11 Eli Zaretskii <eliz@gnu.org>
+
+ * src/sqlite.c (row_to_value): Call 'make_unibyte_string'.
+
+2021-12-11 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Pacify unused variable warning in xterm.c
+
+ * src/xterm.c (handle_one_xevent) <GenericEvent> [HAVE_XINPUT2]: The
+ variable any_stop_p is used only when HAVE_XWIDGETS, so guard its
+ declaration accordingly to pacify GCC's -Wunused-variable warning.
+
+2021-12-11 Eli Zaretskii <eliz@gnu.org>
+
+ Minor cleanups in sqlite.c
+
+ * src/sqlite.c (Fsqlite_open): Signal an error if
+ 'init_sqlite_functions' fails. Encode FILE using UTF-8.
+ (Fsqlite_close, Fsqlite_execute, Fsqlite_select)
+ (Fsqlite_load_extension): Doc fixes.
+ (Fsqlite_load_extension): Encode MODULE using UTF-8.
+
+2021-12-11 Eli Zaretskii <eliz@gnu.org>
+
+ Minor cleanups of sqlite3 code on MS-Windows
+
+ * src/sqlite.c (sqlite_loaded_p): Function deleted: not used
+ anymore.
+ (init_sqlite_functions) [WINDOWSNT]: Use a static 'bool' variable
+ to indicate if sqlite3 DLL was successfully loaded.
+ (Fsqlite_available_p) [WINDOWSNT]: Just call
+ 'init_sqlite_functions' if Vlibrary_cache doesn't mention
+ 'sqlite3'.
+
+2021-12-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix a typo in sqlite.c
+
+ * src/sqlite.c (Fsqlite_select): Fix a typo in arguments to
+ make_sqlite.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add confirmation to sqlite-mode-delete
+
+ * lisp/sqlite-mode.el (sqlite-mode-delete): Add confirmation.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't leave open cursors when listing sqlite data
+
+ * lisp/sqlite-mode.el (sqlite-mode-list-data)
+ (sqlite--mode--list-data): Don't leave open cursor (because they
+ block other processes from deleting stuff).
+ (sqlite-mode-delete): Adjust to new layout.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add FIXME comment
+
+ * lisp/sqlite-mode.el (sqlite-mode-delete): New command.
+ (sqlite--mode--list-data, sqlite-mode-list-data): Adjust to new
+ command.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add an sqlite-mode-delete command
+
+ * lisp/sqlite-mode.el (sqlite-mode-delete): New command.
+ (sqlite--mode--list-data, sqlite-mode-list-data): Adjust to new
+ command.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix Fsqlite_finalize book-keeping
+
+ * src/sqlite.c (Fsqlite_finalize): Mark the object as dead.
+
+2021-12-11 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5708da48d1 Revert "Make `M-x run-python' select the window again"
+ aa2872a127 Make `M-x run-python' select the window again
+ c8e19b3a84 Don't bug out on certain empty elements with ids
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve sqlite-mode--tablify tables
+
+ * lisp/sqlite-mode.el (sqlite-mode--tablify): Tweak column widths
+ and sanitize newlines.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check whether the sqlite supports sqlite3_load_extension
+
+ * configure.ac: Check for sqlite3_load_extension, which is
+ apparently missing in some versions.
+ * src/sqlite.c: Add guards.
+ (Fsqlite_load_extension): Ifdef out on systems that doesn't have it.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix sqlite-mode.el build problems
+
+ * lisp/sqlite-mode.el (sqlite-mode-list-tables): Fix function
+ rename usage.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some sqlite doc string typos
+
+ * src/sqlite.c (Fsqlite_load_extension, Fsqlite_more_p): Fix typos
+ in doc strings.
+
+2021-12-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new mode for examining sqlite files
+
+ * lisp/sqlite-mode.el: New file.
+
+2021-12-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix comment in heading
+
+ Add NEWS entry for sqlite
+
+2021-12-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add sqlite3 support to Emacs
+
+ * configure.ac: Add check for the sqlite library.
+ * doc/lispref/text.texi (Database): Document it.
+
+ * lisp/sqlite.el: New file.
+
+ * lisp/term/w32-win.el (dynamic-library-alist): Add a mapping.
+
+ * src/Makefile.in (SQLITE3_LIBS): Add the libraries.
+
+ * src/alloc.c (union emacs_align_type): Add a Lisp_Sqlite struct.
+
+ * src/data.c (Ftype_of): Add sqlite.
+
+ * src/emacs.c (main): Load the syms.
+
+ * src/lisp.h (DEFINE_GDB_SYMBOL_BEGIN): Add PVEC_SQLITE.
+ (GCALIGNED_STRUCT): New struct to keep data for sqlite database
+ objects and statement objects.
+ (SQLITEP, SQLITE, CHECK_SQLITE, XSQLITE): New macros for accessing
+ the objects.
+
+ * src/pdumper.c (dump_vectorlike): Update hash.
+ (dump_vectorlike): Don't dump it.
+
+ * src/print.c (print_vectorlike): Add a printer for the sqlite
+ object.
+
+ * src/sqlite.c: New file.
+
+ * test/src/sqlite-tests.el: Add tests.
+
+2021-12-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bibtex-biblatex-entry-alist sorting when using latex
+
+ * lisp/textmodes/bibtex.el (bibtex-biblatex-entry-alist): Sort
+ PhdThesis and TechReport correctly when using the latex variant
+ (bug#52354).
+
+2021-12-10 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-10 Stefan Kangas <stefan@marxist.se>
+
+ * etc/TODO: Entry about converting to defvar-keymap.
+
+2021-12-10 Stefan Kangas <stefan@marxist.se>
+
+ Use defvar-keymap for package-menu-mode-map
+
+ * lisp/emacs-lisp/package.el (package-menu-mode-map): Use
+ defvar-keymap.
+
+2021-12-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make keymap-lookup work for keymap results, too
+
+ * lisp/keymap.el (keymap-lookup): Make this function work for
+ non-symbol lookups, too (bug#52374).
+
+2021-12-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dired-buffers-for-dir expand the DIR argument
+
+ * lisp/dired.el (dired-buffers-for-dir): Expand DIR argument
+ (bug#52395).
+ (dired-find-buffer-nocreate, dired-clean-up-after-deletion):
+ Adjust callers.
+
+2021-12-10 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-10 Po Lu <luangruo@yahoo.com>
+
+ Further reduce image-related stutter during precision scrolling
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Disable
+ `scroll-preserve-screen-position' and `auto-window-vscroll'
+ while scrolling.
+
+2021-12-10 Po Lu <luangruo@yahoo.com>
+
+ Stop setting `make-cursor-line-fully-visible' in precision scrolling
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode): Stop
+ setting `make-cursor-line-fully-visible'.
+
+2021-12-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 7a25ba0fde ; * lisp/image-dired.el: Fix typo.
+ dda6337066 emacsclient takes more care about XDG_RUNTIME_DIR
+ 26fb4168b8 ; Prefer HTTPS in more URLs
+ 6b89578524 ; * lisp/progmodes/flymake.el: Update the minimum Emacs ve...
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Fix bob detection when pixel scrolling upwards
+
+ * lisp/pixel-scroll.el (pixel-point-and-height-at-unseen-line):
+ Don't go to the beginning-of-visual-line if bobp.
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Fix pixel scrolling upwards in Info buffers
+
+ * lisp/pixel-scroll.el (pixel-point-and-height-at-unseen-line):
+ Don't blindly trust window start to be the beginning of a
+ visual line.
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Remove unused let-bindings from pixel-scroll.el
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Remove unused
+ bindings.
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Fix precision scrolling for stretch glyphs
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Simplify logic.
+ (pixel-scroll-precision-interpolate): Block throw-on-input
+ when actually scrolling.
+
+2021-12-09 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/time.el (world-clock-mode-map): Convert to defvar-keymap.
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-09 Eli Zaretskii <eliz@gnu.org>
+
+ Fix logic in 'compute_window_start_on_continuation_line'
+
+ * src/xdisp.c (compute_window_start_on_continuation_line): Fix a
+ thinko in logic. Patch by dickmao <dick.r.chiang@gmail.com>.
+ (Bug#52378)
+
+2021-12-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix thinko in Tramp test
+
+ * test/lisp/net/tramp-tests.el (tramp-test07-abbreviate-file-name):
+ Fix thinko.
+
+2021-12-09 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve lock-pid handling in Tramp
+
+ * lisp/net/tramp-cache.el: Remove comment.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
+ * lisp/net/tramp-rclone.el (tramp-rclone-maybe-open-connection):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-maybe-open-connection):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-maybe-open-connection):
+ Do not set "lock-pid" connection-property.
+ (tramp-sudoedit-handle-delete-file): Use "rm -f".
+
+ * lisp/net/tramp.el (tramp-test-message): Extend for buffers w/o
+ remote default-directory.
+ (tramp-lock-pid): New defvar.
+ (tramp-get-lock-pid): Reimplement.
+
+2021-12-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1821844357 Add missing K key documentation for Cangjie input methods
+ be860c1385 Fix manual entry of 'quit-restore-window' (Bug#52328)
+ 35a96139df Clarify a comment in xdisp.c
+ 6ba2f028cf Revert "Grep alias `all' shall not match parent directory"
+ eb9e33e238 ; * etc/NEWS: Non-nil repeat-keep-prefix is not the defaul...
+ 538fc1d0e0 Fix mode-line display in Calendar mode
+
+ # Conflicts:
+ # etc/NEWS
+ # lisp/help.el
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Make precision scrolling up work over display strings
+
+ * lisp/pixel-scroll.el
+ (pixel-point-and-height-at-unseen-line): Use
+ `window-text-pixel-size'.
+ (pixel-scroll-precision-scroll-up-page): Use delta as vscroll
+ directly.
+
+2021-12-09 Po Lu <luangruo@yahoo.com>
+
+ Fix pixel scrolling over lines with different sized glyphs
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Calculate desired
+ vscroll with `window-text-pixel-size'.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Fix jumping cursor during interpolated scrolls
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Go to next position
+ before setting start or vscroll.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Allow customizing step between each interpolated scroll
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-interpolate):
+ Use new option.
+ (pixel-scroll-precision-interpolation-between-scroll): New user
+ option.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Show image info in header line
+
+ * lisp/image-dired.el
+ (image-dired-update-header-line): New function to show image
+ information in the header line.
+ (image-dired-display-thumb-properties): Make obsolete.
+ (image-dired-track-thumbnail)
+ (image-dired--display-thumb-properties-fun)
+ (image-dired-forward-image, image-dired-next-line)
+ (image-dired-previous-line, image-dired-beginning-of-buffer)
+ (image-dired-end-of-buffer, image-dired-read-comment): Use
+ image-dired-update-header-line instead of
+ image-dired-display-thumb-properties.
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Go to next image when marking
+
+ * lisp/image-dired.el
+ (image-dired-marking-shows-next): New user option to show the next
+ image after marking, unmarking or flagging an image.
+ (image-dired--do-mark-command): New macro.
+ (image-dired-mark-thumb-original-file)
+ (image-dired-unmark-thumb-original-file)
+ (image-dired-flag-thumb-original-file)
+ (image-dired-toggle-mark-thumb-original-file)
+ (image-dired-unmark-all-marks): Use above new macro.
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Remove some TODOs
+
+ To the extent that these TODOs are relevant or useful, it would be
+ better to add such features to image-mode directly.
+ * lisp/image-dired.el: Remove some TODOs.
+
+2021-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * test/lisp/emacs-lisp/subr-x-tests.el (subr-x-named-let): New test
+
+2021-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el: Avoid
`with-suppressed-warnings`
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--progv): Use a proper
+ namespace prefix for the global vars.
+
+2021-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ lisp/mouse.el: Fix some lambdas quoted with ` or '
+
+ Also prefer #' to quote named functions.
+
+ * lisp/mouse.el (minor-mode-menu-from-indicator, context-menu-entry)
+ ([C-down-mouse-3]): Don't abuse lambda lists for functions.
+ (context-menu-mode): Remove redundant `:group`.
+ (mouse-drag-line): Remove unused var `draggable`.
+ (mouse-yank-primary): Make it work for non-mouse events.
+
+2021-12-08 Juri Linkov <juri@linkov.net>
+
+ * lisp/mouse.el (context-menu-entry): Bind to make-sparse-keymap, not
ignore.
+
+ Then where-is-internal does not run context-menu-map from the :filter,
+ and no context menu functions are called by e.g. describe-mode in wrong
buffer
+ (bug#9923)
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ Define some more keymaps in one step
+
+ * lisp/calc/calc-store.el (calc-var-name-map):
+ * lisp/mail/rmailsum.el (rmail-summary-edit-map):
+ * lisp/speedbar.el (speedbar-buffers-key-map): Define in one step.
+ * lisp/progmodes/ebrowse.el (ebrowse-global-submap-4)
+ (ebrowse-global-submap-5): Define in one step and use defvar-keymap.
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ Define calc-help-map in one step
+
+ * lisp/calc/calc-ext.el (calc-help-map): Define in one step and
+ convert to defvar-keymap.
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ Convert shortdoc-mode-map to defvar-keymap
+
+ * lisp/emacs-lisp/shortdoc.el (shortdoc-mode-map): Convert to
+ defvar-keymap.
+
+2021-12-08 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ ce5bca4913 Document native-comp-async-report-warning-errors more
+ 1933cd5307 Doc fix; Epiphany has been renamed to GNOME Web
+ b80d7568e4 * lisp/dired-aux.el (dired-check-process): Doc fix. (Bug#...
+ 0f30227f97 ; * lisp/net/browse-url.el (browse-url-epiphany): Fix typo.
+ d34009db66 Remove dead link from newsticker
+
+ # Conflicts:
+ # lisp/net/browse-url.el
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Fix coarse scroll deltas on macOS
+
+ * src/nsterm.m (- mouseDown): Multiply deltas as appropriate.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Clear scroll interpolation when interpolated scroll completes
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-interpolate): Set
+ saved interpolation to nil upon completion.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Improve precision scroll interpolation
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-interpolation-total-time)
+ (pixel-scroll-precision-interpolation-factor): Add better
+ default values.
+
+ (pixel-scroll-precision-interpolate): Save deltas and run loop
+ inside `while-no-input' instead.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Fix last change
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-interpolation-total-time)
+ (pixel-scroll-precision-interpolation-factor): Fix declared versions.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Make interpolated scrolling work better
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-interpolate):
+ Stop using `while-no-input'.
+
+2021-12-08 Po Lu <luangruo@yahoo.com>
+
+ Allow customizing precision scroll interpolation
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-interpolation-total-time)
+ (pixel-scroll-precision-interpolation-factor): New user
+ options.
+ (pixel-scroll-precision-interpolate): Use these new options.
+
+ (pixel-scroll-precision-mode): Set
+ `make-cursor-line-fully-visible' to nil.
+
+2021-12-07 Po Lu <luangruo@yahoo.com>
+
+ Send scroll stop events to xwidgets correctly
+
+ * src/xterm.c (handle_one_xevent): Record stop events manually.
+
+ * src/xwidget.h (xwidget_scroll):
+ * src/xwidget.c (xwidget_scroll): New parameter `stop_p'.
+
+2021-12-07 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ Convert etc-authors-mode-map to defvar-keymap
+
+ * lisp/textmodes/etc-authors-mode.el (etc-authors-mode-map):
+ Convert to defvar-keymap.
+
+2021-12-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Pacify svg_load_image compiler warning
+
+ * src/image.c (svg_load_image): Fix compiler warning from gcc
+ (Debian 11.2.0-10).
+
+2021-12-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Check decoding results in webp_load before using it
+
+ * src/image.c (webp_load): Check whether we were able to decode
+ the image before using it.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Navigate from image display buffer
+
+ * lisp/image-dired.el
+ (image-dired-mark-thumb-original-file)
+ (image-dired-unmark-thumb-original-file)
+ (image-dired-flag-thumb-original-file)
+ (image-dired-toggle-mark-thumb-original-file)
+ (image-dired-unmark-all-marks)
+ (image-dired-display-next-thumbnail-original)
+ (image-dired-display-previous-thumbnail-original): Make commands
+ usable from image-dired-display-image-mode.
+ (image-dired-display-image-mode-map): Bind above commands.
+ (image-dired--with-thumbnail-buffer): New macro.
+
+2021-12-07 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Improve yanking in the middle of comint process output
+
+ * lisp/comint.el
+ (comint--unmark-string-as-output): New function to remove unwanted
+ properties from text yanked from comint buffers.
+
+ (comint-mode): Use it as a 'filter-buffer-substring-function'.
+
+ (comint-output-filter): Set 'insert-in-front-hooks' text property on
+ process output such that text yanked by the user in the middle of
+ process output is marked as process output (Bug#3735).
+
+ (comint--mark-as-output): New function.
+ (comint--mark-yanked-as-output): New function.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ browse-url: Refactor code to find executable
+
+ * lisp/net/browse-url.el (browse-url--find-executable): Extract from...
+ (browse-url-firefox-program, browse-url-chrome-program)
+ (browse-url-chromium-program): ...here.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ browse-url: Remove support for Galeon
+
+ * lisp/net/browse-url.el (browse-url-galeon-program)
+ (browse-url-galeon-arguments)
+ (browse-url-galeon-startup-arguments)
+ (browse-url-galeon-new-window-is-tab, browse-url-galeon)
+ (browse-url-galeon-sentinel): Delete, thus removing support for the long
+ defunct Galeon web browser.
+ * etc/NEWS: Announce its removal.
+
+2021-12-07 Eli Zaretskii <eliz@gnu.org>
+
+ * etc/tutorials/TUTORIAL.he: Add section about package management.
+
+2021-12-07 Eli Zaretskii <eliz@gnu.org>
+
+ Improve before-make-frame-hook and after-make-frame-functions docs.
+
+ * lisp/frame.el (before-make-frame-hook)
+ (after-make-frame-functions):
+ * doc/lispref/frames.texi (Creating Frames): Mention that these
+ functions will be run for the initial frame only if added to the
+ hook in early-init file. (Bug#38143)
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ browse-url: Remove support for Netscape
+
+ * lisp/net/browse-url.el (browse-url-netscape-program)
+ (browse-url-netscape-arguments)
+ (browse-url-netscape-startup-arguments)
+ (browse-url-netscape-new-window-is-tab)
+ (browse-url-netscape-version, browse-url-netscape)
+ (browse-url-netscape-sentinel, browse-url-netscape-reload)
+ (browse-url-netscape-send): Delete, thus removing support for the long
+ defunct Netscape web browser.
+ * etc/NEWS: Announce its removal.
+
+2021-12-07 Glenn Morris <rgm@gnu.org>
+
+ * doc/misc/eshell.texi (Built-ins): Fix xref.
+
+2021-12-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Make a more robust check in Tramp using scripts
+
+ * lisp/net/tramp-sh.el (tramp-find-inline-encoding):
+ Check, whether scripts in `tramp-remote-coding-commands' are
+ expandable.
+
+2021-12-07 Lele Gaifax <lele@metapensiero.it>
+
+ Add the new packages section to the Italian tutorial
+
+ * etc/tutorials/TUTORIAL.it (INSTALLAZIONE DI ULTERIORI PACCHETTI):
+ Translate from recently added INSTALLING PACKAGES section in the English
+ version. (Bug#52345)
+ (CONCLUSIONI): Reword paragraph, to better convey the original intent.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ Remove some unnecessary references to Emacs 22
+
+ * lisp/cedet/semantic/fw.el:
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer):
+ * lisp/emulation/viper-util.el (viper-frame-value):
+ * lisp/mail/rmail.el (rmail-delete-headers):
+ * lisp/mh-e/mh-e.el (mh-inc-spool-list): Remove some unnecessary
+ references to Emacs 22.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ * etc/tutorials/TUTORIAL: Say that there is usually a delete key.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Fix behavior of slideshow command
+
+ * lisp/image-dired.el (image-dired-slideshow-start): Fix behavior
+ to match documentation. Minor simplification of docstring.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ Remove obsolete values from image-mode-auto-resize
+
+ * lisp/image-mode.el (image-auto-resize): Remove obsolete options
+ fit-height and fit-width.
+ (image-transform-resize): Document that fit-height and fit-width
+ are obsolete.
+
+ (image-auto-resize-max-scale-percent): Fix defcustom const :tag.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/view.el (view-mode-map): Convert to defvar-keymap.
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ Remove XEmacs compat code from strokes.el
+
+ * lisp/strokes.el (strokes-mode): Remove XEmacs compat code;
+ select-frame-hook does not exist in Emacs.
+
+2021-12-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add vc-git-stash-pop to vc-dir-git-mode
+
+ * lisp/vc/vc-git.el (vc-dir-git-mode-map): Add vc-git-stash-pop
+ (bug#52158).
+
+2021-12-07 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ da23e607d3 Select the right buffer for event in context-menu function...
+
+2021-12-07 Po Lu <luangruo@yahoo.com>
+
+ Cancel xwidget progress timer when buffer is killed
+
+ * lisp/xwidget.el (xwidget-webkit-buffer-kill): New function.
+ (xwidget-webkit-mode): Add `xwidget-webkit-buffer-kill' to
+ `kill-buffer-hook'. (bug#52344)
+
+2021-12-06 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-06 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ When registering Gnus message ids, guard against no registry
+
+ * lisp/gnus/gnus-registry.el (gnus-registry-register-message-ids):
+ There are situations where this code is called without a full Gnus
+ startup (eg, debbugs). If the registry doesn't exist, just skip this
+ process.
+
+2021-12-06 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in two tests
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el:
+ * test/lisp/mail/mail-utils-tests.el
+ (mail-utils-tests-mail-rfc822-time-zone): Silence byte-compiler.
+
+2021-12-06 Stefan Kangas <stefan@marxist.se>
+
+ Remove spurious space in byte-compiler warning
+
+ * lisp/emacs-lisp/bytecomp.el
+ (byte-compile-docstring-length-warn): Remove spurious space in
+ byte-compiler warning.
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ ("warn-wide-docstring-defun.el"): Update test.
+
+2021-12-06 Stefan Kangas <stefan@marxist.se>
+
+ Assume unfilled byte-compiler warnings in tests
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (bytecomp--define-warning-file-test): Remove workaround for filled
+ byte-compilation warnings. See Bug#52281.
+
+2021-12-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous shr-parse-style change
+
+ * lisp/net/shr.el (shr-parse-style): Fix previous clean-up here
+ (which wasn't well thought through).
+
+2021-12-06 Tassilo Horn <tsdh@gnu.org>
+
+ dired.texi: Document dired-create-destination-dirs-on-trailing-dirsep
+
+ * doc/emacs/dired.texi (Operating on Files): Document new option
+ dired-create-destination-dirs-on-trailing-dirsep.
+
+2021-12-06 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Avoid small parasitic button on mode line"
+
+ This reverts commit c9e901f4a612646be4ce06e1619897edfb073bf0.
+
+ Turns out without that "ghost" button min-width doesn't work
+ on the mode line at all...
+
+2021-12-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Tramp code cleanup
+
+ * lisp/net/tramp.el (tramp-get-default-directory)
+ (tramp-get-buffer-string): New defsubsts.
+ (tramp-message, tramp-error-with-buffer)
+ (tramp-file-name-for-operation, tramp-command-completion-p)
+ (tramp-action-login, tramp-action-yesno, tramp-action-yn)
+ (tramp-action-terminal, tramp-action-confirm-message)
+ (tramp-wait-for-regexp, tramp-call-process)
+ (tramp-call-process-region, tramp-read-passwd):
+ * lisp/net/tramp-cmds.el (tramp-list-remote-buffers)
+ (tramp-reporter-dump-variable):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-monitor-process-filter):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory)
+ (tramp-sh-handle-process-file, tramp-sh-handle-write-region)
+ (tramp-sh-gio-monitor-process-filter):
+ * lisp/net/tramp-smb.el (tramp-smb-action-set-acl):
+ * lisp/net/tramp-sudoedit.el
+ (tramp-sudoedit-handle-file-name-all-completions):
+ * test/lisp/net/tramp-tests.el (tramp--test-instrument-test-case)
+ (tramp-test32-shell-command): Use them.
+
+2021-12-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix mode-line display on TTY frames
+
+ * lisp/bindings.el (mode-line-frame-control): Remove the leading
+ '-' before '%F' on TTY frames. It has no real purpose, and looks
+ ugly nowadays, since it's preceded by a blank, due to the new
+ min-width feature.
+
+2021-12-06 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid small parasitic button on mode line
+
+ * lisp/bindings.el (mode-line-position): Remove stray space
+ character, which caused a "ghost" button on the mode line.
+ (Bug#52332)
+
+2021-12-06 Yuuki Harano <masm+github@masm11.me>
+
+ * src/pgtkterm.c (x_set_parent_frame): Fix coding style
+
+2021-12-06 Yuuki Harano <masm+github@masm11.me>
+
+ Fix SEGV crash by unref css provider too much
+
+ I Got css provider from F, and was going to remove it from style
+ context. But between them, unhighlight was called when
+ gtk_container_remove was called, and the css provider was already
+ freed, so I can't use the css provider to remove it from style
+ context.
+
+ As a fix, I call gtk_container_remove after remove it.
+ Also, I free a css provider set by unhighlight.
+
+ * src/pgtkterm.c (x_set_parent_frame):
+
+2021-12-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ Merge remote-tracking branch 'origin/emacs-28' into trunk
+
+2021-12-06 Stefan Kangas <stefan@marxist.se>
+
+ * etc/tutorials/TUTORIAL.sv: Adjust to latest change in TUTORIAL.
+
+2021-12-06 Daniel Fleischer <danflscr@gmail.com>
+
+ Add package management to tutorial and startup screen
+
+ * etc/tutorials/TUTORIAL: Add section about package installation.
+ * lisp/startup.el (fancy-startup-tail): Add button for
+ package-list-packages.
+
+ This was discussed in:
+ https://lists.gnu.org/r/emacs-devel/2021-12/msg00079.html
+
+2021-12-06 Stefan Kangas <stefan@marxist.se>
+
+ image.c: Remove some dead code
+
+ * src/image.c (gui_put_x_image): Remove dead code, commented out since
+ 2004.
+
+2021-12-06 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Update org-compat doc string
+
+ * lisp/org/org-compat.el (file-attribute-modification-time):
+ Update doc string to match that of builtin Emacs.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix minor clock skew issues
+
+ * lisp/midnight.el (clean-buffer-list):
+ * lisp/progmodes/vhdl-mode.el (vhdl-template-replace-header-keywords):
+ * lisp/net/rcirc.el (rcirc-connect):
+ Don’t assume that getting the current time twice in rapid
+ succession will yield the same date and time.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Avoid timestamp info loss in mh-alias-tstamp
+
+ * lisp/mh-e/mh-alias.el (mh-alias-tstamp):
+ Don’t lose subsecond info when setting mh-alias-tstamp.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify by using format-time-string
+
+ * lisp/mail/sendmail.el (mail-do-fcc):
+ * lisp/net/tramp.el (tramp-debug-message):
+ Prefer format-time-string to doing time formatting by hand.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify RFC 5322 time zone generation
+
+ * lisp/mail/feedmail.el (feedmail-rfc822-time-zone)
+ (feedmail-rfc822-date, feedmail-default-message-id-generator):
+ * lisp/mail/mail-utils.el (mail-rfc822-time-zone, mail-rfc822-date):
+ * lisp/timezone.el (timezone-make-arpa-date):
+ Simplify by using format-time-string with %z.
+
+ * lisp/mail/feedmail.el (feedmail-rfc822-time-zone):
+ * lisp/mail/mail-utils.el (mail-rfc822-time-zone):
+ Mark these should-have-been-internal functions obsolete.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix image load timekeeping bug
+
+ * lisp/image.el (image-animate-timeout): Fix bug that caused the
+ local variable time-to-load-image to be practically zero, instead
+ of the time it actually took to load the image. I think
+ this bug was introduced in 2013-02-16T03:29:30Z!rgm@gnu.org.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use time-convert in with-decoded-time-value
+
+ * lisp/calendar/time-date.el (with-decoded-time-value):
+ Prefer time-convert to current-time on the off chance that code
+ will use this obsolete macro even after current-time returns pairs.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify message-make-expires
+
+ * lisp/gnus/message.el (message-make-expires):
+ Use time-add instead of doing it by hand. This also calculates the
+ expiration time more accurately than the old code did.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify message-unique-id etc.
+
+ * lisp/gnus/message.el (message-unique-id):
+ * lisp/net/sasl.el (sasl-unique-id-function):
+ Avoid unnecessary consing and reliance on internal timestamp
+ format by using (time-convert nil 'integer) which typically does
+ no consing, instead of using (current-time) and then ignoring
+ the subsecond parts of the generated list.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer nil to (current-time) when either will do
+
+ * lisp/emacs-lisp/timer.el (timer-event-handler, run-at-time):
+ * lisp/gnus/gnus-score.el (gnus-score-date):
+ * lisp/gnus/gnus-search.el (gnus-search-query-parse-date)
+ (gnus-search-imap-handle-date):
+ * lisp/gnus/gnus-sum.el (gnus-user-date)
+ (gnus-summary-create-article):
+ * lisp/image-dired.el (image-dired-create-thumb-1):
+ * lisp/image/gravatar.el (gravatar-retrieve)
+ (gravatar--prune-cache):
+ * lisp/net/dbus.el (dbus-monitor-handler):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-set-file-times):
+ * lisp/net/tramp-sh.el (tramp-sh-handle-set-file-times):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-set-file-times):
+ * test/lisp/autorevert-tests.el (auto-revert--wait-for-revert)
+ (auto-revert-tests--write-file, auto-revert-test--wait-for):
+ * test/lisp/net/tramp-tests.el (tramp--test-print-duration):
+ Prefer nil to (current-time) when either will do, as this avoids
+ some consing. Similarly, prefer omitting (current-time) arg
+ when this is equivalent.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify cedet-utest-elapsed-time
+
+ * test/manual/cedet/cedet-utests.el (cedet-utest-elapsed-time):
+ Copy newer (circa-2011) implementation from elp.el, so that the
+ code matches its documentation again.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Use time-equal-p to compare timestamps in tests
+
+ * test/lisp/calendar/time-date-tests.el (test-days-to-time)
+ (test-time-since): Use time-equal-p to compare timestamps,
+ since the default form shouldn’t matter.
+
+2021-12-06 Paul Eggert <eggert@cs.ucla.edu>
+
+ Add time-convert tests
+
+ * test/src/timefns-tests.el (time-convert-forms): New test.
+
+2021-12-06 NightMachinary <rudiwillalwaysloveyou@gmail.com>
+
+ Added dired-create-destination-dirs-on-trailing-dirsep
+
+ * lisp/dired-aux.el
+ (dired-create-destination-dirs-on-trailing-dirsep): New customization
+ option.
+ (dired-do-create-files): Use it.
+ (dired-create-destination-dirs): Mention the new option in the
+ docstring.
+
+2021-12-06 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e3427faf55 Fix typos and improve consistency in ERC manual
+ 0bf10d5082 * test/Makefile.in (check-declare): Add missing --batch.
+ 34f5656137 Document the subtleties of the 'cursor' text property
+
+2021-12-06 Po Lu <luangruo@yahoo.com>
+
+ Fix child frame crash on pgtk
+
+ * src/gtkutil.c (xg_check_special_colors): Use `FRAME_WIDGET'
+ on PGTK.
+
+2021-12-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the Git stash commands available in vc-dir Git buffers
+
+ * lisp/vc/vc-dir.el (vc-dir): Call the backend-specific minor mode
+ if it exists.
+ * lisp/vc/vc-git.el (vc-dir-git-mode-map): New map.
+ (vc-dir-git-mode): New minor mode.
+
+2021-12-06 Po Lu <luangruo@yahoo.com>
+
+ Fix coding style
+
+ * src/pgtkfns.c (frame_geometry):
+ * src/pgtkterm.c (x_set_parent_frame):
+ (pgtk_text_icon):
+ (key_release_event):
+ (configure_event):
+ (map_event):
+ (window_state_event):
+ (delete_event):
+ (enter_notify_event): Fix coding style.
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make gnus-check-backend-function mode `debug-on-signal' friendly
+
+ * lisp/gnus/gnus.el (gnus-check-backend-function): Allow running
+ with `debug-on-signal'.
+
+2021-12-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ EIEIO: Remove redundant type info in help
+
+ `C-h o` returned redundant info when used on EIEIO classes, listing
+ the same thing both for the type name and for the constructor name.
+
+ * lisp/emacs-lisp/eieio.el (help-fns-describe-function-functions):
+ Remove special case for defclass constructors.
+ * lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor): Declare it
obsolete.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Use string-match-p in one case
+
+ * lisp/image-dired.el (image-dired-get-thumbnail-image): Use
+ string-match-p.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Don't disable mouse dragging
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode-map): Don't
+ disable mouse dragging. (Bug#52201)
+
+2021-12-05 Po Lu <luangruo@yahoo.com>
+
+ Fix jittering when precision scrolling over images
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-initial-velocity-factor): Default to
+ nil.
+ (pixel-scroll-precision-scroll-down-page): Always set window
+ start.
+
+2021-12-05 Justin Schell <justinmschell@gmail.com> (tiny change)
+
+ vc-git--program-version to support Git for macOS version string
+
+ `git version` on macOS returns e.g., "git version 2.30.1 (Apple
+ Git-130)" and `vc-git--program-version` currently returns "0" instead
+ of "2.30.1".
+
+ * lisp/vc/vc-git.el (vc-git--program-version): Ignore text after
+ the version number when parsing git versions (bug#52172).
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't fill byte-compilation warnings in batch mode
+
+ * lisp/emacs-lisp/warnings.el (display-warning): Don't break up
+ byte-compilation into several lines when in batch mode, because
+ that makes it difficult for some tools to parse them (bug#52281).
+
+2021-12-05 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Audit `string-match' usage in shr.el
+
+ * lisp/net/shr.el (shr-descend):
+ (shr-insert):
+ (shr-expand-url):
+ (shr-image-from-data):
+ (shr-dom-print):
+ (shr-parse-style):
+ (shr-tag-object):
+ (shr-tag-img):
+ (shr-render-td-1): Prefer string-match-p and string-search over
+ string-match where possible.
+
+2021-12-05 dickmao <dick.r.chiang@gmail.com>
+
+ Add workaround to compilation warning in gcc 10.x in image.c
+
+ * src/image.c (webp_load): Work around a (wrong) compiler warning
+ in gcc 10.x (bug#52276).
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update comment about `declare-function'
+
+ * lisp/subr.el (declare-function): Fix comment --
+ `byte-compile-declare-function' doesn't exist.
+
+2021-12-05 YugaEgo <yet@ego.team>
+
+ * lisp/info.el (info-menu-star): Improve documentation
+
+ * lisp/info.el (info-menu-star): Improve the doc string (bug#52315).
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix wording in eieio.texi (Generics)
+
+ * doc/misc/eieio.texi (Generics): Fix wording in paragraph
+ (bug#52317).
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix regression introduced by previous context-menu-map change
+
+ * lisp/mouse.el (context-menu-map): Make the context mode work
+ with flyspell again (bug#52237).
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Clarify Creating Frames documentation"
+
+ This reverts commit 5d7eb2979bc7eec01cff7e7908dbbd3edb38ea0c.
+
+ The new documentation was incorrect.
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Improve before-make-frame-hook and after-make-frame-functions
docs"
+
+ This reverts commit 7842a606b76dfabd1540da1c130728064e8f02ed.
+
+ The new documentation was incorrect.
+
+2021-12-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix fancy-about-screen point placement
+
+ * lisp/startup.el (fancy-about-screen): Make point placement more
+ resilient (bug#43636).
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ Light copy-edits to recent additions to ERC manual
+
+ * doc/misc/erc.texi (Introduction, Getting Started): Light copy-edits.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ Remove no-op calls to decode-char with 'ucs' arg
+
+ * lisp/gnus/mm-util.el (mm-ucs-to-char):
+ * lisp/language/hanja-util.el (hangul-to-hanja-char):
+ * lisp/leim/quail/hangul.el (hangul3-input-method-internal)
+ (hangul390-input-method-internal):
+ * lisp/nxml/rng-cmpct.el (rng-c-process-escapes):
+ * lisp/nxml/xsd-regexp.el (xsdre-compile-single-char)
+ (xsdre-range-list-to-char-alternative):
+ * lisp/xml.el (xml-parse-string, xml--entity-replacement-text)
+ (xml-substitute-special): Remove calls to decode-char where first
+ argument is 'ucs'; that is now a no-op. Discussed in Bug#52263.
+
+ * lisp/nxml/xmltok.el (xmltok-unicode-to-char): Make into obsolete
+ function alias for 'identity'. Update single caller.
+
+2021-12-05 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Use gnus-error to report mail-source failures
+
+ * lisp/gnus/mail-source.el (mail-source-fetch): Instead of querying
+ the user on mail sources errors -- in effect asking "do you want to
+ continue, or halt the process?" -- log the error with `gnus-error',
+ severity 5. The query didn't provide any meaningful control; error
+ reporting is all that's needed.
+ (mail-source-ignore-errors): Obsolete this option; users can see the
+ error or not by configuring `gnus-verbose'.
+ * doc/misc/gnus.texi (Mail Source Customization): Remove mention of
+ the above option from the manual.
+
+2021-12-05 Yuuki Harano <masm+github@masm11.me>
+
+ * src/frame.c (gui_set_border_width): Revert confused changes
+
+2021-12-05 Eli Zaretskii <eliz@gnu.org>
+
+ Fix out-of-bounds access in xdisp.c
+
+ * src/xdisp.c (produce_stretch_glyph): Avoid indexing it->stack
+ with a negative index. Reported by Po Lu <luangruo@yahoo.com>.
+
+2021-12-05 Po Lu <luangruo@yahoo.com>
+
+ Interpolate large pixel scrolls
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-large-scroll-height): New user option.
+ (pixel-scroll-precision-interpolate): New function.
+ (pixel-scroll-precision): Interpolate scrolls under some
+ circumstances.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in generator-tests.el
+
+ * test/lisp/emacs-lisp/generator-tests.el (cps-let*-shadow-empty)
+ (cps-let-shadow-empty, cps-let*-parallel): Silence byte-compiler.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ Silence warnings about testing obsolete functions and macros
+
+ * test/lisp/emacs-lisp/cl-generic-tests.el:
+ * test/lisp/emacs-lisp/edebug-tests.el:
+ * test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el:
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: Silence
+ byte-compiler warnings about testing obsolete functions and macros.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ Remove hacks for broken `with-suppressed-warnings'
+
+ * test/lisp/obsolete/cl-tests.el (labels-function-quoting):
+ * test/lisp/tar-mode-tests.el (tar-mode-test-tar-grind-file-mode):
+ Remove hack for broken `with-suppressed-warnings'.
+
+2021-12-05 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c086358574 Update to Org 9.5.1-15-gdb4805
+ fef3e60061 * lisp/emacs-lisp/edebug.el (edebug-eval-defun): Minor doc...
+ a1e30e4106 ; Fix most remaining AUTHORS warnings
+ f3e6a432c5 ; * doc/misc/efaq.texi (New in Emacs 28): Add more news.
+ 00236cc802 Fix the enumeration values returned by 'try_scrolling'
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove hack from seq-tests.el for broken `with-suppressed-warnings'
+
+ * test/lisp/emacs-lisp/seq-tests.el: `with-suppressed-warnings'
+ now works better in erf-deftests, so remove hack that works around
+ it (bug#36568).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve before-make-frame-hook and after-make-frame-functions docs
+
+ * lisp/frame.el (before-make-frame-hook):
+ (after-make-frame-functions): Note when the functions are run.
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify Creating Frames documentation
+
+ * doc/lispref/frames.texi (Creating Frames): Remove misleading
+ explanation -- even if the hooks are set, they won't be run
+ (bug#38143).
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Fix tty mouse wheel on window systems other than X
+
+ * lisp/mwheel.el (mouse-wheel-down-alternate-event)
+ (mouse-wheel-up-alternate-event)
+ (mouse-wheel-left-alternate-event)
+ (mouse-wheel-right-alternate-event): Set appropriately for
+ non-X systems.
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make help--describe-command more robust
+
+ * lisp/help.el (help--describe-command): `help-function' buttons
+ are defined in help-mode.el, so it might not exist yet when
+ calling `documentation' directly (bug#52291).
+
+2021-12-04 Christer Enfors <christer.enfors@gmail.com> (tiny change)
+
+ Add IRC introduction to the ERC manual
+
+ * doc/misc/erc.texi (Getting Started): Mention libera.char (bug#52287).
+ (Introduction): Explain what IRC is.
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Make pixel scrolling through images less jumpy
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page): Improve detection of
+ situations where vscroll must directly be set.
+
+2021-12-04 Earl Hyatt <okamsn@protonmail.com>
+
+ Update the Info documentation of Eshell's built-in commands
+
+ * doc/misc/eshell.texi (Built-in commands): Add the remaining
+ built-in Eshell commands to the list of built-ins. Expand some of
+ the descriptions and mention user options affecting command
+ behavior. Sort these commands in alphabetical order (bug#52289).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make package-dir-info more resilient
+
+ * lisp/emacs-lisp/package.el (package-dir-info): Check that the
+ file exists before using it (bug#41489).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak fancy-about-text
+
+ * lisp/startup.el (fancy-about-text): Mention that Emacs is an
+ editor, because people don't know that (bug#43636).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fill Emacs version on about screen
+
+ * lisp/startup.el (fancy-about-text): Fill the Emacs version,
+ since it's too long these days.
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further gnus-inews-insert-gcc fixes
+
+ * lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): Use a single
+ comma to separate groups, since that's what the splitter expects
+ (bug#52274).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Avoid having gud bug out if `C-x C-a' has been bound
+
+ * lisp/progmodes/gdb-mi.el (gud-global-map): Use gud-global-map.
+ * lisp/progmodes/gud.el (gud-global-map): Define a map instead of
+ assuming that `C-x C-a' is undefined (bug#6035).
+ (gud-def): Use the map.
+
+2021-12-04 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Don't swallow gnus-search errors when creating nnselect groups
+
+ * lisp/gnus/gnus-search.el (gnus-search-run-query): Modify
+ condition-case to re-signal any gnus-search related errors; the user
+ should see them.
+ (gnus-search-error): Define a new parent error for all gnus-search
+ errors.
+
+2021-12-04 Juri Linkov <juri@linkov.net>
+
+ * lisp/isearch.el (isearch-delete-char): Reopen hidden overlays
(bug#52248).
+
+ (isearch-filter-visible): Move text-property-not-all higher
+ to not call isearch-range-invisible on inhibit-isearch text.
+ Remove min/max since arguments are always in the right order.
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix pixel-fill--fill-line infloop for certain unbreakable lines
+
+ * lisp/textmodes/pixel-fill.el (pixel-fill--fill-line): Fix
+ infloops for certain line widths (bug#52271).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a comma between groups in gnus-inews-insert-gcc
+
+ * lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): Insert a comma
+ between group names to get more mail-like syntax (bug#52274).
+
+2021-12-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve bookmark-maybe-historicize-string doc string
+
+ * lisp/bookmark.el (bookmark-maybe-historicize-string): Clarify
+ that this isn't about menus (but calls from bmenu) (bug#12504).
+
+2021-12-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Add ".crate" to Tramp archive file suffixes.
+
+ * doc/misc/tramp.texi (Archive file names):
+ * lisp/net/tramp-archive.el (tramp-archive-suffixes): Add ".crate".
+
+2021-12-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ eieio-core.el: Allow assignment to cl-structs through `slot-value`
+
+ * lisp/emacs-lisp/eieio-core.el (eieio--validate-slot-value):
+ Obey the `:read-only` property of the slot.
+ (eieio-oset): Allow use on cl-structs as well.
+ (eieio-read-only): New error.
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el (eieio-test--struct):
+ Make the last field read-only.
+ (eieio-test-defstruct-slot-value): Test that cl-struct slots can be
+ assigned via `slot-value`.
+
+2021-12-04 Paul Eggert <eggert@cs.ucla.edu>
+
+ Fix (date-to-time "2021-12-04")
+
+ This should complete the fix for Bug#52209.
+ * lisp/calendar/time-date.el (date-to-time): Apply
+ decoded-time-set-defaults only to the output of (parse-time-string
+ date), and only when the output has a year (to avoid confusion
+ when dates lack years). There is no point applying it after
+ timezone-make-date-arpa-standard since the latter fills in all the
+ blanks. And the former code mistakenly called encode-time on an
+ already-encoded time. This goes back to the code a couple of days
+ ago, except with changed behavior (to fix Bug#52209) only when
+ timezone-make-date-arpa-standard is not called.
+ * test/lisp/calendar/time-date-tests.el (test-date-to-time)
+ (test-days-between): New tests.
+
+2021-12-04 Michael Albinus <michael.albinus@gmx.de>
+
+ Further changes on directory summary line in Tramp
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info):
+ Do not assume 0 in case of missing information.
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-insert-directory):
+ Revert previous change, it doesn't fly.
+
+2021-12-04 Stefan Kangas <stefan@marxist.se>
+
+ Silence byte-compiler in some tests
+
+ * test/lisp/dired-tests.el:
+ * test/lisp/emacs-lisp/cl-macs-tests.el:
+ * test/lisp/emacs-lisp/derived-tests.el:
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el:
+ * test/lisp/emacs-lisp/generator-tests.el:
+ * test/lisp/emacs-lisp/lisp-tests.el:
+ * test/lisp/emacs-lisp/seq-tests.el (test-seq-let)
+ (test-seq-setq):
+ * test/lisp/emacs-lisp/subr-x-tests.el (subr-x-test-if-let*-false)
+ (subr-x-test-if-let*-and-laziness-is-preserved)
+ (subr-x-test-when-let*-false)
+ (subr-x-test-when-let*-and-laziness-is-preserved):
+ * test/lisp/emacs-lisp/timer-tests.el
+ (timer-tests-debug-timer-check):
+ * test/lisp/format-spec-tests.el (format-spec-do-flags-truncate)
+ (format-spec-do-flags-pad):
+ * test/lisp/ls-lisp-tests.el (ls-lisp-test-bug27762):
+ * test/lisp/obsolete/cl-tests.el (labels-function-quoting):
+ * test/lisp/progmodes/elisp-mode-tests.el:
+ * test/lisp/replace-tests.el (replace-regexp-bug45973):
+ * test/lisp/ses-tests.el:
+ * test/lisp/subr-tests.el:
+ * test/lisp/tar-mode-tests.el (tar-mode-test-tar-grind-file-mode):
+ * test/src/data-tests.el (data-tests--set-default-per-buffer):
+ * test/src/search-tests.el
+ (test-replace-match-modification-hooks): Silence byte-compiler.
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Fix double buffering on pgtk
+
+ * src/pgtkterm.c (pgtk_update_end): Stop flipping buffers here.
+ (pgtk_frame_up_to_date)
+ (pgtk_buffer_flipping_unblocked_hook): New function.
+
+ (pgtk_create_terminal): Attach new hooks.
+
+ (leave_notify_event): Clear mouse face.
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Fix coding style of a recent change
+
+ * src/pgtkfns.c (update_watched_scale_factor): Fix coding style.
+
+2021-12-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the MinGW build broken by recent changes in image.c
+
+ * src/image.c (rsvg_handle_get_intrinsic_size_in_pixels)
+ [WINDOWSNT]: Fix prototype. (Bug#44655)
+
+2021-12-04 Alan Third <alan@idiocy.org>
+
+ Make use of Trash on macOS (bug#21340)
+
+ * src/nsfns.m (Fsystem_move_file_to_trash): New function.
+
+2021-12-04 Eli Zaretskii <eliz@gnu.org>
+
+ Yet another place inside redisplay_window to prevent quitting
+
+ * src/xdisp.c (handle_single_display_spec): Inhibit quitting
+ around the call to 'lookup_derived_face' (which can QUIT).
+ (Bug#44448)
+
+2021-12-04 Eli Zaretskii <eliz@gnu.org>
+
+ Fix dependencies for files in the 'nt' subdirectory
+
+ * Makefile.in ($(NTDIR)): If non-empty, depend on 'lib'. That's
+ because some files in nt/ include generated Gnulib headers.
+
+2021-12-04 Yuuki Harano <masm+github@masm11.me>
+
+ Keep track of scale factor by atimer and recreate cairo_surface_t
+
+ Otherwise texts become blurry when a frame moved from 1x monitor
+ to 2x monitor. I need GTK's such signal, but there isn't. Instead
+ I watch frame's monitor's scale factor periodically. We can see
+ blurriness for a short time, but it is gone soon.
+
+ * src/pgtkfns.c (update_watched_scale_factor): New function to check
+ scale factor and recreate cairo_surface_t if changed.
+ * src/pgtkfns.c (Fx_create_frame): Initialize atimer.
+ (Fx_show_tip): Add an argument.
+ * src/pgtkterm.c (FRAME_CR_SURFACE_DESIRED_WIDTH): Move macros to
pgtkterm.h
+ (x_free_frame_resources): Free atimer.
+ (size_allocate): Add an argument.
+ (pgtk_cr_update_surface_desired_size): Add an argument. Recreate if it
+ is true.
+ * src/pgtkterm.h (struct pgtk_output): New members.
+ (FRAME_CR_SURFACE_DESIRED_HEIGHT): Move macros from pgtkterm.c
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-04 Po Lu <luangruo@yahoo.com>
+
+ Make precision pixel scrolling work in an hscrolled window
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page)
+ (pixel-scroll-precision-scroll-up-page): Use beginning of visual
+ line as window start if hscrolled.
+ (pixel-scroll-precision): Don't delegate to mwheel-scroll if
+ window is hscrolled.
+
+2021-12-04 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 745a732ae4 ; Further author fixes in authors.el
+ bef17bca21 * src/dosfns.c (Fint86): Doc fix; don't use obsolete names.
+ bc55dc04af * doc/misc/erc.texi (Keystroke Summary): Fix doc for TAB.
+ ef4d216eb3 Remove reference to variable obsolete since 24.1
+ 7282e492d5 * doc/misc/efaq.texi (New in Emacs 28): New node.
+ eafcccd38f ; FAQ: Normalize references to the NEWS.NN file
+ c006c490eb ; * doc/misc/efaq.texi (Latest version of Emacs): Update v...
+ 9fbc4fa0e7 Add Tramp version integrated in Emacs 28.1
+
+2021-12-04 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 5d6f828799 Unbreak build after 9c222b9c1a7f91497a37567b4d7de3a511fff069.
+
+2021-12-04 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/minibuffer.el: Don't return a boundary outside its arg
+
+ * lisp/minibuffer.el (completion-table-subvert): Fix out of string
+ start boundary for the odd case where `string` is shorter than `s1`.
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the error message in epa-display-error more helpful
+
+ * lisp/epa.el (epa-display-error): Output a more helpful error
+ message when reading a keyring file (bug#12923).
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix keymap-lookup implementation
+
+ * lisp/keymap.el (keymap-lookup): Make this actually work for
+ looking up keys.
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix highlighting of "Exit*" phrases in f90-mode
+
+ * lisp/progmodes/f90.el (f90-font-lock-keywords-2): Don't
+ highlight phrases that start with "Exit" as an exit statement
+ (bug#14442).
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `mouse-1' restart the cua-rect rectangle
+
+ * lisp/emulation/cua-rect.el (cua-mouse-set-rectangle-mark):
+ Restart the rectangle on mouse-1 (bug#51557).
+
+2021-12-03 Po Lu <luangruo@yahoo.com>
+
+ Make last change work for deltas that are multiples of max-height
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down-page)
+ (pixel-scroll-precision-scroll-up-page): Use `max-height' that
+ is slightly less than the text height of the window.
+
+2021-12-03 Po Lu <luangruo@yahoo.com>
+
+ Make it work to pixel scroll by deltas larger than the window
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-scroll-down-page):
+ (pixel-scroll-precision-scroll-up-page): New functions.
+
+ (pixel-scroll-precision-scroll-up)
+ (pixel-scroll-precision-scroll-down): Make it safe to scroll
+ by deltas larger than the current window.
+
+2021-12-03 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that MAIN_FIRST have finished compilation before doing the rest
+
+ * lisp/Makefile.in (main-first): Ensure that we're done with the
+ main bits before starting on the rest.
+ (GREP_OPTIONS): Depend on main-first.
+ (MAIN_FIRST): Compile cconv.el before c-by.el (bug#8764).
+
+2021-12-03 Paul Eggert <eggert@cs.ucla.edu>
+
+ Port to Tiny C on x86-64
+
+ This allows Emacs to build on Ubuntu 21.10 x86-64 with
+ ‘./configure --without-modules CC=tcc’.
+ * configure.ac (GC_SETJMP_WORKS):
+ Accept __x86_64__ as an alias for __amd64__.
+ * src/lisp.h (alignas): Provide a no-op substitute.
+
+2021-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "emacs-lisp-mode: Use error face for "/d" indicator"
+
+ This reverts commit ddc875d9f75bdd1d5dda6a721489f43317b0f8b5.
+
+ I disagree with the need to make it more prominent than the
+ warning face. The warning face is prominent enough. We
+ never decided to annoy people like that.
+
+2021-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Add more dired-x tests
+
+ * test/lisp/dired-x-tests.el (dired-x--string-to-number): Add more
+ tests with various thousands separators.
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove some more items obsolete since Emacs 23
+
+ * lisp/emacs-lisp/shadow.el (find-emacs-lisp-shadows):
+ * lisp/net/newst-backend.el (newsticker-cache-filename)
+ (newsticker--cache-save-version1, newsticker--cache-update)
+ (newsticker--cache-read-version1):
+ * lisp/obsolete/vc-arch.el (vc-arch-command): Remove items
+ obsolete since Emacs 23.
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ Remove two functions obsolete since Emacs 23
+
+ * lisp/international/mule-cmds.el (unify-8859-on-encoding-mode)
+ (unify-8859-on-decoding-mode): Remove functions obsolete since
+ Emacs 23.
+ * lisp/nxml/xsd-regexp.el: Doc fix.
+
+2021-12-03 Paul Eggert <eggert@cs.ucla.edu>
+
+ Prefer rsvg_handle_get_intrinsic_size_in_pixels
+
+ Use rsvg_handle_get_intrinsic_size_in_pixels if available,
+ as this is simpler and better than what we were doing.
+ From a comment by by Alan Third (Bug#44655#56).
+ * src/image.c (init_svg_functions): Arrange for the new function.
+ (svg_load_image): Prefer the results of
+ rsvg_handle_get_intrinsic_size_in_pixels if available.
+
+2021-12-03 Paul Eggert <eggert@cs.ucla.edu>
+
+ Improve overflow checking in svg_load_image
+
+ * src/image.c: Include math.h, for lrint.
+ (scale_image_size, compute_image_size): Use ‘double’, not ‘int’
+ for image size args, since librsvg uses ‘double’ for pixel counts.
+ (scale_image_size): Use ceil instead of rounding, to avoid
+ discarding fractional SVG pixels. Divisor and multiplier are now
+ double instead of int, for better portability to librsvg
+ functions with fractional pixel sizes.
+ (image_get_dimension, compute_image_size, svg_load_image):
+ Be more careful about ignoring, rejecting or clipping scale
+ factors or sizes that are out of integer range.
+ (compute_image_size): Don’t bother to calculate :max-width if
+ :width is specified, and likewise for :max-height and :height.
+
+2021-12-03 Paul Eggert <eggert@cs.ucla.edu>
+
+ Simplify svg_load_image
+
+ * src/image.c (svg_load_image): Simplify slightly.
+
+2021-12-03 Paul Eggert <eggert@cs.ucla.edu>
+
+ More-robust svg_load_image fallback
+
+ Suggested by Alan Third (Bug#44655#56).
+ * src/image.c (svg_load_image): Fall back on
+ rsvg_handle_get_geometry_for_layer if the
+ rsvg_handle_get_intrinsic_dimensions computations yielded unusable
+ viewbox width and height, instead of falling back only if
+ rsvg_handle_get_intrinsic_dimensions did not report image width
+ and height, or did not report a viewbox.
+
+2021-12-03 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Use gnus-message instead of plain message in gnus-search
+
+ bug#51778
+
+ * lisp/gnus/gnus-search.el: All messaging should be done via
+ `gnus-message'.
+
+2021-12-03 Koen van Greevenbroek <koen_devel@posteo.net> (tiny change)
+
+ Fix a compilation warning in pgtkterm.c
+
+ * src/pgtkterm.c (set_fullscreen_state): Fix a compilation warning
+ (bug#52260).
+
+2021-12-03 Tor Kringeland <tor.a.s.kringeland@ntnu.no> (tiny change)
+
+ Add a docstring to `iso-transl-set-language'
+
+ * lisp/international/iso-transl.el: Document
+ `iso-transl-set-language' (bug#52261).
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move 'C-x 8 .' to 'C-x 8 . .'
+
+ * lisp/international/iso-transl.el (iso-transl-char-map): Move
+ 'C-x 8 .' to 'C-x 8 . .' and add ż.
+
+2021-12-03 Tor Kringeland <tor.a.s.kringeland@ntnu.no> (tiny change)
+
+ Add support for some Polish characters with `C-x 8'
+
+ * lisp/international/iso-transl.el: Add support for some Polish
+ characters (bug#52173).
+
+2021-12-03 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ Fix regression introduced by the previous date-to-time change
+
+ * lisp/calendar/time-date.el (date-to-time): The function needs to
+ test if `parse-time-string' returns a valid data as the old
+ version did it with the help of `encode-time' (bug#52209).
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify the run-at-time documentation about "integral multiple"
+
+ * lisp/emacs-lisp/timer.el (run-at-time):
+ * doc/lispref/os.texi (Timers): Explain what "integral multiple"
+ really means.
+
+2021-12-03 Jim Porter <jporterbugs@gmail.com>
+
+ Remove separators at the beginning and end of the context menu
+
+ * lisp/mouse.el (context-menu-map): Remove beginning/end
+ seperators (bug#52237).
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve how dired-mark-sexp interprets file sizes in non-C locales
+
+ * lisp/dired-x.el (dired-x--string-to-number): Try to understand
+ localised numbers (with "." separators or the like) (bug#23373).
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ emacs-lisp-mode: Use error face for "/d" indicator
+
+ * lisp/progmodes/elisp-mode.el (emacs-lisp-mode): Use 'error' face for
+ the dynamic scoping ("/d") indicator in the mode line to make it stand
+ out more.
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ Don't support obsolete sregex syntax in re-builder
+
+ * lisp/emacs-lisp/re-builder.el (reb-lisp-mode)
+ (reb-lisp-syntax-p, reb-change-syntax, reb-cook-regexp): Remove final
+ remaining references to the long obsolete sregex syntax.
+
+2021-12-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in NEWS about 'write-file'
+
+2021-12-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix dired--insert-disk-space
+
+ * lisp/dired.el (dired--insert-disk-space): Handle case
+ `get-free-disk-space' returns nil.
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/image.el (image): Add :prefix and :link.
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ image-mode: Advertize viewing as text less eagerly
+
+ * lisp/image-mode.el (image-text-based-formats): New defcustom.
+ (image-mode--setup-mode): Don't show message to show image as text
+ unless it is a text based image format. Don't mention key binding
+ for editing as hex. (Bug#51961)
+ (image-mode-as-text): Don't mention key binding for editing as hex.
+ (image-mode-as-hex): Minor cleanup.
+
+2021-12-03 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-macs.el (natnum): Fix typo
+
+ * lisp/emacs-lisp/cl-macs.el (natnum): Define it as a type
+
+2021-12-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt directory summary line handling in Tramp
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory):
+ * lisp/net/tramp-smb.el (tramp-smb-handle-insert-directory):
+ Do not add or modify summary line when `dired-free-space' is bound.
+
+2021-12-03 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Support display of non-ASCII characters with aligned columns"
+
+ This reverts commit 608267c71e11da9c757c269a5e22e62ef04d0bfe.
+
+2021-12-03 Po Lu <luangruo@yahoo.com>
+
+ Send scroll stop events to xwidgets when built with XInput 2
+
+ * src/xwidget.c (xwidget_scroll): Set xg_event->scroll.is_stop
+ when appropriate.
+
+2021-12-03 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-03 Po Lu <luangruo@yahoo.com>
+
+ Improve velocity calculation in momentum scrolling
+
+ * lisp/pixel-scroll.el
+ (pixel-scroll-precision-momentum-factor): Remove option.
+ (pixel-scroll-precision-initial-velocity-factor)
+ (pixel-scroll-precision-momentum-min-velocity): New user
+ options.
+ (pixel-scroll-accumulate-velocity): Clear velocity ring
+ if sign is different.
+ (pixel-scroll-calculate-velocity): Use current time.
+ (pixel-scroll-start-momentum): Use better algorithm.
+
+2021-12-03 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 9c222b9c1a Port to C compilers that lack size-0 arrays
+ fed35a8951 Port emacsclient to Solaris 10
+ f35d6a9c73 * CONTRIBUTE: Improve commit message instructions
+ e0ee1d003a Work around IBM XL C compiler bug
+ 6b99b6eb8b * admin/make-tarball.txt: Various clarifications.
+ bbf4140091 * admin/diff-tar-files: Don't assume .tar.gz.
+ 0a50ad11db * lisp/tab-bar.el (tab-bar-close-other-tabs): Fix regression.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Generate touch-end events on pgtk
+
+ * src/pgtkterm.c (scroll_event): Generate touch end events.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Make momentum scrolling much nicer
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-momentum-tick):
+ Set default value to 0.01.
+ (pixel-scroll-precision-momentum-seconds): New user option.
+ (pixel-scroll-start-momentum): Improvements to momentum
+ algorithm.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fix algorithm.
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-02 Michael Albinus <michael.albinus@gmx.de>
+
+ * etc/NEWS: Mention change in `insert-directory' derivates. Fix typos.
+
+2021-12-02 Eli Zaretskii <eliz@gnu.org>
+
+ Support display of non-ASCII characters with aligned columns
+
+ * src/xdisp.c (get_normal_width): New function.
+ (gui_produce_glyphs): Use 'get_normal_width' to widen on display
+ characters whose width is not an integral multiple of the
+ "standard" width.
+ (syms_of_xdisp) <align-columns-display>: New boolean variable.
+
+2021-12-02 Stefan Kangas <stefan@marxist.se>
+
+ update_autogen: Improve error handling slightly
+
+ * admin/update_autogen: Check exit status of cd. Use single
+ quoting for trap condition.
+
+2021-12-02 Stefan Kangas <stefan@marxist.se>
+
+ update_autogen: Remove unused -H flag
+
+ We now update ChangeLog files only when preparing a new release, so
+ this flag is never used. Keeping it risks confusing more than it
+ helps.
+ * admin/update_autogen: Remove the -H flag as it is no longer used.
+
+2021-12-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ f38dfa56a0 ; Update loaddefs files.
+ b3d4b18507 ; make change-history-commit
+ 334ff0232e * lisp/repeat.el: Use same logic for repeat-check-key and ...
+ 8230a47ecc * lisp/help.el (help--analyze-key): Prefer posn-set-point ...
+
+ # Conflicts:
+ # lisp/ldefs-boot.el
+
+2021-12-02 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ aa1d7dd867 ; * etc/AUTHORS: Update.
+ 6294e60205 ; * admin/authors.el (authors-aliases): More fixes.
+ 40fc31ea28 ; * ChangeLog.3: Update.
+ 2be090d5d3 ; * ChangeLog.3: Minor fixes.
+ 9963b11bf7 ; * admin/authors.el (authors-aliases): Further updates.
+ 50b40e1d4f ; * lisp/org/ob-julia.el: Fix Author header for authors.el.
+ 84166ea2e6 CC Mode: Recognise "struct foo {" as introducing a type de...
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix characters.el build issue
+
+ * lisp/international/characters.el
+ (glyphless--bidi-control-characters): Don't use names here,
+ because it's too early (bug#52240).
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous macroexp--warn-wrap change
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--warn-wrap): Don't call
+ byte-compile-warning-enabled-p with zero parameters.
+
+2021-12-02 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ * lisp/gnus/gnus-art.el (gnus--variable-pitch-p): Don't error out if
face nil
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-c C-w' copy the executable bits to the new file
+
+ * lisp/files.el (write-file): When visiting an executable file,
+ make the new file executable, too (bug#18915).
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new variable 'process-error-pause-time'
+
+ * doc/lispref/processes.texi (Asynchronous Processes): Document it.
+ * lisp/cus-start.el (standard): Customize.
+
+ * src/process.c (read_process_output_error_handler)
+ (exec_sentinel_error_handler): Use it.
+ (syms_of_process): New variable process-error-pause-time (bug#19457).
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Improve momentum scrolling algorithm
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-momentum-tick):
+ (pixel-scroll-precision-momentum-factor): New user options.
+
+ (pixel-scroll-kinetic-state, pixel-scroll-accumulate-velocity):
+ Set scroll momentum ring size to 10.
+
+ (pixel-scroll-start-momentum): Improve algorithm.
+
+2021-12-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of free disk space in Dired
+
+ * lisp/dired.el (dired--insert-disk-space): Fix 'first' display on
+ MS-Windows.
+ (dired-free-space): Clarify the meaning of 'first'.
+
+2021-12-02 Eli Zaretskii <eliz@gnu.org>
+
+ Fix recent changes related to 'glyphless-display-mode'
+
+ * lisp/textmodes/glyphless-mode.el (glyphless-mode-types): Fix
+ spelling of "bidirectional".
+ * lisp/international/characters.el (char-acronym-table): Fix
+ acronyms for LRI and RLI: use their accepted shorthands.
+ (glyphless-char-display-control): Fix spelling of doc string.
+
+ * doc/lispref/display.texi (Glyphless Chars): Fix spelling and add
+ a cross-reference.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Get rid of duplicate pgtk function
+
+ * src/pgtkfns.c (Fpgtk_popup_font_panel): Remove function.
+ (syms_of_pgtkfns): Get rid of removed subr.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Documentation fixes for pgtk port
+
+ * doc/lispref/display.texi (Defining Faces):
+ * doc/lispref/frames.texi (Multiple Terminals): Add references
+ to the `pgtk' terminal type.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Fix `menu-set-font' on pgtk
+
+ * src/pgtkfns.c (Fx_select_font): New function.
+ (syms_of_pgtkfns): Define new subr.
+
+2021-12-02 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dired-virtual doc string less confusing
+
+ * lisp/dired-x.el (dired-virtual): Make the doc string less
+ confusing (bug#20992).
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add `cl-constantly' function
+
+ * lisp/emacs-lisp/cl-lib.el (cl-constantly): Add Common Lisp
+ function missing (bug#21584).
+
+2021-12-02 Jim Porter <jporterbugs@gmail.com>
+
+ Ensure there are no duplicate separators when creating a context menu
+
+ Previously, if there were three or more consecutive menu separators,
+ not all of them would be removed.
+
+ * lisp/mouse.el (context-menu-map): Ensure no duplicate separators
+ (bug#52237).
+
+2021-12-02 Daniel Fleischer <danflscr@gmail.com>
+
+ browse-url-button-regexp: Recognize gemini: links
+
+ Gemini is a relatively new text-based web protocol, similar to
+ gopher. There's the "elpher" package to browse gopher and gemini
+ pages. Adding it to the regexp will make Emacs be aware of gemini links,
+ e.g. in ERC.
+
+ * lisp/net/browse-url.el (browse-url-button-regexp): Add support
+ for the gemini: URL type.
+
+2021-12-02 Michael Levine <melevine45@gmail.com>
+
+ Fix usage of deprecated syntax in some cedet tests
+
+ * test/lisp/cedet/srecode/fields-tests.el
+ (srecode-field-utest-impl): Fix deprecated syntax.
+
+2021-12-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a bidi-control target for `glyphless-char-display-control'
+
+ * doc/lispref/display.texi (Glyphless Chars): Document bidi-control.
+
+ * lisp/international/characters.el (char-acronym-table): Add the
+ ISOLATE characters.
+ (update-glyphless-char-display): Implement bidi-control, and mark
+ all Cf characters we don't know about as UNK.
+ (glyphless--bidi-control-characters): New variable.
+ (glyphless-char-display-control): Add a new type -- bidi-control.
+
+ * lisp/textmodes/glyphless-mode.el (glyphless-mode-types): Add a
+ new type -- bidi-control.
+
+2021-12-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/cedet/semantic/bovine/c.el (semantic-tag-protection): Silence
warning
+
+ We used to get
+
+ cedet/semantic/bovine/c.el:1462:25: Warning: value returned from
+ (string= s "static") is unused
+
+ * lisp/cedet/semantic/bovine/c.el (semantic-tag-protection): Merge two
+ `when` into an `if` and set `prot` instead of throwing away a result.
+ Use `pcase` while we're at it.
+
+2021-12-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/macroexp.el: Improve last change
+
+ Don't burp when `byte-compile-warning-enabled-p` is not yet defined.
+ And use the call that we had already instead of adding a new one.
+
+ (macroexp--warn-wrap): Allow `category`
+ to be a list to pass to `byte-compile-warning-enabled-p`.
+ (macroexp-macroexpand): Simplify accordingly.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Add some primitive momentum-based precision scrolling
+
+ The algorithm used to scroll the display kinetically is very
+ simple and needs improvement. Someone should work on that
+ eventually.
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-use-momentum):
+ New user option.
+ (pixel-scroll-precision-mode-map): Add
+ `pixel-scroll-start-momentum'.
+ (pixel-scroll-kinetic-state):
+ (pixel-scroll-accumulate-velocity):
+ (pixel-scroll-calculate-velocity): New functions.
+ (pixel-scroll-start-momentum): New command.
+
+ * src/xterm.c (handle_one_xevent): Fix touch-end event
+ generation.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Add `touch-end' event type
+
+ * etc/NEWS:
+ * doc/lispref/commands.texi (Misc Events): Document new
+ `touch-end' event type.
+
+ * lisp/bindings.el: Ignore touch-end events by default.
+
+ * src/keyboard.c (make_lispy_event): Add support for
+ TOUCH_END_EVENT events.
+ (syms_of_keyboard): New symbol `touch-end'.
+
+ * src/termhooks.h (enum event_kind): New member
+ `TOUCH_END_EVENT'.
+
+ * src/xterm.c (handle_one_xevent): Send touch-end events when
+ appropriate.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Fix precision scrolling when there is a scroll margin
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down)
+ (pixel-scroll-precision-scroll-up): Take scroll margin into
+ accout.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Get rid of vmotion loop in `pixel-scroll-precision-scroll-up'
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-up): Use
+ posn-at-x-y for cursor motion.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change how Dired displays available space
+
+ * doc/emacs/dired.texi (Misc Dired Features): Document it (bug#23812).
+ * lisp/dired.el (dired-free-space): New user option.
+ (dired-insert-directory): Use it from here.
+ (dired--insert-disk-space): New function that uses the user option.
+
+ * lisp/files.el (insert-directory): Don't transform "total" here.
+ * lisp/ls-lisp.el (ls-lisp--insert-directory): Or here. Instead
+ just leave the "total <num>" bit alone, and let Dired transform it.
+
+ * test/lisp/files-tests.el (files-tests): Move "available" tests
+ to dired-tests.
+ * test/lisp/dired-tests.el (data-dir): Moved here.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix "SEE ALSO" buttons in some man pages
+
+ * lisp/man.el (Man-highlight-references0): Don't include "and" in
+ the links (bug#52229).
+
+2021-12-01 Andrea Corallo <akrl@sdf.org>
+
+ Make use of `comp-cstr-shallow-copy'
+
+ * lisp/emacs-lisp/comp.el (comp-mvar-propagate): Remove.
+ (comp-fwprop-call, comp-fwprop-insn): Use `comp-cstr-shallow-copy'.
+
+ * lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range)
+ (comp-cstr-union-1-no-mem, comp-cstr-union-1)
+ (comp-cstr-intersection-no-mem, comp-cstr-intersection)
+ (comp-cstr-negation): Use `comp-cstr-shallow-copy'.
+
+2021-12-01 Andrea Corallo <akrl@sdf.org>
+
+ * Redefine `comp-cstr-shallow-copy'
+
+ * lisp/emacs-lisp/comp-cstr.el (comp-cstr): Don't synthesize copier
+ function.
+ (comp-cstr-shallow-copy): New function.
+ (comp-cstr-=): Use `copy-sequence'.
+
+2021-12-01 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Decl struct predicates as
pure
+
+2021-12-01 Alan Mackenzie <acm@muc.de>
+
+ Several amendments to scratch/correct-warning-pos.
+
+ The position return by read-positioning-symbols is now the position in
the
+ buffer, rather than the offset from the start of a form, enabling
warning
+ positions in other parts of the buffer to be output.
+
+ * src/lisp.h (lisp_h_EQ): Add XLI casts so that it compiles cleanly.
+
+ * src/data.c (Fremove_pos_from_symbol): New DEFUN.
+
+ * src/lread.c (readchar_count): renamed to readchar_offset.
+ (read_internal_start) Initialize readchar_offset to the buffer's point
when
+ STREAM is a buffer.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warning-prefix): Amend to
use
+ OFFSET as a buffer position, not an offset from the start of a form.
+ (byte-compile-warn): Remove symbol positions from any shape of ARGS,
not just
+ a symbol with position.
+
+ * lisp/emacs-lisp/cconv.el (cconv-convert): In the :unused case,
+ position the new IGNORE symbol with the VAR it has replaced.
+
+ * lisp/emacs-lisp/macroexp.el (macroexp--warn-wrap,
macroexp-warn-and-return):
+ Add an extra position parameter to each.
+
+ * lisp/emacs-lisp/bindat.el (bindat-type), lisp/emacs-lisp/byte-run.el
+ (defmacro, defun), lisp/emacs-lisp/cconv.el (cconv--convert-func-body)
+ (cconv-convert), lisp/emacs-lisp/cl-generic.el (cl-defmethod),
+ lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet, cl-defstruct),
+ lisp/emacs-lisp/easy-mmode.el (define-minor-mode),
+ lisp/emacs-lisp/eieio-core.el (eieio-oref, eieio-oref-default)
+ (eieio-oset-default), lisp/emacs-lisp/eieio.el (defclass),
+ lisp/emacs-lisp/gv.el (gv-ref), lisp/emacs-lisp/macroexp.el
+ (macroexp-macroexpand, macroexp--unfold-lambda, macroexp--expand-all),
+ lisp/emacs-lisp/pcase.el (pcase-compile-patterns, pcase--u1): Add an
extra
+ position argument to each call of macroexp-warn-and-return.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-x C-d' require either an existing directory or a wildcard
+
+ * lisp/files.el (list-directory): Require either an existing
+ directory or a wildcard (bug#25807).
+
+2021-12-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cconv.el (cconv--lifted-arg): Simplify
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix table-fixed-width-mode when typing fast
+
+ * lisp/textmodes/table.el (table-with-cache-buffer): Use the value
+ of table-fixed-width-mode in the correct buffer (bug#26701).
+
+2021-12-01 Eli Zaretskii <eliz@gnu.org>
+
+ Mention 'glyphless-display-mode' in conjunction with bidi display
+
+ * doc/emacs/mule.texi (Bidirectional Editing): Mention
+ 'glyphless-display-mode'. (Bug#27544)
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix fencepost error in pixel-fill--fill-line
+
+ * lisp/textmodes/pixel-fill.el (pixel-fill--fill-line): Don't add
+ a newline (and continuation) if we're at the end of the line.
+
+2021-12-01 Robert Pluim <rpluim@gmail.com>
+
+ characters.el: remove repetition in glyphless-char-display-control
+
+ * lisp/international/characters.el (glyphless-char-display-method):
+ New custom widget for the different options for displaying glyphless
+ characters.
+ (glyphless-char-display-control): Use 'glyphless-char-display-method'.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new face `variable-pitch-text'
+
+ * doc/emacs/display.texi (Standard Faces): Mention in.
+
+ * lisp/faces.el (variable-pitch-text): New face.
+
+ * lisp/gnus/gnus-art.el (gnus-header): Use it.
+
+ * lisp/net/shr.el (shr-text): Use it.
+
+2021-12-01 Mattias Engdegård <mattiase@acm.org>
+
+ Fix closure-conversion of shadowed captured lambda-lifted vars
+
+ Lambda-lifted variables (ones passed explicitly to lambda-lifted
+ functions) that are also captured in an outer closure and shadowed
+ were renamed incorrectly (bug#51982).
+
+ Reported by Paul Pogonyshev.
+
+ * lisp/emacs-lisp/cconv.el (cconv--lifted-arg): New.
+ (cconv-convert): Provide correct definiens for the closed-over
+ variable.
+ * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
+ * test/lisp/emacs-lisp/cconv-tests.el (cconv-tests--intern-all)
+ (cconv-closure-convert-remap-var): Add tests.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new minor mode `glyphless-display-mode'
+
+ * doc/emacs/display.texi (Text Display): Mention it.
+
+ * doc/lispref/display.texi (Glyphless Chars): Document it.
+ * lisp/textmodes/glyphless-mode.el: New minor mode (bug#27544).
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix update-glyphless-char-display variable setting
+
+ * lisp/international/characters.el
+ (update-glyphless-char-display): Only set the variable if given.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make pixel-fill-region handle space regions better
+
+ * lisp/textmodes/pixel-fill.el (pixel-fill-region): Preserve the
+ face on the replacement spaces.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Fix precision pixel scrolling for a recent change
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Use
+ `mwheel-coalesce-scroll-events' instead.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Stop relying on `x_coalesce_scroll_events' in pgtk code
+
+ * src/pgtkterm.c (scroll_event): Use
+ `mwheel_coalesce_scroll_events'.
+ (x_coalesce_scroll_events): Remove variable.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Enable gnus-treat-fold-headers by default
+
+ * lisp/gnus/gnus-art.el (gnus-treat-fold-headers): Change default
+ to `head'.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use proportional fonts in the Gnus headers by default
+
+ * lisp/gnus/gnus-art.el (gnus-header): Inherit from `variable-pitch'.
+ (gnus--variable-pitch-p): New helper function.
+ (gnus-article-treat-fold-headers): Fill using pixel filling.
+
+2021-12-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Preserve newlines at the end of pixel-fill-region
+
+ * lisp/textmodes/pixel-fill.el (pixel-fill-region): Preserve
+ newlines at the end.
+
+2021-12-01 Eli Zaretskii <eliz@gnu.org>
+
+ Support precision mouse scrolling on MS-Windows
+
+ * src/w32fns.c (w32_wnd_proc): Pass the WM_SETTINGCHANGE message
+ to the Lisp thread.
+ * src/w32term.c (w32_construct_mouse_wheel): Support mice with
+ precision scrolling wheel.
+ (w32_get_mouse_wheel_vertical_delta): New function.
+ (w32_read_socket): When the WM_SETTINGCHANGE is received, call
+ 'w32_get_mouse_wheel_vertical_delta'.
+ (w32_initialize): Call 'w32_get_mouse_wheel_vertical_delta' at
+ startup.
+ * src/nsterm.m (syms_of_nsterm):
+ * src/haikuterm.c (syms_of_haikuterm):
+ * src/xterm.c (syms_of_xterm): Remove window-system specific
+ variables for coalescing mwheel events.
+ * src/keyboard.c (syms_of_keyboard)
+ <mwheel-coalesce-scroll-events>: New variable, to replace the
+ above platform-specific ones.
+
+ * doc/lispref/commands.texi (Misc Events): Improve wording of the
+ description of mouse-wheel events.
+
+2021-12-01 Stefan Kangas <stefan@marxist.se>
+
+ update_autogen: Remove deprecated -I flag
+
+ * admin/update_autogen (info_dir): Remove deprecated -I flag; it is no
+ longer used since info/dir is now generated at install time if needed,
+ and is not in the repository any more.
+
+2021-12-01 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-12-01 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e632b83a28 Update authors.el for Emacs 28
+ e9fdb11903 ; * ChangeLog.3: Some additional fixes.
+ 8fa4749df1 ; * ChangeLog.3: Filename fixes.
+ ea5a90b4f4 * lisp/repeat.el: Fix long-standing problem when a random ...
+ ef4954b69c * lisp/repeat.el (repeat-keep-prefix): Change default to nil.
+ 6d5886e780 * test/lisp/repeat-tests.el (repeat-tests-call-b): Test fo...
+ 9e16c6a96d ; * src/comp.c (syms_of_comp) <comp-no-native-file-h>: Doc...
+ 9aa8fd6e62 * src/callint.c (Fcall_interactively): Fix inhibit_mouse_e...
+ 70c229b1fc Fix regression in gdb-frame-handler
+ cd9dd26d24 Format and index concept 'predicate' in ELisp Intro
+ ab291656d0 ; * ChangeLog.3: Fix typos.
+ 354f6c5609 ; * ChangeLog.3: Formatting fixes.
+ 6192525a96 ; make change-history-commit
+
+2021-12-01 Stefan Kangas <stefan@marxist.se>
+
+ Update SKK-JISYO.L from upstream
+
+ * leim/SKK-DIC/SKK-JISYO.L: Update from
+ https://raw.githubusercontent.com/skk-dev/dict/master/SKK-JISYO.L
+
+2021-12-01 Stefan Kangas <stefan@marxist.se>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/public_suffix_list.dat
+ dated 2021-11-26 23:07:15 UTC.
+
+2021-11-30 Jim Porter <jporterbugs@gmail.com>
+
+ Suppress emacsclient message that daemon should have started if --quiet
+
+ * lib-src/emacsclient.c (start_daemon_and_retry_set_socket): Don't
+ output "daemon should have started" message if --quiet (bug#52214).
+
+2021-11-30 Bob Rogers <rogers-emacs@rgrjr.homedns.org>
+
+ Make date-to-time work with date-only date strings
+
+ * lisp/calendar/time-date.el (date-to-time): Try harder to parse
+ dates with no times (bug#52209).
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Autoload byte-compile-warning-enabled-p
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warning-enabled-p):
+ Autoloads (for easier use in macroexp etc).
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add an ldefs-boot.el target to the Makefile
+
+ * lisp/Makefile.in (ldefs-boot.el): Add a target to regenerate the
+ ldefs-boot.el file.
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make "make force-autoloads" produce the correct result
+
+ * lisp/emacs-lisp/autoload.el (cl-lib): We need the cl-macs at
+ runtime to expand cl-defmacros to find declare indent forms.
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't include the other loaddef files in the no-autoloads section
+
+ * lisp/emacs-lisp/autoload.el (make-directory-autoloads): Don't
+ include the other loaddef files in the no-autoloads section.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Avoid unnecessary call when pixel scrolling
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down):
+ Avoid unnecessary call to `posn-at-point'
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Make pixel scrolling faster
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down): Get
+ rid of big motion loop.
+ (pixel-scroll-precision-scroll-up): Stop subtracting height of
+ window lines.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Synchronize pgtk tab bar code with xterm
+
+ * src/pgtkterm.c (x_draw_image_relief):
+ (button_event): Synchronize code with xterm. (Bug#50779)
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-11-30 Andrea Corallo <akrl@sdf.org>
+
+ * lisp/loadup.el (paren): Preload it (again).
+
+2021-11-30 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of pixel-fill
+
+ * doc/lispref/text.texi (Filling): Describe the arguments of
+ 'pixel-fill-region'. Add index entry.
+
+ * lisp/textmodes/pixel-fill.el (pixel-fill-region): Doc fix.
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use pixel-fill-width in shr.el
+
+ * lisp/net/shr.el (shr--window-width): Factor out into own function.
+ (shr-insert-document): Use it.
+ (shr-fill-text): Ditto.
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document pixel-fill-region
+
+ * doc/lispref/text.texi (Filling): Document pixel-fill-region.
+
+ * lisp/textmodes/pixel-fill.el (pixel-fill-width): Add new helper
+ function.
+
+2021-11-30 Andrea Corallo <akrl@sdf.org>
+
+ Revert "Preload paren.el"
+
+ Reverting as the previous commit make this fix not anymore necessary.
+
+ This reverts commit 340e527bed83ff0382446132c871088ad61d1745.
+
+2021-11-30 Andrea Corallo <akrl@sdf.org>
+
+ Improve native compiler startup circular dependecy prevention mechanism
+
+ * src/comp.c (maybe_defer_native_compilation): Update to accumulate
+ delayed objects in `comp--delayed-sources'.
+ (syms_of_comp): Add `comp--delayed-sources' and `comp--loadable'
+ vars.
+
+ * lisp/startup.el (startup--honor-delayed-native-compilations): New
+ function.
+ (normal-top-level): Call it.
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow storing buffer names in registers
+
+ * doc/emacs/regs.texi (File and Buffer Registers): Rename and add
+ doc for `buffer' version.
+ * lisp/register.el (register-val-jump-to, register-val-describe):
+ Add support for (buffer . ...) registers (bug#33033).
+
+2021-11-30 Mattias Engdegård <mattiase@acm.org>
+
+ Generalise CPS-conversion let optimisation
+
+ * lisp/emacs-lisp/generator.el (cps--transform-1):
+ Eliminate a temporary for the last of any `let` form, not just for
+ single-binding ones. Suggested by Stefan Monnier.
+
+2021-11-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow inhibiting warnings about obsolete macros again
+
+ * lisp/emacs-lisp/macroexp.el (macroexp-macroexpand): Inhibit
+ warning if requested (bug#50984).
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ * src/nsterm.m (Vns_scroll_event_delta_factor): Fix doc string.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Fix pixel scrolling again
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down): Fix
+ confusion about absolutivity of `window-edges'.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Fix 1-off errors in pixel scrolling code
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down): Fix
+ one-off errors.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Improve upwards pixel scrolling for large images
+
+ This fixes most of the problem, but with a large image the
+ vscroll can sometimes jump about, which has to be fixed.
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-up): Handle
+ vscrolling large images in the first unseen line.
+
+2021-11-30 Mattias Engdegård <mattiase@acm.org>
+
+ Better CPS conversion of multi-binding `let`
+
+ * lisp/emacs-lisp/generator.el (cps--transform-1):
+ Don't translate single-binding `let` into `let*` with an extra
+ temporary variable; it just adds two more useless states.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Calculate pixel deltas correctly
+
+ * src/pgtkterm.c (scroll_event): Fix scroll delta
+ factor. (bug#52195)
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision): Handle zero delta.
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-11-30 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 30553d889d Merge branch 'emacs-28' of git.savannah.gnu.org:/srv/git/e...
+ ecf3bf66ba Remove problematic characters from modus-themes.org (bug#5...
+ de9d27f679 Avoid undefined behaviour when copying part of structure
+
+ # Conflicts:
+ # doc/misc/modus-themes.org
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Fix annoying bell rings when pixel scrolling to buffer limits
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision): Don't ding at
+ buffer limits.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Enable shallow menu bar updates on PGTK
+
+ * src/gtkutil.c (menu_bar_button_pressed_cb): New function.
+ (create_menus): Connect button press event signal.
+
+ * src/pgtkmenu.c (set_frame_menubar): Allow shallow updates.
+
+2021-11-30 Po Lu <luangruo@yahoo.com>
+
+ Add `ns-scroll-event-delta-factor'
+
+ * src/nsterm.m (- mouseDown): Take delta factor into account.
+ (Vns_scroll_event_delta_factor): New variable.
+
+ * lisp/cus-start.el: Add option.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Allow non-float values in x-scroll-event-delta-factor
+
+ * src/xterm.c (handle_one_xevent): Use XFLOATINT instead of
+ XFLOAT_DATA.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Make interrupt input optionally work on PGTK
+
+ * src/pgtkterm.c (pgtk_delete_terminal): Close display fd if it
+ exists.
+ (pgtk_term_init): Set up interrupt handling for display fd if
+ available.
+ * src/pgtkterm.h (struct pgtk_display_info): Add `connection'
+ field.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Stop setting mouse face GC manually, as it is no longer required
+
+ * src/pgtkterm.c (x_set_mouse_face_gc): Remove obsolete code.
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new package pixel-fill.el
+
+ * lisp/net/shr.el (shr-char-breakable-p, shr-char-nospace-p)
+ (shr-char-kinsoku-bol-p, shr-char-kinsoku-eol-p)
+ (shr-find-fill-point): Moved to pixel-fill.el and renamed.
+ (shr-pixel-region): Made obsolete.
+ (shr-fill-line): Use pixel-fill-region.
+
+ * lisp/textmodes/pixel-fill.el: New package.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Add missing function declarations to pgtk-win.el
+
+ * lisp/term/pgtk-win.el: Add missing IM context related
+ declarations.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Enable pixel-precision scrolling on pgtk port
+
+ * src/pgtkterm.c (scroll_event): Generate enhanced wheel
+ events.
+ (x_coalesce_scroll_events): New variable.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Get rid of pgtk_select and use xg_select instead
+
+ * src/pgtkmenu.c (pgtk_menu_wait_for_event): Get rid
+ of pgtk_select.
+ * src/pgtkterm.h (pgtk_select):
+ * src/pgtkterm.c (pgtk_select): Delete function.
+ * src/process.c (wait_reading_process_output): Stop
+ using pgtk_select.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ * lisp/frame.el (display-graphic-p): Fix typo.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Fix build after merge
+
+ * lisp/mwheel.el (mouse-wheel-up-event):
+ * src/gtkutil.c (xg_event_is_for_scrollbar):
+ * src/termhooks.h (enum output_method): Fix trivial typos.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Merge remote-tracking branch 'origin/feature/pgtk' into feature/pgtk
+
+ Merge remote-tracking branch 'origin/master' into feature/pgtk
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Audit the Emacs manual for keymap-*-related changes
+
+ * doc/emacs/programs.texi (Other C Commands):
+ * doc/emacs/msdos-xtra.texi (MS-DOS Keyboard):
+ * doc/emacs/custom.texi (Init Examples):
+ * doc/emacs/abbrevs.texi (Editing Abbrevs): Change some examples
+ to use keymap-* functions.
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix some of the argument handling in keymap-set and keymap-substitute
+
+ * lisp/keymap.el (keymap-set): Fix handling of binding one key to
+ another key.
+ (keymap-substitute): Fix confusion in implementation -- the args
+ are definitions, not keys.
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Edit the lispref manual for define-key/keymap-set fallout
+
+ * doc/lispref/variables.texi (Tips for Defining):
+ * doc/lispref/text.texi (Clickable Text):
+ * doc/lispref/modes.texi (Derived Modes):
+ (Example Major Modes):
+ * doc/lispref/loading.texi (Autoload):
+ (Hooks for Loading):
+ * doc/lispref/keymaps.texi (Creating Keymaps):
+ (Inheritance and Keymaps):
+ (Controlling Active Maps):
+ (Changing Key Bindings):
+ (Low-Level Key Binding):
+ (Remapping Commands):
+ (Translation Keymaps):
+ (Key Binding Commands):
+ * doc/lispref/help.texi (Help Functions):
+ * doc/lispref/display.texi (Abstract Display Example):
+ * doc/lispref/commands.texi (Interactive Codes):
+ (Keyboard Events):
+ (Misc Events):
+ (Classifying Events):
+ (Strings of Events): Prefer `keymap-set' instead of `define-key'
+ most places, and use `defvar-keymap' in some of the examples.
+
+2021-11-29 Alan Third <alan@idiocy.org>
+
+ Fix build on macOS
+
+ * src/nsterm.h (NSPasteboardTypeMultipleTextSelection):
+ (NSPasteboardTypePNG): These are already defined on macOS 10.6 and
+ above and aren't used at all in GNUstep.
+
+2021-11-29 Alan Third <alan@idiocy.org>
+
+ Fix NS port text decorations (bug#52156)
+
+ * src/nsterm.m (ns_draw_text_decoration): Set the correct colors for
+ decorations other than underline.
+ (ns_draw_glyph_string): Remove superfluous color setting call.
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot.el
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up generation of help text for ldefs-boot.el
+
+ * lisp/emacs-lisp/autoload.el (autoload-rubric): Don't put the
+ help text into cedet/*/loaddefs.el (bug#51744).
+
+2021-11-29 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/gitlab-ci.yml (.job-template): Modify find scripts.
+
+2021-11-29 Protesilaos Stavrou <info@protesilaos.com>
+
+ Remove problematic characters from modus-themes.org (bug#52126)
+
+ * doc/misc/modus-themes.org
+ (Enable and load, Font configurations for Org and others)
+ (Note on highlight-parentheses.el, Note on god-mode.el): Update links to
+ headings so that they no longer include the removed portions of text.
+
+ (Option for color-coding success state, Option for line highlighting)
+ (Option for line numbers, Option for parenthesis matching)
+ (Advanced customization, Per-theme customization settings)
+ (Case-by-case face specs using the themes' palette)
+ (Face specs at scale using the themes' palette)
+ (Remap face with local value, Cycle through arbitrary colors)
+ (Override colors, Override color saturation)
+ (Font configurations for Org and others, Configure bold and italic
faces)
+ (Custom Org user faces, Update Org block delimiter fontification)
+ (Measure color contrast, Load theme depending on time of day)
+ (Backdrop for pdf-tools, Decrease mode line height)
+ (A theme-agnostic hook for theme loading, Note on EWW and Elfeed fonts)
+ (Frequently Asked Questions): Remove parentheses from headings as they
+ can cause problems in the .texi version of the file.
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't return whitespace for thing-at-point in whitespace-only buffers
+
+ * lisp/thingatpt.el (bounds-of-thing-at-point): If the buffer is
+ empty, return nil for most things (bug#52098).
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make Re: recognition in ispell-message less ambiguous
+
+ * lisp/textmodes/ispell.el (ispell-message): Require a "Re" as a
+ word, not as a word ending (bug#52104).
+
+2021-11-29 Brahimi Saifullah <brahimi.saifullah@gmail.com> (tiny change)
+
+ Make `group' widgets prettier in Customize
+
+ * lisp/wid-edit.el (group): Make the ":" invisible so that the
+ buffer looks prettier (bug#52143).
+
+2021-11-29 Matthias Meulien <orontee@gmail.com>
+
+ project-kill-buffers can display list of buffers to kill
+
+ * lisp/progmodes/project.el
+ (project-kill-buffers-display-buffer-list): Option to toggle
+ temporarily display of the list of buffers to kill when calling
+ project-kill-buffers
+ (project-kill-buffers): Handle
+ project-kill-buffers-display-buffer-list option (bug#52148).
+
+2021-11-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Signal a better error in tabulated-list-sort
+
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Signal
+ error earlier on invalid column numbers (bug#52154).
+
+2021-11-29 Yuuki Harano <masm+github@masm11.me>
+
+ * src/xdisp.c (mouse_face_from_buffer_pos): Revert whitespace only
change
+
+2021-11-29 Yuuki Harano <masm+github@masm11.me>
+
+ Remove draw_glyphs_debug
+
+ It is left-over from debugging, and not needed any more.
+
+ * src/xdisp.c (draw_glyphs_debug):
+ (draw_glyphs):
+
+2021-11-29 Yuuki Harano <masm+github@masm11.me>
+
+ Replace XFillRectangle with cairo_rectangle and cairo_fill
+
+ * src/pgtkterm.c (pgtk_flash):
+
+2021-11-29 Yuuki Harano <masm+github@masm11.me>
+
+ Use /* */ comment style instead of //
+
+ * src/gtkutil.c (xg_create_frame_widgets):
+ * src/pgtkfns.c (Fx_create_frame):
+ (frame_geometry):
+ * src/pgtkterm.c (pgtk_mouse_position):
+ (pgtk_redisplay_interface):
+ (pgtk_clear_frame):
+ (pgtk_create_terminal):
+ (struct pgtk_window_is_of_frame_recursive_t):
+ (key_press_event):
+ (syms_of_pgtkterm):
+
+2021-11-29 Daniel Martín <mardani29@yahoo.es>
+
+ Use mupdf in doc-view-mode if gs is not installed
+
+ * lisp/doc-view.el (doc-view-mode-p): Use mupdf to render PDF and
+ related formats if gs is not installed (bug#52170).
+
+2021-11-29 Ikumi Keita <ikumi@ikumi.que.jp> (tiny change)
+
+ Make fill-region-as-paragraph clear the markers it creates
+
+ * lisp/textmodes/fill.el (fill-region-as-paragraph): Clear
+ temporary markers (bug#52175).
+
+2021-11-29 Gregory Heytings <gregory@heytings.org>
+
+ Do not buttonize key bindings outside of *Help* buffers
+
+ * etc/NEWS: Mention the new variable.
+
+ * lisp/apropos.el (apropos-describe-plist): Bind the new
+ variable (bug#52053).
+ * lisp/button.el (button-describe): Bind the new variable.
+
+ * lisp/help-fns.el (describe-function, describe-variable)
+ (describe-face, describe-symbol, describe-syntax)
+ (describe-categories, describe-keymap, describe-mode)
+ (describe-widget): Bind the new variable.
+
+ * lisp/help-macro.el (make-help-screen): Bind the new variable.
+
+ * lisp/help.el (help-buffer-under-preparation): New variable
+ that is bound to t by commands that create a *Help* buffer.
+ (substitute-command-keys): Use the new variable:
+ help-link-key-to-documentation is supposed to have an effect
+ only "in *Help* buffers". Fixes bug#52053.
+ (view-lossage, describe-bindings, describe-key): Bind the new
+ variable.
+
+ * lisp/repeat.el (describe-repeat-maps): Bind the new variable.
+
+ * lisp/international/mule-cmds.el (describe-input-method)
+ (describe-language-environment): Bind the new variable.
+
+ * lisp/international/mule-diag.el (describe-character-set)
+ (describe-coding-system, describe-font, describe-fontset)
+ ((list-fontsets): Bind the new variable.
+
+2021-11-29 Alan Mackenzie <acm@muc.de>
+
+ First commit of scratch/correct-warning-pos.
+
+ This branch is intended to generate correct position information in
warning
+ and error messages from the byte compiler, and is intended thereby to
fix bugs
+
+ It introduces a new mechanism, the symbol with position. This is taken
over
+ from the previous git branch scratch/accurate-warning-pos which was
abandoned
+ for being too slow. The main difference in the current branch is that
the
+ symbol `nil' is never given a position, thus speeding up NILP markedly.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
+ (byte-optimize-form-code-walker, byte-optimize-let-form,
byte-optimize-while)
+ (byte-optimize-apply): Use byte-compile-warn-x in place of
byte-compile-warn.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--form-stack): New variable.
+ (byte-compile-strip-s-p-1, byte-compile-strip-symbol-positions): New
+ functions.
+ (byte-compile-recurse-toplevel, byte-compile-initial-macro-environment)
+ (byte-compile-preprocess, byte-compile-macroexpand-declare-function):
Bind
+ print-symbols-bare to non-nil.
+ (byte-compile--first-symbol, byte-compile--warning-source-offset): New
+ functions.
+ (byte-compile-warning-prefix): Modify to output two sets of position
+ information, the old (incorrect) set and the new set.
+ (byte-compile-warn): Strip positions from symbols before outputting.
+ (byte-compile-warn-x): New function which outputs a correct position
supplied
+ in an argument.
+ (byte-compile-warn-obsolete, byte-compile-emit-callargs-warn)
+ (byte-compile-format-warn, byte-compile-nogroup-warn)
+ (byte-compile-arglist-warn, byte-compile-docstring-length-warn)
+ (byte-compile-warn-about-unresolved-functions, byte-compile-file)
+ (byte-compile--check-prefixed-var, byte-compile--declare-var)
+ (byte-compile-file-form-defvar-function,
byte-compile-file-form-defmumble)
+ (byte-compile-check-lambda-list, byte-compile--warn-lexical-dynamic)
+ (byte-compile-lambda, byte-compile-form, byte-compile-normal-call)
+ (byte-compile-check-variable, byte-compile-free-vars-warn)
+ (byte-compile-subr-wrong-args, byte-compile-fset,
byte-compile-set-default)
+ (byte-compile-condition-case, byte-compile-save-excursion)
+ (byte-compile-defvar, byte-compile-autoload)
+ (byte-compile-make-variable-buffer-local,
byte-compile-define-symbol-prop)
+ (byte-compile-define-keymap): Replace byte-compile-warn with
+ byte-compile-warn-x.
+ (byte-compile-file, compile-defun): Bind symbols-with-pos-enabled to
non-nil.
+ (compile-defun, byte-compile-from-buffer): Use
`read-positioning-symbols'
+ rather than plain `read'.
+ (byte-compile-toplevel-file-form, byte-compile-form): Dynamically bind
+ byte-compile--form-stack.
+ (byte-compile-file-form-autoload, byte-compile-file-form-defvar)
+ (byte-compile-file-form-make-obsolete, byte-compile-lambda)
+ (byte-compile-push-constant, byte-compile-cond-jump-table)
+ (byte-compile-define-keymap, byte-compile-annotate-call-tree):
+ Strip positions from symbols where they are unwanted.
+ (byte-compile-file-form-defvar): Strip positions from symbols using
+ `bare-symbol'.
+ (byte-compile-file-form-defmumble): New variable bare-name, a version
of name
+ without its position.
+ (byte-compile-lambda): Similarly, new variable bare-arglist.
+ (byte-compile-free-vars-warn): New argument arg supplying position
information
+ to byte-compile-warn-x.
+ (byte-compile-push-constant): Manipulation of symbol positions.
+ (display-call-tree): Strip positions from symbols.
+
+ * lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
+ (cconv--analyze-function, cconv-analyze-form): Replace use of
+ byte-compile-warn with byte-compile-warn-x.
+
+ * lisp/emacs-lisp/cl-generic.el (cl-defmethod): New variable org-name
which
+ will supply position information to a new macroexp-warn-and-return.
+
+ * lisp/emacs-lisp/cl-macs.el (cl-macs--strip-s-p-1)
+ (cl-macs--strip-symbol-positions): New functions to strip positions
from
+ symbols in an expression. These duplicaate similarly named functions
in
+ bytecomp.el.
+
+ * lisp/emacs-lisp/macroexpand.el (macroexp--warn-wrap): Calls
+ byte-compile-warn-x in place of byte-compile-warn.
+ (macroexp-warn-and-return): Commented out new position parameter _arg.
+
+ * src/.gdbinit: Add in code to handle symbols with position.
+
+ * src/alloc.c (XPNTR, set_symbol_name, valid_lisp_object_p, purecopy)
+ (mark_char_table, mark_object, survives_gc_p, symbol_uses_obj): Use
+ BARE_SYMBOL_P and XBARE_SYMBOL in place of the former SYMBOLP and
XSYMBOL.
+ (build_symbol_with_pos): New function.
+ (Fgarbage_collect): Bind Qsymbols_with_pos_enabled to nil around the
call to
+ garbage_collect.
+
+ * src/data.c (Ftype_of): Add case for PVEC_SYMBOL_WITH_POS.
+ (Fbare_symbol_p, Fsymbol_with_pos_p, Fbare_symbol, Fsymbol_with_pos_pos)
+ (Fposition_symbol): New functions.
+ (symbols_with_pos_enabled): New boolean variable.
+
+ * src/fns.c (internal_equal, hash_lookup): Handle symbols with position.
+
+ * src/keyboard.c (recursive_edit_1): Bind Qsymbols_with_pos_enabled and
+ Qprint_symbols_bare to nil.
+
+ * src/lisp.h (lisp_h_PSEUDOVECTORP): New macro.
+ (lisp_h_BASE_EQ): New name for the former lisp_h_EQ.
+ (lisp_h_EQ): Extended to handle symbols with position.
+ (lisp_h_NILP): Now uses BASE_EQ rather than EQ.
+ (lisp_h_SYMBOL_WITH_POS_P, lisp_h_BARE_SYMBOL_P): New macros.
+ (lisp_h_SYMBOLP): Redefined to handle symbols with position.
+ (BARE_SYMBOL_P, BASE_EQ): New macros.
+ (SYMBOLP (macro)): Removed.
+ (SYMBOLP (function), XSYMBOL, make_lisp_symbol, builtin_lisp_symbol)
+ (c_symbol_p): Moved to later in file.
+ (struct Lisp_Symbol_With_Pos): New data type.
+ (pvec_type): PVEC_SYMBOL_WITH_POS: New type code.
+ (PSEUDOVECTORP): Redefined to use the lisp_h_PSEUDOVECTORP.
+ (BARE_SYMBOL_P, SYMBOL_WITH_POS_P, SYMBOLP, XSYMBOL_WITH_POS,
XBARE_SYMBOL)
+ (XSYMBOL, make_lisp_symbol, builtin_lisp_symbol, c_symbol_p,
CHECK_SYMBOL)
+ (BASE_EQ): New functions, or functions moved from earlier in the file.
+ (SYMBOL_WITH_POS_SYM, SYMBOL_WITH_POS_POS): New INLINE functions.
+
+ * src/lread.c (read0, read1, read_list, read_vector,
read_internal_start)
+ (list2): Add a new bool parameter locate_syms.
+ (Fread_positioning_symbols): New function.
+ (Fread_from_string, read_internal_start, read0, read1, read_list): Pass
around
+ suitable values for locate_syms.
+ (read1): Build symbols with position when locate_syms is true.
+
+ * src/print.c (print_vectorlike): Add handling for PVEC_SYMBOL_WITH_POS.
+ (print_object): Replace EQ with BASE_EQ.
+ (print_symbols_bare): New boolean variable.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Really make `x-scroll-event-delta-factor' dependent on system
+
+ * lisp/cus-start.el: Move X specific builtins that start
+ with "x-" before the catch-all test.
+
+2021-11-29 Andreas Schwab <schwab@linux-m68k.org>
+
+ Avoid undefined behaviour when copying part of structure
+
+ * src/dispnew.c (copy_row_except_pointers): Don't use address of
+ subobject as starting point.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Fix last change for non-X platforms
+
+ * lisp/cus-start.el: Don't announce
+ `scroll-bar-adjust-thumb-portion' on non-X systems.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Allow customizing the pixel delta of wheel events on X
+
+ * lisp/cus-start.el: Add `x-scroll-event-delta-factor'.
+ * src/xterm.c (handle_one_xevent): Apply scroll event
+ delta factor to wheel events with pixel data.
+ (Vx_scroll_event_delta_factor): New user option.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ Make overhangs in ftcrfont work on Haiku
+
+ * src/ftcrfont.c (ftcrfont_draw): Dump left overhang clipping
+ on Haiku and always set `background_filled_p'.
+
+2021-11-29 Po Lu <luangruo@yahoo.com>
+
+ * doc/emacs/haiku.texi (Haiku Basics): Fix a typo.
+
+2021-11-29 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c4daff9cf8 * Makefile.in (PREFERRED_BRANCH): Now emacs-28.
+ bca57086be ; Remove an obsolete comment
+ 455b64c336 * src/coding.c (Fdecode_coding_region, Fencode_coding_regi...
+
+2021-11-28 Po Lu <luangruo@yahoo.com>
+
+ Update XKB map on MappingNotify
+
+ * src/xterm.c (handle_one_xevent): Update XKB map when X
+ tells us the keyboard map has been updated.
+
+2021-11-28 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak gnus-art key binding
+
+ * lisp/gnus/gnus-art.el (:keymap): Fix mnemonic key binding.
+
+2021-11-28 Mattias Engdegård <mattiase@acm.org>
+
+ Use compiler macros for the key syntax checks
+
+ Compile-time key string syntax checks are better written using
+ compiler macros than with byte-hunk-handlers inside the compiler
+ proper.
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-define-keymap)
+ (byte-compile-define-keymap--define): Remove.
+ * lisp/keymap.el (keymap--compile-check): New.
+ (keymap-set, keymap-global-set, keymap-local-set, keymap-global-unset)
+ (keymap-local-unset, keymap-unset, keymap-substitute)
+ (keymap-set-after, key-translate, keymap-lookup, keymap-local-lookup)
+ (keymap-global-lookup): Use compiler-macro for argument checks.
+ * lisp/subr.el (define-keymap--compile): New.
+ (define-keymap--define): Fold into define-keymap.
+ (define-keymap): Use compiler-macro.
+ (defvar-keymap): Use define-keymap.
+
+2021-11-28 Mattias Engdegård <mattiase@acm.org>
+
+ Avoid unused argument warnings in lambda compiler macros
+
+ * lisp/emacs-lisp/byte-run.el (byte-run--set-compiler-macro):
+ Don't warn when a compiler macro with lambda-form expander does not
+ use all the arguments of the function. Nobody expected any warning
+ since the arguments look like free variables inside the lambda form.
+
+2021-11-28 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 1fffe9a210 ; * lisp/org/org.el: Fix version header.
+ 2a4de5e5e5 Fix Subject when forwarding message with 2-line From
+ b8b2dd17c5 Update to Org 9.5.1-11-g96d91b
+ a937f536b3 * doc/lispref/commands.texi (Click Events): Fix wording (b...
+
+2021-11-28 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt gitlab-ci.yml
+
+ * test/infra/gitlab-ci.yml (variables): Set EMACS_TEST_TIMEOUT to 3600.
+ (.job-template, .test-template): Another approach to catch test
+ artifacts on emba.
+
+2021-11-28 Po Lu <luangruo@yahoo.com>
+
+ Make haiku-win build correctly on non-Haiku systems
+
+ * lisp/term/haiku-win.el (haiku-selection-targets): Add
+ missing declaration.
+
+2021-11-28 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget popups on XI2 again
+
+ * src/xwidget.c (xwidget_button_1): Release seat grab.
+
+2021-11-28 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget popups on XI2
+
+ * src/gtkutil.c (xg_is_menu_window): Determine whether wdesc
+ is a menu generated by a menu bar more reliably.
+
+ * src/xwidget.c (xwidget_button_1): Release all XI2 grabs on
+ click.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Fix typos in configure.ac
+
+ * configure.ac: Fix typos in wording of XInput 2 options.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Make `pixel-scroll-precision-scroll-up' work better with overlays
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-up):
+ Just set vscroll when on overlay.
+
+2021-11-27 Michael Albinus <michael.albinus@gmx.de>
+
+ Simplify use of artifacts in emba files
+
+ * test/infra/gitlab-ci.yml (.test-template): Re-insert.
+ (test-all-inotify, test-filenotify-gio, test-gnustep)
+ (test-native-comp-speed0):
+ * test/infra/Makefile.in (subdir_template): Use it when
+ appropriate. Remove artifacts.
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+2021-11-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * test/src/comp-tests.el: Rework last patch
+
+ Move `require`s out of `eval-when-compile` if the functions are called
+ at run-time.
+ Don't use #' to quote symbols (i.e. at those places where a lambda
+ expression couldn't be used).
+ Don't pre-load comp-test-45603.el and comp-test-pure.el any more.
+
+ (comp-deftest pure): Use `declare-function` after loading
`comp-test-pure.el`
+ to silence the byte-compiler.
+
+2021-11-27 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid assertion violations in --enable-checking builds
+
+ * src/xdisp.c (gui_produce_glyphs): Make sure character glyphs
+ don't trigger assertion violation due to negative ascent or
+ descent. This was reporte dto happen with some fonts used by the
+ xfont backend.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Improve documentation of wheel events
+
+ * doc/lispref/commands.texi (Misc Events): Add missing
+ parameters to `wheel-up' and `wheel-down'.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Fix pixel scroll for overlays and text in display properties
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down):
+ Just set vscroll if we're scrolling through an overlay or
+ something to that effect.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Set motion event time when handling XI2 motion events
+
+ * src/xterm.c (handle_one_xevent): Set motion event time when
+ handling XI_Motion.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Remove GC prone call in `pixel-point-and-height-at-unseen-line'
+
+ * lisp/pixel-scroll.el (pixel-point-and-height-at-unseen-line):
+ Remove call to unnecessary call to `beginning-of-visual-line'.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Make `pixel-scroll-precision-scroll-up' slightly more robust
+
+ * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-up):
+ Subtract from existing vscroll if feasible.
+
+2021-11-27 Po Lu <luangruo@yahoo.com>
+
+ Make `pixel-scroll-precision-scroll-up' use existing logic
+
+ * lisp/pixel-scroll.el (pixel-point-at-unseen-line): Rewrite
+ to use `pixel-point-and-height-at-unseen-line'.
+ (pixel-point-and-height-at-unseen-line): New function.
+ (pixel-scroll-precision-scroll-up): Use existing logic
+ to determine unseen line position.
+
+2021-11-26 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ time-stamp-tests.el: Test more formats
+
+ * test/lisp/time-stamp-tests.el (time-stamp-format-ignored-modifiers):
+ Additional testing with illegal formats, including "%".
+ (time-stamp-format-multiple-conversions): Add a test with "%%%".
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Set initial tab bar parameter on NS
+
+ * src/nsfns.m (Fx_create_frame): Initialize `tab-bar-lines'
+ frame parameter during frame creation.
+
+2021-11-26 Alan Third <alan@idiocy.org>
+
+ Silence NS warnings
+
+ * src/nsterm.m ([EmacsView mouseDown:]): Move variables into the block
+ where they're used.
+
+2021-11-26 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ * test/src/comp-tests.el: Eliminate byte-compiler warnings (Bug#52105).
+
+2021-11-26 Robert Pluim <rpluim@gmail.com>
+
+ Specify initial values for glyphless-char-display-control elements
+
+ * lisp/international/characters.el (glyphless-char-display-control):
+ Specify :value for all the elements, since nil is not a valid value.
+
+2021-11-26 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt test/infra/gitlab-ci.yml
+
+ * test/infra/gitlab-ci.yml (test-all-inotify)
+ (test-filenotify-gio, test-gnustep, test-native-comp-speed0):
+ Add or adapt artifacts.
+
+2021-11-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new face `gnus-header'
+
+ * lisp/gnus/gnus-art.el (gnus-header): New face.
+ (gnus-header-from, gnus-header-subject, gnus-header-newsgroups)
+ (gnus-header-name, gnus-header-content): Inherit from this new face.
+
+2021-11-26 Robert Pluim <rpluim@gmail.com>
+
+ Adjust custom-face-attributes for 'regular' weight
+
+ Following the changes to support "medium" weight fonts, the weight for
+ "normal" fonts is now reported as 'regular', which caused
+ customize-face to display faces as lisp-expressions, since it didn't
+ recognize that. This has been corrected.
+
+ * lisp/cus-face.el (custom-face-attributes): Recognize 'regular' as a
+ weight.
+
+2021-11-26 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add an intermediary face for mode lines: `mode-line-active'
+
+ * doc/emacs/display.texi (Standard Faces): Document the new face.
+
+ * lisp/faces.el (mode-line-active): New face.
+ (mode-line): Don't inherit from vaiable-pitch.
+
+ * src/xfaces.c (lookup_basic_face, realize_basic_faces)
+ (syms_of_xfaces):
+ * src/xdisp.c (window_box_height, window_text_pixel_size)
+ (display_mode_lines, Fformat_mode_line):
+ * src/dispextern.h (CURRENT_MODE_LINE_ACTIVE_FACE_ID_3)
+ (CURRENT_MODE_LINE_ACTIVE_FACE_ID, enum face_id): Rename from
+ *MODE_LINE_FACE_ID to *MODE_LINE_ACTIVE_FACE_ID.
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Move the precision pixel scrolling feature to pixel-scroll.el
+
+ * etc/NEWS: Update NEWS entry for 'pixel-scroll-precision-mode'
+
+ * lisp/better-pixel-scroll.el: Remove file.
+
+ * src/pixel-scroll.el (x-coalesce-scroll-events): New variable
+ declaration.
+ (pixel-scroll-precision-mode-map): New variable.
+ (pixel-scroll-precision-scroll-down):
+ (pixel-scroll-precision-scroll-up):
+ (pixel-scroll-precision): New functions.
+ (pixel-scroll-precision-mode): New minor mode.
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Explain confusing aspects of XInput 2 scroll wheel reporting
+
+ * src/xterm.c (x_init_master_valuators): Explain how XInput 2
+ reports scroll wheel movement.
+
+ (handle_one_xevent): Explain why XI2 scroll valuators
+ are reset after each enter events.
+
+2021-11-26 Dmitry Gutov <dgutov@yandex.ru>
+
+ Remove empty lines from stash read prompt
+
+ * lisp/vc/vc-git.el (vc-git-stash-read): Pass OMIT-NULLS (bug#52119).
+ (vc-git-stash-list): Simplify.
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Make XInput 2 builds work without cairo
+
+ * src/xterm.c: Move some defines around so XI2 code doesn't
+ get ifdef'd out if Cairo is disabled.
+
+2021-11-26 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ cfaf681d3d ; * src/emacs.c (main): Add commentary about command-line ...
+ 4d16a2f737 Fix pdf generation with Texinfo 6.7
+ a22c9a34bd Fix 'posn-at-point' near some overlays
+ d1aa552d11 ; * CONTRIBUTE: No cleanups on release branches, even in d...
+ 588caf0b27 * lisp/repeat.el (repeat-post-hook): Add check symbolp rep...
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Fix sign of pixel scroll events on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Fix sign of scroll
+ events.
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Make tab bar option visible in the menu bar on NS
+
+ * lisp/menu-bar.el (menu-bar-showhide-menu): Make
+ `showhide-tab-bar' visible on NS as well.
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Make pixel scrolling through images at the first line smoother
+
+ * lisp/better-pixel-scroll.el (better-pixel-scroll-scroll-up):
+ Try to reset vscroll if already vscrolled.
+
+2021-11-26 Po Lu <luangruo@yahoo.com>
+
+ Don't perform pixel scrolling when window is hscrolled
+
+ * lisp/better-pixel-scroll.el (better-pixel-scroll): Call
+ mwheel-scroll instead if window is hscrolled.
+
+2021-11-25 Po Lu <luangruo@yahoo.com>
+
+ Add `better-pixel-scroll-mode'
+
+ * etc/NEWS: Announce `better-pixel-scroll-mode'.
+ * lisp/better-pixel-scroll.el: New file.
+
+2021-11-25 Alan Third <alan@idiocy.org>
+
+ Fix selection for old GNUstep and GCC
+
+ * src/nsselect.m (ns_get_foreign_selection): Remove language features
+ not yet supported by GCC. Be more selective with which pasteboard
+ types we use.
+ * src/nsterm.h: Set up some more #defines for deprecated variables.
+
+2021-11-25 Eli Zaretskii <eliz@gnu.org>
+
+ Update 'custom-face-attributes'
+
+ * lisp/cus-face.el (custom-face-attributes): Synchronize with
+ tables in font.c.
+
+2021-11-25 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/emacs.c (usage_message): Fix name of --seccomp option.
+
+2021-11-25 Eli Zaretskii <eliz@gnu.org>
+
+ Fix handling of '--dump-file' command-line option
+
+ * lisp/startup.el (command-line-1): Handle "--dump-file" and
+ "--seccomp" if they are left on the command-line. (Bug#52106)
+
+2021-11-25 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ MH-E: support Mailutils "folders +/"
+
+ * lisp/mh-e/mh-utils.el (mh-sub-folders-parse):
+ Support Mailutils style of "folders +/" output.
+ * test/lisp/mh-e/mh-utils.el:
+ Test "folders +/" with GNU Mailutils 3.13.91 and later.
+
+2021-11-25 Robert Pluim <rpluim@gmail.com>
+
+ Correct the :inherit property on some faces
+
+ Otherwise M-x customize-face will show them as lisp-expressions rather
+ than nice widgets.
+
+ * lisp/ansi-color.el (ansi-color-bold):
+ (ansi-color-italic):
+ (ansi-color-underline):
+ * lisp/faces.el (mode-line): Don't quote the face we're inheriting
+ from.
+
+2021-11-25 Robert Pluim <rpluim@gmail.com>
+
+ * doc/misc/flymake.texi: Correct local variable mode specification
+
+2021-11-25 Robert Pluim <rpluim@gmail.com>
+
+ Don't display redundant 'see' in info-mode
+
+ * lisp/info.el (Info-fontify-node): Don't show 'see' when displaying
+ the result of "(See @ref" or "also @ref", but leave "Also @ref" alone.
+
+2021-11-25 Michael Albinus <michael.albinus@gmx.de>
+
+ Tag a test from process-tests.el as :unstable on emba.
+
+ * test/src/process-tests.el (process-tests/multiple-threads-waiting):
+ Tag it as :unstable on emba.
+
+2021-11-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add temporary mode-line-position change
+
+ * lisp/bindings.el (mode-line-position): Add interim solution to
+ make `min-width' work here; this should be fixed for real in the
+ display_line machinery somewhere.
+
+2021-11-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Indent `closure' forms better
+
+ * lisp/emacs-lisp/lisp-mode.el (closure): Indent `closure' forms
+ better (bug#52063).
+
+2021-11-25 Po Lu <luangruo@yahoo.com>
+
+ Fix scroll wheel reporting on NS
+
+ * src/nsterm.m (- mouseDown): Clear scroll wheel
+ accumulators.
+
+2021-11-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Define a face for shr text
+
+ * lisp/net/shr.el (shr-text): New face.
+ (shr-insert): Use it instead of hard-coding `variable-pitch'.
+
+2021-11-25 Po Lu <luangruo@yahoo.com>
+
+ Set serial when filtering XI_KeyPress events
+
+ This fixes fcitx flicker for whatever reason.
+
+ * src/xterm.c (handle_one_xevent): Set serial when filtering
+ XI_KeyPress events.
+
+2021-11-24 Po Lu <luangruo@yahoo.com>
+
+ Add support for pixel wheel deltas on NS
+
+ * src/xterm.c (x_coalesce_scroll_events): Update doc string.
+ * src/nsterm.c (- mouseDown): Report pixel scroll deltas.
+ (x_coalesce_scroll_events): New variable
+
+2021-11-24 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ mh-utils-tests: 'mh-sub-folders-actual' coverage
+
+ * test/lisp/mh-e/mh-utils.el (mh-sub-folders-parse-no-folder)
+ (mh-sub-folders-parse-relative-folder,
mh-sub-folders-parse-root-folder):
+ New tests.
+ * lisp/mh-e/mh-utils.el (mh-sub-folders-parse): New function,
+ refactored out of 'mh-sub-folders-actual' to create a testing seam.
+
+2021-11-24 Matt Kramer <mkramer@lbl.gov> (tiny change)
+
+ Fix tab-line cycling when using buffer groups (bug#52050)
+
+ * lisp/tab-line.el (tab-line-switch-to-prev-tab,
tab-line-switch-to-next-tab):
+ Remove tabs that aren't associated with a buffer, such as the
`group-tab' that
+ exists when `tab-line-tabs-function' is `tab-line-tabs-buffer-groups'.
+
+2021-11-24 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ b4f47d2 Use @pxref when necessary
+
+2021-11-24 Michael Albinus <michael.albinus@gmx.de>
+
+ Some optimizations for emba jobs
+
+ * test/infra/gitlab-ci.yml (.test-template): Remove.
+ (test-all-inotify, test-filenotify-gio, test-gnustep)
+ (test-native-comp-speed0):
+ * test/infra/Makefile.in (subdir_template): Remove .test-template
+ from extends. Add or adapt needs and artifacts.
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove APPEND argument from add-display-text-property
+
+ * doc/lispref/display.texi (Display Property): Update doc.
+ * lisp/emacs-lisp/subr-x.el (add-display-text-property): Remove
+ the append argument -- it's nonsensical.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix min-width problem with "overlapping" regions
+
+ * src/xdisp.c (handle_display_prop): Fix problem with overlapping
+ regions.
+
+2021-11-24 Juri Linkov <juri@linkov.net>
+
+ * lisp/outline.el (outline-font-lock-keywords): Replace ‘.+’ with ‘.*’.
+
+ Make the regexp less restrictive and don't require the outline heading
+ to have more text after outline-regexp until the end of the heading line
+ (bug#51016).
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function 'add-display-text-property'
+
+ * doc/lispref/display.texi (Display Property): Document it.
+ * lisp/emacs-lisp/subr-x.el (add-display-text-property): New function.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change eshell-mode mode-line-format insinuation
+
+ * lisp/eshell/esh-mode.el (eshell-mode): Tweak how the mode line
+ is altered after recent mode-line-format changes.
+
+2021-11-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of 'min-width' display spec.
+
+ * doc/lispref/display.texi (Other Display Specs): Clarify
+ documentation of the 'min-width' display spec.
+
+2021-11-24 Narendra Joshi <narendraj9@gmail.com> (tiny change)
+
+ * lisp/vcursor.el (vcursor-get-char-count): Preserve point
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in display_min_width comment
+
+ * src/xdisp.c (display_min_width): Fix typo in comment.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make min-width of the U:-- wider
+
+ * lisp/bindings.el (standard-mode-line-format): Make the modified
+ bits larger since there's often a big difference between - and %
+ characters.
+
+2021-11-24 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ mh-utils-tests: Add new tests of "folders +/"
+
+ * test/lisp/mh-e/mh-utils-tests.el
+ (mh-sub-folders-actual, mh-sub-folders): Add new tests of "folders +/".
+ Rewrite tests that were using 'assoc' to use 'member' instead, so that
+ on failure, ERT logs the list of which the element was not a member,
+ rather than the 'nil' returned by 'assoc'.
+ (mh-test-variant-handles-plus-slash): Factor out new helper function.
+ (mh-folder-completion-function-08-plus-slash)
+ (mh-folder-completion-function-09-plus-slash-tmp):
+ Use new helper function.
+ * test/lisp/mh-e/test-all-mh-variants.sh: LD_LIBRARY_PATH unnecessary.
+
+2021-11-24 Eli Zaretskii <eliz@gnu.org>
+
+ Minor fixes for a recent commit
+
+ * src/xdisp.c (find_display_property): Fix style of comments.
+ (Fget_display_property): Doc fix.
+ (get_display_property): Fix style and whitespace.
+
+2021-11-24 Mattias Engdegård <mattiase@acm.org>
+
+ Add sample of -fanalyzer output (bug#51882)
+
+ * etc/compilation.txt (file): Add fragment of GCC diagnostics from
+ -fanalyzer (from Philip Kaludercic).
+
+2021-11-24 Mattias Engdegård <mattiase@acm.org>
+
+ Tighten `gnu` compile regexp further
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ The -fanalyzer ASCII art does not contain tabs.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use a proportional font for the mode line
+
+ * lisp/bindings.el (mode-line-position): Add min-width specs.
+ (standard-mode-line-format): Ditto.
+
+ * lisp/faces.el (mode-line): Inherit from `variable-pitch'.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make display_min_width work from the mode line
+
+ * src/xdisp.c (display_min_width): Make this work from mode line
+ constructs via display_string.
+
+2021-11-24 Robert Pluim <rpluim@gmail.com>
+
+ * admin/unidata/emoji-zwj.awk: Quote functions properly.
+
+2021-11-24 Po Lu <luangruo@yahoo.com>
+
+ Make `yank-media' work on Haiku
+
+ This works with what WebPositive does with images, at least. I don't
+ know about other programs, but Haiku doesn't seem to standardize this
+ very well.
+
+ * lisp/term/haiku-win.el (haiku--selection-type-to-mime): Handle
+ regular symbols.
+ (gui-backend-get-selection): Handle special type `TARGETS'.
+ (gui-backend-set-selection): Always clear clipboard.
+
+ * src/haiku_select.cc (BClipboard_get_targets): New function.
+ (BClipboard_set_data): New argument `clear'. All callers
+ changed.
+ (BClipboard_set_system_data)
+ (BClipboard_set_primary_selection_data)
+ (BClipboard_set_secondary_selection_data): New argument `clear'.
+
+ (BClipboard_system_targets, BClipboard_primary_targets)
+ (BClipboard_secondary_targets): New functions.
+
+ * src/haikuselect.c (haiku_selection_data_1): New function.
+ (Fhaiku_selection_targets): New function.
+ (Fhaiku_selection_put): Allow controlling if the clipboard is
+ cleared.
+ (syms_of_haikuselect): New symbols and subrs.
+
+ * src/haikuselect.h (BClipboard_set_system_data)
+ (BClipboard_set_primary_selection_data)
+ (BClipboard_set_secondary_selection_data): New argument `clear'.
+
+ (BClipboard_system_targets, BClipboard_primary_targets)
+ (BClipboard_secondary_targets): New functions.
+
+2021-11-24 Michael Albinus <michael.albinus@gmx.de>
+
+ * admin/notes/emba (Emacs jobset): Remove stage slow.
+
+ * test/infra/Makefile.in (subdir_template): Add rule.
+
+ * test/infra/gitlab-ci.yml (.job-template): Remove changes section.
+ (.build-template, .gnustep-template, .filenotify-gio-template):
+ (.native-comp-template): Adapt changes section.
+ (.test-template): Add needs. Adapt artifacts paths.
+ (stages): Remove slow.
+ (test-all-inotify): Move up. Change stage to normal. Remove timeout.
+ (test-filenotify-gio, test-gnustep, test-native-comp-speed0):
+ Move needs up.
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix min-width end condition handling
+
+ * src/xdisp.c (handle_display_prop): Fix check for min-width ends
+ -- they may be consecutive.
+
+2021-11-24 Po Lu <luangruo@yahoo.com>
+
+ Correct adjustments to frame widths in events
+
+ * src/haiku_support.cc (EmacsWindow.FrameResized)
+ (EmacsWindow.Zoom): Adjust widths to fit into the correct
+ coordinate system.
+
+2021-11-24 Po Lu <luangruo@yahoo.com>
+
+ Remove unused arguments to EmacsView.AfterResize
+
+ * src/haiku_support.cc (EmacsView.AfterResize): Remove
+ unused arguments.
+ (BView_resize_to): Stop passing unused arguments.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add support for the min-width display property
+
+ * doc/lispref/display.texi (Display Property): Document
+ get-display-property.
+ (Other Display Specs): Document min-width property.
+
+ * src/dispextern.h (struct it): Add fields for min-width handling.
+
+ * src/xdisp.c (find_display_property, get_display_property): New
+ helper functions.
+ (display_min_width): Insert stretch glyphs based on the min width.
+ (Fget_display_property): New defun.
+ (handle_display_prop): Handle min-width ends.
+ (handle_single_display_spec): Handle min-width starts.
+
+2021-11-24 Gregory Heytings <gregory@heytings.org>
+
+ Re-enable the disabledForeground X resource.
+
+ * doc/emacs/xresources.texi (Lucid Resources): Document the resource.
+ Also document the 'cursor' resource (bug#52052).
+ * lwlib/xlwmenu.c (make_drawing_gcs): Re-enable the use of the
+ disabledForeground resource. The use of this X resource was disabled
+ without reason in commit ef93458b2f8 by overwriting its value with the
+ value of the foreground resource.
+
+2021-11-24 Alan Third <alan@idiocy.org>
+
+ Allow NS to handle non-text clipboard contents
+
+ * src/nsselect.m (ns_get_foreign_selection): Handle non-plain text
+ clipboard entries.
+ (ns_string_from_pasteboard): Remove EOL conversion.
+ (syms_of_nsselect): Define QTARGETS.
+
+2021-11-24 Po Lu <luangruo@yahoo.com>
+
+ Clear past end of frame on Haiku
+
+ * src/haiku_support.c (EmacsWindow.FrameResized): Delete
+ size adjustment.
+
+ * src/haikuterm.c (haiku_clear_frame): Clear one pixel
+ past the end of the frame.
+
+2021-11-24 Po Lu <luangruo@yahoo.com>
+
+ Fix 1 pixel wide border in frames on Haiku
+
+ * src/haiku_support.cc (EmacsWindow.FrameResized): Add 1 to
+ pixel widths.
+
+ * src/haikuterm.c (haiku_read_socket): Use `lrint' to round
+ widths.
+
+2021-11-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix string-glyph-split infloop
+
+ * lisp/emacs-lisp/subr-x.el (string-glyph-split): Fix infloop when
+ applied to (string-glyph-split "✈️🌍") (bug#52067).
+
+2021-11-24 Gregory Heytings <gregory@heytings.org>
+
+ Pass options from make to configure through a variable.
+
+ * GNUmakefile (configure): Use the variable.
+
+ * INSTALL.REPO: Document the variable (bug#51965).
+
+2021-11-24 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 756b8a5f1b Fix typos in documentation
+ 38fdeaef46 ; * etc/DEBUG: Fix last change.
+
+2021-11-23 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse-wheel-text-scale
+
+ * lisp/mwheel.el (mouse-wheel-text-scale): Test for alternative
+ events correctly.
+
+2021-11-23 Po Lu <luangruo@yahoo.com>
+
+ Remove extraneous code left over from the ftbe font driver
+
+ * src/haikuterm.c (syms_of_haikuterm): Remove dead code.
+
+2021-11-23 Po Lu <luangruo@yahoo.com>
+
+ Use only effective modifiers when handling XI2 button events
+
+ * src/xterm.c (handle_one_xevent): Use mods.effective when
+ constructing button events.
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Remove PGTK_DEBUG stuff
+
+ * src/gtkutil.c:
+ (xg_create_frame_widgets):
+ (xg_create_frame_outer_widgets):
+ (x_wm_set_size_hint):
+ (xg_set_toolkit_scroll_bar_thumb):
+ * src/pgtkfns.c (x_set_background_color):
+ (pgtk_set_name):
+ (x_explicitly_set_name):
+ (pgtk_implicitly_set_name):
+ (x_set_title):
+ (Fx_create_frame):
+ (Fpgtk_set_mouse_absolute_pixel_position):
+ (pgtk_log):
+ (pgtk_backtrace):
+ * src/pgtkselect.c (get_func):
+ (clear_func):
+ (pgtk_selection_lost):
+ (Fpgtk_own_selection_internal):
+ (Fpgtk_disown_selection_internal):
+ (Fpgtk_selection_exists_p):
+ (Fpgtk_selection_owner_p):
+ (nxatoms_of_pgtkselect):
+ (syms_of_pgtkselect):
+ * src/pgtkterm.c (flip_cr_context):
+ (get_keysym_name):
+ (frame_set_mouse_pixel_position):
+ (x_free_frame_resources):
+ (x_destroy_window):
+ (x_set_offset):
+ (pgtk_set_window_size):
+ (pgtk_iconify_frame):
+ (pgtk_make_frame_visible):
+ (pgtk_make_frame_invisible):
+ (pgtk_new_font):
+ (x_display_pixel_height):
+ (x_display_pixel_width):
+ (x_set_no_focus_on_map):
+ (x_set_no_accept_focus):
+ (x_set_z_group):
+ (x_set_cursor_gc):
+ (x_set_glyph_string_gc):
+ (x_set_glyph_string_clipping):
+ (x_draw_glyph_string_background):
+ (pgtk_draw_glyph_string):
+ (pgtk_after_update_window_line):
+ (pgtk_clear_frame_area):
+ (pgtk_draw_window_cursor):
+ (pgtk_copy_bits):
+ (pgtk_cr_draw_image):
+ (pgtk_draw_fringe_bitmap):
+ (pgtk_redraw_scroll_bars):
+ (pgtk_clear_frame):
+ (pgtk_read_socket):
+ (pgtk_select):
+ (xg_scroll_callback):
+ (xg_end_scroll_callback):
+ (pgtk_set_vertical_scroll_bar):
+ (set_fullscreen_state):
+ (pgtk_fullscreen_hook):
+ (pgtk_handle_event):
+ (pgtk_fill_rectangle):
+ (pgtk_clear_under_internal_border):
+ (print_widget_tree_recursive):
+ (print_widget_tree):
+ (pgtk_handle_draw):
+ (size_allocate):
+ (key_press_event):
+ (key_release_event):
+ (map_event):
+ (delete_event):
+ (enter_notify_event):
+ (leave_notify_event):
+ (focus_in_event):
+ (focus_out_event):
+ (motion_notify_event):
+ (button_event):
+ (scroll_event):
+ (drag_data_received):
+ (pgtk_xlfd_to_fontname):
+ (pgtk_defined_color):
+ (pgtk_parse_color):
+ (pgtk_query_colors):
+ (pgtk_query_color):
+ (pgtk_clear_area):
+ (pgtk_cr_update_surface_desired_size):
+ (pgtk_begin_cr_clip):
+ (pgtk_end_cr_clip):
+ (pgtk_set_cr_source_with_gc_foreground):
+ (pgtk_set_cr_source_with_gc_background):
+ (pgtk_set_cr_source_with_color):
+ (pgtk_cr_draw_frame):
+ (pgtk_cr_destroy_frame_context):
+ * src/pgtkterm.h:
+
+2021-11-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt artifacts paths in emba testjobs
+
+ * test/infra/Makefile.in (subdir_template): Adapt artifacts paths.
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/ftcrfont.c (ftcrfont_open): Revert redundant brace change.
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/frame.c (syms_of_frame): Revert frame_resize_pixelwise defaults
to false
+
+ It was just a workaround of mutter's bug, which is already fixed, so
+ we can revert it.
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/frame.c (Fframep): Fix comment
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/font.h: Remove redundant condition
+
+ It is redundant because pgtk build always defines HAVE_FREETYPE.
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Enclose pgtk changes within #ifdef
+
+ * src/emacsgtkfixed.c:
+ * src/emacsgtkfixed.h:
+
+2021-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/emacs.c (main): Combine two conditions to one
+
+2021-11-23 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ bdb489a ; * etc/DEBUG: Adjust instructions for libgccjit reproducer.
+ b4fb381 ; * src/xdisp.c (produce_stretch_glyph): Avoid compilation wa...
+
+2021-11-23 Stefan Kangas <stefan@marxist.se>
+
+ Prefer locate-user-emacs-file in gitmerge.el
+
+ * admin/gitmerge.el (gitmerge-status-file): Prefer
+ 'locate-user-emacs-file' to fiddling with 'user-emacs-directory'.
+
+2021-11-23 Po Lu <luangruo@yahoo.com>
+
+ Fix compilation with XInput 2 but without XKB
+
+ * src/xterm.c (handle_one_xevent): Remove extraneous
+ conditional.
+
+2021-11-23 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ d791cd556d Fix '(space :relative-width N)' display spec w/non-ASCII c...
+ 712898210f * lisp/proced.el (proced-sort-header): Fix event positions...
+
+ # Conflicts:
+ # lisp/proced.el
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Only reset scroll valuators on real enter events
+
+ * src/xterm.c (handle_one_xevent): Test event detail and mode
+ before resetting scroll valuators.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Fix delay between tool bar clicks and visual feedback
+
+ * src/haikuterm.c (haiku_read_socket): Redisplay after tool
+ bar click.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Fix XI2 keysym translation
+
+ * src/xterm.c (handle_one_xevent): Handle XI_KeyPress events
+ that can't be translated into strings.
+
+2021-11-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/subr.el (event-start, event-end): Handle `(menu-bar)` events
+
+ * lisp/net/browse-url.el (browse-url-interactive-arg): Simplify
accordingly
+
+2021-11-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/textmodes/flyspell.el: Pop up the menu under cursor from
keyboard.
+
+ * lisp/textmodes/flyspell.el (flyspell-emacs-popup):
+ Use popup-menu-normalize-position with point when no mouse is involved,
+ instead of the incorrect use of mouse-position (bug#52025).
+
+2021-11-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ src/indent.c, src/xdisp.c: Questions about
with_echo_area_buffer_unwind_data
+
+2021-11-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: 'C-x t RET' creates a new tab for non-existent tab
name.
+
+ * lisp/tab-bar.el (tab-bar-switch-to-tab): Create a new tab and
+ rename it to NAME when can't find the tab with the given NAME
(bug#51935).
+
+2021-11-22 Mattias Engdegård <mattiase@acm.org>
+
+ Simplify `gnu` compilation-mode regexp
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Remove the pattern ostensibly added for Ruby, because at closer
+ inspection it could never have matched anything. This lessens the
+ performance impact of the pattern added for GCC's -fanalyzer,
+ now slightly tweaked.
+
+2021-11-22 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el (tab-bar-history-old-minibuffer-depth): Remove
variable.
+
+ (tab-bar--history-pre-change, tab-bar--history-change): Use
minibuffer-depth
+ instead of this variable (bug#51370).
+
+2021-11-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt emba jobs
+
+ * admin/notes/emba (Emacs jobset): Precise.
+
+ * test/infra/Makefile.in (tn): New variable.
+ (subdir_template): Use it. Handle eieio-tests, faceup-tests and
+ so-long-tests. Rearrange .PHONY entry. Add needs and artifacts
+ to emba job.
+
+ * test/infra/gitlab-ci.yml (test-filenotify-gio): Move up.
+
+ * test/infra/test-jobs.yml: Regenerate.
+
+2021-11-22 Eli Zaretskii <eliz@gnu.org>
+
+ Improve recently installed documentation
+
+ * doc/lispref/display.texi (Size of Displayed Text): Move to
+ description of 'buffer-text-pixel-size' to preserve previous text;
+ mention the importance of WINDOW.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warning in image.c
+
+ * src/image.c (webp_load): Initialize `mask_img' to NULL.
+
+2021-11-22 Stefan Kangas <stefan@marxist.se>
+
+ Use substitute-command-keys for literal key sequences
+
+ * lisp/abbrev.el (expand-region-abbrevs):
+ * lisp/calc/calc-graph.el (calc-graph-show-dumb):
+ * lisp/calc/calc-help.el (calc-help-for-help):
+ * lisp/calc/calc-mode.el (calc-auto-why):
+ * lisp/calc/calc.el (calc-do):
+ * lisp/calculator.el (calculator-mode):
+ * lisp/dired-aux.el (dired-create-files)
+ (dired-do-create-files-regexp, dired-create-files-non-directory):
+ * lisp/dired-x.el (dired-virtual):
+ * lisp/dired.el (dired-mark-region, dired-unmark-all-files):
+ * lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
+ * lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
+ * lisp/epa-ks.el (epa-ks--display-keys):
+ * lisp/erc/erc.el (erc-toggle-debug-irc-protocol):
+ * lisp/files.el (save-some-buffers):
+ * lisp/gnus/gnus-dired.el (gnus-dired-find-file-mailcap)
+ (gnus-dired-print):
+ * lisp/gnus/gnus-group.el (gnus-keep-same-level):
+ * lisp/gnus/gnus-score.el (gnus-score-find-trace):
+ * lisp/gnus/gnus.el (to-list):
+ * lisp/gnus/message.el (message--send-mail-maybe-partially):
+ * lisp/mail/supercite.el (sc-set-variable):
+ * lisp/minibuffer.el (minibuffer-inactive-mode):
+ * lisp/progmodes/etags.el (select-tags-table):
+ * lisp/progmodes/idlw-shell.el (idlwave-shell-mode)
+ (idlwave-shell-char-mode-loop):
+ * lisp/replace.el (query-replace-help):
+ * lisp/simple.el (set-variable):
+ * lisp/subr.el (read-char-from-minibuffer):
+ * lisp/textmodes/ispell.el (ispell-help, ispell-message):
+ * lisp/textmodes/reftex-global.el (reftex-find-duplicate-labels):
+ * lisp/textmodes/reftex-vars.el
+ (reftex-toc-include-file-boundaries)
+ (reftex-toc-include-labels, reftex-toc-include-index-entries)
+ (reftex-toc-include-context, reftex-toc-follow-mode)
+ (reftex-index-include-context, reftex-index-follow-mode)
+ (reftex-enable-partial-scans)
+ (reftex-auto-update-selection-buffers)
+ (reftex-highlight-selection):
+ * lisp/time.el (display-time-update):
+ * lisp/vc/ediff-help.el (ediff-help-for-quick-help):
+ * lisp/vc/ediff-init.el (ediff-keep-variants):
+ * lisp/vc/ediff-ptch.el (ediff-fixup-patch-map)
+ (ediff-patch-file-internal):
+ * lisp/windmove.el (windmove-delete-default-keybindings): Use
+ 'substitute-command-keys' for literal key sequences.
+
+ * lisp/userlock.el (userlock--fontify-key): Remove function.
+ (ask-user-about-lock, ask-user-about-lock-help)
+ (ask-user-about-supersession-threat)
+ (ask-user-about-supersession-help): Use 'substitute-command-keys' for
+ literal key sequences.
+
+ * lisp/ibuffer.el (ibuffer-unmark-all): Use 'substitute-command-keys'
+ for command.
+
+2021-11-22 Stefan Kangas <stefan@marxist.se>
+
+ Avoid false positives about wide docstrings for key sequences
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
+ Ignore literal key sequence substitutions.
+ *
test/lisp/emacs-lisp/bytecomp-resources/warn-wide-docstring-ignore-substitutions.el:
+ New file.
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ ("warn-wide-docstring-ignore-substitutions.el"): New test.
+
+2021-11-22 martin rudalics <rudalics@gmx.at>
+
+ Add new function buffer-text-pixel-size
+
+ * doc/lispref/display.texi (Size of Displayed Text): Document it.
+
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width): Use
+ buffer-text-pixel-size (bug#51995).
+
+ * src/xdisp.c (window_text_pixel_size): Factor out from
+ Fwindow_text_pixel_size.
+ (Fbuffer_text_pixel_size): New function.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Fix mouse movement event generation on Haiku
+
+ * src/haikuterm.c (haiku_mouse_position): Set timestamp.
+ (haiku_read_socket): Set last_mouse_movement_time.
+
+ * src/haikuterm.h (struct haiku_display_info): Add field
+ `last_mouse_movement_time'.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Don't set button event modifiers twice on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Simplify.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Move XI2 event filtering to a more appropriate location
+
+ * src/xterm.c (handle_one_xevent): Filter all key press events
+ even if no frame is found.
+
+2021-11-22 Stefan Kangas <stefan@marxist.se>
+
+ Add new format for literal key sequences to substitute-command-keys
+
+ * lisp/help.el (substitute-command-keys): Add new format "\\`f'" for
+ literal key sequences. (Bug#50804)
+ * doc/lispref/help.texi (Keys in Documentation): Document the above
+ new substitution.
+
+ * test/lisp/help-tests.el
+ (help-tests-substitute-command-keys/literal-key-sequence):
+ (help-tests-substitute-command-keys/literal-key-sequence-errors): New
+ tests.
+ (help-tests-substitute-key-bindings/face-help-key-binding): Extend test.
+
+2021-11-22 Po Lu <luangruo@yahoo.com>
+
+ Use more precise test for emulated wheel events in XI2
+
+ * src/xterm.c (handle_one_xevent): Ignore button events
+ that have XIPointerEmulated set.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Make `xwidget-display-event' a special event as well
+
+ * doc/lispref/commands.texi (Xwidget Events): Document that
+ `xwidget-display-event' is a special event, and that it should
+ be handled through callbacks.
+
+ * etc/NEWS: Update NEWS entry.
+
+ * lisp/xwidget.el (xwidget-webkit-new-session)
+ (xwidget-webkit-import-widget): Attach display callback.
+ (xwidget-webkit-display-event): Call display callback instead.
+ (xwidget-webkit-display-callback): New function.
+
+ * src/keyboard.c (make_lispy_event): Store
+ source information for XWIDGET_DISPLAY_EVENT correctly.
+
+ * src/xwidget.c (store_xwidget_display_event): Store
+ source of the display request.
+ (webkit_ready_to_show): Store source if available.
+ (webkit_create_cb_1): Store source if available.
+ (kill_xwidget): Remove dead widget from internal_xwidget_list.
+
+2021-11-21 Glenn Morris <rgm@gnu.org>
+
+ Fix recent compile-tests addition
+
+ * test/lisp/progmodes/compile-tests.el (compile-test-error-regexps):
+ Bump number of expected errors.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Also filter XI_KeyRelease events
+
+ * src/xterm.c (handle_one_xevent): Also filter XI_KeyRelease
+ events through the X input method.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Use only effective modifiers for XI2 key press events
+
+ * src/xterm.c (handle_one_xevent): Use only effective modifiers
+ in XI_KeyPress events.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Remove variable that no longer exists from manual
+
+ * doc/emacs/haiku.texi: Remove nonexistent variable.
+
+2021-11-21 Stefan Kangas <stefan@marxist.se>
+
+ Adapt isearch help screen for variable-pitch-mode
+
+ * lisp/isearch.el (isearch-help-for-help-internal): Adapt for
+ 'variable-pitch-mode', now that 'make-help-screen' uses that.
+
+2021-11-21 Omar Polo <op@omarpolo.com>
+
+ implement certfp authentication to rcirc
+
+ * lisp/net/rcirc.el (rcirc-connect): Use the provided client certs
+ * doc/misc/rcirc.texi (Configuration): Document the change
+
+2021-11-21 Omar Polo <op@omarpolo.com>
+
+ Move the sasl section after the bitlbee text
+
+2021-11-21 Philip Kaludercic <philipk@posteo.net>
+
+ Improve error parsing for GCC -fanalyzer output
+
+ * compile.el (compilation-error-regexp-alist-alist): Adjust gnu rule
+ * compile-tests.el (compile-tests--test-regexps-data): Add testcase
+
+2021-11-21 Eli Zaretskii <eliz@gnu.org>
+
+ Fix positioning of pop-up menus when there are window-margins
+
+ * src/menu.c (x_popup_menu_1): Calculate X and Y correctly for
+ clicks in the text area. (Bug#51782)
+
+2021-11-21 Robert Pluim <rpluim@gmail.com>
+
+ Add :version tags to new mwheel defcustoms
+
+ * lisp/mwheel.el (mouse-wheel-down-alternate-event):
+ (mouse-wheel-up-alternate-event): Add :version tag.
+
+2021-11-21 Eli Zaretskii <eliz@gnu.org>
+
+ Minor cleanup in w32inevt.c
+
+ * src/w32inevt.c (w32_console_mouse_position, mouse_moved_to)
+ (do_mouse_event): Use 'get_frame' to obtain the frame pointer.
+
+2021-11-21 Stefan Kangas <stefan@marxist.se>
+
+ Use variable-pitch-mode in 'C-h C-h'
+
+ * lisp/faces.el (help-key-binding): Inherit 'fixed-pitch'.
+ * lisp/help-macro.el (make-help-screen): Use
+ 'variable-pitch-mode'.
+
+ This was discussed in
+ https://lists.gnu.org/r/emacs-devel/2021-11/msg01378.html
+
+2021-11-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Reorganize emba control files
+
+ Using dynamic job generation in GitLab does not work sufficiently. So
+ we generate the jobs in the Emacs sources.
+
+ * configure.ac (SUBDIR_MAKEFILES): Add test/infra/Makefile.
+
+ * test/Makefile.in (subdirs, generate-test-jobs): New targets.
+
+ * test/infra/Makefile.in:
+ * test/infra/test-jobs.yml: New files.
+
+ * test/infra/default-gitlab-ci.yml:
+ * test/infra/test-jobs-generator.sh: Remove.
+
+ * test/infra/gitlab-ci.yml: Insert contents of default-gitlab-ci.yml.
+ (stages): Remove generator and trigger. Add normal.
+ (test-jobs-generator, test-jobs-pipeline): Remove jobs.
+ (top): Include test-jobs.yml.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Fix double and triple click in Haiku.
+
+ * src/haikuterm.c (haiku_read_socket): Record timestamp
+ in events.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Report time in XInput 2 button events
+
+ * src/xterm.c (handle_one_xevent): Report time in XI button
+ events.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Fix horizontal wheel events on Haiku
+
+ * src/haikuterm.c (haiku_read_socket): Fix modifier
+ calculation for horizontal wheel events.
+
+2021-11-21 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 0dd3883def Update to Org 9.5-72-gc5d6656
+ e3d5337970 Fix mouse handling with several TTY frames on MS-Windows
+ 7e437af413 Fix temacs invocation from outside of the 'src' directory
+ 0fbfd4253e ; Avoid byte-compilation warnings in edmacro.el
+ c22c988b1f Fix mouse events on tab bar or tool bar when 'track-mouse'...
+ 354c834fba Fix `browse-url-interactive-arg' for certain kinds of events
+
+ # Conflicts:
+ # lisp/mouse.el
+
+2021-11-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fill the Emacs version on the splash page
+
+ * lisp/startup.el (fancy-startup-tail):
+ (normal-mouse-startup-screen):
+ (normal-no-mouse-startup-screen): Fill the Emacs version data,
+ since it's usually longer than a single line, anyway.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Implement `pick_embedded_child' for offscreen xwidgets
+
+ * src/xwidget.c (pick_embedded_child): New function.
+ (Fmake_xwidget): Connect `pick-embedded-child' signal
+ to offscreen window.
+
+2021-11-21 Stefan Kangas <stefan@marxist.se>
+
+ Revert "* admin/gitmerge.el (gitmerge-mode-map): Convert to
defvar-keymap."
+
+ This reverts commit 4c467e4aff12e65fa4fa62d7f4bdcbf4a2bcd92c.
+
+2021-11-21 dickmao <dick.r.chiang@gmail.com>
+
+ Fix icalendar time zone parsing
+
+ * lisp/calendar/icalendar.el (icalendar--decode-isodatetime):
+ Parse time zones more correctly.
+ * test/lisp/calendar/icalendar-tests.el
+ (icalendar-tests--decode-isodatetime): Fix tests so that they work
+ in other time zones than Europe/Berlin (bug#51959).
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Fix documentation string of x_coalesce_scroll_events
+
+ * src/xterm.c (x_coalesce_scroll_events): Update doc string to
+ reflect that this option is now supported under Haiku.
+
+2021-11-21 Eli Zaretskii <eliz@gnu.org>
+
+ Improve the fix for bug#51864
+
+ * src/xfaces.c (face_at_buffer_position): Call
+ FACE_FROM_ID_OR_NULL just once.
+ (face_at_string_position): Make sure we have a usable base face.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Improve Haiku documentation
+
+ * doc/emacs/haiku.texi: Remove duplicate text and
+ extraneous pxref.
+
+2021-11-21 Po Lu <luangruo@yahoo.com>
+
+ Add a user command to stop page loading in xwidget-webkit
+
+ * lisp/xwidget.el: Add `xwidget-webkit-stop' to menu.
+ (xwidget-webkit-stop): New command.
+ (xwidget-webkit-tool-bar-map): New tool bar item.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warnings
+
+ * src/haikuterm.c (haiku_read_socket): Fix compiler
+ warnings intoduced by last change.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Add pixel delta support for wheel events on Haiku
+
+ * src/haiku_support.cc (EmacsWindow.MessageReceived): Stop
+ adjusting scroll deltas.
+ * src/haikuterm.c (haiku_read_socket): Handle pixel deltas
+ correctly.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Attach download-started signals to correct WebKit context
+
+ * src/xwidget.c (Fmake_xwidget): Use correct context.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Allow handling smooth scroll events in xwidgets
+
+ * src/xterm.c (handle_one_xevent): Pass through XI2 motion
+ events to xwidgets.
+ * src/xterm.c (xwidget_button): Don't handle legacy scroll
+ events on XInput 2.
+ (xwidget_motion_notify, xwidget_scroll): New functions.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Select device notification events correctly
+
+ * src/xfns.c (setup_xi_event_mask): Select PropertyEvent,
+ HierarchyChanged and DeviceChanged for all devices.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Add XInput 2 input method support
+
+ * src/xterm.c (handle_one_xevent): Let input methods filter
+ events first before trying to handle an XI2 key press event.
+
+2021-11-20 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/test-jobs-generator.sh: Generate also stages entry.
+
+ Revert last change on emba files
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Add support for the Haiku operating system and its window system
+
+ * .gitignore: Add binaries specific to Haiku.
+
+ * Makefie.in (HAVE_BE_APP): New variable.
+ (install-arch-dep): Install Emacs and Emacs.pdmp when
+ using Haiku.
+
+ * configure.ac: Detect and configure for Haiku and
+ various related configurations.
+ (be-app, be-freetype, be-cairo): New options.
+ (HAVE_BE_APP, HAIKU_OBJ, HAIKU_CXX_OBJ)
+ (HAIKU_LIBS, HAIKU_CFLAGS): New variables.
+ (HAIKU, HAVE_TINY_SPEED_T): New define.
+ (emacs_config_features): Add BE_APP.
+
+ * doc/emacs/Makefile.in (EMACSSOURCES): Add Haiku
+ appendix.
+
+ * doc/emacs/emacs.texi: Add Haiku appendix to menus and
+ include it.
+
+ * doc/emacs/haiku.texi: New Haiku appendix.
+
+ * doc/lispref/display.texi (Defining Faces, Window Systems):
+ Explain meaning of `haiku' as a window system identifier.
+ (haiku-use-system-tooltips): Explain meaning of system
+ tooltips on
+ Haiku.
+
+ * doc/lispref/frames.texi (Multiple Terminals): Explain
+ meaning of haiku as a display type.
+ (Frame Layout): Clarify section for Haiku frames.
+ (Size Parameters): Explain limitations of fullwidth and
+ fullheight on Haiku.
+ (Management Parameters): Explain limitations of
+ inhibiting double buffering on builds with Cairo,
+ and the inability of frames with no-accept-focus to
+ receive keyboard input on Haiku.
+ (Font and Color Parameters): Explain the different font
+ backends available on Haiku.
+ (Raising and Lowering): Explain that lowering and
+ restacking frames doesn't work on Haiku.
+ (Child Frames): Explain oddities of child frame
+ visibility on Haiku.
+
+ * doc/lispref/os.texi (System Environment): Explain
+ meaning of haiku.
+ * etc/MACHINES: Add appropriate notices for Haiku.
+ * etc/NEWS: Document changes.
+ * etc/PROBLEMS: Document font spacing bug on Haiku.
+
+ * lib-src/Makefile.in: Build be-resources binary on
+ Haiku.
+ (CXX, CXXFLAGS, NON_CXX_FLAGS, ALL_CXXFLAGS)
+ (HAVE_BE_APP, HAIKU_LIBS, HAIKU_CFLAGS): New variables.
+ (DONT_INSTALL): Add be-resources binary if on Haiku.
+ (be-resources): New target.
+
+ * lib-src/be_resources.cc: Add helper binary for setting
+ resources on the Emacs application.
+
+ * lib-src/emacsclient.c (decode_options): Set
+ alt_display to "be" on Haiku.
+
+ * lisp/cus-edit.el (custom-button, custom-button-mouse)
+ (custom-button-unraised, custom-button-pressed): Update
+ face definitions for Haiku.
+
+ * lisp/cus-start.el: Add haiku-debug-on-fatal-error and
+ haiku-use-system-tooltips.
+
+ * lisp/faces.el (face-valid-attribute-values): Clarify
+ attribute comment for Haiku.
+ (tool-bar): Add appropriate toolbar color for Haiku.
+
+ * lisp/frame.el (haiku-frame-geometry)
+ (haiku-mouse-absolute-pixel-position)
+ (haiku-set-mouse-absolute-pixel-position)
+ (haiku-frame-edges)
+ (haiku-frame-list-z-order): New function declarations.
+
+ (frame-geometry, frame-edges)
+ (mouse-absolute-pixel-position)
+ (set-mouse-absolute-pixel-position)
+ (frame-list-z-order): Call appropriate window system
+ functions on Haiku.
+
+ (display-mouse-p, display-graphic-p)
+ (display-images-p, display-pixel-height)
+ (display-pixel-width, display-mm-height)
+ (display-mm-width, display-backing-store)
+ (display-save-under, display-planes)
+ (display-color-cells, display-visual-class): Update type
+ tests for Haiku.
+
+ * lisp/international/mule-cmds.el
+ (set-coding-system-map): Also
+ prevent set-terminal-coding-system from appearing in the menu
+ bar on Haiku.
+
+ * lisp/loadup.el: Load Haiku-specific files when built
+ with Haiku, and don't rename newly built Emacs on Haiku as BFS
+ doesn't support hard links.
+
+ * lisp/menu-bar.el (menu-bar-open): Add for Haiku.
+
+ * lisp/mwheel.el (mouse-wheel-down-event): Expect
+ wheel-up on Haiku.
+ (mouse-wheel-up-event): Expect wheel-down on Haiku.
+ (mouse-wheel-left-event): Expect wheel-left on Haiku.
+ (mouse-wheel-right-event): Expect wheel-right on Haiku.
+
+ * lisp/net/browse-url.el
+ (browse-url--browser-defcustom-type):
+ Add option for WebPositive.
+ (browse-url-webpositive-program): New variable.
+ (browse-url-default-program): Search for WebPositive.
+ (browse-url-webpositive): New function.
+
+ * lisp/net/eww.el (eww-form-submit, eww-form-file)
+ (eww-form-checkbox, eww-form-select): Define faces
+ appropriately for Haiku.
+
+ * lisp/term/haiku-win.el: New file.
+
+ * lisp/tooltip.el (menu-or-popup-active-p): New function
+ declaration.
+ (tooltip-show-help): Don't use tooltips on Haiku when a
+ menu is active.
+
+ * lisp/version.el (haiku-get-version-string): New
+ function declaration.
+ (emacs-version): Add Haiku version string if
+ appropriate.
+
+ * src/Makefile.in: Also produce binary named "Emacs"
+ with Haiku resources set.
+
+ (CXX, HAIKU_OBJ, HAIKU_CXX_OBJ, HAIKU_LIBS)
+ (HAIKU_CFLAGS, HAVE_BE_APP, NON_CXX_FLAGS)
+ (ALL_CXX_FLAGS): New variables.
+
+ (.SUFFIXES): Add .cc.
+ (.cc.o): New target.
+ (base_obj): Add Haiku C objects.
+ (doc_obj, obj): Split objects that should scanned for
+ documentation into doc_obj.
+ (SOME_MACHINE_OBJECTS): Add appropriate Haiku C objects.
+ (all): Depend on Emacs and Emacs.pdmp on Haiku.
+ (LIBES): Add Haiku libraries.
+ (gl-stamp)
+ ($(etc)/DOC): Scan doc_obj instead of obj
+ (temacs$(EXEEXT): Use C++ linker on Haiku.
+ (ctagsfiles3): New variable.
+ (TAGS): Scan C++ files.
+
+ * src/alloc.c (garbage_collect): Mark Haiku display.
+
+ * src/dispextern.h (HAVE_NATIVE_TRANSFORMS): Also enable
+ on Haiku.
+ (struct image): Add fields for Haiku transforms.
+ (RGB_PIXEL_COLOR): Define to unsigned long on Haiku as
+ well.
+ (sit_for): Also check USABLE_SIGPOLL.
+ (init_display_interactive): Set initial window system to
+ Haiku on Haiku builds.
+
+ * src/emacs.c (main): Define Haiku syms and init haiku
+ clipboard.
+ (shut_down_emacs): Quit BApplication on Haiku and
+ trigger debug
+ on aborts if haiku_debug_on_fatal_error.
+ (Vsystem_type): Update docstring.
+
+ * src/fileio.c (next-read-file-uses-dialog-p): Enable on
+ Haiku.
+
+ * src/filelock.c (WTMP_FILE): Only define if BOOT_TIME
+ is also defined.
+
+ * src/floatfns.c (double_integer_scale): Work around
+ Haiku libroot brain damage.
+
+ * src/font.c (syms_of_font): Define appropriate font
+ driver symbols for Haiku builds with various options.
+
+ * src/font.h: Also enable ftcrfont on Haiku builds with
+ Cairo.
+ (font_data_structures_may_be_ill_formed): Also enable on
+ Haiku builds that have Cairo.
+
+ * src/frame.c (Fframep): Update doc-string for Haiku
+ builds and return haiku if appropriate.
+ (syms_of_frame): New symbol `haiku'.
+
+ * src/frame.h (struct frame): Add output data for Haiku.
+ (FRAME_HAIKU_P): New macro.
+ (FRAME_WINDOW_P): Test for Haiku frames as well.
+
+ * src/ftcrfont.c (RED_FROM_ULONG, GREEN_FROM_ULONG)
+ (BLUE_FROM_ULONG): New macros.
+ (ftcrfont_draw): Add haiku specific code for Haiku
+ builds with Cairo.
+
+ * src/ftfont.c (ftfont_open): Set face.
+ (ftfont_has_char, ftfont_text_extents): Work around
+ crash.
+ (syms_of_ftfont): New symbol `mono'.
+
+ * src/ftfont.h (struct font_info): Enable Cairo-specific
+ fields for Cairo builds on Haiku.
+
+ * src/haiku_draw_support.cc:
+ * src/haiku_font_support.cc:
+ * src/haiku_io.c:
+ * src/haiku_select.cc:
+ * src/haiku_support.cc:
+ * src/haiku_support.h:
+ * src/haikufns.c:
+ * src/haikufont.c:
+ * src/haikugui.h:
+ * src/haikuimage.c:
+ * src/haikumenu.c:
+ * src/haikuselect.c:
+ * src/haikuselect.h:
+ * src/haikuterm.c:
+ * src/haikuterm.h: Add new files for Haiku windowing
+ support.
+
+ * src/haiku.c: Add new files for Haiku operating system
+ support.
+
+ * src/image.c: Implement image transforms and native XPM
+ support
+ on Haiku.
+
+ (GET_PIXEL, PUT_PIXEL, NO_PIXMAP)
+ (PIX_MASK_RETAIN, PIX_MASK_DRAW)
+ (RGB_TO_ULONG, RED_FROM_ULONG, GREEN_FROM_ULONG)
+ (BLUE_FROM_ULONG, RED16_FROM_ULONG, GREEN16_FROM_ULONG)
+ (BLUE16_FROM_ULONG): Define to appropriate values on
+ Haiku.
+
+ (image_create_bitmap_from_data): Add Haiku support.
+ (image_create_bitmap_from_file): Add TODO on Haiku.
+ (free_bitmap_record): Free bitmap on Haiku.
+ (image_size_in_bytes): Implement for Haiku bitmaps.
+ (image_set_transform): Implement on Haiku.
+ (image_create_x_image_and_pixmap_1): Implement on Haiku,
+ 24-bit or 1-bit only.
+ (image_destroy_x_image, image_get_x_image): Use correct
+ img and pixmap values on Haiku.
+ (lookup_rgb_color): Use correct macro on Haiku.
+ (image_to_emacs_colors): Implement on Haiku.
+ (image_disable_image): Disable on Haiku.
+ (image_can_use_native_api): Test for translator presence
+ on Haiku.
+ (native_image_load): Use translator on Haiku.
+ (imagemagick_load_image): Add Haiku-specific quirks.
+ (Fimage_transforms_p): Allow rotate90 on Haiku.
+ (image_types): Enable native XPM support on Haiku.
+ (syms_of_image): Enable XPM images on Haiku.
+
+ * src/keyboard.c (kbd_buffer_get_event)
+ (handle_async_input, handle_input_available_signal)
+ (handle_user_signal, Fset_input_interrupt_mode)
+ (init_keyboard): Check for USABLE_SIGPOLL along with
+ USABLE_SIGIO.
+
+ * src/lisp.h (pD): Work around broken Haiku headers.
+ (HAVE_EXT_MENU_BAR): Define on Haiku.
+ (handle_input_available_signal): Enable if we just have
+ SIGPOLL as well.
+
+ * src/menu.c (have_boxes): Return true on Haiku.
+ (single_menu_item): Enable toolkit menus on Haiku.
+ (find_and_call_menu_selection): Also enable on Haiku.
+
+ * src/process.c (keyboard_bit_set): Enable with only
+ usable SIGPOLL.
+ (wait_reading_process_output): Test for SIGPOLL as well
+ as SIGIO availability.
+
+ * src/sound.c (sound_perror, vox_open)
+ (vox_configure, vox_close): Enable for usable SIGPOLL as
+ well.
+
+ * src/sysdep.c (sys_subshell): Enable for usable SIGPOLL.
+ (reset_sigio): Make conditional on F_SETOWN.
+ (request_sigio, unrequest_sigio)
+ (emacs_sigaction_init): Also handle SIGPOLLs.
+ (init_sys_modes): Disable TCXONC usage on Haiku, as it
+ doesn't have any ttys other than pseudo ttys, which don't
+ support C-s/C-q flow control, and causes compiler warnings.
+ (speeds): Disable high speeds if HAVE_TINY_SPEED_T.
+
+ * src/termhooks.h (enum output_method): Add output_haiku.
+ (struct terminal): Add Haiku display info.
+ (TERMINAL_FONT_CACHE): Enable for Haiku.
+
+ * src/terminal.c (Fterminal_live_p): Return `haiku' if
+ appropriate.
+ * src/verbose.mk.in (AM_V_CXX, AM_V_CXXLD): New logging
+ variables.
+
+ * src/xdisp.c (redisplay_internal)
+ (note_mouse_highlight): Return on Haiku if a popup is activated.
+ (display_menu_bar): Return on Haiku if frame is a Haiku
+ frame.
+
+ * src/xfaces.c (GCGraphicsExposures): Enable correctly on Haiku.
+ (x_create_gc): Enable dummy GC code on Haiku.
+
+ * src/xfns.c (x-server-version, x-file-dialog): Add
+ Haiku specifics to doc strings.
+
+ * src/xterm.c (syms_of_xterm): Add Haiku information to
+ doc string.
+
+2021-11-20 Stefan Kangas <stefan@marxist.se>
+
+ Make string-animate smoother
+
+ * lisp/play/animate.el (animate-total-added-delay): New defcustom.
+ (animate-n-steps): Double the default value. Use :type 'natnum'.
+ (animate-string): Make the delay depend on the above new defcustom
+ divided by the number of steps.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes when scrolling in an unknown Window on XI2
+
+ * src/xterm.c (handle_one_xevent): Fix XI2 frame lookup to
+ handle foreign windows.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidgets with XInput 2 builds
+
+ * src/xwidget.c (Fmake_xwidget): Refrain from synthesizing
+ a focus event here on XI2 builds.
+ (Fxwidget_perform_lispy_event): Try to set embedder on XI2
+ builds and do nothing otherwise.
+ (synthesize_focus_in_event): Use focus_change.window as opposed
+ to any.window.
+ (x_draw_xwidget_glyph_string): Synthesize focus event here
+ instead on XI2 builds.
+
+2021-11-20 Stefan Kangas <stefan@marxist.se>
+
+ Make 'eval' use lexical scoping in most tests
+
+ * test/lisp/electric-tests.el (electric-pair-define-test-form)
+ (define-electric-pair-test):
+ * test/lisp/emacs-lisp/backtrace-tests.el
+ (backtrace-tests--uncompiled-functions):
+ * test/lisp/emacs-lisp/cl-macs-tests.el
+ (cl-macs-test--symbol-macrolet):
+ * test/lisp/emacs-lisp/let-alist-tests.el
+ (let-alist-list-to-sexp):
+ * test/lisp/emacs-lisp/lisp-tests.el
+ (elisp-tests-with-temp-buffer, core-elisp-tests-3-backquote):
+ * test/lisp/emacs-lisp/testcover-resources/testcases.el
+ (testcover-testcase-nth-case):
+ * test/lisp/ffap-tests.el (ffap-ido-mode):
+ * test/lisp/files-tests.el (file-test--do-local-variables-test):
+ * test/lisp/net/tramp-tests.el (tramp--test-utf8):
+ * test/lisp/progmodes/elisp-mode-tests.el
+ (find-defs-defgeneric-eval, find-defs-defun-eval)
+ (find-defs-defvar-eval, find-defs-face-eval)
+ (find-defs-feature-eval): Give 'eval' non-nil LEXICAL argument.
+ * test/lisp/subr-tests.el
+ (subr-tests--dolist--wrong-number-of-args):
+ * test/src/eval-tests.el (eval-tests--if-dot-string)
+ (eval-tests--mutating-cond)
+ (eval-tests-19790-backquote-comma-dot-substitution): Test 'eval'
+ using LEXICAL as both nil and non-nil.
+ (eval-tests--let-with-circular-defs): Give explicit nil to 'eval'.
+
+2021-11-20 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Improve some messages
+
+ * lisp/image-dired.el (image-dired-dir)
+ (image-dired-create-thumb-1): Improve messages.
+ (image-dired-rotate-original): Signal 'user-error' instead of 'error'.
+
+2021-11-20 Stefan Kangas <stefan@marxist.se>
+
+ Convert snake and tetris keymaps to defvar-keymap
+
+ * lisp/play/snake.el (snake-mode-map, snake-null-map):
+ * lisp/play/tetris.el (tetris-mode-map, tetris-null-map): Convert
+ to defvar-keymap.
+
+2021-11-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make shr render text with superscripts prettier
+
+ * lisp/net/shr.el (shr-sup): New face.
+ (shr-tag-sup, shr-tag-sub): Use it to make the super/subscripts
+ slightly smaller so that we don't get uneven line heights with
+ text that uses these.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Fix a comment in XInput related code
+
+ * src/xterm.c (x_term_init): Fix comment to say "XInput 2.1"
+ instead of "XInput 1.1".
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Expose pixel-wise wheel events to Lisp
+
+ * doc/lispref/commands.texi (Misc Events): Document changes to
+ wheel events.
+
+ * src/keyboard.c (make_lispy_event): Handle wheel events with
+ pixel delta data.
+ * src/termhooks.h (WHEEL_EVENT): Document changes to
+ WHEEL_EVENT args.
+ * src/xfns.c (syms_of_xfns): Declare new symbols.
+ * src/xterm.c (handle_one_xevent): Give wheel events pixel delta
+ data.
+ (x_coalesce_scroll_events): New user option.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Add support for event processing via XInput 2
+
+ * configure.ac: Add an option to use XInput 2 if available.
+ * src/Makefile.in (XINPUT_LIBS, XINPUT_CFLAGS): New variables.
+ (EMACS_CFLAGS): Add Xinput CFLAGS.
+ (LIBES): Add XInput libs.
+ * src/xmenu.c (popup_activated_flag): Expose flag if
+ XInput 2 is available.
+ * src/xfns.c (x_window): Set XInput 2 event mask.
+ (setup_xi_event_mask): New function.
+ (syms_of_xfns): Provide XInput 2 feature.
+ * src/xterm.c (x_detect_focus_change): Handle XInput 2
+ GenericEvents.
+ (handle_one_xevent): Handle XInput 2 events.
+ (x_term_init): Ask the server for XInput 2 support and set
+ xkb_desc if available.
+ (x_delete_terminal): Free XKB kb desc if it exists, and free
+ XI2 devices if they exist.
+ (xi_grab_or_ungrab_device)
+ (xi_reset_scroll_valuators_for_device_id)
+ (x_free_xi_devices, x_init_master_valuators): New functions.
+ (x_get_scroll_valuator_delta): New function.
+ (init_xterm): Don't tell GTK to only use Core Input when built
+ with XInput 2 support.
+ * src/xterm.h (struct x_display_info): Add fields for XKB
+ and XI2 support.
+ * src/gtkutil.c (xg_event_is_for_menubar): Handle
+ XIDeviceEvents.
+ (xg_is_menu_window): New function.
+ (xg_event_is_for_scrollbar): Handle XIDeviceEvents.
+ * etc/NEWS: Document changes.
+
+ * lisp/mwheel.el (mouse-wheel-down-alternate-event)
+ (mouse-wheel-up-alternate-event)
+ (mouse-wheel-left-alternate-event)
+ (mouse-wheel-right-alternate-event): New user options.
+
+ (mouse-wheel-text-scale)
+ (mwheel-scroll): Test for alternate events.
+ (mouse-wheel--setup-bindings): Set up bindings for alternate
+ buttons.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Allow terminating page loading operations in webkit xwidgets
+
+ * doc/lispref/display.texi (Xwidgets): Document new function.
+ * etc/NEWS: Announce `xwidget-webkit-stop-loading'.
+ * src/xwidget.c (Fxwidget_webkit_stop_loading): New function.
+ (syms_of_xwidget): Define new subr.
+
+2021-11-20 Gregory Heytings <gregory@heytings.org>
+
+ Implement the buttonForeground resource
+
+ * lwlib/xlwmenu.c (draw_shadow_rectangle, draw_shadow_rhombus):
+ Use the buttonForeground resource color (bug#51988).
+
+2021-11-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix another narrow-to-defun problem in js-mode
+
+ * lisp/progmodes/js.el (js--function-prologue-beginning): Fix typo
+ in looking-back form (bug#51926).
+
+2021-11-20 Michael Albinus <michael.albinus@gmx.de>
+
+ Continue adaptions of emba files
+
+ * test/infra/default-gitlab-ci.yml: New file, derived from
+ gitlab-ci.yml.
+
+ * test/infra/gitlab-ci.yml (top, test-jobs-pipeline):
+ Include default-gitlab-ci.yml.
+ (stages): Remove normal.
+
+ * test/infra/test-jobs-generator.sh: Generate also stages entry.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Make xwidget-events special and document xwidget callbacks
+
+ Users have always been supposed to use callbacks for handling
+ xwidget events, but for some reason this has not been
+ documented until now.
+
+ * doc/lispref/commands.texi (Xwidget Events): Document xwidget
+ callbacks and the special status of `xwidget-event's.
+
+ * doc/lispref/display.texi (Xwidgets): Add xwidget property
+ list functions to the concept index.
+
+ * lisp/xwidget.el: Make xwidget events special.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Use `xwidget-live-p' inside `xwidget-at'.
+
+ It should no longer be possible for Lisp code to abuse internal
+ xwidget state, or cause crashes with killed xwidgets and such,
+ so the pedantic checking done in this function is no longer
+ necessary. (In fact, it is even wrong, as it won't catch
+ killed xwidgets.)
+
+ * lisp/xwidget.el (xwidget-at): Use `xwidget-live-p'.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Remove nonsensical command in xwidget-webkit-mode-map
+
+ * lisp/xwidget.el (xwidget-webkit-mode-map): Remove nonsensical
+ command binding.
+
+2021-11-20 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ c1eea85be1 * test/lisp/net/tramp-tests.el (tramp-get-remote-gid): Rem...
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Fix option type of `xwidget-webkit-cookie-file' again
+
+ * lisp/xwidget.el (xwidget-webkit-cookie-file): Revert changes
+ caused by rebase.
+
+2021-11-20 Po Lu <luangruo@yahoo.com>
+
+ Clarify doc string in xwidget-webkit
+
+ * lisp/xwidget.el (xwidget-webkit-buffer-name-format): Update
+ doc string.
+
+2021-11-19 Glenn Morris <rgm@gnu.org>
+
+ * lisp/xwidget.el (xwidget-webkit-cookie-file): Fix type.
+
+2021-11-19 Po Lu <luangruo@yahoo.com>
+
+ Make xwidget-webkit default to not storing cookies
+
+ * etc/NEWS: Update to reflect change.
+ * lisp/xwidget.el (xwidget-webkit-cookie-file): Set default
+ value to nil.
+
+2021-11-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix Tramp test
+
+ * test/lisp/net/tramp-tests.el (tramp-test07-abbreviate-file-name):
+ Skip Ange FTP test.
+
+2021-11-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix stage in gitlab-ci.yml
+
+2021-11-19 Michael Albinus <michael.albinus@gmx.de>
+
+ Add more test jobs for emba
+
+ * test/Makefile.in (SUBDIRS): Suppress "*auto-save-list".
+ (SUBDIR_TARGETS): New variable.
+ (subdir_template): Set it.
+ (subdir-targets): New target.
+
+ * test/infra/gitlab-ci.yml (variables): Add CI_DEBUG_TRACE.
+ (build-image-inotify): Remove timeout.
+ (generator, test-jobs-pipeline): New jobs.
+ (test-lisp-inotify, test-lisp-net-inotify): Comment.
+
+ * test/infra/test-jobs-generator.sh: New script.
+
+2021-11-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix doc strings in ucs-normalize.el
+
+ * lisp/international/ucs-normalize.el (ucs-normalize-NFD-region)
+ (ucs-normalize-NFD-string, string-glyph-compose)
+ (string-glyph-decompose, ucs-normalize-NFC-string)
+ (ucs-normalize-NFKD-region, ucs-normalize-NFKD-string)
+ (ucs-normalize-NFKC-region, ucs-normalize-NFKC-string)
+ (ucs-normalize-HFS-NFD-region, ucs-normalize-HFS-NFC-region): Fix
+ wording and typos.
+
+2021-11-19 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation of last commit
+
+ * lisp/xwidget.el (xwidget-webkit-cookie-file): Don't use "path"
+ for file names in the doc string. Improve wording and markup of
+ the doc string.
+
+ * src/xwidget.c (Fxwidget_webkit_set_cookie_storage_file):
+ * doc/lispref/display.texi (Xwidgets): Don't use "path" for file
+ names.
+
+ * etc/NEWS: Improve the wording of the entry about
+ 'xwidget-webkit-cookie-file'.
+
+2021-11-19 Po Lu <luangruo@yahoo.com>
+
+ Allow controlling where xwidget-webkit stores cookies
+
+ * doc/lispref/display.texi (Xwidgets): Document new function.
+ * etc/NEWS: Announce `xwidget-webkit-cookie-file' and
+ `xwidget-webkit-set-cookie-storage-file'.
+
+ * lisp/xwidget.el (xwidget-webkit-cookie-file): New user
+ option.
+ (xwidget-webkit-new-session): Set cookie storage file.
+
+ * src/xwidget.c (Fmake_xwidget): Create new context for
+ each unrelated widget.
+ (Fxwidget_webkit_set_cookie_storage_file): New function.
+ (syms_of_xwidget): Define new subr.
+
+2021-11-19 Po Lu <luangruo@yahoo.com>
+
+ Use CHECK_LIVE_XWIDGET in xwidget-webkit-estimated-load-progress
+
+ * src/xwidget.c (Fxwidget_webkit_estimated_load_progress): Check
+ for live xwidgets instead.
+
+2021-11-19 Po Lu <luangruo@yahoo.com>
+
+ Display page loading progress in xwidget webkit
+
+ * lisp/xwidget.el (xwidget-webkit--title): Remove internal
+ variable.
+ (xwidget-webkit--loading-p)
+ (xwidget-webkit--progress-update-timer): New variables.
+ (xwidget-webkit--update-progress-timer-function): New function.
+ (xwidget-webkit-callback): Set up progress update timer during
+ page loads.
+ (xwidget-webkit-mode): Add page load progress to header line
+ format.
+
+2021-11-19 Stefan Kangas <stefan@marxist.se>
+
+ Improve doc-view-mode menus
+
+ * lisp/doc-view.el (doc-view-menu): Extend menu.
+ (doc-view-minor-mode-menu): New menu.
+
+2021-11-19 Po Lu <luangruo@yahoo.com>
+
+ Add `xwidget-webkit-estimated-load-progress'
+
+ * doc/lispref/display.texi (Xwidgets): Document new function.
+ * etc/NEWS: Announce new function.
+
+ * src/xwidget.c (Fxwidget_webkit_estimated_load_progress): New
+ function.
+ (syms_of_xwidget): Define new subr.
+
+2021-11-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make puny-encode-string normalize first
+
+ * lisp/net/puny.el (puny-encode-string): Normalize before encoding
+ (bug#51954).
+
+2021-11-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Regenerate ldefs-boot
+
+2021-11-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make UCS compose/decompose functions more understandable
+
+ * lisp/international/ucs-normalize.el ()
+ (ucs-normalize-NFD-region, ucs-normalize-NFD-string)
+ (ucs-normalize-NFC-region, ucs-normalize-NFC-string)
+ (ucs-normalize-NFKD-region, ucs-normalize-NFKD-string)
+ (ucs-normalize-NFKC-region, ucs-normalize-NFKC-string): Make the
+ doc strings say what they actually do.
+
+2021-11-19 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 02853edba7 Fix sorting of menus in `context-menu-local' (bug#50067).
+ 14271d050a Fix flyspell-correct-word selected from context menu opene...
+ bf824843f4 * lisp/repeat.el (describe-repeat-maps): Print all bound k...
+ 6fc94fb99e * lisp/tab-bar.el: Use 'mouse-1' for history buttons like ...
+ 5eeaf85767 Improve documentation of window hooks
+ 7404f4b4e0 Improve doc string of 'highlight-nonselected-windows'
+
+2021-11-18 Po Lu <luangruo@yahoo.com>
+
+ Fix documentation on xwidgets
+
+ * doc/lispref/display.texi (Xwidgets): Refer to correct
+ function.
+
+2021-11-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/files.el (file-has-changed-p): Index the cache with absolute
file names
+
+ * lisp/net/mailcap.el (mailcap-parse-mailcaps): Fix $MAILCAPS case
+
+2021-11-18 Mattias Engdegård <mattiase@acm.org>
+
+ Turn mistaken functions into tests (bug#51941)
+
+ * test/lisp/calendar/icalendar-tests.el
+ (icalendar-tests--decode-isodatetime):
+ * test/src/eval-tests.el
+ (eval-tests-19790-backquote-comma-dot-substitution):
+ Change `defun` into `ert-deftest` where this seems to have been the
+ original intention.
+
+2021-11-18 Mattias Engdegård <mattiase@acm.org>
+
+ String backslash corrections
+
+ * lisp/net/shr.el (shr-tag-video): Remove ineffective backslash.
+ * test/lisp/emacs-lisp/package-tests.el
+ (package-test-macro-compilation-gz): Make dot literal as intended.
+
+2021-11-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Do not exclude emacs-module-tests.el on emba
+
+ * test/infra/gitlab-ci.yml (test-native-comp-speed0)
+ (test-all-inotify): Do not exclude emacs-module-tests.el.
+
+ * test/src/emacs-module-tests.el
+ (module--test-assertions--load-non-live-object)
+ (module--test-assertions--load-non-live-object-with-global-copy)
+ (module--test-assertions--call-emacs-from-gc)
+ (module--test-assertions--globref-invalid-free): Tag them as
+ :unstable on emba. (Bug#50902)
+
+2021-11-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Optimize data usage for nil tab-bar-history-mode.
+
+ * lisp/tab-bar.el (tab-bar--tab): Add wc-history-back and
+ wc-history-forward only when tab-bar-history-mode is non-nil.
+ (tab-bar-select-tab): Use wc-history-back and
+ wc-history-forward only when tab-bar-history-mode is non-nil.
+ (tab-bar-new-tab-to): Reset tab-bar-history-back and
+ tab-bar-history-forward to nil.
+
+2021-11-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-bar.el: Avoid micro-steps in tab-bar-history-back/forward.
+
+ * lisp/tab-bar.el (tab-bar-history-pre-command)
+ (tab-bar-history-done-command): New variables.
+ (tab-bar--history-pre-change): Set 'tab-bar-history-omit' and
+ 'tab-bar-history-pre-command'.
+ (tab-bar--history-change): Use 'tab-bar-history-done-command' and
+ 'tab-bar-history-pre-command' (bug#51370).
+
+2021-11-18 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/diff-mode.el (diff-minor-mode-prefix): Fix typo from
44faf54659
+
+2021-11-18 Protesilaos Stavrou <info@protesilaos.com>
+
+ Update modus-themes to version 1.7.0
+
+ * doc/misc/modus-themes.org (File): Use new version and add release
+ date.
+ (How do the themes look like, Learn about the latest changes): Update
+ link to new URL.
+ (Enable and load): Update text of internal reference.
+ (Sample configuration for use-package): Add sample configuration
+ without the 'use-package' infrastructure.
+ (Differences between loading and enabling): Minor rewordings.
+ (Customization Options): Update sample code to cover latest changes.
+
+ (Option for inhibiting theme reload)
+ (Option for color-coding success state (deuteranopia))
+ (Option for more bold constructs)
+ (Option for more italic constructs)
+ (Option for syntax highlighting)
+ (Option for links)
+ (Option for command prompt styles)
+ (Option for mode line presentation)
+ (Option for accented background in tab interfaces)
+ (Option for completion framework aesthetics)
+ (Option for mail citations)
+ (Option for fringe visibility)
+ (Option for language checkers)
+ (Option for line highlighting (hl-line-mode))
+ (Option for line numbers (display-line-numbers-mode))
+ (Option for parenthesis matching (show-paren-mode))
+ (Option for active region)
+ (Option for diff buffer looks)
+ (Option for org-mode block styles)
+ (Option for Org agenda constructs)
+ (Option for scaled headings)
+ (Control the scale of headings)
+ (Option for variable-pitch font in UI elements)
+ (Option for variable-pitch font in headings): Write brief description,
+ document the type of the user option, and make any other relevant
+ adjustments.
+
+ (Option for font mixing): Document new 'modus-themes-mixed-fonts' user
+ option, which supersedes the old 'modus-themes-no-mixed-fonts'.
+ (Option for mode line padding): Document new user option
+ 'modus-themes-mode-line-padding'.
+ (Option for language checkers): Include new available property for the
+ user option 'modus-themes-lang-checkers'. Reword the rest of the
+ entry.
+ (Option for intense markup in Org and others): Describe new boolean
+ option 'modus-themes-intense-markup'.
+ (Option for Org agenda constructs): Include new available property for
+ the 'event' key in the alist 'modus-themes-org-agenda'.
+ (Option for the headings' overall style): Describe the new style of
+ explicitly specifying an optional font weight other than the implied
+ bold.
+
+ (Font configurations for Org and others (DIY))
+ (Configure bold and italic faces (DIY)): Reword and clarify some
+ statements.
+ (Decrease mode line height (DIY)): Add new Do-It-Yourself section on
+ tweaking the mode line's :box attribute.
+ (Full support for packages or face groups): Include new packages.
+ (Acknowledgements): Update list of contributors to code, user
+ feedback, etc. Does not affect the status of copyright assignment.
+ (Meta): Update URLs to protesilaos.com (my website).
+
+ * etc/themes/modus-themes.el (modus-themes-variable-pitch)
+ (modus-themes-fixed-pitch, modus-themes-no-mixed-fonts): Reference the
+ new 'modus-themes-mixed-fonts' user option.
+ (modus-themes--headings-choice): Include new font weight styles.
+ (modus-themes-headings): Document the new feature of accepting an
+ explicit font weight.
+ (modus-themes-org-agenda): Document the refinements to the 'event' key
+ of the alist and the new 'varied' property it accepts.
+ (modus-themes-lang-checkers): Describe the new 'faint' property.
+ (modus-themes-mode-line-padding): Include new user option.
+ (modus-themes-intense-hl-line): Remove old-deprecated user option.
+ (modus-themes-intense-markup): Add new option.
+ (modus-themes-success-deuteranopia): Update doc string.
+ (modus-themes--fixed-pitch): Work with 'modus-themes-mixed-fonts'.
+ (modus-themes--lang-check): Update internal function to add the
+ 'faint' property of 'modus-themes-lang-checkers'.
+ (modus-themes--markup): Add helper function.
+ (modus-themes--heading-weights): Private variable with available font
+ weights.
+ (modus-themes--heading-weight): New helper function to pick the
+ desired font weight.
+ (modus-themes--heading): Update helper function to implement the
+ aforementioned change to 'modus-themes-headings'.
+ (modus-themes--agenda-event): Update helper function to apply the new
+ styles of 'modus-themes-org-agenda'.
+ (modus-themes--mode-line-padding): Add helper function for
+ 'modus-themes-mode-line-padding'.
+ (modus-themes--mode-line-attrs): Minor refinements.
+ (modus-themes-load-operandi, modus-themes-load-vivendi): Make these
+ functions interactive.
+ (modus-themes-faces): Update faces.
+
+ * etc/themes/modus-operandi-theme.el: Bump version number.
+ * etc/themes/modus-vivendi-theme.el: Same.
+
+ * * *
+
+ A detailed change log entry is available here:
+ <https://protesilaos.com/codelog/2021-11-18-modus-themes-1-7-0/>.
+
+2021-11-18 Michael Albinus <michael.albinus@gmx.de>
+
+ Extend abbreviate-file-name for further Tramp methods.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ Add 'abbreviate-file-name'.
+ (tramp-gvfs-handle-expand-file-name):
+ * lisp/net/tramp.el (tramp-handle-expand-file-name): Handle case
+ that tilde cannot be expanded.
+
+ * test/lisp/net/tramp-tests.el (tramp-test07-abbreviate-file-name):
+ Extend test.
+
+2021-11-18 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ Fixup for bug#51037
+
+ * lisp/emacs-lisp/ert.el (ert-batch-backtrace-line-length): Fix
+ docstring.
+ (ert-run-tests-batch): Remove redundand let-binding.
+ (ert-run-tests-interactively): Fix interactive spec.
+
+2021-11-18 Mattias Engdegård <mattiase@acm.org>
+
+ Eliminate ERT test name clashes (bug#51941)
+
+ * test/lisp/electric-tests.el (js-mode-braces-with-layout-and-indent):
+ * test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-test-fifth):
+ * test/lisp/thingatpt-tests.el (test-symbol-thing-2):
+ Remove duplicated tests.
+ * test/lisp/emacs-lisp/generator-tests.el (cps-loop):
+ * test/lisp/emacs-lisp/ring-tests.el (ring-tests-insert):
+ * test/lisp/help-tests.el
(help-tests-substitute-command-keys/no-change):
+ * test/lisp/net/netrc-tests.el (test-netrc-credentials):
+ * test/lisp/progmodes/elisp-mode-tests.el
+ (elisp-completes-functions-after-let-bindings):
+ * test/lisp/thingatpt-tests.el (test-symbol-thing-3):
+ * test/src/buffer-tests.el (deftest-overlayp-1, buffer-tests--*):
+ * test/src/buffer-tests.el (test-buffer-swap-text-1):
+ * test/src/data-tests.el (binding-test-set-constant-nil)
+ (data-tests-logcount):
+ Rename clashing tests.
+
+2021-11-18 Mattias Engdegård <mattiase@acm.org>
+
+ Signal an error for duplicated ERT tests (bug#51941)
+
+ Make `ert-deftest` fail with an error (in batch mode only) if an
+ existing test is redefined, because that is an easy mistake to make
+ and which leads to a test being discarded silently.
+
+ lisp/emacs-lisp/ert.el (ert-set-test, ert-deftest): Add check.
+ etc/NEWS: Announce.
+
+2021-11-18 Mattias Engdegård <mattiase@acm.org>
+
+ Avoid adding duplicates to Xref history
+
+ * lisp/progmodes/xref.el (xref--push-backward, xref--push-forward):
+ New functions.
+ (xref-push-marker-stack, xref-go-back, xref-go-forward): Use them.
+
+2021-11-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert VC-related prefix user options to previous values
+
+ * lisp/vc/smerge-mode.el (smerge-command-prefix):
+ * lisp/vc/pcvs.el (cvs-minor-mode-prefix):
+ * lisp/vc/diff-mode.el (diff-minor-mode-prefix): Revert to
+ previous values, as external packages rely on those values.
+
+2021-11-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix `narrow-to-defun' in "async function" in js-mode
+
+ * lisp/progmodes/js.el (js--plain-method-re):
+ (js--function-prologue-beginning):
+ (js--ensure-cache): Allow "async" before "function" (bug#51926).
+ This makes `narrow-to-defun' work as expected.
+
+2021-11-18 Greg Minshall <minshall@umich.edu>
+
+ Fix eldoc usage of newly introduced variable
+
+ * lisp/emacs-lisp/eldoc.el
+ (eldoc-display-message-no-interference-p): Make this function work
+ in older Emacs versions again (bug#51939).
+
+2021-11-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the optional describe-map-tree parameters optional
+
+ * lisp/help.el (describe-map-tree): Make the optional parameters
+ optional. This makes testing easier.
+
+2021-11-18 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Don't ignore restriction in indent-region-line-by-line
+
+ * lisp/indent.el (indent-according-to-mode): Don't widen if the new
+ optional argument is non-nil.
+ (indent-region): Explicitly widen before calling
+ indent-region-line-by-line.
+ (indent-region-line-by-line): Don't widen (bug#51892).
+
+ Emacs convention is that low-level functions should respect restriction
+ so that their callers can set restriction according to their needs. For
+ example, 'c-indent-region' is a lower-level function which respects the
+ current restriction and 'indent-region' is a higher-level user command
+ which sets the restriction for lower-level functions, it calls
+ "(widen)".
+
+ 'indent-region-line-by-line' is a low-level function on a similar level
+ as 'c-indent-region'. This patch makes it respect the current
+ restriction instead of having it call "(widen)".
+
+2021-11-17 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Fix two failing tests in mh-utils-tests
+
+ * test/lisp/mh-e/mh-utils-tests.el
+ (mh-test-utils-mock-call-process): Add mock for root folders.
+ (mh-folder-completion-function-08-plus-slash)
+ (mh-folder-completion-function-09-plus-slash-tmp): Skip these tests
+ with Mailutils, which doesn't handle root folders. (Bug#51902)
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Revert "* lisp/image-dired.el: Remove unnecessary 'declare-function'."
+
+ This reverts commit e0261d4a0cf2a23d32b51b84870a3a75f8273c7c.
+
+ This commit gives warnings on builds --without-x.
+ Problem pointed out by Glenn Morris <rgm@gnu.org> in:
+ https://lists.gnu.org/r/emacs-devel/2021-11/msg01278.html
+
+2021-11-17 Eli Zaretskii <eliz@gnu.org>
+
+ Fix recent changes related to USABLE_SIGIO
+
+ * src/process.c (wait_reading_process_output) [WINDOWSNT]:
+ * src/keyboard.c (handle_async_input) [DOS_NT]: Ifdef away the
+ code that is not needed on MS-Windows. (Bug#50403) (Bug#51820)
+
+2021-11-17 Ken Brown <kbrown@cornell.edu>
+
+ Make process_pending_signals useful on systems without SIGIO
+
+ * src/keyboard.c (handle_async_input): Call gobble_input
+ unconditionally, not just if USABLE_SIGIO is defined. This makes
+ process_pending_signals do something useful on systems that have
+ to poll for input. (Bug#51820)
+
+2021-11-17 Ken Brown <kbrown@cornell.edu>
+
+ Avoid delays waiting for input on systems without SIGIO
+
+ * src/process.c (wait_reading_process_output) [!USABLE_SIGIO]: If
+ we're waiting for input, don't use a timeout of more than 25 msec
+ in the call to select. (Bug#50043)
+
+2021-11-17 Po Lu <luangruo@yahoo.com>
+
+ Prevent subprocess hangs in xwidget
+
+ * src/xwidget.c (Fmake_xwidget, Fxwidget_webkit_goto_url): Use
+ `catch_child_signal' instead of trying to preserve the previous
+ signal handler.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Use substitute-command-keys in some messages
+
+ * lisp/dired.el (dired-get-file-for-visit):
+ * lisp/doc-view.el (doc-view-buffer-message):
+ * lisp/help.el (help-window-setup):
+ * lisp/ibuf-ext.el (ibuffer-do-kill-lines):
+ * lisp/vc/ediff.el (ediff-documentation): Use 'substitute-command-keys'.
+
+2021-11-17 Po Lu <luangruo@yahoo.com>
+
+ Don't draw xwidgets that have just been resized
+
+ This serves to eliminate the huge black bar displayed when the
+ offscreen widget has been resized (and as such the damage event
+ signal is sent), but the X window hasn't.
+
+ * src/xwidget.c (xv_do_draw): Don't draw xwidgets that have
+ just been resized.
+ (x_draw_xwidget_glyph_string)
+ (xwidget_init_view): Clear just_resized.
+
+ (Fxwidget_resize): Set just_resized first, then queue allocate.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Ignore some externally maintained files in AUTHORS
+
+ * admin/authors.el (authors-ignored-files): Ignore externally
+ maintained files.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/image-dired.el: Remove unnecessary 'declare-function'.
+
+2021-11-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change the call signature to keymap-substitute
+
+ * lisp/keymap.el (keymap-substitute): Make the keymap the first
+ parameter for symmetry with the other functions.
+ * lisp/emacs-lisp/shortdoc.el (keymaps):
+ * lisp/emacs-lisp/bytecomp.el (lambda): Adjust.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ fa0b34b716 * admin/authors.el (authors-ignored-files): Ignore some NE...
+ c25be3e7bb * lisp/tab-bar.el (tab-bar-select-tab): Add check for wc-f...
+ 38d905abf9 * lisp/tab-bar.el: Doc fixes for commands bound to modifie...
+
+2021-11-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make bookmark-set prompt less confusing
+
+ * lisp/bookmark.el (bookmark-set): Make the prompt less confusing
+ (bug#51876).
+
+2021-11-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mh-mime build problem
+
+ * lisp/mh-e/mh-mime.el (mh-acros): Require to get mh-dlet*.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Temporarily mark two failing tests as unstable
+
+ * test/lisp/mh-e/mh-utils-tests.el
+ (mh-folder-completion-function-08-plus-slash)
+ (mh-folder-completion-function-09-plus-slash-tmp): Temporarily
+ mark two failing tests as unstable.
+
+2021-11-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bookmark-bmenu-mode-map syntax
+
+ * lisp/bookmark.el (bookmark-bmenu-mode-map): Fix syntax in
defvar-keymap.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Remove some references to XEmacs
+
+ * lisp/emulation/viper-cmd.el (viper-start-R-mode):
+ * lisp/emulation/viper-init.el (viper-window-display-p):
+ * lisp/emulation/viper-mous.el (viper-surrounding-word):
+ * lisp/mail/footnote.el (footnote-mode):
+ * lisp/textmodes/reftex-index.el: Remove some comments referring to
+ XEmacs.
+
+2021-11-17 Stefan Kangas <stefan@marxist.se>
+
+ Make mh-funcall-if-exists obsolete
+
+ * lisp/mh-e/mh-acros.el (mh-funcall-if-exists): Make obsolete.
+ * lisp/mh-e/mh-alias.el (mh-read-address):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode):
+ * lisp/mh-e/mh-mime.el (mh-mm-display-part):
+ * lisp/mh-e/mh-show.el (mh-defun-show-buffer):
+ * lisp/mh-e/mh-speed.el (mh-speedbar-change-expand-button-char):
+ * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define):
+ * lisp/mh-e/mh-utils.el (mh-logo-display):
+ * lisp/mh-e/mh-xface.el (mh-face-display-function): Don't use
+ above obsolete macro.
+
+2021-11-16 Stefan Kangas <stefan@marxist.se>
+
+ Convert keymaps in bookmark.el to defvar-keymap
+
+ * lisp/bookmark.el (bookmark-map)
+ (bookmark-minibuffer-read-name-map)
+ (bookmark-edit-annotation-mode-map, bookmark-bmenu-mode-map):
+ Convert to defvar-keymap.
+
+2021-11-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/rot13.el (rot13-translate-table): Make it a `translation-table`
+
+ (rot13-display-table): Use `dotimes`.
+
+2021-11-16 Stefan Kangas <stefan@marxist.se>
+
+ * admin/gitmerge.el (gitmerge-mode-map): Convert to defvar-keymap.
+
+2021-11-16 Po Lu <luangruo@yahoo.com>
+
+ Update xwidget webkit history buffer more eagerly
+
+ * lisp/xwidget.el (xwidget-webkit-callback): Update history
+ buffer on each load-changed event.
+
+2021-11-16 Alan Third <alan@idiocy.org>
+
+ Only set LANG if the ID is valid
+
+ * src/nsterm.m (ns_init_locale): Check the provided locale identifier
+ is available before trying to use it.
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make keymap-unset work
+
+ * lisp/keymap.el (keymap-unset): Fix key syntax (bug#51897).
+
+2021-11-16 Eli Zaretskii <eliz@gnu.org>
+
+ Put back documentation of legacy keymap functions
+
+ * doc/lispref/keymaps.texi (Low-Level Key Binding): Reinstate
+ documentation of legacy commands and functions.
+
+2021-11-16 Yuuki Harano <masm+github@masm11.me>
+
+ Support xterm-mouse-mode mouse-4/5
+
+ When I opened both pgtk frame and terminal frame using daemon
+ mode, I get mouse-4 on terminal frame and wheel-up on pgtk frame.
+ I support both events as mwheel events at the same time. (Bug#50321)
+
+ * lisp/mwheel.el (mouse-wheel-down-event): It is both mouse-4 and
wheel-up.
+ (mouse-wheel-up-event): mouse-5 and wheel-down.
+ (mouse-wheel-left-event): mouse-6 and wheel-left.
+ (mouse-wheel-right-event): mouse-7 and wheel-right.
+ (mouse-wheel--button-eq): New function to test a button is included in
+ a list.
+ (mouse-wheel--button-flatten): New function to make flatten list of
+ events.
+ (mwheel-scroll): Use mouse-wheel--button-eq instead of eq.
+ (mouse-wheel-text-scale): Use mouse-wheel--button-eq instead of eq.
+ (mouse-wheel--setup-bindings): Make it flatten.
+
+2021-11-16 Yuuki Harano <masm+github@masm11.me>
+
+ Remove garbage #ifndef
+
+ Maybe it was left by git merge miss.
+ It prevented feature/pgtk from successful X-build with xwidget.
+
+ * src/xwidget.c (Fxwidget_resize):
+
+2021-11-16 Eli Zaretskii <eliz@gnu.org>
+
+ Minor copyedits of recent documentation changes
+
+ * doc/lispref/keymaps.texi (Low-Level Key Binding): Minor changes
+ in wording and markup.
+
+2021-11-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Some minor Tramp updates
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-add-directory): Add comment.
+
+ * lisp/net/tramp.el (tramp-debug-buffer-command-completion-p)
+ (tramp-setup-debug-buffer): New defuns.
+ (tramp-get-debug-buffer): Call `tramp-setup-debug-buffer.
+
+ * test/lisp/net/tramp-tests.el (tramp-test07-abbreviate-file-name):
+ Extend test.
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix compilation error in previous keymap.c change
+
+ * src/keymap.c (initial_define_lispy_key, define_as_prefix): Fix
+ --enable-checking error.
+
+2021-11-16 Po Lu <luangruo@yahoo.com>
+
+ Lower xwidget views owned by parent when lowering frame
+
+ * src/xterm.c (x_lower_frame): Lower parent frame's xwidget
+ views as well.
+
+ * src/xwidget.h (lower_frame_xwidget_views):
+ * src/xwidget.c (lower_frame_xwidget_views): New function.
+
+2021-11-16 Po Lu <luangruo@yahoo.com>
+
+ Add command to browse xwidget history
+
+ * doc/emacs/misc.texi (Embedded WebKit Widgets)
+ * etc/NEWS: Document `xwidget-webkit-browse-history'.
+
+ * lisp/xwidget.el (xwidget-webkit-mode-map): Bind "H" to
+ xwidget-webkit-browse-history.
+ (xwidget-webkit-import-widget): Set last session buffer correctly.
+ (xwidget-webkit-browse-history): New command.
+ (xwidget-webkit-history--session): New variable.
+
+ (xwidget-webkit-history--insert-item)
+ (xwidget-webkit-history-select-item)
+ (xwidget-webkit-history-reload): New functions.
+
+ (xwidget-webkit-history-mode): New major mode.
+
+2021-11-16 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Merge pull request from stephe-ada-guru/master
+
+ Fix issues https://github.com/joaotavora/eglot/issues/755,
https://github.com/joaotavora/eglot/issues/401; severity not set in
textDocument/publishDiagnostics
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/759
+
+2021-11-16 Gregory Heytings <gregory@heytings.org>
+
+ New X resource to control the border thickness of menus
+
+ * lwlib/xlwmenu.h (XtNborderThickness, XtCBorderThickness): New X
+ resource name.
+ * lwlib/xlwmenuP.h (XlwMenuPart): New border_thickness field.
+ * lwlib/xlwmenu.c (xlwMenuResources): Access the new resource.
+ (draw_shadow_rectangle): Use the new resource value.
+ * doc/emacs/xresources.texi (Lucid Resources): Document the new
+ resource (bug#51867).
+
+2021-11-16 Michael Herstine <sp1ff@pobox.com>
+
+ Make results details in ert-run-tests-batch configurable
+
+ * lisp/emacs-lisp/ert.el (ert-batch-print-length)
+ (ert-batch-print-level,.ert-batch-backtrace-line-length)
+ (ert-batch-test, ert-run-tests-interactively): Added the three
+ variables, bound them to these settings when formatting batch
+ test results including backtraces. Removed the optional
+ parameters output-buffer & message-fn from
+ ert-run-tests-interactively.
+ * test/lisp/emacs-lisp/ert-tests.el
+ (ert-test-run-tests-interactively, ert-test-run-tests-batch): use
+ cl-letf to capture output, new tests resp.
+ * test/lisp/ert-x-tests.el (ert-test-run-tests-interactively-2):
+ Changed to use cl-letf to capture output instead of using
+ message-fn.
+ * lisp/emacs-lisp/backtrace.el (backtrace--line-length-or-nil)
+ (backtrace--print-func-and-args): Fixed a bug when setting
+ backtrace-line-length to nil by adding a new function to check
+ for that case & having backtrace--print-func-and-args use it.
+ * doc/misc/ert.texi: document the new variables & their usage
+ (bug#51037).
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Start adjusting the manuals to talk about the keymap-* functions
+
+ * lisp/dired.el (dired--make-directory-clickable):
+ * doc/lispref/keymaps.texi (Keymaps):
+ (Key Sequences):
+ (Prefix Keys):
+ (Active Keymaps):
+ (Key Lookup):
+ (Functions for Key Lookup):
+ (Changing Key Bindings):
+ (Key Binding Commands):
+ (Tool Bar):
+ * doc/lispref/commands.texi (Interactive Codes):
+ (Event Examples):
+ (Event Mod):
+ * doc/emacs/kmacro.texi (Save Keyboard Macro):
+ * doc/emacs/custom.texi (Keymaps):
+ (Keymaps):
+ (Minibuffer Maps):
+ (Rebinding):
+ (Init Rebinding):
+ (Modifier Keys):
+ (Mouse Buttons):
+ (Init Examples):
+ (Init Non-ASCII): Adjust the documentation to remove description
+ of the old syntaxes, and use the new keymap-* functions.
+
+ * doc/lispref/keymaps.texi (Low-Level Key Binding): New node that
+ describes `define-key' and the old key syntaxes.
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust `defvar-keymap' and `define-keymap' to the new syntax
+
+ * lisp/vc/smerge-mode.el (smerge-basic-map):
+ * lisp/vc/pcvs.el (cvs-mode-map):
+ (cvs-minor-mode-prefix):
+ * lisp/vc/log-view.el (log-view-mode-map):
+ * lisp/vc/log-edit.el (log-edit-mode-map):
+ * lisp/vc/diff-mode.el (diff-mode-shared-map):
+ (diff-minor-mode-prefix):
+ * lisp/vc/cvs-status.el (cvs-status-mode-map):
+ * lisp/simple.el (special-mode-map):
+ * lisp/outline.el (outline--insert-open-button):
+ (outline--insert-close-button):
+ * lisp/net/shr.el (shr-map):
+ * lisp/net/eww.el (eww-link-keymap):
+ (eww-mode-map):
+ (eww-submit-map):
+ (eww-bookmark-mode-map):
+ (eww-history-mode-map):
+ (eww-buffers-mode-map):
+ * lisp/mh-e/mh-speed.el (:keymap):
+ * lisp/mh-e/mh-show.el (:keymap):
+ * lisp/mh-e/mh-search.el (:keymap):
+ * lisp/mh-e/mh-letter.el (:keymap):
+ * lisp/mh-e/mh-folder.el (:keymap):
+ * lisp/international/emoji.el (emoji-list-mode-map):
+ * lisp/gnus/spam.el (:keymap):
+ * lisp/gnus/mml.el (mml-mode-map):
+ * lisp/gnus/message.el (message-mode-map):
+ * lisp/gnus/gnus-undo.el (gnus-undo-mode-map):
+ * lisp/gnus/gnus-topic.el (gnus-topic-mode-map):
+ * lisp/gnus/gnus-sum.el (:keymap):
+ * lisp/gnus/gnus-srvr.el (gnus-server-mode-map):
+ (gnus-browse-mode-map):
+ * lisp/gnus/gnus-salt.el (gnus-pick-mode-map):
+ (gnus-tree-mode-map):
+ * lisp/gnus/gnus-msg.el (:prefix):
+ * lisp/gnus/gnus-ml.el (gnus-mailing-list-mode-map):
+ * lisp/gnus/gnus-kill.el (gnus-kill-file-mode-map):
+ * lisp/gnus/gnus-html.el (gnus-html-displayed-image-map):
+ * lisp/gnus/gnus-group.el (:keymap):
+ * lisp/gnus/gnus-eform.el (gnus-edit-form-mode-map):
+ * lisp/gnus/gnus-draft.el (gnus-draft-mode-map):
+ * lisp/gnus/gnus-dired.el (gnus-dired-mode-map):
+ * lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode-map):
+ * lisp/gnus/gnus-art.el (:keymap):
+ (gnus-article-edit-mode-map):
+ * lisp/gnus/gnus-agent.el (gnus-agent-group-mode-map):
+ (gnus-agent-summary-mode-map):
+ (gnus-agent-server-mode-map):
+ (gnus-category-mode-map): Adjust `defvar-keymap' and
+ `define-keymap' to the new syntax.
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new 'keymap-*' functions
+
+ * lisp/keymap.el: New file with all the new keymap-* functions.
+
+ * lisp/loadup.el ("keymap"): Load.
+
+ * lisp/subr.el (kbd): Refactor out all the code to key-parse.
+ (define-key-after, keyboard-translate, global-set-key)
+ (local-set-key, global-unset-key, local-unset-key)
+ (local-key-binding, global-key-binding)
+ (substitute-key-definition): Note in doc strings that these are
+ legacy functions.
+ (define-keymap--define): Use keymap-set.
+
+ * lisp/emacs-lisp/byte-opt.el: Remove the optimizations for
+ defvar-keymap and define-keymap since the macros now only
+ understand the kbd syntax.
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-define-keymap)
+ (byte-compile-define-keymap--define): Warn about invalid key
+ definitions in all keymap-* functions.
+
+ * lisp/emacs-lisp/shortdoc.el (keymaps): Add shortdocs form
+ keymap* functions.
+
+ * src/keymap.c (possibly_translate_key_sequence): Adjust callers
+ to key-valid-p and key-parse.
+ (syms_of_keymap): Adjust defs.
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow removing keymap definitions
+
+ * src/keymap.c (initial_define_lispy_key): Adjust caller.
+ (store_in_keymap): Allow removing definitions in addition to
+ setting them to nil.
+ (Fdefine_key): Ditto.
+ (define_as_prefix): Adjust caller.
+
+ * src/term.c (term_get_fkeys_1): Adjust caller.
+
+2021-11-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make erc-mode noninteractive
+
+ * lisp/erc/erc.el (erc-mode): Mark it as noninteractive, because
+ using it from `M-x' will only lead to problems (bug#51841).
+
+2021-11-16 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ e852822f3d Fix removal of fringe marks of deleted bookmarks
+ b418aad85a * lisp/repeat.el (repeat-echo-message): Bind message-log-m...
+ fe2ac7cb7c * lisp/repeat.el (describe-repeat-maps): Use help-fns--ana...
+ c840bfe7e1 * lisp/repeat.el: Detect changes in the minibuffer state (...
+ 5044151486 Avoid segfaults due to freed face cache
+ 199e2468d3 Doc fix; change recommended file name of custom-file
+
+2021-11-16 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Fix handling of folder "+/" in MH-E
+
+ * lisp/mh-e/mh-utils.el (mh-sub-folders): Fix handling of "+/".
+ * test/lisp/mh-e/mh-utils-tests.el
+ (mh-folder-completion-function-08-plus-slash)
+ (mh-folder-completion-function-09-plus-slash-tmp):
+ Fix errors made importing tests from mh-unit.el; remove declaration
+ that these tests are expected to fail.
+
+2021-11-16 Mike Kupfer <mkupfer@alum.berkeley.edu>
+
+ Fix checkdoc complaints in MH-E
+
+ * lisp/mh-e/mh-compat.el (mh-flet): Rewrite most of the docstring.
+ (mh-write-file-functions): Remove trailing space.
+ * lisp/mh-e-mh-scan.el (mh-scan-cmd-note-width): Break up a
+ line that was too long.
+
+2021-11-15 Stefan Kangas <stefan@marxist.se>
+
+ Fix recently changed wdired test on MS-Windows
+
+ * test/lisp/wdired-tests.el (wdired-test-bug34915): Don't try to
+ create a local socket on MS-Windows, as it is not supported on that
+ platform. Problem reported by Robert Pluim <rpluim@gmail.com>.
+
+2021-11-15 Po Lu <luangruo@yahoo.com>
+
+ Prevent xwidget windows from obscuring child frames
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Lower view window
+ when creating it.
+
+2021-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget isearch for queries that look like format strings
+
+ * lisp/xwidget.el (xwidget-webkit-isearch--update): Give special
+ treatment to messages.
+
+2021-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix documentation string
+
+ * src/xwidget.c (Vxwidget_list, Vxwidget_views_list): Fix
+ horrid doc string.
+
+2021-11-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix minor problems resulting from Tramp regression tests
+
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ Add comment.
+
+ * lisp/net/tramp-cache.el (tramp-flush-file-upper-properties):
+ FILE can be "~".
+
+ * lisp/net/tramp.el ('tramp-ensure-dissected-file-name):
+ Add `tramp-suppress-trace' property.
+ (tramp-get-debug-buffer): Add local key for debugging.
+ (tramp-handle-abbreviate-file-name): Adapt implementation.
+
+ * test/lisp/net/tramp-tests.el
+ (tramp-test07-abbreviate-file-name):
+ Adapt test.
+ (tramp-test17-insert-directory-one-file)
+ (tramp--test-check-files): Use proper `no-dir' argument for
+ `dired-get-filename'.
+
+2021-11-15 Yuuki Harano <masm+github@masm11.me>
+
+ Avoid handle terminal frames in pgtk_mouse_position.
+
+ Just above, f1 can become a selected frame, which may be a terminal
+ frame. We can't call gtk_widget_get_window() for a terminal frame.
+
+ * src/pgtkterm.c (pgtk_mouse_position): Return if it is not a pgtk
frame.
+
+2021-11-15 Jim Porter <jporterbugs@gmail.com>
+
+ Add another 'abbreviate-file-name' test
+
+ * test/lisp/files-tests.el
+ (files-tests-file-name-non-special-abbreviate-file-name): New test.
+
+2021-11-15 Jim Porter <jporterbugs@gmail.com>
+
+ Support abbreviating home directory of Tramp filenames
+
+ * doc/lispref/files.texi (Magic File Names): Mention
+ 'abbreviate-file-name' in the list of magic file name handlers.
+
+ * etc/NEWS: Announce the change.
+
+ * lisp/files.el (file-name-non-special):
+ * lisp/net/tramp.el (tramp-file-name-for-operation):
+ * lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist):
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Add 'abbreviate-file-name'.
+
+ * lisp/files.el (directory-abbrev-make-regexp):
+ (directory-abbrev-apply): New functions.
+ (abbreviate-file-name): Check for file name handler.
+
+ * test/lisp/net/tramp-tests.el (tramp-test07-abbreviate-file-name):
+ New test.
+
+2021-11-15 Yuuki Harano <masm+github@masm11.me>
+
+ Fix coding style
+
+ * src/gtkutil.c (xg_set_no_accept_focus):
+ * src/pgtkterm.c (pgtk_focus_frame):
+ (button_event):
+
+2021-11-15 Jeff Walsh <fejfighter@gmail.com>
+
+ pgtk: Handle (child) frame focusing better
+
+ child frames on pgtk are gtk widgets inside the parent surface, rather
+ than subsurfaces (in wayland ters), and the edit widget is handled
+ separately from the parent window, so we need to handle signals more
+ correctly, rather than squinting and assuming an event for the window
+ is just an event for the edit widget.
+
+ * src/gtkutil.c (xg_set_no_accept_focus): set
+ focus on widget rather than request it on window
+ * src/pgtkterm.c (pgtk_focus_frame): focus frame on edit_widget
+ instead
+ (button_event): Implement focus calls to replace dead X calls
+
+2021-11-15 Stefan Kangas <stefan@marxist.se>
+
+ Fix hanging wdired test
+
+ * test/lisp/wdired-tests.el (wdired-test-bug34915): Fix hanging
+ test. Don't start the Emacs Server just to create a socket; just
+ create the socket manually.
+
+2021-11-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix outline-cycle-buffer issue in `C-h b' buffers
+
+ * lisp/outline.el (outline--fix-up-all-buttons): Fix issue when
+ called after collapsing a buffer (bug#51855).
+
+2021-11-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow mm-external-terminal-program to be a list of strings
+
+ * doc/misc/emacs-mime.texi (Display Customization): Document it.
+
+ * lisp/gnus/mm-decode.el (mm-external-terminal-program): Allow
+ being a list.
+
+2021-11-15 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix handling of changed prefix keys in tutorial
+
+ * lisp/tutorial.el (tutorial--find-changed-keys): Use keymapp to
+ detect prefix definitions rather than hard-coding them. A notable
+ omission from the hard-coded list was mode-specific-command-prefix,
+ whose subcommands are often rebound (bug#40725).
+
+2021-11-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 044dd1e210 * rcirc.el (rcirc-define-command): Fix interactive-spec ge...
+
+2021-11-15 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 85ac0efe7c Fix semantic-symref-perform-search doc string
+
+2021-11-15 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget-webkit-back-forward-list
+
+ * src/xwidget.c (Fxwidget_webkit_back_forward_list): Use correct
+ list variable in loop.
+
+2021-11-14 Po Lu <luangruo@yahoo.com>
+
+ Stop assuming xwidget views will only be displayed in TEXT_AREA
+
+ * src/xterm.c (x_scroll_run): Use view->area when calculating
+ xwidget view clipping.
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Set view->area
+ to s->area and use that instead.
+
+ * src/xwidget.h (struct xwidget_view): Add glyph row area field.
+
+2021-11-14 Ken Brown <kbrown@cornell.edu>
+
+ Prefer POSIX timers to timerfd timers
+
+ * src/atimer.c (set_alarm): Try to start a POSIX timer before
+ starting a timerfd timer. On Cygwin, return if the POSIX timer is
+ started successfully. (Bug#51734)
+
+2021-11-14 Juri Linkov <juri@linkov.net>
+
+ * lisp/tab-line.el (tab-line-mode): Preserve existing value of
tab-line-format
+
+ Keep the old value of tab-line-format when enabling tab-line-mode
+ and don't overwrite it with nil when disabling tab-line-mode
(bug#51830).
+
+2021-11-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * src/lread.c (read_escape): Fix handling of ?\C-<char> for chars
128-255
+
+2021-11-14 Eli Zaretskii <eliz@gnu.org>
+
+ Fix recent documentation updates
+
+ * doc/lispref/text.texi (Special Properties): Improve wording.
+ Add cross-reference and index entry.
+ (Sticky Properties): Add indexing.
+
+2021-11-14 Yuuki Harano <masm+github@masm11.me>
+
+ Add WAYLAND_DISPLAY description to cmdargs.texi
+
+ * doc/emacs/cmdargs.texi (Misc Variables): Add WAYLAND_DISPLAY
+ description.
+
+2021-11-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve Tramp error handling
+
+ * doc/misc/tramp.texi (Frequently Asked Questions): Add another
+ `remote-file-error'.
+
+ * lisp/net/tramp.el (tramp-find-foreign-file-name-handler):
+ Improve error handling.
+
+2021-11-14 Jeff Walsh <fejfighter@gmail.com>
+
+ pgtk: Set correct face color for stretched glyphs
+
+ * src/pgtkterm.c (x_draw_stretch_glyph_string): s/foreground/background
+ (Bug#50579)
+
+2021-11-14 Jeff Walsh <fejfighter@gmail.com>
+
+ configure.ac (PGTK_LIBS): remove pgtk dl dependency (Bug#50494)
+
+2021-11-14 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 5dbad52 gnus-summary-line-format doc string clarification
+ d4536ff Fix follow-scroll-down in a small buffer which starts slightl...
+
+2021-11-14 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ a56dd60 Improve style and comments in font-related sources
+
+2021-11-14 Yuuki Harano <masm+github@masm11.me>
+
+ Fix coding style
+
+ Especially, insert a space between function name and paren.
+
+ * src/alloc.c (garbage_collect):
+ * src/font.h:
+ * src/frame.h:
+ * src/fringe.c:
+ * src/gtkutil.c (xg_set_screen):
+ (xg_create_frame_widgets):
+ (xg_create_frame_outer_widgets):
+ (xg_get_file_name):
+ (xg_get_font):
+ (xg_update_scrollbar_pos):
+ * src/image.c (image_create_bitmap_from_file):
+ (xpm_load_image):
+ * src/pgtkfns.c (pgtk_get_monitor_scale_factor):
+ (is_wayland_display):
+ (pgtk_display_info_for_name):
+ (INSTALL_CURSOR):
+ (Fx_create_frame):
+ (Fx_display_mm_height):
+ (Fx_display_mm_width):
+ (Fx_display_pixel_width):
+ (Fx_display_pixel_height):
+ * src/pgtkselect.c (pgtk_selection_usable):
+ (Fpgtk_own_selection_internal):
+ (Fpgtk_get_selection_internal):
+ * src/pgtkterm.c:
+ (x_set_parent_frame):
+ (pgtk_draw_fringe_bitmap):
+ (pgtk_handle_draw):
+ (scroll_event):
+ (pgtk_text_scaling_factor):
+ (pgtk_term_init):
+ * src/pgtkterm.h:
+ * src/window.h:
+ * src/xdisp.c (redisplay_internal):
+ (draw_glyphs_debug):
+ (draw_glyphs):
+ (note_mouse_highlight):
+
+2021-11-14 Po Lu <luangruo@yahoo.com>
+
+ Expose xwidget navigation history to Lisp code
+
+ * doc/lispref/display.texi (Xwidgets): Document changes.
+ * etc/NEWS: Announce new function.
+ * src/xwidget.c (Fxwidget_webkit_back_forward_list): New
+ function.
+ (syms_of_xwidget): Define new subr.
+
+2021-11-14 Po Lu <luangruo@yahoo.com>
+
+ Add `kill-xwidget'
+
+ * doc/lispref/display.texi (Xwidgets): Document 'kill-xwidget'.
+ * src/xwidget.c (kill_xwidget, Fkill_xwidget): New function.
+ (syms_of_xwidget): Define new subr.
+ (kill_buffer_xwidgets): Use `kill_xwidget' instead.
+
+2021-11-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix previous -responsible-p change
+
+ * lisp/vc/vc-sccs.el (vc-sccs-responsible-p):
+ * lisp/vc/vc-rcs.el (vc-rcs-responsible-p):
+ * lisp/vc/vc-cvs.el (vc-cvs-responsible-p): Make the previous
+ change work with relative file names, too.
+
+2021-11-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Explain in the manual how to make `cursor-intangible' work
+
+ * doc/lispref/text.texi (Special Properties): Explain how to make
+ `cursor-intangible' work (bug#51095).
+
+2021-11-13 Po Lu <luangruo@yahoo.com>
+
+ Fix crash in xwidget_end_redisplay
+
+ * src/xwidget.c (xwidget_end_redisplay): Always test if xv is
+ NULL.
+
+2021-11-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix `C-h k' in gnus-article-mode
+
+ * lisp/gnus/gnus-art.el (gnus-article-describe-key):
+ (gnus-article-describe-key-briefly): Fix `describe-key' calling
+ convention (bug#51796).
+
+2021-11-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make all vc-*-responsible-p functions return a string
+
+ * lisp/vc/vc-sccs.el (vc-sccs-responsible-p):
+ * lisp/vc/vc-rcs.el (vc-rcs-responsible-p):
+ * lisp/vc/vc-dav.el (vc-dav-responsible-p):
+ * lisp/vc/vc-cvs.el (vc-cvs-responsible-p): Return a file name
+ instead of t when we get a match (which is what
+ vc-backend-for-registration expects) (bug#51800).
+
+2021-11-13 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Fix customization group of python-forward-sexp-function
+
+ * lisp/progmodes/python.el (python-forward-sexp-function): Move from
+ the "Flymake integration" subsection to the "Navigation" subsection,
+ so that the option is sorted into the 'python' group rather than the
+ 'python-flymake' group (bug#51807).
+
+2021-11-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix Gnus gcc header tokenization
+
+ * lisp/gnus/gnus-msg.el (gnus-summary-resend-message-insert-gcc)
+ (gnus-inews-do-gcc): Fix tokenization of the gcc header.
+
+2021-11-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Adjust build-dep-zips.py download link
+
+ * admin/nt/dist-build/build-dep-zips.py (download_source): Adjust
+ the download link (bug#40628).
+
+2021-11-13 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Find most specific backend for `vc-backend-for-registration'.
+
+ * lisp/vc/vc.el (vc-backend-for-registration): Count file name
+ components instead of the length of the file name string (bug#50572).
+
+2021-11-13 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ MH-E threads code: use mh-scan variables correctly
+
+ * lisp/mh-e/mh-thread.el (mh-thread-current-indentation-level)
+ (mh-thread-find-children): Fix off-by-one error by using
+ 'mh-scan-field-from-start-offset' directly, as
+ 'mh-thread-parse-scan-line' does. Previously, these functions would
+ incorrectly consider the "date note" column as part of the thread
+ indenting. Since that column is almost always a Space character, that
+ almost always worked.
+ (mh-thread-ancestor): Update caller.
+ * test/lisp/mh-e/mh-thread-tests.el: New unit tests for affected code.
+ * lisp/mh-e/mh-scan.el (mh-msg-num-width-to-column): Fix doc string
typo.
+
+2021-11-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Revert accidential commit in icomplete.el
+
+2021-11-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Remove Tramp's `dired-compress-file' handler, not needed anymore
+
+ * lisp/dired-aux.el (dired-check-process, dired-shell-command):
+ Call `dired-uncache'.
+ (dired-compress-file): Use `file-local-name'.
+
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+ * lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
+ * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
+ Remove superfluous comment.
+
+ * lisp/net/tramp-sh.el (dired-compress-file): Declare.
+ (tramp-sh-handle-dired-compress-file): Call real handler for
+ Emacs >= 29.
+
+ * lisp/net/tramp.el (tramp-file-name-for-operation): Reorder list.
+
+ * test/lisp/net/tramp-tests.el (tramp-test45-dired-compress-file)
+ (tramp-test45-dired-compress-dir): Adapt comment.
+
+2021-11-13 Po Lu <luangruo@yahoo.com>
+
+ Fix scroll event test in handle_one_xevent
+
+ * src/xterm.c (handle_one_xevent): Test for scroll wheel button
+ correctly in xwidget code.
+
+2021-11-13 Eli Zaretskii <eliz@gnu.org>
+
+ Fix font selection via :family on MS-Windows
+
+ * src/font.c (font_delete_unmatched) [HAVE_NTGUI]: Allow non-exact
+ matches of :weight when looking for a suitable font. (Bug#51768)
+
+2021-11-13 Alan Mackenzie <acm@muc.de>
+
+ Correct patch from 2021-11-12 on src/fileio.c
+
+ * src/fileio.c (restore_window_points): Reverse commit
+ 974192413f8a81171b8fd28dfd5c081ce06d3dec and instead replace a < by a
<=.
+ This ensures that if w->mpoint is at the top of the middle region being
+ replaced, it gets adjusted and stays at the top after the reinsertion.
+
+2021-11-13 Po Lu <luangruo@yahoo.com>
+
+ Don't emit SELECT_WINDOW_EVENT when an xwidget is scrolled
+
+ * src/xterm.c (handle_one_event): Don't select xwidget window
+ on button event if the button pressed actually represents the
+ scroll wheel.
+
+2021-11-13 Alan Mackenzie <acm@muc.de>
+
+ C++ Mode: Fix incoorect background fontification of <
+
+ Where c-record-found-types gets "bound" to itself, we postpone the
calling of
+ c-fontify-new-type on possible new found types until these are
confirmed by
+ the return from the function tentatively finding these types, for
exmaple
+ c-forward-<>-arglist. We check this "binding" by testing the value of
+ c-record-found-types.
+
+ Correct the background fontification algorithm.
+
+ * lisp/progmodes/cc-engine.el (c-record-found-types): Move the
definition to
+ earlier in the file.
+ (c-add-type-1): Check additionally c-record-found-types is nil before
calling
+ c-fontify-new-found-type.
+ (c-forward-<>-arglist, c-forward-type): On return from a function which
+ collects found types in c-record-found-types, call
c-fontify-new-found-types
+ for each such type.
+
+ * lisp/progmodes/c-fonts.el (c-force-redisplay): Actually fontify the
new
+ found type.
+ (c-fontify-new-found-type): Test for font-lock-mode being enabled.
Remove the
+ spurious condition on the `fontified' text property being nil before
causing
+ c-force-redisplay to get called.
+
+2021-11-13 Stephen Leake <stephen_leake@stephe-leake.org>
+
+ Fix issues; severity not set in textdocument/publishdiagnostics
+
+ * eglot.el (eglot-handle-notification): Handle severity not set.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/755
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/401
+
+2021-11-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't create links to undefined commands in help--describe-command
+
+ * lisp/help.el (help--describe-command): Don't create links to
+ commands that aren't defined.
+
+2021-11-13 Yuuki Harano <masm+github@masm11.me>
+
+ Revert #if changes
+
+ I changed some "#ifdef"s to "#if defined"s by mistake, so I reverted
them.
+
+ * src/alloc.c: Reverted.
+ (garbage_collect): Reverted.
+ * src/emacs.c (main): Reverted.
+ * src/image.c (xpm_load_image): Reverted.
+ (image_disable_image): Reverted.
+ (image_build_heuristic_mask): Reverted.
+
+2021-11-13 Po Lu <luangruo@yahoo.com>
+
+ Use GTK native file choosers in xwidget callback
+
+ * src/xwidget.c (run_file_chooser_cb): Use GtkFileChooserNative
+ instead.
+
+2021-11-13 Yuuki Harano <masm+github@masm11.me>
+
+ Revert atimer changes
+
+ They seem to be not needed any more.
+
+ * src/atimer.c (set_alarm): Revert
+ (turn_on_atimers): Revert
+ (have_buggy_timerfd): Revert
+
+2021-11-13 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 42d4e24ff3 ; Fix typos
+ 0d0125daae Improve documentation of 'decode-coding-region'
+
+2021-11-13 Po Lu <luangruo@yahoo.com>
+
+ Prevent NULL-pointer dereference on xwidget callback error
+
+ * src/xwidget.c (webkit_javascript_finished_cb): Check if
+ `error' is NULL before freeing it.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Fix file chooser hangs inside xwidget-webkit
+
+ * src/xwidget.c (run_file_chooser_cb): New function that runs
+ a nested event loop instead of acting asynchronously.
+ (Fmake_xwidget): Attach file chooser signal.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Remove unused xwidget code in EmacsFixed GTK widget class
+
+ This is no longer required, as we rely on X to position
+ xwidgets now. It also makes resizing Emacs frames slightly
+ slower.
+
+ * src/emacsgtkfixed.c (EMACS_FIXED_GET_CLASS)
+ (struct GtkFixedPrivateL)
+ (emacs_fixed_gtk_widget_size_allocate)
+ (emacs_fixed_class_init) [HAVE_XWIDGETS]: Remove unused code.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Prevent xwidget webkit isearch messages from entering log buffer
+
+ * lisp/xwidget.el (xwidget-webkit-isearch--update): Prevent
+ logging when displaying search contents message.
+
+2021-11-12 Ken Brown <kbrown@cornell.edu>
+
+ Don't start both timerfd and alarms on Cygwin
+
+ * src/atimer.c (set_alarm) [CYGWIN]: Don't start both timerfd and
+ alarms; this causes a slowdown. (Bug#51734)
+
+2021-11-12 Alan Mackenzie <acm@muc.de>
+
+ In insert_file_contents, always set windows' point markers.
+
+ This fixes bug #51776.
+
+ * src/fileio.c (restore_window_points): Restore a w->mpoint even when
that
+ marker originally pointed into the unchanged area near BOB or EOB. This
+ prevents that window's point being moved a long way from its starting
place
+ due to the removal of the central part of the buffer by
insert_file_contents.
+
+2021-11-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Remove Emacs 25 compatibility from Tramp
+
+ * doc/misc/tramp.texi (Remote programs, Remote processes)
+ (Frequently Asked Questions): Adapt Emacs versions.
+
+ * doc/misc/trampver.texi:
+ * lisp/net/trampver.el: Change version to "2.6.0-pre".
+
+ * lisp/net/tramp-adb.el (top): Don't use `tramp-compat-funcall' for
+ connection-local functions.
+
+ * lisp/net/tramp-compat.el (tramp-unload-file-name-handlers)
+ (tramp-handle-temporary-file-directory)
+ (tramp-compat-temporary-file-directory-function)
+ (tramp-compat-file-attribute-type)
+ (tramp-compat-file-attribute-link-number)
+ (tramp-compat-file-attribute-user-id)
+ (tramp-compat-file-attribute-group-id)
+ (tramp-compat-file-attribute-access-time)
+ (tramp-compat-file-attribute-modification-time)
+ (tramp-compat-file-attribute-status-change-time)
+ (tramp-compat-file-attribute-size)
+ (tramp-compat-file-attribute-modes, tramp-file-missing)
+ (tramp-compat-file-missing, tramp-compat-file-local-name): Remove.
+ (tramp-compat-file-name-quoted-p, tramp-compat-file-name-quote)
+ (tramp-compat-file-name-unquote)
+ (tramp-compat-progress-reporter-update)
+ (tramp-compat-file-modes, tramp-compat-set-file-modes)
+ (tramp-compat-set-file-times, tramp-compat-directory-files)
+ (tramp-compat-directory-files-and-attributes): Adapt implementation.
+
+ * lisp/net/tramp.el:
+ * lisp/net/tramp-adb.el:
+ * lisp/net/tramp-archive.el:
+ * lisp/net/tramp-crypt.el:
+ * lisp/net/tramp-fuse.el:
+ * lisp/net/tramp-gvfs.el:
+ * lisp/net/tramp-rclone.el:
+ * lisp/net/tramp-sh.el:
+ * lisp/net/tramp-smb.el:
+ * lisp/net/tramp-sudoedit.el: Adapt callees.
+
+ * lisp/net/tramp-crypt.el (tramp-crypt-config-file-name):
+ Expand file name.
+
+ * lisp/net/tramp-fuse.el (tramp-fuse-handle-file-readable-p): Remove.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-enabled): Don't check Emacs
version.
+ (tramp-gvfs-handler-mounted-unmounted): Use `make-tramp-file-name'.
+
+ * lisp/net/tramp-integration.el (rfn-eshadow-overlay):
+ Remove declaration.
+ (top): Don't use `tramp-compat-funcall' for connection-local functions.
+
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
+ Use `tramp-rclone-handle-file-readable-p'.
+ (tramp-rclone-handle-file-readable-p): New defun.
+
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
+ Use `tramp-handle-file-readable-p'.
+
+ * lisp/net/tramp.el (tramp-temp-name-prefix, tramp-lookup-syntax):
+ Adapt docstring.
+ (tramp-set-connection-local-variables)
+ (tramp-set-connection-local-variables-for-buffer): Don't use
+ `tramp-compat-funcall' for connection-local functions.
+ (tramp-file-name-for-operation): Reorder list.
+ (tramp-handle-make-symbolic-link): Don't handle TARGET and
+ OK-IF-ALREADY-EXISTS.
+ (tramp-read-passwd): Don't use `read-passwd' any longer.
+ (top): Don't check for `interrupt-process-functions'.
+
+ * test/lisp/net/tramp-archive-tests.el (tramp-archive--test-emacs26-p):
+ Remove.
+ (tramp-archive-test02-file-name-dissect): Use `make-tramp-file-name'.
+ (all): Replace Emacs 26 compatibility functions with their
+ original name.
+ (tramp-archive-test46-auto-load)
+ (tramp-archive-test46-delay-load): Rename.
+
+ * test/lisp/net/tramp-tests.el (dired-aux, seq): Require them.
+ (dired-compress, connection-local-criteria-alist)
+ (connection-local-profile-alist, async-shell-command-width):
+ Don't declare.
+ (all): Replace Emacs 26 compatibility functions with their
+ original name.
+ (tramp-test04-substitute-in-file-name)
+ (tramp-test10-write-region, tramp-test11-copy-file)
+ (tramp-test12-rename-file, tramp-test15-copy-directory)
+ (tramp-test17-insert-directory)
+ (tramp-test17-dired-with-wildcards, tramp-test21-file-links)
+ (tramp-test31-interrupt-process)
+ (tramp-test34-connection-local-variables)
+ (tramp-test34-explicit-shell-file-name)
+ (tramp-test40-make-nearby-temp-file)
+ (tramp-test41-special-characters, tramp-test42-utf8)
+ (tramp-test46-delay-load, tramp-test46-remote-load-path)
+ (tramp-test47-unload): Don't check for Emacs 26 special features.
+ (tramp--test-emacs26-p): Remove.
+ (tramp--test-emacs29-p): New defun.
+ (tramp-test45-dired-compress-file)
+ (tramp-test45-dired-compress-dir): Use it.
+ (tramp-test44-asynchronous-requests): Use `seq-random-elt'.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Fix typos in etc/PROBLEMS
+
+ * etc/PROBLEMS (Internationalization problems): Fix typos.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Document problem with fcitx and xwidgets
+
+ * etc/PROBLEMS (Internationalization problems): Document buggy fcitx
+ with xwidgets.
+
+2021-11-12 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-dired): Autoload.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Add support for input methods to xwidget-webkit-edit-mode
+
+ * lisp/xwidget.el (xwidget-webkit--input-method-events): New
+ variable.
+ (xwidget-webkit-pass-command-event-with-input-method): New
+ function.
+ (xwidget-webkit-pass-command-event): Consult input method about
+ key events if input method is enabled.
+
+2021-11-12 Noam Postavsky <npostavs@gmail.com>
+
+ Optimize admin/nt dependency computation
+
+ admin/nt/dist-build/build-dep-zips.py (immediate_deps)
+ (extract_deps): Gather package dependency info in batches, rather than
+ one at a time. This reduces the number of invocations of 'pacman -Si
+ ...' to the depth of the dependency tree, rather than the number of
+ dependent packages.
+ (top-level): Don't call 'extract_deps' when given the '-l' option
(bug#40628).
+
+2021-11-12 Rasmus <rasmus@gmx.us>
+
+ lisp/icomplete.el (icomplete-fido-backward-updir): Expand "~/"
+
+ * lisp/icomplete.el (icomplete-fido-backward-updir): Expand "~/"
+ (bug#43925).
+
+2021-11-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Delete .tar.gz temp file after tramp test
+
+ * test/lisp/net/tramp-tests.el ()
+ (tramp-test45-dired-compress-dir): Delete the temp file (bug#51690).
+
+2021-11-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove unused xlfd_ enums
+
+ * src/xfaces.c: Remove xlfd_weight, xlfd_swidth and xlfd_slant
+ enums. These seem to be unused in the Emacs sources.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Remove obsolete comment
+
+ The comment probably dated back to when xwidgets supported
+ many other GTK+ widgets with other data. In the current
+ implementation of xwidgets, everything that should be freed
+ is already freed in `kill_buffer_xwidgets'.
+
+ * src/xwidget.c (kill_buffer_xwidgets): Remove outdated TODO.
+
+2021-11-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow choosing regular-weighted fonts when medium-weighted exist
+
+ * src/ftfont.c (ftfont_pattern_entity): Allow using both regular
+ and medium-weighted fonts.
+
+2021-11-12 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ a6905e90cc Fix problem with temp buffer killing in package-install-file
+ 144ad77fda Fix Lisp Intro markup error
+ 24b86cb4f7 Fix ACL errors with WebDAV volumes on MS-Windows
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Fix doc string for xwidget-webkit-load-html
+
+ * src/xwidget.c (Fxwidget_webkit_load_html): Fix doc string.
+
+2021-11-12 Po Lu <luangruo@yahoo.com>
+
+ Add input method support for xwidget webkit isearch
+
+ * lisp/xwidget.el (xwidget-webkit-isearch--read-string-buffer):
+ New variable.
+ (xwidget-webkit-isearch-printing-char-with-input-method)
+ (xwidget-webkit-isearch-with-input-method): New function.
+
+ (xwidget-webkit-isearch-printing-char): Add support for Emacs
+ input methods. (bug#51781)
+
+2021-11-11 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Quote function symbols as such
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode-line-up-map)
+ (image-dired-thumbnail-mode-tag-map)
+ (image-dired-thumbnail-mode-map, image-dired-minor-mode-map):
+ Quote function symbols as such.
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Move Info-goto-node-web to "G"
+
+ * lisp/info.el (Info-mode-map): Change the Info-goto-node-web
+ binding to "G" for symmetry with "Info-goto-node".
+
+2021-11-11 Stefan Kangas <stefan@marxist.se>
+
+ Make image-dired-thumbnail-mode non-interactive
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode): No longer
+ interactive, as it only makes sense in a specially prepared buffer.
+
+2021-11-11 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Revamp slideshow functionality
+
+ * lisp/image-dired.el
+ (image-dired-slideshow-delay): New defcustom.
+ (image-dired--slideshow-initial): New defvar.
+ (image-dired-slideshow-start): Don't show any prompts when starting a
+ slideshow, unless user gave a negative prefix argument. Use the value
+ of the above new defcustom as the default delay.
+ (image-dired-slideshow-stop): Don't count number of images. Instead,
+ continue the slideshow until the next command.
+ (image-dired-slideshow-step): Use the correct buffer.
+ (image-dired-slideshow-count, image-dired-slideshow-times): Make
+ obsolete.
+ (image-dired--slideshow-timer): Rename from
+ 'image-dired-slideshow-timer'. Make the old name into an obsolete
+ variable alias.
+ (image-dired-display-image-mode-map)
+ (image-dired-thumbnail-mode-map): Bind 'image-dired-slideshow-start'
+ to "S".
+ (image-dired-thumbnail-mode-menu): Add 'image-dired-slideshow-start'.
+
+2021-11-11 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Improve thumbnail mode menu
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode-menu): Improve menu
+ with more logical ordering and better naming.
+
+2021-11-11 Bryan C. Mills <bcmills@google.com> (tiny change)
+
+ Make "emacs --script /dev/stdin work again when that's a pipe
+
+ * src/lread.c (Fload): Adjust callers.
+
+ * src/lread.c (safe_to_load_version): Check lseek errors
+ (Bug#48940).
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow using /dev/stdin as a --script parameter again
+
+ * lisp/startup.el (command-line-1): Fix breakage with
+ (file-truename "/dev/stdin") => "/proc/227795/fd/pipe:[1381505]"
+ when using /dev/stdin as a --script parameter.
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Fix potential NULL dereference in xwidget-webkit-uri
+
+ * src/xwidget.c (Fxwidget_webkit_uri): Don't assume
+ webkit_web_view_get_uri will always return a valid string.
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Check for WebKit xwidgets inside all xwidget-webkit functions
+
+ This is done in preparation for the introduction of other
+ xwidgets, such as media xwidgets, even though there are
+ only WebKit widgets at present.
+
+ * src/xwidget.c (CHECK_WEBKIT_XWIDGET): New macro.
+ (WEBKIT_FN_INIT): Use CHECK_WEBKIT_XWIDGET.
+
+ (Fxwidget_webkit_search, Fxwidget_webkit_next_result)
+ (Fxwidget_webkit_previous_result)
+ (Fxwidget_webkit_finish_search)
+ (Fxwidget_webkit_load_html): Check that xwidget is a WebKit
+ widget.
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix image-animate declaration
+
+ * lisp/net/shr.el (image-animate): Fix declaration.
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make gnus-article-stop-animations obsolete
+
+ * lisp/gnus/gnus-art.el (gnus-article-stop-animations): Make
+ obsolete now that animated images stop themselves automatically.
+ (gnus-article-setup-buffer):
+ * lisp/gnus/gnus-sum.el (gnus-summary-exit)
+ (gnus-summary-exit-no-update, gnus-summary-show-article): Remove
+ callers.
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow stopping animations automatically when the image disappears
+
+ * lisp/image.el (image-animate): Allow the animation to be stopped
+ automatically when the image is removed from the buffer.
+ (image-animate-timeout): Stop the animation if the image is
+ removed (and that has been requested).
+
+ * lisp/net/shr.el (shr-put-image): Stop animations if the image is
+ removed.
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes from Lisp code modifying xwidget-list
+
+ * src/xwidget.c (internal_xwidget_view_list)
+ (internal_xwidget_list): New variable.
+
+ (find_xwidget_for_offscreen_window)
+ (define_cursors, offscreen_damage_event)
+ (webkit_ready_to_show, xwidget_init_view)
+ (Fxwidget_resize, Fdelete_xwidget_view)
+ (Fxwidget_view_lookup, xwidget_spec_value)
+ (lookup_xwidget, xwidget_end_redisplay)
+ (kill_frame_xwidget_views, kill_buffer_xwidgets)
+ (Fmake_xwidget, Fget_buffer_xwidgets): Use internal list.
+
+ (syms_of_xwidget): Initialize internal xwidget lists.
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Prevent crashes in xwidgets whose buffers have been killed
+
+ * doc/lispref/display.texi (Xwidgets): Explain meaning of killed
+ xwidgets.
+ * src/xwidget.c (Fxwidget_live_p): New function.
+ (Fxwidget_perform_lispy_event, WEBKIT_FN_INIT)
+ (Fxwidget_resize, Fxwidget_size_request)
+ (Fxwidget_info, Fxwidget_plist)
+ (Fset_xwidget_buffer, Fset_xwidget_plist)
+ (Fset_xwidget_query_on_exit_flag)
+ (Fxwidget_query_on_exit_flag)
+ (Fxwidget_webkit_search)
+ (Fxwidget_webkit_next_result)
+ (Fxwidget_webkit_previous_result)
+ (Fxwidget_webkit_finish_search)
+ (Fxwidget_webkit_load_html): Check for live xwidgets instead of
+ just xwidgets.
+
+ (xwidget_button, xwidget_motion_or_crossing)
+ (xv_do_draw, x_draw_xwidget_glyph_string)
+ (Fdelete_xwidget_view): Ignore killed xwidgets.
+
+ (syms_of_xwidget): Define new symbols and subrs and define
+ appropriate weakness of id_to_xwidget map.
+ (kill_buffer_xwidgets): Check live xwidgets instead of
+ killed xwidgets, set xwidget buffer to nil, and rely on GC to
+ free the hash table for us instead.
+
+ * src/xwidget.h (XWIDGET_LIVE_P, CHECK_LIVE_XWIDGET): New
+ macros.
+
+2021-11-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix compilation on MS-Windows
+
+ * src/callproc.c (emacs_spawn) <fork_done>: Define the label only
+ if USABLE_POSIX_SPAWN is defined, to avoid a compiler warning.
+
+2021-11-11 Philipp Stephani <phst@google.com>
+
+ Use posix_spawn if possible.
+
+ posix_spawn is less error-prone than vfork + execve, and can make
+ better use of system-specific enhancements like 'clone' on Linux. Use
+ it if we don't need to configure a pseudoterminal.
+
+ * configure.ac (HAVE_SPAWN_H, HAVE_POSIX_SPAWN)
+ (HAVE_POSIX_SPAWN_FILE_ACTIONS_ADDCHDIR)
+ (HAVE_POSIX_SPAWN_FILE_ACTIONS_ADDCHDIR_NP)
+ (HAVE_POSIX_SPAWNATTR_SETFLAGS, HAVE_DECL_POSIX_SPAWN_SETSID): New
+ configuration variables.
+ * src/callproc.c (USABLE_POSIX_SPAWN): New configuration macro.
+ (emacs_posix_spawn_init_actions)
+ (emacs_posix_spawn_init_attributes, emacs_posix_spawn_init): New
+ helper functions.
+ (emacs_spawn): Use posix_spawn if possible.
+
+2021-11-11 Jim Porter <jporterbugs@gmail.com>
+
+ Improve performance of 'file-name-case-insensitive-p' for Tramp files
+
+ Previously, each function in 'tramp-foreign-file-name-handler-alist'
+ would call 'tramp-dissect-file-name', resulting in it being called
+ several times whenever 'tramp-find-foreign-file-name-handler' was
+ called. Now, functions take the dissected file name to avoid this
+ duplicated effort. (Bug#51699)
+
+ * etc/NEWS: Announce this change.
+
+ * lisp/net/tramp-adb.el (tramp-adb-file-name-p):
+ * lisp/net/tramp-ftp.el (tramp-ftp-file-name-p):
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-p):
+ * lisp/net/tramp-rclone.el (tramp-rclone-file-name-p):
+ * lisp/net/tramp-smb.el (tramp-smb-file-name-p):
+ * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-p):
+ * lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-p):
+ Accept dissected file names.
+
+ * lisp/net/tramp.el (tramp-ensure-dissected-file-name): New function.
+ (tramp-find-foreign-file-name-handler): Pass dissected file name to
+ functions.
+ (tramp-connectable-p): Use 'tramp-ensure-dissected-file-name'.
+
+2021-11-11 Stefan Kangas <stefan@marxist.se>
+
+ erc: Don't announce broken functionality in /query docstring
+
+ * lisp/erc/erc.el (erc-cmd-QUERY): Be less enthusiastic about
+ announcing missing/broken functionality. The comment "except this is
+ broken right now" has been there since 2008, and it's not obvious to
+ me that we should ever re-add it.
+
+2021-11-11 Filipp Gunbin <fgunbin@fastmail.fm>
+
+ * lisp/subr.el (add-hook): Fix adding into hook--depth-alist
(bug#51620).
+
+2021-11-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix 8-color PuTTY -nw sessions broken by a recent commit
+
+ * src/term.c (init_tty): Fix the change which introduced support
+ for the terminfo Tc flag. The code as installed broke colors in
+ PuTTY -nw sessions, because 'tigetflag' returned -1, which is
+ non-zero, so it was treated as the sign that true color is
+ supported. But if the value returned by 'tigetflag' is -1, it means
+ the capability is not a boolean one, so that's not to be used as a
+ valid support for 24-bit color. (Bug#44950)
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix problem with non-absolute names
+
+ * lisp/files.el (file-name-split): Fix problem with non-absolute
+ names.
+
+2021-11-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a command to go the gnu.org version of the info page
+
+ * lisp/info.el (Info-url-for-node):
+ (Info-goto-node-web): New function (bug#44895).
+
+ Based on code from Drew Adams <drew.adams@oracle.com>.
+
+2021-11-11 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge from origin/emacs-28
+
+ 6dae01ad6d Fix tramp-compat-file-name-concat (Bug#51754)
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Add URI as a valid spec for xwidget-webkit-buffer-name-format
+
+ * lisp/xwidget.el (xwidget-webkit-buffer-name-format): Update
+ doc string.
+ (xwidget-webkit-callback): Add a format spec %U, which stands
+ for the current URI of the widget.
+
+2021-11-11 Feng Shu <tumashu@163.com>
+
+ xwidget: Add xwidget-webkit-buffer-name-format.
+
+ * lisp/xwidget.el (xwidget-webkit-buffer-name-prefix):
+ Remove variable.
+ (xwidget-webkit-buffer-name-format): New variable.
+ (xwidget-webkit-callback): Use
+ xwidget-webkit-buffer-name-format instead.
+ (format-spec): required.
+
+ * etc/NEWS: Note xwidget-webkit-buffer-name-format.
+
+2021-11-11 Eli Zaretskii <eliz@gnu.org>
+
+ Fix files-tests on MS-Windows
+
+ * lisp/ls-lisp.el (ls-lisp--insert-directory): Fix free disk space
+ calculation. (Bug#50630)
+
+ * test/lisp/files-tests.el (files-tests-revert-buffer)
+ (files-tests-revert-buffer-with-fine-grain): Disable locking
+ files.
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Fix documentation in xwidget.el
+
+ * src/xwidget.el (xwidget-webkit-isearch-mode): Reword
+ documentation.
+
+2021-11-11 Po Lu <luangruo@yahoo.com>
+
+ Switch to xwidget webkit buffer even if a session already exists
+
+ * lisp/xwidget.el (xwidget-webkit-goto-url): Make behavior
+ when there is an existing session consistent.
+
+2021-11-11 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 2963de6540 * lisp/vc/vc-git.el (vc-git-mergebase): More meaningful er...
+ a9148cdee5 ; Fix heading in etc/NEWS
+ 9623342216 ; * etc/NEWS: Move a bookmark related item further down.
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-11-11 Tim Ruffing <crypto@timruffing.de> (tiny change)
+
+ Support Tc terminfo flag for 24-bit color support in terminal
+
+ * src/term.c (init_tty): Use the Tc flag (bug#44950).
+
+2021-11-11 Gregory Heytings <gregory@heytings.org>
+
+ Options to automatically stop the Emacs server
+
+ * doc/emacs/misc.texi (Emacs Server): Document the new function.
+ Also mention that an Emacs server can be started with emacsclient.
+
+ * etc/NEWS: Describe the new function (bug#51377).
+ * lisp/server.el (server-stop-automatically): New function.
+ (server-stop-automatically): New auxiliary variable.
+ (server-stop-automatically--maybe-kill-emacs)
+ (server-stop-automatically--handle-delete-frame): New auxiliary
+ functions.
+ (server-save-buffers-kill-terminal): Call the new auxiliary
+ function when necessary.
+
+2021-11-11 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Set `minibuffer-completion-*` variables locally in more places
+
+ * lisp/calc/calc-store.el (calc-read-var-name):
+ * lisp/emacs-lisp/crm.el (completing-read-multiple):
+ * lisp/progmodes/cc-styles.el (c-read-offset):
+ * lisp/window.el (read-buffer-to-switch):
+ Set `minibuffer-completion-*` variables buffer-locally instead of
+ using a global let-binding (bug#48925).
+
+ Follow-up to commit
+ 2021-05-01 "* lisp/minibuffer.el (completing-read-default): Fix
bug#45474"
+
+2021-11-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-fix charset issues when yanking non-plain-text elements
+
+ * lisp/select.el (gui-get-selection): Make (gui-get-selection
+ 'CLIPBOARD 'text/html) get decoded correctly (bug#31149), but still
+ avoid the logic on Windows.
+
+2021-11-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't save places in literally-visited files
+
+ * lisp/saveplace.el (save-places-to-alist): Don't save places in
+ literally-visited files (bug#51740).
+
+2021-11-10 John Cummings <john@rootabega.net>
+
+ Add tests for 'insert-directory'
+
+ * test/lisp/files-tests.el: Add 'insert-directory' tests.
+ * test/lisp/files-resources/insert-directory/: Create directories and
files to
+ use for testing 'insert-directory'.
+
+ Add tests for 'insert-directory' base functionality and regression
tests for
+ the issue where free space was reported for the current directory
instead of
+ the target of 'list-directory' (Bug#50630).
+
+2021-11-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Note that loaddefs.el is copied to ldefs-boot.el
+
+ * lisp/emacs-lisp/autoload.el (autoload-rubric): Add a comment to
+ the file noting what'll happen to it.
+
+2021-11-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-generated to get autoloads additions in emoji.el
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Add `xwidget-webkit-load-html'
+
+ * doc/lispref/display.texi (Xwidgets): Document new function.
+ * etc/NEWS: Announce new function.
+ * src/xwidget.c (Fxwidget_webkit_load_html): New function.
+ (syms_of_xwidget): Define new subr.
+
+2021-11-10 Juri Linkov <juri@linkov.net>
+
+ * etc/NEWS.28: Add changes omitted while merging from emacs-28 NEWS.
+
+ * etc/NEWS: Remove old news accidentally merged from emacs-28.
+
+2021-11-10 Eli Zaretskii <eliz@gnu.org>
+
+ Fix font weights on MS-Windows
+
+ * src/w32font.c (w32_decode_weight, w32_encode_weight)
+ (w32_to_fc_weight): Adjust weight translations to match those in
+ font.c and gtkutil.c:xg_weight_to_symbol. (Bug#51704)
+
+2021-11-10 Robert Pluim <rpluim@gmail.com>
+
+ Improve 'ensure-empty-lines' docstring
+
+ * lisp/emacs-lisp/subr-x.el (ensure-empty-lines): Fix typo and improve
+ wording.
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ * admin/update_autogen: Remove unused variables.
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ Use "grep -E" instead of deprecated "egrep"
+
+ * admin/emake:
+ * test/lisp/so-long-tests/so-long-tests.el: Use "grep -E" instead of
+ deprecated "egrep".
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ Avoid another byte-compiler warning in package-quickstart.el
+
+ * lisp/emacs-lisp/package.el (package-quickstart-refresh): Avoid
+ byte-compiler warning "assignment to free variable" in
+ package-quickstart.el.
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ Avoid spurious byte-compiler warnings in package-quickstart.el
+
+ * lisp/emacs-lisp/package.el (package-quickstart-refresh): Disable the
+ "`make-variable-buffer-local' not called at toplevel" byte-compiler
+ warnings. Given that we wrap it all in a let-form, these are mostly
+ false positives and not helpful.
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ * admin/automerge: Fix quoting of some variables.
+
+ * admin/automerge: Use mktemp if it exists.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Prevent GDK warning about missing event devices in most cases
+
+ * src/xwidget.c (synthesize_focus_in_event): Set event device to
+ selected frame's pointer if it's an X frame.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Add `xwidget-webkit-isearch-yank-kill'
+
+ * lisp/xwidget.el: Bind C-y to xwidget-webkit-yank-kill in incremental
+ search.
+ (xwidget-webkit-isearch-mode): Update doc string.
+ (xwidget-webkit-yank-kill): New function.
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 8d81ab374d time-stamp: %F is "file name" not "pathname" + other doc
+ beaa7e14f3 ; Fix typos in CONTRIBUTE, ELisp manual, ediff
+ 747a1ae4ac * doc/misc/eww.texi (Advanced): Fix missed variable name e...
+ 52fe2340b8 * doc/emacs/windows.texi (Window Convenience): Use @code f...
+ 7d3a654e2a * doc/emacs/maintaining.texi (Basic VC Editing): Mention D...
+ aeb19af4b5 ; * doc/emacs/building.texi (Lisp Libraries): Fix a typo. ...
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-11-10 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 2782bc113e Revert "Fix localized display of date and time in the NS p...
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Prevent skipping results while changing search direction
+
+ * lisp/xwidget.el (xwidget-webkit-isearch-forward)
+ (xwidget-webkit-isearch-backward): Avoid moving to the next result one
+ too many times.
+
+2021-11-10 Benj <Benjamin.Schwerdtner@gmail.com> (tiny change)
+
+ Make the python missing-readline warning more helpful
+
+ * lisp/progmodes/python.el
+ (python-shell-completion-native-turn-on-maybe): Mention the "readline"
+ package (bug#48998).
+
+2021-11-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-c C-c' in erts-mode work with Point-Char elems
+
+ * lisp/progmodes/erts-mode.el (erts-mode--preceding-spec):
+ Factor out into own function (bug#51680).
+ (erts-run-test): Respect Point-Char settings.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Remove obsolete limitation
+
+ * src/xwidget.c (Fxwidget_webkit_goto_history): Accept any fixnum as
+ REL-POS, to be consistent with docstring.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Fix incorrect offset calculation for clipped xwidget views
+
+ * src/xwidget.c (from_embedder, to_embedder): Remove incorrect
+ adjustment of position by view clipping.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Fix invisible content in WebKit dialogs
+
+ * src/xwidget.c (webkit_script_dialog_cb): Use custom label instead of
+ dialog box title to display message.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Set embedder correctly to fix menus appearing in the wrong location
+
+ * src/xwidget.c (record_osr_embedder, from_embedder, to_embedder): New
+ functions.
+ (Fmake_xwidget): Attach from-embedder and to-embedder signals.
+ (find_widget_for_offscreen_window): New function.
+ (xwidget_button, xwidget_motion_or_crossing): Set embedder on event.
+ (Fdelete_xwidget_view): Remove embedder status if applicable.
+
+ * src/xwidget.h (struct xwidget): New fields `embedder' and
+ `embedder-view'.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Revert "Fix mouse face in NS port"
+
+ This reverts commit 278e4fc9c6353068334dd39d45334b1df82a6cee.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Revert "*** empty log message ***"
+
+ This reverts commit 68a2a3307d1703ac8abe4b54c8e1ef9dda677c12.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Revert "Add support for event processing via XInput 2"
+
+ This reverts commit 346cfc81247e6bf8e727a27b42f44f2389bd1269.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Revert "Fix erasing cursor on top of raised boxes in NS port"
+
+ This reverts commit 2b5a2ab50b7817f84ae38f84b4ea36ea38cd5a3b.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Revert "Revert "Fix erasing cursor on top of raised boxes in NS port""
+
+ This reverts commit 7117bbc7aa905ae785fa564cb24c3fc75ef1d543.
+
+2021-11-10 Po Lu <luangruo@yahoo.com>
+
+ Revert "Support opening the toolkit menu bar on NS"
+
+ This reverts commit ff9cf991c1608cd2578a66cba41e654a2b5d9144.
+
+2021-11-10 oldosfan <luangruo@yahoo.com>
+
+ Support opening the toolkit menu bar on NS
+
+ * src/nsmenu.m (ns_activate_menubar, Fns_open_menubar): New functions.
+ * src/nsterm.m (ns_create_terminal): Add activate_menubar_hook.
+ * lisp/menu-bar.el (menu-bar-open): Use ns-menu-bar-open on Nextstep.
+
+2021-11-10 oldosfan <luangruo@yahoo.com>
+
+ Revert "Fix erasing cursor on top of raised boxes in NS port"
+
+ This reverts commit 960f0eb9ab657af85c532574b937d8851049b178.
+
+2021-11-10 oldosfan <luangruo@yahoo.com>
+
+ Fix erasing cursor on top of raised boxes in NS port
+
+ * src/nsterm.m (ns_draw_relief): Clear top and bottom line areas
+ first, if required.
+
+2021-11-10 oldosfan <luangruo@yahoo.com>
+
+ Add support for event processing via XInput 2
+
+ * configure.ac: Add an option to use XInput 2 if available
+ * src/Makefile.in (XINPUT_LIBS, XINPUT_CFLAGS): New variables
+ (EMACS_CFLAGS): Add Xinput CFLAGS
+ (LIBES): Add XInput libs
+ * src/xmenu.c (popup_activated_flag): Expose flag if XInput 2 is
+ available
+ * src/xfns.c (x_window): Set XInput 2 event mask
+ * src/xterm.c (x_detect_focus_change): Handle XInput 2 GenericEvents
+ (handle_one_xevent): Handle XInput 2 events
+ (x_term_init): Ask the server for XInput 2 support and set xkb_desc if
+ available
+ (x_delete_terminal): Free XKB kb desc if it exists, and free XI2
+ devices if they exist
+ (x_free_xi_devices, x_init_master_valuators): New functions
+ (x_get_scroll_valuator_delta): New function
+ (init_xterm): Don't tell GTK to only use Core Input when built with
+ XInput 2 support
+ * src/xterm.h (struct x_display_info): Add fields for XKB and XI2
+ support
+ * src/gtkutil.c (xg_event_is_for_menubar): Handle XIDeviceEvents
+ (xg_is_menu_window): New function
+ (xg_event_is_for_scrollbar): Handle XIDeviceEvents
+
+2021-11-10 oldosfan <luangruo@yahoo.com>
+
+ *** empty log message ***
+
+2021-11-10 oldosfan <luangruo@yahoo.com>
+
+ Fix mouse face in NS port
+
+ * src/nsterm.m (ns_draw_glyph_string): Set s->face to the mouse face.
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix package-tests failure on native-comp
+
+ * test/lisp/emacs-lisp/package-tests.el
+ (package-test-macro-compilation-gz): Fix test failure on native-comp.
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix the look of the <video> elements in shr
+
+ * lisp/net/shr.el (shr-tag-video): Tweak the look of the video element.
+
+2021-11-09 Lars Ingebrigtsen <larsi@emkay.local>
+
+ Try to fix intermittent build problem on Macos
+
+ * src/Makefile.in (@): Also sign the bootstrap-emacs executable
+
+2021-11-09 Tom Levy <tomlevy93@gmail.com> (tiny change)
+
+ Remove spurious %S from 'define-error' messages
+
+
+ * lisp/emacs/lisp/cl-generic.el (cl--generic-cyclic-definition):
+ Remove spurious %S from error message.
+ * lisp/emacs-lisp/gv.el (gv-invalid-place): Remove spurious %S from
+ error message (and rephrase) (bug#51718).
+
+2021-11-09 Tom Levy <tomlevy93@gmail.com> (tiny change)
+
+ Allow 'undo-redo' to be called from Lisp without repeat count
+
+ * lisp/simple.el (undo-redo): Default arg to 1 to avoid error when
+ called from Lisp without args (bug#51718).
+
+2021-11-09 Po Lu <luangruo@yahoo.com>
+
+ Prevent BadValue errors when creating tiny xwidget views
+
+ * src/xwidget.c (x_draw_glph_string): Avoid resizing xwidget views
+ to an invalid size (bug#51707).
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function 'file-name-split'
+
+ * doc/lispref/files.texi (File Name Components): Document it.
+ * lisp/files.el (file-name-split): New function (bug#50572).
+
+ * lisp/emacs-lisp/shortdoc.el (file-name): Mention it.
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `dired-split' obsolete
+
+ * lisp/dired-aux.el (dired-tree-lessp): Adjust caller.
+ (dired-split): Make obsolete (bug#50572).
+
+ * lisp/ffap.el (ffap-list-env): Adjust comment.
+
+2021-11-09 Michael Albinus <michael.albinus@gmx.de>
+
+ * lisp/net/tramp-cache.el (tramp-persistency-file-name):
+
+ Skip superfluous `expand-file-name'.
+
+2021-11-09 Jim Porter <jporterbugs@gmail.com>
+
+ Improve performance when checking case-sensitivity of Tramp file names
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-expand-file-name):
+ Dissect file name before testing for connectability to reduce
+ duplicated work.
+
+ * lisp/net/tramp.el (tramp-handle-file-name-case-insensitive-p):
+ Use `tramp-connectable-p' to test for connection.
+
+2021-11-09 Stefan Kangas <stefan@marxist.se>
+
+ Add back/forward mouse button bindings in eww
+
+ * lisp/net/eww.el (eww-mode-map): Add mouse back/forward button
+ bindings. These bindings are the same as in Firefox and other
+ graphical browsers.
+
+2021-11-09 Juri Linkov <juri@linkov.net>
+
+ * lisp/progmodes/prog-mode.el (prog-context-menu): Add "Go Forward".
+
+ The menu item "Go Forward" is bound to xref-go-forward.
+ Also use "Go Back" for xref-go-back (bug#38797).
+
+2021-11-09 Juri Linkov <juri@linkov.net>
+
+ * lisp/vc/diff-mode.el (diff-setup-buffer-type): Move to
diff-setup-whitespace
+
+ * lisp/vc/vc.el: Add declare-function for diff-setup-buffer-type
(bug#51016).
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Expand the etc/NEWS section about the `medium' font changes
+
+ * etc/NEWS: Expand upon the addition of the `medium' weight
+ (bug#51704).
+
+2021-11-09 Po Lu <luangruo@yahoo.com>
+
+ Fix compiler warning building net/shr.el without xwidget support
+
+ * lisp/net/shr.el (xwidget-webkit-execute-script): New function
+ declaration (bug#51705).
+
+2021-11-09 Po Lu <luangruo@yahoo.com>
+
+ Fix default target of motion events
+
+ * src/xwidget.c (xwidget_motion_or_crossing): Default to widget_osr
+ instead of its window (bug#51703).
+
+2021-11-09 Stefan Kangas <stefan@marxist.se>
+
+ Prefer locate-user-emacs-file
+
+ * lisp/cmuscheme.el (scheme-start-file):
+ * lisp/erc/erc.el (erc-startup-file-list):
+ * lisp/net/nsm.el (nsm-settings-file):
+ * lisp/net/tramp-crypt.el (tramp-crypt-config-file-name):
+ * lisp/org/org-clock.el (org-clock-persist-file):
+ * lisp/org/org-id.el (org-id-locations-file)
+ * lisp/shell.el (shell): Prefer 'locate-user-emacs-file' to fiddling
+ with 'user-emacs-directory' directly.
+
+2021-11-09 Po Lu <luangruo@yahoo.com>
+
+ Always set xwidget title if the event was "load-finished"
+
+ * lisp/xwidget.el (xwidget-webkit-callback): Always set title upon
+ load completion. This prevents loading pages such as "about:blank"
+ from not setting the buffer name (bug#51702).
+
+2021-11-09 Po Lu <luangruo@yahoo.com>
+
+ Make `kill_frame_xwidget_views' safe
+
+ * src/xwidget.c (kill_frame_xwidget_views): Check XWIDGET_VIEW_P
+ (bug#51701).
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't create temporary files for <video>
+
+ * lisp/net/shr.el (shr-tag-audio): Don't create a temporary file;
+ just update the DOM directly.
+
+2021-11-09 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ 307d164c9c * lisp/mouse.el (mouse-buffer-menu-mode-groups): Tighten "...
+ 818211ed89 * doc/emacs/search.texi (Isearch Yank): Add isearch-forwar...
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-11-09 Po Lu <luangruo@yahoo.com>
+
+ Make xwidget-tests pass again
+
+ * lisp/xwidget.el (xwidget-webkit-buffer-name-prefix): Remove extra
+ space.
+ (xwidget-webkit-callback): Add trailing "*" to buffer name.
+ (xwidget-webkit-new-session, xwidget-webkit-import-widget): Always use
+ existing buffer name (bug#51700).
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in last shr change
+
+ * lisp/net/shr.el (shr-tag-video): Require xwidgets, because it's
+ used from callbacks.
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix shr-tag-video startup issue
+
+ * lisp/net/shr.el (shr-tag-video): Require xwidgets, because it's
+ used from callbacks.
+
+2021-11-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Optionally use use xwidgets to display <video> elements in shr
+
+ * doc/misc/eww.texi (Advanced): Document it.
+ * lisp/net/shr.el (shr-use-xwidgets-for-media): New user option.
+ (shr-tag-video): Use xwidgets to display <video> elements.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make image-compute-scaling-factor argument optional
+
+ * lisp/image.el (image-compute-scaling-factor): Make the argument
+ optional.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ ARGUMENTS in Fmake_xwidget is optional
+
+ * src/xwidget.c (Fmake_xwidget): The ARGUMENTS argument isn't
+ mandatory.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make xwidget-event-handler more resilient
+
+ * lisp/xwidget.el (xwidget-event-handler): Don't try to call the
+ callback if it hasn't been defined.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Delete temp directory after bytecomp test
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (bytecomp-tests--not-writable-directory): Allow deletion of
+ directory (bug#51690).
+
+ * test/lisp/emacs-lisp/bytecomp-tests.el
+ (bytecomp-tests--dest-mountpoint): Ditto.
+
+2021-11-08 Po Lu <luangruo@yahoo.com>
+
+ Fix flicker when setting hscroll of xwidget
+
+ * src/xterm.c (x_scroll_run): Use original height of xwidget instead
+ of window height and set cairo surface size (bug#51697).
+
+2021-11-08 Po Lu <luangruo@yahoo.com>
+
+ Raise an error if creating an unknown xwidget type
+
+ * src/xwidget.c (Fmake_xwidget): Error if TYPE is invalid (bug#51682).
+
+2021-11-08 Po Lu <luangruo@yahoo.com>
+
+ Really fix xwidget scroll optimization and clip
+
+ * src/xterm.c (x_scroll_run): Improve clip detection.
+ * src/xwidget.c (xv_do_draw): Use cairo_translate.
+ (xwidget_motion_or_crossing): Use correct fields (bug#51681).
+
+2021-11-08 Feng Shu <tumashu@163.com>
+
+ xwidget.el: limit buffer-name flicker in mode-line
+
+ * lisp/xwidget.el (xwidget-webkit): New customization group.
+ (xwidget-webkit-buffer-name-prefix): New user option.
+ (xwidget-webkit-callback): with-current-buffer only after get title,
+ which can limit buffer-name change in mode-line.
+ (xwidget-webkit-new-session, xwidget-webkit-import-widget): Use
+ current buffer to generate a temp xwidget-webkit buffer.
+
+2021-11-08 Matthias Meulien <orontee@gmail.com>
+
+ Fix local variables overwritten when diff-mode is set
+
+ * lisp/vc/diff-mode.el (diff-mode):
+ (diff-setup-buffer-type): Defun to initialize `diff-buffer-type'
+
+ * lisp/vc/vc.el (vc-diff-finish): Set `diff-buffer-type' after content
+ inserted
+ (vc-diff-internal): Restore `diff-mode' being set before local
+ variables (bug#51016).
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow yank-media-types to also show the unsupported data types
+
+ * lisp/yank-media.el (yank-media-types): Make the prefix include
+ data types not supported by the backend, too.
+
+2021-11-08 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Don't have nntp-report signal an error
+
+ * lisp/gnus/nntp.el (nntp-report): This should behave as much as
+ possible like nnheader-report, which only logs the error and returns
+ nil.
+
+2021-11-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/xdg.el (xdg--dir-home): Make it a function
+
+2021-11-08 Campbell Barton <ideasman42@gmail.com>
+
+ * lisp/subr.el (with-undo-amalgamate): New macro
+
+ This allows commands to be made without adding undo-barriers, e.g.
+ kmacro-exec-ring-item.
+
+2021-11-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-generic.el: Add reference to inspiration
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Switch yank-media--get-selection back to the backend function
+
+ * lisp/yank-media.el (yank-media--get-selection): Switch back to
+ gui-backend-get-selection until gui-get-selection is re-fixed.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Fix charset issues when yanking non-plain-text elements"
+
+ This reverts commit 5e66c75e0b6b91b6f5d9aa46c824e8209ade8f2a.
+
+ This apparently led to problems on Windows. The issues have to
+ be examined first before attempting a new fix.
+
+2021-11-08 Stefan Kangas <stefan@marxist.se>
+
+ * admin/automerge: Die if changing directory fails.
+
+2021-11-08 Stefan Kangas <stefan@marxist.se>
+
+ Merge from origin/emacs-28
+
+ fe91f4438c ; * etc/PROBLEMS: Move librsvg-related item to better loca...
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove code what would always maximize xwidgets on Macos
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Remove code that
+ would always maximize the widget on Macos (bug#51674). This code
+ was probably added to work around a resizing bug that has since
+ been fixed.
+
+2021-11-08 akater <nuclearspace@gmail.com>
+
+ lisp/emacs-lisp/lisp-mode.el: Fix parser state corruption.
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp--local-defform-body-p): Preserve
+ the point.
+ * test/lisp/progmodes/elisp-mode-resources/flet.erts: Add corresponding
+ test example (bug#9622).
+
+2021-11-08 Po Lu <luangruo@yahoo.com>
+
+ Fix resize of xwidgets on GTK
+
+ * src/xwidget.c (Fxwidget_resize): Queue widget for re-allocation
+ after setting its size request (bug#51679).
+
+2021-11-08 Po Lu <luangruo@yahoo.com>
+
+ Fix hang when displaying xwidget script dialog
+
+ * src/xwidget.c (webkit_script_dialog_cb): New function.
+ (Fmake_xwidget): Attach script callback signal (bug#51674).
+
+2021-11-08 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Set window-resize-pixelwise to t
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode): Set
+ 'window-resize-pixelwise' to t.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention yank-media-types in the manual
+
+ * doc/lispref/frames.texi (Yanking Media): Mention yank-media-types.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make html-mode--html-yank-handler more resilient
+
+ * lisp/textmodes/sgml-mode.el (html-mode--html-yank-handler): The
+ HTML may not be valid, so suppress errors.
+
+2021-11-08 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix yank-media--get-selection thinko in previous change
+
+ * lisp/yank-media.el (yank-media--get-selection): Fix thinko after
+ previous change.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up the yank-media data massaging
+
+ * lisp/yank-media.el (yank-media--get-selection): Put the
+ nul-massaging code...
+ (yank-media-types--format): ... here instead, and decode utf-16
+ better.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new debugging/exploration command `yank-media-types'
+
+ * lisp/yank-media.el (yank-media-types): New command.
+ (yank-media-types--format): Helper command.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix charset issues when yanking non-plain-text elements
+
+ * lisp/select.el (gui-get-selection): Make (gui-get-selection
+ 'CLIPBOARD 'text/html) get decoded correctly (bug#31149).
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename 'register-yank-media-handler'
+
+ * lisp/textmodes/sgml-mode.el (html-mode):
+ * lisp/gnus/message.el (message-mode):
+ * doc/lispref/frames.texi (Yanking Media): Adjust.
+ * lisp/yank-media.el (yank-media): Adjust doc string.
+ (yank-media-handler): Rename from `register-' because that may
+ cause confusion with register.el functions.
+
+2021-11-07 Stefan Kangas <stefan@marxist.se>
+
+ Prefer ert-with-temp-(directory|file) in most remaining tests
+
+ * test/lisp/auth-source-tests.el (auth-source-test-searches):
+ * test/lisp/autorevert-tests.el (auto-revert-test00-auto-revert-mode)
+ (auto-revert-test01-auto-revert-several-files)
+ (auto-revert-test02-auto-revert-deleted-file)
+ (auto-revert-test03-auto-revert-tail-mode)
+ (auto-revert-test04-auto-revert-mode-dired)
+ (auto-revert-test05-global-notify)
+ (auto-revert-test06-write-file)
+ (auto-revert-test07-auto-revert-several-buffers):
+ * test/lisp/calendar/icalendar-tests.el
(icalendar-tests--do-test-cycle):
+ * test/lisp/custom-tests.el (custom-theme--load-path):
+ * test/lisp/dired-aux-tests.el (dired-test-bug27496)
+ (with-dired-bug28834-test):
+ * test/lisp/emacs-lisp/bytecomp-tests.el
(test-byte-comp-compile-and-load)
+ (bytecomp-tests--dest-mountpoint)
+ (bytecomp-tests--target-file-no-directory):
+ * test/lisp/emacs-lisp/gv-tests.el (gv-tests--in-temp-dir):
+ * test/lisp/eshell/eshell-tests.el (with-temp-eshell)
+ (eshell-test-command-result):
+ * test/lisp/info-xref-tests.el (info-xref-test-makeinfo):
+ * test/lisp/vc/vc-tests.el (vc-test--create-repo)
+ (vc-test--register, vc-test--state, vc-test--working-revision)
+ (vc-test--checkout-model, vc-test--rename-file)
+ (vc-test--version-diff):
+ * test/src/buffer-tests.el (test-kill-buffer-auto-save-delete):
+ * test/src/comp-tests.el (comp-tests-bootstrap):
+ * test/src/process-tests.el (process-test-quoted-batfile): Prefer
+ 'ert-with-temp-(directory|file)' to using 'make-temp-file' directly.
+
+2021-11-07 Po Lu <luangruo@yahoo.com>
+
+ Set clipping when dumping stretch glyphs in some cases
+
+ * src/nsterm.m (ns_draw_glyph_string): Always focus even when dumping
+ stretch glyphs in s->next (bug#51653).
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix charset issues in text/html yanking
+
+ * lisp/yank-media.el (yank-media--get-selection): Use
+ gui-backend-get-selection instead of the higher-level function
+ which guesses wrong on the charset on many types.
+ (yank-media): Fix the case where there's only one match.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Suppress a compilation warning about vc-switch-backend
+
+ * lisp/vc/vc-hooks.el (vc-prefix-map): Suppress a warning about an
+ obsolete command.
+
+2021-11-07 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Improve undoing of RET in comint and eshell
+
+ * lisp/comint.el (comint-send-input):
+ (comint-accumulate):
+ * lisp/eshell/esh-mode.el (eshell-send-input): Before sending input to
+ the process, delete it and reinsert it again. Undoing this
+ insertion with 'C-/' will delete the region, moving the process mark
+ back to its original position (bug#49484).
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow 'C-x n d' to work in texinfo-mode
+
+ * lisp/textmodes/texinfo.el (texinfo-mode): Set
+ beginning/end-of-defun functions to allow narrowing to the current
+ node.
+ (texinfo--beginning-of-defun, texinfo--end-of-defun): New functions.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make paragraph/filling functions in texinfo-mode work better
+
+ * lisp/textmodes/texinfo.el (texinfo-mode): Make paragraph
+ definitions more traditional. This makes (forward-paragraph 1)
+ behave better.
+ (texinfo-mode): Set a new filling function.
+ (texinfo--fill-paragraph): New filling function.
+ (texinfo-fillable-commands): New variable (bug#49558).
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make debugging ert--erts-specifications easier
+
+ * lisp/emacs-lisp/ert.el (ert--erts-specifications): Strip text
+ properties from specs to make debugging easier.
+
+2021-11-07 Alan Mackenzie <acm@muc.de>
+
+ Merge from origin/emacs-28
+
+ 0c51db6bb1 Amend Follow Mode to handle header lines and tab lines cor...
+ 261367781b * lisp/files.el (user-emacs-directory-warning): Clarify do...
+ 8d9b55330d * doc/emacs/frames.texi (Tab Bars): Add text about mouse a...
+ d9b0b730e8 * doc/emacs/frames.texi (Tab Bars): Describe tab-last.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Match password prompts from new OpenSSH
+
+ * lisp/comint.el (comint-password-prompt-regexp): Add support for
+ the openssh-8.6p1 "(user@host) Password:" format (bug#51666).
+
+2021-11-07 Jim Porter <jporterbugs@gmail.com>
+
+ Fix intermittent electric test failures
+
+ * test/lisp/electric-tests.el
+ (whitespace-chomping-dont-cross-comments): Move
+ 'c-toggle-comment-style' to here.: (bug#51665).
+
+2021-11-07 Juri Linkov <juri@linkov.net>
+
+ Simplify c8acc5fd92ad9979fc5870623014290cad998337
+
+ * lisp/isearch.el (isearch-filter-visible): Add check if there are
+ no properties 'inhibit-isearch' in the search range,
+ instead of code of c8acc5fd92ad9979fc5870623014290cad998337.
+
+2021-11-07 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge from origin/emacs-28
+
+ 7fdb2ae412 Add some unit tests for 'abbreviate-file-name'
+ 21de5e7b2e Fix compilation MinGW warnings
+ 54b726c815 ; * etc/PROBLEMS: More specific recipe for WebKit-related ...
+ d85cf33e49 Escape '%' in filenames to fix flymake warnings
+ 6243a43ac2 Fix search string generation in nnimap-make-thread-query
+ f05b8a939b Update to Org 9.5-68-g77e2ec
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-x 8 e e' work better in the terminal
+
+ * lisp/international/emoji.el (emoji--adjust-displayable-1): Make
+ something rudimentary work on non-graphical Emacsen for `C-x 8 e e'.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make emoji-describe really describe only the glyph under point
+
+ * lisp/international/emoji.el (emoji-describe): Only look at the
+ compositions under point (bug#51659).
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't inhibit compilation of emoji.elc
+
+ * lisp/international/emoji.el (emoji--generate-file): Further
+ obfuscate to not inhibit byte compilation.
+
+2021-11-07 Eli Zaretskii <eliz@gnu.org>
+
+ 'yank-media' is not universally supported
+
+ * doc/emacs/killing.texi (Clipboard):
+ * etc/NEWS: Say that 'yank-media' is not universally supported.
+
+2021-11-07 Po Lu <luangruo@yahoo.com>
+
+ Free find text in correct procedure
+
+ * src/xwidget.c (Fxwidget_webkit_previous_result): Don't free find
+ text.
+ (Fxwidget_webkit_finish_search): Free find text here instead.
+
+2021-11-07 Po Lu <luangruo@yahoo.com>
+
+ Fix C-r inside xwidget isearch
+
+ * lisp/xwidget.el (xwidget-webkit-isearch-backward): Ask for previous
+ result.
+
+2021-11-07 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget-webkit-goto-history
+
+ * src/xwidget.c (xwidget-webkit-goto-history): Use
+ WebKitBackForwardList and XFIXNUM instead of XFIXNAT (bug#51651).
+
+2021-11-07 Po Lu <luangruo@yahoo.com>
+
+ Handle WEBKIT_POLICY_DECISION_TYPE_NEW_WINDOW_ACTION appropriately
+
+ * src/xwidget.c (webkit_decide_policy_cb): Send an xwidget display
+ event when a webpage asks to create a new window.
+
+2021-11-07 Po Lu <luangruo@yahoo.com>
+
+ Document the xwidget type
+
+ * doc/lispref/elisp.texi: Add Xwidget Type to the menu.
+ * doc/lispref/objects.texi (Editing Types): Add Xwidget Type to the
+ menu.
+ (Xwidget Type): New node.
+
+2021-11-07 Eli Zaretskii <eliz@gnu.org>
+
+ Improve detection of suspiciously reordered text segments
+
+ * src/bidi.c (bidi_find_first_overridden): Detect reordered weak
+ and neutral characters as well.
+
+ * lisp/international/mule-cmds.el
+ (highlight-confusing-reorderings): Count and announce how many
+ instances were found.
+
+ * test/src/xdisp-tests.el
+ (xdisp-tests--find-directional-overrides-case-3): New test.
+ (xdisp-tests--find-directional-overrides-case-2): Adjust expected
+ result.
+
+2021-11-07 Cristian <crstml@libero.it> (tiny change)
+
+ Another addition to latin-2 input methods
+
+ * lisp/leim/quail/latin-pre.el ("latin-2-prefix"):
+ * lisp/leim/quail/latin-post.el ("latin-2-postfix"): Add variants
+ of "`t" and "t," for Romanian. (Bug#51638)
+
+2021-11-07 Eli Zaretskii <eliz@gnu.org>
+
+ Fix documentation and coding style in recent xwidget commits
+
+ * src/xwidget.c (Fmake_xwidget, find_widget)
+ (xwidget_motion_or_crossing, xwidget_button_1, xwidget_button):
+ Fix style in comments.
+ (Fxwidget_perform_lispy_event): Doc fix.
+ * src/xwidget.c (set_widget_if_text_view, kill_frame_xwidget_views):
+ * src/keyboard.c (make_lispy_event): Fix style of braces.
+
+ * lisp/xwidget.el (xwidget-webkit-isearch-mode): Fix keys in doc
+ string.
+
+ * doc/lispref/commands.texi (Xwidget Events): Fix markup and
+ wording.
+ * doc/lispref/display.texi (Xwidgets): Fix wording and markup.
+ * doc/emacs/misc.texi (Embedded WebKit Widgets): Fix wording.
+
+ * etc/NEWS: Fix wording and punctuation.
+
+2021-11-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/lispref/tips.texi (Coding Conventions): Mention GNU "path"
convention
+
+ Suggested by Ihor Radchenko <yantar92@gmail.com>.
+
+2021-11-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Ensure that the x_show_hourglass is seen
+
+ * src/xterm.c (x_show_hourglass): Ensure that the hourglass is
+ seen (bug#51649).
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Actually start the alarms in atimer
+
+ * src/atimer.c (set_alarm): Actually start both timerfd and
+ alarms (attempted in 4107549a).
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix backspace in xwidget webkit isearch
+
+ * lisp/xwidget.el: Set backspace to
+ xwidget-webkit-isearch-erasing-char (bug#51647).
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove too-agressive window refresh in the hourglass code
+
+ * src/xterm.c (x_show_hourglass): Don't force a spurious refresh
+ (bug#51649).
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix build on nextstep
+
+ * src/xwidget.h: Make some prototypes conditional to X-Windows.
+ (struct xwidget): Move find_text field out of GTK conditional.
+
+ * src/xwidget.c (Fmake_xwidget): Move find_text out of GTK
+ conditional.
+ * src/print.c (print_vectorlike): Print correct pointer on macOS.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Improve xwidget isearch visuals
+
+ * lisp/xwidget.el (xwidget-webkit-isearch--update): New argument
+ ONLY-MESSAGE.
+ (xwidget-webkit-isearch-forward)
+ (xwidget-webkit-isearch-backward): Always refresh message.
+ (xwidget-webkit-isearch-mode): Update message when enabling.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix web inspector
+
+ * src/xwidget.c (Fmake_xwidget): Move developer extra initialization.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Default to creating new related sessions
+
+ * doc/lispref/display.texi:
+ * etc/NEWS: Document changes.
+
+ * lisp/xwidget.el (xwidget-insert): Accept an extra RELATED argument.
+ (xwidget-webkit-new-session): Pass current session as RELATED if
+ present.
+
+ * src/xwidget.c (Fmake_xwidget): Make RELATED argument public.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Rationalize creation decisions
+
+ * src/xwidget.c (webkit_create_cb): Only create a new widget if type
+ is OTHER.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Make "open in new window" from an xwidget's context menu work
+
+ * doc/lispref/commands.texi (Xwidget Events): Document new event type.
+ * doc/lisprefdisplay.texi (Xwidgets): Document new argument to
+ make-xwidget, and new function.
+ * etc/NEWS: Document changes.
+ * lisp/xwidget.el: Bind xwidget-display-event to
+ xwidget-webkit-display-event.
+
+ (xwidget-webkit-import-widget): New function.
+ (xwidget-webkit-display-event): New command.
+ * src/keyboard.c (kbd_buffer_get_event): New event type.
+ (make_lispy_event): Handle XWIDGET_DISPLAY_EVENTs.
+ (syms_f_keyboard): Define new symbol.
+ * src/termhooks.h (enum event_kind): New enum XWIDGET_DISPLAY_EVENT.
+
+ * src/xwidget.c (webkit_create_cb)
+ (store_xwidget_display_event)
+ (webkit_ready_to_show)
+ (webkit_create_cb_1, webkit_create_cb)
+ (Fset_xwidget_buffer): New functions.
+
+ (Fmake_xwidget): Add internal argument RELATED and connect create
+ signal.
+ (syms_of_xwidget): Define now subrs.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add xwidget-webkit-isearch to the menu bar and tool bar
+
+ * lisp/xwidget.el: Add isearch to tool bar and menu bar.
+
+ (xwidget-webkit-mode-map)
+ (xwidget-webkit-isearch-mode-map): Reorder key definitions so the
+ equivalent key shows up as `C-s' in the menu bar.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add xwidget-webkit-isearch-mode
+
+ * etc/NEWS:
+ * doc/emacs/misc.texi: Document changes
+
+ * lisp/xwidget.el (xwidget-webkit-mode-map): Bind C-s and C-r to
+ webkit isearch.
+ (xwidget-webkit-isearch--string, xwidget-webkit-isearch--is-reverse):
+ New buffer-local variables.
+ (xwidget-webkit-isearch--update, xwidget-webkit-isearch-erasing-char)
+ (xwidget-webkit-isearch-printing-char, xwidget-webkit-isearch-forward)
+ (xwidget-webkit-isearch-backward, xwidget-webkit-isearch-exit):
+ New functions.
+ (xwidget-webkit-isearch-mode-map): New keymap.
+ (xwidget-webkit-isearch-mode): New minor mode.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add functions for performing searches on xwidgets
+
+ * etc/NEWS:
+ * doc/lispref/display.texi: Document changes.
+
+ * src/xwidget.c (Fxwidget_webkit_search)
+ (Fxwidget_webkit_next_result)
+ (Fxwidget_webkit_previous_result)
+ (Fxwidget_wenkit_finish_search): New functions.
+
+ (syms_of_xwidget): Define new built-ins.
+ (kill_buffer_xwidgets): Free search query if present.
+ * src/xwidget.h (struct xwidget): Add field for search query.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Make it safe to have non-xwidget views in xwidget-view-list
+
+ * src/xwidget.c (define_cursors, offscreen_damage_event): Check
+ XWIDGET_VIEW_P before XXWIDGET_VIEW.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Make xwidgets print nicer
+
+ * src/print.c (print_vectorlike): Print xwidgets with ID and widget
+ pointer, and print xwidget views separately.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix cursor for new widget views
+
+ * src/xwidget.c (Fmake_xwidget): Clear hit result.
+ (cursor_for_hit): Use integer hit result.
+ (define_cursors): Set hit result appropriately.
+ (widget_init_view): Set cursor to the existing hit result.
+
+ * src/xwidget.h (struct xwidget): Add hit result field.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add support for cursors in xwidget views
+
+ * src/xwidget.c (mouse_target_changed): New function.
+ (Fmake_xwidget): Attach mouse target changed signal.
+ (cursor_for_hit, define_cursors, mouse_target_changed): New functions.
+ (xwidget_init_view): Set default cursor to nontext cursor.
+ (x_draw_xwidget_glyph_string): Define cursor.
+
+ * src/xwidget.h (struct xwidget_view): Add cursor field.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Display page titles in xwidget webkit header line
+
+ * lisp/xwidget.el (xwidget-webkit--title): New variable.
+ (xwidget-webkit-callback, xwidget-webkit-mode): Set header line format
+ and associated variables.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Improve detail of load-changed xwidget events
+
+ * src/xwidget.c (webkit_view_load_changed_cb): Improve event detail.
+ * etc/NEWS: Document changes.
+ * doc/lispref/commands.texi: Document Xwidget events.
+ * doc/lispref/display.texi (Xwidgets): Add reference to Xwidget events.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Make the WebKit inspector available
+
+ * etc/NEWS: Document changes.
+ * src/xwidget.c (find_widget_at_pos)
+ (find_widget)
+ (find_widget_cb): New functions.
+ (struct widget_search_data): New structure.
+ (Fmake_xwidget): Enable web inspector for WebKit widgets.
+ (Fxwidget_perform_lispy_event): Use current focus instead of
+ hard-coded widget.
+ (xwidget_button_1, xwidget_button, xwidget_motion_or_crossing):
+ Use window at event position instead of the default widget.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add xwidget-webkit-copy-selection-as-kill to the menu bar
+
+ * lisp/xwidget.el: New menu item
+ `xwidget-webkit-copy-selection-as-kill'.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add new tool-bar items to xwidget-webkit
+
+ * etc/images/README: Update copyright information for new images.
+ * etc/images/connect-to-url.pbm:
+ * etc/images/connect-to-url.xpm: Import new images from GNOME.
+ * lisp/xwidget.el (xwidget-webkit-tool-bar-map): New keymap variable.
+ (xwidget-webkit-mode): Set tool-bar-map to the appropriate map.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add a menu to xwidget-webkit
+
+ * lisp/xwidget.el: Add a menu to xwidget-webkit-mode-map.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Redisplay xwidget view windows instead of just setting their size
+
+ * src/xwidget.c (Fxwidget_resize): Mark windows as needing redisplay
+ and redisplay instead.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Select window when clicking on an xwidget view
+
+ * src/xterm.c (handle_one_xevent): Select window when clicking on an
+ xwidget view.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix xwidget scrolling
+
+ * src/xterm.c (x_scroll_run): Use from_y and height.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Allow enabling xwidget-webkit-edit-mode via a binding
+
+ * doc/emacs/misc.texi: Document changes.
+ * lisp/xwidget.el (xwidget-webkit-mode-map): Add shortcut for
+ xwidget-webkit-edit-mode.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Add xwidget-webkit-edit-mode to make using the WebKit browser easier
+
+ * doc/emacs/misc.texi: Document changes.
+ * etc/NEWS: Document recent changes.
+ * lisp/xwidget.el (xwidget-webkit-pass-command-event): New variable.
+ * lisp/xwidget.el (xwidget-perform-lispy-event): New function
+ declaration.
+ * lisp/xwidget.el (xwidget-webkit-edit-mode): New minor mode.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix special events in xwidgets
+
+ * src/xwidget.c (set_widget_if_text_view): New function.
+ (Fxwidget_perform_lispy_event): Fix for webkit widgets.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Fix drag on xwidget motion events
+
+ * src/xwidget.c (xwidget_motion_or_crossing): Set state.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Handle crossing events on xwidget windows correctly
+
+ * src/xterm.c (handle_one_xevent): Clear help and mouse face
+ when handling xwidget entry events.
+ * src/xwidget.c (xwidget_motion_or_crossing): Add device to crossing
+ events.
+ (x_draw_xwidget_glyph_string): Add EnterWindowMask and
+ LeaveWindowMask.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Draw offscreen surface
+
+ * src/xwidget.c (xv_do_draw): Draw offscreen surface.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Implement function for sending events to widgets
+
+ * doc/lispref/display.texi (Xwidgets): Document changes.
+ * src/keyboard.c (lispy_function_keys): Make non-static on X.
+ * src/keyboard.h (lispy_function_keys): Expose lispy_function_keys on
+ X.
+ * src/xterm.c (x_emacs_to_x_modifiers): Export function.
+ * src/xterm.h (x_emacs_to_x_modifiers): Likewise.
+ * src/xwidget.c (Fxwidget_perform_lispy_event)
+ (find_suitable_keyboard): New functions.
+ (syms_of_xwidget): Define new subr.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Use gtk_widget_queue_draw instead of xv_do_draw
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Call
+ gtk_widget_queue_draw.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Prefer XMoveResizeWindow to XMoveWindow for resizing xwidgets
+
+ * src/xwidget.c (x_draw_xwidget_glyph_string): Prefer
+ XMoveResizeWindow to avoid extra expose events.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Allow xwidgets to accept motion and button events
+
+ * src/xterm.c (handle_one_xevent): Pass through some events to
+ xwidgets.
+
+ * src/xwidget.c (synthesize_focus_in_event)
+ (find_suitable_pointer, xwidget_button_1)
+ (xwidget_button, xwidget_motion_or_crossing): New functions.
+ (xwidget_view_from_window): Draw offscreen window instead of the
+ widget.
+ (x_draw_xwidget_glyph_string): Set appropriate event masks.
+
+ * src/xwidget.h (xwidget_button, xwidget_motion_or_crossing): New
+ functions.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Destroy xwidgets when destroying frames
+
+ * src/xterm.c (x_free_frame_resources): Make sure to kill xwidget views.
+ * src/xwidget.c (Fmake_xwidget): Attach damage event signal.
+ (offscreen_damage_event): Operate on xwidgets and not individual
+ views.
+ (xwidget_init_view): Don't attach damage event signal here.
+ (Fdelete_xwidget_view): Destroy window correctly and stop removing
+ damage event signal.
+ (kill_frame_xwidget_views): New function.
+ * src/xwidget.c (kill_frame_xwidget_views): New function.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Enable scrolling optimization for xwidgets
+
+ * src/dispextern.h (struct glyph): Store xwidget ID instead of a
+ reference.
+ * src/dispnew.c (scrolling_window): Enable scrolling optimization on
+ xwidget builds.
+ * src/xdisp.c (fill_xwidget_glyph_string, produce_xwidget_glyph):
+ Obtain xwidget from ID.
+ * src/xterm.c (x_scroll_run): Scroll xwidget windows.
+ * src/xwidget.c (id_to_xwidget_map, xwidget_counter): New xwidget
+ variables.
+ (Fmake_xwidget): Assign each xwidget a unique ID, and keep track of
+ that ID.
+ (xwidget_from_id): New function.
+ (syms_of_xwidget): Initialize id_to_xwidget_map.
+ (xwidget_end_redisplay): Lookup xwidgets via ID.
+ * src/xwidget.h (struct xwidget): Add ID field.
+ (xwidget_from_id): New function.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Use an X window to display xwidgets on X11
+
+ Since Emacs draws using X11 primitives, Emacs drawing operations can
+ erase the GtkDrawingArea used to draw the offscreen widget, which
+ leads to unpleasant flickering effects, all of which can be prevented
+ by creating a native X window and drawing to that instead.
+
+ * src/xterm.c (x_window_to_frame): Return xwidget window if
+ appropriate.
+ (handle_one_xevent): Handle xwidget expose events.
+
+ * src/xwidget.c (x_window_to_xvw_map): New variable.
+ (xwidget_view_from_window): New function.
+
+ (xwidget_show_view, xwidget_hide_view)
+ (offscreen_damage_event): Move to drawing xwidgets with X windows.
+
+ (xv_do_draw)
+ (xwidget_expose): New function.
+
+ (xwidget_osr_draw_cb, xwidget_osr_event_forward)
+ (xwidget_osr_event_set_embedder): Removed.
+
+ (xwidget_init_view): Replace use of GtkDrawingArea with that of an X
+ window.
+
+ (x_draw_xwidget_glyph_string): Prevent xwidget views from constantly
+ generating expose events, and use an X window instead of a
+ GtkDrawingArea.
+
+ (syms_of_xwidget): Initialize x_window_to_xwv_map.
+
+ src/xwidget.h (struct xwidget_view): Replace GTK widgets with
+ X-related fields.
+
+ (xwidget_view_from_window, xwidget_expose): New functions.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix pp-emacs-lisp-code for `when' and related
+
+ * lisp/emacs-lisp/pp.el (pp--format-definition): Skip edebug specs
+ we don't understand at all.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix html-mode--image-yank-handler prompting
+
+ * lisp/textmodes/sgml-mode.el (html-mode--image-yank-handler): Fix
+ two format statements and rearrange images.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ Ensure return value of ert-with-temp-directory
+
+ * lisp/emacs-lisp/ert-x.el (ert-with-temp-file): Ensure return
+ value when :directory is t is the directory name.
+ * test/lisp/emacs-lisp/ert-x-tests.el
+ (ert-x-tests-with-temp-directory): Extend test for the above.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ Prefer ert-with-temp-(directory|file)
+
+ * test/lisp/abbrev-tests.el (read-write-abbrev-file-test)
+ (read-write-abbrev-file-test-with-props)
+ (abbrev-edit-save-to-file-test):
+ * test/lisp/auth-source-tests.el (auth-source-test-netrc-create-secret)
+ (auth-source-delete):
+ * test/lisp/autoinsert-tests.el (autoinsert-tests-auto-insert-file):
+ * test/lisp/bookmark-tests.el (with-bookmark-test-save-load):
+ * test/lisp/buff-menu-tests.el (buff-menu-24962):
+ * test/lisp/calendar/icalendar-tests.el
(icalendar-tests--do-test-export):
+ * test/lisp/calendar/todo-mode-tests.el (with-todo-test):
+ * test/lisp/dired-tests.el
+ (dired-test-bug27243-01, dired-test-bug27243-02)
+ (dired-test-bug27243-03, dired-test-bug27631)
+ (dired-test-bug27968, dired-test-with-temp-dirs):
+ * test/lisp/dired-x-tests.el (dired-test-bug25942):
+ * test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-tests--with-temp-file):
+ * test/lisp/emacs-lisp/check-declare-tests.el (check-declare-tests-scan)
+ (check-declare-tests-verify-mismatch):
+ * test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-with-normal-env):
+ * test/lisp/emacs-lisp/package-tests.el (with-package-test)
+ (package-test-signed):
+ * test/lisp/emacs-lisp/testcover-tests.el
(testcover-tests-markup-region)
+ (testcover-tests-run-test-case):
+ * test/lisp/emulation/viper-tests.el (viper-test-undo-kmacro):
+ * test/lisp/epg-tests.el (with-epg-tests):
+ * test/lisp/eshell/em-hist-tests.el (eshell-write-readonly-history):
+ * test/lisp/eshell/em-ls-tests.el (em-ls-test-bug27631):
+ * test/lisp/ffap-tests.el (ffap-tests-25243):
+ * test/lisp/files-tests.el (files-tests-bug-18141)
+ (files-tests-read-file-in-~, files-tests-make-directory)
+ (files-tests-copy-directory, files-tests-executable-find)
+ (files-tests-dont-rewrite-precious-files)
+ (files-tests--save-some-buffers):
+ * test/lisp/ls-lisp-tests.el (ls-lisp-test-bug27631):
+ * test/lisp/mail/uudecode-tests.el
(uudecode-tests-decode-region-internal)
+ (uudecode-tests-decode-region-external):
+ * test/lisp/net/browse-url-tests.el (browse-url-tests-delete-temp-file):
+ * test/lisp/progmodes/elisp-mode-tests.el (xref--case-insensitive):
+ * test/lisp/progmodes/etags-tests.el
(etags-buffer-local-tags-table-list):
+ * test/lisp/progmodes/flymake-tests.el (ruby-backend):
+ * test/lisp/progmodes/python-tests.el (python-tests-with-temp-file):
+ * test/lisp/progmodes/sql-tests.el (with-sql-test-connect-harness):
+ * test/lisp/saveplace-tests.el (saveplace-test-save-place-to-alist/file)
+ (saveplace-test-forget-unreadable-files)
+ (saveplace-test-place-alist-to-file):
+ * test/lisp/so-long-tests/spelling-tests.el:
+ * test/lisp/textmodes/reftex-tests.el (reftex-locate-bibliography-files)
+ (reftex-parse-from-file-test):
+ * test/lisp/thumbs-tests.el (thumbs-tests-thumbsdir/create-if-missing):
+ * test/lisp/vc/vc-bzr-tests.el (vc-bzr-test-bug9726)
+ (vc-bzr-test-bug9781, vc-bzr-test-faulty-bzr-autoloads):
+ * test/lisp/vc/diff-mode-tests.el
(diff-mode-test-ignore-trailing-dashes):
+ * test/lisp/vc/ediff-ptch-tests.el (ediff-ptch-test-bug26084):
+ * test/lisp/wdired-tests.el (wdired-test-bug32173-01)
+ (wdired-test-bug32173-02, wdired-test-symlink-name)
+ (wdired-test-unfinished-edit-01, wdired-test-bug34915)
+ (wdired-test-bug39280):
+ * test/src/buffer-tests.el (test-kill-buffer-auto-save-default):
+ * test/src/filelock-tests.el (filelock-tests--fixture):
+ * test/src/inotify-tests.el (inotify-file-watch-simple):
+ * test/src/undo-tests.el (undo-test-file-modified): Prefer
+ 'ert-with-temp-(directory|file)' to using 'make-temp-file' directly.
+ In some cases, this is just cleanup, but in several cases this fixes
+ bugs where an error would have lead to us not cleaning up.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ Add generated suffix to test temp file names
+
+ * lisp/emacs-lisp/ert-x.el
+ (ert-with-temp-file): Add temp file name suffix based on file name of
+ caller. Reflow docstring.
+ (ert--with-temp-file-generate-suffix): New defun.
+ * test/lisp/emacs-lisp/ert-x-tests.el
+ (ert-x-tests--with-temp-file-generate-suffix): New test.
+
+2021-11-06 dickmao <none>
+
+ Fix byte compilation of package built-ins
+
+ * lisp/emacs-lisp/package.el
+ (package--activate-autoloads-and-load-path):
+ (package--load-files-for-activation): Remove.
+ (package--library-stem): New function, because
+ file-name-sans-extension is insufficient.
+ (package--reload-previously-loaded): New function.
+ (package-activate-1): Reload directly.
+ (package--files-load-history):
+ (package--list-of-conflicts):
+ (package--list-loaded-files): Remove
+ (package-unpack): Adjust call.
+
+ * test/lisp/emacs-lisp/package-tests.el (macro-builtin-func): Test.
+ (macro-builtin-10-and-90): Test.
+ (package-test-macro-compilation): Test.
+ (package-test-macro-compilation-gz): Test (bug#49708).
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option eww-url-transformers
+
+ * doc/misc/eww.texi (Advanced): Document it.
+ * lisp/net/eww.el (eww-url-transformers): New user option.
+ (eww-remove-tracking): New default function.
+ (eww--transform-url): Helper function.
+ (eww-follow-link): Use it.
+ (eww): Ditto.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Expand register-yank-media-handler doc string
+
+ * lisp/yank-media.el (register-yank-media-handler): Expand doc string.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix yank-media logic when there's several handlers
+
+ * lisp/yank-media.el (yank-media): Fix logic when there's several
+ different handler functions.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow yanking images to html-mode
+
+ * lisp/net/mailcap.el (mailcap-mime-type-to-extension): Autoload.
+ * lisp/textmodes/sgml-mode.el (html-mode--image-yank-handler): New
+ function.
+ (html-mode): Accept image/*.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix "Yanking Media" sectioning
+
+ * doc/lispref/frames.texi (Yanking Media): Fix sectioning.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Support yank-media in html-mode
+
+ * lisp/textmodes/sgml-mode.el (html-mode--html-yank-handler): New
+ function.
+ (html-mode): Handle text/html.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous yank-media--get-selection change
+
+ * lisp/yank-media.el (yank-media--get-selection): Fix typo in
+ previous change.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix nul-terminated text/* strings from some programs
+
+ * lisp/yank-media.el (yank-media--get-selection): Some programs
+ nul-terminate text/* strings. Fix that.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make the lambda/closure buttons in `C-h b' say what they do
+
+ * lisp/button.el (buttonize): Add a help-echo property.
+
+ * lisp/help.el (help--describe-command): Say what the
+ lambda/closure buttons do.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add mouse-face to buttonize
+
+ * lisp/button.el (buttonize): Add the highlight mouse-face.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a framework for yanking media into Emacs
+
+ * doc/emacs/killing.texi (Clipboard): Refer to it.
+ * doc/lispref/frames.texi (Yanking Media): Document the mechanism.
+
+ * lisp/yank-media.el: New file.
+
+ * lisp/gnus/message.el (message-mode): Register a yank handler for
+ images.
+ (message-insert-screenshot): Factor out image code from here...
+ (message--yank-media-image-handler): ... to here.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function mailcap-mime-type-to-extension
+
+ * lisp/net/mailcap.el (mailcap-mime-type-to-extension): Add a new
+ helper function to do the reverse of `mailcap-file-name-to-mime-type'.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a pcase-let example to the manual
+
+ * doc/lispref/control.texi (Destructuring with pcase Patterns):
+ Add a pcase-let example.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ New user option image-auto-resize-max-scale-percent
+
+ * lisp/image-mode.el (image-auto-resize-max-scale-percent): New
+ user option to limit how much 'fit-window' will scale up an image.
+ (image--scale-within-limits-p): New function.
+ (image-toggle-display-image): Respect above new user option.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ New command image-transform-fit-to-window
+
+ * lisp/image-mode.el (image-auto-resize, image-transform-resize):
+ Add new value 'fit-window', meaning to scale the image up or down
+ to fit the window. (Bug#)
+ (image-transform-fit-to-window): New command.
+ (image-transform-fit-to-height, image-transform-fit-to-width):
+ Make obsolete in favor of above new command.
+ (image-mode-map): Bind "s w" to 'image-transform-fit-to-window'.
+ Move binding for obsolete command 'image-transform-fit-to-width'
+ to "s i".
+ (image-mode-map): Add menu entry for
+ 'image-transform-fit-to-window'. Remove menu entries for above
+ obsolete commands.
+ * doc/emacs/files.texi (Image Mode): Update documentation.
+ (image-transform-fit-both): Doc fix.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add outline-minor-mode-use-buttons doc string caveat
+
+ * lisp/outline.el (outline-minor-mode-use-buttons): Note that the
+ feature is for special mode buffers only (bug#51629).
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `outline-hide-body' work in `C-h b' buffers
+
+ * lisp/outline.el (outline-flag-region): Update buttons on most
+ outline toggling commands (bug#51629).
+ (outline--fix-up-all-buttons): Take a region as parameter.
+ (outline-cycle-buffer): Adjust call.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ Make substitute-command-keys regexp tests more strict
+
+ * test/lisp/help-tests.el (with-substitute-command-keys-test): Make
+ regexp tests more strict.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ Replace some macros with ert-with-temp-(file|directory)
+
+ * test/lisp/custom-tests.el (custom-tests--with-temp-dir):
+ * test/lisp/files-tests.el (files-tests--with-temp-file):
+ * test/lisp/progmodes/project-tests.el
+ (project-tests--with-temporary-directory):
+ * test/src/emacs-module-tests.el (module--with-temp-directory):
+ * test/src/emacs-tests.el (emacs-tests--with-temp-file):
+ * test/src/lread-tests.el (lread-tests--with-temp-file):
+ * test/src/process-tests.el (process-tests--with-temp-directory):
+ Replace macros with 'ert-with-temp-(file|directory)'. Update callers.
+
+2021-11-06 Stefan Kangas <stefan@marxist.se>
+
+ New convenience macros ert-with-temp-(file|directory)
+
+ * lisp/emacs-lisp/ert-x.el
+ (ert-with-temp-file)
+ (ert-with-temp-directory): New macros.
+ * test/lisp/emacs-lisp/ert-x-tests.el
+ (ert-x-tests-with-temp-directory)
+ ert-x-tests-with-temp-directory/text-signals-error
+ (ert-x-tests-with-temp-file)
+ (ert-x-tests-with-temp-file/handle-error)
+ (ert-x-tests-with-temp-file/prefix-and-suffix-kwarg)
+ (ert-x-tests-with-temp-file/text-kwarg)
+ (ert-x-tests-with-temp-file/unknown-kwargs-signals-error): New tests.
+
+2021-11-06 F. Jason Park <jp@neverwas.me>
+
+ Don't send empty lines for unknown commands in ERC
+
+ * lisp/erc/erc.el (erc-cmd-default): prevent excess trailing newlines
+ from being sent.
+
+ * test/lisp/erc/erc-tests.el: Update `erc-process-input-line' test to
+ check for excess line feeds with unknown commands.
+
+2021-11-06 F. Jason Park <jp@neverwas.me>
+
+ Deprecate instead of redefine erc-server-reconnecting
+
+ * lisp/erc/erc-backend.el (erc-server-reconnecting,
+ erc--server-reconnecting): obsolete and replace the former with new
+ internal variant, which carries a simplified meaning.
+
+ (erc-server-reconnect-p, erc--server-reconnect-p): Obsolete and
+ replace the former with an internal function, and change behavior to
+ disregard `erc-server-reconnecting' when rendering verdict.
+
+ (erc-process-sentinel-2): ensure local var `erc--server-reconnecting'
+ is t when timers are scheduled or firing, and nil otherwise, including
+ after retries exhausted. This agrees with the straightforward way
+ `erc-server-reconnecting' has always been used by `erc-cmd-RECONNECT'.
+
+ (erc-server-connect): set `erc--server-reconnecting'.
+
+ * lisp/erc/erc.el (erc-cmd-RECONNECT): use `erc--server-reconnecting'
+ instead of `erc-server-reconnecting'.
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix Emoji-related documentation
+
+ * etc/NEWS: Fix wording and spelling.
+
+ * doc/emacs/mule.texi (Input Methods): Add index entries and fix
+ wording.
+
+ * admin/notes/unicode: Update instructions for updating Emacs for
+ the latest Unicode Standard.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Include make Errors in admin/emake
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add an example to the display-supports-face-attributes-p doc string
+
+ * src/xfaces.c (Fdisplay_supports_face_attributes_p): Add an example.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Partially revert previous make-separator-line change
+
+ * lisp/simple.el (make-separator-line): Use dashes on displays
+ that don't support underlines (bug#32950).
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the build broken by recent commits
+
+ * admin/unidata/Makefile.in (${unifiles})
+ (${unidir}/emoji-labels.el): Fix typos in last commits.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up emoji-labels.el generation incantation
+
+ * admin/unidata/Makefile.in (${unidir}/emoji-labels.el): Make
+ generation more silent.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make describe-char include emoji combination descriptions
+
+ * lisp/descr-text.el (describe-char): Output emoji descriptions.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add emoji insertion support to Emacs
+
+ * .gitignore: Ignore the generated emoji-labels.el file.
+ * admin/unidata/Makefile.in (${unidir}/emoji-labels.el): Generate
+ the emoji-labels.el file.
+ (gen-clean): Delete it.
+
+ * admin/unidata/README (https): Note the source for the Unicode
+ file that has emoji categorisations.
+
+ * admin/unidata/emoji-test.txt: Import another Unicode file.
+
+ * doc/emacs/mule.texi (Input Methods): Document the new key bindings.
+
+ * lisp/international/emoji.el: New file.
+
+ * lisp/international/mule-cmds.el (ctl-x-map): Bind the emoji
+ commands.
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Improve latin-2-postfix and latin-2prefix input methods
+
+ * lisp/leim/quail/latin-pre.el ("latin-2-prefix"):
+ * lisp/leim/quail/latin-post.el ("latin-2-postfix"): Add variants
+ of "`s" and "s," for Romanian. Add key bindings for moving
+ between variants, when there are more than one. (Bug#51638)
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Fix an error in 'highlight-confusing-reorderings'
+
+ * lisp/international/mule-cmds.el
+ (highlight-confusing-reorderings): Don't signal an error when
+ a confusingly-reordered sequence ends at EOB.
+
+2021-11-06 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge from origin/emacs-28
+
+ 5e9b4e70ab Fix dbus-test04-register-method on CentOS (Bug#51369)
+ d96de23510 * lisp/transient.el: Update to package version v0.3.7-11-g...
+ 7343b0d0e4 ; * etc/NEWS: Native compilation is more picky about missi...
+ 0d6b2b0b9d ; * etc/PROBLEMS: Move entry about LLVM plugin to the righ...
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ General improvements to NS port
+
+ * src/dispextern.h: Remove some !HAVE_NS conditionals around grab
+ related code.
+ * src/frame.c (gui_mouse_grabbed, gui_redo_mouse_highlight): Remove
+ !HAVE_NS conditionals around code.
+
+ * src/nsmenu.m (ns_update_menubar): Prevent recursive calls and enable
+ shallow updates on GNUstep.
+ (menuNeedsUpdate): Prevent recursive calls.
+ (ns_menu_show): Fix mysterious GC-related bug.
+ (update_frame_tool_bar_1): Work around mysterious toolbar sizing bug
+ on GNUstep.
+
+ * src/nsterm.h (struct ns_output): New field for tracking toolbar
+ visibility changes.
+
+ * src/nsterm.m (frame_set_mouse_pixel_position): Implement for
+ GNUstep.
+ (ns_redraw_scroll_bars): Enable for GNUstep.
+ (ns_clear_frame): Redraw scrollbars on GNUstep.
+ (ns_update_window_end): New function.
+ (ns_redisplay_interface): Add ns_update_window_end on GNUstep.
+ (- keyDown): Remove debug code that doesn't work on GNUstep.
+ (- mouseDown): Enable grab tracking on NS port.
+ (- resizeWithOldSuperviewSize): Fix build with NSTRACE.
+
+ * src/xdisp.c (note_tab_bar_highlight): Enable some code for NS port.
+
+2021-11-06 Po Lu <luangruo@yahoo.com>
+
+ Improve font display on NS port
+
+ * src/nsfns.m (Fx_create_frame): Use "fixed" for the default font on
+ GNUstep.
+
+ * src/nsfont.m (LCD_SMOOTHING_MARGIN, ns_escape_name)
+ (ns_unescape_name, ns_attribute_fvalue)
+ (STYLE_REF): Remove unused defines and functions.
+
+ (struct ns_glyph_layout, enum lgstring_direction).
+ (enum gs_font_slant, enum gs_font_weight, enum gs_font_width)
+ (enum gs_specified, struct gs_font_data): New enumerators and
+ structures.
+
+ (ns_font_descs_match_p)
+ (ns_done_font_data, ns_get_font_data): New functions.
+ (ns_glyph_metrics): Stop escaping names.
+
+ (ns_spec_to_descriptor): Fix font descriptor creation for symbolic
+ font spec entires.
+ (ns_descriptor_to_entity): Create entries with the correct symbolic
+ styles.
+
+ (ns_fallback_entity): Fix fallback entity selection.
+ (ns_findfonts): Use our own font matcher instead of the broken GNUstep
+ matcher.
+
+ (ns_list_family): Remove obsolete comment.
+ (nsfont_open): Remove obsolete code, comments, and synthItal logic
+ which doesn't work on GNUstep.
+
+ (nsfont_encode_char): Use a type that can fit NSGlyph
+ (nsfont_draw): Chose correct font, remove obsolete mouse face logic,
+ obsolete comments, and switch to using glyph-based drawing instead of
+ character-based drawing.
+
+ (ns_font_shape, nsfont_shape): New functions.
+
+ (ns_uni_to_glyphs_1): New function.
+ (ns_uni_to_glyphs): Return glyphs instead of unicode codepoints.
+
+ (ns_glyph_metrics): Use NSGlyphs instead of unicode codepoints and fix
+ left bearing, right bearing, ascent and descent computation.
+
+ (struct nsfont_driver): Add shaping capability.
+
+ * src/nsterm.h (struct nsfont_info): Use unsigned int for glyph cache.
+
+ * src/nsterm.c (ns_focus): Set DPS clipping on GNUstep.
+
+ (ns_compute_glyph_string_overhangs): Fix overhang computation by using
+ xterm code.
+ (ns_draw_window_cursor): Simplify cursor drawing.
+ (ns_maybe_dumpglyphs_background): Test for cursor HL and remove
+ obsolete mouse face logic.
+ (ns_dumpglyphs_image)
+ (ns_dumpglyphs_box_or_relief): Rectify for new cursor logic.
+ (ns_dumpglyphs_stretch): Rectify for new cursor logic and rely on
+ ns_draw_glyph_string to set focus.
+ (ns_draw_glyph_string_foreground): Remove mouse face logic.
+ (ns_draw_glyph_strings): Implement overhangs, remove obsolete
+ comment, and always focus before dumping glyphs.
+ (ns_draw_text_decoration): Add condition for DRAW_CURSOR and simplify
+ color selection.
+ (ns_define_frame_cursor): Remove nonsensical code (define_frame_cursor
+ has nothing to do with the text cursor, aka caret).
+
+ * src/xdisp.c (draw_glyphs): Enable code for NS port to fix mouse face
+ cursor display.
+
+ * src/macfont.m (get_cgcolor_from_nscolor): New function.
+ (macfont_draw): Remove obsolete mouse-face code and enable cursor
+ display.
+
+2021-11-06 Kazuhiro Ito <kzhr@d1.dion.ne.jp>
+
+ Fix display of BW images on MS-Windows
+
+ * src/image.c (convert_mono_to_color_image) [HAVE_NTGUI]: Swap the
+ fore- and the back-ground colors back to their normal conventions.
+ (Bug#6918)
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Improve detection of suspicious reordering in source code
+
+ * src/bidi.c (bidi_find_first_overridden): Detect suspiciously
+ reordered EN types as well.
+
+ * test/src/xdisp-tests.el
+ (xdisp-tests--find-directional-overrides-case-1): Rename from
+ 'xdisp-tests--find-directional-overrides'.
+ (xdisp-tests--find-directional-overrides-case-2): New test.
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 9bdb1d0 ; * etc/PROBLEMS: Describe a crash in xwidgets due to Bubblew...
+ 550887c ; * etc/PROBLEMS: Rearrange and update the section about cras...
+ c2e3cd6 Clarify "text area of a window" in the documentation
+ 4e7e78d Improve docstring of kmacro-set-format
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-11-06 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ b5ccad3 * doc/emacs/building.texi (Compilation Mode): Add next-error-...
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Inhibit isearching over message-insert-screenshot data
+
+ * lisp/gnus/message.el (message-insert-screenshot): Inhibit
+ isearch over the image data.
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update help-tests after separator line changes
+
+2021-11-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow 'insert-image' to inhibit isearches or not
+
+ * doc/lispref/display.texi (Showing Images): Mention it.
+ * lisp/image.el (insert-image): Take an optional parameter to
+ inhibit isearch of the STRING argument.
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Introduce a new 'inhibit-isearch' text property
+
+ * doc/lispref/text.texi (Special Properties): Mention it.
+
+ * lisp/image.el (insert-image): Make `C-s' skip over the image data.
+ * lisp/isearch.el (isearch--search-skip-inhibited): New function.
+ (isearch-search-string): Use it.
+ (isearch--invisible-p): New function.
+ (isearch-range-invisible): Use it.
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-rename the minibuffer heading
+
+ * lisp/minibuffer.el: There's more here than completion functions
+ (bug#49844).
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Correct minibuffer.el heading
+
+ * lisp/minibuffer.el: There's more here than completion functions
+ (bug#49844).
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use underline on non-graphical terminals in make-separator-line
+
+ * lisp/simple.el (separator-line):
+ (make-separator-line): Use an underline on terminals (bug#32950).
+
+2021-11-05 F. Jason Park <jp@neverwas.me>
+
+ Normalize usage of variable erc-server-reconnecting
+
+ * lisp/erc/erc-backend.el (erc-server-reconnecting-p):
+ Don't consider erc-server-reconnecting when rendering verdict.
+ (erc-process-sentinel-2): ensure local variable
+ erc-server-reconnecting is t when timers are scheduled or running and
+ trying to reconnect, and nil otherwise, including after no retries
+ remain. Previously, its use and meaning in erc-backend were convoluted
+ and conflicted with its use in erc-cmd-RECONNECT (bug#50007).
+
+2021-11-05 F. Jason Park <jp@neverwas.me>
+
+ Don't send empty lines for implicit targets in ERC
+
+ * erc.el (erc-send-input-line): Previously, any line typed into a
+ query or channel buffer without an explicit user-command
+ handler (meaning most lines), would be sent twice because a trailing
+ newline (linefeed) would be appended. This has been verified by
+ checking IRCd server logs. IRCds won't return an error upon receiving
+ an empty message, but they also won't forward them to channel
+ subscribers and DM pals.
+
+ * erc-tests.el: Add test for erc-process-input-line, which also
+ indirectly tests erc-send-input-line. It also tests the command
+ lookup and dispatch facility (bug#50008).
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove messaging in pp-display-expression.
+
+ * lisp/emacs-lisp/pp.el (pp-display-expression): Remove confusing
+ message -- we don't usually say that we've popped up a new buffer when
+ we do so.
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow getting verbose results on erts 'C-u C-c C-c'
+
+ * lisp/progmodes/erts-mode.el (erts-run-test): Allow getting a
+ diff buffer of the differences with `C-u C-c C-c'.
+
+2021-11-05 Jim Porter <jporterbugs@gmail.com>
+
+ Improve behavior of 'electric-pair-mode' in 'cc-mode'
+
+ * lisp/progmodes/cc-mode.el (c-electric-pair-inhibit-predicate):
+ Inhibit insertion of paired quote in fewer cases.
+ * test/lisp/electric-tests.el (define-electric-pair-test):
+ Add 'c-mode' to list of modes to test by default (bug#50538).
+
+ This ensures that quotes are paired correctly within comments, allows
for
+ insertion of quote pairs immediately before another quote, and allows
+ inserting quote pairs within a string (thus splitting the string in
two).
+
+2021-11-05 Manuel Giraud <manuel@ledu-giraud.fr>
+
+ Make 'C-x v v' on an unregistered file use the most specific backend
+
+ * lisp/vc/vc.el (vc-next-action): Mention this.
+
+ * lisp/vc/vc.el (vc-backend-for-registration): Choose the most
+ specific backend (bug#50572).
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak `eww' new-buffer parameters
+
+ * lisp/net/eww.el (eww): Don't require that the function be called
+ with 4 to open a new buffer (bug#51613).
+
+2021-11-05 Daniel Martín <mardani29@yahoo.es>
+
+ Fix GNUstep build (ns_compute_glyph_string_overhangs)
+
+ * src/nsterm.m (ns_compute_glyph_string_overhangs): Declare the font
+ variable so that it's in scope for the GNUstep code.
+
+2021-11-05 Stefan Kangas <stefan@marxist.se>
+
+ Add "N.B." abbreviation to checkdoc
+
+ * lisp/emacs-lisp/checkdoc.el (checkdoc-in-abbreviation-p): Add
+ abbreviation "N.B.".
+
+2021-11-05 Stefan Kangas <stefan@marxist.se>
+
+ Don't hardcode "Commentary" section in checkdoc
+
+ * lisp/emacs-lisp/checkdoc.el
+ (checkdoc-commentary-header-string): New defvar.
+ (checkdoc-file-comments-engine): Insert value of above new
+ variable instead of hardcoding what is inserted for the
+ "Commentary" section.
+
+2021-11-05 Eli Zaretskii <eliz@gnu.org>
+
+ Use correct compiler options for building with libwebp
+
+ * src/Makefile.in (WEBP_CFLAGS): Define.
+ (EMACS_CFLAGS): Use it. (Bug#51611)
+
+2021-11-05 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve `file-has-changed-p'
+
+ * doc/lispref/files.texi (File Attributes): Be precise when
+ filename does not exist in `file-has-changed-p'.
+
+ * lisp/files.el (file-has-changed-p): Suppress remote file caches.
+ Handle the case FILE does not exists.
+
+2021-11-05 Paul Eggert <eggert@cs.ucla.edu>
+
+ rsvg_handle_get_dimensions is deprecated in 2.52.0
+
+ In Bug#44655#32 (2020-11-19) it was reported that
+ rsvg_handle_get_dimensions was not deprecated. However, it became
+ deprecated in librsvg 2.52.0 (2021-09-15), and because of this Emacs
+ builds with --enable-gcc-warnings fail in Fedora 35 (2025-11-02)
+ with the diagnostic “‘rsvg_handle_get_dimensions’ is deprecated:
+ Use 'rsvg_handle_get_intrinsic_size_in_pixels' instead
+ [-Werror=deprecated-declarations]”.
+ * src/image.c (rsvg_handle_get_dimensions): Define as a DLL
+ function only if < librsvg 2.46.0, since it’s not used
+ in 2.46.0 or later.
+ (svg_load_image): Use rsvg_handle_get_dimensions only if librsvg <
+ 2.46.0, since it isn’t needed if >= 2.46.0.
+
+2021-11-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow 'pp' to limit the line widths
+
+ * lisp/emacs-lisp/pp.el (pp-max-width, pp-use-max-width): New user
+ options (bug#11934).
+ (pp-to-string): Use it.
+ (pp--insert-lisp): Tweak whether to use standard-output or not.
+ (pp--max-width): New function.
+
+2021-11-05 Eli Zaretskii <eliz@gnu.org>
+
+ Enhance 'highlight-confusing-reorderings'
+
+ * lisp/international/mule-cmds.el (confusingly-reordered): Make
+ sure the face looks distinct on displays that don't support the
+ "wavy" underline attribute.
+ (highlight-confusing-reorderings): Add a tooltip explaining why
+ the text was highlighted. Allow to remove the highlighting by
+ invoking the command with a prefix argument.
+
+2021-11-05 Carlos Pita <carlosjosepita@gmail.com>
+
+ Match dummy output even with non-default rl config
+
+ * lisp/progmodes/python.el
+ (python-shell-completion-native-get-completions): Match dummy output
+ even when readline is configured in non-default ways. (Bug#51010)
+
+2021-11-04 Tino Calancha <tino.calancha@gmail.com>
+
+ Fix (un)compressing directories in Tramp
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-dired-compress-file):
+ Check whether the file is a directory (bug#50581).
+
+2021-11-04 Matthias Meulien <orontee@gmail.com>
+
+ Fix 'diff-font-lock-prettify' breaking display of outline headers
+
+ * lisp/vc/diff-mode.el (diff-outline-level): Make hunk headers be
+ at level 2.
+ (diff-mode): Use prettified line as outline header.
+ (diff--outline-level): New function (bug#51016).
+
+ * lisp/vc/vc.el (vc-diff-internal): Fix diff mode being set before
+ content inserted (bug#51016).
+
+2021-11-04 Daniel Martín <mardani29@yahoo.es>
+
+ Fix buffer overflow in ns_compute_glyph_string_overhangs
+
+ * src/nsterm.m (ns_compute_glyph_string_overhangs): When the first
+ glyph of a glyph string is a composite glyph, `s->nchars' is 0, so
+ "s->char2b + s->nchars - 1" dereferenced a position before buffer
+ `s->char2b'. Instead, rewrite part of the function to distinguish
+ between character glyphs and composite glyphs. For character glyphs,
+ calculate the font metrics using the `text_extents' function, passing
+ it the entire glyph string; for composite glyphs, call
+ `composition_gstring_width'. (Bug#51105)
+
+2021-11-04 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Delete commented out code
+
+ * lisp/image-dired.el: Delete broken and commented out speedbar code;
+ it is not clear what, if anything, it is supposed to do. If anyone
+ wants to work on this, they are better off starting from scratch.
+
+2021-11-04 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: New defgroup and section for gallery support
+
+ * lisp/image-dired.el: Add new section header "Gallery support" to
+ improve file organization. Move relevant TODO:s there.
+
+ (image-dired-gallery): New defgroup.
+ (image-dired-gallery-dir, image-dired-gallery-image-root-url)
+ (image-dired-gallery-thumb-image-root-url)
+ (image-dired-gallery-hidden-tags): Add options to above new defgroup.
+
+ (image-dired-add-to-file-comment-list)
+ (image-dired-create-gallery-lists)
+ (image-dired-add-to-tag-file-lists, image-dired-hidden-p): Rename to...
+ (image-dired--add-to-file-comment-list)
+ (image-dired--create-gallery-lists)
+ (image-dired--add-to-tag-file-lists, image-dired--hidden-p):
+ ...this, to make it more clear that these functions are internal.
+ Make the old names obsolete function aliases.
+ (image-dired-add-to-tag-file-list): Make unused function obsolete.
+
+2021-11-04 Gregory Heytings <gregory@heytings.org>
+
+ New emacsclient option to either create or reuse an existing frame.
+
+ * doc/emacs/misc.texi (emacsclient Options): Document the new option.
+
+ * doc/man/emacsclient.1: Mention the new option (bug#51374).
+ * etc/NEWS: Mention the new option.
+
+ * lib-src/emacsclient.c (reuse_frame): New variable.
+ (longopts): New option.
+ (decode_options): Decode the new option.
+ (print_help_and_exit): Document the new option.
+ (main): Use the new option.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Try harder to keep lines short in pp-emacs-lisp-code
+
+ * lisp/emacs-lisp/pp.el (pp--insert): Try harder to keep lines short.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak multi-line expressions in pp--format-function
+
+ * lisp/emacs-lisp/pp.el (pp--format-function): Fix up multi-line
+ expressions.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up some list folding in pp-emacs-lisp-code
+
+ * lisp/emacs-lisp/pp.el (pp--insert-lisp, pp--format-list)
+ (pp--insert): Touch up list folding.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Indent lambdas/closures better
+
+ * lisp/emacs-lisp/pp.el (pp--format-function): Indent lambdas and
+ closures better.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make lambda/closure help buttons format as Emacs Lisp
+
+ * lisp/help.el (help--describe-command): Format lambda/closures as
+ Emacs Lisp.
+
+ * lisp/emacs-lisp/pp.el (pp-display-expression): Allow formatting
+ as Emacs Lisp.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new basic Emacs Lisp code formatting function
+
+ * lisp/emacs-lisp/pp.el (pp-emacs-lisp-code): New interface function.
+ (pp): Mention it.
+ (pp--insert-lisp, pp--format-vector, pp--format-list)
+ (pp--format-function, pp--format-definition, pp--insert-binding)
+ (pp--insert, pp--indent-buffer): New helper functions.
+
+2021-11-04 Stephen Berman <stephen.berman@gmx.net>
+
+ Fix allout point movement problem
+
+ * lisp/allout.el (allout-next-visible-heading): Ensure that we
+ move to the next physical line (bug#51530).
+
+2021-11-04 Eli Zaretskii <eliz@gnu.org>
+
+ Better detection of potentially malicious bidi text
+
+ * src/bidi.c (bidi_find_first_overridden): Extend to detect more
+ subtle effects of directional formatting controls, to include
+ embeddings and isolates.
+ * src/xdisp.c (Fbidi_find_overridden_directionality): Accept an
+ additional argument BASE-DIR to specify the base direction of the
+ paragraphs.
+
+ * lisp/international/mule-cmds.el (confusingly-reordered): New
+ face.
+ (reorder-starters, reorder-enders): New variables.
+ (highlight-confusing-reorderings): New command to detect and
+ highlight suspiciously reordered text.
+
+ * test/src/xdisp-tests.el
+ (xdisp-tests--find-directional-overrides): New test.
+
+ * etc/NEWS: Announce the new and improved features.
+ * etc/tutorials/TUTORIAL.he: Fix embeddings with incorrect
+ directions.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ font-lock-type-face doc string improvement
+
+ * lisp/font-lock.el (font-lock-type-face): Fix grammar in doc
+ string (bug#51574).
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Improve defface error message
+
+ * lisp/cus-face.el (custom-declare-face): Improve the error
+ message when there's a missing doc string (bug#51576).
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't have `M-x term' call `term-mode' twice
+
+ * lisp/term.el (term): Don't call `term-mode' twice (bug#51589).
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document that `unspecified' isn't valid in defface
+
+ * doc/lispref/display.texi (Face Attributes): Mention that
+ unspecified isn't valid in defface (bug#51595).
+
+2021-11-04 Gregory Heytings <gregory@heytings.org>
+
+ Reset mailcap entries only when mailcap files are read again
+
+ * lisp/net/mailcap.el (mailcap-parse-mailcaps): Move the clear and
+ load defaults operations at their appropriate place. Fixes bug#51600.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix return value of python-nav-end-of-defun
+
+ * lisp/progmodes/python.el (python-nav-end-of-defun): Return
+ non-nil if in a def/class, as the doc string implies (bug#51601).
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rename button-buttonize to buttonize
+
+ * lisp/help.el (help--describe-command):
+ * lisp/emacs-lisp/memory-report.el (memory-report--buffers):
+ * lisp/button.el (button-buttonize):
+ * doc/lispref/display.texi (Making Buttons): Rename
+ button-buttonize to just buttonize and adjust callers.
+
+2021-11-04 Mattias Engdegård <mattiase@acm.org>
+
+ Revert "* lisp/progmodes/xref.el (xref-pop-marker-stack): Don't
obsolete."
+
+ This reverts commit f56408a6f0152cd46d1ea8a0985fbfeeb839ea06.
+
+ As commented by Dmitry Gutov in [1], obsoleting `xref-pop-marker-stack`
+ makes sense.
+
+ [1] https://lists.gnu.org/archive/html/emacs-devel/2021-10/msg01870.html
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a Gnus command to emojize symbols
+
+ * doc/misc/gnus.texi (Article Display): Document it.
+
+ * lisp/gnus/gnus-art.el (gnus-treat-emojize-symbols): New user option.
+ (gnus-treatment-function-alist): Map.
+ (article-emojize-symbols): New command and keystroke.
+
+2021-11-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option mml-attach-file-at-the-end
+
+ * lisp/gnus/mml.el (mml-attach-file-at-the-end): New user option.
+ (mml-attach-file): Use it.
+
+2021-11-04 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Set default-directory in thumbnail buffer
+
+ * lisp/image-dired.el (image-dired-show-all-from-dir): Set
+ default-directory. This fixes e.g. 'dired-jump'.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ Make image-dired-display-image-mode inherit from image-mode
+
+ * lisp/image-dired.el (image-dired-display-image-mode):
+ Inherit from 'image-mode'. (Bug#10758)
+ (image-dired-display-image): Don't generate a temporary image, which
+ is no longer needed with the above change.
+ (image-dired-display-thumbnail-original-image)
+ (image-dired-dired-display-image)
+ (image-dired-mouse-display-image): Simplify.
+
+ (image-dired-temp-image-file)
+ (image-dired-cmd-create-temp-image-program)
+ (image-dired-cmd-create-temp-image-options)
+ (image-dired-display-window-width-correction)
+ (image-dired-display-window-height-correction)
+ (image-dired-display-window-width)
+ (image-dired-display-window-height)
+ (image-dired-display-current-image-full)
+ (image-dired-display-current-image-sized)
+ (image-dired-window-height-pixels): Make obsolete.
+ (image-dired-create-display-image-buffer): Make into obsolete
+ function alias for 'ignore'.
+ (image-dired-display-image-mode-map): Simplify by removing things
+ duplicated from `image-mode-map'. Disable some commands from
+ `image-mode-map' that doesn't make sense for Image-Dired.
+ (image-dired-display-image-mode-menu): Remove menu, as it no longer
+ contains anything useful.
+ (image-dired-minor-mode):
+ * doc/emacs/dired.texi (Image-Dired): Update documentation for the
+ above change.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ Improve theming of image-dired-thumb-mark
+
+ * etc/themes/adwaita-theme.el (adwaita):
+ * etc/themes/deeper-blue-theme.el (deeper-blue):
+ * etc/themes/dichromacy-theme.el (dichromacy):
+ * etc/themes/leuven-theme.el (leuven):
+ * etc/themes/manoj-dark-theme.el (manoj-dark):
+ * etc/themes/whiteboard-theme.el (whiteboard): Add definitions for
+ the 'image-dired-thumb-flagged' face.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Add face for flagged files
+
+ * lisp/image-dired.el (image-dired-thumb-mark): New defface.
+ (image-dired-thumb-update-marks): Mark flagged file with above new
defface.
+ (image-dired-dired-file-marked-p)
+ (image-dired-thumb-file-marked-p): Add optional argument to be
+ used by 'image-dired-*-flagged-p' functions below.
+ (image-dired-dired-file-flagged-p)
+ (image-dired-thumb-file-flagged-p): New defuns.
+ (image-dired-thumb-mark): Improve definition with color classes.
+ (image-dired-thumb-visible-marks): Doc fix.
+
+2021-11-03 Philipp Stephani <phst@google.com>
+
+ Fix declaration syntax of 'image-dired--on-file-in-dired-buffer'.
+
+ * lisp/image-dired.el (image-dired--on-file-in-dired-buffer): Fix
+ declaration syntax.
+
+2021-11-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix encoding issues in gitmerge.el, make it work on MS-Windows
+
+ * admin/gitmerge.el (gitmerge-emacs-version, gitmerge-show-log)
+ (gitmerge-show-diff, gitmerge-show-files, gitmerge-missing)
+ (gitmerge-setup-log-buffer, gitmerge-resolve)
+ (gitmerge-commit-message, gitmerge-apply)
+ (gitmerge-resolve-unmerged, gitmerge-repo-clean)
+ (gitmerge-commit): Bind coding-system-for-read/write to the
+ appropriate vc-git values.
+ (gitmerge-apply) [windows-nt]: Pass long merge log messages via a
+ temporary file.
+ (gitmerge): Clarify the description of the "R" flag.
+
+2021-11-03 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 3e4eb54 ; * etc/PROBLEMS: Minor copyedits of the last change. (Bug#5...
+ 35bc211 Document a macOS error message when opening Emacs
+ 4df9998 Fix header-line and tab-line when mode-line-compact is set
+ 81915a9 Add manual section about how to avoid regexp problems
+ a16e66c Clarify build environment
+ 6ab6b2f Clarify build directory structure
+ 9d61620 * src/pdumper.c (dump_do_dump_relocation): Add sanity check.
+
+2021-11-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix widgets in Outline mode on TTY frames
+
+ * lisp/outline.el (outline--valid-emoji-p): Don't try to probe
+ support for display of Emoji characters on TTY frames. (Bug#51578)
+
+2021-11-03 Eli Zaretskii <eliz@gnu.org>
+
+ A better fix for bug#51583
+
+ * src/w32.c (w32_get_resource): Move from here...
+ * src/w32fns.c (w32_get_resource): ...to here.
+ (w32_applytheme): No longer a no-op for Cygwin w32 builds.
+ (globals_of_w32fns): Do attempt to load dwmapi.dll and uxtheme.dll
+ in the Cygwin w32 build.
+
+2021-11-03 Eli Zaretskii <eliz@gnu.org>
+
+ Fix the Cygwin w32 build broken by adding the dark theme support
+
+ * src/w32fns.c (w32_applytheme): Make a no-op for Cygwin w32
+ builds.
+ (globals_of_w32fns): Don't attempt to load dwmapi.dll and
+ uxtheme.dll in the Cygwin w32 build. (Bug#51583)
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ Improve theming of image-dired-thumb-mark
+
+ * etc/themes/adwaita-theme.el (adwaita):
+ * etc/themes/deeper-blue-theme.el (deeper-blue):
+ * etc/themes/dichromacy-theme.el (dichromacy):
+ * etc/themes/leuven-theme.el (leuven):
+ * etc/themes/manoj-dark-theme.el (manoj-dark):
+ * etc/themes/whiteboard-theme.el (whiteboard): Add definitions for
+ the 'image-dired-thumb-mark' face.
+
+2021-11-03 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ * src/image.c: Fix building with giflib 4.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Improve marking behavior
+
+ * lisp/image-dired.el (image-dired-thumb-mark): Use DarkOrange as
+ background to better match the 'dired-marked' face.
+ (image-dired-show-all-from-dir): Disable all marks when entering a
+ full directory.
+ (image-dired-unmark-all-marks): Add mode tag.
+ (image-dired-thumbnail-mode-map): Bind 'image-dired-unmark-all-marks'
+ to "U".
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Cleanup of four commands
+
+ * lisp/image-dired.el
+ (image-dired--on-file-in-dired-buffer): New macro.
+ (image-dired-mark-thumb-original-file)
+ (image-dired-unmark-thumb-original-file)
+ (image-dired-flag-thumb-original-file)
+ (image-dired-toggle-mark-thumb-original-file): Rewrite using
+ above new macro.
+ (image-dired-modify-mark-on-thumb-original-file): Make obsolete in
+ favor of above new macro.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Support wrap-around in display-next-thumbnail-original
+
+ * lisp/image-dired.el (image-dired-forward-image): Support negative
+ prefix argument. Optionally wrap-around, which means to continue from
+ first image after reaching the last one and vice versa.
+ (image-dired-backward-image): Reimplement in terms of
+ 'image-dired-forward-image'.
+ (image-dired-display-next-thumbnail-original)
+ (image-dired-display-previous-thumbnail-original): Wrap around; when
+ reaching the last image, continue from the first one. Add optional
+ prefix argument to move more than one image at a time.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Improve menus
+
+ * lisp/image-dired.el (image-dired-toggle-append-browsing)
+ (image-dired-toggle-movement-tracking): Improve messages.
+ (image-dired-thumbnail-mode-menu, image-dired-minor-mode-menu):
+ Make toggle entries into checkboxes. Add separators. Remove
+ obsoleted commands accidentally added back in merge.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Signal error if file is missing on display
+
+ * lisp/image-dired.el (image-dired-display-image): Signal error if
+ file is missing.
+
+2021-11-03 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Move menu definitions to top level
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode-map)
+ (image-dired-display-image-mode-map, image-dired-minor-mode-map):
+ Move menu definitions from here...
+ (image-dired-thumbnail-mode-menu)
+ (image-dired-display-image-mode-menu)
+ (image-dired-minor-mode-menu): ...to these new top level
+ definitions.
+
+2021-11-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/epg.el (epg-key): Use explicit copier with proper prefix
+
+ (epg--filter-revoked-keys): Adjust sole use.
+
+2021-11-02 Stefan Kangas <stefan@marxist.se>
+
+ * etc/PROBLEMS: Move some entries to the legacy section.
+
+2021-11-02 Stefan Kangas <stefan@marxist.se>
+
+ Remove info for Emacs 20 users from etc/PROBLEMS
+
+ * etc/PROBLEMS: Remove information for users upgrading from Emacs
+ 20 or older.
+
+2021-11-02 Mattias Engdegård <mattiase@acm.org>
+
+ Optimise (cond) => nil at source level
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-cond):
+ Optimise clause-free `cond`, which can arise from earlier
+ transformations. This enables further optimisations.
+ * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
+ Add test cases.
+
+2021-11-02 Stefan Kangas <stefan@marxist.se>
+
+ Use current face foreground for SVG icons in customize
+
+ * etc/images/down.svg:
+ * etc/images/left.svg:
+ * etc/images/right.svg:
+ * etc/images/up.svg: Don't define foreground; this means they will use
+ the foreground of the currently defined face instead. (Bug#51556)
+
+2021-11-02 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ bc58bea * lisp/progmodes/prog-mode.el (prog-context-menu): Use text-m...
+
+2021-11-02 Stefan Kangas <stefan@marxist.se>
+
+ Support inserting images in tabulated-list-mode columns
+
+ * lisp/emacs-lisp/tabulated-list.el (tabulated-list-print-col):
+ Support using an image descriptor to insert an image in a column.
+ (tabulated-list-entries):
+ * doc/lispref/modes.texi (Tabulated List Mode): Update documentation
+ to reflect above change.
+
+2021-11-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert overlay-related changes in `C-h b'
+
+ * lisp/help.el (describe-bindings): Revert overlay-related changes
+ -- these are already output (normally) by `describe-buffer-bindings'.
+
+2021-11-02 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make lambdas/closures/byte code in `C-h b' clickable
+
+ * lisp/help.el (help--describe-command): Add links for
+ lambdas/closures/byte code (bug#24235).
+
+ * lisp/emacs-lisp/pp.el (pp-display-expression): Autoload.
+
+2021-11-02 Gregory Heytings <gregory@heytings.org>
+
+ Improve file-has-changed-p
+
+ * doc/lispref/files.texi: Update the documentation.
+
+ * lisp/net/mailcap.el: Add a second argument to the call to
+ file-has-changed-p (bug#51523).
+
+2021-11-02 dickmao <dick.r.chiang@gmail.com>
+
+ Update keymap-tests after recent changes
+
+ * test/src/keymap-tests.el
+ (help--describe-vector/bug-9293-one-shadowed-in-range): Update tests
+ for d530f3f9ff.
+ (help--describe-vector/bug-9293-same-command-does-not-shadow): Update
+ (bug#51567).
+
+2021-11-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/outline.el: Fix compilation of `outline--make-button`
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mouse-1 on `C-h b' buttons
+
+ * lisp/outline.el (outline--make-button-overlay): Make mouse-1
+ work on the buttons.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-h b' also describe overlay keymaps
+
+ * lisp/help.el (describe-bindings): Also describe overlay key
+ bindings.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a better test for emojis
+
+ * lisp/outline.el (outline--valid-char-p)
+ (outline--valid-emoji-p): New predicates.
+ (outline--make-button, outline-minor-mode-buttons): Use them.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-h b' indentation more regular (and avoid continuation lines)
+
+ * lisp/help.el (help--describe-command): Don't do any indentation.
+ (describe-map): Store data about each section.
+ (describe-map--align-section): New function to do indentation on a
+ per-block basis.
+ (describe-map--fill-columns): Helper function.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix rendering of key translations
+
+ * lisp/help.el (help--describe-translation): Make obsolete.
+ (help--describe-command): Take an optional parameter to output key
+ translations.
+ (describe-map): Make optional parameters optional.
+
+2021-11-01 Eli Zaretskii <eliz@gnu.org>
+
+ Improve documentation of 'file-has-changed-p'
+
+ * etc/NEWS:
+ * doc/lispref/files.texi (File Attributes): Improve wording of the
+ documentation of 'file-has-changed-p'.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't output prefix keys in `C-h b', and output more data on objects
+
+ * lisp/help.el (help--describe-command): Output
+ [closure/lambda/byte-code] for those types of objects.
+ (describe-map): Don't output prefix keys.
+
+2021-11-01 Michael Albinus <michael.albinus@gmx.de>
+
+ Exclude emacs-module-tests.el on emba
+
+ * test/infra/gitlab-ci.yml (test-native-comp-speed0):
+ Exclude emacs-module-tests.el.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add buttons to definition in help--describe-command
+
+ * lisp/help-mode.el (help-make-xrefs): Don't add buttons to
+ keymaps, because they're pre-buttonized.
+ * lisp/help.el (help--describe-command): Make buttons out of the
+ definitions.
+
+2021-11-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tag up last NEWS change
+
+2021-11-01 Gregory Heytings <gregory@heytings.org>
+
+ Read mailcaps again only when necessary
+
+ * doc/lispref/files.texi (File Attributes): Document it.
+
+ * lisp/files.el (file-has-changed-p): New function.
+ (file-has-changed-p--hash-table): Internal variable used by the
+ new function (bug#51523).
+ * lisp/emacs-lisp/shortdoc.el (file): Mention it.
+
+ * lisp/net/mailcap.el (mailcap-parse-mailcaps): Read mailcaps again
+ only when at least one of the mailcap files has changed. Fixes
+ bug#51523.
+
+2021-11-01 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge from origin/emacs-28
+
+ 84cd95e04c Fix bug#51369
+
+2021-11-01 Michael Albinus <michael.albinus@gmx.de>
+
+ Merge from origin/emacs-28
+
+ ba4daf2214 Adapt arguments of `tramp-make-tramp-file-name'
+ a34466731b Fix typo in describe-map-tree doc string
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further xref fix-ups after keymap help changes
+
+ * lisp/help-mode.el (help-make-xrefs): Get continuation lines right.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix infloop in help-make-xrefs in certain keymaps
+
+ * lisp/help-mode.el (help-make-xrefs): Adjust xref symbol finding
+ after changes to how keymaps are output.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make xref symbol marking work again after describe-keymap changes
+
+ * lisp/help-mode.el (help-make-xrefs): Adjust xref symbol finding
+ after changes to how keymaps are output.
+
+2021-10-31 Aaron Jensen <aaronjensen@gmail.com>
+
+ * lisp/icomplete.el (icomplete-exhibit): Remove workaround
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix failing help-fns tests after layout changes in `C-h b'
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Say "Key/Binding" instead of "key/binding" in `C-h b'
+
+ * lisp/help.el (describe-map-tree): Capitalize the heading.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't print empty keymaps in `C-h b'
+
+ * lisp/help.el (describe-map-tree): Don't print the heading if the
+ keymap is empty (bug#22334). Tweak the look to compress it more
+ vertically.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Include the major mode name in the `C-h b' output
+
+ * lisp/calc/calc-help.el (calc-describe-bindings): Don't add the
+ name since it's there now.
+
+ * src/keymap.c (Fdescribe_buffer_bindings): Include the major mode
+ name for symmetry with the minor modes (and because it's easy to
+ forget).
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't make key binding face wider than the norm
+
+ * lisp/faces.el (help-key-binding): Don't make the chars wider
+ than normally, because that makes `C-h b' lining-up logic fail.
+
+2021-10-31 Ken Brown <kbrown@cornell.edu>
+
+ Merge from origin/emacs-28
+
+ 6ba4e3b78c Drop support for native compilation on 32-bit Cygwin
+ 7e15ee5bc9 ; * doc/emacs/help.texi (Help Mode): Improve indexing.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Re-fix the new mouse event logic in outline
+
+ * lisp/outline.el (outline-show-subtree, outline-hide-subtree):
+ Really fix the mouse logic.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make TAB work on the outline buttons
+
+ * lisp/outline.el (outline--insert-close-button)
+ (outline--insert-open-button): Make TAB work to toggle on the
+ buttons, too.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clarify describe-bindings code slightly
+
+ * lisp/help.el (describe-bindings): Clarify code slightly.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix new mouse handling in outline
+
+ * lisp/outline.el (outline-show-subtree, outline-hide-subtree):
+ Don't set point if we have no event.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add buttons to outlining and tweak `C-h b' buffer
+
+ * lisp/help.el (describe-bindings-outline): Change default to t.
+ (describe-bindings): Tweak the look and remove the explanation.
+
+ * lisp/outline.el (outline-minor-mode-use-buttons):
+ (outline-minor-mode-buttons): New user options.
+ (outline-hide-subtree): Update buttons.
+ (outline--make-button, outline--make-button-overlay)
+ (outline--insert-open-button, outline--insert-close-button)
+ (outline--fix-up-all-buttons): New functions.
+
+2021-10-31 Eli Zaretskii <eliz@gnu.org>
+
+ Improve the "Help Mode" section of the Emacs manual
+
+ * doc/emacs/help.texi (Help Mode): Reorganize and improve wording
+ of the recent change. Add index entries.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add mode tagging to previously added help commands
+
+ * lisp/help-mode.el (help-goto-previous-page): New command and key
+ binding.
+ (help-goto-previous-page): Ditto.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add 'n'/'p' key bindings in *Help* buffers
+
+ * lisp/help-mode.el (help-goto-previous-page): New command and key
+ binding.
+ (help-goto-previous-page): Ditto.
+
+2021-10-31 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ f1c9286 ; * doc/misc/org.org: fix capture context example
+ af67ce6 Merge branch 'emacs-28' of git.savannah.gnu.org:/srv/git/emac...
+ 610680a Fix rendering of title-less <abbr> tags in shr
+ 2ba4ccf ; * lisp/files.el (make-nearby-temp-file): Doc fix.
+
+2021-10-31 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 5e05be5 Fix localized display of date and time in the NS port
+
+2021-10-31 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt emba control files
+
+ * test/infra/Dockerfile.emba: Do not generate debug info.
+
+ * test/infra/gitlab-ci.yml (variables, default): Revert timeout
+ back to three hours.
+ (.job-template): Comment test prints.
+ (test-all-inotify): Exclude emacs-module-tests.el.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add highlighting of the F2008 keyword "impure"
+
+ * lisp/progmodes/f90.el (f90-keywords-re): Highlight F2008 keyword
+ "impure" (bug#51529).
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function 'font-has-char-p'
+
+ * src/font.c (Ffont_has_char_p): New function.
+ (Ffont_get_glyphs): Link to the new function from the doc string.
+
+2021-10-31 Stefan Kangas <stefan@marxist.se>
+
+ Add test for Bug#51527
+
+ * test/src/keymap-tests.el (keymap-lookup-key/menu-non-symbol):
+ New test.
+
+2021-10-31 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ eieio-core.el: Make slot-value work on defstructs
+
+ Adjust the values in EIEIO's index-tables so they are compatible with
those
+ of defstructs.
+
+ * lisp/emacs-lisp/eieio-core.el (eieio--slot-name-index): Don't add the
+ `eieio--object-num-slots` offset.
+ (eieio-defclass-internal): Add the `eieio--object-num-slots` offset
+ here instead.
+ (eieio-oref): Allow its use on `cl-structure-object`.
+
+ * lisp/emacs-lisp/eieio.el (eieio-pcase-slot-index-from-index-table):
+ Don't need to add the `eieio--object-num-slots` offset.
+
+ * doc/misc/eieio.texi (Accessing Slots, Accessing Slots):
+ Mention the use on structs.
+
+ * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
+ (eieio-test-defstruct-slot-value): New test.
+
+2021-10-31 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Expand the kbd-valid-p doc string
+
+ * lisp/subr.el (kbd-valid-p): Expand the doc string.
+
+2021-10-31 Eli Zaretskii <eliz@gnu.org>
+
+ Avoid signaling errors in lookup-key
+
+ * src/keymap.c (Flookup_key): Handle KEY vectors where not all
+ components are symbols. (Bug#51527
+
+2021-10-31 Alan Third <alan@idiocy.org>
+
+ Ensure help echoes only occur once on NS
+
+ * src/nsterm.m ([EmacsView windowDidResignKey:]): Reset
+ any_help_event_p as it is never reset otherwise.
+
+2021-10-31 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 335a660b4b Fix display glitches with side-by-side windows on TTY frames
+ 4a96f32def Avoid replacing common prefix with ellipsis
+
+2021-10-30 Stefan Kangas <stefan@marxist.se>
+
+ Remove workaround for fixed Bug#6581 from ert
+
+ * lisp/emacs-lisp/ert.el (ert-equal-including-properties): Make
+ into obsolete function alias for 'equal-including-properties'.
+ * test/src/editfns-tests.el (format-properties):
+ * test/lisp/emacs-lisp/ert-x-tests.el (ert-propertized-string)
+ (ert-test-run-tests-interactively-2): Don't use above obsolete
+ name.
+
+ (ert--explain-equal-including-properties-rec): New function.
+ (ert--explain-equal-including-properties): Use as an explainer for
+ 'equal-including-properties' now that Bug#6581 is fixed.
+
+ * test/lisp/emacs-lisp/ert-tests.el
+ (ert-test-explain-equal-string-properties): Expand test.
+ (ert-test-equal-including-properties): Merge test into above
+ expanded test.
+
+2021-10-30 Stefan Kangas <stefan@marxist.se>
+
+ Fix bug with string values in equal-including-properties
+
+ * src/intervals.c (intervals_equal_1): Factor out from
+ intervals_equal. Optionally use Fequal for comparison of string
+ values in property lists.
+ (intervals_equal): Update for the above.
+ (compare_string_intervals): Use the above optional Fequal comparison
+ to fix a bug where 'equal-including-properties' compared strings with
+ eq, instead of equal. (Bug#6581)
+ * test/src/fns-tests.el (fns-tests-equal-including-properties)
+ (fns-tests-equal-including-properties/string-prop-vals): New tests.
+
+ * test/lisp/emacs-lisp/ert-tests.el
+ (ert-test-equal-including-properties): Remove parts testing
+ 'equal-including-properties'.
+ * lisp/emacs-lisp/ert.el (ert-equal-including-properties): Add
+ FIXME that this should be removed.
+
+2021-10-30 Stefan Kangas <stefan@marxist.se>
+
+ Use primes for hash table bucket sizes
+
+ * src/dispextern.h (IMAGE_CACHE_BUCKETS_SIZE):
+ * src/image.c (XPM_COLOR_CACHE_BUCKETS): Use primes for hash table
+ bucket sizes.
+
+2021-10-30 Eli Zaretskii <eliz@gnu.org>
+
+ Move the documentation of 'string-glyph-split' to proper place
+
+ * doc/lispref/strings.texi (Creating Strings): Move the
+ description of 'string-glyph-split' from here...
+ * doc/lispref/display.texi (Size of Displayed Text): ...to here.
+
+2021-10-30 Jim Porter <jporterbugs@gmail.com>
+
+ Expand connection-local variables example in doc/emacs/custom.texi
+
+ * doc/emacs/custom.texi (Per-Connection Local Variables): Expand the
+ example to include setting 'system-uses-terminfo'.
+
+2021-10-30 dalanicolai <dalanicolai@gmail.com>
+
+ Make list-colors-display sort list passed as argument
+
+ * lisp/facemenu.el (list-colors-display): Don't skip sorting list of
+ colors if it was passed as an argument. (Bug#51371)
+
+2021-10-30 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function string-glyph-split
+
+ * doc/lispref/strings.texi (Creating Strings): Document it.
+ * lisp/emacs-lisp/shortdoc.el (string): Mention it.
+
+ * lisp/emacs-lisp/subr-x.el (string-glyph-split): New function.
+
+2021-10-30 Kévin Le Gouguec <kevin.legouguec@gmail.com>
+
+ Avoid fonts with incomplete coverage of MATHEMATICAL chars
+
+ * lisp/international/fontset.el (setup-default-fontset): Include both
+ ends of each sub-range in 'script-representative-chars' (bug#51495).
+
+ Some fonts include glyphs for MATHEMATICAL SCRIPT CAPITAL codepoints
+ (#x1D49C-#x1D4B5) but not for MATHEMATICAL SCRIPT SMALL codepoints
+ (#x1D4B6-#x1D4CF), see e.g. KpMath[1].
+
+ 'script-representative-chars' must thus include both CAPITAL and SMALL
+ codepoints to ensure that we filter those fonts out.
+
+ Bug#51495; discussed in help-gnu-emacs[2].
+
+ [1] https://mirrors.ctan.org/fonts/kpfonts-otf/doc/unimath-kpfonts.pdf
+
+ [2] <878s02u5m6.fsf@gmail.com>
+
https://lists.gnu.org/archive/html/help-gnu-emacs/2021-09/msg00150.html
+
+2021-10-30 Eli Zaretskii <eliz@gnu.org>
+
+ Minor fixes for previous change
+
+ * src/w32fns.c (DWMWA_USE_IMMERSIVE_DARK_MODE_OLD): Define only if
+ undefined.
+ (w32_applytheme, w32_createwindow, globals_of_w32fns): Minor
+ stylistic copyedits.
+
+ * etc/NEWS: Reword the entry about using dark mode on MS-Windows.
+
+ * doc/emacs/msdos.texi (Windows Misc): Fix wording and markup in
+ the last change.
+
+2021-10-30 Vince Salvino <salvino@coderedcorp.com>
+
+ Support system dark mode on Windows 10 version 1809 and higher
+
+ * src/w32fns.c (DARK_MODE_APP_NAME)
+ (DWMWA_USE_IMMERSIVE_DARK_MODE_OLD)
+ (DWMWA_USE_IMMERSIVE_DARK_MODE): Define.
+ (w32_applytheme): New function.
+ (w32_createvscrollbar, w32_createhscrollbar, w32_createwindow):
+ Call 'w32_applytheme'.
+ (globals_of_w32fns): Load 'DwmSetWindowAttribute' and
+ 'SetWindowTheme' from their DLLs, and initialize 'w32_darkmode'.
+ * src/w32.c (w32_get_resource): Accept an additional argument
+ instead of hard-coding REG_ROOT; callers changed. (Bug#51404)
+
+ * etc/NEWS:
+ * doc/emacs/msdos.texi (Windows Misc): Document the new feature.
+
+2021-10-30 Eli Zaretskii <eliz@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 20ebd91a73 Improve documentation of string truncation APIs
+ 3f998a3fc8 * lisp/textmodes/css-mode.el: Fix typo. (Bug#51488)
+
+2021-10-29 Stefan Kangas <stefan@marxist.se>
+
+ * src/image.c: Fix building with giflib on MS-Windows.
+
+2021-10-29 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 52e7049b58 * lisp/loadup.el: Unbreak build.
+ 91e7df281e Move lisp/shorthands.el to lisp/emacs-lisp/shorthands.el
+ 00103154e0 Some Tramp changes, mainly in tramp-tests.el
+
+2021-10-29 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 08de838531 ; Improve commentary in the last change
+ 3da9fa875b Make hieroglyphs display correctly with existing fonts
+ 928e05f2d6 Clarify "default face attributes" in the ELisp manual
+ 5dbb04e0eb Make `C-u RET' work again
+ d72fefdeab Fix typos in the manual and in a comment
+
+2021-10-29 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ f52fa1c150 image-dired: Unreverse accidentally reversed menus
+
+ # Conflicts:
+ # lisp/image-dired.el
+
+2021-10-29 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 7e2b973d60 * lisp/textmodes/text-mode.el (text-mode-context-menu): Re...
+ da6d889e90 ; * etc/NEWS: Use active voice for 'repeat-mode', etc.
+ e3171e7e86 Allow automatic use of color fonts for emoji on macOS
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-29 Stefan Kangas <stefan@marxist.se>
+
+ Prefer giflib 5 macros to magic numbers
+
+ * src/image.c (DISPOSAL_UNSPECIFIED, DISPOSE_DO_NOT)
+ (DISPOSE_BACKGROUND, DISPOSE_PREVIOUS, NO_TRANSPARENT_COLOR)
+ [GIFLIB_MAJOR < 5]: Macro defined (for old versions of giflib).
+ (gif_load): Replace magic numbers with giflib 5 macros for disposal
+ and transparency_color_index.
+
+2021-10-29 Stefan Kangas <stefan@marxist.se>
+
+ Don't parse GCB block by hand with giflib 5 or later
+
+ * src/image.c (gif_load): If GIFLIB_MAJOR > 5, use
+ DGifSavedExtensionToGCB instead of parsing the Graphic Control
+ Extension block by hand.
+
+2021-10-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make message/rfc822 on buttons work again in Gnus
+
+ * lisp/gnus/gnus-art.el (gnus-article-mode): Set
+ mm-inline-message-prepare-function buffer-locally so that it works
+ both when inlining rfc822 and hitting the MIME button (bug#51388).
+ (gnus-mime--inline-message): Factor out into own function.
+ (gnus-mime-display-single): From here.
+
+2021-10-29 Morgan J. Smith <Morgan.J.Smith@outlook.com>
+
+ Add some gnus-short-group-name tests
+
+ * test/lisp/gnus/gnus-group-tests.el (gnus-short-group-name): Add
+ some gnus-short-group-name tests (bug#51450).
+
+2021-10-29 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Shorten Gnus groups with [foo] in the name better
+
+ * lisp/gnus/gnus.el (gnus-short-group-name): Shorten groups with
+ [] in the names better (bug#51450).
+
+2021-10-29 Stefan Kangas <stefan@marxist.se>
+
+ * src/image.c (gif_load): Minor simplification.
+
+2021-10-29 Eli Zaretskii <eliz@gnu.org>
+
+ Fix bootstrapping broken by a recent change
+
+ * src/keymap.c (Flookup_key): Avoid crashes during bootstrap when
+ uni-lowercase.el is not available yet.
+
+2021-10-28 akater <nuclearspace@gmail.com>
+
+ Indent cl-flet-like forms correctly in incomplete expressions
+
+ * lisp/emacs-lisp/lisp-mode.el
+ (lisp--local-defform-body-p): Support incomplete sexps
+
+ * test/lisp/progmodes/elisp-mode-resources/flet.erts:
+ Add tests for incomplete sexps (bug#9622).
+
+2021-10-28 Stefan Kangas <stefan@marxist.se>
+
+ Be more allowing when looking for menu-bar items
+
+ * src/keymap.c (lookup_key_1): Factor out function from
+ Flookup_key.
+ (Flookup_key): Be case insensitive, and treat spaces as dashes,
+ when looking for Qmenu_bar items. (Bug#50752)
+
+ * test/src/keymap-tests.el
+ (keymap-lookup-key/mixed-case)
+ (keymap-lookup-key/mixed-case-multibyte)
+ (keymap-lookup-keymap/with-spaces)
+ (keymap-lookup-keymap/with-spaces-multibyte)
+ (keymap-lookup-keymap/with-spaces-multibyte-lang-env): New tests.
+
+2021-10-28 Alan Mackenzie <acm@muc.de>
+
+ Put missing c-keep-region-active's into the source code
+
+ * lisp/progmodes/cc-cmds.el (c-beginning-of-defun): Insert
+ c-keep-region-active when (< arg 0).
+ (c-forward-conditional): Insert c-keep-region-active.
+
+2021-10-28 Jim Porter <jporterbugs@gmail.com>
+
+ Make comint-term-environment connection-aware (bug#51426)
+
+ * lisp/comint.el (comint-term-environment): Make it connection-aware.
+
+ * doc/emacs/misc.texi (Shell Options): Document the above change, and
+ explain how this interacts with 'system-uses-terminfo'.
+
+ * etc/NEWS: Announce the above change.
+
+2021-10-28 Eli Zaretskii <eliz@gnu.org>
+
+ Ignore more events in input-pending-p
+
+ * src/keyboard.c (readable_events)
+ (kbd_buffer_store_buffered_event): Use 'is_ignored_event' to
+ decide whether the input event is to be ignored.
+ (is_ignored_event): New function.
+ (syms_of_keyboard) <input-pending-p-filter-events>: New variable.
+ Patch from Aaron Jensen <aaronjensen@gmail.com>.
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ Do interactive mode tagging in image-dired.el
+
+ * lisp/image-dired.el (image-dired-restore-window-configuration)
+ (image-dired-next-line, image-dired-previous-line)
+ (image-dired-mark-thumb-original-file)
+ (image-dired-unmark-thumb-original-file)
+ (image-dired-flag-thumb-original-file)
+ (image-dired-toggle-mark-thumb-original-file)
+ (image-dired-jump-original-dired-buffer)
+ (image-dired-delete-char, image-dired-refresh-thumb)
+ (image-dired-display-next-thumbnail-original)
+ (image-dired-display-previous-thumbnail-original): Do interactive
+ tagging; these will only work in 'image-dired-thumbnail-mode'.
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Make thumbnail rotation commands obsolete
+
+ * lisp/image-dired.el (image-dired-cmd-rotate-thumbnail-program)
+ (image-dired-cmd-rotate-thumbnail-options)
+ (image-dired-rotate-thumbnail)
+ (image-dired-rotate-thumbnail-left)
+ (image-dired-rotate-thumbnail-right): Make obsolete in favor of
+ 'image-dired-refresh-thumb' and 'image-rotate'. It makes no sense to
+ have destructive thumbnail rotation commands now that Emacs can rotate
+ thumbnails in memory, and it is very fast to just generate a new one
+ reflecting the rotation of the original.
+ (image-dired-thumbnail-mode-map): Remove menu entries and key bindings
+ for above obsolete commands. The rotate right keybinding had already
+ been made ineffective by the local keymap added by 'insert-image'.
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Don't show thumbnails if there are no image files
+
+ * lisp/image-dired.el (image-dired-show-all-from-dir): Don't show
+ thumbnail buffer if there are no image files.
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ Increase image-dired-show-all-from-dir-max-files to 500
+
+ * lisp/image-dired.el (image-dired-show-all-from-dir-max-files):
+ Increase default to 500 to ask for confirmation much less frequently.
+ The old value was added before we had asynchronous generation of
+ thumbnails, when a large number of files would lock up Emacs. Asking
+ for confirmation could probably be disabled completely these days, but
+ let's be conservative and set it to some large number of files for
+ which some users might want to see a prompt. It can't hurt.
+ (image-dired-show-all-from-dir): Never warn if above variable is nil.
+ (image-dired-bookmark-jump): Let-bind above variable to nil instead of
+ 'most-positive-fixnum'.
+ * doc/emacs/dired.texi (Image-Dired): Don't mention the above
+ variable, as it is no longer important enough to deserve the space.
+ * etc/NEWS: Announce the above change.
+
+2021-10-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ (string-pixel-width): Rewrite to avoid side effects
+
+ * src/xdisp.c (Fwindow_text_pixel_size): Allow `window` to be a buffer.
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width): Simplify accordingly.
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Revert "Add tentative key bindings for the three emoji commands"
+
+ This reverts commit e678067cb5c4a642ef3fab1cc5046a34a4ae35d1.
+
+ Applied to the wrong branch.
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add tentative key bindings for the three emoji commands
+
+2021-10-27 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 2bdd5732aa (origin/emacs-28) ; * etc/NEWS: Fix last change.
+ 492b927909 Fix help commands for menu-bar menus
+ 9589be772d ; * etc/NEWS: Fix typos.
+ d353fc4a00 ; Explain why "kinds of atom" isn't a typo
+ 47a3750162 ; * etc/NEWS: Improve wording of the Emoji entry.
+ b814712796 ; Checkdoc fixes in image-dired.el
+ e45b3fc521 Improve function documentation with text from XDG BDS spec
+ 284c77eeb6 * lisp/transient.el: Update to package version 0.3.7.
+ 40400e6977 ; Revert parts of "Use string-replace instead of replace-r...
+ 214c2e268c ; Revert parts of "Use string-search instead of string-mat...
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify string-pixel-width
+
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width): Simplify --
+ save-window-excursion saves dedication status (and the code was
+ buggy).
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix parsing of erts files
+
+ * lisp/emacs-lisp/ert.el (ert-test-erts-file): Fix progress
+ through a test file (bug#51409).
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Harden ert-resource-directory against errors
+
+ * lisp/emacs-lisp/ert-x.el (ert-resource-directory): Be more
+ resilient -- don't bug out if called from a file that's not
+ visiting a directory.
+
+2021-10-27 Jim Porter <jporterbugs@gmail.com>
+
+ Be more efficient when checking for a matching client in server.el
+
+ lisp/server.el (server-handle-delete-frame): Use 'seq-some' to
+ determine if another frame for the current client exists.
+ (server-kill-emacs-query-function): Use 'seq-some' to determine if
+ another live client exists (bug#51420).
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function 'string-pixel-width'
+
+ * doc/lispref/display.texi (Size of Displayed Text): Mention it.
+ * lisp/emacs-lisp/shortdoc.el (string): Mention it.
+
+ * lisp/emacs-lisp/subr-x.el (string-pixel-width): New function.
+
+2021-10-27 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Allow matching non-.git gitlab and gitea URLs in bug-reference
+
+ * lisp/progmodes/bug-reference.el
+ (bug-reference--build-forge-setup-entry): Allow matching non-.git
+ gitlab and gitea URLs, with and without slashes (bug#51316).
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Always start the SIGALRM atimers
+
+ * src/atimer.c (init_atimer): Always start the SIGALRM alarms,
+ even if we're using timerfd (bug#19776). See long, long
+ discussion in the bug report for why this is necessary.
+
+2021-10-27 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Redisplay after changing to the hourglass mouse pointer
+
+ * src/xterm.c (x_show_hourglass): Do a redisplay after changing to
+ the hourglass pointer -- otherwise it won't be displayed until a
+ keyboard/mouse event arrives (bug#19776).
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Set line-spacing to match horizontal space
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode): Set value of
+ 'line-spacing' to approximately match horizontal space. This makes
+ the thumbnail view look better.
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Add support for bookmark.el
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode): Add bookmark.el
support.
+ (bookmark-make-record-default, bookmark-prop-get): Declare.
+ (image-dired-bookmark-name, image-dired-bookmark-make-record)
+ (image-dired-bookmark-jump): New defuns.
+
+2021-10-27 Stefan Kangas <stefan@marxist.se>
+
+ Add test for file-name-base
+
+ * test/lisp/files-tests.el (files-tests-file-name-base): New test.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Improve mouse behaviour
+
+ * lisp/image-dired.el (image-dired-thumbnail-mode-map): Improve mouse
+ behaviour: ignore dragging, as it currently doesn't do anything
+ useful, and make all clicks just select the thumbnail.
+ (image-dired-mouse-display-image)
+ (image-dired-mouse-select-thumbnail): Move point to closest image
+ after clicking in buffer.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Don't ding at beginning or end of buffer
+
+ * lisp/image-dired.el
+ (image-dired--display-thumb-properties-fun): New defun.
+ (image-dired-forward-image, image-dired-backward-image): Don't ding
+ when moving past first or last image; instead show a message, wait a
+ second and then show image properties.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Add new commands for beginning/end of buffer
+
+ * lisp/image-dired.el (image-dired-beginning-of-buffer)
+ (image-dired-end-of-buffer): New commands.
+ (image-dired-thumbnail-mode-map): Bind new beginning of buffer command
+ to '<' and 'M-<', and end of buffer command to '>' and 'M->'.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ Add new function image-at-point-p
+
+ * lisp/image.el (image-at-point-p): New defun.
+ * doc/lispref/display.texi (Showing Images): Document above new defun.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Use an evenly spaced grid for thumbnails
+
+ * lisp/image-dired.el (image-dired-line-up): Use an evenly spaced
+ grid for thumbnails, even if image sizes differ.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Use example.org in examples
+
+ * lisp/image-dired.el (image-dired-gallery-image-root-url)
+ (image-dired-gallery-thumb-image-root-url): Use example.org to be
+ RFC 2606 compliant.
+
+2021-10-26 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Increase number of asynch thumbnail generation jobs
+
+ * lisp/image-dired.el (image-dired-queue-active-limit): Increase the
+ number of asynchronous thumbnail generation jobs to a maximum of 4 or
+ processor count divided by 2. This makes thumbnail generation around
+ 30 % faster when benchmarking this on my machine (8 cores/4 jobs).
+
+ (image-dired-debug): New defvar.
+ (image-dired-debug-message): New defun.
+
+ (image-dired--generate-thumbs-start): New defvar.
+ (image-dired-create-thumb-1, image-dired-display-thumbs): Display time
+ spent on thumbnail generation if 'image-dired-debug' is non-nil.
+
+2021-10-26 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: minor amendments more accurately to handle virtual semicolons,
etc.
+
+ * lisp/progmodes/cc-engine.el (c-laomib-loop): Check for a virtual
semicolon
+ as well as a ;.
+ (c-guess-basic-syntax): CASE 5D - Use c-crosses-statement-barrier-p to
check
+ whether we've gone back past a virtual semicolon.
+
+2021-10-26 Alan Mackenzie <acm@muc.de>
+
+ * lisp/progmodes/cc-engine.el (c-fontify-new-found-type): Declare near
BO File
+
+2021-10-26 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/gitlab-ci.yml (build-image-inotify): Increase timeout.
+
+ (test-native-comp-speed0): Adapt make_params.
+
+2021-10-26 Mattias Engdegård <mattiase@acm.org>
+
+ * lisp/progmodes/xref.el (xref-pop-marker-stack): Don't obsolete.
+
+2021-10-25 Mattias Engdegård <mattiase@acm.org>
+
+ Rename `xref-pop-marker-stack` to `xref-go-back` (bug#38797)
+
+ It is the natural name after the addition of `xref-go-forward`.
+ The old name is retained as an alias.
+
+ * lisp/progmodes/xref.el (xref-pop-marker-stack): Rename.
+ (xref-go-forward, xref-quit-and-pop-marker-stack)
+ (xref-find-definitions):
+ * lisp/menu-bar.el (menu-bar-goto-menu):
+ * lisp/progmodes/etags.el (find-tag-marker-ring, pop-tag-mark):
+ * lisp/progmodes/prog-mode.el (prog-context-menu):
+ * doc/emacs/maintaining.texi (Looking Up Identifiers):
+ * etc/NEWS:
+ Use the new name.
+
+2021-10-25 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ IMAP search should only use charset utf-8 with multibyte strings
+
+ Background: Exchange servers cannot accept "charset utf-8" search
+ strings. The code originally set that charset for any server with
+ literal+ capability, borking all searches on an Exchange server. This
+ code only sets utf-8 for multibyte search strings in particular, which
+ would be borken for Exchange anyway.
+
+ * lisp/gnus/gnus-search.el (gnus-search-imap-search-command): Ensure
+ we're only doing the literal+ dance for multibyte strings (multibyte
+ strings will have had newlines inserted in an earlier step).
+
+2021-10-25 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ a2c17e115e (origin/emacs-28) Merge branch 'emacs-28' of git.savannah....
+ fde56eeb76 Revert "Fix a typo in emacs-lisp-intro.texi"
+ 4779d3ba19 * doc/lispref/functions.texi (Mapping Functions): Use #' w...
+ 85ea3f7f47 Fix issue with interpreting ANSI codes in eshell
+ 50f9436146 image-dired: Doc fix to better explain thumbnail generation
+ bb475e10b9 Clarify two image-dired docstrings
+ f5b4bb4a6f Fix flymake example backend conditions in the manual
+ 0771d8939a * etc/PROBLEMS: Mention problems with regexp matcher. (Bu...
+ ee579033b9 * test/lisp/repeat-tests.el: New file.
+ 7385a7667f * lisp/tab-bar.el (tab-bar-move-repeat-map): Fix alias bin...
+ 56caf1c9b8 Use restrictive umask when creating image-dired data
+ 3b5de7f991 ; lisp/transient.el: Revert some misguided stylistic fixes.
+
+2021-10-25 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 817c929eda Doc fix for concat
+ 3eca2ad2a1 * lisp/image-dired.el (image-dired-external-viewer): Suppo...
+
+2021-10-25 Glenn Morris <rgm@gnu.org>
+
+ * doc/misc/cc-mode.texi (Font Locking): Fix menu.
+
+2021-10-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add the "always" zsh builtin to zsh mode
+
+ * lisp/progmodes/sh-script.el (sh-builtins): Add the "always" zsh
+ keyword (bug#51387).
+
+2021-10-25 Mattias Engdegård <mattiase@acm.org>
+
+ Add xref forward history (bug#38797)
+
+ Make it possible to go forward as well as back in the Xref history.
+ The new `xref-go-forward` is bound to `C-M-,`.
+
+ * lisp/progmodes/etags.el (find-tag-marker-ring-length): Update.
+ (tags-location-ring-length): New.
+ (find-tag-marker-ring): Keep as dummy.
+ (tags-location-ring, tags-reset-tags-tables):
+ Use `tags-location-ring-length` instead of `xref-marker-ring-length`.
+ * lisp/progmodes/xref.el (xref-marker-ring-length, xref-marker-ring)
+ (xref-set-marker-ring-length):
+ Make obsolete.
+ (xref--history, xref-go-forward, xref-forward-history-empty-p): New.
+ (xref-push-marker-stack, xref-pop-marker-stack)
+ (xref-clear-marker-stack, xref-marker-stack-empty-p):
+ Use `xref--history`.
+ * lisp/menu-bar.el (menu-bar-goto-menu): Add Forward entry.
+ * doc/emacs/maintaining.texi (Looking Up Identifiers): Document.
+ * etc/NEWS: Announce.
+
+2021-10-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow viewing .heic images via image-convert
+
+ * lisp/files.el (auto-mode-alist): Support the Apple .heic/HEIF
+ image format (bug#51381).
+
+2021-10-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change the with-delayed-message syntax to allow future extensibility
+
+ * doc/lispref/display.texi (Progress): Document it.
+ * lisp/subr.el (with-delayed-message): Change the syntax to allow
+ future extensibility.
+
+ * lisp/net/eww.el (eww-display-html): Use it.
+
+2021-10-25 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Heed the EMACS_IGNORE_TIMERFD environment variable
+
+ * src/emacs.c (main): Call init_atimer after setting up the
+ environment so that the EMACS_IGNORE_TIMERFD environment variable
+ is actually heeded.
+
+2021-10-25 Martin Rudalics <rudalics@gmx.at>
+
+ Allow 'display-buffer' to set up body size of chosen window (Bug#17065)
+
+ * doc/lispref/windows.texi (Buffer Display Action Alists):
+ Describe new possible values for 'window-height', 'window-width'
+ and 'window-size' action alist entries.
+ * lisp/window.el (window--display-buffer): Handle new values for
+ 'window-height', 'window-width' and 'window-size' ALIST entries.
+ (display-buffer): Update doc-string for new values of some
+ action alist entries.
+ * etc/NEWS: Mention new values of some action alist entries.
+
+2021-10-25 Stefan Kangas <stefan@marxist.se>
+
+ New function xdg-state-home
+
+ * lisp/xdg.el (xdg-state-home): New function. This returns
+ $XDG_STATE_HOME according to the XDG Base Directory Specification
+ version 0.8 (08th May 2021).
+
+2021-10-25 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Improve XDG compliance
+
+ * lisp/image-dired.el (xdg): Require.
+ (image-dired-main-image-directory): Prefer XDG_PICTURES_HOME.
+ (image-dired-thumb-name): Simplify by using 'xdg-cache-home'.
+
+2021-10-25 Stefan Kangas <stefan@marxist.se>
+
+ Double value of image-dired-show-all-from-dir-max-files
+
+ * lisp/image-dired.el (image-dired-show-all-from-dir-max-files):
+ Double the amount of files in directory before prompting. This could
+ be even higher, as the thumbnails are generated asynchronously and are
+ small by default.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ image-dired: Add support for GraphicsMagick
+
+ * lisp/image-dired.el (image-dired-cmd-create-thumbnail-program)
+ (image-dired-cmd-create-thumbnail-options)
+ (image-dired-cmd-create-temp-image-program)
+ (image-dired-cmd-create-temp-image-options)
+ (image-dired-cmd-rotate-thumbnail-program)
+ (image-dired-cmd-rotate-thumbnail-options): Add support for the
+ GraphicsMagick command line tool ("gm convert", "gm mogrify").
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix issues with type casting in delayed message functions
+
+ * src/eval.c (with_delayed_message_display)
+ (with_delayed_message_cancel, Ffuncall_with_delayed_message): Fix
+ some type confusion.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Support new Thumbnail Managing Standard sizes in image-dired
+
+ * lisp/image-dired.el
+ (image-dired--thumbnail-managing-standard-sizes): New defconst.
+ (image-dired-thumbnail-storage)
+ (image-dired-thumb-name, image-dired-insert-thumbnail)
+ (image-dired-thumb-size, image-dired-create-thumb-1): Support larger
+ thumbnail sizes mandated by new version of the Thumbnail Managing
+ Standard (December 2020, Version 0.9.0).
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Use SHA1 when creating thumbnail file name
+
+ * lisp/image-dired.el (image-dired-thumb-name): Improve docstring.
+ Use SHA1 for hashing when creating file name. SHA1 is slightly faster
+ than MD5, and has a few more bits.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove debugging in with_delayed_message_display
+
+ * src/eval.c (with_delayed_message_display): Remove debugging.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Display a message if HMTL rendering takes a long time
+
+ * lisp/net/eww.el (eww-display-html): Display a message if HTML
+ rendering takes a long time (bug#19776).
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new macro `with-delayed-message'
+
+ * doc/lispref/display.texi (Progress): Document it.
+ * lisp/subr.el (with-delayed-message): New macro.
+
+ * src/eval.c (with_delayed_message_display)
+ (with_delayed_message_cancel): Helper functions.
+ (Ffuncall_with_delayed_message): New function (bug#19776).
+
+2021-10-24 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fontify "found types" which are recognized after being first
scanned
+
+ This aims to fix the scenario where on jit-lock's first scan of a type,
it is
+ not recognized as such, and only later does this happen. The
fontification of
+ such found types is now done by background scanning in short time slices
+ immediately after initialising the mode.
+
+ * lisp/progmodes/cc-engine.el (c-add-type-1): New function.
+ (c-add-type): Extract c-add-type-1 from it, and reformulate the
mechanism for
+ protecting c-found-types from excessive partial identifiers.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-complex-decl-prepare): Remove
the
+ code which cleared c-found-types on fontification at BOB.
+ (c-find-types-background): New function, based on
c-font-lock-declarations).
+ (c-type-finder-timer-func): New function.
+ (c-re-redisplay-timer): New variable.
+ (c-force-redisplay, c-fontify-new-found-type): New functions.
+
+ * lisp/progmodes/cc-mode.el (c-type-finder-timer,
c-inhibit-type-finder): New
+ variables.
+ (c-leave-cc-mode-mode): Nullify c-post-command-hook, c-post-gc-hook, and
+ c-type-finder-timer when the last CC Mode buffer of a session is killed.
+ (c-type-finder-pos): New variable.
+ (c-basic-common-init): Initialize/Install c-post-command,
c-c-type-finder-pos,
+ c-type-finder-timer, and c-post-gc-hook.
+ (c-new-id-start, c-new-id-end, c-new-id-is-type): New variables.
+ (c-update-new-id): New function.
+ (c-post-command): New post command hook function, used for checking
moving
+ away from partially typed identifiers, and making them full identifiers.
+ (c-post-gc-hook): New hook to prevent CC Mode activity immediately
following
+ GC, thus allowing keyboard/mouse input to be registered.
+ (c-before-change): Add code to clear c-found-types on a buffer change
at BOB.
+ (c-after-change): Call c-update-new-id to keep track of partially typed
+ identifiers.
+
+ * doc/misc/cc-mode.texi (Found Types): New @section in the @Chapter Font
+ Locking.
+
+ * lisp/progmodes/cc-vars.el (c-type-finder-time-slot)
+ (c-type-finder-repeat-time, c-type-finder-chunk-size): New customizable
+ options.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mouse buttons in dired--make-directory-clickable
+
+ * lisp/dired.el (dired--make-directory-clickable): Adjust mouse
+ clicks to conform to our standards.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Don't unhide first thread if entering without selecting article
+
+ * lisp/gnus/gnus-sum.el (gnus-summary-first-unread-subject)
+ (gnus-summary-first-unseen-subject)
+ (gnus-summary-first-unseen-or-unread-subject): Use it.
+ (gnus-summary--goto-and-possibly-unhide): New function -- don't
+ unhide the first thread unless necessary (bug#51344).
+
+2021-10-24 Sharaf Zaman <shzam@sdf.org> (tiny change)
+
+ Fix a memory leak in pgtk_draw_fringe_bitmap
+
+ * src/pgtkterm.c (pgtk_draw_fringe_bitmap): we had an unbalanced
+ cairo_save/restore.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Improve documentation of image-dired thumbnails
+
+ * lisp/image-dired.el: Fix documentation on thumbnail file format to
+ correctly say that it can be either PNG or JPEG; not just JPEG. Also
+ fix inconsistent formatting in comments.
+ * lisp/image-dired.el (image-dired-thumbnail-storage): Improve
+ docstring.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Add support for pngquant to image-dired
+
+ * lisp/image-dired.el (image-dired-cmd-pngnq-program)
+ (image-dired-cmd-pngnq-options): Add support for pngquant.
+ Prefer, in this order: pngquant, pngnq-s9, pngnq-s for reasons of
+ speed and how actively maintained the projects seem to be.
+
+2021-10-24 Eli Zaretskii <eliz@gnu.org>
+
+ Fix compilation errors with MinGW64 GCC 11
+
+ * lib-src/ntlib.c (IS_DIRECTORY_SEP): Remove redundant macro.
+
+ * lib-src/ntlib.c (DEFER_MS_W32_H):
+ * nt/addpm.c (DEFER_MS_W32_H):
+ * nt/cmdproxy.c (DEFER_MS_W32_H):
+ * nt/ddeclient.c (DEFER_MS_W32_H):
+ * nt/preprep.c (DEFER_MS_W32_H):
+ * nt/runemacs.c (DEFER_MS_W32_H): Fix a typo.
+ * nt/Makefile.in (BASE_CFLAGS): Add -I switches to pick up
+ config.h and lib/attribute.h.
+
+2021-10-24 Paul Eggert <eggert@cs.ucla.edu>
+
+ Include <config.h> first in MS-Windows source
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix define-erc-response-handler indentation
+
+ * lisp/erc/erc-backend.el (define-erc-response-handler): Add
+ proper indentation.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Add new option help-link-key-to-documentation
+
+ * lisp/help.el (help-link-key-to-documentation): New user option.
+ (substitute-command-keys): Add a link from keys to the command they
+ are bound to, if the above new option is non-nil. (Bug#8951)
+ * etc/NEWS: Announce the new option.
+
+2021-10-24 William Xu <william.xwl@gmail.com>
+
+ Make dired directory components clickable
+
+ * lisp/dired.el (dired-readin): Use it.
+
+ * lisp/dired.el (dired-make-directory-clickable): New user option.
+
+ * lisp/dired.el (dired--make-directory-clickable): New function
+ (bug#21973).
+
+2021-10-24 Mattias Engdegård <mattiase@acm.org>
+
+ Don't use obsolete variable `find-tag-marker-ring`
+
+ * lisp/progmodes/js.el (js-find-symbol):
+ * lisp/progmodes/octave.el (octave-find-definition):
+ Call `xref-push-marker-stack` instead of manipulating the obsolete
+ variable `find-tag-marker-ring`.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak bug-reference-tests
+
+ * test/lisp/progmodes/bug-reference-tests.el: Tweak tests a bit.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clean up duplicated setting in scheme-mode-variables
+
+ * lisp/progmodes/scheme.el (scheme-mode-variables): Remove
+ repeated setting.
+
+2021-10-24 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow matching non-.git URLs in bug-reference
+
+ * lisp/progmodes/bug-reference.el
+ (bug-reference--build-forge-setup-entry): Allow matching non-.git
+ URLs, with and without slashes (bug#51316).
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Don't hard-code image-dired thumbnail type
+
+ * lisp/image-dired.el (image-dired-insert-thumbnail): Detect thumbnail
+ image type instead of hard-coding it.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Expand tests for image-type-from-file-header
+
+ * test/lisp/image-tests.el (image-tests--files): New defconst.
+ (image-tests--type-from-file-header): New defun.
+ (image-type-from-file-header-test/jpeg)
+ (image-type-from-file-header-test/pbm)
+ (image-type-from-file-header-test/png)
+ (image-type-from-file-header-test/svg)
+ (image-type-from-file-header-test/tiff)
+ (image-type-from-file-header-test/webp)
+ (image-type-from-file-header-test/xbm)
+ (image-type-from-file-header-test/xpm): New tests.
+ (image-type-from-file-header-test): Delete test.
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Add tests for gif to src/image-tests.el
+
+ * test/src/image-tests.el (image-tests--images): Rename from
+ image-tests-files. Add gif.
+ (image-tests-image-size/gif)
+ (image-tests-image-mask-p/gif)
+ (image-tests-image-metadata/gif): New tests.
+ * test/data/image/black.gif: New file.
+
+2021-10-24 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ c7f53824a8 (origin/emacs-28) Update publicsuffix.txt from upstream
+ 9a50f760e9 ; * doc/lispref/modes.texi (Hooks): Clarify wording. (Bug...
+ e154fd9119 Refer to the info node on keymaps in map-keymap docstring
+ 4fd5c8df67 Clarify abnormal hook documentation
+ 6fa5206770 Update to Org 9.5-59-g52e6f1
+ 39413a45bf ; * doc/lispref/functions.texi (Calling Functions): Fix la...
+ 43914ab01f Improve documentation of cl-reduce
+ ef37a86cac Improve documentation of apply-partially
+ 1e8be48738 Fix typos
+ 8c5fbd712b Revert commit 225ca617b7, and apply another fix
+ cdbd03345d Fix documentation of posn-at-x-y
+ 598732c899 ; * src/vm-limit.c (get_lim_data): Fix a typo. (Bug#18238)
+ efdffd86c5 ; * etc/refcards/README: Prefer HTTPS in link.
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-24 Stefan Kangas <stefan@marxist.se>
+
+ Make dired-x-guess-file-name-at-point obsolete
+
+ * lisp/dired-x.el (dired-x-guess-file-name-at-point): Make
+ obsolete in favour of 'thing-at-point'.
+ (dired-x-read-filename-at-point): Use 'thing-at-point' instead of
+ above obsolete function.
+
+2021-10-23 Michael Albinus <michael.albinus@gmx.de>
+
+ Check for image library in image-dired-tests.el
+
+ * test/lisp/image-dired-tests.el
+ (image-dired-tests-get-exif-file-name): Check for jpeg library.
+
+2021-10-23 Dmitry Gutov <dgutov@yandex.ru>
+
+ Support :company-deprecated completion property
+
+ * lisp/progmodes/elisp-mode.el (elisp--company-deprecated):
+ New function.
+ (elisp-completion-at-point): Use it.
+
+2021-10-23 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/gitlab-ci.yml (variables, default): Increase timeout to 4
hours.
+
+2021-10-23 Alan Mackenzie <acm@muc.de>
+
+ Revert "CC Mode: Fontify "found types" which are recognized after being
..."
+
+ This reverts commit 51719617eb19833056618ebac403cdcaf711551a. The
commit
+ caused a hang at start-up with a big desktop.
+
+2021-10-23 Stefan Kangas <stefan@marxist.se>
+
+ Partially remove exiftool dependency from image-dired.el
+
+ * lisp/image-dired.el (exif): Require.
+ (image-dired-cmd-read-exif-data-program)
+ (image-dired-cmd-read-exif-data-options)
+ (image-dired-get-exif-data): Make obsolete in favour of using
+ exif.el. This removes a dependency on external exiftool for some
+ operations.
+ (image-dired-get-exif-file-name)
+ (image-dired-thumbnail-set-image-description): Use exif.el
+ functions instead of exiftool.
+ * lisp/image/exif.el (exif-tag-alist): Add description and
+ copyright fields.
+ * test/lisp/image-dired-tests.el: New file.
+
+2021-10-23 Stefan Kangas <stefan@marxist.se>
+
+ Add new function exif-field
+
+ * test/lisp/image/exif-tests.el (exif-elem): Move function from here...
+ * lisp/image/exif.el (exif-field): ...to here, and rename.
+ (exif-orientation):
+ * test/lisp/image/exif-tests.el (test-exif-parse)
+ (test-exif-parse-short): Use above new function.
+
+2021-10-22 Stefan Kangas <stefan@marxist.se>
+
+ Add links to commentary reached with finder-list-keywords
+
+ * lisp/finder.el (finder-goto-xref): Move from here...
+ * lisp/emacs-lisp/package.el (package--finder-goto-xref): ...to
+ here. Make the old name into an obsolete function alias.
+ (package--finder-xref): New button type.
+ (package--describe-add-library-links): Factor out new function...
+ * lisp/finder.el (finder-commentary): ...from here.
+ (describe-package-1): Call above new function. This fixes an
+ issue where commentaries reached via 'finder-list-keywords' did
+ not have links. (Bug#10814)
+
+2021-10-22 Stefan Kangas <stefan@marxist.se>
+
+ * src/image.c (webp_load): Fix thinkos.
+
+2021-10-22 Alan Mackenzie <acm@muc.de>
+
+ CC Mode: Fontify "found types" which are recognized after being first
scanned
+
+ This aims to fix the scenario where on jit-lock's first scan of a type,
it is
+ not recognized as such, and only later does this happen. The
fontification of
+ such found types is now done by background scanning in short time slices
+ immediately after initialising the mode.
+
+ * lisp/progmodes/cc-engine.el (c-add-type-1): New function.
+ (c-add-type): Extract c-add-type-1 from it, and reformulate the
mechanism for
+ protecting c-found-types from excessive partial identifiers.
+
+ * lisp/progmodes/cc-fonts.el (c-font-lock-complex-decl-prepare): Remove
the
+ code which cleared c-found-types on fontification at BOB.
+ (c-find-types-background): New function, based on
c-font-lock-declarations).
+ (c-types-finder-timer-func): New function.
+ (c-re-redisplay-timer): New variable.
+ (c-force-redisplay, c-fontify-new-found-type): New functions.
+
+ * lisp/progmodes/cc-mode.el (c-type-finder-timer): New variable.
+ (c-leave-cc-mode-mode): Nullify c-post-command-hook and
c-type-finder-timer
+ when the last CC Mode buffer of a session is killed.
+ (c-type-finder-pos): New variable.
+ (c-basic-common-init): Initialize c-type-finder-pos and
c-type-finder-timer.
+ (c-new-id-start, c-new-id-end, c-new-id-is-type): New variables.
+ (c-update-new-id): New function.
+ (c-post-command): New post command hook function, used for checking
moving
+ away from partially typed identifiers, and making them full identifiers.
+ (c-before-change): Add code to clear c-found-types on a buffer change
at BOB.
+ (c-after-change): Call c-update-new-id to keep track of partially typed
+ identifiers.
+
+ * doc/misc/cc-mode.texi (Found Types): New @section in the @Chapter Font
+ Locking.
+
+ * lisp/progmodes/cc-vars.el (c-type-finder-time-slot)
+ (c-type-finder-repeat-time, c-type-finder-chunk-size): New customizable
+ options.
+
+2021-10-22 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ b0d64be0bc (origin/emacs-28) Improve some NEWS entries
+ 7fde84e881 Improve documentation of syntax-ppss-context slightly
+ 5ecbed01b2 ; * test/lisp/mh-e/mh-utils-tests.el: Update macro declara...
+ 168665da59 Move some xwidget entries
+ efde024361 time-stamp-tests: improvements to test macros
+ 06c944cff1 Fix rfc6068-parse-mailto-url autoload
+ 9b6b5e37ef Regexp-quote github domains in bug-reference
+ 1f6cdeb12c Ensure valid end/beginning lines in message-mark-inserted-...
+ 9b46150ab0 * etc/NEWS: Improve 'repeat-mode' entry.
+ 9c37b812da ; * lisp/repeat.el (repeat-mode): Fix docstring typo.
+ caf87d80fa * lisp/repeat.el (repeat-keep-prefix): Expand description.
+ 24083c8d13 * lisp/net/eww.el (eww-retrieve-command): Add :tag.
+ cf7d8fb1d7 Add description of cards to etc/refcards/README
+ d2849cc645 Fix 'calculate-lisp-indent' when "[" starts containing sex...
+ 2a0a368ddc Fix typo in doc/emacs/anti.texi
+ 9529e1d2fb Update doc of Edebug specification for macros
+ 5bc522b4f4 ; * lisp/simple.el (kill-region): A better fix for bug#51320.
+ ee6bdd6eef Fix non-interactive behavior of 'kill-region'
+ 2b7655ca0e ; More accurate doc string for 'tab-bar-format'
+ 2841e26744 * test/lisp/dabbrev-tests.el: Use 'kbd' for readable keys.
+ 1cdb4d2077 * lisp/menu-bar.el (menu-bar-keymap): Add optional arg KEY...
+
+ # Conflicts:
+ # etc/NEWS
+ # lisp/progmodes/bug-reference.el
+
+2021-10-22 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt some emba parameters
+
+ * test/infra/Dockerfile.emba (emacs-inotify): Reduce debug options.
+
+ * test/infra/gitlab-ci.yml (test-native-comp-speed0): Adapt make_params.
+
+2021-10-22 Eli Zaretskii <eliz@gnu.org>
+
+ Fix WebP support on MS-Windows
+
+ * src/image.c (WebPDecodeRGBA, WebPDecodeRGB, WebPFree): Use
+ correct names and argument lists in DEF_DLL_FN; fix typos.
+ (WebPGetFeaturesInternal): Load this instead of WebPGetFeatures,
+ which is a static inline function in webp/decode.h.
+ (WebPGetFeatures): Redirect to call WebPGetFeaturesInternal.
+
+ * lisp/term/w32-win.el (dynamic-library-alist): Fix the name of
+ the WebP symbol.
+
+ * configure.ac (HAVE_WEBP): Fix detection of libwebp on MinGW.
+
+ * nt/INSTALL.W64:
+ * nt/INSTALL: Update information about libwebp availability.
+
+2021-10-22 Stefan Kangas <stefan@marxist.se>
+
+ Add WebP image format support (Bug#51296)
+
+ * configure.ac (--with-webp): New option.
+ (HAVE_WEBP): New variable.
+ (emacs_config_features): Add webp.
+ * src/image.c (enum webp_keyword_index) [HAVE_WEBP]: New enum.
+ (webp_format) [HAVE_WEBP]: New variable.
+ (webp_image_p, init_webp_functions, webp_load) [HAVE_WEBP]: New
+ functions for WebP support.
+ (image_types) [HAVE_WEBP]: Define WebP format.
+ (syms_of_image) <Qwebp> [HAVE_WEBP]: New DEFSYM. Add image type Qwebp.
+ * src/Makefile.in (LIBIMAGE): Add WEBP_LIBS.
+
+ * lisp/files.el (auto-mode-alist):
+ * lisp/image-file.el (image-file-name-extensions):
+ * lisp/image.el (image-type-header-regexps)
+ (image-type-file-name-regexps, image-type-auto-detectable): Add WebP
+ support.
+ * lisp/term/w32-win.el (dynamic-library-alist): Add the libwebp DLL.
+
+ * INSTALL:
+ * admin/CPP-DEFINES:
+ * doc/lispref/display.texi (Image Formats, Other Image Types):
+ * nt/INSTALL: Document WebP support.
+
+ * test/lisp/image-tests.el (image-find-image)
+ (image-type-from-file-name): Expand tests.
+ * test/src/image-tests.el (image-tests--files): Add WebP.
+ (image-tests-image-size/webp, image-tests-image-mask-p/webp)
+ (image-tests-image-metadata/webp): New tests.
+ * test/data/image/black.webp: New file.
+
+2021-10-22 Martin Rudalics <rudalics@gmx.at>
+
+ In 'window-text-pixel-size' use actual mode line heights if wanted
(Bug#38181)
+
+ * src/xdisp.c (Fwindow_text_pixel_size): Run display_mode_line
+ when MODE_LINES wants it to take actual mode line heights into
+ account (Bug#38181).
+
+2021-10-21 Stefan Kangas <stefan@marxist.se>
+
+ Remove redundant #' before lambda
+
+ * admin/unidata/unidata-gen.el (unidata-gen-table)
+ (unidata-gen-table-symbol, unidata-gen-table-integer)
+ (unidata-gen-table-numeric, unidata-gen-table-word-list)
+ (unidata-describe-decomposition):
+ * lisp/apropos.el (apropos-user-option):
+ * lisp/bookmark.el (bookmark-bmenu-search):
+ * lisp/composite.el (unicode-category-table):
+ * lisp/elec-pair.el (electric-pair--balance-info):
+ * lisp/electric.el (electric-quote-chars):
+ * lisp/emulation/cua-base.el (cua-rectangle-mark-key):
+ * lisp/epa-hook.el (epa-file-encrypt-to):
+ * lisp/faces.el (face-font-selection-order)
+ (face-font-family-alternatives, face-font-registry-alternatives)
+ (face-valid-attribute-values, tty-run-terminal-initialization):
+ * lisp/files.el (recover-file, file-expand-wildcards):
+ * lisp/frame.el (frames-on-display-list):
+ * lisp/help-at-pt.el (help-at-pt-display-when-idle):
+ * lisp/help-fns.el (help-fns--face-attributes):
+ * lisp/ido.el (ido-mode, ido-unc-hosts):
+ * lisp/isearch.el (isearch-highlight-regexp)
+ (isearch-highlight-lines-matching-regexp):
+ * lisp/language/indian.el (script-regexp-alist):
+ * lisp/language/lao.el:
+ * lisp/leim/quail/ipa.el (ipa-x-sampa-prepend-to-keymap-entry):
+ * lisp/mh-e/mh-folder.el (mh-process-commands):
+ * lisp/mh-e/mh-mime.el (mh-display-with-external-viewer):
+ * lisp/ps-mule.el (ps-mule-end-job):
+ * lisp/ps-print.el (ps-color-scale, ps-background-pages)
+ (ps-background-text, ps-background-image, ps-background)
+ (ps-begin-job, ps-print-translation-table):
+ * lisp/recentf.el (recentf-sort-ascending)
+ (recentf-sort-descending, recentf-sort-basenames-ascending)
+ (recentf-sort-basenames-descending)
+ (recentf-sort-directories-ascending)
+ (recentf-sort-directories-descending):
+ * lisp/replace.el (occur-engine-add-prefix):
+ * lisp/select.el (xselect--encode-string):
+ * lisp/server.el (server-use-tcp):
+ * lisp/ses.el (ses-sort-column):
+ * lisp/sort.el (sort-columns):
+ * lisp/term/ns-win.el (window-system-initialization):
+ * lisp/tree-widget.el (tree-widget-image-formats):
+ * lisp/whitespace.el (whitespace-report-region): Remove redundant #'
+ before lambda.
+
+2021-10-21 Stefan Kangas <stefan@marxist.se>
+
+ Add comment on reworking a section in emacs-lisp-intro.texi
+
+ * doc/lispintro/emacs-lisp-intro.texi (Body of mark-whole-buffer):
+ Add comment about how one could rework this section.
+
+2021-10-21 Michael Albinus <michael.albinus@gmx.de>
+
+ Configure Emacs on emba with debug options
+
+ * test/infra/Dockerfile.emba (emacs-base): Install gdb.
+ (emacs-inotify): Configure debug options.
+
+2021-10-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Actually fix the Pango build problem
+
+ * src/gtkutil.c (xg_weight_to_symbol): Don't break the build on
+ older systems.
+
+2021-10-21 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 0545c70c16 (origin/emacs-28) ; * src/keyboard.c (readable_events): Ad...
+ 805ed8d318 Fix todo-mode AOT test failures (bug#51308)
+ 8f42ff31f6 Fix hi-lock AOT test failures (bug#51308)
+ 8002fcd4b9 Fix socks test
+ 4540130312 ; Fix typo
+ 59df93e2dd * lisp/help.el (help--analyze-key): Add new arg BUFFER (bu...
+ cb8b12b56d Improve docstrings and NEWS item of 'repeat-mode'
+ 06fe499614 * lisp/tab-bar.el (tab-bar-menu-bar): New command (bug#512...
+ 8358da9c4c Display a tab bar item as sunken when appropriate
+ 29fdc65860 Fix tab bar item highlight when a mouse click is dropped
+ 7236592668 Refer to mouse-highlight from make-pointer-invisible docst...
+ cf4394a397 * etc/PROBLEMS: Add hex codepoint for NO-BREAK SPACE
+ 2d647e88fa Describe how to debug fontconfig issues
+ c916040921 Adapt Tramp tests
+ 1bb14f93f1 Convert ANSI color definitions in themes to use faces (e.g...
+ 8e7cd29712 Revert "Revert back to using ESC as viper-ESC-key again"
+ 91d71b38a3 Fix inset rectangle corners when sides aren't drawn (bug#5...
+ 5c1a575ef4 Don't use color escape sequences in vc-git-expanded-log-entry
+ d7f595cc89 Code cleanup in tramp-tests.el
+ 548a5db611 ; etc/NEWS fix wording
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix build on systems with older Pango versions
+
+ * src/gtkutil.c (xg_weight_to_symbol): Don't break the build on
+ older systems.
+
+2021-10-21 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix bold/black in w32_to_fc_weight
+
+ * src/w32font.c (w32_to_fc_weight): Use symbols.
+
+2021-10-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a comment to the Turkish casefiddle test
+
+2021-10-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Support the "medium" font weight
+
+ * lisp/faces.el (set-face-attribute): Mention new font weights in
+ doc string.
+ * src/font.c (struct table_entry): Allow more synonyms.
+ (weight_table): Expand to support separating medium and normal
+ weights. Also add heavy/ultra-heavy and some other variants.
+ (font_parse_fcname): Support more names.
+
+ * src/gtkutil.c (xg_weight_to_symbol): Support all the Pango weights.
+ (xg_style_to_symbol): Make into functions.
+ (xg_get_font): Adjust.
+
+ * src/w32font.c (w32_to_fc_weight): Use symbols.
+
+ * src/xfaces.c (syms_of_xfaces): Add the new symbols.
+
+2021-10-20 Stefan Kangas <stefan@marxist.se>
+
+ Add some tests for floatfns.c
+
+ * test/src/floatfns-tests.el (floatfns-tests-cos)
+ (floatfns-tests-sin, floatfns-tests-tan, floatfns-tests-isnan)
+ (floatfns-tests-exp, floatfns-tests-expt, floatfns-tests-log)
+ (floatfns-tests-sqrt, floatfns-tests-abs, floatfns-tests-logb)
+ (floatfns-tests-ceiling, floatfns-tests-floor)
+ (floatfns-tests-round, floatfns-tests-truncate)
+ (floatfns-tests-fceiling, floatfns-tests-ffloor)
+ (floatfns-tests-fround, floatfns-tests-ftruncate)
+ (divide-extreme-sign): New tests.
+
+2021-10-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix typo in previous smerge-mode-map change
+
+ * lisp/vc/smerge-mode.el (smerge-mode-map): Fix typo (bug#51303).
+
+2021-10-20 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Avoid excessive specbinding in all-completions
+
+ * src/minibuf.c (match_regexps):
+ (Ftry_completion):
+ (Fall_completions):
+ (Ftest_completion): Use fast_string_match_internal to match against
+ regexps in completion-regexp-list without having to bind
+ case-fold-search.
+
+2021-10-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Further fixes for Turkish case changes in unibyte strings
+
+ * src/casefiddle.c (struct casing_context): Add new slot to keep
+ track of what the previous operation was.
+ (case_character_impl): Set it.
+ (do_casify_unibyte_string): Use it to handle Turkish correctly.
+
+2021-10-20 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new macro with-locale-environment
+
+ * lisp/international/mule-cmds.el (with-locale-environment): New macro.
+ (current-locale-environment): New variable.
+
+2021-10-19 Stefan Kangas <stefan@marxist.se>
+
+ Add some tests for fns.c
+
+ * test/src/fns-tests.el (fns-tests-identity, fns-tests-random)
+ (fns-tests-length, fns-tests-safe-length)
+ (fns-tests-string-bytes): New tests.
+
+2021-10-19 Stefan Kangas <stefan@marxist.se>
+
+ Remove some XEmacs compat code from custom.el
+
+ * lisp/custom.el (deftheme, custom-declare-theme): Remove XEmacs
+ compat code.
+
+2021-10-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ xref.el: Better compatibility with outdated Emacs 28 builds
+
+ * lisp/progmodes/xref.el:
+ Ensure better compatibility with outdated Emacs 28 builds as well
+ (like the pgtk branch). Bump the version.
+
+2021-10-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * doc/lispref/files.texi (File Name Components): Mention GNU "path"
convention
+
+2021-10-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make image-tests work in a no-x build
+
+ * test/src/image-tests.el: Make the tests work in a no-x build
+ (bug#51291).
+
+2021-10-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how 'align' and 'align-regexp' align text
+
+ * lisp/align.el (align-rules-list): Change to work without `C-u'.
+ (align): Doc clarification.
+ (align-regexp): Ditto, and change default `C-u' regexp from
+ "\\(\\s-*\\)" to "\\(\\s-*\\)" so that it'll make things columnar
+ if the user just hits RET through all the defaults.
+
+2021-10-19 Mattias Engdegård <mattiase@acm.org>
+
+ Improve TCO test coverage
+
+ * test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--labels):
+ Exercise `cond` in tail position in two different ways.
+
+2021-10-19 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make downcasing unibyte strings in Turkish less wrong
+
+ * src/casefiddle.c (ascii_casify_character): New function.
+ (do_casify_unibyte_string): Use it to make downcasing tr_TR.UTF-8
+ "I" less wrong.
+ (Fdowncase): Mention caveats.
+ (Fupcase):
+ (Fcapitalize):
+ (Fupcase_initials): Refer to details in `downcase'.
+ (syms_of_casefiddle): Define more symbols.
+
+2021-10-19 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ d742cc3c20 (origin/emacs-28) ; etc/NEWS: Fix typos
+ 28db29590f * admin/notes/unicode: Refer to Unicode's emoji-style.txt
+ 9bd2f59db6 Handle VS-16 correctly for non-emoji codepoints
+ e55e2d4a11 ; * etc/NEWS: Minor copyedit about 'repeat-mode'.
+ 380981ddb5 Adjust bug-reference-bug-regexp default values to match on...
+ c1cf95a0e1 ; * doc/emacs/windows.texi: Doc fix.
+ 98eb6d783a Fix a typo in emacs-lisp-intro.texi
+ f5b8f626e3 Fix some Tramp problems
+ fc988a7113 Adapt Tramp manual
+ 0c241043a8 Further fixes to Elisp manual
+ 8e8a920246 * lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): ...
+ 5a3242301d Rename tab-bar-drag-maybe to tab-bar--dragging-in-progress
+ bb4209a5a5 Fix xref elisp identifier namespace mistake
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ * lisp/progmodes/xref.el: Bump version.
+
+2021-10-19 Dmitry Gutov <dgutov@yandex.ru>
+
+ Fix Emacs 26 support in xref.el
+
+ * lisp/progmodes/xref.el (xref--defstruct): New macro.
+ (xref-item, xref-match-item): Use it in definitions.
+
+2021-10-19 Michael Albinus <michael.albinus@gmx.de>
+
+ * etc/NEWS: Move sql entry up. Fix typos.
+
+2021-10-19 Michael R. Mauger <michael@mauger.com>
+
+ SQL mode supports sending passwords in process
+
+2021-10-18 Michael R. Mauger <michael@mauger.com>
+
+ Added sql-add-connection
+
+ * lisp/progmodes/sql.el (sql-add-connection): Added.
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `lookup-key' understand the new key sequence syntax
+
+ * src/keymap.c (possibly_translate_key_sequence): Factored out
+ into own function.
+ (Fdefine_key):
+ (Flookup_key): Use it.
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Error out on invalid `define-keymap' keywords
+
+ * lisp/subr.el (define-keymap--define): Error out on invalid
+ keywords (bug#51268).
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-define-keymap): Check
+ keywords at compile time.
+ * lisp/vc/cvs-status.el (cvs-status-mode-map): Fix keyword.
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix diff-mode-shared-map
+
+ * lisp/vc/diff-mode.el (diff-mode-shared-map): Fix syntax error in
+ `defvar-keymap' change.
+
+2021-10-18 Stefan Kangas <stefan@marxist.se>
+
+ Add tests for image.c
+
+ * test/src/image-tests.el: New file.
+
+2021-10-18 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ c163fd9260 (origin/emacs-28) Minor fixes for recent changes in ELisp ...
+ fefada4816 Fix example in calc manual
+ e74e17c1f0 Rewrites of Elisp manual including tab-bar and tab-line ch...
+ 3b138917b7 ; * INSTALL: Fix typo.
+ ce71446585 * lisp/tab-bar.el: Improve docstrings (bug#51247)
+ ace4ce16a3 * lisp/tab-bar.el (tab-bar-mouse-move-tab): Don't drag tab...
+ 04716ca48f Add tab-bar-drag-maybe for indication of tab dragging (bug...
+ 81e3697600 * lisp/tab-bar.el: Add a new tab on [mouse-1] instead of [...
+ a191d3c725 Add new and fix existing docstrings in tab-bar.el and tab-...
+ 77dbaedadc Add tab bar support to the nextstep port
+ 7b6fb486c2 Fix potential buffer overflow (bug#50767)
+ ed9f5546aa Improve doc strings in tab-line.el
+ 686a03ee22 More documentation fixes in tab-bar.el
+ 35920791df Improve doc strings of tab-bar commands
+ 2d15db6e89 Fix a semantic test on some macOS machines
+ ac6ac76e3a Update to Org 9.5-57-g9bc3a2
+
+2021-10-18 Miha Rihtaršič <miha@kamnitnik.top>
+
+ *-watch-for-password-prompt: Use run-at-time to read password
+
+ * lisp/comint.el (comint-watch-for-password-prompt):
+ * lisp/eshell/esh-mode.el (eshell-watch-for-password-prompt):
+ * lisp/term.el (term-watch-for-password-prompt):
+ Use run-at-time to read a password (bug#51263).
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add some defvar indent tests
+
+ Mention that we now install the pdmp file with a fingerprinted name
+
+ Add indentation rules for DEFUN's def* functions
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update elp-not-profilable
+
+ * lisp/emacs-lisp/elp.el (elp-not-profilable): Update list of
+ denied functions (bug#40335).
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove the "def" indentation heuristic
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-indent-function): Don't
+ indent function calls with names that that start with "def"
+ specially (bug#43329).
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fontify :doc keywords as documentation
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-string-after-doc-keyword-p):
+ Extend to :doc, too (bug#51230).
+
+2021-10-18 Daniel Martín <mardani29@yahoo.es>
+
+ New option show-paren-context-when-offscreen
+
+ * lisp/simple.el (blink-paren-open-paren-line-string): Extract
+ functionality that shows the open paren line in the echo area into its
+ own function, to reuse it from paren.el.
+ (blink-matching-open): Use blink-paren-open-paren-line-string.
+ * lisp/paren.el (show-paren-context-when-offscreen): New option
+ show-paren-context-when-offscreen.
+ (show-paren-function): Implement it using
+ blink-paren-open-paren-line-string.
+ * lisp/emacs-lisp/eldoc.el (eldoc-display-message-no-interference-p):
+ Make sure the feature works well with eldoc.
+ * test/lisp/paren-tests.el (paren-tests-open-paren-line): Test
+ blink-paren-open-paren-line-string.
+ * doc/emacs/programs.texi (Matching): Update the documentation.
+ * etc/NEWS: And announce the new feature.
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix possible build issue in pcvs.el and diff-mode.el
+
+ * lisp/vc/pcvs.el (easy-mmode):
+ * lisp/vc/diff-mode.el (easy-mmode): Require.
+
+2021-10-18 Protesilaos Stavrou <info@protesilaos.com>
+ Abhiseck Paira <abhiseckpaira@disroot.org>
+ Protesilaos Stavrou <info@protesilaos.com>
+
+ Add sample user function in eww-auto-rename-buffer
+
+ * eww.el (eww-auto-rename-buffer): Update doc string.
+
+ Fix bug#51176.
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix build issue with smerge-mode
+
+ * lisp/vc/smerge-mode.el (easy-mmode): Require.
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow :filter t in make-process to work as with set-process-filter
+
+ * src/process.c (create_process):
+ (create_pty):
+ (Fmake_pipe_process):
+ (Fmake_serial_process): Don't add the read_fd if the filter is t
+ (which means that we don't accept output from the filter).
+
+2021-10-18 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Do kbd-valid-p prefix comparisons case-sensitively
+
+ * lisp/subr.el (kbd-valid-p): Compare case-sensitively.
+
+2021-10-17 Stefan Kangas <stefan@marxist.se>
+
+ Recommend against using uce.el
+
+ * lisp/mail/uce.el (uce-reply-to-uce): Recommend against its use on
+ the first invocation. (Bug#46472)
+
+2021-10-17 Stefan Kangas <stefan@marxist.se>
+
+ * lisp/erc/erc-compat.el (format-spec): Remove redundant require.
+
+2021-10-17 Stefan Kangas <stefan@marxist.se>
+
+ Prefer defvar-local in MH-E
+
+ * lisp/mh-e/mh-comp.el (mh-insert-auto-fields-done-local):
+ * lisp/mh-e/mh-e.el (mh-thread-scan-line-map)
+ (mh-thread-scan-line-map-stack):
+ * lisp/mh-e/mh-identity.el (mh-identity-pgg-default-user-id)
+ (mh-identity-local):
+ * lisp/mh-e/mh-scan.el (mh-cmd-note):
+ * lisp/mh-e/mh-seq.el (mh-non-seq-mode-line-annotation):
+ * lisp/mh-e/mh-thread.el (mh-thread-id-hash)
+ (mh-thread-subject-hash, mh-thread-id-table)
+ (mh-thread-index-id-map, mh-thread-id-index-map)
+ (mh-thread-subject-container-hash, mh-thread-duplicates)
+ (mh-thread-history): Prefer defvar-local.
+
+2021-10-17 Stefan Kangas <stefan@marxist.se>
+
+ Make thumbs-image-type obsolete
+
+ * lisp/thumbs.el (thumbs-image-type): Make into obsolete function
+ alias for 'image-type-from-file-name'. Update callers.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use define-keymap in pcvs and pcvs-defs.el
+
+ * lisp/vc/pcvs-defs.el (cvs-mode-diff-map):
+ * lisp/vc/pcvs.el (pcvs-defs):
+ (cvs-mode-diff-map): Move maps to pcvs (because the commands are
+ defined in pcvs.el and #' gives us checking) and transform from
+ easy-mmode-defmap to define-keymap.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert diff-mode.el from easy-mmode-defmap to define-keymap
+
+ * lisp/vc/diff-mode.el (diff-mode-shared-map, diff-mode-map)
+ (diff-minor-mode-map): Convert from easy-mmode-defmap to
+ defvar-keymap.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert smerge-mode.el from easy-mmode-defmap to define-keymap
+
+ * lisp/vc/smerge-mode.el (smerge-basic-map, smerge-mode-map):
+ Convert form easy-mmode-defmap to define-keymap.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add kbd examples to the doc string
+
+ * lisp/subr.el (kbd): Add some examples to the doc string.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reverse the edmacro-parse-keys/kbd vector/string logic
+
+ * lisp/edmacro.el (edmacro-parse-keys): Convert to a vector if
+ needed.
+ * lisp/subr.el (kbd): Remove the NEED-VECTOR parameter.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow <mouse-1> in kbd-valid-p
+
+ * lisp/subr.el (kbd-valid-p): Allow (kbd-valid-p "<mouse-1>").
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reinstate defvar-keymap expansion
+
+ * lisp/emacs-lisp/byte-opt.el
+ (byte-optimize-define-keymap--define): Make more robust.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Back out `define-keymap' optimization -- it leads to a build error
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert cvs-status-mode-map to new syntax
+
+ * lisp/vc/cvs-status.el (cvs-status-mode-map): Convert a small
+ keymap to the new ["..."] syntax.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Support a new ["..."] key binding syntax
+
+ * doc/lispref/keymaps.texi (Key Sequences):
+ (Changing Key Bindings): Document the various key syntaxes.
+
+ * lisp/emacs-lisp/byte-opt.el (byte-optimize-define-key)
+ (byte-optimize-define-keymap)
+ (byte-optimize-define-keymap--define): New functions to check and
+ expand ["..."] syntax at compile time.
+
+ * src/keymap.c (Fdefine_key): Understand the ["..."] syntax.
+ (syms_of_keymap): Define `kbd' symbols.
+
+2021-10-17 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -Wsuggest-attribute=malloc
+
+ Problem found with gcc (Ubuntu 11.2.0-7ubuntu2) 11.2.0 x86-64.
+ * src/sysstdio.h (emacs_fopen): Mark with ATTRIBUTE_MALLOC.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Rewrite kbd-valid-p to not use seq
+
+ * lisp/subr.el (kbd-valid-p): Rewrite to not use seq.
+
+2021-10-17 Stefan Kangas <stefan@marxist.se>
+
+ * src/image.c: Fix comment.
+
+2021-10-17 Eli Zaretskii <eliz@gnu.org>
+
+ Minor stylistic changes in last commit
+
+ * src/xdisp.c (adjust_glyph_width_for_mouse_face): Renamed from
+ 'get_glyph_pixel_width_delta_for_mouse_face'; all callers
+ changed.
+
+2021-10-17 Po Lu <luangruo@yahoo.com>
+
+ Fix minor issues with text display when cursor is in mouse face
+
+ * src/xdisp.c (get_cursor_offset_for_mouse_face): Don't calculate
+ offsets for the glyph the cursor is on, and move some logic to
+ get_glyph_pixel_width_delta_for_mouse_face.
+ (fill_composite_glyph_string)
+ (fill_gstring_glyph_string)
+ (fill_glyphless_glyph_string)
+ (fill_glyph_string)
+ (fill_image_glyph_string)
+ (fill_xwidget_glyph_string)
+ (fill_stretch_glyph_string): Set s->face to mouse face whenever
+ appropriate.
+ (get_glyph_pixel_width_delta_for_mouse_face): New function.
+ (set_glyph_string_background_width): Update background width and
+ s->width to take into account differing :box properties of the mouse
+ face, when producing strings for the cursor.
+ (erase_phys_cursor): Redraw mouse face when erasing a cursor on top of
+ the mouse face.
+ * src/xterm.c (x_set_mouse_face_gc): Stop setting s->face when under
+ mouse face because redisplay now does that for us.
+ * src/w32term.c (w32_set_mouse_face_gc): Likewise.
+
+2021-10-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up recent kbd simplification
+
+ * lisp/subr.el (kbd): Fix breakage with X-<foo> from previous change.
+
+2021-10-17 Michael Albinus <michael.albinus@gmx.de>
+
+ Warn about `file-notify-rm-all-watches' side effects
+
+ * doc/lispref/os.texi (File Notifications): Warn about
+ `file-notify-rm-all-watches' side effects.
+
+2021-10-16 Stefan Kangas <stefan@marxist.se>
+
+ Simplify condition in kbd
+
+ * lisp/subr.el (kbd): Simplify condition. This was discussed in:
+ https://lists.gnu.org/r/emacs-devel/2021-10/msg01136.html
+
+2021-10-16 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ e8488808df Avoid aborts when a thread is signaled while "waiting for ...
+ 21397cce51 Improve documentation string for 'compilation-error-regexp...
+ 2971a6890f * lisp/emacs-lisp/comp.el (comp-trampoline-compile): Fix t...
+ e842d7f29a Fix removal of fringe indication of bookmarks
+ b5a0eda978 Prefer "graphical displays" to "X terminals" in documentation
+ 4ad0fc0dd0 Precise documentation of file-notify-add-watch
+ f5b8df14c6 Fixes to account for windows' tab lines
+ ced72b6e4c * Fix `native-compile-target-directory' effectiveness on t...
+ 502788bc3d Add missing single quotes in the Emacs manual
+ 1af45ad04e ; * lisp/emacs-lisp/comp.el (comp-trampoline-compile): Fix...
+ 12654b7423 * lisp/menu-bar.el (yank-menu-length): Fix docstring (bug#...
+
+ # Conflicts:
+ # lisp/gnus/gnus-undo.el
+ # lisp/menu-bar.el
+
+2021-10-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Set EMACS_TEST_TIMEOUT for emba
+
+ * test/Makefile.in: Support EMACS_TEST_TIMEOUT environment variable.
+
+ * test/README: Mention EMACS_TEST_TIMEOUT environment variable.
+
+ * test/infra/gitlab-ci.yml (variables): Set default value of
+ EMACS_TEST_TIMEOUT.
+ (.job-template): Propagate EMACS_TEST_TIMEOUT and EMACS_TEST_VERBOSE.
+ (test-all-inotify): Set specific EMACS_TEST_TIMEOUT.
+
+2021-10-16 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new function 'kbd-valid-p'
+
+ * doc/lispref/keymaps.texi (Key Sequences): New function
+ 'kbd-valid-p'.
+
+ * lisp/subr.el (kbd-valid-p): Document it.
+
+2021-10-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Fix :version of new faces in term.el
+
+ * lisp/term.el (term-faint, term-italic, term-slow-blink)
+ (term-fast-blink): Set proper :version.
+
+2021-10-16 Stefan Kangas <stefan@marxist.se>
+
+ Remove duplicate code in edmacro-parse-keys
+
+ * lisp/subr.el (kbd): Add argument NEED-VECTOR and make it suitable
+ for calling from 'edmacro-parse-keys'.
+ * lisp/edmacro.el (edmacro-parse-keys): Replace definition with a
+ call to 'kbd'.
+
+ This change was discussed in:
+ https://lists.gnu.org/r/emacs-devel/2021-10/msg00909.html
+
+2021-10-16 Stefan Kangas <stefan@marxist.se>
+
+ Make kbd usable during bootstrap
+
+ * lisp/subr.el (kbd): Make 'kbd' usable during bootstrap by copying
+ the definition of 'read-kbd-macro' into it, and adjusting it to no
+ longer use CL-Lib functions.
+
+ This change was discussed in:
+ https://lists.gnu.org/r/emacs-devel/2021-10/msg00909.html
+
+2021-10-16 Michael Albinus <michael.albinus@gmx.de>
+
+ Add command `file-notify-rm-all-watches'
+
+ * doc/lispref/os.texi (File Notifications):
+ Add `file-notify-rm-all-watches'.
+
+ * etc/NEWS: Mention 'file-notify-rm-all-watches'. Fix typos.
+
+ * lisp/filenotify.el (file-notify-rm-all-watches): New defun.
+
+ * test/lisp/filenotify-tests.el (file-notify--test-cleanup):
+ Use `file-notify-rm-all-watches'.
+ (file-notify-test02-rm-watch): Test also `file-notify-rm-all-watches'.
+
+2021-10-16 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/emacs.c (standard_args): Sort --fingerprint second.
+ (bug#51238)
+
+2021-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/menu-bar.el (menu-bar-edit-menu): Expose lambdas to the compiler
+
+2021-10-15 Amin Bandali <bandali@gnu.org>
+
+ Release ERC 5.4.1
+
+ * doc/misc/erc.texi (ERCVER): Bump to 5.4.1.
+ * etc/ERC-NEWS: Add entry for 5.4.1 with explanations.
+ * lisp/erc/erc.el (Version, erc-version): Bump to 5.4.1.
+ (customize-package-emacs-version-alist): Add entry for 5.4.1.
+
+2021-10-15 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert two `easy-mmode-defmap' usages to `defvar-keymap'
+
+ * lisp/vc/log-edit.el (log-edit-mode-map):
+ * lisp/vc/cvs-status.el (cvs-status-mode-map): Convert
+ `easy-mmode-defmap' to `defvar-keymap'.
+
+2021-10-15 Protesilaos Stavrou <info@protesilaos.com>
+ Abhiseck Paira <abhiseckpaira@disroot.org>
+ Protesilaos Stavrou <info@protesilaos.com>
+
+ Add new option to rename eww buffers
+
+ * etc/NEWS: Document the new user options.
+
+ * lisp/net/eww.el (eww-auto-rename-buffer, eww-buffer-name-length):
+ Add new user options.
+ (eww--rename-buffer): Introduce new function that performs the
+ renaming of buffers.
+ (eww--after-page-change): Add new wrapper function which calls
+ 'eww-update-header-line-format' and 'eww--rename-buffer'.
+ (eww, eww-render, eww-tag-title, eww-readable, eww-restore-history):
+ Include eww--after-page-change.
+
+ Fix bug#51176.
+
+2021-10-15 Dmitry Gutov <dgutov@yandex.ru>
+
+ Special-case the "Permission denied" messages
+
+ * lisp/progmodes/project.el (project--files-in-directory):
+ Special-case the "Permission denied" messages, to make sure the
+ user sees the unreadable directory's name
+ (https://lists.gnu.org/archive/html/emacs-devel/2021-10/msg01015.html).
+
+2021-10-15 Mattias Engdegård <mattiase@acm.org>
+
+ Calc: mend math-nth-root-float (bug#51209)
+
+ Reported by Iñaki Cornejo.
+
+ * lisp/calc/calc-math.el (math-nth-root-float):
+ Fix old refactoring mistake.
+ * test/lisp/calc/calc-tests.el (calc-nth-root): New test.
+
+2021-10-15 Michael Albinus <michael.albinus@gmx.de>
+
+ Further gitlab-ci.yml changes
+
+ * test/infra/gitlab-ci.yml (.job-template): Add --timeout.
+ (.test-template): Adapt artifact paths.
+
+2021-10-15 Martin Rudalics <rudalics@gmx.at>
+
+ Simplify functions dealing with preserving the size of windows
+
+ * lisp/window.el (window--preservable-size): Remove function.
+ (window-preserve-size, window-preserved-size)
+ (window--preserve-size): Simplify. Use 'window-body-height'
+ etc. instead of 'window--preservable-size'.
+
+2021-10-14 Amin Bandali <bandali@gnu.org>
+
+ * doc/misc/erc.texi: Add 'ERCVER' and 'ERCDIST'.
+
+ To mention the ERC version in the manual, and to allow for more easily
+ overriding the distribution description when building for GNU ELPA.
+
+2021-10-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use `define-keymap' in log-view.el
+
+ * lisp/vc/log-view.el (log-view-mode-map): Convert a
+ `easy-mmode-defmap' to `define-keymap'.
+
+2021-10-14 Lars Ingebrigtsen <larsi@gnus.org>
+
+ define-key doc string improvement
+
+ * src/keymap.c (Fdefine_key): Explain what the STRING is used for.
+
+ (local-set-key "\C-c\C-c"
+ (define-keymap
+ :name "Zot"
+ "a" '("foo" . ignore)
+ "b" '("gazonk" . ignore)))
+
+2021-10-14 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 9ff6999a06 (origin/emacs-28) Accept process-filter t in Tramp
+ cf95962092 ; * doc/lispref/processes.texi (Filter Functions): Fix las...
+ 1ad4ad0c11 Document the t value for set-process-filter in the manual
+ b014efa1e5 * doc/misc/tramp.texi (Frequently Asked Questions): Add re...
+ b9b78b2631 Fix Help functions for clicks on tool bar and tab bar
+ 74deafe921 ; * etc/DEBUG: Add a section about debugging native-compil...
+ 8153f70b9c In make_lispy_position fix Bug#50993 in rudimentary fashion
+ 0aa52e94f3 Mark vc-switch-backend as obsolete
+ 568e479c59 Add missing parentheses in the Emacs manual
+ 44ce50b0df Improve tooltip of mode-line-position again
+ 9b1adf8b4f Use browse-url-button-regexp for rcirc-url-regexp
+ 9ed53b022d * lisp/help.el (help--analyze-key): Avoid mouse-set-point ...
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-14 Eli Zaretskii <eliz@gnu.org>
+
+ Fix display of cursor in mouse-highlighted face with ':box'
+
+ * src/xdisp.c (erase_phys_cursor, show_mouse_face): Adjust
+ phys_cursor.x as needed if the cursor is inside mouse-highlight.
+ (get_cursor_offset_for_mouse_face): New function.
+ * src/dispnew.c (gui_update_window_end): Set
+ 'mouse_face_overwritten_p' if the cursor is in mouse-face, to
+ trigger more thorough redisplay of the cursor.
+ (Bug#50660)
+
+2021-10-14 Martin Rudalics <rudalics@gmx.at>
+
+ In 'window--display-buffer' handle nil size values as intended
(Bug#51062)
+
+ * lisp/window.el (window--display-buffer): Make sure
+ that (window-height . nil), (window-width . nil)
+ and (window-size . nil) action alist entries are processed
+ as intended.
+
+2021-10-14 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt gitlab-ci.yml paths
+
+ * test/infra/gitlab-ci.yml (.job-template): Increase timeout.
+ (.job-template, .build-template, .test-template)
+ (.gnustep-template, .filenotify-gio-template)
+ (.native-comp-template): Adapt paths.
+
+2021-10-13 Dmitry Gutov <dgutov@yandex.ru>
+
+ Add new argument INCLUDE-ALL to project-find-file
+
+ * lisp/progmodes/project.el (project-find-file):
+ Add new argument INCLUDE-ALL. Have 'C-u' make it non-nil.
+ (project-or-external-find-file): Ditto.
+ (project-find-file-in): Add new argument INCLUDE-ALL.
+ (https://lists.gnu.org/archive/html/emacs-devel/2021-10/msg00209.html)
+
+2021-10-13 Stefan Kangas <stefan@marxist.se>
+
+ Double the default value of kill-ring-max
+
+ * lisp/simple.el (kill-ring-max): Double the default to 120.
+ * lisp/menu-bar.el (yank-menu-length): Doc fix.
+ (yank-menu-max-items): New variable.
+ (menu-bar-update-yank-menu): Don't display more than
+ 'yank-menu-max-items' in the yank menu.
+
+ * doc/emacs/custom.texi (Changing a Variable):
+ * doc/emacs/killing.texi (Kill Ring):
+ * doc/lispintro/emacs-lisp-intro.texi (kill-new function):
+ * doc/lispref/text.texi (Internals of Kill Ring): Doc fix to use
+ the new value.
+
+2021-10-13 Stefan Kangas <stefan@marxist.se>
+
+ New tests for kbd and edmacro-parse-keys
+
+ * test/lisp/edmacro-tests.el: New file.
+ * test/lisp/subr-tests.el (subr-test-kbd): Expand test.
+
+2021-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark def* macros for indentation
+
+ * lisp/widget.el (define-widget-keywords):
+ * lisp/vc/pcvs.el (defun-cvs-mode):
+ * lisp/subr.el (defvar-local):
+ (defvar-keymap):
+ * lisp/skeleton.el (define-skeleton):
+ * lisp/simple.el (define-alternatives):
+ * lisp/progmodes/gud.el (gdb-script-mode):
+ * lisp/progmodes/gdb-mi.el (def-gdb-preempt-display-buffer):
+ (def-gdb-auto-update-trigger):
+ (def-gdb-auto-update-handler):
+ (def-gdb-trigger-and-handler):
+ (def-gdb-thread-buffer-command):
+ (def-gdb-thread-buffer-simple-command):
+ (def-gdb-thread-buffer-gud-command):
+ (def-gdb-set-positive-number):
+ (def-gdb-memory-format):
+ (def-gdb-memory-unit):
+ (def-gdb-memory-show-page):
+ * lisp/progmodes/compile.el (define-compilation-mode):
+ * lisp/progmodes/cc-vars.el (defcustom-c-stylevar):
+ * lisp/obsolete/cl.el (define-setf-expander):
+ (defsetf):
+ (define-modify-macro):
+ * lisp/obsolete/cl-compat.el (defkeyword):
+ * lisp/net/hmac-def.el (define-hmac-function):
+ * lisp/international/mule-conf.el (define-iso-single-byte-charset):
+ * lisp/international/ccl.el (define-ccl-program):
+ * lisp/image.el (defimage):
+ * lisp/gnus/gmm-utils.el (defun-gmm):
+ * lisp/ezimage.el (defezimage):
+ * lisp/erc/erc.el (define-erc-module):
+ * lisp/emacs-lisp/shortdoc.el (define-short-documentation-group):
+ * lisp/emacs-lisp/eieio.el (defclass):
+ * lisp/emacs-lisp/eieio-compat.el (defgeneric):
+ (defmethod):
+ * lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
+ (define-globalized-minor-mode):
+ * lisp/emacs-lisp/derived.el (define-derived-mode):
+ * lisp/emacs-lisp/byte-run.el (defsubst):
+ (define-obsolete-function-alias):
+ (define-obsolete-variable-alias):
+ * lisp/custom.el (defcustom):
+ (defface):
+ (defgroup):
+ (deftheme):
+ * lisp/cedet/semantic/wisent.el (define-wisent-lexer):
+ * lisp/cedet/semantic/lex.el (define-lex):
+ (define-lex-analyzer):
+ (define-lex-regex-analyzer):
+ (define-lex-simple-regex-analyzer):
+ (define-lex-block-analyzer):
+ (define-lex-keyword-type-analyzer):
+ (define-lex-sexp-type-analyzer):
+ (define-lex-regex-type-analyzer):
+ (define-lex-string-type-analyzer):
+ (define-lex-block-type-analyzer):
+ * lisp/cedet/semantic/lex-spp.el
+ (define-lex-spp-macro-declaration-analyzer):
+ (define-lex-spp-macro-undeclaration-analyzer):
+ (define-lex-spp-include-analyzer):
+ * lisp/cedet/semantic/dep.el
+ (defcustom-mode-local-semantic-dependency-system-include-path):
+ * lisp/cedet/semantic/decorate/mode.el
+ (define-semantic-decoration-style):
+ * lisp/cedet/mode-local.el (define-child-mode):
+ (define-overloadable-function):
+ (define-mode-local-override):
+ * lisp/calc/calc.el (defcalcmodevar):
+ (defmath): Explicitly mark all macros that have names that start
+ with "def" that should indent defunly-like (bug#43329).
+
+2021-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mark all def* functions that should indent as `defun'
+
+ * lisp/abbrev.el (define-abbrev):
+ (define-abbrev-table): Mark all functions that have names that
+ start with "def" that should indent according to the current
+ heuristics (bug#43329).
+ * lisp/autoinsert.el (define-auto-insert):
+
+ * lisp/button.el (define-button-type):
+
+ * lisp/subr.el (define-key-after):
+ (define-mail-user-agent):
+ (define-keymap):
+
+ * lisp/widget.el (define-widget):
+
+ * lisp/emacs-lisp/package.el (define-package):
+
+ * lisp/international/mule-cmds.el (define-char-code-property):
+
+ * lisp/international/mule.el (define-charset):
+ (define-coding-system):
+ (define-translation-table):
+ (define-translation-hash-table):
+
+2021-10-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify gcc -Warray-parameter
+
+ * src/pdumper.h: Declare array parameter with the same signature
+ that the function definition uses.
+
+2021-10-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Pacify GCC -Wanalyzer-possible-null-dereference
+
+ This fixes the only remaining GCC diagnostics when emacs-28 is
+ configured with --enable-gcc-warnings. It does so by adding
+ ATTRIBUTE_RETURNS_NONNULL so that GCC knows certain functions
+ return nonnull. It also arranges for three of those functions to
+ always return nonnull; I thought these functions already were
+ doing so, but apparently not, and it is conceivable (though I
+ haven’t checked this) that changing these functions to always
+ return nonnull even on non-GNU platforms may fix unlikely
+ portability bugs elsewhere in Emacs. I used GCC 11.2.1 20210728
+ (Red Hat 11.2.1-1) on x86-64 when checking the diagnostics.
+ * configure.ac: Invoke gl_EEMALLOC before gl_INIT, in case
+ the regex code doesn't invoke gl_EEMALLOC; needed for src/alloc.c’s
+ use of MALLOC_0_IS_NONNULL.
+ * src/alloc.c (xmalloc, xzalloc, xrealloc): Don’t worry about the
+ special case where SIZE == 0, since lmalloc and lrealloc now
+ return null only on allocation failure.
+ (lmalloc, lrealloc): Return null only on allocation failure,
+ instead of having special cases that treat malloc (0) and
+ realloc (X, 0) as successes even when they return null.
+ * src/lisp.h: Add ATTRIBUTE_RETURNS_NONNULL to a few functions
+ that always return nonnull pointers, so that gcc -fanalyzer
+ does not issue diagnostics like “alloc.c: In function
+ ‘allocate_vector_block’: alloc.c:2985:15: warning: dereference of
+ possibly-NULL ‘block’ [CWE-690] [-Wanalyzer-possible-null-dereference]”
+ as per <https://cwe.mitre.org/data/definitions/690.html>.
+
+2021-10-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Merge from origin/emacs-28
+
+ efb1cd7fa9 ; * etc/charsets/README: Update the format documentation.
+ cc796b7409 Tramp doc cleanup
+ a338d46060 Make emacs-lisp-byte-compile-and-load load the .elc file a...
+ 3eac7dc780 Fix point movement in image-dired
+ 4e9452a399 Improve shortdoc for vector
+ f223ac6ef9 Fix test bug when calloc returns null
+ ebeaa54f19 Pacify GCC 11 -fanalyzer on x86-64
+ 56d1f42f30 Improve handling of non-character events in input methods
+ 3fbe6fd367 ; Fix mistakes in last doc rewording about shorthands
+
+2021-10-13 Paul Eggert <eggert@cs.ucla.edu>
+
+ Change release branch to emacs-28
+
+ * admin/notes/git-workflow:
+ * Makefile.in (PREFERRED_BRANCH): emacs-27 → emacs-28
+
+2021-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update Emacs requirement after removing compat code
+
+2021-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow inhibiting `not-unused' warnings
+
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-warning-types): Allow
+ inhibiting the `not-unused' warning (bug#31641). (There has been
+ some discussion about removing the `not-unused' warning, but it's
+ still in there, so making it possible to inhibit it seems like the
+ right thing to do.)
+ * lisp/emacs-lisp/cconv.el (cconv--analyze-use): Don't warn about
+ `not-unused'.
+
+2021-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix problem with multiline fontification in interactive Python
+
+ * lisp/progmodes/python.el
+ (python-shell-font-lock-post-command-hook): When doing multi-line
+ (`C-c SPC') inputs, remove all the preceding lines when doing
+ fontification (bug#47657).
+
+2021-10-13 Michael Albinus <michael.albinus@gmx.de>
+
+ Continue to work on emba integration
+
+ * test/infra/Dockerfile.emba: Remove instrumentation.
+
+ * test/infra/gitlab-ci.yml (.job-template): Specify timeout signal.
+ (.job-template, .test-template): Improve wildcard.
+
+2021-10-13 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove some compat code from python.el
+
+ * lisp/progmodes/python.el
+ (python-shell-font-lock-post-command-hook): Remove Emacs 24.3 and
+ earlier compat code.
+
+2021-10-13 Andreas Schwab <schwab@linux-m68k.org>
+
+ * src/pdumper.h: Include <stdio.h>.
+
+2021-10-13 Martin Rudalics <rudalics@gmx.at>
+
+ Improve 'display-buffer' 'temp-buffer-resize-mode' cohabitation
(Bug#51062)
+
+ * doc/lispref/display.texi (Temporary Displays): Explain how
+ to override the effect of 'temp-buffer-resize-mode' with a
+ suitable 'display-buffer' action alist entry.
+ * doc/lispref/windows.texi (Buffer Display Action Alists):
+ Mention that an 'inhibit-switch-frame' entry might not work
+ with every WM. Describe the 'window-size' entry. Describe
+ how automatic window resizing can be overridden.
+ * lisp/help.el (resize-temp-buffer-window-inhibit): New variable.
+ (resize-temp-buffer-window): Handle case where user overrides
+ automatic resizing.
+ * lisp/window.el (temp-buffer-window-show): Bind
+ 'resize-temp-buffer-window-inhibit' to nil around
+ 'display-buffer'. Do not raise frame automatically to avoid
+ defeating 'inhibit-switch-frame'.
+ (window--display-buffer): Set 'resize-temp-buffer-window-inhibit'
+ to t when the action alist contains a 'window-height',
+ 'window-width' or 'window-size' entry. Use
+ 'modify-frame-parameters' instead of 'set-frame-height' and
+ 'set-frame-width' to avoid that the latter step on each others
+ toes.
+ (display-buffer): Fix 'inhibit-switch-frame' part in and add
+ 'window-size' part to doc-string.
+
+2021-10-12 Stephen Gildea <stepheng+emacs@gildea.com>
+
+ MH-E: restore message about obsolete key binding
+
+ * lisp/mh-e/mh-show.el:
+ * lisp/mh-e/mh-folder.el: Restore "obsolete key" message for "J w" that
+ was lost in the conversion from gnus-define-keys to define-keymap.
+
+2021-10-12 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix byte-compilation warnings in nox builds
+
+ For discussion, see bug#51139.
+
+ * lisp/edmacro.el (edmacro-fix-menu-commands): Load mwheel to pacify
+ free variable warnings in without-x builds.
+
+ * lisp/mh-e/mh-compat.el: Declare image.el functions that are not
+ preloaded in without-x builds.
+ * lisp/mh-e/mh-utils.el (mh--with-image-load-path): New macro.
+ (mh-logo-display):
+ * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-folder-buttons-init)
+ (mh-tool-bar-letter-buttons-init): Use it to pacify byte-compilation
+ warnings about image.el definitions not preloaded without-x.
+
+2021-10-12 Eric Abrahamsen <eric@ericabrahamsen.net>
+
+ Clean up nnimap buffers with dead processes
+
+ * lisp/gnus/nnimap.el (nnimap-keepalive): If the keepalive "NOOP"
+ fails, remove the buffer with the dead process from
+ `nnimap-process-buffers' and `nnimap-connection-alist'.
+ (nnimap-find-connection): Do the same here, when the connection can't
+ be found.
+ (nnimap-close-server): Remove process buffer from lists when closing
+ server.
+
+2021-10-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ decoded-time-add doc string addition
+
+ * lisp/calendar/time-date.el (decoded-time-add): Add a usage example.
+
+2021-10-12 Michael Albinus <michael.albinus@gmx.de>
+
+ Adapt emba control files
+
+ * test/infra/Dockerfile.emba: Print core pattern.
+
+ * test/infra/gitlab-ci.yml (.job-template, .test-template):
+ Improve wildcard.
+ (.job-template): Add timeout.
+
+2021-10-12 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 66b8dfd060 (origin/emacs-28) ; Fix last change related to shorthands
+ 3832b983cf In Fdelete_other_windows_internal fix new total window siz...
+ 5deb0ec14f * lisp/mh-e/mh-show.el (mh-junk-whitelist): Custom obsoles...
+ cf1409db71 Don't apply shorthands to punctuation-only symbols (bug#51...
+ b3d0f53b29 * lisp/progmodes/python.el: Bump package version to 0.28.
+
+2021-10-12 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 47e09d1855 Copy parent face attributes to tab-line-tab-current instea...
+ d96f8b22c0 Another fix for 'ibuffer-shrink-to-fit' (Bug#7218, Bug#51029)
+
+2021-10-12 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 0d374b1b83 Work around GCC bug 102671
+
+2021-10-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix more Gnus group key bindings recently changed
+
+ * lisp/gnus/gnus-group.el (:keymap): Fix some prefix keys that
+ ended up in the wrong place during the keymap rewrite (bug#51136).
+
+2021-10-12 Stefan Kangas <stefan@marxist.se>
+
+ Remove more MH-E compat code
+
+ * lisp/mh-e/mh-e.el (mh-strip-package-version, defgroup-mh)
+ (defcustom-mh, defface-mh): Make Emacs 21 compat aliases obsolete.
+ Update callers.
+
+ * lisp/mh-e/mh-e.el:
+ (mh-exchange-point-and-mark-preserving-active-mark)
+ * lisp/mh-e/mh-folder.el (desktop-buffer-mode-handlers):
+ * lisp/mh-e/mh-mime.el (mh-mm-inline-media-tests)
+ (mh-have-file-command, mh-mime-security-button-map):
+ * lisp/mh-e/mh-show.el (mh-summary-height):
+ * lisp/mh-e/mh-speed.el (mh-process-kill-without-query):
+ * lisp/mh-e/mh-xface.el (mh-uncompface-executable)
+ (mh-face-to-png, mh-uncompface, mh-picon-file-contents): Remove
+ XEmacs and Emacs 21 and older compat code.
+
+2021-10-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make dbus work in a dumped Emacs
+
+ * lisp/net/dbus.el (dbus--init): Make into a defun.
+ (after-pdump-load-hook): Put it onto the new pdump hook so that
+ it's run after startup (bug#37331).
+
+2021-10-12 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new after-pdump-load-hook variable
+
+ * doc/lispref/internals.texi (Building Emacs): Document it.
+
+ * lisp/subr.el (after-pdump-load-hook): New variable.
+ * src/emacs.c (main): Run the new hook.
+
+ * src/pdumper.c (syms_of_pdumper): Define a symbol.
+
+2021-10-12 Stefan Kangas <stefan@marxist.se>
+
+ Make mh-do-in-gnu-emacs obsolete
+
+ * lisp/mh-e/mh-acros.el (mh-do-in-gnu-emacs): Make obsolete.
+ * lisp/mh-e/mh-tool-bar.el: Don't use above obsolete macro.
+ (mh-acros): Require to avoid warnings.
+ Thanks to Lars Ingebrigtsen <larsi@gnus.org>.
+
+2021-10-12 Andreas Schwab <schwab@linux-m68k.org>
+
+ Change --fingerprint to output to stdout
+
+ * src/pdumper.c (dump_fingerprint): Add argument OUTPUT, use it
+ instead of stderr, update all uses. Don't print colon if LABEL is
+ empty.
+ * src/pdumper.h (dump_fingerprint): Adjust.
+ * src/emacs.c (main): Print fingerprint to stdout, without label.
+ * Makefile.in (EMACS_PDMP): Adjust.
+
+2021-10-12 Martin Rudalics <rudalics@gmx.at>
+
+ Have 'while-no-input-ignore-events' handle idle timers too (Bug#49997)
+
+ * src/keyboard.c (read_char): Use Vwhile_no_input_ignore_events to
+ check which idle timers should be resumed (Bug#49997).
+ (init_while_no_input_ignore_events): New function to
+ initialize Vwhile_no_input_ignore_events.
+ (Vwhile_no_input_ignore_events): Say in doc-string that events in
+ this list do not stop idle timers.
+ * lisp/subr.el (while-no-input): Remove initialization of
+ 'while-no-input-ignore-events'; do that in keyboard.c now.
+
+2021-10-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ lisp/erc/erc-{replace,imenu,dcc}: Tweak copyright format
+
+ * lisp/erc/erc-replace.el:
+ * lisp/erc/erc-imenu.el:
+ * lisp/erc/erc-dcc.el: Massage copyright so elpa-admin.el recognizes it
+
+2021-10-11 Stefan Kangas <stefan@marxist.se>
+
+ Remove last XEmacs compat code from ERC
+
+ * lisp/erc/erc-dcc.el (erc-dcc-member): Remove XEmacs compat code.
+ * lisp/erc/erc-goodies.el (erc-move-to-prompt-setup): Doc fix;
+ remove spurious reference to XEmacs; this is needed also for
+ Emacs.
+
+2021-10-11 Stefan Kangas <stefan@marxist.se>
+
+ Prefer setq-local in lisp/mh-e/*.el
+
+ * lisp/mh-e/mh-utils.el (mh-make-local-vars): Make obsolete.
+ * lisp/mh-e/mh-comp.el (mh-forward):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode):
+ * lisp/mh-e/mh-identity.el (mh-identity-handler-signature)
+ (mh-identity-insert-attribution-verb):
+ * lisp/mh-e/mh-letter.el (mh-letter-mode):
+ * lisp/mh-e/mh-search.el (mh-search-folder):
+ * lisp/mh-e/mh-seq.el (mh-narrow-to-seq, mh-widen):
+ * lisp/mh-e/mh-show.el (mh-show-mode):
+ * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define):
+ * lisp/mh-e/mh-xface.el (mh-x-image-url-display)
+ (mh-x-image-url-fetch-image): Prefer setq-local.
+
+2021-10-11 Stefan Kangas <stefan@marxist.se>
+
+ Remove some more MH-E compat code
+
+ * lisp/mh-e/mh-acros.el (defun-mh, defmacro-mh): Make obsolete.
+
+ * lisp/mh-e/mh-gnus.el (mh-gnus-local-map-property): Make obsolete.
+ * lisp/mh-e/mh-mime.el (mh-insert-mime-security-button)
+ (mh-insert-mime-button): Don't use above obsolete function.
+
+ * lisp/mh-e/mh-gnus.el (mh-mm-text-html-renderer): Make obsolete.
+ * lisp/mh-e/mh-mime.el (mh-mm-inline-media-tests)
+ (mh-signature-highlight): Remove references to removed Gnus
+ variable 'mm-inline-text-html-renderer'.
+
+ * lisp/mh-e/mh-letter.el (mh-letter-complete): Make into obsolete
+ function alias for 'completion-at-point'. Update callers.
+
+ * lisp/mh-e/mh-e.el (mh-inc-spool-list, mh-show-use-xface-flag):
+ * lisp/mh-e/mh-comp.el (mh-ascii-buffer-p):
+ * lisp/mh-e/mh-show.el:
+ * lisp/mh-e/mh-utils.el: Remove some references to XEmacs.
+
+ * lisp/mh-e/mh-comp.el (mh-send-letter): Remove XEmacs and Emacs
+ compat code.
+
+ * lisp/mh-e/mh-compat.el (mh-display-completion-list): Remove
+ compat code for Emacs 22 and earlier.
+
+ * lisp/mh-e/mh-e.el (mh-inherit-face-flag)
+ (mh-min-colors-defined-flag): Make XEmacs and Emacs 21 compat
+ variables obsolete.
+ (mh-face-data): Adjust to assume above variables are always t.
+
+ * lisp/mh-e/mh-mime.el (mh-mime-button-map): Remove XEmacs and
+ Emacs 20 compat code.
+
+ * lisp/mh-e/mh-utils.el (mh-mapc): Make Emacs 20 compat function
+ into obsolete function alias for mapc. Update callers.
+
+ * lisp/mh-e/mh-xface.el (mh-show-xface-function, mh-show-xface):
+ Remove Emacs 20 compat code.
+
+2021-10-11 Stefan Kangas <stefan@marxist.se>
+
+ Remove redundant calls to 'mh-do-in-gnu-emacs'
+
+ * lisp/mh-e/mh-compat.el (mh-require):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode):
+ * lisp/mh-e/mh-letter.el (mh-letter-mode):
+ * lisp/mh-e/mh-mime.el (mh-mime-button-map)
+ (mh-mime-security-button-map, mh-small-image-p)
+ (mh-signature-highlight):
+ * lisp/mh-e/mh-show.el (mh-show-mode):
+ * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define):
+ * lisp/mh-e/mh-utils.el (mh-logo-display)
+ (mh-hidden-header-keymap):
+ * lisp/mh-e/mh-xface.el (mh-face-display-function)
+ (mh-picon-image-types, mh-x-image-display): Remove redundant calls
+ to 'mh-do-in-gnu-emacs'.
+ * lisp/mh-e/mh-acros.el (mh-do-in-gnu-emacs):
+ * lisp/mh-e/mh-tool-bar.el: Add comment explaining an issue that
+ stops us from making 'mh-do-in-gnu-emacs' obsolete.
+
+2021-10-11 Glenn Morris <rgm@gnu.org>
+
+ Fix merge error for elisp-mode-tests.el
+
+ * test/lisp/progmodes/elisp-mode-tests.el (test-cl-flet-indentation):
+ Delete test mistakenly restored by merge conflict.
+ It seems this was deleted 2021-10-01 with incomplete log message
+ "Add more indentation tests".
+
+2021-10-11 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ ac06608878 (origin/emacs-28) Release ERC 5.4
+ a1a589d07b * etc/ERC-NEWS: Announce ERC's addition to GNU ELPA.
+ 6c7947f0a1 * etc/ERC-NEWS: Fix outline level for the recent additions.
+ c480b68644 Add ERC entries for 'customize-package-emacs-version-alist'
+ 4afff515c8 Expand the full file name
+ 36a485a1af Obsolete XEmacs compat convention in 'erc-button-press-but...
+
+2021-10-11 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 1a1b206a8b Adapt the recent 'num_processors' change to MS-Windows
+ 7cb4637923 Minor fix to clarify a sentence in emacs-lisp-intro
+ ab60144ea3 ; Pacify recent shorthand unused lexarg warnings.
+ e9df86004f Make tty-run-terminal-initialization load the .elc file (i...
+ 07edc28bdb Fix ert errors when there's a test that binds `debug-on-er...
+ 96278de8ac New function num-processors
+ 575e626105 Add symbol property 'save-some-buffers-function' (bug#46374)
+ a3e10af95c Keep reading when typed RET in read-char-from-minibuffer a...
+ 013e3be832 * lisp/userlock.el (ask-user-about-supersession-threat): A...
+ ae61d7a57d Fix point positioning on mouse clicks with non-zero line-h...
+ 4c7e74c386 Complete shorthands to longhands for symbol-completing tables
+ c2513c5d0d Add new failing test for bug#51089
+ 1d1e96377c ; * lisp/emacs-lisp/shortdoc.el: Fix typo.
+ 6bf29072e9 Avoid mapping file names through 'substring'
+ bcce93f04c Update to Org 9.5-46-gb71474
+ 5d408f1a24 Expanded testing of MH-E with multiple MH variants
+ b497add971 Fix Seccomp filter for newer GNU/Linux systems (Bug#51073).
+ 75d9fbec88 Tramp code cleanup
+
+ # Conflicts:
+ # etc/NEWS
+ # test/lisp/progmodes/elisp-mode-tests.el
+
+2021-10-11 Amin Bandali <bandali@gnu.org>
+
+ Revert "Obsolete XEmacs compat convention in erc-button-press-button"
+
+ This reverts commit f146325bd1556d1acafe26f6c263b83a92d3cd20.
+
+ This should be done in 'emacs-28', which will be merged into 'master'.
+
+2021-10-11 Stefan Kangas <stefan@marxist.se>
+
+ Fontify "print" and "exec" as functions in python-mode
+
+ * lisp/progmodes/python.el (python-font-lock-keywords-level-2):
+ Fontify "print" and "exec" as functions, which is the case in
+ Python 3. (Bug#43298)
+
+2021-10-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Mention --fingerprint in NEWS
+
+2021-10-11 Glenn Morris <rgm@gnu.org>
+
+ Make the installed pmdp file use a fingerprint
+
+ * Makefile.in (EMACS_PDMP): Use --fingerprint.
+
+ * doc/emacs/cmdargs.texi (Action Arguments): Document --fingerprint.
+
+ * src/emacs.c (load_pdump): Load the fingerprinted version of the
+ pdmp file (bug#42790).
+ (main): Support --fingerprint.
+
+ * src/pdumper.c (dump_fingerprint): Make non-static.
+
+ * src/pdumper.h: Declare dump_fingerprint.
+
+2021-10-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix menu display of keys when cua-mode is active
+
+ * lisp/menu-bar.el (menu-bar-edit-menu): Make the menus display
+ the correct keys for editing when cua-mode is active (bug#28930).
+
+2021-10-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change how cua-mode defined `C-x' and `C-c'
+
+ * lisp/emulation/cua-base.el (cua-cut-handler):
+ (cua-copy-handler): New aliases (bug#28930).
+ (cua--init-keymaps): Use them for `C-x' and `C-c' to be able to
+ distinguish the commands when looking them up in reverse.
+
+2021-10-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow :keys in menus to be computed dynamically
+
+ * doc/lispref/keymaps.texi (Extended Menu Items): Document it
+ (bug#28930).
+
+ * src/keyboard.c (parse_menu_item): Allow :keys to be a function.
+
+2021-10-11 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Tweak how auto-fill fills after a period
+
+ * lisp/textmodes/fill.el (fill-nobreak-p): Don't break immediately
+ after a space after a period (bug#17321).
+
+2021-10-11 Michael Albinus <michael.albinus@gmx.de>
+
+ * doc/misc/tramp.texi (Bug Reports): Describe, how to activate ELPA
Tramp.
+
+2021-10-10 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mairix-el.texi menu
+
+2021-10-09 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Fix workspace/configuration handling when given scopeuri directory
+
+ The path returned by eglot--uri-to-path is mostly used for file paths,
+ and therefore does not end with a slash. Such a no-trailing-slash path
+ violates what default-directory demands (per its docstring), which
+ causes hack-dir-local-variables-non-file-buffer to not find the
+ appropriate dir-local vars.
+
+2021-10-09 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 394209c1a0 (origin/emacs-28) ; Fix indentation in etc/NEWS
+ 81f20e8b89 Fix thinko in ls-lisp--insert-directory
+ ec9f25bd35 Mention that RET means "yes" in y-or-n-p
+ 00eb21c897 ; * src/dispextern.h (struct glyph_string): Comment on NCH...
+ 20eb3644ba Rewrite Antinews for Emacs 28
+ 3a9b881603 ; * etc/NEWS: Rearrange the "incompatible changes" sections.
+ ebb7e26013 ; * etc/NEWS: Fix a typo.
+ 315fe20086 ; * src/Makefile.in (../native-lisp): Add comment.
+ 47cbd103f5 * lisp/bindings.el (mode-line-position): Improve tooltip.
+ 35a752863a * lisp/progmodes/xref.el: Bump the version.
+ bbcd8cc1a9 Slight simplificaiton
+ e139dd1b1e Fix doc strings of 2 categories
+ 59782839cb (xref--collect-matches-1): Remove some intermediate alloca...
+ 1c7d056f4d ; Fix two typos where em dash was written as en dash
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/progmodes/bug-reference.el: Use new `eql` specializer syntax
+
+2021-10-09 F. Jason Park <jp@neverwas.me>
+
+ Add ERC version to protocol log
+
+ * lisp/erc/erc.el (erc-toggle-debug-irc-protocol): Include the erc
+ version in the debug logs (bug#51107).
+
+2021-10-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove mistaken dired-x entry from previous info-look patch.
+
+2021-10-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `C-h S' work on symbols from most of the manuals in Emacs
+
+ * lisp/info-look.el (lambda): Add `C-h S' lookup for all the
+ "misc" manuals in Emacs (bug#42753).
+
+2021-10-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add indices to mairix-el
+
+ * doc/misc/mairix-el.texi (Function Index): Add indices.
+
+2021-10-09 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Simplify `clean-mode'
+
+ * lisp/simple.el (clean-mode): Simplify the property exclusion.
+
+2021-10-09 Stefan Kangas <stefan@marxist.se>
+
+ Remove duplicate definition of x-display-color-p
+
+ * lisp/emulation/viper-init.el (x-display-color-p): Remove duplicate
+ definition. This would just overwrite the alias defined in faces.el.
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove some unnecessary calls to mh-funcall-if-exists
+
+ * lisp/mh-e/mh-acros.el (mh-do-at-event-location):
+ * lisp/mh-e/mh-mime.el (mh-mime-cleanup, mh-display-smileys)
+ (mh-insert-mime-security-button, mh-insert-mime-button):
+ * lisp/mh-e/mh-show.el (mh-defun-show-buffer):
+ * lisp/mh-e/mh-xface.el (mh-x-image-url-fetch-image)
+ (mh-x-image-display, mh-picon-image-types): Remove unnecessary calls
+ to mh-funcall-if-exists; these functions always exist as they are
+ autoloaded.
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove old Gnus compat code from MH-E
+
+ * lisp/mh-e/mh-gnus.el (mh-mm-merge-handles)
+ (mh-mm-set-handle-multipart-parameter, mh-mm-inline-text-vcard)
+ (mh-mm-possibly-verify-or-decrypt)
+ (mh-mm-handle-multipart-ctl-parameter, mh-mm-readable-p)
+ (mh-mm-long-lines-p, mh-mm-keep-viewer-alive-p)
+ (mh-mm-destroy-parts, mh-mm-uu-dissect-text-parts)
+ (mh-mml-minibuffer-read-disposition): Make into obsolete aliases
+ for functions without the 'mh-' prefix. Update callers.
+ (mh-gnus-local-map-property): Remove Emacs 20 compat code.
+
+2021-10-08 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ test/lisp/progmodes/elisp-mode-resources/simple-shorthand-test.el:
Lexbind
+
+ Add the usual lexical-binding cookie.
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove XEmacs compat code from lisp/obsolete/*.el
+
+ * lisp/obsolete/crisp.el (crisp-kill-region)
+ (crisp-region-active):
+ * lisp/obsolete/eudcb-ph.el (eudc-ph-open-session):
+ * lisp/obsolete/fast-lock.el (fast-lock-save-faces):
+ * lisp/obsolete/iswitchb.el (iswitchb-completion-help)
+ (iswitchb-case):
+ * lisp/obsolete/otodo-mode.el (todo-mode):
+ * lisp/obsolete/pgg-parse.el (pgg-parse-armor):
+ * lisp/obsolete/pgg.el (pgg-verify-region):
+ * lisp/obsolete/tpu-edt.el (activate-mark-hook, tpu-mark)
+ (tpu-set-mark, tpu-load-xkeys):
+ * lisp/obsolete/tpu-mapper.el (tpu-map-key, tpu-mapper): Remove XEmacs
+ compat code.
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove XEmacs compat code from sql.el
+
+ * lisp/progmodes/sql.el (sql-interactive-mode-map, sql-mode)
+ (sql-interactive-mode): Remove XEmacs compat code. (Bug#51096)
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove Emacs 20 compat code from sql.el
+
+ * lisp/progmodes/sql.el (sql-input-ring-separator)
+ (sql-product-font-lock): Remove Emacs 20 compat code.
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Remove some additional XEmacs compat code from viper
+
+ * lisp/emulation/viper-util.el (viper-memq-char): Make into
+ obsolete function alias for 'memq'. Update callers.
+ (viper-char-equal): Make into obsolete function alias for 'eq'.
+ Update callers.
+ (viper-color-display-p): Make into obsolete function alias for
+ 'x-display-color-p'. Update callers.
+
+2021-10-08 Stefan Kangas <stefan@marxist.se>
+
+ Obsolete XEmacs compat convention in erc-button-press-button
+
+ * lisp/erc/erc-button.el (erc-button-press-button): Advertise new
+ calling convention without XEmacs compatibility.
+
+2021-10-08 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ af01b674ce (origin/emacs-28) ; Fix spacing in previous commit
+ 915e044d60 Use the correct label in the warning
+ 6e83a4100a ; * admin/make-tarball.txt: Should configure --with-native...
+ 525602d682 ; * etc/TODO (display): Add entry about Default_Ignorables.
+ 65de510c16 ; Fix 'restore-buffer-modified-p' doc string typo
+ 9d8202b45e Add Emacs 27 compatibility hack
+ 89d64fca75 Pacify GCC 10.3 -Wmaybe-uninitialized
+ bb8ef1aa30 * lisp/tab-bar.el (tab-detach, tab-window-detach): New ali...
+ 7ae70054aa ; * src/composite.h (LGSTRING_FONT): Add comment about its...
+ 1af00e67d6 Include the refcards in the release tarball
+ 3c29fb705c ; * src/Makefile.in (../native-lisp): Make the long recipe...
+
+2021-10-07 Stefan Kangas <stefan@marxist.se>
+
+ Make mh-* XEmacs compat aliases obsolete
+
+ * lisp/mh-e/mh-acros.el (mh-make-local-hook): Make XEmacs and Emacs 20
+ macro obsolete. Update all callers
+ * lisp/mh-e/mh-compat.el (mh-require): Make XEmacs compat alias
+ obsolete. Update all callers
+ (mh-write-file-functions): Make XEmacs compat macro obsolete. Update
+ all callers
+ (mh-assoc-string, mh-display-color-cells, mh-face-foreground)
+ (mh-face-foreground, mh-face-background)
+ (mh-font-lock-add-keywords, mh-image-load-path-for-library)
+ (mh-image-search-load-path, mh-line-beginning-position)
+ (mh-line-end-position, mh-mail-abbrev-make-syntax-table)
+ (mh-define-obsolete-variable-alias, mh-make-obsolete-variable)
+ (mh-match-string-no-properties, mh-replace-regexp-in-string)
+ (mh-test-completion, mh-url-hexify-string, mh-view-mode-enter)
+ (mh-window-full-height-p): Make XEmacs compat definitions into
+ obsolete function aliases for the same names but without the "mh-"
+ prefix. Update all callers.
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update inhibit-changing-match-data obsoletion data
+
+ * lisp/subr.el (inhibit-changing-match-data): Link to
+ `save-match-data'.
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update Fstring_match calls in comp.c
+
+ * src/comp.c (Fcomp_el_to_eln_rel_filename, file_in_eln_sys_dir):
+ Update Fstring_match calls.
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make 'inhibit-changing-match-data' obsolete and adjust callers
+
+ * doc/lispref/searching.texi (Regexp Search):
+ (POSIX Regexps): Document this.
+ * lisp/subr.el (inhibit-changing-match-data): Make obsolete.
+ (looking-at-p): Adjust call.
+
+ * lisp/vc/vc-hg.el (vc-hg--raw-dirstate-search):
+ (vc-hg--ignore-patterns-ignored-p):
+ (vc-hg--cached-dirstate-search): Don't use
+ `inhibit-changing-match-data'.
+
+ * src/minibuf.c (Ftry_completion):
+ (Fall_completions):
+ (Ftest_completion): Adjust Fstring_match calls.
+
+ * src/search.c (looking_at_1): Pass in modify_data.
+ (Flooking_at): Add optional inhibit-modify parameter.
+ (string_match_1): Pass in modify_data.
+ (Fstring_match):
+ (Fposix_looking_at, Fposix_string_match): Add optional
+ inhibit-modify parameter.
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make gnus-define-keys obsolete
+
+ * lisp/gnus/gnus-util.el (gnus-define-keys):
+ (gnus-define-keys-1): Make obsolete.
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert mh-e to use define-keymap instead of gnus-define-keys
+
+ * lisp/mh-e/mh-speed.el (mh-folder-speedbar-key-map):
+ * lisp/mh-e/mh-show.el (mh-show-mode-map):
+ * lisp/mh-e/mh-search.el (mh-letter):
+ (mh-search-mode-map):
+ * lisp/mh-e/mh-letter.el (mh-letter-mode-map):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode-map): Convert to use
+ `define-keymap' instead of `gnus-define-keys'.
+
+2021-10-07 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 7cb98ba057 (origin/emacs-28) ; * src/keyboard.c (make_lispy_position)...
+
+2021-10-07 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 160e62a23c Improve documentation and customization of 'blink-matching...
+ 1100fffcd3 * lisp/erc/erc.el: Don't error if 'erc-loaddefs' does not ...
+ 8865fc02ab Add 'erc-bug' command for reporting ERC bugs
+ 5afa07919e Add 'erc-version' and use it to display ERC version consis...
+ bc941846d9 Small tweaks and improvements to etc/ERC-NEWS
+ 30b5e0a514 Add NEWS items for changes to ERC since 5.3 to etc/ERC-NEWS
+ f7e6c199bf Clone the frame window configuration in 'clone-frame'
+ 5f626488d8 * lisp/tool-bar.el (tool-bar-position): Doc fix.
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix mh-e compilation warning
+
+ * lisp/mh-e/mh-comp.el (mh-compose-and-send-mail): Adjust doc string.
+
+ * lisp/mh-e/mh-identity.el (mh-identity-make-menu): Don't call the
+ obsolete `mh-identity-add-menu' function (that now does nothing).
+
+2021-10-07 Stefan Kangas <stefan@marxist.se>
+
+ Revert "Declare compat macro mh-do-in-gnu-emacs obsolete"
+
+ This reverts commit 148b136651413d8eca0f805c786fb04b9c5878b8.
+
+ This commit led to some build failures that I don't yet understand, so
+ I'm reverting it for now so as not to leave master in a broken state.
+
+2021-10-07 Stefan Kangas <stefan@marxist.se>
+
+ Delete some XEmacs compat code from mh-e/*.el
+
+ * lisp/mh-e/mh-acros.el (mh-mark-active-p):
+ * lisp/mh-e/mh-comp.el (mh-insert-x-mailer):
+ * lisp/mh-e/mh-compat.el (mh-define-obsolete-variable-alias)
+ (mh-make-obsolete-variable):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode-map)
+ (mh-remove-xemacs-horizontal-scrollbar, mh-folder-mode):
+ * lisp/mh-e/mh-gnus.el (mh-gnus-local-map-property):
+ * lisp/mh-e/mh-show.el (mh-show-mode):
+ * lisp/mh-e/mh-utils.el (mh-colors-available-p):
+ * lisp/mh-e/mh-xface.el (mh-show-xface-function): Delete some
+ XEmacs compat code.
+
+2021-10-07 Stefan Kangas <stefan@marxist.se>
+
+ Declare compat macro mh-do-in-gnu-emacs obsolete
+
+ * lisp/mh-e/mh-acros.el (mh-do-in-gnu-emacs): Declare compat macro
+ obsolete.
+ * lisp/mh-e/mh-compat.el (mh-require):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode):
+ * lisp/mh-e/mh-letter.el (mh-letter-mode):
+ * lisp/mh-e/mh-mime.el (mh-mime-button-map)
+ (mh-mime-security-button-map, mh-small-image-p)
+ (mh-signature-highlight):
+ * lisp/mh-e/mh-show.el (mh-show-mode):
+ * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define):
+ * lisp/mh-e/mh-utils.el (mh-logo-display)
+ (mh-hidden-header-keymap):
+ * lisp/mh-e/mh-xface.el (mh-face-display-function)
+ (mh-picon-image-types, mh-x-image-display): Don't wrap code in
+ compat macro 'mh-do-in-gnu-emacs'.
+
+2021-10-07 Stefan Kangas <stefan@marxist.se>
+
+ Declare compat macro mh-do-in-xemacs obsolete
+
+ * lisp/mh-e/mh-identity.el (mh-identity-add-menu):
+ * lisp/mh-e/mh-acros.el (mh-do-in-xemacs): Declare obsolete.
+ * lisp/mh-e/mh-compat.el:
+ * lisp/mh-e/mh-e.el (mh-xemacs-use-tool-bar-flag):
+ * lisp/mh-e/mh-folder.el (mh-folder-mode):
+ * lisp/mh-e/mh-letter.el (mh-letter-mode):
+ * lisp/mh-e/mh-mime.el (mh-mime-button-map)
+ (mh-mime-security-button-map, mh-small-image-p)
+ (mh-signature-highlight):
+ * lisp/mh-e/mh-search.el (mh-search-mode):
+ * lisp/mh-e/mh-seq.el:
+ * lisp/mh-e/mh-show.el (mh-show-mode):
+ * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define):
+ * lisp/mh-e/mh-utils.el (mh-logo-display)
+ (mh-hidden-header-keymap):
+ * lisp/mh-e/mh-xface.el (mh-face-display-function)
+ (mh-picon-image-types, mh-x-image-display): Delete calls to
+ 'mh-do-in-xemacs'.
+
+2021-10-07 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix syntax error in previous gnus-registry-install-shortcuts change
+
+ * lisp/gnus/gnus-registry.el (gnus-registry-install-shortcuts):
+ Fix syntax error in previous change.
+
+2021-10-06 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-handler):
Scope
+
+ Fix the scoping of `tramp-archive-enabled`.
+
+2021-10-06 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 1ccd3eb721 (origin/emacs-28) ; Fix typo in etc/NEWS
+ 0f28ee94ac * NEWS: Mention rcirc connects to #emacs by default
+ aacafbe267 Refactor mh-utils-tests macro 'with-mh-test-env'
+ ead5c5cc51 Avoid using variable before it has been initialized
+ b2c50d7cf3 Clarify docstring of blink-matching-paren
+ d2a34cabcf ; Very minor touch-up to a recent change
+ 36a7ce4393 ; * doc/emacs/trouble.texi (After a Crash): Fix typo.
+ 1cd1b2835b * doc/misc/gnus.texi (Loose Threads): Use regexp-opt in ex...
+ 9f041cdfac Bump project.el version
+ ad2287e659 Retain compatibility with older project.el projects
+ d86b2e59c7 native-comp-available-p is the definitive test
+ 1b383ac424 Minor fix of a recently installed documentation change
+ 4d76765b6c Fix md5 issue in recent Gnulib merge
+ 18308b739a Tweak recent 'configure' fix
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Reparent `gnus-article-mode-map' again
+
+ * lisp/gnus/gnus-art.el (:keymap): Make `button-buffer-map' the
+ parent of `gnus-article-mode-map' again.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new major mode 'clean-mode'
+
+ * doc/lispref/modes.texi (Major Modes): Document it.
+
+ * lisp/simple.el (clean-mode): New major mode.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add an optional parameter to kill-all-local-variables
+
+ * doc/lispref/variables.texi (Creating Buffer-Local): Document it
+ (bug#30204).
+
+ * src/buffer.c (Fkill_all_local_variables): Allow killing
+ permanent local variables, too.
+
+ * src/print.c (temp_output_buffer_setup):
+ * src/minibuf.c (set_minibuffer_mode): Adjust callers.
+
+2021-10-06 Michael Albinus <michael.albinus@gmx.de>
+
+ * admin/notes/emba (Emacs jobset): Update.
+
+ * test/infra/gitlab-ci.yml (.test-template): Uncomment
+ 'allow_failure', it isn't needed anymore.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make unused macro gnus-local-set-keys obsolete
+
+ * lisp/gnus/gnus-util.el (gnus-local-set-keys): Make obsolete.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make unused gnus-define-keys-safe macro obsolete
+
+ * lisp/gnus/gnus-util.el (gnus-define-keys-safe): Make obsolete.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Use `define-keymap' in gnus-registry-install-shortcuts
+
+ * lisp/gnus/gnus-registry.el (gnus-registry-install-shortcuts):
+ Use `define-keymap'.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `gnus-define-keymap' obsolete and adjust caller
+
+ * lisp/gnus/gnus-kill.el (gnus-kill-file-mode-map): Use
+ `define-keymap'.
+
+ * lisp/gnus/gnus-util.el (gnus-define-keymap): Make obsolete.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix gnus-start.el compilation warning
+
+ * lisp/gnus/gnus-start.el (gnus-save-newsrc-file-last-timestamp):
+ Move to avoid a compilation warning.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Finish conversion of Gnus from `gnus-define-keys'
+
+ * lisp/gnus/gnus-undo.el (gnus-undo-mode-map):
+ * lisp/gnus/gnus-salt.el (gnus-pick-mode-map):
+ (gnus-binary-mode-map):
+ (gnus-tree-mode-map):
+ * lisp/gnus/gnus-msg.el (gnus-summary-send-map):
+ * lisp/gnus/gnus-ml.el (gnus-mailing-list-mode-map):
+ * lisp/gnus/gnus-icalendar.el (gnus-icalendar-setup):
+ * lisp/gnus/gnus-art.el (gnus-article-mode-map):
+ (gnus-article-edit-mode-map): Use `define-keymap' instead of
+ * `gnus-define-keys'.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Clear gnus-save-newsrc-file-last-timestamp on start and exit
+
+ * lisp/gnus/gnus-start.el (gnus-clear-system): Clear
+ `gnus-save-newsrc-file-last-timestamp' on start and exit (bug#51053).
+
+2021-10-06 Arash Esbati <arash@gnu.org>
+
+ Improve finding external documents in reftext
+
+ * lisp/textmodes/reftex-parse.el (reftex-parse-from-file): Extend
+ regexp in order to support \externalcitedocument macro and a
+ second optional argument provided by LaTeX package xr-hyper
+ (bug#51054).
+
+2021-10-06 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Add tests for incomplete escape sequences in ansi-color-tests
+
+ * test/lisp/ansi-color-tests.el
+ (ansi-color-tests-equal-props): New function.
+ (ansi-color-incomplete-sequences-test): New ert test (bug#50806).
+
+2021-10-06 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Documentation fixes for recent ansi-color additions
+
+ * lisp/ansi-color.el (ansi-color-context-region): Improve formatting.
+ * lisp/term.el
+ (term-ansi-face-already-done):
+ (term-handle-colors-array):
+ Fix obsoleting version (bug#50806).
+
+2021-10-06 Yuri D'Elia <wavexx@thregr.org>
+
+ Document the improved scroll-margin behavior
+
+ * etc/NEWS: document the improved `scroll-margin' behavior.
+
+2021-10-06 Yuri D'Elia <wavexx@thregr.org>
+
+ Perform cleanup on errors in mouse-drag-track
+
+ * lisp/mouse.el (mouse-drag-track): Disable both scroll-margin and
+ auto-hscroll-mode in mouse-drag-region and do not re-enable them until
+ dragging is over, making selections work as expected when inside the
+ margins.
+ * lisp/mouse.el (mouse-drag-track): Correctly reset original values
+ changed during execution if errors occur.
+
+2021-10-06 Yuri D'Elia <wavexx@thregr.org>
+
+ Improve interaction between mouse-drag-region and scroll-margin
+
+ * lisp/mouse.el (mouse-drag-track): Disable both scroll-margin and
+ auto-hscroll-mode in mouse-drag-region and do not re-enable them until
+ dragging is over, making selections work as expected when inside the
+ margins.
+
+2021-10-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix up gnus-summary-mode-map after previous change
+
+ * lisp/gnus/gnus-sum.el (:keymap): Fix two sub-maps that were
+ moved to the wrong place.
+
+2021-10-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert more parts of Gnus from `gnus-define-keys' to `define-keymap'
+
+ * lisp/gnus/spam.el (gnus-summary-mode-map):
+ * lisp/gnus/gnus-topic.el (gnus-topic-mode-map):
+ * lisp/gnus/gnus-sum.el (gnus-summary-mode-map):
+ * lisp/gnus/gnus-srvr.el (gnus-server-mode-map):
+ (gnus-server-mode-map):
+ (gnus-browse-mode-map):
+ * lisp/gnus/gnus-score.el (gnus-summary-score-map):
+ * lisp/gnus/gnus-draft.el (gnus-draft-mode-map):
+ * lisp/gnus/gnus-agent.el (gnus-agent-group-mode-map):
+ (gnus-agent-summary-mode-map):
+ (gnus-agent-server-mode-map):
+ (gnus-category-mode-map): Convert from `gnus-define-keys' to
+ `define-keymap'.
+
+ * lisp/gnus/gnus.el: Define more commands.
+
+2021-10-05 Stefan Kangas <stefan@marxist.se>
+
+ Do interactive mode tagging for proced.el
+
+2021-10-05 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 63abe976ce (origin/emacs-28) Document minibuffer-default-prompt-forma...
+ b5afbedc90 Backward compatibility option for 'nobreak-char-display'
+ ea1b728a06 ; * lisp/dired.el: Fix typo.
+ 984eafeb98 Unbreak the build after Gnulib update
+ 5946370cd1 Check, whether an FUSE mount has been broken in Tramp
+ 90575a6c0c Disable 'nobreak-char-display' in Eldoc buffers
+ 570e2c9a17 Fix small error in comint-send-input
+ fd7bb31412 Update documentation of search-whitespace-regexp
+ 1f4ced47a1 Fix cc-compat.el syntax error
+ b431f54c1b Mention `seq-uniq' in `delete-dups' documentation
+ 0a7bab689c ; Minor stylistic fixes found by checkdoc
+ e2861e2d08 ; * etc/NEWS: Fix typo.
+ 1a65d49931 Port recent Gnulib changes to MS-Windows
+ 68a256c892 Update from Gnulib
+ 63cb65dcce * Fix mh tests for native comp builds (bug#50975)
+ e606cc6f40 * Fix `batch-native-compile' not to spawn a subprocess
+ 894dfe70da Fix native-compilation build from tarball on Cygwin
+ 2ce5e08058 Remove U+FE0F from script-representative-chars
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-05 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 13f459b3ac ; Describe PROBLEMS with Unicode display on some TTYs
+ 7a98a62079 * test/README: Mention :nativecomp tag.
+
+2021-10-05 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix recent "erts files" additions in ERT manual
+
+ * doc/misc/ert.texi (erts files): Indent examples with spaces rather
+ than tabs, since Texinfo treats tab characters as a single space;
+ see (info "(texinfo) @example"). Fix typos/thinkos.
+
+2021-10-05 Stefan Kangas <stefan@marxist.se>
+
+ Make 'mapconcat' argument 'separator' optional
+
+ * src/fns.c (Fmapconcat): Make third 'separator' argument
+ optional. (Bug#50965)
+ * doc/lispref/functions.texi (Mapping Functions): Update
+ documentation for above change.
+ * test/src/fns-tests.el (fns-tests-mapconcat): New test.
+
+ * doc/misc/cl.texi (Obsolete Setf Customization): Don't use third
+ mapconcat argument in example.
+ * lisp/emacs-lisp/subr-x.el (string-join): Doc fix.
+
+2021-10-05 Stefan Kangas <stefan@marxist.se>
+
+ Make two old function aliases obsolete
+
+ * lisp/textmodes/bibtex.el (bibtex-find-crossref)
+ (bibtex-find-entry): Make function aliases obsolete. These were left
+ behind when renaming functions, but never declared obsolete.
+
+2021-10-05 Stefan Kangas <stefan@marxist.se>
+
+ Set advertised calling convention on make-face-* functions
+
+ * lisp/faces.el (make-face-bold, make-face-unbold)
+ (make-face-italic, make-face-unitalic, make-face-bold-italic):
+ Use `advertised-calling-convention` to avoid promoting the third
+ _noerror argument; it has been ignored since 1999.
+
+2021-10-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Change the call convention for `defvar-keymap'
+
+ * doc/lispref/keymaps.texi (Changing Key Bindings): Adjust
+ documentation.
+
+ * lisp/simple.el (special-mode-map):
+ * lisp/net/shr.el (shr-map):
+ * lisp/net/eww.el (eww-link-keymap):
+ (eww-mode-map):
+ (eww-submit-map):
+ (eww-textarea-map):
+ (eww-bookmark-mode-map):
+ (eww-history-mode-map):
+ (eww-buffers-mode-map):
+ * lisp/gnus/message.el (message-mode-map):
+ * lisp/gnus/gnus-html.el (gnus-html-image-map):
+ * lisp/gnus/gnus-eform.el (gnus-edit-form-mode-map):
+ * lisp/gnus/gnus-dired.el (gnus-dired-mode-map):
+ * lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode-map):
+ Adjust usage of `defvar-keymap'.
+
+ * lisp/subr.el (define-keymap, define-keymap--define): Change how
+ these functions call each other.
+ (defvar-keymap): Change interface to be more like `define-keymap'.
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-indent--defvar-keymap): Remove.
+ (lisp-indent-function): Don't use it.
+
+2021-10-05 Daniel Martín <mardani29@yahoo.es>
+
+ Update documentation about how M-x completes obsolete commands
+
+ * doc/emacs/m-x.texi (M-x): Mention that Emacs offers completion for
+ commands marked obsolete in the current version of Emacs (bug#51017).
+
+2021-10-05 Miha Rihtaršič <miha@kamnitnik.top>
+
+ In term-mode, handle ANSI codes, specifying italic and other modes
+
+ * etc/e/eterm-color.ti: Add new capabilities
+ * lisp/term.el: New faces and variables to support new ANSI modes.
+ (term-termcap-format): Add new capabilities
+ (term-emulate-terminal): When saving cursor, additionally save the new
+ variables.
+ (term--handle-colors-list): Handle ANSI codes, specifying italic other
+ modes.
+ * test/lisp/term-tests.el (ansi-test-strings): Adjust tests.
+
+2021-10-05 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Add support for 256-color and 24bit ANSI colors in term-mode
+
+ (term-ansi-face-already-done): Make obsolete
+ (term--maybe-brighten-color): Remove
+ (term--color-as-hex): New function
+ (term-handle-colors-array): Make obsolete in favour of the new
+ function 'term--handle-colors-list'.
+ (term--handle-colors-list): New function, that can also handle ANSI
+ codes 38 and 48.
+ (term-handle-ansi-escape): Use it
+
+ * test/lisp/term-tests.el (ansi-test-strings): Add tests for 256-color
+ and 24bit ANSI colors
+
+2021-10-05 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Add support for 256-color and 24bit ANSI colors in ansi-color
+
+ * lisp/ansi-color.el (ansi-color--code-as-hex): New function to
+ convert from 256-color and 24-bit ANSI codes.
+ (ansi-color--face-vec-face): Add support for ANSI color codes greater
+ than 16
+ (ansi-color--update-face-vec): Add support for ANSI codes 38 and 48
+ which can specify 256-color and 24bit ANSI colors.
+
+ * test/lisp/ansi-color-tests.el (ansi-color-tests--strings): Add tests
+ for ANSI codes 38 and 34
+
+2021-10-05 Miha Rihtaršič <miha@kamnitnik.top>
+
+ Optimize ansi-color.el
+
+ (ansi-color-context-region):
+ (ansi-color-context): Adjust doc string to the new format of
+ ansi-color context.
+
+ (ansi-color--find-face): Rename to ansi-color--face-vec-face
+ (ansi-color--face-vec-face): Adjust to the new format ansi-color
+ context.
+
+ (ansi-color-filter-apply):
+ (ansi-color-apply):
+ (ansi-color-filter-region):
+ (ansi-color-apply-on-region): Adjust to the new format of ansi-color
+ context in order to speed these functions up.
+
+ (ansi-color-apply-sequence): Make it obsolete.
+ (ansi-color--update-face-vec): New function to handle the new format
+ of ansi-color context.
+
+ (ansi-color-get-face-1): Make obsolete as this function isn't used any
+ more (bug#50806).
+
+2021-10-05 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Make `memory-report-object-size' work standalone
+
+ * lisp/emacs-lisp/memory-report.el (memory-report--type-size):
+ Default to nil so that the test in `memory-report-object-size' works.
+ (memory-report--set-size): Initialize
+ memory-report-object-size.
+
+2021-10-04 Stefan Kangas <stefan@marxist.se>
+
+ Use format-prompt for many more prompts
+
+ * lisp/bookmark.el (bookmark-completing-read):
+ * lisp/calc/calc-prog.el (calc-user-define-formula):
+ * lisp/calc/calc-store.el (calc-permanent-variable):
+ * lisp/calc/calc-units.el (calc-convert-units)
+ (calc-convert-exact-units, calc-convert-temperature):
+ * lisp/cedet/semantic/complete.el
+ (semantic-complete-read-tag-engine):
+ * lisp/cus-edit.el (customize-read-group):
+ * lisp/dired-aux.el (dired-do-chxxx):
+ * lisp/dired-x.el (dired-mark-unmarked-files):
+ * lisp/emacs-lisp/debug.el (cancel-debug-on-entry)
+ (cancel-debug-on-variable-change):
+ * lisp/emacs-lisp/edebug.el (edebug-cancel-on-entry)
+ (edebug-remove-instrumentation):
+ * lisp/epa.el (epa-read-file-name, epa-export-keys):
+ * lisp/faces.el (read-face-name):
+ * lisp/format.el (format-decode-buffer, format-decode-region):
+ * lisp/gnus/gnus-art.el (gnus-read-save-file-name):
+ * lisp/gnus/gnus-util.el (gnus-completing-read):
+ * lisp/gnus/message.el (message-check-news-header-syntax):
+ * lisp/info.el (Info-follow-reference):
+ * lisp/international/mule-diag.el (describe-font)
+ (describe-fontset):
+ * lisp/international/quail.el (quail-show-keyboard-layout):
+ * lisp/language/cyril-util.el
+ (standard-display-cyrillic-translit):
+ * lisp/mail/rmailkwd.el (rmail-read-label):
+ * lisp/mail/rmailmm.el (rmail-mime-save):
+ * lisp/mail/rmailout.el (rmail-output-read-file-name):
+ * lisp/man.el (Man-goto-section, Man-follow-manual-reference):
+ * lisp/menu-bar.el (emacs-index--prompt):
+ * lisp/net/ange-ftp.el (ange-ftp-get-passwd):
+ * lisp/proced.el (proced-send-signal):
+ * lisp/progmodes/cpp.el (cpp-choose-face):
+ * lisp/progmodes/ebrowse.el (ebrowse-set-tree-indentation):
+ * lisp/progmodes/etags.el (visit-tags-table)
+ (visit-tags-table-buffer):
+ * lisp/progmodes/grep.el (grep-read-files):
+ * lisp/progmodes/hideif.el (hide-ifdef-define):
+ * lisp/progmodes/pascal.el (pascal-goto-defun):
+ * lisp/progmodes/prolog.el (prolog-read-predicate):
+ * lisp/progmodes/sql.el (sql-get-login-ext):
+ * lisp/ses.el (ses-define-local-printer):
+ * lisp/textmodes/artist.el (artist-figlet-choose-font):
+ * lisp/textmodes/tex-mode.el (tex-compile):
+ * lisp/vc/diff.el (diff):
+ * lisp/vc/ediff-ptch.el (ediff-prompt-for-patch-file):
+ * lisp/vc/ediff-util.el (ediff-read-file-name):
+ * lisp/vc/pcvs.el (cvs-mode-mark-on-state):
+ * lisp/vc/vc.el (vc-diff-build-argument-list-internal)
+ (vc-revision-other-window, vc-retrieve-tag):
+ * lisp/wid-edit.el: Prefer format-prompt unconditionally.
+
+ * lisp/org/org-capture.el (org-capture-fill-template):
+ * lisp/org/org-refile.el (org-refile-get-location):
+ * lisp/progmodes/python.el (python-eldoc-at-point):
+ * lisp/progmodes/verilog-mode.el (verilog-surelint-off)
+ (verilog-goto-defun):
+ * lisp/progmodes/xref.el (xref--read-identifier): Prefer format-prompt
+ when it is fboundp.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix syntax error in define-keymap doc string
+
+ * lisp/subr.el (define-keymap): Fix syntax error in (fn.
+
+2021-10-04 Robert Pluim <rpluim@gmail.com>
+
+ Fix problem with 'vertical-motion' and emoji
+
+ * src/font.c (font_range): Pass correct position to
+ font_for_char (Bug#51012).
+
+2021-10-04 Mattias Engdegård <mattiase@acm.org>
+
+ Run ERT tests with `lexical-binding` bound to `t`
+
+ * lisp/emacs-lisp/ert.el (ert-deftest, ert--run-test-internal):
+ Use t rather than the ambient file value for `lexical-binding` to
+ avoid bad lexbind coverage by mistake.
+
+2021-10-04 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 95a0227ff7 (origin/emacs-28) Avoid exiting when outputting error mess...
+ b7ae0232be ; * src/Makefile.in (../native-lisp): More tweaks of the r...
+ 6e79f8a444 Remove implemented emoji items
+ 00bcba5125 project.el NEWS tagging
+ 704a39f508 thing-at-mouse NEWS tagging
+ 3a9d5f04fb Mention ffap-file-name-with-spaces in the ffap doc strin
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-04 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 3b8dda6c90 Add safety check in x_menu_show
+ e1fb731393 Tweak x_connection_closed when I/O error
+ 595e506c82 * lisp/erc/erc.el (erc-user-mode): Set "+i" by default.
+ d00f3d4c05 Port unused decls to C2x
+ 317eb2d5b5 Improve structure of TODO
+ c0793cd9de Don't use some obsolete names in documentation
+ 87153cc915 Tweak x_hide_tip for consistency
+ 7e871dcd27 Remove encode_terminal_code UNINITs
+ 2a00634880 Port pdumper.c maybe_unused to C2x
+ 6d9b3c0eaa Port systhreads.h to C2x
+ fd274d7d24 Pacify -Wanalyzer-null-argument in lisp_malloc
+ cc3fc94f09 Pacify gcc 11.2.1 -Wanalyzer-null-argument
+ d3a832a61a Simplify hack-read-symbol-shorthands again (bug#50946)
+ 4831426158 Fix recipe for 'native-lisp' directory
+ 0bb42ef803 ; * lisp/time-stamp.el (time-stamp-format): Doc string.
+ 732c70a0d9 Simplify socket symlink-attack checking
+ fc32a3bd95 ; * doc/lispref/files.texi (Reading from Files): Fix wording.
+ 3cc77aa976 Clarify (elisp) insert-file-contents with BEG or END not o...
+ 5deeb0947d * src/Makefile.in: Simplify conditionals.
+ 121a5abeae Move context-menu selection items Defun/List/Symbol to pro...
+ 0c341e6e84 * lisp/tab-bar.el (tab-bar-detach-tab): Handle frame selec...
+ 931a7276c0 * lisp/tab-line.el (tab-line-format): Add face-modified to...
+ 3863919a00 Fix unmounting in Tramp
+ 7a6d34cd1f * etc/themes/light-blue-theme.el: Add "Maintainer: emacs-d...
+ c1b1e1f545 Define HAVE_NATIVE_COMP in src/Makefile.in
+ 137fa2d716 Rename elisp-shorthands to read-symbol-shorthands
+ e6fbc45b7b Font-lock shorthands in elisp-mode for quick visual recogn...
+ 17e6f3bee5 ; Fix last change in tramp-sshfs.el
+ 3dae1e33d1 Suppress superfluous error messages in Tramp
+ b228ec9fab Fix reading the tail of a file in shorthands.el
+ 7fb2789509 Fix substitution of pretty quotes in code in easy-mmode
+ b47d7ce1b8 Fix agent directory deletion
+ b1a8a66fb0 ; * etc/TODO: Fix previous commit; delete the right thing.
+ 6c01a21365 Clarify the purpose of internal--format-docstring-line
+ 55dadbc57e * lisp/net/dictionary.el (context-menu-dictionary): Move m...
+ bb209cd5ab Update to Org 9.5-30-g10dc9d
+ 4341e79a5f Remove bogus ":safe t" custom properties
+ b6f6b593c6 Fix 'apropos-compact-layout'
+ 62d6cecfcd Remove bogus ":safe nil" custom properties
+ f9111d8784 The safe-local-variable property is a function (bug#50944)
+ 3dc094abee ; Some minor tweaks to TODO
+ a5b4356d37 Revert "; * etc/TODO: Move elpa.gnu.org items to the end."
+ 7bc0cee115 Revert "* etc/TODO: Rearrange to start with "Simple tasks"."
+ 3489471417 Fix selection of fonts for Arabic on Posix platforms
+ 13e5943386 ; Fix a typo in a doc string
+ bd60fca2fa Fix ox-koma-letter compilation warnings
+ 340e527bed Preload paren.el
+ a9052248da Improve documentation of 'shift-select-mode'
+ d505971894 ; Standardize some license headers
+ 9307889d68 Simplify shorthand injection (bug#50946)
+ 5c77cc9584 ; * admin/release-branch.txt: Tweak previous.
+
+ # Conflicts:
+ # etc/NEWS
+ # test/lisp/subr-tests.el
+
+2021-10-04 Eli Zaretskii <eliz@gnu.org>
+
+ Revert "Fix problem with outputting error messages while dumping Emacs"
+
+ This reverts commit 1428962590e216163f079ff838f39667383aec56.
+ A better fix was committed to the emacs-28 branch and will be
+ merged to master.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove :copy from define-keymap
+
+ * doc/lispref/keymaps.texi (Changing Key Bindings): Update
+ documentation.
+
+ * lisp/subr.el (define-keymap):
+ (define-keymap--define): Remove :copy from the signature.
+
+ * lisp/net/eww.el (eww-link-keymap): Use :parent.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix gnus-group-mode-map breakage from previous patch
+
+ * lisp/gnus/gnus-group.el (:keymap): Restore gnus-group-list-map
+ key strokes to the correct location.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Document with-memoization
+
+ * doc/misc/cl.texi (Modify Macros): Document with-memoization.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command 'ensure-empty-lines'.
+
+ * doc/lispref/text.texi (Commands for Insertion): Document it.
+
+ * lisp/emacs-lisp/subr-x.el (ensure-empty-lines): New command.
+
+2021-10-04 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/gitlab-ci.yml (test-native-comp-speed0): Fix thinko.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new user option 'translate-upper-case-key-bindings'
+
+ * doc/lispref/commands.texi (Key Sequence Input): Document it.
+
+ * lisp/cus-start.el (standard): defcustom it.
+
+ * src/keyboard.c (read_key_sequence): Use it.
+ (syms_of_keyboard): New variable 'translate-upper-case-key-bindings'.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Remove MozRepl stuff from js.el
+
+ * lisp/progmodes/js.el: Remove all the mozrepl stuff from js.el
+ (bug#40771).
+
+2021-10-04 Carlos Pita <carlosjosepita@gmail.com>
+
+ Avoid a warning in python-eldoc-setup-code
+
+ * lisp/progmodes/python.el (python-eldoc-setup-code): Avoid a
+ deprecation warning about formatargspec (bug#50996).
+
+2021-10-04 Gregory Heytings <gregory@heytings.org>
+
+ Fix problem with outputting error messages while dumping Emacs
+
+ * src/print.c (print_error_message): Don't call
+ substitute-command-keys while bootstrapping.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow computing :doc-spec info-look elements at run time
+
+ * lisp/info-look.el (info-lookup--expand-info): New function.
+ (:mode, info-lookup-add-help): Adjust doc string.
+ (info-lookup-add-help*): Allow adding a dynamic expansion.
+ (info-lookup): Expand.
+ (:mode): Use a dynamic expansion for Python to postpone the lookup.
+ (info-complete): Expand.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Update NEWS for 'define-keymap'
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Convert some keymaps to defvar-keymap
+
+ * lisp/simple.el (special-mode-map):
+ * lisp/net/shr.el (shr-map):
+ * lisp/net/eww.el (eww-link-keymap):
+ (eww-mode-map):
+ (eww-submit-map):
+ (eww-bookmark-mode-map):
+ (eww-history-mode-map):
+ (eww-buffers-mode-map):
+ * lisp/gnus/message.el (message-mode-map): Use defvar-keymap.
+
+ * lisp/gnus/gnus-eform.el (gnus-edit-form-mode-map):
+ * lisp/gnus/gnus-dired.el (gnus-dired-mode-map):
+ * lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode-map): Use
+ defvar-keymap.
+
+ * lisp/gnus/gnus-group.el (gnus-group-mode-map): Use define-keymap.
+
+ * lisp/gnus/gnus-html.el (gnus-html-image-map): Use defvar-keymap.
+
+ * lisp/gnus/gnus.el: Autoload gnus-score-edit-all-score.
+
+2021-10-04 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add 'define-keymap' and 'defvar-keymap'
+
+ * doc/lispref/keymaps.texi (Changing Key Bindings): Document
+ define-keymap and defvar-keymap.
+
+ * lisp/subr.el (define-keymap): New function.
+ (define-keymap--define): New function.
+ (defvar-keymap): New macro.
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp-indent--defvar-keymap): New
+ function.
+ (lisp-indent-function): Use it to indent defvar-keymap.
+
+2021-10-03 Michael Albinus <michael.albinus@gmx.de>
+
+ * test/infra/gitlab-ci.yml (.native-comp-template): Revert change.
+
+2021-10-03 Michael Albinus <michael.albinus@gmx.de>
+
+ Improve native compilation on emba
+
+ * test/infra/Dockerfile.emba (emacs-native-comp)
+ (emacs-native-comp-speed1, emacs-native-comp-speed2): New stages.
+ (emacs-native-comp-speed0): Adapt.
+
+ * test/infra/gitlab-ci.yml (.build-template): Add 'needs: []'.
+ (.native-comp-template): Use 'only:' instead of 'rules:'.
+ (build-native-comp-speed0): Rename from 'build-native-bootstrap-speed0'.
+ (build-native-comp-speed1, build-native-comp-speed2)
+ (test-native-comp-speed0): New jobs.
+
+2021-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Obsolete the light-blue theme
+
+ * etc/themes/light-blue-theme.el (light-blue): Make theme obsolete
+ since it's not maintained and seems to serve no particular use
+ case (bug#47047).
+
+2021-10-03 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow obsoleting themes
+
+ * lisp/cus-theme.el (customize-themes): Don't list obsolete themes.
+
+ * lisp/custom.el (load-theme): Issue a warning if the theme is
+ obsolete (bug#47047).
+
+2021-10-02 Stefan Kangas <stefan@marxist.se>
+
+ Expand internal--format-docstring-line test
+
+ * test/lisp/subr-tests.el (subr-test-internal--format-docstring-line):
+ Check for error on newline.
+
+2021-10-02 Stefan Kangas <stefan@marxist.se>
+
+ Support 'strong-italic' facemenu face in html-mode
+
+ * lisp/textmodes/sgml-mode.el (sgml-face-tag-alist)
+ (sgml-mode-facemenu-add-face-function, html-face-tag-alist):
+ Support 'strong-italic' facemenu face.
+
+2021-10-02 Alexandre Duret-Lutz <adl@lrde.epita.fr>
+
+ gnus-icalendar: Missing attendees are not REQ-PARTICIPANT
+
+ * lisp/gnus/gnus-icalendar.el (gnus-icalendar-event--get-attendee-names)
+ (gnus-icalendar-event-from-ical): Do not default to REQ-PARTICIPANT
+ if the user was not found as an attendee.
+ * test/lisp/gnus/gnus-icalendar-tests.el
+ (gnus-icalendary-weekly-byday): Remove the ROLE property to test
+ that it correctly defaults to REQ-PARTICIPANT. The case where the
+ user is not listed is covered by gnus-icalendar-parse already
+ (bug#50749).
+
+2021-10-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-generic.el: Fix test/lisp/loadhist-tests
+
+ Revert 2fcd34f202 which was redundant anyway since e165bf3d4
+ had fixed it in a better way anyway (a way which doesn't litter the
+ `load-history`).
+
+2021-10-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-get-dispatcher): Fix
regression
+
+2021-10-01 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp/emacs-lisp/subr-x.el (with-memoization): New macro
+
+ Extracted from `cl-generic.el`.
+
+ * lisp/emacs-lisp/cl-generic.el (cl--generic-get-dispatcher)
+ (cl--generic-build-combined-method, cl-generic-generalizers): Use it.
+ (cl--generic-with-memoization): Delete.
+
+2021-10-01 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 626696c3c8 (origin/emacs-28) * doc/lispref/control.texi (pcase Macro)...
+ 2895cb8d49 ; * lisp/time-stamp.el: Fix wording in some documentation ...
+ 1e79c9e9c0 ; * admin/release-branch.txt: Small edits.
+ f1f57a541e Fix some custom types
+
+2021-10-01 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ 5ee5a90213 (origin/emacs-28) ; Fix oddities in etc/NEWS
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-01 Glenn Morris <rgm@gnu.org>
+
+ Merge from origin/emacs-28
+
+ ad0798a395 * etc/TODO: Add interactive mode tagging.
+ 879ef5b19a * etc/TODO: Rearrange to start with "Simple tasks".
+ d73f0e96a7 ; * etc/TODO: Move elpa.gnu.org items to the end.
+ 7cf1229706 ; * etc/TODO: Mention a relevant bug report.
+ f733b909ff * etc/TODO: Remove outdated item. (Bug#50904)
+ 94c247d659 ; Oops, fix up last commit
+ 88378acbfc Rename arguments of ERC's '/whois' and simplify doc string
+ 205eb7f801 ; s/class/type
+ 86da812afb Migrate Xref off EIEIO
+ 5c73dfcbcb * admin/release-branch.txt: New file.
+ f060d1c9a4 * lisp/dired.el (dired-omit-mode): Declare, to avoid compi...
+
+ # Conflicts:
+ # etc/NEWS
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix one-clause movement in erts-mode--goto-start-of-test
+
+ * lisp/progmodes/erts-mode.el (erts-mode--goto-start-of-test): Fix
+ so this works in one-clause tests.
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Fix text in erts-run-test message
+
+ * lisp/progmodes/erts-mode.el (erts-run-test): New command and
+ keystroke.
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new command erts-run-test
+
+ * lisp/progmodes/erts-mode.el (erts-run-test): New command and
+ keystroke.
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Refactor out ert-test--erts-test
+
+ * lisp/emacs-lisp/ert.el (ert-test--erts-test): Refactor out the
+ bulk of the function for easier reuse.
+
+2021-10-01 Peter Münster <pm@a16n.net>
+
+ New command for unmarking all images in image-dired
+
+ * lisp/image-dired.el (image-dired-unmark-all-marks): Remove marks from
+ Dired buffer and update the view of the thumbnails (bug#50920).
+
+2021-10-01 Alexandre Duret-Lutz <adl@lrde.epita.fr>
+
+ default role for attendees is REQ-PARTICIPANT
+
+ * lisp/gnus/gnus-icalendar.el
+ (gnus-icalendar-event--get-attendee-names,
+ gnus-icalendar-event-from-ical): When the ROLE property
+ is missing from an ATTENDEE line, follow RFC5546 and default
+ to REQ-PARTICIPANT.
+
+2021-10-01 Alexandre Duret-Lutz <adl@lrde.epita.fr>
+
+ allow party crashers to respond to ical events
+
+ If an ical invitation is sent to a mailing list, the recipients
+ are probably not listed as attendees. However there are
+ legitimate situations where these unlisted (or indirectly listed)
+ recipients are still expected to respond. RFC5546 allows that,
+ calling those respondents "party crashers".
+
+ * lisp/gnus/gnus-icalendar.el
+ (gnus-icalendar-event:inline-reply-buttons): Display the response
+ buttons even if the user was not found in the list of attendees,
+ but change the labels of those buttons to make clear they are
+ not explicitly invited.
+ (gnus-icalendar-event--build-reply-event-body): Add an attendee
+ line for the user in case one was not found.
+
+2021-10-01 Alexandre Duret-Lutz <adl@lrde.epita.fr>
+
+ reply to the organizer of an ical event
+
+ RFC5546 specifies that participant status (accepted, tentative,
+ declined) should be sent to the organizer of the event. That
+ organizer is not necessarily the sender of the invitation; for
+ instance Google Calendar uses custom email addresses to receive these
+ notifications.
+
+ * lisp/gnus/gnus-icalendar.el (gnus-icalendar-send-buffer-by-mail):
+ Replace the default recipient of the reply by the organizer of the
+ event.
+ (gnus-icalendar-reply) Pass that organizer to the previous function.
+
+2021-10-01 akater <nuclearspace@gmail.com>
+
+ Restore the flet indentation fixes
+
+ * lisp/emacs-lisp/lisp-mode.el (lisp--local-defform-body-p): New
+ function.
+ (lisp-indent-function): Use it to fix cl-flet indentation.
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add a new command to mark a region as a test in erts-mode
+
+ * lisp/progmodes/erts-mode.el (erts-mode--in-test-p): Fix test.
+ (erts-tag-region): New command and keystroke.
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Allow skipping erts tests
+
+ * doc/misc/ert.texi (erts files): Document it.
+
+ * lisp/emacs-lisp/ert.el (ert-test-erts-file): Allow skipping tests.
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add more indentation tests for Emacs Lisp mode
+
+2021-10-01 Lars Ingebrigtsen <larsi@gnus.org>
+
+ Add new functionality to write buffer-based tests
+
+ * doc/misc/ert.texi (erts files): New node.
+
+ * lisp/files.el (auto-mode-alist): Map .erts to erts-mode.
+
+ * lisp/emacs-lisp/ert.el (ert-test-erts-file): New function.
+
+ * lisp/emacs-lisp/ert.el (ert--erts-specifications)
+ (ert--erts-unquote): Helper functions.
+
+ * lisp/progmodes/erts-mode.el: New mode and file.
+
+2021-10-01 Ihor Radchenko <yantar92@gmail.com>
+
+ Save position in mark ring before jumping to definition
+
+ * lisp/help-mode.el (help-function-def--button-function): Current
+ point is saved in the mark ring before jumping to definition.
+
+2021-09-30 Eli Zaretskii <eliz@gnu.org>
+
+ Update emacs-module sources for Emacs 29
+
+ * configure.ac (module_env_snippet_29): New.
+
+ * src/module-env-28.h: Remove the comment with instructions for
+ the next release.
+ * src/module-env-29.h: New file.
+
+2021-09-30 Eli Zaretskii <eliz@gnu.org>
+
+ Bump Emacs version to 29.0.50
+
+ * README:
+ * configure.ac:
+ * nt/README.W32:
+ * msdos/sed2v2.inp:
+ * src/msdos.c (internal_terminal_init):
+ * etc/refcards/ru-refcard.tex:
+ * etc/NEWS: Bump Emacs version to 29.0.50.
+ * etc/NEWS.28: New file.
+
+ * lisp/cus-edit.el (customize-changed-options-previous-release):
+ Update the reference version of Emacs.
+
+2021-09-05 João Távora <joaotavora@gmail.com>
+
+ Fixup last commit
+
+ Per https://github.com/joaotavora/eglot/issues/726.
+
+ I'm still not entirely convinced using all-completion here is a good
+ idea. As usual the completion list we get from the server is
+ pre-filtered to whatever the server wishes. Letting the completion
+ style do its own filtering (most completion styles use
+ completion-regexp-list and all-completions themselves) is completely
+ useless here.
+
+ Let's hope it's not harmful.
+
+ * eglot.el (eglot-completion-at-point): Fix all-completions call
+
+2021-09-05 João Távora <joaotavora@gmail.com>
+
+ Respect completion-regexp-alist in eglot's completion table
+
+ See GitHub discussion https://github.com/joaotavora/eglot/issues/726
+
+ Suggested-by: Felicián Németh <felician.nemeth@gmail.com>
+ Suggested-by: JD Smith
+
+ * eglot.el (eglot-completion-at-point): use all-completions.
+
+2021-09-01 João Távora <joaotavora@gmail.com>
+
+ Fix typo in user-visible eglot-ignored-server-capabilities
+
+ The name with the typo, eglot-ignored-server-capabilites, is still
+ supported.
+
+ Per https://github.com/joaotavora/eglot/issues/724.
+
+ * NEWS.md: Mention change
+
+ * eglot.el (eglot-ignored-server-capabilities): New defcustom.
+
+2021-08-17 João Távora <joaotavora@gmail.com>
+
+ Fall back to prompting user if eglot-alternatives fails
+
+ * eglot.el (eglot-alternatives): Don't error in interactive case.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/719
+
+2021-08-17 João Távora <joaotavora@gmail.com>
+
+ Let eglot-flymake-backend be in flymake-d-functions even if eglot off
+
+ This is useful when using eglot-stay-out-of and a pattern like:
+
+ (defun my/js-mode-hook ()
+ (add-hook 'flymake-diagnostic-functions 'some-eslint-backend nil
t))
+ (setq-local eglot-stay-out-of '(flymake))
+ (add-hook 'flymake-diagnostic-functions 'eglot-flymake-backend nil
t))
+
+ (add-hook 'js-mode-hook 'my/js-mode-hook)
+
+ Then, _both_ backends will run unconditionally, but Eglot backend only
+ actually reports diagnostics if Eglot is on.
+
+ * eglot.el (eglot-flymake-backend): If buffer isn't being managed
+ by Eglot, behave as a noop.
+
+2021-08-16 Yuuki Harano <masm+github@masm11.me>
+
+ Make PGTK's additions conditioinal
+
+ * src/.gdbinit: Make them enclosed in condition.
+ * src/alloc.c: Define defined_HAVE_PGTK and make it externally visible.
+
+2021-08-16 Yuuki Harano <masm+github@masm11.me>
+
+ * lisp/term/pgtk-win.el (pgtk-preedit-text): Write doc string
+
+ * lisp/term/pgtk-win.el (pgtk-face-at-pos): Remove unused function
+
+2021-08-15 Yuuki Harano <masm+github@masm11.me>
+
+ * lisp/term/pgtk-win.el: Remove some font stuff
+
+ pgtk-popup-font-panel does not exist.
+ pgtk-respond-to-change-font is not used.
+
+2021-08-15 Yuuki Harano <masm+github@masm11.me>
+
+ * lisp/term/pgtk-win.el (pgtk-pop-up-frames): Remove since it is not
used
+
+ * configure.ac: Add a notice to --with-pgtk
+
+2021-08-15 Yuuki Harano <masm+github@masm11.me>
+
+ * configure.ac: Remove imagemagick special support code for pgtk
+
+ When emacs did not support imagemagick 7 and I had imagemagick both 6
and 7,
+ I wanted to use imagemagick 6.
+ The code is not needed any more.
+
+2021-07-21 Brian Leung <bkleung89@gmail.com>
+ João Távora <joaotavora@gmail.com
+
+ Add support for locationlink
+
+ Fix https://github.com/joaotavora/eglot/issues/711.
+
+ LocationLink was added in version 3.14 of the protocol and is
+ sometimes used in lieu of Location for definition- and
+ reference-related requests.
+
+ * eglot.el (eglot--lsp-interface-alist): Update with LocationLink.
+ (eglot-client-capabilities): Advertise
+
textDocument.{definition,declaration,implementation,typeDefinition}.linkSupport.
+ (eglot--lsp-xrefs-for-method): Accept LocationLinks.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/712
+
+2021-06-18 Yuuki Harano <masm+github@masm11.me>
+
+ Fix a frame created without scroll/menu/toolbar is empty
+
+ * src/pgtkterm.c (size_allocate): Get frame pointer through user_data.
+ (pgtk_set_event_handler): Pass it.
+
+2021-06-18 Yuuki Harano <masm+github@masm11.me>
+
+ Revert "Revert "* src/pgtkfns.c: Do not show an empty frame
prematurely""
+
+ This reverts commit b0d688673b0be774c3735eef304f69568bd59bcf.
+
+ The commit 83c35b8 causes the empty frame bug, so I reverted.
+ Now, I debugged so re-apply the commit.
+
+2021-06-13 João Távora <joaotavora@gmail.com>
+
+ Transpose order of "pylsp" and "pyls" alternatives
+
+ When operating remotely, searching for an executable that don't exist
+ takes longer than usual. Better to put the most likely server first
+ in the list to minimize the slowdown.
+
+ * eglot.el (eglot-server-programs): Transpose python mode alternatives
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/703
+
+2021-06-13 João Távora <joaotavora@gmail.com>
+
+ Don't call eglot--executable-find more than needed
+
+ * eglot.el (eglot-alternatives): Complexify.
+ (eglot--guess-contact): No need to 'executable-find' if path
+ absolute.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/703
+
+2021-06-13 Yuuki Harano <masm+github@masm11.me>
+
+ Revert "* src/pgtkfns.c: Do not show an empty frame prematurely"
+
+ This reverts commit 83c35b86da233870231e30d114ffa4640eb10081.
+
+2021-06-13 Yuuki Harano <masm+github@masm11.me>
+
+ Revert "; * src/pgtkfns.c (Fx_create_frame): Fix coding style"
+
+ This reverts commit 4b91168c657e3476b8a0a3f539ee6bcb1b71e3d5.
+
+2021-06-13 Jindřich Makovička <makovick@gmail.com>
+
+ * src/pgtkfns.c: Do not show an empty frame prematurely
+
+ Set only the child widgets visible, leave the outer window
+ to pgtk_make_frame_visible .
+
+2021-06-11 Liu Hui <ilupin@users.noreply.github.com> (tiny change)
+
+ Consider tramp in eglot-alternatives
+
+ * eglot.el (eglot-alternatives): Use eglot--executable-find.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/702
+
+2021-06-08 Jindřich Makovička <makovick@gmail.com>
+
+ * src/pgtkselect.c: Avoid Glib assertion warnings
+
+ Do not call g_object_get_qdata, when the clipboard has no owner,
+ and obj is NULL. Just return Qnil immediately.
+
+2021-06-05 Yuuki Harano <masm+github@masm11.me>
+
+ Support frame-scale-factor on pgtk frames
+
+ * src/pgtkfns.c (pgtk_frame_scale_factor): New function to get frame
+ scale factor.
+ * src/frame.h: Call it when a pgtk frame.
+ * src/pgtkterm.h: Add the declaration.
+
+2021-05-30 Jindřich Makovička <makovick@gmail.com>
+
+ * src/pgtkterm.c: Honor system DPI settings
+
+2021-05-29 Yuuki Harano <masm+github@masm11.me>
+
+ Disable hyper key when super and hyper conflict
+
+ * src/pgtkterm.c (x_find_modifier_meanings): If super_mod_mask and
+ hyper_mod_mask are equal, then disable hyper.
+
+2021-05-26 João Távora <joaotavora@gmail.com>
+
+ Use project-files to know which directory watchers to skip
+
+ The directory-finding logic is probably a bit slower than using
+ eglot--directories-recursively, but since it honours `.gitignores` and
+ ignores more directories it's much faster overall. And guaranteed to
+ create less watchers.
+
+ Thanks to Dmitry Gutov <dgutov@yandex.ru> for the idea.
+
+ * eglot.el (eglot--directories-recursively): Remove.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/697
+
+2021-05-26 João Távora <joaotavora@gmail.com>
+
+ Hard code an exception to "node_modules" directores
+
+ * eglot.el (eglot--directories-recursively): Fix.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/697
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/645
+
+2021-05-26 João Távora <joaotavora@gmail.com>
+
+ Again speed up directory watching
+
+ Previously, given a number of globs, Eglot would try to place system
+ watchers only in those subdirectories that could potentially be
+ matched by a glob. This meant traversing the whole tree, which could
+ be impractical. Just place watchers in every subdirectory of the
+ project (you may run out of watchers).
+
+ * eglot.el (eglot-register-capability): Simplify.
+ (eglot--files-recursively): Delete.
+ (eglot--directories-recursively): Fix.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/697
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/645
+
+2021-05-22 João Távora <joaotavora@gmail.com>
+
+ Support multiple servers out-of-box for same mode
+
+ Also per https://github.com/joaotavora/eglot/issues/537.
+
+ * eglot.el (eglot-alternatives): new helper.
+ (eglot-server-programs): Use it. Use clangd and pylsp.
+
+ * NEWS.md: Mention feature.
+
+ * README.md (Connecting to a server): Mention pylsp and clangd.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/688
+
+2021-05-22 Augusto Stoffel <arstoffel@gmail.com>
+
+ Allow staying out of flymake-mode, eldoc-mode
+
+ * eglot.el (eglot--managed-mode): don't enable flymake or eldoc when
+ those symbols belong to eglot-stay-out-of.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/671
+
+2021-05-22 Colin Woodbury <colin@fosskers.ca>
+
+ * src/frame.c (Fframep): Update framep docstring
+
+2021-05-19 Yuuki Harano <masm+github@masm11.me>
+
+ Fix compile error when PGTK_DEBUG is enabled
+
+ * src/pgtkterm.c (pgtk_set_window_size): Remove "pixelwise" arg,
+ which is already non-existent.
+
+2021-05-19 Yuuki Harano <masm+github@masm11.me>
+
+ * src/image.c: Fix compile error related xpm in image.c
+
+ Use the same code as NS.
+
+2021-05-17 Troy Hinckley <t.macman@gmail.com>
+
+ Fix tests and documentation for hook
+
+ Auto detect mode suffix in hook keyword
+
+2021-05-16 Michael Livshin <mlivshin@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Manage cross-referenced files outside project in same server
+
+ Close https://github.com/joaotavora/eglot/issues/686, Close
https://github.com/joaotavora/eglot/issues/695.
+
+
+ * eglot.el (eglot-extend-to-xref): new defcustom, default to
+ nil.
+ (eglot--servers-by-xrefed-file): new hash table, mapping file names
+ to servers.
+ (eglot--managed-mode): use eglot-current-server, instead of
+ eglot--cached-server directly.
+ (eglot--current-server-or-lose): ditto.
+ (eglot--maybe-activate-editing-mode): ditto.
+ (eglot-current-server): move all cached-server update logic here -- if
+ eglot--cached-server is nil, try to find it using current project or
+ (optionally) xref location.
+ (eglot--xref-make-match): record the xref location.
+
+ * README.md (Customization): Mention new defcustom.
+
+ * NEWS.md: Mention new feature
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/76
+
+2021-05-15 Yuuki Harano <masm+github@masm11.me>
+
+ Revert "Update texts while busy"
+
+ This reverts commit 8a649cba44cc637b5326cee9fe3febc55c653719.
+ Because the position of the initial frame is not desired, unless
+ initial-frame-alist is set.
+
+2021-05-15 Yuuki Harano <masm+github@masm11.me>
+
+ Update texts while busy
+
+ Pgtk didn't update text and C-g didn't take effect while it is busy.
+ By timer interrupts, we can call pgtk_read_socket, and update texts
+ and handle C-g.
+
+ * src/pgtkterm.c (start_timer): New function to start timer.
+ (pgtk_show_hourglass): Remove code to start timer.
+ (pgtk_hide_hourglass): Remove code to stop timer.
+ (pgtk_term_init): Call start_timer().
+
+2021-05-14 Yuuki Harano <masm+github@masm11.me>
+
+ Create a variable to enable selection on multi display
+
+ * src/pgtkselect.c (pgtk_selection_usable): If it is true, always
+ returns true.
+ (syms_of_pgtkselect): New bool variable.
+
+2021-05-13 Yuuki Harano <masm+github@masm11.me>
+
+ Treat all the wayland connection as the same display
+
+ On Wayland,
+ even if without WAYLAND_DISPLAY, --display DISPLAY works, but
+ gdk_display_get_name() always return "wayland-0", which may be
+ different from DISPLAY.
+ If with WAYLAND_DISPLAY, then it always returns WAYLAND_DISPLAY.
+ So pgtk emacs is confused and enter multi display environment.
+ To workaround this situation, treat all the wayland-* as the same
+ display.
+
+ * src/pgtkfns.c (is_wayland_display): New function to decide it is a
+ wayland connection.
+ (pgtk_display_info_for_name): If both are wayland connection, then
+ they are the same display.
+
+2021-05-13 Jim Porter <itsjimporter@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Correct path/uri when using tramp from ms windows
+
+
+ * eglot.el (eglot--connect): Ensure drive letter doesn't sneak into
+ rootPath. (eglot--path-to-uri): Only add a leading "/" for local MS
+ Windows paths. (eglot--uri-to-path): Only remove leading "/" from
+ local MS Windows paths.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/679
+
+2021-05-13 João Távora <joaotavora@gmail.com>
+
+ Provide context for finer project-find-functions
+
+ * eglot.el (eglot--guess-contact): Use eglot--current-project.
+ (eglot): Adjust docstring.
+ (eglot-lsp-context): New variable.
+ (eglot--current-project): New helper.
+ (eglot--maybe-activate-editing-mode, eglot--eclipse-jdt-contact):
+ Use eglot--current-project.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/687
+
+2021-05-12 Jeff Walsh <fejfighter@gmail.com>
+
+ * src/pgtkterm.c remove duplicated code
+
+ * src/pgtkterm.c (pgtk_update_window_begin):
+ (pgtk_update_window_end):
+ (pgtk_redisplay_interface): Remove duplicate code and default to the
+ generic gui_update_window_begin/end implementations
+
+2021-05-10 Yuuki Harano <masm+github@masm11.me>
+
+ Fix frame size shrinking when turning fringe/scrollbars on/off
+
+ In 66a36f1, I keeped passing text size by mistake.
+
+ * src/pgtkterm.c (pgtk_set_window_size): Don't use
+ FRAME_PIXEL_TO_TEXT_WIDTH/HEIGHT to pass pixel size.
+
+2021-05-09 Yuuki Harano <masm+github@masm11.me>
+
+ Fix pgtk_make_frame_visible doesn't work
+
+ * src/pgtkterm.c (pgtk_wait_for_map_event): New function to wait for
+ map events. The content is moved from pgtk_make_frame_visible.
+ (pgtk_make_frame_visible): Call pgtk_wait_for_map_event, instead of
+ process here directly.
+ (pgtk_make_frame_invisible): Call pgtk_wait_for_map_event to wait
+ for multiple map events.
+
+2021-05-08 Yuuki Harano <masm+github@masm11.me>
+
+ * src/pgtkmenu.c (show_help_event): Let emacs not show menu tooltips
+
+2021-05-08 Yuuki Harano <masm+github@masm11.me>
+
+ Entrust Gtk with handling tooltips
+
+ Previously, tooltips for menu items are below the menu.
+ To solve it, set tooltip text on menu items in advance, and entrust
+ gtk with handling tooltips.
+
+ * src/gtkutil.c (xg_show_tooltip): New function for pgtk to set
+ tooltip text on the widget.
+ (xg_hide_tooltip): New function for pgtk to clear tooltip text on the
+ widget.
+ (xg_create_frame_widgets): Don't set initial tooltips text, and don't
+ use qttip_cb.
+ (xg_create_frame_outer_widgets): Ditto.
+ (make_menu_item): Set tooltip text on the menu item.
+ * src/gtkutil.h: New declaration of xg_show_tooltip for pgtk.
+ * src/pgtkfns.c (Fx_show_tip): Calls xg_show_tooltip, and always ok.
+
+2021-04-30 Steve Purcell <steve@sanityinc.com>
+ João Távora <joaotavora@gmail.com>
+
+ Fix emacs 28 warning by avoiding positional args in define-minor-mode
+
+ * eglot.el (eglot--managed-mode): Avoid positional args.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/685
+
+2021-04-29 Steve Purcell <steve@sanityinc.com>
+ João Távora <joaotavora@gmail.com>
+
+ Allow lsp languageid to be overridden via eglot-server-programs
+
+ Close https://github.com/joaotavora/eglot/issues/678. Per
https://github.com/joaotavora/eglot/issues/677
+
+ * eglot-tests.el (eglot--guessing-contact): Add
+ GUESSED-LANG-ID-SYM param.
+ (eglot-server-programs-guess-lang): New test.
+
+ * eglot.el (eglot-server-programs): Augment entries for caml-mode
+ and tuareg-mode. Enhance docstring.
+ (eglot--lookup-mode): New helper.
+ (eglot--guess-contact): Call eglot--lookup-mode.
+ (eglot, eglot-reconnect): Pass language-id to eglot--connect
+ (eglot--connect): Receive LANGUAGE-ID
+ (eglot--TextDocumentItem): Simplify. Use
+ `eglot--current-server-or-lose'
+
+ * README.md (Handling quirky servers): Mention new feature.
+
+2021-04-28 Augusto Stoffel <arstoffel@gmail.com>
+
+ Add a completion-category-defaults entry
+
+ Setting completion-styles buffer-locally is harder to customize and
+ can break some completion UIs.
+
+ Emacs bughttps://github.com/joaotavora/eglot/issues/48073
+
+ * eglot.el: Add a completion-category-defaults entry, if applicable.
+ (eglot--managed-mode): Don't set `completion-styles'
+ (eglot-completion-at-point): Add style metadata to
+ completion table.
+
+2021-04-25 Steve Purcell <steve@sanityinc.com>
+
+ Switch default langserver for ocaml to ocamllsp
+
+ The repo for ocaml-language-server has been archived and inactive
+ for quite some time:
+
+ https://github.com/ocaml-lsp/ocaml-language-server
+
+ Meanwhile, ocaml-lsp is the generally-preferred option, and is actively
+ maintained in the ocaml org itself:
+
+ https://github.com/ocaml/ocaml-lsp/
+
+ * eglot.el (eglot-server-programs): switch caml-mode entry.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/677
+
+2021-04-23 João Távora <joaotavora@gmail.com>
+
+ Declare eglot--cached-server before use
+
+ Per https://github.com/joaotavora/eglot/issues/670.
+
+ Otherwise the dynamic binding of it in in eglot--connect won't work.
+
+ * eglot.el (eglot--cached-server): Move up.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/673
+
+2021-04-20 João Távora <joaotavora@gmail.com>
+
+ Make eglot-current-server work in notification handlers
+
+ * eglot.el (eglot--connect): Ensure `eglot--cached-server` bound
+ when calling notification/request methods.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/670
+
+2021-04-17 Daniel Perez Alvarez <danielpza@protonmail.com> (tiny change)
+
+ feat: add update custom packages command
+
+2021-04-13 Yuuki Harano <masm+github@masm11.me>
+
+ Workaround touchscreen events are ignored on sway
+
+ On sway, gdk_device_get_window_at_position() in
+ xg_event_is_for_scrollbar always returns NULL, and all the touchscreen
+ press events are mishandled as on scrollbar.
+ We don't need to call xg_event_is_for_scrollbar, so removed the call.
+
+ * src/pgtkterm.c (button_event): Don't call xg_event_is_for_scrollbar.
+
+2021-04-12 João Távora <joaotavora@gmail.com>
+
+ Add a passing test demonstrating clangd + tramp works
+
+ ... It works at least within the minimal, well-controlled reproducible
+ settings of this test. Maybe if we knew something more about the
+ setup of the user who submitted this report we would be able to
+ concoct a failing test, but we don't.
+
+ * eglot-tests.el (subr-x): Require it
+ (eglot--make-file-or-dir): Return expanded file name.
+ (eglot-tests--lsp-abiding-column-1): New helper.
+ (eglot-lsp-abiding-column): Use it.
+ (eglot--tramp-test): Fix `skip-unless` condition.
+ (eglot--tramp-test-2): New test.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/667
+
+2021-04-12 Dmitry Gutov <dgutov@yandex.ru>
+
+ Merge pull request from mohkale/company-kind
+
+ (feature): Add :company-kind to eglot-completion-at-point
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/656
+
+2021-04-12 Mohsin Kaleem <mohkale@kisara.moe>
+
+ Add :company-kind to eglot-completion-at-point
+
+ * eglot.el (eglot-completion-at-point): Add a :company-kind field to the
+ completion-at-point function so that company can associate completion
+ candidates with lsp types.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/652
+
+2021-04-10 Mohsin Kaleem <mohkale@kisara.moe>
+
+ Highlight relevant part of xref hits using xref-match face
+
+ Also close https://github.com/joaotavora/eglot/issues/657.
+
+ (eglot--xref-make-match): Use face 'xref-match instead of 'highlight.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/650
+
+2021-04-10 João Távora <joaotavora@gmail.com>
+
+ Attempt to speed up initial directory/glob correspondence
+
+ In https://github.com/joaotavora/eglot/issues/602, not only a new glob
processing system was implemented, but
+ also a new, more correct, way to look for directories that might hold
+ files matched by one of these globs.
+
+ Answering this question is important because the file watchers for
+ 'workspace/didChangeWatchedFiles' are placed on a per-directory basis.
+ Previously, a glob such as /foo/**/bar/*.el would fail to produce
+ practical file-watching effects because /foo/**/bar/ isn't really a
+ directory.
+
+ However, answering this question is also expensive, as the globs sent
+ by the LSP server are meant to match files, not directories. The only
+ way is to list all files under the project's root directory and test
+ each glob on each one. If it matches at least one file, that file's
+ directory is meant to be watched.
+
+ We suspect that in https://github.com/joaotavora/eglot/issues/645 and
https://github.com/joaotavora/eglot/issues/633 we are falling victim to LSP
server
+ who serve a tremendous unoptimized number of globs, one for each file.
+ So instead of sending just '/foo/**/bar/*.el' they send
+ '/foo/**/bar/quux.el', '/foo/**/bar/quuz.el', etc... which would
+ tremendeously slow down the process. But this is only a suspicion.
+
+ This commit tries some simple optimizations: if a directory is known
+ to be watch-worthy becasue one of its files matched a single glob, no
+ more files under that directory are tried. This should help somewhat.
+
+ Also fixed a bug in 'eglot--files-recursively', though I suspect that
+ doesn't make that much of a difference.
+
+ * eglot.el (eglot--directories-matched-by-globs): New helper.
+ (eglot--files-recursively): Fix bug.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/645
+
+2021-04-03 João Távora <joaotavora@gmail.com>
+
+ Generalize eglot-flymake-backend
+
+ Loosen coupling between eglot-flymake-backend and flymake-mode. The
+ flymake-mode check in 'eglot-handle-notification publishDiagnostics'
+ was a hack (and it wasn't even functioning correctly on M-x
+ eglot-shutdown/eglot-reconnect).
+
+ This should also allow eglot-flymake-backend to be driven by
+ diagnostic-annotating frontends other than Flymake, such as the
+ popular Flycheck package.
+
+ * eglot.el (eglot--managed-mode): Use eglot--report-to-flymake.
+ (eglot-handle-notification textDocument/publishDiagnostics): Use
+ eglot--report-to-flymake.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/596
+
+2021-03-26 rvs314 <71688932+rvs314@users.noreply.github.com> (tiny change)
+
+ Offer better control over "languageid" value sent to lsp
+
+ Handles the issue of languages whose major mode has a
+ different name than the name that the LSP server expects for
+ the language. One can now:
+
+ (put 'favourite-major-mode 'eglot-language-id "foobarbaz")
+
+ And "foobarbaz" will be used as the LSP "languageId" value.
+
+ * eglot.el (eglot--TextDocumentItem): Consult 'eglot-language-id.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/525
+
+2021-03-19 Johnathan C. Maudlin <13183098+jcmdln@users.noreply.github.com>
(tiny change)
+
+ Add support for zls, the zig language server
+
+ * eglot.el (eglot-server-programs): Add zig-mode entry.
+
+ * README.md (Connecting to a server): Mention zls.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/646
+
+2021-03-15 bc² <odanoburu@users.noreply.github.com> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ Add new command eglot-shutdown-all
+
+ Also closes https://github.com/joaotavora/eglot/issues/644
+
+ * NEWS.md: mention new command
+
+ * README.md (Commands and keybindings): mention new command. Tweak
+ documentation for eglot-shutdown and eglot-reconnect.
+
+ * eglot.el (eglot-shutdown): Tweak docstring.
+ (eglot-shutdown-all): New command.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/643
+
+2021-03-13 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ Properly sort use-package-statistics-report
+
+2021-03-11 Yuuki Harano <masm+github@masm11.me>
+
+ Fix some leaks
+
+ * src/pgtkterm.c (x_free_frame_resources): Free cursors.
+ (pgtk_delete_terminal): Free cursors and events.
+
+2021-03-07 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ Fix void-variable use-package-enable-imenu-support
+
+2021-03-06 João Távora <joaotavora@gmail.com>
+
+ Autoload eglot-workspace-configuration's safe-l-v spec
+
+ This is useful for those who edit files in a certain source tree where
+ this directory-local variable is set, but without having yet loaded
+ eglot.el. Those users would be bothered by the usual
+ risky-local-variable prompt.
+
+ * eglot.el (eglot-workspace-configuration): Add autoload cookie.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/555
+
+2021-03-06 Brian Leung <bkleung89@gmail.com>
+
+ Indicate support for activeparameter
+
+ * eglot.el (eglot-client-capabilities): Indicate
:activeParameterSupport.
+
+ Fixup of commit bdf57d5d4e888a6a7b4066b87497da8a8d9e36de.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/605
+
+2021-03-06 João Távora <joaotavora@gmail.com>
+
+ Simplify eglot--apply-workspace-edit
+
+ Suggested by Brian Leung.
+
+ * eglot.el (eglot--apply-workspace-edit): simplify
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/620
+
+2021-03-06 Augusto Stoffel <arstoffel@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Remove highlight overlays immediately when symbol edited
+
+ * eglot.el (eglot--highlight-piggyback): Add modification-hooks
+ property to the created overlays.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/626
+
+2021-03-06 Theodor Thornhill <theo@thornhill.no>
+ João Távora
+
+ Convert colon to hex in uri
+
+ On windows, in the path portion of the URI, ':' must be hexified to
+ '%3A'. In the URL scheme, the ':' stays.
+
+ * eglot.el (eglot--uri-path-allowed-chars): define what characters are
+ allowed in path portion of URI.
+
+ * eglot.el (eglot--path-to-uri): ensure colon in 'file://' stays, but
+ and others are hexified.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/638
+
+2021-03-06 Brian Cully <bjc@kublai.com>
+ João Távora <joaotavora@gmail.com>
+
+ Add tramp support
+
+ Also close https://github.com/joaotavora/eglot/issues/463, close
https://github.com/joaotavora/eglot/issues/84.
+
+ Thanks to Brian Cully for the original simple idea. The basic
+ technique is to pass :file-handler t to make-process, then tweak
+ eglot--uri-to-path and eglot--path-to-uri, along with some other
+ functions, to be aware of "trampy" paths".
+
+ Crucially, a "stty hack" was needed. It has been encapsulated in a
+ new a new eglot--cmd helper, which contains a comment explaining the
+ hack.
+
+
+ * eglot.el (eglot--executable-find): Shim two-arg executable-find
+ function only available on Emacs 27.
+ (eglot--guess-contact): Use eglot--executable-find.
+ (eglot--cmd): New helper.
+ (eglot--connect): Use eglot--cmd. Use :file-handler arg to
+ make-process.
+ (eglot--connect, eglot--path-to-uri): Be aware of trampy file
+ names.
+
+ * eglot-tests.el (eglot-tests--auto-detect-running-server-1): New
helper.
+ (eglot--guessing-contact): Better mock for executable-find.
+ (eglot--tramp-test): New test.
+
+ * NEWS.md: mention TRAMP support.
+
+ * README.md: mention TRAMP support.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/637
+
+2021-03-03 Theodor Thornhill <theo@thornhill.no>
+
+ Correctly protect against zero-length completion items
+
+ Close https://github.com/joaotavora/eglot/issues/636.
+
+ * eglot.el (eglot-completion-at-point): check for zero length string in
proxy
+ rather than the item.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/635
+
+2021-03-02 Yuuki Harano <masm+github@masm11.me>
+
+ Fix unicode strings can't be pasted correctly
+
+ * lisp/select.el (x-select-request-type): Use text/plain;charset=utf-8
+ instead.
+ (gui--selection-value-internal): same.
+ (gui-get-selection): Treat text/plain;charset=utf-8 as utf-8.
+ * src/pgtkselect.c (Fpgtk_get_selection_internal): Support
+ text/plain;charset=utf-8 as foreign-selection.
+ (syms_of_pgtkselect): Add new symbol.
+
+2021-03-02 Yuuki Harano <masm+github@masm11.me>
+
+ Support selection type text/plain on wayland
+
+ Apps on XWayland need this.
+
+ * lisp/select.el (x-select-request-type): Add choice `text/plain'.
+ (gui--selection-value-internal): Add text/plain to the default list.
+
+2021-02-27 Theodor Thornhill <theo@thornhill.no>
+ João Távora <joaotavora@gmail.com>
+
+ Protect against empty uris on windows
+
+ Per https://github.com/joaotavora/eglot/issues/630.
+
+ * eglot.el (eglot--uri-to-path): Check string length
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/610
+
+2021-02-26 João Távora <joaotavora@gmail.com>
+
+ Urify better
+
+ See also
+
https://microsoft.github.io/language-server-protocol/specifications/specification-current/#uri.
+
+ * eglot.el (eglot--path-to-uri): use directory-file-name.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/627
+
+2021-02-26 João Távora <joaotavora@gmail.com>
+
+ Fixup last commit to fix
+
+ * eglot.el (eglot-handle-request): Fixup. Use let*
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/627
+
+2021-02-26 João Távora <joaotavora@gmail.com>
+
+ Handle empty actions array in window/showmessagerequest
+
+ * eglot.el (eglot-handle-request window/showMessageRequest):
+ Handle empty actions.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/627
+
+2021-02-24 Philipp Stephani <phst@google.com>
+
+ Remove uses of deprecated ‘flet’ macro
+
+ Instead, use the non-deprecated ‘cl-flet’ and ‘cl-letf’ macros from the
+ ‘cl-lib’ package.
+
+ This also allows us to remove the ‘plist-delete’ helper function, which
was
+ only used to effectively un-deprecate ‘flet’.
+
+2021-02-24 João Távora <joaotavora@gmail.com>
+
+ Handle null reply for textdocument/definition
+
+ * eglot.el (eglot--lsp-xrefs-for-method): Handle null response
+ from textDocument/definition & friends.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/625
+
+2021-02-23 Yuuki Harano <masm+github@masm11.me>
+
+ Make scrollbars ignore scroll-bar-fore/background.
+
+ * src/pgtkfns.c (pgtk_set_scroll_bar_foreground): Handle frame
+ parameters but actually ignore it.
+ (pgtk_set_scroll_bar_background): The same.
+
+2021-02-22 Naoya Yamashita <conao3@gmail.com>
+
+ add testcase
+
+2021-02-22 Naoya Yamashita <conao3@gmail.com>
+
+ add autoload keyword
+
+ :autoload is similar to :command but this generate autoload
+ statement as *no-interactive* function.
+
+2021-02-21 Jonathan del Strother <me@delstrother.com> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ Silence messages while formatting markup
+
+ Also fix https://github.com/joaotavora/eglot/issues/501.
+
+ Prior to this, activating gfm-view-mode could echo messages
+ like "markdown-mode math support enabled" to the minibuffer.
+
+ Message are both silenced from from the minibuffer and the
+ *Messaages* log.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/502
+
+2021-02-20 Yuuki Harano <masm+github@masm11.me>
+
+ Work around I can't copy and paste unicode string to wayland chromium
+
+ * src/pgtkselect.c (Fpgtk_own_selection_internal):
+ Remove text/plain, since unicode strings are not correctly
+ encoded/decoded between Gtk and chromium(wayland) with it.
+
+2021-02-16 Yuuki Harano <masm+github@masm11.me>
+
+ Fix I can't paste international text from clipboard
+
+ * lisp/select.el (gui--selection-value-internal):
+ Try UTF8_STRING when pgtk as well as x.
+
+2021-02-16 Yurii Kholodkov <urist.mckorobochka@gmail.com> (tiny change)
+
+ fix docstring. was: invalid function name
+
+2021-02-14 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Fix unused macro build warning in image.c
+
+ * src/image.c
+ [HAVE_PGTK] (DONT_CREATE_TRANSFORMED_IMAGEMAGICK_IMAGE): Define only
+ if HAVE_IMAGEMAGICK is also defined, as it is otherwise
+ unused (bug#46491).
+ (image_set_transform): Reduce nesting of preprocessor conditionals.
+
+2021-02-11 Robert Pluim <rpluim@gmail.com>
+
+ Don't crash if we can't find a monitor model name
+
+ This can happen when running emacs over a forwarded X11 connection.
+
+ * src/pgtkfns.c (pgtk_get_monitor_scale_factor): Return 0 if we're
+ passed a NULL model name.
+
+2021-02-11 Yuuki Harano <masm+github@masm11.me>
+
+ Support getting a image from clipboard
+
+ * src/pgtkselect.c (Fpgtk_get_selection_internal): Reimplement
+ referring selection_data_to_lisp_data in xselect.c
+ (syms_of_pgtkselect): Add symbols.
+
+2021-02-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from minad/improved-unbind
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/910
+
+2021-02-10 Daniel Mendler <mail@daniel-mendler.de>
+
+ unbind-key: Ensure that keys are removed from the keymap
+
+ * The removal from the keymap is performed by bind-key--remove
+ * Use the same argument normalization as bind-key
+
+2021-02-10 Daniel Mendler <mail@daniel-mendler.de>
+
+ bind-key: Use new symbols for kmapvar
+
+2021-02-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tzz/tzz/use-package-use-theme
+
+ Add use-package-use-theme and avoid missing theme errors
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/907
+
+2021-02-06 Ted Zlatanov <tzz@lifelogs.com>
+
+ Add use-package-use-theme and avoid missing theme errors
+
+2021-02-06 Yuuki Harano <masm+github@masm11.me>
+
+ Remove unused arg as xmenu.c
+
+ * src/pgtkmenu.c (Fx_menu_bar_open_internal): Remove unused arg.
+ (pgtk_activate_menubar): Remove unused arg.
+ (set_frame_menubar): Remove unused arg.
+ (initialize_frame_menubar): Remove unused arg.
+
+2021-02-06 Misha Gusarov <dottedmag@dottedmag.net> (tiny change)
+
+ Make reading GNOME settings optional.
+
+ * src/pgtkterm.c (pgtk_term_init): Make reading GNOME settings optional.
+ (pgtk_text_scaling_factor): New function to read text scaling factor.
+
+2021-02-06 Ted Zlatanov <tzz@lifelogs.com>
+
+ Merge pull request from kljohann/custom-use-single-let
+
+ Use a single let binding when expanding consecutive :custom forms
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/906
+
+2021-02-03 Johann Klähn <johann@jklaehn.de> (tiny change)
+
+ Use a single let binding when expanding consecutive :custom forms
+
+2021-02-03 João Távora <joaotavora@gmail.com>
+
+ Simplify dir-watching strategy of w/didchangewatchedfiles
+
+ Instead of massaging the globPattern to match directories instead of
+ files, which is fragile, gather the list of directoris to watch by
+ matching the globPattern against every file recursively (except hidden
+ files and dirs).
+
+ This is still not 100% correct, but should do the right thing is most
+ cases. Notably, if the correct dirs are being watched, the glob
+ pattern is matched against all existing and new files in those
+ directories, which does include hidden files.
+
+ * eglot.el (eglot-register-capability): match file globs against
+ files only.
+ (eglot--files-recursively): Rename from eglot--directories-recursively.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/602
+
+2021-02-02 João Távora <joaotavora@gmail.com>
+
+ Tweak glob-parsing grammar
+
+ Alternative groups {} don't bork on forward slash.
+
+ * eglot.el (eglot--glob-parse): Tweak {} grammar.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/602
+
+2021-02-01 Philip Kaludercic <philipk@posteo.net>
+ João Távora <joaotavora@gmail.com>
+
+ Make eglot-ignored-server-capabilites defcustom a set
+
+
+ * eglot.el (eglot-ignored-server-capabilites): Now a set.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/467
+
+2021-02-01 João Távora <joaotavora@gmail.com>
+
+ Speed up glob matching 2x
+
+ with-temp-buffer was taking a lot of time, presumably because it kills
+ the buffer. Since emacs is single-threaded, we can safely reuse a
+ single buffer.
+
+ * eglot.el (eglot--glob-parse): Simplify grammar.
+ (eglot--glob-compile): Don't with-temp-buffer.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/602
+
+2021-02-01 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from
tzz/tzz/remove-use-package-from-custom-enabled-themes
+
+ Remove use-package theme from global list of custom-enabled-themes
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/899
+
+2021-02-01 Felicián Németh <felician.nemeth@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Support phps-mode
+
+ phps-mode is available from ELPA, php-mode isn't.
+
+ * eglot.el (eglot-server-programs): Recognize phps-mode as a PHP mode.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/418
+
+2021-02-01 Brian Leung <bkleung89@gmail.com> (tiny change)
+
+ Remove duplicate entry for "registration" lsp type
+
+ * eglot.el (eglot--lsp-interface-alist): Remove extra Registration
entry.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/612
+
+2021-02-01 João Távora <joaotavora@gmail.com>
+
+ Prefer typescript-language-server for js&ts
+
+ * README.md (Connecting to a server): Prefer
+ typescript-language-server.
+
+ * eglot.el (eglot-server-programs): Use
+ typescript-language-server.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/566
+
+2021-02-01 João Távora <joaotavora@gmail.com>
+
+ Also override global flymake-diagnostic-functions
+
+ The global value of the flymake-diagnostic-functions is likely to be
+ of little use in Eglot-managed buffers, so don't run it. Likely the
+ value flymake-proc-legacy-flymake is there which is not only likely of
+ little uses but also causes trouble in some situations.
+
+ The user can easily avert this by leveraging the variable
+ eglot-stay-out-of.
+
+ * eglot.el (eglot--managed-mode): Don't run global
+ flymake-diagnostic-functions.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/616
+
+2021-02-01 Brian Leung <bkleung89@gmail.com>
+
+ Explicitly require seq.el
+
+ `seq-empty-p' is not autoloaded in Emacs >= 26.3, so it must be
+ explicitly required.
+
+ * eglot.el: Require seq.el.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/613
+
+2021-02-01 Brian Leung <bkleung89@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Support activeparameter property for signatureinformation
+
+ SignatureInformation.activeParameter is new in version 3.16.0 of the
+ protocol. When non-nil, it is used in place of
+ SignatureHelp.activeParameter. The latter was deemed insufficient in
+ languages where multiple signatures for the same function may exist
+ with arbitrary order of parameters, like Python.
+
+
+ * eglot.el (eglot--lsp-interface-alist): Add
+ SignatureInformation.activeParameter.
+
+ * eglot.el (eglot--sig-info): Prioritize
+ SignatureInformation.activeParameter over
+ SignatureHelp.activeParameter.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/605
+
+2021-01-31 João Távora <joaotavora@gmail.com>
+
+ Fully handle lsp glob syntax
+
+ Thanks to Brian Leung and Dan Peterson for testing and helping me spot
+ bugs.
+
+ * eglot-tests.el (eglot--glob-match): New test.
+
+ * eglot.el (eglot--wildcard-to-regexp): Delete.
+ (eglot-register-capability): Rework.
+ (eglot--glob-parse, eglot--glob-compile, eglot--glob-emit-self)
+ (eglot--glob-emit-**, eglot--glob-emit-*, eglot--glob-emit-?)
+ (eglot--glob-emit-{}, eglot--glob-emit-range)
+ (eglot--directories-recursively): New helpers.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/602
+
+2021-01-30 João Távora <joaotavora@gmail.com>
+
+ Flush pending changes to server before code actions request
+
+ Otherwise the actions returned by the server might be stale when the
+ user selects them.
+
+ * eglot.el (eglot-code-actions): Issue jsonrpc-request with deferred=t.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/609
+
+2021-01-30 Yuuki Harano <masm+github@masm11.me>
+
+ Support child frame border width
+
+ * src/pgtkfns.c (x_set_child_frame_border_width): Port code for X.
+ (pgtk_frame_parm_handlers): Add hook.
+ (Fx_create_frame): Get default parameter.
+ * src/pgtkterm.c (x_draw_stretch_glyph_string): Re-port code for X.
+ (pgtk_clear_under_internal_border): Re-port code for X.
+
+2021-01-30 Yichao Yu <yyc1992@gmail.com>
+
+ Add support for setting cursor location using Gtk IM Context
+
+ The existing XIC implementation doesn't work when using Gtk IM Context.
+ Instead, `gtk_im_context_set_cursor_location` should be used
+ to update the cursor information for the input method.
+
+ * src/pgtkim.c (pgtk_im_set_cursor_location): New function to tell gtk
+ cursor location.
+ * src/pgtkterm.c (pgtk_draw_window_cursor): Remove invalid code and
+ add new code to call the function.
+ * src/pgtkterm.h: Add the function declaration.
+
+2021-01-29 João Távora <joaotavora@gmail.com>
+
+ #fix 608: fix bug in eglot-code-actions
+
+ Suggested by GitHub user "vconcat".
+
+ * eglot.el (eglot-code-actions): Use a vector for transmitting
+ action-kind.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/606
+
+2021-01-28 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot): tweak docstring grammar.
+
+2021-01-28 Andrii Kolomoiets <andreyk.mad@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Offer shortcut commands to commonly invoked code actions
+
+ See also https://github.com/joaotavora/eglot/issues/598.
+
+ Make eglot-code-actions accept a new action-kind argument. If there
+ is only one action of that kind, apply it. This allows us to create
+ actions shortcuts like eglot-code-action-organize-imports, etc.
+
+ * eglot.el (eglot-code-actions): Accept new argument action-kind.
+ (eglot--code-action): New function-defining helper macro.
+ (eglot-code-action-organize-imports)
+ (eglot-code-action-extract)
+ (eglot-code-action-inline)
+ (eglot-code-action-rewrite)
+ (eglot-code-action-quickfix): New commands.
+
+ * README.md: Mention new feature.
+
+ * NEWS.md: Mention new feature.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/411
+
+2021-01-28 ssnnoo <43703153+ssnnoo@users.noreply.github.com> (tiny change)
+
+ Add fortls for fotran (f90-mode)
+
+ * eglot.el (eglot-server-programs): Add fortls
+
+ * README.md: mention fortls
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/603
+
+2021-01-27 Brian Leung <bkleung89@gmail.com> (tiny change)
+
+ Add rnix-lsp server for nix-mode, community suggestion
+
+ * eglot.el (eglot-server-programs): Add rnix-lsp
+
+ * README.md: mention rnix-lsp
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/599
+
+2021-01-23 Yuuki Harano <masm+github@masm11.me>
+
+ Add scale factor in display-monitor-attributes-list.
+
+ * lisp/frame.el (display-monitor-attributes-list): Add the comment.
+ * src/frame.c (make_monitor_attribute_list): Include the scale factor
value.
+ (syms_of_frame): Declare intern'ed scale-factor.
+ * src/frame.h (struct MonitorInfo): Add scale_factor member.
+ * src/pgtkfns.c (Fpgtk_display_monitor_attributes_list): Set the value.
+
+2021-01-20 Yuuki Harano <masm+github@masm11.me>
+
+ Make imagemagick images less blurry.
+
+ * src/image.c: New macro to specify non-scaled mode.
+ (image_set_transform): Don't skip even if imagemagick.
+ (imagemagick_load_image): Don't calculate desired size.
+
+2021-01-16 Felicián Németh <felician.nemeth@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Fix eglot-completion-at-point for multiple matches
+
+ The test-completion case shouldn't return t when there are multiple
+ matches. Similarly, the try-completion should return t only if the
+ match is exact. See (info "(elisp)Programmed Completion").
+
+ * eglot.el (eglot-completion-at-point): Instead of testing
+ memberships, use test-completion and try-completion suggested
+ by (info "(elisp)Programmed Completion").
+
+ * eglot-tests.el (non-unique-completions): Add new test.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/365
+
+2021-01-16 Andrii Kolomoiets <andreyk.mad@gmail.com>
+
+ Run exit-function only for finished completion
+
+ Per https://github.com/joaotavora/eglot/issues/594.
+
+ * eglot.el (eglot-completion-at-point): Respect 'status' argument in
+ completion's exit function.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/592
+
+2021-01-13 Augusto Stoffel <arstoffel@gmail.com>
+
+ Use `path-separator', not ":", in eclipse/jdt custom code
+
+ This is needed on Windows.
+
+ * eglot.el (eglot--eclipse-jdt-contact): Replace literal ":" by
`path-separator'.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/513
+
+2021-01-13 Augusto Stoffel <arstoffel@gmail.com>
+
+ Define a face for symbol highlight
+
+ Also per https://github.com/joaotavora/eglot/issues/583.
+
+ * eglot.el (eglot-highlight-symbol-face): New face.
+ (eglot--highlight-piggyback): Use it.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/584
+
+2021-01-13 João Távora <joaotavora@gmail.com>
+
+ Unbreak interactivee eglot--connect for complex contact specs
+
+ The previous commit for https://github.com/joaotavora/eglot/issues/526
was completely botched. One has to check
+ current-prefix-arg for the presence of C-u, not eglot--guess-contact
+ INTERACTIVE arg.
+
+ * eglot.el (eglot--guess-contact): Be more careful when
+ processing guess.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/593
+
+2021-01-11 Yuuki Harano <masm+github@masm11.me>
+
+ Fix visual-bell on X
+
+ * src/pgtkterm.c (pgtk_flash): Change size source.
+
+ On X, surface_orig is not an image surface but xlib surface, so I
+ cannot get its size with cairo_image_surface_get_{width,height}.
+
+2021-01-11 Yuuki Harano <masm+github@masm11.me>
+
+ Free unneeded context
+
+ * src/pgtkterm.c (pgtk_flash): Free unneeded cairo_t.
+
+2021-01-10 João Távora <joaotavora@gmail.com>
+
+ C-u m-x eglot discards class guessed by eglot--guess-contact
+
+ This will prevent C-u M-x eglot RET rust-analyzer from bringing into
+ play the eglot-rls server class, which is only valid for the default
+ RLS server.
+
+ Found when testing for https://github.com/joaotavora/eglot/issues/526,
though this bug might not necessarily be
+ the problem being reported there.
+
+ * eglot.el (eglot--guess-contact): Don't assume guessed class if
+ INTERACTIVE.
+
+2021-01-10 Ted Zlatanov <tzz@lifelogs.com>
+
+ Remove use-package theme from global list of custom-enabled-themes
+
+ * eval-when-compile for cases where use-package is only required at
+ compile time
+
+ * remove the 'use-package theme from custom-enabled-themes so e.g.
+ (mapc #'disable-theme custom-enabled-themes)
+ won't kill user settings.
+
+2021-01-10 Yuuki Harano <masm+github@masm11.me>
+
+ Fix gtk icon theme does not reflect
+
+ * lisp/term/pgtk-win.el (x-gtk-stock-map): Port from X.
+ (icon-map-list): Port from X.
+ (x-gtk-stock-cache): Port from X.
+ (x-gtk-map-stock): Port from X.
+ * src/pgtkterm.c (syms_of_pgtkterm): Remove duplicated definition.
+
+2021-01-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tzz/tzz/set-comment-and-synthetic-theme
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/881
+
+2021-01-05 Jürgen Hötzel <juergen@hoetzel.info> (tiny change)
+
+ Flex completion style is not available on emacs < 27
+
+ * eglot.el (eglot--managed-mode): check if flex style available
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/582
+
+2021-01-03 Yuuki Harano <masm+github@masm11.me>
+
+ Add a function to set monitor scale factor manually
+
+ * src/pgtkfns.c (pgtk_get_monitor_scale_factor): New function to get
+ manual scale factor from alist.
+ (Fpgtk_set_monitor_scale_factor): New function to set manual scale
+ factor into alist.
+ (Fx_display_pixel_width): Use manual scale factor first, if not set,
+ use gdk's one.
+ (Fx_display_pixel_height): Use manual scale factor first, if not set,
+ use gdk's one.
+ (Fpgtk_display_monitor_attributes_list): Use manual scale factor
+ first, if not set, use gdk's one.
+ (syms_of_pgtkfns): initialize alist.
+
+2021-01-03 Yuuki Harano <masm+github@masm11.me>
+
+ Fix display-pixel-width/height to return physical pixel size.
+
+ * src/pgtkfns.c (Fx_display_pixel_width):
+ (Fx_display_pixel_height): Return bottom/right-most of all the monitors.
+
+2021-01-03 Yuuki Harano <masm+github@masm11.me>
+
+ Make display-mm-width/height consider multi-monitor.
+
+ * src/pgtkfns.c (Fx_display_mm_height):
+ (Fx_display_mm_width): Calculate width/height mm assuming monitor
+ other than origin does not overlap.
+
+2021-01-03 Yuuki Harano <masm+github@masm11.me>
+
+ Fix pgtk-display-monitor-attributes-list to return physical pixel sizes.
+
+ * src/pgtkfns.c (Fpgtk_display_monitor_attributes_list): Re-port it.
+
+2020-12-26 Yuuki Harano <masm+github@masm11.me>
+
+ Follow get-buffer-create change
+
+ * src/pgtkfns.c (Fx_show_tip): Pass nil to get-buffer-create.
+
+2020-12-22 João Távora <joaotavora@gmail.com>
+
+ Don't block in eglot-imenu if performing non-essential task
+
+ eglot-imenu is used by imenu which in turn is used by which-func-mode
+ called from an idle timer. We don't want it to block in that
+ situation. Latest which-func mode now sets "non-essential" when
+ performing its duties, so we leverage that in eglot-imenu.
+
+ * eglot.el (eglot-imenu): Use non-essential.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/212
+
+2020-12-22 João Távora <joaotavora@gmail.com>
+
+ Use flex completion if available by default
+
+ * eglot.el (eglot--managed-mode): Set completion-styles.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/575
+
+2020-12-16 João Távora <joaotavora@gmail.com>
+
+ Bump eglot version to 1.7
+
+ * eglot.el (Version): Bump to 1.7.
+ (Package-Requires): Bump dependency versions.
+
+2020-12-16 João Távora <joaotavora@gmail.com>
+
+ Allow eglot to stay out of xref configuration
+
+ * eglot.el (eglot-stay-out-of): Rework docstring.
+ (eglot--managed-mode): Can now stay out of xref.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/569
+
+2020-12-16 João Távora <joaotavora@gmail.com>
+
+ Cosmetic whitespace fix (indentation, long lines, tabs->spaces)
+
+ * eglot.el (eglot-server-programs, for, eglot--after-change)
+ (eglot-code-actions, eglot-register-capability)
+ (eglot-register-capability): Fix whitespace.
+
+2020-12-16 TANIGUCHI Kohei <a.d.xvii.kal.mai@gmail.com> (tiny change)
+
+ Use haskell-language-server in eglot-server-programs
+
+ Use haskell-language-server instead of deprecated Haskell IDE Engine
+
+ https://github.com/haskell/haskell-language-server
+ https://github.com/haskell/haskell-ide-engine#deprecated
+
+ * README.md: Replace Haskell IDE Engine with haskell-language-server
+
+ * eglot.el (eglot-server-programs): Replace hie-wrapper with
+ haskell-language-server-wrapper
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/572
+
+2020-12-15 João Távora <joaotavora@gmail.com>
+
+ Robustify previous fix of onchange breakage
+
+ From the in-code comments:
+
+ ;; githubhttps://github.com/joaotavora/eglot/issues/259 and
githubhttps://github.com/joaotavora/eglot/issues/367: With `capitalize-word' or
somesuch,
+ ;; `before-change-functions' always records the whole word's `b-beg'
+ ;; and `b-end'. Similarly, when coalescing two lines into one,
+ ;; `fill-paragraph' they mark the end of the first line up to the end
+ ;; of the second line. In both situations, args received here
+ ;; contradict that information: `beg' and `end' will differ by 1 and
+ ;; will likely only encompass the letter that was capitalized or, in
+ ;; the sentence-joining situation, the replacement of the newline with
+ ;; a space. That's we keep markers _and_ positions so we're able to
+ ;; detect and correct this. We ignore `beg', `len' and
+ ;; `pre-change-len' and send "fuller" information about the region
+ ;; from the markers. I've also experimented with doing this
+ ;; unconditionally but it seems to break when newlines are added.
+
+ * eglot.el (eglot--after-change): Robustify fix.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/367
+
+2020-12-14 João Távora <joaotavora@gmail.com>
+
+ Don't let m-x fill-paragraph break didchange
+
+ M-x fill-paragraph represents some paragraph-fillling changes very
+ summarily. Filling
+
+ 1 // foo
+ 2 bar
+
+ Into
+
+ 1 // foo bar
+
+ Only makes two changes: a deletion of the "// " and a replacement of a
+ newline with a space character. The second change fooled Eglot's fix
+ for https://github.com/joaotavora/eglot/issues/259, by making a change
similar to the one it is made to detect
+ and correct. That fix should taget things that happen on the same
+ line, this not being one of those things.
+
+ * eglot.el (eglot--after-change): Only apply fix to
https://github.com/joaotavora/eglot/issues/259 if
+ case-fiddling happens on same line.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/367
+
+2020-12-13 Yuuki Harano <masm+github@masm11.me>
+
+ * src/pgtkterm.c (map_event): Remove record_asynch_buffer_change call.
+
+2020-12-08 Yuuki Harano <masm+github@masm11.me>
+
+ Fix DEL key behavior
+
+ * lisp/simple.el (normal-erase-is-backspace-setup-frame): Include pgtk
+ in window-system group.
+
+2020-11-29 Ted Zlatanov <tzz@lifelogs.com>
+
+ Create new "use-package" themse and use it for :custom with
custom-theme-set-variables
+
+ set property theme-value to avoid saving variable
+
+2020-11-29 Ted Zlatanov <tzz@lifelogs.com>
+
+ Revert "use-package-core.el: use the Emacs set-default function to
avoid saving :custom vars twice"
+
+ This reverts commit 8c31c57106e2938d627bf4107627c003620d2dd5.
+
+2020-11-29 Ted Zlatanov <tzz@lifelogs.com>
+
+ set saved-variable-comment from :custom
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/861
+
+2020-11-28 Yuuki Harano <masm+github@masm11.me>
+
+ Merge branch 'master' into feature/pgtk
+
+ * src/pgtkterm.c (scroll_event): Shut up warnings
+
+2020-11-28 Yuuki Harano <masm+github@masm11.me>
+
+ Improve smooth scroll
+
+ * src/pgtkterm.c (scroll_event): Accumulate deltas and calculate
+ the number of lines.
+ (pgtk_term_init): Set smooth scroll parameters.
+ * src/pgtkterm.h (scroll): New members to store parameters.
+
+2020-11-27 Yuuki Harano <masm+github@masm11.me>
+
+ Enable harfbuzz
+
+ * src/pgtkfns.c (Fx_create_frame): Register ftcrhb font driver if
enabled.
+
+2020-11-26 Yuuki Harano <masm+github@masm11.me>
+
+ Add support for hyper modifier key
+
+ * src/pgtkterm.c (x_find_modifier_meanings): Autodetect key mask.
+ (pgtk_gtk_to_emacs_modifiers): Use autodetected mask instead of GDK's.
+ (pgtk_emacs_to_gtk_modifiers): Use autodetected mask instead of GDK's.
+ (key_press_event): Ignore hyper as well as super.
+ * src/pgtkterm.h (struct pgtk_display_info): New member for hyper.
+
+2020-11-25 Yuuki Harano <masm+github@masm11.me>
+
+ Fix compilation issue when --enable-checking=glyphs
+
+ * src/pgtkfns.c (Fx_create_frame): Remove code surrounded by
GLYPH_DEBUG.
+ (x_create_tip_frame): Remove code surrounded by GLYPH_DEBUG.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix crash when .schema.xml is not installed
+
+ * src/pgtkfns.c (parse_resource_key): Check return value.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Add copyright line
+
+ * etc/org.gnu.emacs.defaults.gschema.xml: Add copyright line.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Work around gtk_im_context_filter_keypress() issue with super key
+
+ * src/pgtkterm.c (x_find_modifier_meanings): Convert virtual super
+ to non-virtual one.
+ (pgtk_gtk_to_emacs_modifiers): Use non-virtual one.
+ (pgtk_emacs_to_gtk_modifiers): Use non-virtual one.
+ (key_press_event): Don't call pgtk_im_context_filter_keypress while
+ super is pressed.
+ * src/pgtkterm.h (struct pgtk_display_info): New member.
+
+2020-11-23 Jeff Walsh <jeff.walsh@drtusers-MacBook-Pro.local>
+
+ lisp/term/pgtk-win.el: Add copyright file header
+
+2020-11-23 Jeff Walsh <jeff.walsh@drtusers-MacBook-Pro.local>
+
+ Update copyright dates for PGTK files
+
+ * src/pgtkfns.c:
+ * src/pgtkgui.h:
+ * src/pgtkim.c:
+ * src/pgtkmenu.c:
+ * src/pgtkselect.c:
+ * src/pgtkselect.h:
+ * src/pgtkterm.c:
+ * src/pgtkterm.h: Update copyright dates - No Funtional Changes
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix startup failure on svg-unsupported environments
+
+ * src/pgtkterm.c (pgtk_bitmap_icon): Re-port X-code.
+ (pgtk_term_init): Add member initialization.
+ * src/pgtkterm.h (struct pgtk_display_info): Add member.
+ (struct pgtk_output): Add member.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Avoid weird behavior when resizing with top-left corner
+
+ * src/frame.c (syms_of_frame): Defaults frame_resize_pixelwise to true.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Don't use gtk_window_resize to resize offscreen window
+
+ * src/xwidget.c (Fmake_xwidget): Use gtk_container_check_resize instead.
+ (Fxwidget_resize): Use gtk_container_check_resize instead.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Avoid gtk warnings on X
+
+ * src/xwidget.c (xwidget_osr_draw_cb): Call it to avoid alloc_needes.
+
+2020-11-23 Kira Bruneau <kira.bruneau@gmail.com>
+
+ Avoid mutating invocation-name (tiny change)
+
+ * lisp/term/pgtk-win.el (window-system-initialization): copy
invocation-name.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix Gtk warnings
+
+ * src/gtkutil.c (xg_frame_set_char_size): Call appropriate function
+ (xg_set_undecorated): Do nothing if child frame.
+ (xg_set_no_focus_on_map): Do nothing if child frame.
+ (xg_set_no_accept_focus): Do nothing if child frame.
+ (xg_set_frame_icon): Do nothing if child frame.
+ (xg_get_file_name): Do nothing if child frame.
+ (xg_get_font):
+ * src/pgtkterm.c (pgtk_focus_frame): Do nothing if child frames.
+ (x_set_frame_alpha): Select correct widget.
+ (x_new_focus_frame): Focus only when non-child frames.
+ (pgtk_set_event_handler): Don't set for child frames.
+ * src/pgtkfns.c (xg_set_icon): Do nothing if child frames.
+ (xg_set_icon_from_xpm_data): Do nothing if child frames.
+ (pgtk_set_sticky): Do nothing if child frames.
+ (Fx_show_tip): Do nothing if child frames.
+ (Fpgtk_set_mouse_absolute_pixel_position): Select correct widget.
+ (Fpgtk_mouse_absolute_pixel_position): Select correct widget.
+ * src/pgtkmenu.c (pgtk_menu_show):
+ (pgtk_dialog_show):
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix crash on drag and drop
+
+ * src/pgtkterm.c (pgtk_select): Move dispatch before
+ g_main_context_query.
+ (drag_drop): Remove drag_drop.
+ (drag_data_received): Rename arg.
+ (pgtk_set_event_handler): Remove drag-drop callback.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix mouse cursor doesn't appear on motion events on xwidgets
+
+ * src/xwidget.c (xwidget_osr_event_forward): Propagate motion notify.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix tooltips don't hide on events
+
+ * src/pgtkterm.c: New variable to indicate whether any event occurs.
+ (configure_event): Clear help string on a event.
+ (leave_notify_event): Clear help string on a event.
+ (motion_notify_event): Use gen_help_event.
+ (pgtk_set_event_handler): Hook configure-event for outer widgets.
+ (pgtk_term_init): Clear the flag.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix crash on creating child frames.
+
+ * src/pgtkfns.c (frame_geometry): Returns nil when no widget.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix crash when child frame updates toolbar
+
+ * src/gtkutil.c (update_frame_tool_bar): Do nothing when child frame.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Exclude Xlib's modifier keys
+
+ * src/pgtkterm.c (IsModifierKey): New macro.
+ (key_press_event): Exclude Xlib's modifier keys.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Re-implement childframe with emacsgtkfixed
+
+ * src/emacsgtkfixed.c (G_DEFINE_TYPE): Make emacs_fixed_get_type public.
+ * src/emacsgtkfixed.h (EMACS_TYPE_FIXED): Make emacs_fixed_get_type
public.
+ * src/gtkutil.c (xg_frame_set_char_size): Call appropriate functions
+ by whether the frame is a child frame or not.
+ (xg_create_frame_widgets): Use GTK_WINDOW_TOPLEVEL when creating child
frame.
+ (xg_create_frame_outer_widgets): New function.
+ (xg_set_skip_taskbar): Call only when top-level frame.
+ (xg_set_no_accept_focus): See appropriate widget.
+ * src/gtkutil.h: New declaration.
+ * src/pgtkfns.c (pgtk_set_name_internal): Do only when top-level frame.
+ (Fx_create_frame): Reparent the frame.
+ (frame_geometry): Call appropriate functions
+ (syms_of_pgtkfns): Port from X code.
+ * src/pgtkterm.c (x_free_frame_resources): Destroy appropriate widget.
+ (x_calc_absolute_position): Port from X code.
+ (x_set_offset): Re-port from X code.
+ (pgtk_set_window_size): Use appropriate widget.
+ (pgtk_make_frame_visible): Use appropriate widget.
+ (pgtk_make_frame_invisible): Use appropriate widget.
+ (x_set_parent_frame): Reparent the frame.
+ (x_set_z_group): Process only when top-level frame.
+ (pgtk_text_icon): Process only when top-level frame.
+ (set_fullscreen_state): Process only when top-level frame.
+ (frame_highlight): Hold ref.
+ (frame_unhighlight): Hold ref.
+ (pgtk_window_is_of_frame_recursive): Prune child frames.
+ (pgtk_window_is_of_frame): Prune child frames.
+ (print_widget_tree_recursive): Don't call this when not debugging.
+ (pgtk_handle_draw): Don't call this when not debugging.
+ (pgtk_set_event_handler): expect map-event for edit_widget not outer
widget.
+ * src/pgtkterm.h (FRAME_WIDGET): New macro.
+
+2020-11-23 Jeff Walsh <fejfighter@gmail.com>
+
+ Add support for x-support-frames
+
+ * src/pgtkfns.c (Fx_export_frames):
+ (syms_of_pgtkfns): port from X11 version
+ * src/pgtkterm.c (pgtk_cr_accumulate_data):
+ (pgtk_cr_destroy):
+ (pgtk_cr_export_frames): port from X11
+ * src/pgtkterm.h: add defs
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Enable GtkIMContext by default
+
+ * lisp/term/pgtk-win.el: Call pgtk-use-im-context after init.
+
+ * src/pgtkim.c (pgtk_im_use_context): New function.
+ (pgtk_im_init): Call pgtk_im_use_context.
+ (Fpgtk_use_im_context): Call pgtk_im_use_context.
+ (syms_of_pgtkim): New variable Vpgtk_use_im_context_on_new_connection.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Remove duplicated syms_of_xwidget call
+
+ * src/emacs.c (main): Remove duplicated syms_of_xwidget() call.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Self-implement tooltip
+
+ * src/gtkutil.c (xg_create_frame_widgets): Use popup for tooltip.
+ * src/pgtkfns.c (unwind_create_tip_frame): Port X code.
+ (x_create_tip_frame): Re-port X code.
+ (x_hide_tip): Re-port X code.
+ (Fx_show_tip): Re-port X code.
+ (frame_geometry): Get left_pos and top_pos here.
+ (syms_of_pgtkfns): Add variables for tooltip.
+ * src/pgtkterm.c (pgtk_set_event_handler): Set event handler for
tooltip.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Add PGTK to system-configuration-features
+
+ * configure.ac: Set HAVE_PGTK when configuring for PGTK, and
+ add PGTK for iteration.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Re-port image drawing code from X
+
+ * src/pgtkterm.c (x_cr_draw_image): Re-port X code.
+ (x_draw_image_foreground): Re-port X code.
+ (x_draw_image_glyph_string): Re-port X code.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Make pointer visible when motion notify event
+
+ * src/pgtkterm.c (motion_notify_event): set pending_signals to true.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix non-English layout does not work
+
+ * src/pgtkterm.c (key_press_event): Use Vlocale_coding_system.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix font lock is not applied on continued lines
+
+ * src/pgtkterm.c (pgtk_parse_color): Remove alpha bits.
+
+2020-11-23 Jeff Walsh <fejfighter@gmail.com>
+
+ Restore support for terminal only emacs in PGTK (add --with-pgtk)
+
+ * configure.ac: add "--with-pgtk" switch for building pgtk terminal
+ support.
+ Adjust X11 window system tests to no clobber pgtk preferences
+
+2020-11-23 Jeff Walsh <fejfighter@gmail.com>
+
+ Add font chooser functionality
+
+ * src/pgtkfns.c (Fpgtk_popup_font_panel): repurpose X/gtk font chooser
code
+ (syms_of_pgtkfns): add new symbol
+
+2020-11-23 Jeff Walsh <fejfighter@gmail.com>
+
+ Fix migrating Child frames
+
+ * src/pgtkterm.c:
+ (x_calc_absolute_position): Remove Function that has no effect
+ (x_set_offset): titlebar off should not be stored as an offset, only
+ used to calculate final move locations
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/keyboard.c (make_lispy_event): Fix coding style
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Change coding style
+
+ * src/gtkutil.c (xg_display_open):
+ (xg_get_image_for_pixmap):
+ (xg_frame_resized):
+ (xg_create_frame_widgets):
+ (x_wm_set_size_hint):
+ (xg_frame_restack):
+ (xg_finish_scroll_bar_creation):
+ (xg_update_scrollbar_pos):
+ (xg_update_horizontal_scrollbar_pos):
+ (xg_set_toolkit_scroll_bar_thumb):
+ (xg_event_is_for_scrollbar):
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Fix coding style
+
+ * src/emacs.c (main): Fix coding style
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Change coding style
+
+ * src/image.c (image_create_pattern_from_pixbuf): Change coding style
+ (image_create_bitmap_from_data): Change coding style
+ (image_create_bitmap_from_file): Change coding style
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/pgtkselect.h: Change coding style
+
+ * src/pgtkim.c: Change coding style
+
+ * src/pgtkterm.h: Change coding style
+
+ * src/pgtkterm.h: Remove unused code
+
+ * src/pgtkgui.h: change coding style
+
+ * src/pgtkmenu.c: change coding style
+
+ * src/pgtkselect.c: change coding style
+
+ * src/pgtkfns.c: change coding style
+
+ * src/pgtkterm.c: change coding style
+
+ * src/pgtkmenu.c (set_frame_menubar): Suppress gcc warning
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * src/pgtkterm.c (pgtk_defined_color): support gtk special colors
+
+ Color functions take the frame
+
+ * src/gtkutil.c (xg_check_special_colors): pass frame as argument.
+ * src/pgtkfns.c (x_set_foreground_color, x_set_background_color,
+ x_set_cursor_color, pgtk_set_scroll_bar_foreground,
+ pgtk_set_scroll_bar_background, Fxw_color_defined_p,
+ Fxw_color_values): pass frame as argument.
+ * src/pgtkterm.c (pgtk_parse_color): take frame as argument.
+ (pgtk_lisp_to_color): take frame as argument, and pass it.
+
+ Remove pgtk_lisp_to_color
+
+ * src/pgtkfns.c (x_set_foreground_color, x_set_background_color,
+ x_set_cursor_color): use x_decode_color instead of pgtk_lisp_to_color.
+ (Fxw_color_defined_p, Fxw_color_values):
+ use pgtk_defined_color instead of pgtk_lisp_to_color.
+ * src/pgtkterm.c (pgtk_lisp_to_color): remove.
+
+ * src/gtkutil.c (xg_check_special_colors): change color format
+
+ * src/pgtkterm.h: remove pgtk_lisp_to_color declaration
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * pgtkmenu.c (set_frame_menubar): fix empty menu.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ Make icons and titles work like on X
+
+ * pgtk-win.el (frame-title-format, icon-title-format): remove.
+ * pgtkfns.c (pgtk_set_name_as_filename): remove.
+ * pgtkfns.c (pgtk_set_name_internal): remove gtk_window_set_icon_name
call.
+ * pgtkfns.c (pgtk_set_name): change value of update_mode_lines.
+ * pgtkfns.c (pgtk_explicitly_set_name):
+ prefer the symbol to an immediate value.
+ * pgtkfns.c (pgtk_implicitly_set_name): remove
pgtk_set_name_as_filename call.
+ * pgtkfns.c (x_set_icon_type, x_set_icon_name): re-port from X code.
+ * pgtkfns.c (xg_set_icon, xg_set_icon_from_xpm_data): port from X code.
+ * pgtkterm.c (pgtk_bitmap_icon, pgtk_text_icon, pgtk_create_terminal):
+ port from X code.
+ * pgtkterm.h: add function declarations.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ * pgtk-win.el: fix compile-time warnings.
+
+ * src/pgtkterm.c: Remove incorrect mark_object call.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ follow x_set_internal_border_width change.
+
+ * ../src/pgtkfns.c (x_set_internal_border_width):
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ restore frame_rehighlight_hook.
+
+ * src/frame.c (gui_set_border_width):
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ use pgtk_menu_set_in_use.
+
+ * ../src/pgtkfns.c:
+ (Fx_file_dialog, clean_up_dialog):
+
+ * src/pgtkmenu.c (pgtk_menu_wait_for_event):
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ implement popup/context menu
+
+ * ../src/pgtkterm.c (x_draw_glyph_string_background)
+ (x_draw_glyph_string_foreground)
+ (x_draw_composite_glyph_string_foreground)
+ (x_draw_glyphless_glyph_string_foreground, x_draw_relief_rect)
+ (x_draw_box_rect, x_draw_glyph_string_box, x_draw_image_relief)
+ (x_draw_image_foreground, x_draw_image_glyph_string)
+ (button_event):
+
+ * src/pgtkterm.h (struct pgtk_display_info):
+
+ * src/pgtkmenu.c (pgtk_menu_set_in_use)
+ (pgtk_menu_wait_for_event, Fx_menu_bar_open_internal)
+ (popup_widget_loop, pgtk_activate_menubar)
+ (popup_deactivate_callback, show_help_event): new functions
+ (menu_highlight_callback): remove
+ (update_frame_menubar, popup_selection_callback, pop_down_menu)
+ (create_and_show_popup_menu, cleanup_widget_value_tree)
+ (pgtk_menu_show, dialog_selection_callback): new
+ (create_and_show_dialog, pgtk_dialog_show, pgtk_popup_dialog)
+ (popup_activated, Fmenu_or_popup_active_p, syms_of_pgtkmenu):
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ minimize gtkutil.c differences.
+
+ * src/pgtkterm.h: remove compiletime ifdefs
+
+ * src/gtkutil.h: block out unused decl
+
+ * src/gtkutil.c:
+ (xg_get_pixbuf_from_pix_and_mask, xg_height_or_width_changed)
+ (xg_create_frame_widgets, x_wm_set_size_hint)
+ (xg_event_is_for_menubar, update_frame_tool_bar):
+
+ resolve argument type mismatch.
+ fix compatibility.
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ improve code readability.
+
+ * src/gtkutil.c (xg_create_frame_widgets):
+
+2020-11-23 Jeff Walsh <jewalsh@redhat.com>
+
+ Set screen/display dpi res to make broadway work as expected
+
+ * src/pgtkterm.c (pgtk_initialize_display_info)
+ (window_state_event, pgtk_term_init):
+
+ * src/gtkutil.c (xg_create_frame_widgets):
+
+ * src/pgtkterm.c (pgtk_initialize_display_info)
+ (window_state_event, pgtk_term_init):
+
+ * src/ftcrfont.c (ftcrfont_open):
+
+2020-11-23 Jeff Walsh <jawalsh@localhost.localdomain>
+
+ Some work toward posframe on wayland
+
+ * src/pgtkterm.c (flip_cr_context, x_set_offset): update for new
functionality
+ (pgtk_set_window_size): remove dead code
+ (x_set_parent_frame): cleanup trace code
+ (pgtk_cr_update_surface_desired_size): add comment
+
+ * src/pgtkmenu.c (Fmenu_or_popup_active_p):
+
+ * src/pgtkfns.c (pgtk_frame_parm_handlers, Fx_create_frame):
+
+ * src/gtkutil.c (xg_create_frame_widgets, x_wm_set_size_hint):
+
+ * src/gtkutil.c (xg_create_frame_widgets):
+
+ hacky GTK offsets taht will need better calculations
+
+ Get parent frame's editor widget allocation for the offset
+
+ Fix child-frame offsets for negative values
+
+ Add some function comments around the new double context handling
+
+2020-11-23 Jeff Walsh <jawalsh@localhost.localdomain>
+
+ End Resize flickering by copying surface rather than just clearing
+
+ * src/pgtkterm.h (FRAME_NATIVE_WINDOW):
+
+ * src/pgtkterm.c (pgtk_set_window_size): cleanup traces
+ (x_draw_bar_cursor, pgtk_handle_draw, syms_of_pgtkterm):
+
+2020-11-23 Jeff Walsh <jawalsh@localhost.localdomain>
+
+ Bring pgtk more inline with X11-cairo builds
+
+ * src/pgtkterm.h (struct pgtk_output):
+
+ * src/pgtkterm.c (FRAME_CR_ACTIVE_CONTEXT, flip_cr_context)
+ (x_draw_bar_cursor, pgtk_scroll_run, pgtk_update_end)
+ (pgtk_cr_draw_image, pgtk_flash, pgtk_handle_draw)
+ (pgtk_cr_update_surface_desired_size, pgtk_begin_cr_clip)
+ (pgtk_cr_destroy_frame_context):
+
+ * src/image.c (image_create_pattern_from_pixbuf):
+
+ - Don't create a context each time, just hold a reference
+
+ - Pull in a few cairo image changes from master
+
+ - Remove redundant code in pgtk_update_begin()
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ update redisplay_interface.
+
+ * src/pgtkfns.c (Fx_create_frame, pgtk_default_font_parameter):
+
+ * src/pgtkterm.c (pgtk_redisplay_interface):
+
+ * src/pgtkterm.h:
+
+2020-11-23 Yuuki Harano <masm+github@masm11.me>
+
+ emacsclient should use both of DISPLAY and WAYLAND_DISPLAY.
+
+ * lisp/server.el (server-create-window-system-frame): error out when
+ not on a supported window
+
+ * lib-src/emacsclient.c (decode_options): handle WALAND_DISPLAY on PGTK
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Before sleep, dispatch draw events.
+
+ * src/pgtkterm.c (pgtk_select): remove sigio signal
+ (pgtk_term_init): dispatch draw
+
+2020-11-21 Jeff Walsh <jawalsh@localhost.localdomain>
+
+ End Resize flickering by copying surface rather than just clearing
+
+ * src/pgtkterm.h (struct pgtk_output): store desired sizes
+
+ * src/pgtkterm.c (FRAME_CR_SURFACE_DESIRED_HEIGHT)
+ (FRAME_CR_SURFACE_DESIRED_WIDTH, size_allocate, configure_event)
+ (pgtk_cr_update_surface_desired_size): add "desired" size for handling
+ surface change
+
+ * src/gtkutil.c (xg_frame_resized, xg_create_frame_widgets): remove
+ surface destroy, turn off double buffer call
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add support for Jpeglib
+
+ configure.ac: enable jpeglib support for pgtk
+
+ jpeglib を使えるようにした。
+
+ imagemagick がうまく機能してるので気付かなかった…
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Let gtk handle scaling.
+
+ * src/gtkutil.c (xg_get_scale):
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ implement pre-edit input method
+
+ * src/termhooks.h (enum event_kind): new pgtk value
+
+ * src/pgtkterm.h (struct pgtk_display_info):
+
+ * src/pgtkterm.c (x_free_frame_resources, pgtk_delete_terminal)
+ (pgtk_enqueue_string, pgtk_enqueue_preedit, key_press_event)
+ (focus_in_event, focus_out_event, pgtk_term_init): call pgtkim
+
+ * src/pgtkim.c: new file
+ (im_context_commit_cb, im_context_retrieve_surrounding_cb)
+ (make_color_string, im_context_preedit_changed_cb)
+ (im_context_preedit_end_cb, im_context_preedit_start_cb)
+ (pgtk_im_focus_in, pgtk_im_focus_out, pgtk_im_filter_keypress)
+ (pgtk_im_finish, Fpgtk_use_im_context, syms_of_pgtkim):
+
+ * src/pgtkfns.c (check_pgtk_display_info):
+
+ * src/keyboard.c (kbd_buffer_get_event, make_lispy_event)
+ (keys_of_keyboard):
+
+ * src/emacs.c (main): add syms_of_pgtkim
+
+ * lisp/term/pgtk-win.el (pgtk-preedit-text): new defun
+
+ * configure.ac (XWIDGETS_OBJ): add pgtkim.o
+
+ input method 対応
+
+ preedit を overlay で表示するようにした。
+
+ preedit 表示後すぐに反映されなかったのを修正
+
+ この機能を ON/OFF できるようにした。
+
+ default off.
+
+ 確定と同時に次の preedit が始まった場合に表示位置がおかしかったのを修正。
+
+ sample.
+
+ preedit をテキストで渡すようにした
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Support focus on click event
+
+ * src/pgtkterm.c (enter_notify_event, leave_notify_event)
+ (focus_in_event, focus_out_event): support focus on click
+
+ focus-on-click な環境に対応。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ experimental support of tab-bar.
+
+ * src/window.h: compile conditional
+
+ * src/pgtkterm.h: function decls
+
+ * src/pgtkterm.c (x_draw_image_relief, pgtk_create_terminal)
+ (motion_notify_event, button_event): tabbar support
+
+ * src/pgtkfns.c (x_set_tab_bar_lines, x_change_tab_bar_height)
+ (pgtk_frame_parm_handlers, Fx_create_frame, frame_geometry): tabbar
support
+
+ 余計なイベントが生成されていたのを修正。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Make multipdisplay work by limiting selection while enabed
+
+ * src/pgtkterm.c (pgtk_mouse_position):
+
+ * src/pgtkselect.c (pgtk_selection_usable): new function
+ (Fpgtk_own_selection_internal, Fpgtk_disown_selection_internal)
+ (Fpgtk_selection_exists_p, Fpgtk_selection_owner_p)
+ (Fpgtk_get_selection_internal): check usable selection
+
+ multi-display で落ちる理由を一つ潰した。
+
+ まだまだありそう。
+
+ multi-display 時は selection を使えないようにした。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Improve drawing efficency by refactoring code
+
+ * ../src/pgtkterm.c (fill_background, fill_background_by_face)
+ (x_draw_glyph_string_background, x_draw_glyph_string_bg_rect)
+ (x_draw_image_glyph_string, x_draw_stretch_glyph_string)
+ (pgtk_clear_under_internal_border): Refator duplcate code
+
+ 更に効率化。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ improve some efficiency - simplify draws
+
+ * src/pgtkterm.h (struct pgtk_bitmap_record):
+
+ * src/pgtkterm.c (create_background_surface_by_face):
+
+ * src/image.c (image_create_pattern_from_pixbuf)
+ (image_create_bitmap_from_data, image_create_bitmap_from_file):
+
+ 少し効率化。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ implement restacking and cleanup frame z order
+
+ src/pgtkfns.c:
+ (pgtk_frame_restack, Fpgtk_frame_restack, syms_of_pgtkfns):
+
+ pgtk-frame-restack を実装だけ。
+
+ ついでに、pgtk-frame-list-z-order は無意味なので削除した。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ implement pgtk-frame-list-z-order same as frame-list.
+
+ * src/pgtkfns.c (Fpgtk_frame_list_z_order): return frame list as it's
+ the same
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Implement Scroll-bar-forground and scroll-bar-background
+
+ * src/pgtkterm.h (struct pgtk_output):
+
+ * src/pgtkterm.c (x_free_frame_resources):
+
+ * src/pgtkfns.c (pgtk_set_scroll_bar_foreground)
+ (pgtk_set_scroll_bar_background, pgtk_frame_parm_handlers)
+ (Fx_create_frame):
+
+ * src/gtkutil.c (xg_finish_scroll_bar_creation):handle scrollbar css
values
+
+ * etc/org.gnu.emacs.defaults.gschema.xml: add scroll bar fields
+
+ scroll-bar-foreground, scroll-bar-background 実装。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ implement set-tool-bar-position and set-sticky
+
+ * ../src/pgtkfns.c (pgtk_set_tool_bar_position)
+ (pgtk_frame_parm_handlers):
+
+ tool-bar-position 実装。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ TIMERFD support for PGTK, prevent calling when timerfd<0
+
+ * ../src/atimer.c (set_alarm):
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add PGTK support for fullscreen
+
+ * src/gtkutil.c (x_wm_set_size_hint): Fullscreen support for PGTK
+
+ fullscreen にできるようにした。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Use gsettings instead of X resource database
+
+ * src/pgtkfns.c (pgtk_is_lower_char, pgtk_is_upper_char)
+ (pgtk_is_numeric_char, parse_resource_key)
+ (pgtk_get_defaults_value, pgtk_set_defaults_value)
+ (Fpgtk_set_resource, pgtk_get_string_resource): handle gsettings scheme
+
+ * m4/gsettings.m4: new file
+
+ * etc/org.gnu.emacs.defaults.gschema.xml: new file
+
+ * configure.ac (GLIB_DISABLE_DEPRECATION_WARNINGS)
+ (gsettingsschemadir):
+
+ * Makefile.in (gsettingsschemadir, GLIB_COMPILE_SCHEMAS)
+ (install, uninstall, clean):
+
+ * .gitignore: add gschema
+
+ *.gschema.valid は生成ファイルなので無視。
+
+ schema の置き場所を変更。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Implement Meta key detection
+
+ * ../src/pgtkterm.c (x_find_modifier_meanings, )
+ (key_press_event, construct_mouse_click, scroll_event)
+ (pgtk_term_init):
+
+ * src/pgtkterm.h (struct pgtk_display_info):
+
+ * ../src/gtkutil.c (xg_tool_bar_callback):
+
+ meta キーの検出を実装。
+
+ X11 で alt キーを meta キーとして使えなくなっていたのを修正。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Implement invisible-pointer to create blinking effect
+
+ * src/pgtkterm.h (struct pgtk_display_info): add cursor and callback
+
+ * src/pgtkterm.c (x_setup_pointer_blanking)
+ (XTtoggle_invisible_pointer, x_toggle_visible_pointer): new
functions
+ (pgtk_create_terminal, pgtk_term_init): use gdkcursor
+
+ * src/pgtkgui.h: define Emacs_cursor as a GdkCursor
+
+ invisible pointer 実装。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ init border_pixel.
+
+ * ../src/pgtkfns.c (Fx_create_frame): remove if preprocessor
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ border_color/pixel width
+
+ * src/pgtkterm.h (struct pgtk_output):
+
+ * src/pgtkterm.c (x_free_frame_resources, frame_highlight)
+ (frame_unhighlight, pgtk_frame_rehighlight): use css information
+
+ * src/pgtkfns.c (x_set_border_color, pgtk_frame_parm_handlers)
+ (Fx_create_frame): new functions connected
+
+ * src/frame.c (gui_set_border_width): ifdef for PGTK
+
+ border_color/pixel 対応。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add support for handing the internal border
+
+ src/pgtkterm.c (pgtk_clear_under_internal_border): remove #if 0
+ src/pgtkfns.c (x_set_internal_border_width): add clear and fill support
+
+ internal-border 対応。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Addframe highlighting support
+
+ * ../src/pgtkterm.c:
+ (pgtk_focus_frame, set_opacity_recursively, x_set_frame_alpha)
+ (frame_highlight, frame_unhighlight, pgtk_frame_rehighlight)
+ (XTframe_rehighlight, x_new_focus_frame, pgtk_create_terminal):
+
+ frame の highlight に対応。
+
+ とりあえず opacity のみ対応。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add Stipple support for PGTK
+
+ * ../src/pgtkterm.c (create_background_surface_by_face)
+ (create_background_surface, x_draw_glyph_string_background)
+ (x_draw_glyph_string_bg_rect, x_draw_image_glyph_string)
+ (x_draw_stretch_glyph_string, pgtk_draw_fringe_bitmap): handle stipple
+
+ * ../src/image.c (image_create_bitmap_from_file, )
+ (syms_of_image): Add pgtk support
+
+ * ../lisp/faces.el (face-valid-attribute-values): add pgtk support
+
+ stipple 対応。
+
+ stipple がまともに動いてなかったので修正。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add support for make-frame-(in)visible
+
+ * ../src/pgtkterm.c (pgtk_make_frame_visible_wait_for_map_event_cb)
+ (pgtk_make_frame_visible_wait_for_map_event_timeout)
+ (x_make_frame_visible, x_new_font)
+ (pgtk_make_frame_visible_invisible, pgtk_make_frame_visible)
+ (pgtk_redisplay_interface, pgtk_create_terminal, map_event)
+ (syms_of_pgtkterm):
+
+ make-frame-visible/invisible 実装。
+
+2020-11-21 Jeff Walsh <fejfighter@gmail.com>
+
+ Early toolbar improvements
+
+ * src/xdisp.c (redisplay_tool_bar):
+
+ * src/pgtkterm.h:
+
+ * src/pgtkterm.c:
+ (pgtk_make_frame_visible, pgtk_make_frame_invisible)
+ (pgtk_update_begin, pgtk_parse_color, pgtk_query_colors)
+ (syms_of_pgtkterm):
+
+ * src/pgtkfns.c: cleanup function
+
+ * src/image.c (image_create_bitmap_from_file):
+
+ * src/gtkutil.c (xg_get_pixbuf_from_pix_and_mask):
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add Preferred geometry settings
+
+ * ../src/pgtkterm.h (struct pgtk_output):
+
+ * ../src/pgtkterm.c (pgtk_set_window_size):
+
+ * ../src/gtkutil.c (x_wm_set_size_hint):
+
+ * ../src/emacsgtkfixed.c (emacs_fixed_get_preferred_width)
+ (emacs_fixed_get_preferred_height):
+
+ Fixup toolbar handling
+
+ toolbar, menubar の ON/OFF でサイズが変化していっていたのを修正。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Migrate to Emacs_GC
+
+ * ../src/xfaces.c (x_create_gc, x_free_gc):
+
+ * ../src/pgtkterm.h (struct pgtk_output, struct pgtk_output):
+
+ * ../src/pgtkterm.c (x_set_cursor_gc, x_set_mouse_face_gc)
+ (x_setup_relief_color, x_draw_image_foreground_1)
+ (x_draw_image_foreground)
+ (pgtk_cr_draw_image, pgtk_draw_fringe_bitmap)
+ (pgtk_begin_cr_clip, pgtk_set_cr_source_with_gc_foreground)
+ (pgtk_set_cr_source_with_gc_background):
+
+ * ../src/pgtkgui.h:
+
+ * ../src/dispextern.h (struct glyph_string): clean up XGCValues
emulation
+
+ XGCValues, GC 廃止。
+
+ Emacs_GC に統一。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Add pgtk-read-file-name function
+
+ * ../src/pgtkfns.c (read_file_name_closed_cb)
+ (Fpgtk_read_file_name, syms_of_pgtkfns): add function
+
+ pgtk-read-file-name を作成。
+
+ toolbar からよく呼ばれるので…
+
+2020-11-21 Jeff Walsh <fejfighter@gmail.com>
+
+ Implement menubar for pgtk emacs
+
+ * src/xdisp.c (display_menu_bar): add pgtk case
+
+ * ../src/pgtkterm.c (pgtk_create_terminal): update hooks
+ (pgtk_menu_show): delete
+
+ * src/pgtkterm.h: add decls
+
+ * src/pgtkmenu.c: new file
+
+ * ../src/pgtkfns.c (x_set_menu_bar_lines)
+ (x_change_tool_bar_height, x_set_tool_bar_lines)
+ (Fx_create_frame):
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Cleanup x_* to gui_ to match upstream work
+
+ * ../src/pgtkterm.h (struct pgtk_display_info):
+
+ * ../src/pgtkterm.c (mark_pgtkterm, x_free_frame_resources)
+ (pgtk_update_window_end, pgtk_mouse_position)
+ (pgtk_redisplay_interface, pgtk_query_frame_background_color)
+ (pgtk_delete_terminal, pgtk_create_terminal)
+ (pgtk_query_frame_background_color, frame_highlight)
+ (motion_notify_event, button_event, scroll_event):
+
+ * ../src/pgtkfns.c (x_set_cursor_color, x_icon)
+ (pgtk_frame_parm_handlers, x_default_font_parameter)
+ (Fx_create_frame):
+
+ "for the time being, commit" -- rename x->gui, frame_X_X(f) macros
+
+ ひとまず commit。
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Simplify compilaiton condtion
+
+ * ../src/menu.c (single_menu_item):
+
+ change condition.
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ replace listn with list.
+
+ * ../src/pgtkfns.c (frame_geometry):
+
+ replace listn with list.
+
+2020-11-21 Yuuki Harano <masm+github@masm11.me>
+
+ Fix xdg-open handling
+
+ * ../src/pgtkterm.c (pgtk_term_init, NUM_ARGV, pgtk_term_init):
+
+ * ../lisp/net/browse-url.el (browse-url):
+
+ xdg-open できなかったのを修正。
+
+2020-11-21 Yuuki Harano <masm@masm11.ddo.jp>
+
+ Add support for cursor_foreground_colors
+
+ * ../src/pgtkterm.c (x_set_cursor_gc):
+
+ * ../src/pgtkfns.c (x_set_cursor_color, Fx_create_frame)
+ (syms_of_pgtkfns):
+
+ * src/pgtkterm.h (struct pgtk_output):
+
+ cursor_foreground_color 対応。
+
+ あんまり意味なかった感じ。
+
+2020-11-21 Yuuki Harano <masm@masm11.ddo.jp>
+
+ Don't mark name_list_element as it's not required
+
+ * ../src/pgtkterm.c (mark_pgtkterm):
+
+ これは余分。
+
+2020-11-21 Yuuki Harano <masm@masm11.ddo.jp>
+
+ Add set_skip_taskbar frame parm
+
+ * src/pgtkfns.c (x_set_skip_taskbar, pgtk_frame_parm_handlers):
+ Add set_skip_taskbar
+
+2020-11-21 Yuuki Harano <masm@masm11.ddo.jp>
+
+ Add set_undecorated frame parameter
+
+ * src/pgtkfns.c (x_set_undecorated, pgtk_frame_parm_handlers): Add
+ undecorated frame parameter handle
+
+2020-11-21 Yuuki Harano <masm@masm11.ddo.jp>
+
+ Introduce Pure GTK3 port
+
+ * src/xsettings.h:
+
+ * src/xsettings.c:
+ (dpyinfo_valid, store_tool_bar_style_changed)
+ (XSETTINGS_FONT_NAME, get_prop_window, read_settings)
+ (apply_xft_settings, read_and_apply_settings)
+ (xft_settings_event, init_xsettings, xsettings_initialize):
+
+ * src/xfaces.c:
+ (x_create_gc, x_free_gc):
+
+ * src/xdisp.c (redisplay_tool_bar, redisplay_internal)
+ (draw_glyphs_debug, draw_glyphs, mouse_face_from_buffer_pos)
+ (note_mouse_highlight):
+
+ * src/terminal.c (Fterminal_live_p):
+
+ * src/termhooks.h (enum output_method, GCALIGNED_STRUCT)
+ (TERMINAL_FONT_CACHE):
+
+ * src/process.c (wait_reading_process_output):
+
+ * src/pgtkterm.h:
+
+ * src/pgtkterm.c:
+
+ * src/pgtkselect.h:
+
+ * src/pgtkselect.c:
+
+ * src/pgtkgui.h:
+
+ * src/pgtkfns.c:
+
+ * src/image.c:
+ (XGetPixel, XPutPixel, image_create_bitmap_from_data)
+ (image_create_bitmap_from_file, free_bitmap_record)
+ (image_destroy_x_image, gui_put_x_image, image_get_x_image)
+ (Create_Pixmap_From_Bitmap_Data, xbm_load_image, )
+ (xpm_load_image, lookup_rgb_color, image_disable_image)
+ (image_build_heuristic_mask, imagemagick_load_image):
+
+ * src/gtkutil.h:
+
+ * src/gtkutil.c (PGTK_TRACE, xg_set_screen, xg_display_open)
+ (xg_display_close, xg_create_default_cursor)
+ (xg_get_pixbuf_from_pix_and_mask, xg_check_special_colors)
+ (qttip_cb, hierarchy_ch_cb, xg_prepare_tooltip, )
+ (xg_show_tooltip, xg_hide_tooltip, xg_frame_resized)
+ (xg_frame_set_char_size, xg_height_or_width_changed)
+ (xg_set_widget_bg, style_changed_cb, xg_create_frame_widgets)
+ (xg_free_frame_widgets, x_wm_set_size_hint, xg_frame_restack)
+ (xg_mark_data, xg_update_frame_menubar, free_frame_menubar)
+ (xg_update_submenu, xg_finish_scroll_bar_creation)
+ (xg_update_scrollbar_pos, xg_update_horizontal_scrollbar_pos)
+ (xg_set_toolkit_scroll_bar_thumb, xg_event_is_for_scrollbar)
+ (draw_page, xg_pack_tool_bar, xg_create_tool_bar)
+ (xg_update_tool_bar_sizes, update_frame_tool_bar)
+ (free_frame_tool_bar, xg_change_toolbar_position):
+
+ * src/ftcrfont.c:
+ (ftcrfont_draw):
+
+ * src/fringe.c:
+ (init_fringe_bitmap):
+
+ * src/frame.h (GCALIGNED_STRUCT, FRAME_WINDOW_P):
+
+ * src/frame.c (Fframep):
+
+ * src/font.h:
+
+ * src/font.c (syms_of_font):
+
+ * src/emacsgtkfixed.c:
+ (emacs_fixed_get_preferred_width)
+ (emacs_fixed_get_preferred_height, XSetWMSizeHints):
+
+ * src/emacs.c (main):
+
+ * src/dispnew.c (init_display_interactive):
+
+ * src/dispextern.h:
+
+ * src/alloc.c:
+ (garbage_collect):
+
+ * src/Makefile.in (PGTK_OBJ, PGTK_LIBS, base_obj, LIBES):
+
+ * src/.gdbinit:
+
+ * lisp/url/url-privacy.el (url-setup-privacy-info):
+
+ * lisp/term/pgtk-win.el (featurep):
+
+ * lisp/startup.el (command-line, fancy-splash-frame):
+
+ * lisp/net/eww.el (eww-form-submit, eww-form-file)
+ (eww-form-checkbox, eww-form-select):
+
+ * lisp/mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event):
+
+ * lisp/loadup.el (featurep):
+
+ * lisp/international/mule-cmds.el (set-coding-system-map):
+
+ * lisp/frame.el (pgtk-frame-geometry, frame-geometry)
+ (w32-frame-edges, frame-edges)
+ (pgtk-mouse-absolute-pixel-position)
+ (mouse-absolute-pixel-position)
+ (pgtk-set-mouse-absolute-pixel-position)
+ (pgtk-frame-list-z-order, frame-list-z-order)
+ (pgtk-frame-restack, frame-restack, display-mouse-p)
+ (display-graphic-p, display-symbol-keys-p, )
+ (display-pixel-height, display-mm-height, display-mm-width)
+ (display-backing-store, display-save-under, display-color-cells)
+ (display-planes, display-visual-class)
+ (pgtk-display-monitor-attributes-list)
+ (display-monitor-attributes-list):
+
+ * lisp/faces.el (face-spec-set-match-display, tool-bar):
+
+ * lisp/cus-edit.el (custom-button, custom-button-mouse)
+ (custom-button-pressed, custom-display):
+
+ * configure.ac (AUTO_DEPEND, XARGS_LIMIT, XWIDGETS_OBJ):
+
+2020-11-10 John Wiegley <johnw@newartisans.com>
+
+ Update version to 2.4.1
+
+2020-11-03 João Távora <joaotavora@gmail.com>
+
+ Don't force eglot-strict-mode completely in eglot--dcase
+
+ Doing so was by design, since there's much ambiguity between the
+ CodeAction and Command objects. But 'disallow-non-standard-keys is
+ not necessary to disambiguate, and proved harmful in this bug.
+
+ * eglot.el (eglot--dcase): Don't disallow
+ (eglot--check-dspec): Fix docstring.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/558
+
+2020-11-01 Damien Merenne <damien@bloom-life.com>
+ João Távora <joaotavora@gmail.com>
+
+ Handle lsp 3.15's ispreferred code action property
+
+ * eglot.el (eglot--lsp-interface-alist): Add :isPreferred to CodeAction.
+ (eglot-client-capabilities): Announce :isPreferredSupport.
+ (eglot-code-actions): Consider preferred CodeAction item.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/558
+
+2020-10-24 João Távora <joaotavora@gmail.com>
+
+ Don't send json null (elisp nil) down the wire
+
+ * eglot.el (eglot-initialization-options)
+ (eglot-client-capabilities): Use eglot--{}, not nil.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/300
+
+2020-08-30 R Primus <rprimus@users.noreply.github.com> (tiny change)
+
+ Unbreak haskell's hie-wrapper built-in incantation
+
+ * eglot.el (eglot-server-programs): Add required argument for
hie-wrapper
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/528
+
+2020-08-21 Paul M. Rodriguez <paulmrodriguez@gmail.com> (tiny change)
+
+ Provide suitable default to m-x eglot-rename
+
+
+ * eglot.el (eglot-rename): Provide a default value.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/524
+
+2020-08-21 Naoya Yamashita <conao3@gmail.com>
+
+ add multiple and eval :custom-face usage
+
+ This commit follows suggestion at
https://github.com/jwiegley/use-package/issues/696,
https://github.com/jwiegley/use-package/issues/821
+
+2020-08-16 João Távora <joaotavora@gmail.com>
+
+ Correct paren mismatch blunder introduced by earlier commit
+
+ Per https://github.com/joaotavora/eglot/issues/512.
+
+ * eglot.el (eglot-server-programs): properly close parenthesis.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/521
+
+2020-08-16 Steven vanZyl <rushsteve1@rushsteve1.us> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ Add built-int support for godot engine
+
+
+ * README.md: mention Godot
+
+ * eglot.el (eglot-server-programs): Add godot engine via port
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/511
+
+2020-08-11 Kaleb Elwert <belak@coded.io> (tiny change)
+
+ Remove use-package-font-lock-keywords
+
+2020-08-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from wyuenho/patch-1
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/846
+
+2020-08-03 Philipp Stephani <phst@google.com>
+
+ Migrate remaining files to lexical binding
+
+2020-07-27 Andrew Schwartzmeyer <andrew@schwartzmeyer.com> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ Ensure completion terminates in correct buffer
+
+ To design a completion-in-region-function replacement that leverages
+ the elements in completion-at-point-functions, we must ensure that
+ their :exit-function parts execute in the correct buffer. That is the
+ buffer where the text to be completed lives, not necessarily the
+ buffer being used for user interaction.
+
+ Later on, this guarantee should be provided by Emacs itself, perhaps
+ by putting the correct with-current-buffer call in completion--done.
+
+
+ * eglot.el (eglot-completion-at-point): Ensure :exit-function's
+ buffer is where the source is.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/505
+
+2020-07-21 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ Merge branch 'master' into patch-1
+
+2020-07-21 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tzz/custom-set-default
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/855
+
+2020-07-13 João Távora <joaotavora@gmail.com>
+
+ Use a hash-table for storing resolved completions
+
+ * eglot.el (eglot-completion-at-point): use a hash-table for
+ storing resolved completions.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/510
+
+2020-07-13 João Távora <joaotavora@gmail.com>
+
+ Reload eldoc if needed on emacs < 28
+
+ ElDoc is preloaded in Emacs, so `require`-ing won't guarantee we are
+ using the latest version from GNU Elpa when we load eglot.el. Use an
+ heuristic to see if we need to `load` it in Emacs < 28.
+
+ * eglot.el (Package-Requires): Require eldoc 1.5.0
+ (top): Sometimes load eldoc
+
+2020-07-12 Ted Zlatanov <tzz@lifelogs.com>
+
+ Update the documentation for :custom as per
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/850
+
+2020-07-12 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ Fix broken test due to
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/850
+
+2020-07-11 João Távora <joaotavora@gmail.com>
+
+ Fix sorting of completion items
+
+ This fixes a problem pointed out by Yuwei Tian <ibluefocus@gmail.com>.
+
+ * eglot.el (eglot-completion-at-point): Fix getting :sortText content
+ of the completion item.
+
+ GitHub-reference: closes https://github.com/joaotavora/eglot/issues/509
+
+2020-07-09 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (package-requires): require flymake 1.0.9 and eldoc 1.2.0
+
+2020-07-09 João Távora <joaotavora@gmail.com>
+
+ Delegate "hover" and "signature" doc synchronization efforts to eldoc
+
+ Uses Eldoc's eldoc-documentation-functions variable. In Eldoc v1.0.0
+ that variable was already available as a way of handling/composing
+ multiple docstrings from different sources, but it didn't work
+ practically with mutiple concurrent async sources. This was fixed in
+ 1.1.0, which Eglot now requires.
+
+ This fixes the synchronization problems reported in
https://github.com/joaotavora/eglot/issues/494 and also
+ issue https://github.com/joaotavora/eglot/issues/439. It is likely
that some of the exact doc-composing
+ functionality in Eglot, (developed during those issues) was lost, and
+ has to be remade, quite likely in Eldoc itself.
+
+ Flymake is now also an Eldoc producer, and therefore the problems of
+ github issues https://github.com/joaotavora/eglot/issues/481 and
https://github.com/joaotavora/eglot/issues/454 will also soon be fixed as soon
as Eglot
+ starts using the upcoming Flymake 1.0.9.
+
+ * NEWS.md: New entry.
+
+ * README.md (eglot-put-doc-in-help-buffer)
+ (eglot-auto-display-help-buffer): Remove mention to these options.
+
+ * eglot.el
+ (Package-Requires:) Require eldoc.el 1.1.0.
+ (eglot--when-live-buffer): Rename from eglot--with-live-buffer.
+ (eglot--when-buffer-window): New macro.
+ (eglot--after-change, eglot--on-shutdown, eglot-ensure): Use
eglot--when-live-buffer.
+ (eglot--managed-mode): Use eglot-documentation-functions and
eldoc-documentation-strategy.
+ (eglot--highlights): Move down.
+ (eglot-signature-eldoc-function, eglot-hover-eldoc-function)
+ (eglot--highlight-piggyback): New eldoc functions.
+ (eglot--help-buffer, eglot--update-doc)
+ (eglot-auto-display-help-buffer, eglot-put-doc-in-help-buffer)
+ (eglot--truncate-string, eglot-doc-too-large-for-echo-area)
+ (eglot-help-at-point): Remove all of this.
+ (eglot--apply-workspace-edit): Call eldoc manually after an edit.
+ (eglot-mode-map): Remap display-local-help to eldoc-doc-buffer
+
+2020-07-07 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ better tests
+
+2020-07-07 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ add test for
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/845
+
+2020-07-07 Jimmy Yuen Ho Wong <wyuenho@gmail.com>
+
+ Support keymap symbol in bind-key
+
+ GitHub-reference: fix https://github.com/jwiegley/use-package/issues/845
+
+2020-06-29 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tzz/custom-set-default
+
+ use-package-core.el: use the Emacs set-default function to avoid saving
:custom vars twice
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/850
+
+2020-06-22 Ted Zlatanov <tzz@lifelogs.com>
+
+ use-package-core.el: use the Emacs set-default function to avoid saving
:custom vars twice
+
+2020-06-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jjlee/call-hooks-even-if-no-config
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/840
+
+2020-06-18 John Wiegley <johnw@newartisans.com>
+
+ Merge branch 'master' into call-hooks-even-if-no-config
+
+2020-05-31 João Távora <joaotavora@gmail.com>
+
+ Fix small problems around eglot's help buffer
+
+ Specifically:
+
+ - correctly format the message shown to the user about doc being
truncated
+ - don't show message if the buffer is showing in some frame's window
+ - correctly name the help buffer switched to with `C-h .'.
+
+ This is still not ideal:
+
+ - When the `C-h .' suggestion is shown to the user, typing that
keybinding
+ shouldn't result in a new LSP request to fetch probably the same info;
+ - All this functionality belongs in eldoc.el.
+
+ * eglot.el (eglot-help-at-point): Fix buffer name.
+ (eglot--update-doc): Provide more help.
+
+2020-05-30 Andrii Kolomoiets <andreyk.mad@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Simplify eglot-code-actions
+
+ If no region is active, ask for code actions at point, even if there
+ are no diagnostics at point.
+
+
+ * eglot.el (eglot-code-actions): Simplify.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/473
+
+2020-05-26 Andrii Kolomoiets <andreyk.mad@gmail.com>
+
+ Use filter-buffer-substring to get buffer text
+
+ This way modes used to represent hover info text, such as
+ gfm-view-mode can e.g. filter out invisible text by providing own
+ `filter-buffer-substring-function'.
+
+ * eglot.el (eglot--format-markup): Use `filter-buffer-substring'.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/482
+
+2020-05-26 João Távora <joaotavora@gmail.com>
+
+ Replace uses of project-roots with project-root
+
+ * eglot.el (Package-Requires): Require project 0.3.0.
+ (eglot--connect, eglot-handle-request)
+ (eglot-initialization-options, eglot--eclipse-jdt-contact): Use
+ project-root.
+
+2020-05-26 Gary Oberbrunner <garyo@oberbrunner.com> (tiny change)
+
+ Also consider label of a completionitem for snippets
+
+
+ * eglot.el (eglot-completion-at-point): Consider label when
+ expanding snippets.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/480
+
+2020-05-25 Andrii Kolomoiets <andreyk.mad@gmail.com>
+ Andreii Kolomoiets <andreyk.mad@gmail.com>
+
+ Rework computation of string given to eldoc (again)
+
+
+ Also do some refactoring to join similar logic in
+ eglot-doc-too-large-for-echo-area and eglot--truncate-string.
+
+ * eglot.el (eglot-doc-too-large-for-echo-area): Now returns the
+ number of lines available.
+ (eglot--truncate-string): New helper.
+ (eglot--first-line-of-doc, eglot--top-lines-of-doc): Remove.
+ (eglot--update-doc): Use new helpers.
+
+ * eglot-tests.el (hover-multiline-doc-locus): New test
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/459
+
+2020-05-25 Philipp Stephani <p.stephani2@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Fix type error in eglot--xref-make-match
+
+ Its first argument is passed to xref-make-match, which expects a string
+ as its SUMMARY argument, but symbol-at-point returns a symbol.
+
+
+ * eglot.el (eglot--lsp-xrefs-for-method): use symbol-name.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/488
+
+2020-05-21 Rudolf Schlatte <rudi@constantly.at>
+
+ Add support for erlang_ls
+
+ * README.md: Mention erlang_ls
+
+ * eglot.el (eglot-server-programs): Add erlang_ls
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/471
+
+2020-05-20 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from nahuel/patch-1
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/843
+
+2020-05-20 Nahuel Greco <ngreco@gmail.com>
+
+ typo, should be a vector, not a bytecode object
+
+ Solves https://github.com/jwiegley/use-package/issues/842
+
+2020-05-18 João Távora <joaotavora@gmail.com>
+
+ Correctly place diagnostics in narrowed buffers
+
+ * eglot.el (eglot--lsp-position-to-point)
+ (eglot-handle-notification): save-restriction and widen
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/479
+
+2020-05-16 João Távora <joaotavora@gmail.com>
+
+ Require xref, project and eldoc from gnu elpa
+
+ * Makefile (ELPADEPS): Install Xref, Project and Eldoc.
+
+ * eglot.el (Package-Requires): Require Xref, Project and Eldoc
+ from GNU ELPA.
+
+2020-05-14 Dan Davison <dandavison7@gmail.com>
+
+ Prompt for executable if supplied name does not exist
+
+ * eglot.el (eglot--guess-contact): Interpret a list containing a
+ single string as an executable when forming the interactive prompt.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/474
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/478
+
+2020-05-12 Dan Davison <dandavison7@gmail.com> (tiny change)
+
+ Don't call flymake report function if flymake is disabled
+
+ Also fix https://github.com/joaotavora/eglot/issues/472.
+
+
+ * eglot.el (eglot-handle-notification): Check that flymake-mode is
+ active before calling flymake report function.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/468
+
+2020-05-09 John Lee <jjl@pobox.com> (tiny change)
+
+ Add special value back again, in case needed for backwards compat
+
+ I don't know why this special value exists, but perhaps old client code
uses it.
+
+ The additional `t' in the macro expansion is accidental but not harmful
I guess.
+
+2020-05-09 John Lee <jjl@pobox.com> (tiny change)
+
+ Even when there's no :config, run any pre/post config hooks
+
+ i.e., following the existing docs for use-package-inject-hooks, these
hooks are
+ run:
+
+ use-package--foo--pre-config-hook
+ use-package--foo--post-config-hook
+
+ This should make config customisations more predictable (for example,
spacemacs
+ uses these hooks extensively to allow 'layers' to be customised).
+
+ I got rid of the "special" default value for :config, because it
doesn't seem to
+ be treated any differently than nil.
+
+ Fixes https://github.com/jwiegley/use-package/issues/785
+
+2020-05-07 Tobias Rittweiler <trittweiler@gmail.com>
+
+ Fix "free variable" warning
+
+ * eglot.el (eglot-events-buffer): Use `eglot-current-server' instead
+ of `eglot--cached-server' because the latter is declared later in
+ the file.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/460
+
+2020-05-06 Andrii Kolomoiets <andreyk.mad@gmail.com>
+
+ Remove trailing whitespaces
+
+ * eglot.el (defvar company-backends, eglot-code-actions):
+ Remove trailing whitespace
+
+2020-05-03 João Távora <joaotavora@gmail.com>
+
+ Simplify bug-reporting instructions
+
+ We assume the user has a recent enough jsonrpc.el that consolidates
+ events and stderr int the same transcript.
+
+ * README.md (Reporting bugs): Simplify instructions.
+
+ * eglot.el (eglot-events-buffer): Can work with no server.
+
+2020-05-03 João Távora <joaotavora@gmail.com>
+
+ Survive hover responses with empty markdown strings
+
+ * eglot.el (eglot-help-at-point): Protect against null eglot--hover-info
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/433
+
+2020-05-03 João Távora <joaotavora@gmail.com>
+
+ Remap display-local-help (c-h .) to eglot-help-at-point
+
+ * eglot.el (eglot-help-at-point): Fallback to display-local-help if no
+ hover doc
+ (eglot-mode-map): Remap display-local-help to eglot-help-at-point..
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/437
+
+2020-05-03 Theodor Thornhill <theo@thornhill.no>
+ João Távora <joaotavora@gmail.com>
+
+ Tweak handling of eldoc-echo-area-use-multiline-p
+
+ Also close https://github.com/joaotavora/eglot/issues/453
+
+
+ * eglot.el (eglot--first-line-of-doc): New helper.
+ (eglot--update-doc): Tweak docstring. Simplify.
+ (eglot-put-doc-in-help-buffer): Tweak docstring
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/443
+
+2020-05-02 João Távora <joaotavora@gmail.com>
+
+ Fontify markdown source code blocks by default
+
+ * eglot.el (eglot--format-markup): Set
+ markdown-fontify-code-blocks-natively to t locally.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/408
+
+2020-05-02 Felicián Németh <felician.nemeth@gmail.com>
+
+ Declare markdown support iff gfm-view-mode installed
+
+ * eglot.el (eglot-client-capabilities): Support markdown only when
+ gfm-view-mode is installed.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/408
+
+2020-05-02 Theodor Thornhill <theo@thornhill.no>
+ João Távora <joaotavora@gmail.com>
+
+ Always string-trim markup
+
+
+ * eglot.el: (eglot--format-markup): Factor string trim out
+ so we string-trim for all cases
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/450
+
+2020-05-02 João Távora <joaotavora@gmail.com>
+
+ Kind of honour eldoc-echo-area-use-multiline-p
+
+ A reworking of an idea and original implementation by Andrii
+ Kolomoiets <andreyk.mad@gmail.com>. It doesn't honor it completely
+ because the semantics for a non-t, non-nil value are tricky. And we
+ don't always exactly know what the symbol prefix reliably.
+
+ * eglot.el (eglot--update-doc): Kind of honour
+ eldoc-echo-area-use-multiline-p.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/443
+
+2020-05-02 Dan Davison <dandavison7@gmail.com>
+
+ Unbreak eglot--guess-contact for host-and-port case
+
+ * eglot.el (eglot--guess-contact): Fix bug in (host port) connection
+ case.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/446
+
+2020-05-02 Dan Davison <dandavison7@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Tweak docstring of eglot-server-programs
+
+
+ * eglot.el (eglot-server-programs): Fix typos and phrasing.
+
+2020-05-02 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Support hierarchical documentsymbol in eglot-imenu
+
+ A reworking of an original implementation by Ingo Lohmar
+ <ingo.lohmar@github.com>
+
+ * eglot.el (eglot-client-capabilities, defvar): Add
+ DocumentSymbol.
+ (eglot-client-capabilities): Add
+ :hierarchicalDocumentSymbolSupport.
+ (eglot--parse-DocumentSymbol): Remove.
+ (eglot-imenu): Rewrite.
+
+ * NEWS.md (1.7): Mention new feature
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/303
+
+2020-05-02 João Távora <joaotavora@gmail.com>
+
+ Also check types when destructuring lsp objects
+
+ The problem in this issue is that the disambiguation between Command
+ and CodeAction objects can only be performed by checking the types of
+ the keys involved. So we added that to the spec and check it at
+ runtime.
+
+ * eglot.el (eglot--lsp-interface-alist): Add types to
+ Command. Tweak docstring.
+ (eglot--check-object): Renamed from eglot--call-with-interface.
+ (eglot--ensure-type): New helper.
+ (eglot--interface): New helper.
+ (eglot--check-dspec): Renamed from eglot--check-interface.
+ (eglot--dbind): Simplify.
+ (eglot-code-actions): Adjust indentation.
+
+ * eglot-tests.el (eglot-dcase-issue-452): New test.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/452
+
+2020-04-27 Andrii Kolomoiets <andreyk.mad@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Hide eldoc-message on empty hover info
+
+
+ * eglot.el (eglot-eldoc-function): Pass nil to eglot--update-doc
+ on empty hover info.
+ (eglot--update-doc): Skip update eglot help buffer if string
+ is nil.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/439
+
+2020-04-27 Tobias Rittweiler <trittweiler@gmail.com>
+
+ Tests: print contents of *eglot ...* buffers in batch mode.
+
+ Useful for the CI on github. To be able to see more of the context of
+ a failure.
+
+ * eglot.el (eglot-server-initialized-hook): Changed semantics. Now
+ called when an instance of `eglot-lsp-server' is created as part of
+ the "connect to server" flow. Previously, there was no difference
+ between this hook and `eglot-connect-hook' which continues to be run
+ once a connection was successfully established. The
+ `eglot-server-initialized-hook' will now capture ALL server instances
+ including those that failed to be started. This change was necessary
+ to make the test suite be able to dump the output of processes that
+ fail to start when running the test suite in batch mode ("make check"
+ and the CI.) In PR https://github.com/joaotavora/eglot/issues/448 it
was decided that it is ok to change the
+ semantics of this hook rather than introducing a new hook.
+ (eglot--connect): Change place of where the hook is run.
+ (eglot-connect-hook): Initialized now with
+ `eglot-signal-didChangeConfiguration' which was kept in
+ `eglot-server-initialized-hook' before.
+
+ * eglot-tests.el (eglot--call-with-fixture): Use
+ `eglot-server-initialized-hook' rather than `eglot-connect-hook'. And
+ dump the contents of the *EGLOT ...* buffers when run in
+ `noninteractive' (i.e. batch) mode.
+ (eglot--cleanup-after-test): New auxiliary function. Extracted
+ verbatim out of `eglot--call-with-fixture` in order to lower the
+ latter's LOC.
+
+2020-04-24 Trevor Murphy <trevormurphy@google.com>
+
+ Create match xrefs when possible
+
+ "Match xrefs" are created with `xref-make-match' instead of
+ `xref-make'. Match xrefs support `xref-query-replace-in-results' from
+ the results buffer.
+
+ * eglot.el (eglot--xref-make-match): Calculate xref match length from
+ the eglot range.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/435
+
+2020-04-24 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-put-doc-in-help-buffer): tiny docstring fix.
+
+2020-04-24 João Távora <joaotavora@gmail.com>
+
+ Don't reupdate help buffer if already rendered
+
+ * eglot.el (eglot--update-doc): Don't reupdate if doc buffer
+ already exists.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/445
+
+2020-04-23 Andrii Kolomoiets <andreyk.mad@gmail.com>
+
+ Use text-mode for plaintext markup
+
+ * eglot.el (eglot--format-markup): Use text-mode for
+ plaintext markup.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/444
+
+2020-04-16 Felicián Németh <felician.nemeth@gmail.com>
+
+ Update dependencies and copyright years
+
+ * eglot.el: Update dependencies and copyright years.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/413
+
+2020-04-16 Theodor Thornhill <theo@thornhill.no>
+ João Távora <joaotavora@gmail.com>
+
+ Simplify a bit of code
+
+
+ * eglot.el (eglot-move-to-lsp-abiding-column): use
+ already existing function to refer to lsp-abiding-column
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/397
+
+2020-04-16 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 1.6
+
+ * NEWS.md: Bump to 1.6
+
+2020-04-16 Felicián Németh <felician.nemeth@gmail.com>
+ João Távora <joaotavora@gmail.com>
+
+ Abide by lsp when reporting and moving to columns
+
+ * eglot.el (eglot-current-column-function): Set to
+ eglot-lsp-abiding-column.
+ (eglot-move-to-column-function): Set to
+ eglot-move-to-lsp-abiding-column.
+
+ * NEWS.md: Log the change here as well.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/361
+
+2020-04-16 João Távora <joaotavora@gmail.com>
+
+ Fix eglot-move-to-lsp-abiding-column ()
+
+ Ensure conformance with the this part of the specification: "if the
+ character value is greater than the line length it defaults back to
+ the line length."
+
+ * eglot.el: (eglot-move-to-lsp-abiding-column): Don't move beyond
+ line-end.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/361
+
+2020-04-16 Felicián Németh <felician.nemeth@gmail.com>
+
+ Send shutdown and exit messages without arguments
+
+ Fix regression introduced in 70e6157b
(https://github.com/joaotavora/eglot/issues/315). According to the
+ LSP specification the exit notification and the shutdown request
+ shouldn't have arguments ("params: void"). Note that jsonrpc.el
+ send nil as null on the wire.
+
+ * eglot.el (eglot-shutdown): Change back the arguments of
+ :shutdown and :exit to nil.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/430
+
+2020-03-22 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jwiegley/johnw/clarify
+
+ Clarify the documentation for :after
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/820
+
+2020-03-20 Felicián Németh <felician.nemeth@gmail.com>
+
+ Ignore empty hover info
+
+ This just mimics a similar check in `eglot-help-at-point'.
+
+ * eglot.el (eglot-eldoc-function): Check emptiness of `contents' more
+ carefully.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/425
+
+2020-03-04 John Wiegley <johnw@newartisans.com>
+
+ Clarify the documentation for :after
+
+2020-01-13 Felicián Németh <felician.nemeth@gmail.com>
+
+ Make a public reader for project-nickname
+
+ Close https://github.com/joaotavora/eglot/issues/399.
+
+ * eglot.el (eglot-lsp-server): Add a public reader for
+ project-nickname as eglot-project-nickname.
+ (eglot--connect, eglot--read-server, eglot--mode-line-format): Use
+ the public variant.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/354
+
+2020-01-13 Felicián Németh <felician.nemeth@gmail.com>
+
+ Add public hook eglot-managed-mode-hook
+
+ Per https://github.com/joaotavora/eglot/issues/354.
+
+ * eglot.el (eglot-managed-p): New function.
+ (eglot--managed-mode-hook): Obsolete it.
+ (eglot-managed-mode-hook): New hook variable.
+ (eglot--managed-mode): Run the new hook.
+
+ * README.md (Customization): Mention the new hook.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/182
+
+2020-01-13 Vladimir Panteleev <git@thecybershadow.net> (tiny change)
+
+ Introduce and use eglot--{}, the empty json object
+
+ * eglot.el (Constants): Add eglot--{}.
+ (eglot-shutdown, eglot--connect): Use it.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/315
+
+2020-01-13 Vladimir Panteleev <git@thecybershadow.net> (tiny change)
+
+ Call shutdown/exit methods with params:{}, not null
+
+ "null" is not a valid JSON value for "params" according to the
+ JSON-RPC specification.
+
+ * eglot.el (eglot-shutdown): Do the same thing as for "initialized",
+ and use an empty hash table to be serialized to {}.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/315
+
+2020-01-09 Felicián Németh <felician.nemeth@gmail.com>
+
+ Support bug-reference-prog-mode
+
+ * eglot.el (Local Variables): Add bug-reference-bug-regexp and
+ bug-reference-url-format.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/405
+
+2020-01-08 Felicián Németh <felician.nemeth@gmail.com>
+
+ Revert the last change about column calculation
+
+2020-01-08 Felicián Németh <felician.nemeth@gmail.com>
+
+ Document the changes in column calculation
+
+ * eglot.el (eglot-current-column-function)
+ (eglot-move-to-column-function): Document the change of the
+ default value.
+
+ * NEWS.md: Log the change here as well.
+
+2020-01-08 João Távora <joaotavora@gmail.com>
+
+ Abide by lsp when reporting and moving to columns
+
+ * eglot.el (eglot-current-column-function): Set to
+ eglot-lsp-abiding-column.
+ (eglot-move-to-column-function): Set to
+ eglot-move-to-lsp-abiding-column.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/361
+
+2020-01-05 Felicián Németh <felician.nemeth@gmail.com>
+
+ Merge pull request from joaotavora/scratch/fix-277-exit-notification
+
+ Fix https://github.com/joaotavora/eglot/issues/277: Send exit as a
notification
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/400
+
+2020-01-05 Felicián Németh <felician.nemeth@gmail.com>
+
+ Send exit as a notification
+
+ This is what the specification requires. @PerMildner, thanks for
+ reporting and analyzing the issue.
+
+ * eglot.el (eglot-shutdown): Use `notify' instead of `request' for the
+ `exit' LSP method.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/277
+
+2020-01-02 João Távora <joaotavora@gmail.com>
+
+ Avoid double shutdowns and simplify shutdown logic
+
+ * eglot.el (eglot-shutdown): Don't turn off eglot--managed-mode here.
+ (eglot--on-shutdown): Rather here, but without autoshutdown.
+ (eglot--managed-mode): Don't check eglot--shutdown-requested.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/389
+
+2020-01-02 Theodor Thornhill <theo@thornhill.no> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ Use completing-read in eglot-code-actions
+
+ See also https://github.com/joaotavora/eglot/issues/386.
+
+ * eglot.el (eglot-code-actions): Replace tmm with completing-read
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/393
+
+2019-12-30 Evgeni Kolev <evgenysw@gmail.com>
+
+ * eglot.el (eglot-eldoc-function): fix outdated docstring.
+
+ Fix https://github.com/joaotavora/eglot/issues/387
+
+2019-12-28 Steve Purcell <steve@sanityinc.com>
+ João Távora <joaotavora@gmail.com>
+
+ Add elm-language-server as the language server for elm
+
+ * README.md (Connecting to a server): Add elm-language-server
+
+ * eglot.el (eglot-server-programs): Add elm-language-server
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/383
+
+2019-12-26 Theodor Thornhill <theo@thornhill.no> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ New eglot-confirm-server-initiated-edits defcustom
+
+ * eglot.el (eglot-confirm-server-initiated-edits): New defcustom.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/382
+
+2019-12-18 Augusto Stoffel <arstoffel@gmail.com> (tiny change)
+
+ Add built-in support for tex and friends
+
+ plain-tex-mode and latex-mode are derived from tex-mode. Some other
+ TeX-related modes are not, so they require an explicit mention in
+ eglot-server-programs.
+
+ * README.md (Connecting to a server): Add Digestif to the list
+
+ * eglot.el (eglot-server-programs): Add Digestif for TeX-related modes
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/379
+
+2019-12-17 Antoine Kalmbach <ane@iki.fi> (tiny change)
+
+ Add metals as the language server for scala
+
+ * README.md (Connecting to a server): Add metals to the list
+
+ * eglot.el (eglot-server-programs): Add metals for scala-mode
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/376
+
+2019-12-08 João Távora <joaotavora@gmail.com>
+
+ Allow non-standard keys in textdocument/publishdiagnostics.
+
+ * eglot.el (eglot-handle-notification): Allow other keys for
+ textDocument/publishDiagnostics.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/357
+
+2019-11-30 João Távora <joaotavora@gmail.com>
+
+ Unbreak window/showmessagerequest
+
+ * eglot.el (eglot-handle-request): Answer with a proper
+ MessageActionItem.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/362
+
+2019-11-26 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from DamienCassou/typos
+
+ Fix typos
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/808
+
+2019-11-26 Damien Cassou <damien.cassou@gmail.com>
+
+ Fix typos
+
+ Typos found with codespell.
+
+2019-11-20 João Távora <joaotavora@gmail.com>
+
+ Resolve compilation warnings
+
+ * eglot.el (company-tooltip-align-annotations): Forward declare.
+ (eglot--cached-server): Renamed from eglot--cached-current-server.
+ (eglot--managed-mode, eglot-current-server)
+ (eglot--current-server-or-lose)
+ (eglot--maybe-activate-editing-mode): use it.
+ (eglot-completion-at-point): Don't use insertTextFormat.
+
+2019-11-20 João Távora <joaotavora@gmail.com>
+
+ Locally tweak imenu-create-index-function
+
+ * eglot.el (eglot--managed-mode): locally tweak
+ imenu-create-index-function.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/351
+
+2019-11-18 Felicián Németh <felician.nemeth@gmail.com>
+
+ Fail when eglot-find-* finds no references
+
+ * eglot.el (eglot--lsp-xref-helper): Display message when no
+ references have been found instead of calling xref-find-references.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/339
+
+2019-11-17 Xu Chunyang <4550353+xuchunyang@users.noreply.github.com> (tiny
change)
+
+ Waste less space in completion annotations
+
+ * eglot.el (eglot-completion-at-point): don't add "(snippet)"
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/349
+
+2019-11-17 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-completion-at-point): remove spurious unrelated
change.
+
+2019-11-15 João Távora <joaotavora@gmail.com>
+
+ Ensure process starts in project's root
+
+ Also fix https://github.com/joaotavora/eglot/issues/347.
+
+ * eglot.el (eglot--connect): Bind default-directory around make
+ process.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/330
+
+2019-11-15 João Távora <joaotavora@gmail.com>
+
+ Let other imenu functions work if lsp server's doesn't
+
+ * eglot.el (eglot--stay-out-of-p): New helper.
+ (eglot--setq-saving): Use it.
+ (eglot--managed-mode): Use add-function :before-until for
+ imenu-create-index-function.
+ (eglot-imenu): Don't error. Fix indentation.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/343
+
+2019-11-13 Felicián Németh <felician.nemeth@gmail.com>
+
+ Support serverinfo of lsp 3.15.0
+
+ Add support for serverInfo from the upcoming specification. This
+ changeset just stores the info sent by the server and slightly changes
+ a greeting message. But it opens up the possibility to identify
+ servers even when eglot uses a TCP connection and therefore makes
+ possible to implement server specific features (in eglot-x).
+
+ Old message:
+ ```
+ Connected! Server `EGLOT (test-ccls/c++-mode)' now managing `c++-mode'
buffers in project `test-ccls'.
+ ```
+
+ New message:
+ ```
+ Connected! Server `ccls' now managing `c++-mode' buffers in project
`test-ccls'.
+ ```
+
+ * eglot.el (eglot--lsp-interface-alist): Extend it with serverInfo.
+ (eglot-lsp-server): Add member variable server-info.
+ (eglot--connect): Store server-info and display server's name
+ when connected.
+
+2019-11-12 r-zip <rzpilgrim@gmail.com> (tiny change)
+
+ Set nobreak-char-display to nil in *eglot-help*
+
+ * eglot.el (eglot-help-at-point): set nobreak-char-display
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/345
+
+2019-11-10 João Távora <joaotavora@gmail.com>
+
+ Protect against empty-string inserttext in completions
+
+ * eglot.el (eglot-completion-at-point): Don't use insertText as a
+ proxy.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/341
+
+2019-11-10 João Távora <joaotavora@gmail.com>
+
+ Provide stable eglot-current-server helper
+
+ It's better if eglot--current-server is removed, since it was being
+ abused by other packages, and has side effects. The only place where
+ it was really needed was eglot--maybe-activate-editing-mode, so the
+ find-and-cache logic has been moved there. All other places that can
+ handle a nil server now use eglot-current-server, the external
+ version.
+
+ * eglot.el (eglot-shutdown, eglot, eglot--read-server)
+ (eglot--mode-line-format): Use eglot-current-server.
+ (eglot--connect): Update comment.
+ (eglot--current-server): Remove.
+ (eglot-current-server): New helper.
+ (eglot--maybe-activate-editing-mode): find and cache the server here.
+
+ * eglot-tests.el (auto-detect-running-server)
+ (auto-shutdown, auto-reconnect, eglot-ensure)
+ (slow-async-connection): Use eglot-current-server.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/342
+
+2019-11-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsiiformes/typos
+
+ Fix typos
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/804
+
+2019-11-09 João Távora <joaotavora@gmail.com>
+
+ Don't choke on workspace/configuration with no scopeuri
+
+ * eglot.el (eglot-handle-request): Don't choke on nil scopeUri.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/340
+
+2019-11-06 Jonas Bernoulli <jonas@bernoul.li>
+
+ Fix typos
+
+2019-11-05 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Only set eglot--cached-current-server by (more aggressive) caching
+
+ * eglot.el (eglot--current-server): Always set cache value.
+ (eglot--maybe-activate-editing-mode): No need to set cached server.
+
+2019-11-05 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Simplify "maybe"-activation, dump "server" arg
+
+ * eglot.el (eglot--maybe-activate-editing-mode): Remove `server' arg.
+
+2019-11-01 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Merge -onoff proxy code into minor mode function
+
+ This simplifies bookkeeping and keeping the state of locally cached
+ servers, their managed buffers, and the buffer-local mode consistent.
+
+ The "on" case of the -onoff code now expects that
+ `eglot--cached-current-server' has been set already, the "off" case uses
+ the same value.
+
+ * eglot.el (eglot--managed-mode-onoff): Remove.
+ (eglot--managed-mode): Adopt code.
+ (eglot--managed-mode-off): New minimal wrapper.
+
+2019-10-30 João Távora <joaotavora@gmail.com>
+
+ Use completionitem/resolve more abundantly
+
+ It was already used to resolve documentation bits of completions, but
+ it can also be useful to resolve snippet templates and such.
+
+ To resolve a completion, you need some part of a completion to start
+ with. If it has a :data field exists and the server supports
+ :resolveProvider, fetch the new object, otherwise use whatever we had
+ already.
+
+ * eglot.el (eglot-completion-at-point): Add another local
+ function for resolving completions.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/50
+
+2019-10-28 Xu Chunyang <4550353+xuchunyang@users.noreply.github.com> (tiny
change)
+
+ Support markdown for textdocument/hover ()
+
+ * eglot.el (eglot-client-capabilities): annouce markdown support for
hover.
+ (eglot--format-markup): Format hover info with Markdown.
+
+ Fixes: https://github.com/joaotavora/eglot/issues/328
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/329
+
+2019-10-27 Xu Chunyang <4550353+xuchunyang@users.noreply.github.com> (tiny
change)
+
+ Don't run mode hooks in eglot--format-markup
+
+ * eglot.el (eglot--format-markup): Use delay-mode-hooks.
+
+2019-10-26 João Távora <joaotavora@gmail.com>
+
+ Support workspace/configuration
+
+ This helps users configure servers such as Gopls, which doesn't
+ support didChangeConfiguration signals.
+
+ * README.md (Per-project server configuration): New section.
+
+ * eglot.el (eglot-workspace-configuration): Fix docstring.
+ (eglot-signal-didChangeConfiguration): Rename a variable.
+ (eglot-handle-request workspace/configuration): New request
+ handler.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/326
+
+2019-10-24 João Távora <joaotavora@gmail.com>
+
+ Expand readme.md section on handling quirky servers
+
+ Also remove explicit cquery support (cquery seems to be dead anyway).
+
+ * README.md (Handling quirky servers): New section.
+
+ * eglot.el (eglot-initialization-options eglot-cquery): Remove.
+
+2019-10-22 João Távora <joaotavora@gmail.com>
+
+ Unbreak imenu
+
+ * eglot.el (eglot-imenu): Unbreak.
+
+2019-10-21 João Távora <joaotavora@gmail.com>
+
+ Force company to align completion annotations in eglot sessions
+
+ * eglot.el (eglot--managed-mode): force
+ company-tooltip-align-annotations to t.
+
+2019-10-21 João Távora <joaotavora@gmail.com>
+
+ Fix race condition when company-completing quickly
+
+ For some reason, probably related to the way that Eglot tries to
+ maintain the responsiveness of Company completion tooltips (see
+ below), the user's explicit input will sometimes be surprisingly
+ deleted by Company, leading to a horrible completion experience.
+
+ This is sometimes hard to reproduce, but appears to match this
+ description perfectly:
+ https://github.com/joaotavora/eglot/issues/319#issuecomment-542955432
+
+ Fortunately, Company has a good fix for this, which is to pass
+ `:company-require-match 'never` in the completion-at-point function.
+ This is the fix applied in this commit.
+
+ However, this line shouldn't be required since the default value for
+ `company-require-match` is `company-explicit-action-p`, presumably
+ meaning that the auto-deletion should never take place for characters
+ typed by the user.
+
+ This points to a bug in Company, or at least something which may have
+ been exacerbated by the way that Eglot aggressively fetches
+ completions from the server by passing :cancel-on-input to
+ `jsonrpc-request`, discarding out-of-date replies. Perhaps that
+ discarding step bears with it some side-effects that make the
+ `company-explicit-action-p` test return `nil` instead of the correct
+ `t`. Company interprets this as carte blanche to delete the last
+ inserted character.
+
+ * eglot.el (eglot-completion-at-point): Use :company-require-match
+ 'never.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/319
+
+2019-10-21 João Távora <joaotavora@gmail.com>
+
+ Unbreak m-x vc-revert, which reverts preserving modes
+
+ Unlike the normal revert-buffer command, vc-revert, doesn't re-apply
+ the major mode, meaning it was missing a didOpen to pair with the
+ didClose that is unconditionally sent on both commands.
+
+ Needed to use the dynamic variable revert-buffer-preserve-modes, and,
+ curiously, also forward-declare it to appease the byte compiler.
+
+ * eglot.el (eglot--managed-mode): Use after-revert-hook.
+ (revert-buffer-preserve-modes): Forward declare.
+ (eglot--after-revert-hook): Signal didOpen when preserving-modes.
+ (eglot--maybe-activate-editing-mode): Tweak comment.
+
+2019-10-21 João Távora <joaotavora@gmail.com>
+
+ (again): fix issue with replace-buffer-contents
+
+ Manually calling the before/after change hooks for Emacs 26.1's buggy
+ replace-buffer-contents must be done with absolute positions, not
+ markers.
+
+ * eglot.el (eglot--apply-text-edits): Call change hooks with
+ buffer positions, not markers.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/259
+
+2019-10-20 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 1.5
+
+ * NEWS.md: update.
+
+2019-10-19 João Távora <joaotavora@gmail.com>
+
+ Let user keep control of some variables during eglot sessions
+
+ * NEWS.md: Mention new variable eglot-stay-out-of
+
+ * eglot.el (eglot-stay-out-of): New variable.
+ (eglot--setq-saving): Use it.
+ (eglot--managed-mode): Use eglot--setq-saving for imenu. No need
+ to remove 'eglot-flymake-backend from diagnostic functions.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/324
+
+2019-10-19 João Távora <joaotavora@gmail.com>
+
+ Don't immediately request completions in eglot-completion-at-point
+
+ Yet another adjustment to this function. According to the
+ documentation of completion-at-point-functions, we should strive to
+ make functions like eglot-completion-at-point "cheap to run".
+ Requesting completion from the server immediately after calling the
+ function goes against that. The reason we were doing it is that it
+ might have helped compute more accurate "bounds" for the return value
+ (START and END) from possible TextEdit completion items. But I've
+ decided it's not worth the effort, at least for now.
+
+ * eglot.el (eglot-completion-at-point): Request completions
+ asynchronously.
+
+2019-10-16 João Távora <joaotavora@gmail.com>
+
+ Protect against zero-length completions
+
+ Apparently the Vue Language Server sends such things (see
https://github.com/joaotavora/eglot/issues/319).
+
+ * eglot.el (eglot-completion-at-point): Protect against
+ zero-length completions.
+
+2019-10-16 João Távora <joaotavora@gmail.com>
+
+ Don't choke on single-location reply to td/definition
+
+ * eglot.el (eglot--lsp-xrefs-for-method): Accept non-vector
+ Location.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/321
+
+2019-10-16 João Távora <joaotavora@gmail.com>
+
+ Unbreak eglot--setq-saving if symbol is unbound
+
+ * eglot.el (eglot--setq-saving): check if symbol is bound
+
+2019-10-16 João Távora <joaotavora@gmail.com>
+
+ Use of company-capf backend in eglot-managed buffers
+
+ * eglot.el (company-backends): forward-declare
+ (eglot--managed-mode): Force company-backends to company-capf
+
+2019-10-16 João Távora <joaotavora@gmail.com>
+
+ Play along with lsp's filtertext hacks
+
+ Reworked important parts of eglot-completion-at-point.
+
+ One of the tasks was to cleanup the nomenclature so it's easier to
+ spot how LSP and Emacs's views of completion techniques differ. When
+ reading this rather long function, remember an "item" is a plist
+ representing the LSP completionItem object, and "proxy" is a
+ propertized string that Emacs's frontends will use to represent that
+ completion. When the completion is close to done, the :exit-function
+ is called, to potentially rework the inserted text so that the final
+ result might be quite different from the proxy (it might be a snippet,
+ or even a suprising text edit).
+
+ The most important change in this commit reworks the way the
+ completion "bounds" are calculated in the buffer. This is the region
+ that Emacs needs to know that is being targeted for the completion. A
+ server can specify this region by using textEdit-based completions all
+ consistently pointing to the same range. If it does so, Emacs will
+ use that region instead of its own understanding of symbol
+ boundaries (provided by thingatpt.el and syntax tables).
+
+ To implement server-side completion filtering, the server can also
+ provide a filterText "cookie" in each completion, which, when
+ prefix-matched to the intended region, selects or rejects the
+ completion. Given the feedback in
+ https://github.com/microsoft/language-server-protocol/issues/651, we
+ have no choice but to play along with that inneficient and grotesque
+ strategy to implement flex-style matching. Like ever in LSP, we do so
+ while being backward-compatible to all previously supported behaviour.
+
+ * eglot.el (eglot-completion-at-point): rework.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/235
+
+2019-10-16 João Távora <joaotavora@gmail.com>
+
+ Always filter completions client-side by prefix
+
+ Prefix completion is all we get in LSP because there are some servers
+ that send *all* completions everytime. This is horrible, but it's the
+ currently defined behaviour. See
+ https://github.com/microsoft/language-server-protocol/issues/651.
+
+ * eglot.el (eglot-completion-at-point): Use all-completions.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/319
+
+2019-10-15 João Távora <joaotavora@gmail.com>
+
+ Fix bug in workspace/didchangewatchedfiles
+
+ * eglot.el (eglot-register-capability): Fix a bug and a couple of
+ warnings.
+
+2019-10-15 Tom Tromey <tom@tromey.com>
+
+ Add support for the ada language server
+
+ * eglot.el (eglot-server-programs): Add ada-mode entry.
+
+ * README.md (Connecting to a server): Add Ada entry.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/316
+
+2019-10-14 João Távora <joaotavora@gmail.com>
+
+ Fix eglot-completion-at-point to work with bare completion-at-point
+
+ Fixes https://github.com/joaotavora/eglot/issues/313, fixes
https://github.com/joaotavora/eglot/issues/311, fixes
https://github.com/joaotavora/eglot/issues/279
+
+ As is well known, LSP's and Emacs's completion mechanics don't fit
+ very well together, mostly because Emacs expects completion to be a
+ something of a pure function of a string argument and LSP treats as a
+ function of a concrete buffer position.
+
+ A further complication arises because some completion frontends like
+ "bare" completion-at-point make Emacs modify the buffer's contents
+ during the completion process, while other (notably company-mode)
+ don't do that. Thus, 'eglot-completion-at-point' must take extra care
+ to answer to the questions listed in the "(elisp)Programmed
+ Completion" info node based on its (quite hacky) "completions" local
+ var and _not_ based on the intermediate buffer contents. That var is
+ also used to cache the last LSP response and allow the :exit-function
+ callback to retrieve much more than just the completion text in
+
+ In yet another related problem, :exit-function won't be called at all
+ with completion-at-point if the completion table doesn't answer
+ properly to test-completion. A previous use of
+ completion-table-dynamic was found to be unsuitable here: we must
+ answer all the requests separately.
+
+ * eglot.el (eglot-completion-at-point): Rework.
+
+2019-10-13 João Távora <joaotavora@gmail.com>
+
+ Unbreak xref-find-definitions
+
+ * eglot-tests.el (basic-xref): New test.
+
+ * eglot.el (eglot--collecting-xrefs): Add an edebug spec.
+ (eglot--lsp-xrefs-for-method): Actually collect xref.
+ (xref-backend-apropos): Fix indentation slightly.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/318
+
+2019-10-11 João Távora <joaotavora@gmail.com>
+
+ Misc improvements to the xref glue code
+
+ * eglot.el (eglot-xref-backend): Don't check capability here.
+ (eglot--collecting-xrefs): Reworked from eglot--handling-xrefs.
+ (eglot--handling-xrefs): Remove.
+ (xref-backend-apropos, eglot--lsp-xrefs-for-method): Use
eglot--collecting-xrefs.
+
+2019-10-11 João Távora <joaotavora@gmail.com>
+
+ Rework and correct major part of xref glue code
+
+ See comments of https://github.com/joaotavora/eglot/pull/314. Up to
+ now, xref-backend-indentifier-completion-table was a gross hack that
+ only worked sometimes. It relied on some fugly gymnastics to cache a
+ response from :textDocument/documentSymbol and somehow used that
+ information to build a completion table. But it doesn't work well.
+
+ Summarily, LSP doesn't lend itself well to the xref interface of
+ prompting for an arbitrary identifier and then go look for whichever
+ type of references of that identifier. All the LSP
+ :textDocument/{definition,references,implementation,...} methods
+ expect to know the exact context of the search the user is about to
+ perform, in the form of a document location. That conflicts with the
+ xref "arbitrary string" requirement.
+
+ Therefore, the slightly limited, but much more correct way, for Eglot
+ to function is to override the user's preference of
+ xref-prompt-for-identifier, temporarily setting it to nil in
+ eglot--managed-mode (ideally, though, xref-prompt-for-identifier
+ should be a function of the backend.)
+
+ Later on, a possibly better behaved identifier completion table can be
+ built on top of the :workspace/symbol LSP method.
+
+ * eglot.el (xref-backend-identifier-at-point): Rewrite.
+ (eglot--lsp-xrefs-for-method): New helper.
+ (eglot--lsp-xref-helper): Use eglot--lsp-xrefs-for-method.
+ (eglot--xref-definitions-method): Delete.
+ (eglot--lsp-xref-refs): New variable.
+ (xref-backend-references, xref-backend-definitions): Use
+ eglot--lsp-xrefs-for-method.
+ (eglot--managed-mode): Set xref-prompt-for-identifier
+ to nil.
+ (eglot--xref-reset-known-symbols, eglot--xref-known-symbols): Delete
+ (xref-backend-identifier-completion-table): Nullify.
+ (eglot-find-declaration, eglot-find-implementation)
+ (eglot-find-typeDefinition): Use eglot--lsp-xref-helper.
+
+2019-10-11 Felicián Németh <felician.nemeth@gmail.com>
+
+ Support goto-{declaration, implementation, typedefinition}
+
+ Closes https://github.com/joaotavora/eglot/issues/302.
+
+ * eglot.el (eglot--xref-definitions-method): New variable.
+ (xref-backend-definitions): Use it.
+ (eglot-find-declaration, eglot-find-implementation,
+ eglot-find-typeDefinition): New functions.
+
+ * README.md (Language features): Add new capabilities.
+
+ * eglot.el (eglot-client-capabilities): Add new capabilities.
+ (eglot-ignored-server-capabilites): Add new capability.
+
+2019-10-05 ambihelical <ambihelical@users.noreply.github.com> (tiny change)
+ João Távora <joaotavora@gmail.com>
+
+ Allow user to set idle time to wait before processing changes
+
+ * eglot.el (eglot-send-changes-idle-time): New defcustom.
+ (eglot--after-change): Use it.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/258
+
+2019-10-05 João Távora <joaotavora@gmail.com>
+
+ Much less noisy mode line
+
+ * eglot.el (eglot--mode-line-format): Simplify.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/236
+
+2019-10-05 João Távora <joaotavora@gmail.com>
+
+ Unbreak elm language server which does use :triggercharacters
+
+ Only query completionProvider -> triggerCharacter information if the
+ server has provided it. Elm's, and probaly other's, do not provide
+ it, which doesn't mean they don't support completion.
+
+ * eglot.el (eglot-completion-at-point): Check that completion
+ capability is a list before treating it like one.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/285
+
+2019-10-05 João Távora <joaotavora@gmail.com>
+
+ Revert "treat null/nil server capabilities as false"
+
+ This reverts commit 645bcfc6e57181c39dae1f238758e76c1759a765.
+
+ A capability of "null" is downright invalid, and must NOT be mistaken
+ for a value of "{}" (which indicates the presence of the capability)
+ or "False" (which indicates its asence). See
+
https://github.com/microsoft/language-server-protocol/issues/830#issuecomment-537849292
+ for a clarification from the LSP maintainer.
+
+2019-10-05 Vladimir Panteleev <git@thecybershadow.net> (tiny change)
+
+ Don't send dummy json object in "initialized" notification ()
+
+ Eglot uses a JSON object { __dummy__ : true } as a placeholder instead
+ of the empty object {}. It does this out of necessity, since encoding
+ an empty object can't currently be easily using the current jsonrpc.el
+ library. However, this also causes the parameter to be actually sent
+ to the server.
+
+ Since the JSON-RPC specification states "The names MUST match exactly,
+ including case, to the method's expected parameters" this is
+ non-conforming to the protocol.
+
+ The LSP specification does not seem to indicate how servers should
+ handle method calls with parameters they do not support. As such,
+ ignoring the parameter, or reporting an error, or crashing all seem to
+ be "valid" behaviors as far as the specification is concerned.
+
+ We can avoid this by using an empty hash table instead of a dummy
+ parameter. Currently, an empty hash table is the only Emacs Lisp
+ object which jsonrpc.el serializes to an empty JSON object in
+ jsonrpc--json-encode.
+
+ * eglot.el (eglot--connect): Use make-hash-table instead of dummy
+ object.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/312
+
+2019-10-05 Ingo Lohmar <ingo.lohmar@posteo.net>
+ João Távora <joaotavora@gmail.com>
+
+ Optionally shutdown after killing last buffer of managed project ()
+
+ This should close issue https://github.com/joaotavora/eglot/issues/217,
also cf. https://github.com/joaotavora/eglot/issues/270.
+
+ * eglot.el (eglot-autoshutdown): New defcustom.
+ (eglot--managed-mode-onoff): Shutdown if so configured and
+ no managed buffers left.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/309
+
+2019-10-05 Ingo Lohmar <ingo.lohmar@posteo.net>
+ João Távora <joaotavora@gmail.com>
+
+ On buffer kill, first send didclose then teardown local structures
+
+ It used to be the reverse way around, which doesn't make sense.
+
+ * eglot.el (eglot-managed-mode): Fix order in `kill-buffer-hook'
+
+2019-09-26 galeo <galeo@users.noreply.github.com> (tiny change)
+
+ Also use signature label offsets for parameter info
+
+ According to the LSP specification, a parameter of a callable-signature
+ has a label and a optional doc-commet. The label of a parameter
+ information is either a string or an inclusive start and exclusive end
+ offsets within its containing signature label.
+
+ Previously, this was only taken in account for highlighting the
+ parameter in the definition signature.
+
+ * eglot.el (eglot--sig-info): Handle signature label offsets
+ when printing the signature parameter information.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/272
+
+2019-09-24 Felicián Németh <felician.nemeth@gmail.com>
+
+ Merge pull request from jorams/nil-capabilities-as-false
+
+ Treat null/nil server capabilities as false
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/298
+
+2019-09-23 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Use gopls server as the default for go ()
+
+ Developers recommend it: see
+ https://github.com/sourcegraph/go-langserver/blob/master/README.md
+
+ * eglot.el (eglot-server-programs): Use gopls.
+
+ * README.md: mention gopls instead of go-langserver.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/304
+
+2019-09-20 Joram Schrijver <i@joram.io> (tiny change)
+
+ Treat null/nil server capabilities as false
+
+ Some language servers may specify null for some capabilities in the list
+ of server capabilities. This does not conform to the specification, but
+ treating it as false is more reasonable than treating it as true.
+
+ A current example is the PHP language server. which specifies null for
+ every capability it does not handle, like documentHighlightProvider.
+ This would cause Eglot to send constant textDocument/documentHighlight
+ requests, which all timed out.
+
+ * eglot.el (eglot--server-capable): Change the handling of null values
+ for capabilities to treat them as false instead of true.
+
+2019-09-10 Felicián Németh <felician.nemeth@gmail.com>
+
+ Change the default of eglot-move-to-column-function
+
+ Previous default (move-to-column) works on visual columns, the LSP
+ specification and the new default (eglot-move-to-column) use "real"
+ columns. Fixes https://github.com/joaotavora/eglot/issues/293 and
https://github.com/joaotavora/eglot/issues/297.
+
+ * eglot.el (eglot-move-to-column): New function.
+ (eglot-move-to-column-function): Use it as default.
+
+2019-08-18 David Florness <edwargix@gmail.com> (tiny change)
+
+ Require array package to use current-line ()
+
+ The jsonrpc package (one of eglot's dependencies) recently
+ updated and removed the line requiring the array package. Since
+ current-line is provided by array and is used by eglot, require
+ array explicitly.
+
+ Here's jsonrpc's guilty commit:
+
+
https://git.savannah.gnu.org/cgit/emacs.git/commit/lisp/jsonrpc.el?id=c676444a43e4634c1f98ec286b5bd9e46b23216b
+
+
+ * eglot.el (array): Require it.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/294
+
+2019-08-12 Jürgen Hötzel <juergen@archlinux.org>
+
+ Expand directory watcher globs containing ** ()
+
+ Previously, if the server requested a glob pattern like foo/**/*
+ to be watched, we would just error. Now we watch foo/bar/ and
+ foo/baz/ as if the server had requested those two watchers
+ instead of just the one with the **.
+
+ As a limitation, the implementation of file-expand-wildcards
+ doesn't fully handle ** globstars (** matches at most one path
+ segment).
+
+ * eglot.el (eglot-register-capability workspace/didChangeWatchedFiles):
+ Use file-expand-wildcards to make a ** glob into multiple **-less
+ globs.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/293
+
+2019-07-18 Jürgen Hötzel <juergen@hoetzel.info> (tiny change)
+
+ Fix invalid guess for php language server ()
+
+ * eglot.el (eglot-server-programs): Change the position of the php
+ language server, otherwise it will always be hidden by the c-mode
+ server (php-mode is derived from c-mode).
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/288
+
+2019-07-16 John Wiegley <johnw@newartisans.com>
+
+ Use `require', not `load', when byte-compiling ()
+
+ Use `require', not `load', when byte-compiling
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/783
+
+2019-07-16 Radon Rosborough <radon.neon@gmail.com>
+
+ Update tests
+
+ Switch from `require' to `load' + `featurep'
+
+2019-07-12 Radon Rosborough <radon.neon@gmail.com>
+
+ Use `require', not `load', when byte-compiling
+
+2019-07-02 haqle314 <16577773+haqle314@users.noreply.github.com> (tiny
change)
+
+ Fix a typo
+
+ * eglot.el (eglot--lsp-position-to-point): fix eglot--warn
+ call
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/273
+
+2019-06-27 Ingo Lohmar <ingo.lohmar@posteo.net>
+
+ Simplify eldoc usage ()
+
+ * eglot-tests.el (hover-after-completions): Protect test. Rewrite
+ docstring.
+
+ * eglot.el (eglot--managed-mode): Don't mess with
eldoc-message-function.
+ (eglot--eldoc-hint): Remove.
+ (eglot--update-doc): Rename and rewrite from eglot--eldoc-message.
+ (eglot-eldoc-function): Don't set eglot--eldoc-hint.
+ Call eglot--update-doc.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/269
+
+2019-06-27 João Távora <joaotavora@gmail.com>
+
+ Leniently handle invalid positions sent by some servers
+
+ * eglot.el (eglot--lsp-position-to-point): Leniently squash
+ invalid character positions to 0.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/273
+
+2019-06-20 Justin Talbott <justin@waymondo.com>
+
+ update bind-chords to use of eval-after-load when maps declared
+
+ also improve :chord keyword syntax processing to more closely mimic
bind-keys since the same binding
+ normalizer is used.
+
+ also add tests for use-package-chords to cover these test cases
+
+2019-06-14 Justin Talbott <justin@waymondo.com>
+
+ rename function
+
+ extract use-package-hook-handler-flatten-mode-symbols function
+
+2019-06-14 Justin Talbott <justin@waymondo.com>
+
+ use `use-package-as-one` for normalizing `:ensure-system-package`
+
+ This makes the preferred syntax consistent with other `use-package`
+ keywords. All of these are now valid:
+
+ ```
+ (use-package format-all
+ :ensure-system-package
+ (prettier . "npm i -g prettier")
+ (rufo . "gem install rufo"))
+
+ (use-package format-all
+ :ensure-system-package
+ ((prettier . "npm i -g prettier")
+ (rufo . "gem install rufo")))
+
+ (use-package format-all
+ :ensure-system-package
+ (prettier . "npm i -g prettier"))
+ ```
+
+2019-05-29 John Wiegley <johnw@newartisans.com>
+
+ Make custom-face evaluate elisp. ()
+
+ Make custom-face evaluate elisp.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/773
+
+2019-05-29 Vincent Zhang <seagle0128@gmail.com> (tiny change)
+
+ Make custom-face evaluate elisp
+
+ Fix https://github.com/jwiegley/use-package/issues/696.
+
+2019-05-12 Akash Hiremath <akashh246@gmail.com> (tiny change)
+
+ Add built-in support for elixir's elixir-ls ()
+
+ * README.md: add elixir-ls.
+
+ * eglot.el (eglot-server-programs): add elixir-ls.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/264
+
+2019-05-10 João Távora <joaotavora@gmail.com>
+
+ Work around a bug in emacs's change detection
+
+ When using capitalize-word, or any case-fiddling function,
+ before-change-functions will record e.g. the whole word's start and
+ end, even though only the first character has changed. Not only is
+ this longer than needed but also conflicts with what we get in
+ after-change-functions, which records just the one-char-long change.
+
+ Also, if the word didn't need any fiddling at all then
+ before-change-function will run but after-change-functions won't: an
+ "orphan" before-change will erroneously be sent to the server.
+
+ * eglot.el (eglot--after-change): Detect problematic case and fix
+ change description.
+ (eglot--before-change): Store markers of changed region.
+ (eglot--signal-textDocument/didChange): Weed out orphan changes.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/259
+
+2019-05-09 João Távora <joaotavora@gmail.com>
+
+ Fix case when eglot-put-doc-in-help-buffer is nil
+
+ * eglot.el (eglot--eldoc-message): Check eglot-put-doc-in-help-buffer.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/263
+
+2019-05-08 Michal Krzywkowski <k.michal@zoho.com>
+
+ Only consider eglot's own diagnostics in eglot-code-actions
+
+ * eglot.el (eglot-code-actions): Filter out non-eglot diagnostics
+ before sending a request to the server.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/260
+
+2019-04-30 vjoki <vjoki@users.noreply.github.com> (tiny change)
+
+ Fix local function call in directory watcher ()
+
+
+ * eglot.el (eglot-register-capability
+ workspace/didChangeWatchFiles): fix call to handle-event.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/255
+
+2019-04-14 Naoya Yamashita <conao3@gmail.com>
+
+ * use-package-core.el (use-package): fix declare style
+
+ use-package specified lisp-indent-function to indent like defun.
+
+ Currently, use-package main macro specify indent as (declare (indent
1)),
+ then change indent mode like defun.
+
+ (declare (indent defun)) is same effect.
+ And it is useful when redefining use-package.
+
+2019-04-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from stribb/master
+
+ Add a line of documentation for (use-pacakage ... :hook).
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/759
+
+2019-04-04 Andrew Stribblehill <stribb@gmail.com> (tiny change)
+
+ Add a line of documentation for (use-pacakage ... :hook)
+
+2019-02-13 João Távora <joaotavora@gmail.com>
+
+ Unbreak build
+
+ Messed up the name of eglot-xref-lessp-function.
+
+ * eglot.el (eglot--handling-xrefs): Use eglot-xref-lessp-function
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/220
+
+2019-02-11 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (xref-backend-references): don't use return-from.
+
+2019-02-11 João Távora <joaotavora@gmail.com>
+
+ Don't sort xref's by default
+
+ But use a eglot-xref-lessp-function in case someone wants to tweak
+ this.
+
+ * eglot.el (eglot-xref-lessp-function): New variable.
+ (eglot--handling-xrefs): Use it.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/220
+
+2019-02-11 João Távora <joaotavora@gmail.com>
+
+ Use a less buggy flymake
+
+ * eglot.el (Package-Requires) Require flymake 1.0.5
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/223
+
+2019-02-05 João Távora <joaotavora@gmail.com>
+
+ Don't teardown company if started via trigger chars
+
+ Reported by zhanghj in
https://github.com/company-mode/company-mode/issues/866
+
+ * eglot.el (eglot-completion-at-point): More carefully calculate
+ :company-prefix-length
+
+2019-01-14 João Távora <joaotavora@gmail.com>
+
+ Consider mode derivation when guessing servers
+
+ * eglot.el (eglot-server-programs): Remove js2-mode and rjsx-mode.
+ (eglot--guess-contact): Use provided-mode-derived-p
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/177
+
+2019-01-14 João Távora <joaotavora@gmail.com>
+
+ Protect against null messages from eldoc
+
+ * eglot.el (eglot--eldoc-message): Protect against nil FORMAT.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/209
+
+2019-01-10 Sergey Kostyaev <s-kostyaev@users.noreply.github.com>
+
+ Fix bug introduced by commit fixing this issue
+
+ * eglot.el (eglot--sig-info): Protect against invalid label.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/121
+
+2019-01-09 Brady Trainor <mail@bradyt.com> (tiny change)
+
+ Add built-in support for dart's dart_language_server
+
+ Closes https://github.com/joaotavora/eglot/issues/194.
+
+
+ * README.md (Connecting to a server): Add dart_language_server.
+
+ * eglot.el (eglot-server-programs): Add dart_language_server.
+
+2019-01-09 João Távora <joaotavora@gmail.com>
+
+ Handle label offsets in parameterinformation
+
+ At least ccls uses this.
+
+ * eglot.el (eglot-client-capabilities): Declare support for
+ :labelOffsetSupport.
+ (eglot--sig-info): Handle label offsets in ParameterInformation
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/201
+
+2019-01-07 João Távora <joaotavora@gmail.com>
+
+ Display truncated docstring if too large for echo area
+
+ * eglot.el (eglot--eldoc-message): Display first line doc.
+
+2019-01-06 João Távora <joaotavora@gmail.com>
+
+ Rename new defcustoms with friendlier names
+
+ * eglot.el (eglot-doc-too-large-for-echo-area): Rename from
+ eglot-eldoc-extra-buffer-if-too-large.
+ (eglot-put-doc-in-help-buffer): Rename from
+ eglot-eldoc-extra-buffer.
+ (eglot-auto-display-help-buffer): Rename from
+ eglot-auto-display-eldoc-extra-buffer.
+ (eglot--eldoc-message): Use new variable names.
+
+2019-01-06 João Távora <joaotavora@gmail.com>
+
+ Fix test failure introduced by previous commit
+
+ Remove the hack of unsetting eldoc-last-message in
+ eglot--eldoc-message. This allows any subsequent eglot-eldoc-function
+ calls (prompted by simple cursor movement) to return it immediately,
+ thus refreshing the help buffer with the same contents. For this to
+ work, we also have to set eglot--eldoc-hint globally in
+ eglot-eldoc-function.
+
+ An alternative to making the test pass would be to keep the hack of
+ unsetting eldoc-last-message only in the case that we actually get to
+ display the help buffer. This would actually be more efficient, but
+ potentially more hacky.
+
+ The bottom line here is that eldoc doesn't have a good API to deal
+ with asynchronous docstring fetching. See this thread:
+
+ https://lists.gnu.org/archive/html/emacs-devel/2018-05/msg00151.html
+
+ * eglot.el (eglot--eldoc-message): Don't unset eldoc-last-message.
+ (eglot-eldoc-function): Set eglot--eldoc-hint for synchronous
+ operation too.
+
+2019-01-05 João Távora <joaotavora@gmail.com>
+
+ Show large docs in help buffer instead of echo are by default
+
+ * eglot.el (eglot--managed-mode): Add and remove from
eglot--eldoc-message
+ (eglot--eldoc-hint, eglot--help-buffer): New helpers.
+ (eglot-eldoc-extra-buffer)
+ (eglot-auto-display-eldoc-extra-buffer): New defcustoms.
+ (eglot--eldoc-message): New helper.
+ (eglot-eldoc-function): Set eglot--eldoc-hint.
+ (eglot-help-at-point): Use new helpers.
+ (eglot-eldoc-extra-buffer-if-too-large): New predicate.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/198
+
+2019-01-05 João Távora <joaotavora@gmail.com>
+
+ Prevent eldoc flicker when moving around
+
+ * eglot.el (eglot-eldoc-function): Return eldoc-last-message
+ immediately.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/198
+
+2019-01-05 João Távora <joaotavora@gmail.com>
+
+ Handle (un)registercapability requests via generic functions
+
+ * eglot.el (Version): Bump to 1.4
+ (eglot-register-capability, eglot-unregister-capability): New
+ generic functions.
+ (eglot--register-unregister): Call eglot-register-capability,
+ eglot-unregister-capability.
+ (eglot-register-capability s (eql
+ workspace/didChangeWatchedFiles)): Rename from
+ eglot--register-workspace/didChangeWatchedFiles.
+ (eglot-unregister-capability s (eql
+ workspace/didChangeWatchedFiles)): Rename from
+ eglot--unregister-workspace/didChangeWatchedFiles.
+
+2019-01-05 João Távora <joaotavora@gmail.com>
+
+ Appease checkdoc
+
+ * eglot.el (eglot--post-self-insert-hook)
+ (eglot--pre-command-hook, eglot--before-change)
+ (eglot--eclipse-jdt-contact): Fix docstrings.
+
+2019-01-02 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-workspace-configuration): safe when listp.
+
+2019-01-02 João Távora <joaotavora@gmail.com>
+
+ Run connection hooks with proper dir-locals
+
+ eglot-connect-hook and eglot-server-initialized-hook must run in a
+ buffer with properly setup directory-local variables for the project.
+
+ This is crucial for things like eglot-signal-didChangeConfiguration,
+ which needs a properly setup value of eglot-workspace-configuration to
+ succeed.
+
+ I could have chosen any of the buffers where Eglot is activating
+ itself, but the approach using
+ hack-dir-local-variables-non-file-buffer seems more correct, despite
+ the name.
+
+ * eglot.el (eglot--connect): Run connection hooks with proper
+ dir-locals.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/196
+
+2019-01-01 João Távora <joaotavora@gmail.com>
+
+ Allow read-only modes for markup rendering
+
+ gfm-mode is read-only, so it must be set after the string has been
+ inserted in the temporary buffer.
+
+ * eglot.el (eglot--format-markup): Insert string before setting
+ mode.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/197
+
+2018-12-27 João Távora <joaotavora@gmail.com>
+
+ Remove a hard dependency on flymake-mode
+
+ * eglot.el (eglot-handle-notification): Don't specifically check for
+ flymake-mode before reporting diagnostics.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/195
+
+2018-12-23 João Távora <joaotavora@gmail.com>
+
+ Slightly simplify eglot-completion-at-point
+
+ * eglot.el (eglot-completion-at-point): Don't propertize
+ completion string with all LSP properties.
+
+2018-12-23 João Távora <joaotavora@gmail.com>
+
+ Actually make completion sorting work
+
+ * eglot.el (eglot-completion-at-point): Complicate severely.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/190
+
+2018-12-22 João Távora <joaotavora@gmail.com>
+
+ Fix previous commit where workaround had been removed
+
+ Do remove the workaround, but not more than that.
+
+ * eglot.el (eglot-completion-at-point): set local var strings.
+
+2018-12-22 João Távora <joaotavora@gmail.com>
+
+ Use gfm-view-mode
+
+ * eglot.el (eglot--format-markup): Use gfm-view-mode instead of
gfm-mode.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/188
+
+2018-12-22 João Távora <joaotavora@gmail.com>
+
+ Remove workaround for company bug that has been fixed
+
+ See https://github.com/company-mode/company-mode/pull/845.
+
+ * eglot.el (eglot-completion-at-point): Remove workaround for
+ company-mode bug.
+
+2018-12-19 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (package-requires): require jsonrpc 1.0.7.
+
+2018-12-16 João Távora <joaotavora@gmail.com>
+
+ Take over flymake and eldoc completely while managing buffers
+
+ Take a pragmatic approach and override all other Flymake and Eglot
+ backends while Eglot is enabled. Restore previous values after
+ eglot-shutdown.
+
+ Certainly cases might arise where using more than one datasource
+ besides LSP while Eglot is managing the buffer is useful. But
+ currently contrary, it confuses users enabling Eglot in buffers that
+ already have flymake/eldoc backends configured.
+
+ The reasons are slightly different for Eldoc and Flymake:
+
+ - For Eldoc the :before-until strategy only makes sense for
+ synchronous backends, which Eglot isn't. This conflicts with
+ python.el default python-eldoc-function, which is also asynchronous.
+
+ - For Flymake, the default backends in Emacs (python-mode, c-mode, and
+ a few others) are mainly repetitions of what LSP does. The global
+ value is still run though (in case you want to put, say, a
+ spell-checking backend there).
+
+ * eglot.el (eglot--saved-bindings, eglot--setq-saving): New
+ helpers.
+ (eglot--managed-mode): Use them.
+
+2018-12-16 João Távora <joaotavora@gmail.com>
+
+ Be more careful when making xref summaries
+
+ * eglot.el (eglot--xref-make): Only highlight to end-of-line at
+ most.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/187
+
+2018-12-16 João Távora <joaotavora@gmail.com>
+
+ Don't make bogus responses to client/(un)registercapability
+
+ * eglot.el (eglot--register-unregister): Response is void.
+
+2018-12-16 João Távora <joaotavora@gmail.com>
+
+ Add edebug specs to destructuring macros
+
+ * eglot.el (eglot--dbind, eglot--lambda, eglot--dcase): Add edebug
+ specs.
+
+2018-12-16 João Távora <joaotavora@gmail.com>
+
+ Rewrite eglot--sig-info a bit for readability
+
+ * eglot.el (eglot--sig-info): Rewrite a bit.
+
+2018-12-16 Fredrik Bergroth <fbergroth@gmail.com> (tiny change)
+
+ Adjust active param highlighting in first line of signature (3/3)
+
+ Highlight only first active parameter match (even if there are many)
+
+
+ * eglot.el (eglot--sig-info): Simplify.
+
+2018-12-16 Fredrik Bergroth <fbergroth@gmail.com> (tiny change)
+
+ Adjust active param highlighting in first line of signature (2/3)
+
+ Use regex with word boundaries when scanning for active param, to
+ avoid matching substrings.
+
+
+ * eglot.el (eglot--sig-info): Use `re-search-forward`.
+
+2018-12-16 Fredrik Bergroth <fbergroth@gmail.com> (tiny change)
+
+ Adjust active param highlighting in first line of signature (1/3)
+
+ JT@2018/12/16: Previously, the whole first line of the rendered
+ documentation was searched for, potentially highlighting params
+ in the wrong place.
+
+
+ * eglot.el (eglot--sig-info): Search for active parameter within
+ `params-start` and `params-end`.
+
+2018-12-16 Fredrik Bergroth <fbergroth@gmail.com> (tiny change)
+
+ Apply eglot--format-markup to signature documentation
+
+
+ * eglot.el (eglot--sig-info): Call eglot--format-markup on signature
+ documentation.
+
+2018-12-09 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 1.3
+
+2018-12-07 João Távora <joaotavora@gmail.com>
+
+ Be lenient by default to unknown methods or notifications
+
+ * eglot.el (eglot-strict-mode): Describe meaning of
+ disallow-non-standard-keys.
+ (eglot-handle-notification, eglot-handle-request): Check
+ eglot-strict-mode.
+
+2018-12-07 João Távora <joaotavora@gmail.com>
+
+ Handle array params to server notification or requests
+
+ * eglot.el (eglot-handle-notification): Remove extraneous id
+ (eglot--connect): If params is an array, make it a list.
+
+2018-12-07 João Távora <joaotavora@gmail.com>
+
+ Scratch/use elpa flymake ()
+
+ Use GNU ELPA's Flymake
+
+ * eglot.el (Package-Requires): require Flymake 1.0.2.
+ (version< emacs-version "27.0"): Remove horrible hack
+
+ * Makefile (ELPADEPS): Renamed from JSONRPC.
+ (%.elc): Use it.
+ (eglot-check): Use it.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/178
+
+2018-12-06 João Távora <joaotavora@gmail.com>
+
+ Warn about suspicious interface usage at compile-time
+
+ For fun, set eglot-strict-mode to '(disallow-non-standard-keys
+ enforce-required-keys enforce-optional-keys) when compiling, or just
+ use flymake-mode in eglot.el.
+
+ * eglot.el (eglot--lsp-interface-alist): Use in compile-time.
+ Order alphabetically. Fix a few bugs.
+ (eglot-strict-mode): Disallow non-standard-keys when compiling.
+ Update docstring.
+ (eglot--keywordize-vars, eglot--check-interface): New
+ compile-time-helpers.
+ (eglot--dbind, eglot--dcase): Use new helpers.
+
+2018-12-06 João Távora <joaotavora@gmail.com>
+
+ Use eglot--dbind and eglot--lambda throughout
+
+ The default behaviour of these macros is to be lenient towards servers
+ sending unknown keys, which should fix the issue.
+
+ * eglot.el (eglot--lsp-interface-alist): Add a bunch of new interfaces.
+ (eglot--connect, eglot-handle-notification)
+ (xref-backend-identifier-completion-table)
+ (xref-backend-definitions, xref-backend-apropos)
+ (xref-backend-references, eglot-completion-at-point)
+ (eglot--sig-info, eglot-help-at-point, eglot-eldoc-function)
+ (eglot-imenu, eglot--apply-text-edits)
+ (eglot--apply-workspace-edit)
+ (eglot--register-workspace/didChangeWatchedFiles): Use
+ eglot--dbind and eglot--lambda to destructure LSP objects.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/144
+
+2018-12-04 João Távora <joaotavora@gmail.com>
+
+ Adjust previous fix
+
+ * eglot.el (eglot--before-change): Don't reset
+ eglot--last-inserted-char here.
+ (eglot--pre-command-hook): Do it here.
+ (eglot--managed-mode): Add/remove eglot--pre-command-hook to/from
+ pre-command-hook.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/173
+
+2018-12-04 João Távora <joaotavora@gmail.com>
+
+ Fix bug introduced by previous fix
+
+ * eglot.el (eglot--CompletionParams): Don't use last-input-event.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/173
+
+2018-12-03 João Távora <joaotavora@gmail.com>
+
+ Handle codeaction/command polymorphism with eglot--dcase
+
+ * eglot-tests.el (eglot-dcase): Augment test.
+
+ * eglot.el (eglot--lsp-interface-alist): Add Command interface.
+ (eglot--dcase): Fix indentation. When given interface, always
+ assume strict mode.
+ (eglot-code-actions): Use eglot--dcase.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/164
+
+2018-12-03 João Távora <joaotavora@gmail.com>
+
+ Robustify previous fix against non-standard insertion bindings
+
+ * eglot.el (eglot--managed-mode): Manage post-self-insert-hook.
+ (eglot--last-inserted-char): New variable.
+ (eglot--post-self-insert-hook): Set it.
+ (eglot--before-change): Reset it.
+ (eglot--CompletionParams): Use it.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/173
+
+2018-12-03 Michal Krzywkowski <k.michal@zoho.com>
+
+ Properly clear old diagnostics when making new ones
+
+ * eglot.el (eglot-handle-notification
+ textDocument/publishDiagnostics): Call flymake report function with
+ :region.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/159
+
+2018-12-02 Mario Rodas <marsam@users.noreply.github.com> (tiny change)
+
+ Use javascript-typescript-langserver for typescript-mode ()
+
+
+ * eglot.el (eglot-server-programs): add typescript-mode to
+ javascript-typescript-langserver's contact
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/174
+
+2018-12-02 João Távora <joaotavora@gmail.com>
+
+ Support completioncontext to help servers like ccls
+
+ * eglot.el (eglot-client-capabilities): Annouce
+ textDocument/completion/contextSupport.
+ (eglot--CompletionParams): New helper.
+ (eglot-completion-at-point): Use it.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/173
+
+2018-12-01 João Távora <joaotavora@gmail.com>
+
+ Don't break in indirect buffers
+
+ Indirect buffers, such as the ones created by ediff-regions-wordwise,
+ have eglot enabled but not buffer-file-name. Resort to the finding
+ the file-name of the original buffer for these.
+
+ * eglot.el (eglot--TextDocumentIdentifier): Work in indirect
+ buffers.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/116
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/150
+
+2018-12-01 Michal Krzywkowski <k.michal@zoho.com>
+
+ Use eglot--dbind for destructuring
+
+ * eglot.el (eglot--lsp-interface-alist): Add CodeAction,
+ FileSystemWatcher, Registration, TextDocumentEdit, WorkspaceEdit.
+ (eglot-handle-notification): Use eglot--dbind.
+ (eglot--apply-workspace-edit): Use eglot--dbind and eglot--lambda.
+ (eglot-code-actions): Use eglot--lambda.
+ (eglot--register-workspace/didChangeWatchedFiles): Use eglot--lambda.
+
+2018-11-30 João Távora <joaotavora@gmail.com>
+
+ Introduce eglot--dcase
+
+ * eglot.el (eglot--dcase): New macro.
+
+ * eglot-tests.el (eglot-dcase-with-interface)
+ (eglot-dcase-no-interface): New tests.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/171
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/156
+
+2018-11-30 João Távora <joaotavora@gmail.com>
+
+ Simplify interface of eglot--dbind macro
+
+ * eglot.el (eglot--dbind): Use new interface.
+ (eglot--lambda): Use new eglot--dbind interface.
+ (eglot--lsp-interface-alist): Fix docstring.
+ (eglot--call-with-interface): Simplify.
+ (eglot--plist-keys): New helper.
+
+ * eglot-tests.el (eglot-strict-interfaces):
+ Add a new test clause.
+
+2018-11-28 Michal Krzywkowski <k.michal@zoho.com>
+
+ Touch up last commit
+
+ * eglot.el (eglot-current-column): Rename from eglot--current-column.
+ (eglot-current-column-function): Use it as value and mention in
docstring.
+ (eglot--xref-make): Use eglot-current-column.
+
+2018-11-27 Michal Krzywkowski <k.michal@zoho.com>
+
+ * eglot.el (eglot--current-column): new helper.
+
+ (eglot-current-column-function): Set to eglot--current-column.
+ (eglot--pos-to-lsp-position): Don't bind tab-width anymore.
+ (eglot--xref-make): Use eglot--current-column.
+
+2018-11-27 João Távora <joaotavora@gmail.com>
+
+ Improve performance of xref summary line collection
+
+ * eglot.el (eglot--temp-location-buffers): New variable.
+ (eglot--handling-xrefs): New macro.
+ (eglot--xref-make): Use eglot--temp-location-buffers.
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos): Use eglot--handling-xrefs.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/52
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/127
+
+2018-11-27 João Távora <joaotavora@gmail.com>
+
+ Use entire line as xref summary when available
+
+ After an original implementation by Michael Livshin. Also close
https://github.com/joaotavora/eglot/issues/127.
+
+ * eglot.el (eglot--xref-make): Rework.
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos): Simplify call to `eglot--xref-make'.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/52
+
+2018-11-23 João Távora <joaotavora@gmail.com>
+
+ Revert "codeaction command can be a command object ()"
+
+ This reverts commit 1e7f94d75a30628be56ad00de8c6245f5f3e9fdf.
+
+ The spec doesn't define Command as implemented in the commit.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/164
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/165
+
+2018-11-23 Michal Krzywkowski <k.michal@zoho.com>
+
+ Codeaction command can be a command object ()
+
+ * eglot.el (eglot-code-actions): Handle case when the :command field
+ is not a string.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/164
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/165
+
+2018-11-23 João Távora <joaotavora@gmail.com>
+
+ Control strictness towards incoming lsp messages
+
+ A new variable, eglot-strict-mode controls whether Eglot is strict or
+ lax with regard to incoming LSP messages.
+
+ 1. Bug reports should be tested with eglot-strict-mode set to
+ '(disallow-non-standard-keys enforce-required-keys)
+
+ 2. Users struggling to get non-standard servers working set this
+ variable to '(), nil. For now, by popular demand, this is the
+ default value.
+
+ Note that this commit in particular introduces a new infrastructure,
+ but does not yet alter any code in Eglot to use it. Neither is the
+ variable eglot--lsp-interface-alist populated.
+
+ * eglot-tests.el (eglot-strict-interfaces): New test.
+
+ * eglot.el (eglot--lsp-interface-alist): New variable.
+ (eglot-strict-mode): New variable.
+ (eglot--call-with-interface): New helper.
+ (eglot--dbind): New macro.
+ (eglot--lambda): New macro.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/144
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/156
+
+2018-11-22 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 1.2
+
+ * eglot.el (eglot-completion-at-point): less chatter.
+
+2018-11-22 João Távora <joaotavora@gmail.com>
+
+ Correctly insert textedit-less snippets
+
+ Fixes a slight regression from
https://github.com/joaotavora/eglot/issues/160.
+
+ * eglot.el (eglot-completion-at-point): When there is plain
+ `insertText' snippet, delete the full completion text.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/167
+
+2018-11-22 João Távora <joaotavora@gmail.com>
+
+ Fix potential security issue fontifying lsp doc
+
+ Previously, a server could mistankely or maliciously call *-mode
+ functions by in the response to a completion or hover request,
+ specifically in the :documentation field of the response.
+
+ Although there are plenty of similar avenues of attack in Emacs, it's
+ probably a good idea not to let LSP servers decide which functions to
+ call in an Emacs session running Eglot.
+
+ * eglot.el (eglot--format-markup): Call major-mode to fontify
+ buffer, not some dynamically constructed function name.
+ (eglot-completion-at-point): Ensure eglot--format-markup runs in
+ source buffer.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/154
+
+2018-11-22 Alex Branham <alex.branham@gmail.com> (tiny change)
+
+ Add support for r's languageserver ()
+
+
+ * eglot.el (eglot-server-programs): Add R language server.
+ * README.md (Installation and usage): Mention it.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/161
+
+2018-11-21 Michal Krzywkowski <k.michal@zoho.com>
+
+ Properly delete inserted text after completion
+
+ * eglot.el (eglot-completion-at-point): In :exit-function, delete only
+ the region of buffer that was inserted by completion.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/160
+
+2018-11-19 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from conao3/fix_default_value
+
+ fix gethash default value for use-package-statistics-time
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/681
+
+2018-11-19 Michal Krzywkowski <k.michal@zoho.com>
+
+ Treat tab characters as 1 column wide in position conversion functions
+
+ Fixes https://github.com/joaotavora/eglot/issues/158.
+
+ * eglot.el (eglot--pos-to-lsp-position): Call
+ eglot-current-column-function with tab-width bound to 1.
+ (eglot--lsp-position-to-point): Call eglot-move-to-column-function
+ with tab-width bound to 1.
+
+2018-11-17 Michal Krzywkowski <k.michal@zoho.com>
+
+ Format documentation of signature parameters
+
+ * eglot.el (eglot--sig-info): Call `eglot--format-markup` on parameter
+ :documentation.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/144
+
+2018-11-13 João Távora <joaotavora@gmail.com>
+
+ Add ability to report lsp-compliant columns
+
+ * eglot.el (eglot-current-column-function): New variable.
+ (eglot-lsp-abiding-column): New helper.
+ (eglot--pos-to-lsp-position): Use eglot-current-column-function.
+ (eglot-move-to-column-function): Tweak docstring.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/125
+
+2018-11-13 Michal Krzywkowski <k.michal@zoho.com>
+
+ Add support for textedits in completion
+
+ * eglot.el (eglot-completion-at-point): Apply the CompletionItem's
+ :textEdit and :additionalTextEdits when they're present.
+
+2018-11-13 João Távora <joaotavora@gmail.com>
+
+ Tweak solution to with a hint from fangrui song
+
+ * eglot.el (eglot-move-to-lsp-abiding-column): Simplify slightly.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/125
+
+2018-11-12 João Távora <joaotavora@gmail.com>
+
+ Complex completions work when chosen from *completions*
+
+ * eglot.el (eglot-completion-at-point): Make exit-function work
+ even if its arguments was stripped of its properties.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/148
+
+2018-11-12 João Távora <joaotavora@gmail.com>
+
+ Add ability to move to lsp-precise columns
+
+ Also close https://github.com/joaotavora/eglot/issues/125.
+
+ Idea and much of design contributed by Michał Krzywkowski
+ <k.michal@zoho.com>
+
+ This introduces the variable eglot-move-to-column-function.
+
+ According to the standard, LSP column/character offsets are based
+ on a count of UTF-16 code units, not actual visual columns. So
+ when LSP says position 3 of a line containing just \"aXbc\",
+ where X is a multi-byte character, it actually means `b', not
+ `c'. This is what the function
+ `eglot-move-to-lsp-abiding-column' does.
+
+ However, many servers don't follow the spec this closely, and
+ thus this variable should be set to `move-to-column' in buffers
+ managed by those servers.
+
+ * eglot.el (eglot-move-to-column-function): New variable.
+ (eglot-move-to-lsp-abiding-column): New function.
+ (eglot--lsp-position-to-point): Use eglot-move-to-column-function.
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/124
+
+2018-11-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsiiformes/silencio
+
+ Silence byte-compiler on Emacs 25
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/733
+
+2018-11-10 Jonas Bernoulli <jonas@bernoul.li>
+
+ Silence byte-compiler on Emacs 25
+
+ Emacs 25 defined a global variable `features', which triggers a
+ warning "Lexical argument shadows the dynamic variable features".
+ That's not `use-package's fault, but we should suppress the warning
+ anyway, so that there is no additional noise that would cause us to
+ potentially overlook warnings that absolutely have to be addressed.
+
+2018-11-08 João Távora <joaotavora@gmail.com>
+
+ Fix a bug introduced by previous bugfix
+
+ This commit fixes a bug but introduced another when completing a
+ symbol in xref-find-definitions.
+
+ commit ee58d92a7de1c8b1914c77177a7d5e755f1de827
+ Author: Michał Krzywkowski <k.michal@zoho.com>
+ Date: Sun Nov 4 16:59:05 2018 +0100
+
+ * eglot.el (xref-backend-identifier-completion-table): Use vector.
+
+2018-11-07 João Távora <joaotavora@gmail.com>
+
+ Move constants to top instead of forward-declaring
+
+ * eglot.el (eglot--symbol-kind-names, eglot--kind-names): Move to
+ top of file.
+
+2018-11-07 Mario Rodas <marsam@users.noreply.github.com> (tiny change)
+
+ Support ocaml-language-server out of the box ()
+
+
+ * eglot.el (eglot-server-programs): Add ocaml-language-server.
+
+ * README.md (Installation and usage): Mention ocaml-language-server
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/149
+
+2018-11-07 Michal Krzywkowski <k.michal@zoho.com>
+
+ * eglot.el (eglot-client-capabilities): mention supported symbolkinds.
+
+2018-11-07 Michal Krzywkowski <k.michal@zoho.com>
+
+ Make imenu hierarchical
+
+ * eglot.el (eglot-imenu): Use :containerName to build a nested imenu
+ index alist.
+
+2018-11-04 Michal Krzywkowski <k.michal@zoho.com>
+
+ Fix a bug when response to definitions request is a single location
+
+ It's valid to return just a single Location for a definitions request.
+
+ * eglot.el (xref-backend-definitions): Coerce response to a vector.
+
+2018-11-04 João Távora <joaotavora@gmail.com>
+
+ Simplify eglot-code-action. fix compilation warning
+
+ * eglot.el (eglot-code-actions): Simplify.
+ (eglot-client-capabilities): Mention supported codeActionKind's
+ directly.
+ (eglot--code-action-kinds): Remove.
+
+2018-11-04 Michal Krzywkowski <k.michal@zoho.com>
+
+ Add support for code action literals
+
+ Code action literals allow the server to simply return a WorkspaceEdit
+ for a code action, so the client does not have to execute a command.
+
+ * eglot.el (eglot-client-capabilities): Add :codeActionLiteralSupport.
+ (eglot--code-action-kinds): New variable.
+ (eglot-code-actions): Apply provided WorkspaceEdit.
+
+2018-11-04 Michal Krzywkowski <k.michal@zoho.com>
+
+ Use the container name of a symbol in imenu
+
+ * eglot.el (eglot-imenu): Prepend :containerName to each symbol, when
+ provided.
+
+2018-10-31 Michal Krzywkowski <k.michal@zoho.com>
+
+ Don't ignore unknown symbolkinds in imenu
+
+ Some servers provide custom SymbolKinds. For example, ccls says that
+ symbols defined with #define are of kind 255.
+
+ * eglot.el (eglot-imenu): Don't delete elements with unknown symbol
+ kind from the return list, instead put them in `(Unknown)` group.
+
+2018-10-31 Michal Krzywkowski <k.michal@zoho.com>
+
+ Remove duplicates from imenu
+
+ * eglot.el (eglot-imenu): Don't append the result list to itself,
+ which causes duplicates.
+
+2018-10-30 Alex Branham <alex.branham@gmail.com>
+
+ Require subr-x at compile time ()
+
+ if-let and when-let are macros that the byte compiler can expand
+ at compile time. No need to require subr-x at run time.
+
+ * eglot.el (subr-x): Require only when compiling.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/139
+
+2018-10-30 João Távora <joaotavora@gmail.com>
+
+ Accept deprecated field in symbolinformation
+
+ * eglot.el (xref-backend-identifier-completion-table)
+ (eglot-imenu): Accept and ignore "deprecated"
+
+ GitHub-reference: fix https://github.com/joaotavora/eglot/issues/138
+
+2018-10-24 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from
jwiegley/use-package-chords-suppress-compiler-message
+
+ prefix argument with _ to suppress Unused lexical argument warning
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/713
+
+2018-10-24 Dale Sedivec <dale@codefu.org> (tiny change)
+
+ Fix misspelling of "outstanding" ()
+
+
+ * eglot.el (eglot--mode-line-format): Fix a typo.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/74
+
+2018-10-18 Michal Krzywkowski <k.michal@zoho.com>
+
+ Handle case when project was not found in eclipse.jdt.ls contact
+
+2018-10-18 Michal Krzywkowski <k.michal@zoho.com>
+
+ Override eglot-execute-command for eclipse.jdt.ls server
+
+ * eglot.el (eglot-execute-command eglot-eclipse-jdt): New defmethod.
+
+2018-10-18 Michal Krzywkowski <k.michal@zoho.com>
+
+ Add support for eclipse.jdt.ls server
+
+ * eglot.el (eglot-server-programs): Add java-mode entry.
+ (eglot-eclipse-jdt): New class.
+ (eglot-initialization-options): Override for eglot-eclipse-jdt.
+ (eglot--eclipse-jdt-contact): New function.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/63
+
+2018-10-18 Michal Krzywkowski <k.michal@zoho.com>
+
+ Allow function contacts to be interactive
+
+ * eglot.el (eglot-server-programs): Mention that the function must
+ accept one argument.
+ (eglot--guess-contact): Pass to functional contacts the interactive
+ value.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/63
+
+2018-10-15 Michal Krzywkowski <k.michal@zoho.com>
+
+ Improve signature help
+
+ * eglot.el (eglot--sig-info): Don't lose existing information.
+ Attempt to highlight the active parameter by searching for it's
+ :label in signature's :label. Append to the result first sentence
+ of signature's :documentation, if present.
+
+2018-10-15 Michal Krzywkowski <k.michal@zoho.com>
+
+ Sort references and definitions by line number
+
+ * eglot.el (eglot--sort-xrefs): New function.
+ (xref-backend-definitions):
+ (xref-backend-references):
+ (xref-backend-apropos): Use it.
+
+2018-10-15 Michal Krzywkowski <k.michal@zoho.com>
+
+ Merge pull request from mkcms/fix-diagnostics-wrong-type-argument
+
+ Handle case when diagnostic :character is out of range
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/104
+
+2018-10-15 Michal Krzywkowski <k.michal@zoho.com>
+
+ Handle case when diagnostic :character is out of range
+
+ * eglot.el (eglot-handle-notification): Don't error out when
+ flymake-diag-region returns nil.
+
+2018-10-15 Michal Krzywkowski <k.michal@zoho.com>
+
+ Eglot-ignored-server-capabilites: prefer all choices over "other"
+
+ Previously the "Other" choice matched every value, so it was always
+ shown in the customize buffer.
+
+ * eglot.el (eglot-ignored-server-capabilites): Make the "Other" choice
+ the last possible option.
+
+2018-10-03 Michal Krzywkowski <k.michal@zoho.com>
+
+ Make eglot-ignored-server-capabilites more user-friendly ()
+
+ * eglot.el (eglot-ignored-server-capabilites): Add list of possible
+ choices to :type, along with a user-friendly description.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/126
+
+2018-09-24 Michal Krzywkowski <k.michal@zoho.com>
+
+ Correctly map documentsymbol's :kind to its name ()
+
+ Previously we were mapping :kind in DocumentSymbol with
+ names from the CompletionItemKind enum, whereas we should
+ have used the SymbolKind enum.
+
+ * eglot.el (eglot--symbol-kind-names): New variable.
+ (eglot-imenu): Use it instead of eglot--kind-names.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/121
+
+2018-09-24 whatacold <whatacold@gmail.com> (tiny change)
+
+ Autoload eglot-ensure ()
+
+
+ * eglot.el (eglot-ensure): Add autoload cookie
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/120
+
+2018-09-17 João Távora <joaotavora@gmail.com>
+
+ Don't block kill-buffer-hook if server somehow hangs
+
+ * eglot.el (eglot--signal-textDocument/didClose): Use
+ with-demoted-errors.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/115
+
+2018-09-13 Justin Talbott <justin@waymondo.com>
+
+ Merge pull request from lrochfort/ensure-system-package_use-sudo
+
+ [Fix https://github.com/jwiegley/use-package/issues/720] Install system
packages using system-packages-install
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/721
+
+2018-09-12 Laurence Rochfort <laurence.rochfort@gmail.com> (tiny change)
+
+ [] Install system packages using system-packages-install
+
+ :ensure-system-package was installing packages by running
+ system-packages-get-command via async-shell-command. This meant that
+ system-packages-use-sudo wasn't being honoured.
+
+ This patch makes :ensure-system-package use system-packages-install
+ for all cases, except where a custom install command is supplied, in
+ which case async-shell-command is used.
+
+ This issue was introduced in 9f034a0bcfdd8c4
[https://github.com/jwiegley/use-package/issues/673], as a fix for
+ [https://github.com/jwiegley/use-package/issues/661]. Prior to that
commit, system-packages-use-sudo was being
+ honoured.
+
+ This patch also fixes a bug where a cons containing a lone symbol in a
+ list of conses causes nil to used as the package to install.
+ GitHub-reference: fix https://github.com/jwiegley/use-package/issues/720
+
+2018-09-08 Aleksey Kladov <aleksey.kladov@gmail.com> (tiny change)
+
+ Don't send other notifications before initialized
+
+
+ * eglot.el (eglot--connect): send initialized before
+ activating minor mode.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/100
+
+2018-09-07 João Távora <joaotavora@gmail.com>
+
+ Prefer ccls over cquery for c/c++
+
+ * README.md (Installation and usage): Prefer ccls to cquery. Mention
clangd.
+
+ * eglot.el (eglot-server-programs): Suggest ccls for c/c++ by default.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/94
+
+2018-09-07 João Távora <joaotavora@gmail.com>
+
+ Fix serious breakage introduced by
+
+ string-prefix-p doesn't work on symbols
+
+ * eglot.el (eglot-handle-notification): Coerce method name to string.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/93
+
+2018-09-07 Fangrui Song <i@maskray.me>
+
+ Don't warn on implementation-specific notifications ()
+
+ Only warn when method name doesn't start with '$'. Per the spec:
+
+ "if a server or client receives notifications or requests
+ starting with ‘$/’ it is free to ignore them if they are unknown."
+
+ * eglot.el (eglot-handle-notification t t): Check method name for $.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/93
+
+2018-08-27 Evgeni Kolev <evgenysw@gmail.com> (tiny change)
+
+ When exiting emacs, don't ask the user to confirm killing processes ()
+
+
+ * eglot.el (eglot--connect, eglot--inferior-bootstrap): pass noquery t
to
+ make-process.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/83
+
+2018-08-25 João Távora <joaotavora@gmail.com>
+
+ Handle case when :textdocumentsync isn't a number
+
+ Also closes https://github.com/joaotavora/eglot/issues/87.
+
+ * eglot.el (eglot--signal-textDocument/didChange): Grab :change
+ from :textDocumentSync server capability.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/86
+
+2018-08-20 João Távora <joaotavora@gmail.com>
+
+ Correctly delete text before expanding snippet completions
+
+ Suggested by Amol Mandhane.
+
+ * eglot.el (eglot-completion-at-point): Use length of obj in
+ :exit-function
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/82
+
+2018-08-20 Phillip Dixon <phillip.dixon@gmail.com> (tiny change)
+
+ Ignore extra keys in textdocument/publishdiagnostics ()
+
+ Accoding to the "discussion" in https://reviews.llvm.org/D50571, it
+ was deemed sufficient that VSCode is fine with the non-standard
+ extension -- jt
+
+
+ * eglot.el (eglot-handle-notification): Add &allow-other-keys
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/81
+
+2018-08-19 João Távora <joaotavora@gmail.com>
+
+ Consider :triggercharacters in company completion
+
+ * eglot.el (eglot-completion-at-point): Take advantage of
+ :company-prefix-length.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/80
+
+2018-08-18 João Távora <joaotavora@gmail.com>
+
+ Improve snippet support
+
+ * eglot.el (eglot-client-capabilities): Don't always declare
+ snippet support.
+ (eglot--snippet-expansion-fn): New helper.
+ (eglot-completion-at-point): Better annotations when snippets
+ are supported.
+
+2018-08-18 Evgeni Kolev <evgenysw@gmail.com> (tiny change)
+
+ Add go-langserver ()
+
+
+ * README.md (Installation and usage): Add go-langserver.
+ * eglot.el (eglot-server-programs): Add go-langserver.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/74
+
+2018-08-18 João Távora <joaotavora@gmail.com>
+
+ Don't error if server replies with empty hover message
+
+ * eglot.el (eglot-eldoc-function): Check non-nil contents.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/74
+
+2018-08-17 Michal Krzywkowski <k.michal@zoho.com>
+
+ Fix textdocument/hover responses where markedstring is a plist ()
+
+ * eglot.el (eglot--hover-info): Forward all non-vector content to
+ eglot--format-markup.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/72
+
+2018-08-17 João Távora <joaotavora@gmail.com>
+
+ Support snippet completions
+
+ * eglot.el (eglot-client-capabilities): Declare support for
+ snippet-based completions.
+ (eglot-completion-at-point): Expand snippet completions with
+ YASnippet if that is found.
+ (eglot-note, eglot-warning, eglot-error): Diagnostic
+ overlay priorities have to be slightly lower than yasnippet's,
+ which must be reasonably high.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/50
+
+2018-08-17 João Távora <joaotavora@gmail.com>
+
+ Fix eglot-capabilities when querying for multiple features
+
+ * eglot-tests.el (eglot-capabilities): New test.
+
+ * eglot.el (eglot--server-capable): Fix problems with queries for
+ multiple capabilities.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/74
+
+2018-08-13 Justin Talbott <justin@waymondo.com>
+
+ prefix argument with _ to suppress Unused lexical argument warning
+
+ per @tarsius’s comment
+
https://github.com/jwiegley/use-package/commit/5d9c854a6cf12fff2326ee5653e87e2d3d550a8d#commitcomment-29996666
+
+2018-08-13 João Távora <joaotavora@gmail.com>
+
+ Prompt for server in interactive eglot-shutdown
+
+ * eglot.el (eglot--read-server): New helper.
+ (eglot-shutdown): Use it.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/73
+
+2018-08-12 James Nguyen <james@jojojames.com>
+
+ Add kotlin-language-server ()
+
+ https://github.com/fwcd/KotlinLanguageServer
+
+ copyright-paperwork-exempt: yes
+
+ * README.md (Installation and Usage): declare Kotlin support.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/70
+
+2018-08-12 João Távora <joaotavora@gmail.com>
+
+ Handle edits to same position in the correct order
+
+ In eglot--apply-text-edits, the markers returned by
+ eglot--lsp-position-to-point are of the "stay" type, i.e. have an
+ insertion-type of nil. This causes multiple insertion edits to the
+ same location to happen in the reverse order in which they appear in
+ the LSP message, which is a violation of the spec and a bug.
+
+ There are more ways to solve this (see related discuttion in
+ https://github.com/joaotavora/eglot/pull/64), but the easiest way is
+ to revert the order in which the edits are processed. This is because
+ the spec tells us that the order is only relevant in precisely this
+ "same position" case. So if we reverse the order we fix this bug and
+ don't break anything else.
+
+ * eglot.el (eglot--apply-text-edits): Apply edits in reverse..
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/64
+
+2018-08-12 João Távora <joaotavora@gmail.com>
+
+ Control the size of the events buffer
+
+ * eglot.el (eglot-events-buffer-size): New defcustom.
+ (eglot--connect): Use it.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/41
+
+2018-08-12 João Távora <joaotavora@gmail.com>
+
+ Implement asynchronous server connection
+
+ A new defcustom eglot-sync-connect controls this feature. If it is t,
+ eglot should behave like previously, waiting synchronously for a
+ connection to be established, with the exception that there is now a
+ non-nil timeout set to eglot-connect-timeout, which defaults to 30
+ seconds.
+
+ eglot-connect is now considerably more complicated as it replicates
+ most of the work that jsonrpc-request does vis-a-vis handling errors,
+ timeouts and user quits..
+
+ * eglot-tests.el
+ (eglot--call-with-dirs-and-files): Simplify cleanup logic.
+ (slow-sync-connection-wait)
+ (slow-sync-connection-intime, slow-async-connection)
+ (slow-sync-error): New tests.
+
+ * eglot.el (eglot-sync-connect): New defcustom.
+ (eglot-ensure, eglot): Simplify.
+ (eglot--connect): Honour eglot-sync-connect. Complicate
+ considerably.
+ (eglot-connect-timeout): New defcustom.
+ (Package-requires): Require jsonrpc 1.0.6
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/68
+
+2018-08-11 Michal Krzywkowski <k.michal@zoho.com>
+
+ Kill server's output and events buffers from eglot-shutdown ()
+
+ * eglot.el
+ (Package-Requires): Require jsonrpc 1.0.5
+ (eglot-shutdown): Kill events and stderr buffers of the
+ server, unless new PRESERVE-BUFFERS argument is non-nil.
+ eglot-reconnect): Preserve buffers on shutdown.
+
+ * eglot-tests.el (eglot--call-with-dirs-and-files): Call
+ eglot-shutdown with non-nil PRESERVE-BUFFERS arg.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/66
+
+2018-08-11 João Távora <joaotavora@gmail.com>
+
+ Improve eglot-execute-command api to ease overriding by servers
+
+ * eglot.el (eglot-execute-command): COMMAND can be a symbol.
+ (eglot-code-actions): Pass symbols to eglot-command.
+
+2018-08-11 Michal Krzywkowski <k.michal@zoho.com>
+
+ Add a generic eglot-execute-command api
+
+ * eglot.el (eglot-execute-command): New defgeneric and method. Use it
+ to request :workspace/executeCommand.
+ (eglot-code-actions): Use it.
+
+2018-08-11 Michal Krzywkowski <k.michal@zoho.com>
+
+ * eglot.el (eglot-cquery): capitalize docstring.
+
+2018-08-09 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (advice-add jsonrpc-request): add &allow-other-keys
+
+2018-08-09 João Távora <joaotavora@gmail.com>
+
+ Require jsonrpc.el 1.0.2 (gnu elpa didn't build 1.0.1)
+
+ * eglot.el (Package-Requires): Require jsonrpc 1.0.2
+
+2018-08-09 João Távora <joaotavora@gmail.com>
+
+ Snappier completions that don't hinder typing
+
+ This should improve company-capf's performance.
+
+ * eglot.el (Package-Requires): Require jsonrpc 1.0,1
+ (eglot-completion-at-point): Use completion-table-dynamic. Pass
+ CANCEL-ON-INPUT to jsonrpc-request.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/61
+
+2018-08-09 Michal Krzywkowski <k.michal@zoho.com>
+
+ Notify server of recent changes before save notification
+
+ * eglot.el (eglot--signal-textDocument/didSave): Call
+ eglot--signal-textDocument/didChange.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/60
+
+2018-08-07 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-initialization-options): fix spurious typo.
+
+2018-08-07 João Távora <joaotavora@gmail.com>
+
+ Accept functions as entries in eglot-server-programs
+
+ CONTACT in the (MAJOR-MODE . CONTACT) association in
+ eglot-server-programs can now be a function of no arguments producing
+ any value previously valid for contact. The function is called at
+ time of `M-x eglot` or `eglot-ensure`. This is useful for servers
+ requiring command-line invocations that depend on the specific
+ momentary environment.
+
+ * eglot.el (eglot-server-programs): CONTACT can be a fucntion of no
+ arguments.
+ (eglot--guess-contact, eglot--connect): Accept function
+ CONTACTs.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/63
+
+2018-08-05 João Távora <joaotavora@gmail.com>
+
+ Eglot-workspace-configuration's keys needn't be keywords
+
+ * eglot.el (eglot-signal-didChangeConfiguration): Convert
+ alist keys into a json-compatible plist.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/59
+
+2018-08-03 João Távora <joaotavora@gmail.com>
+
+ Default eglot-handle-notifictiona|request must &allow-other-keys
+
+ * eglot.el (eglot-handle-notification, eglot-handle-request): Add
+ &allow-other-keys
+
+2018-08-03 Michal Krzywkowski <k.michal@zoho.com>
+
+ Fix placement of diagnostics with same start and end positions
+
+ Some servers such as cquery and clangd publish diagnostic with
+ identical start and end positions.
+
+ * eglot.el (eglot-handle-notification
+ :textDocument/publishDiagnostics): Add 1 to :line since LSP lines
+ are 0-based. Don't subtract 1 from :character, since both emacs and
+ LSP have 0-based columns.
+
+2018-08-02 João Távora <joaotavora@gmail.com>
+
+ Erase company-doc buffer in between doc requests
+
+ * eglot.el (eglot-completion-at-point): Erase temporary
+ "*eglot-doc*" buffer for company's doc.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/58
+
+2018-07-30 Michal Krzywkowski <k.michal@zoho.com>
+
+ * eglot.el (eglot-client-capabilities): fix a typo.
+
+2018-07-28 Michal Krzywkowski <k.michal@zoho.com>
+
+ Implement textdocument/rangeformatting
+
+ * eglot.el (eglot-format): New command.
+ (eglot-format-buffer): Use it as implementation.
+ (eglot-client-capabilities): Add :rangeFormatting.
+ * eglot-tests.el (formatting): Also test range formatting.
+ * README.md (Commands and keybindings): Mention eglot-format.
+ (Language features): Tick textDocument/rangeFormatting.
+
+2018-07-28 Michal Krzywkowski <k.michal@zoho.com>
+
+ Correctly make lsp positions in narrowed buffers
+
+ * eglot.el (eglot--pos-to-lsp-position): Fix return value when
+ narrowing is in effect.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/54
+
+2018-07-28 Väinö Järvelä <vaino.jarvela@gmail.com> (tiny change)
+
+ Fix typo in willsavewaituntil rpc request ()
+
+
+ * eglot.el (eglot--signal-textDocument/willSave): Fix typo.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/51
+
+2018-07-28 Michal Krzywkowski <k.michal@zoho.com>
+
+ Work around emacs bugs 32237, 32278 ()
+
+ See:
+ https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32237
+ https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32278
+
+ * eglot.el (eglot--apply-text-edits): Inhibit modification hooks and
+ call them manually for the changed region.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/53
+
+2018-07-27 João Távora <joaotavora@gmail.com>
+
+ Be less verbose when using eglot-ensure
+
+ * eglot.el (eglot-ensure): Don't message when a buffer is already
+ managed.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/48
+
+2018-07-26 Alan Zimmerman <alan.zimm@gmail.com>
+
+ Add entry for haskell-ide-engine in eglot-server-programs ()
+
+ * eglot.el (eglot-server-programs): Add entry for haskell-mode
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/49
+
+2018-07-25 João Távora <joaotavora@gmail.com>
+
+ Fix messages of eglot-ensure
+
+ * eglot.el (eglot-ensure): fix messages.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/48
+
+2018-07-22 João Távora <joaotavora@gmail.com>
+
+ Don't turn on flymake-mode any more than is needed
+
+ If flymake-mode is in eglot--managed-mode-hook, it will be called even
+ if eglot--managed-mode is being turned off, which could be problematic
+ because it triggers a check if flymake-start-on-flymake-mode is t.
+
+ * eglot.el (eglot--managed-mode): Turn on flymake-mode and
+ eldoc-mode here.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/44
+
+2018-07-20 João Távora <joaotavora@gmail.com>
+
+ Robustify in the face of manual mode changes
+
+ When manually changing the major-mode of a managed buffer, this sends
+ a didClose and tears down Eglot-related stuff like if were killing the
+ buffer. After changing the mode, we have to recheck that we are now
+ not managed by another server (or by the same server, in case we
+ changed the mode to be the same mode).
+
+ * eglot.el (eglot-shutdown): Use eglot--with-live-buffer
+ (eglot--on-shutdown): Use eglot--with-live-buffer
+ (eglot--managed-mode): Use change-major-mode-hook.
+ (eglot--managed-mode-onoff): Change protocol. Turn off when called
+ with no arguments.
+ (eglot--maybe-activate-editing-mode): Don't do anything if mode is
+ already active. Suitable for calling from
+ after-change-major-mode-hook.
+ (after-change-major-mode-hook): Add
+ eglot--maybe-activate-editing-mode.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/44
+
+2018-07-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/autoload-keymap
+
+ Correct prefix keys after use-package-autoload-keymap
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/686
+
+2018-07-11 João Távora <joaotavora@gmail.com>
+
+ Implement workspace/didchangeconfiguration ()
+
+ * README.md (Supported Protocol Features, Commands and
+ keybindings): mention workspace/didChangeConfiguration.
+
+ * eglot.el (eglot-server-initialized-hook): New hook.
+ (eglot--connect): Run it.
+ (eglot-workspace-configuration): New variable.
+ (eglot-signal-didChangeConfiguration): New command.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/29
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/40
+
+2018-07-11 João Távora <joaotavora@gmail.com>
+
+ Handle experimental/unknown server methods gracefully
+
+ * eglot.el (eglot-handle-notification t t, eglot-handle-request t
+ t): Add default handlers for unknown methods.
+ (eglot-handle-notification $cquery/progress)
+ (eglot-handle-notification $cquery/setInactiveRegions)
+ (eglot-handle-notification $cquery/publishSemanticHighlighting):
+ Remove these no-ops.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/39
+
+2018-07-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jwiegley/ensure-system-package-filepath
+
+ allow :ensure-system-package to check the presence of files at path
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/703
+
+2018-07-09 Justin Talbott <justin@waymondo.com>
+
+ allow :ensure-system-package to check the presence of files at path
+
+ closes https://github.com/jwiegley/use-package/issues/660
+
+2018-07-09 João Távora <joaotavora@gmail.com>
+
+ Jsonrpc.el is now a gnu elpa depedency
+
+ * Makefile (ELFILES): Don't include jsonrpc.
+ (jsonrpc-check): Remove target.
+ (check): Don't run jsonrpc-check
+
+ * README.md (either): Mention "packaged in a single file" again
+
+ * eglot.el (Package-Requires): Require jsonrpc 1.0.0
+ (Version): Bump to 1.1
+
+ * jsonrpc.el: Remove
+
+ * jsonrpc-tests.el: Remove
+
+2018-07-08 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-completion-at-point): fix broken indentation
+
+2018-07-08 Ricardo Martins <ricardo@scarybox.net> (tiny change)
+
+ Format documentation in completion annotations
+
+ Fixes an issue with the latest RLS, where the server returns a plist
+ instead of a plain string as documentation for completion candidates,
+ which broke the `annotation-function`. This change was introduced by
+
https://github.com/rust-lang-nursery/rls/commit/206a9fb41e837333d0e67187a6a9fe24868b77a4
+
+
+ * eglot.el (eglot-completion-at-point): Use eglot--format-markup
+
+2018-07-06 João Távora <joaotavora@gmail.com>
+
+ Unbreak completion when no possible annotation
+
+ * eglot.el (eglot-completion-at-point): Handle case where no doc,
+ detail or kind.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/37
+
+2018-07-03 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from killdash9/patch-1
+
+ Place :chords at beginning of use-package-keywords
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/697
+
+2018-07-02 João Távora <joaotavora@gmail.com>
+
+ Handle outrageously large and buggy line numbers
+
+ * eglot.el (eglot--lsp-position-to-point): Truncate line number to
+ most-positive-fixnum.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/34
+
+2018-07-01 João Távora <joaotavora@gmail.com>
+
+ Inhibit auto-reconnect until connection is established
+
+ Otherwise, a server that crashes on startup is enough to throw Eglot
+ into a reconnection infloop.
+
+ * eglot.el (eglot-lsp-server): Initialize "inhibit-autoreconnect"
+ slot to t.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/36
+
+2018-06-29 João Távora <joaotavora@gmail.com>
+
+ Bind default-directory when launching servers
+
+ Apparently, not doing so trips some servers, like Scala's.
+
+ * eglot.el (eglot--connect): Bind default-directory.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/33
+
+2018-06-28 Russell Black <black.russell@gmail.com>
+
+ Place :chords at beginning of use-package-keywords
+
+ When it is at the end, the keys don't get bound until after the package
has been loaded, which is bad. Placing it at the beginning allows the key
bindings to be mapped to auto-loaded functions before the package is loaded, so
that a key chord press triggers the package load.
+
+2018-06-25 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from killdash9/patch-1
+
+ New style of auto-deferral for chords
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/658
+
+2018-06-25 John Wiegley <johnw@newartisans.com>
+
+ Merge branch 'master' into patch-1
+
+2018-06-25 João Távora <joaotavora@gmail.com>
+
+ Cache buffer's managing server
+
+ * eglot.el (eglot--cached-current-server): New variable.
+ (eglot--managed-mode-onoff): Set it.
+ (eglot--current-server): Read it.
+ (eglot--maybe-activate-editing-mode): Add assertion.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/32
+
+2018-06-25 João Távora <joaotavora@gmail.com>
+
+ Unbreak imenu for cquery servers (and probably more)
+
+ * eglot.el (eglot-imenu): Don't try to make a group for symbols
+ without kind.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/31
+
+2018-06-25 João Távora <joaotavora@gmail.com>
+
+ Unbreak basic imenu functionality
+
+ * eglot.el (eglot--managed-mode): Add missing quote to
+ imenu-create-index-function.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/31
+
+2018-06-25 Ricardo Martins <1706+meqif@users.noreply.github.com> (tiny
change)
+
+ Fix typo in the solargraph server program
+
+
+ * eglot.el (eglot-server-programs): Fix typo.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/30
+
+2018-06-23 João Távora <joaotavora@gmail.com>
+
+ Fix some rather silly bugs in some interactive specs
+
+ * eglot.el (eglot-events-buffer, eglot-stderr-buffer)
+ (eglot-forget-pending-continuations): Fix interactive specs.
+
+2018-06-23 João Távora <joaotavora@gmail.com>
+
+ Implement tcp autostart/autoconnect (and support ruby's solargraph)
+
+ * README.md (Installation and usage): Mention support for
+ Solargraph
+ (Connecting via TCP): New section
+ (Connecting automatically): New section
+
+ * eglot.el (eglot-server-programs): Add ruby-mode.
+ Overhaul docstring.
+ (eglot-lsp-server): Add inferior-process slot.
+ (eglot--on-shutdown): Kill any autostarted inferior-process
+ (eglot--guess-contact): Allow prompting with :autoport parameter.
+ (eglot--connect): Consider :autoport case.
+ (eglot--inferior-bootstrap): New helper.
+
+2018-06-22 João Távora <joaotavora@gmail.com>
+
+ Merge branch 'jsonrpc-refactor', bump version to 1.0
+
+ * eglot.el (Version): Bump to 1.0
+
+2018-06-22 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.11
+
+ Merge master into jsonrpc-refactor (using imerge)
+
+2018-06-21 João Távora <joaotavora@gmail.com>
+
+ Empty ranges are valid in lsp
+
+ The previous hack in eglot--range-region, designed to appease cquery's
+ occasional practice of publishing diagnostics with empty regions, was
+ moved to the proper notification handler.
+
+ Reported by mkcms <k.michal@zoho.com>.
+
+ * eglot.el (eglot--range-region): Allow empty ranges, which are
+ allowed in LSP.
+ (eglot-handle-notification :textDocument/publishDiagnostics): Maybe
+ fallback to flymake-diag-region here.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/27
+
+2018-06-21 João Távora <joaotavora@gmail.com>
+
+ Apply text edits as a single undoable edit
+
+ As suggested by mkcms <k.michal@zoho.com>, but do it in
+ eglot--apply-text-edits, where it benefits all its users.
+
+ Also, just using undo-boundary is not enough, one needs
+ undo-amalgamate-change-group to mess with the boundaries already in
+ buffer-undo-list.
+
+ * eglot.el (eglot--apply-text-edits): Use
+ undo-amalgamate-change-group.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/22
+
+2018-06-21 João Távora <joaotavora@gmail.com>
+
+ Report progress when applying edits
+
+ Use make-progress-reporter in eglot--apply-text-edits
+
+ As suggested by mkcms <k.michal@zoho.com>, but do it in
+ eglot--apply-text-edits, where it benefits all its users.
+
+ * eglot.el (eglot--apply-text-edits): Use a progress reporter.
+ Fix marker point recovery.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/23
+
+2018-06-21 João Távora <joaotavora@gmail.com>
+
+ Apply text edits atomically
+
+ As suggested by mkcms <k.michal@zoho.com>, but do it in
+ eglot--apply-text-edits, where it benefits all its users.
+
+ * eglot.el (eglot--apply-text-edits): Use atomic-change-group.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/22
+
+2018-06-21 João Távora <joaotavora@gmail.com>
+
+ Defer textdocument/formatting requests
+
+ * eglot.el (eglot-format-buffer): Pass DEFERRED to eglot--request.
+
+2018-06-21 João Távora <joaotavora@gmail.com>
+
+ Simplify eglot-format-buffer
+
+ Use replace-buffer-contents, as suggested by mkcms
+ <k.michal@zoho.com>, but do it in eglot--apply-text-edits, where it
+ benefits all its users.
+
+ * README.md (Commands and keybindings): Mention
+ eglot-format-buffer.
+
+ * eglot.el (eglot-format-buffer): Don't try to heuristically
+ preserve point here.
+ (eglot--apply-text-edits): Use replace-buffer-contents.
+
+ * eglot-tests.el (formatting): adjust test to strictly check for point
+ position.
+
+ GitHub-reference: per https://github.com/joaotavora/eglot/issues/22
+
+2018-06-20 João Távora <joaotavora@gmail.com>
+
+ Guess server for js2-mode and rjsx-mode
+
+ * eglot.el (eglot-server-programs): Add entries for js2-mode and
+ rjsx-mode. Coalesce entries for c++ and c-mode. Improve
+ docstring.
+ (eglot--guess-contact): Allow lists are keys in
+ eglot-server-programs.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/26
+
+2018-06-20 João Távora <joaotavora@gmail.com>
+
+ Improve eglot-ensure and mention it in readme.md
+
+ * README.md (Installation and Usage): Mention eglot-ensure.
+
+ * eglot.el (eglot-ensure): No-op for non-file buffers.
+ (eglot--connect): Don't fallback to 'eglot-lsp-server here.
+ (eglot--guess-contact): Error if something can't be guessed.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/25
+
+2018-06-16 Rami Chowdhury <460769+necaris@users.noreply.github.com> (tiny
change)
+
+ Use gfm-mode for formatted strings ()
+
+ * eglot.el (eglot--format-markup): Use gfm-mode instead of
+ markdown-mode.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/20
+
+2018-06-15 João Távora <joaotavora@gmail.com>
+
+ Minor cleanup to new textdocument/formatting feature
+
+ * README.md (Language feature): Tick textDocument/formatting
+
+ * eglot.el (eglot-client-capabilities): Add formatting capability.
+ Also move codeAction capability to the correct section.
+
+ (eglot-format-buffer): Remove unused lexical variable before-point.
+
+2018-06-15 Michal Krzywkowski <k.michal@zoho.com>
+
+ Implement formatting ()
+
+ Implement textDocument/formatting
+
+ * eglot.el (eglot-format-buffer): New command to format
+ current buffer.
+
+ * eglot-tests.el (formatting): New test.
+
+ GitHub-reference: https://github.com/joaotavora/eglot/issues/19
+
+2018-06-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jabranham/enable-lexical-binding
+
+ Enable lexical binding
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/657
+
+2018-06-13 Alex Branham <alex.branham@gmail.com>
+
+ Fix use-package-normalize-function
+
+ Fix use-package-normalize-function tests
+
+2018-06-13 Alex Branham <alex.branham@gmail.com>
+
+ Enable lexical binding
+
+ This supersedes https://github.com/jwiegley/use-package/issues/617 and
closes https://github.com/jwiegley/use-package/issues/648
+
+2018-06-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from taingra/master
+
+ Added an Introduction taken from the README
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/692
+
+2018-06-13 John Wiegley <johnw@newartisans.com>
+
+ Update use-package.texi
+
+2018-06-13 Thomas Ingram <taingram@mtu.edu> (tiny change)
+
+ Added an Introduction taken from the README
+
+2018-06-13 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.10
+
+2018-06-13 João Távora <joaotavora@gmail.com>
+
+ Fix a bug when eglot--request times out
+
+ * eglot.el (eglot--request): Better timeout
+ message.
+ (eglot--async-request): Must return the timer.
+
+2018-06-13 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-shutdown): accept timeout param.
+
+2018-06-13 João Távora <joaotavora@gmail.com>
+
+ Fix bug in querying server capabilities
+
+ This lead to javascript-typescript-stdio being sent an incremental
+ didChange notif, which it doesn't support.
+
+ * eglot.el (eglot--server-capable): Fix bug.
+
+2018-06-10 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.9
+
+ Merge branch 'master' into jsonrpc-refactor
+
+2018-06-10 João Távora <joaotavora@gmail.com>
+
+ New eglot-ensure to put in a major-mode's hook
+
+ * eglot.el (Commentary): Mention eglo-ensure.
+ (eglot--connect): Rearrange args.
+ (eglot--guess-contact): Rename from eglot--interactive.
+ (eglot): Use eglot--guess-contact.
+ (eglot, eglot-reconnect): Rearrange call to eglot--connect.
+ (eglot-ensure): New command to put in mode hook.
+
+ * eglot-tests.el (eglot--tests-connect): New helper.
+ (auto-detect-running-server, auto-reconnect, rls-watches-files)
+ (rls-basic-diagnostics, rls-hover-after-edit, rls-rename)
+ (basic-completions, hover-after-completions): Use it.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/17
+
+2018-06-10 João Távora <joaotavora@gmail.com>
+
+ Remove connection grabbing antics from jsonrpc.el
+
+ * eglot.el (eglot--managed-mode): Don't touch
+ jsonrpc-find-connection-functions.
+ (eglot--current-server-or-lose, eglot--current-server): New
+ functions (resuscitate).
+ (eglot-shutdown, eglot, eglot-reconnect)
+ (eglot--server-capable, eglot--maybe-activate-editing-mode)
+ (eglot-clear-status, eglot--mode-line-format)
+ (eglot--signal-textDocument/didChange)
+ (eglot--signal-textDocument/didOpen)
+ (eglot--signal-textDocument/didSave)
+ (xref-backend-identifier-completion-table)
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos, eglot-completion-at-point)
+ (eglot-help-at-point, eglot-eldoc-function, eglot-imenu)
+ (eglot-rename, eglot-code-actions): Use eglot--current-server and
+ eglot--current-server-or-lose.
+ (eglot-events-buffer, eglot-stderr-buffer)
+ (eglot-forget-pending-continuations): New commands.
+ (eglot--mode-line-format): Use eglot-stderr-buffer.
+
+ * jsonrpc.el (jsonrpc-find-connection-functions)
+ (jsonrpc-current-connection, jsonrpc-current-connection-or-lose):
+ Remove.
+ (jsonrpc-stderr-buffer, jsonrpc-events-buffer): Simplify.
+ (jsonrpc-forget-pending-continuations): No longer interactive.
+
+ * eglot-tests.el (auto-detect-running-server, auto-reconnect): Use
+ eglot--current-server.
+
+2018-06-10 João Távora <joaotavora@gmail.com>
+
+ Simplify jsonrpc status setting
+
+ * eglot.el (eglot--connect): Don't set jsonrpc-status.
+ (eglot-clear-status): New interactive command.
+ (eglot--mode-line-format): Simplify.
+
+ * jsonrpc.el (jsonrpc--async-request-1): Simplify.
+ (jsonrpc-connection): Replace status with last-error.
+ (jsonrpc-clear-status): Delete.
+ (jsonrpc--connection-receive): Set last-error.
+
+2018-06-09 João Távora <joaotavora@gmail.com>
+
+ Request dispatcher's return value determines response
+
+ No more jsonrpc-reply.
+
+ * eglot.el (eglot-handle-request window/showMessageRequest):
+ Simplify.
+ (eglot--register-unregister): Simplify.
+ (eglot-handle-request workspace/applyEdit): Simplify.
+ (eglot--apply-text-edits): Signal a jsonrpc-error.
+ (eglot--apply-workspace-edit): Simplify.
+
+ * jsonrpc-tests.el (jsonrpc--with-emacsrpc-fixture): Don't
+ jsonrpc--reply.
+
+ * jsonrpc.el (jsonrpc-error, jsonrpc-connection, jsonrpc-request):
+ Improve docstring.
+ (jsonrpc-error): Polymorphic args.
+ (jsonrpc--unanswered-request-id): Remove.
+ (jsonrpc--connection-receive): Rework and simplify.
+ (jsonrpc-reply): Simplify.
+
+2018-06-09 João Távora <joaotavora@gmail.com>
+
+ Merge branch 'master' into jsonrpc-refactor
+
+2018-06-09 João Távora <joaotavora@gmail.com>
+
+ Fix indentation f@#$%^ by previous commit
+
+ Courtesy of aggressive-indent-mode... Agressive it is...
+
+2018-06-09 João Távora <joaotavora@gmail.com>
+
+ Attempt to handle rls sophisticated globs for didchangewwatchedfiles
+
+ * eglot.el (eglot--wildcard-to-regexp): New helper.
+ (eglot--register-workspace/didChangeWatchedFiles): Use it.
+
+2018-06-08 João Távora <joaotavora@gmail.com>
+
+ Check flymake-mode before calling report-fn
+
+ * eglot.el (eglot-handle-notification): Check flymake-mode.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/16
+
+2018-06-08 João Távora <joaotavora@gmail.com>
+
+ Merge master into jsonrpc-refactor
+
+2018-06-08 João Távora <joaotavora@gmail.com>
+
+ Simplify jsonrpc connection shutdown
+
+ * eglot.el (eglot--process): Delete.
+ (eglot-shutdown): Use jsonrpc-shutdown.
+ (eglot--on-shutdown): Simplify.
+ (eglot-reconnect): Simplify.
+ (eglot--connect): Simplify.
+
+ * jsonrpc-tests.el (jsonrpc--with-emacsrpc-fixture): Simplify.
+
+ * jsonrpc.el (jsonrpc-process-type, jsonrpc-running-p)
+ (jsonrpc-shutdown): New methods.
+
+ * eglot-tests.el (auto-reconnect): Use jsonrpc--process.
+ (eglot--call-with-dirs-and-files): Use jsonrpc-running-p.
+
+2018-06-08 João Távora <joaotavora@gmail.com>
+
+ Support json.c. api purely based on classes
+
+ No more jsonrpc-connect.
+
+ This is a big commit because of a data loss problem. It should be at
+ least two separate commits (json.c-support and new API)
+
+ * eglot.el (eglot-server-programs): Rework docstring.
+ (eglot-handle-request): Don't take ID param
+ (eglot-lsp-server): No more initargs.
+ (eglot--interactive): Return 5 args.
+ (eglot): Take 5 args.
+ (eglot-reconnect): Pass 6 args to eglot--connect.
+ (eglot--dispatch): Remove.
+ (eglot--connect): Take 6 args. Rework.
+ (eglot-handle-notification): Change all specializations
+ to use a non-keyword symbol spec.
+ (eglot-handle-request): Remove ID param from all
+ specializations. Don't pass ID to jsonrpc-reply.
+ (eglot--register-unregister): Don't take JSONRPC-ID arg.
+ Don't pass ID to jsonrpc-reply.
+
+ * jsonrpc-tests.el (returns-3, signals-an--32603-JSONRPC-error)
+ (times-out, stretching-it-but-works)
+ (json-el-cant-serialize-this, jsonrpc-connection-ready-p)
+ (deferred-action-intime, deferred-action-toolate)
+ (deferred-action-timeout): Pass JSON objects compatible with
+ json.c
+ (jsonrpc--test-client, jsonrpc--test-endpoint): New classes
+ (jsonrpc--with-emacsrpc-fixture): Don't use jsonrpc-connect.
+ (jsonrpc-connection-ready-p): Update signature.
+
+ * jsonrpc.el: Rewrite commentary.
+ (jsonrpc-connection): Rework class.
+ (jsonrpc-process-connection): Rework class.
+ (initialize-instance): New methods..
+ (jsonrpc--json-read, jsonrpc--json-encode): Reindent.
+ (jsonrpc-connect): Delete.
+ (jsonrpc--json-read, jsonrpc--json-encode):
+ New functions for working with json.c
+ (jsonrpc--process-filter): Call them.
+ (jsonrpc--unanswered-request-id): New variable.
+ (jsonrpc--connection-receive): Use jsonrpc--unanswered-request-id
+ (jsonrpc-connection-send): Take keyword params to build message
+ instead of message.
+ (jsonrpc-notify, jsonrpc--async-request-1): Use new
+ jsonrpc-connection-send.
+ (jsonrpc-reply): Simplify.
+
+ * eglot-tests.el (rls-watches-files, rls-basic-diagnostics)
+ (rls-hover-after-edit): Correctly compare using string= and
+ non-keyword symbols.
+
+2018-06-06 João Távora <joaotavora@gmail.com>
+
+ Slightly polish the flymake integration
+
+ For backends, like RLS, that don't textDocument/publishDiagnostics
+ right away, assume that the file is clean. Since Flymake allows
+ multiple reportings, it should be OK.
+
+ * eglot.el (eglot--unreported-diagnostics): Move variable up here.
+ (eglot--maybe-activate-editing-mode): Assume no diagnostics on
+ open.
+
+2018-06-06 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot--make-process): use 'utf-8-emacs-unix
+
+ Attempt to improve the situation reported in
https://github.com/joaotavora/eglot/issues/14.
+
+2018-06-05 João Távora <joaotavora@gmail.com>
+
+ Merge master into jsonrpc-refactor (using imerge)
+
+2018-06-05 João Távora <joaotavora@gmail.com>
+
+ Shoosh compiler
+
+ * eglot.el (eglot-server-ready-p): Use cl-defmethod
+
+2018-06-05 João Távora <joaotavora@gmail.com>
+
+ Cleanup the flymake 26.1 hack slightly
+
+ * eglot.el (eglot-handle-notification): Use proper flymake
+ diagnostic types.
+ (eglot-code-actions): Use eglot--diag-data.
+ (eglot--make-diag, eglot--diag-data): New aliases to
+ `flymake-diagnostic-data' and `flymake-make-diagnostic'.
+ (eglot-error eglot-warning eglot-note)
+ (dolist eglot-error eglot-warning eglot-note): put
+ flymake-overlay-control in these.
+ (eglot-error eglot-warning eglot-note): put corresponding
+ flymake-category.
+ (horrible hack at the end): Move the Flymake 26.1 hack here.
+
+2018-06-04 João Távora <joaotavora@gmail.com>
+
+ Support purposedly ignoring a server capability
+
+ * eglot.el (eglot-ignored-server-capabilites): New defcustom.
+ (eglot--server-capable): Use it.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/12
+
+2018-06-04 brotzeit <brotzeitmacher@gmail.com>
+
+ Fix typos
+
+ Close https://github.com/joaotavora/eglot/issues/13.
+
+ * eglot.el (eglot--all-major-modes)
+ (eglot--notify, eglot--xref-reset-known-symbols): Fix typos.
+
+2018-06-03 Justin Burkett <justin@burkett.cc>
+
+ Correct prefix keys after use-package-autoload-keymap
+
+ By adding events of the form (cons t event) to unread-command-events,
Emacs
+ correctly updates this-command-keys for the subsequent use of the
prefix.
+
+ Before this change, packages like my which-key were not getting the
correct
+ prefix after use-package-autoload-keymap loaded the relevant package.
+
+ See https://github.com/justbur/emacs-which-key/issues/192
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ Fix another merge-related bug in eglot-eldoc-function
+
+ * eglot.el (eglot-eldoc-function): Correctly destructure
+ eglot--range-region.
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-eldoc-function): remove spurious log message
+
+ * eglot.el (version): bump to 0.8
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ Fix completionitem/resolve
+
+ Should fix interoperation with company-quickhelp.
+
+ * eglot.el (eglot-completion-at-point): Correctly pass properties
+ to completionItem/resolve.
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ Explicitly trigger eldoc after workspace edits
+
+ It's usually a nice thing to do.
+
+ * eglot.el (eglot--apply-workspace-edit): Call
+ eglot-eldoc-function.
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ New command m-x eglot-code-actions
+
+ Also available when left-clicking diagnostics.
+
+ * README.md: Mention eglot-code-actions. Slightly rewrite
+ differences to lsp-mode.
+
+ * eglot.el (eglot-code-actions): New command.
+ (eglot-handle-notification :textDocument/publishDiagnostics): Use
+ eglot--make-diag and eglot--overlay-diag-props.
+ (eglot--mode-line-props): Use eglot--mouse-call.
+ (eglot--mouse-call): Renamed from eglot--mode-line-call.
+ (eglot-client-capabilities): List :executeCommand and :codeAction
+ as capabilities.
+ (eglot--diag, advice-add flymake--highlight-line): Horrible hack.
+ (eglot--overlay-diag-props): Horrible hack.
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ Revert an unfinished feature that made it to the last commit
+
+ commit ee6ab89666704232f744d6262040979b0142c44b
+ Author: João Távora <joaotavora@gmail.com>
+ Date: Fri Jun 1 14:43:30 2018 +0100
+
+ Add MELPA badge
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ Add melpa badge
+
+ * README.mdown: Now in MELPA too
+
+2018-06-01 João Távora <joaotavora@gmail.com>
+
+ Prevent possible cquery choke on :initializationoptions
+
+ Hopefully help debug https://github.com/joaotavora/eglot/issues/10.
+
+ * eglot.el (eglot-initialization-options): Use `list'
+
+2018-05-30 João Távora <joaotavora@gmail.com>
+
+ Merge master into jsonrpc-refactor (using imerge)
+
+2018-05-29 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.7
+
+2018-05-28 João Távora <joaotavora@gmail.com>
+
+ More yak shaving
+
+ * eglot.el (eglot--with-live-buffer, eglot--widening): New macros.
+ (eglot--lambda): Move up here.
+ (eglot--process-filter): Simplify with eglot--with-live-buffer.
+ (eglot--async-request): Simplify with eglot--with-live-buffer.
+ (eglot--TextDocumentItem): Simplify with eglot--widening.
+ (eglot--signal-textDocument/didChange, eglot--apply-text-edits):
+ Simplify with eglot--widening.
+
+2018-05-28 João Távora <joaotavora@gmail.com>
+
+ New m-x eglot-stderr-buffer useful for debugging
+
+ * eglot.el (eglot--make-process): Save stderr buffer in process.
+ (eglot-stderr-buffer): New interactive command.
+ (eglot--mode-line-format): Bind C-mouse-1 to new
+ eglot-stderr-buffer.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ On reconnection, ignore errors of shutting down hung server
+
+ * eglot.el
+ (eglot, eglot-reconnect): Ignore any errors on shutdown.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Be more criterious before running the idle timer
+
+ * eglot.el (eglot--change-idle-timer): make a defvar-local
+ (eglot--after-change): Only run timer if the buffer is live.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Make eglot--recent-changes a simpler list
+
+ * eglot.el (eglot-server-ready-p): Don't add default method here.
+ (eglot-server-ready-p): Do it here.
+ (eglot--outstanding-edits-p): Remove.
+ (eglot--before-change, eglot--after-change)
+ (eglot--signal-textDocument/didChange): Use eglot--recent-changes
+ as a list. Simplify.
+ (eglot--signal-textDocument/didOpen): Use eglot--recent-changes as
+ a list.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Set eglot--versioned-identifier to 0 on didopen
+
+ Else cquery will rightfully complain about this.
+
+ * eglot.el (eglot--signal-textDocument/didOpen): Also set
+ eglot--versioned-identifier to 0.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Correctly apply workspace edits in documentchanges form
+
+ This was breaking M-x eglot-rename for cquery
+
+ * eglot.el (eglot--apply-workspace-edit): Fix and simplify.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.6
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Hopefully fix the flymake bootstrap problem
+
+ Immediately after M-x eglot, eglot's use of flymake was having trouble
+ detecting the first diagnostics sent from the server, resulting in an
+ annoying "Wait" in the mode-line.
+
+ * eglot.el (eglot--current-flymake-report-fn): Move up here.
+ (eglot--managed-mode): Set eglot--current-flymake-report-fn to nil
+ on teardown.
+ (eglot--maybe-activate-editing-mode): Simplify.
+ (eglot-handle-notification textDocument/publishDiagnostics): Set
unreported-diagnostics to a cons.
+ (eglot-handle-notification eglot-rls window/progress): Simplify.
+
+ * eglot-tests.el (rls-basic-diagnostics): Simplify test.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Set spinner in textdocument/didchange as it matters to rls
+
+ Otherwise, the asynch eldoc action will immediately send the
+ textDocument/documentHighlight requests, without understanding that
+ they need to be deferred a bit more.
+
+ * eglot.el (eglot--signal-textDocument/didChange): Set the spinner
+ here.
+
+2018-05-27 João Távora <joaotavora@gmail.com>
+
+ Fix assorted cquery-related bugs
+
+ Some versions of cquery send a :role key as part of the response to
+ textDocument/documentHighlight. Ignore it for now.
+
+ Also cquery sometimes send 0-length ranges upon which we now fallback
+ to flymake-diag-region.
+
+ Finally, in eglot-eldoc-funciton, the previous hack of calling the
+ eglot--hover-info outside of the when-buffer-window macrolet contained
+ a bug. It must be called in the correct buffer. Revert the hack and do
+ it by querying from eglot.el if ert is running tests.
+
+ * eglot.el (eglot--range-region): Return a cons and fallback to
+ flymake-diag-region if server returned a useless range.
+ (eglot-handle-notification, eglot--hover-info): Update call to
+ eglot--range-region.
+ (eglot-help-at-point): Ensure `eglot--hover-info` runs in right
+ buffer.
+ (eglot-eldoc-function): Don't abuse eldoc-last-message like this.
+ Also update call to eglot--range-region. Consider ert-running-test
+ (eglot--apply-text-edits): Use pcase-lambda.
+ (ert): require it.
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.5
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ Merge branch 'cquery-support' into master
+
+ The conflicts in eglot.el where fixed by calling the new eglot--debug
+ helper coming from 'cquery-support'. This helper was converted to
+ allow a non-string format passed directly to eglot--log-event.
+
+ Also fixed some compilation warnings.
+
+ * eglot.el (eglot--debug): Allow non-string FORMAT to be a JSON
+ object. (eglot-handle-notification :$cquery/progress)
+ (eglot-handle-notification :$cquery/setInactiveRegions)
+ (eglot-handle-notification :$cquery/publishSemanticHighlighting):
+ Solve compilation warnings.
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ Really ensure eglot--shutdown deletes a process completely
+
+ * eglot.el (eglot-lsp-server): rename slot "moribund" to
+ "shutdown-requested"
+ (eglot--connect): Don't check if shutdown was requested here.
+ (eglot--process-sentinel): Set shutdown-requested to
+ :sentinel-done here.
+ (eglot-shutdown): use eglot--shutdown-requested. Improve check
+ for process liveness.
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ Get rid of eglot--obj, an uninteresting abstraction
+
+ * eglot.el (eglot--obj): Get rid of this. It wasn't widely used
+ anyway.
+ (eglot-client-capabilities)
+ (eglot--connect, eglot--async-request, eglot--notify)
+ (eglot--reply, eglot--pos-to-lsp-position, eglot-handle-request)
+ (eglot--register-unregister, eglot-handle-request)
+ (eglot--TextDocumentIdentifier)
+ (eglot--VersionedTextDocumentIdentifier)
+ (eglot--TextDocumentItem, eglot--TextDocumentPositionParams)
+ (eglot--signal-textDocument/didChange)
+ (eglot--signal-textDocument/didSave)
+ (xref-backend-identifier-completion-table)
+ (xref-backend-references, xref-backend-apropos, eglot-imenu)
+ (eglot-rename): Use list instead of eglot--obj.
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ Cleanup deferred request mechanism with a readable log
+
+ * eglot.el (eglot-lsp-server): Rework doc of deferred-actions
+ slot.
+ (defvar eglot--next-request-id): Move down, now buffer local.
+ (defun eglot--next-request-id): Remove.
+ (eglot--call-deferred): Be more informative.
+ (eglot--async-request): Simplify.
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ Simpify eglot--server-receive
+
+ * eglot.el (eglot--obj): Cleanup whitespace.
+ (eglot--server-receive): Simplify.
+
+2018-05-26 João Távora <joaotavora@gmail.com>
+
+ Don't rely on flymake's idle timer for textdocument/didchange
+
+ * eglot.el (eglot--after-change): Set idle timer here.
+ (eglot--change-idle-timer): New var.
+ (eglot--signal-textDocument/didChange): No seed to set spinner here.
+ (eglot-flymake-backend) Don't send didChange here.
+
+2018-05-25 João Távora <joaotavora@gmail.com>
+
+ Document current api breaches a bit
+
+ * eglot-tests.el (eglot--call-with-dirs-and-files)
+ (auto-reconnect): use eglot--process
+
+ * eglot.el (eglot-shutdown, eglot, eglot-reconnect)
+ (eglot--connect): Use eglot--process
+ (eglot--process): Alias to concentrate the hack here.
+ (eglot--signal-textDocument/didChange): Tweak comment.
+
+2018-05-25 João Távora <joaotavora@gmail.com>
+
+ Merge branch use-eieio-server-defclass into jsonrpc-refactor
+
+2018-05-24 Josh Elsasser <jelsasser@appneta.com>
+
+ Log debug messages through eglot--debug
+
+ * eglot.el (eglot--async-request, eglot--process-sentinel):
+ (eglot--call-deferred): Use eglot--debug to log messages to
+ the server events buffer.
+ (eglot--server-receive): Demote "Notification unimplemented"
+ message on missing handlers to a pure debug message.
+
+2018-05-24 Josh Elsasser <jelsasser@appneta.com>
+
+ Demote unvisited diagnostics logging to debug level
+
+ The PublishDiagnostic spec (LSP Specification, 3.0) does not
+ strictly forbid the server from publishing diagnostics before
+ a file has been visited.
+
+ * eglot.el (eglot--server-textDocument/publishDiagnostics): Log
+ the "received diagnostics for unvisited file" warning as debug
+ to avoid spamming users of compliant language servers.
+
+2018-05-24 Josh Elsasser <jelsasser@appneta.com>
+
+ Introduce eglot--debug for unimportant messages
+
+ * eglot.el (eglot--debug): New function to log noisy or trivial
+ messages to the eglot events buffer.
+
+2018-05-24 Josh Elsasser <jelsasser@appneta.com>
+
+ Add cquery support for c/c++ projects
+
+ Implements minimal support for the core cquery language
+ server. None of its extensions are implemented yet.
+
+ * eglot.el (eglot-server-programs): Add cquery to list
+ of guessed programs for c-mode and c++-mode.
+ (eglot-initialization-options eglot-cquery): Specialize init
+ options to pass cquery a cache directory and disable a flood
+ of $cquery/progress messages.
+ (eglot-handle-notification $cquery/publishSemanticHighlighting):
+ (eglot-handle-notification $cquery/setInactiveRegions):
+ (eglot-handle-notification $cquery/progress): New no-op functions
+ to avoid filling logs with "unknown message" warnings.
+ (eglot-cquery): New eglot-lsp-server subclass.
+
+ * README.md: Mention cquery in the README.
+
+2018-05-22 João Távora <joaotavora@gmail.com>
+
+ Fix indentation broken by the defclass monster commit
+
+ * eglot.el (for, eglot-handle-notification publishDiagnostics)
+ (eglot-handle-request registerCapability, eglot-handle-request
+ unregisterCapability, eglot-handle-request applyEdit): fix
+ indentation.
+
+2018-05-22 João Távora <joaotavora@gmail.com>
+
+ Introduce new api methods for experimental clients to use
+
+ Should help Josh Elsasser implement pull request
https://github.com/joaotavora/eglot/issues/6.
+
+ * eglot.el (eglot--obj): Move upwards in file.
+ (eglot-server-ready-p): Tweak comment.
+ (eglot-initialization-options): New API defgeneric..
+ (eglot-client-capabilities): New API defgeneric.
+ (eglot--client-capabilities): Remove.
+ (eglot--connect): Call new API methods here.
+
+2018-05-22 João Távora <joaotavora@gmail.com>
+
+ Do rust's rls hack properly with new class-based api
+
+ * eglot.el (eglot-server-ready-p): New API method.
+ (eglot-handle-request, eglot-handle-notification): New
+ defgeneric's.
+ (eglot--ready-predicates, eglot--server-ready-p): Remove.
+ (eglot--async-request): Call eglot-server-ready-p.
+ (eglot--request): Tweak comment.
+ (eglot--rls-probably-ready-for-p): Remove.
+ (eglot-server-ready-p eglot-rls): Adapts earlier
+ eglot--rls-probably-ready-for-p.
+ (eglot-handle-notification eglot-rls): Specialize to eglot-rls.
+ (eglot-rls): New eglot-lsp-server subclass.
+
+ * eglot-tests.el (auto-detect-running-server)
+ (auto-reconnect, basic-completions)
+ (hover-after-completions): Use eglot--interactive
+
+2018-05-22 João Távora <joaotavora@gmail.com>
+
+ Use an eieio class to represent a server.
+
+ Allow clients of eglot.el to use specific server classes to represent
+ experimental servers.
+
+ Wherever you used to read "proc" you now probably read "server",
+ unless it's really the process properties that are sought after.
+
+ Should help Josh Elsasser implement pull request
https://github.com/joaotavora/eglot/issues/6.
+
+ * eglot-tests.el (eglot--call-with-dirs-and-files)
+ (auto-detect-running-server, auto-reconnect, basic-completions)
+ (hover-after-completions): Adapt to server defclass instead of
+ proc.
+
+ * eglot.el
+ (eglot-server-programs): Add docstring.
+ (eglot--processes-by-project): Removed.
+ (eglot--servers-by-project): New variable.
+ (eglot--current-process): Removed.
+ (eglot--current-server): New function.
+ (eglot-server): New class.
+ (cl-print-object eglot-server): New method.
+ (eglot--current-process-or-lose): Removed.
+ (eglot--current-server-or-lose): New function.
+ (eglot--define-process-var): Remove.
+ (eglot--make-process): Rework.
+ (eglot--project-short-name): Remove.
+ (eglot--connect): Rework.
+ (eglot--interactive): Rework to allow custom classes.
+ (eglot, eglot-reconnect, eglot--process-sentinel)
+ (eglot--process-filter, eglot-events-buffer, eglot--log-event):
+ Rework.
+ (eglot--process-receive): Removed.
+ (eglot--server-receive): New function.
+ (eglot--send): Renamed from eglot--process-send.
+ (eglot--process-send): Removed.
+ (eglot-forget-pending-continuations)
+ (eglot-clear-status, eglot--call-deferred)
+ (eglot--server-ready-p, eglot--async-request, eglot--request)
+ (eglot--notify, eglot--reply, eglot--managed-mode-onoff)
+ (eglot--maybe-activate-editing-mode, eglot--mode-line-format):
+ Rework.
+ (eglot-shutdown): Rework.
+ (eglot-handle-notification *, eglot-handle-request *)
+ (eglot--register-unregister)
+ (eglot--signal-textDocument/didOpen)
+ (eglot--signal-textDocument/didClose)
+ (eglot--signal-textDocument/willSave)
+ (eglot--signal-textDocument/didSave)
+ (xref-backend-identifier-completion-table)
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos, eglot-completion-at-point)
+ (eglot-help-at-point, eglot-eldoc-function, eglot-imenu)
+ (eglot-rename)
+ (eglot--register-workspace/didChangeWatchedFiles)
+ (eglot--unregister-workspace/didChangeWatchedFiles)
+ (eglot--rls-probably-ready-for-p, eglot-handle-notification):
+ Rework (proc->server)
+
+ fixup
+
+ * eglot-tests.el (eglot--call-with-dirs-and-files)
+ (auto-detect-running-server, auto-reconnect, basic-completions)
+ (hover-after-completions):
+
+ * eglot.el (eglot--processes-by-project): Removed.
+ (eglot--servers-by-project): New variable.
+ (eglot--current-process): Removed.
+ (eglot--current-server): New function.
+
+2018-05-21 João Távora <joaotavora@gmail.com>
+
+ Introduce eglot-handle-request and eglot-handle-notification as api
+
+ * eglot.el (eglot--process-receive): Call eglot-handle-request and
+ eglot-handle-notification.
+ (eglot-handle-notification, eglot-handle-request): New generic
+ functions.
+ (eglot--server-window/showMessage)
+ (eglot--server-window/progress)
+ (eglot--server-telemetry/event, eglot--server-window/logMessage):
+ Convert to eglot-handle-notification.
+ (eglot-handle-request, eglot--server-client/registerCapability)
+ (eglot--server-client/unregisterCapability)
+ (eglot-handle-request): Convert to eglot-handle-request.
+
+2018-05-20 João Távora <joaotavora@gmail.com>
+
+ Get rid of jsonrpc.el customization group and timeout
+
+ * eglot.el (eglot-shutdown, eglot--signal-textDocument/willSave):
+ Pass :timeout to jsonrpc-request.
+ (defadvice jsonrpc-request): Add :timeout kwarg
+
+ * jsonrpc.el (defgroup jsonrpc, jsonrpc-request-timeout): Remove.
+ (jrpc-default-request-timeout): New constant.
+ (jsonrpc-async-request): Use it.
+ (jsonrpc-request): Accept timeout kwarg and pass it on.
+
+2018-05-20 João Távora <joaotavora@gmail.com>
+
+ Heroically merge master into jsonrpc-refactor (using imerge)
+
+2018-05-20 João Távora <joaotavora@gmail.com>
+
+ Rename jrpc.el to jsonrpc.el
+
+ * eglot.el [everywhere]: jrpc -> jsonrpc everywhere.
+ Reindent.
+
+ * eglot-tests.el [everywhere]: jrpc -> jsonrpc everywhere.
+
+ * jsonrpc.el: New file.
+
+ * Makefile: jrpc.el -> jsonrpc.el
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Fix a bug introduced in the previous commit
+
+ * eglot.el (eglot--format-markup): Ignore errors when calling
+ possibly unknown functions.
+ (eglot-completion-at-point): Use eglot--format-markup
+ (eglot--hover-info): Yak shaving
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Rewrite a couple of defs and shave a yak
+
+ * eglot.el (eglot--define-process-var): Simplify.
+ (eglot--format-markup): Rewrite.
+ (eglot--warn, eglot--pos-to-lsp-position)
+ (eglot--lsp-position-to-point, eglot--server-capable)
+ (eglot--maybe-activate-editing-mode)
+ (eglot--server-textDocument/publishDiagnostics)
+ (eglot--server-workspace/applyEdit, eglot--hover-info): Yak
+ shaving.
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.4
+
+2018-05-19 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from akhramov/fix/ensure-system-package-cleanup
+
+ ensure-system-package cleanup
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/683
+
+2018-05-19 Artyom Khramov <futu.fata@gmail.com> (tiny change)
+
+ Ensure system package cleanup
+
+ The function introduced in
https://github.com/jwiegley/use-package/issues/673 wasn't declared at compile
time, and
+ it made byte compiler unhappy. Moreover, it was forgotten to remove
+ redundant compile time variables. Thanks @tarsius for pointing that
+ out.
+
+ This change
+ * Removes redundant variable declarations
+ * Adds `system-packages-get-command` function declaration.
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Add some completion tests for pyls
+
+ * eglot-tests.el (edebug): Require it.
+ (eglot--call-with-dirs-and-files): Simplify.
+ (eglot--call-with-test-timeout): Don't timeout if edebug.
+ (auto-detect-running-server, auto-reconnect): Skip unless rls is
+ found.
+ (basic-completions): New test.
+ (hover-after-completions): New failing test.
+
+ * eglot.el (eglot-eldoc-function): Force write
+ eldoc-last-message, for tests sake.
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Handle managed buffers in own process var
+
+ This should save some trouble when testing noninteractively. Because
+ eglot--shutdown didn't turn off the minor mode, test code running
+ immediately after it could still make didClose requests, for example.
+ The sentinel was the previous responsible for turning off the minor
+ mode and didn't get a chance to run in that case. Now eglot--shutdown
+ is also responsible for turning off the minor mode.
+
+ All this should be hidden behind eglot--managed-mode-onoff.
+
+ * eglot.el (eglot--managed-buffers): New process-local variable.
+ (eglot--process-sentinel): Turn off managed mode.
+ (eglot--managed-mode-onoff): New function.
+ (eglot--managed-mode): Don't offer to kill server here.
+ (eglot--buffer-managed-p): Remove.
+ (eglot--maybe-activate-editing-mode): Activate mode here.
+ (eglot-shutdown): Turn off minor mode here.
+ (eglot--server-window/progress): Simplify slightly.
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Robustness fixes for the request mechanism
+
+ * eglot.el (eglot--async-request): Pass actual id to eglot--log-event
+ (eglot--request): Also cancel any continuations.
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Check capabilities before sending :completionitem/resolve
+
+ * eglot.el (eglot--server-capable): Rewrite.
+ (eglot-completion-at-point): Check caps before sending
+ :completionItem/resolve
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Better decide what text exactly to present as completions
+
+ For inserting, :insertText takes precedence over :label.
+ For annotating, first sentence of :documentation, then :detail,
+ then :kind name.
+
+ Also remember to send didChange in the :exit-function
+
+ * eglot.el (eglot-completion-function): Rework main function and
+ :annotation-function, and :exit-function
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-clear-status): remember to update modeline
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Collect regions to change as markers, then edit
+
+ * eglot.el (eglot--lsp-position-to-point): Accept MARKER optional
+ arg.
+ (eglot--range-region): Accept MARKERS optional arg. Return a list.
+ (eglot--server-textDocument/publishDiagnostics)
+ (eglot--hover-info, eglot-eldoc-function): eglot--range-region
+ returns a list, not a cons.
+ (eglot--apply-text-edits): First collect regions as markers, then
+ edit.
+
+ GitHub-reference: close https://github.com/joaotavora/eglot/issues/4
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ If we're going to send rootpath, better send an absolute one
+
+ javascript-typescript-langserver complained.
+
+ * eglot.el (eglot--connect): Use expand-file-name.
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Robustify timer handling for eglot--async-request
+
+ This basically cherry-picks an ealier commit for the jsonrpc-refactor
+ branch:
+ a2aa1ed..: João Távora 2018-05-18 Robustify timer handling for
jrpc-async-request
+
+ * jrpc.el (jrpc--async-request): Improve timeout handling. Return a
list (ID TIMER)
+ (jrpc--request): Protect against user-quits, cancelling timer
+
+2018-05-19 João Távora <joaotavora@gmail.com>
+
+ Simplify some infrastructure fucntions
+
+ * eglot.el (eglot--contact): Simplify docstring.
+ (eglot--make-process): Simplify.
+ (eglot--connect): Simplify.
+ (eglot--interactive): Simplify and correct odd bug.
+ (eglot--process-sentinel): Correct messages. Delete before
+ attempting reconnection.
+ (eglot-shutdown): Simplify.
+
+2018-05-19 Naoya Yamashita <conao3@gmail.com>
+
+ fix gethash default value for use-package-statistics-time
+
+ float-time expect list like (HIGH LOW USEC PSEC)
+ > HIGH has the most significant bits of the seconds, while LOW has the
+ > least significant 16 bits. USEC and PSEC are the microsecond and
+ > picosecond counts.
+ by `current-time` in editfns.c
+
+2018-05-18 João Távora <joaotavora@gmail.com>
+
+ Jrpc.el should know nothing of mode-line updates
+
+ * eglot.el (eglot--dispatch): METHOD can be a symbol.
+ Call force-mode-line-update here.
+
+2018-05-18 João Távora <joaotavora@gmail.com>
+
+ Improve jrpc.el's doc (and change jrpc-request's protocol a tiny bit)
+
+ * jrpc.el (jrpc-async-request)
+ (jrpc-request,jrpc-notify,jrpc-reply): Improve docstring.
+ (jrpc-connect): Improve docstring and add autoload cookie
+ (jrpc-request): DEFERRED param is now &key
+ (defgroup jrpc): Fix description.
+
+ * eglot.el (advice-add jrpc-request): Use &key deferred.
+ (eglot-completion-at-point): Pass :deferred to jrpc-request
+
+2018-05-18 João Távora <joaotavora@gmail.com>
+
+ Merge branch 'master' into jsonrpc-refactor (using good ol' git merge)
+
+2018-05-17 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (version): bump to 0.3
+
+2018-05-17 João Távora <joaotavora@gmail.com>
+
+ Make it work on windows
+
+ Apparently passing :coding 'no-conversion to make-process on windows
+ is essential to receive any text at all in the process filter.
+
+ Also needed to tweak uri-to-path and path-to-uri.
+
+ Thanks to lsp-mode.el for these hints
+
+ * eglot.el (eglot--make-process): Pass :coding 'no-conversion to
+ make-process.
+ (eglot--path-to-uri): Add a forward slash if windows-nt.
+ (eglot--uri-to-path): Remove a forward slash if windows-nt.
+ (eglot--server-textDocument/publishDiagnostics): Simplify and use
+ eglot--uri-to-path.
+
+2018-05-17 João Távora <joaotavora@gmail.com>
+
+ Fix eglot--error and eglot--message helpers
+
+ * eglot.el (eglot--error, eglot--message):
+ Safely interpret %s.
+
+2018-05-17 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot--lambda): add missing indent spec.
+
+2018-05-16 João Távora <joaotavora@gmail.com>
+
+ Simplify some function calling infrastructure
+
+ eglot--mapply is a confusing abstraction. Hide some of that confusion
+ behind eglot--lambda. More stably dispatch server notifications and
+ requests without introspecting their contents.
+
+ * eglot.el (eglot--process-receive): Simplify.
+ (eglot--async-request): Improve doc.
+ (eglot--request): Simplify.
+ (eglot--mapply): Remove.
+ (xref-backend-identifier-completion-table)
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos, eglot-completion-at-point)
+ (eglot-eldoc-function, eglot-imenu, eglot--apply-text-edits):
+ Don't use eglot--mapply, use normal mapcar/mapc.
+
+2018-05-16 João Távora <joaotavora@gmail.com>
+
+ Replace eglot--with-lsp-range with a function and pcase-let
+
+ * eglot.el (eglot--with-lsp-range): Remove.
+ (eglot--range-region): New function.
+ (eglot--server-textDocument/publishDiagnostics)
+ (eglot--hover-info, eglot-eldoc-function)
+ (eglot--apply-text-edits): Use it.
+
+2018-05-16 João Távora <joaotavora@gmail.com>
+
+ Simpler callback protocol for jsonrpc parameters and results
+
+ Instead of introspecting the :params or :result object to discover if
+ an object is present, and changing the Elisp function call type
+ (funcall vs apply) accordingly, alway funcall. It's up to the
+ application to destructure if it wishes. jrpc-lambda can help with
+ that and keep the application code simple.
+
+ * eglot.el (eglot--on-shutdown): Fix indentation.
+ (eglot--dispatch): Simplify.
+ (xref-backend-identifier-completion-table)
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos, eglot-completion-at-point)
+ (eglot-eldoc-function, eglot-imenu, eglot--apply-text-edits):
+ Don't use jrpc-mapply.
+
+ * jrpc.el (jrpc--process-receive): Allow only keys defined in
+ JSONRPC2.0
+ (jrpc--process-receive): Don't overload function call type based
+ on remote response.
+ (jrpc-lambda): Return a unary lambda.
+ (jrpc-request): Simplify.
+ (jrpc-mapply): Remove.
+
+2018-05-16 João Távora <joaotavora@gmail.com>
+
+ More flexible jrpc.el and improve eglot.el's doc
+
+ Generalize and rework CONTACT arg to jrpc-connect
+
+ * eglot.el (eglot--command-history): Tweak docstring.
+ (eglot--interactive): Rework.
+ (eglot): Rework docstring. COMMAND is now CONTACT.
+ (eglot--connect): Use new jrpc-connect protocol.
+ (eglot-server-programs): Reword doc.
+
+ * jrpc.el (jrpc--make-process): Use new form of CONTACT.
+ (jrpc-connect): Explain new semantics of CONTACT.
+
+2018-05-15 João Távora <joaotavora@gmail.com>
+
+ Merge master into jsonrpc-refactor (using imerge)
+
+2018-05-15 João Távora <joaotavora@gmail.com>
+
+ Add php's php-language-server to built-in guessed servers
+
+ Closes https://github.com/joaotavora/eglot/issues/1. The problem in
that issue is that php-language-server has a
+ bug when it's not passed it the deprecated ":rootPath" field. The bug
+ doesn't happen if the ":processId" field is also absent. Eglot was
+ triggering the bug, because it didn't pass ":rootPath", but there's
+ nothing wrong in doing so.
+
+ * README.md: Add php-language-server to the built-in list.
+
+ * eglot.el (eglot-server-programs): Add php-language-server.
+ (eglot--connect): Also pass (deprecated) rootPath.
+
+2018-05-15 João Távora <joaotavora@gmail.com>
+
+ Bump version and slightly improve doc
+
+ * eglot.el: Bump version. Add nicer Commentary header.
+ (eglot): Improve docstring.
+
+ * README.md: Update
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ More quietly report request timeouts as events
+
+ * eglot.el (eglot--sync-request): Use eglot--log-event
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Shutdown server if connection initialization fails
+
+ Also tweak autoreconnection logic
+
+ * eglot.el (eglot--connect): Immediately `eglot-shutdown` if
+ connection initialization failed. Don't treat interactive calls
+ specially.
+ (eglot--process-sentinel): Tweak messages.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Fix a ridiculous bug when generating transient projects
+
+ * eglot.el (eglot--find-current-process, eglot--interactive): Fix
+ horrible bug.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Fix a ridiculous bug when generating transient projects
+
+ * eglot.el (eglot--find-current-process, eglot--interactive): Fix
+ horrible bug.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Jrpc-connect is now passed a generic dispatching function
+
+ * eglot.el (eglot--dispatch): New helper.
+ (eglot--connect): Use it.
+
+ * jrpc.el (jrpc--dispatcher, jrpc--request-continuations)
+ (jrpc--server-request-ids): New process-local var.
+ (jrpc--pending-continuations, jrpc--method-prefix): Remove.
+ (jrpc-connect): Take DISPATCHER instead of PREFIX.
+ (jrpc--process-receive): Use proc's dispatcher.
+ (jrpc--process-send): Make private.
+ (jrpc-forget-pending-continuations, jrpc-async-request)
+ (jrpc-reply, jrpc-notify): Use new function names.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Merge master into jsonrpc-refactor (using imerge)
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Proper server shutdown when jrpc.el is used
+
+ The shutdown hook can't be a buffer-local thing, it has
+ to be a server property. Also, on shutdown in eglot.el,
+ remember to first unmanage buffers and only then affect
+ eglot--processes-by-project.
+
+ * eglot.el (eglot--on-shutdown): reverse order of first
+ two sexps.
+ (eglot--connect): Pass a shutdown function to jrpc-connect
+ (eglot--managed-mode): Don't use jrpc-server-moribund-hook
+ (eglot--buffer-managed-p): Simplify. Use eglot--find-current-process.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Support didchangewatchedfiles with dynamic registration
+
+ RLS uses this, presumaly for knowing about Cargo.toml changes and stuff.
+
+ * README.md: Update protocol compliance.
+
+ * eglot.el (filenotify): Require it.
+ (eglot--file-watches): New process-local var.
+ (eglot--process-sentinel): Kill all watches
+ (eglot--register-unregister): New helper.
+ (eglot--server-client/registerCapability): Simplify.
+ (eglot--server-client/unregisterCapability): New method.
+ (eglot--register-workspace/didChangeWatchedFiles)
+ (eglot--unregister-workspace/didChangeWatchedFiles): New
+ capability.
+ (eglot--client-capabilities): Update.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Remove an unused variable
+
+ * eglot.el (eglot--expect-carriage-return): Get rid of this.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Now send willsavewaituntil
+
+ * eglot.el (eglot--client-capabilities): Report willSaveWaitUntil.
+ (eglot--server-workspace/applyEdit): Fix docstring.
+ (eglot--signal-textDocument/willSave): Send willSaveWaitUntil
+ (eglot--signal-textDocument/didOpen)
+ (eglot--signal-textDocument/didClose): Don't eglot--obj.
+ (eglot--apply-text-edits): Simplify. Use current buffer.
+ (eglot--apply-workspace-edit): Use new eglot--apply-text-edits.
+
+2018-05-14 João Távora <joaotavora@gmail.com>
+
+ Don't define a menu if nothing to show there for now
+
+ * eglot.el (eglot-menu): Remove it.
+ (eglot--mode-line-format): Don't define a menu.
+
+2018-05-13 João Távora <joaotavora@gmail.com>
+
+ Use rls in travis ci and add actual tests
+
+ Also run a hook when connected
+
+ * eglot-tests.el (eglot--with-dirs-and-files)
+ (eglot--make-file-or-dirs, eglot--call-with-dirs-and-files)
+ (eglot--find-file-noselect): New helpers.
+ (auto-detect-running-server, auto-reconnect): New actual tests.
+
+ * eglot.el (eglot-connect): Run hook when connected
+ (eglot-connect-hook): New variable
+
+ * .travis.yml: Use rust stable and install rls
+
+ * README.md: Update mention of automated tests
+
+2018-05-13 João Távora <joaotavora@gmail.com>
+
+ Fix automatic project creation
+
+ * eglot.el (eglot): Take PROJECT arg. Return process.
+ (eglot--interactive): Returns a project.
+
+2018-05-13 João Távora <joaotavora@gmail.com>
+
+ Work with any old directory, no formal project needed
+
+ Actually, uses a "transient project" which project-current returns if
+ desperate.
+
+ * README.md: Update
+
+ * eglot.el (eglot--current-process)
+ (eglot--current-process-or-lose): Simplify.
+ (eglot): Maybe prompt user for project.
+
+2018-05-13 João Távora <joaotavora@gmail.com>
+
+ Ask server for textdocument/signaturehelp if it supports it
+
+ * eglot.el (eglot--client-capabilities): Capable of signature Help.
+ (eglot--sig-info): Helper for eglot-eldoc-function.
+ (eglot-eldoc-function): Send textDocument/signatureHelp
+
+ * README.md: Update to mention textDocument/signatureHelp
+
+2018-05-13 João Távora <joaotavora@gmail.com>
+
+ Fix copyright header. obviously not since 2003
+
+2018-05-13 Justin Talbott <justin@waymondo.com>
+
+ Merge pull request from andschwa/remap-command
+
+ Document that remapping commands is supported with bind-key
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/674
+
+2018-05-12 João Távora <joaotavora@gmail.com>
+
+ Refactor json-rpc lib jrpc.el from eglot.el
+
+ * eglot.el [too many to mention]: Move lower level functions to
+ jrpc.el. Hook onto jrpc's external interfaces.
+
+ * jrpc.el: New file
+
+2018-05-12 João Távora <joaotavora@gmail.com>
+
+ Reinstate the catch/loop/throw idiom in eglot-request
+
+ This reverts parts of commit fabee14ed5b32c30c6ac5cb1ce88f387522a6a1e.
+
+ Unfortunately, this may cause problems when calling the error
+ callbacks directly as in the process sentinel. In that particular
+ scenario the accept-process-output won't have return, because no
+ output has is being handled. Consequently, if we're unlucky, we have
+ another 30 seconds to way before the flag is tested and the loop
+ exits.
+
+ * eglot.el (eglot-request): Use catch/loop/throw again
+
+2018-05-12 João Távora <joaotavora@gmail.com>
+
+ Fix copyright header. obviously not since 2003
+
+2018-05-12 João Távora <joaotavora@gmail.com>
+
+ New command eglot-help-at-point and a readme update
+
+ * README.md (Commands and keybindings): New section.
+
+ * eglot.el (eglot-eldoc-function): Use eglot--hover-info.
+ Don't care about kind in highlightSymbol
+ (eglot--hover-info): New helper.
+ (eglot-help-at-point): New command.
+
+2018-05-11 João Távora <joaotavora@gmail.com>
+
+ Get rid of catch/loop/throw idiom (suggested by thien-thi nguyen)
+
+ * eglot.el (eglot--process-filter)
+ (eglot--request): Replace catch/loop/throw idiom with let/test/loop/set
+
+2018-05-11 João Távora <joaotavora@gmail.com>
+
+ Rework autoreconnection logic
+
+ Can't be a global var, has to be a per process thing.
+
+ * eglot.el (eglot-autoreconnect): New defcustom
+ (eglot--inhibit-autoreconnect): Renamed from
eglot--inhibit-autoreconnect
+ (eglot--connect): Run autoreconnect timer here.
+ (eglot--inhibit-auto-reconnect): Removed.
+ (eglot--process-sentinel): Don't run timer here. Rework.
+ (eglot, eglot-reconnect): Pass INTERACTIVE to eglot--connect.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Duh, json.el is in emacs, and json-mode.el is useless here
+
+ * eglot.el (Package-Requires): Don't require json-mode
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Prepare to sumbit to gnu elpa
+
+ * eglot.el: Update headers.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ (eglot--xref-make): fix use of cl-destructuring-bind.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Misc little adjustments for readability
+
+ * eglot.el (eglot--log-event, eglot--process-receive)
+ (eglot--xref-make, xref-backend-apropos): Use cl-destructuring-bind.
+ (eglot--server-window/showMessageRequest): Compact.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Support :completionitem/resolve
+
+ This is quite handy with company and company-quickhelp
+
+ * eglot.el (eglot-completion-at-point): Send
+ :completionItem/resolve
+
+ * README.md: Mention completionItem/resolve
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Rename functions. eglot--request is now the synchronous one
+
+ * eglot.el (eglot--connect, eglot-shutdown)
+ (xref-backend-identifier-completion-table)
+ (xref-backend-definitions, xref-backend-references)
+ (xref-backend-apropos, eglot-completion-at-point, eglot-rename):
+ Call eglot--request.
+ (eglot--async-request): Renamed from eglot--request.
+ (eglot--request): Renamed from eglot--sync-request.
+ (eglot--TextDocumentIdentifier)
+ (eglot--VersionedTextDocumentIdentifier)
+ (eglot--TextDocumentPositionParams, eglot--TextDocumentItem):
+ Renamed from the more verbose eglot--current-buffer-* variante.
+ (eglot-rename, eglot-imenu, eglot-eldoc-function)
+ (eglot-completion-at-point, xref-backend-definitions)
+ (xref-backend-identifier-at-point)
+ (eglot--signal-textDocument/didSave)
+ (xref-backend-identifier-completion-table)
+ (eglot--signal-textDocument/didClose)
+ (eglot--signal-textDocument/didOpen)
+ (eglot--signal-textDocument/didChange): Use new function names.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Friendlier m-x eglot
+
+ * eglot.el (eglot-server-programs): Renamed from eglot-executables
+ (eglot--interactive): Redesign
+ (eglot): Docstring.
+ (eglot--connect): Now a synchronous gig.
+ (eglot--interactive): Friendlier.
+ (eglot): Improve docstring, rework a bit.
+ (eglot-reconnect): Rework a bit.
+ (eglot--process-sentinel): Insert "byebye" ruler here.
+
+ * README.md: Update
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Improve eglot-eldoc-function
+
+ Use the :range key if the server provided it. Also simplify code with
+ a new eglot--with-lsp-range macro.
+
+ * eglot.el (eglot--format-markup): Tweak comment.
+ (eglot--with-lsp-range): New helper macro.
+ (eglot--server-textDocument/publishDiagnostics)
+ (eglot--apply-text-edits): Use it.
+ (eglot-eldoc-function): Use range if server provides it.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Reduce log chatter
+
+ * eglot.el (eglot--process-sentinel, eglot--request): Use
+ eglot--log-event.
+ (eglot--log-event): Print "message" if type unknown.
+ (eglot--debug, eglot--log): Remove.
+ (eglot--server-window/logMessage, eglot--server-telemetry/event):
+ Make noops.
+ (eglot--call-deferred): Also reduce chatter here.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Only call deferred actions after a full message has been received
+
+ Otherwise it can be quite wasteful.
+
+ * eglot.el (eglot--process-filter): Don't eglot--call-deferred here.
+ (eglot--process-receive): Do it here.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Resist server failure during synchronous requests
+
+ Calling the error handler unprotected could lead to the rest of the
+ sentinel not running at all. This defeated the auto-reconnection in
+ Rust, for example.
+
+ * eglot.el (eglot--process-sentinel): Rework.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Simplify mode-line updating logic
+
+ * eglot.el (eglot--define-process-var): Simplify.
+ (eglot--short-name, eglot--spinner, eglot--status): Don't
+ auto-update mode-line.
+ (eglot--process-receive): Update it here.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ More rls-specifics: update flymake diags when indexing done
+
+ RLS could/should report diagnostics for every opened file, even if
+ there aren't any problems. Because it doesn't, loop for every buffer
+ managed by the process and call eglot--current-flymake-report-fn
+
+ * eglot.el
+ (eglot--server-window/progress): Call eglot--current-flymake-report-fn
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Adjust flymake integration
+
+ When opening a new file (signalling textDocument/didOpen) it makes
+ sense to call the flymake callback (if it exists) with no diagnostics,
+ just to get rid of that "Wait", since we don't know if later in this
+ callback cycle the server will ever report new diagnostics.
+
+ * eglot.el (eglot--managed-mode): Don't call flymake-mode or eldoc-mode
+ (eglot--managed-mode-hook): Add them here.
+ (eglot--maybe-activate-editing-mode): Call flymake callback.
+ (eglot--server-textDocument/publishDiagnostics): Set unreported
+ diagnostics to nil if invoking callback.
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ Shorten summary line to appease package-lint.el
+
+2018-05-10 João Távora <joaotavora@gmail.com>
+
+ More correctly setup rust-mode-related autoloads
+
+ By autoloading the add-hook form and the eglot--setup-rls-idiosyncrasies
+ definition, a user can start rust-mode without loading eglot.el along
+ with it.
+
+ * eglot.el (rust-mode-hook)
+ (eglot--setup-rls-idiosyncrasies): Wrap in autoloaded progn.
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Add minimal headers, commentary and autoloads
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Fancier rls spinner
+
+ * eglot.el (eglot--mode-line-format): Use (nth 3) of
+ eglot--spinner.
+ (eglot--server-window/progress): Save detail message in spinner.
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ New "deferred requests" that wait until server is ready
+
+ Calling textDocument/hover or textDocument/documentHighlight before
+ the server has had a chance to process a textDocument/didChange is
+ normally useless. The matter is worse for servers like RLS which only
+ become ready much later and send a special notif for it (see
+ https://github.com/rust-lang-nursery/rls/issues/725).
+
+ So, keeping the same coding style add a DEFERRED arg to eglot--request
+ that makes it maybe not run the function immediately. Add a bunch of
+ logic for probing readiness of servers.
+
+ * README.md: Update
+
+ * eglot.el (eglot--deferred-actions): New process-local var.
+ (eglot--process-filter): Call deferred actions.
+ (eglot--request): Rewrite.
+ (eglot--sync-request): Rewrite.
+ (eglot--call-deferred, eglot--ready-predicates)
+ (eglot--server-ready-p): New helpers.
+ (eglot--signal-textDocument/didChange): Set spinner and call
+ deferred actions.
+ (eglot-completion-at-point): Pass DEFERRED to eglot-sync-request.
+ (eglot-eldoc-function): Pass DEFERRED to eglot-request
+ (eglot--rls-probably-ready-for-p): New helper.
+ (rust-mode-hook): Add eglot--setup-rls-idiosyncrasies
+ (eglot--setup-rls-idiosyncrasies): New helper.
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Call eglot-eldoc-function after completion finishes
+
+ * eglot.el (eglot-completion-at-point): Call
+ eglot-eldoc-function after completion finishes.
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Simplify `eglot-shutdown`
+
+ * eglot.el (eglot, eglot-reconnect)
+ (eglot--managed-mode): Call new eglot-shutdown.
+ (eglot-shutdown): Simplify.
+ (eglot--process-sentinel): Also call error functions.
+ (eglot--process-filter): Reindent.
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Get rid of eglot-mode
+
+ * eglot.el (eglot--managed-mode): Don't call eglot-mode. When
+ shutting down, offer to kill server.
+ (mode-line-misc-info): Update to use eglot--managed-mode
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Simplify eglot--signal-textdocument/didchange
+
+ * eglot.el (eglot--recent-before-changes)
+ (eglot--recent-after-changes): Delete.
+ (eglot--recent-changes): New var.
+ (eglot--outstanding-edits-p, eglot--before-change)
+ (eglot--after-change): Rewrite.
+ (eglot--signal-textDocument/didChange): Rewrite.
+ (eglot--signal-textDocument/didOpen): Initialize
+ buffer-local eglot--recent-changes here.
+
+2018-05-09 João Távora <joaotavora@gmail.com>
+
+ Fix odd bugs and tweak stuff
+
+ * eglot.el (eglot--log-event): Insert before markers.
+ (eglot--process-receive): Shave lines.
+ (xref-backend-references): Use cl-return-from.
+ (eglot--log-event): Simplify
+ (eglot-completion-at-point): Saner annotation
+
+2018-05-08 João Távora <joaotavora@gmail.com>
+
+ Support workspace/applyedit
+
+ * eglot.el (eglot--reply): Don't send result or error if not
+ provided.
+ (eglot--server-workspace/applyEdit): New server method.
+ (eglot--apply-text-edits): Rework.
+ (eglot--apply-workspace-edit): New helper.
+ (eglot-rename): Simplify.
+
+2018-05-08 João Távora <joaotavora@gmail.com>
+
+ Support textdocument/rename
+
+ * README.md: Mention rename support.
+
+ * eglot.el (eglot--uri-to-path): Handle uri hidden in keywords.
+ (eglot--apply-text-edits): New helper.
+ (eglot-rename): New interactive command.
+ (eglot--client-capabilities): Add rename capability.
+
+2018-05-08 João Távora <joaotavora@gmail.com>
+
+ Reasonable textdocument/documenthighlight support
+
+ * README.md: Update.
+
+ * eglot.el (eglot--current-buffer-TextDocumentPositionParams): New
+ helper.
+ (xref-backend-identifier-completion-table): Refactor a bit.
+ (xref-backend-identifier-at-point): Use when-let and
+ eglot--current-buffer-TextDocumentPositionParams
+ (xref-backend-definitions, xref-backend-references): Refactor a
+ bit.
+ (eglot-completion-at-point): Use
+ eglot--current-buffer-TextDocumentPositionParams
+ (eglot-eldoc-function): Rewrite to handle
+ textDocument/documentHighlight.
+ (eglot--highlights): New variable.
+ (eglot--client-capabilities): Update with support for documentHighlight.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Fix odd bugs
+
+ * eglot.el (eglot--process-receive, eglot--request): Set status to
+ actual error message.
+ (eglot--managed-mode): Manage imenu-create-index-function
+ correctly.
+ (eglot--mode-line-format): Print error status.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ When killing server, always wait 3 seconds
+
+ * eglot.el (eglot--request): Accept TIMEOUT param.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Try to fix some textdocument/completion bugs
+
+ * eglot.el (eglot-completion-at-point): Rework slightly.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Half-decent imenu support via textdocument/documentsymbol
+
+ * README.md: Update capability
+
+ * eglot.el (eglot--lsp-position-to-point): New function.
+ (eglot--managed-mode): Handle imenu-create-index-function.
+ (eglot--server-textDocument/publishDiagnostics): Use
+ eglot--lsp-position-to-point.
+ (eglot-imenu): New function.
+ (eglot--client-capabilities): Capable of documentSymbol.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Only request stuff that server says it's capable of
+
+ * eglot.el (eglot--server-capable): New helper.
+ (eglot-xref-backend)
+ (xref-backend-identifier-completion-table)
+ (xref-backend-references, xref-backend-apropos)
+ (eglot-completion-at-point, eglot-eldoc-function): Use it.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Simplify mode-line code with a helper.
+
+ * eglot.el (eglot--mdoe-line-props): New helper.
+ (eglot--mode-line-format): Use it.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Get rid of eglot--buffer-open-count
+
+ Hasn't really proved useful yet.
+
+ * eglot.el (eglot--buffer-open-count): Remove.
+ (eglot--signal-textDocument/didOpen)
+ (eglot--signal-textDocument/didClose): Simplify.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Get rid of eglot--special-buffer-process
+
+ Hasn't really proved useful yet.
+
+ * eglot.el (eglot--special-buffer-process): Delete.
+ (eglot--current-process): Simplify.
+ (eglot--events-buffer): Simplify.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ * eglot.el: reformat to shave off some lines.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Fix bug in hover support
+
+ * eldoc.el (eglot-eldoc-function): Use eglot--format-markup.
+ (subr-x): Require it.
+ (eglot--format-markup): Pacify byte-compiler.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Clean up client capabilities
+
+ * eglot.el (eglot--client-capabilities): Clean up client
+ capabilities.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Half-baked textdocument/hover support
+
+ * eglot.el (eglot--format-markup): New helper.
+ (eglot--managed-mode): Handle eldoc-documentation-function.
+ (eglot-eldoc-function): New function.
+
+ * README.md: update
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Tweak the async request engine.
+
+ * eglot.el (eglot--request): Return the continuation id.
+ (eglot--lambda): Move up in the file.
+ (eglot--sync-request): Use a catch-tag.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Explain why didopen on after-revert-hook is a bad idea
+
+ The reason is that the global find-file-hook is called again, and that
+ already does the didOpen. Too many didOpen's would be bad.
+
+ * eglot.el (eglot--managed-mode): Remove commented lines.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Half-decent completion support
+
+ * README.md: Update.
+
+ * eglot.el (eglot--kind-names): New variable.
+ (eglot--managed-mode): Handle completion-at-point-functions.
+ (eglot-completion-at-point): New function.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Solve another textdocument/didchange bug
+
+ * eglot.el (eglot--signal-textDocument/didChange): Rework a bit.
+ (eglot--after-change): Store the actual after-text in the
+ eglot--recent-after-changes.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Support javascript's javascript-typescript-langserver
+
+ * README.md: Improve a bit
+
+ * eglot.el (eglot--make-process): Take MANAGED-MAJOR-MODE arg
+ (eglot-executables): Add basic javascript support.
+ (eglot--connect): Pass mode to eglot--make-process
+ (eglot--interactive): Check that guessed command is a listp.
+ (eglot): Minor improvement to message.
+ (eglot--current-buffer-TextDocumentItem): Guess language from mode
+ symbol.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Increase request timeout length to 10 seconds
+
+ * eglot.el (eglot-request-timeout): New var.
+ (eglot--request): Use it.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Workaround two suspected emacs bugs
+
+ * eglot.el (eglot--process-filter): Use a proper unique tag. Use
+ unwind-protect.
+ (eglot--sync-request): Rework.
+ (eglot--server-client/registerCapability): Use a proper done tag.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Etoomanylambdas
+
+ * eglot.el (eglot--sync-request): Remove a lambda.
+
+2018-05-07 João Távora <joaotavora@gmail.com>
+
+ Fix the odd bug here and there
+
+ * eglot.el (eglot--connect): Activate editing mode where
+ applicable here.
+ (eglot, eglot-reconnect): Not here or here.
+ (eglot--process-sentinel): Catch auto-reconnect errors.
+ (eglot--notify): Dont send 'id=null', it messes up js's lsp
+ (eglot--reply): Do send id here.
+ (eglot--log-event): Simplify protocol. Complexify implementation.
+ (eglot--process-receive, eglot--process-send): Simplify
+ eglot--log-event call.
+ (eglot--request, eglot--notify, eglot--reply): Simplify
+ eglot--process-send call
+ (eglot--server-client/registerCapability): Fix bug when replying
+ with wrong id.
+ (eglot--xref-reset-known-symbols): Take DUMMY arg.
+
+2018-05-06 João Távora <joaotavora@gmail.com>
+
+ Half-decent xref support
+
+ * eglot.el
+ (eglot--xref-known-symbols): New hacky var.
+ (eglot--xref-reset-known-symbols): New helper.
+ (xref-find-definitions, xref-find-references): Advise after to
+ call the new helper.
+ (xref-backend-identifier-completion-table): Rework.
+ (eglot--xref-make): New helper.
+ (xref-backend-definitions): Use it.
+ (xref-backend-references, xref-backend-apropos): Implement.
+ (eglot--obj): Add a debug spec.
+ (eglot--lambda): Add debug spec.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Very basic xref support
+
+ * eglot.el (eglot--pos-to-lisp-position): Move up.
+ (eglot--mapply, eglot--lambda): New helpers.
+ (eglot--uri-to-path): New helper.
+ (eglot--managed-mode): Manage xref-backend-functions.
+ (eglot-xref-backend): New function.
+ (xref-backend-identifier-completion-table)
+ (xref-backend-identifier-at-point)
+ (xref-backend-definitions): New methods.
+ (xref-backend-references)
+ (xref-backend-apropos): New methods, still unimplemented.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ New helper eglot--sync-request
+
+ This should help with xref definitions
+
+ * eglot.el (eglot--request): Rework a bit. Continuation is always
+ cleared on timeout, regardless of user-supplied fn.
+ (eglot--sync-request): New function.
+ (eglot--process-receive): watch out for vector results.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Cleanup mistake with textdocumentitem and textdocumentidentifier
+
+ Also introduce eglot--path-to-uri
+
+ * eglot.el (eglot--path-to-uri): Rename from eglot--uri and rework.
+ (eglot--connect): Use it.
+ (eglot--current-buffer-TextDocumentIdentifier): New function.
+ (eglot--current-buffer-VersionedTextDocumentIdentifier)
+ (eglot--signal-textDocument/didChange)
+ (eglot--signal-textDocument/didClose)
+ (eglot--signal-textDocument/willSave)
+ (eglot--signal-textDocument/didSave): Use it.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Handle dynamic registration in general (but nothing specific yet)
+
+ * eglot.el (eglot--server-client/registerCapability): Implement.
+ (eglot--register-workspace/didChangeWatchedFiles): Dummy registrator.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Honour textdocumentsync
+
+ * eglot.el (eglot--signal-textDocument/didChange): Honour
textDocumentSync
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Be quite explicit about our lack of capabilities right now
+
+ * eglot.el (eglot--client-capabilities): Spread out.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Use rooturi instead of rootpath
+
+ * eglot.el (eglot--connect)
+ (eglot--current-buffer-VersionedTextDocumentIdentifier): Use
+ eglot--uri.
+ (eglot--uri): New function.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Make reported capabilities into its own function
+
+ * eglot.el (eglot--client-capabilities): New function.
+ (eglot--connect): Use it.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Include source info in diagnostics
+
+ * eglot.el (eglot--server-textDocument/publishDiagnostics):
+ Include source info.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Reply to client/registercapability (don't handle it yet)
+
+ * eglot.el (eglot--server-client/registerCapability): New
+ function.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Handle requests from server correctly
+
+ * eglot.el (eglot--process-receive): Redesign.
+ (eglot--process-send): Take REPLY arg. Discover if message is error.
+ (eglot--reply): new function
+ (eglot--log-event): Tweak docstring.
+ (eglot--process-receive): Reply with -32601 if unimplemented.
+ (eglot--server-window/showMessageRequest)
+ (eglot--server-client/registerCapability): Use eglot--reply
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Don't auto-reconnect if last attempt lasted less than 3 seconds
+
+ * eglot.el (eglot--inhibit-auto-reconnect): New var.
+ (eglot--process-sentinel): Use it.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Workaround rls's regusal to treat nil as empty json object
+
+ * eglot.el (eglot--connect): Use dummy params.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Eglot-editing-mode becomes eglot--managed-mode
+
+ * eglot.el (eglot--sentinel): Use eglot--managed-mode.
+ (eglot--managed-mode-map): Renamed from eglot-editing-mode-map.
+ (eglot--managed-mode): Renamed from eglot-editing-mode.
+ (eglot-mode): Simplify.
+ (eglot--buffer-managed-p): New function.
+ (eglot--maybe-activate-editing-mode): Simplify.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Make m-x eglot's interactive spec a separate function
+
+ * eglot.el (eglot--interactive): New function.
+ (eglot): Rework a little.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ When user declines to reconnect, first quit existing server
+
+ * eglot.el (eglot): Rework reconnection logic.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ Connect to lsp server via tcp
+
+ * eglot.el (eglot--make-process): Rename from
+ eglot-make-local-process.
+ (eglot): Fix docstring and rework.
+ (eglot--bootstrap-fn): Remove
+ (eglot--contact): New process-local var.
+ (eglot--connect): Take CONTACT arg.
+ (eglot--reconnect): Rework.
+
+2018-05-04 João Távora <joaotavora@gmail.com>
+
+ More correctly keep track of didopen/didclose per buffer
+
+ * eglot.el (eglot--buffer-open-count): Now a process-local var.
+ (eglot--signal-textDocument/didOpen,
eglot--signal-textDocument/didClose):
+ Use it.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Fix mode-line mouse-clicks from outside selected window
+
+ * eglot.el (eglot--mode-line-call): New helper.
+ (eglot--mode-line-format): Use it.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot--process-receive): skip null method notifs.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Trim some edges and add a bunch of boring rpc methods
+
+ * eglot.el (eglot--connect): Don't call eglot--protocol-initialize.
+ (eglot--process-filter): Break long line.
+ (eglot--process-receive): Also pass id to handler if a server request.
+ (eglot--log): New helper.
+ (eglot-editing-mode): Manage before-revert-hook,
+ after-revert-hook, before-save-hook, after-save-hook.
+ (eglot--protocol-initialize): Removed.
+ (eglot--server-window/showMessage): Simplify.
+ (eglot--server-window/showMessageRequest)
+ (eglot--server-window/logMessage, eglot--server-telemetry/event):
+ New handlers.
+ (eglot--signal-textDocument/willSave)
+ (eglot--signal-textDocument/didSave): New notifications.
+ (eglot--signal-textDocument/didOpen)
+ (eglot--signal-textDocument/didClose): Check
+ eglot--buffer-open-count.
+ (eglot--buffer-open-count): New var.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Fix a couple of rust-related edge cases
+
+ * eglot.el (eglot--server-window/progress): Allow other keys.
+ (eglot--server-textDocument/publishDiagnostics): Allow :group in
diagnostic
+ spec.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Fix textdocument/didchange
+
+ * eglot.el (eglot-editing-mode): Manage before-change-functions.
+ (eglot--recent-changes): Deleted.
+ (eglot--recent-before-changes): New var.
+ (eglot--recent-after-changes): Renamed from eglot--recent-changes.
+ (eglot--pos-to-lsp-position, eglot--before-change): New helpers.
+ (eglot--after-change): Rework.
+ (eglot--signal-textDocument/didChange): Rework.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Rename rpc methods for clarity
+
+ * eglot.el (eglot--process-receive): Search for RPC server methods
+ under `eglot--server-'
+ (eglot-editing-mode, eglot--maybe-activate-editing-mode): Use new
+ signal names.
+ (eglot--server-window/showMessage): Rename from
+ eglot--window/showMessage.
+ (eglot--server-textDocument/publishDiagnostics): Renamed from
+ eglot--textDocument/publishDiagnostics.
+ (eglot--current-buffer-versioned-identifier): Remove.
+ (eglot--current-buffer-VersionedTextDocumentIdentifier): Use
+ eglot--versioned-identifier.
+ (eglot--signal-textDocument/didChange): Renamed from
+ eglot--maybe-signal-didChange.
+ (eglot--signal-textDocument/didOpen): Renamed from
+ eglot--signalDidOpen.
+ (eglot--signal-textDocument/didClose): Rename from
+ eglot--signalDidClose.
+ (eglot-flymake-backend): Call eglot--signal-textDocument/didChange.
+ (eglot--server-window/progress): Rename from
+ eglot--window/progress.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Reorganize file
+
+ * eglot.el (eglot-mode-line): Move up.
+ (eglot-make-local-process, eglot--all-major-modes, eglot--obj)
+ (eglot--project-short-name, eglot--all-major-modes)
+ (eglot-reconnect, eglot--maybe-activate-editing-mode)
+ (eglot--protocol-initialize)
+ (eglot--window/showMessage, eglot--current-flymake-report-fn)
+ (eglot--unreported-diagnostics)
+ (eglot--textDocument/publishDiagnostics, eglot--signalDidOpen)
+ (eglot--signalDidClose): Move around.
+ (eglot-quit-server): Renamed to eglot-shutdown.
+ (eglot-shutdown): New function
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Delete two useless forward declarations
+
+ * eglot.el (eglot-mode, eglot-editing-mode-map): Remove forward decls.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Fix flymake diagnostic positions
+
+ It's better not to use flymake-diag-region here.
+
+ * eglot.el (eglot--textDocument/publishDiagnostics):
+ Calculate position by hand.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Must re-announce didopen after reconnect
+
+ * eglot.el (eglot-reconnect): Also call
+ eglot--maybe-activate-editing-mode for all buffers.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Fix another flymake sync bug
+
+ * eglot.el (eglot-flymake-backend): Only report unreported sometimes.
+ (eglot--maybe-activate-editing-mode): Start flymake explicitly
+ when didOpen.
+ (eglot--textDocument/publishDiagnostics): No need to set
+ unreported-diagnostics to nil.
+ (flymake): Require it.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Make m-x eglot the main entry point
+
+ * eglot.el (eglot-new-process): Removed
+ (eglot): Rename from eglot-new-process.
+ (eglot-editing-mode): Mention M-x eglot
+
+ * README.md: Use M-x eglot
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Fix assorted bugs
+
+ * eglot.el (eglot--special-buffer-process): Must be buffer-local.
+ (eglot--define-process-var): Fix disaster waiting to happen.
+ (eglot--process-receive): Explicitly pass PROC to
+ eglot--pending-continuations.
+ (eglot--textDocument/publishDiagnostics): Clear unreported diagnostics
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Watch for files opened under umbrella of existing process
+
+ * eglot.el (eglot--connect): Call success-fn with a proc.
+ (eglot-reconnect): Adapt to new eglot--connect.
+ (eglot-new-process): Call eglot--maybe-activate-editing-mode
+ (eglot--maybe-activate-editing-mode): New function.
+ (find-file-hook): Add it here.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Multiple servers per project are possible
+
+ A server manages a specific major-mode within a project.
+
+ * eglot.el (eglot--processes-by-project): Add docstring.
+ (eglot--current-process): Search new eglot--processes-by-project
+ format.
+ (eglot--major-mode): New variable.
+ (eglot--moribund, eglot--project): Update docstring.
+ (eglot--project-short-name, eglot--all-major-modes): New helpers.
+ (eglot--connect): Rework.
+ (eglot-new-process): Rework severely.
+ (eglot--command-history): New variable.
+ (eglot--process-sentinel): Use new
+ eglot--processes-by-project. Update mode line.
+ (eglot-editing-mode): Don't start processes, just suggest it.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Appease checkdoc.el
+
+ * eglot.el (eglot--process-send, eglot--next-request-id)
+ (eglot--current-buffer-VersionedTextDocumentIdentifier)
+ (eglot--current-buffer-TextDocumentItem)
+ (eglot--after-change, eglot--signalDidOpen)
+ (eglot--signalDidClose, eglot--maybe-signal-didChange):
+ Add docstring.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Simplify flymake integration
+
+ And get rid of the ridiculous environment thingy
+
+ * eglot.el (eglot--process-sentinel): Continuations are triplets.
+ (eglot--environment-vars, eglot--environment): Remove.
+ (eglot--process-receive): Simplify.
+ (eglot--unreported-diagnostics): New variable.
+ (eglot--textDocument/publishDiagnostics): Simplify.
+ (eglot-flymake-backend): Report unreported diagnostics.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Signal textdocument/didclose
+
+ * eglot.el (eglot-editing-mode): Signal didClose.
+ (eglot--signalDidClose): New.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Rework connection restarting again
+
+ Quitting a process removes it from the project.
+
+ * eglot.el (eglot-editing-mode,eglot-mode): Forward declare.
+ (eglot--project): New process-local var.
+ (eglot--connect): Takes a project.
+ (eglot-new-process): Rework.
+ (eglot--sentinel): Remove proc from eglot--processes-by-project.
+
+2018-05-03 João Távora <joaotavora@gmail.com>
+
+ Redesign and simplify parser
+
+ Fix horrible bugs. This is the correct way.
+
+ * eglot.el (eglot--process-filter): Redesign.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Auto-reconnect on unexpected connection loss
+
+ * eglot.el (eglot-reconnect): Only quit if indeed not quit
+ already.
+ (eglot-new-process): Burn the command in the bootstrap fn.
+ (eglot--process-sentinel): Automatically reconnect if closed
+ unexpectedly.
+ (eglot--warn): Also message to *Messages*
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Ready to start fixing flymake integration
+
+ * eglot.el (eglot-editing-mode): Turn on flymake-mode.
+ (eglot-flymake-backend): Always start by reporting no diagnostics.
+ (eglot--textDocument/publishDiagnostics): No annoying message.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Slightly more user friendly start
+
+ * eglot.el (eglot-new-process): signal DidOpen for every file in
project.
+ (eglot-editing-mode): Offer to start process.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Don't clutter ui with warnings
+
+ * eglot.el (warnings): require it.
+ (eglot--warn): set warning-minimum-level
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Rework commands for connecting and reconnecting
+
+ * eglot.el (eglot--current-process-or-lose): Add doc.
+ (eglot--command): Remove.
+ (eglot--bootstrap-fn): New process-local variable.
+ (eglot--connect): Redesign.
+ (eglot-make-local-process): New function.
+ (eglot-reconnect): New interactive command.
+ (eglot-new-process): Redesign.
+ (eglot--process-sentinel): Add doc.
+ (eglot--protocol-initialize): Rework.
+ (eglot--mode-line-format): Use eglot-reconnect.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Less obstrusive flymake stuff for now
+
+ * eglot.el (eglot--after-change, eglot-flymake-backend): Fix.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Events buffer uses eglot-mode, source buffers use eglot-editing-mode
+
+ * eglot.el (eglot--special-buffer-process): New var.
+ (eglot--current-process): Consider eglot--special-buffer-process.
+ (eglot-events-buffer): Use eglot-mode
+ (eglot-editing-mode): New minor mode.
+ (eglot-mode): Turns on eglot-editing-mode maybe.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Change status to error everytime an error is found
+
+ * eglot.el (eglot--process-receive): Also set error status.
+ (eglot--request): Fix a compilation warning.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Correctly report what we currently are capable of
+
+ Which is almost nothing.
+
+ * eglot.el (eglot--protocol-initialize): Clean up.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Add eglot-clear-status interactive command
+
+ * eglot.el (eglot-clear-status): New
+ (eglot-forget-pending-continuations): Fix bug.
+ (eglot--mode-line-format): Add link to eglot-clear-status.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Auto update mode-line after setting some process properties
+
+ * eglot.el (eglot--define-process-var): Rework.
+ (eglot--short-name, eglot--spinner, eglot--status): Update mode-line
+ after setting it.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Start experimenting with python
+
+ * eglot.el (eglot-executables): Add pyls.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Don't switch to possibly dead buffer in sentinel
+
+ * eglot.el (eglot--process-sentinel): Don't with-current-buffer.
+
+2018-05-02 João Távora <joaotavora@gmail.com>
+
+ Report server status in the mode-line
+
+ * eglot.el (eglot--status): New var.
+ (eglot--log-event): Try to be more useful for other stuff.
+ (eglot--protocol-initialize): Set status to nil on
+ successful connect.
+ (eglot--window/showMessage): Set status to error if needed.
+ (eglot--mode-line-format): Display status if serious.
+
+2018-05-01 João Távora <joaotavora@gmail.com>
+
+ Implement spinners and rls's window/progress
+
+ * eglot.el (eglot--window/progress): New.
+ (eglot--mode-line-format): Rework.
+ (eglot--snpinner): New var.
+ (compile): require it.
+
+2018-05-01 João Távora <joaotavora@gmail.com>
+
+ Fix parser to accept multiple messages in one chunk
+
+ * eglot.el (eglot--process-filter): Redesign slightly.
+ (eglot--message-mark): Remove. don't need this.
+
+2018-05-01 João Távora <joaotavora@gmail.com>
+
+ Lay groundwork for uniform treatment of network connections
+
+ * eglot.el (eglot--connect): New helper.
+ (eglot-new-process): Use it.
+ (pcase): Require it.
+
+2018-05-01 João Távora <joaotavora@gmail.com>
+
+ Doc fixes
+
+ * eglot.el (eglot-mode-map): Move up before minor mode.
+
+2018-05-01 João Távora <joaotavora@gmail.com>
+
+ * eglot.el (eglot-mode-map): move up before minor mode.
+
+2018-04-30 João Távora <joaotavora@gmail.com>
+
+ Start working on this again
+
+ * eglot.el (url-util): Require it.
+ (eglot--process-sentinel): pending continuations now are quads (added
env).
+ (eglot--process-filter): Unwind message markers correctly if handling
fails.
+ (eglot--obj): Simple macro.
+ (eglot--log-event): Add some info to logged event.
+ (eglot--environment-vars, eglot--environment): Helper vars.
+ (eglot--process-receive): Improve.
+ (eglot--process-send): Niver log.
+ (eglot--request): Use eglot--obj. Add environment.
+ (eglot--notify): New helper.
+ (eglot--protocol-initialize): RLS must like file://
+ (eglot--current-flymake-report-fn): New var.
+ (eglot--textDocument/publishDiagnostics): Use flymake from Emacs 26.
+ (eglot-mode): Proper minor mode.
+ (eglot--recent-changes, eglot--versioned-identifier): New stuff.
+ (eglot--current-buffer-versioned-identifier)
+ (eglot--current-buffer-VersionedTextDocumentIdentifier)
+ (eglot--current-buffer-TextDocumentItem, eglot--after-change)
+ (eglot--signalDidOpen, eglot--maybe-signal-didChange): New stuff.
+ (eglot-flymake-backend): More or less a flymake backend function.
+
+2018-04-30 João Távora <joaotavora@gmail.com>
+
+ Fix mode line
+
+ * eglot.el (mode-line-misc-info): conditionalize to eglot-mode
+
+2018-04-30 João Távora <joaotavora@gmail.com>
+
+ Fix some byte-compilation warnings
+
+2018-04-30 Andrew Schwartzmeyer <andrew@schwartzmeyer.com> (tiny change)
+
+ Document that remapping commands is supported with bind-key
+
+2018-04-26 Justin Talbott <justin@waymondo.com>
+
+ Merge pull request from akhramov/fix/ensure-system-package-noconfirm
+
+ [Fix https://github.com/jwiegley/use-package/issues/661]
ensure-system-package: honor system-packages customizations
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/673
+
+2018-04-25 Artyom Khramov <futu.fata@gmail.com> (tiny change)
+
+ [] ensure-system-package: honor system-packages customizations
+
+ ensure-system-package doesn't honor system-packages
+ customizations (https://github.com/jwiegley/use-package/issues/661),
because system-packages didn't provide an API
+ to retrieve shell command to be executed.
+
+ This change makes use of the new system-packages'
+ `system-package-get-command` function and therefore fixes the issue.
+ GitHub-reference: fix https://github.com/jwiegley/use-package/issues/661
+
+2018-03-24 Russell Black <black.russell@gmail.com>
+
+ Update use-package-chords.el
+
+2018-03-23 Russell Black <black.russell@gmail.com>
+
+ Update use-package-chords.el
+
+ new style of auto-deferral for chords
+
+2018-03-16 Justin Talbott <justin@waymondo.com>
+
+ Merge pull request from waymondo/master
+
+ :ensure-system-package - allow cdr of cons to be a package name symbol
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/654
+
+2018-03-16 Justin Talbott <justin@waymondo.com>
+
+ :ensure-system-package allow cdr of cons to be a package name symbol
+
+ closes https://github.com/jwiegley/use-package/issues/652
+
+2018-03-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from valignatev/master
+
+ Encourage installation via https instead of http
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/651
+
+2018-03-14 Valentin Ignatev <valentjedi@gmail.com>
+
+ Encourage installation via https instead of http
+
+2018-03-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from DamienCassou/fix-report-again
+
+ Fix report again after revert
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/647
+
+2018-03-12 Damien Cassou <damien.cassou@gmail.com>
+
+ Fix compile-time warnings due to the statistics-reporting code
+
+ The code worked because the file is using dynamic binding.
+
+2018-03-12 Damien Cassou <damien.cassou@gmail.com>
+
+ Add missing require
+
+ This is used for `hash-table-keys`.
+
+ Fix https://github.com/jwiegley/use-package/issues/644.
+
+2018-03-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jwiegley/revert-645-fix-report
+
+ Revert "Fix report"
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/646
+
+2018-03-12 John Wiegley <johnw@newartisans.com>
+
+ Revert "Fix report"
+
+2018-03-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from DamienCassou/fix-report
+
+ Fix report
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/645
+
+2018-03-11 Damien Cassou <damien.cassou@gmail.com>
+
+ Fix compile-time warnings due to the statistics-reporting code
+
+ The code worked because the file is using dynamic binding.
+
+2018-03-11 Damien Cassou <damien.cassou@gmail.com>
+
+ Add missing require
+
+ This is used for `hash-table-keys`.
+
+ Fix https://github.com/jwiegley/use-package/issues/644.
+
+2018-03-08 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from DamienCassou/tabulated-list
+
+ Use a tabulated-list to display package configuration statistics
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/642
+
+2018-03-08 Damien Cassou <damien.cassou@gmail.com>
+
+ Use a tabulated-list to display package configuration statistics
+
+ Fix https://github.com/jwiegley/use-package/issues/641
+
+2018-03-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from matthewbauer/patch-1
+
+ Support ":package" in use-package
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/633
+
+2018-02-25 Matthew Justin Bauer <mjbauer95@gmail.com>
+
+ Support ":package" in use-package
+
+ bind-key supports the keyword ":package" but use-package does not know
that. Adding this should be helpful. In the future, maybe we could
automatically fill in with the use-package package, but that could be a
breaking change.
+
+2018-02-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/normalize-fix
+
+ Fix usage of plist argument in use-package-normalize-plist
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/625
+
+2018-02-06 Justin Burkett <justin@burkett.cc>
+
+ Fix usage of plist argument in use-package-normalize-plist
+
+ Previously the argument was never used.
+
+2018-02-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/ignore-keywords
+
+ Add use-package-ignore-unknown-keywords option
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/624
+
+2018-02-06 Justin Burkett <justin@burkett.cc>
+
+ Add use-package-ignore-unknown-keywords option
+
+ This option allows use-package to skip over keywords it doesn't
recognize.
+
+2018-01-27 John Wiegley <johnw@newartisans.com>
+
+ Revert "Merge pull request from jabranham/lexical-bindings"
+
+ This reverts commit d21787f1d64a740c0e00899835d9200a0e4690df, reversing
+ changes made to fd8a3510fd1a555b925f57b2870917e3c4ea0206.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/617
+
+2018-01-27 John Wiegley <johnw@newartisans.com>
+
+ Revert "Move variable bindings to the bottom of each file"
+
+ This reverts commit c29193bf0724633adf7183dad2d0b6faf7d029ab.
+
+2018-01-27 John Wiegley <johnw@newartisans.com>
+
+ Move variable bindings to the bottom of each file
+
+2018-01-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jabranham/lexical-bindings
+
+ [WIP] Lexical bindings
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/617
+
+2018-01-27 Alex Branham <alex.branham@gmail.com>
+
+ Don't remove sharp quotes
+
+ Test still requires cl
+
+ Fix byte compiler warnings
+
+ Use lexical bindings and remove cl package
+
+2018-01-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jabranham/system-packages-update
+
+ System packages update
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/616
+
+2018-01-26 Alex Branham <alex.branham@gmail.com>
+
+ lexical binding
+
+ Prefer non-obsolete var names
+
+2018-01-08 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from jabranham/fix-byte-compiler
+
+ Prefer org-table-align to orgtbl-ctrl-c-ctrl-c
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/611
+
+2018-01-08 Alex Branham <alex.branham@gmail.com>
+
+ Prefer org-table-align to orgtbl-ctrl-c-ctrl-c
+
+ org-table-align is an autoloaded function so the byte compiler can
+ find it. orgtbl-ctrl-c-ctrl-c isn't so we get a warning about
+ undefined functions.
+
+2017-12-26 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/elisp-cap
+
+ Handle automatic macro expansion by elisp-completion-at-point
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/599
+
+2017-12-26 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from nickmccurdy/render-report-table
+
+ Render the use-package-report table using Org
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/592
+
+2017-12-20 wouter bolsterlee <wouter@bolsterl.ee> (tiny change)
+
+ Fix sanity check for correct :custom-face format
+
+ Instead of testing the length of each form passed to :custom-face,
+ the sanity check would test the number of forms passed to :custom-face,
+ causing it to fail when more than 2 face customisations are used.
+
+ Fixes https://github.com/jwiegley/use-package/issues/600.
+
+2017-12-19 Justin Burkett <justin@burkett.cc>
+
+ Handle automatic macro expansion by elisp-completion-at-point
+
+ The function `elisp--local-variables' inserts an unbound variable,
+ `elisp--witness--lisp', into macro forms to determine the locally bound
+ variables for `elisp-completion-at-point'. It ends up throwing a lot of
errors
+ since it can occupy the position of a keyword (or look like a second
argument to
+ a keyword that takes one). Deleting it when it's at the top level
should be
+ harmless since there should be no locally bound variables to discover
here
+ anyway.
+
+2017-12-17 John Wiegley <johnw@newartisans.com>
+
+ Guard a call to display-warning with ignore
+
+ Fixes https://github.com/jwiegley/use-package/issues/589
+
+2017-12-16 Nick McCurdy <nick@nickmccurdy.com>
+
+ Render the use-package-report table using Org
+
+ I noticed that the "Gathering Statistics" instructions for rendering
the Org
+ table could be automated for convenience. Now the table is reformatted
+ automatically, and you can still manually sort it. I'm not sorting it
by default
+ to maintain the same order of use-package forms for easier
troubleshooting.
+
+2017-12-16 John Wiegley <johnw@newartisans.com>
+
+ All the second argument in use-package-defaults lists to be a function
+
+ Address the question raised in
https://github.com/jwiegley/use-package/issues/591
+
+2017-12-13 John Wiegley <johnw@newartisans.com>
+
+ Add a test related to
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/589
+
+2017-12-13 John Wiegley <johnw@newartisans.com>
+
+ Add more tests related to issue
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/572
+
+2017-12-11 John Wiegley <johnw@newartisans.com>
+
+ Minor simplification of a function
+
+2017-12-11 John Wiegley <johnw@newartisans.com>
+
+ bind-keys fixes related to
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/482
+
+2017-12-10 John Wiegley <johnw@newartisans.com>
+
+ Add a clarifying test for
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/482
+
+2017-12-09 John Wiegley <johnw@newartisans.com>
+
+ Fix a scoping issues with multiple occurrences of :bind
+
+ Fixes https://github.com/jwiegley/use-package/issues/585
+
+2017-12-08 John Wiegley <johnw@newartisans.com>
+
+ Start building a use-package linter in use-package-lint.el
+
+ use-package-normalize/:disabled has the wrong number of arguments
+
+ Remove several unnecessary calls to `ignore'
+
+ Add another :bind test
+
+2017-12-07 John Wiegley <johnw@newartisans.com>
+
+ Add further note to NEWS.md
+
+ Add tests for two more issues
+
+ Fix the tests
+
+ Clarify a note in NEWS.md
+
+2017-12-07 John Wiegley <johnw@newartisans.com>
+
+ Changes to the way auto-deferral is indicated
+
+ This change adds a new extension hook `use-package-autoloads/<KEYWORD>`
for
+ specifying exactly which autoloads a keyword should imply. This is the
proper
+ way to indicate autoloads, rather than adding to the `:commands` entry
as was
+ done before.
+
+ Further, autoloading now must occur in order to cause implied deferred
+ loading; if :bind is used with only lambda forms, for example, this
will not
+ cause deferred loading without `:defer t`.
+
+2017-12-07 John Wiegley <johnw@newartisans.com>
+
+ Introduce new customization variable `use-package-merge-key-alist'
+
+2017-12-07 John Wiegley <johnw@newartisans.com>
+
+ Use cl-gentemp in another place
+
+ This avoids "Variable unknown" errors if a byte-compiled init.elc
happening to
+ encounter an error while evaluating an :init or :config block.
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Correctly fix the problem of unreferenced symbols after compilation
+
+ Fixes https://github.com/jwiegley/use-package/issues/571
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Revert "Pre-expand lexical-let, since otherwise it requires cl to be
loaded"
+
+ This reverts commit 7cc17cee8f8ae2093d98efebf429cd10e9b0b81c.
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Pre-expand lexical-let, since otherwise it requires cl to be loaded
+
+ Fixes https://github.com/jwiegley/use-package/issues/571
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Add documentation for `use-package-report'
+
+ use-package-defaults predicate must also receive the package name
+
+ Remove Package-Requires for diminish and delight, as these are optional
+
+ Add a comment as to why max-lisp-eval-depth is set in -tests.el
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Add missing autoload cookie, and make lack of a normalizer an error
+
+ Fixes https://github.com/jwiegley/use-package/issues/566
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Don't compute the verbose debug text unless it's requested
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Add :bind test for a single cons cell
+
+ Relates to https://github.com/jwiegley/use-package/issues/566
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Add support for gathering statistics on use-package declarations
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Respect keyword ordering in use-package-deferring-keywords
+
+ Relates to https://github.com/jwiegley/use-package/issues/565
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Clarify :config with setq versus :custom
+
+ Fixes https://github.com/jwiegley/use-package/issues/564
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Update some GPL version references
+
+ Fixes https://github.com/jwiegley/use-package/issues/563
+
+2017-12-06 John Wiegley <johnw@newartisans.com>
+
+ Allow the expansion of :after (:or foo bar) to be byte-compiled
+
+ Make the expanded text for :after cleaner
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Several changes as suggested by flycheck
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Don't auto-defer if the package itself was given to :load
+
+ Otherwise, we'd be senselessly waiting for the package to load.
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Enable all tests on Travis
+
+ Allow `:load t' to mean the same as :load of the package name
+
+ Whitespace change
+
+ Default running-on-travis to t
+
+ Enable 4 tests that work when not run on Travis
+
+ For now, stub out test that breaks Travis
+
+ Stub some referenced variables, for Travis
+
+ Add note in NEWS.md about :requires vs. :if
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Lower the priority of :if/:when/:unless in use-package-keywords
+
+ Fixes https://github.com/jwiegley/use-package/issues/560
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Enhance fix-expansion to take surrounding let bindings into account
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Rewrite normalization of :bind and :bind*
+
+ Fixes https://github.com/jwiegley/use-package/issues/550
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Normalize errors should be errors, that are then caught by :catch
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Avoid using pcase and many other macros in macro-expanded forms
+
+ This is related to https://github.com/jwiegley/use-package/issues/550
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Fix bad interaction between bind-keys* and the :package keyword
+
+ Fixes https://github.com/jwiegley/use-package/issues/558
+
+2017-12-05 John Wiegley <johnw@newartisans.com>
+
+ Add missing autoload cookies
+
+ Fixes https://github.com/jwiegley/use-package/issues/555
+
+2017-12-05 Radon Rosborough <radon.neon@gmail.com>
+
+ Fix function accidentally made interactive
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Use cl-gensym
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Fix the case where :ensure is given no arguments
+
+ Fixes https://github.com/jwiegley/use-package/issues/543
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Some Emacsen don't have gensym
+
+ Fixes https://github.com/jwiegley/use-package/issues/544
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add note in NEWS.md about :after and autoloaded keybindings
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add a note to `bind-key` on the usage of the KEYMAP argument
+
+ Fixes https://github.com/jwiegley/use-package/issues/542
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add a bind-key test
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Support :ensure (pkg :pin archive)
+
+ Fixes https://github.com/jwiegley/use-package/issues/506
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add several missing comments
+
+ Swap the order of two definitions
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Fix an argument process problem with bind-key
+
+ Fixes https://github.com/jwiegley/use-package/issues/334
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Comment out two tests that break on Travis
+
+ Rename up-* files to use-package-* for consistency
+
+ Merge branch 'split-bind-key'
+
+ Commit .texi file, as it requires several dependencies to generate
+
+ Merge branch 'master' into next
+
+ Add a test-in-progress for issue 506
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add new customization variables `use-package-hook-name-suffix'
+
+ Fixes https://github.com/jwiegley/use-package/issues/530
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Split key binding functionality out into its own file
+
+ Please the byte-compiler
+
+ Require cl for the use-package tests
+
+ Expand use-package-core as a macro, to avoid load time dependency
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ :ensure can be a list; correct handling of multiple :ensure keywords
+
+ Fixes https://github.com/jwiegley/use-package/issues/539
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Ensure that :commands always declare-function at compile time
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add a new :catch keyword, and move :preface before such handling
+
+ Fixes https://github.com/jwiegley/use-package/issues/534
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Fix duplication in an error message
+
+ Add expand-maximally macro to up-tests.el
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Revert "Reduce some code duplication"
+
+ This reverts commit 1e560c514004747062276ca59ddf425a3edc44cd.
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Move :preface handling within the code
+
+ Add two new tests
+
+ Reduce some code duplication
+
+ Normalize some whitespace and ordering in new code
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Move :init back to happening after all autoloads have occurred
+
+ Fixes https://github.com/jwiegley/use-package/issues/535
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Move :init back to happening after all autoloads have occurred
+
+ Fixes https://github.com/jwiegley/use-package/issues/535
+
+2017-12-04 Justin Talbott <justin@waymondo.com>
+
+ Add `use-package-chords` and `use-package-ensure-system-package`
+
+ Also update docs on usage
+
+ connect to https://github.com/jwiegley/use-package/issues/516
+
+2017-12-04 John Wiegley <johnw@newartisans.com>
+
+ Change order of :defines and :functions within `use-package-keywords'
+
+ Add further notes to NEWS.md, in light of recent breakages
+
+ Add new customization variable `use-package-deferring-keywords'
+
+ Minor comment change
+
+ up-ensure's customization variables are now in their own group
+
+ Remove code from up-core.el that is now in up-diminish.el
+
+ Add notes to NEWS.md
+
+ Correction to a macro expansion
+
+ Delete an unneeded blank line
+
+ Reduce some code duplication
+
+ Normalize the code emitted by :mode, :interpreter, :magic, etc
+
+ Add 'errors as another option to `use-package-verbose'
+
+ Only emit the debugging context text once
+
+2017-12-03 John Wiegley <johnw@newartisans.com>
+
+ Correction to error detection at both :init and :config times
+
+ Report errors during deferred :config as intelligent warnings also
+
+ Drop some unnecessary detail from a warning message
+
+ Minor simplification
+
+ Fix a byte-compiler warning in up-ensure.el
+
+ Move optional jumping functionality to its own module
+
+ Break out ensure/diminish/delight into their own support files
+
+ Move the use-package-keywords defcustom to the top of the file
+
+ Disable a test that is not working on Travis
+
+ Move functions around for better logical grouping
+
+ More variable renaming needed in the tests
+
+ Change most use-package-- prefixes to just use-package-
+
+ Remove a local variable binding
+
+ Always catch errors during configuration
+
+ Separate out all tests, the better to identify which one failed
+
+ Define macroexpand-1 for older Emacsen
+
+2017-12-03 John Wiegley <johnw@newartisans.com>
+
+ A great deal of internal reorganization and simplification
+
+ All handlers now address their own domain of work; :after has become
safer;
+ keyword normalization is multi-stage process; setting
use-package-verbose to
+ `debug' produces useful output in the *use-package* buffer in the case
of load
+ time errors; use-package errors (even internal) won't stop Emacs from
+ starting (though a serious internal bug that errors out every
use-package form
+ may stop anything from being configured!); and more.
+
+2017-12-02 Radon Rosborough <radon.neon@gmail.com>
+
+ Fix `use-package-ensure-function' docstring typo
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ If use-package-verbose is t, show loading times when :after is used
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Remove the :defer-install keyword
+
+ This may reappear as its own add-on to use-package in the future. See
https://github.com/jwiegley/use-package/issues/442.
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ :demand should not override an explicit use of :after
+
+ Fixes https://github.com/jwiegley/use-package/issues/529
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Remove some debug code that crept in
+
+ Add tests for the last two keywords
+
+ Add many more tests
+
+ Always wrap the expanded body from use-package in (progn)
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Comment out :no-require test for now
+
+ It works on my machine, but not with what Travis runs.
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Don't factor out a volatile variable
+
+ Possibly fixes https://github.com/jwiegley/use-package/issues/527
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Add many new tests
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Generate :defines and :functions correctly
+
+ So they actually inhibit byte-compilation warnings as they were meant
to.
+
+2017-12-01 John Wiegley <johnw@newartisans.com>
+
+ Correct the ordering of :preface, :load-path, :defines and :functions
+
+ Whitespace fix
+
+ Move :hook before :defer
+
+ Don't macroexpand bind-keys, leave that to the evaluator
+
+ Always use `load' when loading for the sake of compilation
+
+ Sort keywords at the appropriate time
+
+ Change the :config default, if none has been set in vars
+
+ :no-require t should never require
+
+ Code reformatting
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Allow match-expansion to take multiple cases
+
+ Add test for use-package-test-normalize/:ensure
+
+ Add the missing plist-delete
+
+ Remove an unneeded defvar
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ A final fix to :ensure + :load-path
+
+ Fixes https://github.com/jwiegley/use-package/issues/190
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Add a test case for :ensure, following up from
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/190
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Don't check for an :ensure that use-package-always-ensure may have added
+
+ Fixes https://github.com/jwiegley/use-package/issues/190
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Add a use-package-version variable
+
+ Add two new tests
+
+ Add stubs for future tests of all keywords
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Allow :ensure to take a nil value again
+
+ Fixes https://github.com/jwiegley/use-package/issues/526
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Only add :ensure nil on :load-path if use-package-always-ensure is t
+
+ Restructure some code
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Using :load-path without also using :ensure now implies :ensure nil
+
+ Fixes https://github.com/jwiegley/use-package/issues/190
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Correction to use-package--recognize-function
+
+ Finishes https://github.com/jwiegley/use-package/issues/525
+
+2017-11-30 John Wiegley <johnw@newartisans.com>
+
+ Allow keys to be bound to nil
+
+ Fixes https://github.com/jwiegley/use-package/issues/525
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ Fix a missing `and'
+
+ Use backquote rather than quote
+
+ Correct use-package-normalize-mode
+
+ Whitespace fix
+
+ Update version and copyright
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ Allow :bind ("C-c C-c" . (lambda () (ding))) and #'(lambda ...)
+
+ Fixes https://github.com/jwiegley/use-package/issues/333
+ Fixes https://github.com/jwiegley/use-package/issues/461
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ Reorder some items in NEWS.md
+
+ Add NEWS.md file
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from basil-conto/version
+
+ Require Emacs version >= 24.3
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/519
+
+2017-11-29 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Require Emacs version >= 24.3
+
+ Re: https://github.com/jwiegley/use-package/issues/457
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from basil-conto/520
+
+ Require cl-lib and do not use seq functions
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/521
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ Merge branch 'master' into 520
+
+ Add a missing (require 'seq)
+
+2017-11-29 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Require cl-lib and do not use seq functions
+
+ cl-lib is also required for a separate call to cl-mapcan.
+
+ Fixes https://github.com/jwiegley/use-package/issues/520
+
+2017-11-29 John Wiegley <johnw@newartisans.com>
+
+ When use-package-inject-hooks is non-nil, always fire init/config hooks
+
+ This used to not happen if `:init` or `:config` was missing, or set to
nil as
+ with `:init nil`.
+
+ Fixes https://github.com/jwiegley/use-package/issues/250
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Print map keys in describe-personal-keybindings
+
+ Fixes https://github.com/jwiegley/use-package/issues/406
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Repeating a bind no longer causes duplicates in personal-keybindings
+
+ Fixes https://github.com/jwiegley/use-package/issues/446
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ When byte-compiling, correctly output declare-function directives
+
+ Fixes https://github.com/jwiegley/use-package/issues/474
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Make diminish a soft dependency, as delight already was
+
+ Fixes https://github.com/jwiegley/use-package/issues/493
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Allow :diminish to take no argument, once again
+
+ Fix for single :custom (foo bar)
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Allow :custom (foo1 bar1) (foo2 bar2) etc
+
+ Fixes https://github.com/jwiegley/use-package/issues/518
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Add support for `:hook`
+
+ Fixes https://github.com/jwiegley/use-package/issues/444
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Append to *use-package* when debugging, don't clear it
+
+ Fixes https://github.com/jwiegley/use-package/issues/476
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Make unrecognized keywords a warning
+
+ This could actually be used to store your own metadata in use-package
+ declarations, to be (read) later by simply parsing init file contents.
+
+ Fixes https://github.com/jwiegley/use-package/issues/483
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Upgrade license to GPL 3
+
+ Fixes https://github.com/jwiegley/use-package/issues/499
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Don't allow :commands, :bind, etc., to be given an empty list
+
+ This makes the following an error:
+
+ :commands
+ :commands nil
+ :commands ()
+
+ Fixes https://github.com/jwiegley/use-package/issues/512
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Explicit :defer t should override use-package-always-demand
+
+ Fixes https://github.com/jwiegley/use-package/issues/514
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from drrlvn/patch-1
+
+ Remove duplicate documentation of :mode
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/489
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Corrections to the normalization of :custom
+
+2017-11-28 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from joewreschnig/implicit-diminish
+
+ Allow `:diminish` with no arguments.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/472
+
+2017-11-21 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from waymondo/master
+
+ Allow customized values to be nil
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/515
+
+2017-11-20 Justin Talbott <justin@waymondo.com>
+
+ allow customized values to be nil
+
+2017-11-20 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from canatella/add-customization-keywords
+
+ Add customization keywords
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/508
+
+2017-11-10 Damien Merenne <dam@cosinux.org>
+
+ Add support for face customization
+
+ Allows customization of faces using customize-set-faces. This makes it
+ easier to manage customization in version control. Instead of having
all the
+ faces written in a custom.el, the faces can be customized where the rest
+ of the package is configured.
+
+2017-11-10 Damien Merenne <dam@cosinux.org>
+
+ Add support for variable customization
+
+ Allows customization of variable using customize-set-variables. This
makes it
+ easier to manage customization in version control. Instead of having
all the
+ variables written in a custom.el, the variable can be customized where
the rest
+ of the package is configured.
+
+2017-10-30 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from carldotac/master
+
+ Fix documentation typos
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/513
+
+2017-10-30 Carl Lieberman <dev@carl.ac>
+
+ Fix typos in docstring
+
+2017-10-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from emacsjanitors/demote-manually
+
+ Don't use with-demoted-errors in use-package-ensure-elpa
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/507
+
+2017-10-13 Jonas Bernoulli <jonas@bernoul.li>
+
+ Cosmetic changes to use-package-ensure-elpa
+
+2017-10-13 Jonas Bernoulli <jonas@bernoul.li>
+
+ Don't use with-demoted-errors in use-package-ensure-elpa
+
+ It expects a literal string as argument at macro-expansion
+ time, but we need to construct the message.
+
+2017-10-09 Andreas Politz <politza@hochschule-trier.de>
+
+ Remove redundant checks for the empty overlay tree
+
+ * src/alloc.c (mark_buffer): Remove b->overlays check.
+ * src/buffer.c (copy_overlays): Also.
+ * src/buffer.c (swap_buffer_overlays, overlays_in): Also.
+ (next_overlay_change, previous_overlay_change): Also.
+ (overlay_touches_p, Foverlay_lists): Also.
+ (evaporate_overlays): Also.
+ * src/xdisp.c (load_overlay_strings): Also.
+
+2017-10-07 Andreas Politz <politza@hochschule-trier.de>
+
+ Make boolean struct member use one bit
+
+ * src/itree.h (struct interval_tree): Add bit descriptor.
+
+2017-10-07 Andreas Politz <politza@hochschule-trier.de>
+
+ Optimize struct layout for space
+
+ * src/itree.h (struct interval_node): Move color member near the end.
+
+2017-10-07 Andreas Politz <politza@hochschule-trier.de>
+
+ Make boolean struct member use one bit
+
+ * src/itree.h (struct interval_node): Add bit descriptor.
+
+2017-10-07 Andreas Politz <politza@hochschule-trier.de>
+
+ Expand overlay multibyte tests
+
+ * test/src/buffer-tests.el (test-overlay-multibyte-transition-1):
+ Expand test.
+ (test-overlay-multibyte-transition-2): New test.
+
+2017-10-06 Andreas Politz <politza@hochschule-trier.de>
+
+ Adapt overlays when multibyteness changes
+
+ * src/buffer.c
+ (set_overlays_multibyte): New function.
+ (set-buffer-multibyte): Use function.
+
+2017-10-06 Andreas Politz <politza@hochschule-trier.de>
+
+ Add a function collecting all interval nodes
+
+ * src/itree.c (interval_tree_nodes): New function
+
+2017-10-05 Andreas Politz <politza@hochschule-trier.de>
+
+ Fix assignment of offset to newly inserted nodes.
+
+ * src/itree.c (interval_tree_insert): Fix offset.
+
+2017-10-05 Andreas Politz <politza@hochschule-trier.de>
+
+ Add offsets when inspecting a node's children's values
+
+ *src/itree.c (interval_tree_insert_gap): Add offset.
+
+2017-10-05 Andreas Politz <politza@hochschule-trier.de>
+
+ Add test exposing overlay bug
+
+ * test/src/buffer-tests.el (overlay-autogenerated-test-64): New test.
+
+2017-10-05 Andreas Politz <politza@hochschule-trier.de>
+
+ Add test regarding overlay and buffer encoding
+
+ * test/src/buffer-tests.el (test-overlay-multibyte-transition-1):
+ New test exposing a bug regarding overlays when changing the
+ multibyteness of a buffer.
+
+2017-10-04 Andreas Politz <politza@hochschule-trier.de>
+
+ Provide a new tree data-structure for overlays.
+
+ * src/itree.c
+ (interval_generator_narrow, interval_generator_next)
+ (interval_node_init, interval_node_begin)
+ (interval_node_end, interval_node_set_region)
+ (interval_tree_create, interval_tree_clear)
+ (interval_tree_init, interval_tree_destroy)
+ (interval_tree_size, interval_tree_insert)
+ (interval_tree_contains, interval_tree_remove)
+ (interval_tree_validate, interval_tree_iter_start)
+ (interval_tree_iter_finish, interval_tree_iter_next)
+ (interval_tree_iter_ensure_space, interval_tree_max_height)
+ (interval_tree_insert_gap, interval_tree_delete_gap)
+ (interval_generator_create, interval_generator_reset)
+ (interval_generator_ensure_space, interval_node_intersects)
+ (interval_generator_next, interval_generator_narrow)
+ (interval_generator_destroy, interval_stack_create)
+ (interval_stack_destroy, interval_stack_clear)
+ (interval_stack_ensure_space, interval_stack_push)
+ (interval_stack_push_flagged, interval_stack_pop)
+ (interval_tree_update_limit, interval_tree_inherit_offset)
+ (interval_tree_propagate_limit, interval_tree_rotate_left)
+ (interval_tree_rotate_right, interval_tree_insert_fix)
+ (interval_tree_remove_fix, interval_tree_transplant)
+ (interval_tree_subtree_min): New file and new functions.
+
+ * src/itree.h: New file.
+
+ * configure.ac: Create Makefile for manual overlay tests.
+
+ * src/Makefile.in: Add itree.o target.
+
+ * src/alloc.c (build_overlay, mark_overlay, mark_buffer)
+ (sweep_misc, sweep_buffers): Adapt to new tree data-structure.
+
+ * src/buffer.c (overlays_in, overlays_at): Remove unused arguments
+ prev_ptr and change_req, adapt to new data-structure and reuse
+ code.
+ (copy_overlays, drop_overlays, delete_all_overlays)
+ (reset_buffer, kill-buffer, buffer-swap-text, next_overlay_change)
+ (previous_overlay_change, mouse_face_overlay_overlaps)
+ (disable_line_numbers_overlay_at_eob, overlay_touches_p)
+ (overlay_strings, adjust_overlays_for_insert)
+ (adjust_overlays_for_delete, overlayp, make-overlay, move-overlay)
+ (delete-overlay, overlay-start, overlay-end, overlay-buffer)
+ (overlay-properties, overlays-at, overlays-in)
+ (next-overlay-change, previous-overlay-change, overlay-put)
+ (overlay-get, report_overlay_modification, evaporate_overlays)
+ (init_buffer_once): Adapt to changes and tree data-structure.
+ (overlay-lists, overlay-recenter): Funtions are now obsolete, but
+ kept anyway.
+ (set_buffer_overlays_before, set_buffer_overlays_after)
+ (recenter_overlay_lists,fix_start_end_in_overlays,fix_overlays_before)
+ (unchain_overlay,): Removed functions of the old list
+ data-structure.
+ (swap_buffer_overlays, make_sortvec_item): New functions.
+ (sort_overlays): Adapt to changes and tree data-structure.
+ (sortvec): Moved to buffer.h .
+ (make_lispy_interval_node, overlay_tree, overlay-tree)
+ [ITREE_DEBUG]: New debugging functions.
+
+ * src/buffer.h (overlays_before, overlays_after): Removed struct
+ member of the list data-structure.
+ (overlays): Added tree struct member.
+ (sortvec): Moved here from buffer.c .
+ (GET_OVERLAYS_AT): Adapt to changes.
+ (set_buffer_intervals, OVERLAY_START, OVERLAY_END, OVERLAY_PLIST):
+ Adapt to tree data-structure.
+ (OVERLAY_POSITION): Removed macro of the list data-structure.
+ (OVERLAY_REAR_ADVANCE_P, OVERLAY_FRONT_ADVANCE_P): New macros.
+ (overlay_start, overlay_end)
+ (set_overlay_region, maybe_alloc_buffer_overlays)
+ (free_buffer_overlays, add_buffer_overlay)
+ (remove_buffer_overlay, buffer_overlay_iter_start)
+ (buffer_overlay_iter_next, buffer_overlay_iter_finish)
+ (buffer_overlay_iter_narrow): New functions.
+ (compare_overlays, make_sortvec_item): Export functions.
+
+ * src/editfns.c (overlays_around): Reuse overlays_in.
+ (get-pos-property): Adapt to tree data-structure.
+ (transpose-regions): Remove call to deleted function.
+
+ * src/fileio.c: (insert-file-contents): Remove
+ references to deleted struct member.
+
+ * src/fns.c (internal_equal): Adapt to tree data-structure.
+
+ * src/indent.c (check_display_width): Adapt to tree
+ data-structure.
+ (skip_invisible): Remove call to deleted function.
+
+ * src/insdel.c (adjust_markers_for_insert): Remove calls to
+ deleted functions.
+
+ * src/intervals.c (adjust_for_invis_intang): Adapt to tree
+ data-structure.
+
+ * src/keyboard.c (adjust_point_for_property): Adapt to tree
+ data-structure.
+
+ * src/lisp.h (Lisp_Overlay): Modified struct layout.
+
+ * src/print.c (temp_output_buffer_setup, print_object): Adapt to
+ tree data-structure.
+
+ * src/textprop.c (get_char_property_and_overlay): Adapt to tree
+ data-structure. Take advantage of the new data-structure.
+
+ * src/window.h (overlay_matches_window): New function.
+
+ * src/xdisp.c (next_overlay_change): Removed function. Use
+ next-overlay-change, which does not use xmalloc anymore.
+ (handle_single_display_spec, load_overlay_strings)
+ (back_to_previous_visible_line_start, note_mouse_highlight): Adapt
+ to tree data-structure.
+ (move_it_to, display_line): Remove calls to deleted functions.
+
+ * src/xfaces.c (face_at_buffer_position): Adapt to changes and
+ tree data-structure.
+
+ * test/src/buffer-tests.el: Many tests regarding overlays added.
+
+ * test/manual/noverlay/itree-tests.c: New file with tests of the
+ tree data-structure on the C level.
+ * test/manual/noverlay/Makefile.in: New file.
+ * test/manual/noverlay/check-sanitize.sh: New file.
+ * test/manual/noverlay/emacs-compat.h: New file.
+ * test/manual/noverlay/.gitignore: New file.
+
+ * test/manual/noverlay/overlay-perf.el: New file providing
+ performance tests.
+ * test/manual/noverlay/many-errors.h: New file.
+
+2017-08-16 João Távora <joaotavora@gmail.com>
+
+ Overhaul async mechanism safety
+
+2017-08-16 João Távora <joaotavora@gmail.com>
+
+ Simplify `eglot--protocol-initialize`
+
+ * eglot.el (eglot--protocol-initialize): Simplify
+
+2017-08-16 João Távora <joaotavora@gmail.com>
+
+ Experimental diagnostic overlays
+
+ Minor cleanup
+
+ Cancel timeouts when process dies unexpectedly
+
+ Organize a bit
+
+ Improve `eglot--current-process'
+
+ Handle notifications
+
+ Introduce and use `eglot--current-process-or-lose'
+
+ Add a mode-line construct and some minor fanciness
+
+ Rename eglot--continuations eglot--pending-continuations
+
+ Remove a couple of comments
+
+2017-08-15 João Távora <joaotavora@gmail.com>
+
+ Initial commit
+
+2017-08-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/feat/fix-install-deferred
+
+ Fix bug in use-package-install-deferred-package
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/479
+
+2017-07-30 Dror Levin <spatz@psybear.com>
+
+ Remove duplicate documentation of :mode
+
+2017-07-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from joewreschnig/481-delight-docs
+
+ Document :delight in the doc string and README.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/484
+
+2017-07-10 Joe Wreschnig <joe.wreschnig@gmail.com>
+
+ Document :delight in the doc string and README
+
+2017-07-08 Joe Wreschnig <joe.wreschnig@gmail.com>
+
+ Allow `:diminish` with no arguments
+
+ When given no arguments, have :diminish assume it should diminish a
+ mode named after the current package (the package’s name, with “-mode”
+ appended, if it’s not already) to an empty string.
+
+ When given only a string to diminish an implicit package name to, do
+ not append “-mode” to the package name if it already ends with
+ it. (This is a backwards-incompatible change if someone was
+ diminishing a package named “foo-mode” implementing `foo-mode-mode`.)
+
+ Add test cases for `use-package-normalize-diminish`.
+
+ This addresses some of the redundancy mentioned in issue
https://github.com/jwiegley/use-package/issues/288.
+
+2017-07-02 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from joewreschnig/477-delight-wrappers
+
+ Allow multiple :delight arguments, or omitting the mode.
(https://github.com/jwiegley/use-package/issues/477)
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/480
+
+2017-07-02 Joe Wreschnig <joe.wreschnig@gmail.com>
+
+ Allow :major as the third argument in :delight calls
+
+2017-07-02 Joe Wreschnig <joe.wreschnig@gmail.com>
+
+ Allow multiple :delight arguments, or omitting the mode. ()
+
+ This allows using forms such as
+
+ (use-package foo :delight)
+ ;; => (delight 'foo-mode)
+ (use-package foo :delight " f")
+ ;; => (delight 'foo-mode " f")
+ (use-package foo :delight (a-mode) (b-mode " b")
+ ;; => (delight 'a-mode) (delight 'b-mode " b")
+
+ This brings support for `:delight` in line with `:diminish`.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/477
+
+2017-06-30 Radon Rosborough <radon.neon@gmail.com>
+
+ Fix bug in use-package-install-deferred-package
+
+ Previously, deferred installation didn't work because I didn't convert
+ the result of a `completing-read' back from a string to a symbol,
+ which meant the hash-table lookup failed.
+
+2017-06-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from joewreschnig/magic-469
+
+ Add `:magic` and `:magic-fallback` keywords (issue
https://github.com/jwiegley/use-package/issues/469).
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/473
+
+2017-06-15 Joe Wreschnig <joe.wreschnig@gmail.com>
+
+ Add `:magic` and `:magic-fallback` keywords (issue)
+
+ These keywords work equivalently to `:mode` or `:interpreter`, but for
+ `magic-mode-alist` and `magic-fallback-mode-alist`.
+
+ The handler function implementation is now passed a list to add to,
+ and shared by all four of them.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/469
+
+2017-05-22 David Leatherman <git@david.leatherman.fm> (tiny change)
+
+ Protect against errors during package install
+
+ If the network is missing and there is a new use-package with :ensure,
+ startup would fail part of the way through due package.el being unable
+ to reach the package repo. This will catch that error and report it
+ while allowing startup to continue.
+
+2017-05-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/feat/failed-autoload-msg
+
+ Fix quoting error in failed autoload message
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/456
+
+2017-05-07 Radon Rosborough <radon.neon@gmail.com>
+
+ Fix quoting error in failed autoload message
+
+2017-04-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/normalize-nil
+
+ Make use-package-normalize-value handle nil better
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/449
+
+2017-04-05 Radon Rosborough <radon.neon@gmail.com>
+
+ Make use-package-normalize-value handle nil better
+
+ The previous version of `use-package-normalize-value', when passed
+ nil, would return the list (symbol-value (quote nil)). This meant that
+ keywords which used `use-package-normalize-value' or the higher-level
+ normalizer `use-package-normalize-test' would get a non-nil
+ argument (i.e. the above list) even when the user specified nil to the
+ package.
+
+ This had the concrete impact of making it so that :defer-install nil
+ was treated as :defer-install t.
+
+2017-04-03 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/fix-bind-key-filter
+
+ Don't mutilate keyword arguments in :bind
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/447
+
+2017-04-03 Radon Rosborough <radon.neon@gmail.com>
+
+ Add comment explaining keyword-argument patch
+
+2017-04-03 Radon Rosborough <radon.neon@gmail.com>
+
+ Don't mutilate keyword arguments in :bind
+
+ The parsing logic in `use-package-normalize-pairs' is not designed to
+ deal with keyword arguments. However, `use-package-normalize-pairs' is
+ used to process the arguments to :bind, which can include keyword
+ arguments. These keyword arguments are supposed to be passed untouched
+ to the underlying `bind-keys' function, but there is a clause in
+ `use-package-normalize-pairs' that replaces lists with their first
+ element. Thus an invocation like:
+
+ (use-package company
+ :bind (:map company-active-map
+ :filter (company-explicit-action-p)
+ ("RET" . company-complete-selection)))
+
+ Generates code like this:
+
+ (bind-keys
+ :map company-active-map
+ :filter company-explicit-action-p
+ ("RET" . company-complete-selection))
+
+ Which generates an error since `company-explicit-action-p' is now
+ being referenced as a variable rather than a function.
+
+ The proper solution is to refactor the logic that goes into parsing
+ uses of :bind, but this commit adds a temporary patch to eliminate the
+ above problem, while trying to be as reverse-compatible as possible.
+ In particular it just inhibits the list-to-first-element
+ transformation when the previous element processed was a keyword.
+
+2017-03-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/fix-after
+
+ Fix :after keyword
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/439
+
+2017-03-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/always-defer-install
+
+ Add use-package-always-defer-install
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/443
+
+2017-03-26 Radon Rosborough <radon.neon@gmail.com>
+
+ Add use-package-always-defer-install
+
+ See
https://github.com/jwiegley/use-package/pull/433#issuecomment-289317875
+
+2017-03-19 Radon Rosborough <radon.neon@gmail.com>
+
+ Fix :after keyword
+
+ Commit [1] broke the functionality of :after (see [2]) due to an
+ extraneous quote being added.
+
+ [1]: bd2afa53c7580d23ed8008267b80e1834b6e6600
+ [2]:
https://github.com/jwiegley/use-package/pull/433#issuecomment-287606553
+
+2017-03-19 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/defer-install
+
+ [RFC] Support for deferred installation
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/433
+
+2017-03-18 Radon Rosborough <radon.neon@gmail.com>
+
+ Merge remote-tracking branch 'origin/master' into defer-install
+
+ Resolve merge conflicts.
+
+2017-03-18 Radon Rosborough <radon.neon@gmail.com>
+
+ Update docstring, installation prompt message
+
+ Various improvements for deferred installation
+
+2017-03-08 Radon Rosborough <radon.neon@gmail.com>
+
+ Get :defer-install completely working, in theory
+
+ A quoting error has been fixed in `use-package-handler/:defer'.
+ `use-package-install-deferred-package' has been updated to return t
+ if the package was actually installed, and nil otherwise.
+ The fake autoloads generated during deferred installation are
+ doctored so Emacs does not think they were defined in the user's
+ init-file.
+ The docstrings of the fake autoloads have been improved.
+ Arguments and interactivity are now correctly passed to the
+ autoloaded function.
+ The autoload now skips requiring the feature and calling the
+ original function if the user declines to install the package. This
+ prevents unprofessional errors.
+
+2017-03-08 Radon Rosborough <radon.neon@gmail.com>
+
+ Improve deferred installation mechanism
+
+ This time around, I've gotten rid of the advice on `require' (that was
+ never going to work) and instead made `use-package' try to handle
+ loading the package at the appropriate time. In particular, when
+ deferred installation is active, all the autoloads generated by
+ `use-package' are not regular autoloads, but regular functions that
+ will install the relevant package, require the relevant feature, and
+ only then call the newly defined (autoloaded) function.
+
+ Some smarter logic has been added to make sure things like `:demand'
+ play nicely with the autoloading system; see the extensive comment in
+ `use-package-handler/:defer-install' for more information on how that
+ works.
+
+ There was a section in `use-package-install-deferred-package' which
+ referred to a nonexistent variable `use-package--deferred-features';
+ that has been removed.
+
+ There is now, in addition to `use-package-ensure-function', a new
+ variable called `use-package-pre-ensure-function'. This is intended
+ for use by package managers which, unlike package.el, activate
+ autoloads package-by-package instead of all at once. Even if a package
+ is marked for deferred installation, the user would likely want its
+ autoloads activated immediately *if* it was already installed. The
+ logic for doing that can now be put in
+ `use-package-pre-ensure-function'.
+
+2017-03-08 Radon Rosborough <radon.neon@gmail.com>
+
+ Merge branch 'generalized-ensure' into defer-install
+
+2017-03-08 Radon Rosborough <radon.neon@gmail.com>
+
+ Update docstring for use-package-ensure-function
+
+ Now it properly reflects the API changes recently made.
+
+2017-03-08 Radon Rosborough <radon.neon@gmail.com>
+
+ First cut at :defer-install keyword
+
+ This new keyword, if provided along with a non-nil value, causes the
+ action of :ensure to be deferred until "necessary". Package
+ installation can be triggered by the user calling the new interactive
+ function `use-package-install-deferred-package', or by the feature
+ declared by the `use-package' form being required. This latter
+ behavior seems to be the simplest way to make sure that package
+ installation actually takes place when it needs to, but it requires
+ that an advice be added to `require', which may be considered overly
+ intrusive. (Also, it's generally considered bad practice for functions
+ in Emacs to put advice on other functions in Emacs.) Thus it may make
+ sense to add an option or function to explicitly enable this behavior,
+ if there does not turn out to be a better way to accomplish deferred
+ installation.
+
+ Documentation has not been updated to reflect :defer-install yet.
+
+2017-03-08 Radon Rosborough <radon.neon@gmail.com>
+
+ Extend capabilities of use-package-ensure-function
+
+ Modify the expected API of `use-package-ensure-function' so that it is
+ passed three arguments: the name of the package declared in the
+ `use-package' form; the argument passed to `:ensure'; and the current
+ `state' plist created by previous handlers. (Previously, it was only
+ given a single argument, which was the argument passed to `:ensure',
+ or the name of the package declared in the `use-package' form, if the
+ former was `t'.
+
+ This allows for more flexibility in the capabilities of the
+ `use-package-ensure-function' implementation. For example, its
+ behavior can change depending on the values of other keywords, if
+ those keywords modify the `state' plist appropriately.
+
+2017-02-18 John Wiegley <johnw@newartisans.com>
+
+ Revert "Return `t' after calling `eval-after-load'"
+
+ This reverts commit 87a8ff6d693f3cc79ea423ca8c8e0a60b0bc596c.
+
+2017-02-16 John Wiegley <johnw@newartisans.com>
+
+ Support multiple symbols passed to :after
+
+ The following expressions are now permitted:
+
+ foo ; load after foo is loaded
+ foo bar ; load after both foo and bar are loaded
+ :all foo bar ; same as previous
+ :any foo bar ; load after either foo or bar is loaded
+ :any (:all foo bar) baz ; more complex combinations...
+ :any (:all foo bar) (:all baz wow)
+ :all (:any foo bar) (:any baz wow)
+
+ Fixes https://github.com/jwiegley/use-package/issues/283
+
+2017-02-16 John Wiegley <johnw@newartisans.com>
+
+ :mode and :interpreter can now accept (rx ...) forms
+
+ Fixes https://github.com/jwiegley/use-package/issues/204
+
+2017-02-16 John Wiegley <johnw@newartisans.com>
+
+ Return `t' after calling `eval-after-load'
+
+ Fixes https://github.com/jwiegley/use-package/issues/174
+
+2017-02-16 John Wiegley <johnw@newartisans.com>
+
+ Add autoload cookie for use-package-autoload-keymap
+
+ Fixes https://github.com/jwiegley/use-package/issues/337
+
+2017-02-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/find-form
+
+ Add function use-package-jump-to-package-form
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/359
+
+2017-02-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/imenu3
+
+ Improve imenu support
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/356
+
+2017-02-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/fix-use-package-defaults
+
+ Fix use-package-defaults
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/430
+
+2017-02-13 Radon Rosborough <radon.neon@gmail.com>
+
+ Fix use-package-defaults
+
+ This patch should address issues
https://github.com/jwiegley/use-package/issues/428 and
https://github.com/jwiegley/use-package/issues/429. See
https://github.com/jwiegley/use-package/issues/426 for
+ discussion. In brief, the issue was that use-package-sort-keywords was
+ not applied when the predicates in use-package-defaults did not return
+ true, when it should have been applied unconditionally.
+
+2017-02-13 Radon Rosborough <radon.neon@gmail.com>
+
+ Unrevert "Add use-package-defaults"
+
+ This reverts commit 013425edeb1829f5d21514f77d41763347538b14.
+
+2017-02-13 John Wiegley <johnw@newartisans.com>
+
+ Revert "Add use-package-defaults"
+
+ This reverts commit 3dec23c0860ad297436b9b71b221491ae3790cce.
+
+2017-02-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/use-package-defaults
+
+ Add use-package-defaults
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/426
+
+2017-01-16 Radon Rosborough <radon.neon@gmail.com>
+
+ Add use-package-defaults
+
+ Previously, the :config, :ensure, and :pin keywords had default
+ values (dependent on the values of the use-package-always-ensure and
+ use-package-always-pin). This change allows the user to customize the
+ default values used for those keywords, and add default values for
+ their own keywords in a non-hacky way.
+
+ This functionality would be useful for (as an example) the
+ quelpa-use-package package, which needs to use an advice to override
+ the functionality of :ensure. The same problem prevents adding a
+ use-package-always-quelpa variable in any reasonable way, without a
+ way to customize the default values of keywords.
+
+2017-01-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from raxod502/use-package-ensure-function
+
+ Add use-package-ensure-function
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/427
+
+2017-01-15 Radon Rosborough <radon.neon@gmail.com>
+
+ Add use-package-ensure-function
+
+ This allows the user to customize the :ensure keyword by using a
+ different package manager than package.el.
+
+2016-12-22 John Wiegley <johnw@newartisans.com>
+
+ Add new customization option `use-package-always-demand`
+
+ This is equivalent to adding `:demand t` to all `use-package`
declarations,
+ and has the same semantics as doing so (meaning it can be overridden
locally
+ using `:defer t` in a declaration).
+
+ Fixes https://github.com/jwiegley/use-package/issues/423
+
+2016-12-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from basil-conto/preface
+
+ Increase :preface priority
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/418
+
+2016-12-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/outline
+
+ Support outline-minor-mode
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/420
+
+2016-12-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/bind-later
+
+ Delay decision whether to use eval-after-load until run-time
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/419
+
+2016-12-18 Jonas Bernoulli <jonas@bernoul.li>
+
+ Delay decision whether to use eval-after-load until run-time
+
+ Just because a keymap variable is bound at macro-expansion-time
+ doesn't mean that it must be bound at run-time too.
+
+ Change `bind-keys-form', which is used by `bind-keys' and other
+ macros, to return a form which delays the decision on whether to
+ wrap the binding forms with `eval-after-load' until run-time.
+
+ Fixes https://github.com/jwiegley/use-package/issues/378.
+
+2016-12-17 Jonas Bernoulli <jonas@bernoul.li>
+
+ Support outline-minor-mode
+
+ In "use-package.el" prefix headings with ";;;" instead of just
+ ";;". In "bind-key.el" add the missing ";;; Code:" heading.
+ In both libraries set `outline-regexp' to an appropriate value.
+
+2016-12-16 Basil L. Contovounesios <contovob@tcd.ie>
+
+ Increase :preface priority
+
+ Reconcile order of `use-package-keywords' with the README
+ description of `:preface' as occurring before everything but
+ `:disabled'.
+
+2016-10-31 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phst/bug398
+
+ Declare package-read-all-archive-contents
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/402
+
+2016-10-31 Philipp Stephani <phst@google.com>
+
+ Declare package-read-all-archive-contents
+
+ Fixes https://github.com/jwiegley/use-package/issues/398
+
+2016-10-31 Philipp Stephani <phst@google.com>
+
+ Remove tests, which don’t work
+
+ Fixes https://github.com/jwiegley/use-package/issues/399
+
+2016-10-31 Noam Postavsky <npostavs@gmail.com>
+
+ Don't allow implicit package name arg for binders
+
+ It's unlikely that
+
+ (use-package foopkg :bind "<some-key>")
+
+ intendes to bind <some-key> to 'foopkg command.
+
+2016-10-31 Noam Postavsky <npostavs@gmail.com>
+
+ Don't allow nil as a mode function
+
+ This means (use-package foopkg :mode (".foo")) will add (".foo"
+ . foopkg) into auto-mode-alist instead of the broken (".foo" . nil),
+ this is more consistent with the behaviour of (use-package foopkg
+ :mode (".foo" ".bar")).
+
+2016-10-31 Noam Postavsky <npostavs@gmail.com>
+
+ Refactor pair normalizers; add tests for them
+
+ This is not a pure refactoring, it also fixes a bug where
+ :bind ([keysym] . "string") would actually bind keysym to nil (i.e.,
+ unbind it). It now binds to "string" as expected.
+
+2016-10-31 Noam Postavsky <npostavs@gmail.com>
+
+ Remove obsolete mplist tests
+
+ The mplist functions were removed in the 2.0
+ refactoring (4ae584f3ff0e9bda05420ec3b8598e59374b0899).
+
+2016-10-17 John Wiegley <johnw@newartisans.com>
+
+ Bump version to 2.3
+
+2016-08-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from appleby/master
+
+ Ensure package-pinned-packages is bound before referencing it.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/376
+
+2016-08-15 Mike Appleby <mike@app.leby.org> (tiny change)
+
+ Ensure package-pinned-packages is bound before referencing it
+
+ Add a bound-and-true-p guard to package-pinned-packages before
+ referencing it in use-package-ensure-elpa.
+
+ Package pinning was introduced in Emacs 24.4, and hence
+ package-pinned-packages in unbound by default in earlier versions.
+
+ Relevant commits:
+ 72452b5 Merge pull request
https://github.com/jwiegley/use-package/issues/367 from ketbra/master
+ 5053f75 Make pin and ensure compatible
+
+ Fixes https://github.com/jwiegley/use-package/issues/375
+
+2016-07-22 John Wiegley <johnw@newartisans.com>
+
+ Remove the use of a tab
+
+2016-07-22 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from ketbra/master
+
+ Update use-package.el
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/367
+
+2016-07-21 Matthew Feinberg <ketbra@users.noreply.github.com> (tiny change)
+
+ Make pin and ensure compatible
+
+ `:pin` does not work with `:ensure`, because it doesn't add the package
to package-pinned-packages until after reading the package archive contents.
This change causes the package archive contents to be reread if the package is
pinned and `:ensure` is being used.
+
+2016-07-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/state-noconst
+
+ Some minor fixes
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/342
+
+2016-07-17 Noam Postavsky <npostavs@gmail.com>
+
+ Fix declare-function call: FILE must be a string
+
+ use-package-as-string: use noerror parameter
+
+2016-07-17 Noam Postavsky <npostavs@gmail.com>
+
+ Don't pass a constant as the state
+
+ for use-package-process-keywords, because the function may modify the
+ list object. Modifying a quoted constant can lead to unexpected side
+ effects (e.g. values from previous use-package forms end up in
+ subsequent ones).
+
+2016-07-06 John Wiegley <johnw@newartisans.com>
+
+ Version 2.2
+
+2016-07-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/bump-init
+
+ Move :init forms before :after and :demand
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/360
+
+2016-06-23 Justin Burkett <justin@burkett.cc>
+
+ Move :init forms before :after and :demand
+
+ The docstring of use-package says that :init should run before the
+ package is loaded but using :after moves the require statement ahead of
+ :init when any package specified in :after is already loaded. In the
+ following example, in the first case bar-x might get set before or after
+ bar is loaded depending on if foo is already loaded at the time, while
+ the second case always sets bar-x first.
+
+ (use-package bar
+ :after (foo)
+ :init (setq bar-x 2)
+ :config (bar-mode))
+
+ (use-package bar
+ :init (setq bar-x 2)
+ :config (bar-mode))
+
+ This commit fixes the issue and makes sure that bar-x is set before bar
+ is loaded by use-package. Fixes
https://github.com/jwiegley/use-package/issues/352.
+
+2016-06-22 Justin Burkett <justin@burkett.cc>
+
+ Add function use-package-jump-to-package-form
+
+ This is an attempt at resolving
https://github.com/jwiegley/use-package/issues/329. The new interactive function
+ use-package-jump-to-package-form will prompt with a completing read of
+ all known packages. After selecting a package, use-package-find-require
+ searches load-history to see where the package was required and then I
+ attempt to find the correct use-package form using
+ use-package-form-regexp.
+
+ It will fail if the use-package form you are looking for did not
+ actually load the package. For example it could be something that is a
+ dependency of a library that was already loaded. In some sense this is a
+ feature because it is helpful to know that the library was already
+ loaded when your use-package form was encountered. It will also fail if
+ your use-package declaration doesn't match the regexp used, but this is
+ easily adjusted.
+
+2016-06-15 Justin Burkett <justin@burkett.cc>
+
+ Improve imenu support
+
+ Instead of using defvar for lisp-mode-symbol-regexp, wait until
+ lisp-mode is loaded and check for its existence to avoid making
+ use-package the place where this variable is declared.
+
+2016-06-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/imenu2
+
+ Fix imenu support for older versions
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/355
+
+2016-06-13 Justin Burkett <justin@burkett.cc>
+
+ Fix imenu support for older versions
+
+ lisp-mode-symbol-regexp was not defined in Emacs 24.5.
+
+2016-06-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from justbur/imenu
+
+ Add imenu support for use-package forms
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/354
+
+2016-06-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from robario/patch-1
+
+ Fix to ignore load error caused via :after
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/350
+
+2016-06-13 Justin Burkett <justin@burkett.cc>
+
+ Add imenu support for use-package forms
+
+ Also add require forms and group both under menu "Package".
+
+2016-06-05 robario <webmaster@robario.com> (tiny change)
+
+ Fix to ignore load error caused via :after
+
+2016-04-03 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from xuchunyang/fix-package-install
+
+ Mark package as selected with package-install
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/336
+
+2016-03-31 Chunyang Xu <xuchunyang56@gmail.com>
+
+ Mark package as selected with package-install
+
+ Fixes https://github.com/jwiegley/use-package/issues/327
+
+2016-02-27 John Wiegley <johnw@newartisans.com>
+
+ :map no longer accepts lists; only eval-after-load if necessary
+
+ Fixes https://github.com/jwiegley/use-package/issues/324
+
+2016-02-26 John Wiegley <johnw@newartisans.com>
+
+ Normalize some error text
+
+2016-02-26 John Wiegley <johnw@newartisans.com>
+
+ Only printing debug messages if use-package-verbose is `debug'
+
+ Fixes https://github.com/jwiegley/use-package/issues/271
+
+2016-02-26 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from ljos/master
+
+ Quote variable in bind-keys*
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/325
+
+2016-02-26 John Wiegley <johnw@newartisans.com>
+
+ Repair :map handling in bind-key.el
+
+ GitHub-reference: fixes
https://github.com/jwiegley/use-package/issues/324
+
+2016-02-26 Bjarte Johansen <bjarte.johansen@gmail.com>
+
+ Quote variable in `bind-keys*'
+
+ * bind-key.el (bind-keys*): `override-global-map' needs to be quoted so
+ the symbol is passed to `bind-keys-form' and not the value.
+ GitHub-reference: fixes
https://github.com/jwiegley/use-package/issues/323
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Add configuration variable `use-package-check-before-init'
+
+ Fixes https://github.com/jwiegley/use-package/issues/306
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Use `add-to-list' defensively instead of `push'
+
+ GitHub-reference: fixes
https://github.com/jwiegley/use-package/issues/293
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Add variable `use-package-always-defer'
+
+ GitHub-reference: fixes
https://github.com/jwiegley/use-package/issues/202
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Restore :bind-keymap, it does something special still
+
+ Remove :bind-keymaps, and only apply :map bindings after load
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Support multiples uses of :map with :bind
+
+ GitHub-reference: fixes
https://github.com/jwiegley/use-package/issues/121
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Add some variable settings to use-package-tests.el, thanks tarsius
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from alezost/keymap-doc-fix
+
+ Handle the case when keymap has a broken documentation
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/223
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Add another `declare'
+
+2016-02-25 John Wiegley <johnw@newartisans.com>
+
+ Handle :unless correctly
+
+ GitHub-reference: fixes
https://github.com/jwiegley/use-package/issues/197
+
+2016-02-09 John Wiegley <johnw@newartisans.com>
+
+ Add a comment about a recent change
+
+2016-02-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from waymondo/master
+
+ Allow string values in cons for :bind keywords
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/303
+
+2016-02-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from dudebout/patch-1
+
+ Upper casing Cs corresponding to Ctrl
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/316
+
+2016-02-06 John Wiegley <johnw@newartisans.com>
+
+ Add an autoload cookie for `use-package'
+
+2016-02-05 Nicolas Dudebout <nicolas.dudebout@gmail.com>
+
+ Upper casing Cs corresponding to Ctrl
+
+ A number of Cs corresponding to Ctrl have been lower cased in comments
in eb6b81dfe.
+
+2016-02-04 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from thierryvolpiatto/fix_package_install
+
+ When :ensure is used install package as a selected package.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/314
+
+2016-02-04 Thierry Volpiatto <thierry.volpiatto@gmail.com>
+
+ Ensure package-install support a second argument
+
+ * use-package.el (use-package-ensure-elpa): Do it.
+
+2016-02-04 Thierry Volpiatto <thierry.volpiatto@gmail.com>
+
+ When :ensure is used install package as a selected package
+
+ Also shutup bytecompiler about package-archive-contents.
+
+ * use-package.el (use-package-ensure-elpa): Add package to selected
package
+ by using second arg of package install.
+
+2016-01-25 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from kovrik/fix-pin-performance
+
+ Do not package-initialize on each :pin
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/308
+
+2016-01-21 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/fix/always-pin-typo
+
+ Fix errant variable name.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/312
+
+2016-01-21 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Fix errant variable name
+
+2016-01-20 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/feature/always-pin
+
+ Add new option `-always-pin'
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/310
+
+2016-01-20 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Add new option `-always-pin'
+
+ `use-package-always-pin' allows a default archive (or manual) to be
+ specified for all use-package statements, unless explicitly overridden.
+
+2016-01-19 Ivan Goncharov <kovrik0@gmail.com>
+
+ Change condition that checks if package has been initialized
+
+2016-01-17 Ivan Goncharov <kovrik0@gmail.com>
+
+ Do not package-initialize on each :pin
+
+2016-01-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from kovrik/issue-299
+
+ Move :pin out of macro expansion phase
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/302
+
+2016-01-12 John Wiegley <johnw@newartisans.com>
+
+ Add a missing comma
+
+ Add a PREDICATE option to bind-key, and :filter to `bind-keys'
+
+2016-01-08 Justin Talbott <justin@waymondo.com>
+
+ allow string values in cons for :bind keywords
+
+ It is possible with `bind-key` and `define-key` (and also `bind-chord`
+ and `key-chord-define`) to define a binding to a string's value, i.e:
+
+ ``` elisp
+ (bind-key "C-;" "the ")
+ (bind-chord "^^" "λ")
+ ```
+
+ This adds an option for `(use-package-normalize-pairs)` that allows
+ string values to be given with the `:bind` (and also `:chord`) keywords
+ to expand into these definitions.
+
+2016-01-06 John Wiegley <johnw@newartisans.com>
+
+ Guard against a case where :load-paths is nil
+
+2016-01-05 Ivan Goncharov <kovrik0@gmail.com>
+
+ Move :pin out of macro expansion phase fixes
+
+ Move :pin out of macro expansion phase
+
+2015-12-20 John Wiegley <johnw@newartisans.com>
+
+ Use cl-mapcan rather than apply 'nconc; thanks wasamasa
+
+2015-11-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from kovrik/byte-compile-ensure-fix
+
+ Install packages when byte-compiling (fix by @npostavs)
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/285
+
+2015-11-12 Ivan Goncharov <kovrik0@gmail.com>
+
+ Install packages when byte-compiling (fix by @npostavs)
+
+2015-11-09 John Wiegley <johnw@newartisans.com>
+
+ Apply a fix from npostavs relating to
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/279
+
+2015-11-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from kovrik/master
+
+ Move :ensure option execution from macro expansion phase to runtime
phase
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/273
+
+2015-11-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/feature/after
+
+ Support for after keyword.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/276
+
+2015-11-04 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Support for after keyword
+
+ After provides `eval-after-load' functionality for any number of
+ features. This helps to avoid deeply nested `use-package' statements.
+
+ Closes https://github.com/jwiegley/use-package/issues/274
+
+2015-11-02 Ivan Goncharov <kovrik0@gmail.com>
+
+ Move :ensure option from macro expansion phase to runtime phase
+
+2015-09-26 John Wiegley <johnw@newartisans.com>
+
+ Bump version to 2.1
+
+2015-09-23 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from waymondo/extend-bind-handler
+
+ Pass in symbol of bind macro, for more extensible re-use of same handler
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/259
+
+2015-09-23 Justin Talbott <justin@waymondo.com>
+
+ pass in symbol of bind macro, for more extensible re-use of same handler
+
+ related to https://github.com/jwiegley/use-package/issues/258
+
+2015-09-06 John Wiegley <johnw@newartisans.com>
+
+ Revert "Merge pull request from edvorg/master"
+
+ This reverts commit 38b213c6c382f87b7f6e60d0c97d37f2951c2482, reversing
+ changes made to 7d34df4f5dd26b6d8b0899e6508c9af5dedf2dc4.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/247
+
+2015-08-30 Edward Knyshov <edvorg@gmail.com>
+
+ error handling for use-package
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/246
+
+2015-08-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from matklad/master
+
+ fix quotation error
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/245
+
+2015-08-17 Aleksey Kladov <aleksey.kladov@gmail.com>
+
+ fix quotation error
+
+2015-08-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/string-packages
+
+ Re-add support for string package names
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/225
+
+2015-08-14 Noam Postavsky <npostavs@gmail.com>
+
+ Re-add support for string package names
+
+ e.g. (use-package "isearch") rather than (use-package isearch)
+
+2015-08-01 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from nickalcock/master
+
+ Support :bind (:map '(...)).
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/235
+
+2015-07-31 Nick Alcock <nick.alcock@oracle.com>
+
+ Support :bind (:map '(...))
+
+ We transform it into (:map foo (...) (...)) in the normalizer, and
+ no longer warn about unknown sorts of arg.
+
+2015-06-22 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from thomasf/master
+
+ Refresh package.el archives if package is missing.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/210
+
+2015-06-22 Alex Kost <alezost@gmail.com>
+
+ Handle the case when keymap has a broken documentation
+
+2015-06-11 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from killdash9/keymap
+
+ bind-keymap fixes.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/199
+
+2015-06-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from syl20bnr/fix_hook_injection
+
+ Fix calls to run-hooks for :init and :config injected hooks
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/213
+
+2015-05-19 Sylvain Benner <sylvain.benner@gmail.com>
+
+ Fix calls to run-hooks for :init and :config injected hooks
+
+2015-05-08 Thomas Frössman <thomasf@jossystem.se>
+
+ Refresh package.el archives if package is missing
+
+2015-04-11 Russell Black <black.russell@gmail.com>
+
+ bind-keymap fixes
+
+ Override argument no longer ignored. Not adding keymap to list of
+ commands. `eval' no longer appears to be necessary, using direct
+ invocation of bind-key*.
+
+2015-03-25 John Wiegley <johnw@newartisans.com>
+
+ Keymap bindings must be interactive
+
+2015-03-24 John Wiegley <johnw@newartisans.com>
+
+ Failed to require a package is just a message
+
+ Minor fix to :diminish
+
+2015-03-23 John Wiegley <johnw@newartisans.com>
+
+ Fix a bug in the :delight support
+
+2015-03-22 John Wiegley <johnw@newartisans.com>
+
+ Add :delight support, thanks to darkfeline on GitHub
+
+ Fixes https://github.com/jwiegley/use-package/issues/189
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Add new customization use-package-always-ensure
+
+ Fixes https://github.com/jwiegley/use-package/issues/27
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ unbind-key now removes key from personal-keybindings
+
+ Fixes https://github.com/jwiegley/use-package/issues/74
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Fix file headers
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Add autoload stanzas to bind-key
+
+ Fixes https://github.com/jwiegley/use-package/issues/33
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Correction to an eval-after-load expansion
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Change use-package to use bind-keys and bind-keys*
+
+ Fixes https://github.com/jwiegley/use-package/issues/129
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Change bind-key* behavior to mimic bind-keys*
+
+ Fixes https://github.com/jwiegley/use-package/issues/148
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Whitespace cleanups
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ Allow :map in bind-keys to accept multiple maps
+
+ Fixes https://github.com/jwiegley/use-package/issues/129
+
+2015-03-21 John Wiegley <johnw@newartisans.com>
+
+ :pin should return `t'
+
+ Modular support appears to be working
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Began work on modular handling of keywords
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Rename use-package-with-elapsed-timer at an internal name
+
+ See https://github.com/jwiegley/use-package/issues/185
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Remove code I did not intend to commit
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/macroexp-progn
+
+ use-package-progn: replace with macroexp-progn
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/186
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Fix some docstrings
+
+2015-03-19 Noam Postavsky <npostavs@gmail.com>
+
+ use-package-progn: replace with macroexp-progn
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/name-keymap
+
+ get-binding-description: return keymap symbol
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/184
+
+2015-03-19 Noam Postavsky <npostavs@gmail.com>
+
+ get-binding-description: return keymap symbol
+
+ instead of "#<keymap>".
+
+2015-03-19 John Wiegley <johnw@newartisans.com>
+
+ Use push instead of add-to-list
+
+ Remove a hack that is not needed anymore
+
+2015-03-18 John Wiegley <johnw@newartisans.com>
+
+ macroexpand nested uses of use-package in :init and :config
+
+ Wrap the :preface in an eval-and-compile block
+
+ Remove a use of macroexpand
+
+ Make a warning more specific
+
+ More work to silence the byte-compiler
+
+2015-03-17 John Wiegley <johnw@newartisans.com>
+
+ Other minor improvements for byte-compiling
+
+ Several minor improvements and fixes
+
+ Change some code for consistency's sake
+
+2015-03-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from killdash9/keymap
+
+ minor fixes to get bind-keymap working in 2.0
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/176
+
+2015-03-17 Russell Black <black.russell@gmail.com>
+
+ minor fixes to get bind-keymap working in 2.0
+
+2015-03-16 John Wiegley <johnw@newartisans.com>
+
+ Always return t on a successful init-time load
+
+ Fixes https://github.com/jwiegley/use-package/issues/174
+
+2015-03-16 John Wiegley <johnw@newartisans.com>
+
+ Add to the load-path before the :preface
+
+ Fixes https://github.com/jwiegley/use-package/issues/172
+
+2015-03-16 John Wiegley <johnw@newartisans.com>
+
+ More fixes related to byte-compilation
+
+ A few changes for byte-compilation
+
+ :defer now accepts an optional number of seconds
+
+ Permit minimal expansion of macro bodies, and other fixes
+
+ Collapse some whitespace
+
+2015-03-16 John Wiegley <johnw@newartisans.com>
+
+ Allow vectors to be passed to :bind again
+
+ Fixes https://github.com/jwiegley/use-package/issues/166
+
+2015-03-16 John Wiegley <johnw@newartisans.com>
+
+ Add code to workaround an inefficiency with eval-after-load
+
+ This is currently disabled, as it leads to strange byte-compilation
+ errors that need to be tracked down.
+
+2015-03-16 John Wiegley <johnw@newartisans.com>
+
+ Output Compiling message only if verbose is enabled
+
+ Allow :pin to accept a symbol
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Relax a path normalization check
+
+ Correct an erroneous symbol reference
+
+ Update docstring for :disabled
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/eval-after-name
+
+ use--package: eval-after-load name
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/168
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Undo an erroneous change
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Add -hook to the injected hooks
+
+ Fixes https://github.com/jwiegley/use-package/issues/161
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Restore an earlier fix to
+
+ Fixes https://github.com/jwiegley/use-package/issues/167
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/53
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ BREAKING CHANGE: Remove :idle and :idle-priority
+
+ I am removing this feature for now because it can result in a nasty
+ inconsistency. Consider the following definition:
+
+ (use-package vkill
+ :commands vkill
+ :idle (some-important-configuration-here)
+ :bind ("C-x L" . vkill-and-helm-occur)
+ :init
+ (defun vkill-and-helm-occur ()
+ (interactive)
+ (vkill)
+ (call-interactively #'helm-occur))
+
+ :config
+ (setq vkill-show-all-processes t))
+
+ If I load my Emacs and wait until the idle timer fires, then this is the
+ sequence of events:
+
+ :init :idle <load> :config
+
+ But if I load Emacs and immediately type C-x L without waiting for the
+ idle timer to fire, this is the sequence of events:
+
+ :init <load> :config :idle
+
+ It's possible that the user could use `featurep` in their idle to test
+ for this case, but that's a subtlety I'd rather avoid.
+
+ What I would consider is this: `:idle [N]` is a keyword that simply
+ implies `:defer`, with an option number of N to specify a second count.
+ After that many seconds, if the package has not yet been loaded by
+ autoloading, it will be loaded via the idle timer.
+
+ This approach has the benefit of complete consistency for both the idle
+ and the autoloaded cases. Although, the fact that it implies `:defer`
+ means we don't have to consider what it means to add `:idle` behavior to
+ a demand-loaded configuration.
+
+2015-03-15 Noam Postavsky <npostavs@gmail.com>
+
+ use--package: eval-after-load name
+
+ instead of name-string. This prevents triggering by config file names
+ that have the same name as the package.
+
+ Reprise of c6d79d2cb40bd141f62eaca6dca47fb2e8e6943f
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Support optional injection of hooks, for Spacemacs
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Add :preface, occurring before everything except :disabled
+
+ This can be used to establish function and variable definitions that
+ will 1) make the byte-compiler happy (it won't complain about functions
+ whose definitions are unknown because you have them within a guard
+ block), and 2) allow you to define code that can be used in an `:if`
+ test.
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Some minor code reformatting
+
+ Fix to :ensure normalization
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from thomasf/master
+
+ Fix :ensure value interpretation
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/163
+
+2015-03-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/warning
+
+ use-package-expand: use display-warning
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/162
+
+2015-03-14 Thomas Frössman <thomasf@jossystem.se>
+
+ Fix :ensure value interpretation
+
+2015-03-14 Noam Postavsky <npostavs@gmail.com>
+
+ use-package-expand: use display-warning
+
+ instead of with-demoted-errors. This prevents errors from getting lost
+ in the *Messages* buffer.
+
+2015-03-14 John Wiegley <johnw@newartisans.com>
+
+ Begin refactoring for 2.0; NOTE: BREAKING CHANGES
+
+ The major change is that :init is now always performed before loading a
+ file, whether loading is deferred or not. This is a change from before,
+ where the semantics of :init varied between demand and defer. The new
+ usage is now entirely consistent.
+
+ Also, because :init and :config now mean "before" and "after", the
+ :pre-* and :post-* keywords are gone, as they should no longer be
+ necessary.
+
+ Lastly, an effort has been made to make your Emacs start even in the
+ presence of use-package configuration failures. So after this change,
+ be sure to check your *Messages* buffer. Most likely, you will have
+ several instances where you are using :init, but should be using :config
+ (this was the case for me in a number of places).
+
+2015-03-13 John Wiegley <johnw@newartisans.com>
+
+ Many stylistics cleanups and simplifications
+
+2015-03-13 John Wiegley <johnw@newartisans.com>
+
+ Revert "Don't add autoload for existing commands"
+
+ This reverts commit a2b23f8326d06690c8092ecc5e83ba2e4dd3c336.
+
+2015-03-13 John Wiegley <johnw@newartisans.com>
+
+ Stylistic changes
+
+ Minor style edits
+
+ Minor changes
+
+ Show more informative errors when they occur
+
+2015-01-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/master
+
+ Allow using expanded macro without loading feature
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/151
+
+2015-01-18 Jonas Bernoulli <jonas@bernoul.li>
+
+ Allow using expanded macro without loading feature
+
+ In the macro `use-package-with-elapased-timer' use `bound-and-true-p'
+ go get the values of the customizable options `use-package-verbose'
+ and `use-package-minimum-reported-time'. This way the library only
+ has to be required at compile time, provided these options are not
+ actually customized. If the user has changed the values, then she
+ also has to load the library at runtime or the macros fall back to
+ the default of doing their job silently. See
https://github.com/jwiegley/use-package/issues/149.
+
+2015-01-04 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from killdash9/keymap
+
+ Passing t into keymap function
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/145
+
+2015-01-03 Russell Black <black.russell@gmail.com>
+
+ Passing t into keymap function
+
+2015-01-02 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from killdash9/keymap
+
+ :bind-keymap - bind a key prefix to an autoloaded package keymap
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/142
+
+2015-01-02 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from thiagowfx/patch-1
+
+ fix small typo (key > keymap)
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/144
+
+2015-01-02 Thiago Barroso Perrotta <thiagoperrotta95@gmail.com>
+
+ fix small typo (key > keymap)
+
+2014-12-31 Russell Black <black.russell@gmail.com>
+
+ :bind-keymap - bind a key prefix to an autoloaded package keymap
+
+2014-12-20 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from vermiculus/master
+
+ Do not quote lambda expressions
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/140
+
+2014-12-19 Sean Allred <code@seanallred.com>
+
+ Do not quote lambda expressions
+
+ http://emacs.stackexchange.com/a/3596
+
+ Quoting lambda expressions is at best redundant and at worst
+ detrimental; this commit removes all use of the sharp-quote to reduce
+ confusion.
+
+2014-12-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from YoungFrog/fixautoloads
+
+ Don't add autoload for existing commands
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/138
+
+2014-12-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from peterhoeg/master
+
+ Check if an archive is valid when pinning
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/137
+
+2014-12-17 Peter Hoeg <peter@speartail.com>
+
+ Check if package-archives are valid when pinning
+
+2014-12-17 Nicolas Richard <theonewiththeevillook@yahoo.fr>
+
+ Don't add autoload for existing commands
+
+2014-12-16 Peter Hoeg <peter@speartail.com>
+
+ pure cleanup
+
+2014-12-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from peterhoeg/master
+
+ Support for pinning package to archive
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/136
+
+2014-12-11 Peter Hoeg <peter@speartail.com>
+
+ support for pinning package to archive
+
+2014-09-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from Silex/master
+
+ Fix "compiling" typo
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/125
+
+2014-09-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from waymondo/master
+
+ Add :bind* keyword for `bind-key*`
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/126
+
+2014-09-16 Justin Talbott <justin@waymondo.com>
+
+ add :bind* keyword for `bind-key*`
+
+2014-09-16 Philippe Vaucher <philippe.vaucher@gmail.com>
+
+ Fix "compiling" typo
+
+2014-09-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from thomasf/master
+
+ Display which package that has compile errors
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/124
+
+2014-09-14 Thomas Frössman <thomasf@jossystem.se>
+
+ Display which package that has compile errors
+
+2014-09-08 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/master
+
+ assume the declare-function macro exists
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/123
+
+2014-09-07 Jonas Bernoulli <jonas@bernoul.li>
+
+ assume the declare-function macro exists
+
+ Since `declare-function' was added in Emacs 23.1 (five years ago), we
+ don't need to assert that it is defined. If the assertion was without
+ any problems there would be no harm in keeping it, but unfortunately it
+ causes a compile warning. Because `declare-function' is a macro with
+ always expands to `nil' the value of (fboundp 'declare-function) ends
+ up being unused.
+
+2014-06-20 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from BernardHurley/master
+
+ bind-keys macro changed to allow prefix map to have a menu string.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/112
+
+2014-06-20 Bernard Hurley <bernard@marcade.biz>
+
+ bind-keys macro changed to allow prefix map to have a menu string
+
+2014-05-31 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/desc-vector
+
+ Avoid putting vector key sequences in personal-keybindings
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/110
+
+2014-05-31 Noam Postavsky <npostavs@gmail.com>
+
+ bind-key: cleanup
+
+2014-05-31 Noam Postavsky <npostavs@gmail.com>
+
+ bind-key: no vector keys in personal-keybindings
+
+ describe-personal-keybindings requires the key sequences to be stored as
+ strings.
+
+2014-05-31 Noam Postavsky <npostavs@gmail.com>
+
+ personal-keybindings: add docstring
+
+ fix typo in bind-key docstring
+
+2014-05-25 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from alezost/bind-keys
+
+ Add bind-keys*
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/107
+
+2014-05-25 Alex Kost <alezost@gmail.com>
+
+ Add bind-keys* macro
+
+2014-05-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from thomasf/master
+
+ Don't abort compiling package loading fails
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/106
+
+2014-05-17 Thomas Frössman <thomasf@jossystem.se>
+
+ Don't abort compiling if package loading fails
+
+2014-05-08 John Wiegley <johnw@newartisans.com>
+
+ Revert "Merge pull request from alexko/master"
+
+ This reverts commit 8c04377608bd9b27d6fc6c37990984185563a907, reversing
+ changes made to a9ba368fa79e4c15b624de73e30c87c98475d466.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/104
+
+2014-05-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from alexko/master
+
+ if package can't be located, treat it the same way as disabled
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/104
+
+2014-05-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from YoungFrog/fix-mult-mode
+
+ Eval backquote earlier and support non-`progn' lists.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/95
+
+2014-05-06 Alex Kosorukoff <alex@3form.com>
+
+ if package can't be located, treat it the same way as disabled
+
+ There will be a message "Unable to locate <package-name>" in the log.
+
+2014-05-05 Nicolas Richard <theonewiththeevillook@yahoo.fr>
+
+ Eval backquote earlier and support non-`progn' lists
+
+ * use-package.el (use-package-plist-get): add optional args:
`eval-backquote'
+ and `no-progn' to control how arguments are retrieved.
+ (use-package-plist-get-value): remove this function
+ (use-package): replace calls to old function to modified function.
+
+ Fixes issue https://github.com/jwiegley/use-package/issues/94.
+
+ Rationale :
+ - use-package-plist-get-value was just another layer for no good reason,
+ and IMO its name was totally unclear.
+ - we now eval-as-backquote earlier, allowing constructs like:
+ (let ((my-list-of-commands-in-foo '(foo1 foo2)))
+ (use-package foo :commands ,@my-list-of-commands-in-foo))
+
+2014-04-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from YoungFrog/keynameeval
+
+ * bind-key.el (bind-key): don't eval key-name at macro expansion time.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/102
+
+2014-04-14 Nicolas Richard <theonewiththeevillook@yahoo.fr>
+
+ * bind-key.el (bind-key): don't eval key-name at macro expansion time
+
+2014-04-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/bind-vectors
+
+ bind-keys: bind directly to prefix-map
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/101
+
+2014-04-14 Noam Postavsky <npostavs@gmail.com>
+
+ bind-keys: bind directly to prefix-map
+
+ instead of constructing equivalent key sequence by string concatenation.
+ This allows specifying vector key sequences, as in bind-key (since
+ f0776c2aeb3f7f0af66597e10a3e4469ca26629d).
+
+2014-04-14 Noam Postavsky <npostavs@gmail.com>
+
+ bind-keys: ,@(when map (list map)) => map
+
+ Omitting map is same as passing nil.
+
+2014-04-14 Noam Postavsky <npostavs@gmail.com>
+
+ fix typo
+
+ Actually the reader accepts (list 'a'b) = (list 'a 'b); it still looks
+ wrong.
+
+2014-03-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from YoungFrog/idle-interval
+
+ Add new option use-package-idle-interval.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/99
+
+2014-03-17 Nicolas Richard <theonewiththeevillook@yahoo.fr>
+
+ Add new option use-package-idle-interval
+
+ * use-package.el (use-package-idle-interval): new defcustom
+ (use-package-start-idle-timer): use it
+ (use-package-idle-eval): use it
+ * README.md: document it
+
+ This addresses bug https://github.com/jwiegley/use-package/issues/77
+
+2014-03-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from ffevotte/idle-priority
+
+ Add a :idle-priority keyword to change the running order of idle
functions
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/98
+
+2014-03-17 François Févotte <fevotte@gmail.com>
+
+ :idle-priority keyword to change the running order of idle functions
+
+ Lower-priority idle functions are run first. Idle functions with no
+ specified priority default to 5 and all functions with the same priority
+ are run in the order in which they are evaluated, meaning the behaviour
+ is backwards compatible.
+
+ Updated documentation as well.
+
+2014-03-10 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/master
+
+ use-package-with-elapsed-timer: respect option at runtime
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/96
+
+2014-03-09 Jonas Bernoulli <jonas@bernoul.li>
+
+ use-package-font-lock-keywords: add use-package-with-elapsed-timer
+
+ use-package-with-elapsed-timer: add declare indent rule
+
+2014-03-09 Jonas Bernoulli <jonas@bernoul.li>
+
+ use-package-with-elapsed-timer: respect option at runtime
+
+ Previously the option `use-package-verbose' was consulted at macro
+ expansion time, and as a result customizing the option did nothing,
+ without also recompiling `use-package.el'.
+
+2014-03-02 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/bind-vector
+
+ let bind-key accept vectors, add docstring
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/92
+
+2014-03-01 Noam Postavsky <npostavs@gmail.com>
+
+ let bind-key accept vectors, add docstring
+
+2014-02-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from Fuco1/variable-col-width
+
+ Add variable column width
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/90
+
+2014-02-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from Fuco1/special-form-desc
+
+ Add better descriptions for lambdas, closures, keymaps
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/89
+
+2014-02-18 Matus Goljer <dota.keys@gmail.com>
+
+ Add variable column width
+
+ Add better descriptions for lambdas, closures, keymaps
+
+2014-02-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from Fuco1/bind-keys
+
+ Add `bind-keys` macro
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/87
+
+2014-02-13 Matus Goljer <dota.keys@gmail.com>
+
+ Add `bind-keys` macro
+
+2014-02-12 Nicolas Richard <theonewiththeevillook@yahoo.fr>
+
+ Move tests to separate file
+
+2014-02-10 Nicolas Richard <theonewiththeevillook@yahoo.fr>
+
+ Allow multiple forms after keywords
+
+ * use-package.el (use-package-mplist-get):
+ (use-package-plist-get):
+ (use-package-mplist-keys): new functions
+
+ (plist-get-value):
+ (use-package): use new functions
+
+ (plist-keys): remove function
+
+ The idea is to allow a modified kind of plist where keys are all
+ keywords that appear in the list, and values are the intermediary
+ elements. If a keyword is present but it's another keyword just after it
+ (like (use-package :defer :config (setq foo 'bar))), its associated
+ value will be t. If a keyword is not present, its value associated value
+ will be nil. Otherwise the value will be the list of elements between
+ the keyword and the next keyword.
+
+2014-02-05 Adam Spiers <emacs@adamspiers.org>
+
+ stop describe-personal-keybindings adding trailing space
+
+ When emacs is configured to highlight trailing whitespace,
+ the *Personal Keybindings* buffer looked pretty ugly.
+ This fixes that.
+
+2014-01-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aspiers/best-practices
+
+ Start addressing some of @jaalto's submitted issues.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/79
+
+2014-01-06 Adam Spiers <emacs@adamspiers.org>
+
+ fix bind-key URL (fixes)
+
+ Also makes a start on https://github.com/jwiegley/use-package/issues/32.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/58
+
+2014-01-06 Adam Spiers <emacs@adamspiers.org>
+
+ add 'use-package-' prefix to 'with-elapsed-timer'
+
+ Fixes https://github.com/jwiegley/use-package/issues/35.
+
+2014-01-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aspiers/hyperlink-all-bindings
+
+ hyperlink functions in Comments column
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/76
+
+2014-01-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aspiers/docs
+
+ Synchronise docs and then remove one copy to prevent future issues.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/78
+
+2014-01-06 Adam Spiers <emacs@adamspiers.org>
+
+ fix DRY violation by only having documentation in one place
+
+ The documentation in README.md was previously identical to that
+ in the Commentary section of use-package.el, modulo the following
+ differences:
+
+ - No elisp comment ";; " prefix
+ - Code blocks indented 4 columns not 2, as required by Markdown
+ - Elisp symbols marked in backtick delimiters for monospace, not
+ emacs backtick/forward tick pairs.
+
+ Unfortunately due to this duplication, sometimes only one of the
+ two files got updated, so they got out of sync. With us all being
+ human, this is likely to continue to happen as long as the
+ duplication exists ;-) Therefore since most users are likely to
+ encounter README.md before the elisp, and bearing in mind that
+ Markdown is a much more flexible format for documentation than
+ elisp comments (richer formatting, can be exported to numerous
+ other formats etc.), it is better to replace the docs in
+ use-package.el with a pointer to the README.md.
+
+2014-01-04 Adam Spiers <emacs@adamspiers.org>
+
+ hyperlink functions in Comments column
+
+ Previously, only the functions in the Command column were hyper-linked.
+ Also clarify the meaning of the "was" entries in the Comments column.
+
+2013-12-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aspiers/short-mode
+
+ allow :mode and :interpreter to accept a string
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/73
+
+2013-12-16 Adam Spiers <emacs@adamspiers.org>
+
+ allow :mode and :interpreter to accept a string
+
+ Fixes https://github.com/jwiegley/use-package/issues/72.
+
+2013-12-09 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/defun
+
+ use-package: use defun as lisp-indent-function
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/69
+
+2013-12-09 Jonas Bernoulli <jonas@bernoul.li>
+
+ use-package: use defun as lisp-indent-function
+
+ When `use-package' is called with only one keyword it is useful to
+ write:
+
+ (use-package foo :init
+ (progn
+ ... long lines ...))
+
+ instead of
+
+ (use-package foo
+ :init (progn
+ ... *too* long lines ...))
+
+ or
+
+ (use-package foo
+ :init
+ (progn
+ ... long lines ...))
+
+ Even when there are multiple keywords or when one never wants to format
+ the calls to `use-package' as in the first example the use of `defun'
+ does not really pose a problem.
+
+2013-12-04 John Wiegley <johnw@newartisans.com>
+
+ Add a :demand directive, to override deferred loading ()
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/65
+
+2013-12-04 John Wiegley <johnw@newartisans.com>
+
+ fboundp is a function, not a variable
+
+ Fixes https://github.com/jwiegley/use-package/issues/68
+
+2013-12-04 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from dabrahams/patch-1
+
+ Backward compatibility with emacs-22.1
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/67
+
+2013-12-02 Dave Abrahams <dave@boostpro.com>
+
+ Backward compatibility with emacs-22.1
+
+ This change supports the emacs that ships with MacOS X, the last
version not encumbered by GPLv3.
+
+2013-12-02 John Wiegley <johnw@newartisans.com>
+
+ Default use-package-verbose to nil
+
+2013-11-05 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from Silex/master
+
+ Remove el-get support
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/64
+
+2013-11-05 Philippe Vaucher <philippe.vaucher@gmail.com>
+
+ Remove el-get support
+
+2013-10-28 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aethanyc/add-missing-keyword
+
+ Add :pre-load to use-package-keywords
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/62
+
+2013-10-25 Ting-Yu Lin <aethanyc@gmail.com>
+
+ Add :pre-load to use-package-keywords
+
+ The :pre-load keyword cannot be used unless it is in
+ `use-package-keywords' list.
+
+2013-10-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from PhilHudson/master
+
+ Properly enable runtime dependency for :idle stanza (issue
https://github.com/jwiegley/use-package/issues/60)
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/61
+
+2013-10-15 Phil Hudson <phil.hudson@iname.com>
+
+ Properly enable runtime dependency for :idle stanza (issue)
+
+ See issue https://github.com/jwiegley/use-package/issues/60.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/60
+
+2013-10-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/comma
+
+ remove extra comma (added by 026c46c)
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/59
+
+2013-10-14 Noam Postavsky <npostavs@gmail.com>
+
+ remove extra comma (added by 026c46c)
+
+2013-10-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/cleanup
+
+ Cleanup
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/57
+
+2013-10-12 Noam Postavsky <npostavs@gmail.com>
+
+ let with-elapsed-timer return last form
+
+ make `with-elapsed-timer' hygienic
+
+ with-elapsed-timer: only check verbosity once
+
+2013-10-12 Noam Postavsky <npostavs@gmail.com>
+
+ remove after-init-hook for override-global-mode
+
+ The INIT-VALUE argument to define-minor-mode is t, so it's enabled by
+ default.
+
+2013-10-12 Noam Postavsky <npostavs@gmail.com>
+
+ macroexpand not needed
+
+ Since lambda thunking replaced quoting in a76d167.
+
+ To see why, observe that cases 3 and 4 disassemble to identical code.
+ The difference between cases 1 and 2 shows why the macroexpand was
+ needed originally.
+
+ (defmacro test-quote (name-string)
+ `(eval-after-load "foo"
+ `(with-elapsed-timer ,(format "Configuring package %s" name-string)
+ (message "test-quote"))))
+
+ (defmacro test-expand-quote (name-string)
+ `(eval-after-load "foo"
+ ,(macroexpand-all
+ `(with-elapsed-timer ,(format "Configuring package %s"
name-string)
+ (message "test-expand-quote")))))
+
+ (defmacro test-lambda (name-string)
+ `(eval-after-load "foo"
+ `(,(lambda ()
+ (with-elapsed-timer ,(format "Configuring package %s"
name-string)
+ (message "test-lambda"))))))
+
+ (defmacro test-expand-lambda (name-string)
+ `(eval-after-load "foo"
+ `(,(lambda ()
+ ,(macroexpand-all
+ `(with-elapsed-timer ,(format "Configuring package %s"
name-string)
+ (message "test-lambda")))))))
+
+ (disassemble (lambda () (test-quote "testing...")))
+ (disassemble (lambda () (test-expand-quote "testing...")))
+ (disassemble (lambda () (test-lambda "testing...")))
+ (disassemble (lambda () (test-expand-lambda "testing...")))
+
+2013-10-12 Noam Postavsky <npostavs@gmail.com>
+
+ cl not needed since flet was removed in 82903da
+
+2013-10-07 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/first-keyword
+
+ Add a ":first" keyword for those occasions that it's necessary.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/42
+
+2013-09-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/quasiquote
+
+ Quasiquote
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/56
+
+2013-09-25 Noam Postavsky <npostavs@gmail.com>
+
+ use plist-get-value for all non-sexp args
+
+2013-09-25 Noam Postavsky <npostavs@gmail.com>
+
+ plist-get-value treats arg as backquoted
+
+ This allows use of variables or even arbitrary expressions to construct
+ use-package arguments:
+
+ (use-package some-package
+ :mode ,mode-spec
+ :bind (,binding
+ ,@more-bindings
+ ,@(cl-loop for i from ?a to ?z
+ collect `(,(string i) . nifty-function))))
+
+2013-09-25 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from dudebout/fixes-
+
+ Removes `plist-get-sexp`
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/55
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/54
+
+2013-09-25 Nicolas Dudebout <nicolas.dudebout@gmail.com>
+
+ Removes `plist-get-sexp`
+
+ This function was not working as advertised.
+ Then `funcall` was evaluated too early and all the benefits of late
evaluation for autoloads was lost.
+ Furthermore, this function was not really needed in the first place:
+
+ ```
+ (use-package foo
+ :config my-foo-function)
+ ```
+
+ can easily be replaced by the following:
+
+ ```
+ (use-package foo
+ :config (my-foo-function))
+ ```
+
+2013-09-24 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from dudebout/variable-and-function-support
+
+ Enables using variables and functions as arguments
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/54
+
+2013-09-24 Nicolas Dudebout <nicolas.dudebout@gmail.com>
+
+ Enables using variables and functions as arguments
+
+ This change an extra level on indirection for two cases:
+
+ + when an association or an alist is required, it is possible to pass a
+ variable containing an association or an alist
+ + when a sexp to be evaluated is required, it is possible to pass a
+ function instead
+
+2013-09-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/eval-after-name
+
+ pass name (not name-string) to eval-after-load
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/53
+
+2013-09-16 Noam Postavsky <npostavs@gmail.com>
+
+ pass name (not name-string) to eval-after-load
+
+ Fixes https://github.com/jwiegley/use-package/issues/52: the :config
block would be triggered when loading a config
+ file with the same name as the package and again when loading the
+ package itself.
+
+2013-09-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aethanyc/fix-highlight
+
+ Fix highlight use-package for Emacs snapshot
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/49
+
+2013-09-13 Ting-Yu Lin <aethanyc@gmail.com>
+
+ Fix highlight use-package for Emacs snapshot
+
+ The commit 57f80d4 fixed the highlight by following the regexp as for
+ require. However in Emacs truck, it only highlights first part of the
+ package name.
+
+ This change follows the regexp for require on emacs truck. See line
+ 2327 on font-lock.el in the following patch.
+ http://bzr.savannah.gnu.org/lh/emacs/trunk/revision/111821
+
+2013-09-04 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/hilite-redux
+
+ highlight use-package before typing package name
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/47
+
+2013-09-04 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from aethanyc/improve-output-buffer
+
+ Improve (describe-personal-keybindings) output
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/48
+
+2013-09-04 Ting-Yu Lin <aethanyc@gmail.com>
+
+ Improve (describe-personal-keybindings) output
+
+ Create *Personal Keybindings* by with-output-to-temp-buffer. It
+ redirects standard output to the buffer and display it in help mode. So
+ we can get help mode keybindings such as "q" for free.
+
+ Quote the command-desc output so that it is made into a hyperlink.
+
+2013-09-03 Noam Postavsky <npostavs@gmail.com>
+
+ highlight use-package before typing package name
+
+ This follow the same pattern as the highlighting for provide and require
+ from `lisp-font-lock-keywords-2' in font-lock.el
+
+2013-08-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/master
+
+ also check `byte-compile-current-file' for compile time loads, fixes
issue https://github.com/jwiegley/use-package/issues/44
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/45
+
+2013-08-15 Noam Postavsky <npostavs@gmail.com>
+
+ also check `byte-compile-current-file' for compile time loads, fixes
issue
+
+ `eval-when-compile' is really `eval-when-macroexpand' which includes
+ loading from source
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/44
+
+2013-08-15 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Changed :first to :pre-load
+
+ Updated and extended documentation.
+
+2013-08-13 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/master
+
+ Byte compilation, fixes for
https://github.com/jwiegley/use-package/issues/29 and
https://github.com/jwiegley/use-package/issues/30
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/43
+
+2013-08-13 Noam Postavsky <npostavs@gmail.com>
+
+ use lambda around deferred :config forms to compile them, fixes issue
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/30
+
+2013-08-13 Noam Postavsky <npostavs@gmail.com>
+
+ use `eval-when-compile' for loading package at compile time, fixes issue
+
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/29
+
+2013-08-13 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Add a ":first" keyword for those occasions that it's necessary
+
+2013-08-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/master
+
+ refine use-package highlighting regexp
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/41
+
+2013-08-11 Noam Postavsky <npostavs@gmail.com>
+
+ refine use-package highlighting regexp
+
+2013-07-28 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from purcell/patch-2
+
+ Fix initial line to satisfy package.el
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/40
+
+2013-07-28 Steve Purcell <steve@sanityinc.com>
+
+ Fix initial line to satisfy package.el
+
+2013-07-03 Phil Hudson <phil.hudson@iname.com>
+
+ Validate keywords. Error if any keyword is unrecognized
+
+ Conflicts:
+ use-package.el
+
+2013-06-26 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/ensure-doc
+
+ Ensure doc
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/37
+
+2013-06-26 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Added documentation to use-package macro
+
+ Documentation added for :ensure keyword
+
+2013-05-15 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from milkypostman/master
+
+ package header should be the full filename + ext
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/28
+
+2013-05-15 Donald Curtis <dcurtis@milkbox.net>
+
+ package header should, hold, sold be the full filename + ext
+
+ this fixes a bug in using `(package-buffer-info)`
+
+2013-04-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/font-lock
+
+ fontify use-package form
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/25
+
+2013-04-27 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from tarsius/master
+
+ some small cleanups
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/24
+
+2013-04-27 Jonas Bernoulli <jonas@bernoul.li>
+
+ fontify use-package form
+
+ add dots; cleanup whitespace
+
+ quiet byte-compiler; ensure package.el is loaded
+
+2013-04-27 Jonas Bernoulli <jonas@bernoul.li>
+
+ don't use obsolete flet
+
+ Unfortunately there isn't a proper dynamically scoped
+ replacement, so we have to resort to using funcall.
+
+2013-04-27 Jonas Bernoulli <jonas@bernoul.li>
+
+ enforce use of spaces for indentation
+
+2013-04-23 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from purcell/patch-1
+
+ Add Package-Requires header for ELPA installations
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/22
+
+2013-04-23 Steve Purcell <steve@sanityinc.com>
+
+ Add Package-Requires header for ELPA installations
+
+2013-04-16 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/easy-diminish
+
+ needed extra layer of nesting for diminish calls
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/21
+
+2013-04-16 Noam Postavsky <npostavs@gmail.com>
+
+ needed extra layer of nesting for diminish calls
+
+2013-04-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/easy-diminish
+
+ let :diminish "string" guess correct mode symbol
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/20
+
+2013-04-14 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from npostavs/bind-override
+
+ let bind-key* override minor modes with emulation-mode-map-alists
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/19
+
+2013-04-14 Noam Postavsky <npostavs@gmail.com>
+
+ let :diminish "string" guess correct mode symbol
+
+2013-04-13 Noam Postavsky <npostavs@gmail.com>
+
+ let bind-key* override minor modes with emulation-mode-map-alists
+
+2013-03-23 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from PhilHudson/master
+
+ Macro expansion redux
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/17
+
+2013-03-23 Phil Hudson <phil.hudson@iname.com>
+
+ Runtime client code independence redux
+
+ Tweak to previous fix for expanding macros correctly at code-planting
time. Specifically, eval `use-package-minimum-reported-time' at code-planting
time not at runtime (which would require use-package.el to be loaded first).
+
+2013-02-18 John Wiegley <johnw@newartisans.com>
+
+ Corrected a typo
+
+2013-02-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/master
+
+ Support for idle loading of packages
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/16
+
+2013-02-12 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Merge branch 'master' of https://github.com/jwiegley/use-package
+
+2013-02-12 Phillip Lord <phillip.lord@russet.org.uk>
+
+ idle initiation of packages
+
+ A new feature which adds support for idle startup and loading of
packages.
+
+2013-02-06 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/master
+
+ Load time display option.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/15
+
+2013-02-05 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Added minimum load time display option
+
+ Makes the minimum load time before use-package displays
+ a message a customizable option.
+
+2013-01-28 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from bdd/master
+
+ Remove trailing whitespace
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/14
+
+2013-01-28 Berk D. Demir <bdd@mindcast.org>
+
+ Cleanup trailing whitespace
+
+ Just `M-x delete-trailing-whitespace' on use-package.el
+
+2013-01-23 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from PhilHudson/macroexpand
+
+ Macroexpand quoted eval-after-load block early
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/13
+
+2013-01-23 Phil Hudson <phil.hudson@iname.com>
+
+ Macroexpand quoted eval-after-load block early
+
+ The main `use-package' macro incorrectly planted code containing a call
to the `with-elapsed-timer' macro in a quoted block to be run by
`eval-after-load'. If package use-package was not loaded at runtime, the block
would error saying correctly that `with-elapsed-timer' is undefined. This mod
correctly macroexpands the block at code generation time.
+
+2013-01-18 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/master
+
+ Better support for ELPA.
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/11
+
+2013-01-18 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Support packages where autoload and elpa name are different
+
+ Some packages such as ECB already provide an autoload file,
+ so it is this that use-package needs to require. However,
+ the ELPA name is ecb. This commit allows ensure to take an
+ argument (other than t).
+
+2013-01-17 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/master
+
+ Inline documentation
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/10
+
+2013-01-17 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Documentation for the use-package macro
+
+2013-01-17 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Reverting "Documentation for the use-package macro."
+
+ Revert "Documentation for the use-package macro."
+
+ This reverts commit abc0ebc92dc1cf9ef9adfe133d0b30bf7382b65c.
+
+2013-01-17 Phillip Lord <phillip.lord@russet.org.uk>
+
+ Documentation for the use-package macro
+
+2013-01-12 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from phillord/master
+
+ ELPA support
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/9
+
+2012-12-31 Phillip Lord <phillip.lord@russet.org.uk>
+
+ ELPA package support
+
+2012-11-20 John Wiegley <johnw@newartisans.com>
+
+ Merge pull request from PhilHudson/master
+
+ Support optional diminish replacement string parameter using conses
+ GitHub-reference: https://github.com/jwiegley/use-package/issues/4
+
+2012-11-20 Phil Hudson <phil.hudson@iname.com>
+
+ Support diminishing to a replacement string as well as to nothing
+
+ `diminish' accepts an optional second argument, a replacement string.
This change supports all the following arguments to ':diminish':
+
+ * package
+ * (package . "pkg")
+ * (package1 package2)
+ * ((package1 . "p1") (package2 . "p2))
+
+ The second and fourth formats are new with this change.
+
+2012-07-30 John Wiegley <johnw@newartisans.com>
+
+ Use-package now accepts function as argument
+
+2012-07-11 John Wiegley <johnw@newartisans.com>
+
+ Only use user-site-lisp-directory if defined
+
+2012-06-26 John Wiegley <johnw@newartisans.com>
+
+ Correct return value from with-elapsed-timer
+
+2012-06-22 John Wiegley <johnw@newartisans.com>
+
+ More updates to support el-get
+
+ Byte-compilation related fix
+
+2012-06-21 John Wiegley <johnw@newartisans.com>
+
+ Added :pre-init
+
+2012-06-20 John Wiegley <johnw@newartisans.com>
+
+ Establish autoloads after :init
+
+2012-06-17 John Wiegley <johnw@newartisans.com>
+
+ Added :mode and :interpreter keywords
+
+ Add a note about how to use :load-path
+
+ If :load-path is absolute, don't expand it
+
+ Die typos, die
+
+ Fixed a typo
+
+ Minor reformatting
+
+ Minor grammatical nit
+
+ Integrated support for working with el-get
+
+ Make use-package-verbose customizable
+
+ Have loading timer include time to require
+
+ Fixed a typo in bind-key.el
+
+ README and other updates
+
+2022-04-04 Eli Zaretskii <eliz@gnu.org>
+
+ * Version 28.1 released.
+
+2022-04-03 Eli Zaretskii <eliz@gnu.org>
+
+ Bump Emacs version to 28.1
+
+ * README:
+ * configure.ac:
+ * nt/README.W32:
+ * msdos/sed2v2.inp: Bump Emacs version to 28.1
+
+This file records repository revisions from
+commit f2ae39829812098d8269eafbc0fcb98959ee5bb7 (exclusive) to
+commit ce7d18cbc07886b0d62110a6d26e25271017cd2a (inclusive).
+See ChangeLog.3 for earlier changes.
+
+;; Local Variables:
+;; coding: utf-8
+;; End:
+
+ Copyright (C) 2022 Free Software Foundation, Inc.
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
diff --git a/INSTALL b/INSTALL
index 344ae39f464..2bb8df52dc9 100644
--- a/INSTALL
+++ b/INSTALL
@@ -394,6 +394,12 @@ typical 32-bit host, Emacs integers have 62 bits instead
of 30.
Use --with-cairo to compile Emacs with Cairo drawing.
+Use --with-cairo-xcb to also utilize the Cairo XCB backend on systems
+where it is available. While such a configuration is moderately
+faster when running over X connections with high latency, it is likely
+to crash when a new frame is created on a display connection opened
+after a display connection is closed.
+
Use --with-modules to build Emacs with support for dynamic modules.
This needs a C compiler that supports '__attribute__ ((cleanup (...)))',
as in GCC 3.4 and later.
diff --git a/Makefile.in b/Makefile.in
index 2fb7754d683..729cd4140e5 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -417,9 +417,9 @@ advice-on-failure:
sanity-check:
@[ -f .no-advice-on-failure ] && exit 0; true
- @v=$$(src/emacs${EXEEXT} --batch --eval \
+ @v=`src/emacs${EXEEXT} --batch --eval \
'(progn (defun f (n) (if (= 0 n) 1 (* n (f (- n 1))))) (princ (f
10)))' \
- 2> /dev/null); \
+ 2> /dev/null`; \
[ "X$$v" = "X3628800" ] && exit 0; \
echo >&2 '***'; \
echo >&2 '*** '"\"make ${make-target}\" succeeded, but Emacs is not
functional."; \
@@ -841,7 +841,7 @@ install-etc:
rm -f $${tmp}
tmp=etc/emacsclient.tmpdesktop; rm -f $${tmp}; \
client_name=`echo emacsclient | sed '$(TRANSFORM)'`${EXEEXT}; \
- sed -e "/^Exec=emacsclient/ s|emacsclient|${bindir}/$${client_name}|" \
+ sed -e "/^Exec=/ s|emacsclient|${bindir}/$${client_name}|" \
-e "/^Icon=emacs/ s/emacs/${EMACS_NAME}/" \
$(USE_STARTUP_NOTIFICATION_SED_CMD) \
${srcdir}/etc/emacsclient.desktop > $${tmp}; \
@@ -855,7 +855,7 @@ install-etc:
rm -f $${tmp}
tmp=etc/emacsclient-mail.tmpdesktop; rm -f $${tmp}; \
client_name=`echo emacsclient | sed '$(TRANSFORM)'`${EXEEXT}; \
- sed -e "/^Exec=emacsclient/ s|emacsclient|${bindir}/$${client_name}|" \
+ sed -e "/^Exec=/ s|emacsclient|${bindir}/$${client_name}|" \
-e "/^Icon=emacs/ s/emacs/${EMACS_NAME}/" \
${srcdir}/etc/emacsclient-mail.desktop > $${tmp}; \
${INSTALL_DATA} $${tmp}
"$(DESTDIR)${desktopdir}/$${client_name}-mail.desktop"; \
@@ -1030,6 +1030,9 @@ $(foreach dir,$(distclean_dirs),$(eval $(call
submake_template,$(dir),distclean)
distclean: $(distclean_dirs:=_distclean) clean-gsettings-schemas
${top_distclean}
+ifeq ($(HAVE_NATIVE_COMP),yes)
+ rm -rf native-lisp
+endif
### 'bootstrap-clean'
### Delete everything that can be reconstructed by 'make' and that
@@ -1284,7 +1287,7 @@ PREFERRED_BRANCH = emacs-28
preferred-branch-is-current:
git branch | grep -q '^\* $(PREFERRED_BRANCH)$$'
unchanged-history-files:
- x=$$(git diff-files --name-only $(CHANGELOG_N) $(emacslog)) && \
+ x=`git diff-files --name-only $(CHANGELOG_N) $(emacslog)` && \
test -z "$$x"
# Regular expression that matches the newest commit covered by a ChangeLog.
diff --git a/admin/admin.el b/admin/admin.el
index 90f810b79c6..1f4c6986b0e 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -1038,8 +1038,7 @@ If optional argument OLD is non-nil, also scan for
`defvar's."
(and grp
(setq grp (car (cdr-safe grp))) ; (quote foo) -> foo
(setq ver (assq grp glist))))
- (setq alist (cons (cons var ver) alist))))
- (if form (format-message "Malformed defcustom: `%s'" form)))))
+ (setq alist (cons (cons var ver) alist)))))))
(message "%sdone" m)
alist))
diff --git a/admin/authors.el b/admin/authors.el
index 147282a99a2..f1c988cc776 100644
--- a/admin/authors.el
+++ b/admin/authors.el
@@ -182,7 +182,7 @@ files.")
("Philip Kaludercic" "Philip K\\." "Philip K")
("Philipp Stephani" "Philipp .*phst@google")
("Piotr Zieliński" "Piotr Zielinski")
- ("Po Lu" "Po Lu Via") ; looks like a mistake
+ ("Po Lu" "Po Lu Via" "Your Name") ; looks like a mistake
("Przemysław Wojnowski" "Przemyslaw Wojnowski")
("R. Bernstein" "rb@dustyfeet.com")
("Rainer Schöpf" "Rainer Schoepf")
diff --git a/admin/charsets/Makefile.in b/admin/charsets/Makefile.in
index 4c62bb19dc5..efb9106adad 100644
--- a/admin/charsets/Makefile.in
+++ b/admin/charsets/Makefile.in
@@ -181,7 +181,7 @@ ${charsetdir}/GB180304.map: ${charsetdir}/GB180302.map
${gb180304}
${AM_V_GEN}$(AWK) -f ${gb180304} < $< > $@
${charsetdir}/JISX0201.map: ${GLIBC_CHARMAPS}/JIS_X0201.gz ${mapconv}
${compact}
- ${AM_V_GEN}(${mapconv} $< '/^<.*[ ]\/x[0-9]/' GLIBC-1 ${compact}
&& \
+ ${AM_V_GEN}(${run_mapconv} $< '/^<.*[ ]\/x[0-9]/' GLIBC-1 ${compact}
&& \
echo "# Generated by hand" && \
echo "0xA1-0xDF 0xFF61" ) > $@
diff --git a/admin/charsets/mapconv b/admin/charsets/mapconv
index 4a68d3da53b..19e2ff8d8f7 100755
--- a/admin/charsets/mapconv
+++ b/admin/charsets/mapconv
@@ -38,7 +38,8 @@
## So that eg [A-F] as used by KANJI-DATABASE branch below works as expected.
## Otherwise with LANG=en_US.utf8, CNS-6.map was generated with a
## bogus entry. By experiment, LC_COLLATE=C was not enough.
-export LC_ALL=C
+LC_ALL=C
+export LC_ALL
BASE=`expr "$1" : '.*/\(.*\)' '|' "$1"` # basename
FILE="admin/charsets/mapfiles/$BASE"
diff --git a/admin/cus-test.el b/admin/cus-test.el
index f07019bb52c..c833ddacd84 100644
--- a/admin/cus-test.el
+++ b/admin/cus-test.el
@@ -221,8 +221,6 @@ The detected problematic options are stored in
`cus-test-errors'."
;; Check the values
(mapc (lambda (value)
- ;; TODO for booleans, check for values that can be
- ;; evaluated and are not t or nil. Usually a bug.
(unless (widget-apply conv :match value)
(let ((err (list symbol :type-error value type)))
(unless (member err cus-test-errors)
diff --git a/admin/git-bisect-start b/admin/git-bisect-start
index 65bfffc0ad6..cae9c7918a8 100755
--- a/admin/git-bisect-start
+++ b/admin/git-bisect-start
@@ -82,7 +82,7 @@ done
# SKIP-BRANCH 58cc931e92ece70c3e64131ee12a799d65409100
## The list below is the exhaustive list of all commits between Dec 1
-## 2016 and Jan 31 2023 on which building Emacs with the default
+## 2016 and Apr 30 2023 on which building Emacs with the default
## options, on a GNU/Linux computer and with GCC, fails. It is
## possible (though unlikely) that building Emacs with non-default
## options, with other compilers, or on other platforms, would succeed
@@ -1707,3 +1707,19 @@ $REAL_GIT bisect skip $(cat $0 | grep '^# SKIP-SINGLE '
| sed 's/^# SKIP-SINGLE
# SKIP-SINGLE 1c3ca3bb649b7e812a84b4a559463462d4357080
# SKIP-SINGLE 48ed4228a75907ae1bb7a2d4314ffb3277c75e3a
# SKIP-SINGLE b9025c507a3a7dae4de19b18cafaa09b18183832
+# SKIP-SINGLE 8d8464bd5a98598e7a6fe63370545c7f07574926
+# SKIP-SINGLE 11c4177430230ef41cb700c48afecf475cf39893
+# SKIP-SINGLE cf3c89423fabc2c5a7891a5b5465fa995e461218
+# SKIP-SINGLE 8d5d7509b0a2c248084fa349b0b188d4de4af804
+# SKIP-SINGLE b6e2799aa1c3887c2995e115e6ff2f69d59f0e44
+# SKIP-SINGLE 1795839babcf8572a79aaee3c76ca5b357937a59
+# SKIP-SINGLE abfd00e5c02ec0aed8bbac1eca0d0db1874f020a
+# SKIP-SINGLE 8aef401b4f66a64ddfa9390590fb2cae1f96d522
+# SKIP-SINGLE d5bf26f488b7968feed9f43e612a90da2aab15a8
+# SKIP-SINGLE 5d0912f1445e33f1ccf23a84f0dc6d08c4ee2b60
+# SKIP-SINGLE 95692f6754c3a8f55a90df2d6f7ce62be55cdcfc
+# SKIP-SINGLE a3edacd3f547195740304139cb68aaa94d7b18ee
+# SKIP-SINGLE ae4ff4f25fbf704446f8f38d8e818f223b79042b
+# SKIP-SINGLE 9686b015a0d71d08828afb0cfe6e477bbc4909ae
+# SKIP-SINGLE 621e732ade0f3dc165498ebde4d55d5aacb05b56
+# SKIP-SINGLE 200dbf7d302e659e618f74bde81c7b3ccd795639
diff --git a/admin/make-tarball.txt b/admin/make-tarball.txt
index 232053e5e96..1cc97c883af 100644
--- a/admin/make-tarball.txt
+++ b/admin/make-tarball.txt
@@ -68,16 +68,26 @@ General steps (for each step, check for possible errors):
PREFERRED_BRANCH = emacs-NN
where NN is the version on the release branch from which you are
- producing the tarball. If NN is incorrect, update Makefile.in and
- re-run 'configure' to update Makefile.
-
- If the versioned ChangeLog.N file is too large, start a new one
- by bumping N, and also update the line in top-level Makefile.in
- which says
+ producing the tarball. If NN is incorrect (which it usually is
+ when starting a pretest of a new major release), update
+ Makefile.in and re-run 'configure' to update Makefile.
+
+ For the first pretest of a new major release, consider starting a
+ new top-level ChangeLog.N file if the last versioned ChangeLog.N
+ file is too large. A good point to start a new ChangeLog.N file
+ is when the last one gets larger than 5 MiB, or when you make the
+ first pretest of a new major release, whichever happens later. If
+ so, start a new ChangeLog.N file by bumping N, and also update the
+ line in top-level Makefile.in which says
CHANGELOG_HISTORY_INDEX_MAX = N
by incrementing the value of N by 1; then regenerate Makefile.
+ After bumping N, you need to actually create and commit
+ ChangeLog.N with the updated N, otherwise "M-x authors" below will
+ fail. The easiest way of creating the new ChangeLog.N is to
+ rename the file ChangeLog (without the .N suffix) left over from
+ the last major release (it is usually unversioned) and commit it.
Now:
@@ -99,11 +109,12 @@ General steps (for each step, check for possible errors):
the relevant entry. If a file was deleted or renamed, consider
adding an appropriate entry to variables authors-ignored-files,
authors-valid-file-names, or authors-renamed-files-alist in
- authors.el.
+ authors.el. If some authors are "ignored", consider adding
+ entries to the author-aliases variable.
If necessary, repeat 'C-u M-x authors' after making those changes.
Save the "*Authors*" buffer as etc/AUTHORS.
- Check the diff looks reasonable. Maybe add entries to
+ Check the diff looks reasonable. Maybe add more entries to
authors-ambiguous-files or authors-aliases, and repeat.
Commit any fixes to authors.el.
@@ -169,7 +180,13 @@ General steps (for each step, check for possible errors):
messages from TeX, but those seem to be harmless, as the result
looks just fine.)
-5. Copy lisp/loaddefs.el to lisp/ldefs-boot.el.
+5. Copy lisp/loaddefs.el to lisp/ldefs-boot.el. After copying, edit
+ ldefs-boot.el to add
+
+ ;; no-byte-compile: t
+
+ to its file-local variables section, otherwise make-dist will
+ complain.
Commit ChangeLog.N, etc/AUTHORS, lisp/ldefs-boot.el, and the files
changed by M-x set-version. Note that the set-version changes
diff --git a/admin/merge-gnulib b/admin/merge-gnulib
index 04e3e34b9f9..3e7526102ae 100755
--- a/admin/merge-gnulib
+++ b/admin/merge-gnulib
@@ -44,11 +44,11 @@ GNULIB_MODULES='
nanosleep nproc nstrftime
pathmax pipe2 pselect pthread_sigmask
qcopy-acl readlink readlinkat regex
- sig2str sigdescr_np socklen stat-time std-gnu11 stdbool stddef stdio
+ sig2str sigdescr_np socklen stat-time std-gnu11 stdbool stdckdint stddef
stdio
stpcpy strnlen strtoimax symlink sys_stat sys_time
- tempname time time_r time_rz timegm timer-time timespec-add timespec-sub
+ tempname time-h time_r time_rz timegm timer-time timespec-add timespec-sub
update-copyright unlocked-io utimensat
- vla warnings
+ vla warnings year2038
'
AVOIDED_MODULES='
@@ -132,5 +132,7 @@ cp -- "$gnulib_srcdir"/build-aux/config.guess \
cp -- "$gnulib_srcdir"/lib/af_alg.h \
"$gnulib_srcdir"/lib/save-cwd.h \
"$src"lib &&
+cp -- "$gnulib_srcdir"/m4/codeset.m4 \
+ "$src"m4 &&
{ test -z "$src" || cd "$src"; } &&
./autogen.sh
diff --git a/admin/notes/emba b/admin/notes/emba
index 564cc3c54ac..cad7a2e121c 100644
--- a/admin/notes/emba
+++ b/admin/notes/emba
@@ -83,6 +83,46 @@ Lisp packages, Makefiles, scripts, and other software could
determine
whether they run on emba by checking for the environment variable
EMACS_EMBA_CI.
+* Running Emba tests locally
+
+As usual in GitLab, the tests run in containers, which could be
+applied also locally. Unfortunately, the Emba container registry,
+emba.gnu.org:5050, is not accessible publicly. Instead, the container
+images must be build locally. Change the current directory to a
+recent Emacs branch, and apply the command
+
+ docker build --target emacs-inotify --tag emacs-inotify \
+ -f test/infra/Dockerfile.emba .
+
+This creates the Debian-based image emacs-inotify, based on the
+instructions in the file Dockerfile.emba. This image is good for the
+majority of tests. However, there are also other image build
+instructions like emacs-filenotify-gio, emacs-eglot,
+emacs-tree-sitter, emacs-gnustep and emacs-native-comp-speed{0,1,2}.
+Use the appropriate one.
+
+The image contains a directory "/checkout", which is a copy of your
+local Emacs git repository. Emacs has been built in this directory
+via "make bootstrap". In order to use the image, start a container
+like
+
+ docker run --interactive --tty --env EMACS_EMBA_CI=1 --name emacs-inotify \
+ emacs-inotify /bin/bash -i
+
+In this container, your working directory is "/checkout". Now you can
+apply all commands known for Emacs, like
+
+ make -C test files-tests.log
+
+While this container runs, you can also access its filesystem from
+your local Emacs via Tramp. For example, in order to see the result
+of the above test run, open the log file in your local Emacs with
+
+ C-x C-f /docker:emacs-inotify:/checkout/test/lisp/files-tests.log
+
+Note: On local Red Hat-based systems, use "podman" instead of "docker"
+in the shell commands and Tramp file names.
+
This file is part of GNU Emacs.
diff --git a/admin/notes/tree-sitter/build-module/README
b/admin/notes/tree-sitter/build-module/README
deleted file mode 100644
index 2fcb9778dae..00000000000
--- a/admin/notes/tree-sitter/build-module/README
+++ /dev/null
@@ -1,17 +0,0 @@
-To build the language definition for a particular language, run
-
- ./build.sh <language>
-
-eg,
-
- ./build.sh html
-
-The dynamic module will be in /dist directory
-
-To build all modules at once, run
-
- ./batch.sh
-
-This gives you C, JSON, Go, HTML, Javascript, CSS, Python, Typescript
-(tsx), C# (csharp), C++ (cpp), Rust. More can be added to batch.sh
-unless it's directory structure is not standard.
\ No newline at end of file
diff --git a/admin/notes/tree-sitter/build-module/batch.sh
b/admin/notes/tree-sitter/build-module/batch.sh
index 58272c74549..1d4076564dc 100755
--- a/admin/notes/tree-sitter/build-module/batch.sh
+++ b/admin/notes/tree-sitter/build-module/batch.sh
@@ -8,8 +8,10 @@ languages=(
'css'
'c-sharp'
'dockerfile'
+ 'elixir'
'go'
'go-mod'
+ 'heex'
'html'
'javascript'
'json'
diff --git a/admin/notes/tree-sitter/build-module/build.sh
b/admin/notes/tree-sitter/build-module/build.sh
index 9dc674237ca..0832875168b 100755
--- a/admin/notes/tree-sitter/build-module/build.sh
+++ b/admin/notes/tree-sitter/build-module/build.sh
@@ -31,11 +31,17 @@ case "${lang}" in
"cmake")
org="uyha"
;;
+ "elixir")
+ org="elixir-lang"
+ ;;
"go-mod")
# The parser is called "gomod".
lang="gomod"
org="camdencheek"
;;
+ "heex")
+ org="phoenixframework"
+ ;;
"typescript")
sourcedir="tree-sitter-typescript/typescript/src"
grammardir="tree-sitter-typescript/typescript"
diff --git a/admin/notes/tree-sitter/html-manual/Accessing-Node.html
b/admin/notes/tree-sitter/html-manual/Accessing-Node.html
deleted file mode 100644
index afbbdaa11b5..00000000000
--- a/admin/notes/tree-sitter/html-manual/Accessing-Node.html
+++ /dev/null
@@ -1,205 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Accessing Node (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Accessing Node (GNU Emacs Lisp Reference
Manual)">
-<meta name="keywords" content="Accessing Node (GNU Emacs Lisp Reference
Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Pattern-Matching.html" rel="next" title="Pattern Matching">
-<link href="Retrieving-Node.html" rel="prev" title="Retrieving Node">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Accessing-Node">
-<div class="header">
-<p>
-Next: <a href="Pattern-Matching.html" accesskey="n" rel="next">Pattern
Matching Tree-sitter Nodes</a>, Previous: <a href="Retrieving-Node.html"
accesskey="p" rel="prev">Retrieving Node</a>, Up: <a
href="Parsing-Program-Source.html" accesskey="u" rel="up">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Accessing-Node-Information"></span><h3 class="section">37.4
Accessing Node Information</h3>
-
-<p>Before going further, make sure you have read the basic conventions
-about tree-sitter nodes in the previous node.
-</p>
-<span id="Basic-information"></span><h3 class="heading">Basic information</h3>
-
-<p>Every node is associated with a parser, and that parser is associated
-with a buffer. The following functions let you retrieve them.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dnode_002dparser"><span class="category">Function:
</span><span><strong>treesit-node-parser</strong> <em>node</em><a
href='#index-treesit_002dnode_002dparser' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns <var>node</var>’s associated parser.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dbuffer"><span class="category">Function:
</span><span><strong>treesit-node-buffer</strong> <em>node</em><a
href='#index-treesit_002dnode_002dbuffer' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns <var>node</var>’s parser’s associated
buffer.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dlanguage"><span class="category">Function:
</span><span><strong>treesit-node-language</strong> <em>node</em><a
href='#index-treesit_002dnode_002dlanguage' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns <var>node</var>’s parser’s associated
language.
-</p></dd></dl>
-
-<p>Each node represents a piece of text in the buffer. Functions below
-finds relevant information about that text.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dnode_002dstart"><span class="category">Function:
</span><span><strong>treesit-node-start</strong> <em>node</em><a
href='#index-treesit_002dnode_002dstart' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>Return the start position of <var>node</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dend"><span class="category">Function:
</span><span><strong>treesit-node-end</strong> <em>node</em><a
href='#index-treesit_002dnode_002dend' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>Return the end position of <var>node</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dtext"><span class="category">Function:
</span><span><strong>treesit-node-text</strong> <em>node &optional
object</em><a href='#index-treesit_002dnode_002dtext' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>Returns the buffer text that <var>node</var> represents. (If
<var>node</var> is
-retrieved from parsing a string, it will be text from that string.)
-</p></dd></dl>
-
-<p>Here are some basic checks on tree-sitter nodes.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dnode_002dp"><span class="category">Function:
</span><span><strong>treesit-node-p</strong> <em>object</em><a
href='#index-treesit_002dnode_002dp' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>Checks if <var>object</var> is a tree-sitter syntax node.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002deq"><span class="category">Function:
</span><span><strong>treesit-node-eq</strong> <em>node1 node2</em><a
href='#index-treesit_002dnode_002deq' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>Checks if <var>node1</var> and <var>node2</var> are the same node in a
syntax
-tree.
-</p></dd></dl>
-
-<span id="Property-information"></span><h3 class="heading">Property
information</h3>
-
-<p>In general, nodes in a concrete syntax tree fall into two categories:
-<em>named nodes</em> and <em>anonymous nodes</em>. Whether a node is named
-or anonymous is determined by the language definition
-(see <a href="Language-Definitions.html#tree_002dsitter-named-node">named
node</a>).
-</p>
-<span id="index-tree_002dsitter-missing-node"></span>
-<p>Apart from being named/anonymous, a node can have other properties. A
-node can be “missing”: missing nodes are inserted by the parser in
-order to recover from certain kinds of syntax errors, i.e., something
-should probably be there according to the grammar, but not there.
-</p>
-<span id="index-tree_002dsitter-extra-node"></span>
-<p>A node can be “extra”: extra nodes represent things like
comments,
-which can appear anywhere in the text.
-</p>
-<span id="index-tree_002dsitter-node-that-has-changes"></span>
-<p>A node “has changes” if the buffer changed since when the node
is
-retrieved, i.e., outdated.
-</p>
-<span id="index-tree_002dsitter-node-that-has-error"></span>
-<p>A node “has error” if the text it spans contains a syntax
error. It
-can be the node itself has an error, or one of its
-children/grandchildren... has an error.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dnode_002dcheck"><span class="category">Function:
</span><span><strong>treesit-node-check</strong> <em>node property</em><a
href='#index-treesit_002dnode_002dcheck' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function checks if <var>node</var> has <var>property</var>.
<var>property</var>
-can be <code>'named</code>, <code>'missing</code>, <code>'extra</code>,
-<code>'has-changes</code>, or <code>'has-error</code>.
-</p></dd></dl>
-
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dtype"><span class="category">Function:
</span><span><strong>treesit-node-type</strong> <em>node</em><a
href='#index-treesit_002dnode_002dtype' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>Named nodes have “types” (see <a
href="Language-Definitions.html#tree_002dsitter-node-type">node type</a>).
-For example, a named node can be a <code>string_literal</code> node, where
-<code>string_literal</code> is its type.
-</p>
-<p>This function returns <var>node</var>’s type as a string.
-</p></dd></dl>
-
-<span id="Information-as-a-child-or-parent"></span><h3
class="heading">Information as a child or parent</h3>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dindex"><span class="category">Function:
</span><span><strong>treesit-node-index</strong> <em>node &optional
named</em><a href='#index-treesit_002dnode_002dindex' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the index of <var>node</var> as a child node of
its
-parent. If <var>named</var> is non-nil, it only count named nodes
-(see <a href="Language-Definitions.html#tree_002dsitter-named-node">named
node</a>).
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dfield_002dname"><span
class="category">Function:
</span><span><strong>treesit-node-field-name</strong> <em>node</em><a
href='#index-treesit_002dnode_002dfield_002dname' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>A child of a parent node could have a field name (see <a
href="Language-Definitions.html#tree_002dsitter-node-field-name">field
name</a>). This function returns the field name
-of <var>node</var> as a child of its parent.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dfield_002dname_002dfor_002dchild"><span
class="category">Function:
</span><span><strong>treesit-node-field-name-for-child</strong> <em>node
n</em><a href='#index-treesit_002dnode_002dfield_002dname_002dfor_002dchild'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns the field name of the <var>n</var>’th child
of
-<var>node</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dchild_002dcount"><span class="category">Function:
</span><span><strong>treesit-node-child-count</strong> <em>node &optional
named</em><a href='#index-treesit_002dchild_002dcount' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function finds the number of children of <var>node</var>. If
-<var>named</var> is non-nil, it only counts named child (see <a
href="Language-Definitions.html#tree_002dsitter-named-node">named node</a>).
-</p></dd></dl>
-
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Pattern-Matching.html">Pattern Matching Tree-sitter Nodes</a>,
Previous: <a href="Retrieving-Node.html">Retrieving Node</a>, Up: <a
href="Parsing-Program-Source.html">Parsing Program Source</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Language-Definitions.html
b/admin/notes/tree-sitter/html-manual/Language-Definitions.html
deleted file mode 100644
index 9b1e0021272..00000000000
--- a/admin/notes/tree-sitter/html-manual/Language-Definitions.html
+++ /dev/null
@@ -1,401 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Language Definitions (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Language Definitions (GNU Emacs Lisp
Reference Manual)">
-<meta name="keywords" content="Language Definitions (GNU Emacs Lisp Reference
Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Using-Parser.html" rel="next" title="Using Parser">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Language-Definitions">
-<div class="header">
-<p>
-Next: <a href="Using-Parser.html" accesskey="n" rel="next">Using Tree-sitter
Parser</a>, Up: <a href="Parsing-Program-Source.html" accesskey="u"
rel="up">Parsing Program Source</a> [<a href="index.html#SEC_Contents"
title="Table of contents" rel="contents">Contents</a>][<a href="Index.html"
title="Index" rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Tree_002dsitter-Language-Definitions"></span><h3
class="section">37.1 Tree-sitter Language Definitions</h3>
-<span id="index-language-definitions_002c-for-tree_002dsitter"></span>
-
-<span id="Loading-a-language-definition"></span><h3 class="heading">Loading a
language definition</h3>
-<span id="index-loading-language-definition-for-tree_002dsitter"></span>
-
-<span id="index-language-argument_002c-for-tree_002dsitter"></span>
-<p>Tree-sitter relies on language definitions to parse text in that
-language. In Emacs, a language definition is represented by a symbol.
-For example, the C language definition is represented as the symbol
-<code>c</code>, and <code>c</code> can be passed to tree-sitter functions as
the
-<var>language</var> argument.
-</p>
-<span id="index-treesit_002dextra_002dload_002dpath"></span>
-<span id="index-treesit_002dload_002dlanguage_002derror"></span>
-<span id="index-treesit_002dload_002dsuffixes"></span>
-<p>Tree-sitter language definitions are distributed as dynamic libraries.
-In order to use a language definition in Emacs, you need to make sure
-that the dynamic library is installed on the system. Emacs looks for
-language definitions in several places, in the following order:
-</p>
-<ul>
-<li> first, in the list of directories specified by the variable
-<code>treesit-extra-load-path</code>;
-</li><li> then, in the <samp>tree-sitter</samp> subdirectory of the directory
-specified by <code>user-emacs-directory</code> (see <a
href="Init-File.html">The Init File</a>);
-</li><li> and finally, in the system’s default locations for dynamic
libraries.
-</li></ul>
-
-<p>In each of these directories, Emacs looks for a file with file-name
-extensions specified by the variable <code>dynamic-library-suffixes</code>.
-</p>
-<p>If Emacs cannot find the library or has problems loading it, Emacs
-signals the <code>treesit-load-language-error</code> error. The data of
-that signal could be one of the following:
-</p>
-<dl compact="compact">
-<dt><span><code>(not-found <var>error-msg</var> …)</code></span></dt>
-<dd><p>This means that Emacs could not find the language definition library.
-</p></dd>
-<dt><span><code>(symbol-error <var>error-msg</var>)</code></span></dt>
-<dd><p>This means that Emacs could not find in the library the expected
function
-that every language definition library should export.
-</p></dd>
-<dt><span><code>(version-mismatch <var>error-msg</var>)</code></span></dt>
-<dd><p>This means that the version of language definition library is
incompatible
-with that of the tree-sitter library.
-</p></dd>
-</dl>
-
-<p>In all of these cases, <var>error-msg</var> might provide additional
-details about the failure.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dlanguage_002davailable_002dp"><span
class="category">Function:
</span><span><strong>treesit-language-available-p</strong> <em>language
&optional detail</em><a
href='#index-treesit_002dlanguage_002davailable_002dp' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns non-<code>nil</code> if the language definitions
for
-<var>language</var> exist and can be loaded.
-</p>
-<p>If <var>detail</var> is non-<code>nil</code>, return <code>(t . nil)</code>
when
-<var>language</var> is available, and <code>(nil . <var>data</var>)</code>
when it’s
-unavailable. <var>data</var> is the signal data of
-<code>treesit-load-language-error</code>.
-</p></dd></dl>
-
-<span id="index-treesit_002dload_002dname_002doverride_002dlist"></span>
-<p>By convention, the file name of the dynamic library for <var>language</var>
is
-<samp>libtree-sitter-<var>language</var>.<var>ext</var></samp>, where
<var>ext</var> is the
-system-specific extension for dynamic libraries. Also by convention,
-the function provided by that library is named
-<code>tree_sitter_<var>language</var></code>. If a language definition library
-doesn’t follow this convention, you should add an entry
-</p>
-<div class="example">
-<pre class="example">(<var>language</var> <var>library-base-name</var>
<var>function-name</var>)
-</pre></div>
-
-<p>to the list in the variable <code>treesit-load-name-override-list</code>,
where
-<var>library-base-name</var> is the basename of the dynamic library’s
file name,
-(usually, <samp>libtree-sitter-<var>language</var></samp>), and
-<var>function-name</var> is the function provided by the library
-(usually, <code>tree_sitter_<var>language</var></code>). For example,
-</p>
-<div class="example">
-<pre class="example">(cool-lang "libtree-sitter-coool"
"tree_sitter_cooool")
-</pre></div>
-
-<p>for a language that considers itself too “cool” to abide by
-conventions.
-</p>
-<span id="index-language_002ddefinition-version_002c-compatibility"></span>
-<dl class="def">
-<dt id="index-treesit_002dlanguage_002dversion"><span
class="category">Function:
</span><span><strong>treesit-language-version</strong> <em>&optional
min-compatible</em><a href='#index-treesit_002dlanguage_002dversion'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns the version of the language-definition
-Application Binary Interface (<acronym>ABI</acronym>) supported by the
-tree-sitter library. By default, it returns the latest ABI version
-supported by the library, but if <var>min-compatible</var> is
-non-<code>nil</code>, it returns the oldest ABI version which the library
-still can support. Language definition libraries must be built for
-ABI versions between the oldest and the latest versions supported by
-the tree-sitter library, otherwise the library will be unable to load
-them.
-</p></dd></dl>
-
-<span id="Concrete-syntax-tree"></span><h3 class="heading">Concrete syntax
tree</h3>
-<span id="index-syntax-tree_002c-concrete"></span>
-
-<p>A syntax tree is what a parser generates. In a syntax tree, each node
-represents a piece of text, and is connected to each other by a
-parent-child relationship. For example, if the source text is
-</p>
-<div class="example">
-<pre class="example">1 + 2
-</pre></div>
-
-<p>its syntax tree could be
-</p>
-<div class="example">
-<pre class="example"> +--------------+
- | root "1 + 2" |
- +--------------+
- |
- +--------------------------------+
- | expression "1 + 2" |
- +--------------------------------+
- | | |
-+------------+ +--------------+ +------------+
-| number "1" | | operator "+" | | number "2"
|
-+------------+ +--------------+ +------------+
-</pre></div>
-
-<p>We can also represent it as an s-expression:
-</p>
-<div class="example">
-<pre class="example">(root (expression (number) (operator) (number)))
-</pre></div>
-
-<span id="Node-types"></span><h4 class="subheading">Node types</h4>
-<span id="index-node-types_002c-in-a-syntax-tree"></span>
-
-<span id="index-type-of-node_002c-tree_002dsitter"></span>
-<span id="tree_002dsitter-node-type"></span><span
id="index-named-node_002c-tree_002dsitter"></span>
-<span id="tree_002dsitter-named-node"></span><span
id="index-anonymous-node_002c-tree_002dsitter"></span>
-<p>Names like <code>root</code>, <code>expression</code>, <code>number</code>,
and
-<code>operator</code> specify the <em>type</em> of the nodes. However, not all
-nodes in a syntax tree have a type. Nodes that don’t have a type are
-known as <em>anonymous nodes</em>, and nodes with a type are <em>named
-nodes</em>. Anonymous nodes are tokens with fixed spellings, including
-punctuation characters like bracket ‘<samp>]</samp>’, and keywords
like
-<code>return</code>.
-</p>
-<span id="Field-names"></span><h4 class="subheading">Field names</h4>
-
-<span id="index-field-name_002c-tree_002dsitter"></span>
-<span id="index-tree_002dsitter-node-field-name"></span>
-<span id="tree_002dsitter-node-field-name"></span><p>To make the syntax tree
easier to analyze, many language definitions
-assign <em>field names</em> to child nodes. For example, a
-<code>function_definition</code> node could have a <code>declarator</code> and
a
-<code>body</code>:
-</p>
-<div class="example">
-<pre class="example">(function_definition
- declarator: (declaration)
- body: (compound_statement))
-</pre></div>
-
-<span id="Exploring-the-syntax-tree"></span><h3 class="heading">Exploring the
syntax tree</h3>
-<span id="index-explore-tree_002dsitter-syntax-tree"></span>
-<span id="index-inspection-of-tree_002dsitter-parse-tree-nodes"></span>
-
-<p>To aid in understanding the syntax of a language and in debugging of
-Lisp program that use the syntax tree, Emacs provides an “explore”
-mode, which displays the syntax tree of the source in the current
-buffer in real time. Emacs also comes with an “inspect mode”,
which
-displays information of the nodes at point in the mode-line.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dexplore_002dmode"><span class="category">Command:
</span><span><strong>treesit-explore-mode</strong><a
href='#index-treesit_002dexplore_002dmode' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This mode pops up a window displaying the syntax tree of the source in
-the current buffer. Selecting text in the source buffer highlights
-the corresponding nodes in the syntax tree display. Clicking
-on nodes in the syntax tree highlights the corresponding text in the
-source buffer.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dinspect_002dmode"><span class="category">Command:
</span><span><strong>treesit-inspect-mode</strong><a
href='#index-treesit_002dinspect_002dmode' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This minor mode displays on the mode-line the node that <em>starts</em>
-at point. For example, the mode-line can display
-</p>
-<div class="example">
-<pre class="example"><var>parent</var> <var>field</var>: (<var>node</var>
(<var>child</var> (…)))
-</pre></div>
-
-<p>where <var>node</var>, <var>child</var>, etc., are nodes which begin at
point.
-<var>parent</var> is the parent of <var>node</var>. <var>node</var> is
displayed in
-a bold typeface. <var>field-name</var>s are field names of <var>node</var> and
-of <var>child</var>, etc.
-</p>
-<p>If no node starts at point, i.e., point is in the middle of a node,
-then the mode line displays the earliest node that spans point, and
-its immediate parent.
-</p>
-<p>This minor mode doesn’t create parsers on its own. It uses the first
-parser in <code>(treesit-parser-list)</code> (see <a
href="Using-Parser.html">Using Tree-sitter Parser</a>).
-</p></dd></dl>
-
-<span id="Reading-the-grammar-definition"></span><h3 class="heading">Reading
the grammar definition</h3>
-<span id="index-reading-grammar-definition_002c-tree_002dsitter"></span>
-
-<p>Authors of language definitions define the <em>grammar</em> of a
-programming language, which determines how a parser constructs a
-concrete syntax tree out of the program text. In order to use the
-syntax tree effectively, you need to consult the <em>grammar file</em>.
-</p>
-<p>The grammar file is usually <samp>grammar.js</samp> in a language
-definition’s project repository. The link to a language
definition’s
-home page can be found on
-<a href="https://tree-sitter.github.io/tree-sitter";>tree-sitter’s
-homepage</a>.
-</p>
-<p>The grammar definition is written in JavaScript. For example, the
-rule matching a <code>function_definition</code> node looks like
-</p>
-<div class="example">
-<pre class="example">function_definition: $ => seq(
- $.declaration_specifiers,
- field('declarator', $.declaration),
- field('body', $.compound_statement)
-)
-</pre></div>
-
-<p>The rules are represented by functions that take a single argument
-<var>$</var>, representing the whole grammar. The function itself is
-constructed by other functions: the <code>seq</code> function puts together
-a sequence of children; the <code>field</code> function annotates a child
-with a field name. If we write the above definition in the so-called
-<em>Backus-Naur Form</em> (<acronym>BNF</acronym>) syntax, it would look like
-</p>
-<div class="example">
-<pre class="example">function_definition :=
- <declaration_specifiers> <declaration> <compound_statement>
-</pre></div>
-
-<p>and the node returned by the parser would look like
-</p>
-<div class="example">
-<pre class="example">(function_definition
- (declaration_specifier)
- declarator: (declaration)
- body: (compound_statement))
-</pre></div>
-
-<p>Below is a list of functions that one can see in a grammar definition.
-Each function takes other rules as arguments and returns a new rule.
-</p>
-<dl compact="compact">
-<dt><span><code>seq(<var>rule1</var>, <var>rule2</var>,
…)</code></span></dt>
-<dd><p>matches each rule one after another.
-</p></dd>
-<dt><span><code>choice(<var>rule1</var>, <var>rule2</var>,
…)</code></span></dt>
-<dd><p>matches one of the rules in its arguments.
-</p></dd>
-<dt><span><code>repeat(<var>rule</var>)</code></span></dt>
-<dd><p>matches <var>rule</var> for <em>zero or more</em> times.
-This is like the ‘<samp>*</samp>’ operator in regular expressions.
-</p></dd>
-<dt><span><code>repeat1(<var>rule</var>)</code></span></dt>
-<dd><p>matches <var>rule</var> for <em>one or more</em> times.
-This is like the ‘<samp>+</samp>’ operator in regular expressions.
-</p></dd>
-<dt><span><code>optional(<var>rule</var>)</code></span></dt>
-<dd><p>matches <var>rule</var> for <em>zero or one</em> time.
-This is like the ‘<samp>?</samp>’ operator in regular expressions.
-</p></dd>
-<dt><span><code>field(<var>name</var>, <var>rule</var>)</code></span></dt>
-<dd><p>assigns field name <var>name</var> to the child node matched by
<var>rule</var>.
-</p></dd>
-<dt><span><code>alias(<var>rule</var>, <var>alias</var>)</code></span></dt>
-<dd><p>makes nodes matched by <var>rule</var> appear as <var>alias</var> in
the syntax
-tree generated by the parser. For example,
-</p>
-<div class="example">
-<pre class="example">alias(preprocessor_call_exp, call_expression)
-</pre></div>
-
-<p>makes any node matched by <code>preprocessor_call_exp</code> appear as
-<code>call_expression</code>.
-</p></dd>
-</dl>
-
-<p>Below are grammar functions of lesser importance for reading a
-language definition.
-</p>
-<dl compact="compact">
-<dt><span><code>token(<var>rule</var>)</code></span></dt>
-<dd><p>marks <var>rule</var> to produce a single leaf node. That is, instead
of
-generating a parent node with individual child nodes under it,
-everything is combined into a single leaf node. See <a
href="Retrieving-Nodes.html">Retrieving Nodes</a>.
-</p></dd>
-<dt><span><code>token.immediate(<var>rule</var>)</code></span></dt>
-<dd><p>Normally, grammar rules ignore preceding whitespace; this
-changes <var>rule</var> to match only when there is no preceding
-whitespaces.
-</p></dd>
-<dt><span><code>prec(<var>n</var>, <var>rule</var>)</code></span></dt>
-<dd><p>gives <var>rule</var> the level-<var>n</var> precedence.
-</p></dd>
-<dt><span><code>prec.left([<var>n</var>,] <var>rule</var>)</code></span></dt>
-<dd><p>marks <var>rule</var> as left-associative, optionally with level
<var>n</var>.
-</p></dd>
-<dt><span><code>prec.right([<var>n</var>,] <var>rule</var>)</code></span></dt>
-<dd><p>marks <var>rule</var> as right-associative, optionally with level
<var>n</var>.
-</p></dd>
-<dt><span><code>prec.dynamic(<var>n</var>, <var>rule</var>)</code></span></dt>
-<dd><p>this is like <code>prec</code>, but the precedence is applied at runtime
-instead.
-</p></dd>
-</dl>
-
-<p>The documentation of the tree-sitter project has
-<a href="https://tree-sitter.github.io/tree-sitter/creating-parsers";>more
-about writing a grammar</a>. Read especially “The Grammar DSL”
-section.
-</p>
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Using-Parser.html">Using Tree-sitter Parser</a>, Up: <a
href="Parsing-Program-Source.html">Parsing Program Source</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Multiple-Languages.html
b/admin/notes/tree-sitter/html-manual/Multiple-Languages.html
deleted file mode 100644
index 390d9082590..00000000000
--- a/admin/notes/tree-sitter/html-manual/Multiple-Languages.html
+++ /dev/null
@@ -1,327 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Multiple Languages (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Multiple Languages (GNU Emacs Lisp Reference
Manual)">
-<meta name="keywords" content="Multiple Languages (GNU Emacs Lisp Reference
Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Tree_002dsitter-major-modes.html" rel="next" title="Tree-sitter
major modes">
-<link href="Pattern-Matching.html" rel="prev" title="Pattern Matching">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Multiple-Languages">
-<div class="header">
-<p>
-Next: <a href="Tree_002dsitter-major-modes.html" accesskey="n"
rel="next">Developing major modes with tree-sitter</a>, Previous: <a
href="Pattern-Matching.html" accesskey="p" rel="prev">Pattern Matching
Tree-sitter Nodes</a>, Up: <a href="Parsing-Program-Source.html" accesskey="u"
rel="up">Parsing Program Source</a> [<a href="index.html#SEC_Contents"
title="Table of contents" rel="contents">Contents</a>][<a href="Index.html"
title="Index" rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Parsing-Text-in-Multiple-Languages"></span><h3 class="section">37.6
Parsing Text in Multiple Languages</h3>
-<span id="index-multiple-languages_002c-parsing-with-tree_002dsitter"></span>
-<span id="index-parsing-multiple-languages-with-tree_002dsitter"></span>
-<p>Sometimes, the source of a programming language could contain snippets
-of other languages; <acronym>HTML</acronym> + <acronym>CSS</acronym> +
JavaScript is one
-example. In that case, text segments written in different languages
-need to be assigned different parsers. Traditionally, this is
-achieved by using narrowing. While tree-sitter works with narrowing
-(see <a href="Using-Parser.html#tree_002dsitter-narrowing">narrowing</a>), the
recommended way is
-instead to set regions of buffer text (i.e., ranges) in which a parser
-will operate. This section describes functions for setting and
-getting ranges for a parser.
-</p>
-<p>Lisp programs should call <code>treesit-update-ranges</code> to make sure
-the ranges for each parser are correct before using parsers in a
-buffer, and call <code>treesit-language-at</code> to figure out the language
-responsible for the text at some position. These two functions don’t
-work by themselves, they need major modes to set
-<code>treesit-range-settings</code> and
-<code>treesit-language-at-point-function</code>, which do the actual work.
-These functions and variables are explained in more detail towards the
-end of the section.
-</p>
-<span id="Getting-and-setting-ranges"></span><h3 class="heading">Getting and
setting ranges</h3>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002dset_002dincluded_002dranges"><span
class="category">Function:
</span><span><strong>treesit-parser-set-included-ranges</strong> <em>parser
ranges</em><a href='#index-treesit_002dparser_002dset_002dincluded_002dranges'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function sets up <var>parser</var> to operate on
<var>ranges</var>. The
-<var>parser</var> will only read the text of the specified ranges. Each
-range in <var>ranges</var> is a list of the form
<code>(<var>beg</var> . <var>end</var>)</code><!-- /@w -->.
-</p>
-<p>The ranges in <var>ranges</var> must come in order and must not overlap.
-That is, in pseudo code:
-</p>
-<div class="example">
-<pre class="example">(cl-loop for idx from 1 to (1- (length ranges))
- for prev = (nth (1- idx) ranges)
- for next = (nth idx ranges)
- should (<= (car prev) (cdr prev)
- (car next) (cdr next)))
-</pre></div>
-
-<span id="index-treesit_002drange_002dinvalid"></span>
-<p>If <var>ranges</var> violates this constraint, or something else went
-wrong, this function signals the <code>treesit-range-invalid</code> error.
-The signal data contains a specific error message and the ranges we
-are trying to set.
-</p>
-<p>This function can also be used for disabling ranges. If <var>ranges</var>
-is <code>nil</code>, the parser is set to parse the whole buffer.
-</p>
-<p>Example:
-</p>
-<div class="example">
-<pre class="example">(treesit-parser-set-included-ranges
- parser '((1 . 9) (16 . 24) (24 . 25)))
-</pre></div>
-</dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002dincluded_002dranges"><span
class="category">Function:
</span><span><strong>treesit-parser-included-ranges</strong> <em>parser</em><a
href='#index-treesit_002dparser_002dincluded_002dranges'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns the ranges set for <var>parser</var>. The return
-value is the same as the <var>ranges</var> argument of
-<code>treesit-parser-included-ranges</code>: a list of cons cells of the form
-<code>(<var>beg</var> . <var>end</var>)</code><!-- /@w -->. If
<var>parser</var> doesn’t have any
-ranges, the return value is <code>nil</code>.
-</p>
-<div class="example">
-<pre class="example">(treesit-parser-included-ranges parser)
- ⇒ ((1 . 9) (16 . 24) (24 . 25))
-</pre></div>
-</dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dquery_002drange"><span class="category">Function:
</span><span><strong>treesit-query-range</strong> <em>source query
&optional beg end</em><a href='#index-treesit_002dquery_002drange'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function matches <var>source</var> with <var>query</var> and
returns the
-ranges of captured nodes. The return value is a list of cons cells of
-the form <code>(<var>beg</var> . <var>end</var>)</code><!-- /@w -->,
where <var>beg</var> and
-<var>end</var> specify the beginning and the end of a region of text.
-</p>
-<p>For convenience, <var>source</var> can be a language symbol, a parser, or a
-node. If it’s a language symbol, this function matches in the root
-node of the first parser using that language; if a parser, this
-function matches in the root node of that parser; if a node, this
-function matches in that node.
-</p>
-<p>The argument <var>query</var> is the query used to capture nodes
-(see <a href="Pattern-Matching.html">Pattern Matching Tree-sitter Nodes</a>).
The capture names don’t matter. The
-arguments <var>beg</var> and <var>end</var>, if both non-<code>nil</code>,
limit the
-range in which this function queries.
-</p>
-<p>Like other query functions, this function raises the
-<code>treesit-query-error</code> error if <var>query</var> is malformed.
-</p></dd></dl>
-
-<span id="Supporting-multiple-languages-in-Lisp-programs"></span><h3
class="heading">Supporting multiple languages in Lisp programs</h3>
-
-<p>It should suffice for general Lisp programs to call the following two
-functions in order to support program sources that mixes multiple
-languages.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dupdate_002dranges"><span class="category">Function:
</span><span><strong>treesit-update-ranges</strong> <em>&optional beg
end</em><a href='#index-treesit_002dupdate_002dranges' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function updates ranges for parsers in the buffer. It makes sure
-the parsers’ ranges are set correctly between <var>beg</var> and
<var>end</var>,
-according to <code>treesit-range-settings</code>. If omitted, <var>beg</var>
-defaults to the beginning of the buffer, and <var>end</var> defaults to the
-end of the buffer.
-</p>
-<p>For example, fontification functions use this function before querying
-for nodes in a region.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dlanguage_002dat"><span class="category">Function:
</span><span><strong>treesit-language-at</strong> <em>pos</em><a
href='#index-treesit_002dlanguage_002dat' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the language of the text at buffer position
-<var>pos</var>. Under the hood it calls
-<code>treesit-language-at-point-function</code> and returns its return
-value. If <code>treesit-language-at-point-function</code> is <code>nil</code>,
-this function returns the language of the first parser in the returned
-value of <code>treesit-parser-list</code>. If there is no parser in the
-buffer, it returns <code>nil</code>.
-</p></dd></dl>
-
-<span id="Supporting-multiple-languages-in-major-modes"></span><h3
class="heading">Supporting multiple languages in major modes</h3>
-
-<span id="index-host-language_002c-tree_002dsitter"></span>
-<span id="index-tree_002dsitter-host-and-embedded-languages"></span>
-<span id="index-embedded-language_002c-tree_002dsitter"></span>
-<p>Normally, in a set of languages that can be mixed together, there is a
-<em>host language</em> and one or more <em>embedded languages</em>. A Lisp
-program usually first parses the whole document with the host
-language’s parser, retrieves some information, sets ranges for the
-embedded languages with that information, and then parses the embedded
-languages.
-</p>
-<p>Take a buffer containing <acronym>HTML</acronym>, <acronym>CSS</acronym>
and JavaScript
-as an example. A Lisp program will first parse the whole buffer with
-an <acronym>HTML</acronym> parser, then query the parser for
-<code>style_element</code> and <code>script_element</code> nodes, which
-correspond to <acronym>CSS</acronym> and JavaScript text, respectively. Then
-it sets the range of the <acronym>CSS</acronym> and JavaScript parser to the
-ranges in which their corresponding nodes span.
-</p>
-<p>Given a simple <acronym>HTML</acronym> document:
-</p>
-<div class="example">
-<pre class="example"><html>
- <script>1 + 2</script>
- <style>body { color: "blue"; }</style>
-</html>
-</pre></div>
-
-<p>a Lisp program will first parse with a <acronym>HTML</acronym> parser, then
set
-ranges for <acronym>CSS</acronym> and JavaScript parsers:
-</p>
-<div class="example">
-<pre class="example">;; Create parsers.
-(setq html (treesit-parser-create 'html))
-(setq css (treesit-parser-create 'css))
-(setq js (treesit-parser-create 'javascript))
-</pre><pre class="example">
-
-</pre><pre class="example">;; Set CSS ranges.
-(setq css-range
- (treesit-query-range
- 'html
- "(style_element (raw_text) @capture)"))
-(treesit-parser-set-included-ranges css css-range)
-</pre><pre class="example">
-
-</pre><pre class="example">;; Set JavaScript ranges.
-(setq js-range
- (treesit-query-range
- 'html
- "(script_element (raw_text) @capture)"))
-(treesit-parser-set-included-ranges js js-range)
-</pre></div>
-
-<p>Emacs automates this process in <code>treesit-update-ranges</code>. A
-multi-language major mode should set <code>treesit-range-settings</code> so
-that <code>treesit-update-ranges</code> knows how to perform this process
-automatically. Major modes should use the helper function
-<code>treesit-range-rules</code> to generate a value that can be assigned to
-<code>treesit-range-settings</code>. The settings in the following example
-directly translate into operations shown above.
-</p>
-<div class="example">
-<pre class="example">(setq-local treesit-range-settings
- (treesit-range-rules
- :embed 'javascript
- :host 'html
- '((script_element (raw_text) @capture))
-</pre><pre class="example">
-
-</pre><pre class="example"> :embed 'css
- :host 'html
- '((style_element (raw_text) @capture))))
-</pre></div>
-
-<dl class="def">
-<dt id="index-treesit_002drange_002drules"><span class="category">Function:
</span><span><strong>treesit-range-rules</strong> <em>&rest
query-specs</em><a href='#index-treesit_002drange_002drules'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function is used to set <var>treesit-range-settings</var>. It
-takes care of compiling queries and other post-processing, and outputs
-a value that <var>treesit-range-settings</var> can have.
-</p>
-<p>It takes a series of <var>query-spec</var>s, where each
<var>query-spec</var> is
-a <var>query</var> preceded by zero or more <var>keyword</var>/<var>value</var>
-pairs. Each <var>query</var> is a tree-sitter query in either the
-string, s-expression or compiled form, or a function.
-</p>
-<p>If <var>query</var> is a tree-sitter query, it should be preceded by two
-<var>:keyword</var>/<var>value</var> pairs, where the <code>:embed</code>
keyword
-specifies the embedded language, and the <code>:host</code> keyword
-specified the host language.
-</p>
-<p><code>treesit-update-ranges</code> uses <var>query</var> to figure out how
to set
-the ranges for parsers for the embedded language. It queries
-<var>query</var> in a host language parser, computes the ranges in which
-the captured nodes span, and applies these ranges to embedded
-language parsers.
-</p>
-<p>If <var>query</var> is a function, it doesn’t need any
<var>:keyword</var> and
-<var>value</var> pair. It should be a function that takes 2 arguments,
-<var>start</var> and <var>end</var>, and sets the ranges for parsers in the
-current buffer in the region between <var>start</var> and <var>end</var>. It
is
-fine for this function to set ranges in a larger region that
-encompasses the region between <var>start</var> and <var>end</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002drange_002dsettings"><span class="category">Variable:
</span><span><strong>treesit-range-settings</strong><a
href='#index-treesit_002drange_002dsettings' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This variable helps <code>treesit-update-ranges</code> in updating the
-ranges for parsers in the buffer. It is a list of <var>setting</var>s
-where the exact format of a <var>setting</var> is considered internal. You
-should use <code>treesit-range-rules</code> to generate a value that this
-variable can have.
-</p>
-</dd></dl>
-
-
-<dl class="def">
-<dt id="index-treesit_002dlanguage_002dat_002dpoint_002dfunction"><span
class="category">Variable:
</span><span><strong>treesit-language-at-point-function</strong><a
href='#index-treesit_002dlanguage_002dat_002dpoint_002dfunction'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This variable’s value should be a function that takes a single
-argument, <var>pos</var>, which is a buffer position, and returns the
-language of the buffer text at <var>pos</var>. This variable is used by
-<code>treesit-language-at</code>.
-</p></dd></dl>
-
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Tree_002dsitter-major-modes.html">Developing major modes with
tree-sitter</a>, Previous: <a href="Pattern-Matching.html">Pattern Matching
Tree-sitter Nodes</a>, Up: <a href="Parsing-Program-Source.html">Parsing
Program Source</a> [<a href="index.html#SEC_Contents" title="Table of
contents" rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git
a/admin/notes/tree-sitter/html-manual/Parser_002dbased-Font-Lock.html
b/admin/notes/tree-sitter/html-manual/Parser_002dbased-Font-Lock.html
deleted file mode 100644
index a3fe6622162..00000000000
--- a/admin/notes/tree-sitter/html-manual/Parser_002dbased-Font-Lock.html
+++ /dev/null
@@ -1,247 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Parser-based Font Lock (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Parser-based Font Lock (GNU Emacs Lisp
Reference Manual)">
-<meta name="keywords" content="Parser-based Font Lock (GNU Emacs Lisp
Reference Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Font-Lock-Mode.html" rel="up" title="Font Lock Mode">
-<link href="Multiline-Font-Lock.html" rel="prev" title="Multiline Font Lock">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="subsection" id="Parser_002dbased-Font-Lock">
-<div class="header">
-<p>
-Previous: <a href="Multiline-Font-Lock.html" accesskey="p"
rel="prev">Multiline Font Lock Constructs</a>, Up: <a
href="Font-Lock-Mode.html" accesskey="u" rel="up">Font Lock Mode</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Parser_002dbased-Font-Lock-1"></span><h4 class="subsection">24.6.10
Parser-based Font Lock</h4>
-<span id="index-parser_002dbased-font_002dlock"></span>
-
-
-<p>Besides simple syntactic font lock and regexp-based font lock, Emacs
-also provides complete syntactic font lock with the help of a parser.
-Currently, Emacs uses the tree-sitter library (see <a
href="Parsing-Program-Source.html">Parsing Program Source</a>) for this purpose.
-</p>
-<p>Parser-based font lock and other font lock mechanisms are not mutually
-exclusive. By default, if enabled, parser-based font lock runs first,
-replacing syntactic font lock, then the regexp-based font lock.
-</p>
-<p>Although parser-based font lock doesn’t share the same customization
-variables with regexp-based font lock, it uses similar customization
-schemes. The tree-sitter counterpart of <var>font-lock-keywords</var> is
-<var>treesit-font-lock-settings</var>.
-</p>
-<span id="index-tree_002dsitter-fontifications_002c-overview"></span>
-<span id="index-fontifications-with-tree_002dsitter_002c-overview"></span>
-<p>In general, tree-sitter fontification works as follows:
-</p>
-<ul>
-<li> A Lisp program (usually, part of a major mode) provides a <em>query</em>
-consisting of <em>patterns</em>, each pattern associated with a
-<em>capture name</em>.
-
-</li><li> The tree-sitter library finds the nodes in the parse tree
-that match these patterns, tags the nodes with the corresponding
-capture names, and returns them to the Lisp program.
-
-</li><li> The Lisp program uses the returned nodes to highlight the portions of
-buffer text corresponding to each node as appropriate, using the
-tagged capture names of the nodes to determine the correct
-fontification. For example, a node tagged <code>font-lock-keyword</code>
-would be highlighted in <code>font-lock-keyword</code> face.
-</li></ul>
-
-<p>For more information about queries, patterns, and capture names, see
-<a href="Pattern-Matching.html">Pattern Matching Tree-sitter Nodes</a>.
-</p>
-<p>To setup tree-sitter fontification, a major mode should first set
-<code>treesit-font-lock-settings</code> with the output of
-<code>treesit-font-lock-rules</code>, then call
-<code>treesit-major-mode-setup</code>.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dfont_002dlock_002drules"><span
class="category">Function:
</span><span><strong>treesit-font-lock-rules</strong> <em>&rest
query-specs</em><a href='#index-treesit_002dfont_002dlock_002drules'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function is used to set <var>treesit-font-lock-settings</var>. It
-takes care of compiling queries and other post-processing, and outputs
-a value that <var>treesit-font-lock-settings</var> accepts. Here’s an
-example:
-</p>
-<div class="example">
-<pre class="example">(treesit-font-lock-rules
- :language 'javascript
- :feature 'constant
- :override t
- '((true) @font-lock-constant-face
- (false) @font-lock-constant-face)
- :language 'html
- :feature 'script
- "(script_element) @font-lock-builtin-face")
-</pre></div>
-
-<p>This function takes a series of <var>query-spec</var>s, where each
-<var>query-spec</var> is a <var>query</var> preceded by one or more
-<var>:keyword</var>/<var>value</var> pairs. Each <var>query</var> is a
-tree-sitter query in either the string, s-expression or compiled form.
-</p>
-<p>For each <var>query</var>, the <var>:keyword</var>/<var>value</var> pairs
that
-precede it add meta information to it. The <code>:language</code> keyword
-declares <var>query</var>’s language. The <code>:feature</code> keyword
sets the
-feature name of <var>query</var>. Users can control which features are
-enabled with <code>font-lock-maximum-decoration</code> and
-<code>treesit-font-lock-feature-list</code> (described below). These two
-keywords are mandatory.
-</p>
-<p>Other keywords are optional:
-</p>
-<table>
-<thead><tr><th width="15%">Keyword</th><th width="15%">Value</th><th
width="60%">Description</th></tr></thead>
-<tr><td width="15%"><code>:override</code></td><td width="15%">nil</td><td
width="60%">If the region already has a face, discard the new face</td></tr>
-<tr><td width="15%"></td><td width="15%">t</td><td width="60%">Always apply
the new face</td></tr>
-<tr><td width="15%"></td><td width="15%"><code>append</code></td><td
width="60%">Append the new face to existing ones</td></tr>
-<tr><td width="15%"></td><td width="15%"><code>prepend</code></td><td
width="60%">Prepend the new face to existing ones</td></tr>
-<tr><td width="15%"></td><td width="15%"><code>keep</code></td><td
width="60%">Fill-in regions without an existing face</td></tr>
-</table>
-
-<p>Lisp programs mark patterns in <var>query</var> with capture names (names
-that starts with <code>@</code>), and tree-sitter will return matched nodes
-tagged with those same capture names. For the purpose of
-fontification, capture names in <var>query</var> should be face names like
-<code>font-lock-keyword-face</code>. The captured node will be fontified
-with that face.
-</p>
-<span id="index-treesit_002dfontify_002dwith_002doverride"></span>
-<p>Capture names can also be function names, in which case the function
-is called with 4 arguments: <var>node</var> and <var>override</var>,
<var>start</var>
-and <var>end</var>, where <var>node</var> is the node itself,
<var>override</var> is
-the override property of the rule which captured this node, and
-<var>start</var> and <var>end</var> limits the region in which this function
-should fontify. (If this function wants to respect the <var>override</var>
-argument, it can use <code>treesit-fontify-with-override</code>.)
-</p>
-<p>Beyond the 4 arguments presented, this function should accept more
-arguments as optional arguments for future extensibility.
-</p>
-<p>If a capture name is both a face and a function, the face takes
-priority. If a capture name is neither a face nor a function, it is
-ignored.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dfont_002dlock_002dfeature_002dlist"><span
class="category">Variable:
</span><span><strong>treesit-font-lock-feature-list</strong><a
href='#index-treesit_002dfont_002dlock_002dfeature_002dlist'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This is a list of lists of feature symbols. Each element of the list
-is a list that represents a decoration level.
-<code>font-lock-maximum-decoration</code> controls which levels are
-activated.
-</p>
-<p>Each element of the list is a list of the form
<code>(<var>feature</var> …)</code><!-- /@w -->, where each
<var>feature</var> corresponds to the
-<code>:feature</code> value of a query defined in
-<code>treesit-font-lock-rules</code>. Removing a feature symbol from this
-list disables the corresponding query during font-lock.
-</p>
-<p>Common feature names, for many programming languages, include
-<code>definition</code>, <code>type</code>, <code>assignment</code>,
<code>builtin</code>,
-<code>constant</code>, <code>keyword</code>, <code>string-interpolation</code>,
-<code>comment</code>, <code>doc</code>, <code>string</code>,
<code>operator</code>,
-<code>preprocessor</code>, <code>escape-sequence</code>, and <code>key</code>.
Major
-modes are free to subdivide or extend these common features.
-</p>
-<p>Some of these features warrant some explanation: <code>definition</code>
-highlights whatever is being defined, e.g., the function name in a
-function definition, the struct name in a struct definition, the
-variable name in a variable definition; <code>assignment</code> highlights
-the whatever is being assigned to, e.g., the variable or field in an
-assignment statement; <code>key</code> highlights keys in key-value pairs,
-e.g., keys in a JSON object, or a Python dictionary; <code>doc</code>
-highlights docstrings or doc-comments.
-</p>
-<p>For example, the value of this variable could be:
-</p><div class="example">
-<pre class="example">((comment string doc) ; level 1
- (function-name keyword type builtin constant) ; level 2
- (variable-name string-interpolation key)) ; level 3
-</pre></div>
-
-<p>Major modes should set this variable before calling
-<code>treesit-major-mode-setup</code>.
-</p>
-<span id="index-treesit_002dfont_002dlock_002drecompute_002dfeatures"></span>
-<p>For this variable to take effect, a Lisp program should call
-<code>treesit-font-lock-recompute-features</code> (which resets
-<code>treesit-font-lock-settings</code> accordingly), or
-<code>treesit-major-mode-setup</code> (which calls
-<code>treesit-font-lock-recompute-features</code>).
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dfont_002dlock_002dsettings"><span
class="category">Variable:
</span><span><strong>treesit-font-lock-settings</strong><a
href='#index-treesit_002dfont_002dlock_002dsettings' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>A list of settings for tree-sitter based font lock. The exact format
-of each setting is considered internal. One should always use
-<code>treesit-font-lock-rules</code> to set this variable.
-</p>
-</dd></dl>
-
-<p>Multi-language major modes should provide range functions in
-<code>treesit-range-functions</code>, and Emacs will set the ranges
-accordingly before fontifing a region (see <a
href="Multiple-Languages.html">Parsing Text in Multiple Languages</a>).
-</p>
-</div>
-<hr>
-<div class="header">
-<p>
-Previous: <a href="Multiline-Font-Lock.html">Multiline Font Lock
Constructs</a>, Up: <a href="Font-Lock-Mode.html">Font Lock Mode</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git
a/admin/notes/tree-sitter/html-manual/Parser_002dbased-Indentation.html
b/admin/notes/tree-sitter/html-manual/Parser_002dbased-Indentation.html
deleted file mode 100644
index cf1257f3102..00000000000
--- a/admin/notes/tree-sitter/html-manual/Parser_002dbased-Indentation.html
+++ /dev/null
@@ -1,280 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Parser-based Indentation (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Parser-based Indentation (GNU Emacs Lisp
Reference Manual)">
-<meta name="keywords" content="Parser-based Indentation (GNU Emacs Lisp
Reference Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Auto_002dIndentation.html" rel="up" title="Auto-Indentation">
-<link href="SMIE.html" rel="prev" title="SMIE">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="subsection" id="Parser_002dbased-Indentation">
-<div class="header">
-<p>
-Previous: <a href="SMIE.html" accesskey="p" rel="prev">Simple Minded
Indentation Engine</a>, Up: <a href="Auto_002dIndentation.html" accesskey="u"
rel="up">Automatic Indentation of code</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Parser_002dbased-Indentation-1"></span><h4 class="subsection">24.7.2
Parser-based Indentation</h4>
-<span id="index-parser_002dbased-indentation"></span>
-
-
-<p>When built with the tree-sitter library (see <a
href="Parsing-Program-Source.html">Parsing Program Source</a>), Emacs is
capable of parsing the program source and producing
-a syntax tree. This syntax tree can be used for guiding the program
-source indentation commands. For maximum flexibility, it is possible
-to write a custom indentation function that queries the syntax tree
-and indents accordingly for each language, but that is a lot of work.
-It is more convenient to use the simple indentation engine described
-below: then the major mode needs only to write some indentation rules
-and the engine takes care of the rest.
-</p>
-<p>To enable the parser-based indentation engine, either set
-<var>treesit-simple-indent-rules</var> and call
-<code>treesit-major-mode-setup</code>, or equivalently, set the value of
-<code>indent-line-function</code> to <code>treesit-indent</code>.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dindent_002dfunction"><span
class="category">Variable:
</span><span><strong>treesit-indent-function</strong><a
href='#index-treesit_002dindent_002dfunction' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This variable stores the actual function called by
-<code>treesit-indent</code>. By default, its value is
-<code>treesit-simple-indent</code>. In the future we might add other,
-more complex indentation engines.
-</p></dd></dl>
-
-<span id="Writing-indentation-rules"></span><h3 class="heading">Writing
indentation rules</h3>
-<span
id="index-indentation-rules_002c-for-parser_002dbased-indentation"></span>
-
-<dl class="def">
-<dt id="index-treesit_002dsimple_002dindent_002drules"><span
class="category">Variable:
</span><span><strong>treesit-simple-indent-rules</strong><a
href='#index-treesit_002dsimple_002dindent_002drules' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This local variable stores indentation rules for every language. It is
-a list of the form:
<code>(<var>language</var> . <var>rules</var>)</code><!-- /@w -->,
where
-<var>language</var> is a language symbol, and <var>rules</var> is a list of the
-form
<code>(<var>matcher</var> <var>anchor</var> <var>offset</var>)</code><!--
/@w -->.
-</p>
-<p>First, Emacs passes the smallest tree-sitter node at the beginning of
-the current line to <var>matcher</var>; if it returns non-<code>nil</code>,
this
-rule is applicable. Then Emacs passes the node to <var>anchor</var>, which
-returns a buffer position. Emacs takes the column number of that
-position, adds <var>offset</var> to it, and the result is the indentation
-column for the current line. <var>offset</var> can be an integer or a
-variable whose value is an integer.
-</p>
-<p>The <var>matcher</var> and <var>anchor</var> are functions, and Emacs
provides
-convenient defaults for them.
-</p>
-<p>Each <var>matcher</var> or <var>anchor</var> is a function that takes three
-arguments: <var>node</var>, <var>parent</var>, and <var>bol</var>. The
argument
-<var>bol</var> is the buffer position whose indentation is required: the
-position of the first non-whitespace character after the beginning of
-the line. The argument <var>node</var> is the largest (highest-in-tree)
-node that starts at that position; and <var>parent</var> is the parent of
-<var>node</var>. However, when that position is in a whitespace or inside
-a multi-line string, no node can start at that position, so
-<var>node</var> is <code>nil</code>. In that case, <var>parent</var> would be
the
-smallest node that spans that position.
-</p>
-<p>Emacs finds <var>bol</var>, <var>node</var> and <var>parent</var> and
-passes them to each <var>matcher</var> and <var>anchor</var>.
<var>matcher</var>
-should return non-<code>nil</code> if the rule is applicable, and
-<var>anchor</var> should return a buffer position.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dsimple_002dindent_002dpresets"><span
class="category">Variable:
</span><span><strong>treesit-simple-indent-presets</strong><a
href='#index-treesit_002dsimple_002dindent_002dpresets'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This is a list of defaults for <var>matcher</var>s and
<var>anchor</var>s in
-<code>treesit-simple-indent-rules</code>. Each of them represents a function
-that takes 3 arguments: <var>node</var>, <var>parent</var> and <var>bol</var>.
The
-available default functions are:
-</p>
-<dl compact="compact">
-<dt id='index-no_002dnode'><span><code>no-node</code><a
href='#index-no_002dnode' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This matcher is a function that is called with 3 arguments:
-<var>node</var>, <var>parent</var>, and <var>bol</var>, and returns
non-<code>nil</code>,
-indicating a match, if <var>node</var> is <code>nil</code>, i.e., there is no
-node that starts at <var>bol</var>. This is the case when <var>bol</var> is on
-an empty line or inside a multi-line string, etc.
-</p>
-</dd>
-<dt id='index-parent_002dis'><span><code>parent-is</code><a
href='#index-parent_002dis' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This matcher is a function of one argument, <var>type</var>; it returns
a
-function that is called with 3 arguments: <var>node</var>, <var>parent</var>,
-and <var>bol</var>, and returns non-<code>nil</code> (i.e., a match) if
-<var>parent</var>’s type matches regexp <var>type</var>.
-</p>
-</dd>
-<dt id='index-node_002dis'><span><code>node-is</code><a
href='#index-node_002dis' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This matcher is a function of one argument, <var>type</var>; it returns
a
-function that is called with 3 arguments: <var>node</var>, <var>parent</var>,
-and <var>bol</var>, and returns non-<code>nil</code> if
<var>node</var>’s type matches
-regexp <var>type</var>.
-</p>
-</dd>
-<dt id='index-query'><span><code>query</code><a href='#index-query'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This matcher is a function of one argument, <var>query</var>; it
returns a
-function that is called with 3 arguments: <var>node</var>, <var>parent</var>,
-and <var>bol</var>, and returns non-<code>nil</code> if querying
<var>parent</var>
-with <var>query</var> captures <var>node</var> (see <a
href="Pattern-Matching.html">Pattern Matching Tree-sitter Nodes</a>).
-</p>
-</dd>
-<dt id='index-match'><span><code>match</code><a href='#index-match'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This matcher is a function of 5 arguments: <var>node-type</var>,
-<var>parent-type</var>, <var>node-field</var>, <var>node-index-min</var>, and
-<var>node-index-max</var>). It returns a function that is called with 3
-arguments: <var>node</var>, <var>parent</var>, and <var>bol</var>, and returns
-non-<code>nil</code> if <var>node</var>’s type matches regexp
<var>node-type</var>,
-<var>parent</var>’s type matches regexp <var>parent-type</var>,
<var>node</var>’s
-field name in <var>parent</var> matches regexp <var>node-field</var>, and
-<var>node</var>’s index among its siblings is between
<var>node-index-min</var>
-and <var>node-index-max</var>. If the value of an argument is
<code>nil</code>,
-this matcher doesn’t check that argument. For example, to match the
-first child where parent is <code>argument_list</code>, use
-</p>
-<div class="example">
-<pre class="example">(match nil "argument_list" nil nil 0 0)
-</pre></div>
-
-</dd>
-<dt id='index-comment_002dend'><span><code>comment-end</code><a
href='#index-comment_002dend' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This matcher is a function that is called with 3 arguments:
-<var>node</var>, <var>parent</var>, and <var>bol</var>, and returns
non-<code>nil</code> if
-point is before a comment ending token. Comment ending tokens are
-defined by regular expression <code>treesit-comment-end</code>
-(see <a href="Tree_002dsitter-major-modes.html">treesit-comment-end</a>).
-</p>
-</dd>
-<dt id='index-first_002dsibling'><span><code>first-sibling</code><a
href='#index-first_002dsibling' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the start of the first child
-of <var>parent</var>.
-</p>
-</dd>
-<dt id='index-parent'><span><code>parent</code><a href='#index-parent'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the start of
<var>parent</var>.
-</p>
-</dd>
-<dt id='index-parent_002dbol'><span><code>parent-bol</code><a
href='#index-parent_002dbol' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the first non-space
character
-on the line of <var>parent</var>.
-</p>
-</dd>
-<dt id='index-prev_002dsibling'><span><code>prev-sibling</code><a
href='#index-prev_002dsibling' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the start of the previous
-sibling of <var>node</var>.
-</p>
-</dd>
-<dt id='index-no_002dindent'><span><code>no-indent</code><a
href='#index-no_002dindent' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the start of
<var>node</var>.
-</p>
-</dd>
-<dt id='index-prev_002dline'><span><code>prev-line</code><a
href='#index-prev_002dline' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the first non-whitespace
-character on the previous line.
-</p>
-</dd>
-<dt id='index-point_002dmin'><span><code>point-min</code><a
href='#index-point_002dmin' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the beginning of the buffer.
-This is useful as the beginning of the buffer is always at column 0.
-</p>
-</dd>
-<dt id='index-comment_002dstart'><span><code>comment-start</code><a
href='#index-comment_002dstart' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the position right after the
-comment-start token. Comment-start tokens are defined by regular
-expression <code>treesit-comment-start</code> (see <a
href="Tree_002dsitter-major-modes.html">treesit-comment-start</a>). This
function assumes <var>parent</var> is
-the comment node.
-</p>
-</dd>
-<dt
id='index-coment_002dstart_002dskip'><span><code>comment-start-skip</code><a
href='#index-coment_002dstart_002dskip' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This anchor is a function that is called with 3 arguments:
<var>node</var>,
-<var>parent</var>, and <var>bol</var>, and returns the position after the
-comment-start token and any whitespace characters following that
-token. Comment-start tokens are defined by regular expression
-<code>treesit-comment-start</code>. This function assumes <var>parent</var> is
-the comment node.
-</p></dd>
-</dl>
-</dd></dl>
-
-<span id="Indentation-utilities"></span><h3 class="heading">Indentation
utilities</h3>
-<span id="index-utility-functions-for-parser_002dbased-indentation"></span>
-
-<p>Here are some utility functions that can help writing parser-based
-indentation rules.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dcheck_002dindent"><span class="category">Function:
</span><span><strong>treesit-check-indent</strong> <em>mode</em><a
href='#index-treesit_002dcheck_002dindent' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function checks the current buffer’s indentation against
major
-mode <var>mode</var>. It indents the current buffer according to
-<var>mode</var> and compares the results with the current indentation.
-Then it pops up a buffer showing the differences. Correct
-indentation (target) is shown in green color, current indentation is
-shown in red color. </p></dd></dl>
-
-<p>It is also helpful to use <code>treesit-inspect-mode</code> (see <a
href="Language-Definitions.html">Tree-sitter Language Definitions</a>) when
writing indentation rules.
-</p>
-</div>
-<hr>
-<div class="header">
-<p>
-Previous: <a href="SMIE.html">Simple Minded Indentation Engine</a>, Up: <a
href="Auto_002dIndentation.html">Automatic Indentation of code</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Parsing-Program-Source.html
b/admin/notes/tree-sitter/html-manual/Parsing-Program-Source.html
deleted file mode 100644
index 58f6b4e9d5a..00000000000
--- a/admin/notes/tree-sitter/html-manual/Parsing-Program-Source.html
+++ /dev/null
@@ -1,125 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Parsing Program Source (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Parsing Program Source (GNU Emacs Lisp
Reference Manual)">
-<meta name="keywords" content="Parsing Program Source (GNU Emacs Lisp
Reference Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="index.html" rel="up" title="Top">
-<link href="Abbrevs.html" rel="next" title="Abbrevs">
-<link href="Syntax-Tables.html" rel="prev" title="Syntax Tables">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="chapter" id="Parsing-Program-Source">
-<div class="header">
-<p>
-Next: <a href="Abbrevs.html" accesskey="n" rel="next">Abbrevs and Abbrev
Expansion</a>, Previous: <a href="Syntax-Tables.html" accesskey="p"
rel="prev">Syntax Tables</a>, Up: <a href="index.html" accesskey="u"
rel="up">Emacs Lisp</a> [<a href="index.html#SEC_Contents" title="Table
of contents" rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Parsing-Program-Source-1"></span><h2 class="chapter">37 Parsing
Program Source</h2>
-
-<span id="index-syntax-tree_002c-from-parsing-program-source"></span>
-<p>Emacs provides various ways to parse program source text and produce a
-<em>syntax tree</em>. In a syntax tree, text is no longer considered a
-one-dimensional stream of characters, but a structured tree of nodes,
-where each node representing a piece of text. Thus, a syntax tree can
-enable interesting features like precise fontification, indentation,
-navigation, structured editing, etc.
-</p>
-<p>Emacs has a simple facility for parsing balanced expressions
-(see <a href="Parsing-Expressions.html">Parsing Expressions</a>). There is
also the SMIE library for
-generic navigation and indentation (see <a href="SMIE.html">Simple Minded
Indentation Engine</a>).
-</p>
-<p>In addition to those, Emacs also provides integration with
-<a href="https://tree-sitter.github.io/tree-sitter";>the tree-sitter
-library</a>) if support for it was compiled in. The tree-sitter library
-implements an incremental parser and has support from a wide range of
-programming languages.
-</p>
-<dl class="def">
-<dt id="index-treesit_002davailable_002dp"><span class="category">Function:
</span><span><strong>treesit-available-p</strong><a
href='#index-treesit_002davailable_002dp' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns non-<code>nil</code> if tree-sitter features are
-available for the current Emacs session.
-</p></dd></dl>
-
-<p>To be able to parse the program source using the tree-sitter library
-and access the syntax tree of the program, a Lisp program needs to
-load a language definition library, and create a parser for that
-language and the current buffer. After that, the Lisp program can
-query the parser about specific nodes of the syntax tree. Then, it
-can access various kinds of information about each node, and search
-for nodes using a powerful pattern-matching syntax. This chapter
-explains how to do all this, and also how a Lisp program can work with
-source files that mix multiple programming languages.
-</p>
-
-<ul class="section-toc">
-<li><a href="Language-Definitions.html" accesskey="1">Tree-sitter Language
Definitions</a></li>
-<li><a href="Using-Parser.html" accesskey="2">Using Tree-sitter Parser</a></li>
-<li><a href="Retrieving-Nodes.html" accesskey="3">Retrieving Nodes</a></li>
-<li><a href="Accessing-Node-Information.html" accesskey="4">Accessing Node
Information</a></li>
-<li><a href="Pattern-Matching.html" accesskey="5">Pattern Matching Tree-sitter
Nodes</a></li>
-<li><a href="Multiple-Languages.html" accesskey="6">Parsing Text in Multiple
Languages</a></li>
-<li><a href="Tree_002dsitter-major-modes.html" accesskey="7">Developing major
modes with tree-sitter</a></li>
-<li><a href="Tree_002dsitter-C-API.html" accesskey="8">Tree-sitter C API
Correspondence</a></li>
-</ul>
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Abbrevs.html">Abbrevs and Abbrev Expansion</a>, Previous: <a
href="Syntax-Tables.html">Syntax Tables</a>, Up: <a href="index.html">Emacs
Lisp</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Pattern-Matching.html
b/admin/notes/tree-sitter/html-manual/Pattern-Matching.html
deleted file mode 100644
index 9ef536b79dd..00000000000
--- a/admin/notes/tree-sitter/html-manual/Pattern-Matching.html
+++ /dev/null
@@ -1,450 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Pattern Matching (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Pattern Matching (GNU Emacs Lisp Reference
Manual)">
-<meta name="keywords" content="Pattern Matching (GNU Emacs Lisp Reference
Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Multiple-Languages.html" rel="next" title="Multiple Languages">
-<link href="Accessing-Node-Information.html" rel="prev" title="Accessing Node
Information">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Pattern-Matching">
-<div class="header">
-<p>
-Next: <a href="Multiple-Languages.html" accesskey="n" rel="next">Parsing Text
in Multiple Languages</a>, Previous: <a href="Accessing-Node-Information.html"
accesskey="p" rel="prev">Accessing Node Information</a>, Up: <a
href="Parsing-Program-Source.html" accesskey="u" rel="up">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Pattern-Matching-Tree_002dsitter-Nodes"></span><h3
class="section">37.5 Pattern Matching Tree-sitter Nodes</h3>
-<span id="index-pattern-matching-with-tree_002dsitter-nodes"></span>
-
-<span id="index-capturing_002c-tree_002dsitter-node"></span>
-<p>Tree-sitter lets Lisp programs match patterns using a small
-declarative language. This pattern matching consists of two steps:
-first tree-sitter matches a <em>pattern</em> against nodes in the syntax
-tree, then it <em>captures</em> specific nodes that matched the pattern
-and returns the captured nodes.
-</p>
-<p>We describe first how to write the most basic query pattern and how to
-capture nodes in a pattern, then the pattern-matching function, and
-finally the more advanced pattern syntax.
-</p>
-<span id="Basic-query-syntax"></span><h3 class="heading">Basic query
syntax</h3>
-
-<span id="index-tree_002dsitter-query-pattern-syntax"></span>
-<span id="index-pattern-syntax_002c-tree_002dsitter-query"></span>
-<span id="index-query_002c-tree_002dsitter"></span>
-<p>A <em>query</em> consists of multiple <em>patterns</em>. Each pattern is an
-s-expression that matches a certain node in the syntax node. A
-pattern has the form
<code>(<var>type</var> (<var>child</var>…))</code><!-- /@w -->
-</p>
-<p>For example, a pattern that matches a <code>binary_expression</code> node
that
-contains <code>number_literal</code> child nodes would look like
-</p>
-<div class="example">
-<pre class="example">(binary_expression (number_literal))
-</pre></div>
-
-<p>To <em>capture</em> a node using the query pattern above, append
-<code>@<var>capture-name</var></code> after the node pattern you want to
-capture. For example,
-</p>
-<div class="example">
-<pre class="example">(binary_expression (number_literal) @number-in-exp)
-</pre></div>
-
-<p>captures <code>number_literal</code> nodes that are inside a
-<code>binary_expression</code> node with the capture name
-<code>number-in-exp</code>.
-</p>
-<p>We can capture the <code>binary_expression</code> node as well, with, for
-example, the capture name <code>biexp</code>:
-</p>
-<div class="example">
-<pre class="example">(binary_expression
- (number_literal) @number-in-exp) @biexp
-</pre></div>
-
-<span id="Query-function"></span><h3 class="heading">Query function</h3>
-
-<span id="index-query-functions_002c-tree_002dsitter"></span>
-<p>Now we can introduce the <em>query functions</em>.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dquery_002dcapture"><span class="category">Function:
</span><span><strong>treesit-query-capture</strong> <em>node query
&optional beg end node-only</em><a
href='#index-treesit_002dquery_002dcapture' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function matches patterns in <var>query</var> within
<var>node</var>.
-The argument <var>query</var> can be either a string, a s-expression, or a
-compiled query object. For now, we focus on the string syntax;
-s-expression syntax and compiled query are described at the end of the
-section.
-</p>
-<p>The argument <var>node</var> can also be a parser or a language symbol. A
-parser means using its root node, a language symbol means find or
-create a parser for that language in the current buffer, and use the
-root node.
-</p>
-<p>The function returns all the captured nodes in a list of the form
-<code>(<var><span
class="nolinebreak">capture_name</span></var> . <var>node</var>)</code><!--
/@w -->. If <var>node-only</var> is
-non-<code>nil</code>, it returns the list of nodes instead. By default the
-entire text of <var>node</var> is searched, but if <var>beg</var> and
<var>end</var>
-are both non-<code>nil</code>, they specify the region of buffer text where
-this function should match nodes. Any matching node whose span
-overlaps with the region between <var>beg</var> and <var>end</var> are
captured,
-it doesn’t have to be completely in the region.
-</p>
-<span id="index-treesit_002dquery_002derror"></span>
-<span id="index-treesit_002dquery_002dvalidate"></span>
-<p>This function raises the <code>treesit-query-error</code> error if
-<var>query</var> is malformed. The signal data contains a description of
-the specific error. You can use <code>treesit-query-validate</code> to
-validate and debug the query.
-</p></dd></dl>
-
-<p>For example, suppose <var>node</var>’s text is <code>1 + 2</code>, and
-<var>query</var> is
-</p>
-<div class="example">
-<pre class="example">(setq query
- "(binary_expression
- (number_literal) @number-in-exp) @biexp")
-</pre></div>
-
-<p>Matching that query would return
-</p>
-<div class="example">
-<pre class="example">(treesit-query-capture node query)
- ⇒ ((biexp . <var><node for "1 + 2"></var>)
- (number-in-exp . <var><node for "1"></var>)
- (number-in-exp . <var><node for "2"></var>))
-</pre></div>
-
-<p>As mentioned earlier, <var>query</var> could contain multiple patterns.
-For example, it could have two top-level patterns:
-</p>
-<div class="example">
-<pre class="example">(setq query
- "(binary_expression) @biexp
- (number_literal) @number @biexp")
-</pre></div>
-
-<dl class="def">
-<dt id="index-treesit_002dquery_002dstring"><span class="category">Function:
</span><span><strong>treesit-query-string</strong> <em>string query
language</em><a href='#index-treesit_002dquery_002dstring'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function parses <var>string</var> with <var>language</var>,
matches its
-root node with <var>query</var>, and returns the result.
-</p></dd></dl>
-
-<span id="More-query-syntax"></span><h3 class="heading">More query syntax</h3>
-
-<p>Besides node type and capture, tree-sitter’s pattern syntax can
-express anonymous node, field name, wildcard, quantification,
-grouping, alternation, anchor, and predicate.
-</p>
-<span id="Anonymous-node"></span><h4 class="subheading">Anonymous node</h4>
-
-<p>An anonymous node is written verbatim, surrounded by quotes. A
-pattern matching (and capturing) keyword <code>return</code> would be
-</p>
-<div class="example">
-<pre class="example">"return" @keyword
-</pre></div>
-
-<span id="Wild-card"></span><h4 class="subheading">Wild card</h4>
-
-<p>In a pattern, ‘<samp>(_)</samp>’ matches any named node, and
‘<samp>_</samp>’ matches
-any named and anonymous node. For example, to capture any named child
-of a <code>binary_expression</code> node, the pattern would be
-</p>
-<div class="example">
-<pre class="example">(binary_expression (_) @in_biexp)
-</pre></div>
-
-<span id="Field-name"></span><h4 class="subheading">Field name</h4>
-
-<p>It is possible to capture child nodes that have specific field names.
-In the pattern below, <code>declarator</code> and <code>body</code> are field
-names, indicated by the colon following them.
-</p>
-<div class="example">
-<pre class="example">(function_definition
- declarator: (_) @func-declarator
- body: (_) @func-body)
-</pre></div>
-
-<p>It is also possible to capture a node that doesn’t have a certain
-field, say, a <code>function_definition</code> without a <code>body</code>
field.
-</p>
-<div class="example">
-<pre class="example">(function_definition !body) @func-no-body
-</pre></div>
-
-<span id="Quantify-node"></span><h4 class="subheading">Quantify node</h4>
-
-<span id="index-quantify-node_002c-tree_002dsitter"></span>
-<p>Tree-sitter recognizes quantification operators
‘<samp>*</samp>’, ‘<samp>+</samp>’ and
-‘<samp>?</samp>’. Their meanings are the same as in regular
expressions:
-‘<samp>*</samp>’ matches the preceding pattern zero or more times,
‘<samp>+</samp>’
-matches one or more times, and ‘<samp>?</samp>’ matches zero or
one time.
-</p>
-<p>For example, the following pattern matches <code>type_declaration</code>
-nodes that has <em>zero or more</em> <code>long</code> keyword.
-</p>
-<div class="example">
-<pre class="example">(type_declaration "long"*) @long-type
-</pre></div>
-
-<p>The following pattern matches a type declaration that has zero or one
-<code>long</code> keyword:
-</p>
-<div class="example">
-<pre class="example">(type_declaration "long"?) @long-type
-</pre></div>
-
-<span id="Grouping"></span><h4 class="subheading">Grouping</h4>
-
-<p>Similar to groups in regular expression, we can bundle patterns into
-groups and apply quantification operators to them. For example, to
-express a comma separated list of identifiers, one could write
-</p>
-<div class="example">
-<pre class="example">(identifier) ("," (identifier))*
-</pre></div>
-
-<span id="Alternation"></span><h4 class="subheading">Alternation</h4>
-
-<p>Again, similar to regular expressions, we can express “match anyone
-from this group of patterns” in a pattern. The syntax is a list of
-patterns enclosed in square brackets. For example, to capture some
-keywords in C, the pattern would be
-</p>
-<div class="example">
-<pre class="example">[
- "return"
- "break"
- "if"
- "else"
-] @keyword
-</pre></div>
-
-<span id="Anchor"></span><h4 class="subheading">Anchor</h4>
-
-<p>The anchor operator ‘<samp>.</samp>’ can be used to enforce
juxtaposition,
-i.e., to enforce two things to be directly next to each other. The
-two “things” can be two nodes, or a child and the end of its
parent.
-For example, to capture the first child, the last child, or two
-adjacent children:
-</p>
-<div class="example">
-<pre class="example">;; Anchor the child with the end of its parent.
-(compound_expression (_) @last-child .)
-</pre><pre class="example">
-
-</pre><pre class="example">;; Anchor the child with the beginning of its
parent.
-(compound_expression . (_) @first-child)
-</pre><pre class="example">
-
-</pre><pre class="example">;; Anchor two adjacent children.
-(compound_expression
- (_) @prev-child
- .
- (_) @next-child)
-</pre></div>
-
-<p>Note that the enforcement of juxtaposition ignores any anonymous
-nodes.
-</p>
-<span id="Predicate"></span><h4 class="subheading">Predicate</h4>
-
-<p>It is possible to add predicate constraints to a pattern. For
-example, with the following pattern:
-</p>
-<div class="example">
-<pre class="example">(
- (array . (_) @first (_) @last .)
- (#equal @first @last)
-)
-</pre></div>
-
-<p>tree-sitter only matches arrays where the first element equals to
-the last element. To attach a predicate to a pattern, we need to
-group them together. A predicate always starts with a
‘<samp>#</samp>’.
-Currently there are two predicates, <code>#equal</code> and
<code>#match</code>.
-</p>
-<dl class="def">
-<dt id="index-equal-1"><span class="category">Predicate:
</span><span><strong>equal</strong> <em>arg1 arg2</em><a href='#index-equal-1'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>Matches if <var>arg1</var> equals to <var>arg2</var>. Arguments can be
either
-strings or capture names. Capture names represent the text that the
-captured node spans in the buffer.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-match-1"><span class="category">Predicate:
</span><span><strong>match</strong> <em>regexp capture-name</em><a
href='#index-match-1' class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>Matches if the text that <var>capture-name</var>’s node spans in
the buffer
-matches regular expression <var>regexp</var>. Matching is case-sensitive.
-</p></dd></dl>
-
-<p>Note that a predicate can only refer to capture names that appear in
-the same pattern. Indeed, it makes little sense to refer to capture
-names in other patterns.
-</p>
-<span id="S_002dexpression-patterns"></span><h3 class="heading">S-expression
patterns</h3>
-
-<span id="index-tree_002dsitter-patterns-as-sexps"></span>
-<span id="index-patterns_002c-tree_002dsitter_002c-in-sexp-form"></span>
-<p>Besides strings, Emacs provides a s-expression based syntax for
-tree-sitter patterns. It largely resembles the string-based syntax.
-For example, the following query
-</p>
-<div class="example">
-<pre class="example">(treesit-query-capture
- node "(addition_expression
- left: (_) @left
- \"+\" @plus-sign
- right: (_) @right) @addition
-
- [\"return\" \"break\"] @keyword")
-</pre></div>
-
-<p>is equivalent to
-</p>
-<div class="example">
-<pre class="example">(treesit-query-capture
- node '((addition_expression
- left: (_) @left
- "+" @plus-sign
- right: (_) @right) @addition
-
- ["return" "break"] @keyword))
-</pre></div>
-
-<p>Most patterns can be written directly as strange but nevertheless
-valid s-expressions. Only a few of them needs modification:
-</p>
-<ul>
-<li> Anchor ‘<samp>.</samp>’ is written as <code>:anchor</code>.
-</li><li> ‘<samp>?</samp>’ is written as
‘<samp>:?</samp>’.
-</li><li> ‘<samp>*</samp>’ is written as
‘<samp>:*</samp>’.
-</li><li> ‘<samp>+</samp>’ is written as
‘<samp>:+</samp>’.
-</li><li> <code>#equal</code> is written as <code>:equal</code>. In general,
predicates
-change their ‘<samp>#</samp>’ to ‘<samp>:</samp>’.
-</li></ul>
-
-<p>For example,
-</p>
-<div class="example">
-<pre class="example">"(
- (compound_expression . (_) @first (_)* @rest)
- (#match \"love\" @first)
- )"
-</pre></div>
-
-<p>is written in s-expression as
-</p>
-<div class="example">
-<pre class="example">'((
- (compound_expression :anchor (_) @first (_) :* @rest)
- (:match "love" @first)
- ))
-</pre></div>
-
-<span id="Compiling-queries"></span><h3 class="heading">Compiling queries</h3>
-
-<span id="index-compiling-tree_002dsitter-queries"></span>
-<span id="index-queries_002c-compiling"></span>
-<p>If a query is intended to be used repeatedly, especially in tight
-loops, it is important to compile that query, because a compiled query
-is much faster than an uncompiled one. A compiled query can be used
-anywhere a query is accepted.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dquery_002dcompile"><span class="category">Function:
</span><span><strong>treesit-query-compile</strong> <em>language query</em><a
href='#index-treesit_002dquery_002dcompile' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function compiles <var>query</var> for <var>language</var> into a
compiled
-query object and returns it.
-</p>
-<p>This function raises the <code>treesit-query-error</code> error if
-<var>query</var> is malformed. The signal data contains a description of
-the specific error. You can use <code>treesit-query-validate</code> to
-validate and debug the query.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dquery_002dlanguage"><span class="category">Function:
</span><span><strong>treesit-query-language</strong> <em>query</em><a
href='#index-treesit_002dquery_002dlanguage' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function return the language of <var>query</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dquery_002dexpand"><span class="category">Function:
</span><span><strong>treesit-query-expand</strong> <em>query</em><a
href='#index-treesit_002dquery_002dexpand' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function converts the s-expression <var>query</var> into the string
-format.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dpattern_002dexpand"><span class="category">Function:
</span><span><strong>treesit-pattern-expand</strong> <em>pattern</em><a
href='#index-treesit_002dpattern_002dexpand' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function converts the s-expression <var>pattern</var> into the
string
-format.
-</p></dd></dl>
-
-<p>For more details, read the tree-sitter project’s documentation about
-pattern-matching, which can be found at
-<a
href="https://tree-sitter.github.io/tree-sitter/using-parsers#pattern-matching-with-queries";>https://tree-sitter.github.io/tree-sitter/using-parsers#pattern-matching-with-queries</a>.
-</p>
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Multiple-Languages.html">Parsing Text in Multiple
Languages</a>, Previous: <a href="Accessing-Node-Information.html">Accessing
Node Information</a>, Up: <a href="Parsing-Program-Source.html">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Retrieving-Node.html
b/admin/notes/tree-sitter/html-manual/Retrieving-Node.html
deleted file mode 100644
index 16eeb0b1091..00000000000
--- a/admin/notes/tree-sitter/html-manual/Retrieving-Node.html
+++ /dev/null
@@ -1,420 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Retrieving Node (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Retrieving Node (GNU Emacs Lisp Reference
Manual)">
-<meta name="keywords" content="Retrieving Node (GNU Emacs Lisp Reference
Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Accessing-Node-Information.html" rel="next" title="Accessing Node
Information">
-<link href="Using-Parser.html" rel="prev" title="Using Parser">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Retrieving-Node">
-<div class="header">
-<p>
-Next: <a href="Accessing-Node-Information.html" accesskey="n"
rel="next">Accessing Node Information</a>, Previous: <a
href="Using-Parser.html" accesskey="p" rel="prev">Using Tree-sitter Parser</a>,
Up: <a href="Parsing-Program-Source.html" accesskey="u" rel="up">Parsing
Program Source</a> [<a href="index.html#SEC_Contents" title="Table of
contents" rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Retrieving-Node-1"></span><h3 class="section">37.3 Retrieving
Node</h3>
-<span id="index-retrieve-node_002c-tree_002dsitter"></span>
-<span id="index-tree_002dsitter_002c-find-node"></span>
-<span id="index-get-node_002c-tree_002dsitter"></span>
-
-<span id="index-terminology_002c-for-tree_002dsitter-functions"></span>
-<p>Here’s some terminology and conventions we use when documenting
-tree-sitter functions.
-</p>
-<p>We talk about a node being “smaller” or “larger”,
and “lower” or
-“higher”. A smaller and lower node is lower in the syntax tree and
-therefore spans a smaller portion of buffer text; a larger and higher
-node is higher up in the syntax tree, it contains many smaller nodes
-as its children, and therefore spans a larger portion of text.
-</p>
-<p>When a function cannot find a node, it returns <code>nil</code>. For
-convenience, all functions that take a node as argument and return
-a node, also accept the node argument of <code>nil</code> and in that case
-just return <code>nil</code>.
-</p>
-<span id="index-treesit_002dnode_002doutdated"></span>
-<p>Nodes are not automatically updated when the associated buffer is
-modified, and there is no way to update a node once it is retrieved.
-Using an outdated node signals the <code>treesit-node-outdated</code> error.
-</p>
-<span id="Retrieving-node-from-syntax-tree"></span><h3
class="heading">Retrieving node from syntax tree</h3>
-<span id="index-retrieving-tree_002dsitter-nodes"></span>
-<span id="index-syntax-tree_002c-retrieving-nodes"></span>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dat"><span class="category">Function:
</span><span><strong>treesit-node-at</strong> <em>pos &optional
parser-or-lang named</em><a href='#index-treesit_002dnode_002dat'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns the <em>smallest</em> node that starts at or after
-the buffer position <var>pos</var>. In other words, the start of the node
-is greater or equal to <var>pos</var>.
-</p>
-<p>When <var>parser-or-lang</var> is <code>nil</code> or omitted, this
function uses
-the first parser in <code>(treesit-parser-list)</code> of the current
-buffer. If <var>parser-or-lang</var> is a parser object, it uses that
-parser; if <var>parser-or-lang</var> is a language, it finds the first
-parser using that language in <code>(treesit-parser-list)</code>, and uses
-that.
-</p>
-<p>If <var>named</var> is non-<code>nil</code>, this function looks for a
named node
-only (see <a href="Language-Definitions.html#tree_002dsitter-named-node">named
node</a>).
-</p>
-<p>When <var>pos</var> is after all the text in the buffer, technically there
-is no node after <var>pos</var>. But for convenience, this function will
-return the last leaf node in the parse tree. If <var>strict</var> is
-non-<code>nil</code>, this function will strictly comply to the semantics and
-return <var>nil</var>.
-</p>
-<p>Example:
-</p>
-<div class="example">
-<pre class="example">;; Find the node at point in a C parser's syntax tree.
-(treesit-node-at (point) 'c)
- ⇒ #<treesit-node (primitive_type) in 23-27>
-</pre></div>
-</dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002don"><span class="category">Function:
</span><span><strong>treesit-node-on</strong> <em>beg end &optional
parser-or-lang named</em><a href='#index-treesit_002dnode_002don'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns the <em>smallest</em> node that covers the region
-of buffer text between <var>beg</var> and <var>end</var>. In other words, the
-start of the node is before or at <var>beg</var>, and the end of the node
-is at or after <var>end</var>.
-</p>
-<p><em>Beware:</em> calling this function on an empty line that is not
-inside any top-level construct (function definition, etc.) most
-probably will give you the root node, because the root node is the
-smallest node that covers that empty line. Most of the time, you want
-to use <code>treesit-node-at</code>, described above, instead.
-</p>
-<p>When <var>parser-or-lang</var> is <code>nil</code>, this function uses the
first
-parser in <code>(treesit-parser-list)</code> of the current buffer. If
-<var>parser-or-lang</var> is a parser object, it uses that parser; if
-<var>parser-or-lang</var> is a language, it finds the first parser using
-that language in <code>(treesit-parser-list)</code>, and uses that.
-</p>
-<p>If <var>named</var> is non-<code>nil</code>, this function looks for a
named node
-only (see <a href="Language-Definitions.html#tree_002dsitter-named-node">named
node</a>).
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002droot_002dnode"><span
class="category">Function:
</span><span><strong>treesit-parser-root-node</strong> <em>parser</em><a
href='#index-treesit_002dparser_002droot_002dnode' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the root node of the syntax tree generated by
-<var>parser</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dbuffer_002droot_002dnode"><span
class="category">Function:
</span><span><strong>treesit-buffer-root-node</strong> <em>&optional
language</em><a href='#index-treesit_002dbuffer_002droot_002dnode'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds the first parser that uses <var>language</var> in
-<code>(treesit-parser-list)</code> of the current buffer, and returns the
-root node generated by that parser. If it cannot find an appropriate
-parser, it returns <code>nil</code>.
-</p></dd></dl>
-
-<p>Given a node, a Lisp program can retrieve other nodes starting from
-it, or query for information about this node.
-</p>
-<span id="Retrieving-node-from-other-nodes"></span><h3
class="heading">Retrieving node from other nodes</h3>
-<span id="index-syntax-tree-nodes_002c-retrieving-from-other-nodes"></span>
-
-<span id="By-kinship"></span><h4 class="subheading">By kinship</h4>
-<span id="index-kinship_002c-syntax-tree-nodes"></span>
-<span id="index-nodes_002c-by-kinship"></span>
-<span id="index-syntax-tree-nodes_002c-by-kinship"></span>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dparent"><span class="category">Function:
</span><span><strong>treesit-node-parent</strong> <em>node</em><a
href='#index-treesit_002dnode_002dparent' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the immediate parent of <var>node</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dchild"><span class="category">Function:
</span><span><strong>treesit-node-child</strong> <em>node n &optional
named</em><a href='#index-treesit_002dnode_002dchild' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the <var>n</var>’th child of
<var>node</var>. If
-<var>named</var> is non-<code>nil</code>, it counts only named nodes
-(see <a href="Language-Definitions.html#tree_002dsitter-named-node">named
node</a>).
-</p>
-<p>For example, in a node that represents a string
<code>"text"</code>, there
-are three children nodes: the opening quote <code>"</code>, the string
text
-<code>text</code>, and the closing quote <code>"</code>. Among these
nodes, the
-first child is the opening quote <code>"</code>, and the first named child
-is the string text.
-</p>
-<p>This function returns <code>nil</code> if there is no <var>n</var>’th
child.
-<var>n</var> could be negative, e.g., <code>-1</code> represents the last
child.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dchildren"><span class="category">Function:
</span><span><strong>treesit-node-children</strong> <em>node &optional
named</em><a href='#index-treesit_002dnode_002dchildren'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns all of <var>node</var>’s children as a
list. If
-<var>named</var> is non-<code>nil</code>, it retrieves only named nodes.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnext_002dsibling"><span class="category">Function:
</span><span><strong>treesit-node-next-sibling</strong> <em>node &optional
named</em><a href='#index-treesit_002dnext_002dsibling'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds the next sibling of <var>node</var>. If
<var>named</var> is
-non-<code>nil</code>, it finds the next named sibling.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dprev_002dsibling"><span class="category">Function:
</span><span><strong>treesit-node-prev-sibling</strong> <em>node &optional
named</em><a href='#index-treesit_002dprev_002dsibling'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds the previous sibling of <var>node</var>. If
-<var>named</var> is non-<code>nil</code>, it finds the previous named sibling.
-</p></dd></dl>
-
-<span id="By-field-name"></span><h4 class="subheading">By field name</h4>
-<span id="index-nodes_002c-by-field-name"></span>
-<span id="index-syntax-tree-nodes_002c-by-field-name"></span>
-
-<p>To make the syntax tree easier to analyze, many language definitions
-assign <em>field names</em> to child nodes (see <a
href="Language-Definitions.html#tree_002dsitter-node-field-name">field
name</a>). For example, a <code>function_definition</code> node
-could have a <code>declarator</code> node and a <code>body</code> node.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dchild_002dby_002dfield_002dname"><span
class="category">Function:
</span><span><strong>treesit-node-child-by-field-name</strong> <em>node
field-name</em><a href='#index-treesit_002dchild_002dby_002dfield_002dname'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds the child of <var>node</var> whose field name is
-<var>field-name</var>, a string.
-</p>
-<div class="example">
-<pre class="example">;; Get the child that has "body" as its field
name.
-(treesit-node-child-by-field-name node "body")
- ⇒ #<treesit-node (compound_statement) in 45-89>
-</pre></div>
-</dd></dl>
-
-<span id="By-position"></span><h4 class="subheading">By position</h4>
-<span id="index-nodes_002c-by-position"></span>
-<span id="index-syntax-tree-nodes_002c-by-position"></span>
-
-<dl class="def">
-<dt id="index-treesit_002dfirst_002dchild_002dfor_002dpos"><span
class="category">Function:
</span><span><strong>treesit-node-first-child-for-pos</strong> <em>node pos
&optional named</em><a
href='#index-treesit_002dfirst_002dchild_002dfor_002dpos'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds the first child of <var>node</var> that extends
beyond
-buffer position <var>pos</var>. “Extends beyond” means the end of
the
-child node is greater or equal to <var>pos</var>. This function only looks
-for immediate children of <var>node</var>, and doesn’t look in its
-grandchildren. If <var>named</var> is non-<code>nil</code>, it looks for the
-first named child (see <a
href="Language-Definitions.html#tree_002dsitter-named-node">named node</a>).
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002ddescendant_002dfor_002drange"><span
class="category">Function:
</span><span><strong>treesit-node-descendant-for-range</strong> <em>node beg
end &optional named</em><a
href='#index-treesit_002dnode_002ddescendant_002dfor_002drange'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds the <em>smallest</em> descendant node of
<var>node</var>
-that spans the region of text between positions <var>beg</var> and
-<var>end</var>. It is similar to <code>treesit-node-at</code>. If
<var>named</var>
-is non-<code>nil</code>, it looks for smallest named child.
-</p></dd></dl>
-
-<span id="Searching-for-node"></span><h3 class="heading">Searching for
node</h3>
-
-<dl class="def">
-<dt id="index-treesit_002dsearch_002dsubtree"><span class="category">Function:
</span><span><strong>treesit-search-subtree</strong> <em>node predicate
&optional backward all limit</em><a
href='#index-treesit_002dsearch_002dsubtree' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function traverses the subtree of <var>node</var> (including
-<var>node</var> itself), looking for a node for which <var>predicate</var>
-returns non-<code>nil</code>. <var>predicate</var> is a regexp that is matched
-against each node’s type, or a predicate function that takes a node
-and returns non-<code>nil</code> if the node matches. The function returns
-the first node that matches, or <code>nil</code> if none does.
-</p>
-<p>By default, this function only traverses named nodes, but if <var>all</var>
-is non-<code>nil</code>, it traverses all the nodes. If <var>backward</var> is
-non-<code>nil</code>, it traverses backwards (i.e., it visits the last child
first
-when traversing down the tree). If <var>limit</var> is non-<code>nil</code>,
it
-must be a number that limits the tree traversal to that many levels
-down the tree.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dsearch_002dforward"><span class="category">Function:
</span><span><strong>treesit-search-forward</strong> <em>start predicate
&optional backward all</em><a href='#index-treesit_002dsearch_002dforward'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>Like <code>treesit-search-subtree</code>, this function also traverses
the
-parse tree and matches each node with <var>predicate</var> (except for
-<var>start</var>), where <var>predicate</var> can be a regexp or a function.
-For a tree like the below where <var>start</var> is marked S, this function
-traverses as numbered from 1 to 12:
-</p>
-<div class="example">
-<pre class="example"> 12
- |
- S--------3----------11
- | | |
-o--o-+--o 1--+--2 6--+-----10
-| | | |
-o o +-+-+ +--+--+
- | | | | |
- 4 5 7 8 9
-</pre></div>
-
-<p>Note that this function doesn’t traverse the subtree of
<var>start</var>,
-and it always traverse leaf nodes first, then upwards.
-</p>
-<p>Like <code>treesit-search-subtree</code>, this function only searches for
-named nodes by default, but if <var>all</var> is non-<code>nil</code>, it
-searches for all nodes. If <var>backward</var> is non-<code>nil</code>, it
-searches backwards.
-</p>
-<p>While <code>treesit-search-subtree</code> traverses the subtree of a node,
-this function starts with node <var>start</var> and traverses every node
-that comes after it in the buffer position order, i.e., nodes with
-start positions greater than the end position of <var>start</var>.
-</p>
-<p>In the tree shown above, <code>treesit-search-subtree</code> traverses node
-S (<var>start</var>) and nodes marked with <code>o</code>, where this function
-traverses the nodes marked with numbers. This function is useful for
-answering questions like “what is the first node after <var>start</var>
in
-the buffer that satisfies some condition?”
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dsearch_002dforward_002dgoto"><span
class="category">Function:
</span><span><strong>treesit-search-forward-goto</strong> <em>node predicate
&optional start backward all</em><a
href='#index-treesit_002dsearch_002dforward_002dgoto' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function moves point to the start or end of the next node after
-<var>node</var> in the buffer that matches <var>predicate</var>. If
<var>start</var>
-is non-<code>nil</code>, stop at the beginning rather than the end of a node.
-</p>
-<p>This function guarantees that the matched node it returns makes
-progress in terms of buffer position: the start/end position of the
-returned node is always greater than that of <var>node</var>.
-</p>
-<p>Arguments <var>predicate</var>, <var>backward</var> and <var>all</var> are
the same
-as in <code>treesit-search-forward</code>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dinduce_002dsparse_002dtree"><span
class="category">Function:
</span><span><strong>treesit-induce-sparse-tree</strong> <em>root predicate
&optional process-fn limit</em><a
href='#index-treesit_002dinduce_002dsparse_002dtree' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function creates a sparse tree from <var>root</var>’s
subtree.
-</p>
-<p>It takes the subtree under <var>root</var>, and combs it so only the nodes
-that match <var>predicate</var> are left. Like previous functions, the
-<var>predicate</var> can be a regexp string that matches against each
-node’s type, or a function that takes a node and return
non-<code>nil</code>
-if it matches.
-</p>
-<p>For example, for a subtree on the left that consist of both numbers
-and letters, if <var>predicate</var> is “letter only”, the
returned tree
-is the one on the right.
-</p>
-<div class="example">
-<pre class="example"> a a a
- | | |
-+---+---+ +---+---+ +---+---+
-| | | | | | | | |
-b 1 2 b | | b c d
- | | => | | => |
- c +--+ c + e
- | | | | |
- +--+ d 4 +--+ d
- | | |
- e 5 e
-</pre></div>
-
-<p>If <var>process-fn</var> is non-<code>nil</code>, instead of returning the
matched
-nodes, this function passes each node to <var>process-fn</var> and uses the
-returned value instead. If non-<code>nil</code>, <var>limit</var> is the
number of
-levels to go down from <var>root</var>.
-</p>
-<p>Each node in the returned tree looks like
-<code>(<var><span
class="nolinebreak">tree-sitter-node</span></var> . (<var>child</var> …))</code><!--
/@w -->. The
-<var>tree-sitter-node</var> of the root of this tree will be nil if
-<var>root</var> doesn’t match <var>predicate</var>. If no node matches
-<var>predicate</var>, the function returns <code>nil</code>.
-</p></dd></dl>
-
-<span id="More-convenience-functions"></span><h3 class="heading">More
convenience functions</h3>
-
-<dl class="def">
-<dt id="index-treesit_002dfilter_002dchild"><span class="category">Function:
</span><span><strong>treesit-filter-child</strong> <em>node predicate
&optional named</em><a href='#index-treesit_002dfilter_002dchild'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function finds immediate children of <var>node</var> that satisfy
-<var>predicate</var>.
-</p>
-<p>The <var>predicate</var> function takes a node as the argument and should
-return non-<code>nil</code> to indicate that the node should be kept. If
-<var>named</var> is non-<code>nil</code>, this function only examines the named
-nodes.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparent_002duntil"><span class="category">Function:
</span><span><strong>treesit-parent-until</strong> <em>node predicate</em><a
href='#index-treesit_002dparent_002duntil' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function repeatedly finds the parents of <var>node</var>, and
returns
-the parent that satisfies <var>predicate</var>, a function that takes a
-node as the argument. If no parent satisfies <var>predicate</var>, this
-function returns <code>nil</code>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparent_002dwhile"><span class="category">Function:
</span><span><strong>treesit-parent-while</strong> <em>node predicate</em><a
href='#index-treesit_002dparent_002dwhile' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function repeatedly finds the parent of <var>node</var>, and keeps
-doing so as long as the nodes satisfy <var>predicate</var>, a function that
-takes a node as the argument. That is, this function returns the
-farthest parent that still satisfies <var>predicate</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dnode_002dtop_002dlevel"><span
class="category">Function: </span><span><strong>treesit-node-top-level</strong>
<em>node &optional type</em><a
href='#index-treesit_002dnode_002dtop_002dlevel' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the highest parent of <var>node</var> that has the
-same type as <var>node</var>. If no such parent exists, it returns
-<code>nil</code>. Therefore this function is also useful for testing
-whether <var>node</var> is top-level.
-</p>
-<p>If <var>type</var> is non-<code>nil</code>, this function matches each
parent’s
-type with <var>type</var> as a regexp, rather than using
<var>node</var>’s type.
-</p></dd></dl>
-
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Accessing-Node-Information.html">Accessing Node
Information</a>, Previous: <a href="Using-Parser.html">Using Tree-sitter
Parser</a>, Up: <a href="Parsing-Program-Source.html">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Tree_002dsitter-C-API.html
b/admin/notes/tree-sitter/html-manual/Tree_002dsitter-C-API.html
deleted file mode 100644
index 1d992b828ea..00000000000
--- a/admin/notes/tree-sitter/html-manual/Tree_002dsitter-C-API.html
+++ /dev/null
@@ -1,211 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Tree-sitter C API (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Tree-sitter C API (GNU Emacs Lisp Reference
Manual)">
-<meta name="keywords" content="Tree-sitter C API (GNU Emacs Lisp Reference
Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Tree_002dsitter-major-modes.html" rel="prev" title="Tree-sitter
major modes">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Tree_002dsitter-C-API">
-<div class="header">
-<p>
-Previous: <a href="Tree_002dsitter-major-modes.html" accesskey="p"
rel="prev">Developing major modes with tree-sitter</a>, Up: <a
href="Parsing-Program-Source.html" accesskey="u" rel="up">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Tree_002dsitter-C-API-Correspondence"></span><h3
class="section">37.8 Tree-sitter C API Correspondence</h3>
-
-<p>Emacs’ tree-sitter integration doesn’t expose every feature
-provided by tree-sitter’s C API. Missing features include:
-</p>
-<ul>
-<li> Creating a tree cursor and navigating the syntax tree with it.
-</li><li> Setting timeout and cancellation flag for a parser.
-</li><li> Setting the logger for a parser.
-</li><li> Printing a <acronym>DOT</acronym> graph of the syntax tree to a file.
-</li><li> Copying and modifying a syntax tree. (Emacs doesn’t expose a
tree
-object.)
-</li><li> Using (row, column) coordinates as position.
-</li><li> Updating a node with changes. (In Emacs, retrieve a new node instead
-of updating the existing one.)
-</li><li> Querying statics of a language definition.
-</li></ul>
-
-<p>In addition, Emacs makes some changes to the C API to make the API more
-convenient and idiomatic:
-</p>
-<ul>
-<li> Instead of using byte positions, the Emacs Lisp API uses character
-positions.
-</li><li> Null nodes are converted to nil.
-</li></ul>
-
-<p>Below is the correspondence between all C API functions and their
-ELisp counterparts. Sometimes one ELisp function corresponds to
-multiple C functions, and many C functions don’t have an ELisp
-counterpart.
-</p>
-<div class="example">
-<pre class="example">ts_parser_new
treesit-parser-create
-ts_parser_delete
-ts_parser_set_language
-ts_parser_language treesit-parser-language
-ts_parser_set_included_ranges treesit-parser-set-included-ranges
-ts_parser_included_ranges treesit-parser-included-ranges
-ts_parser_parse
-ts_parser_parse_string treesit-parse-string
-ts_parser_parse_string_encoding
-ts_parser_reset
-ts_parser_set_timeout_micros
-ts_parser_timeout_micros
-ts_parser_set_cancellation_flag
-ts_parser_cancellation_flag
-ts_parser_set_logger
-ts_parser_logger
-ts_parser_print_dot_graphs
-ts_tree_copy
-ts_tree_delete
-ts_tree_root_node
-ts_tree_language
-ts_tree_edit
-ts_tree_get_changed_ranges
-ts_tree_print_dot_graph
-ts_node_type treesit-node-type
-ts_node_symbol
-ts_node_start_byte treesit-node-start
-ts_node_start_point
-ts_node_end_byte treesit-node-end
-ts_node_end_point
-ts_node_string treesit-node-string
-ts_node_is_null
-ts_node_is_named treesit-node-check
-ts_node_is_missing treesit-node-check
-ts_node_is_extra treesit-node-check
-ts_node_has_changes
-ts_node_has_error treesit-node-check
-ts_node_parent treesit-node-parent
-ts_node_child treesit-node-child
-ts_node_field_name_for_child treesit-node-field-name-for-child
-ts_node_child_count treesit-node-child-count
-ts_node_named_child treesit-node-child
-ts_node_named_child_count treesit-node-child-count
-ts_node_child_by_field_name treesit-node-by-field-name
-ts_node_child_by_field_id
-ts_node_next_sibling treesit-node-next-sibling
-ts_node_prev_sibling treesit-node-prev-sibling
-ts_node_next_named_sibling treesit-node-next-sibling
-ts_node_prev_named_sibling treesit-node-prev-sibling
-ts_node_first_child_for_byte treesit-node-first-child-for-pos
-ts_node_first_named_child_for_byte treesit-node-first-child-for-pos
-ts_node_descendant_for_byte_range treesit-descendant-for-range
-ts_node_descendant_for_point_range
-ts_node_named_descendant_for_byte_range treesit-descendant-for-range
-ts_node_named_descendant_for_point_range
-ts_node_edit
-ts_node_eq treesit-node-eq
-ts_tree_cursor_new
-ts_tree_cursor_delete
-ts_tree_cursor_reset
-ts_tree_cursor_current_node
-ts_tree_cursor_current_field_name
-ts_tree_cursor_current_field_id
-ts_tree_cursor_goto_parent
-ts_tree_cursor_goto_next_sibling
-ts_tree_cursor_goto_first_child
-ts_tree_cursor_goto_first_child_for_byte
-ts_tree_cursor_goto_first_child_for_point
-ts_tree_cursor_copy
-ts_query_new
-ts_query_delete
-ts_query_pattern_count
-ts_query_capture_count
-ts_query_string_count
-ts_query_start_byte_for_pattern
-ts_query_predicates_for_pattern
-ts_query_step_is_definite
-ts_query_capture_name_for_id
-ts_query_string_value_for_id
-ts_query_disable_capture
-ts_query_disable_pattern
-ts_query_cursor_new
-ts_query_cursor_delete
-ts_query_cursor_exec treesit-query-capture
-ts_query_cursor_did_exceed_match_limit
-ts_query_cursor_match_limit
-ts_query_cursor_set_match_limit
-ts_query_cursor_set_byte_range
-ts_query_cursor_set_point_range
-ts_query_cursor_next_match
-ts_query_cursor_remove_match
-ts_query_cursor_next_capture
-ts_language_symbol_count
-ts_language_symbol_name
-ts_language_symbol_for_name
-ts_language_field_count
-ts_language_field_name_for_id
-ts_language_field_id_for_name
-ts_language_symbol_type
-ts_language_version
-</pre></div>
-</div>
-<hr>
-<div class="header">
-<p>
-Previous: <a href="Tree_002dsitter-major-modes.html">Developing major modes
with tree-sitter</a>, Up: <a href="Parsing-Program-Source.html">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/Using-Parser.html
b/admin/notes/tree-sitter/html-manual/Using-Parser.html
deleted file mode 100644
index fd8fc482f46..00000000000
--- a/admin/notes/tree-sitter/html-manual/Using-Parser.html
+++ /dev/null
@@ -1,230 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
-<html>
-<!-- Created by GNU Texinfo 6.8, https://www.gnu.org/software/texinfo/ -->
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<!-- This is the GNU Emacs Lisp Reference Manual
-corresponding to Emacs version 29.0.50.
-
-Copyright © 1990-1996, 1998-2023 Free Software Foundation, Inc.
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3 or
-any later version published by the Free Software Foundation; with the
-Invariant Sections being "GNU General Public License," with the
-Front-Cover Texts being "A GNU Manual," and with the Back-Cover
-Texts as in (a) below. A copy of the license is included in the
-section entitled "GNU Free Documentation License."
-
-(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
-modify this GNU manual. Buying copies from the FSF supports it in
-developing GNU and promoting software freedom." -->
-<title>Using Parser (GNU Emacs Lisp Reference Manual)</title>
-
-<meta name="description" content="Using Parser (GNU Emacs Lisp Reference
Manual)">
-<meta name="keywords" content="Using Parser (GNU Emacs Lisp Reference Manual)">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="makeinfo">
-<meta name="viewport" content="width=device-width,initial-scale=1">
-
-<link href="index.html" rel="start" title="Top">
-<link href="Index.html" rel="index" title="Index">
-<link href="index.html#SEC_Contents" rel="contents" title="Table of Contents">
-<link href="Parsing-Program-Source.html" rel="up" title="Parsing Program
Source">
-<link href="Retrieving-Nodes.html" rel="next" title="Retrieving Nodes">
-<link href="Language-Definitions.html" rel="prev" title="Language Definitions">
-<style type="text/css">
-<!--
-a.copiable-anchor {visibility: hidden; text-decoration: none; line-height: 0em}
-a.summary-letter {text-decoration: none}
-blockquote.indentedblock {margin-right: 0em}
-div.display {margin-left: 3.2em}
-div.example {margin-left: 3.2em}
-kbd {font-style: oblique}
-pre.display {font-family: inherit}
-pre.format {font-family: inherit}
-pre.menu-comment {font-family: serif}
-pre.menu-preformatted {font-family: serif}
-span.nolinebreak {white-space: nowrap}
-span.roman {font-family: initial; font-weight: normal}
-span.sansserif {font-family: sans-serif; font-weight: normal}
-span:hover a.copiable-anchor {visibility: visible}
-ul.no-bullet {list-style: none}
--->
-</style>
-<link rel="stylesheet" type="text/css" href="./manual.css">
-
-
-</head>
-
-<body lang="en">
-<div class="section" id="Using-Parser">
-<div class="header">
-<p>
-Next: <a href="Retrieving-Nodes.html" accesskey="n" rel="next">Retrieving
Nodes</a>, Previous: <a href="Language-Definitions.html" accesskey="p"
rel="prev">Tree-sitter Language Definitions</a>, Up: <a
href="Parsing-Program-Source.html" accesskey="u" rel="up">Parsing Program
Source</a> [<a href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-<hr>
-<span id="Using-Tree_002dsitter-Parser"></span><h3 class="section">37.2 Using
Tree-sitter Parser</h3>
-<span id="index-tree_002dsitter-parser_002c-using"></span>
-
-<p>This section describes how to create and configure a tree-sitter
-parser. In Emacs, each tree-sitter parser is associated with a
-buffer. As the user edits the buffer, the associated parser and
-syntax tree are automatically kept up-to-date.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dmax_002dbuffer_002dsize"><span
class="category">Variable:
</span><span><strong>treesit-max-buffer-size</strong><a
href='#index-treesit_002dmax_002dbuffer_002dsize' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This variable contains the maximum size of buffers in which
-tree-sitter can be activated. Major modes should check this value
-when deciding whether to enable tree-sitter features.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dcan_002denable_002dp"><span
class="category">Function: </span><span><strong>treesit-can-enable-p</strong><a
href='#index-treesit_002dcan_002denable_002dp' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function checks whether the current buffer is suitable for
-activating tree-sitter features. It basically checks
-<code>treesit-available-p</code> and <code>treesit-max-buffer-size</code>.
-</p></dd></dl>
-
-<span id="index-creating-tree_002dsitter-parsers"></span>
-<span id="index-tree_002dsitter-parser_002c-creating"></span>
-<dl class="def">
-<dt id="index-treesit_002dparser_002dcreate"><span class="category">Function:
</span><span><strong>treesit-parser-create</strong> <em>language &optional
buffer no-reuse</em><a href='#index-treesit_002dparser_002dcreate'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>Create a parser for the specified <var>buffer</var> and
<var>language</var>
-(see <a href="Language-Definitions.html">Tree-sitter Language
Definitions</a>). If <var>buffer</var> is omitted or
-<code>nil</code>, it stands for the current buffer.
-</p>
-<p>By default, this function reuses a parser if one already exists for
-<var>language</var> in <var>buffer</var>, but if <var>no-reuse</var> is
-non-<code>nil</code>, this function always creates a new parser.
-</p></dd></dl>
-
-<p>Given a parser, we can query information about it.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dparser_002dbuffer"><span class="category">Function:
</span><span><strong>treesit-parser-buffer</strong> <em>parser</em><a
href='#index-treesit_002dparser_002dbuffer' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the buffer associated with <var>parser</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002dlanguage"><span
class="category">Function:
</span><span><strong>treesit-parser-language</strong> <em>parser</em><a
href='#index-treesit_002dparser_002dlanguage' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the language used by <var>parser</var>.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002dp"><span class="category">Function:
</span><span><strong>treesit-parser-p</strong> <em>object</em><a
href='#index-treesit_002dparser_002dp' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function checks if <var>object</var> is a tree-sitter parser, and
-returns non-<code>nil</code> if it is, and <code>nil</code> otherwise.
-</p></dd></dl>
-
-<p>There is no need to explicitly parse a buffer, because parsing is done
-automatically and lazily. A parser only parses when a Lisp program
-queries for a node in its syntax tree. Therefore, when a parser is
-first created, it doesn’t parse the buffer; it waits until the Lisp
-program queries for a node for the first time. Similarly, when some
-change is made in the buffer, a parser doesn’t re-parse immediately.
-</p>
-<span id="index-treesit_002dbuffer_002dtoo_002dlarge"></span>
-<p>When a parser does parse, it checks for the size of the buffer.
-Tree-sitter can only handle buffer no larger than about 4GB. If the
-size exceeds that, Emacs signals the <code>treesit-buffer-too-large</code>
-error with signal data being the buffer size.
-</p>
-<p>Once a parser is created, Emacs automatically adds it to the
-internal parser list. Every time a change is made to the buffer,
-Emacs updates parsers in this list so they can update their syntax
-tree incrementally.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dparser_002dlist"><span class="category">Function:
</span><span><strong>treesit-parser-list</strong> <em>&optional
buffer</em><a href='#index-treesit_002dparser_002dlist'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function returns the parser list of <var>buffer</var>. If
-<var>buffer</var> is <code>nil</code> or omitted, it defaults to the current
-buffer.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002ddelete"><span class="category">Function:
</span><span><strong>treesit-parser-delete</strong> <em>parser</em><a
href='#index-treesit_002dparser_002ddelete' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function deletes <var>parser</var>.
-</p></dd></dl>
-
-<span id="index-tree_002dsitter-narrowing"></span>
-<span id="tree_002dsitter-narrowing"></span><p>Normally, a parser
“sees” the whole buffer, but when the buffer is
-narrowed (see <a href="Narrowing.html">Narrowing</a>), the parser will only
see the accessible
-portion of the buffer. As far as the parser can tell, the hidden
-region was deleted. When the buffer is later widened, the parser
-thinks text is inserted at the beginning and at the end. Although
-parsers respect narrowing, modes should not use narrowing as a means
-to handle a multi-language buffer; instead, set the ranges in which the
-parser should operate. See <a href="Multiple-Languages.html">Parsing Text in
Multiple Languages</a>.
-</p>
-<p>Because a parser parses lazily, when the user or a Lisp program
-narrows the buffer, the parser is not affected immediately; as long as
-the mode doesn’t query for a node while the buffer is narrowed, the
-parser is oblivious of the narrowing.
-</p>
-<span id="index-tree_002dsitter-parse-string"></span>
-<span id="index-parse-string_002c-tree_002dsitter"></span>
-<p>Besides creating a parser for a buffer, a Lisp program can also parse a
-string. Unlike a buffer, parsing a string is a one-off operation, and
-there is no way to update the result.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dparse_002dstring"><span class="category">Function:
</span><span><strong>treesit-parse-string</strong> <em>string language</em><a
href='#index-treesit_002dparse_002dstring' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function parses <var>string</var> using <var>language</var>, and
returns
-the root node of the generated syntax tree.
-</p></dd></dl>
-
-<span id="Be-notified-by-changes-to-the-parse-tree"></span><h3
class="heading">Be notified by changes to the parse tree</h3>
-<span
id="index-update-callback_002c-for-tree_002dsitter-parse_002dtree"></span>
-<span
id="index-after_002dchange-notifier_002c-for-tree_002dsitter-parse_002dtree"></span>
-<span
id="index-tree_002dsitter-parse_002dtree_002c-update-and-after_002dchange-callback"></span>
-<span id="index-notifiers_002c-tree_002dsitter"></span>
-
-<p>A Lisp program might want to be notified of text affected by
-incremental parsing. For example, inserting a comment-closing token
-converts text before that token into a comment. Even
-though the text is not directly edited, it is deemed to be
“changed”
-nevertheless.
-</p>
-<p>Emacs lets a Lisp program to register callback functions
-(a.k.a. <em>notifiers</em>) for this kind of changes. A notifier
-function takes two arguments: <var>ranges</var> and <var>parser</var>.
-<var>ranges</var> is a list of cons cells of the form
<code>(<var>start</var> . <var>end</var>)</code><!-- /@w -->, where
<var>start</var> and <var>end</var> mark the start and the
-end positions of a range. <var>parser</var> is the parser issuing the
-notification.
-</p>
-<p>Every time a parser reparses a buffer, it compares the old and new
-parse-tree, computes the ranges in which nodes have changed, and
-passes the ranges to notifier functions.
-</p>
-<dl class="def">
-<dt id="index-treesit_002dparser_002dadd_002dnotifier"><span
class="category">Function:
</span><span><strong>treesit-parser-add-notifier</strong> <em>parser
function</em><a href='#index-treesit_002dparser_002dadd_002dnotifier'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function adds <var>function</var> to <var>parser</var>’s
list of
-after-change notifier functions. <var>function</var> must be a function
-symbol, not a lambda function (see <a
href="Anonymous-Functions.html">Anonymous Functions</a>).
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002dremove_002dnotifier"><span
class="category">Function:
</span><span><strong>treesit-parser-remove-notifier</strong> <em>parser
function</em><a href='#index-treesit_002dparser_002dremove_002dnotifier'
class='copiable-anchor'> ¶</a></span></dt>
-<dd><p>This function removes <var>function</var> from the list of
<var>parser</var>’s
-after-change notifier functions. <var>function</var> must be a function
-symbol, rather than a lambda function.
-</p></dd></dl>
-
-<dl class="def">
-<dt id="index-treesit_002dparser_002dnotifiers"><span
class="category">Function:
</span><span><strong>treesit-parser-notifiers</strong> <em>parser</em><a
href='#index-treesit_002dparser_002dnotifiers' class='copiable-anchor'>
¶</a></span></dt>
-<dd><p>This function returns the list of <var>parser</var>’s notifier
functions.
-</p></dd></dl>
-
-</div>
-<hr>
-<div class="header">
-<p>
-Next: <a href="Retrieving-Nodes.html">Retrieving Nodes</a>, Previous: <a
href="Language-Definitions.html">Tree-sitter Language Definitions</a>, Up: <a
href="Parsing-Program-Source.html">Parsing Program Source</a> [<a
href="index.html#SEC_Contents" title="Table of contents"
rel="contents">Contents</a>][<a href="Index.html" title="Index"
rel="index">Index</a>]</p>
-</div>
-
-
-
-</body>
-</html>
diff --git a/admin/notes/tree-sitter/html-manual/build-manual.sh
b/admin/notes/tree-sitter/html-manual/build-manual.sh
deleted file mode 100755
index 8d931b143b2..00000000000
--- a/admin/notes/tree-sitter/html-manual/build-manual.sh
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/bin/bash
-
-MANUAL_DIR="../../../../doc/lispref"
-THIS_DIR=$(pwd)
-
-echo "Build manual"
-cd "${MANUAL_DIR}"
-make elisp.html HTML_OPTS="--html --css-ref=./manual.css"
-
-cd "${THIS_DIR}"
-
-echo "Copy manual"
-cp -f "${MANUAL_DIR}/elisp.html/Parsing-Program-Source.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Language-Definitions.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Using-Parser.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Retrieving-Node.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Accessing-Node.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Pattern-Matching.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Multiple-Languages.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Tree_002dsitter-C-API.html" .
-
-cp -f "${MANUAL_DIR}/elisp.html/Parser_002dbased-Font-Lock.html" .
-cp -f "${MANUAL_DIR}/elisp.html/Parser_002dbased-Indentation.html" .
diff --git a/admin/notes/tree-sitter/html-manual/manual.css
b/admin/notes/tree-sitter/html-manual/manual.css
deleted file mode 100644
index c03e0d37009..00000000000
--- a/admin/notes/tree-sitter/html-manual/manual.css
+++ /dev/null
@@ -1,374 +0,0 @@
-/* Style-sheet to use for Emacs manuals */
-
-/* Copyright (C) 2013-2014, 2023 Free Software Foundation, Inc.
-
-Copying and distribution of this file, with or without modification,
-are permitted in any medium without royalty provided the copyright
-notice and this notice are preserved. This file is offered as-is,
-without any warranty.
-*/
-
-/* style.css begins here */
-
-/* This stylesheet is used by manuals and a few older resources. */
-
-/* reset.css begins here */
-
-/*
-Software License Agreement (BSD License)
-
-Copyright (c) 2006, Yahoo! Inc.
-All rights reserved.
-
-Redistribution and use of this software in source and
-binary forms, with or without modification, arepermitted
-provided that the following conditions are met:
-
-* Redistributions of source code must retain the above
-copyright notice, this list of conditions and the
-following disclaimer.
-
-* Redistributions in binary form must reproduce the above
-copyright notice, this list of conditions and the
-following disclaimer in the documentation and/or other
-materials provided with the distribution.
-
-* Neither the name of Yahoo! Inc. nor the names of its
-contributors may be used to endorse or promote products
-derived from this software without specific prior
-written permission of Yahoo! Inc.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
-CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
-INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
-CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
-NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
-IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGE.
-*/
-
-html {
- color: #000;
- background: #FFF;
-}
-
-body, div, dl, dt, dd, ul, ol, li, h1, h2, h3, h4,
-h5, h6, pre, code, form, fieldset, legend, input,
-button, textarea, p, blockquote, th, td {
- margin: 0;
- padding: 0;
-}
-
-table {
- border-collapse: collapse;
- border-spacing: 0;
-}
-
-fieldset, img {
- border: 0;
-}
-
-address, caption, cite, code, dfn, em, strong,
-th, var, optgroup {
- font-style: inherit;
- font-weight: inherit;
-}
-
-del, ins {
- text-decoration: none;
-}
-
-li {
- list-style:none;
-}
-
-caption, th {
- text-align: left;
-}
-
-h1, h2, h3, h4, h5, h6 {
- font-size: 100%;
- font-weight: normal;
-}
-
-q:before, q:after {
- content:'';
-}
-
-abbr, acronym {
- border: 0;
- font-variant: normal;
-}
-
-sup {
- vertical-align: baseline;
-}
-sub {
- vertical-align: baseline;
-}
-
-legend {
- color: #000;
-}
-
-input, button, textarea, select, optgroup, option {
- font-family: inherit;
- font-size: inherit;
- font-style: inherit;
- font-weight: inherit;
-}
-
-input, button, textarea, select {
- *font-size: 100%;
-}
-
-
-/* reset.css ends here */
-
-/*** PAGE LAYOUT ***/
-
-html, body {
- font-size: 1em;
- text-align: left;
- text-decoration: none;
-}
-html { background-color: #e7e7e7; }
-
-body {
- max-width: 74.92em;
- margin: 0 auto;
- padding: .5em 1em 1em 1em;
- background-color: white;
- border: .1em solid #c0c0c0;
-}
-
-
-/*** BASIC ELEMENTS ***/
-
-/* Size and positioning */
-
-p, pre, li, dt, dd, table, code, address { line-height: 1.3em; }
-
-h1 { font-size: 2em; margin: 1em 0 }
-h2 { font-size: 1.50em; margin: 1.0em 0 0.87em 0; }
-h3 { font-size: 1.30em; margin: 1.0em 0 0.87em 0; }
-h4 { font-size: 1.13em; margin: 1.0em 0 0.88em 0; }
-h5 { font-size: 1.00em; margin: 1.0em 0 1.00em 0; }
-
-p, pre { margin: 1em 0; }
-pre { overflow: auto; padding-bottom: .3em; }
-
-ul, ol, blockquote { margin-left: 1.5%; margin-right: 1.5%; }
-hr { margin: 1em 0; }
-/* Lists of underlined links are difficult to read. The top margin
- gives a little more spacing between entries. */
-ul li { margin: .5em 1em; }
-ol li { margin: 1em; }
-ol ul li { margin: .5em 1em; }
-ul li p, ul ul li { margin-top: .3em; margin-bottom: .3em; }
-ul ul, ol ul { margin-top: 0; margin-bottom: 0; }
-
-/* Separate description lists from preceding text */
-dl { margin: 1em 0 0 0; }
-/* separate the "term" from subsequent "description" */
-dt { margin: .5em 0; }
-/* separate the "description" from subsequent list item
- when the final <dd> child is an anonymous box */
-dd { margin: .5em 3% 1em 3%; }
-/* separate anonymous box (used to be the first element in <dd>)
- from subsequent <p> */
-dd p { margin: .5em 0; }
-
-table {
- display: block; overflow: auto;
- margin-top: 1.5em; margin-bottom: 1.5em;
-}
-th { padding: .3em .5em; text-align: center; }
-td { padding: .2em .5em; }
-
-address { margin-bottom: 1em; }
-caption { margin-bottom: .5em; text-align: center; }
-sup { vertical-align: super; }
-sub { vertical-align: sub; }
-
-/* Style */
-
-h1, h2, h3, h4, h5, h6, strong, dt, th { font-weight: bold; }
-
-/* The default color (black) is too dark for large text in
- bold font. */
-h1, h2, h3, h4 { color: #333; }
-h5, h6, dt { color: #222; }
-
-a[href] { color: #005090; }
-a[href]:visited { color: #100070; }
-a[href]:active, a[href]:hover {
- color: #100070;
- text-decoration: none;
-}
-
-h1 a[href]:visited, h2 a[href]:visited, h3 a[href]:visited,
-h4 a[href]:visited { color: #005090; }
-h1 a[href]:hover, h2 a[href]:hover, h3 a[href]:hover,
-h4 a[href]:hover { color: #100070; }
-
-ol { list-style: decimal outside;}
-ul { list-style: square outside; }
-ul ul, ol ul { list-style: circle; }
-li { list-style: inherit; }
-
-hr { background-color: #ede6d5; }
-table { border: 0; }
-
-abbr,acronym {
- border-bottom:1px dotted #000;
- text-decoration: none;
- cursor:help;
-}
-del { text-decoration: line-through; }
-em { font-style: italic; }
-small { font-size: .9em; }
-
-img { max-width: 100%}
-
-
-/*** SIMPLE CLASSES ***/
-
-.center, .c { text-align: center; }
-.nocenter{ text-align: left; }
-
-.underline { text-decoration: underline; }
-.nounderline { text-decoration: none; }
-
-.no-bullet { list-style: none; }
-.inline-list li { display: inline }
-
-.netscape4, .no-display { display: none; }
-
-
-/*** MANUAL PAGES ***/
-
-/* This makes the very long tables of contents in Gnulib and other
- manuals easier to read. */
-.contents ul, .shortcontents ul { font-weight: bold; }
-.contents ul ul, .shortcontents ul ul { font-weight: normal; }
-.contents ul { list-style: none; }
-
-/* For colored navigation bars (Emacs manual): make the bar extend
- across the whole width of the page and give it a decent height. */
-.header, .node { margin: 0 -1em; padding: 0 1em; }
-.header p, .node p { line-height: 2em; }
-
-/* For navigation links */
-.node a, .header a { display: inline-block; line-height: 2em; }
-.node a:hover, .header a:hover { background: #f2efe4; }
-
-/* Inserts */
-table.cartouche td { padding: 1.5em; }
-
-div.display, div.lisp, div.smalldisplay,
-div.smallexample, div.smalllisp { margin-left: 3%; }
-
-div.example { padding: .8em 1.2em .4em; }
-pre.example { padding: .8em 1.2em; }
-div.example, pre.example {
- margin: 1em 0 1em 3% ;
- -webkit-border-radius: .3em;
- -moz-border-radius: .3em;
- border-radius: .3em;
- border: 1px solid #d4cbb6;
- background-color: #f2efe4;
-}
-div.example > pre.example {
- padding: 0 0 .4em;
- margin: 0;
- border: none;
-}
-
-pre.menu-comment { padding-top: 1.3em; margin: 0; }
-
-
-/*** FOR WIDE SCREENS ***/
-
-@media (min-width: 40em) {
- body { padding: .5em 3em 1em 3em; }
- div.header, div.node { margin: 0 -3em; padding: 0 3em; }
-}
-
-/* style.css ends here */
-
-/* makeinfo convert @deffn and similar functions to something inside
- <blockquote>. style.css uses italic for blockquote. This looks poor
- in the Emacs manuals, which make extensive use of @defun (etc).
- In particular, references to function arguments appear as <var>
- inside <blockquote>. Since <var> is also italic, it makes it
- impossible to distinguish variables. We could change <var> to
- e.g. bold-italic, or normal, or a different color, but that does
- not look as good IMO. So we just override blockquote to be non-italic.
- */
-blockquote { font-style: normal; }
-
-var { font-style: italic; }
-
-div.header {
- background-color: #DDDDFF;
- padding-top: 0.2em;
-}
-
-
-/*** Customization ***/
-
-body {
- font-family: Charter, serif;
- font-size: 14pt;
- line-height: 1.4;
- background-color: #fefefc;
- color: #202010;
-}
-
-pre.menu-comment {
- font-family: Charter, serif;
- font-size: 14pt;
-}
-
-body > *, body > div.display, body > div.lisp, body > div.smalldisplay,
-body > div.example, body > div.smallexample, body > div.smalllisp {
- width: 700px;
- margin-left: auto;
- margin-right: auto;
-}
-
-div.header {
- width: 100%;
- min-height: 3em;
- font-size: 13pt;
-}
-
-/* Documentation block for functions and variables. Make then
- narrower*/
-dd {
- margin: .5em 6% 1em 6%
-}
-
-code, pre, kbd, samp, tt {
- font-size: 12pt;
- font-family: monospace;
-}
-
-/* In each node we have index table to all sub-nodes. Make more space
- for the first column, which is the name to each sub-node. */
-table.menu tbody tr td:nth-child(1) {
- white-space: nowrap;
-}
-
-div.header p {
- text-align: center;
- margin: 0.5em auto 0.5em auto;
-}
diff --git a/admin/notes/tree-sitter/starter-guide
b/admin/notes/tree-sitter/starter-guide
index b8910aab5ca..846614f1446 100644
--- a/admin/notes/tree-sitter/starter-guide
+++ b/admin/notes/tree-sitter/starter-guide
@@ -17,6 +17,7 @@ TOC:
- More features?
- Common tasks (code snippets)
- Manual
+- Appendix 1
* Building Emacs with tree-sitter
@@ -42,11 +43,9 @@ You can use this script that I put together here:
https://github.com/casouri/tree-sitter-module
-You can also find them under this directory in /build-modules.
-
This script automatically pulls and builds language definitions for C,
C++, Rust, JSON, Go, HTML, JavaScript, CSS, Python, Typescript,
-and C#. Better yet, I pre-built these language definitions for
+C#, etc. Better yet, I pre-built these language definitions for
GNU/Linux and macOS, they can be downloaded here:
https://github.com/casouri/tree-sitter-module/releases/tag/v2.1
@@ -68,6 +67,10 @@ organization has all the "official" language definitions:
https://github.com/tree-sitter
+Alternatively, you can use treesit-install-language-grammar command
+and follow its instructions. If everything goes right, it should
+automatically download and compile the language grammar for you.
+
* Setting up for adding major mode features
Start Emacs and load tree-sitter with
@@ -78,6 +81,10 @@ Now check if Emacs is built with tree-sitter library
(treesit-available-p)
+Make sure Emacs can find the language grammar you want to use
+
+ (treesit-language-available-p 'lang)
+
* Tree-sitter major modes
Tree-sitter modes should be separate major modes, so other modes
@@ -89,12 +96,15 @@ modes.
If the tree-sitter variant and the "native" variant could share some
setup, you can create a "base mode", which only contains the common
-setup. For example, there is python-base-mode (shared), python-mode
-(native), and python-ts-mode (tree-sitter).
+setup. For example, python.el defines python-base-mode (shared),
+python-mode (native), and python-ts-mode (tree-sitter).
In the tree-sitter mode, check if we can use tree-sitter with
treesit-ready-p, it will error out if tree-sitter is not ready.
+In Emacs 30 we'll introduce some mechanism to more gracefully inherit
+modes and fallback to other modes.
+
* Naming convention
Use tree-sitter for text (documentation, comment), use treesit for
@@ -180,18 +190,17 @@ mark the offending part in red.
To enable tree-sitter font-lock, set ‘treesit-font-lock-settings’ and
‘treesit-font-lock-feature-list’ buffer-locally and call
‘treesit-major-mode-setup’. For example, see
-‘python--treesit-settings’ in python.el. Below I paste a snippet of
-it.
+‘python--treesit-settings’ in python.el. Below is a snippet of it.
-Note that like the current font-lock, if the to-be-fontified region
-already has a face (ie, an earlier match fontified part/all of the
-region), the new face is discarded rather than applied. If you want
-later matches always override earlier matches, use the :override
-keyword.
+Just like the current font-lock, if the to-be-fontified region already
+has a face (ie, an earlier match fontified part/all of the region),
+the new face is discarded rather than applied. If you want later
+matches always override earlier matches, use the :override keyword.
Each rule should have a :feature, like function-name,
string-interpolation, builtin, etc. Users can then enable/disable each
-feature individually.
+feature individually. See Appendix 1 at the bottom for a set of common
+features names.
#+begin_src elisp
(defvar python--treesit-settings
@@ -247,8 +256,7 @@ Concretely, something like this:
(string-interpolation decorator)))
(treesit-major-mode-setup))
(t
- ;; No tree-sitter
- (setq-local font-lock-defaults ...)
+ ;; No tree-sitter, do nothing or fallback to another mode.
...)))
#+end_src
@@ -289,6 +297,7 @@ For ANCHOR we have
first-sibling => start of the first sibling
parent => start of parent
parent-bol => BOL of the line parent is on.
+ standalone-parent => Like parent-bol but handles more edge cases
prev-sibling => start of previous sibling
no-indent => current position (don’t indent)
prev-line => start of previous line
@@ -329,7 +338,8 @@ tells you which rule is applied in the echo area.
...))))
#+end_src
-Then you set ‘treesit-simple-indent-rules’ to your rules, and call
+To setup indentation for your major mode, set
+‘treesit-simple-indent-rules’ to your rules, and call
‘treesit-major-mode-setup’:
#+begin_src elisp
@@ -339,36 +349,14 @@ Then you set ‘treesit-simple-indent-rules’ to your rules,
and call
* Imenu
-Not much to say except for utilizing ‘treesit-induce-sparse-tree’ (and
-explicitly pass a LIMIT argument: most of the time you don't need more
-than 10). See ‘js--treesit-imenu-1’ in js.el for an example.
-
-Once you have the index builder, set ‘imenu-create-index-function’ to
-it.
+Set ‘treesit-simple-imenu-settings’ and call
+‘treesit-major-mode-setup’.
* Navigation
-Mainly ‘beginning-of-defun-function’ and ‘end-of-defun-function’.
-You can find the end of a defun with something like
-
-(treesit-search-forward-goto "function_definition" 'end)
-
-where "function_definition" matches the node type of a function
-definition node, and ’end means we want to go to the end of that node.
-
-Tree-sitter has default implementations for
-‘beginning-of-defun-function’ and ‘end-of-defun-function’. So for
-ordinary languages, it is enough to set ‘treesit-defun-type-regexp’
-to something that matches all the defun struct types in the language,
-and call ‘treesit-major-mode-setup’. For example,
-
-#+begin_src emacs-lisp
-(setq-local treesit-defun-type-regexp (rx bol
- (or "function" "class")
- "_definition"
- eol))
-(treesit-major-mode-setup)
-#+end_src>
+Set ‘treesit-defun-type-regexp’ and call
+‘treesit-major-mode-setup’. You can additionally set
+‘treesit-defun-name-function’.
* Which-func
@@ -376,36 +364,7 @@ If you have an imenu implementation, set
‘which-func-functions’ to
nil, and which-func will automatically use imenu’s data.
If you want an independent implementation for which-func, you can
-find the current function by going up the tree and looking for the
-function_definition node. See the function below for an example.
-Since Python allows nested function definitions, that function keeps
-going until it reaches the root node, and records all the function
-names along the way.
-
-#+begin_src elisp
-(defun python-info-treesit-current-defun (&optional include-type)
- "Identical to `python-info-current-defun' but use tree-sitter.
-For INCLUDE-TYPE see `python-info-current-defun'."
- (let ((node (treesit-node-at (point)))
- (name-list ())
- (type nil))
- (cl-loop while node
- if (pcase (treesit-node-type node)
- ("function_definition"
- (setq type 'def))
- ("class_definition"
- (setq type 'class))
- (_ nil))
- do (push (treesit-node-text
- (treesit-node-child-by-field-name node "name")
- t)
- name-list)
- do (setq node (treesit-node-parent node))
- finally return (concat (if include-type
- (format "%s " type)
- "")
- (string-join name-list ".")))))
-#+end_src
+find the current function by ‘treesit-defun-at-point’.
* More features?
@@ -449,7 +408,51 @@ section is Parsing Program Source. Typing
C-h i d m elisp RET g Parsing Program Source RET
-will bring you to that section. You can also read the HTML version
-under /html-manual in this directory. I find the HTML version easier
-to read. You don’t need to read through every sentence, just read the
-text paragraphs and glance over function names.
+will bring you to that section. You don’t need to read through every
+sentence, just read the text paragraphs and glance over function
+names.
+
+* Appendix 1
+
+Below is a set of common features used by built-in major mode.
+
+Basic tokens:
+
+delimiter ,.; (delimit things)
+operator == != || (produces a value)
+bracket []{}()
+misc-punctuation (other punctuation that you want to highlight)
+
+constant true, false, null
+number
+keyword
+comment (includes doc-comments)
+string (includes chars and docstrings)
+string-interpolation f"text {variable}"
+escape-sequence "\n\t\\"
+function every function identifier
+variable every variable identifier
+type every type identifier
+property a.b <--- highlight b
+key { a: b, c: d } <--- highlight a, c
+error highlight parse error
+
+Abstract features:
+
+assignment: the LHS of an assignment (thing being assigned to), eg:
+
+a = b <--- highlight a
+a.b = c <--- highlight b
+a[1] = d <--- highlight a
+
+definition: the thing being defined, eg:
+
+int a(int b) { <--- highlight a
+ return 0
+}
+
+int a; <-- highlight a
+
+struct a { <--- highlight a
+ int b; <--- highlight b
+}
diff --git a/admin/notes/unicode b/admin/notes/unicode
index 0e000365da7..31c850af8fd 100644
--- a/admin/notes/unicode
+++ b/admin/notes/unicode
@@ -22,6 +22,7 @@ Emacs uses the following files from the Unicode Character
Database
. confusables.txt
. emoji-data.txt
. emoji-zwj-sequences.txt
+ . emoji-variation-sequences.txt
. emoji-sequences.txt
. BidiCharacterTest.txt
@@ -29,7 +30,7 @@ Emacs also uses the file emoji-test.txt which should be
imported from
the Unicode's Public/emoji/ directory, and IdnaMappingTable.txt from
the Public/idna/ directory.
-First, the first 14 files, emoji-test.txt and IdnaMappingTable.txt
+First, the first 15 files, emoji-test.txt and IdnaMappingTable.txt
need to be copied into admin/unidata/, and the file
https://www.unicode.org/copyright.html should be copied over
copyright.html in admin/unidata (some of them might need trailing
@@ -142,6 +143,20 @@ generated for auto-composition-emoji-eligible-codepoints by
admin/unidata/emoji-zwj.awk. Note that your emoji font might not have
glyphs for the newest codepoints yet.
+Visit "emoji-variation-sequences.txt", and run the following lisp
+fragment to actually insert the described codepoints, then check that
+all the text in parentheses displays correctly (it can be helpful to
+have `glyphless-char-display-control' customized to show hex codes for
+variation selectors).
+
+(save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward "^\\([0-9A-Z]+\\) \\([0-9A-Z]+\\).*(\\([^)]+\\))"
nil t)
+ (let ((ch (string-to-number (match-string 1) 16))
+ (sel (string-to-number (match-string 2) 16))
+ (sp (match-string 3)))
+ (replace-match (format "%s %c%c " sp ch sel) nil nil nil 3))))
+
Finally, etc/NEWS should be updated to announce the support for the
new Unicode version.
diff --git a/admin/unidata/emoji-variation-sequences.txt
b/admin/unidata/emoji-variation-sequences.txt
new file mode 100644
index 00000000000..f3396ada19d
--- /dev/null
+++ b/admin/unidata/emoji-variation-sequences.txt
@@ -0,0 +1,723 @@
+# emoji-variation-sequences.txt
+# Date: 2022-05-13, 21:54:24 GMT
+# © 2022 Unicode®, Inc.
+# Unicode and the Unicode Logo are registered trademarks of Unicode, Inc. in
the U.S. and other countries.
+# For terms of use, see https://www.unicode.org/terms_of_use.html
+#
+# Emoji Variation Sequences for UTS #51
+# Used with Emoji Version 15.0 and subsequent minor revisions (if any)
+#
+# For documentation and usage, see https://www.unicode.org/reports/tr51
+#
+0023 FE0E ; text style; # (1.1 #︎ ) NUMBER SIGN
+0023 FE0F ; emoji style; # (1.1 #️ ) NUMBER SIGN
+002A FE0E ; text style; # (1.1 *︎ ) ASTERISK
+002A FE0F ; emoji style; # (1.1 *️ ) ASTERISK
+0030 FE0E ; text style; # (1.1 0︎ ) DIGIT ZERO
+0030 FE0F ; emoji style; # (1.1 0️ ) DIGIT ZERO
+0031 FE0E ; text style; # (1.1 1︎ ) DIGIT ONE
+0031 FE0F ; emoji style; # (1.1 1️ ) DIGIT ONE
+0032 FE0E ; text style; # (1.1 2︎ ) DIGIT TWO
+0032 FE0F ; emoji style; # (1.1 2️ ) DIGIT TWO
+0033 FE0E ; text style; # (1.1 3︎ ) DIGIT THREE
+0033 FE0F ; emoji style; # (1.1 3️ ) DIGIT THREE
+0034 FE0E ; text style; # (1.1 4︎ ) DIGIT FOUR
+0034 FE0F ; emoji style; # (1.1 4️ ) DIGIT FOUR
+0035 FE0E ; text style; # (1.1 5︎ ) DIGIT FIVE
+0035 FE0F ; emoji style; # (1.1 5️ ) DIGIT FIVE
+0036 FE0E ; text style; # (1.1 6︎ ) DIGIT SIX
+0036 FE0F ; emoji style; # (1.1 6️ ) DIGIT SIX
+0037 FE0E ; text style; # (1.1 7︎ ) DIGIT SEVEN
+0037 FE0F ; emoji style; # (1.1 7️ ) DIGIT SEVEN
+0038 FE0E ; text style; # (1.1 8︎ ) DIGIT EIGHT
+0038 FE0F ; emoji style; # (1.1 8️ ) DIGIT EIGHT
+0039 FE0E ; text style; # (1.1 9︎ ) DIGIT NINE
+0039 FE0F ; emoji style; # (1.1 9️ ) DIGIT NINE
+00A9 FE0E ; text style; # (1.1 ©︎ ) COPYRIGHT SIGN
+00A9 FE0F ; emoji style; # (1.1 ©️ ) COPYRIGHT SIGN
+00AE FE0E ; text style; # (1.1 ®︎ ) REGISTERED SIGN
+00AE FE0F ; emoji style; # (1.1 ®️ ) REGISTERED SIGN
+203C FE0E ; text style; # (1.1 ‼︎ ) DOUBLE EXCLAMATION MARK
+203C FE0F ; emoji style; # (1.1 ‼️ ) DOUBLE EXCLAMATION MARK
+2049 FE0E ; text style; # (3.0 ⁉︎ ) EXCLAMATION QUESTION MARK
+2049 FE0F ; emoji style; # (3.0 ⁉️ ) EXCLAMATION QUESTION MARK
+2122 FE0E ; text style; # (1.1 ™︎ ) TRADE MARK SIGN
+2122 FE0F ; emoji style; # (1.1 ™️ ) TRADE MARK SIGN
+2139 FE0E ; text style; # (3.0 ℹ︎ ) INFORMATION SOURCE
+2139 FE0F ; emoji style; # (3.0 ℹ️ ) INFORMATION SOURCE
+2194 FE0E ; text style; # (1.1 ↔︎ ) LEFT RIGHT ARROW
+2194 FE0F ; emoji style; # (1.1 ↔️ ) LEFT RIGHT ARROW
+2195 FE0E ; text style; # (1.1 ↕︎ ) UP DOWN ARROW
+2195 FE0F ; emoji style; # (1.1 ↕️ ) UP DOWN ARROW
+2196 FE0E ; text style; # (1.1 ↖︎ ) NORTH WEST ARROW
+2196 FE0F ; emoji style; # (1.1 ↖️ ) NORTH WEST ARROW
+2197 FE0E ; text style; # (1.1 ↗︎ ) NORTH EAST ARROW
+2197 FE0F ; emoji style; # (1.1 ↗️ ) NORTH EAST ARROW
+2198 FE0E ; text style; # (1.1 ↘︎ ) SOUTH EAST ARROW
+2198 FE0F ; emoji style; # (1.1 ↘️ ) SOUTH EAST ARROW
+2199 FE0E ; text style; # (1.1 ↙︎ ) SOUTH WEST ARROW
+2199 FE0F ; emoji style; # (1.1 ↙️ ) SOUTH WEST ARROW
+21A9 FE0E ; text style; # (1.1 ↩︎ ) LEFTWARDS ARROW WITH HOOK
+21A9 FE0F ; emoji style; # (1.1 ↩️ ) LEFTWARDS ARROW WITH HOOK
+21AA FE0E ; text style; # (1.1 ↪︎ ) RIGHTWARDS ARROW WITH HOOK
+21AA FE0F ; emoji style; # (1.1 ↪️ ) RIGHTWARDS ARROW WITH HOOK
+231A FE0E ; text style; # (1.1 ⌚︎ ) WATCH
+231A FE0F ; emoji style; # (1.1 ⌚️ ) WATCH
+231B FE0E ; text style; # (1.1 ⌛︎ ) HOURGLASS
+231B FE0F ; emoji style; # (1.1 ⌛️ ) HOURGLASS
+2328 FE0E ; text style; # (1.1 ⌨︎ ) KEYBOARD
+2328 FE0F ; emoji style; # (1.1 ⌨️ ) KEYBOARD
+23CF FE0E ; text style; # (4.0 ⏏︎ ) EJECT SYMBOL
+23CF FE0F ; emoji style; # (4.0 ⏏️ ) EJECT SYMBOL
+23E9 FE0E ; text style; # (6.0 ⏩︎ ) BLACK RIGHT-POINTING DOUBLE TRIANGLE
+23E9 FE0F ; emoji style; # (6.0 ⏩️ ) BLACK RIGHT-POINTING DOUBLE TRIANGLE
+23EA FE0E ; text style; # (6.0 ⏪︎ ) BLACK LEFT-POINTING DOUBLE TRIANGLE
+23EA FE0F ; emoji style; # (6.0 ⏪️ ) BLACK LEFT-POINTING DOUBLE TRIANGLE
+23ED FE0E ; text style; # (6.0 ⏭︎ ) BLACK RIGHT-POINTING DOUBLE TRIANGLE
WITH VERTICAL BAR
+23ED FE0F ; emoji style; # (6.0 ⏭️ ) BLACK RIGHT-POINTING DOUBLE TRIANGLE
WITH VERTICAL BAR
+23EE FE0E ; text style; # (6.0 ⏮︎ ) BLACK LEFT-POINTING DOUBLE TRIANGLE WITH
VERTICAL BAR
+23EE FE0F ; emoji style; # (6.0 ⏮️ ) BLACK LEFT-POINTING DOUBLE TRIANGLE WITH
VERTICAL BAR
+23EF FE0E ; text style; # (6.0 ⏯︎ ) BLACK RIGHT-POINTING TRIANGLE WITH
DOUBLE VERTICAL BAR
+23EF FE0F ; emoji style; # (6.0 ⏯️ ) BLACK RIGHT-POINTING TRIANGLE WITH
DOUBLE VERTICAL BAR
+23F1 FE0E ; text style; # (6.0 ⏱︎ ) STOPWATCH
+23F1 FE0F ; emoji style; # (6.0 ⏱️ ) STOPWATCH
+23F2 FE0E ; text style; # (6.0 ⏲︎ ) TIMER CLOCK
+23F2 FE0F ; emoji style; # (6.0 ⏲️ ) TIMER CLOCK
+23F3 FE0E ; text style; # (6.0 ⏳︎ ) HOURGLASS WITH FLOWING SAND
+23F3 FE0F ; emoji style; # (6.0 ⏳️ ) HOURGLASS WITH FLOWING SAND
+23F8 FE0E ; text style; # (7.0 ⏸︎ ) DOUBLE VERTICAL BAR
+23F8 FE0F ; emoji style; # (7.0 ⏸️ ) DOUBLE VERTICAL BAR
+23F9 FE0E ; text style; # (7.0 ⏹︎ ) BLACK SQUARE FOR STOP
+23F9 FE0F ; emoji style; # (7.0 ⏹️ ) BLACK SQUARE FOR STOP
+23FA FE0E ; text style; # (7.0 ⏺︎ ) BLACK CIRCLE FOR RECORD
+23FA FE0F ; emoji style; # (7.0 ⏺️ ) BLACK CIRCLE FOR RECORD
+24C2 FE0E ; text style; # (1.1 Ⓜ︎ ) CIRCLED LATIN CAPITAL LETTER M
+24C2 FE0F ; emoji style; # (1.1 Ⓜ️ ) CIRCLED LATIN CAPITAL LETTER M
+25AA FE0E ; text style; # (1.1 ▪︎ ) BLACK SMALL SQUARE
+25AA FE0F ; emoji style; # (1.1 ▪️ ) BLACK SMALL SQUARE
+25AB FE0E ; text style; # (1.1 ▫︎ ) WHITE SMALL SQUARE
+25AB FE0F ; emoji style; # (1.1 ▫️ ) WHITE SMALL SQUARE
+25B6 FE0E ; text style; # (1.1 ▶︎ ) BLACK RIGHT-POINTING TRIANGLE
+25B6 FE0F ; emoji style; # (1.1 ▶️ ) BLACK RIGHT-POINTING TRIANGLE
+25C0 FE0E ; text style; # (1.1 ◀︎ ) BLACK LEFT-POINTING TRIANGLE
+25C0 FE0F ; emoji style; # (1.1 ◀️ ) BLACK LEFT-POINTING TRIANGLE
+25FB FE0E ; text style; # (3.2 ◻︎ ) WHITE MEDIUM SQUARE
+25FB FE0F ; emoji style; # (3.2 ◻️ ) WHITE MEDIUM SQUARE
+25FC FE0E ; text style; # (3.2 ◼︎ ) BLACK MEDIUM SQUARE
+25FC FE0F ; emoji style; # (3.2 ◼️ ) BLACK MEDIUM SQUARE
+25FD FE0E ; text style; # (3.2 ◽︎ ) WHITE MEDIUM SMALL SQUARE
+25FD FE0F ; emoji style; # (3.2 ◽️ ) WHITE MEDIUM SMALL SQUARE
+25FE FE0E ; text style; # (3.2 ◾︎ ) BLACK MEDIUM SMALL SQUARE
+25FE FE0F ; emoji style; # (3.2 ◾️ ) BLACK MEDIUM SMALL SQUARE
+2600 FE0E ; text style; # (1.1 ☀︎ ) BLACK SUN WITH RAYS
+2600 FE0F ; emoji style; # (1.1 ☀️ ) BLACK SUN WITH RAYS
+2601 FE0E ; text style; # (1.1 ☁︎ ) CLOUD
+2601 FE0F ; emoji style; # (1.1 ☁️ ) CLOUD
+2602 FE0E ; text style; # (1.1 ☂︎ ) UMBRELLA
+2602 FE0F ; emoji style; # (1.1 ☂️ ) UMBRELLA
+2603 FE0E ; text style; # (1.1 ☃︎ ) SNOWMAN
+2603 FE0F ; emoji style; # (1.1 ☃️ ) SNOWMAN
+2604 FE0E ; text style; # (1.1 ☄︎ ) COMET
+2604 FE0F ; emoji style; # (1.1 ☄️ ) COMET
+260E FE0E ; text style; # (1.1 ☎︎ ) BLACK TELEPHONE
+260E FE0F ; emoji style; # (1.1 ☎️ ) BLACK TELEPHONE
+2611 FE0E ; text style; # (1.1 ☑︎ ) BALLOT BOX WITH CHECK
+2611 FE0F ; emoji style; # (1.1 ☑️ ) BALLOT BOX WITH CHECK
+2614 FE0E ; text style; # (4.0 ☔︎ ) UMBRELLA WITH RAIN DROPS
+2614 FE0F ; emoji style; # (4.0 ☔️ ) UMBRELLA WITH RAIN DROPS
+2615 FE0E ; text style; # (4.0 ☕︎ ) HOT BEVERAGE
+2615 FE0F ; emoji style; # (4.0 ☕️ ) HOT BEVERAGE
+2618 FE0E ; text style; # (4.1 ☘︎ ) SHAMROCK
+2618 FE0F ; emoji style; # (4.1 ☘️ ) SHAMROCK
+261D FE0E ; text style; # (1.1 ☝︎ ) WHITE UP POINTING INDEX
+261D FE0F ; emoji style; # (1.1 ☝️ ) WHITE UP POINTING INDEX
+2620 FE0E ; text style; # (1.1 ☠︎ ) SKULL AND CROSSBONES
+2620 FE0F ; emoji style; # (1.1 ☠️ ) SKULL AND CROSSBONES
+2622 FE0E ; text style; # (1.1 ☢︎ ) RADIOACTIVE SIGN
+2622 FE0F ; emoji style; # (1.1 ☢️ ) RADIOACTIVE SIGN
+2623 FE0E ; text style; # (1.1 ☣︎ ) BIOHAZARD SIGN
+2623 FE0F ; emoji style; # (1.1 ☣️ ) BIOHAZARD SIGN
+2626 FE0E ; text style; # (1.1 ☦︎ ) ORTHODOX CROSS
+2626 FE0F ; emoji style; # (1.1 ☦️ ) ORTHODOX CROSS
+262A FE0E ; text style; # (1.1 ☪︎ ) STAR AND CRESCENT
+262A FE0F ; emoji style; # (1.1 ☪️ ) STAR AND CRESCENT
+262E FE0E ; text style; # (1.1 ☮︎ ) PEACE SYMBOL
+262E FE0F ; emoji style; # (1.1 ☮️ ) PEACE SYMBOL
+262F FE0E ; text style; # (1.1 ☯︎ ) YIN YANG
+262F FE0F ; emoji style; # (1.1 ☯️ ) YIN YANG
+2638 FE0E ; text style; # (1.1 ☸︎ ) WHEEL OF DHARMA
+2638 FE0F ; emoji style; # (1.1 ☸️ ) WHEEL OF DHARMA
+2639 FE0E ; text style; # (1.1 ☹︎ ) WHITE FROWNING FACE
+2639 FE0F ; emoji style; # (1.1 ☹️ ) WHITE FROWNING FACE
+263A FE0E ; text style; # (1.1 ☺︎ ) WHITE SMILING FACE
+263A FE0F ; emoji style; # (1.1 ☺️ ) WHITE SMILING FACE
+2640 FE0E ; text style; # (1.1 ♀︎ ) FEMALE SIGN
+2640 FE0F ; emoji style; # (1.1 ♀️ ) FEMALE SIGN
+2642 FE0E ; text style; # (1.1 ♂︎ ) MALE SIGN
+2642 FE0F ; emoji style; # (1.1 ♂️ ) MALE SIGN
+2648 FE0E ; text style; # (1.1 ♈︎ ) ARIES
+2648 FE0F ; emoji style; # (1.1 ♈️ ) ARIES
+2649 FE0E ; text style; # (1.1 ♉︎ ) TAURUS
+2649 FE0F ; emoji style; # (1.1 ♉️ ) TAURUS
+264A FE0E ; text style; # (1.1 ♊︎ ) GEMINI
+264A FE0F ; emoji style; # (1.1 ♊️ ) GEMINI
+264B FE0E ; text style; # (1.1 ♋︎ ) CANCER
+264B FE0F ; emoji style; # (1.1 ♋️ ) CANCER
+264C FE0E ; text style; # (1.1 ♌︎ ) LEO
+264C FE0F ; emoji style; # (1.1 ♌️ ) LEO
+264D FE0E ; text style; # (1.1 ♍︎ ) VIRGO
+264D FE0F ; emoji style; # (1.1 ♍️ ) VIRGO
+264E FE0E ; text style; # (1.1 ♎︎ ) LIBRA
+264E FE0F ; emoji style; # (1.1 ♎️ ) LIBRA
+264F FE0E ; text style; # (1.1 ♏︎ ) SCORPIUS
+264F FE0F ; emoji style; # (1.1 ♏️ ) SCORPIUS
+2650 FE0E ; text style; # (1.1 ♐︎ ) SAGITTARIUS
+2650 FE0F ; emoji style; # (1.1 ♐️ ) SAGITTARIUS
+2651 FE0E ; text style; # (1.1 ♑︎ ) CAPRICORN
+2651 FE0F ; emoji style; # (1.1 ♑️ ) CAPRICORN
+2652 FE0E ; text style; # (1.1 ♒︎ ) AQUARIUS
+2652 FE0F ; emoji style; # (1.1 ♒️ ) AQUARIUS
+2653 FE0E ; text style; # (1.1 ♓︎ ) PISCES
+2653 FE0F ; emoji style; # (1.1 ♓️ ) PISCES
+265F FE0E ; text style; # (1.1 ♟︎ ) BLACK CHESS PAWN
+265F FE0F ; emoji style; # (1.1 ♟️ ) BLACK CHESS PAWN
+2660 FE0E ; text style; # (1.1 ♠︎ ) BLACK SPADE SUIT
+2660 FE0F ; emoji style; # (1.1 ♠️ ) BLACK SPADE SUIT
+2663 FE0E ; text style; # (1.1 ♣︎ ) BLACK CLUB SUIT
+2663 FE0F ; emoji style; # (1.1 ♣️ ) BLACK CLUB SUIT
+2665 FE0E ; text style; # (1.1 ♥︎ ) BLACK HEART SUIT
+2665 FE0F ; emoji style; # (1.1 ♥️ ) BLACK HEART SUIT
+2666 FE0E ; text style; # (1.1 ♦︎ ) BLACK DIAMOND SUIT
+2666 FE0F ; emoji style; # (1.1 ♦️ ) BLACK DIAMOND SUIT
+2668 FE0E ; text style; # (1.1 ♨︎ ) HOT SPRINGS
+2668 FE0F ; emoji style; # (1.1 ♨️ ) HOT SPRINGS
+267B FE0E ; text style; # (3.2 ♻︎ ) BLACK UNIVERSAL RECYCLING SYMBOL
+267B FE0F ; emoji style; # (3.2 ♻️ ) BLACK UNIVERSAL RECYCLING SYMBOL
+267E FE0E ; text style; # (4.1 ♾︎ ) PERMANENT PAPER SIGN
+267E FE0F ; emoji style; # (4.1 ♾️ ) PERMANENT PAPER SIGN
+267F FE0E ; text style; # (4.1 ♿︎ ) WHEELCHAIR SYMBOL
+267F FE0F ; emoji style; # (4.1 ♿️ ) WHEELCHAIR SYMBOL
+2692 FE0E ; text style; # (4.1 ⚒︎ ) HAMMER AND PICK
+2692 FE0F ; emoji style; # (4.1 ⚒️ ) HAMMER AND PICK
+2693 FE0E ; text style; # (4.1 ⚓︎ ) ANCHOR
+2693 FE0F ; emoji style; # (4.1 ⚓️ ) ANCHOR
+2694 FE0E ; text style; # (4.1 ⚔︎ ) CROSSED SWORDS
+2694 FE0F ; emoji style; # (4.1 ⚔️ ) CROSSED SWORDS
+2695 FE0E ; text style; # (4.1 ⚕︎ ) STAFF OF AESCULAPIUS
+2695 FE0F ; emoji style; # (4.1 ⚕️ ) STAFF OF AESCULAPIUS
+2696 FE0E ; text style; # (4.1 ⚖︎ ) SCALES
+2696 FE0F ; emoji style; # (4.1 ⚖️ ) SCALES
+2697 FE0E ; text style; # (4.1 ⚗︎ ) ALEMBIC
+2697 FE0F ; emoji style; # (4.1 ⚗️ ) ALEMBIC
+2699 FE0E ; text style; # (4.1 ⚙︎ ) GEAR
+2699 FE0F ; emoji style; # (4.1 ⚙️ ) GEAR
+269B FE0E ; text style; # (4.1 ⚛︎ ) ATOM SYMBOL
+269B FE0F ; emoji style; # (4.1 ⚛️ ) ATOM SYMBOL
+269C FE0E ; text style; # (4.1 ⚜︎ ) FLEUR-DE-LIS
+269C FE0F ; emoji style; # (4.1 ⚜️ ) FLEUR-DE-LIS
+26A0 FE0E ; text style; # (4.0 ⚠︎ ) WARNING SIGN
+26A0 FE0F ; emoji style; # (4.0 ⚠️ ) WARNING SIGN
+26A1 FE0E ; text style; # (4.0 ⚡︎ ) HIGH VOLTAGE SIGN
+26A1 FE0F ; emoji style; # (4.0 ⚡️ ) HIGH VOLTAGE SIGN
+26A7 FE0E ; text style; # (4.1 ⚧︎ ) MALE WITH STROKE AND MALE AND FEMALE SIGN
+26A7 FE0F ; emoji style; # (4.1 ⚧️ ) MALE WITH STROKE AND MALE AND FEMALE SIGN
+26AA FE0E ; text style; # (4.1 ⚪︎ ) MEDIUM WHITE CIRCLE
+26AA FE0F ; emoji style; # (4.1 ⚪️ ) MEDIUM WHITE CIRCLE
+26AB FE0E ; text style; # (4.1 ⚫︎ ) MEDIUM BLACK CIRCLE
+26AB FE0F ; emoji style; # (4.1 ⚫️ ) MEDIUM BLACK CIRCLE
+26B0 FE0E ; text style; # (4.1 ⚰︎ ) COFFIN
+26B0 FE0F ; emoji style; # (4.1 ⚰️ ) COFFIN
+26B1 FE0E ; text style; # (4.1 ⚱︎ ) FUNERAL URN
+26B1 FE0F ; emoji style; # (4.1 ⚱️ ) FUNERAL URN
+26BD FE0E ; text style; # (5.2 ⚽︎ ) SOCCER BALL
+26BD FE0F ; emoji style; # (5.2 ⚽️ ) SOCCER BALL
+26BE FE0E ; text style; # (5.2 ⚾︎ ) BASEBALL
+26BE FE0F ; emoji style; # (5.2 ⚾️ ) BASEBALL
+26C4 FE0E ; text style; # (5.2 ⛄︎ ) SNOWMAN WITHOUT SNOW
+26C4 FE0F ; emoji style; # (5.2 ⛄️ ) SNOWMAN WITHOUT SNOW
+26C5 FE0E ; text style; # (5.2 ⛅︎ ) SUN BEHIND CLOUD
+26C5 FE0F ; emoji style; # (5.2 ⛅️ ) SUN BEHIND CLOUD
+26C8 FE0E ; text style; # (5.2 ⛈︎ ) THUNDER CLOUD AND RAIN
+26C8 FE0F ; emoji style; # (5.2 ⛈️ ) THUNDER CLOUD AND RAIN
+26CF FE0E ; text style; # (5.2 ⛏︎ ) PICK
+26CF FE0F ; emoji style; # (5.2 ⛏️ ) PICK
+26D1 FE0E ; text style; # (5.2 ⛑︎ ) HELMET WITH WHITE CROSS
+26D1 FE0F ; emoji style; # (5.2 ⛑️ ) HELMET WITH WHITE CROSS
+26D3 FE0E ; text style; # (5.2 ⛓︎ ) CHAINS
+26D3 FE0F ; emoji style; # (5.2 ⛓️ ) CHAINS
+26D4 FE0E ; text style; # (5.2 ⛔︎ ) NO ENTRY
+26D4 FE0F ; emoji style; # (5.2 ⛔️ ) NO ENTRY
+26E9 FE0E ; text style; # (5.2 ⛩︎ ) SHINTO SHRINE
+26E9 FE0F ; emoji style; # (5.2 ⛩️ ) SHINTO SHRINE
+26EA FE0E ; text style; # (5.2 ⛪︎ ) CHURCH
+26EA FE0F ; emoji style; # (5.2 ⛪️ ) CHURCH
+26F0 FE0E ; text style; # (5.2 ⛰︎ ) MOUNTAIN
+26F0 FE0F ; emoji style; # (5.2 ⛰️ ) MOUNTAIN
+26F1 FE0E ; text style; # (5.2 ⛱︎ ) UMBRELLA ON GROUND
+26F1 FE0F ; emoji style; # (5.2 ⛱️ ) UMBRELLA ON GROUND
+26F2 FE0E ; text style; # (5.2 ⛲︎ ) FOUNTAIN
+26F2 FE0F ; emoji style; # (5.2 ⛲️ ) FOUNTAIN
+26F3 FE0E ; text style; # (5.2 ⛳︎ ) FLAG IN HOLE
+26F3 FE0F ; emoji style; # (5.2 ⛳️ ) FLAG IN HOLE
+26F4 FE0E ; text style; # (5.2 ⛴︎ ) FERRY
+26F4 FE0F ; emoji style; # (5.2 ⛴️ ) FERRY
+26F5 FE0E ; text style; # (5.2 ⛵︎ ) SAILBOAT
+26F5 FE0F ; emoji style; # (5.2 ⛵️ ) SAILBOAT
+26F7 FE0E ; text style; # (5.2 ⛷︎ ) SKIER
+26F7 FE0F ; emoji style; # (5.2 ⛷️ ) SKIER
+26F8 FE0E ; text style; # (5.2 ⛸︎ ) ICE SKATE
+26F8 FE0F ; emoji style; # (5.2 ⛸️ ) ICE SKATE
+26F9 FE0E ; text style; # (5.2 ⛹︎ ) PERSON WITH BALL
+26F9 FE0F ; emoji style; # (5.2 ⛹️ ) PERSON WITH BALL
+26FA FE0E ; text style; # (5.2 ⛺︎ ) TENT
+26FA FE0F ; emoji style; # (5.2 ⛺️ ) TENT
+26FD FE0E ; text style; # (5.2 ⛽︎ ) FUEL PUMP
+26FD FE0F ; emoji style; # (5.2 ⛽️ ) FUEL PUMP
+2702 FE0E ; text style; # (1.1 ✂︎ ) BLACK SCISSORS
+2702 FE0F ; emoji style; # (1.1 ✂️ ) BLACK SCISSORS
+2708 FE0E ; text style; # (1.1 ✈︎ ) AIRPLANE
+2708 FE0F ; emoji style; # (1.1 ✈️ ) AIRPLANE
+2709 FE0E ; text style; # (1.1 ✉︎ ) ENVELOPE
+2709 FE0F ; emoji style; # (1.1 ✉️ ) ENVELOPE
+270C FE0E ; text style; # (1.1 ✌︎ ) VICTORY HAND
+270C FE0F ; emoji style; # (1.1 ✌️ ) VICTORY HAND
+270D FE0E ; text style; # (1.1 ✍︎ ) WRITING HAND
+270D FE0F ; emoji style; # (1.1 ✍️ ) WRITING HAND
+270F FE0E ; text style; # (1.1 ✏︎ ) PENCIL
+270F FE0F ; emoji style; # (1.1 ✏️ ) PENCIL
+2712 FE0E ; text style; # (1.1 ✒︎ ) BLACK NIB
+2712 FE0F ; emoji style; # (1.1 ✒️ ) BLACK NIB
+2714 FE0E ; text style; # (1.1 ✔︎ ) HEAVY CHECK MARK
+2714 FE0F ; emoji style; # (1.1 ✔️ ) HEAVY CHECK MARK
+2716 FE0E ; text style; # (1.1 ✖︎ ) HEAVY MULTIPLICATION X
+2716 FE0F ; emoji style; # (1.1 ✖️ ) HEAVY MULTIPLICATION X
+271D FE0E ; text style; # (1.1 ✝︎ ) LATIN CROSS
+271D FE0F ; emoji style; # (1.1 ✝️ ) LATIN CROSS
+2721 FE0E ; text style; # (1.1 ✡︎ ) STAR OF DAVID
+2721 FE0F ; emoji style; # (1.1 ✡️ ) STAR OF DAVID
+2733 FE0E ; text style; # (1.1 ✳︎ ) EIGHT SPOKED ASTERISK
+2733 FE0F ; emoji style; # (1.1 ✳️ ) EIGHT SPOKED ASTERISK
+2734 FE0E ; text style; # (1.1 ✴︎ ) EIGHT POINTED BLACK STAR
+2734 FE0F ; emoji style; # (1.1 ✴️ ) EIGHT POINTED BLACK STAR
+2744 FE0E ; text style; # (1.1 ❄︎ ) SNOWFLAKE
+2744 FE0F ; emoji style; # (1.1 ❄️ ) SNOWFLAKE
+2747 FE0E ; text style; # (1.1 ❇︎ ) SPARKLE
+2747 FE0F ; emoji style; # (1.1 ❇️ ) SPARKLE
+2753 FE0E ; text style; # (6.0 ❓︎ ) BLACK QUESTION MARK ORNAMENT
+2753 FE0F ; emoji style; # (6.0 ❓️ ) BLACK QUESTION MARK ORNAMENT
+2757 FE0E ; text style; # (5.2 ❗︎ ) HEAVY EXCLAMATION MARK SYMBOL
+2757 FE0F ; emoji style; # (5.2 ❗️ ) HEAVY EXCLAMATION MARK SYMBOL
+2763 FE0E ; text style; # (1.1 ❣︎ ) HEAVY HEART EXCLAMATION MARK ORNAMENT
+2763 FE0F ; emoji style; # (1.1 ❣️ ) HEAVY HEART EXCLAMATION MARK ORNAMENT
+2764 FE0E ; text style; # (1.1 ❤︎ ) HEAVY BLACK HEART
+2764 FE0F ; emoji style; # (1.1 ❤️ ) HEAVY BLACK HEART
+27A1 FE0E ; text style; # (1.1 ➡︎ ) BLACK RIGHTWARDS ARROW
+27A1 FE0F ; emoji style; # (1.1 ➡️ ) BLACK RIGHTWARDS ARROW
+2934 FE0E ; text style; # (3.2 ⤴︎ ) ARROW POINTING RIGHTWARDS THEN CURVING
UPWARDS
+2934 FE0F ; emoji style; # (3.2 ⤴️ ) ARROW POINTING RIGHTWARDS THEN CURVING
UPWARDS
+2935 FE0E ; text style; # (3.2 ⤵︎ ) ARROW POINTING RIGHTWARDS THEN CURVING
DOWNWARDS
+2935 FE0F ; emoji style; # (3.2 ⤵️ ) ARROW POINTING RIGHTWARDS THEN CURVING
DOWNWARDS
+2B05 FE0E ; text style; # (4.0 ⬅︎ ) LEFTWARDS BLACK ARROW
+2B05 FE0F ; emoji style; # (4.0 ⬅️ ) LEFTWARDS BLACK ARROW
+2B06 FE0E ; text style; # (4.0 ⬆︎ ) UPWARDS BLACK ARROW
+2B06 FE0F ; emoji style; # (4.0 ⬆️ ) UPWARDS BLACK ARROW
+2B07 FE0E ; text style; # (4.0 ⬇︎ ) DOWNWARDS BLACK ARROW
+2B07 FE0F ; emoji style; # (4.0 ⬇️ ) DOWNWARDS BLACK ARROW
+2B1B FE0E ; text style; # (5.1 ⬛︎ ) BLACK LARGE SQUARE
+2B1B FE0F ; emoji style; # (5.1 ⬛️ ) BLACK LARGE SQUARE
+2B1C FE0E ; text style; # (5.1 ⬜︎ ) WHITE LARGE SQUARE
+2B1C FE0F ; emoji style; # (5.1 ⬜️ ) WHITE LARGE SQUARE
+2B50 FE0E ; text style; # (5.1 ⭐︎ ) WHITE MEDIUM STAR
+2B50 FE0F ; emoji style; # (5.1 ⭐️ ) WHITE MEDIUM STAR
+2B55 FE0E ; text style; # (5.2 ⭕︎ ) HEAVY LARGE CIRCLE
+2B55 FE0F ; emoji style; # (5.2 ⭕️ ) HEAVY LARGE CIRCLE
+3030 FE0E ; text style; # (1.1 〰︎ ) WAVY DASH
+3030 FE0F ; emoji style; # (1.1 〰️ ) WAVY DASH
+303D FE0E ; text style; # (3.2 〽︎ ) PART ALTERNATION MARK
+303D FE0F ; emoji style; # (3.2 〽️ ) PART ALTERNATION MARK
+3297 FE0E ; text style; # (1.1 ㊗︎ ) CIRCLED IDEOGRAPH CONGRATULATION
+3297 FE0F ; emoji style; # (1.1 ㊗️ ) CIRCLED IDEOGRAPH CONGRATULATION
+3299 FE0E ; text style; # (1.1 ㊙︎ ) CIRCLED IDEOGRAPH SECRET
+3299 FE0F ; emoji style; # (1.1 ㊙️ ) CIRCLED IDEOGRAPH SECRET
+1F004 FE0E ; text style; # (5.1 🀄︎ ) MAHJONG TILE RED DRAGON
+1F004 FE0F ; emoji style; # (5.1 🀄️ ) MAHJONG TILE RED DRAGON
+1F170 FE0E ; text style; # (6.0 🅰︎ ) NEGATIVE SQUARED LATIN CAPITAL LETTER A
+1F170 FE0F ; emoji style; # (6.0 🅰️ ) NEGATIVE SQUARED LATIN CAPITAL LETTER A
+1F171 FE0E ; text style; # (6.0 🅱︎ ) NEGATIVE SQUARED LATIN CAPITAL LETTER B
+1F171 FE0F ; emoji style; # (6.0 🅱️ ) NEGATIVE SQUARED LATIN CAPITAL LETTER B
+1F17E FE0E ; text style; # (6.0 🅾︎ ) NEGATIVE SQUARED LATIN CAPITAL LETTER O
+1F17E FE0F ; emoji style; # (6.0 🅾️ ) NEGATIVE SQUARED LATIN CAPITAL LETTER O
+1F17F FE0E ; text style; # (5.2 🅿︎ ) NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F17F FE0F ; emoji style; # (5.2 🅿️ ) NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F202 FE0E ; text style; # (6.0 🈂︎ ) SQUARED KATAKANA SA
+1F202 FE0F ; emoji style; # (6.0 🈂️ ) SQUARED KATAKANA SA
+1F21A FE0E ; text style; # (5.2 🈚︎ ) SQUARED CJK UNIFIED IDEOGRAPH-7121
+1F21A FE0F ; emoji style; # (5.2 🈚️ ) SQUARED CJK UNIFIED IDEOGRAPH-7121
+1F22F FE0E ; text style; # (5.2 🈯︎ ) SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F22F FE0F ; emoji style; # (5.2 🈯️ ) SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F237 FE0E ; text style; # (6.0 🈷︎ ) SQUARED CJK UNIFIED IDEOGRAPH-6708
+1F237 FE0F ; emoji style; # (6.0 🈷️ ) SQUARED CJK UNIFIED IDEOGRAPH-6708
+1F30D FE0E ; text style; # (6.0 🌍︎ ) EARTH GLOBE EUROPE-AFRICA
+1F30D FE0F ; emoji style; # (6.0 🌍️ ) EARTH GLOBE EUROPE-AFRICA
+1F30E FE0E ; text style; # (6.0 🌎︎ ) EARTH GLOBE AMERICAS
+1F30E FE0F ; emoji style; # (6.0 🌎️ ) EARTH GLOBE AMERICAS
+1F30F FE0E ; text style; # (6.0 🌏︎ ) EARTH GLOBE ASIA-AUSTRALIA
+1F30F FE0F ; emoji style; # (6.0 🌏️ ) EARTH GLOBE ASIA-AUSTRALIA
+1F315 FE0E ; text style; # (6.0 🌕︎ ) FULL MOON SYMBOL
+1F315 FE0F ; emoji style; # (6.0 🌕️ ) FULL MOON SYMBOL
+1F31C FE0E ; text style; # (6.0 🌜︎ ) LAST QUARTER MOON WITH FACE
+1F31C FE0F ; emoji style; # (6.0 🌜️ ) LAST QUARTER MOON WITH FACE
+1F321 FE0E ; text style; # (7.0 🌡︎ ) THERMOMETER
+1F321 FE0F ; emoji style; # (7.0 🌡️ ) THERMOMETER
+1F324 FE0E ; text style; # (7.0 🌤︎ ) WHITE SUN WITH SMALL CLOUD
+1F324 FE0F ; emoji style; # (7.0 🌤️ ) WHITE SUN WITH SMALL CLOUD
+1F325 FE0E ; text style; # (7.0 🌥︎ ) WHITE SUN BEHIND CLOUD
+1F325 FE0F ; emoji style; # (7.0 🌥️ ) WHITE SUN BEHIND CLOUD
+1F326 FE0E ; text style; # (7.0 🌦︎ ) WHITE SUN BEHIND CLOUD WITH RAIN
+1F326 FE0F ; emoji style; # (7.0 🌦️ ) WHITE SUN BEHIND CLOUD WITH RAIN
+1F327 FE0E ; text style; # (7.0 🌧︎ ) CLOUD WITH RAIN
+1F327 FE0F ; emoji style; # (7.0 🌧️ ) CLOUD WITH RAIN
+1F328 FE0E ; text style; # (7.0 🌨︎ ) CLOUD WITH SNOW
+1F328 FE0F ; emoji style; # (7.0 🌨️ ) CLOUD WITH SNOW
+1F329 FE0E ; text style; # (7.0 🌩︎ ) CLOUD WITH LIGHTNING
+1F329 FE0F ; emoji style; # (7.0 🌩️ ) CLOUD WITH LIGHTNING
+1F32A FE0E ; text style; # (7.0 🌪︎ ) CLOUD WITH TORNADO
+1F32A FE0F ; emoji style; # (7.0 🌪️ ) CLOUD WITH TORNADO
+1F32B FE0E ; text style; # (7.0 🌫︎ ) FOG
+1F32B FE0F ; emoji style; # (7.0 🌫️ ) FOG
+1F32C FE0E ; text style; # (7.0 🌬︎ ) WIND BLOWING FACE
+1F32C FE0F ; emoji style; # (7.0 🌬️ ) WIND BLOWING FACE
+1F336 FE0E ; text style; # (7.0 🌶︎ ) HOT PEPPER
+1F336 FE0F ; emoji style; # (7.0 🌶️ ) HOT PEPPER
+1F378 FE0E ; text style; # (6.0 🍸︎ ) COCKTAIL GLASS
+1F378 FE0F ; emoji style; # (6.0 🍸️ ) COCKTAIL GLASS
+1F37D FE0E ; text style; # (7.0 🍽︎ ) FORK AND KNIFE WITH PLATE
+1F37D FE0F ; emoji style; # (7.0 🍽️ ) FORK AND KNIFE WITH PLATE
+1F393 FE0E ; text style; # (6.0 🎓︎ ) GRADUATION CAP
+1F393 FE0F ; emoji style; # (6.0 🎓️ ) GRADUATION CAP
+1F396 FE0E ; text style; # (7.0 🎖︎ ) MILITARY MEDAL
+1F396 FE0F ; emoji style; # (7.0 🎖️ ) MILITARY MEDAL
+1F397 FE0E ; text style; # (7.0 🎗︎ ) REMINDER RIBBON
+1F397 FE0F ; emoji style; # (7.0 🎗️ ) REMINDER RIBBON
+1F399 FE0E ; text style; # (7.0 🎙︎ ) STUDIO MICROPHONE
+1F399 FE0F ; emoji style; # (7.0 🎙️ ) STUDIO MICROPHONE
+1F39A FE0E ; text style; # (7.0 🎚︎ ) LEVEL SLIDER
+1F39A FE0F ; emoji style; # (7.0 🎚️ ) LEVEL SLIDER
+1F39B FE0E ; text style; # (7.0 🎛︎ ) CONTROL KNOBS
+1F39B FE0F ; emoji style; # (7.0 🎛️ ) CONTROL KNOBS
+1F39E FE0E ; text style; # (7.0 🎞︎ ) FILM FRAMES
+1F39E FE0F ; emoji style; # (7.0 🎞️ ) FILM FRAMES
+1F39F FE0E ; text style; # (7.0 🎟︎ ) ADMISSION TICKETS
+1F39F FE0F ; emoji style; # (7.0 🎟️ ) ADMISSION TICKETS
+1F3A7 FE0E ; text style; # (6.0 🎧︎ ) HEADPHONE
+1F3A7 FE0F ; emoji style; # (6.0 🎧️ ) HEADPHONE
+1F3AC FE0E ; text style; # (6.0 🎬︎ ) CLAPPER BOARD
+1F3AC FE0F ; emoji style; # (6.0 🎬️ ) CLAPPER BOARD
+1F3AD FE0E ; text style; # (6.0 🎭︎ ) PERFORMING ARTS
+1F3AD FE0F ; emoji style; # (6.0 🎭️ ) PERFORMING ARTS
+1F3AE FE0E ; text style; # (6.0 🎮︎ ) VIDEO GAME
+1F3AE FE0F ; emoji style; # (6.0 🎮️ ) VIDEO GAME
+1F3C2 FE0E ; text style; # (6.0 🏂︎ ) SNOWBOARDER
+1F3C2 FE0F ; emoji style; # (6.0 🏂️ ) SNOWBOARDER
+1F3C4 FE0E ; text style; # (6.0 🏄︎ ) SURFER
+1F3C4 FE0F ; emoji style; # (6.0 🏄️ ) SURFER
+1F3C6 FE0E ; text style; # (6.0 🏆︎ ) TROPHY
+1F3C6 FE0F ; emoji style; # (6.0 🏆️ ) TROPHY
+1F3CA FE0E ; text style; # (6.0 🏊︎ ) SWIMMER
+1F3CA FE0F ; emoji style; # (6.0 🏊️ ) SWIMMER
+1F3CB FE0E ; text style; # (7.0 🏋︎ ) WEIGHT LIFTER
+1F3CB FE0F ; emoji style; # (7.0 🏋️ ) WEIGHT LIFTER
+1F3CC FE0E ; text style; # (7.0 🏌︎ ) GOLFER
+1F3CC FE0F ; emoji style; # (7.0 🏌️ ) GOLFER
+1F3CD FE0E ; text style; # (7.0 🏍︎ ) RACING MOTORCYCLE
+1F3CD FE0F ; emoji style; # (7.0 🏍️ ) RACING MOTORCYCLE
+1F3CE FE0E ; text style; # (7.0 🏎︎ ) RACING CAR
+1F3CE FE0F ; emoji style; # (7.0 🏎️ ) RACING CAR
+1F3D4 FE0E ; text style; # (7.0 🏔︎ ) SNOW CAPPED MOUNTAIN
+1F3D4 FE0F ; emoji style; # (7.0 🏔️ ) SNOW CAPPED MOUNTAIN
+1F3D5 FE0E ; text style; # (7.0 🏕︎ ) CAMPING
+1F3D5 FE0F ; emoji style; # (7.0 🏕️ ) CAMPING
+1F3D6 FE0E ; text style; # (7.0 🏖︎ ) BEACH WITH UMBRELLA
+1F3D6 FE0F ; emoji style; # (7.0 🏖️ ) BEACH WITH UMBRELLA
+1F3D7 FE0E ; text style; # (7.0 🏗︎ ) BUILDING CONSTRUCTION
+1F3D7 FE0F ; emoji style; # (7.0 🏗️ ) BUILDING CONSTRUCTION
+1F3D8 FE0E ; text style; # (7.0 🏘︎ ) HOUSE BUILDINGS
+1F3D8 FE0F ; emoji style; # (7.0 🏘️ ) HOUSE BUILDINGS
+1F3D9 FE0E ; text style; # (7.0 🏙︎ ) CITYSCAPE
+1F3D9 FE0F ; emoji style; # (7.0 🏙️ ) CITYSCAPE
+1F3DA FE0E ; text style; # (7.0 🏚︎ ) DERELICT HOUSE BUILDING
+1F3DA FE0F ; emoji style; # (7.0 🏚️ ) DERELICT HOUSE BUILDING
+1F3DB FE0E ; text style; # (7.0 🏛︎ ) CLASSICAL BUILDING
+1F3DB FE0F ; emoji style; # (7.0 🏛️ ) CLASSICAL BUILDING
+1F3DC FE0E ; text style; # (7.0 🏜︎ ) DESERT
+1F3DC FE0F ; emoji style; # (7.0 🏜️ ) DESERT
+1F3DD FE0E ; text style; # (7.0 🏝︎ ) DESERT ISLAND
+1F3DD FE0F ; emoji style; # (7.0 🏝️ ) DESERT ISLAND
+1F3DE FE0E ; text style; # (7.0 🏞︎ ) NATIONAL PARK
+1F3DE FE0F ; emoji style; # (7.0 🏞️ ) NATIONAL PARK
+1F3DF FE0E ; text style; # (7.0 🏟︎ ) STADIUM
+1F3DF FE0F ; emoji style; # (7.0 🏟️ ) STADIUM
+1F3E0 FE0E ; text style; # (6.0 🏠︎ ) HOUSE BUILDING
+1F3E0 FE0F ; emoji style; # (6.0 🏠️ ) HOUSE BUILDING
+1F3ED FE0E ; text style; # (6.0 🏭︎ ) FACTORY
+1F3ED FE0F ; emoji style; # (6.0 🏭️ ) FACTORY
+1F3F3 FE0E ; text style; # (7.0 🏳︎ ) WAVING WHITE FLAG
+1F3F3 FE0F ; emoji style; # (7.0 🏳️ ) WAVING WHITE FLAG
+1F3F5 FE0E ; text style; # (7.0 🏵︎ ) ROSETTE
+1F3F5 FE0F ; emoji style; # (7.0 🏵️ ) ROSETTE
+1F3F7 FE0E ; text style; # (7.0 🏷︎ ) LABEL
+1F3F7 FE0F ; emoji style; # (7.0 🏷️ ) LABEL
+1F408 FE0E ; text style; # (6.0 🐈︎ ) CAT
+1F408 FE0F ; emoji style; # (6.0 🐈️ ) CAT
+1F415 FE0E ; text style; # (6.0 🐕︎ ) DOG
+1F415 FE0F ; emoji style; # (6.0 🐕️ ) DOG
+1F41F FE0E ; text style; # (6.0 🐟︎ ) FISH
+1F41F FE0F ; emoji style; # (6.0 🐟️ ) FISH
+1F426 FE0E ; text style; # (6.0 🐦︎ ) BIRD
+1F426 FE0F ; emoji style; # (6.0 🐦️ ) BIRD
+1F43F FE0E ; text style; # (7.0 🐿︎ ) CHIPMUNK
+1F43F FE0F ; emoji style; # (7.0 🐿️ ) CHIPMUNK
+1F441 FE0E ; text style; # (7.0 👁︎ ) EYE
+1F441 FE0F ; emoji style; # (7.0 👁️ ) EYE
+1F442 FE0E ; text style; # (6.0 👂︎ ) EAR
+1F442 FE0F ; emoji style; # (6.0 👂️ ) EAR
+1F446 FE0E ; text style; # (6.0 👆︎ ) WHITE UP POINTING BACKHAND INDEX
+1F446 FE0F ; emoji style; # (6.0 👆️ ) WHITE UP POINTING BACKHAND INDEX
+1F447 FE0E ; text style; # (6.0 👇︎ ) WHITE DOWN POINTING BACKHAND INDEX
+1F447 FE0F ; emoji style; # (6.0 👇️ ) WHITE DOWN POINTING BACKHAND INDEX
+1F448 FE0E ; text style; # (6.0 👈︎ ) WHITE LEFT POINTING BACKHAND INDEX
+1F448 FE0F ; emoji style; # (6.0 👈️ ) WHITE LEFT POINTING BACKHAND INDEX
+1F449 FE0E ; text style; # (6.0 👉︎ ) WHITE RIGHT POINTING BACKHAND INDEX
+1F449 FE0F ; emoji style; # (6.0 👉️ ) WHITE RIGHT POINTING BACKHAND INDEX
+1F44D FE0E ; text style; # (6.0 👍︎ ) THUMBS UP SIGN
+1F44D FE0F ; emoji style; # (6.0 👍️ ) THUMBS UP SIGN
+1F44E FE0E ; text style; # (6.0 👎︎ ) THUMBS DOWN SIGN
+1F44E FE0F ; emoji style; # (6.0 👎️ ) THUMBS DOWN SIGN
+1F453 FE0E ; text style; # (6.0 👓︎ ) EYEGLASSES
+1F453 FE0F ; emoji style; # (6.0 👓️ ) EYEGLASSES
+1F46A FE0E ; text style; # (6.0 👪︎ ) FAMILY
+1F46A FE0F ; emoji style; # (6.0 👪️ ) FAMILY
+1F47D FE0E ; text style; # (6.0 👽︎ ) EXTRATERRESTRIAL ALIEN
+1F47D FE0F ; emoji style; # (6.0 👽️ ) EXTRATERRESTRIAL ALIEN
+1F4A3 FE0E ; text style; # (6.0 💣︎ ) BOMB
+1F4A3 FE0F ; emoji style; # (6.0 💣️ ) BOMB
+1F4B0 FE0E ; text style; # (6.0 💰︎ ) MONEY BAG
+1F4B0 FE0F ; emoji style; # (6.0 💰️ ) MONEY BAG
+1F4B3 FE0E ; text style; # (6.0 💳︎ ) CREDIT CARD
+1F4B3 FE0F ; emoji style; # (6.0 💳️ ) CREDIT CARD
+1F4BB FE0E ; text style; # (6.0 💻︎ ) PERSONAL COMPUTER
+1F4BB FE0F ; emoji style; # (6.0 💻️ ) PERSONAL COMPUTER
+1F4BF FE0E ; text style; # (6.0 💿︎ ) OPTICAL DISC
+1F4BF FE0F ; emoji style; # (6.0 💿️ ) OPTICAL DISC
+1F4CB FE0E ; text style; # (6.0 📋︎ ) CLIPBOARD
+1F4CB FE0F ; emoji style; # (6.0 📋️ ) CLIPBOARD
+1F4DA FE0E ; text style; # (6.0 📚︎ ) BOOKS
+1F4DA FE0F ; emoji style; # (6.0 📚️ ) BOOKS
+1F4DF FE0E ; text style; # (6.0 📟︎ ) PAGER
+1F4DF FE0F ; emoji style; # (6.0 📟️ ) PAGER
+1F4E4 FE0E ; text style; # (6.0 📤︎ ) OUTBOX TRAY
+1F4E4 FE0F ; emoji style; # (6.0 📤️ ) OUTBOX TRAY
+1F4E5 FE0E ; text style; # (6.0 📥︎ ) INBOX TRAY
+1F4E5 FE0F ; emoji style; # (6.0 📥️ ) INBOX TRAY
+1F4E6 FE0E ; text style; # (6.0 📦︎ ) PACKAGE
+1F4E6 FE0F ; emoji style; # (6.0 📦️ ) PACKAGE
+1F4EA FE0E ; text style; # (6.0 📪︎ ) CLOSED MAILBOX WITH LOWERED FLAG
+1F4EA FE0F ; emoji style; # (6.0 📪️ ) CLOSED MAILBOX WITH LOWERED FLAG
+1F4EB FE0E ; text style; # (6.0 📫︎ ) CLOSED MAILBOX WITH RAISED FLAG
+1F4EB FE0F ; emoji style; # (6.0 📫️ ) CLOSED MAILBOX WITH RAISED FLAG
+1F4EC FE0E ; text style; # (6.0 📬︎ ) OPEN MAILBOX WITH RAISED FLAG
+1F4EC FE0F ; emoji style; # (6.0 📬️ ) OPEN MAILBOX WITH RAISED FLAG
+1F4ED FE0E ; text style; # (6.0 📭︎ ) OPEN MAILBOX WITH LOWERED FLAG
+1F4ED FE0F ; emoji style; # (6.0 📭️ ) OPEN MAILBOX WITH LOWERED FLAG
+1F4F7 FE0E ; text style; # (6.0 📷︎ ) CAMERA
+1F4F7 FE0F ; emoji style; # (6.0 📷️ ) CAMERA
+1F4F9 FE0E ; text style; # (6.0 📹︎ ) VIDEO CAMERA
+1F4F9 FE0F ; emoji style; # (6.0 📹️ ) VIDEO CAMERA
+1F4FA FE0E ; text style; # (6.0 📺︎ ) TELEVISION
+1F4FA FE0F ; emoji style; # (6.0 📺️ ) TELEVISION
+1F4FB FE0E ; text style; # (6.0 📻︎ ) RADIO
+1F4FB FE0F ; emoji style; # (6.0 📻️ ) RADIO
+1F4FD FE0E ; text style; # (7.0 📽︎ ) FILM PROJECTOR
+1F4FD FE0F ; emoji style; # (7.0 📽️ ) FILM PROJECTOR
+1F508 FE0E ; text style; # (6.0 🔈︎ ) SPEAKER
+1F508 FE0F ; emoji style; # (6.0 🔈️ ) SPEAKER
+1F50D FE0E ; text style; # (6.0 🔍︎ ) LEFT-POINTING MAGNIFYING GLASS
+1F50D FE0F ; emoji style; # (6.0 🔍️ ) LEFT-POINTING MAGNIFYING GLASS
+1F512 FE0E ; text style; # (6.0 🔒︎ ) LOCK
+1F512 FE0F ; emoji style; # (6.0 🔒️ ) LOCK
+1F513 FE0E ; text style; # (6.0 🔓︎ ) OPEN LOCK
+1F513 FE0F ; emoji style; # (6.0 🔓️ ) OPEN LOCK
+1F549 FE0E ; text style; # (7.0 🕉︎ ) OM SYMBOL
+1F549 FE0F ; emoji style; # (7.0 🕉️ ) OM SYMBOL
+1F54A FE0E ; text style; # (7.0 🕊︎ ) DOVE OF PEACE
+1F54A FE0F ; emoji style; # (7.0 🕊️ ) DOVE OF PEACE
+1F550 FE0E ; text style; # (6.0 🕐︎ ) CLOCK FACE ONE OCLOCK
+1F550 FE0F ; emoji style; # (6.0 🕐️ ) CLOCK FACE ONE OCLOCK
+1F551 FE0E ; text style; # (6.0 🕑︎ ) CLOCK FACE TWO OCLOCK
+1F551 FE0F ; emoji style; # (6.0 🕑️ ) CLOCK FACE TWO OCLOCK
+1F552 FE0E ; text style; # (6.0 🕒︎ ) CLOCK FACE THREE OCLOCK
+1F552 FE0F ; emoji style; # (6.0 🕒️ ) CLOCK FACE THREE OCLOCK
+1F553 FE0E ; text style; # (6.0 🕓︎ ) CLOCK FACE FOUR OCLOCK
+1F553 FE0F ; emoji style; # (6.0 🕓️ ) CLOCK FACE FOUR OCLOCK
+1F554 FE0E ; text style; # (6.0 🕔︎ ) CLOCK FACE FIVE OCLOCK
+1F554 FE0F ; emoji style; # (6.0 🕔️ ) CLOCK FACE FIVE OCLOCK
+1F555 FE0E ; text style; # (6.0 🕕︎ ) CLOCK FACE SIX OCLOCK
+1F555 FE0F ; emoji style; # (6.0 🕕️ ) CLOCK FACE SIX OCLOCK
+1F556 FE0E ; text style; # (6.0 🕖︎ ) CLOCK FACE SEVEN OCLOCK
+1F556 FE0F ; emoji style; # (6.0 🕖️ ) CLOCK FACE SEVEN OCLOCK
+1F557 FE0E ; text style; # (6.0 🕗︎ ) CLOCK FACE EIGHT OCLOCK
+1F557 FE0F ; emoji style; # (6.0 🕗️ ) CLOCK FACE EIGHT OCLOCK
+1F558 FE0E ; text style; # (6.0 🕘︎ ) CLOCK FACE NINE OCLOCK
+1F558 FE0F ; emoji style; # (6.0 🕘️ ) CLOCK FACE NINE OCLOCK
+1F559 FE0E ; text style; # (6.0 🕙︎ ) CLOCK FACE TEN OCLOCK
+1F559 FE0F ; emoji style; # (6.0 🕙️ ) CLOCK FACE TEN OCLOCK
+1F55A FE0E ; text style; # (6.0 🕚︎ ) CLOCK FACE ELEVEN OCLOCK
+1F55A FE0F ; emoji style; # (6.0 🕚️ ) CLOCK FACE ELEVEN OCLOCK
+1F55B FE0E ; text style; # (6.0 🕛︎ ) CLOCK FACE TWELVE OCLOCK
+1F55B FE0F ; emoji style; # (6.0 🕛️ ) CLOCK FACE TWELVE OCLOCK
+1F55C FE0E ; text style; # (6.0 🕜︎ ) CLOCK FACE ONE-THIRTY
+1F55C FE0F ; emoji style; # (6.0 🕜️ ) CLOCK FACE ONE-THIRTY
+1F55D FE0E ; text style; # (6.0 🕝︎ ) CLOCK FACE TWO-THIRTY
+1F55D FE0F ; emoji style; # (6.0 🕝️ ) CLOCK FACE TWO-THIRTY
+1F55E FE0E ; text style; # (6.0 🕞︎ ) CLOCK FACE THREE-THIRTY
+1F55E FE0F ; emoji style; # (6.0 🕞️ ) CLOCK FACE THREE-THIRTY
+1F55F FE0E ; text style; # (6.0 🕟︎ ) CLOCK FACE FOUR-THIRTY
+1F55F FE0F ; emoji style; # (6.0 🕟️ ) CLOCK FACE FOUR-THIRTY
+1F560 FE0E ; text style; # (6.0 🕠︎ ) CLOCK FACE FIVE-THIRTY
+1F560 FE0F ; emoji style; # (6.0 🕠️ ) CLOCK FACE FIVE-THIRTY
+1F561 FE0E ; text style; # (6.0 🕡︎ ) CLOCK FACE SIX-THIRTY
+1F561 FE0F ; emoji style; # (6.0 🕡️ ) CLOCK FACE SIX-THIRTY
+1F562 FE0E ; text style; # (6.0 🕢︎ ) CLOCK FACE SEVEN-THIRTY
+1F562 FE0F ; emoji style; # (6.0 🕢️ ) CLOCK FACE SEVEN-THIRTY
+1F563 FE0E ; text style; # (6.0 🕣︎ ) CLOCK FACE EIGHT-THIRTY
+1F563 FE0F ; emoji style; # (6.0 🕣️ ) CLOCK FACE EIGHT-THIRTY
+1F564 FE0E ; text style; # (6.0 🕤︎ ) CLOCK FACE NINE-THIRTY
+1F564 FE0F ; emoji style; # (6.0 🕤️ ) CLOCK FACE NINE-THIRTY
+1F565 FE0E ; text style; # (6.0 🕥︎ ) CLOCK FACE TEN-THIRTY
+1F565 FE0F ; emoji style; # (6.0 🕥️ ) CLOCK FACE TEN-THIRTY
+1F566 FE0E ; text style; # (6.0 🕦︎ ) CLOCK FACE ELEVEN-THIRTY
+1F566 FE0F ; emoji style; # (6.0 🕦️ ) CLOCK FACE ELEVEN-THIRTY
+1F567 FE0E ; text style; # (6.0 🕧︎ ) CLOCK FACE TWELVE-THIRTY
+1F567 FE0F ; emoji style; # (6.0 🕧️ ) CLOCK FACE TWELVE-THIRTY
+1F56F FE0E ; text style; # (7.0 🕯︎ ) CANDLE
+1F56F FE0F ; emoji style; # (7.0 🕯️ ) CANDLE
+1F570 FE0E ; text style; # (7.0 🕰︎ ) MANTELPIECE CLOCK
+1F570 FE0F ; emoji style; # (7.0 🕰️ ) MANTELPIECE CLOCK
+1F573 FE0E ; text style; # (7.0 🕳︎ ) HOLE
+1F573 FE0F ; emoji style; # (7.0 🕳️ ) HOLE
+1F574 FE0E ; text style; # (7.0 🕴︎ ) MAN IN BUSINESS SUIT LEVITATING
+1F574 FE0F ; emoji style; # (7.0 🕴️ ) MAN IN BUSINESS SUIT LEVITATING
+1F575 FE0E ; text style; # (7.0 🕵︎ ) SLEUTH OR SPY
+1F575 FE0F ; emoji style; # (7.0 🕵️ ) SLEUTH OR SPY
+1F576 FE0E ; text style; # (7.0 🕶︎ ) DARK SUNGLASSES
+1F576 FE0F ; emoji style; # (7.0 🕶️ ) DARK SUNGLASSES
+1F577 FE0E ; text style; # (7.0 🕷︎ ) SPIDER
+1F577 FE0F ; emoji style; # (7.0 🕷️ ) SPIDER
+1F578 FE0E ; text style; # (7.0 🕸︎ ) SPIDER WEB
+1F578 FE0F ; emoji style; # (7.0 🕸️ ) SPIDER WEB
+1F579 FE0E ; text style; # (7.0 🕹︎ ) JOYSTICK
+1F579 FE0F ; emoji style; # (7.0 🕹️ ) JOYSTICK
+1F587 FE0E ; text style; # (7.0 🖇︎ ) LINKED PAPERCLIPS
+1F587 FE0F ; emoji style; # (7.0 🖇️ ) LINKED PAPERCLIPS
+1F58A FE0E ; text style; # (7.0 🖊︎ ) LOWER LEFT BALLPOINT PEN
+1F58A FE0F ; emoji style; # (7.0 🖊️ ) LOWER LEFT BALLPOINT PEN
+1F58B FE0E ; text style; # (7.0 🖋︎ ) LOWER LEFT FOUNTAIN PEN
+1F58B FE0F ; emoji style; # (7.0 🖋️ ) LOWER LEFT FOUNTAIN PEN
+1F58C FE0E ; text style; # (7.0 🖌︎ ) LOWER LEFT PAINTBRUSH
+1F58C FE0F ; emoji style; # (7.0 🖌️ ) LOWER LEFT PAINTBRUSH
+1F58D FE0E ; text style; # (7.0 🖍︎ ) LOWER LEFT CRAYON
+1F58D FE0F ; emoji style; # (7.0 🖍️ ) LOWER LEFT CRAYON
+1F590 FE0E ; text style; # (7.0 🖐︎ ) RAISED HAND WITH FINGERS SPLAYED
+1F590 FE0F ; emoji style; # (7.0 🖐️ ) RAISED HAND WITH FINGERS SPLAYED
+1F5A5 FE0E ; text style; # (7.0 🖥︎ ) DESKTOP COMPUTER
+1F5A5 FE0F ; emoji style; # (7.0 🖥️ ) DESKTOP COMPUTER
+1F5A8 FE0E ; text style; # (7.0 🖨︎ ) PRINTER
+1F5A8 FE0F ; emoji style; # (7.0 🖨️ ) PRINTER
+1F5B1 FE0E ; text style; # (7.0 🖱︎ ) THREE BUTTON MOUSE
+1F5B1 FE0F ; emoji style; # (7.0 🖱️ ) THREE BUTTON MOUSE
+1F5B2 FE0E ; text style; # (7.0 🖲︎ ) TRACKBALL
+1F5B2 FE0F ; emoji style; # (7.0 🖲️ ) TRACKBALL
+1F5BC FE0E ; text style; # (7.0 🖼︎ ) FRAME WITH PICTURE
+1F5BC FE0F ; emoji style; # (7.0 🖼️ ) FRAME WITH PICTURE
+1F5C2 FE0E ; text style; # (7.0 🗂︎ ) CARD INDEX DIVIDERS
+1F5C2 FE0F ; emoji style; # (7.0 🗂️ ) CARD INDEX DIVIDERS
+1F5C3 FE0E ; text style; # (7.0 🗃︎ ) CARD FILE BOX
+1F5C3 FE0F ; emoji style; # (7.0 🗃️ ) CARD FILE BOX
+1F5C4 FE0E ; text style; # (7.0 🗄︎ ) FILE CABINET
+1F5C4 FE0F ; emoji style; # (7.0 🗄️ ) FILE CABINET
+1F5D1 FE0E ; text style; # (7.0 🗑︎ ) WASTEBASKET
+1F5D1 FE0F ; emoji style; # (7.0 🗑️ ) WASTEBASKET
+1F5D2 FE0E ; text style; # (7.0 🗒︎ ) SPIRAL NOTE PAD
+1F5D2 FE0F ; emoji style; # (7.0 🗒️ ) SPIRAL NOTE PAD
+1F5D3 FE0E ; text style; # (7.0 🗓︎ ) SPIRAL CALENDAR PAD
+1F5D3 FE0F ; emoji style; # (7.0 🗓️ ) SPIRAL CALENDAR PAD
+1F5DC FE0E ; text style; # (7.0 🗜︎ ) COMPRESSION
+1F5DC FE0F ; emoji style; # (7.0 🗜️ ) COMPRESSION
+1F5DD FE0E ; text style; # (7.0 🗝︎ ) OLD KEY
+1F5DD FE0F ; emoji style; # (7.0 🗝️ ) OLD KEY
+1F5DE FE0E ; text style; # (7.0 🗞︎ ) ROLLED-UP NEWSPAPER
+1F5DE FE0F ; emoji style; # (7.0 🗞️ ) ROLLED-UP NEWSPAPER
+1F5E1 FE0E ; text style; # (7.0 🗡︎ ) DAGGER KNIFE
+1F5E1 FE0F ; emoji style; # (7.0 🗡️ ) DAGGER KNIFE
+1F5E3 FE0E ; text style; # (7.0 🗣︎ ) SPEAKING HEAD IN SILHOUETTE
+1F5E3 FE0F ; emoji style; # (7.0 🗣️ ) SPEAKING HEAD IN SILHOUETTE
+1F5E8 FE0E ; text style; # (7.0 🗨︎ ) LEFT SPEECH BUBBLE
+1F5E8 FE0F ; emoji style; # (7.0 🗨️ ) LEFT SPEECH BUBBLE
+1F5EF FE0E ; text style; # (7.0 🗯︎ ) RIGHT ANGER BUBBLE
+1F5EF FE0F ; emoji style; # (7.0 🗯️ ) RIGHT ANGER BUBBLE
+1F5F3 FE0E ; text style; # (7.0 🗳︎ ) BALLOT BOX WITH BALLOT
+1F5F3 FE0F ; emoji style; # (7.0 🗳️ ) BALLOT BOX WITH BALLOT
+1F5FA FE0E ; text style; # (7.0 🗺︎ ) WORLD MAP
+1F5FA FE0F ; emoji style; # (7.0 🗺️ ) WORLD MAP
+1F610 FE0E ; text style; # (6.0 😐︎ ) NEUTRAL FACE
+1F610 FE0F ; emoji style; # (6.0 😐️ ) NEUTRAL FACE
+1F687 FE0E ; text style; # (6.0 🚇︎ ) METRO
+1F687 FE0F ; emoji style; # (6.0 🚇️ ) METRO
+1F68D FE0E ; text style; # (6.0 🚍︎ ) ONCOMING BUS
+1F68D FE0F ; emoji style; # (6.0 🚍️ ) ONCOMING BUS
+1F691 FE0E ; text style; # (6.0 🚑︎ ) AMBULANCE
+1F691 FE0F ; emoji style; # (6.0 🚑️ ) AMBULANCE
+1F694 FE0E ; text style; # (6.0 🚔︎ ) ONCOMING POLICE CAR
+1F694 FE0F ; emoji style; # (6.0 🚔️ ) ONCOMING POLICE CAR
+1F698 FE0E ; text style; # (6.0 🚘︎ ) ONCOMING AUTOMOBILE
+1F698 FE0F ; emoji style; # (6.0 🚘️ ) ONCOMING AUTOMOBILE
+1F6AD FE0E ; text style; # (6.0 🚭︎ ) NO SMOKING SYMBOL
+1F6AD FE0F ; emoji style; # (6.0 🚭️ ) NO SMOKING SYMBOL
+1F6B2 FE0E ; text style; # (6.0 🚲︎ ) BICYCLE
+1F6B2 FE0F ; emoji style; # (6.0 🚲️ ) BICYCLE
+1F6B9 FE0E ; text style; # (6.0 🚹︎ ) MENS SYMBOL
+1F6B9 FE0F ; emoji style; # (6.0 🚹️ ) MENS SYMBOL
+1F6BA FE0E ; text style; # (6.0 🚺︎ ) WOMENS SYMBOL
+1F6BA FE0F ; emoji style; # (6.0 🚺️ ) WOMENS SYMBOL
+1F6BC FE0E ; text style; # (6.0 🚼︎ ) BABY SYMBOL
+1F6BC FE0F ; emoji style; # (6.0 🚼️ ) BABY SYMBOL
+1F6CB FE0E ; text style; # (7.0 🛋︎ ) COUCH AND LAMP
+1F6CB FE0F ; emoji style; # (7.0 🛋️ ) COUCH AND LAMP
+1F6CD FE0E ; text style; # (7.0 🛍︎ ) SHOPPING BAGS
+1F6CD FE0F ; emoji style; # (7.0 🛍️ ) SHOPPING BAGS
+1F6CE FE0E ; text style; # (7.0 🛎︎ ) BELLHOP BELL
+1F6CE FE0F ; emoji style; # (7.0 🛎️ ) BELLHOP BELL
+1F6CF FE0E ; text style; # (7.0 🛏︎ ) BED
+1F6CF FE0F ; emoji style; # (7.0 🛏️ ) BED
+1F6E0 FE0E ; text style; # (7.0 🛠︎ ) HAMMER AND WRENCH
+1F6E0 FE0F ; emoji style; # (7.0 🛠️ ) HAMMER AND WRENCH
+1F6E1 FE0E ; text style; # (7.0 🛡︎ ) SHIELD
+1F6E1 FE0F ; emoji style; # (7.0 🛡️ ) SHIELD
+1F6E2 FE0E ; text style; # (7.0 🛢︎ ) OIL DRUM
+1F6E2 FE0F ; emoji style; # (7.0 🛢️ ) OIL DRUM
+1F6E3 FE0E ; text style; # (7.0 🛣︎ ) MOTORWAY
+1F6E3 FE0F ; emoji style; # (7.0 🛣️ ) MOTORWAY
+1F6E4 FE0E ; text style; # (7.0 🛤︎ ) RAILWAY TRACK
+1F6E4 FE0F ; emoji style; # (7.0 🛤️ ) RAILWAY TRACK
+1F6E5 FE0E ; text style; # (7.0 🛥︎ ) MOTOR BOAT
+1F6E5 FE0F ; emoji style; # (7.0 🛥️ ) MOTOR BOAT
+1F6E9 FE0E ; text style; # (7.0 🛩︎ ) SMALL AIRPLANE
+1F6E9 FE0F ; emoji style; # (7.0 🛩️ ) SMALL AIRPLANE
+1F6F0 FE0E ; text style; # (7.0 🛰︎ ) SATELLITE
+1F6F0 FE0F ; emoji style; # (7.0 🛰️ ) SATELLITE
+1F6F3 FE0E ; text style; # (7.0 🛳︎ ) PASSENGER SHIP
+1F6F3 FE0F ; emoji style; # (7.0 🛳️ ) PASSENGER SHIP
+
+#Total sequences: 354
+
+#EOF
diff --git a/admin/unidata/emoji-zwj.awk b/admin/unidata/emoji-zwj.awk
index 7d2ff6cb900..4b648aa675e 100644
--- a/admin/unidata/emoji-zwj.awk
+++ b/admin/unidata/emoji-zwj.awk
@@ -106,7 +106,8 @@ END {
for (elt in ch)
{
- printf("(#x%s .\n,(eval-when-compile (regexp-opt\n'(\n%s\n))))\n",
elt, vec[elt])
+ entries = vec[elt]
sprintf("\n\"\\N{U+%s}\\N{U+FE0E}\"\n\"\\N{U+%s}\\N{U+FE0F}\"", elt, elt)
+ printf("(#x%s .\n,(eval-when-compile (regexp-opt\n'(\n%s\n))))\n",
elt, entries)
}
print "))"
print " (set-char-table-range composition-function-table"
diff --git a/autogen.sh b/autogen.sh
index af4c2ad14df..6127e7b24f4 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -340,7 +340,8 @@ git_config diff.texinfo.xfuncname \
tailored_hooks=
sample_hooks=
-for hook in commit-msg pre-commit prepare-commit-msg; do
+for hook in commit-msg pre-commit prepare-commit-msg post-commit \
+ pre-push commit-msg-files.awk; do
cmp -- build-aux/git-hooks/$hook "$hooks/$hook" >/dev/null 2>&1 ||
tailored_hooks="$tailored_hooks $hook"
done
diff --git a/build-aux/git-hooks/commit-msg-files.awk
b/build-aux/git-hooks/commit-msg-files.awk
new file mode 100644
index 00000000000..5c9b70a5de5
--- /dev/null
+++ b/build-aux/git-hooks/commit-msg-files.awk
@@ -0,0 +1,128 @@
+# Check the file list of GNU Emacs change log entries for each commit SHA.
+
+# Copyright 2023 Free Software Foundation, Inc.
+
+# This file is part of GNU Emacs.
+
+# GNU Emacs is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+### Commentary:
+
+# This script accepts a list of (unabbreviated) Git commit SHAs, and
+# will then iterate over them to check that any files mentioned in the
+# commit message are actually present in the commit's diff. If not,
+# it will print out the incorrect file names and return 1.
+
+# You can also pass "-v reason=pre-push", which will add more-verbose
+# output, indicating the abbreviated commit SHA and first line of the
+# commit message for any improper commits.
+
+### Code:
+
+function get_commit_changes(commit_sha, changes, cmd, i, j, len, \
+ bits, filename) {
+ # Collect all the files touched in the specified commit.
+ cmd = ("git show --name-status --first-parent --format= " commit_sha)
+ while ((cmd | getline) > 0) {
+ for (i = 2; i <= NF; i++) {
+ len = split($i, bits, "/")
+ for (j = 1; j <= len; j++) {
+ if (j == 1)
+ filename = bits[j]
+ else
+ filename = filename "/" bits[j]
+ changes[filename] = 1
+ }
+ }
+ }
+ close(cmd)
+}
+
+function check_commit_msg_files(commit_sha, verbose, changes, good, \
+ cmd, msg, filenames_str, filenames, i) {
+ get_commit_changes(commit_sha, changes)
+ good = 1
+
+ cmd = ("git log -1 --format=%B " commit_sha)
+ while ((cmd | getline) > 0) {
+ if (verbose && ! msg)
+ msg = $0
+
+ # Find file entries in the commit message. We look at any line
+ # starting with "*" (possibly prefixed by "; ") followed by a ":",
+ # possibly on a different line. If we encounter a blank line
+ # without seeing a ":", then we don't treat that as a file entry.
+
+ # Accumulate the contents of a (possible) file entry.
+ if (/^[ \t]*$/)
+ filenames_str = ""
+ else if (/^(; )?\*[ \t]+[[:alnum:]]/)
+ filenames_str = $0
+ else if (filenames_str)
+ filenames_str = (filenames_str $0)
+
+ # We have a file entry; analyze it.
+ if (filenames_str && /:/) {
+ # Delete the leading "*" and any trailing information.
+ sub(/^(; )?\*[ \t]+/, "", filenames_str)
+ sub(/[ \t]*[[(<:].*$/, "", filenames_str)
+
+ # There might be multiple files listed in this entry, separated
+ # by spaces (and possibly a comma). Iterate over each of them.
+ split(filenames_str, filenames, ",[ \t]+")
+ for (i in filenames) {
+ # Remove trailing slashes from any directory entries.
+ sub(/\/$/, "", filenames[i])
+
+ if (length(filenames[i]) && ! (filenames[i] in changes)) {
+ if (good) {
+ # Print a header describing the error.
+ if (verbose)
+ printf("In commit %s \"%s\"...\n", substr(commit_sha, 1, 10),
msg)
+ printf("Files listed in commit message, but not in diff:\n")
+ }
+ printf(" %s\n", filenames[i])
+ good = 0
+ }
+ }
+
+ filenames_str = ""
+ }
+ }
+ close(cmd)
+
+ return good
+}
+
+BEGIN {
+ if (reason == "pre-push")
+ verbose = 1
+}
+
+/^[a-z0-9]{40}$/ {
+ if (! check_commit_msg_files($0, verbose)) {
+ status = 1
+ }
+}
+
+END {
+ if (status != 0) {
+ if (reason == "pre-push")
+ error_msg = "Push aborted"
+ else
+ error_msg = "Bad commit message"
+ printf("%s; please see the file 'CONTRIBUTE'\n", error_msg)
+ }
+ exit status
+}
diff --git a/build-aux/git-hooks/post-commit b/build-aux/git-hooks/post-commit
new file mode 100755
index 00000000000..e02fee48db4
--- /dev/null
+++ b/build-aux/git-hooks/post-commit
@@ -0,0 +1,47 @@
+#!/bin/sh
+# Check the file list of GNU Emacs change log entries after committing.
+
+# Copyright 2023 Free Software Foundation, Inc.
+
+# This file is part of GNU Emacs.
+
+# GNU Emacs is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+### Commentary:
+
+# This hook runs after a commit is finalized and checks that the files
+# mentioned in the commit message match the diff. We perform this in
+# the post-commit phase so that we can be sure we properly detect all
+# the files in the diff (this is difficult during the commit-msg hook,
+# since there's no cross-platform way to detect when a commit is being
+# amended).
+
+# However, since this is a post-commit hook, it's too late to error
+# out and abort the commit: it's already done! As a result, this hook
+# is purely advisory, and instead we error out when trying to push
+# (see "pre-push" in this directory).
+
+### Code:
+
+HOOKS_DIR=`dirname "$0"`
+
+# Prefer gawk if available, as it handles NUL bytes properly.
+if type gawk >/dev/null 2>&1; then
+ awk="gawk"
+else
+ awk="awk"
+fi
+
+git rev-parse HEAD | $awk -v reason=post-commit \
+ -f "$HOOKS_DIR"/commit-msg-files.awk
diff --git a/build-aux/git-hooks/pre-push b/build-aux/git-hooks/pre-push
new file mode 100755
index 00000000000..a342814c1e3
--- /dev/null
+++ b/build-aux/git-hooks/pre-push
@@ -0,0 +1,88 @@
+#!/bin/sh
+# Check the file list of GNU Emacs change log entries before pushing.
+
+# Copyright 2023 Free Software Foundation, Inc.
+
+# This file is part of GNU Emacs.
+
+# GNU Emacs is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+### Commentary:
+
+# This hook runs before pushing a series of commits and checks that
+# the files mentioned in each commit message match the diffs. This
+# helps ensure that the resulting change logs are correct, which
+# should prevent errors when generating etc/AUTHORS.
+
+# These checks also happen in the "post-commit" hook (which see), but
+# that hook can't abort a commit; it just advises the committer to fix
+# the commit so that this hook runs without errors.
+
+### Code:
+
+HOOKS_DIR=`dirname "$0"`
+
+# Prefer gawk if available, as it handles NUL bytes properly.
+if type gawk >/dev/null 2>&1; then
+ awk="gawk"
+else
+ awk="awk"
+fi
+
+# Standard input receives lines of the form:
+# <local ref> SP <local sha> SP <remote ref> SP <remote sha> LF
+$awk -v origin_name="$1" '
+ # If the local SHA is all zeroes, ignore it.
+ $2 ~ /^0{40}$/ {
+ next
+ }
+
+ # Check any lines with a valid local SHA and whose remote ref is
+ # master or an emacs-NN release branch. (We want to avoid checking
+ # feature or scratch branches here.)
+ $2 ~ /^[a-z0-9]{40}$/ && $3 ~ /^refs\/heads\/(master|emacs-[0-9]+)$/ {
+ newref = $2
+ # If the remote SHA is all zeroes, this is a new object to be
+ # pushed (likely a branch)...
+ if ($4 ~ /^0{40}$/) {
+ back = 0
+ # ... Go backwards until we find a SHA on an origin branch.
+ # Stop trying after 1000 commits, just in case...
+ for (back = 0; back < 1000; back++) {
+ cmd = ("git branch -r -l '\''" origin_name "/*'\''" \
+ " --contains " newref "~" back)
+ rv = (cmd | getline)
+ close(cmd)
+ if (rv > 0)
+ break;
+ }
+
+ cmd = ("git rev-parse " newref "~" back)
+ cmd | getline oldref
+ if (!(oldref ~ /^[a-z0-9]{40}$/)) {
+ # The SHA is misformatted! Skip this line.
+ next
+ }
+ close(cmd)
+ } else if ($4 ~ /^[a-z0-9]{40}$/) {
+ oldref = $4
+ } else {
+ # The SHA is misformatted! Skip this line.
+ next
+ }
+
+ # Print every SHA after oldref, up to (and including) newref.
+ system("git rev-list --first-parent --reverse " oldref ".." newref)
+ }
+' | $awk -v reason=pre-push -f "$HOOKS_DIR"/commit-msg-files.awk
diff --git a/configure.ac b/configure.ac
index b484ebdc8ba..d6592ded8ea 100644
--- a/configure.ac
+++ b/configure.ac
@@ -459,6 +459,7 @@ OPTION_DEFAULT_ON([sqlite3],[don't compile with sqlite3
support])
OPTION_DEFAULT_ON([lcms2],[don't compile with Little CMS support])
OPTION_DEFAULT_ON([libsystemd],[don't compile with libsystemd support])
OPTION_DEFAULT_ON([cairo],[don't compile with Cairo drawing])
+OPTION_DEFAULT_OFF([cairo-xcb], [use XCB surfaces for Cairo support])
OPTION_DEFAULT_ON([xml2],[don't compile with XML parsing support])
OPTION_DEFAULT_OFF([imagemagick],[compile with ImageMagick image support])
OPTION_DEFAULT_ON([native-image-api], [don't use native image APIs (GDI+ on
Windows)])
@@ -1001,7 +1002,7 @@ AC_ARG_ENABLE([gcc-warnings],
# however, if there is also a .tarball-version file it is probably
# just a release imported into Git for patch management.
gl_gcc_warnings=no
- if test -e "$srcdir"/.git && test ! -f "$srcdir"/.tarball-version; then
+ if test -d "$srcdir"/.git && test ! -f "$srcdir"/.tarball-version; then
# Clang typically identifies itself as GCC 4.2 or something similar
# even if it is recent enough to accept the warnings we enable.
AS_IF([test "$emacs_cv_clang" = yes],
@@ -1136,6 +1137,8 @@ AS_IF([test $gl_gcc_warnings = no],
gl_WARN_ADD([-Wno-unused-parameter]) # Too many warnings for now
gl_WARN_ADD([-Wno-format-nonliteral])
gl_WARN_ADD([-Wno-bidi-chars])
+ AS_IF([test $gl_gcc_warnings = yes],
+ [gl_WARN_ADD([-Wno-analyzer-fd-leak])]) # GCC bug 109839
# clang is unduly picky about some things.
if test "$emacs_cv_clang" = yes; then
@@ -1643,7 +1646,8 @@ case "$opsys" in
## Motif needs -lgen.
unixware) LIBS_SYSTEM="-lsocket -lnsl -lelf -lgen" ;;
- haiku) LIBS_SYSTEM="-lnetwork" ;;
+ # Haiku needs -lbsd for cfsetspeed.
+ haiku) LIBS_SYSTEM="-lnetwork -lbsd" ;;
esac
AC_SUBST([LIBS_SYSTEM])
@@ -2033,37 +2037,29 @@ if test "${with_ns}" != no; then
ns_appresdir=${ns_appdir}/Contents/Resources
ns_appsrc=Cocoa/Emacs.base
ns_fontfile=macfont.o
- elif flags=$( (gnustep-config --objc-flags) 2>/dev/null); then
+ elif flags=`(gnustep-config --objc-flags) 2>/dev/null`; then
NS_IMPL_GNUSTEP=yes
NS_GNUSTEP_CONFIG=yes
GNU_OBJC_CFLAGS="$flags"
- LIBS_GNUSTEP=$(gnustep-config --gui-libs) || exit
+ LIBS_GNUSTEP=`gnustep-config --gui-libs || exit`
elif test -f $GNUSTEP_CONFIG_FILE; then
NS_IMPL_GNUSTEP=yes
dnl FIXME sourcing this several times in subshells seems inefficient.
- GNUSTEP_SYSTEM_HEADERS=$(
- . $GNUSTEP_CONFIG_FILE
- AS_ECHO(["$GNUSTEP_SYSTEM_HEADERS"])
- )
- GNUSTEP_SYSTEM_LIBRARIES=$(
- . $GNUSTEP_CONFIG_FILE
- AS_ECHO(["$GNUSTEP_SYSTEM_LIBRARIES"])
- )
+ GNUSTEP_SYSTEM_HEADERS=`. $GNUSTEP_CONFIG_FILE \
+ && AS_ECHO(["$GNUSTEP_SYSTEM_HEADERS"])`
+ GNUSTEP_SYSTEM_LIBRARIES=` . $GNUSTEP_CONFIG_FILE \
+ && AS_ECHO(["$GNUSTEP_SYSTEM_LIBRARIES"])`
dnl I seemed to need these as well with GNUstep-startup 0.25.
- GNUSTEP_LOCAL_HEADERS=$(
- . $GNUSTEP_CONFIG_FILE
- AS_ECHO(["$GNUSTEP_LOCAL_HEADERS"])
- )
- GNUSTEP_LOCAL_LIBRARIES=$(
- . $GNUSTEP_CONFIG_FILE
- AS_ECHO(["$GNUSTEP_LOCAL_LIBRARIES"])
- )
+ GNUSTEP_LOCAL_HEADERS=`. $GNUSTEP_CONFIG_FILE \
+ && AS_ECHO(["$GNUSTEP_LOCAL_HEADERS"])`
+ GNUSTEP_LOCAL_LIBRARIES=`. $GNUSTEP_CONFIG_FILE \
+ && AS_ECHO(["$GNUSTEP_LOCAL_LIBRARIES"])`
test "x${GNUSTEP_LOCAL_HEADERS}" != "x" && \
GNUSTEP_LOCAL_HEADERS="-I${GNUSTEP_LOCAL_HEADERS}"
test "x${GNUSTEP_LOCAL_LIBRARIES}" != "x" && \
GNUSTEP_LOCAL_LIBRARIES="-L${GNUSTEP_LOCAL_LIBRARIES}"
- CPPFLAGS="$CPPFLAGS -I${GNUSTEP_SYSTEM_HEADERS} ${GNUSTEP_LOCAL_HEADERS}"
- CFLAGS="$CFLAGS -I${GNUSTEP_SYSTEM_HEADERS} ${GNUSTEP_LOCAL_HEADERS}"
+ CPPFLAGS="$CPPFLAGS -isystem ${GNUSTEP_SYSTEM_HEADERS}
${GNUSTEP_LOCAL_HEADERS}"
+ CFLAGS="$CFLAGS -isystem ${GNUSTEP_SYSTEM_HEADERS}
${GNUSTEP_LOCAL_HEADERS}"
LDFLAGS="$LDFLAGS -L${GNUSTEP_SYSTEM_LIBRARIES}
${GNUSTEP_LOCAL_LIBRARIES}"
LIBS_GNUSTEP="-lgnustep-gui -lgnustep-base -lobjc -lpthread"
dnl GNUstep defines BASE_NATIVE_OBJC_EXCEPTIONS to 0 or 1.
@@ -2776,6 +2772,25 @@ if test "${with_webp}" != "no"; then
WEBP_MODULE="libwebpdemux >= $WEBP_REQUIRED"
EMACS_CHECK_MODULES([WEBP], [$WEBP_MODULE])
+
+ # WebPGetInfo is sometimes not present inside libwebpdemux, so
+ # if it does not link, also check for libwebpdecoder.
+
+ OLD_CFLAGS=$CFLAGS
+ OLD_LIBS=$LIBS
+ CFLAGS="$CFLAGS $WEBP_CFLAGS"
+ LIBS="$LIBS $WEBP_LIBS"
+
+ AC_CHECK_FUNC([WebPGetInfo], [],
+ [WEBP_MODULE="$WEBP_MODULE libwebpdecoder >= $WEBP_REQUIRED"
+ HAVE_WEBP=no
+ AS_UNSET([WEBP_LIBS])
+ AS_UNSET([WEBP_CFLAGS])
+ EMACS_CHECK_MODULES([WEBP], [$WEBP_MODULE])])
+
+ CFLAGS=$OLD_CFLAGS
+ LIBS=$OLD_LIBS
+
AC_SUBST([WEBP_CFLAGS])
AC_SUBST([WEBP_LIBS])
fi
@@ -3557,14 +3572,14 @@ if test "${HAVE_X11}" = "yes"; then
CAIRO_MODULE="cairo >= $CAIRO_REQUIRED"
EMACS_CHECK_MODULES([CAIRO], [$CAIRO_MODULE])
if test $HAVE_CAIRO = yes; then
- CAIRO_XCB_MODULE="cairo-xcb >= $CAIRO_REQUIRED"
- EMACS_CHECK_MODULES([CAIRO_XCB], [$CAIRO_XCB_MODULE])
- if test $HAVE_CAIRO_XCB = yes; then
- CAIRO_CFLAGS="$CAIRO_CFLAGS $CAIRO_XCB_CFLAGS"
- CAIRO_LIBS="$CAIRO_LIBS $CAIRO_XCB_LIBS"
- AC_DEFINE([USE_CAIRO_XCB], [1],
- [Define to 1 if cairo XCB surfaces are available.])
- fi
+ AS_IF([test "x$with_cairo_xcb" = "xyes"], [
+ CAIRO_XCB_MODULE="cairo-xcb >= $CAIRO_REQUIRED"
+ EMACS_CHECK_MODULES([CAIRO_XCB], [$CAIRO_XCB_MODULE])
+ AS_IF([test "x$HAVE_CAIRO_XCB" = "xyes"], [
+ CAIRO_CFLAGS="$CAIRO_CFLAGS $CAIRO_XCB_CFLAGS"
+ CAIRO_LIBS="$CAIRO_LIBS $CAIRO_XCB_LIBS"
+ AC_DEFINE([USE_CAIRO_XCB], [1],
+ [Define to 1 if cairo XCB surfaces are available.])])])
AC_DEFINE([USE_CAIRO], [1], [Define to 1 if using cairo.])
CFLAGS="$CFLAGS $CAIRO_CFLAGS"
LIBS="$LIBS $CAIRO_LIBS"
@@ -3761,7 +3776,7 @@ if test "${HAVE_X11}" = "yes"; then
AC_DEFINE([HAVE_OTF_GET_VARIATION_GLYPHS], [1],
[Define to 1 if libotf has OTF_get_variation_glyphs.])
fi
- if ! $PKG_CONFIG --atleast-version=0.9.16 libotf; then
+ if $PKG_CONFIG --atleast-version=0.9.16 libotf; then :; else
AC_DEFINE([HAVE_OTF_KANNADA_BUG], [1],
[Define to 1 if libotf is affected by https://debbugs.gnu.org/28110.])
fi
@@ -3869,7 +3884,7 @@ if test "${HAVE_BE_APP}" = "yes"; then
AC_DEFINE([HAVE_OTF_GET_VARIATION_GLYPHS], [1],
[Define to 1 if libotf has OTF_get_variation_glyphs.])
fi
- if ! $PKG_CONFIG --atleast-version=0.9.16 libotf; then
+ if $PKG_CONFIG --atleast-version=0.9.16 libotf; then :; else
AC_DEFINE([HAVE_OTF_KANNADA_BUG], [1],
[Define to 1 if libotf is affected by https://debbugs.gnu.org/28110.])
fi
@@ -4187,7 +4202,7 @@ module_env_snippet_27="$srcdir/src/module-env-27.h"
module_env_snippet_28="$srcdir/src/module-env-28.h"
module_env_snippet_29="$srcdir/src/module-env-29.h"
module_env_snippet_30="$srcdir/src/module-env-30.h"
-emacs_major_version="${PACKAGE_VERSION%%.*}"
+emacs_major_version=`AS_ECHO([$PACKAGE_VERSION]) | sed 's/[[.]].*//'`
AC_SUBST([emacs_major_version])
### Emacs Lisp native compiler support
@@ -4270,8 +4285,8 @@ If you really want to try it anyway, use the configure
option
fi
if test "${with_native_compilation}" != "no"; then
- if test "${HAVE_PDUMPER}" = no; then
- AC_MSG_ERROR(['--with-native-compilation' requires
'--with-dumping=pdumper'])
+ if test "$with_unexec" = yes; then
+ AC_MSG_ERROR(['--with-native-compilation' is not compatible with
unexec])
fi
if test "${HAVE_ZLIB}" = no; then
AC_MSG_ERROR(['--with-native-compilation' requires zlib])
@@ -4297,14 +4312,16 @@ if test "${with_native_compilation}" != "no"; then
# available. (We filter out the gcc4 packages, because they
# don't support jit, and they have names like "gcc49" that
# sort later than "gcc11".)
- PORT_PACKAGE=$(port installed active | grep '^ *gcc@<:@0-9@:>@* ' | \
+ PORT_PACKAGE=`port installed active | grep '^ *gcc@<:@0-9@:>@* ' | \
awk '{ print $1; }' | grep -v 'gcc4@<:@0-9@:>@' | \
- sort -V | tail -n 1)
+ sort -V | tail -n 1`
if test -n "$PORT_PACKAGE"; then
- MAC_CFLAGS="-I$(dirname $(port contents $PORT_PACKAGE | \
- grep libgccjit.h))"
- MAC_LIBS="-L$(dirname $(port contents $PORT_PACKAGE | \
- grep libgccjit.dylib))"
+ emacs_val=`port contents $PORT_PACKAGE | grep libgccjit.h`
+ emacs_val=`dirname $emacs_val`
+ MAC_CFLAGS="-I$emacs_val"
+ emacs_val=`port contents $PORT_PACKAGE | grep libgccjit.dylib`
+ emacs_val=`dirname $emacs_val`
+ MAC_LIBS="-L$emacs_val"
fi
fi
@@ -5395,29 +5412,21 @@ if test "${emacs_cv_links_glib}" = "yes"; then
fi
AC_SUBST([XGSELOBJ])
-dnl Adapted from Haible's version.
-AC_CACHE_CHECK([for nl_langinfo and CODESET], [emacs_cv_langinfo_codeset],
- [AC_LINK_IFELSE([AC_LANG_PROGRAM([[#include <langinfo.h>]],
- [[char *cs = nl_langinfo(CODESET);]])],
- [emacs_cv_langinfo_codeset=yes],
- [emacs_cv_langinfo_codeset=no])
- ])
-if test "$emacs_cv_langinfo_codeset" = yes; then
- AC_DEFINE([HAVE_LANGINFO_CODESET], [1],
- [Define if you have <langinfo.h> and nl_langinfo (CODESET).])
-
- AC_CACHE_CHECK([for nl_langinfo and _NL_PAPER_WIDTH],
- [emacs_cv_langinfo__nl_paper_width],
- [AC_LINK_IFELSE([AC_LANG_PROGRAM([[#include <langinfo.h>]],
- [[char *cs = nl_langinfo (_NL_PAPER_WIDTH);]])],
- [emacs_cv_langinfo__nl_paper_width=yes],
- [emacs_cv_langinfo__nl_paper_width=no])
- ])
- if test "$emacs_cv_langinfo__nl_paper_width" = yes; then
- AC_DEFINE([HAVE_LANGINFO__NL_PAPER_WIDTH], [1],
- [Define if you have <langinfo.h> and nl_langinfo (_NL_PAPER_WIDTH).])
- fi
-fi
+AC_DEFUN([EMACS_PAPER_WIDTH],
+ [AC_REQUIRE([AM_LANGINFO_CODESET])
+ AS_IF([test "$am_cv_langinfo_codeset" = yes],
+ [AC_CACHE_CHECK([for nl_langinfo and _NL_PAPER_WIDTH],
+ [emacs_cv_langinfo__nl_paper_width],
+ [AC_LINK_IFELSE([AC_LANG_PROGRAM([[#include <langinfo.h>]],
+ [[char *cs = nl_langinfo (_NL_PAPER_WIDTH);]])],
+ [emacs_cv_langinfo__nl_paper_width=yes],
+ [emacs_cv_langinfo__nl_paper_width=no])
+ ])
+ AS_IF([test "$emacs_cv_langinfo__nl_paper_width" = yes],
+ [AC_DEFINE([HAVE_LANGINFO__NL_PAPER_WIDTH], [1],
+ [Define if you have <langinfo.h>
+ and nl_langinfo (_NL_PAPER_WIDTH).])])])])
+EMACS_PAPER_WIDTH
AC_TYPE_MBSTATE_T
@@ -5602,7 +5611,7 @@ case $opsys in
esac
case $opsys in
- gnu-* | solaris )
+ gnu-* | solaris | cygwin )
dnl FIXME Can't we test if this exists (eg /proc/$$)?
AC_DEFINE([HAVE_PROCFS], [1], [Define if you have the /proc filesystem.])
;;
diff --git a/doc/emacs/custom.texi b/doc/emacs/custom.texi
index ee818a74b57..d8221f51425 100644
--- a/doc/emacs/custom.texi
+++ b/doc/emacs/custom.texi
@@ -1245,6 +1245,7 @@ Manual}.
These four keywords are not really variables; setting them in any
other context has no special meaning.
+@cindex fallback modes
If you're editing a file across Emacs versions, and a new mode has
been introduced to handle a file in a newer Emacs version, you can use
several @code{mode} entries to use the new mode (called
@@ -1327,6 +1328,15 @@ pairs in the file, by typing @kbd{i} at the confirmation
prompt --
these pairs will thereafter be ignored in this file and in all other
files.
+ When Emacs asks for confirmation for setting directory-local
+variables (@pxref{Directory Variables}), typing @kbd{+} at the
+confirmation prompt will set all the variables, and also add the
+directory to the list in @code{safe-local-variable-directories}
+(described below), which will cause Emacs to consider this directory
+as safe for loading any directory-local variables in the future. The
+@kbd{+} response should only be used for directories whose contents
+you trust.
+
@vindex safe-local-variable-values
@vindex ignored-local-variable-values
@cindex risky variable
@@ -1343,6 +1353,16 @@ record safe values for risky variables, do it directly
by customizing
Similarly, if you want to record values of risky variables that should
be permanently ignored, customize @code{ignored-local-variable-values}.
+@vindex safe-local-variable-directories
+ Sometimes it is helpful to always trust directory-variables in
+certain directories, and skip the confirmation prompt when local
+variables are loaded from those directories, even if the variables are
+risky. The variable @code{safe-local-variable-directories} holds the
+list of such directories. The names of the directories in this list
+must be full absolute file names. If the variable
+@code{enable-remote-dir-locals} has a non-@code{nil} value, the list
+can include remote directories as well (@pxref{Remote Files}).
+
@vindex enable-local-variables
The variable @code{enable-local-variables} allows you to change the
way Emacs processes local variables. Its default value is @code{t},
diff --git a/doc/emacs/display.texi b/doc/emacs/display.texi
index 7ec843180b8..fa8ca4cbf17 100644
--- a/doc/emacs/display.texi
+++ b/doc/emacs/display.texi
@@ -127,7 +127,10 @@ command leaves point in the window. This variable affects
all the
scroll commands documented in this section, as well as scrolling with
the mouse wheel (@pxref{Mouse Commands}); in general, it affects any
command that has a non-@code{nil} @code{scroll-command} property.
-@xref{Property Lists,,, elisp, The Emacs Lisp Reference Manual}.
+@xref{Property Lists,,, elisp, The Emacs Lisp Reference Manual}. The
+same property also causes Emacs not to exit incremental search when
+one of these commands is invoked and @code{isearch-allow-scroll} is
+non-@code{nil} (@pxref{Not Exiting Isearch}).
@vindex fast-but-imprecise-scrolling
Sometimes, particularly when you hold down keys such as @kbd{C-v}
@@ -154,7 +157,7 @@ the buffer will be momentarily unfontified.
@vindex redisplay-skip-fontification-on-input
Finally, a third alternative to these variables is
@code{redisplay-skip-fontification-on-input}. If this variable is
-non-@code{nil}, skip some fontifications is there's input pending.
+non-@code{nil}, skip some fontifications if there's input pending.
This usually does not affect the display because redisplay is
completely skipped anyway if input was pending, but it can make
scrolling smoother by avoiding unnecessary fontification.
diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi
index a9ae4696a06..74315a05bbd 100644
--- a/doc/emacs/files.texi
+++ b/doc/emacs/files.texi
@@ -2289,10 +2289,15 @@ behavior by using the options @code{image-auto-resize}
and
@code{image-auto-resize-on-window-resize}.
@findex image-transform-fit-to-window
+@kindex s w (Image mode)
@findex image-transform-set-percent
+@kindex s p (Image mode)
@findex image-transform-set-scale
+@kindex s s (Image mode)
@findex image-transform-reset-to-initial
+@kindex s 0 (Image mode)
@findex image-transform-reset-to-original
+@kindex s o (Image mode)
To resize the image manually you can use the command
@code{image-transform-fit-to-window} bound to @kbd{s w} that fits the
image to both the window height and width. To scale the image to a
@@ -2353,6 +2358,94 @@ frames at once. You can go to a specific frame with
@kbd{F}
(@code{image-reverse-speed}) reverses it. The command @kbd{a 0}
(@code{image-reset-speed}) resets the speed to the original value.
+In addition to the above key bindings, which are specific to Image
+mode, images shown in any Emacs buffer have special key bindings when
+point is at or inside the image:
+
+@table @kbd
+@cindex resize images
+@cindex image resize
+@findex image-increase-size
+@kindex i + (Image mode)
+@item i +
+Increase the image size (@code{image-increase-size}) by 20%. Prefix
+numeric argument controls the increment; the value of @var{n} means to
+multiply the size by the factor of @w{@code{1 + @var{n} / 10}}, so
+@w{@kbd{C-u 5 i +}} means to increase the size by 50%.
+
+@findex image-decrease-size
+@kindex i - (Image mode)
+@item i -
+Decrease the image size (@code{image-increase-size}) by 20%. Prefix
+numeric argument controls the decrement; the value of @var{n} means to
+multiply the size by the factor of @w{@code{1 - @var{n} / 10}}, so
+@w{@kbd{C-u 3 i -}} means to decrease the size by 30%.
+
+@cindex rotating images
+@cindex image rotation
+@findex image-rotate
+@kindex i r (Image mode)
+@item i r
+Rotate the image by 90 degrees clockwise (@code{image-rotate}).
+With the prefix argument, rotate by 90 degrees counter-clockwise instead.
+Note that this command is not available for sliced images.
+
+@findex image-flip-horizontally
+@kindex i h (Image mode)
+@item i h
+Flip the image horizontally (@code{image-flip-horizontally}). This
+presents the image as if reflected in a vertical mirror.
+Note that this command is not available for sliced images.
+
+@findex image-flip-vertically
+@kindex i v (Image mode)
+@item i v
+Flip the image vertically (@code{image-flip-vertically}). This
+presents the image as if reflected in a horizontal mirror.
+Note that this command is not available for sliced images.
+
+@findex image-save
+@kindex i o (Image mode)
+@item i o
+Save the image to a file (@code{image-save}). This command prompts
+you for the name of the file to save the image.
+
+@cindex cropping images
+@vindex image-crop-crop-command
+@findex image-crop
+@kindex i c (Image mode)
+@item i c
+Crop the image (@code{image-crop}). This command is available only if
+your system has an external program installed that can be used for
+cropping and cutting of images; the user option
+@code{image-crop-crop-command} determines what program to use, and
+defaults to the ImageMagick's @command{convert} program. The command
+displays the image with a rectangular frame superimposed on it, and
+lets you use the mouse to move and resize the frame. Type @kbd{m} to
+cause mouse movements to move the frame instead of resizing it; type
+@kbd{s} to move a square frame instead. When you are satisfied with
+the position and size of the cropping frame, type @kbd{@key{RET}} to
+actually crop the part under the frame; or type @kbd{q} to exit
+without cropping. You can then save the cropped image using @w{@kbd{i
+o}} or @w{@kbd{M-x image-save}}.
+
+@findex image-cut
+@kindex i x (Image mode)
+@vindex image-cut-color
+@vindex image-crop-cut-command
+@item i x
+Cut a rectangle from the image (@code{image-cut}). This works the
+same as @code{image-crop} (and also requires an external program,
+defined by the variable @code{image-crop-cut-command}, to perform the
+image cut), but instead of cropping the image, it removes the part
+inside the frame and fills that part with the color specified by
+@code{image-cut-color}. With prefix argument, the command prompts for
+the color to use.
+@end table
+
+The size and rotation commands are ``repeating'', which means that you
+can continue adjusting the image without using the @kbd{i} prefix.
+
@cindex ImageMagick support
@vindex imagemagick-enabled-types
@vindex imagemagick-types-inhibit
diff --git a/doc/emacs/help.texi b/doc/emacs/help.texi
index 2513e6be271..945e12a05d2 100644
--- a/doc/emacs/help.texi
+++ b/doc/emacs/help.texi
@@ -317,6 +317,16 @@ by using the @kbd{M-x shortdoc} command. This will prompt
you for an
area of interest, e.g., @code{string}, and pop you to a buffer where
many of the functions relevant for handling strings are listed.
+You can also request that documentation of functions and commands
+shown in @file{*Help*} buffers popped by @kbd{C-h f} includes examples
+of their use. To that end, add the following to your initialization
+file (@pxref{Init File}):
+
+@example
+(add-hook 'help-fns-describe-function-functions
+ #'shortdoc-help-fns-examples-function)
+@end example
+
@kindex C-h v
@findex describe-variable
@kbd{C-h v} (@code{describe-variable}) is like @kbd{C-h f} but
diff --git a/doc/emacs/macos.texi b/doc/emacs/macos.texi
index 6b9ae196704..9f2c4721cab 100644
--- a/doc/emacs/macos.texi
+++ b/doc/emacs/macos.texi
@@ -201,13 +201,6 @@ Setting a lower number makes the trackpad more sensitive,
and a higher
number makes the trackpad less sensitive.
@end table
-@subsection Font Panel
-
-@findex ns-popup-font-panel
-The standard Mac / GNUstep font panel is accessible with @kbd{M-x
-ns-popup-font-panel} and will set the default font in the frame most
-recently used or clicked on.
-
@c To make the setting permanent, use @samp{Save Options} in the
@c Options menu, or run @code{menu-bar-options-save}.
diff --git a/doc/emacs/maintaining.texi b/doc/emacs/maintaining.texi
index f5bbc4d65c0..246e335cfe7 100644
--- a/doc/emacs/maintaining.texi
+++ b/doc/emacs/maintaining.texi
@@ -999,6 +999,10 @@ Display the change history for the current fileset
Display the change history for the current repository
(@code{vc-print-root-log}).
+@item C-x v b l
+Display the change history for another branch
+(@code{vc-print-branch-log}).
+
@item C-x v I
Display the changes that a ``pull'' operation will retrieve
(@code{vc-log-incoming}).
@@ -1063,6 +1067,14 @@ showing only the first line of each log entry. However,
you can type
@file{*vc-change-log*} buffer to reveal the entire log entry for the
revision at point. A second @key{RET} hides it again.
+@kindex C-x v b l
+@findex vc-print-branch-log
+ @kbd{C-x v b l @var{branch-name} @key{RET}} (@code{vc-print-branch-log})
+displays a @file{*vc-change-log*} buffer showing the history of the
+version-controlled directory tree, like @code{vc-print-root-log} does,
+but it shows the history of a branch other than the current one; it
+prompts for the branch whose history to display.
+
@kindex C-x v I
@kindex C-x v O
@findex vc-log-incoming
@@ -1523,6 +1535,8 @@ switch to another branch using the @kbd{svn switch}
command. With
Mercurial, command @kbd{hg update} is used to switch to another
branch.
+@kindex C-x v b s
+@findex vc-switch-branch
The VC command to switch to another branch in the current directory
is @kbd{C-x v b s @var{branch-name} @key{RET}} (@code{vc-switch-branch}).
@@ -1673,9 +1687,12 @@ branch ID for a branch starting at the current revision.
For example,
if the current revision is 2.5, the branch ID should be 2.5.1, 2.5.2,
and so on, depending on the number of existing branches at that point.
+@kindex C-x v b c
+@findex vc-create-branch
This procedure will not work for distributed version control systems
like git or Mercurial. For those systems you should use the command
-@code{vc-create-branch} (@kbd{C-x v b c}) instead.
+@code{vc-create-branch} (@w{@kbd{C-x v b c @var{branch-name} @key{RET}}})
+instead.
To create a new branch at an older revision (one that is no longer
the head of a branch), first select that revision (@pxref{Switching
@@ -2283,16 +2300,25 @@ buffer, but doesn't select any of them.
@kindex M-,
@findex xref-go-back
- To go back to places @emph{from where} you've displayed the definition,
-use @kbd{M-,} (@code{xref-go-back}). It jumps back to the
+ To go back to places @emph{from where} you've displayed the
+definition, use @kbd{M-,} (@code{xref-go-back}). It jumps back to the
point of the last invocation of @kbd{M-.}. Thus you can find and
examine the definition of something with @kbd{M-.} and then return to
-where you were with @kbd{M-,}.
+where you were with @kbd{M-,}. @kbd{M-,} allows you to retrace the
+steps you made forward in the history of places, all the way to the
+first place in history, where you first invoked @kbd{M-.}, or to any
+place in-between.
@kindex C-M-,
@findex xref-go-forward
- If you previously went back too far with @kbd{M-,}, @kbd{C-M-,}
-(@code{xref-go-forward}) can be used to go forward again.
+ If you previously went back too far with @kbd{M-,}, or want to
+re-examine a place from which you went back, you can use @kbd{C-M-,}
+(@code{xref-go-forward}) to go forward again. This is similar to
+using @kbd{M-.}, except that you don't need on each step to move point
+to the identifier whose definition you want to look up. @kbd{C-M-,}
+allows you to retrace all the steps you made back in the history of
+places, all the way to the last place in history, where you invoked
+@kbd{M-,}, or to any place in-between.
@findex xref-etags-mode
Some major modes install @code{xref} support facilities that might
diff --git a/doc/emacs/mini.texi b/doc/emacs/mini.texi
index 898d9e904f6..d380ba7ef4b 100644
--- a/doc/emacs/mini.texi
+++ b/doc/emacs/mini.texi
@@ -313,19 +313,27 @@ may be defined in your Emacs session. For example, if a
command
called @code{authorize-me} was defined, Emacs could only complete
as far as @samp{aut}.)
- If you type @key{TAB} again immediately, it cannot determine the
-next character; it could be @samp{-}, @samp{a}, or @samp{c}. So it
-does not add any characters; instead, @key{TAB} displays a list of all
-possible completions in another window.
+ If you type @kbd{@key{TAB}} again immediately, it cannot determine
+the next character; it could be @samp{-}, @samp{a}, or @samp{c}. So
+it does not add any characters; instead, @key{TAB} displays a list of
+all possible completions in another window.
Next, type @kbd{-f}. The minibuffer now contains @samp{auto-f}, and
the only command name that starts with this is @code{auto-fill-mode}.
-If you now type @key{TAB}, completion fills in the rest of the
+If you now type @kbd{@key{TAB}}, completion fills in the rest of the
argument @samp{auto-fill-mode} into the minibuffer.
Hence, typing just @kbd{a u @key{TAB} - f @key{TAB}} allows you to
enter @samp{auto-fill-mode}.
+ @key{TAB} also works while point is not at the end of the
+minibuffer. In that case, it will fill in text both at point and at
+the end of the minibuffer. If you type @kbd{M-x autocm}, then press
+@kbd{C-b} to move point before the @samp{m}, you can type
+@kbd{@key{TAB}} to insert the text @samp{onf-} at point and @samp{ode}
+at the end of the minibuffer, so that the minibuffer contains
+@samp{autoconf-mode}.
+
@node Completion Commands
@subsection Completion Commands
diff --git a/doc/emacs/mule.texi b/doc/emacs/mule.texi
index 3b98a93c5aa..3a4ff5baccf 100644
--- a/doc/emacs/mule.texi
+++ b/doc/emacs/mule.texi
@@ -515,9 +515,9 @@ one of them selects that alternative. The keys @kbd{C-f},
@kbd{C-b},
do the highlighting in the buffer showing the possible characters,
rather than in the echo area.
- To enter characters according to the @dfn{pīnyīn} transliteration
+ To enter characters according to the @dfn{p@=iny@=in} transliteration
method instead, use the @code{chinese-sisheng} input method. This is
-a composition based method, where e.g. @kbd{pi1} results in @samp{pī}.
+a composition based method, where e.g. @kbd{pi1} results in @samp{p@=i}.
In Japanese input methods, first you input a whole word using
phonetic spelling; then, after the word is in the buffer, Emacs
diff --git a/doc/emacs/package.texi b/doc/emacs/package.texi
index d993b7b071f..f1f88ac7f58 100644
--- a/doc/emacs/package.texi
+++ b/doc/emacs/package.texi
@@ -160,7 +160,13 @@ current line by an @kbd{i} or @kbd{d} command
Mark all package with a newer available version for upgrading
(@code{package-menu-mark-upgrades}). This places an installation mark
on the new available versions, and a deletion mark on the old
-installed versions (marked with status @samp{obsolete}).
+installed versions (marked with status @samp{obsolete}). By default,
+this won't mark built-in packages for which a newer version is
+available, but customizing @code{package-install-upgrade-built-in} can
+change that. @xref{Package Installation}. If you customize
+@code{package-install-upgrade-built-in} to a non-@code{nil} value, be
+sure to review all the built-in packages the @kbd{U} command marks, to
+avoid updating built-in packages you don't want to overwrite.
@item x
@kindex x @r{(Package Menu)}
@@ -201,7 +207,8 @@ from lower-priority archives
(@code{package-menu-toggle-hiding}).
@findex package-menu-filter-by-archive
Filter package list by archive (@code{package-menu-filter-by-archive}).
This prompts for a package archive (e.g., @samp{gnu}), then shows only
-packages from that archive.
+packages from that archive. You can specify several archives by
+typing their names separated by commas.
@item / d
@kindex / d @r{(Package Menu)}
@@ -216,7 +223,8 @@ matching that regexp.
@findex package-menu-filter-by-keyword
Filter package list by keyword (@code{package-menu-filter-by-keyword}).
This prompts for a keyword (e.g., @samp{games}), then shows only
-packages with that keyword.
+packages with that keyword. You can specify several keywords by
+typing them separated by commas.
@item / N
@kindex / N @r{(Package Menu)}
@@ -237,16 +245,19 @@ with names matching that regexp.
@kindex / s @r{(Package Menu)}
@findex package-menu-filter-by-status
Filter package list by status (@code{package-menu-filter-by-status}).
-This prompts for one or more statuses (e.g., @samp{available}), then
-shows only packages with matching status.
+This prompts for one or more statuses (e.g., @samp{available},
+@pxref{Package Statuses}), then shows only packages with matching
+status. You can specify several status values by typing them
+separated by commas.
@item / v
@kindex / v @r{(Package Menu)}
@findex package-menu-filter-by-version
Filter package list by version (@code{package-menu-filter-by-version}).
-This prompts first for one of the qualifiers @samp{<}, @samp{>} or
-@samp{=}, and then a package version, and shows packages that has a
-lower, equal or higher version than the one specified.
+This prompts first for one of the comparison symbols @samp{<},
+@samp{>} or @samp{=} and for a version string, and then shows packages
+whose versions are correspondingly lower, equal or higher than the
+version you typed.
@item / m
@kindex / m @r{(Package Menu)}
@@ -258,7 +269,11 @@ This shows only the packages that have been marked to be
installed or deleted.
@kindex / u @r{(Package Menu)}
@findex package-menu-filter-upgradable
Filter package list to show only packages for which there are
-available upgrades (@code{package-menu-filter-upgradable}).
+available upgrades (@code{package-menu-filter-upgradable}). By
+default, this filter excludes the built-in packages for which a newer
+version is available, but customizing
+@code{package-install-upgrade-built-in} can change that.
+@xref{Package Installation}.
@item / /
@kindex / / @r{(Package Menu)}
@@ -286,9 +301,12 @@ the package archive.
The package is available for installation, but a newer version is also
available. Packages with this status are hidden by default.
+@cindex built-in package
@item built-in
The package is included in Emacs by default. It cannot be deleted
-through the package menu, and is not considered for upgrading.
+through the package menu, and by default is not considered for
+upgrading (but you can change that by customizing
+@code{package-install-upgrade-built-in}, @pxref{Package Installation}).
@item dependency
The package was installed automatically to satisfy a dependency of
@@ -329,15 +347,46 @@ version of the package, a newer version is also installed.
@section Package Installation
@findex package-install
-@findex package-update
-@findex package-update-all
+@findex package-upgrade
+@findex package-upgrade-all
Packages are most conveniently installed using the package menu
(@pxref{Package Menu}), but you can also use the command @kbd{M-x
package-install}. This prompts for the name of a package with the
@samp{available} status, then downloads and installs it. Similarly,
-if you want to update a package, you can use the @kbd{M-x
-package-update} command, and if you just want to update all the
-packages, you can use the @kbd{M-x package-update-all} command.
+if you want to upgrade a package, you can use the @kbd{M-x
+package-upgrade} command, and if you want to upgrade all the packages,
+you can use the @kbd{M-x package-upgrade-all} command.
+
+@vindex package-install-upgrade-built-in
+ By default, @code{package-install} doesn't consider built-in
+packages for which new versions are available from the archives. (A
+package is built-in if it is included in the Emacs distribution.) In
+particular, it will not show built-in packages in the list of
+completion candidates when you type at its prompt. But if you invoke
+@code{package-install} with a prefix argument, it will also consider
+built-in packages that can be upgraded. You can make this behavior
+the default by customizing the variable
+@code{package-install-upgrade-built-in}: if its value is
+non-@code{nil}, @code{package-install} will consider built-in packages
+even when invoked without a prefix argument. Note that the
+package-menu commands (@pxref{Package Menu}) are also affected by
+@code{package-install-upgrade-built-in}.
+
+ By contrast, @code{package-upgrade} and @code{package-upgrade-all}
+never consider built-in packages. If you want to use these commands
+for upgrading some built-in packages, you need to upgrade each of
+those packages, once, either via @kbd{C-u M-x package-install
+@key{RET}}, or by customizing @code{package-install-upgrade-built-in}
+to a non-@code{nil} value, and then upgrading the package once via the
+package menu or by @code{package-install}.
+
+ If you customize @code{package-install-upgrade-built-in} to a
+non-@code{nil} value, be very careful when using commands that update
+many packages at once, like @code{package-upgrade-all} and @kbd{U} in
+the package menu: those might overwrite built-in packages that you
+didn't intent to replace with newer versions from the archives. Don't
+use these bulk commands if you want to update only a small number of
+built-in packages.
@cindex package requirements
A package may @dfn{require} certain other packages to be installed,
@@ -551,36 +600,13 @@ bugs.
source code for a package directly from source. The command will also
automatically ensure that all files are byte-compiled and auto-loaded,
just like with a regular package. Packages installed this way behave
-just like any other package. You can update them using
-@code{package-update} or @code{package-update-all} and delete them
+just like any other package. You can upgrade them using
+@code{package-upgrade} or @code{package-upgrade-all} and delete them
again using @code{package-delete}. They are even displayed in the
regular package listing. If you just wish to clone the source of a
package, without adding it to the package list, use
@code{package-vc-checkout}.
-@vindex package-vc-selected-packages
-@findex package-vc-install-selected-packages
- An alternative way to use @code{package-vc-install} is via the
-@code{package-vc-selected-packages} user option. This is an alist of
-packages to install, where each key is a package name and the value is
-@code{nil}, indicating that any revision is to install, a string,
-indicating a specific revision or a package specification plist. The
-side effect of setting the user option is to install the package, but
-the process can also be manually triggered using the function
-@code{package-vc-install-selected-packages}. Here is an example of
-how the user option:
-
-@example
-@group
-(setopt package-vc-selected-packages
- '((modus-themes . "0f39eb3fd9") ;specific revision
- (auctex . nil) ;any revision
- (foo ;a package specification
- :url "https://git.sv.gnu.org/r/foo-mode.git";
- :branch "trunk")))
-@end group
-@end example
-
@findex package-report-bug
@findex package-vc-prepare-patch
With the source checkout, you might want to reproduce a bug against
@@ -601,3 +627,91 @@ from the package directory (@pxref{Package Files}) to your
checkout
and initializes the code. Note that you might have to use
@code{package-vc-refresh} to repeat the initialization and update the
autoloads.
+
+@subsection Specifying Package Sources
+@cindex package specification
+@cindex specification, for source packages
+
+ To install a package from source, Emacs must know where to get the
+package's source code (such as a code repository) and basic
+information about the structure of the code (such as the main file in
+a multi-file package). A @dfn{package specification} describes these
+properties.
+
+ When supported by a package archive (@pxref{Package
+Archives,,,elisp, The Emacs Lisp Reference Manual}), Emacs can
+automatically download a package's specification from said archive.
+If the first argument passed to @code{package-vc-install} is a symbol
+naming a package, then Emacs will use the specification provided by
+the archive for that package.
+
+@example
+@group
+;; Emacs will download BBDB's specification from GNU ELPA:
+(package-vc-install 'bbdb)
+@end group
+@end example
+
+ The first argument to @code{package-vc-install} may also be a
+package specification. This allows you to install source packages
+from locations other than the known archives listed in the user option
+@code{package-archives}. A package specification is a list of the
+form @code{(@var{name} . @var{spec})}, in which @var{spec} should be a
+property list using any of the keys in the table below.
+
+For definitions of basic terms for working with code repositories and
+version control systems, see @ref{VCS Concepts,,,emacs, The GNU Emacs
+Manual}.
+
+@table @code
+@item :url
+A string providing the URL that specifies the repository from which to
+fetch the package's source code.
+
+@item :branch
+A string providing the revision of the code to install. Do not
+confuse this with a package's version number.
+
+@item :lisp-dir
+A string providing the repository-relative name of the directory to
+use for loading the Lisp sources, which defaults to the root directory
+of the repository.
+
+@item :main-file
+A string providing the main file of the project, from which to gather
+package metadata. If not given, the default is the package name with
+".el" appended to it.
+
+@item :doc
+A string providing the repository-relative name of the documentation
+file from which to build an Info file. This can be a Texinfo file or
+an Org file.
+
+@item :make
+A string or list of strings providing the target or targets defined in
+the repository Makefile which should run before building the Info
+file. Only takes effect when @code{package-vc-allow-side-effects} is
+non-nil.
+
+@item :shell-command
+A string providing the shell command to run before building the Info
+file. Only takes effect when @code{package-vc-allow-side-effects} is
+non-@code{nil}.
+
+@item :vc-backend
+A symbol naming the VC backend to use for downloading a copy of the
+package's repository (@pxref{Version Control Systems,,,emacs, The GNU
+Emacs Manual}). If omitted, Emacs will attempt to make a guess based
+on the provided URL, or, failing that, the process will fall back onto
+the value of @code{package-vc-default-backend}.
+@end table
+
+@example
+@group
+;; Specifying information manually:
+(package-vc-install
+ '(bbdb :url "https://git.savannah.nongnu.org/git/bbdb.git";
+ :lisp-dir "lisp"
+ :doc "doc/bbdb.texi"))
+@end group
+@end example
diff --git a/doc/emacs/search.texi b/doc/emacs/search.texi
index a5048093869..45378d95f65 100644
--- a/doc/emacs/search.texi
+++ b/doc/emacs/search.texi
@@ -587,26 +587,30 @@ i.e., they don't terminate the search, even if
@item Scrolling Commands
@cindex scrolling commands, during incremental search
@vindex isearch-allow-scroll
- Normally, scrolling commands exit incremental search. If you change
-the variable @code{isearch-allow-scroll} to a non-@code{nil} value,
-that enables the use of the scroll-bar, as well as keyboard scrolling
-commands like @kbd{C-v}, @kbd{M-v}, and @kbd{C-l} (@pxref{Scrolling}).
-This applies only to calling these commands via their bound key
-sequences---typing @kbd{M-x} will still exit the search. You can give
-prefix arguments to these commands in the usual way. This feature
-normally won't let you scroll the current match out of visibility; but
-if you customize @code{isearch-allow-scroll} to the special value
-@code{unlimited}, that restriction is lifted.
-
+@cindex @code{scroll-command} property, and incremental search
+ Normally, scrolling commands exit incremental search. But if you
+change the variable @code{isearch-allow-scroll} to a non-@code{nil}
+value, that enables the use of the scroll-bar, as well as keyboard
+scrolling commands like @kbd{C-v}, @kbd{M-v}, and @kbd{C-l}
+(@pxref{Scrolling}), which have a non-@code{nil} @code{scroll-command}
+property, without exiting the search. This applies only to calling
+these commands via their bound key sequences---typing @kbd{M-x} will
+still exit the search. You can give prefix arguments to these
+commands in the usual way. This feature normally won't let you scroll
+the current match out of visibility; but if you customize
+@code{isearch-allow-scroll} to the special value @code{unlimited},
+that restriction is lifted.
+
+@cindex @code{isearch-scroll} property
+@cindex prevent commands from exiting incremental search
The @code{isearch-allow-scroll} feature also affects some other
commands, such as @kbd{C-x 2} (@code{split-window-below}) and
@kbd{C-x ^} (@code{enlarge-window}), which don't exactly scroll but do
-affect where the text appears on the screen. It applies to any
-command whose name has a non-@code{nil} @code{isearch-scroll}
-property. So you can control which commands are affected by changing
-these properties.
+affect where the text appears on the screen. In fact, it affects
+any command that has a non-@code{nil} @code{isearch-scroll} property.
+So you can control which commands are affected by changing these
+properties.
-@cindex prevent commands from exiting incremental search
For example, to make @kbd{C-h l} usable within an incremental search
in all future Emacs sessions, use @kbd{C-h c} to find what command it
runs (@pxref{Key Help}), which is @code{view-lossage}. Then you can
@@ -643,6 +647,7 @@ you can extend the search string by holding down the shift
key while
typing cursor motion commands. It will yank text that ends at the new
position after moving point in the current buffer.
+@cindex @code{isearch-move} property
When @code{isearch-yank-on-move} is @code{t}, you can extend the
search string without using the shift key for cursor motion commands,
but it applies only for certain motion command that have the
@@ -1653,9 +1658,9 @@ command's first argument. If @code{case-fold-search} is
set to
@code{nil}, case is always significant in all searches.
@vindex case-replace
- In addition, when the @var{newstring} argument is all or partly lower
-case, replacement commands try to preserve the case pattern of each
-occurrence. Thus, the command
+ In addition, when the second argument of a replace command is all or
+partly lower case, replacement commands try to preserve the case
+pattern of each occurrence. Thus, the command
@example
M-x replace-string @key{RET} foo @key{RET} bar @key{RET}
diff --git a/doc/emacs/trouble.texi b/doc/emacs/trouble.texi
index e168514fcb9..bccdea72b19 100644
--- a/doc/emacs/trouble.texi
+++ b/doc/emacs/trouble.texi
@@ -313,14 +313,36 @@ sed -n 's/.*\[\(.*\)]$/\1/p' @var{backtrace} |
addr2line -C -f -i -p -e @var{bindir}/@var{emacs-binary}
@end example
+@noindent
+On MS-Windows, the backtrace looks somewhat differently, for example:
+
+@example
+Backtrace:
+00007ff61166a12e
+00007ff611538be1
+00007ff611559601
+00007ff6116ce84a
+00007ff9b7977ff0
+@dots{}
+@end example
+
+@noindent
+Therefore, the filtering via @command{sed} is not required, and the
+command to show the source-code line number is
+
+@example
+ addr2line -C -f -i -p -e @var{bindir}/@var{emacs-binary} < @var{backtrace}
+@end example
+
@noindent
Here, @var{backtrace} is the name of a text file containing a copy of
-the backtrace, @var{bindir} is the name of the directory that
-contains the Emacs executable, and @var{emacs-binary} is the name of
-the Emacs executable file, normally @file{emacs} on GNU and Unix
-systems and @file{emacs.exe} on MS-Windows and MS-DOS@. Omit the
-@option{-p} option if your version of @command{addr2line} is too old
-to have it.
+the backtrace (on MS-Windows, @file{emacs_backtrace.txt} in the
+directory where Emacs was started), @var{bindir} is the name of the
+directory that contains the Emacs executable, and @var{emacs-binary}
+is the name of the Emacs executable file, normally @file{emacs} on GNU
+and Unix systems and @file{emacs.exe} on MS-Windows and MS-DOS@. Omit
+the @option{-p} option if your version of @command{addr2line} is too
+old to have it.
@cindex core dump
Optionally, Emacs can generate a @dfn{core dump} when it crashes, on
@@ -496,8 +518,43 @@ Customization}.
If you think you have found a bug in Emacs, please report it. We
cannot promise to fix it, or always to agree that it is a bug, but we
certainly want to hear about it. The same applies for new features
-you would like to see added. The following sections will help you to
-construct an effective bug report.
+you would like to see added. This section will help you to determine
+whether you found a bug, and if so, construct an effective bug report.
+
+The general procedure when you find something that could be a bug is
+as follows:
+
+@itemize @bullet
+@item
+See if what you found is a known problem or a bug that was already
+reported and/or fixed. @xref{Known Problems}, where you will find how
+to look for known problems and bugs.
+
+@item
+If you are unsure whether the behavior you see is a bug, see @ref{Bug
+Criteria}, which tells what we consider as clear bugs in Emacs.
+
+@item
+Once you decide you found a bug, see @ref{Understanding Bug
+Reporting}, which helps you in describing what you see in the most
+efficient manner, making our job of reproducing the issue and
+investigating it easier.
+
+@item
+Next, see @ref{Checklist, Checklist for Bug Reports}, where we
+describe in detail how to submit a bug report and what information to
+include in it. In a nutshell, you submit a bug report via electronic
+mail using the Emacs command @code{report-emacs-bug}, which assists
+you in doing so. Submitting a bug report starts the process of
+investigating and fixing the bug, where you will receive copies of
+email messages discussing the bug, in which we might ask you to
+provide more information, test possible fixes, etc.
+
+@item
+Finally, if you want to propose specific changes to Emacs, whether to
+fix a bug, add a new feature, or improve our documentation, please see
+@ref{Sending Patches}, for details about submitting such changes.
+@end itemize
@menu
* Known Problems:: How to read about known problems and bugs.
@@ -509,9 +566,10 @@ construct an effective bug report.
@node Known Problems
@subsection Reading Existing Bug Reports and Known Problems
+@cindex known bugs and problems
- Before reporting a bug, if at all possible please check to see if it
-is already known about. Indeed, it may already have been fixed in a
+ Before reporting a bug, if at all possible, please check to see if
+we already know about it. Indeed, it may already have been fixed in a
later release of Emacs, or in the development version. Here is a list
of the main places you can read about known issues:
@@ -519,20 +577,26 @@ of the main places you can read about known issues:
@item
The @file{etc/PROBLEMS} file; type @kbd{C-h C-p} to read it. This
file contains a list of particularly well-known issues that have been
-encountered in compiling, installing and running Emacs. Often, there
-are suggestions for workarounds and solutions.
+encountered in compiling, installing and running Emacs, with special
+emphasis on issues caused by other software that cannot be easily
+solved in Emacs. Often, you will find there suggestions for
+workarounds and solutions.
@cindex bug tracker
+@cindex issue tracker
+@cindex search known bugs
@item
-The GNU Bug Tracker at @url{https://debbugs.gnu.org}. Emacs bugs are
-filed in the tracker under the @samp{emacs} package. The tracker
-records information about the status of each bug, the initial bug
-report, and the follow-up messages by the bug reporter and Emacs
-developers. You can search for bugs by subject, severity, and other
-criteria.
+The GNU Bug Tracker at @url{https://debbugs.gnu.org}. Emacs bugs and
+issues are filed in the tracker under the @samp{emacs} package. The
+tracker records information about the status of each bug, the initial
+bug report, and the follow-up messages by the bug reporter and Emacs
+developers who participate in discussing and fixing the bug. You can
+search for bugs by subject, severity, and other criteria. For more
+complex search criteria, use
+@url{https://debbugs.gnu.org/cgi/search.cgi}.
@cindex debbugs package
-Instead of browsing the bug tracker as a webpage, you can browse it
+Instead of browsing the bug tracker as a web page, you can browse it
from Emacs using the @code{debbugs} package, which can be downloaded
via the Package Menu (@pxref{Packages}). This package provides the
command @kbd{M-x debbugs-gnu} to list bugs, and @kbd{M-x
@@ -558,14 +622,14 @@ used, and is mainly of historical interest. At one time,
it was used
for bug reports in development (i.e., not yet released) versions of
Emacs. You can read the archives for 2003 to mid 2007 at
@url{https://lists.gnu.org/r/emacs-pretest-bug/}. Nowadays,
-it is an alias for @samp{bug-gnu-emacs}.
+email messages sent to this list are redirected to
+@samp{bug-gnu-emacs}.
@item
The @samp{emacs-devel} mailing list. Sometimes people report bugs to
this mailing list. This is not the main purpose of the list, however,
and it is much better to send bug reports to the bug list. You should
not feel obliged to read this list before reporting a bug.
-
@end itemize
@@ -628,20 +692,21 @@ to begin by reporting them to the package developers.
@node Understanding Bug Reporting
@subsection Understanding Bug Reporting
-@cindex bug reporting
+@cindex bug reporting, principles
@cindex report an Emacs bug, how to
- When you decide that there is a bug, it is important to report it
+ When you decide that there is a bug, it is important to report it,
and to report it in a way which is useful. What is most useful is an
exact description of what commands you type, starting with the shell
-command to run Emacs, until the problem happens.
+command to run Emacs, until the problem happens, and the effects
+produced by typing those commands.
The most important principle in reporting a bug is to report
@emph{facts}. Hypotheses and verbal descriptions are no substitute
for the detailed raw data. Reporting the facts is straightforward,
but many people strain to posit explanations and report them instead
of the facts. If the explanations are based on guesses about how
-Emacs is implemented, they will be useless; meanwhile, lacking the
+Emacs is implemented, they night not be useful; meanwhile, lacking the
facts, we will have no real information about the bug. If you want to
actually @emph{debug} the problem, and report explanations that are
more than guesses, that is useful---but please include the raw facts
@@ -661,19 +726,23 @@ problem. There is no way we could guess that we should
try visiting a
file with a @samp{z} in its name.
You should not even say ``visit a file'' instead of @kbd{C-x C-f}.
-Similarly, rather than saying ``if I have three characters on the
-line'', say ``after I type @kbd{@key{RET} A B C @key{RET} C-p}'', if
-that is the way you entered the text.
+That's because a file can be visited in more than one way, and there's
+no certainty that all of them reproduce the problem. Similarly,
+rather than saying ``if I have three characters on the line'', say
+``after I type @kbd{@key{RET} A B C @key{RET} C-p}'', if that is the
+way you entered the text---that is, tell us about the text which in
+your case produced the problem.
If possible, try quickly to reproduce the bug by invoking Emacs with
@command{emacs -Q} (so that Emacs starts with no initial
customizations; @pxref{Initial Options}), and repeating the steps that
you took to trigger the bug. If you can reproduce the bug this way,
-that rules out bugs in your personal customizations. Then your bug
-report should begin by stating that you started Emacs with
-@command{emacs -Q}, followed by the exact sequence of steps for
-reproducing the bug. If possible, inform us of the exact contents of
-any file that is needed to reproduce the bug.
+that rules out bugs in your personal customizations and makes the bug
+much easier to reproduce. Then your bug report should begin by
+stating that you started Emacs with @command{emacs -Q}, followed by
+the exact sequence of steps for reproducing the bug. If possible,
+inform us of the exact contents of any file that is needed to
+reproduce the bug.
Some bugs are not reproducible from @command{emacs -Q}; some are not
easily reproducible at all. In that case, you should report what you
@@ -687,6 +756,7 @@ separate bug report for each.
@subsection Checklist for Bug Reports
@cindex checklist before reporting a bug
@cindex bug reporting, checklist
+@cindex report bugs in Emacs
Before reporting a bug, first try to see if the problem has already
been reported (@pxref{Known Problems}).
@@ -706,7 +776,7 @@ information; you should still read and follow the
guidelines below, so
you can enter the other crucial information by hand before you send
the message. You may feel that some of the information inserted by
@kbd{M-x report-emacs-bug} is not relevant, but unless you are
-absolutely sure it is best to leave it, so that the developers can
+absolutely sure, it is best to leave it, so that the developers can
decide for themselves.
When you have finished writing your report, type @kbd{C-c C-c} and it
@@ -721,24 +791,26 @@ If you cannot send mail from inside Emacs, you can copy
the
text of your report to your normal mail client (if your system
supports it, you can type @kbd{C-c M-i} to have Emacs do this for you)
and send it to that address. Or you can simply send an email to that
-address describing the problem.
+address describing the problem, including the necessary information
+mentioned below.
If you want to submit code to Emacs (to fix a problem or implement a
new feature), the easiest way to do this is to send a patch to the
-Emacs issue tracker. This is done with the @kbd{M-x
-submit-emacs-patch} command, and works much the same as when reporting
-bugs.
+Emacs issue tracker. Use the @kbd{M-x submit-emacs-patch} command for
+that, which works much the same as when reporting bugs; @pxref{Sending
+Patches}.
In any case, your report will be sent to the @samp{bug-gnu-emacs}
mailing list, and stored in the GNU Bug Tracker at
@url{https://debbugs.gnu.org}. Please include a valid reply email
address, in case we need to ask you for more information about your
report. Submissions are moderated, so there may be a delay before
-your report appears.
+your report actually appears on the tracker.
You do not need to know how the GNU Bug Tracker works in order to
-report a bug, but if you want to, you can read the tracker's online
-documentation to see the various features you can use.
+report a bug, but if you want to, you can read the tracker's
+@uref{https://debbugs.gnu.org/Advanced.html, online documentation} to
+see the various features you can use.
All mail sent to the @samp{bug-gnu-emacs} mailing list is also
gatewayed to the @samp{gnu.emacs.bug} newsgroup. The reverse is also
@@ -749,55 +821,43 @@ tracker.
If your data is more than 500,000 bytes, please don't include it
directly in the bug report; instead, offer to send it on request, or
-make it available online and say where.
+make it available online and say where. Large attachments are best
+sent compressed.
The GNU Bug Tracker will assign a bug number to your report; please
-use it in the following discussions.
+use it in the following discussions, keeping the bug address in the
+list of recipients, so that the bug discussion is recorded by the
+tracker. The bug address will look like
+@samp{@var{nnnnn}@@debbugs.gnu.org}, where @var{nnnnn} is the bug
+number.
To enable maintainers to investigate a bug, your report
should include all these things:
@itemize @bullet
@item
-The version number of Emacs. Without this, we won't know whether there is any
-point in looking for the bug in the current version of GNU Emacs.
-
-@findex emacs-version
-@kbd{M-x report-emacs-bug} includes this information automatically,
-but if you are not using that command for your report you can get the
-version number by typing @kbd{M-x emacs-version @key{RET}}. If that
-command does not work, you probably have something other than GNU
-Emacs, so you will have to report the bug somewhere else.
-
-@item
-The type of machine you are using, and the operating system name and
-version number (again, automatically included by @w{@kbd{M-x
-report-emacs-bug}}). @w{@kbd{M-x emacs-version @key{RET}}} provides
-this information too. Copy its output from the @file{*Messages*}
-buffer, so that you get it all and get it accurately, or use
-@w{@kbd{C-u M-x emacs-version @key{RET}}} to insert the version
-information into the current buffer.
-
-@item
-The operands given to the @code{configure} command when Emacs was
-installed (automatically included by @kbd{M-x report-emacs-bug}).
-
-@item
-A complete list of any modifications you have made to the Emacs source.
-(We may not have time to investigate the bug unless it happens in an
-unmodified Emacs. But if you've made modifications and you don't tell
-us, you are sending us on a wild goose chase.)
+A description of what behavior you observe that you believe is
+incorrect. For example, ``The Emacs process gets a fatal signal'', or,
+``The resulting text is as follows, which I think is wrong.''
-Be precise about these changes. A description in English is not
-enough---send a unified context diff for them.
+Of course, if the bug is that Emacs gets a fatal signal, then one can't
+miss it. But if the bug is incorrect text, the maintainer might fail to
+notice what is wrong. Why leave it to chance?
-Adding files of your own, or porting to another machine, is a
-modification of the source.
+Even if the problem you experience is a fatal signal, you should still
+say so explicitly. Suppose something strange is going on, such as, your
+copy of the source is out of sync, or you have encountered a bug in the
+C library on your system. (This has happened!) Your copy might crash
+and the copy here might not. If you @emph{said} to expect a crash, then
+when Emacs here fails to crash, we would know that the bug was not
+happening. If you don't say to expect a crash, then we would not know
+whether the bug was happening---we would not be able to draw any
+conclusion from our observations.
-@item
-Details of any other deviations from the standard procedure for installing
-GNU Emacs.
+Usually, description of the behavior and of the way to reproduce the
+problem needs to specify one or more of the following aspects:
+@itemize @minus
@item
The complete text of any files needed to reproduce the bug.
@@ -818,12 +878,53 @@ customizations.
@cindex dribble file
@cindex logging keystrokes
One way to record the input to Emacs precisely is to write a dribble
-file. To start the file, use the @kbd{M-x open-dribble-file} command.
+file. To start the file, use the command @w{@kbd{M-x open-dribble-file}}.
From then on, Emacs copies all your input to the specified dribble
file until the Emacs process is killed. Be aware that sensitive
information (such as passwords) may end up recorded in the dribble
file.
+@item
+If the bug is that the Emacs Manual or the Emacs Lisp Reference Manual
+fails to describe the actual behavior of Emacs, or that the text is
+confusing, copy in the text from the manual which you think is
+at fault. If the section is small, just the section name is enough.
+
+@item
+If the manifestation of the bug is an Emacs error message, it is
+important to report the precise text of the error message, and a
+backtrace showing how the Lisp program in Emacs arrived at the error.
+
+To get the error message text accurately, copy it from the
+@file{*Messages*} buffer into the bug report. Copy all of it, not just
+part.
+
+@item
+Check whether any programs you have loaded into the Lisp world,
+including your initialization file, set any variables that may affect
+the functioning of Emacs. Also, see whether the problem happens in a
+freshly started Emacs without loading your initialization file (start
+Emacs with the @code{-Q} switch to prevent loading the init files).
+If the problem does @emph{not} occur then, you must report the precise
+contents of any programs that you must load into the Lisp world in
+order to cause the problem to occur.
+
+@item
+If the problem does depend on an init file or other Lisp programs that
+are not part of the standard Emacs system, then you should make sure it
+is not a bug in those programs by complaining to their maintainers
+first. After they verify that they are using Emacs in a way that is
+supposed to work, they should report the bug.
+
+@item
+If you wish to mention something in the GNU Emacs source, show the line
+of code with a few lines of context. Don't just give a line number.
+
+The line numbers in the development sources don't match those in your
+sources. It would take extra work for the maintainers to determine what
+code is in your version at a given line number, and we could not be
+certain.
+
@item
@findex open-termscript
@cindex termscript file
@@ -834,27 +935,70 @@ entry for the terminal from @file{/etc/termcap} (since
that file is
not identical on all machines), and the output that Emacs actually
sent to the terminal.
-The way to collect the terminal output is to execute the Lisp expression
+The way to collect the terminal output is to invoke the command
+@kbd{M-x open-termscript} just after starting Emacs; it will prompt
+you for the name of the file where to record all terminal output until
+the Emacs process is killed. If the problem happens when Emacs starts
+up, put the Lisp expression
@example
(open-termscript "~/termscript")
@end example
@noindent
-using @kbd{M-:} or from the @file{*scratch*} buffer just after
-starting Emacs. From then on, Emacs copies all terminal output to the
-specified termscript file as well, until the Emacs process is killed.
-If the problem happens when Emacs starts up, put this expression into
-your Emacs initialization file so that the termscript file will be
-open when Emacs displays the screen for the first time.
+into your Emacs initialization file so that the termscript file will
+be open when Emacs displays the screen for the first time.
Be warned: it is often difficult, and sometimes impossible, to fix a
terminal-dependent bug without access to a terminal of the type that
stimulates the bug.
+@end itemize
+
+@item
+The version number of Emacs. Without this, we won't know whether there is any
+point in looking for the bug in the current version of GNU Emacs.
+
+@findex emacs-version
+@kbd{M-x report-emacs-bug} includes this information automatically,
+but if you are not using that command for your report you can get the
+version number by typing @kbd{M-x emacs-version @key{RET}}. If that
+command does not work, you probably have something other than GNU
+Emacs, so you will have to report the bug somewhere else.
+
+@item
+The type of machine you are using, and the operating system name and
+version number (again, automatically included by @w{@kbd{M-x
+report-emacs-bug}}). @w{@kbd{M-x emacs-version @key{RET}}} provides
+this information too. Copy its output from the @file{*Messages*}
+buffer, so that you get it all and get it accurately, or use
+@w{@kbd{C-u M-x emacs-version @key{RET}}} to insert the version
+information into the current buffer.
+
+@item
+The command-line arguments given to the @code{configure} command when
+Emacs was built (automatically included by @kbd{M-x
+report-emacs-bug}).
+
+@item
+A complete list of any modifications you have made to the Emacs source.
+(We may not have time to investigate the bug unless it happens in an
+unmodified Emacs. But if you've made modifications and you don't tell
+us, you are sending us on a wild goose chase.)
+
+Be precise about these changes. A description in English is not
+enough---send a unified context diff for them.
+
+Adding files of your own, or porting to another machine, is a
+modification of the source.
+
+@item
+Details of any other deviations from the standard procedure for installing
+GNU Emacs.
@item
If non-@acronym{ASCII} text or internationalization is relevant, the locale
that
-was current when you started Emacs. On GNU/Linux and Unix systems, or
+was current when you started Emacs. This is automatically included by
@kbd{M-x
+report-emacs-bug}; alternatively, on GNU/Linux and Unix systems, or
if you use a POSIX-style shell such as Bash, you can use this shell
command to view the relevant values:
@@ -863,56 +1007,97 @@ echo LC_ALL=$LC_ALL LC_COLLATE=$LC_COLLATE
LC_CTYPE=$LC_CTYPE \
LC_MESSAGES=$LC_MESSAGES LC_TIME=$LC_TIME LANG=$LANG
@end smallexample
-Alternatively, use the @command{locale} command, if your system has it,
+You can also use the @command{locale} command, if your system has it,
to display your locale settings.
+@end itemize
-You can use the @kbd{M-!} command to execute these commands from
-Emacs, and then copy the output from the @file{*Messages*} buffer into
-the bug report. Alternatively, @kbd{M-x getenv @key{RET} LC_ALL
-@key{RET}} will display the value of @code{LC_ALL} in the echo area, and
-you can copy its output from the @file{*Messages*} buffer.
+Here are some things that are not necessary in a bug report:
+@itemize @bullet
@item
-A description of what behavior you observe that you believe is
-incorrect. For example, ``The Emacs process gets a fatal signal'', or,
-``The resulting text is as follows, which I think is wrong.''
+A description of the envelope of the bug---this is not necessary for a
+reproducible bug.
-Of course, if the bug is that Emacs gets a fatal signal, then one can't
-miss it. But if the bug is incorrect text, the maintainer might fail to
-notice what is wrong. Why leave it to chance?
+Often people who encounter a bug spend a lot of time investigating
+which changes to the input file will make the bug go away and which
+changes will not affect it.
-Even if the problem you experience is a fatal signal, you should still
-say so explicitly. Suppose something strange is going on, such as, your
-copy of the source is out of sync, or you have encountered a bug in the
-C library on your system. (This has happened!) Your copy might crash
-and the copy here might not. If you @emph{said} to expect a crash, then
-when Emacs here fails to crash, we would know that the bug was not
-happening. If you don't say to expect a crash, then we would not know
-whether the bug was happening---we would not be able to draw any
-conclusion from our observations.
+This is often time-consuming and not very useful, because the way we
+will find the bug is by running a single example under the debugger
+with breakpoints, not by pure deduction from a series of examples.
+You might as well save time by not searching for additional examples.
+It is better to send the bug report right away, go back to editing,
+and find another bug to report.
+
+Of course, if you can find a simpler example to report @emph{instead} of
+the original one, that is a convenience. Errors in the output will be
+easier to spot, running under the debugger will take less time, etc.
+
+However, simplification is not vital; if you can't do this or don't have
+time to try, please report the bug with your original test case.
@item
-If the bug is that the Emacs Manual or the Emacs Lisp Reference Manual
-fails to describe the actual behavior of Emacs, or that the text is
-confusing, copy in the text from the manual which you think is
-at fault. If the section is small, just the section name is enough.
+A core dump file.
+
+Debugging the core dump might be useful, but it can only be done on
+your machine, with your Emacs executable. Therefore, sending the core
+dump file to the Emacs maintainers won't be useful. Above all, don't
+include the core file in an email bug report! Such a large message
+can be extremely inconvenient.
@item
-If the manifestation of the bug is an Emacs error message, it is
-important to report the precise text of the error message, and a
-backtrace showing how the Lisp program in Emacs arrived at the error.
+A system-call trace of Emacs execution.
-To get the error message text accurately, copy it from the
-@file{*Messages*} buffer into the bug report. Copy all of it, not just
-part.
+System-call traces are very useful for certain special kinds of
+debugging, but in most cases they give little useful information. It is
+therefore strange that many people seem to think that @emph{the} way to
+report information about a crash is to send a system-call trace. Perhaps
+this is a habit formed from experience debugging programs that don't
+have source code or debugging symbols.
+
+In most programs, a backtrace is normally far, far more informative than
+a system-call trace. Even in Emacs, a simple backtrace is generally
+more informative, though to give full information you should supplement
+the backtrace by displaying variable values and printing them as Lisp
+objects with @code{pr} (see above).
+
+@item
+A patch for the bug.
+
+A patch for the bug is useful if it is a good one. But don't omit the
+other information that a bug report needs, such as the test case, on
+the assumption that a patch is sufficient. We might see problems with
+your patch and decide to fix the problem another way, or we might not
+understand it at all. And if we can't understand what bug you are
+trying to fix, or why your patch should be an improvement, we mustn't
+install it. @xref{Sending Patches}, for guidelines on how to make it
+easy for us to understand and install your patches.
+
+@item
+A guess about what the bug is or what it depends on.
+
+Such guesses are usually wrong. Even experts can't guess right about
+such things without first using the debugger to find the facts.
+@end itemize
+
+If you are willing to debug Emacs and provide additional information
+about the bug, here is some useful advice:
@findex toggle-debug-on-error
@pindex Edebug
-To make a backtrace for the error, use @kbd{M-x toggle-debug-on-error}
-before the error happens (that is to say, you must give that command
-and then make the bug happen). This causes the error to start the Lisp
-debugger, which shows you a backtrace. Copy the text of the
-debugger's backtrace into the bug report. @xref{Edebug,, Edebug,
+@itemize
+@item
+If the bug manifests itself as an error message, try providing a Lisp
+backtrace for the error. To make a backtrace for the error, use
+@kbd{M-x toggle-debug-on-error} before the error happens (that is to
+say, you must give that command and then make the bug happen). This
+causes the error to start the Lisp debugger, which shows you a
+backtrace. Copy the text of the debugger's backtrace into the bug
+report. (The backtrace is more detailed if you load the relevant Lisp
+@file{*.el} source files before triggering the error, so do that if
+you know how to find and load those files.)
+
+To debug the error, we suggest using Edebug. @xref{Edebug,, Edebug,
elisp, the Emacs Lisp Reference Manual}, for information on debugging
Emacs Lisp programs with the Edebug package.
@@ -921,6 +1106,7 @@ bug happen again. If you can't make it happen again, at
least copy
the whole error message.
@vindex debug-on-quit
+@item
If Emacs appears to be stuck in an infinite loop or in a very long
operation, typing @kbd{C-g} with the variable @code{debug-on-quit}
non-@code{nil} will start the Lisp debugger and show a backtrace.
@@ -933,32 +1119,6 @@ If you cannot get Emacs to respond to @kbd{C-g} (e.g.,
because
specified by @code{debug-on-event} (default SIGUSR2) from outside
Emacs to cause it to enter the debugger.
-@item
-Check whether any programs you have loaded into the Lisp world,
-including your initialization file, set any variables that may affect
-the functioning of Emacs. Also, see whether the problem happens in a
-freshly started Emacs without loading your initialization file (start
-Emacs with the @code{-Q} switch to prevent loading the init files).
-If the problem does @emph{not} occur then, you must report the precise
-contents of any programs that you must load into the Lisp world in
-order to cause the problem to occur.
-
-@item
-If the problem does depend on an init file or other Lisp programs that
-are not part of the standard Emacs system, then you should make sure it
-is not a bug in those programs by complaining to their maintainers
-first. After they verify that they are using Emacs in a way that is
-supposed to work, they should report the bug.
-
-@item
-If you wish to mention something in the GNU Emacs source, show the line
-of code with a few lines of context. Don't just give a line number.
-
-The line numbers in the development sources don't match those in your
-sources. It would take extra work for the maintainers to determine what
-code is in your version at a given line number, and we could not be
-certain.
-
@item
Additional information from a C debugger such as GDB might enable
someone to find a problem on a machine which he does not have available.
@@ -967,9 +1127,10 @@ very long, and using GDB is easy. You can find the GDB
distribution,
including the GDB manual in online form, in most of the same places you
can find the Emacs distribution. To run Emacs under GDB, you should
switch to the @file{src} subdirectory in which Emacs was compiled, then
-do @samp{gdb emacs}. It is important for the directory @file{src} to be
+type @kbd{gdb ./emacs}. It is important for the directory @file{src} to be
current so that GDB will read the @file{.gdbinit} file in this
-directory.
+directory. (You can also tell GDB to read that file from inside GDB,
+by typing @kbd{source ./.gdbinit}.)
However, you need to think when you collect the additional information
if you want it to show what causes the bug.
@@ -1000,8 +1161,8 @@ are debugging a running process (not with a core dump).
To make Lisp errors stop Emacs and return to GDB, put a breakpoint at
@code{Fsignal}.
-For a short listing of Lisp functions running, type the GDB
-command @code{xbacktrace}.
+For a backtrace of Lisp functions running, type the GDB command
+@code{xbacktrace}.
The file @file{.gdbinit} defines several other commands that are useful
for examining the data types and contents of Lisp objects. Their names
@@ -1021,79 +1182,6 @@ To find the file @file{etc/DEBUG} in your Emacs
installation, use the
directory name stored in the variable @code{data-directory}.
@end itemize
-Here are some things that are not necessary in a bug report:
-
-@itemize @bullet
-@item
-A description of the envelope of the bug---this is not necessary for a
-reproducible bug.
-
-Often people who encounter a bug spend a lot of time investigating
-which changes to the input file will make the bug go away and which
-changes will not affect it.
-
-This is often time-consuming and not very useful, because the way we
-will find the bug is by running a single example under the debugger
-with breakpoints, not by pure deduction from a series of examples.
-You might as well save time by not searching for additional examples.
-It is better to send the bug report right away, go back to editing,
-and find another bug to report.
-
-Of course, if you can find a simpler example to report @emph{instead} of
-the original one, that is a convenience. Errors in the output will be
-easier to spot, running under the debugger will take less time, etc.
-
-However, simplification is not vital; if you can't do this or don't have
-time to try, please report the bug with your original test case.
-
-@item
-A core dump file.
-
-Debugging the core dump might be useful, but it can only be done on
-your machine, with your Emacs executable. Therefore, sending the core
-dump file to the Emacs maintainers won't be useful. Above all, don't
-include the core file in an email bug report! Such a large message
-can be extremely inconvenient.
-
-@item
-A system-call trace of Emacs execution.
-
-System-call traces are very useful for certain special kinds of
-debugging, but in most cases they give little useful information. It is
-therefore strange that many people seem to think that @emph{the} way to
-report information about a crash is to send a system-call trace. Perhaps
-this is a habit formed from experience debugging programs that don't
-have source code or debugging symbols.
-
-In most programs, a backtrace is normally far, far more informative than
-a system-call trace. Even in Emacs, a simple backtrace is generally
-more informative, though to give full information you should supplement
-the backtrace by displaying variable values and printing them as Lisp
-objects with @code{pr} (see above).
-
-@item
-A patch for the bug.
-
-A patch for the bug is useful if it is a good one. But don't omit the
-other information that a bug report needs, such as the test case, on the
-assumption that a patch is sufficient. We might see problems with your
-patch and decide to fix the problem another way, or we might not
-understand it at all. And if we can't understand what bug you are
-trying to fix, or why your patch should be an improvement, we mustn't
-install it.
-
-@ifnottex
-@xref{Sending Patches}, for guidelines on how to make it easy for us to
-understand and install your patches.
-@end ifnottex
-
-@item
-A guess about what the bug is or what it depends on.
-
-Such guesses are usually wrong. Even experts can't guess right about
-such things without first using the debugger to find the facts.
-@end itemize
-
@node Sending Patches
@subsection Sending Patches for GNU Emacs
@@ -1108,26 +1196,29 @@ work in the best of circumstances, and we can't keep up
unless you do
your best to help.
Every patch must have several pieces of information before we
-can properly evaluate it.
-
-When you have all these pieces, bundle them up in a mail message and
-send it to the developers. Sending it to
-@email{bug-gnu-emacs@@gnu.org} (which is the bug/feature list) is
-recommended, because that list is coupled to a tracking system that
-makes it easier to locate patches. If your patch is not complete and
-you think it needs more discussion, you might want to send it to
-@email{emacs-devel@@gnu.org} instead. If you revise your patch,
-send it as a followup to the initial topic.
-
-We prefer to get the patches as plain text, either inline (be careful
-your mail client does not change line breaks) or as MIME attachments.
+can properly evaluate it. They are described below.
+
+When you have all these pieces, use the @kbd{M-x submit-emacs-patch}
+command to send the patch. The command will prompt you for the
+Subject of the patch and a patch file. It will then create and
+display a Message mode buffer with the patch file as an attachment,
+display the buffer, and let you explain more about the patch and add
+any other information as requested below. When you are done, type
+@kbd{C-c C-c} to send the patch via email to the developers. It will
+be sent to the GNU Bug Tracker at @url{https://debbugs.gnu.org}. The
+tracker will assign a number to your submission, just like it does
+with bug reports. The developers will usually respond, perhaps asking
+you for more details or any additional information, so be sure to
+include a valid reply email address.
+
+Here's what we ask you to provide as part of your patch submissions:
@itemize @bullet
@item
-Include an explanation with your changes of what problem they fix or what
-improvement they bring about.
+An explanation of what problem you are fixing or what improvement will
+the patches bring about:
-@itemize
+@itemize @minus
@item
For a fix for an existing bug, it is
best to reply to the relevant discussion on the @samp{bug-gnu-emacs}
@@ -1140,26 +1231,28 @@ implementation.
@item
For a new bug, include a proper bug report for the problem you think
-you have fixed. We need to convince ourselves that the change is
-right before installing it. Even if it is correct, we might have
-trouble understanding it if we don't have a way to reproduce the
-problem.
+you have fixed; @pxref{Checklist, Checklist for Bug Reports}. We need
+to convince ourselves that the change is right before installing it.
+Even if it is correct, we might have trouble understanding it if we
+don't have a way to reproduce the problem it tries to fix.
@end itemize
@item
-Include all the comments that are appropriate to help people reading the
-source in the future understand why this change was needed.
+Include in your code changes all the comments that are appropriate to
+help people reading the source in the future understand why this
+change was needed.
@item
Don't mix together changes made for different reasons.
Send them @emph{individually}.
-If you make two changes for separate reasons, then we might not want to
-install them both. We might want to install just one. If you send them
-all jumbled together in a single set of diffs, we have to do extra work
-to disentangle them---to figure out which parts of the change serve
-which purpose. If we don't have time for this, we might have to ignore
-your changes entirely.
+If you make two changes for separate reasons, then we might not want
+to install them both. We might want to install just one, or install
+each one in a different versions of Emacs. If you send them all
+jumbled together in a single set of diffs, we have to do extra work to
+disentangle them---to figure out which parts of the change serve which
+purpose. If we don't have time for this, we might have to postpone
+inclusion of your patches for a long time.
If you send each change as soon as you have written it, with its own
explanation, then two changes never get tangled up, and we can consider
@@ -1176,52 +1269,46 @@ right away. That gives us the option of installing it
immediately if it
is important.
@item
-The patch itself.
-
-Use @samp{diff -u} to make your diffs. Diffs without context are hard
-to install reliably. More than that, they are hard to study; we must
-always study a patch to decide whether we want to install it. Context
-format is better than contextless diffs, but we prefer the unified
-format.
-
-If you have GNU diff, use @samp{diff -u -F'^[_a-zA-Z0-9$]\+ *('} when
-making diffs of C code. This shows the name of the function that each
-change occurs in.
+The patch itself. This can be produced in one of the following ways:
+@itemize @minus
+@item
If you are using the Emacs repository, make sure your copy is
up-to-date (e.g., with @code{git pull}). You can commit your changes
to a private branch and generate a patch from the master version by
-using @code{git format-patch master}. Or you can leave your changes
-uncommitted and use @code{git diff}.
+using @code{git format-patch master}. (This is the preferred method,
+as it makes our job of applying the patch easier.) Or you can leave
+your changes uncommitted and use @code{git diff}, as described below.
@item
-Avoid any ambiguity as to which is the old version and which is the new.
-Please make the old version the first argument to diff, and the new
-version the second argument. And please give one version or the other a
-name that indicates whether it is the old version or your new changed
-one.
+Use @kbd{diff -u} to make your diffs. If you have GNU diff, use
+@w{@kbd{diff -u -F'^[_a-zA-Z0-9$]\+ *('}} when making diffs of C code.
+This shows the name of the function that each change occurs in.
+
+When producing the diffs, avoid any ambiguity as to which is the old
+version and which is the new. Please make the old version the first
+argument to diff, and the new version the second argument. And please
+give one version or the other a name that indicates whether it is the
+old version or your new changed one.
+@end itemize
@item
Write the commit log entries for your changes. This is both to save us
the extra work of writing them, and to help explain your changes so we
can understand them.
-The purpose of the commit log is to show people where to find what was
-changed. So you need to be specific about what functions you changed;
-in large functions, it's often helpful to indicate where within the
-function the change was.
-
-On the other hand, once you have shown people where to find the change,
-you need not explain its purpose in the change log. Thus, if you add a
-new function, all you need to say about it is that it is new. If you
-feel that the purpose needs explaining, it probably does---but put the
-explanation in comments in the code. It will be more useful there.
-
-Please look at the commit log entries of recent commits to see what
-sorts of information to put in, and to learn the style that we use.
-Note that, unlike some other projects, we do require commit logs for
-documentation, i.e., Texinfo files.
-@xref{Change Log},
+The purpose of the commit log is to explain the rationale of the
+changes, the way the modified code solves whatever problems your patch
+is trying to fix, and also show people where to find what was changed.
+So you need to be specific about what functions you changed and why.
+For the details about our style and requirements for good commit log
+messages, please see the ``Commit messages'' section of the file
+@file{CONTRIBUTE} in the Emacs source tree.
+
+Please also look at the commit log entries of recent commits to see
+what sorts of information to put in, and to learn the style that we
+use. Note that, unlike some other projects, we do require commit logs
+for documentation, i.e., Texinfo files. @xref{Change Log},
@ifset WWW_GNU_ORG
see
@url{https://www.gnu.org/prep/standards/html_node/Change-Log-Concepts.html},
@@ -1232,7 +1319,7 @@ Change Log Concepts, standards, GNU Coding Standards}.
@item
When you write the fix, keep in mind that we can't install a change that
would break other systems. Please think about what effect your change
-will have if compiled on another type of system.
+will have if compiled and/or used on another type of system.
Sometimes people send fixes that @emph{might} be an improvement in
general---but it is hard to be sure of this. It's hard to install
@@ -1240,9 +1327,10 @@ such changes because we have to study them very
carefully. Of course,
a good explanation of the reasoning by which you concluded the change
was correct can help convince us.
-The safest changes are changes to the configuration files for a
-particular machine. These are safe because they can't create new bugs
-on other machines.
+The safest changes are changes to the files or portions of files that
+are only used for a particular machine or a particular system. These
+are safe because they can't create new bugs on other machines or
+systems.
Please help us keep up with the workload by designing the patch in a
form that is clearly safe to install.
@@ -1259,7 +1347,7 @@ There are many ways to contribute to Emacs:
@itemize
@item
-find and report bugs; @xref{Bugs}.
+find and report bugs; @pxref{Bugs}.
@item
answer questions on the Emacs user mailing list
@@ -1326,15 +1414,15 @@ before you start; it might be possible to suggest ways
to make your
extension fit in better with the rest of Emacs.
When implementing a feature, please follow the Emacs coding standards;
-@xref{Coding Standards}. In addition, non-trivial contributions
-require a copyright assignment to the FSF; @xref{Copyright Assignment}.
+@pxref{Coding Standards}. In addition, substantial contributions
+require a copyright assignment to the FSF; @pxref{Copyright Assignment}.
The development version of Emacs can be downloaded from the
repository where it is actively maintained by a group of developers.
See the Emacs project page
@url{https://savannah.gnu.org/projects/emacs/} for access details.
-It is important to write your patch based on the current working
+It is important to write your patches based on the current working
version. If you start from an older version, your patch may be
outdated (so that maintainers will have a hard time applying it), or
changes in Emacs may have made your patch unnecessary. After you have
@@ -1397,7 +1485,7 @@ the Emacs Lisp Reference Manual
@node Coding Standards
@subsection Coding Standards
-@cindex coding standards
+@cindex coding standards for Emacs submissions
Contributed code should follow the GNU Coding Standards
@url{https://www.gnu.org/prep/standards/}. This may also be available
@@ -1432,10 +1520,6 @@ to be included in Emacs.
@item
Remove all trailing whitespace in all source and text files.
-@item
-Emacs has no convention on whether to use tabs in source code; please
-don't change whitespace in the files you edit.
-
@item
Use @code{?\s} instead of @code{? } in Lisp code for a space character.
@@ -1455,7 +1539,7 @@ packages stored in GNU ELPA, we require that the
copyright be assigned
to the FSF@. For the reasons behind this, see
@url{https://www.gnu.org/licenses/why-assign.html}.
-Copyright assignment is a simple process. Residents of some countries
+Copyright assignment is a simple process. Residents of many countries
can do it entirely electronically. We can help you get started,
including sending you the forms you should fill, and answer any
questions you may have (or point you to the people with the answers),
diff --git a/doc/lispintro/emacs-lisp-intro.texi
b/doc/lispintro/emacs-lisp-intro.texi
index a2b82d25633..6447ff74bc9 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -6604,10 +6604,11 @@ works. You will probably need to use @kbd{C-h f}
(@code{describe-function}). The newer version uses a conditional to
determine whether the buffer has been narrowed.
-(Also, it uses @code{line-number-at-pos}, which among other simple
-expressions, such as @code{(goto-char (point-min))}, moves point to
-the beginning of the current line with @code{(forward-line 0)} rather
-than @code{beginning-of-line}.)
+Also, the modern version of @code{what-line} uses
+@code{line-number-at-pos}, which among other simple expressions, such
+as @code{(goto-char (point-min))}, moves point to the beginning of the
+current line with @code{(forward-line 0)} rather than
+@code{beginning-of-line}.)
The @code{what-line} function as shown here has a documentation line
and is interactive, as you would expect. The next two lines use the
diff --git a/doc/lispref/buffers.texi b/doc/lispref/buffers.texi
index b56006e5aa9..86c47ae7310 100644
--- a/doc/lispref/buffers.texi
+++ b/doc/lispref/buffers.texi
@@ -959,9 +959,9 @@ infinite recursion.
@defun buffer-match-p condition buffer-or-name &optional arg
This function checks if a buffer designated by @code{buffer-or-name}
-satisfies a @code{condition}. Optional third argument @var{arg} is
-passed to the predicate function in @var{condition}. A condition can
-be one of the following:
+satisfies the specified @code{condition}. Optional third argument
+@var{arg} is passed to the predicate function in @var{condition}. A
+valid @var{condition} can be one of the following:
@itemize @bullet{}
@item
A string, interpreted as a regular expression. The buffer
@@ -990,21 +990,23 @@ Satisfied if @emph{all} the conditions in @var{conds}
satisfy
Satisfied if the buffer's major mode derives from @var{expr}.
@item major-mode
Satisfied if the buffer's major mode is equal to @var{expr}. Prefer
-using @code{derived-mode} instead when both can work.
+using @code{derived-mode} instead, when both can work.
@end table
@item t
Satisfied by any buffer. A convenient alternative to @code{""} (empty
-string), @code{(and)} (empty conjunction) or @code{always}.
+string) or @code{(and)} (empty conjunction).
@end itemize
@end defun
@defun match-buffers condition &optional buffer-list arg
-This function returns a list of all buffers that satisfy a
-@code{condition}, as defined for @code{buffer-match-p}. By default
-all buffers are considered, but this can be restricted via the second
-optional @code{buffer-list} argument. Optional third argument
-@var{arg} will be used by @var{condition} in the same way as
-@code{buffer-match-p} does.
+This function returns a list of all buffers that satisfy the
+@code{condition}. If no buffers match, the function returns
+@code{nil}. The argument @var{condition} is as defined in
+@code{buffer-match-p} above. By default, all the buffers are
+considered, but this can be restricted via the optional argument
+@code{buffer-list}, which should be a list of buffers to consider.
+Optional third argument @var{arg} will be passed to @var{condition} in
+the same way as @code{buffer-match-p} does.
@end defun
@node Creating Buffers
diff --git a/doc/lispref/commands.texi b/doc/lispref/commands.texi
index 20be706bebd..cd1745614eb 100644
--- a/doc/lispref/commands.texi
+++ b/doc/lispref/commands.texi
@@ -1960,8 +1960,8 @@ end-position of a drag event, this position list may
represent a
location outside the boundaries of the initially selected frame, in
which case the list contains that frame in place of a window.
-The special form @code{track-mouse} enables generation of motion
-events within its body. Outside of @code{track-mouse} forms, Emacs
+The @code{track-mouse} macro enables generation of motion
+events within its body. Outside of @code{track-mouse} body, Emacs
does not generate events for mere motion of the mouse, and these
events do not appear. @xref{Mouse Tracking}.
@@ -2395,6 +2395,17 @@ as @code{set-language-environment}), use the
;; Get the full localized name of the language
(w32-get-locale-info language-id t)
@end smallexample
+
+@cindex @code{end-session} event
+@item end-session
+This event is generated on MS-Windows when the operating system
+informs Emacs that the user terminated the interactive session, or
+that the system is shutting down. The standard definition of this
+event is to invoke the @code{kill-emacs} command (@pxref{Killing
+Emacs}) so as to shut down Emacs in an orderly fashion; if there are
+unsaved changes, this will produce auto-save files
+(@pxref{Auto-Saving}) that the user can use after restarting the
+session to restore the unsaved edits.
@end table
If one of these events arrives in the middle of a key sequence---that
@@ -2443,7 +2454,7 @@ into another window. That produces a pair of events like
these:
The frame with input focus might not take up the entire screen, and
the user might move the mouse outside the scope of the frame. Inside
-the @code{track-mouse} special form, that produces an event like this:
+the @code{track-mouse} macro, that produces an event like this:
@smallexample
(mouse-movement (#<frame *ielm* 0x102849a30> nil (563 . 205) 532301936))
@@ -3215,15 +3226,24 @@ unspecified, the only fallback disabled is downcasing
of the last
event.
@end defun
+@vindex read-char-choice-use-read-key
@defun read-char-choice prompt chars &optional inhibit-quit
-This function uses @code{read-key} to read and return a single
-character. It ignores any input that is not a member of @var{chars},
-a list of accepted characters. Optionally, it will also ignore
-keyboard-quit events while it is waiting for valid input. If you bind
-@code{help-form} (@pxref{Help Functions}) to a non-@code{nil} value
-while calling @code{read-char-choice}, then pressing @code{help-char}
-causes it to evaluate @code{help-form} and display the result. It
-then continues to wait for a valid input character, or keyboard-quit.
+This function uses @code{read-from-minibuffer} to read and return a
+single character that is a member of @var{chars}, which should be a
+list of single characters. It discards any input characters that are
+not members of @var{chars}, and shows a message to that effect.
+
+The optional argument @var{inhibit-quit} is by default ignored, but if
+the variable @code{read-char-choice-use-read-key} is non-@code{nil},
+this function uses @code{read-key} instead of
+@code{read-from-minibuffer}, and in that case @var{inhibit-quit}
+non-@code{nil} means ignore keyboard-quit events while waiting for
+valid input. In addition, if @code{read-char-choice-use-read-key} is
+non-@code{nil}, binding @code{help-form} (@pxref{Help Functions}) to a
+non-@code{nil} value while calling this function causes it to evaluate
+@code{help-form} and display the result when the user presses
+@code{help-char}; it then continues to wait for a valid input
+character, or for keyboard-quit.
@end defun
@defun read-multiple-choice prompt choices &optional help-string show-help
long-form
diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi
index 930903d5085..e621a28acda 100644
--- a/doc/lispref/control.texi
+++ b/doc/lispref/control.texi
@@ -1809,6 +1809,9 @@ wish the program to continue execution despite an error
in a subroutine.
In these cases, you would use @code{condition-case} to establish
@dfn{error handlers} to recover control in case of error.
+ For reporting problems without terminating the execution of the
+current command, consider issuing a warning instead. @xref{Warnings}.
+
Resist the temptation to use error handling to transfer control from
one part of the program to another; use @code{catch} and @code{throw}
instead. @xref{Catch and Throw}.
diff --git a/doc/lispref/customize.texi b/doc/lispref/customize.texi
index 308145def55..6d5d9e0a2bc 100644
--- a/doc/lispref/customize.texi
+++ b/doc/lispref/customize.texi
@@ -264,11 +264,12 @@ have any number of prefixes.
@end table
@cindex @code{custom-group} property
-The variables and subgroups of a group are stored in the
+The variables, faces, and subgroups of a group are stored in the
@code{custom-group} property of the group's symbol. @xref{Symbol
Plists}. The value of that property is a list of pairs whose
-@code{car} is the variable or subgroup symbol and the @code{cdr} is
-either @code{custom-variable} or @code{custom-group}.
+@code{car} is the symbol of the variable or the face or the subgroup,
+and the @code{cdr} is one of the corresponding symbols
+@code{custom-variable}, @code{custom-face}, or @code{custom-group}.
@end defmac
@defopt custom-unlispify-remove-prefixes
@@ -378,8 +379,15 @@ the option as a Lisp variable); preferably, though, it
should not
modify its value argument destructively. The default for
@var{setfunction} is @code{set-default-toplevel-value}.
+If defined, @var{setfunction} will also be called when evaluating a
+@code{defcustom} form with @kbd{C-M-x} in Emacs Lisp mode and when the
+@var{option}'s value is changed via the @code{setopt} macro
+(@pxref{Setting Variables, setopt}).
+
If you specify this keyword, the variable's documentation string
-should describe how to do the same job in hand-written Lisp code.
+should describe how to do the same job in hand-written Lisp code,
+either by invoking @var{setfunction} directly or by using
+@code{setopt}.
@item :get @var{getfunction}
@kindex get@r{, @code{defcustom} keyword}
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index a8311f5c9a2..f1b4b001889 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -310,29 +310,29 @@ reformatted, with undesirable results. Instead, use
@code{(message
"%s" @var{string})}.
@end defun
+The following facilities allow users and Lisp programs to control how
+echo-area messages are displayed.
+
@defvar set-message-function
If this variable is non-@code{nil}, it should be a function of one
-argument, the text of a message to display in the echo area. This
+argument, the text of a message to display in the echo area. That
function will be called by @code{message} and related functions. If
the function returns @code{nil}, the message is displayed in the echo
-area as usual. If this function returns a string, that string is
-displayed in the echo area instead of the original one. If this
-function returns other non-@code{nil} values, that means the message
-was already handled, so @code{message} will not display anything in
-the echo area. See also @code{clear-message-function} that can be
-used to clear the message displayed by this function.
-
-The default value is the function that displays the message at the end
-of the minibuffer when the minibuffer is active. However, if the text
-shown in the active minibuffer has the @code{minibuffer-message} text
-property (@pxref{Special Properties}) on some character, the message
-will be displayed before the first character having that property.
+area as usual. If the function returns a string, that string is
+displayed in the echo area @emph{instead} of the original message. If
+the function returns any other non-@code{nil} value, that means the
+message was already handled, so @code{message} will not display
+anything in the echo area.
+
+The default value calls @code{set-minibuffer-message}, described
+below.
@end defvar
@defvar clear-message-function
-If this variable is non-@code{nil}, @code{message} and related
-functions call it with no arguments when their argument message is
-@code{nil} or the empty string.
+If this variable is non-@code{nil}, it should be a function of no
+arguments; @code{message} and related functions call it when their
+argument message is @code{nil} or the empty string, to clear the echo
+area.
Usually this function is called when the next input event arrives
after displaying an echo-area message. The function is expected to
@@ -358,11 +358,51 @@ with the same text; if the last function in the list
returns
function returns a non-@code{nil} value that is not a string, the
message is considered to be handled, and no further functions in the
list are called.
+
+The three useful functions to be put in the list that is the value of
+this option are described below.
@end defopt
+@defun set-minibuffer-message message
+This function displays @var{message} in the echo-area when the
+minibuffer is not active, and at the end of the minibuffer when the
+minibuffer is active. However, if the text shown in the active
+minibuffer has the @code{minibuffer-message} text property
+(@pxref{Special Properties}) on some character, the message will be
+displayed before the first character having that property.
+
+This function is by default the only member of the list in
+@code{set-message-functions}.
+@end defun
+
+@vindex inhibit-message-regexps
+@defun inhibit-message message
+If an echo-area @var{message} matches any regexp in the list that is
+the value of the user option @code{inhibit-message-regexps}, this
+function suppresses the display of that message and returns a
+non-@code{nil} value that is not a string. Thus, if this function is
+in the list @code{set-message-functions}, the rest of the functions in
+the list will not be called when @var{message} matches the regexps in
+@code{inhibit-message-regexps}. To ensure a matching @var{message}
+will never be displayed, make this function be the first element of
+the list in @code{set-message-functions}.
+@end defun
+
+@vindex multi-message-max
+@vindex multi-message-timeout
+@defun set-multi-message message
+This function accumulates several echo-area messages emitted one after
+another, and returns them as a single string in which individual
+messages are separated by newlines. Up to @code{multi-message-max}
+recent messages can be accumulated. The accumulated messages are
+discarded when more than @code{multi-message-timeout} seconds have
+elapsed since the time the first message was emitted.
+@end defun
+
@defvar inhibit-message
When this variable is non-@code{nil}, @code{message} and related functions
-will not use the Echo Area to display messages.
+will not display any messages in the Echo Area. Echo-area messages
+are still logged in the @file{*Messages*} buffer, though.
@end defvar
@defmac with-temp-message message &rest body
@@ -712,7 +752,8 @@ echo area (which is really a special use of the minibuffer
window;
@cindex warnings
@dfn{Warnings} are a facility for a program to inform the user of a
-possible problem, but continue running.
+possible problem, but continue running (as opposed to signaling an
+error, @pxref{Errors}).
@menu
* Warning Basics:: Warnings concepts and functions to report them.
@@ -725,69 +766,74 @@ possible problem, but continue running.
@subsection Warning Basics
@cindex severity level
- Every warning has a textual message, which explains the problem for
-the user, and a @dfn{severity level} which is a symbol. Here are the
-possible severity levels, in order of decreasing severity, and their
-meanings:
+ Every warning is a textual message, which explains the problem for
+the user, with the associated @dfn{severity level} which is a symbol.
+Here are the supported severity levels, in order of decreasing
+severity, and their meanings:
@table @code
@item :emergency
A problem that will seriously impair Emacs operation soon
-if you do not attend to it promptly.
+if the user does not attend to it promptly.
@item :error
-A report of data or circumstances that are inherently wrong.
+A report about data or circumstances that are inherently wrong.
@item :warning
-A report of data or circumstances that are not inherently wrong, but
-raise suspicion of a possible problem.
+A report about data or circumstances that are not inherently wrong,
+but raise suspicion of a possible problem.
@item :debug
-A report of information that may be useful if you are debugging.
+A report of information that may be useful if the user is currently
+debugging the Lisp program which issues the warning.
@end table
When your program encounters invalid input data, it can either
-signal a Lisp error by calling @code{error} or @code{signal} or report
-a warning with severity @code{:error}. Signaling a Lisp error is the
-easiest thing to do, but it means the program cannot continue
-processing. If you want to take the trouble to implement a way to
-continue processing despite the bad data, then reporting a warning of
-severity @code{:error} is the right way to inform the user of the
-problem. For instance, the Emacs Lisp byte compiler can report an
-error that way and continue compiling other functions. (If the
-program signals a Lisp error and then handles it with
-@code{condition-case}, the user won't see the error message; it could
-show the message to the user by reporting it as a warning.)
-
-@c FIXME: Why use "(bytecomp)" instead of "'bytecomp" or simply
-@c "bytecomp" here? The parens are part of warning-type-format but
-@c not part of the warning type. --xfq
+signal a Lisp error by calling @code{error} or @code{signal}
+(@pxref{Signaling Errors}) or report a warning with severity
+@code{:error}. Signaling a Lisp error is the easiest thing to do, but
+it means the signaling program cannot continue execution. If you want
+to take the trouble of implementing a way to continue processing
+despite the invalid data, then reporting a warning of severity
+@code{:error} is the right way of informing the user of the problem.
+For instance, the Emacs Lisp byte compiler can report an error that
+way and continue compiling other functions. (If the program signals a
+Lisp error and then handles it with @code{condition-case}, the user
+won't see the error message; reporting that as a warning instead
+avoids that problem.)
+
@cindex warning type
- Each warning has a @dfn{warning type} to classify it. The type is a
-list of symbols. The first symbol should be the custom group that you
-use for the program's user options. For example, byte compiler
-warnings use the warning type @code{(bytecomp)}. You can also
-subcategorize the warnings, if you wish, by using more symbols in the
-list.
+ In addition to severity level, each warning has a @dfn{warning type}
+to classify it. The warning type is either a symbol or a list of
+symbols. If it is a symbol, it should be the custom group that you
+use for the program's user options; if it is a list, the first element
+of the list should be that custom group. For example, byte compiler
+warnings use the warning type @code{(bytecomp)}. If the warning type
+is a list, the elements of the list after the first one, which should
+be arbitrary symbols, represent subcategories of the warning: they
+will be displayed to the user to better explain the nature of the
+warning.
@defun display-warning type message &optional level buffer-name
-This function reports a warning, using @var{message} as the message
-and @var{type} as the warning type. @var{level} should be the
-severity level, with @code{:warning} being the default.
+This function reports a warning, using the string @var{message} as the
+warning text and @var{type} as the warning type. @var{level} should
+be the severity level, and defaults to @code{:warning} if omitted or
+@code{nil}.
@var{buffer-name}, if non-@code{nil}, specifies the name of the buffer
-for logging the warning. By default, it is @file{*Warnings*}.
+for logging the warning message. By default, it is @file{*Warnings*}.
@end defun
@defun lwarn type level message &rest args
-This function reports a warning using the value of @code{(format-message
-@var{message} @var{args}...)} as the message in the @file{*Warnings*}
-buffer. In other respects it is equivalent to @code{display-warning}.
+This function reports a warning using the value returned by
+@w{@code{(format-message @var{message} @var{args}@dots{})}} as the
+message text in the @file{*Warnings*} buffer. In other respects it is
+equivalent to @code{display-warning}.
@end defun
@defun warn message &rest args
-This function reports a warning using the value of @code{(format-message
-@var{message} @var{args}...)} as the message, @code{(emacs)} as the
-type, and @code{:warning} as the severity level. It exists for
-compatibility only; we recommend not using it, because you should
-specify a specific warning type.
+This function reports a warning using the value returned by
+@w{@code{(format-message @var{message} @var{args}@dots{})}} as the
+message text, @code{emacs} as the warning type, and @code{:warning} as
+the severity level. It exists for compatibility only; we recommend
+not using it, because you should specify a specific warning type.
@end defun
@node Warning Variables
@@ -802,15 +848,16 @@ This list defines the meaning and severity order of the
warning
severity levels. Each element defines one severity level,
and they are arranged in order of decreasing severity.
-Each element has the form @code{(@var{level} @var{string}
-@var{function})}, where @var{level} is the severity level it defines.
-@var{string} specifies the textual description of this level.
-@var{string} should use @samp{%s} to specify where to put the warning
-type information, or it can omit the @samp{%s} so as not to include
-that information.
+Each element has the form @w{@code{(@var{level} @var{string}
+[@var{function}])}}, where @var{level} is the severity level it
+defines. @var{string} specifies the textual description of this
+level. @var{string} should use @samp{%s} to specify where to put the
+warning type information, or it can omit the @samp{%s} so as not to
+include that information.
The optional @var{function}, if non-@code{nil}, is a function to call
-with no arguments, to get the user's attention.
+with no arguments, to get the user's attention. A notable example is
+@code{ding} (@pxref{Beeping}).
Normally you should not change the value of this variable.
@end defvar
@@ -819,18 +866,19 @@ Normally you should not change the value of this variable.
If non-@code{nil}, the value is a function to generate prefix text for
warnings. Programs can bind the variable to a suitable function.
@code{display-warning} calls this function with the warnings buffer
-current, and the function can insert text in it. That text becomes
-the beginning of the warning message.
+the current buffer, and the function can insert text into it. That
+text becomes the beginning of the warning message.
The function is called with two arguments, the severity level and its
-entry in @code{warning-levels}. It should return a list to use as the
-entry (this value need not be an actual member of
-@code{warning-levels}). By constructing this value, the function can
-change the severity of the warning, or specify different handling for
-a given severity level.
-
-If the variable's value is @code{nil} then there is no function
-to call.
+entry in @code{warning-levels}. It should return a list to use
+@emph{instead} of that entry (the value need not be an actual member
+of @code{warning-levels}, but it must have the same structure). By
+constructing this value, the function can change the severity of the
+warning, or specify different handling for a given severity level.
+
+If the variable's value is @code{nil}, there's no prefix text, before
+the warning is displayed, starting with the @var{string} part of the
+entry in @code{warning-levels} corresponding to the warning's level.
@end defvar
@defvar warning-series
@@ -838,17 +886,18 @@ Programs can bind this variable to @code{t} to say that
the next
warning should begin a series. When several warnings form a series,
that means to leave point on the first warning of the series, rather
than keep moving it for each warning so that it appears on the last one.
-The series ends when the local binding is unbound and
+The series ends when the local binding of this variable is unbound and
@code{warning-series} becomes @code{nil} again.
The value can also be a symbol with a function definition. That is
equivalent to @code{t}, except that the next warning will also call
-the function with no arguments with the warnings buffer current. The
-function can insert text which will serve as a header for the series
-of warnings.
+the function with no arguments with the warnings buffer the current
+buffer. The function can, for example, insert text which will serve
+as a header for the series of warnings.
-Once a series has begun, the value is a marker which points to the
-buffer position in the warnings buffer of the start of the series.
+Once a series has begun, the value of this variable is a marker which
+points to the buffer position in the warnings buffer of the start of
+the series.
The variable's normal value is @code{nil}, which means to handle
each warning separately.
@@ -856,7 +905,7 @@ each warning separately.
@defvar warning-fill-prefix
When this variable is non-@code{nil}, it specifies a fill prefix to
-use for filling each warning's text.
+use for filling the text of each warning.
@end defvar
@defvar warning-fill-column
@@ -865,11 +914,11 @@ The column at which to fill warnings.
@defvar warning-type-format
This variable specifies the format for displaying the warning type
-in the warning message. The result of formatting the type this way
+in the warning text. The result of formatting the type this way
gets included in the message under the control of the string in the
entry in @code{warning-levels}. The default value is @code{" (%s)"}.
-If you bind it to @code{""} then the warning type won't appear at
-all.
+If you bind it to the empty string @code{""} then the warning type
+won't appear at all.
@end defvar
@node Warning Options
@@ -881,38 +930,71 @@ when a Lisp program reports a warning.
@defopt warning-minimum-level
This user option specifies the minimum severity level that should be
-shown immediately to the user. The default is @code{:warning}, which
-means to immediately display all warnings except @code{:debug}
-warnings.
+shown immediately to the user, by popping the warnings buffer in some
+window. The default is @code{:warning}, which means to show the
+warning buffer for any warning severity except @code{:debug}. The
+warnings of lower severity levels will still be written into the
+warnings buffer, but the buffer will not be forced onto display.
@end defopt
@defopt warning-minimum-log-level
This user option specifies the minimum severity level that should be
-logged in the warnings buffer. The default is @code{:warning}, which
-means to log all warnings except @code{:debug} warnings.
+logged in the warnings buffer. Warnings of lower severity will be
+completely ignored: not written to the warnings buffer and not
+displayed. The default is @code{:warning}, which means to log
+warnings of any severity except @code{:debug}.
@end defopt
@defopt warning-suppress-types
This list specifies which warning types should not be displayed
-immediately for the user. Each element of the list should be a list
-of symbols. If its elements match the first elements in a warning
-type, then that warning is not displayed immediately.
+immediately when they occur. Each element of the list should be a
+list of symbols. If an element of this list has the same elements as
+the first elements in a warning type, then the warning of that type
+will not be shown on display by popping the warnings buffer in some
+window (the warning will still be logged in the warnings buffer).
+
+For example, if the value of this variable is a list like this:
+
+@lisp
+((foo) (bar subtype))
+@end lisp
+
+@noindent
+then warnings whose types are @code{foo} or @code{(foo)} or
+@w{@code{(foo something)}} or @w{@code{(bar subtype other)}} will not
+be shown to the user.
@end defopt
@defopt warning-suppress-log-types
-This list specifies which warning types should not be logged in the
-warnings buffer. Each element of the list should be a list of
-symbols. If it matches the first few elements in a warning type, then
-that warning is not logged.
+This list specifies which warning types should be ignored: not logged
+in the warnings buffer and not shown to the user. The structure and
+the matching of warning types are the same as for
+@code{warning-suppress-types} above.
@end defopt
+@cindex warnings, suppressing during startup
+@cindex prevent warnings in init files
+ During startup, Emacs delays showing any warnings until after it
+loads and processes the site-wide and user's init files
+(@pxref{Startup Summary}). Let-binding (@pxref{Local Variables}) the
+values of these options around some code in your init files which
+might emit a warning will therefore not work, because it will not be
+in effect by the time the warning is actually processed. Thus, if you
+want to suppress some warnings during startup, change the values of
+the above options in your init file early enough, or put those
+let-binding forms in your @code{after-init-hook} or
+@code{emacs-startup-hook} functions. @xref{Init File}.
+
@node Delayed Warnings
@subsection Delayed Warnings
@cindex delayed warnings
+@cindex warnings, delayed
Sometimes, you may wish to avoid showing a warning while a command is
running, and only show it only after the end of the command. You can
-use the function @code{delay-warning} for this.
+use the function @code{delay-warning} for this. Emacs automatically
+delays any warnings emitted during the early stages of startup, and
+shows them only after the init files are processed.
@defun delay-warning type message &optional level buffer-name
This function is the delayed counterpart to @code{display-warning}
@@ -933,7 +1015,7 @@ with the same form, and the same meanings, as the argument
list of
@code{display-warning}. Immediately after running
@code{post-command-hook} (@pxref{Command Overview}), the Emacs
command loop displays all the warnings specified by this variable,
-then resets it to @code{nil}.
+then resets the variable to @code{nil}.
@end defvar
Programs which need to further customize the delayed warnings
@@ -942,7 +1024,9 @@ mechanism can change the variable
@code{delayed-warnings-hook}:
@defvar delayed-warnings-hook
This is a normal hook which is run by the Emacs command loop, after
@code{post-command-hook}, in order to process and display delayed
-warnings.
+warnings. Emacs also runs this hook during startup, after loading the
+site-start and user init files (@pxref{Startup Summary}), because
+warnings emitted before that are automatically delayed.
Its default value is a list of two functions:
@@ -2345,10 +2429,11 @@ newline. The property value can be one of several
forms:
@item t
If the property value is @code{t}, the newline character has no
effect on the displayed height of the line---the visible contents
-alone determine the height. The @code{line-spacing} property,
-described below, is also ignored in this case. This is useful for
-tiling small images (or image slices) without adding blank areas
-between the images.
+alone determine the height. The @code{line-spacing} property of the
+newline, described below, is also ignored in this case. This is
+useful for tiling small images (or image slices) without adding blank
+areas between the images.
+
@item (@var{height} @var{total})
If the property value is a list of the form shown, that adds extra
space @emph{below} the display line. First Emacs uses @var{height} as
@@ -2409,7 +2494,9 @@ overrides line spacings specified for the frame.
property that can enlarge the default frame line spacing and the
buffer local @code{line-spacing} variable: if its value is larger than
the buffer or frame defaults, that larger value is used instead, for
-the display line ending in that newline.
+the display line ending in that newline (unless the newline also has
+the @code{line-height} property whose value is one of the special
+values which cause @code{line-spacing} to be ignored, see above).
One way or another, these mechanisms specify a Lisp value for the
spacing of each line. The value is a height spec, and it translates
@@ -6833,7 +6920,7 @@ This function puts image @var{image} in front of
@var{pos} in the
current buffer. The argument @var{pos} should be an integer or a
marker. It specifies the buffer position where the image should appear.
The argument @var{string} specifies the text that should hold the image
-as an alternative to the default.
+as an alternative to the default @samp{x}.
The argument @var{image} must be an image descriptor, perhaps returned
by @code{create-image} or stored by @code{defimage}.
@@ -6846,7 +6933,7 @@ buffer's text.
Internally, this function creates an overlay, and gives it a
@code{before-string} property containing text that has a @code{display}
-property whose value is the image. (Whew!)
+property whose value is the image. (Whew! that was a mouthful@dots{})
@end defun
@defun remove-images start end &optional buffer
@@ -6893,41 +6980,47 @@ This function returns @code{t} if point is on an image,
and @code{nil}
otherwise.
@end defun
+@cindex operations on images
Images inserted with the insertion functions above also get a local
keymap installed in the text properties (or overlays) that span the
displayed image. This keymap defines the following commands:
@table @kbd
+@findex image-increase-size
@item i +
-Increase the image size (@code{image-increase-size}). A prefix value
-of @samp{4} means to increase the size by 40%. The default is 20%.
+Increase the image size (@code{image-increase-size})
+@findex image-decrease-size
@item i -
-Decrease the image size (@code{image-increase-size}). A prefix value
-of @samp{4} means to decrease the size by 40%. The default is 20%.
+Decrease the image size (@code{image-decrease-size}).
+@findex image-rotate
@item i r
-Rotate the image by 90 degrees clockwise (@code{image-rotate}).
-A prefix means to rotate by 90 degrees counter-clockwise instead.
+Rotate the image (@code{image-rotate}).
+@findex image-flip-horizontally
@item i h
Flip the image horizontally (@code{image-flip-horizontally}).
+@findex image-flip-vertically
@item i v
Flip the image vertically (@code{image-flip-vertically}).
+@findex image-save
@item i o
Save the image to a file (@code{image-save}).
+@findex image-crop
@item i c
-Crop the image interactively (@code{image-crop}).
+Interactively crop the image (@code{image-crop}).
+@findex image-cut
@item i x
-Cut a rectangle from the image interactively (@code{image-cut}).
+Interactively cut a rectangle from the image (@code{image-cut}).
@end table
-The size and rotation commands are ``repeating'', which means that you
-can continue adjusting the image without using the @kbd{i} prefix.
+@xref{Image Mode,,, emacs, The GNU Emacs Manual}, for more details
+about these image-specific key bindings.
@node Multi-Frame Images
@subsection Multi-Frame Images
diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index b15f2ab4d29..3982eb14f2b 100644
--- a/doc/lispref/files.texi
+++ b/doc/lispref/files.texi
@@ -3390,7 +3390,7 @@ first, before handlers for jobs such as remote file
access.
@code{file-directory-p},
@code{file-equal-p},
@code{file-executable-p}, @code{file-exists-p},
-@code{file-in-directory-p},
+@code{file-group-gid}, @code{file-in-directory-p},
@code{file-local-copy}, @code{file-locked-p},
@code{file-modes}, @code{file-name-all-completions},
@code{file-name-as-directory},
@@ -3452,7 +3452,7 @@ first, before handlers for jobs such as remote file
access.
@code{file-direc@discretionary{}{}{}tory-p},
@code{file-equal-p},
@code{file-executable-p}, @code{file-exists-p},
-@code{file-in-directory-p},
+@code{file-group-gid}, @code{file-in-directory-p},
@code{file-local-copy}, @code{file-locked-p},
@code{file-modes}, @code{file-name-all-completions},
@code{file-name-as-directory},
diff --git a/doc/lispref/frames.texi b/doc/lispref/frames.texi
index e0766ad0b43..c78ab1c34ba 100644
--- a/doc/lispref/frames.texi
+++ b/doc/lispref/frames.texi
@@ -3577,7 +3577,7 @@ the mouse position list will be @code{nil} if the value is
@code{drag-source}. This is useful to determine if a frame is not
directly visible underneath the mouse pointer.
-The @code{track-mouse} form causes Emacs to generate mouse motion
+The @code{track-mouse} macro causes Emacs to generate mouse motion
events by binding the variable @code{track-mouse} to a
non-@code{nil} value. If that variable has the special value
@code{dragging}, it additionally instructs the display engine to
@@ -4112,7 +4112,7 @@ has the same meaning as the @var{action} argument to
Emacs implements receiving text and URLs individually for each
window system, and does not by default support receiving other kinds
of data as drops. To support receiving other kinds of data, use the
-X-specific interface described below:
+X-specific interface described below.
@vindex x-dnd-test-function
@vindex x-dnd-known-types
@@ -4141,29 +4141,71 @@ depending on the specific drag-and-drop protocol being
used. For
example, the data type used for plain text may be either
@code{"STRING"} or @code{"text/plain"}.
+@cindex XDS
+@cindex direct save protocol
@vindex x-dnd-direct-save-function
-@c FIXME: This description is overly-complicated and confusing. In
-@c particular, the two calls to the function basically sound
-@c identical, so it is unclear how should the function distinguish
-@c between the first and the second one. The description of who asks
-@c whom to do what is also very hard to understand. Needs rewording,
-@c and needs shorter sentences. Perhaps examples could help.
- However, @code{x-dnd-types-alist} does not handle a special kind of
-drop sent by a program that wants Emacs to tell it where to save a
-file in a specific location determined by the user. These drops are
-instead handled by a function that is the value of the variable
-@code{x-dnd-direct-save-function}. This function should accept two arguments.
-If the first argument is non-@code{nil}, then the second argument is a
-file name to save (with leading directories) that the other
-program recommends, and the
-function should return the full file name under which it should be
-saved. After the function completes, Emacs will ask the other program
-to save the file under the name that was returned, and if the file was
-successfully saved, call the function again with the first argument
-set to a non-@code{nil} value and the second argument set to the file
-name that was returned. The function should then perform whatever
-action is appropriate (i.e., opening the file or refreshing a
-directory listing.)
+ When Emacs runs on X window system, it supports the X Direct Save
+(@acronym{XDS}) protocol, which allows users to save a file by
+dragging and dropping it onto an Emacs window, such as a Dired window.
+To comply with the unique requirements of @acronym{XDS}, these
+drag-and-drop requests are processed specially: instead of being
+handled according to @code{x-dnd-types-alist}, they are handled by the
+@dfn{direct-save function} that is the value of the variable
+@code{x-dnd-direct-save-function}. The value should be a function of
+two arguments, @var{need-name} and @var{filename}. The @acronym{XDS}
+protocol uses a two-step procedure for dragging files:
+
+@enumerate 1
+@item
+The application from which the file is dragged asks Emacs to provide
+the full file name under which to save the file. For this purpose,
+the direct-save function is called with its first argument
+@var{need-name} non-@code{nil}, and the second argument @var{filename}
+set to the basename of the file to be saved. It should return the
+fully-expanded absolute file name under which to save the file. For
+example, if a file is dragged to a Dired window, the natural directory
+for the file is the directory of the file shown at location of the
+drop. If saving the file is not possible for some reason, the
+function should return @code{nil}, which will cancel the drag-and-drop
+operation.
+
+@item
+The application from which the file is dragged saves the file under
+the name returned by the first call to the direct-save function. If
+it succeeds in saving the file, the direct-save function is called
+again, this time with the first argument @var{need-name} set to
+@code{nil} and the second argument @var{filename} set to the full
+absolute name of the saved file. The function is then expected to do
+whatever is needed given the fact that file was saved. For example,
+Dired should update the directory on display by showing the new file
+there.
+@end enumerate
+
+The default value of @code{x-dnd-direct-save-function} is
+@code{x-dnd-save-direct}.
+
+@defun x-dnd-save-direct need-name filename
+When called with the @var{need-name} argument non-@code{nil}, this
+function prompts the user for the absolute file name under which it
+should be saved. If the specified file already exists, it
+additionally asks the user whether to overwrite it, and returns the
+absolute file name only if the user confirms the overwriting.
+
+When called with the @var{need-name} argument @code{nil}, it reverts
+the Dired listing if the current buffer is in Dired mode or one of its
+descendants, and otherwise visits the file by calling @code{find-file}
+(@pxref{Visiting Functions}).
+@end defun
+
+@defun x-dnd-save-direct-immediately need-name filename
+This function works like @code{x-dnd-save-direct}, but when called
+with its @var{need-name} argument non-@code{nil}, it doesn't prompt
+the user for the full name of the file to be saved; instead, it
+returns its argument @var{filename} expanded against the current
+buffer's default directory (@pxref{File Name Expansion}). (It still
+asks for confirmation if a file by that name already exists in the
+default directory.)
+@end defun
@cindex initiating drag-and-drop
On capable window systems, Emacs also supports dragging contents
diff --git a/doc/lispref/functions.texi b/doc/lispref/functions.texi
index e9841821431..a94fdee1d82 100644
--- a/doc/lispref/functions.texi
+++ b/doc/lispref/functions.texi
@@ -593,8 +593,8 @@ symbol a function definition, its function cell is said to
be
In practice, nearly all functions have names, and are referred to by
their names. You can create a named Lisp function by defining a
lambda expression and putting it in a function cell (@pxref{Function
-Cells}). However, it is more common to use the @code{defun} special
-form, described in the next section.
+Cells}). However, it is more common to use the @code{defun} macro,
+described in the next section.
@ifnottex
@xref{Defining Functions}.
@end ifnottex
@@ -1484,7 +1484,7 @@ the symbol as a function, Emacs signals a
@code{void-function} error.
Note that void is not the same as @code{nil} or the symbol
@code{void}. The symbols @code{nil} and @code{void} are Lisp objects,
and can be stored into a function cell just as any other object can be
-(and they can be valid functions if you define them in turn with
+(and @code{void} can be a valid function if you define it with
@code{defun}). A void function cell contains no object whatsoever.
You can test the voidness of a symbol's function definition with
@@ -2365,6 +2365,11 @@ this:
(set-advertised-calling-convention
'sit-for '(seconds &optional nodisp) "22.1")
@end example
+
+@noindent
+The alternative to using this function is the
+@code{advertised-calling-convention} @code{declare} spec, see
+@ref{Declare Form}.
@end defun
@node Inline Functions
@@ -2541,6 +2546,7 @@ Each element in @var{specs} should have the form
@code{(@var{property}
following effects:
@table @code
+@cindex @code{advertised-calling-convention} (@code{declare} spec)
@item (advertised-calling-convention @var{signature} @var{when})
This acts like a call to @code{set-advertised-calling-convention}
(@pxref{Obsolete Functions}); @var{signature} specifies the correct
@@ -2566,6 +2572,7 @@ This is typically used for macros, though it works for
functions too.
Set the function's @code{interactive-only} property to @var{value}.
@xref{The interactive-only property}.
+@cindex @code{obsolete} (@code{declare} spec)
@item (obsolete @var{current-name} @var{when})
Mark the function or macro as obsolete, similar to a call to
@code{make-obsolete} (@pxref{Obsolete Functions}). @var{current-name}
@@ -2631,6 +2638,12 @@ so the byte compiler can ignore calls whose value is
ignored. This is
the same as the @code{side-effect-free} property of the function's
symbol, @pxref{Standard Properties}.
+@item (important-return-value @var{val})
+If @var{val} is non-@code{nil}, the byte compiler will warn about
+calls to this function that do not use the returned value. This is the
+same as the @code{important-return-value} property of the function's
+symbol, @pxref{Standard Properties}.
+
@item (speed @var{n})
Specify the value of @code{native-comp-speed} in effect for native
compilation of this function (@pxref{Native-Compilation Variables}).
@@ -2693,13 +2706,14 @@ byte compiler can check that the calls match the
declaration.
Tell the byte compiler to assume that @var{function} is defined in the
file @var{file}. The optional third argument @var{arglist} is either
@code{t}, meaning the argument list is unspecified, or a list of
-formal parameters in the same style as @code{defun}. An omitted
-@var{arglist} defaults to @code{t}, not @code{nil}; this is atypical
-behavior for omitted arguments, and it means that to supply a fourth
-but not third argument one must specify @code{t} for the third-argument
-placeholder instead of the usual @code{nil}. The optional fourth
-argument @var{fileonly} non-@code{nil} means check only that
-@var{file} exists, not that it actually defines @var{function}.
+formal parameters in the same style as @code{defun} (including the
+parentheses). An omitted @var{arglist} defaults to @code{t}, not
+@code{nil}; this is atypical behavior for omitted arguments, and it
+means that to supply a fourth but not third argument one must specify
+@code{t} for the third-argument placeholder instead of the usual
+@code{nil}. The optional fourth argument @var{fileonly}
+non-@code{nil} means check only that @var{file} exists, not that it
+actually defines @var{function}.
@end defmac
@findex check-declare-file
diff --git a/doc/lispref/help.texi b/doc/lispref/help.texi
index 59b6b6dab1d..d5e4e1c31d3 100644
--- a/doc/lispref/help.texi
+++ b/doc/lispref/help.texi
@@ -989,3 +989,29 @@ in the function group to insert the function into.
If @var{group} doesn't exist, it will be created. If @var{section}
doesn't exist, it will be added to the end of the function group.
@end defun
+
+You can also query the examples of use of functions defined in
+shortdoc groups.
+
+@defun shortdoc-function-examples function
+This function returns all shortdoc examples for @var{function}. The
+return value is an alist with items of the form
+@w{@code{(@var{group} . @var{examples})}}, where @var{group} is a
+documentation group where @var{function} appears, and @var{examples}
+is a string with the examples of @var{function}s use as defined in
+@var{group}.
+
+@code{shortdoc-function-examples} returns @code{nil} if @var{function}
+is not a function or if it doesn't have any shortdoc examples.
+@end defun
+
+@vindex help-fns-describe-function-functions
+@defun shortdoc-help-fns-examples-function function
+This function queries the registered shortdoc groups and inserts
+examples of use of a given Emacs Lisp @var{function} into the current
+buffer. It is suitable for addition to the
+@code{help-fns-describe-function-functions} hook, in which case
+examples from shortdoc of using a function will be displayed in the
+@file{*Help*} buffer when the documentation of the function is
+requested.
+@end defun
diff --git a/doc/lispref/internals.texi b/doc/lispref/internals.texi
index 55f07e86f76..9928361f7b2 100644
--- a/doc/lispref/internals.texi
+++ b/doc/lispref/internals.texi
@@ -558,12 +558,15 @@ The initial threshold value is
@code{GC_DEFAULT_THRESHOLD}, defined in
value is 400,000 for the default 32-bit configuration and 800,000 for
the 64-bit one. If you specify a larger value, garbage collection
will happen less often. This reduces the amount of time spent garbage
-collecting, but increases total memory use. You may want to do this
-when running a program that creates lots of Lisp data. However, we
+collecting (so Lisp programs will run faster between cycles of garbage
+collection that happen more rarely), but increases total memory use.
+You may want to do this when running a program that creates lots of
+Lisp data, especially if you need it to run faster. However, we
recommend against increasing the threshold for prolonged periods of
time, and advise that you never set it higher than needed for the
program to run in reasonable time. Using thresholds higher than
-necessary could potentially cause system-wide memory pressure, and
+necessary could potentially cause higher system-wide memory pressure,
+and also make each garbage-collection cycle take much more time, and
should therefore be avoided.
You can make collections more frequent by specifying a smaller value, down
diff --git a/doc/lispref/keymaps.texi b/doc/lispref/keymaps.texi
index 7876780dcd4..6d07ad5be2c 100644
--- a/doc/lispref/keymaps.texi
+++ b/doc/lispref/keymaps.texi
@@ -451,9 +451,70 @@ Here's an example:
@lisp
(defvar-keymap eww-textarea-map
:parent text-mode-map
+ :doc "Keymap for the eww text area."
"RET" #'forward-line
"TAB" #'shr-next-link)
@end lisp
+
+@kindex :repeat
+@kindex repeat-mode
+@cindex repeatable key bindings
+Each command in the keymap can be marked as `repeatable', i.e. usable
+in @code{repeat-mode}, by putting a @code{repeat-map} property on it,
+e.g.
+
+@lisp
+(put 'undo 'repeat-map 'undo-repeat-map)
+@end lisp
+
+where the value of the property is the map to be used by
+@code{repeat-mode}.
+
+To avoid repetitive invocations of @code{put}, @code{defvar-keymap}
+also has a @code{:repeat} keyword, which can be used to specify which
+commands in the keymap are usable by @code{repeat-mode}. The
+following values are available:
+
+@table @code
+@item t
+This means all the commands in the keymap are repeatable, and is the
+most common usage.
+
+@item (:enter (commands ...) :exit (commands ...))
+This specifies that the commands in the @code{:enter} list enter
+@code{repeat-mode}, and the commands in the @code{:exit} list exit
+repeat mode.
+
+If the @code{:enter} list is empty, then all commands in the map enter
+@code{repeat-mode}. Specifying one or more commands in this list is
+useful if there is a command which doesn't exist in the map being
+defined, but which should have the @code{repeat-map} property.
+
+If the @code{:exit} list is empty then no commands in the map exit
+@code{repeat-mode}. Specifying one ore more commands in this list is
+useful if the keymap being defined contains a command that should not
+have the @code{repeat-map} property.
+@end table
+
+In order to make e.g.@: @kbd{u} repeat the @code{undo} command, the
+following two stanzas are equivalent:
+
+@lisp
+(defvar-keymap undo-repeat-map
+ "u" #'undo)
+(put 'undo 'repeat-map 'undo-repeat-map)
+@end lisp
+
+and
+
+@lisp
+(defvar-keymap undo-repeat-map
+ :repeat t
+ "u" #'undo)
+@end lisp
+
+The latter is preferred when there are many commands in the map, all
+of which should be repeatable.
@end defmac
@defun copy-keymap keymap
@@ -707,8 +768,8 @@ prefix definition, and then by those from the global map.
In the following example, we make @kbd{C-p} a prefix key in the local
keymap, in such a way that @kbd{C-p} is identical to @kbd{C-x}. Then
the binding for @kbd{C-p C-f} is the function @code{find-file}, just
-like @kbd{C-x C-f}. The key sequence @kbd{C-p 6} is not found in any
-active keymap.
+like @kbd{C-x C-f}. By contrast, the key sequence @kbd{C-p 9} is not
+found in any active keymap.
@example
@group
@@ -717,15 +778,14 @@ active keymap.
@end group
@group
(keymap-local-set "C-p" ctl-x-map)
- @result{} nil
+ @result{} (keymap #^[nil nil keymap @dots{}
@end group
@group
-(keymap-binding "C-p C-f")
+(keymap-lookup nil "C-p C-f")
@result{} find-file
@end group
-
@group
-(keymap-binding "C-p 6")
+(keymap-lookup nil "C-p 9")
@result{} nil
@end group
@end example
@@ -822,7 +882,7 @@ Normally it ignores @code{overriding-local-map} and
then it pays attention to them. @var{position} can optionally be either
an event position as returned by @code{event-start} or a buffer
position, and may change the keymaps as described for
-@code{keymap-binding}.
+@code{keymap-lookup} (@pxref{Functions for Key Lookup, keymap-lookup}).
@end defun
@node Searching Keymaps
@@ -1247,7 +1307,11 @@ the second example.
@end group
@end example
-The @var{keymap} argument can also be a list of keymaps.
+The @var{keymap} argument can be @code{nil}, meaning to look up
+@var{key} in the current keymaps (as returned by
+@code{current-active-maps}, @pxref{Active Keymaps}); or it can be a
+keymap or a list of keymaps, meaning to look up @var{key} only in the
+specified keymaps.
Unlike @code{read-key-sequence}, this function does not modify the
specified events in ways that discard information (@pxref{Key Sequence
@@ -1440,6 +1504,24 @@ bindings in a keymap makes no difference for keyboard
input, but it
does matter for menu keymaps (@pxref{Menu Keymaps}).
@end defun
+@findex keymap-unset
+@defun keymap-unset keymap key &optional remove
+This function is the inverse of @code{keymap-set}, it unsets the
+binding for @var{key} in @var{keymap}, which is the same as setting
+the binding to @code{nil}. In order to instead remove the binding
+completely, specify @var{remove} as non-@code{nil}. This only makes a
+difference if @var{keymap} has a parent keymap: if you just unset a key
+in a child map, it will still shadow the same key in the parent
+keymap; using @var{remove} instead will allow the key in the parent keymap
+to be used.
+@end defun
+
+Note: using @code{keymap-unset} with @var{remove} non-@code{nil} is
+intended for users to put in their init file; Emacs packages should
+avoid using it if possible, since they have complete control over
+their own keymaps anyway, and they should not be altering other
+packages' keymaps.
+
This example creates a sparse keymap and makes a number of
bindings in it:
diff --git a/doc/lispref/lists.texi b/doc/lispref/lists.texi
index 3478049c84f..6a00f2887e7 100644
--- a/doc/lispref/lists.texi
+++ b/doc/lispref/lists.texi
@@ -696,29 +696,17 @@ not a list, the sequence's elements do not become
elements of the
resulting list. Instead, the sequence becomes the final @sc{cdr}, like
any other non-list final argument.
-@defun copy-tree tree &optional vecp
+@defun copy-tree tree &optional vectors-and-records
This function returns a copy of the tree @var{tree}. If @var{tree} is a
cons cell, this makes a new cons cell with the same @sc{car} and
@sc{cdr}, then recursively copies the @sc{car} and @sc{cdr} in the
same way.
Normally, when @var{tree} is anything other than a cons cell,
-@code{copy-tree} simply returns @var{tree}. However, if @var{vecp} is
-non-@code{nil}, it copies vectors too (and operates recursively on
-their elements). This function cannot cope with circular lists.
-@end defun
-
-@defun safe-copy-tree tree &optional vecp
-This function returns a copy of the tree @var{tree}. If @var{tree} is
-a cons cell, this make a new cons cell with the same @sc{car} and
-@sc{cdr}, then recursively copies the @sc{car} and @sc{cdr} in the
-same way.
-
-Normally, when @var{tree} is anything other than a cons cell,
-@code{copy-tree} simply returns @var{tree}. However, if @var{vecp} is
-non-@code{nil}, it copies vectors and records too (and operates
-recursively on their elements). This function handles circular lists
-and vectors, and is thus slower than @code{copy-tree} for typical cases.
+@code{copy-tree} simply returns @var{tree}. However, if
+@var{vectors-and-records} is non-@code{nil}, it copies vectors and records
+too (and operates recursively on their elements). The @var{tree}
+argument must not contain cycles.
@end defun
@defun flatten-tree tree
@@ -1237,7 +1225,15 @@ x
@end example
However, the other arguments (all but the last) should be mutable
-lists.
+lists. They can be dotted lists, whose last @sc{cdr}s are then
+replaced with the next argument:
+
+@example
+@group
+(nconc (cons 1 2) (cons 3 (cons 4 5)) 'z)
+ @result{} (1 3 4 . z)
+@end group
+@end example
A common pitfall is to use a constant list as a non-last argument to
@code{nconc}. If you do this, the resulting behavior is undefined
diff --git a/doc/lispref/loading.texi b/doc/lispref/loading.texi
index 5c84ba4b1eb..d6fc4e8d636 100644
--- a/doc/lispref/loading.texi
+++ b/doc/lispref/loading.texi
@@ -1338,7 +1338,7 @@ specified @var{file} and perform the necessary
initialization of the
module. This is the primitive which makes sure the module exports the
@code{plugin_is_GPL_compatible} symbol, calls the module's
@code{emacs_module_init} function, and signals an error if that
-function returns an error indication, or if the use typed @kbd{C-g}
+function returns an error indication, or if the user typed @kbd{C-g}
during the initialization. If the initialization succeeds,
@code{module-load} returns @code{t}. Note that @var{file} must
already have the proper file-name extension, as this function doesn't
diff --git a/doc/lispref/minibuf.texi b/doc/lispref/minibuf.texi
index 4b957a68401..feed70a7e89 100644
--- a/doc/lispref/minibuf.texi
+++ b/doc/lispref/minibuf.texi
@@ -2174,13 +2174,14 @@ will not have serious consequences. @code{yes-or-no-p}
is suitable for
more momentous questions, since it requires three or four characters to
answer.
- If either of these functions is called in a command that was invoked
-using the mouse---more precisely, if @code{last-nonmenu-event}
-(@pxref{Command Loop Info}) is either @code{nil} or a list---then it
-uses a dialog box or pop-up menu to ask the question. Otherwise, it
-uses keyboard input. You can force use either of the mouse or of keyboard
-input by binding @code{last-nonmenu-event} to a suitable value around
-the call.
+ If either of these functions is called in a command that was
+invoked using the mouse or some other window-system gesture, or in a
+command invoked via a menu, then they use a dialog box or pop-up menu
+to ask the question if dialog boxes are supported. Otherwise, they
+use keyboard input. You can force use either of the mouse or of
+keyboard input by binding @code{last-nonmenu-event} to a suitable
+value around the call---bind it to @code{t} to force keyboard
+interaction, and to a list to force dialog boxes.
Both @code{yes-or-no-p} and @code{y-or-n-p} use the minibuffer.
@@ -2200,6 +2201,9 @@ the expected answers (@kbd{y}, @kbd{n}, @kbd{@key{SPC}},
@kbd{@key{DEL}}, or something that quits), the function responds
@samp{Please answer y or n.}, and repeats the request.
+If @var{prompt} is a non-empty string, and it ends with a non-space
+character, a @samp{SPC} character will be appended to it.
+
This function actually uses the minibuffer, but does not allow editing
of the answer. The cursor moves to the minibuffer while the question
is being asked.
@@ -2240,6 +2244,9 @@ minibuffer, followed by the value of
@code{yes-or-no-prompt} @w{(default
responses; otherwise, the function responds @w{@samp{Please answer yes or
no.}}, waits about two seconds and repeats the request.
+If @var{prompt} is a non-empty string, and it ends with a non-space
+character, a @samp{SPC} character will be appended to it.
+
@code{yes-or-no-p} requires more work from the user than
@code{y-or-n-p} and is appropriate for more crucial decisions.
@@ -2247,7 +2254,7 @@ Here is an example:
@smallexample
@group
-(yes-or-no-p "Do you really want to remove everything?")
+(yes-or-no-p "Do you really want to remove everything? ")
;; @r{After evaluation of the preceding expression,}
;; @r{the following prompt appears,}
@@ -2380,13 +2387,14 @@ Normally, @code{map-y-or-n-p} binds
@code{cursor-in-echo-area} while
prompting. But if @var{no-cursor-in-echo-area} is non-@code{nil}, it
does not do that.
-If @code{map-y-or-n-p} is called in a command that was invoked using the
-mouse---more precisely, if @code{last-nonmenu-event} (@pxref{Command
-Loop Info}) is either @code{nil} or a list---then it uses a dialog box
-or pop-up menu to ask the question. In this case, it does not use
-keyboard input or the echo area. You can force use either of the mouse or
-of keyboard input by binding @code{last-nonmenu-event} to a suitable
-value around the call.
+If @code{map-y-or-n-p} is called in a command that was invoked using
+the mouse or some other window-system gesture, or a command invoked
+via a menu, then it uses a dialog box or pop-up menu to ask the
+question if dialog boxes are supported. In this case, it does not use
+keyboard input or the echo area. You can force use either of the
+mouse or of keyboard input by binding @code{last-nonmenu-event} to a
+suitable value around the call---bind it to @code{t} to force keyboard
+interaction, and to a list to force dialog boxes.
The return value of @code{map-y-or-n-p} is the number of objects acted on.
@end defun
diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi
index fff1ea65b07..c2698da6d99 100644
--- a/doc/lispref/modes.texi
+++ b/doc/lispref/modes.texi
@@ -1775,6 +1775,8 @@ it's used to say which major modes this minor mode is
useful in.
Any other keyword arguments are passed directly to the
@code{defcustom} generated for the variable @var{mode}.
+@xref{Variable Definitions}, for the description of those keywords and
+their values.
The command named @var{mode} first performs the standard actions such as
setting the variable named @var{mode} and then executes the @var{body}
@@ -1860,9 +1862,10 @@ by visiting files, and buffers that use a major mode
other than
Fundamental mode; but it does not detect the creation of a new buffer
in Fundamental mode.
-This defines the customization option @var{global-mode}
(@pxref{Customization}),
-which can be toggled in the Customize interface to turn the minor mode on
-and off. As with @code{define-minor-mode}, you should ensure that the
+This macro defines the customization option @var{global-mode}
+(@pxref{Customization}), which can be toggled via the Customize
+interface to turn the minor mode on and off. As with
+@code{define-minor-mode}, you should ensure that the
@code{define-globalized-minor-mode} form is evaluated each time Emacs
starts, for example by providing a @code{:require} keyword.
@@ -1875,24 +1878,27 @@ Use @code{:variable @var{variable}} if that's not the
case--some minor
modes use a different variable to store this state information.
Generally speaking, when you define a globalized minor mode, you should
-also define a non-globalized version, so that people can use (or
-disable) it in individual buffers. This also allows them to disable a
+also define a non-globalized version, so that people could use it (or
+disable it) in individual buffers. This also allows them to disable a
globally enabled minor mode in a specific major mode, by using that
mode's hook.
-If given a @code{:predicate} keyword, a user option called the same as
-the global mode variable, but with @code{-modes} instead of
-@code{-mode} at the end will be created. The variable is used as a
-predicate that specifies which major modes the minor mode should be
-activated in. Valid values include @code{t} (use in all major modes,
-@code{nil} (use in no major modes), or a list of mode names (or
-@code{(not mode-name ...)}) elements (as well as @code{t} and
-@code{nil}).
+If the macro is given a @code{:predicate} keyword, it will create a
+user option called the same as the global mode variable, but with
+@code{-modes} instead of @code{-mode} at the end, i.e.@:
+@code{@var{global-mode}s}. This variable will be used in a predicate
+function that determines whether the minor mode should be activated in
+a particular major mode. Valid values of @code{:predicate} include
+@code{t} (use in all major modes), @code{nil} (don't use in any major
+modes), or a list of mode names, optionally preceded with @code{not}
+(as in @w{@code{(not @var{mode-name} @dots{})}}). These elements can
+be mixed, as shown in the following examples.
@example
(c-mode (not mail-mode message-mode) text-mode)
@end example
+@noindent
This means ``use in modes derived from @code{c-mode}, and not in
modes derived from @code{message-mode} or @code{mail-mode}, but do use
in modes derived from @code{text-mode}, and otherwise no other
@@ -1902,13 +1908,15 @@ modes''.
((not c-mode) t)
@end example
-This means ``don't use modes derived from @code{c-mode}, but use
+@noindent
+This means ``don't use in modes derived from @code{c-mode}, but do use
everywhere else''.
@example
(text-mode)
@end example
+@noindent
This means ``use in modes derived from @code{text-mode}, but nowhere
else''. (There's an implicit @code{nil} element at the end.)
@end defmac
@@ -2349,18 +2357,19 @@ enabled separately in each buffer.
@defvar global-mode-string
This variable holds a mode line construct that, by default, appears in
-the mode line just after the @code{which-function-mode} minor mode if
-set, else after @code{mode-line-modes}. Elements that are added to
-this construct should normally end in a space (to ensure that
-consecutive @code{global-mode-string} elements display properly). For
-instance, the command @code{display-time} sets
-@code{global-mode-string} to refer to the variable
-@code{display-time-string}, which holds a string containing the time
-and load information.
+the mode line as part of @code{mode-line-misc-info}, just after the
+@code{which-function-mode} information if that minor mode is enabled,
+else after @code{mode-line-modes}. Elements that are added to this
+construct should normally end in a space (to ensure that consecutive
+@code{global-mode-string} elements display properly). For instance,
+the command @code{display-time} sets @code{global-mode-string} to
+refer to the variable @code{display-time-string}, which holds a string
+containing the time and load information.
The @samp{%M} construct substitutes the value of
-@code{global-mode-string}, but that is obsolete, since the variable is
-included in the mode line from @code{mode-line-format}.
+@code{global-mode-string}. This construct is not used by the default
+mode line, as the variable itself is used in
+@code{mode-line-misc-info}.
@end defvar
Here is a simplified version of the default value of
@@ -2389,6 +2398,7 @@ specifies addition of text properties.
@node %-Constructs
@subsection @code{%}-Constructs in the Mode Line
+@cindex @code{%}-constructs in the mode line
Strings used as mode line constructs can use certain
@code{%}-constructs to substitute various kinds of data. The
@@ -2440,6 +2450,10 @@ abbreviate.
The current line number of point, counting within the accessible portion
of the buffer.
+@item %M
+The value of @code{global-mode-string} (which is part of
+@code{mode-line-misc-info} by default).
+
@item %n
@samp{Narrow} when narrowing is in effect; nothing otherwise (see
@code{narrow-to-region} in @ref{Narrowing}).
@@ -2475,6 +2489,9 @@ The mnemonics of keyboard, terminal, and buffer coding
systems.
@item %Z
Like @samp{%z}, but including the end-of-line format.
+@item %&
+@samp{*} if the buffer is modified, and @samp{-} otherwise.
+
@item %*
@samp{%} if the buffer is read only (see @code{buffer-read-only}); @*
@samp{*} if the buffer is modified (see @code{buffer-modified-p}); @*
@@ -2486,9 +2503,6 @@ Like @samp{%z}, but including the end-of-line format.
@samp{-} otherwise. This differs from @samp{%*} only for a modified
read-only buffer. @xref{Buffer Modification}.
-@item %&
-@samp{*} if the buffer is modified, and @samp{-} otherwise.
-
@item %@@
@samp{@@} if the buffer's @code{default-directory} (@pxref{File Name
Expansion}) is on a remote machine, and @samp{-} otherwise.
@@ -2510,13 +2524,16 @@ The character @samp{%}---this is how to include a
literal @samp{%} in a
string in which @code{%}-constructs are allowed.
@end table
-The following @code{%}-construct is still supported, but it is
-obsolete, since you can get the same result using the variable
-@code{mode-name}.
+@subsubheading Obsolete @code{%}-Constructs
+
+ The following constructs should no longer be used.
@table @code
@item %m
-The value of @code{mode-name}.
+Obsolete; use the @code{mode-name} variable instead. The @code{%m}
+construct is inadequate, as it produces an empty string if the value
+of @code{mode-name} is a non-string mode-line construct (as in
+@code{emacs-lisp-mode}, for example).
@end table
@node Properties in Mode
@@ -4057,8 +4074,8 @@ replacing syntactic font lock, then the regexp-based font
lock.
Although parser-based font lock doesn't share the same customization
variables with regexp-based font lock, it uses similar customization
-schemes. The tree-sitter counterpart of @var{font-lock-keywords} is
-@var{treesit-font-lock-settings}.
+schemes. The tree-sitter counterpart of @code{font-lock-keywords} is
+@code{treesit-font-lock-settings}.
@cindex tree-sitter fontifications, overview
@cindex fontifications with tree-sitter, overview
@@ -4092,9 +4109,9 @@ To setup tree-sitter fontification, a major mode should
first set
@code{treesit-major-mode-setup}.
@defun treesit-font-lock-rules &rest query-specs
-This function is used to set @var{treesit-font-lock-settings}. It
+This function is used to set @code{treesit-font-lock-settings}. It
takes care of compiling queries and other post-processing, and outputs
-a value that @var{treesit-font-lock-settings} accepts. Here's an
+a value that @code{treesit-font-lock-settings} accepts. Here's an
example:
@example
@@ -4138,7 +4155,7 @@ Other keywords are optional:
@end multitable
Lisp programs mark patterns in @var{query} with capture names (names
-that starts with @code{@@}), and tree-sitter will return matched nodes
+that start with @code{@@}), and tree-sitter will return matched nodes
tagged with those same capture names. For the purpose of
fontification, capture names in @var{query} should be face names like
@code{font-lock-keyword-face}. The captured node will be fontified
@@ -4965,7 +4982,7 @@ below: then the major mode needs only to write some
indentation rules
and the engine takes care of the rest.
To enable the parser-based indentation engine, either set
-@var{treesit-simple-indent-rules} and call
+@code{treesit-simple-indent-rules} and call
@code{treesit-major-mode-setup}, or equivalently, set the value of
@code{indent-line-function} to @code{treesit-indent}.
diff --git a/doc/lispref/numbers.texi b/doc/lispref/numbers.texi
index 9bfb771fc07..3e45aa90fda 100644
--- a/doc/lispref/numbers.texi
+++ b/doc/lispref/numbers.texi
@@ -219,17 +219,25 @@ creates huge integers.
@cindex @acronym{IEEE} floating point
Floating-point numbers are useful for representing numbers that are
-not integral. The range of floating-point numbers is
-the same as the range of the C data type @code{double} on the machine
-you are using. On all computers supported by Emacs, this is
-@acronym{IEEE} binary64 floating point format, which is standardized by
-@url{https://standards.ieee.org/standard/754-2019.html,,IEEE Std 754-2019}
-and is discussed further in David Goldberg's paper
+not integral. The range of floating-point numbers is the same as the
+range of the C data type @code{double} on the machine you are using.
+On almost all computers supported by Emacs, this is @acronym{IEEE}
+binary64 floating point format, which is standardized by
+@url{https://standards.ieee.org/standard/754-2019.html,,IEEE Std
+754-2019} and is discussed further in David Goldberg's paper
``@url{https://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html,
-What Every Computer Scientist Should Know About Floating-Point Arithmetic}''.
-On modern platforms, floating-point operations follow the IEEE-754
-standard closely; however, results are not always rounded correctly on
-some obsolescent platforms, notably 32-bit x86.
+What Every Computer Scientist Should Know About Floating-Point
+Arithmetic}''. On modern platforms, floating-point operations follow
+the IEEE-754 standard closely; however, results are not always rounded
+correctly on some systems, notably 32-bit x86.
+
+ On some old computer systems, Emacs may not use IEEE floating-point.
+We know of one such system on which Emacs runs correctly, but does not
+follow IEEE-754: the VAX running NetBSD using GCC 10.4.0, where the
+VAX @samp{D_Floating} format is used instead. IBM System/370-derived
+mainframes and their XL/C compiler are also capable of utilizing a
+hexadecimal floating point format, but Emacs has not yet been built in
+such a configuration.
The read syntax for floating-point numbers requires either a decimal
point, an exponent, or both. Optional signs (@samp{+} or @samp{-})
@@ -262,6 +270,10 @@ two NaNs as equal when their
signs and significands agree. Significands of NaNs are
machine-dependent, as are the digits in their string representation.
+ NaNs are not available on systems which do not use IEEE
+floating-point arithmetic; if the read syntax for a NaN is used on a
+VAX, for example, the reader signals an error.
+
When NaNs and signed zeros are involved, non-numeric functions like
@code{eql}, @code{equal}, @code{sxhash-eql}, @code{sxhash-equal} and
@code{gethash} determine whether values are indistinguishable, not
@@ -742,9 +754,10 @@ by rounding the quotient towards zero after each division.
@cindex @code{arith-error} in division
If you divide an integer by the integer 0, Emacs signals an
-@code{arith-error} error (@pxref{Errors}). Floating-point division of
-a nonzero number by zero yields either positive or negative infinity
-(@pxref{Float Basics}).
+@code{arith-error} error (@pxref{Errors}). On systems using IEEE-754
+floating-point, floating-point division of a nonzero number by zero
+yields either positive or negative infinity (@pxref{Float Basics});
+otherwise, an @code{arith-error} is signaled as usual.
@end defun
@defun % dividend divisor
diff --git a/doc/lispref/objects.texi b/doc/lispref/objects.texi
index 99a3c073971..ad079e0d63a 100644
--- a/doc/lispref/objects.texi
+++ b/doc/lispref/objects.texi
@@ -466,19 +466,20 @@ You can specify characters by their Unicode values.
@code{?\u@var{xxxx}} and @code{?\U@var{xxxxxxxx}} represent code
points @var{xxxx} and @var{xxxxxxxx}, respectively, where each @var{x}
is a single hexadecimal digit. For example, @code{?\N@{U+E0@}},
-@code{?\u00e0} and @code{?\U000000E0} are all equivalent to @code{?à}
-and to @samp{?\N@{LATIN SMALL LETTER A WITH GRAVE@}}. The Unicode
-Standard defines code points only up to @samp{U+@var{10ffff}}, so if
-you specify a code point higher than that, Emacs signals an error.
+@code{?\u00e0} and @code{?\U000000E0} are all equivalent to
+@code{?@`a} and to @samp{?\N@{LATIN SMALL LETTER A WITH GRAVE@}}. The
+Unicode Standard defines code points only up to @samp{U+@var{10ffff}},
+so if you specify a code point higher than that, Emacs signals an
+error.
@item
You can specify characters by their hexadecimal character
codes. A hexadecimal escape sequence consists of a backslash,
@samp{x}, and the hexadecimal character code. Thus, @samp{?\x41} is
the character @kbd{A}, @samp{?\x1} is the character @kbd{C-a}, and
-@code{?\xe0} is the character @kbd{à} (@kbd{a} with grave accent).
-You can use any number of hex digits, so you can represent any
-character code in this way.
+@code{?\xe0} is the character @kbd{@`a} (@kbd{a} with grave accent).
+You can use one or more hex digits after @samp{x}, so you can
+represent any character code in this way.
@item
@cindex octal character code
@@ -1007,13 +1008,6 @@ It looks like this:
@end example
@end ifnottex
- As a somewhat peculiar side effect of @code{(a b . c)} and
-@code{(a . (b . c))} being equivalent, for consistency this means
-that if you replace @code{b} here with the empty sequence, then it
-follows that @code{(a . c)} and @code{(a . ( . c))} are equivalent,
-too. This also means that @code{( . c)} is equivalent to @code{c},
-but this is seldom used.
-
@node Association List Type
@subsubsection Association List Type
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index bca62a7a8de..4bcc9d5fea6 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -182,7 +182,9 @@ is over, and, together with @code{before-init-time},
provides the
measurement of how long it took.
@item
-It runs the normal hook @code{after-init-hook}.
+It runs the normal hooks @code{after-init-hook} and
+@code{delayed-warnings-hook}. The latter shows any warnings emitted
+during previous stages of startup, which are automatically delayed.
@item
If the buffer @file{*scratch*} exists and is still in Fundamental mode
@@ -1288,12 +1290,22 @@ the remote connection has no associated user, it will
instead return
@end defun
@cindex GID
+@defun group-real-gid
+This function returns the real @acronym{GID} of the Emacs process.
+@end defun
+
@defun group-gid
This function returns the effective @acronym{GID} of the Emacs process.
@end defun
-@defun group-real-gid
-This function returns the real @acronym{GID} of the Emacs process.
+@defun file-group-gid
+This function returns the connection-local value for the user's
+effective @acronym{GID}. Similar to @code{file-user-uid}, if
+@code{default-directory} is local, this is equivalent to
+@code{group-gid}, but for remote files (@pxref{Remote Files, , ,
+emacs, The GNU Emacs Manual}), it will return the @acronym{GID} for
+the user associated with that remote connection; if the remote
+connection has no associated user, it will instead return -1.
@end defun
@defun system-users
diff --git a/doc/lispref/parsing.texi b/doc/lispref/parsing.texi
index fd65fa3e75b..b0824faaaa2 100644
--- a/doc/lispref/parsing.texi
+++ b/doc/lispref/parsing.texi
@@ -849,6 +849,53 @@ Each node in the returned tree looks like
@heading More convenience functions
+@defun treesit-node-get node instructions
+This is a convenience function that chains together multiple node
+accessor functions together. For example, to get @var{node}'s
+parent's next sibling's second child's text:
+
+@example
+@group
+(treesit-node-get node
+ '((parent 1)
+ (sibling 1 nil)
+ (child 1 nil)
+ (text nil)))
+@end group
+@end example
+
+@var{instruction} is a list of INSTRUCTIONs of the form
+@w{@code{(@var{fn} @var{arg}...)}}. The following @var{fn}'s are
+supported:
+
+@table @code
+@item (child @var{idx} @var{named})
+Get the @var{idx}'th child.
+
+@item (parent @var{n})
+Go to parent @var{n} times.
+
+@item (field-name)
+Get the field name of the current node.
+
+@item (type)
+Get the type of the current node.
+
+@item (text @var{no-property})
+Get the text of the current node.
+
+@item (children @var{named})
+Get a list of children.
+
+@item (sibling @var{step} @var{named})
+Get the nth prev/next sibling, negative @var{step} means prev sibling,
+positive means next sibling.
+@end table
+
+Note that arguments like @var{named} and @var{no-property} can't be
+omitted, unlike in their original functions.
+@end defun
+
@defun treesit-filter-child node predicate &optional named
This function finds immediate children of @var{node} that satisfy
@var{predicate}.
@@ -859,18 +906,24 @@ return non-@code{nil} to indicate that the node should be
kept. If
nodes.
@end defun
-@defun treesit-parent-until node predicate
+@defun treesit-parent-until node predicate &optional include-node
This function repeatedly finds the parents of @var{node}, and returns
-the parent that satisfies @var{predicate}, a function that takes a
-node as the argument. If no parent satisfies @var{predicate}, this
-function returns @code{nil}.
+the parent that satisfies @var{pred}, a function that takes a node as
+the argument and returns a boolean that indicates a match. If no
+parent satisfies @var{pred}, this function returns @code{nil}.
+
+Normally this function only looks at the parents of @var{node} but not
+@var{node} itself. But if @var{include-node} is non-@var{nil}, this
+function returns @var{node} if @var{node} satisfies @var{pred}.
@end defun
-@defun treesit-parent-while node predicate
-This function repeatedly finds the parent of @var{node}, and keeps
-doing so as long as the nodes satisfy @var{predicate}, a function that
+@defun treesit-parent-while node pred
+This function goes up the tree starting from @var{node}, and keeps
+doing so as long as the nodes satisfy @var{pred}, a function that
takes a node as the argument. That is, this function returns the
-farthest parent that still satisfies @var{predicate}.
+highest parent of @var{node} that still satisfies @var{pred}. Note
+that if @var{node} satisfies @var{pred} but its immediate parent
+doesn't, @var{node} itself is returned.
@end defun
@defun treesit-node-top-level node &optional type
@@ -1305,7 +1358,8 @@ matches regular expression @var{regexp}. Matching is
case-sensitive.
@deffn Predicate pred fn &rest nodes
Matches if function @var{fn} returns non-@code{nil} when passed each
-node in @var{nodes} as arguments.
+node in @var{nodes} as arguments. The function runs with the current
+buffer set to the buffer of node being queried.
@end deffn
Note that a predicate can only refer to capture names that appear in
@@ -1638,9 +1692,9 @@ directly translate into operations shown above.
@end example
@defun treesit-range-rules &rest query-specs
-This function is used to set @var{treesit-range-settings}. It
-takes care of compiling queries and other post-processing, and outputs
-a value that @var{treesit-range-settings} can have.
+This function is used to set @code{treesit-range-settings}. It takes
+care of compiling queries and other post-processing, and outputs a
+value that @code{treesit-range-settings} can have.
It takes a series of @var{query-spec}s, where each @var{query-spec} is
a @var{query} preceded by zero or more @var{keyword}/@var{value}
diff --git a/doc/lispref/positions.texi b/doc/lispref/positions.texi
index edc7c86533c..1305daa7a2e 100644
--- a/doc/lispref/positions.texi
+++ b/doc/lispref/positions.texi
@@ -1188,6 +1188,7 @@ saved bounds. In that case it is equivalent to
@end example
@cindex labeled narrowing
+@cindex labeled restriction
When the optional argument @var{label}, a symbol, is present, the
narrowing is @dfn{labeled}. A labeled narrowing differs from a
non-labeled one in several ways:
diff --git a/doc/lispref/processes.texi b/doc/lispref/processes.texi
index 50e67475d8e..c901215d35d 100644
--- a/doc/lispref/processes.texi
+++ b/doc/lispref/processes.texi
@@ -1755,7 +1755,9 @@ caught automatically, so that it doesn't stop the
execution of whatever
program was running when the filter function was started. However, if
@code{debug-on-error} is non-@code{nil}, errors are not caught.
This makes it possible to use the Lisp debugger to debug filter
-functions. @xref{Debugger}.
+functions. @xref{Debugger}. If an error is caught, Emacs pauses for
+@code{process-error-pause-time} seconds so that the user sees the
+error. @xref{Asynchronous Processes}
Many filter functions sometimes (or always) insert the output in the
process's buffer, mimicking the actions of the default filter.
@@ -2159,7 +2161,9 @@ automatically, so that it doesn't stop the execution of
whatever
programs was running when the sentinel was started. However, if
@code{debug-on-error} is non-@code{nil}, errors are not caught.
This makes it possible to use the Lisp debugger to debug the
-sentinel. @xref{Debugger}.
+sentinel. @xref{Debugger}. If an error is caught, Emacs pauses for
+@code{process-error-pause-time} seconds so that the user sees the
+error. @xref{Asynchronous Processes}
While a sentinel is running, the process sentinel is temporarily
set to @code{nil} so that the sentinel won't run recursively.
diff --git a/doc/lispref/records.texi b/doc/lispref/records.texi
index 26c6f30a6b5..287ad869297 100644
--- a/doc/lispref/records.texi
+++ b/doc/lispref/records.texi
@@ -81,6 +81,10 @@ This function returns a new record with type @var{type} and
@end example
@end defun
+To copy trees consisting of records, vectors and conses (lists), use
+@code{copy-tree} with its optional second argument non-@code{nil}.
+@xref{Building Lists, copy-tree}.
+
@node Backward Compatibility
@section Backward Compatibility
diff --git a/doc/lispref/sequences.texi b/doc/lispref/sequences.texi
index 7011b5c72af..dd5b723b479 100644
--- a/doc/lispref/sequences.texi
+++ b/doc/lispref/sequences.texi
@@ -376,45 +376,43 @@ is less than @var{c}, then @var{a} must be less than
@var{c}. If you
use a comparison function which does not meet these requirements, the
result of @code{sort} is unpredictable.
-The destructive aspect of @code{sort} for lists is that it rearranges the
-cons cells forming @var{sequence} by changing @sc{cdr}s. A nondestructive
-sort function would create new cons cells to store the elements in their
-sorted order. If you wish to make a sorted copy without destroying the
-original, copy it first with @code{copy-sequence} and then sort.
-
-Sorting does not change the @sc{car}s of the cons cells in @var{sequence};
-the cons cell that originally contained the element @code{a} in
-@var{sequence} still has @code{a} in its @sc{car} after sorting, but it now
-appears in a different position in the list due to the change of
-@sc{cdr}s. For example:
+The destructive aspect of @code{sort} for lists is that it reuses the
+cons cells forming @var{sequence} by changing their contents, possibly
+rearranging them in a different order. This means that the value of
+the input list is undefined after sorting; only the list returned by
+@code{sort} has a well-defined value. Example:
@example
@group
-(setq nums (list 1 3 2 6 5 4 0))
- @result{} (1 3 2 6 5 4 0)
-@end group
-@group
+(setq nums (list 2 1 4 3 0))
(sort nums #'<)
- @result{} (0 1 2 3 4 5 6)
-@end group
-@group
-nums
- @result{} (1 2 3 4 5 6)
+ @result{} (0 1 2 3 4)
+ ; nums is unpredictable at this point
@end group
@end example
-@noindent
-@strong{Warning}: Note that the list in @code{nums} no longer contains
-0; this is the same cons cell that it was before, but it is no longer
-the first one in the list. Don't assume a variable that formerly held
-the argument now holds the entire sorted list! Instead, save the result
-of @code{sort} and use that. Most often we store the result back into
-the variable that held the original list:
+Most often we store the result back into the variable that held the
+original list:
@example
(setq nums (sort nums #'<))
@end example
+If you wish to make a sorted copy without destroying the original,
+copy it first and then sort:
+
+@example
+@group
+(setq nums (list 2 1 4 3 0))
+(sort (copy-sequence nums) #'<)
+ @result{} (0 1 2 3 4)
+@end group
+@group
+nums
+ @result{} (2 1 4 3 0)
+@end group
+@end example
+
For the better understanding of what stable sort is, consider the following
vector example. After sorting, all items whose @code{car} is 8 are grouped
at the beginning of @code{vector}, but their relative order is preserved.
diff --git a/doc/lispref/symbols.texi b/doc/lispref/symbols.texi
index 5b53cbe310a..34db0caf3a8 100644
--- a/doc/lispref/symbols.texi
+++ b/doc/lispref/symbols.texi
@@ -276,9 +276,8 @@ This function returns the string that is @var{symbol}'s
name. For example:
@end group
@end example
-@strong{Warning:} Changing the string by substituting characters does
-change the name of the symbol, but fails to update the obarray, so don't
-do it!
+@strong{Warning:} Never alter the string returned by that function.
+Doing that might make Emacs dysfunctional, and might even crash Emacs.
@end defun
@cindex uninterned symbol, and generating Lisp code
@@ -644,6 +643,12 @@ ignore a call whose value is unused. If the property's
value is
calls. In addition to byte compiler optimizations, this property is
also used for determining function safety (@pxref{Function Safety}).
+@item important-return-value
+@cindex @code{important-return-value} property
+A non-@code{nil} value makes the byte compiler warn about code that
+calls the named function without using its returned value. This is
+useful for functions where doing so is likely to be a mistake.
+
@item undo-inhibit-region
If non-@code{nil}, the named function prevents the @code{undo} operation
from being restricted to the active region, if @code{undo} is invoked
diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi
index 0a48beab8b8..f15b3c33e0c 100644
--- a/doc/lispref/text.texi
+++ b/doc/lispref/text.texi
@@ -3765,18 +3765,19 @@ Consecutive characters with the same @code{field}
property constitute a
@item cursor
@kindex cursor @r{(text property)}
Normally, the cursor is displayed at the beginning or the end of any
-overlay and text property strings present at the current buffer
-position. You can instead tell Emacs to place the cursor on any
-desired character of these strings by giving that character a
-non-@code{nil} @code{cursor} text property. In addition, if the value
-of the @code{cursor} property is an integer, it specifies the number
-of buffer's character positions, starting with the position where the
-overlay or the @code{display} property begins, for which the cursor
-should be displayed on that character. Specifically, if the value of
-the @code{cursor} property of a character is the number @var{n}, the
-cursor will be displayed on this character for any buffer position in
-the range @code{[@var{ovpos}..@var{ovpos}+@var{n})}, where @var{ovpos}
-is the overlay's starting position given by @code{overlay-start}
+overlay and text property strings that ``hide'' (i.e., are displayed
+instead of) the current buffer position. You can instead tell Emacs
+to place the cursor on any desired character of these strings by
+giving that character a non-@code{nil} @code{cursor} text property.
+In addition, if the value of the @code{cursor} property is an integer,
+it specifies the number of buffer's character positions, starting with
+the position where the overlay or the @code{display} property begins,
+for which the cursor should be displayed on that character.
+Specifically, if the value of the @code{cursor} property of a
+character is the number @var{n}, the cursor will be displayed on this
+character for any buffer position in the range
+@code{[@var{ovpos}..@var{ovpos}+@var{n})}, where @var{ovpos} is the
+overlay's starting position given by @code{overlay-start}
(@pxref{Managing Overlays}), or the position where the @code{display}
text property begins in the buffer.
@@ -5509,7 +5510,7 @@ contents of an SQLite database.
@section Parsing HTML and XML
@cindex parsing html
- Emacs can be compiled with built-in libxml2 support.
+ Emacs can be compiled with built-in @file{libxml2} support.
@defun libxml-available-p
This function returns non-@code{nil} if built-in libxml2 support is
@@ -5528,8 +5529,10 @@ mistakes.
If @var{start} or @var{end} are @code{nil}, they default to the values
from @code{point-min} and @code{point-max}, respectively.
-The optional argument @var{base-url}, if non-@code{nil}, should be a
-string specifying the base URL for relative URLs occurring in links.
+The optional argument @var{base-url}, if non-@code{nil}, should be
+used for warnings and errors reported by the @file{libxml2} library,
+but Emacs currently calls the library with errors and warnings
+disabled, so this argument is not used.
If the optional argument @var{discard-comments} is non-@code{nil},
any top-level comment is discarded. (This argument is obsolete and
diff --git a/doc/lispref/variables.texi b/doc/lispref/variables.texi
index 5584cbce9a6..4eda035473e 100644
--- a/doc/lispref/variables.texi
+++ b/doc/lispref/variables.texi
@@ -1183,13 +1183,16 @@ wants the current value of a variable, it looks first
in the lexical
environment; if the variable is not specified in there, it looks in
the symbol's value cell, where the dynamic value is stored.
- (Internally, the lexical environment is an alist of symbol-value
-pairs, with the final element in the alist being the symbol @code{t}
-rather than a cons cell. Such an alist can be passed as the second
-argument to the @code{eval} function, in order to specify a lexical
-environment in which to evaluate a form. @xref{Eval}. Most Emacs
-Lisp programs, however, should not interact directly with lexical
-environments in this way; only specialized programs like debuggers.)
+ (Internally, the lexical environment is a list whose members are
+usually cons cells that are symbol-value pairs, but some of its
+members can be symbols rather than cons cells. A symbol in the list
+means the lexical environment declared that symbol's variable as
+locally considered to be dynamically bound. This list can be passed
+as the second argument to the @code{eval} function, in order to
+specify a lexical environment in which to evaluate a form.
+@xref{Eval}. Most Emacs Lisp programs, however, should not interact
+directly with lexical environments in this way; only specialized
+programs like debuggers.)
@cindex closures, example of using
Lexical bindings have indefinite extent. Even after a binding
@@ -1974,6 +1977,16 @@ this can be controlled by using this variable, which is
a list of
symbols.
@end defvar
+@defvar safe-local-variable-directories
+This is a list of directories where local variables are always
+enabled. Directory-local variables loaded from these directories,
+such as the variables in @file{.dir-locals.el}, will be enabled even
+if they are risky. The directories in this list must be
+fully-expanded absolute file names. They may also be remote
+directories if the variable @code{enable-remote-dir-locals} is set
+non-@code{nil}.
+@end defvar
+
@defun hack-local-variables &optional handle-mode
This function parses, and binds or evaluates as appropriate, any local
variables specified by the contents of the current buffer. The variable
@@ -2558,6 +2571,9 @@ documentation as @var{base-variable} has, if any, unless
the documentation of the variable at the end of the chain of aliases.
This function returns @var{base-variable}.
+
+If the resulting variable definition chain would be circular, then
+Emacs will signal a @code{cyclic-variable-indirection} error.
@end defun
Variable aliases are convenient for replacing an old name for a
@@ -2606,9 +2622,6 @@ look like:
This function returns the variable at the end of the chain of aliases
of @var{variable}. If @var{variable} is not a symbol, or if @var{variable} is
not defined as an alias, the function returns @var{variable}.
-
-This function signals a @code{cyclic-variable-indirection} error if
-there is a loop in the chain of symbols.
@end defun
@example
diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi
index 01ac6fb901a..0196ed0e813 100644
--- a/doc/lispref/windows.texi
+++ b/doc/lispref/windows.texi
@@ -3216,7 +3216,7 @@ any window it creates as dedicated to its buffer
(@pxref{Dedicated
Windows}). It does that by calling @code{set-window-dedicated-p} with
the chosen window as first argument and the entry's value as second.
Side windows are by default dedicated with the value @code{side}
-((@pxref{Side Window Options and Functions}).
+(@pxref{Side Window Options and Functions}).
@vindex preserve-size@r{, a buffer display action alist entry}
@item preserve-size
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi
index 044c018080c..f5f4dff0e18 100644
--- a/doc/misc/calc.texi
+++ b/doc/misc/calc.texi
@@ -5394,7 +5394,7 @@ a variable containing a vector of rules.
1: [merge, secsqr] 1: [a/x + b/x := (a + b)/x, ... ]
. .
- ' [merge,sinsqr] @key{RET} =
+ ' [merge,secsqr] @key{RET} =
@end group
@end smallexample
@@ -6217,7 +6217,7 @@ method when it is able. @xref{Programming Answer 8, 8}.
(@bullet{})
@cindex Gamma constant, Euler's
@cindex Euler's gamma constant
(@bullet{}) @strong{Exercise 9.} The @dfn{digamma} function
-@texline @math{\psi(z) (``psi'')}
+@texline @math{\psi(z)} (``psi'')
@infoline @expr{psi(z)}
is defined as the derivative of
@texline @math{\ln \Gamma(z)}.
diff --git a/doc/misc/cc-mode.texi b/doc/misc/cc-mode.texi
index 3a808619868..71bf3fcee4a 100644
--- a/doc/misc/cc-mode.texi
+++ b/doc/misc/cc-mode.texi
@@ -330,6 +330,7 @@ Syntactic Symbols
* Multiline Macro Symbols::
* Objective-C Method Symbols::
* Java Symbols::
+* Constraint Symbols::
* Statement Block Symbols::
* K&R Symbols::
@@ -4234,6 +4235,9 @@ The first line in a ``topmost'' definition.
@ref{Function Symbols}.
Topmost definition continuation lines. This is only used in the parts
that aren't covered by other symbols such as @code{func-decl-cont} and
@code{knr-argdecl}. @ref{Function Symbols}.
+@item constraint-cont
+Continuation line of a topmost C++20 concept or requires clause.
+@ref{Constraint Symbols}.
@item annotation-top-cont
Topmost definition continuation lines where all previous items are
annotations. @ref{Java Symbols}.
@@ -4397,6 +4401,7 @@ Java. @ref{Java Symbols}.
* Multiline Macro Symbols::
* Objective-C Method Symbols::
* Java Symbols::
+* Constraint Symbols::
* Statement Block Symbols::
* K&R Symbols::
@end menu
@@ -5070,6 +5075,39 @@ the current line. Similarly, line 4 is assigned the
@code{annotation-var-cont}
syntax due to it being a continuation of a variable declaration where preceding
the declaration is an annotation.
+@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+@node Constraint Symbols
+@subsection C++ Constraint Symbols
+@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+The C++20 standard introduced the notion of @dfn{concepts} and
+@dfn{requirements}, a typical instance of which looks something like
+this:
+
+@example
+ 1: template <typename T>
+ 2: requires
+ 3: requires (T t) @{
+ 4: @{ ++t; @}
+ 5: @}
+ 6: && std::is_integral<T>
+ 7: int foo();
+@end example
+
+@ssindex constraint-cont
+Line 1 is assigned the familiar @code{topmost-intro}. Line 2 gets
+@code{topmost-intro-cont}, being the keyword which introduces a
+@dfn{requires clause}. Lines 3, 6, and 7 are assigned the syntax
+@code{constraint-cont}, being continuations of the requires clause
+started on line 2. Lines 4 and 5 get the syntaxes
+@code{defun-block-intro} and @code{defun-close}, being analyzed as
+though part of a function.
+
+Note that the @code{requires} on Line 3 begins a @dfn{requires
+expression}, not a a requires clause, hence its components are not
+assigned @code{constraint-cont}. See
+@url{https://en.cppreference.com/w/cpp/language/requires}.
+
@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@node Statement Block Symbols
@subsection Statement Block Symbols
diff --git a/doc/misc/efaq.texi b/doc/misc/efaq.texi
index 4a8c863230f..0a0c375d273 100644
--- a/doc/misc/efaq.texi
+++ b/doc/misc/efaq.texi
@@ -3133,13 +3133,23 @@ example, you can put the following in your init file:
To avoid the slightly distracting visual effect of Emacs starting with
its default frame size and then growing to fullscreen, you can add an
-@samp{Emacs.Geometry} entry to the Windows registry settings.
-@xref{X Resources,,, emacs, The GNU Emacs Manual}.
-
-To compute the correct values for width and height, first maximize the
-Emacs frame and then evaluate @code{(frame-height)} and
+@samp{Emacs.Geometry} entry to the Windows Registry settings. @xref{X
+Resources,,, emacs, The GNU Emacs Manual}. To compute the correct
+values for width and height you use in the Registry settings, first
+maximize the Emacs frame and then evaluate @code{(frame-height)} and
@code{(frame-width)} with @kbd{M-:}.
+Alternatively, you can avoid the visual effect of Emacs changing its
+frame size entirely in your init file (i.e., without using the
+Registry), like this:
+
+@lisp
+(setq frame-resize-pixelwise t)
+(set-frame-position nil 0 0)
+(set-frame-size nil (display-pixel-width) (display-pixel-height) t)
+@end lisp
+
+
@node Emacs in a Linux console
@section How can I alleviate the limitations of the Linux console?
@cindex Console, Linux console, TTY, fbterm
diff --git a/doc/misc/eglot.texi b/doc/misc/eglot.texi
index eed9744b9f0..962e6c914ce 100644
--- a/doc/misc/eglot.texi
+++ b/doc/misc/eglot.texi
@@ -98,6 +98,7 @@ This manual documents how to configure, use, and customize
Eglot.
* Eglot and LSP Servers:: How to work with language servers.
* Using Eglot:: Important Eglot commands and variables.
* Customizing Eglot:: Eglot customization and advanced features.
+* Advanced server configuration:: Fine-tune a specific language server
* Troubleshooting Eglot:: Troubleshooting and reporting bugs.
* GNU Free Documentation License:: The license for this manual.
* Index::
@@ -153,11 +154,11 @@ Use Eglot.
Most Eglot facilities are integrated into Emacs features, such as
ElDoc, Flymake, Xref, and Imenu. However, Eglot also provides
-commands of its own, mainly to perform tasks by the LSP server, such
-as @kbd{M-x eglot-rename} (to rename an identifier across the entire
-project), @kbd{M-x eglot-format} (to reformat and reindent code), and
-some others. @xref{Eglot Commands}, for the detailed list of Eglot
-commands.
+commands of its own, mainly to perform tasks by the language server,
+such as @kbd{M-x eglot-rename} (to rename an identifier across the
+entire project), @kbd{M-x eglot-format} (to reformat and reindent
+code), and some others. @xref{Eglot Commands}, for the detailed list
+of Eglot commands.
@item
That's it!
@@ -226,11 +227,10 @@ This says to invoke @var{program} with zero or more
arguments
standard input and standard output streams.
@item (@var{program} @var{args}@dots{} :initializationOptions
@var{options}@dots{})
-Like above, but with @var{options} specifying the options to be
-used for constructing the @samp{initializationOptions} JSON object for
-the server. @var{options} can also be a function of one argument, in
-which case it will be called with the server instance as the argument,
-and should return the JSON object to use for initialization.
+@var{program} is invoked with @var{args} but @var{options} specifies
+how to construct the @samp{:initializationOptions} JSON object to pass
+the server on during the LSP handshake (@pxref{Advanced server
+configuration}).
@item (@var{host} @var{port} @var{args}@dots{})
Here @var{host} is a string and @var{port} is a positive integer
@@ -465,52 +465,10 @@ ElDoc look nicer on display.
@item
In addition to enabling and enhancing other features and packages,
-Eglot also provides a small number of user commands based directly on
-the capabilities of language servers. These commands are:
-
-@table @kbd
-@item M-x eglot-rename
-This prompts for a new name for the symbol at point, and then modifies
-all the project source files to rename the symbol to the new name,
-based on editing data received from the language-server. @xref{Eglot
-and Buffers}, for the details of how project files are defined.
-
-@item M-x eglot-format
-This reformats and prettifies the current active region according to
-source formatting rules of the language-server. If the region is not
-active, it reformats the entire buffer instead.
-
-@item M-x eglot-format-buffer
-This reformats and prettifies the current buffer according to source
-formatting rules of the language-server.
-
-@cindex code actions
-@item M-x eglot-code-actions
-@itemx M-x eglot-code-action-organize-imports
-@itemx M-x eglot-code-action-quickfix
-@itemx M-x eglot-code-action-extract
-@itemx M-x eglot-code-action-inline
-@itemx M-x eglot-code-action-rewrite
-These command allow you to invoke the so-called @dfn{code actions}:
-requests for the language-server to provide editing commands for
-various code fixes, typically either to fix an error diagnostic or to
-beautify/refactor code. For example,
-@code{eglot-code-action-organize-imports} rearranges the program
-@dfn{imports}---declarations of modules whose capabilities the program
-uses. These commands affect all the files that belong to the
-project. The command @kbd{M-x eglot-code-actions} will pop up a menu
-of code applicable actions at point.
-@end table
-
-@item M-x eglot-inlay-hints-mode
-This command toggles LSP ``inlay hints'' on and off for the current
-buffer. Inlay hints are small text annotations to specific parts of
-the whole buffer, not unlike diagnostics, but designed to help
-readability instead of indicating problems. For example, a C++ LSP
-server can serve hints about positional parameter names in function
-calls and a variable's automatically deduced type. Inlay hints help
-the user not have to remember these things by heart.
-
+Eglot also provides a number of user commands based on the
+capabilities of language servers. Examples include renaming symbols
+with @kbd{eglot-rename} and asking to automatically correct problems
+with @kbd{eglot-code-actions}. @xref{Eglot Commands}.
@end itemize
Not all servers support the full set of LSP capabilities, but most of
@@ -713,20 +671,44 @@ entire current buffer.
This command reformats the current buffer, in the same manner as
@code{eglot-format} does.
+@cindex code actions
@item M-x eglot-code-actions
-@itemx mouse-1
-This command asks the server for any @dfn{code actions} applicable at
-point. It can also be invoked by @kbd{mouse-1} clicking on
-diagnostics provided by the server.
-
-@item M-x eglot-code-action-organize-imports
+@itemx M-x eglot-code-action-organize-imports
@itemx M-x eglot-code-action-quickfix
@itemx M-x eglot-code-action-extract
@itemx M-x eglot-code-action-inline
@itemx M-x eglot-code-action-rewrite
-These commands invoke specific code actions supported by the language
-server.
-@c FIXME: Need more detailed description of each action.
+These commands allow you to invoke the so-called @dfn{code actions}:
+requests for the language server to provide editing commands for
+correcting, refactoring or beautifying your code. These commands may
+affect more than one visited file belong to the project.
+
+The command @code{eglot-code-actions} asks the server if there any
+code actions for any point in the buffer or contained in the active
+region. If there are, you the choice to execute one of them via the
+minibuffer.
+
+A common use of code actions is fixing the Flymake error diagnostics
+issued by Eglot (@pxref{Top,,, flymake, GNU Flymake manual}).
+Clicking on a diagnostic with @kbd{mouse-2} invokes
+@code{eglot-code-actions-at-mouse} which pops up a menu of available
+code actions. The variable @code{eglot-diagnostics-map} can be used
+to control the mouse binding.
+
+Other commands execute a specific code action. For example,
+@code{eglot-code-action-organize-imports} rearranges the program's
+@dfn{imports}---declarations of modules whose capabilities the program
+uses.
+
+@cindex inlay hints
+@item M-x eglot-inlay-hints-mode
+This command toggles LSP @dfn{inlay hints} on and off for the current
+buffer. Inlay hints are small text annotations to specific parts of
+the whole buffer, not unlike diagnostics, but designed to help
+readability instead of indicating problems. For example, a C++
+language server can serve hints about positional parameter names in
+function calls and a variable's automatically deduced type. Inlay
+hints help the user not have to remember these things by heart.
@end ftable
The following Eglot commands are used less commonly, mostly for
@@ -968,147 +950,322 @@ mechanism.
@cindex progress
@item eglot-report-progress
Set this variable to true if you'd like progress notifications coming
-from the LSP server to be handled as Emacs's progress reporting
+from the language server to be handled as Emacs's progress reporting
facilities.
+@end table
+
+@node Advanced server configuration
+@chapter Advanced server configuration
+
+Though many language servers work well out-of-the-box, most allow
+fine-grained control of their operation via specific configuration
+options that are transmitted over the LSP protocol and vary from
+server to server. A small number of servers require such special
+configuration to work acceptably, or even to work at all.
+
+After having setup a server executable program in
+@code{eglot-server-programs} (@pxref{Setting Up LSP Servers}) and
+ensuring Eglot can invoke it, you may want to take advantage of some
+of these options. You should first distinguish two main kinds of
+server configuration:
+
+@itemize @bullet
+@item
+Project-specific, applying to a specific project;
+
+@item
+User-specific, applying to all projects the server is used for.
+@end itemize
+
+When you have decided which kind you need, the following sections
+teach how Eglot's user variables can be used to achieve it:
+
+@menu
+* Project-specific configuration::
+* User-specific configuration::
+* JSONRPC objects in Elisp::
+@end menu
+It's important to note that not all servers allow both kinds of
+configuration, nor is it guaranteed that user options can be copied
+over to project options, and vice-versa. When in doubt, consult your
+language server's documentation.
+
+It's also worth noting that some language servers can read these
+settings from configuration files in the user's @code{HOME} directory
+or in a project's directory. For example, the @command{pylsp} Python
+server reads the file @file{~/.config/pycodestyle} for user
+configuration. The @command{clangd} C/C++ server reads both
+@file{~/.config/clangd/config.yaml} for user configuration and
+@file{.clangd} for project configuration. It may be advantageous to
+use these mechanisms instead of Eglot's, as this will probably work
+with other LSP clients and may be easier to debug than options riding
+on the LSP wire.
+
+@node Project-specific configuration
+@section Project-specific configuration
@vindex eglot-workspace-configuration
-@cindex server workspace configuration
-@item eglot-workspace-configuration
-This variable is meant to be set in the @file{.dir-locals.el} file, to
-provide per-project settings, as described below in more detail.
-@end table
+@cindex workspace configuration
+
+To set project-specific settings, which the LSP specification calls
+@dfn{workspace configuration}, the variable
+@code{eglot-workspace-configuration} may be used.
+
+This variable is a directory-local variable (@pxref{Directory
+Variables, , Per-directory Local Variables, emacs, The GNU Emacs
+Manual}). It's important to recognize that this variable really only
+makes sense when set directory-locally. It usually does not make
+sense to set it file-locally or in a major-mode hook.
-Some language servers need to know project-specific settings, which
-the LSP calls @dfn{workspace configuration}. Eglot allows such fine
-tuning of per-project settings via the variable
-@code{eglot-workspace-configuration}. Eglot sends the settings in
-this variable to each server, and each server applies the portion of the
-settings relevant to it and ignores the rest. These settings are
-communicated to the server initially (upon establishing the
-connection) or when the settings are changed, or in response to a
-configuration request from the server.
-
-In many cases, servers can be configured globally using a
-configuration file in the user's home directory or in the project
-directory, which the language server reads. For example, the
-@command{pylsp} server for Python reads the file
-@file{~/.config/pycodestyle} and the @command{clangd} server reads the
-file @file{.clangd} anywhere in the current project's directory tree.
-If possible, we recommend using those configuration files that are
-independent of Eglot and Emacs; they have the advantage that they will
-work with other LSP clients as well.
-
-If you do need to provide Emacs-specific configuration for a language
-server, we recommend defining the appropriate value in the
-@file{.dir-locals.el} file in the project's directory. The value of
-this variable should be a property list of the following format:
+The most common way to set @code{eglot-workspace-configuration } is
+using a @file{.dir-locals.el} file in the root of your project. If
+you can't do that, you may also set it from Elisp code via the
+@code{dir-locals-set-class-variables} function. (@pxref{Directory
+Local Variables,,, elisp, GNU Emacs Lisp Reference Manual}).
+
+However you choose to set it, the variable's value is a plist
+(@pxref{Property Lists,,, elisp, GNU Emacs Lisp Reference Manual}) with
+the following format:
@lisp
- (:@var{server} @var{plist}@dots{})
+ (@var{:server1} @var{plist1} @var{:server2} @var{plist2} @dots{})
@end lisp
@noindent
-Here @code{:@var{server}} identifies a particular language server and
-@var{plist} is the corresponding keyword-value property list of one or
-more parameter settings for that server, serialized by Eglot as a JSON
-object. @var{plist} may be arbitrarily complex, generally containing
-other keyword-value property sublists corresponding to JSON subobjects.
-The JSON values @code{true}, @code{false}, @code{null} and @code{@{@}}
-are represented by the Lisp values @code{t}, @code{:json-false},
-@code{nil}, and @code{eglot-@{@}}, respectively.
+Here, @var{:server1} and @var{:server2} are keywords whose names
+identify the LSP language servers to target. Consult server
+documentation to find out what name to use. @var{plist1} and
+@var{plist2} are plists of options, possibly nesting other plists.
@findex eglot-show-workspace-configuration
When experimenting with workspace settings, you can use the command
@kbd{M-x eglot-show-workspace-configuration} to inspect and debug the
-JSON value to be sent to the server. This helper command works even
-before actually connecting to the server.
+value of this variable in its final JSON form, ready to be sent to the
+server (@pxref{JSONRPC objects in Elisp}). This helper command works
+even before actually connecting to the server.
+
+These variable's value doesn't take effect immediately. That happens
+upon establishing the connection, in response to an explicit query
+from the server, or when issuing the command @kbd{M-x
+eglot-signal-didChangeConfiguration} which notifies the server during
+an ongoing Eglot session.
+
+@subsection Examples
+
+For some users, setting @code{eglot-workspace-configuration} is a
+somewhat daunting task. One of the reasons is having to manage the
+general Elisp syntax of per-mode directory-local variables, which uses
+alists (@pxref{Association Lists,,, elisp, GNU Emacs Lisp Reference
+Manual}), and the specific syntax of Eglot's variable, which uses
+plists. Some examples are useful.
+
+Let's say you want to configure two language servers to be used in a
+project written in a combination of the Python and Go languages. You
+want to use the @command{pylsp} and @command{gopls} languages
+servers. In the documentation of the servers in question (or in some
+other editor's configuration file, or in some blog article), you find
+the following configuration options in informal dotted-notation
+syntax:
+
+@example
+pylsp.plugins.jedi_completion.include_params: true
+pylsp.plugins.jedi_completion.fuzzy: true
+pylsp.pylint.enabled: false
+gopls.usePlaceholders: true
+@end example
+
+To apply this to Eglot, and assuming you chose the
+@file{.dir-locals.el} file method, the contents of that file could be:
+
+@lisp
+((nil
+ . ((eglot-workspace-configuration
+ . (:pylsp (:plugins (:jedi_completion (:include_params t
+ :fuzzy t)
+ :pylint (:enabled :json-false)))
+ :gopls (:usePlaceholders t)))))
+ (python-mode . ((indent-tabs-mode . nil)))
+ (go-mode . ((indent-tabs-mode . t))))
+@end lisp
-Here's an example of defining the workspace-configuration settings for
-a project that uses two different language servers, one for Python,
-the other one for Go (presumably, the project is written in a
-combination of these two languages). The server for Python in this
-case is @command{pylsp}, the server for Go is @command{gopls}. The
-value of @code{eglot-workspace-configuration} in this case should be:
+@noindent
+This sets the value of @code{eglot-workspace-configuration} in all the
+buffers inside the project; each server will use only the section of
+the parameters intended for that server, and ignore the rest. Note
+how alists are used for associating Emacs mode names with alists
+associating variable names with variable values. Then notice how
+plists are used inside the value of
+@code{eglot-workspace-configuration}.
+
+This following form may also be used:
@lisp
((python-mode
. ((eglot-workspace-configuration
. (:pylsp (:plugins (:jedi_completion (:include_params t
:fuzzy t)
- :pylint (:enabled :json-false)))))))
+ :pylint (:enabled :json-false)))))
+ (indent-tabs-mode . nil)))
(go-mode
. ((eglot-workspace-configuration
- . (:gopls (:usePlaceholders t))))))
+ . (:gopls (:usePlaceholders t)))
+ (indent-tabs-mode . t))))
@end lisp
@noindent
-This should go into the @file{.dir-locals.el} file in the project's
-root directory. It sets up the value of
-@code{eglot-workspace-configuration} separately for each major mode.
-
-Alternatively, the same configuration could be defined as follows:
+This sets up the value of @code{eglot-workspace-configuration}
+separately depending on the major mode of each of that project's
+buffers. @code{python-mode} buffers will have the variable set to
+@code{(:pylsp (:plugins ...))}. @code{go-mode} buffers will have the
+variable set to @code{(:gopls (:usePlaceholders t))}.
+
+Some servers will issue workspace configuration for specific files
+inside your project. For example, if you know @code{gopls} is asking
+about specific files in the @code{src/imported} subdirectory and you
+want to set a different option for @code{gopls.usePlaceholders} , you
+may use something like:
@lisp
-((nil
+((python-mode
. ((eglot-workspace-configuration
. (:pylsp (:plugins (:jedi_completion (:include_params t
:fuzzy t)
- :pylint (:enabled :json-false)))
- :gopls (:usePlaceholders t))))))
+ :pylint (:enabled :json-false)))))
+ (indent-tabs-mode nil)))
+ (go-mode
+ . ((eglot-workspace-configuration
+ . (:gopls (:usePlaceholders t)))
+ (indent-tabs-mode t)))
+ ("src/imported"
+ . ((eglot-workspace-configuration
+ . (:gopls (:usePlaceholders nil))))))
@end lisp
-This is an equivalent setup which sets the value for all the
-major-modes inside the project; each server will use only the section
-of the parameters intended for that server, and ignore the rest.
-
-As yet another alternative, you can set the value of
-@code{eglot-workspace-configuration} programmatically, via the
-@code{dir-locals-set-class-variables} function, @pxref{Directory Local
-Variables,,, elisp, GNU Emacs Lisp Reference Manual}.
-
Finally, if one needs to determine the workspace configuration based
on some dynamic context, @code{eglot-workspace-configuration} can be
set to a function. The function is called with the
@code{eglot-lsp-server} instance of the connected server (if any) and
with @code{default-directory} set to the root of the project. The
-function should return a value of the form described above.
+function should return a plist suitable for use as the variable's
+value.
-Some servers need special hand-holding to operate correctly. If your
-server has some quirks or non-conformity, it's possible to extend
-Eglot via Elisp to adapt to it, by defining a suitable
-@code{eglot-initialization-options} method via @code{cl-defmethod}
-(@pxref{Generic Functions,,, elisp, GNU Emacs Lisp Reference Manual}).
+@node User-specific configuration
+@section User-specific configuration
+@cindex initializationOptions
+@cindex command-line arguments
-Here's an example:
+This kind of configuration applies to all projects the server is used
+for. Here, there are a number of ways to do this inside Eglot.
+
+A common way is to pass command-line options to the server invocation
+via @code{eglot-server-programs}. Let's say we want to configure
+where the @command{clangd} server reads its
+@code{compile_commands.json} from. This can be done like so:
@lisp
-(require 'eglot)
+(with-eval-after-load 'eglot
+ (add-to-list 'eglot-server-programs
+ `(c++-mode . ("clangd" "--compile-commands-dir=/tmp"))))
-(add-to-list 'eglot-server-programs
- '((c++-mode c-mode) . (eglot-cquery "cquery")))
+@end lisp
-(defclass eglot-cquery (eglot-lsp-server) ()
- :documentation "A custom class for cquery's C/C++ langserver.")
+@noindent
+Another way is to have Eglot pass a JSON object to the server during
+the LSP handshake. This is done using the
+@code{:initializationOptions} syntax of @code{eglot-server-programs}:
-(cl-defmethod eglot-initialization-options ((server eglot-cquery))
- "Passes through required cquery initialization options"
- (let* ((root (car (project-roots (eglot--project server))))
- (cache (expand-file-name ".cquery_cached_index/" root)))
- (list :cacheDirectory (file-name-as-directory cache)
- :progressReportFrequencyMs -1)))
+@lisp
+(with-eval-after-load 'eglot
+ (add-to-list 'eglot-server-programs
+ `(c++-mode . ("clangd" :initializationOptions
+ (:compilationDatabasePath "/tmp")))))
@end lisp
@noindent
-See the doc string of @code{eglot-initialization-options} for more
-details.
-@c FIXME: The doc string of eglot-initialization-options should be
-@c enhanced and extended.
+The argument @code{(:compilationDatabasePath "/tmp")} is Emacs's
+representation in plist format of a simple JSON object
+@code{@{"compilationDatabasePath": "/tmp"@}}. To learn how to
+represent more deeply nested options in this format, @pxref{JSONRPC
+objects in Elisp}.
+
+In this case, the two examples achieve exactly the same, but notice
+how the option's name has changed between them.
+
+@vindex eglot-workspace-configuration
+Finally there is another way to do user-specific configuration of
+language servers, which may be used if the methods above are not
+supported. It consists of @emph{globally} setting
+@code{eglot-workspace-configuration}, a variable originally intended
+for project-specific configuration. This has the same effect as
+giving all your projects a certain default configuration, as described
+in @ref{Project-specific configuration}. Here is an example:
+
+@lisp
+(setq-default eglot-workspace-configuration
+ '(:pylsp (:plugins (:jedi_completion (:include_params t
+ :fuzzy t)
+ :pylint (:enabled :json-false)))
+ :gopls (:usePlaceholders t)))
+@end lisp
+
+Note that the global value of @code{eglot-workspace-configuration} is
+always overriden if a directory-local value is detected.
+
+@node JSONRPC objects in Elisp
+@section JSONRPC objects in Elisp
+
+Emacs's preferred way of representing JSON is via Lisp lists. In
+Eglot, the syntax of this list is the simplest possible (the one with
+fewer parenthesis), a plist (@pxref{Property Lists,,, elisp, GNU Emacs
+Lisp Reference Manual}).
+
+The plist may be arbitrarily complex, and generally containing other
+keyword-value property sub-plists corresponding to JSON sub-objects.
+
+For representing the JSON leaf values @code{true}, @code{false},
+@code{null} and @code{@{@}}, you can use the Lisp values @code{t},
+@code{:json-false}, @code{nil}, and @code{eglot-@{@}}, respectively.
+JSON arrays are represented as Elisp vectors surrounded by square brackets
+(@pxref{Vectors,,,elisp,GNU Emacs Lisp Reference Manual}).
+
+For example, the plist
+
+@lisp
+(:pylsp (:plugins (:jedi_completion (:include_params t
+ :fuzzy t
+ :cache_for ["pandas" "numpy"]
+ :pylint (:enabled :json-false))))
+ :gopls (:usePlaceholders t))
+@end lisp
+
+@noindent
+is serialized by Eglot to the following JSON text:
+
+@example
+@{
+ "pylsp": @{
+ "plugins": @{
+ "jedi_completion": @{
+ "include_params": true,
+ "fuzzy": true,
+ "cache_for": [ "pandas", "numpy" ],
+ @},
+ "pylint": @{
+ "enabled": false
+ @}
+ @}
+ @},
+ "gopls": @{
+ "usePlaceholders":true
+ @},
+@}
+@end example
@node Troubleshooting Eglot
@chapter Troubleshooting Eglot
@cindex troubleshooting Eglot
-This section documents commands and variables that can be used to
+This chapter documents commands and variables that can be used to
troubleshoot Eglot problems. It also provides guidelines for
reporting Eglot bugs in a way that facilitates their resolution.
@@ -1118,53 +1275,143 @@ pop up special buffers that can be used to inspect the
communications
between the Eglot and language server. In many cases, this will
indicate the problems or at least provide a hint.
-A common and easy-to-fix cause of performance problems is the length
-of these two buffers. If Eglot is operating correctly but slowly,
-customize the variable @code{eglot-events-buffer-size} (@pxref{Eglot
-Variables}) to limit logging, and thus speed things up.
+@menu
+* Performance::
+* Getting the latest version::
+* Reporting bugs::
+@end menu
-If you need to report an Eglot bug, please keep in mind that, because
-there are so many variables involved, it is generally both very
-@emph{difficult} and @emph{absolutely essential} to reproduce bugs
-exactly as they happened to you, the user. Therefore, every bug
-report should include:
+@node Performance
+@section Performance
+@cindex performance problems, with Eglot
+A common and easy-to-fix cause of performance problems is the length
+of the Eglot events buffer because it represent additional work that
+Eglot must do. After verifying Eglot is operating correctly but
+slowly, try to customize the variable @code{eglot-events-buffer-size}
+(@pxref{Eglot Variables}) to 0. This will disable any debug logging
+and may speed things up.
+
+In other situations, the cause of poor performance lies in the
+language server itself. Servers use aggressive caching and other
+techniques to improve their performance. Often, this can be tweaked
+by changing the server configuration (@pxref{Advanced server
+configuration}).
+
+@node Getting the latest version
+@section Getting the latest version
+@cindex upgrading Eglot
+
+To install the latest Eglot in an Emacs version that does not bundle
+Eglot, use @kbd{M-x package-install}.
+
+Often, a newer Eglot version exists that has fixed a longstanding bug,
+has more LSP features, or just better supports a particular language
+server. Recent Eglot versions can self-update via the command
+@kbd{M-x eglot-upgrade-eglot}. This will replace any currently
+installed version with the newest one available from the ELPA archives
+configured in @code{package-archives}.
+
+You can also update Eglot through other methods, such as
+@code{use-package} (@pxref{Installing packages,,, use-package,
+use-package User Manual}), @code{package-install},
+@code{list-packages} or the newer @code{package-upgrade}
+(@pxref{Packages,,, emacs, GNU Emacs Manual}). However, do read the
+docstrings of the command you intend to use before you use it, as some
+of them may not work in exactly the same way across Emacs versions,
+meaning your configuration may be not portable.
+
+@node Reporting bugs
+@section Reporting bugs
+@cindex bug reports
+
+If you think you have found a bug, we want to hear about it. Before
+reporting a bug, keep in mind that interaction with language servers
+represents a large quantity of unknown variables. Therefore, it is
+generally both @emph{difficult} and @emph{absolutely essential} that
+the maintainers reproduce bugs exactly as they happened to you, the
+user.
+
+To report an Eglot bug, send e-mail to @email{bug-gnu-emacs@@gnu.org}.
+
+To understand how to write this email, get acquainted with Emacs's bug
+reporting guidelines (@pxref{Bugs,,, emacs, GNU Emacs Manual}). Then,
+follow this Eglot-specific checklist:
@enumerate
@item
-The transcript of events obtained from the buffer popped up by
-@kbd{M-x eglot-events-buffer}. If the transcript can be narrowed down
-to show the problematic exchange, so much the better. This is
-invaluable for the investigation and reproduction of the problem.
+Include the transcript of JSONRPC events obtained from the buffer
+popped up by @kbd{M-x eglot-events-buffer}. You may narrow down the
+transcript if you are sure of where the problematic exchange is, but
+it's safer to include the whole transcript, either attached or inline.
@item
If Emacs signaled an error (an error message was seen or heard), make
-sure to repeat the process after toggling @code{debug-on-error} on
-(via @kbd{M-x toggle-debug-on-error}). This normally produces a
-backtrace of the error that should also be attached to the bug report.
+sure to repeat the process after turning on @code{debug-on-error} via
+@kbd{M-x toggle-debug-on-error}. This normally produces a backtrace
+of the error that should also be attached to the bug report.
+
+@item
+Include a description of how the maintainer should obtain, install,
+and configure the language server you used. Maintainers usually have
+access to GNU/Linux systems, though not necessarily the distribution
+that you may be using. If possible, try to replicate the problem with
+the C/C@t{++} or Python servers, as these are very easy to install.
@item
-An explanation of how to obtain, install, and configure the language
-server you used. If possible, try to replicate the problem with the
-C/C@t{++} or Python servers, as these are very easy to install.
+Describe how to setup a @emph{minimal} project directory where Eglot
+should be started for the problem to happen. Describe each file's
+name and its contents. Alternatively, you can supply the address of a
+public Git repository.
@item
-A description of how to setup the @emph{minimal} project (one or two
-files and their contents) where the problem happens.
+Include versions of the software used. The Emacs version can be
+obtained with @kbd{M-x emacs-version}.
+
+We welcome bug reports about all Eglot versions, but it is helpful to
+first check if the problem isn't already fixed in the latest version
+(@pxref{Getting the latest version}).
+
+It's also essential to include the version of ELPA packages that are
+explicitly or implicitly loaded. The optional but popular Company or
+Markdown packages are distributed as GNU ELPA packages, not to mention
+Eglot itself in some situations. Some major modes (Go, Rust, etc.)
+are provided by ELPA packages. It's sometimes easy to miss these,
+since they are usually implicitly loaded when visiting a file in that
+language.
+
+ELPA packages usually live in @code{~/.emacs.d/elpa} (or what is in
+@code{package-user-dir}). Including a listing of files in that
+directory is a way to tell the maintainers about ELPA package
+versions.
@item
-A recipe to replicate the problem with @emph{a clean Emacs run}. This
-means @kbd{emacs -Q} invocation or a very minimal (no more that 10
-lines) @file{.emacs} initialization file. @code{eglot-ensure} and
-@code{use-package} calls are generally @emph{not} needed.
+Include a recipe to replicate the problem with @emph{a clean Emacs
+run}. The invocation @code{emacs -Q -f package-initialize} starts
+Emacs with no configuration and initializes the ELPA packages. A very
+minimal @file{.emacs} initialization file (10 lines or less) is also
+acceptable and good means to describe changes to variables.
+
+There is usually no need to include @code{require} statements in the
+recipe, as Eglot's functionality uses autoloads.
+
+Likewise, there is rarely the need to use things like
+@code{use-package} or @code{eglot-ensure}. This just makes the recipe
+harder to follow. Prefer setting variables with @code{setq} and
+adding to hooks with @code{add-hook}. Prefer starting Eglot with
+@code{M-x eglot}.
@item
-Make sure to double check all the above elements and re-run the
-recipe to see that the problem is reproducible.
+Make sure to double check all the above elements and re-run the recipe
+to see that the problem is reproducible. Following the recipe should
+produce event transcript and error backtraces that are very similar to
+the ones you included. If the problem only happens sometimes, mention
+this in your report.
@end enumerate
Please keep in mind that some problems reported against Eglot may
actually be bugs in the language server or the Emacs feature/package
-that used Eglot to communicate with the language server.
+that used Eglot to communicate with the language server. Eglot is, in
+many cases, just a frontend to that functionality.
@node GNU Free Documentation License
@appendix GNU Free Documentation License
diff --git a/doc/misc/erc.texi b/doc/misc/erc.texi
index b80affbc954..14c6a457654 100644
--- a/doc/misc/erc.texi
+++ b/doc/misc/erc.texi
@@ -2,7 +2,7 @@
@c %**start of header
@setfilename ../../info/erc.info
@settitle ERC Manual
-@set ERCVER 5.5
+@set ERCVER 5.6
@set ERCDIST as distributed with Emacs @value{EMACSVER}
@include docstyle.texi
@syncodeindex fn cp
@@ -611,6 +611,7 @@ And unlike global toggles, none of these ever mutates
Integrations
* URL:: Opening IRC URLs in ERC.
+* SOCKS:: Connecting to IRC with a SOCKS proxy.
* auth-source:: Retrieving auth-source entries with ERC.
@end detailmenu
@@ -952,7 +953,7 @@ Here, ``password'' refers to your account password, which
is usually
your @samp{NickServ} password. To make this work, customize
@code{erc-sasl-user} and @code{erc-sasl-password} or specify the
@code{:user} and @code{:password} keyword arguments when invoking
-@code{erc-tls}. Note that @code{:user} cannot be given interactively.
+@code{erc-tls}.
@item @code{external} (via Client TLS Certificate)
This works in conjunction with the @code{:client-certificate} keyword
@@ -1252,6 +1253,57 @@ need a function as well:
@noindent
Users on Emacs 28 and below may need to use @code{browse-url} instead.
+@anchor{SOCKS}
+@subsection SOCKS
+@cindex SOCKS
+
+People wanting to connect to IRC through a @acronym{SOCKS} proxy are
+most likely interested in doing so over @acronym{TOR} (The Onion
+Router). If that's @emph{not} you, please adapt these instructions
+accordingly. Otherwise, keep in mind that support for Tor is
+experimental and thus insufficient for safeguarding a user's identity
+and location, especially in the case of targeted individuals.
+
+ERC's preferred Tor setup works by accessing a local Tor service
+through the built-in @file{socks.el} library that ships with Emacs.
+Other means of accessing Tor, such as via @command{torsocks}, are not
+supported. Before getting started, check that your Tor service is up
+and running. You can do that with the following command:
+
+@example
+curl --proxy socks5h://localhost:9050 https://check.torproject.org | \
+ grep 'Congratulations'
+@end example
+
+Networks and servers differ in how they expose Tor endpoints. In all
+cases, you'll want to first set the option @code{socks-server} to
+something appropriate, like @code{("tor" "127.0.0.1" 9050 5)}. For
+some networks, setting @code{erc-server-connect-function} to
+@code{socks-open-network-stream} might be enough. Others, like
+@samp{Libera.Chat}, involve additional setup. At the time of writing,
+connecting to @samp{Libera.Chat} requires both @acronym{TLS} and a
+non-@samp{PLAIN} @acronym{SASL} mechanism (@pxref{SASL}). One way to
+achieve that is by using the @samp{EXTERNAL} mechanism, as shown in
+the following example:
+
+@lisp
+(require 'erc)
+(require 'socks)
+
+(let* ((socks-password "")
+ (socks-server '("tor" "localhost" 9050 5))
+ (erc-modules (cons 'sasl erc-modules))
+ (erc-sasl-mechanism 'external)
+ (erc-server-connect-function #'erc-open-socks-tls-stream))
+ (erc-tls
+ :server "libera75jm6of4wxpxt4aynol3xjmbtxgfyjpu34ss4d7r7q2v5zrpyd.onion"
+ :port 6697
+ :nick "jrh"
+ :user "jrandomhacker"
+ :full-name "J. Random Hacker"
+ :client-certificate (list "/home/jrh/key.pem" "/home/jrh/cert.pem")))
+@end lisp
+
@node auth-source
@subsection auth-source
@cindex auth-source
@@ -1477,10 +1529,30 @@ questions. You can also try the relatively quiet
@samp{#erc}, on the
same network, for more involved questions.
@item
+@anchor{Upgrading}
You can check GNU ELPA between Emacs releases to see if a newer
version is available that might contain a fix for your issue:
@uref{https://elpa.gnu.org/packages/erc.html}.
+To upgrade, run @kbd{M-x list-packages @key{RET}}. In the
+@file{*Packages*} (@code{package-menu-mode}) buffer, click the
+@samp{erc} package link for the desired version. If unsure, or if the
+version column is too narrow to tell, try the bottom-most candidate.
+In the resulting @code{help-mode} buffer, confirm the version and
+click @samp{Install}. Make sure to restart Emacs before reconnecting
+to IRC, and don't forget that you can roll back to the previous
+version by running @kbd{M-x package-delete @key{RET}}.
+@xref{Packages,,,emacs, the Emacs manual} for more information.
+
+In the rare instance you need an emergency fix or have volunteered to
+test an edge feature between ERC releases, you can try adding
+@samp{("devel" . "https://elpa.gnu.org/devel/";)} to
+@code{package-archives} prior to performing the steps above. For
+this, you'll want to instead select a ``snapshot'' version from the
+menu. Please be aware that when going this route, the latest changes
+may not yet be available and you run the risk of incurring other bugs
+and encountering unstable features.
+
@item
To report a bug in ERC, use @kbd{M-x erc-bug}.
diff --git a/doc/misc/eshell.texi b/doc/misc/eshell.texi
index 1c33c04f647..4e2bddf42af 100644
--- a/doc/misc/eshell.texi
+++ b/doc/misc/eshell.texi
@@ -602,6 +602,8 @@ disabled by default.
@cmindex egrep
@itemx fgrep
@cmindex fgrep
+@itemx rgrep
+@cmindex rgrep
@itemx glimpse
@cmindex glimpse
The @command{grep} commands are compatible with GNU @command{grep},
diff --git a/doc/misc/flymake.texi b/doc/misc/flymake.texi
index 03d296a1d42..b6a540a6ea3 100644
--- a/doc/misc/flymake.texi
+++ b/doc/misc/flymake.texi
@@ -1,8 +1,8 @@
\input texinfo @c -*- mode: texinfo; coding: utf-8 -*-
@comment %**start of header
@setfilename ../../info/flymake.info
-@set VERSION 1.2.2
-@set UPDATED November 2021
+@set VERSION 1.3.4
+@set UPDATED April 2023
@settitle GNU Flymake @value{VERSION}
@include docstyle.texi
@syncodeindex pg cp
@@ -142,6 +142,12 @@ highlighted regions to learn what the specific problem
is. Alternatively, place point on the highlighted regions and use the
commands @code{eldoc} or @code{display-local-help}.
+Another easy way to get instant access to the diagnostic text is to
+set @code{flymake-show-diagnostics-at-end-of-line} to a non-@code{nil}
+value. This makes the diagnostic messages appear at the end of the
+line where the regular annotation is located (@pxref{Customizable
+variables})
+
@cindex next and previous diagnostic
If the diagnostics are outside the visible region of the buffer,
@code{flymake-goto-next-error} and @code{flymake-goto-prev-error} are
@@ -314,6 +320,22 @@ Which fringe (if any) should show the warning/error
bitmaps.
@item flymake-wrap-around
If non-@code{nil}, moving to errors with @code{flymake-goto-next-error} and
@code{flymake-goto-prev-error} wraps around buffer boundaries.
+
+@item flymake-show-diagnostics-at-end-of-line
+If non-@code{nil}, show summarized descriptions of diagnostics at the
+end of the line. Depending on your preference, this can either be
+distracting and easily confused with actual code, or a significant
+early aid that relieves you from moving around or reaching for the
+mouse to consult an error message.
+
+@item flymake-error-eol
+A custom face for summarizing diagnostic error messages.
+
+@item flymake-warning-eol
+A custom face for summarizing diagnostic warning messages.
+
+@item flymake-note-eol
+A custom face for summarizing diagnostic notes.
@end vtable
@node Extending Flymake
@@ -394,7 +416,7 @@ its @code{flymake-overlay-control} property:
@item
@cindex severity of diagnostic
-@code{flymake-severity} is a non-negative integer specifying the
+@code{severity} is a non-negative integer specifying the
diagnostic's severity. The higher the value, the more serious is the
error. If the overlay property @code{priority} is not specified in
@code{flymake-overlay-control}, @code{flymake-severity} is used to set
@@ -409,6 +431,17 @@ type, in case the name of the symbol associated with it is
very long.
@vindex flymake-category
@code{flymake-category} is a symbol whose property list is considered
the default for missing values of any other properties.
+
+@item
+@cindex mode-line appearance of a diagnostic
+@code{mode-line-face} is a face specifier controlling the appearance
+of the indicator of this type of diagnostic in the mode line.
+
+@item
+@cindex summarized appearance of a diagnostic
+@code{echo-face} is a face specifier controlling the appearance of the
+summarized description of this diagnostic when reading diagnostic
+messages (@pxref{Finding diagnostics}).
@end itemize
@cindex predefined diagnostic types
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index f0d3c75d055..e08a5587962 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -713,7 +713,6 @@ Choosing a Mail Back End
Browsing the Web
-* Archiving Mail::
* Web Searches:: Creating groups from articles that match a
string.
* RSS:: Reading RDF site summary.
@@ -10528,9 +10527,9 @@ article (@code{gnus-summary-refer-references}).
@kindex A T @r{(Summary)}
Display the full thread where the current article appears
(@code{gnus-summary-refer-thread}). By default this command looks for
-articles only in the current group. Some backends (currently only
-@code{nnimap}) know how to find articles in the thread directly. In
-other cases each header in the current group must be fetched and
+articles only in the current group. If the group belongs to a backend
+that has an associated search engine, articles are found by searching.
+In other cases each header in the current group must be fetched and
examined, so it usually takes a while. If you do it often, you may
consider setting @code{gnus-fetch-old-headers} to @code{invisible}
(@pxref{Filling In Threads}). This won't have any visible effects
@@ -10538,19 +10537,22 @@ normally, but it'll make this command work a whole
lot faster. Of
course, it'll make group entry somewhat slow.
@vindex gnus-refer-thread-use-search
-If @code{gnus-refer-thread-use-search} is non-@code{nil} then those backends
-that know how to find threads directly will search not just in the
-current group but all groups on the same server.
+If @code{gnus-refer-thread-use-search} is @code{nil} (the default)
+then thread-referral only looks for articles in the current group. If
+this variable is @code{t} the server to which the current group
+belongs is searched (provided that searching is available for the
+server's backend). If this variable is a list of servers, each server
+in the list is searched.
@vindex gnus-refer-thread-limit
The @code{gnus-refer-thread-limit} variable says how many old (i.e.,
articles before the first displayed in the current group) headers to
-fetch when doing this command. The default is 200. If @code{t}, all
-the available headers will be fetched. This variable can be overridden
-by giving the @kbd{A T} command a numerical prefix.
+fetch when referring a thread. The default is 500. If @code{t}, all
+the available headers will be fetched. This variable can be
+overridden by giving the @kbd{A T} command a numerical prefix.
@vindex gnus-refer-thread-limit-to-thread
-In most cases @code{gnus-refer-thread} adds any articles it finds to
+@code{gnus-summary-refer-thread} tries to add any articles it finds to
the current summary buffer. (When @code{gnus-refer-thread-use-search}
is true and the initial referral starts from a summary buffer for a
non-virtual group this may not be possible. In this case a new
@@ -17244,7 +17246,6 @@ Gnus has been getting a bit of a collection of back
ends for providing
interfaces to these sources.
@menu
-* Archiving Mail::
* Web Searches:: Creating groups from articles that match a
string.
* RSS:: Reading RDF site summary.
@end menu
@@ -17261,29 +17262,6 @@ cases, it makes a lot of sense to let the Gnus Agent
(@pxref{Gnus
Unplugged}) handle downloading articles, and then you can read them at
leisure from your local disk. No more World Wide Wait for you.
-@node Archiving Mail
-@subsection Archiving Mail
-@cindex archiving mail
-@cindex backup of mail
-
-Some of the back ends, notably @code{nnml}, @code{nnfolder}, and
-@code{nnmaildir}, now actually store the article marks with each group.
-For these servers, archiving and restoring a group while preserving
-marks is fairly simple.
-
-(Preserving the group level and group parameters as well still
-requires ritual dancing and sacrifices to the @file{.newsrc.eld} deity
-though.)
-
-To archive an entire @code{nnml}, @code{nnfolder}, or @code{nnmaildir}
-server, take a recursive copy of the server directory. There is no need
-to shut down Gnus, so archiving may be invoked by @code{cron} or
-similar. You restore the data by restoring the directory tree, and
-adding a server definition pointing to that directory in Gnus. The
-@ref{Article Backlog}, @ref{Asynchronous Fetching} and other things
-might interfere with overwriting data, so you may want to shut down Gnus
-before you restore the data.
-
@node Web Searches
@subsection Web Searches
@cindex nnweb
diff --git a/doc/misc/idlwave.texi b/doc/misc/idlwave.texi
index 3ec07fb4a50..10fc4c85c7b 100644
--- a/doc/misc/idlwave.texi
+++ b/doc/misc/idlwave.texi
@@ -1372,10 +1372,9 @@ among, with differing advantages and disadvantages. The
variable
to (as long as @code{idlwave-help-use-assistant} is not set). This
function is used to set the variable @code{browse-url-browser-function}
locally for IDLWAVE help only. Customize the latter variable to see
-what choices of browsers your system offers. Certain browsers like
-@code{w3} (bundled with many versions of Emacs) and @code{w3m}
-(@uref{http://emacs-w3m.namazu.org/}) are run within Emacs, and use
-Emacs buffers to display the HTML help. This can be convenient,
+what choices of browsers your system offers. Certain browsers like EWW
+(@pxref{Top, EWW,, eww, The Emacs Web Wowser Manual}) are run within Emacs,
+and use Emacs buffers to display the HTML help. This can be convenient,
especially on small displays, and images can even be displayed in-line
on newer Emacs versions. However, better formatting results are often
achieved with external browsers, like Mozilla. IDLWAVE assumes any
diff --git a/doc/misc/message.texi b/doc/misc/message.texi
index c3ad8dd6942..8064af53fc6 100644
--- a/doc/misc/message.texi
+++ b/doc/misc/message.texi
@@ -1948,11 +1948,9 @@ requires the @acronym{POP}-before-@acronym{SMTP}
authentication.
@cindex X-Message-SMTP-Method
If you have a complex @acronym{SMTP} setup, and want some messages to
go via one mail server, and other messages to go through another, you
-can use the @samp{X-Message-SMTP-Method} header. These are the
-supported values:
-
-@table @samp
-@item smtpmail
+can use the @samp{X-Message-SMTP-Method} header to override the
+default by using the keyword @samp{smtp} followed by the server
+information:
@example
X-Message-SMTP-Method: smtp smtp.fsf.org 587
@@ -1968,16 +1966,19 @@ This is the same as the above, but uses
@samp{other-user} as the user
name when authenticating. This is handy if you have several
@acronym{SMTP} accounts on the same server.
-@item sendmail
+This header may also be used to specify an alternative MTA by using a
+@samp{mailer} keyword, where @samp{mailer} is the name of an MTA with
+a corresponding @code{message-send-mail-with-'mailer'} function. For
+example:
@example
X-Message-SMTP-Method: sendmail
@end example
-This will send the message via the locally installed sendmail/exim/etc
-installation.
+will send the message via the locally installed sendmail program. The
+recognized values of @samp{mailer} are sendmail, qmail, mh, and
+mailclient.
-@end table
@item message-mh-deletable-headers
@vindex message-mh-deletable-headers
diff --git a/doc/misc/modus-themes.org b/doc/misc/modus-themes.org
index 47d3e6c03e3..7809bd03918 100644
--- a/doc/misc/modus-themes.org
+++ b/doc/misc/modus-themes.org
@@ -4,9 +4,9 @@
#+language: en
#+options: ':t toc:nil author:t email:t num:t
#+startup: content
-#+macro: stable-version 4.1.0
-#+macro: release-date 2023-02-22
-#+macro: development-version 4.2.0-dev
+#+macro: stable-version 4.2.0
+#+macro: release-date 2023-05-30
+#+macro: development-version 4.3.0-dev
#+macro: file @@texinfo:@file{@@$1@@texinfo:}@@
#+macro: space @@texinfo:@: @@
#+macro: kbd @@texinfo:@kbd{@@$1@@texinfo:}@@
@@ -77,7 +77,7 @@ combinations of background and foreground values. For small
sized
text, this corresponds to the WCAG AAA standard, which specifies a
minimum rate of distance in relative luminance of 7:1.
-The Modus themes consist of six themes, divided into three subgroups.
+The Modus themes consist of eight themes, divided into four subgroups.
- Main themes :: ~modus-operandi~ is the project's main light theme,
while ~modus-vivendi~ is its dark counterpart. These two themes are
@@ -101,15 +101,23 @@ The Modus themes consist of six themes, divided into
three subgroups.
users with deueteranopia or deuteranomaly (mostly yellow and blue
hues).
+- Tritanopia themes :: ~modus-operandi-tritanopia~ and its counterpart
+ ~modus-vivendi-tritanopia~ are optimized for users with blue-yellow
+ color deficiency. The idea is the same as with the deuteranopia
+ variants: color coding relies only on hues that are accessible to
+ people with tritanopia or tritanomaly, namely, shades of red and
+ cyan.
+
To ensure that users have a consistently accessible experience, the
themes strive to achieve as close to full face coverage as possible,
while still targeting a curated list of well-maintained packages
([[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]).
-The overarching objective of this project is to always offer accessible
-color combinations. There shall never be a compromise on this
-principle. If there arises an inescapable trade-off between readability
-and stylistic considerations, we will always opt for the former.
+The overarching objective of this project is to always offer
+accessible color combinations. There shall never be a compromise on
+this principle. If there arises an inescapable trade-off between
+usability and stylistic considerations, we will always opt for the
+former.
Starting with version 0.12.0 and onwards, the themes are built into GNU
Emacs.
@@ -441,6 +449,8 @@ will lead to failures in loading the files. If either or
both of those
variables need to be changed, their values should be defined before the
package declaration of the themes.
+[[#h:aabcada6-810d-4eee-b34a-d2a9c301824d][Make the themes look like what the
maintainer uses]]
+
** Differences between loading and enabling
:properties:
:custom_id: h:e68560b3-7fb0-42bc-a151-e015948f8a35
@@ -1066,6 +1076,9 @@ palette variable is =THEME-NAME-palette-overrides=, thus
yielding:
#+vindex: modus-operandi-tinted-palette-overrides
+ ~modus-operandi-tinted-palette-overrides~
+#+vindex: modus-operandi-tritanopia-palette-overrides
++ ~modus-operandi-tritanopia-palette-overrides~
+
#+vindex: modus-vivendi-palette-overrides
+ ~modus-vivendi-palette-overrides~
@@ -1075,6 +1088,9 @@ palette variable is =THEME-NAME-palette-overrides=, thus
yielding:
#+vindex: modus-vivendi-tinted-palette-overrides
+ ~modus-vivendi-tinted-palette-overrides~
+#+vindex: modus-vivendi-tritanopia-palette-overrides
++ ~modus-vivendi-tritanopia-palette-overrides~
+
Theme-specific overrides take precedence over the shared ones. It is
strongly advised that shared overrides do NOT alter color values, as
those will not be appropriate for both dark and light themes. Common
@@ -1123,7 +1139,7 @@ For example, the ~modus-operandi-palette~ is like this:
#+end_src
The ~modus-operandi-palette-overrides~ targets the entries that need
-to be changed. For example, to make the main foreground colour a dark
+to be changed. For example, to make the main foreground color a dark
gray instead of pure black, use a shade of red for comments, and apply
a cyan hue to keywords:
@@ -1153,15 +1169,30 @@ Named colors can be previewed, such as with the command
For a video tutorial that users of all skill levels can approach,
watch: https://protesilaos.com/codelog/2022-12-17-modus-themes-v4-demo/.
-*** Palette override presets
+* Advanced customization
+:properties:
+:custom_id: h:f4651d55-8c07-46aa-b52b-bed1e53463bb
+:end:
+
+Unlike the predefined customization options which follow a clear pattern
+of allowing the user to quickly specify their preference, the themes
+also provide a more flexible, albeit difficult, mechanism to control
+things with precision
([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]).
+
+This section is of interest only to users who are prepared to maintain
+their own local tweaks and who are willing to deal with any possible
+incompatibilities between versioned releases of the themes. As such,
+they are labeled as "do-it-yourself" or "DIY".
+
+** Palette override presets
:PROPERTIES:
:CUSTOM_ID: h:b0bc811c-227e-42ec-bf67-15e1f41eb7bc
:END:
This section shows how to refashion the themes by opting in to the
stylistic presets we provide. Those presets override the default
-color mappings to amplify or tone down the overall coloration of the
-them.
+color mappings to amplify, tone down, or refashion the overall
+coloration of the themes.
To make almost all aspects of the themes less intense, use this:
@@ -1187,6 +1218,18 @@ The ~modus-themes-preset-overrides-intense~ makes many
background
colors accented instead of gray and increases coloration in a number
of places. Colors stand out more and are made easier to spot.
+#+vindex: modus-themes-preset-overrides-cooler
+#+vindex: modus-themes-preset-overrides-warmer
+For some stylistic variation try the "cooler" and "warmer" presets:
+
+#+begin_src emacs-lisp
+;; This:
+(setq modus-themes-common-palette-overrides
modus-themes-preset-overrides-cooler)
+
+;; Or:
+(setq modus-themes-common-palette-overrides
modus-themes-preset-overrides-warmer)
+#+end_src
+
Note that the user is not limited to those presets. The system of
overrides we provide makes it possible to tweak the value of each
individual named color and to change how values are assigned to
@@ -1214,7 +1257,7 @@ the general idea (extra space for didactic purposes):
,@modus-themes-preset-overrides-intense))
#+end_src
-*** Stylistic variants using palette overrides
+** Stylistic variants using palette overrides
:PROPERTIES:
:CUSTOM_ID: h:df1199d8-eaba-47db-805d-6b568a577bf3
:END:
@@ -1226,7 +1269,7 @@ to take effect. To apply overrides at startup simply
define them
before the call that loads the theme. Remember that we also provide
presets that are easier to apply
([[#h:b0bc811c-227e-42ec-bf67-15e1f41eb7bc][Palette override presets]]).
-**** Make the mode line borderless
+*** Make the mode line borderless
:PROPERTIES:
:CUSTOM_ID: h:80ddba52-e188-411f-8cc0-480ebd75befe
:END:
@@ -1263,7 +1306,7 @@ set their color to that of the underlying background.
(border-mode-line-inactive bg-mode-line-inactive)))
#+end_src
-**** Make the active mode line colorful
+*** Make the active mode line colorful
:PROPERTIES:
:CUSTOM_ID: h:e8d781be-eefc-4a81-ac4e-5ed156190df7
:END:
@@ -1307,7 +1350,7 @@ have a blue mode line for ~modus-operandi~ and a red one
for
(border-mode-line-active bg-red-subtle)))
#+end_src
-**** Make the tab bar more or less colorful
+*** Make the tab bar more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:096658d7-a0bd-4a99-b6dc-9b20a20cda37
:END:
@@ -1359,7 +1402,7 @@ manual.
(bg-tab-other bg-cyan-subtle)))
#+end_src
-**** Make the fringe invisible or another color
+*** Make the fringe invisible or another color
:PROPERTIES:
:CUSTOM_ID: h:c312dcac-36b6-4a1f-b1f5-ab1c9abe27b0
:END:
@@ -1393,7 +1436,7 @@ or continuation lines.
'((fringe bg-blue-nuanced)))
#+end_src
-**** Make links use subtle or no underlines
+*** Make links use subtle or no underlines
:PROPERTIES:
:CUSTOM_ID: h:6c1d1dea-5cbf-4d92-b7bb-570a7a23ffe9
:END:
@@ -1417,7 +1460,7 @@ that underline mappings can read correctly.
(underline-link-symbolic unspecified)))
#+end_src
-**** Make prompts more or less colorful
+*** Make prompts more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:bd75b43a-0bf1-45e7-b8b4-20944ca8b7f8
:END:
@@ -1454,7 +1497,7 @@ block we show how to add or remove color from prompts.
(bg-prompt bg-yellow-subtle))) ; try to replace "subtle" with "intense"
#+end_src
-**** Make completion matches more or less colorful
+*** Make completion matches more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:d959f789-0517-4636-8780-18123f936f91
:END:
@@ -1541,7 +1584,7 @@ colors to two:
The user can mix and match to their liking.
-**** Make comments yellow and strings green
+*** Make comments yellow and strings green
:PROPERTIES:
:CUSTOM_ID: h:26f53daa-0065-48dc-88ab-6a718d16cd95
:END:
@@ -1584,7 +1627,7 @@ reproduce the effect, but also how to tweak it to one's
liking.
(string yellow-cooler)))
#+end_src
-**** Make code syntax use the old alt-syntax style
+*** Make code syntax use the old alt-syntax style
:PROPERTIES:
:CUSTOM_ID: h:c8767172-bf11-4c96-81dc-e736c464fc9c
:END:
@@ -1669,7 +1712,7 @@ The user can always mix and match styles to their liking.
[[#h:943063da-7b27-4ba4-9afe-f8fe77652fd1][Make use of alternative styles for
code syntax]].
-**** Make use of alternative styles for code syntax
+*** Make use of alternative styles for code syntax
:PROPERTIES:
:CUSTOM_ID: h:943063da-7b27-4ba4-9afe-f8fe77652fd1
:END:
@@ -1760,7 +1803,7 @@ theme palette.
(variable cyan-warmer)))
#+end_src
-**** Make matching parenthesis more or less intense
+*** Make matching parenthesis more or less intense
:PROPERTIES:
:CUSTOM_ID: h:259cf8f5-48ec-4b13-8a69-5d6387094468
:END:
@@ -1790,7 +1833,7 @@ to enable underlines for those highlights.
(underline-paren-match fg-main)))
#+end_src
-**** Make box buttons more or less gray
+*** Make box buttons more or less gray
:PROPERTIES:
:CUSTOM_ID: h:4f6b6ca3-f5bb-4830-8312-baa232305360
:END:
@@ -1818,7 +1861,7 @@ inactive ones.
(fg-button-inactive "gray50")))
#+end_src
-**** Make TODO and DONE more or less intense
+*** Make TODO and DONE more or less intense
:PROPERTIES:
:CUSTOM_ID: h:b57bb50b-a863-4ea8-bb38-6de2275fa868
:END:
@@ -1858,7 +1901,7 @@ to subdue them.
'((prose-done fg-dim)))
#+end_src
-**** Make headings more or less colorful
+*** Make headings more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:11297984-85ea-4678-abe9-a73aeab4676a
:END:
@@ -1915,7 +1958,7 @@ match styles at will.
(overline-heading-1 border)))
#+end_src
-**** Make Org agenda more or less colorful
+*** Make Org agenda more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:a5af0452-a50f-481d-bf60-d8143f98105f
:END:
@@ -1980,7 +2023,25 @@ A third example that makes the agenda more blue:
(date-weekend fg-dim)))
#+end_src
-**** Make inline code in prose use alternative styles
+Yet another example that also affects =DONE= and =TODO= keywords:
+
+#+begin_src emacs-lisp
+;; Change dates to a set of more subtle combinations. Deadlines are a
+;; shade of magenta, scheduled dates are a shade of green that
+;; complements that of the deadlines, weekday headings use the main
+;; foreground color while weekends are a shade of gray. The DONE
+;; keyword is a faint blue-gray while TODO is yellow.
+(setq modus-themes-common-palette-overrides
+ '((date-deadline magenta-warmer)
+ (date-scheduled green-cooler)
+ (date-weekday fg-main)
+ (date-event fg-dim)
+ (date-now blue)
+ (prose-done fg-alt)
+ (prose-todo yellow)))
+#+end_src
+
+*** Make inline code in prose use alternative styles
:PROPERTIES:
:CUSTOM_ID: h:bb5b396f-5532-4d52-ab13-149ca24854f1
:END:
@@ -2039,7 +2100,7 @@ do not show every possible permutation.
(prose-verbatim red-warmer)))
#+end_src
-**** Make mail citations and headers more or less colorful
+*** Make mail citations and headers more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:7da7a4ad-5d3a-4f11-9796-5a1abed0f0c4
:END:
@@ -2108,7 +2169,7 @@ We thus have the following:
(mail-other green)))
#+end_src
-**** Make the region preserve text colors, plus other styles
+*** Make the region preserve text colors, plus other styles
:PROPERTIES:
:CUSTOM_ID: h:c8605d37-66e1-42aa-986e-d7514c3af6fe
:END:
@@ -2148,7 +2209,7 @@ with an appropriate foreground value.
(fg-region fg-main)))
#+end_src
-**** Make mouse highlights more or less colorful
+*** Make mouse highlights more or less colorful
:PROPERTIES:
:CUSTOM_ID: h:b5cab69d-d7cb-451c-8ff9-1f545ceb6caf
:END:
@@ -2177,7 +2238,7 @@ mapping that covers mouse hover effects and related
highlights:
'((bg-hover bg-green-subtle)))
#+end_src
-**** Make language underlines less colorful
+*** Make language underlines less colorful
:PROPERTIES:
:CUSTOM_ID: h:03dbd5af-6bae-475e-85a2-cec189f69598
:END:
@@ -2210,7 +2271,7 @@ by code linters and prose spell checkers.
(underline-note green-intense)))
#+end_src
-**** Make line numbers use alternative styles
+*** Make line numbers use alternative styles
:PROPERTIES:
:CUSTOM_ID: h:b6466f51-cb58-4007-9ebe-53a27af655c7
:END:
@@ -2252,7 +2313,7 @@ this section we show how to affect the
~display-line-numbers-mode~.
(bg-line-number-active bg-cyan-intense)))
#+end_src
-**** Make diffs use only a foreground
+*** Make diffs use only a foreground
:PROPERTIES:
:CUSTOM_ID: h:b3761482-bcbf-4990-a41e-4866fb9dad15
:END:
@@ -2268,7 +2329,7 @@ adjustments for them by overriding their palettes
directly instead of
just using the "common" overrides.
#+begin_src emacs-lisp
-;; Diffs with only foreground colours. Word-wise ("refined") diffs
+;; Diffs with only foreground colors. Word-wise ("refined") diffs
;; have a gray background to draw attention to themselves.
(setq modus-themes-common-palette-overrides
'((bg-added unspecified)
@@ -2316,7 +2377,7 @@ just using the "common" overrides.
(fg-removed-intense yellow-intense)))
#+end_src
-**** Make deuteranopia diffs red and blue instead of yellow and blue
+*** Make deuteranopia diffs red and blue instead of yellow and blue
:PROPERTIES:
:CUSTOM_ID: h:16389ea1-4cb6-4b18-9409-384324113541
:END:
@@ -2367,20 +2428,110 @@ respectively. This is achieved by overriding the
"changed" and
(fg-removed-intense "#ff9095")))
#+end_src
-* Advanced customization
-:properties:
-:custom_id: h:f4651d55-8c07-46aa-b52b-bed1e53463bb
-:end:
+*** Make the themes look like what the maintainer uses
+:PROPERTIES:
+:CUSTOM_ID: h:aabcada6-810d-4eee-b34a-d2a9c301824d
+:END:
-Unlike the predefined customization options which follow a clear pattern
-of allowing the user to quickly specify their preference, the themes
-also provide a more flexible, albeit difficult, mechanism to control
-things with precision
([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]).
+Based on what we have learnt from the previous sections of this
+manual, here is what Protesilaos uses:
-This section is of interest only to users who are prepared to maintain
-their own local tweaks and who are willing to deal with any possible
-incompatibilities between versioned releases of the themes. As such,
-they are labeled as "do-it-yourself" or "DIY".
+#+begin_src emacs-lisp
+;; Always reload the theme for changes to take effect!
+
+(setq modus-themes-custom-auto-reload nil
+ modus-themes-to-toggle '(modus-operandi modus-vivendi)
+ modus-themes-mixed-fonts t
+ modus-themes-variable-pitch-ui nil
+ modus-themes-italic-constructs t
+ modus-themes-bold-constructs nil
+ modus-themes-org-blocks nil
+ modus-themes-completions '((t . (extrabold)))
+ modus-themes-prompts nil
+ modus-themes-headings
+ '((agenda-structure . (variable-pitch light 2.2))
+ (agenda-date . (variable-pitch regular 1.3))
+ (t . (regular 1.15))))
+
+(setq modus-themes-common-palette-overrides
+ '((cursor magenta-cooler)
+ ;; Make the fringe invisible.
+ (fringe unspecified)
+ ;; Make line numbers less intense and add a shade of cyan
+ ;; for the current line number.
+ (fg-line-number-inactive "gray50")
+ (fg-line-number-active cyan-cooler)
+ (bg-line-number-inactive unspecified)
+ (bg-line-number-active unspecified)
+ ;; Make the current line of `hl-line-mode' a fine shade of
+ ;; gray (though also see my `lin' package).
+ (bg-hl-line bg-dim)
+ ;; Make the region have a cyan-green background with no
+ ;; specific foreground (use foreground of underlying text).
+ ;; "bg-sage" refers to Salvia officinalis, else the common
+ ;; sage.
+ (bg-region bg-sage)
+ (fg-region unspecified)
+ ;; Make matching parentheses a shade of magenta. It
+ ;; complements the region nicely.
+ (bg-paren-match bg-magenta-intense)
+ ;; Make email citations faint and neutral, reducing the
+ ;; default four colors to two; make mail headers cyan-blue.
+ (mail-cite-0 fg-dim)
+ (mail-cite-1 blue-faint)
+ (mail-cite-2 fg-dim)
+ (mail-cite-3 blue-faint)
+ (mail-part cyan-warmer)
+ (mail-recipient blue-warmer)
+ (mail-subject magenta-cooler)
+ (mail-other cyan-warmer)
+ ;; Change dates to a set of more subtle combinations.
+ (date-deadline magenta-cooler)
+ (date-scheduled magenta)
+ (date-weekday fg-main)
+ (date-event fg-dim)
+ (date-now blue-faint)
+ ;; Make tags (Org) less colorful and tables look the same as
+ ;; the default foreground.
+ (prose-done cyan-cooler)
+ (prose-tag fg-dim)
+ (prose-table fg-main)
+ ;; Make headings less colorful (though I never use deeply
+ ;; nested headings).
+ (fg-heading-2 blue-faint)
+ (fg-heading-3 magenta-faint)
+ (fg-heading-4 blue-faint)
+ (fg-heading-5 magenta-faint)
+ (fg-heading-6 blue-faint)
+ (fg-heading-7 magenta-faint)
+ (fg-heading-8 blue-faint)
+ ;; Make the active mode line a fine shade of lavender
+ ;; (purple) and tone down the gray of the inactive mode
+ ;; lines.
+ (bg-mode-line-active bg-lavender)
+ (border-mode-line-active bg-lavender)
+
+ (bg-mode-line-inactive bg-dim)
+ (border-mode-line-inactive bg-inactive)
+ ;; Make the prompts a shade of magenta, to fit in nicely with
+ ;; the overall blue-cyan-purple style of the other overrides.
+ ;; Add a nuanced background as well.
+ (bg-prompt bg-magenta-nuanced)
+ (fg-prompt magenta-cooler)
+ ;; Tweak some more constructs for stylistic constistency.
+ (name blue-warmer)
+ (identifier magenta-faint)
+ (keybind magenta-cooler)
+ (accent-0 magenta-cooler)
+ (accent-1 cyan-cooler)
+ (accent-2 blue-warmer)
+ (accent-3 red-cooler)))
+
+;; Make the active mode line have a pseudo 3D effect (this assumes
+;; you are using the default mode line and not an extra package).
+(custom-set-faces
+ '(mode-line ((t :box (:style released-button)))))
+#+end_src
** More accurate colors in terminal emulators
:PROPERTIES:
@@ -2584,8 +2735,9 @@ for palette overrides. Else it reads only the default
palette.
[[#h:34c7a691-19bb-4037-8d2f-67a07edab150][Option for palette overrides]].
-With optional =THEME= as a symbol among ~modus-themes-items~, use the
-palette of that item. Else use the current Modus theme.
+With optional =THEME= as a symbol among ~modus-themes-items~ (alias
+~modus-themes-collection~), use the palette of that item. Else use
+the current Modus theme.
If =COLOR= is not present in the palette, this function returns the
~unspecified~ symbol, which is safe when used as a face attribute's
@@ -3479,6 +3631,90 @@ In this document, we cover
~modus-themes-after-load-theme-hook~ though
the user can replace it with ~after-enable-theme-hook~ should they
need to (provided they understand the implications).
+** Use more spacious margins or padding in Emacs frames
+:PROPERTIES:
+:CUSTOM_ID: h:43bcb5d0-e25f-470f-828c-662cee9e21f1
+:END:
+
+By default, Emacs frames try to maximize the number of characters that
+fit in the current visible portion of the buffer. Users may prefer to
+have some extra padding instead. This can make Emacs frames look more
+pleasant, but also make it easier to identify the currently active
+window.
+
+The way to implement such padding is two-fold:
+
+1. In the =early-init.el= file instruct Emacs to use a higher value
+ for the ~internal-border-width~ of all frames, as well as for the
+ ~right-divider-width~. The former concerns the outer boundaries of
+ Emacs frames, while the latter pertains to dividers between Emacs
+ windows.
+
+2. Make the relevant faces invisible by changing the value of their
+ relevant attributes to that of the current theme's main background.
+
+The parameters of Emacs frames are specified in the variables
+~initial-frame-alist~ and ~default-frame-alist~. The "initial frame"
+refers to the first frame that appears on Emacs startup. The
+"default" refers to the fallback values that apply to all other frames
+that Emacs creates (unless those are explicitly overridden by a
+bespoke ~make-frame~ call).
+
+In detail, first we use the same values for the two frame alist variables:
+
+#+begin_src emacs-lisp
+;; This must go in the early-init.el so that it applies to the initial
+;; frame.
+(dolist (var '(default-frame-alist initial-frame-alist))
+ (add-to-list var '(right-divider-width . 20))
+ (add-to-list var '(internal-border-width . 20)))
+#+end_src
+
+What the ~dolist~ does is to call ~add-to-list~ for the two variables
+we specify there. This economizes on typing.
+
+Then we define a function that makes the relevant faces invisible.
+The reason we do this with a function is so we can hook it to the
+"post load" phase of a theme, thus applying the new background value
+(otherwise you keep the old background, which likely means that the
+faces will no longer be invisible).
+
+#+begin_src emacs-lisp
+(defun my-modus-themes-invisible-dividers ()
+ "Make window dividers invisible.
+Add this to the `modus-themes-post-load-hook'."
+ (let ((bg (face-background 'default)))
+ (custom-set-faces
+ `(fringe ((t :background ,bg :foreground ,bg)))
+ `(window-divider ((t :background ,bg :foreground ,bg)))
+ `(window-divider-first-pixel ((t :background ,bg :foreground ,bg)))
+ `(window-divider-last-pixel ((t :background ,bg :foreground ,bg))))))
+
+(add-hook 'modus-themes-post-load-hook #'my-modus-themes-invisible-dividers)
+#+end_src
+
+The above will work only for themes that belong to the Modus family.
+For users of Emacs version 29 or higher, there exists a theme-agnostic
+hook that takes a function with one argument---that of the theme---and
+calls in the the "post enable" phase of theme loading. Here is the
+above snippet, with the necessary tweaks:
+
+#+begin_src emacs-lisp
+(defun my-modus-themes-invisible-dividers (_theme)
+ "Make window dividers for THEME invisible."
+ (let ((bg (face-background 'default)))
+ (custom-set-faces
+ `(fringe ((t :background ,bg :foreground ,bg)))
+ `(window-divider ((t :background ,bg :foreground ,bg)))
+ `(window-divider-first-pixel ((t :background ,bg :foreground ,bg)))
+ `(window-divider-last-pixel ((t :background ,bg :foreground ,bg))))))
+
+(add-hook 'enable-theme-functions #'my-modus-themes-invisible-dividers)
+#+end_src
+
+Users of older versions of Emacs can read the entry herein about
+defining their own theme-agnostic hook
([[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme
loading]]).
+
** Custom hl-todo colors
:PROPERTIES:
:CUSTOM_ID: h:2ef83a21-2f0a-441e-9634-473feb940743
@@ -3636,7 +3872,7 @@ have lots of extensions, so the "full support" may not be
100% true…
+ csv-mode
+ ctrlf
+ custom (what you get with {{{kbd(M-x customize)}}})
-- dashboard
++ dashboard
+ deadgrep
+ deft
+ devdocs
@@ -3651,6 +3887,7 @@ have lots of extensions, so the "full support" may not be
100% true…
+ dired-narrow
+ dired-subtree
+ diredfl
++ disk-usage
+ display-fill-column-indicator-mode
+ doom-modeline
+ ediff
@@ -3715,6 +3952,8 @@ have lots of extensions, so the "full support" may not be
100% true…
+ ivy*
+ ivy-posframe
+ jira (org-jira)
++ jit-spell
++ jinx
+ journalctl-mode
+ js2-mode
+ julia
@@ -3733,7 +3972,6 @@ have lots of extensions, so the "full support" may not be
100% true…
+ minimap
+ mode-line
+ mood-line
-+ moody
+ mpdel
+ mu4e
+ multiple-cursors
@@ -3780,6 +4018,7 @@ have lots of extensions, so the "full support" may not be
100% true…
+ rg (rg.el)
+ ripgrep
+ rmail
++ rst-mode
+ ruler-mode
+ sesman
+ shell-script-mode
@@ -3969,9 +4208,9 @@ length elsewhere in this manual:
;; Doom should not be implementing such hacks because themes
;; cannot support them:
;;
<https://protesilaos.com/codelog/2022-08-04-doom-git-gutter-modus-themes/>.
- `(git-gutter-fr:added ((,c :foreground ,bg-added-intense)))
- `(git-gutter-fr:deleted ((,c :foreground ,bg-removed-intense)))
- `(git-gutter-fr:modified ((,c :foreground ,bg-changed-intense))))))
+ `(git-gutter-fr:added ((,c :foreground ,bg-added-fringe)))
+ `(git-gutter-fr:deleted ((,c :foreground ,bg-removed-fringe)))
+ `(git-gutter-fr:modified ((,c :foreground ,bg-changed-fringe))))))
(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces)
#+end_src
@@ -4941,9 +5180,10 @@ themes remains consistent.
The former criterion should be crystal clear as it pertains to the
scientific foundations of the themes: high legibility and taking care
-of the needs of users with red-green color deficiency (deuteranopia)
-by avoiding red+green color coding paradigms and/or by providing
-yellow+blue variants ([[#h:f0f3dbcb-602d-40cf-b918-8f929c441baf][Overview]]).
+of the needs of users with red-green/blue-yellow color deficiency
+(deuteranopia and tritanopia) by avoiding red+green color coding
+paradigms and/or by providing yellow+blue variants for deuteranopia
+and red+cyan for tritanopia
([[#h:f0f3dbcb-602d-40cf-b918-8f929c441baf][Overview]]).
The latter criterion is the "je ne sais quoi" of the artistic aspect of
the themes, which is partially fleshed out in this manual.
@@ -5099,13 +5339,14 @@ The Modus themes are a collective effort. Every bit of
work matters.
+ Contributions to code or documentation :: Aleksei Gusev, Alex
Griffin, Anders Johansson, Antonio Ruiz, Basil L.{{{space()}}}
Contovounesios, Björn Lindström, Carlo Zancanaro, Christian Tietze,
- Daniel Mendler, Eli Zaretskii, Fritz Grabo, Illia Ostapyshyn, Kévin
- Le Gouguec, Koen van Greevenbroek, Kostadin Ninev, Madhavan
- Krishnan, Manuel Giraud, Markus Beppler, Matthew Stevenson, Mauro
- Aranda, Nicolas De Jaeghere, Paul David, Philip Kaludercic, Pierre
- Téchoueyres, Rudolf Adamkovič, Sergey Nichiporchik, Stephen Gildea,
- Shreyas Ragavan, Stefan Kangas, Utkarsh Singh, Vincent Murphy,
- Xinglu Chen, Yuanchen Xie, okamsn.
+ Daniel Mendler, David Edmondson, Eli Zaretskii, Fritz Grabo, Gautier
+ Ponsinet, Illia Ostapyshyn, Kévin Le Gouguec, Koen van Greevenbroek,
+ Kostadin Ninev, Madhavan Krishnan, Manuel Giraud, Markus Beppler,
+ Matthew Stevenson, Mauro Aranda, Nacho Barrientos, Nicolas De
+ Jaeghere, Paul David, Philip Kaludercic, Pierre Téchoueyres, Rudolf
+ Adamkovič, Sergey Nichiporchik, Shreyas Ragavan, Stefan Kangas,
+ Stephen Gildea, Steve Downey, Tomasz Hołubowicz, Utkarsh Singh,
+ Vincent Murphy, Xinglu Chen, Yuanchen Xie, okamsn.
+ Ideas and user feedback :: Aaron Jensen, Adam Porter, Adam Spiers,
Adrian Manea, Aleksei Pirogov, Alex Griffin, Alex Koen, Alex
@@ -5127,19 +5368,20 @@ The Modus themes are a collective effort. Every bit of
work matters.
Bestley, Mark Burton, Mark Simpson, Marko Kocic, Markus Beppler,
Matt Armstrong, Matthias Fuchs, Mattias Engdegård, Mauro Aranda,
Maxime Tréca, Michael Goldenberg, Morgan Smith, Morgan Willcock,
- Murilo Pereira, Nicky van Foreest, Nicolas De Jaeghere, Pablo
- Stafforini, Paul Poloskov, Pengji Zhang, Pete Kazmier, Peter Wu,
- Philip Kaludercic, Pierre Téchoueyres, Przemysław Kryger, Robert
- Hepple, Roman Rudakov, Russell Sim, Ryan Phillips, Rytis Paškauskas,
- Rudolf Adamkovič, Sam Kleinman, Samuel Culpepper, Saša Janiška,
- Shreyas Ragavan, Simon Pugnet, Tassilo Horn, Thanos Apollo, Thibaut
- Verron, Thomas Heartman, Togan Muftuoglu, Tony Zorman, Trey Merkley,
- Tomasz Hołubowicz, Toon Claes, Uri Sharf, Utkarsh Singh, Vincent
- Foley, Zoltan Kiraly. As well as users: Ben, CsBigDataHub1, Emacs
- Contrib, Eugene, Fourchaux, Fredrik, Moesasji, Nick, Summer Emacs,
- TheBlob42, TitusMu, Trey, bepolymathe, bit9tream, bangedorrunt,
- derek-upham, doolio, fleimgruber, gitrj95, iSeeU, jixiuf, okamsn,
- pRot0ta1p, soaringbird, tumashu, wakamenod.
+ Murilo Pereira, Nicky van Foreest, Nicolas De Jaeghere, Nicolas
+ Semrau, Oliver Epper, Pablo Stafforini, Paul Poloskov, Pengji Zhang,
+ Pete Kazmier, Peter Wu, Philip Kaludercic, Pierre Téchoueyres,
+ Przemysław Kryger, Robert Hepple, Roman Rudakov, Russell Sim, Ryan
+ Phillips, Rytis Paškauskas, Rudolf Adamkovič, Sam Kleinman, Samuel
+ Culpepper, Saša Janiška, Shreyas Ragavan, Simon Pugnet, Steve
+ Downey, Tassilo Horn, Thanos Apollo, Thibaut Verron, Thomas
+ Heartman, Togan Muftuoglu, Tony Zorman, Trey Merkley, Tomasz
+ Hołubowicz, Toon Claes, Uri Sharf, Utkarsh Singh, Vincent Foley,
+ Zoltan Kiraly. As well as users: Ben, CsBigDataHub1, Emacs Contrib,
+ Eugene, Fourchaux, Fredrik, Moesasji, Nick, Summer Emacs, TheBlob42,
+ TitusMu, Trey, bepolymathe, bit9tream, bangedorrunt, derek-upham,
+ doolio, fleimgruber, gitrj95, iSeeU, jixiuf, okamsn, pRot0ta1p,
+ soaringbird, tumashu, wakamenod.
+ Packaging :: Basil L.{{{space()}}} Contovounesios, Eli Zaretskii,
Glenn Morris, Mauro Aranda, Richard Stallman, Stefan Kangas (core
diff --git a/doc/misc/org.org b/doc/misc/org.org
index 7ff0933de75..ae3fae0623e 100644
--- a/doc/misc/org.org
+++ b/doc/misc/org.org
@@ -5958,8 +5958,9 @@ the agenda (see [[*Weekly/daily agenda]]). We
distinguish:
#+findex: org-block
For more complex date specifications, Org mode supports using the
- special expression diary entries implemented in the Emacs Calendar
- package[fn:20]. For example, with optional time:
+ special expression diary entries implemented in the
+ [[info:emacs#Special Diary Entries][Emacs Calendar package]][fn:20].
+ For example, with optional time:
#+begin_example
,* 22:00-23:00 The nerd meeting on every 2nd Thursday of the month
diff --git a/doc/misc/texinfo.tex b/doc/misc/texinfo.tex
index 3cccf01d958..a32c84197ae 100644
--- a/doc/misc/texinfo.tex
+++ b/doc/misc/texinfo.tex
@@ -3,7 +3,7 @@
% Load plain if necessary, i.e., if running under initex.
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
%
-\def\texinfoversion{2023-01-02.21}
+\def\texinfoversion{2023-03-27.21}
%
% Copyright 1985, 1986, 1988, 1990-2023 Free Software Foundation, Inc.
%
@@ -1102,27 +1102,33 @@ where each line of input produces a line of output.}
% Output page labels information.
% See PDF reference v.1.7 p.594, section 8.3.1.
+% Page label ranges must be increasing.
\ifpdf
\def\pagelabels{%
\def\title{0 << /P (T-) /S /D >>}%
- \edef\roman{\the\romancount << /S /r >>}%
- \edef\arabic{\the\arabiccount << /S /D >>}%
%
- % Page label ranges must be increasing. Remove any duplicates.
- % (There is a slight chance of this being wrong if e.g. there is
- % a @contents but no @titlepage, etc.)
- %
- \ifnum\romancount=0 \def\roman{}\fi
- \ifnum\arabiccount=0 \def\title{}%
- \else
- \ifnum\romancount=\arabiccount \def\roman{}\fi
- \fi
- %
- \ifnum\romancount<\arabiccount
- \pdfcatalog{/PageLabels << /Nums [\title \roman \arabic ] >> }\relax
+ % support @contents at very end of document
+ \ifnum\contentsendcount=\pagecount
+ \ifnum\arabiccount<\romancount
+ \pdfcatalog{/PageLabels << /Nums
+ [\title
+ \the\arabiccount << /S /D >>
+ \the\romancount << /S /r >>
+ ] >> }\relax
+ \fi
+ % no contents in document
+ \else\ifnum\contentsendcount=0
+ \pdfcatalog{/PageLabels << /Nums
+ [\title
+ \the\arabiccount << /S /D >>
+ ] >> }\relax
\else
- \pdfcatalog{/PageLabels << /Nums [\title \arabic \roman ] >> }\relax
- \fi
+ \pdfcatalog{/PageLabels << /Nums
+ [\title
+ \the\romancount << /S /r >>
+ \the\contentsendcount << /S /D >>
+ ] >> }\relax
+ \fi\fi
}
\else
\let\pagelabels\relax
@@ -1131,6 +1137,8 @@ where each line of input produces a line of output.}
\newcount\pagecount \pagecount=0
\newcount\romancount \romancount=0
\newcount\arabiccount \arabiccount=0
+\newcount\contentsendcount \contentsendcount=0
+
\ifpdf
\let\ptxadvancepageno\advancepageno
\def\advancepageno{%
@@ -2683,25 +2691,21 @@ end
}
\setregularquotes
-% Allow an option to not use regular directed right quote/apostrophe
-% (char 0x27), but instead the undirected quote from cmtt (char 0x0d).
-% The undirected quote is ugly, so don't make it the default, but it
-% works for pasting with more pdf viewers (at least evince), the
-% lilypond developers report. xpdf does work with the regular 0x27.
+% output for ' in @code
+% in tt font hex 0D (undirected) or 27 (curly right quote)
%
\def\codequoteright{%
\ifusingtt
{\ifflagclear{txicodequoteundirected}%
{\ifflagclear{codequoteundirected}%
{'}%
- {\char'15 }}%
- {\char'15 }}%
+ {\char"0D }}%
+ {\char"0D }}%
{'}%
}
-% and a similar option for the left quote char vs. a grave accent.
-% Modern fonts display ASCII 0x60 as a grave accent, so some people like
-% the code environments to do likewise.
+% output for ` in @code
+% in tt font hex 12 (grave accent) or 60 (curly left quote)
% \relax disables Spanish ligatures ?` and !` of \tt font.
%
\def\codequoteleft{%
@@ -2709,8 +2713,8 @@ end
{\ifflagclear{txicodequotebacktick}%
{\ifflagclear{codequotebacktick}%
{\relax`}%
- {\char'22 }}%
- {\char'22 }}%
+ {\char"12 }}%
+ {\char"12 }}%
{\relax`}%
}
@@ -2729,7 +2733,7 @@ end
\errmessage{Unknown @codequoteundirected value `\temp', must be on|off}%
\fi\fi
}
-%
+
\parseargdef\codequotebacktick{%
\def\temp{#1}%
\ifx\temp\onword
@@ -2744,6 +2748,11 @@ end
\fi\fi
}
+% Turn them on by default
+\let\SETtxicodequoteundirected = t
+\let\SETtxicodequotebacktick = t
+
+
% [Knuth] pp. 380,381,391, disable Spanish ligatures ?` and !` of \tt font.
\def\noligaturesquoteleft{\relax\lq}
@@ -2929,10 +2938,6 @@ end
\let-\dashnobreak
\let_\realunder
\fi
- % Given -foo (with a single dash), we do not want to allow a break
- % after the hyphen.
- \global\let\codedashprev=\codedash
- %
\codex
}
%
@@ -2942,21 +2947,30 @@ end
%
% Now, output a discretionary to allow a line break, unless
% (a) the next character is a -, or
- % (b) the preceding character is a -.
+ % (b) the preceding character is a -, or
+ % (c) we are at the start of the string.
+ % In both cases (b) and (c), \codedashnobreak should be set to \codedash.
+ %
% E.g., given --posix, we do not want to allow a break after either -.
% Given --foo-bar, we do want to allow a break between the - and the b.
\ifx\next\codedash \else
- \ifx\codedashprev\codedash
+ \ifx\codedashnobreak\codedash
\else \discretionary{}{}{}\fi
\fi
% we need the space after the = for the case when \next itself is a
% space token; it would get swallowed otherwise. As in @code{- a}.
- \global\let\codedashprev= \next
+ \global\let\codedashnobreak= \next
}
}
\def\normaldash{-}
%
-\def\codex #1{\tclose{#1}\endgroup}
+\def\codex #1{\tclose{%
+ % Given -foo (with a single dash), we do not want to allow a break
+ % after the -. \codedashnobreak is set to the first character in
+ % @code.
+ \futurelet\codedashnobreak\relax
+ #1%
+}\endgroup}
\def\codeunder{%
% this is all so @math{@code{var_name}+1} can work. In math mode, _
@@ -3950,33 +3964,23 @@ $$%
\def\HEADINGSoff{{\globaldefs=1 \headingsoff}} % global setting
-% When we turn headings on, set the page number to 1.
+% Set the page number to 1.
\def\pageone{
\global\pageno=1
\global\arabiccount = \pagecount
}
-% For double-sided printing, put current file name in lower left corner,
-% chapter name on inside top of right hand pages, document
-% title on inside top of left hand pages, and page numbers on outside top
-% edge of all pages.
-\def\HEADINGSdouble{%
-\pageone
-\HEADINGSdoublex
-}
\let\contentsalignmacro = \chappager
-% For single-sided printing, chapter title goes across top left of page,
-% page number on top right.
-\def\HEADINGSsingle{%
-\pageone
-\HEADINGSsinglex
-}
% \def\HEADINGSon{\HEADINGSdouble} % defined by \CHAPPAGon
-\def\HEADINGSafter{\let\HEADINGShook=\HEADINGSdoublex}
+% For double-sided printing, put current file name in lower left corner,
+% chapter name on inside top of right hand pages, document
+% title on inside top of left hand pages, and page numbers on outside top
+% edge of all pages.
+\def\HEADINGSafter{\let\HEADINGShook=\HEADINGSdouble}
\let\HEADINGSdoubleafter=\HEADINGSafter
-\def\HEADINGSdoublex{%
+\def\HEADINGSdouble{%
\global\evenfootline={\hfil}
\global\oddfootline={\hfil}
\global\evenheadline={\line{\folio\hfil\thistitle}}
@@ -3986,8 +3990,10 @@ $$%
\global\let\contentsalignmacro = \chapoddpage
}
-\def\HEADINGSsingleafter{\let\HEADINGShook=\HEADINGSsinglex}
-\def\HEADINGSsinglex{%
+% For single-sided printing, chapter title goes across top left of page,
+% page number on top right.
+\def\HEADINGSsingleafter{\let\HEADINGShook=\HEADINGSsingle}
+\def\HEADINGSsingle{%
\global\evenfootline={\hfil}
\global\oddfootline={\hfil}
\global\evenheadline={\line{\thischapter\hfil\folio}}
@@ -3999,7 +4005,6 @@ $$%
% for @setchapternewpage off
\def\HEADINGSsinglechapoff{%
-\pageone
\global\evenfootline={\hfil}
\global\oddfootline={\hfil}
\global\evenheadline={\line{\thischapter\hfil\folio}}
@@ -4725,13 +4730,11 @@ $$%
% except not \outer, so it can be used within macros and \if's.
\edef\newwrite{\makecsname{ptexnewwrite}}
-% \newindex {foo} defines an index named IX.
+% \newindex {IX} defines an index named IX.
% It automatically defines \IXindex such that
% \IXindex ...rest of line... puts an entry in the index IX.
% It also defines \IXindfile to be the number of the output channel for
% the file that accumulates this index. The file's extension is IX.
-% The name of an index should be no more than 2 characters long
-% for the sake of vms.
%
\def\newindex#1{%
\expandafter\chardef\csname#1indfile\endcsname=0
@@ -4989,7 +4992,7 @@ $$%
\commondummyword\ampchar {\normalamp}%
\commondummyword\atchar {\@}%
\commondummyword\arrow {->}%
- \commondummyword\backslashchar {}%
+ \commondummyword\backslashchar {\realbackslash}%
\commondummyword\bullet {bullet}%
\commondummyword\comma {,}%
\commondummyword\copyright {copyright}%
@@ -5089,9 +5092,6 @@ $$%
%
% We need to get rid of all macros, leaving only the arguments (if present).
% Of course this is not nearly correct, but it is the best we can do for now.
- % makeinfo does not expand macros in the argument to @deffn, which ends up
- % writing an index entry, and texindex isn't prepared for an index sort entry
- % that starts with \.
%
% Since macro invocations are followed by braces, we can just redefine them
% to take a single TeX argument. The case of a macro invocation that
@@ -6817,12 +6817,8 @@ might help (with 'rm \jobname.?? \jobname.??s')%
% Get ready to use Arabic numerals again
\def\contentsendroman{%
\lastnegativepageno = \pageno
- \global\pageno = \savepageno
- %
- % If \romancount > \arabiccount, the contents are at the end of the
- % document. Otherwise, advance where the Arabic numerals start for
- % the page numbers.
- \ifnum\romancount>\arabiccount\else\global\arabiccount=\pagecount\fi
+ \global\pageno=1
+ \contentsendcount = \pagecount
}
% Typeset the label for a chapter or appendix for the short contents.
@@ -7387,6 +7383,7 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\def\setupverb{%
\tt
\def\par{\leavevmode\endgraf}%
+ \parindent = 0pt
\setcodequotes
\tabeightspaces
% Respect line breaks,
@@ -7562,11 +7559,6 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\exdentamount=\defbodyindent
}
-\newtoks\defidx
-\newtoks\deftext
-
-\def\useindex#1{\defidx={#1}\ignorespaces}
-
% Called as \printdefunline \deffooheader{text}
%
\def\printdefunline#1#2{%
@@ -7574,10 +7566,6 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\plainfrenchspacing
% call \deffooheader:
#1#2 \endheader
- % create the index entry
- \defcharsdefault
- \edef\temp{\noexpand\doind{\the\defidx}{\the\deftext}}%
- \temp
% common ending:
\interlinepenalty = 10000
\advance\rightskip by 0pt plus 1fil\relax
@@ -7592,6 +7580,24 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\def\Edefun{\endgraf\medbreak}
+% @defblock, @defline do not automatically create index entries
+\envdef\defblock{%
+ \startdefun
+}
+\let\Edefblock\Edefun
+
+\def\defline{%
+ \doingtypefnfalse
+ \parseargusing\activeparens{\printdefunline\deflineheader}%
+}
+\def\deflineheader#1 #2 #3\endheader{%
+ \printdefname{#1}{}{#2}\magicamp\defunargs{#3\unskip}%
+}
+\def\deftypeline{%
+ \doingtypefntrue
+ \parseargusing\activeparens{\printdefunline\deflineheader}%
+}
+
% \makedefun{deffoo} (\deffooheader parameters) { (\deffooheader expansion) }
%
% Define \deffoo, \deffoox \Edeffoo and \deffooheader.
@@ -7643,56 +7649,51 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\fi\fi
}
-\def\defind#1#2{
- \defidx={#1}%
- \deftext={#2}%
-}
-
% Untyped functions:
% @deffn category name args
\makedefun{deffn}#1 #2 #3\endheader{%
- \defind{fn}{\code{#2}}%
- \defname{#1}{}{#2}\magicamp\defunargs{#3\unskip}%
+ \doind{fn}{\code{#2}}%
+ \printdefname{#1}{}{#2}\magicamp\defunargs{#3\unskip}%
}
% @defop category class name args
\makedefun{defop}#1 {\defopheaderx{#1\ \putwordon}}
\def\defopheaderx#1#2 #3 #4\endheader{%
- \defind{fn}{\code{#3}\space\putwordon\ \code{#2}}%
- \defname{#1\ \code{#2}}{}{#3}\magicamp\defunargs{#4\unskip}%
+ \doind{fn}{\code{#3}\space\putwordon\ \code{#2}}%
+ \printdefname{#1\ \code{#2}}{}{#3}\magicamp\defunargs{#4\unskip}%
}
% Typed functions:
% @deftypefn category type name args
\makedefun{deftypefn}#1 #2 #3 #4\endheader{%
- \defind{fn}{\code{#3}}%
+ \doind{fn}{\code{#3}}%
\doingtypefntrue
- \defname{#1}{#2}{#3}\defunargs{#4\unskip}%
+ \printdefname{#1}{#2}{#3}\defunargs{#4\unskip}%
}
% @deftypeop category class type name args
\makedefun{deftypeop}#1 {\deftypeopheaderx{#1\ \putwordon}}
\def\deftypeopheaderx#1#2 #3 #4 #5\endheader{%
- \defind{fn}{\code{#4}\space\putwordon\ \code{#1\ \code{#2}}}%
+ \doind{fn}{\code{#4}\space\putwordon\ \code{#1\ \code{#2}}}%
\doingtypefntrue
- \defname{#1\ \code{#2}}{#3}{#4}\defunargs{#5\unskip}%
+ \printdefname{#1\ \code{#2}}{#3}{#4}\defunargs{#5\unskip}%
}
% Typed variables:
% @deftypevr category type var args
\makedefun{deftypevr}#1 #2 #3 #4\endheader{%
- \defind{vr}{\code{#3}}%
- \defname{#1}{#2}{#3}\defunargs{#4\unskip}%
+ \doind{vr}{\code{#3}}%
+ \printdefname{#1}{#2}{#3}\defunargs{#4\unskip}%
}
% @deftypecv category class type var args
\makedefun{deftypecv}#1 {\deftypecvheaderx{#1\ \putwordof}}
\def\deftypecvheaderx#1#2 #3 #4 #5\endheader{%
- \defind{vr}{\code{#4}\space\putwordof\ \code{#2}}%
- \defname{#1\ \code{#2}}{#3}{#4}\defunargs{#5\unskip}%
+ \doind{vr}{\code{#4}\space\putwordof\ \code{#2}}%
+ \printdefname{#1\ \code{#2}}{#3}{#4}\defunargs{#5\unskip}%
}
% Untyped variables:
@@ -7708,8 +7709,8 @@ might help (with 'rm \jobname.?? \jobname.??s')%
% @deftp category name args
\makedefun{deftp}#1 #2 #3\endheader{%
- \defind{tp}{\code{#2}}%
- \defname{#1}{}{#2}\defunargs{#3\unskip}%
+ \doind{tp}{\code{#2}}%
+ \printdefname{#1}{}{#2}\defunargs{#3\unskip}%
}
% Remaining @defun-like shortcuts:
@@ -7725,14 +7726,14 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\makedefun{defivar}{\defcvheaderx\putwordInstanceVariableof}
\makedefun{deftypeivar}{\deftypecvheaderx\putwordInstanceVariableof}
-% \defname, which formats the name of the @def (not the args).
+% \printdefname, which formats the name of the @def (not the args).
% #1 is the category, such as "Function".
% #2 is the return type, if any.
% #3 is the function name.
%
% We are followed by (but not passed) the arguments, if any.
%
-\def\defname#1#2#3{%
+\def\printdefname#1#2#3{%
\par
% Get the values of \leftskip and \rightskip as they were outside the @def...
\advance\leftskip by -\defbodyindent
@@ -7857,7 +7858,7 @@ might help (with 'rm \jobname.?? \jobname.??s')%
% If we encounter &foo, then turn on ()-hacking afterwards
\newif\ifampseen
-\def\amprm#1 {\ampseentrue{\bf\ }}
+\def\amprm#1 {\ampseentrue{\rm\ }}
\def\parenfont{%
\ifampseen
@@ -8181,12 +8182,12 @@ might help (with 'rm \jobname.?? \jobname.??s')%
%
% We are in \macrobodyctxt, and the \xdef causes backslashshes in the macro
% body to be transformed.
-% Set \macrobody to the body of the macro, and call \defmacro.
+% Set \macrobody to the body of the macro, and call \macrodef.
%
{\catcode`\ =\other\long\gdef\parsemacbody#1@end macro{%
-\xdef\macrobody{\eatcr{#1}}\endgroup\defmacro}}%
+\xdef\macrobody{\eatcr{#1}}\endgroup\macrodef}}%
{\catcode`\ =\other\long\gdef\parsermacbody#1@end rmacro{%
-\xdef\macrobody{\eatcr{#1}}\endgroup\defmacro}}%
+\xdef\macrobody{\eatcr{#1}}\endgroup\macrodef}}%
% Make @ a letter, so that we can make private-to-Texinfo macro names.
\edef\texiatcatcode{\the\catcode`\@}
@@ -8405,16 +8406,17 @@ might help (with 'rm \jobname.?? \jobname.??s')%
% \xdef is used so that macro definitions will survive the file
% they're defined in: @include reads the file inside a group.
%
-\def\defmacro{%
+\def\macrodef{%
\let\hash=##% convert placeholders to macro parameter chars
\ifnum\paramno=1
- \def\xeatspaces##1{##1}%
- % This removes the pair of braces around the argument. We don't
- % use \eatspaces, because this can cause ends of lines to be lost
- % when the argument to \eatspaces is read, leading to line-based
- % commands like "@itemize" not being read correctly.
+ \long\def\xeatspaces##1{##1}%
+ % We don't use \xeatspaces for single-argument macros, because we
+ % want to keep ends of lines. This definition removes \xeatspaces
+ % when \macrobody is expanded below.
\else
- \let\xeatspaces\relax % suppress expansion
+ \def\xeatspaces{\string\xeatspaces}%
+ % This expands \xeatspaces as a sequence of character tokens, which
+ % stops \scantokens inserting an extra space after the control sequence.
\fi
\ifcase\paramno
% 0
@@ -8580,6 +8582,75 @@ might help (with 'rm \jobname.?? \jobname.??s')%
\fi \macnamexxx}
+% @linemacro
+
+\parseargdef\linemacro{%
+ \getargs{#1}% now \macname is the macname and \argl the arglist
+ \ifx\argl\empty
+ \paramno=0
+ \let\hash\relax
+ \def\paramlist{\hash 1\endlinemacro}%
+ \else
+ \expandafter\linegetparamlist\argl;%
+ \fi
+ \begingroup \macrobodyctxt \usembodybackslash
+ \parselinemacrobody
+}
+
+% Build up \paramlist which will be used as the parameter text for the macro.
+% At the end it will be like "#1 #2 #3\endlinemacro".
+\def\linegetparamlist#1;{%
+ \paramno=0\def\paramlist{}%
+ \let\hash\relax
+ \linegetparamlistxxx#1,;,%
+}
+\def\linegetparamlistxxx#1,{%
+ \if#1;\let\next=\linegetparamlistxxxx
+ \else \let\next=\linegetparamlistxxx
+ \advance\paramno by 1
+ \expandafter\edef\csname macarg.\eatspaces{#1}\endcsname
+ {\hash\the\paramno}%
+ \edef\paramlist{\paramlist\hash\the\paramno\space}%
+ \fi\next}
+\def\linegetparamlistxxxx{%
+ \expandafter\fixparamlist\paramlist\fixparamlist
+}
+% Replace final space token
+\def\fixparamlist#1 \fixparamlist{%
+ \def\paramlist{#1\endlinemacro}%
+}
+
+% Read the body of the macro, replacing backslash-surrounded variables
+%
+{\catcode`\ =\other\long\gdef\parselinemacrobody#1@end linemacro{%
+\xdef\macrobody{#1}%
+\endgroup
+\linemacrodef
+}}
+
+% Make the definition
+\def\linemacrodef{%
+ \let\hash=##%
+ \expandafter\xdef\csname\the\macname\endcsname{%
+ \bgroup
+ \noexpand\parsearg
+ \expandafter\noexpand\csname\the\macname @@\endcsname
+ }
+ \expandafter\xdef\csname\the\macname @@\endcsname##1{%
+ \egroup
+ \expandafter\noexpand
+ \csname\the\macname @@@\endcsname##1\noexpand\endlinemacro
+ }
+ \expandafter\expandafter
+ \expandafter\xdef
+ \expandafter\expandafter\csname\the\macname @@@\endcsname\paramlist{%
+ \newlinechar=13 % split \macrobody into lines
+ \noexpand\scantokens{\macrobody}%
+ }
+}
+
+
+
% @alias.
% We need some trickery to remove the optional spaces around the equal
% sign. Make them active and then expand them all to nothing.
@@ -9571,8 +9642,8 @@ might help (with 'rm \jobname.?? \jobname.??s')%
%
\def\caption{\docaption\thiscaption}
\def\shortcaption{\docaption\thisshortcaption}
-\def\docaption{\checkenv\float \bgroup\scanctxt\defcaption}
-\def\defcaption#1#2{\egroup \def#1{#2}}
+\def\docaption{\checkenv\float \bgroup\scanctxt\docaptionz}
+\def\docaptionz#1#2{\egroup \def#1{#2}}
% The parameter is the control sequence identifying the counter we are
% going to use. Create it if it doesn't exist and assign it to \floatno.
diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi
index acf32726895..43792c4e9e3 100644
--- a/doc/misc/tramp.texi
+++ b/doc/misc/tramp.texi
@@ -938,6 +938,16 @@ be used.
This method does not support user names.
+@item @option{flatpak}
+@cindex method @option{flatpak}
+@cindex @option{flatpak} method
+
+Integration of Flatpak sandboxes. The host name may be either an
+application ID, a sandbox instance ID, or a PID, as returned by
+@samp{flatpak ps}.
+
+This method does not support user names.
+
@end table
@@ -1247,6 +1257,7 @@ syntax requires a leading volume (share) name, for
example:
@item @option{dav}
@item @option{davs}
+@cindex WebDAV
@cindex method @option{dav}
@cindex method @option{davs}
@cindex @option{dav} method
@@ -1503,8 +1514,10 @@ access and it has the most reasonable security
protocols, use
@end example
If @option{ssh} is unavailable for whatever reason, look for other
-obvious options. For MS Windows, try the @option{plink} method. For
-Kerberos, try @option{krlogin}.
+obvious options. For MS Windows, try the @option{plink}
+method@footnote{This shouldn't be needed with recent @code{OpenSSH}
+versions for MS Windows. Use method @option{sshx}.}. For Kerberos,
+try @option{krlogin}.
For editing local files as @option{su} or @option{sudo} methods, try
the shortened syntax of @samp{root}:
@@ -2380,10 +2393,11 @@ This uses also the settings in
@code{tramp-sh-extra-args}.
@vindex RemoteCommand@r{, ssh option}
@strong{Note}: If you use an @option{ssh}-based method for connection,
do @emph{not} set the @option{RemoteCommand} option in your
-@command{ssh} configuration, for example to @command{screen}. On the
-other hand, some @option{ssh}-based methods, like @option{sshx} or
-@option{scpx}, silently overwrite a @option{RemoteCommand} option of
-the configuration file.
+@command{ssh} configuration to something like @command{screen}. If
+used, @option{RemoteCommand} must open an interactive shell on the
+remote host. On the other hand, some @option{ssh}-based methods, like
+@option{sshx} or @option{scpx}, silently overwrite a
+@option{RemoteCommand} option of the configuration file.
@subsection Other remote shell setup hints
@@ -2758,32 +2772,32 @@ allows you to set the @option{ControlPath} provided the
variable
Note how @samp{%r}, @samp{%h} and @samp{%p} must be encoded as
@samp{%%r}, @samp{%%h} and @samp{%%p}.
-@vindex tramp-use-ssh-controlmaster-options
+@vindex tramp-use-connection-share
Using a predefined string in @code{tramp-ssh-controlmaster-options},
or puzzling an own string, happens only when user option
-@code{tramp-use-ssh-controlmaster-options} is set to @code{t}. If the
+@code{tramp-use-connection-share} is set to @code{t}. If the
@file{~/.ssh/config} file is configured appropriately for the above
behavior, then any changes to @command{ssh} can be suppressed with
this @code{nil} setting:
@lisp
-(customize-set-variable 'tramp-use-ssh-controlmaster-options nil)
+(customize-set-variable 'tramp-use-connection-share nil)
@end lisp
Sometimes, it is not possible to use OpenSSH's @option{ControlMaster}
option for remote processes. This could result in concurrent access
to the OpenSSH socket when reading data by different processes, which
could block Emacs. In this case, setting
-@code{tramp-use-ssh-controlmaster-options} to @code{suppress} disables
-shared access. It is not needed to set this user option permanently
-to @code{suppress}, binding the user option prior calling
+@code{tramp-use-connection-share} to @code{suppress} disables shared
+access. It is not needed to set this user option permanently to
+@code{suppress}, binding the user option prior calling
@code{make-process} is sufficient. @value{tramp} does this for
esxample for compilation processes on its own.
@vindex ProxyCommand@r{, ssh option}
@vindex ProxyJump@r{, ssh option}
-@code{tramp-use-ssh-controlmaster-options} should also be set to
-@code{nil} or @code{suppress} if you use the @option{ProxyCommand} or
+@code{tramp-use-connection-share} should also be set to @code{nil} or
+@code{suppress} if you use the @option{ProxyCommand} or
@option{ProxyJump} options in your @command{ssh} configuration.
In order to use the @option{ControlMaster} option, @value{tramp} must
@@ -2806,12 +2820,16 @@ Host *
Check the @samp{ssh_config(5)} man page whether these options are
supported on your proxy host.
-On MS Windows, @code{tramp-use-ssh-controlmaster-options} is set to
-@code{nil} by default, because the MS Windows and MSYS2
-implementations of @command{OpenSSH} do not support this option properly.
+On MS Windows, @code{tramp-use-connection-share} is set to @code{nil}
+by default, because the MS Windows and MSYS2 implementations of
+@command{OpenSSH} do not support this option properly.
-In PuTTY, you can achieve connection sharing in the @option{Connection/SSH}
-entry, enabling the @option{Share SSH connections if possible} option.
+In PuTTY, you can achieve connection sharing in the
+@option{Connection/SSH} entry, enabling the @option{Share SSH
+connections if possible} option. @code{tramp-use-connection-share}
+must be set to @code{nil}. If @code{tramp-use-connection-share} is
+set to @code{t} or @code{suppress}, @command{plink} is called with the
+option @option{-share} or @option{-noshare}, respectively.
@subsection Configure direct copying between two remote servers
@@ -2861,11 +2879,19 @@ When @value{tramp} uses direct remote copying, password
caches are not
consulted.
-@subsection Issues with Cygwin ssh
+@subsection Issues with Cygwin and MS Windows ssh
@cindex cygwin, issues
+@cindex ms Windows, issues
This section is incomplete. Please share your solutions.
+@cindex ms windows and @command{ssh}
+@cindex ms windows and @command{ssh-agent}
+
+MS Windows' @command{ssh} does not open a remote TTY@. Use the method
+@option{sshx} or @option{scpx} instead. Furthermore, it cannot read a
+passphrase for ssh private keys. Use the MS @code{ssh-agent}.
+
@cindex method @option{sshx} with cygwin
@cindex @option{sshx} method with cygwin
@@ -2905,13 +2931,15 @@ Windows file names to Cygwin file names.
@cindex @env{SSH_AUTH_SOCK} and emacs on ms windows
@vindex SSH_AUTH_SOCK@r{, environment variable}
-When using the @command{ssh-agent} on MS Windows for password-less
-interaction, @option{ssh} methods depend on the environment variable
-@env{SSH_AUTH_SOCK}. But this variable is not set when Emacs is
-started from a Desktop shortcut and authentication fails.
+When using the cygwin @command{ssh-agent} on MS Windows for
+password-less interaction, @option{ssh} methods depend on the
+environment variable @env{SSH_AUTH_SOCK}. But this variable is not
+set when Emacs is started from a Desktop shortcut and authentication
+fails.
-One workaround is to use an MS Windows based SSH Agent, such as
-@command{Pageant}. It is part of the PuTTY Suite of tools.
+One workaround is to use an MS Windows based SSH Agent, such as the
+native MS @command{ssh-agent} or @command{Pageant}. The latter is
+part of the PuTTY Suite of tools.
The fallback is to start Emacs from a shell.
@@ -3185,6 +3213,11 @@ auto-saved files to the same directory as the original
file.
Alternatively, set the user option @code{tramp-auto-save-directory}
to direct all auto saves to that location.
+@c Since Emacs 30.
+@vindex remote-file-name-inhibit-auto-save
+If you want to suppress auto-saving of remote files at all, set user
+option @code{remote-file-name-inhibit-auto-save} to non-@code{nil}.
+
@c Since Emacs 29.
@vindex remote-file-name-inhibit-auto-save-visited
An alternative to @code{auto-save-mode} is
@@ -4300,9 +4333,9 @@ It does not use @code{tramp-remote-path}.
In order to gain even more performance, it is recommended to bind
@code{tramp-verbose} to 0 when running @code{make-process} or
@code{start-file-process}. Furthermore, you might set
-@code{tramp-use-ssh-controlmaster-options} to @code{nil} in order to
-bypass @value{tramp}'s handling of the @option{ControlMaster} options,
-and use your own settings in @file{~/.ssh/config}, @ref{Using ssh
+@code{tramp-use-connection-share} to @code{nil} in order to bypass
+@value{tramp}'s handling of the @option{ControlMaster} options, and
+use your own settings in @file{~/.ssh/config}, @ref{Using ssh
connection sharing}.
@@ -4344,7 +4377,6 @@ Flushes the current buffer's remote connection objects,
the same as in
Flushes all active remote connection objects, the same as in
@code{tramp-cleanup-connection}. This command removes also ad-hoc
proxy definitions (@pxref{Ad-hoc multi-hops}).
-
@end deffn
@deffn Command tramp-cleanup-all-buffers
@@ -4353,6 +4385,20 @@ connections and ad-hoc proxy definition are cleaned up
in addition to
killing all buffers related to remote connections.
@end deffn
+@deffn Command tramp-cleanup-some-buffers
+Similar to @code{tramp-cleanup-all-buffers}, where all remote
+connections and ad-hoc proxy definition are cleaned up. However,
+additional buffers are killed only if one of the functions in
+@code{tramp-cleanup-some-buffers-hook} returns @code{t}.
+@end deffn
+
+@defopt tramp-cleanup-some-buffers-hook
+The functions in this hook determine, whether a remote buffer is
+killed when @code{tramp-cleanup-some-buffers} is called. Per default,
+remote buffers which are linked to a remote file, remote @code{dired}
+buffers, and buffers related to a remote process are cleaned up.
+@end defopt
+
@node Renaming remote files
@section Renaming remote files
@@ -4901,6 +4947,36 @@ Disable file locks. Set
@code{remote-file-name-inhibit-locks} to
@code{t} if you know that different Emacs sessions are not modifying
the same remote file.
+@item
+@vindex remote-file-name-inhibit-auto-save
+Keep auto-save files local. This is already the default configuration
+in Emacs, don't change it. If you want to disable auto-saving for
+remote files at all, set @code{remote-file-name-inhibit-auto-save} to
+@code{t}, but think about the consequences!
+
+If you want to disable auto-saving just for selected connections, for
+example due to security considerations, use connection-local variables
+in order to set @code{buffer-auto-save-file-name}. If you, for
+example, want to disable auto-saving for all @option{sudo}
+connections, apply the following code.
+@ifinfo
+@xref{Connection Variables, , , emacs}.
+@end ifinfo
+
+@lisp
+@group
+(connection-local-set-profile-variables
+ 'my-auto-save-profile
+ '((buffer-auto-save-file-name . nil)))
+@end group
+
+@group
+(connection-local-set-profiles
+ '(:application tramp :protocol "sudo")
+ 'my-auto-save-profile)
+@end group
+@end lisp
+
@item
Disable excessive traces. Set @code{tramp-verbose} to 3 or lower,
default being 3. Increase trace levels temporarily when hunting for
@@ -5215,6 +5291,7 @@ HISTFILE=/dev/null
@item
Where are remote files trashed to?
+@vindex remote-file-name-inhibit-delete-by-moving-to-trash
Emacs can trash file instead of deleting
@ifinfo
them, @ref{Misc File Ops, Trashing , , emacs}.
diff --git a/doc/misc/transient.texi b/doc/misc/transient.texi
index 850930a290f..be9e8698ab4 100644
--- a/doc/misc/transient.texi
+++ b/doc/misc/transient.texi
@@ -31,7 +31,7 @@ General Public License for more details.
@finalout
@titlepage
@title Transient User and Developer Manual
-@subtitle for version 0.3.7.50
+@subtitle for version 0.4.1
@author Jonas Bernoulli
@page
@vskip 0pt plus 1filll
@@ -74,7 +74,7 @@ that hurdle is Psionic K's interactive tutorial, available at
@end quotation
@noindent
-This manual is for Transient version 0.3.7.50.
+This manual is for Transient version 0.4.1.
@insertcopying
@end ifnottex
@@ -2150,7 +2150,7 @@ default value of a prefix using the same format as
returned by
@item
@code{always-read} For options, whether to read a value on every invocation.
-If this is nil, then options that have a value are simply unset and
+If this is @code{nil}, then options that have a value are simply unset and
have to be invoked a second time to set a new value.
@item
@@ -2566,6 +2566,20 @@ currently exist.
Yes, see @code{transient-display-buffer-action} in @ref{Configuration}.
+@anchor{How can I copy text from the popup buffer?}
+@appendixsec How can I copy text from the popup buffer?
+
+To be able to mark text in any transient popup buffer using the mouse,
+you have to add the following binding. Note that the region won't be
+visualized, while doing so. After you have quit the transient popup,
+you will be able to yank it another buffer.
+
+@lisp
+(keymap-set transient-predicate-map
+ "<mouse-set-region>"
+ #'transient--do-stay)
+@end lisp
+
@anchor{Why did some of the key bindings change?}
@appendixsec Why did some of the key bindings change?
diff --git a/doc/misc/use-package.texi b/doc/misc/use-package.texi
index 87105c4db00..d75cb67e089 100644
--- a/doc/misc/use-package.texi
+++ b/doc/misc/use-package.texi
@@ -1554,8 +1554,11 @@ The standard Emacs package manager is documented in the
Emacs manual
(@pxref{Package Installation,,, emacs, GNU Emacs Manual}). The
@code{use-package} macro provides the @code{:ensure} and @code{:pin}
keywords that interface with that package manager to automatically
-install packages. This is particularly useful if you use your init
-file on more than one system.
+install packages. The @code{:vc} keyword may be used to control how
+package sources are downloaded; e.g., from remote hosts
+(@pxref{Fetching Package Sources,,, emacs, GNU Emacs Manual}). This
+is particularly useful if you use your init file on more than one
+system.
@menu
* Install package::
@@ -1607,6 +1610,49 @@ packages:
You can override the above setting for a single package by adding
@w{@code{:ensure nil}} to its declaration.
+@findex :vc
+The @code{:vc} keyword can be used to control how packages are
+downloaded and/or installed. More specifically, it allows one to fetch
+and update packages directly from a version control system. This is
+especially convenient when wanting to install a package that is not on
+any package archive.
+
+The keyword accepts the same arguments as specified in
+@pxref{Fetching Package Sources,,, emacs, GNU Emacs Manual}, except
+that a name need not explicitly be given: it is inferred from the
+declaration. The accepted property list is augmented by a @code{:rev}
+keyword, which has the same shape as the @code{REV} argument to
+@code{package-vc-install}. Notably -- even when not specified --
+@code{:rev} defaults to checking out the last release of the package.
+You can use @code{:rev :newest} to check out the latest commit.
+
+For example,
+
+@example
+@group
+(use-package bbdb
+ :vc (:url "https://git.savannah.nongnu.org/git/bbdb.git";
+ :rev :newest))
+@end group
+@end example
+
+would try -- by invoking @code{package-vc-install} -- to install the
+latest commit of the package @code{foo} from the specified remote.
+
+This can also be used for local packages, by combining it with the
+@code{:load-path} (@pxref{Load path}) keyword:
+
+@example
+@group
+;; Use a local copy of BBDB instead of the one from GNU ELPA.
+(use-package bbdb
+ :vc t
+ :load-path "/path/to/bbdb/dir/")
+@end group
+@end example
+
+The above dispatches to @code{package-vc-install-from-checkout}.
+
@node Pinning packages
@section Pinning packages using @code{:pin}
@cindex installing package from specific archive
diff --git a/etc/EGLOT-NEWS b/etc/EGLOT-NEWS
new file mode 100644
index 00000000000..569481a8dc1
--- /dev/null
+++ b/etc/EGLOT-NEWS
@@ -0,0 +1,602 @@
+Eglot NEWS -*- outline -*-
+
+Copyright (C) 2018-2023 Free Software Foundation, Inc.
+See the end of the file for license conditions.
+
+Please send Eglot bug reports to 'bug-gnu-emacs@gnu.org', and Cc (or
+X-Debbugs-CC) the maintainer 'joaotavora@gmail.com' as well. Please
+read the chapter titled "Troubleshooting" in the Eglot manual,
+available https://joaotavora.github.io/eglot/#Troubleshooting-Eglot
+
+This file is about changes in Eglot, the Emacs client for LSP
+(Language Server Protocol) distributed with GNU Emacs since Emacs
+version 29.1 and with GNU ELPA since 2018.
+
+Note: references to some Eglot issues are presented as "github#nnnn".
+This refers to https://github.com/joaotavora/eglot/issues/. That is,
+to look up issue github#1234, go to
+https://github.com/joaotavora/eglot/issues/1234.
+
+
+* Changes in Eglot 1.15 (29/4/2023)
+
+** Fix LSP "languageId" detection
+
+Many servers today support multiple languages, meaning they can handle
+more than one file type in the same connection. This relies on the
+client supplying a ':languageId' string. Previously, Eglot calculated
+this string based on an imperfect heuristic and was often wrong. See
+github#1206.
+
+** Fix problems with missing signature documentation (bug#62687)
+
+** Reworked 'eglot-imenu'
+
+Eglot's Imenu backend (used for M-x imenu among other extensions), has
+been reworked. Most newer servers respond to
+'textDocument/documentSymbol' with a vector of 'DocumentSymbol', not
+'SymbolInformation'. It's not worth it trying to make the two formats
+resemble each other. This also lays groundwork supporting a
+forthcoming "breadcrumb" feature of bug#58431.
+
+** New command 'eglot-update'
+
+This allows users to easily update to the latest version of Eglot.
+
+
+* Changes in Eglot 1.14 (3/4/2023)
+
+** Faster, more responsive completion
+
+Eglot takes advantage of LSP's "isIncomplete" flag in responses to
+completion requests to drive new completion-caching mechanism for the
+duration of each completion session. Once a full set of completions
+is obtained for a given position, the server needn't be contacted in
+many scenarios, resulting in significantly less communication
+overhead. This works with the popular Company package and stock
+completion-at-point interfaces.
+
+A variable 'eglot-cache-session-completions', t by default, controls
+this. The mechanism was tested with ccls, jdtls, pylsp, golsp and
+clangd. Notably, the C/C++ language server Clangd version 15 has a
+bug in its "isIcomplete" flag (it is fixed in later versions). If you
+run into problems, disable this mechanism like so:
+
+(add-hook 'c-common-mode-hook
+ (lambda () (setq-local eglot-cache-session-completions nil)))
+
+** At-point documentation less obtrusive in echo area
+
+Eglot takes advantage of new features of ElDoc to separate short
+documentation strings from large ones, sending the former to be shown in
+the ElDoc's echo area and the latter to be shown in other outlets,
+such as the *eldoc* buffer obtainable with 'C-h .'.
+
+** New variable 'eglot-prefer-plaintext'
+
+Customize this to t to opt-in to docstrings in plain text instead of
+Markdown.
+
+(bug#61373)
+
+** Progress indicators inhabit the mode-line by default
+
+To switch to the echo area, customize 'eglot-report-progress' to
+'messages'. To switch off progress reporting completely, set to nil.
+
+** Snippet support is easier to enable
+
+The user needn't manually activate 'yas-minor-mode' or
+'yas-global-mode'. If YASnippet is installed and the server supports
+snippets, it is used automatically, unless the symbol 'yasnippet' has
+been added to 'eglot-stay-out-of'.
+
+
+* Changes in Eglot 1.13 (15/03/2023)
+
+** ELPA installations on Emacs 26.3 are supported again.
+
+
+* Changes in Eglot 1.12.29 (Eglot bundled with Emacs 29.1)
+
+** Eglot has a new command to upgrade to the latest version.
+
+The new command 'eglot-upgrade-eglot' allows easily grabbing the
+latest version of Eglot from ELPA. This might be more convenient than
+using the more general command 'package-install', which by default
+will not upgrade "built-in" packages, those that come with Emacs.
+
+
+* Changes in Eglot 1.12 (13/03/2023)
+
+** LSP inlay hints are now supported.
+Inlay hints are small text annotations not unlike diagnostics, but
+designed to help readability instead of indicating problems. For
+example, a C++ LSP server can serve hints about positional parameter
+names in function calls and a variable's automatically deduced type.
+Emacs can display these hints using overlays, helping the user
+remember those types and parameter names.
+
+** Longstanding Tramp instability issues solved.
+The solution involves a Tramp-specific workaround in Eglot. Future
+Tramp versions will have this problem solved at the origin. The
+workaround will then be removed. Emacs bug#61350 has more details.
+
+(github#859, github#1020, github#883)
+
+** LSP's 'positionEncoding' capability is now supported.
+The position-encoding scheme (UTF-8, UTF-16 or UTF-32) can now
+be negotiated with the server.
+
+** More of the user's Eldoc configuration is respected.
+This change addresses the problems reported in many Eglot reports
+dating back to early 2021 at least.
+
+(github#646, github#894, github#920, github#1031, github#1171).
+
+This is unfinished work, as 'eldoc-documentation-strategy' is still
+set by Eglot during its tenure over a buffer. The default value for
+it cannot work reasonably with Eglot's additions to
+'eldoc-documentation-functions'.
+
+** Completion labels are correctly displayed in servers like clangd.
+
+(github#1141)
+
+** Assorted bugfixes.
+
+(bug#61312, bug#61478, bug#61532, bug#61726, bug#61866, bug#61748)
+
+
+* Changes in Eglot 1.11 (27/1/2023)
+
+** New server vscode-json-languageserver added to 'eglot-server-programs'.
+
+(bug#60198)
+
+** Assorted bugfixes.
+
+(bug#60379, bug#60557, (bug#61048)
+
+
+* Changes in Eglot 1.10 (16/12/2022)
+
+** Emacs progress reporters are used for LSP progress notifications.
+(bug#59149)
+
+** LSP reported URIs other than file:// are passed on to Emacs.
+This change allows other URI handlers, such as a 'jar:' handling
+package, to cooperate with Eglot and find files inside compressed file
+systems (bug#58790).
+
+** Eglot now shows in the menu bar.
+
+** Tree-sitter modes added to 'eglot-server-programs'.
+These modes are usually handled by the same server that handles the
+"classical mode".
+
+** New servers csharp-ls and texlab added to 'eglot-server-programs'.
+
+** Assorted bugfixes.
+(bug#59824, bug#59338)
+
+
+* Changes in Eglot 1.9 (8/10/2022)
+
+This is the last release before integration into Emacs's core.
+
+** New 'M-x eglot-list-connections' command.
+Probably not very useful for now. More keybindings and clickable
+shortcuts to connection-specific commands to be added later.
+
+** Manual temporarily lives in separate MANUAL.md file.
+The manual has been rewritten mostly from scratch. It is structured
+hierarchically and is more complete. After the merge into Emacs, the
+Eglot Texinfo manual bundled with Emacs used this temporary manual as
+a starting point.
+
+** Support for "single server, multiple modes".
+Previously, if an entry such as '((c++-mode c-mode) . ("clangd)")' was
+found in 'eglot-server-programs', it meant that '.cpp' files '.c'
+files would lead to two 'clangd' instances for managing them, even if
+these files were in the same project. Now only one is created. It is
+assumed that most, if not all, servers configured in
+'eglot-server-programs' handle this correctly.
+
+(github#681)
+
+** 'eglot-imenu' no longer uses problematic "special elements".
+Though Eglot's 'eglot-imenu' returned a fully compliant 'imenu'
+structure, that object was not understood by many other frontends
+other than 'M-x imenu' itself. Since the special functionality it
+enabled wasn't being used anyway, it was decided to remove it to fix
+these longstanding problems.
+
+(github#758, github#536, github#535)
+
+** 'eglot-workspace-configuration' has been overhauled.
+This variable and its uses are now more thoroughly documented. It can
+be set to a function for dynamic calculation of the configuration.
+The preferred format is a plist, though the earlier alist format is
+still supported.
+
+(github#967, github#590, github#790)
+
+** 'C-u M-.' lists and completes arbitrary workspace symbols.
+A very old request, now made possible by a relatively recent change to
+the 'workspace/symbol' RPC method.
+
+(github#131)
+
+** Reworked mode-line menus.
+New menus help discover Eglot's features and show which of them are
+supported by the current server. Menus can be customized away via
+'eglot-menu-string', making space in mode-line.
+
+(github#792)
+
+** Easier to use LSP 'initialize.initializationOptions'.
+In 'eglot-server-programs' a plist may be appended to the usual list
+of strings passed as command line arguments. The value of its
+':initializationOptions' key constructs the corresponding LSP JSON
+object. This may be easier than creating a 'defclass' for a specific
+server and specializing 'eglot-initialization-options' to that class.
+
+(github#901, github#845, github#940)
+
+** LSP on-type formatting is now supported.
+This is the 'documentOnTypeFormattingProvider' LSP capability, which
+may be disabled via 'eglot-ignored-server-capabilities'
+
+(github#899)
+
+** Basic LSP "workspace folders" support added.
+Eglot now advertises 'project-root' and 'project-external-roots' as
+workspace-folders. (Configuring 'project-vc-external-roots-function'
+via Elisp or 'tags-table-list' via Customize are two ways to set the
+external roots of a simple git project.)
+
+(github#893)
+
+** Eglot can now show project wide diagnostics via Flymake.
+Some LSP servers report diagnostics for all files in the current
+workspace. Flymake has (as of version 1.2.1) the option to show
+diagnostics from buffers other than the currently visited one. The
+command 'M-x flymake-show-project-diagnostics' will now show all the
+diagnostics relevant to a workspace.
+
+(github#810)
+
+** Support LSP completion tags.
+An LSP completion tag can be used to tell the editor how to render a
+completion. Presently, one kind of tag exists, denoting its
+corresponding completion as obsolete.
+
+(github#797)
+
+** Support LSP optional diagnostic tags.
+A diagnostic tag can indicate either "unused or unnecessary code" or
+"deprecated or obsolete code". Following the rendering suggestions in
+the protocol, we fade out unnecessary code and strike-through
+deprecated code.
+
+(github#794)
+
+** The Rust language server is now rust-analyzer by default.
+Eglot will now prefer starting "rust-analyzer" to "rls" when it is
+available. The special support code for RLS has been removed.
+
+(github#803)
+
+** New servers have been added to 'eglot-server-programs'.
+- clojure-lsp (github#813)
+- racket-langserver (github#694)
+- futhark lsp (github#922)
+- purescript-language-server (github#905)
+- Perl::LanguageServer (github#952)
+- marksman (github#1013)
+- jedi-language-server ([#994](github#994))
+
+
+* Changes in Eglot 1.8 (12/1/2022)
+
+** Alternate servers supported out-of-box for the same major mode.
+In practice, this removes the need for Eglot to "officially" bless one
+server over another.
+
+Do not confuse this feature with another missing feature which
+consists of supporting multiple servers simultaneously managing a
+major mode within a project.
+
+(github#688)
+
+** TRAMP support added.
+There are no variables to customize: visit a remote file, ensure the
+server also exists in the remote, and type "M-x eglot".
+
+(github#637, github#463, github#84)
+
+** 'eglot-ignored-server-capabilities' is now correctly spelled.
+This user-visible variable used to be spelled
+'eglot-ignored-server-capabilites', which is still a valid but
+obsolete name.
+
+(github#724)
+
+** Eglot can manage cross-referenced files outside project.
+This is activated by a new customization option
+'eglot-extend-to-xref', which defaults to nil.
+
+(github#76, github#686, github#695)
+
+** Code action shortcuts can be added by the user.
+'M-x eglot-code-actions' accepts an optional 'action-kind' argument,
+specified interactively with 'C-u'. Other shortcuts call specific
+actions directly ('eglot-code-action-inline',
+'eglot-code-action-extract', 'eglot-code-action-rewrite',
+'eglot-code-action-organize-imports' and
+'eglot-code-action-quickfix'). One can create one's own shortcuts for
+code actions with specific a kind by calling 'eglot-code-actions' from
+Lisp.
+
+(github#411)
+
+** New command 'eglot-shutdown-all added.
+This disconnects all the Eglot connections in the user's session.
+
+(github#643)
+
+** New variable 'eglot-withhold-process-id' added.
+If non-nil, Eglot will not send the Emacs process ID to the language
+server. This can be useful when using docker to run a language
+server.
+
+(github#722)
+
+** Several new servers have been added to 'eglot-server-programs'.
+- cmake-language-server (github#787)
+- css-languageserver (github#204, github#769)
+- fortls (github#603)
+- html-languageserver (github#204, github#769)
+- json-languageserver (github#204, github#769)
+- lua-lsp (github#721)
+- mint ls (github#750)
+- pyright (github#742)
+- vim-language-server (github#787)
+- yaml-language-server (github#751)
+- zls (github#646)
+
+
+* Changes in Eglot 1.7 (16/12/2020)
+
+** Hierarchical symbols are supported in Imenu.
+(github#303).
+
+** Multiple "documentation at point" sources are supported.
+Such sources include as LSP's signature, hover and also the Flymake
+diagnostic messages. They can all be presented in the echo area
+(space permitting), or via 'C-h .'. For now, composition of different
+sources can be customized using 'eldoc-documentation-strategy',
+'eldoc-echo-area-use-multiline-p' and 'eldoc-prefer-doc-buffer'.
+
+The variables 'eglot-put-doc-in-help-buffer' and
+'eglot-auto-display-help-buffer' have been removed.
+
+(github#439, github#494, github#481, github#454)
+
+
+* Changes in Eglot 1.6 (16/04/2020)
+
+** Column offset calculation is now LSP-conformant.
+It seems the majority of servers now comply with the language server
+specification when it comes to handling non-ASCII texts. Therefore
+the default values of 'eglot-move-to-column-function' and
+'eglot-current-column-function' have been changed. Consult the
+documentation of these variables for how to restore the old behavior.
+
+(github#361)
+
+** LSP workspace/configuration requests are supported.
+Also a new section "Per-project server configuration" in the README.md
+should answer some FAQ's in this regard.
+
+(github#326)
+
+
+* Changes in Eglot 1.5 (20/10/2019)
+
+** Eglot takes over Company configuration.
+Similar to what was already the case with Flymake, Eldoc and Xref, use
+just the backend that can do something useful in Eglot,
+'company-capf'. See 'eglot-stay-out-of' to opt out of this.
+
+(github#324)
+
+** New option 'eglot-autoshutdown' added.
+This disconnects the server after last managed buffer is killed.
+
+(github#217, github#270)
+
+** Completion support has been fixed.
+Among other things, consider LSP's "filterText" cookies, which enable
+a kind of poor-man's flex-matching for some backends.
+
+(github#235, github#313, github#311, github#279)
+
+** Supports LSP's "goto declaration/implementation/typeDefinition".
+
+(github#302)
+
+** New option 'eglot-send-changes-idle-time' added.
+
+(github#258)
+
+** Eglot's Eldoc no longer flickers when moving around.
+
+(github#198)
+
+** Large docs shown in help buffer instead of echo area by default.
+Also add two new customization variables
+'eglot-put-doc-in-help-buffer' and 'eglot-auto-display-help-buffer'.
+
+(github#198)
+
+** Built-in support for Go, Elixir and Ada added.
+
+(github#304, github#264, github#316)
+
+
+* Changes in Eglot 1.4 (5/1/2019)
+
+** Parameter highlighting in the first line of signature corrected.
+
+** Markdown documentation strings are rendered with faces.
+Eglot uses 'gfm-view-mode' for this.
+
+** Hard dependencies on Flymake have been removed.
+The user can turn Flymake off now in buffers managed by Eglot.
+
+** Connection hooks are run with proper directory local variables.
+This fixes issues with suspiciously empty 'didChangeConfiguration'
+messages that are supposed to communicate parameters from a
+directory-set 'eglot-workspace-configuration'.
+
+(github#196)
+
+** Completion sorting has been fixed.
+If the server returns completions in some sensible order, Eglot will
+keep it.
+
+(github#190)
+
+** Flymake and Eldoc taken over completely while managing buffers.
+No longer try to add Eglot's facilities to existing facilities in
+these two domains.
+
+
+* Changes in Eglot 1.3 (10/12/2018)
+
+** Provide strict checking of incoming LSP messages.
+
+(github#144, github#156)
+
+** Add brief context after 'xref-find-references' when available.
+
+(github#52)
+
+** Support 'completionContext' to help servers like 'ccls'.
+
+** Use Flymake from GNU ELPA.
+
+(github#178)
+
+
+* Changes in Eglot 1.2 (23/11/2018)
+
+** Support snippet completions.
+Eglot uses 'yasnippet.el' for this, if it is installed.
+
+(github#50)
+
+** 'workspace/didChangeConfiguration' implemented.
+
+(github#29)
+
+** Handle experimental/unknown server methods gracefully.
+
+(github#39)
+
+** Accept functions as entries in 'eglot-server-programs'.
+'CONTACT' in the '(MAJOR-MODE . CONTACT)' association in
+'eglot-server-programs' can now be a function of no arguments
+producing any value previously valid for a contact. Functions can be
+interactive or non-interactive.
+
+(github#63)
+
+** Improve completion to be snappier and don't hinder typing.
+
+(github#61)
+
+** Consider ':triggerCharacters' in company completion.
+
+(github#80)
+
+** Add support for LSP 'TextEdit' objects in completion.
+
+** Prefer ccls over cquery for C/C++
+
+(github#94)
+
+** 'eglot-ignored-server-capabilites' is more user-friendly.
+
+(github#126)
+
+** Supports asynchronous connections.
+If a connection to the server is taking too long, is will continue in
+the background. A new defcustom 'eglot-sync-connect' controls this
+feature.
+
+(github#68)
+
+** The 'eglot-shutdown' command prompts for the server to shutdown.
+
+(github#73)
+
+** Add support for the Eclipse JDT language server.
+
+(github#63)
+
+** Add out-of-the-box support for Haskell, Kotlin, Go, Ocaml, R.
+
+** Add the ability to move to LSP-precise columns.
+Some servers like 'clangd' follow the UTF-16-based spec very closely
+here.
+
+(github#124)
+
+** Fix a potential security issue fontifying LSP doc.
+
+(github#154)
+
+** Fix many, many bugs
+
+(github#44, github#48, github#54, github#58, github#64, github#74,
+ github#81, github#82, github#86, github#87, github#83, github#93,
+ github#100, github#115, github#120, github#121, github#126,
+ github#138, github#144, github#158, github#160, github#167)
+
+
+* Changes in Eglot 1.1 (9/7/2018)
+
+** Implement TCP autostart/autoconnect (and support Ruby's Solargraph).
+The ':autoport' symbol in the server invocation is replaced
+dynamically by a local port believed to be vacant, so that the ensuing
+TCP connection finds a listening server.
+
+** Eglot now depends on Emacs library 'jsonrpc.el'.
+
+
+----------------------------------------------------------------------
+This file is part of GNU Emacs.
+
+GNU Emacs is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+
+Local Variables:
+bug-reference-bug-regexp: "\\(\\(github\\|bug\\)#\\([0-9]+\\)\\)"
+bug-reference-url-format: eglot--debbugs-or-github-bug-uri
+paragraph-separate: "[ ]"
+End:
+
diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS
index 434bfab94e9..e9ec9e2caab 100644
--- a/etc/ERC-NEWS
+++ b/etc/ERC-NEWS
@@ -12,6 +12,229 @@ extensible IRC (Internet Relay Chat) client distributed with
GNU Emacs since Emacs version 22.1.
+* Changes in ERC 5.6
+
+** Module 'keep-place' now offers a visual indicator.
+Remember your place in ERC buffers a bit more easily while retaining
+the freedom to look around. Optionally sync the indicator to any
+progress made when you haven't yet caught up to the live stream. See
+options 'erc-keep-place-indicator-style' and friends and new module
+'keep-place-indicator', which for now must be added manually to
+'erc-modules'.
+
+** Module 'fill' now offers a style based on 'visual-line-mode'.
+This fill style mimics the "hanging indent" look of 'erc-fill-static'
+and provides some movement and editing commands to optionally tame the
+less familiar aspects of 'visual-line' behavior. An interactive
+helper called 'erc-fill-wrap-nudge' allows for dynamic "refilling" of
+buffers on the fly. Set 'erc-fill-function' to 'erc-fill-wrap' to get
+started.
+
+** A unified interactive entry point.
+New users are often dismayed to discover that M-x ERC doesn't connect
+to its default network, Libera.Chat, over TLS. Though perhaps a
+decade overdue, this is no longer the case. Other UX improvements in
+this area aim to make the process of connecting interactively slightly
+more streamlined and less repetitive, even for veteran users.
+
+** Revised buffer-display handling for interactive commands.
+A point of friction for new users and one only just introduced with
+ERC 5.5 has been the lack of visual feedback when first connecting via
+M-x erc or when issuing a "/JOIN" command at the prompt. As explained
+below, in the news for 5.5, the discovery of a security issue led to
+most new ERC buffers being "buried" on creation. On further
+reflection, this was judged to have been an overcorrection in the case
+of interactive invocations, hence the borrowing of an old option,
+'erc-query-display', and the bestowing of a new alias,
+'erc-interactive-display', which better describes its expanded role as
+a more general buffer-display knob for interactive commands ("/QUERY"
+still among them).
+
+Accompanying this addition are "display"-suffixed aliases for related
+options 'erc-join-buffer' and 'erc-auto-query', which users have
+reported as being difficult to discover and remember. When the latter
+option (now known as 'erc-receive-query-display') is nil, ERC uses
+'erc-join-buffer' in its place, much like it does for
+'erc-interactive-display'. The old nil behavior can still be gotten
+via the new compatibility flag 'erc-receive-query-display-defer'.
+
+** Setting a module's mode variable via Customize earns a warning.
+Trying and failing to activate a module via its minor mode's Custom
+widget has been an age-old annoyance for new users. Previously
+ineffective, this method now actually works, but it also admonishes
+users to edit the 'erc-modules' widget instead.
+
+** The option 'erc-timestamp-use-align-to' is more versatile.
+While this option has always offered to right-align stamps via the
+'display' text property, it's now more effective at doing so when set
+to a number indicating an offset from the right edge. And when set to
+the symbol 'margin', it displays stamps in the right margin, although,
+at the moment, this is mostly intended for use by other modules, such
+as 'fill-wrap', described above. For both these variants, users of
+the 'log' module may want to customize 'erc-log-filter-function' to
+'erc-stamp-prefix-log-filter' to avoid ragged right-hand stamps
+appearing in their saved logs.
+
+** Smarter reconnect handling for users on the move.
+ERC now offers a new, experimental reconnect strategy in the function
+'erc-server-delayed-check-reconnect', which tests for underlying
+connectivity before attempting to reconnect in earnest. See options
+'erc-server-reconnect-function' and 'erc-nickname-in-use-functions' to
+get started.
+
+** Easily constrain all ERC-related business to a dedicated frame.
+The option 'erc-reuse-frames' can now be set to 'displayed', which
+tells ERC to show new buffers in frames already occupied by buffers
+from the same connection. This customization depends on the option
+'erc-buffer-display' (formerly 'erc-join-buffer') being set to
+'frame'. If you find the name 'displayed' unhelpful, please suggest
+an alternative by writing to the mailing list.
+
+** Module 'fill' can add a bit of space between messages.
+On graphical displays, it's now possible to add some breathing room
+around certain messages via the new option 'erc-fill-line-spacing'.
+This is especially handy when using the option 'erc-fill-wrap-merge'
+to omit repeated speaker tags, which can make message boundaries less
+detectable by tired eyes.
+
+** Some keybindings are now set by modules rather than their libraries.
+To put it another way, simply loading a built-in module's library no
+longer modifies 'erc-mode-map'. Instead, modifications occur during
+module setup. This should not impact most user configs since ERC
+doesn't bother with keys already taken and only removes bindings it's
+previously created. Note that while all affected bindings still
+reside in 'erc-mode-map', future built-in modules will use their own
+minor-mode maps, and new third-party modules should do the same.
+
+** The option 'erc-timestamp-format-right' has been deprecated.
+Having to account for this option prevented other ERC modules from
+easily determining what right-hand stamps would look like before
+insertion, which is knowledge needed for certain UI decisions. The
+way ERC has chosen to address this is imperfect and boils down to
+asking users who've customized this option to switch to
+'erc-timestamp-format' instead. If you're affected by this and feel
+that some other solution, like automatic migration, is justified,
+please make that known on the bug list.
+
+** The 'nicknames' entry in 'erc-button-alist' is officially exceptional.
+It's no secret that the 'buttons' module treats potential nicknames
+specially. To simplify ERC's move to next-gen "rich UI" extensions,
+this special treatment is being canonized. From now on, all values
+other than the symbol 'erc-button-buttonize-nicks' appearing in the
+"FORM" field (third element) of this entry are considered deprecated
+and will incur a warning.
+
+** Option 'erc-query-on-unjoined-chan-privmsg' restored and renamed.
+This option was accidentally removed from the default client in ERC
+5.5 and was thus prevented from influencing PRIVMSG routing. It's now
+been restored with a slightly revised role contingent on a few
+assumptions explained in its doc string. For clarity, it has been
+renamed 'erc-ensure-target-buffer-on-privmsg'.
+
+** Improved interplay between buffer truncation and message logging.
+While most of these improvements are subtle, some affect everyday use.
+For example, users of the 'truncate' module may notice that truncation
+now happens between messages rather than arbitrary lines. And those
+with the default 'erc-insert-timestamp-left-and-right' for their
+'erc-insert-timestamp-function' will see date stamps reprinted after
+every "/CLEAR" but omitted from any logs. One notable casualty of
+these changes has been the deprecation of the ancient option
+'erc-truncate-buffer-on-save'. Users of the 'log' module can achieve
+the same effect by issuing a "/CLEAR" at the prompt.
+
+** Miscellaneous UX changes.
+Some minor quality-of-life niceties have finally made their way to
+ERC. For example, the function 'erc-echo-timestamp' is now
+interactive and can be invoked on any message to view its timestamp in
+the echo area. The command 'erc-button-previous' now moves to the
+beginning instead of the end of buttons. A new command, 'erc-news',
+can now be invoked to visit this very file. And the 'irccontrols'
+module now supports additional colors and special handling for
+"spoilers" (hidden text).
+
+** Changes in the library API.
+
+*** Some top-level dependencies have been removed.
+The library 'erc-goodies' is no longer loaded by ERC's main library.
+This was done to further cement the move toward a unidirectional
+dependency flow begun in 5.5. Additionally, a few barely used and
+newly introduced dependencies are now lazily loaded, which may upset
+some third-party code. The first of these is 'pp' because its
+'pp-to-string' is autoloaded in all supported ERC versions. Also gone
+are 'thingatpt', 'time-date', and 'iso8601'. All were used ultra
+sparingly, and the latter two have only been around for one minor
+release cycle, so their removal hopefully won't cause much churn.
+
+*** Some ERC-applied text properties have changed.
+Chiefly, 'rear-sticky' has been replaced by 'erc-command', which
+records the IRC command (or numeric) associated with a message. Less
+impactfully, the value of the 'field' property for ERC's prompt has
+changed from 't' to the more useful 'erc-prompt', although the
+property of the same name has been retained.
+
+*** ERC now manages timestamp-related properties a bit differently.
+For starters, the 'cursor-sensor-functions' property no longer
+contains unique closures and thus no longer proves effective for
+traversing messages. To compensate, a new property, 'erc-timestamp',
+now spans message bodies but not the newlines delimiting them.
+Somewhat relatedly, the function 'erc-insert-aligned' has been
+deprecated and removed from the primary client code path.
+
+*** The role of a module's Custom group is now more clearly defined.
+Associating built-in modules with Custom groups and provided library
+features has improved. More specifically, a module's group now enjoys
+the singular purpose of determining where the module's minor mode
+variable lives in the Customize interface. And although ERC is now
+slightly more adept at linking these entities, third-parties are still
+encouraged to keep a module's name aligned with its group's as well as
+the provided feature of its containing library, if only for the usual
+reasons of namespace hygiene and discoverability.
+
+*** ERC now supports arbitrary CHANTYPES.
+Specifically, channels can be prefixed with any predesignated
+character, mainly to afford more flexibility to specialty services,
+like bridges to other protocols.
+
+*** 'erc-cmd-HELP' recognizes subcommands.
+Some IRC "slash" commands are hierarchical and require users to
+specify a subcommand to actually carry out anything of consequence.
+Built-in modules can now provide more detailed help for a particular
+subcommand by telling ERC to defer to a specialized handler.
+
+*** Longtime quasi modules have been made proper.
+The 'fill' module is now defined by 'define-erc-module'. The same
+goes for ERC's imenu integration, which has 'imenu' now appearing in
+the default value of 'erc-modules'.
+
+*** Prompt input is split before 'erc-pre-send-functions' has a say.
+Hook members are now treated to input whose lines have already been
+adjusted to fall within the allowed length limit. For convenience,
+third-party code can request that the final input be "re-filled" prior
+to being sent. See doc string for details.
+
+*** ERC's prompt survives the insertion of user input and messages.
+Previously, ERC's prompt and its input marker disappeared while
+running hooks during message insertion, and the position of its
+"insert marker" (ERC's per-buffer process mark) was inconsistent
+during these spells. To make insertion handling more predictable in
+preparation for incorporating various protocol extensions, the prompt
+and its bounding markers have become perennial fixtures. In rare
+cases, these changes may mean third-party code needs tweaking, for
+example, requiring the use of 'insert-before-markers' instead of
+'insert'. As always, users feeling unduly inconvenienced by these
+changes are encouraged to voice their concerns on the bug list.
+
+*** Miscellaneous changes
+Two helper macros from GNU ELPA's Compat library are now available to
+third-party modules as 'erc-compat-call' and 'erc-compat-function'.
+In 'erc-button-alist', 'Info-goto-node' has been supplanted by plain
+old 'info', and the "<URL:...>" entry has been removed because it was
+more or less redundant. In all ERC buffers, the "<TAB>" key is now
+bound to a new command, 'erc-tab', that calls 'completion-at-point'
+inside the input area and otherwise dispatches module-specific
+commands, like 'erc-button-next'.
+
+
* Changes in ERC 5.5
** Smarter buffer naming for withstanding collisions.
@@ -155,8 +378,8 @@ In an effort to help further tame ERC's complexity, the
variable
'erc-default-recipients' is now expected to hold but a single target.
As a consequence, functions like 'erc-add-default-channel' that
imagine an alternate, aspirational model of buffer-target relations
-have been deprecated. See Emacs change-log entries from around July
-of 2022 for specifics.
+have been deprecated. For specifics, see entries in Emacs'
+ChangeLog.4 from around June 30, 2022.
A number of less consequential deprecations also debut in this
release. For example, the function 'erc-auto-query' was deemed too
diff --git a/etc/HELLO b/etc/HELLO
index 25a572e5f1f..a589e69bf03 100644
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -89,7 +89,9 @@ Mathematics ∀ p ∈ world • hello p □
Meetei Mayek (ꯃꯤꯇꯩ ꯃꯌꯦꯛ) ꯈꯨꯔꯨꯝꯖꯔꯤ
Mende Kikakui (𞠀𞠁𞠂) 𞠛𞠉
Modi (𑘦𑘻𑘚𑘲) 𑘡𑘦𑘭𑘿𑘎𑘰𑘨
-Mongolian (монгол хэл) Сайн байна уу?
+Mongolian Cyrillic (монгол хэл) Сайн байна уу?
+Mongolian Traditional (ᠮᠣᠩᠭᠣᠯ ᠪᠢᠴᠢᠭ᠋) ᠰᠠᠶᠢᠨ ᠪᠠᠶᠢᠨᠠ ᠤᠤ?
+
Northern Thai (ᨣᩣᩴᨾᩮᩬᩥᨦ / ᨽᩣᩈᩣᩃ᩶ᩣ᩠ᨶᨶᩣ) ᩈ᩠ᩅᩢᩔ᩠ᨯᩦᨣᩕᩢ᩠ᨸ
Norwegian (norsk) Hei / God dag
Odia (ଓଡ଼ିଆ) ନମସ୍କାର
diff --git a/etc/NEWS b/etc/NEWS
index 540b59a628f..910472e5519 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -30,6 +30,17 @@ applies, and please also update docstrings as needed.
* Changes in Emacs 30.1
+** Help
+
+*** 'describe-function' shows function inferred type when available.
+For native compiled Lisp functions 'describe-function' prints (after
+the signature) the automatically inferred function type as well.
+
+---
+** New user option 'describe-bindings-outline-rules'.
+This user option controls outline visibility in the output buffer of
+'describe-bindings' when 'describe-bindings-outline' in non-nil.
+
** X selection requests are now handled much faster and asynchronously.
This means it should be less necessary to disable the likes of
'select-active-regions' when Emacs is running over a slow network
@@ -50,6 +61,11 @@ as it has in batch mode since Emacs 24.
When non-nil, this option suppresses moving remote files to the local
trash when deleting. Default is nil.
+---
+** New user option 'remote-file-name-inhibit-auto-save'.
+If this user option is non-nil, 'auto-save-mode' will not auto-save
+remote buffers. The default is nil.
+
+++
** New user option 'yes-or-no-prompt'.
This allows the user to customize the prompt that is appended by
@@ -61,6 +77,11 @@ This allows the user to customize the prompt that is
appended by
This is used for displaying the time and date components of
'display-time-mode'.
+---
+** New icon images for general use.
+Several symbolic icons are added to "etc/images/symbols", including
+plus, minus, check-mark, start, etc.
+
* Editing Changes in Emacs 30.1
@@ -95,7 +116,7 @@ If you want to get back the old behavior, set the user
option to the value
(setopt gdb-locals-table-row-config
`((type . 0) (name . 0) (value . ,gdb-locals-value-limit)))
-** Compile
+** Grep
*** New user option 'grep-use-headings'.
When non-nil, the output of Grep is split into sections, one for each
@@ -169,6 +190,19 @@ correctly unloads Eshell and all of its modules.
After manually editing 'eshell-aliases-file', you can use this command
to load the edited aliases.
++++
+*** 'rgrep' is now a builtin command.
+Running 'rgrep' in Eshell now uses the Emacs grep facility instead of
+calling external rgrep.
+
+** Shell Mode
+
++++
+*** New user option 'shell-get-old-input-include-continuation-lines'.
+When this user option is non-nil, 'shell-get-old-input' ('C-RET')
+includes multiple shell "\" continuation lines from command output.
+Default is nil.
+
** Prog Mode
+++
@@ -181,14 +215,23 @@ point is not in a comment or a string. It is by default
bound to
** Tramp
+++
-*** New connection method "toolbox".
-This allows accessing system containers provided by Toolbox.
+*** New connection methods "toolbox" and "flatpak".
+They allow accessing system containers provided by Toolbox or
+sandboxes provided by Flatpak.
+
++++
+*** Rename 'tramp-use-ssh-controlmaster-options' to
'tramp-use-connection-share'.
+The old name still exists as obsolete variable alias. This user
+option controls now connection sharing for both ssh-based and
+plink-based methods. It allows the values t, nil, and 'suppress'.
+The latter suppresses also "ControlMaster" settings in the user's
+"~/.ssh/config" file, or connection share configuration in PuTTY
+sessions, respectively.
+++
-*** New value 'suppress' for user option 'tramp-use-ssh-controlmaster-options'.
-This user option allows now the values t, nil, and 'suppress'. The
-latter suppresses also "ControlMaster" settings in the user's
-"~/.ssh/config" file.
+*** New command 'tramp-cleanup-some-buffers'.
+It allows to kill only selected remote buffers, controlled by user
+option 'tramp-cleanup-some-buffers-hook'.
** EWW
@@ -199,6 +242,17 @@ the new argument NEW-BUFFER non-nil, it will use a new
buffer instead.
Interactively, invoke 'eww-open-file' with a prefix argument to
activate this behavior.
+---
+*** 'eww' URL or keyword prompt now has tab completion.
+The interactive minibuffer prompt when invoking 'eww' now has support
+for tab completion.
+
++++
+*** 'eww' URL and keyword prompt now completes suggested URIs and bookmarks.
+The interactive minibuffer prompt when invoking 'eww' now provides
+completions from 'eww-suggest-uris'. 'eww-suggest-uris' now includes
+bookmark URIs.
+
** go-ts-mode
+++
@@ -214,6 +268,130 @@ bound to 'C-c C-d' in 'go-ts-mode'.
When this is non-nil, call the 'man' program synchronously rather than
asynchronously (which is the default behavior).
+** DocView
+
+---
+*** New face 'doc-view-svg-face'.
+This replaces 'doc-view-svg-foreground' and 'doc-view-svg-background'.
+
+** Shortdoc
+
++++
+*** New function 'shortdoc-function-examples'.
+This function returns examples of use of a given Emacs Lisp function
+from the available shortdoc information.
+
++++
+*** New function 'shortdoc-help-fns-examples-function'.
+This function inserts into the current buffer examples of use of a
+given Emacs Lisp function, which it gleans from the shortdoc
+information. If you want 'describe-function' ('C-h f') to insert
+examples of using the function into regular "*Help*" buffers, add the
+following to your init file:
+
+ (add-hook 'help-fns-describe-function-functions
+ #'shortdoc-help-fns-examples-function)
+
+** Package
+
+---
+*** New user option 'package-vc-register-as-project'.
+When non-nil, it will automatically register every package as a
+project, that you can quickly select using 'project-switch-project'
+('C-x p p').
+
+---
+*** New user option 'package-vc-allow-side-effects'.
+When non-nil, package specifications with side-effects for building
+software will be used when building a package.
+
+** Flymake
+
++++
+*** New user option 'flymake-show-diagnostics-at-end-of-line'.
+When non-nil, Flymake shows summarized descriptions of diagnostics at
+the end of the line. Depending on your preference, this can either be
+distracting and easily confused with actual code, or a significant
+early aid that relieves you from moving the buffer or reaching for the
+mouse to consult an error message.
+
+** Python Mode
+
+---
+*** New user option 'python-indent-block-paren-deeper'.
+If non-nil, increase the indentation of the lines inside parens in a
+header of a block when they are indented to the same level as the body
+of the block:
+
+ if (some_expression
+ and another_expression):
+ do_something()
+
+instead of:
+
+ if (some_expression
+ and another_expression):
+ do_something()
+
+** use-package
+
++++
+*** New ':vc' keyword.
+This keyword enables the user to install packages using 'package-vc'.
+
+** Rmail
+
+---
+*** New commands for reading mailing lists.
+The new Rmail commands 'rmail-mailing-list-post',
+'rmail-mailing-list-unsubscribe', 'rmail-mailing-list-help', and
+'rmail-mailing-list-archive' allow to, respectively, post to,
+unsubscribe from, request help about, and browse the archives, of the
+mailing list from which the current email message was delivered.
+
+** Dictionary
+
+---
+*** New user option 'dictionary-search-interface'.
+Controls how the 'dictionary-search' command prompts for and displays
+dictionary definitions. Customize this user option to 'help' to have
+'dictionary-search' display definitions in a "*Help*" buffer and
+provide dictionary-based minibuffer completion for word selection.
+
+---
+*** New user option 'dictionary-read-word-prompt'.
+This allows the user to customize the prompt that is used by
+'dictionary-search' when asking for a word to search in the
+dictionary.
+
+---
+*** New user option 'dictionary-display-definition-function'.
+This allows the user to customize the way in which 'dictionary-search'
+displays word definitions. If non-nil, this user option should be set
+to a function that displays a word definition obtained from a
+dictionary server. The new function
+'dictionary-display-definition-in-help-buffer' can be used to display
+the definition in a "*Help*" buffer, instead of the default
+"*Dictionary*" buffer.
+
+---
+*** New user option 'dictionary-read-word-function'.
+This allows the user to customize the way in which 'dictionary-search'
+prompts for a word to search in the dictionary. This user option
+should be set to a function that lets the user select a word and
+returns it as a string. The new function
+'dictionary-completing-read-word' can be used to prompt with
+completion based on dictionary matches.
+
+---
+*** New user option 'dictionary-read-dictionary-function'.
+This allows the user to customize the way in which 'dictionary-search'
+prompts for a dictionary to search in. This user option should be set
+to a function that lets the user select a dictionary and returns its
+name as a string. The new function
+'dictionary-completing-read-dictionary' can be used to prompt with
+completion based on dictionaries that the server supports.
+
* New Modes and Packages in Emacs 30.1
@@ -225,19 +403,41 @@ An optional major mode based on the tree-sitter library
for editing
HTML files.
---
-** The highly accessible Modus themes collection has six items.
+*** New major mode 'heex-ts-mode'.
+A major mode based on the tree-sitter library for editing HEEx files.
+
+---
+*** New major mode 'elixir-ts-mode'.
+A major mode based on the tree-sitter library for editing Elixir
+files.
+
+---
+** The highly accessible Modus themes collection has eight items.
The 'modus-operandi' and 'modus-vivendi' are the main themes that have
been part of Emacs since version 28. The former is light, the latter
dark. In addition to these, we now have 'modus-operandi-tinted' and
'modus-vivendi-tinted' for easier legibility, as well as
-'modus-operandi-deuteranopia' and 'modus-vivendi-deuteranopia' to
-cover the needs of users with red-green color deficiency. The Info
-manual "(modus-themes) Top" describes the details and showcases all
-their customization options.
+'modus-operandi-deuteranopia', 'modus-vivendi-deuteranopia',
+'modus-operandi-tritanopia', and 'modus-vivendi-tritanopia' to cover
+the needs of users with red-green or blue-yellow color deficiency.
+The Info manual "(modus-themes) Top" describes the details and
+showcases all their customization options.
* Incompatible Lisp Changes in Emacs 30.1
+---
+** The escape sequence '\x' not followed by hex digits is now an error.
+Previously, '\x' without at least one hex digit denoted character code
+zero (NUL) but as this was neither intended nor documented or even
+known by anyone, it is now treated as an error by the Lisp reader.
+
+---
+** Connection-local variables are applied in buffers visiting a remote file.
+This overrides possible directory-local or file-local variables with
+the same name.
+
+---
** User option 'tramp-completion-reread-directory-timeout' has been removed.
This user option has been obsoleted in Emacs 27, use
'remote-file-name-inhibit-cache' instead.
@@ -248,9 +448,19 @@ These hooks were named incorrectly, and so they never
actually ran
when unloading the correspending feature. Instead, you should use
hooks named after the feature name, like 'esh-mode-unload-hook'.
++++
+** 'copy-tree' now copies records when its optional 2nd argument is non-nil.
+
* Lisp Changes in Emacs 30.1
++++
+** New user option 'safe-local-variable-directories'.
+This user option names directories in which Emacs will treat all
+directory-local variables as safe.
+
+** New variable 'inhibit-auto-fill' to temporarily prevent auto-fill.
+
** Functions and variables to transpose sexps
+++
@@ -358,31 +568,90 @@ was to catch all errors, add an explicit handler for
'error', or use
This warning can be suppressed using 'with-suppressed-warnings' with
the warning name 'suspicious'.
+---
+*** Warn about 'unwind-protect' without unwind forms.
+The compiler now warns when the 'unwind-protect' form is used without
+any unwind forms, as in
+
+ (unwind-protect (read buffer))
+
+because the behavior is identical to that of the argument; there is
+no protection of any kind. Perhaps the intended unwind forms have
+been misplaced or forgotten, or the use of 'unwind-protect' could be
+simplified away.
+
+This warning can be suppressed using 'with-suppressed-warnings' with
+the warning name 'suspicious'.
+
+---
+*** Warn about mutation of constant values.
+The compiler now warns about code that modifies program constants in
+some obvious cases. Examples:
+
+ (setcar '(1 2) 7)
+ (aset [3 4] 0 8)
+ (aset "abc" 1 ?d)
+
+Such code may have unpredictable behavior because the constants are
+part of the program, not data structures generated afresh during
+execution, and the compiler does not expect them to change.
+
+To avoid the warning, operate on an object created by the program
+(maybe a copy of the constant), or use a non-destructive operation
+instead.
+
+This warning can be suppressed using 'with-suppressed-warnings' with
+the warning name 'mutate-constant'.
+
+---
+*** Warn about more ignored function return values.
+The compiler now warns when the return value from certain functions is
+implicitly ignored. Example:
+
+ (progn (nreverse my-list) my-list)
+
+will elicit a warning because it is usually pointless to call
+'nreverse' on a list without using the returned value.
+
+To silence the warning, make use of the value in some way, such as
+assigning it to a variable. You can also wrap the function call in
+'(ignore ...)', or use 'with-suppressed-warnings' with the warning
+name 'ignored-return-value'.
+
+The warning will only be issued for calls to functions declared
+'important-return-value' or 'side-effect-free' (but not 'error-free').
+
+++
-** New function 'safe-copy-tree'
-This function is a version of copy-tree which handles circular lists
-and circular vectors/records.
+** New function declaration and property 'important-return-value'.
+The declaration '(important-return-value t)' sets the
+'important-return-value' property which indicates that the function
+return value should probably not be thrown away implicitly.
+++
-** New function 'file-user-uid'.
-This function is like 'user-uid', but is aware of file name handlers,
-so it will return the remote UID for remote files (or -1 if the
-connection has no associated user).
+** New functions 'file-user-uid' and 'file-group-gid'.
+These functions are like 'user-uid' and 'group-gid', respectively, but
+are aware of file name handlers, so they will return the remote UID or
+GID for remote files (or -1 if the connection has no associated user).
+++
-** 'fset' and 'defalias' now signal an error for circular alias chains.
-Previously, 'fset' and 'defalias' could be made to build circular
-function indirection chains as in
+** 'fset', 'defalias' and 'defvaralias' now signal an error for cyclic aliases.
+Previously, 'fset', 'defalias' and 'defvaralias' could be made to
+build circular function and variable indirection chains as in
(defalias 'able 'baker)
(defalias 'baker 'able)
-but trying to call them would often make Emacs hang. Now, an attempt
+but trying to use them would sometimes make Emacs hang. Now, an attempt
to create such a loop results in an error.
-Since circular alias chains now cannot occur, 'function-alias-p' and
-'indirect-function' will never signal an error. Their second
-'noerror' arguments have no effect and are therefore obsolete.
+Since circular alias chains now cannot occur, 'function-alias-p',
+'indirect-function' and 'indirect-variable' will never signal an error.
+Their 'noerror' arguments have no effect and are therefore obsolete.
+
+---
+** New function 'eval-command-interactive-spec' in the subr-x library.
+This function evaluates a command's interactive form and returns the
+resultant list.
* Changes in Emacs 30.1 on Non-Free Operating Systems
diff --git a/etc/NEWS.29 b/etc/NEWS.29
index 01ab4b8a1db..60aa64b5ede 100644
--- a/etc/NEWS.29
+++ b/etc/NEWS.29
@@ -91,24 +91,6 @@ available, and includes support for animated WebP images.
To disable
WebP support, use the '--without-webp' configure flag. Image
specifiers can now use ':type webp'.
-+++
-** Emacs has been ported to the Haiku operating system.
-The configuration process should automatically detect and build for
-Haiku. There is also an optional window-system port to Haiku, which
-can be enabled by configuring Emacs with the option '--with-be-app',
-which will require the Haiku Application Kit development headers and a
-C++ compiler to be present on your system. If Emacs is not built with
-the option '--with-be-app', the resulting Emacs will only run in
-text-mode terminals.
-
-To enable Cairo support, ensure that the Cairo and FreeType
-development files are present on your system, and configure Emacs with
-'--with-be-cairo'.
-
-Unlike X, there is no compile-time option to enable or disable
-double-buffering; it is always enabled. To disable it, change the
-frame parameter 'inhibit-double-buffering' instead.
-
---
** Emacs now installs the ".pdmp" file using a unique fingerprint in the name.
The file is typically installed using a file name akin to
@@ -126,6 +108,16 @@ option '--without-xinput2' to disable this support.
'(featurep 'xinput2)' can be used to test for the presence of XInput 2
support from Lisp programs.
+---
+** Emacs can now be optionally built with the Cairo XCB backend.
+Configure Emacs with the '--with-cairo-xcb' option to use the Cairo
+XCB backend; the default is not to use it. This backend makes Emacs
+moderately faster when running over X connections with high latency,
+but is currently known to crash when Emacs repeatedly closes and opens
+a display connection to the same terminal; this could happen, for
+example, if you repeatedly visit files via emacsclient in a single
+client frame, each time deleting the frame with 'C-x C-c'.
+
+++
** Emacs now supports being built with pure GTK.
To use this option, make sure the GTK 3 (version 3.22.23 or later) and
@@ -139,6 +131,29 @@ known to have problems, such as undesirable frame
positioning and
various issues with keyboard input of sequences such as 'C-;' and
'C-S-u'.
+Note that, unlike the X build of Emacs, the PGTK build cannot
+automatically switch to text-mode interface (thus emulating '-nw') if
+it cannot determine the default display; it will instead complain and
+ask you to invoke it with the explicit '-nw' option.
+
++++
+** Emacs has been ported to the Haiku operating system.
+The configuration process should automatically detect and build for
+Haiku. There is also an optional window-system port to Haiku, which
+can be enabled by configuring Emacs with the option '--with-be-app',
+which will require the Haiku Application Kit development headers and a
+C++ compiler to be present on your system. If Emacs is not built with
+the option '--with-be-app', the resulting Emacs will only run in
+text-mode terminals.
+
+To enable Cairo support, ensure that the Cairo and FreeType
+development files are present on your system, and configure Emacs with
+'--with-be-cairo'.
+
+Unlike X, there is no compile-time option to enable or disable
+double-buffering; it is always enabled. To disable it, change the
+frame parameter 'inhibit-double-buffering' instead.
+
---
** Emacs no longer reduces the size of the Japanese dictionary.
Building Emacs includes generation of a Japanese dictionary, which is
@@ -218,13 +233,13 @@ of 'user-emacs-directory'.
+++
** The image commands have changed key bindings.
-In previous Emacs versions, images have had the '+', '-' and 'r' keys
-bound when point is over an image. In Emacs 29.1, additional commands
-were added, and this made it more likely that users would trigger the
-image commands by mistake. To avoid this, all image commands have
-moved to the 'i' keymap, so '+' is now 'i +', '-' is now 'i -', and
-'r' is now 'i r'. In addition, these commands are now repeating, so
-you can rotate an image twice by saying 'i r r', for instance.
+In previous Emacs versions, the '+', '-' and 'r' keys were bound when
+point was over an image. In Emacs 29.1, additional commands have been
+added, and this made it more likely that users would trigger the image
+commands by mistake. To avoid this, all image commands have been
+moved to the 'i' prefix keymap, so '+' is now 'i +', '-' is now 'i -',
+and 'r' is now 'i r'. In addition, these commands are now repeating,
+so you can rotate an image twice by saying 'i r r', for instance.
+++
** Emacs now picks the correct coding-system for X input methods.
@@ -380,7 +395,7 @@ this user option to nil to revert back to the old behavior.
---
** Support for old EIEIO functions is not autoloaded any more.
You need an explicit '(require 'eieio-compat)' to use 'defmethod'
-and 'defgeneric' (which have been made obsolete in Emacs 25.1 with
+and 'defgeneric' (which were made obsolete in Emacs 25.1 by
'cl-defmethod' and 'cl-defgeneric').
Similarly you might need to '(require 'eieio-compat)' before loading
files that were compiled with an old EIEIO (Emacs<25).
@@ -497,7 +512,7 @@ the 'nlinum' package from GNU ELPA instead. The former has
better
performance, but the latter is closer to a drop-in replacement.
1. To use 'display-line-numbers-mode', add something like this to your
- Init file:
+ init file:
(global-display-line-numbers-mode 1)
;; Alternatively, to use it only in programming modes:
@@ -517,7 +532,7 @@ performance, but the latter is closer to a drop-in
replacement.
---
** The thumbs.el library is now obsolete.
-We recommend using command 'image-dired' instead.
+We recommend using the 'image-dired' command instead.
---
** The autoarg.el library is now marked obsolete.
@@ -577,7 +592,7 @@ encoding, only for decoding.
** New user option 'major-mode-remap-alist' to specify favorite major modes.
This user option lets you remap the default modes (e.g. 'perl-mode' or
'latex-mode') to your favorite ones (e.g. 'cperl-mode' or
-'LaTeX-mode') without having to use 'defalias', which can have
+'LaTeX-mode') instead of having to use 'defalias', which can have
undesirable side effects.
This applies to all modes specified via 'auto-mode-alist', file-local
variables, etc.
@@ -587,6 +602,8 @@ variables, etc.
---
** New user option 'electric-quote-replace-consecutive'.
+This allows you to disable the default behavior of consecutive single
+quotes being replaced with a double quote.
---
** Emacs is now capable of editing files with very long lines.
@@ -795,13 +812,14 @@ part of the buffer.
+++
** New user option 'set-message-functions'.
-It allows selecting more functions for 'set-message-function'
-in addition to the default function that handles messages
-in the active minibuffer. The most useful are 'inhibit-message'
-that allows specifying a list of messages to inhibit via
-'inhibit-message-regexps', and 'set-multi-message' that
-accumulates recent messages and displays them stacked
-in the echo area.
+It allows more flexible control of how echo-area messages are displayed
+by adding functions to this list. The default value is a list of one
+element: 'set-minibuffer-message', which displays echo-area messages
+at the end of the minibuffer text when the minibuffer is active.
+Other useful functions include 'inhibit-message', which allows
+specifying, via 'inhibit-message-regexps', the list of messages whose
+display should be inhibited; and 'set-multi-message' that accumulates
+recent messages and displays them stacked together.
---
** New user option 'find-library-include-other-files'.
@@ -854,17 +872,17 @@ This value stands for the value of the corresponding
attribute of the
inheriting from other faces.
+++
-** New X resource: "borderThickness".
+** New X resource "borderThickness".
This controls the thickness of the external borders of the menu bars
and pop-up menus.
+++
-** New X resource: "inputStyle".
+** New X resource "inputStyle".
This controls the style of the pre-edit and status areas of X input
methods.
+++
-** New X resources: "highlightForeground" and "highlightBackground".
+** New X resources "highlightForeground" and "highlightBackground".
Only in the Lucid build, this controls colors used for highlighted
menu item widgets.
@@ -901,7 +919,7 @@ frame's contents will be hidden, leaving only the title bar
on display.
---
** New user option 'x-gtk-use-native-input'.
This controls whether or not GTK input methods are used by Emacs,
-instead of XIM input methods.
+instead of XIM input methods. Defaults to nil.
+++
** New user option 'use-system-tooltips'.
@@ -998,17 +1016,17 @@ combinations in a graphical menu system.
+++
*** New command 'emoji-search' (bound to 'C-x 8 e s').
-This command lets you search for Emoji based on names.
+This command lets you search for and insert an Emoji based on names.
+++
*** New command 'emoji-list' (bound to 'C-x 8 e l').
This command lists all Emoji (categorized by themes) in a special
-buffer and lets you choose one of them.
+buffer and lets you choose one of them to insert.
---
*** New command 'emoji-recent' (bound to 'C-x 8 e r').
This command lets you choose among the Emoji you have recently
-inserted.
+inserted and insert it.
+++
*** New command 'emoji-describe' (bound to 'C-x 8 e d').
@@ -1020,6 +1038,11 @@ works for non-Emoji characters.)
These are bound to 'C-x 8 e +' and 'C-x 8 e -', respectively. They
can be used on any character, but are mainly useful for Emoji.
+---
+*** New command 'emoji-zoom-reset'.
+This is bound to 'C-x 8 e 0', and undoes any size changes performed by
+'emoji-zoom-increase' and 'emoji-zoom-decrease'.
+
---
*** New input method 'emoji'.
This allows you to enter Emoji using short strings, eg ':face_palm:'
@@ -1037,7 +1060,7 @@ quotes removed.
---
*** 'M-x apropos-variable' output now includes values of variables.
-Such apropos buffer is more easily viewed with outlining after
+Such an apropos buffer is more easily viewed with outlining after
enabling 'outline-minor-mode' in 'apropos-mode'.
+++
@@ -1069,7 +1092,7 @@ This has been changed to:
+++
*** The 'C-h .' command now accepts a prefix argument.
'C-u C-h .' would previously inhibit displaying a warning message if
-there's no local help at point. This has been changed to call
+there was no local help at point. This has been changed to call
'button-describe'/'widget-describe' and display button/widget help
instead.
@@ -1122,7 +1145,7 @@ helpful commands for various tasks. You can toggle the
display using
'C-h C-q'.
** Emacs now comes with Org v9.6.
-See the file "ORG-NEWS" for user-visible changes in Org.
+See the file "etc/ORG-NEWS" for user-visible changes in Org.
** Outline Mode
@@ -1185,12 +1208,13 @@ the display of several buffers in a row more amenable.
+++
*** New buffer display action alist entry 'lru-frames'.
-This allows to specify which frames 'display-buffer' should consider
-when using a window that shows another buffer.
+This allows specifying which frames 'display-buffer' should consider
+when using a window that shows another buffer. It is interpreted as
+per the ALL-FRAMES argument of 'get-lru-window'.
+++
*** New buffer display action alist entry 'lru-time'.
-'display-buffer' will ignore windows with a use time higher than that
+'display-buffer' will ignore windows with a use time higher than this
when using a window that shows another buffer.
+++
@@ -1200,12 +1224,14 @@ making it a less likely candidate for displaying
another buffer.
+++
*** New buffer display action alist entry 'window-min-width'.
-This allows to specify a minimum width of the window used to display a
-buffer.
+This allows specifying a preferred minimum width of the window used to
+display a buffer.
---
-*** You can customize on which window 'scroll-other-window' operates.
-This is controlled by the new 'other-window-scroll-default' variable.
+*** You can specify on which window 'scroll-other-window' operates.
+This is controlled by the new 'other-window-scroll-default' variable,
+which should be set to a function that returns a window. When this
+variable is nil, 'next-window' is used.
** Frames
@@ -1268,17 +1294,19 @@ respond within N seconds. The default is to wait
forever.
+++
*** 'server-stop-automatically' can be used to automatically stop the server.
The Emacs server will be automatically stopped when certain conditions
-are met. The conditions are given by the argument, which can be
-'empty', 'delete-frame' or 'kill-terminal'.
+are met. The conditions are determined by the argument to
+'server-stop-automatically', which can be 'empty', 'delete-frame' or
+'kill-terminal'.
** Rcirc
+++
*** New command 'rcirc-when'.
+This shows the reception time of the message at point (if available).
+++
*** New user option 'rcirc-cycle-completion-flag'.
-Rcirc will use the default 'completion-at-point' mechanism. The
+Rcirc now uses the default 'completion-at-point' mechanism. The
conventional IRC behavior of completing by cycling through the
available options can be restored by enabling this option.
@@ -1533,6 +1561,10 @@ environments are:
Coptic script and language environment
+ Mongolian-traditional script and language environment
+
+ Mongolian-cyrillic language environment
+
---
*** The "Oriya" language environment was renamed to "Odia".
This is to follow the change in the official name of the script. The
@@ -1546,7 +1578,10 @@ Type 'C-u C-h t' to select it in case your language
setup does not do
so automatically.
---
-*** New Ukrainian translation of the Emacs Tutorial.
+*** New Ukrainian translation of the Emacs tutorial.
+
+---
+*** New Farsi/Persian translation of the Emacs tutorial.
---
*** New default phonetic input method for the Tamil language environment.
@@ -1571,6 +1606,12 @@ This input method is based on the russian-computer input
method, and
is intended for typing in the Chuvash language written in the Cyrillic
script.
+---
+*** New input method 'cyrillic-mongolian'.
+This input method is for typing in the Mongolian language using the
+Cyrillic script. It is the default input method for the new
+Mongolian-cyrillic language environment, see above.
+
* Changes in Specialized Modes and Packages in Emacs 29.1
@@ -1651,6 +1692,13 @@ the following to your Init file:
*** New command 'dired-do-eww'.
This command visits the file on the current line with EWW.
+---
+*** 'browse-url-of-dired-file' can now call the secondary browser.
+When invoked with a prefix arg, this will now call
+'browse-url-secondary-browser-function' instead of the default
+browser. 'browse-url-of-dired-file' is bound to 'W' by default in
+dired mode.
+
---
*** New user option 'dired-omit-lines'.
This is used by 'dired-omit-mode', and now allows you to hide based on
@@ -1728,7 +1776,7 @@ or can take a long time to render.
+++
*** New command 'enriched-toggle-markup'.
This allows you to see the markup in 'enriched-mode' buffers (e.g.,
-the "HELLO" file).
+the "HELLO" file). Bound to 'M-o m' by default.
** Shell Script Mode
@@ -1817,13 +1865,18 @@ this includes "binary" buffers like 'archive-mode' and
'image-mode'.
** Package
+++
-*** New command 'package-update'.
-This command allows you to upgrade packages without using 'M-x
-list-packages'.
+*** New command 'package-upgrade'.
+This command allows you to upgrade packages without using 'list-packages'.
+A package that comes with the Emacs distribution can only be upgraded
+after you install, once, a newer version from ELPA via the
+package-menu displayed by 'list-packages'.
+++
-*** New command 'package-update-all'.
-This command allows updating all packages without any queries.
+*** New command 'package-upgrade-all'.
+This command allows upgrading all packages without any queries.
+A package that comes with the Emacs distribution will only be upgraded
+by this command after you install, once, a newer version of that
+package from ELPA via the package-menu displayed by 'list-packages'.
+++
*** New commands 'package-recompile' and 'package-recompile-all'.
@@ -1833,7 +1886,9 @@ These commands can be useful if the ".elc" files are out
of date
+++
*** New DWIM action on 'x' in "*Packages*" buffer.
If no packages are marked, 'x' will install the package under point if
-it isn't already, and remove it if it is installed.
+it isn't already, and remove it if it is installed. Customize the new
+option 'package-menu-use-current-if-no-marks' to the nil value to get
+back the old behavior of signaling an error in that case.
+++
*** New command 'package-vc-install'.
@@ -1858,13 +1913,33 @@ packages checked out using 'package-vc-install'.
+++
*** New command 'package-report-bug'.
This command helps you compose an email for sending bug reports to
-package maintainers.
+package maintainers, and is bound to 'b' in the "*Packages*" buffer.
+++
*** New user option 'package-vc-selected-packages'.
By customizing this user option you can specify specific packages to
install.
+---
+*** New user option 'package-install-upgrade-built-in'.
+When enabled, 'package-install' will include in the list of
+upgradeable packages those built-in packages (like Eglot and
+use-package, for example) for which a newer version is available in
+package archives, and will allow installing those newer versions. By
+default, this is disabled; however, if 'package-install' is invoked
+with a prefix argument, it will act as if this new option were
+enabled.
+
+In addition, when this option is non-nil, built-in packages for which
+a new version is available in archives can be upgraded via the package
+menu produced by 'list-packages'. If you do set this option non-nil,
+we recommend not to use the 'U' command, but instead to use '/ u' to
+show the packages which can be upgraded, and then decide which ones of
+them you actually want to update from the archives.
+
+If you customize this option, we recommend you place its non-default
+setting in your early-init file.
+
** Emacs Sessions (Desktop)
+++
@@ -1922,8 +1997,8 @@ displayed in a window.
+++
*** New user option 'compilation-hidden-output'.
-This can be used to make specific parts of compilation output
-invisible.
+This regular expression can be used to make specific parts of
+compilation output invisible.
+++
*** The 'compilation-auto-jump-to-first-error' user option has been extended.
@@ -2306,7 +2381,7 @@ EUDC inline expansion result formatting defaulted to
("%s %s <%s>" firstname name email)
Since email address specifications need to comply with RFC 5322 in
-order to be useful in messages, there was a risk to produce syntax
+order to be useful in messages, there was a risk of producing syntax
which was standard with RFC 822, but is marked as obsolete syntax by
its successor RFC 5322. Also, the first and last name part was never
enclosed in double quotes, potentially producing invalid address
@@ -2340,8 +2415,8 @@ used to select the entry type in the ecomplete database.
+++
*** New back-end for mailabbrev.
A new back-end for mailabbrev allows information from that database to
-be queried by EUDC, too. The attributes 'email', 'name', and 'firstname'
-are supported only.
+be queried by EUDC, too. Only the attributes 'email', 'name', and
+'firstname' are supported.
** EWW/SHR
@@ -2540,8 +2615,16 @@ the project by a VC project based on that VCS.
+++
*** New command 'xref-go-forward'.
-It is bound to 'C-M-,' and jumps to the location where 'xref-go-back'
-('M-,', also known as 'xref-pop-marker-stack') was invoked previously.
+It is bound to 'C-M-,' and jumps to the location where you previously
+invoked 'xref-go-back' ('M-,', also known as 'xref-pop-marker-stack').
+
++++
+*** The depth of the Xref marker stack is now infinite.
+The implementation of the Xref marker stack was changed in a way that
+allows as many places to be saved on the stack as needed, limited only
+by the available memory. Therefore, the variables
+'find-tag-marker-ring-length' and 'xref-marker-ring-length' are now
+obsolete and unused; setting them has no effect.
+++
*** 'xref-query-replace-in-results' prompting change.
@@ -2580,14 +2663,14 @@ as opposed to via the command-line.
+++
*** New command 'image-transform-fit-to-window'.
This command fits the image to the current window by scaling down or
-up as necessary. Unlike 'image-transform-fit-both', this does not
-only scale the image down, but up as well. It is bound to 's w' in
-Image Mode by default.
+up as necessary. Unlike 'image-transform-fit-both', this can scale
+the image up as well as down. It is bound to 's w' in Image Mode by
+default.
---
*** New command 'image-mode-wallpaper-set'.
This command sets the desktop background to the current image. It is
-bound to 'W' by default.
+bound to 'W' in Image Mode by default.
+++
*** 'image-transform-fit-to-{height,width}' are now obsolete.
@@ -2605,19 +2688,14 @@ much (in percent). It is nil by default, which means
no limit.
---
*** New user option 'image-text-based-formats'.
-This controls whether or not to show a message when opening certain
-image formats saying how to edit it as text. The default is to show
-this message for SVG and XPM.
-
-+++
-*** New commands: 'image-flip-horizontally' and 'image-flip-vertically'.
-These commands horizontally and vertically flip the image under point,
-and are bound to 'i h' and 'i v', respectively.
+This controls whether or not to show a message, when opening certain
+image formats, explaining how to edit it as text. The default is to
+show this message for SVG and XPM.
+++
*** New command 'image-transform-set-percent'.
-It allows setting the image size to a percentage of its original size,
-and is bound to 's p' in Image mode.
+It allows resizing the image to a percentage of its original size, and
+is bound to 's p' in Image mode.
+++
*** 'image-transform-original' renamed to 'image-transform-reset-to-original'.
@@ -2629,6 +2707,19 @@ The old name was confusing, and is now an obsolete
function alias.
** Images
++++
+*** New commands 'image-crop' and 'image-cut'.
+These commands allow interactively cropping/cutting the image at
+point. The commands are bound to keys 'i c' and 'i x' (respectively)
+in the local keymap over images. They rely on external programs, by
+default "convert" from ImageMagick, to do the actual cropping/eliding
+of the image file.
+
++++
+*** New commands 'image-flip-horizontally' and 'image-flip-vertically'.
+These commands horizontally and vertically flip the image under point,
+and are bound to 'i h' and 'i v', respectively.
+
+++
*** Users can now add special image conversion functions.
This is done via 'image-converter-add-handler'.
@@ -3214,7 +3305,12 @@ Imenu now lists the members directly nested in R6RS
Scheme libraries
Emacs now comes with the Eglot package, which enhances various Emacs
features, such as completion, documentation, error detection, etc.,
based on data provided by language servers using the Language Server
-Protocol (LSP). See the new Info manual "(eglot) Top" for more.
+Protocol (LSP). See the new Info manual "(eglot) Top" for more. Also
+see "etc/EGLOT-NEWS".
+
+If you want to be able to use 'package-install' to upgrade Eglot to
+newer versions released on GNU ELPA, customize the new option
+'package-install-upgrade-built-in' to a non-nil value.
+++
** use-package: Declarative package configuration.
@@ -3223,13 +3319,9 @@ macro, which allows you to isolate package configuration
in your init
file in a way that is declarative, tidy, and performance-oriented.
See the new Info manual "(use-package) Top" for more.
-+++
-** New commands 'image-crop' and 'image-cut'.
-These commands allow interactively cropping/cutting the image at
-point. The commands are bound to keys 'i c' and 'i x' (respectively)
-in the local keymap over images. They rely on external programs, by
-default "convert" from ImageMagick, to do the actual cropping/eliding
-of the image file.
+If you want to be able to use 'package-install' to upgrade use-package
+to newer versions released on GNU ELPA, customize the new option
+'package-install-upgrade-built-in' to a non-nil value.
---
** New package 'wallpaper'.
@@ -3556,11 +3648,13 @@ font spec. In these cases, replacing ":weight 'normal"
with ":weight
'medium" should fix the issue.
---
-** Keymap descriptions have changed.
+** Keymap descriptions by Help commands have changed.
'help--describe-command', 'C-h b' and associated functions that output
keymap descriptions have changed. In particular, prefix commands are
-not output at all, and instead of "??" for closures/functions,
-"[closure]"/"[lambda]" is output.
+not output at all, and instead of "??" for closures/functions, these
+functions output "[closure]"/"[lambda]". You can get back the old
+behavior of including prefix commands by customizing the new option
+'describe-bindings-show-prefix-commands' to a non-nil value.
---
** 'downcase' details have changed slightly.
@@ -3801,6 +3895,19 @@ The following generalized variables have been made
obsolete:
'standard-case-table', 'syntax-table', 'visited-file-modtime',
'window-height', 'window-width', and 'x-get-secondary-selection'.
+---
+** The 'dotimes' loop variable can no longer be manipulated in the loop body.
+Previously, the 'dotimes' loop counter could be modified inside the
+loop body, but only in code using dynamic binding. Now the behavior
+is the same as when using lexical binding: changes to the loop
+variable have no effect on subsequent iterations. That is,
+
+ (dotimes (i 10)
+ (print i)
+ (setq i (+ i 6)))
+
+now always prints the numbers 0 .. 9.
+
* Lisp Changes in Emacs 29.1
@@ -3893,9 +4000,9 @@ connection-local profile.
+++
*** New macro 'with-connection-local-application-variables'.
This macro works like 'with-connection-local-variables', but it allows
-to use another application but 'tramp'. This is useful when running
-code in a buffer where Tramp has already set some connection-local
-variables.
+using another application instead of 'tramp'. This is useful when
+running code in a buffer where Tramp has already set some
+connection-local variables.
+++
*** New macro 'setq-connection-local'.
@@ -3974,8 +4081,8 @@ This returns a list of sub-sequences of the specified
sequence.
+++
*** New function 'seq-remove-at-position'.
-This function returns a copy of the specified sequence where the
-element at a given (zero-based) index got removed.
+This function returns a copy of the specified sequence with the
+element at a given (zero-based) index removed.
+++
*** New function 'seq-positions'.
@@ -4043,7 +4150,7 @@ that quote character has to be escaped to avoid Emacs
displaying it as
(setq foo '(1 2 3))
-invalid. Emacs will now warn during byte compilation if it seems
+invalid. Emacs will now warn during byte compilation if it sees
something like that, and also warn about when using RIGHT/LEFT SINGLE
QUOTATION MARK directly. In both these cases, if these characters
should really be present in the docstring, they should be quoted with
@@ -4103,7 +4210,7 @@ example for benchmarking purposes.
** New function 'string-edit'.
This is meant to be used when the user has to edit a (potentially)
long string. It pops up a new buffer where you can edit the string,
-and a callback is called when the user types 'C-c C-c'.
+and the provided callback is called when the user types 'C-c C-c'.
+++
** New function 'read-string-from-buffer'.
@@ -4249,7 +4356,7 @@ them towards or away from each other.
+++
** New hook 'x-pre-popup-menu-hook'.
-This hook, run before 'x-popup-menu', is about to display a
+This hook is run before 'x-popup-menu' is about to display a
deck-of-cards menu on screen.
---
@@ -4311,9 +4418,11 @@ that binding is ignored by 'where-is-internal'.
+++
*** New functions for defining and manipulating keystrokes.
-These all take the syntax defined by 'key-valid-p'. None of the older
-functions have been deprecated or altered, but they are now
-de-emphasized in the documentation.
+These all take the syntax defined by 'key-valid-p', which is basically
+the same syntax as the one accepted by the 'kbd' macro. None of the
+older functions have been deprecated or altered, but they are now
+de-emphasized in the documentation, and we encourage Lisp programs to
+switch to these new functions.
+++
*** Use 'keymap-set' instead of 'define-key'.
@@ -4348,8 +4457,8 @@ de-emphasized in the documentation.
+++
*** 'define-key' now takes an optional REMOVE argument.
If non-nil, remove the definition from the keymap. This is subtly
-different from setting a definition to nil (when the keymap has a
-parent).
+different from setting a definition to nil: when the keymap has a
+parent such a definition will shadow the parent's definition.
+++
*** 'read-multiple-choice' now takes an optional SHOW-HELP argument.
@@ -4884,6 +4993,12 @@ two buttons: "Yes" and "No".
---
*** 'process-attributes' is now implemented.
+** macOS
+
++++
+*** The 'ns-popup-font-panel' command has been removed.
+Use the general command 'M-x menu-set-font' instead.
+
----------------------------------------------------------------------
This file is part of GNU Emacs.
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index d610a63b09d..5f92c056018 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -332,7 +332,7 @@ When the block type starts from the upper case, structure
template
will now insert =#+BEGIN_TYPE=. Previously, lower-case =#+begin_type= was
inserted unconditionally.
*** New ox-latex tabbing support for tables.
-Latex tables can now be exported to the latex tabbing environment
+LaTeX tables can now be exported to the latex tabbing environment
tabbing environment]].
This is done by adding =#+ATTR_LATEX: :mode tabbing= at the top
of the table.
@@ -4284,7 +4284,7 @@ parameters specific to some pre-defined translators, e.g.,
~:environment~ and ~:booktabs~ for ~orgtbl-to-latex~. See translators
docstrings (including ~orgtbl-to-generic~) for details.
-*** Non-floating minted listings in Latex export
+*** Non-floating minted listings in LaTeX export
It is not possible to specify =#+attr_latex: :float nil= in conjunction
with source blocks exported by the minted package.
@@ -6540,7 +6540,7 @@ that Calc formulas can operate on them.
*** Hyperlinks
-**** Org-Bibtex -- major improvements
+**** Org-BibTeX -- major improvements
Provides support for managing bibtex bibliographical references
data in headline properties. Each headline corresponds to a
diff --git a/etc/PROBLEMS b/etc/PROBLEMS
index 9ef231d4b16..5b2a4cce955 100644
--- a/etc/PROBLEMS
+++ b/etc/PROBLEMS
@@ -516,6 +516,13 @@ directory copy is ineffective.
This is due to an arbitrary limit in certain versions of awk.
The solution is to use gawk (GNU awk).
+*** Saving, via EasyPG, a file encrypted with GnuPG hangs
+
+This is known to happen with GnuPG v2.4.1. The only known workaround
+is to downgrade to a version of GnuPG older than 2.4.1 (or, in the
+future, upgrade to a newer version which solves the problem, when such
+a fixed version becomes available).
+
** Problems with hostname resolution
*** Emacs does not know your host's fully-qualified domain name.
@@ -2313,6 +2320,33 @@ recommended way of turning on Font-lock is by typing "M-x
global-font-lock-mode RET" or by customizing the variable
'global-font-lock-mode'.
+** Colors are not available or messed up on TTY frames inside 'screen'.
+
+This can happen if you have COLORTERM=truecolor defined in the
+environment when Emacs starts, but your version of 'screen' doesn't
+actually support 24-bit true colors.
+
+The COLORTERM environment variable is supposed to be set to the value
+"truecolor" only if the terminal used by Emacs actually supports true
+color. Emacs does not have any means of verifying that this support
+is available, it takes the fact that the variable is defined to this
+value as an indication that true color support is, in fact, available,
+and uses color setting commands that COLORTERM=truecolor presumes,
+bypassing the usual Terminfo capabilities related to colors.
+
+Some text-mode terminals, such as GNOME Terminal, are known to set
+this environment variable, supposedly to announce their own support
+for true color; however the setting is then inherited by any other
+terminal emulators started from such a terminal, even though those
+other terminal emulators might not themselves support true color using
+the same commands as Emacs uses when it sees COLORTERM=truecolor.
+
+The solution is to either upgrade to a newer version of 'screen'
+(version 5.x or later reportedly supports true color), or to unset the
+COLORTERM variable before starting 'screen', and let Emacs use the
+color support provided by the terminal emulator as defined in the
+Terminfo database.
+
** Unexpected characters inserted into the buffer when you start Emacs.
See e.g. <URL:https://debbugs.gnu.org/11129>
@@ -2681,6 +2715,15 @@ Emacs so that it isn't compiled with '-O5'.
We list bugs in current versions here. See also the section on legacy
systems.
+*** On Solaris 10, running 'configure' with "/bin/sh" produces errors.
+The "/bin/sh" shell on Solaris is an ancient and non-POSIX shell, so
+we recommend not to use it. The Emacs 'configure' script should find
+an appropriate shell and re-exec itself with that shell, unless you
+force it to use "/bin/sh" by using "CONFIG_SHELL=/bin/sh" on the
+'configure' command line. So either don't use CONFIG_SHELL, or, if
+you'd rather pick the shell yourself, choose "/bin/bash" or "/bin/ksh"
+or "/usr/xpg4/bin/sh" instead.
+
*** On Solaris 10 sparc, Emacs crashes during the build while saving state.
This was observed for Emacs 28.1 on Solaris 10 32-bit sparc, with
Oracle Developer Studio 12.6 (Sun C 5.15). The failure was intermittent,
diff --git a/etc/emacsclient-mail.desktop b/etc/emacsclient-mail.desktop
index 49c6f99f317..0a2420ddead 100644
--- a/etc/emacsclient-mail.desktop
+++ b/etc/emacsclient-mail.desktop
@@ -2,9 +2,9 @@
Categories=Network;Email;
Comment=GNU Emacs is an extensible, customizable text editor - and more
# We want to pass the following commands to the shell wrapper:
-# u=${1//\\/\\\\}; u=${u//\"/\\\"}; exec emacsclient --alternate-editor=
--display="$DISPLAY" --eval "(message-mailto \"$u\")"
+# u=$(echo "$1" | sed 's/[\"]/\\&/g'); exec emacsclient --alternate-editor=
--display="$DISPLAY" --eval "(message-mailto \"$u\")"
# Special chars '"', '$', and '\' must be escaped as '\\"', '\\$', and '\\\\'.
-Exec=bash -c "u=\\${1//\\\\\\\\/\\\\\\\\\\\\\\\\};
u=\\${u//\\\\\\"/\\\\\\\\\\\\\\"}; exec emacsclient --alternate-editor=
--display=\\"\\$DISPLAY\\" --eval \\"(message-mailto \\\\\\"\\$u\\\\\\")\\""
bash %u
+Exec=sh -c "u=\\$(echo \\"\\$1\\" | sed 's/[\\\\\\"]/\\\\\\\\&/g'); exec
emacsclient --alternate-editor= --display=\\"\\$DISPLAY\\" --eval
\\"(message-mailto \\\\\\"\\$u\\\\\\")\\"" sh %u
Icon=emacs
Name=Emacs (Mail, Client)
MimeType=x-scheme-handler/mailto;
@@ -16,7 +16,7 @@ Actions=new-window;new-instance;
[Desktop Action new-window]
Name=New Window
-Exec=bash -c "u=\\${1//\\\\\\\\/\\\\\\\\\\\\\\\\};
u=\\${u//\\\\\\"/\\\\\\\\\\\\\\"}; exec emacsclient --alternate-editor=
--create-frame --eval \\"(message-mailto \\\\\\"\\$u\\\\\\")\\"" bash %u
+Exec=sh -c "u=\\$(echo \\"\\$1\\" | sed 's/[\\\\\\"]/\\\\\\\\&/g'); exec
emacsclient --alternate-editor= --create-frame --eval \\"(message-mailto
\\\\\\"\\$u\\\\\\")\\"" sh %u
[Desktop Action new-instance]
Name=New Instance
diff --git a/etc/images/symbols/README b/etc/images/symbols/README
new file mode 100644
index 00000000000..f69a4ba8760
--- /dev/null
+++ b/etc/images/symbols/README
@@ -0,0 +1,43 @@
+This directory contains icons for some inline symbols.
+
+COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES
+
+Files: *.svg
+Author: Yuan Fu <casouri@gmail.com>
+Copyright (C) 2023 Free Software Foundation, Inc.
+License: GNU General Public License version 3 or later (see COPYING)
+
+How I made these icons: I made them with Figma, and exported them into
+SVG. I made the shapes with vectors (SVG paths) rather than strokes,
+merged all the shapes into a single shape with union operation, and
+stripped filling attributes from the SVG files. This way the icons can
+be colored like normal text! I'm not exactly sure how it works, but as
+long as the icon uses SVG path, and there is only one path in the
+file, and there is no filling attributes, the icons can be colored as
+text.
+
+FWIW, this is the command I used to strip filling attributes:
+
+sed -i 's/fill="none"//g' <file>
+sed -i 's/fill="black"//g' <file>
+
+Naming: Use underscore to separate styles, dash are considered normal
+character so you can use it for names. End with the intended optical
+size for the icon.
+
+There should also be an order for all the keywords. Right now we have
+directions (left/right), circle, fill, and optical size. Among them,
+the order should be
+
+1. direction
+2. circle
+3. fill
+4. size
+
+E.g., arrow_right_circle_fill_16.
+
+
+
+Every time you modify the SVG icons, please use the ImageMagick
+`convert' utility to convert them to PBM icons, for the sake of
+Emacsen that cannot display SVG images.
diff --git a/etc/images/symbols/check-mark_16.pbm
b/etc/images/symbols/check-mark_16.pbm
new file mode 100644
index 00000000000..5588c0c4c01
Binary files /dev/null and b/etc/images/symbols/check-mark_16.pbm differ
diff --git a/etc/images/symbols/check-mark_16.svg
b/etc/images/symbols/check-mark_16.svg
new file mode 100644
index 00000000000..10bf765f4d2
--- /dev/null
+++ b/etc/images/symbols/check-mark_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M6.58449 9.82778L3.75736 6.99807L2.3425 8.41164L6.58321
12.6562L13.6575 5.58837L12.2439 4.17351L6.58449 9.82778Z" />
+</svg>
diff --git a/etc/images/symbols/chevron_down_16.pbm
b/etc/images/symbols/chevron_down_16.pbm
new file mode 100644
index 00000000000..3d9b75d1bcc
Binary files /dev/null and b/etc/images/symbols/chevron_down_16.pbm differ
diff --git a/etc/images/symbols/chevron_down_16.svg
b/etc/images/symbols/chevron_down_16.svg
new file mode 100644
index 00000000000..016e4a5720e
--- /dev/null
+++ b/etc/images/symbols/chevron_down_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M14 4.5L14 7L8 12L2 7L2 4.5L8 9.5L14 4.5Z" />
+</svg>
diff --git a/etc/images/symbols/chevron_left_16.pbm
b/etc/images/symbols/chevron_left_16.pbm
new file mode 100644
index 00000000000..d965458790d
Binary files /dev/null and b/etc/images/symbols/chevron_left_16.pbm differ
diff --git a/etc/images/symbols/chevron_left_16.svg
b/etc/images/symbols/chevron_left_16.svg
new file mode 100644
index 00000000000..3f1d044c8ce
--- /dev/null
+++ b/etc/images/symbols/chevron_left_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M11 3.05H8.5L4 8.00001L8.5 13H11L6.5 8.00001L11 3.05Z" />
+</svg>
diff --git a/etc/images/symbols/chevron_right_16.pbm
b/etc/images/symbols/chevron_right_16.pbm
new file mode 100644
index 00000000000..938785dce28
Binary files /dev/null and b/etc/images/symbols/chevron_right_16.pbm differ
diff --git a/etc/images/symbols/chevron_right_16.svg
b/etc/images/symbols/chevron_right_16.svg
new file mode 100644
index 00000000000..e2806c2a648
--- /dev/null
+++ b/etc/images/symbols/chevron_right_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M4.95455 3H7.45455L12 8L7.45455 13H4.95455L9.5 8L4.95455 3Z" />
+</svg>
diff --git a/etc/images/symbols/chevron_up_16.pbm
b/etc/images/symbols/chevron_up_16.pbm
new file mode 100644
index 00000000000..ae6b215b7bd
Binary files /dev/null and b/etc/images/symbols/chevron_up_16.pbm differ
diff --git a/etc/images/symbols/chevron_up_16.svg
b/etc/images/symbols/chevron_up_16.svg
new file mode 100644
index 00000000000..1c4b9c47622
--- /dev/null
+++ b/etc/images/symbols/chevron_up_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M2 11.5L2 9L8 4L14 9L14 11.5L8 6.5L2 11.5Z" />
+</svg>
diff --git a/etc/images/symbols/cross_16.pbm b/etc/images/symbols/cross_16.pbm
new file mode 100644
index 00000000000..52996cdd589
Binary files /dev/null and b/etc/images/symbols/cross_16.pbm differ
diff --git a/etc/images/symbols/cross_16.svg b/etc/images/symbols/cross_16.svg
new file mode 100644
index 00000000000..f210cf230b6
--- /dev/null
+++ b/etc/images/symbols/cross_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M5.17157 3.75736L3.75736 5.17157L6.58579 8L3.75736 10.8284L5.17157
12.2426L8 9.41421L10.8284 12.2426L12.2426 10.8284L9.41421 8L12.2426
5.17157L10.8284 3.75736L8 6.58579L5.17157 3.75736Z" />
+</svg>
diff --git a/etc/images/symbols/cross_circle_16.pbm
b/etc/images/symbols/cross_circle_16.pbm
new file mode 100644
index 00000000000..57c537b0850
Binary files /dev/null and b/etc/images/symbols/cross_circle_16.pbm differ
diff --git a/etc/images/symbols/cross_circle_16.svg
b/etc/images/symbols/cross_circle_16.svg
new file mode 100644
index 00000000000..1c05c7d8611
--- /dev/null
+++ b/etc/images/symbols/cross_circle_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M15 8C15 11.866 11.866 15 8
15C4.13401 15 1 11.866 1 8C1 4.13401 4.13401 1 8 1C11.866 1 15 4.13401 15 8ZM13
8C13 10.7614 10.7614 13 8 13C5.23858 13 3 10.7614 3 8C3 5.23858 5.23858 3 8
3C10.7614 3 13 5.23858 13 8ZM9.76777 4.81802L11.182 6.23223L9.41421 8L11.182
9.76777L9.76777 11.182L8 9.41421L6.23223 11.182L4.81802 9.76777L6.58579
8L4.81802 6.23223L6.23223 4.81802L8 6.58579L9.76777 4.81802Z" />
+</svg>
diff --git a/etc/images/symbols/cross_circle_fill_16.pbm
b/etc/images/symbols/cross_circle_fill_16.pbm
new file mode 100644
index 00000000000..81c3d377b35
Binary files /dev/null and b/etc/images/symbols/cross_circle_fill_16.pbm differ
diff --git a/etc/images/symbols/cross_circle_fill_16.svg
b/etc/images/symbols/cross_circle_fill_16.svg
new file mode 100644
index 00000000000..62da8aa5fda
--- /dev/null
+++ b/etc/images/symbols/cross_circle_fill_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M8 15C11.866 15 15 11.866 15
8C15 4.13401 11.866 1 8 1C4.13401 1 1 4.13401 1 8C1 11.866 4.13401 15 8
15ZM10.1213 4.46447L11.5355 5.87868L9.41421 8L11.5355 10.1213L10.1213 11.5355L8
9.41421L5.87868 11.5355L4.46447 10.1213L6.58579 8L4.46447 5.87868L5.87868
4.46447L8 6.58579L10.1213 4.46447Z" />
+</svg>
diff --git a/etc/images/symbols/heart_16.pbm b/etc/images/symbols/heart_16.pbm
new file mode 100644
index 00000000000..b3a8904b6e7
Binary files /dev/null and b/etc/images/symbols/heart_16.pbm differ
diff --git a/etc/images/symbols/heart_16.svg b/etc/images/symbols/heart_16.svg
new file mode 100644
index 00000000000..68bd767bd32
--- /dev/null
+++ b/etc/images/symbols/heart_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M8 5.5C8 5.5 9.5 3.5 11
3.5C12.5 3.5 14 4.5 14 6.5C14 10.1005 8 13.5 8 13.5C8 13.5 2 10.1005 2 6.5C2
4.5 3.34315 3.5 5 3.5C6.5 3.5 8 5.5 8 5.5ZM8 7.5C9 6.5 10 5.5 11 5.5C11.4898
5.5 11.738 5.65071 12 6C12.3515 6.46863 12.2982 7.40369 12 8C11 10 8 11.5 8
11.5C8 11.5 5 10 4 8C3.70858 7.41714 3.64853 6.46863 4 6C4.26197 5.65071
4.55933 5.5 5 5.5C6 5.5 7 6.5 8 7.5Z" />
+</svg>
diff --git a/etc/images/symbols/heart_fill_16.pbm
b/etc/images/symbols/heart_fill_16.pbm
new file mode 100644
index 00000000000..88722ed6228
Binary files /dev/null and b/etc/images/symbols/heart_fill_16.pbm differ
diff --git a/etc/images/symbols/heart_fill_16.svg
b/etc/images/symbols/heart_fill_16.svg
new file mode 100644
index 00000000000..e1a90a55742
--- /dev/null
+++ b/etc/images/symbols/heart_fill_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M11 3.5C9.5 3.5 8 5.5 8 5.5C8 5.5 6.5 3.5 5 3.5C3.34315 3.5 2 4.5 2
6.5C2 10.1005 8 13.5 8 13.5C8 13.5 14 10.1005 14 6.5C14 4.5 12.5 3.5 11 3.5Z" />
+</svg>
diff --git a/etc/images/symbols/heart_half_16.pbm
b/etc/images/symbols/heart_half_16.pbm
new file mode 100644
index 00000000000..6d5724b1aea
Binary files /dev/null and b/etc/images/symbols/heart_half_16.pbm differ
diff --git a/etc/images/symbols/heart_half_16.svg
b/etc/images/symbols/heart_half_16.svg
new file mode 100644
index 00000000000..0ccdf620d33
--- /dev/null
+++ b/etc/images/symbols/heart_half_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M8 5.5C8 5.5 9.5 3.5 11
3.5C12.5 3.5 14 4.5 14 6.5C14 10.1005 8 13.5 8 13.5C8 13.5 2 10.1005 2 6.5C2
4.5 3.34315 3.5 5 3.5C6.5 3.5 8 5.5 8 5.5ZM12 8C11 10 8 11.5 8 11.5V7.5C9 6.5
10 5.5 11 5.5C11.4898 5.5 11.738 5.65071 12 6C12.3515 6.46863 12.2982 7.40369
12 8Z" />
+</svg>
diff --git a/etc/images/symbols/menu_16.pbm b/etc/images/symbols/menu_16.pbm
new file mode 100644
index 00000000000..72baff379e5
Binary files /dev/null and b/etc/images/symbols/menu_16.pbm differ
diff --git a/etc/images/symbols/menu_16.svg b/etc/images/symbols/menu_16.svg
new file mode 100644
index 00000000000..bddc433b2eb
--- /dev/null
+++ b/etc/images/symbols/menu_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M14 3H2V5H14V3ZM14
7H2V9H14V7ZM2 11H14V13H2V11Z" />
+</svg>
diff --git a/etc/images/symbols/minus_16.pbm b/etc/images/symbols/minus_16.pbm
new file mode 100644
index 00000000000..4f73340f179
Binary files /dev/null and b/etc/images/symbols/minus_16.pbm differ
diff --git a/etc/images/symbols/minus_16.svg b/etc/images/symbols/minus_16.svg
new file mode 100644
index 00000000000..9cb61d8d379
--- /dev/null
+++ b/etc/images/symbols/minus_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M13 7H3V9H13V7Z" />
+</svg>
diff --git a/etc/images/symbols/minus_circle_16.pbm
b/etc/images/symbols/minus_circle_16.pbm
new file mode 100644
index 00000000000..049bb004b0f
Binary files /dev/null and b/etc/images/symbols/minus_circle_16.pbm differ
diff --git a/etc/images/symbols/minus_circle_16.svg
b/etc/images/symbols/minus_circle_16.svg
new file mode 100644
index 00000000000..ced8594774f
--- /dev/null
+++ b/etc/images/symbols/minus_circle_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M15 8C15 11.866 11.866 15 8
15C4.13401 15 1 11.866 1 8C1 4.13401 4.13401 1 8 1C11.866 1 15 4.13401 15 8ZM13
8C13 10.7614 10.7614 13 8 13C5.23858 13 3 10.7614 3 8C3 5.23858 5.23858 3 8
3C10.7614 3 13 5.23858 13 8ZM11.5 7V9H4.5V7H11.5Z" />
+</svg>
diff --git a/etc/images/symbols/minus_circle_fill_16.pbm
b/etc/images/symbols/minus_circle_fill_16.pbm
new file mode 100644
index 00000000000..830d2d3e5c6
Binary files /dev/null and b/etc/images/symbols/minus_circle_fill_16.pbm differ
diff --git a/etc/images/symbols/minus_circle_fill_16.svg
b/etc/images/symbols/minus_circle_fill_16.svg
new file mode 100644
index 00000000000..e298ccaa8b2
--- /dev/null
+++ b/etc/images/symbols/minus_circle_fill_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M8 15C11.866 15 15 11.866 15
8C15 4.13401 11.866 1 8 1C4.13401 1 1 4.13401 1 8C1 11.866 4.13401 15 8 15ZM12
7V9H4V7H12Z" />
+</svg>
diff --git a/etc/images/symbols/plus_16.pbm b/etc/images/symbols/plus_16.pbm
new file mode 100644
index 00000000000..c369231b636
Binary files /dev/null and b/etc/images/symbols/plus_16.pbm differ
diff --git a/etc/images/symbols/plus_16.svg b/etc/images/symbols/plus_16.svg
new file mode 100644
index 00000000000..a4d2f84f318
--- /dev/null
+++ b/etc/images/symbols/plus_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M9 3H7V7H3V9H7V13H9V9H13V7H9V3Z" />
+</svg>
diff --git a/etc/images/symbols/plus_circle_16.pbm
b/etc/images/symbols/plus_circle_16.pbm
new file mode 100644
index 00000000000..ae616fb4682
Binary files /dev/null and b/etc/images/symbols/plus_circle_16.pbm differ
diff --git a/etc/images/symbols/plus_circle_16.svg
b/etc/images/symbols/plus_circle_16.svg
new file mode 100644
index 00000000000..921857f5a84
--- /dev/null
+++ b/etc/images/symbols/plus_circle_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M15 8C15 11.866 11.866 15 8
15C4.13401 15 1 11.866 1 8C1 4.13401 4.13401 1 8 1C11.866 1 15 4.13401 15 8ZM13
8C13 10.7614 10.7614 13 8 13C5.23858 13 3 10.7614 3 8C3 5.23858 5.23858 3 8
3C10.7614 3 13 5.23858 13 8ZM7 7V4.5H9V7H11.5V9H9V11.5H7V9H4.5V7H7Z" />
+</svg>
diff --git a/etc/images/symbols/plus_circle_fill_16.pbm
b/etc/images/symbols/plus_circle_fill_16.pbm
new file mode 100644
index 00000000000..b0e52cdaa08
Binary files /dev/null and b/etc/images/symbols/plus_circle_fill_16.pbm differ
diff --git a/etc/images/symbols/plus_circle_fill_16.svg
b/etc/images/symbols/plus_circle_fill_16.svg
new file mode 100644
index 00000000000..7f5de4ae3a8
--- /dev/null
+++ b/etc/images/symbols/plus_circle_fill_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M8 15C11.866 15 15 11.866 15
8C15 4.13401 11.866 1 8 1C4.13401 1 1 4.13401 1 8C1 11.866 4.13401 15 8 15ZM7
7V4H9V7H12V9H9V12H7V9H4V7H7Z" />
+</svg>
diff --git a/etc/images/symbols/star_16.pbm b/etc/images/symbols/star_16.pbm
new file mode 100644
index 00000000000..4a63706a4f7
Binary files /dev/null and b/etc/images/symbols/star_16.pbm differ
diff --git a/etc/images/symbols/star_16.svg b/etc/images/symbols/star_16.svg
new file mode 100644
index 00000000000..7ccbd6f01a5
--- /dev/null
+++ b/etc/images/symbols/star_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M9.6458 5.73475L8 1L6.3542
5.73475L1.34261 5.83688L5.33704 8.86525L3.8855 13.6631L8 10.8L12.1145
13.6631L10.663 8.86525L14.6574 5.83688L9.6458 5.73475ZM8.70534 7.02918L8
5L7.29466 7.02918L5.14683 7.07295L6.85873 8.37082L6.23664 10.4271L8 9.2L9.76336
10.4271L9.14127 8.37082L10.8532 7.07295L8.70534 7.02918Z" />
+</svg>
diff --git a/etc/images/symbols/star_fill_16.pbm
b/etc/images/symbols/star_fill_16.pbm
new file mode 100644
index 00000000000..9bb2a2fb15b
Binary files /dev/null and b/etc/images/symbols/star_fill_16.pbm differ
diff --git a/etc/images/symbols/star_fill_16.svg
b/etc/images/symbols/star_fill_16.svg
new file mode 100644
index 00000000000..0e03675edd5
--- /dev/null
+++ b/etc/images/symbols/star_fill_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path d="M8 1L9.6458 5.73475L14.6574 5.83688L10.663 8.86525L12.1145 13.6631L8
10.8L3.8855 13.6631L5.33704 8.86525L1.3426 5.83688L6.3542 5.73475L8 1Z" />
+</svg>
diff --git a/etc/images/symbols/star_half_16.pbm
b/etc/images/symbols/star_half_16.pbm
new file mode 100644
index 00000000000..a57fd8687e4
Binary files /dev/null and b/etc/images/symbols/star_half_16.pbm differ
diff --git a/etc/images/symbols/star_half_16.svg
b/etc/images/symbols/star_half_16.svg
new file mode 100644
index 00000000000..6c735ad64ae
--- /dev/null
+++ b/etc/images/symbols/star_half_16.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" viewBox="0 0 16 16"
xmlns="http://www.w3.org/2000/svg";>
+<path fill-rule="evenodd" clip-rule="evenodd" d="M9.72809 5.62149L8 1L6.27191
5.62149L1.34261 5.83688L5.2039 8.90851L3.8855 13.6631L8 10.94L12.1145
13.6631L10.7961 8.90851L14.6574 5.83688L9.72809 5.62149ZM10.3511 11.236L8
9.67997V3.99997L8.98747 6.64082L11.8042 6.7639L9.59777 8.51912L10.3511 11.236Z"
/>
+</svg>
diff --git a/etc/publicsuffix.txt b/etc/publicsuffix.txt
index 3b920e67ed0..9d0dfc04ea9 100644
--- a/etc/publicsuffix.txt
+++ b/etc/publicsuffix.txt
@@ -7189,7 +7189,7 @@ org.zw
// newGTLDs
-// List of new gTLDs imported from
https://www.icann.org/resources/registries/gtlds/v2/gtlds.json on
2023-02-22T15:15:03Z
+// List of new gTLDs imported from
https://www.icann.org/resources/registries/gtlds/v2/gtlds.json on
2023-03-18T15:13:13Z
// This list is auto-generated, don't edit it manually.
// aaa : 2015-02-26 American Automobile Association, Inc.
aaa
@@ -8898,9 +8898,6 @@ limo
// lincoln : 2014-11-13 Ford Motor Company
lincoln
-// linde : 2014-12-04 Linde Aktiengesellschaft
-linde
-
// link : 2013-11-14 Nova Registry Ltd
link
@@ -8967,9 +8964,6 @@ luxe
// luxury : 2013-10-17 Luxury Partners, LLC
luxury
-// macys : 2015-07-31 Macys, Inc.
-macys
-
// madrid : 2014-05-01 Comunidad de Madrid
madrid
diff --git a/etc/refcards/orgcard.tex b/etc/refcards/orgcard.tex
index dc222719b7e..07463ee6a33 100644
--- a/etc/refcards/orgcard.tex
+++ b/etc/refcards/orgcard.tex
@@ -1,5 +1,5 @@
% Reference Card for Org Mode
-\def\orgversionnumber{9.6.1}
+\def\orgversionnumber{9.6.6}
\def\versionyear{2023} % latest update
\input emacsver.tex
diff --git a/etc/themes/modus-operandi-deuteranopia-theme.el
b/etc/themes/modus-operandi-deuteranopia-theme.el
index fff62e3da9f..5817d8f674c 100644
--- a/etc/themes/modus-operandi-deuteranopia-theme.el
+++ b/etc/themes/modus-operandi-deuteranopia-theme.el
@@ -1,4 +1,4 @@
-;;; modus-operandi-deuteranopia-theme.el --- Elegant, highly legible and
customizable light theme -*- lexical-binding:t -*-
+;;; modus-operandi-deuteranopia-theme.el --- Deuteranopia-optimized theme with
a white background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -44,7 +44,7 @@
(require 'modus-themes))
(deftheme modus-operandi-deuteranopia
- "Elegant, highly legible and customizable light theme.
+ "Deuteranopia-optimized theme with a white background.
This variant is optimized for users with red-green color
deficiency (deuteranopia). It conforms with the highest
legibility standard for color contrast between background and
@@ -77,9 +77,9 @@ standard).")
(green-cooler "#00663f")
(green-faint "#2a5045")
(green-intense "#008900")
- (yellow "#7b5000")
- (yellow-warmer "#884900")
- (yellow-cooler "#7a4f2f")
+ (yellow "#695500")
+ (yellow-warmer "#973300")
+ (yellow-cooler "#77492f")
(yellow-faint "#624416")
(yellow-intense "#808000")
(blue "#0031a9")
@@ -139,10 +139,10 @@ standard).")
;;; Graphs
- (bg-graph-red-0 "#b0b029")
+ (bg-graph-red-0 "#d0b029")
(bg-graph-red-1 "#e0cab4")
- (bg-graph-green-0 "#90b7c0")
- (bg-graph-green-1 "#a3dfe5")
+ (bg-graph-green-0 "#8ad080")
+ (bg-graph-green-1 "#afdfa5")
(bg-graph-yellow-0 "#ffcf00")
(bg-graph-yellow-1 "#f9ff00")
(bg-graph-blue-0 "#7f9fff")
@@ -223,17 +223,24 @@ standard).")
(identifier yellow-faint)
(err yellow-warmer)
- (warning yellow-cooler)
+ (warning yellow)
(info blue)
(underline-err yellow-intense)
(underline-warning magenta-faint)
(underline-note cyan)
+ (bg-prominent-err bg-yellow-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-magenta-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
(builtin magenta-warmer)
- (comment yellow)
+ (comment yellow-cooler)
(constant blue-cooler)
(docstring green-faint)
(docmarkup magenta-faint)
@@ -278,6 +285,7 @@ standard).")
(date-event fg-alt)
(date-holiday yellow-warmer)
(date-now blue-faint)
+ (date-range fg-alt)
(date-scheduled yellow-cooler)
(date-weekday cyan)
(date-weekend yellow-faint)
@@ -307,13 +315,22 @@ standard).")
(mail-cite-0 blue-warmer)
(mail-cite-1 yellow)
- (mail-cite-2 blue-cooler)
+ (mail-cite-2 cyan-faint)
(mail-cite-3 yellow-faint)
(mail-part blue)
(mail-recipient blue)
- (mail-subject yellow-warmer)
+ (mail-subject yellow-cooler)
(mail-other cyan-faint)
+;;;; Mark mappings
+
+ (bg-mark-delete bg-yellow-subtle)
+ (fg-mark-delete yellow)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-magenta-subtle)
+ (fg-mark-other magenta)
+
;;;; Prompt mappings
(fg-prompt blue)
@@ -344,6 +361,12 @@ standard).")
(rainbow-7 yellow-faint)
(rainbow-8 cyan)
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-yellow-intense)
+
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
diff --git a/etc/themes/modus-operandi-theme.el
b/etc/themes/modus-operandi-theme.el
index 0705f926de6..9a69e3290b7 100644
--- a/etc/themes/modus-operandi-theme.el
+++ b/etc/themes/modus-operandi-theme.el
@@ -1,4 +1,4 @@
-;;; modus-operandi-theme.el --- Elegant, highly legible and customizable light
theme -*- lexical-binding:t -*-
+;;; modus-operandi-theme.el --- Elegant, highly legible theme with a white
background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -44,7 +44,7 @@
(require 'modus-themes))
(deftheme modus-operandi
- "Elegant, highly legible and customizable light theme.
+ "Elegant, highly legible theme with a white background.
Conforms with the highest legibility standard for color contrast
between background and foreground in any given piece of text,
which corresponds to a minimum contrast in relative luminance of
@@ -139,11 +139,11 @@ which corresponds to a minimum contrast in relative
luminance of
(bg-graph-red-0 "#ef7969")
(bg-graph-red-1 "#ffaab4")
- (bg-graph-green-0 "#4faa09")
- (bg-graph-green-1 "#8fef00")
+ (bg-graph-green-0 "#2fe029")
+ (bg-graph-green-1 "#75ef30")
(bg-graph-yellow-0 "#ffcf00")
(bg-graph-yellow-1 "#f9ff00")
- (bg-graph-blue-0 "#7090ff")
+ (bg-graph-blue-0 "#7f90ff")
(bg-graph-blue-1 "#9fc6ff")
(bg-graph-magenta-0 "#e07fff")
(bg-graph-magenta-1 "#fad0ff")
@@ -228,6 +228,13 @@ which corresponds to a minimum contrast in relative
luminance of
(underline-warning yellow-intense)
(underline-note cyan-intense)
+ (bg-prominent-err bg-red-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-yellow-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
(builtin magenta-warmer)
@@ -274,8 +281,9 @@ which corresponds to a minimum contrast in relative
luminance of
(date-common cyan)
(date-deadline red)
(date-event fg-alt)
- (date-holiday magenta)
+ (date-holiday red-cooler)
(date-now fg-main)
+ (date-range fg-alt)
(date-scheduled yellow-warmer)
(date-weekday cyan)
(date-weekend red-faint)
@@ -312,6 +320,15 @@ which corresponds to a minimum contrast in relative
luminance of
(mail-subject magenta-warmer)
(mail-other magenta-faint)
+;;;; Mark mappings
+
+ (bg-mark-delete bg-red-subtle)
+ (fg-mark-delete red)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-yellow-subtle)
+ (fg-mark-other yellow)
+
;;;; Prompt mappings
(fg-prompt cyan-cooler)
@@ -342,6 +359,12 @@ which corresponds to a minimum contrast in relative
luminance of
(rainbow-7 blue-warmer)
(rainbow-8 magenta-warmer)
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-red-intense)
+
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
diff --git a/etc/themes/modus-operandi-tinted-theme.el
b/etc/themes/modus-operandi-tinted-theme.el
index 4bb820cf686..341a7d29e84 100644
--- a/etc/themes/modus-operandi-tinted-theme.el
+++ b/etc/themes/modus-operandi-tinted-theme.el
@@ -1,4 +1,4 @@
-;;; modus-operandi-tinted-theme.el --- Elegant, highly legible and
customizable light theme -*- lexical-binding:t -*-
+;;; modus-operandi-tinted-theme.el --- Elegant, highly legible theme with a
light ochre background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -43,7 +43,7 @@
(require 'modus-themes))
(deftheme modus-operandi-tinted
- "Elegant, highly legible and customizable light theme.
+ "Elegant, highly legible theme with a light ochre background.
Conforms with the highest legibility standard for color contrast
between background and foreground in any given piece of text,
which corresponds to a minimum contrast in relative luminance of
@@ -138,11 +138,11 @@ which corresponds to a minimum contrast in relative
luminance of
(bg-graph-red-0 "#ef7969")
(bg-graph-red-1 "#ffaab4")
- (bg-graph-green-0 "#4faa09")
- (bg-graph-green-1 "#8fef00")
+ (bg-graph-green-0 "#2fe029")
+ (bg-graph-green-1 "#75ef30")
(bg-graph-yellow-0 "#ffcf00")
(bg-graph-yellow-1 "#f9ff00")
- (bg-graph-blue-0 "#7090ff")
+ (bg-graph-blue-0 "#7f90ff")
(bg-graph-blue-1 "#9fc6ff")
(bg-graph-magenta-0 "#e07fff")
(bg-graph-magenta-1 "#fad0ff")
@@ -227,6 +227,13 @@ which corresponds to a minimum contrast in relative
luminance of
(underline-warning yellow-intense)
(underline-note cyan-intense)
+ (bg-prominent-err bg-red-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-yellow-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
(builtin magenta-warmer)
@@ -273,8 +280,9 @@ which corresponds to a minimum contrast in relative
luminance of
(date-common cyan)
(date-deadline red)
(date-event fg-alt)
- (date-holiday magenta)
+ (date-holiday red-cooler)
(date-now fg-main)
+ (date-range fg-alt)
(date-scheduled yellow-warmer)
(date-weekday cyan)
(date-weekend red-faint)
@@ -311,6 +319,15 @@ which corresponds to a minimum contrast in relative
luminance of
(mail-subject magenta-warmer)
(mail-other magenta-faint)
+;;;; Mark mappings
+
+ (bg-mark-delete bg-red-subtle)
+ (fg-mark-delete red)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-yellow-subtle)
+ (fg-mark-other yellow)
+
;;;; Prompt mappings
(fg-prompt cyan-cooler)
@@ -341,6 +358,12 @@ which corresponds to a minimum contrast in relative
luminance of
(rainbow-7 blue-warmer)
(rainbow-8 magenta-warmer)
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-red-intense)
+
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
diff --git a/etc/themes/modus-operandi-theme.el
b/etc/themes/modus-operandi-tritanopia-theme.el
similarity index 62%
copy from etc/themes/modus-operandi-theme.el
copy to etc/themes/modus-operandi-tritanopia-theme.el
index 0705f926de6..5d143fa7514 100644
--- a/etc/themes/modus-operandi-theme.el
+++ b/etc/themes/modus-operandi-tritanopia-theme.el
@@ -1,4 +1,4 @@
-;;; modus-operandi-theme.el --- Elegant, highly legible and customizable light
theme -*- lexical-binding:t -*-
+;;; modus-operandi-tritanopia-theme.el --- Tritanopia-optimized theme with a
white background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -43,14 +43,16 @@
(require-theme 'modus-themes t))
(require 'modus-themes))
- (deftheme modus-operandi
- "Elegant, highly legible and customizable light theme.
-Conforms with the highest legibility standard for color contrast
-between background and foreground in any given piece of text,
-which corresponds to a minimum contrast in relative luminance of
-7:1 (WCAG AAA standard).")
+ (deftheme modus-operandi-tritanopia
+ "Tritanopia-optimized theme with a white background.
+This variant is optimized for users with blue-yellow color
+deficiency (tritanopia). It conforms with the highest
+legibility standard for color contrast between background and
+foreground in any given piece of text, which corresponds to a
+minimum contrast in relative luminance of 7:1 (WCAG AAA
+standard).")
- (defconst modus-operandi-palette
+ (defconst modus-operandi-tritanopia-palette
'(
;;; Basic values
@@ -66,18 +68,18 @@ which corresponds to a minimum contrast in relative
luminance of
;;; Common accent foregrounds
(red "#a60000")
- (red-warmer "#972500")
+ (red-warmer "#b21100")
(red-cooler "#a0132f")
- (red-faint "#7f0000")
+ (red-faint "#702000")
(red-intense "#d00000")
(green "#006800")
(green-warmer "#316500")
(green-cooler "#00663f")
(green-faint "#2a5045")
(green-intense "#008900")
- (yellow "#6f5500")
- (yellow-warmer "#884900")
- (yellow-cooler "#7a4f2f")
+ (yellow "#695500")
+ (yellow-warmer "#973300")
+ (yellow-cooler "#77492f")
(yellow-faint "#624416")
(yellow-intense "#808000")
(blue "#0031a9")
@@ -89,11 +91,11 @@ which corresponds to a minimum contrast in relative
luminance of
(magenta-warmer "#8f0075")
(magenta-cooler "#531ab6")
(magenta-faint "#7c318f")
- (magenta-intense "#dd22dd")
+ (magenta-intense "#cd22bd")
(cyan "#005e8b")
(cyan-warmer "#3f578f")
(cyan-cooler "#005f5f")
- (cyan-faint "#005077")
+ (cyan-faint "#004f5f")
(cyan-intense "#008899")
;;; Uncommon accent foregrounds
@@ -139,40 +141,40 @@ which corresponds to a minimum contrast in relative
luminance of
(bg-graph-red-0 "#ef7969")
(bg-graph-red-1 "#ffaab4")
- (bg-graph-green-0 "#4faa09")
- (bg-graph-green-1 "#8fef00")
- (bg-graph-yellow-0 "#ffcf00")
- (bg-graph-yellow-1 "#f9ff00")
- (bg-graph-blue-0 "#7090ff")
- (bg-graph-blue-1 "#9fc6ff")
- (bg-graph-magenta-0 "#e07fff")
- (bg-graph-magenta-1 "#fad0ff")
- (bg-graph-cyan-0 "#70d3f0")
+ (bg-graph-green-0 "#70c3b0")
+ (bg-graph-green-1 "#a3dfe5")
+ (bg-graph-yellow-0 "#d99f9f")
+ (bg-graph-yellow-1 "#ffb58f")
+ (bg-graph-blue-0 "#80a0df")
+ (bg-graph-blue-1 "#9fcaff")
+ (bg-graph-magenta-0 "#efafcf")
+ (bg-graph-magenta-1 "#ffdaef")
+ (bg-graph-cyan-0 "#7fd3ed")
(bg-graph-cyan-1 "#afefff")
;;; Special purpose
- (bg-completion "#c0deff")
- (bg-hover "#94d4ff")
- (bg-hover-secondary "#f5d0a0")
- (bg-hl-line "#dae5ec")
+ (bg-completion "#afdfef")
+ (bg-hover "#ffafbc")
+ (bg-hover-secondary "#9fdfff")
+ (bg-hl-line "#dfeaec")
(bg-region "#bdbdbd")
(fg-region "#000000")
- (bg-char-0 "#7feaff")
- (bg-char-1 "#ffaaff")
- (bg-char-2 "#dff000")
+ (bg-char-0 "#ff8a5f")
+ (bg-char-1 "#bf7aff")
+ (bg-char-2 "#7fe0e0")
- (bg-mode-line-active "#c8c8c8")
- (fg-mode-line-active "#000000")
- (border-mode-line-active "#5a5a5a")
+ (bg-mode-line-active "#afe0f2")
+ (fg-mode-line-active "#0f0f0f")
+ (border-mode-line-active "#2f4f44")
(bg-mode-line-inactive "#e6e6e6")
(fg-mode-line-inactive "#585858")
(border-mode-line-inactive "#a3a3a3")
- (modeline-err "#7f0000")
- (modeline-warning "#5f0070")
- (modeline-info "#002580")
+ (modeline-err "#8f0000")
+ (modeline-warning "#6f306f")
+ (modeline-info "#00445f")
(bg-tab-bar "#dfdfdf")
(bg-tab-current "#ffffff")
@@ -180,19 +182,19 @@ which corresponds to a minimum contrast in relative
luminance of
;;; Diffs
- (bg-added "#c1f2d1")
- (bg-added-faint "#d8f8e1")
- (bg-added-refine "#aee5be")
- (bg-added-fringe "#6cc06c")
- (fg-added "#005000")
- (fg-added-intense "#006700")
+ (bg-added "#b5e7ff")
+ (bg-added-faint "#c6f6ff")
+ (bg-added-refine "#9adcef")
+ (bg-added-fringe "#1782cc")
+ (fg-added "#005079")
+ (fg-added-intense "#0043aa")
- (bg-changed "#ffdfa9")
- (bg-changed-faint "#ffefbf")
- (bg-changed-refine "#fac090")
- (bg-changed-fringe "#d7c20a")
- (fg-changed "#553d00")
- (fg-changed-intense "#655000")
+ (bg-changed "#eecfdf")
+ (bg-changed-faint "#f0dde5")
+ (bg-changed-refine "#e0b0d0")
+ (bg-changed-fringe "#9f6ab0")
+ (fg-changed "#6f1343")
+ (fg-changed-intense "#7f0f9f")
(bg-removed "#ffd8d5")
(bg-removed-faint "#ffe9e9")
@@ -214,42 +216,49 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; General mappings
(fringe bg-dim)
- (cursor fg-main)
+ (cursor red-intense)
- (keybind blue-cooler)
- (name magenta)
- (identifier yellow-cooler)
+ (keybind red)
+ (name red-cooler)
+ (identifier red-faint)
- (err red)
- (warning yellow-warmer)
- (info cyan-cooler)
+ (err red-warmer)
+ (warning magenta)
+ (info cyan)
(underline-err red-intense)
- (underline-warning yellow-intense)
+ (underline-warning magenta-intense)
(underline-note cyan-intense)
+ (bg-prominent-err bg-red-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-magenta-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
- (builtin magenta-warmer)
- (comment fg-dim)
- (constant blue-cooler)
- (docstring green-faint)
+ (builtin magenta)
+ (comment red-faint)
+ (constant green-cooler)
+ (docstring fg-alt)
(docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct green-cooler)
+ (fnname cyan-warmer)
+ (keyword red-cooler)
+ (preprocessor red-warmer)
+ (string cyan)
+ (type blue-warmer)
+ (variable cyan-cooler)
+ (rx-construct red)
(rx-backslash magenta)
;;;; Accent mappings
- (accent-0 blue)
- (accent-1 magenta-warmer)
- (accent-2 cyan)
- (accent-3 red)
+ (accent-0 cyan)
+ (accent-1 red-warmer)
+ (accent-2 cyan-cooler)
+ (accent-3 magenta)
;;;; Button mappings
@@ -260,10 +269,10 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Completion mappings
- (fg-completion-match-0 blue)
- (fg-completion-match-1 magenta-warmer)
- (fg-completion-match-2 cyan)
- (fg-completion-match-3 red)
+ (fg-completion-match-0 cyan)
+ (fg-completion-match-1 red-warmer)
+ (fg-completion-match-2 magenta)
+ (fg-completion-match-3 cyan-cooler)
(bg-completion-match-0 unspecified)
(bg-completion-match-1 unspecified)
(bg-completion-match-2 unspecified)
@@ -271,12 +280,13 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Date mappings
- (date-common cyan)
+ (date-common cyan-cooler)
(date-deadline red)
(date-event fg-alt)
- (date-holiday magenta)
+ (date-holiday red)
(date-now fg-main)
- (date-scheduled yellow-warmer)
+ (date-range fg-alt)
+ (date-scheduled magenta)
(date-weekday cyan)
(date-weekend red-faint)
@@ -289,13 +299,13 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Link mappings
- (fg-link blue-warmer)
+ (fg-link cyan)
(bg-link unspecified)
- (underline-link blue-warmer)
+ (underline-link cyan)
- (fg-link-symbolic cyan)
+ (fg-link-symbolic cyan-cooler)
(bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
+ (underline-link-symbolic cyan-cooler)
(fg-link-visited magenta)
(bg-link-visited unspecified)
@@ -303,14 +313,23 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Mail mappings
- (mail-cite-0 blue-faint)
- (mail-cite-1 yellow-warmer)
- (mail-cite-2 cyan-cooler)
- (mail-cite-3 red-cooler)
- (mail-part cyan)
- (mail-recipient magenta-cooler)
- (mail-subject magenta-warmer)
- (mail-other magenta-faint)
+ (mail-cite-0 cyan-faint)
+ (mail-cite-1 red-faint)
+ (mail-cite-2 magenta-warmer)
+ (mail-cite-3 cyan-warmer)
+ (mail-part cyan-cooler)
+ (mail-recipient cyan)
+ (mail-subject red-cooler)
+ (mail-other cyan)
+
+;;;; Mark mappings
+
+ (bg-mark-delete bg-red-subtle)
+ (fg-mark-delete red)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-magenta-subtle)
+ (fg-mark-other magenta)
;;;; Prompt mappings
@@ -320,37 +339,43 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Prose mappings
(prose-block fg-dim)
- (prose-code green-cooler)
- (prose-done green)
- (prose-macro magenta-cooler)
+ (prose-code cyan)
+ (prose-done cyan)
+ (prose-macro red-warmer)
(prose-metadata fg-dim)
(prose-metadata-value fg-alt)
(prose-table fg-alt)
- (prose-tag magenta-faint)
+ (prose-tag fg-alt)
(prose-todo red)
(prose-verbatim magenta-warmer)
;;;; Rainbow mappings
- (rainbow-0 fg-main)
- (rainbow-1 magenta-intense)
- (rainbow-2 cyan-intense)
- (rainbow-3 red-warmer)
- (rainbow-4 yellow-intense)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green-intense)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-warmer)
+ (rainbow-0 cyan)
+ (rainbow-1 red)
+ (rainbow-2 cyan-warmer)
+ (rainbow-3 red-cooler)
+ (rainbow-4 cyan-cooler)
+ (rainbow-5 magenta)
+ (rainbow-6 cyan-faint)
+ (rainbow-7 magenta-faint)
+ (rainbow-8 red-faint)
+
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-red-intense)
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
(fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 fg-alt)
+ (fg-heading-2 red-faint)
+ (fg-heading-3 cyan-faint)
(fg-heading-4 magenta)
(fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
+ (fg-heading-6 magenta-faint)
(fg-heading-7 cyan-warmer)
(fg-heading-8 fg-dim)
@@ -373,7 +398,7 @@ which corresponds to a minimum contrast in relative
luminance of
(overline-heading-6 unspecified)
(overline-heading-7 unspecified)
(overline-heading-8 unspecified))
- "The entire palette of the `modus-operandi' theme.
+ "The entire palette of the `modus-operandi-tritanopia' theme.
Named colors have the form (COLOR-NAME HEX-VALUE) with the former
as a symbol and the latter as a string.
@@ -382,8 +407,8 @@ Semantic color mappings have the form (MAPPING-NAME
COLOR-NAME)
with both as symbols. The latter is a named color that already
exists in the palette and is associated with a HEX-VALUE.")
- (defcustom modus-operandi-palette-overrides nil
- "Overrides for `modus-operandi-palette'.
+ (defcustom modus-operandi-tritanopia-palette-overrides nil
+ "Overrides for `modus-operandi-tritanopia-palette'.
Mirror the elements of the aforementioned palette, overriding
their value.
@@ -405,13 +430,13 @@ represents."
:initialize #'custom-initialize-default
:link '(info-link "(modus-themes) Palette overrides"))
- (modus-themes-theme modus-operandi
- modus-operandi-palette
- modus-operandi-palette-overrides)
+ (modus-themes-theme modus-operandi-tritanopia
+ modus-operandi-tritanopia-palette
+ modus-operandi-tritanopia-palette-overrides)
- (provide-theme 'modus-operandi))
+ (provide-theme 'modus-operandi-tritanopia))
;;;###theme-autoload
-(put 'modus-operandi 'theme-properties '(:background-mode light :kind
color-scheme :family modus))
+(put 'modus-operandi-tritanopia 'theme-properties '(:background-mode light
:kind color-scheme :family modus))
-;;; modus-operandi-theme.el ends here
+;;; modus-operandi-tritanopia-theme.el ends here
diff --git a/etc/themes/modus-themes.el b/etc/themes/modus-themes.el
index 805f25b458f..43c10043bc5 100644
--- a/etc/themes/modus-themes.el
+++ b/etc/themes/modus-themes.el
@@ -6,7 +6,7 @@
;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
;; URL: https://git.sr.ht/~protesilaos/modus-themes
;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-;; Version: 4.1.0
+;; Version: 4.2.0
;; Package-Requires: ((emacs "27.1"))
;; Keywords: faces, theme, accessibility
@@ -45,14 +45,15 @@
"User options for the Modus themes.
The Modus themes conform with the WCAG AAA standard for color
contrast between background and foreground combinations (a
-minimum contrast of 7:1---the highest standard of its kind). The
-themes also strive to empower users with red-green color
-deficiency: this is achieved through customization variables that
-replace all relevant instances of green with blue, as well as the
-overall design of the themes which relies mostly on colors that
-cover the blue-cyan-magenta side of the spectrum."
+minimum contrast of 7:1---the highest standard of its kind).
+
+The Modus themes collection includes themes that are optimized
+for people with red-green or blue-yellow color
+deficiency (deuteranopia or tritanopia, respectively)."
:group 'faces
:link '(info-link "(modus-themes) Top")
+ :link '(url-link :tag "Homepage"
"https://protesilaos.com/emacs/modus-themes";)
+ :link '(url-link :tag "Sample pictures"
"https://protesilaos.com/emacs/modus-themes-pictures";)
:prefix "modus-themes-"
:tag "Modus Themes")
@@ -60,6 +61,8 @@ cover the blue-cyan-magenta side of the spectrum."
"Faces defined by the Modus themes."
:group 'modus-themes
:link '(info-link "(modus-themes) Top")
+ :link '(url-link :tag "Homepage"
"https://protesilaos.com/emacs/modus-themes";)
+ :link '(url-link :tag "Sample pictures"
"https://protesilaos.com/emacs/modus-themes-pictures";)
:prefix "modus-themes-"
:tag "Modus Themes Faces")
@@ -128,6 +131,14 @@ cover the blue-cyan-magenta side of the spectrum."
:version "30.1"
:group 'modus-themes-faces))
+(dolist (scope '(note warning error))
+ (custom-declare-face
+ (intern (format "modus-themes-prominent-%s" scope))
+ nil (format "Prominent notification of type %s." scope)
+ :package-version '(modus-themes . "4.2.0")
+ :version "30.1"
+ :group 'modus-themes-faces))
+
(dolist (scope '(current lazy))
(custom-declare-face
(intern (format "modus-themes-search-%s" scope))
@@ -360,10 +371,14 @@ set this variable to a nil value."
:type 'boolean
:link '(info-link "(modus-themes) Disable other themes"))
+(defvaralias 'modus-themes-collection 'modus-themes-items
+ "Alias of `modus-themes-items'.")
+
(defconst modus-themes-items
'( modus-operandi modus-vivendi
modus-operandi-tinted modus-vivendi-tinted
- modus-operandi-deuteranopia modus-vivendi-deuteranopia)
+ modus-operandi-deuteranopia modus-vivendi-deuteranopia
+ modus-operandi-tritanopia modus-vivendi-tritanopia)
"Symbols of the Modus themes.")
(defcustom modus-themes-to-toggle '(modus-operandi modus-vivendi)
@@ -928,12 +943,17 @@ colorful/intense. Grays are toned down, gray backgrounds
are
removed from some contexts, and almost all accent colors are
desaturated.
+All the preset overrides the themes provide (including this one):
+
+- `modus-themes-preset-overrides-faint'
+- `modus-themes-preset-overrides-intense'
+- `modus-themes-preset-overrides-cooler'
+- `modus-themes-preset-overrides-warmer'
+
To set a preset, assign its symbol without a quote as the value
of the `modus-themes-common-palette-overrides' or as the value of
theme-specific options such as `modus-operandi-palette-overrides'.
-Also see `modus-themes-preset-overrides-intense'.
-
For overriding named colors and/or semantic color mappings read
Info node `(modus-themes) Option for palette overrides'.")
@@ -957,6 +977,7 @@ Info node `(modus-themes) Option for palette overrides'.")
(date-event blue)
(date-holiday magenta-warmer)
(date-now blue-faint)
+ (date-range blue)
(date-scheduled yellow-warmer)
(date-weekday fg-main)
(date-weekend red-faint)
@@ -1016,11 +1037,124 @@ This changes many parts of the theme to make them look
more
colorful/intense. Many background colors are accented and
coloration is increased to pop out more.
+All the preset overrides the themes provide (including this one):
+
+- `modus-themes-preset-overrides-faint'
+- `modus-themes-preset-overrides-intense'
+- `modus-themes-preset-overrides-cooler'
+- `modus-themes-preset-overrides-warmer'
+
To set a preset, assign its symbol without a quote as the value
of the `modus-themes-common-palette-overrides' or as the value of
theme-specific options such as `modus-operandi-palette-overrides'.
-Also see `modus-themes-preset-overrides-faint'.
+For overriding named colors and/or semantic color mappings read
+Info node `(modus-themes) Option for palette overrides'.")
+
+(defvar modus-themes-preset-overrides-cooler
+ '((fg-prompt blue-cooler)
+
+ (builtin magenta-faint)
+ (constant blue-cooler)
+ (fnname cyan-cooler)
+ (keyword magenta-cooler)
+ (preprocessor blue)
+ (string blue-warmer)
+ (type green-cooler)
+ (variable cyan)
+ (rx-construct blue-cooler)
+ (rx-backslash red)
+
+ (name blue-warmer)
+ (identifier magenta-faint)
+
+ (date-deadline magenta-cooler)
+ (date-scheduled yellow-cooler)
+ (date-weekday blue-faint)
+ (date-weekend red-faint)
+
+ (mail-cite-0 blue-faint)
+ (mail-cite-1 cyan-cooler)
+ (mail-cite-2 magenta-faint)
+ (mail-cite-3 yellow-cooler)
+ (mail-part cyan)
+ (mail-recipient blue-warmer)
+ (mail-subject magenta-cooler)
+ (mail-other blue)
+
+ (prose-tag fg-dim)
+ (prose-verbatim blue-cooler))
+ "Preset of palette overrides with cooler colors.
+
+This changes parts of the palette to use more blue and
+blue-tinted colors.
+
+All the preset overrides the themes provide (including this one):
+
+- `modus-themes-preset-overrides-faint'
+- `modus-themes-preset-overrides-intense'
+- `modus-themes-preset-overrides-cooler'
+- `modus-themes-preset-overrides-warmer'
+
+To set a preset, assign its symbol without a quote as the value
+of the `modus-themes-common-palette-overrides' or as the value of
+theme-specific options such as `modus-operandi-palette-overrides'.
+
+For overriding named colors and/or semantic color mappings read
+Info node `(modus-themes) Option for palette overrides'.")
+
+(defvar modus-themes-preset-overrides-warmer
+ '((fg-prompt magenta-warmer)
+
+ (builtin magenta)
+ (constant blue-warmer)
+ (fnname magenta-cooler)
+ (keyword magenta-warmer)
+ (preprocessor red-cooler)
+ (string olive)
+ (type cyan-cooler)
+ (variable cyan)
+ (rx-construct blue-cooler)
+ (rx-backslash red-warmer)
+
+ (name blue-warmer)
+ (identifier magenta)
+ (keybind magenta-warmer)
+
+ (accent-0 magenta-warmer)
+ (accent-1 cyan)
+ (accent-2 blue-warmer)
+ (accent-3 red-cooler)
+
+ (date-common cyan-cooler)
+ (date-holiday magenta-warmer)
+
+ (mail-cite-0 magenta-faint)
+ (mail-cite-1 cyan-cooler)
+ (mail-cite-2 green-warmer)
+ (mail-cite-3 red-faint)
+ (mail-part cyan)
+ (mail-recipient magenta)
+ (mail-subject blue-warmer)
+ (mail-other magenta-warmer)
+
+ (prose-macro red-cooler)
+ (prose-tag fg-dim))
+ "Preset of palette overrides with warmer colors.
+
+This changes many parts of the theme to use warmer colors,
+including green and yellow.
+
+All the preset overrides the themes provide (including this one):
+
+- `modus-themes-preset-overrides-faint'
+- `modus-themes-preset-overrides-intense'
+- `modus-themes-preset-overrides-cooler'
+- `modus-themes-preset-overrides-warmer'
+
+To set a preset, assign its symbol without a quote as the value
+of the `modus-themes-common-palette-overrides' or as the value of
+theme-specific options such as `modus-operandi-palette-overrides'.
For overriding named colors and/or semantic color mappings read
Info node `(modus-themes) Option for palette overrides'.")
@@ -1123,10 +1257,13 @@ Which themes are disabled is determined by the user
option
`modus-themes-disable-other-themes'.
Run the `modus-themes-after-load-theme-hook' as the final step
-after loading the THEME."
+after loading the THEME.
+
+Return THEME."
(modus-themes--disable-themes)
(load-theme theme :no-confirm)
- (run-hooks 'modus-themes-after-load-theme-hook))
+ (run-hooks 'modus-themes-after-load-theme-hook)
+ theme)
(defun modus-themes--retrieve-palette-value (color palette)
"Return COLOR from PALETTE.
@@ -1183,14 +1320,19 @@ symbol, which is safe when used as a face attribute's
value."
(defvar modus-themes--select-theme-history nil
"Minibuffer history of `modus-themes--select-prompt'.")
+(defun modus-themes--annotate-theme (theme)
+ "Return completion annotation for THEME."
+ (format " -- %s" (car (split-string (get (intern theme)
'theme-documentation) "\\."))))
+
(defun modus-themes--select-prompt ()
"Minibuffer prompt to select a Modus theme."
- (intern
- (completing-read
- "Select Modus theme: "
- (modus-themes--list-known-themes)
- nil t nil
- 'modus-themes--select-theme-history)))
+ (let ((completion-extra-properties `(:annotation-function
,#'modus-themes--annotate-theme)))
+ (intern
+ (completing-read
+ "Select Modus theme: "
+ (modus-themes--list-known-themes)
+ nil t nil
+ 'modus-themes--select-theme-history))))
;;;###autoload
(defun modus-themes-select (theme)
@@ -1278,7 +1420,8 @@ color mappings of the palette, instead of its named
colors."
(defun modus-themes--list-colors-prompt ()
"Prompt for Modus theme.
Helper function for `modus-themes-list-colors'."
- (let ((def (format "%s" (modus-themes--current-theme))))
+ (let ((def (format "%s" (modus-themes--current-theme)))
+ (completion-extra-properties `(:annotation-function
,#'modus-themes--annotate-theme)))
(completing-read
(format "Use palette from theme [%s]: " def)
(modus-themes--list-known-themes) nil t nil
@@ -1544,9 +1687,9 @@ FG and BG are the main colors."
`(modus-themes-intense-cyan ((,c :background ,bg-cyan-intense :foreground
,fg-main)))
;;;;; mark indicators
;; color combinations intended for Dired, Ibuffer, or equivalent
- `(modus-themes-mark-alt ((,c :inherit bold :background ,bg-yellow-subtle
:foreground ,yellow)))
- `(modus-themes-mark-del ((,c :inherit bold :background ,bg-red-subtle
:foreground ,red)))
- `(modus-themes-mark-sel ((,c :inherit bold :background ,bg-cyan-subtle
:foreground ,cyan)))
+ `(modus-themes-mark-alt ((,c :inherit bold :background ,bg-mark-other
:foreground ,fg-mark-other)))
+ `(modus-themes-mark-del ((,c :inherit bold :background ,bg-mark-delete
:foreground ,fg-mark-delete)))
+ `(modus-themes-mark-sel ((,c :inherit bold :background ,bg-mark-select
:foreground ,fg-mark-select)))
;;;;; heading levels
;; styles for regular headings used in Org, Markdown, Info, etc.
`(modus-themes-heading-0 ((,c ,@(modus-themes--heading 0 fg-heading-0
bg-heading-0 overline-heading-0))))
@@ -1562,6 +1705,10 @@ FG and BG are the main colors."
`(modus-themes-lang-error ((,c :underline (:style wave :color
,underline-err))))
`(modus-themes-lang-note ((,c :underline (:style wave :color
,underline-note))))
`(modus-themes-lang-warning ((,c :underline (:style wave :color
,underline-warning))))
+;;;;; prominent semantic notes
+ `(modus-themes-prominent-error ((,c :background ,bg-prominent-err
:foreground ,fg-prominent-err)))
+ `(modus-themes-prominent-note ((,c :background ,bg-prominent-note
:foreground ,fg-prominent-note)))
+ `(modus-themes-prominent-warning ((,c :background ,bg-prominent-warning
:foreground ,fg-prominent-warning)))
;;;;; markup
`(modus-themes-prose-code ((,c :inherit modus-themes-fixed-pitch
:foreground ,prose-code)))
`(modus-themes-prose-macro ((,c :inherit modus-themes-fixed-pitch
:foreground ,prose-macro)))
@@ -1581,7 +1728,10 @@ FG and BG are the main colors."
`(modus-themes-slant ((,c ,@(modus-themes--slant))))
`(modus-themes-ui-variable-pitch ((,c
,@(modus-themes--variable-pitch-ui))))
;;;;; other custom faces
- `(modus-themes-button ((,c :inherit variable-pitch :box ,border
:background ,bg-button-active :foreground ,fg-button-active)))
+ `(modus-themes-button ((,c :inherit variable-pitch
+ :box (:line-width 1 :color ,border :style
released-button)
+ :background ,bg-button-active
+ :foreground ,fg-button-active)))
`(modus-themes-key-binding ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,keybind)))
`(modus-themes-prompt ((,c ,@(modus-themes--prompt fg-prompt bg-prompt))))
`(modus-themes-reset-soft ((,c :background ,bg-main :foreground ,fg-main
@@ -1592,9 +1742,9 @@ FG and BG are the main colors."
`(default ((,c :background ,bg-main :foreground ,fg-main)))
`(cursor ((,c :background ,cursor)))
`(fringe ((,c :background ,fringe :foreground ,fg-main)))
- `(menu ((,c :background ,bg-tab-bar :foreground ,fg-main)))
- `(scroll-bar ((,c :background ,fringe :foreground ,fg-dim)))
- `(tool-bar ((,c :background ,bg-tab-bar :foreground ,fg-main)))
+ `(menu ((,c :background ,bg-dim :foreground ,fg-main)))
+ `(scroll-bar ((,c :background ,bg-dim :foreground ,fg-dim)))
+ `(tool-bar ((,c :background ,bg-dim :foreground ,fg-main)))
`(vertical-border ((,c :foreground ,border)))
;;;;; basic and/or ungrouped styles
`(bold ((,c :weight bold)))
@@ -1625,8 +1775,8 @@ FG and BG are the main colors."
`(minibuffer-prompt ((,c :inherit modus-themes-prompt)))
`(mm-command-output ((,c :foreground ,mail-part)))
`(mm-uu-extract ((,c :foreground ,mail-part)))
- `(next-error ((,c :inherit modus-themes-subtle-red :extend t)))
- `(pgtk-im-0 ((,c :inherit modus-themes-intense-cyan)))
+ `(next-error ((,c :inherit modus-themes-prominent-error :extend t)))
+ `(pgtk-im-0 ((,c :inherit modus-themes-prominent-note)))
`(read-multiple-choice-face ((,c :inherit (bold modus-themes-mark-alt))))
`(rectangle-preview ((,c :inherit secondary-selection)))
`(region ((,c :background ,bg-region :foreground ,fg-region)))
@@ -1634,7 +1784,7 @@ FG and BG are the main colors."
`(separator-line ((,c :underline ,bg-active)))
`(shadow ((,c :foreground ,fg-dim)))
`(success ((,c :inherit bold :foreground ,info)))
- `(trailing-whitespace ((,c :background ,bg-red-intense)))
+ `(trailing-whitespace ((,c :background ,bg-space-err)))
`(warning ((,c :inherit bold :foreground ,warning)))
;;;;; buttons, links, widgets
`(button ((,c :background ,bg-link :foreground ,fg-link :underline
,underline-link)))
@@ -1738,7 +1888,7 @@ FG and BG are the main colors."
`(anzu-match-3 ((,c :inherit modus-themes-subtle-yellow)))
`(anzu-mode-line ((,c :inherit bold)))
`(anzu-mode-line-no-match ((,c :inherit error)))
- `(anzu-replace-highlight ((,c :inherit modus-themes-intense-red :underline
t)))
+ `(anzu-replace-highlight ((,c :inherit modus-themes-prominent-error
:underline t)))
`(anzu-replace-to ((,c :inherit modus-themes-search-current)))
;;;;; auctex and Tex
`(font-latex-bold-face ((,c :inherit bold)))
@@ -1775,12 +1925,12 @@ FG and BG are the main colors."
`(aw-background-face ((,c :foreground "gray50")))
`(aw-key-face ((,c :inherit modus-themes-key-binding)))
`(aw-leading-char-face ((,c :inherit (bold modus-themes-reset-soft)
:height 1.5 :foreground ,red-intense)))
- `(aw-minibuffer-leading-char-face ((,c :inherit (modus-themes-intense-red
bold))))
+ `(aw-minibuffer-leading-char-face ((,c :inherit modus-themes-key-binding)))
`(aw-mode-line-face ((,c :inherit bold)))
;;;;; binder
- `(binder-sidebar-highlight ((,c :inherit modus-themes-subtle-cyan)))
+ `(binder-sidebar-highlight ((,c :inherit modus-themes-hl-line)))
`(binder-sidebar-marked ((,c :inherit modus-themes-mark-sel)))
- `(binder-sidebar-missing ((,c :inherit modus-themes-subtle-red)))
+ `(binder-sidebar-missing ((,c :inherit modus-themes-mark-del)))
`(binder-sidebar-tags ((,c :foreground ,variable)))
;;;;; bongo
`(bongo-album-title (( )))
@@ -1807,13 +1957,13 @@ FG and BG are the main colors."
`(calendar-today ((,c :inherit bold :underline t)))
`(calendar-weekday-header ((,c :foreground ,date-weekday)))
`(calendar-weekend-header ((,c :foreground ,date-weekend)))
- `(diary ((,c :background ,bg-dim :foreground ,accent-0)))
- `(diary-anniversary ((,c :foreground ,accent-1)))
+ `(diary ((,c :foreground ,date-common)))
+ `(diary-anniversary ((,c :foreground ,date-holiday)))
`(diary-time ((,c :foreground ,date-common)))
`(holiday ((,c :foreground ,date-holiday)))
;;;;; calibredb
;; NOTE 2022-12-27: Calibredb needs to be reviewed. I had to
- ;; change the applicable colours for the transition to
+ ;; change the applicable colors for the transition to
;; modus-themes version 4, but I cannot test this currently (it
;; depends on an external program).
`(calibredb-archive-face ((,c :foreground ,accent-3)))
@@ -1890,7 +2040,7 @@ FG and BG are the main colors."
;;;;; clojure-mode
`(clojure-keyword-face ((,c :inherit font-lock-builtin-face)))
;;;;; column-enforce-mode
- `(column-enforce-face ((,c :inherit modus-themes-intense-yellow)))
+ `(column-enforce-face ((,c :inherit modus-themes-prominent-error)))
;;;;; company-mode
`(company-echo-common ((,c :inherit modus-themes-completion-match-0)))
`(company-preview ((,c :background ,bg-dim :foreground ,fg-dim)))
@@ -2051,7 +2201,7 @@ FG and BG are the main colors."
;;;;; dired-git-info
`(dgi-commit-message-face ((,c :foreground ,docstring)))
;;;;; dired-narrow
- `(dired-narrow-blink ((,c :inherit (modus-themes-subtle-cyan bold))))
+ `(dired-narrow-blink ((,c :inherit (modus-themes-prominent-warning bold))))
;;;;; dired-subtree
;; remove backgrounds from dired-subtree faces, else they break
;; dired-{flagged,marked} and any other face that sets a background
@@ -2089,6 +2239,12 @@ FG and BG are the main colors."
`(diredfl-symlink ((,c :inherit dired-symlink)))
`(diredfl-tagged-autofile-name ((,c :inherit (diredfl-autofile-name
dired-marked))))
`(diredfl-write-priv ((,c :foreground ,accent-0)))
+;;;;; disk-usage
+ `(disk-usage-inaccessible ((,c :inherit error)))
+ `(disk-usage-percent ((,c :foreground ,accent-0)))
+ `(disk-usage-size ((,c :foreground ,accent-1)))
+ `(disk-usage-symlink ((,c :inherit dired-symlink)))
+ `(disk-usage-symlink-directory ((,c :inherit dired-symlink)))
;;;;; display-fill-column-indicator-mode
`(fill-column-indicator ((,c :height 1 :background ,bg-active :foreground
,bg-active)))
;;;;; doom-modeline
@@ -2128,7 +2284,7 @@ FG and BG are the main colors."
`(doom-modeline-warning ((,c :inherit warning)))
;;;;; ediff
`(ediff-current-diff-A ((,c :background ,bg-removed :foreground
,fg-removed)))
- `(ediff-current-diff-Ancestor ((,c :background ,bg-region))) ; TODO
2022-11-29: Needs review
+ `(ediff-current-diff-Ancestor ((,c :background ,bg-region)))
`(ediff-current-diff-B ((,c :background ,bg-added :foreground ,fg-added)))
`(ediff-current-diff-C ((,c :background ,bg-changed :foreground
,fg-changed)))
`(ediff-even-diff-A ((,c :background ,bg-diff-context)))
@@ -2152,6 +2308,7 @@ FG and BG are the main colors."
`(ein:notification-tab-normal ((,c :underline t)))
;;;;; eglot
`(eglot-mode-line ((,c :inherit modus-themes-bold :foreground
,modeline-info)))
+ `(eglot-diagnostic-tag-unnecessary-face ((,c :inherit
modus-themes-lang-note)))
;;;;; el-search
`(el-search-highlight-in-prompt-face ((,c :inherit italic)))
`(el-search-match ((,c :inherit modus-themes-search-current)))
@@ -2236,7 +2393,7 @@ FG and BG are the main colors."
`(erc-button ((,c :inherit button)))
`(erc-command-indicator-face ((,c :inherit bold :foreground ,accent-3)))
`(erc-current-nick-face ((,c :inherit match)))
- `(erc-dangerous-host-face ((,c :inherit modus-themes-intense-red)))
+ `(erc-dangerous-host-face ((,c :inherit error)))
`(erc-direct-msg-face ((,c :inherit shadow)))
`(erc-error-face ((,c :inherit error)))
`(erc-fool-face ((,c :inherit shadow)))
@@ -2254,8 +2411,8 @@ FG and BG are the main colors."
`(erc-timestamp-face ((,c :foreground ,date-common)))
`(erc-underline-face ((,c :underline t)))
;;;;; ert
- `(ert-test-result-expected ((,c :inherit modus-themes-intense-cyan)))
- `(ert-test-result-unexpected ((,c :inherit modus-themes-intense-red)))
+ `(ert-test-result-expected ((,c :inherit modus-themes-prominent-note)))
+ `(ert-test-result-unexpected ((,c :inherit modus-themes-prominent-error)))
;;;;; eshell
`(eshell-ls-archive ((,c :foreground ,accent-2)))
`(eshell-ls-backup ((,c :inherit shadow)))
@@ -2277,7 +2434,7 @@ FG and BG are the main colors."
`(evil-ex-info ((,c :inherit font-lock-type-face)))
`(evil-ex-lazy-highlight ((,c :inherit modus-themes-search-lazy)))
`(evil-ex-search ((,c :inherit modus-themes-search-current)))
- `(evil-ex-substitute-matches ((,c :inherit modus-themes-intense-yellow
:underline t)))
+ `(evil-ex-substitute-matches ((,c :inherit modus-themes-prominent-error
:underline t)))
`(evil-ex-substitute-replacement ((,c :inherit
modus-themes-search-current)))
;;;;; eww
`(eww-invalid-certificate ((,c :foreground ,err)))
@@ -2292,9 +2449,9 @@ FG and BG are the main colors."
`(eyebrowse-mode-line-active ((,c :inherit mode-line-emphasis)))
;;;;; flycheck
`(flycheck-error ((,c :inherit modus-themes-lang-error)))
- `(flycheck-fringe-error ((,c :inherit modus-themes-intense-red)))
- `(flycheck-fringe-info ((,c :inherit modus-themes-intense-cyan)))
- `(flycheck-fringe-warning ((,c :inherit modus-themes-intense-yellow)))
+ `(flycheck-fringe-error ((,c :inherit modus-themes-prominent-error)))
+ `(flycheck-fringe-info ((,c :inherit modus-themes-prominent-note)))
+ `(flycheck-fringe-warning ((,c :inherit modus-themes-prominent-warning)))
`(flycheck-info ((,c :inherit modus-themes-lang-note)))
`(flycheck-warning ((,c :inherit modus-themes-lang-warning)))
;;;;; flycheck-color-mode-line
@@ -2310,9 +2467,16 @@ FG and BG are the main colors."
`(flycheck-indicator-success ((,c :inherit success)))
`(flycheck-indicator-warning ((,c :inherit warning)))
;;;;; flymake
+ `(flymake-end-of-line-diagnostics-face ((,c :inherit modus-themes-slant
:height 0.85 :box ,border)))
`(flymake-error ((,c :inherit modus-themes-lang-error)))
+ `(flymake-error-echo ((,c :inherit error)))
+ `(flymake-error-echo-at-eol ((,c :inherit
flymake-end-of-line-diagnostics-face :foreground ,err)))
`(flymake-note ((,c :inherit modus-themes-lang-note)))
+ `(flymake-note-echo ((,c :inherit success)))
+ `(flymake-note-echo-at-eol ((,c :inherit
flymake-end-of-line-diagnostics-face :foreground ,info)))
`(flymake-warning ((,c :inherit modus-themes-lang-warning)))
+ `(flymake-warning-echo ((,c :inherit warning)))
+ `(flymake-note-echo-at-eol ((,c :inherit
flymake-end-of-line-diagnostics-face :foreground ,warning)))
;;;;; flyspell
`(flyspell-duplicate ((,c :inherit modus-themes-lang-warning)))
`(flyspell-incorrect ((,c :inherit modus-themes-lang-error)))
@@ -2531,16 +2695,16 @@ FG and BG are the main colors."
`(ido-subdir ((,c :foreground ,accent-0)))
`(ido-virtual ((,c :foreground ,accent-1)))
;;;;; iedit
- `(iedit-occurrence ((,c :inherit modus-themes-intense-blue)))
- `(iedit-read-only-occurrence ((,c :inherit modus-themes-intense-yellow)))
+ `(iedit-occurrence ((,c :inherit modus-themes-search-lazy)))
+ `(iedit-read-only-occurrence ((,c :inherit modus-themes-search-current)))
;;;;; iflipb
`(iflipb-current-buffer-face ((,c :inherit bold :foreground ,name)))
`(iflipb-other-buffer-face ((,c :inherit shadow)))
;;;;; image-dired
- `(image-dired-thumb-flagged ((,c :inherit modus-themes-intense-red)))
+ `(image-dired-thumb-flagged ((,c :inherit modus-themes-mark-del :box
(:line-width -3))))
`(image-dired-thumb-header-file-name ((,c :inherit bold)))
`(image-dired-thumb-header-file-size ((,c :foreground ,constant)))
- `(image-dired-thumb-mark ((,c :inherit modus-themes-intense-cyan)))
+ `(image-dired-thumb-mark ((,c :inherit modus-themes-mark-sel :box
(:line-width -3))))
;;;;; imenu-list
`(imenu-list-entry-face-0 ((,c :foreground ,fg-heading-0)))
`(imenu-list-entry-face-1 ((,c :foreground ,fg-heading-1)))
@@ -2564,7 +2728,7 @@ FG and BG are the main colors."
`(info-header-xref ((,c :foreground ,fg-link)))
`(info-index-match ((,c :inherit match)))
`(info-menu-header ((,c :inherit bold)))
- `(info-menu-star ((,c :foreground ,red-intense)))
+ `(info-menu-star ((,c :inherit error)))
`(info-node ((,c :inherit bold)))
`(info-title-1 ((,c :inherit modus-themes-heading-1)))
`(info-title-2 ((,c :inherit modus-themes-heading-2)))
@@ -2613,12 +2777,12 @@ FG and BG are the main colors."
`(ioccur-title-face ((,c :inherit bold :foreground ,name)))
;;;;; isearch, occur, and the like
`(isearch ((,c :inherit modus-themes-search-current)))
- `(isearch-fail ((,c :inherit modus-themes-intense-red)))
+ `(isearch-fail ((,c :inherit modus-themes-prominent-error)))
`(isearch-group-1 ((,c :inherit modus-themes-intense-blue)))
`(isearch-group-2 ((,c :inherit modus-themes-intense-magenta)))
`(lazy-highlight ((,c :inherit modus-themes-search-lazy)))
`(match ((,c :background ,bg-magenta-subtle :foreground ,fg-main)))
- `(query-replace ((,c :inherit modus-themes-intense-red)))
+ `(query-replace ((,c :inherit modus-themes-prominent-error)))
;;;;; ivy
`(ivy-action ((,c :inherit modus-themes-key-binding)))
`(ivy-confirm-face ((,c :inherit success)))
@@ -2644,6 +2808,10 @@ FG and BG are the main colors."
`(jiralib-link-filter-face ((,c :underline t)))
`(jiralib-link-issue-face ((,c :underline t)))
`(jiralib-link-project-face ((,c :underline t)))
+;;;;; jit-spell
+ `(jit-spell-misspelling ((,c :inherit modus-themes-lang-error)))
+;;;;; jinx
+ `(jinx-misspelled ((,c :inherit modus-themes-lang-warning)))
;;;;; journalctl-mode
`(journalctl-error-face ((,c :inherit error)))
`(journalctl-finished-face ((,c :inherit success)))
@@ -3044,6 +3212,7 @@ FG and BG are the main colors."
`(orderless-match-face-2 ((,c :inherit modus-themes-completion-match-2)))
`(orderless-match-face-3 ((,c :inherit modus-themes-completion-match-3)))
;;;;; org
+ `(org-agenda-calendar-daterange ((,c :foreground ,date-range)))
`(org-agenda-calendar-event ((,c :foreground ,date-event)))
`(org-agenda-calendar-sexp ((,c :inherit (modus-themes-slant
org-agenda-calendar-event))))
`(org-agenda-clocking ((,c :inherit modus-themes-mark-alt)))
@@ -3211,6 +3380,24 @@ FG and BG are the main colors."
`(persp-face-lighter-nil-persp ((,c :inherit bold)))
;;;;; perspective
`(persp-selected-face ((,c :inherit bold :foreground ,name)))
+;;;;; proced
+ `(proced-cpu ((,c :foreground ,keyword)))
+ `(proced-emacs-pid ((,c :foreground ,identifier :underline t)))
+ `(proced-executable ((,c :foreground ,name)))
+ `(proced-interruptible-sleep-status-code ((,c :inherit shadow)))
+ `(proced-mem ((,c :foreground ,type)))
+ `(proced-memory-high-usage ((,c :foreground ,err)))
+ `(proced-memory-low-usage ((,c :foreground ,info)))
+ `(proced-memory-medium-usage ((,c :foreground ,warning)))
+ `(proced-pgrp ((,c :inherit proced-pid)))
+ `(proced-pid ((,c :foreground ,identifier)))
+ `(proced-ppid ((,c :inherit proced-pid)))
+ `(proced-run-status-code ((,c :inherit success)))
+ `(proced-sess ((,c :inherit proced-pid)))
+ `(proced-session-leader-pid ((,c :inherit bold :foreground ,identifier)))
+ `(proced-time-colon (( )))
+ `(proced-uninterruptible-sleep-status-code ((,c :inherit error)))
+ `(proced-user (( )))
;;;;; popup
`(popup-face ((,c :background ,bg-inactive :foreground ,fg-main)))
`(popup-isearch-match ((,c :inherit modus-themes-search-current)))
@@ -3229,13 +3416,13 @@ FG and BG are the main colors."
`(powerline-inactive2 ((,c :inherit mode-line-inactive)))
;;;;; powerline-evil
`(powerline-evil-base-face ((,c :background ,fg-main :foreground
,bg-main)))
- `(powerline-evil-emacs-face ((,c :inherit modus-themes-intense-magenta)))
- `(powerline-evil-insert-face ((,c :inherit modus-themes-intense-green)))
- `(powerline-evil-motion-face ((,c :inherit modus-themes-intense-blue)))
- `(powerline-evil-normal-face ((,c :background ,fg-alt :foreground
,bg-main)))
- `(powerline-evil-operator-face ((,c :inherit modus-themes-intense-yellow)))
- `(powerline-evil-replace-face ((,c :inherit modus-themes-intense-red)))
- `(powerline-evil-visual-face ((,c :inherit modus-themes-intense-cyan)))
+ `(powerline-evil-emacs-face ((,c :inherit bold :background ,bg-main)))
+ `(powerline-evil-insert-face ((,c :inherit success :background ,bg-main)))
+ `(powerline-evil-motion-face ((,c :inherit italic :background ,bg-main)))
+ `(powerline-evil-normal-face ((,c :background ,bg-main :foreground
,fg-alt)))
+ `(powerline-evil-operator-face ((,c :inherit warning :background
,bg-main)))
+ `(powerline-evil-replace-face ((,c :inherit error :background ,bg-main)))
+ `(powerline-evil-visual-face ((,c :inherit bold :background ,bg-main)))
;;;;; prescient
`(prescient-primary-highlight ((,c :inherit
modus-themes-completion-match-0)))
`(prescient-secondary-highlight ((,c :inherit
modus-themes-completion-match-1)))
@@ -3258,7 +3445,7 @@ FG and BG are the main colors."
`(quick-peek-border-face ((,c :background ,border :height 1)))
`(quick-peek-padding-face ((,c :background ,bg-inactive :height 0.15)))
;;;;; rainbow-delimiters
- `(rainbow-delimiters-base-error-face ((,c :inherit
modus-themes-subtle-red)))
+ `(rainbow-delimiters-base-error-face ((,c :inherit
modus-themes-prominent-error)))
`(rainbow-delimiters-base-face ((,c :foreground ,fg-main)))
`(rainbow-delimiters-depth-1-face ((,c :foreground ,rainbow-0)))
`(rainbow-delimiters-depth-2-face ((,c :foreground ,rainbow-1)))
@@ -3269,8 +3456,8 @@ FG and BG are the main colors."
`(rainbow-delimiters-depth-7-face ((,c :foreground ,rainbow-6)))
`(rainbow-delimiters-depth-8-face ((,c :foreground ,rainbow-7)))
`(rainbow-delimiters-depth-9-face ((,c :foreground ,rainbow-8)))
- `(rainbow-delimiters-mismatched-face ((,c :inherit (bold
modus-themes-intense-yellow))))
- `(rainbow-delimiters-unmatched-face ((,c :inherit (bold
modus-themes-intense-red))))
+ `(rainbow-delimiters-mismatched-face ((,c :inherit (bold
modus-themes-prominent-warning))))
+ `(rainbow-delimiters-unmatched-face ((,c :inherit (bold
modus-themes-prominent-error))))
;;;;; rcirc
`(rcirc-bright-nick ((,c :inherit bold :foreground ,accent-2)))
`(rcirc-dim-nick ((,c :inherit shadow)))
@@ -3316,6 +3503,13 @@ FG and BG are the main colors."
;;;;; rmail
`(rmail-header-name ((,c :inherit bold)))
`(rmail-highlight ((,c :inherit bold :foreground ,mail-other)))
+;;;;; rst-mode
+ `(rst-level-1 ((,c :inherit modus-themes-heading-1)))
+ `(rst-level-2 ((,c :inherit modus-themes-heading-2)))
+ `(rst-level-3 ((,c :inherit modus-themes-heading-3)))
+ `(rst-level-4 ((,c :inherit modus-themes-heading-4)))
+ `(rst-level-5 ((,c :inherit modus-themes-heading-5)))
+ `(rst-level-6 ((,c :inherit modus-themes-heading-6)))
;;;;; ruler-mode
`(ruler-mode-column-number ((,c :inherit ruler-mode-default)))
`(ruler-mode-comment-column ((,c :inherit ruler-mode-default :foreground
,red)))
@@ -3342,7 +3536,7 @@ FG and BG are the main colors."
;;;;; show-paren-mode
`(show-paren-match ((,c :background ,bg-paren-match :foreground ,fg-main
:underline ,underline-paren-match)))
`(show-paren-match-expression ((,c :background ,bg-paren-expression)))
- `(show-paren-mismatch ((,c :inherit modus-themes-intense-red)))
+ `(show-paren-mismatch ((,c :inherit modus-themes-prominent-error)))
;;;;; shr
`(shr-abbreviation ((,c :inherit modus-themes-lang-note)))
`(shr-code ((,c :inherit modus-themes-prose-verbatim)))
@@ -3352,7 +3546,7 @@ FG and BG are the main colors."
`(shr-h4 ((,c :inherit modus-themes-heading-4)))
`(shr-h5 ((,c :inherit modus-themes-heading-5)))
`(shr-h6 ((,c :inherit modus-themes-heading-6)))
- `(shr-selected-link ((,c :inherit modus-themes-subtle-red)))
+ `(shr-selected-link ((,c :inherit modus-themes-mark-sel)))
;;;;; side-notes
`(side-notes ((,c :background ,bg-dim :foreground ,fg-dim)))
;;;;; sieve-mode
@@ -3404,7 +3598,7 @@ FG and BG are the main colors."
`(sml/name-filling ((,c :inherit warning)))
`(sml/not-modified ((,c :inherit sml/global)))
`(sml/numbers-separator ((,c :inherit sml/global)))
- `(sml/outside-modified ((,c :inherit modus-themes-intense-red)))
+ `(sml/outside-modified ((,c :inherit modus-themes-prominent-error)))
`(sml/position-percentage ((,c :inherit sml/global)))
`(sml/prefix ((,c :foreground ,fg-alt)))
`(sml/process ((,c :inherit sml/prefix)))
@@ -3418,7 +3612,7 @@ FG and BG are the main colors."
;;;;; smerge
`(smerge-base ((,c :inherit diff-changed)))
`(smerge-lower ((,c :inherit diff-added)))
- `(smerge-markers ((,c :inherit diff-heading)))
+ `(smerge-markers ((,c :inherit diff-header)))
`(smerge-refined-added ((,c :inherit diff-refine-added)))
`(smerge-refined-changed (()))
`(smerge-refined-removed ((,c :inherit diff-refine-removed)))
@@ -3533,7 +3727,7 @@ FG and BG are the main colors."
;; have to do this with `eldoc-highlight-function-argument'.
(list 'transient-argument `((,c :inherit (bold modus-themes-mark-alt))))
`(transient-blue ((,c :inherit bold :foreground ,blue)))
- `(transient-disabled-suffix ((,c :inherit modus-themes-intense-red)))
+ `(transient-disabled-suffix ((,c :inherit modus-themes-mark-del)))
`(transient-enabled-suffix ((,c :inherit modus-themes-subtle-cyan)))
`(transient-heading ((,c :inherit bold :foreground ,fg-main)))
`(transient-inactive-argument ((,c :inherit shadow)))
@@ -3653,19 +3847,22 @@ FG and BG are the main colors."
`(vr/match-1 ((,c :inherit modus-themes-intense-yellow)))
`(vr/match-separator-face ((,c :inherit bold :background ,bg-active)))
;;;;; vterm
- `(vterm-color-black ((,c :background "gray35" :foreground "gray35")))
- `(vterm-color-blue ((,c :background ,blue :foreground ,blue)))
- `(vterm-color-cyan ((,c :background ,cyan :foreground ,cyan)))
+ `(vterm-color-black ((,c :background "gray35" :foreground "black")))
+ `(vterm-color-blue ((,c :background ,blue-warmer :foreground ,blue)))
+ `(vterm-color-cyan ((,c :background ,cyan-cooler :foreground ,cyan)))
`(vterm-color-default ((,c :background ,bg-main :foreground ,fg-main)))
- `(vterm-color-green ((,c :background ,green :foreground ,green)))
+ `(vterm-color-green ((,c :background ,green-cooler :foreground ,green)))
`(vterm-color-inverse-video ((,c :background ,bg-main :inverse-video t)))
- `(vterm-color-magenta ((,c :background ,magenta :foreground ,magenta)))
- `(vterm-color-red ((,c :background ,red :foreground ,red)))
+ `(vterm-color-magenta ((,c :background ,magenta-cooler :foreground
,magenta)))
+ `(vterm-color-red ((,c :background ,red-warmer :foreground ,red)))
`(vterm-color-underline ((,c :underline t)))
- `(vterm-color-white ((,c :background "gray65" :foreground "gray65")))
- `(vterm-color-yellow ((,c :background ,yellow :foreground ,yellow)))
+ `(vterm-color-white ((,c :background "white" :foreground "gray65")))
+ `(vterm-color-yellow ((,c :background ,yellow-warmer :foreground ,yellow)))
;;;;; vundo
- `(vundo-highlight ((,c :inherit (bold vundo-node) :foreground
,red-intense)))
+ `(vundo-default ((,c :inherit shadow)))
+ `(vundo-highlight ((,c :inherit (bold vundo-node) :foreground ,red)))
+ `(vundo-last-saved ((,c :inherit (bold vundo-node) :foreground ,blue)))
+ `(vundo-saved ((,c :inherit vundo-node :foreground ,blue-intense)))
;;;;; wcheck-mode
`(wcheck-default-face ((,c :foreground ,red :underline t)))
;;;;; web-mode
@@ -3697,7 +3894,7 @@ FG and BG are the main colors."
`(web-mode-current-column-highlight-face ((,c :background ,bg-inactive)))
`(web-mode-current-element-highlight-face ((,c :inherit
modus-themes-cyan-subtle)))
`(web-mode-doctype-face ((,c :inherit font-lock-doc-face)))
- `(web-mode-error-face ((,c :inherit modus-themes-intense-red)))
+ `(web-mode-error-face ((,c :inherit error)))
`(web-mode-filter-face ((,c :inherit font-lock-function-name-face)))
`(web-mode-folded-face ((,c :underline t)))
`(web-mode-function-call-face ((,c :inherit font-lock-function-name-face)))
@@ -3735,7 +3932,7 @@ FG and BG are the main colors."
`(web-mode-type-face ((,c :inherit font-lock-builtin-face)))
`(web-mode-underline-face ((,c :underline t)))
`(web-mode-variable-name-face ((,c :inherit font-lock-variable-name-face)))
- `(web-mode-warning-face ((,c :inherit font-lock-warning-face)))
+ `(web-mode-warning-face ((,c :inherit warning)))
`(web-mode-whitespace-face ((,c :background ,bg-inactive)))
;;;;; wgrep
`(wgrep-delete-face ((,c :inherit warning)))
@@ -3747,7 +3944,7 @@ FG and BG are the main colors."
`(which-func ((,c :inherit bold :foreground ,modeline-info)))
;;;;; which-key
`(which-key-command-description-face ((,c :foreground ,fg-main)))
- `(which-key-group-description-face ((,c :foreground ,err)))
+ `(which-key-group-description-face ((,c :foreground ,keyword)))
`(which-key-highlighted-command-face ((,c :foreground ,warning :underline
t)))
`(which-key-key-face ((,c :inherit modus-themes-key-binding)))
`(which-key-local-map-description-face ((,c :foreground ,fg-main)))
@@ -3755,24 +3952,24 @@ FG and BG are the main colors."
`(which-key-separator-face ((,c :inherit shadow)))
`(which-key-special-key-face ((,c :inherit error)))
;;;;; whitespace-mode
- `(whitespace-big-indent ((,c :inherit modus-themes-subtle-red)))
+ `(whitespace-big-indent ((,c :background ,bg-space-err)))
`(whitespace-empty ((,c :inherit modus-themes-intense-magenta)))
- `(whitespace-hspace ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(whitespace-indentation ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(whitespace-line ((,c :inherit modus-themes-subtle-yellow)))
- `(whitespace-newline ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(whitespace-space ((,c :background ,bg-dim :foreground ,fg-dim)))
+ `(whitespace-hspace ((,c :background ,bg-space :foreground ,fg-space)))
+ `(whitespace-indentation ((,c :background ,bg-space :foreground
,fg-space)))
+ `(whitespace-line ((,c :background ,bg-space :foreground ,warning)))
+ `(whitespace-newline ((,c :background ,bg-space :foreground ,fg-space)))
+ `(whitespace-space ((,c :background ,bg-space :foreground ,fg-space)))
`(whitespace-space-after-tab ((,c :inherit modus-themes-subtle-magenta)))
`(whitespace-space-before-tab ((,c :inherit modus-themes-subtle-cyan)))
- `(whitespace-tab ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(whitespace-trailing ((,c :inherit modus-themes-intense-red)))
+ `(whitespace-tab ((,c :background ,bg-space :foreground ,fg-space)))
+ `(whitespace-trailing ((,c :background ,bg-space-err)))
;;;;; window-divider-mode
`(window-divider ((,c :foreground ,border)))
`(window-divider-first-pixel ((,c :foreground ,bg-inactive)))
`(window-divider-last-pixel ((,c :foreground ,bg-inactive)))
;;;;; widget
`(widget-button ((,c :inherit bold :foreground ,fg-link)))
- `(widget-button-pressed ((,c :inherit widget-buton :foreground
,fg-link-visited)))
+ `(widget-button-pressed ((,c :inherit widget-button :foreground
,fg-link-visited)))
`(widget-documentation ((,c :inherit font-lock-doc-face)))
`(widget-field ((,c :background ,bg-inactive :foreground ,fg-main :extend
nil)))
`(widget-inactive ((,c :background ,bg-button-inactive :foreground
,fg-button-inactive)))
@@ -3792,7 +3989,7 @@ FG and BG are the main colors."
`(xah-elisp-command-face ((,c :inherit font-lock-type-face)))
`(xah-elisp-dollar-symbol ((,c :inherit font-lock-variable-name-face)))
;;;;; yaml-mode
- `(yaml-tab-face ((,c :inherit modus-themes-intense-red)))
+ `(yaml-tab-face ((,c :background ,bg-space-err)))
;;;;; yasnippet
`(yas-field-highlight-face ((,c :inherit highlight))))
"Face specs for use with `modus-themes-theme'.")
@@ -3809,9 +4006,9 @@ FG and BG are the main colors."
;;;; exwm
`(exwm-floating-border-color ,border)
;;;; flymake fringe indicators
- `(flymake-error-bitmap '(flymake-double-exclamation-mark
modus-themes-intense-red))
- `(flymake-warning-bitmap '(exclamation-mark modus-themes-intense-yellow))
- `(flymake-note-bitmap '(exclamation-mark modus-themes-intense-cyan))
+ `(flymake-error-bitmap '(flymake-double-exclamation-mark
modus-themes-prominent-error))
+ `(flymake-warning-bitmap '(exclamation-mark
modus-themes-prominent-warning))
+ `(flymake-note-bitmap '(exclamation-mark modus-themes-prominent-note))
;;;; highlight-changes
`(highlight-changes-colors nil)
`(highlight-changes-face-list '(success warning error bold bold-italic))
diff --git a/etc/themes/modus-vivendi-deuteranopia-theme.el
b/etc/themes/modus-vivendi-deuteranopia-theme.el
index 57241c59b96..60c3c62b38f 100644
--- a/etc/themes/modus-vivendi-deuteranopia-theme.el
+++ b/etc/themes/modus-vivendi-deuteranopia-theme.el
@@ -1,4 +1,4 @@
-;;; modus-vivendi-deuteranopia-theme.el --- Elegant, highly legible and
customizable dark theme -*- lexical-binding:t -*-
+;;; modus-vivendi-deuteranopia-theme.el --- Deuteranopia-optimized theme with
a black background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -43,7 +43,7 @@
(require 'modus-themes))
(deftheme modus-vivendi-deuteranopia
- "Elegant, highly legible and customizable dark theme.
+ "Deuteranopia-optimized theme with a black background.
This variant is optimized for users with red-green color
deficiency (deuteranopia). It conforms with the highest
legibility standard for color contrast between background and
@@ -76,9 +76,9 @@ standard).")
(green-cooler "#00c06f")
(green-faint "#88ca9f")
(green-intense "#44df44")
- (yellow "#d0bc00")
- (yellow-warmer "#fec43f")
- (yellow-cooler "#dfaf7a")
+ (yellow "#cabf00")
+ (yellow-warmer "#ffa00f")
+ (yellow-cooler "#d8af7a")
(yellow-faint "#d2b580")
(yellow-intense "#efef00")
(blue "#2fafff")
@@ -138,13 +138,13 @@ standard).")
;;; Graphs
- (bg-graph-red-0 "#705c3c")
- (bg-graph-red-1 "#504420")
- (bg-graph-green-0 "#4f666f")
- (bg-graph-green-1 "#204840")
+ (bg-graph-red-0 "#bf6000")
+ (bg-graph-red-1 "#733500")
+ (bg-graph-green-0 "#6fbf8f")
+ (bg-graph-green-1 "#2f5f4f")
(bg-graph-yellow-0 "#c1c00a")
- (bg-graph-yellow-1 "#6f6f00")
- (bg-graph-blue-0 "#2fafef")
+ (bg-graph-yellow-1 "#7f6640")
+ (bg-graph-blue-0 "#0f90ef")
(bg-graph-blue-1 "#1f2f8f")
(bg-graph-magenta-0 "#7f7f8e")
(bg-graph-magenta-1 "#4f4f5f")
@@ -222,13 +222,20 @@ standard).")
(identifier yellow-faint)
(err yellow-warmer)
- (warning yellow-cooler)
+ (warning yellow)
(info blue)
(underline-err yellow-intense)
(underline-warning magenta-faint)
(underline-note cyan)
+ (bg-prominent-err bg-yellow-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-magenta-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
(builtin magenta-warmer)
@@ -277,6 +284,7 @@ standard).")
(date-event fg-alt)
(date-holiday yellow-warmer)
(date-now blue-faint)
+ (date-range fg-alt)
(date-scheduled yellow-cooler)
(date-weekday cyan)
(date-weekend yellow-faint)
@@ -306,13 +314,22 @@ standard).")
(mail-cite-0 blue-warmer)
(mail-cite-1 yellow-cooler)
- (mail-cite-2 blue-cooler)
+ (mail-cite-2 cyan-faint)
(mail-cite-3 yellow)
(mail-part blue)
(mail-recipient blue)
(mail-subject yellow-warmer)
(mail-other cyan-faint)
+;;;; Mark mappings
+
+ (bg-mark-delete bg-yellow-subtle)
+ (fg-mark-delete yellow)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-magenta-subtle)
+ (fg-mark-other magenta-warmer)
+
;;;; Prompt mappings
(fg-prompt blue)
@@ -343,6 +360,12 @@ standard).")
(rainbow-7 blue-faint)
(rainbow-8 magenta-faint)
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-yellow-intense)
+
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
diff --git a/etc/themes/modus-vivendi-theme.el
b/etc/themes/modus-vivendi-theme.el
index 5012f8fb7f8..70dd0f78675 100644
--- a/etc/themes/modus-vivendi-theme.el
+++ b/etc/themes/modus-vivendi-theme.el
@@ -1,4 +1,4 @@
-;;; modus-vivendi-theme.el --- Elegant, highly legible and customizable dark
theme -*- lexical-binding:t -*-
+;;; modus-vivendi-theme.el --- Elegant, highly legible theme with a black
background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -43,7 +43,7 @@
(require 'modus-themes))
(deftheme modus-vivendi
- "Elegant, highly legible and customizable dark theme.
+ "Elegant, highly legible theme with a black background.
Conforms with the highest legibility standard for color contrast
between background and foreground in any given piece of text,
which corresponds to a minimum contrast in relative luminance of
@@ -138,10 +138,10 @@ which corresponds to a minimum contrast in relative
luminance of
(bg-graph-red-0 "#b52c2c")
(bg-graph-red-1 "#702020")
- (bg-graph-green-0 "#4fd100")
+ (bg-graph-green-0 "#0fed00")
(bg-graph-green-1 "#007800")
(bg-graph-yellow-0 "#f1e00a")
- (bg-graph-yellow-1 "#b08600")
+ (bg-graph-yellow-1 "#b08940")
(bg-graph-blue-0 "#2fafef")
(bg-graph-blue-1 "#1f2f8f")
(bg-graph-magenta-0 "#bf94fe")
@@ -227,6 +227,13 @@ which corresponds to a minimum contrast in relative
luminance of
(underline-warning yellow)
(underline-note cyan)
+ (bg-prominent-err bg-red-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-yellow-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
(builtin magenta-warmer)
@@ -273,8 +280,9 @@ which corresponds to a minimum contrast in relative
luminance of
(date-common cyan)
(date-deadline red)
(date-event fg-alt)
- (date-holiday magenta)
+ (date-holiday red-cooler)
(date-now fg-main)
+ (date-range fg-alt)
(date-scheduled yellow-warmer)
(date-weekday cyan)
(date-weekend red-faint)
@@ -311,6 +319,15 @@ which corresponds to a minimum contrast in relative
luminance of
(mail-subject magenta-warmer)
(mail-other magenta-faint)
+;;;; Mark mappings
+
+ (bg-mark-delete bg-red-subtle)
+ (fg-mark-delete red-cooler)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-yellow-subtle)
+ (fg-mark-other yellow)
+
;;;; Prompt mappings
(fg-prompt cyan-cooler)
@@ -341,6 +358,12 @@ which corresponds to a minimum contrast in relative
luminance of
(rainbow-7 blue-warmer)
(rainbow-8 magenta-warmer)
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-red-intense)
+
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
diff --git a/etc/themes/modus-vivendi-tinted-theme.el
b/etc/themes/modus-vivendi-tinted-theme.el
index 79e7fc9e3d8..b6443bdf6cc 100644
--- a/etc/themes/modus-vivendi-tinted-theme.el
+++ b/etc/themes/modus-vivendi-tinted-theme.el
@@ -1,4 +1,4 @@
-;;; modus-vivendi-tinted-theme.el --- Elegant, highly legible and customizable
dark theme -*- lexical-binding:t -*-
+;;; modus-vivendi-tinted-theme.el --- Elegant, highly legible theme with a
night sky background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -43,7 +43,7 @@
(require 'modus-themes))
(deftheme modus-vivendi-tinted
- "Elegant, highly legible and customizable dark theme.
+ "Elegant, highly legible theme with a night sky background.
Conforms with the highest legibility standard for color contrast
between background and foreground in any given piece of text,
which corresponds to a minimum contrast in relative luminance of
@@ -132,10 +132,10 @@ which corresponds to a minimum contrast in relative
luminance of
(bg-graph-red-0 "#b52c2c")
(bg-graph-red-1 "#702020")
- (bg-graph-green-0 "#4fd100")
+ (bg-graph-green-0 "#0fed00")
(bg-graph-green-1 "#007800")
(bg-graph-yellow-0 "#f1e00a")
- (bg-graph-yellow-1 "#b08600")
+ (bg-graph-yellow-1 "#b08940")
(bg-graph-blue-0 "#2fafef")
(bg-graph-blue-1 "#1f2f8f")
(bg-graph-magenta-0 "#bf94fe")
@@ -227,6 +227,13 @@ which corresponds to a minimum contrast in relative
luminance of
(underline-warning yellow)
(underline-note cyan)
+ (bg-prominent-err bg-red-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-yellow-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
+
;;;; Code mappings
(builtin magenta-warmer)
@@ -273,8 +280,9 @@ which corresponds to a minimum contrast in relative
luminance of
(date-common cyan)
(date-deadline red)
(date-event fg-alt)
- (date-holiday magenta)
+ (date-holiday red-cooler)
(date-now fg-main)
+ (date-range fg-alt)
(date-scheduled yellow-warmer)
(date-weekday cyan)
(date-weekend red-faint)
@@ -311,10 +319,20 @@ which corresponds to a minimum contrast in relative
luminance of
(mail-subject magenta-warmer)
(mail-other magenta-faint)
+;;;; Mark mappings
+
+ (bg-mark-delete bg-red-subtle)
+ (fg-mark-delete red-cooler)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-yellow-subtle)
+ (fg-mark-other yellow)
+
;;;; Prompt mappings
(fg-prompt cyan-cooler)
(bg-prompt unspecified)
+ (bg-space-err bg-red-intense)
;;;; Prose mappings
@@ -341,6 +359,11 @@ which corresponds to a minimum contrast in relative
luminance of
(rainbow-7 blue-warmer)
(rainbow-8 magenta-warmer)
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
diff --git a/etc/themes/modus-vivendi-theme.el
b/etc/themes/modus-vivendi-tritanopia-theme.el
similarity index 62%
copy from etc/themes/modus-vivendi-theme.el
copy to etc/themes/modus-vivendi-tritanopia-theme.el
index 5012f8fb7f8..0d09989e2a7 100644
--- a/etc/themes/modus-vivendi-theme.el
+++ b/etc/themes/modus-vivendi-tritanopia-theme.el
@@ -1,4 +1,4 @@
-;;; modus-vivendi-theme.el --- Elegant, highly legible and customizable dark
theme -*- lexical-binding:t -*-
+;;; modus-vivendi-tritanopia-theme.el --- Tritanopia-optimized theme with a
black background -*- lexical-binding:t -*-
;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
@@ -42,14 +42,16 @@
(require-theme 'modus-themes t))
(require 'modus-themes))
- (deftheme modus-vivendi
- "Elegant, highly legible and customizable dark theme.
-Conforms with the highest legibility standard for color contrast
-between background and foreground in any given piece of text,
-which corresponds to a minimum contrast in relative luminance of
-7:1 (WCAG AAA standard).")
+ (deftheme modus-vivendi-tritanopia
+ "Tritanopia-optimized theme with a black background.
+This variant is optimized for users with blue-yellow color
+deficiency (tritanopia). It conforms with the highest
+legibility standard for color contrast between background and
+foreground in any given piece of text, which corresponds to a
+minimum contrast in relative luminance of 7:1 (WCAG AAA
+standard).")
- (defconst modus-vivendi-palette
+ (defconst modus-vivendi-tritanopia-palette
'(
;;; Basic values
@@ -65,18 +67,18 @@ which corresponds to a minimum contrast in relative
luminance of
;;; Common accent foregrounds
(red "#ff5f59")
- (red-warmer "#ff6b55")
- (red-cooler "#ff7f9f")
- (red-faint "#ff9580")
+ (red-warmer "#ff6740")
+ (red-cooler "#ff6f9f")
+ (red-faint "#ff9070")
(red-intense "#ff5f5f")
(green "#44bc44")
(green-warmer "#70b900")
(green-cooler "#00c06f")
(green-faint "#88ca9f")
(green-intense "#44df44")
- (yellow "#d0bc00")
- (yellow-warmer "#fec43f")
- (yellow-cooler "#dfaf7a")
+ (yellow "#cabf00")
+ (yellow-warmer "#ffa00f")
+ (yellow-cooler "#d8af7a")
(yellow-faint "#d2b580")
(yellow-intense "#efef00")
(blue "#2fafff")
@@ -88,11 +90,11 @@ which corresponds to a minimum contrast in relative
luminance of
(magenta-warmer "#f78fe7")
(magenta-cooler "#b6a0ff")
(magenta-faint "#caa6df")
- (magenta-intense "#ff66ff")
+ (magenta-intense "#ef7fff")
(cyan "#00d3d0")
- (cyan-warmer "#4ae2f0")
+ (cyan-warmer "#4ae2ff")
(cyan-cooler "#6ae4b9")
- (cyan-faint "#9ac8e0")
+ (cyan-faint "#7fdbdf")
(cyan-intense "#00eff0")
;;; Uncommon accent foregrounds
@@ -138,40 +140,40 @@ which corresponds to a minimum contrast in relative
luminance of
(bg-graph-red-0 "#b52c2c")
(bg-graph-red-1 "#702020")
- (bg-graph-green-0 "#4fd100")
- (bg-graph-green-1 "#007800")
- (bg-graph-yellow-0 "#f1e00a")
- (bg-graph-yellow-1 "#b08600")
- (bg-graph-blue-0 "#2fafef")
- (bg-graph-blue-1 "#1f2f8f")
- (bg-graph-magenta-0 "#bf94fe")
- (bg-graph-magenta-1 "#5f509f")
- (bg-graph-cyan-0 "#47dfea")
+ (bg-graph-green-0 "#afd1c0")
+ (bg-graph-green-1 "#607a8f")
+ (bg-graph-yellow-0 "#facfd6")
+ (bg-graph-yellow-1 "#b57b85")
+ (bg-graph-blue-0 "#4f9fdf")
+ (bg-graph-blue-1 "#004559")
+ (bg-graph-magenta-0 "#b6427f")
+ (bg-graph-magenta-1 "#7f506f")
+ (bg-graph-cyan-0 "#57dfea")
(bg-graph-cyan-1 "#00808f")
;;; Special purpose
- (bg-completion "#2f447f")
- (bg-hover "#004f70")
- (bg-hover-secondary "#654a39")
+ (bg-completion "#004253")
+ (bg-hover "#8e3e3b")
+ (bg-hover-secondary "#00405f")
(bg-hl-line "#2f3849")
(bg-region "#5a5a5a")
(fg-region "#ffffff")
- (bg-char-0 "#0050af")
- (bg-char-1 "#7f1f7f")
- (bg-char-2 "#625a00")
+ (bg-char-0 "#922a00")
+ (bg-char-1 "#4f3f7f")
+ (bg-char-2 "#00709f")
- (bg-mode-line-active "#505050")
- (fg-mode-line-active "#ffffff")
- (border-mode-line-active "#959595")
+ (bg-mode-line-active "#003c52")
+ (fg-mode-line-active "#f0f0f0")
+ (border-mode-line-active "#5f8fb4")
(bg-mode-line-inactive "#2d2d2d")
(fg-mode-line-inactive "#969696")
(border-mode-line-inactive "#606060")
- (modeline-err "#ffa9bf")
- (modeline-warning "#dfcf43")
- (modeline-info "#9fefff")
+ (modeline-err "#ff7fbf")
+ (modeline-warning "#df9f93")
+ (modeline-info "#4fcfef")
(bg-tab-bar "#313131")
(bg-tab-current "#000000")
@@ -179,19 +181,19 @@ which corresponds to a minimum contrast in relative
luminance of
;;; Diffs
- (bg-added "#00381f")
- (bg-added-faint "#002910")
- (bg-added-refine "#034f2f")
- (bg-added-fringe "#237f3f")
- (fg-added "#a0e0a0")
- (fg-added-intense "#80e080")
+ (bg-added "#004254")
+ (bg-added-faint "#003042")
+ (bg-added-refine "#004f7f")
+ (bg-added-fringe "#008fcf")
+ (fg-added "#9fdfdf")
+ (fg-added-intense "#50c0ef")
- (bg-changed "#363300")
- (bg-changed-faint "#2a1f00")
- (bg-changed-refine "#4a4a00")
- (bg-changed-fringe "#8a7a00")
- (fg-changed "#efef80")
- (fg-changed-intense "#c0b05f")
+ (bg-changed "#2f123f")
+ (bg-changed-faint "#1f022f")
+ (bg-changed-refine "#3f325f")
+ (bg-changed-fringe "#7f55a0")
+ (fg-changed "#e3cfff")
+ (fg-changed-intense "#cf9fe2")
(bg-removed "#4f1119")
(bg-removed-faint "#380a0f")
@@ -213,42 +215,49 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; General mappings
(fringe bg-dim)
- (cursor fg-main)
+ (cursor red-intense)
- (keybind blue-cooler)
- (name magenta)
- (identifier yellow-faint)
+ (keybind red)
+ (name red-cooler)
+ (identifier red-faint)
- (err red)
- (warning yellow-warmer)
- (info cyan-cooler)
+ (err red-warmer)
+ (warning magenta)
+ (info cyan)
(underline-err red-intense)
- (underline-warning yellow)
- (underline-note cyan)
+ (underline-warning magenta-intense)
+ (underline-note cyan-intense)
+
+ (bg-prominent-err bg-red-intense)
+ (fg-prominent-err fg-main)
+ (bg-prominent-warning bg-magenta-intense)
+ (fg-prominent-warning fg-main)
+ (bg-prominent-note bg-cyan-intense)
+ (fg-prominent-note fg-main)
;;;; Code mappings
- (builtin magenta-warmer)
- (comment fg-dim)
- (constant blue-cooler)
- (docstring cyan-faint)
+ (builtin magenta)
+ (comment red-faint)
+ (constant green-faint)
+ (docstring fg-alt)
(docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct green-cooler)
+ (fnname cyan-warmer)
+ (keyword red-cooler)
+ (preprocessor red-warmer)
+ (string cyan)
+ (type blue-warmer)
+ (variable cyan-cooler)
+ (rx-construct red)
(rx-backslash magenta)
;;;; Accent mappings
- (accent-0 blue-cooler)
- (accent-1 magenta-warmer)
+ (accent-0 cyan)
+ (accent-1 red-warmer)
(accent-2 cyan-cooler)
- (accent-3 yellow)
+ (accent-3 magenta)
;;;; Button mappings
@@ -259,10 +268,10 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Completion mappings
- (fg-completion-match-0 blue-cooler)
- (fg-completion-match-1 magenta-warmer)
- (fg-completion-match-2 cyan-cooler)
- (fg-completion-match-3 yellow)
+ (fg-completion-match-0 cyan)
+ (fg-completion-match-1 red-warmer)
+ (fg-completion-match-2 magenta)
+ (fg-completion-match-3 cyan-cooler)
(bg-completion-match-0 unspecified)
(bg-completion-match-1 unspecified)
(bg-completion-match-2 unspecified)
@@ -270,12 +279,13 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Date mappings
- (date-common cyan)
+ (date-common cyan-cooler)
(date-deadline red)
(date-event fg-alt)
- (date-holiday magenta)
+ (date-holiday red-intense)
(date-now fg-main)
- (date-scheduled yellow-warmer)
+ (date-range fg-alt)
+ (date-scheduled magenta)
(date-weekday cyan)
(date-weekend red-faint)
@@ -288,13 +298,13 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Link mappings
- (fg-link blue-warmer)
+ (fg-link cyan)
(bg-link unspecified)
- (underline-link blue-warmer)
+ (underline-link cyan)
- (fg-link-symbolic cyan)
+ (fg-link-symbolic cyan-cooler)
(bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
+ (underline-link-symbolic cyan-cooler)
(fg-link-visited magenta)
(bg-link-visited unspecified)
@@ -302,14 +312,23 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Mail mappings
- (mail-cite-0 blue-warmer)
- (mail-cite-1 yellow-cooler)
- (mail-cite-2 cyan-cooler)
- (mail-cite-3 red-cooler)
- (mail-part blue)
- (mail-recipient magenta-cooler)
- (mail-subject magenta-warmer)
- (mail-other magenta-faint)
+ (mail-cite-0 cyan-faint)
+ (mail-cite-1 red-faint)
+ (mail-cite-2 magenta-warmer)
+ (mail-cite-3 cyan-warmer)
+ (mail-part cyan-cooler)
+ (mail-recipient cyan)
+ (mail-subject red-cooler)
+ (mail-other cyan)
+
+;;;; Mark mappings
+
+ (bg-mark-delete bg-red-subtle)
+ (fg-mark-delete red)
+ (bg-mark-select bg-cyan-subtle)
+ (fg-mark-select cyan)
+ (bg-mark-other bg-magenta-subtle)
+ (fg-mark-other magenta-warmer)
;;;; Prompt mappings
@@ -319,37 +338,43 @@ which corresponds to a minimum contrast in relative
luminance of
;;;; Prose mappings
(prose-block fg-dim)
- (prose-code cyan-cooler)
- (prose-done green)
- (prose-macro magenta-cooler)
+ (prose-code cyan)
+ (prose-done cyan)
+ (prose-macro red-warmer)
(prose-metadata fg-dim)
(prose-metadata-value fg-alt)
(prose-table fg-alt)
- (prose-tag magenta-faint)
+ (prose-tag fg-alt)
(prose-todo red)
(prose-verbatim magenta-warmer)
;;;; Rainbow mappings
- (rainbow-0 fg-main)
- (rainbow-1 magenta-intense)
- (rainbow-2 cyan-intense)
- (rainbow-3 red-warmer)
- (rainbow-4 yellow-intense)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green-intense)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-warmer)
+ (rainbow-0 cyan)
+ (rainbow-1 red)
+ (rainbow-2 cyan-warmer)
+ (rainbow-3 red-cooler)
+ (rainbow-4 cyan-cooler)
+ (rainbow-5 magenta)
+ (rainbow-6 cyan-faint)
+ (rainbow-7 magenta-faint)
+ (rainbow-8 red-faint)
+
+;;;; Space mappings
+
+ (bg-space unspecified)
+ (fg-space border)
+ (bg-space-err bg-red-intense)
;;;; Heading mappings
(fg-heading-0 cyan-cooler)
(fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 blue-faint)
+ (fg-heading-2 red-faint)
+ (fg-heading-3 cyan-faint)
(fg-heading-4 magenta)
(fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
+ (fg-heading-6 magenta-faint)
(fg-heading-7 cyan-faint)
(fg-heading-8 fg-dim)
@@ -372,7 +397,7 @@ which corresponds to a minimum contrast in relative
luminance of
(overline-heading-6 unspecified)
(overline-heading-7 unspecified)
(overline-heading-8 unspecified))
- "The entire palette of the `modus-vivendi' theme.
+ "The entire palette of the `modus-vivendi-tritanopia' theme.
Named colors have the form (COLOR-NAME HEX-VALUE) with the former
as a symbol and the latter as a string.
@@ -381,9 +406,8 @@ Semantic color mappings have the form (MAPPING-NAME
COLOR-NAME)
with both as symbols. The latter is a named color that already
exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-vivendi-palette-overrides nil
- "Overrides for `modus-vivendi-palette'.
+ (defcustom modus-vivendi-tritanopia-palette-overrides nil
+ "Overrides for `modus-vivendi-tritanopia-palette'.
Mirror the elements of the aforementioned palette, overriding
their value.
@@ -405,13 +429,13 @@ represents."
:initialize #'custom-initialize-default
:link '(info-link "(modus-themes) Palette overrides"))
- (modus-themes-theme modus-vivendi
- modus-vivendi-palette
- modus-vivendi-palette-overrides)
+ (modus-themes-theme modus-vivendi-tritanopia
+ modus-vivendi-tritanopia-palette
+ modus-vivendi-tritanopia-palette-overrides)
- (provide-theme 'modus-vivendi))
+ (provide-theme 'modus-vivendi-tritanopia))
;;;###theme-autoload
-(put 'modus-vivendi 'theme-properties '(:background-mode dark :kind
color-scheme :family modus))
+(put 'modus-vivendi-tritanopia 'theme-properties '(:background-mode dark :kind
color-scheme :family modus))
-;;; modus-vivendi-theme.el ends here
+;;; modus-vivendi-tritanopia-theme.el ends here
diff --git a/etc/tutorials/TUTORIAL b/etc/tutorials/TUTORIAL
index e72b972441e..4e6d7b9b287 100644
--- a/etc/tutorials/TUTORIAL
+++ b/etc/tutorials/TUTORIAL
@@ -4,7 +4,7 @@ Emacs commands generally involve the CONTROL key (often labeled
CTRL)
or the META key (usually labeled ALT). Rather than writing that
in full each time, we'll use the following abbreviations:
- C-<chr> means hold the CONTROL key while typing the character <chr>
+ C-<chr> means hold the CONTROL key while typing the character <chr>.
Thus, C-f would be: hold the CONTROL key and type f.
M-<chr> means hold the META or ALT key down while typing <chr>.
If there is no META or ALT key, instead press and release the
diff --git a/etc/tutorials/TUTORIAL.cn b/etc/tutorials/TUTORIAL.cn
index 73df2cff4e7..e4c90102f53 100644
--- a/etc/tutorials/TUTORIAL.cn
+++ b/etc/tutorials/TUTORIAL.cn
@@ -15,10 +15,10 @@ META 键（有时候用 EDIT 或 ALT 来标示）。为了避免每次都要写
ESC 键。
重要提示：要退出 Emacs，请用 C-x C-c（两个连续的组合键）。
-要退出一个正在运行中的命令，请用 C-g。
+要中断一个正在输入的命令，请用 C-g。
下文中左边顶行的“>>”字样用来提示你尝试键盘命令。比如：
<<Blank lines inserted around following line by help-with-tutorial>>
-[本页当中特意留出一些空白是出于教学目的，请继续往后阅读]
+【本页当中特意留出一些空白是出于教学目的，请继续往后阅读】
>> 现在输入 C-v （查看下一屏文字）移动到下一屏。
（别紧张，在输入字符 v 的同时注意要按住 CONTROL 键）
从现在开始，每读完当前一屏你都需要这样做一次。
@@ -26,12 +26,17 @@ META 键（有时候用 EDIT 或 ALT 来标示）。为了避免每次都要写
值得注意的是，当你从上一屏滚到下一屏时，中间会有两行的重复；这样做是为
了维持滚屏的连续性，方便你顺畅、连续地阅读。
+这是 Emacs 教程文本的一个经过少量修改的副本。不久后我们会让你尝试不同
+的命令来修改此文本。若你在我们提到这些命令前修改了文本，不要担心；这就
+叫做“编辑”，而这就是 Emacs 存在的根本原因。
+
用编辑器，开门第一件事就是学会在文字中移动。你已经知道了 C-v 可以向下移
动一屏，要往上移，请用 M-v （也就是按住 META 键，然后输入v，如果你没有
META、EDIT 或 ALT 键那么就先按 <ESC> 再按 v）。
>> 试试 M-v，然后再试试 C-v，来回遛几次。
+若你知道其他移动文本的方式，也可以在这里试试。
* 小结（SUMMARY）
-----------------
@@ -101,7 +106,7 @@ P 代表 previous（上一行），N 代表 next（下一行），B 代表 backw
如果你嫌一个字符一个字符地挪光标太慢，你还可以一个词一个词地跳。M-f
(META-f) 可以将光标往前移动一个词，而 M-b 则是往后移。【这里的“词”指
-英文单词，对中文来说，则是指移动到下一个标点符号。】
+英文单词，对中文来说，则是指移动到下一个空格或标点符号。】
>> 试试 M-f 和 M-b。
@@ -132,8 +137,8 @@ P 代表 previous（上一行），N 代表 next（下一行），B 代表 backw
C-f 向右移动一个字符
C-b 向左移动一个字符
- M-f 向右移动一个词【对中文是移动到下一个标点符号】
- M-b 向左移动一个词【对中文是移动到上一个标点符号】
+ M-f 向右移动一个词【对中文是移动到下一个空格或标点符号】
+ M-b 向左移动一个词【对中文是移动到上一个空格或标点符号】
C-n 移动到下一行
C-p 移动到上一行
@@ -160,24 +165,25 @@ M-comma（META 逗号）。
然后再按几次 M-v 回到这里。
如果你的键盘上有方向键的话，也可以用它们来移动光标。不过我们有三个理由
-推荐你学习 C-b 、C-f 、C-n 、和 C-p：（1）它们在任何键盘上都能用。（2）
-当你熟练使用 Emacs 之后，你会发现用这些组合键比用方向键要快得多，因为你
-的手不需要离开打字区。（3）一旦你习惯了使用这些组合键，你也可以很容易地
-适应其它更高级的光标移动命令。
-
-大部分的 Emacs 命令接受数字参数，并且对于多数命令而言，这些数字参数的作
-用是指定命令的重复次数。为一个命令指定数字参数（也就是重复次数）的方法
-是：先输入 C-u，然后输入数字作为参数，最后再输入命令。如果你有META （或
-EDIT 或 ALT）键，那么还有另一种办法：按住 META 键不放，然后输入数字。不
-过我们还是建议你用 C-u，因为它在任何终端机上都能用。这种数字参数也称为
-“前缀参数”，意思是说这个参数是先于使用它的命令而输入的。
+推荐你学习 C-b 、C-f 、C-n 、和 C-p：（1）它们在任何终端（terminal）上
+都能用。（2）当你熟练使用 Emacs 之后，你会发现用这些组合键比用方向键要
+快得多，因为你的手不需要离开打字区。（3）一旦你习惯了使用这些组合键，
+你也可以很容易地适应其它更高级的光标移动命令。
+
+大部分的 Emacs 命令接受数字参数，并且对于多数命令而言，这些数字参数的
+作用是指定命令的重复次数。为一个命令指定数字参数（也就是重复次数）的方
+法是：先输入 C-u，然后输入数字作为参数，最后再输入命令。如果你有
+META（或EDIT 或 ALT）键，那么还有另一种办法：按住 META 键不放，然后输
+入数字。不过我们还是建议你用 C-u，因为它在任何终端上都能用。这种数字参
+数也称为“前缀参数”（prefix argument），意思是说这个参数是先于使用它的
+命令而输入的。
举例来说， C-u 8 C-f 会向前移动 8 个字符。
>> 为 C-n 或者 C-p 指定一个数字参数，这样你可以只用一个命令就把光标移动
到本行的附近。
-虽然大部分命令把数字参数解释为其重复次数，但是也有些命令例外，它们将数
+虽然大部分命令把数字参数解读为其重复次数，但是也有些命令例外，它们将数
字参数另做它用。比如有些命令（我们目前还没学到）仅仅将前缀参数作为一个
标志――只要给出有一个前缀参数，不管其值为何，它都会改变命令的功能。
@@ -189,7 +195,7 @@ EDIT 或 ALT）键，那么还有另一种办法：按住 META 键不放，然
这个命令应该已经将文字向上滚动了 8 行。如果你想将它再次地向下滚动，你可
以给定一个参数然后执行 M-v。
-如果你正在使用图形界面，比如 X 或者微软的 Windows，那么在 Emacs窗
+如果你正在使用图形界面，比如 X 或者微软的 Windows，那么在 Emacs 窗
口的一边应该有一个长方形的区域叫“滚动条”。你可以用鼠标操纵滚动条来滚动
文字。
@@ -235,8 +241,8 @@ Emacs 可以有多个“窗格”，每个窗格显示不同的文字。后面
C-x 1 只保留一个窗格（也就是关掉其它所有窗格）。
-也就是先按 CONTROL-x 然后再按 1。C-x 1 会保留光标所在的窗格，并将其扩大
-到整个屏幕，同时关掉所有其它的窗格。
+也就是先按 CONTROL-x 然后再按数字 1。C-x 1 会保留光标所在的窗格，并将
+其扩大到整个屏幕，同时关掉所有其它的窗格。
>> 把光标移到本行然后输入 C-u 0 C-l。
@@ -266,12 +272,13 @@ Emacs 可以有多个“窗格”，每个窗格显示不同的文字。后面
不用担心文件被修改，你做什么都没关系，这里就是专给你练习用的。
如果一行文字很长、超出了窗格的宽度，显示不下的部分会在紧邻的下一行继续
-显示。如果你使用的是图形界面，文本区域两边的狭窄区域（左右“边缘”）会出
-现小小的转弯箭头，表明这是某一行的接续显示。如果你使用的是文本终端，接
-续显示由屏幕最右边一列的一个反斜线（“\”）来表示。
+显示，称为接续行（continuation line）。如果你使用的是图形界面，文本区
+域两边的狭窄区域（左右“边缘”）会出现小小的转弯箭头，表明这是某一行的接
+续显示。如果你使用的是文本终端，接续显示由屏幕最右边一列的一个“\”来表
+示。
>> 输入文字，一直到屏幕的右边界，然后继续。
-你会看到一个接续行出现。
+ 你会看到一个接续行出现。
>> 用 <DEL> 删掉一些文字，直到此行长度小于窗格宽度，接续行就消失了。
@@ -286,7 +293,9 @@ Emacs 可以有多个“窗格”，每个窗格显示不同的文字。后面
<Return> 是一个特殊的键，因为按下这个键后，得到的可能不仅仅是一个换行
符。根据周围文本的不同，Emacs 可能会在换行符之后插入一些空白字符，这样，
-当你在新的一行开始打字时，文本会自动与前一行对齐。
+当你在新的一行开始打字时，文本会自动与前一行对齐。我们称这种行为（在按
+这个按键时不只是插入其对应字符）为“electric”，可以理解为“通电的，自动
+的”。
>> 这是一个自动缩进的例子。
在这一行的末尾输入 <Return>。
@@ -338,7 +347,8 @@ Emacs 可以有多个“窗格”，每个窗格显示不同的文字。后面
了。】重新插入被移除的文字称为“召回（yank）”。一般而言，那些可能消除很
多文字的命令会把消除掉的文字记录下来（它们被设定成了“可召回”），而那些
只消除一个字符或者只消除空白的命令就不会记录被消除的内容（自然你也就无
-法召回了）。
+法召回了）。<DEL> 和 C-d 在无前缀参数的情况下进行“删除”，而有前缀参数
+时则改用“移除”。
>> 移动光标到一非空白行的行头，然后输入 C-k 移除那一行上的文字。
@@ -350,10 +360,11 @@ Emacs 可以有多个“窗格”，每个窗格显示不同的文字。后面
C-k 会把两行以及它们的换行符移除；而如果只是输入 C-k 两次显然不是这个结
果。
-重新插入被移除的文字恢复的动作称为“召回（yanking）”。（就好像把别人从你身边
-移走的东西又猛力地拉回来。）你可以在你删除文字的地方召回，也可以在别的
-地方召回，还可以多次召回同样的文字以得到它的多个拷贝。很多其它的编辑器
-把移除和召回叫做“剪切”和“粘贴” （详情可见 Emacs 使用手册里的术语表）。
+【重新插入被移除的文字恢复的动作称为“召回（yanking）”，就好像把别人
+从你身边移走的东西又猛力地拉回来。】你可以在你删除文字的地方召回，也
+可以在别的地方召回，还可以多次召回同样的文字以得到它的多个拷贝。很多其
+它的编辑器把移除和召回叫做“剪切”和“粘贴” （详情可见 Emacs 使用手册里的
+术语表）。
召回的命令是 C-y。它会在光标所在处插入你最后移除的文字。
@@ -372,8 +383,8 @@ C-y 就可以把它们都召回。
C-y 可以召回最近一次移除的内容，那如何召回前几次移除的内容呢？它们当然
没有丢，你可以用 M-y 来召回它们。在用 C-y 召回最近移除的文字之后，紧接
着再按 M-y 就可以召回再前一次被移除的内容，再按一次 M-y 又可以召回再上
-一次的……连续使用 M-y 直到找到你想要召回的东西，然后什么也不用做，继续
-编辑就行了。
+一次的内容……连续使用 M-y 直到找到你想要召回的东西，然后什么也不用做，
+继续编辑就行了。
如果连续按 M-y 很多次，你可能会回到起始点，也就是最近移除的文字。
【看得出这实际上是一个环。】
@@ -401,14 +412,16 @@ C-/，你会把以前的命令也依次撤销。
>> 用 C-k 将这一行移除，然后输入 C-/ ，它会再次出现。
-C-_ 也是撤销命令；它的作用跟 C-/ 一样，但是它比较容易多次输入。在
-某些终端上，输入 C-/ 实际上向 Emacs 发送的是 C-_ 。
-另外， C-x u 和 C-/ 完全一样，但是按起来有些麻烦。
+C-_ 也是撤销命令；它的作用跟 C-/ 一样，但是它比较容易多次输入。在某些
+终端上，你可以不按 shift 键（即 C--）。在某些终端上，输入 C-/ 实际上向
+Emacs 发送的是 C-_ 。另外， C-x u 和 C-/ 完全一样，但是按起来有些麻烦。
数字参数对于 C-/ 、 C-_ 和 C-x u 的意义是执行撤销的重复次数。
+你可以撤销文字的删除，就像你能撤销文字的移除一样。删除与移除的区别只在
+于你是否能召回被影响的文字；对于撤销来说没有区别。
-* 文件（FILE）
+* 文件（FILES）
--------------
想保存工作成果就要记得存盘，否则一旦退出 Emacs 你编辑的文字就会丢失。要
@@ -424,7 +437,7 @@ C-_ 也是撤销命令；它的作用跟 C-/ 一样，但是它比较容易多
在屏幕的下方，你应该能够看到头部有短线“-”的一行，行首通常是一些诸如“
-:--- TUTORIAL.cn”的文字，这些文字代表了你当前正在访问的文件。比如你现
在正在访问的文件是对 Emacs 快速指南的一份临时拷贝，叫做“TUTORIAL.cn”。
-每当Emacs 寻找到一个文件，文件名就会出现在这个位置。
+每当 Emacs 寻找到一个文件，文件名就会出现在这个位置。
寻找文件的命令有一个特点，那就是你必须给出文件名。我们称这个命令“读入
了一个参数”（在这里，这个参数显然就是文件名）。在你输入这条命令之后：
@@ -435,14 +448,14 @@ Emacs 会提示你输入文件名。你输入的文件名会出现在屏幕最
行被称为小缓冲（minibuffer），在小缓冲里你可以使用通常的 Emacs 编辑命令
来编辑文件名。
-在小缓冲里输入文件名（其实输入其它东西也一样）时可以用 C-g 取消。
+在小缓冲里输入文件名（其实输入其它东西也一样）时可以用 C-g 取消这个命令。
>> 输入 C-x C-f，然后输入 C-g
这会关掉小缓冲，同时也会取消使用小缓冲的 C-x C-f 命令。
- 当然了，你也没有找任何文件。
+ 当然了，你也没有找到任何文件。
-用 <Return> 结束文件名的输入。之后，小缓冲会消失，C-x C-f 将会去寻找你
-指定的文件。小缓冲在 C-x C-f 命令结束之后也会消失。
+当你写完要寻找的文件名时，用 <Return> 结束文件名的输入。之后，小缓冲会
+消失，C-x C-f 将会去寻找你指定的文件。
文件被显示在了屏幕上，你可以开始编辑了。存盘用这条命令：
@@ -453,20 +466,21 @@ Emacs 会提示你输入文件名。你输入的文件名会出现在屏幕最
【对许多人来说，这是一个烦人的特性，关掉文件备份可以用如下命令：
M-x customize-variable <Return> make-backup-files <Return>】
-存盘结束后，Emacs 会显示写入文件的文件名。你最好养成经常存盘的习惯，这
-可以减少系统崩溃和死机给你带来的损失（也可参见下面的“自动保存”一节）。
+存盘结束后，Emacs 会显示写入文件的文件名。【你最好养成经常存盘的习惯，
+这可以减少系统崩溃和死机给你带来的损失（也可参见下面的“自动保存”一
+节）。】
>> 输入 C-x C-s TUTORIAL.cn <Return> 。
这将会把该指南保存为一个名为 TUTORIAL.cn 的文件，并且在屏幕的下方显
- 示一条消息：“Wrote ...TUTORIAL.cn”。
+ 示一条消息：“Wrote TUTORIAL.cn”。
你不但可以寻找一个已有的文件来查看或编辑，还可以寻找一个不存在的文件。
-实际上这正是 Emacs 创建新文件的方法：找到不存在的新文件。事实上，只有
-在存盘的时候，Emacs 才会真正创建这个文件。而在这之后的一切就跟编辑一个
-已有文件没有区别了。
+实际上这正是 Emacs 创建新文件的方法：找到不存在的新文件，它一开始是空
+的，然后你就可以开始插入文本。事实上，只有在存盘的时候，Emacs 才会真正
+创建这个文件。而在这之后的一切就跟编辑一个已有文件没有区别了。
-* 缓冲区（BUFFER）
+* 缓冲区（BUFFERS）
------------------
你可以用 C-x C-f 找到并打开第二个文件，但第一个文件仍然在 Emacs 中。要
@@ -495,7 +509,7 @@ C-x C-f 是一种办法。不过还有一个更简单的办法，那就是用 C-
然后输入 C-x b TUTORIAL.cn <Return> 回到这里。
大多数情况下，缓冲区与跟其对应的文件是同名的（不包括目录名），不过这也
-不是绝对的。用 C-x C-b 得到的缓冲区列表总是显示缓冲区名。
+不是绝对的。因此用 C-x C-b 得到的缓冲区列表总是显示缓冲区名与文件名。
缓冲区未必有对应文件。显示缓冲区列表的缓冲区（叫做“*Buffer List*”）就
是这样。这个 TUTORIAL.cn 缓冲区起初没有对应的文件，但是现在有了，因为
@@ -516,8 +530,8 @@ C-x C-f 是一种办法。不过还有一个更简单的办法，那就是用 C-
C-x s 保存多个缓冲区
-C-x s 会找出所有已被修改但尚未存盘的缓冲区，然后向你逐个询问：是否需要
-存盘？
+C-x s 会找出所有访问文件的、且已被修改但尚未存盘的缓冲区，然后向你逐个
+询问：是否需要存盘此文件？
>> 插入一行文字，然后输入 C-x s。
它应该会问你，是否要储存名为 TUTORIAL.cn 的缓冲区？
@@ -554,7 +568,9 @@ C-x 的扩展命令有很多，下面列出的是你已经学过的：
C-x C-f 寻找文件。
C-x C-s 保存文件。
+ C-x s 保存多个缓冲区。
C-x C-b 列出缓冲区。
+ C-x b 切换缓冲区。
C-x C-c 离开 Emacs。
C-x 1 关掉其它所有窗格，只保留一个。
C-x u 撤销。
@@ -608,10 +624,10 @@ replace-string（字符串替换）这个命令，它会把一个字符串替换
状态栏显示了 Emacs 的状态和你正在编辑的文字的一些信息。
-你应该知道文件名的意思吧？就是你找到的那个文件嘛。-NN%-- 显示的是光标在
-全文中的位置。如果位于文件的开头，那么就显示 --Top-- 而不是 --00%--；如
-果位于文件的末尾，就显示 --Bot--。如果文件很小，一屏就足以显示全部内容，
-那么状态栏会显示 --All--。
+你应该知道文件名的意思吧？就是你找到的那个文件嘛。NN% 显示的是光标在
+全文中的位置。如果位于文件的开头，那么就显示 Top 而不是 0%；如
+果位于文件的末尾，就显示 Bot。如果文件很小，一屏就足以显示全部内容，
+那么状态栏会显示 All。
“L” 和其后的数字给出了光标所在行的行号。
@@ -723,7 +739,10 @@ C-s 是向前搜索，C-r 是向后搜索。不过手别这么快！别着急试
* 多窗格（MULTIPLE WINDOWS）
----------------------------
-Emacs 的迷人之处很多，能够在屏幕上同时显示多个窗格就是其中之一。
+Emacs 的迷人之处很多，能够在屏幕上同时显示多个窗格就是其中之一。（请注
+意在 Emacs 里的“窗口（frame）”与“窗格（window）”的定义可能与其他应用程
+序不同，详见Emacs 手册里的术语表。）【另见此教程末尾的翻译章节的术语译
+词对照表。】
>> 移动光标到这一行，然后输入 C-l C-l。
@@ -782,13 +801,13 @@ Emacs 可以创建多个窗口。窗口由许多窗格以及菜单、滚动条
在图形界面下，多个窗口可以同时显示出来。在文本终端中，只能同时显示一个
窗口。
->> 输入 M-x make-frame <Return>。
+>> 输入 C-x 5 2。
可以看到一个新的窗口出现在了你的屏幕上。
你可以在新的窗口里做最初的窗口里可以做的任何事情。第一个窗口没有什么特
别的。
->> 输入 M-x delete-frame <Return>.
+>> 输入 C-x 5 0。
这个命令将会关闭选中的窗口。
你也可以通过图形系统来关闭某个窗口（通常是在窗口上面的某个角落里的一个
@@ -853,9 +872,9 @@ Emacs 可以创建多个窗口。窗口由许多窗格以及菜单、滚动条
还有一些其它有用的 C-h 命令：
- C-h f 解释一个函数。需要输入函数名。
+ C-h x 解释一个命令。需要输入命令名。
->> 试试看，输入 C-h f previous-line <Return>。
+>> 试试看，输入 C-h x previous-line <Return>。
Emacs 会给出它所知道的所有有关“实现 C-p 命令功能的函数”的信息。
C-h v 用来显示 Emacs 变量的文档。Emacs 变量可以被用来“定制 Emacs 的行
@@ -905,15 +924,15 @@ Dired 能够在一个缓冲区里列出一个目录下的所有文件（可以
Emacs 使用手册里还有许许多多的精彩功能等着你来了解。
-* 安装包裹（INSTALLING PACKAGES）
+* 安装软件包（INSTALLING PACKAGES）
---------------------------
-Emacs 社区著作了许多持有扩展性的包裹（packages），其中包括对各种语言的
-支持、色彩鲜艳的主题、用于集成外部程序的包裹，等等。
+Emacs 社区著作了许多持有扩展性的软件包（packages），其中包括对各种语言
+的支持、色彩鲜艳的主题、用于集成外部程序的软件包，等等。
-使用 M-x list-packages 便可浏览存在的包裹。这个命令显示的界面中可以安
-装和卸载包裹，以及查看包裹的简介。Emacs 使用手册中有对包裹管理更详细的
-介绍。
+使用 M-x list-packages 便可浏览所有可安装的软件包。这个命令显示的界面
+中可以安装和卸载软件包，以及查看软件包的简介。Emacs 使用手册中有对软件
+包管理更详细的介绍。
* 总结（CONCLUSION）
--------------------
@@ -929,6 +948,7 @@ Emacs 社区著作了许多持有扩展性的包裹（packages），其中包括
翻译：孙一江 <sunyijiang@gmail.com>
维护：薛富侨 <xfq.free@gmail.com>
+ 余睿杰 <ruijie@netyu.xyz>
校对：水木社区（www.newsmth.net）Emacs 板众多网友及众多 Emacs 中文用户
Emacs 快速指南（Tutorial）早有两个刘昭宏的中文译本，繁简各一。其简体版本
diff --git a/etc/tutorials/TUTORIAL.fa b/etc/tutorials/TUTORIAL.fa
new file mode 100644
index 00000000000..1333b47cae2
--- /dev/null
+++ b/etc/tutorials/TUTORIAL.fa
@@ -0,0 +1,1164 @@
+آموزش Emacs «ایمکس». برای شرایط کپی به پایان مراجعه کنید.
+
+فرمانهای Emacs عموماً شامل کلید CONTROL (گاهی اوقات با برچسب CTRL)
+یا کلید META (معمولا با برچسب ALT) هستند. به جای هر بار بطور کامل نوشتن،
+از خلاصه زیر استفاده خواهیم کرد:
+
+ C-<chr> به معنای نگه داشتن کلید CONTROL در حین تایپ کاراکترِ <chr> است.
+ بنابراین، C-f خواهد بود: کلید CONTROL را نگه دارید و f را تایپ کنید.
+ M-<chr> یعنی کلید META یا ALT را هنگام تایپ حرفِ <chr> پایین نگه دارید.
+ اگر کلید META، یا ALT وجود ندارد، به جای آن کلید ESC را فشار
+ داده و رها کنید، سپس <حرف> را تایپ کنید.
+ برای کلید ESC می نویسیم <ESC>.
+
+نکته مهم: برای پایان دادن به جلسه Emacs، دو حرف C-x C-c را تایپ کنید.
+برای خروج از یک فرمانِ ناکامل، C-g را تایپ کنید.
+برای توقف آموزش، C-x k و سپس در پاسخ به نشانگر <Return> را تایپ کنید.
+کاراکترهای ">>" در حاشیه سمت راست فرمانهایی را برای شمامشخص می کند. برای مثال:
+<<خطهای خالی بعد از خط بعدی توسط help-with-tutorial درج میشود>>
+[وسط صفحه برای اهداف آموزشی خالی مانده است. ادامه متن در زیر]
+>> اکنون C-v را تایپ کنید (نمایش صفحه بعدی) تا یک صفحه کامل به پایین بروید.
+ (این کار را با نگه داشتن کلید CONTROL و فشار کلید v انجام دهید).
+ از این پس، لطفاً هر زمان که به انتهای صفحه رسیدید، این کار را انجام دهید.
+
+توجه داشته باشید که وقتی یک صفحه کامل را اسکرول می کنید، دو خط همپوشانی دارند؛
+این مقداری تداوم را فراهم می کند تا بتوانید به خواندن متن ادامه دهید.
+
+این یک کپی از متن آموزشی Emacs است که کمی برای شما شخصی سازی شده است.
+بعداً به شما آموزش خواهیم داد که فرمانهای مختلفی را برای تغییر این متن استفاده
+کنید. اگر قبل از اینکه به شماگفته باشیم، این متن را تغییر داده اید،
+نگران نباشید. این کار «ویرایش» نامیده می شود و Emacs برای همین است.
+
+اولین چیزی که باید بدانید این است که چگونه از یک مکان به اطراف حرکت کنید.
+شما از قبل می دانید که با C-v چگونه یک صفحه به جلو حرکت میکند.
+برای حرکت یک صفحه به سمت عقب، M-v را تایپ کنید (کلید META را نگه دارید
+و v را تایپ کنید، یا اگر کلید META، یا ALT را ندارید، <ESC>vرا تایپ کنید).
+
+>> چند بار M-v و سپس C-v را تایپ و امتحان کنید.
+
+شما می توانید این متن را با روش های دیگری که میدانید اسکرول کنید.
+
+* خلاصه
+---------
+
+فرمانهای زیر برای مشاهده کل صفحه نمایش مفید هستند:
+
+ C-v یک صفحه نمایش به جلو حرکت کنید.
+ M-v یک صفحه نمایش به عقب حرکت کنید.
+ C-l پاک کردن صفحه و نمایش مجدد تمام متن،
+ جابجایی مکان نما و متن به مرکز صفحه نمایش
+ (این CONTROL-L است، نه CONTROL-1.)
+
+>> مکاننما را پیدا کنید و توجه داشته باشید که چه متنی در نزدیکی آن است.
+ سپس C-l را تایپ کنید. دوباره مکان نما را پیدا کنید وتوجه کنید که هنوز
+ نزدیک همان متن است. اما مکان نما، اکنون در مرکز صفحه است.
+ اگر دوباره C-l را فشار دهید، این قطعه متن به بالای صفحه منتقل می شود.
+ مجددا C-l را فشار دهید، صفحه نمایش دوباره به پایین حرکت می کند.
+
+اگر ترمینال شما کلیدهای PageUp و PageDn را دارد، میتوانید برای جابهجایی یک
+صفحه کامل از آنها استفاده کنید.
+اما در صورت استفاده از C-v و M-v شما می توانید کارآمدتر ویرایش کنید.
+
+* کنترل مکان نما
+----------------------
+
+حرکت از یک صفحه نمایش به صفحه نمایش دیگر مفید است، اما چگونه
+به مکان خاصی در متنِ روی صفحه حرکت کنید؟
+
+چندین راه وجود دارد که می توانید این کار را انجام دهید. می توانید از
+کلیدهای جهت دار استفاده کنید، اما کارآمدتر است که دستان خود را در وضعیت
+استاندارد نگه دارید. از فرمانهایِ C-p، C-b، C-f و C-n استفاده کنید. این فرمان
ها
+معادل چهار کلید جهت دار هستند، مانند:
+
+ سطر قبل، C-p
+ :
+ :
+ به عقب، C-b .... موقعیت مکان نما فعلی .... به جلو، C-f
+ :
+ :
+ خط بعدی، C-n
+
+>> با استفاده از C-n یا C-p مکان نما را به خط وسط نمودار بالا حرکت دهید.
+ سپس C-l را تایپ کنید تا کل نمودار را در مرکز صفحه نمایش ببینید.
+
+
+به راحتی می توانید این حروف را با کلماتی که مخفف آنها هستند به خاطر بسپارید:
+Previous) p) برای قبلی، Next) n) برای بعدی, Backward) b) برای عقب و
+Forward) f) برای جلو. شما همیشه از این فرمانهایِ اصلی تعیین موقعیت مکان نما
+استفاده خواهید کرد.
+
+>> برای پایین آوردن مکان نما به این خط، چند C-n انجام دهید.
+
+>> حرکت به جلو، روی خط با C-f و سپس به بالا با C-p.
+ ببینید C-p وقتی مکان نما در وسط خط قرار دارد چه می کند.
+
+هر خط از متن با یک کاراکترِ Newline به پایان می رسد، که
+آن را از خط زیر جدا میکند. (به طور معمول،یک فایل در پایان دارای
+یک Newline خواهد بود، اما Emacs به آن نیاز ندارد.)
+
+>> هنگامی که نشانگر در ابتدای خط است، از C-b استفاده کنید. باید به انتهای
+ خط قبلی حرکت کند. به این دلیل است که این حرکت از سراسر Newline میگذرد.
+
+فرمان C-f می تواند مانند C-b روی خط جدید حرکت کند.
+
+>> چند C-b دیگر انجام دهید، بنابراین می توانید نشانگر را در مکان مورد
+ نظر قرار دهید. سپس C-f را انجام دهید تا به انتهای خط برگردید.
+ سپس یک C-f دیگر انجام دهید تا به خط زیر بروید.
+
+
+وقتی از بالا یا پایین صفحه عبور می کنید، متن فراتر می رود
+لبه روی صفحه نمایش جابجا می شود. به این "پیمایش یا اسکرول" می گویند. این
+Emacs را قادر می سازد تا مکان نما را به مکان مشخص شده در متن منتقل کند
+بدون اینکه آن را از صفحه نمایش جدا کنید.
+
+>> سعی کنید مکان نما را از پایین صفحه با C-n حرکت دهید و
+ ببیند چه اتفاقی می افتد.
+
+اگر حرکت بر اساس کاراکترها خیلی کند است، می توانید با کلمات حرکت کنید. M-f
+(META-f) یک کلمه را جلو می برد و M-b یک کلمه را به عقب می برد.
+
+>> چند M-f و M-b تایپ کنید.
+
+وقتی در وسط یک کلمه هستید، M-f به انتهای کلمه می رود.
+هنگامی که در فضای خالی بین کلمات قرار دارید، M-f به انتهای کلمه بعدی منتقل
+می شود. M-b نیز در جهت مخالف کار می کند.
+
+>> فرمان M-f و M-b را چند بار با C-f و C-b در هم آمیخته تایپ کنید،
+ تا عمل M-f و M-b را از انواع مکان های درون و بین کلمات مختلف مشاهده کنید.
+
+
+به موازات بین C-f و C-b از یک طرف و M-f و M-b از طرف دیگر توجه کنید.
+
+عملیات مربوط به واحدهای تعریف شده توسط زبان (کلمات، جملات، پاراگراف ها)
+اغلب با کاراکترهای متا انجام می شود،
+در حالی که کاراکترهای Control بر روی واحدهای اصلی، مستقل از آنچه در حال
+ویرایش هستید (حروف، خطوط و غیره) عمل می کنند.
+
+این توازی بین خطوط و جملات اعمال می شود: C-a و C-e حرکت به
+ابتدا یا انتهای یک خط، و M-a و M-e به ابتدا یا پایان یک جمله حرکت می کنند.
+
+
+>>دو C-a، و سپس دو C-e را امتحان کنید.
+ چند M-a و سپس چند M-e را امتحان کنید.
+
+
+ببینید چگونه C-a های تکراری هیچ کاری انجام نمی دهند، اما M-a های تکراری به
+حرکت خود ادامه می دهند. اگرچه اینها کاملاً مشابه نیستند، اما هر یک طبیعی
+به نظر می رسد.
+
+
+به مکانِ مکان نما در متن "نقطه" نیز می گویند.
+به عبارت دیگر، مکان نما روی صفحه نشان می دهد که نقطه در کجای متن قرار دارد.
+
+
+در اینجا خلاصه ای از عملیات ساده حرکت مکان نما، از جمله
+فرمانهایِ حرکت کلمه و جمله نشان داده می شود:
+
+ C-f یک کاراکتر را به جلو حرکت دهید
+ C-b یک کاراکتر را به عقب حرکت دهید
+
+ M-f یک کلمه را به جلو حرکت دهید
+ M-b یک کلمه را به عقب حرکت دهید
+
+ C-n به خط بعدی بروید
+ C-p به خط قبلی بروید
+
+ C-a حرکت به ابتدای خط
+ C-e حرکت به انتهای خط
+
+ M-a به ابتدای جمله برگردید
+ M-e حرکت به جلو تا پایان جمله
+
+>> همه این فرمانها را اکنون چند بار برای تمرین امتحان کنید.
+ این فرمانها بیشترین استفاده را دارند.
+
+دو فرمان مهم دیگر حرکت مکان نما عبارتند از M-< : (META کمتر از)،
+که به ابتدای کل متن حرکت می کند و M-> (META بزرگتر از)،
+که به انتهای کل متن می رود.
+
+در اکثر ترمینالها، ">" بالای کاما است، بنابراین باید با استفاده از کلید
+shift آن را تایپ کنید.
+در این ترمینالها باید از کلید shift برای تایپ >-M نیز استفاده کنید.
+بدون کلید shift، شما کاما، M را تایپ می کنید.
+
+>> اکنون >-M را امتحان کنید تا به ابتدای آموزش بروید.
+ سپس از C-v مکرراً برای بازگشت به اینجا استفاده کنید.
+
+>> اکنون <-M را امتحان کنید تا به انتهای آموزش بروید.
+ سپس از M-v مکرراً برای بازگشت به اینجا استفاده کنید.
+
+همچنین می توانید مکان نما را با کلیدهای جهت دار حرکت دهید، اگر ترمینال شما
+آن را داشته باشد. ما استفاده از C-b، C-f، C-n و C-p را به سه دلیل توصیه میکنیم.
+
+اول، آنها بر روی انواع ترمینالها کار می کنند.
+دوم, هنگامی که مهارت شما در استفاده از Emacs بیشتر شود، متوجه خواهید شد که
+تایپ با کنترل کاراکترها، سریعتر از تایپ کلیدهای جهت دار است.
+(زیرا احتیاج نیست که شما دستان خود را از موقعیت تایپ لمسی دور کنید).
+سوم، وقتی شما عادت به استفاده از فرمانهایِ کاراکتر Control را دارید، می توانید
+به راحتی یاد بگیرید که از دیگر فرمانهایِ پیشرفته حرکت مکان نما نیز استفاده
کنید.
+
+اکثر فرمانهایِ Emacs یک آرگومان عددی را می پذیرند. برای اکثر فرمانها، این
+به عنوان یک شمارش تکرار عمل می کند.
+نحویِ تحویل تعداد تکرار، با تایپ C-u و سپس اعداد قبل از تایپ فرمان است. اگر
+شما یک کلید META (یا ALT) دارید، راه جایگزینی دیگری برای وارد کردن
+آرگومان عددی وجود دارد: ارقام را در حالی که کلید META را نگه داشتهاید
+تایپ کنید. ما توصیه می کنیم استفاده از C-u را یاد بگیرید زیرا در هر ترمینال
+کار می کند. آرگومان عددی "آرگومان پیشوند" نیز نامیده می شود.
+زیرا آرگومان را قبل از فرمانی که روی آن اعمال می شود تایپ می کنید.
+
+به عنوان مثال، C-u 8 C-f هشت کاراکتر به جلو حرکت می کند.
+
+>> سعی کنید فقط با یک فرمان، C-n یا C-p با آرگومان عددی برای حرکت مکان نما
+ از خط نزدیک به این خط استفاده کنید.
+
+اکثر فرمانها از آرگومان عددی به عنوان تعداد تکرار استفاده می کنند،
+اما برخی فرمانها از آن به روش دیگری استفاده می کنند.
+چندین فرمان که از آن به عنوان یک علامت تعغیر استفاده میشود.
+(اما هیچ کدام از فرمانهایِی که تا به حال آموخته اید نیستند.)
+وجود یک آرگومان پیشوند، صرف نظر از مقدار آن، فرمان متفاوتی را انجام می دهد.
+
+C-v و M-v استثناهای دیگری هستند. با تحویل آرگومان،
+آنها متن را با این تعداد خط به بالا یا پایین اسکرول می کنند نه با یک
+صفحه نمایش. برای مثال، C-u 8 C-v هشت خط پیمایش می کند.
+
+>> اکنون C-u 8 C-v را تایپ کنید.
+
+این فرمان باید متن را 8 خط به بالا اسکرول کند. اگر مایل باشید
+دوباره به پایین برگردید، می توانید یک آرگومان به M-v بدهید.
+
+اگر از یک سیستم نمایشِ گرافیکی مانند X یا MS-Windows استفاده می کنید،
+باید یک ناحیه مستطیل شکل بلند به نام نوار پیمایش در یک طرف پنجره Emacs
+وجود داشته باشد. با کلیک کردن بر روی نوار، متن را اسکرول کنید.
+
+اگر ماوس شما دگمه چرخ دارد، می توانید از آن برای اسکرول نیز استفاده کنید.
+
+
+* اگر EMACS پاسخ نمی دهد.
+---------------------------
+
+اگر Emacs به فرمانهایِ شما پاسخ نمی دهد، می توانید با خیال راحت با
+تایپ کردن C-g آن را متوقف کنید. می توانید از C-g برای متوقف کردن فرمانی که
+انجامش طولانی شده است استفاده کنید.
+
+همچنین میتوانید از C-g برای حذف یک آرگومان عددی یا ابتدای فرمانی که
+نمی خواهید آن را تمام کنید استفاده کنید.
+
+>> با عمل C-u 100 یک آرگومان عددی 100 بسازید، سپس C-g وبعد از آن
+ C-f را تایپ کنید. بااین فرمانها فقط یک حرف به جلو حرکت می کنید، زیرا شما
+ آرگومان را با C-g لغو کرده اید.
+
+اگر یک <ESC> را اشتباه تایپ کرده اید، می توانید با یک C-g از شر آن خلاص شوید.
+
+
+* فرمانهایِ غیر فعال
+-------------------
+
+برخی از فرمانهایِ Emacs "غیرفعال" هستند تا کاربران مبتدی نتوانند
+از آنها به طور تصادفی استفاده کنند.
+
+اگر یکی از فرمانهایِ غیرفعال را تایپ کنید، Emacs پیامی را نمایش می دهد
+که فرمان چیست و از شما می پرسد که آیامایل به اجرای آن هستید؟
+
+اگر واقعاً می خواهید فرمان را اجرا کنید، <SPC> (نوار فاصله) را در پاسخ به
+سوال تایپ کنید. به طور معمول، اگر نمی خواهید آن را اجرا کنید، به سوال با
+"n" پاسخ دهید.
+
+>> عمل C-x C-l (که یک فرمان غیرفعال است) را انجام دهید،
+ سپس n را در پاسخ به سوال تایپ کنید.
+
+
+* پنجره ها
+----------
+
+با Emacs می تواند چندین "پنجره" داشته باشد که هر کدام متن خاص خود را نشان
+می دهد. ما بعداً در مورد نحوه استفاده از چندین پنجره توضیح خواهیم داد. در
+حال حاضر می خواهیم برای نحوه حذف پنجره های اضافی و بازگشت به حالت اولیه
+ویرایش یک پنجره توضیح دهیم. این عمل آسان است:
+
+ C-x 1 یک پنجره (یعنی تمام پنجره های دیگر را حذف کنید).
+
+فرمان C-x 1 پنجره ای تمام صفحه، که حاوی مکان نما است را باز می کند.
+این فرمان تمام پنجره های دیگر را حذف میکند.
+
+
+>> مکان نما را به این خط ببرید و C-u 0 C-l را تایپ کنید.
+>> C-h k C-f را تایپ کنید.
+ ببینید چگونه این پنجره کوچک می شود، در حالی که یک پنجره جدید برای نمایش
+ اطلا عات در فرمان C-f ظاهر می شود.
+
+
+>> با تایپ C-x 1 پنجره فهرست اسناد ناپدید می شود.
+
+یک سری کامل از فرمانها با CONTROL-x شروع می شوند. بسیاری از
+آنها با ویندوز، فایل ها، بافرها و موارد وابسته ارتباط دارند.
+این فرمانها دو، سه یا چهار کاراکتر هستند.
+
+
+* درج و حذف
+------------
+
+اگر می خواهید متن را وارد کنید، فقط متن را تایپ کنید. حروف معمولی،
+مانند A، 7، *، و غیره، هنگام تایپ آنها نوشته می شوند. برای انجام نوشتن
+ خط جدید، <Return> را تایپ کنید (این کلید روی صفحه کلید است
+که گاهی اوقات با عنوان "Enter" شناخته می شود).
+
+برای حذف کاراکترِ قبل از مکان نمای فعلی ، <DEL> را تایپ کنید. این کلید روی
+صفحه کلید است که معمولاً با برچسب "Backspace"است −− همان که معمولاً در خارج
+از Emacs نیز برای حذف آخرین حرفِ نوشته شده استفاده می کنید.
+
+
+همچنین ممکن است کلید دیگری روی صفحه کلید شما با عنوان <Delete> وجود داشته
+باشد، اما این چیزی نیست که ما در Emacs به آن <DEL> می گوییم.
+
+>> اکنون این کار را انجام دهید - چند کاراکتر را تایپ کنید، سپس آنها را حذف
+ کنید. چند بار <DEL> را تایپ کنید. نگران این فایل نباشید در حال تغییر؛
+ شما آموزش اصلی را تغییر نمی دهید. این کپی شخصی شما از آن است.
+
+وقتی نوشتن یک خط در متن بیش از حد طولانی می شود، خط بر روی سطر دوم صفحه
+"ادامه" می یابد. اگر از یک صفحه نمایش گرافیکی استفاده می کنید برای نشان
+دادن جایی که یک خط ادامه یافته است فلش های منحنی کوچکی در فضاهای باریک در
+دو طرف ناحیه متن (حاشیههای چپ و راست ) ظاهر می شوند. اگر از ترمینال متنی
+استفاده می کنید، خطِ ادامه یافته با علامت معکوس ('\') در سمت راست ستون
+صفحه نمایش نشان داده می شود.
+
+
+>> به نوشتن متن پس از رسیدن به انتهای خط ادامه دهید.
+خواهید دید که یک خطِ ادامه ظاهر می شود.
+
+>> از <DEL > برای حذف متن استفاده کنید تا زمانی که نوشته مجدداً روی یک خط
+ صفحه قرار گیرد. خط ادامه از بین می رود.
+
+شما می توانید حروف خط جدید را مانند هر حرف دیگری حذف کنید. حذف کاراکتر
+Newline بین دو خط آنها را با هم ادغام می کند. اگر خط ترکیبی به دست آمده
+بیش از حد طولانی باشد که در آن جا نمی شود، عرض صفحه نمایش، با یک خط ادامه،
+نمایش داده می شود.
+
+>> مکان نما را به ابتدای یک خط ببرید و <DEL> را تایپ کنید. این فرمان
+ آن خط را با خط قبلی ادغام می کند.
+
+>> حالا <Return> را تایپ کنید تا خط جدیدی را که حذف کرده اید دوباره وارد کنید.
+
+کلید <Return> ویژه است، زیرا با فشار دادن آن ممکن است بیش از این کار انجام شود.
+فقط یک کاراکتر Newline وارد کنید. بسته به متن اطراف،
+ممکن است بعد از کاراکتر Newline فضای خالی را وارد کند، به طوری که وقتی
+شما شروع به تایپ کردن در خط جدید می کنید، متن با خط قبلی آن ردیف می شود.
+ما به این رفتار (که در آن فشار دادن یک
+کلید چیزی بیش از وارد کردن کاراکتر مربوطه انجام می دهد) می گوییم "electric".
+
+>> در اینجا مثالی از الکتریکی بودن <Return> آورده شده است.
+ <Return> را در انتهای این خط تایپ کنید.
+
+باید ببینید که بعد از درج Newline فاصله ها هم درج می شوند،
+به طوری که مکان نمابه جای مناسب حرکت می کند.
+
+به یاد داشته باشید که به اکثر فرمانهایِ Emacs می توان تعداد تکرار، داده شود.
+این شامل کاراکترهای متنی نیز است. تکرار درج کاراکتر متنی برای چندین بار.
+
+
+>> اکنون آن را امتحان کنید - C-u 8 * را برای درج ******** تایپ کنید.
+
+شما اکنون ابتدایی ترین راه را برای تایپ با Emacs و تصحیح خطاها یاد گرفته اید.
+شما می توانید کلمات یا خطوط را نیز حذف کنید.
+در اینجا خلاصه ای از عملیات حذف آمده است:
+
+ <DEL> کاراکتر را درست قبل از مکان نما حذف می کنید.
+ C−d کاراکتر بعدی، بعد از مکان نما را حذف می کنید.
+
+ <M-<DEL کلمه را بلافاصله قبل از مکان نما حذف می کنید.
+ M-d کلمه بعدی را بعد از مکان نما حذف می کنید.
+
+ C-k از موقعیت مکان نما تا انتهای خط را حذف می کنید.
+ M-k از موقعیت مکان نما تا انتهای جمله را حذف میکنِید.
+
+توجه داشته باشید که <DEL> و C-d در مقابل <M-<DEL و M-d موازاتی را گسترش می دهند
+که با C-f و M-f شروع شده است (خوب، <DEL> واقعاً یک کاراکتر کنترلی نیست، اما
+بیایید نگران این نباشیم). C-k و M-k مانند C-e و M-e هستند، به نوعی، در آن
+خطوط با جملات جفت می شوند.
+
+شما همچنین می توانید یک بخش از متن را با یک روش یکسان حذف کنید . به انتهای
+یک قسمت حرکت کنید، و سپس <C-<SPC را تایپ کنید. (<SPC> کلید نوار Space
+است.) سپس مکان نما را به انتهای دیگر متنی که قصد دارید حذف کنید، ببرید.
+با انجام این کار، Emacs متن بین مکان نما وموقعیتی که با <C-<SPC تایپ کرده اید
+را مشخص می کند. در نهایت C-w را تایپ کنید. با این عمل متنِ بین دو موقعیت
+را حذف میکنید.
+
+
+>> مکان نما را در ابتدای پاراگراف قبلی به «ش» حرکت دهید.
+
+>> با تایپ <C-<SPC، در پایین صفحه نمایش Emacs باید یک پیام "Mark set" را
+ نمایش دهد.
+
+>> در خط دوم ازمتن، مکان نما را به «ی» در "یک"، حرکت دهید.
+
+>> C-w را تایپ کنید. با این کار متنی که از «ش» شروع می شود و درست قبل از
+«ی» به پایان می رسد را از بین می برید.
+
+تفاوت بین "کشتن" و "حذف" در همان متن این است که "کشته" را می توان دوباره
+درج کرد (در هر موقعیتی)، در حالی که چیزهای "حذف شده" را نمی توانید به این
+روش دوباره درج کنید (اما می توانید حذف را لغو کنید - در زیر ببینید.) درج
+مجدد متن کشته شده "yanking" نامیده می شود. ( به عنوان عقب نشینی یا عقب
+کشیدن متنی که برداشته شده است به آن فکرکن.)
+
+به طور کلی، فرمانهایِی که می توانند متن زیادی را حذف کنند، متن را «میکشند».
+(آنها به گونه ای تنظیم شده اند که بتوانید متن را باز گردانند)، در حالی که
+فرمانهایِی که فقط یک کاراکتر را حذف می کند، یا فقط خطوط و فاصله های خالی را
+حذف می کند، حذف را انجام می دهند (بنابراین نمی توانید آن متن را برگرداند).
+<DEL> و C-d در ساده ترین حالت، بدون هیچ آرگومان حذف را انجام می دهند.وقتی
+آرگومان به آنها داده می شود درعوض مکشند.
+
+>> مکان نما را به ابتدای خطی که خالی نیست حرکت دهید.
+سپس C-k را تایپ کنید تا متن روی آن خط حذف شود.
+
+>> بار دوم C-k را تایپ کنید. خواهید دید که Newline را می کشد که بعد از آن
+ خط است.
+
+توجه داشته باشید که یک C-k محتویات خط را می کشد و یک C-k ثانوی خود خط را
+می کشد و همه خطوط دیگر را به سمت بالا حرکت می دهد. C-kبه طور خاص با یک
+آرگومان عددی برخورد می کند: این تعداد خطوط و محتویات آنهارا میکشد. این
+صرفا یک تکرار نیست. C-u 2 C-k دو خط و Newline آنها را می کشد. دو بار تایپ
+کردن C-k این کار را نمی کند.
+
+میتوانید متن کشتهشده را در همان مکانی که در آن قرار داشت، باز گردانید.
+یا در جای دیگری از متنی که در حال ویرایش آن هستید، یا حتی در
+یک فایل متفاوت میتوانید یک متن را چندین بار باز گردانید. که
+چندین کپی از آن می سازد. با مراجعه به کتابچه راهنمایِ Emacs در موارد "کشتن" و
+انحرافِ "برش" و "چسباندن" میتوانید اطلاعات بیشتری کسب کنید.
+
+
+فرمانِ"yank" ,C-y است. آخرین متن کشته شده را در موقعیت مکان نما فعلی دوباره
+درج می کند.
+
+
+>> آن را امتحان کنید. C-y را تایپ کنید تا متن را به عقب برگردانید.
+
+اگر چندین C-k را پشت سر هم انجام دهید، تمام متن کشته شده ذخیره می شود،
+ به طوری که یک C-y همه خطوط را به یکباره انحراف می دهد.
+
+>> اکنون این کار را انجام دهید، C-k را چندین بار تایپ کنید.
+
+حال برای بازیابی آن متن کشته شده:
+
+>> C-y را تایپ کنید. سپس مکان نما را چند خط پایین ببرید و دوباره C-y را
+تایپ کنید اکنون نحوه کپی کردن متن را مشاهده می کنید.
+
+اگر متنی داشته باشید که می خواهید به عقب برگردید، چه کار می کنید چیز دیگری
+می کشید؟ C-y کشتن اخیر را از بین می برد. ولی متن قبلی گم نمی شود می توانید
+با استفاده از M-y به آن برگردید فرمان بعد از اینکه C-y را برای دریافت
+آخرین kill انجام دادید، تایپ کنید M-y آن متن یاک شده را با kill قبلی
+جایگزین می کند. تایپ کردن M-y بارها و بارها کشتارهای قبلی و قبلی را به
+ارمغان می آورد. وقتی به متن مورد نظر رسیدید، لازم نیست کاری انجام دهید تا
+نگهش دارید. فقط به ویرایش خود ادامه دهید و متن انحرافی را رها کنید.
+
+اگر تعداد M-y به دفعات کافی داشته باشید، به نقطه شروع باز می گردید
+(بیشترین کشتن اخیر).
+
+>> یک خط را بکشید، در اطراف حرکت کنید، یک خط دیگر را بکشید.
+ سپس C-y را انجام دهید تا دومین خط کشته شده را برگردانید.
+ سپس M-y را انجام دهید تا اولین خط کشته شده جایگزین آن شود.
+ M-y های بیشتری انجام دهید و ببینید چه چیزی به دست می آورید. به انجام
+ آنها ادامه دهید تا زمانی که خط کشتن دوم برمی گردد، و سپس چند بار دیگر.
+ اگر دوست دارید، میتوانید امتحان کنیدو به M-y آرگومانهای مثبت و منفی
+ بدهید.
+
+
+
+* لغو
+------
+
+اگر تغییری در متن ایجاد کنید و سپس تصمیم به برگرداندن آن تغییر بگیرید،
+شما می توانید تغییر را با فرمان (undo) C-/ لغو کنید.
+
+به طور معمول، C-/ تغییرات ایجاد شده توسط یک فرمان را خنثی می کند.
+اگر C-/ را چندین بار پشت سر هم، تکرار کنید هر تکرار یک فرمان دیگر
+را خنثی می کند.
+
+اما دو استثنا وجود دارد: فرمانهایِی که متن را تغییر نمی دهند
+به حساب نمی آیند (این شامل فرمانهایِ حرکت مکان نما و فرمانهایِ اسکرول می شود.)
+و کاراکترهای خود درج معمولاً در گروهای، تا ۲۰ تایی رسیدگی می شوند.
+(این برای کاهش تعداد C-/ هایی است که باید برای لغو درج متن) تایپ کنید.
+
+
+>> این خط را با C-k بکشید، سپس /-C را تایپ کنید تا دوباره ظاهر شود. ـ-C یک
+ فرمان لغو جایگزین است. دقیقاً مانند C-/ کار می کند. در برخی از پایانه
+ های متنی، تایپ C-/ در واقع _-C را به Emacs ارسال می کند. از طرف
+ دیگر، C-x u نیز دقیقاً مانند C-/ کار می کند، اما کمی کمتر است و راحتر
+ تایپ میشود.
+
+
+یک آرگومان عددی /-C-_ ، C, یا C-x u به عنوان یک تعداد تکرار عمل می کند.
+
+همانطور که می توانید حذف متن را لغو کنید، می توانید کشتن متن رانیز لغو کنید.
+تمایز بین کشتن چیزی و حذف آن در مورد C-y تأثیر می گذارد، برای لغو فرقی نمی کند.
+
+
+* فایل ها
+---------
+
+برای اینکه متنی را که ویرایش می کنید دائمی کنید، باید آن را در یک فایل
+قرار دهید. در غیر این صورت، با خروج از Emacs از بین می رود. برای اینکه متن
+خود را در یک فایل قرار دهید، قبل از وارد کردن فایل باید آن را "پیدا کنید".
+(به این "بازدید از فایل" نیز گفته می شود.)
+
+پیدا کردن یک فایل به این معنی است که شما محتویات فایل را در داخل Emacs
+می بینید از بسیاری جهات، گویی در حال ویرایش خود فایل هستید. با این حال،
+تغییراتی که با استفاده از Emacs ایجاد می کنید دائمی نمی شوند تا زمانی که
+فایل را "ذخیره" کنید. این به این دلیل است که شما بتوانید از ذخیره کردن
+فایل نیمه کامل اجتناب کنید. حتی هنگامی که فایل را ذخیره کردید Emacs فایل
+اصلی را با نام دیگری برایتان نگه میدارد، چون ممکن است بعداً تصمیم بگیرید که
+تغییرات شما اشتباه بوده است.
+
+اگر به پایین صفحه نگاه کنید، خطی را خواهید دید که
+با حروف "−" شروع می شود و چیزی مانند: "TUTORIAL ---:-" در آن را نشان می دهد.
+این قسمت از صفحه نمایش معمولاً نام فایلی که در حال حاضر از آن بازدید می
+کنید را نشان میدهد. شما اکنون در حال بازدید از کپی شخصی آموزش Emacs خود که
+"TUTORIAL" نام دارد هستید. وقتی شما یک فایل را با Emacs پیدا کردید، نام آن
+فایل بطور دقیق در همان نقطه ظاهر می شود.
+
+یک مورد خاص در مورد فرمان برای یافتن یک فایل این است که شما باید بگویید چه
+نام فایلی را می خواهید. ما می گوییم فرمان "خواندن یک ارگومان"
+(در این مورد، آرگومان نام فایل است.)بعد از تایپ فرمان.
+
+
+با C-x C-f یک فایل را پیدا کنید. Emacs از شما می خواهد که نام فایل را تایپ
+کنید. نام فایلی که تایپ می کنید در خط پایین صفحه نمایش ظاهر می شود. خط
+پایین زمانی که برای این نوع ورودی استفاده می شود، «مینی بافر» نامیده می
+شود. شما می توانید ازفرمانهایِ ویرایش معمولی Emacs برای ویرایش نام فایل
+استفاده کنید.
+
+در حالی که نام فایل (یا هر ورودی مینی بافر دیگر) را وارد می کنید،
+می توانید با C-g فرمان را لغو کنید.
+
+>> فرمانِ C-x C-f را تایپ کنید، سپس C-g را تایپ کنید. این فرمانِ مینی بافر
+ را لغو می کند، و همچنین فرمان C-x C-f را که مینی بافر از آن استفاده می
+ کرد را لغو می کند، بنابراین شما هیچ فایلی را پیدا نمی کنید.
+
+وقتی نام فایل را وارد کردید، <Return> را تایپ کنید تا
+آن را خاتمه دهید. مینی بافر ناپدید می شود و فرمان C-x C-f
+برای یافتن فایلی که انتخاب کرده اید اعمال میشود.
+
+محتویات فایل اکنون روی صفحه ظاهر می شود و می توانید آن را ویرایش کنید.
+هنگامی که می خواهید تغییرات خود را دائمی کنید، فرمان
+
+ C-x C-s فایل را ذخیره کنید
+
+این فرمان متن را در فایل درون Emacs کپی می کند. اولین باری که این
+کار را انجام دهید، Emacs نام فایل اصلی را به نام جدید تغییر می دهد بنابر این
+گم نمی شود. نام جدید با افزودن "~" به انتهای نام فایل اصلی ساخته می شود.
+هنگامی که ذخیره به پایان رسید، Emacs نام فایل نوشته شده را نمایش می دهد.
+
+
+>> <C-x C-s TUTORIAL <Return را تایپ کنید.
+ این فرمان باید این آموزش را در فایلی به نام TUTORIAL ذخیره کند و
+ و " Wrote...TUTORIAL " را در پایین صفحه نشان دهد.
+
+می توانید یک فایل موجود را پیدا کنید، آن را مشاهده یا ویرایش کنید. شما
+همچنین می توانید فایلی را پیدا کنید که قبلاً وجود ندارد. این راه ایجاد یک
+فایل با Emacs است: فایل را پیدا کنید که خالی شروع می شود و سپس شروع به درج
+متن در آن کنید، وقتی شما درخواست ذخیره فایل را می کنید، Emacs در واقع فایل
+را با متنی که شما درج کرده اید ایجاد می کند. از آن به بعد، می توانید خود
+را در حال ویرایش فایل موجود بدانید.
+
+
+
+* بافرها
+---------
+
+اگر فایل دومی را با C-x C-f پیدا کردید، فایل اول داخل Emacs باقی می ماند.
+برای برگشت مجدد به آن شما میتوانید با C-x C-f ، دو باره آن را پیدا کنید.
+با این روش می توانید تعداد زیادی فایل را در داخل Emacs باز کنید.
+
+ایمکس متن هر فایل را در یک مکان به نام "بافر" ذخیره می کند.
+پیدا کردن یک فایل، یک بافر جدید در Emacs ایجاد می کند. برای دیدن لیستی از
+بافرهایی که در حال حاضر وجود دارند، تایپ کنید
+
+ C-x C-b لیست بافرها
+
+>> اکنون C-x C-b را امتحان کنید.
+
+ببینید که چگونه هر بافر یک نام دارد و همچنین ممکن است نام فایلی که محتویات
+آن را نگه می دارد داشته باشد. هر متنی که در پنجره Emacs می بینید همیشه
+بخشی از یک بافر است.
+
+>> با تایپ C-x 1 میتوانید از شر لیست بافر خلاص شوید.
+
+هنگامی که چندین بافر دارید، در هر زمان تنها یکی از آنها "جاری" است. آن
+بافر همان بافری است که شما ویرایش می کنید. اگر می خواهید بافر دیگری را
+ویرایش کنید، باید به آن "سوئیچ" کنید. اگر می خواهید به یک بافر سوئیچ کنید
+که مربوط به یک فایل است، می توانید با مراجعه مجدد به آن فایل با C-x C-f
+این کار را انجام دهید. اما یک راه ساده تر وجود دارد: از فرمان C-x b
+استفاده کنید. در آن فرمان باید نام بافر را تایپ کنید.
+
+>> با تایپ C-x C-f foo <Return> فایلی به نام "foo" ایجاد کنید.
+ سپس C-x b TUTORIAL <Return> را تایپ کنید تا به این آموزش بازگردید.
+
+اغلب اوقات، نام بافر با نام فایل یکی است(بدون قسمت پوشه فایل). به هر حال،
+این همیشه درست نیست. لیست بافری که با C-x C-b ایجاد می کنید، نام هر دو
+بافر و نام فایل هر بافر را به شما نشان می دهد.
+
+برخی از بافرها با فایل ها مطابقت ندارند. بافری با نام "*Buffer List*" که
+حاوی لیست بافری است که شما آن را با C-x C-b ساخته اید هیچ فایلی ندارد. این
+TUTORIAL buffer که در ابتدا انجام شد فایلی ندارد، اما اکنون دارد، زیرا
+قبلا شما C-x C-s را تایپ کردید و آن را در یک فایل ذخیره کرده اید.
+
+بافر ی با نام "*Messages*" نیز با هیچ فایلی مطابقت ندارد. این بافر حاوی
+پیام هایی است که در در طول جلسه Emacs شما، در خط پایین ظاهر شده اند.
+
+>> حالا < C-x b *Messages* <Return را تایپ کنید تا به بافر پیام ها نگاه کنید.
+ سپس < C-x b TUTORIAL <Return را تایپ کنید تا به این آموزش بازگردید.
+
+اگر در متن یک فایل تغییراتی ایجاد کردید و سپس فایل دیگری را پیدا کنید، این
+فایل اول را ذخیره نمی کند. آن تغییرات در Emacs در بافر آن فایل باقی می ماند.
+ایجاد یا ویرایش فایل دوم بافر، هیچ تاثیری روی بافر فایل اول ندارد.
+این بسیار مفید است، اما این بدان معناست که شما به یک راه راحت برای ذخیره
+بافر فایل اول نیاز دارید. نیاز به برگشت به بافِر اول برای ذخیره آن توسط
+C-x C-s کمی دردسرامیز است. بنابراین فرمانِ زیر را داریم.
+
+ C-x s برخی از بافرها را ذخیره کنید
+
+فرمان C-x s در مورد هر بافری که حاوی تغییراتی که ذخیرِه
+نشده است از شما می پرسد.
+
+>> یک خط متن وارد کنید، سپس C-x s را تایپ کنید.
+ باید از شما بپرسد که آیا بافر با نام TUTORIAL را ذخیره می کنید یا خیر.
+ با تایپ "y" به سوال پاسخ مثبت دهید.
+
+
+* گسترش مجموعه فرمانها
+---------------------------
+
+فرمانهایِ Emacs بسیار بسیار بیشتر است از آنچه که امکان قراردادن همه آنها
+با کاراکترها ی کنترل و متا باشد.
+ Emacs با فرمان( X (eXtend این کار را میسر میکند.
+دو حالت برای این وجود دارد:
+
+ C-x کاراکتر برای eXtend. بعد از یک کاراکتر.
+ M-x فرمانی با نام eXtend. بعد از یک نام طولانی.
+
+اینها فرمانهایی هستند که عموما مفید هستند، اما کمتر ازفرمانهایی که قبلاً در
+مورد آنها آموخته اید استفاده می شوند. شما قبلاً چند مورد از انها را
+دیدهاید: برای مثال فرمان فایل C-x C-f را برای یافتن و C-x C-s را برای
+ذخیره کردن در نظر بگیرید. مثال دیگر، فرمان C-x C-c فرمان پایان دادن به جلسه
+Emacs است. (نگران از دست دادن تغییراتی که ایجاد کرده اید نباشید C-x C-c
+پیشنهاد می کند هر فایل تغییر یافته را ذخیره کنید قبل از اتمام جلسه Emacs.)
+
+
+اگر از صفحه نمایش گرافیکی استفاده می کنید، نیازی به فرمان خاصی برای انتقال
+از Emacs به برنامه دیگر ندارید. شما می توانید این کار رابا ماوس یا با
+فرمانهای مدیر پنجره انجام دهید. با این حال،اگر شمااز ترمینال متنی که می
+تواند تنها یک برنامه را در یک زمان نشان دهد، استفاده می کنیدباید Emacs را
+"تعلیق" کنید تا به هر برنامه دیگری بروید.
+
+فرمان C-z خروج *موقت*--- از Emacs است تا بتوانید به همان جلسه Emacs
+برگردید. هنگامی که Emacs روی یک ترمینال متنی اجرا می شود، C-z، Emacs را به
+حالت تعلیق در می آورد. یعنی به shell برمی گردد اما کار Emacs را از بین نمی
+برد. در رایج ترین shell ها، شما می تواند Emacs را با فرمان "fg" یا با
+"%emacs" از سر بگیرد.
+
+زمان استفاده از C-x C-c زمانی است که می خواهید از سیستم خارج شوید. همچنین
+برای خروج از Emacs و ویرایش سریع استفاده می شود، همانند یک ابزار مدیریت
+ایمیل.
+
+فرمانهای C-x زیادی وجود دارد. در اینجا لیستی از مواردی که یاد گرفته اید است:
+
+ C-x C-f فایل را پیدا کنید
+ C-x C-s ذخیره فایل
+ C-x s برخی از بافرها را ذخیره کنید
+ C-x C-b لیست بافرها
+ C-x b سوئیچ بافر
+ C-x C-c از Emacs خارج شوید
+ C-x 1 تمام پنجره ها را به جز یک حذف کنید
+ C-x u لغو فرمان
+
+فرمانهایی با نام eXtended فرمانهایی هستند که به طور مکرر کمتر مورد استفاده
+قرار می گیرند یا فرمانهایی که فقط در حالت های خاصی استفاده می شوند.
+به عنوان یک مثال فرمان replace-string است که یک رشته حروف را جایگزین رشته
+حروف دیگری در بافر می کند. وقتی M-x را تایپ میکنید، Emacs درپایین صفحه با
+نشان دادنِ M-x از شما میخواهد نام فرمان را تایپ کنید؛ در اینجا یعنی
+"replace-string". فقط " <repl s<TAB" را تایپ کنید و Emacs نام فرمان را
+تکمیل می کند. (<TAB> کلید Tab است که معمولاً جایگاهش بالای کلید CapsLock یا
+Shift نزدیک لبه سمت چپ کیبورد است.) نام کامل شده فرمان را با <Return>
+ارسال کنید.
+
+فرمان replace-string به دو آرگومان نیاز دارد -- رشته جایگزین شونده
+و رشته ای که جایگزین آن شود.شما باید هر آرگومان رابا <Return> پایان دهید.
+
+
+>> مکان نما را به خط خالی دو خط زیر این یکی ببرید.
+ سپس < M-x repl s<Return>changed<Return>altered<Return را تایپ کنید.
+
+
+ توجه کنید که این خط چگونه تغییر کرده است: شما کلمه "changed" را با"altered"
+ جایگزین کرده اید. هر جایی که بعد از موقعیت اولیه مکان نما رخ داد.
+
+
+* ذخیره خودکار
+---------------
+
+وقتی تغییراتی در فایلی ایجاد کرده اید، اما هنوز آنها را ذخیره نکرده اید،
+اگر کامپیوتر شما خراب شود، ممکن است از بین بروند. برای محافظت شما از آن،
+Emacs به صورت دوره ای برای هر فایلی که شما در حال ویرایش آن هستید یک فایل
+"ذخیره خودکار" می نویسد. نام فایل ذخیره خودکار دارای یک # در ابتدا و در
+پایان است؛ به عنوان مثال، اگر فایل شما "hello.c" نام دارد، ذخیره خودکار نام
+فایل "#hello.c#" است.وقتی فایل را به روش عادی ذخیره می کنید، Emacs فایل
+ذخیره خودکار خود را حذف می کند.
+
+اگر رایانه خراب شد، میتوانید ویرایش ذخیرهشده خودکار خود را توسط
+یافتن فایل به طور معمول (فایلی که در حال ویرایش آن بودید، نه ذخیره فایل
خودکار)
+و سپس تایپ M-x recover-this-file <Return> بازیابی کنید . هنگامی که
+تأیید آن را می خواهد،< yes<Return را تایپ کنید تابه ذخیره خودکار داده ها
+ادامه دهید و آن را بازیابی کنید.
+
+
+
+* منطقه اکو
+-----------
+
+اگر Emacs ببیند که به آرامی فرمانهای چند کاراکتری را تایپ می کنید، آن را
+انجام می دهد آنها را در پایین صفحه در ناحیه ای به نام "منطقه اکو" به شما
+نشان می دهد. ناحیه اکو حاوی خط پایین صفحه نمایش است.
+
+
+* خط حالت ( MODE LINE)
+-----------------------
+
+خط بلافاصله بالای ناحیه اکو "mode line" نامیده می شود.
+خط حالت چیزی شبیه به این می گوید:
+
+ TUTORIAL 63% L749 (Fundamental) −**:−
+
+این خط، اطلاعات مفیدی در مورد وضعیت Emacs
+و متنی که در حال ویرایش آن هستید می دهد.
+
+شما از قبل می دانید که نام فایل به چه معناست -- این فایلی است که شما دارید.
+ NN% موقعیت فعلی شما را در متن بافر نشان می دهد. این
+به این معنی است که NN درصد از بافر بالای صفحه نمایش است.
+اگر بالای بافر روی صفحه باشد، به آن "Top" بجای "0٪" می گوید.
+اگر پایین بافر روی صفحه باشد، "Bot" می گوید.
+اگر به بافری نگاه می کنید که آنقدر کوچک است که همه آن روی صفحه جا می شود,
+خط مد می گوید, "All".
+
+حرف L و ارقام، موقعیت را به طریق دیگری نشان می دهند: آنها شماره خط فعلیِ
+نقطه را نشان می دهند.
+
+ستاره های نزدیک به جلو به این معنی است که شما تغییراتی در متن ایجاد کرده
+اید. درست پس از بازدید یا ذخیره یک فایل، آن قسمت از خط حالت، با خطوط تیره
+و بدون ستاره نمایش داده می شود.
+
+آن بخشی از خط حالت که در داخل پرانتز است گویایِ
+حالتهای ویرایشی فعلی هستند. حالتی که الان استفاده می کنید Fundamental است.
+این نمونه ای از "مد ماژر (major mode)" است.
+
+ایمکس حالت های اصلی مختلف فراوان دارد. برخی از آنها برای
+ویرایش زبان های برنامه ریزی مختلف مثل Lisp هستند و برخی برای
+ویرایش متن هستند، و غیره.
+
+در هر زمان یک و تنها یک مد ماژر فعال است، و نام آن را همیشه می توان در خط
+حالت، دقیقاً در جایی که اکنون "Fundamental" است، یافت.
+
+هر مد ماژر باعث می شود که برخی از فرمانها متفاوت عمل کنند. مثلا، فرمانهایی
+برای ایجاد comment در یک برنامه وجود دارد و از آنجایی که هر کدام از
+زبانهای برنامه نویسی ایده متفاوتی در مورد آنچه که یک comment باید باشد
+دارند هر مد ماژر باید comment رابه طور متفاوتی درج کند. هر یک از مدهای
+ماژر نام یک فرمان توسعه یافته است، که چگونه می توانید به آن حالت تغییر
+دهید. برای مثال، M-x fundamental-mode فرمانی است که به حالت اساسی بروید.
+
+اگر قرار است متنی به زبان انسانی مانند: این فایل را ویرایش کنید، شما
+احتمالا باید از حالت متن استفاده کنید.
+
+>> تایپ کنید < M-x text-mode <Return
+
+نگران نباشید، هیچ یک از فرمانهایِ Emacs که یاد گرفته اید تغییر نمی کند اما
+می توانید مشاهده کنید که M-f و M-b اکنون آپاستروف ها به عنوان بخشی از
+کلمات رفتارمی کنند.قبلاً در حالت بنیادی، M-f و M-b مانند آپاستروف ها به عنوان
+جداکننده کلمات رفتار می کردند.
+
+
+اکثر فرمانها در هر مد ماژر "همان کار" را انجام می دهند، امادرمواردی مانند
+مثال بالا کمی متفاوت عمل می کنند.
+
+
+برای مشاهده اطلاعات امدادی در مد ماژر فعلی خود، C-h m را تایپ کنید.
+
+>> مکان نما را به خط زیر این خط ببرید.
+>> C-l C-l را تایپ کنید تا این خط به بالای صفحه نمایش داده شود.
+>> C-h m را تایپ کنید تا ببینید مدِ Text با مدِ Fundamental چه تفاوتی دارد.
+>> C-x 1 را تایپ کنید تا اطلاعات امدادی را از روی صفحه حذف کنید.
+
+مد ماژور را ماژر می نامند زیرا مد ماینور نیز وجود دارد. مدهای ماینور
+جایگزینی برای مدهای ماژور نیستند، فقط آنها را تغیر و تبدیل می کنند. هر مد
+ماینور می تواند خودش مستقلانه روشن یا خاموش گردد، مستقل ازتمام مدهای
+ماینور دیگر،و مستقل از مد ماژر فعلی شما. بنابراین می توانید از هیچ مد
+ماینور، یک مد ماینور و یاترکیبی از چند مد ماینور استفاده کنید.
+
+
+یک مد ماینور که بسیار مفید است، به خصوص برای ویرایش متن به زبان انسانی
+(human-language)، مد ماینورِ خود−پر کن (Auto Fill mode) است. وقتی این مد
+روشن است, و شما با نوشتن متن، خطی بوجود می آورد که خیلی طولانی است،Emacs
+خط بین کلمات را به طور خودکار می شکند.
+
+
+شما می توانید با انجام <M-x auto-fill-mode <Return, مد ماینور خودکار را
+روشن کنید. وقتی مد روشن است، می توانید با انجام < M-x auto-fill-mode
+<Return دوباره آن را خاموش کنید. اگر مد خاموش باشد، با این فرمان روشن می
+شود واگر مد روشن است، این فرمان آن را خاموش می کند. ما به این فرمان "تغییر
+مد" می گوییم.
+
+
+>>اکنون <M-x auto-fill-mode <Return را تایپ کنید.
+ سپس یک خط "asdf" را وارد کنید،آن را تکرار کنید تا زمانی که ببینید که به
+ دو خط تقسیم شده است. شماباید فاصله (spaces) بین آنها بوجود آورید، زیرا
+ Auto Fill خطوط را فقط درفواصل می شکند.
+
+حاشیه معمولاً از 70 کاراکتر تشکیل می شود، اما شما می توانید آن را با فرمان
+C-x f تغییر دهید. شما باید تنظیمات حاشیه ای را که می خواهید بدهید،همراه با
+استدلال عددی باشد.
+
+> C-x f را با آرگومان 20 تایپ کنید. (C-u 2 0 C-x f).
+ سپس مقداری متن را تایپ کنید و سپس ببینید Emacs، خطوط 20 کاراکتری را با
+ آن پر می کنید. سپس با استفاده از C-x f، دوباره حاشیه را به 70
+ برگردانید.
+
+
+اگر در وسط پاراگراف تغییراتی ایجاد کردید، حالت پر کردن خودکار دوباره آن را
+برای شماپر نمی کند. برای پر کردن مجدد پاراگراف، M-q (META-q) رابا مکان نما
+در داخل آن پاراگراف تایپ کنید.
+
+
+>> مکان نما را به پاراگراف قبلی ببرید و M-q را تایپ کنید.
+
+
+* جستجوکردن
+-----------
+
+با Emacs می توانید رشته ها را جستجو کند («رشته:string » گروهی از
+کاراکترهای به هم پیوسته است). جستجو به جلو در متن یا به عقب در متن.
+جستجوی برای یک string یک فرمان حرکت مکان نما است. آن مکان نما را به مکان
+بعدی که آن رشته ظاهر می شود حرکت می دهد.
+
+فرمان جستجوی Emacs "افزایشی" است. این بدان معنی است که
+جستجو زمانی اتفاق می افتد که رشته مورد نظر را برای جستجو تایپ می کنید.
+
+فرمان شروع جستجو C-s برای جستجوی جلو و C-r برای جستجوی معکوس است.
+اما صبر کنید! اکنون آنها را امتحان نکنید.
+
+وقتی C-s را تایپ می کنید متوجه خواهید شد که رشته "I-search" به صورت یک
+اعلان در ناحیه اکو ظاهر می شود. این به شما می گوید که Emacs مشغول کاری است
+که یک جستجوی افزایشی نامیده می شود و در آن حالت منتظر شماست تامورد جستجو
+را تایپ کنید. <Return> یک جستجو را خاتمه می دهد.
+
+>> اکنون C-s را برای شروع جستجو تایپ کنید
+ کلمه"مکان نما" را به آرامی، با تک تک حروف تایپ کنید، پس از تایپ
+ هر کاراکتر مکث کنید, تا متوجه آنچه برای مکان نما اتفاق می افتد شوید.
+ اکنون یک بار "مکان نما" را جستجو کرده اید.
+>> دوباره تایپ کنید C-s، برای جستجوی رخداد بعدی "مکان نما".
+>> اکنون <DEL> را چهار بار تایپ کنید و ببینید مکان نما چگونه حرکت می کند.
+>> برای پایان یافتن جستجو، <Return> را تایپ کنید.
+
+دیدید چه اتفاقی افتاد؟ Emacs، در یک جستجوی افزایشی، سعی می کند
+به رخداد رشته ای که تاکنون تایپ کرده اید بروید.
+برای رفتن به رخداد بعدی "مکان نما"، فقط C-s را دوباره تایپ کنید. اگر چنین
+رخدادی وجود ندارد، Emacs بوق میزند و به شما میگوید جستجو در حال حاضر
+"شکست" خرده است. C-g نیز جستجو را خاتمه می دهد.
+
+اگر در وسط یک جستجوی افزایشی هستید و <DEL> را تایپ کنید،
+جستجو، "عقب نشینی" به مکان قبلی میکند. اگر برای پیشرفت جستجوی رشته ای بعدی،
+بعد از اینکه C-s را تایپ کردید <DEL> را تایپ کنید،
+<DEL> مکان نما را به یک اتفاق قبلی برمی گرداند. اگر
+هیچ مورد قبلی در رشته جستجو وجود نداشته باشد، <DEL> آخرین کاراکتر را
+در رشته جستجوپاک می کند.
+ برای مثال، فرض کنید "م" را تایپ کرده اید
+برای اولین بار "م" را جستجو کنید. حالا اگر "ک" را تایپ کنید،
+مکان نما به اولین رخداد "مک" حرکت می کند. حالا <DEL> را تایپ کنید.
+این "ک" را از رشته جستجو پاک می کند و مکان نما به به اولین وقوع "م" در
+رشته جستجو به عقب برمی گردد.
+
+اگر در وسط یک جستجو هستید و کاراکتر کنترل یا متا را تایپ کنید،
+شخصیت (به استثنای معدود کاراکتر هایی که در یک جستجو خاص هستند،
+مانند C-s و C-r)، جستجو خاتمه می یابد.
+
+با C-s جستجو را بعد از موقعیت مکان نمای فعلی شروع می کنید و هر رخدادی از رشته
+بعد از مکان نما جستجو می شود. اگر می خواهید چیزی در متن قبل از مکان نما جستجو
+شود، به جای آن، C-r را تایپ کنید. همه چیزهایی که ما در مورد C-s
+گفته ایم برای C-r نیز صدق می کند، با این تفاوت که جهت جستجو معکوس می شود.
+
+
+* پنجره های چندگانه
+--------------------
+
+یکی از ویژگی های خوب Emacs این است که می توانید در یک زمان بیشتر ازیک
+پنجره روی صفحه نمایش نشان دهید. (توجه داشته باشید که Emacs ازاصطلاح
+"frames"-- که در بخش بعدی توضیح داده شده است -- برای برخی کاربرد دیگر
+"windows" گفته می شود. کتابچه راهنمای Emacs حاوی واژه نامه ای ازشرایط
+استفاده Emacs.)
+
+>> مکان نما را به این خط ببرید و C-l C-l را تایپ کنید.
+
+>> حالا C-x 2 را تایپ کنید که صفحه را به دو پنجره تقسیم می کند. هر دو
+ پنجره این آموزش را نمایش می دهند. مکان نمای ویرایش در پنجره بالا باقی
+ می ماند.
+
+>> تایپ C-M-v برای رفتن به پایین پنجره .
+ (اگر کلید META واقعی ندارید، <ESC> C-v را تایپ کنید.)
+
+>> تایپ کنید C-x o ("o" برای "other"دیگر ) برای حرکت مکان نما به پنجره پایین.
+>> از C-v و M-v در پنجره پایین برای پیمایش استفاده کنید.
+ به خواندن این فرمانهای عمل، در پنجره بالا ادامه دهید.
+
+>> دوباره C-x o را تایپ کنید تا مکان نما را به پنجره بالا برگردانید.
+ مکان نما در پنجره بالا دقیقاً همان جایی است که قبلا بود.
+
+می توانید از C-x o برای جابجایی بین پنجره ها استفاده کنید. "پنجره انتخاب
+شده" جایی که بیشترین ویرایش در آن صورت می گیرد، همان پنجره ای است که مکان
+نما برجسته است، و زمانی که تایپ نمی کنید چشمک می زند. پنجره های دیگر
+موقعیت مکان نمای خود را دارند. اگر Emacs را به صورت گرافیکی اجرا می کنید،
+آن مکان نماها به صورت کادرهای توخالی بدون چشمکزن ترسیم میشوند.
+
+
+فرمان C-M-v هنگامی که متن را در یک پنجره ویرایش می کنید و از پنجره دیگر
+فقط برای مرجع استفاده میکند، بدون ترک پنجره انتخاب شده، بسیار مفید است.
+می توانید متن را باC-M-v در پنجره دیگر پیمایش کنید.
+
+مثال C-M-v نمونه ای از یک کاراکتر CONTROL-META است. اگر یک کلید META
+(Alt یا) دارید با نگه داشتن هر دو کلید CONTRO و META و تایپ v,
+میتوانید C-M-v را تایپ کنید. مهم نیست که CONTROL اول باشد یا META.
+زیرا هر دوی این کلیدها با تغییر کاراکترهای شما عمل می کنند.
+
+
+اگر کلید META ندارید و به جای آن از <ESC> استفاده می کنید، مهم است که
+ترتیب را انجام دهید: باید <ESC> و سپس CONTROL-v را تایپ کنید، زیرا
+CONTROL-<ESC> v کار نخواهد کرد. این به این دلیل است که <ESC> در نوع خود
+یک کاراکتر است، نه یک کلید اصلاح کننده.
+
+>> با تایپ C-x 1 (در پنجره بالا) از شر پنجره پایین خلاص شوید.
+
+(اگر C-x 1 را در پنجره پایین تایپ کرده بودید، پنجره بالا خلاص می شد. این
+فرمان را به صورت «فقط یک پنجره را -- هم آنکه هم اکنون در آن هستم نگه دار»
+در نظر بگیرید.
+
+
+شما مجبور نیستید یک بافر را در هر دو پنجره نمایش دهید. اگر شما از C-x C-f
+برای پیدا کردن فایل در یک پنجره استفاده کنید، در پنجره دیگر تغییر ایجاد
+نمی شود. شما می توانید یک فایل را در هر پنجره به طور مستقل پیدا کنید.
+
+در اینجا روش دیگری برای استفاده از دو پنجره برای نمایش دو چیز مختلف وجود دارد:
+
+>> فرمان C-x 4 C-f و سپس نام یکی از فایل های خود را تایپ کنید.
+ با <Return> خاتمه دهید. ببینید فایل مشخص شده در پایین ظاهر می شود و
+ پنجره مکان نما نیز به آنجا می رود.
+
+>> برای بازگشت به پنجره بالا C-x o و برای حذف پنجره پایین C-x 1 را تایپ کنید.
+
+
+*فریم های چندگانه (MULTIPLE FRAMES)
+----------------------------------
+
+با Emacs همچنین می توانید چندین "فریم" ایجاد کنید. یک فریم، مجموعه ای
+ازپنجره ها است که فهرست آن: اسکرول بارها، اکو بار، و غیره است. در
+نمایشگرهای گرافیکی، چیزی که Emacs آن را "فریم" می نامد همان چیزی است که
+اکثر برنامه های کاربردی دیگر "پنجره" می نامند. فریم های گرافیکی متعدد را
+می توان همزمان بر روی صفحه نمایش نشان داد. در یک ترمینال متنی فقط یک فریم
+را می توان در یک زمان نشان داد.
+
+ >> C-x 5 2 را تایپ کنید.
+ مشاهده می کنید که یک فریم جدید روی صفحه نمایش شما ظاهر می شود.
+
+شما می توانید هر کاری را که در فریم اصلی انجام داده اید در فریم جدید
+انجام دهید. هیچ چیز خاصی در فریم اول وجود ندارد.
+
+>> C-x 5 0 را تایپ کنید.
+ این فریم انتخاب شده را حذف می کند.
+
+شما همچنین می توانید یک فریم را با استفاده از روش معمولی ارائه شده توسط
+سیستم گرافیکی (اغلب با کلیک روی دکمه ای با نشان "X" در گوشه بالای فریم)بردارید.
+اگر آخرین فریمِ کار Emacs را به این ترتیب حذف کنید،از Emacs خارج می شود.
+
+
+* سطوح ویرایش بازگشتی
+----------------------
+
+گاهی اوقات وارد چیزی می شوید که«سطوح ویرایش بازگشتی» نامیده می شود.
+این با کروشه های مربع در خط حالت اطراف پرانتزهای نام مد ماژر
+نشان داده می شود. برای مثال، ممکن است [(اساسی)] را به جای (اساسی) ببینید.
+
+برای خارج شدن از سطح ویرایش بازگشتی، <ESC> <ESC> <ESC> را تایپ کنید.
+این یک فرمان همه منظوره "برو بیرون" است. همچنین می توانید از آن برای
+حذف پنجره های اضافی و خارج شدن از مینی بافر استفاده کنید.
+
+>> تایپ M-x، تا وارد یک مینی بافر شوید. سپس برای بیرون رفتن
+ <ESC> <ESC> <ESC> را تایپ کنید.
+
+شما نمی توانید از C-g برای خارج شدن از یک سطح ویرایش بازگشتی استفاده کنید.
+زیرا C-g برای لغو فرمانها و آرگومان ها در داخل سطح ویرایش بازگشتی
+استفاده می شود.
+
+
+
+* دریافت کمک بیشتر
+-------------------
+
+در این آموزش سعی شده است اطلاعات کافی برای شروع به استفاده از Emacs در
+اختیار شما قرار گیرد. اطلاعات موجود در مورد Emacs آنقدر زیاد است که توضیح
+همه چیز در اینجا غیرممکن است. با این حال، ممکن است بخواهید اطلاعات بیشتری
+در مورد Emacs کسب کنید زیرا Emacs دارای بسیاری از ویژگی های مفید دیگر است.
+Emacs فرمانهایی رابرای خواندن اسناد در مورد Emacs ارائه می دهد. فرمانهای
+"help" همه با کاراکتر CONTROL-h که " کارکتر Help" نامیده می شود شروع
+می شوند.
+
+
+برای استفاده از ویژگی های Help، کاراکتر C-h و سپس کارکتری که می گوید شما
+چه نوع کمکی می خواهید را تایپ کنید. اگر شما واقعاً گم شده اید، ? C-h را
+تایپ کنید و Emacs به شما خواهد گفت که چه نوع کمکی می تواند ارائه دهد. اگر
+C-h را تایپ کرده اید و به این نتیجه رسیده اید که هیچ کمکی نمی خواهید، فقط
+برای لغو آن، C-g را تایپ کنید.
+
+(اگر C-h پیامی در مورد راهنما در پایین صفحه نمایش نمی دهد،
+روی صفحه به جای آن کلید F1 یا< M-x help <Return را تایپ کنید.)
+
+اساسی ترین ویژگی HELP یا کمک، C-h c است. تایپ کنید C-h، کاراکتر c و یک
+کاراکتر یا دنباله فرمان؛ سپس Emacs یک خلاصه بسیار کوتاه از شرح فرمان نمایش
+می دهد.
+
+ >> C-h c C-p را تایپ کنید.
+
+پیام باید چیزی شبیه این باشد:
+
+ C-p runs the command previous-line
+
+این "نام فرمان -- function" را به شما می گوید. نام فرمان از بابت کاری که
+فرمان انجام می دهد انتخاب می شود. نام فرمان می تواند به عنوان اطلاعات
+امدادی بسیار مختصر باشد - برای یادآوری فرمانهایی که شما قبلا یاد گرفته اید.
+
+
+فرمانهایی چند کاراکتری مانند C-x C-s و ESC>v> (به جای M-v،اگر کلید META یا
+ALT ندارید) همچنین پس از C-h c نیز مجاز هستند.
+
+
+برای دریافت اطلاعات بیشتر در مورد یک فرمان، به جای C-h c از C-h k استفاده
+کنید.
+
+
+>> C-h k C-p را تایپ کنید.
+
+این مستندات تابع و همچنین نام آن را در یک پنجره ایمکس نمایش می دهد.
+وقتی خواندن خروجی تمام شد، برای خلاص شدن از شر آن پنجره C-x 1 را تایپ کنید.
+شما مجبور نیستید این کار را به سرعت انجام دهید.
+می توانید در حین مراجعه به متن راهنما مقداری ویرایش انجام دهید
+و سپس C-x 1 را تایپ کنید.
+
+در اینجا چند گزینه مفید دیگر C-h وجود دارد:
+
+ C-h x یک فرمان را توصیف کنید. شما نام آن فرمان را تایپ می کنید.
+
+
+>> فرمانِ <C-h x previous-line <Return را تایپ کنید.
+ این تمام اطلاعات ایمکس را در مورد آن نمایش می دهد.
+ تابعی که فرمان C-p را پیاده سازی می کند.
+
+یک فرمان مشابه C-h v اطلاعات امدادیِ متغیرها "variables" را نمایش می دهد, و
+گاهی اجازه میدهد تا بتوانید مقادیر متغیرها را برای خاص کردن رفتار ایمکس
+تنظیم کنید. زمانی که ایمکس از آن درخواست کرد، باید نام متغیر را تایپ کنید.
+
+ C-h a فرمان Apropos.
+ یک کلمه کلیدی را تایپ کنید و ایمکس تمام فرمانهایی که نام
+ آنها حاوی آن کلمه کلیدی است لیست میکند. همه این فرمانها
+ را می توان با META-x احضار کرد. برای برخی از فرمانها،
+ Command Apropos نیز یک فهرست دنباله ای است از یک یا چند
+ کاراکتر که بافرمان یکسان اجرا می شود.
+
+
+>> فرمان <c-h a file <Return راتایپ کنید.
+
+در پنجره ای دیگر لیستی از تمام فرمانهایی M-x با "file" به نام آنها نمایش
+داده می شود. شما فرمانهای کاراکتر را در کنار آن نام فرمانهای مربوطه (مانند
+C-x C-f در کنار find-file) خواهید دید.
+
+
+>> برای پیمایش پنجره راهنما، C-M-v را تایپ کنید. این را چند بار انجام دهید.
+
+>> C-x 1 را تایپ کنید تا پنجره راهنما را حذف کنید.
+
+ C-h i خواندن کتابچه راهنمای همراه (با نام مستعار اطلاعات Info).
+ این فرمان شما را به یک بافر ویژه به نام "*info*" یا
+ اطلاعات قرار می دهد که در آن شما می توانید کتابچه
+ راهنمای بسته های نصب شده روی سیستم خود را بخوانید. برای
+ خواندن کتابچه راهنما < m emacs<Return را تایپ کنید. اگر
+ قبلاً از Info استفاده نکردهاید، Emacs و h را تایپ کنید,
+ آن شما را به یک راهنمای تور از امکانات حالت info می برد.
+ پس از اتمام این آموزش، باید به کتابچه راهنمای
+ Emacs Info به عنوان مستندات اصلی خود مراجعه کنید.
+
+
+* ویژگی های بیشتر
+------------------
+
+شما میتوانید با مطالعه کتابچه راهنمای ایمکس اطلاعات بیشتری کسب کنید. مانند
+یک کتاب چاپ شده، یا داخل Emacs (از منوی Help یا C-h r استفاده کنید). دو
+ویژگی که ممکن است به خصوص دوست داشته باشید، توانایی تکمیل "Completion" که
+باعث کمتر تایپ کردن میشود و dired، که مدیریت رسیدگی به فایل را ساده می کند.
+
+تکمیل راهی برای جلوگیری از تایپ غیر ضروری است. به عنوان مثال، اگر شما
+میخواهید به بافر *Messages* بیاید، میتوانید< C-x b *M<Tab را تایپ کنید، و
+Emacs بقیه نام بافر را تا جایی که می تواند از آنچه قبلاً تایپ کرده اید پر
+می کند. تکمیل کردن هم چنین برای نام فرمانها ونام فایل ها به کار می آید. در
+کتابچه راهنمای ایمکس، در بخشی به نام "تکمیل Completion " توضیح داده شده
+است.
+
+
+با Dired شما قادر هستید تا فایل ها (و به صورت اختیاری زیر شاخه های آن) را
+در یک فهرست کنید. در اطراف آن لیست حرکت کنید، بازدید کنید، نام خود را
+تغییر دهید، حذف کنید و به صورت دیگر روی فایل ها کار کنید. در کتابچه
+راهنمای ایمکس در بخشی به نام "Dired" توضیح داده شده است.
+
+
+این کتابچه راهنمای بسیاری از ویژگی های دیگر ایمکس را نیز توضیح می دهد.
+
+
+* جمع بندی
+------------
+
+برای خروج از Emacs از C-x C-c استفاده کنید.
+
+این آموزش برای همه کاربران جدید باید قابل درک باشد، بنابراین اگر
+چیز مبهمی پیدا کردید، ننشینید و تو سر خودتان نزنید - شکایت کنید!
+
+
+* کپی برداری
+--------------
+
+این آموزش حاصل زنجیره ای طولانی از آموزش های Emacs است که با کتابی به نوشته
+Stuart Cracraft سر چشمه گرفت.
+
+این نسخه از آموزش بخشی از GNU Emacs است. دارای حق چاپ است
+و با مجوز برای توزیع کپی در شرایط خاص همراه است:
+
+ Copyright (C) 1985, 1996, 1998, 2001-2022 Free Software Foundation, Inc.
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+لطفاً فایل COPYING را بخوانید و سپس کپی هایی از GNU Emacs را به دوستانتان
بدهید.
+کمک کنید تا از شر قاعدیِ اشتباهِ کپی رایت غربی راحت شویم.
+
+
+
+--- end of TUTORIAL.fa ---
+
+;;; Local Variables:
+;;; coding: utf-8
+;;; bidi-display-reordering: t
+;;; sentence-end-double-space: nil
+;;; bidi-paragraph-direction: nil
+;;; fill-column: 74
+;;; End:
diff --git a/etc/tutorials/TUTORIAL.translators
b/etc/tutorials/TUTORIAL.translators
index 64d71b61e84..30e169d263f 100644
--- a/etc/tutorials/TUTORIAL.translators
+++ b/etc/tutorials/TUTORIAL.translators
@@ -8,6 +8,7 @@ Maintainer: Ognyan Kulev <ogi@tower.3.bg>
* TUTORIAL.cn:
Author: Sun Yijiang <sunyijiang@gmail.com>
Maintainer: Xue Fuqiao <xfq.free@gmail.com>
+ Ruijie Yu <ruijie@netyu.xyz>
* TUTORIAL.cs:
Author: Milan Zamazal <pdm@zamazal.org>
@@ -30,6 +31,10 @@ Maintainer: Rafael Sepúlveda <drs@gnulinux.org.mx>
Author: Protesilaos Stavrou <info@protesilaos.com>
Maintainer: Protesilaos Stavrou <info@protesilaos.com>
+* TUTORIAL.fa:
+Author: Mohsen BANAN <emacs@mohsen.1.banan.byname.net>
+Maintainer: Mohsen BANAN <emacs@mohsen.1.banan.byname.net>
+
* TUTORIAL.fr:
Author: Éric Jacoboni <jaco@teaser.fr>
Maintainer: Éric Jacoboni <jaco@teaser.fr>
diff --git a/leim/MISC-DIC/CTLau-b5.html b/leim/MISC-DIC/CTLau-b5.html
index 117a6ee374e..f174e61db2b 100644
--- a/leim/MISC-DIC/CTLau-b5.html
+++ b/leim/MISC-DIC/CTLau-b5.html
@@ -197,7 +197,7 @@ GAM
GAN ����ڤy���������Ի����
GANG ���ü�]�ոe�C
GAP �F���
-GAT ���N��˸
+GAT ���N��˸��
GAU �s�¤E���e�����h���[�b�\�ϩS�����
GEI �X�O����J���ߦٰ��ծV�vɫ�H�ҧ���T���B��
GENG ���V
@@ -231,7 +231,7 @@ GWAAT
GWAI �d�u���cֺ�k�t�ӭy���ޮ۸��Q�����X�o�����
GWAN �g�x���u�Ҷv�p�O�a
GWANG �F
-GWAT �����]��
+GWAT �����]���
GWING ��
GWOH �L�G��q������
GWOK �����
diff --git a/lib-src/ebrowse.c b/lib-src/ebrowse.c
index 371fa6c938b..4b71f7447e0 100644
--- a/lib-src/ebrowse.c
+++ b/lib-src/ebrowse.c
@@ -3767,8 +3767,9 @@ main (int argc, char **argv)
if (n_input_files == input_filenames_size)
{
input_filenames_size = max (10, 2 * input_filenames_size);
- input_filenames = (char **) xrealloc ((void *)input_filenames,
- input_filenames_size);
+ input_filenames = xrealloc (input_filenames,
+ (input_filenames_size
+ * sizeof *input_filenames));
}
input_filenames[n_input_files++] = xstrdup (optarg);
break;
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 2c6b4e7a630..147ecbd7c1b 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -109,6 +109,7 @@ University of California, as described above. */
#include <limits.h>
#include <unistd.h>
#include <stdarg.h>
+#include <stdckdint.h>
#include <stdlib.h>
#include <string.h>
#include <sysstdio.h>
@@ -8038,7 +8039,7 @@ xnmalloc (ptrdiff_t nitems, ptrdiff_t item_size)
ptrdiff_t nbytes;
assume (0 <= nitems);
assume (0 < item_size);
- if (INT_MULTIPLY_WRAPV (nitems, item_size, &nbytes))
+ if (ckd_mul (&nbytes, nitems, item_size))
memory_full ();
return xmalloc (nbytes);
}
@@ -8049,7 +8050,7 @@ xnrealloc (void *pa, ptrdiff_t nitems, ptrdiff_t
item_size)
ptrdiff_t nbytes;
assume (0 <= nitems);
assume (0 < item_size);
- if (INT_MULTIPLY_WRAPV (nitems, item_size, &nbytes) || SIZE_MAX < nbytes)
+ if (ckd_mul (&nbytes, nitems, item_size) || SIZE_MAX < nbytes)
memory_full ();
void *result = realloc (pa, nbytes);
if (!result)
diff --git a/lib-src/movemail.c b/lib-src/movemail.c
index 8119046a916..6a772e9043e 100644
--- a/lib-src/movemail.c
+++ b/lib-src/movemail.c
@@ -62,6 +62,7 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include <stdlib.h>
#include <errno.h>
#include <time.h>
+#include <timespec.h>
#include <getopt.h>
#include <unistd.h>
@@ -469,7 +470,7 @@ main (int argc, char **argv)
that were set on the file. Better to just empty the file. */
if (unlink (inname) < 0 && errno != ENOENT)
#endif /* MAIL_UNLINK_SPOOL */
- creat (inname, 0600);
+ close (creat (inname, 0600));
}
#endif /* not MAIL_USE_SYSTEM_LOCK */
@@ -846,7 +847,7 @@ movemail_strftime (char *s, size_t size, char const *format,
static bool
mbx_delimit_begin (FILE *mbf)
{
- time_t now = time (NULL);
+ time_t now = current_timespec ().tv_sec;
struct tm *ltime = localtime (&now);
if (!ltime)
return false;
diff --git a/lib-src/update-game-score.c b/lib-src/update-game-score.c
index 83167f59b8a..4592e14d1d6 100644
--- a/lib-src/update-game-score.c
+++ b/lib-src/update-game-score.c
@@ -185,8 +185,6 @@ main (int argc, char **argv)
ptrdiff_t scorecount, scorealloc;
ptrdiff_t max_scores = MAX_SCORES;
- srand (time (0));
-
while ((c = getopt (argc, argv, "hrm:d:")) != -1)
switch (c)
{
@@ -485,8 +483,8 @@ lock_file (const char *filename, void **state)
return -1;
attempts = 0;
}
-
- sleep ((rand () & 1) + 1);
+ else
+ sleep (1);
}
close (fd);
diff --git a/lib/acl-internal.h b/lib/acl-internal.h
index c97e847cdc5..496e41d7b21 100644
--- a/lib/acl-internal.h
+++ b/lib/acl-internal.h
@@ -17,6 +17,11 @@
Written by Paul Eggert, Andreas Grünbacher, and Bruno Haible. */
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE, _GL_ATTRIBUTE_PURE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include "acl.h"
#include <stdlib.h>
@@ -60,9 +65,6 @@ extern int aclsort (int, int, struct acl *);
# define fchmod(fd, mode) (-1)
#endif
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef ACL_INTERNAL_INLINE
# define ACL_INTERNAL_INLINE _GL_INLINE
diff --git a/lib/acl.h b/lib/acl.h
index 58e5797179e..0d021200556 100644
--- a/lib/acl.h
+++ b/lib/acl.h
@@ -20,6 +20,11 @@
#ifndef _GL_ACL_H
#define _GL_ACL_H 1
+/* This file uses _GL_ATTRIBUTE_CONST. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <sys/types.h>
#include <sys/stat.h>
diff --git a/lib/attribute.h b/lib/attribute.h
index 130644d8798..9464fde0f30 100644
--- a/lib/attribute.h
+++ b/lib/attribute.h
@@ -41,6 +41,21 @@
These names begin with 'ATTRIBUTE_' to avoid name clashes. */
+/* This file uses _GL_ATTRIBUTE_ALLOC_SIZE, _GL_ATTRIBUTE_ALWAYS_INLINE,
+ _GL_ATTRIBUTE_ARTIFICIAL, _GL_ATTRIBUTE_COLD, _GL_ATTRIBUTE_CONST,
+ _GL_ATTRIBUTE_DEALLOC, _GL_ATTRIBUTE_DEPRECATED, _GL_ATTRIBUTE_ERROR,
+ _GL_ATTRIBUTE_WARNING, _GL_ATTRIBUTE_EXTERNALLY_VISIBLE,
+ _GL_ATTRIBUTE_FALLTHROUGH, _GL_ATTRIBUTE_FORMAT, _GL_ATTRIBUTE_LEAF,
+ _GL_ATTRIBUTE_MALLOC, _GL_ATTRIBUTE_MAY_ALIAS, _GL_ATTRIBUTE_MAYBE_UNUSED,
+ _GL_ATTRIBUTE_NODISCARD, _GL_ATTRIBUTE_NOINLINE, _GL_ATTRIBUTE_NONNULL,
+ _GL_ATTRIBUTE_NONSTRING, _GL_ATTRIBUTE_NOTHROW, _GL_ATTRIBUTE_PACKED,
+ _GL_ATTRIBUTE_PURE, _GL_ATTRIBUTE_RETURNS_NONNULL,
+ _GL_ATTRIBUTE_SENTINEL. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
+
/* =============== Attributes for specific kinds of functions ===============
*/
/* Attributes for functions that should not be used. */
diff --git a/lib/binary-io.h b/lib/binary-io.h
index 6f4db253354..855d6f819f0 100644
--- a/lib/binary-io.h
+++ b/lib/binary-io.h
@@ -17,6 +17,11 @@
#ifndef _BINARY_H
#define _BINARY_H
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE, _GL_UNUSED. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* For systems that distinguish between text and binary I/O.
O_BINARY is guaranteed by the gnulib <fcntl.h>. */
#include <fcntl.h>
@@ -25,9 +30,6 @@
so we include it here first. */
#include <stdio.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef BINARY_IO_INLINE
# define BINARY_IO_INLINE _GL_INLINE
diff --git a/lib/c++defs.h b/lib/c++defs.h
index 8ad46951ad4..458c014de5c 100644
--- a/lib/c++defs.h
+++ b/lib/c++defs.h
@@ -99,6 +99,12 @@
Example:
_GL_FUNCDECL_RPL (open, int, (const char *filename, int flags, ...)
_GL_ARG_NONNULL ((1)));
+
+ Note: Attributes, such as _GL_ATTRIBUTE_DEPRECATED, are supported in front
+ of a _GL_FUNCDECL_RPL invocation only in C mode, not in C++ mode. (That's
+ because
+ [[...]] extern "C" <declaration>;
+ is invalid syntax in C++.)
*/
#define _GL_FUNCDECL_RPL(func,rettype,parameters_and_attributes) \
_GL_FUNCDECL_RPL_1 (rpl_##func, rettype, parameters_and_attributes)
diff --git a/lib/c-ctype.h b/lib/c-ctype.h
index 35ca83d7d43..cb0f4f3ba1f 100644
--- a/lib/c-ctype.h
+++ b/lib/c-ctype.h
@@ -23,9 +23,11 @@
#ifndef C_CTYPE_H
#define C_CTYPE_H
-#ifndef _GL_INLINE_HEADER_BEGIN
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
#error "Please include config.h first."
#endif
+
_GL_INLINE_HEADER_BEGIN
#ifndef C_CTYPE_INLINE
# define C_CTYPE_INLINE _GL_INLINE
diff --git a/lib/c-strcase.h b/lib/c-strcase.h
index 9bcca01b27c..5dfa96c41f4 100644
--- a/lib/c-strcase.h
+++ b/lib/c-strcase.h
@@ -18,6 +18,11 @@
#ifndef C_STRCASE_H
#define C_STRCASE_H
+/* This file uses _GL_ATTRIBUTE_PURE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <stddef.h>
diff --git a/lib/careadlinkat.h b/lib/careadlinkat.h
index 201d0415fff..562cf013b75 100644
--- a/lib/careadlinkat.h
+++ b/lib/careadlinkat.h
@@ -20,6 +20,11 @@
#ifndef _GL_CAREADLINKAT_H
#define _GL_CAREADLINKAT_H
+/* This file uses HAVE_READLINKAT. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <fcntl.h>
#include <unistd.h>
diff --git a/lib/count-leading-zeros.h b/lib/count-leading-zeros.h
index 99151d695bf..9fe2a03ee09 100644
--- a/lib/count-leading-zeros.h
+++ b/lib/count-leading-zeros.h
@@ -19,12 +19,14 @@
#ifndef COUNT_LEADING_ZEROS_H
#define COUNT_LEADING_ZEROS_H 1
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <limits.h>
#include <stdlib.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef COUNT_LEADING_ZEROS_INLINE
# define COUNT_LEADING_ZEROS_INLINE _GL_INLINE
diff --git a/lib/count-one-bits.h b/lib/count-one-bits.h
index 01a60b77b85..2821a1fb75e 100644
--- a/lib/count-one-bits.h
+++ b/lib/count-one-bits.h
@@ -19,12 +19,14 @@
#ifndef COUNT_ONE_BITS_H
#define COUNT_ONE_BITS_H 1
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <limits.h>
#include <stdlib.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef COUNT_ONE_BITS_INLINE
# define COUNT_ONE_BITS_INLINE _GL_INLINE
diff --git a/lib/count-trailing-zeros.h b/lib/count-trailing-zeros.h
index ef8e164126a..9b33df76f6d 100644
--- a/lib/count-trailing-zeros.h
+++ b/lib/count-trailing-zeros.h
@@ -19,12 +19,14 @@
#ifndef COUNT_TRAILING_ZEROS_H
#define COUNT_TRAILING_ZEROS_H 1
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <limits.h>
#include <stdlib.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef COUNT_TRAILING_ZEROS_INLINE
# define COUNT_TRAILING_ZEROS_INLINE _GL_INLINE
diff --git a/lib/dirent-private.h b/lib/dirent-private.h
new file mode 100644
index 00000000000..012b6837198
--- /dev/null
+++ b/lib/dirent-private.h
@@ -0,0 +1,67 @@
+/* Private details of the DIR type.
+ Copyright (C) 2011-2023 Free Software Foundation, Inc.
+
+ This file is free software: you can redistribute it and/or modify
+ it under the terms of the GNU Lesser General Public License as
+ published by the Free Software Foundation; either version 2.1 of the
+ License, or (at your option) any later version.
+
+ This file is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public License
+ along with this program. If not, see <https://www.gnu.org/licenses/>. */
+
+#ifndef _DIRENT_PRIVATE_H
+#define _DIRENT_PRIVATE_H 1
+
+#if HAVE_DIRENT_H /* mingw */
+
+# undef DIR
+
+struct gl_directory
+{
+ /* File descriptor to close during closedir().
+ Needed for implementing fdopendir(). */
+ int fd_to_close;
+ /* Pointer to the real DIR. */
+ DIR *real_dirp;
+};
+
+/* Restore definition from dirent.h. */
+# define DIR struct gl_directory
+
+#else /* MSVC */
+
+# define WIN32_LEAN_AND_MEAN
+# include <windows.h>
+
+/* Don't assume that UNICODE is not defined. */
+# undef WIN32_FIND_DATA
+# define WIN32_FIND_DATA WIN32_FIND_DATAA
+
+struct gl_directory
+{
+ /* File descriptor to close during closedir().
+ Needed for implementing fdopendir(). */
+ int fd_to_close;
+ /* Status, or error code to produce in next readdir() call.
+ -2 means the end of the directory is already reached,
+ -1 means the entry was already filled by FindFirstFile,
+ 0 means the entry needs to be filled using FindNextFile.
+ A positive value is an error code. */
+ int status;
+ /* Handle, reading the directory, at current position. */
+ HANDLE current;
+ /* Found directory entry. */
+ WIN32_FIND_DATA entry;
+ /* Argument to pass to FindFirstFile. It consists of the absolutized
+ directory name, followed by a directory separator and the wildcards. */
+ char dir_name_mask[1];
+};
+
+#endif
+
+#endif /* _DIRENT_PRIVATE_H */
diff --git a/lib/dirent.in.h b/lib/dirent.in.h
index 2aaabd054a8..d409a031ec8 100644
--- a/lib/dirent.in.h
+++ b/lib/dirent.in.h
@@ -29,6 +29,12 @@
#ifndef _@GUARD_PREFIX@_DIRENT_H
#define _@GUARD_PREFIX@_DIRENT_H
+/* This file uses _GL_ATTRIBUTE_DEALLOC, _GL_ATTRIBUTE_MALLOC,
+ _GL_ATTRIBUTE_PURE, GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* Get ino_t. Needed on some systems, including glibc 2.8. */
#include <sys/types.h>
@@ -50,11 +56,24 @@ struct dirent
# define DT_LNK 10 /* symbolic link */
# define DT_SOCK 12 /* socket */
# define DT_WHT 14 /* whiteout */
-typedef struct gl_directory DIR;
# define GNULIB_defined_struct_dirent 1
# endif
#endif
+#if !@DIR_HAS_FD_MEMBER@
+# if !GNULIB_defined_DIR
+/* struct gl_directory is a type with a field 'int fd_to_close'.
+ It is needed for implementing fdopendir(). */
+struct gl_directory;
+# if @HAVE_DIRENT_H@
+# define DIR struct gl_directory
+# else
+typedef struct gl_directory DIR;
+# endif
+# define GNULIB_defined_DIR 1
+# endif
+#endif
+
/* _GL_ATTRIBUTE_DEALLOC (F, I) declares that the function returns pointers
that can be freed by passing them as the Ith argument to the
function F. */
@@ -143,7 +162,7 @@ _GL_CXXALIAS_SYS (opendir, DIR *, (const char *dir_name));
# endif
_GL_CXXALIASWARN (opendir);
#else
-# if @GNULIB_CLOSEDIR@ && __GNUC__ >= 11 && !defined opendir
+# if @GNULIB_CLOSEDIR@ && !GNULIB_defined_DIR && __GNUC__ >= 11 && !defined
opendir
/* For -Wmismatched-dealloc: Associate opendir with closedir or
rpl_closedir. */
_GL_FUNCDECL_SYS (opendir, DIR *,
@@ -161,10 +180,19 @@ _GL_WARN_ON_USE (opendir, "opendir is not portable - "
#endif
#if @GNULIB_READDIR@
-# if !@HAVE_READDIR@
+# if @REPLACE_READDIR@
+# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
+# undef readdir
+# define readdir rpl_readdir
+# endif
+_GL_FUNCDECL_RPL (readdir, struct dirent *, (DIR *dirp) _GL_ARG_NONNULL ((1)));
+_GL_CXXALIAS_RPL (readdir, struct dirent *, (DIR *dirp));
+# else
+# if !@HAVE_READDIR@
_GL_FUNCDECL_SYS (readdir, struct dirent *, (DIR *dirp) _GL_ARG_NONNULL ((1)));
-# endif
+# endif
_GL_CXXALIAS_SYS (readdir, struct dirent *, (DIR *dirp));
+# endif
_GL_CXXALIASWARN (readdir);
#elif defined GNULIB_POSIXCHECK
# undef readdir
@@ -175,10 +203,19 @@ _GL_WARN_ON_USE (readdir, "readdir is not portable - "
#endif
#if @GNULIB_REWINDDIR@
-# if !@HAVE_REWINDDIR@
+# if @REPLACE_REWINDDIR@
+# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
+# undef rewinddir
+# define rewinddir rpl_rewinddir
+# endif
+_GL_FUNCDECL_RPL (rewinddir, void, (DIR *dirp) _GL_ARG_NONNULL ((1)));
+_GL_CXXALIAS_RPL (rewinddir, void, (DIR *dirp));
+# else
+# if !@HAVE_REWINDDIR@
_GL_FUNCDECL_SYS (rewinddir, void, (DIR *dirp) _GL_ARG_NONNULL ((1)));
-# endif
+# endif
_GL_CXXALIAS_SYS (rewinddir, void, (DIR *dirp));
+# endif
_GL_CXXALIASWARN (rewinddir);
#elif defined GNULIB_POSIXCHECK
# undef rewinddir
diff --git a/lib/dirfd.c b/lib/dirfd.c
index b2b1d25cdbd..75b2163c353 100644
--- a/lib/dirfd.c
+++ b/lib/dirfd.c
@@ -22,6 +22,10 @@
#include <dirent.h>
#include <errno.h>
+#if GNULIB_defined_DIR
+# include "dirent-private.h"
+#endif
+
#ifdef __KLIBC__
# include <stdlib.h>
# include <io.h>
@@ -78,11 +82,17 @@ _gl_unregister_dirp_fd (int fd)
int
dirfd (DIR *dir_p)
{
+#if GNULIB_defined_DIR
+ int fd = dir_p->fd_to_close;
+ if (fd == -1)
+ errno = EINVAL;
+ return fd;
+#else
int fd = DIR_TO_FD (dir_p);
if (fd == -1)
-#ifndef __KLIBC__
+# ifndef __KLIBC__
errno = ENOTSUP;
-#else
+# else
{
struct dirp_fd_list *dirp_fd;
@@ -92,7 +102,8 @@ dirfd (DIR *dir_p)
errno = EINVAL;
}
-#endif
+# endif
return fd;
+#endif
}
diff --git a/lib/eloop-threshold.h b/lib/eloop-threshold.h
index 510f261795d..d9b154e4868 100644
--- a/lib/eloop-threshold.h
+++ b/lib/eloop-threshold.h
@@ -19,6 +19,11 @@
#ifndef _ELOOP_THRESHOLD_H
#define _ELOOP_THRESHOLD_H 1
+/* This file uses _GL_ATTRIBUTE_CONST. */
+#if !_LIBC && !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <limits.h>
#ifdef _LIBC
# include <sys/param.h>
diff --git a/lib/execinfo.in.h b/lib/execinfo.in.h
index ff9293b6327..56b04d1d862 100644
--- a/lib/execinfo.in.h
+++ b/lib/execinfo.in.h
@@ -20,9 +20,11 @@
#ifndef _GL_EXECINFO_H
#define _GL_EXECINFO_H
-#ifndef _GL_INLINE_HEADER_BEGIN
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
#error "Please include config.h first."
#endif
+
_GL_INLINE_HEADER_BEGIN
#ifndef _GL_EXECINFO_INLINE
# define _GL_EXECINFO_INLINE _GL_INLINE
diff --git a/lib/fcntl.in.h b/lib/fcntl.in.h
index e034eaf9f5a..d0bb85f30b5 100644
--- a/lib/fcntl.in.h
+++ b/lib/fcntl.in.h
@@ -74,6 +74,11 @@
#ifndef _@GUARD_PREFIX@_FCNTL_H
#define _@GUARD_PREFIX@_FCNTL_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#ifndef __GLIBC__ /* Avoid namespace pollution on glibc systems. */
# include <unistd.h>
#endif
diff --git a/lib/fdopendir.c b/lib/fdopendir.c
index aa841e3e819..0f43d6ff349 100644
--- a/lib/fdopendir.c
+++ b/lib/fdopendir.c
@@ -25,44 +25,27 @@
#if !HAVE_FDOPENDIR
-# include "openat.h"
-# include "openat-priv.h"
-# include "save-cwd.h"
+# if GNULIB_defined_DIR
+/* We are in control of the file descriptor of a DIR. */
-# if GNULIB_DIRENT_SAFER
-# include "dirent--.h"
-# endif
-
-# ifndef REPLACE_FCHDIR
-# define REPLACE_FCHDIR 0
-# endif
-
-static DIR *fdopendir_with_dup (int, int, struct saved_cwd const *);
-static DIR *fd_clone_opendir (int, struct saved_cwd const *);
-
-/* Replacement for POSIX fdopendir.
+# include "dirent-private.h"
- First, try to simulate it via opendir ("/proc/self/fd/..."). Failing
- that, simulate it by using fchdir metadata, or by doing
- save_cwd/fchdir/opendir(".")/restore_cwd.
- If either the save_cwd or the restore_cwd fails (relatively unlikely),
- then give a diagnostic and exit nonzero.
-
- If successful, the resulting stream is based on FD in
- implementations where streams are based on file descriptors and in
- applications where no other thread or signal handler allocates or
- frees file descriptors. In other cases, consult dirfd on the result
- to find out whether FD is still being used.
+# if !REPLACE_FCHDIR
+# error "unexpected configuration: GNULIB_defined_DIR but fchdir not
replaced"
+# endif
- Otherwise, this function works just like POSIX fdopendir.
+DIR *
+fdopendir (int fd)
+{
+ char const *name = _gl_directory_name (fd);
+ DIR *dirp = name ? opendir (name) : NULL;
+ if (dirp != NULL)
+ dirp->fd_to_close = fd;
+ return dirp;
+}
- W A R N I N G:
+# elif defined __KLIBC__
- Unlike other fd-related functions, this one places constraints on FD.
- If this function returns successfully, FD is under control of the
- dirent.h system, and the caller should not close or modify the state of
- FD other than by the dirent.h functions. */
-# ifdef __KLIBC__
# include <InnoTekLIBC/backend.h>
DIR *
@@ -96,7 +79,48 @@ fdopendir (int fd)
return dirp;
}
+
# else
+/* We are not in control of the file descriptor of a DIR, and therefore have to
+ play tricks with file descriptors before and after a call to opendir(). */
+
+# include "openat.h"
+# include "openat-priv.h"
+# include "save-cwd.h"
+
+# if GNULIB_DIRENT_SAFER
+# include "dirent--.h"
+# endif
+
+# ifndef REPLACE_FCHDIR
+# define REPLACE_FCHDIR 0
+# endif
+
+static DIR *fdopendir_with_dup (int, int, struct saved_cwd const *);
+static DIR *fd_clone_opendir (int, struct saved_cwd const *);
+
+/* Replacement for POSIX fdopendir.
+
+ First, try to simulate it via opendir ("/proc/self/fd/..."). Failing
+ that, simulate it by using fchdir metadata, or by doing
+ save_cwd/fchdir/opendir(".")/restore_cwd.
+ If either the save_cwd or the restore_cwd fails (relatively unlikely),
+ then give a diagnostic and exit nonzero.
+
+ If successful, the resulting stream is based on FD in
+ implementations where streams are based on file descriptors and in
+ applications where no other thread or signal handler allocates or
+ frees file descriptors. In other cases, consult dirfd on the result
+ to find out whether FD is still being used.
+
+ Otherwise, this function works just like POSIX fdopendir.
+
+ W A R N I N G:
+
+ Unlike other fd-related functions, this one places constraints on FD.
+ If this function returns successfully, FD is under control of the
+ dirent.h system, and the caller should not close or modify the state of
+ FD other than by the dirent.h functions. */
DIR *
fdopendir (int fd)
{
@@ -119,7 +143,6 @@ fdopendir (int fd)
return dir;
}
-# endif
/* Like fdopendir, except that if OLDER_DUPFD is not -1, it is known
to be a dup of FD which is less than FD - 1 and which will be
@@ -188,7 +211,7 @@ fd_clone_opendir (int fd, struct saved_cwd const *cwd)
if (proc_file != buf)
free (proc_file);
}
-# if REPLACE_FCHDIR
+# if REPLACE_FCHDIR
if (! dir && EXPECTED_ERRNO (saved_errno))
{
char const *name = _gl_directory_name (fd);
@@ -203,7 +226,7 @@ fd_clone_opendir (int fd, struct saved_cwd const *cwd)
return dp;
}
-# endif
+# endif
errno = saved_errno;
return dir;
}
@@ -223,6 +246,8 @@ fd_clone_opendir (int fd, struct saved_cwd const *cwd)
}
}
+# endif
+
#else /* HAVE_FDOPENDIR */
# include <errno.h>
diff --git a/lib/file-has-acl.c b/lib/file-has-acl.c
index b31a2ea2523..4cddc80bd13 100644
--- a/lib/file-has-acl.c
+++ b/lib/file-has-acl.c
@@ -29,7 +29,10 @@
#include "acl-internal.h"
-#if USE_ACL && GETXATTR_WITH_POSIX_ACLS
+#include "minmax.h"
+
+#if USE_ACL && HAVE_LINUX_XATTR_H && HAVE_LISTXATTR
+# include <stdckdint.h>
# include <string.h>
# include <arpa/inet.h>
# include <sys/xattr.h>
@@ -44,6 +47,20 @@ enum {
ACE4_IDENTIFIER_GROUP = 0x00000040
};
+/* Return true if ATTR is in the set represented by the NUL-terminated
+ strings in LISTBUF, which is of size LISTSIZE. */
+
+static bool
+have_xattr (char const *attr, char const *listbuf, ssize_t listsize)
+{
+ char const *blim = listbuf + listsize;
+ for (char const *b = listbuf; b < blim; b += strlen (b) + 1)
+ for (char const *a = attr; *a == *b; a++, b++)
+ if (!*a)
+ return true;
+ return false;
+}
+
/* Return 1 if given ACL in XDR format is non-trivial, 0 if it is trivial.
-1 upon failure to determine it. Possibly change errno. Assume that
the ACL is valid, except avoid undefined behavior even if invalid.
@@ -137,37 +154,77 @@ file_has_acl (char const *name, struct stat const *sb)
if (! S_ISLNK (sb->st_mode))
{
-# if GETXATTR_WITH_POSIX_ACLS
-
- ssize_t ret;
+# if HAVE_LINUX_XATTR_H && HAVE_LISTXATTR
int initial_errno = errno;
- ret = getxattr (name, XATTR_NAME_POSIX_ACL_ACCESS, NULL, 0);
- if (ret < 0 && errno == ENODATA)
- ret = 0;
- else if (ret > 0)
- return 1;
-
- if (ret == 0 && S_ISDIR (sb->st_mode))
+ /* The max length of a trivial NFSv4 ACL is 6 words for owner,
+ 6 for group, 7 for everyone, all times 2 because there are
+ both allow and deny ACEs. There are 6 words for owner
+ because of type, flag, mask, wholen, "OWNER@"+pad and
+ similarly for group; everyone is another word to hold
+ "EVERYONE@". */
+ typedef uint32_t trivial_NFSv4_xattr_buf[2 * (6 + 6 + 7)];
+
+ /* A buffer large enough to hold any trivial NFSv4 ACL,
+ and also useful as a small array of char. */
+ union {
+ trivial_NFSv4_xattr_buf xattr;
+ char ch[sizeof (trivial_NFSv4_xattr_buf)];
+ } stackbuf;
+
+ char *listbuf = stackbuf.ch;
+ ssize_t listbufsize = sizeof stackbuf.ch;
+ char *heapbuf = NULL;
+ ssize_t listsize;
+
+ /* Use listxattr first, as this means just one syscall in the
+ typical case where the file lacks an ACL. Try stackbuf
+ first, falling back on malloc if stackbuf is too small. */
+ while ((listsize = listxattr (name, listbuf, listbufsize)) < 0
+ && errno == ERANGE)
{
- ret = getxattr (name, XATTR_NAME_POSIX_ACL_DEFAULT, NULL, 0);
- if (ret < 0 && errno == ENODATA)
- ret = 0;
- else if (ret > 0)
- return 1;
+ free (heapbuf);
+ ssize_t newsize = listxattr (name, NULL, 0);
+ if (newsize <= 0)
+ return newsize;
+
+ /* Grow LISTBUFSIZE to at least NEWSIZE. Grow it by a
+ nontrivial amount too, to defend against denial of
+ service by an adversary that fiddles with ACLs. */
+ bool overflow = ckd_add (&listbufsize, listbufsize, listbufsize >>
1);
+ listbufsize = MAX (listbufsize, newsize);
+ if (overflow || SIZE_MAX < listbufsize)
+ {
+ errno = ENOMEM;
+ return -1;
+ }
+
+ listbuf = heapbuf = malloc (listbufsize);
+ if (!listbuf)
+ return -1;
}
- if (ret < 0)
+ /* In Fedora 39, a file can have both NFSv4 and POSIX ACLs,
+ but if it has an NFSv4 ACL that's the one that matters.
+ In earlier Fedora the two types of ACLs were mutually exclusive.
+ Attempt to work correctly on both kinds of systems. */
+ bool nfsv4_acl
+ = 0 < listsize && have_xattr (XATTR_NAME_NFSV4_ACL, listbuf, listsize);
+ int ret
+ = (listsize <= 0 ? listsize
+ : (nfsv4_acl
+ || have_xattr (XATTR_NAME_POSIX_ACL_ACCESS, listbuf, listsize)
+ || (S_ISDIR (sb->st_mode)
+ && have_xattr (XATTR_NAME_POSIX_ACL_DEFAULT,
+ listbuf, listsize))));
+ free (heapbuf);
+
+ /* If there is an NFSv4 ACL, follow up with a getxattr syscall
+ to see whether the NFSv4 ACL is nontrivial. */
+ if (nfsv4_acl)
{
- /* Check for NFSv4 ACLs. The max length of a trivial
- ACL is 6 words for owner, 6 for group, 7 for everyone,
- all times 2 because there are both allow and deny ACEs.
- There are 6 words for owner because of type, flag, mask,
- wholen, "OWNER@"+pad and similarly for group; everyone is
- another word to hold "EVERYONE@". */
- uint32_t xattr[2 * (6 + 6 + 7)];
-
- ret = getxattr (name, XATTR_NAME_NFSV4_ACL, xattr, sizeof xattr);
+ ret = getxattr (name, XATTR_NAME_NFSV4_ACL,
+ stackbuf.xattr, sizeof stackbuf.xattr);
if (ret < 0)
switch (errno)
{
@@ -177,7 +234,7 @@ file_has_acl (char const *name, struct stat const *sb)
else
{
/* It looks like a trivial ACL, but investigate further. */
- ret = acl_nfs4_nontrivial (xattr, ret);
+ ret = acl_nfs4_nontrivial (stackbuf.xattr, ret);
if (ret < 0)
{
errno = EINVAL;
diff --git a/lib/filemode.h b/lib/filemode.h
index 15a8dcc3760..3e1d9903eac 100644
--- a/lib/filemode.h
+++ b/lib/filemode.h
@@ -17,6 +17,12 @@
along with this program. If not, see <https://www.gnu.org/licenses/>. */
#ifndef FILEMODE_H_
+# define FILEMODE_H_
+
+/* This file uses HAVE_DECL_STRMODE. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
# include <sys/types.h>
# include <sys/stat.h>
diff --git a/lib/filevercmp.h b/lib/filevercmp.h
index 6b81ab32a7f..9e052bdd08c 100644
--- a/lib/filevercmp.h
+++ b/lib/filevercmp.h
@@ -20,6 +20,11 @@
#ifndef FILEVERCMP_H
#define FILEVERCMP_H
+/* This file uses _GL_ATTRIBUTE_PURE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <stddef.h>
/* Compare strings A and B as file names containing version numbers,
diff --git a/lib/flexmember.h b/lib/flexmember.h
index a6cc876a6d5..8c5915ecf9c 100644
--- a/lib/flexmember.h
+++ b/lib/flexmember.h
@@ -20,6 +20,11 @@
Written by Paul Eggert. */
+/* This file uses _Alignof. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <stddef.h>
/* Nonzero multiple of alignment of TYPE, suitable for FLEXSIZEOF below.
diff --git a/lib/fpending.h b/lib/fpending.h
index 5e860db6810..1604ca0b7af 100644
--- a/lib/fpending.h
+++ b/lib/fpending.h
@@ -18,6 +18,12 @@
Written by Jim Meyering. */
+/* This file uses _GL_ATTRIBUTE_PURE, HAVE_STDIO_EXT_H,
+ HAVE_DECL___FPENDING. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <stddef.h>
#include <stdio.h>
#if HAVE_STDIO_EXT_H
diff --git a/lib/gettime.c b/lib/gettime.c
index f86cc4efbff..ec40ff903e1 100644
--- a/lib/gettime.c
+++ b/lib/gettime.c
@@ -35,8 +35,8 @@ gettime (struct timespec *ts)
#else
struct timeval tv;
gettimeofday (&tv, NULL);
- ts->tv_sec = tv.tv_sec;
- ts->tv_nsec = tv.tv_usec * 1000;
+ *ts = (struct timespec) { .tv_sec = tv.tv_sec,
+ .tv_nsec = tv.tv_usec * 1000 };
#endif
}
diff --git a/lib/gettimeofday.c b/lib/gettimeofday.c
index d896ec132b9..c71629cbc57 100644
--- a/lib/gettimeofday.c
+++ b/lib/gettimeofday.c
@@ -113,8 +113,10 @@ gettimeofday (struct timeval *restrict tv, void *restrict
tz)
ULONGLONG since_1970 =
since_1601 - (ULONGLONG) 134774 * (ULONGLONG) 86400 * (ULONGLONG) 10000000;
ULONGLONG microseconds_since_1970 = since_1970 / (ULONGLONG) 10;
- tv->tv_sec = microseconds_since_1970 / (ULONGLONG) 1000000;
- tv->tv_usec = microseconds_since_1970 % (ULONGLONG) 1000000;
+ *tv = (struct timeval) {
+ .tv_sec = microseconds_since_1970 / (ULONGLONG) 1000000,
+ .tv_usec = microseconds_since_1970 % (ULONGLONG) 1000000
+ };
return 0;
@@ -127,10 +129,7 @@ gettimeofday (struct timeval *restrict tv, void *restrict
tz)
struct timeval otv;
int result = gettimeofday (&otv, (struct timezone *) tz);
if (result == 0)
- {
- tv->tv_sec = otv.tv_sec;
- tv->tv_usec = otv.tv_usec;
- }
+ *tv = otv;
# else
int result = gettimeofday (tv, (struct timezone *) tz);
# endif
@@ -143,8 +142,7 @@ gettimeofday (struct timeval *restrict tv, void *restrict
tz)
# error "Only 1-second nominal clock resolution found. Is that intended?" \
"If so, compile with the -DOK_TO_USE_1S_CLOCK option."
# endif
- tv->tv_sec = time (NULL);
- tv->tv_usec = 0;
+ *tv = (struct timeval) { .tv_sec = time (NULL), .tv_usec = 0 };
return 0;
diff --git a/lib/gnulib.mk.in b/lib/gnulib.mk.in
index 53a821b141e..a25bee25aae 100644
--- a/lib/gnulib.mk.in
+++ b/lib/gnulib.mk.in
@@ -147,6 +147,7 @@
# stat-time \
# std-gnu11 \
# stdbool \
+# stdckdint \
# stddef \
# stdio \
# stpcpy \
@@ -156,7 +157,7 @@
# sys_stat \
# sys_time \
# tempname \
-# time \
+# time-h \
# time_r \
# time_rz \
# timegm \
@@ -167,7 +168,8 @@
# update-copyright \
# utimensat \
# vla \
-# warnings
+# warnings \
+# year2038
MOSTLYCLEANFILES += core *.stackdump
@@ -221,6 +223,7 @@ DBUS_LIBS = @DBUS_LIBS@
DBUS_OBJ = @DBUS_OBJ@
DEFS = @DEFS@
DESLIB = @DESLIB@
+DIR_HAS_FD_MEMBER = @DIR_HAS_FD_MEMBER@
DOCMISC_W32 = @DOCMISC_W32@
DUMPING = @DUMPING@
DYNAMIC_LIB_SECONDARY_SUFFIX = @DYNAMIC_LIB_SECONDARY_SUFFIX@
@@ -444,6 +447,7 @@ GL_GNULIB_MBSSEP = @GL_GNULIB_MBSSEP@
GL_GNULIB_MBSSPN = @GL_GNULIB_MBSSPN@
GL_GNULIB_MBSSTR = @GL_GNULIB_MBSSTR@
GL_GNULIB_MBSTOK_R = @GL_GNULIB_MBSTOK_R@
+GL_GNULIB_MBSTOWCS = @GL_GNULIB_MBSTOWCS@
GL_GNULIB_MBTOWC = @GL_GNULIB_MBTOWC@
GL_GNULIB_MDA_ACCESS = @GL_GNULIB_MDA_ACCESS@
GL_GNULIB_MDA_CHDIR = @GL_GNULIB_MDA_CHDIR@
@@ -595,6 +599,7 @@ GL_GNULIB_STRVERSCMP = @GL_GNULIB_STRVERSCMP@
GL_GNULIB_SYMLINK = @GL_GNULIB_SYMLINK@
GL_GNULIB_SYMLINKAT = @GL_GNULIB_SYMLINKAT@
GL_GNULIB_SYSTEM_POSIX = @GL_GNULIB_SYSTEM_POSIX@
+GL_GNULIB_TIME = @GL_GNULIB_TIME@
GL_GNULIB_TIMEGM = @GL_GNULIB_TIMEGM@
GL_GNULIB_TIMESPEC_GET = @GL_GNULIB_TIMESPEC_GET@
GL_GNULIB_TIMESPEC_GETRES = @GL_GNULIB_TIMESPEC_GETRES@
@@ -688,6 +693,7 @@ HAVE_DECL_MEMMEM = @HAVE_DECL_MEMMEM@
HAVE_DECL_MEMRCHR = @HAVE_DECL_MEMRCHR@
HAVE_DECL_OBSTACK_PRINTF = @HAVE_DECL_OBSTACK_PRINTF@
HAVE_DECL_POSIX_SPAWN_SETSID = @HAVE_DECL_POSIX_SPAWN_SETSID@
+HAVE_DECL_PROGRAM_INVOCATION_NAME = @HAVE_DECL_PROGRAM_INVOCATION_NAME@
HAVE_DECL_PUTW = @HAVE_DECL_PUTW@
HAVE_DECL_SETENV = @HAVE_DECL_SETENV@
HAVE_DECL_SETHOSTNAME = @HAVE_DECL_SETHOSTNAME@
@@ -955,6 +961,7 @@ LIB_WSOCK32 = @LIB_WSOCK32@
LIB_XATTR = @LIB_XATTR@
LIMITS_H = @LIMITS_H@
LN_S_FILEONLY = @LN_S_FILEONLY@
+LOCALE_FR_UTF8 = @LOCALE_FR_UTF8@
LTLIBGMP = @LTLIBGMP@
LTLIBINTL = @LTLIBINTL@
LTLIBOBJS = @LTLIBOBJS@
@@ -1126,7 +1133,9 @@ REPLACE_LSEEK = @REPLACE_LSEEK@
REPLACE_LSTAT = @REPLACE_LSTAT@
REPLACE_MALLOC_FOR_MALLOC_GNU = @REPLACE_MALLOC_FOR_MALLOC_GNU@
REPLACE_MALLOC_FOR_MALLOC_POSIX = @REPLACE_MALLOC_FOR_MALLOC_POSIX@
+REPLACE_MBSTOWCS = @REPLACE_MBSTOWCS@
REPLACE_MBTOWC = @REPLACE_MBTOWC@
+REPLACE_MB_CUR_MAX = @REPLACE_MB_CUR_MAX@
REPLACE_MEMCHR = @REPLACE_MEMCHR@
REPLACE_MEMMEM = @REPLACE_MEMMEM@
REPLACE_MEMPCPY = @REPLACE_MEMPCPY@
@@ -1163,6 +1172,7 @@ REPLACE_RAISE = @REPLACE_RAISE@
REPLACE_RANDOM = @REPLACE_RANDOM@
REPLACE_RANDOM_R = @REPLACE_RANDOM_R@
REPLACE_READ = @REPLACE_READ@
+REPLACE_READDIR = @REPLACE_READDIR@
REPLACE_READLINK = @REPLACE_READLINK@
REPLACE_READLINKAT = @REPLACE_READLINKAT@
REPLACE_REALLOCARRAY = @REPLACE_REALLOCARRAY@
@@ -1172,6 +1182,7 @@ REPLACE_REALPATH = @REPLACE_REALPATH@
REPLACE_REMOVE = @REPLACE_REMOVE@
REPLACE_RENAME = @REPLACE_RENAME@
REPLACE_RENAMEAT = @REPLACE_RENAMEAT@
+REPLACE_REWINDDIR = @REPLACE_REWINDDIR@
REPLACE_RMDIR = @REPLACE_RMDIR@
REPLACE_SELECT = @REPLACE_SELECT@
REPLACE_SETENV = @REPLACE_SETENV@
@@ -1209,6 +1220,7 @@ REPLACE_STRTOUMAX = @REPLACE_STRTOUMAX@
REPLACE_STRUCT_TIMEVAL = @REPLACE_STRUCT_TIMEVAL@
REPLACE_SYMLINK = @REPLACE_SYMLINK@
REPLACE_SYMLINKAT = @REPLACE_SYMLINKAT@
+REPLACE_TIME = @REPLACE_TIME@
REPLACE_TIMEGM = @REPLACE_TIMEGM@
REPLACE_TIMESPEC_GET = @REPLACE_TIMESPEC_GET@
REPLACE_TMPFILE = @REPLACE_TMPFILE@
@@ -1730,6 +1742,7 @@ dirent.h: dirent.in.h $(top_builddir)/config.status
$(CXXDEFS_H) $(ARG_NONNULL_H
-e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
-e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
-e 's|@''NEXT_DIRENT_H''@|$(NEXT_DIRENT_H)|g' \
+ -e 's/@''DIR_HAS_FD_MEMBER''@/$(DIR_HAS_FD_MEMBER)/g' \
-e 's/@''GNULIB_OPENDIR''@/$(GL_GNULIB_OPENDIR)/g' \
-e 's/@''GNULIB_READDIR''@/$(GL_GNULIB_READDIR)/g' \
-e 's/@''GNULIB_REWINDDIR''@/$(GL_GNULIB_REWINDDIR)/g' \
@@ -1748,6 +1761,8 @@ dirent.h: dirent.in.h $(top_builddir)/config.status
$(CXXDEFS_H) $(ARG_NONNULL_H
-e 's|@''HAVE_SCANDIR''@|$(HAVE_SCANDIR)|g' \
-e 's|@''HAVE_ALPHASORT''@|$(HAVE_ALPHASORT)|g' \
-e 's|@''REPLACE_OPENDIR''@|$(REPLACE_OPENDIR)|g' \
+ -e 's|@''REPLACE_READDIR''@|$(REPLACE_READDIR)|g' \
+ -e 's|@''REPLACE_REWINDDIR''@|$(REPLACE_REWINDDIR)|g' \
-e 's|@''REPLACE_CLOSEDIR''@|$(REPLACE_CLOSEDIR)|g' \
-e 's|@''REPLACE_DIRFD''@|$(REPLACE_DIRFD)|g' \
-e 's|@''REPLACE_FDOPENDIR''@|$(REPLACE_FDOPENDIR)|g' \
@@ -1772,6 +1787,8 @@ libgnu_a_SOURCES += dirfd.c
endif
endif
+EXTRA_DIST += dirent-private.h
+
endif
## end gnulib module dirfd
@@ -1972,6 +1989,8 @@ ifneq (,$(GL_COND_OBJ_FDOPENDIR_CONDITION))
libgnu_a_SOURCES += fdopendir.c
endif
+EXTRA_DIST += dirent-private.h
+
endif
## end gnulib module fdopendir
@@ -3207,6 +3226,7 @@ stdlib.h: stdlib.in.h $(top_builddir)/config.status
$(CXXDEFS_H) \
-e 's/@''GNULIB_GRANTPT''@/$(GL_GNULIB_GRANTPT)/g' \
-e 's/@''GNULIB_MALLOC_GNU''@/$(GL_GNULIB_MALLOC_GNU)/g' \
-e 's/@''GNULIB_MALLOC_POSIX''@/$(GL_GNULIB_MALLOC_POSIX)/g' \
+ -e 's/@''GNULIB_MBSTOWCS''@/$(GL_GNULIB_MBSTOWCS)/g' \
-e 's/@''GNULIB_MBTOWC''@/$(GL_GNULIB_MBTOWC)/g' \
-e 's/@''GNULIB_MKDTEMP''@/$(GL_GNULIB_MKDTEMP)/g' \
-e 's/@''GNULIB_MKOSTEMP''@/$(GL_GNULIB_MKOSTEMP)/g' \
@@ -3252,6 +3272,7 @@ stdlib.h: stdlib.in.h $(top_builddir)/config.status
$(CXXDEFS_H) \
-e 's|@''HAVE_DECL_FCVT''@|$(HAVE_DECL_FCVT)|g' \
-e 's|@''HAVE_DECL_GCVT''@|$(HAVE_DECL_GCVT)|g' \
-e 's|@''HAVE_DECL_GETLOADAVG''@|$(HAVE_DECL_GETLOADAVG)|g' \
+ -e
's|@''HAVE_DECL_PROGRAM_INVOCATION_NAME''@|$(HAVE_DECL_PROGRAM_INVOCATION_NAME)|g'
\
-e 's|@''HAVE_GETPROGNAME''@|$(HAVE_GETPROGNAME)|g' \
-e 's|@''HAVE_GETSUBOPT''@|$(HAVE_GETSUBOPT)|g' \
-e 's|@''HAVE_GRANTPT''@|$(HAVE_GRANTPT)|g' \
@@ -3300,6 +3321,8 @@ stdlib.h: stdlib.in.h $(top_builddir)/config.status
$(CXXDEFS_H) \
-e 's|@''REPLACE_INITSTATE''@|$(REPLACE_INITSTATE)|g' \
-e
's|@''REPLACE_MALLOC_FOR_MALLOC_GNU''@|$(REPLACE_MALLOC_FOR_MALLOC_GNU)|g' \
-e
's|@''REPLACE_MALLOC_FOR_MALLOC_POSIX''@|$(REPLACE_MALLOC_FOR_MALLOC_POSIX)|g' \
+ -e 's|@''REPLACE_MB_CUR_MAX''@|$(REPLACE_MB_CUR_MAX)|g' \
+ -e 's|@''REPLACE_MBSTOWCS''@|$(REPLACE_MBSTOWCS)|g' \
-e 's|@''REPLACE_MBTOWC''@|$(REPLACE_MBTOWC)|g' \
-e 's|@''REPLACE_MKOSTEMP''@|$(REPLACE_MKOSTEMP)|g' \
-e 's|@''REPLACE_MKOSTEMPS''@|$(REPLACE_MKOSTEMPS)|g' \
@@ -3723,8 +3746,8 @@ EXTRA_DIST += tempname.h
endif
## end gnulib module tempname
-## begin gnulib module time
-ifeq (,$(OMIT_GNULIB_MODULE_time))
+## begin gnulib module time-h
+ifeq (,$(OMIT_GNULIB_MODULE_time-h))
BUILT_SOURCES += time.h
@@ -3743,6 +3766,7 @@ time.h: time.in.h $(top_builddir)/config.status
$(CXXDEFS_H) $(ARG_NONNULL_H) $(
-e 's/@''GNULIB_NANOSLEEP''@/$(GL_GNULIB_NANOSLEEP)/g' \
-e 's/@''GNULIB_STRFTIME''@/$(GL_GNULIB_STRFTIME)/g' \
-e 's/@''GNULIB_STRPTIME''@/$(GL_GNULIB_STRPTIME)/g' \
+ -e 's/@''GNULIB_TIME''@/$(GL_GNULIB_TIME)/g' \
-e 's/@''GNULIB_TIMEGM''@/$(GL_GNULIB_TIMEGM)/g' \
-e 's/@''GNULIB_TIMESPEC_GET''@/$(GL_GNULIB_TIMESPEC_GET)/g' \
-e
's/@''GNULIB_TIMESPEC_GETRES''@/$(GL_GNULIB_TIMESPEC_GETRES)/g' \
@@ -3764,6 +3788,7 @@ time.h: time.in.h $(top_builddir)/config.status
$(CXXDEFS_H) $(ARG_NONNULL_H) $(
-e 's|@''REPLACE_MKTIME''@|$(REPLACE_MKTIME)|g' \
-e 's|@''REPLACE_NANOSLEEP''@|$(REPLACE_NANOSLEEP)|g' \
-e 's|@''REPLACE_STRFTIME''@|$(REPLACE_STRFTIME)|g' \
+ -e 's|@''REPLACE_TIME''@|$(REPLACE_TIME)|g' \
-e 's|@''REPLACE_TIMEGM''@|$(REPLACE_TIMEGM)|g' \
-e 's|@''REPLACE_TIMESPEC_GET''@|$(REPLACE_TIMESPEC_GET)|g' \
-e 's|@''REPLACE_TZSET''@|$(REPLACE_TZSET)|g' \
@@ -3782,7 +3807,7 @@ MOSTLYCLEANFILES += time.h time.h-t
EXTRA_DIST += time.in.h
endif
-## end gnulib module time
+## end gnulib module time-h
## begin gnulib module time_r
ifeq (,$(OMIT_GNULIB_MODULE_time_r))
diff --git a/lib/inttypes.in.h b/lib/inttypes.in.h
index 5b7ef12dc7e..22643876ab3 100644
--- a/lib/inttypes.in.h
+++ b/lib/inttypes.in.h
@@ -46,6 +46,11 @@
#if ! defined INTTYPES_H && ! defined _GL_JUST_INCLUDE_SYSTEM_INTTYPES_H
#define INTTYPES_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* Include <stdint.h> or the gnulib replacement.
But avoid namespace pollution on glibc systems. */
#ifndef __GLIBC__
diff --git a/lib/limits.in.h b/lib/limits.in.h
index a01b4c6a280..45d46fd6897 100644
--- a/lib/limits.in.h
+++ b/lib/limits.in.h
@@ -99,6 +99,11 @@
# endif
#endif
+/* Assume no multibyte character is longer than 16 bytes. */
+#ifndef MB_LEN_MAX
+# define MB_LEN_MAX 16
+#endif
+
/* Macros specified by C23 and by ISO/IEC TS 18661-1:2014. */
#if (! defined ULLONG_WIDTH \
diff --git a/lib/malloc/dynarray_emplace_enlarge.c
b/lib/malloc/dynarray_emplace_enlarge.c
index 7da539316c1..65aabb1e4a5 100644
--- a/lib/malloc/dynarray_emplace_enlarge.c
+++ b/lib/malloc/dynarray_emplace_enlarge.c
@@ -22,7 +22,7 @@
#include <dynarray.h>
#include <errno.h>
-#include <intprops.h>
+#include <stdckdint.h>
#include <stdlib.h>
#include <string.h>
@@ -56,7 +56,7 @@ __libc_dynarray_emplace_enlarge (struct dynarray_header *list,
}
size_t new_size;
- if (INT_MULTIPLY_WRAPV (new_allocated, element_size, &new_size))
+ if (ckd_mul (&new_size, new_allocated, element_size))
return false;
void *new_array;
if (list->array == scratch)
diff --git a/lib/malloc/dynarray_resize.c b/lib/malloc/dynarray_resize.c
index 7ecd4de63b9..014f98c330e 100644
--- a/lib/malloc/dynarray_resize.c
+++ b/lib/malloc/dynarray_resize.c
@@ -22,7 +22,7 @@
#include <dynarray.h>
#include <errno.h>
-#include <intprops.h>
+#include <stdckdint.h>
#include <stdlib.h>
#include <string.h>
@@ -42,7 +42,7 @@ __libc_dynarray_resize (struct dynarray_header *list, size_t
size,
over-allocation here. */
size_t new_size_bytes;
- if (INT_MULTIPLY_WRAPV (size, element_size, &new_size_bytes))
+ if (ckd_mul (&new_size_bytes, size, element_size))
{
/* Overflow. */
__set_errno (ENOMEM);
diff --git a/lib/md5.h b/lib/md5.h
index f34e7cb8dfa..92dc6038988 100644
--- a/lib/md5.h
+++ b/lib/md5.h
@@ -20,6 +20,11 @@
#ifndef _MD5_H
#define _MD5_H 1
+/* This file uses HAVE_OPENSSL_MD5. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <stdio.h>
#include <stdint.h>
diff --git a/lib/minmax.h b/lib/minmax.h
index 1fbfc6616cf..0ac40198e24 100644
--- a/lib/minmax.h
+++ b/lib/minmax.h
@@ -23,6 +23,11 @@
MIN, MAX macro redefinitions on some systems; the workaround is to
#include this file as the last one among the #include list. */
+/* This file uses HAVE_MINMAX_IN_LIMITS_H, HAVE_MINMAX_IN_SYS_PARAM_H. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* Before we define the following symbols we get the <limits.h> file
since otherwise we get redefinitions on some systems if <limits.h> is
included after this file. Likewise for <sys/param.h>.
diff --git a/lib/mktime.c b/lib/mktime.c
index 94a4320e6ca..8e80bcdbd16 100644
--- a/lib/mktime.c
+++ b/lib/mktime.c
@@ -46,6 +46,7 @@
#include <errno.h>
#include <limits.h>
#include <stdbool.h>
+#include <stdckdint.h>
#include <stdlib.h>
#include <string.h>
@@ -379,7 +380,7 @@ __mktime_internal (struct tm *tp,
/* Invert CONVERT by probing. First assume the same offset as last
time. */
- INT_SUBTRACT_WRAPV (0, off, &negative_offset_guess);
+ ckd_sub (&negative_offset_guess, 0, off);
long_int t0 = ydhms_diff (year, yday, hour, min, sec,
EPOCH_YEAR - TM_YEAR_BASE, 0, 0, 0,
negative_offset_guess);
@@ -465,7 +466,7 @@ __mktime_internal (struct tm *tp,
for (direction = -1; direction <= 1; direction += 2)
{
long_int ot;
- if (! INT_ADD_WRAPV (t, delta * direction, &ot))
+ if (! ckd_add (&ot, t, delta * direction))
{
struct tm otm;
if (! ranged_convert (convert, &ot, &otm))
@@ -503,8 +504,8 @@ __mktime_internal (struct tm *tp,
/* Set *OFFSET to the low-order bits of T - T0 - NEGATIVE_OFFSET_GUESS.
This is just a heuristic to speed up the next mktime call, and
correctness is unaffected if integer overflow occurs here. */
- INT_SUBTRACT_WRAPV (t, t0, offset);
- INT_SUBTRACT_WRAPV (*offset, negative_offset_guess, offset);
+ ckd_sub (offset, t, t0);
+ ckd_sub (offset, *offset, negative_offset_guess);
if (LEAP_SECONDS_POSSIBLE && sec_requested != tm.tm_sec)
{
@@ -513,7 +514,7 @@ __mktime_internal (struct tm *tp,
long_int sec_adjustment = sec == 0 && tm.tm_sec == 60;
sec_adjustment -= sec;
sec_adjustment += sec_requested;
- if (INT_ADD_WRAPV (t, sec_adjustment, &t)
+ if (ckd_add (&t, t, sec_adjustment)
|| ! (mktime_min <= t && t <= mktime_max))
{
__set_errno (EOVERFLOW);
diff --git a/lib/nanosleep.c b/lib/nanosleep.c
index 3f295f49b5d..10974df461e 100644
--- a/lib/nanosleep.c
+++ b/lib/nanosleep.c
@@ -60,8 +60,7 @@ nanosleep (const struct timespec *requested_delay,
static_assert (TYPE_MAXIMUM (time_t) / 24 / 24 / 60 / 60);
const time_t limit = 24 * 24 * 60 * 60;
time_t seconds = requested_delay->tv_sec;
- struct timespec intermediate;
- intermediate.tv_nsec = requested_delay->tv_nsec;
+ struct timespec intermediate = *requested_delay;
while (limit < seconds)
{
diff --git a/lib/nstrftime.c b/lib/nstrftime.c
index 68bb560910d..2a1dd8d88d7 100644
--- a/lib/nstrftime.c
+++ b/lib/nstrftime.c
@@ -62,6 +62,7 @@ extern char *tzname[];
#endif
#include <limits.h>
+#include <stdckdint.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
@@ -226,15 +227,6 @@ extern char *tzname[];
# undef __mbsrtowcs_l
# define __mbsrtowcs_l(d, s, l, st, loc) __mbsrtowcs (d, s, l, st)
# endif
-# define widen(os, ws, l) \
- { \
- mbstate_t __st; \
- const char *__s = os; \
- memset (&__st, '\0', sizeof (__st)); \
- l = __mbsrtowcs_l (NULL, &__s, 0, &__st, loc); \
- ws = (wchar_t *) alloca ((l + 1) * sizeof (wchar_t)); \
- (void) __mbsrtowcs_l (ws, &__s, l, &__st, loc); \
- }
#endif
@@ -684,8 +676,8 @@ __strftime_internal (STREAM_OR_CHAR_T *s, STRFTIME_ARG
(size_t maxsize)
width = 0;
do
{
- if (INT_MULTIPLY_WRAPV (width, 10, &width)
- || INT_ADD_WRAPV (width, *f - L_('0'), &width))
+ if (ckd_mul (&width, width, 10)
+ || ckd_add (&width, width, *f - L_('0')))
width = INT_MAX;
++f;
}
@@ -1374,11 +1366,31 @@ __strftime_internal (STREAM_OR_CHAR_T *s, STRFTIME_ARG
(size_t maxsize)
#ifdef COMPILE_WIDE
{
/* The zone string is always given in multibyte form. We have
- to transform it first. */
- wchar_t *wczone;
- size_t len;
- widen (zone, wczone, len);
- cpy (len, wczone);
+ to convert it to wide character. */
+ size_t w = pad == L_('-') || width < 0 ? 0 : width;
+ char const *z = zone;
+ mbstate_t st = {0};
+ size_t len = __mbsrtowcs_l (p, &z, maxsize - i, &st, loc);
+ if (len == (size_t) -1)
+ return 0;
+ size_t incr = len < w ? w : len;
+ if (incr >= maxsize - i)
+ {
+ errno = ERANGE;
+ return 0;
+ }
+ if (p)
+ {
+ if (len < w)
+ {
+ size_t delta = w - len;
+ wmemmove (p + delta, p, len);
+ wchar_t wc = pad == L_('0') || pad == L_('+') ? L'0' : L'
';
+ wmemset (p, wc, delta);
+ }
+ p += incr;
+ }
+ i += incr;
}
#else
cpy (strlen (zone), zone);
diff --git a/lib/openat.h b/lib/openat.h
index 37d8eedbee4..97f066d10f8 100644
--- a/lib/openat.h
+++ b/lib/openat.h
@@ -19,15 +19,18 @@
#ifndef _GL_HEADER_OPENAT
#define _GL_HEADER_OPENAT
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE, _Noreturn,
+ _GL_ATTRIBUTE_DEPRECATED, HAVE_OPENAT. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#if !HAVE_OPENAT
diff --git a/lib/pathmax.h b/lib/pathmax.h
index 0dd8f3bc5ce..6930283b82a 100644
--- a/lib/pathmax.h
+++ b/lib/pathmax.h
@@ -39,6 +39,11 @@
#endif
*/
+/* This file uses HAVE_SYS_PARAM_H. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
+
# include <unistd.h>
# include <limits.h>
diff --git a/lib/pselect.c b/lib/pselect.c
index f5d21e1048a..1b8c19130c2 100644
--- a/lib/pselect.c
+++ b/lib/pselect.c
@@ -45,6 +45,12 @@ pselect (int nfds, fd_set *restrict rfds,
sigset_t origmask;
struct timeval tv, *tvp;
+ if (nfds < 0 || nfds > FD_SETSIZE)
+ {
+ errno = EINVAL;
+ return -1;
+ }
+
if (timeout)
{
if (! (0 <= timeout->tv_nsec && timeout->tv_nsec < 1000000000))
@@ -53,8 +59,10 @@ pselect (int nfds, fd_set *restrict rfds,
return -1;
}
- tv.tv_sec = timeout->tv_sec;
- tv.tv_usec = (timeout->tv_nsec + 999) / 1000;
+ tv = (struct timeval) {
+ .tv_sec = timeout->tv_sec,
+ .tv_usec = (timeout->tv_nsec + 999) / 1000
+ };
tvp = &tv;
}
else
diff --git a/lib/regex_internal.h b/lib/regex_internal.h
index 149ec2e868a..0270091df70 100644
--- a/lib/regex_internal.h
+++ b/lib/regex_internal.h
@@ -29,6 +29,7 @@
#include <locale.h>
#include <wchar.h>
#include <wctype.h>
+#include <stdckdint.h>
#include <stdint.h>
#ifndef _LIBC
@@ -822,7 +823,7 @@ re_string_elem_size_at (const re_string_t *pstr, Idx idx)
}
#ifdef _LIBC
-# if __GNUC__ >= 7
+# if __glibc_has_attribute (__fallthrough__)
# define FALLTHROUGH __attribute__ ((__fallthrough__))
# else
# define FALLTHROUGH ((void) 0)
diff --git a/lib/regexec.c b/lib/regexec.c
index 13e0349e727..f05f38ae0e0 100644
--- a/lib/regexec.c
+++ b/lib/regexec.c
@@ -324,7 +324,7 @@ re_search_2_stub (struct re_pattern_buffer *bufp, const
char *string1,
char *s = NULL;
if (__glibc_unlikely ((length1 < 0 || length2 < 0 || stop < 0
- || INT_ADD_WRAPV (length1, length2, &len))))
+ || ckd_add (&len, length1, length2))))
return -2;
/* Concatenate the strings. */
diff --git a/lib/sha1.h b/lib/sha1.h
index 5a58b567ceb..854213a9211 100644
--- a/lib/sha1.h
+++ b/lib/sha1.h
@@ -19,6 +19,11 @@
#ifndef SHA1_H
# define SHA1_H 1
+/* This file uses HAVE_OPENSSL_SHA1. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
+
# include <stdio.h>
# include <stdint.h>
diff --git a/lib/sha256.h b/lib/sha256.h
index 2879477e89c..938b1067062 100644
--- a/lib/sha256.h
+++ b/lib/sha256.h
@@ -18,6 +18,11 @@
#ifndef SHA256_H
# define SHA256_H 1
+/* This file uses HAVE_OPENSSL_SHA256. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
+
# include <stdio.h>
# include <stdint.h>
diff --git a/lib/sha512.h b/lib/sha512.h
index e3a98a2644c..f3465bc8a68 100644
--- a/lib/sha512.h
+++ b/lib/sha512.h
@@ -18,6 +18,11 @@
#ifndef SHA512_H
# define SHA512_H 1
+/* This file uses HAVE_OPENSSL_SHA512. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
+
# include <stdio.h>
# include "u64.h"
diff --git a/lib/signal.in.h b/lib/signal.in.h
index fea12e6572d..418d59c582d 100644
--- a/lib/signal.in.h
+++ b/lib/signal.in.h
@@ -55,6 +55,11 @@
#ifndef _@GUARD_PREFIX@_SIGNAL_H
#define _@GUARD_PREFIX@_SIGNAL_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* For testing the OpenBSD version. */
#if (@GNULIB_PTHREAD_SIGMASK@ || defined GNULIB_POSIXCHECK) \
&& defined __OpenBSD__
diff --git a/lib/stat-time.h b/lib/stat-time.h
index 92aa1e64e20..75eb27e549d 100644
--- a/lib/stat-time.h
+++ b/lib/stat-time.h
@@ -20,15 +20,18 @@
#ifndef STAT_TIME_H
#define STAT_TIME_H 1
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE, _GL_UNUSED,
+ _GL_ATTRIBUTE_PURE, HAVE_STRUCT_STAT_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <errno.h>
#include <stdckdint.h>
#include <stddef.h>
#include <sys/stat.h>
#include <time.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef _GL_STAT_TIME_INLINE
# define _GL_STAT_TIME_INLINE _GL_INLINE
@@ -119,10 +122,8 @@ get_stat_atime (struct stat const *st)
#ifdef STAT_TIMESPEC
return STAT_TIMESPEC (st, st_atim);
#else
- struct timespec t;
- t.tv_sec = st->st_atime;
- t.tv_nsec = get_stat_atime_ns (st);
- return t;
+ return (struct timespec) { .tv_sec = st->st_atime,
+ .tv_nsec = get_stat_atime_ns (st) };
#endif
}
@@ -133,10 +134,8 @@ get_stat_ctime (struct stat const *st)
#ifdef STAT_TIMESPEC
return STAT_TIMESPEC (st, st_ctim);
#else
- struct timespec t;
- t.tv_sec = st->st_ctime;
- t.tv_nsec = get_stat_ctime_ns (st);
- return t;
+ return (struct timespec) { .tv_sec = st->st_ctime,
+ .tv_nsec = get_stat_ctime_ns (st) };
#endif
}
@@ -147,10 +146,8 @@ get_stat_mtime (struct stat const *st)
#ifdef STAT_TIMESPEC
return STAT_TIMESPEC (st, st_mtim);
#else
- struct timespec t;
- t.tv_sec = st->st_mtime;
- t.tv_nsec = get_stat_mtime_ns (st);
- return t;
+ return (struct timespec) { .tv_sec = st->st_mtime,
+ .tv_nsec = get_stat_mtime_ns (st) };
#endif
}
@@ -165,8 +162,8 @@ get_stat_birthtime (_GL_UNUSED struct stat const *st)
|| defined HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC)
t = STAT_TIMESPEC (st, st_birthtim);
#elif defined HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC
- t.tv_sec = st->st_birthtime;
- t.tv_nsec = st->st_birthtimensec;
+ t = (struct timespec) { .tv_sec = st->st_birthtime,
+ .tv_nsec = st->st_birthtimensec };
#elif defined _WIN32 && ! defined __CYGWIN__
/* Native Windows platforms (but not Cygwin) put the "file creation
time" in st_ctime (!). See
@@ -174,13 +171,11 @@ get_stat_birthtime (_GL_UNUSED struct stat const *st)
# if _GL_WINDOWS_STAT_TIMESPEC
t = st->st_ctim;
# else
- t.tv_sec = st->st_ctime;
- t.tv_nsec = 0;
+ t = (struct timespec) { .tv_sec = st->st_ctime };
# endif
#else
/* Birth time is not supported. */
- t.tv_sec = -1;
- t.tv_nsec = -1;
+ t = (struct timespec) { .tv_sec = -1, .tv_nsec = -1 };
#endif
#if (defined HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC \
@@ -192,10 +187,7 @@ get_stat_birthtime (_GL_UNUSED struct stat const *st)
sometimes returns junk in the birth time fields; work around this
bug if it is detected. */
if (! (t.tv_sec && 0 <= t.tv_nsec && t.tv_nsec < 1000000000))
- {
- t.tv_sec = -1;
- t.tv_nsec = -1;
- }
+ t = (struct timespec) { .tv_sec = -1, .tv_nsec = -1 };
#endif
return t;
@@ -229,8 +221,7 @@ stat_time_normalize (int result, _GL_UNUSED struct stat *st)
}
ts->tv_nsec = r;
/* Overflow is possible, as Solaris 11 stat can yield
- tv_sec == TYPE_MINIMUM (time_t) && tv_nsec == -1000000000.
- INT_ADD_WRAPV is OK, since time_t is signed on Solaris. */
+ tv_sec == TYPE_MINIMUM (time_t) && tv_nsec == -1000000000. */
if (ckd_add (&ts->tv_sec, q, ts->tv_sec))
{
errno = EOVERFLOW;
diff --git a/lib/stddef.in.h b/lib/stddef.in.h
index 6eadcc3d5a4..431e819b8bf 100644
--- a/lib/stddef.in.h
+++ b/lib/stddef.in.h
@@ -18,7 +18,7 @@
/* Written by Eric Blake. */
/*
- * POSIX 2008 <stddef.h> for platforms that have issues.
+ * POSIX 2008 and ISO C 23 <stddef.h> for platforms that have issues.
* <https://pubs.opengroup.org/onlinepubs/9699919799/basedefs/stddef.h.html>
*/
@@ -37,9 +37,9 @@
remember if special invocation has ever been used to obtain wint_t,
in which case we need to clean up NULL yet again. */
-# if !(defined _@GUARD_PREFIX@_STDDEF_H && defined _GL_STDDEF_WINT_T)
+# if !(defined _@GUARD_PREFIX@_STDDEF_H && defined
_@GUARD_PREFIX@_STDDEF_WINT_T)
# ifdef __need_wint_t
-# define _GL_STDDEF_WINT_T
+# define _@GUARD_PREFIX@_STDDEF_WINT_T
# endif
# @INCLUDE_NEXT@ @NEXT_STDDEF_H@
/* On TinyCC, make sure that the macros that indicate the special invocation
@@ -69,6 +69,7 @@ typedef long rpl_max_align_t;
typedef long max_align_t;
# define _MAX_ALIGN_T
# endif
+# define __CLANG_MAX_ALIGN_T_DEFINED
# define GNULIB_defined_max_align_t 1
# endif
# endif
@@ -79,7 +80,7 @@ typedef long max_align_t;
/* On NetBSD 5.0, the definition of NULL lacks proper parentheses. */
# if (@REPLACE_NULL@ \
- && (!defined _@GUARD_PREFIX@_STDDEF_H || defined _GL_STDDEF_WINT_T))
+ && (!defined _@GUARD_PREFIX@_STDDEF_H || defined
_@GUARD_PREFIX@_STDDEF_WINT_T))
# undef NULL
# ifdef __cplusplus
/* ISO C++ says that the macro NULL must expand to an integer constant
@@ -100,6 +101,11 @@ typedef long max_align_t;
# ifndef _@GUARD_PREFIX@_STDDEF_H
# define _@GUARD_PREFIX@_STDDEF_H
+/* This file uses _Noreturn. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* Some platforms lack wchar_t. */
#if !@HAVE_WCHAR_T@
# define wchar_t int
@@ -137,11 +143,49 @@ typedef union
long int __i _GL_STDDEF_ALIGNAS (long int);
} rpl_max_align_t;
# define max_align_t rpl_max_align_t
+# define __CLANG_MAX_ALIGN_T_DEFINED
# define GNULIB_defined_max_align_t 1
# endif
# endif
#endif
+/* ISO C 23 § 7.21.1 The unreachable macro */
+#ifndef unreachable
+
+/* Code borrowed from verify.h. */
+# ifndef _GL_HAS_BUILTIN_UNREACHABLE
+# if defined __clang_major__ && __clang_major__ < 5
+# define _GL_HAS_BUILTIN_UNREACHABLE 0
+# elif 4 < __GNUC__ + (5 <= __GNUC_MINOR__)
+# define _GL_HAS_BUILTIN_UNREACHABLE 1
+# elif defined __has_builtin
+# define _GL_HAS_BUILTIN_UNREACHABLE __has_builtin (__builtin_unreachable)
+# else
+# define _GL_HAS_BUILTIN_UNREACHABLE 0
+# endif
+# endif
+
+# if _GL_HAS_BUILTIN_UNREACHABLE
+# define unreachable() __builtin_unreachable ()
+# elif 1200 <= _MSC_VER
+# define unreachable() __assume (0)
+# else
+/* Declare abort(), without including <stdlib.h>. */
+extern
+# if defined __cplusplus
+"C"
+# endif
+_Noreturn
+void abort (void)
+# if defined __cplusplus && (__GLIBC__ >= 2)
+throw ()
+# endif
+;
+# define unreachable() abort ()
+# endif
+
+#endif
+
# endif /* _@GUARD_PREFIX@_STDDEF_H */
# endif /* _@GUARD_PREFIX@_STDDEF_H */
#endif /* __need_XXX */
diff --git a/lib/stdio.in.h b/lib/stdio.in.h
index 3f8ea985335..6be12c0525d 100644
--- a/lib/stdio.in.h
+++ b/lib/stdio.in.h
@@ -36,6 +36,12 @@
#ifndef _@GUARD_PREFIX@_STDIO_H
+/* Suppress macOS deprecation warnings for sprintf and vsprintf. */
+#if (defined __APPLE__ && defined __MACH__) && !defined _POSIX_C_SOURCE
+# define _POSIX_C_SOURCE 200809L
+# define _GL_DEFINED__POSIX_C_SOURCE
+#endif
+
#define _GL_ALREADY_INCLUDING_STDIO_H
/* The include_next requires a split double-inclusion guard. */
@@ -43,9 +49,20 @@
#undef _GL_ALREADY_INCLUDING_STDIO_H
+#ifdef _GL_DEFINED__POSIX_C_SOURCE
+# undef _GL_DEFINED__POSIX_C_SOURCE
+# undef _POSIX_C_SOURCE
+#endif
+
#ifndef _@GUARD_PREFIX@_STDIO_H
#define _@GUARD_PREFIX@_STDIO_H
+/* This file uses _GL_ATTRIBUTE_DEALLOC, _GL_ATTRIBUTE_FORMAT,
+ _GL_ATTRIBUTE_MALLOC, GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* Get va_list. Needed on many systems, including glibc 2.8. */
#include <stdarg.h>
@@ -116,6 +133,16 @@
# endif
#endif
+/* _GL_ATTRIBUTE_MALLOC declares that the function returns a pointer to freshly
+ allocated memory. */
+#ifndef _GL_ATTRIBUTE_MALLOC
+# if __GNUC__ >= 3 || defined __clang__
+# define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__))
+# else
+# define _GL_ATTRIBUTE_MALLOC
+# endif
+#endif
+
/* An __attribute__ __format__ specifier for a function that takes a format
string and arguments, where the format string directives are the ones
standardized by ISO C99 and POSIX.
@@ -193,6 +220,36 @@
# undef putc_unlocked
#endif
+
+/* Maximum number of characters produced by printing a NaN value. */
+#ifndef _PRINTF_NAN_LEN_MAX
+# if defined __FreeBSD__ || defined __DragonFly__ \
+ || defined __NetBSD__ \
+ || (defined __APPLE__ && defined __MACH__)
+/* On BSD systems, a NaN value prints as just "nan", without a sign. */
+# define _PRINTF_NAN_LEN_MAX 3
+# elif (__GLIBC__ >= 2) || MUSL_LIBC || defined __OpenBSD__ || defined __sun
|| defined __CYGWIN__
+/* glibc, musl libc, OpenBSD, Solaris libc, and Cygwin produce "[-]nan". */
+# define _PRINTF_NAN_LEN_MAX 4
+# elif defined _AIX
+/* AIX produces "[-]NaNQ". */
+# define _PRINTF_NAN_LEN_MAX 5
+# elif defined _WIN32 && !defined __CYGWIN__
+/* On native Windows, the output can be:
+ - with MSVC ucrt: "[-]nan" or "[-]nan(ind)" or "[-]nan(snan)",
+ - with mingw: "[-]1.#IND" or "[-]1.#QNAN". */
+# define _PRINTF_NAN_LEN_MAX 10
+# elif defined __sgi
+/* On IRIX, the output typically is "[-]nan0xNNNNNNNN" with 8 hexadecimal
+ digits. */
+# define _PRINTF_NAN_LEN_MAX 14
+# else
+/* We don't know, but 32 should be a safe maximum. */
+# define _PRINTF_NAN_LEN_MAX 32
+# endif
+#endif
+
+
#if @GNULIB_DPRINTF@
# if @REPLACE_DPRINTF@
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
@@ -275,7 +332,8 @@ _GL_CXXALIASWARN (fcloseall);
# endif
_GL_FUNCDECL_RPL (fdopen, FILE *,
(int fd, const char *mode)
- _GL_ARG_NONNULL ((2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ARG_NONNULL ((2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
_GL_CXXALIAS_RPL (fdopen, FILE *, (int fd, const char *mode));
# elif defined _WIN32 && !defined __CYGWIN__
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
@@ -288,7 +346,8 @@ _GL_CXXALIAS_MDA (fdopen, FILE *, (int fd, const char
*mode));
/* For -Wmismatched-dealloc: Associate fdopen with fclose or rpl_fclose. */
_GL_FUNCDECL_SYS (fdopen, FILE *,
(int fd, const char *mode)
- _GL_ARG_NONNULL ((2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ARG_NONNULL ((2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
# endif
_GL_CXXALIAS_SYS (fdopen, FILE *, (int fd, const char *mode));
# endif
@@ -298,7 +357,8 @@ _GL_CXXALIASWARN (fdopen);
/* For -Wmismatched-dealloc: Associate fdopen with fclose or rpl_fclose. */
_GL_FUNCDECL_SYS (fdopen, FILE *,
(int fd, const char *mode)
- _GL_ARG_NONNULL ((2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ARG_NONNULL ((2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
# endif
# if defined GNULIB_POSIXCHECK
# undef fdopen
@@ -409,7 +469,8 @@ _GL_CXXALIASWARN (fileno);
# endif
_GL_FUNCDECL_RPL (fopen, FILE *,
(const char *restrict filename, const char *restrict mode)
- _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
_GL_CXXALIAS_RPL (fopen, FILE *,
(const char *restrict filename, const char *restrict mode));
# else
@@ -956,6 +1017,10 @@ _GL_WARN_ON_USE (gets, "gets is a security hole - use
fgets instead");
_GL_CXXALIAS_MDA (getw, int, (FILE *restrict stream));
# else
# if @HAVE_DECL_GETW@
+# if defined __APPLE__ && defined __MACH__
+/* The presence of the declaration depends on _POSIX_C_SOURCE. */
+_GL_FUNCDECL_SYS (getw, int, (FILE *restrict stream));
+# endif
_GL_CXXALIAS_SYS (getw, int, (FILE *restrict stream));
# endif
# endif
@@ -1060,13 +1125,15 @@ _GL_WARN_ON_USE (perror, "perror is not always POSIX
compliant - "
# endif
_GL_FUNCDECL_RPL (popen, FILE *,
(const char *cmd, const char *mode)
- _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (pclose, 1));
+ _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (pclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
_GL_CXXALIAS_RPL (popen, FILE *, (const char *cmd, const char *mode));
# else
# if !@HAVE_POPEN@ || __GNUC__ >= 11
_GL_FUNCDECL_SYS (popen, FILE *,
(const char *cmd, const char *mode)
- _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (pclose, 1));
+ _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (pclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
# endif
_GL_CXXALIAS_SYS (popen, FILE *, (const char *cmd, const char *mode));
# endif
@@ -1076,7 +1143,8 @@ _GL_CXXALIASWARN (popen);
/* For -Wmismatched-dealloc: Associate popen with pclose or rpl_pclose. */
_GL_FUNCDECL_SYS (popen, FILE *,
(const char *cmd, const char *mode)
- _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (pclose, 1));
+ _GL_ARG_NONNULL ((1, 2)) _GL_ATTRIBUTE_DEALLOC (pclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
# endif
# if defined GNULIB_POSIXCHECK
# undef popen
@@ -1199,6 +1267,10 @@ _GL_CXXALIASWARN (puts);
_GL_CXXALIAS_MDA (putw, int, (int w, FILE *restrict stream));
# else
# if @HAVE_DECL_PUTW@
+# if defined __APPLE__ && defined __MACH__
+/* The presence of the declaration depends on _POSIX_C_SOURCE. */
+_GL_FUNCDECL_SYS (putw, int, (int w, FILE *restrict stream));
+# endif
_GL_CXXALIAS_SYS (putw, int, (int w, FILE *restrict stream));
# endif
# endif
@@ -1410,13 +1482,15 @@ _GL_CXXALIASWARN (tempnam);
# define tmpfile rpl_tmpfile
# endif
_GL_FUNCDECL_RPL (tmpfile, FILE *, (void)
- _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
_GL_CXXALIAS_RPL (tmpfile, FILE *, (void));
# else
# if __GNUC__ >= 11
/* For -Wmismatched-dealloc: Associate tmpfile with fclose or rpl_fclose. */
_GL_FUNCDECL_SYS (tmpfile, FILE *, (void)
- _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
# endif
_GL_CXXALIAS_SYS (tmpfile, FILE *, (void));
# endif
@@ -1427,7 +1501,8 @@ _GL_CXXALIASWARN (tmpfile);
# if @GNULIB_FCLOSE@ && __GNUC__ >= 11 && !defined tmpfile
/* For -Wmismatched-dealloc: Associate tmpfile with fclose or rpl_fclose. */
_GL_FUNCDECL_SYS (tmpfile, FILE *, (void)
- _GL_ATTRIBUTE_DEALLOC (fclose, 1));
+ _GL_ATTRIBUTE_DEALLOC (fclose, 1)
+ _GL_ATTRIBUTE_MALLOC);
# endif
# if defined GNULIB_POSIXCHECK
# undef tmpfile
diff --git a/lib/stdlib.in.h b/lib/stdlib.in.h
index a91f4e23d67..1479a2b2871 100644
--- a/lib/stdlib.in.h
+++ b/lib/stdlib.in.h
@@ -37,6 +37,12 @@
#ifndef _@GUARD_PREFIX@_STDLIB_H
#define _@GUARD_PREFIX@_STDLIB_H
+/* This file uses _Noreturn, _GL_ATTRIBUTE_DEALLOC, _GL_ATTRIBUTE_MALLOC,
+ _GL_ATTRIBUTE_PURE, GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* NetBSD 5.0 mis-defines NULL. */
#include <stddef.h>
@@ -67,9 +73,7 @@
# include <random.h>
# endif
-# if !@HAVE_STRUCT_RANDOM_DATA@ || @REPLACE_RANDOM_R@ || !@HAVE_RANDOM_R@
-# include <stdint.h>
-# endif
+# include <stdint.h>
# if !@HAVE_STRUCT_RANDOM_DATA@
/* Define 'struct random_data'.
@@ -461,7 +465,7 @@ _GL_WARN_ON_USE (getloadavg, "getloadavg is not portable - "
# undef getprogname
# define getprogname rpl_getprogname
# endif
-# ifdef HAVE_DECL_PROGRAM_INVOCATION_NAME
+# if @HAVE_DECL_PROGRAM_INVOCATION_NAME@
_GL_FUNCDECL_RPL (getprogname, const char *, (void) _GL_ATTRIBUTE_PURE);
# else
_GL_FUNCDECL_RPL (getprogname, const char *, (void));
@@ -469,7 +473,7 @@ _GL_FUNCDECL_RPL (getprogname, const char *, (void));
_GL_CXXALIAS_RPL (getprogname, const char *, (void));
# else
# if !@HAVE_GETPROGNAME@
-# ifdef HAVE_DECL_PROGRAM_INVOCATION_NAME
+# if @HAVE_DECL_PROGRAM_INVOCATION_NAME@
_GL_FUNCDECL_SYS (getprogname, const char *, (void) _GL_ATTRIBUTE_PURE);
# else
_GL_FUNCDECL_SYS (getprogname, const char *, (void));
@@ -589,6 +593,51 @@ _GL_WARN_ON_USE (malloc, "malloc is not POSIX compliant
everywhere - "
# endif
#endif
+/* Return maximum number of bytes of a multibyte character. */
+#if @REPLACE_MB_CUR_MAX@
+# if !GNULIB_defined_MB_CUR_MAX
+static inline
+int gl_MB_CUR_MAX (void)
+{
+ /* Turn the value 3 to the value 4, as needed for the UTF-8 encoding. */
+ return MB_CUR_MAX + (MB_CUR_MAX == 3);
+}
+# undef MB_CUR_MAX
+# define MB_CUR_MAX gl_MB_CUR_MAX ()
+# define GNULIB_defined_MB_CUR_MAX 1
+# endif
+#endif
+
+/* Convert a string to a wide string. */
+#if @GNULIB_MBSTOWCS@
+# if @REPLACE_MBSTOWCS@
+# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
+# undef mbstowcs
+# define mbstowcs rpl_mbstowcs
+# endif
+_GL_FUNCDECL_RPL (mbstowcs, size_t,
+ (wchar_t *restrict dest, const char *restrict src,
+ size_t len)
+ _GL_ARG_NONNULL ((2)));
+_GL_CXXALIAS_RPL (mbstowcs, size_t,
+ (wchar_t *restrict dest, const char *restrict src,
+ size_t len));
+# else
+_GL_CXXALIAS_SYS (mbstowcs, size_t,
+ (wchar_t *restrict dest, const char *restrict src,
+ size_t len));
+# endif
+# if __GLIBC__ >= 2
+_GL_CXXALIASWARN (mbstowcs);
+# endif
+#elif defined GNULIB_POSIXCHECK
+# undef mbstowcs
+# if HAVE_RAW_DECL_MBSTOWCS
+_GL_WARN_ON_USE (mbstowcs, "mbstowcs is unportable - "
+ "use gnulib module mbstowcs for portability");
+# endif
+#endif
+
/* Convert a multibyte character to a wide character. */
#if @GNULIB_MBTOWC@
# if @REPLACE_MBTOWC@
@@ -1009,7 +1058,9 @@ _GL_FUNCDECL_SYS (random, long, (void));
int. */
_GL_CXXALIAS_SYS_CAST (random, long, (void));
# endif
+# if __GLIBC__ >= 2
_GL_CXXALIASWARN (random);
+# endif
#elif defined GNULIB_POSIXCHECK
# undef random
# if HAVE_RAW_DECL_RANDOM
@@ -1034,7 +1085,9 @@ _GL_FUNCDECL_SYS (srandom, void, (unsigned int seed));
unsigned long seed. */
_GL_CXXALIAS_SYS_CAST (srandom, void, (unsigned int seed));
# endif
+# if __GLIBC__ >= 2
_GL_CXXALIASWARN (srandom);
+# endif
#elif defined GNULIB_POSIXCHECK
# undef srandom
# if HAVE_RAW_DECL_SRANDOM
diff --git a/lib/string.in.h b/lib/string.in.h
index b6bf432e1f1..912d0f7a306 100644
--- a/lib/string.in.h
+++ b/lib/string.in.h
@@ -44,6 +44,12 @@
#ifndef _@GUARD_PREFIX@_STRING_H
#define _@GUARD_PREFIX@_STRING_H
+/* This file uses _GL_ATTRIBUTE_DEALLOC, _GL_ATTRIBUTE_MALLOC,
+ _GL_ATTRIBUTE_PURE, GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* NetBSD 5.0 mis-defines NULL. */
#include <stddef.h>
diff --git a/lib/strtol.c b/lib/strtol.c
index d11269b2622..b93483dca49 100644
--- a/lib/strtol.c
+++ b/lib/strtol.c
@@ -288,6 +288,11 @@ INTERNAL (strtol) (const STRING_TYPE *nptr, STRING_TYPE
**endptr,
s += 2;
base = 16;
}
+ else if ((base == 0 || base == 2) && TOUPPER (s[1]) == L_('B'))
+ {
+ s += 2;
+ base = 2;
+ }
else if (base == 0)
base = 8;
}
@@ -378,11 +383,14 @@ INTERNAL (strtol) (const STRING_TYPE *nptr, STRING_TYPE
**endptr,
noconv:
/* We must handle a special case here: the base is 0 or 16 and the
first two characters are '0' and 'x', but the rest are no
- hexadecimal digits. This is no error case. We return 0 and
- ENDPTR points to the 'x'. */
+ hexadecimal digits. Likewise when the base is 0 or 2 and the
+ first two characters are '0' and 'b', but the rest are no binary
+ digits. This is no error case. We return 0 and ENDPTR points to
+ the 'x' or 'b'. */
if (endptr != NULL)
{
- if (save - nptr >= 2 && TOUPPER (save[-1]) == L_('X')
+ if (save - nptr >= 2
+ && (TOUPPER (save[-1]) == L_('X') || TOUPPER (save[-1]) == L_('B'))
&& save[-2] == L_('0'))
*endptr = (STRING_TYPE *) &save[-1];
else
diff --git a/lib/sys_random.in.h b/lib/sys_random.in.h
index 8dca1326837..b240033bcbf 100644
--- a/lib/sys_random.in.h
+++ b/lib/sys_random.in.h
@@ -45,6 +45,11 @@
#ifndef _@GUARD_PREFIX@_SYS_RANDOM_H
#define _@GUARD_PREFIX@_SYS_RANDOM_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <sys/types.h>
/* Define the GRND_* constants. */
diff --git a/lib/sys_select.in.h b/lib/sys_select.in.h
index 13440fa6f0a..3abfc48af09 100644
--- a/lib/sys_select.in.h
+++ b/lib/sys_select.in.h
@@ -19,6 +19,13 @@
# endif
@PRAGMA_COLUMNS@
+/* This file uses #include_next of a system file that defines time_t.
+ For the 'year2038' module to work right, <config.h> needs to have been
+ included before. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* On OSF/1 and Solaris 2.6, <sys/types.h> and <sys/time.h>
both include <sys/select.h>.
On Cygwin and OpenBSD, <sys/time.h> includes <sys/select.h>.
@@ -71,6 +78,11 @@
#ifndef _@GUARD_PREFIX@_SYS_SELECT_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* On many platforms, <sys/select.h> assumes prior inclusion of
<sys/types.h>. Also, mingw defines sigset_t there, instead of
in <signal.h> where it belongs. */
diff --git a/lib/sys_stat.in.h b/lib/sys_stat.in.h
index 0c2f39c12bf..ad4da17fa46 100644
--- a/lib/sys_stat.in.h
+++ b/lib/sys_stat.in.h
@@ -25,6 +25,13 @@
#endif
@PRAGMA_COLUMNS@
+/* This file uses #include_next of a system file that defines time_t.
+ For the 'year2038' module to work right, <config.h> needs to have been
+ included before. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#if defined __need_system_sys_stat_h
/* Special invocation convention. */
@@ -48,6 +55,11 @@
#ifndef _@GUARD_PREFIX@_SYS_STAT_H
#define _@GUARD_PREFIX@_SYS_STAT_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */
/* The definition of _GL_ARG_NONNULL is copied here. */
diff --git a/lib/sys_time.in.h b/lib/sys_time.in.h
index e833d551677..59cce1440da 100644
--- a/lib/sys_time.in.h
+++ b/lib/sys_time.in.h
@@ -24,6 +24,13 @@
#endif
@PRAGMA_COLUMNS@
+/* This file uses #include_next of a system file that defines time_t.
+ For the 'year2038' module to work right, <config.h> needs to have been
+ included before. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* On Cygwin and on many BSDish systems, <sys/time.h> includes itself
recursively via <sys/select.h>.
Simply delegate to the system's header in this case; it is a no-op.
@@ -41,6 +48,11 @@
#ifndef _@GUARD_PREFIX@_SYS_TIME_H
#define _@GUARD_PREFIX@_SYS_TIME_H
+/* This file uses GNULIB_POSIXCHECK, HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#if ! @HAVE_SYS_TIME_H@
# include <time.h>
#endif
diff --git a/lib/sys_types.in.h b/lib/sys_types.in.h
index 082a6c674de..ea77e140be9 100644
--- a/lib/sys_types.in.h
+++ b/lib/sys_types.in.h
@@ -20,6 +20,13 @@
#endif
@PRAGMA_COLUMNS@
+/* This file uses #include_next of a system file that defines time_t.
+ For the 'year2038' module to work right, <config.h> needs to have been
+ included before. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#if defined _WIN32 && !defined __CYGWIN__ \
&& (defined __need_off_t || defined __need___off64_t \
|| defined __need_ssize_t || defined __need_time_t)
diff --git a/lib/time.in.h b/lib/time.in.h
index 87cda21413b..06428adb1d0 100644
--- a/lib/time.in.h
+++ b/lib/time.in.h
@@ -20,6 +20,13 @@
#endif
@PRAGMA_COLUMNS@
+/* This file uses #include_next of a system file that defines time_t.
+ For the 'year2038' module to work right, <config.h> needs to have been
+ included before. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* Don't get in the way of glibc when it includes time.h merely to
declare a few standard symbols, rather than to declare all the
symbols. (However, skip this for MinGW as it treats __need_time_t
@@ -45,6 +52,12 @@
# @INCLUDE_NEXT@ @NEXT_TIME_H@
+/* This file uses _GL_ATTRIBUTE_DEPRECATED, GNULIB_POSIXCHECK,
+ HAVE_RAW_DECL_*. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
+
/* NetBSD 5.0 mis-defines NULL. */
# include <stddef.h>
@@ -143,6 +156,22 @@ _GL_CXXALIAS_SYS (timespec_getres, int, (struct timespec
*ts, int base));
_GL_CXXALIASWARN (timespec_getres);
# endif
+/* Return the number of seconds that have elapsed since the Epoch. */
+# if @GNULIB_TIME@
+# if @REPLACE_TIME@
+# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
+# define time rpl_time
+# endif
+_GL_FUNCDECL_RPL (time, time_t, (time_t *__tp));
+_GL_CXXALIAS_RPL (time, time_t, (time_t *__tp));
+# else
+_GL_CXXALIAS_SYS (time, time_t, (time_t *__tp));
+# endif
+# if __GLIBC__ >= 2
+_GL_CXXALIASWARN (time);
+# endif
+# endif
+
/* Sleep for at least RQTP seconds unless interrupted, If interrupted,
return -1 and store the remaining time into RMTP. See
<https://pubs.opengroup.org/onlinepubs/9699919799/functions/nanosleep.html>. */
@@ -327,7 +356,9 @@ _GL_CXXALIASWARN (strptime);
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
# define ctime rpl_ctime
# endif
+# ifndef __cplusplus
_GL_ATTRIBUTE_DEPRECATED
+# endif
_GL_FUNCDECL_RPL (ctime, char *, (time_t const *__tp)
_GL_ARG_NONNULL ((1)));
_GL_CXXALIAS_RPL (ctime, char *, (time_t const *__tp));
diff --git a/lib/timespec-add.c b/lib/timespec-add.c
index cb3017803b4..38c4dfc24c2 100644
--- a/lib/timespec-add.c
+++ b/lib/timespec-add.c
@@ -23,6 +23,7 @@
#include <config.h>
#include "timespec.h"
+#include <stdckdint.h>
#include "intprops.h"
struct timespec
@@ -38,7 +39,7 @@ timespec_add (struct timespec a, struct timespec b)
{
rns = nsd;
time_t bs1;
- if (!INT_ADD_WRAPV (bs, 1, &bs1))
+ if (!ckd_add (&bs1, bs, 1))
bs = bs1;
else if (rs < 0)
rs++;
@@ -46,7 +47,7 @@ timespec_add (struct timespec a, struct timespec b)
goto high_overflow;
}
- if (INT_ADD_WRAPV (rs, bs, &rs))
+ if (ckd_add (&rs, rs, bs))
{
if (bs < 0)
{
diff --git a/lib/timespec-sub.c b/lib/timespec-sub.c
index 822c2831089..f8052400410 100644
--- a/lib/timespec-sub.c
+++ b/lib/timespec-sub.c
@@ -24,6 +24,7 @@
#include <config.h>
#include "timespec.h"
+#include <stdckdint.h>
#include "intprops.h"
struct timespec
@@ -38,7 +39,7 @@ timespec_sub (struct timespec a, struct timespec b)
{
rns = ns + TIMESPEC_HZ;
time_t bs1;
- if (!INT_ADD_WRAPV (bs, 1, &bs1))
+ if (!ckd_add (&bs1, bs, 1))
bs = bs1;
else if (- TYPE_SIGNED (time_t) < rs)
rs--;
@@ -46,7 +47,7 @@ timespec_sub (struct timespec a, struct timespec b)
goto low_overflow;
}
- if (INT_SUBTRACT_WRAPV (rs, bs, &rs))
+ if (ckd_sub (&rs, rs, bs))
{
if (0 < bs)
{
diff --git a/lib/timespec.h b/lib/timespec.h
index ba78647f09a..e94da75defe 100644
--- a/lib/timespec.h
+++ b/lib/timespec.h
@@ -19,11 +19,14 @@
#if ! defined TIMESPEC_H
#define TIMESPEC_H
-#include <time.h>
-
-#ifndef _GL_INLINE_HEADER_BEGIN
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE, _GL_ATTRIBUTE_CONST,
+ _GL_ATTRIBUTE_PURE, _GL_CMP. */
+#if !_GL_CONFIG_H_INCLUDED
#error "Please include config.h first."
#endif
+
+#include <time.h>
+
_GL_INLINE_HEADER_BEGIN
#ifndef _GL_TIMESPEC_INLINE
# define _GL_TIMESPEC_INLINE _GL_INLINE
@@ -52,10 +55,7 @@ enum { LOG10_TIMESPEC_RESOLUTION = LOG10_TIMESPEC_HZ };
_GL_TIMESPEC_INLINE struct timespec
make_timespec (time_t s, long int ns)
{
- struct timespec r;
- r.tv_sec = s;
- r.tv_nsec = ns;
- return r;
+ return (struct timespec) { .tv_sec = s, .tv_nsec = ns };
}
/* Return negative, zero, positive if A < B, A == B, A > B, respectively. */
diff --git a/lib/u64.h b/lib/u64.h
index 0353ad4d9af..8a99335b6aa 100644
--- a/lib/u64.h
+++ b/lib/u64.h
@@ -17,11 +17,13 @@
/* Written by Paul Eggert. */
-#include <stdint.h>
-
-#ifndef _GL_INLINE_HEADER_BEGIN
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
#error "Please include config.h first."
#endif
+
+#include <stdint.h>
+
_GL_INLINE_HEADER_BEGIN
#ifndef _GL_U64_INLINE
# define _GL_U64_INLINE _GL_INLINE
diff --git a/lib/unistd.in.h b/lib/unistd.in.h
index 8ba9867894e..2ae040a76b3 100644
--- a/lib/unistd.in.h
+++ b/lib/unistd.in.h
@@ -69,6 +69,12 @@
#if !defined _@GUARD_PREFIX@_UNISTD_H && !defined _GL_INCLUDING_WINSOCK2_H
#define _@GUARD_PREFIX@_UNISTD_H
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE, GNULIB_POSIXCHECK,
+ HAVE_RAW_DECL_*. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
/* NetBSD 5.0 mis-defines NULL. Also get size_t. */
/* But avoid namespace pollution on glibc systems. */
#ifndef __GLIBC__
@@ -170,9 +176,6 @@
# include <getopt-pfx-core.h>
#endif
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef _GL_UNISTD_INLINE
# define _GL_UNISTD_INLINE _GL_INLINE
diff --git a/lib/unlocked-io.h b/lib/unlocked-io.h
index fdef624ab9c..4830df4a747 100644
--- a/lib/unlocked-io.h
+++ b/lib/unlocked-io.h
@@ -31,6 +31,11 @@
the *_unlocked functions directly. On hosts that lack those
functions, invoke the non-thread-safe versions instead. */
+/* This file uses HAVE_DECL_*_UNLOCKED. */
+# if !_GL_CONFIG_H_INCLUDED
+# error "Please include config.h first."
+# endif
+
# include <stdio.h>
# if HAVE_DECL_CLEARERR_UNLOCKED || defined clearerr_unlocked
diff --git a/lib/utimens.c b/lib/utimens.c
index 4c5377eca0f..faa197e6cb5 100644
--- a/lib/utimens.c
+++ b/lib/utimens.c
@@ -405,10 +405,10 @@ fdutimens (int fd, char const *file, struct timespec
const timespec[2])
struct timeval *t;
if (ts)
{
- timeval[0].tv_sec = ts[0].tv_sec;
- timeval[0].tv_usec = ts[0].tv_nsec / 1000;
- timeval[1].tv_sec = ts[1].tv_sec;
- timeval[1].tv_usec = ts[1].tv_nsec / 1000;
+ timeval[0] = (struct timeval) { .tv_sec = ts[0].tv_sec,
+ .tv_usec = ts[0].tv_nsec / 1000 };
+ timeval[1] = (struct timeval) { .tv_sec = ts[1].tv_sec,
+ .tv_usec = ts[1].tv_nsec / 1000 };
t = timeval;
}
else
@@ -502,8 +502,8 @@ fdutimens (int fd, char const *file, struct timespec const
timespec[2])
struct utimbuf *ut;
if (ts)
{
- utimbuf.actime = ts[0].tv_sec;
- utimbuf.modtime = ts[1].tv_sec;
+ utimbuf = (struct utimbuf) { .actime = ts[0].tv_sec,
+ .modtime = ts[1].tv_sec };
ut = &utimbuf;
}
else
@@ -621,10 +621,10 @@ lutimens (char const *file, struct timespec const
timespec[2])
int result;
if (ts)
{
- timeval[0].tv_sec = ts[0].tv_sec;
- timeval[0].tv_usec = ts[0].tv_nsec / 1000;
- timeval[1].tv_sec = ts[1].tv_sec;
- timeval[1].tv_usec = ts[1].tv_nsec / 1000;
+ timeval[0] = (struct timeval) { .tv_sec = ts[0].tv_sec,
+ .tv_usec = ts[0].tv_nsec / 1000 };
+ timeval[1] = (struct timeval) { .tv_sec = ts[1].tv_sec,
+ .tv_usec = ts[1].tv_nsec / 1000 };
t = timeval;
}
else
diff --git a/lib/utimens.h b/lib/utimens.h
index a7056981f32..4a21792a7e4 100644
--- a/lib/utimens.h
+++ b/lib/utimens.h
@@ -17,6 +17,11 @@
/* Written by Paul Eggert. */
+/* This file uses _GL_INLINE_HEADER_BEGIN, _GL_INLINE. */
+#if !_GL_CONFIG_H_INCLUDED
+ #error "Please include config.h first."
+#endif
+
#include <time.h>
int fdutimens (int, char const *, struct timespec const [2]);
int utimens (char const *, struct timespec const [2]);
@@ -26,9 +31,6 @@ int lutimens (char const *, struct timespec const [2]);
# include <fcntl.h>
# include <sys/stat.h>
-#ifndef _GL_INLINE_HEADER_BEGIN
- #error "Please include config.h first."
-#endif
_GL_INLINE_HEADER_BEGIN
#ifndef _GL_UTIMENS_INLINE
# define _GL_UTIMENS_INLINE _GL_INLINE
diff --git a/lib/verify.h b/lib/verify.h
index f0b3fc5851b..e4af91517e6 100644
--- a/lib/verify.h
+++ b/lib/verify.h
@@ -241,10 +241,16 @@ template <int w>
# define _Static_assert(...) \
_GL_VERIFY (__VA_ARGS__, "static assertion failed", -)
# else
- /* Work around MSVC preprocessor incompatibility with ISO C; see
- <https://stackoverflow.com/questions/5134523/>. */
-# define _Static_assert(R, ...) \
- _GL_VERIFY ((R), "static assertion failed", -)
+# if defined __cplusplus && _MSC_VER >= 1910
+ /* In MSVC 14.1 or newer, static_assert accepts one or two arguments,
+ but _Static_assert is not defined. */
+# define _Static_assert static_assert
+# else
+ /* Work around MSVC preprocessor incompatibility with ISO C; see
+ <https://stackoverflow.com/questions/5134523/>. */
+# define _Static_assert(R, ...) \
+ _GL_VERIFY ((R), "static assertion failed", -)
+# endif
# endif
# endif
/* Define static_assert if needed. */
@@ -252,7 +258,7 @@ template <int w>
&& __STDC_VERSION__ < 202311 \
&& (!defined __cplusplus \
|| (__cpp_static_assert < 201411 \
- && __GNUG__ < 6 && __clang_major__ < 6)))
+ && __GNUG__ < 6 && __clang_major__ < 6 && _MSC_VER < 1910)))
# if defined __cplusplus && _MSC_VER >= 1900 && !defined __clang__
/* MSVC 14 in C++ mode supports the two-arguments static_assert but not
the one-argument static_assert, and it does not support _Static_assert.
@@ -285,14 +291,16 @@ template <int w>
# define _GL_HAS_BUILTIN_TRAP 0
#endif
-#if defined __clang_major__ && __clang_major__ < 5
-# define _GL_HAS_BUILTIN_UNREACHABLE 0
-#elif 4 < __GNUC__ + (5 <= __GNUC_MINOR__)
-# define _GL_HAS_BUILTIN_UNREACHABLE 1
-#elif defined __has_builtin
-# define _GL_HAS_BUILTIN_UNREACHABLE __has_builtin (__builtin_unreachable)
-#else
-# define _GL_HAS_BUILTIN_UNREACHABLE 0
+#ifndef _GL_HAS_BUILTIN_UNREACHABLE
+# if defined __clang_major__ && __clang_major__ < 5
+# define _GL_HAS_BUILTIN_UNREACHABLE 0
+# elif 4 < __GNUC__ + (5 <= __GNUC_MINOR__)
+# define _GL_HAS_BUILTIN_UNREACHABLE 1
+# elif defined __has_builtin
+# define _GL_HAS_BUILTIN_UNREACHABLE __has_builtin (__builtin_unreachable)
+# else
+# define _GL_HAS_BUILTIN_UNREACHABLE 0
+# endif
#endif
/* Each of these macros verifies that its argument R is nonzero. To
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index b459de49a96..3477ef8c856 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -75,9 +75,10 @@ AUTOGENEL = ${loaddefs} ${srcdir}/cus-load.el
${srcdir}/finder-inf.el \
ELN_COMPILE_FLAGS =
# Set load-prefer-newer for the benefit of the non-bootstrappers.
+# Set org--inhibit-version-check to avoid unnecessarily aborting the build.
BYTE_COMPILE_FLAGS = \
--eval "(setq load-prefer-newer t byte-compile-warnings 'all)" \
- $(BYTE_COMPILE_EXTRA_FLAGS)
+ --eval "(setq org--inhibit-version-check t)" $(BYTE_COMPILE_EXTRA_FLAGS)
# ... but we must prefer .elc files for those in the early bootstrap.
compile-first: BYTE_COMPILE_FLAGS = $(BYTE_COMPILE_EXTRA_FLAGS)
compile-first: ELN_COMPILE_FLAGS = \
@@ -494,8 +495,8 @@ check-declare:
## This finds a lot of duplicates between foo.el and obsolete/foo.el.
check-defun-dups:
sed -n -e '/^(defun /s/\(.\)(.*/\1/p' \
- $$(find . -name '*.el' ! -name '.*' -print | \
- grep -Ev '(loaddefs|ldefs-boot)\.el|obsolete') | sort | uniq -d
+ `find . -name '*.el' ! -name '.*' -print | \
+ grep -Ev '(loaddefs|ldefs-boot)\.el|obsolete'` | sort | uniq -d
# Dependencies
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index ef8ef1ab5a6..1a665efb0a5 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -1250,17 +1250,17 @@ which see."
;; asked to.
(and save-abbrevs
abbrevs-changed
- (progn
- (if (or arg
- (eq save-abbrevs 'silently)
- (y-or-n-p (format "Save abbrevs in %s? " abbrev-file-name)))
- (progn
- (write-abbrev-file nil)
- nil)
- ;; Don't keep bothering user if they say no.
- (setq abbrevs-changed nil)
- ;; Inhibit message in `save-some-buffers'.
- t)))))
+ (prog1
+ (if (or arg
+ (eq save-abbrevs 'silently)
+ (y-or-n-p (format "Save abbrevs in %s? "
abbrev-file-name)))
+ (progn
+ (write-abbrev-file nil)
+ nil)
+ ;; Inhibit message in `save-some-buffers'.
+ t)
+ ;; Don't ask again whether saved or user said no.
+ (setq abbrevs-changed nil)))))
(add-hook 'save-some-buffers-functions #'abbrev--possibly-save)
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 5e137b21fbb..be9cf06c523 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -613,7 +613,8 @@ outline hot-spot navigation (see `allout-mode')."
#'allout-widgets-post-command-business 'local)
(remove-hook 'pre-command-hook
#'allout-widgets-pre-command-business 'local)
- (assq-delete-all 'allout-widgets-mode-inhibit minor-mode-alist)
+ (setq minor-mode-alist
+ (assq-delete-all 'allout-widgets-mode-inhibit minor-mode-alist))
(set-buffer-modified-p was-modified))))
;;;_ > allout-widgets-mode-off
(defun allout-widgets-mode-off ()
diff --git a/lisp/allout.el b/lisp/allout.el
index 4d5d814ae01..d3203800168 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -5390,7 +5390,7 @@ Defaults:
;; not specified -- default it:
(setq tobuf (concat "*" (buffer-name frombuf) " exposed*")))
(if (listp format)
- (nreverse format))
+ (setq format (reverse format)))
(let* ((listified
(progn (set-buffer frombuf)
@@ -6307,7 +6307,7 @@ not its value."
(if (yes-or-no-p (format-message
"%s entry `%s' is unbound -- remove it? "
configvar-name sym))
- (delq sym (symbol-value configvar-name)))
+ (set configvar-name (delq sym (symbol-value configvar-name))))
(push (symbol-value sym) got)))
(reverse got)))
;;;_ : Topics:
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 6f3e922880d..0a971799746 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -645,6 +645,49 @@ Does not signal an error if optional argument NOERROR is
non-nil."
(if (not noerror)
(error "Line does not describe a member of the archive")))))
;; -------------------------------------------------------------------------
+;;; Section: Helper functions for requiring filename extensions
+
+(defun archive--act-files (command files)
+ (lambda (archive)
+ (apply #'call-process (car command)
+ nil nil nil (append (cdr command) (cons archive files)))))
+
+(defun archive--need-rename-p (&optional archive)
+ (let ((archive
+ (file-name-nondirectory (or archive buffer-file-name))))
+ (cl-case archive-subtype
+ ((zip) (not (seq-contains-p archive ?. #'eq))))))
+
+(defun archive--ensure-extension (archive ensure-extension)
+ (if ensure-extension
+ (make-temp-name (expand-file-name (concat archive "_tmp.")))
+ archive))
+
+(defun archive--maybe-rename (newname need-rename-p)
+ ;; Operating with archive as current buffer, and protect
+ ;; `default-directory' from being modified in `rename-visited-file'.
+ (when need-rename-p
+ (let ((default-directory default-directory))
+ (rename-visited-file newname))))
+
+(defun archive--with-ensure-extension (archive proc-fn)
+ (let ((saved default-directory))
+ (with-current-buffer (find-buffer-visiting archive)
+ (let ((ensure-extension (archive--need-rename-p))
+ (default-directory saved))
+ (unwind-protect
+ ;; Some archive programs (like zip) expect filenames to
+ ;; have an extension, so if necessary, temporarily rename
+ ;; an extensionless file for write accesses.
+ (let ((archive (archive--ensure-extension
+ archive ensure-extension)))
+ (archive--maybe-rename archive ensure-extension)
+ (let ((exitcode (funcall proc-fn archive)))
+ (or (zerop exitcode)
+ (error "Updating was unsuccessful (%S)" exitcode))))
+ (progn (archive--maybe-rename archive ensure-extension)
+ (revert-buffer nil t)))))))
+;; -------------------------------------------------------------------------
;;; Section: the mode definition
;;;###autoload
@@ -1093,7 +1136,9 @@ NEW-NAME."
(with-temp-buffer
(set-buffer-multibyte nil)
(archive--extract-file extractor copy ename)
- (write-region (point-min) (point-max) write-to))
+ (let ((coding-system-for-write
+ (or coding-system-for-write 'no-conversion)))
+ (write-region (point-min) (point-max) write-to)))
(unless (equal copy archive)
(delete-file copy))))))))
@@ -1376,16 +1421,9 @@ NEW-NAME."
(setq ename
(encode-coding-string ename archive-file-name-coding-system))
(let* ((coding-system-for-write 'no-conversion)
- (default-directory (file-name-as-directory archive-tmpdir))
- (exitcode (apply #'call-process
- (car command)
- nil
- nil
- nil
- (append (cdr command)
- (list archive ename)))))
- (or (zerop exitcode)
- (error "Updating was unsuccessful (%S)" exitcode))))
+ (default-directory (file-name-as-directory archive-tmpdir)))
+ (archive--with-ensure-extension
+ archive (archive--act-files command (list ename)))))
(archive-delete-local tmpfile))))
(defun archive-write-file (&optional file)
@@ -1508,9 +1546,7 @@ as a relative change like \"g+rw\" as for chmod(2)."
(archive-resummarize))
(error "Setting group is not supported for this archive type"))))
-(defun archive-expunge ()
- "Do the flagged deletions."
- (interactive)
+(defun archive--expunge-maybe-force (force)
(let (files)
(save-excursion
(goto-char archive-file-list-start)
@@ -1524,7 +1560,8 @@ as a relative change like \"g+rw\" as for chmod(2)."
(and files
(or (not archive-read-only)
(error "Archive is read-only"))
- (or (yes-or-no-p (format "Really delete %d member%s? "
+ (or force
+ (yes-or-no-p (format "Really delete %d member%s? "
(length files)
(if (null (cdr files)) "" "s")))
(error "Operation aborted"))
@@ -1538,13 +1575,14 @@ as a relative change like \"g+rw\" as for chmod(2)."
(archive-resummarize)
(revert-buffer))))))
+(defun archive-expunge ()
+ "Do the flagged deletions."
+ (interactive)
+ (archive--expunge-maybe-force nil))
+
(defun archive-*-expunge (archive files command)
- (apply #'call-process
- (car command)
- nil
- nil
- nil
- (append (cdr command) (cons archive files))))
+ (archive--with-ensure-extension
+ archive (archive--act-files command files)))
(defun archive-rename-entry (newname)
"Change the name associated with this entry in the archive file."
@@ -1954,10 +1992,21 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
;; -------------------------------------------------------------------------
;;; Section: Zip Archives
+(declare-function w32-get-console-codepage "w32proc.c")
(defun archive-zip-summarize ()
(goto-char (- (point-max) (- 22 18)))
(search-backward-regexp "[P]K\005\006")
(let ((p (archive-l-e (+ (point) 16) 4))
+ (w32-fname-encoding
+ ;; On MS-Windows, both InfoZip's Zip and the system's
+ ;; built-in File Explorer use the console codepage for
+ ;; encoding file names. Problem: the codepage of the system
+ ;; where the zip file was created cannot be known; we assume
+ ;; it is the same as the one of the current system. Also,
+ ;; the zip file doesn't tell us the OS where the file was
+ ;; created, it only tells the filesystem.
+ (if (eq system-type 'windows-nt)
+ (intern (format "cp%d" (w32-get-console-codepage)))))
files)
(when (or (= p #xffffffff) (= p -1))
;; If the offset of end-of-central-directory is 0xFFFFFFFF, this
@@ -1987,7 +2036,15 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
;; (lheader (archive-l-e (+ p 42) 4))
(efnname (let ((str (buffer-substring (+ p 46) (+ p 46 fnlen))))
(decode-coding-string
- str archive-file-name-coding-system)))
+ str
+ (or (if (and w32-fname-encoding
+ (memq creator
+ ;; This should be just 10 and
+ ;; 14, but InfoZip uses 0 and
+ ;; File Explorer uses 11(??).
+ '(0 10 11 14)))
+ w32-fname-encoding)
+ archive-file-name-coding-system))))
(ucsize (if (and (or (= ucsize #xffffffff) (= ucsize -1))
(> exlen 0))
;; APPNOTE.TXT, para 4.5.3: the Extra Field
diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index 3de761e19f8..1b9d25daf3b 100644
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -598,9 +598,10 @@
(math-build-var-name (car math-arglist))
'(var DUMMY var-DUMMY)))))
(setq calc-graph-ycache (assoc calc-graph-yvalue calc-graph-data-cache))
- (delq calc-graph-ycache calc-graph-data-cache)
- (nconc calc-graph-data-cache
- (list (or calc-graph-ycache (setq calc-graph-ycache (list
calc-graph-yvalue)))))
+ (setq calc-graph-data-cache
+ (nconc (delq calc-graph-ycache calc-graph-data-cache)
+ (list (or calc-graph-ycache
+ (setq calc-graph-ycache (list
calc-graph-yvalue))))))
(if (and (not (setq calc-graph-xvec (eq (car-safe calc-graph-xvalue)
'vec)))
calc-graph-refine (cdr (cdr calc-graph-ycache)))
(calc-graph-refine-2d)
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index 93de04a586d..4b1aab837af 100644
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -195,7 +195,6 @@ Calc user interface as before (either \\`C-x * C' or \\`C-x
* K'; initially \\`C
;;;###autoload
(defun calc-info-goto-node (node)
"Go to a node in the Calculator info documentation."
- (interactive)
(select-window (get-largest-window))
(info (concat "(Calc)" node)))
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index d8569d0c5af..8502b5196d2 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -936,7 +936,6 @@
(defun calc-edit-macro-finish-edit (cmdname key)
"Finish editing a Calc macro.
Redefine the corresponding command."
- (interactive)
(let ((cmd (intern cmdname)))
(calc-edit-macro-pre-finish-edit)
(let* ((str (buffer-substring calc-edit-top (point-max)))
diff --git a/lisp/calculator.el b/lisp/calculator.el
index 6a1d960c3e4..bf2ac9b6215 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1349,8 +1349,9 @@ Optional string argument KEYS will force using it as the
keys entered."
(calculator-update-display t))
(defun calculator-saved-move (n)
- "Go N elements up the list of saved values."
- (interactive)
+ "Go N elements up the list of saved values.
+Interactively, N is the prefix numeric argument and defaults to 1."
+ (interactive "p")
(when (and calculator-saved-list
(or (null calculator-stack) calculator-display-fragile))
(setq calculator-saved-ptr
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 49597739446..11beee94e64 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -707,7 +707,7 @@ ARG is positive, otherwise off."
(not appt-active)))
(remove-hook 'write-file-functions #'appt-update-list)
(or global-mode-string (setq global-mode-string '("")))
- (delq 'appt-mode-string global-mode-string)
+ (setq global-mode-string (delq 'appt-mode-string global-mode-string))
(when appt-timer
(cancel-timer appt-timer)
(setq appt-timer nil))
diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 1b667a6852e..a62361121fc 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -147,7 +147,7 @@ letters, digits, plus or minus signs or colons."
;;;###autoload(put 'parse-time-rules 'risky-local-variable t)
;;;###autoload
-(defun parse-time-string (string)
+(defun parse-time-string (string &optional form)
"Parse the time in STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
STRING should be an ISO 8601 time string, e.g., \"2020-01-15T16:12:21-08:00\",
or something resembling an RFC 822 (or later) date-time, e.g.,
@@ -156,9 +156,11 @@ somewhat liberal in what format it accepts, and will
attempt to
return a \"likely\" value even for somewhat malformed strings.
The values returned are identical to those of `decode-time', but
any unknown values other than DST are returned as nil, and an
-unknown DST value is returned as -1."
+unknown DST value is returned as -1.
+
+See `decode-time' for the meaning of FORM."
(condition-case ()
- (iso8601-parse string)
+ (iso8601-parse string form)
(wrong-type-argument
(let ((time (list nil nil nil nil nil nil nil -1 nil))
(temp (parse-time-tokenize (downcase string))))
@@ -199,12 +201,14 @@ unknown DST value is returned as -1."
(setf (nth (pop slots) time) new-val))))))))
time))))
-(defun parse-iso8601-time-string (date-string)
+(defun parse-iso8601-time-string (date-string &optional form)
"Parse an ISO 8601 time string, such as \"2020-01-15T16:12:21-08:00\".
Fall back on parsing something resembling an RFC 822 (or later) date-time.
This function is like `parse-time-string' except that it returns
-a Lisp timestamp when successful."
- (when-let ((time (parse-time-string date-string)))
+a Lisp timestamp when successful.
+
+See `decode-time' for the meaning of FORM."
+ (when-let ((time (parse-time-string date-string form)))
(encode-time time)))
(provide 'parse-time)
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 671210f3ee8..35cac5d7310 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -1985,7 +1985,13 @@ their associated keys and their effects."
(setq done-only t)
(todo-toggle-view-done-only))
(if here
- (todo-insert-with-overlays new-item)
+ (progn
+ ;; Ensure item is inserted where command was invoked.
+ (unless (= (point) opoint)
+ (todo-category-number ocat)
+ (todo-category-select)
+ (goto-char opoint))
+ (todo-insert-with-overlays new-item))
(todo-set-item-priority new-item cat t))
(setq item-added t))
;; If user cancels before setting priority, restore
@@ -2119,6 +2125,9 @@ the item at point."
((or marked (todo-item-string))
(todo-edit-item--next-key 'todo arg)))))
+(defvar todo-edit-item--cat nil)
+(defvar todo-edit-item--pos nil)
+
(defun todo-edit-item--text (&optional arg)
"Function providing the text editing facilities of `todo-edit-item'."
(let ((full-item (todo-item-string)))
@@ -2127,6 +2136,7 @@ the item at point."
;; 1+ signals an error, so just make this a noop.
(when full-item
(let* ((opoint (point))
+ (ocat (todo-current-category))
(start (todo-item-start))
(end (save-excursion (todo-item-end)))
(item-beg (progn
@@ -2151,8 +2161,7 @@ the item at point."
(concat " \\[" (regexp-quote todo-comment-string)
": \\([^]]+\\)\\]")
end t)))
- (prompt (if comment "Edit comment: " "Enter a comment: "))
- (buffer-read-only nil))
+ (prompt (if comment "Edit comment: " "Enter a comment: ")))
;; When there are marked items, user can invoke todo-edit-item
;; even if point is not on an item, but text editing only
;; applies to the item at point.
@@ -2170,22 +2179,43 @@ the item at point."
end t)
(if comment-delete
(when (todo-y-or-n-p "Delete comment? ")
- (delete-region (match-beginning 0) (match-end 0)))
- (replace-match (save-match-data
- (read-string prompt
- (cons (match-string 1) 1)))
- nil nil nil 1))
+ (let ((buffer-read-only nil))
+ (delete-region (match-beginning 0) (match-end 0))))
+ (let ((buffer-read-only nil))
+ (replace-match (save-match-data
+ (prog1 (let ((buffer-read-only t))
+ (read-string
+ prompt
+ (cons (match-string 1) 1)))
+ ;; If user moved point while editing
+ ;; a comment, restore it and ensure
+ ;; done items section is displayed.
+ (unless (= (point) opoint)
+ (todo-category-number ocat)
+ (let ((todo-show-with-done t))
+ (todo-category-select)
+ (goto-char opoint)))))
+ nil nil nil 1)))
(if comment-delete
(user-error "There is no comment to delete")
- (insert " [" todo-comment-string ": "
- (prog1 (read-string prompt)
- ;; If user moved point during editing,
- ;; make sure it moves back.
- (goto-char opoint)
- (todo-item-end))
- "]")))))
+ (let ((buffer-read-only nil))
+ (insert " [" todo-comment-string ": "
+ (prog1 (let ((buffer-read-only t))
+ (read-string prompt))
+ ;; If user moved point while inserting a
+ ;; comment, restore it and ensure done items
+ ;; section is displayed.
+ (unless (= (point) opoint)
+ (todo-category-number ocat)
+ (let ((todo-show-with-done t))
+ (todo-category-select)
+ (goto-char opoint)))
+ (todo-item-end))
+ "]"))))))
(multiline
(let ((buf todo-edit-buffer))
+ (setq todo-edit-item--cat ocat)
+ (setq todo-edit-item--pos opoint)
(set-window-buffer (selected-window)
(set-buffer (make-indirect-buffer
(buffer-name) buf)))
@@ -2208,10 +2238,14 @@ the item at point."
;; Ensure lines following hard newlines are indented.
(setq new (replace-regexp-in-string "\\(\n\\)[^[:blank:]]"
"\n\t" new nil nil 1))
- ;; If user moved point during editing, make sure it moves back.
- (goto-char opoint)
- (todo-remove-item)
- (todo-insert-with-overlays new)
+ ;; If user moved point while editing item, restore it.
+ (unless (= (point) opoint)
+ (todo-category-number ocat)
+ (todo-category-select)
+ (goto-char opoint))
+ (let ((buffer-read-only nil))
+ (todo-remove-item)
+ (todo-insert-with-overlays new))
(move-to-column item-beg)))))))))
(defun todo-edit-quit ()
@@ -2243,6 +2277,9 @@ made in the number or names of categories."
(kill-buffer)
(unless (eq (current-buffer) buf)
(set-window-buffer (selected-window) (set-buffer buf)))
+ (todo-category-number todo-edit-item--cat)
+ (todo-category-select)
+ (goto-char todo-edit-item--pos)
(if transient-mark-mode (deactivate-mark)))
;; We got here via `F e'.
(when (todo-check-format)
@@ -2315,117 +2352,118 @@ made in the number or names of categories."
;; If there are marked items, use only the first to set
;; header changes, and apply these to all marked items.
(when first
- (cond
- ((eq what 'date)
- (setq ndate (todo-read-date)))
- ((eq what 'calendar)
- (setq ndate (save-match-data (todo-set-date-from-calendar))))
- ((eq what 'today)
- (setq ndate (calendar-date-string (calendar-current-date) t t)))
- ((eq what 'dayname)
- (setq ndate (todo-read-dayname)))
- ((eq what 'time)
- (setq ntime (save-match-data (todo-read-time)))
- (when (> (length ntime) 0)
- (setq ntime (concat " " ntime))))
- ;; When date string consists only of a day name,
- ;; passing other date components is a noop.
- ((and odayname (memq what '(year month day))))
- ((eq what 'year)
- (setq day oday
- monthname omonthname
- month omonth
- year (cond ((not current-prefix-arg)
- (todo-read-date 'year))
- ((string= oyear "*")
- (user-error "Cannot increment *"))
- (t
- (number-to-string (+ yy inc))))))
- ((eq what 'month)
- (setf day oday
- year oyear
- (if (memq 'month calendar-date-display-form)
- month
- monthname)
- (cond ((not current-prefix-arg)
- (todo-read-date 'month))
- ((or (string= omonth "*") (= mm 13))
- (user-error "Cannot increment *"))
- (t
- (let* ((mmo mm)
- ;; Change by 12 or more months?
- (bigincp (>= (abs inc) 12))
- ;; Month number is in range 1..12.
- (mminc (+ mm (% inc 12)))
- (mm (% (+ mminc 12) 12))
- ;; 12n mod 12 = 0, so 0 is December.
- (mm (if (= mm 0) 12 mm))
- ;; Does change in month cross year?
- (mmcmp (cond ((< inc 0) (> mm mmo))
- ((> inc 0) (< mm mmo))))
- (yyadjust (if bigincp
- (+ (abs (/ inc 12))
- (if mmcmp 1 0))
- 1)))
- ;; Adjust year if necessary.
- (setq yy (cond ((and (< inc 0)
- (or mmcmp bigincp))
- (- yy yyadjust))
- ((and (> inc 0)
- (or mmcmp bigincp))
- (+ yy yyadjust))
- (t yy)))
- (setq year (number-to-string yy))
- ;; Return the changed numerical month as
- ;; a string or the corresponding month name.
- (if omonth
- (number-to-string mm)
- (aref tma-array (1- mm)))))))
- ;; Since the number corresponding to the arbitrary
- ;; month name "*" is out of the range of
- ;; calendar-last-day-of-month, set it to 1
- ;; (corresponding to January) to allow 31 days.
- (let ((mm (if (= mm 13) 1 mm)))
- (if (> (string-to-number day)
- (calendar-last-day-of-month mm yy))
- (user-error "%s %s does not have %s days"
- (aref tmn-array (1- mm))
- (if (= mm 2) yy "") day))))
- ((eq what 'day)
- (setq year oyear
- month omonth
- monthname omonthname
- day (cond
- ((not current-prefix-arg)
- (todo-read-date 'day mm yy))
- ((string= oday "*")
- (user-error "Cannot increment *"))
- ((or (string= omonth "*") (string= omonthname "*"))
- (setq dd (+ dd inc))
- (if (> dd 31)
- (user-error
- "A month cannot have more than 31 days")
- (number-to-string dd)))
- ;; Increment or decrement day by INC,
- ;; adjusting month and year if necessary
- ;; (if year is "*" assume current year to
- ;; calculate adjustment).
- (t
- (let* ((yy (or yy (calendar-extract-year
- (calendar-current-date))))
- (date (calendar-gregorian-from-absolute
- (+ (calendar-absolute-from-gregorian
- (list mm dd yy))
- inc)))
- (adjmm (nth 0 date)))
- ;; Set year and month(name) to adjusted values.
- (unless (string= year "*")
- (setq year (number-to-string (nth 2 date))))
- (if month
- (setq month (number-to-string adjmm))
- (setq monthname (aref tma-array (1- adjmm))))
- ;; Return changed numerical day as a string.
- (number-to-string (nth 1 date)))))))))
+ (save-match-data
+ (cond
+ ((eq what 'date)
+ (setq ndate (todo-read-date)))
+ ((eq what 'calendar)
+ (setq ndate (todo-set-date-from-calendar)))
+ ((eq what 'today)
+ (setq ndate (calendar-date-string (calendar-current-date) t
t)))
+ ((eq what 'dayname)
+ (setq ndate (todo-read-dayname)))
+ ((eq what 'time)
+ (setq ntime (todo-read-time))
+ (when (> (length ntime) 0)
+ (setq ntime (concat " " ntime))))
+ ;; When date string consists only of a day name,
+ ;; passing other date components is a noop.
+ ((and odayname (memq what '(year month day))))
+ ((eq what 'year)
+ (setq day oday
+ monthname omonthname
+ month omonth
+ year (cond ((not current-prefix-arg)
+ (todo-read-date 'year))
+ ((string= oyear "*")
+ (user-error "Cannot increment *"))
+ (t
+ (number-to-string (+ yy inc))))))
+ ((eq what 'month)
+ (setf day oday
+ year oyear
+ (if (memq 'month calendar-date-display-form)
+ month
+ monthname)
+ (cond ((not current-prefix-arg)
+ (todo-read-date 'month))
+ ((or (string= omonth "*") (= mm 13))
+ (user-error "Cannot increment *"))
+ (t
+ (let* ((mmo mm)
+ ;; Change by 12 or more months?
+ (bigincp (>= (abs inc) 12))
+ ;; Month number is in range 1..12.
+ (mminc (+ mm (% inc 12)))
+ (mm (% (+ mminc 12) 12))
+ ;; 12n mod 12 = 0, so 0 is December.
+ (mm (if (= mm 0) 12 mm))
+ ;; Does change in month cross year?
+ (mmcmp (cond ((< inc 0) (> mm mmo))
+ ((> inc 0) (< mm mmo))))
+ (yyadjust (if bigincp
+ (+ (abs (/ inc 12))
+ (if mmcmp 1 0))
+ 1)))
+ ;; Adjust year if necessary.
+ (setq yy (cond ((and (< inc 0)
+ (or mmcmp bigincp))
+ (- yy yyadjust))
+ ((and (> inc 0)
+ (or mmcmp bigincp))
+ (+ yy yyadjust))
+ (t yy)))
+ (setq year (number-to-string yy))
+ ;; Return the changed numerical month as
+ ;; a string or the corresponding month name.
+ (if omonth
+ (number-to-string mm)
+ (aref tma-array (1- mm)))))))
+ ;; Since the number corresponding to the arbitrary
+ ;; month name "*" is out of the range of
+ ;; calendar-last-day-of-month, set it to 1
+ ;; (corresponding to January) to allow 31 days.
+ (let ((mm (if (= mm 13) 1 mm)))
+ (if (> (string-to-number day)
+ (calendar-last-day-of-month mm yy))
+ (user-error "%s %s does not have %s days"
+ (aref tmn-array (1- mm))
+ (if (= mm 2) yy "") day))))
+ ((eq what 'day)
+ (setq year oyear
+ month omonth
+ monthname omonthname
+ day (cond
+ ((not current-prefix-arg)
+ (todo-read-date 'day mm yy))
+ ((string= oday "*")
+ (user-error "Cannot increment *"))
+ ((or (string= omonth "*") (string= omonthname "*"))
+ (setq dd (+ dd inc))
+ (if (> dd 31)
+ (user-error
+ "A month cannot have more than 31 days")
+ (number-to-string dd)))
+ ;; Increment or decrement day by INC,
+ ;; adjusting month and year if necessary
+ ;; (if year is "*" assume current year to
+ ;; calculate adjustment).
+ (t
+ (let* ((yy (or yy (calendar-extract-year
+ (calendar-current-date))))
+ (date (calendar-gregorian-from-absolute
+ (+ (calendar-absolute-from-gregorian
+ (list mm dd yy))
+ inc)))
+ (adjmm (nth 0 date)))
+ ;; Set year and month(name) to adjusted values.
+ (unless (string= year "*")
+ (setq year (number-to-string (nth 2 date))))
+ (if month
+ (setq month (number-to-string adjmm))
+ (setq monthname (aref tma-array (1- adjmm))))
+ ;; Return changed numerical day as a string.
+ (number-to-string (nth 1 date))))))))))
(unless odayname
;; If year, month or day date string components were
;; changed, rebuild the date string.
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 1c9228b0123..0c15a2a453e 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -618,21 +618,18 @@ Does nothing if the current buffer doesn't need
reparsing."
(lexically-safe t)
)
- (unwind-protect
- ;; Perform the parsing.
- (progn
- (when (semantic-lex-catch-errors safe-refresh
- (save-excursion (semantic-fetch-tags))
- nil)
- ;; If we are here, it is because the lexical step failed,
- ;; probably due to unterminated lists or something like that.
-
- ;; We do nothing, and just wait for the next idle timer
- ;; to go off. In the meantime, remember this, and make sure
- ;; no other idle services can get executed.
- (setq lexically-safe nil))
- )
- )
+ ;; Perform the parsing.
+ (when (semantic-lex-catch-errors safe-refresh
+ (save-excursion (semantic-fetch-tags))
+ nil)
+ ;; If we are here, it is because the lexical step failed,
+ ;; probably due to unterminated lists or something like that.
+
+ ;; We do nothing, and just wait for the next idle timer
+ ;; to go off. In the meantime, remember this, and make sure
+ ;; no other idle services can get executed.
+ (setq lexically-safe nil))
+
;; Return if we are lexically safe
lexically-safe))))
diff --git a/lisp/comint.el b/lisp/comint.el
index 9d2c245247f..718a972a582 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -258,6 +258,35 @@ to set this in a mode hook, rather than customize the
default value."
file)
:group 'comint)
+(defcustom comint-pager nil
+ "If non-nil, the program to use for pagination of program output.
+
+Some programs produce large amounts of output, and have provision for
+pagination of their output through a filter program, commonly known as
+a \"pager\". The pager limits the amount of output produced and
+allows the user to interactively browse the output one page at a time.
+Some programs paginate their output by default, by always starting a
+pager. The program they use as the pager is specified by the
+environment variable PAGER; if that variable is not defined, they use
+some fixed default, such as \"less\".
+
+The interactive browsing aspects of pagination are not needed, and get
+in the way, when the output of the program is directed to an Emacs
+buffer, so in those cases pagination might need to be disabled.
+Disabling pagination means that some programs will produce large
+amounts of output, but most such programs have other ways to limit
+their output, such as additional arguments or Emacs interfaces.
+To disable pagination, this variable's value should be a string that
+names a program, such as \"cat\", which passes through all of the
+output without any filtering or delays. Comint will then set the
+PAGER variable to name that program, when it invokes external
+programs."
+ :version "30.1"
+ :type '(choice (const :tag "Use default PAGER" nil)
+ (const :tag "Don't do paging (PAGER=cat)" "cat")
+ (string :tag "Program name or absolute path of pager"))
+ :group 'comint)
+
(defvar comint-input-ring-file-prefix nil
"The prefix to skip when parsing the input ring file.
This is useful in Zsh when the extended_history option is on.")
@@ -865,6 +894,10 @@ series of processes in the same Comint buffer. The hook
(nconc
(comint-term-environment)
(list (format "INSIDE_EMACS=%s,comint" emacs-version))
+ (when comint-pager
+ (if (stringp comint-pager)
+ (list (format "PAGER=%s" comint-pager))
+ (error "comint-pager should be a string: %s" comint-pager)))
process-environment))
(default-directory
(if (file-accessible-directory-p default-directory)
@@ -1543,6 +1576,8 @@ Intended to be added to `isearch-mode-hook' in
`comint-mode'."
(setq isearch-message-function nil)
(setq isearch-wrap-function nil)
(setq isearch-push-state-function nil)
+ ;; Force isearch to not change mark.
+ (setq isearch-opoint (point))
(kill-local-variable 'isearch-lazy-count)
(remove-hook 'isearch-mode-end-hook 'comint-history-isearch-end t)
(unless isearch-suspended
diff --git a/lisp/composite.el b/lisp/composite.el
index fb8b76114f4..3ae3e64d5b9 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -818,7 +818,7 @@ prepending a space before it."
(setq glyph (lgstring-glyph gstring i))
(lglyph-set-char glyph 32)
(lglyph-set-width glyph 1)
- (setq i (+ 2)))
+ (setq i (+ i 2)))
(let ((from (lglyph-from glyph))
(to (lglyph-to glyph))
(j (1+ i)))
@@ -861,7 +861,7 @@ and the second is a glyph for a variation selector."
;; handled in font_range, we end up choosing the Emoji presentation
;; rather than the Text presentation.
(let ((elt '([".." 1 compose-gstring-for-variation-glyph])))
- (set-char-table-range composition-function-table '(#xFE00 . #xFE0E) elt)
+ (set-char-table-range composition-function-table '(#xFE00 . #xFE0D) elt)
(set-char-table-range composition-function-table '(#xE0100 . #xE01EF) elt))
(defun auto-compose-chars (func from to font-object string direction)
diff --git a/lisp/custom.el b/lisp/custom.el
index fa77e5c2c56..083349e3591 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -280,7 +280,9 @@ The following keywords are meaningful:
when using the Customize user interface. It takes two arguments,
the symbol to set and the value to give it. The function should
not modify its value argument destructively. The default choice
- of function is `set-default-toplevel-value'.
+ of function is `set-default-toplevel-value'. If this keyword is
+ defined, modifying the value of SYMBOL via `setopt' will call the
+ function specified by VALUE to install the new value.
:get VALUE should be a function to extract the value of symbol.
The function takes one argument, a symbol, and should return
the current value for that symbol. The default choice of function
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 96ac9da4508..a07406e4c0d 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -957,7 +957,7 @@ Also see the `dired-confirm-shell-command' variable."
;; "&" instead.
(cmd-sep (if (and (or (not w32-shell) file-remote)
(not parallel-in-background))
- ";" "&"))
+ "; " "& "))
(stuff-it
(if (dired--star-or-qmark-p command nil 'keep)
(lambda (x)
@@ -988,7 +988,7 @@ Also see the `dired-confirm-shell-command' variable."
;; Add 'wait' to force those POSIX shells to wait until
;; all commands finish.
(or (and parallel-in-background (not w32-shell)
- " &wait")
+ " & wait")
"")))
(t
(let ((files (mapconcat #'shell-quote-argument
@@ -1000,9 +1000,9 @@ Also see the `dired-confirm-shell-command' variable."
;; Be consistent in how we treat inputs to commands -- do
;; the same here as in the `on-each' case.
(if (and in-background (not w32-shell))
- " &wait"
+ " & wait"
"")))))
- (or (and in-background "&")
+ (or (and in-background "& ")
""))))
;; This is an extra function so that it can be redefined by ange-ftp.
diff --git a/lisp/dired.el b/lisp/dired.el
index 8e3244356fe..e70467ca53b 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -927,9 +927,9 @@ marked file, return (t FILENAME) instead of (FILENAME)."
(lambda ()
(if ,show-progress (sit-for 0))
(setq results (cons ,body results))))
- (if (< ,arg 0)
- (nreverse results)
- results))
+ (when (< ,arg 0)
+ (setq results (nreverse results)))
+ results)
;; non-nil, non-integer, non-marked ARG means use current file:
(list ,body))
(let ((regexp (dired-marker-regexp)) next-position)
@@ -1647,13 +1647,16 @@ If HDR is non-nil, insert a header line with the
directory name."
;; save the answer in `dired-use-ls-dired'.
(or (setq dired-use-ls-dired
(eq 0 (call-process insert-directory-program
- nil nil nil "--dired")))
+ nil nil nil "--dired" "-N")))
(progn
- (message "ls does not support --dired; \
+ (message "ls does not support --dired -N; \
see `dired-use-ls-dired' for more details.")
nil))
dired-use-ls-dired)))
- (setq switches (concat "--dired " switches)))
+ ;; Use -N with --dired, to countermand possible non-default
+ ;; quoting style, in particular via the environment variable
+ ;; QUOTING_STYLE.
+ (setq switches (concat "--dired -N " switches)))
;; Expand directory wildcards and fill file-list.
(let ((dir-wildcard (insert-directory-wildcard-in-dir-p dir)))
(cond (dir-wildcard
@@ -1662,7 +1665,7 @@ see `dired-use-ls-dired' for more details.")
;; "--dired", so we cannot add it to the `process-file'
;; call for wildcards.
(when (file-remote-p dir)
- (setq switches (string-replace "--dired" "" switches)))
+ (setq switches (string-replace "--dired -N" "" switches)))
(let* ((default-directory (car dir-wildcard))
(script (format "ls %s %s" switches (cdr dir-wildcard)))
(remotep (file-remote-p dir))
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 0303fec67a6..b14655fb274 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -236,17 +236,14 @@ showing only titles and no page number."
:type 'boolean
:version "29.1")
-(defcustom doc-view-svg-background "white"
- "Background color for svg images.
+(defface doc-view-svg-face '((t :inherit default))
+ "Face used for SVG images. Only background and foreground colors
+are used.
See `doc-view-mupdf-use-svg'."
- :type 'color
- :version "29.1")
+ :version "30.1")
-(defcustom doc-view-svg-foreground "black"
- "Foreground color for svg images.
-See `doc-view-mupdf-use-svg'."
- :type 'color
- :version "29.1")
+(make-obsolete 'doc-view-svg-background 'doc-view-svg-face "30.1")
+(make-obsolete 'doc-view-svg-foreground 'doc-view-svg-face "30.1")
(defcustom doc-view-ghostscript-options
'("-dSAFER" ;; Avoid security problems when rendering files from untrusted
@@ -1602,8 +1599,8 @@ ARGS is a list of image descriptors."
(unless (member :transform-smoothing args)
(setq args `(,@args :transform-smoothing t)))
(when (eq doc-view--image-type 'svg)
- (setq args `(,@args :background
,doc-view-svg-background
- :foreground
,doc-view-svg-foreground)))
+ (setq args `(,@args :background ,(face-background
'doc-view-svg-face)
+ :foreground ,(face-foreground
'doc-view-svg-face))))
(apply #'create-image file doc-view--image-type nil
args))))
(slice (doc-view-current-slice))
(img-width (and image (car (image-size image))))
diff --git a/lisp/dynamic-setting.el b/lisp/dynamic-setting.el
index 9ce09657345..ebe25ab9c75 100644
--- a/lisp/dynamic-setting.el
+++ b/lisp/dynamic-setting.el
@@ -33,6 +33,7 @@
;;; Customizable variables
(declare-function font-get-system-font "xsettings.c" ())
+(declare-function reconsider-frame-font "frame.c" ())
(defvar font-use-system-font)
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 8734f7cbebe..69d20d2bad3 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -91,17 +91,17 @@ Default nil means to write characters above \\177 in octal
notation."
`((,(rx bol (group (or "Command" "Key" "Macro") ":")) 0 'edmacro-label)
(,(rx bol
(group ";; Keyboard Macro Editor. Press ")
- (group (*? any))
+ (group (*? nonl))
(group " to finish; press "))
(1 'font-lock-comment-face)
(2 'help-key-binding)
(3 'font-lock-comment-face)
- (,(rx (group (*? any))
- (group " to cancel" (* any)))
+ (,(rx (group (*? nonl))
+ (group " to cancel" (* nonl)))
nil nil
(1 'help-key-binding)
(2 'font-lock-comment-face)))
- (,(rx (one-or-more ";") (zero-or-more any)) 0 'font-lock-comment-face)))
+ (,(rx (one-or-more ";") (zero-or-more nonl)) 0 'font-lock-comment-face)))
(defvar edmacro-store-hook)
(defvar edmacro-finish-hook)
diff --git a/lisp/electric.el b/lisp/electric.el
index bac3f5a2b3c..cef5326852c 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -409,9 +409,7 @@ If multiple rules match, only first one is executed.")
(goto-char pos)
(funcall probe last-command-event))))
(when res (throw 'done res))))))))))
- (when (and rule
- ;; Not in a string or comment.
- (not (nth 8 (save-excursion (syntax-ppss pos)))))
+ (when rule
(goto-char pos)
(when (functionp rule) (setq rule (funcall rule)))
(dolist (sym (if (symbolp rule) (list rule) rule))
diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el
index 53e17693933..57912c854b0 100644
--- a/lisp/emacs-lisp/backtrace.el
+++ b/lisp/emacs-lisp/backtrace.el
@@ -499,7 +499,6 @@ Reprint the frame with the new view plist."
(defun backtrace-expand-ellipsis (button)
"Expand display of the elided form at BUTTON."
- (interactive)
(goto-char (button-start button))
(unless (get-text-property (point) 'cl-print-ellipsis)
(if (and (> (point) (point-min))
diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index dc7889c40a0..e50b8524f29 100644
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -152,7 +152,7 @@ to call it without any argument."
(defmacro benchmark-progn (&rest body)
"Evaluate BODY and message the time taken.
The return value is the value of the final form in BODY."
- (declare (debug body) (indent 0))
+ (declare (debug t) (indent 0))
(let ((value (make-symbol "value"))
(start (make-symbol "start"))
(gcs (make-symbol "gcs"))
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 3c7aeb89525..f64674d5a6c 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -221,21 +221,17 @@ for speeding up processing.")
(defun byte-optimize--substitutable-p (expr)
"Whether EXPR is a constant that can be propagated."
- ;; Only consider numbers, symbols and strings to be values for substitution
- ;; purposes. Numbers and symbols are immutable, and mutating string
- ;; literals (or results from constant-evaluated string-returning functions)
- ;; can be considered undefined.
- ;; (What about other quoted values, like conses?)
(or (booleanp expr)
(numberp expr)
- (stringp expr)
- (and (consp expr)
- (or (and (memq (car expr) '(quote function))
- (symbolp (cadr expr)))
- ;; (internal-get-closed-var N) can be considered constant for
- ;; const-prop purposes.
- (and (eq (car expr) 'internal-get-closed-var)
- (integerp (cadr expr)))))
+ (arrayp expr)
+ (let ((head (car-safe expr)))
+ (cond ((eq head 'quote) t)
+ ;; Don't substitute #'(lambda ...) since that would enable
+ ;; uncontrolled inlining.
+ ((eq head 'function) (symbolp (cadr expr)))
+ ;; (internal-get-closed-var N) can be considered constant for
+ ;; const-prop purposes.
+ ((eq head 'internal-get-closed-var) (integerp (cadr expr)))))
(keywordp expr)))
(defmacro byte-optimize--pcase (exp &rest cases)
@@ -451,16 +447,10 @@ for speeding up processing.")
. ,(byte-optimize-body exps for-effect)))
;; Needed as long as we run byte-optimize-form after cconv.
- (`(internal-make-closure . ,_)
- (and (not for-effect)
- (progn
- ;; Look up free vars and mark them to be kept, so that they
- ;; won't be optimized away.
- (dolist (var (caddr form))
- (let ((lexvar (assq var byte-optimize--lexvars)))
- (when lexvar
- (setcar (cdr lexvar) t))))
- form)))
+ (`(internal-make-closure ,vars ,env . ,rest)
+ (if for-effect
+ `(progn ,@(byte-optimize-body env t))
+ `(,fn ,vars ,(mapcar #'byte-optimize-form env) . ,rest)))
(`((lambda . ,_) . ,_)
(let ((newform (macroexp--unfold-lambda form)))
@@ -469,10 +459,6 @@ for speeding up processing.")
form
(byte-optimize-form newform for-effect))))
- ;; FIXME: Strictly speaking, I think this is a bug: (closure...)
- ;; is a *value* and shouldn't appear in the car.
- (`((closure . ,_) . ,_) form)
-
(`(setq ,var ,expr)
(let ((lexvar (assq var byte-optimize--lexvars))
(value (byte-optimize-form expr nil)))
@@ -500,19 +486,13 @@ for speeding up processing.")
(cons fn (mapcar #'byte-optimize-form exps)))
(`(,(pred (not symbolp)) . ,_)
- (byte-compile-warn-x fn "`%s' is a malformed function" fn)
+ (byte-compile-warn-x form "`%s' is a malformed function" fn)
form)
((guard (when for-effect
(if-let ((tmp (byte-opt--fget fn 'side-effect-free)))
(or byte-compile-delete-errors
- (eq tmp 'error-free)
- (progn
- (byte-compile-warn-x
- form
- "value returned from %s is unused"
- form)
- nil)))))
+ (eq tmp 'error-free)))))
(byte-compile-log " %s called for effect; deleted" fn)
(byte-optimize-form (cons 'progn (cdr form)) t))
@@ -1426,10 +1406,13 @@ See Info node `(elisp) Integer Basics'."
(defun byte-optimize-funcall (form)
- ;; (funcall (lambda ...) ...) ==> ((lambda ...) ...)
- ;; (funcall foo ...) ==> (foo ...)
- (let ((fn (nth 1 form)))
- (if (memq (car-safe fn) '(quote function))
+ ;; (funcall #'(lambda ...) ...) -> ((lambda ...) ...)
+ ;; (funcall #'SYM ...) -> (SYM ...)
+ ;; (funcall 'SYM ...) -> (SYM ...)
+ (let* ((fn (nth 1 form))
+ (head (car-safe fn)))
+ (if (or (eq head 'function)
+ (and (eq head 'quote) (symbolp (nth 1 fn))))
(cons (nth 1 fn) (cdr (cdr form)))
form)))
@@ -1526,6 +1509,44 @@ See Info node `(elisp) Integer Basics'."
;; (list) -> nil
(and (cdr form) form))
+(put 'nconc 'byte-optimizer #'byte-optimize-nconc)
+(defun byte-optimize-nconc (form)
+ (pcase (cdr form)
+ ('nil nil) ; (nconc) -> nil
+ (`(,x) x) ; (nconc X) -> X
+ (_ (named-let loop ((args (cdr form)) (newargs nil))
+ (if args
+ (let ((arg (car args))
+ (prev (car newargs)))
+ (cond
+ ;; Elide null args.
+ ((and (null arg)
+ ;; Don't elide a terminal nil unless preceded by
+ ;; a nonempty proper list, since that will have
+ ;; its last cdr forced to nil.
+ (or (cdr args)
+ ;; FIXME: prove the 'nonempty proper list' property
+ ;; for more forms than just `list', such as
+ ;; `append', `mapcar' etc.
+ (eq 'list (car-safe (car newargs)))))
+ (loop (cdr args) newargs))
+ ;; Merge consecutive `list' args.
+ ((and (eq (car-safe arg) 'list)
+ (eq (car-safe prev) 'list))
+ (loop (cons (cons (car prev) (append (cdr prev) (cdr arg)))
+ (cdr args))
+ (cdr newargs)))
+ ;; (nconc ... (list A) B ...) -> (nconc ... (cons A B) ...)
+ ((and (eq (car-safe prev) 'list) (cdr prev) (null (cddr prev)))
+ (loop (cdr args)
+ (cons (list 'cons (cadr prev) arg)
+ (cdr newargs))))
+ (t (loop (cdr args) (cons arg newargs)))))
+ (let ((new-form (cons (car form) (nreverse newargs))))
+ (if (equal new-form form)
+ form
+ new-form)))))))
+
(put 'append 'byte-optimizer #'byte-optimize-append)
(defun byte-optimize-append (form)
;; There is (probably) too much code relying on `append' to return a
@@ -1578,11 +1599,9 @@ See Info node `(elisp) Integer Basics'."
;; (append X) -> X
((null newargs) arg)
- ;; (append (list Xs...) nil) -> (list Xs...)
- ((and (null arg)
- newargs (null (cdr newargs))
- (consp prev) (eq (car prev) 'list))
- prev)
+ ;; (append ... (list Xs...) nil) -> (append ... (list Xs...))
+ ((and (null arg) (eq (car-safe prev) 'list))
+ (cons (car form) (nreverse newargs)))
;; (append '(X) Y) -> (cons 'X Y)
;; (append (list X) Y) -> (cons X Y)
@@ -1593,13 +1612,13 @@ See Info node `(elisp) Integer Basics'."
(= (length (cadr prev)) 1)))
((eq (car prev) 'list)
(= (length (cdr prev)) 1))))
- (list 'cons (if (eq (car prev) 'quote)
- (macroexp-quote (caadr prev))
- (cadr prev))
- arg))
+ `(cons ,(if (eq (car prev) 'quote)
+ (macroexp-quote (caadr prev))
+ (cadr prev))
+ ,arg))
(t
- (let ((new-form (cons 'append (nreverse (cons arg newargs)))))
+ (let ((new-form (cons (car form) (nreverse (cons arg newargs)))))
(if (equal new-form form)
form
new-form))))))))
@@ -1642,98 +1661,241 @@ See Info node `(elisp) Integer Basics'."
;; I wonder if I missed any :-\)
(let ((side-effect-free-fns
- '(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan
- assq
- base64-decode-string base64-encode-string base64url-encode-string
+ '(
+ ;; alloc.c
+ make-bool-vector make-byte-code make-list make-record make-string
+ make-symbol make-vector
+ ;; buffer.c
+ buffer-base-buffer buffer-chars-modified-tick buffer-file-name
+ buffer-local-value buffer-local-variables buffer-modified-p
+ buffer-modified-tick buffer-name get-buffer next-overlay-change
+ overlay-buffer overlay-end overlay-get overlay-properties
+ overlay-start overlays-at overlays-in previous-overlay-change
+ ;; callint.c
+ prefix-numeric-value
+ ;; casefiddle.c
+ capitalize downcase upcase upcase-initials
+ ;; category.c
+ category-docstring category-set-mnemonics char-category-set
+ copy-category-table get-unused-category make-category-set
+ ;; character.c
+ char-width get-byte multibyte-char-to-unibyte string string-width
+ unibyte-char-to-multibyte unibyte-string
+ ;; charset.c
+ decode-char encode-char
+ ;; chartab.c
+ make-char-table
+ ;; data.c
+ % * + - / /= 1+ 1- < <= = > >=
+ aref ash bare-symbol
bool-vector-count-consecutive bool-vector-count-population
bool-vector-subsetp
- boundp buffer-file-name buffer-local-variables buffer-modified-p
- buffer-substring byte-code-function-p
- capitalize car-less-than-car car cdr ceiling char-after char-before
- char-equal char-to-string char-width compare-strings
- window-configuration-equal-p concat coordinates-in-window-p
- copy-alist copy-sequence copy-marker copysign cos
- current-time-string current-time-zone
- decode-char
- decode-time default-boundp default-value documentation downcase
- elt encode-char exp expt encode-time error-message-string
- fboundp fceiling featurep ffloor
- file-directory-p file-exists-p file-locked-p file-name-absolute-p
- file-name-concat
- file-newer-than-file-p file-readable-p file-symlink-p file-writable-p
- float float-time floor format format-message format-time-string
- frame-first-window frame-root-window frame-selected-window
- frame-visible-p fround ftruncate
- get gethash get-buffer get-buffer-window get-file-buffer
- hash-table-count
- intern-soft isnan
- keymap-parent
- ldexp
- length length< length> length=
- line-beginning-position line-end-position pos-bol pos-eol
- local-variable-if-set-p local-variable-p locale-info
- log logand logb logcount logior lognot logxor
- make-byte-code make-list make-string make-symbol marker-buffer max
- match-beginning match-end
- member memq memql min minibuffer-selected-window minibuffer-window
- mod multibyte-char-to-unibyte next-window nth nthcdr number-to-string
- prefix-numeric-value previous-window prin1-to-string propertize
- rassq rassoc read-from-string
- regexp-quote region-beginning region-end reverse round
- sin sqrt string string-equal string-lessp
- string-search string-to-char
- string-to-number string-to-syntax substring substring-no-properties
- sxhash-equal sxhash-eq sxhash-eql
- symbol-function symbol-name symbol-plist symbol-value
- string-make-unibyte
- string-make-multibyte string-as-multibyte string-as-unibyte
- string-to-multibyte
- take tan time-convert truncate
- unibyte-char-to-multibyte upcase user-full-name
- user-login-name
- vconcat
- window-at window-body-height
- window-body-width window-buffer window-dedicated-p window-display-table
- window-combination-limit window-frame window-fringes
- window-hscroll
- window-left-child window-left-column window-margins window-minibuffer-p
- window-next-buffers window-next-sibling window-new-normal
- window-new-total window-normal-size window-parameter window-parameters
- window-parent window-point window-prev-buffers
- window-prev-sibling window-scroll-bars
- window-start window-text-height window-top-child window-top-line
- window-total-height window-total-width window-use-time window-vscroll
- ))
+ boundp car cdr default-boundp default-value fboundp
+ get-variable-watchers indirect-variable
+ local-variable-if-set-p local-variable-p
+ logand logcount logior lognot logxor max min mod
+ number-to-string position-symbol string-to-number
+ subr-arity subr-name subr-native-lambda-list subr-type
+ symbol-function symbol-name symbol-plist symbol-value
+ symbol-with-pos-pos variable-binding-locus
+ ;; doc.c
+ documentation
+ ;; editfns.c
+ buffer-substring buffer-substring-no-properties
+ byte-to-position byte-to-string
+ char-after char-before char-equal char-to-string
+ compare-buffer-substrings
+ format format-message
+ group-name
+ line-beginning-position line-end-position ngettext pos-bol pos-eol
+ propertize region-beginning region-end string-to-char
+ user-full-name user-login-name
+ ;; eval.c
+ special-variable-p
+ ;; fileio.c
+ car-less-than-car directory-name-p file-directory-p file-exists-p
+ file-name-absolute-p file-name-concat file-newer-than-file-p
+ file-readable-p file-symlink-p file-writable-p
+ ;; filelock.c
+ file-locked-p
+ ;; floatfns.c
+ abs acos asin atan ceiling copysign cos exp expt fceiling ffloor
+ float floor frexp fround ftruncate isnan ldexp log logb round
+ sin sqrt tan
+ truncate
+ ;; fns.c
+ append assq
+ base64-decode-string base64-encode-string base64url-encode-string
+ buffer-hash buffer-line-statistics
+ compare-strings concat copy-alist copy-hash-table copy-sequence elt
+ featurep get
+ gethash hash-table-count hash-table-rehash-size
+ hash-table-rehash-threshold hash-table-size hash-table-test
+ hash-table-weakness
+ length length< length= length>
+ line-number-at-pos load-average locale-info make-hash-table md5
+ member memq memql nth nthcdr
+ object-intervals rassoc rassq reverse secure-hash
+ string-as-multibyte string-as-unibyte string-bytes
+ string-collate-equalp string-collate-lessp string-distance
+ string-equal string-lessp string-make-multibyte string-make-unibyte
+ string-search string-to-multibyte string-to-unibyte
+ string-version-lessp
+ substring substring-no-properties
+ sxhash-eq sxhash-eql sxhash-equal sxhash-equal-including-properties
+ take vconcat
+ ;; frame.c
+ frame-ancestor-p frame-bottom-divider-width frame-char-height
+ frame-char-width frame-child-frame-border-width frame-focus
+ frame-fringe-width frame-internal-border-width frame-native-height
+ frame-native-width frame-parameter frame-parameters frame-parent
+ frame-pointer-visible-p frame-position frame-right-divider-width
+ frame-scale-factor frame-scroll-bar-height frame-scroll-bar-width
+ frame-text-cols frame-text-height frame-text-lines frame-text-width
+ frame-total-cols frame-total-lines frame-visible-p
+ frame-window-state-change next-frame previous-frame
+ tool-bar-pixel-width window-system
+ ;; fringe.c
+ fringe-bitmaps-at-pos
+ ;; keyboard.c
+ posn-at-point posn-at-x-y
+ ;; keymap.c
+ copy-keymap keymap-parent keymap-prompt make-keymap make-sparse-keymap
+ ;; lread.c
+ intern-soft read-from-string
+ ;; marker.c
+ copy-marker marker-buffer marker-insertion-type marker-position
+ ;; minibuf.c
+ active-minibuffer-window assoc-string innermost-minibuffer-p
+ minibuffer-innermost-command-loop-p minibufferp
+ ;; print.c
+ error-message-string prin1-to-string
+ ;; process.c
+ format-network-address get-buffer-process get-process
+ process-buffer process-coding-system process-command process-filter
+ process-id process-inherit-coding-system-flag process-mark
+ process-name process-plist process-query-on-exit-flag
+ process-running-child-p process-sentinel process-thread
+ process-tty-name process-type
+ ;; search.c
+ match-beginning match-end regexp-quote
+ ;; sqlite.c
+ sqlite-columns sqlite-more-p sqlite-version
+ ;; syntax.c
+ char-syntax copy-syntax-table matching-paren string-to-syntax
+ syntax-class-to-char
+ ;; term.c
+ controlling-tty-p tty-display-color-cells tty-display-color-p
+ tty-top-frame tty-type
+ ;; terminal.c
+ frame-terminal terminal-list terminal-live-p terminal-name
+ terminal-parameter terminal-parameters
+ ;; textprop.c
+ get-char-property get-char-property-and-overlay get-text-property
+ next-char-property-change next-property-change
+ next-single-char-property-change next-single-property-change
+ previous-char-property-change previous-property-change
+ previous-single-char-property-change previous-single-property-change
+ text-properties-at text-property-any text-property-not-all
+ ;; thread.c
+ all-threads condition-mutex condition-name mutex-name thread-live-p
+ thread-name
+ ;; timefns.c
+ current-cpu-time
+ current-time-string current-time-zone decode-time encode-time
+ float-time format-time-string time-add time-convert time-equal-p
+ time-less-p time-subtract
+ ;; window.c
+ coordinates-in-window-p frame-first-window frame-root-window
+ frame-selected-window get-buffer-window minibuffer-selected-window
+ minibuffer-window next-window previous-window window-at
+ window-body-height window-body-width window-buffer
+ window-combination-limit window-configuration-equal-p
+ window-dedicated-p window-display-table window-frame window-fringes
+ window-hscroll window-left-child window-left-column window-margins
+ window-minibuffer-p window-new-normal window-new-total
+ window-next-buffers window-next-sibling window-normal-size
+ window-parameter window-parameters window-parent window-point
+ window-prev-buffers window-prev-sibling window-scroll-bars
+ window-start window-text-height window-top-child window-top-line
+ window-total-height window-total-width window-use-time window-vscroll
+ ;; xdisp.c
+ buffer-text-pixel-size current-bidi-paragraph-direction
+ get-display-property invisible-p line-pixel-height lookup-image-map
+ tab-bar-height tool-bar-height window-text-pixel-size
+ ))
(side-effect-and-error-free-fns
- '(arrayp atom
- bobp bolp bool-vector-p
- buffer-list buffer-size buffer-string bufferp
- car-safe case-table-p cdr-safe char-or-string-p characterp
- charsetp commandp cons consp
- current-buffer current-global-map current-indentation
- current-local-map current-minor-mode-maps current-time
- eobp eolp eq equal
- floatp following-char framep
- hash-table-p
- identity indirect-function integerp integer-or-marker-p
- invocation-directory invocation-name
- keymapp keywordp
- list listp
- make-marker mark-marker markerp max-char
- natnump nlistp null number-or-marker-p numberp
- overlayp
- point point-marker point-min point-max preceding-char
- processp proper-list-p
- recent-keys recursion-depth
- safe-length selected-frame selected-window sequencep
- standard-case-table standard-syntax-table stringp subrp symbolp
- syntax-table syntax-table-p
- this-command-keys this-command-keys-vector this-single-command-keys
- this-single-command-raw-keys type-of
- user-real-login-name user-real-uid user-uid
- vector vectorp visible-frame-list
- wholenump window-configuration-p window-live-p
- window-valid-p windowp)))
+ '(
+ ;; alloc.c
+ bool-vector cons list make-marker purecopy record vector
+ ;; buffer.c
+ buffer-list buffer-live-p current-buffer overlay-lists overlayp
+ ;; casetab.c
+ case-table-p current-case-table standard-case-table
+ ;; category.c
+ category-table category-table-p make-category-table
+ standard-category-table
+ ;; character.c
+ characterp max-char
+ ;; charset.c
+ charsetp
+ ;; data.c
+ arrayp atom bare-symbol-p bool-vector-p bufferp byte-code-function-p
+ byteorder car-safe cdr-safe char-or-string-p char-table-p
+ condition-variable-p consp eq floatp indirect-function
+ integer-or-marker-p integerp keywordp listp markerp
+ module-function-p multibyte-string-p mutexp natnump nlistp null
+ number-or-marker-p numberp recordp remove-pos-from-symbol
+ sequencep stringp subr-native-elisp-p subrp symbol-with-pos-p symbolp
+ threadp type-of user-ptrp vector-or-char-table-p vectorp wholenump
+ ;; editfns.c
+ bobp bolp buffer-size buffer-string current-message emacs-pid
+ eobp eolp following-char gap-position gap-size group-gid
+ group-real-gid mark-marker point point-marker point-max point-min
+ position-bytes preceding-char system-name
+ user-real-login-name user-real-uid user-uid
+ ;; emacs.c
+ invocation-directory invocation-name
+ ;; eval.c
+ commandp functionp
+ ;; fileio.c
+ default-file-modes
+ ;; fns.c
+ eql equal equal-including-properties
+ hash-table-p identity proper-list-p safe-length
+ secure-hash-algorithms
+ ;; frame.c
+ frame-list frame-live-p framep last-nonminibuffer-frame
+ old-selected-frame selected-frame visible-frame-list
+ ;; image.c
+ imagep
+ ;; indent.c
+ current-column current-indentation
+ ;; keyboard.c
+ current-idle-time current-input-mode recent-keys recursion-depth
+ this-command-keys this-command-keys-vector this-single-command-keys
+ this-single-command-raw-keys
+ ;; keymap.c
+ current-global-map current-local-map current-minor-mode-maps keymapp
+ ;; minibuf.c
+ minibuffer-contents minibuffer-contents-no-properties minibuffer-depth
+ minibuffer-prompt minibuffer-prompt-end
+ ;; process.c
+ process-list processp signal-names waiting-for-user-input-p
+ ;; sqlite.c
+ sqlite-available-p sqlitep
+ ;; syntax.c
+ standard-syntax-table syntax-table syntax-table-p
+ ;; thread.c
+ current-thread
+ ;; timefns.c
+ current-time
+ ;; window.c
+ selected-window window-configuration-p window-live-p window-valid-p
+ windowp
+ ;; xdisp.c
+ long-line-optimizations-p
+ )))
(while side-effect-free-fns
(put (car side-effect-free-fns) 'side-effect-free t)
(setq side-effect-free-fns (cdr side-effect-free-fns)))
@@ -1758,41 +1920,35 @@ See Info node `(elisp) Integer Basics'."
;; values if a marker is moved.
(let ((pure-fns
- '(concat regexp-quote
- string-to-char string-to-syntax symbol-name
- eq eql
- = /= < <= >= > min max
- + - * / % mod abs ash 1+ 1- sqrt
- logand logior lognot logxor logcount
- copysign isnan ldexp float logb
- floor ceiling round truncate
- ffloor fceiling fround ftruncate
- string-equal string-lessp
- string-search
- consp atom listp nlistp proper-list-p
- sequencep arrayp vectorp stringp bool-vector-p hash-table-p
- null
- numberp integerp floatp natnump characterp
- integer-or-marker-p number-or-marker-p char-or-string-p
- symbolp keywordp
- type-of
- identity
-
- ;; The following functions are pure up to mutation of their
- ;; arguments. This is pure enough for the purposes of
- ;; constant folding, but not necessarily for all kinds of
- ;; code motion.
- car cdr car-safe cdr-safe nth nthcdr take
- equal
- length safe-length
- memq memql member
- ;; `assoc' and `assoc-default' are excluded since they are
- ;; impure if the test function is (consider `string-match').
- assq rassq rassoc
- aref elt
- base64-decode-string base64-encode-string base64url-encode-string
- bool-vector-subsetp
- bool-vector-count-population bool-vector-count-consecutive
+ '(
+ ;; character.c
+ characterp
+ ;; data.c
+ % * + - / /= 1+ 1- < <= = > >= aref arrayp ash atom bare-symbol
+ bool-vector-count-consecutive bool-vector-count-population
+ bool-vector-p bool-vector-subsetp
+ bufferp car car-safe cdr cdr-safe char-or-string-p char-table-p
+ condition-variable-p consp eq floatp integer-or-marker-p integerp
+ keywordp listp logand logcount logior lognot logxor markerp max min
+ mod multibyte-string-p mutexp natnump nlistp null number-or-marker-p
+ numberp recordp remove-pos-from-symbol sequencep stringp symbol-name
+ symbolp threadp type-of vector-or-char-table-p vectorp
+ ;; editfns.c
+ string-to-char
+ ;; floatfns.c
+ abs ceiling copysign fceiling ffloor float floor fround ftruncate
+ isnan ldexp logb round sqrt truncate
+ ;; fns.c
+ assq base64-decode-string base64-encode-string base64url-encode-string
+ concat elt eql equal equal-including-properties
+ hash-table-p identity length length< length=
+ length> member memq memql nth nthcdr proper-list-p rassoc rassq
+ safe-length string-bytes string-distance string-equal string-lessp
+ string-search string-version-lessp take
+ ;; search.c
+ regexp-quote
+ ;; syntax.c
+ string-to-syntax
)))
(while pure-fns
(put (car pure-fns) 'pure t)
@@ -2765,7 +2921,9 @@ If FOR-EFFECT is non-nil, the return value is assumed to
be of no importance."
(or (memq (caar tmp) '(byte-discard byte-discardN))
;; Make sure we don't hoist a discardN-preserve-tos
;; that really should be merged or deleted instead.
- (and (eq (caar tmp) 'byte-discardN-preserve-tos)
+ (and (or (eq (caar tmp) 'byte-discardN-preserve-tos)
+ (and (eq (caar tmp) 'byte-stack-set)
+ (eql (cdar tmp) 1)))
(let ((next (cadr tmp)))
(not (or (memq (car next)
'(byte-discardN-preserve-tos
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 9345665eea8..a377ec395e1 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -145,6 +145,11 @@ So far, FUNCTION can only be a symbol, not a lambda
expression."
(list 'function-put (list 'quote f)
''side-effect-free (list 'quote val))))
+(defalias 'byte-run--set-important-return-value
+ #'(lambda (f _args val)
+ (list 'function-put (list 'quote f)
+ ''important-return-value (list 'quote val))))
+
(put 'compiler-macro 'edebug-declaration-spec
'(&or symbolp ("lambda" &define lambda-list lambda-doc def-body)))
@@ -226,6 +231,8 @@ This may shift errors from run-time to compile-time.")
(list 'side-effect-free #'byte-run--set-side-effect-free
"If non-nil, calls can be ignored if their value is unused.
If `error-free', drop calls even if `byte-compile-delete-errors' is nil.")
+ (list 'important-return-value #'byte-run--set-important-return-value
+ "If non-nil, warn about calls not using the returned value.")
(list 'compiler-macro #'byte-run--set-compiler-macro)
(list 'doc-string #'byte-run--set-doc-string)
(list 'indent #'byte-run--set-indent)
@@ -650,11 +657,8 @@ in `byte-compile-warning-types'; see the variable
`byte-compile-warnings' for a fuller explanation of the warning
types. The types that can be suppressed with this macro are
`free-vars', `callargs', `redefine', `obsolete',
-`interactive-only', `lexical', `mapcar', `constants',
-`suspicious' and `empty-body'.
-
-For the `mapcar' case, only the `mapcar' function can be used in
-the symbol list."
+`interactive-only', `lexical', `ignored-return-value', `constants',
+`suspicious', `empty-body' and `mutate-constant'."
;; Note: during compilation, this definition is overridden by the one in
;; byte-compile-initial-macro-environment.
(declare (debug (sexp body)) (indent 1))
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 12850c27b88..384a357ee51 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -317,7 +317,9 @@ Elements of the list may be:
lexical-dynamic
lexically bound variable declared dynamic elsewhere
make-local calls to `make-variable-buffer-local' that may be incorrect.
- mapcar mapcar called for effect.
+ ignored-return-value
+ function called without using the return value where this
+ is likely to be a mistake
not-unused warning about using variables with symbol names starting with _.
constants let-binding of, or assignment to, constants/nonvariables.
docstrings docstrings that are too wide (longer than
@@ -328,9 +330,11 @@ Elements of the list may be:
This depends on the `docstrings' warning type.
suspicious constructs that usually don't do what the coder wanted.
empty-body body argument to a special form or macro is empty.
+ mutate-constant
+ code that mutates program constants such as quoted lists
If the list begins with `not', then the remaining elements specify warnings to
-suppress. For example, (not mapcar) will suppress warnings about mapcar.
+suppress. For example, (not free-vars) will suppress the `free-vars' warning.
The t value means \"all non experimental warning types\", and
excludes the types in `byte-compile--emacs-build-warning-types'.
@@ -495,6 +499,42 @@ Return the compile-time value of FORM."
(cdr form)))
(funcall non-toplevel-case form)))
+
+(defvar bytecomp--copy-tree-seen)
+
+(defun bytecomp--copy-tree-1 (tree)
+ ;; TREE must be a cons.
+ (or (gethash tree bytecomp--copy-tree-seen)
+ (let* ((next (cdr tree))
+ (result (cons nil next))
+ (copy result))
+ (while (progn
+ (puthash tree copy bytecomp--copy-tree-seen)
+ (let ((a (car tree)))
+ (setcar copy (if (consp a)
+ (bytecomp--copy-tree-1 a)
+ a)))
+ (and (consp next)
+ (let ((tail (gethash next bytecomp--copy-tree-seen)))
+ (if tail
+ (progn (setcdr copy tail)
+ nil)
+ (setq tree next)
+ (setq next (cdr next))
+ (let ((prev copy))
+ (setq copy (cons nil next))
+ (setcdr prev copy)
+ t))))))
+ result)))
+
+(defun bytecomp--copy-tree (tree)
+ "Make a copy of TREE, preserving any circular structure therein.
+Only conses are traversed and duplicated, not arrays or any other structure."
+ (if (consp tree)
+ (let ((bytecomp--copy-tree-seen (make-hash-table :test #'eq)))
+ (bytecomp--copy-tree-1 tree))
+ tree))
+
(defconst byte-compile-initial-macro-environment
`(
;; (byte-compiler-options . (lambda (&rest forms)
@@ -534,7 +574,7 @@ Return the compile-time value of FORM."
form
macroexpand-all-environment)))
(eval (byte-run-strip-symbol-positions
- (safe-copy-tree expanded))
+ (bytecomp--copy-tree expanded))
lexical-binding)
expanded)))))
(with-suppressed-warnings
@@ -1579,21 +1619,20 @@ extra args."
(dolist (elt '(format message format-message error))
(put elt 'byte-compile-format-like t))
-(defun byte-compile--suspicious-defcustom-choice (type)
- "Say whether defcustom TYPE looks odd."
- ;; Check whether there's anything like (choice (const :tag "foo" ;; 'bar)).
+(defun byte-compile--defcustom-type-quoted (type)
+ "Whether defcustom TYPE contains an accidentally quoted value."
+ ;; Detect mistakes such as (const 'abc).
;; We don't actually follow the syntax for defcustom types, but this
;; should be good enough.
- (catch 'found
- (if (and (consp type)
- (proper-list-p type))
- (if (memq (car type) '(const other))
- (when (assq 'quote type)
- (throw 'found t))
- (when (memq t (mapcar #'byte-compile--suspicious-defcustom-choice
- type))
- (throw 'found t)))
- nil)))
+ (and (consp type)
+ (proper-list-p type)
+ (if (memq (car type) '(const other))
+ (assq 'quote type)
+ (let ((elts (cdr type)))
+ (while (and elts (not (byte-compile--defcustom-type-quoted
+ (car elts))))
+ (setq elts (cdr elts)))
+ elts))))
;; Warn if a custom definition fails to specify :group, or :type.
(defun byte-compile-nogroup-warn (form)
@@ -1607,10 +1646,10 @@ extra args."
(byte-compile-warn-x (cadr name)
"defcustom for `%s' fails to specify type"
(cadr name)))
- ((byte-compile--suspicious-defcustom-choice type)
+ ((byte-compile--defcustom-type-quoted type)
(byte-compile-warn-x
(cadr name)
- "defcustom for `%s' has syntactically odd type `%s'"
+ "defcustom for `%s' may have accidentally quoted value in type
`%s'"
(cadr name) type)))))
(if (and (memq (car form) '(custom-declare-face custom-declare-variable))
byte-compile-current-group)
@@ -3450,10 +3489,49 @@ lambda-expression."
(format-message "; use `%s' instead."
interactive-only))
(t "."))))
+ (let ((mutargs (function-get (car form) 'mutates-arguments)))
+ (when mutargs
+ (dolist (idx (if (eq mutargs 'all-but-last)
+ (number-sequence 1 (- (length form) 2))
+ mutargs))
+ (let ((arg (nth idx form)))
+ (when (and (or (and (eq (car-safe arg) 'quote)
+ (consp (nth 1 arg)))
+ (arrayp arg))
+ (byte-compile-warning-enabled-p
+ 'mutate-constant (car form)))
+ (byte-compile-warn-x form "`%s' on constant %s (arg %d)"
+ (car form)
+ (if (consp arg) "list" (type-of arg))
+ idx))))))
+
(if (eq (car-safe (symbol-function (car form))) 'macro)
(byte-compile-report-error
(format-message "`%s' defined after use in %S (missing `require'
of a library file?)"
(car form) form)))
+
+ (when byte-compile--for-effect
+ (let ((sef (function-get (car form) 'side-effect-free)))
+ (cond
+ ((and sef (or (eq sef 'error-free)
+ byte-compile-delete-errors))
+ ;; This transform is normally done in the Lisp optimiser,
+ ;; so maybe we don't need to bother about it here?
+ (setq form (cons 'progn (cdr form)))
+ (setq handler #'byte-compile-progn))
+ ((and (or sef (function-get (car form) 'important-return-value))
+ ;; Don't warn for arguments to `ignore'.
+ (not (eq byte-compile--for-effect 'for-effect-no-warn))
+ (byte-compile-warning-enabled-p
+ 'ignored-return-value (car form)))
+ (byte-compile-warn-x
+ (car form)
+ "value from call to `%s' is unused%s"
+ (car form)
+ (cond ((eq (car form) 'mapcar)
+ "; use `mapc' or `dolist' instead")
+ (t "")))))))
+
(if (and handler
;; Make sure that function exists.
(and (functionp handler)
@@ -3477,6 +3555,66 @@ lambda-expression."
(byte-compile-discard))
(pop byte-compile-form-stack)))
+(let ((important-return-value-fns
+ '(
+ ;; These functions are side-effect-free except for the
+ ;; behaviour of functions passed as argument.
+ mapcar mapcan mapconcat
+ assoc assoc-string plist-get plist-member
+
+ ;; It's safe to ignore the value of `sort' and `nreverse'
+ ;; when used on arrays, but most calls pass lists.
+ nreverse sort
+
+ match-data
+
+ ;; Warning about these functions causes some false positives that are
+ ;; laborious to eliminate; see bug#61730.
+ ;;delq delete
+ ;;nconc plist-put
+ )))
+ (dolist (fn important-return-value-fns)
+ (put fn 'important-return-value t)))
+
+(let ((mutating-fns
+ ;; FIXME: Should there be a function declaration for this?
+ ;;
+ ;; (FUNC . ARGS) means that FUNC mutates arguments whose indices are
+ ;; in the list ARGS, starting at 1, or all but the last argument if
+ ;; ARGS is `all-but-last'.
+ '(
+ (setcar 1) (setcdr 1) (aset 1)
+ (nreverse 1)
+ (nconc . all-but-last)
+ (nbutlast 1) (ntake 2)
+ (sort 1)
+ (delq 2) (delete 2)
+ (delete-dups 1) (delete-consecutive-dups 1)
+ (plist-put 1)
+ (assoc-delete-all 2) (assq-delete-all 2) (rassq-delete-all 2)
+ (fillarray 1)
+ (store-substring 1)
+ (clear-string 1)
+
+ (add-text-properties 4) (put-text-property 5) (set-text-properties 4)
+ (remove-text-properties 4) (remove-list-of-text-properties 4)
+ (alter-text-property 5)
+ (add-face-text-property 5) (add-display-text-property 5)
+
+ (cl-delete 2) (cl-delete-if 2) (cl-delete-if-not 2)
+ (cl-delete-duplicates 1)
+ (cl-nsubst 3) (cl-nsubst-if 3) (cl-nsubst-if-not 3)
+ (cl-nsubstitute 3) (cl-nsubstitute-if 3) (cl-nsubstitute-if-not 3)
+ (cl-nsublis 2)
+ (cl-nunion 1 2) (cl-nintersection 1 2) (cl-nset-difference 1 2)
+ (cl-nset-exclusive-or 1 2)
+ (cl-nreconc 1)
+ (cl-sort 1) (cl-stable-sort 1) (cl-merge 2 3)
+ )))
+ (dolist (entry mutating-fns)
+ (put (car entry) 'mutates-arguments (cdr entry))))
+
+
(defun byte-compile-normal-call (form)
(when (and (symbolp (car form))
(byte-compile-warning-enabled-p 'callargs (car form)))
@@ -3487,11 +3625,7 @@ lambda-expression."
(byte-compile-callargs-warn form))
(if byte-compile-generate-call-tree
(byte-compile-annotate-call-tree form))
- (when (and byte-compile--for-effect (eq (car form) 'mapcar)
- (byte-compile-warning-enabled-p 'mapcar 'mapcar))
- (byte-compile-warn-x
- (car form)
- "`mapcar' called for effect; use `mapc' or `dolist' instead"))
+
(byte-compile-push-constant (car form))
(mapc 'byte-compile-form (cdr form)) ; wasteful, but faster.
(byte-compile-out 'byte-call (length (cdr form))))
@@ -4331,7 +4465,8 @@ This function is never called when `lexical-binding' is
nil."
(defun byte-compile-ignore (form)
(dolist (arg (cdr form))
- (byte-compile-form arg t))
+ ;; Compile each argument for-effect but suppress unused-value warnings.
+ (byte-compile-form arg 'for-effect-no-warn))
(byte-compile-form nil))
;; Return the list of items in CONDITION-PARAM that match PRED-LIST.
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index de5eb9c2d92..a89bbc3a748 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -408,6 +408,7 @@ Other non-digit chars are considered junk.
RADIX is an integer between 2 and 36, the default is 10. Signal
an error if the substring between START and END cannot be parsed
as an integer unless JUNK-ALLOWED is non-nil."
+ (declare (side-effect-free t))
(cl-check-type string string)
(let* ((start (or start 0))
(len (length string))
@@ -566,6 +567,7 @@ too large if positive or too small if negative)."
;;;###autoload
(defun cl-revappend (x y)
"Equivalent to (append (reverse X) Y)."
+ (declare (side-effect-free t))
(nconc (reverse x) y))
;;;###autoload
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index 95a51a4bdde..7fee780a735 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -459,6 +459,7 @@ Thus, `(cl-list* A B C D)' is equivalent to `(nconc (list A
B C) D)', or to
(defun cl-copy-list (list)
"Return a copy of LIST, which may be a dotted list.
The elements of LIST are not copied, just the list structure itself."
+ (declare (side-effect-free error-free))
(if (consp list)
(let ((res nil))
(while (consp list) (push (pop list) res))
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index cffe8b09f53..0b09cd7d225 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2758,26 +2758,29 @@ Each PLACE may be a symbol, or any generalized variable
allowed by `setf'.
;; Common-Lisp's `psetf' does the first, so we'll do the same.
(if (null bindings)
(if (and (null binds) (null simplebinds)) (macroexp-progn body)
+ (let ((body-form
+ (macroexp-progn
+ (append
+ (delq nil
+ (mapcar (lambda (x)
+ (pcase x
+ ;; If there's no vnew, do nothing.
+ (`(,_vold ,_getter ,setter ,vnew)
+ (funcall setter vnew))))
+ binds))
+ body))))
`(let* (,@(mapcar (lambda (x)
(pcase-let ((`(,vold ,getter ,_setter ,_vnew) x))
(list vold getter)))
binds)
,@simplebinds)
- (unwind-protect
- ,(macroexp-progn
- (append
- (delq nil
- (mapcar (lambda (x)
- (pcase x
- ;; If there's no vnew, do nothing.
- (`(,_vold ,_getter ,setter ,vnew)
- (funcall setter vnew))))
- binds))
- body))
- ,@(mapcar (lambda (x)
- (pcase-let ((`(,vold ,_getter ,setter ,_vnew) x))
- (funcall setter vold)))
- binds))))
+ ,(if binds
+ `(unwind-protect ,body-form
+ ,@(mapcar (lambda (x)
+ (pcase-let ((`(,vold ,_getter ,setter ,_vnew)
x))
+ (funcall setter vold)))
+ binds))
+ body-form))))
(let* ((binding (car bindings))
(place (car binding)))
(gv-letplace (getter setter) place
@@ -2888,45 +2891,14 @@ The function's arguments should be treated as immutable.
,(format "compiler-macro for inlining `%s'." name)
(cl--defsubst-expand
',argns '(cl-block ,name ,@(cdr (macroexp-parse-body body)))
- ;; We used to pass `simple' as
- ;; (not (or unsafe (cl-expr-access-order pbody argns)))
- ;; But this is much too simplistic since it
- ;; does not pay attention to the argvs (and
- ;; cl-expr-access-order itself is also too naive).
nil
,(and (memq '&key args) 'cl-whole) nil ,@argns)))
(cl-defun ,name ,args ,@body))))
-(defun cl--defsubst-expand (argns body simple whole _unsafe &rest argvs)
- (if (and whole (not (cl--safe-expr-p (cons 'progn argvs)))) whole
- (if (cl--simple-exprs-p argvs) (setq simple t))
- (let* ((substs ())
- (lets (delq nil
- (cl-mapcar (lambda (argn argv)
- (if (or simple (macroexp-const-p argv))
- (progn (push (cons argn argv) substs)
- nil)
- (list argn argv)))
- argns argvs))))
- ;; FIXME: `sublis/subst' will happily substitute the symbol
- ;; `argn' in places where it's not used as a reference
- ;; to a variable.
- ;; FIXME: `sublis/subst' will happily copy `argv' to a different
- ;; scope, leading to name capture.
- (setq body (cond ((null substs) body)
- ((null (cdr substs))
- (cl-subst (cdar substs) (caar substs) body))
- (t (cl--sublis substs body))))
- (if lets `(let ,lets ,body) body))))
-
-(defun cl--sublis (alist tree)
- "Perform substitutions indicated by ALIST in TREE (non-destructively)."
- (let ((x (assq tree alist)))
- (cond
- (x (cdr x))
- ((consp tree)
- (cons (cl--sublis alist (car tree)) (cl--sublis alist (cdr tree))))
- (t tree))))
+(defun cl--defsubst-expand (argns body _simple whole _unsafe &rest argvs)
+ (if (and whole (not (cl--safe-expr-p (cons 'progn argvs))))
+ whole
+ `(let ,(cl-mapcar #'list argns argvs) ,body)))
;;; Structures.
@@ -3121,13 +3093,16 @@ To see the documentation for a defined struct type, use
(cons 'and (cdddr pred-form))
`(,predicate cl-x))))
(when pred-form
- (push `(,defsym ,predicate (cl-x)
+ (push `(eval-and-compile
+ ;; Define the predicate to be effective at compile time
+ ;; as native comp relies on `cl-typep' that relies on
+ ;; predicates to be defined as they are registered in
+ ;; cl-deftype-satisfies.
+ (,defsym ,predicate (cl-x)
(declare (side-effect-free error-free) (pure t))
,(if (eq (car pred-form) 'and)
(append pred-form '(t))
`(and ,pred-form t)))
- forms)
- (push `(eval-and-compile
(define-symbol-prop ',name 'cl-deftype-satisfies ',predicate))
forms))
(let ((pos 0) (descp descs))
@@ -3241,19 +3216,8 @@ To see the documentation for a defined struct type, use
(let* ((anames (cl--arglist-args args))
(make (cl-mapcar (lambda (s d) (if (memq s anames) s d))
slots defaults))
- ;; `cl-defsubst' is fundamentally broken: it substitutes
- ;; its arguments into the body's `sexp' much too naively
- ;; when inlinling, which results in various problems.
- ;; For example it generates broken code if your
- ;; argument's name happens to be the same as some
- ;; function used within the body.
- ;; E.g. (cl-defsubst sm-foo (list) (list list))
- ;; will expand `(sm-foo 1)' to `(1 1)' rather than to `(list t)'!
- ;; Try to catch this known case!
- (con-fun (or type #'record))
- (unsafe-cl-defsubst
- (or (memq con-fun args) (assq con-fun args))))
- (push `(,(if unsafe-cl-defsubst 'cl-defun cldefsym) ,cname
+ (con-fun (or type #'record)))
+ (push `(,cldefsym ,cname
(&cl-defs (nil ,@descs) ,@args)
,(if (stringp doc) doc
(format "Constructor for objects of type `%s'." name))
@@ -3288,6 +3252,7 @@ To see the documentation for a defined struct type, use
;;; Add cl-struct support to pcase
+;;In use by comp.el
(defun cl--struct-all-parents (class)
(when (cl--struct-class-p class)
(let ((res ())
@@ -3687,14 +3652,53 @@ macro that returns its `&whole' argument."
;;; Things that are side-effect-free.
(mapc (lambda (x) (function-put x 'side-effect-free t))
- '(cl-oddp cl-evenp cl-signum last butlast cl-ldiff cl-pairlis cl-gcd
+ '(cl-oddp cl-evenp cl-signum cl-ldiff cl-pairlis cl-gcd
cl-lcm cl-isqrt cl-floor cl-ceiling cl-truncate cl-round cl-mod cl-rem
cl-subseq cl-list-length cl-get cl-getf))
;;; Things that are side-effect-and-error-free.
(mapc (lambda (x) (function-put x 'side-effect-free 'error-free))
- '(eql cl-list* cl-subst cl-acons cl-equalp
- cl-random-state-p copy-tree cl-sublis))
+ '(cl-list* cl-acons cl-equalp
+ cl-random-state-p copy-tree))
+
+;;; Things whose return value should probably be used.
+(mapc (lambda (x) (function-put x 'important-return-value t))
+ '(
+ ;; Functions that are side-effect-free except for the
+ ;; behaviour of functions passed as argument.
+ cl-mapcar cl-mapcan cl-maplist cl-map cl-mapcon
+ cl-reduce
+ cl-assoc cl-assoc-if cl-assoc-if-not
+ cl-rassoc cl-rassoc-if cl-rassoc-if-not
+ cl-member cl-member-if cl-member-if-not
+ cl-adjoin
+ cl-mismatch cl-search
+ cl-find cl-find-if cl-find-if-not
+ cl-position cl-position-if cl-position-if-not
+ cl-count cl-count-if cl-count-if-not
+ cl-remove cl-remove-if cl-remove-if-not
+ cl-remove-duplicates
+ cl-subst cl-subst-if cl-subst-if-not
+ cl-substitute cl-substitute-if cl-substitute-if-not
+ cl-sublis
+ cl-union cl-intersection cl-set-difference cl-set-exclusive-or
+ cl-subsetp
+ cl-every cl-some cl-notevery cl-notany
+ cl-tree-equal
+
+ ;; Functions that mutate and return a list.
+ cl-delete cl-delete-if cl-delete-if-not
+ cl-delete-duplicates
+ cl-nsubst cl-nsubst-if cl-nsubst-if-not
+ cl-nsubstitute cl-nsubstitute-if cl-nsubstitute-if-not
+ cl-nunion cl-nintersection cl-nset-difference cl-nset-exclusive-or
+ cl-nreconc cl-nsublis
+ cl-merge
+ ;; It's safe to ignore the value of `cl-sort' and `cl-stable-sort'
+ ;; when used on arrays, but most calls pass lists.
+ cl-sort cl-stable-sort
+ ))
+
;;; Types and assertions.
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 9445093f143..f410270d340 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -113,6 +113,7 @@ supertypes from the most specific to least specific.")
(record 'cl-slot-descriptor
name initform type props)))
+;; In use by comp.el
(defun cl--struct-get-class (name)
(or (if (not (symbolp name)) name)
(cl--find-class name)
@@ -176,6 +177,7 @@ supertypes from the most specific to least specific.")
(i 0)
(offset (if type 0 1)))
(dolist (slot slots)
+ (put (car slot) 'slot-name t)
(let* ((props (cl--plist-to-alist (cddr slot)))
(typep (assq :type props))
(type (if (null typep) t
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index d4200c16c19..e0db82604f2 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -36,6 +36,7 @@
;;; Code:
(require 'cl-lib)
+(require 'cl-macs)
(defconst comp--typeof-builtin-types (mapcar (lambda (x)
(append x '(t)))
@@ -86,7 +87,41 @@ Integer values are handled in the `range' slot.")
(ret nil :type (or comp-cstr comp-cstr-f)
:documentation "Returned value."))
+(defun comp--cl-class-hierarchy (x)
+ "Given a class name `x' return its hierarchy."
+ `(,@(mapcar #'cl--struct-class-name (cl--struct-all-parents
+ (cl--struct-get-class x)))
+ atom
+ t))
+
+(defun comp--all-classes ()
+ "Return all non built-in type names currently defined."
+ (let (res)
+ (mapatoms (lambda (x)
+ (when (cl-find-class x)
+ (push x res)))
+ obarray)
+ res))
+
+(defun comp--compute-typeof-types ()
+ (append comp--typeof-builtin-types
+ (mapcar #'comp--cl-class-hierarchy (comp--all-classes))))
+
+(defun comp--compute--pred-type-h ()
+ (cl-loop with h = (make-hash-table :test #'eq)
+ for class-name in (comp--all-classes)
+ for pred = (get class-name 'cl-deftype-satisfies)
+ when pred
+ do (puthash pred class-name h)
+ finally return h))
+
(cl-defstruct comp-cstr-ctxt
+ (typeof-types (comp--compute-typeof-types)
+ :type list
+ :documentation "Type hierarchy.")
+ (pred-type-h (comp--compute--pred-type-h)
+ :type hash-table
+ :documentation "Hash pred -> type.")
(union-typesets-mem (make-hash-table :test #'equal) :type hash-table
:documentation "Serve memoization for
`comp-union-typesets'.")
@@ -107,6 +142,15 @@ Integer values are handled in the `range' slot.")
:documentation "Serve memoization for
`intersection-mem'."))
+(defun comp-cstr-ctxt-update-type-slots (ctxt)
+ "Update the type related slots of CTXT.
+This must run after byte compilation in order to account for user
+defined types."
+ (setf (comp-cstr-ctxt-typeof-types ctxt)
+ (comp--compute-typeof-types))
+ (setf (comp-cstr-ctxt-pred-type-h ctxt)
+ (comp--compute--pred-type-h)))
+
(defmacro with-comp-cstr-accessors (&rest body)
"Define some quick accessor to reduce code vergosity in BODY."
(declare (debug (form body))
@@ -230,7 +274,7 @@ Return them as multiple value."
(cl-loop
named outer
with found = nil
- for l in comp--typeof-builtin-types
+ for l in (comp-cstr-ctxt-typeof-types comp-ctxt)
do (cl-loop
for x in l
for i from (length l) downto 0
@@ -273,7 +317,7 @@ Return them as multiple value."
(cl-loop
with types = (apply #'append typesets)
with res = '()
- for lane in comp--typeof-builtin-types
+ for lane in (comp-cstr-ctxt-typeof-types comp-ctxt)
do (cl-loop
with last = nil
for x in lane
@@ -867,6 +911,23 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
(null (neg cstr))
(equal (typeset cstr) '(cons)))))
+;; Move to comp.el?
+(defsubst comp-cstr-cl-tag-p (cstr)
+ "Return non-nil if CSTR is a CL tag."
+ (with-comp-cstr-accessors
+ (and (null (range cstr))
+ (null (neg cstr))
+ (null (typeset cstr))
+ (length= (valset cstr) 1)
+ (string-match (rx "cl-struct-" (group-n 1 (1+ not-newline)) "-tags")
+ (symbol-name (car (valset cstr)))))))
+
+(defsubst comp-cstr-cl-tag (cstr)
+ "If CSTR is a CL tag return its tag name."
+ (with-comp-cstr-accessors
+ (and (comp-cstr-cl-tag-p cstr)
+ (intern (match-string 1 (symbol-name (car (valset cstr))))))))
+
(defun comp-cstr-= (dst op1 op2)
"Constraint OP1 being = OP2 setting the result into DST."
(with-comp-cstr-accessors
@@ -1121,8 +1182,8 @@ FN non-nil indicates we are parsing a function lambda
list."
:ret (comp-type-spec-to-cstr ret)))
(_ (error "Invalid type specifier"))))
-(defun comp-cstr-to-type-spec (cstr)
- "Given CSTR return its type specifier."
+(defun comp--simple-cstr-to-type-spec (cstr)
+ "Given a non comp-cstr-f CSTR return its type specifier."
(let ((valset (comp-cstr-valset cstr))
(typeset (comp-cstr-typeset cstr))
(range (comp-cstr-range cstr))
@@ -1176,6 +1237,20 @@ FN non-nil indicates we are parsing a function lambda
list."
`(not ,final)
final))))
+(defun comp-cstr-to-type-spec (cstr)
+ "Given CSTR return its type specifier."
+ (cl-etypecase cstr
+ (comp-cstr-f
+ `(function
+ ,(mapcar (lambda (x)
+ (cl-etypecase x
+ (comp-cstr (comp-cstr-to-type-spec x))
+ (symbol x)))
+ (comp-cstr-f-args cstr))
+ ,(comp--simple-cstr-to-type-spec (comp-cstr-f-ret cstr))))
+ (comp-cstr
+ (comp--simple-cstr-to-type-spec cstr))))
+
(provide 'comp-cstr)
;;; comp-cstr.el ends here
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 68021364291..0652449805f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -193,8 +193,9 @@ and above."
:type '(repeat string)
:version "28.1")
-(defcustom native-comp-driver-options (when (eq system-type 'darwin)
- '("-Wl,-w"))
+(defcustom native-comp-driver-options
+ (cond ((eq system-type 'darwin) '("-Wl,-w"))
+ ((eq system-type 'cygwin) '("-Wl,-dynamicbase")))
"Options passed verbatim to the native compiler's back-end driver.
Note that not all options are meaningful; typically only the options
affecting the assembler and linker are likely to be useful.
@@ -283,10 +284,10 @@ Useful to hook into pass checkers.")
;; FIXME this probably should not be here but... good for now.
(defconst comp-known-type-specifiers
`(
- ;; Functions we can trust not to be or if redefined should expose
- ;; the same type. Vast majority of these is either pure or
- ;; primitive, the original list is the union of pure +
- ;; side-effect-free-fns + side-effect-and-error-free-fns:
+ ;; Functions we can trust not to be redefined, or, if redefined,
+ ;; to expose the same type. The vast majority of these are
+ ;; either pure or primitive; the original list is the union of
+ ;; pure + side-effect-free-fns + side-effect-and-error-free-fns:
(% (function ((or number marker) (or number marker)) number))
(* (function (&rest (or number marker)) number))
(+ (function (&rest (or number marker)) number))
@@ -313,7 +314,8 @@ Useful to hook into pass checkers.")
(bignump (function (t) boolean))
(bobp (function () boolean))
(bolp (function () boolean))
- (bool-vector-count-consecutive (function (bool-vector boolean integer)
fixnum))
+ (bool-vector-count-consecutive
+ (function (bool-vector boolean integer) fixnum))
(bool-vector-count-population (function (bool-vector) fixnum))
(bool-vector-not (function (bool-vector &optional bool-vector)
bool-vector))
(bool-vector-p (function (t) boolean))
@@ -323,10 +325,12 @@ Useful to hook into pass checkers.")
(buffer-file-name (function (&optional buffer) (or string null)))
(buffer-list (function (&optional frame) list))
(buffer-local-variables (function (&optional buffer) list))
- (buffer-modified-p (function (&optional buffer) boolean))
+ (buffer-modified-p
+ (function (&optional buffer) (or boolean (member autosaved))))
(buffer-size (function (&optional buffer) integer))
(buffer-string (function () string))
- (buffer-substring (function ((or integer marker) (or integer marker))
string))
+ (buffer-substring
+ (function ((or integer marker) (or integer marker)) string))
(bufferp (function (t) boolean))
(byte-code-function-p (function (t) boolean))
(capitalize (function (or integer string) (or integer string)))
@@ -346,17 +350,27 @@ Useful to hook into pass checkers.")
(characterp (function (t &optional t) boolean))
(charsetp (function (t) boolean))
(commandp (function (t &optional t) boolean))
- (compare-strings (function (string (or integer marker null) (or integer
marker null) string (or integer marker null) (or integer marker null) &optional
t) (or (member t) fixnum)))
+ (compare-strings
+ (function (string (or integer marker null) (or integer marker null) string
+ (or integer marker null) (or integer marker null)
+ &optional t)
+ (or (member t) fixnum)))
(concat (function (&rest sequence) string))
(cons (function (t t) cons))
(consp (function (t) boolean))
- (coordinates-in-window-p (function (cons window) boolean))
+ (coordinates-in-window-p
+ (function (cons window)
+ (or cons null
+ (member bottom-divider right-divider mode-line header-line
+ tab-line left-fringe right-fringe vertical-line
+ left-margin right-margin))))
(copy-alist (function (list) list))
(copy-marker (function (&optional (or integer marker) boolean) marker))
(copy-sequence (function (sequence) sequence))
(copysign (function (float float) float))
(cos (function (number) float))
- (count-lines (function ((or integer marker) (or integer marker) &optional
t) integer))
+ (count-lines
+ (function ((or integer marker) (or integer marker) &optional t) integer))
(current-buffer (function () buffer))
(current-global-map (function () cons))
(current-indentation (function () integer))
@@ -369,7 +383,7 @@ Useful to hook into pass checkers.")
(current-time-zone (function (&optional (or number list)
(or symbol string cons integer))
cons))
- (custom-variable-p (function (symbol) boolean))
+ (custom-variable-p (function (symbol) t))
(decode-char (function (cons t) (or fixnum null)))
(decode-time (function (&optional (or number list)
(or symbol string cons integer)
@@ -378,7 +392,8 @@ Useful to hook into pass checkers.")
(default-boundp (function (symbol) boolean))
(default-value (function (symbol) t))
(degrees-to-radians (function (number) float))
- (documentation (function ((or function symbol subr) &optional t) (or null
string)))
+ (documentation
+ (function ((or function symbol subr) &optional t) (or null string)))
(downcase (function ((or fixnum string)) (or fixnum string)))
(elt (function (sequence integer) t))
(encode-char (function (fixnum symbol) (or fixnum null)))
@@ -391,18 +406,18 @@ Useful to hook into pass checkers.")
(error-message-string (function (list) string))
(eventp (function (t) boolean))
(exp (function (number) float))
- (expt (function (number number) float))
+ (expt (function (number number) number))
(fboundp (function (symbol) boolean))
(fceiling (function (float) float))
(featurep (function (symbol &optional symbol) boolean))
(ffloor (function (float) float))
(file-directory-p (function (string) boolean))
(file-exists-p (function (string) boolean))
- (file-locked-p (function (string) boolean))
+ (file-locked-p (function (string) (or boolean string)))
(file-name-absolute-p (function (string) boolean))
(file-newer-than-file-p (function (string string) boolean))
(file-readable-p (function (string) boolean))
- (file-symlink-p (function (string) boolean))
+ (file-symlink-p (function (string) (or boolean string)))
(file-writable-p (function (string) boolean))
(fixnump (function (t) boolean))
(float (function (number) float))
@@ -417,13 +432,15 @@ Useful to hook into pass checkers.")
(frame-first-window (function ((or frame window)) window))
(frame-root-window (function (&optional (or frame window)) window))
(frame-selected-window (function (&optional (or frame window)) window))
- (frame-visible-p (function (frame) boolean))
- (framep (function (t) boolean))
+ (frame-visible-p (function (frame) (or boolean (member icon))))
+ (framep (function (t) symbol))
(fround (function (float) float))
(ftruncate (function (float) float))
(get (function (symbol symbol) t))
(get-buffer (function ((or buffer string)) (or buffer null)))
- (get-buffer-window (function (&optional (or buffer string) (or symbol
(integer 0 0))) (or null window)))
+ (get-buffer-window
+ (function (&optional (or buffer string) (or symbol (integer 0 0)))
+ (or null window)))
(get-file-buffer (function (string) (or null buffer)))
(get-largest-window (function (&optional t t t) (or window null)))
(get-lru-window (function (&optional t t t) (or window null)))
@@ -468,7 +485,10 @@ Useful to hook into pass checkers.")
(logxor (function (&rest (or integer marker)) integer))
;; (lsh (function ((integer ,most-negative-fixnum *) integer) integer)) ?
(lsh (function (integer integer) integer))
- (make-byte-code (function ((or fixnum list) string vector integer
&optional string t &rest t) vector))
+ (make-byte-code
+ (function ((or fixnum list) string vector integer &optional string t
+ &rest t)
+ vector))
(make-list (function (integer t) list))
(make-marker (function () marker))
(make-string (function (integer fixnum &optional t) string))
@@ -486,7 +506,9 @@ Useful to hook into pass checkers.")
(min (function ((or number marker) &rest (or number marker)) number))
(minibuffer-selected-window (function () (or window null)))
(minibuffer-window (function (&optional frame) window))
- (mod (function ((or number marker) (or number marker)) (or (integer 0 *)
(float 0 *))))
+ (mod
+ (function ((or number marker) (or number marker))
+ (or (integer 0 *) (float 0 *))))
(mouse-movement-p (function (t) boolean))
(multibyte-char-to-unibyte (function (fixnum) fixnum))
(natnump (function (t) boolean))
@@ -512,7 +534,7 @@ Useful to hook into pass checkers.")
(previous-window (function (&optional window t t) window))
(prin1-to-string (function (t &optional t t) string))
(processp (function (t) boolean))
- (proper-list-p (function (t) boolean))
+ (proper-list-p (function (t) (or fixnum null)))
(propertize (function (string &rest t) string))
(radians-to-degrees (function (number) float))
(rassoc (function (t list) list))
@@ -550,7 +572,8 @@ Useful to hook into pass checkers.")
(string= (function ((or string symbol) (or string symbol)) boolean))
(stringp (function (t) boolean))
(subrp (function (t) boolean))
- (substring (function ((or string vector) &optional integer integer) (or
string vector)))
+ (substring
+ (function ((or string vector) &optional integer integer) (or string
vector)))
(sxhash (function (t) integer))
(sxhash-eq (function (t) integer))
(sxhash-eql (function (t) integer))
@@ -647,11 +670,14 @@ Useful to hook into pass checkers.")
(defun comp-known-predicate-p (predicate)
"Return t if PREDICATE is known."
- (when (gethash predicate comp-known-predicates-h) t))
+ (when (or (gethash predicate comp-known-predicates-h)
+ (gethash predicate (comp-cstr-ctxt-pred-type-h comp-ctxt)))
+ t))
(defun comp-pred-to-cstr (predicate)
"Given PREDICATE, return the corresponding constraint."
- (gethash predicate comp-known-predicates-h))
+ (or (gethash predicate comp-known-predicates-h)
+ (gethash predicate (comp-cstr-ctxt-pred-type-h comp-ctxt))))
(defconst comp-symbol-values-optimizable '(most-positive-fixnum
most-negative-fixnum)
@@ -1438,11 +1464,13 @@ clashes."
"Byte-compile and spill the LAP representation for INPUT.
If INPUT is a symbol, it is the function-name to be compiled.
If INPUT is a string, it is the filename to be compiled."
- (let ((byte-native-compiling t)
- (byte-to-native-lambdas-h (make-hash-table :test #'eq))
- (byte-to-native-top-level-forms ())
- (byte-to-native-plist-environment ()))
- (comp-spill-lap-function input)))
+ (let* ((byte-native-compiling t)
+ (byte-to-native-lambdas-h (make-hash-table :test #'eq))
+ (byte-to-native-top-level-forms ())
+ (byte-to-native-plist-environment ())
+ (res (comp-spill-lap-function input)))
+ (comp-cstr-ctxt-update-type-slots comp-ctxt)
+ res))
;;; Limplification pass specific code.
@@ -1550,7 +1578,7 @@ STACK-OFF is the index of the first slot frame involved."
for sp from stack-off
collect (comp-slot-n sp))))
-(cl-defun make-comp-mvar (&key slot (constant nil const-vld) type)
+(cl-defun make-comp-mvar (&key slot (constant nil const-vld) type neg)
"`comp-mvar' initializer."
(let ((mvar (make--comp-mvar :slot slot)))
(when const-vld
@@ -1558,6 +1586,8 @@ STACK-OFF is the index of the first slot frame involved."
(setf (comp-cstr-imm mvar) constant))
(when type
(setf (comp-mvar-typeset mvar) (list type)))
+ (when neg
+ (setf (comp-mvar-neg mvar) t))
mvar))
(defun comp-new-frame (size vsize &optional ssa)
@@ -1722,14 +1752,15 @@ Return value is the fall-through block name."
(defun comp-jump-table-optimizable (jmp-table)
"Return t if JMP-TABLE can be optimized out."
- (cl-loop
- with labels = (cl-loop for target-label being each hash-value of jmp-table
- collect target-label)
- with x = (car labels)
- for l in (cdr-safe labels)
- unless (= l x)
- return nil
- finally return t))
+ ;; Identify LAP sequences like:
+ ;; (byte-constant #s(hash-table size 3 test eq rehash-size 1.5
rehash-threshold 0.8125 purecopy t data (created 126 deleted 126 changed 126))
. 24)
+ ;; (byte-switch)
+ ;; (TAG 126 . 10)
+ (let ((targets (hash-table-values jmp-table)))
+ (when (apply #'= targets)
+ (pcase (nth (1+ (comp-limplify-pc comp-pass)) (comp-func-lap comp-func))
+ (`(TAG ,target . ,_label-sp)
+ (= target (car targets)))))))
(defun comp-emit-switch (var last-insn)
"Emit a Limple for a lap jump table given VAR and LAST-INSN."
@@ -1774,27 +1805,32 @@ Return value is the fall-through block name."
(_ (signal 'native-ice
'("missing previous setimm while creating a switch")))))
+(defun comp--func-arity (subr-name)
+ "Like `func-arity' but invariant against primitive redefinitions.
+SUBR-NAME is the name of function."
+ (or (gethash subr-name comp-subr-arities-h)
+ (func-arity subr-name)))
+
(defun comp-emit-set-call-subr (subr-name sp-delta)
"Emit a call for SUBR-NAME.
SP-DELTA is the stack adjustment."
- (let ((subr (symbol-function subr-name))
- (nargs (1+ (- sp-delta))))
- (let* ((arity (func-arity subr))
- (minarg (car arity))
- (maxarg (cdr arity)))
- (when (eq maxarg 'unevalled)
- (signal 'native-ice (list "subr contains unevalled args" subr-name)))
- (if (eq maxarg 'many)
- ;; callref case.
- (comp-emit-set-call (comp-callref subr-name nargs (comp-sp)))
- ;; Normal call.
- (unless (and (>= maxarg nargs) (<= minarg nargs))
- (signal 'native-ice
- (list "incoherent stack adjustment" nargs maxarg minarg)))
- (let* ((subr-name subr-name)
- (slots (cl-loop for i from 0 below maxarg
- collect (comp-slot-n (+ i (comp-sp))))))
- (comp-emit-set-call (apply #'comp-call (cons subr-name
slots))))))))
+ (let* ((nargs (1+ (- sp-delta)))
+ (arity (comp--func-arity subr-name))
+ (minarg (car arity))
+ (maxarg (cdr arity)))
+ (when (eq maxarg 'unevalled)
+ (signal 'native-ice (list "subr contains unevalled args" subr-name)))
+ (if (eq maxarg 'many)
+ ;; callref case.
+ (comp-emit-set-call (comp-callref subr-name nargs (comp-sp)))
+ ;; Normal call.
+ (unless (and (>= maxarg nargs) (<= minarg nargs))
+ (signal 'native-ice
+ (list "incoherent stack adjustment" nargs maxarg minarg)))
+ (let* ((subr-name subr-name)
+ (slots (cl-loop for i from 0 below maxarg
+ collect (comp-slot-n (+ i (comp-sp))))))
+ (comp-emit-set-call (apply #'comp-call (cons subr-name slots)))))))
(eval-when-compile
(defun comp-op-to-fun (x)
@@ -2549,6 +2585,19 @@ TARGET-BB-SYM is the symbol name of the target block."
for insns-seq on (comp-block-insns b)
do
(pcase insns-seq
+ (`((set ,(and (pred comp-mvar-p) mvar-tested-copy)
+ ,(and (pred comp-mvar-p) mvar-tested))
+ (set ,(and (pred comp-mvar-p) mvar-1)
+ (call type-of ,(and (pred comp-mvar-p) mvar-tested-copy)))
+ (set ,(and (pred comp-mvar-p) mvar-2)
+ (call symbol-value ,(and (pred comp-cstr-cl-tag-p) mvar-tag)))
+ (set ,(and (pred comp-mvar-p) mvar-3)
+ (call memq ,(and (pred comp-mvar-p) mvar-1) ,(and (pred
comp-mvar-p) mvar-2)))
+ (cond-jump ,(and (pred comp-mvar-p) mvar-3) ,(pred comp-mvar-p) ,bb1
,bb2))
+ (push `(assume ,mvar-tested ,(make-comp-mvar :type (comp-cstr-cl-tag
mvar-tag)))
+ (comp-block-insns (comp-add-cond-cstrs-target-block b bb2)))
+ (push `(assume ,mvar-tested ,(make-comp-mvar :type (comp-cstr-cl-tag
mvar-tag) :neg t))
+ (comp-block-insns (comp-add-cond-cstrs-target-block b bb1))))
(`((set ,(and (pred comp-mvar-p) cmp-res)
(,(pred comp-call-op-p)
,(and (or (pred comp-equality-fun-p)
@@ -3204,7 +3253,11 @@ Fold the call in case."
(+ (comp-cstr-add lval args))
(- (comp-cstr-sub lval args))
(1+ (comp-cstr-add lval `(,(car args) ,comp-cstr-one)))
- (1- (comp-cstr-sub lval `(,(car args) ,comp-cstr-one))))))
+ (1- (comp-cstr-sub lval `(,(car args) ,comp-cstr-one)))
+ (record (when (comp-cstr-imm-vld-p (car args))
+ (comp-cstr-shallow-copy lval
+ (comp-type-spec-to-cstr
+ (comp-cstr-imm (car args)))))))))
(defun comp-fwprop-insn (insn)
"Propagate within INSN."
@@ -3739,6 +3792,7 @@ Prepare every function for final compilation and drive
the C back-end."
',native-comp-compiler-options
native-comp-driver-options
',native-comp-driver-options
+ byte-compile-warnings ',byte-compile-warnings
load-path ',load-path)
,native-comp-async-env-modifier-form
(message "Compiling %s..." ',output)
@@ -3746,7 +3800,8 @@ Prepare every function for final compilation and drive
the C back-end."
(temp-file (make-temp-file
(concat "emacs-int-comp-"
(file-name-base output) "-")
- nil ".el")))
+ nil ".el"))
+ (default-directory invocation-directory))
(with-temp-file temp-file
(insert ";; -*-coding: utf-8-emacs-unix; -*-\n")
(mapc (lambda (e)
@@ -4014,6 +4069,7 @@ display a message."
native-comp-driver-options
load-path
backtrace-line-length
+ byte-compile-warnings
;; package-load-list
;; package-user-dir
;; package-directory-list
@@ -4047,6 +4103,7 @@ display a message."
(comp-log "\n")
(mapc #'comp-log expr-strings)))
(load1 load)
+ (default-directory invocation-directory)
(process (make-process
:name (concat "Compiling: " source-file)
:buffer (with-current-buffer
@@ -4246,8 +4303,9 @@ bytecode definition was not changed in the meantime)."
;; compilation, so update `comp-files-queue' to reflect that.
(unless (or (null load)
(eq load (cdr entry)))
- (cl-substitute (cons file load) (car entry) comp-files-queue
- :key #'car :test #'string=))
+ (setf comp-files-queue
+ (cl-substitute (cons file load) (car entry) comp-files-queue
+ :key #'car :test #'string=)))
(unless (native-compile-async-skip-p file load selector)
(let* ((out-filename (comp-el-to-eln-filename file))
@@ -4413,6 +4471,27 @@ of (commands) to run simultaneously."
(delete-directory subdir))))))
(message "Cache cleared"))
+;;;###autoload
+(defun comp-function-type-spec (function)
+ "Return the type specifier of FUNCTION.
+
+This function returns a cons cell whose car is the function
+specifier, and cdr is a symbol, either `inferred' or `know'.
+If the symbol is `inferred', the type specifier is automatically
+inferred from the code itself by the native compiler; if it is
+`know', the type specifier comes from `comp-known-type-specifiers'."
+ (let ((kind 'know)
+ type-spec )
+ (when-let ((res (gethash function comp-known-func-cstr-h)))
+ (setf type-spec (comp-cstr-to-type-spec res)))
+ (let ((f (symbol-function function)))
+ (when (and (null type-spec)
+ (subr-native-elisp-p f))
+ (setf kind 'inferred
+ type-spec (subr-type f))))
+ (when type-spec
+ (cons type-spec kind))))
+
(provide 'comp)
;; LocalWords: limplified limplification limplify Limple LIMPLE libgccjit elc
eln
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 77f4b26d9bb..3c6a215c9dc 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -391,7 +391,7 @@ or call the function `%s'."))))
(not (equal ,last-message
(current-message))))
(let ((local ,(if globalp "" " in current buffer")))
- (message ,(format "%s %%sabled%%s" pretty-name)
+ (message "%s %sabled%s" ,pretty-name
(if ,getter "en" "dis") local)))))
,@(when after-hook `(,after-hook)))
(force-mode-line-update)
@@ -452,15 +452,23 @@ No problems result if this variable is not bound.
TURN-ON is a function that will be called with no args in every buffer
and that should try to turn MODE on if applicable for that buffer.
-Each of KEY VALUE is a pair of CL-style keyword arguments. :predicate
-specifies which major modes the globalized minor mode should be switched on
-in. As the minor mode defined by this function is always global, any
-:global keyword is ignored. Other keywords have the same meaning as in
-`define-minor-mode', which see. In particular, :group specifies the custom
-group. The most useful keywords are those that are passed on to the
-`defcustom'. It normally makes no sense to pass the :lighter or :keymap
-keywords to `define-globalized-minor-mode', since these are usually passed
-to the buffer-local version of the minor mode.
+Each of KEY VALUE is a pair of CL-style keyword arguments.
+The :predicate argument specifies in which major modes should the
+globalized minor mode be switched on. The value should be t (meaning
+switch on the minor mode in all major modes), nil (meaning don't
+switch on in any major mode), a list of modes (meaning switch on only
+in those modes and their descendants), or a list (not MODES...),
+meaning switch on in any major mode except MODES. The value can also
+mix all of these forms, see the info node `Defining Minor Modes' for
+details.
+As the minor mode defined by this function is always global, any
+:global keyword is ignored.
+Other keywords have the same meaning as in `define-minor-mode',
+which see. In particular, :group specifies the custom group.
+The most useful keywords are those that are passed on to the `defcustom'.
+It normally makes no sense to pass the :lighter or :keymap keywords
+to `define-globalized-minor-mode', since these are usually passed to
+the buffer-local version of the minor mode.
BODY contains code to execute each time the mode is enabled or disabled.
It is executed after toggling the mode, and before running
@@ -512,7 +520,7 @@ on if the hook has explicitly disabled it.
(setq turn-on-function
`(lambda ()
(require 'easy-mmode)
- (when (easy-mmode--globalized-predicate-p ,(car predicate))
+ (when (easy-mmode--globalized-predicate-p ,MODE-predicate)
(funcall ,turn-on-function)))))
(_ (push keyw extra-keywords) (push (pop body) extra-keywords))))
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 552526b6efc..9a06807bcdc 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -2853,81 +2853,81 @@ See `edebug-behavior-alist' for implementations.")
edebug-inside-windows
)
- (unwind-protect
- (let (
- ;; Declare global values local but using the same global value.
- ;; We could set these to the values for previous edebug call.
- (last-command last-command)
- (this-command this-command)
- (current-prefix-arg nil)
-
- (last-input-event nil)
- (last-command-event nil)
- (last-event-frame nil)
- (last-nonmenu-event nil)
- (track-mouse nil)
-
- (standard-output t)
- (standard-input t)
-
- ;; Don't keep reading from an executing kbd macro
- ;; within edebug unless edebug-continue-kbd-macro is
- ;; non-nil. Again, local binding may not be best.
- (executing-kbd-macro
- (if edebug-continue-kbd-macro executing-kbd-macro))
-
- ;; Don't get confused by the user's keymap changes.
- (overriding-local-map nil)
- (overriding-terminal-local-map nil)
- ;; Override other minor modes that may bind the keys
- ;; edebug uses.
- (minor-mode-overriding-map-alist
- (list (cons 'edebug-mode edebug-mode-map)))
-
- ;; Bind again to outside values.
- (debug-on-error edebug-outside-debug-on-error)
- (debug-on-quit edebug-outside-debug-on-quit)
-
- ;; Don't keep defining a kbd macro.
- (defining-kbd-macro
- (if edebug-continue-kbd-macro defining-kbd-macro))
-
- ;; others??
- )
- (if (and (eq edebug-execution-mode 'go)
- (not (memq arg-mode '(after error))))
- (message "Break"))
-
- (setq signal-hook-function nil)
-
- (edebug-mode 1)
- (unwind-protect
- (recursive-edit) ; <<<<<<<<<< Recursive edit
-
- ;; Do the following, even if quit occurs.
- (setq signal-hook-function #'edebug-signal)
- (if edebug-backtrace-buffer
- (kill-buffer edebug-backtrace-buffer))
-
- ;; Remember selected-window after recursive-edit.
- ;; (setq edebug-inside-window (selected-window))
-
- (set-match-data edebug-outside-match-data)
-
- ;; Recursive edit may have changed buffers,
- ;; so set it back before exiting let.
- (if (buffer-name edebug-buffer) ; if it still exists
- (progn
- (set-buffer edebug-buffer)
- (when (memq edebug-execution-mode '(go Go-nonstop))
- (edebug-overlay-arrow)
- (sit-for 0))
- (edebug-mode -1))
- ;; gotta have a buffer to let its buffer local variables be set
- (get-buffer-create " bogus edebug buffer"))
- ));; inner let
- )))
+ (let (
+ ;; Declare global values local but using the same global value.
+ ;; We could set these to the values for previous edebug call.
+ (last-command last-command)
+ (this-command this-command)
+ (current-prefix-arg nil)
+
+ (last-input-event nil)
+ (last-command-event nil)
+ (last-event-frame nil)
+ (last-nonmenu-event nil)
+ (track-mouse nil)
+
+ (standard-output t)
+ (standard-input t)
+
+ ;; Don't keep reading from an executing kbd macro
+ ;; within edebug unless edebug-continue-kbd-macro is
+ ;; non-nil. Again, local binding may not be best.
+ (executing-kbd-macro
+ (if edebug-continue-kbd-macro executing-kbd-macro))
+
+ ;; Don't get confused by the user's keymap changes.
+ (overriding-local-map nil)
+ (overriding-terminal-local-map nil)
+ ;; Override other minor modes that may bind the keys
+ ;; edebug uses.
+ (minor-mode-overriding-map-alist
+ (list (cons 'edebug-mode edebug-mode-map)))
+
+ ;; Bind again to outside values.
+ (debug-on-error edebug-outside-debug-on-error)
+ (debug-on-quit edebug-outside-debug-on-quit)
+
+ ;; Don't keep defining a kbd macro.
+ (defining-kbd-macro
+ (if edebug-continue-kbd-macro defining-kbd-macro))
+
+ ;; others??
+ )
+
+ (if (and (eq edebug-execution-mode 'go)
+ (not (memq arg-mode '(after error))))
+ (message "Break"))
+
+ (setq signal-hook-function nil)
+
+ (edebug-mode 1)
+ (unwind-protect
+ (recursive-edit) ; <<<<<<<<<< Recursive edit
+
+ ;; Do the following, even if quit occurs.
+ (setq signal-hook-function #'edebug-signal)
+ (if edebug-backtrace-buffer
+ (kill-buffer edebug-backtrace-buffer))
+
+ ;; Remember selected-window after recursive-edit.
+ ;; (setq edebug-inside-window (selected-window))
+
+ (set-match-data edebug-outside-match-data)
+
+ ;; Recursive edit may have changed buffers,
+ ;; so set it back before exiting let.
+ (if (buffer-name edebug-buffer) ; if it still exists
+ (progn
+ (set-buffer edebug-buffer)
+ (when (memq edebug-execution-mode '(go Go-nonstop))
+ (edebug-overlay-arrow)
+ (sit-for 0))
+ (edebug-mode -1))
+ ;; gotta have a buffer to let its buffer local variables be set
+ (get-buffer-create " bogus edebug buffer"))
+ ));; inner let
+ ))
;;; Display related functions
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 74bef264bf1..18d3eb37af3 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -5,7 +5,7 @@
;; Author: Noah Friedman <friedman@splode.com>
;; Keywords: extensions
;; Created: 1995-10-06
-;; Version: 1.13.0
+;; Version: 1.14.0
;; Package-Requires: ((emacs "26.3"))
;; This is a GNU ELPA :core package. Avoid functionality that is not
@@ -437,7 +437,7 @@ documentation-producing backend to cooperate with specific
documentation-displaying frontends. For example, KEY can be:
* `:thing', VALUE being a short string or symbol designating what
- is being reported on. It can, for example be the name of the
+ DOCSTRING reports on. It can, for example be the name of the
function whose signature is being documented, or the name of
the variable whose docstring is being documented.
`eldoc-display-in-echo-area', a member of
@@ -448,6 +448,17 @@ documentation-displaying frontends. For example, KEY can
be:
`eldoc-display-in-echo-area' and `eldoc-display-in-buffer' will
use when displaying `:thing''s value.
+* `:echo', controlling how `eldoc-display-in-echo-area' should
+ present this documentation item in the echo area, to save
+ space. If VALUE is a string, echo it instead of DOCSTRING. If
+ a number, only echo DOCSTRING up to that character position.
+ If `skip', don't echo DOCSTRING at all.
+
+The additional KEY `:origin' is always added by ElDoc, its VALUE
+being the member of `eldoc-documentation-functions' where
+DOCSTRING originated. `eldoc-display-functions' may use this
+information to organize display of multiple docstrings.
+
Finally, major modes should modify this hook locally, for
example:
(add-hook \\='eldoc-documentation-functions #\\='foo-mode-eldoc nil t)
@@ -471,8 +482,6 @@ directly from the user or from ElDoc's automatic
mechanisms'.")
(defvar eldoc--doc-buffer nil "Buffer displaying latest ElDoc-produced docs.")
-(defvar eldoc--doc-buffer-docs nil "Documentation items in
`eldoc--doc-buffer'.")
-
(defun eldoc-doc-buffer (&optional interactive)
"Get or display ElDoc documentation buffer.
@@ -490,46 +499,70 @@ If INTERACTIVE, display it. Else, return said buffer."
(display-buffer (current-buffer)))
(t (current-buffer)))))
+(defvar eldoc-doc-buffer-separator
+ (concat "\n" (propertize "\n" 'face '(:inherit separator-line :extend t))
"\n")
+ "String used to separate items in Eldoc documentation buffer.")
+
(defun eldoc--format-doc-buffer (docs)
"Ensure DOCS are displayed in an *eldoc* buffer."
(with-current-buffer (if (buffer-live-p eldoc--doc-buffer)
eldoc--doc-buffer
(setq eldoc--doc-buffer
(get-buffer-create " *eldoc*")))
- (unless (eq docs eldoc--doc-buffer-docs)
- (setq-local eldoc--doc-buffer-docs docs)
- (let ((inhibit-read-only t)
- (things-reported-on))
- (special-mode)
- (erase-buffer)
- (setq-local nobreak-char-display nil)
- (cl-loop for (docs . rest) on docs
- for (this-doc . plist) = docs
- for thing = (plist-get plist :thing)
- when thing do
- (cl-pushnew thing things-reported-on)
- (setq this-doc
- (concat
- (propertize (format "%s" thing)
- 'face (plist-get plist :face))
- ": "
- this-doc))
- do (insert this-doc)
- when rest do (insert "\n")
- finally (goto-char (point-min)))
- ;; Rename the buffer, taking into account whether it was
- ;; hidden or not
- (rename-buffer (format "%s*eldoc%s*"
- (if (string-match "^ " (buffer-name)) " " "")
- (if things-reported-on
- (format " for %s"
- (mapconcat
- (lambda (s) (format "%s" s))
- things-reported-on
- ", "))
- ""))))))
+ (let ((inhibit-read-only t)
+ (things-reported-on))
+ (special-mode)
+ (erase-buffer)
+ (setq-local nobreak-char-display nil)
+ (cl-loop for (docs . rest) on docs
+ for (this-doc . plist) = docs
+ for thing = (plist-get plist :thing)
+ when thing do
+ (cl-pushnew thing things-reported-on)
+ (setq this-doc
+ (concat
+ (propertize (format "%s" thing)
+ 'face (plist-get plist :face))
+ ": "
+ this-doc))
+ do (insert this-doc)
+ when rest do
+ (insert eldoc-doc-buffer-separator)
+ finally (goto-char (point-min)))
+ ;; Rename the buffer, taking into account whether it was
+ ;; hidden or not
+ (rename-buffer (format "%s*eldoc%s*"
+ (if (string-match "^ " (buffer-name)) " " "")
+ (if things-reported-on
+ (format " for %s"
+ (mapconcat
+ (lambda (s) (format "%s" s))
+ things-reported-on
+ ", "))
+ "")))))
eldoc--doc-buffer)
+(defun eldoc--echo-area-render (docs)
+ "Similar to `eldoc--format-doc-buffer', but for echo area.
+Helper for `eldoc-display-in-echo-area'."
+ (cl-loop for (item . rest) on docs
+ for (this-doc . plist) = item
+ for echo = (plist-get plist :echo)
+ for thing = (plist-get plist :thing)
+ unless (eq echo 'skip) do
+ (setq this-doc
+ (cond ((integerp echo) (substring this-doc 0 echo))
+ ((stringp echo) echo)
+ (t this-doc)))
+ (when thing (setq this-doc
+ (concat
+ (propertize (format "%s" thing)
+ 'face (plist-get plist :face))
+ ": "
+ this-doc)))
+ (insert this-doc)
+ (when rest (insert "\n"))))
+
(defun eldoc--echo-area-substring (available)
"Given AVAILABLE lines, get buffer substring to display in echo area.
Helper for `eldoc-display-in-echo-area'."
@@ -615,15 +648,15 @@ Honor `eldoc-echo-area-use-multiline-p' and
single-doc)
((and (numberp available)
(cl-plusp available))
- ;; Else, given a positive number of logical lines, we
- ;; format the *eldoc* buffer, using as most of its
- ;; contents as we know will fit.
- (with-current-buffer (eldoc--format-doc-buffer docs)
- (save-excursion
- (eldoc--echo-area-substring available))))
+ ;; Else, given a positive number of logical lines, grab
+ ;; as many as we can.
+ (with-temp-buffer
+ (eldoc--echo-area-render docs)
+ (eldoc--echo-area-substring available)))
(t ;; this is the "truncate brutally" situation
(let ((string
- (with-current-buffer (eldoc--format-doc-buffer docs)
+ (with-temp-buffer
+ (eldoc--echo-area-render docs)
(buffer-substring (goto-char (point-min))
(progn (end-of-visible-line)
(point))))))
@@ -644,38 +677,45 @@ If INTERACTIVE is t, also display the buffer."
(defun eldoc-documentation-default ()
"Show the first non-nil documentation string for item at point.
This is the default value for `eldoc-documentation-strategy'."
- (run-hook-with-args-until-success 'eldoc-documentation-functions
- (eldoc--make-callback :patient)))
-
-(defun eldoc--documentation-compose-1 (eagerlyp)
- "Helper function for composing multiple doc strings.
-If EAGERLYP is non-nil show documentation as soon as possible,
-else wait for all doc strings."
(run-hook-wrapped 'eldoc-documentation-functions
(lambda (f)
- (let* ((callback (eldoc--make-callback
- (if eagerlyp :eager :patient)))
- (str (funcall f callback)))
- (if (or (null str) (stringp str)) (funcall callback
str))
- nil)))
- t)
+ (funcall f (eldoc--make-callback :eager f)))))
(defun eldoc-documentation-compose ()
"Show multiple documentation strings together after waiting for all of them.
This is meant to be used as a value for `eldoc-documentation-strategy'."
- (eldoc--documentation-compose-1 nil))
+ (let (fns-and-callbacks)
+ ;; Make all the callbacks, setting up state inside
+ ;; `eldoc--invoke-strategy' to know how many callbacks to wait for
+ ;; before displaying the result (bug#62816).
+ (run-hook-wrapped 'eldoc-documentation-functions
+ (lambda (f)
+ (push (cons f (eldoc--make-callback :patient f))
+ fns-and-callbacks)
+ nil))
+ ;; Now call them. The last one will trigger the display.
+ (cl-loop for (f . callback) in fns-and-callbacks
+ for str = (funcall f callback)
+ when (or (null str) (stringp str)) do (funcall callback str)))
+ t)
(defun eldoc-documentation-compose-eagerly ()
"Show multiple documentation strings one by one as soon as possible.
This is meant to be used as a value for `eldoc-documentation-strategy'."
- (eldoc--documentation-compose-1 t))
+ (run-hook-wrapped 'eldoc-documentation-functions
+ (lambda (f)
+ (let* ((callback (eldoc--make-callback :eager f))
+ (str (funcall f callback)))
+ (if (or (null str) (stringp str)) (funcall callback
str))
+ nil)))
+ t)
(defun eldoc-documentation-enthusiast ()
"Show most important documentation string produced so far.
This is meant to be used as a value for `eldoc-documentation-strategy'."
(run-hook-wrapped 'eldoc-documentation-functions
(lambda (f)
- (let* ((callback (eldoc--make-callback :enthusiast))
+ (let* ((callback (eldoc--make-callback :enthusiast f))
(str (funcall f callback)))
(if (stringp str) (funcall callback str))
nil)))
@@ -780,7 +820,7 @@ before a higher priority one.")
;; `eldoc--invoke-strategy' could be moved to
;; `eldoc-documentation-strategy' or thereabouts if/when we decide to
;; extend or publish the `make-callback' protocol.
-(defun eldoc--make-callback (method)
+(defun eldoc--make-callback (method origin)
"Make callback suitable for `eldoc-documentation-functions'.
The return value is a function FN whose lambda list is (STRING
&rest PLIST) and can be called by those functions. Its
@@ -800,8 +840,11 @@ have the following values:
`eldoc-documentation-functions' have been collected;
- `:eager' says to display STRING along with all other competing
- strings so far, as soon as possible."
- (funcall eldoc--make-callback method))
+ strings so far, as soon as possible.
+
+ORIGIN is the member of `eldoc-documentation-functions' which
+will be responsible for eventually calling the FN."
+ (funcall eldoc--make-callback method origin))
(defun eldoc--invoke-strategy (interactive)
"Invoke `eldoc-documentation-strategy' function.
@@ -838,9 +881,10 @@ the docstrings eventually produced, using
(docs-registered '()))
(cl-labels
((register-doc
- (pos string plist)
+ (pos string plist origin)
(when (and string (> (length string) 0))
- (push (cons pos (cons string plist)) docs-registered)))
+ (push (cons pos (cons string `(:origin ,origin ,@plist)))
+ docs-registered)))
(display-doc
()
(run-hook-with-args
@@ -850,7 +894,7 @@ the docstrings eventually produced, using
(lambda (a b) (< (car
a) (car b))))))
interactive))
(make-callback
- (method)
+ (method origin)
(let ((pos (prog1 howmany (cl-incf howmany))))
(cl-ecase method
(:enthusiast
@@ -858,7 +902,7 @@ the docstrings eventually produced, using
(when (and string (cl-loop for (p) in docs-registered
never (< p pos)))
(setq docs-registered '())
- (register-doc pos string plist))
+ (register-doc pos string plist origin))
(when (and (timerp eldoc--enthusiasm-curbing-timer)
(memq eldoc--enthusiasm-curbing-timer
timer-list))
@@ -870,19 +914,22 @@ the docstrings eventually produced, using
(:patient
(cl-incf want)
(lambda (string &rest plist)
- (register-doc pos string plist)
+ (register-doc pos string plist origin)
(when (zerop (cl-decf want)) (display-doc))
t))
(:eager
(lambda (string &rest plist)
- (register-doc pos string plist)
+ (register-doc pos string plist origin)
(display-doc)
t))))))
(let* ((eldoc--make-callback #'make-callback)
(res (funcall eldoc-documentation-strategy)))
;; Observe the old and the new protocol:
- (cond (;; Old protocol: got string, output immediately;
- (stringp res) (register-doc 0 res nil) (display-doc))
+ (cond (;; Old protocol: got string, e-d-strategy is iself the
+ ;; origin function, and we output immediately;
+ (stringp res)
+ (register-doc 0 res nil eldoc-documentation-strategy)
+ (display-doc))
(;; Old protocol: got nil, clear the echo area;
(null res) (eldoc--message nil))
(;; New protocol: trust callback will be called;
diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el
index 98a017c8a8e..e8b0dd92989 100644
--- a/lisp/emacs-lisp/ert-x.el
+++ b/lisp/emacs-lisp/ert-x.el
@@ -563,9 +563,9 @@ The same keyword arguments are supported as in
;; Emacs's Makefile sets $HOME to a nonexistent value. Needed
;; in batch mode only, therefore.
(when (and noninteractive (not (file-directory-p "~/")))
- (setenv "HOME" temporary-file-directory))
+ (setenv "HOME" (directory-file-name temporary-file-directory)))
(format "/mock::%s" temporary-file-directory))))
- "Temporary directory for remote file tests.")
+ "Temporary directory for remote file tests.")
(provide 'ert-x)
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index dad91e92a45..a5e29dd5e3b 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -271,7 +271,7 @@ instead the assignment is turned into something equivalent
to
(SETTER ARGS... temp)
temp)
so as to preserve the semantics of `setf'."
- (declare (debug (sexp (&or symbolp lambda-expr) &optional sexp)))
+ (declare (debug (sexp [&or symbolp lambda-expr] &optional sexp)))
(when (eq 'lambda (car-safe setter))
(message "Use `gv-define-setter' or name %s's setter function" name))
`(gv-define-setter ,name (val &rest args)
@@ -639,6 +639,13 @@ REF must have been previously obtained with `gv-ref'."
;;; Generalized variables.
+;; You'd think noone would write `(setf (error ...) ..)' but it
+;; appears naturally as the result of macroexpansion of things like
+;; (setf (pcase-exhaustive ...)).
+;; We could generalize this to `throw' and `signal', but it seems
+;; preferable to wait until there's a concrete need.
+(gv-define-expander error (lambda (_do &rest args) `(error . ,args)))
+
;; Some Emacs-related place types.
(gv-define-simple-setter buffer-file-name set-visited-file-name t)
(make-obsolete-generalized-variable
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 417c218c6d7..4e021f738b6 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -92,12 +92,22 @@ report errors as appropriate for this kind of usage."
(forward-sexp (- arg) interactive))
(defun mark-sexp (&optional arg allow-extend)
- "Set mark ARG sexps from point.
-The place mark goes is the same place \\[forward-sexp] would
-move to with the same argument.
-Interactively, if this command is repeated
-or (in Transient Mark mode) if the mark is active,
-it marks the next ARG sexps after the ones already marked.
+ "Set mark ARG sexps from point or move mark one sexp.
+When called from Lisp with ALLOW-EXTEND ommitted or nil, mark is
+set ARG sexps from point.
+With ARG and ALLOW-EXTEND both non-nil (interactively, with prefix
+argument), the place to which mark goes is the same place \\[forward-sexp]
+would move to with the same argument; if the mark is active, it moves
+ARG sexps from its current position, otherwise it is set ARG sexps
+from point.
+When invoked interactively without a prefix argument and no active
+region, mark moves one sexp forward.
+When invoked interactively without a prefix argument, and region
+is active, mark moves one sexp away of point (i.e., forward
+if mark is at or after point, back if mark is before point), thus
+extending the region by one sexp. Since the direction of region
+extension depends on the relative position of mark and point, you
+can change the direction by \\[exchange-point-and-mark].
This command assumes point is not in a string or comment."
(interactive "P\np")
(cond ((and allow-extend
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 1007be62dd9..5db9af21508 100644
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -597,73 +597,79 @@ instead of just updating them with the new/changed
autoloads."
defs))))))
(progress-reporter-done progress))
- ;; If we have no autoloads data, but we have EXTRA-DATA, then
- ;; generate the (almost) empty file anyway.
- (if (and (not defs) extra-data)
+ ;; First group per output file.
+ (dolist (fdefs (seq-group-by (lambda (x) (expand-file-name (car x)))
+ defs))
+ (let ((loaddefs-file (car fdefs))
+ hash)
(with-temp-buffer
- (insert (loaddefs-generate--rubric output-file nil t))
- (search-backward "\f")
- (insert extra-data)
- (ensure-empty-lines 1)
- (write-region (point-min) (point-max) output-file nil 'silent))
- ;; We have some data, so generate the loaddef files. First
- ;; group per output file.
- (dolist (fdefs (seq-group-by (lambda (x) (expand-file-name (car x)))
- defs))
- (let ((loaddefs-file (car fdefs))
- hash)
- (with-temp-buffer
- (if (and updating (file-exists-p loaddefs-file))
- (insert-file-contents loaddefs-file)
- (insert (loaddefs-generate--rubric
- loaddefs-file nil t include-package-version))
- (search-backward "\f")
- (when extra-data
- (insert extra-data)
- (ensure-empty-lines 1)))
- (setq hash (buffer-hash))
- ;; Then group by source file (and sort alphabetically).
- (dolist (section (sort (seq-group-by #'cadr (cdr fdefs))
- (lambda (e1 e2)
- (string<
- (file-name-sans-extension
- (file-name-nondirectory (car e1)))
- (file-name-sans-extension
- (file-name-nondirectory (car e2)))))))
- (pop section)
- (let* ((relfile (file-relative-name
- (cadar section)
- (file-name-directory loaddefs-file)))
- (head (concat "\n\f\n;;; Generated autoloads from "
- relfile "\n\n")))
- (when (file-exists-p loaddefs-file)
- ;; If we're updating an old loaddefs file, then see if
- ;; there's a section here for this file already.
- (goto-char (point-min))
- (if (not (search-forward head nil t))
- ;; It's a new file; put the data at the end.
- (progn
- (goto-char (point-max))
- (search-backward "\f\n" nil t))
- ;; Delete the old version of the section.
- (delete-region (match-beginning 0)
- (and (search-forward "\n\f\n;;;")
- (match-beginning 0)))
- (forward-line -2)))
- (insert head)
- (dolist (def (reverse section))
- (setq def (caddr def))
- (if (stringp def)
- (princ def (current-buffer))
- (loaddefs-generate--print-form def))
- (unless (bolp)
- (insert "\n")))))
- ;; Only write the file if we actually made a change.
- (unless (equal (buffer-hash) hash)
- (write-region (point-min) (point-max) loaddefs-file nil 'silent)
- (byte-compile-info
- (file-relative-name loaddefs-file (car (ensure-list dir)))
- t "GEN"))))))))
+ (if (and updating (file-exists-p loaddefs-file))
+ (insert-file-contents loaddefs-file)
+ (insert (loaddefs-generate--rubric
+ loaddefs-file nil t include-package-version))
+ (search-backward "\f")
+ (when extra-data
+ (insert extra-data)
+ (ensure-empty-lines 1)))
+ (setq hash (buffer-hash))
+ ;; Then group by source file (and sort alphabetically).
+ (dolist (section (sort (seq-group-by #'cadr (cdr fdefs))
+ (lambda (e1 e2)
+ (string<
+ (file-name-sans-extension
+ (file-name-nondirectory (car e1)))
+ (file-name-sans-extension
+ (file-name-nondirectory (car e2)))))))
+ (pop section)
+ (let* ((relfile (file-relative-name
+ (cadar section)
+ (file-name-directory loaddefs-file)))
+ (head (concat "\n\f\n;;; Generated autoloads from "
+ relfile "\n\n")))
+ (when (file-exists-p loaddefs-file)
+ ;; If we're updating an old loaddefs file, then see if
+ ;; there's a section here for this file already.
+ (goto-char (point-min))
+ (if (not (search-forward head nil t))
+ ;; It's a new file; put the data at the end.
+ (progn
+ (goto-char (point-max))
+ (search-backward "\f\n" nil t))
+ ;; Delete the old version of the section. Strictly
+ ;; speaking this should search for "\n\f\n;;;", but
+ ;; there are loaddefs files in the wild that only
+ ;; have two ';;'. (Bug#63236)
+ (delete-region (match-beginning 0)
+ (and (search-forward "\n\f\n;;")
+ (match-beginning 0)))
+ (forward-line -2)))
+ (insert head)
+ (dolist (def (reverse section))
+ (setq def (caddr def))
+ (if (stringp def)
+ (princ def (current-buffer))
+ (loaddefs-generate--print-form def))
+ (unless (bolp)
+ (insert "\n")))))
+ ;; Only write the file if we actually made a change.
+ (unless (equal (buffer-hash) hash)
+ (write-region (point-min) (point-max) loaddefs-file nil 'silent)
+ (byte-compile-info
+ (file-relative-name loaddefs-file (car (ensure-list dir)))
+ t "GEN")))))
+
+ ;; If processing files without any autoloads, the above loop will
+ ;; not generate any files. If the function was invoked with
+ ;; EXTRA-DATA, we want to ensure that even if no autoloads were
+ ;; found, that at least a file will have been generated containing
+ ;; the contents of EXTRA-DATA:
+ (when (and extra-data (not (file-exists-p output-file)))
+ (with-temp-buffer
+ (insert (loaddefs-generate--rubric output-file nil t))
+ (search-backward "\f")
+ (insert extra-data)
+ (ensure-empty-lines 1)
+ (write-region (point-min) (point-max) output-file nil 'silent)))))
(defun loaddefs-generate--print-form (def)
"Print DEF in a format that makes sense for version control."
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 8cb67c3b8b5..b05aba3e1a7 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -383,6 +383,11 @@ Assumes the caller has bound
`macroexpand-all-environment'."
(format-message "missing `while' condition")
`(signal 'wrong-number-of-arguments '(while 0))
nil 'compile-only form))
+ (`(unwind-protect ,expr)
+ (macroexp-warn-and-return
+ (format-message "`unwind-protect' without unwind forms")
+ (macroexp--expand-all expr)
+ (list 'suspicious 'unwind-protect) t form))
(`(setq ,(and var (pred symbolp)
(pred (not booleanp)) (pred (not keywordp)))
,expr)
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index e457387acc9..e6977f2012a 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -165,6 +165,8 @@ DOC is a string where \"FUNCTION\" and \"OLDFUN\" are
expected.")
(buffer-string))
usage))))
+;; FIXME: How about renaming this to just `eval-interactive-spec'?
+;; It's not specific to the advice system.
(defun advice-eval-interactive-spec (spec)
"Evaluate the interactive spec SPEC."
(cond
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index ea2766b8dc4..f34cfb3120b 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -24,7 +24,7 @@
;; While packages managed by package.el use tarballs for distributing
;; the source code, this extension allows for packages to be fetched
-;; and updated directly from a version control system.
+;; and upgraded directly from a version control system.
;;
;; To install a package from source use `package-vc-install'. If you
;; aren't interested in activating a package, you can use
@@ -41,14 +41,10 @@
;; - Allow maintaining patches that are ported back onto regular
;; packages and maintained between versions.
-;;
-;; - Add a heuristic for guessing a `:lisp-dir' when cloning directly
-;; from a URL.
;;; Code:
(eval-when-compile (require 'rx))
-(eval-when-compile (require 'inline))
(eval-when-compile (require 'map))
(eval-when-compile (require 'cl-lib))
(require 'package)
@@ -59,7 +55,7 @@
(defgroup package-vc nil
"Manage packages from VC checkouts."
:group 'package
- :link '(custom-manual "(emacs) Package from Source")
+ :link '(custom-manual "(emacs) Fetching Package Sources")
:prefix "package-vc-"
:version "29.1")
@@ -116,6 +112,11 @@ the `clone' function."
vc-handled-backends))
:version "29.1")
+(defcustom package-vc-register-as-project t
+ "Non-nil means that packages should be registered as projects."
+ :type 'boolean
+ :version "30.1")
+
(defvar package-vc-selected-packages) ; pacify byte-compiler
;;;###autoload
@@ -139,7 +140,6 @@ the `clone' function."
(package-desc-create :name name :kind 'vc))
spec)))))))
-;;;###autoload
(defcustom package-vc-selected-packages '()
"List of packages that must be installed.
Each member of the list is of the form (NAME . SPEC), where NAME
@@ -147,40 +147,13 @@ is a symbol designating the package and SPEC is one of:
- nil, if any package version can be installed;
- a version string, if that specific revision is to be installed;
-- a property list, describing a package specification. Valid
- key/value pairs are
-
- `:url' (string)
- The URL of the repository used to fetch the package source.
-
- `:branch' (string)
- If given, the name of the branch to checkout after cloning the directory.
-
- `:lisp-dir' (string)
- The repository-relative name of the directory to use for loading the Lisp
- sources. If not given, the value defaults to the root directory
- of the repository.
-
- `:main-file' (string)
- The main file of the project, relevant to gather package metadata.
- If not given, the assumed default is the package name with \".el\"
- appended to it.
-
- `:vc-backend' (symbol)
- A symbol of the VC backend to use for cloning the package. The
- value ought to be a member of `vc-handled-backends'. If omitted,
- `vc-clone' will fall back onto the archive default or on
- `package-vc-default-backend'.
-
- All other keys are ignored.
+- a property list, describing a package specification. For more
+ details, please consult the subsection \"Specifying Package
+ Sources\" in the Info node `(emacs)Fetching Package Sources'.
-This user option differs from `package-selected-packages' in that
-it is meant to be specified manually. If you want to install all
-the packages in the list, you cal also use
-`package-vc-install-selected-packages'.
-
-Note that this option will not override an existing source
-package installation or revert the checked out revision."
+This user option will be automatically updated to store package
+specifications for packages that are not specified in any
+archive."
:type '(alist :tag "List of packages you want to be installed"
:key-type (symbol :tag "Package")
:value-type
@@ -190,14 +163,11 @@ package installation or revert the checked out revision."
(:branch string)
(:lisp-dir string)
(:main-file string)
+ (:doc string)
(:vc-backend symbol)))))
- :initialize #'custom-initialize-default
- :set (lambda (sym val)
- (custom-set-default sym val)
- (package-vc-install-selected-packages))
:version "29.1")
-(defvar package-vc--archive-spec-alist nil
+(defvar package-vc--archive-spec-alists nil
"List of package specifications for each archive.
The list maps each package name, as a string, to a plist as
specified in `package-vc-selected-packages'.")
@@ -224,22 +194,20 @@ All other values are ignored.")
The optional argument NAME can be used to override the default
name for PKG-DESC."
(alist-get
- (or name (package-desc-name pkg-desc))
- (if (package-desc-archive pkg-desc)
+ (setq name (or name (package-desc-name pkg-desc)))
+ (if (and (package-desc-archive pkg-desc)
+ (not (alist-get name package-vc-selected-packages
+ nil nil #'string=)))
(alist-get (intern (package-desc-archive pkg-desc))
- package-vc--archive-spec-alist)
- (apply #'append (mapcar #'cdr package-vc--archive-spec-alist)))
- nil nil #'string=))
-
-(define-inline package-vc--query-spec (pkg-desc prop)
- "Query the property PROP for the package specification of PKG-DESC.
-If no package specification can be determined, the function will
-return nil."
- (inline-letevals (pkg-desc prop)
- (inline-quote (plist-get (package-vc--desc->spec ,pkg-desc) ,prop))))
+ package-vc--archive-spec-alists)
+ ;; Consult both our local list of package specifications, as well
+ ;; as the lists provided by the archives.
+ (apply #'append (cons package-vc-selected-packages
+ (mapcar #'cdr package-vc--archive-spec-alists))))
+ '() nil #'string=))
(defun package-vc--read-archive-data (archive)
- "Update `package-vc--archive-spec-alist' for ARCHIVE.
+ "Update `package-vc--archive-spec-alists' for ARCHIVE.
This function is meant to be used as a hook for `package-read-archive-hook'."
(let ((contents-file (expand-file-name
(format "archives/%s/elpa-packages.eld" archive)
@@ -256,7 +224,7 @@ This function is meant to be used as a hook for
`package-read-archive-hook'."
(let ((spec (read (current-buffer))))
(when (eq package-vc--elpa-packages-version
(plist-get (cdr spec) :version))
- (setf (alist-get (intern archive) package-vc--archive-spec-alist)
+ (setf (alist-get (intern archive)
package-vc--archive-spec-alists)
(car spec)))
(setf (alist-get (intern archive) package-vc--archive-data-alist)
(cdr spec))
@@ -267,7 +235,7 @@ This function is meant to be used as a hook for
`package-read-archive-hook'."
(defun package-vc--download-and-read-archives (&optional async)
"Download specifications of all `package-archives' and read them.
-Populate `package-vc--archive-spec-alist' with the result.
+Populate `package-vc--archive-spec-alists' with the result.
If optional argument ASYNC is non-nil, perform the downloads
asynchronously."
@@ -309,12 +277,11 @@ asynchronously."
(directory (file-name-concat
(or (package-desc-dir pkg-desc)
(expand-file-name name package-user-dir))
- (and-let* ((extras (package-desc-extras pkg-desc)))
- (alist-get :lisp-dir extras))))
- (file (or (plist-get pkg-spec :main-file)
- (expand-file-name
- (concat name ".el")
- directory))))
+ (plist-get pkg-spec :lisp-dir)))
+ (file (expand-file-name
+ (or (plist-get pkg-spec :main-file)
+ (concat name ".el"))
+ directory)))
(if (file-exists-p file) file
;; The following heuristic is only necessary when fetching a
;; repository with URL that would break the above assumptions.
@@ -377,6 +344,40 @@ asynchronously."
"\n")
nil pkg-file nil 'silent))))
+(defcustom package-vc-allow-side-effects nil
+ "Whether to process :make and :shell-command spec arguments.
+
+It may be necessary to run :make and :shell-command arguments in
+order to initialize a package or build its documentation, but
+please be careful when changing this option, as installing and
+updating a package can run potentially harmful code.
+
+When set to a list of symbols (packages), run commands for only
+packages in the list. When nil, never run commands. Otherwise
+when non-nil, run commands for any package with :make or
+:shell-command specified.
+
+Package specs are loaded from trusted package archives."
+ :type '(choice (const :tag "Run for all packages" t)
+ (repeat :tag "Run only for selected packages" (symbol :tag
"Package name"))
+ (const :tag "Never run" nil))
+ :version "30.1")
+
+(defun package-vc--make (pkg-spec pkg-desc)
+ "Process :make and :shell-command in PKG-SPEC.
+PKG-DESC is the package descriptor for the package that is being
+prepared."
+ (let ((target (plist-get pkg-spec :make))
+ (cmd (plist-get pkg-spec :shell-command))
+ (buf (format " *package-vc make %s*" (package-desc-name pkg-desc))))
+ (when (or cmd target)
+ (with-current-buffer (get-buffer-create buf)
+ (erase-buffer)
+ (when (and cmd (/= 0 (call-process shell-file-name nil t nil
shell-command-switch cmd)))
+ (warn "Failed to run %s, see buffer %S" cmd (buffer-name)))
+ (when (and target (/= 0 (apply #'call-process "make" nil t nil (if
(consp target) target (list target)))))
+ (warn "Failed to make %s, see buffer %S" target (buffer-name)))))))
+
(declare-function org-export-to-file "ox" (backend file))
(defun package-vc--build-documentation (pkg-desc file)
@@ -385,6 +386,7 @@ FILE can be an Org file, indicated by its \".org\"
extension,
otherwise it's assumed to be an Info file."
(let* ((pkg-name (package-desc-name pkg-desc))
(default-directory (package-desc-dir pkg-desc))
+ (docs-directory (expand-file-name (file-name-directory file)))
(output (expand-file-name (format "%s.info" pkg-name)))
clean-up)
(when (string-match-p "\\.org\\'" file)
@@ -399,7 +401,9 @@ otherwise it's assumed to be an Info file."
(erase-buffer)
(cond
((/= 0 (call-process "makeinfo" nil t nil
- "--no-split" file "-o" output))
+ "-I" docs-directory
+ "--no-split" file
+ "-o" output))
(message "Failed to build manual %s, see buffer %S"
file (buffer-name)))
((/= 0 (call-process "install-info" nil t nil
@@ -495,12 +499,12 @@ documentation and marking the package as installed."
missing)))
(let ((default-directory (file-name-as-directory pkg-dir))
- (pkg-file (expand-file-name (package--description-file pkg-dir)
pkg-dir)))
+ (pkg-file (expand-file-name (package--description-file pkg-dir)
pkg-dir))
+ (pkg-spec (package-vc--desc->spec pkg-desc)))
;; Generate autoloads
(let* ((name (package-desc-name pkg-desc))
(auto-name (format "%s-autoloads.el" name))
- (extras (package-desc-extras pkg-desc))
- (lisp-dir (alist-get :lisp-dir extras)))
+ (lisp-dir (plist-get pkg-spec :lisp-dir)))
(package-generate-autoloads
name (file-name-concat pkg-dir lisp-dir))
(when lisp-dir
@@ -519,9 +523,14 @@ documentation and marking the package as installed."
;; Generate package file
(package-vc--generate-description-file pkg-desc pkg-file)
+ ;; Process :make and :shell-command arguments before building
documentation
+ (when (or (eq package-vc-allow-side-effects t)
+ (memq (package-desc-name pkg-desc)
+ package-vc-allow-side-effects))
+ (package-vc--make pkg-spec pkg-desc))
+
;; Detect a manual
- (when-let ((pkg-spec (package-vc--desc->spec pkg-desc))
- ((executable-find "install-info")))
+ (when (executable-find "install-info")
(dolist (doc-file (ensure-list (plist-get pkg-spec :doc)))
(package-vc--build-documentation pkg-desc doc-file))))
@@ -542,9 +551,11 @@ documentation and marking the package as installed."
(package--reload-previously-loaded new-desc)))
;; Mark package as selected
- (package--save-selected-packages
- (cons (package-desc-name pkg-desc)
- package-selected-packages))
+ (let ((name (package-desc-name pkg-desc)))
+ (unless (memq name package-selected-packages)
+ (package--save-selected-packages
+ (cons name package-selected-packages))))
+
(package--quickstart-maybe-refresh)
;; Confirm that the installation was successful
@@ -573,6 +584,8 @@ and return nil if it cannot reasonably guess."
(and url (alist-get url package-vc-heuristic-alist
nil nil #'string-match-p)))
+(declare-function project-remember-projects-under "project" (dir &optional
recursive))
+
(defun package-vc--clone (pkg-desc pkg-spec dir rev)
"Clone the package PKG-DESC whose spec is PKG-SPEC into the directory DIR.
REV specifies a specific revision to checkout. This overrides the `:branch'
@@ -584,7 +597,6 @@ attribute in PKG-SPEC."
(unless (file-exists-p dir)
(make-directory (file-name-directory dir) t)
(let ((backend (or (plist-get pkg-spec :vc-backend)
- (package-vc--query-spec pkg-desc :vc-backend)
(package-vc--guess-backend url)
(plist-get (alist-get (package-desc-archive pkg-desc)
package-vc--archive-data-alist
@@ -595,6 +607,11 @@ attribute in PKG-SPEC."
(or (and (not (eq rev :last-release)) rev) branch))
(error "Failed to clone %s from %s" name url))))
+ (when package-vc-register-as-project
+ (let ((default-directory dir))
+ (require 'project)
+ (project-remember-projects-under dir)))
+
;; Check out the latest release if requested
(when (eq rev :last-release)
(if-let ((release-rev (package-vc--release-rev pkg-desc)))
@@ -611,7 +628,7 @@ Emacs Lisp files.")
(defun package-vc--unpack (pkg-desc pkg-spec &optional rev)
"Install the package described by PKG-DESC.
PKG-SPEC is a package specification, a property list describing
-how to fetch and build the package. See `package-vc--archive-spec-alist'
+how to fetch and build the package. See `package-vc--archive-spec-alists'
for details. The optional argument REV specifies a specific revision to
checkout. This overrides the `:branch' attribute in PKG-SPEC."
(unless (eq (package-desc-kind pkg-desc) 'vc)
@@ -659,9 +676,15 @@ abort installation?" name))
;; file system or between installations.
(throw 'done (setq lisp-dir name)))))
- (when lisp-dir
- (push (cons :lisp-dir lisp-dir)
- (package-desc-extras pkg-desc)))
+ ;; Ensure we have a copy of the package specification
+ (unless (seq-some (lambda (alist) (equal (alist-get name (cdr alist))
pkg-spec))
+ package-vc--archive-spec-alists)
+ (customize-save-variable
+ 'package-vc-selected-packages
+ (cons (cons name pkg-spec)
+ (seq-remove (lambda (spec) (string= name (car spec)))
+ package-vc-selected-packages))))
+
(package-vc--unpack-1 pkg-desc pkg-dir)))
(defun package-vc--read-package-name (prompt &optional allow-url installed)
@@ -695,19 +718,19 @@ installed package."
#'string=)))
;;;###autoload
-(defun package-vc-update-all ()
- "Attempt to update all installed VC packages."
+(defun package-vc-upgrade-all ()
+ "Attempt to upgrade all installed VC packages."
(interactive)
(dolist (package package-alist)
(dolist (pkg-desc (cdr package))
(when (package-vc-p pkg-desc)
- (package-vc-update pkg-desc))))
- (message "Done updating packages."))
+ (package-vc-upgrade pkg-desc))))
+ (message "Done upgrading packages."))
;;;###autoload
-(defun package-vc-update (pkg-desc)
- "Attempt to update the package PKG-DESC."
- (interactive (list (package-vc--read-package-desc "Update VC package: " t)))
+(defun package-vc-upgrade (pkg-desc)
+ "Attempt to upgrade the package PKG-DESC."
+ (interactive (list (package-vc--read-package-desc "Upgrade VC package: " t)))
;; HACK: To run `package-vc--unpack-1' after checking out the new
;; revision, we insert a hook into `vc-post-command-functions', and
;; remove it right after it ran. To avoid running the hook multiple
@@ -781,11 +804,13 @@ indicating the package name and SPEC is a plist as
described in
symbol whose name is the package name, and the URL for the
package will be taken from the package's metadata.
-By default, this function installs the last version of the package
-available from its repository, but if REV is given and non-nil, it
-specifies the revision to install. If REV has the special value
-`:last-release' (interactively, the prefix argument), that stands
-for the last released version of the package.
+By default, this function installs the last revision of the
+package available from its repository. If REV is a string, it
+describes the revision to install, as interpreted by the VC
+backend. The special value `:last-release' (interactively, the
+prefix argument), will use the commit of the latest release, if
+it exists. The last release is the latest revision which changed
+the \"Version:\" header of the package's main Lisp file.
Optional argument BACKEND specifies the VC backend to use for cloning
the package's repository; this is only possible if NAME-OR-URL is a URL,
@@ -905,7 +930,7 @@ Rebuilding an installation means scraping for new autoload
cookies, re-compiling Emacs Lisp files, building and installing
any documentation, downloading any missing dependencies. This
command does not fetch new revisions from a remote server. That
-is the responsibility of `package-vc-update'. Interactively,
+is the responsibility of `package-vc-upgrade'. Interactively,
prompt for the name of the package to rebuild."
(interactive (list (package-vc--read-package-desc "Rebuild package: " t)))
(package-vc--unpack-1 pkg-desc (package-desc-dir pkg-desc)))
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index a0bb5e75393..ba0e3618f28 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -795,6 +795,21 @@ specifying the minimum acceptable version."
(require 'finder-inf nil t) ; For `package--builtins'.
(assq package package--builtins))))))
+(defun package--active-built-in-p (package)
+ "Return non-nil if the built-in version of PACKAGE is used.
+If the built-in version of PACKAGE is used and PACKAGE is
+also available for installation from an archive, it is an
+indication that PACKAGE was never upgraded to any newer
+version from the archive."
+ (and (not (assq (cond
+ ((package-desc-p package)
+ (package-desc-name package))
+ ((stringp package) (intern package))
+ ((symbolp package) package)
+ ((error "Unknown package format: %S" package)))
+ (package--alist)))
+ (package-built-in-p package)))
+
(defun package--autoloads-file-name (pkg-desc)
"Return the absolute name of the autoloads file, sans extension.
PKG-DESC is a `package-desc' object."
@@ -886,8 +901,7 @@ correspond to previously loaded files."
(when reload
(package--reload-previously-loaded pkg-desc))
(with-demoted-errors "Error loading autoloads: %s"
- (load (package--autoloads-file-name pkg-desc) nil t))
- (add-to-list 'load-path (directory-file-name pkg-dir)))
+ (load (package--autoloads-file-name pkg-desc) nil t)))
;; Add info node.
(when (file-exists-p (expand-file-name "dir" pkg-dir))
;; FIXME: not the friendliest, but simple.
@@ -1092,8 +1106,12 @@ untar into a directory named DIR; otherwise, signal an
error."
;; Add the directory that will contain the autoload file to
;; the load path. We don't hard-code `pkg-dir', to avoid
;; issues if the package directory is moved around.
- (or (and load-file-name (file-name-directory load-file-name))
- (car load-path)))))
+ ;; `loaddefs-generate' has code to do this for us, but it's
+ ;; not currently exposed. (Bug#63625)
+ (or (and load-file-name
+ (directory-file-name
+ (file-name-directory load-file-name)))
+ (car load-path)))))
(let ((buf (find-buffer-visiting output-file)))
(when buf (kill-buffer buf)))
auto-name))
@@ -1181,7 +1199,7 @@ boundaries."
;; the earliest in version 31.1. The idea is to phase out the
;; requirement for a "footer line" without unduly impacting users
;; on earlier Emacs versions. See Bug#26490 for more details.
- (unless (search-forward (concat ";;; " file-name ".el ends here"))
+ (unless (search-forward (concat ";;; " file-name ".el ends here") nil
'move)
(lwarn '(package package-format) :warning
"Package lacks a terminating comment"))
;; Try to include a trailing newline.
@@ -1209,8 +1227,8 @@ boundaries."
:url website
:keywords keywords
:maintainer
- ;; For backward compatibility, use a single string if there's only
- ;; one maintainer (the most common case).
+ ;; For backward compatibility, use a single cons-cell if
+ ;; there's only one maintainer (the most common case).
(let ((maints (lm-maintainers))) (if (cdr maints) maints (car maints)))
:authors (lm-authors)))))
@@ -1218,15 +1236,14 @@ boundaries."
"Read a `define-package' form in current buffer.
Return the pkg-desc, with desc-kind set to KIND."
(goto-char (point-min))
- (unwind-protect
- (let* ((pkg-def-parsed (read (current-buffer)))
- (pkg-desc
- (when (eq (car pkg-def-parsed) 'define-package)
- (apply #'package-desc-from-define
- (append (cdr pkg-def-parsed))))))
- (when pkg-desc
- (setf (package-desc-kind pkg-desc) kind)
- pkg-desc))))
+ (let* ((pkg-def-parsed (read (current-buffer)))
+ (pkg-desc
+ (when (eq (car pkg-def-parsed) 'define-package)
+ (apply #'package-desc-from-define
+ (append (cdr pkg-def-parsed))))))
+ (when pkg-desc
+ (setf (package-desc-kind pkg-desc) kind)
+ pkg-desc)))
(declare-function tar-get-file-descriptor "tar-mode" (file))
(declare-function tar--extract "tar-mode" (descriptor))
@@ -2179,12 +2196,18 @@ using `package-compute-transaction'."
(unless package-archive-contents
(package-refresh-contents)))
+(defcustom package-install-upgrade-built-in nil
+ "Non-nil means that built-in packages can be upgraded via a package archive.
+If disabled, then `package-install' will not suggest to replace a
+built-in package with a (possibly newer) version from a package archive."
+ :type 'boolean
+ :version "29.1")
+
;;;###autoload
(defun package-install (pkg &optional dont-select)
"Install the package PKG.
PKG can be a `package-desc' or a symbol naming one of the
-available packages in an archive in `package-archives'. When
-called interactively, prompt for the package name.
+available packages in an archive in `package-archives'.
Mark the installed package as selected by adding it to
`package-selected-packages'.
@@ -2194,7 +2217,11 @@ non-nil, install the package but do not add it to
`package-selected-packages'.
If PKG is a `package-desc' and it is already installed, don't try
-to install it but still mark it as selected."
+to install it but still mark it as selected.
+
+If the command is invoked with a prefix argument, it will allow
+upgrading of built-in packages, as if `package-install-upgrade-built-in'
+had been enabled."
(interactive
(progn
;; Initialize the package system to get the list of package
@@ -2202,11 +2229,14 @@ to install it but still mark it as selected."
(package--archives-initialize)
(list (intern (completing-read
"Install package: "
- (delq nil
- (mapcar (lambda (elt)
- (unless (package-installed-p (car elt))
- (symbol-name (car elt))))
- package-archive-contents))
+ (mapcan
+ (lambda (elt)
+ (and (or (and (or current-prefix-arg
+ package-install-upgrade-built-in)
+ (package--active-built-in-p (car elt)))
+ (not (package-installed-p (car elt))))
+ (list (symbol-name (car elt)))))
+ package-archive-contents)
nil t))
nil)))
(package--archives-initialize)
@@ -2217,6 +2247,9 @@ to install it but still mark it as selected."
(unless (or dont-select (package--user-selected-p name))
(package--save-selected-packages
(cons name package-selected-packages)))
+ (when (and (or current-prefix-arg package-install-upgrade-built-in)
+ (package--active-built-in-p pkg))
+ (setq pkg (or (cadr (assq name package-archive-contents)) pkg)))
(if-let* ((transaction
(if (package-desc-p pkg)
(unless (package-installed-p pkg)
@@ -2229,24 +2262,30 @@ to install it but still mark it as selected."
(message "Package `%s' installed." name))
(message "`%s' is already installed" name))))
-(declare-function package-vc-update "package-vc" (pkg))
+(declare-function package-vc-upgrade "package-vc" (pkg))
;;;###autoload
-(defun package-update (name)
- "Update package NAME if a newer version exists."
+(defun package-upgrade (name)
+ "Upgrade package NAME if a newer version exists."
(interactive
(list (completing-read
- "Update package: " (package--updateable-packages) nil t)))
+ "Upgrade package: " (package--upgradeable-packages t) nil t)))
(let* ((package (if (symbolp name)
name
(intern name)))
- (pkg-desc (cadr (assq package package-alist))))
- (if (package-vc-p pkg-desc)
- (package-vc-update pkg-desc)
- (package-delete pkg-desc 'force)
- (package-install package 'dont-select))))
-
-(defun package--updateable-packages ()
+ (pkg-desc (cadr (assq package package-alist)))
+ (package-install-upgrade-built-in (not pkg-desc)))
+ ;; `pkg-desc' will be nil when the package is an "active built-in".
+ (if (and pkg-desc (package-vc-p pkg-desc))
+ (package-vc-upgrade pkg-desc)
+ (when pkg-desc
+ (package-delete pkg-desc 'force 'dont-unselect))
+ (package-install package
+ ;; An active built-in has never been "selected"
+ ;; before. Mark it as installed explicitly.
+ (and pkg-desc 'dont-select)))))
+
+(defun package--upgradeable-packages (&optional include-builtins)
;; Initialize the package system to get the list of package
;; symbols for completion.
(package--archives-initialize)
@@ -2257,30 +2296,46 @@ to install it but still mark it as selected."
(or (let ((available
(assq (car elt) package-archive-contents)))
(and available
- (version-list-<
- (package-desc-version (cadr elt))
- (package-desc-version (cadr available)))))
- (package-vc-p (cadr (assq (car elt) package-alist)))))
- package-alist)))
+ (or (and
+ include-builtins
+ (not (package-desc-version (cadr elt))))
+ (version-list-<
+ (package-desc-version (cadr elt))
+ (package-desc-version (cadr available))))))
+ (package-vc-p (cadr elt))))
+ (if include-builtins
+ (append package-alist
+ (mapcan
+ (lambda (elt)
+ (when (not (assq (car elt) package-alist))
+ (list (list (car elt) (package--from-builtin elt)))))
+ package--builtins))
+ package-alist))))
;;;###autoload
-(defun package-update-all (&optional query)
+(defun package-upgrade-all (&optional query)
"Refresh package list and upgrade all packages.
-If QUERY, ask the user before updating packages. When called
-interactively, QUERY is always true."
+If QUERY, ask the user before upgrading packages. When called
+interactively, QUERY is always true.
+
+Currently, packages which are part of the Emacs distribution are
+not upgraded by this command. To enable upgrading such a package
+using this command, first upgrade the package to a newer version
+from ELPA by either using `\\[package-upgrade]' or
+`\\<package-menu-mode-map>\\[package-menu-mark-install]' after
`\\[list-packages]'."
(interactive (list (not noninteractive)))
(package-refresh-contents)
- (let ((updateable (package--updateable-packages)))
- (if (not updateable)
- (message "No packages to update")
+ (let ((upgradeable (package--upgradeable-packages)))
+ (if (not upgradeable)
+ (message "No packages to upgrade")
(when (and query
(not (yes-or-no-p
- (if (length= updateable 1)
- "One package to update. Do it? "
- (format "%s packages to update. Do it?"
- (length updateable))))))
- (user-error "Updating aborted"))
- (mapc #'package-update updateable))))
+ (if (length= upgradeable 1)
+ "One package to upgrade. Do it? "
+ (format "%s packages to upgrade. Do it?"
+ (length upgradeable))))))
+ (user-error "Upgrade aborted"))
+ (mapc #'package-upgrade upgradeable))))
(defun package--dependencies (pkg)
"Return a list of all dependencies PKG has.
@@ -2693,7 +2748,8 @@ Helper function for `describe-package'."
(status (if desc (package-desc-status desc) "orphan"))
(incompatible-reason (package--incompatible-p desc))
(signed (if desc (package-desc-signed desc)))
- (maintainer (cdr (assoc :maintainer extras)))
+ (maintainers (or (cdr (assoc :maintainers extras))
+ (cdr (assoc :maintainer extras))))
(authors (cdr (assoc :authors extras)))
(news (and-let* (pkg-dir
((not built-in))
@@ -2828,19 +2884,21 @@ Helper function for `describe-package'."
'action 'package-keyword-button-action)
(insert " "))
(insert "\n"))
- (when maintainer
- (package--print-help-section "Maintainer")
- (package--print-email-button maintainer))
- (when authors
+ (when maintainers
+ (unless (proper-list-p maintainers)
+ (setq maintainers (list maintainers)))
(package--print-help-section
- (if (= (length authors) 1)
- "Author"
- "Authors"))
- (package--print-email-button (pop authors))
- ;; If there's more than one author, indent the rest correctly.
- (dolist (name authors)
- (insert (make-string 13 ?\s))
- (package--print-email-button name)))
+ (if (cdr maintainers) "Maintainers" "Maintainer"))
+ (dolist (maintainer maintainers)
+ (when (bolp)
+ (insert (make-string 13 ?\s)))
+ (package--print-email-button maintainer)))
+ (when authors
+ (package--print-help-section (if (cdr authors) "Authors" "Author"))
+ (dolist (author authors)
+ (when (bolp)
+ (insert (make-string 13 ?\s)))
+ (package--print-email-button author)))
(let* ((all-pkgs (append (cdr (assq name package-alist))
(cdr (assq name package-archive-contents))
(let ((bi (assq name package--builtins)))
@@ -3083,8 +3141,7 @@ The most useful commands here are:
`[("Package" ,package-name-column-width package-menu--name-predicate)
("Version" ,package-version-column-width
package-menu--version-predicate)
("Status" ,package-status-column-width
package-menu--status-predicate)
- ,@(if (cdr package-archives)
- `(("Archive" ,package-archive-column-width
package-menu--archive-predicate)))
+ ("Archive" ,package-archive-column-width
package-menu--archive-predicate)
("Description" 0 package-menu--description-predicate)])
(setq tabulated-list-padding 2)
(setq tabulated-list-sort-key (cons "Status" nil))
@@ -3260,6 +3317,18 @@ Values can be interactively added to this list by typing
:version "25.1"
:type '(repeat (regexp :tag "Hide packages with name matching")))
+(defcustom package-menu-use-current-if-no-marks t
+ "Whether \\<package-menu-mode-map>\\[package-menu-execute] in package menu
operates on current package if none are marked.
+
+If non-nil, and no packages are marked for installation or
+deletion, \\<package-menu-mode-map>\\[package-menu-execute] will operate on
the current package at point,
+see `package-menu-execute' for details.
+The default is t. Set to nil to get back the original behavior
+of having `package-menu-execute' signal an error when no packages
+are marked for installation or deletion."
+ :version "29.1"
+ :type 'boolean)
+
(defun package-menu--refresh (&optional packages keywords)
"Re-populate the `tabulated-list-entries'.
PACKAGES should be nil or t, which means to display all known packages.
@@ -3512,9 +3581,8 @@ Return (PKG-DESC [NAME VERSION STATUS DOC])."
(package-desc-version pkg)))
'font-lock-face face)
,(propertize status 'font-lock-face face)
- ,@(if (cdr package-archives)
- (list (propertize (or (package-desc-archive pkg) "")
- 'font-lock-face face)))
+ ,(propertize (or (package-desc-archive pkg) "")
+ 'font-lock-face face)
,(propertize (package-desc-summary pkg)
'font-lock-face 'package-description)])))
@@ -3544,7 +3612,8 @@ The regexp is added to the list in the user option
`package-hidden-regexps' and saved for future sessions.
To unhide a package, type
-`\\[customize-variable] RET package-hidden-regexps'.
+`\\[customize-variable] RET package-hidden-regexps', and then modify
+the regexp such that it no longer matches the package's name.
Type \\[package-menu-toggle-hiding] to toggle package hiding."
(declare (interactive-only "change `package-hidden-regexps' instead."))
@@ -3571,7 +3640,9 @@ Type \\[package-menu-toggle-hiding] to toggle package
hiding."
(defun package-menu-describe-package (&optional button)
"Describe the current package.
-If optional arg BUTTON is non-nil, describe its associated package."
+The current package is the package at point.
+If optional arg BUTTON is non-nil, describe its associated
+package(s); this is always nil in interactive invocations."
(interactive nil package-menu-mode)
(let ((pkg-desc (if button (button-get button 'package-desc)
(tabulated-list-get-id))))
@@ -3581,7 +3652,8 @@ If optional arg BUTTON is non-nil, describe its
associated package."
;; fixme numeric argument
(defun package-menu-mark-delete (&optional _num)
- "Mark a package for deletion and move to the next line."
+ "Mark the current package for deletion and move to the next line.
+The current package is the package at point."
(interactive "p" package-menu-mode)
(package--ensure-package-menu-mode)
(if (member (package-menu-get-status)
@@ -3590,7 +3662,8 @@ If optional arg BUTTON is non-nil, describe its
associated package."
(forward-line)))
(defun package-menu-mark-install (&optional _num)
- "Mark a package for installation and move to the next line."
+ "Mark the current package for installation and move to the next line.
+The current package is the package at point."
(interactive "p" package-menu-mode)
(package--ensure-package-menu-mode)
(if (member (package-menu-get-status) '("available" "avail-obso" "new"
"dependency"))
@@ -3598,13 +3671,14 @@ If optional arg BUTTON is non-nil, describe its
associated package."
(forward-line)))
(defun package-menu-mark-unmark (&optional _num)
- "Clear any marks on a package and move to the next line."
+ "Clear any marks on the current package and move to the next line.
+The current package is the package at point."
(interactive "p" package-menu-mode)
(package--ensure-package-menu-mode)
(tabulated-list-put-tag " " t))
(defun package-menu-backup-unmark ()
- "Back up one line and clear any marks on that package."
+ "Back up one line and clear any marks on that line's package."
(interactive nil package-menu-mode)
(package--ensure-package-menu-mode)
(forward-line -1)
@@ -3642,15 +3716,15 @@ If optional arg BUTTON is non-nil, describe its
associated package."
(package--prettify-quick-help-key (cons desc 0))))
(defun package-menu-quick-help ()
- "Show short key binding help for `package-menu-mode'.
-The full list of keys can be viewed with \\[describe-mode]."
+ "Show short help for key bindings in `package-menu-mode'.
+You can view the full list of keys with \\[describe-mode]."
(interactive nil package-menu-mode)
(package--ensure-package-menu-mode)
(message (mapconcat #'package--prettify-quick-help-key
package--quick-help-keys "\n")))
(defun package-menu-get-status ()
- "Return status text of package at point in Package Menu."
+ "Return status description of package at point in Package Menu."
(package--ensure-package-menu-mode)
(let* ((id (tabulated-list-get-id))
(entry (and id (assoc id tabulated-list-entries))))
@@ -3679,15 +3753,15 @@ consideration."
(defun package-menu--find-upgrades ()
"In Package Menu, return an alist of packages that can be upgraded.
The alist has the same form as `package-alist', namely a list
-of (PKG . DESCS), but where DESCS is the `package-desc' object
-corresponding to the newer version."
+of elements of the form (PKG . DESCS), but where DESCS is the `package-desc'
+object corresponding to the newer version."
(let (installed available upgrades)
;; Build list of installed/available packages in this buffer.
(dolist (entry tabulated-list-entries)
;; ENTRY is (PKG-DESC [NAME VERSION STATUS DOC])
(let ((pkg-desc (car entry))
(status (aref (cadr entry) 2)))
- (cond ((member status '("installed" "dependency" "unsigned"
"external"))
+ (cond ((member status '("installed" "dependency" "unsigned" "external"
"built-in"))
(push pkg-desc installed))
((member status '("available" "new"))
(setq available (package--append-to-alist pkg-desc
available))))))
@@ -3698,6 +3772,8 @@ corresponding to the newer version."
(and avail-pkg
(version-list-< (package-desc-priority-version pkg-desc)
(package-desc-priority-version avail-pkg))
+ (or (not (package--active-built-in-p pkg-desc))
+ package-install-upgrade-built-in)
(push (cons name avail-pkg) upgrades))))
upgrades))
@@ -3729,10 +3805,10 @@ Implementation of `package-menu-mark-upgrades'."
(defun package-menu-mark-upgrades ()
"Mark all upgradable packages in the Package Menu.
-For each installed package with a newer version available, place
-an (I)nstall flag on the available version and a (D)elete flag on
-the installed version. A subsequent \\[package-menu-execute]
-call will upgrade the package.
+For each installed package for which a newer version is available,
+place an (I)nstall flag on the available version and a (D)elete flag
+on the installed version. A subsequent \\[package-menu-execute] command will
upgrade
+the marked packages.
If there's an async refresh operation in progress, the flags will
be placed as part of `package-menu--post-refresh' instead of
@@ -3851,17 +3927,19 @@ packages list, respectively."
(package--save-selected-packages package-selected-packages)))
(defun package-menu-execute (&optional noquery)
- "Perform marked Package Menu actions.
+ "Perform Package Menu actions on marked packages.
Packages marked for installation are downloaded and installed,
packages marked for deletion are removed, and packages marked for
upgrading are downloaded and upgraded.
If no packages are marked, the action taken depends on the state
-of the package under point. If it's not already installed, this
-command will install the package, and if it's installed, it will
-delete the package.
+of the current package, the one at point. If it's not already
+installed, this command will install the package; if it's installed,
+the command will delete the package.
-Optional argument NOQUERY non-nil means do not ask the user to confirm."
+Optional argument NOQUERY non-nil means do not ask the user to
+confirm the installations/deletions; this is always nil in interactive
+invocations."
(interactive nil package-menu-mode)
(package--ensure-package-menu-mode)
(let (install-list delete-list cmd pkg-desc)
@@ -3880,7 +3958,8 @@ Optional argument NOQUERY non-nil means do not ask the
user to confirm."
;; Nothing marked.
(unless (or delete-list install-list)
;; Not on a package line.
- (unless (tabulated-list-get-id)
+ (unless (and (tabulated-list-get-id)
+ package-menu-use-current-if-no-marks)
(user-error "No operations specified"))
(let* ((id (tabulated-list-get-id))
(status (package-menu-get-status)))
@@ -4112,13 +4191,12 @@ the header line of the first column."
(defun package-menu-filter-by-archive (archive)
"Filter the \"*Packages*\" buffer by ARCHIVE.
Display only packages from package archive ARCHIVE.
+ARCHIVE can be the name of a single archive (a string), or
+a list of archive names. If ARCHIVE is nil or an empty
+string, show all packages.
-When called interactively, prompt for ARCHIVE, which can be a
-comma-separated string. If ARCHIVE is empty, show all packages.
-
-When called from Lisp, ARCHIVE can be a string or a list of
-strings. If ARCHIVE is nil or the empty string, show all
-packages."
+When called interactively, prompt for ARCHIVE. To specify
+several archives, type their names separated by commas."
(interactive (list (completing-read-multiple
"Filter by archive (comma separated): "
(mapcar #'car package-archives)))
@@ -4134,9 +4212,9 @@ packages."
(concat "archive:" (string-join archives ",")))))
(defun package-menu-filter-by-description (description)
- "Filter the \"*Packages*\" buffer by DESCRIPTION regexp.
-Display only packages with a description that matches regexp
-DESCRIPTION.
+ "Filter the \"*Packages*\" buffer by the regexp DESCRIPTION.
+Display only packages whose description matches the regexp
+given as DESCRIPTION.
When called interactively, prompt for DESCRIPTION.
@@ -4153,14 +4231,16 @@ If DESCRIPTION is nil or the empty string, show all
packages."
(defun package-menu-filter-by-keyword (keyword)
"Filter the \"*Packages*\" buffer by KEYWORD.
-Display only packages with specified KEYWORD.
+Display only packages whose keywords match the specified KEYWORD.
+KEYWORD can be a string or a list of strings. If KEYWORD is nil
+or the empty string, show all packages.
-When called interactively, prompt for KEYWORD, which can be a
-comma-separated string. If KEYWORD is empty, show all packages.
+In addition to package keywords, KEYWORD can include the name(s)
+of archive(s) and the package status, such as \"available\"
+or \"built-in\" or \"obsolete\".
-When called from Lisp, KEYWORD can be a string or a list of
-strings. If KEYWORD is nil or the empty string, show all
-packages."
+When called interactively, prompt for KEYWORD. To specify several
+keywords, type them separated by commas."
(interactive (list (completing-read-multiple
"Keywords (comma separated): "
(package-all-keywords)))
@@ -4178,8 +4258,8 @@ packages."
'package-menu-filter #'package-menu-filter-by-keyword "27.1")
(defun package-menu-filter-by-name-or-description (name-or-description)
- "Filter the \"*Packages*\" buffer by NAME-OR-DESCRIPTION regexp.
-Display only packages with a name-or-description that matches regexp
+ "Filter the \"*Packages*\" buffer by the regexp NAME-OR-DESCRIPTION.
+Display only packages whose name or description matches the regexp
NAME-OR-DESCRIPTION.
When called interactively, prompt for NAME-OR-DESCRIPTION.
@@ -4200,8 +4280,8 @@ packages."
(format "name-or-desc:%s" name-or-description))))
(defun package-menu-filter-by-name (name)
- "Filter the \"*Packages*\" buffer by NAME regexp.
-Display only packages with name that matches regexp NAME.
+ "Filter the \"*Packages*\" buffer by the regexp NAME.
+Display only packages whose name matches the regexp NAME.
When called interactively, prompt for NAME.
@@ -4219,13 +4299,11 @@ If NAME is nil or the empty string, show all packages."
(defun package-menu-filter-by-status (status)
"Filter the \"*Packages*\" buffer by STATUS.
Display only packages with specified STATUS.
+STATUS can be a single status, a string, or a list of strings.
+If STATUS is nil or the empty string, show all packages.
-When called interactively, prompt for STATUS, which can be a
-comma-separated string. If STATUS is empty, show all packages.
-
-When called from Lisp, STATUS can be a string or a list of
-strings. If STATUS is nil or the empty string, show all
-packages."
+When called interactively, prompt for STATUS. To specify
+several possible status values, type them seperated by commas."
(interactive (list (completing-read "Filter by status: "
'("avail-obso"
"available"
@@ -4254,12 +4332,12 @@ packages."
(defun package-menu-filter-by-version (version predicate)
"Filter the \"*Packages*\" buffer by VERSION and PREDICATE.
-Display only packages with a matching version.
+Display only packages whose version satisfies the condition
+defined by VERSION and PREDICATE.
-When called interactively, prompt for one of the qualifiers `<',
-`>' or `=', and a package version. Show only packages that has a
-lower (`<'), equal (`=') or higher (`>') version than the
-specified one.
+When called interactively, prompt for one of the comparison operators
+`<', `>' or `=', and for a version. Show only packages whose version
+is lower (`<'), equal (`=') or higher (`>') than the specified VERSION.
When called from Lisp, VERSION should be a version string and
PREDICATE should be the symbol `=', `<' or `>'.
@@ -4297,7 +4375,8 @@ If VERSION is nil or the empty string, show all packages."
(format "versions:%s%s" predicate version)))))
(defun package-menu-filter-marked ()
- "Filter \"*Packages*\" buffer by non-empty upgrade mark.
+ "Filter \"*Packages*\" buffer by non-empty mark.
+Show only the packages that have been marked for installation or deletion.
Unlike other filters, this leaves the marks intact."
(interactive nil package-menu-mode)
(package--ensure-package-menu-mode)
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index fd9fbbe25a4..39325a3c35e 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -154,6 +154,7 @@ usually more efficient than that of a simplified version:
"Return the depth of REGEXP.
This means the number of non-shy regexp grouping constructs
\(parenthesized expressions) in REGEXP."
+ (declare (pure t) (side-effect-free t))
(save-match-data
;; Hack to signal an error if REGEXP does not have balanced parentheses.
(string-match regexp "")
@@ -270,6 +271,7 @@ Merges keywords to avoid backtracking in Emacs's regexp
matcher."
CHARS should be a list of characters.
If CHARS is the empty list, the return value is a regexp that
never matches anything."
+ (declare (pure t) (side-effect-free t))
;; The basic idea is to find character ranges. Also we take care in the
;; position of character set meta characters in the character set regexp.
;;
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index 46f61c26bc4..e82490ffee5 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -1144,6 +1144,7 @@ If NO-GROUP is non-nil, don't bracket the result in a
non-capturing
group.
For extending the `rx' notation in FORM, use `rx-define' or `rx-let-eval'."
+ (declare (important-return-value t))
(let* ((item (rx--translate form))
(exprs (if no-group
(car item)
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index c49960c2ee6..8c44a4fb0a0 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -137,11 +137,11 @@ A FUNC form can have any number of `:no-eval' (or
`:no-value'),
:eval (assoc-string "foo" '(("foo" . "bar") ("zot" "baz"))))
"Manipulating Alists"
(assoc-delete-all
- :eval (assoc-delete-all "foo" '(("foo" . "bar") ("zot" . "baz")) #'equal))
+ :eval (assoc-delete-all "b" (list '("a" . a) '("b" . b) '("b" . c))))
(assq-delete-all
- :eval (assq-delete-all 'foo '((foo . bar) (zot . baz))))
+ :eval (assq-delete-all 2 (list '(1 . a) '(2 . b) '(2 . c))))
(rassq-delete-all
- :eval (rassq-delete-all 'bar '((foo . bar) (zot . baz))))
+ :eval (rassq-delete-all 'b (list '(1 . a) '(2 . b) '(2 . c))))
(alist-get
:eval (let ((foo '((bar . baz))))
(setf (alist-get 'bar foo) 'zot)
@@ -705,10 +705,12 @@ A FUNC form can have any number of `:no-eval' (or
`:no-value'),
:eval (assoc-default 2 '((1 . a) (2 . b) #'=)))
(copy-alist
:eval (copy-alist '((1 . a) (2 . b))))
- (assq-delete-all
- :eval (assq-delete-all 2 (list '(1 . a) '(2 . b) '(2 . c))))
(assoc-delete-all
:eval (assoc-delete-all "b" (list '("a" . a) '("b" . b) '("b" . c))))
+ (assq-delete-all
+ :eval (assq-delete-all 2 (list '(1 . a) '(2 . b) '(2 . c))))
+ (rassq-delete-all
+ :eval (rassq-delete-all 'b (list '(1 . a) '(2 . b) '(2 . c))))
"Property Lists"
(plist-get
:eval (plist-get '(a 1 b 2 c 3) 'b))
@@ -833,6 +835,8 @@ A FUNC form can have any number of `:no-eval' (or
`:no-value'),
(seq-subseq
:eval (seq-subseq [1 2 3 4 5] 1 3)
:eval (seq-subseq [1 2 3 4 5] 1))
+ (copy-tree
+ :eval (copy-tree [1 (2 3) [4 5]] t))
"Mapping Over Vectors"
(mapcar
:eval (mapcar #'identity [1 2 3]))
@@ -1443,45 +1447,52 @@ If SAME-WINDOW, don't pop to a new window."
(setq group (intern group)))
(unless (assq group shortdoc--groups)
(error "No such documentation group %s" group))
- (funcall (if same-window
- #'pop-to-buffer-same-window
- #'pop-to-buffer)
- (format "*Shortdoc %s*" group))
- (let ((inhibit-read-only t)
- (prev nil))
- (erase-buffer)
- (shortdoc-mode)
- (button-mode)
- (mapc
- (lambda (data)
- (cond
- ((stringp data)
- (setq prev nil)
- (unless (bobp)
- (insert "\n"))
- (insert (propertize
- (substitute-command-keys data)
- 'face 'shortdoc-heading
- 'shortdoc-section t
- 'outline-level 1))
- (insert (propertize
- "\n\n"
- 'face 'shortdoc-heading
- 'shortdoc-section t)))
- ;; There may be functions not yet defined in the data.
- ((fboundp (car data))
- (when prev
- (insert (make-separator-line)
- ;; This helps with hidden outlines (bug#53981)
- (propertize "\n" 'face '(:height 0))))
- (setq prev t)
- (shortdoc--display-function data))))
- (cdr (assq group shortdoc--groups))))
+ (let ((buf (get-buffer-create (format "*Shortdoc %s*" group))))
+ (shortdoc--insert-group-in-buffer group buf)
+ (funcall (if same-window
+ #'pop-to-buffer-same-window
+ #'pop-to-buffer)
+ buf))
(goto-char (point-min))
(when function
(text-property-search-forward 'shortdoc-function function t)
(beginning-of-line)))
+(defun shortdoc--insert-group-in-buffer (group &optional buf)
+ "Insert a short documentation summary for functions in GROUP in buffer BUF.
+BUF defaults to the current buffer if nil or omitted."
+ (with-current-buffer (or buf (current-buffer))
+ (let ((inhibit-read-only t)
+ (prev nil))
+ (erase-buffer)
+ (shortdoc-mode)
+ (button-mode)
+ (mapc
+ (lambda (data)
+ (cond
+ ((stringp data)
+ (setq prev nil)
+ (unless (bobp)
+ (insert "\n"))
+ (insert (propertize
+ (substitute-command-keys data)
+ 'face 'shortdoc-heading
+ 'shortdoc-section t
+ 'outline-level 1))
+ (insert (propertize
+ "\n\n"
+ 'face 'shortdoc-heading
+ 'shortdoc-section t)))
+ ;; There may be functions not yet defined in the data.
+ ((fboundp (car data))
+ (when prev
+ (insert (make-separator-line)
+ ;; This helps with hidden outlines (bug#53981)
+ (propertize "\n" 'face '(:height 0))))
+ (setq prev t)
+ (shortdoc--display-function data))))
+ (cdr (assq group shortdoc--groups))))))
+
;;;###autoload
(defalias 'shortdoc #'shortdoc-display-group)
@@ -1521,7 +1532,8 @@ function's documentation in the Info manual"))
"=>"))
(single-arrow (if (char-displayable-p ?→)
"→"
- "->")))
+ "->"))
+ (start-example (point)))
(cl-loop for (type value) on data by #'cddr
do
(cl-case type
@@ -1572,7 +1584,8 @@ function's documentation in the Info manual"))
(:eg-result-string
(insert " e.g. " double-arrow " ")
(princ value (current-buffer))
- (insert "\n")))))
+ (insert "\n"))))
+ (add-text-properties start-example (point) `(shortdoc-example
,function)))
;; Insert the arglist after doing the evals, in case that's pulled
;; in the function definition.
(save-excursion
@@ -1582,6 +1595,73 @@ function's documentation in the Info manual"))
(insert " " (symbol-name param)))
(add-face-text-property arglist-start (point) 'shortdoc-section t))))
+(defun shortdoc-function-examples (function)
+ "Return all shortdoc examples for FUNCTION.
+The result is an alist with items of the form (GROUP . EXAMPLES),
+where GROUP is a shortdoc group where FUNCTION appears, and
+EXAMPLES is a string with the usage examples of FUNCTION defined
+in GROUP. Return nil if FUNCTION is not a function or if it
+doesn't has any shortdoc information."
+ (let ((groups (and (symbolp function)
+ (shortdoc-function-groups function)))
+ (examples nil))
+ (mapc
+ (lambda (group)
+ (with-temp-buffer
+ (shortdoc--insert-group-in-buffer group)
+ (goto-char (point-min))
+ (let ((match (text-property-search-forward
+ 'shortdoc-example function t)))
+ (push `(,group . ,(string-trim
+ (buffer-substring-no-properties
+ (prop-match-beginning match)
+ (prop-match-end match))))
+ examples))))
+ groups)
+ examples))
+
+(defun shortdoc-help-fns-examples-function (function)
+ "Insert Emacs Lisp examples for FUNCTION into the current buffer.
+You can add this function to the `help-fns-describe-function-functions'
+hook to show examples of using FUNCTION in *Help* buffers produced
+by \\[describe-function]."
+ (let* ((examples (shortdoc-function-examples function))
+ (num-examples (length examples))
+ (times 0))
+ (dolist (example examples)
+ (when (zerop times)
+ (if (> num-examples 1)
+ (insert "\n Examples:\n\n")
+ ;; Some functions have more than one example per group.
+ ;; Count the number of arrows to know if we need to
+ ;; pluralize "Example".
+ (let* ((text (cdr example))
+ (count 0)
+ (pos 0)
+ (end (length text))
+ (double-arrow (if (char-displayable-p ?⇒)
+ " ⇒"
+ " =>"))
+ (double-arrow-example (if (char-displayable-p ?⇒)
+ " e.g. ⇒"
+ " e.g. =>"))
+ (single-arrow (if (char-displayable-p ?→)
+ " →"
+ " ->")))
+ (while (and (< pos end)
+ (or (string-match double-arrow text pos)
+ (string-match double-arrow-example text pos)
+ (string-match single-arrow text pos)))
+ (setq count (1+ count)
+ pos (match-end 0)))
+ (if (> count 1)
+ (insert "\n Examples:\n\n")
+ (insert "\n Example:\n\n")))))
+ (setq times (1+ times))
+ (insert " ")
+ (insert (cdr example))
+ (insert "\n\n"))))
+
(defun shortdoc-function-groups (function)
"Return all shortdoc groups FUNCTION appears in."
(cl-loop for group in shortdoc--groups
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 947390b3de3..a7d8f785508 100644
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -81,18 +81,22 @@ Note how the single `-' got converted into a list before
threading."
(declare (indent 0) (debug thread-first))
`(internal--thread-argument nil ,@forms))
+
(defsubst hash-table-empty-p (hash-table)
"Check whether HASH-TABLE is empty (has 0 elements)."
+ (declare (side-effect-free t))
(zerop (hash-table-count hash-table)))
(defsubst hash-table-keys (hash-table)
"Return a list of keys in HASH-TABLE."
+ (declare (side-effect-free t))
(let ((keys nil))
(maphash (lambda (k _) (push k keys)) hash-table)
keys))
(defsubst hash-table-values (hash-table)
"Return a list of values in HASH-TABLE."
+ (declare (side-effect-free t))
(let ((values nil))
(maphash (lambda (_ v) (push v values)) hash-table)
values))
@@ -149,6 +153,7 @@ carriage return."
All sequences of whitespaces in STRING are collapsed into a
single space character, and leading/trailing whitespace is
removed."
+ (declare (important-return-value t))
(let ((blank "[[:blank:]\r\n]+"))
(string-trim (replace-regexp-in-string blank " " string t t)
blank blank)))
@@ -158,6 +163,7 @@ removed."
Wrapping is done where there is whitespace. If there are
individual words in STRING that are longer than LENGTH, the
result will have lines that are longer than LENGTH."
+ (declare (important-return-value t))
(with-temp-buffer
(insert string)
(goto-char (point-min))
@@ -189,6 +195,7 @@ coding system that doesn't specify a BOM, like `utf-16le'
or `utf-16be'.
When shortening strings for display purposes,
`truncate-string-to-width' is almost always a better alternative
than this function."
+ (declare (important-return-value t))
(unless (natnump length)
(signal 'wrong-type-argument (list 'natnump length)))
(if coding-system
@@ -324,6 +331,7 @@ as the new values of the bound variables in the recursive
invocation."
;;;###autoload
(defun string-pixel-width (string)
"Return the width of STRING in pixels."
+ (declare (important-return-value t))
(if (zerop (length string))
0
;; Keeping a work buffer around is more efficient than creating a
@@ -344,6 +352,7 @@ This takes into account combining characters and grapheme
clusters:
if compositions are enabled, each sequence of characters composed
on display into a single grapheme cluster is treated as a single
indivisible unit."
+ (declare (side-effect-free t))
(let ((result nil)
(start 0)
comp)
@@ -495,6 +504,13 @@ Used by `emacs-authors-mode' and `emacs-news-mode'."
(progn (forward-line -1) (point))
(point-max)))))
+(defun eval-command-interactive-spec (command)
+ "Evaluate COMMAND's interactive form and return resultant list.
+If COMMAND has no interactive form, return nil."
+ (advice-eval-interactive-spec
+ (cadr (or (and (symbolp command) (get command 'interactive-form))
+ (interactive-form command)))))
+
(provide 'subr-x)
;;; subr-x.el ends here
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 2a37c383f81..c0aa9dd7b46 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -722,16 +722,12 @@ Vi's prefix argument will be used. Otherwise, the prefix
argument passed to
(let (viper-vi-kbd-minor-mode
viper-insert-kbd-minor-mode
viper-emacs-kbd-minor-mode)
- (unwind-protect
- (progn
- (setq com
- (key-binding (setq key (read-key-sequence nil))))
- ;; In case of binding indirection--chase definitions.
- ;; Have to do it here because we execute this command under
- ;; different keymaps, so command-execute may not do the
- ;; right thing there
- (while (vectorp com) (setq com (key-binding com))))
- nil)
+ (setq com (key-binding (setq key (read-key-sequence nil))))
+ ;; In case of binding indirection--chase definitions.
+ ;; Have to do it here because we execute this command under
+ ;; different keymaps, so command-execute may not do the
+ ;; right thing there
+ (while (vectorp com) (setq com (key-binding com)))
;; Execute command com in the original Viper state, not in state
;; `state'. Otherwise, if we switch buffers while executing the
;; escaped to command, Viper's mode vars will remain those of
@@ -1950,16 +1946,16 @@ To turn this feature off, set this variable to nil."
(if found
()
(viper-tmp-insert-at-eob " [Please complete file name]")
- (unwind-protect
- (while (not (memq cmd
- '(exit-minibuffer viper-exit-minibuffer)))
- (setq cmd
- (key-binding (setq key (read-key-sequence nil))))
- (cond ((eq cmd 'self-insert-command)
- (insert key))
- ((memq cmd '(exit-minibuffer viper-exit-minibuffer))
- nil)
- (t (command-execute cmd))))))))))
+
+ (while (not (memq cmd
+ '(exit-minibuffer viper-exit-minibuffer)))
+ (setq cmd
+ (key-binding (setq key (read-key-sequence nil))))
+ (cond ((eq cmd 'self-insert-command)
+ (insert key))
+ ((memq cmd '(exit-minibuffer viper-exit-minibuffer))
+ nil)
+ (t (command-execute cmd)))))))))
(defun viper-minibuffer-trim-tail ()
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 783c01058e2..ecbcace2dd4 100644
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -294,7 +294,8 @@
"\\|"
"bash$\\|bash.exe$"
"\\)")
- shell-file-name)))
+ shell-file-name)
+ t))
"Is the user using a unix-type shell under a non-OS?"
:type 'boolean)
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 986d1fe6bc6..c39e3cf5142 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -47,7 +47,8 @@
(defun viper-window-display-p ()
(and window-system (not (memq window-system '(tty stream pc)))))
-(defcustom viper-ms-style-os-p (memq system-type '(ms-dos windows-nt))
+(defcustom viper-ms-style-os-p
+ (not (not (memq system-type '(ms-dos windows-nt))))
"Non-nil if Emacs is running under an MS-style OS: MS-DOS, or MS-Windows."
:type 'boolean
:tag "Is it Microsoft-made OS?"
diff --git a/lisp/env.el b/lisp/env.el
index faafcb6250f..281934af054 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -76,6 +76,7 @@ If it is non-nil and not a function, references to undefined
variables are
left unchanged.
Use `$$' to insert a single dollar sign."
+ (declare (important-return-value t))
(let ((start 0))
(while (string-match env--substitute-vars-regexp string start)
(cond ((match-beginning 1)
@@ -94,6 +95,7 @@ Use `$$' to insert a single dollar sign."
string))
(defun substitute-env-in-file-name (filename)
+ (declare (important-return-value t))
(substitute-env-vars filename
;; How 'bout we lookup other tables than the env?
;; E.g. we could accept bookmark names as well!
@@ -104,6 +106,7 @@ Use `$$' to insert a single dollar sign."
(defun setenv-internal (env variable value keep-empty)
"Set VARIABLE to VALUE in ENV, adding empty entries if KEEP-EMPTY.
Changes ENV by side-effect, and returns its new value."
+ (declare (important-return-value t))
(let ((pattern (concat "\\`" (regexp-quote variable) "\\(=\\|\\'\\)"))
(case-fold-search nil)
(scan env)
diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el
index 77d896fa438..015bf910ac6 100644
--- a/lisp/epa-ks.el
+++ b/lisp/epa-ks.el
@@ -140,8 +140,8 @@ Keys are marked using `epa-ks-mark-key-to-fetch'."
(epa-ks--fetch-key id)))))
(tabulated-list-clear-all-tags))
-(defun epa-ks--query-url (query exact)
- "Return URL for QUERY.
+(defun epa-ks--query-url (query exact &optional operation)
+ "Return URL for QUERY and OPERATION (defaults to \"index\").
If EXACT is non-nil, don't accept approximate matches."
(format "https://%s/pks/lookup?%s";
(cond ((null epa-keyserver)
@@ -154,13 +154,13 @@ If EXACT is non-nil, don't accept approximate matches."
(url-build-query-string
(append `(("search" ,query)
("options" "mr")
- ("op" "index"))
+ ("op" ,(or operation "index")))
(and exact '(("exact" "on")))))))
(defun epa-ks--fetch-key (id)
"Send request to import key with specified ID."
(url-retrieve
- (epa-ks--query-url (concat "0x" (url-hexify-string id)) t)
+ (epa-ks--query-url (concat "0x" (url-hexify-string id)) t "get")
(lambda (status)
(when (plist-get status :error)
(error "Request failed: %s"
@@ -236,7 +236,7 @@ enough, since keyservers have strict timeout settings."
(erase-buffer))
(epa-ks-search-mode))
(url-retrieve
- (epa-ks--query-url query exact)
+ (epa-ks--query-url query exact "index")
(lambda (status)
(when (plist-get status :error)
(when buf
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index 567443f5329..2de24e7cb25 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -102,11 +102,12 @@
(require 'erc-common)
(defvar erc--target)
-(defvar erc-auto-query)
+(defvar erc--user-from-nick-function)
(defvar erc-channel-list)
(defvar erc-channel-users)
(defvar erc-default-nicks)
(defvar erc-default-recipients)
+(defvar erc-ensure-target-buffer-on-privmsg)
(defvar erc-format-nick-function)
(defvar erc-format-query-as-channel-p)
(defvar erc-hide-prompt)
@@ -123,6 +124,8 @@
(defvar erc-nick-change-attempt-count)
(defvar erc-prompt-for-channel-key)
(defvar erc-prompt-hidden)
+(defvar erc-receive-query-display)
+(defvar erc-receive-query-display-defer)
(defvar erc-reuse-buffers)
(defvar erc-verbose-server-ping)
(defvar erc-whowas-on-nosuchnick)
@@ -297,6 +300,12 @@ function `erc-server-process-alive' instead.")
(defvar-local erc-server-reconnect-count 0
"Number of times we have failed to reconnect to the current server.")
+(defvar-local erc--server-reconnect-display-timer nil
+ "Timer that resets `erc--server-last-reconnect-count' to zero.
+Becomes non-nil in all server buffers when an IRC connection is
+first \"established\" and carries out its duties
+`erc-reconnect-display-timeout' seconds later.")
+
(defvar-local erc--server-last-reconnect-count 0
"Snapshot of reconnect count when the connection was established.")
@@ -415,8 +424,12 @@ This only has an effect if `erc-server-auto-reconnect' is
non-nil."
(defcustom erc-server-reconnect-timeout 1
"Number of seconds to wait between successive reconnect attempts.
-
-If a key is pressed while ERC is waiting, it will stop waiting."
+If this value is too low, servers may reject your initial nick
+request upon reconnecting because they haven't yet noticed that
+your previous connection is dead. If this happens, try setting
+this value to 120 or greater and/or exploring the option
+`erc-nickname-in-use-functions', which may provide a more
+proactive means of handling this situation on some servers."
:type 'number)
(defcustom erc-server-reconnect-function 'erc-server-delayed-reconnect
@@ -427,6 +440,7 @@ dialing. Use `erc-schedule-reconnect' to instead try again
later
and optionally alter the attempts tally."
:package-version '(ERC . "5.5")
:type '(choice (function-item erc-server-delayed-reconnect)
+ (function-item erc-server-delayed-check-reconnect)
function))
(defcustom erc-split-line-length 440
@@ -559,6 +573,47 @@ If this is set to nil, never try to reconnect."
;;;; Helper functions
+(defvar erc--reject-unbreakable-lines nil
+ "Signal an error when a line exceeds `erc-split-line-length'.
+Sending such lines and hoping for the best is no longer supported
+in ERC 5.6. This internal var exists as a possibly temporary
+escape hatch for inhibiting their transmission.")
+
+(defun erc--split-line (longline)
+ (let* ((coding (erc-coding-system-for-target nil))
+ (original-window-buf (window-buffer (selected-window)))
+ out)
+ (when (consp coding)
+ (setq coding (car coding)))
+ (setq coding (coding-system-change-eol-conversion coding 'unix))
+ (unwind-protect
+ (with-temp-buffer
+ (set-window-buffer (selected-window) (current-buffer))
+ (insert longline)
+ (goto-char (point-min))
+ (while (not (eobp))
+ (let ((upper (filepos-to-bufferpos erc-split-line-length
+ 'exact coding)))
+ (goto-char (or upper (point-max)))
+ (unless (eobp)
+ (skip-chars-backward "^ \t"))
+ (when (bobp)
+ (when erc--reject-unbreakable-lines
+ (user-error
+ (substitute-command-keys
+ (concat "Unbreakable line encountered "
+ "(Recover input with \\[erc-previous-command])"))))
+ (goto-char upper))
+ (when-let ((cmp (find-composition (point) (1+ (point)))))
+ (if (= (car cmp) (point-min))
+ (goto-char (nth 1 cmp))
+ (goto-char (car cmp)))))
+ (cl-assert (/= (point-min) (point)))
+ (push (buffer-substring-no-properties (point-min) (point)) out)
+ (delete-region (point-min) (point)))
+ (or (nreverse out) (list "")))
+ (set-window-buffer (selected-window) original-window-buf))))
+
;; From Circe
(defun erc-split-line (longline)
"Return a list of lines which are not too long for IRC.
@@ -658,6 +713,30 @@ The current buffer is given by BUFFER."
(run-hooks 'erc--server-post-connect-hook)
(erc-login))
+(defvar erc--server-connect-function #'erc--server-propagate-failed-connection
+ "Function called one second after creating a server process.
+Called with the newly created process just before the opening IRC
+protocol exchange.")
+
+(defun erc--server-propagate-failed-connection (process)
+ "Ensure the PROCESS sentinel runs at least once on early failure.
+Act as a watchdog timer to force `erc-process-sentinel' and its
+finalizers, like `erc-disconnected-hook', to run when PROCESS has
+a status of `failed' after one second. But only do so when its
+error data is something ERC recognizes. Print an explanation to
+the server buffer in any case."
+ (when (eq (process-status process) 'failed)
+ (erc-display-message
+ nil 'error (process-buffer process)
+ (format "Process exit status: %S" (process-exit-status process)))
+ (pcase (process-exit-status process)
+ (111
+ (erc-process-sentinel process "failed with code 111\n"))
+ (`(file-error . ,_)
+ (erc-process-sentinel process "failed with code -523\n"))
+ ((rx "tls" (+ nonl) "failed")
+ (erc-process-sentinel process "failed with code -525\n")))))
+
(defvar erc--server-connect-dumb-ipv6-regexp
;; Not for validation (gives false positives).
(rx bot "[" (group (+ (any xdigit digit ":.")) (? "%" (+ alnum))) "]" eot))
@@ -710,7 +789,9 @@ TLS (see `erc-session-client-certificate' for more
details)."
;; MOTD line)
(if (eq (process-status process) 'connect)
;; waiting for a non-blocking connect - keep the user informed
- (erc-display-message nil nil buffer "Opening connection..\n")
+ (progn
+ (erc-display-message nil nil buffer "Opening connection..\n")
+ (run-at-time 1 nil erc--server-connect-function process))
(message "%s...done" msg)
(erc--register-connection))))
@@ -744,6 +825,78 @@ Make sure you are in an ERC buffer when running this."
(with-current-buffer buffer
(erc-server-reconnect))))
+(defvar-local erc--server-reconnect-timeout nil)
+(defvar-local erc--server-reconnect-timeout-check 10)
+(defvar-local erc--server-reconnect-timeout-scale-function
+ #'erc--server-reconnect-timeout-double)
+
+(defun erc--server-reconnect-timeout-double (existing)
+ "Double EXISTING timeout, but cap it at 5 minutes."
+ (min 300 (* existing 2)))
+
+;; This may appear to hang at various places. It's assumed that when
+;; *Messages* contains "Waiting for socket ..." or similar, progress
+;; will be made eventually.
+
+(defun erc-server-delayed-check-reconnect (buffer)
+ "Wait for internet connectivity before trying to reconnect.
+Expect BUFFER to be the server buffer for the current connection."
+ (when (buffer-live-p buffer)
+ (with-current-buffer buffer
+ (setq erc--server-reconnect-timeout
+ (funcall erc--server-reconnect-timeout-scale-function
+ (or erc--server-reconnect-timeout
+ erc-server-reconnect-timeout)))
+ (let* ((reschedule (lambda (proc)
+ (when (buffer-live-p buffer)
+ (with-current-buffer buffer
+ (let ((erc-server-reconnect-timeout
+ erc--server-reconnect-timeout))
+ (delete-process proc)
+ (erc-display-message nil 'error buffer
+ "Nobody home...")
+ (erc-schedule-reconnect buffer 0))))))
+ (conchk-exp (time-add erc--server-reconnect-timeout-check
+ (current-time)))
+ (conchk-timer nil)
+ (conchk (lambda (proc)
+ (let ((status (process-status proc))
+ (xprdp (time-less-p conchk-exp (current-time))))
+ (when (or (not (eq 'connect status)) xprdp)
+ (cancel-timer conchk-timer))
+ (when (buffer-live-p buffer)
+ (cond (xprdp (erc-display-message
+ nil 'error buffer
+ "Timed out while dialing...")
+ (delete-process proc)
+ (funcall reschedule proc))
+ ((eq 'failed status)
+ (funcall reschedule proc)))))))
+ (sentinel (lambda (proc event)
+ (pcase event
+ ("open\n"
+ (run-at-time nil nil #'send-string proc
+ (format "PING %d\r\n"
+ (time-convert nil 'integer))))
+ ((or "connection broken by remote peer\n"
+ (rx bot "failed"))
+ (funcall reschedule proc)))))
+ (filter (lambda (proc _)
+ (delete-process proc)
+ (with-current-buffer buffer
+ (setq erc--server-reconnect-timeout nil))
+ (run-at-time nil nil #'erc-server-delayed-reconnect
+ buffer))))
+ (condition-case _
+ (let ((proc (funcall erc-session-connector
+ "*erc-connectivity-check*" nil
+ erc-session-server erc-session-port
+ :nowait t)))
+ (setq conchk-timer (run-at-time 1 1 conchk proc))
+ (set-process-filter proc filter)
+ (set-process-sentinel proc sentinel))
+ (file-error (funcall reschedule nil)))))))
+
(defun erc-server-filter-function (process string)
"The process filter for the ERC server."
(with-current-buffer (process-buffer process)
@@ -798,6 +951,22 @@ EVENT is the message received from the closed connection
process."
erc-server-reconnecting)
(erc--server-reconnect-p event)))
+(defun erc--server-last-reconnect-on-disconnect (&rest _)
+ (remove-hook 'erc-disconnected-hook
+ #'erc--server-last-reconnect-on-disconnect t)
+ (erc--server-last-reconnect-display-reset (current-buffer)))
+
+(defun erc--server-last-reconnect-display-reset (buffer)
+ "Deactivate `erc-reconnect-display'."
+ (when (buffer-live-p buffer)
+ (with-current-buffer buffer
+ (when erc--server-reconnect-display-timer
+ (cancel-timer erc--server-reconnect-display-timer)
+ (remove-hook 'erc-disconnected-hook
+ #'erc--server-last-reconnect-display-reset t)
+ (setq erc--server-reconnect-display-timer nil
+ erc--server-last-reconnect-count 0)))))
+
(defconst erc--mode-line-process-reconnecting
'(:eval (erc-with-server-buffer
(and erc--server-reconnect-timer
@@ -823,11 +992,16 @@ When `erc-server-reconnect-attempts' is a number,
increment
`erc-server-reconnect-count' by INCR unconditionally."
(let ((count (and (integerp erc-server-reconnect-attempts)
(- erc-server-reconnect-attempts
- (cl-incf erc-server-reconnect-count (or incr 1))))))
- (erc-display-message nil 'error (current-buffer) 'reconnecting
+ (cl-incf erc-server-reconnect-count (or incr 1)))))
+ (proc (buffer-local-value 'erc-server-process buffer)))
+ (erc-display-message nil 'error buffer 'reconnecting
?m erc-server-reconnect-timeout
?i (if count erc-server-reconnect-count "N")
?n (if count erc-server-reconnect-attempts "A"))
+ (set-process-sentinel proc #'ignore)
+ (set-process-filter proc nil)
+ (delete-process proc)
+ (erc-update-mode-line)
(setq erc-server-reconnecting nil
erc--server-reconnect-timer
(run-at-time erc-server-reconnect-timeout nil
@@ -1327,8 +1501,6 @@ Finds hooks by looking in the `erc-server-responses' hash
table."
(erc-with-server-buffer
(run-hook-with-args 'erc-timer-hook (erc-current-time)))))
-(add-hook 'erc-default-server-functions #'erc-handle-unknown-server-response)
-
(defun erc-handle-unknown-server-response (proc parsed)
"Display unknown server response's message."
(let ((line (concat (erc-response.sender parsed)
@@ -1723,11 +1895,16 @@ add things to `%s' instead."
(unless (or buffer noticep (string-empty-p tgt) (eq ?$ (aref tgt 0))
(erc-is-message-ctcp-and-not-action-p msg))
(if privp
- (when erc-auto-query
- (let ((erc-join-buffer erc-auto-query))
- (setq buffer (erc--open-target nick))))
- ;; A channel buffer has been killed but is still joined
- (setq buffer (erc--open-target tgt))))
+ (when-let ((erc-join-buffer
+ (or (and (not erc-receive-query-display-defer)
+ erc-receive-query-display)
+ (and erc-ensure-target-buffer-on-privmsg
+ (or erc-receive-query-display
+ erc-join-buffer)))))
+ (setq buffer (erc--open-target nick)))
+ ;; A channel buffer has been killed but is still joined.
+ (when erc-ensure-target-buffer-on-privmsg
+ (setq buffer (erc--open-target tgt)))))
(when buffer
(with-current-buffer buffer
(when privp (erc--unhide-prompt))
@@ -1736,7 +1913,8 @@ add things to `%s' instead."
;; at this point.
(erc-update-channel-member (if privp nick tgt) nick nick
privp nil nil nil nil nil host login
nil nil t)
- (let ((cdata (erc-get-channel-user nick)))
+ (let ((cdata (funcall erc--user-from-nick-function
+ (erc-downcase nick) sndr parsed)))
(setq fnick (funcall erc-format-nick-function
(car cdata) (cdr cdata))))))
(cond
@@ -1876,7 +2054,7 @@ ambiguous and only useful for tokens supporting a single
primitive value."
(if-let* ((table (or erc--isupport-params
(erc-with-server-buffer erc--isupport-params)))
- (value (erc-compat--with-memoization (gethash key table)
+ (value (with-memoization (gethash key table)
(when-let ((v (assoc (symbol-name key)
erc-server-parameters)))
(if (cdr v)
@@ -2236,6 +2414,11 @@ See `erc-display-server-message'." nil
(erc-display-message parsed '(notice error) 'active
's401 ?n nick/channel)))
+(define-erc-response-handler (402)
+ "No such server." nil
+ (erc-display-message parsed '(notice error) 'active
+ 's402 ?c (cadr (erc-response.command-args parsed))))
+
(define-erc-response-handler (403)
"No such channel." nil
(erc-display-message parsed '(notice error) 'active
@@ -2383,7 +2566,7 @@ See `erc-display-error-notice'." nil
;; (define-erc-response-handler (323 364 365 381 382 392 393 394 395
;; 200 201 202 203 204 205 206 208 209 211 212
213
;; 214 215 216 217 218 219 241 242 243 244 249
261
-;; 262 302 342 351 402 407 409 411 413 414 415
+;; 262 302 342 351 407 409 411 413 414 415
;; 423 424 436 441 443 444 467 471 472 473 KILL)
;; nil nil
;; (ignore proc parsed))
diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el
index c28dddefa0e..33b93ff6744 100644
--- a/lisp/erc/erc-button.el
+++ b/lisp/erc/erc-button.el
@@ -52,14 +52,15 @@
;;;###autoload(autoload 'erc-button-mode "erc-button" nil t)
(define-erc-module button nil
"This mode buttonizes all messages according to `erc-button-alist'."
- ((add-hook 'erc-insert-modify-hook #'erc-button-add-buttons 'append)
+ ((erc-button--check-nicknames-entry)
+ (add-hook 'erc-insert-modify-hook #'erc-button-add-buttons 'append)
(add-hook 'erc-send-modify-hook #'erc-button-add-buttons 'append)
- (add-hook 'erc-complete-functions #'erc-button-next-function)
- (add-hook 'erc-mode-hook #'erc-button-setup))
+ (add-hook 'erc--tab-functions #'erc-button-next)
+ (erc--modify-local-map t "<backtab>" #'erc-button-previous))
((remove-hook 'erc-insert-modify-hook #'erc-button-add-buttons)
(remove-hook 'erc-send-modify-hook #'erc-button-add-buttons)
- (remove-hook 'erc-complete-functions #'erc-button-next-function)
- (remove-hook 'erc-mode-hook #'erc-button-setup)))
+ (remove-hook 'erc--tab-functions #'erc-button-next)
+ (erc--modify-local-map nil "<backtab>" #'erc-button-previous)))
;;; Variables
@@ -127,13 +128,13 @@ longer than `erc-fill-column'."
;; things hard to maintain.
'((nicknames 0 erc-button-buttonize-nicks erc-nick-popup 0)
(erc-button-url-regexp 0 t browse-url-button-open-url 0)
- ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url-button-open-url 1)
+ ;; ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url-button-open-url 1)
;;; ("(\\(\\([^~\n \t@][^\n \t@]*\\)@\\([a-zA-Z0-9.:-]+\\)\\)" 1 t finger 2 3)
;; emacs internal
("[`‘]\\([a-zA-Z][-a-zA-Z_0-9!*<=>+]+\\)['’]"
1 t erc-button-describe-symbol 1)
;; pseudo links
- ("\\bInfo:[\"]\\([^\"]+\\)[\"]" 0 t Info-goto-node 1)
+ ("\\(?:\\bInfo: ?\\|(info \\)[\"]\\(([^\"]+\\)[\"])?" 0 t info 1)
("\\b\\(Ward\\|Wiki\\|WardsWiki\\|TheWiki\\):\\([A-Z][a-z]+\\([A-Z][a-z]+\\)+\\)"
0 t (lambda (page)
(browse-url (concat "http://c2.com/cgi-bin/wiki?"; page)))
@@ -165,8 +166,14 @@ REGEXP is the string matching text around the button or a
symbol
BUTTON is the number of the regexp grouping actually matching the
button. This is ignored if REGEXP is `nicknames'.
-FORM is a Lisp expression which must eval to true for the button to
- be added.
+FORM is either a boolean or a special variable whose value must
+ be non-nil for the button to be added. When REGEXP is the
+ special symbol `nicknames', FORM must be the symbol
+ `erc-button-buttonize-nicks'. Anything else is deprecated.
+ For all other entries, FORM can also be a function to call in
+ place of `erc-button-add-button' with the exact same arguments.
+ When FORM is also a special variable, ERC disregards the
+ variable and calls the function.
CALLBACK is the function to call when the user push this button.
CALLBACK can also be a symbol. Its variable value will be used
@@ -176,7 +183,7 @@ PAR is a number of a regexp grouping whose text will be
passed to
CALLBACK. There can be several PAR arguments. If REGEXP is
`nicknames', these are ignored, and CALLBACK will be called with
the nickname matched as the argument."
- :package-version '(ERC . "5.5")
+ :package-version '(ERC . "5.6") ; FIXME sync on release
:type '(repeat
(list :tag "Button"
(choice :tag "Matches"
@@ -233,6 +240,8 @@ constituents.")
"Internal variable used to keep track of whether we've added the
global-level ERC button keys yet.")
+;; Maybe deprecate this function and `erc-button-keys-added' if they
+;; continue to go unused for a another version (currently 5.6).
(defun erc-button-setup ()
"Add ERC mode-level button movement keys. This is only done once."
;; Add keys.
@@ -275,35 +284,186 @@ specified by `erc-button-alist'."
(concat "\\<" (regexp-quote (car elem)) "\\>")
entry)))))))))))
+(defun erc-button--maybe-warn-arbitrary-sexp (form)
+ (cl-assert (not (booleanp form))) ; covered by caller
+ ;; If a special-variable is also a function, favor the function.
+ (cond ((functionp form) form)
+ ((and (symbolp form) (special-variable-p form)) (symbol-value form))
+ (t (unless (get 'erc-button--maybe-warn-arbitrary-sexp
+ 'warned-arbitrary-sexp)
+ (put 'erc-button--maybe-warn-arbitrary-sexp
+ 'warned-arbitrary-sexp t)
+ (lwarn 'erc :warning (concat "Arbitrary sexps for the third FORM"
+ " slot of `erc-button-alist' entries"
+ " have been deprecated.")))
+ (eval form t))))
+
+(defun erc-button--check-nicknames-entry ()
+ ;; This helper exists because the module is defined after its options.
+ (when (eq major-mode 'erc-mode)
+ (unless (eq (nth 1 (alist-get 'nicknames erc-button-alist))
+ 'erc-button-buttonize-nicks)
+ (erc-button--display-error-notice-with-keys-and-warn
+ "Values other than `erc-button-buttonize-nicks' in the third slot of "
+ "the `nicknames' entry of `erc-button-alist' are deprecated."))))
+
+(cl-defstruct erc-button--nick
+ ( bounds nil :type cons
+ ;; Indicates the nick's position in the current message. BEG is
+ ;; normally also point.
+ :documentation "A cons of (BEG . END).")
+ ( data nil :type (or null cons)
+ ;; When non-nil, the CAR must be a non-casemapped nickname. For
+ ;; compatibility, the CDR should probably be nil, but this may
+ ;; have to change eventually. If non-nil, the entire cons should
+ ;; be mutated rather than replaced because it's used as a key in
+ ;; hash tables and text-property searches.
+ :documentation "A unique cons whose car is a nickname.")
+ ( downcased nil :type (or null string)
+ :documentation "The case-mapped nickname sans text properties.")
+ ( user nil :type (or null erc-server-user)
+ ;; Not necessarily present in `erc-server-users'.
+ :documentation "A possibly nil or spoofed `erc-server-user'.")
+ ( cuser nil :type (or null erc-channel-user)
+ ;; The CDR of a value from an `erc-channel-users' table.
+ :documentation "A possibly nil `erc-channel-user'.")
+ ( erc-button-face erc-button-face :type symbol
+ :documentation "Temp `erc-button-face' while buttonizing.")
+ ( erc-button-nickname-face erc-button-nickname-face :type symbol
+ :documentation "Temp `erc-button-nickname-face' while buttonizing.")
+ ( erc-button-mouse-face erc-button-mouse-face :type symbol
+ :documentation "Temp `erc-button-mouse-face' while buttonizing."))
+
+;; This variable is intended to serve as a "core" to be wrapped by
+;; (built-in) modules during setup. It's unclear whether
+;; `add-function's practice of removing existing advice before
+;; re-adding it is desirable when integrating modules since we're
+;; mostly concerned with ensuring one "piece" precedes or follows
+;; another (specific piece), which may not yet (or ever) be present.
+
+(defvar erc-button--modify-nick-function #'identity
+ "Function to possibly modify aspects of nick being buttonized.
+Called with one argument, an `erc-button--nick' object, or nil.
+The function should return the same (or similar) object when
+buttonizing ought to proceed and nil otherwise. While running,
+all faces defined in `erc-button' are bound temporarily and can
+be updated at will.")
+
+(defvar-local erc-button--phantom-users nil)
+
+(defvar erc-button--fallback-user-function #'ignore
+ "Function to determine `erc-server-user' if not found in the usual places.
+Called with DOWNCASED-NICK, NICK, and NICK-BOUNDS when
+`erc-button-add-nickname-buttons' cannot find a user object for
+DOWNCASED-NICK in `erc-channel-users' or `erc-server-users'.")
+
+(defun erc-button--add-phantom-speaker (downcased nuh _parsed)
+ "Stash fictitious `erc-server-user' while processing \"PRIVMSG\".
+Expect DOWNCASED to be the downcased nickname, NUH to be a triple
+of (NICK LOGIN HOST), and parsed to be an `erc-response' object."
+ (pcase-let* ((`(,nick ,login ,host) nuh)
+ (user (or (gethash downcased erc-button--phantom-users)
+ (make-erc-server-user
+ :nickname nick
+ :host (and (not (string-empty-p host)) host)
+ :login (and (not (string-empty-p login)) login)))))
+ (list (puthash downcased user erc-button--phantom-users))))
+
+(defun erc-button--get-phantom-user (down _word _bounds)
+ (gethash down erc-button--phantom-users))
+
+;; In the future, we'll most likely create temporary
+;; `erc-channel-users' tables during BATCH chathistory playback, thus
+;; obviating the need for this mode entirely.
+(define-minor-mode erc-button--phantom-users-mode
+ "Minor mode to recognize unknown speakers.
+Expect to be used by module setup code for creating placeholder
+users on the fly during history playback. Treat an unknown
+\"PRIVMSG\" speaker, like \"<bob>\", as if they previously
+appeared in a prior \"353\" message and are thus a known member
+of the channel. However, don't bother creating an actual
+`erc-channel-user' object because their status prefix is unknown.
+Instead, just spoof an `erc-server-user' and stash it during
+\"PRIVMSG\" handling via `erc--user-from-nick-function' and
+retrieve it during buttonizing via
+`erc-button--fallback-user-function'."
+ :interactive nil
+ (if erc-button--phantom-users-mode
+ (progn
+ (add-function :after-until (local 'erc--user-from-nick-function)
+ #'erc-button--add-phantom-speaker '((depth . -50)))
+ (add-function :after-until (local 'erc-button--fallback-user-function)
+ #'erc-button--get-phantom-user '((depth . 50)))
+ (setq erc-button--phantom-users (make-hash-table :test #'equal)))
+ (remove-function (local 'erc--user-from-nick-function)
+ #'erc-button--add-phantom-speaker)
+ (remove-function (local 'erc-button--fallback-user-function)
+ #'erc-button--get-phantom-user)
+ (kill-local-variable 'erc-nicks--phantom-users)))
+
(defun erc-button-add-nickname-buttons (entry)
"Search through the buffer for nicknames, and add buttons."
(let ((form (nth 2 entry))
(fun (nth 3 entry))
bounds word)
- (when (or (eq t form)
- (eval form t))
+ (when (eq form 'erc-button-buttonize-nicks)
+ (setq form (and (symbol-value form) erc-button--modify-nick-function)))
+ (when (or (functionp form)
+ (eq t form)
+ (and form (erc-button--maybe-warn-arbitrary-sexp form)))
(goto-char (point-min))
(while (erc-forward-word)
(when (setq bounds (erc-bounds-of-word-at-point))
(setq word (buffer-substring-no-properties
(car bounds) (cdr bounds)))
- (when (or (and (erc-server-buffer-p) (erc-get-server-user word))
- (and erc-channel-users (erc-get-channel-user word)))
- (erc-button-add-button (car bounds) (cdr bounds)
- fun t (list word))))))))
+ (let* ((erc-button-face erc-button-face)
+ (erc-button-mouse-face erc-button-mouse-face)
+ (erc-button-nickname-face erc-button-nickname-face)
+ (down (erc-downcase word))
+ (cuser (and erc-channel-users
+ (gethash down erc-channel-users)))
+ (user (or (and cuser (car cuser))
+ (and erc-server-users
+ (gethash down erc-server-users))
+ (funcall erc-button--fallback-user-function
+ down word bounds)))
+ (data (list word)))
+ (when (or (not (functionp form))
+ (and-let* ((user)
+ (obj (funcall form (make-erc-button--nick
+ :bounds bounds :data data
+ :downcased down :user user
+ :cuser (cdr cuser)))))
+ (setq bounds (erc-button--nick-bounds obj)
+ data (erc-button--nick-data obj)
+ erc-button-mouse-face
+ (erc-button--nick-erc-button-mouse-face obj)
+ erc-button-nickname-face
+ (erc-button--nick-erc-button-nickname-face obj)
+ erc-button-face
+ (erc-button--nick-erc-button-face obj))))
+ (erc-button-add-button (car bounds) (cdr bounds)
+ fun t data))))))))
(defun erc-button-add-buttons-1 (regexp entry)
"Search through the buffer for matches to ENTRY and add buttons."
(goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (let ((start (match-beginning (nth 1 entry)))
- (end (match-end (nth 1 entry)))
- (form (nth 2 entry))
- (fun (nth 3 entry))
- (data (mapcar #'match-string-no-properties (nthcdr 4 entry))))
- (when (or (eq t form)
- (eval form t))
- (erc-button-add-button start end fun nil data regexp)))))
+ (let (buttonizer)
+ (while
+ (and (re-search-forward regexp nil t)
+ (or buttonizer
+ (setq buttonizer
+ (and-let*
+ ((raw-form (nth 2 entry))
+ (res (or (eq t raw-form)
+ (erc-button--maybe-warn-arbitrary-sexp
+ raw-form))))
+ (if (functionp res) res #'erc-button-add-button)))))
+ (let ((start (match-beginning (nth 1 entry)))
+ (end (match-end (nth 1 entry)))
+ (fun (nth 3 entry))
+ (data (mapcar #'match-string-no-properties (nthcdr 4 entry))))
+ (funcall buttonizer start end fun nil data regexp)))))
(defun erc-button-remove-old-buttons ()
"Remove all existing buttons.
@@ -405,6 +565,7 @@ call it with the value of the `erc-data' text property."
(defun erc-button-next-function ()
"Pseudo completion function that actually jumps to the next button.
For use on `completion-at-point-functions'."
+ (declare (obsolete erc-nickserv-identify "30.1"))
;; FIXME: This is an abuse of completion-at-point-functions.
(when (< (point) (erc-beg-of-input-line))
(let ((start (point)))
@@ -422,27 +583,71 @@ For use on `completion-at-point-functions'."
(error "No next button"))
t)))))
-(defun erc-button-next ()
- "Go to the next button in this buffer."
- (interactive)
- (let ((f (erc-button-next-function)))
- (if f (funcall f))))
-
-(defun erc-button-previous ()
- "Go to the previous button in this buffer."
- (interactive)
- (let ((here (point)))
- (when (< here (erc-beg-of-input-line))
- (while (and (get-text-property here 'erc-callback)
- (not (= here (point-min))))
- (setq here (1- here)))
- (while (and (not (get-text-property here 'erc-callback))
- (not (= here (point-min))))
- (setq here (1- here)))
- (if (> here (point-min))
- (goto-char here)
- (error "No previous button"))
- t)))
+(defvar erc-button--prev-next-predicate-functions
+ '(erc-button--end-of-button-p)
+ "Abnormal hook whose members can return non-nil to continue searching.
+Otherwise, if all members return nil, point will stay at the
+current button. Called with a single arg, a buffer position
+greater than `point-min' with a text property of `erc-callback'.")
+
+(defun erc-button--end-of-button-p (point)
+ (get-text-property (1- point) 'erc-callback))
+
+(defun erc--button-next (arg)
+ (let* ((nextp (prog1 (>= arg 1) (setq arg (max 1 (abs arg)))))
+ (search-fn (if nextp
+ #'next-single-char-property-change
+ #'previous-single-char-property-change))
+ (start (point))
+ (p start))
+ (while (progn
+ ;; Break out of current search context.
+ (when-let ((low (max (point-min) (1- (pos-bol))))
+ (high (min (point-max) (1+ (pos-eol))))
+ (prop (get-text-property p 'erc-callback))
+ (q (if nextp
+ (text-property-not-all p high
+ 'erc-callback prop)
+ (funcall search-fn p 'erc-callback nil low)))
+ ((< low q high)))
+ (setq p q))
+ ;; Assume that buttons occur frequently enough that
+ ;; omitting LIMIT is acceptable.
+ (while
+ (and (setq p (funcall search-fn p 'erc-callback))
+ (if nextp (< p erc-insert-marker) (/= p (point-min)))
+ (run-hook-with-args-until-success
+ 'erc-button--prev-next-predicate-functions p)))
+ (and arg
+ (< (point-min) p erc-insert-marker)
+ (goto-char p)
+ (not (zerop (cl-decf arg))))))
+ (when (= (point) start)
+ (user-error (if nextp "No next button" "No previous button")))
+ t))
+
+(defun erc-button-next (&optional arg)
+ "Go to the ARGth next button."
+ (declare (advertised-calling-convention (arg) "30.1"))
+ (interactive "p")
+ (erc--button-next (or arg 1)))
+
+(defun erc-button-previous (&optional arg)
+ "Go to ARGth previous button."
+ (declare (advertised-calling-convention (arg) "30.1"))
+ (interactive "p")
+ (erc--button-next (- (or arg 1))))
+
+(defun erc-button-previous-of-nick (arg)
+ "Go to ARGth previous button for nick at point."
+ (interactive "p")
+ (if-let* ((prop (get-text-property (point) 'erc-data))
+ (erc-button--prev-next-predicate-functions
+ (cons (lambda (p)
+ (not (equal (get-text-property p 'erc-data) prop)))
+ erc-button--prev-next-predicate-functions)))
+ (erc--button-next (- arg))
+ (user-error "No nick at point")))
(defun erc-browse-emacswiki (thing)
"Browse to THING in the emacs-wiki."
@@ -511,6 +716,70 @@ and `apropos' for other symbols."
(message "@%s is %d:%02d local time"
beats hours minutes)))
+(defun erc-button--display-error-with-buttons
+ (from to fun nick-p &optional data regexp)
+ "Replace command in region with keys and return new bounds"
+ (let* ((o (buffer-substring from to))
+ (s (substitute-command-keys o))
+ (erc-button-face (and (equal o s) erc-button-face)))
+ (delete-region from to)
+ (insert s)
+ (erc-button-add-button from (point) fun nick-p data regexp)))
+
+;;;###autoload
+(defun erc-button--display-error-notice-with-keys (&optional parsed buffer
+ &rest strings)
+ "Add help keys to STRINGS for configuration-related admonishments.
+Return inserted result. Expect PARSED to be an `erc-response'
+object, a string, or nil. Expect BUFFER to be a buffer, a string,
+or nil. As a special case, allow PARSED to be a buffer as long
+as BUFFER is a string or nil. If STRINGS contains any trailing
+non-strings, concatenate leading string members before applying
+`format'. Otherwise, just concatenate everything."
+ (when (stringp buffer)
+ (push buffer strings)
+ (setq buffer nil))
+ (when (stringp parsed)
+ (push parsed strings)
+ (setq parsed nil))
+ (when (bufferp parsed)
+ (cl-assert (null buffer))
+ (setq buffer parsed
+ parsed nil))
+ (let* ((op (if (seq-every-p #'stringp (cdr strings))
+ #'concat
+ (let ((head (pop strings)))
+ (while (stringp (car strings))
+ (setq head (concat head (pop strings))))
+ (push head strings))
+ #'format))
+ (string (apply op strings))
+ (erc-insert-post-hook
+ (cons (lambda ()
+ (setq string (buffer-substring (point-min)
+ (1- (point-max)))))
+ erc-insert-post-hook))
+ (erc-button-alist
+ `((,(rx "\\[" (group (+ (not "]"))) "]") 0
+ erc-button--display-error-with-buttons
+ erc-button-describe-symbol 1)
+ ,@erc-button-alist)))
+ (erc-display-message parsed '(notice error) (or buffer 'active) string)
+ string))
+
+;;;###autoload
+(defun erc-button--display-error-notice-with-keys-and-warn (&rest args)
+ "Like `erc-button--display-error-notice-with-keys' but also warn."
+ (let ((string (apply #'erc-button--display-error-notice-with-keys args)))
+ (with-temp-buffer
+ (insert string)
+ (goto-char (point-min))
+ (with-syntax-table lisp-mode-syntax-table
+ (skip-syntax-forward "^-"))
+ (forward-char)
+ (display-warning
+ 'erc (buffer-substring-no-properties (point) (point-max))))))
+
(provide 'erc-button)
;;; erc-button.el ends here
diff --git a/lisp/erc/erc-capab.el b/lisp/erc/erc-capab.el
index 650c5fa84ac..bb0921da7f0 100644
--- a/lisp/erc/erc-capab.el
+++ b/lisp/erc/erc-capab.el
@@ -89,6 +89,7 @@ character not found in IRC nicknames to avoid confusion."
;;; Define module:
;;;###autoload(autoload 'erc-capab-identify-mode "erc-capab" nil t)
+(put 'capab-identify 'erc-group 'erc-capab)
(define-erc-module capab-identify nil
"Handle dancer-ircd's CAPAB IDENTIFY-MSG and IDENTIFY-CTCP."
;; append so that `erc-server-parameters' is already set by `erc-server-005'
diff --git a/lisp/erc/erc-common.el b/lisp/erc/erc-common.el
index 0279b0a0bc4..f152a1a32d9 100644
--- a/lisp/erc/erc-common.el
+++ b/lisp/erc/erc-common.el
@@ -30,19 +30,37 @@
(defvar erc--casemapping-rfc1459-strict)
(defvar erc-channel-users)
(defvar erc-dbuf)
+(defvar erc-insert-this)
(defvar erc-log-p)
+(defvar erc-modules)
+(defvar erc-send-this)
+(defvar erc-server-process)
(defvar erc-server-users)
(defvar erc-session-server)
(declare-function erc--get-isupport-entry "erc-backend" (key &optional single))
(declare-function erc-get-buffer "erc" (target &optional proc))
(declare-function erc-server-buffer "erc" nil)
+(declare-function widget-apply-action "wid-edit" (widget &optional event))
+(declare-function widget-at "wid-edit" (&optional pos))
+(declare-function widget-create-child-and-convert "wid-edit"
+ (parent type &rest args))
+(declare-function widget-default-format-handler "wid-edit" (widget escape))
+(declare-function widget-get-sibling "wid-edit" (widget))
+(declare-function widget-move "wid-edit" (arg &optional suppress-echo))
+(declare-function widget-type "wid-edit" (widget))
(cl-defstruct erc-input
- string insertp sendp)
+ string insertp sendp refoldp)
-(cl-defstruct (erc--input-split (:include erc-input))
- lines cmdp)
+(cl-defstruct (erc--input-split (:include erc-input
+ (string :read-only)
+ (insertp erc-insert-this)
+ (sendp (with-suppressed-warnings
+ ((obsolete erc-send-this))
+ erc-send-this))))
+ (lines nil :type (list-of string))
+ (cmdp nil :type boolean))
(cl-defstruct (erc-server-user (:type vector) :named)
;; User data
@@ -85,45 +103,52 @@
(contents "" :type string)
(tags '() :type list))
-;; TODO move goodies modules here after 29 is released.
-(defconst erc--features-to-modules
- '((erc-pcomplete completion pcomplete)
- (erc-capab capab-identify)
- (erc-join autojoin)
- (erc-page page ctcp-page)
- (erc-sound sound ctcp-sound)
- (erc-stamp stamp timestamp)
- (erc-services services nickserv))
- "Migration alist mapping a library feature to module names.
-Keys need not be unique: a library may define more than one
-module. Sometimes a module's downcased alias will be its
-canonical name.")
-
-(defconst erc--modules-to-features
- (let (pairs)
- (pcase-dolist (`(,feature . ,names) erc--features-to-modules)
- (dolist (name names)
- (push (cons name feature) pairs)))
- (nreverse pairs))
- "Migration alist mapping a module's name to its home library feature.")
-
-(defconst erc--module-name-migrations
- (let (pairs)
- (pcase-dolist (`(,_ ,canonical . ,rest) erc--features-to-modules)
- (dolist (obsolete rest)
- (push (cons obsolete canonical) pairs)))
- pairs)
- "Association list of obsolete module names to canonical names.")
-
+;; After dropping 28, we can use prefixed "erc-autoload" cookies.
(defun erc--normalize-module-symbol (symbol)
- "Return preferred SYMBOL for `erc-modules'."
- (setq symbol (intern (downcase (symbol-name symbol))))
- (or (cdr (assq symbol erc--module-name-migrations)) symbol))
+ "Return preferred SYMBOL for `erc--modules'."
+ (while-let ((canonical (get symbol 'erc--module))
+ ((not (eq canonical symbol))))
+ (setq symbol canonical))
+ symbol)
+
+(defvar erc--inside-mode-toggle-p nil
+ "Non-nil when a module's mode toggle is updating module membership.
+This serves as a flag to inhibit the mutual recursion that would
+otherwise occur between an ERC-defined minor-mode function, such
+as `erc-services-mode', and the custom-set function for
+`erc-modules'. For historical reasons, the latter calls
+`erc-update-modules', which, in turn, enables the minor-mode
+functions for all member modules. Also non-nil when a mode's
+widget runs its set function.")
+
+(defun erc--favor-changed-reverted-modules-state (name op)
+ "Be more nuanced in displaying Custom state of `erc-modules'.
+When `customized-value' differs from `saved-value', allow widget
+to behave normally and show \"SET for current session\", as
+though `customize-set-variable' or similar had been applied.
+However, when `customized-value' and `standard-value' match but
+differ from `saved-value', prefer showing \"CHANGED outside
+Customize\" to prevent the widget from seeing a `standard'
+instead of a `set' state, which precludes any actual saving."
+ ;; Although the button "Apply and save" is fortunately grayed out,
+ ;; `Custom-save' doesn't actually save (users must click the magic
+ ;; state button instead). The default behavior described in the doc
+ ;; string is intentional and was introduced by bug#12864 "Make state
+ ;; button interaction less confusing". However, it is unfriendly to
+ ;; rogue libraries (like ours) that insist on mutating user options
+ ;; as a matter of course.
+ (custom-load-symbol 'erc-modules)
+ (funcall (get 'erc-modules 'custom-set) 'erc-modules
+ (funcall op (erc--normalize-module-symbol name) erc-modules))
+ (when (equal (pcase (get 'erc-modules 'saved-value)
+ (`((quote ,saved) saved)))
+ erc-modules)
+ (customize-mark-as-set 'erc-modules)))
(defun erc--assemble-toggle (localp name ablsym mode val body)
(let ((arg (make-symbol "arg")))
`(defun ,ablsym ,(if localp `(&optional ,arg) '())
- ,(concat
+ ,(erc--fill-module-docstring
(if val "Enable" "Disable")
" ERC " (symbol-name name) " mode."
(when localp
@@ -137,14 +162,133 @@ canonical name.")
(,ablsym))
(setq ,mode ,val)
,@body)))
- `(,(if val
- `(cl-pushnew ',(erc--normalize-module-symbol name)
- erc-modules)
- `(setq erc-modules (delq ',(erc--normalize-module-symbol name)
- erc-modules)))
+ ;; No need for `default-value', etc. because a buffer-local
+ ;; `erc-modules' only influences the next session and
+ ;; doesn't survive the major-mode reset that soon follows.
+ `((unless
+ (or erc--inside-mode-toggle-p
+ ,@(let ((v `(memq ',(erc--normalize-module-symbol name)
+ erc-modules)))
+ `(,(if val v `(not ,v)))))
+ (let ((erc--inside-mode-toggle-p t))
+ (erc--favor-changed-reverted-modules-state
+ ',name #',(if val 'cons 'delq))))
(setq ,mode ,val)
,@body)))))
+;; This is a migration helper that determines a module's `:group'
+;; keyword argument from its name or alias. A (global) module's minor
+;; mode variable appears under the group's Custom menu. Like
+;; `erc--normalize-module-symbol', it must run when the module's
+;; definition (rather than that of `define-erc-module') is expanded.
+;; For corner cases in which this fails or the catch-all of `erc' is
+;; more inappropriate, (global) modules can declare a top-level
+;;
+;; (put 'foo 'erc-group 'erc-bar)
+;;
+;; where `erc-bar' is the group and `foo' is the normalized module.
+;; Do this *before* the module's definition. If `define-erc-module'
+;; ever accepts arbitrary keywords, passing an explicit `:group' will
+;; obviously be preferable.
+
+(defun erc--find-group (&rest symbols)
+ (catch 'found
+ (dolist (s symbols)
+ (let* ((downed (downcase (symbol-name s)))
+ (known (intern-soft (concat "erc-" downed))))
+ (when (and known
+ (or (get known 'group-documentation)
+ (rassq known custom-current-group-alist)))
+ (throw 'found known))
+ (when (setq known (intern-soft (concat "erc-" downed "-mode")))
+ (when-let ((found (custom-group-of-mode known)))
+ (throw 'found found))))
+ (when-let ((found (get (erc--normalize-module-symbol s) 'erc-group)))
+ (throw 'found found)))
+ 'erc))
+
+;; This exists as a separate, top-level function to prevent the byte
+;; compiler from warning about widget-related dependencies not being
+;; loaded at runtime.
+
+(defun erc--tick-module-checkbox (name &rest _) ; `name' must be normalized
+ (customize-variable-other-window 'erc-modules)
+ ;; Move to `erc-modules' section.
+ (while (not (eq (widget-type (widget-at)) 'checkbox))
+ (widget-move 1 t))
+ ;; This search for a checkbox can fail when `name' refers to a
+ ;; third-party module that modifies `erc-modules' (improperly) on
+ ;; load.
+ (let (w)
+ (while (and (eq (widget-type (widget-at)) 'checkbox)
+ (not (and (setq w (widget-get-sibling (widget-at)))
+ (eq (widget-value w) name))))
+ (setq w nil)
+ (widget-move 1 t)) ; the `suppress-echo' arg exists in 27.2
+ (unless w
+ (error "Failed to find %s in `erc-modules' checklist" name))
+ (widget-apply-action (widget-at))
+ (message "Hit %s to apply or %s to apply and save."
+ (substitute-command-keys "\\[Custom-set]")
+ (substitute-command-keys "\\[Custom-save]"))))
+
+;; This stands apart to avoid needing forward declarations for
+;; `wid-edit' functions in every file requiring `erc-common'.
+(defun erc--make-show-me-widget (widget escape &rest plist)
+ (if (eq escape ?i)
+ (apply #'widget-create-child-and-convert widget 'push-button plist)
+ (widget-default-format-handler widget escape)))
+
+(defun erc--prepare-custom-module-type (name)
+ `(let* ((name (erc--normalize-module-symbol ',name))
+ (fmtd (format " `%s' " name)))
+ `(boolean
+ :format "%{%t%}: %i %[Deprecated Toggle%] %v \n%h\n"
+ :format-handler
+ ,(lambda (widget escape)
+ (erc--make-show-me-widget
+ widget escape
+ :button-face '(custom-variable-obsolete custom-button)
+ :tag "Show Me"
+ :action (apply-partially #'erc--tick-module-checkbox name)
+ :help-echo (lambda (_)
+ (let ((hasp (memq name erc-modules)))
+ (concat (if hasp "Remove" "Add") fmtd
+ (if hasp "from" "to")
+ " `erc-modules'.")))))
+ :action widget-toggle-action
+ :documentation-property
+ ,(lambda (_)
+ (let ((hasp (memq name erc-modules)))
+ (concat
+ "Setting a module's minor-mode variable is "
+ (propertize "ineffective" 'face 'error)
+ ".\nPlease " (if hasp "remove" "add") fmtd
+ (if hasp "from" "to") " `erc-modules' directly instead.\n"
+ "You can do so now by clicking "
+ (propertize "Show Me" 'face 'custom-variable-obsolete)
+ " above."))))))
+
+(defun erc--fill-module-docstring (&rest strings)
+ (with-temp-buffer
+ (emacs-lisp-mode)
+ (insert "(defun foo ()\n"
+ (format "%S" (apply #'concat strings))
+ "\n(ignore))")
+ (goto-char (point-min))
+ (forward-line 2)
+ (let ((emacs-lisp-docstring-fill-column 65)
+ (sentence-end-double-space t))
+ (fill-paragraph))
+ (goto-char (point-min))
+ (nth 3 (read (current-buffer)))))
+
+(defmacro erc--find-feature (name alias)
+ `(pcase (erc--find-group ',name ,(and alias (list 'quote alias)))
+ ('erc (and-let* ((file (or (macroexp-file-name) buffer-file-name)))
+ (intern (file-name-base file))))
+ (v v)))
+
(defmacro define-erc-module (name alias doc enable-body disable-body
&optional local-p)
"Define a new minor mode using ERC conventions.
@@ -179,21 +323,20 @@ Example:
(declare (doc-string 3) (indent defun))
(let* ((sn (symbol-name name))
(mode (intern (format "erc-%s-mode" (downcase sn))))
- (group (intern (format "erc-%s" (downcase sn))))
(enable (intern (format "erc-%s-enable" (downcase sn))))
(disable (intern (format "erc-%s-disable" (downcase sn)))))
`(progn
(define-minor-mode
,mode
- ,(format "Toggle ERC %S mode.
+ ,(erc--fill-module-docstring (format "Toggle ERC %s mode.
With a prefix argument ARG, enable %s if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
-%s" name name doc)
- ;; FIXME: We don't know if this group exists, so this `:group' may
- ;; actually just silence a valid warning about the fact that the var
- ;; is not associated with any group.
- :global ,(not local-p) :group (quote ,group)
+\n%s" name name doc))
+ :global ,(not local-p)
+ :group (erc--find-group ',name ,(and alias (list 'quote alias)))
+ ,@(unless local-p `(:require ',(erc--find-feature name alias)))
+ ,@(unless local-p `(:type ,(erc--prepare-custom-module-type name)))
(if ,mode
(,enable)
(,disable)))
@@ -249,11 +392,17 @@ See also `with-current-buffer'.
"Execute BODY in the current ERC server buffer.
If no server buffer exists, return nil."
(declare (indent 0) (debug (body)))
- (let ((buffer (make-symbol "buffer")))
- `(let ((,buffer (erc-server-buffer)))
- (when (buffer-live-p ,buffer)
- (with-current-buffer ,buffer
- ,@body)))))
+ (let ((varp (and (symbolp (car body))
+ (not (cdr body))
+ (special-variable-p (car body))))
+ (buffer (make-symbol "buffer")))
+ `(when-let* (((processp erc-server-process))
+ (,buffer (process-buffer erc-server-process))
+ ((buffer-live-p ,buffer)))
+ ,(if varp
+ `(buffer-local-value ',(car body) ,buffer)
+ `(with-current-buffer ,buffer
+ ,@body)))))
(defmacro erc-with-all-buffers-of-server (process pred &rest forms)
"Execute FORMS in all buffers which have same process as this server.
diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el
index 5601ede27a5..29892b78a39 100644
--- a/lisp/erc/erc-compat.el
+++ b/lisp/erc/erc-compat.el
@@ -32,7 +32,50 @@
;;; Code:
(require 'compat nil 'noerror)
-(eval-when-compile (require 'cl-lib) (require 'url-parse))
+(eval-when-compile (require 'cl-lib))
+
+;; Except for the "erc-" namespacing, these two definitions should be
+;; continuously updated to match the latest upstream ones verbatim.
+;; Although they're pretty simple, it's likely not worth checking for
+;; and possibly deferring to the non-prefixed versions.
+;;
+;; BEGIN Compat macros
+
+;;;; Macros for extended compatibility function calls
+
+(defmacro erc-compat-function (fun)
+ "Return compatibility function symbol for FUN.
+
+If the Emacs version provides a sufficiently recent version of
+FUN, the symbol FUN is returned itself. Otherwise the macro
+returns the symbol of a compatibility function which supports the
+behavior and calling convention of the current stable Emacs
+version. For example Compat 29.1 will provide compatibility
+functions which implement the behavior and calling convention of
+Emacs 29.1.
+
+See also `compat-call' to directly call compatibility functions."
+ (let ((compat (intern (format "compat--%s" fun))))
+ `#',(if (fboundp compat) compat fun)))
+
+(defmacro erc-compat-call (fun &rest args)
+ "Call compatibility function or macro FUN with ARGS.
+
+A good example function is `plist-get' which was extended with an
+additional predicate argument in Emacs 29.1. The compatibility
+function, which supports this additional argument, can be
+obtained via (compat-function plist-get) and called
+via (compat-call plist-get plist prop predicate). It is not
+possible to directly call (plist-get plist prop predicate) on
+Emacs older than 29.1, since the original `plist-get' function
+does not yet support the predicate argument. Note that the
+Compat library never overrides existing functions.
+
+See also `compat-function' to lookup compatibility functions."
+ (let ((compat (intern (format "compat--%s" fun))))
+ `(,(if (fboundp compat) compat fun) ,@args)))
+
+;; END Compat macros
;;;###autoload(autoload 'erc-define-minor-mode "erc-compat")
(define-obsolete-function-alias 'erc-define-minor-mode
@@ -368,16 +411,8 @@ If START or END is negative, it counts from the end."
;;;; Misc 29.1
-(defmacro erc-compat--with-memoization (table &rest forms)
- (declare (indent defun))
- (cond
- ((fboundp 'with-memoization)
- `(with-memoization ,table ,@forms)) ; 29.1
- ((fboundp 'cl--generic-with-memoization)
- `(cl--generic-with-memoization ,table ,@forms))
- (t `(progn ,@forms))))
-
(defvar url-irc-function)
+(declare-function url-type "url-parse" (cl-x))
(defun erc-compat--29-browse-url-irc (string &rest _)
(require 'url-irc)
@@ -409,6 +444,28 @@ If START or END is negative, it counts from the end."
(cons '("\\`irc6?s?://" . erc-compat--29-browse-url-irc)
existing))))))
+
+;;;; Misc 28.1
+
+(defvar comint-file-name-quote-list)
+(defvar shell-file-name-quote-list)
+(declare-function shell--parse-pcomplete-arguments "shell" nil)
+
+(defun erc-compat--28-split-string-shell-command (string)
+ (require 'comint)
+ (require 'shell)
+ (with-temp-buffer
+ (insert string)
+ (let ((comint-file-name-quote-list shell-file-name-quote-list))
+ (car (shell--parse-pcomplete-arguments)))))
+
+(defmacro erc-compat--split-string-shell-command (string)
+ ;; Autoloaded in Emacs 28.
+ (list (if (fboundp 'split-string-shell-command)
+ 'split-string-shell-command
+ 'erc-compat--28-split-string-shell-command)
+ string))
+
(provide 'erc-compat)
;;; erc-compat.el ends here
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index 4c557e0e0f9..2012bcadae1 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -43,7 +43,7 @@
;; /dcc chat nick - Either accept pending chat offer from nick, or offer
;; DCC chat to nick
;; /dcc close type [nick] - Close DCC connection (SEND/GET/CHAT) with nick
-;; /dcc get [-t][-s] nick [file] - Accept DCC offer from nick
+;; /dcc get [-t][-s] nick [--] file - Accept DCC offer from nick
;; /dcc list - List all DCC offers/connections
;; /dcc send nick file - Offer DCC SEND to nick
@@ -389,12 +389,18 @@ If this is nil, then the current value of
`default-directory' is used."
:type '(choice (const :value nil :tag "Default directory") directory))
;;;###autoload
-(defun erc-cmd-DCC (cmd &rest args)
+(defun erc-cmd-DCC (line &rest compat-args)
"Parser for /dcc command.
This figures out the dcc subcommand and calls the appropriate routine to
handle it. The function dispatched should be named \"erc-dcc-do-FOO-command\",
where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc."
- (when cmd
+ (let (cmd args)
+ ;; Called as library function (i.e., not directly as /dcc)
+ (if compat-args
+ (setq cmd line
+ args compat-args)
+ (setq args (delete "" (erc-compat--split-string-shell-command line))
+ cmd (pop args)))
(let ((fn (intern-soft (concat "erc-dcc-do-" (upcase cmd) "-command"))))
(if fn
(apply fn erc-server-process args)
@@ -404,8 +410,16 @@ where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc."
(apropos "erc-dcc-do-.*-command")
t))))
+(put 'erc-cmd-DCC 'do-not-parse-args t)
(autoload 'pcomplete-erc-all-nicks "erc-pcomplete")
+;;;###autoload(put 'erc-cmd-DCC 'erc--cmd-help 'erc-dcc--cmd-help)
+(defun erc-dcc--cmd-help (&rest args)
+ (describe-function
+ (or (and args (intern-soft (concat "erc-dcc-do-"
+ (upcase (car args)) "-command")))
+ 'erc-cmd-DCC)))
+
;;;###autoload
(defun pcomplete/erc-mode/DCC ()
"Provide completion for the /DCC command."
@@ -430,15 +444,20 @@ where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc."
(eq (plist-get elt :type) 'GET))
erc-dcc-list)))
('send (pcomplete-erc-all-nicks))))
+ (when (equal "get" (downcase (pcomplete-arg 'first 1)))
+ (pcomplete-opt "-"))
(pcomplete-here
(pcase (intern (downcase (pcomplete-arg 'first 1)))
- ('get (mapcar (lambda (elt) (plist-get elt :file))
+ ('get (mapcar (lambda (elt)
+ (combine-and-quote-strings (list (plist-get elt :file))))
(cl-remove-if-not
(lambda (elt)
(and (eq (plist-get elt :type) 'GET)
(erc-nick-equal-p (erc-extract-nick
(plist-get elt :nick))
- (pcomplete-arg 1))))
+ (pcase (pcomplete-arg 1)
+ ("--" (pcomplete-arg 2))
+ (v v)))))
erc-dcc-list)))
('close (mapcar #'erc-dcc-nick
(cl-remove-if-not
@@ -504,16 +523,33 @@ At least one of TYPE and NICK must be provided."
?n (erc-extract-nick (plist-get ret :nick))))))
t))
-(defun erc-dcc-do-GET-command (proc nick &rest file)
- "Do a DCC GET command. NICK is the person who is sending the file.
-FILE is the filename. If FILE is split into multiple arguments,
-re-join the arguments, separated by a space.
-PROC is the server process."
- (let* ((args (seq-group-by (lambda (s) (eq ?- (aref s 0))) (cons nick file)))
+(defun erc-dcc-do-GET-command (proc &rest args)
+ "Perform a DCC GET command.
+Recognize input conforming to the following usage syntax:
+
+ /DCC GET [-t|-s] nick [--] filename
+
+ nick The person who is sending the file.
+ filename The filename to be downloaded. Can be split into multiple
+ arguments that are then joined by a space.
+ flags \"-t\" sets `:turbo' in `erc-dcc-list'
+ \"-s\" sets `:secure' in `erc-dcc-list'
+ \"--\" indicates end of options
+ All of which are optional.
+
+Expect PROC to be the server process and ARGS to contain
+everything after the subcommand \"GET\" in the usage description
+above."
+ ;; Despite the advertised syntax above, we currently respect flags
+ ;; in these positions: [flag] nick [flag] filename [flag]
+ (let* ((trailing (and-let* ((trailing (member "--" args)))
+ (setq args (butlast args (length trailing)))
+ (cdr trailing)))
+ (args (seq-group-by (lambda (s) (eq ?- (aref s 0))) args))
(flags (prog1 (cdr (assq t args))
- (setq args (cdr (assq nil args))
- nick (pop args)
- file (and args (mapconcat #'identity args " ")))))
+ (setq args (nconc (cdr (assq nil args)) trailing))))
+ (nick (pop args))
+ (file (and args (mapconcat #'identity args " ")))
(elt (erc-dcc-member :nick nick :type 'GET :file file))
(filename (or file (plist-get elt :file) "unknown")))
(if elt
diff --git a/lisp/erc/erc-fill.el b/lisp/erc/erc-fill.el
index e10b7d790f6..718e51a058c 100644
--- a/lisp/erc/erc-fill.el
+++ b/lisp/erc/erc-fill.el
@@ -28,6 +28,9 @@
;; `erc-fill-mode' to switch it on. Customize `erc-fill-function' to
;; change the style.
+;; TODO: redo `erc-fill-wrap-nudge' using transient after ERC drops
+;; support for Emacs 27.
+
;;; Code:
(require 'erc)
@@ -38,30 +41,18 @@
:group 'erc)
;;;###autoload(autoload 'erc-fill-mode "erc-fill" nil t)
-(define-minor-mode erc-fill-mode
- "Toggle ERC fill mode.
-With a prefix argument ARG, enable ERC fill mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
+(define-erc-module fill nil
+ "Manage filling in ERC buffers.
ERC fill mode is a global minor mode. When enabled, messages in
the channel buffers are filled."
- :global t
- (if erc-fill-mode
- (erc-fill-enable)
- (erc-fill-disable)))
-
-(defun erc-fill-enable ()
- "Setup hooks for `erc-fill-mode'."
- (interactive)
- (add-hook 'erc-insert-modify-hook #'erc-fill)
- (add-hook 'erc-send-modify-hook #'erc-fill))
-
-(defun erc-fill-disable ()
- "Cleanup hooks, disable `erc-fill-mode'."
- (interactive)
- (remove-hook 'erc-insert-modify-hook #'erc-fill)
- (remove-hook 'erc-send-modify-hook #'erc-fill))
+ ;; FIXME ensure a consistent ordering relative to hook members from
+ ;; other modules. Ideally, this module's processing should happen
+ ;; after "morphological" modifications to a message's text but
+ ;; before superficial decorations.
+ ((add-hook 'erc-insert-modify-hook #'erc-fill)
+ (add-hook 'erc-send-modify-hook #'erc-fill))
+ ((remove-hook 'erc-insert-modify-hook #'erc-fill)
+ (remove-hook 'erc-send-modify-hook #'erc-fill)))
(defcustom erc-fill-prefix nil
"Values used as `fill-prefix' for `erc-fill-variable'.
@@ -91,16 +82,29 @@ Static Filling with `erc-fill-static-center' of 27:
These two styles are implemented using `erc-fill-variable' and
`erc-fill-static'. You can, of course, define your own filling
function. Narrowing to the region in question is in effect while your
-function is called."
+function is called.
+
+A third style resembles static filling but \"wraps\" instead of
+fills, thanks to `visual-line-mode' mode, which ERC automatically
+enables when this option is `erc-fill-wrap' or when
+`erc-fill-wrap-mode' is active. Set `erc-fill-static-center' to
+your preferred initial \"prefix\" width. For adjusting the width
+during a session, see the command `erc-fill-wrap-nudge'."
:type '(choice (const :tag "Variable Filling" erc-fill-variable)
(const :tag "Static Filling" erc-fill-static)
+ (const :tag "Dynamic word-wrap" erc-fill-wrap)
function))
(defcustom erc-fill-static-center 27
- "Column around which all statically filled messages will be centered.
-This column denotes the point where the ` ' character between
-<nickname> and the entered text will be put, thus aligning nick
-names right and text left."
+ "Number of columns to \"outdent\" the first line of a message.
+During early message handing, ERC prepends a span of
+non-whitespace characters to every message, such as a bracketed
+\"<nickname>\" or an `erc-notice-prefix'. The
+`erc-fill-function' variants `erc-fill-static' and
+`erc-fill-wrap' look to this option to determine the amount of
+padding to apply to that portion until the filled (or wrapped)
+message content aligns with the indicated column. See also
+https://en.wikipedia.org/wiki/Hanging_indent.";
:type 'integer)
(defcustom erc-fill-variable-maximum-indentation 17
@@ -112,12 +116,30 @@ Set to nil to disable."
"The column at which a filled paragraph is broken."
:type 'integer)
+(defcustom erc-fill-line-spacing nil
+ "Extra space between messages on graphical displays.
+This may need adjusting depending on how your faces are
+configured. Its value should be larger than that of the variable
+`line-spacing', if set. If unsure, try 0.5."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type '(choice (const nil) number))
+
+(defcustom erc-fill-spaced-commands '(PRIVMSG NOTICE)
+ "Types of messages to add space between on graphical displays.
+Only considered when `erc-fill-line-spacing' is non-nil."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type '(repeat (choice integer symbol)))
+
+(defvar-local erc-fill--function nil
+ "Internal copy of `erc-fill-function'.
+Takes precedence over the latter when non-nil.")
+
;;;###autoload
(defun erc-fill ()
"Fill a region using the function referenced in `erc-fill-function'.
You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'."
(unless (erc-string-invisible-p (buffer-substring (point-min) (point-max)))
- (when erc-fill-function
+ (when (or erc-fill--function erc-fill-function)
;; skip initial empty lines
(goto-char (point-min))
(save-match-data
@@ -126,11 +148,23 @@ You can put this on `erc-insert-modify-hook' and/or
`erc-send-modify-hook'."
(unless (eobp)
(save-restriction
(narrow-to-region (point) (point-max))
- (funcall erc-fill-function))))))
+ (funcall (or erc-fill--function erc-fill-function))
+ (when-let* ((erc-fill-line-spacing)
+ (p (point-min)))
+ (widen)
+ (when (or (and-let* ((cmd (get-text-property p 'erc-command)))
+ (memq cmd erc-fill-spaced-commands))
+ (and-let* ((cmd (save-excursion
+ (forward-line -1)
+ (get-text-property (point)
+ 'erc-command))))
+ (memq cmd erc-fill-spaced-commands)))
+ (put-text-property (1- p) p
+ 'line-spacing erc-fill-line-spacing))))))))
(defun erc-fill-static ()
"Fills a text such that messages start at column `erc-fill-static-center'."
- (save-match-data
+ (save-restriction
(goto-char (point-min))
(looking-at "^\\(\\S-+\\)")
(let ((nick (match-string 1)))
@@ -167,6 +201,312 @@ You can put this on `erc-insert-modify-hook' and/or
`erc-send-modify-hook'."
(erc-fill-regarding-timestamp))))
(erc-restore-text-properties)))
+(defvar-local erc-fill--wrap-value nil)
+(defvar-local erc-fill--wrap-visual-keys nil)
+
+(defcustom erc-fill-wrap-use-pixels t
+ "Whether to calculate padding in pixels when possible.
+A value of nil means ERC should use columns, which may happen
+regardless, depending on the Emacs version. This option only
+matters when `erc-fill-wrap-mode' is enabled."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type 'boolean)
+
+(defcustom erc-fill-wrap-visual-keys 'non-input
+ "Whether to retain keys defined by `visual-line-mode'.
+A value of t tells ERC to use movement commands defined by
+`visual-line-mode' everywhere in an ERC buffer along with visual
+editing commands in the input area. A value of nil means to
+never do so. A value of `non-input' tells ERC to act like the
+value is nil in the input area and t elsewhere. This option only
+plays a role when `erc-fill-wrap-mode' is enabled."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type '(choice (const nil) (const t) (const non-input)))
+
+(defcustom erc-fill-wrap-merge t
+ "Whether to consolidate messages from the same speaker.
+This tells ERC to omit redundant speaker labels for subsequent
+messages less than a day apart."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type 'boolean)
+
+(defun erc-fill--wrap-move (normal-cmd visual-cmd arg)
+ (funcall (pcase erc-fill--wrap-visual-keys
+ ('non-input
+ (if (>= (point) erc-input-marker) normal-cmd visual-cmd))
+ ('t visual-cmd)
+ (_ normal-cmd))
+ arg))
+
+(defun erc-fill--wrap-kill-line (arg)
+ "Defer to `kill-line' or `kill-visual-line'."
+ (interactive "P")
+ ;; ERC buffers are read-only outside of the input area, but we run
+ ;; `kill-line' anyway so that users can see the error.
+ (erc-fill--wrap-move #'kill-line #'kill-visual-line arg))
+
+(defun erc-fill--wrap-beginning-of-line (arg)
+ "Defer to `move-beginning-of-line' or `beginning-of-visual-line'."
+ (interactive "^p")
+ (let ((inhibit-field-text-motion t))
+ (erc-fill--wrap-move #'move-beginning-of-line
+ #'beginning-of-visual-line arg))
+ (if (get-text-property (point) 'erc-prompt)
+ (goto-char erc-input-marker)
+ ;; Mimic what `move-beginning-of-line' does with invisible text.
+ (when-let ((erc-fill-wrap-merge)
+ (empty (get-text-property (point) 'display))
+ ((string-empty-p empty)))
+ (goto-char (text-property-not-all (point) (pos-eol) 'display empty)))))
+
+(defun erc-fill--wrap-end-of-line (arg)
+ "Defer to `move-end-of-line' or `end-of-visual-line'."
+ (interactive "^p")
+ (erc-fill--wrap-move #'move-end-of-line #'end-of-visual-line arg))
+
+(defun erc-fill-wrap-cycle-visual-movement (arg)
+ "Cycle through `erc-fill-wrap-visual-keys' styles ARG times.
+Go from nil to t to `non-input' and back around, but set internal
+state instead of mutating `erc-fill-wrap-visual-keys'. When ARG
+is 0, reset to value of `erc-fill-wrap-visual-keys'."
+ (interactive "^p")
+ (when (zerop arg)
+ (setq erc-fill--wrap-visual-keys erc-fill-wrap-visual-keys))
+ (while (not (zerop arg))
+ (cl-incf arg (- (abs arg)))
+ (setq erc-fill--wrap-visual-keys (pcase erc-fill--wrap-visual-keys
+ ('nil t)
+ ('t 'non-input)
+ ('non-input nil))))
+ (message "erc-fill-wrap movement: %S" erc-fill--wrap-visual-keys))
+
+(defvar-keymap erc-fill-wrap-mode-map ; Compat 29
+ :doc "Keymap for ERC's `fill-wrap' module."
+ :parent visual-line-mode-map
+ "<remap> <kill-line>" #'erc-fill--wrap-kill-line
+ "<remap> <move-end-of-line>" #'erc-fill--wrap-end-of-line
+ "<remap> <move-beginning-of-line>" #'erc-fill--wrap-beginning-of-line
+ "C-c a" #'erc-fill-wrap-cycle-visual-movement
+ ;; Not sure if this is problematic because `erc-bol' takes no args.
+ "<remap> <erc-bol>" #'erc-fill--wrap-beginning-of-line)
+
+(defvar erc-match-mode)
+(defvar erc-button-mode)
+(defvar erc-match--hide-fools-offset-bounds)
+
+(defun erc-fill--wrap-ensure-dependencies ()
+ (let (missing-deps)
+ (unless erc-fill-mode
+ (push 'fill missing-deps)
+ (erc-fill-mode +1))
+ (when erc-fill-wrap-merge
+ (require 'erc-button)
+ (unless erc-button-mode
+ (push 'button missing-deps)
+ (erc-button-mode +1))
+ (require 'erc-stamp)
+ (unless erc-stamp-mode
+ (push 'stamp missing-deps)
+ (erc-stamp-mode +1)))
+ (when missing-deps
+ (erc--warn-once-before-connect 'erc-fill-wrap-mode
+ "Enabling missing global modules %s needed by local"
+ " module `fill-wrap'. This will impact \C-]all\C-] ERC"
+ " sessions. Add them to `erc-modules' to avoid this"
+ " warning. See Info:\"(erc) Modules\" for more."
+ (mapcar (lambda (s) (format "`%s'" s)) missing-deps)))))
+
+;;;###autoload(put 'fill-wrap 'erc--feature 'erc-fill)
+(define-erc-module fill-wrap nil
+ "Fill style leveraging `visual-line-mode'.
+This local module displays nicks overhanging leftward to a common
+offset, as determined by the option `erc-fill-static-center'. It
+depends on the `fill' and `button' modules and assumes the option
+`erc-insert-timestamp-function' is `erc-insert-timestamp-right'
+or the default `erc-insert-timestamp-left-and-right', so that it
+can display right-hand stamps in the right margin. A value of
+`erc-insert-timestamp-left' is unsupported. To use it, either
+include `fill-wrap' in `erc-modules' or set `erc-fill-function'
+to `erc-fill-wrap' (recommended). You can also manually invoke
+one of the minor-mode toggles if really necessary."
+ ((erc-fill--wrap-ensure-dependencies)
+ ;; Restore or initialize local state variables.
+ (erc--restore-initialize-priors erc-fill-wrap-mode
+ erc-fill--wrap-visual-keys erc-fill-wrap-visual-keys
+ erc-fill--wrap-value erc-fill-static-center)
+ (setq erc-fill--function #'erc-fill-wrap)
+ ;; Internal integrations.
+ (add-function :filter-args (local 'erc-stamp--insert-date-function)
+ #'erc-fill--wrap-stamp-insert-prefixed-date)
+ (when (or erc-stamp-mode (memq 'stamp erc-modules))
+ (erc-stamp--display-margin-mode +1))
+ (when (or (bound-and-true-p erc-match-mode) (memq 'match erc-modules))
+ (require 'erc-match)
+ (setq erc-match--hide-fools-offset-bounds t))
+ (when erc-fill-wrap-merge
+ (add-hook 'erc-button--prev-next-predicate-functions
+ #'erc-fill--wrap-merged-button-p nil t))
+ (visual-line-mode +1))
+ ((when erc-stamp--display-margin-mode
+ (erc-stamp--display-margin-mode -1))
+ (kill-local-variable 'erc-fill--wrap-value)
+ (kill-local-variable 'erc-fill--function)
+ (kill-local-variable 'erc-fill--wrap-visual-keys)
+ (remove-hook 'erc-button--prev-next-predicate-functions
+ #'erc-fill--wrap-merged-button-p t)
+ (remove-function (local 'erc-stamp--insert-date-function)
+ #'erc-fill--wrap-stamp-insert-prefixed-date)
+ (visual-line-mode -1))
+ 'local)
+
+(defvar-local erc-fill--wrap-length-function nil
+ "Function to determine length of overhanging characters.
+It should return an EXPR as defined by the Info node `(elisp)
+Pixel Specification'. This value should represent the width of
+the overhang with all faces applied, including any enclosing
+brackets (which are not normally fontified) and a trailing space.
+It can also return nil to tell ERC to fall back to the default
+behavior of taking the length from the first \"word\". This
+variable can be converted to a public one if needed by third
+parties.")
+
+(defvar-local erc-fill--wrap-last-msg nil)
+(defvar-local erc-fill--wrap-max-lull (* 24 60 60))
+
+(defun erc-fill--wrap-continued-message-p ()
+ (prog1 (and-let*
+ ((m (or erc-fill--wrap-last-msg
+ (setq erc-fill--wrap-last-msg (point-min-marker))
+ nil))
+ ((< (1+ (point-min)) (- (point) 2)))
+ (props (save-restriction
+ (widen)
+ (when (eq 'erc-timestamp (field-at-pos m))
+ (set-marker m (field-end m)))
+ (and (eq 'PRIVMSG (get-text-property m 'erc-command))
+ (not (eq (get-text-property m 'font-lock-face)
+ 'erc-action-face))
+ (cons (get-text-property m 'erc-timestamp)
+ (get-text-property (1+ m) 'erc-data)))))
+ (ts (pop props))
+ ((not (time-less-p (erc-stamp--current-time) ts)))
+ ((time-less-p (time-subtract (erc-stamp--current-time) ts)
+ erc-fill--wrap-max-lull))
+ (nick (buffer-substring-no-properties
+ (1+ (point-min)) (- (point) 2)))
+ (props)
+ ((erc-nick-equal-p (car props) nick))))
+ (set-marker erc-fill--wrap-last-msg (point-min))))
+
+(defun erc-fill--wrap-stamp-insert-prefixed-date (args)
+ "Apply `line-prefix' property to args."
+ (let* ((ts-left (car args)))
+ (put-text-property 0 (length ts-left) 'line-prefix
+ `(space :width
+ (- erc-fill--wrap-value
+ ,(length (string-trim-left ts-left))))
+ ts-left))
+ args)
+
+(defun erc-fill-wrap ()
+ "Use text props to mimic the effect of `erc-fill-static'.
+See `erc-fill-wrap-mode' for details."
+ (unless erc-fill-wrap-mode
+ (erc-fill-wrap-mode +1))
+ (save-excursion
+ (goto-char (point-min))
+ (let ((len (or (and erc-fill--wrap-length-function
+ (funcall erc-fill--wrap-length-function))
+ (progn
+ (skip-syntax-forward "^-")
+ (forward-char)
+ ;; Using the `invisible' property might make more
+ ;; sense, but that would require coordination
+ ;; with other modules, like `erc-match'.
+ (cond ((and erc-fill-wrap-merge
+ (erc-fill--wrap-continued-message-p))
+ (put-text-property (point-min) (point)
+ 'display "")
+ 0)
+ ((and erc-fill-wrap-use-pixels
+ (fboundp 'buffer-text-pixel-size))
+ (save-restriction
+ (narrow-to-region (point-min) (point))
+ (list (car (buffer-text-pixel-size)))))
+ (t (- (point) (point-min))))))))
+ ;; Leaving out the final newline doesn't seem to affect anything.
+ (erc-put-text-properties (point-min) (point-max)
+ '(line-prefix wrap-prefix) nil
+ `((space :width (- erc-fill--wrap-value ,len))
+ (space :width erc-fill--wrap-value))))))
+
+;; FIXME use own text property to avoid false positives.
+(defun erc-fill--wrap-merged-button-p (point)
+ (equal "" (get-text-property point 'display)))
+
+(defun erc-fill--wrap-nudge (arg)
+ (when (zerop arg)
+ (setq arg (- erc-fill-static-center erc-fill--wrap-value)))
+ (cl-incf erc-fill--wrap-value arg)
+ arg)
+
+(defun erc-fill-wrap-nudge (arg)
+ "Adjust `erc-fill-wrap' by ARG columns.
+Offer to repeat command in a manner similar to
+`text-scale-adjust'.
+
+ \\`=' Increase indentation by one column
+ \\`-' Decrease indentation by one column
+ \\`0' Reset indentation to the default
+ \\`+' Shift right margin rightward (shrink) by one column
+ \\`_' Shift right margin leftward (grow) by one column
+ \\`)' Reset the right margin to the default
+
+Note that misalignment may occur when messages contain
+decorations applied by third-party modules."
+ (interactive "p")
+ (unless erc-fill--wrap-value
+ (cl-assert (not erc-fill-wrap-mode))
+ (user-error "Minor mode `erc-fill-wrap-mode' disabled"))
+ (unless (get-buffer-window)
+ (user-error "Command called in an undisplayed buffer"))
+ (let* ((total (erc-fill--wrap-nudge arg))
+ (win-ratio (/ (float (- (window-point) (window-start)))
+ (- (window-end nil t) (window-start)))))
+ (when (zerop arg)
+ (setq arg 1))
+ (erc-compat-call
+ set-transient-map
+ (let ((map (make-sparse-keymap)))
+ (dolist (key '(?= ?- ?0))
+ (let ((a (pcase key
+ (?0 0)
+ (?- (- (abs arg)))
+ (_ (abs arg)))))
+ (define-key map (vector (list key))
+ (lambda ()
+ (interactive)
+ (cl-incf total (erc-fill--wrap-nudge a))
+ (recenter (round (* win-ratio (window-height))))))))
+ (dolist (key '(?\) ?_ ?+))
+ (let ((a (pcase key
+ (?\) 0)
+ (?_ (- (abs arg)))
+ (?+ (abs arg)))))
+ (define-key map (vector (list key))
+ (lambda ()
+ (interactive)
+ (erc-stamp--adjust-right-margin (- a))
+ (recenter (round (* win-ratio (window-height))))))))
+ map)
+ t
+ (lambda ()
+ (message "Fill prefix: %d (%+d col%s)"
+ erc-fill--wrap-value total (if (> (abs total) 1) "s" "")))
+ "Use %k for further adjustment"
+ 1)
+ (recenter (round (* win-ratio (window-height))))))
+
(defun erc-fill-regarding-timestamp ()
"Fills a text such that messages start at column `erc-fill-static-center'."
(fill-region (point-min) (point-max) t t)
diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el
index 05a21019042..01eae4b63c5 100644
--- a/lisp/erc/erc-goodies.el
+++ b/lisp/erc/erc-goodies.el
@@ -29,30 +29,13 @@
;;; Code:
-;;; Imenu support
-
(eval-when-compile (require 'cl-lib))
-(require 'erc-common)
-
-(defvar erc-controls-highlight-regexp)
-(defvar erc-controls-remove-regexp)
-(defvar erc-input-marker)
-(defvar erc-insert-marker)
-(defvar erc-server-process)
-(defvar erc-modules)
-(defvar erc-log-p)
-
-(declare-function erc-buffer-list "erc" (&optional predicate proc))
-(declare-function erc-error "erc" (&rest args))
-(declare-function erc-extract-command-from-line "erc" (line))
-(declare-function erc-beg-of-input-line "erc" nil)
+(require 'erc)
-(defun erc-imenu-setup ()
- "Setup Imenu support in an ERC buffer."
- (setq-local imenu-create-index-function #'erc-create-imenu-index))
+(declare-function fringe-columns "fringe" (side &optional real))
+(declare-function pulse-available-p "pulse" nil)
+(declare-function pulse-momentary-highlight-overlay "pulse" (o &optional face))
-(add-hook 'erc-mode-hook #'erc-imenu-setup)
-(autoload 'erc-create-imenu-index "erc-imenu" "Imenu index creation function")
;;; Automatically scroll to bottom
(defcustom erc-input-line-position nil
@@ -65,13 +48,13 @@ argument to `recenter'."
:group 'erc-display
:type '(choice integer (const nil)))
+;;;###autoload(autoload 'erc-scrolltobottom-mode "erc-goodies" nil t)
(define-erc-module scrolltobottom nil
"This mode causes the prompt to stay at the end of the window."
((add-hook 'erc-mode-hook #'erc-add-scroll-to-bottom)
(add-hook 'erc-insert-done-hook #'erc-possibly-scroll-to-bottom)
- (dolist (buffer (erc-buffer-list))
- (with-current-buffer buffer
- (erc-add-scroll-to-bottom))))
+ (unless erc--updating-modules-p
+ (erc-buffer-filter #'erc-add-scroll-to-bottom)))
((remove-hook 'erc-mode-hook #'erc-add-scroll-to-bottom)
(remove-hook 'erc-insert-done-hook #'erc-possibly-scroll-to-bottom)
(dolist (buffer (erc-buffer-list))
@@ -116,6 +99,7 @@ variable `erc-input-line-position'."
(recenter (or erc-input-line-position -1)))))))
;;; Make read only
+;;;###autoload(autoload 'erc-readonly-mode "erc-goodies" nil t)
(define-erc-module readonly nil
"This mode causes all inserted text to be read-only."
((add-hook 'erc-insert-post-hook #'erc-make-read-only)
@@ -131,12 +115,12 @@ Put this function on `erc-insert-post-hook' and/or
`erc-send-post-hook'."
(put-text-property (point-min) (point-max) 'rear-nonsticky t))
;;; Move to prompt when typing text
+;;;###autoload(autoload 'erc-move-to-prompt-mode "erc-goodies" nil t)
(define-erc-module move-to-prompt nil
"This mode causes the point to be moved to the prompt when typing text."
((add-hook 'erc-mode-hook #'erc-move-to-prompt-setup)
- (dolist (buffer (erc-buffer-list))
- (with-current-buffer buffer
- (erc-move-to-prompt-setup))))
+ (unless erc--updating-modules-p
+ (erc-buffer-filter #'erc-move-to-prompt-setup)))
((remove-hook 'erc-mode-hook #'erc-move-to-prompt-setup)
(dolist (buffer (erc-buffer-list))
(with-current-buffer buffer
@@ -155,11 +139,154 @@ Put this function on `erc-insert-post-hook' and/or
`erc-send-post-hook'."
(add-hook 'pre-command-hook #'erc-move-to-prompt nil t))
;;; Keep place in unvisited channels
+;;;###autoload(autoload 'erc-keep-place-mode "erc-goodies" nil t)
(define-erc-module keep-place nil
"Leave point above un-viewed text in other channels."
((add-hook 'erc-insert-pre-hook #'erc-keep-place))
((remove-hook 'erc-insert-pre-hook #'erc-keep-place)))
+(defcustom erc-keep-place-indicator-style t
+ "Flavor of visual indicator applied to kept place.
+For use with the `keep-place-indicator' module. A value of `arrow'
+displays an arrow in the left fringe or margin. When it's
+`face', ERC adds the face `erc-keep-place-indicator-line' to the
+appropriate line. A value of t does both."
+ :group 'erc
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type '(choice (const t) (const server) (const target)))
+
+(defcustom erc-keep-place-indicator-buffer-type t
+ "ERC buffer type in which to display `keep-place-indicator'.
+A value of t means \"all\" ERC buffers."
+ :group 'erc
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type '(choice (const t) (const server) (const target)))
+
+(defcustom erc-keep-place-indicator-follow nil
+ "Whether to sync visual kept place to window's top when reading.
+For use with `erc-keep-place-indicator-mode'."
+ :group 'erc
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type 'boolean)
+
+(defface erc-keep-place-indicator-line
+ '((((class color) (min-colors 88) (background light)
+ (supports :underline (:style wave)))
+ (:underline (:color "PaleGreen3" :style wave)))
+ (((class color) (min-colors 88) (background dark)
+ (supports :underline (:style wave)))
+ (:underline (:color "PaleGreen1" :style wave)))
+ (t :underline t))
+ "Face for option `erc-keep-place-indicator-style'."
+ :group 'erc-faces)
+
+(defface erc-keep-place-indicator-arrow
+ '((((class color) (min-colors 88) (background light))
+ (:foreground "PaleGreen3"))
+ (((class color) (min-colors 88) (background dark))
+ (:foreground "PaleGreen1"))
+ (t :inherit fringe))
+ "Face for arrow value of option `erc-keep-place-indicator-style'."
+ :group 'erc-faces)
+
+(defvar-local erc--keep-place-indicator-overlay nil
+ "Overlay for `erc-keep-place-indicator-mode'.")
+
+(defun erc--keep-place-indicator-on-window-configuration-change ()
+ "Maybe sync `erc--keep-place-indicator-overlay'.
+Specifically, do so unless switching to or from another window in
+the active frame."
+ (when erc-keep-place-indicator-follow
+ (unless (or (minibuffer-window-active-p (minibuffer-window))
+ (eq (window-old-buffer) (current-buffer)))
+ (when (< (overlay-end erc--keep-place-indicator-overlay)
+ (window-start)
+ erc-insert-marker)
+ (erc-keep-place-move (window-start))))))
+
+(defun erc--keep-place-indicator-setup ()
+ "Initialize buffer for maintaining `erc--keep-place-indicator-overlay'."
+ (require 'fringe)
+ (erc--restore-initialize-priors erc-keep-place-indicator-mode
+ erc--keep-place-indicator-overlay (make-overlay 0 0))
+ (add-hook 'window-configuration-change-hook
+ #'erc--keep-place-indicator-on-window-configuration-change nil t)
+ (when-let* (((memq erc-keep-place-indicator-style '(t arrow)))
+ (display (if (zerop (fringe-columns 'left))
+ `((margin left-margin) ,overlay-arrow-string)
+ '(left-fringe right-triangle
+ erc-keep-place-indicator-arrow)))
+ (bef (propertize " " 'display display)))
+ (overlay-put erc--keep-place-indicator-overlay 'before-string bef))
+ (when (memq erc-keep-place-indicator-style '(t face))
+ (overlay-put erc--keep-place-indicator-overlay 'face
+ 'erc-keep-place-indicator-line)))
+
+;;;###autoload(put 'keep-place-indicator 'erc--feature 'erc-goodies)
+(define-erc-module keep-place-indicator nil
+ "`keep-place' with a fringe arrow and/or highlighted face."
+ ((unless erc-keep-place-mode
+ (unless (memq 'keep-place erc-modules)
+ (erc--warn-once-before-connect 'erc-keep-place-mode
+ "Local module `keep-place-indicator' needs module `keep-place'."
+ " Enabling now. This will affect \C-]all\C-] ERC sessions."
+ " Add `keep-place' to `erc-modules' to silence this message."))
+ (erc-keep-place-mode +1))
+ (if (pcase erc-keep-place-indicator-buffer-type
+ ('target erc--target)
+ ('server (not erc--target))
+ ('t t))
+ (erc--keep-place-indicator-setup)
+ (setq erc-keep-place-indicator-mode nil)))
+ ((when erc--keep-place-indicator-overlay
+ (delete-overlay erc--keep-place-indicator-overlay)
+ (remove-hook 'window-configuration-change-hook
+ #'erc--keep-place-indicator-on-window-configuration-change t)
+ (kill-local-variable 'erc--keep-place-indicator-overlay)))
+ 'local)
+
+(defun erc-keep-place-move (pos)
+ "Move keep-place indicator to current line or POS.
+For use with `keep-place-indicator' module. When called
+interactively, interpret POS as an offset. Specifically, when
+POS is a raw prefix arg, like (4), move the indicator to the
+window's last line. When it's the minus sign, put it on the
+window's first line. Interpret an integer as an offset in lines."
+ (interactive
+ (progn
+ (unless erc-keep-place-indicator-mode
+ (user-error "`erc-keep-place-indicator-mode' not enabled"))
+ (list (pcase current-prefix-arg
+ ((and (pred integerp) v)
+ (save-excursion
+ (let ((inhibit-field-text-motion t))
+ (forward-line v)
+ (point))))
+ (`(,_) (1- (min erc-insert-marker (window-end))))
+ ('- (min (1- erc-insert-marker) (window-start)))))))
+ (save-excursion
+ (let ((inhibit-field-text-motion t))
+ (when pos
+ (goto-char pos))
+ (move-overlay erc--keep-place-indicator-overlay
+ (line-beginning-position)
+ (line-end-position)))))
+
+(defun erc-keep-place-goto ()
+ "Jump to keep-place indicator.
+For use with `keep-place-indicator' module."
+ (interactive
+ (prog1 nil
+ (unless erc-keep-place-indicator-mode
+ (user-error "`erc-keep-place-indicator-mode' not enabled"))
+ (deactivate-mark)
+ (push-mark)))
+ (goto-char (overlay-start erc--keep-place-indicator-overlay))
+ (recenter (truncate (* (window-height) 0.25)) t)
+ (require 'pulse)
+ (when (pulse-available-p)
+ (pulse-momentary-highlight-overlay erc--keep-place-indicator-overlay)))
+
(defun erc-keep-place (_ignored)
"Move point away from the last line in a non-selected ERC buffer."
(when (and (not (eq (window-buffer (selected-window))
@@ -168,6 +295,11 @@ Put this function on `erc-insert-post-hook' and/or
`erc-send-post-hook'."
(deactivate-mark)
(goto-char (erc-beg-of-input-line))
(forward-line -1)
+ (when erc-keep-place-indicator-mode
+ (unless (or (minibuffer-window-active-p (selected-window))
+ (and (frame-visible-p (selected-frame))
+ (get-buffer-window (current-buffer) (selected-frame))))
+ (erc-keep-place-move nil)))
;; if `switch-to-buffer-preserve-window-point' is set,
;; we cannot rely on point being saved, and must commit
;; it to window-prev-buffers.
@@ -193,12 +325,14 @@ Put this function on `erc-insert-post-hook' and/or
`erc-send-post-hook'."
If a command's function symbol is in this list, the typed command
does not appear in the ERC buffer after the user presses ENTER.")
+;;;###autoload(autoload 'erc-noncommands-mode "erc-goodies" nil t)
(define-erc-module noncommands nil
"This mode distinguishes non-commands.
Commands listed in `erc-insert-this' know how to display
themselves."
- ((add-hook 'erc-pre-send-functions #'erc-send-distinguish-noncommands))
- ((remove-hook 'erc-pre-send-functions #'erc-send-distinguish-noncommands)))
+ ((add-hook 'erc--input-review-functions #'erc-send-distinguish-noncommands))
+ ((remove-hook 'erc--input-review-functions
+ #'erc-send-distinguish-noncommands)))
(defun erc-send-distinguish-noncommands (state)
"If STR is an ERC non-command, set `insertp' in STATE to nil."
@@ -251,6 +385,12 @@ The value `erc-interpret-controls-p' must also be t for
this to work."
"ERC inverse face."
:group 'erc-faces)
+(defface erc-spoiler-face
+ '((((background light)) :foreground "DimGray" :background "DimGray")
+ (((background dark)) :foreground "LightGray" :background "LightGray"))
+ "ERC spoiler face."
+ :group 'erc-faces)
+
(defface erc-underline-face '((t :underline t))
"ERC underline face."
:group 'erc-faces)
@@ -353,19 +493,38 @@ The value `erc-interpret-controls-p' must also be t for
this to work."
"ERC face."
:group 'erc-faces)
+;; https://lists.gnu.org/archive/html/emacs-erc/2021-07/msg00005.html
+(defvar erc--controls-additional-colors
+ ["#470000" "#472100" "#474700" "#324700" "#004700" "#00472c"
+ "#004747" "#002747" "#000047" "#2e0047" "#470047" "#47002a"
+ "#740000" "#743a00" "#747400" "#517400" "#007400" "#007449"
+ "#007474" "#004074" "#000074" "#4b0074" "#740074" "#740045"
+ "#b50000" "#b56300" "#b5b500" "#7db500" "#00b500" "#00b571"
+ "#00b5b5" "#0063b5" "#0000b5" "#7500b5" "#b500b5" "#b5006b"
+ "#ff0000" "#ff8c00" "#ffff00" "#b2ff00" "#00ff00" "#00ffa0"
+ "#00ffff" "#008cff" "#0000ff" "#a500ff" "#ff00ff" "#ff0098"
+ "#ff5959" "#ffb459" "#ffff71" "#cfff60" "#6fff6f" "#65ffc9"
+ "#6dffff" "#59b4ff" "#5959ff" "#c459ff" "#ff66ff" "#ff59bc"
+ "#ff9c9c" "#ffd39c" "#ffff9c" "#e2ff9c" "#9cff9c" "#9cffdb"
+ "#9cffff" "#9cd3ff" "#9c9cff" "#dc9cff" "#ff9cff" "#ff94d3"
+ "#000000" "#131313" "#282828" "#363636" "#4d4d4d" "#656565"
+ "#818181" "#9f9f9f" "#bcbcbc" "#e2e2e2" "#ffffff"])
+
(defun erc-get-bg-color-face (n)
"Fetches the right face for background color N (0-15)."
(if (stringp n) (setq n (string-to-number n)))
(if (not (numberp n))
(prog1 'default
(erc-error "erc-get-bg-color-face: n is NaN: %S" n))
- (when (> n 16)
+ (when (> n 99)
(erc-log (format " Wrong color: %s" n))
(setq n (mod n 16)))
(cond
((and (>= n 0) (< n 16))
(intern (concat "bg:erc-color-face" (number-to-string n))))
- (t (erc-log (format " Wrong color: %s" n)) 'default))))
+ ((< 15 n 99)
+ (list :background (aref erc--controls-additional-colors (- n 16))))
+ (t (erc-log (format " Wrong color: %s" n)) '(default)))))
(defun erc-get-fg-color-face (n)
"Fetches the right face for foreground color N (0-15)."
@@ -373,20 +532,44 @@ The value `erc-interpret-controls-p' must also be t for
this to work."
(if (not (numberp n))
(prog1 'default
(erc-error "erc-get-fg-color-face: n is NaN: %S" n))
- (when (> n 16)
+ (when (> n 99)
(erc-log (format " Wrong color: %s" n))
(setq n (mod n 16)))
(cond
((and (>= n 0) (< n 16))
(intern (concat "fg:erc-color-face" (number-to-string n))))
- (t (erc-log (format " Wrong color: %s" n)) 'default))))
+ ((< 15 n 99)
+ (list :foreground (aref erc--controls-additional-colors (- n 16))))
+ (t (erc-log (format " Wrong color: %s" n)) '(default)))))
+;;;###autoload(autoload 'erc-irccontrols-mode "erc-goodies" nil t)
(define-erc-module irccontrols nil
"This mode enables the interpretation of IRC control chars."
((add-hook 'erc-insert-modify-hook #'erc-controls-highlight)
- (add-hook 'erc-send-modify-hook #'erc-controls-highlight))
+ (add-hook 'erc-send-modify-hook #'erc-controls-highlight)
+ (erc--modify-local-map t "C-c C-c" #'erc-toggle-interpret-controls))
((remove-hook 'erc-insert-modify-hook #'erc-controls-highlight)
- (remove-hook 'erc-send-modify-hook #'erc-controls-highlight)))
+ (remove-hook 'erc-send-modify-hook #'erc-controls-highlight)
+ (erc--modify-local-map nil "C-c C-c" #'erc-toggle-interpret-controls)))
+
+;; These patterns were moved here to circumvent compiler warnings but
+;; otherwise translated verbatim from their original string-literal
+;; definitions (minus a small bug fix to satisfy newly added tests).
+(defvar erc-controls-remove-regexp
+ (rx (or ?\C-b ?\C-\] ?\C-_ ?\C-v ?\C-g ?\C-o
+ (: ?\C-c (? (any "0-9")) (? (any "0-9"))
+ (? (group ?, (any "0-9") (? (any "0-9")))))))
+ "Regular expression matching control characters to remove.")
+
+;; Before the change to `rx', group 3 used to be a sibling of group 2.
+;; This was assumed to be a bug. A few minor simplifications were
+;; also performed. If incorrect, please admonish.
+(defvar erc-controls-highlight-regexp
+ (rx (group (or ?\C-b ?\C-\] ?\C-v ?\C-_ ?\C-g ?\C-o
+ (: ?\C-c (? (group (** 1 2 (any "0-9")))
+ (? (group ?, (group (** 1 2 (any "0-9")))))))))
+ (group (* (not (any ?\C-b ?\C-c ?\C-g ?\n ?\C-o ?\C-v ?\C-\] ?\C-_)))))
+ "Regular expression matching control chars to highlight.")
(defun erc-controls-interpret (str)
"Return a copy of STR after dealing with IRC control characters.
@@ -440,6 +623,7 @@ See `erc-interpret-controls-p' and
`erc-interpret-mirc-color' for options."
s))
(t s)))))
+;;;###autoload
(defun erc-controls-strip (str)
"Return a copy of STR with all IRC control characters removed."
(when str
@@ -448,16 +632,6 @@ See `erc-interpret-controls-p' and
`erc-interpret-mirc-color' for options."
(setq s (replace-match "" nil nil s)))
s)))
-(defvar erc-controls-remove-regexp
-
"\C-b\\|\C-]\\|\C-_\\|\C-v\\|\C-g\\|\C-o\\|\C-c[0-9]?[0-9]?\\(,[0-9][0-9]?\\)?"
- "Regular expression which matches control characters to remove.")
-
-(defvar erc-controls-highlight-regexp
- (concat "\\(\C-b\\|\C-]\\|\C-v\\|\C-_\\|\C-g\\|\C-o\\|"
- "\C-c\\([0-9][0-9]?\\)?\\(,\\([0-9][0-9]?\\)\\)?\\)"
- "\\([^\C-b\C-]\C-v\C-_\C-c\C-g\C-o\n]*\\)")
- "Regular expression which matches control chars and the text to highlight.")
-
(defun erc-controls-highlight ()
"Highlight IRC control chars in the buffer.
This is useful for `erc-insert-modify-hook' and `erc-send-modify-hook'.
@@ -514,6 +688,13 @@ Also see `erc-interpret-controls-p' and
`erc-interpret-mirc-color'."
"Prepend properties from IRC control characters between FROM and TO.
If optional argument STR is provided, apply to STR, otherwise prepend
properties
to a region in the current buffer."
+ (if (and fg bg (equal fg bg))
+ (progn
+ (setq fg 'erc-spoiler-face
+ bg nil)
+ (put-text-property from to 'mouse-face 'erc-inverse-face str))
+ (when fg (setq fg (erc-get-fg-color-face fg)))
+ (when bg (setq bg (erc-get-bg-color-face bg))))
(font-lock-prepend-text-property
from
to
@@ -531,10 +712,10 @@ to a region in the current buffer."
'(erc-underline-face)
nil)
(if fg
- (list (erc-get-fg-color-face fg))
+ (list fg)
nil)
(if bg
- (list (erc-get-bg-color-face bg))
+ (list bg)
nil))
str)
str)
@@ -553,6 +734,7 @@ Else interpretation is turned off."
(if erc-interpret-controls-p "ON" "OFF")))
;; Smiley
+;;;###autoload(autoload 'erc-smiley-mode "erc-goodies" nil t)
(define-erc-module smiley nil
"This mode translates text-smileys such as :-) into pictures.
This requires the function `smiley-region', which is defined in
@@ -569,6 +751,7 @@ This function should be used with `erc-insert-modify-hook'."
(smiley-region (point-min) (point-max))))
;; Unmorse
+;;;###autoload(autoload 'erc-unmorse-mode "erc-goodies" nil t)
(define-erc-module unmorse nil
"This mode causes morse code in the current channel to be unmorsed."
((add-hook 'erc-insert-modify-hook #'erc-unmorse))
@@ -611,3 +794,7 @@ servers. If called from a program, PROC specifies the
server process."
(provide 'erc-goodies)
;;; erc-goodies.el ends here
+
+;; Local Variables:
+;; generated-autoload-file: "erc-loaddefs.el"
+;; End:
diff --git a/lisp/erc/erc-ibuffer.el b/lisp/erc/erc-ibuffer.el
index 6699afe36a0..612814ac6da 100644
--- a/lisp/erc/erc-ibuffer.el
+++ b/lisp/erc/erc-ibuffer.el
@@ -32,6 +32,7 @@
(require 'ibuffer)
(require 'ibuf-ext)
(require 'erc)
+(require 'erc-goodies) ; `erc-controls-interpret'
(defgroup erc-ibuffer nil
"The Ibuffer group for ERC."
diff --git a/lisp/erc/erc-imenu.el b/lisp/erc/erc-imenu.el
index 6223cd3d06f..9864d7c4042 100644
--- a/lisp/erc/erc-imenu.el
+++ b/lisp/erc/erc-imenu.el
@@ -52,7 +52,8 @@ Don't rely on this function, read it first!"
(forward-line 1)
(looking-at " "))
(forward-line 1))
- (end-of-line) (point)))))
+ (end-of-line) (point))))
+ (inhibit-read-only t))
(with-temp-buffer
(insert str)
(goto-char (point-min))
@@ -124,6 +125,27 @@ Don't rely on this function, read it first!"
index-alist))
index-alist))
+(defvar-local erc-imenu--create-index-function nil
+ "Previous local value of `imenu-create-index-function', if any.")
+
+(defun erc-imenu-setup ()
+ "Wire up support for Imenu in an ERC buffer."
+ (when (and (local-variable-p 'imenu-create-index-function)
+ imenu-create-index-function)
+ (setq erc-imenu--create-index-function imenu-create-index-function))
+ (setq imenu-create-index-function #'erc-create-imenu-index))
+
+;;;###autoload(autoload 'erc-imenu-mode "erc-imenu" nil t)
+(define-erc-module imenu nil
+ "Simple Imenu integration for ERC."
+ ((add-hook 'erc-mode-hook #'erc-imenu-setup)
+ (unless erc--updating-modules-p (erc-buffer-filter #'erc-imenu-setup)))
+ ((remove-hook 'erc-mode-hook #'erc-imenu-setup)
+ (erc-with-all-buffers-of-server nil nil
+ (when erc-imenu--create-index-function
+ (setq imenu-create-index-function erc-imenu--create-index-function)
+ (kill-local-variable 'erc-imenu--create-index-function)))))
+
(provide 'erc-imenu)
;;; erc-imenu.el ends here
diff --git a/lisp/erc/erc-join.el b/lisp/erc/erc-join.el
index 17104da1a8b..45cfd565f89 100644
--- a/lisp/erc/erc-join.el
+++ b/lisp/erc/erc-join.el
@@ -78,10 +78,11 @@ keeps track of what channels you are on, and will join them
again when you get disconnected. When you restart Emacs, however,
those changes are lost, and the customization you saved the last
time is used again."
- :type '(repeat (cons :tag "Server"
- (regexp :tag "Name")
- (repeat :tag "Channels"
- (string :tag "Name")))))
+ :type '(alist :options (Libera.Chat)
+ :key-type (choice :tag "Server"
+ (symbol :tag "Network")
+ (regexp :tag "Host or domain"))
+ :value-type (repeat :tag "Channels" (string :tag "Name"))))
(defcustom erc-autojoin-timing 'connect
"When ERC should attempt to autojoin a channel.
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el
index 2cb9031640d..d3106da4017 100644
--- a/lisp/erc/erc-log.el
+++ b/lisp/erc/erc-log.el
@@ -124,6 +124,7 @@ custom function which returns the directory part and set
(defcustom erc-truncate-buffer-on-save nil
"Erase the contents of any ERC (channel, query, server) buffer when it is
saved."
:type 'boolean)
+(make-obsolete 'erc-truncate-buffer-on-save 'erc-cmd-CLEAR "30.1")
(defcustom erc-enable-logging t
"If non-nil, ERC will log IRC conversations.
@@ -198,6 +199,7 @@ This should ideally, be a \"catch-all\" coding system, like
The function should take one argument, which is the text to filter."
:type '(choice (function "Function")
+ (function-item erc-stamp-prefix-log-filter)
(const :tag "No filtering" nil)))
@@ -229,8 +231,10 @@ also be a predicate function. To only log when you are
not set away, use:
(add-hook 'erc-part-hook #'erc-conditional-save-buffer)
;; append, so that 'erc-initialize-log-marker runs first
(add-hook 'erc-connect-pre-hook #'erc-log-setup-logging 'append)
+ (add-hook 'erc--pre-clear-functions #'erc-save-buffer-in-logs)
(dolist (buffer (erc-buffer-list))
- (erc-log-setup-logging buffer)))
+ (erc-log-setup-logging buffer))
+ (erc--modify-local-map t "C-c C-l" #'erc-save-buffer-in-logs))
;; disable
((remove-hook 'erc-insert-post-hook #'erc-save-buffer-in-logs)
(remove-hook 'erc-send-post-hook #'erc-save-buffer-in-logs)
@@ -240,10 +244,10 @@ also be a predicate function. To only log when you are
not set away, use:
(remove-hook 'erc-quit-hook #'erc-conditional-save-queries)
(remove-hook 'erc-part-hook #'erc-conditional-save-buffer)
(remove-hook 'erc-connect-pre-hook #'erc-log-setup-logging)
+ (remove-hook 'erc--pre-clear-functions #'erc-save-buffer-in-logs)
(dolist (buffer (erc-buffer-list))
- (erc-log-disable-logging buffer))))
-
-(define-key erc-mode-map "\C-c\C-l" #'erc-save-buffer-in-logs)
+ (erc-log-disable-logging buffer))
+ (erc--modify-local-map nil "C-c C-l" #'erc-save-buffer-in-logs)))
;;; functionality referenced from erc.el
(defun erc-log-setup-logging (buffer)
@@ -300,6 +304,8 @@ Returns nil if `erc-server-buffer-p' returns t."
(dolist (buffer (erc-buffer-list))
(erc-save-buffer-in-logs buffer)))
+(defvar erc-log--save-in-progress-p nil)
+
;;;###autoload
(defun erc-logging-enabled (&optional buffer)
"Return non-nil if logging is enabled for BUFFER.
@@ -309,6 +315,7 @@ is writable (it will be created as necessary) and
`erc-enable-logging' returns a non-nil value."
(or buffer (setq buffer (current-buffer)))
(and erc-log-channels-directory
+ (not erc-log--save-in-progress-p)
(or (functionp erc-log-channels-directory)
(erc-directory-writable-p erc-log-channels-directory))
(if (functionp erc-enable-logging)
@@ -398,7 +405,7 @@ automatically.
You can save every individual message by putting this function on
`erc-insert-post-hook'."
(interactive)
- (or buffer (setq buffer (current-buffer)))
+ (unless (bufferp buffer) (setq buffer (current-buffer)))
(when (erc-logging-enabled buffer)
(let ((file (erc-current-logfile buffer))
(coding-system erc-log-file-coding-system))
@@ -422,10 +429,11 @@ You can save every individual message by putting this
function on
(write-region start end file t 'nomessage))))
(if (and erc-truncate-buffer-on-save
(called-interactively-p 'interactive))
- (progn
- (let ((inhibit-read-only t)) (erase-buffer))
- (move-marker erc-last-saved-position (point-max))
- (erc-display-prompt))
+ (let ((erc-log--save-in-progress-p t))
+ (erc-cmd-CLEAR)
+ (erc-button--display-error-notice-with-keys
+ (erc-server-buffer) "Option `%s' is deprecated."
+ " Use /CLEAR instead." 'erc-truncate-buffer-on-save))
(move-marker erc-last-saved-position
;; If we place erc-last-saved-position at
;; erc-insert-marker, because text gets
diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el
index 52ee5c855f3..86883260413 100644
--- a/lisp/erc/erc-match.el
+++ b/lisp/erc/erc-match.el
@@ -52,8 +52,15 @@ they are hidden or highlighted. This is controlled via the
variables
`erc-current-nick-highlight-type'. For all these highlighting types,
you can decide whether the entire message or only the sending nick is
highlighted."
- ((add-hook 'erc-insert-modify-hook #'erc-match-message 'append))
- ((remove-hook 'erc-insert-modify-hook #'erc-match-message)))
+ ((add-hook 'erc-insert-modify-hook #'erc-match-message 'append)
+ (add-hook 'erc-mode-hook #'erc-match--modify-invisibility-spec)
+ (unless erc--updating-modules-p
+ (erc-buffer-filter #'erc-match--modify-invisibility-spec))
+ (erc--modify-local-map t "C-c C-k" #'erc-go-to-log-matches-buffer))
+ ((remove-hook 'erc-insert-modify-hook #'erc-match-message)
+ (remove-hook 'erc-mode-hook #'erc-match--modify-invisibility-spec)
+ (erc-match--modify-invisibility-spec)
+ (erc--modify-local-map nil "C-c C-k" #'erc-go-to-log-matches-buffer)))
;; Remaining customizations
@@ -647,15 +654,24 @@ See `erc-log-match-format'."
(get-buffer (car buffer-cons))))))
(switch-to-buffer buffer-name)))
-(define-key erc-mode-map "\C-c\C-k" #'erc-go-to-log-matches-buffer)
+(defvar-local erc-match--hide-fools-offset-bounds nil)
+;; FIXME this should merge with instead of overwrite existing
+;; `invisible' values.
(defun erc-hide-fools (match-type _nickuserhost _message)
"Hide foolish comments.
This function should be called from `erc-text-matched-hook'."
- (when (eq match-type 'fool)
- (erc-put-text-properties (point-min) (point-max)
- '(invisible intangible)
- (current-buffer))))
+ (when (eq match-type 'fool)
+ (if erc-match--hide-fools-offset-bounds
+ (let ((beg (point-min))
+ (end (point-max)))
+ (save-restriction
+ (widen)
+ (put-text-property (1- beg) (1- end) 'invisible 'erc-match)))
+ ;; The docs say `intangible' is deprecated, but this has been
+ ;; like this for ages. Should verify unneeded and remove if so.
+ (erc-put-text-properties (point-min) (point-max)
+ '(invisible intangible)))))
(defun erc-beep-on-match (match-type _nickuserhost _message)
"Beep when text matches.
@@ -663,6 +679,13 @@ This function is meant to be called from
`erc-text-matched-hook'."
(when (member match-type erc-beep-match-types)
(beep)))
+(defun erc-match--modify-invisibility-spec ()
+ "Add an ellipsis property to the local spec."
+ (if erc-match-mode
+ (add-to-invisibility-spec 'erc-match)
+ (erc-with-all-buffers-of-server nil nil
+ (remove-from-invisibility-spec 'erc-match))))
+
(provide 'erc-match)
;;; erc-match.el ends here
diff --git a/lisp/erc/erc-netsplit.el b/lisp/erc/erc-netsplit.el
index f3572014f27..5dd11ab1869 100644
--- a/lisp/erc/erc-netsplit.el
+++ b/lisp/erc/erc-netsplit.el
@@ -117,7 +117,9 @@ join from that split has been detected or not.")
parsed 'notice (process-buffer proc)
'netjoin-done ?s (car elt))
(setq erc-netsplit-list (delq elt erc-netsplit-list)))
- (delete nick elt))
+ ;; Avoid `ignored-return-value' warning for `delete'.
+ (let ((tail (nthcdr 2 elt))) ; (t n1 ... nN)
+ (setcdr tail (delete nick (cdr tail)))))
(setq no-next-hook t))))
no-next-hook))
diff --git a/lisp/erc/erc-networks.el b/lisp/erc/erc-networks.el
index 95fd8990c99..dd481032e7e 100644
--- a/lisp/erc/erc-networks.el
+++ b/lisp/erc/erc-networks.el
@@ -67,6 +67,9 @@
(declare-function erc-server-process-alive "erc-backend" (&optional buffer))
(declare-function erc-set-active-buffer "erc" (buffer))
+(declare-function erc-button--display-error-notice-with-keys
+ (parsed &rest strings))
+
;; Variables
(defgroup erc-networks nil
@@ -1292,7 +1295,6 @@ shutting down the connection."
erc-server-announced-name "\" in `erc-networks-alist'"
" or consider calling `erc-tls' with the keyword `:id'."
" See Info:\"(erc) Network Identifier\" for more.")))
- (require 'info)
(erc-display-error-notice parsed m)
(if erc-networks--allow-unknown-network
(progn
@@ -1311,12 +1313,11 @@ shutting down the connection."
Copy source (prefix) from MOTD-ish message as a last resort."
;; The 004 handler never ran; see 2004-03-10 Diane Murray in change log
(unless erc-server-announced-name
- (setq erc-server-announced-name (erc-response.sender parsed))
- (erc-display-error-notice
- parsed (concat "Failed to determine server name. Using \""
- erc-server-announced-name "\" instead."
- " If this was unexpected, consider reporting it via "
- (substitute-command-keys "\\[erc-bug]") ".")))
+ (require 'erc-button)
+ (erc-button--display-error-notice-with-keys
+ parsed "Failed to determine server name. Using \""
+ (setq erc-server-announced-name (erc-response.sender parsed)) "\" instead"
+ ". If this was unexpected, consider reporting it via \\[erc-bug]" "."))
nil)
(defun erc-unset-network-name (_nick _ip _reason)
@@ -1494,9 +1495,9 @@ to be a false alarm. If `erc-reuse-buffers' is nil, let
(memq (erc--target-symbol erc--target)
erc-networks--bouncer-targets)))
proc)
- (let ((m (concat "Unexpected state detected. Please report via "
- (substitute-command-keys "\\[erc-bug]") ".")))
- (erc-display-error-notice parsed m))))
+ (require 'erc-button)
+ (erc-button--display-error-notice-with-keys
+ parsed "Unexpected state detected. Please report via \\[erc-bug].")))
;; For now, retain compatibility with erc-server-NNN-functions.
(or (erc-networks--ensure-announced proc parsed)
@@ -1514,7 +1515,6 @@ to be a false alarm. If `erc-reuse-buffers' is nil, let
"Emit warning when the `networks' module hasn't been loaded.
Ideally, do so upon opening the network process."
(unless (or erc--target erc-networks-mode)
- (require 'info nil t)
(let ((m (concat "Required module `networks' not loaded. If this "
" was unexpected, please add it to `erc-modules'.")))
;; Assume the server buffer has been marked as active.
diff --git a/lisp/erc/erc-page.el b/lisp/erc/erc-page.el
index 308b3784ca5..a94678e5132 100644
--- a/lisp/erc/erc-page.el
+++ b/lisp/erc/erc-page.el
@@ -30,10 +30,13 @@
(require 'erc)
+(declare-function erc-controls-interpret "erc-goodies" (str))
+
(defgroup erc-page nil
"React to CTCP PAGE messages."
:group 'erc)
+;;;###autoload(put 'ctcp-page 'erc--module 'page)
;;;###autoload(autoload 'erc-page-mode "erc-page")
(define-erc-module page ctcp-page
"Process CTCP PAGE requests from IRC."
@@ -69,6 +72,7 @@ SENDER and MSG, so that might be easier to use."
This will call `erc-page-function', if defined, or it will just print
a message and `beep'. In addition to that, the page message is also
inserted into the server buffer."
+ (require 'erc-goodies) ; for `erc-controls-interpret'
(when (and erc-page-mode
(string-match "PAGE\\(\\s-+.*\\)?$" msg))
(let* ((m (match-string 1 msg))
diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el
index 0bce856018c..7eb7431fb91 100644
--- a/lisp/erc/erc-pcomplete.el
+++ b/lisp/erc/erc-pcomplete.el
@@ -56,6 +56,8 @@ add this string to nicks completed."
"If t, order nickname completions with the most recent speakers first."
:type 'boolean)
+;;;###autoload(put 'Completion 'erc--module 'completion)
+;;;###autoload(put 'pcomplete 'erc--module 'completion)
;;;###autoload(autoload 'erc-completion-mode "erc-pcomplete" nil t)
(define-erc-module pcomplete Completion
"In ERC Completion mode, the TAB key does completion whenever possible."
diff --git a/lisp/erc/erc-ring.el b/lisp/erc/erc-ring.el
index 2451ac56f6f..4534e913204 100644
--- a/lisp/erc/erc-ring.el
+++ b/lisp/erc/erc-ring.el
@@ -46,10 +46,10 @@
(define-erc-module ring nil
"Stores input in a ring so that previous commands and messages can
be recalled using M-p and M-n."
- ((add-hook 'erc-pre-send-functions #'erc-add-to-input-ring)
+ ((add-hook 'erc--input-review-functions #'erc-add-to-input-ring 90)
(define-key erc-mode-map "\M-p" #'erc-previous-command)
(define-key erc-mode-map "\M-n" #'erc-next-command))
- ((remove-hook 'erc-pre-send-functions #'erc-add-to-input-ring)
+ ((remove-hook 'erc--input-review-functions #'erc-add-to-input-ring)
(define-key erc-mode-map "\M-p" #'undefined)
(define-key erc-mode-map "\M-n" #'undefined)))
diff --git a/lisp/erc/erc-sasl.el b/lisp/erc/erc-sasl.el
index 9265691c2d7..c6922b1b26b 100644
--- a/lisp/erc/erc-sasl.el
+++ b/lisp/erc/erc-sasl.el
@@ -137,12 +137,12 @@ that symbol is `:password', in which case, use a non-nil
`erc-session-password' instead. Otherwise, just defer to
`erc-auth-source-search' to pick a suitable `:host'. Expect
PLIST to contain keyword params known to `auth-source-search'."
- (when erc-sasl-password
- (when-let ((host (if (eq :password erc-sasl-password)
- (and (not (functionp erc-session-password))
- erc-session-password)
- erc-sasl-password)))
- (setq plist `(,@plist :host ,(format "%s" host)))))
+ (when-let* ((erc-sasl-password)
+ (host (if (eq :password erc-sasl-password)
+ (and (not (functionp erc-session-password))
+ erc-session-password)
+ erc-sasl-password)))
+ (setq plist `(,@plist :host ,(format "%s" host))))
(apply #'erc-auth-source-search plist))
(defun erc-sasl--read-password (prompt)
@@ -297,21 +297,6 @@ If necessary, pass PROMPT to `read-passwd'."
(sasl-client-set-property client 'ecdsa-keyfile keyfile)
client)))))
-;; This stands alone because it's also used by bug#49860.
-(defun erc-sasl--init ()
- (setq erc-sasl--state (make-erc-sasl--state))
- ;; If the previous attempt failed during registration, this may be
- ;; non-nil and contain erroneous values, but how can we detect that?
- ;; What if the server dropped the connection for some other reason?
- (setq erc-sasl--options
- (or (and erc--server-reconnecting
- (alist-get 'erc-sasl--options erc--server-reconnecting))
- `((user . ,erc-sasl-user)
- (password . ,erc-sasl-password)
- (mechanism . ,erc-sasl-mechanism)
- (authfn . ,erc-sasl-auth-source-function)
- (authzid . ,erc-sasl-authzid)))))
-
(defun erc-sasl--mechanism-offered-p (offered)
"Return non-nil when OFFERED appears among a list of mechanisms."
(string-match-p (rx-to-string
@@ -334,7 +319,16 @@ If necessary, pass PROMPT to `read-passwd'."
This doesn't solicit or validate a suite of supported mechanisms."
;; See bug#49860 for a CAP 3.2-aware WIP implementation.
((unless erc--target
- (erc-sasl--init)
+ (setq erc-sasl--state (make-erc-sasl--state))
+ ;; If the previous attempt failed during registration, this may be
+ ;; non-nil and contain erroneous values, but how can we detect that?
+ ;; What if the server dropped the connection for some other reason?
+ (erc--restore-initialize-priors erc-sasl-mode
+ erc-sasl--options `((user . ,erc-sasl-user)
+ (password . ,erc-sasl-password)
+ (mechanism . ,erc-sasl-mechanism)
+ (authfn . ,erc-sasl-auth-source-function)
+ (authzid . ,erc-sasl-authzid)))
(let* ((mech (alist-get 'mechanism erc-sasl--options))
(client (erc-sasl--create-client mech)))
(unless client
@@ -369,9 +363,12 @@ This doesn't solicit or validate a suite of supported
mechanisms."
data (sasl-step-data step))
(when (string= data "")
(setq data nil))
- (when data
- (setq data (erc--unfun (base64-encode-string data t))))
- (erc-server-send (concat "AUTHENTICATE " (or data "+"))))))
+ (setq data (if data (erc--unfun (base64-encode-string data t)) "+"))
+ (while (not (string-empty-p data))
+ (let ((end (min 400 (length data))))
+ ;; For now, assume this is unlikely to block
+ (erc-server-send (concat "AUTHENTICATE " (substring data 0 end)))
+ (setq data (concat (substring data end) (and (= end 400) "+"))))))))
(defun erc-sasl--destroy (proc)
(run-hook-with-args 'erc-quit-hook proc)
diff --git a/lisp/erc/erc-services.el b/lisp/erc/erc-services.el
index 2e6959cc3f0..5408ba405db 100644
--- a/lisp/erc/erc-services.el
+++ b/lisp/erc/erc-services.el
@@ -102,6 +102,7 @@ You can also use \\[erc-nickserv-identify-mode] to change
modes."
(when (featurep 'erc-services)
(erc-nickserv-identify-mode val))))
+;;;###autoload(put 'nickserv 'erc--module 'services)
;;;###autoload(autoload 'erc-services-mode "erc-services" nil t)
(define-erc-module services nickserv
"This mode automates communication with services."
diff --git a/lisp/erc/erc-sound.el b/lisp/erc/erc-sound.el
index 0abdbfd959c..9da9202f0cf 100644
--- a/lisp/erc/erc-sound.el
+++ b/lisp/erc/erc-sound.el
@@ -47,6 +47,7 @@
(require 'erc)
+;;;###autoload(put 'ctcp-sound 'erc--module 'sound)
;;;###autoload(autoload 'erc-sound-mode "erc-sound")
(define-erc-module sound ctcp-sound
"In ERC sound mode, the client will respond to CTCP SOUND requests
diff --git a/lisp/erc/erc-speedbar.el b/lisp/erc/erc-speedbar.el
index 5fca14e2365..a9443e0ea17 100644
--- a/lisp/erc/erc-speedbar.el
+++ b/lisp/erc/erc-speedbar.el
@@ -36,6 +36,7 @@
;;; Code:
(require 'erc)
+(require 'erc-goodies)
(require 'speedbar)
(condition-case nil (require 'dframe) (error nil))
diff --git a/lisp/erc/erc-spelling.el b/lisp/erc/erc-spelling.el
index 8fce2508ceb..8e5424f4162 100644
--- a/lisp/erc/erc-spelling.el
+++ b/lisp/erc/erc-spelling.el
@@ -39,8 +39,9 @@
;; Use erc-connect-pre-hook instead of erc-mode-hook as pre-hook is
;; called AFTER the server buffer is initialized.
((add-hook 'erc-connect-pre-hook #'erc-spelling-init)
- (dolist (buffer (erc-buffer-list))
- (erc-spelling-init buffer)))
+ (unless erc--updating-modules-p
+ (erc-with-all-buffers-of-server nil nil
+ (erc-spelling-init (current-buffer)))))
((remove-hook 'erc-connect-pre-hook #'erc-spelling-init)
(dolist (buffer (erc-buffer-list))
(with-current-buffer buffer (flyspell-mode 0)))))
diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el
index 0aa1590f801..500f6f3c0c9 100644
--- a/lisp/erc/erc-stamp.el
+++ b/lisp/erc/erc-stamp.el
@@ -55,6 +55,9 @@ If nil, timestamping is turned off."
:type '(choice (const nil)
(string)))
+;; FIXME remove surrounding whitespace from default value and have
+;; `erc-insert-timestamp-left-and-right' add it before insertion.
+
(defcustom erc-timestamp-format-left "\n[%a %b %e %Y]\n"
"If set to a string, messages will be timestamped.
This string is processed using `format-time-string'.
@@ -68,7 +71,7 @@ If nil, timestamping is turned off."
:type '(choice (const nil)
(string)))
-(defcustom erc-timestamp-format-right " [%H:%M]"
+(defcustom erc-timestamp-format-right nil
"If set to a string, messages will be timestamped.
This string is processed using `format-time-string'.
Good examples are \"%T\" and \"%H:%M\".
@@ -77,9 +80,14 @@ This timestamp is used for timestamps on the right side of
the
screen when `erc-insert-timestamp-function' is set to
`erc-insert-timestamp-left-and-right'.
-If nil, timestamping is turned off."
+Unlike `erc-timestamp-format' and `erc-timestamp-format-left', if
+the value of this option is nil, it falls back to using the value
+of `erc-timestamp-format'."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
:type '(choice (const nil)
(string)))
+(make-obsolete-variable 'erc-timestamp-format-right
+ 'erc-timestamp-format "30.1")
(defcustom erc-insert-timestamp-function 'erc-insert-timestamp-left-and-right
"Function to use to insert timestamps.
@@ -147,39 +155,77 @@ from entering them and instead jump over them."
"ERC timestamp face."
:group 'erc-faces)
+;; New libraries should only autoload the minor mode for a module's
+;; preferred name (rather than its alias).
+
+;;;###autoload(put 'timestamp 'erc--module 'stamp)
;;;###autoload(autoload 'erc-timestamp-mode "erc-stamp" nil t)
(define-erc-module stamp timestamp
"This mode timestamps messages in the channel buffers."
((add-hook 'erc-mode-hook #'erc-munge-invisibility-spec)
(add-hook 'erc-insert-modify-hook #'erc-add-timestamp t)
- (add-hook 'erc-send-modify-hook #'erc-add-timestamp t))
+ (add-hook 'erc-send-modify-hook #'erc-add-timestamp t)
+ (add-hook 'erc-mode-hook #'erc-stamp--recover-on-reconnect)
+ (add-hook 'erc--pre-clear-functions #'erc-stamp--reset-on-clear)
+ (unless erc--updating-modules-p
+ (erc-buffer-filter #'erc-munge-invisibility-spec)))
((remove-hook 'erc-mode-hook #'erc-munge-invisibility-spec)
(remove-hook 'erc-insert-modify-hook #'erc-add-timestamp)
- (remove-hook 'erc-send-modify-hook #'erc-add-timestamp)))
+ (remove-hook 'erc-send-modify-hook #'erc-add-timestamp)
+ (remove-hook 'erc-mode-hook #'erc-stamp--recover-on-reconnect)
+ (remove-hook 'erc--pre-clear-functions #'erc-stamp--reset-on-clear)
+ (erc-with-all-buffers-of-server nil nil
+ (kill-local-variable 'erc-timestamp-last-inserted)
+ (kill-local-variable 'erc-timestamp-last-inserted-left)
+ (kill-local-variable 'erc-timestamp-last-inserted-right))))
+
+(defun erc-stamp--recover-on-reconnect ()
+ (when-let ((priors (or erc--server-reconnecting erc--target-priors)))
+ (dolist (var '(erc-timestamp-last-inserted
+ erc-timestamp-last-inserted-left
+ erc-timestamp-last-inserted-right))
+ (when-let (existing (alist-get var priors))
+ (set var existing)))))
+
+(defvar erc-stamp--current-time nil
+ "The current time when calling `erc-insert-timestamp-function'.
+Specifically, this is the same lisp time object used to create
+the stamp passed to `erc-insert-timestamp-function'.")
+
+(cl-defgeneric erc-stamp--current-time ()
+ "Return a lisp time object to associate with an IRC message.
+This becomes the message's `erc-timestamp' text property, which
+may not be unique, `equal'-wise."
+ (erc-current-time))
+
+(cl-defmethod erc-stamp--current-time :around ()
+ (or erc-stamp--current-time (cl-call-next-method)))
(defun erc-add-timestamp ()
"Add timestamp and text-properties to message.
This function is meant to be called from `erc-insert-modify-hook'
or `erc-send-modify-hook'."
- (unless (get-text-property (point) 'invisible)
- (let ((ct (current-time)))
- (if (fboundp erc-insert-timestamp-function)
- (funcall erc-insert-timestamp-function
- (erc-format-timestamp ct erc-timestamp-format))
- (error "Timestamp function unbound"))
- (when (and (fboundp erc-insert-away-timestamp-function)
+ (progn ; remove this `progn' on next major refactor
+ (let* ((ct (erc-stamp--current-time))
+ (invisible (get-text-property (point-min) 'invisible))
+ (erc-stamp--current-time ct))
+ (unless invisible
+ (funcall erc-insert-timestamp-function
+ (erc-format-timestamp ct erc-timestamp-format)))
+ ;; FIXME this will error when advice has been applied.
+ (when (and (not invisible) (fboundp erc-insert-away-timestamp-function)
erc-away-timestamp-format
(erc-away-time)
(not erc-timestamp-format))
(funcall erc-insert-away-timestamp-function
(erc-format-timestamp ct erc-away-timestamp-format)))
- (add-text-properties (point-min) (point-max)
+ (add-text-properties (point-min) (1- (point-max))
;; It's important for the function to
;; be different on different entries (bug#22700).
(list 'cursor-sensor-functions
- (list (lambda (_window _before dir)
- (erc-echo-timestamp dir ct))))))))
+ ;; Regions are no longer contiguous ^
+ '(erc--echo-ts-csf) 'erc-timestamp ct)))))
(defvar-local erc-timestamp-last-window-width nil
"The width of the last window that showed the current buffer.
@@ -217,14 +263,113 @@ the correct column."
(integer :tag "Column number")
(const :tag "Unspecified" nil)))
-(defcustom erc-timestamp-use-align-to (eq window-system 'x)
+(defcustom erc-timestamp-use-align-to (and (display-graphic-p) t)
"If non-nil, use the :align-to display property to align the stamp.
This gives better results when variable-width characters (like
Asian language characters and math symbols) precede a timestamp.
-A side effect of enabling this is that there will only be one
-space before a right timestamp in any saved logs."
- :type 'boolean)
+This option only matters when `erc-insert-timestamp-function' is
+set to `erc-insert-timestamp-right' or that option's default,
+`erc-insert-timestamp-left-and-right'. If the value is a
+positive integer, alignment occurs that many columns from the
+right edge. If the value is `margin', the stamp appears in the
+right margin when visible.
+
+Enabling this option produces a side effect in that stamps aren't
+indented in saved logs. When its value is an integer, this
+option adds a space after the end of a message if the stamp
+doesn't already start with one. And when its value is t, it adds
+a single space, unconditionally. And while this option never
+adds a space when its value is `margin', ERC does offer a
+workaround in `erc-stamp-prefix-log-filter', which strips
+trailing stamps from messages and puts them before every line."
+ :type '(choice boolean integer (const margin))
+ :package-version '(ERC . "5.6")) ; FIXME sync on release
+
+(defcustom erc-stamp-right-margin-width nil
+ "Width in columns of the right margin.
+When this option is nil, pretend its value is one column greater
+than the `string-width' of the formatted `erc-timestamp-format'.
+This option only matters when `erc-timestamp-use-align-to' is set
+to `margin'."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :type '(choice (const nil) integer))
+
+(defun erc-stamp--display-margin-force (orig &rest r)
+ (let ((erc-timestamp-use-align-to 'margin))
+ (apply orig r)))
+
+(defun erc-stamp--adjust-right-margin (cols)
+ "Adjust right margin by COLS.
+When COLS is zero, reset width to `erc-stamp-right-margin-width'
+or one col more than the `string-width' of
+`erc-timestamp-format'."
+ (let ((width
+ (if (zerop cols)
+ (or erc-stamp-right-margin-width
+ (1+ (string-width (or erc-timestamp-last-inserted-right
+ (erc-format-timestamp
+ (current-time)
+ erc-timestamp-format)))))
+ (+ right-margin-width cols))))
+ (setq right-margin-width width)
+ (when (eq (current-buffer) (window-buffer))
+ (set-window-margins nil left-margin-width width))))
+
+;;;###autoload
+(defun erc-stamp-prefix-log-filter (text)
+ "Prefix every message in the buffer with a stamp.
+Remove trailing stamps as well. For now, hard code the format to
+\"ZNC\"-log style, which is [HH:MM:SS]. Expect to be used as a
+`erc-log-filter-function' when `erc-timestamp-use-align-to' is
+non-nil."
+ (insert text)
+ (goto-char (point-min))
+ (while
+ (progn
+ (when-let* (((< (point) (pos-eol)))
+ (end (1- (pos-eol)))
+ ((eq 'erc-timestamp (field-at-pos end)))
+ (beg (field-beginning end))
+ ;; Skip a line that's just a timestamp.
+ ((> beg (point))))
+ (delete-region beg (1+ end)))
+ (when-let (time (get-text-property (point) 'erc-timestamp))
+ (insert (format-time-string "[%H:%M:%S] " time)))
+ (zerop (forward-line))))
+ "")
+
+(declare-function erc--remove-text-properties "erc" (string))
+
+;; If people want to use this directly, we can convert it into
+;; a local module.
+(define-minor-mode erc-stamp--display-margin-mode
+ "Internal minor mode for built-in modules integrating with `stamp'.
+It binds `erc-timestamp-use-align-to' to `margin' around calls to
+`erc-insert-timestamp-function' in the current buffer, and sets
+the right window margin to `erc-stamp-right-margin-width'. It
+also arranges to remove most text properties when a user kills
+message text so that stamps will be visible when yanked."
+ :interactive nil
+ (if erc-stamp--display-margin-mode
+ (progn
+ (setq fringes-outside-margins t)
+ (when (eq (current-buffer) (window-buffer))
+ (set-window-buffer (selected-window) (current-buffer)))
+ (erc-stamp--adjust-right-margin 0)
+ (add-function :filter-return (local 'filter-buffer-substring-function)
+ #'erc--remove-text-properties)
+ (add-function :around (local 'erc-insert-timestamp-function)
+ #'erc-stamp--display-margin-force))
+ (remove-function (local 'filter-buffer-substring-function)
+ #'erc--remove-text-properties)
+ (remove-function (local 'erc-insert-timestamp-function)
+ #'erc-stamp--display-margin-force)
+ (kill-local-variable 'right-margin-width)
+ (kill-local-variable 'fringes-outside-margins)
+ (when (eq (current-buffer) (window-buffer))
+ (set-window-margins nil left-margin-width nil)
+ (set-window-buffer (selected-window) (current-buffer)))))
(defun erc-insert-timestamp-left (string)
"Insert timestamps at the beginning of the line."
@@ -243,6 +388,7 @@ space before a right timestamp in any saved logs."
If `erc-timestamp-use-align-to' is t, use the :align-to display
property to get to the POSth column."
+ (declare (obsolete "inlined and removed from client code path" "30.1"))
(if (not erc-timestamp-use-align-to)
(indent-to pos)
(insert " ")
@@ -253,6 +399,8 @@ property to get to the POSth column."
;; Silence byte-compiler
(defvar erc-fill-column)
+(defvar erc-stamp--inherited-props '(line-prefix wrap-prefix))
+
(defun erc-insert-timestamp-right (string)
"Insert timestamp on the right side of the screen.
STRING is the timestamp to insert. This function is a possible
@@ -304,30 +452,57 @@ printed just after each line's text (no alignment)."
;; some margin of error if what is displayed on the line differs
;; from the number of characters on the line.
(setq col (+ col (ceiling (/ (- col (- (point)
(line-beginning-position))) 1.6))))
- (if (< col pos)
- (erc-insert-aligned string pos)
- (newline)
- (indent-to pos)
- (setq from (point))
- (insert string))
+ ;; For compatibility reasons, the `erc-timestamp' field includes
+ ;; intervening white space unless a hard break is warranted.
+ (pcase erc-timestamp-use-align-to
+ ((and 't (guard (< col pos)))
+ (insert " ")
+ (put-text-property from (point) 'display `(space :align-to ,pos)))
+ ((pred integerp) ; (cl-type (integer 0 *))
+ (insert " ")
+ (when (eq ?\s (aref string 0))
+ (setq string (substring string 1)))
+ (let ((s (+ erc-timestamp-use-align-to (string-width string))))
+ (put-text-property from (point) 'display
+ `(space :align-to (- right ,s)))))
+ ('margin
+ (put-text-property 0 (length string)
+ 'display `((margin right-margin) ,string)
+ string))
+ ((guard (>= col pos)) (newline) (indent-to pos) (setq from (point)))
+ (_ (indent-to pos)))
+ (insert string)
+ (dolist (p erc-stamp--inherited-props)
+ (when-let ((v (get-text-property (1- from) p)))
+ (put-text-property from (point) p v)))
(erc-put-text-property from (point) 'field 'erc-timestamp)
(erc-put-text-property from (point) 'rear-nonsticky t)
(when erc-timestamp-intangible
(erc-put-text-property from (1+ (point)) 'cursor-intangible t)))))
-(defun erc-insert-timestamp-left-and-right (_string)
- "This is another function that can be used with
`erc-insert-timestamp-function'.
-If the date is changed, it will print a blank line, the date, and
-another blank line. If the time is changed, it will then print
-it off to the right."
- (let* ((ct (current-time))
- (ts-left (erc-format-timestamp ct erc-timestamp-format-left))
- (ts-right (erc-format-timestamp ct erc-timestamp-format-right)))
+(defvar erc-stamp--insert-date-function #'insert
+ "Function to insert left \"left-right date\" stamp.
+A local module might use this to modify text properties,
+`insert-before-markers' or renarrow the region after insertion.")
+
+(defun erc-insert-timestamp-left-and-right (string)
+ "Insert a stamp on either side when it changes.
+When the deprecated option `erc-timestamp-format-right' is nil,
+use STRING, which originates from `erc-timestamp-format', for the
+right-hand stamp. Use `erc-timestamp-format-left' for the
+left-hand stamp and expect it to change less frequently."
+ (let* ((ct (or erc-stamp--current-time (erc-stamp--current-time)))
+ (ts-left (erc-format-timestamp ct erc-timestamp-format-left))
+ (ts-right (with-suppressed-warnings
+ ((obsolete erc-timestamp-format-right))
+ (if erc-timestamp-format-right
+ (erc-format-timestamp ct erc-timestamp-format-right)
+ string))))
;; insert left timestamp
(unless (string-equal ts-left erc-timestamp-last-inserted-left)
(goto-char (point-min))
(erc-put-text-property 0 (length ts-left) 'field 'erc-timestamp ts-left)
- (insert ts-left)
+ (funcall erc-stamp--insert-date-function ts-left)
(setq erc-timestamp-last-inserted-left ts-left))
;; insert right timestamp
(let ((erc-timestamp-only-if-changed-flag t)
@@ -336,12 +511,13 @@ it off to the right."
(setq erc-timestamp-last-inserted-right ts-right))))
;; for testing: (setq erc-timestamp-only-if-changed-flag nil)
+(defvar erc-stamp--tz nil)
(defun erc-format-timestamp (time format)
"Return TIME formatted as string according to FORMAT.
Return the empty string if FORMAT is nil."
(if format
- (let ((ts (format-time-string format time)))
+ (let ((ts (format-time-string format time erc-stamp--tz)))
(erc-put-text-property 0 (length ts)
'font-lock-face 'erc-timestamp-face ts)
(erc-put-text-property 0 (length ts) 'invisible 'timestamp ts)
@@ -400,11 +576,30 @@ enabled when the message was inserted."
(defun erc-echo-timestamp (dir stamp)
"Print timestamp text-property of an IRC message."
- (when (and erc-echo-timestamps (eq 'entered dir))
+ ;; Could also pass an &optional `zone' arg to `format-time-string'.
+ (interactive (list 'entered (get-text-property (point) 'erc-timestamp)))
+ (when (eq 'entered dir)
(when stamp
(message "%s" (format-time-string erc-echo-timestamp-format
stamp)))))
+(defun erc--echo-ts-csf (_window _before dir)
+ (erc-echo-timestamp dir (get-text-property (point) 'erc-timestamp)))
+
+(defun erc-stamp--update-saved-position (&rest _)
+ (remove-function (local 'erc-stamp--insert-date-function)
+ #'erc-stamp--update-saved-position)
+ (move-marker erc-last-saved-position (1- (point))))
+
+(defun erc-stamp--reset-on-clear (pos)
+ "Forget last-inserted stamps when POS is at insert marker."
+ (when (= pos (1- erc-insert-marker))
+ (add-function :after (local 'erc-stamp--insert-date-function)
+ #'erc-stamp--update-saved-position)
+ (setq erc-timestamp-last-inserted nil
+ erc-timestamp-last-inserted-left nil
+ erc-timestamp-last-inserted-right nil)))
+
(provide 'erc-stamp)
;;; erc-stamp.el ends here
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index 7fd7b53602e..e060b7039bd 100644
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -921,7 +921,11 @@ is relative to `erc-track-switch-direction'."
(unless (eq major-mode 'erc-mode)
(setq erc-track-last-non-erc-buffer (current-buffer)))
;; and jump to the next active channel
- (funcall fun (erc-track-get-active-buffer arg)))
+ (if-let ((buf (erc-track-get-active-buffer arg))
+ ((buffer-live-p buf)))
+ (funcall fun buf)
+ (erc-modified-channels-update)
+ (erc-track--switch-buffer fun arg)))
;; if no active channels, switch back to what we were doing before
((and erc-track-last-non-erc-buffer
erc-track-switch-from-erc
diff --git a/lisp/erc/erc-truncate.el b/lisp/erc/erc-truncate.el
index b8fd4ae2e14..8430a68d92b 100644
--- a/lisp/erc/erc-truncate.el
+++ b/lisp/erc/erc-truncate.el
@@ -50,9 +50,9 @@ This prevents the query buffer from getting too large, which
can
bring any grown Emacs to its knees after a few days worth of
tracking heavy-traffic channels."
;;enable
- ((add-hook 'erc-insert-post-hook #'erc-truncate-buffer))
+ ((add-hook 'erc-insert-done-hook #'erc-truncate-buffer))
;; disable
- ((remove-hook 'erc-insert-post-hook #'erc-truncate-buffer)))
+ ((remove-hook 'erc-insert-done-hook #'erc-truncate-buffer)))
;;;###autoload
(defun erc-truncate-buffer-to-size (size &optional buffer)
@@ -75,9 +75,11 @@ region is logged if `erc-logging-enabled' returns non-nil."
(save-restriction
(widen)
(let ((end (- erc-insert-marker size)))
- ;; truncate at line boundaries
+ ;; Truncate at message boundary (formerly line boundary
+ ;; before 5.6).
(goto-char end)
- (beginning-of-line)
+ (goto-char (or (previous-single-property-change (point) 'erc-command)
+ (pos-bol)))
(setq end (point))
;; try to save the current buffer using
;; `erc-save-buffer-in-logs'. We use this, in case the
@@ -91,10 +93,7 @@ region is logged if `erc-logging-enabled' returns non-nil."
;; (not (memq 'erc-save-buffer-in-logs
;; erc-insert-post-hook))
;; Comments?
- (when (and (boundp 'erc-enable-logging)
- erc-enable-logging
- (erc-logging-enabled buffer))
- (erc-save-buffer-in-logs))
+ (run-hook-with-args 'erc--pre-clear-functions end)
;; disable undoing for the truncating
(buffer-disable-undo)
(let ((inhibit-read-only t))
@@ -103,10 +102,10 @@ region is logged if `erc-logging-enabled' returns
non-nil."
;;;###autoload
(defun erc-truncate-buffer ()
- "Truncates the current buffer to `erc-max-buffer-size'.
-Meant to be used in hooks, like `erc-insert-post-hook'."
+ "Truncate current buffer to `erc-max-buffer-size'."
(interactive)
- (erc-truncate-buffer-to-size erc-max-buffer-size))
+ (save-excursion
+ (erc-truncate-buffer-to-size erc-max-buffer-size)))
(provide 'erc-truncate)
;;; erc-truncate.el ends here
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 69bdb5d71b1..2c2df81fa6d 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -12,8 +12,8 @@
;; David Edmondson (dme@dme.org)
;; Michael Olson (mwolson@gnu.org)
;; Kelvin White (kwhite@gnu.org)
-;; Version: 5.5
-;; Package-Requires: ((emacs "27.1") (compat "29.1.3.4"))
+;; Version: 5.6-git
+;; Package-Requires: ((emacs "27.1") (compat "29.1.4.1"))
;; Keywords: IRC, chat, client, Internet
;; URL: https://www.gnu.org/software/emacs/erc.html
@@ -58,20 +58,16 @@
;;; Code:
-(load "erc-loaddefs" 'noerror 'nomessage)
+(eval-and-compile (load "erc-loaddefs" 'noerror 'nomessage))
(require 'erc-networks)
(require 'erc-backend)
(require 'cl-lib)
(require 'format-spec)
-(require 'pp)
-(require 'thingatpt)
(require 'auth-source)
-(require 'time-date)
-(require 'iso8601)
-(eval-when-compile (require 'subr-x) (require 'url-parse))
+(eval-when-compile (require 'subr-x))
-(defconst erc-version "5.5"
+(defconst erc-version "5.6-git"
"This version of ERC.")
(defvar erc-official-location
@@ -87,7 +83,8 @@
("5.3" . "23.1")
("5.4" . "28.1")
("5.4.1" . "29.1")
- ("5.5" . "29.1")))
+ ("5.5" . "29.1")
+ ("5.6" . "30.1")))
(defgroup erc nil
"Emacs Internet Relay Chat client."
@@ -101,7 +98,9 @@
:group 'erc)
(defgroup erc-display nil
- "Settings for how various things are displayed."
+ "Settings controlling how various things are displayed.
+See the customization group `erc-buffers' for display options
+concerning buffers."
:group 'erc)
(defgroup erc-mode-line-and-header nil
@@ -140,6 +139,19 @@
(defvar motif-version-string)
(defvar gtk-version-string)
+(declare-function decoded-time-period "time-date" (time))
+(declare-function iso8601-parse-duration "iso8601" (string))
+(declare-function word-at-point "thingatpt" (&optional no-properties))
+(autoload 'word-at-point "thingatpt") ; for hl-nicks
+
+(declare-function gnutls-negotiate "gnutls" (&rest rest))
+(declare-function socks-open-network-stream "socks" (name buffer host service))
+(declare-function url-host "url-parse" (cl-x))
+(declare-function url-password "url-parse" (cl-x))
+(declare-function url-portspec "url-parse" (cl-x))
+(declare-function url-type "url-parse" (cl-x))
+(declare-function url-user "url-parse" (cl-x))
+
;; tunable connection and authentication parameters
(defcustom erc-server nil
@@ -344,7 +356,7 @@ simply because we do not necessarily receive the QUIT
event."
:type 'hook)
(defcustom erc-complete-functions nil
- "These functions get called when the user hits TAB in ERC.
+ "These functions get called when the user hits \\`TAB' in ERC.
Each function in turn is called until one returns non-nil to
indicate it has handled the input."
:group 'erc-hooks
@@ -391,6 +403,24 @@ Each function should accept two arguments, NEW-NICK and
OLD-NICK."
:group 'erc-hooks
:type 'hook)
+(defcustom erc-nickname-in-use-functions nil
+ "Function to run before trying for a different nickname.
+Called with two arguments: the desired but just rejected nickname
+and the alternate nickname about to be requested. Use cases
+include special handling during connection registration and
+wrestling with nickname services. For example, value
+`erc-regain-nick-on-connect' is aimed at dealing with reaping
+lingering connections that may prevent you from being issued a
+requested nick immediately when reconnecting. It's meant to be
+used with an `erc-server-reconnect-function' value of
+`erc-server-delayed-check-reconnect' alongside SASL
+authentication."
+ :package-version '(ERC . "5.6")
+ :group 'erc-hooks
+ :type '(choice (function-item erc-regain-nick-on-connect)
+ function
+ (const nil)))
+
(defcustom erc-connect-pre-hook '(erc-initialize-log-marker)
"Hook called just before `erc' calls `erc-connect'.
Functions are passed a buffer as the first argument."
@@ -881,6 +911,9 @@ Flooding is sending too much information to the server in
too
short of an interval, which may cause the server to terminate the
connection.
+Note that older code conflated rate limiting and line splitting.
+Starting in ERC 5.6, this option no longer influences the latter.
+
See `erc-server-flood-margin' for other flood-related parameters.")
;; Script parameters
@@ -1063,33 +1096,40 @@ The struct has three slots:
`string': The current input string.
`insertp': Whether the string should be inserted into the erc buffer.
- `sendp': Whether the string should be sent to the irc server."
+ `sendp': Whether the string should be sent to the irc server.
+ `refoldp': Whether the string should be re-split per protocol limits.
+
+This hook runs after protocol line splitting has taken place, so
+the value of `string' is originally \"pre-filled\". If you need
+ERC to refill the entire payload before sending it, set the
+`refoldp' slot to a non-nil value. Preformatted text and encoded
+subprotocols should probably be handled manually."
:group 'erc
:type 'hook
:version "27.1")
-;; This is being auditioned for possible exporting (as a custom hook
-;; option). Likewise for (public versions of) `erc--input-split' and
-;; `erc--discard-trailing-multiline-nulls'. If unneeded, we'll just
-;; run the latter on the input after `erc-pre-send-functions', and
-;; remove this hook and the struct completely. IOW, if you need this,
-;; please say so.
-
-(defvar erc--pre-send-split-functions '(erc--discard-trailing-multiline-nulls)
- "Special hook for modifying individual lines in multiline prompt input.
-The functions are called with one argument, an `erc--input-split'
-struct, which they can optionally modify.
+(define-obsolete-variable-alias 'erc--pre-send-split-functions
+ 'erc--input-review-functions "30.1")
+(defvar erc--input-review-functions '(erc--discard-trailing-multiline-nulls
+ erc--split-lines
+ erc--run-input-validation-checks)
+ "Special hook for reviewing and modifying prompt input.
+ERC runs this before clearing the prompt and before running any
+send-related hooks, such as `erc-pre-send-functions'. Thus, it's
+quite \"safe\" to bail out of this hook with a `user-error', if
+necessary. The hook's members are called with one argument, an
+`erc--input-split' struct, which they can optionally modify.
The struct has five slots:
- `string': the input string delivered by `erc-pre-send-functions'
- `insertp': whether to insert the lines into the buffer
- `sendp': whether the lines should be sent to the IRC server
+ `string': the original input as a read-only reference
+ `insertp': same as in `erc-pre-send-functions'
+ `sendp': same as in `erc-pre-send-functions'
+ `refoldp': same as in `erc-pre-send-functions'
`lines': a list of lines to be sent, each one a `string'
`cmdp': whether to interpret input as a command, like /ignore
-The `string' field is effectively read-only. When `cmdp' is
-non-nil, all but the first line will be discarded.")
+When `cmdp' is non-nil, all but the first line will be discarded.")
(defvar erc-insert-this t
"Insert the text into the target buffer or not.
@@ -1131,8 +1171,8 @@ preserve point if needed."
(defcustom erc-send-modify-hook nil
"Sending hook for functions that will change the text's appearance.
-This hook is called just after `erc-send-pre-hook' when the values
-of `erc-send-this' and `erc-insert-this' are both t.
+ERC runs this just after `erc-pre-send-functions' if its shared
+`erc-input' object's `sendp' and `insertp' slots remain non-nil.
While this hook is run, narrowing is in effect and `current-buffer' is
the buffer where the text got inserted.
@@ -1189,7 +1229,6 @@ which the local user typed."
(define-key map [home] #'erc-bol)
(define-key map "\C-c\C-a" #'erc-bol)
(define-key map "\C-c\C-b" #'erc-switch-to-buffer)
- (define-key map "\C-c\C-c" #'erc-toggle-interpret-controls)
(define-key map "\C-c\C-d" #'erc-input-action)
(define-key map "\C-c\C-e" #'erc-toggle-ctcp-autoresponse)
(define-key map "\C-c\C-f" #'erc-toggle-flood-control)
@@ -1204,7 +1243,7 @@ which the local user typed."
(define-key map "\C-c\C-u" #'erc-kill-input)
(define-key map "\C-c\C-x" #'erc-quit-server)
(define-key map "\M-\t" #'ispell-complete-word)
- (define-key map "\t" #'completion-at-point)
+ (define-key map "\t" #'erc-tab)
;; Suppress `font-lock-fontify-block' key binding since it
;; destroys face properties.
@@ -1213,6 +1252,19 @@ which the local user typed."
map)
"ERC keymap.")
+(defun erc--modify-local-map (mode &rest bindings)
+ "Modify `erc-mode-map' on behalf of a global module.
+Add or remove `key-valid-p' BINDINGS when toggling MODE."
+ (declare (indent 1))
+ (while (pcase-let* ((`(,key ,def . ,rest) bindings)
+ (existing (keymap-lookup erc-mode-map key)))
+ (if mode
+ (when (or (not existing) (eq existing #'undefined))
+ (keymap-set erc-mode-map key def))
+ (when (eq existing def)
+ (keymap-unset erc-mode-map key t)))
+ (setq bindings rest))))
+
;; Faces
; Honestly, I have a horrible sense of color and the "defaults" below
@@ -1313,6 +1365,20 @@ See also `erc-show-my-nick'."
Bound to local variables from an existing (logical) session's
buffer during local-module setup and `erc-mode-hook' activation.")
+(defmacro erc--restore-initialize-priors (mode &rest vars)
+ "Restore local VARS for MODE from a previous session."
+ (declare (indent 1))
+ (let ((existing (make-symbol "existing"))
+ ;;
+ restore initialize)
+ (while-let ((k (pop vars)) (v (pop vars)))
+ (push `(,k (alist-get ',k ,existing)) restore)
+ (push `(,k ,v) initialize))
+ `(if-let* ((,existing (or erc--server-reconnecting erc--target-priors))
+ ((alist-get ',mode ,existing)))
+ (setq ,@(mapcan #'identity (nreverse restore)))
+ (setq ,@(mapcan #'identity (nreverse initialize))))))
+
(defun erc--target-from-string (string)
"Construct an `erc--target' variant from STRING."
(funcall (if (erc-channel-p string)
@@ -1362,6 +1428,37 @@ capabilities."
(add-hook hook fun nil t)
fun))
+(defun erc--warn-once-before-connect (mode-var &rest args)
+ "Display an \"error notice\" once.
+Expect ARGS to be `erc-button--display-error-notice-with-keys'
+compatible parameters, except without any leading buffers or
+processes. If we're in an ERC buffer with a network process when
+called, print the notice immediately. Otherwise, if we're in a
+server buffer, arrange to do so after local modules have been set
+up and mode hooks have run. Otherwise, if MODE-VAR is a global
+module, try again at most once the next time `erc-mode-hook'
+runs."
+ (declare (indent 1))
+ (cl-assert (stringp (car args)))
+ (if (derived-mode-p 'erc-mode)
+ (unless (or (erc-with-server-buffer ; needs `erc-server-process'
+ (apply #'erc-button--display-error-notice-with-keys
+ (current-buffer) args)
+ t)
+ erc--target) ; unlikely
+ (let (hook)
+ (setq hook
+ (lambda (_)
+ (remove-hook 'erc-connect-pre-hook hook t)
+ (apply #'erc-button--display-error-notice-with-keys args)))
+ (add-hook 'erc-connect-pre-hook hook nil t)))
+ (when (custom-variable-p mode-var)
+ (let (hook)
+ (setq hook (lambda ()
+ (remove-hook 'erc-mode-hook hook)
+ (apply #'erc--warn-once-before-connect 'erc-fake args)))
+ (add-hook 'erc-mode-hook hook)))))
+
(defun erc-server-buffer ()
"Return the server buffer for the current buffer's process.
The buffer-local variable `erc-server-process' is used to find
@@ -1469,8 +1566,9 @@ Defaults to the server buffer."
"IRC port to use for encrypted connections if it cannot be \
detected otherwise.")
-(defcustom erc-join-buffer 'bury
- "Determines how to display a newly created IRC buffer.
+(defvaralias 'erc-join-buffer 'erc-buffer-display)
+(defcustom erc-buffer-display 'bury
+ "How to display a newly created ERC buffer.
The available choices are:
@@ -1479,7 +1577,9 @@ The available choices are:
`frame' - in another frame,
`bury' - bury it in a new buffer,
`buffer' - in place of the current buffer,
- any other value - in place of the current buffer."
+
+See related options `erc-interactive-display',
+`erc-reconnect-display', and `erc-receive-query-display'."
:package-version '(ERC . "5.5")
:group 'erc-buffers
:type '(choice (const :tag "Split window and select" window)
@@ -1489,22 +1589,45 @@ The available choices are:
(const :tag "Use current buffer" buffer)
(const :tag "Use current buffer" t)))
-(defcustom erc-reconnect-display nil
- "How (and whether) to display a channel buffer upon reconnecting.
+(defvaralias 'erc-query-display 'erc-interactive-display)
+(defcustom erc-interactive-display 'window
+ "How to display buffers as a result of user interaction.
+This affects commands like /QUERY and /JOIN when issued
+interactively at the prompt. It does not apply when calling a
+handler for such a command, like `erc-cmd-JOIN', from lisp code.
+See `erc-buffer-display' for a full description of available
+values."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
+ :group 'erc-buffers
+ :type '(choice (const :tag "Use value of `erc-buffer-display'" nil)
+ (const :tag "Split window and select" window)
+ (const :tag "Split window, don't select" window-noselect)
+ (const :tag "New frame" frame)
+ (const :tag "Bury new and don't display existing" bury)
+ (const :tag "Use current buffer" buffer)))
-This only affects automatic reconnections and is ignored when
-issuing a /reconnect command or reinvoking `erc-tls' with the
-same args (assuming success, of course). See `erc-join-buffer'
-for a description of possible values."
+(defcustom erc-reconnect-display nil
+ "How and whether to display a channel buffer when auto-reconnecting.
+This only affects automatic reconnections and is ignored, like
+all other buffer-display options, when issuing a /RECONNECT or
+successfully reinvoking `erc-tls' with similar arguments. See
+`erc-buffer-display' for a description of possible values."
:package-version '(ERC . "5.5")
:group 'erc-buffers
- :type '(choice (const :tag "Use value of `erc-join-buffer'" nil)
+ :type '(choice (const :tag "Use value of `erc-buffer-display'" nil)
(const :tag "Split window and select" window)
(const :tag "Split window, don't select" window-noselect)
(const :tag "New frame" frame)
(const :tag "Bury in new buffer" bury)
(const :tag "Use current buffer" buffer)))
+(defcustom erc-reconnect-display-timeout 10
+ "Duration `erc-reconnect-display' remains active.
+The countdown starts on MOTD and is canceled early by any
+\"slash\" command."
+ :type 'integer
+ :group 'erc-buffers)
+
(defcustom erc-frame-alist nil
"Alist of frame parameters for creating erc frames.
A value of nil means to use `default-frame-alist'."
@@ -1521,19 +1644,35 @@ This only has effect when `erc-join-buffer' is set to
`frame'."
(defcustom erc-reuse-frames t
"Determines whether new frames are always created.
-Non-nil means that a new frame is not created to display an ERC
-buffer if there is already a window displaying it. This only has
-effect when `erc-join-buffer' is set to `frame'."
+
+A value of t means only create a frame for undisplayed buffers.
+`displayed' means use any existing, potentially hidden frame
+already displaying a buffer from the same network context or,
+failing that, a frame showing any ERC buffer. As a last resort,
+`displayed' defaults to the selected frame, except for brand new
+connections, for which the invoking frame is always used. When
+this option is nil, a new frame is always created.
+
+Regardless of its value, this option is ignored unless
+`erc-join-buffer' is set to `frame'. And like most options in
+the `erc-buffer' customize group, this has no effect on server
+buffers while reconnecting because those are always buried."
+ :package-version '(ERC . "5.6") ; FIXME sync on release
:group 'erc-buffers
- :type 'boolean)
+ :type '(choice boolean
+ (const displayed)))
(defun erc-channel-p (channel)
"Return non-nil if CHANNEL seems to be an IRC channel name."
(cond ((stringp channel)
- (memq (aref channel 0) '(?# ?& ?+ ?!)))
- ((and (bufferp channel) (buffer-live-p channel))
- (with-current-buffer channel
- (erc-channel-p (erc-default-target))))
+ (memq (aref channel 0)
+ (if-let ((types (erc--get-isupport-entry 'CHANTYPES 'single)))
+ (append types nil)
+ '(?# ?& ?+ ?!))))
+ ((and-let* (((bufferp channel))
+ ((buffer-live-p channel))
+ (target (buffer-local-value 'erc--target channel)))
+ (erc-channel-p (erc--target-string target))))
(t nil)))
;; For the sake of compatibility, a historical quirk concerning this
@@ -1816,9 +1955,9 @@ buffer rather than a server buffer.")
;; each item is in the format '(old . new)
(delete-dups (mapcar #'erc--normalize-module-symbol mods)))
-(defcustom erc-modules '(netsplit fill button match track completion readonly
- networks ring autojoin noncommands
irccontrols
- move-to-prompt stamp menu list)
+(defcustom erc-modules '( autojoin button completion fill imenu irccontrols
+ list match menu move-to-prompt netsplit
+ networks noncommands readonly ring stamp track)
"A list of modules which ERC should enable.
If you set the value of this without using `customize' remember to call
\(erc-update-modules) after you change it. When using `customize', modules
@@ -1826,12 +1965,20 @@ removed from the list will be disabled."
:get (lambda (sym)
;; replace outdated names with their newer equivalents
(erc-migrate-modules (symbol-value sym)))
- :initialize #'custom-initialize-default
+ ;; Expect every built-in module to have the symbol property
+ ;; `erc--module' set to its canonical symbol (often itself).
+ :initialize (lambda (symbol exp)
+ ;; Use `cdddr' because (set :greedy t . ,entries)
+ (dolist (entry (cdddr (get 'erc-modules 'custom-type)))
+ (when-let* (((eq (car entry) 'const))
+ (s (cadddr entry))) ; (const :tag "..." ,s)
+ (put s 'erc--module s)))
+ (custom-initialize-reset symbol exp))
:set (lambda (sym val)
;; disable modules which have just been removed
(when (and (boundp 'erc-modules) erc-modules val)
(dolist (module erc-modules)
- (unless (member module val)
+ (unless (memq module val)
(let ((f (intern-soft (format "erc-%s-mode" module))))
(when (and (fboundp f) (boundp f))
(when (symbol-value f)
@@ -1843,10 +1990,19 @@ removed from the list will be disabled."
(when (symbol-value f)
(funcall f 0))
(kill-local-variable f)))))))))
- (set sym val)
+ (let (built-in third-party)
+ (dolist (v val)
+ (setq v (erc--normalize-module-symbol v))
+ (if (get v 'erc--module)
+ (push v built-in)
+ (push v third-party)))
+ ;; Calling `set-default-toplevel-value' complicates testing
+ (set sym (append (sort built-in #'string-lessp)
+ (nreverse third-party))))
;; this test is for the case where erc hasn't been loaded yet
(when (fboundp 'erc-update-modules)
- (erc-update-modules)))
+ (unless erc--inside-mode-toggle-p
+ (erc-update-modules))))
:type
'(set
:greedy t
@@ -1857,10 +2013,10 @@ removed from the list will be disabled."
capab-identify)
(const :tag "completion: Complete nicknames and commands (programmable)"
completion)
- (const :tag "hecomplete: Complete nicknames and commands (obsolete, use
\"completion\")" hecomplete)
(const :tag "dcc: Provide Direct Client-to-Client support" dcc)
(const :tag "fill: Wrap long lines" fill)
(const :tag "identd: Launch an identd server on port 8113" identd)
+ (const :tag "imenu: A simple Imenu integration" imenu)
(const :tag "irccontrols: Highlight or remove IRC control characters"
irccontrols)
(const :tag "keep-place: Leave point above un-viewed text" keep-place)
@@ -1874,11 +2030,11 @@ removed from the list will be disabled."
(const :tag "networks: Provide data about IRC networks" networks)
(const :tag "noncommands: Don't display non-IRC commands after evaluation"
noncommands)
+ (const :tag "notifications: Desktop alerts on PRIVMSG or mentions"
+ notifications)
(const :tag
"notify: Notify when the online status of certain users changes"
notify)
- (const :tag "notifications: Send notifications on PRIVMSG or nickname
mentions"
- notifications)
(const :tag "page: Process CTCP PAGE requests from IRC" page)
(const :tag "readonly: Make displayed lines read-only" readonly)
(const :tag "replace: Replace text in messages" replace)
@@ -1891,13 +2047,14 @@ removed from the list will be disabled."
(const :tag "smiley: Convert smileys to pretty icons" smiley)
(const :tag "sound: Play sounds when you receive CTCP SOUND requests"
sound)
- (const :tag "stamp: Add timestamps to messages" stamp)
(const :tag "spelling: Check spelling" spelling)
+ (const :tag "stamp: Add timestamps to messages" stamp)
(const :tag "track: Track channel activity in the mode-line" track)
(const :tag "truncate: Truncate buffers to a certain size" truncate)
(const :tag "unmorse: Translate morse code in messages" unmorse)
(const :tag "xdcc: Act as an XDCC file-server" xdcc)
(repeat :tag "Others" :inline t symbol))
+ :package-version '(ERC . "5.6") ; FIXME sync on release
:group 'erc)
(defun erc-update-modules ()
@@ -1906,18 +2063,80 @@ Except ignore all local modules, which were introduced
in ERC 5.5."
(erc--update-modules)
nil)
+(defun erc--find-mode (sym)
+ (setq sym (erc--normalize-module-symbol sym))
+ (if-let* ((mode (intern-soft (concat "erc-" (symbol-name sym) "-mode")))
+ ((or (boundp mode)
+ (and (fboundp mode)
+ (autoload-do-load (symbol-function mode) mode)))))
+ mode
+ (and (require (or (get sym 'erc--feature)
+ (intern (concat "erc-" (symbol-name sym))))
+ nil 'noerror)
+ (setq mode (intern-soft (concat "erc-" (symbol-name sym) "-mode")))
+ (fboundp mode)
+ mode)))
+
(defun erc--update-modules ()
(let (local-modes)
(dolist (module erc-modules local-modes)
- (require (or (alist-get module erc--modules-to-features)
- (intern (concat "erc-" (symbol-name module))))
- nil 'noerror) ; some modules don't have a corresponding feature
- (let ((mode (intern-soft (concat "erc-" (symbol-name module) "-mode"))))
- (unless (and mode (fboundp mode))
- (error "`%s' is not a known ERC module" module))
- (if (custom-variable-p mode)
- (funcall mode 1)
- (push mode local-modes))))))
+ (if-let ((mode (erc--find-mode module)))
+ (if (custom-variable-p mode)
+ (funcall mode 1)
+ (push mode local-modes))
+ (error "`%s' is not a known ERC module" module)))))
+
+(defvar erc--updating-modules-p nil
+ "Non-nil when running `erc--update-modules' in `erc-open'.
+This allows global modules with known or likely dependents (or
+some other reason for activating after session initialization) to
+conditionally run setup code traditionally reserved for
+`erc-mode-hook' in the setup portion of their mode toggle. Note
+that being \"global\", they'll likely want to do so in all ERC
+buffers and ensure the code is idempotent. For example:
+
+ (add-hook \\='erc-mode-hook #\\='erc-foo-setup-fn)
+ (unless erc--updating-modules-p
+ (erc-with-all-buffers-of-server nil
+ (lambda () some-condition-p)
+ (erc-foo-setup-fn)))
+
+This means that when a dependent module is initializing and
+realizes it's missing some required module \"foo\", it can
+confidently call (erc-foo-mode 1) without having to learn
+anything about the dependency's implementation.")
+
+(defun erc--setup-buffer-first-window (frame a b)
+ (catch 'found
+ (walk-window-tree
+ (lambda (w)
+ (when (cond ((functionp a) (with-current-buffer (window-buffer w)
+ (funcall a b)))
+ (t (eq (buffer-local-value a (window-buffer w)) b)))
+ (throw 'found t)))
+ frame nil 0)))
+
+(defun erc--display-buffer-use-some-frame (buffer alist)
+ "Maybe display BUFFER in an existing frame for the same connection.
+If performed, return window used; otherwise, return nil. Forward ALIST
+to display-buffer machinery."
+ (when-let*
+ ((idp (lambda (value)
+ (and erc-networks--id
+ (erc-networks--id-equal-p erc-networks--id value))))
+ (procp (lambda (frame)
+ (erc--setup-buffer-first-window frame idp erc-networks--id)))
+ (ercp (lambda (frame)
+ (erc--setup-buffer-first-window frame 'major-mode 'erc-mode)))
+ ((or (cdr (frame-list)) (funcall ercp (selected-frame)))))
+ ;; Workaround to avoid calling `window--display-buffer' directly
+ (or (display-buffer-use-some-frame buffer
+ `((frame-predicate . ,procp) ,@alist))
+ (display-buffer-use-some-frame buffer
+ `((frame-predicate . ,ercp) ,@alist)))))
+
+(defvar erc--setup-buffer-hook nil
+ "Internal hook for module setup involving windows and frames.")
(defun erc-setup-buffer (buffer)
"Consults `erc-join-buffer' to find out how to display `BUFFER'."
@@ -1934,15 +2153,21 @@ Except ignore all local modules, which were introduced
in ERC 5.5."
('bury
nil)
('frame
- (when (or (not erc-reuse-frames)
- (not (get-buffer-window buffer t)))
+ (cond
+ ((and (eq erc-reuse-frames 'displayed)
+ (not (get-buffer-window buffer t)))
+ (display-buffer buffer '((erc--display-buffer-use-some-frame)
+ (inhibit-switch-frame . t)
+ (inhibit-same-window . t))))
+ ((or (not erc-reuse-frames)
+ (not (get-buffer-window buffer t)))
(let ((frame (make-frame (or erc-frame-alist
default-frame-alist))))
(raise-frame frame)
(select-frame frame))
(switch-to-buffer buffer)
(when erc-frame-dedicated-flag
- (set-window-dedicated-p (selected-window) t))))
+ (set-window-dedicated-p (selected-window) t)))))
(_
(if (active-minibuffer-window)
(display-buffer buffer)
@@ -1967,6 +2192,35 @@ nil."
(cons (nreverse (car out)) (nreverse (cdr out))))
(list new-modes)))
+;; This function doubles as a convenient helper for use in unit tests.
+;; Prior to 5.6, its contents lived in `erc-open'.
+
+(defun erc--initialize-markers (old-point continued-session)
+ "Ensure prompt and its bounding markers have been initialized."
+ ;; FIXME erase assertions after code review and additional testing.
+ (setq erc-insert-marker (make-marker)
+ erc-input-marker (make-marker))
+ (if continued-session
+ (progn
+ ;; Trust existing markers.
+ (set-marker erc-insert-marker
+ (alist-get 'erc-insert-marker continued-session))
+ (set-marker erc-input-marker
+ (alist-get 'erc-input-marker continued-session))
+ (goto-char erc-insert-marker)
+ (cl-assert (= (field-end) erc-input-marker))
+ (goto-char old-point)
+ (erc--unhide-prompt))
+ (cl-assert (not (get-text-property (point) 'erc-prompt)))
+ ;; In the original version from `erc-open', the snippet that
+ ;; handled these newline insertions appeared twice close in
+ ;; proximity, which was probably unintended. Nevertheless, we
+ ;; preserve the double newlines here for historical reasons.
+ (insert "\n\n")
+ (set-marker erc-insert-marker (point))
+ (erc-display-prompt)
+ (cl-assert (= (point) (point-max)))))
+
(defun erc-open (&optional server port nick full-name
connect passwd tgt-list channel process
client-certificate user id)
@@ -2000,15 +2254,19 @@ Returns the buffer for the given server or channel."
(old-recon-count erc-server-reconnect-count)
(old-point nil)
(delayed-modules nil)
- (continued-session (and erc--server-reconnecting
- (with-suppressed-warnings
- ((obsolete erc-reuse-buffers))
- erc-reuse-buffers))))
+ (continued-session (or erc--server-reconnecting
+ erc--target-priors
+ (and-let* (((not target))
+ (m (buffer-local-value
+ 'erc-input-marker buffer))
+ ((marker-position m)))
+ (buffer-local-variables buffer)))))
(when connect (run-hook-with-args 'erc-before-connect server port nick))
(set-buffer buffer)
(setq old-point (point))
(setq delayed-modules
- (erc--merge-local-modes (erc--update-modules)
+ (erc--merge-local-modes (let ((erc--updating-modules-p t))
+ (erc--update-modules))
(or erc--server-reconnecting
erc--target-priors)))
@@ -2021,21 +2279,6 @@ Returns the buffer for the given server or channel."
(buffer-local-value 'erc-server-announced-name old-buffer)))
;; connection parameters
(setq erc-server-process process)
- (setq erc-insert-marker (make-marker))
- (setq erc-input-marker (make-marker))
- ;; go to the end of the buffer and open a new line
- ;; (the buffer may have existed)
- (goto-char (point-max))
- (forward-line 0)
- (when (or continued-session (get-text-property (point) 'erc-prompt))
- (setq continued-session t)
- (set-marker erc-input-marker
- (or (next-single-property-change (point) 'erc-prompt)
- (point-max))))
- (unless continued-session
- (goto-char (point-max))
- (insert "\n"))
- (set-marker erc-insert-marker (point))
;; stack of default recipients
(setq erc-default-recipients tgt-list)
(when target
@@ -2082,20 +2325,7 @@ Returns the buffer for the given server or channel."
(get-buffer-create (concat "*ERC-DEBUG: " server "*"))))
(erc-determine-parameters server port nick full-name user passwd)
-
- ;; FIXME consolidate this prompt-setup logic with the pass above.
-
- ;; set up prompt
- (unless continued-session
- (goto-char (point-max))
- (insert "\n"))
- (if continued-session
- (progn (goto-char old-point)
- (erc--unhide-prompt))
- (set-marker erc-insert-marker (point))
- (erc-display-prompt)
- (goto-char (point-max)))
-
+ (erc--initialize-markers old-point continued-session)
(save-excursion (run-mode-hooks)
(dolist (mod (car delayed-modules)) (funcall mod +1))
(dolist (var (cdr delayed-modules)) (set var nil)))
@@ -2116,7 +2346,8 @@ Returns the buffer for the given server or channel."
;; we can't log to debug buffer, it may not exist yet
(message "erc: old buffer %s, switching to %s"
old-buffer buffer))
- (erc-setup-buffer buffer))
+ (erc-setup-buffer buffer)
+ (run-hooks 'erc--setup-buffer-hook))
buffer))
@@ -2167,9 +2398,9 @@ parameters SERVER and NICK."
(defun erc--ensure-url (input)
(unless (string-match (rx bot "irc" (? "6") (? "s") "://") input)
- (when (and (string-match (rx (? (+ any) "@")
- (or (group (* (not "[")) ":" (* any))
- (+ any))
+ (when (and (string-match (rx (? (+ nonl) "@")
+ (or (group (* (not "[")) ":" (* nonl))
+ (+ nonl))
":" (+ (not (any ":]"))) eot)
input)
(match-beginning 1))
@@ -2177,29 +2408,12 @@ parameters SERVER and NICK."
(setq input (concat "irc://" input)))
input)
-;; A temporary means of addressing the problem of ERC's namesake entry
-;; point defaulting to a non-TLS connection with its default server
-;; (bug#60428).
-(defun erc--warn-unencrypted ()
- ;; Remove unconditionally to avoid wrong context due to races from
- ;; simultaneous dialing or aborting (e.g., via `keybaord-quit').
- (remove-hook 'erc--server-post-connect-hook #'erc--warn-unencrypted)
- (when (and (process-contact erc-server-process :nowait)
- (equal erc-session-server erc-default-server)
- (eql erc-session-port erc-default-port))
- ;; FIXME use the autoloaded `info' instead of `Info-goto-node' in
- ;; `erc-button-alist'.
- (require 'info nil t)
- (erc-display-error-notice
- nil (concat "This connection is unencrypted. Please use `erc-tls'"
- " from now on. See Info:\"(erc) connecting\" for more."))))
-
;;;###autoload
(defun erc-select-read-args ()
- "Prompt the user for values of nick, server, port, and password."
- (require 'url-parse)
+ "Prompt the user for values of nick, server, port, and password.
+With prefix arg, also prompt for user and full name."
(let* ((input (let ((d (erc-compute-server)))
- (read-string (format "Server (default is %S): " d)
+ (read-string (format "Server or URL (default is %S): " d)
nil 'erc-server-history-list d)))
;; For legacy reasons, also accept a URL without a scheme.
(url (url-generic-parse-url (erc--ensure-url input)))
@@ -2217,20 +2431,47 @@ parameters SERVER and NICK."
(let ((d (erc-compute-nick)))
(read-string (format "Nickname (default is %S): " d)
nil 'erc-nick-history-list d))))
+ (user (and current-prefix-arg
+ (let ((d (erc-compute-user (url-user url))))
+ (read-string (format "User (default is %S): " d)
+ nil nil d))))
+ (full (and current-prefix-arg
+ (let ((d (erc-compute-full-name (url-user url))))
+ (read-string (format "Full name (default is %S): " d)
+ nil nil d))))
(passwd (let* ((p (with-suppressed-warnings ((obsolete erc-password))
(or (url-password url) erc-password)))
(m (if p
(format "Server password (default is %S): " p)
"Server password (optional): ")))
- (if erc-prompt-for-password (read-passwd m nil p) p))))
+ (if erc-prompt-for-password (read-passwd m nil p) p)))
+ (opener (and (or sp (eql port erc-default-port-tls)
+ (and (equal server erc-default-server)
+ (not (string-prefix-p "irc://" input))
+ (eql port erc-default-port)
+ (y-or-n-p "Connect using TLS instead? ")
+ (setq port erc-default-port-tls)))
+ #'erc-open-tls-stream))
+ env)
+ (when erc-interactive-display
+ (push `(erc-join-buffer . ,erc-interactive-display) env))
+ (when opener
+ (push `(erc-server-connect-function . ,opener) env))
(when (and passwd (string= "" passwd))
(setq passwd nil))
- (when (and (equal server erc-default-server)
- (eql port erc-default-port)
- (not (eql port erc-default-port-tls)) ; not `erc-tls'
- (not (string-prefix-p "irc://" input))) ; not yanked URL
- (add-hook 'erc--server-post-connect-hook #'erc--warn-unencrypted))
- (list :server server :port port :nick nick :password passwd)))
+ `( :server ,server :port ,port :nick ,nick ,@(and user `(:user ,user))
+ ,@(and passwd `(:password ,passwd)) ,@(and full `(:full-name ,full))
+ ,@(and env `(&interactive-env ,env)))))
+
+(defmacro erc--with-entrypoint-environment (env &rest body)
+ "Run BODY with bindings from ENV alist."
+ (declare (indent 1))
+ (let ((syms (make-symbol "syms"))
+ (vals (make-symbol "vals")))
+ `(let (,syms ,vals)
+ (pcase-dolist (`(,k . ,v) ,env) (push k ,syms) (push v ,vals))
+ (cl-progv ,syms ,vals
+ ,@body))))
;;;###autoload
(cl-defun erc (&key (server (erc-compute-server))
@@ -2239,7 +2480,9 @@ parameters SERVER and NICK."
(user (erc-compute-user))
password
(full-name (erc-compute-full-name))
- id)
+ id
+ ;; Used by interactive form
+ ((&interactive-env --interactive-env--)))
"ERC is a powerful, modular, and extensible IRC client.
This function is the main entry point for ERC.
@@ -2262,9 +2505,12 @@ then the server and full-name will be set to those
values,
whereas `erc-compute-port' and `erc-compute-nick' will be invoked
for the values of the other parameters.
-See `erc-tls' for the meaning of ID."
+See `erc-tls' for the meaning of ID.
+
+\(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME ID)"
(interactive (erc-select-read-args))
- (erc-open server port nick full-name t password nil nil nil nil user id))
+ (erc--with-entrypoint-environment --interactive-env--
+ (erc-open server port nick full-name t password nil nil nil nil user id)))
;;;###autoload
(defalias 'erc-select #'erc)
@@ -2278,7 +2524,9 @@ See `erc-tls' for the meaning of ID."
password
(full-name (erc-compute-full-name))
client-certificate
- id)
+ id
+ ;; Used by interactive form
+ ((&interactive-env --interactive-env--)))
"ERC is a powerful, modular, and extensible IRC client.
This function is the main entry point for ERC over TLS.
@@ -2320,12 +2568,22 @@ Example usage:
When present, ID should be a symbol or a string to use for naming
the server buffer and identifying the connection unequivocally.
-See Info node `(erc) Network Identifier' for details. Like USER
-and CLIENT-CERTIFICATE, this parameter cannot be specified
-interactively."
+See Info node `(erc) Network Identifier' for details. Like
+CLIENT-CERTIFICATE, this parameter cannot be specified
+interactively.
+
+\(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME CLIENT-CERTIFICATE ID)"
(interactive (let ((erc-default-port erc-default-port-tls))
(erc-select-read-args)))
- (let ((erc-server-connect-function 'erc-open-tls-stream))
+ ;; Bind `erc-server-connect-function' to `erc-open-tls-stream'
+ ;; around `erc-open' when a non-default value hasn't been specified
+ ;; by the user or the interactive form. And don't bother checking
+ ;; for advice, indirect functions, autoloads, etc.
+ (unless (or (assq 'erc-server-connect-function --interactive-env--)
+ (not (eq erc-server-connect-function #'erc-open-network-stream)))
+ (push '(erc-server-connect-function . erc-open-tls-stream)
+ --interactive-env--))
+ (erc--with-entrypoint-environment --interactive-env--
(erc-open server port nick full-name t password
nil nil nil client-certificate user id)))
@@ -2342,6 +2600,22 @@ PARAMETERS should be a sequence of keywords and values,
per
(setq args `(,name ,buffer ,host ,port ,@p))
(apply #'open-network-stream args)))
+(defun erc-open-socks-tls-stream (name buffer host service &rest parameters)
+ "Connect to an IRC server via SOCKS proxy over TLS.
+Bind `erc-server-connect-function' to this function around calls
+to `erc-tls'. See `erc-open-network-stream' for the meaning of
+NAME and BUFFER. HOST should be a \".onion\" URL, SERVICE a TLS
+port number, and PARAMETERS a sequence of key/value pairs, per
+`open-network-stream'. See Info node `(erc) SOCKS' for more
+info."
+ (require 'gnutls)
+ (require 'socks)
+ (let ((proc (socks-open-network-stream name buffer host service))
+ (cert-info (plist-get parameters :client-certificate)))
+ (gnutls-negotiate :process proc
+ :hostname host
+ :keylist (and cert-info (list cert-info)))))
+
;;; Displaying error messages
(defun erc-error (&rest args)
@@ -2521,6 +2795,28 @@ this option to nil."
:type 'boolean
:group 'erc)
+(define-inline erc--assert-input-bounds ()
+ (inline-quote
+ (progn (when (and (processp erc-server-process)
+ (eq (current-buffer) (process-buffer erc-server-process)))
+ ;; It's believed that these only need syncing immediately
+ ;; following the first two insertions in a server buffer.
+ (set-marker (process-mark erc-server-process) erc-insert-marker))
+ (cl-assert (< erc-insert-marker erc-input-marker))
+ (cl-assert (= (field-end erc-insert-marker) erc-input-marker)))))
+
+(defun erc--refresh-prompt ()
+ "Re-render ERC's prompt when the option `erc-prompt' is a function."
+ (erc--assert-input-bounds)
+ (when (functionp erc-prompt)
+ (save-excursion
+ (goto-char erc-insert-marker)
+ ;; Avoid `erc-prompt' (the named function), which appends a
+ ;; space, and `erc-display-prompt', which propertizes all but
+ ;; that space.
+ (insert-and-inherit (funcall erc-prompt))
+ (delete-region (point) (1- erc-input-marker)))))
+
(defun erc-display-line-1 (string buffer)
"Display STRING in `erc-mode' BUFFER.
Auxiliary function used in `erc-display-line'. The line gets filtered to
@@ -2530,8 +2826,7 @@ Afterwards, `erc-insert-modify' and
`erc-insert-post-hook' get called.
If STRING is nil, the function does nothing."
(when string
(with-current-buffer (or buffer (process-buffer erc-server-process))
- (let ((insert-position (or (marker-position erc-insert-marker)
- (point-max))))
+ (let ((insert-position (marker-position erc-insert-marker)))
(let ((string string) ;; FIXME! Can this be removed?
(buffer-undo-list t)
(inhibit-read-only t))
@@ -2556,6 +2851,7 @@ If STRING is nil, the function does nothing."
(widen)
(goto-char insert-position)
(insert-before-markers string)
+ (erc--assert-input-bounds)
;; run insertion hook, with point at restored location
(save-restriction
(narrow-to-region insert-position (point))
@@ -2563,7 +2859,8 @@ If STRING is nil, the function does nothing."
(run-hooks 'erc-insert-post-hook)
(when erc-remove-parsed-property
(remove-text-properties (point-min) (point-max)
- '(erc-parsed nil))))))))
+ '(erc-parsed nil))))
+ (erc--refresh-prompt)))))
(run-hooks 'erc-insert-done-hook)
(erc-update-undo-list (- (or (marker-position erc-insert-marker)
(point-max))
@@ -2868,7 +3165,9 @@ See also `erc-format-message' and `erc-display-line'."
(erc-display-line string buffer)
(unless (erc-hide-current-message-p parsed)
(erc-put-text-property 0 (length string) 'erc-parsed parsed string)
- (erc-put-text-property 0 (length string) 'rear-sticky t string)
+ (put-text-property
+ 0 (length string) 'erc-command
+ (erc--get-eq-comparable-cmd (erc-response.command parsed)) string)
(when (erc-response.tags parsed)
(erc-put-text-property 0 (length string) 'tags (erc-response.tags
parsed)
string))
@@ -2882,6 +3181,10 @@ present."
(let ((prop-val (erc-get-parsed-vector position)))
(and prop-val (member (erc-response.command prop-val) list))))
+(defvar erc--called-as-input-p nil
+ "Non-nil when a user types a \"/slash\" command.
+Remains bound until `erc-cmd-SLASH' returns.")
+
(defvar-local erc-send-input-line-function 'erc-send-input-line
"Function for sending lines lacking a leading user command.
When a line typed into a buffer contains an explicit command, like /msg,
@@ -2935,7 +3238,9 @@ this function from interpreting the line as a command."
(if (and command-list
(not no-command))
(let* ((cmd (nth 0 command-list))
- (args (nth 1 command-list)))
+ (args (nth 1 command-list))
+ (erc--called-as-input-p t))
+ (erc--server-last-reconnect-display-reset (erc-server-buffer))
(condition-case nil
(if (listp args)
(apply cmd args)
@@ -3054,6 +3359,8 @@ returns the time spec converted to a number of seconds."
(string-to-number period))
;; Parse as a time spec.
(t
+ (require 'time-date)
+ (require 'iso8601)
(let ((time (condition-case nil
(iso8601-parse-duration
(concat (cond
@@ -3129,10 +3436,17 @@ If no USER argument is specified, list the contents of
`erc-ignore-list'."
(erc-with-server-buffer
(setq erc-ignore-list (delete user erc-ignore-list))))))
+(defvar erc--pre-clear-functions nil
+ "Abnormal hook run when truncating buffers.
+Called with position indicating boundary of interval to be excised.")
+
(defun erc-cmd-CLEAR ()
"Clear the window content."
(let ((inhibit-read-only t))
- (delete-region (point-min) (line-beginning-position)))
+ (run-hook-with-args 'erc--pre-clear-functions (1- erc-insert-marker))
+ ;; Ostensibly, `line-beginning-position' is for use in lisp code.
+ (delete-region (point-min) (min (line-beginning-position)
+ (1- erc-insert-marker))))
t)
(put 'erc-cmd-CLEAR 'process-not-needed t)
@@ -3203,7 +3517,7 @@ VERSION and so on. It is called with ARGS."
(erc-send-ctcp-message nick str)
t))
-(defun erc-cmd-HELP (&optional func)
+(defun erc-cmd-HELP (&optional func &rest rest)
"Popup help information.
If FUNC contains a valid function or variable, help about that
@@ -3236,6 +3550,10 @@ For a list of user commands (/join /part, ...):
nil)))))
(if sym
(cond
+ ((get sym 'erc--cmd-help)
+ (when (autoloadp (symbol-function sym))
+ (autoload-do-load (symbol-function sym)))
+ (apply (get sym 'erc--cmd-help) rest))
((boundp sym) (describe-variable sym))
((fboundp sym) (describe-function sym))
(t nil))
@@ -3402,7 +3720,21 @@ were most recently invited. See also `invitation'."
((with-current-buffer existing
(erc-get-channel-user (erc-current-nick)))))
(switch-to-buffer existing)
- (setq erc--server-last-reconnect-count 0)
+ (when-let* ; bind `erc-join-buffer' when /JOIN issued
+ ((erc--called-as-input-p)
+ (fn (lambda (proc parsed)
+ (when-let* ; `fn' wrapper already removed from hook
+ (((equal (car (erc-response.command-args parsed))
+ channel))
+ (sn (erc-extract-nick (erc-response.sender parsed)))
+ ((erc-nick-equal-p sn (erc-current-nick)))
+ (erc-join-buffer (or erc-interactive-display
+ erc-join-buffer)))
+ (run-hook-with-args-until-success
+ 'erc-server-JOIN-functions proc parsed)
+ t))))
+ (erc-with-server-buffer
+ (erc-once-with-server-event "JOIN" fn)))
(erc-server-join-channel nil chnl key))))
t)
@@ -3766,27 +4098,10 @@ just as you provided it. Use this command with care!"
(t nil)))
(put 'erc-cmd-QUOTE 'do-not-parse-args t)
-(defcustom erc-query-display 'window
- "How to display query buffers when using the /QUERY command to talk to
someone.
-
-The default behavior is to display the message in a new window
-and bring it to the front. See the documentation for
-`erc-join-buffer' for a description of the available choices.
-
-See also `erc-auto-query' to decide how private messages from
-other people should be displayed."
- :group 'erc-query
- :type '(choice (const :tag "Split window and select" window)
- (const :tag "Split window, don't select" window-noselect)
- (const :tag "New frame" frame)
- (const :tag "Bury in new buffer" bury)
- (const :tag "Use current buffer" buffer)
- (const :tag "Use current buffer" t)))
-
(defun erc-cmd-QUERY (&optional user)
"Open a query with USER.
How the query is displayed (in a new window, frame, etc.) depends
-on the value of `erc-query-display'."
+on the value of `erc-interactive-display'."
;; FIXME: The doc string used to say at the end:
;; "If USER is omitted, close the current query buffer if one exists
;; - except this is broken now ;-)"
@@ -3797,8 +4112,8 @@ on the value of `erc-query-display'."
(unless user
;; currently broken, evil hack to display help anyway
;(erc-delete-query))))
- (signal 'wrong-number-of-arguments ""))
- (let ((erc-join-buffer erc-query-display))
+ (signal 'wrong-number-of-arguments '(erc-cmd-QUERY 0)))
+ (let ((erc-join-buffer erc-interactive-display))
(erc-with-server-buffer
(erc--open-target user))))
@@ -4046,6 +4361,22 @@ means that the user has a +o flag in the channel's
access list)."
(t (erc-server-send "TIME"))))
(defalias 'erc-cmd-DATE #'erc-cmd-TIME)
+(defun erc-cmd-MOTD (&optional target)
+ "Ask server to send the current MOTD.
+Some IRCds simply ignore TARGET."
+ (letrec ((oneoff (lambda (proc parsed)
+ (with-current-buffer (erc-server-buffer)
+ (cl-assert (eq (current-buffer) (process-buffer proc)))
+ (remove-hook 'erc-server-402-functions h402 t)
+ (remove-hook 'erc-server-376-functions h376 t)
+ (remove-hook 'erc-server-422-functions h422 t))
+ (erc-server-MOTD proc parsed)
+ t))
+ (h402 (erc-once-with-server-event 402 oneoff))
+ (h376 (erc-once-with-server-event 376 oneoff))
+ (h422 (erc-once-with-server-event 422 oneoff)))
+ (erc-server-send (concat "MOTD" (and target " ") target))))
+
(defun erc-cmd-TOPIC (topic)
"Set or request the topic for a channel.
LINE has the format: \"#CHANNEL TOPIC\", \"#CHANNEL\", \"TOPIC\"
@@ -4246,6 +4577,30 @@ Eventually add a # in front of it, if that turns it into
a valid channel name."
channel
(concat "#" channel)))
+(defvar erc--own-property-names
+ '( tags erc-parsed display ; core
+ ;; `erc-display-prompt'
+ rear-nonsticky erc-prompt field front-sticky read-only
+ ;; stamp
+ cursor-intangible cursor-sensor-functions isearch-open-invisible
+ ;; match
+ invisible intangible
+ ;; button
+ erc-callback erc-data mouse-face keymap
+ ;; fill-wrap
+ line-prefix wrap-prefix)
+ "Props added by ERC that should not survive killing.
+Among those left behind by default are `font-lock-face' and
+`erc-secret'.")
+
+(defun erc--remove-text-properties (string)
+ "Remove text properties in STRING added by ERC.
+Specifically, remove any that aren't members of
+`erc--own-property-names'."
+ (remove-list-of-text-properties 0 (length string)
+ erc--own-property-names string)
+ string)
+
(defun erc-grab-region (start end)
"Copy the region between START and END in a recreatable format.
@@ -4297,7 +4652,7 @@ If FACE is non-nil, it will be used to propertize the
prompt. If it is nil,
(setq prompt (propertize prompt
'rear-nonsticky t
'erc-prompt t
- 'field t
+ 'field 'erc-prompt
'front-sticky t
'read-only t))
(erc-put-text-property 0 (1- (length prompt))
@@ -4433,6 +4788,19 @@ This places `point' just after the prompt, or at the
beginning of the line."
(setq erc-input-ring-index nil))
(kill-line)))
+(defvar erc--tab-functions nil
+ "Functions to try when user hits \\`TAB' outside of input area.
+Called with a numeric prefix arg.")
+
+(defun erc-tab (arg)
+ "Call `completion-at-point' when typing in the input area.
+Otherwise call members of `erc--tab-functions' with a numeric
+prefix ARG until one of them returns non-nil."
+ (interactive "p")
+ (if (>= (point) erc-input-marker)
+ (completion-at-point)
+ (run-hook-with-args-until-success 'erc--tab-functions arg)))
+
(defun erc-complete-word-at-point ()
(run-hook-with-args-until-success 'erc-complete-functions))
@@ -4447,9 +4815,13 @@ This places `point' just after the prompt, or at the
beginning of the line."
; Stolen from ZenIRC. I just wanna test this code, so here is
; experiment area.
-(defcustom erc-default-server-hook '(erc-debug-missing-hooks
- erc-default-server-handler)
- "Default for server messages which aren't covered by `erc-server-hooks'."
+;; This shouldn't be a user option but remains so for compatibility.
+(define-obsolete-variable-alias
+ 'erc-default-server-hook 'erc-default-server-functions "30.1")
+(defcustom erc-default-server-functions '(erc-handle-unknown-server-response)
+ "Abnormal hook for incoming messages without their own handlers.
+See `define-erc-response-handler' for more."
+ :package-version '(ERC . "5.6")
:group 'erc-server-hooks
:type 'hook)
@@ -4457,6 +4829,7 @@ This places `point' just after the prompt, or at the
beginning of the line."
"Default server handler.
Displays PROC and PARSED appropriately using `erc-display-message'."
+ (declare (obsolete erc-handle-unknown-server-response "29.1"))
(erc-display-message
parsed 'notice proc
(mapconcat
@@ -4479,7 +4852,7 @@ See `erc-debug-missing-hooks'.")
"Add PARSED server message ERC does not yet handle to `erc-server-vectors'.
These vectors can be helpful when adding new server message handlers to ERC.
See `erc-default-server-hook'."
- (nconc erc-server-vectors (list parsed))
+ (setq erc-server-vectors `(,@erc-server-vectors ,parsed))
nil)
(defun erc--open-target (target)
@@ -4501,22 +4874,30 @@ See `erc-default-server-hook'."
"Open a query buffer on TARGET using SERVER-BUFFER.
To change how this query window is displayed, use `let' to bind
`erc-join-buffer' before calling this."
- (declare (obsolete "bind `erc-cmd-query' and call `erc-cmd-QUERY'" "29.1"))
+ (declare (obsolete "call `erc-open' in a live server buffer" "29.1"))
(unless (buffer-live-p server-buffer)
(error "Couldn't switch to server buffer"))
(with-current-buffer server-buffer
(erc--open-target target)))
-(defcustom erc-auto-query 'window-noselect
+(defvaralias 'erc-auto-query 'erc-receive-query-display)
+(defcustom erc-receive-query-display 'window-noselect
"If non-nil, create a query buffer each time you receive a private message.
If the buffer doesn't already exist, it is created.
This can be set to a symbol, to control how the new query window
should appear. The default behavior is to display the buffer in
-a new window, but not to select it. See the documentation for
-`erc-join-buffer' for a description of the available choices."
+a new window but not to select it. See the documentation for
+`erc-buffer-display' for a description of available values.
+
+Note that the legacy behavior of forgoing buffer creation
+entirely when this option is nil requires setting the
+compatibility flag `erc-receive-query-display-defer' to nil. Use
+`erc-ensure-target-buffer-on-privmsg' to achieve the same effect."
+ :package-version '(ERC . "5.6")
+ :group 'erc-buffers
:group 'erc-query
- :type '(choice (const :tag "Don't create query window" nil)
+ :type '(choice (const :tag "Defer to value of `erc-buffer-display'" nil)
(const :tag "Split window and select" window)
(const :tag "Split window, don't select" window-noselect)
(const :tag "New frame" frame)
@@ -4524,15 +4905,37 @@ a new window, but not to select it. See the
documentation for
(const :tag "Use current buffer" buffer)
(const :tag "Use current buffer" t)))
-;; FIXME either retire this or put it to use after determining how
-;; it's meant to work. Clearly, the doc string does not describe
-;; current behavior. It's currently only used by the obsolete
-;; function `erc-auto-query'.
-(defcustom erc-query-on-unjoined-chan-privmsg t
- "If non-nil create query buffer on receiving any PRIVMSG at all.
+(defvar erc-receive-query-display-defer t
+ "How to interpret a null `erc-receive-query-display'.
+When this variable is non-nil, ERC defers to `erc-buffer-display'
+upon seeing a nil value for `erc-receive-query-display', much
+like it does with other buffer-display options, like
+`erc-interactive-display'. Otherwise, when this option is nil,
+ERC retains the legacy behavior of not creating a new query
+buffer.")
+
+(defvaralias 'erc-query-on-unjoined-chan-privmsg
+ 'erc-ensure-target-buffer-on-privmsg)
+(defcustom erc-ensure-target-buffer-on-privmsg t
+ "When non-nil, create a target buffer upon receiving a PRIVMSG.
This includes PRIVMSGs directed to channels. If you are using an IRC
bouncer, such as dircproxy, to keep a log of channels when you are
-disconnected, you should set this option to t."
+disconnected, you should set this option to t.
+
+For queries (direct messages), this option's non-nil meaning is
+straightforward: if a buffer doesn't exist for the sender, create
+one. For channels, the use case is more niche and usually
+involves receiving playback (via commands like ZNC's
+\"PLAYBUFFER\") for channels to which your bouncer is joined but
+from which you've \"detached\".
+
+Note that this option was absent from ERC 5.5 because knowledge
+of its intended role was \"unavailable\" during a major
+refactoring involving buffer management. The option has since
+been restored in ERC 5.6 but now also affects queries in the
+manner implied above, which was lost sometime before ERC 5.4."
+ :package-version '(ERC . "5.6") ; revived
+ :group 'erc-buffers
:group 'erc-query
:type 'boolean)
@@ -4573,6 +4976,34 @@ E.g. \"Read error to Nick [user@some.host]: 110\" would
be shortened to
(match-string 1 reason))
reason))
+(defun erc-regain-nick-on-connect (want temp)
+ "Try at most once to grab nickname WANT after settling for TEMP.
+Only do so during connection registration, likely prior to
+authenticating with SASL. Assume the prior connection was lost
+due to connectivity failure and that the server hasn't yet
+noticed. Also assume that the server won't process any
+authentication-related messages until it has accepted a mulligan
+nick or at least sent a 433 and thus triggered
+`erc-nickname-in-use-functions'. Expect authentication to have
+succeeded by the time a logical IRC connection has been
+established and that the contending connection may otherwise
+still be alive and require manual intervention involving
+NickServ."
+ (unless erc-server-connected
+ (letrec ((after-connect
+ (lambda (_ nick)
+ (remove-hook 'erc-after-connect after-connect t)
+ (when (equal temp nick)
+ (erc-cmd-NICK want))))
+ (on-900
+ (lambda (_ parsed)
+ (remove-hook 'erc-server-900-functions on-900 t)
+ (unless erc-server-connected
+ (when (equal (car (erc-response.command-args parsed)) temp)
+ (add-hook 'erc-after-connect after-connect nil t)))
+ nil)))
+ (add-hook 'erc-server-900-functions on-900 nil t))))
+
(defun erc-nickname-in-use (nick reason)
"If NICK is unavailable, tell the user the REASON.
@@ -4606,6 +5037,7 @@ See also `erc-display-error-notice'."
;; established a connection yet
(- 9 (length erc-nick-uniquifier))))
erc-nick-uniquifier)))
+ (run-hook-with-args 'erc-nickname-in-use-functions nick newnick)
(erc-cmd-NICK newnick)
(erc-display-error-notice
nil
@@ -4614,6 +5046,9 @@ See also `erc-display-error-notice'."
;;; Server messages
+;; FIXME remove on next major version release. This group is all but
+;; unused because most `erc-server-FOO-functions' are plain variables
+;; and not user options as implied by this doc string.
(defgroup erc-server-hooks nil
"Server event callbacks.
Every server event - like numeric replies - has its own hook.
@@ -4661,6 +5096,16 @@ and as second argument the event parsed as a vector."
(and (erc-is-message-ctcp-p message)
(not (string-match "^\C-aACTION.*\C-a$" message))))
+(defvar erc--user-from-nick-function #'erc--examine-nick
+ "Function to possibly consider unknown user.
+Must return either nil or a cons of an `erc-server-user' and a
+possibly nil `erc-channel-user' for formatting a server user's
+nick. Called in the appropriate buffer with the downcased nick,
+the parsed NUH, and the original `erc-response' object.")
+
+(defun erc--examine-nick (downcased _nuh _parsed)
+ (and erc-channel-users (gethash downcased erc-channel-users)))
+
(defun erc-format-privmessage (nick msg privp msgp)
"Format a PRIVMSG in an insertable fashion."
(let* ((mark-s (if msgp (if privp "*" "<") "-"))
@@ -4910,6 +5355,12 @@ Set user modes and run `erc-after-connect' hook."
(setq erc-server-connected t)
(setq erc--server-last-reconnect-count erc-server-reconnect-count
erc-server-reconnect-count 0)
+ (setq erc--server-reconnect-display-timer
+ (run-at-time erc-reconnect-display-timeout nil
+ #'erc--server-last-reconnect-display-reset
+ (current-buffer)))
+ (add-hook 'erc-disconnected-hook
+ #'erc--server-last-reconnect-on-disconnect nil t)
(erc-update-mode-line)
(erc-set-initial-user-mode nick buffer)
(erc-server-setup-periodical-ping buffer)
@@ -5669,7 +6120,7 @@ See also variable `erc-notice-highlight-type'."
(erc-put-text-property 0 (length s) 'font-lock-face 'erc-error-face s)
s)
-(defun erc-put-text-property (start end property value &optional object)
+(defalias 'erc-put-text-property 'put-text-property
"Set text-property for an object (usually a string).
START and END define the characters covered.
PROPERTY is the text-property set, usually the symbol `face'.
@@ -5679,14 +6130,9 @@ OBJECT is a string which will be modified and returned.
OBJECT is modified without being copied first.
You can redefine or `defadvice' this function in order to add
-EmacsSpeak support."
- (put-text-property start end property value object))
+EmacsSpeak support.")
-(defun erc-list (thing)
- "Return THING if THING is a list, or a list with THING as its element."
- (if (listp thing)
- thing
- (list thing)))
+(defalias 'erc-list 'ensure-list)
(defun erc-parse-user (string)
"Parse STRING as a user specification (nick!login@host).
@@ -5748,17 +6194,37 @@ If that function has never been called, the value is
0.")
"Minimum time, in seconds, before sending new lines via IRC.
If the value is a number, `erc-send-current-line' signals an error
if its previous invocation was fewer than this many seconds ago.
-This is useful so that if you accidentally enter large amounts of text
-into the ERC buffer, that text is not sent to the IRC server.
-
If the value is nil, `erc-send-current-line' always considers any
-submitted line to be intentional."
+submitted line to be intentional.
+
+This option mainly prevents text accidentally entered into Emacs
+from being sent to the server. Offending sources include
+terminal multiplexers, desktop-automation scripts, and anything
+capable of rapidly submitting successive lines of prompt input.
+For example, entering \"one\\ntwo\\nthree\\n\" will send \"one\"
+to the server, leave \"two\" at the prompt, and insert \"three\"
+into an \"overflow\" buffer. See `erc-inhibit-multiline-input'
+and `erc-warn-about-blank-lines' for suppression involving input
+yanked from the clipboard or the kill ring, which is a related
+but separate concern.
+
+Users of terminal multiplexers, in particular, should look into
+support for \"bracketed pasting\", provided on the Emacs side by
+libraries like `xterm' (and usually enabled by default). When
+everything's working smoothly, Emacs transparently arranges for
+pasted text to appear on the kill ring, regardless of any
+read-only warnings you may encounter. And when point is in the
+prompt area, ERC automatically yanks that text for previewing but
+holds off on submitting it, for obvious reasons."
:group 'erc
:version "26.1"
:type '(choice number (other :tag "disabled" nil)))
(defvar erc--input-line-delim-regexp (rx (| (: (? ?\r) ?\n) ?\r)))
+(defvar erc-command-regexp "^/\\([A-Za-z']+\\)\\(\\s-+.*\\|\\s-*\\)$"
+ "Regular expression used for matching commands in ERC.")
+
(defun erc--blank-in-multiline-input-p (lines)
"Detect whether LINES contains a blank line.
When `erc-send-whitespace-lines' is in effect, return nil if
@@ -5776,16 +6242,18 @@ is empty or consists of one or more spaces, tabs, or
form-feeds."
(defun erc--check-prompt-input-for-excess-lines (_ lines)
"Return non-nil when trying to send too many LINES."
(when erc-inhibit-multiline-input
- ;; Assume `erc--discard-trailing-multiline-nulls' is set to run
- (let ((reversed (seq-drop-while #'string-empty-p (reverse lines)))
- (max (if (eq erc-inhibit-multiline-input t)
+ (let ((max (if (eq erc-inhibit-multiline-input t)
2
erc-inhibit-multiline-input))
(seen 0)
- msg)
- (while (and (pop reversed) (< (cl-incf seen) max)))
+ last msg)
+ (while (and lines (setq last (pop lines)) (< (cl-incf seen) max)))
(when (= seen max)
- (setq msg (format "(exceeded by %d)" (1+ (length reversed))))
+ (push last lines)
+ (setq msg
+ (format "-- exceeded by %d (%d chars)"
+ (length lines)
+ (apply #'+ (mapcar #'length lines))))
(unless (and erc-ask-about-multiline-input
(y-or-n-p (concat "Send input " msg "?")))
(concat "Too many lines " msg))))))
@@ -5808,16 +6276,34 @@ is empty or consists of one or more spaces, tabs, or
form-feeds."
(erc-command-no-process-p string))
"ERC: No process running"))
+(defun erc--check-prompt-input-for-multiline-command (line lines)
+ "Return non-nil when non-blank lines follow a command line."
+ (when (and (cdr lines)
+ (string-match erc-command-regexp line)
+ (seq-drop-while #'string-empty-p (reverse (cdr lines))))
+ "Excess input after command line"))
+
(defvar erc--check-prompt-input-functions
'(erc--check-prompt-input-for-point-in-bounds
erc--check-prompt-input-for-multiline-blanks
erc--check-prompt-input-for-running-process
- erc--check-prompt-input-for-excess-lines)
+ erc--check-prompt-input-for-excess-lines
+ erc--check-prompt-input-for-multiline-command)
"Validators for user input typed at prompt.
Called with latest input string submitted by user and the list of
lines produced by splitting it. If any member function returns
non-nil, processing is abandoned and input is left untouched.
-When the returned value is a string, pass it to `erc-error'.")
+When the returned value is a string, ERC passes it to `erc-error'.")
+
+(defun erc--run-input-validation-checks (state)
+ "Run input checkers from STATE, an `erc--input-split' object."
+ (when-let ((msg (run-hook-with-args-until-success
+ 'erc--check-prompt-input-functions
+ (erc--input-split-string state)
+ (erc--input-split-lines state))))
+ (unless (stringp msg)
+ (setq msg (format "Input error: %S" msg)))
+ (user-error msg)))
(defun erc-send-current-line ()
"Parse current line and send it to IRC."
@@ -5832,32 +6318,29 @@ When the returned value is a string, pass it to
`erc-error'.")
(eolp))
(expand-abbrev))
(widen)
- (if-let* ((str (erc-user-input))
- (msg (run-hook-with-args-until-success
- 'erc--check-prompt-input-functions str
- (split-string str erc--input-line-delim-regexp))))
- (when (stringp msg)
- (erc-error msg))
+ (let* ((str (erc-user-input))
+ (state (make-erc--input-split
+ :string str
+ :insertp erc-insert-this
+ :sendp erc-send-this
+ :lines (split-string
+ str erc--input-line-delim-regexp)
+ :cmdp (string-match erc-command-regexp str))))
+ (run-hook-with-args 'erc--input-review-functions state)
(let ((inhibit-read-only t)
(old-buf (current-buffer)))
(progn ; unprogn this during next major surgery
(erc-set-active-buffer (current-buffer))
;; Kill the input and the prompt
- (delete-region (erc-beg-of-input-line)
- (erc-end-of-input-line))
+ (delete-region erc-input-marker (erc-end-of-input-line))
(unwind-protect
- (erc-send-input str 'skip-ws-chk)
+ (erc--send-input-lines (erc--run-send-hooks state))
;; Fix the buffer if the command didn't kill it
(when (buffer-live-p old-buf)
(with-current-buffer old-buf
(save-restriction
(widen)
- (goto-char (point-max))
- (when (processp erc-server-process)
- (set-marker (process-mark erc-server-process)
(point)))
- (set-marker erc-insert-marker (point))
(let ((buffer-modified (buffer-modified-p)))
- (erc-display-prompt)
(set-buffer-modified-p buffer-modified))))))
;; Only when last hook has been run...
@@ -5873,19 +6356,69 @@ When the returned value is a string, pass it to
`erc-error'.")
erc-input-marker
(erc-end-of-input-line)))
-(defvar erc-command-regexp "^/\\([A-Za-z']+\\)\\(\\s-+.*\\|\\s-*\\)$"
- "Regular expression used for matching commands in ERC.")
-
(defun erc--discard-trailing-multiline-nulls (state)
"Ensure last line of STATE's string is non-null.
But only when `erc-send-whitespace-lines' is non-nil. STATE is
an `erc--input-split' object."
(when (and erc-send-whitespace-lines (erc--input-split-lines state))
(let ((reversed (nreverse (erc--input-split-lines state))))
- (when (string-empty-p (car reversed))
- (pop reversed)
- (setf (erc--input-split-cmdp state) nil))
- (nreverse (seq-drop-while #'string-empty-p reversed)))))
+ (while (and reversed (string-empty-p (car reversed)))
+ (setq reversed (cdr reversed)))
+ (setf (erc--input-split-lines state) (nreverse reversed)))))
+
+(defun erc--split-lines (state)
+ "Partition non-command input into lines of protocol-compliant length."
+ ;; Prior to ERC 5.6, line splitting used to be predicated on
+ ;; `erc-flood-protect' being non-nil.
+ (unless (erc--input-split-cmdp state)
+ (setf (erc--input-split-lines state)
+ (mapcan #'erc--split-line (erc--input-split-lines state)))))
+
+(defun erc--run-send-hooks (lines-obj)
+ "Run send-related hooks that operate on the entire prompt input.
+Sequester some of the back and forth involved in honoring old
+interfaces, such as the reconstituting and re-splitting of
+multiline input. Optionally readjust lines to protocol length
+limits and pad empty ones, knowing full well that additional
+processing may still corrupt messages before they reach the send
+queue. Expect LINES-OBJ to be an `erc--input-split' object."
+ (when (or erc-send-pre-hook erc-pre-send-functions)
+ (with-suppressed-warnings ((lexical str) (obsolete erc-send-this))
+ (defvar str) ; see note in string `erc-send-input'.
+ (let* ((str (string-join (erc--input-split-lines lines-obj) "\n"))
+ (erc-send-this (erc--input-split-sendp lines-obj))
+ (erc-insert-this (erc--input-split-insertp lines-obj))
+ (state (progn
+ ;; This may change `str' and `erc-*-this'.
+ (run-hook-with-args 'erc-send-pre-hook str)
+ (make-erc-input :string str
+ :insertp erc-insert-this
+ :sendp erc-send-this))))
+ (run-hook-with-args 'erc-pre-send-functions state)
+ (setf (erc--input-split-sendp lines-obj) (erc-input-sendp state)
+ (erc--input-split-insertp lines-obj) (erc-input-insertp state)
+ ;; See note in test of same name re trailing newlines.
+ (erc--input-split-lines lines-obj)
+ (cl-nsubst " " "" (split-string (erc-input-string state)
+ erc--input-line-delim-regexp)
+ :test #'equal))
+ (when (erc-input-refoldp state)
+ (erc--split-lines lines-obj)))))
+ (when (and (erc--input-split-cmdp lines-obj)
+ (cdr (erc--input-split-lines lines-obj)))
+ (user-error "Multiline command detected" ))
+ lines-obj)
+
+(defun erc--send-input-lines (lines-obj)
+ "Send lines in `erc--input-split-lines' object LINES-OBJ."
+ (when (erc--input-split-sendp lines-obj)
+ (dolist (line (erc--input-split-lines lines-obj))
+ (unless (erc--input-split-cmdp lines-obj)
+ (when (erc--input-split-insertp lines-obj)
+ (erc-display-msg line)))
+ (erc-process-input-line (concat line "\n")
+ (null erc-flood-protect)
+ (not (erc--input-split-cmdp lines-obj))))))
(defun erc-send-input (input &optional skip-ws-chk)
"Treat INPUT as typed in by the user.
@@ -5917,23 +6450,22 @@ Return non-nil only if we actually send anything."
:insertp erc-insert-this
:sendp erc-send-this))
(run-hook-with-args 'erc-pre-send-functions state)
- (setq state (make-erc--input-split
- :string (erc-input-string state)
- :insertp (erc-input-insertp state)
- :sendp (erc-input-sendp state)
- :lines (split-string (erc-input-string state)
- erc--input-line-delim-regexp)
- :cmdp (string-match erc-command-regexp
- (erc-input-string state))))
- (run-hook-with-args 'erc--pre-send-split-functions state)
(when (and (erc-input-sendp state)
erc-send-this)
- (let ((lines (erc--input-split-lines state)))
- (if (and (erc--input-split-cmdp state) (not (cdr lines)))
- (erc-process-input-line (concat (car lines) "\n") t nil)
+ (if-let* ((first (split-string (erc-input-string state)
+ erc--input-line-delim-regexp))
+ (split (mapcan #'erc--split-line first))
+ (lines (nreverse (seq-drop-while #'string-empty-p
+ (nreverse split))))
+ ((string-match erc-command-regexp (car lines))))
+ (progn
+ ;; Asking users what to do here might make more sense.
+ (cl-assert (not (cdr lines)))
+ ;; The `force' arg (here t) is ignored for command lines.
+ (erc-process-input-line (concat (car lines) "\n") t nil))
+ (progn ; temporarily preserve indentation
(dolist (line lines)
- (dolist (line (or (and erc-flood-protect (erc-split-line line))
- (list line)))
+ (progn ; temporarily preserve indentation
(when (erc-input-insertp state)
(erc-display-msg line))
(erc-process-input-line (concat line "\n")
@@ -5943,21 +6475,21 @@ Return non-nil only if we actually send anything."
(defun erc-display-msg (line)
"Display LINE as a message of the user to the current target at point."
(when erc-insert-this
- (let ((insert-position (point)))
- (insert (erc-format-my-nick))
- (let ((beg (point)))
- (insert line)
- (erc-put-text-property beg (point)
- 'font-lock-face 'erc-input-face))
- (insert "\n")
- (when (processp erc-server-process)
- (set-marker (process-mark erc-server-process) (point)))
- (set-marker erc-insert-marker (point))
- (save-excursion
+ (save-excursion
+ (erc--assert-input-bounds)
+ (let ((insert-position (marker-position erc-insert-marker))
+ beg)
+ (goto-char insert-position)
+ (insert-before-markers (erc-format-my-nick))
+ (setq beg (point))
+ (insert-before-markers line)
+ (erc-put-text-property beg (point) 'font-lock-face 'erc-input-face)
+ (insert-before-markers "\n")
(save-restriction
(narrow-to-region insert-position (point))
(run-hooks 'erc-send-modify-hook)
- (run-hooks 'erc-send-post-hook))))))
+ (run-hooks 'erc-send-post-hook))
+ (erc--refresh-prompt)))))
(defun erc-command-symbol (command)
"Return the ERC command symbol for COMMAND if it exists and is bound."
@@ -6836,8 +7368,6 @@ shortened server name instead."
(cond (lag (format "lag:%.0f" lag))
(t ""))))
-;; erc-goodies is required at end of this file.
-
;; TODO when ERC drops Emacs 28, replace the expressions in the format
;; spec below with functions.
(defun erc-update-mode-line-buffer (buffer)
@@ -6917,6 +7447,51 @@ If BUFFER is nil, update the mode line in all ERC
buffers."
(goto-char (point-min))
(insert "X-Debbugs-CC: emacs-erc@gnu.org\n")))
+(defconst erc--news-url
+ "https://git.savannah.gnu.org/cgit/emacs.git/plain/etc/ERC-NEWS";)
+
+(defvar erc--news-temp-file nil)
+
+(defun erc-news (arg)
+ "Show ERC news in a manner similar to `view-emacs-news'.
+With ARG, download and display the latest revision, which may
+contain more up-to-date information, even for older versions."
+ (interactive "P")
+ (find-file
+ (or (and arg erc--news-temp-file
+ (time-less-p (current-time) (car erc--news-temp-file))
+ (cdr erc--news-temp-file))
+ (and arg
+ (with-current-buffer (url-retrieve-synchronously erc--news-url)
+ (goto-char (point-min))
+ (search-forward "200 OK" (pos-eol))
+ (search-forward "\n\n")
+ (delete-region (point-min) (point))
+ (let ((tempfile (make-temp-file "erc-news.")))
+ (write-region (point-min) (point-max) tempfile)
+ (kill-buffer)
+ (cdr (setq erc--news-temp-file
+ (cons (time-add (current-time) (* 60 60 12))
+ tempfile))))))
+ (and-let* ((file (or (eval-when-compile (macroexp-file-name))
+ (locate-library "erc")))
+ (dir (file-name-directory file))
+ (adjacent (expand-file-name "ERC-NEWS" dir))
+ ((file-exists-p adjacent)))
+ adjacent)
+ (expand-file-name "ERC-NEWS" data-directory)))
+ (when (fboundp 'emacs-news-view-mode)
+ (emacs-news-view-mode))
+ (let ((v (mapcar #'number-to-string
+ (seq-take-while #'natnump (version-to-list erc-version)))))
+ (while (and v
+ (goto-char (point-min))
+ (not (search-forward (concat "\014\n* Changes in ERC "
+ (string-join v "."))
+ nil t)))
+ (setq v (butlast v))))
+ (beginning-of-line))
+
(defun erc-port-to-string (p)
"Convert port P to a string.
P may be an integer or a service name."
@@ -7131,6 +7706,7 @@ All windows are opened in the current frame."
(s379 . "%c: Forwarded to %f")
(s391 . "The time at %s is %t")
(s401 . "%n: No such nick/channel")
+ (s402 . "%c: No such server")
(s403 . "%c: No such channel")
(s404 . "%c: Cannot send to channel")
(s405 . "%c: You have joined too many channels")
@@ -7280,10 +7856,11 @@ This function should be on `erc-kill-channel-hook'."
(defun erc-restore-text-properties ()
"Restore the property `erc-parsed' for the region."
- (let ((parsed-posn (erc-find-parsed-property)))
- (put-text-property
- (point-min) (point-max)
- 'erc-parsed (when parsed-posn (erc-get-parsed-vector parsed-posn)))))
+ (when-let* ((parsed-posn (erc-find-parsed-property))
+ (found (erc-get-parsed-vector parsed-posn)))
+ (put-text-property (point-min) (point-max) 'erc-parsed found)
+ (when-let ((tags (get-text-property parsed-posn 'tags)))
+ (put-text-property (point-min) (point-max) 'tags tags))))
(defun erc-get-parsed-vector (point)
"Return the whole parsed vector on POINT."
@@ -7303,6 +7880,13 @@ This function should be on `erc-kill-channel-hook'."
(and vect
(erc-response.command vect)))
+(defun erc--get-eq-comparable-cmd (command)
+ "Return a symbol or a fixnum representing a message's COMMAND.
+See also `erc-message-type'."
+ ;; IRC numerics are three-digit numbers, possibly with leading 0s.
+ ;; To invert: (if (numberp o) (format "%03d" o) (symbol-name o))
+ (if-let* ((n (string-to-number command)) ((zerop n))) (intern command) n))
+
;; Teach url.el how to open irc:// URLs with ERC.
;; To activate, customize `url-irc-function' to `url-irc-erc'.
@@ -7386,6 +7970,4 @@ Customize `erc-url-connect-function' to override this."
(provide 'erc)
-;; FIXME this is a temporary stopgap for Emacs 29.
-(require 'erc-goodies)
;;; erc.el ends here
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el
index 5dfd10d6e4c..732bbb3f1fa 100644
--- a/lisp/eshell/em-cmpl.el
+++ b/lisp/eshell/em-cmpl.el
@@ -306,9 +306,24 @@ to writing a completion function."
(defun eshell-complete--eval-argument-form (arg)
"Evaluate a single Eshell argument form ARG for the purposes of completion."
- (let ((result (eshell-do-eval `(eshell-commands ,arg) t)))
- (cl-assert (eq (car result) 'quote))
- (cadr result)))
+ (condition-case err
+ (let* (;; Don't allow running commands; they could have
+ ;; arbitrary side effects, which we don't want when we're
+ ;; just performing completions!
+ (eshell-allow-commands)
+ ;; Handle errors ourselves so that we can properly catch
+ ;; `eshell-commands-forbidden'.
+ (eshell-handle-errors)
+ (result (eshell-do-eval `(eshell-commands ,arg) t)))
+ (cl-assert (eq (car result) 'quote))
+ (cadr result))
+ (eshell-commands-forbidden
+ (propertize "\0" 'eshell-argument-stub
+ (intern (format "%s-command" (cadr err)))))
+ (error
+ (lwarn 'eshell :error
+ "Failed to evaluate argument form during completion: %S" arg)
+ (propertize "\0" 'eshell-argument-stub 'error))))
(defun eshell-complete-parse-arguments ()
"Parse the command line arguments for `pcomplete-argument'."
@@ -317,7 +332,7 @@ to writing a completion function."
(eshell--pcomplete-insert-tab))
(let ((end (point-marker))
(begin (save-excursion (beginning-of-line) (point)))
- args posns delim)
+ args posns delim incomplete-arg)
(when (and pcomplete-allow-modifications
(memq this-command '(pcomplete-expand
pcomplete-expand-and-complete)))
@@ -325,22 +340,28 @@ to writing a completion function."
(if (= begin end)
(end-of-line))
(setq end (point-marker)))
- (if (setq delim
- (catch 'eshell-incomplete
- (ignore
- (setq args (eshell-parse-arguments begin end)))))
- (cond ((member (car delim) '("{" "${" "$<"))
- (setq begin (1+ (cadr delim))
- args (eshell-parse-arguments begin end)))
- ((member (car delim) '("$'" "$\""))
- ;; Add the (incomplete) argument to our arguments, and
- ;; note its position.
- (setq args (append (nth 2 delim) (list (car delim))))
- (push (- (nth 1 delim) 2) posns))
- ((member (car delim) '("(" "$("))
- (throw 'pcompleted (elisp-completion-at-point)))
- (t
- (eshell--pcomplete-insert-tab))))
+ ;; Don't expand globs when parsing arguments; we want to pass any
+ ;; globs to Pcomplete unaltered.
+ (declare-function eshell-parse-glob-chars "em-glob" ())
+ (let ((eshell-parse-argument-hook (remq #'eshell-parse-glob-chars
+ eshell-parse-argument-hook)))
+ (if (setq delim
+ (catch 'eshell-incomplete
+ (ignore
+ (setq args (eshell-parse-arguments begin end)))))
+ (cond ((member (car delim) '("{" "${" "$<"))
+ (setq begin (1+ (cadr delim))
+ args (eshell-parse-arguments begin end)))
+ ((member (car delim) '("$'" "$\"" "#<"))
+ ;; Add the (incomplete) argument to our arguments, and
+ ;; note its position.
+ (setq args (append (nth 2 delim) (list (car delim)))
+ incomplete-arg t)
+ (push (- (nth 1 delim) 2) posns))
+ ((member (car delim) '("(" "$("))
+ (throw 'pcompleted (elisp-completion-at-point)))
+ (t
+ (eshell--pcomplete-insert-tab)))))
(when (get-text-property (1- end) 'comment)
(eshell--pcomplete-insert-tab))
(let ((pos (1- end)))
@@ -362,7 +383,8 @@ to writing a completion function."
(setq args (nthcdr (1+ new-start) args)
posns (nthcdr (1+ new-start) posns))))
(cl-assert (= (length args) (length posns)))
- (when (and args (eq (char-syntax (char-before end)) ? )
+ (when (and args (not incomplete-arg)
+ (eq (char-syntax (char-before end)) ? )
(not (eq (char-before (1- end)) ?\\)))
(nconc args (list ""))
(nconc posns (list (point))))
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index eb679b80cb5..5284df9ab59 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -253,11 +253,26 @@ Thus, this does not include the current directory.")
(throw 'eshell-replace-command
(eshell-parse-command "cd" (flatten-tree args)))))
+(defun eshell-expand-user-reference-1 (file)
+ "Expand a user reference in FILE to its real directory name."
+ (replace-regexp-in-string
+ (rx bos (group "~" (*? anychar)) (or "/" eos))
+ #'expand-file-name file))
+
+(defun eshell-expand-user-reference (file)
+ "Expand a user reference in FILE to its real directory name.
+FILE can be either a string or a list of strings to expand."
+ ;; If the argument was a glob pattern, then FILE is a list, so
+ ;; expand each element of the glob's resulting list.
+ (if (listp file)
+ (mapcar #'eshell-expand-user-reference-1 file)
+ (eshell-expand-user-reference-1 file)))
+
(defun eshell-parse-user-reference ()
"An argument beginning with ~ is a filename to be expanded."
(when (and (not eshell-current-argument)
- (eq (char-after) ?~))
- (add-to-list 'eshell-current-modifiers 'expand-file-name)
+ (eq (char-after) ?~))
+ (add-to-list 'eshell-current-modifiers #'eshell-expand-user-reference)
(forward-char)
(char-to-string (char-before))))
diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el
index 8a2ba13b2ad..d00f8c93cd1 100644
--- a/lisp/eshell/em-glob.el
+++ b/lisp/eshell/em-glob.el
@@ -79,7 +79,7 @@ by zsh for filename generation."
:type 'boolean
:group 'eshell-glob)
-(defcustom eshell-glob-case-insensitive (eshell-under-windows-p)
+(defcustom eshell-glob-case-insensitive (not (not (eshell-under-windows-p)))
"If non-nil, glob pattern matching will ignore case."
:type 'boolean
:group 'eshell-glob)
@@ -145,16 +145,6 @@ This mimics the behavior of zsh if non-nil, but bash if
nil."
(defun eshell-add-glob-modifier ()
"Add `eshell-extended-glob' to the argument modifier list."
- (when (memq 'expand-file-name eshell-current-modifiers)
- (setq eshell-current-modifiers
- (delq 'expand-file-name eshell-current-modifiers))
- ;; if this is a glob pattern than needs to be expanded, then it
- ;; will need to expand each member of the resulting glob list
- (add-to-list 'eshell-current-modifiers
- (lambda (list)
- (if (listp list)
- (mapcar 'expand-file-name list)
- (expand-file-name list)))))
(add-to-list 'eshell-current-modifiers 'eshell-extended-glob))
(defun eshell-parse-glob-chars ()
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index 56c5f262789..9b53bf29559 100644
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -199,9 +199,9 @@ calling FUNC with FILE as an argument."
`(let ((owner (file-attribute-user-id ,attrs))
(modes (file-attribute-modes ,attrs)))
(cond ((cond ((numberp owner)
- (= owner (user-uid)))
+ (= owner (file-user-uid)))
((stringp owner)
- (or (string-equal owner (user-login-name))
+ (or (string-equal owner (eshell-user-login-name))
(member owner (eshell-current-ange-uids)))))
;; The user owns this file.
(not (eq (aref modes ,index) ?-)))
@@ -919,7 +919,7 @@ to use, and each member of which is the width of that column
((not (eshell-ls-filetype-p (cdr file) ?-))
'eshell-ls-special)
- ((and (/= (user-uid) 0) ; root can execute anything
+ ((and (/= (file-user-uid) 0) ; root can execute anything
(eshell-ls-applicable (cdr file) 3
'file-executable-p (car file)))
'eshell-ls-executable)
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el
index 2ccca092b86..bfb0dad60ef 100644
--- a/lisp/eshell/em-pred.el
+++ b/lisp/eshell/em-pred.el
@@ -87,11 +87,11 @@ ordinary strings."
(?U . (lambda (file) ; owned by effective uid
(if (file-exists-p file)
(= (file-attribute-user-id (file-attributes file))
- (user-uid)))))
+ (file-user-uid)))))
(?G . (lambda (file) ; owned by effective gid
(if (file-exists-p file)
(= (file-attribute-group-id (file-attributes file))
- (group-gid)))))
+ (file-group-gid)))))
(?* . (lambda (file)
(and (file-regular-p file)
(not (file-symlink-p file))
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index d550910f4f0..b7ef0f0c40c 100644
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -91,14 +91,29 @@ Otherwise, `rmdir' is required."
:type 'boolean
:group 'eshell-unix)
-(defcustom eshell-rm-interactive-query (= (user-uid) 0)
- "If non-nil, `rm' will query before removing anything."
- :type 'boolean
+(define-widget 'eshell-interactive-query 'radio
+ "When to interatively query the user about a particular operation.
+If t, always query. If nil, never query. If `root', query when
+the user is logged in as root (including when `default-directory'
+is remote with a root user)."
+ :args '((const :tag "Never" nil)
+ (const :tag "Always" t)
+ (const :tag "When root" root)))
+
+(defcustom eshell-rm-interactive-query 'root
+ "When `rm' should query before removing anything.
+If t, always query. If nil, never query. If `root', query when
+the user is logged in as root (including when `default-directory'
+is remote with a root user)."
+ :type 'eshell-interactive-query
:group 'eshell-unix)
-(defcustom eshell-mv-interactive-query (= (user-uid) 0)
- "If non-nil, `mv' will query before overwriting anything."
- :type 'boolean
+(defcustom eshell-mv-interactive-query 'root
+ "When `mv' should query before overwriting anything.
+If t, always query. If nil, never query. If `root', query when
+the user is logged in as root (including when `default-directory'
+is remote with a root user)."
+ :type 'eshell-interactive-query
:group 'eshell-unix)
(defcustom eshell-mv-overwrite-files t
@@ -106,9 +121,12 @@ Otherwise, `rmdir' is required."
:type 'boolean
:group 'eshell-unix)
-(defcustom eshell-cp-interactive-query (= (user-uid) 0)
- "If non-nil, `cp' will query before overwriting anything."
- :type 'boolean
+(defcustom eshell-cp-interactive-query 'root
+ "When `cp' should query before overwriting anything.
+If t, always query. If nil, never query. If `root', query when
+the user is logged in as root (including when `default-directory'
+is remote with a root user)."
+ :type 'eshell-interactive-query
:group 'eshell-unix)
(defcustom eshell-cp-overwrite-files t
@@ -116,9 +134,12 @@ Otherwise, `rmdir' is required."
:type 'boolean
:group 'eshell-unix)
-(defcustom eshell-ln-interactive-query (= (user-uid) 0)
- "If non-nil, `ln' will query before overwriting anything."
- :type 'boolean
+(defcustom eshell-ln-interactive-query 'root
+ "When `ln' should query before overwriting anything.
+If t, always query. If nil, never query. If `root', query when
+the user is logged in as root (including when `default-directory'
+is remote with a root user)."
+ :type 'eshell-interactive-query
:group 'eshell-unix)
(defcustom eshell-ln-overwrite-files nil
@@ -145,9 +166,10 @@ Otherwise, Emacs will attempt to use rsh to invoke du on
the remote machine."
(add-hook 'pcomplete-try-first-hook
'eshell-complete-host-reference nil t))
(setq-local eshell-complex-commands
- (append '("grep" "egrep" "fgrep" "agrep" "glimpse" "locate"
- "cat" "time" "cp" "mv" "make" "du" "diff")
- eshell-complex-commands)))
+ (append '("grep" "egrep" "fgrep" "agrep" "rgrep"
+ "glimpse" "locate" "cat" "time" "cp" "mv"
+ "make" "du" "diff")
+ eshell-complex-commands)))
(defalias 'eshell/date 'current-time-string)
(defalias 'eshell/basename 'file-name-nondirectory)
@@ -158,6 +180,17 @@ Otherwise, Emacs will attempt to use rsh to invoke du on
the remote machine."
(defvar em-recursive)
(defvar em-verbose)
+(defun eshell-interactive-query-p (value)
+ "Return non-nil if a command should query the user according to VALUE.
+If VALUE is nil, return nil (never query). If `root', return
+non-nil if the user is logged in as root (including when
+`default-directory' is remote with a root user; see
+`file-user-uid'). If VALUE is any other non-nil value, return
+non-nil (always query)."
+ (if (eq value 'root)
+ (= (file-user-uid) 0)
+ value))
+
(defun eshell/man (&rest args)
"Invoke man, flattening the arguments appropriately."
(funcall 'man (apply 'eshell-flatten-and-stringify args)))
@@ -248,7 +281,8 @@ argument."
:usage "[OPTION]... FILE...
Remove (unlink) the FILE(s).")
(unless em-interactive
- (setq em-interactive eshell-rm-interactive-query))
+ (setq em-interactive (eshell-interactive-query-p
+ eshell-rm-interactive-query)))
(if (and force-removal em-interactive)
(setq em-interactive nil))
(while args
@@ -522,7 +556,8 @@ Rename SOURCE to DEST, or move SOURCE(s) to DIRECTORY.
[OPTION] DIRECTORY...")
(let ((no-dereference t))
(eshell-mvcpln-template "mv" "moving" 'rename-file
- eshell-mv-interactive-query
+ (eshell-interactive-query-p
+ eshell-mv-interactive-query)
eshell-mv-overwrite-files))))
(put 'eshell/mv 'eshell-no-numeric-conversions t)
@@ -560,7 +595,8 @@ Copy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.")
(if archive
(setq preserve t no-dereference t em-recursive t))
(eshell-mvcpln-template "cp" "copying" 'copy-file
- eshell-cp-interactive-query
+ (eshell-interactive-query-p
+ eshell-cp-interactive-query)
eshell-cp-overwrite-files preserve)))
(put 'eshell/cp 'eshell-no-numeric-conversions t)
@@ -593,7 +629,8 @@ with `--symbolic'. When creating hard links, each TARGET
must exist.")
(if symbolic
'make-symbolic-link
'add-name-to-file)
- eshell-ln-interactive-query
+ (eshell-interactive-query-p
+ eshell-ln-interactive-query)
eshell-ln-overwrite-files))))
(put 'eshell/ln 'eshell-no-numeric-conversions t)
@@ -773,6 +810,10 @@ external command."
"Use Emacs grep facility instead of calling external agrep."
(eshell-grep "agrep" args))
+(defun eshell/rgrep (&rest args)
+ "Use Emacs grep facility instead of calling external rgrep."
+ (eshell-grep "grep" (append '("-rH") args) t))
+
(defun eshell/glimpse (&rest args)
"Use Emacs grep facility instead of calling external glimpse."
(let (null-device)
@@ -955,7 +996,7 @@ Show wall-clock time elapsed during execution of COMMAND.")
(defun eshell/whoami (&rest _args)
"Make \"whoami\" Tramp aware."
- (or (file-remote-p default-directory 'user) (user-login-name)))
+ (eshell-user-login-name))
(defvar eshell-diff-window-config nil)
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index cb0b2e0938c..aa1e8f77ea5 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -28,6 +28,9 @@
;;; Code:
(require 'esh-util)
+(require 'esh-module)
+
+(require 'pcomplete)
(eval-when-compile
(require 'cl-lib))
@@ -175,7 +178,11 @@ treated as a literal character."
"Initialize the argument parsing code."
(eshell-arg-mode)
(setq-local eshell-inside-quote-regexp nil)
- (setq-local eshell-outside-quote-regexp nil))
+ (setq-local eshell-outside-quote-regexp nil)
+
+ (when (eshell-using-module 'eshell-cmpl)
+ (add-hook 'pcomplete-try-first-hook
+ #'eshell-complete-special-reference nil t)))
(defun eshell-insert-buffer-name (buffer-name)
"Insert BUFFER-NAME into the current buffer at point."
@@ -506,21 +513,28 @@ If the form has no `type', the syntax is parsed as if
`type' were
\"buffer\"."
(when (and (not eshell-current-argument)
(not eshell-current-quoted)
- (looking-at "#<\\(\\(buffer\\|process\\)\\s-\\)?"))
+ (looking-at (rx "#<" (? (group (or "buffer" "process"))
+ space))))
(let ((here (point)))
(goto-char (match-end 0)) ;; Go to the end of the match.
- (let ((buffer-p (if (match-string 1)
- (string= (match-string 2) "buffer")
- t)) ;; buffer-p is non-nil by default.
+ (let ((buffer-p (if (match-beginning 1)
+ (equal (match-string 1) "buffer")
+ t)) ; With no type keyword, assume we want a buffer.
(end (eshell-find-delimiter ?\< ?\>)))
(when (not end)
+ (when (match-beginning 1)
+ (goto-char (match-beginning 1)))
(throw 'eshell-incomplete "#<"))
(if (eshell-arg-delimiter (1+ end))
(prog1
- (list (if buffer-p 'get-buffer-create 'get-process)
- (replace-regexp-in-string
- (rx "\\" (group (or "\\" "<" ">"))) "\\1"
- (buffer-substring-no-properties (point) end)))
+ (list (if buffer-p #'get-buffer-create #'get-process)
+ ;; FIXME: We should probably parse this as a
+ ;; real Eshell argument so that we get the
+ ;; benefits of quoting, variable-expansion, etc.
+ (string-trim-right
+ (replace-regexp-in-string
+ (rx "\\" (group anychar)) "\\1"
+ (buffer-substring-no-properties (point) end))))
(goto-char (1+ end)))
(ignore (goto-char here)))))))
@@ -574,5 +588,41 @@ If no argument requested a splice, return nil."
(when splicep
grouped-args)))
+;;;_* Special ref completion
+
+(defun eshell-complete-special-reference ()
+ "If there is a special reference, complete it."
+ (let ((arg (pcomplete-actual-arg)))
+ (when (string-match
+ (rx string-start
+ "#<" (? (group (or "buffer" "process")) space)
+ (group (* anychar))
+ string-end)
+ arg)
+ (let ((all-results (if (equal (match-string 1 arg) "process")
+ (mapcar #'process-name (process-list))
+ (mapcar #'buffer-name (buffer-list))))
+ (saw-type (match-beginning 1)))
+ (unless saw-type
+ ;; Include the special reference types as completion options.
+ (setq all-results (append '("buffer" "process") all-results)))
+ (setq pcomplete-stub (replace-regexp-in-string
+ (rx "\\" (group anychar)) "\\1"
+ (substring arg (match-beginning 2))))
+ ;; When finished with completion, add a trailing ">" (unless
+ ;; we just completed the initial "buffer" or "process"
+ ;; keyword).
+ (add-function
+ :before (var pcomplete-exit-function)
+ (lambda (value status)
+ (when (and (eq status 'finished)
+ (or saw-type
+ (not (member value '("buffer" "process")))))
+ (if (looking-at ">")
+ (goto-char (match-end 0))
+ (insert ">")))))
+ (throw 'pcomplete-completions
+ (all-completions pcomplete-stub all-results))))))
+
(provide 'esh-arg)
;;; esh-arg.el ends here
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index d609711402a..94aa2ed8906 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -293,6 +293,17 @@ CDR are the same process.
When the process in the CDR completes, resume command evaluation.")
+(defvar eshell-allow-commands t
+ "If non-nil, allow evaluating command forms (including Lisp forms).
+If you want to forbid command forms, you can let-bind this to a
+non-nil value before calling `eshell-do-eval'. Then, any command
+forms will signal `eshell-commands-forbidden'. This is useful
+if, for example, you want to evaluate simple expressions like
+variable expansions, but not fully-evaluate the command. See
+also `eshell-complete-parse-arguments'.")
+
+(define-error 'eshell-commands-forbidden "Commands forbidden")
+
;;; Functions:
(defsubst eshell-interactive-process-p ()
@@ -410,7 +421,8 @@ hooks should be run before and after the command."
(string= (car eshell--sep-terms) ";"))
(eshell-parse-pipeline cmd)
`(eshell-do-subjob
- (list ,(eshell-parse-pipeline cmd)))))
+ (cons :eshell-background
+ ,(eshell-parse-pipeline cmd)))))
(setq eshell--sep-terms (cdr eshell--sep-terms))
(if eshell-in-pipeline-p
cmd
@@ -494,8 +506,8 @@ hooks should be run before and after the command."
(t
(list sym (car terms))))))
-(defvar eshell-command-body)
-(defvar eshell-test-body)
+(defvar eshell--command-body)
+(defvar eshell--test-body)
(defsubst eshell-invokify-arg (arg &optional share-output silent)
"Change ARG so it can be invoked from a structured command.
@@ -531,27 +543,24 @@ of its argument (i.e., use of a Lisp special form), it
must be
implemented via rewriting, rather than as a function."
(if (and (equal (car terms) "for")
(equal (nth 2 terms) "in"))
- (let ((body (car (last terms))))
+ (let ((for-items (make-symbol "for-items"))
+ (body (car (last terms))))
(setcdr (last terms 2) nil)
- `(let ((for-items
- (copy-tree
- (append
- ,@(mapcar
- (lambda (elem)
- (if (listp elem)
- elem
- `(list ,elem)))
- (cdr (cddr terms))))))
- (eshell-command-body '(nil))
- (eshell-test-body '(nil)))
- (while (car for-items)
- (let ((,(intern (cadr terms)) (car for-items))
+ `(let ((,for-items
+ (append
+ ,@(mapcar
+ (lambda (elem)
+ (if (listp elem)
+ elem
+ `(list ,elem)))
+ (nthcdr 3 terms)))))
+ (while ,for-items
+ (let ((,(intern (cadr terms)) (car ,for-items))
(eshell--local-vars (cons ',(intern (cadr terms))
- eshell--local-vars)))
+ eshell--local-vars)))
(eshell-protect
,(eshell-invokify-arg body t)))
- (setcar for-items (cadr for-items))
- (setcdr for-items (cddr for-items)))
+ (setq ,for-items (cdr ,for-items)))
(eshell-close-handles)))))
(defun eshell-structure-basic-command (func names keyword test body
@@ -581,8 +590,7 @@ function."
;; finally, create the form that represents this structured
;; command
- `(let ((eshell-command-body '(nil))
- (eshell-test-body '(nil)))
+ `(progn
(,func ,test ,body ,else)
(eshell-close-handles)))
@@ -680,13 +688,13 @@ This means an exit code of 0."
(or (= (point-max) (1+ (point)))
(not (eq (char-after (1+ (point))) ?\}))))
(let ((end (eshell-find-delimiter ?\{ ?\})))
- (if (not end)
- (throw 'eshell-incomplete "{")
- (when (eshell-arg-delimiter (1+ end))
- (prog1
- `(eshell-as-subcommand
- ,(eshell-parse-command (cons (1+ (point)) end)))
- (goto-char (1+ end))))))))
+ (unless end
+ (throw 'eshell-incomplete "{"))
+ (when (eshell-arg-delimiter (1+ end))
+ (prog1
+ `(eshell-as-subcommand
+ ,(eshell-parse-command (cons (1+ (point)) end)))
+ (goto-char (1+ end)))))))
(defun eshell-parse-lisp-argument ()
"Parse a Lisp expression which is specified as an argument."
@@ -747,10 +755,6 @@ if none)."
;; `condition-case', `if', `let', `prog1', `progn', `quote', `setq',
;; `unwind-protect', and `while'.
;;
-;; @ When using `if' or `while', first let-bind `eshell-test-body' and
-;; `eshell-command-body' to '(nil). Eshell uses these variables to
-;; handle conditional evaluation.
-;;
;; @ The two `special' variables are `eshell-current-handles' and
;; `eshell-current-subjob-p'. Bind them locally with a `let' if you
;; need to change them. Change them directly only if your intention
@@ -890,7 +894,7 @@ This is used on systems where async subprocesses are not
supported."
(set headproc nil)
(set tailproc nil)
(progn
- ,(if (fboundp 'make-process)
+ ,(if eshell-supports-asynchronous-processes
`(eshell-do-pipelines ,pipeline)
`(let ((tail-handles (eshell-duplicate-handles
eshell-current-handles)))
@@ -899,28 +903,33 @@ This is used on systems where async subprocesses are not
supported."
(symbol-value tailproc))))))
(defmacro eshell-as-subcommand (command)
- "Execute COMMAND using a temp buffer.
-This is used so that certain Lisp commands, such as `cd', when
-executed in a subshell, do not disturb the environment of the main
-Eshell buffer."
+ "Execute COMMAND as a subcommand.
+A subcommand creates a local environment so that any changes to
+the environment don't propagate outside of the subcommand's
+scope. This lets you use commands like `cd' within a subcommand
+without changing the current directory of the main Eshell
+buffer."
`(let ,eshell-subcommand-bindings
,command))
(defmacro eshell-do-command-to-value (object)
"Run a subcommand prepared by `eshell-command-to-value'.
This avoids the need to use `let*'."
+ (declare (obsolete nil "30.1"))
`(let ((eshell-current-handles
(eshell-create-handles value 'overwrite)))
(progn
,object
(symbol-value value))))
-(defmacro eshell-command-to-value (object)
- "Run OBJECT synchronously, returning its result as a string.
-Returns a string comprising the output from the command."
- `(let ((value (make-symbol "eshell-temp"))
- (eshell-in-pipeline-p nil))
- (eshell-do-command-to-value ,object)))
+(defmacro eshell-command-to-value (command)
+ "Run an Eshell COMMAND synchronously, returning its output."
+ (let ((value (make-symbol "eshell-temp")))
+ `(let ((eshell-in-pipeline-p nil)
+ (eshell-current-handles
+ (eshell-create-handles ',value 'overwrite)))
+ ,command
+ ,value)))
;;;_* Iterative evaluation
;;
@@ -1028,14 +1037,17 @@ produced by `eshell-parse-command'."
(cadr result)))
(defun eshell-eval-command (command &optional input)
- "Evaluate the given COMMAND iteratively."
+ "Evaluate the given COMMAND iteratively.
+Return the process (or head and tail processes) created by
+COMMAND, if any. If COMMAND is a background command, return the
+process(es) in a cons cell like:
+
+ (:eshell-background . PROCESS)"
(if eshell-current-command
;; We can just stick the new command at the end of the current
;; one, and everything will happen as it should.
(setcdr (last (cdr eshell-current-command))
- (list `(let ((here (and (eobp) (point)))
- (eshell-command-body '(nil))
- (eshell-test-body '(nil)))
+ (list `(let ((here (and (eobp) (point))))
,(and input
`(insert-and-inherit ,(concat input "\n")))
(if here
@@ -1046,20 +1058,12 @@ produced by `eshell-parse-command'."
(erase-buffer)
(insert "command: \"" input "\"\n")))
(setq eshell-current-command command)
- (let* ((delim (catch 'eshell-incomplete
- (eshell-resume-eval)))
- (val (car-safe delim)))
- ;; If the return value of `eshell-resume-eval' is wrapped in a
- ;; list, it indicates that the command was run asynchronously.
- ;; In that case, unwrap the value before checking the delimiter
- ;; value.
- (if (and val
- (not (eshell-processp val))
- (not (eq val t)))
- (error "Unmatched delimiter: %S" val)
- ;; Eshell-command expect a list like (<process>) to know if the
- ;; command should be async or not.
- (or (and (eshell-processp val) delim) val)))))
+ (let* (result
+ (delim (catch 'eshell-incomplete
+ (ignore (setq result (eshell-resume-eval))))))
+ (when delim
+ (error "Unmatched delimiter: %S" delim))
+ result)))
(defun eshell-resume-command (proc status)
"Resume the current command when a process ends."
@@ -1132,42 +1136,46 @@ have been replaced by constants."
(let ((args (cdr form)))
(cond
((eq (car form) 'while)
+ ;; Wrap the `while' form with let-bindings for the command and
+ ;; test bodies. This helps us resume evaluation midway
+ ;; through the loop.
+ (let ((new-form (copy-tree `(let ((eshell--command-body nil)
+ (eshell--test-body nil))
+ (eshell--wrapped-while ,@args)))))
+ (eshell-manipulate "modifying while form"
+ (setcar form (car new-form))
+ (setcdr form (cdr new-form)))
+ (eshell-do-eval form synchronous-p)))
+ ((eq (car form) 'eshell--wrapped-while)
+ (when eshell--command-body
+ (cl-assert (not synchronous-p))
+ (eshell-do-eval eshell--command-body)
+ (setq eshell--command-body nil
+ eshell--test-body nil))
;; `copy-tree' is needed here so that the test argument
- ;; doesn't get modified and thus always yield the same result.
- (when (car eshell-command-body)
- (cl-assert (not synchronous-p))
- (eshell-do-eval (car eshell-command-body))
- (setcar eshell-command-body nil)
- (setcar eshell-test-body nil))
- (unless (car eshell-test-body)
- (setcar eshell-test-body (copy-tree (car args))))
- (while (cadr (eshell-do-eval (car eshell-test-body) synchronous-p))
- (setcar eshell-command-body
- (if (cddr args)
- `(progn ,@(copy-tree (cdr args)))
- (copy-tree (cadr args))))
- (eshell-do-eval (car eshell-command-body) synchronous-p)
- (setcar eshell-command-body nil)
- (setcar eshell-test-body (copy-tree (car args))))
- (setcar eshell-command-body nil))
+ ;; doesn't get modified and thus always yield the same result.
+ (unless eshell--test-body
+ (setq eshell--test-body (copy-tree (car args))))
+ (while (cadr (eshell-do-eval eshell--test-body synchronous-p))
+ (setq eshell--command-body
+ (if (cddr args)
+ `(progn ,@(copy-tree (cdr args)))
+ (copy-tree (cadr args))))
+ (eshell-do-eval eshell--command-body synchronous-p)
+ (setq eshell--command-body nil
+ eshell--test-body (copy-tree (car args)))))
((eq (car form) 'if)
- ;; `copy-tree' is needed here so that the test argument
- ;; doesn't get modified and thus always yield the same result.
- (if (car eshell-command-body)
- (progn
- (cl-assert (not synchronous-p))
- (eshell-do-eval (car eshell-command-body)))
- (unless (car eshell-test-body)
- (setcar eshell-test-body (copy-tree (car args))))
- (setcar eshell-command-body
- (copy-tree
- (if (cadr (eshell-do-eval (car eshell-test-body)
- synchronous-p))
- (cadr args)
- (car (cddr args)))))
- (eshell-do-eval (car eshell-command-body) synchronous-p))
- (setcar eshell-command-body nil)
- (setcar eshell-test-body nil))
+ (eshell-manipulate "evaluating if condition"
+ (setcar args (eshell-do-eval (car args) synchronous-p)))
+ (eshell-do-eval
+ (cond
+ ((eval (car args)) ; COND is non-nil
+ (cadr args))
+ ((cdddr args) ; Multiple ELSE forms
+ `(progn ,@(cddr args)))
+ (t ; Zero or one ELSE forms
+ (caddr args)))
+ synchronous-p))
((eq (car form) 'setcar)
(setcar (cdr args) (eshell-do-eval (cadr args) synchronous-p))
(eval form))
@@ -1175,7 +1183,7 @@ have been replaced by constants."
(setcar (cdr args) (eshell-do-eval (cadr args) synchronous-p))
(eval form))
((eq (car form) 'let)
- (when (not (eq (car (cadr args)) 'eshell-do-eval))
+ (unless (eq (car-safe (cadr args)) 'eshell-do-eval)
(eshell-manipulate "evaluating let args"
(dolist (letarg (car args))
(when (and (listp letarg)
@@ -1335,6 +1343,8 @@ have been replaced by constants."
(defun eshell-named-command (command &optional args)
"Insert output from a plain COMMAND, using ARGS.
COMMAND may result in an alias being executed, or a plain command."
+ (unless eshell-allow-commands
+ (signal 'eshell-commands-forbidden '(named)))
(setq eshell-last-arguments args
eshell-last-command-name (eshell-stringify command))
(run-hook-with-args 'eshell-prepare-command-hook)
@@ -1472,6 +1482,8 @@ via `eshell-errorn'."
(defun eshell-lisp-command (object &optional args)
"Insert Lisp OBJECT, using ARGS if a function."
+ (unless eshell-allow-commands
+ (signal 'eshell-commands-forbidden '(lisp)))
(catch 'eshell-external ; deferred to an external command
(setq eshell-last-command-status 0
eshell-last-arguments args)
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index a86e7502795..00e0c8014e1 100644
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -97,6 +97,9 @@ information, for example."
;;; Internal Variables:
+(defvar eshell-supports-asynchronous-processes (fboundp 'make-process)
+ "Non-nil if Eshell can create asynchronous processes.")
+
(defvar eshell-current-subjob-p nil)
(defvar eshell-process-list nil
@@ -296,7 +299,7 @@ Used only on systems which do not support async
subprocesses.")
(coding-system-change-eol-conversion locale-coding-system
'unix))))
(cond
- ((fboundp 'make-process)
+ (eshell-supports-asynchronous-processes
(unless (or ;; FIXME: It's not currently possible to use a
;; stderr process for remote files.
(file-remote-p default-directory)
@@ -367,6 +370,8 @@ Used only on systems which do not support async
subprocesses.")
(erase-buffer)
(set-buffer oldbuf)
(run-hook-with-args 'eshell-exec-hook command)
+ ;; XXX: This doesn't support sending stdout and stderr to
+ ;; separate places.
(setq exit-status
(apply #'call-process-region
(append (list eshell-last-sync-output-start (point)
@@ -392,10 +397,6 @@ Used only on systems which do not support async
subprocesses.")
(setq lbeg lend)
(set-buffer proc-buf))
(set-buffer oldbuf))
- (require 'esh-mode)
- (declare-function eshell-update-markers "esh-mode" (pmark))
- (defvar eshell-last-output-end) ;Defined in esh-mode.el.
- (eshell-update-markers eshell-last-output-end)
;; Simulate the effect of eshell-sentinel.
(eshell-close-handles
(if (numberp exit-status) exit-status -1)
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index c0685757789..3608c78ba2b 100644
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -502,6 +502,11 @@ list."
(sit-for 0)
(error nil)))
+(defun eshell-user-login-name ()
+ "Return the connection-aware value of the user's login name.
+See also `user-login-name'."
+ (or (file-remote-p default-directory 'user) (user-login-name)))
+
(defun eshell-read-passwd-file (file)
"Return an alist correlating gids to group names in FILE."
(let (names)
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el
index 5d6299af564..7dcaff1e24f 100644
--- a/lisp/eshell/esh-var.el
+++ b/lisp/eshell/esh-var.el
@@ -507,55 +507,56 @@ Possible variable references are:
(cond
((eq (char-after) ?{)
(let ((end (eshell-find-delimiter ?\{ ?\})))
- (if (not end)
- (throw 'eshell-incomplete "${")
- (forward-char)
- (prog1
- `(eshell-apply-indices
- (eshell-convert
- (eshell-command-to-value
- (eshell-as-subcommand
- ,(let ((subcmd (or (eshell-unescape-inner-double-quote end)
- (cons (point) end)))
- (eshell-current-quoted nil))
- (eshell-parse-command subcmd))))
- ;; If this is a simple double-quoted form like
- ;; "${COMMAND}" (i.e. no indices after the subcommand
- ;; and no `#' modifier before), ensure we convert to a
- ;; single string. This avoids unnecessary work
- ;; (e.g. splitting the output by lines) when it would
- ;; just be joined back together afterwards.
- ,(when (and (not modifier-p) eshell-current-quoted)
- '(not indices)))
- indices ,eshell-current-quoted)
- (goto-char (1+ end))))))
+ (unless end
+ (throw 'eshell-incomplete "${"))
+ (forward-char)
+ (prog1
+ `(eshell-apply-indices
+ (eshell-convert
+ (eshell-command-to-value
+ (eshell-as-subcommand
+ ,(let ((subcmd (or (eshell-unescape-inner-double-quote end)
+ (cons (point) end)))
+ (eshell-current-quoted nil))
+ (eshell-parse-command subcmd))))
+ ;; If this is a simple double-quoted form like
+ ;; "${COMMAND}" (i.e. no indices after the subcommand and
+ ;; no `#' modifier before), ensure we convert to a single
+ ;; string. This avoids unnecessary work (e.g. splitting
+ ;; the output by lines) when it would just be joined back
+ ;; together afterwards.
+ ,(when (and (not modifier-p) eshell-current-quoted)
+ '(not indices)))
+ indices ,eshell-current-quoted)
+ (goto-char (1+ end)))))
((eq (char-after) ?\<)
(let ((end (eshell-find-delimiter ?\< ?\>)))
- (if (not end)
- (throw 'eshell-incomplete "$<")
- (let* ((temp (make-temp-file temporary-file-directory))
- (cmd (concat (buffer-substring (1+ (point)) end)
- " > " temp)))
- (prog1
- `(let ((eshell-current-handles
- (eshell-create-handles ,temp 'overwrite)))
- (progn
- (eshell-as-subcommand
- ,(let ((eshell-current-quoted nil))
- (eshell-parse-command cmd)))
- (ignore
- (nconc eshell-this-command-hook
- ;; Quote this lambda; it will be evaluated
- ;; by `eshell-do-eval', which requires very
- ;; particular forms in order to work
- ;; properly. See bug#54190.
- (list (function
- (lambda ()
- (delete-file ,temp)
- (when-let ((buffer (get-file-buffer
,temp)))
- (kill-buffer buffer)))))))
- (eshell-apply-indices ,temp indices
,eshell-current-quoted)))
- (goto-char (1+ end)))))))
+ (unless end
+ (throw 'eshell-incomplete "$<"))
+ (forward-char)
+ (let* ((temp (make-temp-file temporary-file-directory))
+ (subcmd (or (eshell-unescape-inner-double-quote end)
+ (cons (point) end))))
+ (prog1
+ `(let ((eshell-current-handles
+ (eshell-create-handles ,temp 'overwrite)))
+ (progn
+ (eshell-as-subcommand
+ ,(let ((eshell-current-quoted nil))
+ (eshell-parse-command subcmd)))
+ (ignore
+ (nconc eshell-this-command-hook
+ ;; Quote this lambda; it will be evaluated by
+ ;; `eshell-do-eval', which requires very
+ ;; particular forms in order to work
+ ;; properly. See bug#54190.
+ (list (function
+ (lambda ()
+ (delete-file ,temp)
+ (when-let ((buffer (get-file-buffer ,temp)))
+ (kill-buffer buffer)))))))
+ (eshell-apply-indices ,temp indices ,eshell-current-quoted)))
+ (goto-char (1+ end))))))
((eq (char-after) ?\()
(condition-case nil
`(eshell-apply-indices
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el
index 7d2c0335db2..15fc2ae6310 100644
--- a/lisp/eshell/eshell.el
+++ b/lisp/eshell/eshell.el
@@ -272,43 +272,38 @@ information on Eshell, see Info node `(eshell)Top'."
(declare-function eshell-add-input-to-history "em-hist" (input))
-;;;###autoload
-(defun eshell-command (&optional command arg)
- "Execute the Eshell command string COMMAND.
-With prefix ARG, insert output into the current buffer at point."
- (interactive)
- (unless arg
- (setq arg current-prefix-arg))
- (let ((eshell-non-interactive-p t))
+(defun eshell-read-command (&optional prompt)
+ "Read an Eshell command from the minibuffer, prompting with PROMPT."
+ (let ((prompt (or prompt "Emacs shell command: "))
+ (eshell-non-interactive-p t))
;; Enable `eshell-mode' only in this minibuffer.
(minibuffer-with-setup-hook (lambda ()
(eshell-mode)
(eshell-command-mode +1))
- (unless command
- (setq command (read-from-minibuffer "Emacs shell command: "))
- (if (eshell-using-module 'eshell-hist)
- (eshell-add-input-to-history command)))))
- (unless command
- (error "No command specified!"))
- ;; redirection into the current buffer is achieved by adding an
- ;; output redirection to the end of the command, of the form
- ;; 'COMMAND >>> #<buffer BUFFER>'. This will not interfere with
- ;; other redirections, since multiple redirections merely cause the
- ;; output to be copied to multiple target locations
- (if arg
- (setq command
- (concat command
- (format " >>> #<buffer %s>"
- (buffer-name (current-buffer))))))
+ (let ((command (read-from-minibuffer prompt)))
+ (when (eshell-using-module 'eshell-hist)
+ (eshell-add-input-to-history command))
+ command))))
+
+;;;###autoload
+(defun eshell-command (command &optional to-current-buffer)
+ "Execute the Eshell command string COMMAND.
+If TO-CURRENT-BUFFER is non-nil (interactively, with the prefix
+argument), then insert output into the current buffer at point."
+ (interactive (list (eshell-read-command)
+ current-prefix-arg))
(save-excursion
- (let ((buf (set-buffer (generate-new-buffer " *eshell cmd*")))
+ (let ((stdout (if to-current-buffer (current-buffer) t))
+ (buf (set-buffer (generate-new-buffer " *eshell cmd*")))
(eshell-non-interactive-p t))
(eshell-mode)
(let* ((proc (eshell-eval-command
- (list 'eshell-commands
- (eshell-parse-command command))))
+ `(let ((eshell-current-handles
+ (eshell-create-handles ,stdout 'insert))
+ (eshell-current-subjob-p))
+ ,(eshell-parse-command command))))
intr
- (bufname (if (and proc (listp proc))
+ (bufname (if (eq (car-safe proc) :eshell-background)
"*Eshell Async Command Output*"
(setq intr t)
"*Eshell Command Output*")))
@@ -326,7 +321,7 @@ With prefix ARG, insert output into the current buffer at
point."
(while (and (bolp) (not (bobp)))
(delete-char -1)))
(cl-assert (and buf (buffer-live-p buf)))
- (unless arg
+ (unless to-current-buffer
(let ((len (if (not intr) 2
(count-lines (point-min) (point-max)))))
(cond
diff --git a/lisp/faces.el b/lisp/faces.el
index 8bf7e4429d9..739e5bdf310 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2696,7 +2696,7 @@ non-nil."
:version "22.1")
(defface mode-line
- '((((class color) (min-colors 88))
+ '((((class color grayscale) (min-colors 88))
:box (:line-width -1 :style released-button)
:background "grey75" :foreground "black")
(t
@@ -2719,11 +2719,11 @@ This inherits from the `mode-line' face."
(defface mode-line-inactive
'((default
:inherit mode-line)
- (((class color) (min-colors 88) (background light))
+ (((class color grayscale) (min-colors 88) (background light))
:weight light
:box (:line-width -1 :color "grey75" :style nil)
:foreground "grey20" :background "grey90")
- (((class color) (min-colors 88) (background dark) )
+ (((class color grayscale) (min-colors 88) (background dark) )
:weight light
:box (:line-width -1 :color "grey40" :style nil)
:foreground "grey80" :background "grey30"))
@@ -2733,7 +2733,7 @@ This inherits from the `mode-line' face."
:group 'basic-faces)
(defface mode-line-highlight
- '((((supports :box t) (class color) (min-colors 88))
+ '((((supports :box t) (class color grayscale) (min-colors 88))
:box (:line-width 2 :color "grey40" :style released-button))
(t
:inherit highlight))
diff --git a/lisp/filecache.el b/lisp/filecache.el
index c211a02b2d2..42225509eca 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -213,7 +213,7 @@ Defaults to the value of `case-fold-search'."
:type 'boolean)
(defcustom file-cache-ignore-case
- (memq system-type '(ms-dos windows-nt cygwin))
+ (not (not (memq system-type '(ms-dos windows-nt cygwin))))
"Non-nil means ignore case when checking completions in the file cache.
Defaults to nil on DOS and Windows, and t on other systems."
:type 'boolean)
diff --git a/lisp/files-x.el b/lisp/files-x.el
index 5fa0129e9d0..548d9efc193 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -681,8 +681,8 @@ variables for a connection profile are defined using
(setq connection-local-criteria-alist
(cons (cons criteria (delete-dups profiles))
connection-local-criteria-alist))))
- (customize-set-variable
- 'connection-local-criteria-alist connection-local-criteria-alist))
+ (custom-set-variables
+ `(connection-local-criteria-alist ',connection-local-criteria-alist now)))
(defsubst connection-local-get-profile-variables (profile)
"Return the connection-local variable list for PROFILE."
@@ -702,8 +702,8 @@ variables are set in the server's process buffer according
to the
VARIABLES list of the connection profile. The list is processed
in order."
(setf (alist-get profile connection-local-profile-alist) variables)
- (customize-set-variable
- 'connection-local-profile-alist connection-local-profile-alist))
+ (custom-set-variables
+ `(connection-local-profile-alist ',connection-local-profile-alist now)))
;;;###autoload
(defun connection-local-update-profile-variables (profile variables)
diff --git a/lisp/files.el b/lisp/files.el
index 6f02aac33d3..148f47cbc97 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -555,7 +555,7 @@ using a transform that puts the lock files on a local file
system."
:version "28.1")
(defcustom remote-file-name-inhibit-locks nil
- "Whether to use file locks for remote files."
+ "Whether to create file locks for remote files."
:group 'files
:version "28.1"
:type 'boolean)
@@ -681,7 +681,8 @@ The command \\[normal-mode], when used interactively,
always obeys file local variable specifications and the -*- line,
and ignores this variable.
-Also see the `permanently-enabled-local-variables' variable."
+Also see the `permanently-enabled-local-variables' and
+`safe-local-variable-directories' variables."
:risky t
:type '(choice (const :tag "Query Unsafe" t)
(const :tag "Safe Only" :safe)
@@ -3696,6 +3697,18 @@ variable to set.")
"A list of file-local variables that are always enabled.
This overrides any `enable-local-variables' setting.")
+(defcustom safe-local-variable-directories '()
+ "A list of directories where local variables are always enabled.
+Directory-local variables loaded from these directories, such as the
+variables in .dir-locals.el, will be enabled even if they are risky.
+The names of the directories in the list must be absolute, and must
+end in a slash. Remote directories can be included if the
+variable `enable-remote-dir-locals' is non-nil."
+ :version "30.1"
+ :type '(repeat string)
+ :risky t
+ :group 'find-file)
+
(defun hack-local-variables-confirm (all-vars unsafe-vars risky-vars dir-name)
"Get confirmation before setting up local variable values.
ALL-VARS is the list of all variables to be set up.
@@ -3734,7 +3747,11 @@ n -- to ignore the local variables list.")
! -- to apply the local variables list, and permanently mark these
values (*) as safe (in the future, they will be set automatically.)
i -- to ignore the local variables list, and permanently mark these
- values (*) as ignored\n\n")
+ values (*) as ignored"
+ (if dir-name "
++ -- to apply the local variables list, and trust all directory-local
+ variables in this directory\n\n"
+ "\n\n"))
(insert "\n\n"))
(dolist (elt all-vars)
(cond ((member elt unsafe-vars)
@@ -3758,7 +3775,11 @@ i -- to ignore the local variables list, and
permanently mark these
(pop-to-buffer buf '(display-buffer--maybe-at-bottom))
(let* ((exit-chars '(?y ?n ?\s))
(prompt (format "Please type %s%s: "
- (if offer-save "y, n, ! or i" "y or n")
+ (if offer-save
+ (if dir-name
+ "y, n, !, i, +"
+ "y, n, !, i")
+ "y or n")
(if (< (line-number-at-pos (point-max))
(window-body-height))
""
@@ -3766,8 +3787,13 @@ i -- to ignore the local variables list, and
permanently mark these
char)
(when offer-save
(push ?i exit-chars)
- (push ?! exit-chars))
+ (push ?! exit-chars)
+ (when dir-name
+ (push ?+ exit-chars)))
(setq char (read-char-choice prompt exit-chars))
+ (when (and offer-save dir-name (= char ?+))
+ (customize-push-and-save 'safe-local-variable-directories
+ (list dir-name)))
(when (and offer-save
(or (= char ?!) (= char ?i))
unsafe-vars)
@@ -3776,7 +3802,7 @@ i -- to ignore the local variables list, and permanently
mark these
'safe-local-variable-values
'ignored-local-variable-values)
unsafe-vars))
- (prog1 (memq char '(?! ?\s ?y))
+ (prog1 (memq char '(?! ?\s ?y ?+))
(quit-window t)))))))
(defconst hack-local-variable-regexp
@@ -3908,6 +3934,10 @@ DIR-NAME is the name of the associated directory.
Otherwise it is nil."
(null unsafe-vars)
(null risky-vars))
(memq enable-local-variables '(:all :safe))
+ (delq nil (mapcar (lambda (dir)
+ (and dir-name dir
+ (file-equal-p dir dir-name)))
+ safe-local-variable-directories))
(hack-local-variables-confirm all-vars unsafe-vars
risky-vars dir-name))
(dolist (elt all-vars)
diff --git a/lisp/filesets.el b/lisp/filesets.el
index 1b7e6ffa81f..81a194a45e6 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1807,7 +1807,6 @@ If no fileset name is provided, prompt for NAME."
(defun filesets-convert-patterns (name)
"Change fileset NAME's mode from :pattern to :files."
- (interactive)
(let ((entry (assoc name filesets-data)))
(if entry
(let ((pattern (filesets-entry-get-pattern entry))
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 33376ee4ed9..db2f5e7d026 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -50,8 +50,13 @@ than the latter."
:group 'find-dired
:type 'string)
+(defvar find-gnu-find-p
+ (eq 0 (ignore-errors
+ (process-file find-program nil nil nil null-device "--version")))
+ "Non-nil if `find-program' is a GNU Find, nil otherwise.")
+
(defvar find-ls-option-default-ls
- (cons "-ls" (if (eq system-type 'berkeley-unix) "-gilsb" "-dilsb")))
+ (cons "-ls" (if find-gnu-find-p "-dilsb" "-dgils")))
(defvar find-ls-option-default-exec
(cons (format "-exec ls -ld {} %s" find-exec-terminator) "-ld"))
diff --git a/lisp/find-file.el b/lisp/find-file.el
index e98ea621d6a..05459c3643d 100644
--- a/lisp/find-file.el
+++ b/lisp/find-file.el
@@ -167,7 +167,7 @@ To override this, give an argument to `ff-find-other-file'."
:type 'boolean)
(defcustom ff-quiet-mode nil
- "If non-nil, trace which directories are being searched."
+ "If non-nil, do not trace which directories are being searched."
:type 'boolean)
;;;###autoload
@@ -351,7 +351,7 @@ Variables of interest include:
If non-nil, always attempt to create the other file if it was not found.
- `ff-quiet-mode'
- If non-nil, traces which directories are being searched.
+ If non-nil, does not trace which directories are being searched.
- `ff-special-constructs'
A list of regular expressions specifying how to recognize special
diff --git a/lisp/foldout.el b/lisp/foldout.el
index 5a3afc9508a..ace242ffbc7 100644
--- a/lisp/foldout.el
+++ b/lisp/foldout.el
@@ -229,7 +229,7 @@ An end marker of nil means the fold ends after
(point-max).")
(error "Can't find outline-minor-mode in minor-mode-alist"))
;; slip our fold announcement into the list
- (setcdr outl-entry (nconc foldout-entry (cdr outl-entry)))))
+ (setcdr outl-entry (append foldout-entry (cdr outl-entry)))))
diff --git a/lisp/frame.el b/lisp/frame.el
index d9255a55171..39e8a4c88b8 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -239,7 +239,8 @@ that's not the whole story: see
`after-focus-change-function'."
This function runs the abnormal hook `move-frame-functions'."
(interactive "e")
(let ((frame (posn-window (event-start event))))
- (run-hook-with-args 'move-frame-functions frame)))
+ (when (frame-live-p frame) ;Experience shows it can die in the meantime.
+ (run-hook-with-args 'move-frame-functions frame))))
;;;; Arrangement of frames at startup
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index ce7a4488a7f..6a7a3f41746 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -7390,6 +7390,7 @@ This is an extended text-mode.
\\{gnus-article-edit-mode-map}"
(make-local-variable 'gnus-article-edit-done-function)
(make-local-variable 'gnus-prev-winconf)
+ (make-local-variable 'gnus-prev-cwc)
(setq-local font-lock-defaults '(message-font-lock-keywords t))
(setq-local mail-header-separator "")
(setq-local gnus-article-edit-mode t)
@@ -7420,7 +7421,8 @@ groups."
(defun gnus-article-edit-article (start-func exit-func &optional quiet)
"Start editing the contents of the current article buffer."
- (let ((winconf (current-window-configuration)))
+ (let ((winconf (current-window-configuration))
+ (cwc gnus-current-window-configuration))
(set-buffer gnus-article-buffer)
(let ((message-auto-save-directory
;; Don't associate the article buffer with a draft file.
@@ -7431,6 +7433,7 @@ groups."
(gnus-configure-windows 'edit-article)
(setq gnus-article-edit-done-function exit-func)
(setq gnus-prev-winconf winconf)
+ (setq gnus-prev-cwc cwc)
(unless quiet
(gnus-message 6 "C-c C-c to end edits"))))
@@ -7440,7 +7443,8 @@ groups."
(let ((func gnus-article-edit-done-function)
(buf (current-buffer))
(start (window-start))
- (winconf gnus-prev-winconf))
+ (winconf gnus-prev-winconf)
+ (cwc gnus-prev-cwc))
(widen) ;; Widen it in case that users narrowed the buffer.
(funcall func arg)
(set-buffer buf)
@@ -7458,6 +7462,7 @@ groups."
(set-text-properties (point-min) (point-max) nil)
(gnus-article-mode)
(set-window-configuration winconf)
+ (setq gnus-current-window-configuration cwc)
(set-buffer buf)
(set-window-start (get-buffer-window buf) start)
(set-window-point (get-buffer-window buf) (point)))
@@ -7479,10 +7484,12 @@ groups."
(erase-buffer)
(if (gnus-buffer-live-p gnus-original-article-buffer)
(insert-buffer-substring gnus-original-article-buffer))
- (let ((winconf gnus-prev-winconf))
+ (let ((winconf gnus-prev-winconf)
+ (cwc gnus-prev-cwc))
(kill-all-local-variables)
(gnus-article-mode)
(set-window-configuration winconf)
+ (setq gnus-current-window-configuration cwc)
;; Tippy-toe some to make sure that point remains where it was.
(with-current-buffer curbuf
(set-window-start (get-buffer-window (current-buffer)) window-start)
diff --git a/lisp/gnus/gnus-eform.el b/lisp/gnus/gnus-eform.el
index 958d819048f..cc5beb16a34 100644
--- a/lisp/gnus/gnus-eform.el
+++ b/lisp/gnus/gnus-eform.el
@@ -70,17 +70,20 @@ It is a slightly enhanced `lisp-data-mode'.
(when (gnus-visual-p 'group-menu 'menu)
(gnus-edit-form-make-menu-bar))
(make-local-variable 'gnus-edit-form-done-function)
- (make-local-variable 'gnus-prev-winconf))
+ (make-local-variable 'gnus-prev-winconf)
+ (make-local-variable 'gnus-prev-cwc))
(defun gnus-edit-form (form documentation exit-func &optional layout)
"Edit FORM in a new buffer.
Call EXIT-FUNC on exit. Display DOCUMENTATION in the beginning
of the buffer.
The optional LAYOUT overrides the `edit-form' window layout."
- (let ((winconf (current-window-configuration)))
+ (let ((winconf (current-window-configuration))
+ (cwc gnus-current-window-configuration))
(set-buffer (gnus-get-buffer-create gnus-edit-form-buffer))
(gnus-configure-windows (or layout 'edit-form))
(gnus-edit-form-mode)
+ (setq gnus-prev-cwc cwc)
(setq gnus-prev-winconf winconf)
(setq gnus-edit-form-done-function exit-func)
(erase-buffer)
@@ -113,9 +116,11 @@ The optional LAYOUT overrides the `edit-form' window
layout."
(defun gnus-edit-form-exit ()
"Kill the current buffer."
(interactive nil gnus-edit-form-mode)
- (let ((winconf gnus-prev-winconf))
+ (let ((winconf gnus-prev-winconf)
+ (cwc gnus-prev-cwc))
(kill-buffer (current-buffer))
- (set-window-configuration winconf)))
+ (set-window-configuration winconf)
+ (setq gnus-current-window-configuration cwc)))
(provide 'gnus-eform)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 070d1223e2c..8c1d7e3c86a 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4195,7 +4195,8 @@ If DONT-SCAN is non-nil, scan non-activated groups as
well."
(let ((info (gnus-get-info group))
(active (gnus-active group)))
(when info
- (gnus-request-update-info info method))
+ (gnus-request-update-info info method)
+ (setq active (gnus-active group)))
(gnus-get-unread-articles-in-group info active)
(unless (gnus-virtual-group-p group)
(gnus-close-group group))
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 0d776cd1bca..adbc39547ff 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -165,7 +165,7 @@
(icalendar--get-event-property-attributes
event field) zone-map))
(dtdate-dec (icalendar--decode-isodatetime dtdate nil dtdate-zone)))
- (encode-time dtdate-dec)))
+ (when dtdate-dec (encode-time dtdate-dec))))
(defun gnus-icalendar-event--find-attendee (ical name-or-email)
(let* ((event (car (icalendar--all-events ical)))
diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 22c84bc39cf..98a7e23428b 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1066,7 +1066,9 @@ Responsible for handling and, or, and parenthetical
expressions.")
_srv query-spec groups)
(let ((artlist []))
(dolist (group groups)
- (let* ((gnus-newsgroup-selection (nnselect-get-artlist group))
+ (let* ((gnus-newsgroup-selection
+ (or
+ (nnselect-get-artlist group) (nnselect-generate-artlist group)))
(group-spec
(nnselect-categorize
(mapcar 'car
@@ -2174,37 +2176,80 @@ remaining string, then adds all that to the top-level
spec."
(declare-function gnus-registry-get-id-key "gnus-registry" (id key))
-(defun gnus-search-thread (header)
- "Make an nnselect group based on the thread containing the article
-header. The current server will be searched. If the registry is
-installed, the server that the registry reports the current
-article came from is also searched."
- (let* ((ids (cons (mail-header-id header)
- (split-string
- (or (mail-header-references header)
- ""))))
- (query
- (list (cons 'query (mapconcat (lambda (i)
- (format "id:%s" i))
- ids " or "))
- (cons 'thread t)))
- (server
- (list (list (gnus-method-to-server
- (gnus-find-method-for-group gnus-newsgroup-name)))))
- (registry-group (and
- (bound-and-true-p gnus-registry-enabled)
- (car (gnus-registry-get-id-key
- (mail-header-id header) 'group))))
- (registry-server
- (and registry-group
- (gnus-method-to-server
- (gnus-find-method-for-group registry-group)))))
- (when registry-server
- (cl-pushnew (list registry-server) server :test #'equal))
- (gnus-group-make-search-group nil (list
- (cons 'search-query-spec query)
- (cons 'search-group-spec server)))
- (gnus-summary-goto-subject (gnus-id-to-article (mail-header-id header)))))
+(defun gnus-search-thread (header &optional group server)
+ "Find articles in the thread containing HEADER from GROUP on SERVER.
+If gnus-refer-thread-use-search is nil only the current group is
+checked for articles; if t all groups on the server containing
+the article's group will be searched; if a list then all servers
+in this list will be searched. If possible the newly found
+articles are added to the summary buffer; otherwise the full
+thread along with the original articles are displayed in a new
+ephemeral nnselect buffer."
+ (let* ((group (or group gnus-newsgroup-name))
+ (server (or server (gnus-group-server group)))
+ (query
+ (list
+ (cons 'query
+ (mapconcat (lambda (i) (format "id:%s" i))
+ (cons (mail-header-id header)
+ (split-string
+ (or (mail-header-references header) "")))
+ " or "))
+ (cons 'thread t)))
+ (gnus-search-use-parsed-queries t))
+ (if (not gnus-refer-thread-use-search)
+ ;; Search only the current group and send the headers back to
+ ;; the caller to add to the summary buffer.
+ (gnus-fetch-headers
+ (sort
+ (mapcar (lambda (x) (elt x 1))
+ (gnus-search-run-query
+ (list (cons 'search-query-spec query)
+ (cons 'search-group-spec
+ (list (list server group))))))
+ #'<) nil t)
+ ;; Otherwise create an ephemeral search group: record the
+ ;; current summary contents; exit the current group (so that
+ ;; changes are saved); then create a new ephemeral group with
+ ;; the original articles plus those of the thread.
+ (let ((selection (seq-map (lambda (x) (vector group x 100))
+ gnus-newsgroup-articles))
+ (thread (gnus-search-run-query
+ (list (cons 'search-query-spec query)
+ (cons 'search-group-spec
+ (if (listp gnus-refer-thread-use-search)
+ gnus-refer-thread-use-search
+ (list (list server))))))))
+ (if (< (nnselect-artlist-length thread) 2)
+ (message "No other articles in thread")
+ (setq selection
+ (seq-into
+ (seq-union selection thread
+ (lambda (x y)
+ (and (equal (nnselect-artitem-group x)
+ (nnselect-artitem-group y))
+ (eql (nnselect-artitem-number x)
+ (nnselect-artitem-number y)))))
+ 'vector))
+ (gnus-summary-exit)
+ (gnus-group-read-ephemeral-group
+ (concat "nnselect-" (message-unique-id))
+ (list 'nnselect "nnselect")
+ nil
+ (cons (current-buffer) gnus-current-window-configuration)
+ nil nil
+ (list
+ (cons 'nnselect-specs
+ (list
+ (cons 'nnselect-function 'identity)
+ (cons 'nnselect-args
+ selection)))
+ (cons 'nnselect-artlist nil))
+ (nnselect-artlist-length selection))
+ (if (gnus-id-to-article (mail-header-id header))
+ (gnus-summary-goto-subject
+ (gnus-id-to-article (mail-header-id header)))
+ (message "Thread search failed")))))))
(defun gnus-search-get-active (srv)
(let ((method (gnus-server-to-method srv))
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index d59b5b58ceb..19b8b09de03 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1490,7 +1490,8 @@ backend check whether the group actually exists."
(gnus-request-update-info
info (inline (gnus-find-method-for-group
(gnus-info-group info)))))
- (gnus-activate-group (gnus-info-group info) nil t))
+ (gnus-activate-group (gnus-info-group info) nil t)
+ (setq active (gnus-active (gnus-info-group info))))
(let* ((range (gnus-info-read info))
(num 0))
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 0e81f95cd15..4effaa981ec 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -80,6 +80,8 @@
(autoload 'nnselect-article-rsv "nnselect" nil nil)
(autoload 'nnselect-article-group "nnselect" nil nil)
(autoload 'gnus-nnselect-group-p "nnselect" nil nil)
+(autoload 'gnus-search-thread "gnus-search" nil nil)
+(autoload 'gnus-search-server-to-engine "gnus-search" nil nil)
(defcustom gnus-kill-summary-on-exit t
"If non-nil, kill the summary buffer when you exit from it.
@@ -141,12 +143,17 @@ If t, fetch all the available old headers."
'gnus-refer-thread-use-search "28.1")
(defcustom gnus-refer-thread-use-search nil
- "Search an entire server when referring threads.
-A nil value will only search for thread-related articles in the
-current group."
+ "Specify where to find articles when referring threads.
+A nil value restricts searches for thread-related articles to the
+current group; a value of t searches all groups on the server; a
+list of servers and groups (where each element is a list whose
+car is the server and whose cdr is a list of groups on this
+server or nil to search the entire server) searches these
+server/groups. This may usefully be set as a group parameter."
:version "28.1"
:group 'gnus-thread
- :type 'boolean)
+ :type '(restricted-sexp :match-alternatives
+ (listp 't 'nil)))
(defcustom gnus-refer-thread-limit-to-thread nil
"If non-nil referring a thread will limit the summary buffer to
@@ -1408,6 +1415,7 @@ the normal Gnus MIME machinery."
(defvar gnus-newsgroup-adaptive-score-file nil)
(defvar gnus-current-score-file nil)
(defvar gnus-current-move-group nil)
+(defvar gnus-current-move-article nil)
(defvar gnus-current-copy-group nil)
(defvar gnus-current-crosspost-group nil)
(defvar gnus-newsgroup-display nil)
@@ -8500,7 +8508,15 @@ If UNREPLIED (the prefix), limit to unreplied articles."
If REVERSE, limit the summary buffer to articles that are marked
with MARKS. MARKS can either be a string of marks or a list of marks.
Returns how many articles were removed."
- (interactive "sMarks: " gnus-summary-mode)
+ (interactive
+ (list
+ (completing-read "Marks:"
+ (let ((mark-list '()))
+ (mapc (lambda (datum)
+ (cl-pushnew (gnus-data-mark datum) mark-list))
+ gnus-newsgroup-data)
+ (mapcar 'char-to-string mark-list)))
+ current-prefix-arg) gnus-summary-mode)
(gnus-summary-limit-to-marks marks t))
(defun gnus-summary-limit-to-marks (marks &optional reverse)
@@ -8509,7 +8525,15 @@ If REVERSE (the prefix), limit the summary buffer to
articles that are
not marked with MARKS. MARKS can either be a string of marks or a
list of marks.
Returns how many articles were removed."
- (interactive "sMarks: \nP" gnus-summary-mode)
+ (interactive
+ (list
+ (completing-read "Marks:"
+ (let ((mark-list '()))
+ (mapc (lambda (datum)
+ (cl-pushnew (gnus-data-mark datum) mark-list))
+ gnus-newsgroup-data)
+ (mapcar 'char-to-string mark-list)))
+ current-prefix-arg) gnus-summary-mode)
(prog1
(let ((data gnus-newsgroup-data)
(marks (if (listp marks) marks
@@ -8992,65 +9016,73 @@ Return the number of articles fetched."
(defun gnus-summary-refer-thread (&optional limit)
"Fetch all articles in the current thread.
-For backends that know how to search for threads (currently only
-`nnimap') a non-numeric prefix arg will search the entire server;
-without a prefix arg only the current group is searched. If the
-variable `gnus-refer-thread-use-search' is non-nil the prefix arg
-has the reverse meaning. If no backend-specific `request-thread'
-function is available fetch LIMIT (the numerical prefix) old
-headers. If LIMIT is non-numeric or nil fetch the number
-specified by the `gnus-refer-thread-limit' variable."
+A non-numeric prefix arg will search the entire server; without a
+prefix arg only the current group is searched. If the variable
+`gnus-refer-thread-use-search' is t the prefix arg has the
+reverse meaning. If searching is not enabled for the current
+group, fetch LIMIT (the numerical prefix) old headers. If LIMIT
+is non-numeric or nil fetch the number specified by the
+`gnus-refer-thread-limit' variable."
(interactive "P" gnus-summary-mode)
- (let* ((header (gnus-summary-article-header))
- (id (mail-header-id header))
- (gnus-inhibit-demon t)
- (gnus-summary-ignore-duplicates t)
- (gnus-read-all-available-headers t)
- (gnus-refer-thread-use-search
- (if (and (not (null limit)) (listp limit))
- (not gnus-refer-thread-use-search) gnus-refer-thread-use-search))
- (new-headers
- (if (gnus-check-backend-function
- 'request-thread gnus-newsgroup-name)
- (gnus-request-thread header gnus-newsgroup-name)
- (let* ((limit (if (numberp limit) (prefix-numeric-value limit)
- gnus-refer-thread-limit))
- (last (if (numberp limit)
- (min (+ (mail-header-number header)
- limit)
- gnus-newsgroup-highest)
- gnus-newsgroup-highest))
- (subject (gnus-simplify-subject
- (mail-header-subject header)))
- (refs (split-string (or (mail-header-references header)
- "")))
- (gnus-parse-headers-hook
+ (let* ((group gnus-newsgroup-name)
+ (header (gnus-summary-article-header))
+ (id (mail-header-id header))
+ (gnus-inhibit-demon t)
+ (gnus-summary-ignore-duplicates t)
+ (gnus-read-all-available-headers t)
+ (gnus-refer-thread-use-search
+ (if (or (null limit) (numberp limit))
+ gnus-refer-thread-use-search
+ (if (booleanp gnus-refer-thread-use-search)
+ (not gnus-refer-thread-use-search)
+ gnus-refer-thread-use-search)))
+ article-ids new-unreads
+ (new-headers
+ (cond
+ ;; If there is a backend-specific method, use it.
+ ((gnus-check-backend-function
+ 'request-thread group)
+ (gnus-request-thread header group))
+ ;; If a search engine is configured, use it.
+ ((ignore-errors
+ (gnus-search-server-to-engine (gnus-group-server group)))
+ (gnus-search-thread header))
+ ;; Otherwise just retrieve some headers.
+ (t
+ (let* ((limit (if (numberp limit)
+ limit
+ gnus-refer-thread-limit))
+ (last (if (numberp limit)
+ (min (+ (mail-header-number header) limit)
+ gnus-newsgroup-highest)
+ gnus-newsgroup-highest))
+ (subject (gnus-simplify-subject
+ (mail-header-subject header)))
+ (refs (split-string
+ (or (mail-header-references header) "")))
+ (gnus-parse-headers-hook
(let ((refs (append refs (list id subject))))
- (lambda ()
- (goto-char (point-min))
- (keep-lines (regexp-opt refs))))))
- (gnus-fetch-headers (list last) (if (numberp limit)
- (* 2 limit) limit)
- t))))
- article-ids new-unreads)
+ (lambda () (goto-char (point-min))
+ (keep-lines (regexp-opt refs))))))
+ (gnus-fetch-headers
+ (list last) (if (numberp limit) (* 2 limit) limit) t))))))
(when (listp new-headers)
(dolist (header new-headers)
- (push (mail-header-number header) article-ids))
+ (push (mail-header-number header) article-ids))
(setq article-ids (nreverse article-ids))
(setq new-unreads
- (gnus-sorted-intersection gnus-newsgroup-unselected article-ids))
+ (gnus-sorted-intersection gnus-newsgroup-unselected article-ids))
(setq gnus-newsgroup-unselected
- (gnus-sorted-ndifference gnus-newsgroup-unselected new-unreads))
+ (gnus-sorted-ndifference gnus-newsgroup-unselected new-unreads))
(setq gnus-newsgroup-unreads
- (gnus-sorted-nunion gnus-newsgroup-unreads new-unreads))
+ (gnus-sorted-nunion gnus-newsgroup-unreads new-unreads))
(setq gnus-newsgroup-headers
(gnus-delete-duplicate-headers
- (cl-merge
- 'list gnus-newsgroup-headers new-headers
- 'gnus-article-sort-by-number)))
+ (cl-merge 'list gnus-newsgroup-headers new-headers
+ 'gnus-article-sort-by-number)))
(setq gnus-newsgroup-articles
- (gnus-sorted-nunion gnus-newsgroup-articles article-ids))
- (gnus-summary-limit-include-thread id
gnus-refer-thread-limit-to-thread)))
+ (gnus-sorted-nunion gnus-newsgroup-articles article-ids)))
+ (gnus-summary-limit-include-thread id gnus-refer-thread-limit-to-thread))
(gnus-summary-show-thread))
(defun gnus-summary-open-group-with-article (message-id)
@@ -10248,6 +10280,7 @@ ACTION can be either `move' (the default), `crosspost'
or `copy'."
article gnus-newsgroup-name (current-buffer) t)))
;; run the move/copy/crosspost/respool hook
+ (setq gnus-current-move-article (cdr art-group))
(run-hook-with-args 'gnus-summary-article-move-hook
action
(gnus-data-header (gnus-data-find article))
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index efab58437e9..fc8518512ee 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2445,6 +2445,7 @@ are always t.")
;; Save window configuration.
(defvar gnus-prev-winconf nil)
+(defvar gnus-prev-cwc nil)
(defvar gnus-reffed-article-number nil)
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 639a29582b3..582c598ac22 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -658,50 +658,49 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff
bfile)
;; If getting from mail spool directory, use movemail to move
;; rather than just renaming, so as to interlock with the
;; mailer.
- (unwind-protect
- (save-excursion
- (setq errors (generate-new-buffer " *mail source loss*"))
- (let ((default-directory "/"))
- (setq result
- ;; call-process looks in exec-path, which
- ;; contains exec-directory, so will find
- ;; Mailutils movemail if it exists, else it will
- ;; find "our" movemail in exec-directory.
- ;; Bug#31737
- (apply
- #'call-process
- (append
- (list
- mail-source-movemail-program
- nil errors nil from to)))))
- (when (file-exists-p to)
- (set-file-modes to mail-source-default-file-modes 'nofollow))
- (if (and (or (not (buffer-modified-p errors))
- (zerop (buffer-size errors)))
- (and (numberp result)
- (zerop result)))
- ;; No output => movemail won.
- t
- (set-buffer errors)
- ;; There may be a warning about older revisions. We
- ;; ignore that.
- (goto-char (point-min))
- (if (search-forward "older revision" nil t)
- t
- ;; Probably a real error.
- (subst-char-in-region (point-min) (point-max) ?\n ?\ )
- (goto-char (point-max))
- (skip-chars-backward " \t")
- (delete-region (point) (point-max))
- (goto-char (point-min))
- (when (looking-at "movemail: ")
- (delete-region (point-min) (match-end 0)))
- ;; Result may be a signal description string.
- (unless (yes-or-no-p
- (format "movemail: %s (%s return). Continue? "
- (buffer-string) result))
- (error "%s" (buffer-string)))
- (setq to nil)))))))
+ (save-excursion
+ (setq errors (generate-new-buffer " *mail source loss*"))
+ (let ((default-directory "/"))
+ (setq result
+ ;; call-process looks in exec-path, which
+ ;; contains exec-directory, so will find
+ ;; Mailutils movemail if it exists, else it will
+ ;; find "our" movemail in exec-directory.
+ ;; Bug#31737
+ (apply
+ #'call-process
+ (append
+ (list
+ mail-source-movemail-program
+ nil errors nil from to)))))
+ (when (file-exists-p to)
+ (set-file-modes to mail-source-default-file-modes 'nofollow))
+ (if (and (or (not (buffer-modified-p errors))
+ (zerop (buffer-size errors)))
+ (and (numberp result)
+ (zerop result)))
+ ;; No output => movemail won.
+ t
+ (set-buffer errors)
+ ;; There may be a warning about older revisions. We
+ ;; ignore that.
+ (goto-char (point-min))
+ (if (search-forward "older revision" nil t)
+ t
+ ;; Probably a real error.
+ (subst-char-in-region (point-min) (point-max) ?\n ?\ )
+ (goto-char (point-max))
+ (skip-chars-backward " \t")
+ (delete-region (point) (point-max))
+ (goto-char (point-min))
+ (when (looking-at "movemail: ")
+ (delete-region (point-min) (match-end 0)))
+ ;; Result may be a signal description string.
+ (unless (yes-or-no-p
+ (format "movemail: %s (%s return). Continue? "
+ (buffer-string) result))
+ (error "%s" (buffer-string)))
+ (setq to nil))))))
(when (buffer-live-p errors)
(kill-buffer errors))
;; Return whether we moved successfully or not.
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8d3fe010af4..45cc21701b3 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4359,8 +4359,10 @@ If COND is a function, METHOD will be inserted if COND
returns
a non-nil value when called in the message buffer without any
arguments. If METHOD is nil in this case, the return value of
the function will be inserted instead.
-If the buffer already has a\"X-Message-SMTP-Method\" header,
-it is left unchanged."
+
+Note: if the buffer already has a \"X-Message-SMTP-Method\"
+header, these rules are ignored, and the header is left
+unchanged."
:type '(alist :key-type (choice
(string :tag "From Address")
(function :tag "Predicate"))
@@ -5007,30 +5009,34 @@ Each line should be no more than 79 characters long."
"Send the current buffer to `message-send-mail-function'.
Or, if there's a header that specifies a different method, use
that instead."
- (let ((method (message-field-value "X-Message-SMTP-Method")))
+ (let ((method (message-field-value "X-Message-SMTP-Method"))
+ send-function)
(if (not method)
- (funcall message-send-mail-function)
+ (funcall message-send-mail-function)
(message-remove-header "X-Message-SMTP-Method")
(setq method (split-string method))
+ (setq send-function
+ (symbol-function
+ (intern-soft (format "message-send-mail-with-%s" (car method)))))
(cond
- ((equal (car method) "sendmail")
- (message-send-mail-with-sendmail))
((equal (car method) "smtp")
- (require 'smtpmail)
- (let* ((smtpmail-store-queue-variables t)
+ (require 'smtpmail)
+ (let* ((smtpmail-store-queue-variables t)
(smtpmail-smtp-server (nth 1 method))
- (service (nth 2 method))
- (port (string-to-number service))
- ;; If we're talking to the TLS SMTP port, then force a
- ;; TLS connection.
- (smtpmail-stream-type (if (= port 465)
- 'tls
- smtpmail-stream-type))
- (smtpmail-smtp-service (if (> port 0) port service))
- (smtpmail-smtp-user (or (nth 3 method) smtpmail-smtp-user)))
- (message-smtpmail-send-it)))
+ (service (nth 2 method))
+ (port (string-to-number service))
+ ;; If we're talking to the TLS SMTP port, then force a
+ ;; TLS connection.
+ (smtpmail-stream-type (if (= port 465)
+ 'tls
+ smtpmail-stream-type))
+ (smtpmail-smtp-service (if (> port 0) port service))
+ (smtpmail-smtp-user (or (nth 3 method) smtpmail-smtp-user)))
+ (message-smtpmail-send-it)))
+ (send-function
+ (funcall send-function))
(t
- (error "Unknown method %s" method))))))
+ (error "Unknown mail method %s" method))))))
(defun message-send-mail-with-sendmail ()
"Send off the prepared buffer with sendmail."
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 8dfb0deb418..2c407353559 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -98,7 +98,7 @@ This is only used if `mm-inline-large-images' is set to
(truncate (* mm-inline-large-images-proportion
(- (nth 3 edges) (nth 1 edges)))))))
image))
- " ")
+ "x")
(insert "\n")
(mm-handle-set-undisplayer
handle
diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index b8dd61de3b9..21bb46b8fa7 100644
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -752,7 +752,7 @@ If set, it overrides the setting of
`mml2015-sign-with-sender'."
(if (not key-image)
""
(condition-case nil
- (let ((result " "))
+ (let ((result (copy-sequence " ")))
(put-text-property
1 2 'display
(gnus-rescale-image key-image
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index be2bdc9bb15..8728aab1def 100644
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -1373,10 +1373,10 @@ all. This may very well take some time.")
(setq day (+ 7 day))))
;; Finally, if we have some days, they are valid
(when days
- (sort days #'>)
(throw 'found
(encode-time 0 minute hour
- (car days) month year time-zone)))
+ (apply #'max days)
+ month year time-zone)))
)))))
;; There's an upper limit, but we didn't find any last occurrence.
;; This means that the schedule is undecidable. This can happen if
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index de942993586..81449cb58b2 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1908,19 +1908,7 @@ If LIMIT, first try to limit the search to the N last
articles."
(autoload 'nnselect-search-thread "nnselect")
-(deffoo nnimap-request-thread (header &optional group server)
- (if gnus-refer-thread-use-search
- (nnselect-search-thread header)
- (when (nnimap-change-group group server)
- (let* ((cmd (nnimap-make-thread-query header))
- (result (with-current-buffer (nnimap-buffer)
- (nnimap-command "UID SEARCH %s" cmd))))
- (when result
- (gnus-fetch-headers
- (and (car result)
- (delete 0 (mapcar #'string-to-number
- (cdr (assoc "SEARCH" (cdr result))))))
- nil t))))))
+(make-obsolete 'nnimap-request-thread 'gnus-search-thread "29.1")
(defun nnimap-change-group (group &optional server no-reconnect read-only)
"Change group to GROUP if non-nil.
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 87cb1275313..c4fbe3a5bd2 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -64,6 +64,7 @@
(defvar gnus-inhibit-demon)
(defvar gnus-message-group-art)
+(defvar gnus-search-use-parsed-queries)
;; For future use
(defvoo nnselect-directory gnus-directory
@@ -85,14 +86,14 @@
(let (selection)
(pcase-dolist (`(,artgroup . ,arts)
(nnselect-categorize artlist #'nnselect-artitem-group))
- (let (list)
+ (let (list)
(pcase-dolist (`(,rsv . ,articles)
- (nnselect-categorize
+ (nnselect-categorize
arts #'nnselect-artitem-rsv
#'nnselect-artitem-number))
(push (cons rsv (gnus-compress-sequence (sort articles #'<)))
list))
- (push (cons artgroup list) selection)))
- selection)))
+ (push (cons artgroup (sort list 'car-less-than-car)) selection)))
+ (sort selection (lambda (x y) (string< (car x) (car y)))))))
(defun nnselect-uncompress-artlist (artlist)
"Uncompress ARTLIST."
@@ -100,17 +101,20 @@
artlist
(let (selection)
(pcase-dolist (`(,artgroup . ,list) artlist)
- (pcase-dolist (`(,artrsv . ,artseq) list)
- (setq selection
- (vconcat
- (cl-map 'vector
- (lambda (art)
- (vector artgroup art artrsv))
- (gnus-uncompress-sequence artseq)) selection))))
- selection)))
+ (pcase-dolist (`(,artrsv . ,artseq) list)
+ (setq selection
+ (vconcat selection
+ (cl-map 'vector
+ (lambda (art)
+ (vector artgroup art artrsv))
+ (gnus-uncompress-sequence artseq))))))
+ (sort selection
+ (lambda (x y)
+ (< (nnselect-artitem-rsv x) (nnselect-artitem-rsv y)))))))
(make-obsolete 'nnselect-group-server 'gnus-group-server "28.1")
(make-obsolete 'nnselect-run 'nnselect-generate-artlist "29.1")
+(make-obsolete 'nnselect-search-thread 'gnus-search-thread "29.1")
;; Data type article list.
@@ -267,45 +271,23 @@ If this variable is nil, or if the provided function
returns nil,
:version "28.1"
:type '(repeat function))
-(defun nnselect-generate-artlist (group &optional specs)
- "Generate the artlist for GROUP using SPECS.
-SPECS should be an alist including an `nnselect-function' and an
-`nnselect-args'. The former applied to the latter should create
-the artlist. If SPECS is nil retrieve the specs from the group
-parameters."
- (let* ((specs
- (or specs (gnus-group-get-parameter group 'nnselect-specs t)))
- (function (alist-get 'nnselect-function specs))
- (args (alist-get 'nnselect-args specs)))
- (condition-case-unless-debug err
- (funcall function args)
- ;; Don't swallow gnus-search errors; the user should be made
- ;; aware of them.
- (gnus-search-error
- (signal (car err) (cdr err)))
- (error
- (gnus-error
- 3
- "nnselect-generate-artlist: %s on %s gave error %s" function args err)
- []))))
-
(defmacro nnselect-get-artlist (group)
- "Get the list of articles for GROUP.
-If the group parameter `nnselect-get-artlist-override-function' is
-non-nil call this function with argument GROUP to get the
+ "Get the stored list of articles for GROUP.
+If the group parameter `nnselect-get-artlist-override-function'
+is non-nil call this function with argument GROUP to get the
artlist; if the group parameter `nnselect-always-regenerate' is
-non-nil, regenerate the artlist; otherwise retrieve the artlist
-directly from the group parameters."
+non-nil, return nil to regenerate the artlist; otherwise retrieve
+the stored artlist from the group parameters."
`(when (gnus-nnselect-group-p ,group)
(let ((override (gnus-group-get-parameter
- ,group
- 'nnselect-get-artlist-override-function)))
+ ,group
+ 'nnselect-get-artlist-override-function)))
(cond
(override (funcall override ,group))
((gnus-group-get-parameter ,group 'nnselect-always-regenerate)
- (nnselect-generate-artlist ,group))
+ nil)
(t
- (nnselect-uncompress-artlist
+ (nnselect-uncompress-artlist
(gnus-group-get-parameter ,group 'nnselect-artlist t)))))))
(defmacro nnselect-store-artlist (group artlist)
@@ -313,17 +295,65 @@ directly from the group parameters."
If the group parameter `nnselect-store-artlist-override-function'
is non-nil call this function on GROUP and ARTLIST; if the group
parameter `nnselect-always-regenerate' is non-nil don't store the
-artlist; otherwise store the ARTLIST in the group parameters."
+artlist; otherwise store the ARTLIST in the group parameters.
+The active range is also stored."
`(let ((override (gnus-group-get-parameter
- ,group
- 'nnselect-store-artlist-override-function)))
+ ,group
+ 'nnselect-store-artlist-override-function)))
+ (gnus-group-set-parameter ,group 'active
+ (cons 1 (nnselect-artlist-length ,artlist)))
(cond
(override (funcall override ,group ,artlist))
- ((gnus-group-get-parameter ,group 'nnselect-always-regenerate) t)
+ ((gnus-group-get-parameter ,group 'nnselect-always-regenerate)
+ (gnus-group-remove-parameter ,group 'nnselect-artlist))
(t
(gnus-group-set-parameter ,group 'nnselect-artlist
(nnselect-compress-artlist ,artlist))))))
+(defun nnselect-generate-artlist (group &optional specs info)
+ "Generate and return the artlist for GROUP using SPECS.
+The artlist is sorted by rsv, lexically over groups, and by
+article number. SPECS should be an alist including an
+`nnselect-function' and an `nnselect-args'. The former applied
+to the latter should create the artlist. If SPECS is nil
+retrieve the specs from the group parameters. If INFO update the
+group info."
+ (let* ((specs
+ (or specs (gnus-group-get-parameter group 'nnselect-specs t)))
+ (function (alist-get 'nnselect-function specs))
+ (args (alist-get 'nnselect-args specs)))
+ (condition-case-unless-debug err
+ (progn
+ (let ((gnus-newsgroup-selection
+ (sort
+ (funcall function args)
+ (lambda (x y)
+ (let ((xgroup (nnselect-artitem-group x))
+ (ygroup (nnselect-artitem-group y))
+ (xrsv (nnselect-artitem-rsv x))
+ (yrsv (nnselect-artitem-rsv y)))
+ (or (< xrsv yrsv)
+ (and (eql xrsv yrsv)
+ (or (string< xgroup ygroup)
+ (and (string= xgroup ygroup)
+ (< (nnselect-artitem-number x)
+ (nnselect-artitem-number
y)))))))))))
+ (when info
+ (if gnus-newsgroup-selection
+ (nnselect-request-update-info group info)
+ (gnus-set-active group '(1 . 0))))
+ (nnselect-store-artlist group gnus-newsgroup-selection)
+ gnus-newsgroup-selection))
+ ;; Don't swallow gnus-search errors; the user should be made
+ ;; aware of them.
+ (gnus-search-error
+ (signal (car err) (cdr err)))
+ (error
+ (gnus-error
+ 3
+ "nnselect-generate-artlist: %s on %s gave error %s" function args err)
+ []))))
+
;; Gnus backend interface functions.
(deffoo nnselect-open-server (server &optional definitions)
@@ -344,85 +374,82 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(deffoo nnselect-request-group (group &optional _server _dont-check info)
(let* ((group (nnselect-add-prefix group))
- (nnselect-artlist (nnselect-get-artlist group))
- length)
- ;; Check for cached select result or run the selection and cache
- ;; the result.
- (unless nnselect-artlist
- (nnselect-store-artlist group
- (setq nnselect-artlist (nnselect-generate-artlist group)))
- (nnselect-request-update-info
- group (or info (gnus-get-info group))))
- (if (zerop (setq length (nnselect-artlist-length nnselect-artlist)))
- (progn
- (nnheader-report 'nnselect "Selection produced empty results.")
- (when (gnus-ephemeral-group-p group)
- (gnus-kill-ephemeral-group group)
- (setq gnus-ephemeral-servers
- (assq-delete-all 'nnselect gnus-ephemeral-servers)))
- (nnheader-insert ""))
+ (length (cdr (gnus-group-get-parameter group 'active t))))
+ (when (or (null length)
+ (gnus-group-get-parameter group 'nnselect-always-regenerate))
+ (setq length (nnselect-artlist-length
+ (nnselect-generate-artlist group nil info))))
+ (if (and (zerop length) (gnus-ephemeral-group-p group))
+ (progn
+ (nnheader-report 'nnselect "Selection produced empty results.")
+ (gnus-kill-ephemeral-group group)
+ (setq gnus-ephemeral-servers
+ (assq-delete-all 'nnselect gnus-ephemeral-servers))
+ (nnheader-insert ""))
(with-current-buffer nntp-server-buffer
- (nnheader-insert "211 %d %d %d %s\n"
- length ; total #
- 1 ; first #
- length ; last #
- group))) ; group name
- nnselect-artlist))
-
+ (nnheader-insert "211 %d %d %d %s\n"
+ length ; total #
+ (if (zerop length) 0 1) ; first #
+ length ; last #
+ group))))) ; group name
(deffoo nnselect-retrieve-headers (articles group &optional _server fetch-old)
- (let ((group (nnselect-add-prefix group)))
+ (let ((group (nnselect-add-prefix group))
+ (gnus-inhibit-demon t))
(with-current-buffer (gnus-summary-buffer-name group)
- (setq gnus-newsgroup-selection (or gnus-newsgroup-selection
- (nnselect-get-artlist group)))
- (let ((gnus-inhibit-demon t)
- (gartids (ids-by-group articles))
- headers)
- (with-current-buffer nntp-server-buffer
- (pcase-dolist (`(,artgroup . ,artids) gartids)
- (let ((artlist (sort (mapcar #'cdr artids) #'<))
- (gnus-override-method (gnus-find-method-for-group artgroup))
- (fetch-old
- (or
- (car-safe
- (gnus-group-find-parameter artgroup
- 'gnus-fetch-old-headers t))
- fetch-old)))
+ (setq gnus-newsgroup-selection
+ (or gnus-newsgroup-selection
+ (nnselect-get-artlist group)
+ ;; maybe don't need to update the info?
+ ;; (nnselect-generate-artlist group nil (gnus-get-info
group))))
+ (nnselect-generate-artlist group)))
+ (let ((gartids (ids-by-group articles))
+ headers)
+ (with-current-buffer nntp-server-buffer
+ (pcase-dolist (`(,artgroup . ,artids) gartids)
+ (let ((artlist (sort (mapcar #'cdr artids) #'<))
+ (gnus-override-method (gnus-find-method-for-group artgroup))
+ (fetch-old
+ (or
+ (car-safe
+ (gnus-group-find-parameter artgroup
+ 'gnus-fetch-old-headers t))
+ fetch-old)))
(gnus-request-group artgroup)
- (erase-buffer)
- (pcase (setq gnus-headers-retrieved-by
- (or
- (and
- nnselect-retrieve-headers-override-function
- (funcall
- nnselect-retrieve-headers-override-function
- artlist artgroup))
- (gnus-retrieve-headers
- artlist artgroup fetch-old)))
- ('nov
- (goto-char (point-min))
- (while (not (eobp))
- (nnselect-add-novitem
- (nnheader-parse-nov))
- (forward-line 1)))
- ('headers
- (gnus-run-hooks 'gnus-parse-headers-hook)
- (let ((nnmail-extra-headers gnus-extra-headers))
- (goto-char (point-min))
- (while (not (eobp))
- (nnselect-add-novitem
- (nnheader-parse-head))
- (forward-line 1))))
- ((pred listp)
- (dolist (novitem gnus-headers-retrieved-by)
- (nnselect-add-novitem novitem)))
- (_ (error "Unknown header type %s while requesting articles \
- of group %s" gnus-headers-retrieved-by artgroup)))))
- (setq headers
- (sort
- headers
- (lambda (x y)
- (< (mail-header-number x) (mail-header-number y))))))))))
+ (erase-buffer)
+ (pcase (setq gnus-headers-retrieved-by
+ (or
+ (and
+ nnselect-retrieve-headers-override-function
+ (funcall
+ nnselect-retrieve-headers-override-function
+ artlist artgroup))
+ (gnus-retrieve-headers
+ artlist artgroup fetch-old)))
+ ('nov
+ (goto-char (point-min))
+ (while (not (eobp))
+ (nnselect-add-novitem
+ (nnheader-parse-nov))
+ (forward-line 1)))
+ ('headers
+ (gnus-run-hooks 'gnus-parse-headers-hook)
+ (let ((nnmail-extra-headers gnus-extra-headers))
+ (goto-char (point-min))
+ (while (not (eobp))
+ (nnselect-add-novitem
+ (nnheader-parse-head))
+ (forward-line 1))))
+ ((pred listp)
+ (dolist (novitem gnus-headers-retrieved-by)
+ (nnselect-add-novitem novitem)))
+ (_ (error "Unknown header type %s while requesting articles \
+ of group %s" gnus-headers-retrieved-by artgroup)))))
+ (setq headers
+ (sort
+ headers
+ (lambda (x y)
+ (< (mail-header-number x) (mail-header-number y))))))))))
(deffoo nnselect-request-article (article &optional _group server to-buffer)
@@ -439,7 +466,7 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(if (eq 'nnselect (car (gnus-server-to-method server)))
(with-current-buffer gnus-summary-buffer
(let ((thread (gnus-id-to-thread article)))
- (when thread
+ (when (car thread)
(mapc
(lambda (x)
(when (and x (> x 0))
@@ -477,7 +504,8 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(deffoo nnselect-request-move-article
(article _group _server accept-form &optional last _internal-move-group)
- (let* ((artgroup (nnselect-article-group article))
+ (let* ((nnimap-expunge 'immediately)
+ (artgroup (nnselect-article-group article))
(artnumber (nnselect-article-number article))
(to-newsgroup (nth 1 accept-form))
(to-method (gnus-find-method-for-group to-newsgroup))
@@ -565,9 +593,9 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(artnumber (nnselect-article-number article))
(gmark (gnus-request-update-mark artgroup artnumber mark)))
(when (and artnumber
- (memq mark gnus-auto-expirable-marks)
- (= mark gmark)
- (gnus-group-auto-expirable-p artgroup))
+ (memq mark gnus-auto-expirable-marks)
+ (= mark gmark)
+ (gnus-group-auto-expirable-p artgroup))
(setq gmark gnus-expirable-mark))
gmark))
@@ -593,116 +621,109 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(gnus-newsgroup-selection
(or gnus-newsgroup-selection (nnselect-get-artlist group)))
newmarks)
- (gnus-info-set-marks info nil)
- (setf (gnus-info-read info) nil)
- (pcase-dolist (`(,artgroup . ,nartids)
- (ids-by-group
- (number-sequence 1 (nnselect-artlist-length
- gnus-newsgroup-selection))))
- (let* ((gnus-newsgroup-active nil)
- (idmap (make-hash-table :test 'eql))
- (gactive (sort (mapcar 'cdr nartids) '<))
- (group-info (gnus-get-info artgroup))
- (marks (gnus-info-marks group-info)))
- (pcase-dolist (`(,val . ,key) nartids)
- (puthash key val idmap))
- (setf (gnus-info-read info)
- (range-add-list
- (gnus-info-read info)
- (sort (mapcar (lambda (art) (gethash art idmap))
- (gnus-sorted-intersection
- gactive
- (range-uncompress (gnus-info-read group-info))))
- '<)))
- (pcase-dolist (`(,type . ,mark-list) marks)
- (let ((mark-type (gnus-article-mark-to-type type)) new)
- (when
- (setq new
- (if (not mark-list) nil
- (cond
- ((eq mark-type 'tuple)
- (delq nil
- (mapcar
- (lambda (mark)
- (let ((id (gethash (car mark) idmap)))
- (when id (cons id (cdr mark)))))
- mark-list)))
- (t
- (mapcar (lambda (art) (gethash art idmap))
- (gnus-sorted-intersection
- gactive (range-uncompress mark-list)))))))
- (let ((previous (alist-get type newmarks)))
- (if previous
- (nconc previous new)
- (push (cons type new) newmarks))))))))
-
- ;; Clean up the marks: compress lists;
- (pcase-dolist (`(,type . ,mark-list) newmarks)
- (let ((mark-type (gnus-article-mark-to-type type)))
- (unless (eq mark-type 'tuple)
- (setf (alist-get type newmarks)
- (gnus-compress-sequence (sort mark-list '<))))))
- ;; and ensure an unexist key.
- (unless (assq 'unexist newmarks)
- (push (cons 'unexist nil) newmarks))
-
- (gnus-info-set-marks info newmarks)
- (gnus-set-active group (cons 1 (nnselect-artlist-length
- gnus-newsgroup-selection)))))
+ (when gnus-newsgroup-selection
+ (gnus-info-set-marks info nil)
+ (setf (gnus-info-read info) nil)
+ (pcase-dolist (`(,artgroup . ,nartids)
+ (ids-by-group
+ (number-sequence 1 (nnselect-artlist-length
+ gnus-newsgroup-selection))))
+ (let* ((gnus-newsgroup-active nil)
+ (idmap (make-hash-table :test 'eql))
+ (gactive (sort (mapcar 'cdr nartids) #'<))
+ (group-info (gnus-get-info artgroup))
+ (marks (gnus-info-marks group-info)))
+ (pcase-dolist (`(,val . ,key) nartids)
+ (puthash key val idmap))
+ (setf (gnus-info-read info)
+ (range-add-list
+ (gnus-info-read info)
+ (sort (mapcar (lambda (art) (gethash art idmap))
+ (gnus-sorted-intersection
+ gactive
+ (range-uncompress (gnus-info-read
group-info))))
+ #'<)))
+ (pcase-dolist (`(,type . ,mark-list) marks)
+ (let ((mark-type (gnus-article-mark-to-type type)) new)
+ (when
+ (setq new
+ (if (not mark-list) nil
+ (cond
+ ((eq mark-type 'tuple)
+ (delq nil
+ (mapcar
+ (lambda (mark)
+ (let ((id (gethash (car mark) idmap)))
+ (when id (cons id (cdr mark)))))
+ mark-list)))
+ (t
+ (mapcar (lambda (art) (gethash art idmap))
+ (gnus-sorted-intersection
+ gactive (range-uncompress mark-list)))))))
+ (let ((previous (alist-get type newmarks)))
+ (if previous
+ (nconc previous new)
+ (push (cons type new) newmarks))))))))
+
+ ;; Clean up the marks: compress lists;
+ (pcase-dolist (`(,type . ,mark-list) newmarks)
+ (let ((mark-type (gnus-article-mark-to-type type)))
+ (unless (eq mark-type 'tuple)
+ (setf (alist-get type newmarks)
+ (gnus-compress-sequence (sort mark-list #'<))))))
+ ;; and ensure an unexist key.
+ (unless (assq 'unexist newmarks)
+ (push (cons 'unexist nil) newmarks))
+
+ (gnus-info-set-marks info newmarks)
+ (gnus-set-active group (cons 1 (nnselect-artlist-length
+ gnus-newsgroup-selection))))))
(deffoo nnselect-request-thread (header &optional group server)
(with-current-buffer gnus-summary-buffer
- (let ((group (nnselect-add-prefix group))
- ;; find the best group for the originating article. if its a
- ;; pseudo-article look for real articles in the same thread
- ;; and see where they come from.
- (artgroup (nnselect-article-group
- (if (> (mail-header-number header) 0)
- (mail-header-number header)
- (if (> (gnus-summary-article-number) 0)
- (gnus-summary-article-number)
- (let ((thread
- (gnus-id-to-thread (mail-header-id header))))
- (when thread
- (cl-some (lambda (x)
- (when (and x (> x 0)) x))
- (gnus-articles-in-thread thread)))))))))
- ;; Check if search-based thread referral is permitted, and
- ;; available.
- (if (and gnus-refer-thread-use-search
- (gnus-search-server-to-engine
- (gnus-method-to-server
- (gnus-find-method-for-group artgroup))))
- ;; If so we perform the query, massage the result, and return
- ;; the new headers back to the caller to incorporate into the
- ;; current summary buffer.
- (let* ((group-spec
- (list (delq nil (list
- (or server (gnus-group-server artgroup))
- (unless gnus-refer-thread-use-search
- artgroup)))))
- (ids (cons (mail-header-id header)
- (split-string
- (or (mail-header-references header)
- ""))))
- (query-spec
- (list (cons 'query (mapconcat (lambda (i)
- (format "id:%s" i))
- ids " or "))
- (cons 'thread t)))
- (last (nnselect-artlist-length gnus-newsgroup-selection))
- (first (1+ last))
- (new-nnselect-artlist
- (gnus-search-run-query
- (list (cons 'search-query-spec query-spec)
- (cons 'search-group-spec group-spec))))
- old-arts seq
- headers)
- (mapc
+ (let* ((group (nnselect-add-prefix group))
+ ;; Find the best group for the originating article. If its
+ ;; a pseudo-article check for real articles in the same
+ ;; thread to see where they come from.
+ (artgroup
+ (nnselect-article-group
+ (cond
+ ((> (mail-header-number header) 0)
+ (mail-header-number header))
+ ((> (gnus-summary-article-number) 0)
+ (gnus-summary-article-number))
+ (t (cl-some
+ (lambda (x) (when (and x (> x 0)) x))
+ (gnus-articles-in-thread
+ (gnus-id-to-thread (mail-header-id header))))))))
+ (server (or server (gnus-group-server artgroup))))
+ ;; Check if search-based thread referral is available.
+ (if (ignore-errors (gnus-search-server-to-engine server))
+ ;; We perform the query, massage the result, and return
+ ;; the new headers back to the caller to incorporate into
+ ;; the current summary buffer.
+ (let* ((gnus-search-use-parsed-queries t)
+ (group-spec
+ (if (not gnus-refer-thread-use-search)
+ (list (list server artgroup))
+ (if (listp gnus-refer-thread-use-search)
+ gnus-refer-thread-use-search
+ (list (list server)))))
+ (ids (cons (mail-header-id header)
+ (split-string
+ (or (mail-header-references header)
+ ""))))
+ (query-spec
+ (list (cons 'query
+ (mapconcat (lambda (i) (format "id:%s" i))
+ ids " or ")) (cons 'thread t)))
+ (last (nnselect-artlist-length gnus-newsgroup-selection))
+ (first (1+ last))
+ old-arts seq headers)
+ (mapc
(lambda (article)
- (if
- (setq seq
+ (if (setq seq
(cl-position
article
gnus-newsgroup-selection
@@ -710,54 +731,68 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(lambda (x y)
(and (equal (nnselect-artitem-group x)
(nnselect-artitem-group y))
- (eql (nnselect-artitem-number x)
+ (eql (nnselect-artitem-number x)
(nnselect-artitem-number y))))))
(push (1+ seq) old-arts)
(setq gnus-newsgroup-selection
(vconcat gnus-newsgroup-selection (vector article)))
(cl-incf last)))
- new-nnselect-artlist)
- (setq headers
- (gnus-fetch-headers
- (append (sort old-arts #'<)
- (number-sequence first last))
- nil t))
- (nnselect-store-artlist group gnus-newsgroup-selection)
- (when (>= last first)
- (let (new-marks)
- (pcase-dolist (`(,artgroup . ,artids)
- (ids-by-group (number-sequence first last)))
- (pcase-dolist (`(,type . ,marked)
- (gnus-info-marks (gnus-get-info artgroup)))
- (setq marked (gnus-uncompress-sequence marked))
- (when (setq new-marks
- (delq nil
- (mapcar
+ (gnus-search-run-query
+ (list (cons 'search-query-spec query-spec)
+ (cons 'search-group-spec group-spec))))
+ (setq headers
+ (gnus-fetch-headers
+ (append (sort old-arts #'<) (number-sequence first last))
+ nil t))
+ (nnselect-store-artlist group gnus-newsgroup-selection)
+ (when (>= last first)
+ (let (new-marks)
+ (pcase-dolist (`(,artgroup . ,artids)
+ (ids-by-group (number-sequence first last)))
+ (pcase-dolist (`(,type . ,marked)
+ (gnus-info-marks (gnus-get-info artgroup)))
+ (when
+ (setq new-marks
+ (delq nil
+ (if (eq (gnus-article-mark-to-type type)
+ 'tuple)
+ (mapcar
+ (lambda (art)
+ (let ((mtup
+ (assq (cdr art) marked)))
+ (when mtup
+ (cons (car art) (cdr mtup)))))
+ artids)
+ (setq marked
+ (gnus-uncompress-sequence marked))
+ (mapcar
(lambda (art)
(when (memq (cdr art) marked)
(car art)))
- artids)))
- (nconc
- (symbol-value
- (intern
- (format "gnus-newsgroup-%s"
- (car (rassq type gnus-article-mark-lists)))))
- new-marks)))))
- (setq gnus-newsgroup-active
- (cons 1 (nnselect-artlist-length gnus-newsgroup-selection)))
- (gnus-set-active
- group
- (cons 1 (nnselect-artlist-length gnus-newsgroup-selection))))
- headers)
- ;; If we can't or won't use search, just warp to the original
- ;; group and punt back to gnus-summary-refer-thread.
- (and (gnus-warp-to-article) (gnus-summary-refer-thread))))))
+ artids))))
+ (nconc
+ (symbol-value
+ (intern
+ (format "gnus-newsgroup-%s"
+ (car
+ (rassq type gnus-article-mark-lists)))))
+ new-marks)))))
+ (gnus-set-active
+ group
+ (setq
+ gnus-newsgroup-active
+ (cons 1 (nnselect-artlist-length gnus-newsgroup-selection)))))
+ headers)
+ ;; If we can't use search, just warp to the original group and
+ ;; punt back to gnus-summary-refer-thread.
+ (and (gnus-warp-to-article) (gnus-summary-refer-thread))))))
(deffoo nnselect-close-group (group &optional _server)
(let ((group (nnselect-add-prefix group)))
(unless gnus-group-is-exiting-without-update-p
- (nnselect-push-info group))
+ (when gnus-newsgroup-selection
+ (nnselect-push-info group)))
(setq gnus-newsgroup-selection nil)
(when (gnus-ephemeral-group-p group)
(gnus-kill-ephemeral-group group)
@@ -769,23 +804,23 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(message "Creating nnselect group %s" group)
(let* ((group (gnus-group-prefixed-name group '(nnselect "nnselect")))
(specs (assq 'nnselect-specs args))
+ (artlist (alist-get 'nnselect-artlist args))
(otherargs (assq-delete-all 'nnselect-specs args))
(function-spec
(or (alist-get 'nnselect-function specs)
- (intern (completing-read "Function: " obarray #'functionp))))
+ (intern (completing-read "Function: " obarray #'functionp))))
(args-spec
(or (alist-get 'nnselect-args specs)
(read-from-minibuffer "Args: " nil nil t nil "nil")))
(nnselect-specs (list (cons 'nnselect-function function-spec)
- (cons 'nnselect-args args-spec))))
+ (cons 'nnselect-args args-spec))))
(gnus-group-set-parameter group 'nnselect-specs nnselect-specs)
(dolist (arg otherargs)
(gnus-group-set-parameter group (car arg) (cdr arg)))
- (nnselect-store-artlist
- group
- (or (alist-get 'nnselect-artlist args)
- (nnselect-generate-artlist group nnselect-specs)))
- (nnselect-request-update-info group (gnus-get-info group)))
+ (if artlist
+ (nnselect-store-artlist group artlist)
+ (nnselect-generate-artlist group nnselect-specs
+ (gnus-get-info group))))
t)
@@ -815,11 +850,12 @@ artlist; otherwise store the ARTLIST in the group
parameters."
(deffoo nnselect-request-group-scan (group &optional _server _info)
- (let* ((group (nnselect-add-prefix group))
- (artlist (nnselect-generate-artlist group)))
- (gnus-set-active group (cons 1 (nnselect-artlist-length
- artlist)))
- (nnselect-store-artlist group artlist)))
+ (let ((group (nnselect-add-prefix group)))
+ (unless (gnus-group-find-parameter group 'nnselect-always-regenerate)
+ (let ((artlist (nnselect-generate-artlist group)))
+ (gnus-set-active group (cons 1 (nnselect-artlist-length
+ artlist))))))
+ t)
;; Add any undefined required backend functions
@@ -883,133 +919,136 @@ article came from is also searched."
(defun nnselect-push-info (group)
"Copy mark-lists from GROUP to the originating groups."
(let ((select-unreads (numbers-by-group gnus-newsgroup-unreads))
- (select-reads (numbers-by-group
- (gnus-info-read (gnus-get-info group)) 'range))
- (select-unseen (numbers-by-group gnus-newsgroup-unseen))
- (gnus-newsgroup-active nil) mark-list)
+ (select-reads (numbers-by-group
+ (gnus-sorted-difference gnus-newsgroup-articles
+ gnus-newsgroup-unreads)))
+ (select-unseen (numbers-by-group gnus-newsgroup-unseen))
+ (quit-config (gnus-group-quit-config group))
+ (gnus-newsgroup-active nil) mark-list)
;; collect the set of marked article lists categorized by
;; originating groups
(pcase-dolist (`(,mark . ,type) gnus-article-mark-lists)
- (let (type-list)
- (when (setq type-list
- (symbol-value (intern (format "gnus-newsgroup-%s" mark))))
- (push (cons
- type
- (numbers-by-group type-list (gnus-article-mark-to-type type)))
- mark-list))))
+ (let ((mark-type (gnus-article-mark-to-type type))
+ (type-list (symbol-value
+ (intern (format "gnus-newsgroup-%s" mark)))))
+ (when type-list
+ (unless (eq 'tuple mark-type)
+ (setq type-list (range-list-intersection
+ gnus-newsgroup-articles type-list)))
+ (push (cons type (numbers-by-group type-list mark-type))
+ mark-list))))
;; now work on each originating group one at a time
(pcase-dolist (`(,artgroup . ,artlist)
- (numbers-by-group gnus-newsgroup-articles))
- (let* ((group-info (gnus-get-info artgroup))
- (old-unread (gnus-list-of-unread-articles artgroup))
- newmarked delta-marks)
- (when group-info
- ;; iterate over mark lists for this group
- (pcase-dolist (`(,_mark . ,type) gnus-article-mark-lists)
- (let ((list (cdr (assoc artgroup (alist-get type mark-list))))
- (mark-type (gnus-article-mark-to-type type)))
-
- ;; When the backend can store marks we collect any
- ;; changes. Unlike a normal group the mark lists only
- ;; include marks for articles we retrieved.
- (when (and (gnus-check-backend-function
- 'request-set-mark gnus-newsgroup-name)
- (not (gnus-article-unpropagatable-p type)))
- (let* ((old (range-list-intersection
- artlist
- (alist-get type (gnus-info-marks group-info))))
- (del (range-remove (copy-tree old) list))
- (add (range-remove (copy-tree list) old)))
- (when add (push (list add 'add (list type)) delta-marks))
- (when del
- ;; Don't delete marks from outside the active range.
- ;; This shouldn't happen, but is a sanity check.
- (setq del (range-intersection
- (gnus-active artgroup) del))
- (push (list del 'del (list type)) delta-marks))))
-
- ;; Marked sets are of mark-type 'tuple, 'list, or
- ;; 'range. We merge the lists with what is already in
- ;; the original info to get full list of new marks. We
- ;; do this by removing all the articles we retrieved
- ;; from the full list, and then add back in the newly
- ;; marked ones.
- (cond
- ((eq mark-type 'tuple)
- ;; Get rid of the entries that have the default
- ;; score.
- (when (and list (eq type 'score) gnus-save-score)
- (let* ((arts list)
- (prev (cons nil list))
- (all prev))
- (while arts
- (if (or (not (consp (car arts)))
- (= (cdar arts) gnus-summary-default-score))
- (setcdr prev (cdr arts))
- (setq prev arts))
- (setq arts (cdr arts)))
- (setq list (cdr all))))
- ;; now merge with the original list and sort just to
- ;; make sure
- (setq
- list (sort
+ (numbers-by-group gnus-newsgroup-articles))
+ (setq artlist (sort artlist #'<))
+ (let ((group-info (gnus-get-info artgroup))
+ (old-unread (gnus-list-of-unread-articles artgroup))
+ (rsm (gnus-check-backend-function 'request-set-mark artgroup))
+ newmarked delta-marks)
+ (when group-info
+ ;; iterate over mark lists for this group
+ (pcase-dolist (`(,_mark . ,type) gnus-article-mark-lists)
+ (let ((list (cdr (assoc artgroup (alist-get type mark-list))))
+ (mark-type (gnus-article-mark-to-type type))
+ (group-marks (alist-get type (gnus-info-marks group-info))))
+
+ ;; When the backend can store marks we collect any
+ ;; changes. Unlike a normal group the mark lists only
+ ;; include marks for articles we retrieved. If there is
+ ;; no quit-config then gnus-update-marks has already
+ ;; been called to handle this.
+ (when (and quit-config rsm
+ (not (gnus-article-unpropagatable-p type)))
+ (let* ((old (range-list-intersection
+ artlist group-marks))
+ (del (range-remove (copy-tree old) list))
+ (add (range-remove (copy-tree list) old)))
+ (when add (push (list add 'add (list type)) delta-marks))
+ (when del
+ ;; Don't delete marks from outside the active range.
+ ;; This shouldn't happen, but is a sanity check.
+ (setq del (range-intersection (gnus-active artgroup) del))
+ (push (list del 'del (list type)) delta-marks))))
+
+ ;; Marked sets are of mark-type 'tuple, 'list, or
+ ;; 'range. We merge the lists with what is already in
+ ;; the original info to get full list of new marks. We
+ ;; do this by removing all the articles we retrieved
+ ;; from the full list, and then add back in the newly
+ ;; marked ones.
+ (cond
+ ((eq mark-type 'tuple)
+ ;; Get rid of the entries that have the default
+ ;; score.
+ (when (and list (eq type 'score) gnus-save-score)
+ (let* ((arts list)
+ (prev (cons nil list))
+ (all prev))
+ (while arts
+ (if (or (not (consp (car arts)))
+ (= (cdar arts) gnus-summary-default-score))
+ (setcdr prev (cdr arts))
+ (setq prev arts))
+ (setq arts (cdr arts)))
+ (setq list (cdr all))))
+ ;; now merge with the original list and sort just to
+ ;; make sure
+ (setq list
+ (sort
(map-merge
- 'alist list
+ 'alist list
(delq nil
(mapcar
(lambda (x) (unless (memq (car x) artlist) x))
- (alist-get type (gnus-info-marks group-info)))))
+ group-marks)))
'car-less-than-car)))
- (t
- (setq list
- (range-compress-list
- (gnus-sorted-union
- (gnus-sorted-difference
- (gnus-uncompress-sequence
- (alist-get type (gnus-info-marks group-info)))
- artlist)
- (sort list #'<)))))
-
- ;; When exiting the group, everything that's previously been
- ;; unseen is now seen.
- (when (eq type 'seen)
- (setq list (range-concat
- list (cdr (assoc artgroup select-unseen))))))
-
- (when (or list (eq type 'unexist))
- (push (cons type list) newmarked)))) ;; end of mark-type loop
-
- (when delta-marks
- (unless (gnus-check-group artgroup)
- (error "Can't open server for %s" artgroup))
- (gnus-request-set-mark artgroup delta-marks))
-
- (gnus-atomic-progn
- (gnus-info-set-marks group-info newmarked)
- ;; Cut off the end of the info if there's nothing else there.
- (let ((i 5))
- (while (and (> i 2)
- (not (nth i group-info)))
- (when (nthcdr (cl-decf i) group-info)
- (setcdr (nthcdr i group-info) nil))))
-
- ;; update read and unread
- (gnus-update-read-articles
- artgroup
- (range-uncompress
- (range-add-list
- (range-remove
- old-unread
- (cdr (assoc artgroup select-reads)))
- (sort (cdr (assoc artgroup select-unreads)) #'<))))
- (gnus-get-unread-articles-in-group
- group-info (gnus-active artgroup) t))
- (gnus-group-update-group
- artgroup t
- (equal group-info
- (setq group-info (copy-sequence (gnus-get-info artgroup))
- group-info
- (delq (gnus-info-params group-info)
group-info)))))))))
+ (t
+ (setq list
+ (range-compress-list
+ (gnus-sorted-union
+ (gnus-sorted-difference
+ (gnus-uncompress-sequence group-marks)
+ artlist)
+ (sort list #'<))))
+
+ ;; When exiting the group, everything that's previously been
+ ;; unseen is now seen.
+ (when (eq type 'seen)
+ (setq list (range-concat
+ list (cdr (assoc artgroup select-unseen)))))))
+
+ (when (or list (eq type 'unexist))
+ (push (cons type list) newmarked)))) ;; end of mark-type loop
+ (when delta-marks
+ (unless (gnus-check-group artgroup)
+ (error "Can't open server for %s" artgroup))
+ (gnus-request-set-mark artgroup delta-marks))
+ (gnus-atomic-progn
+ (gnus-info-set-marks group-info newmarked)
+ ;; Cut off the end of the info if there's nothing else there.
+ (let ((i 5))
+ (while (and (> i 2)
+ (not (nth i group-info)))
+ (when (nthcdr (cl-decf i) group-info)
+ (setcdr (nthcdr i group-info) nil))))
+
+ ;; update read and unread
+ (gnus-update-read-articles
+ artgroup
+ (range-uncompress
+ (range-add-list
+ (range-remove
+ old-unread
+ (cdr (assoc artgroup select-reads)))
+ (sort (cdr (assoc artgroup select-unreads)) #'<)))))
+ (gnus-get-unread-articles-in-group
+ group-info (gnus-active artgroup) t)
+ (gnus-group-update-group
+ artgroup t
+ (equal group-info
+ (setq group-info (copy-sequence (gnus-get-info artgroup))
+ group-info
+ (delq (gnus-info-params group-info) group-info)))))))))
(declare-function gnus-registry-get-id-key "gnus-registry" (id key))
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 20c176f2269..fb9d8fa53bf 100644
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -314,7 +314,9 @@ retried once before actually displaying the error report."
(when nntp-record-commands
(nntp-record-command "*** CALLED nntp-report ***"))
- (nnheader-report 'nntp args)))
+ (nnheader-report 'nntp args)
+
+ (apply #'error args)))
(defsubst nntp-copy-to-buffer (buffer start end)
"Copy string from unibyte current buffer to multibyte buffer."
@@ -643,8 +645,7 @@ connection timeouts (which may be several minutes) or
`nntp-with-open-group', opens a new connection then re-issues the NNTP
command whose response triggered the error."
(declare (indent 2) (debug (form form [&optional symbolp] def-body)))
- (when (and (listp connectionless)
- (not (eq connectionless nil)))
+ (when (consp connectionless)
(setq forms (cons connectionless forms)
connectionless nil))
`(nntp-with-open-group-function ,group ,server ,connectionless
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 50e60b68e17..b9388b45397 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -437,7 +437,7 @@ the C sources, too."
(setq file-name
(locate-file file-name load-path '(".el" ".elc") 'readable)))
((and (stringp file-name)
- (string-match "[.]*loaddefs.el\\'" file-name))
+ (string-match "[.]*loaddefs.elc?\\'" file-name))
;; An autoloaded variable or face. Visit loaddefs.el in a buffer
;; and try to extract the defining file. The following form is
;; from `describe-function-1' and `describe-variable'.
@@ -592,22 +592,22 @@ the C sources, too."
;; First collect all the printed representations of menus.
(dolist (menu menus)
(let ((map (lookup-key global-map (seq-take menu 1)))
- (string nil))
+ (string nil)
+ (sep (if (char-displayable-p ?→) " → " " => ")))
(seq-do-indexed
(lambda (entry level)
(when (symbolp map)
(setq map (symbol-function map)))
(when-let ((elem (assq entry (cdr map))))
(when (> level 0)
- (push (if (char-displayable-p ?→)
- " → "
- " => ")
- string))
+ (push sep string))
(if (eq (nth 1 elem) 'menu-item)
(progn
- (push (nth 2 elem) string)
+ (push (propertize (nth 2 elem) 'face 'help-key-binding)
+ string)
(setq map (cadddr elem)))
- (push (nth 1 elem) string)
+ (push (propertize (nth 1 elem) 'face 'help-key-binding)
+ string)
(setq map (cddr elem)))))
(cdr (seq-into menu 'list)))
(when string
@@ -622,8 +622,7 @@ the C sources, too."
(cond ((zerop i) "")
((= i (1- (length menus))) " and ")
(t ", "))
- (propertize (string-join (nreverse string))
- 'face 'help-key-binding)))
+ (string-join (nreverse string))))
strings))))
(defun help-fns--compiler-macro (function)
@@ -711,7 +710,15 @@ the C sources, too."
(high-doc (cdr high)))
(unless (and (symbolp function)
(get function 'reader-construct))
- (insert high-usage "\n"))
+ (insert high-usage "\n")
+ (when-let* ((res (comp-function-type-spec function))
+ (type-spec (car res))
+ (kind (cdr res)))
+ (insert (format
+ (if (eq kind 'inferred)
+ "\nInferred type: %s\n"
+ "\nType: %s\n")
+ type-spec))))
(fill-region fill-begin (point))
high-doc)))))
@@ -1138,7 +1145,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED
REAL-DEF)."
;; key substitution constructs, load the library.
(and (autoloadp real-def) doc-raw
help-enable-autoload
- (string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]" doc-raw)
+ (string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]\\|`.*'" doc-raw)
(autoload-do-load real-def))
(help-fns--key-bindings function)
diff --git a/lisp/help.el b/lisp/help.el
index 83be85b1ee4..6f55136049b 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -689,6 +689,10 @@ To record all your input, use `open-dribble-file'."
(with-current-buffer standard-output
(goto-char (point-min))
(let ((comment-start ";; ")
+ ;; Prevent 'comment-indent' from handling a single
+ ;; semicolon as the beginning of a comment.
+ (comment-start-skip ";; ")
+ (comment-use-syntax nil)
(comment-column 24))
(while (not (eobp))
(comment-indent)
@@ -717,6 +721,27 @@ Return nil if KEYS is nil."
:group 'help
:version "29.1")
+(defcustom describe-bindings-show-prefix-commands nil
+ "Non-nil means show prefix commands in the output of `describe-bindings'."
+ :type 'boolean
+ :group 'help
+ :version "29.1")
+
+(defcustom describe-bindings-outline-rules '((match-regexp . "Key
translations"))
+ "Visibility rules for outline sections of `describe-bindings'.
+This is used as the value of `outline-default-rules' in the
+output buffer of `describe-bindings' when
+`describe-bindings-outline' is non-nil, otherwise this option
+doesn't have any effect."
+ :type '(choice (const :tag "Hide unconditionally" nil)
+ (set :tag "Show section unless"
+ (cons :tag "Heading matches regexp"
+ (const match-regexp) string)
+ (cons :tag "Custom function to show/hide sections"
+ (const custom-function) function)))
+ :group 'help
+ :version "30.1")
+
(declare-function outline-hide-subtree "outline")
(defun describe-bindings (&optional prefix buffer)
@@ -746,8 +771,7 @@ or a buffer name."
outline-minor-mode-use-buttons 'insert
;; Hide the longest body.
outline-default-state 1
- outline-default-rules
- '((match-regexp . "Key translations")))
+ outline-default-rules describe-bindings-outline-rules)
(outline-minor-mode 1)
(save-excursion
(goto-char (point-min))
@@ -1699,6 +1723,7 @@ in `describe-map-tree'."
(setq vect (cdr vect))
(setq end (caar vect))))
(when (or (not (eq start end))
+ describe-bindings-show-prefix-commands
;; Don't output keymap prefixes.
(not (keymapp definition)))
(when first
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 1ab33cc6411..f0e38242e48 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -757,7 +757,9 @@ may happen."
255))
'(0 1 2))))))
-(defun hfy-family (family) (list (cons "font-family" family)))
+(defun hfy-family (family)
+ (list (cons "font-family"
+ (format "\"%s\"" (string-replace "\"" "\\\\\"" family)))))
(defun hfy-bgcol (color) (list (cons "background" (hfy-triplet color))))
(defun hfy-color (color) (list (cons "color" (hfy-triplet color))))
(define-obsolete-function-alias 'hfy-colour #'hfy-color "27.1")
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index ed4c8a04db7..550b5ed0e6a 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1650,68 +1650,67 @@ a prefix argument reverses the meaning of that
variable."
(error "No buffer with name %s" name)
(goto-char buf-point)))))
+(declare-function diff-check-labels "diff" (&optional force))
+(declare-function diff-file-local-copy "diff" (file-or-buf))
(declare-function diff-sentinel "diff"
(code &optional old-temp-file new-temp-file))
(defun ibuffer-diff-buffer-with-file-1 (buffer)
- (let ((bufferfile (buffer-local-value 'buffer-file-name buffer))
- (tempfile (make-temp-file "buffer-content-")))
- (when bufferfile
- (unwind-protect
- (progn
- (with-current-buffer buffer
- (write-region nil nil tempfile nil 'nomessage))
- (let* ((old (expand-file-name bufferfile))
- (new (expand-file-name tempfile))
- (oldtmp (file-local-copy old))
- (newtmp (file-local-copy new))
- (switches diff-switches)
- (command
- (mapconcat
- 'identity
- `(,diff-command
- ;; Use explicitly specified switches
- ,@(if (listp switches) switches (list switches))
- ,@(if (or old new)
- (list "-L" (shell-quote-argument old)
- "-L" (shell-quote-argument
- (format "Buffer %s" (buffer-name
buffer)))))
- ,(shell-quote-argument (or oldtmp old))
- ,(shell-quote-argument (or newtmp new)))
- " ")))
- (let ((inhibit-read-only t))
- (insert command "\n")
- (diff-sentinel
- (call-process shell-file-name nil
- (current-buffer) nil
- shell-command-switch command))
- (insert "\n")))))
- (sit-for 0)
- (when (file-exists-p tempfile)
- (delete-file tempfile)))))
+ "Compare BUFFER with its associated file, if any.
+Unlike `diff-no-select', insert output into current buffer
+without erasing it."
+ (when-let ((old (buffer-file-name buffer)))
+ (defvar diff-use-labels)
+ (let* ((new buffer)
+ (oldtmp (diff-file-local-copy old))
+ (newtmp (diff-file-local-copy new))
+ (switches diff-switches)
+ (command
+ (string-join
+ `(,diff-command
+ ,@(if (listp switches) switches (list switches))
+ ,@(and (eq diff-use-labels t)
+ (list "--label" (shell-quote-argument old)
+ "--label" (shell-quote-argument (format "%S"
new))))
+ ,(shell-quote-argument (or oldtmp old))
+ ,(shell-quote-argument (or newtmp new)))
+ " "))
+ (inhibit-read-only t))
+ (insert ?\n command ?\n)
+ (diff-sentinel (call-process shell-file-name nil t nil
+ shell-command-switch command)
+ oldtmp newtmp)
+ (goto-char (point-max)))
+ (redisplay)))
;;;###autoload
(defun ibuffer-diff-with-file ()
"View the differences between marked buffers and their associated files.
If no buffers are marked, use buffer at point.
-This requires the external program \"diff\" to be in your `exec-path'."
+This requires the external program `diff-command' to be in your
+`exec-path'."
(interactive)
(require 'diff)
- (let ((marked-bufs (ibuffer-get-marked-buffers)))
- (when (null marked-bufs)
- (setq marked-bufs (list (ibuffer-current-buffer t))))
- (with-current-buffer (get-buffer-create "*Ibuffer Diff*")
- (setq buffer-read-only nil)
- (buffer-disable-undo (current-buffer))
- (erase-buffer)
- (buffer-enable-undo (current-buffer))
+ (let ((marked-bufs (or (ibuffer-get-marked-buffers)
+ (list (ibuffer-current-buffer t))))
+ (diff-buf (get-buffer-create "*Ibuffer Diff*")))
+ (with-current-buffer diff-buf
+ (setq buffer-read-only t)
+ (buffer-disable-undo)
+ (let ((inhibit-read-only t))
+ (erase-buffer))
+ (buffer-enable-undo)
(diff-mode)
+ (diff-check-labels)
(dolist (buf marked-bufs)
(unless (buffer-live-p buf)
(error "Buffer %s has been killed" buf))
- (ibuffer-diff-buffer-with-file-1 buf))
- (setq buffer-read-only t)))
- (switch-to-buffer "*Ibuffer Diff*"))
+ (ibuffer-diff-buffer-with-file-1 buf))
+ (goto-char (point-min))
+ (when (= (following-char) ?\n)
+ (let ((inhibit-read-only t))
+ (delete-char 1))))
+ (pop-to-buffer-same-window diff-buf)))
;;;###autoload
(defun ibuffer-copy-filename-as-kill (&optional arg)
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 49c0c78fe73..e6fdd1f1836 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -69,11 +69,12 @@ When nil, show candidates in full."
:type 'boolean
:version "24.4")
-(defvar icomplete-tidy-shadowed-file-names nil
+(defcustom icomplete-tidy-shadowed-file-names nil
"If non-nil, automatically delete superfluous parts of file names.
For example, if the user types ~/ after a long path name,
everything preceding the ~/ is discarded so the interactive
-selection process starts again from the user's $HOME.")
+selection process starts again from the user's $HOME."
+ :type 'boolean)
(defcustom icomplete-show-matches-on-no-input nil
"When non-nil, show completions when first prompting for input.
@@ -426,7 +427,10 @@ if that doesn't produce a completion match."
for (cat . alist) in completion-category-defaults collect
`(,cat . ,(cl-loop
for entry in alist for (prop . val) = entry
- if (eq prop 'styles)
+ if (and (eq prop 'styles)
+ ;; Never step in front of 'external', as that
+ ;; might lose us completions.
+ (not (memq 'external val)))
collect `(,prop . (flex ,@(delq 'flex val)))
else collect entry))))
diff --git a/lisp/image.el b/lisp/image.el
index 2372fd1ce09..08190cf86bc 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -51,7 +51,7 @@ static \\(unsigned \\)?char \\1_bits" . xbm)
("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff)
("\\`[\t\n\r ]*%!PS" . postscript)
("\\`\xff\xd8" . jpeg) ; used to be (image-jpeg-p . jpeg)
- ("\\`RIFF....WEBPVP8" . webp)
+ ("\\`RIFF[^z-a][^z-a][^z-a][^z-a]WEBPVP8" . webp)
(,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
(comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)")))
(concat "\\(?:<\\?xml[ \t\r\n]+[^>]*>\\)?[ \t\r\n]*<"
@@ -172,22 +172,27 @@ or \"ffmpeg\") is installed."
(define-error 'unknown-image-type "Unknown image type")
-(defvar-keymap image-map
- :doc "Map put into text properties on images."
+(defvar-keymap image-slice-map
+ :doc "Map put into text properties on sliced images."
"i" (define-keymap
"-" #'image-decrease-size
"+" #'image-increase-size
- "r" #'image-rotate
"o" #'image-save
"c" #'image-crop
- "x" #'image-cut
- "h" #'image-flip-horizontally
- "v" #'image-flip-vertically)
+ "x" #'image-cut)
"C-<wheel-down>" #'image-mouse-decrease-size
"C-<mouse-5>" #'image-mouse-decrease-size
"C-<wheel-up>" #'image-mouse-increase-size
"C-<mouse-4>" #'image-mouse-increase-size)
+(defvar-keymap image-map
+ :doc "Map put into text properties on images."
+ :parent image-slice-map
+ "i" (define-keymap
+ "r" #'image-rotate
+ "h" #'image-flip-horizontally
+ "v" #'image-flip-vertically))
+
(defun image-load-path-for-library (library image &optional path no-error)
"Return a suitable search path for images used by LIBRARY.
@@ -595,8 +600,8 @@ If nil, use the `image-scaling-factor' variable."
IMAGE must be an image created with `create-image' or `defimage'.
IMAGE is displayed by putting an overlay into the current buffer with a
`before-string' STRING that has a `display' property whose value is the
-image. STRING is defaulted if you omit it.
-The overlay created will have the `put-image' property set to t.
+image. STRING defaults to \"x\" if it's nil or omitted.
+The overlay created by this function has the `put-image' property set to t.
POS may be an integer or marker.
AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
@@ -665,7 +670,9 @@ is non-nil, this is inhibited."
image)
rear-nonsticky t
inhibit-isearch ,inhibit-isearch
- keymap ,image-map))))
+ keymap ,(if slice
+ image-slice-map
+ image-map)))))
;;;###autoload
@@ -701,8 +708,8 @@ The image is automatically split into ROWS x COLS slices."
(insert string)
(add-text-properties start (point)
`(display ,(list (list 'slice x y dx dy) image)
- rear-nonsticky (display)
- keymap ,image-map))
+ rear-nonsticky (display keymap)
+ keymap ,image-slice-map))
(setq x (+ x dx))))
(setq x 0.0
y (+ y dy))
@@ -1158,9 +1165,11 @@ has no effect."
"r" #'image-rotate)
(defun image-increase-size (&optional n position)
- "Increase the image size by a factor of N.
-If N is 3, then the image size will be increased by 30%. The
-default is 20%."
+ "Increase the image size at POSITION by a factor specified by N.
+If N is 3, then the image size will be increased by 30%. More
+generally, the image size is multiplied by 1 plus N divided by 10.
+N defaults to 2, which increases the image size by 20%.
+POSITION can be a buffer position or a marker, and defaults to point."
(interactive "P")
(image--delayed-change-size (if n
(1+ (/ (prefix-numeric-value n) 10.0))
@@ -1179,9 +1188,11 @@ default is 20%."
(run-with-idle-timer 0.3 nil #'image--change-size size position))
(defun image-decrease-size (&optional n position)
- "Decrease the image size by a factor of N.
-If N is 3, then the image size will be decreased by 30%. The
-default is 20%."
+ "Decrease the image size at POSITION by a factor specified by N.
+If N is 3, then the image size will be decreased by 30%. More
+generally, the image size is multiplied by 1 minus N divided by 10.
+N defaults to 2, which decreases the image size by 20%.
+POSITION can be a buffer position or a marker, and defaults to point."
(interactive "P")
(image--delayed-change-size (if n
(- 1 (/ (prefix-numeric-value n) 10.0))
@@ -1191,7 +1202,9 @@ default is 20%."
"Use %k for further adjustments"))
(defun image-mouse-increase-size (&optional event)
- "Increase the image size using the mouse."
+ "Increase the image size using the mouse-gesture EVENT.
+This increases the size of the image at the position specified by
+EVENT, if any, by the default factor used by `image-increase-size'."
(interactive "e")
(when (listp event)
(save-window-excursion
@@ -1199,7 +1212,9 @@ default is 20%."
(image-increase-size nil (point-marker)))))
(defun image-mouse-decrease-size (&optional event)
- "Decrease the image size using the mouse."
+ "Decrease the image size using the mouse-gesture EVENT.
+This decreases the size of the image at the position specified by
+EVENT, if any, by the default factor used by `image-decrease-size'."
(interactive "e")
(when (listp event)
(save-window-excursion
@@ -1207,12 +1222,24 @@ default is 20%."
(image-decrease-size nil (point-marker)))))
(defun image--get-image (&optional position)
- "Return the image at point."
- (let ((image (get-char-property (or position (point)) 'display
- (when (markerp position)
- (marker-buffer position)))))
+ "Return the image at POSITION.
+POSITION can be a buffer position or a marker, and defaults to point."
+ (let* ((image (get-char-property (or position (point)) 'display
+ (when (markerp position)
+ (marker-buffer position))))
+ (image-car (car-safe image))
+ (image
+ (cond ((eq image-car 'image)
+ image)
+ ;; The value of the display property could be a sliced
+ ;; image of the form ((slice ...) (image ...)).
+ ;; FIXME: can we have more than 2 members in the list,
+ ;; so that the (image ...) part is NOT the cadr?
+ ((and (listp image) (consp image-car))
+ (cadr image))
+ (t nil))))
(unless (eq (car-safe image) 'image)
- (error "No image under point"))
+ (error "No recognizable image under point"))
image))
;;;###autoload
diff --git a/lisp/image/image-crop.el b/lisp/image/image-crop.el
index be6e22bc606..9ef848c5bc8 100644
--- a/lisp/image/image-crop.el
+++ b/lisp/image/image-crop.el
@@ -35,6 +35,7 @@
(declare-function image-property "image.el" (image property))
(declare-function image-size "image.c" (spec &optional pixels frame))
(declare-function imagep "image.c" (spec))
+(declare-function image--get-image "image.el" (&optional position))
(defgroup image-crop ()
"Image cropping."
@@ -113,18 +114,36 @@ and the cropped image data.")
(defun image-cut (&optional color)
"Cut a rectangle from the image under point, filling it with COLOR.
COLOR defaults to the value of `image-cut-color'.
-Interactively, with prefix argument, prompt for COLOR to use."
- (interactive (list (and current-prefix-arg (read-color "Use color: "))))
+Interactively, with prefix argument, prompt for COLOR to use.
+
+This command presents the image with a rectangular area superimposed
+on it, and allows moving and resizing the area to define which
+part of it to cut.
+
+While moving/resizing the cutting area, the following key bindings
+are available:
+
+`q': Exit without changing anything.
+`RET': Crop/cut the image.
+`m': Make mouse movements move the rectangle instead of altering the
+ rectangle shape.
+`s': Same as `m', but make the rectangle into a square first.
+
+After cutting the image, you can save it by `M-x image-save' or
+\\<image-map>\\[image-save] when point is over the image."
+ (interactive (list (and current-prefix-arg
+ (read-color "Color to use for filling: "))))
(image-crop (if (zerop (length color)) image-cut-color color)))
;;;###autoload
(defun image-crop (&optional cut)
"Crop the image under point.
-If CUT is non-nil, remove a rectangle from the image instead of
-cropping the image. In that case CUT should be the name of a
-color to fill the rectangle.
+This command presents the image with a rectangular area superimposed
+on it, and allows moving and resizing the area to define which
+part of it to crop.
-While cropping the image, the following key bindings are available:
+While moving/resizing the cropping area, the following key bindings
+are available:
`q': Exit without changing anything.
`RET': Crop/cut the image.
@@ -132,15 +151,29 @@ While cropping the image, the following key bindings are
available:
rectangle shape.
`s': Same as `m', but make the rectangle into a square first.
-After cropping an image, you can save it by `M-x image-save' or
-\\<image-map>\\[image-save] when point is over the image."
+After cropping the image, you can save it by `M-x image-save' or
+\\<image-map>\\[image-save] when point is over the image.
+
+When called from Lisp, if CUT is non-nil, remove a rectangle from
+the image instead of cropping the image. In that case, CUT should
+be the name of a color to fill the rectangle."
(interactive)
(unless (image-type-available-p 'svg)
- (error "SVG support is needed to crop images"))
- (unless (executable-find (car image-crop-crop-command))
- (error "Couldn't find %s command to crop the image"
- (car image-crop-crop-command)))
- (let ((image (get-text-property (point) 'display)))
+ (error "SVG support is needed to crop and cut images"))
+ (let* ((crop-cmd (car image-crop-crop-command))
+ (found (executable-find crop-cmd)))
+ (unless found
+ (error "Couldn't find `%s' command to crop/cut the image" crop-cmd))
+ (if (and (memq system-type '(windows-nt ms-dos))
+ ;; MS-Windows has an incompatible convert.exe, used to
+ ;; convert filesystems...
+ (string-equal crop-cmd "convert")
+ (= 0 (string-search "Invalid drive specification."
+ (shell-command-to-string
+ (format "%s %s" crop-cmd null-device)))))
+ (error "The program `%s' is not an image conversion program"
+ found)))
+ (let ((image (image--get-image)))
(unless (imagep image)
(user-error "No image under point"))
(when (overlays-at (point))
diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 6ecb307ce12..b13b3e08ce2 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -424,11 +424,10 @@ This affects the following commands:
(file-name-nondirectory thumb-file)))
thumb-file))
-(defun image-dired-insert-thumbnail ( file original-file-name
- associated-dired-buffer image-number)
+(defun image-dired-insert-thumbnail (file original-file-name
+ associated-dired-buffer)
"Insert thumbnail image FILE.
-Add text properties ORIGINAL-FILE-NAME, ASSOCIATED-DIRED-BUFFER
-and IMAGE-NUMBER."
+Add text properties ORIGINAL-FILE-NAME, ASSOCIATED-DIRED-BUFFER."
(let (beg end)
(setq beg (point))
(image-dired-insert-image
@@ -452,7 +451,6 @@ and IMAGE-NUMBER."
'keymap nil
'original-file-name original-file-name
'associated-dired-buffer associated-dired-buffer
- 'image-number image-number
'tags (image-dired-list-tags original-file-name)
'mouse-face 'highlight
'comment (image-dired-get-comment original-file-name)))))
@@ -587,8 +585,8 @@ thumbnail buffer to be selected."
(dolist (file files)
(when (string-match-p (image-dired--file-name-regexp) file)
(image-dired-insert-thumbnail
- (image-dired--get-create-thumbnail-file file) file dired-buf
- (cl-incf image-dired--number-of-thumbnails)))))
+ (image-dired--get-create-thumbnail-file file) file dired-buf)
+ (cl-incf image-dired--number-of-thumbnails))))
(if (> image-dired--number-of-thumbnails 0)
(if do-not-pop
(display-buffer buf)
@@ -789,7 +787,10 @@ comment."
(let ((file-name (image-dired-original-file-name))
(dired-buf (buffer-name (image-dired-associated-dired-buffer)))
(image-count (format "%s/%s"
- (get-text-property (point) 'image-number)
+ ;; Line-up adds one space between two
+ ;; images: this formula takes this into
+ ;; account.
+ (1+ (/ (point) 2))
image-dired--number-of-thumbnails))
(props (string-join (get-text-property (point) 'tags) ", "))
(comment (get-text-property (point) 'comment))
@@ -1127,10 +1128,12 @@ With a negative prefix argument, prompt user for the
delay."
"Remove current thumbnail from thumbnail buffer and line up."
(interactive nil image-dired-thumbnail-mode)
(let ((inhibit-read-only t))
- (delete-char 1))
+ (delete-char 1)
+ (cl-decf image-dired--number-of-thumbnails))
(let ((pos (point)))
(image-dired--line-up-with-method)
- (goto-char pos)))
+ (goto-char pos)
+ (image-dired--update-header-line)))
(defun image-dired-line-up ()
"Line up thumbnails according to `image-dired-thumbs-per-row'.
diff --git a/lisp/imenu.el b/lisp/imenu.el
index fd23a65c7b3..c51824b7ef3 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -674,8 +674,8 @@ depending on PATTERNS."
(cons item (cdr menu)))))
;; Go to the start of the match, to make sure we
;; keep making progress backwards.
- (goto-char start))))
- (set-syntax-table old-table)))
+ (goto-char start)))))
+ (set-syntax-table old-table))
;; Sort each submenu by position.
;; This is in case one submenu gets items from two different regexps.
(dolist (item index-alist)
diff --git a/lisp/info-look.el b/lisp/info-look.el
index 7858ed58774..da45e30cd36 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -733,7 +733,11 @@ Return nil if there is nothing appropriate in the buffer
near point."
(let ((str (string-join str-list " ")))
(when (assoc str completions)
(throw 'result str))
- (nbutlast str-list)))))))
+ ;; 'nbutlast' will not destructively set its argument
+ ;; to nil when the argument is a list of 1 element.
+ (if (= (length str-list) 1)
+ (setq str-list nil)
+ (nbutlast str-list))))))))
(error nil)))
;;;###autoload
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 518436bd961..9aea5e27063 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -695,6 +695,16 @@ with L, LRE, or LRO Unicode bidi character type.")
(set-case-syntax c "_" tbl)
(setq c (1+ c)))
+ ;; Traditional Mongolian
+ (setq c #x1800)
+ (while (<= c #x180A)
+ (set-case-syntax c "." tbl)
+ (setq c (1+ c)))
+ (setq c #x11660)
+ (while (<= c #x1166C)
+ (set-case-syntax c "." tbl)
+ (setq c (1+ c)))
+
;; Coptic
;; There's no Coptic category. However, Coptic letters that are
;; part of the Greek block above get the Greek category, and those
diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index fec3e637f0c..856c405b545 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -684,30 +684,41 @@ We prefer the earliest unique letter."
(defvar-keymap emoji-zoom-map
"+" #'emoji-zoom-increase
- "-" #'emoji-zoom-decrease)
+ "-" #'emoji-zoom-decrease
+ "0" #'emoji-zoom-reset)
;;;###autoload
(defun emoji-zoom-increase (&optional factor)
"Increase the size of the character under point.
FACTOR is the multiplication factor for the size."
(interactive)
- (set-transient-map emoji-zoom-map t nil "Zoom with %k")
- (let* ((factor (or factor 1.1))
- (old (get-text-property (point) 'face))
- (height (or (and (consp old)
- (plist-get old :height))
- 1.0))
- (inhibit-read-only t))
- (with-silent-modifications
- (if (consp old)
- (add-text-properties
- (point) (1+ (point))
- (list 'face (plist-put (copy-sequence old) :height (* height
factor))
- 'rear-nonsticky t))
- (add-face-text-property (point) (1+ (point))
- (list :height (* height factor)))
- (put-text-property (point) (1+ (point))
- 'rear-nonsticky t)))))
+ (set-transient-map emoji-zoom-map t #'redisplay "Zoom with %k")
+ (unless (eobp)
+ (let* ((factor (or factor 1.1))
+ (old (get-text-property (point) 'face))
+ ;; The text property is either a named face, or a plist
+ ;; with :height, or a list starting with such a plist,
+ ;; followed by one or more faces.
+ (newheight (* (or (and (consp old)
+ (or (plist-get (car old) :height)
+ (plist-get old :height)))
+ 1.0)
+ factor))
+ (inhibit-read-only t))
+ (with-silent-modifications
+ (if (consp old)
+ (add-text-properties
+ (point) (1+ (point))
+ (list 'face
+ (if (eq (car old) :height)
+ (plist-put (copy-sequence old) :height newheight)
+ (cons (plist-put (car old) :height newheight)
+ (cdr old)))
+ 'rear-nonsticky t))
+ (add-face-text-property (point) (1+ (point))
+ (list :height newheight))
+ (put-text-property (point) (1+ (point))
+ 'rear-nonsticky t))))))
;;;###autoload
(defun emoji-zoom-decrease ()
@@ -715,6 +726,19 @@ FACTOR is the multiplication factor for the size."
(interactive)
(emoji-zoom-increase 0.9))
+;;;###autoload
+(defun emoji-zoom-reset ()
+ "Reset the size of the character under point."
+ (interactive)
+ (with-silent-modifications
+ (let ((old (get-text-property (point) 'face)))
+ (when (and (consp old)
+ (remove-text-properties (point) (1+ (point)) '(rear-nonsticky
nil)))
+ (if (eq (car old) :height)
+ (remove-text-properties (point) (1+ (point)) '(face nil))
+ (add-text-properties (point) (1+ (point)) (list 'face
+ (cdr old))))))))
+
(provide 'emoji)
;;; emoji.el ends here
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index eb1c7f53d36..b72c68d9d59 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -648,6 +648,8 @@
(nil . "MuleArabic-1")
(nil . "MuleArabic-2")
(nil . "ISO8859-6"))
+ (mongolian ,(font-spec :registry "iso10646-1"
+ :otf '(mong nil (init medi fina isol))))
(hebrew ,(font-spec :registry "iso10646-1" :script 'hebrew)
(nil . "ISO8859-8"))
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el
index 9ce31f11d91..5477473ae8c 100644
--- a/lisp/international/ja-dic-cnv.el
+++ b/lisp/international/ja-dic-cnv.el
@@ -484,7 +484,7 @@ To get complete usage, invoke:
(defmacro skkdic-set-postfix (&rest entries)
`(defconst skkdic-postfix
',(let ((l entries)
- (map '(nil))
+ (map (list nil))
(longest 1)
len entry)
(while l
@@ -507,7 +507,7 @@ To get complete usage, invoke:
(defmacro skkdic-set-prefix (&rest entries)
`(defconst skkdic-prefix
',(let ((l entries)
- (map '(nil))
+ (map (list nil))
(longest 1)
len entry)
(while l
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 4e38b13b1a5..3d6d66970d3 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -3269,7 +3269,8 @@ single characters to be treated as standing for
themselves."
"r" #'emoji-recent
"l" #'emoji-list
"+" #'emoji-zoom-increase
- "-" #'emoji-zoom-decrease))
+ "-" #'emoji-zoom-decrease
+ "0" #'emoji-zoom-reset))
(defface confusingly-reordered
'((((supports :underline (:style wave)))
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 25b90b49c8f..2b44a2e0645 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -2484,10 +2484,12 @@ This function is intended to be added to
`auto-coding-functions'."
;; called as part of visiting a file, as opposed
;; to when saving a buffer to a file.
(if (and enable-multibyte-characters
- ;; 'charset' will signal an error in
- ;; coding-system-equal, since it isn't a
- ;; coding-system. So test that up front.
+ ;; 'charset' and 'iso-2022' will signal
+ ;; an error in coding-system-equal, since
+ ;; they aren't coding-systems. So test
+ ;; that up front.
(not (equal sym-type 'charset))
+ (not (equal sym-type 'iso-2022))
(coding-system-equal 'utf-8 sym-type)
(coding-system-equal 'utf-8 bfcs-type))
buffer-file-coding-system
@@ -2540,11 +2542,13 @@ This function is intended to be added to
`auto-coding-functions'."
(bfcs-type
(coding-system-type buffer-file-coding-system)))
(if (and enable-multibyte-characters
- ;; 'charset' will signal an error in
- ;; coding-system-equal, since it isn't a
- ;; coding-system. So test that up front.
+ ;; 'charset' and 'iso-2022' will signal an error
+ ;; in coding-system-equal, since they aren't
+ ;; coding-systems. So test that up front.
(not (equal sym-type 'charset))
(not (equal bfcs-type 'charset))
+ (not (equal sym-type 'iso-2022))
+ (not (equal bfcs-type 'iso-2022))
(coding-system-equal 'utf-8 sym-type)
(coding-system-equal 'utf-8 bfcs-type))
buffer-file-coding-system
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 2ffe3392335..894378bda8b 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -804,13 +804,12 @@ The format of KBD-LAYOUT is the same as
`quail-keyboard-layout'."
(setq i (1+ i)))
(let ((pos (point))
- (bar "|")
+ (bar (propertize "|" 'face 'bold))
lower upper row)
;; Make table without horizontal lines. Each column for a key
;; has the form "| LU |" where L is for lower key and U is
;; for a upper key. If width of L (U) is greater than 1,
;; preceding (following) space is not inserted.
- (put-text-property 0 1 'face 'bold bar)
(setq i 0)
(while (< i quail-keyboard-layout-len)
(when (= (% i 30) 0)
@@ -1995,7 +1994,8 @@ Remaining args are for FUNC."
(defun quail-minibuffer-message (string)
(message nil)
(let ((point-max (point-max))
- (inhibit-quit t))
+ (inhibit-quit t)
+ (deactivate-mark nil))
(save-excursion
(goto-char point-max)
(insert string))
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 1540f806e3b..e69e7c19842 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -320,7 +320,8 @@ affected by bidi controls in STRING."
;; state at end of STRING which could then affect the following
;; text.
(insert string "a1א:!")
- (let ((pos (bidi-find-overridden-directionality 1 (point-max) nil)))
+ (let ((pos (bidi-find-overridden-directionality
+ (point-min) (point-max) nil)))
(and (fixnump pos)
(1- pos)))))
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 094e02d605e..3d2bbda4975 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -633,9 +633,9 @@ This is like `describe-bindings', but displays only Isearch
keys."
(define-key map "\M-\t" 'isearch-complete)
- ;; Pass frame events transparently so they won't exit the search.
- ;; In particular, if we have more than one display open, then a
- ;; switch-frame might be generated by someone typing at another keyboard.
+ ;; Frame events should exit the search, because such frame events
+ ;; as `switch-frame’ and `delete-frame’ change the current buffer.
+ ;; See Bug#41338 for details.
(define-key map [switch-frame] nil)
(define-key map [delete-frame] nil)
(define-key map [iconify-frame] nil)
diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index f583d116d20..ccf0f966574 100644
--- a/lisp/jsonrpc.el
+++ b/lisp/jsonrpc.el
@@ -4,7 +4,7 @@
;; Author: João Távora <joaotavora@gmail.com>
;; Keywords: processes, languages, extensions
-;; Version: 1.0.16
+;; Version: 1.0.17
;; Package-Requires: ((emacs "25.2"))
;; This is a GNU ELPA :core package. Avoid functionality that is not
@@ -43,7 +43,6 @@
(eval-when-compile (require 'subr-x))
(require 'warnings)
(require 'pcase)
-(require 'ert) ; to escape a `condition-case-unless-debug'
;;; Public API
@@ -154,6 +153,14 @@ immediately."
"Stop waiting for responses from the current JSONRPC CONNECTION."
(clrhash (jsonrpc--request-continuations connection)))
+(defvar jsonrpc-inhibit-debug-on-error nil
+ "Inhibit `debug-on-error' when answering requests.
+Some extensions, notably ert.el, set `debug-on-error' to non-nil,
+which makes it hard to test the behaviour of catching the Elisp
+error and replying to the endpoint with an JSONRPC-error. This
+variable can be set around calls like `jsonrpc-request' to
+circumvent that.")
+
(defun jsonrpc-connection-receive (connection message)
"Process MESSAGE just received from CONNECTION.
This function will destructure MESSAGE and call the appropriate
@@ -166,7 +173,8 @@ dispatcher in CONNECTION."
(cond
(;; A remote request
(and method id)
- (let* ((debug-on-error (and debug-on-error (not (ert-running-test))))
+ (let* ((debug-on-error (and debug-on-error
+ (not jsonrpc-inhibit-debug-on-error)))
(reply
(condition-case-unless-debug _ignore
(condition-case oops
@@ -566,15 +574,14 @@ With optional CLEANUP, kill any associated buffers."
(cl-return-from jsonrpc--process-filter))
(when (buffer-live-p (process-buffer proc))
(with-current-buffer (process-buffer proc)
- (let* ((inhibit-read-only t)
- (jsonrpc--in-process-filter t)
+ (let* ((jsonrpc--in-process-filter t)
(connection (process-get proc 'jsonrpc-connection))
(expected-bytes (jsonrpc--expected-bytes connection)))
;; Insert the text, advancing the process marker.
;;
(save-excursion
(goto-char (process-mark proc))
- (insert string)
+ (let ((inhibit-read-only t)) (insert string))
(set-marker (process-mark proc) (point)))
;; Loop (more than one message might have arrived)
;;
@@ -623,7 +630,8 @@ With optional CLEANUP, kill any associated buffers."
(jsonrpc-connection-receive connection
json-message)))))
(goto-char message-end)
- (delete-region (point-min) (point))
+ (let ((inhibit-read-only t))
+ (delete-region (point-min) (point)))
(setq expected-bytes nil))))
(t
;; Message is still incomplete
diff --git a/lisp/keymap.el b/lisp/keymap.el
index 4f02639ffe2..dccc0a3cd31 100644
--- a/lisp/keymap.el
+++ b/lisp/keymap.el
@@ -579,14 +579,17 @@ value can also be a property list with properties
`:enter' and
:repeat (:enter (commands ...) :exit (commands ...))
`:enter' specifies the list of additional commands that only
-enter `repeat-mode'. When the list is empty, then by default all
-commands in the map enter `repeat-mode'. This is useful when
-there is a command that has the `repeat-map' symbol property, but
-doesn't exist in this specific map. `:exit' is a list of
-commands that exit `repeat-mode'. When the list is empty, no
-commands in the map exit `repeat-mode'. This is useful when a
-command exists in this specific map, but it doesn't have the
-`repeat-map' symbol property on its symbol.
+enter `repeat-mode'. When the list is empty, then only the
+commands defined in the map enter `repeat-mode'. Specifying a
+list of commands is useful when there are commands that have the
+`repeat-map' symbol property, but don't exist in this specific
+map.
+
+`:exit' is a list of commands that exit `repeat-mode'. When the
+list is empty, no commands in the map exit `repeat-mode'.
+Specifying a list of commands is useful when those commands exist
+in this specific map, but should not have the `repeat-map' symbol
+property.
\(fn VARIABLE-NAME &key DOC FULL PARENT SUPPRESS NAME PREFIX KEYMAP REPEAT
&rest [KEY DEFINITION]...)"
(declare (indent 1))
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index ffed1c808f7..7af87e65703 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -256,6 +256,16 @@ Support for Russian using koi8-r and the russian-computer
input method.")
\(The name Belarusian replaced Byelorussian in the early 1990s.)"))
'("Cyrillic"))
+;; The Mongolian-traditional language environment is in misc-lang.el.
+(set-language-info-alist
+ "Mongolian-cyrillic" '((coding-system utf-8)
+ (coding-priority utf-8)
+ (input-method . "cyrillic-mongolian")
+ (sample-text . "Mongolian (монгол хэл) Сайн байна уу?")
+ (documentation
+ . "Support for Mongolian language with Cyrillic
alphabet."))
+ '("Cyrillic"))
+
(provide 'cyrillic)
;;; cyrillic.el ends here
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index fe283e8769c..792155f1de5 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -74,10 +74,11 @@ and Italian.")))
(coding-priority utf-8 iso-8859-6 windows-1256)
(input-method . "farsi-transliterate-banan")
(sample-text . "Persian فارسی")
- (documentation . "Bidirectional editing is supported.")))
+ (documentation . "Bidirectional editing is supported.")
+ (tutorial . "TUTORIAL.fa")))
(defcustom arabic-shaper-ZWNJ-handling nil
- "How to handle ZWMJ in Arabic text rendering.
+ "How to handle ZWNJ (Zero-width Non-Joiner) in Arabic text rendering.
This variable controls the way to handle a glyph for ZWNJ
returned by the underling shaping engine.
@@ -339,6 +340,30 @@ Coptic language using the Coptic script is supported in
this
language environment."))
'("Misc"))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Traditional Mongolian
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; The Mongolian-cyrillic language environment is in cyrillic.el.
+(set-language-info-alist
+ "Mongolian-traditional" '((coding-system utf-8)
+ (coding-priority utf-8)
+ ; (input-method . "FIXME")
+ (sample-text . "Mongolian Traditional (ᠮᠣᠩᠭᠣᠯ
ᠪᠢᠴᠢᠭ᠋) ᠰᠠᠶᠢᠨ ᠪᠠᠶᠢᠨᠠ ᠤᠤ?")
+ (documentation
+ . "Support for Mongolian language with traditional
script."))
+ '("Misc"))
+
+;; Composition rules for Mongolian Traditional script.
+(set-char-table-range
+ composition-function-table
+ '(#x1820 . #x18AF)
+ (list (vector "[\u200C\u200D][\u1820-\u18AF][\u200C\u200D]?"
+ 1 'font-shape-gstring)
+ (vector "[\u1820-\u18AF][\u200C\u200D]" 0 'font-shape-gstring)
+ (vector "[\u1820-\u18AF\u202F\u180B-\u180F\u1807]+"
+ 0 'font-shape-gstring)))
+
(provide 'misc-lang)
;;; misc-lang.el ends here
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 65b990682c1..ddaa3f83fbb 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -2919,11 +2919,6 @@ and corresponding effects.
(register-definition-prefixes "semantic/bovine/c" '("semantic"))
-;;; Generated autoloads from progmodes/c-ts-common.el
-
-(register-definition-prefixes "c-ts-common" '("c-ts-common-"))
-
-
;;; Generated autoloads from progmodes/c-ts-mode.el
(autoload 'c-ts-base-mode "c-ts-mode" "\
@@ -2965,6 +2960,10 @@ To use tree-sitter C/C++ modes by default, evaluate
in your configuration.
+Since this mode uses a parser, unbalanced brackets might cause
+some breakage in indentation/fontification. Therefore, it's
+recommended to enable `electric-pair-mode' with this mode.
+
(fn)" t)
(autoload 'c-or-c++-ts-mode "c-ts-mode" "\
Analyze buffer and enable either C or C++ mode.
@@ -3779,8 +3778,18 @@ and exists only for compatibility reasons.
;;; Generated autoloads from progmodes/cc-vars.el
+(autoload 'c-string-list-p "cc-vars" "\
+Return non-nil if VAL is a list of strings.
+
+(fn VAL)")
(put 'c-basic-offset 'safe-local-variable 'integerp)
(put 'c-backslash-column 'safe-local-variable 'integerp)
+ (put 'c-font-lock-extra-types 'safe-local-variable #'c-string-list-p)
+ (put 'c++-font-lock-extra-types 'safe-local-variable #'c-string-list-p)
+ (put 'objc-font-lock-extra-types 'safe-local-variable #'c-string-list-p)
+ (put 'java-font-lock-extra-types 'safe-local-variable #'c-string-list-p)
+ (put 'idl-font-lock-extra-types 'safe-local-variable #'c-string-list-p)
+ (put 'pike-font-lock-extra-types 'safe-local-variable #'c-string-list-p)
(put 'c-file-style 'safe-local-variable 'string-or-null-p)
(register-definition-prefixes "cc-vars" '("awk-mode-hook" "c++-" "c-"
"defcustom-c-stylevar" "idl-" "java-" "objc-" "pike-"))
@@ -5119,8 +5128,6 @@ evaluate `compilation-shell-minor-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
-\\{compilation-shell-minor-mode-map}
-
(fn &optional ARG)" t)
(autoload 'compilation-minor-mode "compile" "\
Toggle Compilation minor mode.
@@ -5144,8 +5151,6 @@ evaluate `compilation-minor-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
-\\{compilation-minor-mode-map}
-
(fn &optional ARG)" t)
(autoload 'compilation-next-error-function "compile" "\
Advance to the next error message and visit the file where the error was.
@@ -8228,15 +8233,23 @@ Make a global mode GLOBAL-MODE corresponding to
buffer-local minor MODE.
TURN-ON is a function that will be called with no args in every buffer
and that should try to turn MODE on if applicable for that buffer.
-Each of KEY VALUE is a pair of CL-style keyword arguments. :predicate
-specifies which major modes the globalized minor mode should be switched on
-in. As the minor mode defined by this function is always global, any
-:global keyword is ignored. Other keywords have the same meaning as in
-`define-minor-mode', which see. In particular, :group specifies the custom
-group. The most useful keywords are those that are passed on to the
-`defcustom'. It normally makes no sense to pass the :lighter or :keymap
-keywords to `define-globalized-minor-mode', since these are usually passed
-to the buffer-local version of the minor mode.
+Each of KEY VALUE is a pair of CL-style keyword arguments.
+The :predicate argument specifies in which major modes should the
+globalized minor mode be switched on. The value should be t (meaning
+switch on the minor mode in all major modes), nil (meaning don't
+switch on in any major mode), a list of modes (meaning switch on only
+in those modes and their descendants), or a list (not MODES...),
+meaning switch on in any major mode except MODES. The value can also
+mix all of these forms, see the info node `Defining Minor Modes' for
+details.
+As the minor mode defined by this function is always global, any
+:global keyword is ignored.
+Other keywords have the same meaning as in `define-minor-mode',
+which see. In particular, :group specifies the custom group.
+The most useful keywords are those that are passed on to the `defcustom'.
+It normally makes no sense to pass the :lighter or :keymap keywords
+to `define-globalized-minor-mode', since these are usually passed to
+the buffer-local version of the minor mode.
BODY contains code to execute each time the mode is enabled or disabled.
It is executed after toggling the mode, and before running
@@ -8600,7 +8613,7 @@ A second call of this function without changing point
inserts the next match.
A call with prefix PREFIX reads the symbol to insert from the minibuffer with
completion.
-(fn PREFIX)" t)
+(fn PREFIX)" '("P"))
(autoload 'ebrowse-tags-loop-continue "ebrowse" "\
Repeat last operation on files in tree.
FIRST-TIME non-nil means this is not a repetition, but the first time.
@@ -9212,24 +9225,25 @@ Turn on EDT Emulation." t)
;;; Generated autoloads from progmodes/eglot.el
-(push (purecopy '(eglot 1 11)) package--builtin-versions)
+(push (purecopy '(eglot 1 14)) package--builtin-versions)
(autoload 'eglot "eglot" "\
-Start LSP server in support of PROJECT's buffers under MANAGED-MAJOR-MODE.
+Start LSP server for PROJECT's buffers under MANAGED-MAJOR-MODES.
-This starts a Language Server Protocol (LSP) server suitable for the
-buffers of PROJECT whose `major-mode' is MANAGED-MAJOR-MODE.
-CLASS is the class of the LSP server to start and CONTACT specifies
-how to connect to the server.
+This starts a Language Server Protocol (LSP) server suitable for
+the buffers of PROJECT whose `major-mode' is among
+MANAGED-MAJOR-MODES. CLASS is the class of the LSP server to
+start and CONTACT specifies how to connect to the server.
-Interactively, the command attempts to guess MANAGED-MAJOR-MODE
-from the current buffer's `major-mode', CLASS and CONTACT from
-`eglot-server-programs' looked up by the major mode, and PROJECT from
-`project-find-functions'. The search for active projects in this
-context binds `eglot-lsp-context' (which see).
+Interactively, the command attempts to guess MANAGED-MAJOR-MODES,
+CLASS, CONTACT, and LANGUAGE-IDS from `eglot-server-programs',
+according to the current buffer's `major-mode'. PROJECT is
+guessed from `project-find-functions'. The search for active
+projects in this context binds `eglot-lsp-context' (which see).
-If it can't guess, it prompts the user for the mode and the server.
-With a single \\[universal-argument] prefix arg, it always prompts for COMMAND.
-With two \\[universal-argument], it also always prompts for MANAGED-MAJOR-MODE.
+If it can't guess, it prompts the user for the mode and the
+server. With a single \\[universal-argument] prefix arg, it
+always prompts for COMMAND. With two \\[universal-argument], it
+also always prompts for MANAGED-MAJOR-MODE.
The LSP server of CLASS is started (or contacted) via CONTACT.
If this operation is successful, current *and future* file
@@ -9247,15 +9261,17 @@ CONTACT specifies how to contact the server. It is a
keyword-value plist used to initialize CLASS or a plain list as
described in `eglot-server-programs', which see.
-LANGUAGE-ID is the language ID string to send to the server for
-MANAGED-MAJOR-MODE, which matters to a minority of servers.
+LANGUAGE-IDS is a list of language ID string to send to the
+server for each element in MANAGED-MAJOR-MODES.
INTERACTIVE is ignored and provided for backward compatibility.
-(fn MANAGED-MAJOR-MODE PROJECT CLASS CONTACT LANGUAGE-ID &optional
INTERACTIVE)" t)
+(fn MANAGED-MAJOR-MODES PROJECT CLASS CONTACT LANGUAGE-IDS &optional
INTERACTIVE)" t)
(autoload 'eglot-ensure "eglot" "\
Start Eglot session for current buffer if there isn't one.")
(put 'eglot-workspace-configuration 'safe-local-variable 'listp)
+(put 'eglot--debbugs-or-github-bug-uri 'bug-reference-url-format t)
+(defun eglot--debbugs-or-github-bug-uri nil (format (if (string= (match-string
2) "github") "https://github.com/joaotavora/eglot/issues/%s";
"https://debbugs.gnu.org/%s";) (match-string 3)))
(register-definition-prefixes "eglot" '("eglot-"))
@@ -9380,7 +9396,7 @@ Describe CTR if it is a class constructor.
;;; Generated autoloads from emacs-lisp/eldoc.el
-(push (purecopy '(eldoc 1 13 0)) package--builtin-versions)
+(push (purecopy '(eldoc 1 14 0)) package--builtin-versions)
;;; Generated autoloads from elec-pair.el
@@ -9801,6 +9817,8 @@ FACTOR is the multiplication factor for the size.
(fn &optional FACTOR)" t)
(autoload 'emoji-zoom-decrease "emoji" "\
Decrease the size of the character under point." t)
+(autoload 'emoji-zoom-reset "emoji" "\
+Reset the size of the character under point." t)
(register-definition-prefixes "emoji" '("emoji-"))
@@ -10178,9 +10196,10 @@ Look at CONFIG and try to expand GROUP.
;;; Generated autoloads from erc/erc.el
-(push (purecopy '(erc 5 4 1)) package--builtin-versions)
+(push (purecopy '(erc 5 6 -4)) package--builtin-versions)
(autoload 'erc-select-read-args "erc" "\
-Prompt the user for values of nick, server, port, and password.")
+Prompt the user for values of nick, server, port, and password.
+With prefix arg, also prompt for user and full name.")
(autoload 'erc "erc" "\
ERC is a powerful, modular, and extensible IRC client.
This function is the main entry point for ERC.
@@ -10206,7 +10225,7 @@ for the values of the other parameters.
See `erc-tls' for the meaning of ID.
-(fn &key (SERVER (erc-compute-server)) (PORT (erc-compute-port)) (NICK
(erc-compute-nick)) (USER (erc-compute-user)) PASSWORD (FULL-NAME
(erc-compute-full-name)) ID)" t)
+(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME ID)"
'((erc-select-read-args)))
(defalias 'erc-select #'erc)
(autoload 'erc-tls "erc" "\
ERC is a powerful, modular, and extensible IRC client.
@@ -10250,11 +10269,11 @@ Example usage:
When present, ID should be a symbol or a string to use for naming
the server buffer and identifying the connection unequivocally.
-See Info node `(erc) Network Identifier' for details. Like USER
-and CLIENT-CERTIFICATE, this parameter cannot be specified
+See Info node `(erc) Network Identifier' for details. Like
+CLIENT-CERTIFICATE, this parameter cannot be specified
interactively.
-(fn &key (SERVER (erc-compute-server)) (PORT (erc-compute-port \\='ircs-u))
(NICK (erc-compute-nick)) (USER (erc-compute-user)) PASSWORD (FULL-NAME
(erc-compute-full-name)) CLIENT-CERTIFICATE ID)" t)
+(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME CLIENT-CERTIFICATE ID)"
'((let ((erc-default-port erc-default-port-tls)) (erc-select-read-args))))
(autoload 'erc-handle-irc-url "erc" "\
Use ERC to IRC on HOST:PORT in CHANNEL.
If ERC is already connected to HOST:PORT, simply /join CHANNEL.
@@ -10334,7 +10353,7 @@ Customize `erc-url-connect-function' to override this.
;;; Generated autoloads from erc/erc-imenu.el
-(register-definition-prefixes "erc-imenu" '("erc-unfill-notice"))
+(register-definition-prefixes "erc-imenu" '("erc-"))
;;; Generated autoloads from erc/erc-join.el
@@ -10483,9 +10502,7 @@ it has to be wrapped in `(eval (quote ...))'.
If NAME is already defined as a test and Emacs is running
in batch mode, an error is signaled.
-(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)]
BODY...)" nil t)
-(function-put 'ert-deftest 'doc-string-elt 3)
-(function-put 'ert-deftest 'lisp-indent-function 2)
+(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)]
BODY...)" nil 'macro)
(autoload 'ert-run-tests-batch "ert" "\
Run the tests specified by SELECTOR, printing results to the terminal.
@@ -10620,9 +10637,10 @@ information on Eshell, see Info node `(eshell)Top'.
(fn &optional ARG)" t)
(autoload 'eshell-command "eshell" "\
Execute the Eshell command string COMMAND.
-With prefix ARG, insert output into the current buffer at point.
+If TO-CURRENT-BUFFER is non-nil (interactively, with the prefix
+argument), then insert output into the current buffer at point.
-(fn &optional COMMAND ARG)" t)
+(fn COMMAND &optional TO-CURRENT-BUFFER)" t)
(autoload 'eshell-command-result "eshell" "\
Execute the given Eshell COMMAND, and return the result.
The result might be any Lisp object.
@@ -12323,7 +12341,7 @@ Variables of interest include:
If non-nil, always attempt to create the other file if it was not found.
- `ff-quiet-mode'
- If non-nil, traces which directories are being searched.
+ If non-nil, does not trace which directories are being searched.
- `ff-special-constructs'
A list of regular expressions specifying how to recognize special
@@ -12591,7 +12609,7 @@ lines.
;;; Generated autoloads from progmodes/flymake.el
-(push (purecopy '(flymake 1 2 2)) package--builtin-versions)
+(push (purecopy '(flymake 1 3 4)) package--builtin-versions)
(autoload 'flymake-log "flymake" "\
Log, at level LEVEL, the message MSG formatted with ARGS.
LEVEL is passed to `display-warning', which is used to display
@@ -12690,8 +12708,6 @@ evaluate `flymake-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
-\\{flymake-mode-map}
-
(fn &optional ARG)" t)
(autoload 'flymake-mode-on "flymake" "\
Turn Flymake mode on.")
@@ -16269,15 +16285,6 @@ values.
(register-definition-prefixes "semantic/html" '("semantic-"))
-;;; Generated autoloads from textmodes/html-ts-mode.el
-
-(autoload 'html-ts-mode "html-ts-mode" "\
-Major mode for editing Html, powered by tree-sitter.
-
-(fn)" t)
-(register-definition-prefixes "html-ts-mode" '("html-ts-mode-"))
-
-
;;; Generated autoloads from htmlfontify.el
(push (purecopy '(htmlfontify 0 21)) package--builtin-versions)
@@ -16350,8 +16357,7 @@ inlined into the compiled format versions. This means
that if you
change its definition, you should explicitly call
`ibuffer-recompile-formats'.
-(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil t)
-(function-put 'define-ibuffer-column 'lisp-indent-function 'defun)
+(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil 'macro)
(autoload 'define-ibuffer-sorter "ibuf-macs" "\
Define a method of sorting named NAME.
DOCUMENTATION is the documentation of the function, which will be called
@@ -16362,9 +16368,7 @@ For sorting, the forms in BODY will be evaluated with
`a' bound to one
buffer object, and `b' bound to another. BODY should return a non-nil
value if and only if `a' is \"less than\" `b'.
-(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil t)
-(function-put 'define-ibuffer-sorter 'lisp-indent-function 1)
-(function-put 'define-ibuffer-sorter 'doc-string-elt 2)
+(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil 'macro)
(autoload 'define-ibuffer-op "ibuf-macs" "\
Generate a function which operates on a buffer.
OP becomes the name of the function; if it doesn't begin with
@@ -16403,9 +16407,7 @@ BODY define the operation; they are forms to evaluate
per each
marked buffer. BODY is evaluated with `buf' bound to the
buffer object.
-(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING
ACTIVE-OPSTRING BEFORE AFTER COMPLEX) &rest BODY)" nil t)
-(function-put 'define-ibuffer-op 'lisp-indent-function 2)
-(function-put 'define-ibuffer-op 'doc-string-elt 3)
+(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING
ACTIVE-OPSTRING BEFORE AFTER COMPLEX) &rest BODY)" nil 'macro)
(autoload 'define-ibuffer-filter "ibuf-macs" "\
Define a filter named NAME.
DOCUMENTATION is the documentation of the function.
@@ -16420,9 +16422,7 @@ not a particular buffer should be displayed or not.
The forms in BODY
will be evaluated with BUF bound to the buffer object, and QUALIFIER
bound to the current value of the filter.
-(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil t)
-(function-put 'define-ibuffer-filter 'lisp-indent-function 2)
-(function-put 'define-ibuffer-filter 'doc-string-elt 2)
+(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil 'macro)
(register-definition-prefixes "ibuf-macs" '("ibuffer-"))
@@ -17233,8 +17233,8 @@ Put image IMAGE in front of POS in the current buffer.
IMAGE must be an image created with `create-image' or `defimage'.
IMAGE is displayed by putting an overlay into the current buffer with a
`before-string' STRING that has a `display' property whose value is the
-image. STRING is defaulted if you omit it.
-The overlay created will have the `put-image' property set to t.
+image. STRING defaults to \"x\" if it's nil or omitted.
+The overlay created by this function has the `put-image' property set to t.
POS may be an integer or marker.
AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
@@ -17368,14 +17368,31 @@ Cut a rectangle from the image under point, filling
it with COLOR.
COLOR defaults to the value of `image-cut-color'.
Interactively, with prefix argument, prompt for COLOR to use.
+This command presents the image with a rectangular area superimposed
+on it, and allows moving and resizing the area to define which
+part of it to cut.
+
+While moving/resizing the cutting area, the following key bindings
+are available:
+
+`q': Exit without changing anything.
+`RET': Crop/cut the image.
+`m': Make mouse movements move the rectangle instead of altering the
+ rectangle shape.
+`s': Same as `m', but make the rectangle into a square first.
+
+After cutting the image, you can save it by `M-x image-save' or
+\\<image-map>\\[image-save] when point is over the image.
+
(fn &optional COLOR)" t)
(autoload 'image-crop "image-crop" "\
Crop the image under point.
-If CUT is non-nil, remove a rectangle from the image instead of
-cropping the image. In that case CUT should be the name of a
-color to fill the rectangle.
+This command presents the image with a rectangular area superimposed
+on it, and allows moving and resizing the area to define which
+part of it to crop.
-While cropping the image, the following key bindings are available:
+While moving/resizing the cropping area, the following key bindings
+are available:
`q': Exit without changing anything.
`RET': Crop/cut the image.
@@ -17383,9 +17400,13 @@ While cropping the image, the following key bindings
are available:
rectangle shape.
`s': Same as `m', but make the rectangle into a square first.
-After cropping an image, you can save it by `M-x image-save' or
+After cropping the image, you can save it by `M-x image-save' or
\\<image-map>\\[image-save] when point is over the image.
+When called from Lisp, if CUT is non-nil, remove a rectangle from
+the image instead of cropping the image. In that case, CUT should
+be the name of a color to fill the rectangle.
+
(fn &optional CUT)" t)
(register-definition-prefixes "image-crop" '("image-c"))
@@ -18496,6 +18517,11 @@ sequence inside of a word.
Standard ispell choices are then available.
+This command uses a word-list file specified
+by `ispell-alternate-dictionary' or by `ispell-complete-word-dict';
+if none of those name an existing word-list file, this command
+signals an error.
+
(fn &optional INTERIOR-FRAG)" t)
(autoload 'ispell-complete-word-interior-frag "ispell" "\
Completes word matching character sequence inside a word." t)
@@ -18740,7 +18766,7 @@ Major mode for editing JSON, powered by tree-sitter.
;;; Generated autoloads from jsonrpc.el
-(push (purecopy '(jsonrpc 1 0 16)) package--builtin-versions)
+(push (purecopy '(jsonrpc 1 0 17)) package--builtin-versions)
(register-definition-prefixes "jsonrpc" '("jsonrpc-"))
@@ -22428,7 +22454,7 @@ Coloring:
;;; Generated autoloads from org/org.el
-(push (purecopy '(org 9 6 1)) package--builtin-versions)
+(push (purecopy '(org 9 6 4)) package--builtin-versions)
(autoload 'org-babel-do-load-languages "org" "\
Load the languages defined in `org-babel-load-languages'.
@@ -23420,8 +23446,7 @@ If PACKAGE is a `package-desc' object, MIN-VERSION is
ignored.
(autoload 'package-install "package" "\
Install the package PKG.
PKG can be a `package-desc' or a symbol naming one of the
-available packages in an archive in `package-archives'. When
-called interactively, prompt for the package name.
+available packages in an archive in `package-archives'.
Mark the installed package as selected by adding it to
`package-selected-packages'.
@@ -23433,6 +23458,10 @@ non-nil, install the package but do not add it to
If PKG is a `package-desc' and it is already installed, don't try
to install it but still mark it as selected.
+If the command is invoked with a prefix argument, it will allow
+upgrading of built-in packages, as if `package-install-upgrade-built-in'
+had been enabled.
+
(fn PKG &optional DONT-SELECT)" t)
(autoload 'package-update "package" "\
Update package NAME if a newer version exists.
@@ -23527,48 +23556,6 @@ DESC must be a `package-desc' object.
(autoload 'package-vc-install-selected-packages "package-vc" "\
Ensure packages specified in `package-vc-selected-packages' are installed." t)
-(defvar package-vc-selected-packages 'nil "\
-List of packages that must be installed.
-Each member of the list is of the form (NAME . SPEC), where NAME
-is a symbol designating the package and SPEC is one of:
-
-- nil, if any package version can be installed;
-- a version string, if that specific revision is to be installed;
-- a property list, describing a package specification. Valid
- key/value pairs are
-
- `:url' (string)
- The URL of the repository used to fetch the package source.
-
- `:branch' (string)
- If given, the name of the branch to checkout after cloning the directory.
-
- `:lisp-dir' (string)
- The repository-relative name of the directory to use for loading the Lisp
- sources. If not given, the value defaults to the root directory
- of the repository.
-
- `:main-file' (string)
- The main file of the project, relevant to gather package metadata.
- If not given, the assumed default is the package name with \".el\"
- appended to it.
-
- `:vc-backend' (symbol)
- A symbol of the VC backend to use for cloning the package. The
- value ought to be a member of `vc-handled-backends'. If omitted,
- `vc-clone' will fall back onto the archive default or on
- `package-vc-default-backend'.
-
- All other keys are ignored.
-
-This user option differs from `package-selected-packages' in that
-it is meant to be specified manually. If you want to install all
-the packages in the list, you cal also use
-`package-vc-install-selected-packages'.
-
-Note that this option will not override an existing source
-package installation or revert the checked out revision.")
-(custom-autoload 'package-vc-selected-packages "package-vc" nil)
(autoload 'package-vc-update-all "package-vc" "\
Attempt to update all installed VC packages." t)
(autoload 'package-vc-update "package-vc" "\
@@ -24438,6 +24425,11 @@ they are not by default assigned to keys." t)
(register-definition-prefixes "picture" '("picture-"))
+;;; Generated autoloads from language/pinyin.el
+
+(register-definition-prefixes "pinyin" '("pinyin-character-map"))
+
+
;;; Generated autoloads from textmodes/pixel-fill.el
(register-definition-prefixes "pixel-fill" '("pixel-fill-"))
@@ -26284,8 +26276,6 @@ evaluate `rectangle-mark-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
-\\{rectangle-mark-mode-map}
-
(fn &optional ARG)" t)
(register-definition-prefixes "rect" '("apply-on-rectangle"
"clear-rectangle-line" "delete-" "extract-rectangle-" "killed-rectangle" "ope"
"rectangle-" "spaces-string" "string-rectangle-"))
@@ -27444,16 +27434,6 @@ Major mode for editing Ruby code.
(register-definition-prefixes "ruby-mode" '("ruby-"))
-;;; Generated autoloads from progmodes/ruby-ts-mode.el
-
-(push (purecopy '(ruby-ts-mode 0 2)) package--builtin-versions)
-(autoload 'ruby-ts-mode "ruby-ts-mode" "\
-Major mode for editing Ruby, powered by tree-sitter.
-
-(fn)" t)
-(register-definition-prefixes "ruby-ts-mode" '("ruby-ts-"))
-
-
;;; Generated autoloads from ruler-mode.el
(defvar-local ruler-mode nil "\
@@ -32926,7 +32906,8 @@ Build and install the tree-sitter language grammar
library for LANG.
Interactively, if `treesit-language-source-alist' doesn't already
have data for building the grammar for LANG, prompt for its
-repository URL and the C/C++ compiler to use.
+repository URL and the C/C++ compiler to use. Non-interactively,
+signal an error when there's no recipe for LANG.
This command requires Git, a C compiler and (sometimes) a C++ compiler,
and the linker to be installed and on PATH. It also requires that the
@@ -32935,7 +32916,12 @@ recipe for LANG exists in
`treesit-language-source-alist'.
See `exec-path' for the current path where Emacs looks for
executable programs, such as the C/C++ compiler and linker.
-(fn LANG)" t)
+Interactively, prompt for the directory in which to install the
+compiled grammar files. Non-interactively, use OUT-DIR; if it's
+nil, the grammar is installed to the standard location, the
+\"tree-sitter\" directory under `user-emacs-directory'.
+
+(fn LANG &optional OUT-DIR)" t)
(register-definition-prefixes "treesit" '("treesit-"))
@@ -33161,7 +33147,15 @@ Major mode for editing TypeScript.
(fn)" t)
(autoload 'tsx-ts-mode "typescript-ts-mode" "\
-Major mode for editing TypeScript.
+Major mode for editing TSX and JSX documents.
+
+This major mode defines two additional JSX-specific faces:
+`typescript-ts-jsx-attribute-face' and
+`typescript-ts-jsx-attribute-face' that are used for HTML tags
+and attributes, respectively.
+
+The JSX-specific faces are used when `treesit-font-lock-level' is
+at least 3 (which is the default value).
(fn)" t)
(register-definition-prefixes "typescript-ts-mode" '("typescript-ts-mode-"))
@@ -36942,14 +36936,14 @@ If LIMIT is non-nil, then do not consider characters
beyond LIMIT.
;;; Generated autoloads from progmodes/xref.el
-(push (purecopy '(xref 1 6 2)) package--builtin-versions)
+(push (purecopy '(xref 1 6 3)) package--builtin-versions)
(autoload 'xref-find-backend "xref")
(define-obsolete-function-alias 'xref-pop-marker-stack #'xref-go-back "29.1")
(autoload 'xref-go-back "xref" "\
Go back to the previous position in xref history.
To undo, use \\[xref-go-forward]." t)
(autoload 'xref-go-forward "xref" "\
-Got to the point where a previous \\[xref-go-back] was invoked." t)
+Go to the point where a previous \\[xref-go-back] was invoked." t)
(autoload 'xref-marker-stack-empty-p "xref" "\
Whether the xref back-history is empty.")
(autoload 'xref-forward-history-empty-p "xref" "\
@@ -37167,6 +37161,48 @@ run a specific program. The program must be a member
of
(fn &optional PGM)" t)
(register-definition-prefixes "zone" '("zone-"))
+
+
+;;; Generated autoloads from progmodes/ruby-ts-mode.el
+
+(push (purecopy '(ruby-ts-mode 0 2)) package--builtin-versions)
+(autoload 'ruby-ts-mode "ruby-ts-mode" "\
+Major mode for editing Ruby, powered by tree-sitter.
+
+(fn)" t)
+(register-definition-prefixes "ruby-ts-mode" '("ruby-ts-"))
+
+
+;;; Generated autoloads from textmodes/html-ts-mode.el
+
+(autoload 'html-ts-mode "html-ts-mode" "\
+Major mode for editing Html, powered by tree-sitter.
+
+(fn)" t)
+(register-definition-prefixes "html-ts-mode" '("html-ts-mode-"))
+
+
+;;; Generated autoloads from progmodes/c-ts-common.el
+
+(register-definition-prefixes "c-ts-common" '("c-ts-common-"))
+
+
+;;; Generated autoloads from progmodes/elixir-ts-mode.el
+
+(autoload 'elixir-ts-mode "elixir-ts-mode" "\
+Major mode for editing Elixir, powered by tree-sitter.
+
+(fn)" t)
+(register-definition-prefixes "elixir-ts-mode" '("elixir-ts-"))
+
+
+;;; Generated autoloads from progmodes/heex-ts-mode.el
+
+(autoload 'heex-ts-mode "heex-ts-mode" "\
+Major mode for editing HEEx, powered by tree-sitter.
+
+(fn)" t)
+(register-definition-prefixes "heex-ts-mode" '("heex-ts-"))
;;; End of scraped data
diff --git a/lisp/leim/quail/cyrillic.el b/lisp/leim/quail/cyrillic.el
index ba0b9c9ca12..d0874124fc7 100644
--- a/lisp/leim/quail/cyrillic.el
+++ b/lisp/leim/quail/cyrillic.el
@@ -1844,6 +1844,125 @@ Doubling the postfix separates the letter and postfix
("E**" ["У*"])
("e**" ["у*"]))
+
+;; Mongolian layout: Mongolian alphabet has 2 letters: Ө Ү,
+;; and the layout is quite different from other cyrillic layouts.
+;; Written by Garid Zorigoo.
+(quail-define-package
+ "cyrillic-mongolian" "Mongolian" "MN-" t
+ "Input method for cyrillic Mongolian"
+ nil t nil nil nil nil nil nil nil nil t)
+
+;; № - " ₮ : . _ , % ? е щ
+;; Ф Ц У Ж Э Н Г Ш Ү З К Ъ
+;; Й Ы Б Ө А Х Р О Л Д П
+;; Я Ч Ё С М И Т Ь В Ю
+
+
+(quail-define-rules
+ ;; (lowercase 1st row)
+ ("q" ?ф)
+ ("w" ?ц)
+ ("e" ?у)
+ ("r" ?ж)
+ ("t" ?э)
+ ("y" ?н)
+ ("u" ?г)
+ ("i" ?ш)
+ ("o" ?ү)
+ ("p" ?з)
+ ("[" ?к)
+ ("]" ?ъ)
+ ;; (lowercase 2nd row)
+ ("a" ?й)
+ ("s" ?ы)
+ ("d" ?б)
+ ("f" ?ө)
+ ("g" ?а)
+ ("h" ?х)
+ ("j" ?р)
+ ("k" ?о)
+ ("l" ?л)
+ (";" ?д)
+ ("'" ?п)
+ ;; (lowercase 3rd row)
+ ("z" ?я)
+ ("x" ?ч)
+ ("c" ?ё)
+ ("v" ?с)
+ ("b" ?м)
+ ("n" ?и)
+ ("m" ?т)
+ ("," ?ь)
+ ("." ?в)
+ ("/" ?ю)
+
+
+ ;; (uppercase 1st row)
+ ("Q" ?Ф)
+ ("W" ?Ц)
+ ("E" ?У)
+ ("R" ?Ж)
+ ("T" ?Э)
+ ("Y" ?Н)
+ ("U" ?Г)
+ ("I" ?Ш)
+ ("O" ?Ү)
+ ("P" ?З)
+ ("{" ?К)
+ ("}" ?Ъ)
+ ;; (uppercase 2nd row)
+ ("A" ?Й)
+ ("S" ?Ы)
+ ("D" ?Б)
+ ("F" ?Ө)
+ ("G" ?А)
+ ("H" ?Х)
+ ("J" ?Р)
+ ("K" ?О)
+ ("L" ?Л)
+ (":" ?Д)
+ ("\"" ?П)
+ ;; (uppercase 3rd row)
+ ("Z" ?Я)
+ ("X" ?Ч)
+ ("C" ?Ё)
+ ("V" ?С)
+ ("B" ?М)
+ ("N" ?И)
+ ("M" ?Т)
+ ("<" ?Ь)
+ (">" ?В)
+ ("?" ?Ю)
+
+
+ ;; (number row without shift)
+ ("1" ?№)
+ ("2" ?-)
+ ("3" ?\")
+ ("4" ?₮)
+ ("5" ?:)
+ ("6" ?.)
+ ("7" ?_)
+ ("8" ?,)
+ ("9" ?%)
+ ("0" ??)
+ ("-" ?е)
+ ("=" ?щ)
+ ;; (number row with shift)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("_" ?Е)
+ ("+" ?Щ))
+
;; Local Variables:
;; coding: utf-8
;; End:
diff --git a/lisp/leim/quail/greek.el b/lisp/leim/quail/greek.el
index 107f4131e38..0829097af5f 100644
--- a/lisp/leim/quail/greek.el
+++ b/lisp/leim/quail/greek.el
@@ -1116,6 +1116,7 @@ nil t t nil nil nil nil nil nil nil t)
("'U" ?Ύ)
("`R" ?Ῥ)
+ ("(R" ?Ῥ)
("+`" ?῭) ; #x1fed
("+'" ?΅) ; #x1fee
diff --git a/lisp/leim/quail/persian.el b/lisp/leim/quail/persian.el
index 2915f362ee6..758d2951292 100644
--- a/lisp/leim/quail/persian.el
+++ b/lisp/leim/quail/persian.el
@@ -2,7 +2,7 @@
;; Copyright (C) 2011-2023 Free Software Foundation, Inc.
-;; Author: Mohsen BANAN <libre@mohsen.1.banan.byname.net>
+;; Author: Mohsen BANAN <emacs@mohsen.1.banan.byname.net>
;; URL: http://mohsen.1.banan.byname.net/contact
;; Keywords: multilingual, input method, Farsi, Persian, keyboard
@@ -23,7 +23,7 @@
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
-
+;;
;; This file contains a collection of input methods for
;; Persian languages (Farsi, Urdu, Pashto/Afghanic, ...)
;;
@@ -395,6 +395,7 @@
("u" ?و)
("V" ?ؤ)
("h" ?ه)
+ ("Hh" ?ه) ;; to take care of هه -- hHh
("y" ?ی)
("i" ?ی)
("I" ?ئ)
@@ -402,7 +403,7 @@
;;;;;;;;;;; isiri-6219 Table 6 -- جدول ۶ - حروِفِ عربی
("F" ?إ)
- ("D" ?\u0671) ;; (insert-char #x0671)ٱ named: حرفِ الفِ وصل
+ ("D" ?\u0671) ;; (ucs-insert #x0671)ٱ named: حرفِ الفِ وصل
("K" ?ك) ;; Arabic kaf
("Th" ?ة) ;; ta marbuteh
("Y" ?ي)
@@ -421,40 +422,40 @@
("8" ?۸)
("9" ?۹)
- ("\\/" ?\u066B) ;; (insert-char #x066B)٫ named: ممیزِ فارسی
- ("\\," ?\u066C) ;; (insert-char #x066C)٬ named: جداکنندهی هزارهای فارسی
- ("%" ?\u066A) ;; (insert-char #x066A)٪ named: درصدِ فارسی
- ("+" ?\u002B) ;; (insert-char #x002B)+ named: علامتِ بهاضافه
- ("-" ?\u2212) ;; (insert-char #x2212)− named: علامتِ منها
- ("\\*" ?\u00D7) ;; (insert-char #x00D7)× named: علامتِ ضرب
- ("\\-" ?\u00F7) ;; (insert-char #x00F7)÷ named: علامتِ تقسیم
- ("<" ?\u003C) ;; (insert-char #x003C)< named: علامتِ کوچکتر
- ("=" ?\u003D) ;; (insert-char #x003D)= named: علامتِ مساوی
- (">" ?\u003E) ;; (insert-char #x003E)> named: علامتِ بزرگتر
+ ("\\/" ?\u066B) ;; (ucs-insert #x066B)٫ named: ممیزِ فارسی
+ ("\\," ?\u066C) ;; (ucs-insert #x066C)٬ named: جداکنندهی هزارهای فارسی
+ ("%" ?\u066A) ;; (ucs-insert #x066A)٪ named: درصدِ فارسی
+ ("+" ?\u002B) ;; (ucs-insert #x002B)+ named: علامتِ بهاضافه
+ ("-" ?\u2212) ;; (ucs-insert #x2212)− named: علامتِ منها
+ ("\\*" ?\u00D7) ;; (ucs-insert #x00D7)× named: علامتِ ضرب
+ ("\\-" ?\u00F7) ;; (ucs-insert #x00F7)÷ named: علامتِ تقسیم
+ ("<" ?\u003C) ;; (ucs-insert #x003C)< named: علامتِ کوچکتر
+ ("=" ?\u003D) ;; (ucs-insert #x003D)= named: علامتِ مساوی
+ (">" ?\u003E) ;; (ucs-insert #x003E)> named: علامتِ بزرگتر
;;;;;;;;;;; isiri-6219 Table 2 -- جدول ۲ - علائم نقطه گذاریِ مشترک
;;; Space
("." ?.) ;;
- (":" ?\u003A) ;; (insert-char #x003A): named:
- ("!" ?\u0021) ;; (insert-char #x0021)! named:
- ("\\." ?\u2026) ;; (insert-char #x2026)… named:
- ("\\-" ?\u2010) ;; (insert-char #x2010)‐ named:
- ("-" ?\u002D) ;; (insert-char #x002D)- named:
+ (":" ?\u003A) ;; (ucs-insert #x003A): named:
+ ("!" ?\u0021) ;; (ucs-insert #x0021)! named:
+ ("\\." ?\u2026) ;; (ucs-insert #x2026)… named:
+ ("\\-" ?\u2010) ;; (ucs-insert #x2010)‐ named:
+ ("-" ?\u002D) ;; (ucs-insert #x002D)- named:
("|" ?|)
;;("\\\\" ?\)
("//" ?/)
- ("*" ?\u002A) ;; (insert-char #x002A)* named:
- ("(" ?\u0028) ;; (insert-char #x0028)( named:
- (")" ?\u0029) ;; (insert-char #x0029)) named:
- ("[" ?\u005B) ;; (insert-char #x005B)[ named:
- ("[" ?\u005D) ;; (insert-char #x005D)] named:
- ("{" ?\u007B) ;; (insert-char #x007B){ named:
- ("}" ?\u007D) ;; (insert-char #x007D)} named:
- ("\\<" ?\u00AB) ;; (insert-char #x00AB)« named:
- ("\\>" ?\u00BB) ;; (insert-char #x00BB)» named:
- ("N" ?\u00AB) ;; (insert-char #x00AB)« named:
- ("M" ?\u00BB) ;; (insert-char #x00BB)» named:
+ ("*" ?\u002A) ;; (ucs-insert #x002A)* named:
+ ("(" ?\u0028) ;; (ucs-insert #x0028)( named:
+ (")" ?\u0029) ;; (ucs-insert #x0029)) named:
+ ("[" ?\u005B) ;; (ucs-insert #x005B)[ named:
+ ("[" ?\u005D) ;; (ucs-insert #x005D)] named:
+ ("{" ?\u007B) ;; (ucs-insert #x007B){ named:
+ ("}" ?\u007D) ;; (ucs-insert #x007D)} named:
+ ("\\<" ?\u00AB) ;; (ucs-insert #x00AB)« named:
+ ("\\>" ?\u00BB) ;; (ucs-insert #x00BB)» named:
+ ("N" ?\u00AB) ;; (ucs-insert #x00AB)« named:
+ ("M" ?\u00BB) ;; (ucs-insert #x00BB)» named:
;;;;;;;;;;; isiri-6219 Table 3 -- جدول ۳ - علائم نقطه گذاریِ فارسی
("," ?،) ;; farsi
@@ -463,24 +464,49 @@
("_" ?ـ) ;;
-;;;;;;;;;;; isiri-6219 Table 1 -- جدول ۱ - نویسههای کنترلی
+;;;;;;;;;;; isiri-6219 Table 1 (plus bidi updates) - جدول ۱ - نویسههای
کنترلی
;; LF
;; CR
- ("‌" ?\u200C) ;; (insert-char #x200C) named: فاصلهی مجازی
+ ("‌" ?\u200C) ;; (ucs-insert #x200C) named: فاصلهی مجازی
("/" ?\u200C) ;;
- ("‍" ?\u200D) ;; (insert-char #x200D) named: اتصالِ مجازی
+ ("‍" ?\u200D) ;; (ucs-insert #x200D) named: اتصالِ مجازی
("J" ?\u200D) ;;
- ("‎" ?\u200E) ;; (insert-char #x200E) named: نشانهی چپبهراست
- ("‏" ?\u200F) ;; (insert-char #x200F) named: نشانهی راستبهچپ
- ("&ls;" ?\u2028) ;; (insert-char #x2028)
named: جداکنندهی سطرها
- ("&ps;" ?\u2028) ;; (insert-char #x2029)
named: جداکنندهی بندها
- ("&lre;" ?\u202A) ;; (insert-char #x202A) named: زیرمتنِ چپبهراست
- ("&rle;" ?\u202B) ;; (insert-char #x202B) named: زیرمتنِ راستبهچپ
- ("&pdf;" ?\u202C) ;; (insert-char #x202C) named: پایانِ زیرمتن
- ("&lro;" ?\u202D) ;; (insert-char #x202D) named: زیرمتنِ اکیداً چپبهراست
- ("&rlo;" ?\u202D) ;; (insert-char #x202E) named: زیرمتنِ اکیداً راستبهچپ
- ("&bom;" ?\uFEFF) ;; (insert-char #xFEFF) named: نشانهی ترتیبِ بایتها
-
+ ("&ls;" ?\u2028) ;; (ucs-insert #x2028)
named: جداکنندهی سطرها
+ ("&ps;" ?\u2029) ;; (ucs-insert #x2029)
named: جداکنندهی بندها
+ ;;
+ ;; Byte Order Mark (Historic)
+ ("&bom;" ?\uFEFF) ;; (ucs-insert #xFEFF) named: نشانهی ترتیبِ بایتها
+ ;; BIDI Controls
+ ;; -------
+ ;; LEFT-TO-RIGHT MARK (strongly typed LTR character)
+ ("‎" ?\u200E) ;; (ucs-insert #x200E) named: نشانهی چپبهراست
+ ("L" ?\u200E)
+ ;; RIGHT-TO-LEFT MARK (strongly typed RTL character)
+ ("‏" ?\u200F) ;; (ucs-insert #x200F) named: نشانهی راستبهچپ
+ ("R" ?\u200F)
+ ;; LEFT-TO-RIGHT ISOLATE (sets base direction to LTR & isolates the embedded)
+ ("&lri;" ?\u2066) ;; (ucs-insert #x2066)
+ ;; RIGHT-TO-LEFT ISOLATE (sets base direction to RTL & isolates the embedded)
+ ("&rli;" ?\u2067) ;; (ucs-insert #x2067)
+ ;; FIRST-STRONG ISOLATE (isolates content & sets dir to first strongly typed)
+ ("&fsi;" ?\u2068) ;; (ucs-insert #x2068)
+ ;; POP DIRECTIONAL ISOLATE (used for RLI, LRI or FSI)
+ ;; EMACS BUG
+ ;; If ("&pdi;" ?\u2069) is included Emacs fully hangs with a
(describe-input-method 'farsi-transliterate-banan)
+ ;;("&pdi;" ?\u2069) ;; (ucs-insert #x2069)
+ ;; LEFT-TO-RIGHT EMBEDDING (sets base dir to LTR but allows embedded text)
+ ("&lre;" ?\u202A) ;; (ucs-insert #x202A) named: زیرمتنِ چپبهراست
+ ("B" ?\u202A)
+ ;; RIGHT-TO-LEFT EMBEDDING (sets base dir to RTL but allows embedded text)
+ ("&rle;" ?\u202B) ;; (ucs-insert #x202B) named: زیرمتنِ راستبهچپ
+ ;; POP DIRECTIONAL FORMATTING (used for RLE or LRE and RLO or LRO)
+ ;; EMACS ANOMOLY --- Why does &pdf not show up in (describe-input-method
'farsi-transliterate-banan)
+ ("&pdf;" ?\u202C) ;; (ucs-insert #x202C) named: پایانِ زیرمتن
+ ("P" ?\u202C)
+ ;; LEFT-TO-RIGHT OVERRIDE (overrides the bidirectional algorithm, display LTR)
+ ("&lro;" ?\u202D) ;; (ucs-insert #x202D) named: زیرمتنِ اکیداً چپبهراست
+ ;; RIGHT-TO-LEFT OVERRIDE (overrides the bidirectional algorithm, display RTL)
+ ("&rlo;" ?\u202E) ;; (ucs-insert #x202E) named: زیرمتنِ اکیداً راستبهچپ
;;;;;;;;;;; isiri-6219 Table 7 -- جدول ۷ - نشانههایِ فارسی
("^" ?َ) ;; zbar ;; زبر فارسى
@@ -491,14 +517,14 @@
("O" ?ٌ) ;; دو پيش فارسى -- تنوين رفع
("~" ?ّ) ;; tashdid ;; تشديد فارسى
("@" ?ْ) ;; ساکن فارسى
- ("U" ?\u0653) ;; (insert-char #x0653)ٓ named: مدِ فارسی
+ ("U" ?\u0653) ;; (ucs-insert #x0653)ٓ named: مدِ فارسی
("`" ?ٔ) ;; همزه فارسى بالا
- ("C" ?\u0655) ;; (insert-char #x0655)ٕ named: همزه فارسى پایین
- ("$" ?\u0670) ;; (insert-char #x0670)ٰ named: الفِ مقصورهی فارسی
+ ("C" ?\u0655) ;; (ucs-insert #x0655)ٕ named: همزه فارسى پایین
+ ("$" ?\u0670) ;; (ucs-insert #x0670)ٰ named: الفِ مقصورهی فارسی
;;;;;;;;;;; isiri-6219 Table 8 - Forbidden Characters -- جدول ۸ - نویسههایِ
ممنوع
-;; ;; he ye (insert-char 1728) (insert-char #x06c0) kills emacs-24.0.90
+;; ;; he ye (ucs-insert 1728) (ucs-insert #x06c0) kills emacs-24.0.90
;; arabic digits 0-9
@@ -508,7 +534,7 @@
("\\~" ?~)
("\\@" ?@)
("\\#" ?#)
- ("\\$" ?\uFDFC) ;; (insert-char #xFDFC)﷼ named:
+ ("\\$" ?\uFDFC) ;; (ucs-insert #xFDFC)﷼ named:
("\\^" ?^)
("\\1" ?1)
("\\2" ?2)
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 46b26750cd5..532d2ca176d 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -103,7 +103,7 @@
;; During bootstrapping the byte-compiler is run interpreted
;; when compiling itself, which uses a lot more stack
;; than usual.
- (setq max-lisp-eval-depth 2200)))
+ (setq max-lisp-eval-depth (max max-lisp-eval-depth 3400))))
(if (eq t purify-flag)
;; Hash consing saved around 11% of pure space in my tests.
@@ -476,7 +476,13 @@ lost after dumping")))
;; At this point, we're ready to resume undo recording for scratch.
(buffer-enable-undo "*scratch*")
+(defvar comp-subr-arities-h)
(when (featurep 'native-compile)
+ ;; Save the arity for all primitives so the compiler can always
+ ;; retrive it even in case of redefinition.
+ (mapatoms (lambda (f)
+ (when (subr-primitive-p (symbol-function f))
+ (puthash f (func-arity f) comp-subr-arities-h))))
;; Fix the compilation unit filename to have it working when
;; installed or if the source directory got moved. This is set to be
;; a pair in the form of:
diff --git a/lisp/lpr.el b/lisp/lpr.el
index af59a953f38..6b8343b695d 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -73,7 +73,8 @@ switch on this list.
See `lpr-command'."
:type '(repeat (string :tag "Argument")))
-(defcustom lpr-add-switches (memq system-type '(berkeley-unix gnu/linux))
+(defcustom lpr-add-switches
+ (not (not (memq system-type '(berkeley-unix gnu/linux))))
"Non-nil means construct `-T' and `-J' options for the printer program.
These are made assuming that the program is `lpr';
if you are using some other incompatible printer program,
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 81ff14932c6..485ac4476ef 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -101,7 +101,7 @@ update the dependent variables."
:group 'ls-lisp)
(defcustom ls-lisp-ignore-case
- (memq ls-lisp-emulation '(MS-Windows MacOS))
+ (not (not (memq ls-lisp-emulation '(MS-Windows MacOS))))
"Non-nil causes ls-lisp alphabetic sorting to ignore case."
:set-after '(ls-lisp-emulation)
:type 'boolean
diff --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el
index 4b903578a28..15f598fa224 100644
--- a/lisp/mail/binhex.el
+++ b/lisp/mail/binhex.el
@@ -49,7 +49,7 @@ input and write the converted data to its standard output."
:type '(repeat string))
(defcustom binhex-use-external
- (executable-find binhex-decoder-program)
+ (not (not (executable-find binhex-decoder-program)))
"Use external binhex program."
:version "22.1"
:type 'boolean)
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 97d20cca151..165aafae1f7 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -2511,22 +2511,20 @@ mapped to mostly alphanumerics for safety."
feedmail-force-binary-write)
'no-conversion
coding-system-for-write)))
- (unwind-protect
- (progn
- (insert fcc)
- (unless feedmail-nuke-bcc-in-fcc
- (if bcc-holder (insert bcc-holder))
- (if resent-bcc-holder
- (insert resent-bcc-holder)))
-
- (run-hooks 'feedmail-before-fcc-hook)
-
- (when feedmail-nuke-body-in-fcc
- (goto-char eoh-marker)
- (if (natnump feedmail-nuke-body-in-fcc)
- (forward-line feedmail-nuke-body-in-fcc))
- (delete-region (point) (point-max)))
- (mail-do-fcc eoh-marker))))))
+ (insert fcc)
+ (unless feedmail-nuke-bcc-in-fcc
+ (if bcc-holder (insert bcc-holder))
+ (if resent-bcc-holder
+ (insert resent-bcc-holder)))
+
+ (run-hooks 'feedmail-before-fcc-hook)
+
+ (when feedmail-nuke-body-in-fcc
+ (goto-char eoh-marker)
+ (if (natnump feedmail-nuke-body-in-fcc)
+ (forward-line feedmail-nuke-body-in-fcc))
+ (delete-region (point) (point-max)))
+ (mail-do-fcc eoh-marker))))
;; User bailed out of one-last-look.
(if feedmail-queue-runner-is-active
(throw 'skip-me-q 'skip-me-q)
@@ -3046,30 +3044,30 @@ been weeded out."
(address-blob)
(this-line)
(this-line-end))
- (unwind-protect
- (with-current-buffer (get-buffer-create " *FQM scratch*")
- (erase-buffer)
- (insert-buffer-substring message-buffer header-start header-end)
- (goto-char (point-min))
- (let ((case-fold-search t))
- (while (re-search-forward addr-regexp (point-max) t)
- (replace-match "")
- (setq this-line (match-beginning 0))
- (forward-line 1)
- ;; get any continuation lines
- (while (and (looking-at "^[ \t]+") (< (point) (point-max)))
- (forward-line 1))
- (setq this-line-end (point-marker))
- ;; only keep if we don't have it already
- (setq address-blob
- (mail-strip-quoted-names (buffer-substring-no-properties
this-line this-line-end)))
- (while (string-match "\\([, \t\n\r]*\\)\\([^, \t\n\r]+\\)"
address-blob)
- (setq simple-address (substring address-blob (match-beginning
2) (match-end 2)))
- (setq address-blob (replace-match "" t t address-blob))
- (if (not (member simple-address address-list))
- (push simple-address address-list)))
- ))
- (kill-buffer nil)))
+
+ (with-current-buffer (get-buffer-create " *FQM scratch*")
+ (erase-buffer)
+ (insert-buffer-substring message-buffer header-start header-end)
+ (goto-char (point-min))
+ (let ((case-fold-search t))
+ (while (re-search-forward addr-regexp (point-max) t)
+ (replace-match "")
+ (setq this-line (match-beginning 0))
+ (forward-line 1)
+ ;; get any continuation lines
+ (while (and (looking-at "^[ \t]+") (< (point) (point-max)))
+ (forward-line 1))
+ (setq this-line-end (point-marker))
+ ;; only keep if we don't have it already
+ (setq address-blob
+ (mail-strip-quoted-names (buffer-substring-no-properties
this-line this-line-end)))
+ (while (string-match "\\([, \t\n\r]*\\)\\([^, \t\n\r]+\\)"
address-blob)
+ (setq simple-address (substring address-blob (match-beginning 2)
(match-end 2)))
+ (setq address-blob (replace-match "" t t address-blob))
+ (if (not (member simple-address address-list))
+ (push simple-address address-list)))
+ ))
+ (kill-buffer nil))
(identity address-list)))
diff --git a/lisp/mail/mailclient.el b/lisp/mail/mailclient.el
index 21ddef4b0fd..613541e5dc4 100644
--- a/lisp/mail/mailclient.el
+++ b/lisp/mail/mailclient.el
@@ -111,104 +111,103 @@ The mail client is taken to be the handler of mailto
URLs."
(let ((case-fold-search nil)
delimline
(mailbuf (current-buffer)))
- (unwind-protect
- (with-temp-buffer
- (insert-buffer-substring mailbuf)
- ;; Move to header delimiter
- (mail-sendmail-undelimit-header)
- (setq delimline (point-marker))
- (if mail-aliases
- (expand-mail-aliases (point-min) delimline))
- (goto-char (point-min))
- ;; ignore any blank lines in the header
- (while (and (re-search-forward "\n\n\n*" delimline t)
- (< (point) delimline))
- (replace-match "\n"))
- (let ((case-fold-search t)
- (mime-charset-pattern
- (concat
- "^content-type:[ \t]*text/plain;"
- "\\(?:[ \t\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*"
- "[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?"))
- coding-system
- character-coding
- ;; Use the external browser function to send the
- ;; message.
- (browse-url-default-handlers nil))
- ;; initialize limiter
- (setq mailclient-delim-static "?")
- ;; construct and call up mailto URL
- (browse-url
+ (with-temp-buffer
+ (insert-buffer-substring mailbuf)
+ ;; Move to header delimiter
+ (mail-sendmail-undelimit-header)
+ (setq delimline (point-marker))
+ (if mail-aliases
+ (expand-mail-aliases (point-min) delimline))
+ (goto-char (point-min))
+ ;; ignore any blank lines in the header
+ (while (and (re-search-forward "\n\n\n*" delimline t)
+ (< (point) delimline))
+ (replace-match "\n"))
+ (let ((case-fold-search t)
+ (mime-charset-pattern
(concat
- (save-excursion
- (narrow-to-region (point-min) delimline)
- ;; We can't send multipart/* messages (i. e. with
- ;; attachments or the like) via this method.
- (when-let ((type (mail-fetch-field "content-type")))
- (when (and (string-match "multipart"
- (car (mail-header-parse-content-type
- type)))
- (not (y-or-n-p "Message with attachments can't be
sent via mailclient; continue anyway?")))
- (error "Choose a different `send-mail-function' to send
attachments")))
- (goto-char (point-min))
- (setq coding-system
- (if (re-search-forward mime-charset-pattern nil t)
- (coding-system-from-name (match-string 1))
- 'undecided))
- (setq character-coding
- (mail-fetch-field "content-transfer-encoding"))
- (when character-coding
- (setq character-coding (downcase character-coding)))
- (concat
- "mailto:";
- ;; Some of the headers according to RFC 822 (or later).
- (mailclient-gather-addresses "To"
- 'drop-first-name)
- (mailclient-gather-addresses "cc" )
- (mailclient-gather-addresses "bcc" )
- (mailclient-gather-addresses "Resent-To" )
- (mailclient-gather-addresses "Resent-cc" )
- (mailclient-gather-addresses "Resent-bcc" )
- (mailclient-gather-addresses "Reply-To" )
- ;; The From field is not honored for now: it's
- ;; not necessarily configured. The mail client
- ;; knows the user's address(es)
- ;; (mailclient-gather-addresses "From" )
- ;; subject line
- (let ((subj (mail-fetch-field "Subject" nil t)))
- (widen) ;; so we can read the body later on
- (if subj ;; if non-blank
- ;; the mail client will deal with
- ;; warning the user etc.
- (concat (mailclient-url-delim) "subject="
- (mailclient-encode-string-as-url subj))
- ""))))
- ;; body
- (mailclient-url-delim) "body="
- (progn
- (delete-region (point-min) delimline)
- (unless (null character-coding)
- ;; mailto: and clipboard need UTF-8 and cannot deal with
- ;; Content-Transfer-Encoding or Content-Type.
- ;; FIXME: There is code duplication here with rmail.el.
- (set-buffer-multibyte nil)
- (cond
- ((string= character-coding "base64")
- (base64-decode-region (point-min) (point-max)))
- ((string= character-coding "quoted-printable")
- (mail-unquote-printable-region (point-min) (point-max)
- nil nil t))
- (t (error "Unsupported Content-Transfer-Encoding: %s"
- character-coding)))
- (decode-coding-region (point-min) (point-max) coding-system))
- (mailclient-encode-string-as-url
- (if mailclient-place-body-on-clipboard-flag
- (progn
- (clipboard-kill-ring-save (point-min) (point-max))
- (concat
- "*** E-Mail body has been placed on clipboard, "
- "please paste it here! ***"))
- (buffer-string)))))))))))
+ "^content-type:[ \t]*text/plain;"
+ "\\(?:[ \t\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*"
+ "[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?"))
+ coding-system
+ character-coding
+ ;; Use the external browser function to send the
+ ;; message.
+ (browse-url-default-handlers nil))
+ ;; initialize limiter
+ (setq mailclient-delim-static "?")
+ ;; construct and call up mailto URL
+ (browse-url
+ (concat
+ (save-excursion
+ (narrow-to-region (point-min) delimline)
+ ;; We can't send multipart/* messages (i. e. with
+ ;; attachments or the like) via this method.
+ (when-let ((type (mail-fetch-field "content-type")))
+ (when (and (string-match "multipart"
+ (car (mail-header-parse-content-type
+ type)))
+ (not (y-or-n-p "Message with attachments can't be
sent via mailclient; continue anyway?")))
+ (error "Choose a different `send-mail-function' to send
attachments")))
+ (goto-char (point-min))
+ (setq coding-system
+ (if (re-search-forward mime-charset-pattern nil t)
+ (coding-system-from-name (match-string 1))
+ 'undecided))
+ (setq character-coding
+ (mail-fetch-field "content-transfer-encoding"))
+ (when character-coding
+ (setq character-coding (downcase character-coding)))
+ (concat
+ "mailto:";
+ ;; Some of the headers according to RFC 822 (or later).
+ (mailclient-gather-addresses "To"
+ 'drop-first-name)
+ (mailclient-gather-addresses "cc" )
+ (mailclient-gather-addresses "bcc" )
+ (mailclient-gather-addresses "Resent-To" )
+ (mailclient-gather-addresses "Resent-cc" )
+ (mailclient-gather-addresses "Resent-bcc" )
+ (mailclient-gather-addresses "Reply-To" )
+ ;; The From field is not honored for now: it's
+ ;; not necessarily configured. The mail client
+ ;; knows the user's address(es)
+ ;; (mailclient-gather-addresses "From" )
+ ;; subject line
+ (let ((subj (mail-fetch-field "Subject" nil t)))
+ (widen) ;; so we can read the body later on
+ (if subj ;; if non-blank
+ ;; the mail client will deal with
+ ;; warning the user etc.
+ (concat (mailclient-url-delim) "subject="
+ (mailclient-encode-string-as-url subj))
+ ""))))
+ ;; body
+ (mailclient-url-delim) "body="
+ (progn
+ (delete-region (point-min) delimline)
+ (unless (null character-coding)
+ ;; mailto: and clipboard need UTF-8 and cannot deal with
+ ;; Content-Transfer-Encoding or Content-Type.
+ ;; FIXME: There is code duplication here with rmail.el.
+ (set-buffer-multibyte nil)
+ (cond
+ ((string= character-coding "base64")
+ (base64-decode-region (point-min) (point-max)))
+ ((string= character-coding "quoted-printable")
+ (mail-unquote-printable-region (point-min) (point-max)
+ nil nil t))
+ (t (error "Unsupported Content-Transfer-Encoding: %s"
+ character-coding)))
+ (decode-coding-region (point-min) (point-max) coding-system))
+ (mailclient-encode-string-as-url
+ (if mailclient-place-body-on-clipboard-flag
+ (progn
+ (clipboard-kill-ring-save (point-min) (point-max))
+ (concat
+ "*** E-Mail body has been placed on clipboard, "
+ "please paste it here! ***"))
+ (buffer-string))))))))))
(provide 'mailclient)
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index c56f4ce62dc..872299c2415 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -40,6 +40,7 @@
(require 'mail-utils)
(require 'rfc2047)
(require 'auth-source)
+(require 'rfc6068)
(declare-function compilation--message->loc "compile" (cl-x) t)
(declare-function epa--find-coding-system-for-mime-charset "epa"
(mime-charset))
@@ -1120,10 +1121,36 @@ The buffer is expected to be narrowed to just the
header of the message."
(define-key map [menu-bar mail]
(cons "Mail" (make-sparse-keymap "Mail")))
+ (define-key map [menu-bar mail mailing-list]
+ (cons "Mailing List" (make-sparse-keymap "Mailing List")))
+
+ (define-key map [menu-bar mail mailing-list list-help]
+ '(menu-item "Mailing List Help" rmail-mailing-list-help
+ :enable (rmail-get-header "List-Help")
+ :help "Compose email requesting help about this mailing
list"))
+
+ (define-key map [menu-bar mail mailing-list list-archive]
+ '(menu-item "Mailing List Archive" rmail-mailing-list-archive
+ :enable (rmail-get-header "List-Archive")
+ :help "Browse the archive of this mailing list"))
+
+ (define-key map [menu-bar mail mailing-list list-unsubscribe]
+ '(menu-item "Unsubscribe From List" rmail-mailing-list-unsubscribe
+ :enable (rmail-get-header "List-Unsubscribe")
+ :help "Compose email to unsubscribe from this mailing list"))
+
+ (define-key map [menu-bar mail mailing-list list-post]
+ '(menu-item "Post To List" rmail-mailing-list-post
+ :enable (rmail-get-header "List-Post")
+ :help "Compose email to post to this mailing list"))
+
+ (define-key map [menu-bar mail lambda1]
+ '("----"))
+
(define-key map [menu-bar mail rmail-get-new-mail]
'("Get New Mail" . rmail-get-new-mail))
- (define-key map [menu-bar mail lambda]
+ (define-key map [menu-bar mail lambda2]
'("----"))
(define-key map [menu-bar mail continue]
@@ -2285,7 +2312,7 @@ significant attribute change was made."
(insert value)))
;; Otherwise add a header line to record the attributes and set
;; all but this one to no.
- (let ((header-value "--------"))
+ (let ((header-value (copy-sequence "--------")))
(aset header-value attr value)
(goto-char (if limit (1- limit) (point-max)))
(setq altered (/= value ?-))
@@ -4765,6 +4792,69 @@ Content-Transfer-Encoding: base64\n")
(setq buffer-file-coding-system rmail-message-encoding))))
(add-hook 'after-save-hook 'rmail-after-save-hook)
+
+;;; Mailing list support
+(defun rmail--mailing-list-message (which)
+ "Send a message to mailing list whose purpose is identified by WHICH.
+WHICH is a symbol, one of `help', `unsubscribe', or `post'."
+ (let ((header
+ (cond ((eq which 'help) "List-Help")
+ ((eq which 'unsubscribe) "List-Unsubscribe")
+ ((eq which 'post) "List-Post")))
+ (msg
+ (cond ((eq which 'post)
+ "Write Subject and body, then type \\[%s] to send the
message.")
+ (t
+ "Type \\[%s] to send the message.")))
+ address header-list to subject)
+ (setq address (rmail-get-header header))
+ (cond ((and address (string-match "<\\(mailto:[^>]*\\)>" address))
+ (setq address (match-string 1 address))
+ (setq header-list (rfc6068-parse-mailto-url address)
+ to (cdr (assoc-string "To" header-list t))
+ subject (or (cdr (assoc-string "Subject" header-list t)) ""))
+ (rmail-start-mail nil to subject nil nil rmail-buffer)
+ (message (substitute-command-keys
+ (format msg (get mail-user-agent 'sendfunc)))))
+ (t
+ (user-error "This message does not specify \"%s\" address"
+ header)))))
+
+(defun rmail-mailing-list-help ()
+ "Send Help request to the mailing list which delivered the current message.
+This command starts composing an email message to the mailing list
+requesting help about the list. When the message is ready, send it
+as usual, via your MUA's send-email command."
+ (interactive nil rmail-mode)
+ (rmail--mailing-list-message 'help))
+
+(defun rmail-mailing-list-post ()
+ "Post a message to the mailing list which delivered the current message.
+This command starts composing an email message to the mailing list.
+Fill the Subject and the body of the message. When the message is
+ready, send it as usual, via your MUA's send-email command."
+ (interactive nil rmail-mode)
+ (rmail--mailing-list-message 'post))
+
+(defun rmail-mailing-list-unsubscribe ()
+ "Send unsubscribe request to the mailing list which delivered current
message.
+This command starts composing an email message to the mailing list
+requesting to unsubscribe you from the list. When the message is
+ready, send it as usual, via your MUA's send-email command."
+ (interactive nil rmail-mode)
+ (rmail--mailing-list-message 'unsubscribe))
+
+(defun rmail-mailing-list-archive ()
+ "Browse the archive of the mailing list which delivered the current message."
+ (interactive nil rmail-mode)
+ (let* ((header (rmail-get-header "List-Archive"))
+ (url (and (stringp header)
+ (string-match " *<\\([^>]*\\)>" header)
+ (match-string 1 header))))
+ (if url
+ (browse-url url)
+ (user-error
+ "This message does not specify a valid \"List-Archive\" URL"))))
(provide 'rmail)
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index f0aa0c6ecf5..78688d170cc 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -1068,52 +1068,51 @@ Returns an error if the server cannot be contacted."
(defun smtpmail-deduce-address-list (smtpmail-text-buffer header-start
header-end)
"Get address list suitable for smtp RCPT TO: <address>."
- (unwind-protect
- (with-current-buffer smtpmail-address-buffer
- (erase-buffer)
- (let ((case-fold-search t)
- (simple-address-list "")
- this-line
- this-line-end
- addr-regexp)
- (insert-buffer-substring smtpmail-text-buffer header-start header-end)
- (goto-char (point-min))
- ;; RESENT-* fields should stop processing of regular fields.
- (save-excursion
- (setq addr-regexp
- (if (re-search-forward "^Resent-\\(To\\|Cc\\|Bcc\\):"
- header-end t)
- "^Resent-\\(To\\|Cc\\|Bcc\\):"
- "^\\(To:\\|Cc:\\|Bcc:\\)")))
-
- (while (re-search-forward addr-regexp header-end t)
- (replace-match "")
- (setq this-line (match-beginning 0))
- (forward-line 1)
- ;; get any continuation lines
- (while (and (looking-at "^[ \t]+") (< (point) header-end))
- (forward-line 1))
- (setq this-line-end (point-marker))
- (setq simple-address-list
- (concat simple-address-list " "
- (mail-strip-quoted-names (buffer-substring this-line
this-line-end)))))
- (erase-buffer)
- (insert " " simple-address-list "\n")
- (subst-char-in-region (point-min) (point-max) 10 ? t) ; newline -->
blank
- (subst-char-in-region (point-min) (point-max) ?, ? t) ; comma -->
blank
- (subst-char-in-region (point-min) (point-max) 9 ? t) ; tab -->
blank
+ (with-current-buffer smtpmail-address-buffer
+ (erase-buffer)
+ (let ((case-fold-search t)
+ (simple-address-list "")
+ this-line
+ this-line-end
+ addr-regexp)
+ (insert-buffer-substring smtpmail-text-buffer header-start header-end)
+ (goto-char (point-min))
+ ;; RESENT-* fields should stop processing of regular fields.
+ (save-excursion
+ (setq addr-regexp
+ (if (re-search-forward "^Resent-\\(To\\|Cc\\|Bcc\\):"
+ header-end t)
+ "^Resent-\\(To\\|Cc\\|Bcc\\):"
+ "^\\(To:\\|Cc:\\|Bcc:\\)")))
+
+ (while (re-search-forward addr-regexp header-end t)
+ (replace-match "")
+ (setq this-line (match-beginning 0))
+ (forward-line 1)
+ ;; get any continuation lines
+ (while (and (looking-at "^[ \t]+") (< (point) header-end))
+ (forward-line 1))
+ (setq this-line-end (point-marker))
+ (setq simple-address-list
+ (concat simple-address-list " "
+ (mail-strip-quoted-names (buffer-substring this-line
this-line-end)))))
+ (erase-buffer)
+ (insert " " simple-address-list "\n")
+ (subst-char-in-region (point-min) (point-max) 10 ? t) ; newline -->
blank
+ (subst-char-in-region (point-min) (point-max) ?, ? t) ; comma -->
blank
+ (subst-char-in-region (point-min) (point-max) 9 ? t) ; tab -->
blank
- (goto-char (point-min))
- ;; tidiness in case hook is not robust when it looks at this
- (while (re-search-forward "[ \t]+" header-end t) (replace-match " "))
+ (goto-char (point-min))
+ ;; tidiness in case hook is not robust when it looks at this
+ (while (re-search-forward "[ \t]+" header-end t) (replace-match " "))
- (goto-char (point-min))
- (let (recipient-address-list)
- (while (re-search-forward " \\([^ ]+\\) " (point-max) t)
- (backward-char 1)
- (setq recipient-address-list (cons (buffer-substring
(match-beginning 1) (match-end 1))
- recipient-address-list)))
- (setq smtpmail-recipient-address-list recipient-address-list))))))
+ (goto-char (point-min))
+ (let (recipient-address-list)
+ (while (re-search-forward " \\([^ ]+\\) " (point-max) t)
+ (backward-char 1)
+ (setq recipient-address-list (cons (buffer-substring (match-beginning
1) (match-end 1))
+ recipient-address-list)))
+ (setq smtpmail-recipient-address-list recipient-address-list)))))
(defun smtpmail-do-bcc (header-end)
"Delete [Resent-]Bcc: and their continuation lines from the header area.
diff --git a/lisp/mail/uudecode.el b/lisp/mail/uudecode.el
index 7b3bad9e25c..4b9acd922d8 100644
--- a/lisp/mail/uudecode.el
+++ b/lisp/mail/uudecode.el
@@ -40,7 +40,7 @@ input and write the converted data to its standard output."
:type '(repeat string))
(defcustom uudecode-use-external
- (executable-find uudecode-decoder-program)
+ (not (not (executable-find uudecode-decoder-program)))
"Use external uudecode program."
:version "22.1"
:type 'boolean)
diff --git a/lisp/mail/yenc.el b/lisp/mail/yenc.el
index de1e1ee283a..a836f5b71bd 100644
--- a/lisp/mail/yenc.el
+++ b/lisp/mail/yenc.el
@@ -111,8 +111,8 @@
(message "Warning: Size mismatch while decoding."))
(goto-char start)
(delete-region start end)
- (insert-buffer-substring work-buffer))))
- (and work-buffer (kill-buffer work-buffer))))))
+ (insert-buffer-substring work-buffer)))))
+ (and work-buffer (kill-buffer work-buffer)))))
;;;###autoload
(defun yenc-extract-filename ()
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index d020cf6e90a..f6b87d1078d 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2567,10 +2567,11 @@ See `menu-bar-mode' for more information."
binding)))
(defun popup-menu (menu &optional position prefix from-menu-bar)
- "Popup the given menu and call the selected option.
+ "Popup MENU and call the selected option.
MENU can be a keymap, an easymenu-style menu or a list of keymaps as for
`x-popup-menu'.
-The menu is shown at the place where POSITION specifies.
+The menu is shown at the location specified by POSITION, which
+defaults to the place of the mouse click that popped the menu.
For the form of POSITION, see `popup-menu-normalize-position'.
PREFIX is the prefix argument (if any) to pass to the command.
FROM-MENU-BAR, if non-nil, means we are dropping one of menu-bar's menus."
diff --git a/lisp/mh-e/mh-print.el b/lisp/mh-e/mh-print.el
index 76116010b33..eeea94a69e5 100644
--- a/lisp/mh-e/mh-print.el
+++ b/lisp/mh-e/mh-print.el
@@ -79,8 +79,7 @@ commands \\[mh-ps-print-toggle-color] and
This is the function that actually does the work.
If FILE is nil, then the messages are spooled to the printer."
(mh-iterate-on-range msg range
- (unwind-protect
- (mh-ps-spool-msg msg))
+ (mh-ps-spool-msg msg)
(mh-notate msg mh-note-printed mh-cmd-note))
(ps-despool file))
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 01894689623..a1379913886 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -862,7 +862,18 @@ If a function returns a string, the returned string is
given to the
next function in the list, and if the last function returns a string,
it's displayed in the echo area.
If a function returns any other non-nil value, no more functions are
-called from the list, and no message will be displayed in the echo area."
+called from the list, and no message will be displayed in the echo area.
+
+Useful functions to add to this list are:
+
+ `inhibit-message' -- if this function is the first in the list,
+ messages that match the value of
+ `inhibit-message-regexps' will be suppressed.
+ `set-multi-message' -- accumulate multiple messages and display them
+ together as a single message.
+ `set-minibuffer-message' -- if the minibuffer is active, display the
+ message at the end of the minibuffer text
+ (this is the default)."
:type '(choice (const :tag "No special message handling" nil)
(repeat
(choice (function-item :tag "Inhibit some messages"
@@ -884,13 +895,18 @@ called from the list, and no message will be displayed in
the echo area."
message)
(defcustom inhibit-message-regexps nil
- "List of regexps that inhibit messages by the function `inhibit-message'."
+ "List of regexps that inhibit messages by the function `inhibit-message'.
+When the list in `set-message-functions' has `inhibit-message' as its
+first element, echo-area messages which match the value of this variable
+will not be displayed."
:type '(repeat regexp)
:version "29.1")
(defun inhibit-message (message)
"Don't display MESSAGE when it matches the regexp `inhibit-message-regexps'.
-This function is intended to be added to `set-message-functions'."
+This function is intended to be added to `set-message-functions'.
+To suppress display of echo-area messages that match `inhibit-message-regexps',
+make this function be the first element of `set-message-functions'."
(or (and (consp inhibit-message-regexps)
(string-match-p (mapconcat #'identity inhibit-message-regexps "\\|")
message))
@@ -912,6 +928,10 @@ This function is intended to be added to
`set-message-functions'."
(defun set-multi-message (message)
"Return recent messages as one string to display in the echo area.
+Individual messages will be separated by a newline.
+Up to `multi-message-max' messages can be accumulated, and the
+accumulated messages are discarded when `multi-message-timeout'
+seconds have elapsed since the first message.
Note that this feature works best only when `resize-mini-windows'
is at its default value `grow-only'."
(let ((last-message (car multi-message-list)))
@@ -2001,11 +2021,14 @@ completions."
(defcustom completions-header-format
(propertize "%s possible completions:\n" 'face 'shadow)
- "Format of completions header.
-It may contain one %s to show the total count of completions.
-When nil, no header is shown."
- :type '(choice (const :tag "No header" nil)
- (string :tag "Header format string"))
+ "If non-nil, the format string for completions heading line.
+The heading line is inserted before the completions, and is intended
+to summarize the completions.
+The format string may include one %s, which will be replaced with
+the total count of possible completions.
+If this is nil, no heading line will be shown."
+ :type '(choice (const :tag "No heading line" nil)
+ (string :tag "Format string for heading line"))
:version "29.1")
(defun completion--insert-strings (strings &optional group-fun)
diff --git a/lisp/misc.el b/lisp/misc.el
index ca013d5f72f..81769696f95 100644
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -166,18 +166,22 @@ is an upper-case character."
(upcase-region (point) (progn (forward-char arg) (point)))))
;;;###autoload
-(defun forward-to-word (arg)
- "Move forward until encountering the beginning of a word.
-With argument, do this that many times."
+(defun forward-to-word (&optional arg)
+ "Move forward until encountering the beginning of the ARGth word.
+ARG defaults to 1. When called interactively, ARG is the prefix
+numeric argument."
(interactive "^p")
+ (unless arg (setq arg 1))
(or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
(goto-char (if (> arg 0) (point-max) (point-min)))))
;;;###autoload
-(defun backward-to-word (arg)
- "Move backward until encountering the end of a word.
-With argument, do this that many times."
+(defun backward-to-word (&optional arg)
+ "Move backward until encountering the end of the ARGth word.
+ARG defaults to 1. When called interactively, ARG is the prefix
+numeric argument."
(interactive "^p")
+ (unless arg (setq arg 1))
(forward-to-word (- arg)))
;;;###autoload
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9c1a72bb368..3c30361ad7d 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -533,7 +533,8 @@ Some context functions add menu items below the separator."
(i 0))
(dolist (item (reverse yank-menu))
(when (consp item)
- (define-key submenu (vector (setq i (1+ i)))
+ (define-key submenu
+ (vector (intern (format "kill-%d" (setq i (1+ i)))))
`(menu-item ,(cadr item)
,(lambda () (interactive)
(mouse-yank-from-menu click (car item)))))))
diff --git a/lisp/mpc.el b/lisp/mpc.el
index db1da2ac030..b937a6b5945 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1104,7 +1104,7 @@ If PLAYLIST is t or nil or missing, use the main
playlist."
(interactive)
(mpc-constraints-push
'noerror)
(mpc-constraints-restore
- ',(list (list tag
text)))))))))
+ (list (list tag
text)))))))))
(funcall insert
(concat (when size
(propertize " " 'display
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 1be52d24e34..caa74159ecd 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -447,13 +447,12 @@ See also `text-scale-adjust'."
This invokes `global-text-scale-adjust', which see."
(interactive (list last-input-event))
(let ((button (mwheel-event-button event)))
- (unwind-protect
- (cond ((memq button (list mouse-wheel-down-event
- mouse-wheel-down-alternate-event))
- (global-text-scale-adjust 1))
- ((memq button (list mouse-wheel-up-event
- mouse-wheel-up-alternate-event))
- (global-text-scale-adjust -1))))))
+ (cond ((memq button (list mouse-wheel-down-event
+ mouse-wheel-down-alternate-event))
+ (global-text-scale-adjust 1))
+ ((memq button (list mouse-wheel-up-event
+ mouse-wheel-up-alternate-event))
+ (global-text-scale-adjust -1)))))
(defun mouse-wheel--add-binding (key fun)
"Bind mouse wheel button KEY to function FUN.
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index e21367135d3..16ec33f92dc 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4242,6 +4242,7 @@ directory, so that Emacs will know its current contents."
((eq identification 'user) user)
((eq identification 'host) host)
((eq identification 'localname) localname)
+ ((eq identification 'hop) nil)
(t (ange-ftp-replace-name-component file ""))))))
(defun ange-ftp-load (file &optional noerror nomessage nosuffix must-suffix)
@@ -4381,7 +4382,11 @@ NEWNAME should be the name to give the new compressed or
uncompressed file.")
(ange-ftp-real-find-backup-file-name fn)))
(defun ange-ftp-file-user-uid ()
- ;; Return "don't know" value.
+ ;; Return "don't know" value.
+ -1)
+
+(defun ange-ftp-file-group-gid ()
+ ;; Return "don't know" value.
-1)
;;; Define the handler for special file names
@@ -4524,8 +4529,9 @@ NEWNAME should be the name to give the new compressed or
uncompressed file.")
(put 'file-notify-rm-watch 'ange-ftp 'ignore)
(put 'file-notify-valid-p 'ange-ftp 'ignore)
-;; Return the "don't know' value for remote user uid.
+;; Return the "don't know" value for remote user uid and group gid.
(put 'file-user-uid 'ange-ftp 'ange-ftp-file-user-uid)
+(put 'file-group-gid 'ange-ftp 'ange-ftp-file-group-gid)
;;; Define ways of getting at unmodified Emacs primitives,
;;; turning off our handler.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 0177d12f236..39513b8f602 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -825,10 +825,17 @@ If optional arg TEMP-FILE-NAME is non-nil, delete it
instead."
(&optional localp no-error-if-not-filep))
;;;###autoload
-(defun browse-url-of-dired-file ()
- "In Dired, ask a WWW browser to display the file named on this line."
- (interactive)
+(defun browse-url-of-dired-file (&optional secondary)
+ "In Dired, ask a WWW browser to display the file named on this line.
+With prefix arg, use the secondary browser instead (e.g. EWW if
+`browse-url-secondary-browser-function' is set to
+`eww-browse-url'."
+ (interactive "P")
(let ((tem (dired-get-filename t t))
+ (browse-url-browser-function
+ (if secondary
+ browse-url-secondary-browser-function
+ browse-url-browser-function))
;; Some URL handlers open files in Emacs. We want to always
;; open in a browser, so disable those.
(browse-url-default-handlers nil))
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index f35d11db152..fff860b05c3 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -371,7 +371,11 @@ object is returned instead of a list containing this
single Lisp object.
(apply
#'dbus-message-internal dbus-message-type-method-call
bus service path interface method #'dbus-call-method-handler args))
- (result (cons :pending nil)))
+ (result (unless executing-kbd-macro (cons :pending nil))))
+
+ ;; While executing a keyboard macro, we run into an infinite loop,
+ ;; receiving the event -1. So we don't try to get the result.
+ ;; (Bug#62018)
;; Wait until `dbus-call-method-handler' has put the result into
;; `dbus-return-values-table'. If no timeout is given, use the
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index d9973b831ba..8d81b3ec9d8 100644
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -38,6 +38,8 @@
(require 'custom)
(require 'dictionary-connection)
(require 'button)
+(require 'help-mode)
+(require 'external-completion)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stuff for customizing.
@@ -247,6 +249,65 @@ is utf-8"
)))
:version "28.1")
+(defcustom dictionary-read-word-prompt "Search word"
+ "Prompt string to use when prompting for a word."
+ :type 'string
+ :version "30.1")
+
+(defcustom dictionary-display-definition-function nil
+ "Function to use for displaying dictionary definitions.
+It is called with three string arguments: the word being defined,
+the dictionary name, and the full definition."
+ :type '(choice (const :tag "Dictionary buffer" nil)
+ (const :tag "Help buffer"
+ dictionary-display-definition-in-help-buffer)
+ (function :tag "Custom function"))
+ :version "30.1")
+
+(defcustom dictionary-read-word-function #'dictionary-read-word-default
+ "Function to use for prompting for a word.
+It is called with one string argument, the name of the dictionary to use, and
+must return a string."
+ :type '(choice (const :tag "Default" dictionary-read-word-default)
+ (const :tag "Dictionary-based completion"
+ dictionary-completing-read-word)
+ (function :tag "Custom function"))
+ :version "30.1")
+
+(defcustom dictionary-read-dictionary-function
+ #'dictionary-read-dictionary-default
+ "Function to use for prompting for a dictionary.
+It is called with no arguments and must return a string."
+ :type '(choice (const :tag "Default" dictionary-read-dictionary-default)
+ (const :tag "Choose among server-provided dictionaries"
+ dictionary-completing-read-dictionary)
+ (function :tag "Custom function"))
+ :version "30.1")
+
+(defcustom dictionary-search-interface nil
+ "Controls how `dictionary-search' prompts for words and displays definitions.
+
+When set to `help', `dictionary-search' displays definitions in a *Help*
buffer,
+and provides completion for word selection based on dictionary matches.
+
+Otherwise, `dictionary-search' displays definitions in a *Dictionary* buffer."
+ :type '(choice (const :tag "Dictionary buffer" nil)
+ (const :tag "Help buffer" help))
+ :set (lambda (symbol value)
+ (let ((vals (pcase value
+ ('help '(dictionary-display-definition-in-help-buffer
+ dictionary-completing-read-word
+ dictionary-completing-read-dictionary))
+ (_ '(nil
+ dictionary-read-word-default
+ dictionary-read-dictionary-default)))))
+ (seq-setq (dictionary-display-definition-function
+ dictionary-read-word-function
+ dictionary-read-dictionary-function)
+ vals))
+ (set-default-toplevel-value symbol value))
+ :version "30.1")
+
(defface dictionary-word-definition-face
'((((supports (:family "DejaVu Serif")))
(:family "DejaVu Serif"))
@@ -366,6 +427,8 @@ is utf-8"
'()
"History list of searched word.")
+(defvar dictionary--last-match nil)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Basic function providing startup actions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -683,7 +746,6 @@ previous state."
"Save the current state and start a new search based on ARGS.
The parameter ARGS is a cons cell where car is the word to search
and cdr is the dictionary where to search the word in."
- (interactive)
(dictionary-store-positions)
(let ((word (car args))
(dictionary (cdr args)))
@@ -1140,6 +1202,20 @@ If PATTERN is omitted, it defaults to \"[
\\f\\t\\n\\r\\v]+\"."
((car (get-char-property (point) 'data)))
(t (current-word t))))
+(defun dictionary-read-dictionary-default ()
+ "Prompt for a dictionary name."
+ (read-string (if dictionary-default-dictionary
+ (format "Dictionary (%s): "
+ dictionary-default-dictionary)
+ "Dictionary: ")
+ nil nil dictionary-default-dictionary))
+
+(defun dictionary-read-word-default (_dictionary)
+ "Prompt for a word to search in the dictionary."
+ (let ((default (dictionary-search-default)))
+ (read-string (format-prompt dictionary-read-word-prompt default)
+ nil 'dictionary-word-history default)))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User callable commands
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1150,23 +1226,22 @@ If PATTERN is omitted, it defaults to \"[
\\f\\t\\n\\r\\v]+\"."
It presents the selection or word at point as default input and
allows editing it."
(interactive
- (list (let ((default (dictionary-search-default)))
- (read-string (format-prompt "Search word" default)
- nil 'dictionary-word-history default))
- (if current-prefix-arg
- (read-string (if dictionary-default-dictionary
- (format "Dictionary (%s): "
dictionary-default-dictionary)
- "Dictionary: ")
- nil nil dictionary-default-dictionary)
- dictionary-default-dictionary)))
-
- ;; if called by pressing the button
- (unless word
- (setq word (read-string "Search word: " nil 'dictionary-word-history)))
- ;; just in case non-interactively called
+ (let ((dict
+ (if current-prefix-arg
+ (funcall dictionary-read-dictionary-function)
+ dictionary-default-dictionary)))
+ (list (funcall dictionary-read-word-function dict) dict)))
(unless dictionary
(setq dictionary dictionary-default-dictionary))
- (dictionary-new-search (cons word dictionary)))
+ (if dictionary-display-definition-function
+ (if-let ((definition (dictionary-define-word word dictionary)))
+ (funcall dictionary-display-definition-function word dictionary
definition)
+ (user-error "No definition found for \"%s\"" word))
+ ;; if called by pressing the button
+ (unless word
+ (setq word (read-string "Search word: " nil 'dictionary-word-history)))
+ ;; just in case non-interactively called
+ (dictionary-new-search (cons word dictionary))))
;;;###autoload
(defun dictionary-lookup-definition ()
@@ -1258,7 +1333,6 @@ allows editing it."
:version "28.1")
(defun dictionary-definition (word &optional dictionary)
- (interactive)
(unwind-protect
(let ((dictionary (or dictionary dictionary-default-dictionary)))
(dictionary-do-search word dictionary 'dictionary-read-definition t))
@@ -1315,7 +1389,6 @@ tooltip mode. The hook function will check the value of
the
variable `dictionary-tooltip-mode' to decide if some action must be
taken. When disabling the tooltip mode the value of this variable
will be set to nil."
- (interactive)
(tooltip-mode on)
(if on
(add-hook 'tooltip-functions #'dictionary-display-tooltip)
@@ -1389,5 +1462,102 @@ the word at mouse click."
'dictionary-separator))
menu)
+(defun dictionary-define-word (word dictionary)
+ "Return the definition of WORD in DICTIONARY, or nil if not found."
+ (dictionary-send-command
+ (format "define %s \"%s\"" dictionary word))
+ (when (and (= (read (dictionary-read-reply)) 150)
+ (= (read (dictionary-read-reply)) 151))
+ (dictionary-read-answer)))
+
+(defun dictionary-match-word (word &rest _)
+ "Return dictionary matches for WORD as a list of strings.
+Further arguments are currently ignored."
+ (unless (string-empty-p word)
+ (if (string= (car dictionary--last-match) word)
+ (cdr dictionary--last-match)
+ (dictionary-send-command
+ (format "match %s %s \"%s\""
+ dictionary-default-dictionary
+ dictionary-default-strategy
+ word))
+ (when (and (= (read (dictionary-read-reply)) 152))
+ (with-temp-buffer
+ (insert (dictionary-read-answer))
+ (goto-char (point-min))
+ (let ((result nil))
+ (while (not (eobp))
+ (search-forward " " nil t)
+ (push (read (current-buffer)) result)
+ (search-forward "\n" nil t))
+ (setq result (reverse result))
+ (setq dictionary--last-match (cons word result))
+ result))))))
+
+(defun dictionary-completing-read-word (dictionary)
+ "Prompt for a word with completion based on matches in DICTIONARY."
+ (let* ((completion-ignore-case t)
+ (dictionary-default-dictionary dictionary)
+ (word-at-point (thing-at-point 'word t))
+ (default (dictionary-match-word word-at-point)))
+ (completing-read (format-prompt dictionary-read-word-prompt default)
+ (external-completion-table 'dictionary-definition
+ #'dictionary-match-word)
+ nil t nil 'dictionary-word-history default t)))
+
+(defun dictionary-dictionaries ()
+ "Return the list of dictionaries the server supports."
+ (dictionary-send-command "show db")
+ (when (and (= (read (dictionary-read-reply)) 110))
+ (with-temp-buffer
+ (insert (dictionary-read-answer))
+ (goto-char (point-min))
+ (let ((result '(("!" . "First matching dictionary")
+ ("*" . "All dictionaries"))))
+ (while (not (eobp))
+ (push (cons (buffer-substring
+ (search-forward "\n" nil t)
+ (1- (search-forward " " nil t)))
+ (read (current-buffer)))
+ result))
+ (reverse result)))))
+
+(defun dictionary-completing-read-dictionary ()
+ "Prompt for a dictionary the server supports."
+ (let* ((dicts (dictionary-dictionaries))
+ (len (apply #'max (mapcar #'length (mapcar #'car dicts))))
+ (completion-extra-properties
+ (list :annotation-function
+ (lambda (key)
+ (concat (make-string (1+ (- len (length key))) ?\s)
+ (alist-get key dicts nil nil #'string=))))))
+ (completing-read (format-prompt "Select dictionary"
+ dictionary-default-dictionary)
+ dicts nil t nil nil dictionary-default-dictionary)))
+
+(define-button-type 'help-word
+ :supertype 'help-xref
+ 'help-function 'dictionary-search
+ 'help-echo "mouse-2, RET: describe this word")
+
+(defun dictionary-display-definition-in-help-buffer (word dictionary
definition)
+ "Display DEFINITION, the definition of WORD in DICTIONARY."
+ (let ((help-buffer-under-preparation t))
+ (help-setup-xref (list #'dictionary-search word dictionary)
+ (called-interactively-p 'interactive))
+ (with-help-window (help-buffer)
+ (with-current-buffer (help-buffer)
+ (insert definition)
+ ;; Buttonize references to other definitions. These appear as
+ ;; words enclosed with curly braces.
+ (goto-char (point-min))
+ (while (re-search-forward (rx "{"
+ (group-n 1 (* (not (any ?}))))
+ "}")
+ nil t)
+ (help-xref-button 1 'help-word
+ (match-string 1)
+ dictionary))))))
+
(provide 'dictionary)
;;; dictionary.el ends here
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 12f5347bd35..b6b06f0c9fa 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -441,7 +441,12 @@ BBDB fields. SPECs are sexps which are evaluated:
"LDAP attributes which are always searched for without wildcard character.
This is the list of special dictionary-valued attributes, where
wildcarded search may fail. For example, it fails with
-objectclass in Active Directory servers."
+objectclass in Active Directory servers.
+
+You may not want functions like `eudc-query-form' and
+`eudc-expand-inline' to do LDAP wildcard expansion by default on
+certain fields. If so, add the relevant symbol to this list, for
+example `mail' for the \"E-Mail\" field."
:type '(repeat (symbol :tag "Directory attribute")))
diff --git a/lisp/net/eudcb-mab.el b/lisp/net/eudcb-mab.el
index 08fc20f438a..805c742d9e0 100644
--- a/lisp/net/eudcb-mab.el
+++ b/lisp/net/eudcb-mab.el
@@ -86,7 +86,8 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
((eq (car term) 'email)
(unless (string= (cdr term) mail)
(setq matched nil)))
- ((eq (car term) 'phone))))
+ ;; ((eq (car term) 'phone))
+ ))
(when matched
(setq result
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 73d11c0ef52..61f0f47373d 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -64,16 +64,23 @@ The action to be taken can be further customized via
:version "28.1"
:type 'regexp)
+(defcustom eww-default-download-directory "~/Downloads/"
+ "Default directory where `eww' saves downloaded files.
+Used by `eww--download-directory', which see."
+ :version "29.1"
+ :group 'eww
+ :type 'directory)
+
(defun eww--download-directory ()
- "Return the name of the download directory.
-If ~/Downloads/ exists, that will be used, and if not, the
-DOWNLOAD XDG user directory will be returned. If that's
-undefined, ~/Downloads/ is returned anyway."
- (or (and (file-exists-p "~/Downloads/")
- "~/Downloads/")
+ "Return the name of the EWW download directory.
+The default is specified by `eww-default-download-directory'; however,
+if that directory doesn't exist and the DOWNLOAD XDG user directory
+is defined, use the latter instead."
+ (or (and (file-exists-p eww-default-download-directory)
+ eww-default-download-directory)
(when-let ((dir (xdg-user-dir "DOWNLOAD")))
(file-name-as-directory dir))
- "~/Downloads/"))
+ eww-default-download-directory))
(defcustom eww-download-directory 'eww--download-directory
"Directory where files will downloaded.
@@ -87,7 +94,8 @@ no parameters) that returns a directory name."
(defcustom eww-suggest-uris
'(eww-links-at-point
thing-at-point-url-at-point
- eww-current-url)
+ eww-current-url
+ eww-bookmark-urls)
"List of functions called to form the list of default URIs for `eww'.
Each of the elements is a function returning either a string or a list
of strings. The results will be joined into a single list with
@@ -97,7 +105,8 @@ duplicate entries (if any) removed."
:type 'hook
:options '(eww-links-at-point
thing-at-point-url-at-point
- eww-current-url))
+ eww-current-url
+ eww-bookmark-urls))
(defcustom eww-bookmarks-directory user-emacs-directory
"Directory where bookmark files will be stored."
@@ -319,9 +328,15 @@ parameter, and should return the (possibly) transformed
URL."
"<mouse-2>" #'eww-follow-link)
(defvar-keymap eww-image-link-keymap
- :parent shr-map
+ :parent shr-image-map
"RET" #'eww-follow-link)
+(defvar-keymap eww-minibuffer-url-keymap
+ :doc "Keymap used in the minibuffer prompt for URLs or keywords."
+ :parent minibuffer-local-completion-map
+ "SPC" #'self-insert-command
+ "?" #'self-insert-command)
+
(defun eww-suggested-uris nil
"Return the list of URIs to suggest at the `eww' prompt.
This list can be customized via `eww-suggest-uris'."
@@ -370,10 +385,12 @@ killed after rendering.
For more information, see Info node `(eww) Top'."
(interactive
- (let ((uris (eww-suggested-uris)))
- (list (read-string (format-prompt "Enter URL or keywords"
- (and uris (car uris)))
- nil 'eww-prompt-history uris)
+ (let ((uris (eww-suggested-uris))
+ (minibuffer-local-completion-map eww-minibuffer-url-keymap))
+ (list (completing-read (format-prompt "Enter URL or keywords"
+ (and uris (car uris)))
+ (seq-uniq (append eww-prompt-history uris))
+ nil nil nil 'eww-prompt-history uris)
current-prefix-arg)))
(setq url (eww--dwim-expand-url url))
(pop-to-buffer-same-window
@@ -1008,7 +1025,7 @@ the like."
(list 'base (list (cons 'href base))
(eww-highest-readability dom))
nil (current-buffer))
- (dolist (elem '(:source :url :title :next :previous :up))
+ (dolist (elem '(:source :url :title :next :previous :up :peer))
(plist-put eww-data elem (plist-get old-data elem)))
(eww--after-page-change)))
@@ -2220,6 +2237,12 @@ If ERROR-OUT, signal user-error if there are no
bookmarks."
'eww-bookmark)))
(eww-browse-url (plist-get bookmark :url))))
+(defun eww-bookmark-urls ()
+ "Get the URLs from the current list of bookmarks."
+ (interactive nil eww-boomark-mode)
+ (eww-read-bookmarks)
+ (mapcar (lambda (x) (plist-get x :url)) eww-bookmarks))
+
(defvar-keymap eww-bookmark-mode-map
"C-k" #'eww-bookmark-kill
"C-y" #'eww-bookmark-yank
diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el
index 10c5a7744c1..4d01737e3e6 100644
--- a/lisp/net/mailcap.el
+++ b/lisp/net/mailcap.el
@@ -979,7 +979,7 @@ If NO-DECODE is non-nil, don't decode STRING."
(".vox" . "audio/basic")
(".vrml" . "x-world/x-vrml")
(".wav" . "audio/x-wav")
- (".xls" . "application/vnd\\.ms-excel")
+ (".xls" . "application/vnd.ms-excel")
(".wrl" . "x-world/x-vrml")
(".xbm" . "image/xbm")
(".xpm" . "image/xpm")
@@ -1051,8 +1051,7 @@ If FORCE, re-parse even if already parsed."
(setq save-pos (point))
(skip-chars-forward "^ \t\n")
(downcase-region save-pos (point))
- (setq type (mailcap--regexp-quote-type
- (buffer-substring save-pos (point))))
+ (setq type (buffer-substring save-pos (point)))
(while (not (eolp))
(skip-chars-forward " \t")
(setq save-pos (point))
@@ -1065,12 +1064,6 @@ If FORCE, re-parse even if already parsed."
(setq mailcap-mime-extensions (append extns mailcap-mime-extensions)
extns nil)))))
-(defun mailcap--regexp-quote-type (type)
- (if (not (string-search "/" type))
- type
- (pcase-let ((`(,major ,minor) (split-string type "/")))
- (concat major "/" (regexp-quote minor)))))
-
(defun mailcap-extension-to-mime (extn)
"Return the MIME content type of the file extensions EXTN."
(mailcap-parse-mimetypes)
@@ -1107,7 +1100,7 @@ For instance, `image/png' will result in `png'."
(dolist (info (cdr data))
(setq type (cdr (assq 'type (cdr info))))
(unless (string-search "*" type)
- (push type res))))
+ (push (string-replace "\\" "" type) res))))
(nreverse res)))))
;;;
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index ea4318e21b5..cb725c0674e 100644
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -774,11 +774,11 @@ and `network-connection-service-alist', which see."
(process-name (concat "Finger [" user-and-host "]"))
(regexps finger-X.500-host-regexps)
) ;; found
- (and regexps
- (while (not (string-match (car regexps) host))
- (setq regexps (cdr regexps)))
- (when regexps
- (setq user-and-host user)))
+ (when regexps
+ (while (not (string-match (car regexps) host))
+ (setq regexps (cdr regexps)))
+ (when regexps
+ (setq user-and-host user)))
(run-network-program
process-name
host
diff --git a/lisp/net/ntlm.el b/lisp/net/ntlm.el
index 356bf95669f..c92c90bf694 100644
--- a/lisp/net/ntlm.el
+++ b/lisp/net/ntlm.el
@@ -98,7 +98,6 @@ USER is a string representing a user name to be authenticated
and
DOMAIN is a NT domain. USER can include a NT domain part as in
user@domain where the string after @ is used as the domain if DOMAIN
is not given."
- (interactive)
(let ((request-ident (concat "NTLMSSP" (make-string 1 0)))
(request-msgType (concat (make-string 1 1) (make-string 3 0)))
;0x01 0x00 0x00 0x00
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 5e4aa5e1198..0ee52d8ef6c 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -584,7 +584,7 @@ If ARG is non-nil, instead prompt for connection
parameters."
(condition-case nil
(let ((process (rcirc-connect server port nick user-name
full-name channels
password encryption
- client-cert server-alias)))
+ server-alias client-cert)))
(when rcirc-display-server-buffer
(pop-to-buffer-same-window (process-buffer
process))))
(quit (message "Quit connecting to %s"
@@ -680,7 +680,7 @@ See `rcirc-connect' for more details on these variables.")
;;;###autoload
(defun rcirc-connect (server &optional port nick user-name
full-name startup-channels password encryption
- certfp server-alias)
+ server-alias certfp)
"Connect to SERVER.
The arguments PORT, NICK, USER-NAME, FULL-NAME, PASSWORD,
ENCRYPTION, CERTFP, SERVER-ALIAS are interpreted as in
@@ -1233,9 +1233,9 @@ If SILENT is non-nil, do not print the message in any irc
buffer."
(let ((response (if noticep "NOTICE" "PRIVMSG")))
(rcirc-get-buffer-create process target)
(dolist (msg (rcirc-split-message message))
- (rcirc-send-string process response target : msg)
(unless silent
- (rcirc-print process (rcirc-nick process) response target msg)))))
+ (rcirc-print process (rcirc-nick process) response target msg))
+ (rcirc-send-string process response target : msg))))
(defvar-local rcirc-input-ring nil
"Ring object for input.")
@@ -2034,7 +2034,7 @@ connection."
(not (string= sender (rcirc-nick process))))
(let* ((buffer (rcirc-target-buffer process sender response target text))
(time (if-let ((time (rcirc-get-tag "time")))
- (parse-iso8601-time-string time)
+ (parse-iso8601-time-string time t)
(current-time)))
(inhibit-read-only t))
(with-current-buffer buffer
@@ -2204,7 +2204,7 @@ The message is logged in `rcirc-log', and is later
written to
disk. PROCESS is the process object for the current connection."
(let ((filename (funcall rcirc-log-filename-function process target))
(time (and-let* ((time (rcirc-get-tag "time")))
- (parse-iso8601-time-string time))))
+ (parse-iso8601-time-string time t))))
(unless (null filename)
(let ((cell (assoc-string filename rcirc-log-alist))
(line (concat (format-time-string rcirc-time-format time)
@@ -2998,7 +2998,7 @@ If ARG is given, opens the URL in a new browser window."
"Insert a timestamp."
(goto-char (point-min))
(let ((time (and-let* ((time (rcirc-get-tag "time")))
- (parse-iso8601-time-string time))))
+ (parse-iso8601-time-string time t))))
(insert (rcirc-facify (format-time-string rcirc-time-format time)
'rcirc-timestamp))))
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index f4e68d7b817..08ab942fddb 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -687,13 +687,38 @@ ITEM can also be an object path, which is returned if
contained in COLLECTION."
item (secrets-get-item-property item-path "Label"))
(throw 'item-found item-path)))))))
+(defun secrets-lock-item (collection item)
+ "Lock collection item labeled ITEM in COLLECTION.
+If successful, return the object path of the item. Does not lock
+the collection."
+ (let ((item-path (secrets-item-path collection item)))
+ (unless (secrets-empty-path item-path)
+ (secrets-prompt
+ (cadr
+ (dbus-call-method
+ :session secrets-service secrets-path secrets-interface-service
+ "Lock" `(:array :object-path ,item-path)))))
+ item-path))
+
+(defun secrets-unlock-item (collection item)
+ "Unlock item labeled ITEM from collection labeled COLLECTION.
+If successful, return the object path of the item."
+ (let ((item-path (secrets-item-path collection item)))
+ (unless (secrets-empty-path item-path)
+ (secrets-prompt
+ (cadr
+ (dbus-call-method
+ :session secrets-service secrets-path secrets-interface-service
+ "Unlock" `(:array :object-path ,item-path)))))
+ item-path))
+
(defun secrets-get-secret (collection item)
"Return the secret of item labeled ITEM in COLLECTION.
If there are several items labeled ITEM, it is undefined which
one is returned. If there is no such item, return nil.
ITEM can also be an object path, which is used if contained in COLLECTION."
- (let ((item-path (secrets-item-path collection item)))
+ (let ((item-path (secrets-unlock-item collection item)))
(unless (secrets-empty-path item-path)
(dbus-byte-array-to-string
(nth 2
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9c2ae98d77e..9b19a1b3980 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -276,7 +276,7 @@ and other things:
(defvar-keymap shr-map
"a" #'shr-show-alt-text
- "i" #'shr-browse-image
+ "M-i" #'shr-browse-image
"z" #'shr-zoom-image
"TAB" #'shr-next-link
"C-M-i" #'shr-previous-link
@@ -1215,7 +1215,6 @@ START, and END. Note that START and END should be
markers."
(add-text-properties
start (point)
(list 'shr-url url
- 'shr-tab-stop t
'button t
'category 'shr ; For button.el button buffers.
'help-echo (let ((parsed (url-generic-parse-url
@@ -1240,6 +1239,8 @@ START, and END. Note that START and END should be
markers."
;; Make separate regions not `eq' so that they'll get
;; separate mouse highlights.
'mouse-face (list 'highlight)))
+ (when (< start (point))
+ (add-text-properties start (1+ start) '(shr-tab-stop t)))
;; Don't overwrite any keymaps that are already in the buffer (i.e.,
;; image keymaps).
(while (and start
@@ -2529,7 +2530,7 @@ flags that control whether to collect or render objects."
(setq natural-width
(or (dom-attr dom 'shr-td-cache-natural)
(let ((natural (max (shr-pixel-buffer-width)
- (shr-dom-max-natural-width dom 0))))
+ (shr-dom-max-natural-width dom))))
(dom-set-attribute dom 'shr-td-cache-natural natural)
natural))))
(if (and natural-width
@@ -2558,22 +2559,18 @@ flags that control whether to collect or render
objects."
(cdr (assq 'color shr-stylesheet))
(cdr (assq 'background-color shr-stylesheet))))))
-(defun shr-dom-max-natural-width (dom max)
- (if (eq (dom-tag dom) 'table)
- (max max (or
- (cl-loop
- for line in (dom-attr dom 'shr-suggested-widths)
- maximize (+
- shr-table-separator-length
- (cl-loop for elem in line
- summing
- (+ (cdr elem)
- (* 2 shr-table-separator-length)))))
- 0))
- (dolist (child (dom-children dom))
- (unless (stringp child)
- (setq max (max (shr-dom-max-natural-width child max)))))
- max))
+(defun shr-dom-max-natural-width (dom)
+ (or (if (eq (dom-tag dom) 'table)
+ (cl-loop for line in (dom-attr dom 'shr-suggested-widths)
+ maximize (+ shr-table-separator-length
+ (cl-loop for elem in line
+ summing
+ (+ (cdr elem)
+ (* 2 shr-table-separator-length)))))
+ (cl-loop for child in (dom-children dom)
+ unless (stringp child)
+ maximize (shr-dom-max-natural-width child)))
+ 0))
(defun shr-buffer-width ()
(goto-char (point-min))
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index e4b8bbd9cb5..010e86354b6 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -5,7 +5,7 @@
;; Author: Alexandru Harsanyi <AlexHarsanyi@gmail.com>
;; Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
;; Created: December, 2009
-;; Version: 3.2.1
+;; Version: 3.2.3
;; Keywords: soap, web-services, comm, hypermedia
;; Package: soap-client
;; URL: https://github.com/alex-hhh/emacs-soap-client
@@ -717,9 +717,9 @@ representing leap seconds."
second)
minute hour day month year second-fraction datatype time-zone)
(let ((time
- (encode-time (list
- (if new-decode-time new-decode-time-second second)
- minute hour day month year nil nil time-zone))))
+ ;; Call encode-time the old way, for Emacs<27.
+ (encode-time (if new-decode-time new-decode-time-second second)
+ minute hour day month year time-zone)))
(if new-decode-time
(with-no-warnings (decode-time time nil t))
(decode-time time))))))
@@ -946,7 +946,7 @@ This is a specialization of `soap-encode-attributes' for
(t nil)))
(defun soap-type-is-array? (type)
- "Return t if TYPE defines an ARRAY."
+ "Return t if TYPE is an ARRAY."
(and (soap-xs-complex-type-p type)
(eq (soap-xs-complex-type-indicator type) 'array)))
diff --git a/lisp/net/socks.el b/lisp/net/socks.el
index adf8b357dc3..968a28d2be8 100644
--- a/lisp/net/socks.el
+++ b/lisp/net/socks.el
@@ -328,7 +328,6 @@
(advice-add 'open-network-stream :around #'socks--open-network-stream))
(defun socks-open-connection (server-info)
- (interactive)
(save-excursion
(let ((proc
(let ((socks-override-functions nil))
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index f8c38859477..2b5369ea3b5 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -130,6 +130,7 @@ It is used for TCP/IP devices."
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-adb-handle-file-executable-p)
(file-exists-p . tramp-adb-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-adb-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -432,31 +433,32 @@ Emacs dired can't find files."
(defun tramp-adb-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for Tramp files."
- (all-completions
- filename
- (with-parsed-tramp-file-name (expand-file-name directory) nil
- (with-tramp-file-property v localname "file-name-all-completions"
- (tramp-adb-send-command
- v (format "%s -a %s | cat"
- (tramp-adb-get-ls-command v)
- (tramp-shell-quote-argument localname)))
- (mapcar
- (lambda (f)
- (if (file-directory-p (expand-file-name f directory))
- (file-name-as-directory f)
- f))
- (with-current-buffer (tramp-get-buffer v)
- (delete-dups
- (append
- ;; On some file systems like "sdcard", "." and ".." are
- ;; not included. We fix this by `delete-dups'.
- '("." "..")
- (delq
- nil
- (mapcar
- (lambda (l)
- (and (not (string-match-p (rx bol (* blank) eol) l)) l))
- (split-string (buffer-string) "\n")))))))))))
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (with-parsed-tramp-file-name (expand-file-name directory) nil
+ (with-tramp-file-property v localname "file-name-all-completions"
+ (tramp-adb-send-command
+ v (format "%s -a %s | cat"
+ (tramp-adb-get-ls-command v)
+ (tramp-shell-quote-argument localname)))
+ (mapcar
+ (lambda (f)
+ (if (file-directory-p (expand-file-name f directory))
+ (file-name-as-directory f)
+ f))
+ (with-current-buffer (tramp-get-buffer v)
+ (delete-dups
+ (append
+ ;; On some file systems like "sdcard", "." and ".." are
+ ;; not included. We fix this by `delete-dups'.
+ '("." "..")
+ (delq
+ nil
+ (mapcar
+ (lambda (l)
+ (and (not (string-match-p (rx bol (* blank) eol) l)) l))
+ (split-string (buffer-string) "\n"))))))))))))
(defun tramp-adb-handle-file-local-copy (filename)
"Like `file-local-copy' for Tramp files."
@@ -989,7 +991,7 @@ implementation will be used."
(progn
(goto-char (point-min))
(not (search-forward "\n" nil t)))
- (tramp-accept-process-output p 0))
+ (tramp-accept-process-output p))
(delete-region (point-min) (point)))
;; Provide error buffer. This shows only
;; initial error messages; messages
@@ -999,6 +1001,7 @@ implementation will be used."
;; deleted.
(when (bufferp stderr)
(ignore-errors
+ (tramp-taint-remote-process-buffer stderr)
(with-current-buffer stderr
(insert-file-contents-literally
remote-tmpstderr 'visit)))
@@ -1236,8 +1239,6 @@ connection if a previous connection has died for some
reason."
tramp-adb-program args)))
(prompt (md5 (concat (prin1-to-string process-environment)
(current-time-string)))))
- (tramp-message
- vec 6 "%s" (string-join (process-command p) " "))
;; Wait for initial prompt. On some devices, it needs an
;; initial RET, in order to get it.
(sleep-for 0.1)
@@ -1246,11 +1247,9 @@ connection if a previous connection has died for some
reason."
(unless (process-live-p p)
(tramp-error vec 'file-error "Terminated!"))
- ;; Set sentinel and query flag. Initialize variables.
+ ;; Set sentinel. Initialize variables.
(set-process-sentinel p #'tramp-process-sentinel)
- (process-put p 'vector vec)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)
@@ -1310,6 +1309,7 @@ connection if a previous connection has died for some
reason."
(tramp-set-connection-property p "connected" t)))))))
;;; Default connection-local variables for Tramp.
+
(defconst tramp-adb-connection-local-default-shell-variables
'((shell-file-name . "/system/bin/sh")
(shell-command-switch . "-c"))
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 97adb36c4af..6fcb0ae5e69 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -242,6 +242,7 @@ It must be supported by libarchive(3).")
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-archive-handle-file-executable-p)
(file-exists-p . tramp-archive-handle-file-exists-p)
+ (file-group-gid . tramp-archive-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-archive-handle-file-local-copy)
(file-locked-p . ignore)
@@ -644,13 +645,22 @@ offered."
"Like `file-exists-p' for file archives."
(file-exists-p (tramp-archive-gvfs-file-name filename)))
+(defun tramp-archive-handle-file-group-gid ()
+ "Like `file-group-gid' for file archives."
+ (with-parsed-tramp-archive-file-name default-directory nil
+ (let ((default-directory (file-name-directory archive)))
+ ;; `file-group-gid' exists since Emacs 30.1.
+ (tramp-compat-funcall 'file-group-gid))))
+
(defun tramp-archive-handle-file-local-copy (filename)
"Like `file-local-copy' for file archives."
(file-local-copy (tramp-archive-gvfs-file-name filename)))
(defun tramp-archive-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for file archives."
- (file-name-all-completions filename (tramp-archive-gvfs-file-name
directory)))
+ (ignore-error file-missing
+ (file-name-all-completions
+ filename (tramp-archive-gvfs-file-name directory))))
(defun tramp-archive-handle-file-readable-p (filename)
"Like `file-readable-p' for file archives."
@@ -670,7 +680,7 @@ offered."
(concat (file-truename archive) local))))
(defun tramp-archive-handle-file-user-uid ()
- "Like `user-uid' for file archives."
+ "Like `file-user-uid' for file archives."
(with-parsed-tramp-archive-file-name default-directory nil
(let ((default-directory (file-name-directory archive)))
;; `file-user-uid' exists since Emacs 30.1.
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index c5864e7fa5e..e0d38853956 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -496,12 +496,12 @@ PROPERTIES is a list of file properties (strings)."
(cons property (gethash property hash tramp-cache-undefined)))
,properties)))
(unwind-protect (progn ,@body)
- ;; Reset PROPERTIES. Recompute hash, it could have been flushed.
- (setq hash (tramp-get-hash-table ,key))
- (dolist (value values)
- (if (not (eq (cdr value) tramp-cache-undefined))
- (puthash (car value) (cdr value) hash)
- (remhash (car value) hash)))))))
+ ;; Reset PROPERTIES. Recompute hash, it could have been flushed.
+ (setq hash (tramp-get-hash-table ,key))
+ (dolist (value values)
+ (if (not (eq (cdr value) tramp-cache-undefined))
+ (puthash (car value) (cdr value) hash)
+ (remhash (car value) hash)))))))
;;;###tramp-autoload
(defun tramp-cache-print (table)
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index 6627ef47ee2..07f449a3a2e 100644
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -123,7 +123,7 @@ When called interactively, a Tramp connection has to be
selected."
;; Delete processes.
(dolist (key (hash-table-keys tramp-cache-data))
(when (and (processp key)
- (tramp-file-name-equal-p (process-get key 'vector) vec)
+ (tramp-file-name-equal-p (process-get key 'tramp-vector) vec)
(or (not keep-processes)
(eq key (tramp-get-process vec))))
(tramp-flush-connection-properties key)
@@ -207,17 +207,76 @@ This includes password cache, file cache, connection
cache, buffers."
;; The end.
(run-hooks 'tramp-cleanup-all-connections-hook))
+(defcustom tramp-cleanup-some-buffers-hook nil
+ "Hook for `tramp-cleanup-some-buffers'.
+The functions determine which buffers shall be killed. This
+happens when at least one of the functions returns non-nil. The
+functions are called with `current-buffer' set."
+ :group 'tramp
+ :version "30.1"
+ :type 'hook)
+
+(add-hook 'tramp-cleanup-some-buffers-hook
+ #'buffer-file-name)
+
+(defun tramp-cleanup-dired-buffer-p ()
+ "Return t if current buffer runs `dired-mode'."
+ (derived-mode-p 'dired-mode))
+
+(add-hook 'tramp-cleanup-some-buffers-hook
+ #'tramp-cleanup-dired-buffer-p)
+
+(defvar tramp-tainted-remote-process-buffers nil
+ "List of process buffers to be cleaned up.")
+
+(defun tramp-delete-tainted-remote-process-buffer-function ()
+ "Delete current buffer from `tramp-tainted-remote-process-buffers'."
+ (setq tramp-tainted-remote-process-buffers
+ (delete (current-buffer) tramp-tainted-remote-process-buffers)))
+
;;;###tramp-autoload
-(defun tramp-cleanup-all-buffers ()
- "Kill all remote buffers."
+(defun tramp-taint-remote-process-buffer (buffer)
+ "Mark buffer as related to remote processes."
+ (add-to-list 'tramp-tainted-remote-process-buffers buffer))
+
+(add-hook 'kill-buffer-hook
+ #'tramp-delete-tainted-remote-process-buffer-function)
+(add-hook 'tramp-unload-hook
+ (lambda ()
+ (remove-hook 'kill-buffer-hook
+
#'tramp-delete-tainted-remote-process-buffer-function)))
+
+(defun tramp-cleanup-remote-process-p ()
+ "Return t if current buffer belongs to a remote process."
+ (memq (current-buffer) tramp-tainted-remote-process-buffers))
+
+(add-hook 'tramp-cleanup-some-buffers-hook
+ #'tramp-cleanup-remote-process-p)
+
+;;;###tramp-autoload
+(defun tramp-cleanup-some-buffers ()
+ "Kill some remote buffers.
+A buffer is killed when it has a remote `default-directory', and
+one of the functions in `tramp-cleanup-some-buffers-hook' returns
+non-nil."
(interactive)
;; Remove all Tramp related connections.
(tramp-cleanup-all-connections)
- ;; Remove all buffers with a remote default-directory.
+ ;; Remove all buffers with a remote default-directory which fit the hook.
(dolist (name (tramp-list-remote-buffers))
- (when (bufferp (get-buffer name)) (kill-buffer name))))
+ (and (buffer-live-p (get-buffer name))
+ (with-current-buffer (get-buffer name)
+ (run-hook-with-args-until-success 'tramp-cleanup-some-buffers-hook))
+ (kill-buffer name))))
+
+;;;###tramp-autoload
+(defun tramp-cleanup-all-buffers ()
+ "Kill all remote buffers."
+ (interactive)
+ (let ((tramp-cleanup-some-buffers-hook '(tramp-compat-always)))
+ (tramp-cleanup-some-buffers)))
(defcustom tramp-default-rename-alist nil
"Default target for renaming remote buffer file names.
@@ -319,7 +378,7 @@ The remote connection identified by SOURCE is flushed by
(read-file-name-function #'read-file-name-default)
source target)
(if (null connections)
- (tramp-user-error nil "There are no remote connections.")
+ (tramp-user-error nil "There are no remote connections")
(setq source
;; Likely, the source remote connection is broken. So we
;; shall avoid any action on it.
@@ -367,15 +426,15 @@ The remote connection identified by SOURCE is flushed by
(list source target)))
(unless (tramp-tramp-file-p source)
- (tramp-user-error nil "Source %s must be remote." source))
+ (tramp-user-error nil "Source %s must be remote" source))
(when (null target)
(or (setq target (tramp-default-rename-file source))
(tramp-user-error
nil
(concat "There is no target specified. "
- "Check `tramp-default-rename-alist' for a proper entry."))))
+ "Check `tramp-default-rename-alist' for a proper entry"))))
(when (tramp-equal-remote source target)
- (tramp-user-error nil "Source and target must have different remote."))
+ (tramp-user-error nil "Source and target must have different remote"))
;; Append local file name if none is specified.
(when (string-equal (file-remote-p target) target)
@@ -461,7 +520,7 @@ For details, see `tramp-rename-files'."
nil
(substitute-command-keys
(concat "Current buffer is not remote. "
- "Consider `\\[tramp-rename-files]' instead.")))
+ "Consider `\\[tramp-rename-files]' instead")))
(setq target
(when (null current-prefix-arg)
;; The source remote connection shall not trigger any action.
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 420d6cadb9c..40ea47ede40 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -29,12 +29,14 @@
;;; Code:
+(require 'ansi-color)
(require 'auth-source)
(require 'format-spec)
(require 'ls-lisp) ;; Due to `tramp-handle-insert-directory'.
(require 'parse-time)
(require 'shell)
(require 'subr-x)
+(require 'xdg)
(declare-function tramp-error "tramp")
(declare-function tramp-tramp-file-p "tramp")
@@ -64,9 +66,16 @@
(with-no-warnings (funcall ,function ,@arguments))))
;; We must use a local directory. If it is remote, we could run into
-;; an infloop.
+;; an infloop. We try to follow the XDG specification, for security reasons.
(defconst tramp-compat-temporary-file-directory
- (eval (car (get 'temporary-file-directory 'standard-value)) t)
+ (file-name-as-directory
+ (if-let ((xdg (xdg-cache-home))
+ ((file-directory-p xdg))
+ ((file-writable-p xdg)))
+ ;; We can use `file-name-concat' starting with Emacs 28.1.
+ (prog1 (setq xdg (concat (file-name-as-directory xdg) "emacs"))
+ (make-directory xdg t))
+ (eval (car (get 'temporary-file-directory 'standard-value)) t)))
"The default value of `temporary-file-directory'.")
(defsubst tramp-compat-make-temp-name ()
@@ -219,6 +228,16 @@ Add the extension of F, if existing."
(lambda (sequence length)
(= (length sequence) length))))
+;; `always' is introduced with Emacs 28.1.
+(defalias 'tramp-compat-always
+ (if (fboundp 'always)
+ #'always
+ (lambda (&rest _arguments)
+ "Do nothing and return t.
+This function accepts any number of ARGUMENTS, but ignores them.
+Also see `ignore'."
+ t)))
+
;; `permission-denied' is introduced in Emacs 29.1.
(defconst tramp-permission-denied
(if (get 'permission-denied 'error-conditions) 'permission-denied
'file-error)
diff --git a/lisp/net/tramp-container.el b/lisp/net/tramp-container.el
index 5ae9ebaefb2..473cb1c54b8 100644
--- a/lisp/net/tramp-container.el
+++ b/lisp/net/tramp-container.el
@@ -47,9 +47,9 @@
;; C-x C-f /kubernetes:POD:/path/to/file
;;
;; Where:
-;; POD is the pod to connect to.
-;; By default, the first container in that pod will be
-;; used.
+;; POD is the pod to connect to.
+;; By default, the first container in that pod will be
+;; used.
;;
;; Completion for POD and accessing it operate in the current
;; namespace, use this command to change it:
@@ -58,7 +58,7 @@
;;
;;
;;
-;; Open a file on an existing toolbox container via Toolbox:
+;; Open a file on an existing Toolbox container:
;;
;; C-x C-f /toolbox:CONTAINER:/path/to/file
;;
@@ -67,6 +67,16 @@
;;
;; If the container is not running, it is started. If no container is
;; specified, the default Toolbox container is used.
+;;
+;;
+;;
+;; Open a file on a running Flatpak sandbox:
+;;
+;; C-x C-f /flatpak:SANDBOX:/path/to/file
+;;
+;; Where:
+;; SANDBOX is the running sandbox to connect to.
+;; It could be an application ID, an instance ID, or a PID.
;;; Code:
@@ -104,6 +114,14 @@
:type '(choice (const "toolbox")
(string)))
+;;;###tramp-autoload
+(defcustom tramp-flatpak-program "flatpak"
+ "Name of the Flatpak client program."
+ :group 'tramp
+ :version "30.1"
+ :type '(choice (const "flatpak")
+ (string)))
+
;;;###tramp-autoload
(defconst tramp-docker-method "docker"
"Tramp method name to use to connect to Docker containers.")
@@ -120,6 +138,10 @@
(defconst tramp-toolbox-method "toolbox"
"Tramp method name to use to connect to Toolbox containers.")
+;;;###tramp-autoload
+(defconst tramp-flatpak-method "flatpak"
+ "Tramp method name to use to connect to Flatpak sandboxes.")
+
;;;###tramp-autoload
(defun tramp-container--completion-function (program)
"List running containers available for connection.
@@ -195,6 +217,30 @@ see its function help for a description of the format."
lines)))
(mapcar (lambda (name) (list nil name)) (delq nil names))))
+;;;###tramp-autoload
+(defun tramp-flatpak--completion-function (&rest _args)
+ "List Flatpak sandboxes available for connection.
+It returns application IDs or, in case there is no application
+ID, instance IDs.
+
+This function is used by `tramp-set-completion-function', please
+see its function help for a description of the format."
+ (when-let ((default-directory tramp-compat-temporary-file-directory)
+ (raw-list
+ (shell-command-to-string
+ (concat tramp-flatpak-program
+ " ps --columns=instance,application")))
+ (lines (split-string raw-list "\n" 'omit))
+ (names (mapcar
+ (lambda (line)
+ (when (string-match
+ (rx bol (* space) (group (+ (not space)))
+ (? (+ space) (group (+ (not space)))) eol)
+ line)
+ (or (match-string 2 line) (match-string 1 line))))
+ lines)))
+ (mapcar (lambda (name) (list nil name)) (delq nil names))))
+
;;;###tramp-autoload
(defvar tramp-default-remote-shell) ;; Silence byte compiler.
@@ -253,6 +299,17 @@ see its function help for a description of the format."
(add-to-list 'tramp-default-host-alist `(,tramp-toolbox-method nil ""))
+ (add-to-list 'tramp-methods
+ `(,tramp-flatpak-method
+ (tramp-login-program ,tramp-flatpak-program)
+ (tramp-login-args (("enter")
+ ("%h")
+ ("%l")))
+ (tramp-direct-async (,tramp-default-remote-shell "-c"))
+ (tramp-remote-shell ,tramp-default-remote-shell)
+ (tramp-remote-shell-login ("-l"))
+ (tramp-remote-shell-args ("-c"))))
+
(tramp-set-completion-function
tramp-docker-method
`((tramp-container--completion-function
@@ -269,7 +326,25 @@ see its function help for a description of the format."
(tramp-set-completion-function
tramp-toolbox-method
- '((tramp-toolbox--completion-function ""))))
+ '((tramp-toolbox--completion-function "")))
+
+ (tramp-set-completion-function
+ tramp-flatpak-method
+ '((tramp-flatpak--completion-function "")))
+
+ ;; Default connection-local variables for Tramp.
+
+ (defconst tramp-container-connection-local-default-flatpak-variables
+ `((tramp-remote-path . ,(cons "/app/bin" tramp-remote-path)))
+ "Default connection-local variables for remote flatpak connections.")
+
+ (connection-local-set-profile-variables
+ 'tramp-container-connection-local-default-flatpak-profile
+ tramp-container-connection-local-default-flatpak-variables)
+
+ (connection-local-set-profiles
+ `(:application tramp :protocol ,tramp-flatpak-method)
+ 'tramp-container-connection-local-default-flatpak-profile))
(add-hook 'tramp-unload-hook
(lambda ()
diff --git a/lisp/net/tramp-crypt.el b/lisp/net/tramp-crypt.el
index afd3166d161..9d52966b817 100644
--- a/lisp/net/tramp-crypt.el
+++ b/lisp/net/tramp-crypt.el
@@ -180,7 +180,8 @@ If NAME doesn't belong to an encrypted remote directory,
return nil."
(file-directory-p . tramp-handle-file-directory-p)
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-crypt-handle-file-executable-p)
- (file-exists-p . tramp-handle-file-exists-p)
+ (file-exists-p . tramp-crypt-handle-file-exists-p)
+ ;; `file-group-gid' performed by default-handler.
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-handle-file-local-copy)
(file-locked-p . tramp-crypt-handle-file-locked-p)
@@ -316,8 +317,7 @@ connection if a previous connection has died for some
reason."
:name (tramp-get-connection-name vec)
:buffer (tramp-get-connection-buffer vec)
:server t :host 'local :service t :noquery t)))
- (process-put p 'vector vec)
- (set-process-query-on-exit-flag p nil)))
+ (tramp-post-process-creation p vec)))
;; The following operations must be performed without
;; `tramp-crypt-file-name-handler'.
@@ -436,7 +436,7 @@ Otherwise, return NAME."
crypt-vec (if (eq op 'encrypt) "encode" "decode")
tramp-compat-temporary-file-directory localname)
(tramp-error
- crypt-vec 'file-error "%s of file name %s failed."
+ crypt-vec 'file-error "%s of file name %s failed"
(if (eq op 'encrypt) "Encoding" "Decoding") name))
(with-current-buffer (tramp-get-connection-buffer crypt-vec)
(goto-char (point-min))
@@ -471,7 +471,7 @@ Raise an error if this fails."
(file-name-directory infile)
(concat "/" (file-name-nondirectory infile)))
(tramp-error
- crypt-vec 'file-error "%s of file %s failed."
+ crypt-vec 'file-error "%s of file %s failed"
(if (eq op 'encrypt) "Encrypting" "Decrypting") infile))
(with-current-buffer (tramp-get-connection-buffer crypt-vec)
(write-region nil nil outfile)))))
@@ -495,11 +495,11 @@ directory. File names will be also encrypted."
;; (declare (completion tramp-crypt-command-completion-p))
(interactive "DRemote directory name: ")
(unless tramp-crypt-enabled
- (tramp-user-error nil "Feature is not enabled."))
+ (tramp-user-error nil "Feature is not enabled"))
(unless (and (tramp-tramp-file-p name) (file-directory-p name))
- (tramp-user-error nil "%s must be an existing remote directory." name))
+ (tramp-user-error nil "%s must be an existing remote directory" name))
(when (file-name-quoted-p name)
- (tramp-user-error nil "%s must not be quoted." name))
+ (tramp-user-error nil "%s must not be quoted" name))
(setq name (file-name-as-directory (expand-file-name name)))
(unless (member name tramp-crypt-directories)
(setq tramp-crypt-directories (cons name tramp-crypt-directories)))
@@ -518,7 +518,7 @@ kept in their encrypted form."
;; (declare (completion tramp-crypt-command-completion-p))
(interactive "DRemote directory name: ")
(unless tramp-crypt-enabled
- (tramp-user-error nil "Feature is not enabled."))
+ (tramp-user-error nil "Feature is not enabled"))
(setq name (file-name-as-directory (expand-file-name name)))
(when (and (member name tramp-crypt-directories)
(delete
@@ -723,6 +723,11 @@ absolute file names."
(let (tramp-crypt-enabled)
(file-executable-p (tramp-crypt-encrypt-file-name filename))))
+(defun tramp-crypt-handle-file-exists-p (filename)
+ "Like `file-exists-p' for Tramp files."
+ (let (tramp-crypt-enabled)
+ (file-exists-p (tramp-crypt-encrypt-file-name filename))))
+
(defun tramp-crypt-handle-file-locked-p (filename)
"Like `file-locked-p' for Tramp files."
(let (tramp-crypt-enabled)
@@ -730,18 +735,19 @@ absolute file names."
(defun tramp-crypt-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for Tramp files."
- (all-completions
- filename
- (let* (completion-regexp-list
- tramp-crypt-enabled
- (directory (file-name-as-directory directory))
- (enc-dir (tramp-crypt-encrypt-file-name directory)))
- (mapcar
- (lambda (x)
- (substring
- (tramp-crypt-decrypt-file-name (concat enc-dir x))
- (length directory)))
- (file-name-all-completions "" enc-dir)))))
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (let* (completion-regexp-list
+ tramp-crypt-enabled
+ (directory (file-name-as-directory directory))
+ (enc-dir (tramp-crypt-encrypt-file-name directory)))
+ (mapcar
+ (lambda (x)
+ (substring
+ (tramp-crypt-decrypt-file-name (concat enc-dir x))
+ (length directory)))
+ (file-name-all-completions "" enc-dir))))))
(defun tramp-crypt-handle-file-readable-p (filename)
"Like `file-readable-p' for Tramp files."
diff --git a/lisp/net/tramp-fuse.el b/lisp/net/tramp-fuse.el
index b846caadc18..8626610211a 100644
--- a/lisp/net/tramp-fuse.el
+++ b/lisp/net/tramp-fuse.el
@@ -98,20 +98,21 @@
(defun tramp-fuse-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for Tramp files."
(tramp-fuse-remove-hidden-files
- (all-completions
- filename
- (delete-dups
- (append
- (file-name-all-completions
- filename (tramp-fuse-local-file-name directory))
- ;; Some storage systems do not return "." and "..".
- (let (result)
- (dolist (item '(".." ".") result)
- (when (string-prefix-p filename item)
- (catch 'match
- (dolist (elt completion-regexp-list)
- (unless (string-match-p elt item) (throw 'match nil)))
- (setq result (cons (concat item "/") result)))))))))))
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (delete-dups
+ (append
+ (file-name-all-completions
+ filename (tramp-fuse-local-file-name directory))
+ ;; Some storage systems do not return "." and "..".
+ (let (result)
+ (dolist (item '(".." ".") result)
+ (when (string-prefix-p filename item)
+ (catch 'match
+ (dolist (elt completion-regexp-list)
+ (unless (string-match-p elt item) (throw 'match nil)))
+ (setq result (cons (concat item "/") result))))))))))))
;; This function isn't used.
(defun tramp-fuse-handle-insert-directory
@@ -140,7 +141,7 @@
(defun tramp-fuse-mount-point (vec)
"Return local mount point of VEC."
- (or (tramp-get-connection-property vec "mount-point")
+ (or (tramp-get-file-property vec "/" "mount-point")
(expand-file-name
(concat
tramp-temp-name-prefix
@@ -148,7 +149,8 @@
(when (tramp-file-name-user vec)
(concat (tramp-file-name-user-domain vec) "@"))
(tramp-file-name-host-port vec))
- tramp-compat-temporary-file-directory)))
+ (or small-temporary-file-directory
+ tramp-compat-temporary-file-directory))))
(defconst tramp-fuse-mount-timeout
(eval (car (get 'remote-file-name-inhibit-cache 'standard-value)) t)
@@ -172,8 +174,11 @@ It has the same meaning as
`remote-file-name-inhibit-cache'.")
(tramp-set-file-property
vec "/" "mounted"
(when (string-match
- (rx bol (group (literal (tramp-fuse-mount-spec vec))) blank)
+ (rx bol (group (literal (tramp-fuse-mount-spec vec)))
+ " on " (group (+ (not blank))) blank)
mount)
+ (tramp-set-file-property
+ vec "/" "mount-point" (match-string 2 mount))
(match-string 1 mount)))))))
(defun tramp-fuse-get-fusermount ()
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index b9639c1e7f7..e214d610c91 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -119,8 +119,6 @@
(defconst tramp-gvfs-enabled
(ignore-errors
(and (featurep 'dbusbind)
- (autoload 'zeroconf-init "zeroconf")
- (tramp-compat-funcall 'dbus-get-unique-name :system)
(tramp-compat-funcall 'dbus-get-unique-name :session)
(or (tramp-process-running-p "gvfs-fuse-daemon")
(tramp-process-running-p "gvfsd-fuse"))))
@@ -210,6 +208,27 @@ They are checked during start up via
tramp-gvfs-interface-mounttracker))
"The list of supported methods of the mount tracking interface.")
+(defconst tramp-gvfs-listmountableinfo
+ (if (member "ListMountableInfo" tramp-gvfs-methods-mounttracker)
+ "ListMountableInfo"
+ "listMountableInfo")
+ "The name of the \"listMountableInfo\" method.
+It has been changed in GVFS 1.14.")
+
+(defconst tramp-gvfs-listmounttypes
+ (if (member "ListMountTypes" tramp-gvfs-methods-mounttracker)
+ "ListMountTypes"
+ "listMountTypes")
+ "The name of the \"listMountTypes\" method.
+It has been changed in GVFS 1.14.")
+
+(defconst tramp-gvfs-mounttypes
+ (and tramp-gvfs-enabled
+ (dbus-call-method
+ :session tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker
+ tramp-gvfs-interface-mounttracker tramp-gvfs-listmounttypes))
+ "The list of supported mount types of the mount tracking interface.")
+
(defconst tramp-gvfs-listmounts
(if (member "ListMounts" tramp-gvfs-methods-mounttracker)
"ListMounts"
@@ -233,6 +252,12 @@ It has been changed in GVFS 1.14.")
It has been changed in GVFS 1.14.")
;; <interface name='org.gtk.vfs.MountTracker'>
+;; <method name='listMountableInfo'>
+;; <arg name='mountables' type='a(ssasib)' direction='out'/>
+;; </method>
+;; <method name='listMountTypes'>
+;; <arg name='mount_types' type='as' direction='out'/>
+;; </method>
;; <method name='listMounts'>
;; <arg name='mount_info_list'
;; type='a{sosssssbay{aya{say}}ay}'
@@ -253,6 +278,13 @@ It has been changed in GVFS 1.14.")
;; </signal>
;; </interface>
;;
+;; STRUCT mountable
+;; STRING type
+;; STRING scheme
+;; ARRAY STRING scheme_aliases
+;; INT32 default_port
+;; BOOLEAN host_is_inet
+;;
;; STRUCT mount_info
;; STRING dbus_id
;; OBJECT_PATH object_path
@@ -775,6 +807,7 @@ It has been changed in GVFS 1.14.")
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-gvfs-handle-file-executable-p)
(file-exists-p . tramp-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -872,6 +905,14 @@ arguments to pass to the OPERATION."
(tramp-register-foreign-file-name-handler
#'tramp-gvfs-file-name-p #'tramp-gvfs-file-name-handler)))
+;; Event type `dbus-event' is added to `while-no-input-ignore-events'
+;; in Emacs 29.1. If it is missing, some packages like Helm report
+;; problems. So we add it here.
+(when (and (featurep 'dbusbind)
+ (not (memq 'dbus-event while-no-input-ignore-events)))
+ (setq while-no-input-ignore-events
+ (cons 'dbus-event while-no-input-ignore-events)))
+
;; D-Bus helper function.
@@ -1080,7 +1121,7 @@ file names."
(goto-char (point-min))
(tramp-error-with-buffer
nil v 'file-error
- "%s failed, see buffer `%s' for details."
+ "%s failed, see buffer `%s' for details"
msg-operation (buffer-name)))
;; Some WebDAV server, like the one from QNAP, do
@@ -1418,16 +1459,19 @@ If FILE-SYSTEM is non-nil, return file system
attributes."
(defun tramp-gvfs-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for Tramp files."
(unless (tramp-compat-string-search "/" filename)
- (all-completions
- filename
- (with-parsed-tramp-file-name (expand-file-name directory) nil
- (with-tramp-file-property v localname "file-name-all-completions"
- (let ((result '("./" "../")))
- ;; Get a list of directories and files.
- (dolist (item (tramp-gvfs-get-directory-attributes directory) result)
- (if (string-equal (cdr (assoc "type" item)) "directory")
- (push (file-name-as-directory (car item)) result)
- (push (car item) result)))))))))
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (with-parsed-tramp-file-name (expand-file-name directory) nil
+ (with-tramp-file-property v localname "file-name-all-completions"
+ (let ((result '("./" "../")))
+ ;; Get a list of directories and files.
+ (dolist (item
+ (tramp-gvfs-get-directory-attributes directory)
+ result)
+ (if (string-equal (cdr (assoc "type" item)) "directory")
+ (push (file-name-as-directory (car item)) result)
+ (push (car item) result))))))))))
(defun tramp-gvfs-handle-file-notify-add-watch (file-name flags _callback)
"Like `file-notify-add-watch' for Tramp files."
@@ -1455,18 +1499,14 @@ If FILE-SYSTEM is non-nil, return file system
attributes."
(if (not (processp p))
(tramp-error
v 'file-notify-error "Monitoring not supported for `%s'" file-name)
- (tramp-message
- v 6 "Run `%s', %S" (string-join (process-command p) " ") p)
- (process-put p 'vector v)
- (process-put p 'events events)
- (process-put p 'watch-name localname)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ (process-put p 'tramp-events events)
+ (process-put p 'tramp-watch-name localname)
(set-process-filter p #'tramp-gvfs-monitor-process-filter)
(set-process-sentinel p #'tramp-file-notify-process-sentinel)
+ (tramp-post-process-creation p v)
;; There might be an error if the monitor is not supported.
;; Give the filter a chance to read the output.
- (while (tramp-accept-process-output p 0))
+ (while (tramp-accept-process-output p))
(unless (process-live-p p)
(tramp-error
p 'file-notify-error "Monitoring not supported for `%s'" file-name))
@@ -1478,8 +1518,8 @@ If FILE-SYSTEM is non-nil, return file system attributes."
(defun tramp-gvfs-monitor-process-filter (proc string)
"Read output from \"gvfs-monitor-file\" and add corresponding \
`file-notify' events."
- (let* ((events (process-get proc 'events))
- (rest-string (process-get proc 'rest-string))
+ (let* ((events (process-get proc 'tramp-events))
+ (rest-string (process-get proc 'tramp-rest-string))
(dd (tramp-get-default-directory (process-buffer proc)))
(ddu (rx (literal (tramp-gvfs-url-file-name dd)))))
(when rest-string
@@ -1522,7 +1562,7 @@ If FILE-SYSTEM is non-nil, return file system attributes."
(setq file1 (url-unhex-string file1)))
;; Remove watch when file or directory to be watched is deleted.
(when (and (member action '(moved deleted))
- (string-equal file (process-get proc 'watch-name)))
+ (string-equal file (process-get proc 'tramp-watch-name)))
(delete-process proc))
;; Usually, we would add an Emacs event now. Unfortunately,
;; `unread-command-events' does not accept several events at
@@ -1534,7 +1574,7 @@ If FILE-SYSTEM is non-nil, return file system attributes."
;; Save rest of the string.
(when (string-empty-p string) (setq string nil))
(when string (tramp-message proc 10 "Rest string:\n%s" string))
- (process-put proc 'rest-string string)))
+ (process-put proc 'tramp-rest-string string)))
(defun tramp-gvfs-handle-file-system-info (filename)
"Like `file-system-info' for Tramp files."
@@ -2141,6 +2181,19 @@ connection if a previous connection has died for some
reason."
(unless (tramp-connectable-p vec)
(throw 'non-essential 'non-essential))
+ ;; Sanity check.
+ (let ((method (tramp-file-name-method vec)))
+ (unless (member
+ (or (assoc-default
+ method '(("smb" . "smb-share")
+ ("davs" . "dav")
+ ("nextcloud" . "dav")
+ ("afp". "afp-volume")
+ ("gdrive" . "google-drive")))
+ method)
+ tramp-gvfs-mounttypes)
+ (tramp-error vec 'file-error "Method `%s' not supported by GVFS"
method)))
+
;; For password handling, we need a process bound to the connection
;; buffer. Therefore, we create a dummy process. Maybe there is a
;; better solution?
@@ -2149,8 +2202,7 @@ connection if a previous connection has died for some
reason."
:name (tramp-get-connection-name vec)
:buffer (tramp-get-connection-buffer vec)
:server t :host 'local :service t :noquery t)))
- (process-put p 'vector vec)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)))
@@ -2484,43 +2536,46 @@ This uses \"avahi-browse\" in case D-Bus is not enabled
in Avahi."
;; Suppress D-Bus error messages and Tramp traces.
(let ((tramp-verbose 0)
tramp-gvfs-dbus-event-vector fun)
- ;; Add completion functions for services announced by DNS-SD.
- ;; See <http://www.dns-sd.org/ServiceTypes.html> for valid service types.
- (zeroconf-init tramp-gvfs-zeroconf-domain)
- (when (setq fun (or (and (zeroconf-list-service-types)
- #'tramp-zeroconf-parse-device-names)
- (and (executable-find "avahi-browse")
- #'tramp-gvfs-parse-device-names)))
- (when (member "afp" tramp-gvfs-methods)
- (tramp-set-completion-function
- "afp" `((,fun "_afpovertcp._tcp"))))
- (when (member "dav" tramp-gvfs-methods)
- (tramp-set-completion-function
- "dav" `((,fun "_webdav._tcp")
- (,fun "_webdavs._tcp"))))
- (when (member "davs" tramp-gvfs-methods)
- (tramp-set-completion-function
- "davs" `((,fun "_webdav._tcp")
- (,fun "_webdavs._tcp"))))
- (when (member "ftp" tramp-gvfs-methods)
- (tramp-set-completion-function
- "ftp" `((,fun "_ftp._tcp"))))
- (when (member "http" tramp-gvfs-methods)
- (tramp-set-completion-function
- "http" `((,fun "_http._tcp")
- (,fun "_https._tcp"))))
- (when (member "https" tramp-gvfs-methods)
- (tramp-set-completion-function
- "https" `((,fun "_http._tcp")
- (,fun "_https._tcp"))))
- (when (member "sftp" tramp-gvfs-methods)
- (tramp-set-completion-function
- "sftp" `((,fun "_sftp-ssh._tcp")
- (,fun "_ssh._tcp")
- (,fun "_workstation._tcp"))))
- (when (member "smb" tramp-gvfs-methods)
- (tramp-set-completion-function
- "smb" `((,fun "_smb._tcp")))))
+ (when (and (autoload 'zeroconf-init "zeroconf")
+ (ignore-error dbus-error
+ (tramp-compat-funcall 'dbus-get-unique-name :system)))
+ ;; Add completion functions for services announced by DNS-SD.
+ ;; See <http://www.dns-sd.org/ServiceTypes.html> for valid service types.
+ (zeroconf-init tramp-gvfs-zeroconf-domain)
+ (when (setq fun (or (and (zeroconf-list-service-types)
+ #'tramp-zeroconf-parse-device-names)
+ (and (executable-find "avahi-browse")
+ #'tramp-gvfs-parse-device-names)))
+ (when (member "afp" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "afp" `((,fun "_afpovertcp._tcp"))))
+ (when (member "dav" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "dav" `((,fun "_webdav._tcp")
+ (,fun "_webdavs._tcp"))))
+ (when (member "davs" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "davs" `((,fun "_webdav._tcp")
+ (,fun "_webdavs._tcp"))))
+ (when (member "ftp" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "ftp" `((,fun "_ftp._tcp"))))
+ (when (member "http" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "http" `((,fun "_http._tcp")
+ (,fun "_https._tcp"))))
+ (when (member "https" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "https" `((,fun "_http._tcp")
+ (,fun "_https._tcp"))))
+ (when (member "sftp" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "sftp" `((,fun "_sftp-ssh._tcp")
+ (,fun "_ssh._tcp")
+ (,fun "_workstation._tcp"))))
+ (when (member "smb" tramp-gvfs-methods)
+ (tramp-set-completion-function
+ "smb" `((,fun "_smb._tcp"))))))
;; Add completion functions for GNOME Online Accounts.
(tramp-get-goa-accounts nil)
@@ -2550,9 +2605,9 @@ This uses \"avahi-browse\" in case D-Bus is not enabled
in Avahi."
;; * Host name completion for existing mount points (afp-server,
;; smb-server) or via smb-network or network.
;;
+;; * What's up with the other types in `tramp-gvfs-mounttypes'?
+;;
;; * Check, how two shares of the same SMB server can be mounted in
;; parallel.
-;;
-;; * What's up with ftps dns-sd afc admin computer?
;;; tramp-gvfs.el ends here
diff --git a/lisp/net/tramp-integration.el b/lisp/net/tramp-integration.el
index 3ef4b55acd3..d7fcd8afefa 100644
--- a/lisp/net/tramp-integration.el
+++ b/lisp/net/tramp-integration.el
@@ -42,9 +42,10 @@
(declare-function shortdoc-add-function "shortdoc")
(declare-function tramp-dissect-file-name "tramp")
(declare-function tramp-file-name-equal-p "tramp")
-(declare-function tramp-tramp-file-p "tramp")
(declare-function tramp-rename-files "tramp-cmds")
(declare-function tramp-rename-these-files "tramp-cmds")
+(declare-function tramp-set-connection-local-variables-for-buffer "tramp")
+(declare-function tramp-tramp-file-p "tramp")
(defvar eshell-path-env)
(defvar ido-read-file-name-non-ido)
(defvar info-lookup-alist)
@@ -53,7 +54,7 @@
(defvar shortdoc--groups)
(defvar tramp-current-connection)
(defvar tramp-postfix-host-format)
-(defvar tramp-use-ssh-controlmaster-options)
+(defvar tramp-use-connection-share)
;;; Fontification of `read-file-name':
@@ -302,7 +303,7 @@ NAME must be equal to `tramp-current-connection'."
;; Bug#45518. So we don't use ssh ControlMaster options.
(defun tramp-compile-disable-ssh-controlmaster-options ()
"Don't allow ssh ControlMaster while compiling."
- (setq-local tramp-use-ssh-controlmaster-options nil))
+ (setq-local tramp-use-connection-share 'suppress))
(with-eval-after-load 'compile
(add-hook 'compilation-mode-hook
@@ -549,6 +550,14 @@ See `tramp-process-attributes-ps-format'.")
'(:application tramp :machine "localhost")
local-profile))
+;; Set connection-local variables for buffers visiting a file.
+
+(add-hook 'find-file-hook #'tramp-set-connection-local-variables-for-buffer
-50)
+(add-hook 'tramp-unload-hook
+ (lambda ()
+ (remove-hook
+ 'find-file-hook
#'tramp-set-connection-local-variables-for-buffer)))
+
(add-hook 'tramp-unload-hook
(lambda () (unload-feature 'tramp-integration 'force)))
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el
index 9eb2a54cdcf..02e96e10438 100644
--- a/lisp/net/tramp-rclone.el
+++ b/lisp/net/tramp-rclone.el
@@ -95,6 +95,7 @@
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-fuse-handle-file-executable-p)
(file-exists-p . tramp-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -371,8 +372,7 @@ connection if a previous connection has died for some
reason."
:name (tramp-get-connection-name vec)
:buffer (tramp-get-connection-buffer vec)
:server t :host 'local :service t :noquery t)))
- (process-put p 'vector vec)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)))
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 3ae5208154a..fb8112c384d 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -80,13 +80,6 @@ the default storage location, e.g. \"$HOME/.sh_history\"."
(const :tag "Unset HISTFILE" t)
(string :tag "Redirect to a file")))
-;;;###tramp-autoload
-(defconst tramp-display-escape-sequence-regexp (rx "\e" (+ (any ";[" digit))
"m")
- "Terminal control escape sequences for display attributes.")
-
-(defconst tramp-device-escape-sequence-regexp (rx "\e" (+ (any "[" digit)) "n")
- "Terminal control escape sequences for device status.")
-
;; ksh on OpenBSD 4.5 requires that $PS1 contains a `#' character for
;; root users. It uses the `$' character for other users. In order
;; to guarantee a proper prompt, we use "#$ " for the prompt.
@@ -106,19 +99,23 @@ detected as prompt when being sent on echoing hosts,
therefore.")
(defconst tramp-end-of-heredoc (md5 tramp-end-of-output)
"String used to recognize end of heredoc strings.")
-(defcustom tramp-use-ssh-controlmaster-options (not (eq system-type
'windows-nt))
- "Whether to use `tramp-ssh-controlmaster-options'.
-Set it to t, if you want Tramp to apply these options.
+(define-obsolete-variable-alias
+ 'tramp-use-ssh-controlmaster-options 'tramp-use-connection-share "30.1")
+
+(defcustom tramp-use-connection-share (not (eq system-type 'windows-nt))
+ "Whether to use connection share in ssh or PuTTY.
+Set it to t, if you want Tramp to apply respective options. These
+are `tramp-ssh-controlmaster-options' for ssh, and \"-share\" for PuTTY.
Set it to nil, if you use Control* or Proxy* options in your ssh
configuration.
Set it to `suppress' if you want to disable settings in your
-\"~/.ssh/config¸\"."
+\"~/.ssh/config\" file or in your PuTTY session."
:group 'tramp
- :version "29.2"
+ :version "30.1"
:type '(choice (const :tag "Set ControlMaster" t)
(const :tag "Don't set ControlMaster" nil)
(const :tag "Suppress ControlMaster" suppress))
- ;; Check with (safe-local-variable-p 'tramp-use-ssh-controlmaster-options
'suppress)
+ ;; Check with (safe-local-variable-p 'tramp-use-connection-share 'suppress)
:safe (lambda (val) (and (memq val '(t nil suppress)) t)))
(defvar tramp-ssh-controlmaster-options nil
@@ -130,8 +127,8 @@ If it is a string, it should have the form
spec must be doubled, because the string is used as format string.
Otherwise, it will be auto-detected by Tramp, if
-`tramp-use-ssh-controlmaster-options' is t. The value depends on
-the installed local ssh version.
+`tramp-use-connection-share' is t. The value depends on the
+installed local ssh version.
The string is used in `tramp-methods'.")
@@ -348,7 +345,7 @@ The string is used in `tramp-methods'.")
(add-to-list 'tramp-methods
`("plink"
(tramp-login-program "plink")
- (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh")
+ (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh")
("%c")
("-t") ("%h") ("\"")
(,(format
"env 'TERM=%s'
'PROMPT_COMMAND=' 'PS1=%s'"
@@ -361,7 +358,7 @@ The string is used in `tramp-methods'.")
(add-to-list 'tramp-methods
`("plinkx"
(tramp-login-program "plink")
- (tramp-login-args (("-load") ("%h") ("-t") ("\"")
+ (tramp-login-args (("-load") ("%h") ("%c") ("-t")
("\"")
(,(format
"env 'TERM=%s'
'PROMPT_COMMAND=' 'PS1=%s'"
tramp-terminal-type
@@ -373,7 +370,7 @@ The string is used in `tramp-methods'.")
(add-to-list 'tramp-methods
`("pscp"
(tramp-login-program "plink")
- (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh")
+ (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh")
("%c")
("-t") ("%h") ("\"")
(,(format
"env 'TERM=%s'
'PROMPT_COMMAND=' 'PS1=%s'"
@@ -391,7 +388,7 @@ The string is used in `tramp-methods'.")
(add-to-list 'tramp-methods
`("psftp"
(tramp-login-program "plink")
- (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh")
+ (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh")
("%c")
("-t") ("%h") ("\"")
(,(format
"env 'TERM=%s'
'PROMPT_COMMAND=' 'PS1=%s'"
@@ -403,7 +400,7 @@ The string is used in `tramp-methods'.")
(tramp-remote-shell-args ("-c"))
(tramp-copy-program "pscp")
(tramp-copy-args (("-l" "%u") ("-P" "%p") ("-sftp")
- ("-p" "%k") ("-q")))
+ ("-p" "%k")))
(tramp-copy-keep-date t)))
(add-to-list 'tramp-methods
`("fcp"
@@ -1069,6 +1066,7 @@ Format specifiers \"%s\" are replaced before the script
is used.")
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-sh-handle-file-executable-p)
(file-exists-p . tramp-sh-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-sh-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -1143,8 +1141,8 @@ Operations not mentioned here will be handled by the
normal Emacs functions.")
(unless (tramp-get-remote-ln v)
(tramp-error
v 'file-error
- (concat "Making a symbolic link. "
- "ln(1) does not exist on the remote host."))))
+ (concat "Making a symbolic link: "
+ "ln(1) does not exist on the remote host"))))
(tramp-skeleton-handle-make-symbolic-link target linkname
ok-if-already-exists
(and (tramp-send-command-and-check
@@ -1651,7 +1649,7 @@ ID-FORMAT valid values are `string' and `integer'."
(if (tramp-file-property-p v localname "file-attributes")
(or (tramp-check-cached-permissions v ?x)
(tramp-check-cached-permissions v ?s))
- (tramp-run-test "-x" filename)))))
+ (tramp-run-test v "-x" localname)))))
(defun tramp-sh-handle-file-readable-p (filename)
"Like `file-readable-p' for Tramp files."
@@ -1661,7 +1659,7 @@ ID-FORMAT valid values are `string' and `integer'."
;; satisfied without remote operation.
(if (tramp-file-property-p v localname "file-attributes")
(tramp-handle-file-readable-p filename)
- (tramp-run-test "-r" filename)))))
+ (tramp-run-test v "-r" localname)))))
;; Functions implemented using the basic functions above.
@@ -1682,7 +1680,7 @@ ID-FORMAT valid values are `string' and `integer'."
(tramp-get-file-property
v (tramp-file-local-name truename) "file-attributes"))
t)
- (tramp-run-test "-d" filename))))))
+ (tramp-run-test v "-d" localname))))))
(defun tramp-sh-handle-file-writable-p (filename)
"Like `file-writable-p' for Tramp files."
@@ -1693,7 +1691,7 @@ ID-FORMAT valid values are `string' and `integer'."
;; Examine `file-attributes' cache to see if request can
;; be satisfied without remote operation.
(tramp-check-cached-permissions v ?w)
- (tramp-run-test "-w" filename))
+ (tramp-run-test v "-w" localname))
;; If file doesn't exist, check if directory is writable.
(and
(file-directory-p (file-name-directory filename))
@@ -1767,41 +1765,43 @@ ID-FORMAT valid values are `string' and `integer'."
(with-parsed-tramp-file-name (expand-file-name directory) nil
(when (and (not (tramp-compat-string-search "/" filename))
(tramp-connectable-p v))
- (all-completions
- filename
- (with-tramp-file-property v localname "file-name-all-completions"
- (let (result)
- ;; Get a list of directories and files, including reliably
- ;; tagging the directories with a trailing "/". Because I
- ;; rock. --daniel@danann.net
- (when (tramp-send-command-and-check
- v
- (if (tramp-get-remote-perl v)
- (progn
- (tramp-maybe-send-script
- v tramp-perl-file-name-all-completions
- "tramp_perl_file_name_all_completions")
- (format "tramp_perl_file_name_all_completions %s"
- (tramp-shell-quote-argument localname)))
-
- (format (concat
- "cd %s 2>&1 && %s -a 2>%s"
- " | while IFS= read f; do"
- " if %s -d \"$f\" 2>%s;"
- " then \\echo \"$f/\"; else \\echo \"$f\"; fi;"
- " done")
- (tramp-shell-quote-argument localname)
- (tramp-get-ls-command v)
- (tramp-get-remote-null-device v)
- (tramp-get-test-command v)
- (tramp-get-remote-null-device v))))
-
- ;; Now grab the output.
- (with-current-buffer (tramp-get-buffer v)
- (goto-char (point-max))
- (while (zerop (forward-line -1))
- (push (buffer-substring (point) (line-end-position)) result)))
- result)))))))
+ (unless (tramp-compat-string-search "/" filename)
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (with-tramp-file-property v localname "file-name-all-completions"
+ (let (result)
+ ;; Get a list of directories and files, including
+ ;; reliably tagging the directories with a trailing "/".
+ ;; Because I rock. --daniel@danann.net
+ (when (tramp-send-command-and-check
+ v
+ (if (tramp-get-remote-perl v)
+ (progn
+ (tramp-maybe-send-script
+ v tramp-perl-file-name-all-completions
+ "tramp_perl_file_name_all_completions")
+ (format "tramp_perl_file_name_all_completions %s"
+ (tramp-shell-quote-argument localname)))
+
+ (format (concat
+ "cd %s 2>&1 && %s -a 2>%s"
+ " | while IFS= read f; do"
+ " if %s -d \"$f\" 2>%s;"
+ " then \\echo \"$f/\"; else \\echo \"$f\"; fi;"
+ " done")
+ (tramp-shell-quote-argument localname)
+ (tramp-get-ls-command v)
+ (tramp-get-remote-null-device v)
+ (tramp-get-test-command v)
+ (tramp-get-remote-null-device v))))
+
+ ;; Now grab the output.
+ (with-current-buffer (tramp-get-buffer v)
+ (goto-char (point-max))
+ (while (zerop (forward-line -1))
+ (push (buffer-substring (point) (line-end-position))
result)))
+ result)))))))))
;; cp, mv and ln
@@ -2144,7 +2144,7 @@ the uid and gid from FILENAME."
cmd-result)
(tramp-error-with-buffer
nil v 'file-error
- "Copying directly failed, see buffer `%s' for details."
+ "Copying directly failed, see buffer `%s' for details"
(buffer-name)))))
;; We are on the local host.
@@ -2199,7 +2199,7 @@ the uid and gid from FILENAME."
"%s %s %s" cmd
(tramp-shell-quote-argument localname1)
(tramp-shell-quote-argument tmpfile))
- "Copying directly failed, see buffer `%s' for details."
+ "Copying directly failed, see buffer `%s' for details"
(tramp-get-buffer v))
;; We must change the ownership as remote user.
;; Since this does not work reliable, we also
@@ -2232,7 +2232,7 @@ the uid and gid from FILENAME."
"cp -f -p %s %s"
(tramp-shell-quote-argument tmpfile)
(tramp-shell-quote-argument localname2))
- "Copying directly failed, see buffer `%s' for details."
+ "Copying directly failed, see buffer `%s' for details"
(tramp-get-buffer v)))
(t1
(tramp-run-real-handler
@@ -2420,10 +2420,11 @@ The method used must be an out-of-band method."
(tramp-get-connection-name v)
(tramp-get-connection-buffer v)
copy-program copy-args)))
- (tramp-message v 6 "%s" (string-join (process-command p) " "))
- (process-put p 'vector v)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ ;; This is neded for ssh or PuTTY based processes, and
+ ;; only if the respective options are set. Perhaps,
+ ;; the setting could be more fine-grained.
+ ;; (process-put p 'tramp-shared-socket t)
+ (tramp-post-process-creation p v)
;; We must adapt `tramp-local-end-of-line' for sending
;; the password. Also, we indicate that perhaps
@@ -2558,7 +2559,7 @@ The method used must be an out-of-band method."
(setq switches
(append switches (split-string (tramp-sh--quoting-style-options
v))))
(unless (tramp-get-ls-command-with v "--dired")
- (setq switches (delete "--dired" switches)))
+ (setq switches (delete "-N" (delete "--dired" switches))))
(when wildcard
(setq wildcard (tramp-run-real-handler
#'file-name-nondirectory (list localname)))
@@ -2646,7 +2647,7 @@ The method used must be an out-of-band method."
(unless (tramp-compat-string-search
"color" (tramp-get-connection-property v "ls" ""))
(goto-char (point-min))
- (while (re-search-forward tramp-display-escape-sequence-regexp nil
t)
+ (while (re-search-forward ansi-color-control-seq-regexp nil t)
(replace-match "")))
;; Now decode what read if necessary. Stolen from
`insert-directory'.
@@ -2924,6 +2925,7 @@ implementation will be used."
v 'file-error "Stderr buffer `%s' not supported" stderr))
(with-current-buffer stderr
(setq buffer-read-only nil))
+ (tramp-taint-remote-process-buffer stderr)
;; Create named pipe.
(tramp-send-command
v (format (tramp-get-remote-mknod-or-mkfifo v) tmpstderr))
@@ -3125,7 +3127,7 @@ implementation will be used."
(if (tramp-compat-string-search "=" elt)
(setq env (append env `(,elt)))
(setq uenv (cons elt uenv)))))
- (setenv-internal env "INSIDE_EMACS" (tramp-inside-emacs) 'keep)
+ (setq env (setenv-internal env "INSIDE_EMACS" (tramp-inside-emacs)
'keep))
(when env
(setq command
(format
@@ -3749,17 +3751,19 @@ Fall back to normal file name handler if no Tramp
handler exists."
v 'file-notify-error
"`%s' failed to start on remote host"
(string-join sequence " "))
- (tramp-message v 6 "Run `%s', %S" (string-join sequence " ") p)
- (process-put p 'vector v)
+ ;; This is neded for ssh or PuTTY based processes, and only if
+ ;; the respective options are set. Perhaps, the setting could
+ ;; be more fine-grained.
+ ;; (process-put p 'tramp-shared-socket t)
;; Needed for process filter.
- (process-put p 'events events)
- (process-put p 'watch-name localname)
- (set-process-query-on-exit-flag p nil)
+ (process-put p 'tramp-events events)
+ (process-put p 'tramp-watch-name localname)
(set-process-filter p filter)
(set-process-sentinel p #'tramp-file-notify-process-sentinel)
+ (tramp-post-process-creation p v)
;; There might be an error if the monitor is not supported.
;; Give the filter a chance to read the output.
- (while (tramp-accept-process-output p 0))
+ (while (tramp-accept-process-output p))
(unless (process-live-p p)
(tramp-error
p 'file-notify-error "Monitoring not supported for `%s'" file-name))
@@ -3767,10 +3771,10 @@ Fall back to normal file name handler if no Tramp
handler exists."
(defun tramp-sh-gio-monitor-process-filter (proc string)
"Read output from \"gio monitor\" and add corresponding `file-notify'
events."
- (let ((events (process-get proc 'events))
+ (let ((events (process-get proc 'tramp-events))
(remote-prefix
(file-remote-p (tramp-get-default-directory (process-buffer proc))))
- (rest-string (process-get proc 'rest-string))
+ (rest-string (process-get proc 'tramp-rest-string))
pos)
(when rest-string
(tramp-message proc 10 "Previous string:\n%s" rest-string))
@@ -3852,11 +3856,11 @@ Fall back to normal file name handler if no Tramp
handler exists."
(setq string (replace-match "" nil nil string)))
(when (string-empty-p string) (setq string nil))
(when string (tramp-message proc 10 "Rest string:\n%s" string))
- (process-put proc 'rest-string string)))
+ (process-put proc 'tramp-rest-string string)))
(defun tramp-sh-inotifywait-process-filter (proc string)
"Read output from \"inotifywait\" and add corresponding `file-notify'
events."
- (let ((events (process-get proc 'events)))
+ (let ((events (process-get proc 'tramp-events)))
(tramp-message proc 6 "%S\n%s" proc string)
(dolist (line (split-string string (rx (+ (any "\r\n"))) 'omit))
;; Check, whether there is a problem.
@@ -3875,7 +3879,8 @@ Fall back to normal file name handler if no Tramp handler
exists."
(tramp-compat-string-replace "_" "-" (downcase x))))
(split-string (match-string 1 line) "," 'omit))
(or (match-string 2 line)
- (file-name-nondirectory (process-get proc 'watch-name))))))
+ (file-name-nondirectory
+ (process-get proc 'tramp-watch-name))))))
;; Usually, we would add an Emacs event now. Unfortunately,
;; `unread-command-events' does not accept several events at
;; once. Therefore, we apply the handler directly.
@@ -4010,17 +4015,14 @@ Only send the definition if it has not already been
done."
(tramp-set-connection-property
(tramp-get-connection-process vec) "scripts" (cons name scripts))))))
-(defun tramp-run-test (switch filename)
- "Run `test' on the remote system, given a SWITCH and a FILENAME.
+(defun tramp-run-test (vec switch localname)
+ "Run `test' on the remote system VEC, given a SWITCH and a LOCALNAME.
Returns the exit code of the `test' program."
- (with-parsed-tramp-file-name filename nil
- (tramp-send-command-and-check
- v
- (format
- "%s %s %s"
- (tramp-get-test-command v)
- switch
- (tramp-shell-quote-argument localname)))))
+ (tramp-send-command-and-check
+ vec
+ (format
+ "%s %s %s"
+ (tramp-get-test-command vec) switch (tramp-shell-quote-argument
localname))))
(defun tramp-find-executable
(vec progname dirlist &optional ignore-tilde ignore-path)
@@ -4308,12 +4310,13 @@ file exists and nonzero exit status otherwise."
"Wait for shell prompt and barf if none appears.
Looks at process PROC to see if a shell prompt appears in TIMEOUT
seconds. If not, it produces an error message with the given ERROR-ARGS."
- (let ((vec (process-get proc 'vector)))
+ (let ((vec (process-get proc 'tramp-vector)))
(condition-case nil
(tramp-wait-for-regexp
proc timeout
(rx
(| (regexp shell-prompt-pattern) (regexp tramp-shell-prompt-pattern))
+ (? (regexp ansi-color-control-seq-regexp))
eos))
(error
(delete-process proc)
@@ -4484,7 +4487,7 @@ process to set up. VEC specifies the connection."
;; Set `remote-tty' process property.
(let ((tty (tramp-send-command-and-read vec "echo \\\"`tty`\\\""
'noerror)))
- (unless (string-empty-p tty)
+ (unless (tramp-string-empty-or-nil-p tty)
(process-put proc 'remote-tty tty)
(tramp-set-connection-property proc "remote-tty" tty)))
@@ -4822,6 +4825,7 @@ Goes through the list `tramp-inline-compress-commands'."
"Check, whether local ssh OPTION is applicable."
;; We don't want to cache it persistently.
(with-tramp-connection-property nil option
+ ;; "ssh -G" is introduced in OpenSSH 6.7.
;; We use a non-existing IP address for check, in order to avoid
;; useless connections, and DNS timeouts.
(zerop
@@ -4831,35 +4835,49 @@ Goes through the list `tramp-inline-compress-commands'."
"Return the Control* arguments of the local ssh."
(cond
;; No options to be computed.
- ((or (null tramp-use-ssh-controlmaster-options)
+ ((or (null tramp-use-connection-share)
(null (assoc "%c" (tramp-get-method-parameter vec 'tramp-login-args))))
"")
+ ;; Use plink option.
+ ((string-match-p
+ (rx "plink" (? ".exe") eol)
+ (tramp-get-method-parameter vec 'tramp-login-program))
+ (if (eq tramp-use-connection-share 'suppress)
+ "-noshare" "-share"))
+
;; There is already a value to be used.
- ((and (eq tramp-use-ssh-controlmaster-options t)
+ ((and (eq tramp-use-connection-share t)
(stringp tramp-ssh-controlmaster-options))
tramp-ssh-controlmaster-options)
+ ;; We can't auto-compute the options.
+ ((ignore-errors
+ (not (tramp-ssh-option-exists-p vec "ControlMaster=auto")))
+ "")
+
;; Determine the options.
(t (ignore-errors
;; ControlMaster and ControlPath options are introduced in OpenSSH 3.9.
- (when (tramp-ssh-option-exists-p vec "ControlMaster=auto")
- (concat
- "-o ControlMaster="
- (if (eq tramp-use-ssh-controlmaster-options 'suppress)
- "no" "auto")
-
- " -o ControlPath="
- (if (eq tramp-use-ssh-controlmaster-options 'suppress)
- "none"
- ;; Hashed tokens are introduced in OpenSSH 6.7.
- (if (tramp-ssh-option-exists-p vec "ControlPath=tramp.%C")
- "tramp.%%C" "tramp.%%r@%%h:%%p"))
-
- ;; ControlPersist option is introduced in OpenSSH 5.6.
- (when (and (not (eq tramp-use-ssh-controlmaster-options 'suppress))
- (tramp-ssh-option-exists-p vec "ControlPersist=no"))
- " -o ControlPersist=no")))))))
+ (concat
+ "-o ControlMaster="
+ (if (eq tramp-use-connection-share 'suppress)
+ "no" "auto")
+
+ " -o ControlPath="
+ (if (eq tramp-use-connection-share 'suppress)
+ "none"
+ ;; Hashed tokens are introduced in OpenSSH 6.7.
+ (expand-file-name
+ (if (tramp-ssh-option-exists-p vec "ControlPath=tramp.%C")
+ "tramp.%%C" "tramp.%%r@%%h:%%p")
+ (or small-temporary-file-directory
+ tramp-compat-temporary-file-directory)))
+
+ ;; ControlPersist option is introduced in OpenSSH 5.6.
+ (when (and (not (eq tramp-use-connection-share 'suppress))
+ (tramp-ssh-option-exists-p vec "ControlPersist=no"))
+ " -o ControlPersist=no"))))))
(defun tramp-scp-strict-file-name-checking (vec)
"Return the strict file name checking argument of the local scp."
@@ -5111,15 +5129,15 @@ connection if a previous connection has died for some
reason."
(and tramp-encoding-command-interactive
(list tramp-encoding-command-interactive)))))))
- ;; Set sentinel and query flag. Initialize variables.
+ ;; This is neded for ssh or PuTTY based processes, and
+ ;; only if the respective options are set. Perhaps,
+ ;; the setting could be more fine-grained.
+ ;; (process-put p 'tramp-shared-socket t)
+ ;; Set sentinel. Initialize variables.
(set-process-sentinel p #'tramp-process-sentinel)
- (process-put p 'vector vec)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
(setq tramp-current-connection (cons vec (current-time)))
- (tramp-message vec 6 "%s" (string-join (process-command p) " "))
-
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)
@@ -5279,14 +5297,14 @@ function waits for output unless NOOUTPUT is set."
(tramp-error proc 'file-error "Process `%s' not available, try again"
proc))
(with-current-buffer (process-buffer proc)
(let* (;; Initially, `tramp-end-of-output' is "#$ ". There might
- ;; be leading escape sequences, which must be ignored.
- ;; Busyboxes built with the EDITING_ASK_TERMINAL config
- ;; option send also escape sequences, which must be
- ;; ignored.
+ ;; be leading ANSI control escape sequences, which must be
+ ;; ignored. Busyboxes built with the EDITING_ASK_TERMINAL
+ ;; config option send also ANSI control escape sequences,
+ ;; which must be ignored.
(regexp (rx
(* (not (any "#$\n")))
(literal tramp-end-of-output)
- (? (regexp tramp-device-escape-sequence-regexp))
+ (? (regexp ansi-color-control-seq-regexp))
(? "\r") eol))
;; Sometimes, the commands do not return a newline but a
;; null byte before the shell prompt, for example "git
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 2a69465224f..dab85c5160e 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -246,6 +246,7 @@ See `tramp-actions-before-shell' for more info.")
(file-file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-handle-file-exists-p)
(file-exists-p . tramp-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-smb-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -556,13 +557,7 @@ arguments to pass to the OPERATION."
(tramp-get-connection-name v)
(tramp-get-connection-buffer v)
tramp-smb-program args)))
-
- (tramp-message
- v 6 "%s" (string-join (process-command p) " "))
- (process-put p 'vector v)
- (process-put
- p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p v)
(tramp-process-actions
p v nil tramp-smb-actions-with-tar)
@@ -642,9 +637,6 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
(not (directory-name-p newname)))
(tramp-error v 'file-error "File is a directory %s" newname))
- ;; We must also flush the cache of the directory, because
- ;; `file-attributes' reads the values from there.
- (tramp-flush-file-properties v localname)
(unless (tramp-smb-get-share v)
(tramp-error
v 'file-error "Target `%s' must contain a share name" newname))
@@ -653,7 +645,12 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
(tramp-smb-shell-quote-argument filename)
(tramp-smb-shell-quote-localname v)))
(tramp-error
- v 'file-error "Cannot copy `%s' to `%s'" filename newname)))))
+ v 'file-error "Cannot copy `%s' to `%s'" filename newname))
+
+ ;; When newname did exist, we have wrong cached values.
+ (when (tramp-tramp-file-p newname)
+ (with-parsed-tramp-file-name newname v2
+ (tramp-flush-file-properties v2 v2-localname))))))
;; KEEP-DATE handling.
(when keep-date
@@ -692,7 +689,7 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
;; "rmdir" does not report an error. So we check ourselves.
(when (file-exists-p directory)
- (tramp-error v 'file-error "`%s' not removed." directory)))))
+ (tramp-error v 'file-error "`%s' not removed" directory)))))
(defun tramp-smb-handle-delete-file (filename &optional trash)
"Like `delete-file' for Tramp files."
@@ -757,7 +754,7 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
"Read ACL data from connection buffer."
(unless (process-live-p proc)
;; Accept pending output.
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
(with-current-buffer (tramp-get-connection-buffer vec)
;; There might be a hidden password prompt.
(widen)
@@ -800,32 +797,26 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
(append args (list (tramp-unquote-shell-quote-argument localname)
(concat "2>" (tramp-get-remote-null-device
v)))))
- (unwind-protect
- (with-tramp-saved-connection-properties
- v '("process-name" "process-buffer")
- (with-temp-buffer
- ;; Set the transfer process properties.
- (tramp-set-connection-property
- v "process-name" (buffer-name (current-buffer)))
- (tramp-set-connection-property
- v "process-buffer" (current-buffer))
-
- ;; Use an asynchronous process. By this, password
- ;; can be handled.
- (let ((p (apply
- #'start-process
- (tramp-get-connection-name v)
- (tramp-get-connection-buffer v)
- tramp-smb-acl-program args)))
-
- (tramp-message
- v 6 "%s" (string-join (process-command p) " "))
- (process-put p 'vector v)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
- (tramp-process-actions p v nil tramp-smb-actions-get-acl)
- (when (> (point-max) (point-min))
- (substring-no-properties (buffer-string)))))))))))))
+ (with-tramp-saved-connection-properties
+ v '("process-name" "process-buffer")
+ (with-temp-buffer
+ ;; Set the transfer process properties.
+ (tramp-set-connection-property
+ v "process-name" (buffer-name (current-buffer)))
+ (tramp-set-connection-property
+ v "process-buffer" (current-buffer))
+
+ ;; Use an asynchronous process. By this, password
+ ;; can be handled.
+ (let ((p (apply
+ #'start-process
+ (tramp-get-connection-name v)
+ (tramp-get-connection-buffer v)
+ tramp-smb-acl-program args)))
+ (tramp-post-process-creation p v)
+ (tramp-process-actions p v nil tramp-smb-actions-get-acl)
+ (when (> (point-max) (point-min))
+ (substring-no-properties (buffer-string))))))))))))
(defun tramp-smb-handle-file-attributes (filename &optional id-format)
"Like `file-attributes' for Tramp files."
@@ -976,18 +967,20 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
;; files.
(defun tramp-smb-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for Tramp files."
- (all-completions
- filename
- (with-parsed-tramp-file-name (expand-file-name directory) nil
- (with-tramp-file-property v localname "file-name-all-completions"
- (delete-dups
- (mapcar
- (lambda (x)
- (list
- (if (tramp-compat-string-search "d" (nth 1 x))
- (file-name-as-directory (nth 0 x))
- (nth 0 x))))
- (tramp-smb-get-file-entries directory)))))))
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (when (file-directory-p directory)
+ (with-parsed-tramp-file-name (expand-file-name directory) nil
+ (with-tramp-file-property v localname "file-name-all-completions"
+ (delete-dups
+ (mapcar
+ (lambda (x)
+ (list
+ (if (tramp-compat-string-search "d" (nth 1 x))
+ (file-name-as-directory (nth 0 x))
+ (nth 0 x))))
+ (tramp-smb-get-file-entries directory)))))))))
(defun tramp-smb-handle-file-system-info (filename)
"Like `file-system-info' for Tramp files."
@@ -1361,7 +1354,7 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
"Set ACL data."
(unless (process-live-p proc)
;; Accept pending output.
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
(tramp-message
vec 10 "\n%s" (tramp-get-buffer-string (tramp-get-connection-buffer vec)))
(throw 'tramp-action 'ok)))
@@ -1399,44 +1392,38 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
"&&" "echo" "tramp_exit_status" "0"
"||" "echo" "tramp_exit_status" "1")))
- (unwind-protect
- (with-tramp-saved-connection-properties
- v '("process-name" "process-buffer")
- (with-temp-buffer
- ;; Set the transfer process properties.
- (tramp-set-connection-property
- v "process-name" (buffer-name (current-buffer)))
- (tramp-set-connection-property
- v "process-buffer" (current-buffer))
-
- ;; Use an asynchronous process. By this, password
- ;; can be handled.
- (let ((p (apply
- #'start-process
- (tramp-get-connection-name v)
- (tramp-get-connection-buffer v)
- tramp-smb-acl-program args)))
-
- (tramp-message
- v 6 "%s" (string-join (process-command p) " "))
- (process-put p 'vector v)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
- (tramp-process-actions p v nil tramp-smb-actions-set-acl)
- ;; This is meant for traces, and returning from
- ;; the function. No error is propagated outside,
- ;; due to the `ignore-errors' closure.
- (unless
- (tramp-search-regexp (rx "tramp_exit_status " (+
digit)))
- (tramp-error
- v 'file-error
- "Couldn't find exit status of `%s'"
- tramp-smb-acl-program))
- (skip-chars-forward "^ ")
- (when (zerop (read (current-buffer)))
- ;; Success.
- (tramp-set-file-property v localname "file-acl"
acl-string)
- t))))))))))
+ (with-tramp-saved-connection-properties
+ v '("process-name" "process-buffer")
+ (with-temp-buffer
+ ;; Set the transfer process properties.
+ (tramp-set-connection-property
+ v "process-name" (buffer-name (current-buffer)))
+ (tramp-set-connection-property
+ v "process-buffer" (current-buffer))
+
+ ;; Use an asynchronous process. By this, password
+ ;; can be handled.
+ (let ((p (apply
+ #'start-process
+ (tramp-get-connection-name v)
+ (tramp-get-connection-buffer v)
+ tramp-smb-acl-program args)))
+ (tramp-post-process-creation p v)
+ (tramp-process-actions p v nil tramp-smb-actions-set-acl)
+ ;; This is meant for traces, and returning from
+ ;; the function. No error is propagated outside,
+ ;; due to the `ignore-errors' closure.
+ (unless
+ (tramp-search-regexp (rx "tramp_exit_status " (+ digit)))
+ (tramp-error
+ v 'file-error
+ "Couldn't find exit status of `%s'"
+ tramp-smb-acl-program))
+ (skip-chars-forward "^ ")
+ (when (zerop (read (current-buffer)))
+ ;; Success.
+ (tramp-set-file-property v localname "file-acl" acl-string)
+ t)))))))))
(defun tramp-smb-handle-set-file-modes (filename mode &optional flag)
"Like `set-file-modes' for Tramp files."
@@ -1965,11 +1952,7 @@ If ARGUMENT is non-nil, use it as argument for
(if argument
tramp-smb-winexe-program tramp-smb-program)
args))))
-
- (tramp-message vec 6 "%s" (string-join (process-command p) " "))
- (process-put p 'vector vec)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)
@@ -2021,7 +2004,7 @@ Removes smb prompt. Returns nil if an error message has
appeared."
;; Read pending output.
(while (not (re-search-forward tramp-smb-prompt nil t))
- (while (tramp-accept-process-output p 0))
+ (while (tramp-accept-process-output p))
(goto-char (point-min)))
(tramp-message vec 6 "\n%s" (buffer-string))
diff --git a/lisp/net/tramp-sshfs.el b/lisp/net/tramp-sshfs.el
index 65c4bf23c38..9d871276f7a 100644
--- a/lisp/net/tramp-sshfs.el
+++ b/lisp/net/tramp-sshfs.el
@@ -101,6 +101,7 @@
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-fuse-handle-file-executable-p)
(file-exists-p . tramp-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -244,8 +245,8 @@ arguments to pass to the OPERATION."
(setq result
(insert-file-contents
(tramp-fuse-local-file-name filename) visit beg end replace))
- (when visit (setq buffer-file-name filename))
- (cons filename (cdr result)))))
+ (when visit (setq buffer-file-name filename)))
+ (cons filename (cdr result))))
(defun tramp-sshfs-handle-process-file
(program &optional infile destination display &rest args)
@@ -399,8 +400,7 @@ connection if a previous connection has died for some
reason."
:name (tramp-get-connection-name vec)
:buffer (tramp-get-connection-buffer vec)
:server t :host 'local :service t :noquery t)))
- (process-put p 'vector vec)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)))
diff --git a/lisp/net/tramp-sudoedit.el b/lisp/net/tramp-sudoedit.el
index fa1689d6851..e41a4a590e2 100644
--- a/lisp/net/tramp-sudoedit.el
+++ b/lisp/net/tramp-sudoedit.el
@@ -90,6 +90,7 @@ See `tramp-actions-before-shell' for more info.")
(file-equal-p . tramp-handle-file-equal-p)
(file-executable-p . tramp-sudoedit-handle-file-executable-p)
(file-exists-p . tramp-sudoedit-handle-file-exists-p)
+ (file-group-gid . tramp-handle-file-group-gid)
(file-in-directory-p . tramp-handle-file-in-directory-p)
(file-local-copy . tramp-handle-file-local-copy)
(file-locked-p . tramp-handle-file-locked-p)
@@ -460,26 +461,27 @@ the result will be a local, non-Tramp, file name."
(defun tramp-sudoedit-handle-file-name-all-completions (filename directory)
"Like `file-name-all-completions' for Tramp files."
- (all-completions
- filename
- (with-parsed-tramp-file-name (expand-file-name directory) nil
- (with-tramp-file-property v localname "file-name-all-completions"
- (tramp-sudoedit-send-command
- v "ls" "-a1" "--quoting-style=literal" "--show-control-chars"
- (if (tramp-string-empty-or-nil-p localname)
- "" (file-name-unquote localname)))
- (mapcar
- (lambda (f)
- (if (ignore-errors (file-directory-p (expand-file-name f directory)))
- (file-name-as-directory f)
- f))
- (delq
- nil
+ (ignore-error file-missing
+ (all-completions
+ filename
+ (with-parsed-tramp-file-name (expand-file-name directory) nil
+ (with-tramp-file-property v localname "file-name-all-completions"
+ (tramp-sudoedit-send-command
+ v "ls" "-a1" "--quoting-style=literal" "--show-control-chars"
+ (if (tramp-string-empty-or-nil-p localname)
+ "" (file-name-unquote localname)))
(mapcar
- (lambda (l) (and (not (string-match-p (rx bol (* blank) eol) l)) l))
- (split-string
- (tramp-get-buffer-string (tramp-get-connection-buffer v))
- "\n" 'omit))))))))
+ (lambda (f)
+ (if (ignore-errors (file-directory-p (expand-file-name f
directory)))
+ (file-name-as-directory f)
+ f))
+ (delq
+ nil
+ (mapcar
+ (lambda (l) (and (not (string-match-p (rx bol (* blank) eol) l)) l))
+ (split-string
+ (tramp-get-buffer-string (tramp-get-connection-buffer v))
+ "\n" 'omit)))))))))
(defun tramp-sudoedit-handle-file-readable-p (filename)
"Like `file-readable-p' for Tramp files."
@@ -691,7 +693,7 @@ ID-FORMAT valid values are `string' and `integer'."
"Check, whether a sudo process has finished. Remove unneeded output."
;; There might be pending output for the exit status.
(unless (process-live-p proc)
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
;; Delete narrowed region, it would be in the way reading a Lisp form.
(goto-char (point-min))
(widen)
@@ -719,8 +721,7 @@ connection if a previous connection has died for some
reason."
:name (tramp-get-connection-name vec)
:buffer (tramp-get-connection-buffer vec)
:server t :host 'local :service t :noquery t)))
- (process-put p 'vector vec)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
;; Set connection-local variables.
(tramp-set-connection-local-variables vec)
@@ -754,12 +755,9 @@ in case of error, t otherwise."
(tramp-cache-read-persistent-data t)
;; We do not want to save the password.
auth-source-save-behavior)
- (tramp-message vec 6 "%s" (string-join (process-command p) " "))
;; Avoid process status message in output buffer.
(set-process-sentinel p #'ignore)
- (process-put p 'vector vec)
- (process-put p 'adjust-window-size-function #'ignore)
- (set-process-query-on-exit-flag p nil)
+ (tramp-post-process-creation p vec)
(tramp-set-connection-property p "password-vector"
tramp-sudoedit-null-hop)
(tramp-process-actions p vec nil tramp-sudoedit-sudo-actions)
(tramp-message vec 6 "%s\n%s" (process-exit-status p) (buffer-string))
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 47173b95bea..8c26f533bb8 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -120,7 +120,7 @@ Any level x includes messages for all levels 1 .. x-1. The
levels are
(defcustom tramp-debug-to-file nil
"Whether Tramp debug messages shall be saved to file.
The debug file has the same name as the debug buffer, written to
-`temporary-file-directory'."
+`tramp-compat-temporary-file-directory'."
:version "28.1"
:type 'boolean)
@@ -624,9 +624,7 @@ Sometimes the prompt is reported to look like \"login
as:\"."
;; connection initialization; Tramp redefines the prompt afterwards.
(rx (| bol "\r")
(* (not (any "\n#$%>]")))
- (? "#") (any "#$%>]") (* blank)
- ;; Escape characters.
- (* "[" (* (any ";" digit)) alpha (* blank)))
+ (? "#") (any "#$%>]") (* blank))
"Regexp to match prompts from remote shell.
Normally, Tramp expects you to configure `shell-prompt-pattern'
correctly, but sometimes it happens that you are connecting to a
@@ -665,6 +663,7 @@ The `sudo' program appears to insert a `^@' character into
the prompt."
"Sorry, try again."
"Name or service not known"
"Host key verification failed."
+ "Authentication failed"
"No supported authentication methods left to try!"
(: "Login " (| "Incorrect" "incorrect"))
(: "Connection " (| "refused" "closed"))
@@ -685,7 +684,7 @@ See also `tramp-yn-prompt-regexp'."
:type 'regexp)
(defcustom tramp-yn-prompt-regexp
- (rx (| "Store key in cache? (y/n)"
+ (rx (| (: "Store key in cache? (y/n" (* nonl) ")")
"Update cached key? (y/n, Return cancels connection)")
(* blank))
"Regular expression matching all y/n queries which need to be confirmed.
@@ -698,7 +697,7 @@ See also `tramp-yesno-prompt-regexp'."
(defcustom tramp-terminal-type "dumb"
"Value of TERM environment variable for logging in to remote host.
Because Tramp wants to parse the output of the remote shell, it is easily
-confused by ANSI color escape sequences and suchlike. Often, shell init
+confused by ANSI control escape sequences and suchlike. Often, shell init
files conditionalize this setup based on the TERM environment variable."
:group 'tramp
:type 'string)
@@ -725,7 +724,8 @@ The regexp should match at end of buffer."
;; A security key requires the user physically to touch the device
;; with their finger. We must tell it to the user.
-;; Added in OpenSSH 8.2. I've tested it with yubikey.
+;; Added in OpenSSH 8.2. I've tested it with yubikey. Nitrokey,
+;; which has also passed the tests, does not show such a message.
(defcustom tramp-security-key-confirm-regexp
(rx bol (* "\r") "Confirm user presence for key " (* nonl) (* (any "\r\n")))
"Regular expression matching security key confirmation message.
@@ -1348,6 +1348,7 @@ let-bind this variable."
;; IRIX64: /usr/bin
;; QNAP QTS: ---
;; Hydra: /run/current-system/sw/bin:/bin:/usr/bin
+;;;###tramp-autoload
(defcustom tramp-remote-path
'(tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin"
"/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin"
@@ -1721,11 +1722,11 @@ default values are used."
(unless (or nodefault non-essential
(assoc method tramp-methods))
(tramp-user-error
- v "Method `%s' is not known." method))
+ v "Method `%s' is not known" method))
;; Only some methods from tramp-sh.el do support multi-hops.
(unless (or (null hop) nodefault non-essential (tramp-multi-hop-p v))
(tramp-user-error
- v "Method `%s' is not supported for multi-hops." method)))))))
+ v "Method `%s' is not supported for multi-hops" method)))))))
(put #'tramp-dissect-file-name 'tramp-suppress-trace t)
@@ -1754,7 +1755,7 @@ See `tramp-dissect-file-name' for details."
;; Only some methods from tramp-sh.el do support multi-hops.
(unless (or nodefault non-essential (tramp-multi-hop-p v))
(tramp-user-error
- v "Method `%s' is not supported for multi-hops."
+ v "Method `%s' is not supported for multi-hops"
(tramp-file-name-method v)))
;; Return result.
v))
@@ -1801,7 +1802,9 @@ the form (METHOD USER DOMAIN HOST PORT LOCALNAME
&optional HOP)."
(when (cadr args)
(setq localname (and (stringp (cadr args)) (cadr args))))
(when hop
- (setq hop nil)
+ ;; Keep hop in file name for completion.
+ (unless minibuffer-completing-file-name
+ (setq hop nil))
;; Assure that the hops are in `tramp-default-proxies-alist'.
;; In tramp-archive.el, the slot `hop' is used for the archive
;; file name.
@@ -1909,7 +1912,7 @@ Return `tramp-cache-undefined' in case it doesn't exist."
(or (and (tramp-file-name-p vec-or-proc)
(get-buffer-process (tramp-buffer-name vec-or-proc)))
(and (processp vec-or-proc)
- (tramp-get-process (process-get vec-or-proc 'vector)))
+ (tramp-get-process (process-get vec-or-proc 'tramp-vector)))
tramp-cache-undefined))
(defun tramp-get-connection-process (vec)
@@ -1968,7 +1971,7 @@ of `current-buffer'."
(+ digit) ":" (+ digit) ":" (+ digit) "." (+ digit) blank
;; Thread.
(? (group "#<thread " (+ nonl) ">") blank)
- ;; Function name, verbosity.
+ ;; Function name, verbosity.
(+ (any "-" alnum)) " (" (group (+ digit)) ") #")
"Used for highlighting Tramp debug buffers in `outline-mode'.")
@@ -2107,18 +2110,23 @@ ARGUMENTS to actually emit the message (if applicable)."
(insert "\n"))
;; Timestamp.
(insert (format-time-string "%T.%6N "))
+ ;; Threads. `current-thread' might not exist when Emacs is
+ ;; configured --without-threads.
+ ;; (unless (eq (tramp-compat-funcall 'current-thread) main-thread)
+ ;; (insert (format "%s " (tramp-compat-funcall 'current-thread))))
;; Calling Tramp function. We suppress compat and trace
;; functions from being displayed.
- (let ((btn 1) btf fn)
+ (let ((frames (backtrace-frames))
+ btf fn)
(while (not fn)
- (setq btf (nth 1 (backtrace-frame btn)))
+ (setq btf (cadadr frames))
(if (not btf)
(setq fn "")
(and (symbolp btf) (setq fn (symbol-name btf))
(or (not (string-prefix-p "tramp" fn))
(get btf 'tramp-suppress-trace))
(setq fn nil))
- (setq btn (1+ btn))))
+ (setq frames (cdr frames))))
;; The following code inserts filename and line number.
;; Should be inactive by default, because it is time consuming.
;; (let ((ffn (find-function-noselect (intern fn))))
@@ -2189,7 +2197,7 @@ applicable)."
vec-or-proc 'dont-create))))))))
;; Translate proc to vec.
(when (processp vec-or-proc)
- (setq vec-or-proc (process-get vec-or-proc 'vector))))
+ (setq vec-or-proc (process-get vec-or-proc 'tramp-vector))))
;; Do it.
(when (tramp-file-name-p vec-or-proc)
(apply #'tramp-debug-message
@@ -2648,7 +2656,7 @@ Must be handled by the callers."
;; Emacs 29+ only.
list-system-processes memory-info process-attributes
;; Emacs 30+ only.
- file-user-uid))
+ file-group-gid file-user-uid))
default-directory)
;; PROC.
((member operation '(file-notify-rm-watch file-notify-valid-p))
@@ -3788,14 +3796,14 @@ BODY is the backend specific code."
;; VISIT, for example `jka-compr-handler'. We must respect this.
;; See Bug#55166.
`(let* ((filename (expand-file-name ,filename))
- (lockname (file-truename (or ,lockname filename)))
- (handler (and (stringp ,visit)
- (let ((inhibit-file-name-handlers
- `(tramp-file-name-handler
- tramp-crypt-file-name-handler
- . inhibit-file-name-handlers))
- (inhibit-file-name-operation 'write-region))
- (find-file-name-handler ,visit 'write-region)))))
+ (lockname (file-truename (or ,lockname filename)))
+ (handler (and (stringp ,visit)
+ (let ((inhibit-file-name-handlers
+ `(tramp-file-name-handler
+ tramp-crypt-file-name-handler
+ . inhibit-file-name-handlers))
+ (inhibit-file-name-operation 'write-region))
+ (find-file-name-handler ,visit 'write-region)))))
(with-parsed-tramp-file-name filename nil
(if handler
(progn
@@ -3929,13 +3937,22 @@ Let-bind it when necessary.")
(tramp-make-tramp-file-name (tramp-dissect-file-name filename)))))
(defun tramp-handle-file-user-uid ()
- "Like `user-uid' for Tramp files."
+ "Like `file-user-uid' for Tramp files."
(let ((v (tramp-dissect-file-name default-directory)))
(or (tramp-get-remote-uid v 'integer)
;; Some handlers for `tramp-get-remote-uid' return nil if they
;; can't get the UID; always return -1 in this case for
;; consistency.
- -1)))
+ tramp-unknown-id-integer)))
+
+(defun tramp-handle-file-group-gid ()
+ "Like `file-group-gid' for Tramp files."
+ (let ((v (tramp-dissect-file-name default-directory)))
+ (or (tramp-get-remote-gid v 'integer)
+ ;; Some handlers for `tramp-get-remote-gid' return nil if they
+ ;; can't get the GID; always return -1 in this case for
+ ;; consistency.
+ tramp-unknown-id-integer)))
(defun tramp-handle-access-file (filename string)
"Like `access-file' for Tramp files."
@@ -4120,8 +4137,10 @@ Let-bind it when necessary.")
(defun tramp-handle-file-name-as-directory (file)
"Like `file-name-as-directory' for Tramp files."
;; `file-name-as-directory' would be sufficient except localname is
- ;; the empty string.
- (let ((v (tramp-dissect-file-name file t)))
+ ;; the empty string. Suppress adding a hop to
+ ;; `tramp-default-proxies-alist' due to non-expanded default values.
+ (let ((v (tramp-dissect-file-name file t))
+ tramp-default-proxies-alist)
;; Run the command on the localname portion only unless we are in
;; completion mode.
(tramp-make-tramp-file-name
@@ -4210,8 +4229,10 @@ Let-bind it when necessary.")
"Like `file-name-directory' for Tramp files."
;; Everything except the last filename thing is the directory. We
;; cannot apply `with-parsed-tramp-file-name', because this expands
- ;; the remote file name parts.
- (let ((v (tramp-dissect-file-name file t)))
+ ;; the remote file name parts. Suppress adding a hop to
+ ;; `tramp-default-proxies-alist' due to non-expanded default values.
+ (let ((v (tramp-dissect-file-name file t))
+ tramp-default-proxies-alist)
;; Run the command on the localname portion only. If this returns
;; nil, mark also the localname part of `v' as nil.
(tramp-make-tramp-file-name
@@ -4790,10 +4811,12 @@ Do not set it manually, it is used buffer-local in
`tramp-get-lock-pid'.")
(delete-file lockname)
;; Trigger the unlock error.
(signal 'file-error `("Cannot remove lock file for" ,file)))
- ;; `userlock--handle-unlock-error' exists since Emacs 28.1.
- (error
- (when create-lockfiles
- (tramp-compat-funcall 'userlock--handle-unlock-error err)))))
+ ;; `userlock--handle-unlock-error' exists since Emacs 28.1. It
+ ;; checks for `create-lockfiles' since Emacs 30.1, we don't need
+ ;; this check here, then.
+ (error (unless (or (not create-lockfiles)
+ (bound-and-true-p remote-file-name-inhibit-locks))
+ (tramp-compat-funcall 'userlock--handle-unlock-error err)))))
(defun tramp-handle-load (file &optional noerror nomessage nosuffix
must-suffix)
"Like `load' for Tramp files."
@@ -4828,25 +4851,29 @@ Do not set it manually, it is used buffer-local in
`tramp-get-lock-pid'.")
"Add ad-hoc proxy definitions to `tramp-default-proxies-alist'."
(when-let ((hops (tramp-file-name-hop vec))
(item vec))
- (dolist (proxy (reverse (split-string hops tramp-postfix-hop-regexp
'omit)))
- (let* ((host-port (tramp-file-name-host-port item))
- (user-domain (tramp-file-name-user-domain item))
- (proxy (concat
- tramp-prefix-format proxy tramp-postfix-host-format))
- (entry
- (list (and (stringp host-port)
- (rx bol (literal host-port) eol))
- (and (stringp user-domain)
- (rx bol (literal user-domain) eol))
- (propertize proxy 'tramp-ad-hoc t))))
- (tramp-message vec 5 "Add %S to `tramp-default-proxies-alist'" entry)
- ;; Add the hop.
- (add-to-list 'tramp-default-proxies-alist entry)
- (setq item (tramp-dissect-file-name proxy))))
- ;; Save the new value.
- (when tramp-save-ad-hoc-proxies
- (customize-save-variable
- 'tramp-default-proxies-alist tramp-default-proxies-alist))))
+ (let (signal-hook-function changed)
+ (dolist
+ (proxy (reverse (split-string hops tramp-postfix-hop-regexp 'omit)))
+ (let* ((host-port (tramp-file-name-host-port item))
+ (user-domain (tramp-file-name-user-domain item))
+ (proxy (concat
+ tramp-prefix-format proxy tramp-postfix-host-format))
+ (entry
+ (list (and (stringp host-port)
+ (rx bol (literal host-port) eol))
+ (and (stringp user-domain)
+ (rx bol (literal user-domain) eol))
+ (propertize proxy 'tramp-ad-hoc t))))
+ ;; Add the hop.
+ (unless (member entry tramp-default-proxies-alist)
+ (tramp-message vec 5 "Add %S to `tramp-default-proxies-alist'"
entry)
+ (add-to-list 'tramp-default-proxies-alist entry)
+ (setq changed t))
+ (setq item (tramp-dissect-file-name proxy))))
+ ;; Save the new value.
+ (when (and tramp-save-ad-hoc-proxies changed)
+ (customize-save-variable
+ 'tramp-default-proxies-alist tramp-default-proxies-alist)))))
(defun tramp-compute-multi-hops (vec)
"Expands VEC according to `tramp-default-proxies-alist'."
@@ -4895,7 +4922,7 @@ Do not set it manually, it is used buffer-local in
`tramp-get-lock-pid'.")
(unless (tramp-multi-hop-p item)
(setq tramp-default-proxies-alist saved-tdpa)
(tramp-user-error
- vec "Method `%s' is not supported for multi-hops."
+ vec "Method `%s' is not supported for multi-hops"
(tramp-file-name-method item)))))
;; Some methods ("su", "sg", "sudo", "doas", "ksu") do not use the
@@ -4938,6 +4965,16 @@ substitution. SPEC-LIST is a list of char/value pairs
used for
(unless (member "" x) x))
args))))
+(defun tramp-post-process-creation (proc vec)
+ "Apply actions after creation of process PROC."
+ (process-put proc 'tramp-vector vec)
+ (process-put proc 'adjust-window-size-function #'ignore)
+ (set-process-query-on-exit-flag proc nil)
+ (tramp-taint-remote-process-buffer (process-buffer proc))
+ (tramp-message vec 6 "%s" (string-join (process-command proc) " ")))
+
+(put #'tramp-post-process-creation 'tramp-suppress-trace t)
+
(defun tramp-direct-async-process-p (&rest args)
"Whether direct async `make-process' can be called."
(let ((v (tramp-dissect-file-name default-directory))
@@ -5087,10 +5124,19 @@ substitution. SPEC-LIST is a list of char/value pairs
used for
;; t. See Bug#51177.
(when filter
(set-process-filter p filter))
+ (tramp-post-process-creation p v)
+ ;; Query flag is overwritten in `tramp-post-process-creation',
+ ;; so we reset it.
+ (set-process-query-on-exit-flag p (null noquery))
+ ;; This is neded for ssh or PuTTY based processes, and
+ ;; only if the respective options are set. Perhaps, the
+ ;; setting could be more fine-grained.
+ ;; (process-put p 'tramp-shared-socket t)
(process-put p 'remote-command orig-command)
(tramp-set-connection-property p "remote-command" orig-command)
+ (when (bufferp stderr)
+ (tramp-taint-remote-process-buffer stderr))
- (tramp-message v 6 "%s" (string-join (process-command p) " "))
p))))))
(defun tramp-handle-make-symbolic-link
@@ -5104,7 +5150,7 @@ support symbolic links."
(defun tramp-handle-memory-info ()
"Like `memory-info' for Tramp files."
- (let ((result '(0 0 0 0))
+ (let ((result (list 0 0 0 0))
process-file-side-effects)
(with-temp-buffer
(cond
@@ -5489,7 +5535,7 @@ of."
;; There might be pending output. Avoid problems with reentrant
;; call of Tramp.
(ignore-errors
- (while (tramp-accept-process-output proc 0)))
+ (while (tramp-accept-process-output proc)))
(tramp-message proc 6 "Kill %S" proc)
(delete-process proc))
@@ -5501,7 +5547,7 @@ of."
(with-current-buffer (process-buffer proc)
(file-exists-p
(concat (file-remote-p default-directory)
- (process-get proc 'watch-name))))))
+ (process-get proc 'tramp-watch-name))))))
(defun tramp-file-notify-process-sentinel (proc event)
"Call `file-notify-rm-watch'."
@@ -5641,13 +5687,13 @@ Wait, until the connection buffer changes."
"Check, whether a process has finished."
(unless (process-live-p proc)
;; There might be pending output.
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
(throw 'tramp-action 'process-died)))
(defun tramp-action-out-of-band (proc vec)
"Check, whether an out-of-band copy has finished."
;; There might be pending output for the exit status.
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
(cond ((and (not (process-live-p proc))
(zerop (process-exit-status proc)))
(tramp-message vec 3 "Process has finished.")
@@ -5678,12 +5724,17 @@ See `tramp-process-actions' for the format of ACTIONS."
(while (not found)
;; Reread output once all actions have been performed.
;; Obviously, the output was not complete.
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
+ ;; Remove ANSI control escape sequences.
+ (with-current-buffer (tramp-get-connection-buffer vec)
+ (goto-char (point-min))
+ (while (re-search-forward ansi-color-control-seq-regexp nil t)
+ (replace-match "")))
(setq todo actions)
(while todo
(setq item (pop todo)
tramp-process-action-regexp (symbol-value (nth 0 item))
- pattern (format "\\(%s\\)\\'" tramp-process-action-regexp)
+ pattern (rx (group (regexp tramp-process-action-regexp)) eos)
action (nth 1 item))
(tramp-message
vec 5 "Looking for regexp \"%s\" from remote shell" pattern)
@@ -5721,7 +5772,7 @@ performed successfully. Any other value means an error."
;; use the "password-vector" property in case we have several hops.
(tramp-set-connection-property
(tramp-get-connection-property
- proc "password-vector" (process-get proc 'vector))
+ proc "password-vector" (process-get proc 'tramp-vector))
"first-password-request" tramp-cache-read-persistent-data)
(save-restriction
(with-tramp-progress-reporter
@@ -5789,17 +5840,31 @@ Mostly useful to protect BODY from being interrupted by
timers."
(throw 'non-essential 'non-essential)
(tramp-error
,proc 'remote-file-error "Forbidden reentrant call of Tramp"))
- (unwind-protect
- (progn
- (tramp-set-connection-property ,proc "locked" t)
- ,@body)
- (tramp-flush-connection-property ,proc "locked"))))
+ (let ((stimers (with-timeout-suspend))
+ timer-list timer-idle-list)
+ (unwind-protect
+ (progn
+ (tramp-set-connection-property ,proc "locked" t)
+ ,@body)
+ (tramp-flush-connection-property ,proc "locked")
+ (with-timeout-unsuspend stimers)))))
-(defun tramp-accept-process-output (proc &optional timeout)
+(defun tramp-accept-process-output (proc &optional _timeout)
"Like `accept-process-output' for Tramp processes.
This is needed in order to hide `last-coding-system-used', which is set
for process communication also.
If the user quits via `C-g', it is propagated up to `tramp-file-name-handler'."
+ (declare (advertised-calling-convention (proc) "29.2"))
+ ;; There could be other processes which use the same socket for
+ ;; communication. This could block the output for the current
+ ;; process. Read such output first. (Bug#61350)
+ ;; The process property isn't set anymore due to Bug#62194.
+ (when-let (((process-get proc 'tramp-shared-socket))
+ (v (process-get proc 'tramp-vector)))
+ (dolist (p (delq proc (process-list)))
+ (when (tramp-file-name-equal-p v (process-get p 'tramp-vector))
+ (with-local-quit (accept-process-output p 0 nil t)))))
+
(with-current-buffer (process-buffer proc)
(let ((inhibit-read-only t)
last-coding-system-used
@@ -5809,10 +5874,10 @@ If the user quits via `C-g', it is propagated up to
`tramp-file-name-handler'."
;; JUST-THIS-ONE is set due to Bug#12145. `with-local-quit'
;; returns t in order to report success.
(if (with-local-quit
- (setq result (accept-process-output proc timeout nil t)) t)
+ (setq result (accept-process-output proc 0 nil t)) t)
(tramp-message
- proc 10 "%s %s %s %s\n%s"
- proc timeout (process-status proc) result (buffer-string))
+ proc 10 "%s %s %s\n%s"
+ proc (process-status proc) result (buffer-string))
;; Propagate quit.
(keyboard-quit)))
result)))
@@ -5949,7 +6014,7 @@ the remote host use line-endings as defined in the
variable
(defun tramp-process-sentinel (proc event)
"Flush file caches and remove shell prompt."
(unless (process-live-p proc)
- (let ((vec (process-get proc 'vector))
+ (let ((vec (process-get proc 'tramp-vector))
(buf (process-buffer proc))
(prompt (tramp-get-connection-property proc "prompt")))
(when vec
@@ -6224,10 +6289,9 @@ to cache the result. Return the modified ATTR."
(with-tramp-file-property ,vec ,localname "file-attributes"
(when-let ((attr ,attr))
(save-match-data
- ;; Remove color escape sequences from symlink.
+ ;; Remove ANSI control escape sequences from symlink.
(when (stringp (car attr))
- (while (string-match
- tramp-display-escape-sequence-regexp (car attr))
+ (while (string-match ansi-color-control-seq-regexp (car
attr))
(setcar attr (replace-match "" nil nil (car attr)))))
;; Convert uid and gid. Use `tramp-unknown-id-integer'
;; as indication of unusable value.
@@ -6356,7 +6420,7 @@ ID-FORMAT valid values are `string' and `integer'."
(defun tramp-read-id-output (vec)
"Read in connection buffer the output of the `id' command.
-Set connection properties \"{uid,gid.groups}-{integer,string}\"."
+Set connection properties \"{uid,gid,groups}-{integer,string}\"."
(with-current-buffer (tramp-get-connection-buffer vec)
(let (uid-integer uid-string
gid-integer gid-string
@@ -6656,7 +6720,7 @@ Consults the auth-source package."
;; In tramp-sh.el, we must use "password-vector" due to
;; multi-hop.
(vec (tramp-get-connection-property
- proc "password-vector" (process-get proc 'vector)))
+ proc "password-vector" (process-get proc 'tramp-vector)))
(key (tramp-make-tramp-file-name vec 'noloc))
(method (tramp-file-name-method vec))
(user (or (tramp-file-name-user-domain vec)
@@ -6819,13 +6883,14 @@ name of a process or buffer, or nil to default to the
current buffer."
;; negative pid, so we try both variants.
(tramp-compat-funcall
'tramp-send-command
- (process-get proc 'vector)
+ (process-get proc 'tramp-vector)
(format "(\\kill -2 -%d || \\kill -2 %d) 2>%s"
pid pid
- (tramp-get-remote-null-device (process-get proc 'vector))))
+ (tramp-get-remote-null-device
+ (process-get proc 'tramp-vector))))
;; Wait, until the process has disappeared. If it doesn't,
;; fall back to the default implementation.
- (while (tramp-accept-process-output proc 0))
+ (while (tramp-accept-process-output proc))
(not (process-live-p proc))))))
(add-hook 'interrupt-process-functions #'tramp-interrupt-process)
@@ -6848,7 +6913,7 @@ SIGCODE may be an integer, or a symbol whose name is a
signal name."
(cond
((processp process)
(setq pid (process-get process 'remote-pid)
- vec (process-get process 'vector)))
+ vec (process-get process 'tramp-vector)))
((numberp process)
(setq pid process
vec (and (stringp remote) (tramp-dissect-file-name remote))))
diff --git a/lisp/novice.el b/lisp/novice.el
index c3549acef3e..05e4bfc91c9 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -79,16 +79,22 @@ If nil, the feature is disabled, i.e., all commands work
normally.")
Do you want to use this command anyway?
You can now type:
- \\`y' to try it and enable it (no questions if you use it again).
- \\`n' to cancel--don't try the command, and it remains disabled.
+ \\`n' (also C-g) to cancel--don't try the command; it remains disabled.
+ \\`y' to enable the command (no questions if you use it again).
\\`SPC' to try the command just this once, but leave it disabled.
- \\`!' to try it, and enable all disabled commands for this session
only.")))
+ \\`!' to enable it and all the disabled commands for this session.")))
(char
+ ;; Note: the prompt produced from the choices below must not
+ ;; overflow a single screen line, because otherwise it will
+ ;; cause the mini-window to resize, which will in turn hide
+ ;; the last line of the help text above: the code which fits
+ ;; the window to the size of the help text does not expect
+ ;; the mini-window to become taller.
(car (read-multiple-choice "Use this command?"
- '((?y "yes")
- (?n "no")
- (?! "yes; enable for session")
- (?\s "(space bar) yes; once"))
+ '((?n "no")
+ (?y "yes")
+ (?\s "(space bar) only once")
+ (?! "use and enable all"))
help-string
"*Disabled Command*"))))
(pcase char
diff --git a/lisp/nxml/rng-nxml.el b/lisp/nxml/rng-nxml.el
index 568cf24451b..fd1f4fb904e 100644
--- a/lisp/nxml/rng-nxml.el
+++ b/lisp/nxml/rng-nxml.el
@@ -180,7 +180,7 @@ Validation will be enabled if `rng-nxml-auto-validate-flag'
is non-nil."
(insert " "))))
((member completion extra-strings)
(insert ">"))))
- :company-kind ,(lambda () 'property))))))
+ :company-kind ,(lambda (_) 'property))))))
(defconst rng-in-end-tag-name-regex
(replace-regexp-in-string
diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el
index c36d225c7c9..6f9df554da0 100644
--- a/lisp/nxml/xmltok.el
+++ b/lisp/nxml/xmltok.el
@@ -734,8 +734,13 @@ and VALUE-END, otherwise a STRING giving the value."
(atts-needing-normalization nil))
(while (cond ((or (looking-at (xmltok-attribute regexp))
;; use non-greedy group
- (when (looking-at (concat "[^<>\n]+?"
- (xmltok-attribute regexp)))
+ ;; Limit the search to 10000 characters, to
+ ;; avoid slowdowns due to the quadratic
+ ;; complexity of the regexp. See bug#61514.
+ (when (with-restriction
+ (point) (min (+ (point) 10000) (point-max))
+ (looking-at (concat "[^<>\n]+?"
+ (xmltok-attribute regexp))))
(unless recovering
(xmltok-add-error "Malformed attribute"
(point)
diff --git a/lisp/obsolete/autoload.el b/lisp/obsolete/autoload.el
index fae5db0fd52..ecf931d0881 100644
--- a/lisp/obsolete/autoload.el
+++ b/lisp/obsolete/autoload.el
@@ -723,7 +723,7 @@ autoloads into the specified file instead."
;;;###autoload
(defun make-directory-autoloads (dir output-file)
- "Update autoload definitions for Lisp files in the directories DIRS.
+ "Update autoload definitions for Lisp files in the directories DIR.
DIR can be either a single directory or a list of
directories. (The latter usage is discouraged.)
diff --git a/lisp/obsolete/mantemp.el b/lisp/obsolete/mantemp.el
index 5349ec32cab..9fd6c91cc4e 100644
--- a/lisp/obsolete/mantemp.el
+++ b/lisp/obsolete/mantemp.el
@@ -152,7 +152,7 @@ the lines."
(while (re-search-forward "^.+" nil t)
(progn
(beginning-of-line)
- (if (looking-at "struct[\\t ]+\\|class[\\t ]+")
+ (if (looking-at "struct[\t ]+\\|class[\t ]+")
(insert "template ")
(insert "template class "))))
(goto-char (point-min))
diff --git a/lisp/org/ob-R.el b/lisp/org/ob-R.el
index 4ee091118e4..f2cc069aa5e 100644
--- a/lisp/org/ob-R.el
+++ b/lisp/org/ob-R.el
@@ -36,7 +36,7 @@
(require 'ob)
(declare-function orgtbl-to-tsv "org-table" (table params))
-(declare-function R "ext:essd-r" (&optional start-args))
+(declare-function run-ess-r "ext:ess-r-mode" (&optional start-args))
(declare-function inferior-ess-send-input "ext:ess-inf" ())
(declare-function ess-make-buffer-current "ext:ess-inf" ())
(declare-function ess-eval-buffer "ext:ess-inf" (vis))
@@ -276,7 +276,8 @@ This function is called by `org-babel-execute-src-block'."
(when (get-buffer session)
;; Session buffer exists, but with dead process
(set-buffer session))
- (require 'ess) (R)
+ (require 'ess-r-mode)
+ (set-buffer (run-ess-r))
(let ((R-proc (get-process (or ess-local-process-name
ess-current-process-name))))
(while (process-get R-proc 'callbacks)
diff --git a/lisp/org/ob-comint.el b/lisp/org/ob-comint.el
index 54bf5127e16..adfe31c4008 100644
--- a/lisp/org/ob-comint.el
+++ b/lisp/org/ob-comint.el
@@ -81,19 +81,7 @@ or user `keyboard-quit' during execution of body."
(let* ((string-buffer "")
(comint-output-filter-functions
(cons (lambda (text)
- (setq string-buffer
- (concat
- string-buffer
- ;; Upon concatenation, the prompt may no
- ;; longer match `comint-prompt-regexp'.
- ;; In particular, when the regexp has ^
- ;; and the output does not contain
- ;; trailing newline. Use more reliable
- ;; match to split the output later.
- (replace-regexp-in-string
- comint-prompt-regexp
- ,org-babel-comint-prompt-separator
- text))))
+ (setq string-buffer (concat string-buffer text)))
comint-output-filter-functions))
dangling-text)
;; got located, and save dangling text
@@ -108,21 +96,28 @@ or user `keyboard-quit' during execution of body."
(while (progn
(goto-char comint-last-input-end)
(not (save-excursion
- (and (re-search-forward
- (regexp-quote ,eoe-indicator) nil t)
- (re-search-forward
- comint-prompt-regexp nil t)))))
+ (and (re-search-forward
+ (regexp-quote ,eoe-indicator) nil t)
+ (re-search-forward
+ comint-prompt-regexp nil t)))))
(accept-process-output (get-buffer-process (current-buffer))))
;; replace cut dangling text
(goto-char (process-mark (get-buffer-process (current-buffer))))
(insert dangling-text)
- ;; Replace partially supplied input lines.
- ;; This is needed when output filter spits partial lines that
- ;; do not include a full prompt at a time.
+ ;; Filter out prompts.
(setq string-buffer
(replace-regexp-in-string
- comint-prompt-regexp
+ ;; Sometimes, we get multiple agglomerated
+ ;; prompts together in a single output:
+ ;; "prompt prompt prompt output"
+ ;; Remove them progressively, so that
+ ;; possible "^" in the prompt regexp gets to
+ ;; work as we remove the heading prompt
+ ;; instance.
+ (if (string-prefix-p "^" comint-prompt-regexp)
+ (format "^\\(%s\\)+" (substring comint-prompt-regexp 1))
+ comint-prompt-regexp)
,org-babel-comint-prompt-separator
string-buffer))
;; remove echo'd FULL-BODY from input
diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el
index 3f6696fce77..e69ce4f1d12 100644
--- a/lisp/org/ob-core.el
+++ b/lisp/org/ob-core.el
@@ -2426,7 +2426,8 @@ INFO may provide the values of these header arguments (in
the
(delete-region (point) (org-babel-result-end)))
((member "append" result-params)
(goto-char (org-babel-result-end)) (setq beg (point-marker)))
- ((member "prepend" result-params))) ; already there
+ ;; ((member "prepend" result-params)) ; already there
+ )
(setq results-switches
(if results-switches (concat " " results-switches) ""))
(let ((wrap
diff --git a/lisp/org/ob-js.el b/lisp/org/ob-js.el
index 910c1168667..de7ea91317f 100644
--- a/lisp/org/ob-js.el
+++ b/lisp/org/ob-js.el
@@ -69,7 +69,10 @@
:safe #'stringp)
(defvar org-babel-js-function-wrapper
- "require('process').stdout.write(require('util').inspect(function(){%s}()));"
+ ;; Note that newline after %s - it makes sure that closing
+ ;; parenthesis are not shadowed if the last line of the body is a
+ ;; line comment.
+
"require('process').stdout.write(require('util').inspect(function(){%s\n}()));"
"Javascript code to print value of body.")
(defun org-babel-execute:js (body params)
diff --git a/lisp/org/ob-latex.el b/lisp/org/ob-latex.el
index 428907a270d..ce39628d642 100644
--- a/lisp/org/ob-latex.el
+++ b/lisp/org/ob-latex.el
@@ -141,7 +141,7 @@ exporting the literal LaTeX source."
(org-trim body))
(defun org-babel-execute:latex (body params)
- "Execute a block of Latex code with Babel.
+ "Execute a block of LaTeX code with Babel.
This function is called by `org-babel-execute-src-block'."
(setq body (org-babel-expand-body:latex body params))
(if (cdr (assq :file params))
@@ -180,7 +180,7 @@ This function is called by `org-babel-execute-src-block'."
tmp-pdf
(list org-babel-latex-pdf-svg-process)
extension err-msg log-buf)))
- (shell-command (format "mv %s %s" img-out out-file)))))
+ (rename-file img-out out-file t))))
((string-suffix-p ".tikz" out-file)
(when (file-exists-p out-file) (delete-file out-file))
(with-temp-file out-file
@@ -218,17 +218,14 @@ This function is called by `org-babel-execute-src-block'."
(if (string-suffix-p ".svg" out-file)
(progn
(shell-command "pwd")
- (shell-command (format "mv %s %s"
- (concat (file-name-sans-extension
tex-file) "-1.svg")
- out-file)))
+ (rename-file (concat (file-name-sans-extension tex-file)
"-1.svg")
+ out-file t))
(error "SVG file produced but HTML file requested")))
((file-exists-p (concat (file-name-sans-extension tex-file) ".html"))
(if (string-suffix-p ".html" out-file)
- (shell-command "mv %s %s"
- (concat (file-name-sans-extension tex-file)
- ".html")
- out-file)
- (error "HTML file produced but SVG file requested")))))
+ (rename-file (concat (file-name-sans-extension tex-file)
".html")
+ out-file t)
+ (error "HTML file produced but SVG file requested")))))
((or (string= "pdf" extension) imagemagick)
(with-temp-file tex-file
(require 'ox-latex)
diff --git a/lisp/org/ob-tangle.el b/lisp/org/ob-tangle.el
index 27443fc2e81..980d4a12054 100644
--- a/lisp/org/ob-tangle.el
+++ b/lisp/org/ob-tangle.el
@@ -158,9 +158,9 @@ result. The default value is `org-remove-indentation'."
:version "24.1"
:type 'function)
-(defcustom org-babel-tangle-default-file-mode #o544
+(defcustom org-babel-tangle-default-file-mode #o644
"The default mode used for tangled files, as an integer.
-The default value 356 correspands to the octal #o544, which is
+The default value 420 correspands to the octal #o644, which is
read-write permissions for the user, read-only for everyone else."
:group 'org-babel-tangle
:package-version '(Org . "9.6")
@@ -361,9 +361,9 @@ Did you give the decimal value %1$d by mistake?" mode)))
;; Match regexp taken from `file-modes-symbolic-to-number'.
(file-modes-symbolic-to-number mode org-babel-tangle-default-file-mode))
((string-match-p "^[r-][w-][xs-][r-][w-][xs-][r-][w-][x-]$" mode)
- (file-modes-symbolic-to-number (concat "u=" (substring mode 0 3)
- ",g=" (substring mode 3 6)
- ",o=" (substring mode 6 9))
+ (file-modes-symbolic-to-number (concat "u=" (delete ?- (substring mode 0
3))
+ ",g=" (delete ?- (substring mode 3
6))
+ ",o=" (delete ?- (substring mode 6
9)))
0))
(t (error "File mode %S not recognized as a valid format. See
`org-babel-interpret-file-mode'." mode))))
diff --git a/lisp/org/oc.el b/lisp/org/oc.el
index 260a4d3e1a7..8a7b662098a 100644
--- a/lisp/org/oc.el
+++ b/lisp/org/oc.el
@@ -1232,7 +1232,9 @@ from the processor set in `org-cite-activate-processor'."
(let ((cite (org-with-point-at (match-beginning 0)
(org-element-citation-parser))))
(when cite
- (funcall activate cite)
+ ;; Do not alter match data as font-lock expects us to set it
+ ;; appropriately.
+ (save-match-data (funcall activate cite))
;; Move after cite object and make sure to return
;; a non-nil value.
(goto-char (org-element-property :end cite)))))))
diff --git a/lisp/org/ol-bibtex.el b/lisp/org/ol-bibtex.el
index 7d6ed85345f..fd9517233e0 100644
--- a/lisp/org/ol-bibtex.el
+++ b/lisp/org/ol-bibtex.el
@@ -86,8 +86,8 @@
;; the active region, then call `org-bibtex-write' in a .org file to
;; insert a heading for the read bibtex entry
;;
-;; - All Bibtex information is taken from the document compiled by
-;; Andrew Roberts from the Bibtex manual, available at
+;; - All BibTeX information is taken from the document compiled by
+;; Andrew Roberts from the BibTeX manual, available at
;; https://www.andy-roberts.net/res/writing/latex/bibentries.pdf
;;
;;; History:
@@ -99,7 +99,7 @@
;; and then implemented by Bastien Guerry.
;;
;; Eric Schulte eventually added the functions for translating between
-;; Org headlines and Bibtex entries, and for fleshing out the Bibtex
+;; Org headlines and BibTeX entries, and for fleshing out the BibTeX
;; fields of existing Org headlines.
;;
;; Org mode loads this module by default - if this is not what you want,
@@ -144,7 +144,7 @@
(declare-function org-search-view "org-agenda" (&optional todo-only string
edit-at))
-;;; Bibtex data
+;;; BibTeX data
(defvar org-bibtex-types
'((:article
(:description . "An article from a journal or magazine")
@@ -202,7 +202,7 @@
(:description . "A document having an author and title, but not formally
published.")
(:required :author :title :note)
(:optional :month :year :doi :url)))
- "Bibtex entry types with required and optional parameters.")
+ "BibTeX entry types with required and optional parameters.")
(defvar org-bibtex-fields
'((:address . "Usually the address of the publisher or other type of
institution. For major publishing houses, van Leunen recommends omitting the
information entirely. For small publishers, on the other hand, you can help
the reader by giving the complete address.")
@@ -231,7 +231,7 @@
(:url . "Uniform resource locator.")
(:volume . "The volume of a journal or multi-volume book.")
(:year . "The year of publication or, for an unpublished work, the
year it was written. Generally it should consist of four numerals, such as
1984, although the standard styles can handle any year whose last four
nonpunctuation characters are numerals, such as '(about 1984)'"))
- "Bibtex fields with descriptions.")
+ "BibTeX fields with descriptions.")
(defvar org-bibtex-entries nil
"List to hold parsed bibtex entries.")
@@ -439,7 +439,7 @@ at point."
(error "Field:%s is not known" field))
(save-window-excursion
(let* ((name (substring (symbol-name field) 1))
- (buf-name (format "*Bibtex Help %s*" name)))
+ (buf-name (format "*BibTeX Help %s*" name)))
(with-output-to-temp-buffer buf-name
(princ (cdr (assoc field org-bibtex-fields))))
(with-current-buffer buf-name (visual-line-mode 1))
@@ -496,7 +496,7 @@ With optional argument OPTIONAL, also prompt for optional
fields."
(org-bibtex-autokey)))
-;;; Bibtex link functions
+;;; BibTeX link functions
(org-link-set-parameters "bibtex"
:follow #'org-bibtex-open
:store #'org-bibtex-store-link)
@@ -593,13 +593,13 @@ ARG, when non-nil, is a universal prefix argument. See
(add-hook 'org-execute-file-search-functions
'org-execute-file-search-in-bibtex)
-;;; Bibtex <-> Org headline translation functions
+;;; BibTeX <-> Org headline translation functions
(defun org-bibtex (filename)
"Export each headline in the current file to a bibtex entry.
Headlines are exported using `org-bibtex-headline'."
(interactive
(list (read-file-name
- "Bibtex file: " nil nil nil
+ "BibTeX file: " nil nil nil
(let ((file (buffer-file-name (buffer-base-buffer))))
(and file
(file-name-nondirectory
@@ -619,7 +619,7 @@ Headlines are exported using `org-bibtex-headline'."
nil))))
(when error-point
(goto-char error-point)
- (message "Bibtex error at %S" (nth 4 (org-heading-components))))))
+ (message "BibTeX error at %S" (nth 4 (org-heading-components))))))
(defun org-bibtex-check (&optional optional)
"Check the current headline for required fields.
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index a33d84f1cd4..d3e61643190 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -3348,7 +3348,7 @@ s Search for keywords M Like m, but
only TODO entries
(`agenda
(call-interactively 'org-agenda-list))
(`agenda*
- (funcall 'org-agenda-list nil nil t))
+ (funcall 'org-agenda-list nil nil nil t))
(`alltodo
(call-interactively 'org-todo-list))
(`search
@@ -7724,8 +7724,7 @@ The optional argument TYPE tells the agenda type."
(unless (string= org-agenda-todo-keyword-format "")
;; Remove `display' property as the icon could leak
;; on the white space.
- (org-add-props " " (org-plist-delete (text-properties-at
0 x)
- 'display)))
+ (apply #'propertize " " (org-plist-delete
(text-properties-at 0 x) 'display)))
(substring x (match-end 3)))))))
x)))
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index f9daf3f14d8..d7fe14cd5e1 100644
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -3062,57 +3062,58 @@ PROPERTIES: The list properties specified in the
`:properties' parameter
Otherwise, return nil."
(interactive)
(let ((origin (point))) ;; `save-excursion' may not work when deleting.
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-forward " \t")
- (when (looking-at org-clock-string)
- (let ((re (concat "[ \t]*" org-clock-string
- " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
- "\\([ \t]*=>.*\\)?\\)?"))
- ts te h m s neg)
- (cond
- ((not (looking-at re))
- nil)
- ((not (match-end 2))
- (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
- (> org-clock-marker (point))
- (<= org-clock-marker (line-end-position)))
- ;; The clock is running here
- (setq org-clock-start-time
- (org-time-string-to-time (match-string 1)))
- (org-clock-update-mode-line)))
- (t
- ;; Prevent recursive call from `org-timestamp-change'.
- (cl-letf (((symbol-function 'org-clock-update-time-maybe)
#'ignore))
- ;; Update timestamps.
- (save-excursion
- (goto-char (match-beginning 1)) ; opening timestamp
- (save-match-data (org-timestamp-change 0 'day)))
- ;; Refresh match data.
- (looking-at re)
- (save-excursion
- (goto-char (match-beginning 3)) ; closing timestamp
- (save-match-data (org-timestamp-change 0 'day))))
- ;; Refresh match data.
- (looking-at re)
- (and (match-end 4) (delete-region (match-beginning 4) (match-end
4)))
- (end-of-line 1)
- (setq ts (match-string 1)
- te (match-string 3))
- (setq s (- (org-time-string-to-seconds te)
- (org-time-string-to-seconds ts))
- neg (< s 0)
- s (abs s)
- h (floor (/ s 3600))
- s (- s (* 3600 h))
- m (floor (/ s 60))
- s (- s (* 60 s)))
- (insert " => " (format (if neg "-%d:%02d" "%2d:%02d") h m))
- t)))))
- ;; Move back to initial position, but never beyond updated
- ;; clock.
- (unless (< (point) origin)
- (goto-char origin))))
+ (prog1
+ (save-excursion
+ (beginning-of-line 1)
+ (skip-chars-forward " \t")
+ (when (looking-at org-clock-string)
+ (let ((re (concat "[ \t]*" org-clock-string
+ " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
+ "\\([ \t]*=>.*\\)?\\)?"))
+ ts te h m s neg)
+ (cond
+ ((not (looking-at re))
+ nil)
+ ((not (match-end 2))
+ (when (and (equal (marker-buffer org-clock-marker)
(current-buffer))
+ (> org-clock-marker (point))
+ (<= org-clock-marker (line-end-position)))
+ ;; The clock is running here
+ (setq org-clock-start-time
+ (org-time-string-to-time (match-string 1)))
+ (org-clock-update-mode-line)))
+ (t
+ ;; Prevent recursive call from `org-timestamp-change'.
+ (cl-letf (((symbol-function 'org-clock-update-time-maybe)
#'ignore))
+ ;; Update timestamps.
+ (save-excursion
+ (goto-char (match-beginning 1)) ; opening timestamp
+ (save-match-data (org-timestamp-change 0 'day)))
+ ;; Refresh match data.
+ (looking-at re)
+ (save-excursion
+ (goto-char (match-beginning 3)) ; closing timestamp
+ (save-match-data (org-timestamp-change 0 'day))))
+ ;; Refresh match data.
+ (looking-at re)
+ (and (match-end 4) (delete-region (match-beginning 4)
(match-end 4)))
+ (end-of-line 1)
+ (setq ts (match-string 1)
+ te (match-string 3))
+ (setq s (- (org-time-string-to-seconds te)
+ (org-time-string-to-seconds ts))
+ neg (< s 0)
+ s (abs s)
+ h (floor (/ s 3600))
+ s (- s (* 3600 h))
+ m (floor (/ s 60))
+ s (- s (* 60 s)))
+ (insert " => " (format (if neg "-%d:%02d" "%2d:%02d") h m))
+ t)))))
+ ;; Move back to initial position, but never beyond updated
+ ;; clock.
+ (unless (< (point) origin)
+ (goto-char origin)))))
(defun org-clock-save ()
"Persist various clock-related data to disk.
diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index 8524dd29d83..517d45b0224 100644
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -2462,7 +2462,7 @@ CDR is a plist containing `:key', `:value', `:begin',
`:end',
(org-element-property :value keyword)))
-;;;; Latex Environment
+;;;; LaTeX Environment
(defconst org-element--latex-begin-environment
"^[ \t]*\\\\begin{\\([A-Za-z0-9*]+\\)}"
@@ -3412,7 +3412,7 @@ CONTENTS is the contents of the object."
(format "/%s/" contents))
-;;;; Latex Fragment
+;;;; LaTeX Fragment
(defun org-element-latex-fragment-parser ()
"Parse LaTeX fragment at point, if any.
@@ -5329,7 +5329,7 @@ seconds.")
"Duration, as a time value, of the pause between synchronizations.
See `org-element-cache-sync-duration' for more information.")
-(defvar org-element--cache-self-verify t
+(defvar org-element--cache-self-verify nil
"Activate extra consistency checks for the cache.
This may cause serious performance degradation depending on the value
diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el
index 8d7b0b034f8..4efa8ba6800 100644
--- a/lisp/org/org-macs.el
+++ b/lisp/org/org-macs.el
@@ -36,6 +36,17 @@
;;; Org version verification.
+(defvar org--inhibit-version-check nil
+ "When non-nil, skip the detection of mixed-versions situations.
+For internal use only. See Emacs bug #62762.
+This variable is only supposed to be changed by Emacs build scripts.
+When nil, Org tries to detect when Org source files were compiled with
+a different version of Org (which tends to lead to incorrect `.elc' files),
+or when the current Emacs session has loaded a mix of files from different
+Org versions (typically the one bundled with Emacs and another one installed
+from GNU ELPA), which can happen if some parts of Org were loaded before
+`load-path' was changed (e.g. before the GNU-ELPA-installed Org is activated
+by `package-activate-all').")
(defmacro org-assert-version ()
"Assert compile time and runtime version match."
;; We intentionally use a more permissive `org-release' instead of
@@ -45,7 +56,7 @@
;; `org-assert-version' calls would fail using strict
;; `org-git-version' check because the generated Org version strings
;; will not match.
- `(unless (equal (org-release) ,(org-release))
+ `(unless (or org--inhibit-version-check (equal (org-release) ,(org-release)))
(warn "Org version mismatch. Org loading aborted.
This warning usually appears when a built-in Org version is loaded
prior to the more recent Org version.
@@ -1277,7 +1288,7 @@ so values can contain further %-escapes if they are
define later in TABLE."
(setq re (concat "%-?[0-9.]*" (substring (car e) 1)))
(when (and (cdr e) (string-match re (cdr e)))
(let ((sref (substring (cdr e) (match-beginning 0) (match-end 0)))
- (safe "SREF"))
+ (safe (copy-sequence "SREF")))
(add-text-properties 0 3 (list 'sref sref) safe)
(setcdr e (replace-match safe t t (cdr e)))))
(while (string-match re string)
diff --git a/lisp/org/org-persist.el b/lisp/org/org-persist.el
index a0652b99c56..01078f4596d 100644
--- a/lisp/org/org-persist.el
+++ b/lisp/org/org-persist.el
@@ -540,13 +540,13 @@ COLLECTION is the plist holding data collection."
(defun org-persist-read:file (_ path __)
"Read file container from PATH."
- (when (and path (file-exists-p (concat org-persist-directory path)))
- (concat org-persist-directory path)))
+ (when (and path (file-exists-p (org-file-name-concat org-persist-directory
path)))
+ (org-file-name-concat org-persist-directory path)))
(defun org-persist-read:url (_ path __)
"Read file container from PATH."
- (when (and path (file-exists-p (concat org-persist-directory path)))
- (concat org-persist-directory path)))
+ (when (and path (file-exists-p (org-file-name-concat org-persist-directory
path)))
+ (org-file-name-concat org-persist-directory path)))
(defun org-persist-read:index (cont index-file _)
"Read index container CONT from INDEX-FILE."
diff --git a/lisp/org/org-src.el b/lisp/org/org-src.el
index 9e439281118..aadd8eba579 100644
--- a/lisp/org/org-src.el
+++ b/lisp/org/org-src.el
@@ -315,7 +315,7 @@ is 0.")
(defun org-src--construct-edit-buffer-name (org-buffer-name lang)
"Construct the buffer name for a source editing buffer.
-Format is \"*Org Src ORG-BUFFER-NAME [ LANG ]*\"."
+Format is \"*Org Src ORG-BUFFER-NAME[ LANG ]*\"."
(concat "*Org Src " org-buffer-name "[ " lang " ]*"))
(defun org-src--edit-buffer (beg end)
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 5116b1127f7..42f234790c5 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -2861,7 +2861,7 @@ list, `literal' is for the format specifier L."
(if lispp
(if (eq lispp 'literal)
elements
- (if (and (eq elements "") (not keep-empty))
+ (if (and (equal elements "") (not keep-empty))
""
(prin1-to-string
(if numbers (string-to-number elements) elements))))
@@ -5414,12 +5414,10 @@ overwritten, and the table is not marked as requiring
realignment."
(self-insert-command N))
(setq org-table-may-need-update t)
(let* (orgtbl-mode
- a
(cmd (or (key-binding
(or (and (listp function-key-map)
- (setq a (assoc last-input-event function-key-map))
- (cdr a))
- (vector last-input-event)))
+ (cdr (assoc last-command-event function-key-map)))
+ (vector last-command-event)))
'self-insert-command)))
(call-interactively cmd)
(if (and org-self-insert-cluster-for-undo
diff --git a/lisp/org/org-version.el b/lisp/org/org-version.el
index a8a13152dc8..8d93af2c20d 100644
--- a/lisp/org/org-version.el
+++ b/lisp/org/org-version.el
@@ -5,13 +5,13 @@
(defun org-release ()
"The release version of Org.
Inserted by installing Org mode or when a release is made."
- (let ((org-release "9.6.1"))
+ (let ((org-release "9.6.6"))
org-release))
;;;###autoload
(defun org-git-version ()
"The Git version of Org mode.
Inserted by installing Org or when a release is made."
- (let ((org-git-version "release_9.6.1-40-g3d817c"))
+ (let ((org-git-version "release_9.6.6"))
org-git-version))
(provide 'org-version)
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 2fbb825015f..b81630fdc07 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -9,7 +9,7 @@
;; URL: https://orgmode.org
;; Package-Requires: ((emacs "26.1"))
-;; Version: 9.6.1
+;; Version: 9.6.6
;; This file is part of GNU Emacs.
;;
@@ -3483,13 +3483,17 @@ Make sure that you only list packages here which:
:group 'org-export-latex
:set 'org-set-packages-alist
:get 'org-get-packages-alist
- :type '(repeat
- (choice
- (list :tag "options/package pair"
- (string :tag "options")
- (string :tag "package")
- (boolean :tag "Snippet"))
- (string :tag "A line of LaTeX"))))
+ :type
+ '(repeat
+ (choice
+ (list :tag "options/package pair"
+ (string :tag "options")
+ (string :tag "package")
+ (boolean :tag "snippet")
+ (choice
+ (const :tag "All compilers include this package" nil)
+ (repeat :tag "Only include from these compilers" string)))
+ (string :tag "A line of LaTeX"))))
(defgroup org-appearance nil
"Settings for Org mode appearance."
@@ -3600,13 +3604,13 @@ following symbols:
(const :tag "Entities" entities))))
(defcustom org-hide-emphasis-markers nil
- "Non-nil mean font-lock should hide the emphasis marker characters."
+ "Non-nil means font-lock should hide the emphasis marker characters."
:group 'org-appearance
:type 'boolean
:safe #'booleanp)
(defcustom org-hide-macro-markers nil
- "Non-nil mean font-lock should hide the brackets marking macro calls."
+ "Non-nil means font-lock should hide the brackets marking macro calls."
:group 'org-appearance
:type 'boolean)
@@ -3618,7 +3622,7 @@ When nil, the \\name form remains in the buffer."
:type 'boolean)
(defcustom org-pretty-entities-include-sub-superscripts t
- "Non-nil means, pretty entity display includes formatting sub/superscripts."
+ "Non-nil means pretty entity display includes formatting sub/superscripts."
:group 'org-appearance
:version "24.1"
:type 'boolean)
@@ -5370,7 +5374,7 @@ by a #."
(zero-or-more (any " \t"))
(group (group (zero-or-more (not (any " \t\n"))))
(zero-or-more (any " \t"))
- (group (zero-or-more any)))))
+ (group (zero-or-more nonl)))))
limit t)
(let ((beg (match-beginning 0))
(end-of-beginline (match-end 0))
@@ -5396,7 +5400,7 @@ by a #."
"#+end"
,(match-string 4)
word-end
- (zero-or-more any)))))
+ (zero-or-more nonl)))))
;; We look further than LIMIT on purpose.
nil t)
;; We do have a matching #+end line.
@@ -5469,7 +5473,7 @@ by a #."
(beginning-of-line)
(looking-at (rx (group (zero-or-more (any " \t"))
"#+caption"
- (optional "[" (zero-or-more any) "]")
+ (optional "[" (zero-or-more nonl) "]")
":")
(zero-or-more (any " \t")))))
(add-text-properties (line-beginning-position) (match-end 1)
@@ -8440,7 +8444,10 @@ a link."
(dolist (link (if (stringp links) (list links) links))
(search-forward link nil links-end)
(goto-char (match-beginning 0))
- (org-open-at-point arg)))))))
+ ;; When opening file link, current buffer may be
+ ;; altered.
+ (save-current-buffer
+ (org-open-at-point arg))))))))
;; On a footnote reference or at definition's label.
((or (eq type 'footnote-reference)
(and (eq type 'footnote-definition)
@@ -9143,7 +9150,8 @@ nil or a string to be used for the todo mark." )
(replace-match "0" t nil nil 1)))))
(defvar org-state)
-(defvar org-blocked-by-checkboxes)
+;; FIXME: We should refactor this and similar dynamically scoped blocker flags.
+(defvar org-blocked-by-checkboxes nil) ; dynamically scoped
(defun org-todo (&optional arg)
"Change the TODO state of an item.
@@ -10215,7 +10223,7 @@ nil."
(replace-match "")
(if (and (string-match "\\S-" (buffer-substring
(line-beginning-position) (point)))
(equal (char-before) ?\ ))
- (backward-delete-char 1)
+ (delete-char -1)
(when (string-match "^[ \t]*$" (buffer-substring
(line-beginning-position)
(line-end-position)))
(delete-region (line-beginning-position)
@@ -12006,18 +12014,17 @@ Returns the new tags string, or nil to not change the
current settings."
(setq current nil)
(when exit-after-next (setq exit-after-next 'now)))
((= c ?\t)
- (condition-case nil
- (unless tab-tags
- (setq tab-tags
- (delq nil
- (mapcar (lambda (x)
- (let ((item (car-safe x)))
- (and (stringp item)
- (list item))))
- (org--tag-add-to-alist
- (with-current-buffer buf
- (org-get-buffer-tags))
- table))))))
+ (unless tab-tags
+ (setq tab-tags
+ (delq nil
+ (mapcar (lambda (x)
+ (let ((item (car-safe x)))
+ (and (stringp item)
+ (list item))))
+ (org--tag-add-to-alist
+ (with-current-buffer buf
+ (org-get-buffer-tags))
+ table)))))
(setq tg (completing-read "Tag: " tab-tags))
(when (string-match "\\S-" tg)
(cl-pushnew (list tg) tab-tags :test #'equal)
@@ -16415,7 +16422,7 @@ buffer boundaries with possible narrowing."
(defun org-display-inline-remove-overlay (ov after _beg _end &optional _len)
"Remove inline-display overlay if a corresponding region is modified."
(when (and ov after)
- (delete ov org-inline-image-overlays)
+ (setq org-inline-image-overlays (delete ov org-inline-image-overlays))
;; Clear image from cache to avoid image not updating upon
;; changing on disk. See Emacs bug#59902.
(when (overlay-get ov 'org-image-overlay)
@@ -16532,7 +16539,7 @@ because, in this case the deletion might narrow the
column."
(looking-at-p ".*?|")
(org-at-table-p))
(progn (forward-char -1) (org-delete-char 1))
- (backward-delete-char N)
+ (funcall-interactively #'backward-delete-char N)
(org-fix-tags-on-the-fly))))
(defun org-delete-char (N)
@@ -18595,6 +18602,10 @@ block from point."
(throw 'exit n)))))
nil)))
+;; Defined in org-agenda.el
+(defvar org-agenda-restrict)
+(defvar org-agenda-restrict-begin)
+(defvar org-agenda-restrict-end)
(defun org-occur-in-agenda-files (regexp &optional _nlines)
"Call `multi-occur' with buffers for all agenda files."
(interactive "sOrg-files matching: ")
diff --git a/lisp/org/ox-ascii.el b/lisp/org/ox-ascii.el
index 9c4424b14f1..692dd216d61 100644
--- a/lisp/org/ox-ascii.el
+++ b/lisp/org/ox-ascii.el
@@ -1549,7 +1549,7 @@ information."
keyword info)))))
-;;;; Latex Environment
+;;;; LaTeX Environment
(defun org-ascii-latex-environment (latex-environment _contents info)
"Transcode a LATEX-ENVIRONMENT element from Org to ASCII.
@@ -1561,7 +1561,7 @@ information."
latex-environment info)))
-;;;; Latex Fragment
+;;;; LaTeX Fragment
(defun org-ascii-latex-fragment (latex-fragment _contents info)
"Transcode a LATEX-FRAGMENT object from Org to ASCII.
diff --git a/lisp/org/ox-html.el b/lisp/org/ox-html.el
index 7b79c57d4a4..b27254b8ac5 100644
--- a/lisp/org/ox-html.el
+++ b/lisp/org/ox-html.el
@@ -2969,7 +2969,7 @@ CONTENTS is nil. INFO is a plist holding contextual
information."
((string= "listings" value) (org-html-list-of-listings info))
((string= "tables" value) (org-html-list-of-tables info))))))))
-;;;; Latex Environment
+;;;; LaTeX Environment
(defun org-html-format-latex (latex-frag processing-type info)
"Format a LaTeX fragment LATEX-FRAG into HTML.
@@ -3086,7 +3086,7 @@ CONTENTS is nil. INFO is a plist holding contextual
information."
info caption label)))))
(t (org-html--wrap-latex-environment latex-frag info caption label)))))
-;;;; Latex Fragment
+;;;; LaTeX Fragment
(defun org-html-latex-fragment (latex-fragment _contents info)
"Transcode a LATEX-FRAGMENT object from Org to HTML.
diff --git a/lisp/org/ox-latex.el b/lisp/org/ox-latex.el
index 5ac9c378133..768bf402b70 100644
--- a/lisp/org/ox-latex.el
+++ b/lisp/org/ox-latex.el
@@ -1272,7 +1272,7 @@ used. When nil, no theme is applied."
(defun org-latex-generate-engraved-preamble (info)
"Generate the preamble to setup engraved code.
The result is constructed from the :latex-engraved-preamble and
-:latex-engraved-optionsn export options, the default values of
+:latex-engraved-options export options, the default values of
which are given by `org-latex-engraved-preamble' and
`org-latex-engraved-options' respectively."
(let* ((engraved-options
@@ -1820,9 +1820,11 @@ INFO is a plist used as a communication channel. See
"Protect special chars, then wrap TEXT in \"\\texttt{}\"."
(format "\\texttt{%s}"
(replace-regexp-in-string
- "--\\|[\\{}$%&_#~^]"
+ "--\\|<<\\|>>\\|[\\{}$%&_#~^]"
(lambda (m)
- (cond ((equal m "--") "-{}-")
+ (cond ((equal m "--") "-{}-{}")
+ ((equal m "<<") "<{}<{}")
+ ((equal m ">>") ">{}>{}")
((equal m "\\") "\\textbackslash{}")
((equal m "~") "\\textasciitilde{}")
((equal m "^") "\\textasciicircum{}")
@@ -2600,7 +2602,7 @@ CONTENTS is nil. INFO is a plist holding contextual
information."
(otherwise "\\lstlistoflistings")))))))))
-;;;; Latex Environment
+;;;; LaTeX Environment
(defun org-latex--environment-type (latex-environment)
"Return the TYPE of LATEX-ENVIRONMENT.
@@ -2658,7 +2660,7 @@ CONTENTS is nil. INFO is a plist holding contextual
information."
(insert caption)
(buffer-string))))))
-;;;; Latex Fragment
+;;;; LaTeX Fragment
(defun org-latex-latex-fragment (latex-fragment _contents _info)
"Transcode a LATEX-FRAGMENT object from Org to LaTeX.
diff --git a/lisp/org/ox-md.el b/lisp/org/ox-md.el
index 5cb79ef2396..5be0ca22e07 100644
--- a/lisp/org/ox-md.el
+++ b/lisp/org/ox-md.el
@@ -486,7 +486,7 @@ channel."
(_ (org-export-with-backend 'html keyword contents info))))
-;;;; Latex Environment
+;;;; LaTeX Environment
(defun org-md-latex-environment (latex-environment _contents info)
"Transcode a LATEX-ENVIRONMENT object from Org to Markdown.
@@ -501,7 +501,7 @@ CONTENTS is nil. INFO is a plist holding contextual
information."
latex-frag)
latex-frag))))
-;;;; Latex Fragment
+;;;; LaTeX Fragment
(defun org-md-latex-fragment (latex-fragment _contents info)
"Transcode a LATEX-FRAGMENT object from Org to Markdown.
diff --git a/lisp/org/ox-odt.el b/lisp/org/ox-odt.el
index 949c8f9b5b2..dd96ed8e064 100644
--- a/lisp/org/ox-odt.el
+++ b/lisp/org/ox-odt.el
@@ -1986,7 +1986,7 @@ information."
(ignore))))))))
-;;;; Latex Environment
+;;;; LaTeX Environment
;; (eval-after-load 'ox-odt '(ad-deactivate 'org-format-latex-as-mathml))
;; (advice-add 'org-format-latex-as-mathml ; FIXME
@@ -2007,7 +2007,7 @@ CONTENTS is nil. INFO is a plist holding contextual
information."
(org-odt-do-format-code latex-frag info)))
-;;;; Latex Fragment
+;;;; LaTeX Fragment
;; (when latex-frag ; FIXME
;; (setq href (propertize href :title "LaTeX Fragment"
@@ -2923,21 +2923,28 @@ contextual information."
;; not be desired in scripts that do not separate words with
;; spaces (for example, Han script). `fill-region' is able to
;; handle such situations.
- ;; FIXME: The unnecessary spaced may still remain when a newline
+ ;; FIXME: The unnecessary spacing may still remain when a newline
;; is at a boundary between Org objects (e.g. italics markup
;; followed by newline).
- (setq output
- (with-temp-buffer
- (insert output)
- (save-match-data
- (let ((leading (and (string-match (rx bos (1+ blank)) output)
- (match-string 0 output)))
- (trailing (and (string-match (rx (1+ blank) eos) output)
- (match-string 0 output))))
- ;; Unfill, retaining leading/trailing space.
- (let ((fill-column most-positive-fixnum))
- (fill-region (point-min) (point-max)))
- (concat leading (buffer-string) trailing))))))
+ (when (org-string-nw-p output) ; blank string needs not to be re-filled
+ (setq output
+ (with-temp-buffer
+ (save-match-data
+ (let ((leading (and (string-match (rx bos (1+ blank)) output)
+ (match-string 0 output)))
+ (trailing (and (string-match (rx (1+ blank) eos)
output)
+ (match-string 0 output))))
+ (insert
+ (substring
+ output
+ (length leading)
+ (pcase (length trailing)
+ (0 nil)
+ (n (- n)))))
+ ;; Unfill, retaining leading/trailing space.
+ (let ((fill-column most-positive-fixnum))
+ (fill-region (point-min) (point-max)))
+ (concat leading (buffer-string) trailing)))))))
;; Return value.
output))
diff --git a/lisp/org/ox-texinfo.el b/lisp/org/ox-texinfo.el
index 4ff482cc3f5..f822f3d110c 100644
--- a/lisp/org/ox-texinfo.el
+++ b/lisp/org/ox-texinfo.el
@@ -2037,10 +2037,13 @@ Once computed, the results remain cached."
"\n")))
(with-temp-file input-file
(insert input-content))
- (let* ((output-file (org-texinfo-compile input-file))
- (output-content (with-temp-buffer
- (insert-file-contents output-file)
- (buffer-string))))
+ (when-let* ((output-file
+ ;; If compilation fails, consider math to
+ ;; be not supported.
+ (ignore-errors (org-texinfo-compile input-file)))
+ (output-content (with-temp-buffer
+ (insert-file-contents output-file)
+ (buffer-string))))
(let ((result (string-match-p (regexp-quote math-example)
output-content)))
(delete-file input-file)
diff --git a/lisp/outline.el b/lisp/outline.el
index a89985d1990..97a51c9b92a 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -1500,8 +1500,10 @@ corresponding level. See `outline-default-rules' to
customize
visibility of the subtree at that level.
If equal to a lambda function or function name, this function is
-expected to toggle headings visibility, and will be
-called without arguments after the mode is enabled."
+expected to toggle headings visibility, and will be called
+without arguments after the mode is enabled. Heading visibility
+can be changed with functions such as `outline-show-subtree',
+`outline-show-entry', `outline-hide-entry' etc."
:version "29.1"
:type '(choice (const :tag "Disabled" nil)
(const :tag "Show all" outline-show-all)
@@ -1877,7 +1879,7 @@ With a prefix argument, show headings up to that LEVEL."
(save-excursion (goto-char beg) (setq beg (pos-bol)))
(save-excursion (goto-char end) (setq end (pos-eol)))
(remove-overlays beg end 'outline-button t)
- (outline--fix-up-all-buttons beg end))
+ (save-match-data (outline--fix-up-all-buttons beg end)))
(defvar-keymap outline-navigation-repeat-map
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 7d270ea789f..1553c3efed7 100644
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -184,6 +184,86 @@ Return the new list."
(when (and (not ,exist) (buffer-live-p ,buf))
(kill-buffer ,buf))))))
+(defvar pcmpl-gnu--tar-long-options
+ ;; FIXME: Extract this list from "tar --help".
+ '("--absolute-names"
+ "--after-date="
+ "--append"
+ "--atime-preserve"
+ "--backup"
+ "--block-number"
+ "--blocking-factor="
+ "--catenate"
+ "--checkpoint"
+ "--compare"
+ "--compress"
+ "--concatenate"
+ "--confirmation"
+ "--create"
+ "--delete"
+ "--dereference"
+ "--diff"
+ "--directory="
+ "--exclude="
+ "--exclude-from="
+ "--extract"
+ "--file="
+ "--files-from="
+ "--force-local"
+ "--get"
+ "--group="
+ "--gzip"
+ "--help"
+ "--ignore-failed-read"
+ "--ignore-zeros"
+ "--incremental"
+ "--info-script="
+ "--interactive"
+ "--keep-old-files"
+ "--label="
+ "--list"
+ "--listed-incremental"
+ "--mode="
+ "--modification-time"
+ "--multi-volume"
+ "--new-volume-script="
+ "--newer="
+ "--newer-mtime"
+ "--no-recursion"
+ "--null"
+ "--numeric-owner"
+ "--old-archive"
+ "--one-file-system"
+ "--owner="
+ "--portability"
+ "--posix"
+ "--preserve"
+ "--preserve-order"
+ "--preserve-permissions"
+ "--read-full-records"
+ "--record-size="
+ "--recursive-unlink"
+ "--remove-files"
+ "--rsh-command="
+ "--same-order"
+ "--same-owner"
+ "--same-permissions"
+ "--sparse"
+ "--starting-file="
+ "--suffix="
+ "--tape-length="
+ "--to-stdout"
+ "--totals"
+ "--uncompress"
+ "--ungzip"
+ "--unlink-first"
+ "--update"
+ "--use-compress-program="
+ "--verbose"
+ "--verify"
+ "--version"
+ "--volno-file="))
+
;;;###autoload
(defun pcomplete/tar ()
"Completion for the GNU tar utility."
@@ -192,148 +272,53 @@ Return the new list."
(while (pcomplete-match "^-" 0)
(setq saw-option t)
(if (pcomplete-match "^--" 0)
- (if (pcomplete-match "^--\\([^= \t\n\f]*\\)\\'" 0)
- ;; FIXME: Extract this list from "tar --help".
- (pcomplete-here*
- '("--absolute-names"
- "--after-date="
- "--append"
- "--atime-preserve"
- "--backup"
- "--block-number"
- "--blocking-factor="
- "--catenate"
- "--checkpoint"
- "--compare"
- "--compress"
- "--concatenate"
- "--confirmation"
- "--create"
- "--delete"
- "--dereference"
- "--diff"
- "--directory="
- "--exclude="
- "--exclude-from="
- "--extract"
- "--file="
- "--files-from="
- "--force-local"
- "--get"
- "--group="
- "--gzip"
- "--help"
- "--ignore-failed-read"
- "--ignore-zeros"
- "--incremental"
- "--info-script="
- "--interactive"
- "--keep-old-files"
- "--label="
- "--list"
- "--listed-incremental"
- "--mode="
- "--modification-time"
- "--multi-volume"
- "--new-volume-script="
- "--newer="
- "--newer-mtime"
- "--no-recursion"
- "--null"
- "--numeric-owner"
- "--old-archive"
- "--one-file-system"
- "--owner="
- "--portability"
- "--posix"
- "--preserve"
- "--preserve-order"
- "--preserve-permissions"
- "--read-full-records"
- "--record-size="
- "--recursive-unlink"
- "--remove-files"
- "--rsh-command="
- "--same-order"
- "--same-owner"
- "--same-permissions"
- "--sparse"
- "--starting-file="
- "--suffix="
- "--tape-length="
- "--to-stdout"
- "--totals"
- "--uncompress"
- "--ungzip"
- "--unlink-first"
- "--update"
- "--use-compress-program="
- "--verbose"
- "--verify"
- "--version"
- "--volno-file=")))
- (pcomplete-opt "01234567ABCFGKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz"))
- (cond
- ((pcomplete-match "\\`-\\'" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--after-date=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--backup=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--blocking-factor=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--directory=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-dirs)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--exclude-from=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-entries)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--exclude=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--\\(extract\\|list\\)\\'" 0)
- (setq complete-within t))
- ((pcomplete-match "\\`--file=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-dirs-or-entries pcmpl-gnu-tarfile-regexp)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--files-from=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-entries)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--group=\\(.*\\)" 0)
- (pcomplete-here* (pcmpl-unix-group-names)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--info-script=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-entries)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--label=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--mode=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--new-volume-script=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-entries)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--newer=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--owner=\\(.*\\)" 0)
- (pcomplete-here* (pcmpl-unix-user-names)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--record-size=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--rsh-command=\\(.*\\)" 0)
- (pcomplete-here* (funcall pcomplete-command-completion-function)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--starting-file=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-entries)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--suffix=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--tape-length=" 0)
- (pcomplete-here*))
- ((pcomplete-match "\\`--use-compress-program=\\(.*\\)" 0)
- (pcomplete-here* (funcall pcomplete-command-completion-function)
- (pcomplete-match-string 1 0)))
- ((pcomplete-match "\\`--volno-file=\\(.*\\)" 0)
- (pcomplete-here* (pcomplete-entries)
- (pcomplete-match-string 1 0)))))
+ (cond
+ ((pcomplete-match "^--\\([^= \t\n\f]*\\)\\'" 0)
+ (pcomplete-here* pcmpl-gnu--tar-long-options))
+ ((pcomplete-match "\\`--directory=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-dirs)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--exclude-from=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-entries)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--\\(extract\\|list\\)\\'" 0)
+ (setq complete-within t))
+ ((pcomplete-match "\\`--file=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-dirs-or-entries
+ pcmpl-gnu-tarfile-regexp)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--files-from=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-entries)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--group=\\(.*\\)" 0)
+ (pcomplete-here* (pcmpl-unix-group-names)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--info-script=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-entries)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--new-volume-script=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-entries)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--owner=\\(.*\\)" 0)
+ (pcomplete-here* (pcmpl-unix-user-names)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--rsh-command=\\(.*\\)" 0)
+ (pcomplete-here* (funcall pcomplete-command-completion-function)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--starting-file=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-entries)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--use-compress-program=\\(.*\\)" 0)
+ (pcomplete-here* (funcall pcomplete-command-completion-function)
+ (pcomplete-match-string 1 0)))
+ ((pcomplete-match "\\`--volno-file=\\(.*\\)" 0)
+ (pcomplete-here* (pcomplete-entries)
+ (pcomplete-match-string 1 0)))
+ (t
+ (pcomplete-here*)))
+ (pcomplete-opt "01234567ABCFGKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz")
+ (when (pcomplete-match "\\`-\\'" 0)
+ (pcomplete-here*))))
(unless saw-option
(pcomplete-here
(mapcar #'char-to-string
diff --git a/lisp/pcmpl-linux.el b/lisp/pcmpl-linux.el
index 082072d87d2..589b4799c8d 100644
--- a/lisp/pcmpl-linux.el
+++ b/lisp/pcmpl-linux.el
@@ -119,7 +119,8 @@ Test is done using `equal'."
(with-temp-buffer
(apply #'call-process
"systemctl" nil '(t nil) nil
- "list-units" "--full" "--legend=no" "--plain" args)
+ ;; "--legend=no" doesn't exist before systemd v248
+ "list-units" "--full" "--no-legend" "--plain" args)
(goto-char (point-min))
(let (result)
(while (re-search-forward (rx bol (group (+ (not space)))
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 487144144f5..5f412bf418a 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -290,6 +290,10 @@ This is and alternative of `scroll-down'. Scope moves
upward."
(scroll-down 1) ; relay on robust method
(pixel-scroll-pixel-down amt))))))
+;; isearch-scroll support
+(put 'pixel-scroll-up 'scroll-command t)
+(put 'pixel-scroll-down 'scroll-command t)
+
(defun pixel-bob-at-top-p (amt)
"Return non-nil if window-start is at beginning of the current buffer.
Window must be vertically scrolled by not more than AMT pixels."
@@ -728,6 +732,9 @@ wheel."
(message (error-message-string '(end-of-buffer))))))))))
(mwheel-scroll event nil))))
+;; isearch-scroll support
+(put 'pixel-scroll-precision 'scroll-command t)
+
(defun pixel-scroll-kinetic-state (&optional window)
"Return the kinetic scroll state of WINDOW.
If WINDOW is nil, return the state of the current window.
diff --git a/lisp/plstore.el b/lisp/plstore.el
index 0276a752a0f..d18d461d7d1 100644
--- a/lisp/plstore.el
+++ b/lisp/plstore.el
@@ -24,6 +24,14 @@
;; Plist based data store providing search and partial encryption.
;;
+;; By default, this package uses symmetric encryption, which means
+;; that you have to enter the password protecting your store more
+;; often than you probably expect to. To use public key encryption
+;; with this package, create a GnuPG key and customize user option
+;; `plstore-encrypt-to' to use it. You can then configure the GnuPG
+;; agent to adjust caching and expiration of the passphrase for your
+;; store.
+;;
;; Creating:
;;
;; ;; Open a new store associated with ~/.emacs.d/auth.plist.
@@ -43,12 +51,16 @@
;; ;; Kill the buffer visiting ~/.emacs.d/auth.plist.
;; (plstore-close store)
;;
+;; Avoid marking one property both as public *and* secret, as the
+;; behavior of this package with respect to such duplicate properties
+;; is not (yet) defined.
+;;
;; Searching:
;;
;; (setq store (plstore-open (expand-file-name "~/.emacs.d/auth.plist")))
;;
;; ;; As the entry "foo" associated with "foo.example.org" has no
-;; ;; secret properties, no need to decryption.
+;; ;; secret properties, no need for decryption.
;; (plstore-find store '(:host ("foo.example.org")))
;;
;; ;; As the entry "bar" associated with "bar.example.org" has a
@@ -66,17 +78,119 @@
;; Editing:
;;
;; This file also provides `plstore-mode', a major mode for editing
-;; the PLSTORE format file. Visit a non-existing file and put the
+;; the plstore format file. Visit a non-existing file and put the
;; following line:
;;
;; (("foo" :host "foo.example.org" :secret-user "user"))
;;
;; where the prefixing `:secret-' means the property (without
;; `:secret-' prefix) is marked as secret. Thus, when you save the
-;; buffer, the `:secret-user' property is encrypted as `:user'.
+;; buffer, the `:secret-user' property is encrypted as `:user'. Do
+;; not use a property consisting solely of the prefix, as the behavior
+;; of this package with respect to such properties is not (yet)
+;; defined.
;;
;; You can toggle the view between encrypted form and the decrypted
;; form with C-c C-c.
+;;
+;; If you have opened a plstore with `plstore-open' you should not
+;; edit its underlying buffer in `plstore-mode' or in any other way at
+;; the same time, since your manual changes will be overwritten when
+;; `plstore-save' is called on that plstore.
+;;
+;; Internals:
+;;
+;; This is information on the internal data structure and functions of
+;; this package. None of it should be necessary to actually use it.
+;; For easier reading, we usually do not distinguish in this internal
+;; documentation between a Lisp object and its printed representation.
+;;
+;; A plstore corresponds to an alist mapping strings to property
+;; lists. Internally, that alist is organized as two alists, one
+;; mapping to the non-secret properties and placeholders for the
+;; secret properties (called "template alist" with identifier ALIST)
+;; and one mapping to the secret properties ("secret alist",
+;; SECRET-ALIST). The secret alist is read from and written to file
+;; as pgp-encrypted printed representation of the alist ("encrypted
+;; data", ENCRYPTED-DATA).
+;;
+;; During the lifetime of a plstore, a third type of alist may pop up,
+;; which maps to the merged non-secret properties and plain-text
+;; secret properties ("merged alist", MERGED-ALIST).
+;;
+;; After executing the "foo", "bar", "baz" example from above the
+;; alists described above look like the following:
+;;
+;; Template Alist:
+;;
+;; (("foo" :host "foo.example.org" :port 80)
+;; ("bar" :secret-user t :host "bar.example.org")
+;; ("baz" :secret-password t :host "baz.example.org"))
+;;
+;; Secret Alist:
+;;
+;; (("bar" :user "test")
+;; ("baz" :password "test"))
+;;
+;; Merged Alist:
+;;
+;; (("foo" :host "foo.example.org" :port 80)
+;; ("bar" :user "test" :host "bar.example.org")
+;; ("baz" :password "test" :host "baz.example.org"))
+;;
+;; Finally, a plstore requires a buffer ("plstore buffer", BUFFER) for
+;; conversion between its Lisp objects and its file representation.
+;; It is important to note that this buffer is *not* continuously
+;; synchronized as the plstore changes. During the lifetime of a
+;; plstore, its buffer is read from in function `plstore-open' and
+;; (destructively) written to in `plstore-save', but not touched
+;; otherwise. We call the file visited by the plstore buffer the
+;; associated file of the plstore.
+;;
+;; With the identifiers defined above a plstore is a vector with the
+;; following elements and accessor functions:
+;;
+;; [
+;; BUFFER ; plstore--get/set-buffer
+;; ALIST ; plstore--get/set-alist
+;; ENCRYPTED-DATA ; plstore--get/set-encrypted-data
+;; SECRET-ALIST ; plstore--get/set-secret-alist
+;; MERGED-ALIST ; plstore--get/set-merged-alist
+;; ]
+;;
+;; When a plstore is created through `plstore-open', its ALIST and
+;; ENCRYPTED-DATA are initialized from the contents of BUFFER without
+;; any decryption taking place, and MERGED-ALIST is initialized as a
+;; copy of ALIST. (Which means that at that stage the merged alist
+;; still contains the secret property placeholders!)
+;;
+;; During on-demand decryption of a plstore through function
+;; `plstore--decrypt', SECRET-ALIST is populated from ENCRYPTED-DATA,
+;; which is in turn replaced by value nil. (Which further serves as
+;; an indicator that the plstore has been decrypted already.) In
+;; addition, MERGED-ALIST is recomputed by function
+;; `plstore--merge-secret' to replace the secret property placeholders
+;; by their plain-text secret property equivalents.
+;;
+;; The file representation of a plstore consists of two Lisp forms plus
+;; markers to introduce them:
+;;
+;; ;;; public entries
+;; ALIST
+;; ;;; secret entries
+;; ENCRYPTED-DATA
+;;
+;; Both of these are optional, but the first section must be present
+;; if the second one is. If both sections are missing, the plstore is
+;; empty. If the second section is missing, it contains only
+;; non-secret data. If present, the printed representation of the
+;; encrypted data includes the delimiting double quotes.
+;;
+;; The plstore API (`plstore-open', `plstore-put', etc.) and the
+;; plstore mode implemented by `plstore-mode' are orthogonal to each
+;; other and should not be mixed up. In particular, encoding and
+;; decoding a plstore mode buffer with `plstore-mode-toggle-display'
+;; is not related in any way to the state of the plstore buffer.
;;; Code:
@@ -121,10 +235,13 @@ symmetric encryption will be used."
(put 'plstore-encrypt-to 'permanent-local t)
-(defvar plstore-encoded nil)
+(defvar plstore-encoded nil
+ "Non-nil if the current buffer shows the decoded alist.") ; [sic!]
(put 'plstore-encoded 'permanent-local t)
+;;; EasyPG callback functions.
+
(defvar plstore-cache-passphrase-for-symmetric-encryption nil)
(defvar plstore-passphrase-alist nil)
@@ -141,11 +258,11 @@ symmetric encryption will be used."
(cons entry
plstore-passphrase-alist)))
(setq passphrase
- (read-passwd (format "Passphrase for PLSTORE %s: "
+ (read-passwd (format "Passphrase for plstore %s: "
(plstore--get-buffer plstore))))
(setcdr entry (copy-sequence passphrase))
passphrase)))
- (read-passwd (format "Passphrase for PLSTORE %s: "
+ (read-passwd (format "Passphrase for plstore %s: "
(plstore--get-buffer plstore)))))
(defun plstore-progress-callback-function (_context _what _char current total
@@ -155,6 +272,8 @@ symmetric encryption will be used."
(message "%s...%d%%" handback
(if (> total 0) (floor (* (/ current (float total)) 100)) 0))))
+;;; Core functions.
+
(defun plstore--get-buffer (arg)
(aref arg 0))
@@ -193,6 +312,7 @@ symmetric encryption will be used."
(vector buffer alist encrypted-data secret-alist merged-alist))
(defun plstore--init-from-buffer (plstore)
+ "Parse current buffer and initialize PLSTORE from it."
(goto-char (point-min))
(when (looking-at ";;; public entries")
(forward-line)
@@ -223,16 +343,20 @@ symmetric encryption will be used."
store)))
(defun plstore-revert (plstore)
- "Replace current data in PLSTORE with the file on disk."
+ "Replace current data in PLSTORE from its associated file."
(with-current-buffer (plstore--get-buffer plstore)
(revert-buffer t t)
(plstore--init-from-buffer plstore)))
(defun plstore-close (plstore)
- "Destroy a plstore instance PLSTORE."
+ "Destroy plstore instance PLSTORE."
(kill-buffer (plstore--get-buffer plstore)))
(defun plstore--merge-secret (plstore)
+ "Determine the merged alist of PLSTORE.
+Create the merged alist as a copy of the template alist with all
+placeholder properties that have corresponding properties in the
+secret alist replaced by their plain-text secret properties."
(let ((alist (plstore--get-secret-alist plstore))
modified-alist
modified-plist
@@ -251,19 +375,26 @@ symmetric encryption will be used."
modified-entry (assoc (car entry) modified-alist)
modified-plist (cdr modified-entry))
(while plist
+ ;; Search for a placeholder property in the merged alist
+ ;; corresponding to the current secret property.
(setq placeholder
(plist-member
modified-plist
(intern (concat ":secret-"
(substring (symbol-name (car plist)) 1)))))
+ ;; Replace its name with the real, secret property name.
(if placeholder
(setcar placeholder (car plist)))
+ ;; Update its value to the plain-text secret property value.
(setq modified-plist
(plist-put modified-plist (car plist) (car (cdr plist))))
(setq plist (nthcdr 2 plist)))
(setcdr modified-entry modified-plist))))
(defun plstore--decrypt (plstore)
+ "Decrypt the encrypted data of PLSTORE.
+Update its internal alists and other data structures
+accordingly."
(if (plstore--get-encrypted-data plstore)
(let ((context (epg-make-context 'OpenPGP))
plain)
@@ -290,6 +421,11 @@ symmetric encryption will be used."
(plstore--set-encrypted-data plstore nil))))
(defun plstore--match (entry keys skip-if-secret-found)
+ "Return whether plist KEYS matches ENTRY.
+ENTRY should be a key of the merged alist of a PLSTORE. This
+function returns nil if KEYS do not match ENTRY, t if they match,
+and symbol `secret' if the secret alist needs to be consulted to
+perform a match."
(let ((result t) key-name key-value prop-value secret-name)
(while keys
(setq key-name (car keys)
@@ -311,11 +447,10 @@ symmetric encryption will be used."
result))
(defun plstore-find (plstore keys)
- "Perform search on PLSTORE with KEYS.
-KEYS is a plist."
+ "Return all PLSTORE entries matching plist KEYS."
(let (entries alist entry match decrypt plist)
- ;; First, go through the merged plist alist and collect entries
- ;; matched with keys.
+ ;; First, go through the merged alist and collect entries matched
+ ;; by the keys.
(setq alist (plstore--get-merged-alist plstore))
(while alist
(setq entry (car alist)
@@ -331,7 +466,7 @@ KEYS is a plist."
plist nil))
(setq plist (nthcdr 2 plist)))
(setq entries (cons entry entries)))))
- ;; Second, decrypt the encrypted plist and try again.
+ ;; Second, decrypt the plstore and try again.
(when decrypt
(setq entries nil)
(plstore--decrypt plstore)
@@ -345,7 +480,8 @@ KEYS is a plist."
(nreverse entries)))
(defun plstore-get (plstore name)
- "Get an entry with NAME in PLSTORE."
+ "Return the entry named NAME in PLSTORE.
+Return nil if there is none."
(let ((entry (assoc name (plstore--get-merged-alist plstore)))
plist)
(setq plist (cdr entry))
@@ -359,7 +495,7 @@ KEYS is a plist."
entry))
(defun plstore-put (plstore name keys secret-keys)
- "Put an entry with NAME in PLSTORE.
+ "Put an entry named NAME in PLSTORE.
KEYS is a plist containing non-secret data.
SECRET-KEYS is a plist containing secret data."
(let (entry
@@ -398,7 +534,7 @@ SECRET-KEYS is a plist containing secret data."
(plstore--merge-secret plstore)))
(defun plstore-delete (plstore name)
- "Delete an entry with NAME from PLSTORE."
+ "Delete the first entry named NAME from PLSTORE."
(let ((entry (assoc name (plstore--get-alist plstore))))
(if entry
(plstore--set-alist
@@ -417,6 +553,8 @@ SECRET-KEYS is a plist containing secret data."
(defvar pp-escape-newlines)
(defun plstore--insert-buffer (plstore)
+ "Insert the file representation of PLSTORE at point.
+Assumes that PLSTORE has been decrypted."
(insert ";;; public entries -*- mode: plstore -*- \n"
(pp-to-string (plstore--get-alist plstore)))
(if (plstore--get-secret-alist plstore)
@@ -451,13 +589,31 @@ If no one is selected, symmetric encryption will be
performed. "
(insert ";;; secret entries\n" (pp-to-string cipher)))))
(defun plstore-save (plstore)
- "Save the contents of PLSTORE associated with a FILE."
+ "Save PLSTORE to its associated file."
(with-current-buffer (plstore--get-buffer plstore)
(erase-buffer)
(plstore--insert-buffer plstore)
(save-buffer)))
+;;; plstore mode.
+
+;; The functions related to plstore mode unfortunately introduce yet
+;; another alist format ("decoded alist"). After executing the "foo",
+;; "bar", "baz" example from above the decoded alist of the plstore
+;; would look like the following:
+;;
+;; (("foo" :host "foo.example.org" :port 80)
+;; ("bar" :secret-user "test" :host "bar.example.org")
+;; ("baz" :secret-password "test" :host "baz.example.org"))
+;;
+;; Even more unfortunately, variable and function names of the
+;; following are a bit mixed up IMHO: With the current names, the
+;; result of function `plstore--encode' is used to create what is
+;; presented as "decoded form of a plstore" to the user. And variable
+;; `plstore-encoded' is non-nil if a buffer shows the decoded form.
+
(defun plstore--encode (plstore)
+ "Return the printed representation of the decoded alist of PLSTORE."
(plstore--decrypt plstore)
(let ((merged-alist (plstore--get-merged-alist plstore)))
(concat "("
@@ -482,6 +638,9 @@ If no one is selected, symmetric encryption will be
performed. "
")")))
(defun plstore--decode (string)
+ "Create a plstore instance from STRING.
+STRING should be the printed representation of a decoded alist of
+some plstore."
(let* ((alist (car (read-from-string string)))
(pointer alist)
secret-alist
@@ -489,7 +648,7 @@ If no one is selected, symmetric encryption will be
performed. "
entry)
(while pointer
(unless (stringp (car (car pointer)))
- (error "Invalid PLSTORE format %s" string))
+ (error "Invalid plstore format %s" string))
(setq plist (cdr (car pointer)))
(while plist
(when (string-match "\\`:secret-" (symbol-name (car plist)))
@@ -509,6 +668,10 @@ If no one is selected, symmetric encryption will be
performed. "
(plstore--make nil alist nil secret-alist)))
(defun plstore--write-contents-functions ()
+ "Convert the decoded form of a plstore in the current buffer.
+Convert it to the regular file representation of a plstore if
+needed. This function is used on hook `write-contents-functions'
+in plstore mode buffers."
(when plstore-encoded
(let ((store (plstore--decode (buffer-string)))
(file (buffer-file-name)))
@@ -546,7 +709,7 @@ If no one is selected, symmetric encryption will be
performed. "
(erase-buffer)
(insert
(substitute-command-keys "\
-;;; You are looking at the decoded form of the PLSTORE file.\n\
+;;; You are looking at the decoded form of the plstore file.\n\
;;; To see the original form content, do \\[plstore-mode-toggle-display]\n\n"))
(insert (plstore--encode store))
(set-buffer-modified-p nil)
@@ -561,7 +724,7 @@ If no one is selected, symmetric encryption will be
performed. "
;;;###autoload
(define-derived-mode plstore-mode emacs-lisp-mode "PLSTORE"
- "Major mode for editing PLSTORE files."
+ "Major mode for editing plstore files."
(make-local-variable 'plstore-encoded)
(add-hook 'write-contents-functions #'plstore--write-contents-functions)
(define-key plstore-mode-map "\C-c\C-c" #'plstore-mode-toggle-display)
diff --git a/lisp/progmodes/c-ts-common.el b/lisp/progmodes/c-ts-common.el
index 85db39aaeae..e0a7c46508e 100644
--- a/lisp/progmodes/c-ts-common.el
+++ b/lisp/progmodes/c-ts-common.el
@@ -156,10 +156,12 @@ comment."
(goto-char (match-beginning 1))
(move-marker start-marker (point))
(replace-match " " nil nil nil 1))
+
;; Include whitespaces before /*.
(goto-char start)
(beginning-of-line)
(setq start (point))
+
;; Mask spaces before "*/" if it is attached at the end
;; of a sentence rather than on its own line.
(goto-char end)
@@ -172,6 +174,7 @@ comment."
(setq end-len (- (match-end 1) (match-beginning 1)))
(replace-match (make-string end-len ?x)
nil nil nil 1))
+
;; If "*/" is on its own line, don't included it in the
;; filling region.
(when (not end-marker)
@@ -180,13 +183,21 @@ comment."
(backward-char 2)
(skip-syntax-backward "-")
(setq end (point))))
+
;; Let `fill-paragraph' do its thing.
(goto-char orig-point)
(narrow-to-region start end)
- ;; We don't want to fill the region between START and
- ;; START-MARKER, otherwise the filling function might delete
- ;; some spaces there.
- (fill-region start-marker end arg)
+ (let (para-start para-end)
+ (forward-paragraph 1)
+ (setq para-end (point))
+ (forward-paragraph -1)
+ (setq para-start (point))
+ ;; We don't want to fill the region between START and
+ ;; START-MARKER, otherwise the filling function might delete
+ ;; some spaces there. Also, we only fill the current
+ ;; paragraph.
+ (fill-region (max start-marker para-start) (min end para-end) arg))
+
;; Unmask.
(when start-marker
(goto-char start-marker)
diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el
index 8c44647ec3e..4b83c6733a2 100644
--- a/lisp/progmodes/c-ts-mode.el
+++ b/lisp/progmodes/c-ts-mode.el
@@ -79,6 +79,9 @@
(declare-function treesit-node-type "treesit.c")
(declare-function treesit-node-prev-sibling "treesit.c")
(declare-function treesit-node-first-child-for-pos "treesit.c")
+(declare-function treesit-node-next-sibling "treesit.c")
+(declare-function treesit-parser-set-included-ranges "treesit.c")
+(declare-function treesit-query-compile "treesit.c")
;;; Custom variables
@@ -135,6 +138,10 @@ symbol."
(loop (append res (list buffer)) (cdr buffers))
(loop res (cdr buffers))))))))
+(defun c-ts-indent-style-safep (style)
+ "Non-nil if STYLE's value is safe for file-local variables."
+ (and (symbolp style) (not (functionp style))))
+
(defcustom c-ts-mode-indent-style 'gnu
"Style used for indentation.
@@ -149,6 +156,7 @@ follows the form of `treesit-simple-indent-rules'."
(symbol :tag "BSD" bsd)
(function :tag "A function for user customized style" ignore))
:set #'c-ts-mode--indent-style-setter
+ :safe 'c-ts-indent-style-safep
:group 'c)
(defun c-ts-mode--get-indent-style (mode)
@@ -192,6 +200,18 @@ To set the default indent style globally, use
(c-ts-mode--get-indent-style
(if (derived-mode-p 'c-ts-mode) 'c 'cpp))))))
+(defcustom c-ts-mode-emacs-sources-support t
+ "Whether to enable Emacs source-specific features.
+This enables detection of definitions of Lisp function using
+the DEFUN macro.
+This needs to be set before enabling `c-ts-mode'; if you change
+the value after enabling `c-ts-mode', toggle the mode off and on
+again."
+ :version "29.1"
+ :type 'boolean
+ :safe 'booleanp
+ :group 'c)
+
;;; Syntax table
(defvar c-ts-mode--syntax-table
@@ -322,7 +342,7 @@ PARENT is the same as other anchor functions."
;; nil.
parent (lambda (node)
(and node
- (not (string-match "preproc" (treesit-node-type node)))
+ (not (string-search "preproc" (treesit-node-type node)))
(progn
(goto-char (treesit-node-start node))
(looking-back (rx bol (* whitespace))
@@ -339,7 +359,9 @@ PARENT, BOL, ARGS are the same as other anchor functions."
"Indent rules supported by `c-ts-mode'.
MODE is either `c' or `cpp'."
(let ((common
- `(((parent-is "translation_unit") column-0 0)
+ `((c-ts-mode--for-each-tail-body-matcher prev-line
c-ts-mode-indent-offset)
+
+ ((parent-is "translation_unit") column-0 0)
((query "(ERROR (ERROR)) @indent") column-0 0)
((node-is ")") parent 1)
((node-is "]") parent-bol 0)
@@ -386,7 +408,7 @@ MODE is either `c' or `cpp'."
((parent-is "function_definition") parent-bol 0)
((parent-is "conditional_expression") first-sibling 0)
((parent-is "assignment_expression") parent-bol
c-ts-mode-indent-offset)
- ((parent-is "concatenated_string") parent-bol
c-ts-mode-indent-offset)
+ ((parent-is "concatenated_string") first-sibling 0)
((parent-is "comma_expression") first-sibling 0)
((parent-is "init_declarator") parent-bol c-ts-mode-indent-offset)
((parent-is "parenthesized_expression") first-sibling 1)
@@ -434,6 +456,8 @@ MODE is either `c' or `cpp'."
((parent-is "while_statement") standalone-parent
c-ts-mode-indent-offset)
((parent-is "do_statement") standalone-parent
c-ts-mode-indent-offset)
+ ((parent-is "case_statement") standalone-parent
c-ts-mode-indent-offset)
+
,@(when (eq mode 'cpp)
`(((node-is "field_initializer_list") parent-bol ,(*
c-ts-mode-indent-offset 2)))))))
`((gnu
@@ -480,10 +504,10 @@ NODE should be a labeled_statement. PARENT is its
parent."
"C/C++ keywords for tree-sitter font-locking.
MODE is either `c' or `cpp'."
(let ((c-keywords
- '("break" "case" "const" "continue"
+ '("_Atomic" "break" "case" "const" "continue"
"default" "do" "else" "enum"
"extern" "for" "goto" "if" "inline"
- "register" "return"
+ "register" "restrict" "return"
"sizeof" "static" "struct"
"switch" "typedef" "union"
"volatile" "while")))
@@ -512,6 +536,11 @@ MODE is either `c' or `cpp'."
"+=" "*=" "/=" "%=" "|=" "&=" "^=" ">>=" "<<=" "--" "++")
"C/C++ operators for tree-sitter font-locking.")
+(defvar c-ts-mode--for-each-tail-regexp
+ (rx "FOR_EACH_" (or "TAIL" "TAIL_SAFE" "ALIST_VALUE"
+ "LIVE_BUFFER" "FRAME"))
+ "A regexp matching all the variants of the FOR_EACH_* macro.")
+
(defun c-ts-mode--font-lock-settings (mode)
"Tree-sitter font-lock settings.
MODE is either `c' or `cpp'."
@@ -598,6 +627,13 @@ MODE is either `c' or `cpp'."
(function_definition
declarator: (_) @c-ts-mode--fontify-declarator)
+ ;; When a function definition has preproc directives in its body,
+ ;; it can't correctly parse into a function_definition. We still
+ ;; want to highlight the function_declarator correctly, hence
+ ;; this rule. See bug#63390 for more detail.
+ ((function_declarator) @c-ts-mode--fontify-declarator
+ (:pred c-ts-mode--top-level-declarator
+ @c-ts-mode--fontify-declarator))
(parameter_declaration
declarator: (_) @c-ts-mode--fontify-declarator)
@@ -662,10 +698,14 @@ MODE is either `c' or `cpp'."
:language mode
:feature 'emacs-devel
:override t
- '(((call_expression
+ `(((call_expression
(call_expression function: (identifier) @fn)
- @c-ts-mode--fontify-defun)
- (:match "^DEFUN$" @fn)))))
+ @c-ts-mode--fontify-DEFUN)
+ (:match "^DEFUN$" @fn))
+
+ ((function_definition type: (_) @for-each-tail)
+ @c-ts-mode--fontify-for-each-tail
+ (:match ,c-ts-mode--for-each-tail-regexp @for-each-tail)))))
;;; Font-lock helpers
@@ -717,6 +757,19 @@ For NODE, OVERRIDE, START, END, and ARGS, see
(treesit-node-start identifier) (treesit-node-end identifier)
face override start end))))
+(defun c-ts-mode--top-level-declarator (node)
+ "Return non-nil if NODE is a top-level function_declarator."
+ ;; These criterion are observed in
+ ;; xterm.c:x_draw_glyphless_glyph_string_foreground on emacs-29
+ ;; branch, described in bug#63390. They might not cover all cases
+ ;; where a function_declarator is at top-level, outside of a
+ ;; function_definition. We might need to amend them as we discover
+ ;; more cases.
+ (let* ((parent (treesit-node-parent node))
+ (grandparent (treesit-node-parent parent)))
+ (and (equal (treesit-node-type parent) "ERROR")
+ (null grandparent))))
+
(defun c-ts-mode--fontify-variable (node override start end &rest _)
"Fontify an identifier node if it is a variable.
Don't fontify if it is a function identifier. For NODE,
@@ -728,14 +781,14 @@ OVERRIDE, START, END, and ARGS, see
`treesit-font-lock-rules'."
(treesit-node-start node) (treesit-node-end node)
'font-lock-variable-use-face override start end)))
-(defun c-ts-mode--fontify-defun (node override start end &rest _)
- "Correctly fontify the DEFUN macro.
+(defun c-ts-mode--fontify-DEFUN (node override start end &rest _)
+ "Correctly fontify calls to the DEFUN macro in Emacs sources.
For NODE, OVERRIDE, START, and END, see
`treesit-font-lock-rules'. The captured NODE is a
-call_expression where DEFUN is the function.
+call_expression node, where DEFUN is the function.
-This function corrects the fontification on the colon in
-\"doc:\", and the parameter list."
+This function corrects the fontification of the colon in
+\"doc:\", and of the parameter list."
(let* ((parent (treesit-node-parent node))
;; ARG-LIST-1 and 2 are like this:
;;
@@ -767,6 +820,20 @@ This function corrects the fontification on the colon in
(treesit-node-start arg) (treesit-node-end arg)
'default override start end))))))
+(defun c-ts-mode--fontify-for-each-tail (node override start end &rest _)
+ "Fontify FOR_EACH_* macro variants in Emacs sources.
+For NODE, OVERRIDE, START, and END, see
+`treesit-font-lock-rules'. The captured NODE is a
+function_definition node."
+ (let ((for-each-tail (treesit-node-child-by-field-name node "type"))
+ (args (treesit-node-child-by-field-name node "declarator")))
+ (treesit-fontify-with-override
+ (treesit-node-start for-each-tail) (treesit-node-end for-each-tail)
+ 'default override start end)
+ (treesit-fontify-with-override
+ (1+ (treesit-node-start args)) (1- (treesit-node-end args))
+ 'default override start end)))
+
(defun c-ts-mode--fontify-error (node override start end &rest _)
"Fontify the error nodes.
For NODE, OVERRIDE, START, and END, see
@@ -800,7 +867,14 @@ Return nil if NODE is not a defun node or doesn't have a
name."
((or "struct_specifier" "enum_specifier"
"union_specifier" "class_specifier"
"namespace_definition")
- (treesit-node-child-by-field-name node "name")))
+ (treesit-node-child-by-field-name node "name"))
+ ;; DEFUNs in Emacs sources.
+ ("expression_statement"
+ (let* ((call-exp-1 (treesit-node-child node 0))
+ (call-exp-2 (treesit-node-child call-exp-1 0))
+ (arg-list (treesit-node-child call-exp-2 1))
+ (name (treesit-node-child arg-list 1 t)))
+ name)))
t))
;;; Defun navigation
@@ -808,28 +882,29 @@ Return nil if NODE is not a defun node or doesn't have a
name."
(defun c-ts-mode--defun-valid-p (node)
"Return non-nil if NODE is a valid defun node.
Ie, NODE is not nested."
- (not (or (and (member (treesit-node-type node)
- '("struct_specifier"
- "enum_specifier"
- "union_specifier"
- "declaration"))
- ;; If NODE's type is one of the above, make sure it is
- ;; top-level.
- (treesit-node-top-level
- node (rx (or "function_definition"
- "type_definition"
- "struct_specifier"
+ (or (c-ts-mode--emacs-defun-p node)
+ (not (or (and (member (treesit-node-type node)
+ '("struct_specifier"
"enum_specifier"
"union_specifier"
- "declaration"))))
+ "declaration"))
+ ;; If NODE's type is one of the above, make sure it is
+ ;; top-level.
+ (treesit-node-top-level
+ node (rx (or "function_definition"
+ "type_definition"
+ "struct_specifier"
+ "enum_specifier"
+ "union_specifier"
+ "declaration"))))
- (and (equal (treesit-node-type node) "declaration")
- ;; If NODE is a declaration, make sure it is not a
- ;; function declaration.
- (equal (treesit-node-type
- (treesit-node-child-by-field-name
- node "declarator"))
- "function_declarator")))))
+ (and (equal (treesit-node-type node) "declaration")
+ ;; If NODE is a declaration, make sure it is not a
+ ;; function declaration.
+ (equal (treesit-node-type
+ (treesit-node-child-by-field-name
+ node "declarator"))
+ "function_declarator"))))))
(defun c-ts-mode--defun-for-class-in-imenu-p (node)
"Check if NODE is a valid entry for the Class subindex.
@@ -857,17 +932,168 @@ the semicolon. This function skips the semicolon."
(goto-char (match-end 0)))
(treesit-default-defun-skipper))
+(defun c-ts-base--before-indent (args)
+ (pcase-let ((`(,node ,parent ,bol) args))
+ (when (null node)
+ (let ((smallest-node (treesit-node-at (point))))
+ ;; "Virtual" closer curly added by the
+ ;; parser's error recovery.
+ (when (and (equal (treesit-node-type smallest-node) "}")
+ (equal (treesit-node-end smallest-node)
+ (treesit-node-start smallest-node)))
+ (setq parent (treesit-node-parent smallest-node)))))
+ (list node parent bol)))
+
+(defun c-ts-mode--emacs-defun-p (node)
+ "Return non-nil if NODE is a Lisp function defined using DEFUN.
+This function detects Lisp primitives defined in Emacs source
+files using the DEFUN macro."
+ (and (equal (treesit-node-type node) "expression_statement")
+ (equal (treesit-node-text
+ (treesit-node-child-by-field-name
+ (treesit-node-child
+ (treesit-node-child node 0) 0)
+ "function")
+ t)
+ "DEFUN")))
+
+(defun c-ts-mode--emacs-defun-at-point (&optional range)
+ "Return the defun node at point.
+
+In addition to regular C functions, this function recognizes
+definitions of Lisp primitrives in Emacs source files using DEFUN,
+if `c-ts-mode-emacs-sources-support' is non-nil.
+
+Note that DEFUN is parsed by tree-sitter as two separate
+nodes, one for the declaration and one for the body; this
+function returns the declaration node.
+
+If RANGE is non-nil, return (BEG . END) where BEG end END
+encloses the whole defun. This is for when the entire defun
+is required, not just the declaration part for DEFUN."
+ (or (when-let ((node (treesit-defun-at-point)))
+ (if range
+ (cons (treesit-node-start node)
+ (treesit-node-end node))
+ node))
+ (and c-ts-mode-emacs-sources-support
+ (let ((candidate-1 ; For when point is in the DEFUN statement.
+ (treesit-node-prev-sibling
+ (treesit-node-top-level
+ (treesit-node-at (point))
+ "compound_statement")))
+ (candidate-2 ; For when point is in the body.
+ (treesit-node-top-level
+ (treesit-node-at (point))
+ "expression_statement")))
+ (when-let
+ ((node (or (and (c-ts-mode--emacs-defun-p candidate-1)
+ candidate-1)
+ (and (c-ts-mode--emacs-defun-p candidate-2)
+ candidate-2))))
+ (if range
+ (cons (treesit-node-start node)
+ (treesit-node-end
+ (treesit-node-next-sibling node)))
+ node))))))
+
(defun c-ts-mode-indent-defun ()
"Indent the current top-level declaration syntactically.
`treesit-defun-type-regexp' defines what constructs to indent."
(interactive "*")
(when-let ((orig-point (point-marker))
- (node (treesit-defun-at-point)))
- (indent-region (treesit-node-start node)
- (treesit-node-end node))
+ (range (c-ts-mode--emacs-defun-at-point t)))
+ (indent-region (car range) (cdr range))
(goto-char orig-point)))
+(defun c-ts-mode--emacs-current-defun-name ()
+ "Return the name of the current defun.
+This is used for `add-log-current-defun-function'.
+In addition to regular C functions, this function also recognizes
+Emacs primitives defined using DEFUN in Emacs sources,
+if `c-ts-mode-emacs-sources-support' is non-nil."
+ (or (treesit-add-log-current-defun)
+ (c-ts-mode--defun-name (c-ts-mode--emacs-defun-at-point))))
+
+;;; Support for FOR_EACH_* macros
+;;
+;; FOR_EACH_TAIL, FOR_EACH_TAIL_SAFE, FOR_EACH_FRAME etc., followed by
+;; an unbracketed body will mess up the parser, which parses the thing
+;; as a function declaration. We "fix" it by adding a shadow parser
+;; for a language 'emacs-c' (which is just 'c' but under a different
+;; name). We use 'emacs-c' to find each FOR_EACH_* macro with a
+;; unbracketed body, and set the ranges of the C parser so that it
+;; skips those FOR_EACH_*'s. Note that we only ignore FOR_EACH_*'s
+;; with a unbracketed body. Those with a bracketed body parse more
+;; or less fine.
+;;
+;; In the meantime, we have a special fontification rule for
+;; FOR_EACH_* macros with a bracketed body that removes any applied
+;; fontification (which are wrong anyway), to keep them consistent
+;; with the skipped FOR_EACH_* macros (which have no fontification).
+;; The rule is in 'emacs-devel' feature.
+
+(defun c-ts-mode--for-each-tail-body-matcher (_n _p bol &rest _)
+ "A matcher that matches the first line after a FOR_EACH_* macro.
+For BOL see `treesit-simple-indent-rules'."
+ (when c-ts-mode-emacs-sources-support
+ (save-excursion
+ (goto-char bol)
+ (forward-line -1)
+ (skip-chars-forward " \t")
+ (looking-at c-ts-mode--for-each-tail-regexp))))
+
+(defvar c-ts-mode--emacs-c-range-query
+ (when (treesit-available-p)
+ (treesit-query-compile
+ 'emacs-c `(((declaration
+ type: (macro_type_specifier
+ name: (identifier) @_name)
+ @for-each-tail)
+ (:match ,c-ts-mode--for-each-tail-regexp
+ @_name)))))
+ "Query that finds a FOR_EACH_* macro with an unbracketed body.")
+
+(defvar-local c-ts-mode--for-each-tail-ranges nil
+ "Ranges covering all the FOR_EACH_* macros in the buffer.")
+
+(defun c-ts-mode--reverse-ranges (ranges beg end)
+ "Reverse RANGES and return the new ranges between BEG and END.
+Positions that were included RANGES are not in the returned
+ranges, and vice versa.
+
+Return nil if RANGES is nil. This way, passing the returned
+ranges to `treesit-parser-set-included-ranges' will make the
+parser parse the whole buffer."
+ (if (null ranges)
+ nil
+ (let ((new-ranges nil)
+ (prev-end beg))
+ (dolist (range ranges)
+ (when (< prev-end (car range))
+ (push (cons prev-end (car range)) new-ranges))
+ (setq prev-end (cdr range)))
+ (when (< prev-end end)
+ (push (cons prev-end end) new-ranges))
+ (nreverse new-ranges))))
+
+(defun c-ts-mode--emacs-set-ranges (beg end)
+ "Set ranges for the C parser to skip some FOR_EACH_* macros.
+BEG and END are described in `treesit-range-rules'."
+ (let* ((c-parser (treesit-parser-create 'c))
+ (old-ranges c-ts-mode--for-each-tail-ranges)
+ (new-ranges (treesit-query-range
+ 'emacs-c c-ts-mode--emacs-c-range-query beg end))
+ (set-ranges (treesit--clip-ranges
+ (treesit--merge-ranges
+ old-ranges new-ranges beg end)
+ (point-min) (point-max)))
+ (reversed-ranges (c-ts-mode--reverse-ranges
+ set-ranges (point-min) (point-max))))
+ (setq-local c-ts-mode--for-each-tail-ranges set-ranges)
+ (treesit-parser-set-included-ranges c-parser reversed-ranges)))
+
;;; Modes
(defvar-keymap c-ts-base-mode-map
@@ -919,20 +1145,23 @@ the semicolon. This function skips the semicolon."
"goto_statement"
"case_statement")))
+ ;; IMO it makes more sense to define what's NOT sexp, since sexp by
+ ;; spirit, especially when used for movement, is like "expression"
+ ;; or "syntax unit". --yuan
(setq-local treesit-sexp-type-regexp
- (regexp-opt '("preproc"
- "declarator"
- "qualifier"
- "type"
- "parameter"
- "expression"
- "literal"
- "string")))
+ ;; It more useful to include semicolons as sexp so that
+ ;; users can move to the end of a statement.
+ (rx (not (or "{" "}" "[" "]" "(" ")" ","))))
;; Nodes like struct/enum/union_specifier can appear in
;; function_definitions, so we need to find the top-level node.
(setq-local treesit-defun-prefer-top-level t)
+ ;; When the code is in incomplete state, try to make a better guess
+ ;; about which node to indent against.
+ (add-function :filter-args (local 'treesit-indent-function)
+ #'c-ts-base--before-indent)
+
;; Indent.
(when (eq c-ts-mode-indent-style 'linux)
(setq-local indent-tabs-mode t))
@@ -961,9 +1190,9 @@ the semicolon. This function skips the semicolon."
;; Imenu.
(setq-local treesit-simple-imenu-settings
(let ((pred #'c-ts-mode--defun-valid-p))
- `(("Struct" ,(rx bos (or "struct" "enum" "union")
- "_specifier" eos)
- ,pred nil)
+ `(("Enum" "\\`enum_specifier\\'" ,pred nil)
+ ("Struct" "\\`struct_specifier\\'" ,pred nil)
+ ("Union" "\\`union_specifier\\'" ,pred nil)
("Variable" ,(rx bos "declaration" eos) ,pred nil)
("Function" "\\`function_definition\\'" ,pred nil)
("Class" ,(rx bos (or "class_specifier"
@@ -977,6 +1206,8 @@ the semicolon. This function skips the semicolon."
( assignment constant escape-sequence label literal)
( bracket delimiter error function operator property
variable))))
+(defvar treesit-load-name-override-list)
+
;;;###autoload
(define-derived-mode c-ts-mode c-ts-base-mode "C"
"Major mode for editing C, powered by tree-sitter.
@@ -997,6 +1228,17 @@ in your configuration."
:after-hook (c-ts-mode-set-modeline)
(when (treesit-ready-p 'c)
+ ;; Add a fake "emacs-c" language which is just C. Used for
+ ;; skipping FOR_EACH_* macros, see `c-ts-mode--emacs-set-ranges'.
+ (setf (alist-get 'emacs-c treesit-load-name-override-list)
+ '("libtree-sitter-c" "tree_sitter_c"))
+ ;; If Emacs source support is enabled, make sure emacs-c parser is
+ ;; after c parser in the parser list. This way various tree-sitter
+ ;; functions will automatically use the c parser rather than the
+ ;; emacs-c parser.
+ (when c-ts-mode-emacs-sources-support
+ (treesit-parser-create 'emacs-c))
+
(treesit-parser-create 'c)
;; Comments.
(setq-local comment-start "/* ")
@@ -1008,7 +1250,19 @@ in your configuration."
(setq-local treesit-font-lock-settings (c-ts-mode--font-lock-settings 'c))
;; Navigation.
(setq-local treesit-defun-tactic 'top-level)
- (treesit-major-mode-setup)))
+ (treesit-major-mode-setup)
+
+ ;; Emacs source support: handle DEFUN and FOR_EACH_* gracefully.
+ (when c-ts-mode-emacs-sources-support
+ (setq-local add-log-current-defun-function
+ #'c-ts-mode--emacs-current-defun-name)
+
+ (setq-local treesit-range-settings
+ (treesit-range-rules 'c-ts-mode--emacs-set-ranges))
+
+ (setq-local treesit-language-at-point-function
+ (lambda (_pos) 'c))
+ (treesit-font-lock-recompute-features '(emacs-devel)))))
;;;###autoload
(define-derived-mode c++-ts-mode c-ts-base-mode "C++"
@@ -1025,7 +1279,11 @@ To use tree-sitter C/C++ modes by default, evaluate
(add-to-list \\='major-mode-remap-alist
\\='(c-or-c++-mode . c-or-c++-ts-mode))
-in your configuration."
+in your configuration.
+
+Since this mode uses a parser, unbalanced brackets might cause
+some breakage in indentation/fontification. Therefore, it's
+recommended to enable `electric-pair-mode' with this mode."
:group 'c++
:after-hook (c-ts-mode-set-modeline)
@@ -1046,8 +1304,44 @@ in your configuration."
;; Font-lock.
(setq-local treesit-font-lock-settings (c-ts-mode--font-lock-settings
'cpp))
-
- (treesit-major-mode-setup)))
+ (treesit-major-mode-setup)
+
+ (when c-ts-mode-emacs-sources-support
+ (setq-local add-log-current-defun-function
+ #'c-ts-mode--emacs-current-defun-name))))
+
+(easy-menu-define c-ts-mode-menu (list c-ts-mode-map c++-ts-mode-map)
+ "Menu for `c-ts-mode' and `c++-ts-mode'."
+ '("C/C++"
+ ["Comment Out Region" comment-region
+ :enable mark-active
+ :help "Comment out the region between the mark and point"]
+ ["Uncomment Region" (comment-region (region-beginning)
+ (region-end) '(4))
+ :enable mark-active
+ :help "Uncomment the region between the mark and point"]
+ ["Indent Top-level Expression" c-ts-mode-indent-defun
+ :help "Indent/reindent top-level function, class, etc."]
+ ["Indent Line or Region" indent-for-tab-command
+ :help "Indent current line or region, or insert a tab"]
+ ["Forward Expression" forward-sexp
+ :help "Move forward across one balanced expression"]
+ ["Backward Expression" backward-sexp
+ :help "Move back across one balanced expression"]
+ "--"
+ ("Style..."
+ ["Set Indentation Style..." c-ts-mode-set-style
+ :help "Set C/C++ indentation style for current buffer"]
+ ["Show Current Indentation Style" (message "Indentation Style: %s"
+ c-ts-mode-indent-style)
+ :help "Show the name of the C/C++ indentation style for current buffer"]
+ ["Set Comment Style" c-ts-mode-toggle-comment-style
+ :help "Toglle C/C++ comment style between block and line comments"])
+ "--"
+ ("Toggle..."
+ ["SubWord Mode" subword-mode
+ :style toggle :selected subword-mode
+ :help "Toggle sub-word movement and editing mode"])))
;; We could alternatively use parsers, but if this works well, I don't
;; see the need to change. This is copied verbatim from cc-guess.el.
@@ -1100,10 +1394,15 @@ the code is C or C++ and based on that chooses whether
to enable
'("\\(\\.ii\\|\\.\\(CC?\\|HH?\\)\\|\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\|\\.\\(cc\\|hh\\)\\)\\'"
. c++-ts-mode)))
-(if (treesit-ready-p 'c)
- (add-to-list 'auto-mode-alist
- '("\\(\\.[chi]\\|\\.lex\\|\\.y\\(acc\\)?\\|\\.x[bp]m\\)\\'"
- . c-ts-mode)))
+(when (treesit-ready-p 'c)
+ (add-to-list 'auto-mode-alist
+ '("\\(\\.[chi]\\|\\.lex\\|\\.y\\(acc\\)?\\)\\'" . c-ts-mode))
+ (add-to-list 'auto-mode-alist '("\\.x[pb]m\\'" . c-ts-mode))
+ ;; image-mode's association must be before the C mode, otherwise XPM
+ ;; images will be initially visited as C files. Also note that the
+ ;; regexp must be different from what files.el does, or else
+ ;; add-to-list will not add the association where we want it.
+ (add-to-list 'auto-mode-alist '("\\.x[pb]m\\'" . image-mode)))
(if (and (treesit-ready-p 'cpp)
(treesit-ready-p 'c))
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index aa6f33e9cab..1d98b215525 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -2153,86 +2153,79 @@ non-nil, a caret is prepended to invert the set."
;; Record whether the `category' text property works.
(if c-use-category (setq list (cons 'category-properties list)))
- (let ((buf (generate-new-buffer " test"))
- parse-sexp-lookup-properties
- parse-sexp-ignore-comments
- lookup-syntax-properties) ; XEmacs
+ (let ((buf (generate-new-buffer " test")))
(with-current-buffer buf
- (set-syntax-table (make-syntax-table))
-
- ;; For some reason we have to set some of these after the
- ;; buffer has been made current. (Specifically,
- ;; `parse-sexp-ignore-comments' in Emacs 21.)
- (setq parse-sexp-lookup-properties t
- parse-sexp-ignore-comments t
- lookup-syntax-properties t)
-
- ;; Find out if the `syntax-table' text property works.
- (modify-syntax-entry ?< ".")
- (modify-syntax-entry ?> ".")
- (insert "<()>")
- (c-mark-<-as-paren (point-min))
- (c-mark->-as-paren (+ 3 (point-min)))
- (goto-char (point-min))
- (c-forward-sexp)
- (if (= (point) (+ 4 (point-min)))
- (setq list (cons 'syntax-properties list))
- (error (concat
- "CC Mode is incompatible with this version of Emacs - "
- "support for the `syntax-table' text property "
- "is required.")))
-
- ;; Find out if "\\s!" (generic comment delimiters) work.
- (c-safe
- (modify-syntax-entry ?x "!")
- (if (string-match "\\s!" "x")
- (setq list (cons 'gen-comment-delim list))))
-
- ;; Find out if "\\s|" (generic string delimiters) work.
- (c-safe
- (modify-syntax-entry ?x "|")
- (if (string-match "\\s|" "x")
- (setq list (cons 'gen-string-delim list))))
-
- ;; See if POSIX char classes work.
- (when (and (string-match "[[:alpha:]]" "a")
- ;; All versions of Emacs 21 so far haven't fixed
- ;; char classes in `skip-chars-forward' and
- ;; `skip-chars-backward'.
- (progn
- (delete-region (point-min) (point-max))
- (insert "foo123")
- (skip-chars-backward "[:alnum:]")
- (bobp))
- (= (skip-chars-forward "[:alpha:]") 3))
- (setq list (cons 'posix-char-classes list)))
-
- ;; See if `open-paren-in-column-0-is-defun-start' exists and
- ;; isn't buggy (Emacs >= 21.4).
- (when (boundp 'open-paren-in-column-0-is-defun-start)
- (let ((open-paren-in-column-0-is-defun-start nil)
- (parse-sexp-ignore-comments t))
- (delete-region (point-min) (point-max))
- (set-syntax-table (make-syntax-table))
- (modify-syntax-entry ?\' "\"")
- (cond
- ;; XEmacs. Afaik this is currently an Emacs-only
- ;; feature, but it's good to be prepared.
- ((memq '8-bit list)
- (modify-syntax-entry ?/ ". 1456")
- (modify-syntax-entry ?* ". 23"))
- ;; Emacs
- ((memq '1-bit list)
- (modify-syntax-entry ?/ ". 124b")
- (modify-syntax-entry ?* ". 23")))
- (modify-syntax-entry ?\n "> b")
- (insert "/* '\n () */")
- (backward-sexp)
- (if (bobp)
- (setq list (cons 'col-0-paren list)))))
-
- (set-buffer-modified-p nil))
- (kill-buffer buf))
+ (let ((parse-sexp-lookup-properties t)
+ (parse-sexp-ignore-comments t)
+ (lookup-syntax-properties t))
+ (set-syntax-table (make-syntax-table))
+
+ ;; Find out if the `syntax-table' text property works.
+ (modify-syntax-entry ?< ".")
+ (modify-syntax-entry ?> ".")
+ (insert "<()>")
+ (c-mark-<-as-paren (point-min))
+ (c-mark->-as-paren (+ 3 (point-min)))
+ (goto-char (point-min))
+ (c-forward-sexp)
+ (if (= (point) (+ 4 (point-min)))
+ (setq list (cons 'syntax-properties list))
+ (error (concat
+ "CC Mode is incompatible with this version of Emacs - "
+ "support for the `syntax-table' text property "
+ "is required.")))
+
+ ;; Find out if "\\s!" (generic comment delimiters) work.
+ (c-safe
+ (modify-syntax-entry ?x "!")
+ (if (string-match "\\s!" "x")
+ (setq list (cons 'gen-comment-delim list))))
+
+ ;; Find out if "\\s|" (generic string delimiters) work.
+ (c-safe
+ (modify-syntax-entry ?x "|")
+ (if (string-match "\\s|" "x")
+ (setq list (cons 'gen-string-delim list))))
+
+ ;; See if POSIX char classes work.
+ (when (and (string-match "[[:alpha:]]" "a")
+ ;; All versions of Emacs 21 so far haven't fixed
+ ;; char classes in `skip-chars-forward' and
+ ;; `skip-chars-backward'.
+ (progn
+ (delete-region (point-min) (point-max))
+ (insert "foo123")
+ (skip-chars-backward "[:alnum:]")
+ (bobp))
+ (= (skip-chars-forward "[:alpha:]") 3))
+ (setq list (cons 'posix-char-classes list)))
+
+ ;; See if `open-paren-in-column-0-is-defun-start' exists and
+ ;; isn't buggy (Emacs >= 21.4).
+ (when (boundp 'open-paren-in-column-0-is-defun-start)
+ (let ((open-paren-in-column-0-is-defun-start nil)
+ (parse-sexp-ignore-comments t))
+ (delete-region (point-min) (point-max))
+ (set-syntax-table (make-syntax-table))
+ (modify-syntax-entry ?\' "\"")
+ (cond
+ ;; XEmacs. Afaik this is currently an Emacs-only
+ ;; feature, but it's good to be prepared.
+ ((memq '8-bit list)
+ (modify-syntax-entry ?/ ". 1456")
+ (modify-syntax-entry ?* ". 23"))
+ ;; Emacs
+ ((memq '1-bit list)
+ (modify-syntax-entry ?/ ". 124b")
+ (modify-syntax-entry ?* ". 23")))
+ (modify-syntax-entry ?\n "> b")
+ (insert "/* '\n () */")
+ (backward-sexp)
+ (if (bobp)
+ (setq list (cons 'col-0-paren list)))))
+
+ (set-buffer-modified-p nil))
+ (kill-buffer buf)))
;; Check how many elements `parse-partial-sexp' returns.
(let ((ppss-size (or (c-safe (length
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 81446c3c00b..66cfd3dee9e 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -146,11 +146,6 @@
;; "typedef" keyword. It's value is a list of the identifiers that
;; the "typedef" declares as types.
;;
-;; 'c-<>-c-types-set
-;; This property is set on an opening angle bracket, and indicates that
-;; any "," separators within the template/generic expression have been
-;; marked with a 'c-type property value 'c-<>-arg-sep (see above).
-;;
;; 'c-awk-NL-prop
;; Used in AWK mode to mark the various kinds of newlines. See
;; cc-awk.el.
@@ -6172,12 +6167,18 @@ comment at the start of cc-engine.el for more info."
(cons (point)
(cons bound-<> s)))))
+(defvar c-record-type-identifiers) ; Specially for `c-brace-stack-at'.
+
(defun c-brace-stack-at (here)
;; Given a buffer position HERE, Return the value of the brace stack there.
(save-excursion
(save-restriction
(widen)
- (let ((c c-bs-cache)
+ (let (c-record-type-identifiers ; In case `c-forward-<>-arglist' would
+ ; otherwise record identifiers outside
+ ; of the restriction in force before
+ ; this function.
+ (c c-bs-cache)
(can-use-prev (<= c-bs-prev-pos c-bs-cache-limit))
elt stack pos npos high-elt)
;; Trim the cache to take account of buffer changes.
@@ -6243,6 +6244,9 @@ comment at the start of cc-engine.el for more info."
;; prefix". The declaration prefix is the earlier of `cfd-prop-match' and
;; `cfd-re-match'. `cfd-match-pos' is set to the decl prefix.
;;
+ ;; The variables which this macro should set for `c-find-decl-spots' are
+ ;; `cfd-match-pos' and `cfd-continue-pos'.
+ ;;
;; This macro might do hidden buffer changes.
'(progn
@@ -6585,11 +6589,17 @@ comment at the start of cc-engine.el for more info."
;; and so we can continue the search from this point. If we
;; didn't hit `c-find-decl-syntactic-pos' then we're now in
;; the right spot to begin searching anyway.
- (if (and (eq (point) c-find-decl-syntactic-pos)
- c-find-decl-match-pos)
- (setq cfd-match-pos c-find-decl-match-pos
- cfd-continue-pos syntactic-pos)
-
+ (cond
+ ((and (eq (point) c-find-decl-syntactic-pos)
+ c-find-decl-match-pos)
+ (setq cfd-match-pos c-find-decl-match-pos
+ cfd-continue-pos syntactic-pos))
+ ((save-excursion (c-beginning-of-macro))
+ ;; The `c-backward-syntactic-ws' ~40 lines up failed to find non
+ ;; syntactic-ws and hit its limit, leaving us in a macro.
+ (setq cfd-match-pos cfd-start-pos
+ cfd-continue-pos cfd-start-pos))
+ (t
(setq c-find-decl-syntactic-pos syntactic-pos)
(when (if (bobp)
@@ -6607,7 +6617,7 @@ comment at the start of cc-engine.el for more info."
(c-find-decl-prefix-search)) ; sets cfd-continue-pos
(setq c-find-decl-match-pos (and (< cfd-match-pos cfd-start-pos)
- cfd-match-pos))))) ; end of `cond'
+ cfd-match-pos)))))) ; end of `cond'
;; Advance `cfd-continue-pos' if it's before the start position.
;; The closest continue position that might have effect at or
@@ -8630,11 +8640,9 @@ multi-line strings (but not C++, for example)."
;; List that collects the positions after the argument
;; separating ',' in the arglist.
arg-start-pos)
- ;; If the '<' has paren open syntax then we've marked it as an angle
- ;; bracket arglist before, so skip to the end.
- (if (and syntax-table-prop-on-<
- (or (not c-parse-and-markup-<>-arglists)
- (c-get-char-property (point) 'c-<>-c-types-set)))
+ (if (and (not c-parse-and-markup-<>-arglists)
+ syntax-table-prop-on-<)
+
(progn
(forward-char)
(if (and (c-go-up-list-forward)
@@ -8731,7 +8739,6 @@ multi-line strings (but not C++, for example)."
(c-unmark-<->-as-paren (point)))))
(c-mark-<-as-paren start)
(c-mark->-as-paren (1- (point)))
- (c-put-char-property start 'c-<>-c-types-set t)
(c-truncate-lit-pos-cache start))
(setq res t)
nil)) ; Exit the loop.
@@ -9122,7 +9129,7 @@ multi-line strings (but not C++, for example)."
(c-forward-syntactic-ws))
(let ((start (point)) pos res name-res id-start id-end id-range
- post-prefix-pos)
+ post-prefix-pos prefix-end-pos)
;; Skip leading type modifiers. If any are found we know it's a
;; prefix of a type.
@@ -9132,6 +9139,7 @@ multi-line strings (but not C++, for example)."
(when (looking-at c-no-type-key)
(setq res 'no-id)))
(goto-char (match-end 1))
+ (setq prefix-end-pos (point))
(setq pos (point))
(c-forward-syntactic-ws)
(or (eq res 'no-id)
@@ -9280,10 +9288,17 @@ multi-line strings (but not C++, for example)."
(setq pos (point))
(c-forward-syntactic-ws)
(and (not (looking-at c-symbol-start))
- (not (looking-at c-type-decl-prefix-key)))))
+ (or
+ (not (looking-at c-type-decl-prefix-key))
+ (and (eq (char-after) ?\()
+ (not (save-excursion
+ (c-forward-declarator))))))))
;; A C specifier followed by an implicit int, e.g.
;; "register count;"
- (goto-char id-start)
+ (goto-char prefix-end-pos)
+ (setq pos (point))
+ (unless stop-at-end
+ (c-forward-syntactic-ws))
(setq res 'no-id))
(name-res
@@ -9291,6 +9306,7 @@ multi-line strings (but not C++, for example)."
;; A normal identifier.
(goto-char id-end)
(setq pos (point))
+ (c-forward-syntactic-ws)
(if (or res c-promote-possible-types)
(progn
(when (not (eq c-promote-possible-types 'just-one))
@@ -9298,7 +9314,9 @@ multi-line strings (but not C++, for example)."
(when (and c-record-type-identifiers id-range)
(c-record-type-id id-range))
(unless res
- (setq res 'found)))
+ (setq res 'found))
+ (when (eq res 'prefix)
+ (setq res t)))
(setq res (if (c-check-qualified-type id-start)
;; It's an identifier that has been used as
;; a type somewhere else.
@@ -9455,19 +9473,24 @@ multi-line strings (but not C++, for example)."
(setq ,ps (cdr ,ps)))))
(defun c-forward-over-compound-identifier ()
- ;; Go over a possibly compound identifier, such as C++'s Foo::Bar::Baz,
- ;; returning that identifier (with any syntactic WS removed). Return nil if
- ;; we're not at an identifier.
- (when (c-on-identifier)
+ ;; Go over a possibly compound identifier (but not any following
+ ;; whitespace), such as C++'s Foo::Bar::Baz, returning that identifier (with
+ ;; any syntactic WS removed). Return nil if we're not at an identifier, in
+ ;; which case point is not moved.
+ (when
+ (eq (c-on-identifier)
+ (point))
(let ((consolidated "") (consolidated-:: "")
- start end)
+ (here (point))
+ start end end-token)
(while
(progn
(setq start (point))
(c-forward-over-token)
(setq consolidated
(concat consolidated-::
- (buffer-substring-no-properties start (point))))
+ (buffer-substring-no-properties start (point)))
+ end-token (point))
(c-forward-syntactic-ws)
(and c-opt-identifier-concat-key
(looking-at c-opt-identifier-concat-key)
@@ -9482,7 +9505,9 @@ multi-line strings (but not C++, for example)."
(concat consolidated
(buffer-substring-no-properties start end))))))))
(if (equal consolidated "")
- nil
+ (progn (goto-char here)
+ nil)
+ (goto-char end-token)
consolidated))))
(defun c-back-over-compound-identifier ()
@@ -9655,13 +9680,16 @@ point unchanged and return nil."
;; Handling of large scale constructs like statements and declarations.
-(defun c-forward-primary-expression (&optional limit)
- ;; Go over the primary expression (if any) at point, moving to the next
- ;; token and return non-nil. If we're not at a primary expression leave
- ;; point unchanged and return nil.
+(defun c-forward-primary-expression (&optional limit stop-at-end)
+ ;; Go over the primary expression (if any) at point, and unless STOP-AT-END
+ ;; is non-nil, move to the next token then return non-nil. If we're not at
+ ;; a primary expression leave point unchanged and return nil.
;;
;; Note that this function is incomplete, handling only those cases expected
;; to be common in a C++20 requires clause.
+ ;;
+ ;; Note also that (...) is not recognised as a primary expression if the
+ ;; next token is an open brace.
(let ((here (point))
(c-restricted-<>-arglists t)
(c-parse-and-markup-<>-arglists nil)
@@ -9669,28 +9697,38 @@ point unchanged and return nil."
(if (cond
((looking-at c-constant-key)
(goto-char (match-end 1))
- (c-forward-syntactic-ws limit)
+ (unless stop-at-end (c-forward-syntactic-ws limit))
t)
((eq (char-after) ?\()
(and (c-go-list-forward (point) limit)
(eq (char-before) ?\))
- (progn (c-forward-syntactic-ws limit)
- t)))
+ (let ((after-paren (point)))
+ (c-forward-syntactic-ws limit)
+ (prog1
+ (not (eq (char-after) ?{))
+ (when stop-at-end
+ (goto-char after-paren))))))
((c-forward-over-compound-identifier)
- (c-forward-syntactic-ws limit)
- (while (cond
- ((looking-at "<")
- (prog1
- (c-forward-<>-arglist nil)
- (c-forward-syntactic-ws limit)))
- ((looking-at c-opt-identifier-concat-key)
- (and
- (zerop (c-forward-token-2 1 nil limit))
- (prog1
- (c-forward-over-compound-identifier)
- (c-forward-syntactic-ws limit))))))
- t)
- ((looking-at c-fun-name-substitute-key) ; "requires"
+ (let ((after-id (point)))
+ (c-forward-syntactic-ws limit)
+ (while (cond
+ ((and
+ (looking-at "<")
+ (prog1
+ (and
+ (c-forward-<>-arglist nil)
+ (setq after-id (point)))))
+ (c-forward-syntactic-ws limit))
+ ((looking-at c-opt-identifier-concat-key)
+ (and
+ (zerop (c-forward-token-2 1 nil limit))
+ (prog1
+ (c-forward-over-compound-identifier)
+ (c-forward-syntactic-ws limit))))))
+ (goto-char after-id)))
+ ((and
+ (looking-at c-fun-name-substitute-key) ; "requires"
+ (not (eq (char-after (match-end 0)) ?_)))
(goto-char (match-end 1))
(c-forward-syntactic-ws limit)
(and
@@ -9703,36 +9741,47 @@ point unchanged and return nil."
(and (c-go-list-forward (point) limit)
(eq (char-before) ?}))
(progn
- (c-forward-syntactic-ws limit)
+ (unless stop-at-end (c-forward-syntactic-ws limit))
t))))
t
(goto-char here)
nil)))
-(defun c-forward-c++-requires-clause (&optional limit)
- ;; Point is at the keyword "requires". Move forward over the requires
- ;; clause to the next token after it and return non-nil. If there is no
- ;; valid requires clause at point, leave point unmoved and return nil.
+(defun c-forward-constraint-clause (&optional limit stop-at-end)
+ ;; Point is at the putative start of a constraint clause. Move to its end
+ ;; (when STOP-AT-END is non-zero) or the token after that (otherwise) and
+ ;; return non-nil. Return nil without moving if we fail to find a
+ ;; constraint.
(let ((here (point))
final-point)
(or limit (setq limit (point-max)))
- (if (and
- (zerop (c-forward-token-2 1 nil limit)) ; over "requires".
- (prog1
- (c-forward-primary-expression limit)
- (setq final-point (point))
- (while
- (and (looking-at "\\(?:&&\\|||\\)")
- (progn (goto-char (match-end 0))
- (c-forward-syntactic-ws limit)
- (and (< (point) limit)
- (c-forward-primary-expression limit))))
- (setq final-point (point)))))
- (progn (goto-char final-point)
- t)
+ (if (c-forward-primary-expression limit t)
+ (progn
+ (setq final-point (point))
+ (c-forward-syntactic-ws limit)
+ (while
+ (and (looking-at "\\(?:&&\\|||\\)")
+ (<= (match-end 0) limit)
+ (progn (goto-char (match-end 0))
+ (c-forward-syntactic-ws limit)
+ (and (<= (point) limit)))
+ (c-forward-primary-expression limit t)
+ (setq final-point (point))))
+ (goto-char final-point)
+ (or stop-at-end (c-forward-syntactic-ws limit))
+ t)
(goto-char here)
nil)))
+(defun c-forward-c++-requires-clause (&optional limit stop-at-end)
+ ;; Point is at the keyword "requires". Move forward over the requires
+ ;; clause to its end (if STOP-AT-END is non-nil) or the next token after it
+ ;; (otherwise) and return non-nil. If there is no valid requires clause at
+ ;; point, leave point unmoved and return nil.
+ (or limit (setq limit (point-max)))
+ (and (zerop (c-forward-token-2)) ; over "requires".
+ (c-forward-constraint-clause limit stop-at-end)))
+
(defun c-forward-decl-arglist (not-top id-in-parens &optional limit)
;; Point is at an open parenthesis, assumed to be the arglist of a function
;; declaration. Move over this arglist and following syntactic whitespace,
@@ -9934,7 +9983,9 @@ point unchanged and return nil."
((looking-at c-type-decl-suffix-key)
(cond
((save-match-data
- (looking-at c-fun-name-substitute-key))
+ (and
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_))))
(c-forward-c++-requires-clause))
((eq (char-after) ?\()
(if (c-forward-decl-arglist not-top decorated limit)
@@ -10388,7 +10439,9 @@ This function might do hidden buffer changes."
(when (and (c-major-mode-is 'c++-mode)
(c-keyword-member kwd-sym 'c-<>-sexp-kwds)
(save-match-data
- (looking-at c-fun-name-substitute-key)))
+ (and
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_)))))
(c-forward-c++-requires-clause))
(setq kwd-clause-end (point))))
((and c-opt-cpp-prefix
@@ -10583,6 +10636,10 @@ This function might do hidden buffer changes."
got-parens
;; True if there is a terminated argument list.
got-arglist
+ ;; True when `got-arglist' and the token after the end of the
+ ;; arglist is an opening brace. Used only when we have a
+ ;; suspected typeless function name.
+ got-stmt-block
;; True if there is an identifier in the declarator.
got-identifier
;; True if we find a number where an identifier was expected.
@@ -10735,10 +10792,16 @@ This function might do hidden buffer changes."
(setq got-arglist t))
t)
(when (cond
+ ((and (eq (char-after) ?\()
+ (c-safe (c-forward-sexp 1) t))
+ (when (eq (char-before) ?\))
+ (setq got-arglist t)))
((save-match-data (looking-at "\\s("))
(c-safe (c-forward-sexp 1) t))
((save-match-data
- (looking-at c-fun-name-substitute-key)) ; C++ requires
+ (and
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_)))) ; C++
requires
(c-forward-c++-requires-clause))
(t (goto-char (match-end 1))
t))
@@ -10747,6 +10810,11 @@ This function might do hidden buffer changes."
(setq got-suffix-after-parens (match-beginning 0)))
(setq got-suffix t))))
+ ((and got-arglist
+ (eq (char-after) ?{))
+ (setq got-stmt-block t)
+ nil)
+
(t
;; No suffix matched. We might have matched the
;; identifier as a type and the open paren of a
@@ -10815,9 +10883,17 @@ This function might do hidden buffer changes."
(not (memq context '(arglist decl))))
(or (and new-style-auto
(looking-at c-auto-ops-re))
- (and (or maybe-typeless backup-maybe-typeless)
- (not got-prefix)
- at-type)))
+ (and (not got-prefix)
+ at-type
+ (or maybe-typeless backup-maybe-typeless
+ ;; Do we have a (typeless) constructor?
+ (and got-stmt-block
+ (save-excursion
+ (goto-char type-start)
+ (and
+ (looking-at c-identifier-key)
+ (c-directly-in-class-called-p
+ (match-string 0)))))))))
;; Have found no identifier but `c-typeless-decl-kwds' has
;; matched so we know we're inside a declaration. The
;; preceding type must be the identifier instead.
@@ -11200,7 +11276,7 @@ This function might do hidden buffer changes."
;; declaration.
(setq maybe-expression t)
(when (or (not c-asymmetry-fontification-flag)
- (looking-at "=[^=]")
+ (looking-at "=\\([^=]\\|$\\)\\|;")
(c-fdoc-assymetric-space-about-asterisk))
(when (eq at-type 'maybe)
(setq unsafe-maybe t))
@@ -12499,7 +12575,8 @@ comment at the start of cc-engine.el for more info."
(looking-at c-class-key))
(goto-char (match-end 1))
(c-forward-syntactic-ws)
- (looking-at name))))))
+ (and (looking-at c-identifier-key)
+ (string= (match-string 0) name)))))))
(defun c-search-uplist-for-classkey (paren-state)
;; Check if the closest containing paren sexp is a declaration
@@ -12861,7 +12938,9 @@ comment at the start of cc-engine.el for more info."
in-paren 'in-paren))
((looking-at c-pre-brace-non-bracelist-key)
(setq braceassignp nil))
- ((looking-at c-fun-name-substitute-key)
+ ((and
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_)))
(setq braceassignp nil))
((looking-at c-return-key))
((and (looking-at c-symbol-start)
@@ -12876,7 +12955,8 @@ comment at the start of cc-engine.el for more info."
;; Have we a requires with a parenthesis list?
(when (save-excursion
(and (zerop (c-backward-token-2 1 nil lim))
- (looking-at c-fun-name-substitute-key)))
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_))))
(setq braceassignp nil))
nil)
(t nil))
@@ -13207,6 +13287,120 @@ comment at the start of cc-engine.el for more info."
(t nil)))
(goto-char here))))
+(defun c-forward-concept-fragment (&optional limit stop-at-end)
+ ;; Are we currently at the "concept" keyword in a concept construct? If so
+ ;; we return the position of the first constraint expression following the
+ ;; "=" sign and move forward over the constraint. Otherwise we return nil.
+ ;; LIMIT is a forward search limit.
+ (let ((here (point)))
+ (if
+ (and
+ (looking-at c-equals-nontype-decl-key) ; "concept"
+ (goto-char (match-end 0))
+ (progn (c-forward-syntactic-ws limit)
+ (not (looking-at c-keywords-regexp)))
+ (looking-at c-identifier-key)
+ (goto-char (match-end 0))
+ (progn (c-forward-syntactic-ws limit)
+ (looking-at c-operator-re))
+ (equal (match-string 0) "=")
+ (goto-char (match-end 0)))
+ (prog1
+ (progn (c-forward-syntactic-ws limit)
+ (point))
+ (c-forward-constraint-clause limit stop-at-end))
+ (goto-char here)
+ nil)))
+
+(defun c-looking-at-concept (&optional limit)
+ ;; Are we currently at the start of a concept construct? I.e. at the
+ ;; "template" keyword followed by the construct? If so, we return a cons of
+ ;; the position of "concept" and the position of the first constraint
+ ;; expression following the "=" sign, otherwise we return nil. LIMIT is a
+ ;; forward search limit.
+ (save-excursion
+ (let (conpos)
+ (and (looking-at c-pre-concept-<>-key)
+ (goto-char (match-end 1))
+ (< (point) limit)
+ (progn (c-forward-syntactic-ws limit)
+ (eq (char-after) ?<))
+ (let ((c-parse-and-markup-<>-arglists t)
+ c-restricted-<>-arglists)
+ (c-forward-<>-arglist nil))
+ (< (point) limit)
+ (progn (c-forward-syntactic-ws limit)
+ (looking-at c-equals-nontype-decl-key)) ; "concept"
+ (setq conpos (match-beginning 0))
+ (goto-char (match-end 0))
+ (< (point) limit)
+ (c-syntactic-re-search-forward
+ "=" limit t t)
+ (goto-char (match-end 0))
+ (<= (point) limit)
+ (progn (c-forward-syntactic-ws limit)
+ (cons conpos (point)))))))
+
+(defun c-in-requires-or-at-end-of-clause (&optional pos)
+ ;; Is POS (default POINT) in a C++ "requires" expression or "requires"
+ ;; clause or at the end of a "requires" clause? If so return a cons
+ ;; (POSITION . END) where POSITION is that of the "requires" keyword, and
+ ;; END is `expression' if POS is in an expression, nil if it's in a clause
+ ;; or t if it's at the end of a clause. "End of a clause" means just after
+ ;; the non syntactic WS on the line where the clause ends.
+ ;;
+ ;; Note we can't use `c-beginning-of-statement-1' in this function because
+ ;; of this function's use in `c-at-vsemi-p' for C++ Mode.
+ (save-excursion
+ (if pos (goto-char pos) (setq pos (point)))
+ (let ((limit (max (- (point) 2000) (point-min)))
+ found-req req-pos found-clause res pe-start pe-end
+ )
+ (while ; Loop around syntactically significant "requires" keywords.
+ (progn
+ (while
+ (and
+ (setq found-req (re-search-backward
+ c-fun-name-substitute-key
+ limit t)) ; Fast!
+ (or (not (setq found-req
+ (not (eq (char-after (match-end 0)) ?_))))
+ (not (setq found-req (not (c-in-literal))))))) ; Slow!
+ (setq req-pos (point))
+ (cond
+ ((not found-req) ; No "requires" found
+ nil)
+ ((save-excursion ; A primary expression `pos' is in
+ (setq pe-end nil)
+ (while (and (setq pe-start (point))
+ (< (point) pos)
+ (c-forward-primary-expression nil t)
+ (setq pe-end (point))
+ (progn (c-forward-syntactic-ws)
+ (looking-at "&&\\|||"))
+ (c-forward-over-token-and-ws)))
+ pe-end)
+ (if (<= pe-end pos)
+ t ; POS is not in a primary expression.
+ (setq res (cons pe-start 'expression))
+ nil))
+ ((progn
+ (goto-char req-pos)
+ (if (looking-at c-fun-name-substitute-key)
+ (setq found-clause (c-forward-c++-requires-clause nil t))
+ (and (c-forward-concept-fragment)
+ (setq found-clause (point))))
+ nil))
+ ((and found-clause (>= (point) pos))
+ (setq res (cons req-pos (eq (point) pos)))
+ nil)
+ (found-clause ; We found a constraint clause, but it did not
+ ; extend far enough forward to reach POS.
+ (c-go-up-list-backward req-pos limit))
+ (t (goto-char req-pos)
+ t))))
+ res)))
+
(defun c-looking-at-inexpr-block (lim containing-sexp &optional check-at-end)
;; Return non-nil if we're looking at the beginning of a block
;; inside an expression. The value returned is actually a cons of
@@ -13403,6 +13597,19 @@ comment at the start of cc-engine.el for more info."
(looking-at c-pre-lambda-tokens-re)))
(not (c-in-literal))))
+(defun c-c++-vsemi-p (&optional pos)
+ ;; C++ Only - Is there a "virtual semicolon" at POS or point?
+ ;; (See cc-defs.el for full details of "virtual semicolons".)
+ ;;
+ ;; This is true when point is at the last non syntactic WS position on the
+ ;; line, and either there is a "macro with semicolon" just before it (see
+ ;; `c-at-macro-vsemi-p') or there is a "requires" clause which ends there.
+ (let (res)
+ (cond
+ ((setq res (c-in-requires-or-at-end-of-clause pos))
+ (and res (eq (cdr res) t)))
+ ((c-at-macro-vsemi-p)))))
+
(defun c-at-macro-vsemi-p (&optional pos)
;; Is there a "virtual semicolon" at POS or point?
;; (See cc-defs.el for full details of "virtual semicolons".)
@@ -13954,7 +14161,7 @@ comment at the start of cc-engine.el for more info."
literal char-before-ip before-ws-ip char-after-ip macro-start
in-macro-expr c-syntactic-context placeholder
step-type tmpsymbol keyword injava-inher special-brace-list tmp-pos
- tmp-pos2 containing-<
+ tmp-pos2 containing-< tmp constraint-detail
;; The following record some positions for the containing
;; declaration block if we're directly within one:
;; `containing-decl-open' is the position of the open
@@ -14369,6 +14576,33 @@ comment at the start of cc-engine.el for more info."
containing-decl-start
containing-decl-kwd))
+ ;; CASE 5A.7: "defun" open in a requires expression.
+ ((save-excursion
+ (goto-char indent-point)
+ (c-backward-syntactic-ws lim)
+ (and (or (not (eq (char-before) ?\)))
+ (c-go-list-backward nil lim))
+ (progn (c-backward-syntactic-ws lim)
+ (zerop (c-backward-token-2 nil nil lim)))
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_))
+ (setq placeholder (point))))
+ (goto-char placeholder)
+ (back-to-indentation)
+ (c-add-syntax 'defun-open (point)))
+
+ ;; CASE 5A.6: "defun" open in concept.
+ ;; ((save-excursion
+ ;; (goto-char indent-point)
+ ;; (skip-chars-forward " \t")
+ ;; (and (eq (char-after) ?{)
+ ;; (eq (c-beginning-of-statement-1 lim) 'same)
+ ;; (setq placeholder
+ ;; (cdr (c-looking-at-concept indent-point)))))
+ ;; (goto-char placeholder)
+ ;; (back-to-indentation)
+ ;; (c-add-syntax 'defun-open (point)))
+
;; CASE 5A.5: ordinary defun open
(t
(save-excursion
@@ -14539,10 +14773,35 @@ comment at the start of cc-engine.el for more info."
nil nil
containing-sexp paren-state))
+ ;; CASE 5F: Close of a non-class declaration level block.
+ ((and (eq char-after-ip ?})
+ (c-keyword-member containing-decl-kwd
+ 'c-other-block-decl-kwds))
+ ;; This is inconsistent: Should use `containing-decl-open'
+ ;; here if it's at boi, like in case 5J.
+ (goto-char containing-decl-start)
+ (c-add-stmt-syntax
+ (if (string-equal (symbol-name containing-decl-kwd) "extern")
+ ;; Special case for compatibility with the
+ ;; extern-lang syntactic symbols.
+ 'extern-lang-close
+ (intern (concat (symbol-name containing-decl-kwd)
+ "-close")))
+ nil t
+ (c-most-enclosing-brace paren-state (point))
+ paren-state))
+
+ ;; CASE 5T: Continuation of a concept clause.
+ ((save-excursion
+ (and (eq (c-beginning-of-statement-1 nil t) 'same)
+ (setq tmp (c-looking-at-concept indent-point))))
+ (c-add-syntax 'constraint-cont (car tmp)))
+
;; CASE 5D: this could be a top-level initialization, a
;; member init list continuation, or a template argument
;; list continuation.
((save-excursion
+ (setq constraint-detail (c-in-requires-or-at-end-of-clause))
;; Note: We use the fact that lim is always after any
;; preceding brace sexp.
(if c-recognize-<>-arglists
@@ -14572,8 +14831,9 @@ comment at the start of cc-engine.el for more info."
;; clause - we assume only C++ needs it.
(c-syntactic-skip-backward "^;,=" lim t))
(setq placeholder (point))
- (and (memq (char-before) '(?, ?= ?<))
- (not (c-crosses-statement-barrier-p (point) indent-point))))
+ (or constraint-detail
+ (and (memq (char-before) '(?, ?= ?<))
+ (not (c-crosses-statement-barrier-p (point)
indent-point)))))
(cond
;; CASE 5D.6: Something like C++11's "using foo = <type-exp>"
@@ -14591,8 +14851,7 @@ comment at the start of cc-engine.el for more info."
(c-on-identifier))
(setq placeholder preserve-point)))))
(c-add-syntax
- 'statement-cont placeholder)
- )
+ 'statement-cont placeholder))
;; CASE 5D.3: perhaps a template list continuation?
((and (c-major-mode-is 'c++-mode)
@@ -14642,21 +14901,10 @@ comment at the start of cc-engine.el for more info."
;; CASE 5D.7: Continuation of a "concept foo =" line in C++20 (or
;; similar).
- ((and c-equals-nontype-decl-key
- (save-excursion
- (prog1
- (and (zerop (c-backward-token-2 1 nil lim))
- (looking-at c-operator-re)
- (equal (match-string 0) "=")
- (zerop (c-backward-token-2 1 nil lim))
- (looking-at c-symbol-start)
- (not (looking-at c-keywords-regexp))
- (zerop (c-backward-token-2 1 nil lim))
- (looking-at c-equals-nontype-decl-key)
- (eq (c-beginning-of-statement-1 lim) 'same))
- (setq placeholder (point)))))
- (goto-char placeholder)
- (c-add-stmt-syntax 'topmost-intro-cont nil nil containing-sexp
+ ((and constraint-detail
+ (not (eq (cdr constraint-detail) 'expression)))
+ (goto-char (car constraint-detail))
+ (c-add-stmt-syntax 'constraint-cont nil nil containing-sexp
paren-state))
;; CASE 5D.5: Continuation of the "expression part" of a
@@ -14681,24 +14929,6 @@ comment at the start of cc-engine.el for more info."
nil nil containing-sexp paren-state))
))
- ;; CASE 5F: Close of a non-class declaration level block.
- ((and (eq char-after-ip ?})
- (c-keyword-member containing-decl-kwd
- 'c-other-block-decl-kwds))
- ;; This is inconsistent: Should use `containing-decl-open'
- ;; here if it's at boi, like in case 5J.
- (goto-char containing-decl-start)
- (c-add-stmt-syntax
- (if (string-equal (symbol-name containing-decl-kwd) "extern")
- ;; Special case for compatibility with the
- ;; extern-lang syntactic symbols.
- 'extern-lang-close
- (intern (concat (symbol-name containing-decl-kwd)
- "-close")))
- nil t
- (c-most-enclosing-brace paren-state (point))
- paren-state))
-
;; CASE 5G: we are looking at the brace which closes the
;; enclosing nested class decl
((and containing-sexp
@@ -14911,6 +15141,16 @@ comment at the start of cc-engine.el for more info."
(c-add-syntax 'topmost-intro-cont (c-point 'boi)))
))
+ ;; CASE 20: A C++ requires sub-clause.
+ ((and (setq tmp (c-in-requires-or-at-end-of-clause indent-point))
+ (not (eq (cdr tmp) 'expression))
+ (setq placeholder (car tmp)))
+ (c-add-syntax
+ (if (eq char-after-ip ?{)
+ 'substatement-open
+ 'substatement)
+ (c-point 'boi placeholder)))
+
;; ((Old) CASE 6 has been removed.)
;; CASE 6: line is within a C11 _Generic expression.
((and c-generic-key
@@ -15294,6 +15534,20 @@ comment at the start of cc-engine.el for more info."
(c-add-syntax 'defun-close (point))
(c-add-syntax 'inline-close (point))))
+ ;; CASE 16G: Do we have the closing brace of a "requires" clause
+ ;; of a C++20 "concept"?
+ ((save-excursion
+ (c-backward-syntactic-ws lim)
+ (and (or (not (eq (char-before) ?\)))
+ (c-go-list-backward nil lim))
+ (progn (c-backward-syntactic-ws lim)
+ (zerop (c-backward-token-2 nil nil lim)))
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_))))
+ (goto-char containing-sexp)
+ (back-to-indentation)
+ (c-add-stmt-syntax 'defun-close nil t lim paren-state))
+
;; CASE 16F: Can be a defun-close of a function declared
;; in a statement block, e.g. in Pike or when using gcc
;; extensions, but watch out for macros followed by
@@ -15444,6 +15698,21 @@ comment at the start of cc-engine.el for more info."
(if (eq char-after-ip ?{)
(c-add-syntax 'block-open)))
+ ;; CASE 17J: first "statement" inside a C++20 requires
+ ;; "function".
+ ((save-excursion
+ (goto-char containing-sexp)
+ (c-backward-syntactic-ws lim)
+ (and (or (not (eq (char-before) ?\)))
+ (c-go-list-backward nil lim))
+ (progn (c-backward-syntactic-ws lim)
+ (zerop (c-backward-token-2 nil nil lim)))
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_))))
+ (goto-char containing-sexp)
+ (back-to-indentation)
+ (c-add-syntax 'defun-block-intro (point)))
+
;; CASE 17F: first statement in an inline, or first
;; statement in a top-level defun. we can tell this is it
;; if there are no enclosing braces that haven't been
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index f726fef467e..9118e3253c2 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -1388,7 +1388,8 @@ casts and declarations are fontified. Used on level 2
and higher."
(memq type '(c-decl-arg-start
c-decl-type-start))))))))
((and (zerop (c-backward-token-2))
- (looking-at c-fun-name-substitute-key)))))))))
+ (looking-at c-fun-name-substitute-key)
+ (not (eq (char-after (match-end 0)) ?_))))))))))
;; Cache the result of this test for next time around.
(c-put-char-property (1- match-pos) 'c-type 'c-decl-arg-start)
(cons 'decl nil))
@@ -2678,9 +2679,7 @@ need for `c-font-lock-extra-types'.")
'same)
(looking-at c-colon-type-list-re)))
;; Inherited protected member: leave unfontified
- )
- (t (goto-char pos)
- (c-font-lock-declarators limit nil c-label-face-name nil)))
+ ))
(eq (char-after) ?,)))
(forward-char))) ; over the comma.
nil))
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 28403385115..3b4fdc6e141 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -586,7 +586,8 @@ Such a function takes one optional parameter, a buffer
position (defaults to
point), and returns nil or t. This variable contains nil for languages which
don't have EOL terminated statements. "
t nil
- (c c++ objc) 'c-at-macro-vsemi-p
+ (c objc) 'c-at-macro-vsemi-p
+ c++ 'c-c++-vsemi-p
awk 'c-awk-at-vsemi-p)
(c-lang-defvar c-at-vsemi-p-fn (c-lang-const c-at-vsemi-p-fn))
@@ -2634,9 +2635,12 @@ clause. An arglist may or may not follow such a
keyword."
c++ '("requires"))
(c-lang-defconst c-fun-name-substitute-key
- ;; An adorned regular expression which matches any member of
+ ;; An unadorned regular expression which matches any member of
;; `c-fun-name-substitute-kwds'.
- t (c-make-keywords-re t (c-lang-const c-fun-name-substitute-kwds)))
+ t (c-make-keywords-re 'appendable (c-lang-const c-fun-name-substitute-kwds)))
+;; We use 'appendable, so that we get "\\>" on the regexp, but without a
further
+;; character, which would mess up backward regexp search from just after the
+;; keyword. If only XEmacs had \\_>. ;-(
(c-lang-defvar c-fun-name-substitute-key
(c-lang-const c-fun-name-substitute-key))
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 330202bb5f9..11a1d3fe6c2 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -2444,8 +2444,6 @@ with // and /*, not more generic line and block comments."
(setq pseudo (c-cheap-inside-bracelist-p
(c-parse-state)))))))
(goto-char pseudo))
t)
- (or (> (point) bod-lim)
- (eq bod-lim (point-min)))
;; Move forward to the start of the next declaration.
(progn (c-forward-syntactic-ws)
;; Have we got stuck in a comment at EOB?
diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el
index fc4f723915c..e412a52cfb8 100644
--- a/lisp/progmodes/cc-styles.el
+++ b/lisp/progmodes/cc-styles.el
@@ -658,8 +658,9 @@ any reason to call this function directly."
(let ((func (if this-buf-only-p
'make-local-variable
'make-variable-buffer-local))
- (varsyms (cons 'c-indentation-style (copy-alist c-style-variables))))
- (delq 'c-special-indent-hook varsyms)
+ (varsyms (cons 'c-indentation-style
+ (delq 'c-special-indent-hook
+ (copy-alist c-style-variables)))))
(mapc func varsyms)
;; Hooks must be handled specially
(if this-buf-only-p
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 60ed3521b8a..72d4b93ee59 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -232,6 +232,7 @@ See `c-offsets-alist'."
(setq offset (cdr offset)))
(null offset)))))
+;;;###autoload
(defun c-string-list-p (val)
"Return non-nil if VAL is a list of strings."
(and
@@ -1093,6 +1094,8 @@ can always override the use of `c-default-style' by
making calls to
;; Anchor pos: Bol at the last line of previous construct.
(topmost-intro-cont . c-lineup-topmost-intro-cont)
;;Anchor pos: Bol at the topmost annotation line
+ (constraint-cont . +)
+ ;; Anchor pos: Boi of the starting requires/concept line
(annotation-top-cont . 0)
;;Anchor pos: Bol at the topmost annotation line
(annotation-var-cont . +)
@@ -1325,6 +1328,9 @@ Here is the current list of valid syntactic element
symbols:
knr-argdecl -- Subsequent lines in a K&R C argument declaration.
topmost-intro -- The first line in a topmost construct definition.
topmost-intro-cont -- Topmost definition continuation lines.
+ constraint-cont -- Continuation line of a C++ requires clause (not
+ to be confused with a \"requires expression\") or
+ concept.
annotation-top-cont -- Topmost definition continuation line where only
annotations are on previous lines.
annotation-var-cont -- A continuation of a C (or like) statement where
@@ -1576,8 +1582,11 @@ also elsewhere in CC Mode to tell types from other
identifiers."))
"For example, a value of (\"FILE\" \"\\\\sw+_t\") means the word \"FILE\"
and words ending in \"_t\" are treated as type names.")
:type 'c-extra-types-widget
+ :safe #'c-string-list-p
:group 'c)
+;;;###autoload (put 'c-font-lock-extra-types 'safe-local-variable
#'c-string-list-p)
+
(defcustom c++-font-lock-extra-types
'("\\sw+_t"
;; C library types (except those matched by the _t pattern):
@@ -1607,8 +1616,11 @@ and words ending in \"_t\" are treated as type names.")
"For example, a value of (\"string\") means the word \"string\" is treated
as a type name.")
:type 'c-extra-types-widget
+ :safe #'c-string-list-p
:group 'c)
+;;;###autoload (put 'c++-font-lock-extra-types 'safe-local-variable
#'c-string-list-p)
+
(defcustom objc-font-lock-extra-types nil
(c-make-font-lock-extra-types-blurb "ObjC" "objc-mode" (concat
"For example, a value of (\"[" c-upper "]\\\\sw*[" c-lower "]\\\\sw*\") means
@@ -1616,8 +1628,11 @@ capitalized words are treated as type names (the
requirement for a
lower case char is to avoid recognizing all-caps macro and constant
names)."))
:type 'c-extra-types-widget
+ :safe #'c-string-list-p
:group 'c)
+;;;###autoload (put 'objc-font-lock-extra-types 'safe-local-variable
#'c-string-list-p)
+
(defcustom java-font-lock-extra-types
(list (concat "[" c-upper "]\\sw*[" c-lower "]\\sw"))
(c-make-font-lock-extra-types-blurb "Java" "java-mode" (concat
@@ -1625,13 +1640,19 @@ names)."))
capitalized words are treated as type names (the requirement for a
lower case char is to avoid recognizing all-caps constant names)."))
:type 'c-extra-types-widget
+ :safe #'c-string-list-p
:group 'c)
+;;;###autoload (put 'java-font-lock-extra-types 'safe-local-variable
#'c-string-list-p)
+
(defcustom idl-font-lock-extra-types nil
(c-make-font-lock-extra-types-blurb "IDL" "idl-mode" "")
:type 'c-extra-types-widget
+ :safe #'c-string-list-p
:group 'c)
+;;;###autoload (put 'idl-font-lock-extra-types 'safe-local-variable
#'c-string-list-p)
+
(defcustom pike-font-lock-extra-types
(list (concat "[" c-upper "]\\sw*[" c-lower "]\\sw*"))
(c-make-font-lock-extra-types-blurb "Pike" "pike-mode" (concat
@@ -1640,8 +1661,11 @@ capitalized words are treated as type names (the
requirement for a
lower case char is to avoid recognizing all-caps macro and constant
names)."))
:type 'c-extra-types-widget
+ :safe #'c-string-list-p
:group 'c)
+;;;###autoload (put 'pike-font-lock-extra-types 'safe-local-variable
#'c-string-list-p)
+
(defcustom c-asymmetry-fontification-flag t
"Whether to fontify certain ambiguous constructs by white space asymmetry.
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index b6f0e9bca41..ed021a7ebc9 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -275,7 +275,7 @@ Can be overwritten by `cperl-hairy' if nil."
:type '(choice (const null) boolean)
:group 'cperl-affected-by-hairy)
-(defcustom cperl-electric-parens-mark window-system
+(defcustom cperl-electric-parens-mark (not (not window-system))
"Not-nil means that electric parens look for active mark.
Default is yes if there is visual feedback on mark."
:type 'boolean
diff --git a/lisp/progmodes/csharp-mode.el b/lisp/progmodes/csharp-mode.el
index ea4977254ce..db036aab685 100644
--- a/lisp/progmodes/csharp-mode.el
+++ b/lisp/progmodes/csharp-mode.el
@@ -464,11 +464,23 @@ compilation and evaluation time conflicts."
(defun csharp-guess-basic-syntax (orig-fun &rest args)
(cond
+ (;; enum
+ (save-excursion
+ (goto-char (c-point 'boi))
+ (and
+ (eq (char-after) ?\{)
+ (save-excursion
+ (goto-char (c-point 'iopl))
+ (looking-at ".*enum.*"))))
+ `((class-open ,(c-point 'iopl))))
(;; Attributes
(save-excursion
(goto-char (c-point 'iopl))
(and
- (eq (char-after) ?\[)
+ (eq (save-excursion
+ (skip-chars-forward " \t\n")
+ (char-after))
+ ?\[)
(save-excursion
(c-go-list-forward)
(and (eq (char-before) ?\])
@@ -908,7 +920,6 @@ Return nil if there is no name or if NODE is not a defun
node."
"struct_declaration"
"enum_declaration"
"interface_declaration"
- "class_declaration"
"class_declaration")
(treesit-node-text
(treesit-node-child-by-field-name
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 0bb1a01f902..cf589762e8f 100644
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -1396,7 +1396,7 @@ regexps in `dcl-electric-reindent-regexps'."
;;;-------------------------------------------------------------------------
(defun dcl-indent-to (col &optional minimum)
"Like `indent-to', but only indents if indentation would change."
- (interactive)
+ (interactive "NIndent to column: ")
(let (cur-indent collapsed indent)
(save-excursion
(skip-chars-forward " \t")
diff --git a/lisp/progmodes/dockerfile-ts-mode.el
b/lisp/progmodes/dockerfile-ts-mode.el
index c9125bc6cbd..333158e20f6 100644
--- a/lisp/progmodes/dockerfile-ts-mode.el
+++ b/lisp/progmodes/dockerfile-ts-mode.el
@@ -123,8 +123,9 @@ continuation to the previous entry."
(let* ((node (treesit-buffer-root-node))
(stage-tree (treesit-induce-sparse-tree
node "from_instruction"
- nil 1000)))
- `(("Stage" . ,(dockerfile-ts-mode--imenu-1 stage-tree)))))
+ nil 1000))
+ (stage-index (dockerfile-ts-mode--imenu-1 stage-tree)))
+ (when stage-index `(("Stage" . ,stage-index)))))
(defun dockerfile-ts-mode--imenu-1 (node)
"Helper for `dockerfile-ts-mode--imenu'.
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el
index 9ac37b676f9..4155dc0d2cd 100644
--- a/lisp/progmodes/ebnf-otz.el
+++ b/lisp/progmodes/ebnf-otz.el
@@ -566,7 +566,7 @@
;; determine suffix length
(while (and (> isuf 0) (setq tail (cdr tail)))
(let* ((cur head)
- (tlis (nreverse
+ (tlis (reverse
(if (eq (ebnf-node-kind (car tail)) 'ebnf-generate-sequence)
(ebnf-node-list (car tail))
(list (car tail)))))
@@ -577,7 +577,6 @@
(setq cur (cdr cur)
this (cdr this)
i (1+ i)))
- (nreverse tlis)
(setq isuf (min isuf i))))
(setq head (nreverse head))
(if (or (zerop isuf) (> isuf len))
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 4563b83389f..5ca2f09b141 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -1130,7 +1130,7 @@ If given a numeric N-TIMES argument, mark that many
classes."
(defun ebrowse-redraw-marks (start end)
"Display class marker signs in the tree between START and END."
- (interactive)
+ (interactive "r")
(save-excursion
(with-silent-modifications
(catch 'end
@@ -1494,9 +1494,9 @@ and possibly kill the viewed buffer."
(defun ebrowse-view-file-other-frame (file)
- "View a file FILE in another frame.
+ "View FILE in another frame.
The new frame is deleted when you quit viewing the file in that frame."
- (interactive)
+ (interactive "fIn other frame view file: ")
(let ((old-frame-configuration (current-frame-configuration))
(had-a-buf (get-file-buffer file))
(buf-to-view (find-file-noselect file)))
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 2f8d2002cd3..0140db0c4b3 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2,12 +2,12 @@
;; Copyright (C) 2018-2023 Free Software Foundation, Inc.
-;; Version: 1.11
+;; Version: 1.15
;; Author: João Távora <joaotavora@gmail.com>
;; Maintainer: João Távora <joaotavora@gmail.com>
;; URL: https://github.com/joaotavora/eglot
;; Keywords: convenience, languages
-;; Package-Requires: ((emacs "26.3") (jsonrpc "1.0.16") (flymake "1.2.1")
(project "0.9.3") (xref "1.4.0") (eldoc "1.11.0") (seq "2.23")
(external-completion "0.1"))
+;; Package-Requires: ((emacs "26.3") (jsonrpc "1.0.16") (flymake "1.2.1")
(project "0.9.8") (xref "1.6.2") (eldoc "1.14.0") (seq "2.23")
(external-completion "0.1"))
;; This is a GNU ELPA :core package. Avoid adding functionality
;; that is not available in the version of Emacs recorded above or any
@@ -97,34 +97,30 @@
(require 'imenu)
(require 'cl-lib)
-(require 'project)
+
(require 'url-parse)
(require 'url-util)
(require 'pcase)
(require 'compile) ; for some faces
(require 'warnings)
-(require 'flymake)
-(require 'xref)
(eval-when-compile
(require 'subr-x))
-(require 'jsonrpc)
(require 'filenotify)
(require 'ert)
-(require 'array)
-(require 'external-completion)
-
-;; ElDoc is preloaded in Emacs, so `require'-ing won't guarantee we are
-;; using the latest version from GNU Elpa when we load eglot.el. Use an
-;; heuristic to see if we need to `load' it in Emacs < 28.
-(if (and (< emacs-major-version 28)
- (not (boundp 'eldoc-documentation-strategy)))
- (load "eldoc")
- (require 'eldoc))
-
-;; Similar issue as above for Emacs 26.3 and seq.el.
-(if (< emacs-major-version 27)
- (load "seq")
- (require 'seq))
+(require 'text-property-search nil t)
+
+;; These dependencies are also GNU ELPA core packages. Because of
+;; bug#62576, since there is a risk that M-x package-install, despite
+;; having installed them, didn't correctly re-load them over the
+;; built-in versions.
+(eval-and-compile
+ (load "project")
+ (load "eldoc")
+ (load "seq")
+ (load "flymake")
+ (load "xref")
+ (load "jsonrpc")
+ (load "external-completion"))
;; forward-declare, but don't require (Emacs 28 doesn't seem to care)
(defvar markdown-fontify-code-blocks-natively)
@@ -219,9 +215,13 @@ chosen (interactively or automatically)."
((R-mode ess-r-mode) . ("R" "--slave" "-e"
"languageserver::run()"))
((java-mode java-ts-mode) . ("jdtls"))
- (dart-mode . ("dart" "language-server"
- "--client-id"
"emacs.eglot-dart"))
- (elixir-mode . ("language_server.sh"))
+ ((dart-mode dart-ts-mode)
+ . ("dart" "language-server"
+ "--client-id" "emacs.eglot-dart"))
+ ((elixir-mode elixir-ts-mode heex-ts-mode)
+ . ,(if (and (fboundp
'w32-shell-dos-semantics)
(w32-shell-dos-semantics))
+ '("language_server.bat")
+ '("language_server.sh")))
(ada-mode . ("ada_language_server"))
(scala-mode . ,(eglot-alternatives
'("metals" "metals-emacs")))
@@ -231,6 +231,7 @@ chosen (interactively or automatically)."
(erlang-mode . ("erlang_ls" "--transport"
"stdio"))
((yaml-ts-mode yaml-mode) .
("yaml-language-server" "--stdio"))
(nix-mode . ,(eglot-alternatives '("nil"
"rnix-lsp")))
+ (nickel-mode . ("nls"))
(gdscript-mode . ("localhost" 6008))
((fortran-mode f90-mode) . ("fortls"))
(futhark-mode . ("futhark" "lsp"))
@@ -242,7 +243,7 @@ chosen (interactively or automatically)."
("css-languageserver" "--stdio"))))
(html-mode . ,(eglot-alternatives
'(("vscode-html-language-server" "--stdio") ("html-languageserver" "--stdio"))))
((dockerfile-mode dockerfile-ts-mode) .
("docker-langserver" "--stdio"))
- ((clojure-mode clojurescript-mode
clojurec-mode)
+ ((clojure-mode clojurescript-mode
clojurec-mode clojure-ts-mode)
. ("clojure-lsp"))
((csharp-mode csharp-ts-mode)
. ,(eglot-alternatives
@@ -250,7 +251,11 @@ chosen (interactively or automatically)."
("csharp-ls"))))
(purescript-mode .
("purescript-language-server" "--stdio"))
((perl-mode cperl-mode) . ("perl"
"-MPerl::LanguageServer" "-e" "Perl::LanguageServer::run"))
- (markdown-mode . ("marksman" "server")))
+ (markdown-mode
+ . ,(eglot-alternatives
+ '(("marksman" "server")
+ ("vscode-markdown-language-server"
"--stdio"))))
+ (graphviz-dot-mode . ("dot-language-server"
"--stdio")))
"How the command `eglot' guesses the server to start.
An association list of (MAJOR-MODE . CONTACT) pairs. MAJOR-MODE
identifies the buffers that are to be managed by a specific
@@ -390,14 +395,20 @@ done by `eglot-reconnect'."
"If non-nil, activate Eglot in cross-referenced non-project files."
:type 'boolean)
+(defcustom eglot-prefer-plaintext nil
+ "If non-nil, always request plaintext responses to hover requests."
+ :type 'boolean)
+
(defcustom eglot-menu-string "eglot"
"String displayed in mode line when Eglot is active."
:type 'string)
(defcustom eglot-report-progress t
- "If non-nil, show progress of long running LSP server work"
+ "If non-nil, show progress of long running LSP server work.
+If set to `messages', use *Messages* buffer, else use Eglot's
+mode line indicator."
:type 'boolean
- :version "29.1")
+ :version "1.10")
(defvar eglot-withhold-process-id nil
"If non-nil, Eglot will not send the Emacs process id to the language server.
@@ -442,6 +453,10 @@ This can be useful when using docker to run a language
server.")
(if (>= emacs-major-version 27) (executable-find command remote)
(executable-find command)))
+(defun eglot--accepted-formats ()
+ (if (and (not eglot-prefer-plaintext) (fboundp 'gfm-view-mode))
+ ["markdown" "plaintext"] ["plaintext"]))
+
;;; Message verification helpers
;;;
@@ -477,9 +492,7 @@ This can be useful when using docker to run a language
server.")
(SymbolInformation (:name :kind :location)
(:deprecated :containerName))
(DocumentSymbol (:name :range :selectionRange :kind)
- ;; `:containerName' isn't really allowed , but
- ;; it simplifies the impl of `eglot-imenu'.
- (:detail :deprecated :children :containerName))
+ (:detail :deprecated :children))
(TextDocumentEdit (:textDocument :edits) ())
(TextEdit (:range :newText))
(VersionedTextDocumentIdentifier (:uri :version) ())
@@ -712,8 +725,23 @@ treated as in `eglot--dbind'."
(cl-defgeneric eglot-handle-notification (server method &rest params)
"Handle SERVER's METHOD notification with PARAMS.")
-(cl-defgeneric eglot-execute-command (server command arguments)
- "Ask SERVER to execute COMMAND with ARGUMENTS.")
+(cl-defgeneric eglot-execute-command (_ _ _)
+ (declare (obsolete eglot-execute "30.1"))
+ (:method
+ (server command arguments)
+ (eglot--request server :workspace/executeCommand
+ `(:command ,(format "%s" command) :arguments ,arguments))))
+
+(cl-defgeneric eglot-execute (server action)
+ "Ask SERVER to execute ACTION.
+ACTION is an LSP object of either `CodeAction' or `Command' type."
+ (:method
+ (server action) "Default implementation."
+ (eglot--dcase action
+ (((Command)) (eglot--request server :workspace/executeCommand action))
+ (((CodeAction) edit command)
+ (when edit (eglot--apply-workspace-edit edit))
+ (when command (eglot--request server :workspace/executeCommand
command))))))
(cl-defgeneric eglot-initialization-options (server)
"JSON object to send under `initializationOptions'."
@@ -759,7 +787,9 @@ treated as in `eglot--dbind'."
:completion (list :dynamicRegistration :json-false
:completionItem
`(:snippetSupport
- ,(if (eglot--snippet-expansion-fn)
+ ,(if (and
+ (not (eglot--stay-out-of-p
'yasnippet))
+ (eglot--snippet-expansion-fn))
t
:json-false)
:deprecatedSupport t
@@ -770,14 +800,12 @@ treated as in `eglot--dbind'."
:tagSupport (:valueSet [1]))
:contextSupport t)
:hover (list :dynamicRegistration :json-false
- :contentFormat
- (if (fboundp 'gfm-view-mode)
- ["markdown" "plaintext"]
- ["plaintext"]))
+ :contentFormat
(eglot--accepted-formats))
:signatureHelp (list :dynamicRegistration :json-false
:signatureInformation
`(:parameterInformation
(:labelOffsetSupport t)
+ :documentationFormat
,(eglot--accepted-formats)
:activeParameterSupport t))
:references `(:dynamicRegistration :json-false)
:definition (list :dynamicRegistration :json-false
@@ -818,6 +846,8 @@ treated as in `eglot--dbind'."
`(:valueSet
[,@(mapcar
#'car eglot--tag-faces)])))
+ :window `(:showDocument (:support t)
+ :workDoneProgress t)
:general (list :positionEncodings ["utf-32" "utf-8" "utf-16"])
:experimental eglot--{})))
@@ -835,12 +865,9 @@ treated as in `eglot--dbind'."
:documentation "Short nickname for the associated project."
:accessor eglot--project-nickname
:reader eglot-project-nickname)
- (major-modes
- :documentation "Major modes server is responsible for in a given project."
- :accessor eglot--major-modes)
- (language-id
- :documentation "Language ID string for the mode."
- :accessor eglot--language-id)
+ (languages
+ :documentation "Alist ((MODE . LANGUAGE-ID-STRING)...) of managed
languages."
+ :accessor eglot--languages)
(capabilities
:documentation "JSON object containing server capabilities."
:accessor eglot--capabilities)
@@ -875,6 +902,12 @@ treated as in `eglot--dbind'."
:documentation
"Represents a server. Wraps a process for LSP communication.")
+(defun eglot--major-modes (s) "Major modes server S is responsible for."
+ (mapcar #'car (eglot--languages s)))
+
+(defun eglot--language-ids (s) "LSP Language ID strings for server S's modes."
+ (mapcar #'cdr (eglot--languages s)))
+
(cl-defmethod initialize-instance :before ((_server eglot-lsp-server)
&optional args)
(cl-remf args :initializationOptions))
@@ -902,7 +935,7 @@ SERVER."
(unwind-protect
(progn
(setf (eglot--shutdown-requested server) t)
- (jsonrpc-request server :shutdown nil :timeout (or timeout 1.5))
+ (eglot--request server :shutdown nil :timeout (or timeout 1.5))
(jsonrpc-notify server :exit nil))
;; Now ask jsonrpc.el to shut down the server.
(jsonrpc-shutdown server (not preserve-buffers))
@@ -960,42 +993,44 @@ PRESERVE-BUFFERS as in `eglot-shutdown', which see."
(defun eglot--lookup-mode (mode)
"Lookup `eglot-server-programs' for MODE.
-Return (MANAGED-MODES LANGUAGE-ID CONTACT-PROXY).
+Return (LANGUAGES . CONTACT-PROXY).
MANAGED-MODES is a list with MODE as its first element.
Subsequent elements are other major modes also potentially
managed by the server that is to manage MODE.
-If not specified in `eglot-server-programs' (which see),
-LANGUAGE-ID is determined from MODE's name.
+LANGUAGE-IDS is a list of the same length as MANAGED-MODES. Each
+elem is derived from the corresponding mode name, if not
+specified in `eglot-server-programs' (which see).
CONTACT-PROXY is the value of the corresponding
`eglot-server-programs' entry."
- (cl-loop
- for (modes . contact) in eglot-server-programs
- for mode-symbols = (cons mode
- (delete mode
- (mapcar #'car
- (mapcar #'eglot--ensure-list
- (eglot--ensure-list
modes)))))
- thereis (cl-some
- (lambda (spec)
- (cl-destructuring-bind (probe &key language-id &allow-other-keys)
- (eglot--ensure-list spec)
- (and (provided-mode-derived-p mode probe)
- (list
- mode-symbols
- (or language-id
- (or (get mode 'eglot-language-id)
- (get spec 'eglot-language-id)
- (string-remove-suffix "-mode" (symbol-name
mode))))
- contact))))
- (if (or (symbolp modes) (keywordp (cadr modes)))
- (list modes) modes))))
+ (cl-flet ((languages (main-mode-sym specs)
+ (let* ((res
+ (mapcar (jsonrpc-lambda (sym &key language-id
&allow-other-keys)
+ (cons sym
+ (or language-id
+ (or (get sym 'eglot-language-id)
+ (replace-regexp-in-string
+ "\\(?:-ts\\)?-mode$" ""
+ (symbol-name sym))))))
+ specs))
+ (head (cl-find main-mode-sym res :key #'car)))
+ (cons head (delq head res)))))
+ (cl-loop
+ for (modes . contact) in eglot-server-programs
+ for specs = (mapcar #'eglot--ensure-list
+ (if (or (symbolp modes) (keywordp (cadr modes)))
+ (list modes) modes))
+ thereis (cl-some (lambda (spec)
+ (cl-destructuring-bind (sym &key &allow-other-keys)
spec
+ (and (provided-mode-derived-p mode sym)
+ (cons (languages sym specs) contact))))
+ specs))))
(defun eglot--guess-contact (&optional interactive)
"Helper for `eglot'.
-Return (MANAGED-MODE PROJECT CLASS CONTACT LANG-ID). If INTERACTIVE is
+Return (MANAGED-MODES PROJECT CLASS CONTACT LANG-IDS). If INTERACTIVE is
non-nil, maybe prompt user, else error as soon as something can't
be guessed."
(let* ((guessed-mode (if buffer-file-name major-mode))
@@ -1013,11 +1048,10 @@ be guessed."
((not guessed-mode)
(eglot--error "Can't guess mode to manage for `%s'"
(current-buffer)))
(t guessed-mode)))
- (triplet (eglot--lookup-mode main-mode))
- (managed-modes (car triplet))
- (language-id (or (cadr triplet)
- (string-remove-suffix "-mode" (symbol-name
guessed-mode))))
- (guess (caddr triplet))
+ (languages-and-contact (eglot--lookup-mode main-mode))
+ (managed-modes (mapcar #'car (car languages-and-contact)))
+ (language-ids (mapcar #'cdr (car languages-and-contact)))
+ (guess (cdr languages-and-contact))
(guess (if (functionp guess)
(funcall guess interactive)
guess))
@@ -1065,7 +1099,7 @@ be guessed."
full-program-invocation
'eglot-command-history)))
guess)))
- (list managed-modes (eglot--current-project) class contact language-id)))
+ (list managed-modes (eglot--current-project) class contact language-ids)))
(defvar eglot-lsp-context)
(put 'eglot-lsp-context 'variable-documentation
@@ -1083,24 +1117,25 @@ suitable root directory for a given LSP server's
purposes."
`(transient . ,(expand-file-name default-directory)))))
;;;###autoload
-(defun eglot (managed-major-mode project class contact language-id
+(defun eglot (managed-major-modes project class contact language-ids
&optional _interactive)
- "Start LSP server in support of PROJECT's buffers under MANAGED-MAJOR-MODE.
+ "Start LSP server for PROJECT's buffers under MANAGED-MAJOR-MODES.
-This starts a Language Server Protocol (LSP) server suitable for the
-buffers of PROJECT whose `major-mode' is MANAGED-MAJOR-MODE.
-CLASS is the class of the LSP server to start and CONTACT specifies
-how to connect to the server.
+This starts a Language Server Protocol (LSP) server suitable for
+the buffers of PROJECT whose `major-mode' is among
+MANAGED-MAJOR-MODES. CLASS is the class of the LSP server to
+start and CONTACT specifies how to connect to the server.
-Interactively, the command attempts to guess MANAGED-MAJOR-MODE
-from the current buffer's `major-mode', CLASS and CONTACT from
-`eglot-server-programs' looked up by the major mode, and PROJECT from
-`project-find-functions'. The search for active projects in this
-context binds `eglot-lsp-context' (which see).
+Interactively, the command attempts to guess MANAGED-MAJOR-MODES,
+CLASS, CONTACT, and LANGUAGE-IDS from `eglot-server-programs',
+according to the current buffer's `major-mode'. PROJECT is
+guessed from `project-find-functions'. The search for active
+projects in this context binds `eglot-lsp-context' (which see).
-If it can't guess, it prompts the user for the mode and the server.
-With a single \\[universal-argument] prefix arg, it always prompts for COMMAND.
-With two \\[universal-argument], it also always prompts for MANAGED-MAJOR-MODE.
+If it can't guess, it prompts the user for the mode and the
+server. With a single \\[universal-argument] prefix arg, it
+always prompts for COMMAND. With two \\[universal-argument], it
+also always prompts for MANAGED-MAJOR-MODE.
The LSP server of CLASS is started (or contacted) via CONTACT.
If this operation is successful, current *and future* file
@@ -1118,8 +1153,8 @@ CONTACT specifies how to contact the server. It is a
keyword-value plist used to initialize CLASS or a plain list as
described in `eglot-server-programs', which see.
-LANGUAGE-ID is the language ID string to send to the server for
-MANAGED-MAJOR-MODE, which matters to a minority of servers.
+LANGUAGE-IDS is a list of language ID string to send to the
+server for each element in MANAGED-MAJOR-MODES.
INTERACTIVE is ignored and provided for backward compatibility."
(interactive
@@ -1130,8 +1165,9 @@ INTERACTIVE is ignored and provided for backward
compatibility."
(user-error "[eglot] Connection attempt aborted by user."))
(prog1 (append (eglot--guess-contact t) '(t))
(when current-server (ignore-errors (eglot-shutdown current-server))))))
- (eglot--connect (eglot--ensure-list managed-major-mode)
- project class contact language-id))
+ (eglot--connect (eglot--ensure-list managed-major-modes)
+ project class contact
+ (eglot--ensure-list language-ids)))
(defun eglot-reconnect (server &optional interactive)
"Reconnect to SERVER.
@@ -1143,7 +1179,7 @@ INTERACTIVE is t if called interactively."
(eglot--project server)
(eieio-object-class-name server)
(eglot--saved-initargs server)
- (eglot--language-id server))
+ (eglot--language-ids server))
(eglot--message "Reconnected!"))
(defvar eglot--managed-mode) ; forward decl
@@ -1155,12 +1191,12 @@ INTERACTIVE is t if called interactively."
(cl-labels
((maybe-connect
()
- (remove-hook 'post-command-hook #'maybe-connect nil)
(eglot--when-live-buffer buffer
+ (remove-hook 'post-command-hook #'maybe-connect t)
(unless eglot--managed-mode
(apply #'eglot--connect (eglot--guess-contact))))))
(when buffer-file-name
- (add-hook 'post-command-hook #'maybe-connect 'append nil)))))
+ (add-hook 'post-command-hook #'maybe-connect 'append t)))))
(defun eglot-events-buffer (server)
"Display events buffer for SERVER.
@@ -1216,8 +1252,8 @@ Each function is passed the server as an argument")
(defvar-local eglot--cached-server nil
"A cached reference to the current Eglot server.")
-(defun eglot--connect (managed-modes project class contact language-id)
- "Connect to MANAGED-MODES, LANGUAGE-ID, PROJECT, CLASS and CONTACT.
+(defun eglot--connect (managed-modes project class contact language-ids)
+ "Connect to MANAGED-MODES, LANGUAGE-IDS, PROJECT, CLASS and CONTACT.
This docstring appeases checkdoc, that's all."
(let* ((default-directory (project-root project))
(nickname (project-name project))
@@ -1257,7 +1293,7 @@ This docstring appeases checkdoc, that's all."
;; very much data so we turn it off
;; unconditionally -- just for our
;; process.
- (tramp-use-ssh-controlmaster-options t)
+ (tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options
"-o ControlMaster=no -o ControlPath=none"))
(make-process
@@ -1290,8 +1326,9 @@ This docstring appeases checkdoc, that's all."
(setf (eglot--saved-initargs server) initargs)
(setf (eglot--project server) project)
(setf (eglot--project-nickname server) nickname)
- (setf (eglot--major-modes server) (eglot--ensure-list managed-modes))
- (setf (eglot--language-id server) language-id)
+ (setf (eglot--languages server)
+ (cl-loop for m in managed-modes for l in language-ids
+ collect (cons m l)))
(setf (eglot--inferior-process server) autostart-inferior-process)
(run-hook-with-args 'eglot-server-initialized-hook server)
;; Now start the handshake. To honor `eglot-sync-connect'
@@ -1310,6 +1347,7 @@ This docstring appeases checkdoc, that's all."
(eq (jsonrpc-process-type server)
'network))
(emacs-pid))
+ :clientInfo '(:name "Eglot")
;; Maybe turn trampy `/ssh:foo@bar:/path/to/baz.py'
;; into `/path/to/baz.py', so LSP groks it.
:rootPath (file-local-name
@@ -1454,15 +1492,27 @@ CONNECT-ARGS are passed as additional arguments to
(line-beginning-position n))))
"Return position of first character in current line.")
+(cl-defun eglot--request (server method params &key
+ immediate
+ timeout cancel-on-input
+ cancel-on-input-retval)
+ "Like `jsonrpc-request', but for Eglot LSP requests.
+Unless IMMEDIATE, send pending changes before making request."
+ (unless immediate (eglot--signal-textDocument/didChange))
+ (jsonrpc-request server method params
+ :timeout timeout
+ :cancel-on-input cancel-on-input
+ :cancel-on-input-retval cancel-on-input-retval))
+
;;; Encoding fever
;;;
(define-obsolete-function-alias
- 'eglot-lsp-abiding-column 'eglot-utf-16-linepos "29.1")
+ 'eglot-lsp-abiding-column 'eglot-utf-16-linepos "1.12")
(define-obsolete-function-alias
- 'eglot-current-column 'eglot-utf-32-linepos "29.1")
+ 'eglot-current-column 'eglot-utf-32-linepos "1.12")
(define-obsolete-variable-alias
- 'eglot-current-column-function 'eglot-current-linepos-function "29.1")
+ 'eglot-current-column-function 'eglot-current-linepos-function "1.12")
(defvar eglot-current-linepos-function #'eglot-utf-16-linepos
"Function calculating position relative to line beginning.
@@ -1503,11 +1553,11 @@ LBP defaults to `eglot--bol'."
(funcall eglot-current-linepos-function)))))
(define-obsolete-function-alias
- 'eglot-move-to-current-column 'eglot-move-to-utf-32-linepos "29.1")
+ 'eglot-move-to-current-column 'eglot-move-to-utf-32-linepos "1.12")
(define-obsolete-function-alias
- 'eglot-move-to-lsp-abiding-column 'eglot-move-to-utf-16-linepos "29.1")
+ 'eglot-move-to-lsp-abiding-column 'eglot-move-to-utf-16-linepos "1.12")
(define-obsolete-variable-alias
-'eglot-move-to-column-function 'eglot-move-to-linepos-function "29.1")
+'eglot-move-to-column-function 'eglot-move-to-linepos-function "1.12")
(defvar eglot-move-to-linepos-function #'eglot-move-to-utf-16-linepos
"Function to move to a position within a line reported by the LSP server.
@@ -1603,6 +1653,7 @@ If optional MARKER, return a marker instead"
(directory-file-name (file-local-name truepath))
eglot--uri-path-allowed-chars)))))
+(declare-function w32-long-file-name "w32proc.c" (fn))
(defun eglot--uri-to-path (uri)
"Convert URI to file path, helped by `eglot--current-server'."
(when (keywordp uri) (setq uri (substring (symbol-name uri) 1)))
@@ -1618,18 +1669,19 @@ If optional MARKER, return a marker instead"
(normalized (if (and (not remote-prefix)
(eq system-type 'windows-nt)
(cl-plusp (length retval)))
- (substring retval 1)
+ (w32-long-file-name (substring retval 1))
retval)))
(concat remote-prefix normalized))
-
uri)))
(defun eglot--snippet-expansion-fn ()
"Compute a function to expand snippets.
Doubles as an indicator of snippet support."
- (and (boundp 'yas-minor-mode)
- (symbol-value 'yas-minor-mode)
- 'yas-expand-snippet))
+ (and (fboundp 'yas-minor-mode)
+ (lambda (&rest args)
+ (with-no-warnings
+ (unless (bound-and-true-p yas-minor-mode) (yas-minor-mode 1))
+ (apply #'yas-expand-snippet args)))))
(defun eglot--format-markup (markup)
"Format MARKUP according to LSP's spec."
@@ -1644,10 +1696,17 @@ Doubles as an indicator of snippet support."
(setq-local markdown-fontify-code-blocks-natively t)
(insert string)
(let ((inhibit-message t)
- (message-log-max nil))
- (ignore-errors (delay-mode-hooks (funcall mode))))
- (font-lock-ensure)
- (string-trim (buffer-string)))))
+ (message-log-max nil)
+ match)
+ (ignore-errors (delay-mode-hooks (funcall mode)))
+ (font-lock-ensure)
+ (goto-char (point-min))
+ (let ((inhibit-read-only t))
+ (when (fboundp 'text-property-search-forward) ;; FIXME: use compat
+ (while (setq match (text-property-search-forward 'invisible))
+ (delete-region (prop-match-beginning match)
+ (prop-match-end match)))))
+ (string-trim (buffer-string))))))
(define-obsolete-variable-alias 'eglot-ignored-server-capabilites
'eglot-ignored-server-capabilities "1.8")
@@ -1665,7 +1724,7 @@ under cursor."
(const :tag "Go to definition" :definitionProvider)
(const :tag "Go to type definition" :typeDefinitionProvider)
(const :tag "Go to implementation" :implementationProvider)
- (const :tag "Go to declaration" :implementationProvider)
+ (const :tag "Go to declaration" :declarationProvider)
(const :tag "Find references" :referencesProvider)
(const :tag "Highlight symbols automatically"
:documentHighlightProvider)
(const :tag "List symbols in buffer" :documentSymbolProvider)
@@ -1745,9 +1804,9 @@ and just return it. PROMPT shouldn't end with a question
mark."
(defun eglot--plist-keys (plist) "Get keys of a plist."
(cl-loop for (k _v) on plist by #'cddr collect k))
-(defun eglot--ensure-list (x) (if (listp x) x (list x)))
-(when (fboundp 'ensure-list) ; Emacs 28 or later
- (define-obsolete-function-alias 'eglot--ensure-list #'ensure-list "29.1"))
+(defalias 'eglot--ensure-list
+ (if (fboundp 'ensure-list) #'ensure-list
+ (lambda (x) (if (listp x) x (list x)))))
;;; Minor modes
@@ -1828,6 +1887,8 @@ Use `eglot-managed-p' to determine if current buffer is
managed.")
(unless (eglot--stay-out-of-p 'xref)
(add-hook 'xref-backend-functions 'eglot-xref-backend nil t))
(add-hook 'completion-at-point-functions #'eglot-completion-at-point nil t)
+ (add-hook 'completion-in-region-mode-hook #'eglot--capf-session-flush nil
t)
+ (add-hook 'company-after-completion-hook #'eglot--capf-session-flush nil t)
(add-hook 'change-major-mode-hook #'eglot--managed-mode-off nil t)
(add-hook 'post-self-insert-hook 'eglot--post-self-insert-hook nil t)
(add-hook 'pre-command-hook 'eglot--pre-command-hook nil t)
@@ -1859,6 +1920,8 @@ Use `eglot-managed-p' to determine if current buffer is
managed.")
(remove-hook 'after-save-hook 'eglot--signal-textDocument/didSave t)
(remove-hook 'xref-backend-functions 'eglot-xref-backend t)
(remove-hook 'completion-at-point-functions #'eglot-completion-at-point t)
+ (remove-hook 'completion-in-region-mode-hook #'eglot--capf-session-flush t)
+ (remove-hook 'company-after-completion-hook #'eglot--capf-session-flush t)
(remove-hook 'change-major-mode-hook #'eglot--managed-mode-off t)
(remove-hook 'post-self-insert-hook 'eglot--post-self-insert-hook t)
(remove-hook 'pre-command-hook 'eglot--pre-command-hook t)
@@ -1882,16 +1945,16 @@ Use `eglot-managed-p' to determine if current buffer is
managed.")
(defun eglot--managed-mode-off ()
"Turn off `eglot--managed-mode' unconditionally."
(remove-overlays nil nil 'eglot--overlay t)
+ (eglot-inlay-hints-mode -1)
(eglot--managed-mode -1))
(defun eglot-current-server ()
"Return logical Eglot server for current buffer, nil if none."
(setq eglot--cached-server
(or eglot--cached-server
- (cl-find major-mode
- (gethash (eglot--current-project)
eglot--servers-by-project)
- :key #'eglot--major-modes
- :test #'memq)
+ (cl-find-if #'eglot--languageId
+ (gethash (eglot--current-project)
+ eglot--servers-by-project))
(and eglot-extend-to-xref
buffer-file-name
(gethash (expand-file-name buffer-file-name)
@@ -1940,8 +2003,8 @@ If it is activated, also signal textDocument/didOpen."
(put 'eglot--mode-line-format 'risky-local-variable t)
-(defun eglot--mouse-call (what)
- "Make an interactive lambda for calling WHAT from mode-line."
+(defun eglot--mouse-call (what &optional update-mode-line)
+ "Make an interactive lambda for calling WHAT with the mouse."
(lambda (event)
(interactive "e")
(let ((start (event-start event))) (with-selected-window (posn-window
start)
@@ -1949,12 +2012,26 @@ If it is activated, also signal textDocument/didOpen."
(goto-char (or (posn-point start)
(point)))
(call-interactively what)
- (force-mode-line-update t))))))
+ (when update-mode-line
+ (force-mode-line-update t)))))))
-(defun eglot-manual () "Open documentation."
- (declare (obsolete info "29.1"))
+(defun eglot-manual () "Read Eglot's manual."
+ (declare (obsolete info "1.10"))
(interactive) (info "(eglot)"))
+;;;###autoload
+(defun eglot-upgrade-eglot (&rest _) "Update Eglot to latest version."
+ (interactive)
+ (with-no-warnings
+ (require 'package)
+ (unless package-archive-contents (package-refresh-contents))
+ (when-let ((existing (cadr (assoc 'eglot package-alist))))
+ (package-delete existing t))
+ (package-install (cadr (assoc 'eglot package-archive-contents)))))
+
+;;;###autoload
+(define-obsolete-function-alias 'eglot-update 'eglot-upgrade-eglot "29.1")
+
(easy-menu-define eglot-menu nil "Eglot"
`("Eglot"
;; Commands for getting information and customization.
@@ -2023,7 +2100,7 @@ Uses THING, FACE, DEFS and PREPEND."
(cl-loop with map = (make-sparse-keymap)
for (elem . rest) on defs
for (key def help) = elem
- do (define-key map `[mode-line ,key] (eglot--mouse-call def))
+ do (define-key map `[mode-line ,key] (eglot--mouse-call def t))
concat (format "%s: %s" key help) into blurb
when rest concat "\n" into blurb
finally (return `(:propertize ,thing
@@ -2032,7 +2109,7 @@ Uses THING, FACE, DEFS and PREPEND."
mouse-face mode-line-highlight))))
(defun eglot--mode-line-format ()
- "Compose the Eglot's mode-line."
+ "Compose Eglot's mode-line."
(let* ((server (eglot-current-server))
(nick (and server (eglot-project-nickname server)))
(pending (and server (hash-table-count
@@ -2069,7 +2146,15 @@ Uses THING, FACE, DEFS and PREPEND."
'((mouse-3 eglot-forget-pending-continuations
"Forget pending continuations"))
"Number of outgoing, \
-still unanswered LSP requests to the server\n"))))))))
+still unanswered LSP requests to the server\n")))
+ ,@(cl-loop for pr hash-values of (eglot--progress-reporters server)
+ when (eq (car pr) 'eglot--mode-line-reporter)
+ append `("/" ,(eglot--mode-line-props
+ (format "%s%%%%" (or (nth 4 pr) "?"))
+ 'eglot-mode-line
+ nil
+ (format "(%s) %s %s" (nth 1 pr)
+ (nth 2 pr) (nth 3 pr))))))))))
(add-to-list 'mode-line-misc-info
`(eglot--managed-mode (" [" eglot--mode-line-format "] ")))
@@ -2084,15 +2169,18 @@ still unanswered LSP requests to the server\n"))))))))
(defalias 'eglot--make-diag 'flymake-make-diagnostic)
(defalias 'eglot--diag-data 'flymake-diagnostic-data)
+(defvar eglot-diagnostics-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map [mouse-2] 'eglot-code-actions-at-mouse)
+ map)
+ "Keymap active in Eglot-backed Flymake diagnostic overlays.")
+
(cl-loop for i from 1
for type in '(eglot-note eglot-warning eglot-error)
do (put type 'flymake-overlay-control
`((mouse-face . highlight)
(priority . ,(+ 50 i))
- (keymap . ,(let ((map (make-sparse-keymap)))
- (define-key map [mouse-1]
- (eglot--mouse-call
'eglot-code-actions))
- map)))))
+ (keymap . ,eglot-diagnostics-map))))
;;; Protocol implementation (Requests, notifications, etc)
@@ -2110,13 +2198,6 @@ still unanswered LSP requests to the server\n"))))))))
(when (memq 'disallow-unknown-methods eglot-strict-mode)
(jsonrpc-error "Unknown request method `%s'" method)))
-(cl-defmethod eglot-execute-command
- (server command arguments)
- "Execute COMMAND on SERVER with `:workspace/executeCommand'.
-COMMAND is a symbol naming the command."
- (jsonrpc-request server :workspace/executeCommand
- `(:command ,(format "%s" command) :arguments ,arguments)))
-
(cl-defmethod eglot-handle-notification
(_server (_method (eql window/showMessage)) &key type message)
"Handle notification window/showMessage."
@@ -2125,13 +2206,14 @@ COMMAND is a symbol naming the command."
type message))
(cl-defmethod eglot-handle-request
- (_server (_method (eql window/showMessageRequest)) &key type message actions)
+ (_server (_method (eql window/showMessageRequest))
+ &key type message actions &allow-other-keys)
"Handle server request window/showMessageRequest."
(let* ((actions (append actions nil)) ;; gh#627
(label (completing-read
(concat
(format (propertize "[eglot] Server reports (type=%s): %s"
- 'face (if (<= type 1) 'error))
+ 'face (if (or (not type) (<= type 1))
'error))
type message)
"\nChoose an option: ")
(or (mapcar (lambda (obj) (plist-get obj :title)) actions)
@@ -2147,26 +2229,39 @@ COMMAND is a symbol naming the command."
(_server (_method (eql telemetry/event)) &rest _any)
"Handle notification telemetry/event.") ;; noop, use events buffer
+(defalias 'eglot--reporter-update
+ (if (> emacs-major-version 26) #'progress-reporter-update
+ (lambda (a b &optional _c) (progress-reporter-update a b))))
+
(cl-defmethod eglot-handle-notification
(server (_method (eql $/progress)) &key token value)
"Handle $/progress notification identified by TOKEN from SERVER."
(when eglot-report-progress
- (cl-flet ((fmt (&rest args) (mapconcat #'identity args " ")))
+ (cl-flet ((fmt (&rest args) (mapconcat #'identity args " "))
+ (mkpr (title)
+ (if (eq eglot-report-progress 'messages)
+ (make-progress-reporter
+ (format "[eglot] %s %s: %s"
+ (eglot-project-nickname server) token title))
+ (list 'eglot--mode-line-reporter token title)))
+ (upd (pcnt msg &optional
+ (pr (gethash token (eglot--progress-reporters
server))))
+ (cond
+ ((eq (car pr) 'eglot--mode-line-reporter)
+ (setcdr (cddr pr) (list msg pcnt))
+ (force-mode-line-update t))
+ (pr (eglot--reporter-update pr pcnt msg)))))
(eglot--dbind ((WorkDoneProgress) kind title percentage message) value
(pcase kind
("begin"
- (let* ((prefix (format (concat "[eglot] %s %s:" (when percentage "
"))
- (eglot-project-nickname server) token))
- (pr (puthash token
- (if percentage
- (make-progress-reporter prefix 0 100 percentage 1 0)
- (make-progress-reporter prefix nil nil nil 1 0))
- (eglot--progress-reporters server))))
- (progress-reporter-update pr percentage (fmt title message))))
- ("report"
- (when-let ((pr (gethash token (eglot--progress-reporters server))))
- (progress-reporter-update pr percentage (fmt title message))))
- ("end" (remhash token (eglot--progress-reporters server))))))))
+ (upd percentage (fmt title message)
+ (puthash token (mkpr title)
+ (eglot--progress-reporters server))))
+ ("report" (upd percentage message))
+ ("end" (upd (or percentage 100) message)
+ (run-at-time 2 nil
+ (lambda ()
+ (remhash token (eglot--progress-reporters
server))))))))))
(cl-defmethod eglot-handle-notification
(_server (_method (eql textDocument/publishDiagnostics)) &key uri diagnostics
@@ -2183,7 +2278,9 @@ COMMAND is a symbol naming the command."
(buffer (find-buffer-visiting path)))
(with-current-buffer buffer
(cl-loop
- initially (assoc-delete-all path flymake-list-only-diagnostics
#'string=)
+ initially
+ (setq flymake-list-only-diagnostics
+ (assoc-delete-all path flymake-list-only-diagnostics))
for diag-spec across diagnostics
collect (eglot--dbind ((Diagnostic) range code message severity
source tags)
diag-spec
@@ -2237,7 +2334,7 @@ COMMAND is a symbol naming the command."
into diags
finally
(setq flymake-list-only-diagnostics
- (assoc-delete-all path flymake-list-only-diagnostics #'string=))
+ (assoc-delete-all path flymake-list-only-diagnostics))
(push (cons path diags) flymake-list-only-diagnostics)))))
(cl-defun eglot--register-unregister (server things how)
@@ -2273,6 +2370,36 @@ THINGS are either registrations or unregisterations
(sic)."
"Handle server request workspace/workspaceFolders."
(eglot-workspace-folders server))
+(cl-defmethod eglot-handle-request
+ (_server (_method (eql window/showDocument)) &key
+ uri external takeFocus selection)
+ "Handle request window/showDocument."
+ (let ((success t)
+ (filename))
+ (cond
+ ((eq external t) (browse-url uri))
+ ((file-readable-p (setq filename (eglot--uri-to-path uri)))
+ ;; Use run-with-timer to avoid nested client requests like the
+ ;; "synchronous imenu" floated in bug#62116 presumably caused by
+ ;; which-func-mode.
+ (run-with-timer
+ 0 nil
+ (lambda ()
+ (with-current-buffer (find-file-noselect filename)
+ (cond (takeFocus
+ (pop-to-buffer (current-buffer))
+ (select-frame-set-input-focus (selected-frame)))
+ ((display-buffer (current-buffer))))
+ (when selection
+ (pcase-let ((`(,beg . ,end) (eglot--range-region selection)))
+ ;; FIXME: it is very naughty to use someone else's `--'
+ ;; function, but `xref--goto-char' happens to have
+ ;; exactly the semantics we want vis-a-vis widening.
+ (xref--goto-char beg)
+ (pulse-momentary-highlight-region beg end 'highlight)))))))
+ (t (setq success :json-false)))
+ `(:success ,success)))
+
(defun eglot--TextDocumentIdentifier ()
"Compute TextDocumentIdentifier object for current buffer."
`(:uri ,(eglot--path-to-uri (or buffer-file-name
@@ -2287,12 +2414,20 @@ THINGS are either registrations or unregisterations
(sic)."
(append (eglot--TextDocumentIdentifier)
`(:version ,eglot--versioned-identifier)))
+(cl-defun eglot--languageId (&optional (server
(eglot--current-server-or-lose)))
+ "Compute LSP \\='languageId\\=' string for current buffer.
+Doubles as an predicate telling if SERVER can manage current
+buffer."
+ (cl-loop for (mode . languageid) in
+ (eglot--languages server)
+ when (provided-mode-derived-p major-mode mode)
+ return languageid))
+
(defun eglot--TextDocumentItem ()
"Compute TextDocumentItem object for current buffer."
(append
(eglot--VersionedTextDocumentIdentifier)
- (list :languageId
- (eglot--language-id (eglot--current-server-or-lose))
+ (list :languageId (eglot--languageId)
:text
(eglot--widening
(buffer-substring-no-properties (point-min) (point-max))))))
@@ -2349,7 +2484,6 @@ THINGS are either registrations or unregisterations
(sic)."
(defun eglot--before-change (beg end)
"Hook onto `before-change-functions' with BEG and END."
- (remove-overlays beg end 'eglot--overlay t)
(when (listp eglot--recent-changes)
;; Records BEG and END, crucially convert them into LSP
;; (line/char) positions before that information is lost (because
@@ -2369,25 +2503,23 @@ THINGS are either registrations or unregisterations
(sic)."
"Hook onto `after-change-functions'.
Records BEG, END and PRE-CHANGE-LENGTH locally."
(cl-incf eglot--versioned-identifier)
- (pcase (and (listp eglot--recent-changes)
- (car eglot--recent-changes))
+ (pcase (car-safe eglot--recent-changes)
(`(,lsp-beg ,lsp-end
(,b-beg . ,b-beg-marker)
(,b-end . ,b-end-marker))
- ;; github#259 and github#367: With `capitalize-word' or somesuch,
- ;; `before-change-functions' always records the whole word's
- ;; `b-beg' and `b-end'. Similarly, when coalescing two lines
- ;; into one, `fill-paragraph' they mark the end of the first line
- ;; up to the end of the second line. In both situations, args
- ;; received here contradict that information: `beg' and `end'
- ;; will differ by 1 and will likely only encompass the letter
- ;; that was capitalized or, in the sentence-joining situation,
- ;; the replacement of the newline with a space. That's we keep
- ;; markers _and_ positions so we're able to detect and correct
- ;; this. We ignore `beg', `len' and `pre-change-len' and send
- ;; "fuller" information about the region from the markers. I've
- ;; also experimented with doing this unconditionally but it seems
- ;; to break when newlines are added.
+ ;; github#259 and github#367: with `capitalize-word' & friends,
+ ;; `before-change-functions' records the whole word's `b-beg' and
+ ;; `b-end'. Similarly, when `fill-paragraph' coalesces two
+ ;; lines, `b-beg' and `b-end' mark end of first line and end of
+ ;; second line, resp. In both situations, `beg' and `end'
+ ;; received here seemingly contradict that: they will differ by 1
+ ;; and encompass the capitalized character or, in the coalescing
+ ;; case, the replacement of the newline with a space. We keep
+ ;; both markers and positions to detect and correct this. In
+ ;; this specific case, we ignore `beg', `len' and
+ ;; `pre-change-len' and send richer information about the region
+ ;; from the markers. I've also experimented with doing this
+ ;; unconditionally but it seems to break when newlines are added.
(if (and (= b-end b-end-marker) (= b-beg b-beg-marker)
(or (/= beg b-beg) (/= end b-end)))
(setcar eglot--recent-changes
@@ -2408,16 +2540,6 @@ Records BEG, END and PRE-CHANGE-LENGTH locally."
(run-hooks 'eglot--document-changed-hook)
(setq eglot--change-idle-timer nil))))))))
-;; HACK! Launching a deferred sync request with outstanding changes is a
-;; bad idea, since that might lead to the request never having a
-;; chance to run, because `jsonrpc-connection-ready-p'.
-(advice-add #'jsonrpc-request :before
- (cl-function (lambda (_proc _method _params &key
- deferred &allow-other-keys)
- (when (and eglot--managed-mode deferred)
- (eglot--signal-textDocument/didChange))))
- '((name . eglot--signal-textDocument/didChange)))
-
(defvar-local eglot-workspace-configuration ()
"Configure LSP servers specifically for a given project.
@@ -2475,7 +2597,7 @@ use the root of SERVER's `eglot--project'."
;; Set the major mode to be the first of the managed
;; modes. This is the one the user started eglot in.
(setq major-mode (car (eglot--major-modes server)))
- (hack-dir-local-variables-non-file-buffer)()
+ (hack-dir-local-variables-non-file-buffer)
(if (functionp eglot-workspace-configuration)
(funcall eglot-workspace-configuration server)
eglot-workspace-configuration))))
@@ -2570,8 +2692,8 @@ When called interactively, use the currently active
server"
(when (eglot--server-capable :textDocumentSync :willSaveWaitUntil)
(ignore-errors
(eglot--apply-text-edits
- (jsonrpc-request server :textDocument/willSaveWaitUntil params
- :timeout 0.5))))))
+ (eglot--request server :textDocument/willSaveWaitUntil params
+ :timeout 0.5))))))
(defun eglot--signal-textDocument/didSave ()
"Maybe send textDocument/didSave to server."
@@ -2683,8 +2805,8 @@ If BUFFER, switch to it before."
(propertize (alist-get kind eglot--symbol-kind-names
"Unknown")
'face 'shadow))
'eglot--lsp-workspaceSymbol wss)))
- (jsonrpc-request (eglot--current-server-or-lose) :workspace/symbol
- `(:query ,pat)))))
+ (eglot--request (eglot--current-server-or-lose) :workspace/symbol
+ `(:query ,pat)))))
(cl-defmethod xref-backend-identifier-completion-table ((_backend (eql eglot)))
"Yet another tricky connection between LSP and Elisp completion semantics."
@@ -2740,7 +2862,7 @@ If BUFFER, switch to it before."
(cadr (split-string (symbol-name method)
"/"))))))
(let ((response
- (jsonrpc-request
+ (eglot--request
(eglot--current-server-or-lose)
method (append (eglot--TextDocumentPositionParams) extra-params))))
(eglot--collecting-xrefs (collect)
@@ -2803,9 +2925,9 @@ If BUFFER, switch to it before."
(eglot--lambda ((SymbolInformation) name location)
(eglot--dbind ((Location) uri range) location
(collect (eglot--xref-make-match name uri range))))
- (jsonrpc-request (eglot--current-server-or-lose)
- :workspace/symbol
- `(:query ,pattern))))))
+ (eglot--request (eglot--current-server-or-lose)
+ :workspace/symbol
+ `(:query ,pattern))))))
(defun eglot-format-buffer ()
"Format contents of current buffer."
@@ -2837,7 +2959,7 @@ for which LSP on-type-formatting should be requested."
'(:textDocument/formatting :documentFormattingProvider
nil)))))
(eglot--server-capable-or-lose cap)
(eglot--apply-text-edits
- (jsonrpc-request
+ (eglot--request
(eglot--current-server-or-lose)
method
(cl-list*
@@ -2846,8 +2968,14 @@ for which LSP on-type-formatting should be requested."
:insertSpaces (if indent-tabs-mode :json-false t)
:insertFinalNewline (if require-final-newline t
:json-false)
:trimFinalNewlines (if delete-trailing-lines t
:json-false))
- args)
- :deferred method))))
+ args)))))
+
+(defvar eglot-cache-session-completions t
+ "If non-nil Eglot caches data during completion sessions.")
+
+(defvar eglot--capf-session :none "A cache used by
`eglot-completion-at-point'.")
+
+(defun eglot--capf-session-flush (&optional _) (setq eglot--capf-session
:none))
(defun eglot-completion-at-point ()
"Eglot's `completion-at-point' function."
@@ -2864,42 +2992,50 @@ for which LSP on-type-formatting should be requested."
:sortText)))))
(metadata `(metadata (category . eglot)
(display-sort-function . ,sort-completions)))
- resp items (cached-proxies :none)
+ (local-cache :none)
+ (bounds (bounds-of-thing-at-point 'symbol))
+ (orig-pos (point))
+ (resolved (make-hash-table))
(proxies
(lambda ()
- (if (listp cached-proxies) cached-proxies
- (setq resp
- (jsonrpc-request server
- :textDocument/completion
- (eglot--CompletionParams)
- :deferred :textDocument/completion
- :cancel-on-input t))
- (setq items (append
- (if (vectorp resp) resp (plist-get resp :items))
- nil))
- (setq cached-proxies
- (mapcar
- (jsonrpc-lambda
- (&rest item &key label insertText insertTextFormat
- textEdit &allow-other-keys)
- (let ((proxy
- ;; Snippet or textEdit, it's safe to
- ;; display/insert the label since
- ;; it'll be adjusted. If no usable
- ;; insertText at all, label is best,
- ;; too.
- (cond ((or (and (eql insertTextFormat 2)
- (eglot--snippet-expansion-fn))
- textEdit
- (null insertText)
- (string-empty-p insertText))
- (string-trim-left label))
- (t insertText))))
- (unless (zerop (length proxy))
- (put-text-property 0 1 'eglot--lsp-item item
proxy))
- proxy))
- items)))))
- (resolved (make-hash-table))
+ (if (listp local-cache) local-cache
+ (let* ((resp (eglot--request server
+ :textDocument/completion
+ (eglot--CompletionParams)
+ :cancel-on-input t))
+ (items (append
+ (if (vectorp resp) resp (plist-get resp :items))
+ nil))
+ (cachep (and (listp resp) items
+ eglot-cache-session-completions
+ (eq (plist-get resp :isIncomplete)
:json-false)))
+ (bounds (or bounds
+ (cons (point) (point))))
+ (proxies
+ (mapcar
+ (jsonrpc-lambda
+ (&rest item &key label insertText insertTextFormat
+ textEdit &allow-other-keys)
+ (let ((proxy
+ ;; Snippet or textEdit, it's safe to
+ ;; display/insert the label since
+ ;; it'll be adjusted. If no usable
+ ;; insertText at all, label is best,
+ ;; too.
+ (cond ((or (eql insertTextFormat 2)
+ textEdit
+ (null insertText)
+ (string-empty-p insertText))
+ (string-trim-left label))
+ (t insertText))))
+ (unless (zerop (length proxy))
+ (put-text-property 0 1 'eglot--lsp-item item
proxy))
+ proxy))
+ items)))
+ ;; (trace-values "Requested" (length proxies) cachep bounds)
+ (setq eglot--capf-session
+ (if cachep (list bounds proxies resolved orig-pos)
:none))
+ (setq local-cache proxies)))))
(resolve-maybe
;; Maybe completion/resolve JSON object `lsp-comp' into
;; another JSON object, if at all possible. Otherwise,
@@ -2910,13 +3046,21 @@ for which LSP on-type-formatting should be requested."
(if (and (eglot--server-capable :completionProvider
:resolveProvider)
(plist-get lsp-comp :data))
- (jsonrpc-request server :completionItem/resolve
- lsp-comp :cancel-on-input t)
- lsp-comp)))))
- (bounds (bounds-of-thing-at-point 'symbol)))
+ (eglot--request server :completionItem/resolve
+ lsp-comp :cancel-on-input t)
+ lsp-comp))))))
+ (unless bounds (setq bounds (cons (point) (point))))
+ (when (and (consp eglot--capf-session)
+ (= (car bounds) (car (nth 0 eglot--capf-session)))
+ (>= (cdr bounds) (cdr (nth 0 eglot--capf-session))))
+ (setq local-cache (nth 1 eglot--capf-session)
+ resolved (nth 2 eglot--capf-session)
+ orig-pos (nth 3 eglot--capf-session))
+ ;; (trace-values "Recalling cache" (length local-cache) bounds
orig-pos)
+ )
(list
- (or (car bounds) (point))
- (or (cdr bounds) (point))
+ (car bounds)
+ (cdr bounds)
(lambda (probe pred action)
(cond
((eq action 'metadata) metadata) ; metadata
@@ -2987,7 +3131,7 @@ for which LSP on-type-formatting should be requested."
:company-require-match 'never
:company-prefix-length
(save-excursion
- (when (car bounds) (goto-char (car bounds)))
+ (goto-char (car bounds))
(when (listp completion-capability)
(looking-back
(regexp-opt
@@ -2995,6 +3139,7 @@ for which LSP on-type-formatting should be requested."
(eglot--bol))))
:exit-function
(lambda (proxy status)
+ (eglot--capf-session-flush)
(when (memq status '(finished exact))
;; To assist in using this whole `completion-at-point'
;; function inside `completion-in-region', ensure the exit
@@ -3018,17 +3163,12 @@ for which LSP on-type-formatting should be requested."
(let ((snippet-fn (and (eql insertTextFormat 2)
(eglot--snippet-expansion-fn))))
(cond (textEdit
- ;; Undo (yes, undo) the newly inserted completion.
- ;; If before completion the buffer was "foo.b" and
- ;; now is "foo.bar", `proxy' will be "bar". We
- ;; want to delete only "ar" (`proxy' minus the
- ;; symbol whose bounds we've calculated before)
- ;; (github#160).
- (delete-region (+ (- (point) (length proxy))
- (if bounds
- (- (cdr bounds) (car bounds))
- 0))
- (point))
+ ;; Revert buffer back to state when the edit
+ ;; was obtained from server. If a `proxy'
+ ;; "bar" was obtained from a buffer with
+ ;; "foo.b", the LSP edit applies to that'
+ ;; state, _not_ the current "foo.bar".
+ (delete-region orig-pos (point))
(eglot--dbind ((TextEdit) range newText) textEdit
(pcase-let ((`(,beg . ,end)
(eglot--range-region range)))
@@ -3044,69 +3184,62 @@ for which LSP on-type-formatting should be requested."
(funcall snippet-fn (or insertText label))))
(when (cl-plusp (length additionalTextEdits))
(eglot--apply-text-edits additionalTextEdits)))
- (eglot--signal-textDocument/didChange)
- (eldoc)))))))))
+ (eglot--signal-textDocument/didChange)))))))))
(defun eglot--hover-info (contents &optional _range)
(mapconcat #'eglot--format-markup
(if (vectorp contents) contents (list contents)) "\n"))
-(defun eglot--sig-info (sigs active-sig sig-help-active-param)
- (cl-loop
- for (sig . moresigs) on (append sigs nil) for i from 0
- concat
- (eglot--dbind ((SignatureInformation) label documentation parameters
activeParameter) sig
- (with-temp-buffer
- (save-excursion (insert label))
- (let ((active-param (or activeParameter sig-help-active-param))
- params-start params-end)
- ;; Ad-hoc attempt to parse label as <name>(<params>)
- (when (looking-at "\\([^(]*\\)(\\([^)]+\\))")
- (setq params-start (match-beginning 2) params-end (match-end 2))
- (add-face-text-property (match-beginning 1) (match-end 1)
- 'font-lock-function-name-face))
- (when (eql i active-sig)
- ;; Decide whether to add one-line-summary to signature line
- (when (and (stringp documentation)
- (string-match "[[:space:]]*\\([^.\r\n]+[.]?\\)"
- documentation))
- (setq documentation (match-string 1 documentation))
- (unless (string-prefix-p (string-trim documentation) label)
- (goto-char (point-max))
- (insert ": " (eglot--format-markup documentation))))
- ;; Decide what to do with the active parameter...
- (when (and (eql i active-sig) active-param
- (< -1 active-param (length parameters)))
- (eglot--dbind ((ParameterInformation) label documentation)
- (aref parameters active-param)
- ;; ...perhaps highlight it in the formals list
- (when params-start
- (goto-char params-start)
- (pcase-let
- ((`(,beg ,end)
- (if (stringp label)
- (let ((case-fold-search nil))
- (and (re-search-forward
- (concat "\\<" (regexp-quote label) "\\>")
- params-end t)
- (list (match-beginning 0) (match-end 0))))
- (mapcar #'1+ (append label nil)))))
- (if (and beg end)
- (add-face-text-property
- beg end
- 'eldoc-highlight-function-argument))))
- ;; ...and/or maybe add its doc on a line by its own.
- (when documentation
- (goto-char (point-max))
- (insert "\n"
- (propertize
- (if (stringp label)
- label
- (apply #'buffer-substring (mapcar #'1+ label)))
- 'face 'eldoc-highlight-function-argument)
- ": " (eglot--format-markup documentation))))))
- (buffer-string))))
- when moresigs concat "\n"))
+(defun eglot--sig-info (sig &optional sig-active briefp)
+ (eglot--dbind ((SignatureInformation)
+ ((:label siglabel))
+ ((:documentation sigdoc)) parameters activeParameter)
+ sig
+ (with-temp-buffer
+ (save-excursion (insert siglabel))
+ ;; Ad-hoc attempt to parse label as <name>(<params>)
+ (when (looking-at "\\([^(]*\\)(\\([^)]+\\))")
+ (add-face-text-property (match-beginning 1) (match-end 1)
+ 'font-lock-function-name-face))
+ ;; Add documentation, indented so we can distinguish multiple
signatures
+ (when-let (doc (and (not briefp) sigdoc (eglot--format-markup sigdoc)))
+ (goto-char (point-max))
+ (insert "\n" (replace-regexp-in-string "^" " " doc)))
+ ;; Now to the parameters
+ (cl-loop
+ with active-param = (or sig-active activeParameter)
+ for i from 0 for parameter across parameters do
+ (eglot--dbind ((ParameterInformation)
+ ((:label parlabel))
+ ((:documentation pardoc)))
+ parameter
+ ;; ...perhaps highlight it in the formals list
+ (when (and (eq i active-param))
+ (save-excursion
+ (goto-char (point-min))
+ (pcase-let
+ ((`(,beg ,end)
+ (if (stringp parlabel)
+ (let ((case-fold-search nil))
+ (and (search-forward parlabel (line-end-position) t)
+ (list (match-beginning 0) (match-end 0))))
+ (mapcar #'1+ (append parlabel nil)))))
+ (if (and beg end)
+ (add-face-text-property
+ beg end
+ 'eldoc-highlight-function-argument)))))
+ ;; ...and/or maybe add its doc on a line by its own.
+ (let (fpardoc)
+ (when (and pardoc (not briefp)
+ (not (string-empty-p
+ (setq fpardoc (eglot--format-markup pardoc)))))
+ (insert "\n "
+ (propertize
+ (if (stringp parlabel) parlabel
+ (apply #'substring siglabel (mapcar #'1+ parlabel)))
+ 'face (and (eq i active-param)
'eldoc-highlight-function-argument))
+ ": " fpardoc)))))
+ (buffer-string))))
(defun eglot-signature-eldoc-function (cb)
"A member of `eldoc-documentation-functions', for signatures."
@@ -3117,13 +3250,18 @@ for which LSP on-type-formatting should be requested."
:textDocument/signatureHelp (eglot--TextDocumentPositionParams)
:success-fn
(eglot--lambda ((SignatureHelp)
- signatures activeSignature activeParameter)
+ signatures activeSignature (activeParameter 0))
(eglot--when-buffer-window buf
- (funcall cb
- (unless (seq-empty-p signatures)
- (eglot--sig-info signatures
- activeSignature
- activeParameter)))))
+ (let ((active-sig (and (cl-plusp (length signatures))
+ (aref signatures (or activeSignature 0)))))
+ (if (not active-sig) (funcall cb nil)
+ (funcall
+ cb (mapconcat (lambda (s)
+ (eglot--sig-info s (and (eq s active-sig)
+ activeParameter)
+ nil))
+ signatures "\n")
+ :echo (eglot--sig-info active-sig activeParameter t))))))
:deferred :textDocument/signatureHelp))
t))
@@ -3138,7 +3276,8 @@ for which LSP on-type-formatting should be requested."
(eglot--when-buffer-window buf
(let ((info (unless (seq-empty-p contents)
(eglot--hover-info contents range))))
- (funcall cb info :buffer t))))
+ (funcall cb info
+ :echo (and info (string-match "\n" info))))))
:deferred :textDocument/hover))
(eglot--highlight-piggyback cb)
t))
@@ -3172,52 +3311,60 @@ for which LSP on-type-formatting should be requested."
:deferred :textDocument/documentHighlight)
nil)))
+(defun eglot--imenu-SymbolInformation (res)
+ "Compute `imenu--index-alist' for RES vector of SymbolInformation."
+ (mapcar
+ (pcase-lambda (`(,kind . ,objs))
+ (cons
+ (alist-get kind eglot--symbol-kind-names "Unknown")
+ (mapcan
+ (pcase-lambda (`(,container . ,objs))
+ (let ((elems (mapcar
+ (eglot--lambda ((SymbolInformation) kind name location)
+ (let ((reg (eglot--range-region
+ (plist-get location :range)))
+ (kind (alist-get kind
eglot--symbol-kind-names)))
+ (cons (propertize name
+ 'breadcrumb-region reg
+ 'breadcrumb-kind kind)
+ (car reg))))
+ objs)))
+ (if container (list (cons container elems)) elems)))
+ (seq-group-by
+ (eglot--lambda ((SymbolInformation) containerName) containerName)
objs))))
+ (seq-group-by (eglot--lambda ((SymbolInformation) kind) kind) res)))
+
+(defun eglot--imenu-DocumentSymbol (res)
+ "Compute `imenu--index-alist' for RES vector of DocumentSymbol."
+ (cl-labels ((dfs (&key name children range kind &allow-other-keys)
+ (let* ((reg (eglot--range-region range))
+ (kind (alist-get kind eglot--symbol-kind-names))
+ (name (propertize name
+ 'breadcrumb-region reg
+ 'breadcrumb-kind kind)))
+ (if (seq-empty-p children)
+ (cons name (car reg))
+ (cons name
+ (mapcar (lambda (c) (apply #'dfs c)) children))))))
+ (mapcar (lambda (s) (apply #'dfs s)) res)))
+
(defun eglot-imenu ()
"Eglot's `imenu-create-index-function'.
Returns a list as described in docstring of `imenu--index-alist'."
- (cl-labels
- ((unfurl (obj)
- (eglot--dcase obj
- (((SymbolInformation)) (list obj))
- (((DocumentSymbol) name children)
- (cons obj
- (mapcar
- (lambda (c)
- (plist-put
- c :containerName
- (let ((existing (plist-get c :containerName)))
- (if existing (format "%s::%s" name existing)
- name))))
- (mapcan #'unfurl children)))))))
- (mapcar
- (pcase-lambda (`(,kind . ,objs))
- (cons
- (alist-get kind eglot--symbol-kind-names "Unknown")
- (mapcan (pcase-lambda (`(,container . ,objs))
- (let ((elems (mapcar
- (lambda (obj)
- (cons (plist-get obj :name)
- (car (eglot--range-region
- (eglot--dcase obj
- (((SymbolInformation) location)
- (plist-get location :range))
- (((DocumentSymbol)
selectionRange)
- selectionRange))))))
- objs)))
- (if container (list (cons container elems)) elems)))
- (seq-group-by
- (lambda (e) (plist-get e :containerName)) objs))))
- (seq-group-by
- (lambda (obj) (plist-get obj :kind))
- (mapcan #'unfurl
- (jsonrpc-request (eglot--current-server-or-lose)
- :textDocument/documentSymbol
- `(:textDocument
- ,(eglot--TextDocumentIdentifier))
- :cancel-on-input non-essential))))))
-
-(defun eglot--apply-text-edits (edits &optional version)
+ (let* ((res (eglot--request (eglot--current-server-or-lose)
+ :textDocument/documentSymbol
+ `(:textDocument
+ ,(eglot--TextDocumentIdentifier))
+ :cancel-on-input non-essential))
+ (head (and (cl-plusp (length res)) (elt res 0))))
+ (when head
+ (eglot--dcase head
+ (((SymbolInformation)) (eglot--imenu-SymbolInformation res))
+ (((DocumentSymbol)) (eglot--imenu-DocumentSymbol res))))))
+
+(cl-defun eglot--apply-text-edits (edits &optional version)
"Apply EDITS for current buffer if at VERSION, or if it's nil."
+ (unless edits (cl-return-from eglot--apply-text-edits))
(unless (or (not version) (equal version eglot--versioned-identifier))
(jsonrpc-error "Edits on `%s' require version %d, you have %d"
(current-buffer) version eglot--versioned-identifier))
@@ -3239,7 +3386,7 @@ Returns a list as described in docstring of
`imenu--index-alist'."
(save-restriction
(narrow-to-region beg end)
(replace-buffer-contents temp)))
- (progress-reporter-update reporter (cl-incf done)))))))
+ (eglot--reporter-update reporter (cl-incf done)))))))
(mapcar (eglot--lambda ((TextEdit) range newText)
(cons newText (eglot--range-region range 'markers)))
(reverse edits)))
@@ -3284,9 +3431,9 @@ Returns a list as described in docstring of
`imenu--index-alist'."
(symbol-name (symbol-at-point)))))
(eglot--server-capable-or-lose :renameProvider)
(eglot--apply-workspace-edit
- (jsonrpc-request (eglot--current-server-or-lose)
- :textDocument/rename
`(,@(eglot--TextDocumentPositionParams)
- :newName ,newname))
+ (eglot--request (eglot--current-server-or-lose)
+ :textDocument/rename `(,@(eglot--TextDocumentPositionParams)
+ :newName ,newname))
current-prefix-arg))
(defun eglot--region-bounds ()
@@ -3312,7 +3459,7 @@ at point. With prefix argument, prompt for ACTION-KIND."
(eglot--server-capable-or-lose :codeActionProvider)
(let* ((server (eglot--current-server-or-lose))
(actions
- (jsonrpc-request
+ (eglot--request
server
:textDocument/codeAction
(list :textDocument (eglot--TextDocumentIdentifier)
@@ -3324,8 +3471,7 @@ at point. With prefix argument, prompt for ACTION-KIND."
when (cdr (assoc 'eglot-lsp-diag
(eglot--diag-data diag)))
collect it)]
- ,@(when action-kind `(:only [,action-kind]))))
- :deferred t))
+ ,@(when action-kind `(:only [,action-kind]))))))
;; Redo filtering, in case the `:only' didn't go through.
(actions (cl-loop for a across actions
when (or (not action-kind)
@@ -3335,6 +3481,9 @@ at point. With prefix argument, prompt for ACTION-KIND."
(eglot--read-execute-code-action actions server action-kind)
actions)))
+(defalias 'eglot-code-actions-at-mouse (eglot--mouse-call 'eglot-code-actions)
+ "Like `eglot-code-actions', but intended for mouse events.")
+
(defun eglot--read-execute-code-action (actions server &optional action-kind)
"Helper for interactive calls to `eglot-code-actions'."
(let* ((menu-items
@@ -3358,21 +3507,14 @@ at point. With prefix argument, prompt for
ACTION-KIND."
default-action)
menu-items nil t nil nil default-action)
menu-items))))))
- (eglot--dcase chosen
- (((Command) command arguments)
- (eglot-execute-command server (intern command) arguments))
- (((CodeAction) edit command)
- (when edit (eglot--apply-workspace-edit edit))
- (when command
- (eglot--dbind ((Command) command arguments) command
- (eglot-execute-command server (intern command) arguments)))))))
+ (eglot-execute server chosen)))
(defmacro eglot--code-action (name kind)
"Define NAME to execute KIND code action."
`(defun ,name (beg &optional end)
,(format "Execute `%s' code actions between BEG and END." kind)
(interactive (eglot--region-bounds))
- (eglot-code-actions beg end ,kind)))
+ (eglot-code-actions beg end ,kind t)))
(eglot--code-action eglot-code-action-organize-imports
"source.organizeImports")
(eglot--code-action eglot-code-action-extract "refactor.extract")
@@ -3423,8 +3565,9 @@ at point. With prefix argument, prompt for ACTION-KIND."
(unwind-protect
(progn
(dolist (dir dirs-to-watch)
- (push (file-notify-add-watch dir '(change) #'handle-event)
- (gethash id (eglot--file-watches server))))
+ (when (file-readable-p dir)
+ (push (file-notify-add-watch dir '(change) #'handle-event)
+ (gethash id (eglot--file-watches server)))))
(setq
success
`(:message ,(format "OK, watching %s directories in %s watchers"
@@ -3603,31 +3746,41 @@ If NOERROR, return predicate, else erroring function."
(eglot--lambda ((InlayHint) position kind label paddingLeft
paddingRight)
(goto-char (eglot--lsp-position-to-point position))
(when (or (> (point) to) (< (point) from)) (cl-return))
- (let ((left-pad (and paddingLeft
- (not (eq paddingLeft :json-false))
- (not (memq (char-before) '(32 9))) " "))
- (right-pad (and paddingRight
- (not (eq paddingRight :json-false))
- (not (memq (char-after) '(32 9))) " ")))
- (cl-flet
- ((do-it (text lpad rpad)
- (let ((ov (make-overlay (point) (point))))
- (overlay-put ov 'before-string
+ (let* ((left-pad (and paddingLeft
+ (not (eq paddingLeft :json-false))
+ (not (memq (char-before) '(32 9))) " "))
+ (right-pad (and paddingRight
+ (not (eq paddingRight :json-false))
+ (not (memq (char-after) '(32 9))) " "))
+ (peg-after-p (eql kind 1)))
+ (cl-labels
+ ((make-ov ()
+ (if peg-after-p
+ (make-overlay (point) (1+ (point)) nil t)
+ (make-overlay (1- (point)) (point) nil nil nil)))
+ (do-it (label lpad rpad firstp)
+ (let* ((tweak-cursor-p (and firstp peg-after-p))
+ (ov (make-ov))
+ (text (concat lpad label rpad)))
+ (when tweak-cursor-p (put-text-property 0 1 'cursor 1
text))
+ (overlay-put ov (if peg-after-p 'before-string
'after-string)
(propertize
- (concat lpad text rpad)
+ text
'face (pcase kind
(1 'eglot-type-hint-face)
(2 'eglot-parameter-hint-face)
(_ 'eglot-inlay-hint-face))))
(overlay-put ov 'eglot--inlay-hint t)
+ (overlay-put ov 'evaporate t)
(overlay-put ov 'eglot--overlay t))))
- (if (stringp label) (do-it label left-pad right-pad)
+ (if (stringp label) (do-it label left-pad right-pad t)
(cl-loop
for i from 0 for ldetail across label
do (eglot--dbind ((InlayHintLabelPart) value) ldetail
(do-it value
(and (zerop i) left-pad)
- (and (= i (1- (length label)))
right-pad))))))))))
+ (and (= i (1- (length label))) right-pad)
+ (zerop i))))))))))
(jsonrpc-async-request
(eglot--current-server-or-lose)
:textDocument/inlayHint
@@ -3637,7 +3790,19 @@ If NOERROR, return predicate, else erroring function."
:success-fn (lambda (hints)
(eglot--when-live-buffer buf
(eglot--widening
- (remove-overlays from to 'eglot--inlay-hint t)
+ ;; Overlays ending right at FROM with an
+ ;; `after-string' property logically belong to
+ ;; the (FROM TO) region. Likewise, such
+ ;; overlays ending at TO don't logically belong
+ ;; to it.
+ (dolist (o (overlays-in (1- from) to))
+ (when (and (overlay-get o 'eglot--inlay-hint)
+ (cond ((eq (overlay-end o) from)
+ (overlay-get o 'after-string))
+ ((eq (overlay-end o) to)
+ (overlay-get o 'before-string))
+ (t)))
+ (delete-overlay o)))
(mapc paint-hint hints))))
:deferred 'eglot--update-hints-1)))
@@ -3655,24 +3820,23 @@ If NOERROR, return predicate, else erroring function."
;;; Hacks
;;;
-;; FIXME: Although desktop.el compatibility is Emacs bug#56407, the
-;; optimal solution agreed to there is a bit more work than what I
-;; have time to right now. See
-;; e.g. https://debbugs.gnu.org/cgi/bugreport.cgi?bug=bug%2356407#68.
-;; For now, just use `with-eval-after-load'
+;; Emacs bug#56407, the optimal solution is in desktop.el, but that's
+;; harder. For now, use `with-eval-after-load'. See also github#1183.
(with-eval-after-load 'desktop
- (add-to-list 'desktop-minor-mode-handlers '(eglot--managed-mode . ignore)))
+ (add-to-list 'desktop-minor-mode-handlers '(eglot--managed-mode . ignore))
+ (add-to-list 'desktop-minor-mode-handlers '(eglot-inlay-hints-mode .
ignore)))
;;; Misc
;;;
-(defun eglot--debbugs-or-github-bug-uri ()
- (format (if (string= (match-string 2) "github")
- "https://github.com/joaotavora/eglot/issues/%s";
- "https://debbugs.gnu.org/%s";)
- (match-string 3)))
-(put 'eglot--debbugs-or-github-bug-uri 'bug-reference-url-format t)
-
+;;;###autoload
+(progn
+ (put 'eglot--debbugs-or-github-bug-uri 'bug-reference-url-format t)
+ (defun eglot--debbugs-or-github-bug-uri ()
+ (format (if (string= (match-string 2) "github")
+ "https://github.com/joaotavora/eglot/issues/%s";
+ "https://debbugs.gnu.org/%s";)
+ (match-string 3))))
;;; Obsolete
;;;
diff --git a/lisp/progmodes/elixir-ts-mode.el b/lisp/progmodes/elixir-ts-mode.el
new file mode 100644
index 00000000000..7175fe4bff8
--- /dev/null
+++ b/lisp/progmodes/elixir-ts-mode.el
@@ -0,0 +1,683 @@
+;;; elixir-ts-mode.el --- Major mode for Elixir with tree-sitter support -*-
lexical-binding: t; -*-
+
+;; Copyright (C) 2022-2023 Free Software Foundation, Inc.
+
+;; Author: Wilhelm H Kirschbaum <wkirschbaum@gmail.com>
+;; Created: November 2022
+;; Keywords: elixir languages tree-sitter
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; This package provides `elixir-ts-mode' which is a major mode for editing
+;; Elixir files and embedded HEEx templates that uses Tree Sitter to parse
+;; the language.
+;;
+;; This package is compatible with and was tested against the tree-sitter
grammar
+;; for Elixir found at https://github.com/elixir-lang/tree-sitter-elixir.
+;;
+;; Features
+;;
+;; * Indent
+;;
+;; `elixir-ts-mode' tries to replicate the indentation provided by
+;; mix format, but will come with some minor differences.
+;;
+;; * IMenu
+;; * Navigation
+;; * Which-fun
+
+;;; Code:
+
+(require 'treesit)
+(eval-when-compile (require 'rx))
+
+(declare-function treesit-parser-create "treesit.c")
+(declare-function treesit-node-child "treesit.c")
+(declare-function treesit-node-type "treesit.c")
+(declare-function treesit-node-child-by-field-name "treesit.c")
+(declare-function treesit-parser-language "treesit.c")
+(declare-function treesit-parser-included-ranges "treesit.c")
+(declare-function treesit-parser-list "treesit.c")
+(declare-function treesit-node-parent "treesit.c")
+(declare-function treesit-node-start "treesit.c")
+(declare-function treesit-node-end "treesit.c")
+(declare-function treesit-query-compile "treesit.c")
+(declare-function treesit-query-capture "treesit.c")
+(declare-function treesit-node-eq "treesit.c")
+(declare-function treesit-node-prev-sibling "treesit.c")
+
+(defgroup elixir-ts nil
+ "Major mode for editing Elixir code."
+ :prefix "elixir-ts-"
+ :group 'languages)
+
+(defcustom elixir-ts-indent-offset 2
+ "Indentation of Elixir statements."
+ :version "30.1"
+ :type 'integer
+ :safe 'integerp
+ :group 'elixir-ts)
+
+(defface elixir-ts-font-comment-doc-identifier-face
+ '((t (:inherit font-lock-doc-face)))
+ "Face used for @comment.doc tags in Elixir files.")
+
+(defface elixir-ts-font-comment-doc-attribute-face
+ '((t (:inherit font-lock-doc-face)))
+ "Face used for @comment.doc.__attribute__ tags in Elixir files.")
+
+(defface elixir-ts-font-sigil-name-face
+ '((t (:inherit font-lock-string-face)))
+ "Face used for @__name__ tags in Elixir files.")
+
+(defconst elixir-ts--sexp-regexp
+ (rx bol
+ (or "call" "stab_clause" "binary_operator" "list" "tuple" "map" "pair"
+ "sigil" "string" "atom" "alias" "arguments" "identifier"
+ "boolean" "quoted_content" "bitstring")
+ eol))
+
+(defconst elixir-ts--test-definition-keywords
+ '("describe" "test"))
+
+(defconst elixir-ts--definition-keywords
+ '("def" "defdelegate" "defexception" "defguard" "defguardp"
+ "defimpl" "defmacro" "defmacrop" "defmodule" "defn" "defnp"
+ "defoverridable" "defp" "defprotocol" "defstruct"))
+
+(defconst elixir-ts--definition-keywords-re
+ (concat "^" (regexp-opt elixir-ts--definition-keywords) "$"))
+
+(defconst elixir-ts--kernel-keywords
+ '("alias" "case" "cond" "else" "for" "if" "import" "quote"
+ "raise" "receive" "require" "reraise" "super" "throw" "try"
+ "unless" "unquote" "unquote_splicing" "use" "with"))
+
+(defconst elixir-ts--kernel-keywords-re
+ (concat "^" (regexp-opt elixir-ts--kernel-keywords) "$"))
+
+(defconst elixir-ts--builtin-keywords
+ '("__MODULE__" "__DIR__" "__ENV__" "__CALLER__" "__STACKTRACE__"))
+
+(defconst elixir-ts--builtin-keywords-re
+ (concat "^" (regexp-opt elixir-ts--builtin-keywords) "$"))
+
+(defconst elixir-ts--doc-keywords
+ '("moduledoc" "typedoc" "doc"))
+
+(defconst elixir-ts--doc-keywords-re
+ (concat "^" (regexp-opt elixir-ts--doc-keywords) "$"))
+
+(defconst elixir-ts--reserved-keywords
+ '("when" "and" "or" "not" "in"
+ "not in" "fn" "do" "end" "catch" "rescue" "after" "else"))
+
+(defconst elixir-ts--reserved-keywords-re
+ (concat "^" (regexp-opt elixir-ts--reserved-keywords) "$"))
+
+(defconst elixir-ts--reserved-keywords-vector
+ (apply #'vector elixir-ts--reserved-keywords))
+
+(defvar elixir-ts--capture-anonymous-function-end
+ (when (treesit-available-p)
+ (treesit-query-compile 'elixir '((anonymous_function "end" @end)))))
+
+(defvar elixir-ts--capture-operator-parent
+ (when (treesit-available-p)
+ (treesit-query-compile 'elixir '((binary_operator operator: _ @val)))))
+
+(defvar elixir-ts--syntax-table
+ (let ((table (make-syntax-table)))
+ (modify-syntax-entry ?| "." table)
+ (modify-syntax-entry ?- "." table)
+ (modify-syntax-entry ?+ "." table)
+ (modify-syntax-entry ?* "." table)
+ (modify-syntax-entry ?/ "." table)
+ (modify-syntax-entry ?< "." table)
+ (modify-syntax-entry ?> "." table)
+ (modify-syntax-entry ?_ "_" table)
+ (modify-syntax-entry ?? "w" table)
+ (modify-syntax-entry ?~ "w" table)
+ (modify-syntax-entry ?! "_" table)
+ (modify-syntax-entry ?' "\"" table)
+ (modify-syntax-entry ?\" "\"" table)
+ (modify-syntax-entry ?# "<" table)
+ (modify-syntax-entry ?\n ">" table)
+ (modify-syntax-entry ?\( "()" table)
+ (modify-syntax-entry ?\) ")(" table)
+ (modify-syntax-entry ?\{ "(}" table)
+ (modify-syntax-entry ?\} "){" table)
+ (modify-syntax-entry ?\[ "(]" table)
+ (modify-syntax-entry ?\] ")[" table)
+ (modify-syntax-entry ?: "'" table)
+ (modify-syntax-entry ?@ "'" table)
+ table)
+ "Syntax table for `elixir-ts-mode'.")
+
+(defun elixir-ts--argument-indent-offset (node _parent &rest _)
+ "Return the argument offset position for NODE."
+ (if (or (treesit-node-prev-sibling node t)
+ ;; Don't indent if this is the first node or
+ ;; if the line is empty.
+ (save-excursion
+ (beginning-of-line)
+ (looking-at-p "[[:blank:]]*$")))
+ 0 elixir-ts-indent-offset))
+
+(defun elixir-ts--argument-indent-anchor (node parent &rest _)
+ "Return the argument anchor position for NODE and PARENT."
+ (let ((first-sibling (treesit-node-child parent 0 t)))
+ (if (and first-sibling (not (treesit-node-eq first-sibling node)))
+ (treesit-node-start first-sibling)
+ (elixir-ts--parent-expression-start node parent))))
+
+(defun elixir-ts--parent-expression-start (_node parent &rest _)
+ "Return the indentation expression start for NODE and PARENT."
+ ;; If the parent is the first expression on the line return the
+ ;; parent start of node position, otherwise use the parent call
+ ;; start if available.
+ (if (eq (treesit-node-start parent)
+ (save-excursion
+ (goto-char (treesit-node-start parent))
+ (back-to-indentation)
+ (point)))
+ (treesit-node-start parent)
+ (let ((expr-parent
+ (treesit-parent-until
+ parent
+ (lambda (n)
+ (member (treesit-node-type n)
+ '("call" "binary_operator" "keywords" "list"))))))
+ (save-excursion
+ (goto-char (treesit-node-start expr-parent))
+ (back-to-indentation)
+ (if (looking-at "|>")
+ (point)
+ (treesit-node-start expr-parent))))))
+
+(defvar elixir-ts--indent-rules
+ (let ((offset elixir-ts-indent-offset))
+ `((elixir
+ ((parent-is "^source$") column-0 0)
+ ((parent-is "^string$") parent-bol 0)
+ ((parent-is "^quoted_content$")
+ (lambda (_n parent bol &rest _)
+ (save-excursion
+ (back-to-indentation)
+ (if (bolp)
+ (progn
+ (goto-char (treesit-node-start parent))
+ (back-to-indentation)
+ (point))
+ (point))))
+ 0)
+ ((node-is "^|>$") parent-bol 0)
+ ((node-is "^|$") parent-bol 0)
+ ((node-is "^]$") ,'elixir-ts--parent-expression-start 0)
+ ((node-is "^}$") ,'elixir-ts--parent-expression-start 0)
+ ((node-is "^)$") ,'elixir-ts--parent-expression-start 0)
+ ((node-is "^>>$") ,'elixir-ts--parent-expression-start 0)
+ ((node-is "^else_block$") grand-parent 0)
+ ((node-is "^catch_block$") grand-parent 0)
+ ((node-is "^rescue_block$") grand-parent 0)
+ ((node-is "^after_block$") grand-parent 0)
+ ((parent-is "^else_block$") parent ,offset)
+ ((parent-is "^catch_block$") parent ,offset)
+ ((parent-is "^rescue_block$") parent ,offset)
+ ((parent-is "^rescue_block$") parent ,offset)
+ ((parent-is "^after_block$") parent ,offset)
+ ((parent-is "^access_call$")
+ ,'elixir-ts--argument-indent-anchor
+ ,'elixir-ts--argument-indent-offset)
+ ((parent-is "^tuple$")
+ ,'elixir-ts--argument-indent-anchor
+ ,'elixir-ts--argument-indent-offset)
+ ((parent-is "^list$")
+ ,'elixir-ts--argument-indent-anchor
+ ,'elixir-ts--argument-indent-offset)
+ ((parent-is "^pair$") parent ,offset)
+ ((parent-is "^bitstring$") parent ,offset)
+ ((parent-is "^map_content$") parent-bol 0)
+ ((parent-is "^map$") ,'elixir-ts--parent-expression-start ,offset)
+ ((node-is "^stab_clause$") parent-bol ,offset)
+ ((query ,elixir-ts--capture-operator-parent) grand-parent 0)
+ ((node-is "^when$") parent 0)
+ ((parent-is "^body$")
+ (lambda (node parent _)
+ (save-excursion
+ ;; The grammar adds a comment outside of the body, so we have to
indent
+ ;; to the grand-parent if it is available.
+ (goto-char (treesit-node-start
+ (or (treesit-node-parent parent) (parent))))
+ (back-to-indentation)
+ (point)))
+ ,offset)
+ ((parent-is "^arguments$")
+ ,'elixir-ts--argument-indent-anchor
+ ,'elixir-ts--argument-indent-offset)
+ ;; Handle incomplete maps when parent is ERROR.
+ ((node-is "^keywords$") parent-bol ,offset)
+ ((n-p-gp "^binary_operator$" "ERROR" nil) parent-bol 0)
+ ;; When there is an ERROR, just indent to prev-line.
+ ((parent-is "ERROR") prev-line ,offset)
+ ((node-is "^binary_operator$")
+ (lambda (node parent &rest _)
+ (let ((top-level
+ (treesit-parent-while
+ node
+ (lambda (node)
+ (equal (treesit-node-type node)
+ "binary_operator")))))
+ (if (treesit-node-eq top-level node)
+ (elixir-ts--parent-expression-start node parent)
+ (treesit-node-start top-level))))
+ (lambda (node parent _)
+ (cond
+ ((equal (treesit-node-type parent) "do_block")
+ ,offset)
+ ((equal (treesit-node-type parent) "binary_operator")
+ ,offset)
+ (t 0))))
+ ((parent-is "^binary_operator$")
+ (lambda (node parent bol &rest _)
+ (treesit-node-start
+ (treesit-parent-while
+ parent
+ (lambda (node)
+ (equal (treesit-node-type node) "binary_operator")))))
+ ,offset)
+ ((node-is "^pair$") first-sibling 0)
+ ((query ,elixir-ts--capture-anonymous-function-end) parent-bol 0)
+ ((node-is "^end$") standalone-parent 0)
+ ((parent-is "^do_block$") grand-parent ,offset)
+ ((parent-is "^anonymous_function$")
+ elixir-ts--treesit-anchor-grand-parent-bol ,offset)
+ ((parent-is "^else_block$") parent ,offset)
+ ((parent-is "^rescue_block$") parent ,offset)
+ ((parent-is "^catch_block$") parent ,offset)
+ ((parent-is "^keywords$") parent-bol 0)
+ ((node-is "^call$") parent-bol ,offset)
+ ((node-is "^comment$") parent-bol ,offset)))))
+
+(defvar elixir-ts--font-lock-settings
+ (treesit-font-lock-rules
+ :language 'elixir
+ :feature 'elixir-comment
+ '((comment) @font-lock-comment-face)
+
+ :language 'elixir
+ :feature 'elixir-string
+ :override t
+ '([(string) (charlist)] @font-lock-string-face)
+
+ :language 'elixir
+ :feature 'elixir-string-interpolation
+ :override t
+ '((string
+ [
+ quoted_end: _ @font-lock-string-face
+ quoted_start: _ @font-lock-string-face
+ (quoted_content) @font-lock-string-face
+ (interpolation
+ "#{" @font-lock-regexp-grouping-backslash "}"
+ @font-lock-regexp-grouping-backslash)
+ ])
+ (charlist
+ [
+ quoted_end: _ @font-lock-string-face
+ quoted_start: _ @font-lock-string-face
+ (quoted_content) @font-lock-string-face
+ (interpolation
+ "#{" @font-lock-regexp-grouping-backslash "}"
+ @font-lock-regexp-grouping-backslash)
+ ]))
+
+ :language 'elixir
+ :feature 'elixir-keyword
+ `(,elixir-ts--reserved-keywords-vector
+ @font-lock-keyword-face
+ (binary_operator
+ operator: _ @font-lock-keyword-face
+ (:match ,elixir-ts--reserved-keywords-re @font-lock-keyword-face)))
+
+ :language 'elixir
+ :feature 'elixir-doc
+ :override t
+ `((unary_operator
+ operator: "@" @elixir-ts-font-comment-doc-attribute-face
+ operand: (call
+ target: (identifier)
@elixir-ts-font-comment-doc-identifier-face
+ ;; Arguments can be optional, so adding another
+ ;; entry without arguments.
+ ;; If we don't handle then we don't apply font
+ ;; and the non doc fortification query will take specify
+ ;; a more specific font which takes precedence.
+ (arguments
+ [
+ (string) @font-lock-doc-face
+ (charlist) @font-lock-doc-face
+ (sigil) @font-lock-doc-face
+ (boolean) @font-lock-doc-face
+ ]))
+ (:match ,elixir-ts--doc-keywords-re
+ @elixir-ts-font-comment-doc-identifier-face))
+ (unary_operator
+ operator: "@" @elixir-ts-font-comment-doc-attribute-face
+ operand: (call
+ target: (identifier)
@elixir-ts-font-comment-doc-identifier-face)
+ (:match ,elixir-ts--doc-keywords-re
+ @elixir-ts-font-comment-doc-identifier-face)))
+
+ :language 'elixir
+ :feature 'elixir-unary-operator
+ `((unary_operator operator: "@" @font-lock-preprocessor-face
+ operand: [
+ (identifier) @font-lock-preprocessor-face
+ (call target: (identifier)
+ @font-lock-preprocessor-face)
+ (boolean) @font-lock-preprocessor-face
+ (nil) @font-lock-preprocessor-face
+ ])
+
+ (unary_operator operator: "&") @font-lock-function-name-face
+ (operator_identifier) @font-lock-operator-face)
+
+ :language 'elixir
+ :feature 'elixir-operator
+ '((binary_operator operator: _ @font-lock-operator-face)
+ (dot operator: _ @font-lock-operator-face)
+ (stab_clause operator: _ @font-lock-operator-face)
+
+ [(boolean) (nil)] @font-lock-constant-face
+ [(integer) (float)] @font-lock-number-face
+ (alias) @font-lock-type-face
+ (call target: (dot left: (atom) @font-lock-type-face))
+ (char) @font-lock-constant-face
+ [(atom) (quoted_atom)] @font-lock-type-face
+ [(keyword) (quoted_keyword)] @font-lock-builtin-face)
+
+ :language 'elixir
+ :feature 'elixir-call
+ `((call
+ target: (identifier) @font-lock-keyword-face
+ (:match ,elixir-ts--definition-keywords-re @font-lock-keyword-face))
+ (call
+ target: (identifier) @font-lock-keyword-face
+ (:match ,elixir-ts--kernel-keywords-re @font-lock-keyword-face))
+ (call
+ target: [(identifier) @font-lock-function-name-face
+ (dot right: (identifier) @font-lock-keyword-face)])
+ (call
+ target: (identifier) @font-lock-keyword-face
+ (arguments
+ [
+ (identifier) @font-lock-keyword-face
+ (binary_operator
+ left: (identifier) @font-lock-keyword-face
+ operator: "when")
+ ])
+ (:match ,elixir-ts--definition-keywords-re @font-lock-keyword-face))
+ (call
+ target: (identifier) @font-lock-keyword-face
+ (arguments
+ (binary_operator
+ operator: "|>"
+ right: (identifier)))
+ (:match ,elixir-ts--definition-keywords-re @font-lock-keyword-face)))
+
+ :language 'elixir
+ :feature 'elixir-constant
+ `((binary_operator operator: "|>" right: (identifier)
+ @font-lock-function-name-face)
+ ((identifier) @font-lock-keyword-face
+ (:match ,elixir-ts--builtin-keywords-re
+ @font-lock-keyword-face))
+ ((identifier) @font-lock-comment-face
+ (:match "^_" @font-lock-comment-face))
+ (identifier) @font-lock-function-name-face
+ ["%"] @font-lock-keyward-face
+ ["," ";"] @font-lock-keyword-face
+ ["(" ")" "[" "]" "{" "}" "<<" ">>"] @font-lock-keyword-face)
+
+ :language 'elixir
+ :feature 'elixir-sigil
+ :override t
+ `((sigil
+ (sigil_name) @elixir-ts-font-sigil-name-face
+ (:match "^[sSwWpPUD]$" @elixir-ts-font-sigil-name-face))
+ @font-lock-string-face
+ (sigil
+ "~" @font-lock-string-face
+ (sigil_name) @elixir-ts-font-sigil-name-face
+ (:match "^[rR]$" @elixir-ts-font-sigil-name-face))
+ @font-lock-regexp-face
+ (sigil
+ "~" @font-lock-string-face
+ (sigil_name) @elixir-ts-font-sigil-name-face
+ quoted_start: _ @font-lock-string-face
+ quoted_end: _ @font-lock-string-face
+ (:match "^[HF]$" @elixir-ts-font-sigil-name-face)))
+
+ :language 'elixir
+ :feature 'elixir-string-escape
+ :override t
+ `((escape_sequence) @font-lock-regexp-grouping-backslash))
+ "Tree-sitter font-lock settings.")
+
+(defvar elixir-ts--treesit-range-rules
+ (when (treesit-available-p)
+ (treesit-range-rules
+ :embed 'heex
+ :host 'elixir
+ '((sigil (sigil_name) @name (:match "^[HF]$" @name) (quoted_content)
@heex)))))
+
+(defvar heex-ts--sexp-regexp)
+(defvar heex-ts--indent-rules)
+(defvar heex-ts--font-lock-settings)
+
+(defun elixir-ts--forward-sexp (&optional arg)
+ "Move forward across one balanced expression (sexp).
+With ARG, do it many times. Negative ARG means move backward."
+ (or arg (setq arg 1))
+ (funcall
+ (if (> arg 0) #'treesit-end-of-thing #'treesit-beginning-of-thing)
+ (if (eq (treesit-language-at (point)) 'heex)
+ heex-ts--sexp-regexp
+ elixir-ts--sexp-regexp)
+ (abs arg)))
+
+(defun elixir-ts--treesit-anchor-grand-parent-bol (_n parent &rest _)
+ "Return the beginning of non-space characters for the parent node of PARENT."
+ (save-excursion
+ (goto-char (treesit-node-start (treesit-node-parent parent)))
+ (back-to-indentation)
+ (point)))
+
+(defun elixir-ts--treesit-language-at-point (point)
+ "Return the language at POINT."
+ (let* ((range nil)
+ (language-in-range
+ (cl-loop
+ for parser in (treesit-parser-list)
+ do (setq range
+ (cl-loop
+ for range in (treesit-parser-included-ranges parser)
+ if (and (>= point (car range)) (<= point (cdr range)))
+ return parser))
+ if range
+ return (treesit-parser-language parser))))
+ (if (null language-in-range)
+ (when-let ((parser (car (treesit-parser-list))))
+ (treesit-parser-language parser))
+ language-in-range)))
+
+(defun elixir-ts--defun-p (node)
+ "Return non-nil when NODE is a defun."
+ (member (treesit-node-text
+ (treesit-node-child-by-field-name node "target"))
+ (append
+ elixir-ts--definition-keywords
+ elixir-ts--test-definition-keywords)))
+
+(defun elixir-ts--defun-name (node)
+ "Return the name of the defun NODE.
+Return nil if NODE is not a defun node or doesn't have a name."
+ (pcase (treesit-node-type node)
+ ("call" (let ((node-child
+ (treesit-node-child (treesit-node-child node 1) 0)))
+ (pcase (treesit-node-type node-child)
+ ("alias" (treesit-node-text node-child t))
+ ("call" (treesit-node-text
+ (treesit-node-child-by-field-name node-child
"target") t))
+ ("binary_operator"
+ (treesit-node-text
+ (treesit-node-child-by-field-name
+ (treesit-node-child-by-field-name node-child "left")
"target")
+ t))
+ ("identifier"
+ (treesit-node-text node-child t))
+ (_ nil))))
+ (_ nil)))
+
+(defvar elixir-ts--syntax-propertize-query
+ (when (treesit-available-p)
+ (treesit-query-compile
+ 'elixir
+ '(((["\"\"\""] @quoted-text))))))
+
+(defun elixir-ts--syntax-propertize (start end)
+ "Apply syntax text properties between START and END for `elixir-ts-mode'."
+ (let ((captures
+ (treesit-query-capture 'elixir elixir-ts--syntax-propertize-query
start end)))
+ (pcase-dolist (`(,name . ,node) captures)
+ (pcase-exhaustive name
+ ('quoted-text
+ (put-text-property (1- (treesit-node-end node)) (treesit-node-end
node)
+ 'syntax-table (string-to-syntax "$")))))))
+
+(defun elixir-ts--electric-pair-string-delimiter ()
+ "Insert corresponding multi-line string for `electric-pair-mode'."
+ (when (and electric-pair-mode
+ (eq last-command-event ?\")
+ (let ((count 0))
+ (while (eq (char-before (- (point) count)) last-command-event)
+ (cl-incf count))
+ (= count 3))
+ (eq (char-after) last-command-event))
+ (save-excursion
+ (insert (make-string 2 last-command-event)))
+ (save-excursion
+ (newline 1 t))))
+
+;;;###autoload
+(define-derived-mode elixir-ts-mode prog-mode "Elixir"
+ "Major mode for editing Elixir, powered by tree-sitter."
+ :group 'elixir-ts
+ :syntax-table elixir-ts--syntax-table
+
+ ;; Comments.
+ (setq-local comment-start "# ")
+ (setq-local comment-start-skip
+ (rx "#" (* (syntax whitespace))))
+
+ (setq-local comment-end "")
+ (setq-local comment-end-skip
+ (rx (* (syntax whitespace))
+ (group (or (syntax comment-end) "\n"))))
+
+ ;; Compile.
+ (setq-local compile-command "mix")
+
+ ;; Electric pair.
+ (add-hook 'post-self-insert-hook
+ #'elixir-ts--electric-pair-string-delimiter 'append t)
+
+ (when (treesit-ready-p 'elixir)
+ ;; The HEEx parser has to be created first for elixir to ensure elixir
+ ;; is the first language when looking for treesit ranges.
+ (when (treesit-ready-p 'heex)
+ ;; Require heex-ts-mode only when we load elixir-ts-mode
+ ;; so that we don't get a tree-sitter compilation warning for
+ ;; elixir-ts-mode.
+ (require 'heex-ts-mode)
+ (treesit-parser-create 'heex))
+
+ (treesit-parser-create 'elixir)
+
+ (setq-local treesit-language-at-point-function
+ 'elixir-ts--treesit-language-at-point)
+
+ ;; Font-lock.
+ (setq-local treesit-font-lock-settings elixir-ts--font-lock-settings)
+ (setq-local treesit-font-lock-feature-list
+ '(( elixir-comment elixir-constant elixir-doc )
+ ( elixir-string elixir-keyword elixir-unary-operator
+ elixir-call elixir-operator )
+ ( elixir-sigil elixir-string-escape
elixir-string-interpolation)))
+
+ ;; Imenu.
+ (setq-local treesit-simple-imenu-settings
+ '((nil "\\`call\\'" elixir-ts--defun-p nil)))
+
+ ;; Indent.
+ (setq-local treesit-simple-indent-rules elixir-ts--indent-rules)
+
+ ;; Navigation.
+ (setq-local forward-sexp-function #'elixir-ts--forward-sexp)
+ (setq-local treesit-defun-type-regexp
+ '("call" . elixir-ts--defun-p))
+
+ (setq-local treesit-defun-name-function #'elixir-ts--defun-name)
+
+ ;; Embedded Heex.
+ (when (treesit-ready-p 'heex)
+ (setq-local treesit-range-settings elixir-ts--treesit-range-rules)
+
+ (setq-local treesit-simple-indent-rules
+ (append treesit-simple-indent-rules heex-ts--indent-rules))
+
+ (setq-local treesit-font-lock-settings
+ (append treesit-font-lock-settings
+ heex-ts--font-lock-settings))
+
+ (setq-local treesit-simple-indent-rules
+ (append treesit-simple-indent-rules
+ heex-ts--indent-rules))
+
+ (setq-local treesit-font-lock-feature-list
+ '(( elixir-comment elixir-constant elixir-doc
+ heex-comment heex-keyword heex-doctype )
+ ( elixir-string elixir-keyword elixir-unary-operator
+ elixir-call elixir-operator
+ heex-component heex-tag heex-attribute heex-string)
+ ( elixir-sigil elixir-string-escape
+ elixir-string-interpolation ))))
+
+ (treesit-major-mode-setup)
+ (setq-local syntax-propertize-function #'elixir-ts--syntax-propertize)))
+
+(if (treesit-ready-p 'elixir)
+ (progn
+ (add-to-list 'auto-mode-alist '("\\.elixir\\'" . elixir-ts-mode))
+ (add-to-list 'auto-mode-alist '("\\.ex\\'" . elixir-ts-mode))
+ (add-to-list 'auto-mode-alist '("\\.exs\\'" . elixir-ts-mode))
+ (add-to-list 'auto-mode-alist '("mix\\.lock" . elixir-ts-mode))))
+
+(provide 'elixir-ts-mode)
+
+;;; elixir-ts-mode.el ends here
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 8efdae6060f..cb95f29b5fe 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -146,7 +146,10 @@ Otherwise, `find-tag-default' is used."
(define-obsolete-variable-alias 'find-tag-marker-ring-length
'tags-location-ring-length "25.1")
-(defvar tags-location-ring-length 16)
+(defvar tags-location-ring-length 16
+ "Size of the find-tag marker ring.
+This variable has no effect, and is kept only for backward compatibility.
+The actual size of the find-tag marker ring is unlimited.")
(defcustom tags-tag-face 'default
"Face for tags in the output of `tags-apropos'."
@@ -181,8 +184,9 @@ Example value:
(sexp :tag "Tags to search")))
:version "21.1")
-;; Obsolete variable kept for compatibility. We don't use it in any way.
-(defvar find-tag-marker-ring (make-ring 16))
+(defvar find-tag-marker-ring (make-ring 16)
+ "Find-tag marker ring.
+Obsolete variable kept for compatibility. It is not used in any way.")
(make-obsolete-variable
'find-tag-marker-ring
"use `xref-push-marker-stack' or `xref-go-back' instead."
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index a352adbba19..f03b9ab56a0 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -4,9 +4,9 @@
;; Author: Pavel Kobyakov <pk_at_work@yahoo.com>
;; Maintainer: João Távora <joaotavora@gmail.com>
-;; Version: 1.2.2
+;; Version: 1.3.4
;; Keywords: c languages tools
-;; Package-Requires: ((emacs "26.1") (eldoc "1.1.0") (project "0.7.1"))
+;; Package-Requires: ((emacs "26.1") (eldoc "1.14.0") (project "0.7.1"))
;; This is a GNU ELPA :core package. Avoid functionality that is not
;; compatible with the version of Emacs recorded above.
@@ -371,6 +371,20 @@ diagnostics at BEG."
(flymake--diag-accessor flymake-diagnostic-end flymake--diag-end end)
(flymake--diag-accessor flymake-diagnostic-buffer flymake--diag-locus locus)
+(defun flymake-diagnostic-oneliner (diag &optional nopaintp)
+ "Get truncated one-line text string for diagnostic DIAG.
+This is useful for displaying the DIAG's text to the user in
+confined spaces, such as the echo are. Unless NOPAINTP is t,
+propertize returned text with the `echo-face' property of DIAG's
+type."
+ (let* ((txt (flymake-diagnostic-text diag))
+ (txt (substring txt 0 (cl-loop for i from 0 for a across txt
+ when (eq a ?\n) return i))))
+ (if nopaintp txt
+ (propertize txt 'face
+ (flymake--lookup-type-property
+ (flymake-diagnostic-type diag) 'echo-face
'flymake-error)))))
+
(cl-defun flymake--overlays (&key beg end filter compare key)
"Get flymake-related overlays.
If BEG is non-nil and END is nil, consider only `overlays-at'
@@ -417,6 +431,47 @@ verify FILTER, a function, and sort them by COMPARE (using
KEY)."
"Face used for marking note regions."
:version "26.1")
+(defface flymake-error-echo
+ '((t :inherit compilation-error))
+ "Face used for showing summarized descriptions of errors."
+ :package-version '(Flymake . "1.3.4"))
+
+(defface flymake-warning-echo
+ '((t :inherit compilation-warning))
+ "Face used for showing summarized descriptions of warnings."
+ :package-version '(Flymake . "1.3.4"))
+
+(defface flymake-note-echo
+ '((t :inherit flymake-note))
+ "Face used for showing summarized descriptions of notes."
+ :package-version '(Flymake . "1.3.4"))
+
+(defface flymake-end-of-line-diagnostics-face
+ '((t :height 0.85 :box (:line-width -1)))
+ "Face used for end-of-line diagnostics.
+See variable `flymake-show-diagnostics-at-end-of-line'."
+ :package-version '(Flymake . "1.3.5"))
+
+(defface flymake-error-echo-at-eol
+ '((t :inherit (flymake-end-of-line-diagnostics-face compilation-error)))
+ "Face like `flymake-error-echo', but for end-of-line overlays."
+ :package-version '(Flymake . "1.3.5"))
+
+(defface flymake-warning-echo-at-eol
+ '((t :inherit (flymake-end-of-line-diagnostics-face compilation-warning)))
+ "Face like `flymake-warning-echo', but for end-of-line overlays."
+ :package-version '(Flymake . "1.3.5"))
+
+(defface flymake-note-echo-at-eol
+ '((t :inherit (flymake-end-of-line-diagnostics-face flymake-note)))
+ "Face like `flymake-note-echo', but for end-of-line overlays."
+ :package-version '(Flymake . "1.3.5"))
+
+(defcustom flymake-show-diagnostics-at-end-of-line nil
+ "If non-nil, add diagnostic summary messages at end-of-line."
+ :type 'boolean
+ :package-version '(Flymake . "1.3.4"))
+
(define-obsolete-face-alias 'flymake-warnline 'flymake-warning "26.1")
(define-obsolete-face-alias 'flymake-errline 'flymake-error "26.1")
@@ -570,19 +625,25 @@ Node `(Flymake)Flymake error types'"
(put 'flymake-error 'face 'flymake-error)
(put 'flymake-error 'flymake-bitmap 'flymake-error-bitmap)
(put 'flymake-error 'severity (warning-numeric-level :error))
-(put 'flymake-error 'mode-line-face 'compilation-error)
+(put 'flymake-error 'mode-line-face 'flymake-error-echo)
+(put 'flymake-error 'echo-face 'flymake-error-echo)
+(put 'flymake-error 'eol-face 'flymake-error-echo-at-eol)
(put 'flymake-error 'flymake-type-name "error")
(put 'flymake-warning 'face 'flymake-warning)
(put 'flymake-warning 'flymake-bitmap 'flymake-warning-bitmap)
(put 'flymake-warning 'severity (warning-numeric-level :warning))
-(put 'flymake-warning 'mode-line-face 'compilation-warning)
+(put 'flymake-warning 'mode-line-face 'flymake-warning-echo)
+(put 'flymake-warning 'echo-face 'flymake-warning-echo)
+(put 'flymake-warning 'eol-face 'flymake-warning-echo-at-eol)
(put 'flymake-warning 'flymake-type-name "warning")
(put 'flymake-note 'face 'flymake-note)
(put 'flymake-note 'flymake-bitmap 'flymake-note-bitmap)
(put 'flymake-note 'severity (warning-numeric-level :debug))
-(put 'flymake-note 'mode-line-face 'compilation-info)
+(put 'flymake-note 'mode-line-face 'flymake-note-echo)
+(put 'flymake-note 'echo-face 'flymake-note-echo)
+(put 'flymake-note 'eol-face 'flymake-note-echo-at-eol)
(put 'flymake-note 'flymake-type-name "note")
(defun flymake--lookup-type-property (type prop &optional default)
@@ -639,6 +700,12 @@ associated `flymake-category' return DEFAULT."
flymake-diagnostic-text)
always (equal (funcall comp a) (funcall comp b)))))
+(defun flymake--delete-overlay (ov)
+ "Like `delete-overlay', delete OV, but do some more stuff."
+ (let ((eolov (overlay-get ov 'eol-ov)))
+ (when eolov (delete-overlay eolov))
+ (delete-overlay ov)))
+
(cl-defun flymake--highlight-line (diagnostic &optional foreign)
"Attempt to overlay DIAGNOSTIC in current buffer.
@@ -678,6 +745,7 @@ Return nil or the overlay created."
;; diagnostic is already registered in the same place, which only
;; happens for clashes between domestic and foreign diagnostics
(cl-loop for e in (flymake-diagnostics beg end)
+ for eov = (flymake--diag-overlay e)
when (flymake--equal-diagnostic-p e diagnostic)
;; FIXME. This is an imperfect heuristic. Ideally, we'd
;; want to delete no overlays and keep annotating the
@@ -693,7 +761,7 @@ Return nil or the overlay created."
(flymake--diag-orig-beg e)
(flymake--diag-end e)
(flymake--diag-orig-end e))
- (delete-overlay (flymake--diag-overlay e))))
+ (flymake--delete-overlay eov)))
(setq ov (make-overlay end beg))
(setf (flymake--diag-beg diagnostic) (overlay-start ov)
(flymake--diag-end diagnostic) (overlay-end ov))
@@ -711,6 +779,39 @@ Return nil or the overlay created."
(flymake--lookup-type-property type 'flymake-overlay-control))
(alist-get type flymake-diagnostic-types-alist))
do (overlay-put ov ov-prop value))
+ ;; Handle `flymake-show-diagnostics-at-end-of-line'
+ ;;
+ (when-let ((eol-face (and flymake-show-diagnostics-at-end-of-line
+ (flymake--lookup-type-property type 'eol-face))))
+ (save-excursion
+ (goto-char (overlay-start ov))
+ (let* ((start (line-end-position))
+ (end (min (1+ start) (point-max)))
+ (eolov (car
+ (cl-remove-if-not
+ (lambda (o) (overlay-get o 'flymake-eol-source-region))
+ (overlays-at start))))
+ (bs (flymake-diagnostic-oneliner diagnostic t)))
+ (setq bs (propertize bs 'face eol-face))
+ ;; FIXME: 1. no checking if there are unexpectedly more than
+ ;; one eolov at point. 2. The first regular source ov to
+ ;; die also kills the eolov (very rare this matters, but
+ ;; could be improved).
+ (cond (eolov
+ (overlay-put eolov 'before-string
+ (concat (overlay-get eolov 'before-string) " "
bs))
+ (let ((e (overlay-get eolov 'flymake-eol-source-region)))
+ (setcar e (min (car e) (overlay-start ov)))
+ (setcdr e (max (cdr e) (overlay-end ov)))))
+ (t
+ (setq eolov (make-overlay start end nil t nil))
+ (setq bs (concat " " bs))
+ (put-text-property 0 1 'cursor t bs)
+ (overlay-put eolov 'before-string bs)
+ (overlay-put eolov 'evaporate (not (= start end)))
+ (overlay-put eolov 'flymake-eol-source-region
+ (cons (overlay-start ov) (overlay-end ov)))
+ (overlay-put ov 'eol-ov eolov))))))
;; Now ensure some essential defaults are set
;;
(cl-flet ((default-maybe
@@ -726,11 +827,13 @@ Return nil or the overlay created."
'flymake-bitmap
(alist-get 'bitmap (alist-get type ; backward compat
flymake-diagnostic-types-alist)))))
+ ;; (default-maybe 'after-string
+ ;; (flymake--diag-text diagnostic))
(default-maybe 'help-echo
(lambda (window _ov pos)
(with-selected-window window
(mapconcat
- #'flymake-diagnostic-text
+ #'flymake-diagnostic-oneliner
(flymake-diagnostics pos)
"\n"))))
(default-maybe 'severity (warning-numeric-level :error))
@@ -856,7 +959,7 @@ report applies to that region."
(maphash (lambda (_buffer diags)
(cl-loop for d in diags
when (flymake--diag-overlay d)
- do (delete-overlay it)))
+ do (flymake--delete-overlay it)))
(flymake--state-foreign-diags state))
(clrhash (flymake--state-foreign-diags state)))
@@ -883,7 +986,7 @@ and other buffers."
(flymake--intersects-p
(overlay-start ov) (overlay-end ov)
(car region) (cdr region)))
- do (delete-overlay ov)
+ do (flymake--delete-overlay ov)
else collect diag into surviving
finally (setf (flymake--state-diags state)
surviving)))
@@ -892,7 +995,7 @@ and other buffers."
(not (flymake--state-reported-p state))
(cl-loop for diag in (flymake--state-diags state)
for ov = (flymake--diag-overlay diag)
- when ov do (delete-overlay ov))
+ when ov do (flymake--delete-overlay ov))
(setf (flymake--state-diags state) nil)
;; Also clear all overlays for `foreign-diags' in all other
;; buffers.
@@ -1136,7 +1239,7 @@ special *Flymake log* buffer." :group 'flymake :lighter
;; existing diagnostic overlays, lest we forget them by blindly
;; reinitializing `flymake--state' in the next line.
;; See https://github.com/joaotavora/eglot/issues/223.
- (mapc #'delete-overlay (flymake--overlays))
+ (mapc #'flymake--delete-overlay (flymake--overlays))
(setq flymake--state (make-hash-table))
(setq flymake--recent-changes nil)
@@ -1183,7 +1286,7 @@ special *Flymake log* buffer." :group 'flymake :lighter
(when flymake-timer
(cancel-timer flymake-timer)
(setq flymake-timer nil))
- (mapc #'delete-overlay (flymake--overlays))
+ (mapc #'flymake--delete-overlay (flymake--overlays))
(when flymake--state
(maphash (lambda (_backend state)
(flymake--clear-foreign-diags state))
@@ -1228,12 +1331,27 @@ Do it only if `flymake-no-changes-timeout' is non-nil."
(make-obsolete 'flymake-mode-on 'flymake-mode "26.1")
(make-obsolete 'flymake-mode-off 'flymake-mode "26.1")
-(defun flymake-after-change-function (start stop _len)
+(defun flymake-after-change-function (start stop pre-change-len)
"Start syntax check for current buffer if it isn't already running.
START and STOP and LEN are as in `after-change-functions'."
(let((new-text (buffer-substring start stop)))
(push (list start stop new-text) flymake--recent-changes)
- (flymake--schedule-timer-maybe)))
+ (flymake--schedule-timer-maybe))
+ ;; Some special handling to prevent eol overlays from temporarily
+ ;; moving to wrong line
+ (when (and flymake-show-diagnostics-at-end-of-line
+ (zerop pre-change-len))
+ (save-excursion
+ (goto-char start)
+ (when-let* ((probe (search-forward "\n" stop t))
+ (eolovs (cl-remove-if-not
+ (lambda (o)
+ (let ((reg (overlay-get o
'flymake-eol-source-region)))
+ (and reg (< (car reg) (1- probe)))))
+ (overlays-at (line-end-position)))))
+ (goto-char start)
+ (let ((newend (line-end-position)))
+ (dolist (ov eolovs) (move-overlay ov newend (1+ newend))))))))
(defun flymake-after-save-hook ()
(when flymake-start-on-save-buffer
@@ -1254,10 +1372,11 @@ START and STOP and LEN are as in
`after-change-functions'."
(defun flymake-eldoc-function (report-doc &rest _)
"Document diagnostics at point.
Intended for `eldoc-documentation-functions' (which see)."
- (let ((diags (flymake-diagnostics (point))))
- (when diags
- (funcall report-doc
- (mapconcat #'flymake-diagnostic-text diags "\n")))))
+ (when-let ((diags (flymake-diagnostics (point))))
+ (funcall report-doc
+ (mapconcat #'flymake-diagnostic-text diags "\n")
+ :echo (mapconcat #'flymake-diagnostic-oneliner
+ diags "\n"))))
(defun flymake-goto-next-error (&optional n filter interactive)
"Go to Nth next Flymake diagnostic that matches FILTER.
@@ -1582,8 +1701,7 @@ filename of the diagnostic relative to that directory."
"\\1\\2" bname)
"(anon)")
'help-echo (format "From `%s' backend" backend))
- (,(replace-regexp-in-string "\n.*" ""
- (flymake-diagnostic-text diag))
+ (,(flymake-diagnostic-oneliner diag t)
mouse-face highlight
help-echo "mouse-2: visit this diagnostic"
face nil
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 060957eac29..4428fa72c78 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2406,7 +2406,7 @@ a GDB/MI reply message."
("+" . ())
("=" . (("thread-created" . (gdb-thread-created . atomic))
("thread-selected" . (gdb-thread-selected . atomic))
- ("thread-existed" . (gdb-ignored-notification . atomic))
+ ("thread-exited" . (gdb-thread-exited . atomic))
('default . (gdb-ignored-notification . atomic)))))
"Alist of alists, mapping the type and class of message to a handler
function.
Handler functions are all flagged as either `progressive' or `atomic'.
@@ -3244,7 +3244,8 @@ Place breakpoint icon in its buffer."
(if (re-search-forward gdb-source-file-regexp nil t)
(progn
(setq source-file (gdb-mi--c-string-from-string (match-string 1)))
- (delete (cons bptno "File not found") gdb-location-alist)
+ (setq gdb-location-alist
+ (delete (cons bptno "File not found") gdb-location-alist))
(push (cons bptno source-file) gdb-location-alist))
(gdb-resync)
(unless (assoc bptno gdb-location-alist)
diff --git a/lisp/progmodes/go-ts-mode.el b/lisp/progmodes/go-ts-mode.el
index e6e8abd6445..32d86f44235 100644
--- a/lisp/progmodes/go-ts-mode.el
+++ b/lisp/progmodes/go-ts-mode.el
@@ -59,6 +59,7 @@
(modify-syntax-entry ?< "." table)
(modify-syntax-entry ?> "." table)
(modify-syntax-entry ?\\ "\\" table)
+ (modify-syntax-entry ?\' "\"" table)
(modify-syntax-entry ?/ ". 124b" table)
(modify-syntax-entry ?* ". 23" table)
(modify-syntax-entry ?\n "> b" table)
@@ -106,6 +107,11 @@
">>" "%=" ">>=" "--" "!" "..." "&^" "&^=" "~")
"Go operators for tree-sitter font-locking.")
+(defun go-ts-mode--iota-query-supported-p ()
+ "Return t if the iota query is supported by the tree-sitter-go grammar."
+ (ignore-errors
+ (or (treesit-query-string "" '((iota) @font-lock-constant-face) 'go) t)))
+
(defvar go-ts-mode--font-lock-settings
(treesit-font-lock-rules
:language 'go
@@ -118,7 +124,9 @@
:language 'go
:feature 'constant
- '([(false) (iota) (nil) (true)] @font-lock-constant-face
+ `([(false) (nil) (true)] @font-lock-constant-face
+ ,@(when (go-ts-mode--iota-query-supported-p)
+ '((iota) @font-lock-constant-face))
(const_declaration
(const_spec name: (identifier) @font-lock-constant-face)))
@@ -255,9 +263,10 @@
(if (treesit-ready-p 'go)
(add-to-list 'auto-mode-alist '("\\.go\\'" . go-ts-mode)))
-(defun go-ts-mode--defun-name (node)
+(defun go-ts-mode--defun-name (node &optional skip-prefix)
"Return the defun name of NODE.
-Return nil if there is no name or if NODE is not a defun node."
+Return nil if there is no name or if NODE is not a defun node.
+Methods are prefixed with the receiver name, unless SKIP-PREFIX is t."
(pcase (treesit-node-type node)
("function_declaration"
(treesit-node-text
@@ -266,11 +275,10 @@ Return nil if there is no name or if NODE is not a defun
node."
t))
("method_declaration"
(let* ((receiver-node (treesit-node-child-by-field-name node "receiver"))
- (type-node (treesit-search-subtree receiver-node
"type_identifier"))
- (name-node (treesit-node-child-by-field-name node "name")))
- (concat
- "(" (treesit-node-text type-node) ")."
- (treesit-node-text name-node))))
+ (receiver (treesit-node-text (treesit-search-subtree receiver-node
"type_identifier")))
+ (method (treesit-node-text (treesit-node-child-by-field-name node
"name"))))
+ (if skip-prefix method
+ (concat "(" receiver ")." method))))
("type_declaration"
(treesit-node-text
(treesit-node-child-by-field-name
@@ -296,7 +304,7 @@ Return nil if there is no name or if NODE is not a defun
node."
(treesit-search-subtree node "type_alias" nil nil 1)))
(defun go-ts-mode--other-type-node-p (node)
- "Return t if NODE is a type, other than interface, struct or alias."
+ "Return t if NODE is a type other than interface, struct, or alias."
(and
(string-equal "type_declaration" (treesit-node-type node))
(not (go-ts-mode--interface-node-p node))
@@ -314,7 +322,7 @@ comment already exists, jump to it."
;; go to top comment line
(while (go-ts-mode--comment-on-previous-line-p)
(forward-line -1))
- (insert "// " (treesit-defun-name defun-node))
+ (insert "// " (go-ts-mode--defun-name defun-node t))
(newline)
(backward-char))))
@@ -351,7 +359,7 @@ comment already exists, jump to it."
"Tree-sitter indent rules for `go-mod-ts-mode'.")
(defun go-mod-ts-mode--in-directive-p ()
- "Return non-nil if inside a directive.
+ "Return non-nil if point is inside a directive.
When entering an empty directive or adding a new entry to one, no node
will be present meaning none of the indentation rules will match,
because there is no parent to match against. This function determines
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 92e018aaec1..2b178e50684 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -135,9 +135,9 @@ Used to gray out relevant toolbar icons.")
(defun gud-goto-info ()
"Go to relevant Emacs info node."
(interactive)
- (if (eq gud-minor-mode 'gdbmi)
- (info-other-window "(emacs)GDB Graphical Interface")
- (info-other-window "(emacs)Debuggers")))
+ (info-other-window (if (eq gud-minor-mode 'gdbmi)
+ "(emacs)GDB Graphical Interface"
+ "(emacs)Debuggers")))
(defun gud-tool-bar-item-visible-no-fringe ()
(not (or (eq (buffer-local-value 'major-mode (window-buffer)) 'speedbar-mode)
@@ -159,14 +159,63 @@ Used to gray out relevant toolbar icons.")
(t
(comint-interrupt-subjob)))))
+(defvar-keymap gud-text-menu-bar-map
+ :doc "Menu-bar keymap used in GUD buffers on text frames."
+ ;; Use the menu-bar as a pseudo-tool-bar.
+ "<down>" `(,(propertize "down" 'face 'font-lock-doc-face) . gud-down)
+ "<up>" `(,(propertize "up" 'face 'font-lock-doc-face) . gud-up)
+ "<finish>" `(,(propertize "finish" 'face 'font-lock-doc-face) . gud-finish)
+ "<step>" `(,(propertize "step" 'face 'font-lock-doc-face) . gud-step)
+ "<next>" `(,(propertize "next" 'face 'font-lock-doc-face) . gud-next)
+ "<until>" `(menu-item
+ ,(propertize "until" 'face 'font-lock-doc-face) gud-until
+ :visible (memq gud-minor-mode '(gdbmi gdb perldb)))
+ "<cont>" `(menu-item
+ ,(propertize "cont" 'face 'font-lock-doc-face) gud-cont
+ :visible (not (eq gud-minor-mode 'gdbmi)))
+ "<run>" `(menu-item
+ ,(propertize "run" 'face 'font-lock-doc-face) gud-run
+ :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
+ "<go>" `(menu-bar-item
+ ,(propertize " go " 'face 'font-lock-doc-face) gud-go
+ :visible (and (eq gud-minor-mode 'gdbmi)
+ (gdb-show-run-p)))
+ "<stop>" `(menu-item
+ ,(propertize "stop" 'face 'font-lock-doc-face) gud-stop-subjob
+ :visible (or (and (eq gud-minor-mode 'gdbmi)
+ (gdb-show-stop-p))
+ (not (eq gud-minor-mode 'gdbmi))))
+ "<print>" `(,(propertize "print" 'face 'font-lock-doc-face) . gud-print)
+ ;; Hide the usual menus to make room.
+ "<tools>" #'undefined
+ "<buffer>" #'undefined
+ "<options>" #'undefined
+ "<edit>" #'undefined
+ "<file>" #'undefined)
+
+(defvar-keymap gud-menu-mode-map
+ :doc "Keymap shared between `gud-mode' and `gud-minor-mode'.")
+
(defvar-keymap gud-mode-map
- ;; Will inherit from comint-mode via define-derived-mode.
- :doc "`gud-mode' keymap.")
+ :doc "`gud-mode' keymap."
+ ;; BEWARE: `gud-mode-map' does not inherit from something like
+ ;; `gud-menu-mode-map' because the `gud-mode' buffer is also in
+ ;; `gud-minor-mode'.
+ ;;:parent (make-composed-keymap gud-menu-mode-map comint-mode-map)
+ )
(defvar-keymap gud-minor-mode-map
- :parent gud-mode-map)
-
-(easy-menu-define gud-menu-map gud-mode-map
+ ;; Part of the menu is dynamic, so we use 2 keymaps: `gud-menu-mode-map'
+ ;; is the static/normal menu defined with easy-menu, and
+ ;; `gud-text-menu-bar-map' is the part that's only used on text frames.
+ ;; We then merge them here into `gud-minor-mode-map'.
+ :parent gud-menu-mode-map
+ "<menu-bar>" `(menu-item nil ,gud-text-menu-bar-map
+ ;; Be careful to return an empty keymap rather than nil
+ ;; so as not to hide the parent's menus.
+ :filter ,(lambda (map) (if window-system '(keymap) map))))
+
+(easy-menu-define gud-menu-map gud-menu-mode-map
"Menu for `gud-mode'."
'("Gud"
["Continue" gud-cont
@@ -276,7 +325,7 @@ Used to gray out relevant toolbar icons.")
(gud-goto-info . "info"))
map)
(tool-bar-local-item-from-menu
- (car x) (cdr x) map gud-minor-mode-map))))
+ (car x) (cdr x) map gud-menu-mode-map))))
(defvar gud-gdb-repeat-map
(let ((map (make-sparse-keymap)))
@@ -535,9 +584,9 @@ required by the caller."
(value (nth 4 var)) (status (nth 5 var))
(has-more (nth 6 var)))
(put-text-property
- 0 (length expr) 'face font-lock-variable-name-face expr)
+ 0 (length expr) 'face 'font-lock-variable-name-face expr)
(put-text-property
- 0 (length type) 'face font-lock-type-face type)
+ 0 (length type) 'face 'font-lock-type-face type)
(while (string-match "\\." varnum start)
(setq depth (1+ depth)
start (1+ (match-beginning 0))))
@@ -1260,7 +1309,7 @@ whereby $stopformat=1 produces an output format
compatible with
(define-key map key cmd))
(when (or gud-mips-p
gud-irix-p)
- (define-key map "f" 'gud-finish))
+ (define-key map "f" #'gud-finish))
map)
"Keymap to repeat `dbx' stepping instructions \\`C-x C-a C-n n n'.
Used in `repeat-mode'.")
@@ -3101,7 +3150,7 @@ Obeying it means displaying in another window the
specified file and line."
(defun gud-basic-call (command)
"Invoke the debugger COMMAND displaying source in other window."
- (interactive)
+ (interactive "sInvoke debugger command: ")
(gud-set-buffer)
(let ((proc (get-buffer-process gud-comint-buffer)))
(or proc (error "Current buffer has no process"))
@@ -3422,9 +3471,9 @@ class of the file (using s to separate nested class ids)."
(defun gdb-script-font-lock-syntactic-face (state)
(cond
- ((nth 3 state) font-lock-string-face)
- ((nth 7 state) font-lock-doc-face)
- (t font-lock-comment-face)))
+ ((nth 3 state) 'font-lock-string-face)
+ ((nth 7 state) 'font-lock-doc-face)
+ (t 'font-lock-comment-face)))
(defvar gdb-script-basic-indent 2)
@@ -3455,7 +3504,7 @@ class of the file (using s to separate nested class ids)."
(defun gdb-script-indent-line ()
"Indent current line of GDB script."
(interactive)
- (if (and (eq (get-text-property (point) 'face) font-lock-doc-face)
+ (if (and (eq (get-text-property (point) 'face) 'font-lock-doc-face)
(save-excursion
(forward-line 0)
(skip-chars-forward " \t")
diff --git a/lisp/progmodes/heex-ts-mode.el b/lisp/progmodes/heex-ts-mode.el
new file mode 100644
index 00000000000..68a537b9229
--- /dev/null
+++ b/lisp/progmodes/heex-ts-mode.el
@@ -0,0 +1,185 @@
+;;; heex-ts-mode.el --- Major mode for Heex with tree-sitter support -*-
lexical-binding: t; -*-
+
+;; Copyright (C) 2022-2023 Free Software Foundation, Inc.
+
+;; Author: Wilhelm H Kirschbaum <wkirschbaum@gmail.com>
+;; Created: November 2022
+;; Keywords: elixir languages tree-sitter
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; This package provides `heex-ts-mode' which is a major mode for editing
+;; HEEx files that uses Tree Sitter to parse the language.
+;;
+;; This package is compatible with and was tested against the tree-sitter
grammar
+;; for HEEx found at https://github.com/phoenixframework/tree-sitter-heex.
+
+;;; Code:
+
+(require 'treesit)
+(eval-when-compile (require 'rx))
+
+(declare-function treesit-parser-create "treesit.c")
+(declare-function treesit-node-child "treesit.c")
+(declare-function treesit-node-type "treesit.c")
+(declare-function treesit-node-start "treesit.c")
+
+(defgroup heex-ts nil
+ "Major mode for editing HEEx code."
+ :prefix "heex-ts-"
+ :group 'langauges)
+
+(defcustom heex-ts-indent-offset 2
+ "Indentation of HEEx statements."
+ :version "30.1"
+ :type 'integer
+ :safe 'integerp
+ :group 'heex-ts)
+
+(defconst heex-ts--sexp-regexp
+ (rx bol
+ (or "directive" "tag" "component" "slot"
+ "attribute" "attribute_value" "quoted_attribute_value")
+ eol))
+
+;; There seems to be no parent directive block for tree-sitter-heex,
+;; so we ignore them for now until we learn how to query them.
+;; https://github.com/phoenixframework/tree-sitter-heex/issues/28
+(defvar heex-ts--indent-rules
+ (let ((offset heex-ts-indent-offset))
+ `((heex
+ ((parent-is "fragment")
+ (lambda (node parent &rest _)
+ ;; If HEEx is embedded indent to parent
+ ;; otherwise indent to the bol.
+ (if (eq (treesit-language-at (point-min)) 'heex)
+ (point-min)
+ (save-excursion
+ (goto-char (treesit-node-start parent))
+ (back-to-indentation)
+ (point))
+ )) 0)
+ ((node-is "end_tag") parent-bol 0)
+ ((node-is "end_component") parent-bol 0)
+ ((node-is "end_slot") parent-bol 0)
+ ((node-is "/>") parent-bol 0)
+ ((node-is ">") parent-bol 0)
+ ((parent-is "comment") prev-adaptive-prefix 0)
+ ((parent-is "component") parent-bol ,offset)
+ ((parent-is "tag") parent-bol ,offset)
+ ((parent-is "start_tag") parent-bol ,offset)
+ ((parent-is "component") parent-bol ,offset)
+ ((parent-is "start_component") parent-bol ,offset)
+ ((parent-is "slot") parent-bol ,offset)
+ ((parent-is "start_slot") parent-bol ,offset)
+ ((parent-is "self_closing_tag") parent-bol ,offset)
+ (no-node parent-bol ,offset)))))
+
+(defvar heex-ts--font-lock-settings
+ (when (treesit-available-p)
+ (treesit-font-lock-rules
+ :language 'heex
+ :feature 'heex-comment
+ '((comment) @font-lock-comment-face)
+ :language 'heex
+ :feature 'heex-doctype
+ '((doctype) @font-lock-doc-face)
+ :language 'heex
+ :feature 'heex-tag
+ `([(tag_name) (slot_name)] @font-lock-function-name-face)
+ :language 'heex
+ :feature 'heex-attribute
+ `((attribute_name) @font-lock-variable-name-face)
+ :language 'heex
+ :feature 'heex-keyword
+ `((special_attribute_name) @font-lock-keyword-face)
+ :language 'heex
+ :feature 'heex-string
+ `([(attribute_value) (quoted_attribute_value)] @font-lock-constant-face)
+ :language 'heex
+ :feature 'heex-component
+ `([
+ (component_name) @font-lock-function-name-face
+ (module) @font-lock-keyword-face
+ (function) @font-lock-keyword-face
+ "." @font-lock-keyword-face
+ ])))
+ "Tree-sitter font-lock settings.")
+
+(defun heex-ts--defun-name (node)
+ "Return the name of the defun NODE.
+Return nil if NODE is not a defun node or doesn't have a name."
+ (pcase (treesit-node-type node)
+ ((or "component" "slot" "tag")
+ (string-trim
+ (treesit-node-text
+ (treesit-node-child (treesit-node-child node 0) 1) nil)))
+ (_ nil)))
+
+(defun heex-ts--forward-sexp (&optional arg)
+ "Move forward across one balanced expression (sexp).
+With ARG, do it many times. Negative ARG means move backward."
+ (or arg (setq arg 1))
+ (funcall
+ (if (> arg 0) #'treesit-end-of-thing #'treesit-beginning-of-thing)
+ heex-ts--sexp-regexp
+ (abs arg)))
+
+;;;###autoload
+(define-derived-mode heex-ts-mode html-mode "HEEx"
+ "Major mode for editing HEEx, powered by tree-sitter."
+ :group 'heex-ts
+
+ (when (treesit-ready-p 'heex)
+ (treesit-parser-create 'heex)
+
+ ;; Comments
+ (setq-local treesit-text-type-regexp
+ (regexp-opt '("comment" "text")))
+
+ (setq-local forward-sexp-function #'heex-ts--forward-sexp)
+
+ ;; Navigation.
+ (setq-local treesit-defun-type-regexp
+ (rx bol (or "component" "tag" "slot") eol))
+ (setq-local treesit-defun-name-function #'heex-ts--defun-name)
+
+ ;; Imenu
+ (setq-local treesit-simple-imenu-settings
+ '(("Component" "\\`component\\'" nil nil)
+ ("Slot" "\\`slot\\'" nil nil)
+ ("Tag" "\\`tag\\'" nil nil)))
+
+ (setq-local treesit-font-lock-settings heex-ts--font-lock-settings)
+
+ (setq-local treesit-simple-indent-rules heex-ts--indent-rules)
+
+ (setq-local treesit-font-lock-feature-list
+ '(( heex-comment heex-keyword heex-doctype )
+ ( heex-component heex-tag heex-attribute heex-string )
+ () ()))
+
+ (treesit-major-mode-setup)))
+
+(if (treesit-ready-p 'heex)
+ ;; Both .heex and the deprecated .leex files should work
+ ;; with the tree-sitter-heex grammar.
+ (add-to-list 'auto-mode-alist '("\\.[hl]?eex\\'" . heex-ts-mode)))
+
+(provide 'heex-ts-mode)
+;;; heex-ts-mode.el ends here
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 0b5ed93068a..488e6aa3d2d 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -3891,7 +3891,7 @@ you specify /."
(while (and item)
;;
;; Call etags
- (if (not (string-match "^[ \\t]*$" item))
+ (if (not (string-match "^[ \t]*$" item))
(progn
(message "%s" (concat "Tagging " item "..."))
(setq errbuf (get-buffer-create "*idltags-error*"))
@@ -4653,7 +4653,7 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.")
(setcar alias (car x))
(push alias idlwave-system-routines)))
(cl-loop for x in remove-list do
- (delq x idlwave-system-routines))))
+ (setq idlwave-system-routines (delq x idlwave-system-routines)))))
(defun idlwave-convert-xml-clean-sysvar-aliases (aliases)
;; Duplicate and trim original routine aliases from rinfo list
@@ -4666,7 +4666,8 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.")
(setcar alias (car x))
(push alias idlwave-system-variables-alist)))
(cl-loop for x in remove-list do
- (delq x idlwave-system-variables-alist))))
+ (setq idlwave-system-variables-alist
+ (delq x idlwave-system-variables-alist)))))
(defun idlwave-xml-create-sysvar-alist (xml-entry)
diff --git a/lisp/progmodes/java-ts-mode.el b/lisp/progmodes/java-ts-mode.el
index 1115eadde7f..8a396a8c977 100644
--- a/lisp/progmodes/java-ts-mode.el
+++ b/lisp/progmodes/java-ts-mode.el
@@ -36,6 +36,8 @@
(declare-function treesit-node-start "treesit.c")
(declare-function treesit-node-type "treesit.c")
(declare-function treesit-node-child-by-field-name "treesit.c")
+(declare-function treesit-node-child-by-field-name "treesit.c")
+(declare-function treesit-query-capture "treesit.c")
(defcustom java-ts-mode-indent-offset 4
"Number of spaces for each indentation step in `java-ts-mode'."
@@ -145,6 +147,16 @@
"|=" "~" ">>" ">>>" "<<" "::" "?" "&=")
"Java operators for tree-sitter font-locking.")
+(defun java-ts-mode--string-highlight-helper ()
+"Returns, for strings, a query based on what is supported by
+the available version of Tree-sitter for java."
+ (condition-case nil
+ (progn (treesit-query-capture 'java '((text_block)
@font-lock-string-face))
+ `((string_literal) @font-lock-string-face
+ (text_block) @font-lock-string-face))
+ (error
+ `((string_literal) @font-lock-string-face))))
+
(defvar java-ts-mode--font-lock-settings
(treesit-font-lock-rules
:language 'java
@@ -182,8 +194,7 @@
:language 'java
:override t
:feature 'string
- `((string_literal) @font-lock-string-face
- (text_block) @font-lock-string-face)
+ (java-ts-mode--string-highlight-helper)
:language 'java
:override t
:feature 'literal
@@ -215,6 +226,9 @@
(constructor_declaration
name: (identifier) @font-lock-type-face)
+ (compact_constructor_declaration
+ name: (identifier) @font-lock-type-face)
+
(field_access
object: (identifier) @font-lock-type-face)
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index 087974bd1f0..5ea03b9e852 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -1326,14 +1326,12 @@ Fill comments, backslashed lines, and variable
definitions specially."
(let ((inhibit-read-only t))
(goto-char (point-min))
(erase-buffer)
- (mapconcat
+ (mapc
(lambda (item) (insert (makefile-browser-format-target-line (car item)
nil) "\n"))
- targets
- "")
- (mapconcat
+ targets)
+ (mapc
(lambda (item) (insert (makefile-browser-format-macro-line (car item)
nil) "\n"))
- macros
- "")
+ macros)
(sort-lines nil (point-min) (point-max))
(goto-char (1- (point-max)))
(delete-char 1) ; remove unnecessary newline at eob
diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index 04071703184..a434c7e9058 100644
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -36,6 +36,7 @@
(declare-function treesit-available-p "treesit.c")
(declare-function treesit-parser-list "treesit.c")
(declare-function treesit-node-type "treesit.c")
+(declare-function treesit-node-at "treesit.c")
(defgroup prog-mode nil
"Generic programming mode, from which others derive."
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 11228226592..56c524bcab5 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -202,6 +202,17 @@ CL struct.")
"Value to use instead of `default-directory' when detecting the project.
When it is non-nil, `project-current' will always skip prompting too.")
+(defcustom project-prompter #'project-prompt-project-dir
+ "Function to call to prompt for a project.
+Called with no arguments and should return a project root dir."
+ :type '(choice (const :tag "Prompt for a project directory"
+ project-prompt-project-dir)
+ (const :tag "Prompt for a project name"
+ project-prompt-project-name)
+ (function :tag "Custom function" nil))
+ :group 'project
+ :version "30.1")
+
;;;###autoload
(defun project-current (&optional maybe-prompt directory)
"Return the project instance in DIRECTORY, defaulting to `default-directory'.
@@ -226,7 +237,7 @@ of the project instance object."
(pr)
((unless project-current-directory-override
maybe-prompt)
- (setq directory (project-prompt-project-dir)
+ (setq directory (funcall project-prompter)
pr (project--find-in-directory directory))))
(when maybe-prompt
(if pr
@@ -401,8 +412,8 @@ the buffer's value of `default-directory'."
(defcustom project-vc-ignores nil
"List of patterns to add to `project-ignores'."
- :type '(repeat string)
- :safe #'listp)
+ :type '(repeat string))
+;;;###autoload(put 'project-vc-ignores 'safe-local-variable #'listp)
(defcustom project-vc-merge-submodules t
"Non-nil to consider submodules part of the parent project.
@@ -411,14 +422,14 @@ After changing this variable (using Customize or
.dir-locals.el)
you might have to restart Emacs to see the effect."
:type 'boolean
:version "28.1"
- :package-version '(project . "0.2.0")
- :safe #'booleanp)
+ :package-version '(project . "0.2.0"))
+;;;###autoload(put 'project-vc-merge-submodules 'safe-local-variable
#'booleanp)
(defcustom project-vc-include-untracked t
"When non-nil, the VC-aware project backend includes untracked files."
:type 'boolean
- :version "29.1"
- :safe #'booleanp)
+ :version "29.1")
+;;;###autoload(put 'project-vc-include-untracked 'safe-local-variable
#'booleanp)
(defcustom project-vc-name nil
"When non-nil, the name of the current VC-aware project.
@@ -428,8 +439,8 @@ its name, is by setting this in .dir-locals.el."
:type '(choice (const :tag "Default to the base name" nil)
(string :tag "Custom name"))
:version "29.1"
- :package-version '(project . "0.9.0")
- :safe #'stringp)
+ :package-version '(project . "0.9.0"))
+;;;###autoload(put 'project-vc-name 'safe-local-variable #'stringp)
;; Not using regexps because these wouldn't work in Git pathspecs, in
;; case we decide we need to be able to list nested projects.
@@ -456,8 +467,8 @@ In either case, their behavior will still obey the relevant
variables, such as `project-vc-ignores' or `project-vc-name'."
:type '(repeat string)
:version "29.1"
- :package-version '(project . "0.9.0")
- :safe (lambda (val) (and (listp val) (cl-every #'stringp val))))
+ :package-version '(project . "0.9.0"))
+;;;###autoload(put 'project-vc-extra-root-markers 'safe-local-variable (lambda
(val) (and (listp val) (not (memq nil (mapcar #'stringp val))))))
;; FIXME: Using the current approach, major modes are supposed to set
;; this variable to a buffer-local value. So we don't have access to
@@ -805,8 +816,8 @@ DIRS must contain directory names."
(push buf bufs)))
(nreverse bufs)))
-(cl-defmethod project-name ((_project (head vc)))
- (or project-vc-name
+(cl-defmethod project-name ((project (head vc)))
+ (or (project--value-in-dir 'project-vc-name (project-root project))
(cl-call-next-method)))
@@ -1216,7 +1227,10 @@ To continue searching for the next match, use the
command \\[fileloop-continue]."
(interactive "sSearch (regexp): ")
(fileloop-initialize-search
- regexp (project-files (project-current t)) 'default)
+ regexp
+ ;; XXX: See the comment in project-query-replace-regexp.
+ (cl-delete-if-not #'file-regular-p (project-files (project-current t)))
+ 'default)
(fileloop-continue))
;;;###autoload
@@ -1248,8 +1262,10 @@ If you exit the `query-replace', you can later continue
the
(defun project-prefixed-buffer-name (mode)
(concat "*"
- (file-name-nondirectory
- (directory-file-name default-directory))
+ (if-let ((proj (project-current nil)))
+ (project-name proj)
+ (file-name-nondirectory
+ (directory-file-name default-directory)))
"-"
(downcase mode)
"*"))
@@ -1261,7 +1277,7 @@ If non-nil, it overrides
`compilation-buffer-name-function' for
:version "28.1"
:group 'project
:type '(choice (const :tag "Default" nil)
- (const :tag "Prefixed with root directory name"
+ (const :tag "Prefixed with project name"
project-prefixed-buffer-name)
(function :tag "Custom function")))
@@ -1311,13 +1327,23 @@ general form of conditions."
(and (memq (cdr buffer) buffers)
(not
(project--buffer-check
- (cdr buffer) project-ignore-buffer-conditions))))))
- (read-buffer
- "Switch to buffer: "
- (when (funcall predicate (cons other-name other-buffer))
- other-name)
- nil
- predicate)))
+ (cdr buffer) project-ignore-buffer-conditions)))))
+ (buffer (read-buffer
+ "Switch to buffer: "
+ (when (funcall predicate (cons other-name other-buffer))
+ other-name)
+ nil
+ predicate)))
+ ;; XXX: This check hardcodes the default buffer-belonging relation
+ ;; which `project-buffers' is allowed to override. Straighten
+ ;; this up sometime later. Or not. Since we can add a method
+ ;; `project-contains-buffer-p', but a separate method to create a
+ ;; new project buffer seems too much.
+ (if (or (get-buffer buffer)
+ (file-in-directory-p default-directory (project-root pr)))
+ buffer
+ (let ((default-directory (project-root pr)))
+ (get-buffer-create buffer)))))
;;;###autoload
(defun project-switch-to-buffer (buffer-or-name)
@@ -1450,8 +1476,8 @@ Used by `project-kill-buffers'."
:type 'boolean
:version "29.1"
:group 'project
- :package-version '(project . "0.8.2")
- :safe #'booleanp)
+ :package-version '(project . "0.8.2"))
+;;;###autoload(put 'project-kill-buffers-display-buffer-list
'safe-local-variable #'booleanp)
(defun project--buffer-check (buf conditions)
"Check if buffer BUF matches any element of the list CONDITIONS.
@@ -1613,7 +1639,7 @@ passed to `message' as its first argument."
"Remove directory PROJECT-ROOT from the project list.
PROJECT-ROOT is the root directory of a known project listed in
the project list."
- (interactive (list (project-prompt-project-dir)))
+ (interactive (list (funcall project-prompter)))
(project--remove-from-project-list
project-root "Project `%s' removed from known projects"))
@@ -1637,6 +1663,32 @@ It's also possible to enter an arbitrary directory not
in the list."
(read-directory-name "Select directory: " default-directory nil t)
pr-dir)))
+(defun project-prompt-project-name ()
+ "Prompt the user for a project, by name, that is one of the known project
roots.
+The project is chosen among projects known from the project list,
+see `project-list-file'.
+It's also possible to enter an arbitrary directory not in the list."
+ (let* ((dir-choice "... (choose a dir)")
+ (choices
+ (let (ret)
+ (dolist (dir (project-known-project-roots))
+ ;; we filter out directories that no longer map to a project,
+ ;; since they don't have a clean project-name.
+ (if-let (proj (project--find-in-directory dir))
+ (push (cons (project-name proj) proj) ret)))
+ ret))
+ ;; XXX: Just using this for the category (for the substring
+ ;; completion style).
+ (table (project--file-completion-table (cons dir-choice choices)))
+ (pr-name ""))
+ (while (equal pr-name "")
+ ;; If the user simply pressed RET, do this again until they don't.
+ (setq pr-name (completing-read "Select project: " table nil t)))
+ (if (equal pr-name dir-choice)
+ (read-directory-name "Select directory: " default-directory nil t)
+ (let ((proj (assoc pr-name choices)))
+ (if (stringp proj) proj (project-root (cdr proj)))))))
+
;;;###autoload
(defun project-known-project-roots ()
"Return the list of root directories of all known projects."
@@ -1756,11 +1808,12 @@ invoked immediately without any dispatch menu."
(symbol :tag "Single command")))
(defcustom project-switch-use-entire-map nil
- "Make `project-switch-project' use entire `project-prefix-map'.
+ "Whether `project-switch-project' will use the entire `project-prefix-map'.
If nil, `project-switch-project' will only recognize commands
-listed in `project-switch-commands' and signal an error when
-others are invoked. Otherwise, all keys in `project-prefix-map'
-are legal even if they aren't listed in the dispatch menu."
+listed in `project-switch-commands', and will signal an error
+when other commands are invoked. If this is non-nil, all the
+keys in `project-prefix-map' are valid even if they aren't
+listed in the dispatch menu produced from `project-switch-commands'."
:type 'boolean
:group 'project
:version "28.1")
@@ -1824,7 +1877,7 @@ made from `project-switch-commands'.
When called in a program, it will use the project corresponding
to directory DIR."
- (interactive (list (project-prompt-project-dir)))
+ (interactive (list (funcall project-prompter)))
(let ((command (if (symbolp project-switch-commands)
project-switch-commands
(project--switch-project-command))))
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 1b48fe9c3a8..66dea8803b3 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -828,7 +828,7 @@ Relevant only when `prolog-imenu-flag' is non-nil."
((not (zerop (skip-chars-forward prolog-operator-chars))))
((not (zerop (skip-syntax-forward "w_'"))))
;; In case of non-ASCII punctuation.
- ((not (zerop (skip-syntax-forward ".")))))
+ (t (skip-syntax-forward ".")))
(point))))
(defun prolog-smie-backward-token ()
@@ -842,7 +842,7 @@ Relevant only when `prolog-imenu-flag' is non-nil."
((not (zerop (skip-chars-backward prolog-operator-chars))))
((not (zerop (skip-syntax-backward "w_'"))))
;; In case of non-ASCII punctuation.
- ((not (zerop (skip-syntax-backward ".")))))
+ (t (skip-syntax-backward ".")))
(point))))
(defconst prolog-smie-grammar
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 1f970633bfc..86bbf51dab7 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -415,7 +415,6 @@ instead."
"Python mode specialized rx macro.
This variant of `rx' supports common Python named REGEXPS."
`(rx-let ((sp-bsnl (or space (and ?\\ ?\n)))
- (sp-nl (or space (and (? ?\\) ?\n)))
(block-start (seq symbol-start
(or "def" "class" "if" "elif" "else" "try"
"except" "finally" "for" "while" "with"
@@ -426,7 +425,7 @@ This variant of `rx' supports common Python named REGEXPS."
(or "def" "for" "with")))
symbol-end))
(dedenter (seq symbol-start
- (or "elif" "else" "except" "finally")
+ (or "elif" "else" "except" "finally"
"case")
symbol-end))
(block-ender (seq symbol-start
(or
@@ -511,19 +510,28 @@ This variant of `rx' supports common Python named
REGEXPS."
(''string
`(let ((ppss (or ,syntax-ppss (syntax-ppss))))
(and (nth 3 ppss) (nth 8 ppss))))
+ (''single-quoted-string
+ `(let ((ppss (or ,syntax-ppss (syntax-ppss))))
+ (and (characterp (nth 3 ppss)) (nth 8 ppss))))
+ (''triple-quoted-string
+ `(let ((ppss (or ,syntax-ppss (syntax-ppss))))
+ (and (eq t (nth 3 ppss)) (nth 8 ppss))))
(''paren
`(nth 1 (or ,syntax-ppss (syntax-ppss))))
(_ form))))
(defun python-syntax-context (type &optional syntax-ppss)
"Return non-nil if point is on TYPE using SYNTAX-PPSS.
-TYPE can be `comment', `string' or `paren'. It returns the start
+TYPE can be `comment', `string', `single-quoted-string',
+`triple-quoted-string' or `paren'. It returns the start
character address of the specified TYPE."
(declare (compiler-macro python-syntax--context-compiler-macro))
(let ((ppss (or syntax-ppss (syntax-ppss))))
(pcase type
('comment (and (nth 4 ppss) (nth 8 ppss)))
('string (and (nth 3 ppss) (nth 8 ppss)))
+ ('single-quoted-string (and (characterp (nth 3 ppss)) (nth 8 ppss)))
+ ('triple-quoted-string (and (eq t (nth 3 ppss)) (nth 8 ppss)))
('paren (nth 1 ppss))
(_ nil))))
@@ -641,9 +649,9 @@ the {...} holes that appear within f-strings."
finally return (and result-valid result))))
(defvar python-font-lock-keywords-level-1
- `((,(python-rx symbol-start "def" (1+ sp-bsnl) (group symbol-name))
+ `((,(python-rx symbol-start "def" (1+ space) (group symbol-name))
(1 font-lock-function-name-face))
- (,(python-rx symbol-start "class" (1+ sp-bsnl) (group symbol-name))
+ (,(python-rx symbol-start "class" (1+ space) (group symbol-name))
(1 font-lock-type-face)))
"Font lock keywords to use in `python-mode' for level 1 decoration.
@@ -783,12 +791,12 @@ sign in chained assignment."
;; [*a] = 5, 6
;; are handled separately below
(,(python-font-lock-assignment-matcher
- (python-rx (? (or "[" "(") (* sp-nl))
- grouped-assignment-target (* sp-nl) ?, (* sp-nl)
- (* assignment-target (* sp-nl) ?, (* sp-nl))
- (? assignment-target (* sp-nl))
- (? ?, (* sp-nl))
- (? (or ")" "]") (* sp-bsnl))
+ (python-rx (? (or "[" "(") (* space))
+ grouped-assignment-target (* space) ?, (* space)
+ (* assignment-target (* space) ?, (* space))
+ (? assignment-target (* space))
+ (? ?, (* space))
+ (? (or ")" "]") (* space))
(group assignment-operator)))
(1 font-lock-variable-name-face)
(2 'font-lock-operator-face)
@@ -804,9 +812,9 @@ sign in chained assignment."
;; c: Collection = {1, 2, 3}
;; d: Mapping[int, str] = {1: 'bar', 2: 'baz'}
(,(python-font-lock-assignment-matcher
- (python-rx (or line-start ?\;) (* sp-bsnl)
- grouped-assignment-target (* sp-bsnl)
- (? ?: (* sp-bsnl) (+ not-simple-operator) (* sp-bsnl))
+ (python-rx (or line-start ?\;) (* space)
+ grouped-assignment-target (* space)
+ (? ?: (* space) (+ not-simple-operator) (* space))
(group assignment-operator)))
(1 font-lock-variable-name-face)
(2 'font-lock-operator-face))
@@ -815,10 +823,10 @@ sign in chained assignment."
;; [a] = 5,
;; [*a] = 5, 6
(,(python-font-lock-assignment-matcher
- (python-rx (or line-start ?\; ?=) (* sp-bsnl)
- (or "[" "(") (* sp-nl)
- grouped-assignment-target (* sp-nl)
- (or ")" "]") (* sp-bsnl)
+ (python-rx (or line-start ?\; ?=) (* space)
+ (or "[" "(") (* space)
+ grouped-assignment-target (* space)
+ (or ")" "]") (* space)
(group assignment-operator)))
(1 font-lock-variable-name-face)
(2 'font-lock-operator-face))
@@ -860,18 +868,6 @@ decorators, exceptions, and assignments.")
Which one will be chosen depends on the value of
`font-lock-maximum-decoration'.")
-(defun python-font-lock-extend-region (beg end _old-len)
- "Extend font-lock region given by BEG and END to statement boundaries."
- (save-excursion
- (save-match-data
- (goto-char beg)
- (python-nav-beginning-of-statement)
- (setq beg (point))
- (goto-char end)
- (python-nav-end-of-statement)
- (setq end (point))
- (cons beg end))))
-
(defconst python-syntax-propertize-function
(syntax-propertize-rules
@@ -1256,11 +1252,59 @@ For NODE, OVERRIDE, START, END, and ARGS, see
:type '(repeat symbol))
(defcustom python-indent-def-block-scale 2
- "Multiplier applied to indentation inside multi-line def blocks."
+ "Multiplier applied to indentation inside multi-line blocks.
+The indentation in parens in the block header will be the current
+indentation plus `python-indent-offset' multiplied by this
+variable. For example, the arguments are indented as follows if
+this variable is 1:
+
+ def do_something(
+ arg1,
+ arg2):
+ print('hello')
+
+if this variable is 2 (default):
+
+ def do_something(
+ arg1,
+ arg2):
+ print('hello')
+
+This variable has an effect on all blocks, not just def block.
+This variable only works if the opening paren is not followed by
+non-whitespace characters on the same line. Modify
+`python-indent-block-paren-deeper' to customize the case where
+non-whitespace characters follow the opening paren on the same
+line."
:version "26.1"
:type 'integer
:safe 'natnump)
+(defcustom python-indent-block-paren-deeper nil
+ "Increase indentation inside parens of a block.
+If non-nil, increase the indentation of the lines inside parens
+in a header of a block when they are indented to the same level
+as the body of the block:
+
+ if (some_expression
+ and another_expression):
+ do_something()
+
+instead of:
+
+ if (some_expression
+ and another_expression):
+ do_something()
+
+This variable only works if the opening paren is followed by
+non-whitespace characters on the same line. Modify
+`python-indent-def-block-scale' to customize the case where
+non-whitespace character does not follow the opening paren on the
+same line."
+ :version "30.1"
+ :type 'boolean
+ :safe 'booleanp)
+
(defvar python-indent-current-level 0
"Deprecated var available for compatibility.")
@@ -1358,6 +1402,10 @@ keyword
- Point is inside a paren with items starting in their own line
from a block start.
- START is the position of the open paren.
+:inside-paren-from-block
+ - Point is inside a paren from a block start followed by some
+ items on the same line.
+ - START is the first non space char position *after* the open paren.
:after-backslash
- Fallback case when point is after backslash.
@@ -1441,12 +1489,16 @@ keyword
(starts-in-newline
(cons :inside-paren-newline-start start))
;; General case.
- (t (cons :inside-paren
- (save-excursion
- (goto-char (1+ start))
- (skip-syntax-forward "(" 1)
- (skip-syntax-forward " ")
- (point))))))))
+ (t (let ((after-start (save-excursion
+ (goto-char (1+ start))
+ (skip-syntax-forward "(" 1)
+ (skip-syntax-forward " ")
+ (point))))
+ (if (save-excursion
+ (python-nav-beginning-of-statement)
+ (python-info-looking-at-beginning-of-block))
+ (cons :inside-paren-from-block after-start)
+ (cons :inside-paren after-start))))))))
;; After backslash.
((let ((start (when (not (python-syntax-comment-or-string-p ppss))
(python-info-line-ends-backslash-p
@@ -1594,7 +1646,17 @@ possibilities can be narrowed to specific indentation
points."
(`(,(or :inside-paren-newline-start-from-block) . ,start)
(goto-char start)
(+ (current-indentation)
- (* python-indent-offset python-indent-def-block-scale))))))
+ (* python-indent-offset python-indent-def-block-scale)))
+ (`(,:inside-paren-from-block . ,start)
+ (goto-char start)
+ (let ((column (current-column)))
+ (if (and python-indent-block-paren-deeper
+ (= column (+ (save-excursion
+ (python-nav-beginning-of-statement)
+ (current-indentation))
+ python-indent-offset)))
+ (+ column python-indent-offset)
+ column))))))
(defun python-indent--calculate-levels (indentation)
"Calculate levels list given INDENTATION.
@@ -2062,10 +2124,6 @@ of the statement."
;; are somehow out of whack. This has been
;; observed when using `syntax-ppss' during
;; narrowing.
- ;; It can also fail in cases where the buffer is in
- ;; the process of being modified, e.g. when creating
- ;; a string with `electric-pair-mode' disabled such
- ;; that there can be an unmatched single quote
(when (>= string-start last-string-end)
(goto-char string-start)
(if (python-syntax-context 'paren)
@@ -2076,10 +2134,16 @@ of the statement."
(goto-char (+ (point)
(python-syntax-count-quotes
(char-after (point)) (point))))
- (setq last-string-end
- (or (re-search-forward
- (rx (syntax string-delimiter)) nil t)
- (goto-char (point-max)))))))
+ (setq
+ last-string-end
+ (or (if (eq t (nth 3 (syntax-ppss)))
+ (re-search-forward
+ (rx (syntax string-delimiter)) nil t)
+ (ignore-error scan-error
+ (goto-char string-start)
+ (python-nav--lisp-forward-sexp)
+ (point)))
+ (goto-char (point-max)))))))
((python-syntax-context 'paren)
;; The statement won't end before we've escaped
;; at least one level of parenthesis.
@@ -2148,10 +2212,7 @@ backward to previous statement."
(while (and (forward-line 1)
(not (eobp))
(or (and (> (current-indentation) block-indentation)
- (let ((start (point)))
- (python-nav-end-of-statement)
- ;; must move forward otherwise infinite loop
- (> (point) start)))
+ (or (python-nav-end-of-statement) t))
(python-info-current-line-comment-p)
(python-info-current-line-empty-p))))
(python-util-forward-comment -1)
@@ -2646,8 +2707,7 @@ dedicated to the current buffer or its project (if one is
found)."
(defmacro python-shell--add-to-path-with-priority (pathvar paths)
"Modify PATHVAR and ensure PATHS are added only once at beginning."
`(dolist (path (reverse ,paths))
- (cl-delete path ,pathvar :test #'string=)
- (cl-pushnew path ,pathvar :test #'string=)))
+ (setq ,pathvar (cons path (cl-delete path ,pathvar :test #'string=)))))
(defun python-shell-calculate-pythonpath ()
"Calculate the PYTHONPATH using `python-shell-extra-pythonpaths'."
@@ -4806,9 +4866,7 @@ Optional argument JUSTIFY defines if the paragraph should
be justified."
((python-syntax-context 'comment)
(funcall python-fill-comment-function justify))
;; Strings/Docstrings
- ((save-excursion (or (python-syntax-context 'string)
- (equal (string-to-syntax "|")
- (syntax-after (point)))))
+ ((python-info-triple-quoted-string-p)
(funcall python-fill-string-function justify))
;; Decorators
((equal (char-after (save-excursion
@@ -4834,10 +4892,7 @@ JUSTIFY should be used (if applicable) as in
`fill-paragraph'."
(let* ((str-start-pos
(set-marker
(make-marker)
- (or (python-syntax-context 'string)
- (and (equal (string-to-syntax "|")
- (syntax-after (point)))
- (point)))))
+ (python-info-triple-quoted-string-p)))
;; JT@2021-09-21: Since bug#49518's fix this will always be 1
(num-quotes (python-syntax-count-quotes
(char-after str-start-pos) str-start-pos))
@@ -4961,11 +5016,6 @@ the if condition."
(not (python-syntax-comment-or-string-p))
python-skeleton-autoinsert)))
-(defun python--completion-predicate (_ buffer)
- (provided-mode-derived-p
- (buffer-local-value 'major-mode buffer)
- 'python-mode))
-
(defmacro python-skeleton-define (name doc &rest skel)
"Define a `python-mode' skeleton using NAME DOC and SKEL.
The skeleton will be bound to python-skeleton-NAME and will
@@ -4974,7 +5024,7 @@ be added to `python-mode-skeleton-abbrev-table'."
(let* ((name (symbol-name name))
(function-name (intern (concat "python-skeleton-" name))))
`(progn
- (put ',function-name 'completion-predicate
#'python--completion-predicate)
+ (function-put ',function-name 'command-modes '(python-base-mode))
(define-abbrev python-mode-skeleton-abbrev-table
,name "" ',function-name :system t)
(setq python-skeleton-available
@@ -5001,7 +5051,7 @@ The skeleton will be bound to python-skeleton-NAME."
`(< ,(format "%s:" name) \n \n
> _ \n)))
`(progn
- (put ',function-name 'completion-predicate #'ignore)
+ (function-put ',function-name 'completion-predicate #'ignore)
(define-skeleton ,function-name
,(or doc
(format "Auxiliary skeleton for %s statement." name))
@@ -5784,7 +5834,8 @@ likely an invalid python file."
(pairs '(("elif" "elif" "if")
("else" "if" "elif" "except" "for" "while")
("except" "except" "try")
- ("finally" "else" "except" "try")))
+ ("finally" "else" "except" "try")
+ ("case" "case")))
(dedenter (match-string-no-properties 0))
(possible-opening-blocks (cdr (assoc-string dedenter pairs)))
(collected-indentations)
@@ -5792,7 +5843,11 @@ likely an invalid python file."
(catch 'exit
(while (python-nav--syntactically
(lambda ()
- (re-search-backward (python-rx block-start) nil t))
+ (cl-loop while (re-search-backward (python-rx
block-start) nil t)
+ if (save-match-data
+ (looking-back (rx line-start (*
whitespace))
+ (line-beginning-position)))
+ return t))
#'<)
(let ((indentation (current-indentation)))
(when (and (not (memq indentation collected-indentations))
@@ -5846,7 +5901,14 @@ statement."
(save-excursion
(python-nav-beginning-of-statement)
(when (and (not (python-syntax-context-type))
- (looking-at (python-rx dedenter)))
+ (looking-at (python-rx dedenter))
+ ;; Exclude the first "case" in the block.
+ (not (and (string= (match-string-no-properties 0)
+ "case")
+ (save-excursion
+ (back-to-indentation)
+ (python-util-forward-comment -1)
+ (equal (char-before) ?:)))))
(point))))
(defun python-info-line-ends-backslash-p (&optional line-number)
@@ -6003,8 +6065,7 @@ point's current `syntax-ppss'."
(let ((counter 1)
(indentation (current-indentation))
(backward-sexp-point)
- (re (concat "[uU]?[rR]?"
- (python-rx string-delimiter))))
+ (re "[uU]?[rR]?[\"']"))
(when (and
(not (python-info-assignment-statement-p))
(looking-at-p re)
@@ -6025,9 +6086,7 @@ point's current `syntax-ppss'."
backward-sexp-point))
(setq last-backward-sexp-point
backward-sexp-point))
- (looking-at-p
- (concat "[uU]?[rR]?"
- (python-rx string-delimiter))))))
+ (looking-at-p re))))
;; Previous sexp was a string, restore point.
(goto-char backward-sexp-point)
(cl-incf counter))
@@ -6039,6 +6098,21 @@ point's current `syntax-ppss'."
((python-info-looking-at-beginning-of-defun))
(t nil))))))
+(defun python-info-triple-quoted-string-p ()
+ "Check if point is in a triple quoted string including quotes.
+It returns the position of the third quote character of the start
+of the string."
+ (save-excursion
+ (let ((pos (point)))
+ (cl-loop
+ for offset in '(0 3 -2 2 -1 1)
+ if (let ((check-pos (+ pos offset)))
+ (and (>= check-pos (point-min))
+ (<= check-pos (point-max))
+ (python-syntax-context
+ 'triple-quoted-string (syntax-ppss check-pos))))
+ return it))))
+
(defun python-info-encoding-from-cookie ()
"Detect current buffer's encoding from its coding cookie.
Returns the encoding as a symbol."
@@ -6080,7 +6154,8 @@ Optional argument REGEXP selects variables to clone and
defaults
to \"^python-\"."
(mapc
(lambda (pair)
- (and (symbolp (car pair))
+ (and (consp pair)
+ (symbolp (car pair))
(string-match (or regexp "^python-")
(symbol-name (car pair)))
(set (make-local-variable (car pair))
@@ -6664,8 +6739,6 @@ implementations: `python-mode' and `python-ts-mode'."
(setq-local prettify-symbols-alist python-prettify-symbols-alist)
- (python-skeleton-add-menu-items)
-
(make-local-variable 'python-shell-internal-buffer)
(add-hook 'flymake-diagnostic-functions #'python-flymake nil t))
@@ -6679,9 +6752,7 @@ implementations: `python-mode' and `python-ts-mode'."
`(,python-font-lock-keywords
nil nil nil nil
(font-lock-syntactic-face-function
- . python-font-lock-syntactic-face-function)
- (font-lock-extend-after-change-region-function
- . python-font-lock-extend-region)))
+ . python-font-lock-syntactic-face-function)))
(setq-local syntax-propertize-function
python-syntax-propertize-function)
(setq-local imenu-create-index-function
@@ -6689,6 +6760,8 @@ implementations: `python-mode' and `python-ts-mode'."
(add-hook 'which-func-functions #'python-info-current-defun nil t)
+ (python-skeleton-add-menu-items)
+
(when python-indent-guess-indent-offset
(python-indent-guess-indent-offset)))
@@ -6715,6 +6788,8 @@ implementations: `python-mode' and `python-ts-mode'."
#'python--treesit-defun-name)
(treesit-major-mode-setup)
+ (python-skeleton-add-menu-items)
+
(when python-indent-guess-indent-offset
(python-indent-guess-indent-offset))
@@ -6722,7 +6797,7 @@ implementations: `python-mode' and `python-ts-mode'."
(add-to-list 'interpreter-mode-alist '("python[0-9.]*" . python-ts-mode))))
;;; Completion predicates for M-x
-;; Commands that only make sense when editing Python code
+;; Commands that only make sense when editing Python code.
(dolist (sym '(python-add-import
python-check
python-fill-paragraph
@@ -6756,12 +6831,7 @@ implementations: `python-mode' and `python-ts-mode'."
python-shell-send-defun
python-shell-send-statement
python-sort-imports))
- (put sym 'completion-predicate #'python--completion-predicate))
-
-(defun python-shell--completion-predicate (_ buffer)
- (provided-mode-derived-p
- (buffer-local-value 'major-mode buffer)
- 'python-mode 'inferior-python-mode))
+ (function-put sym 'command-modes '(python-base-mode)))
;; Commands that only make sense in the Python shell or when editing
;; Python code.
@@ -6776,8 +6846,8 @@ implementations: `python-mode' and `python-ts-mode'."
python-shell-font-lock-turn-off
python-shell-font-lock-turn-on
python-shell-package-enable
- python-shell-completion-complete-or-indent ))
- (put sym 'completion-predicate #'python-shell--completion-predicate))
+ python-shell-completion-complete-or-indent))
+ (function-put sym 'command-modes '(python-base-mode inferior-python-mode)))
(provide 'python)
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index d2c4da794ac..e441ffbbfe3 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -1904,13 +1904,13 @@ See `add-log-current-defun-function'."
(progn
(unless (string-equal "self" (car mn)) ; def self.foo
;; def C.foo
- (let ((ml (nreverse mlist)))
+ (let ((ml (reverse mlist)))
;; If the method name references one of the
;; containing modules, drop the more nested ones.
(while ml
(if (string-equal (car ml) (car mn))
(setq mlist (nreverse (cdr ml)) ml nil))
- (or (setq ml (cdr ml)) (nreverse mlist))))
+ (setq ml (cdr ml))))
(if mlist
(setcdr (last mlist) (butlast mn))
(setq mlist (butlast mn))))
diff --git a/lisp/progmodes/ruby-ts-mode.el b/lisp/progmodes/ruby-ts-mode.el
index b2842c33d29..7a00977f14a 100644
--- a/lisp/progmodes/ruby-ts-mode.el
+++ b/lisp/progmodes/ruby-ts-mode.el
@@ -469,7 +469,7 @@ non-nil."
(let* (first-call )
(while (and parent
(setq first-call (treesit-node-parent parent))
- (string-match-p "call" (treesit-node-type first-call)))
+ (equal "call" (treesit-node-type first-call)))
(setq parent first-call))
(treesit-node-start (treesit-search-subtree parent "\\." nil t))))
@@ -883,32 +883,24 @@ a statement container is a node that matches
"Return the fully qualified name of NODE."
(let* ((name (ruby-ts--get-name node))
(delimiter "#"))
+ (when (equal (treesit-node-type node) "singleton_method")
+ (setq delimiter "."
+ name (treesit-node-text (treesit-node-child-by-field-name node
"name"))))
(while (setq node (treesit-parent-until node #'ruby-ts--class-or-module-p))
- (setq name (concat (ruby-ts--get-name node) delimiter name))
+ (if name
+ (setq name (concat (ruby-ts--get-name node) delimiter name))
+ (setq name (ruby-ts--get-name node)))
(setq delimiter "::"))
name))
-(defun ruby-ts--imenu-helper (node)
- "Convert a treesit sparse tree NODE in an imenu list.
-Helper for `ruby-ts--imenu' which converts a treesit sparse
-NODE into a list of imenu ( name . pos ) nodes"
- (let* ((ts-node (car node))
- (subtrees (mapcan #'ruby-ts--imenu-helper (cdr node)))
- (name (when ts-node
- (ruby-ts--full-name ts-node)))
- (marker (when ts-node
- (set-marker (make-marker)
- (treesit-node-start ts-node)))))
- (cond
- ((or (null ts-node) (null name)) subtrees)
- ;; Don't include the anonymous "class" and "module" nodes
- ((string-match-p "(\"\\(class\\|module\\)\")"
- (treesit-node-string ts-node))
- nil)
- (subtrees
- `((,name ,(cons name marker) ,@subtrees)))
- (t
- `((,name . ,marker))))))
+(defun ruby-ts--imenu-helper (tree)
+ "Convert a treesit sparse tree NODE in a flat imenu list."
+ (if (cdr tree)
+ ;; We only use the "leaf" values in the tree. It does include a
+ ;; leaf node for every class or module body.
+ (cl-mapcan #'ruby-ts--imenu-helper (cdr tree))
+ (list (cons (ruby-ts--full-name (car tree))
+ (treesit-node-start (car tree))))))
;; For now, this is going to work like ruby-mode and return a list of
;; class, modules, def (methods), and alias. It is likely that this
@@ -916,8 +908,14 @@ NODE into a list of imenu ( name . pos ) nodes"
(defun ruby-ts--imenu ()
"Return Imenu alist for the current buffer."
(let* ((root (treesit-buffer-root-node))
- (nodes (treesit-induce-sparse-tree root
"^\\(method\\|alias\\|class\\|module\\)$")))
- (ruby-ts--imenu-helper nodes)))
+ (tree (treesit-induce-sparse-tree root
+ (rx bol (or "singleton_method"
+ "method"
+ "alias"
+ "class"
+ "module")
+ eol))))
+ (ruby-ts--imenu-helper tree)))
(defun ruby-ts--arrow-up-start (arg)
"Move to the start ARG levels up or out."
@@ -1026,7 +1024,7 @@ leading double colon is not added."
(:match "\\`?[#\"'`:?]" @char))
;; Symbols like :+, :<=> or :foo=.
((simple_symbol) @symbol
- (:match "[[:punct:]]" @symbol))
+ (:match "\\s." @symbol))
;; Method calls with name ending with ? or !.
((call method: (identifier) @ident)
(:match "[?!]\\'" @ident))
@@ -1058,7 +1056,9 @@ leading double colon is not added."
(put-text-property (1- (treesit-node-end node)) (treesit-node-end
node)
'syntax-table (string-to-syntax "_")))
('symbol
- (put-text-property (1+ (treesit-node-start node)) (treesit-node-end
node)
+ (goto-char (treesit-node-end node))
+ (skip-syntax-backward "." (treesit-node-start node))
+ (put-text-property (point) (treesit-node-end node)
'syntax-table (string-to-syntax "_")))
('heredoc
(put-text-property (treesit-node-start node) (1+ (treesit-node-start
node))
@@ -1086,6 +1086,15 @@ leading double colon is not added."
(put-text-property pos (1+ pos) 'syntax-table
(string-to-syntax "!"))))))))
+(defun ruby-ts--sexp-p (node)
+ ;; Skip parenless calls (implicit parens are both non-obvious to the
+ ;; user, and might take over when we want to just over some physical
+ ;; parens/braces).
+ (or (not (equal (treesit-node-type node)
+ "argument_list"))
+ (equal (treesit-node-type (treesit-node-child node 0))
+ "(")))
+
(defvar-keymap ruby-ts-mode-map
:doc "Keymap used in Ruby mode"
:parent prog-mode-map
@@ -1114,21 +1123,43 @@ leading double colon is not added."
(setq-local treesit-defun-type-regexp ruby-ts--method-regex)
(setq-local treesit-sexp-type-regexp
- (regexp-opt '("class"
- "module"
- "method"
- "argument_list"
- "array"
- "hash"
- "parenthesized_statements"
- "if"
- "case"
- "when"
- "block"
- "do_block"
- "begin"
- "binary"
- "assignment")))
+ (cons (rx
+ bol
+ (or
+ "class"
+ "module"
+ "method"
+ "array"
+ "hash"
+ "parenthesized_statements"
+ "method_parameters"
+ "array_pattern"
+ "hash_pattern"
+ "if"
+ "unless"
+ "case"
+ "case_match"
+ "when"
+ "block"
+ "do_block"
+ "begin"
+ "integer"
+ "identifier"
+ "constant"
+ "simple_symbol"
+ "hash_key_symbol"
+ "symbol_array"
+ "string"
+ "string_array"
+ "heredoc_body"
+ "regex"
+ "argument_list"
+ "interpolation"
+ "instance_variable"
+ "global_variable"
+ )
+ eol)
+ #'ruby-ts--sexp-p))
;; AFAIK, Ruby can not nest methods
(setq-local treesit-defun-prefer-top-level nil)
diff --git a/lisp/progmodes/rust-ts-mode.el b/lisp/progmodes/rust-ts-mode.el
index 696c2633231..c3cf8d0cf44 100644
--- a/lisp/progmodes/rust-ts-mode.el
+++ b/lisp/progmodes/rust-ts-mode.el
@@ -91,6 +91,7 @@
((parent-is "let_declaration") parent-bol rust-ts-mode-indent-offset)
((parent-is "macro_definition") parent-bol rust-ts-mode-indent-offset)
((parent-is "parameters") parent-bol rust-ts-mode-indent-offset)
+ ((parent-is "struct_pattern") parent-bol rust-ts-mode-indent-offset)
((parent-is "token_tree") parent-bol rust-ts-mode-indent-offset)
((parent-is "use_list") parent-bol rust-ts-mode-indent-offset)))
"Tree-sitter indent rules for `rust-ts-mode'.")
@@ -235,6 +236,7 @@
"^\\(u8\\|u16\\|u32\\|u64\\|u128\\|usize\\|i8\\|i16\\|i32\\|i64\\|i128\\|isize\\|char\\|str\\)$"
@font-lock-type-face))
((scoped_identifier path: (identifier) @rust-ts-mode--fontify-scope))
+ ((scoped_type_identifier path: (identifier) @rust-ts-mode--fontify-scope))
(type_identifier) @font-lock-type-face)
:language 'rust
@@ -348,7 +350,12 @@ Return nil if there is no name or if NODE is not a defun
node."
(treesit-node-child-by-field-name node "name") t))))
(defun rust-ts-mode--syntax-propertize (beg end)
- "Apply syntax text property to template delimiters between BEG and END.
+ "Apply syntax properties to special characters between BEG and END.
+
+Apply syntax properties to various special characters with
+contextual meaning between BEG and END.
+
+The apostrophe \\=' should be treated as string when used for char literals.
< and > are usually punctuation, e.g., as greater/less-than. But
when used for types, they should be considered pairs.
@@ -357,11 +364,18 @@ This function checks for < and > in the changed RANGES
and apply
appropriate text property to alter the syntax of template
delimiters < and >'s."
(goto-char beg)
+ (while (search-forward "'" end t)
+ (when (string-equal "char_literal"
+ (treesit-node-type
+ (treesit-node-at (match-beginning 0))))
+ (put-text-property (match-beginning 0) (match-end 0)
+ 'syntax-table (string-to-syntax "\""))))
+ (goto-char beg)
(while (re-search-forward (rx (or "<" ">")) end t)
(pcase (treesit-node-type
(treesit-node-parent
(treesit-node-at (match-beginning 0))))
- ("type_arguments"
+ ((or "type_arguments" "type_parameters")
(put-text-property (match-beginning 0)
(match-end 0)
'syntax-table
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 38cb19f5a12..e6fcc684729 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -155,7 +155,7 @@
,(rx bol (zero-or-more space)
"(define-module"
(one-or-more space)
- (group "(" (one-or-more any) ")"))
+ (group "(" (one-or-more nonl) ")"))
1)
("Macros"
,(rx bol (zero-or-more space) "("
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index a5428a9a714..0cde1f387e0 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1539,13 +1539,7 @@ implementations. Currently there are two: `sh-mode' and
(lambda (terminator)
(if (eq terminator ?')
"'\\'"
- "\\")))
- ;; Parse or insert magic number for exec, and set all variables depending
- ;; on the shell thus determined.
- (sh-set-shell (sh--guess-shell) nil nil)
- (add-hook 'flymake-diagnostic-functions #'sh-shellcheck-flymake nil t)
- (add-hook 'hack-local-variables-hook
- #'sh-after-hack-local-variables nil t))
+ "\\"))))
;;;###autoload
(define-derived-mode sh-mode sh-base-mode "Shell-script"
@@ -1605,7 +1599,13 @@ with your script for an edit-interpret-debug cycle."
nil nil
((?/ . "w") (?~ . "w") (?. . "w") (?- . "w") (?_ . "w")) nil
(font-lock-syntactic-face-function
- . ,#'sh-font-lock-syntactic-face-function))))
+ . ,#'sh-font-lock-syntactic-face-function)))
+ ;; Parse or insert magic number for exec, and set all variables depending
+ ;; on the shell thus determined.
+ (sh-set-shell (sh--guess-shell) nil nil)
+ (add-hook 'flymake-diagnostic-functions #'sh-shellcheck-flymake nil t)
+ (add-hook 'hack-local-variables-hook
+ #'sh-after-hack-local-variables nil t))
;;;###autoload
(defalias 'shell-script-mode 'sh-mode)
@@ -1617,6 +1617,10 @@ This mode automatically falls back to `sh-mode' if the
buffer is
not written in Bash or sh."
:syntax-table sh-mode-syntax-table
(when (treesit-ready-p 'bash)
+ (sh-set-shell "bash" nil nil)
+ (add-hook 'flymake-diagnostic-functions #'sh-shellcheck-flymake nil t)
+ (add-hook 'hack-local-variables-hook
+ #'sh-after-hack-local-variables nil t)
(treesit-parser-create 'bash)
(setq-local treesit-font-lock-feature-list
'(( comment function)
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index d8bd6bc2685..c6667c075f6 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -2192,14 +2192,17 @@ to add functions and PL/SQL keywords.")
;; Postgres Data Types
(sql-font-lock-keywords-builder 'font-lock-type-face nil
-"bigint" "bigserial" "bit" "bool" "boolean" "box" "bytea" "char"
-"character" "cidr" "circle" "date" "decimal" "double" "float4"
-"float8" "inet" "int" "int2" "int4" "int8" "integer" "interval" "line"
-"lseg" "macaddr" "money" "name" "numeric" "path" "point" "polygon"
-"precision" "real" "serial" "serial4" "serial8" "sequences" "smallint" "text"
-"time" "timestamp" "timestamptz" "timetz" "tsquery" "tsvector"
-"txid_snapshot" "unknown" "uuid" "varbit" "varchar" "varying" "without"
-"xml" "zone"
+ "bigint" "bigserial" "bit" "bool" "boolean" "box" "bytea" "char" "character"
+"cidr" "circle" "date" "daterange" "decimal" "double" "float4" "float8" "inet"
+"int" "int2" "int4" "int4range" "int8" "int8range" "integer" "interval"
+"jsonb" "jsonpath" "line" "lseg" "macaddr" "macaddr8" "money" "name" "numeric"
+"numrange" "oid" "path" "point" "polygon" "precision" "real" "regclass"
+"regcollation" "regconfig" "regdictionary" "regnamespace " "regoper"
+"regoperator" "regproc" "regprocedure" "regrole" "regtype" "sequences"
+"serial" "serial4" "serial8" "smallint" "smallserial" "text" "time"
+"timestamp" "timestamptz" "timetz" "tsquery" "tsrange" "tstzrange" "tsvector"
+"txid_snapshot" "unknown" "uuid" "varbit" "varchar" "varying" "without" "xml"
+"zone"
)))
"Postgres SQL keywords used by font-lock.
diff --git a/lisp/progmodes/typescript-ts-mode.el
b/lisp/progmodes/typescript-ts-mode.el
index b21b1fd2cef..8255e82a99e 100644
--- a/lisp/progmodes/typescript-ts-mode.el
+++ b/lisp/progmodes/typescript-ts-mode.el
@@ -41,6 +41,16 @@
:safe 'integerp
:group 'typescript)
+(defface typescript-ts-jsx-tag-face
+ '((t . (:inherit font-lock-function-call-face)))
+ "Face for HTML tags like <div> and <p> in JSX."
+ :group 'typescript)
+
+(defface typescript-ts-jsx-attribute-face
+ '((t . (:inherit font-lock-constant-face)))
+ "Face for HTML attributes like name and id in JSX."
+ :group 'typescript)
+
(defvar typescript-ts-mode--syntax-table
(let ((table (make-syntax-table)))
;; Taken from the cc-langs version
@@ -118,7 +128,7 @@ Argument LANGUAGE is either `typescript' or `tsx'."
"case" "catch" "class" "const" "continue" "debugger"
"declare" "default" "delete" "do" "else" "enum"
"export" "extends" "finally" "for" "from" "function"
- "get" "if" "implements" "import" "in" "instanceof" "interface"
+ "get" "if" "implements" "import" "in" "instanceof" "interface" "is"
"keyof" "let" "namespace" "new" "of" "private" "protected"
"public" "readonly" "return" "set" "static" "switch"
"target" "throw" "try" "type" "typeof" "var" "void"
@@ -284,17 +294,17 @@ Argument LANGUAGE is either `typescript' or `tsx'."
:feature 'jsx
`((jsx_opening_element
[(nested_identifier (identifier)) (identifier)]
- @font-lock-function-call-face)
+ @typescript-ts-jsx-tag-face)
(jsx_closing_element
[(nested_identifier (identifier)) (identifier)]
- @font-lock-function-call-face)
+ @typescript-ts-jsx-tag-face)
(jsx_self_closing_element
[(nested_identifier (identifier)) (identifier)]
- @font-lock-function-call-face)
+ @typescript-ts-jsx-tag-face)
- (jsx_attribute (property_identifier) @font-lock-constant-face))
+ (jsx_attribute (property_identifier) @typescript-ts-jsx-attribute-face))
:language language
:feature 'number
@@ -438,7 +448,15 @@ See `treesit-sexp-type-regexp' for more information.")
;;;###autoload
(define-derived-mode tsx-ts-mode typescript-ts-base-mode "TypeScript[TSX]"
- "Major mode for editing TypeScript."
+ "Major mode for editing TSX and JSX documents.
+
+This major mode defines two additional JSX-specific faces:
+`typescript-ts-jsx-attribute-face' and
+`typescript-ts-jsx-attribute-face' that are used for HTML tags
+and attributes, respectively.
+
+The JSX-specific faces are used when `treesit-font-lock-level' is
+at least 3 (which is the default value)."
:group 'typescript
:syntax-table typescript-ts-mode--syntax-table
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index ac6fd382a46..9199119b602 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -356,7 +356,9 @@ wherever possible, since it is slow."
(eval-and-compile
;; Both xemacs and emacs
(condition-case nil
- (require 'diff) ; diff-command and diff-switches
+ ;; `diff-command' and `diff-switches',
+ ;; although XEmacs lacks the former.
+ (require 'diff)
(error nil))
(condition-case nil
(require 'compile) ; compilation-error-regexp-alist-alist
@@ -11883,31 +11885,33 @@ If optional REGEXP, ignore differences matching it."
This requires the external program `diff-command' to be in your `exec-path',
and uses `diff-switches' in which you may want to have \"-u\" flag.
Ignores WHITESPACE if t, and writes output to stdout if SHOW."
- ;; Similar to `diff-buffer-with-file' but works on XEmacs, and doesn't
- ;; call `diff' as `diff' has different calling semantics on different
- ;; versions of Emacs.
+ ;; Similar to `diff-buffer-with-file' but works on Emacs 21, and
+ ;; doesn't call `diff' as `diff' has different calling semantics on
+ ;; different versions of Emacs.
(if (not (file-exists-p f1))
- (message "Buffer `%s' has no associated file on disk" (buffer-name b2))
- (with-temp-buffer "*Verilog-Diff*"
- (let ((outbuf (current-buffer))
- (f2 (make-temp-file "vm-diff-auto-")))
- (unwind-protect
- (progn
- (with-current-buffer b2
- (save-restriction
- (widen)
- (write-region (point-min) (point-max) f2 nil
'nomessage)))
- (call-process diff-command nil outbuf t
- diff-switches ; User may want -u
in diff-switches
- (if whitespace "-b" "")
- f1 f2)
- ;; Print out results. Alternatively we could
have call-processed
- ;; ourself, but this way we can reuse diff
switches
- (when show
- (with-current-buffer outbuf (message "%s"
(buffer-string))))))
- (sit-for 0)
- (when (file-exists-p f2)
- (delete-file f2))))))
+ (message "Buffer `%s' has no associated file on disk" b2)
+ (let ((outbuf (get-buffer "*Verilog-Diff*"))
+ (f2 (make-temp-file "vm-diff-auto-")))
+ (unwind-protect
+ ;; User may want -u in `diff-switches'.
+ (let ((args `(,@(if (listp diff-switches)
+ diff-switches
+ (list diff-switches))
+ ,@(and whitespace '("-b"))
+ ,f1 ,f2)))
+ (with-current-buffer b2
+ (save-restriction
+ (widen)
+ (write-region (point-min) (point-max) f2 nil 'nomessage)))
+ (apply #'call-process diff-command nil outbuf t args)
+ ;; Print out results. Alternatively we could have call-processed
+ ;; ourself, but this way we can reuse diff switches.
+ (when show
+ (with-current-buffer outbuf (message "%s" (buffer-string)))))
+ (sit-for 0)
+ (condition-case nil
+ (delete-file f2)
+ (error nil))))))
(defun verilog-diff-report (b1 b2 diffpt)
"Report differences detected with `verilog-diff-auto'.
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index c5ab5013fc8..77d862f1a17 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -16,7 +16,7 @@
;; Reto also said in Apr 2021 that he preferred to keep the XEmacs
;; compatibility code.
-(defconst vhdl-version "3.38.1"
+(defconst vhdl-version "3.38.5"
"VHDL Mode version number.")
(defconst vhdl-time-stamp "2015-03-12"
@@ -229,20 +229,20 @@ Overrides local variable `indent-tabs-mode'."
;; [Error] Assignment error: variable is illegal target of signal
assignment
("ADVance MS" "vacom" "-work \\1" "make" "-f \\1"
nil "valib \\1; vamap \\2 \\1" "./" "work/" "Makefile" "adms"
- ("^\\s-+\\([0-9]+\\):\\s-+" nil 1 nil) ("^Compiling file \\(.+\\)" 1)
+ ("^\\s-+\\([0-9]+\\):\\s-+" nil 1 nil nil) ("^Compiling file \\(.+\\)" 1)
("ENTI/\\1.vif" "ARCH/\\1-\\2.vif" "CONF/\\1.vif"
"PACK/\\1.vif" "BODY/\\1.vif" upcase))
;; Aldec
;; COMP96 ERROR COMP96_0018: "Identifier expected." "test.vhd" 66 3
("Aldec" "vcom" "-work \\1" "make" "-f \\1"
nil "vlib \\1; vmap \\2 \\1" "./" "work/" "Makefile" "aldec"
- ("^.* ERROR [^:]+: \".*\" \"\\([^ \t\n]+\\)\" \\([0-9]+\\) \\([0-9]+\\)"
1 2 3) ("" 0)
+ ("^.* ERROR [^:]+: \".*\" \"\\([^ \t\n]+\\)\" \\([0-9]+\\) \\([0-9]+\\)"
1 2 3 nil) ("" 0)
nil)
;; Cadence Leapfrog: cv -file test.vhd
;; duluth: *E,430 (test.vhd,13): identifier (POSITIV) is not declared
("Cadence Leapfrog" "cv" "-work \\1 -file" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "leapfrog"
- ("^duluth: \\*E,[0-9]+ (\\([^ \t\n]+\\),\\([0-9]+\\)):" 1 2 nil) ("" 0)
+ ("^duluth: \\*E,[0-9]+ (\\([^ \t\n]+\\),\\([0-9]+\\)):" 1 2 nil nil) (""
0)
("\\1/entity" "\\2/\\1" "\\1/configuration"
"\\1/package" "\\1/body" downcase))
;; Cadence Affirma NC vhdl: ncvhdl test.vhd
@@ -250,7 +250,7 @@ Overrides local variable `indent-tabs-mode'."
;; (PLL_400X_TOP) is not declared [10.3].
("Cadence NC" "ncvhdl" "-work \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "ncvhdl"
- ("^ncvhdl_p: \\*E,\\w+ (\\([^ \t\n]+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2
3) ("" 0)
+ ("^ncvhdl_p: \\*E,\\w+ (\\([^ \t\n]+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2
3 nil) ("" 0)
("\\1/entity/pc.db" "\\2/\\1/pc.db" "\\1/configuration/pc.db"
"\\1/package/pc.db" "\\1/body/pc.db" downcase))
;; ghdl vhdl
@@ -258,21 +258,21 @@ Overrides local variable `indent-tabs-mode'."
;; bad_counter.vhdl:13:14: operator "=" is overloaded
("GHDL" "ghdl" "-i --workdir=\\1 --ieee=synopsys -fexplicit " "make" "-f
\\1"
nil "mkdir \\1" "./" "work/" "Makefile" "ghdl"
- ("^ghdl_p: \\*E,\\w+ (\\([^ \t\n]+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2 3)
("" 0)
+ ("^ghdl_p: \\*E,\\w+ (\\([^ \t\n]+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2 3
nil) ("" 0)
("\\1/entity" "\\2/\\1" "\\1/configuration"
"\\1/package" "\\1/body" downcase))
;; IBM Compiler
;; 00 COACHDL* | [CCHDL-1]: File: adder.vhd, line.column: 120.6
("IBM Compiler" "g2tvc" "-src" "precomp" "\\1"
nil "mkdir \\1" "./" "work/" "Makefile" "ibm"
- ("^[0-9]+ COACHDL.*: File: \\([^ \t\n]+\\), *line.column:
\\([0-9]+\\).\\([0-9]+\\)" 1 2 3) (" " 0)
+ ("^[0-9]+ COACHDL.*: File: \\([^ \t\n]+\\), *line.column:
\\([0-9]+\\).\\([0-9]+\\)" 1 2 3 nil) (" " 0)
nil)
;; Ikos Voyager: analyze test.vhd
;; analyze test.vhd
;; E L4/C5: this library unit is inaccessible
("Ikos" "analyze" "-l \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "ikos"
- ("^E L\\([0-9]+\\)/C\\([0-9]+\\):" nil 1 2)
+ ("^E L\\([0-9]+\\)/C\\([0-9]+\\):" nil 1 2 nil)
("^analyze +\\(.+ +\\)*\\(.+\\)$" 2)
nil)
;; ModelSim, Model Technology: vcom test.vhd
@@ -286,7 +286,7 @@ Overrides local variable `indent-tabs-mode'."
;; counter_rtl.vhd(29):Conditional signal assignment line__29
("ModelSim" "vcom" "-93 -work \\1" "make" "-f \\1"
nil "vlib \\1; vmap \\2 \\1" "./" "work/" "Makefile" "modelsim"
- ("\\(ERROR:\\|WARNING\\[[0-9]+\\]:\\|\\*\\* Error:\\|\\*\\* Warning:
\\[[0-9]+\\]\\| +\\) \\([^ ]+\\)(\\([0-9]+\\)):" 2 3 nil)
+ ("^\\(?:\\(?1:ERROR\\|\\*\\* Error\\)\\|\\(?2:WARNING\\|\\*\\*
Warning\\)\\|\\(?3:NOTE\\|\\*\\* Note\\)\\)[^:]*:\\( *\\[[0-9]+]\\| ([^)]+)\\)?
\\(?4:[^ \t\n]+\\)(\\(?5:[0-9]+\\)):" 4 5 nil (2 . 3))
("" 0)
("\\1/_primary.dat" "\\2/\\1.dat" "\\1/_primary.dat"
"\\1/_primary.dat" "\\1/body.dat" downcase))
@@ -294,7 +294,7 @@ Overrides local variable `indent-tabs-mode'."
;; test.vhd:34: error message
("LEDA ProVHDL" "provhdl" "-w \\1 -f" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "provhdl"
- ("^\\([^ \t\n:]+\\):\\([0-9]+\\): " 1 2 nil) ("" 0)
+ ("^\\([^ \t\n:]+\\):\\([0-9]+\\): " 1 2 nil nil) ("" 0)
("ENTI/\\1.vif" "ARCH/\\1-\\2.vif" "CONF/\\1.vif"
"PACK/\\1.vif" "BODY/BODY-\\1.vif" upcase))
;; Quartus compiler
@@ -305,21 +305,21 @@ Overrides local variable `indent-tabs-mode'."
;; Warning: VHDL Process Statement warning at dvi2sdi_tst.vhd(172): ...
("Quartus" "make" "-work \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "quartus"
- ("^\\(Error\\|Warning\\): .* \\([^ \t\n]+\\)(\\([0-9]+\\))" 2 3 nil) (""
0)
+ ("^\\(Error\\|Warning\\): .* \\([^ \t\n]+\\)(\\([0-9]+\\))" 2 3 nil nil)
("" 0)
nil)
;; QuickHDL, Mentor Graphics: qvhcom test.vhd
;; ERROR: test.vhd(24): near "dnd": expecting: END
;; WARNING[4]: test.vhd(30): A space is required between ...
("QuickHDL" "qvhcom" "-work \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "quickhdl"
- ("^\\(ERROR\\|WARNING\\)[^:]*: \\([^ \t\n]+\\)(\\([0-9]+\\)):" 2 3 nil)
("" 0)
+ ("^\\(ERROR\\|WARNING\\)[^:]*: \\([^ \t\n]+\\)(\\([0-9]+\\)):" 2 3 nil
nil) ("" 0)
("\\1/_primary.dat" "\\2/\\1.dat" "\\1/_primary.dat"
"\\1/_primary.dat" "\\1/body.dat" downcase))
;; Savant: scram -publish-cc test.vhd
;; test.vhd:87: _set_passed_through_out_port(IIR_Boolean) not defined for
("Savant" "scram" "-publish-cc -design-library-name \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work._savant_lib/" "Makefile" "savant"
- ("^\\([^ \t\n:]+\\):\\([0-9]+\\): " 1 2 nil) ("" 0)
+ ("^\\([^ \t\n:]+\\):\\([0-9]+\\): " 1 2 nil nil) ("" 0)
("\\1_entity.vhdl" "\\2_secondary_units._savant_lib/\\2_\\1.vhdl"
"\\1_config.vhdl" "\\1_package.vhdl"
"\\1_secondary_units._savant_lib/\\1_package_body.vhdl" downcase))
@@ -327,39 +327,39 @@ Overrides local variable `indent-tabs-mode'."
;; Error: CSVHDL0002: test.vhd: (line 97): Invalid prefix
("Simili" "vhdlp" "-work \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "simili"
- ("^\\(Error\\|Warning\\): \\w+: \\([^ \t\n]+\\): (line \\([0-9]+\\)): " 2
3 nil) ("" 0)
+ ("^\\(Error\\|Warning\\): \\w+: \\([^ \t\n]+\\): (line \\([0-9]+\\)): " 2
3 nil nil) ("" 0)
("\\1/prim.var" "\\2/_\\1.var" "\\1/prim.var"
"\\1/prim.var" "\\1/_body.var" downcase))
;; Speedwave (Innoveda): analyze -libfile vsslib.ini -src test.vhd
;; ERROR[11]::File test.vhd Line 100: Use of undeclared identifier
("Speedwave" "analyze" "-libfile vsslib.ini -src" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "speedwave"
- ("^ *ERROR\\[[0-9]+]::File \\([^ \t\n]+\\) Line \\([0-9]+\\):" 1 2 nil)
("" 0)
+ ("^ *ERROR\\[[0-9]+]::File \\([^ \t\n]+\\) Line \\([0-9]+\\):" 1 2 nil
nil) ("" 0)
nil)
;; Synopsys, VHDL Analyzer (sim): vhdlan -nc test.vhd
;; **Error: vhdlan,703 test.vhd(22): OTHERS is not legal in this context.
("Synopsys" "vhdlan" "-nc -work \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "synopsys"
- ("^\\*\\*Error: vhdlan,[0-9]+ \\([^ \t\n]+\\)(\\([0-9]+\\)):" 1 2 nil)
("" 0)
+ ("^\\*\\*Error: vhdlan,[0-9]+ \\([^ \t\n]+\\)(\\([0-9]+\\)):" 1 2 nil
nil) ("" 0)
("\\1.sim" "\\2__\\1.sim" "\\1.sim" "\\1.sim" "\\1__.sim" upcase))
;; Synopsys, VHDL Analyzer (syn): vhdlan -nc -spc test.vhd
;; **Error: vhdlan,703 test.vhd(22): OTHERS is not legal in this context.
("Synopsys Design Compiler" "vhdlan" "-nc -spc -work \\1" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "synopsys_dc"
- ("^\\*\\*Error: vhdlan,[0-9]+ \\([^ \t\n]+\\)(\\([0-9]+\\)):" 1 2 nil)
("" 0)
+ ("^\\*\\*Error: vhdlan,[0-9]+ \\([^ \t\n]+\\)(\\([0-9]+\\)):" 1 2 nil
nil) ("" 0)
("\\1.syn" "\\2__\\1.syn" "\\1.syn" "\\1.syn" "\\1__.syn" upcase))
;; Synplify:
;; @W:"test.vhd":57:8:57:9|Optimizing register bit count_x(5) to a
constant 0
("Synplify" "n/a" "n/a" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "synplify"
- ("^@[EWN]:\"\\([^ \t\n]+\\)\":\\([0-9]+\\):\\([0-9]+\\):" 1 2 3) ("" 0)
+ ("^@[EWN]:\"\\([^ \t\n]+\\)\":\\([0-9]+\\):\\([0-9]+\\):" 1 2 3 nil) (""
0)
nil)
;; Vantage: analyze -libfile vsslib.ini -src test.vhd
;; Compiling "test.vhd" line 1...
;; **Error: LINE 49 *** No aggregate value is valid in this context.
("Vantage" "analyze" "-libfile vsslib.ini -src" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "vantage"
- ("^\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" nil 1 nil)
+ ("^\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" nil 1 nil nil)
("^ *Compiling \"\\(.+\\)\" " 1)
nil)
;; VeriBest: vc vhdl test.vhd
@@ -369,22 +369,29 @@ Overrides local variable `indent-tabs-mode'."
;; [Error] Name BITA is unknown
("VeriBest" "vc" "vhdl" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "veribest"
- ("^ +\\([0-9]+\\): +[^ ]" nil 1 nil) ("" 0)
+ ("^ +\\([0-9]+\\): +[^ ]" nil 1 nil nil) ("" 0)
nil)
;; Viewlogic: analyze -libfile vsslib.ini -src test.vhd
;; Compiling "test.vhd" line 1...
;; **Error: LINE 49 *** No aggregate value is valid in this context.
("Viewlogic" "analyze" "-libfile vsslib.ini -src" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "viewlogic"
- ("^\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" nil 1 nil)
+ ("^\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" nil 1 nil nil)
("^ *Compiling \"\\(.+\\)\" " 1)
nil)
;; Xilinx XST:
;; ERROR:HDLParsers:164 - "test.vhd" Line 3. parse error
("Xilinx XST" "xflow" "" "make" "-f \\1"
nil "mkdir \\1" "./" "work/" "Makefile" "xilinx"
- ("^ERROR:HDLParsers:[0-9]+ - \"\\([^ \t\n]+\\)\" Line \\([0-9]+\\)\\." 1
2 nil) ("" 0)
+ ("^ERROR:HDLParsers:[0-9]+ - \"\\([^ \t\n]+\\)\" Line \\([0-9]+\\)\\." 1
2 nil nil) ("" 0)
nil)
+ ;; Xilinx Vivado:
+ ;; ERROR: [VRFC 10-1412] syntax error near o_idle [test.vhd:23]
+ ("Xilinx Vivado" "xvhdl" "" "make" "-f \\1"
+ nil "mkdir \\1" "./" "work/" "Makefile" "vivado"
+ ("^\\(?:\\(?1:ERROR\\)\\|\\(?2:WARNING\\)\\|\\(?3:INFO\\)\\): \\(.+\\)
\\[\\(?4:[^ \t\n]+\\):\\(?5:[0-9]+\\)\\]" 4 5 nil (2 . 3)) ("" 0)
+ ("\\1/entity" "\\2/\\1" "\\1/configuration"
+ "\\1/package" "\\1/body" downcase))
)
"List of available VHDL compilers and their properties.
Each list entry specifies the following items for a compiler:
@@ -407,6 +414,13 @@ Error message:
File subexp index: index of subexpression that matches the file name
Line subexp index: index of subexpression that matches the line number
Column subexp idx: index of subexpression that matches the column number
+ Type subexp : message type, can be nil for a real error, 1 for warning
+ or 0 for info. Type can also be detected using the form
+ (WARNING . INFO). In that case this will be equivalent to
+ 1 if the WARNING’th subexpression matched or else
+ equivalent to 0 if the INFO’th subexpression matched, or
+ else equivalent to nil if neither of them matched. See
+ also `compilation-error-regexp-alist'.
File message:
Regexp : regular expression to match a file name message
File subexp index: index of subexpression that matches the file name
@@ -476,7 +490,14 @@ NOTE: Activate new error and file message regexps and
reflect the new setting
(integer :tag "Line subexp index")
(choice :tag "Column subexp "
(integer :tag "Index")
- (const :tag "No column number" nil)))
+ (const :tag "No column number" nil))
+ (choice :tag "Type "
+ (const :tag "Info" 0)
+ (const :tag "Warning" 1)
+ (const :tag "Error" nil)
+ (cons :tag "Type detection"
+ (natnum :tag "Warning subexp index")
+ (natnum :tag "Info subexp index "))))
(list :tag "File message" :indent 4
(regexp :tag "Regexp ")
(integer :tag "File subexp index"))
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 38c424402a0..643eea1b0a3 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -1,7 +1,7 @@
;;; xref.el --- Cross-referencing commands -*-lexical-binding:t-*-
;; Copyright (C) 2014-2023 Free Software Foundation, Inc.
-;; Version: 1.6.2
+;; Version: 1.6.3
;; Package-Requires: ((emacs "26.1"))
;; This is a GNU ELPA :core package. Avoid functionality that is not
@@ -355,8 +355,10 @@ backward."
(t (goto-char start) nil))))
-;; Dummy variable retained for compatibility.
-(defvar xref-marker-ring-length 16)
+(defvar xref-marker-ring-length 16
+ "Xref marker ring length.
+This is a dummy variable retained for backward compatibility, and
+otherwise unused.")
(make-obsolete-variable 'xref-marker-ring-length nil "29.1")
(defcustom xref-prompt-for-identifier '(not xref-find-definitions
@@ -453,7 +455,9 @@ are predefined:
(make-obsolete-variable 'xref--marker-ring 'xref--history "29.1")
(defun xref-set-marker-ring-length (_var _val)
- (declare (obsolete nil "29.1"))
+ (declare (obsolete
+ "this function has no effect: Xref marker ring is now unlimited in
size"
+ "29.1"))
nil)
(defun xref--make-xref-history ()
@@ -499,7 +503,7 @@ Override existing value with NEW-VALUE if NEW-VALUE is set."
(defun xref-push-marker-stack (&optional m)
"Add point M (defaults to `point-marker') to the marker stack.
-The future stack is erased."
+Erase the stack slots following this one."
(xref--push-backward (or m (point-marker)))
(let ((history (xref--get-history)))
(dolist (mk (cdr history))
@@ -527,7 +531,7 @@ To undo, use \\[xref-go-forward]."
;;;###autoload
(defun xref-go-forward ()
- "Got to the point where a previous \\[xref-go-back] was invoked."
+ "Go to the point where a previous \\[xref-go-back] was invoked."
(interactive)
(let ((history (xref--get-history)))
(if (null (cdr history))
@@ -632,7 +636,7 @@ If SELECT is non-nil, select the target window."
(defface xref-match '((t :inherit match))
"Face used to highlight matches in the xref buffer."
- :version "27.1")
+ :version "28.1")
(defmacro xref--with-dedicated-window (&rest body)
`(let* ((xref-w (get-buffer-window xref-buffer-name))
@@ -981,7 +985,7 @@ point."
map))
(declare-function outline-search-text-property "outline"
- (property &optional value bound move backward looking-at))
+ (property &optional value bound move backward looking-at))
(define-derived-mode xref--xref-buffer-mode special-mode "XREF"
"Mode for displaying cross-references."
@@ -993,14 +997,14 @@ point."
(setq imenu-extract-index-name-function
#'xref--imenu-extract-index-name)
(setq-local add-log-current-defun-function
- #'xref--add-log-current-defun)
- (setq-local outline-minor-mode-cycle t
- outline-minor-mode-use-buttons 'insert
- outline-search-function
+ #'xref--add-log-current-defun)
+ (setq-local outline-minor-mode-cycle t)
+ (setq-local outline-minor-mode-use-buttons 'insert)
+ (setq-local outline-search-function
(lambda (&optional bound move backward looking-at)
(outline-search-text-property
- 'xref-group nil bound move backward looking-at))
- outline-level (lambda () 1)))
+ 'xref-group nil bound move backward looking-at)))
+ (setq-local outline-level (lambda () 1)))
(defvar xref--transient-buffer-mode-map
(let ((map (make-sparse-keymap)))
@@ -1521,7 +1525,7 @@ The meanings of both arguments are the same as documented
in
prompt))
(xref-backend-identifier-completion-table backend)
nil nil nil
- 'xref--read-identifier-history def)))
+ 'xref--read-identifier-history def t)))
(if (equal id "")
(or def (user-error "There is no default identifier"))
id)))
@@ -1816,16 +1820,22 @@ IGNORES is a list of glob patterns for files to ignore."
;; Ripgrep gets jumbled output, though, even with --line-buffered.
;; But Grep seems to be stable. Even without --line-buffered.
(defcustom xref-search-program-alist
- '((grep
- .
- ;; '-s' because 'git ls-files' can output broken symlinks.
- "xargs -0 grep <C> --null -snHE -e <R>")
- (ripgrep
- .
- ;; '!*/' is there to filter out dirs (e.g. submodules).
- "xargs -0 rg <C> --null -nH --no-heading --no-messages -g '!*/' -e <R>"
- )
- (ugrep . "xargs -0 ugrep <C> --null -ns -e <R>"))
+ (let ((xargs-max-chars
+ (and (memq system-type '(windows-nt ms-dos))
+ "-s 10000 ")))
+ `((grep
+ .
+ ;; '-s' because 'git ls-files' can output broken symlinks.
+ ,(concat "xargs -0 " xargs-max-chars "grep <C> --null -snHE -e <R>"))
+ (ripgrep
+ .
+ ;; '!*/' is there to filter out dirs (e.g. submodules).
+ ,(concat "xargs -0 "
+ xargs-max-chars
+ "rg <C> --null -nH --no-heading --no-messages -g '!*/' -e
<R>"))
+ (ugrep
+ .
+ ,(concat "xargs -0 " xargs-max-chars "ugrep <C> --null -ns -e <R>"))))
"Association list mapping program identifiers to command templates.
Program identifier should be a symbol, named after the search program.
@@ -1840,7 +1850,7 @@ The template should have the following fields:
:type '(repeat
(cons (symbol :tag "Program identifier")
(string :tag "Command template")))
- :version "28.1"
+ :version "29.1"
:package-version '(xref . "1.0.4"))
(defcustom xref-search-program 'grep
diff --git a/lisp/replace.el b/lisp/replace.el
index 3c2b925ea92..1555731f6e3 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -436,6 +436,8 @@ Fourth and fifth arg START and END specify the region to
operate on.
Arguments FROM-STRING, TO-STRING, DELIMITED, START, END, BACKWARD, and
REGION-NONCONTIGUOUS-P are passed to `perform-replace' (which see).
+\(TO-STRING is passed to `perform-replace' as REPLACEMENTS and
+DELIMITED is passed as DELIMITED-FLAG.)
To customize possible responses, change the bindings in `query-replace-map'."
(declare (interactive-args
@@ -533,7 +535,10 @@ text, TO-STRING is actually made a list instead of a
string.
Use \\[repeat-complex-command] after this command for details.
Arguments REGEXP, TO-STRING, DELIMITED, START, END, BACKWARD, and
-REGION-NONCONTIGUOUS-P are passed to `perform-replace' (which see)."
+REGION-NONCONTIGUOUS-P are passed to `perform-replace' (which see).
+\(REGEXP is passed to `perform-replace' as FROM-STRING,
+TO-STRING is passed as REPLACEMENTS, and DELIMITED is passed
+as DELIMITED-FLAG.)"
(declare (interactive-args
(start (use-region-beginning))
(end (use-region-end))
diff --git a/lisp/savehist.el b/lisp/savehist.el
index b532668f8a4..ea8968c771b 100644
--- a/lisp/savehist.el
+++ b/lisp/savehist.el
@@ -232,8 +232,9 @@ If AUTO-SAVE is non-nil, compare the saved contents to the
one last saved,
savehist-coding-system))
(run-hooks 'savehist-save-hook)
(let ((print-length nil)
- (print-level nil)
- (print-quoted t))
+ (print-level nil)
+ (print-quoted t)
+ (print-circle t))
;; Save the minibuffer histories, along with the value of
;; savehist-minibuffer-history-variables itself.
(when savehist-save-minibuffer-history
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 7512fc87c5d..18d296ba2d9 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -35,6 +35,8 @@
;;; Code:
+(require 'cl-lib)
+
;; this is what I was using during testing:
;; (define-key ctl-x-map "p" 'toggle-save-place-globally)
@@ -87,11 +89,77 @@ this happens automatically before saving `save-place-alist'
to
`save-place-file'."
:type 'boolean)
+(defun save-place-load-alist-from-file ()
+ (if (not save-place-loaded)
+ (progn
+ (setq save-place-loaded t)
+ (let ((file (expand-file-name save-place-file)))
+ ;; make sure that the alist does not get overwritten, and then
+ ;; load it if it exists:
+ (if (file-readable-p file)
+ ;; don't want to use find-file because we have been
+ ;; adding hooks to it.
+ (with-current-buffer (get-buffer-create " *Saved Places*")
+ (delete-region (point-min) (point-max))
+ ;; Make sure our 'coding:' cookie in the save-place
+ ;; file will take effect, in case the caller binds
+ ;; coding-system-for-read.
+ (let (coding-system-for-read)
+ (insert-file-contents file))
+ (goto-char (point-min))
+ (setq save-place-alist
+ (with-demoted-errors "Error reading save-place-file: %S"
+ (car (read-from-string
+ (buffer-substring (point-min) (point-max))))))
+
+ ;; If there is a limit, and we're over it, then we'll
+ ;; have to truncate the end of the list:
+ (if save-place-limit
+ (if (<= save-place-limit 0)
+ ;; Zero gets special cased. I'm not thrilled
+ ;; with this, but the loop for >= 1 is tight.
+ (setq save-place-alist nil)
+ ;; Else the limit is >= 1, so enforce it by
+ ;; counting and then `setcdr'ing.
+ (let ((s save-place-alist)
+ (count 1))
+ (while s
+ (if (>= count save-place-limit)
+ (setcdr s nil)
+ (setq count (1+ count)))
+ (setq s (cdr s))))))
+
+ (kill-buffer (current-buffer))))
+ nil))))
+
(defcustom save-place-abbreviate-file-names nil
"If non-nil, abbreviate file names before saving them.
This can simplify sharing the `save-place-file' file across
-different hosts."
+different hosts.
+
+Changing this option requires rewriting `save-place-alist' with
+corresponding file name format, therefore setting this option
+just using `setq' may cause out-of-sync problems. You should use
+either `setopt' or M-x customize-variable to set this option."
:type 'boolean
+ :set (lambda (sym val)
+ (set-default sym val)
+ (or save-place-loaded (save-place-load-alist-from-file))
+ (let ((fun (if val #'abbreviate-file-name #'expand-file-name)))
+ (setq save-place-alist
+ (cl-delete-duplicates
+ (cl-loop for (k . v) in save-place-alist
+ collect
+ (cons (funcall fun k)
+ (if (listp v)
+ (cl-loop for (k1 . v1) in v
+ collect
+ (cons k1 (funcall fun v1)))
+ v)))
+ :key #'car
+ :from-end t
+ :test #'equal)))
+ val)
:version "28.1")
(defcustom save-place-save-skipped t
@@ -214,7 +282,11 @@ file names."
((and (derived-mode-p 'dired-mode) directory)
(let ((filename (dired-get-filename nil t)))
(if filename
- `((dired-filename . ,filename))
+ (list
+ (cons 'dired-filename
+ (if save-place-abbreviate-file-names
+ (abbreviate-file-name filename)
+ filename)))
(point))))
(t (point)))))
(if cell
@@ -278,49 +350,6 @@ may have changed) back to `save-place-alist'."
(file-error (message "Saving places: can't write %s" file)))
(kill-buffer (current-buffer))))))
-(defun save-place-load-alist-from-file ()
- (if (not save-place-loaded)
- (progn
- (setq save-place-loaded t)
- (let ((file (expand-file-name save-place-file)))
- ;; make sure that the alist does not get overwritten, and then
- ;; load it if it exists:
- (if (file-readable-p file)
- ;; don't want to use find-file because we have been
- ;; adding hooks to it.
- (with-current-buffer (get-buffer-create " *Saved Places*")
- (delete-region (point-min) (point-max))
- ;; Make sure our 'coding:' cookie in the save-place
- ;; file will take effect, in case the caller binds
- ;; coding-system-for-read.
- (let (coding-system-for-read)
- (insert-file-contents file))
- (goto-char (point-min))
- (setq save-place-alist
- (with-demoted-errors "Error reading save-place-file: %S"
- (car (read-from-string
- (buffer-substring (point-min) (point-max))))))
-
- ;; If there is a limit, and we're over it, then we'll
- ;; have to truncate the end of the list:
- (if save-place-limit
- (if (<= save-place-limit 0)
- ;; Zero gets special cased. I'm not thrilled
- ;; with this, but the loop for >= 1 is tight.
- (setq save-place-alist nil)
- ;; Else the limit is >= 1, so enforce it by
- ;; counting and then `setcdr'ing.
- (let ((s save-place-alist)
- (count 1))
- (while s
- (if (>= count save-place-limit)
- (setcdr s nil)
- (setq count (1+ count)))
- (setq s (cdr s))))))
-
- (kill-buffer (current-buffer))))
- nil))))
-
(defun save-places-to-alist ()
;; go through buffer-list, saving places to alist if save-place-mode
;; is non-nil, deleting them from alist if it is nil.
@@ -353,7 +382,11 @@ may have changed) back to `save-place-alist'."
"Function added to `find-file-hook' by `save-place-mode'.
It runs the hook `save-place-after-find-file-hook'."
(or save-place-loaded (save-place-load-alist-from-file))
- (let ((cell (assoc buffer-file-name save-place-alist)))
+ (let ((cell (and (stringp buffer-file-name)
+ (assoc (if save-place-abbreviate-file-names
+ (abbreviate-file-name buffer-file-name)
+ buffer-file-name)
+ save-place-alist))))
(if cell
(progn
(or revert-buffer-in-progress-p
@@ -368,25 +401,25 @@ It runs the hook `save-place-after-find-file-hook'."
(defun save-place-dired-hook ()
"Position the point in a Dired buffer."
(or save-place-loaded (save-place-load-alist-from-file))
- (let* ((directory (and (derived-mode-p 'dired-mode)
- (boundp 'dired-subdir-alist)
- dired-subdir-alist
- (dired-current-directory)))
- (cell (assoc (and directory
- (expand-file-name (if (consp directory)
- (car directory)
- directory)))
- save-place-alist)))
- (if cell
- (progn
- (or revert-buffer-in-progress-p
- (cond
- ((integerp (cdr cell))
- (goto-char (cdr cell)))
- ((and (listp (cdr cell)) (assq 'dired-filename (cdr cell)))
- (dired-goto-file (cdr (assq 'dired-filename (cdr cell)))))))
- ;; and make sure it will be saved again for later
- (setq save-place-mode t)))))
+ (when-let ((directory (and (derived-mode-p 'dired-mode)
+ (boundp 'dired-subdir-alist)
+ dired-subdir-alist
+ (dired-current-directory)))
+ (item (expand-file-name (if (consp directory)
+ (car directory)
+ directory)))
+ (cell (assoc (if save-place-abbreviate-file-names
+ (abbreviate-file-name item) item)
+ save-place-alist)))
+ (or revert-buffer-in-progress-p
+ (cond
+ ((integerp (cdr cell))
+ (goto-char (cdr cell)))
+ ((listp (cdr cell))
+ (when-let ((elt (assq 'dired-filename (cdr cell))))
+ (dired-goto-file (expand-file-name (cdr elt)))))))
+ ;; and make sure it will be saved again for later
+ (setq save-place-mode t)))
(defun save-place-kill-emacs-hook ()
;; First update the alist. This loads the old save-place-file if nec.
diff --git a/lisp/select.el b/lisp/select.el
index 7f089c62dd5..09c678867d0 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -807,19 +807,24 @@ This function returns the string \"emacs\"."
(defun xselect-convert-to-username (_selection _type _value)
(user-real-login-name))
-(defun xselect-convert-to-text-uri-list (_selection _type value)
- (let ((string
- (if (stringp value)
- (xselect--encode-string 'TEXT
- (concat (url-encode-url value) "\n"))
- (when (vectorp value)
- (with-temp-buffer
- (cl-loop for tem across value
- do (progn
- (insert (url-encode-url tem))
- (insert "\n")))
- (xselect--encode-string 'TEXT (buffer-string)))))))
- (cons 'text/uri-list (cdr string))))
+(defun xselect-convert-to-text-uri-list (selection _type value)
+ ;; While `xselect-uri-list-available-p' ensures that this target
+ ;; will not be reported in the TARGETS of non-drag-and-drop
+ ;; selections, Firefox stupidly converts to it anyway. Check that
+ ;; the conversion request is being made for the correct selection.
+ (and (eq selection 'XdndSelection)
+ (let ((string
+ (if (stringp value)
+ (xselect--encode-string 'TEXT
+ (concat (url-encode-url value) "\n"))
+ (when (vectorp value)
+ (with-temp-buffer
+ (cl-loop for tem across value
+ do (progn
+ (insert (url-encode-url tem))
+ (insert "\n")))
+ (xselect--encode-string 'TEXT (buffer-string)))))))
+ (cons 'text/uri-list (cdr string)))))
(defun xselect-convert-to-xm-file (selection _type value)
(when (and (stringp value)
diff --git a/lisp/server.el b/lisp/server.el
index 35b38ef8fa6..c3325e5a24c 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1143,8 +1143,18 @@ The following commands are accepted by the client:
(process-put proc :authenticated t)
(server-log "Authentication successful" proc))
(server-log "Authentication failed" proc)
+ ;; Display the error as a message and give the user time to see
+ ;; it, in case the error written by emacsclient to stderr is not
+ ;; visible for some reason.
+ (message "Authentication failed")
+ (sit-for 2)
(server-send-string
proc (concat "-error " (server-quote-arg "Authentication failed")))
+ (unless (eq system-type 'windows-nt)
+ (let ((terminal (process-get proc 'terminal)))
+ ;; Only delete the terminal if it is non-nil.
+ (when (and terminal (eq (terminal-live-p terminal) t))
+ (delete-terminal terminal))))
;; Before calling `delete-process', give emacsclient time to
;; receive the error string and shut down on its own.
(sit-for 1)
@@ -1462,10 +1472,20 @@ The following commands are accepted by the client:
(defun server-return-error (proc err)
(ignore-errors
+ ;; Display the error as a message and give the user time to see
+ ;; it, in case the error written by emacsclient to stderr is not
+ ;; visible for some reason.
+ (message (error-message-string err))
+ (sit-for 2)
(server-send-string
proc (concat "-error " (server-quote-arg
(error-message-string err))))
(server-log (error-message-string err) proc)
+ (unless (eq system-type 'windows-nt)
+ (let ((terminal (process-get proc 'terminal)))
+ ;; Only delete the terminal if it is non-nil.
+ (when (and terminal (eq (terminal-live-p terminal) t))
+ (delete-terminal terminal))))
;; Before calling `delete-process', give emacsclient time to
;; receive the error string and shut down on its own.
(sit-for 5)
@@ -1929,12 +1949,22 @@ This sets the variable `server-stop-automatically'
(which see)."
;; continue standard unloading
nil)
+(define-error 'server-return-invalid-read-syntax
+ "Emacs server returned unreadable result of evaluation"
+ 'invalid-read-syntax)
+
(defun server-eval-at (server form)
"Contact the Emacs server named SERVER and evaluate FORM there.
-Returns the result of the evaluation, or signals an error if it
-cannot contact the specified server. For example:
+Returns the result of the evaluation. For example:
(server-eval-at \"server\" \\='(emacs-pid))
-returns the process ID of the Emacs instance running \"server\"."
+returns the process ID of the Emacs instance running \"server\".
+
+This function signals `error' if it could not contact the server.
+
+This function signals `server-return-invalid-read-syntax' if
+`read' fails on the result returned by the server.
+This will occur whenever the result of evaluating FORM is
+something that cannot be printed readably."
(let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))
(server-file (expand-file-name server server-dir))
(coding-system-for-read 'binary)
@@ -1980,8 +2010,14 @@ returns the process ID of the Emacs instance running
\"server\"."
(progn (skip-chars-forward "^\n")
(point))))))
(if (not (equal answer ""))
- (read (decode-coding-string (server-unquote-arg answer)
- 'emacs-internal)))))))
+ (condition-case err
+ (read
+ (decode-coding-string (server-unquote-arg answer)
+ 'emacs-internal))
+ ;; Re-signal with a more specific condition.
+ (invalid-read-syntax
+ (signal 'server-return-invalid-read-syntax
+ (cdr err)))))))))
(provide 'server)
diff --git a/lisp/shell.el b/lisp/shell.el
index 5cf108bfa3b..b74442f1961 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -366,6 +366,12 @@ Useful for shells like zsh that has this feature."
:group 'shell-directories
:version "28.1")
+(defcustom shell-get-old-input-include-continuation-lines nil
+ "Whether `shell-get-old-input' includes \"\\\" lines."
+ :type 'boolean
+ :group 'shell
+ :version "30.1")
+
(defcustom shell-kill-buffer-on-exit nil
"Kill a shell buffer after the shell process terminates."
:type 'boolean
@@ -506,6 +512,39 @@ Useful for shells like zsh that has this feature."
(push (mapconcat #'identity (nreverse arg) "") args)))
(cons (nreverse args) (nreverse begins)))))
+(defun shell-get-old-input ()
+ "Default for `comint-get-old-input' in `shell-mode'.
+If `comint-use-prompt-regexp' is nil, then either
+return the current input field (if point is on an input field), or the
+current line (if point is on an output field).
+If `comint-use-prompt-regexp' is non-nil, then return
+the current line, with any initial string matching the regexp
+`comint-prompt-regexp' removed.
+In either case, if `shell-get-old-input-include-continuation-lines'
+is non-nil and the current line ends with a backslash, the next
+line is also included and examined for a backslash, ending with a
+final line without a backslash."
+ (let (field-prop bof)
+ (if (and (not comint-use-prompt-regexp)
+ ;; Make sure we're in an input rather than output field.
+ (not (setq field-prop (get-char-property
+ (setq bof (field-beginning)) 'field))))
+ (field-string-no-properties bof)
+ (comint-bol)
+ (let ((start (point)))
+ (cond ((or comint-use-prompt-regexp
+ (eq field-prop 'output))
+ (goto-char (line-end-position))
+ (when shell-get-old-input-include-continuation-lines
+ ;; Include continuation lines as long as the current
+ ;; line ends with a backslash.
+ (while (and (not (eobp))
+ (= (char-before) ?\\))
+ (goto-char (line-end-position 2)))))
+ (t
+ (goto-char (field-end))))
+ (buffer-substring-no-properties start (point))))))
+
;;;###autoload
(defun split-string-shell-command (string)
"Split STRING (a shell command) into a list of strings.
@@ -642,6 +681,7 @@ command."
(setq-local font-lock-defaults '(shell-font-lock-keywords t))
(setq-local shell-dirstack nil)
(setq-local shell-last-dir nil)
+ (setq-local comint-get-old-input #'shell-get-old-input)
;; People expect Shell mode to keep the last line of output at
;; window bottom.
(setq-local scroll-conservatively 101)
diff --git a/lisp/simple.el b/lisp/simple.el
index 80c75d4d7c3..e08bf4fdd64 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -623,7 +623,7 @@ A non-nil INTERACTIVE argument means to run the
`post-self-insert-hook'."
(beforepos (point))
(last-command-event ?\n)
;; Don't auto-fill if we have a prefix argument.
- (auto-fill-function (if arg nil auto-fill-function))
+ (inhibit-auto-fill (or inhibit-auto-fill arg))
(arg (prefix-numeric-value arg))
(procsym (make-symbol "newline-postproc")) ;(bug#46326)
(postproc
@@ -1520,7 +1520,8 @@ the actual saved text might be different from what was
killed."
(let ((from (car cmp))
(to (cadr cmp)))
(cond
- ((= (length cmp) 2) ; static composition
+ ((and (= (length cmp) 3) ; static composition
+ (booleanp (nth 2 cmp)))
to)
;; TO can be at POS, in which case we want
;; to make sure we advance at least by 1
@@ -4463,17 +4464,23 @@ whose `car' is BUFFER."
'(nil (inhibit-switch-frame . t)))))
(set-window-point win pos)))))))))
+;; Implementation note: the next function intentionally tries to use
+;; the same signature as 'shell-command', although the 3rd arg is
+;; currently ignored, to allow us to implement support for specifying
+;; ERROR-BUFFER in the future.
(defun async-shell-command (command &optional output-buffer error-buffer)
"Execute string COMMAND asynchronously in background.
Like `shell-command', but adds `&' at the end of COMMAND
to execute it asynchronously.
-The output appears in the buffer whose name is stored in the
-variable `shell-command-buffer-name-async'. That buffer is in
-shell mode.
+The output appears in OUTPUT-BUFFER, which could be a buffer or
+the name of a buffer, and defaults to `shell-command-buffer-name-async'
+if nil or omitted. That buffer is in shell mode. Note that, unlike
+with `shell-command', OUTPUT-BUFFER can only be a buffer, a buffer's
+name (a string), or nil.
-You can configure `async-shell-command-buffer' to specify what to do
+You can customize `async-shell-command-buffer' to specify what to do
when the buffer specified by `shell-command-buffer-name-async' is
already taken by another running shell command.
@@ -4482,6 +4489,10 @@ configure `display-buffer-alist' to use the action
`display-buffer-no-window' for the buffer given by
`shell-command-buffer-name-async'.
+Optional argument ERROR-BUFFER is for backward compatibility; it
+is ignored, and error output of the async command is always
+mingled with its regular output.
+
In Elisp, you will often be better served by calling `start-process'
directly, since it offers more control and does not impose the use of
a shell (with its need to quote arguments)."
@@ -4499,7 +4510,10 @@ a shell (with its need to quote arguments)."
((eq major-mode 'dired-mode)
(dired-get-filename nil t)))))
(and filename (file-relative-name filename))))
- current-prefix-arg
+ nil
+ ;; FIXME: the following argument is always ignored by 'shell-commnd',
+ ;; when the command is invoked asynchronously, except, perhaps, when
+ ;; 'default-directory' is remote.
shell-command-default-error-buffer))
(unless (string-match "&[ \t]*\\'" command)
(setq command (concat command " &")))
@@ -4753,6 +4767,18 @@ this function will instead return -1."
(funcall handler 'file-user-uid)
(user-uid)))
+(defun file-group-gid ()
+ "Return the connection-local effective gid.
+This is similar to `group-gid', but may invoke a file name handler
+based on `default-directory'. See Info node `(elisp)Magic File
+Names'.
+
+If a file name handler is unable to retrieve the effective gid,
+this function will instead return -1."
+ (if-let ((handler (find-file-name-handler default-directory
'file-group-gid)))
+ (funcall handler 'file-group-gid)
+ (group-gid)))
+
(defun max-mini-window-lines (&optional frame)
"Compute maximum number of lines for echo area in FRAME.
As defined by `max-mini-window-height'. FRAME defaults to the
@@ -8702,12 +8728,22 @@ node `(elisp) Word Motion' for details."
(forward-word (- (or arg 1))))
(defun mark-word (&optional arg allow-extend)
- "Set mark ARG words away from point.
-The place mark goes is the same place \\[forward-word] would
-move to with the same argument.
-Interactively, if this command is repeated
-or (in Transient Mark mode) if the mark is active,
-it marks the next ARG words after the ones already marked."
+ "Set mark ARG words from point or move mark one word.
+When called from Lisp with ALLOW-EXTEND ommitted or nil, mark is
+set ARG words from point.
+With ARG and ALLOW-EXTEND both non-nil (interactively, with prefix
+argument), the place to which mark goes is the same place \\[forward-word]
+would move to with the same argument; if the mark is active, it moves
+ARG words from its current position, otherwise it is set ARG words
+from point.
+When invoked interactively without a prefix argument and no active
+region, mark moves one word forward.
+When invoked interactively without a prefix argument, and region
+is active, mark moves one word away of point (i.e., forward
+if mark is at or after point, back if mark is before point), thus
+extending the region by one word. Since the direction of region
+extension depends on the relative position of mark and point, you
+can change the direction by \\[exchange-point-and-mark]."
(interactive "P\np")
(cond ((and allow-extend
(or (and (eq last-command this-command) (mark t))
@@ -8919,11 +8955,15 @@ unless optional argument SOFT is non-nil."
;; If we're not inside a comment, just try to indent.
(t (indent-according-to-mode))))))
+(defvar inhibit-auto-fill nil
+ "Non-nil means to do as if `auto-fill-mode' was disabled.")
+
(defun internal-auto-fill ()
"The function called by `self-insert-command' to perform auto-filling."
- (when (or (not comment-start)
- (not comment-auto-fill-only-comments)
- (nth 4 (syntax-ppss)))
+ (unless (or inhibit-auto-fill
+ (and comment-start
+ comment-auto-fill-only-comments
+ (not (nth 4 (syntax-ppss)))))
(funcall auto-fill-function)))
(defvar normal-auto-fill-function 'do-auto-fill
@@ -9108,6 +9148,13 @@ presented."
"Toggle buffer size display in the mode line (Size Indication mode)."
:global t :group 'mode-line)
+(defcustom remote-file-name-inhibit-auto-save nil
+ "When nil, `auto-save-mode' will auto-save remote files.
+Any other value means that it will not."
+ :group 'auto-save
+ :type 'boolean
+ :version "30.1")
+
(define-minor-mode auto-save-mode
"Toggle auto-saving in the current buffer (Auto Save mode).
@@ -9130,6 +9177,9 @@ For more details, see Info node `(emacs) Auto Save'."
(setq buffer-auto-save-file-name
(cond
((null val) nil)
+ ((and buffer-file-name
remote-file-name-inhibit-auto-save
+ (file-remote-p buffer-file-name))
+ nil)
((and buffer-file-name auto-save-visited-file-name
(not buffer-read-only))
buffer-file-name)
@@ -9201,6 +9251,21 @@ it skips the contents of comments that end before point."
:type 'boolean
:group 'paren-blinking)
+(defcustom blink-matching-paren-highlight-offscreen nil
+ "If non-nil, highlight matched off-screen open paren in the echo area.
+This highlighting uses the `blink-matching-paren-offscreen' face."
+ :type 'boolean
+ :version "30.1"
+ :group 'paren-blinking)
+
+(defface blink-matching-paren-offscreen
+ '((t :foreground "green"))
+ "Face for showing in the echo area matched open paren that is off-screen.
+This face is used only when `blink-matching-paren-highlight-offscreen'
+is non-nil."
+ :version "30.1"
+ :group 'paren-blinking)
+
(defun blink-matching-check-mismatch (start end)
"Return whether or not START...END are matching parens.
END is the current point and START is the blink position.
@@ -9298,47 +9363,78 @@ The function should return non-nil if the two tokens do
not match.")
(delete-overlay blink-matching--overlay)))))
((not show-paren-context-when-offscreen)
(minibuffer-message
- "Matches %s"
- (substring-no-properties
- (blink-paren-open-paren-line-string blinkpos))))))))
+ "%s%s"
+ (propertize "Matches " 'face 'shadow)
+ (blink-paren-open-paren-line-string blinkpos)))))))
(defun blink-paren-open-paren-line-string (pos)
- "Return the line string that contains the openparen at POS."
+ "Return the line string that contains the openparen at POS.
+Remove the line string's properties but give the openparen a distinct
+face if `blink-matching-paren-highlight-offscreen' is non-nil."
(save-excursion
(goto-char pos)
;; Capture the regions in terms of (beg . end) conses whose
;; buffer-substrings we want to show as a context string. Ensure
;; they are font-locked (bug#59527).
- (let (regions)
- ;; Show what precedes the open in its line, if anything.
+ (let (regions
+ openparen-idx)
(cond
+ ;; Show what precedes the open in its line, if anything.
((save-excursion (skip-chars-backward " \t") (not (bolp)))
- (setq regions (list (cons (line-beginning-position)
- (1+ pos)))))
+ (let ((bol (line-beginning-position)))
+ (setq regions (list (cons bol (1+ pos)))
+ openparen-idx (- pos bol))))
;; Show what follows the open in its line, if anything.
((save-excursion
(forward-char 1)
(skip-chars-forward " \t")
(not (eolp)))
- (setq regions (list (cons pos (line-end-position)))))
+ (setq regions (list (cons pos (line-end-position)))
+ openparen-idx 0))
;; Otherwise show the previous nonblank line,
;; if there is one.
((save-excursion (skip-chars-backward "\n \t") (not (bobp)))
- (setq regions (list (cons (progn
- (skip-chars-backward "\n \t")
- (line-beginning-position))
- (progn (end-of-line)
- (skip-chars-backward " \t")
- (point)))
+ (setq regions (list (cons
+ (let (bol)
+ (skip-chars-backward "\n \t")
+ (setq bol (line-beginning-position)
+ openparen-idx (- bol))
+ bol)
+ (let (eol)
+ (end-of-line)
+ (skip-chars-backward " \t")
+ (setq eol (point)
+ openparen-idx (+ openparen-idx
+ eol
+ ;; (length "...")
+ 3))
+ eol))
(cons pos (1+ pos)))))
;; There is nothing to show except the char itself.
- (t (setq regions (list (cons pos (1+ pos))))))
+ (t (setq regions (list (cons pos (1+ pos)))
+ openparen-idx 0)))
;; Ensure we've font-locked the context region.
(font-lock-ensure (caar regions) (cdar (last regions)))
- (mapconcat (lambda (region)
- (buffer-substring (car region) (cdr region)))
- regions
- "..."))))
+ (let ((line-string
+ (mapconcat
+ (lambda (region)
+ (buffer-substring (car region) (cdr region)))
+ regions
+ "..."))
+ (openparen-next-char-idx (1+ openparen-idx)))
+ (setq line-string (substring-no-properties line-string))
+ (concat
+ (substring line-string
+ 0 openparen-idx)
+ (let ((matched-offscreen-openparen
+ (substring line-string
+ openparen-idx openparen-next-char-idx)))
+ (if blink-matching-paren-highlight-offscreen
+ (propertize matched-offscreen-openparen
+ 'face 'blink-matching-paren-offscreen)
+ matched-offscreen-openparen))
+ (substring line-string
+ openparen-next-char-idx))))))
(defvar blink-paren-function 'blink-matching-open
"Function called, if non-nil, whenever a close parenthesis is inserted.
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 60113ca1410..0115a6f4ae4 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -2591,13 +2591,12 @@ interrupted by the user."
(if (not speedbar-stealthy-update-recurse)
(let ((l (speedbar-initial-stealthy-functions))
(speedbar-stealthy-update-recurse t))
- (unwind-protect
- (speedbar-with-writable
- (while (and l (funcall (car l)))
- ;;(sit-for 0)
- (setq l (cdr l))))
- ;;(dframe-message "Exit with %S" (car l))
- ))))
+ (speedbar-with-writable
+ (while (and l (funcall (car l)))
+ ;;(sit-for 0)
+ (setq l (cdr l))))
+ ;;(dframe-message "Exit with %S" (car l))
+ )))
(defun speedbar-reset-scanners ()
"Reset any variables used by functions in the stealthy list as state.
@@ -3551,9 +3550,7 @@ This variable is ignored if `speedbar-use-imenu-flag' is
t."
"Toggle FLAG in `speedbar-fetch-etags-arguments'.
FLAG then becomes a member of etags command line arguments. If flag
is \"sort\", then toggle the value of `speedbar-sort-tags'. If its
-value is \"show\" then toggle the value of
-`speedbar-show-unknown-files'."
- (interactive)
+value is \"show\" then toggle the value of `speedbar-show-unknown-files'."
(cond
((equal flag "sort")
(setq speedbar-sort-tags (not speedbar-sort-tags)))
@@ -3572,38 +3569,36 @@ value is \"show\" then toggle the value of
"For FILE, run etags and create a list of symbols extracted.
Each symbol will be associated with its line position in FILE."
(let ((newlist nil))
- (unwind-protect
- (save-excursion
- (if (get-buffer "*etags tmp*")
- (kill-buffer "*etags tmp*")) ;kill to clean it up
- (if (<= 1 speedbar-verbosity-level)
- (dframe-message "Fetching etags..."))
- (set-buffer (get-buffer-create "*etags tmp*"))
- (apply 'call-process speedbar-fetch-etags-command nil
- (current-buffer) nil
- (append speedbar-fetch-etags-arguments (list file)))
- (goto-char (point-min))
- (if (<= 1 speedbar-verbosity-level)
- (dframe-message "Fetching etags..."))
- (let ((expr
- (let ((exprlst speedbar-fetch-etags-parse-list)
- (ans nil))
- (while (and (not ans) exprlst)
- (if (string-match (car (car exprlst)) file)
- (setq ans (car exprlst)))
- (setq exprlst (cdr exprlst)))
- (cdr ans))))
- (if expr
- (let (tnl)
- (set-buffer (get-buffer-create "*etags tmp*"))
- (while (not (save-excursion (end-of-line) (eobp)))
- (save-excursion
- (setq tnl (speedbar-extract-one-symbol expr)))
- (if tnl (setq newlist (cons tnl newlist)))
- (forward-line 1)))
- (dframe-message
- "Sorry, no support for a file of that extension"))))
- )
+ (save-excursion
+ (if (get-buffer "*etags tmp*")
+ (kill-buffer "*etags tmp*")) ;kill to clean it up
+ (if (<= 1 speedbar-verbosity-level)
+ (dframe-message "Fetching etags..."))
+ (set-buffer (get-buffer-create "*etags tmp*"))
+ (apply 'call-process speedbar-fetch-etags-command nil
+ (current-buffer) nil
+ (append speedbar-fetch-etags-arguments (list file)))
+ (goto-char (point-min))
+ (if (<= 1 speedbar-verbosity-level)
+ (dframe-message "Fetching etags..."))
+ (let ((expr
+ (let ((exprlst speedbar-fetch-etags-parse-list)
+ (ans nil))
+ (while (and (not ans) exprlst)
+ (if (string-match (car (car exprlst)) file)
+ (setq ans (car exprlst)))
+ (setq exprlst (cdr exprlst)))
+ (cdr ans))))
+ (if expr
+ (let (tnl)
+ (set-buffer (get-buffer-create "*etags tmp*"))
+ (while (not (save-excursion (end-of-line) (eobp)))
+ (save-excursion
+ (setq tnl (speedbar-extract-one-symbol expr)))
+ (if tnl (setq newlist (cons tnl newlist)))
+ (forward-line 1)))
+ (dframe-message
+ "Sorry, no support for a file of that extension"))))
(if speedbar-sort-tags
(sort newlist (lambda (a b) (string< (car a) (car b))))
(reverse newlist))))
diff --git a/lisp/startup.el b/lisp/startup.el
index 9ae53f4e50b..835ad785af1 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -837,12 +837,16 @@ It is the default value of the variable `top-level'."
(let ((display (frame-parameter nil 'display)))
;; Be careful which DISPLAY to remove from process-environment: follow
;; the logic of `callproc.c'.
- (if (stringp display) (setq display (concat "DISPLAY=" display))
- (dolist (varval initial-environment)
- (if (string-match "\\`DISPLAY=" varval)
- (setq display varval))))
+ (if (stringp display)
+ (setq display (concat "DISPLAY=" display))
+ (let ((env initial-environment))
+ (while (and env (or (not (string-match "\\`DISPLAY=" (car env)))
+ (progn
+ (setq display (car env))
+ nil)))
+ (setq env (cdr env)))))
(when display
- (delete display process-environment))))
+ (setq process-environment (delete display process-environment)))))
(startup--honor-delayed-native-compilations))
;; Precompute the keyboard equivalents in the menu bar items.
diff --git a/lisp/strokes.el b/lisp/strokes.el
index fe244d448d8..293bdf0f369 100644
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -760,27 +760,27 @@ Optional EVENT is acceptable as the starting event of the
stroke."
(setq safe-to-draw-p t))
(push (cdr (mouse-pixel-position))
pix-locs)))
- (setq event (read--potential-mouse-event)))))
- ;; protected
- ;; clean up strokes buffer and then bury it.
- (when (equal (buffer-name) strokes-buffer-name)
- (subst-char-in-region (point-min) (point-max)
- strokes-character ?\s)
- (goto-char (point-min))
- (bury-buffer))))
- ;; Otherwise, don't use strokes buffer and read stroke silently
- (when prompt
- (message "%s" prompt)
- (setq event (read--potential-mouse-event))
- (or (strokes-button-press-event-p event)
- (error "You must draw with the mouse")))
- (track-mouse
- (or event (setq event (read--potential-mouse-event)))
- (while (not (strokes-button-release-event-p event))
- (if (strokes-mouse-event-p event)
- (push (cdr (mouse-pixel-position))
- pix-locs))
- (setq event (read--potential-mouse-event))))
+ (setq event (read--potential-mouse-event))))
+ ;; protected
+ ;; clean up strokes buffer and then bury it.
+ (when (equal (buffer-name) strokes-buffer-name)
+ (subst-char-in-region (point-min) (point-max)
+ strokes-character ?\s)
+ (goto-char (point-min))
+ (bury-buffer))))
+ ;; Otherwise, don't use strokes buffer and read stroke silently
+ (when prompt
+ (message "%s" prompt)
+ (setq event (read--potential-mouse-event))
+ (or (strokes-button-press-event-p event)
+ (error "You must draw with the mouse")))
+ (track-mouse
+ (or event (setq event (read--potential-mouse-event)))
+ (while (not (strokes-button-release-event-p event))
+ (if (strokes-mouse-event-p event)
+ (push (cdr (mouse-pixel-position))
+ pix-locs))
+ (setq event (read--potential-mouse-event)))))
(setq grid-locs (strokes-renormalize-to-grid (nreverse pix-locs)))
(strokes-fill-stroke
(strokes-eliminate-consecutive-redundancies grid-locs)))))
diff --git a/lisp/subr.el b/lisp/subr.el
index e29c8ddd6c4..cef631a69c3 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -45,7 +45,8 @@ declaration. A FILE with an \"ext:\" prefix is an external
file.
`check-declare' will check such files if they are found, and skip
them without error if they are not.
-Optional ARGLIST specifies FN's arguments, or is t to not specify
+Optional ARGLIST specifies FN's arguments, in the same form as
+in `defun' (including the parentheses); or it is t to not specify
FN's arguments. An omitted ARGLIST defaults to t, not nil: a nil
ARGLIST specifies an empty argument list, and an explicit t
ARGLIST is a placeholder that allows supplying a later arg.
@@ -163,7 +164,7 @@ of previous VARs.
(defmacro setq-local (&rest pairs)
"Make each VARIABLE buffer-local and assign to it the corresponding VALUE.
-The arguments are variable/value pairs For each VARIABLE in a pair,
+The arguments are variable/value pairs. For each VARIABLE in a pair,
make VARIABLE buffer-local and assign to it the corresponding VALUE
of the pair. The VARIABLEs are literal symbols and should not be quoted.
@@ -204,6 +205,7 @@ buffer-local wherever it is set."
(defun buffer-local-boundp (symbol buffer)
"Return non-nil if SYMBOL is bound in BUFFER.
Also see `local-variable-p'."
+ (declare (side-effect-free t))
(condition-case nil
(buffer-local-value symbol buffer)
(:success t)
@@ -297,6 +299,7 @@ value of last one, or nil if there are none."
(defsubst subr-primitive-p (object)
"Return t if OBJECT is a built-in primitive function."
+ (declare (side-effect-free error-free))
(and (subrp object)
(not (subr-native-elisp-p object))))
@@ -414,6 +417,7 @@ The CONDITION argument is not evaluated. Do not quote it."
"Return a new uninterned symbol.
The name is made by appending `gensym-counter' to PREFIX.
PREFIX is a string, and defaults to \"g\"."
+ (declare (important-return-value t))
(let ((num (prog1 gensym-counter
(setq gensym-counter (1+ gensym-counter)))))
(make-symbol (format "%s%d" (or prefix "g") num))))
@@ -496,6 +500,7 @@ Defaults to `error'."
"Return non-nil if OBJECT seems to be a frame configuration.
Any list whose car is `frame-configuration' is assumed to be a frame
configuration."
+ (declare (pure t) (side-effect-free error-free))
(and (consp object)
(eq (car object) 'frame-configuration)))
@@ -505,6 +510,7 @@ ARGS is a list of the first N arguments to pass to FUN.
The result is a new function which does the same as FUN, except that
the first N arguments are fixed at the values with which this function
was called."
+ (declare (side-effect-free error-free))
(lambda (&rest args2)
(apply fun (append args args2))))
@@ -823,84 +829,34 @@ of course, also replace TO with a slightly larger value
next (+ from (* n inc)))))
(nreverse seq))))
-(defun copy-tree (tree &optional vecp)
+(defun copy-tree (tree &optional vectors-and-records)
"Make a copy of TREE.
If TREE is a cons cell, this recursively copies both its car and its cdr.
-Contrast to `copy-sequence', which copies only along the cdrs. With second
-argument VECP, this copies vectors as well as conses."
- (declare (side-effect-free t))
+Contrast to `copy-sequence', which copies only along the cdrs.
+With the second argument VECTORS-AND-RECORDS non-nil, this
+traverses and copies vectors and records as well as conses."
+ (declare (side-effect-free error-free))
(if (consp tree)
(let (result)
(while (consp tree)
(let ((newcar (car tree)))
- (if (or (consp (car tree)) (and vecp (vectorp (car tree))))
- (setq newcar (copy-tree (car tree) vecp)))
+ (if (or (consp (car tree))
+ (and vectors-and-records
+ (or (vectorp (car tree)) (recordp (car tree)))))
+ (setq newcar (copy-tree (car tree) vectors-and-records)))
(push newcar result))
(setq tree (cdr tree)))
(nconc (nreverse result)
- (if (and vecp (vectorp tree)) (copy-tree tree vecp) tree)))
- (if (and vecp (vectorp tree))
+ (if (and vectors-and-records (or (vectorp tree) (recordp tree)))
+ (copy-tree tree vectors-and-records)
+ tree)))
+ (if (and vectors-and-records (or (vectorp tree) (recordp tree)))
(let ((i (length (setq tree (copy-sequence tree)))))
(while (>= (setq i (1- i)) 0)
- (aset tree i (copy-tree (aref tree i) vecp)))
+ (aset tree i (copy-tree (aref tree i) vectors-and-records)))
tree)
tree)))
-(defvar safe-copy-tree--seen nil
- "A hash table for conses/vectors/records already seen by safe-copy-tree-1.
-Its key is a cons or vector/record seen by the algorithm, and its
-value is the corresponding cons/vector/record in the copy.")
-
-(defun safe-copy-tree--1 (tree &optional vecp)
- "Make a copy of TREE, taking circular structure into account.
-If TREE is a cons cell, this recursively copies both its car and its cdr.
-Contrast to `copy-sequence', which copies only along the cdrs. With second
-argument VECP, this copies vectors and records as well as conses."
- (cond
- ((gethash tree safe-copy-tree--seen))
- ((consp tree)
- (let* ((result (cons (car tree) (cdr tree)))
- (newcons result)
- hash)
- (while (and (not hash) (consp tree))
- (if (setq hash (gethash tree safe-copy-tree--seen))
- (setq newcons hash)
- (puthash tree newcons safe-copy-tree--seen))
- (setq tree newcons)
- (unless hash
- (if (or (consp (car tree))
- (and vecp (or (vectorp (car tree)) (recordp (car tree)))))
- (let ((newcar (safe-copy-tree--1 (car tree) vecp)))
- (setcar tree newcar)))
- (setq newcons (if (consp (cdr tree))
- (cons (cadr tree) (cddr tree))
- (cdr tree)))
- (setcdr tree newcons)
- (setq tree (cdr tree))))
- (nconc result
- (if (and vecp (or (vectorp tree) (recordp tree)))
- (safe-copy-tree--1 tree vecp) tree))))
- ((and vecp (or (vectorp tree) (recordp tree)))
- (let* ((newvec (copy-sequence tree))
- (i (length newvec)))
- (puthash tree newvec safe-copy-tree--seen)
- (setq tree newvec)
- (while (>= (setq i (1- i)) 0)
- (aset tree i (safe-copy-tree--1 (aref tree i) vecp)))
- tree))
- (t tree)))
-
-(defun safe-copy-tree (tree &optional vecp)
- "Make a copy of TREE, taking circular structure into account.
-If TREE is a cons cell, this recursively copies both its car and its cdr.
-Contrast to `copy-sequence', which copies only along the cdrs. With second
-argument VECP, this copies vectors and records as well as conses."
- (setq safe-copy-tree--seen (make-hash-table :test #'eq))
- (unwind-protect
- (safe-copy-tree--1 tree vecp)
- (clrhash safe-copy-tree--seen)
- (setq safe-copy-tree--seen nil)))
-
;;;; Various list-search functions.
@@ -916,6 +872,7 @@ If that is non-nil, the element matches; then
`assoc-default'
If no element matches, the value is nil.
If TEST is omitted or nil, `equal' is used."
+ (declare (important-return-value t))
(let (found (tail alist) value)
(while (and tail (not found))
(let ((elt (car tail)))
@@ -941,6 +898,7 @@ Non-strings in LIST are ignored."
Compare keys with TEST. Defaults to `equal'.
Return the modified alist.
Elements of ALIST that are not conses are ignored."
+ (declare (important-return-value t))
(unless test (setq test #'equal))
(while (and (consp (car alist))
(funcall test (caar alist) key))
@@ -957,12 +915,14 @@ Elements of ALIST that are not conses are ignored."
"Delete from ALIST all elements whose car is `eq' to KEY.
Return the modified alist.
Elements of ALIST that are not conses are ignored."
+ (declare (important-return-value t))
(assoc-delete-all key alist #'eq))
(defun rassq-delete-all (value alist)
"Delete from ALIST all elements whose cdr is `eq' to VALUE.
Return the modified alist.
Elements of ALIST that are not conses are ignored."
+ (declare (important-return-value t))
(while (and (consp (car alist))
(eq (cdr (car alist)) value))
(setq alist (cdr alist)))
@@ -1005,6 +965,7 @@ Example:
(setf (alist-get \\='b foo nil \\='remove) nil)
foo => ((a . 1))"
+ (declare (important-return-value t))
(ignore remove) ;;Silence byte-compiler.
(let ((x (if (not testfn)
(assq key alist)
@@ -1120,6 +1081,7 @@ any corresponding binding in PARENT, but it does not
override corresponding
bindings in other keymaps of MAPS.
MAPS can be a list of keymaps or a single keymap.
PARENT if non-nil should be a keymap."
+ (declare (side-effect-free t))
`(keymap
,@(if (keymapp maps) (list maps) maps)
,@parent))
@@ -1260,6 +1222,7 @@ This resolves inheritance and redefinitions. The
returned keymap
should behave identically to a copy of KEYMAP w.r.t `lookup-key'
and use in active keymaps and menus.
Subkeymaps may be modified but are not canonicalized."
+ (declare (important-return-value t))
;; FIXME: Problem with the difference between a nil binding
;; that hides a binding in an inherited map and a nil binding that's ignored
;; to let some further binding visible. Currently a nil binding hides all.
@@ -1582,6 +1545,7 @@ See also `current-global-map'.")
(defun listify-key-sequence (key)
"Convert a key sequence to a list of events."
+ (declare (side-effect-free t))
(if (vectorp key)
(append key nil)
(mapcar (lambda (c)
@@ -1609,31 +1573,33 @@ EVENT may be an event or an event type. If EVENT is a
symbol
that has never been used in an event that has been read as input
in the current Emacs session, then this function may fail to include
the `click' modifier."
- (let ((type event))
- (if (listp type)
- (setq type (car type)))
- (if (symbolp type)
- ;; Don't read event-symbol-elements directly since we're not
- ;; sure the symbol has already been parsed.
- (cdr (internal-event-symbol-parse-modifiers type))
- (let ((list nil)
- (char (logand type (lognot (logior ?\M-\0 ?\C-\0 ?\S-\0
- ?\H-\0 ?\s-\0 ?\A-\0)))))
- (if (not (zerop (logand type ?\M-\0)))
- (push 'meta list))
- (if (or (not (zerop (logand type ?\C-\0)))
- (< char 32))
- (push 'control list))
- (if (or (not (zerop (logand type ?\S-\0)))
- (/= char (downcase char)))
- (push 'shift list))
- (or (zerop (logand type ?\H-\0))
- (push 'hyper list))
- (or (zerop (logand type ?\s-\0))
- (push 'super list))
- (or (zerop (logand type ?\A-\0))
- (push 'alt list))
- list))))
+ (declare (side-effect-free t))
+ (unless (stringp event)
+ (let ((type event))
+ (if (listp type)
+ (setq type (car type)))
+ (if (symbolp type)
+ ;; Don't read event-symbol-elements directly since we're not
+ ;; sure the symbol has already been parsed.
+ (cdr (internal-event-symbol-parse-modifiers type))
+ (let ((list nil)
+ (char (logand type (lognot (logior ?\M-\0 ?\C-\0 ?\S-\0
+ ?\H-\0 ?\s-\0 ?\A-\0)))))
+ (if (not (zerop (logand type ?\M-\0)))
+ (push 'meta list))
+ (if (or (not (zerop (logand type ?\C-\0)))
+ (< char 32))
+ (push 'control list))
+ (if (or (not (zerop (logand type ?\S-\0)))
+ (/= char (downcase char)))
+ (push 'shift list))
+ (or (zerop (logand type ?\H-\0))
+ (push 'hyper list))
+ (or (zerop (logand type ?\s-\0))
+ (push 'super list))
+ (or (zerop (logand type ?\A-\0))
+ (push 'alt list))
+ list)))))
(defun event-basic-type (event)
"Return the basic type of the given event (all modifiers removed).
@@ -1641,17 +1607,19 @@ The value is a printing character (not upper case) or a
symbol.
EVENT may be an event or an event type. If EVENT is a symbol
that has never been used in an event that has been read as input
in the current Emacs session, then this function may return nil."
- (if (consp event)
- (setq event (car event)))
- (if (symbolp event)
- (car (get event 'event-symbol-elements))
- (let* ((base (logand event (1- ?\A-\0)))
- (uncontrolled (if (< base 32) (logior base 64) base)))
- ;; There are some numbers that are invalid characters and
- ;; cause `downcase' to get an error.
- (condition-case ()
- (downcase uncontrolled)
- (error uncontrolled)))))
+ (declare (side-effect-free t))
+ (unless (stringp event)
+ (if (consp event)
+ (setq event (car event)))
+ (if (symbolp event)
+ (car (get event 'event-symbol-elements))
+ (let* ((base (logand event (1- ?\A-\0)))
+ (uncontrolled (if (< base 32) (logior base 64) base)))
+ ;; There are some numbers that are invalid characters and
+ ;; cause `downcase' to get an error.
+ (condition-case ()
+ (downcase uncontrolled)
+ (error uncontrolled))))))
(defsubst mouse-movement-p (object)
"Return non-nil if OBJECT is a mouse movement event."
@@ -1660,6 +1628,7 @@ in the current Emacs session, then this function may
return nil."
(defun mouse-event-p (object)
"Return non-nil if OBJECT is a mouse click event."
+ (declare (side-effect-free t))
;; is this really correct? maybe remove mouse-movement?
(memq (event-basic-type object) '(mouse-1 mouse-2 mouse-3 mouse-movement)))
@@ -1705,6 +1674,7 @@ nil or (STRING . POSITION)'.
`posn-timestamp': The time the event occurred, in milliseconds.
For more information, see Info node `(elisp)Click Events'."
+ (declare (side-effect-free t))
(or (and (consp event) (nth 1 event))
(event--posn-at-point)))
@@ -1713,17 +1683,20 @@ For more information, see Info node `(elisp)Click
Events'."
EVENT should be a click, drag, or key press event.
See `event-start' for a description of the value returned."
+ (declare (side-effect-free t))
(or (and (consp event) (nth (if (consp (nth 2 event)) 2 1) event))
(event--posn-at-point)))
(defsubst event-click-count (event)
"Return the multi-click count of EVENT, a click or drag event.
The return value is a positive integer."
+ (declare (side-effect-free t))
(if (and (consp event) (integerp (nth 2 event))) (nth 2 event) 1))
(defsubst event-line-count (event)
"Return the line count of EVENT, a mousewheel event.
The return value is a positive integer."
+ (declare (side-effect-free t))
(if (and (consp event) (integerp (nth 3 event))) (nth 3 event) 1))
;;;; Extracting fields of the positions in an event.
@@ -1733,6 +1706,7 @@ The return value is a positive integer."
A `posn' object is returned from functions such as `event-start'.
If OBJ is a valid `posn' object, but specifies a frame rather
than a window, return nil."
+ (declare (side-effect-free error-free))
;; FIXME: Correct the behavior of this function so that all valid
;; `posn' objects are recognized, after updating other code that
;; depends on its present behavior.
@@ -1746,12 +1720,14 @@ than a window, return nil."
If POSITION is outside the frame where the event was initiated,
return that frame instead. POSITION should be a list of the form
returned by the `event-start' and `event-end' functions."
+ (declare (side-effect-free t))
(nth 0 position))
(defsubst posn-area (position)
"Return the window area recorded in POSITION, or nil for the text area.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
+ (declare (side-effect-free t))
(let ((area (if (consp (nth 1 position))
(car (nth 1 position))
(nth 1 position))))
@@ -1763,6 +1739,7 @@ POSITION should be a list of the form returned by the
`event-start'
and `event-end' functions.
Returns nil if POSITION does not correspond to any buffer location (e.g.
a click on a scroll bar)."
+ (declare (side-effect-free t))
(or (nth 5 position)
(let ((pt (nth 1 position)))
(or (car-safe pt)
@@ -1788,6 +1765,7 @@ Select the corresponding window as well."
The return value has the form (X . Y), where X and Y are given in
pixels. POSITION should be a list of the form returned by
`event-start' and `event-end'."
+ (declare (side-effect-free t))
(nth 2 position))
(declare-function scroll-bar-scale "scroll-bar" (num-denom whole))
@@ -1807,6 +1785,7 @@ corresponds to the vertical position of the click in the
scroll bar.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
+ (declare (side-effect-free t))
(let* ((pair (posn-x-y position))
(frame-or-window (posn-window position))
(frame (if (framep frame-or-window)
@@ -1852,12 +1831,14 @@ This function does not account for the width on
display, like the
number of visual columns taken by a TAB or image. If you need
the coordinates of POSITION in character units, you should use
`posn-col-row', not this function."
+ (declare (side-effect-free t))
(nth 6 position))
(defsubst posn-timestamp (position)
"Return the timestamp of POSITION.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
+ (declare (side-effect-free t))
(nth 3 position))
(defun posn-string (position)
@@ -1865,6 +1846,7 @@ and `event-end' functions."
Value is a cons (STRING . STRING-POS), or nil if not a string.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
+ (declare (side-effect-free t))
(let ((x (nth 4 position)))
;; Apparently this can also be `handle' or `below-handle' (bug#13979).
(when (consp x) x)))
@@ -1874,6 +1856,7 @@ and `event-end' functions."
Value is a list (image ...), or nil if not an image.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
+ (declare (side-effect-free t))
(nth 7 position))
(defsubst posn-object (position)
@@ -1882,6 +1865,7 @@ Value is a list (image ...) for an image object, a cons
cell
\(STRING . STRING-POS) for a string object, and nil for a buffer position.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
+ (declare (side-effect-free t))
(or (posn-image position) (posn-string position)))
(defsubst posn-object-x-y (position)
@@ -1890,12 +1874,14 @@ The return value has the form (DX . DY), where DX and
DY are
given in pixels, and they are relative to the top-left corner of
the clicked glyph of object at POSITION. POSITION should be a
list of the form returned by `event-start' and `event-end'."
+ (declare (side-effect-free t))
(nth 8 position))
(defsubst posn-object-width-height (position)
"Return the pixel width and height of the object of POSITION.
The return value has the form (WIDTH . HEIGHT). POSITION should
be a list of the form returned by `event-start' and `event-end'."
+ (declare (side-effect-free t))
(nth 9 position))
(defun values--store-value (value)
@@ -1936,8 +1922,8 @@ be a list of the form returned by `event-start' and
`event-end'."
(set-advertised-calling-convention 'unintern '(name obarray) "23.3")
(set-advertised-calling-convention 'indirect-function '(object) "25.1")
(set-advertised-calling-convention 'redirect-frame-focus '(frame focus-frame)
"24.3")
-(set-advertised-calling-convention 'libxml-parse-xml-region '(start end
&optional base-url) "27.1")
-(set-advertised-calling-convention 'libxml-parse-html-region '(start end
&optional base-url) "27.1")
+(set-advertised-calling-convention 'libxml-parse-xml-region '(&optional start
end base-url) "27.1")
+(set-advertised-calling-convention 'libxml-parse-html-region '(&optional start
end base-url) "27.1")
(set-advertised-calling-convention 'time-convert '(time form) "29.1")
;;;; Obsolescence declarations for variables, and aliases.
@@ -2656,6 +2642,7 @@ The variable list SPEC is the same as in `if-let*'."
Uses the `derived-mode-parent' property of the symbol to trace backwards.
If you just want to check `major-mode', use `derived-mode-p'."
;; If MODE is an alias, then look up the real mode function first.
+ (declare (side-effect-free t))
(when-let ((alias (symbol-function mode)))
(when (symbolp alias)
(setq mode alias)))
@@ -2670,6 +2657,7 @@ If you just want to check `major-mode', use
`derived-mode-p'."
(defun derived-mode-p (&rest modes)
"Non-nil if the current major mode is derived from one of MODES.
Uses the `derived-mode-parent' property of the symbol to trace backwards."
+ (declare (side-effect-free t))
(apply #'provided-mode-derived-p major-mode modes))
(defvar-local major-mode--suspended nil)
@@ -2793,6 +2781,7 @@ If TOGGLE has a `:menu-tag', that is used for the menu
item's label."
(defsubst autoloadp (object)
"Non-nil if OBJECT is an autoload."
+ (declare (side-effect-free error-free))
(eq 'autoload (car-safe object)))
;; (defun autoload-type (object)
@@ -2837,6 +2826,7 @@ This is to `put' what `defalias' is to `fset'."
(defun locate-eln-file (eln-file)
"Locate a natively-compiled ELN-FILE by searching its load path.
This function looks in directories named by `native-comp-eln-load-path'."
+ (declare (important-return-value t))
(or (locate-file-internal (concat comp-native-version-dir "/" eln-file)
native-comp-eln-load-path)
(locate-file-internal
@@ -2868,6 +2858,7 @@ instead.
This function only works for symbols defined in Lisp files. For
symbols that are defined in C files, use `help-C-file-name'
instead."
+ (declare (important-return-value t))
(if (and (or (null type) (eq type 'defun))
(symbolp symbol)
(autoloadp (symbol-function symbol)))
@@ -2994,6 +2985,7 @@ argument, which will be called with the exit status of the
program before the output is collected. If STATUS-HANDLER is
nil, an error is signaled if the program returns with a non-zero
exit status."
+ (declare (important-return-value t))
(with-temp-buffer
(let ((status (apply #'call-process program nil (current-buffer) nil
args)))
(if status-handler
@@ -3014,12 +3006,14 @@ exit status."
"Execute PROGRAM with ARGS, returning its output as a list of lines.
Signal an error if the program returns with a non-zero exit status.
Also see `process-lines-ignore-status'."
+ (declare (important-return-value t))
(apply #'process-lines-handling-status program nil args))
(defun process-lines-ignore-status (program &rest args)
"Execute PROGRAM with ARGS, returning its output as a list of lines.
The exit status of the program is ignored.
Also see `process-lines'."
+ (declare (important-return-value t))
(apply #'process-lines-handling-status program #'ignore args))
(defun process-live-p (process)
@@ -3048,6 +3042,7 @@ process."
(defun process-get (process propname)
"Return the value of PROCESS' PROPNAME property.
This is the last value stored with `(process-put PROCESS PROPNAME VALUE)'."
+ (declare (side-effect-free t))
(plist-get (process-plist process) propname))
(defun process-put (process propname value)
@@ -3288,34 +3283,40 @@ This function is used by the `interactive' code letter
\"n\"."
n))
(defvar read-char-choice-use-read-key nil
- "Prefer `read-key' when reading a character by `read-char-choice'.
-Otherwise, use the minibuffer.
+ "If non-nil, use `read-key' when reading a character by `read-char-choice'.
+Otherwise, use the minibuffer (this is the default).
-When using the minibuffer, the user is less constrained, and can
-use the normal commands available in the minibuffer, and can, for
-instance, switch to another buffer, do things there, and then
-switch back again to the minibuffer before entering the
-character. This is not possible when using `read-key', but using
-`read-key' may be less confusing to some users.")
+When reading via the minibuffer, you can use the normal commands
+available in the minibuffer, and can, for instance, temporarily
+switch to another buffer, do things there, and then switch back
+to the minibuffer before entering the character. This is not
+possible when using `read-key', but using `read-key' may be less
+confusing to some users.")
(defun read-char-choice (prompt chars &optional inhibit-keyboard-quit)
- "Read and return one of CHARS, prompting for PROMPT.
-Any input that is not one of CHARS is ignored.
-
-By default, the minibuffer is used to read the key
-non-modally (see `read-char-from-minibuffer'). If
+ "Read and return one of the characters in CHARS, prompting with PROMPT.
+CHARS should be a list of single characters.
+The function discards any input character that is not one of CHARS,
+and by default shows a message to the effect that it is not one of
+the expected characters.
+
+By default, this function uses the minibuffer to read the key
+non-modally (see `read-char-from-minibuffer'), and the optional
+argument INHIBIT-KEYBOARD-QUIT is ignored. However, if
`read-char-choice-use-read-key' is non-nil, the modal `read-key'
-function is used instead (see `read-char-choice-with-read-key')."
+function is used instead (see `read-char-choice-with-read-key'),
+and INHIBIT-KEYBOARD-QUIT is passed to it."
(if (not read-char-choice-use-read-key)
(read-char-from-minibuffer prompt chars)
(read-char-choice-with-read-key prompt chars inhibit-keyboard-quit)))
(defun read-char-choice-with-read-key (prompt chars &optional
inhibit-keyboard-quit)
- "Read and return one of CHARS, prompting for PROMPT.
+ "Read and return one of the characters in CHARS, prompting with PROMPT.
+CHARS should be a list of single characters.
Any input that is not one of CHARS is ignored.
If optional argument INHIBIT-KEYBOARD-QUIT is non-nil, ignore
-`keyboard-quit' events while waiting for a valid input.
+`keyboard-quit' events while waiting for valid input.
If you bind the variable `help-form' to a non-nil value
while calling this function, then pressing `help-char'
@@ -3611,22 +3612,24 @@ Also discard all previous input in the minibuffer."
(sit-for 2)))
(defvar y-or-n-p-use-read-key nil
- "Prefer `read-key' when answering a \"y or n\" question by `y-or-n-p'.
-Otherwise, use the minibuffer.
+ "Use `read-key' when reading answers to \"y or n\" questions by `y-or-n-p'.
+Otherwise, use the `read-from-minibuffer' to read the answers.
-When using the minibuffer, the user is less constrained, and can
-use the normal commands available in the minibuffer, and can, for
-instance, switch to another buffer, do things there, and then
-switch back again to the minibuffer before entering the
-character. This is not possible when using `read-key', but using
-`read-key' may be less confusing to some users.")
+When reading via the minibuffer, you can use the normal commands
+available in the minibuffer, and can, for instance, temporarily
+switch to another buffer, do things there, and then switch back
+to the minibuffer before entering the character. This is not
+possible when using `read-key', but using `read-key' may be less
+confusing to some users.")
(defvar from--tty-menu-p nil
"Non-nil means the current command was invoked from a TTY menu.")
(defun use-dialog-box-p ()
- "Say whether the current command should prompt the user via a dialog box."
+ "Return non-nil if the current command should prompt the user via a dialog
box."
(and last-input-event ; not during startup
- (or (listp last-nonmenu-event) ; invoked by a mouse event
+ (or (consp last-nonmenu-event) ; invoked by a mouse event
+ (and (null last-nonmenu-event)
+ (consp last-input-event))
from--tty-menu-p) ; invoked via TTY menu
use-dialog-box))
@@ -3635,7 +3638,9 @@ character. This is not possible when using `read-key',
but using
Return t if answer is \"y\" and nil if it is \"n\".
PROMPT is the string to display to ask the question; `y-or-n-p'
-adds \"(y or n) \" to it.
+adds \"(y or n) \" to it. If PROMPT is a non-empty string, and
+it ends with a non-space character, a space character will be
+appended to it.
If you bind the variable `help-form' to a non-nil value
while calling this function, then pressing `help-char'
@@ -3657,8 +3662,9 @@ If the user enters `recenter', `scroll-up', or
`scroll-down'
responses, perform the requested window recentering or scrolling
and ask again.
-Under a windowing system a dialog box will be used if `last-nonmenu-event'
-is nil and `use-dialog-box' is non-nil.
+If dialog boxes are supported, this function will use a dialog box
+if `use-dialog-box' is non-nil and the last input event was produced
+by a mouse, or by some window-system gesture, or via a menu.
By default, this function uses the minibuffer to read the key.
If `y-or-n-p-use-read-key' is non-nil, `read-key' is used
@@ -3955,6 +3961,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are
displayed there."
(defun copy-overlay (o)
"Return a copy of overlay O."
+ (declare (important-return-value t))
(let ((o1 (if (overlay-buffer o)
(make-overlay (overlay-start o) (overlay-end o)
;; FIXME: there's no easy way to find the
@@ -4037,6 +4044,7 @@ See also `locate-user-emacs-file'.")
(defsubst buffer-narrowed-p ()
"Return non-nil if the current buffer is narrowed."
+ (declare (side-effect-free t))
(/= (- (point-max) (point-min)) (buffer-size)))
(defmacro with-restriction (start end &rest rest)
@@ -4051,6 +4059,7 @@ to other portions of the buffer, use
`without-restriction' with the
same LABEL argument.
\(fn START END [:label LABEL] BODY)"
+ (declare (indent 0) (debug t))
(if (eq (car rest) :label)
`(internal--with-restriction ,start ,end (lambda () ,@(cddr rest))
,(cadr rest))
@@ -4060,7 +4069,7 @@ same LABEL argument.
"Helper function for `with-restriction', which see."
(save-restriction
(narrow-to-region start end)
- (if label (internal--lock-narrowing label))
+ (if label (internal--label-restriction label))
(funcall body)))
(defmacro without-restriction (&rest rest)
@@ -4073,6 +4082,7 @@ restrictions set by `with-restriction' with the same
LABEL argument
are lifted.
\(fn [:label LABEL] BODY)"
+ (declare (indent 0) (debug t))
(if (eq (car rest) :label)
`(internal--without-restriction (lambda () ,@(cddr rest))
,(cadr rest))
@@ -4081,7 +4091,7 @@ are lifted.
(defun internal--without-restriction (body &optional label)
"Helper function for `without-restriction', which see."
(save-restriction
- (if label (internal--unlock-narrowing label))
+ (if label (internal--unlabel-restriction label))
(widen)
(funcall body)))
@@ -4161,7 +4171,8 @@ See Info node `(elisp)Security Considerations'.
If the optional POSIX argument is non-nil, ARGUMENT is quoted
according to POSIX shell quoting rules, regardless of the
system's shell."
-(cond
+ (declare (important-return-value t))
+ (cond
((and (not posix) (eq system-type 'ms-dos))
;; Quote using double quotes, but escape any existing quotes in
;; the argument with backslashes.
@@ -4278,6 +4289,7 @@ or byte-code."
(defun field-at-pos (pos)
"Return the field at position POS, taking stickiness etc into account."
+ (declare (important-return-value t))
(let ((raw-field (get-char-property (field-beginning pos) 'field)))
(if (eq raw-field 'boundary)
(get-char-property (1- (field-end pos)) 'field)
@@ -4293,6 +4305,7 @@ string; otherwise returna 40-character string.
Note that SHA-1 is not collision resistant and should not be used
for anything security-related. See `secure-hash' for
alternatives."
+ (declare (side-effect-free t))
(secure-hash 'sha1 object start end binary))
(defun function-get (f prop &optional autoload)
@@ -4300,6 +4313,7 @@ alternatives."
If AUTOLOAD is non-nil and F is autoloaded, try to load it
in the hope that it will set PROP. If AUTOLOAD is `macro', do it only
if it's an autoloaded macro."
+ (declare (important-return-value t))
(let ((val nil))
(while (and (symbolp f)
(null (setq val (get f prop)))
@@ -5255,6 +5269,7 @@ In other words, all back-references in the form `\\&' and
`\\N'
are substituted with actual strings matched by the last search.
Optional FIXEDCASE, LITERAL, STRING and SUBEXP have the same
meaning as for `replace-match'."
+ (declare (side-effect-free t))
(let ((match (match-string 0 string)))
(save-match-data
(match-data--translate (- (match-beginning 0)))
@@ -5316,6 +5331,7 @@ A non-subregexp context is for example within brackets,
or within a
repetition bounds operator `\\=\\{...\\}', or right after a `\\'.
If START is non-nil, it should be a position in REGEXP, smaller
than POS, and known to be in a subregexp context."
+ (declare (important-return-value t))
;; Here's one possible implementation, with the great benefit that it
;; reuses the regexp-matcher's own parser, so it understands all the
;; details of the syntax. A disadvantage is that it needs to match the
@@ -5397,6 +5413,7 @@ case that you wish to retain zero-length substrings when
splitting on
whitespace, use `(split-string STRING split-string-default-separators)'.
Modifies the match data; use `save-match-data' if necessary."
+ (declare (important-return-value t))
(let* ((keep-nulls (not (if separators omit-nulls t)))
(rexp (or separators split-string-default-separators))
(start 0)
@@ -5454,6 +5471,7 @@ Only some SEPARATORs will work properly.
Note that this is not intended to protect STRINGS from
interpretation by shells, use `shell-quote-argument' for that."
+ (declare (important-return-value t))
(let* ((sep (or separator " "))
(re (concat "[\\\"]" "\\|" (regexp-quote sep))))
(mapconcat
@@ -5468,6 +5486,7 @@ interpretation by shells, use `shell-quote-argument' for
that."
It understands Emacs Lisp quoting within STRING, such that
(split-string-and-unquote (combine-and-quote-strings strs)) == strs
The SEPARATOR regexp defaults to \"\\s-+\"."
+ (declare (important-return-value t))
(let ((sep (or separator "\\s-+"))
(i (string-search "\"" string)))
(if (null i)
@@ -5535,6 +5554,7 @@ To replace only the first match (if any), make REGEXP
match up to \\\\='
and replace a sub-expression, e.g.
(replace-regexp-in-string \"\\\\(foo\\\\).*\\\\\\='\" \"bar\" \" foo foo\"
nil nil 1)
=> \" bar foo\""
+ (declare (important-return-value t))
;; To avoid excessive consing from multiple matches in long strings,
;; don't just call `replace-match' continually. Walk down the
@@ -5584,7 +5604,7 @@ See also `string-equal'."
"Return non-nil if PREFIX is a prefix of STRING.
If IGNORE-CASE is non-nil, the comparison is done without paying attention
to case differences."
- (declare (pure t) (side-effect-free t))
+ (declare (side-effect-free t))
(let ((prefix-length (length prefix)))
(if (> prefix-length (length string)) nil
(eq t (compare-strings prefix 0 prefix-length string
@@ -5594,7 +5614,7 @@ to case differences."
"Return non-nil if SUFFIX is a suffix of STRING.
If IGNORE-CASE is non-nil, the comparison is done without paying
attention to case differences."
- (declare (pure t) (side-effect-free t))
+ (declare (side-effect-free t))
(let ((start-pos (- (length string) (length suffix))))
(and (>= start-pos 0)
(eq t (compare-strings suffix nil nil
@@ -5890,6 +5910,7 @@ from `standard-syntax-table' otherwise."
(defun syntax-after (pos)
"Return the raw syntax descriptor for the char after POS.
If POS is outside the buffer's accessible portion, return nil."
+ (declare (important-return-value t))
(unless (or (< pos (point-min)) (>= pos (point-max)))
(let ((st (if parse-sexp-lookup-properties
(get-char-property pos 'syntax-table))))
@@ -6704,6 +6725,7 @@ Examples of version conversion:
\"22.8beta3\" (22 8 -2 3)
See documentation for `version-separator' and `version-regexp-alist'."
+ (declare (side-effect-free t))
(unless (stringp ver)
(error "Version must be a string"))
;; Change .x.y to 0.x.y
@@ -6834,6 +6856,7 @@ etc. That is, the trailing \".0\"s are insignificant.
Also, version
string \"1\" is higher (newer) than \"1pre\", which is higher than \"1beta\",
which is higher than \"1alpha\", which is higher than \"1snapshot\".
Also, \"-GIT\", \"-CVS\" and \"-NNN\" are treated as snapshot versions."
+ (declare (side-effect-free t))
(version-list-< (version-to-list v1) (version-to-list v2)))
(defun version<= (v1 v2)
@@ -6844,6 +6867,7 @@ etc. That is, the trailing \".0\"s are insignificant.
Also, version
string \"1\" is higher (newer) than \"1pre\", which is higher than \"1beta\",
which is higher than \"1alpha\", which is higher than \"1snapshot\".
Also, \"-GIT\", \"-CVS\" and \"-NNN\" are treated as snapshot versions."
+ (declare (side-effect-free t))
(version-list-<= (version-to-list v1) (version-to-list v2)))
(defun version= (v1 v2)
@@ -6854,6 +6878,7 @@ etc. That is, the trailing \".0\"s are insignificant.
Also, version
string \"1\" is higher (newer) than \"1pre\", which is higher than \"1beta\",
which is higher than \"1alpha\", which is higher than \"1snapshot\".
Also, \"-GIT\", \"-CVS\" and \"-NNN\" are treated as snapshot versions."
+ (declare (side-effect-free t))
(version-list-= (version-to-list v1) (version-to-list v2)))
(defvar package--builtin-versions
@@ -6976,7 +7001,11 @@ returned list are in the same order as in TREE.
"Trim STRING of leading string matching REGEXP.
REGEXP defaults to \"[ \\t\\n\\r]+\"."
- (if (string-match (concat "\\`\\(?:" (or regexp "[ \t\n\r]+") "\\)") string)
+ (declare (important-return-value t))
+ (if (string-match (if regexp
+ (concat "\\`\\(?:" regexp "\\)")
+ "\\`[ \t\n\r]+")
+ string)
(substring string (match-end 0))
string))
@@ -6985,7 +7014,9 @@ REGEXP defaults to \"[ \\t\\n\\r]+\"."
REGEXP defaults to \"[ \\t\\n\\r]+\"."
(declare (side-effect-free t))
- (let ((i (string-match-p (concat "\\(?:" (or regexp "[ \t\n\r]+") "\\)\\'")
+ (let ((i (string-match-p (if regexp
+ (concat "\\(?:" regexp "\\)\\'")
+ "[ \t\n\r]+\\'")
string)))
(if i (substring string 0 i) string)))
@@ -6993,6 +7024,7 @@ REGEXP defaults to \"[ \\t\\n\\r]+\"."
"Trim STRING of leading and trailing strings matching TRIM-LEFT and
TRIM-RIGHT.
TRIM-LEFT and TRIM-RIGHT default to \"[ \\t\\n\\r]+\"."
+ (declare (important-return-value t))
(string-trim-left (string-trim-right string trim-right) trim-left))
;; The initial anchoring is for better performance in searching matches.
@@ -7167,7 +7199,7 @@ CONDITION is either:
- the symbol t, to always match,
- the symbol nil, which never matches,
- a regular expression, to match a buffer name,
-- a predicate function that takes a buffer object and ARG as
+- a predicate function that takes BUFFER-OR-NAME and ARG as
arguments, and returns non-nil if the buffer matches,
- a cons-cell, where the car describes how to interpret the cdr.
The car can be one of the following:
@@ -7193,8 +7225,8 @@ CONDITION is either:
(string-match-p condition (buffer-name buffer)))
((pred functionp)
(if (eq 1 (cdr (func-arity condition)))
- (funcall condition buffer)
- (funcall condition buffer arg)))
+ (funcall condition buffer-or-name)
+ (funcall condition buffer-or-name arg)))
(`(major-mode . ,mode)
(eq
(buffer-local-value 'major-mode buffer)
@@ -7217,12 +7249,13 @@ CONDITION is either:
(funcall match (list condition))))
(defun match-buffers (condition &optional buffers arg)
- "Return a list of buffers that match CONDITION.
-See `buffer-match-p' for details on CONDITION. By default all
-buffers are checked, this can be restricted by passing an
-optional argument BUFFERS, set to a list of buffers to check.
-ARG is passed to `buffer-match', for predicate conditions in
-CONDITION."
+ "Return a list of buffers that match CONDITION, or nil if none match.
+See `buffer-match-p' for various supported CONDITIONs.
+By default all buffers are checked, but the optional
+argument BUFFERS can restrict that: its value should be
+an explicit list of buffers to check.
+Optional argument ARG is passed to `buffer-match-p', for
+predicate conditions in CONDITION."
(let (bufs)
(dolist (buf (or buffers (buffer-list)))
(when (buffer-match-p condition (get-buffer buf) arg)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 7c3069ca269..87ca80ce00a 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1333,8 +1333,8 @@ Negative TAB-NUMBER counts tabs from the end of the tab
bar."
(ws
;; `window-state-put' fails when called in the minibuffer
- (when (minibuffer-selected-window)
- (select-window (minibuffer-selected-window)))
+ (when (window-minibuffer-p)
+ (select-window (get-mru-window)))
(window-state-put ws nil 'safe)))
;; Select the minibuffer when it was active before switching tabs
@@ -1345,8 +1345,8 @@ Negative TAB-NUMBER counts tabs from the end of the tab
bar."
;; another tab, then after going back to the first tab, it has
;; such inconsistent state that the current buffer is the minibuffer,
;; but its window is not active. So try to undo this mess.
- (when (and (minibufferp) (not (active-minibuffer-window)))
- (other-window 1))
+ (when (and (window-minibuffer-p) (not (active-minibuffer-window)))
+ (select-window (get-mru-window)))
(when tab-bar-history-mode
(setq tab-bar-history-omit t))
@@ -1569,24 +1569,26 @@ After the tab is created, the hooks in
(when tab-bar-new-tab-choice
;; Handle the case when it's called in the active minibuffer.
- (when (minibuffer-selected-window)
- (select-window (minibuffer-selected-window)))
- ;; Remove window parameters that can cause problems
- ;; with `delete-other-windows' and `split-window'.
- (unless (eq tab-bar-new-tab-choice 'clone)
- (set-window-parameter nil 'window-atom nil)
- (set-window-parameter nil 'window-side nil))
- (let ((ignore-window-parameters t))
+ (when (window-minibuffer-p)
+ (select-window (get-mru-window)))
+ (let ((ignore-window-parameters t)
+ (window--sides-inhibit-check t))
(if (eq tab-bar-new-tab-choice 'clone)
;; Create new unique windows with the same layout
(window-state-put (window-state-get))
+ ;; Remove window parameters that can cause problems
+ ;; with `delete-other-windows' and `split-window'.
+ (set-window-parameter nil 'window-atom nil)
(delete-other-windows)
(if (eq tab-bar-new-tab-choice 'window)
;; Create new unique window from remaining window
- (window-state-put (window-state-get))
+ (progn
+ (set-window-parameter nil 'window-side nil)
+ (window-state-put (window-state-get)))
;; Create a new window to get rid of old window parameters
;; (e.g. prev/next buffers) of old window.
- (split-window) (delete-window))))
+ (split-window nil window-safe-min-width t)
+ (delete-window))))
(let ((buffer
(if (and (functionp tab-bar-new-tab-choice)
diff --git a/lisp/term.el b/lisp/term.el
index 3e4907e8bfc..e1392908b90 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1370,9 +1370,14 @@ Entry to this mode runs the hooks on `term-mode-hook'."
(interactive "e")
;; Give temporary modes such as isearch a chance to turn off.
(run-hooks 'mouse-leave-buffer-hook)
- (setq this-command 'yank)
(mouse-set-point click)
- (term-send-raw-string (gui-get-primary-selection)))
+ ;; As we have moved point, bind `select-active-regions' to prevent
+ ;; the `deactivate-mark' call in `term-send-raw-string' from
+ ;; changing the primary selection (resulting in consecutive calls to
+ ;; `term-mouse-paste' each sending different text). (bug#58608).
+ ;; FIXME: Why does this command change point at all?
+ (let ((select-active-regions nil))
+ (term-send-raw-string (gui-get-primary-selection))))
(defun term-paste ()
"Insert the last stretch of killed text at point."
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index ae5a2f2fc6b..50c9cb5b9d4 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -36,6 +36,9 @@
(require 'menu-bar)
(require 'fontset)
(require 'dnd)
+;; For when building a --without-x configuration, where this is not
+;; preloaded.
+(eval-when-compile (require 'mwheel))
(add-to-list 'display-format-alist '(".*" . haiku))
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index ec3046decd4..92be5a52bf2 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -192,6 +192,7 @@ The value is a list of \(VAR VALUE VAR VALUE...).")
(define-key map "\C-c[" #'set-left-margin)
(define-key map "\C-c]" #'set-right-margin)
(define-key map "\M-o" #'facemenu-keymap)
+ (define-key map "\M-om" #'enriched-toggle-markup)
map)
"Keymap for Enriched mode.")
diff --git a/lisp/textmodes/html-ts-mode.el b/lisp/textmodes/html-ts-mode.el
index 58dcc7d8cad..4c1f410a7ef 100644
--- a/lisp/textmodes/html-ts-mode.el
+++ b/lisp/textmodes/html-ts-mode.el
@@ -42,7 +42,7 @@
(defvar html-ts-mode--indent-rules
`((html
- ((parent-is "fragment") point-min 0)
+ ((parent-is "fragment") column-0 0)
((node-is "/>") parent-bol 0)
((node-is ">") parent-bol 0)
((node-is "end_tag") parent-bol 0)
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index bb2bcfd8052..97c4ce9f32d 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -214,12 +214,14 @@ Must be greater than 1."
((file-readable-p "/usr/share/lib/dict/words")
"/usr/share/lib/dict/words")
((file-readable-p "/sys/dict") "/sys/dict"))
- "Alternate plain word-list dictionary for spelling help."
+ "Alternate plain word-list dictionary for spelling help.
+This is also used by `ispell-lookup-words' and `ispell-complete-word'."
:type '(choice file (const :tag "None" nil)))
(defcustom ispell-complete-word-dict nil
"Plain word-list dictionary used for word completion if
-different from `ispell-alternate-dictionary'."
+different from `ispell-alternate-dictionary'.
+This is also used by `ispell-lookup-words' and `ispell-complete-word'."
:type '(choice file (const :tag "None" nil)))
(defcustom ispell-message-dictionary-alist nil
@@ -2510,7 +2512,9 @@ Otherwise the variable `ispell-grep-command' contains the
command
Optional second argument contains the dictionary to use; the default is
`ispell-alternate-dictionary', overridden by `ispell-complete-word-dict'
-if defined."
+if defined. If none of LOOKUP-DICT, `ispell-alternate-dictionary',
+and `ispell-complete-word-dict' name an existing word-list file,
+this function signals an error."
;; We don't use the filter for this function, rather the result is written
;; into a buffer. Hence there is no need to save the filter values.
(if (null lookup-dict)
@@ -3685,7 +3689,12 @@ If APPEND is non-nil, don't erase previous debugging
output."
If optional INTERIOR-FRAG is non-nil, then the word may be a character
sequence inside of a word.
-Standard ispell choices are then available."
+Standard ispell choices are then available.
+
+This command uses a word-list file specified
+by `ispell-alternate-dictionary' or by `ispell-complete-word-dict';
+if none of those name an existing word-list file, this command
+signals an error."
;; FIXME: completion-at-point-function.
(interactive "P")
(let ((case-fold-search-val case-fold-search)
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index 778591a8069..c7a297d5dac 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -1445,20 +1445,19 @@ match, the user will be asked to confirm the
replacement."
(as-words reftex-index-phrases-search-whole-words))
(unless macro-data
(error "No macro associated with key %c" char))
- (unwind-protect
- (let ((overlay-arrow-string "=>")
- (overlay-arrow-position
- reftex-index-phrases-marker)
- (replace-count 0))
- ;; Show the overlay arrow
- (move-marker reftex-index-phrases-marker
- (match-beginning 0) (current-buffer))
- ;; Start the query-replace
- (reftex-query-index-phrase-globally
- files phrase macro-fmt
- index-key repeat as-words)
- (message "%s replaced"
- (reftex-number replace-count "occurrence"))))))
+ (let ((overlay-arrow-string "=>")
+ (overlay-arrow-position
+ reftex-index-phrases-marker)
+ (replace-count 0))
+ ;; Show the overlay arrow
+ (move-marker reftex-index-phrases-marker
+ (match-beginning 0) (current-buffer))
+ ;; Start the query-replace
+ (reftex-query-index-phrase-globally
+ files phrase macro-fmt
+ index-key repeat as-words)
+ (message "%s replaced"
+ (reftex-number replace-count "occurrence")))))
(t (error "Cannot parse this line")))))
(defun reftex-index-all-phrases ()
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 57284db36b1..916e0d89a1d 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -477,9 +477,9 @@ will deactivate it."
changed t)
(setq list (delete style list))))
(t
- (if (member style list)
- (delete style list)
- (setq list (append list (list style))))
+ (setq list (if (member style list)
+ (delete style list)
+ (append list (list style))))
(setq reftex-tables-dirty t
changed t)))
(when changed
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 2271d83eff5..50c3f461bcc 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -1935,8 +1935,8 @@ specific features."
(if (and cell table-detect-cell-alignment)
(table--detect-cell-alignment cell)))
(unless (re-search-forward border end t)
- (goto-char end))))))))))
- (restore-buffer-modified-p modified-flag)))
+ (goto-char end))))))
+ (restore-buffer-modified-p modified-flag)))))))
;;;###autoload
(defun table-unrecognize-region (beg end)
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 7416c631c9f..bedf9ec92a5 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -409,6 +409,8 @@ REPORT-FN is the callback function."
;;; Texinfo mode
+(defvar fill-paragraph-separate nil)
+
;;;###autoload
(define-derived-mode texinfo-mode text-mode "Texinfo"
"Major mode for editing Texinfo files.
@@ -482,6 +484,10 @@ value of `texinfo-mode-hook'."
"\\)\\>"))
(setq-local require-final-newline mode-require-final-newline)
(setq-local indent-tabs-mode nil)
+ ;; This is used in 'texinfo--fill-paragraph'.
+ (setq-local fill-paragraph-separate (default-value 'paragraph-separate))
+ (setq-local paragraph-separate
+ (concat "@[a-zA-Z]*[ \n]\\|" paragraph-separate))
(setq-local paragraph-start (concat "@[a-zA-Z]*[ \n]\\|"
paragraph-start))
(setq-local fill-paragraph-function 'texinfo--fill-paragraph)
@@ -536,7 +542,13 @@ value of `texinfo-mode-hook'."
(defun texinfo--fill-paragraph (justify)
"Function to fill a paragraph in `texinfo-mode'."
- (let ((command-re "\\(@[a-zA-Z]+\\)[ \t\n]"))
+ (let ((command-re "\\(@[a-zA-Z]+\\)[ \t\n]")
+ ;; Kludge alert: we override paragraph-separate here because
+ ;; that is needed for filling @noindent and similar lines.
+ ;; The default Texinfo-specific paragraph-separate value,
+ ;; OTOH, is needed for auto-fill-mode, which doesn't call
+ ;; mode-specific functions.
+ (paragraph-separate fill-paragraph-separate))
(catch 'no-fill
(save-restriction
;; First check whether we're on a command line that can be
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 9363a474cb5..f3367290dee 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -645,7 +645,7 @@ back from point."
;; Email addresses
(defvar thing-at-point-email-regexp
- "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]*@[-.a-zA-Z0-9]+>?"
+ "<?[-+_~a-zA-Z0-9][-+_.~:a-zA-Z0-9]*@[-a-zA-Z0-9]+[-.a-zA-Z0-9]*>?"
"A regular expression probably matching an email address.
This does not match the real name portion, only the address, optionally
with angle brackets.")
diff --git a/lisp/tmm.el b/lisp/tmm.el
index 1f9a877c20b..a4058594622 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -28,6 +28,7 @@
;;; Code:
(require 'electric)
+(require 'text-property-search)
(defgroup tmm nil
"Text mode access to menu-bar."
@@ -169,9 +170,11 @@ instead of executing it."
(error "Empty menu reached"))
(and tmm-km-list
(let ((index-of-default 0))
- (if tmm-mid-prompt
- (setq tmm-km-list (tmm-add-shortcuts tmm-km-list))
- t)
+ (setq tmm-km-list
+ (if tmm-mid-prompt
+ (tmm-add-shortcuts tmm-km-list)
+ ;; tmm-add-shortcuts reverses tmm-km-list internally.
+ (reverse tmm-km-list)))
;; Find the default item's index within the menu bar.
;; We use this to decide the initial minibuffer contents
;; and initial history position.
@@ -192,7 +195,11 @@ instead of executing it."
(or (not visible) (eval visible))))))
(setq index-of-default (1+ index-of-default)))
(setq tail (cdr tail)))))
- (let ((prompt (concat "^." (regexp-quote tmm-mid-prompt))))
+ (let ((prompt
+ (concat "^"
+ (if (stringp tmm-mid-prompt)
+ (concat "."
+ (regexp-quote tmm-mid-prompt))))))
(setq tmm--history
(reverse (delq nil
(mapcar
@@ -320,8 +327,22 @@ Stores a list of all the shortcuts in the free variable
`tmm-short-cuts'."
(defun tmm-completion-delete-prompt ()
(with-current-buffer standard-output
- (goto-char (point-min))
- (delete-region (point) (search-forward "Possible completions are:\n"))))
+ (goto-char (point-min))
+ (let* (;; First candidate: first string with mouse-face
+ (menu-start-1 (or (and (get-text-property (point) 'mouse-face)
(point))
+ (next-single-char-property-change (point)
'mouse-face)))
+ ;; Second candidate: an inactive menu item with tmm-inactive face
+ (tps-result (save-excursion
+ (text-property-search-forward 'face 'tmm-inactive t)))
+ (menu-start-2 (and tps-result (prop-match-beginning tps-result))))
+ (or (and (null menu-start-1) (null menu-start-2))
+ (delete-region (point)
+ ;; Use the smallest position of the two candidates.
+ (or (and menu-start-1 menu-start-2
+ (min menu-start-1 menu-start-2))
+ ;; Otherwise use the one that is non-nil.
+ menu-start-1
+ menu-start-2))))))
(defun tmm-remove-inactive-mouse-face ()
"Remove the mouse-face property from inactive menu items."
diff --git a/lisp/transient.el b/lisp/transient.el
index 96e711e950c..048554eee13 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -6,7 +6,7 @@
;; URL: https://github.com/magit/transient
;; Keywords: extensions
-;; Package-Version: 0.3.7.50
+;; Package-Version: 0.4.1
;; Package-Requires: ((emacs "26.1"))
;; SPDX-License-Identifier: GPL-3.0-or-later
@@ -1071,7 +1071,8 @@ example, sets a variable, use `transient-define-infix'
instead.
(if (and desc (or (stringp desc) (symbolp desc)))
desc
(plist-get args :key)))))))
- (setq args (plist-put args :command `(defalias ',sym ,cmd)))))
+ (setq args (plist-put args :command
+ `(defalias ',sym ,(macroexp-quote cmd))))))
((or (stringp car)
(and car (listp car)))
(let ((arg pop))
@@ -1642,6 +1643,7 @@ of the corresponding object."
"<transient-history-prev>" #'transient--do-stay
"<transient-history-next>" #'transient--do-stay
"<universal-argument>" #'transient--do-stay
+ "<universal-argument-more>" #'transient--do-stay
"<negative-argument>" #'transient--do-minus
"<digit-argument>" #'transient--do-stay
"<top-level>" #'transient--do-quit-all
@@ -2516,17 +2518,22 @@ prefix argument and pivot to `transient-update'."
(defun transient--invalid (msg)
(ding)
- (message "%s: `%s' (Use `%s' to abort, `%s' for help) [%s]"
+ (message "%s: `%s' (Use `%s' to abort, `%s' for help)%s"
msg
(propertize (key-description (this-single-command-keys))
'face 'font-lock-warning-face)
(propertize "C-g" 'face 'transient-key)
(propertize "?" 'face 'transient-key)
- ;; `this-command' is `transient--undefined' or similar at this
- ;; point. Show the command the user actually tried to invoke.
- (propertize (symbol-name (transient--suffix-symbol
- this-original-command))
- 'face 'font-lock-warning-face))
+ ;; `this-command' is `transient-undefined' or `transient-inapt'.
+ ;; Show the command (`this-original-command') the user actually
+ ;; tried to invoke. For an anonymous inapt command that is a
+ ;; lambda expression, which cannot be mapped to a symbol, so
+ ;; forgo displaying the command.
+ (if-let ((cmd (ignore-errors
+ (symbol-name (transient--suffix-symbol
+ this-original-command)))))
+ (format " [%s]" (propertize cmd 'face 'font-lock-warning-face))
+ ""))
(unless (and transient--transient-map
(memq transient--transient-map overriding-terminal-local-map))
(let ((transient--prefix (or transient--prefix 'sic)))
@@ -3037,10 +3044,12 @@ prompt."
(progn
(cl-call-next-method obj value)
(dolist (arg incomp)
- (when-let ((obj (cl-find-if (lambda (obj)
- (and (slot-boundp obj 'argument)
- (equal (oref obj argument)
arg)))
- transient--suffixes)))
+ (when-let ((obj (cl-find-if
+ (lambda (obj)
+ (and (slot-exists-p obj 'argument)
+ (slot-boundp obj 'argument)
+ (equal (oref obj argument) arg)))
+ transient--suffixes)))
(let ((transient--unset-incompatible nil))
(transient-infix-set obj nil)))))
(cl-call-next-method obj value))))
@@ -3247,6 +3256,8 @@ have a history of their own.")
(with-current-buffer buf
(when transient-enable-popup-navigation
(setq focus (or (button-get (point) 'command)
+ (and (not (bobp))
+ (button-get (1- (point)) 'command))
(transient--heading-at-point))))
(erase-buffer)
(setq window-size-fixed t)
@@ -3378,7 +3389,9 @@ have a history of their own.")
(insert ?\n)
(insert (propertize " " 'display
`(space :align-to (,(nth (1+ c) cc)))))))
- (insert (make-string (max 1 (- (nth c cc) (current-column))) ?\s))
+ (when (> c 0)
+ (insert (make-string (max 1 (- (nth c cc) (current-column)))
+ ?\s)))
(when-let ((cell (nth r (nth c columns))))
(insert cell))
(when (= c (1- cs))
@@ -3928,8 +3941,13 @@ search instead."
(defun transient-isearch-abort ()
"Like `isearch-abort' but adapted for `transient'."
(interactive)
- (condition-case nil (isearch-abort) (quit))
- (transient--isearch-exit))
+ (let ((around (lambda (fn)
+ (condition-case nil (funcall fn) (quit))
+ (transient--isearch-exit))))
+ (advice-add 'isearch-cancel :around around)
+ (unwind-protect
+ (isearch-abort)
+ (advice-remove 'isearch-cancel around))))
(defun transient--isearch-setup ()
(select-window transient--window)
diff --git a/lisp/treesit.el b/lisp/treesit.el
index 9bb58ec4ab1..ea701ce1ff7 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -88,6 +88,7 @@
(declare-function treesit-search-forward "treesit.c")
(declare-function treesit-induce-sparse-tree "treesit.c")
(declare-function treesit-subtree-stat "treesit.c")
+(declare-function treesit-node-match-p "treesit.c")
(declare-function treesit-available-p "treesit.c")
@@ -106,7 +107,7 @@ indent, imenu, etc."
;; 40MB for 64-bit systems, 15 for 32-bit.
(if (or (< most-positive-fixnum (* 2.0 1024 mb))
;; 32-bit system with wide ints.
- (string-match-p "--with-wide-int" system-configuration-options))
+ (string-search "--with-wide-int" system-configuration-options))
(* 15 mb)
(* 40 mb)))
"Maximum buffer size (in bytes) for enabling tree-sitter parsing.
@@ -245,21 +246,18 @@ is nil, try to guess the language at BEG using
`treesit-language-at'."
Specifically, return the highest parent of NODE that has the same
type as it. If no such parent exists, return nil.
-If PRED is non-nil, match each parent's type with PRED as a
-regexp, rather than using NODE's type. PRED can also be a
-function that takes the node as an argument, and return
-non-nil/nil for match/no match.
+If PRED is non-nil, match each parent's type with PRED rather
+than using NODE's type. PRED can also be a predicate function,
+and more. See `treesit-thing-settings' for details.
If INCLUDE-NODE is non-nil, return NODE if it satisfies PRED."
- (let ((pred (or pred (treesit-node-type node)))
+ (let ((pred (or pred (rx bos (literal (treesit-node-type node)) eos)))
(result nil))
(cl-loop for cursor = (if include-node node
(treesit-node-parent node))
then (treesit-node-parent cursor)
while cursor
- if (if (stringp pred)
- (string-match-p pred (treesit-node-type cursor))
- (funcall pred cursor))
+ if (treesit-node-match-p cursor pred)
do (setq result cursor))
result))
@@ -324,13 +322,13 @@ If INCLUDE-NODE is non-nil, return NODE if it satisfies
PRED."
node))
(defun treesit-parent-while (node pred)
- "Return the furthest parent of NODE that satisfies PRED.
+ "Return the furthest parent of NODE (including NODE) that satisfies PRED.
-This function successively examines the parent of NODE, then
-the parent of the parent, etc., until it finds an ancestor node
-which no longer satisfies the predicate PRED; it returns the last
-examined ancestor that satisfies PRED. It returns nil if no
-ancestor node was found that satisfies PRED.
+This function successively examines NODE, the parent of NODE,
+then the parent of the parent, etc., until it finds a node which
+no longer satisfies the predicate PRED; it returns the last
+examined node that satisfies PRED. If no node satisfies PRED, it
+returns nil.
PRED should be a function that takes one argument, the node to
examine, and returns a boolean value indicating whether that
@@ -363,6 +361,50 @@ If NAMED is non-nil, count named child only."
(idx (treesit-node-index node)))
(treesit-node-field-name-for-child parent idx)))
+(defun treesit-node-get (node instructions)
+ "Get things from NODE by INSTRUCTIONS.
+
+This is a convenience function that chains together multiple node
+accessor functions together. For example, to get NODE's parent's
+next sibling's second child's text, call
+
+ (treesit-node-get node
+ \\='((parent 1)
+ (sibling 1 nil)
+ (child 1 nil)
+ (text nil)))
+
+INSTRUCTION is a list of INSTRUCTIONs of the form (FN ARG...).
+The following FN's are supported:
+
+\(child IDX NAMED) Get the IDX'th child
+\(parent N) Go to parent N times
+\(field-name) Get the field name of the current node
+\(type) Get the type of the current node
+\(text NO-PROPERTY) Get the text of the current node
+\(children NAMED) Get a list of children
+\(sibling STEP NAMED) Get the nth prev/next sibling, negative STEP
+ means prev sibling, positive means next
+
+Note that arguments like NAMED and NO-PROPERTY can't be omitted,
+unlike in their original functions."
+ (declare (indent 1))
+ (while (and node instructions)
+ (pcase (pop instructions)
+ ('(field-name) (setq node (treesit-node-field-name node)))
+ ('(type) (setq node (treesit-node-type node)))
+ (`(child ,idx ,named) (setq node (treesit-node-child node idx named)))
+ (`(parent ,n) (dotimes (_ n)
+ (setq node (treesit-node-parent node))))
+ (`(text ,no-property) (setq node (treesit-node-text node no-property)))
+ (`(children ,named) (setq node (treesit-node-children node named)))
+ (`(sibling ,step ,named)
+ (dotimes (_ (abs step))
+ (setq node (if (> step 0)
+ (treesit-node-next-sibling node named)
+ (treesit-node-prev-sibling node named)))))))
+ node)
+
;;; Query API supplement
(defun treesit-query-string (string query language)
@@ -378,13 +420,16 @@ See `treesit-query-capture' for QUERY."
(defun treesit-query-range (node query &optional beg end)
"Query the current buffer and return ranges of captured nodes.
-QUERY, NODE, BEG, END are the same as in
-`treesit-query-capture'. This function returns a list
-of (START . END), where START and END specifics the range of each
-captured node. Capture names don't matter."
+QUERY, NODE, BEG, END are the same as in `treesit-query-capture'.
+This function returns a list of (START . END), where START and
+END specifics the range of each captured node. Capture names
+generally don't matter, but names that starts with an underscore
+are ignored."
(cl-loop for capture
in (treesit-query-capture node query beg end)
+ for name = (car capture)
for node = (cdr capture)
+ if (not (string-prefix-p "_" (symbol-name name)))
collect (cons (treesit-node-start node)
(treesit-node-end node))))
@@ -399,6 +444,9 @@ When updating the range of each parser in the buffer,
range to the range spanned by captured nodes. QUERY must be a
compiled query.
+Capture names generally don't matter, but names that starts with
+an underscore are ignored.
+
QUERY can also be a function, in which case it is called with 2
arguments, START and END. It should ensure parsers' ranges are
correct in the region between START and END.
@@ -418,6 +466,9 @@ like this:
Each QUERY is a tree-sitter query in either the string,
s-expression or compiled form.
+Capture names generally don't matter, but names that starts with
+an underscore are ignored.
+
For each QUERY, :KEYWORD and VALUE pairs add meta information to
it. For example,
@@ -1739,15 +1790,33 @@ however, smaller in scope than sentences. This is used
by
`treesit-forward-sexp' and friends.")
(defun treesit-forward-sexp (&optional arg)
+ "Tree-sitter implementation for `forward-sexp-function'.
+
+ARG is described in the docstring of `forward-sexp-function'. If
+there are no further sexps to move across, signal `scan-error'
+like `forward-sexp' does. If point is already at top-level,
+return nil without moving point."
(interactive "^p")
- (or arg (setq arg 1))
- (funcall
- (if (> arg 0) #'treesit-end-of-thing #'treesit-beginning-of-thing)
- treesit-sexp-type-regexp (abs arg)))
+ (let ((arg (or arg 1))
+ (pred treesit-sexp-type-regexp))
+ (or (if (> arg 0)
+ (treesit-end-of-thing pred (abs arg) 'restricted)
+ (treesit-beginning-of-thing pred (abs arg) 'restricted))
+ ;; If we couldn't move, we should signal an error and report
+ ;; the obstacle, like `forward-sexp' does. If we couldn't
+ ;; find a parent, we simply return nil without moving point,
+ ;; then functions like `up-list' will signal "at top level".
+ (when-let* ((parent (nth 2 (treesit--things-around (point) pred)))
+ (boundary (if (> arg 0)
+ (treesit-node-child parent -1)
+ (treesit-node-child parent 0))))
+ (signal 'scan-error (list "No more sexp to move across"
+ (treesit-node-start boundary)
+ (treesit-node-end boundary)))))))
(defun treesit-transpose-sexps (&optional arg)
"Tree-sitter `transpose-sexps' function.
-Arg is the same as in `transpose-sexps'.
+ARG is the same as in `transpose-sexps'.
Locate the node closest to POINT, and transpose that node with
its sibling node ARG nodes away.
@@ -1841,44 +1910,49 @@ nil.")
"The delimiter used to connect several defun names.
This is used in `treesit-add-log-current-defun'.")
-(defsubst treesit--thing-unpack-pattern (pattern)
- "Unpack PATTERN in the shape of `treesit-defun-type-regexp'.
-
-Basically,
-
- (unpack REGEXP) = (REGEXP . nil)
- (unpack (REGEXP . PRED)) = (REGEXP . PRED)"
- (if (consp pattern)
- pattern
- (cons pattern nil)))
-
-(defun treesit-beginning-of-thing (pattern &optional arg)
+(defun treesit-beginning-of-thing (pred &optional arg tactic)
"Like `beginning-of-defun', but generalized into things.
-PATTERN is like `treesit-defun-type-regexp', ARG
+PRED is like `treesit-defun-type-regexp', ARG
is the same as in `beginning-of-defun'.
+TACTIC determines how does this function move between things. It
+can be `nested', `top-level', `restricted', or nil. `nested'
+means normal nested navigation: try to move to siblings first,
+and if there aren't enough siblings, move to the parent and its
+siblings. `top-level' means only consider top-level things, and
+nested things are ignored. `restricted' means movement is
+restricted inside the thing that encloses POS (i.e., parent),
+should there be one. If omitted, TACTIC is considered to be
+`nested'.
+
Return non-nil if successfully moved, nil otherwise."
(pcase-let* ((arg (or arg 1))
- (`(,regexp . ,pred) (treesit--thing-unpack-pattern
- pattern))
(dest (treesit--navigate-thing
- (point) (- arg) 'beg regexp pred)))
+ (point) (- arg) 'beg pred tactic)))
(when dest
(goto-char dest))))
-(defun treesit-end-of-thing (pattern &optional arg)
+(defun treesit-end-of-thing (pred &optional arg tactic)
"Like `end-of-defun', but generalized into things.
-PATTERN is like `treesit-defun-type-regexp', ARG is the same as
+PRED is like `treesit-defun-type-regexp', ARG is the same as
in `end-of-defun'.
+TACTIC determines how does this function move between things. It
+can be `nested', `top-level', `restricted', or nil. `nested'
+means normal nested navigation: try to move to siblings first,
+and if there aren't enough siblings, move to the parent and its
+siblings. `top-level' means only consider top-level things, and
+nested things are ignored. `restricted' means movement is
+restricted inside the thing that encloses POS (i.e., parent),
+should there be one. If omitted, TACTIC is considered to be
+`nested'.
+
Return non-nil if successfully moved, nil otherwise."
(pcase-let* ((arg (or arg 1))
- (`(,regexp . ,pred) (treesit--thing-unpack-pattern
- pattern))
(dest (treesit--navigate-thing
- (point) arg 'end regexp pred)))
+ (point) arg 'end pred tactic)))
(when dest
(goto-char dest))))
@@ -1894,12 +1968,17 @@ This is a tree-sitter equivalent of
`beginning-of-defun'.
Behavior of this function depends on `treesit-defun-type-regexp'
and `treesit-defun-skipper'."
(interactive "^p")
+ (or (not (eq this-command 'treesit-beginning-of-defun))
+ (eq last-command 'treesit-beginning-of-defun)
+ (and transient-mark-mode mark-active)
+ (push-mark))
(let ((orig-point (point))
(success nil))
(catch 'done
(dotimes (_ 2)
- (when (treesit-beginning-of-thing treesit-defun-type-regexp arg)
+ (when (treesit-beginning-of-thing
+ treesit-defun-type-regexp arg treesit-defun-tactic)
(when treesit-defun-skipper
(funcall treesit-defun-skipper)
(setq success t)))
@@ -1923,10 +2002,16 @@ this function depends on `treesit-defun-type-regexp' and
`treesit-defun-skipper'."
(interactive "^p\nd")
(let ((orig-point (point)))
+ (if (or (null arg) (= arg 0)) (setq arg 1))
+ (or (not (eq this-command 'treesit-end-of-defun))
+ (eq last-command 'treesit-end-of-defun)
+ (and transient-mark-mode mark-active)
+ (push-mark))
(catch 'done
(dotimes (_ 2) ; Not making progress is better than infloop.
- (when (treesit-end-of-thing treesit-defun-type-regexp arg)
+ (when (treesit-end-of-thing
+ treesit-defun-type-regexp arg treesit-defun-tactic)
(when treesit-defun-skipper
(funcall treesit-defun-skipper)))
@@ -2000,7 +2085,7 @@ the current line if the beginning of the defun is
indented."
;; parent:
;; 1. node covers pos
;; 2. smallest such node
-(defun treesit--things-around (pos regexp &optional pred)
+(defun treesit--things-around (pos pred)
"Return the previous, next, and parent thing around POS.
Return a list of (PREV NEXT PARENT), where PREV and NEXT are
@@ -2008,7 +2093,8 @@ previous and next sibling things around POS, and PARENT
is the
parent thing surrounding POS. All of three could be nil if no
sound things exists.
-REGEXP and PRED are the same as in `treesit-thing-at-point'."
+PRED can be a regexp, a predicate function, and more. See
+`treesit-thing-settings' for details."
(let* ((node (treesit-node-at pos))
(result (list nil nil nil)))
;; 1. Find previous and next sibling defuns.
@@ -2031,9 +2117,7 @@ REGEXP and PRED are the same as in
`treesit-thing-at-point'."
when node
do (let ((cursor node)
(iter-pred (lambda (node)
- (and (string-match-p
- regexp (treesit-node-type node))
- (or (null pred) (funcall pred node))
+ (and (treesit-node-match-p node pred)
(funcall pos-pred node)))))
;; Find the node just before/after POS to start searching.
(save-excursion
@@ -2047,13 +2131,11 @@ REGEXP and PRED are the same as in
`treesit-thing-at-point'."
(setf (nth idx result)
(treesit-node-top-level cursor iter-pred t))
(setq cursor (treesit-search-forward
- cursor regexp backward backward)))))
+ cursor pred backward backward)))))
;; 2. Find the parent defun.
(let ((cursor (or (nth 0 result) (nth 1 result) node))
(iter-pred (lambda (node)
- (and (string-match-p
- regexp (treesit-node-type node))
- (or (null pred) (funcall pred node))
+ (and (treesit-node-match-p node pred)
(not (treesit-node-eq node (nth 0 result)))
(not (treesit-node-eq node (nth 1 result)))
(< (treesit-node-start node)
@@ -2063,15 +2145,6 @@ REGEXP and PRED are the same as in
`treesit-thing-at-point'."
(treesit-parent-until cursor iter-pred)))
result))
-(defun treesit--top-level-thing (node regexp &optional pred)
- "Return the top-level parent thing of NODE.
-REGEXP and PRED are the same as in `treesit-thing-at-point'."
- (treesit-node-top-level
- node (lambda (node)
- (and (string-match-p regexp (treesit-node-type node))
- (or (null pred) (funcall pred node))))
- t))
-
;; The basic idea for nested defun navigation is that we first try to
;; move across sibling defuns in the same level, if no more siblings
;; exist, we move to parents's beg/end, rinse and repeat. We never
@@ -2099,7 +2172,7 @@ REGEXP and PRED are the same as in
`treesit-thing-at-point'."
;; -> Obviously we don't want to go to parent's end, instead, we
;; want to go to parent's prev-sibling's end. Again, we recurse
;; in the function to do that.
-(defun treesit--navigate-thing (pos arg side regexp &optional pred recursing)
+(defun treesit--navigate-thing (pos arg side pred &optional tactic recursing)
"Navigate thing ARG steps from POS.
If ARG is positive, move forward that many steps, if negative,
@@ -2110,7 +2183,18 @@ This function doesn't actually move point, it just
returns the
position it would move to. If there aren't enough things to move
across, return nil.
-REGEXP and PRED are the same as in `treesit-thing-at-point'.
+PRED can be a regexp, a predicate function, and more. See
+`treesit-thing-settings' for details.
+
+TACTIC determines how does this function move between things. It
+can be `nested', `top-level', `restricted', or nil. `nested'
+means normal nested navigation: try to move to siblings first,
+and if there aren't enough siblings, move to the parent and its
+siblings. `top-level' means only consider top-level things, and
+nested things are ignored. `restricted' means movement is
+restricted inside the thing that encloses POS (i.e., parent),
+should there be one. If omitted, TACTIC is considered to be
+`nested'.
RECURSING is an internal parameter, if non-nil, it means this
function is called recursively."
@@ -2129,78 +2213,77 @@ function is called recursively."
(while (> counter 0)
(pcase-let
((`(,prev ,next ,parent)
- (treesit--things-around pos regexp pred)))
+ (treesit--things-around pos pred)))
;; When PARENT is nil, nested and top-level are the same, if
;; there is a PARENT, make PARENT to be the top-level parent
;; and pretend there is no nested PREV and NEXT.
- (when (and (eq treesit-defun-tactic 'top-level)
+ (when (and (eq tactic 'top-level)
parent)
- (setq parent (treesit--top-level-thing
- parent regexp pred)
+ (setq parent (treesit-node-top-level parent pred t)
prev nil
next nil))
- ;; Move...
- (if (> arg 0)
- ;; ...forward.
- (if (and (eq side 'beg)
- ;; Should we skip the defun (recurse)?
- (cond (next (and (not recursing) ; [1] (see below)
- (eq pos (funcall advance next))))
- (parent t))) ; [2]
- ;; Special case: go to next beg-of-defun, but point
- ;; is already on beg-of-defun. Set POS to the end
- ;; of next-sib/parent defun, and run one more step.
- ;; If there is a next-sib defun, we only need to
- ;; recurse once, so we don't need to recurse if we
- ;; are already recursing [1]. If there is no
- ;; next-sib but a parent, keep stepping out
- ;; (recursing) until we got out of the parents until
- ;; (1) there is a next sibling defun, or (2) no more
- ;; parents [2].
- ;;
- ;; If point on beg-of-defun but we are already
- ;; recurring, that doesn't count as special case,
- ;; because we have already made progress (by moving
- ;; the end of next before recurring.)
+ ;; If TACTIC is `restricted', the implementation is very simple.
+ (if (eq tactic 'restricted)
+ (setq pos (funcall advance (if (> arg 0) next prev)))
+ ;; For `nested', it's a bit more work:
+ ;; Move...
+ (if (> arg 0)
+ ;; ...forward.
+ (if (and (eq side 'beg)
+ ;; Should we skip the defun (recurse)?
+ (cond (next (and (not recursing) ; [1] (see below)
+ (eq pos (funcall advance next))))
+ (parent t))) ; [2]
+ ;; Special case: go to next beg-of-defun, but point
+ ;; is already on beg-of-defun. Set POS to the end
+ ;; of next-sib/parent defun, and run one more step.
+ ;; If there is a next-sib defun, we only need to
+ ;; recurse once, so we don't need to recurse if we
+ ;; are already recursing [1]. If there is no
+ ;; next-sib but a parent, keep stepping out
+ ;; (recursing) until we got out of the parents until
+ ;; (1) there is a next sibling defun, or (2) no more
+ ;; parents [2].
+ ;;
+ ;; If point on beg-of-defun but we are already
+ ;; recurring, that doesn't count as special case,
+ ;; because we have already made progress (by moving
+ ;; the end of next before recurring.)
+ (setq pos (or (treesit--navigate-thing
+ (treesit-node-end (or next parent))
+ 1 'beg pred tactic t)
+ (throw 'term nil)))
+ ;; Normal case.
+ (setq pos (funcall advance (or next parent))))
+ ;; ...backward.
+ (if (and (eq side 'end)
+ (cond (prev (and (not recursing)
+ (eq pos (funcall advance prev))))
+ (parent t)))
+ ;; Special case: go to prev end-of-defun.
(setq pos (or (treesit--navigate-thing
- (treesit-node-end (or next parent))
- 1 'beg regexp pred t)
+ (treesit-node-start (or prev parent))
+ -1 'end pred tactic t)
(throw 'term nil)))
;; Normal case.
- (setq pos (funcall advance (or next parent))))
- ;; ...backward.
- (if (and (eq side 'end)
- (cond (prev (and (not recursing)
- (eq pos (funcall advance prev))))
- (parent t)))
- ;; Special case: go to prev end-of-defun.
- (setq pos (or (treesit--navigate-thing
- (treesit-node-start (or prev parent))
- -1 'end regexp pred t)
- (throw 'term nil)))
- ;; Normal case.
- (setq pos (funcall advance (or prev parent)))))
+ (setq pos (funcall advance (or prev parent))))))
;; A successful step! Decrement counter.
(cl-decf counter))))
;; Counter equal to 0 means we successfully stepped ARG steps.
(if (eq counter 0) pos nil)))
;; TODO: In corporate into thing-at-point.
-(defun treesit-thing-at-point (pattern tactic)
+(defun treesit-thing-at-point (pred tactic)
"Return the thing node at point or nil if none is found.
-\"Thing\" is defined by PATTERN, which can be either a string
-REGEXP or a cons cell (REGEXP . PRED): if a node's type matches
-REGEXP, it is a thing. The \"thing\" could be further restricted
-by PRED: if non-nil, PRED should be a function that takes a node
-and returns t if the node is a \"thing\", and nil if not.
+\"Thing\" is defined by PRED, which can be a regexp, a
+predication function, and more, see `treesit-thing-settings'
+for details.
Return the top-level defun if TACTIC is `top-level', return the
immediate parent thing if TACTIC is `nested'."
- (pcase-let* ((`(,regexp . ,pred)
- (treesit--thing-unpack-pattern pattern))
- (`(,_ ,next ,parent)
- (treesit--things-around (point) regexp pred))
+ (pcase-let* ((`(,_ ,next ,parent)
+ (treesit--things-around (point) pred))
;; If point is at the beginning of a thing, we
;; prioritize that thing over the parent in nested
;; mode.
@@ -2208,7 +2291,7 @@ immediate parent thing if TACTIC is `nested'."
next)
parent)))
(if (eq tactic 'top-level)
- (treesit--top-level-thing node regexp pred)
+ (treesit-node-top-level node pred t)
node)))
(defun treesit-defun-at-point ()
@@ -2357,7 +2440,10 @@ instead of emitting a warning."
;; Check for each condition and set MSG.
(catch 'term
(when (not (treesit-available-p))
- (setq msg "tree-sitter library is not compiled with Emacs")
+ (setq msg (if (fboundp 'treesit-node-p)
+ ;; Windows loads tree-sitter dynakically.
+ "tree-sitter library is not available or failed to load"
+ "Emacs is not compiled with tree-sitter library"))
(throw 'term nil))
(when (> (position-bytes (max (point-min) (1- (point-max))))
treesit-max-buffer-size)
@@ -2693,7 +2779,6 @@ in the region."
(defun treesit--explorer-jump (button)
"Mark the original text corresponding to BUTTON."
- (interactive)
(when (and (derived-mode-p 'treesit--explorer-tree-mode)
(buffer-live-p treesit--explorer-source-buffer))
(with-current-buffer treesit--explorer-source-buffer
@@ -2939,50 +3024,79 @@ See `treesit-language-source-alist' for details."
(buffer-local-value 'url-http-response-status buffer)
200)))))
+(defvar treesit--install-language-grammar-out-dir-history nil
+ "History for OUT-DIR for `treesit-install-language-grammar'.")
+
;;;###autoload
-(defun treesit-install-language-grammar (lang)
+(defun treesit-install-language-grammar (lang &optional out-dir)
"Build and install the tree-sitter language grammar library for LANG.
Interactively, if `treesit-language-source-alist' doesn't already
have data for building the grammar for LANG, prompt for its
-repository URL and the C/C++ compiler to use.
+repository URL and the C/C++ compiler to use. The recipe built
+by the prompts are saved for the current session if the
+installation is successful and the grammar is loadable.
This command requires Git, a C compiler and (sometimes) a C++ compiler,
and the linker to be installed and on PATH. It also requires that the
recipe for LANG exists in `treesit-language-source-alist'.
See `exec-path' for the current path where Emacs looks for
-executable programs, such as the C/C++ compiler and linker."
+executable programs, such as the C/C++ compiler and linker.
+
+Interactively, prompt for the directory in which to install the
+compiled grammar files. Non-interactively, use OUT-DIR; if it's
+nil, the grammar is installed to the standard location, the
+\"tree-sitter\" directory under `user-emacs-directory'."
(interactive (list (intern
(completing-read
"Language: "
- (mapcar #'car treesit-language-source-alist)))))
+ (mapcar #'car treesit-language-source-alist)))
+ 'interactive))
(when-let ((recipe
(or (assoc lang treesit-language-source-alist)
- (treesit--install-language-grammar-build-recipe
- lang))))
+ (if (eq out-dir 'interactive)
+ (treesit--install-language-grammar-build-recipe
+ lang)
+ (signal 'treesit-error `("Cannot find recipe for this
language" ,lang)))))
+ (default-out-dir
+ (or (car treesit--install-language-grammar-out-dir-history)
+ (locate-user-emacs-file "tree-sitter")))
+ (out-dir
+ (if (eq out-dir 'interactive)
+ (read-string
+ (format "Install to (default: %s): "
+ default-out-dir)
+ nil
+ 'treesit--install-language-grammar-out-dir-history
+ default-out-dir)
+ out-dir)))
(condition-case err
- (apply #'treesit--install-language-grammar-1
- ;; The nil is OUT-DIR.
- (cons nil recipe))
+ (progn
+ (apply #'treesit--install-language-grammar-1
+ ;; The nil is OUT-DIR.
+ (cons nil recipe))
+
+ ;; Check that the installed language grammar is loadable.
+ (pcase-let ((`(,available . ,err)
+ (treesit-language-available-p lang t)))
+ (if (not available)
+ (display-warning
+ 'treesit
+ (format "The installed language grammar for %s cannot be
located or has problems (%s): %s"
+ lang (nth 0 err)
+ (string-join
+ (mapcar (lambda (x) (format "%s" x))
+ (cdr err))
+ " ")))
+ ;; If success, Save the recipe for the current session.
+ (setf (alist-get lang treesit-language-source-alist)
+ recipe))))
(error
(display-warning
'treesit
(format "Error encountered when installing language grammar: %s"
- err)))))
-
- ;; Check that the installed language grammar is loadable.
- (pcase-let ((`(,available . ,err)
- (treesit-language-available-p lang t)))
- (when (not available)
- (display-warning
- 'treesit
- (format "The installed language grammar for %s cannot be located or has
problems (%s): %s"
- lang (nth 0 err)
- (string-join
- (mapcar (lambda (x) (format "%s" x))
- (cdr err))
- " "))))))
+ err))))))
(defun treesit--call-process-signal (&rest args)
"Run `call-process' with ARGS.
@@ -3055,11 +3169,17 @@ function signals an error."
(apply #'treesit--call-process-signal
(if (file-exists-p "scanner.cc") c++ cc)
nil t nil
- `("-fPIC" "-shared"
- ,@(directory-files
- default-directory nil
- (rx bos (+ anychar) ".o" eos))
- "-o" ,lib-name))
+ (if (eq system-type 'cygwin)
+ `("-shared" "-Wl,-dynamicbase"
+ ,@(directory-files
+ default-directory nil
+ (rx bos (+ anychar) ".o" eos))
+ "-o" ,lib-name)
+ `("-fPIC" "-shared"
+ ,@(directory-files
+ default-directory nil
+ (rx bos (+ anychar) ".o" eos))
+ "-o" ,lib-name)))
;; Copy out.
(unless (file-exists-p out-dir)
(make-directory out-dir t))
@@ -3089,7 +3209,7 @@ function signals an error."
(with-temp-buffer
(insert-file-contents (find-library-name "treesit"))
(cl-remove-if
- (lambda (name) (string-match "treesit--" name))
+ (lambda (name) (string-search "treesit--" name))
(cl-sort
(save-excursion
(goto-char (point-min))
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 0afe565c80b..eb494be8d4d 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -650,6 +650,7 @@ with some explanatory links."
(delete-region prop-start prop-end))))))
(defvar tutorial--starting-point)
+(put 'tutorial--starting-point 'permanent-local t)
(defun tutorial--save-on-kill ()
"Query the user about saving the tutorial when killing Emacs."
(when (buffer-live-p tutorial--buffer)
diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el
index f16be980945..4d7297f6f2e 100644
--- a/lisp/url/url-gw.el
+++ b/lisp/url/url-gw.el
@@ -208,7 +208,7 @@ linked Emacs under SunOS 4.x."
proc)))
(defvar url-gw-rlogin-obsolete-warned-once nil)
-(make-obsolete-variable url-gw-rlogin-obsolete-warned-once nil "29.1")
+(make-obsolete-variable 'url-gw-rlogin-obsolete-warned-once nil "29.1")
;;;###autoload
(defun url-open-stream (name buffer host service &optional gateway-method)
diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index 24e64e99c9f..04d6d9681ff 100644
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -120,11 +120,11 @@
(url-mail-goto-field nil)
(url-mail-goto-field "subject")))
(if url-request-extra-headers
- (mapconcat
+ (mapc
(lambda (x)
(url-mail-goto-field (car x))
(insert (cdr x)))
- url-request-extra-headers ""))
+ url-request-extra-headers))
(goto-char (point-max))
(insert url-request-data)
;; It seems Microsoft-ish to send without warning.
diff --git a/lisp/url/url-misc.el b/lisp/url/url-misc.el
index 3caaf49f58e..96f5c46ea00 100644
--- a/lisp/url/url-misc.el
+++ b/lisp/url/url-misc.el
@@ -48,7 +48,7 @@
nil))
(defvar url-misc-rlogin-obsolete-warned-once nil)
-(make-obsolete-variable url-misc-rlogin-obsolete-warned-once nil "29.1")
+(make-obsolete-variable 'url-misc-rlogin-obsolete-warned-once nil "29.1")
(defun url-do-terminal-emulator (type server port user)
(switch-to-buffer
diff --git a/lisp/use-package/use-package-core.el
b/lisp/use-package/use-package-core.el
index 7ab5bdc276f..e0e16134ed3 100644
--- a/lisp/use-package/use-package-core.el
+++ b/lisp/use-package/use-package-core.el
@@ -76,6 +76,7 @@
:functions
:preface
:if :when :unless
+ :vc
:no-require
:catch
:after
@@ -1151,7 +1152,8 @@ meaning:
#'use-package-normalize-paths))
(defun use-package-handler/:load-path (name _keyword arg rest state)
- (let ((body (use-package-process-keywords name rest state)))
+ (let ((body (use-package-process-keywords name rest
+ (plist-put state :load-path arg))))
(use-package-concat
(mapcar #'(lambda (path)
`(eval-and-compile (add-to-list 'load-path ,path)))
@@ -1577,6 +1579,110 @@ no keyword implies `:all'."
(when use-package-compute-statistics
`((use-package-statistics-gather :config ',name t))))))
+;;;; :vc
+
+(defun use-package-vc-install (arg &optional local-path)
+ "Install a package with `package-vc.el'.
+ARG is a list of the form (NAME OPTIONS REVISION), as returned by
+`use-package-normalize--vc-arg'. If LOCAL-PATH is non-nil, call
+`package-vc-install-from-checkout'; otherwise, indicating a
+remote host, call `package-vc-install' instead."
+ (pcase-let* ((`(,name ,opts ,rev) arg)
+ (spec (if opts (cons name opts) name)))
+ (unless (package-installed-p name)
+ (if local-path
+ (package-vc-install-from-checkout local-path (symbol-name name))
+ (package-vc-install spec rev)))))
+
+(defun use-package-handler/:vc (name _keyword arg rest state)
+ "Generate code to install package NAME, or do so directly.
+When the use-package declaration is part of a byte-compiled file,
+install the package during compilation; otherwise, add it to the
+macro expansion and wait until runtime. The remaining arguments
+are as follows:
+
+_KEYWORD is ignored.
+
+ARG is the normalized input to the `:vc' keyword, as returned by
+the `use-package-normalize/:vc' function.
+
+REST is a plist of other (following) keywords and their
+arguments, each having already been normalised by the respective
+function.
+
+STATE is a plist of any state that keywords processed before
+`:vc' (see `use-package-keywords') may have accumulated.
+
+Also see the Info node `(use-package) Creating an extension'."
+ (let ((body (use-package-process-keywords name rest state))
+ (local-path (car (plist-get state :load-path))))
+ ;; See `use-package-handler/:ensure' for an explanation.
+ (if (bound-and-true-p byte-compile-current-file)
+ (funcall #'use-package-vc-install arg local-path) ; compile time
+ (push `(use-package-vc-install ',arg ,local-path) body)) ; runtime
+ body))
+
+(defun use-package-normalize--vc-arg (arg)
+ "Normalize possible arguments to the `:vc' keyword.
+ARG is a cons-cell of approximately the form that
+`package-vc-selected-packages' accepts, plus an additional `:rev'
+keyword. If `:rev' is not given, it defaults to `:last-release'.
+
+Returns a list (NAME SPEC REV), where (NAME . SPEC) is compliant
+with `package-vc-selected-packages' and REV is a (possibly nil,
+indicating the latest commit) revision."
+ (cl-flet* ((ensure-string (s)
+ (if (and s (stringp s)) s (symbol-name s)))
+ (ensure-symbol (s)
+ (if (and s (stringp s)) (intern s) s))
+ (normalize (k v)
+ (pcase k
+ (:rev (cond ((or (eq v :last-release) (not v)) :last-release)
+ ((eq v :newest) nil)
+ (t (ensure-string v))))
+ (:vc-backend (ensure-symbol v))
+ (_ (ensure-string v)))))
+ (pcase-let ((valid-kws '(:url :branch :lisp-dir :main-file :vc-backend
:rev))
+ (`(,name . ,opts) arg))
+ (if (stringp opts) ; (NAME . VERSION-STRING) ?
+ (list name opts)
+ ;; Error handling
+ (cl-loop for (k _) on opts by #'cddr
+ if (not (member k valid-kws))
+ do (use-package-error
+ (format "Keyword :vc received unknown argument: %s.
Supported keywords are: %s"
+ k valid-kws)))
+ ;; Actual normalization
+ (list name
+ (cl-loop for (k v) on opts by #'cddr
+ if (not (eq k :rev))
+ nconc (list k (normalize k v)))
+ (normalize :rev (plist-get opts :rev)))))))
+
+(defun use-package-normalize/:vc (name _keyword args)
+ "Normalize possible arguments to the `:vc' keyword.
+NAME is the name of the `use-package' declaration, _KEYWORD is
+ignored, and ARGS it a list of arguments given to the `:vc'
+keyword, the cdr of which is ignored.
+
+See `use-package-normalize--vc-arg' for most of the actual
+normalization work. Also see the Info
+node `(use-package) Creating an extension'."
+ (let ((arg (car args)))
+ (pcase arg
+ ((or 'nil 't) (list name)) ; guess name
+ ((pred symbolp) (list arg)) ; use this name
+ ((pred stringp) (list name arg)) ; version string + guess name
+ ((pred plistp) ; plist + guess name
+ (use-package-normalize--vc-arg (cons name arg)))
+ (`(,(pred symbolp) . ,(or (pred plistp) ; plist/version string + name
+ (pred stringp)))
+ (use-package-normalize--vc-arg arg))
+ (_ (use-package-error "Unrecognised argument to :vc.\
+ The keyword wants an argument of nil, t, a name of a package,\
+ or a cons-cell as accepted by `package-vc-selected-packages', where \
+ the accepted plist is augmented by a `:rev' keyword.")))))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; The main macro
@@ -1666,7 +1772,9 @@ Usage:
(compare with `custom-set-variables').
:custom-face Call `custom-set-faces' with each face definition.
:ensure Loads the package using package.el if necessary.
-:pin Pin the package to an archive."
+:pin Pin the package to an archive.
+:vc Install the package directly from a version control system
+ (using `package-vc.el')."
(declare (indent defun))
(unless (memq :disabled args)
(macroexp-progn
diff --git a/lisp/use-package/use-package-ensure.el
b/lisp/use-package/use-package-ensure.el
index e0ea982594e..395a0bbda00 100644
--- a/lisp/use-package/use-package-ensure.el
+++ b/lisp/use-package/use-package-ensure.el
@@ -182,7 +182,8 @@ manually updated package."
;;;###autoload
(defun use-package-handler/:ensure (name _keyword ensure rest state)
- (let* ((body (use-package-process-keywords name rest state)))
+ (let* ((body (use-package-process-keywords name rest state))
+ (ensure (and (not (plist-member rest :vc)) ensure)))
;; We want to avoid installing packages when the `use-package' macro is
;; being macro-expanded by elisp completion (see `lisp--local-variables'),
;; but still install packages when byte-compiling, to avoid requiring
diff --git a/lisp/userlock.el b/lisp/userlock.el
index 61f061d3e54..562bc0a0a9f 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -206,11 +206,12 @@ file, then make the change again."))
;;;###autoload
(defun userlock--handle-unlock-error (error)
"Report an ERROR that occurred while unlocking a file."
- (display-warning
- '(unlock-file)
- ;; There is no need to explain that this is an unlock error because
- ;; ERROR is a `file-error' condition, which explains this.
- (message "%s, ignored" (error-message-string error))
- :warning))
+ (when create-lockfiles
+ (display-warning
+ '(unlock-file)
+ ;; There is no need to explain that this is an unlock error because
+ ;; ERROR is a `file-error' condition, which explains this.
+ (message "%s, ignored" (error-message-string error))
+ :warning)))
;;; userlock.el ends here
diff --git a/lisp/vc/ediff-diff.el b/lisp/vc/ediff-diff.el
index 832e3933df9..42c313b3f07 100644
--- a/lisp/vc/ediff-diff.el
+++ b/lisp/vc/ediff-diff.el
@@ -142,7 +142,7 @@ The status can be =diff(A), =diff(B), or =diff(A+B).")
;;; Fine differences
-(ediff-defvar-local ediff-auto-refine (if (ediff-has-face-support-p) 'on 'nix)
+(ediff-defvar-local ediff-auto-refine 'on
"If `on', Ediff auto-highlights fine diffs for the current diff region.
If `off', auto-highlighting is not used. If `nix', no fine diffs are shown
at all, unless the user force-refines the region by hitting `*'.
diff --git a/lisp/vc/vc-annotate.el b/lisp/vc/vc-annotate.el
index 70057a6aac7..d83660f9d79 100644
--- a/lisp/vc/vc-annotate.el
+++ b/lisp/vc/vc-annotate.el
@@ -330,7 +330,7 @@ cover the range from the oldest annotation to the newest."
["Show changeset diff of revision at line"
vc-annotate-show-changeset-diff-revision-at-line
:enable
- (eq 'repository (vc-call-backend ,vc-annotate-backend
'revision-granularity))
+ (eq 'repository (vc-call-backend vc-annotate-backend
'revision-granularity))
:help "Visit the diff of the revision at line from its previous revision"]
["Visit revision at line" vc-annotate-find-revision-at-line
:help "Visit the revision identified in the current line"]))
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 6e0246ea762..145697d1b06 100644
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -26,6 +26,7 @@
(require 'vc-rcs)
(eval-when-compile (require 'vc))
+(eval-when-compile (require 'cl-lib))
(require 'log-view)
(declare-function vc-checkout "vc" (file &optional rev))
@@ -813,7 +814,10 @@ individually should stay local."
'yes 'no))))))))))))
(defun vc-cvs-repository-hostname (dirname)
- "Hostname of the CVS server associated to workarea DIRNAME."
+ "Hostname of the CVS server associated to workarea DIRNAME.
+
+Return nil if there is no hostname, or the hostname could not be
+determined because the CVS/Root specification is invalid."
(let ((rootname (expand-file-name "CVS/Root" dirname)))
(when (file-readable-p rootname)
(with-temp-buffer
@@ -822,73 +826,146 @@ individually should stay local."
default-file-name-coding-system)))
(vc-insert-file rootname))
(goto-char (point-min))
- (nth 2 (vc-cvs-parse-root
- (buffer-substring (point)
- (line-end-position))))))))
-
-(defun vc-cvs-parse-uhp (path)
- "Parse user@host/path into (user@host /path)."
- (if (string-match "\\([^/]+\\)\\(/.*\\)" path)
- (list (match-string 1 path) (match-string 2 path))
- (list nil path)))
-
-(defun vc-cvs-parse-root (root)
- "Split CVS ROOT specification string into a list of fields.
-A CVS root specification of the form
- [:METHOD:][[USER@]HOSTNAME]:?/path/to/repository
-is converted to a normalized record with the following structure:
- \(METHOD USER HOSTNAME CVS-ROOT).
-The default METHOD for a CVS root of the form
- /path/to/repository
-is `local'.
-The default METHOD for a CVS root of the form
- [USER@]HOSTNAME:/path/to/repository
-is `ext'.
-For an empty string, nil is returned (invalid CVS root)."
- ;; Split CVS root into colon separated fields (0-4).
- ;; The `x:' makes sure, that leading colons are not lost;
- ;; `HOST:/PATH' is then different from `:METHOD:/PATH'.
- (let* ((root-list (cdr (split-string (concat "x:" root) ":")))
- (len (length root-list))
- ;; All syntactic varieties will get a proper METHOD.
- (root-list
- (cond
- ((= len 0)
- ;; Invalid CVS root
- nil)
- ((= len 1)
- (let ((uhp (vc-cvs-parse-uhp (car root-list))))
- (cons (if (car uhp) "ext" "local") uhp)))
- ((= len 2)
- ;; [USER@]HOST:PATH => method `ext'
- (and (not (equal (car root-list) ""))
- (cons "ext" root-list)))
- ((= len 3)
- ;; :METHOD:PATH or :METHOD:USER@HOSTNAME/PATH
- (cons (cadr root-list)
- (vc-cvs-parse-uhp (nth 2 root-list))))
- (t
- ;; :METHOD:[USER@]HOST:PATH
- (cdr root-list)))))
- (if root-list
- (let ((method (car root-list))
- (uhost (or (cadr root-list) ""))
- (root (nth 2 root-list))
- user host)
- ;; Split USER@HOST
- (if (string-match "\\(.*\\)@\\(.*\\)" uhost)
- (setq user (match-string 1 uhost)
- host (match-string 2 uhost))
- (setq host uhost))
- ;; Remove empty HOST
- (and (equal host "")
- (setq host nil))
- ;; Fix windows style CVS root `:local:C:\\project\\cvs\\some\\dir'
- (and host
- (equal method "local")
- (setq root (concat host ":" root) host nil))
- ;; Normalize CVS root record
- (list method user host root)))))
+ (let ((hostname
+ (nth 2 (vc-cvs-parse-root
+ (buffer-substring (point)
+ (line-end-position))))))
+ (unless (string= hostname "")
+ hostname))))))
+
+(cl-defun vc-cvs-parse-root (root)
+ "Split CVS Root specification string into a list of fields.
+
+Convert a CVS Root specification of the form
+
+ [:METHOD:][[[USER][:PASSWORD]@]HOSTNAME][:[PORT]]/path/to/repository
+
+to a normalized record with the following structure:
+
+ \(METHOD USER HOSTNAME FILENAME).
+
+The default METHOD for a CVS root of the form /path/to/repository
+is \"local\". The default METHOD for a CVS root of the
+form [USER@]HOSTNAME:/path/to/repository is \"ext\".
+
+If METHOD is explicitly \"local\" or \"fork\", then the repository's
+file name starts immediately after the [:METHOD:] part. This must be
+used on MS-Windows platforms where absolute file names start with a
+drive letter.
+
+Note that, except for METHOD, which is defaulted if not present,
+other optional parts will default to nil if not syntactically
+present, or to an empty string if present and delimited, but empty.
+
+Return nil in case of an unparsable CVS Root (including the
+empty string), and issue a warning in that case.
+
+This function doesn't check that an explicit method is valid, or
+that some fields which should not be empty for a given method,
+are empty or nil."
+ (let (method user password hostname port filename
+ ;; IDX set by `next-delim' as a side-effect
+ idx)
+ (cl-labels
+ ((invalid (reason &rest args)
+ (apply #'lwarn '(vc-cvs) :warning
+ (concat "vc-cvs-parse-root: Can't parse '%s': " reason)
+ root args)
+ (cl-return-from vc-cvs-parse-root))
+ (no-filename ()
+ (invalid "No repository file name"))
+ (next-delim (start)
+ ;; Search for a :, @ or /. If none is found, there can be
+ ;; no file name at the end, which is an error.
+ (setq idx (string-match-p "[:@/]" root start))
+ (if idx (aref root idx) (no-filename)))
+ (grab-user (start end)
+ (setq user (substring root start end)))
+ (at-hostname-block (start)
+ (let ((cand (next-delim start)))
+ (cl-ecase cand
+ (?:
+ ;; Could be : before PORT and /path/to/repository, or
+ ;; before PASSWORD. We search for a @ to disambiguate.
+ (let ((colon-idx idx)
+ (cand (next-delim (1+ idx))))
+ (cl-ecase cand
+ (?:
+ (invalid
+ (eval-when-compile
+ (concat "Hostname block: Superfluous : at %s "
+ "or missing @ before"))
+ idx))
+ (?@
+ ;; USER:PASSWORD case
+ (grab-user start colon-idx)
+ (delimited-password (1+ colon-idx) idx))
+ (?/
+ ;; HOSTNAME[:[PORT]] case
+ (grab-hostname start colon-idx)
+ (delimited-port (1+ colon-idx) idx)))))
+ (?@
+ (grab-user start idx)
+ (at-hostname (1+ idx)))
+ (?/
+ (if (/= idx start)
+ (grab-hostname start idx))
+ (at-filename idx)))))
+ (delimited-password (start end)
+ (setq password (substring root start end))
+ (at-hostname (1+ end)))
+ (grab-hostname (start end)
+ (setq hostname (substring root start end)))
+ (at-hostname (start)
+ (let ((cand (next-delim start)))
+ (cl-ecase cand
+ (?:
+ (grab-hostname start idx)
+ (at-port (1+ idx)))
+ (?@
+ (invalid "Hostname: Unexpected @ after index %s" start))
+ (?/
+ (grab-hostname start idx)
+ (at-filename idx)))))
+ (delimited-port (start end)
+ (setq port (substring root start end))
+ (at-filename end))
+ (at-port (start)
+ (let ((end (string-match-p "/" root start)))
+ (if end (delimited-port start end) (no-filename))))
+ (at-filename (start)
+ (setq filename (substring root start))))
+ (when (string= root "")
+ (invalid "Empty Root string"))
+ ;; Check for a starting ":"
+ (if (= (aref root 0) ?:)
+ ;; 3 possible cases:
+ ;; - :METHOD: at start. METHOD doesn't have any @.
+ ;; - :PASSWORD@ at start. Must be followed by HOSTNAME.
+ ;; - :[PORT] at start. Must be followed immediately by a "/".
+ ;; So, find the next character equal to ":", "@" or "/".
+ (let ((cand (next-delim 1)))
+ (cl-ecase cand
+ (?:
+ ;; :METHOD: case
+ (setq method (substring root 1 idx))
+ ;; Continue
+ (if (member method '("local" "fork"))
+ (at-filename (1+ idx))
+ (at-hostname-block (1+ idx))))
+ (?@
+ ;; :PASSWORD@HOSTNAME case
+ (delimited-password 1 idx))
+ (?/
+ ;; :[PORT] case.
+ (at-port 1 idx))))
+ ;; No starting ":", there can't be any METHOD.
+ (at-hostname-block 0)))
+ (unless method
+ ;; Default the method if not specified
+ (setq method
+ (if (or user password hostname port) "ext" "local")))
+ (list method user hostname filename)))
;; XXX: This does not work correctly for subdirectories. "cvs status"
;; information is context sensitive, it contains lines like:
@@ -899,7 +976,7 @@ For an empty string, nil is returned (invalid CVS root)."
(defun vc-cvs-parse-status (&optional full)
"Parse output of \"cvs status\" command in the current buffer.
Set file properties accordingly. Unless FULL is t, parse only
-essential information. Note that this can never set the `ignored'
+essential information. Note that this can never set the `ignored'
state."
(let (file status missing)
(goto-char (point-min))
@@ -955,13 +1032,16 @@ state."
(cdr (assoc (char-after) translation)))
result)
(cond
- ((looking-at "cvs update: warning: \\(.*\\) was lost")
+ ((looking-at "cvs update: warning: .* was lost")
;; Format is:
;; cvs update: warning: FILENAME was lost
;; U FILENAME
- (push (list (match-string 1) 'missing) result)
- ;; Skip the "U" line
- (forward-line 1))
+ ;; with FILENAME in the first line possibly enclosed in
+ ;; quotes (since CVS 1.12.3). To avoid problems, use the U
+ ;; line where name is never quoted.
+ (forward-line 1)
+ (when (looking-at "^U \\(.*\\)$")
+ (push (list (match-string 1) 'missing) result)))
((looking-at "cvs update: New directory `\\(.*\\)' -- ignored")
(push (list (match-string 1) 'unregistered) result))))
(forward-line 1))
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 5bab9aa529e..182d76882bb 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -578,7 +578,7 @@ This requires hg 4.4 or later, for the \"-L\" option of
\"hg log\"."
(defun vc-hg-annotate-command (file buffer &optional revision)
"Execute \"hg annotate\" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from."
- (apply #'vc-hg-command buffer 0 file "annotate" "-dq" "-n"
+ (apply #'vc-hg-command buffer 'async file "annotate" "-dq" "-n"
(append (vc-switches 'hg 'annotate)
(if revision (list (concat "-r" revision))))))
@@ -1372,17 +1372,28 @@ REV is the revision to check out into WORKFILE."
;; Follows vc-exec-after.
(declare-function vc-set-async-update "vc-dispatcher" (process-buffer))
+(defvar vc-hg--program-version nil)
+
+(defun vc-hg--program-version ()
+ (or vc-hg--program-version
+ (setq vc-hg--program-version
+ (with-temp-buffer
+ (condition-case _ (vc-hg-command t 0 nil "version")
+ (error "0")
+ (:success
+ (goto-char (point-min))
+ (re-search-forward "Mercurial Distributed SCM (version
\\([0-9][0-9.]+\\)")
+ (string-trim-right (match-string 1) "\\.")))))))
+
(defun vc-hg-dir-status-files (dir files update-function)
;; XXX: We can't pass DIR directly to 'hg status' because that
;; returns all ignored files if FILES is non-nil (bug#22481).
(let ((default-directory dir))
- ;; TODO: Use "--config 'status.relative=1'" instead of "re:"
- ;; when we're allowed to depend on Mercurial 4.2+
- ;; (it's a bit faster).
- (vc-hg-command (current-buffer) 'async files
- "status" "re:" "-I" "."
- (concat "-mardu" (if files "i"))
- "-C"))
+ (apply #'vc-hg-command (current-buffer) 'async files
+ "status" (concat "-mardu" (if files "i")) "-C"
+ (if (version<= "4.2" (vc-hg--program-version))
+ '("--config" "commands.status.relative=1")
+ '("re:" "-I" "."))))
(vc-run-delayed
(vc-hg-after-dir-status update-function)))
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index e242d1e48e2..00a7659209e 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -897,6 +897,15 @@ In the latter case, VC mode is deactivated for this
buffer."
(bindings--define-key map [vc-create-tag]
'(menu-item "Create Tag" vc-create-tag
:help "Create version tag"))
+ (bindings--define-key map [vc-print-branch-log]
+ '(menu-item "Show Branch History..." vc-print-branch-log
+ :help "List the change log for another branch"))
+ (bindings--define-key map [vc-switch-branch]
+ '(menu-item "Switch Branch..." vc-switch-branch
+ :help "Switch to another branch"))
+ (bindings--define-key map [vc-create-branch]
+ '(menu-item "Create Branch..." vc-create-branch
+ :help "Make a new branch"))
(bindings--define-key map [separator1] menu-bar-separator)
(bindings--define-key map [vc-annotate]
'(menu-item "Annotate" vc-annotate
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 90905edb887..a93d85caedb 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1594,7 +1594,7 @@ After check-out, runs the normal hook `vc-checkout-hook'."
(vc-call make-version-backups-p file)
(vc-up-to-date-p file)
(vc-make-version-backup file))
- (let ((backend (vc-backend file)))
+ (let ((backend (or (bound-and-true-p vc-dir-backend) (vc-backend file))))
(with-vc-properties (list file)
(condition-case err
(vc-call-backend backend 'checkout file rev)
@@ -2504,9 +2504,13 @@ Otherwise, return nil."
(defun vc-create-tag (dir name branchp)
"Descending recursively from DIR, make a tag called NAME.
For each registered file, the working revision becomes part of
-the named configuration. If the prefix argument BRANCHP is
-given, the tag is made as a new branch and the files are
-checked out in that new branch."
+the configuration identified by the tag.
+If BRANCHP is non-nil (interactively, the prefix argument), the
+tag NAME is a new branch, and the files are checked out and
+updated to reflect their revisions on that branch.
+In interactive use, DIR is `default-directory' for repository-granular
+VCSes (all the modern decentralized VCSes belong to this group),
+otherwise the command will prompt for DIR."
(interactive
(let ((granularity
(vc-call-backend (vc-responsible-backend default-directory)
@@ -2529,9 +2533,23 @@ checked out in that new branch."
;;;###autoload
(defun vc-create-branch (dir name)
- "Descending recursively from DIR, make a branch called NAME.
-After a new branch is made, the files are checked out in that new branch.
-Uses `vc-create-tag' with the non-nil arg `branchp'."
+ "Make a branch called NAME in directory DIR.
+After making the new branch, check out the branch, i.e. update the
+files in the tree to their revisions on the branch.
+
+Interactively, prompt for the NAME of the branch.
+
+With VCSes that maintain version information per file, this command also
+prompts for the directory DIR whose files, recursively, will be tagged
+with the NAME of new branch. For VCSes that maintain version
+information for the entire repository (all the modern decentralized
+VCSes belong to this group), DIR is always the `default-directory'.
+
+Finally, this command might prompt for the branch or tag from which to
+start (\"fork\") the new branch, with completion candidates including
+all the known branches and tags in the repository.
+
+This command invokes `vc-create-tag' with the non-nil BRANCHP argument."
(interactive
(let ((granularity
(vc-call-backend (vc-responsible-backend default-directory)
@@ -2545,17 +2563,17 @@ Uses `vc-create-tag' with the non-nil arg `branchp'."
;;;###autoload
(defun vc-retrieve-tag (dir name &optional branchp)
- "For each file in or below DIR, retrieve their tagged version NAME.
+ "For each file in or below DIR, retrieve their version identified by tag
NAME.
NAME can name a branch, in which case this command will switch to the
named branch in the directory DIR.
Interactively, prompt for DIR only for VCS that works at file level;
-otherwise use the repository root of the current buffer.
+otherwise use the root directory of the current buffer's VC tree.
If NAME is empty, it refers to the latest revisions of the current branch.
If locking is used for the files in DIR, then there must not be any
locked files at or below DIR (but if NAME is empty, locked files are
allowed and simply skipped).
-If the prefix argument BRANCHP is given, switch the branch
-and check out the files in that branch.
+If BRANCHP is non-nil (interactively, the prefix argument), switch to the
+branch and check out and update the files to their version on that branch.
This function runs the hook `vc-retrieve-tag-hook' when finished."
(interactive
(let* ((granularity
@@ -2596,7 +2614,12 @@ This function runs the hook `vc-retrieve-tag-hook' when
finished."
;;;###autoload
(defun vc-switch-branch (dir name)
"Switch to the branch NAME in the directory DIR.
-If NAME is empty, it refers to the latest revisions of the current branch.
+If NAME is empty, it refers to the latest revision of the current branch.
+Interactively, prompt for DIR only for VCS that works at file level;
+otherwise use the root directory of the current buffer's VC tree.
+Interactively, prompt for the NAME of the branch.
+After switching to the branch, check out and update the files to their
+version on that branch.
Uses `vc-retrieve-tag' with the non-nil arg `branchp'."
(interactive
(let* ((granularity
@@ -2851,7 +2874,8 @@ with its diffs (if the underlying VCS backend supports
that)."
;;;###autoload
(defun vc-print-branch-log (branch)
- "Show the change log for BRANCH root in a window."
+ "Show the change log for BRANCH in another window.
+The command prompts for the branch whose change log to show."
(interactive
(let* ((backend (vc-responsible-backend default-directory))
(rootdir (vc-call-backend backend 'root default-directory)))
@@ -3604,7 +3628,8 @@ to provide the `find-revision' operation instead."
(file-buffer (or (get-file-buffer file) (current-buffer))))
(message "Checking out %s..." file)
(let ((failed t)
- (backup-name (car (find-backup-file-name file))))
+ (backup-name (when (file-exists-p file)
+ (car (find-backup-file-name file)))))
(when backup-name
(copy-file file backup-name 'ok-if-already-exists 'keep-date)
(unless (file-writable-p file)
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index bb19706129e..d9b91cfb6ea 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -331,7 +331,7 @@ names."
(vminor
(w32-read-registry 'HKLM key
"CurrentMinorVersionNumber")))
- (if (and vmajor vmajor)
+ (if (and vmajor vminor)
(format "%d.%d" vmajor vminor)
(w32-read-registry 'HKLM key "CurrentVersion")))))
(os-csd (w32-read-registry 'HKLM key "CSDVersion"))
diff --git a/lisp/wdired.el b/lisp/wdired.el
index 5572dcb32f3..5c745cc9aab 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -470,6 +470,8 @@ non-nil means return old filename."
(insert wdired--old-content)
(goto-char wdired--old-point))
(wdired-change-to-dired-mode)
+ ;; Update markers in `dired-subdir-alist'
+ (dired-build-subdir-alist)
(set-buffer-modified-p nil)
(setq buffer-undo-list nil)
(message "Changes aborted"))
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 60bd2baa6fb..cafd0ad0a4d 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -499,7 +499,7 @@ With CHECK-AFTER non-nil, considers also the content after
point, if needed."
(defmacro widget-specify-insert (&rest form)
"Execute FORM without inheriting any text properties."
- (declare (debug body))
+ (declare (debug (body)))
`(save-restriction
(let ((inhibit-read-only t)
(inhibit-modification-hooks t))
@@ -4038,6 +4038,7 @@ is inline."
:button-prefix 'widget-push-button-prefix
:button-suffix 'widget-push-button-suffix
:format "%{%t%}: %[Toggle%] %v\n"
+ :match (lambda (_widget value) (booleanp value))
:on "on (non-nil)"
:off "off (nil)")
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 06ce16c0d42..746a440bacb 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -724,6 +724,8 @@ from the opposite side of the frame."
nil windmove-wrap-around 'nomini)))
(cond ((or (null other-window) (window-minibuffer-p other-window))
(user-error "No window %s from selected window" dir))
+ ((window-minibuffer-p (selected-window))
+ (user-error "Can't swap window with the minibuffer"))
(t
(window-swap-states nil other-window)))))
diff --git a/lisp/window.el b/lisp/window.el
index 08ce8498655..ab7dd5ced12 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -6391,7 +6391,7 @@ windows can get as small as `window-safe-min-height' and
(selected-window)))
(delete-other-windows-internal window root)
;; Create a new window to replace the existing one.
- (setq window (prog1 (split-window window)
+ (setq window (prog1 (split-window window window-safe-min-width t)
(delete-window window)))))
(set-window-dedicated-p window nil)
@@ -7510,8 +7510,8 @@ Its value takes effect before processing the ACTION
argument of
If non-nil, this is an alist of elements (CONDITION . ACTION),
where:
- CONDITION is passed to `buffer-match-p', along with the buffer
- that is to be displayed and the ACTION argument of
+ CONDITION is passed to `buffer-match-p', along with the name of
+ the buffer that is to be displayed and the ACTION argument of
`display-buffer', to check if ACTION should be used.
ACTION is a cons cell (FUNCTIONS . ALIST), where FUNCTIONS is an
@@ -7565,15 +7565,16 @@ all fail. It should never be set by programs or users.
See
`display-buffer'.")
(put 'display-buffer-fallback-action 'risky-local-variable t)
-(defun display-buffer-assq-regexp (buffer-or-name alist action)
- "Retrieve ALIST entry corresponding to buffer specified by BUFFER-OR-NAME.
+(defun display-buffer-assq-regexp (buffer-name alist action)
+ "Retrieve ALIST entry corresponding to buffer whose name is BUFFER-NAME.
This returns the cdr of the alist entry ALIST if the entry's
-key (its car) and BUFFER-OR-NAME satisfy `buffer-match-p', using
-the key as CONDITION argument of `buffer-match-p'. ACTION should
-have the form of the action argument passed to `display-buffer'."
+key (its car) and the name of the buffer designated by
+BUFFER-NAME satisfy `buffer-match-p', using the key as
+CONDITION argument of `buffer-match-p'. ACTION should have the
+form of the action argument passed to `display-buffer'."
(catch 'match
(dolist (entry alist)
- (when (buffer-match-p (car entry) buffer-or-name action)
+ (when (buffer-match-p (car entry) buffer-name action)
(throw 'match (cdr entry))))))
(defvar display-buffer--same-window-action
@@ -7732,6 +7733,9 @@ specified by the ACTION argument."
(let ((buffer (if (bufferp buffer-or-name)
buffer-or-name
(get-buffer buffer-or-name)))
+ (buf-name (if (bufferp buffer-or-name)
+ (buffer-name buffer-or-name)
+ buffer-or-name))
;; Make sure that when we split windows the old window keeps
;; point, bug#14829.
(split-window-keep-point t)
@@ -7740,7 +7744,7 @@ specified by the ACTION argument."
(unless (listp action) (setq action nil))
(let* ((user-action
(display-buffer-assq-regexp
- buffer display-buffer-alist action))
+ buf-name display-buffer-alist action))
(special-action (display-buffer--special-action buffer))
;; Extra actions from the arguments to this function:
(extra-action
diff --git a/lisp/woman.el b/lisp/woman.el
index 24f23c8e8f0..e4e3d176d08 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1846,7 +1846,6 @@ Argument EVENT is the invoking mouse event."
(defun woman-reset-emulation (value)
"Reset `woman-emulation' to VALUE and reformat, for menu use."
- (interactive)
(setq woman-emulation value)
(woman-reformat-last-file))
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index b213b155249..b87fc97f8fd 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -31,23 +31,26 @@
;;; Code:
(require 'dnd)
+;; For when building a --without-x configuration, where this is not
+;; preloaded.
+(eval-when-compile (require 'mwheel))
;;; Customizable variables
(defcustom x-dnd-test-function #'x-dnd-default-test-function
- "The function drag and drop uses to determine if to accept or reject a drop.
-The function takes three arguments, WINDOW, ACTION and TYPES.
-WINDOW is where the mouse is when the function is called. WINDOW
-may be a frame if the mouse isn't over a real window (i.e. menu
-bar, tool bar or scroll bar). ACTION is the suggested action
-from the drag and drop source, one of the symbols move, copy,
-link or ask. TYPES is a vector of available types for the drop.
-
-Each element of TYPE should either be a string (containing the
+ "Function to be used by drag-and-drop to determine whether to accept a drop.
+The function takes three arguments: WINDOW, ACTION, and TYPES.
+WINDOW is where the window under the mouse is when the function is called.
+WINDOW may be a frame if the mouse isn't over a real window (e.g., menu
+bar, tool bar, scroll bar, etc.).
+ACTION is the suggested action from the drag and drop source, one of the
+symbols `move', `copy', `link' or `ask'.
+TYPES is a vector of available types for the drop.
+Each element of TYPES should either be a string (containing the
name of the type's X atom), or a symbol, whose name will be used.
The function shall return nil to reject the drop or a cons with
-two values, the wanted action as car and the wanted type as cdr.
-The wanted action can be copy, move, link, ask or private.
+two values, the wanted action as `car' and the wanted type as `cdr'.
+The wanted action can be `copy', `move', `link', `ask' or `private'.
The default value for this variable is `x-dnd-default-test-function'."
:version "22.1"
@@ -70,14 +73,18 @@ The default value for this variable is
`x-dnd-default-test-function'."
(,(purecopy "DndTypeFile") . x-dnd-handle-offix-file)
(,(purecopy "DndTypeFiles") . x-dnd-handle-offix-files)
(,(purecopy "DndTypeText") . dnd-insert-text))
- "Which function to call to handle a drop of that type.
-If the type for the drop is not present, or the function is nil,
-the drop is rejected. The function takes three arguments, WINDOW, ACTION
-and DATA. WINDOW is where the drop occurred, ACTION is the action for
-this drop (copy, move, link, private or ask) as determined by a previous
-call to `x-dnd-test-function'. DATA is the drop data.
-The function shall return the action used (copy, move, link or private)
-if drop is successful, nil if not."
+ "Functions to call to handle drag-and-drop of known types.
+If the type of the drop is not present in the alist, or the
+function corresponding to the type is nil, the drop of that
+type will be rejected.
+
+Each function takes three arguments: WINDOW, ACTION, and DATA.
+WINDOW is the window where the drop occurred.
+ACTION is the action for this drop (`copy', `move', `link', `private'
+or `ask'), as determined by a previous call to `x-dnd-test-function'.
+DATA is the drop data.
+The function shall return the action it used (one of the above,
+excluding `ask') if drop is successful, nil if not."
:version "22.1"
:type 'alist
:group 'x)
@@ -122,22 +129,27 @@ like xterm) for text."
:group 'x)
(defcustom x-dnd-direct-save-function #'x-dnd-save-direct
- "Function called when a file is dropped that Emacs must save.
-It is called with two arguments: the first is either nil or t,
-and the second is a string.
-
-If the first argument is t, the second argument is the name the
-dropped file should be saved under. The function should return a
-complete file name describing where the file should be saved.
-
-It can also return nil, which means to cancel the drop.
-
-If the first argument is nil, the second is the name of the file
-that was dropped."
+ "Function called when a file is dropped via XDS protocol.
+The value should be a function of two arguments that supports
+the X Direct Save (XDS) protocol. The function will be called
+twice during the protocol execution.
+
+When the function is called with the first argument non-nil,
+it should return an absolute file name whose base name is
+the value of the second argument, a string. The return value
+is the file name for the dragged file to be saved. The function
+can also return nil if saving the file should be refused for some
+reason; in that case the drop will be canceled.
+
+When the function is called with the first argument nil, the
+second argument specifies the file name where the file was saved;
+the function should then do whatever is appropriate when such a
+file is saved, like show the file in the Dired buffer or visit
+the file."
:version "29.1"
- :type '(choice (const :tag "Prompt for name before saving"
+ :type '(choice (const :tag "Prompt for file name to save"
x-dnd-save-direct)
- (const :tag "Save and open immediately without prompting"
+ (const :tag "Save in `default-directory' without prompting"
x-dnd-save-direct-immediately)
(function :tag "Other function"))
:group 'x)
@@ -222,14 +234,14 @@ any protocol specific data.")
(cdr (x-dnd-get-state-cons-for-frame frame-or-window)))
(defun x-dnd-default-test-function (_window _action types)
- "The default test function for drag and drop.
+ "The default test function for drag-and-drop.
WINDOW is where the mouse is when this function is called. It
may be a frame if the mouse is over the menu bar, scroll bar or
tool bar. ACTION is the suggested action from the source, and
TYPES are the types the drop data can have. This function only
accepts drops with types in `x-dnd-known-types'. It always
returns the action `private', unless `types' contains a value
-inside `x-dnd-copy-types'."
+inside `x-dnd-copy-types', in which case it may return `copy'."
(let ((type (x-dnd-choose-type types)))
(when type (let ((list x-dnd-copy-types))
(catch 'out
@@ -600,8 +612,9 @@ message (format 32) that caused EVENT to be generated."
(defun x-dnd-after-move-frame (frame)
"Handle FRAME moving to a different position.
Clear any cached root window position."
- (set-frame-parameter frame 'dnd-root-window-position
- nil))
+ (and (frame-live-p frame)
+ (set-frame-parameter frame 'dnd-root-window-position
+ nil)))
(add-hook 'move-frame-functions #'x-dnd-after-move-frame)
@@ -1564,17 +1577,24 @@ was taken, or the direct save failed."
(when (not (equal file-name original-file-name))
(delete-file file-name)))))
-(defun x-dnd-save-direct (need-name name)
- "Handle dropping a file that should be saved immediately.
-NEED-NAME tells whether or not the file was not yet saved. NAME
-is either the name of the file, or the name the drop source wants
-us to save under.
+(defun x-dnd-save-direct (need-name filename)
+ "Handle dropping a file FILENAME that should be saved first, asking the user.
+NEED-NAME non-nil means the caller requests the full absolute
+file name of FILENAME under which to save it; FILENAME is just
+the base name in that case. The function then prompts the user
+for where to save to file and returns the result to the caller.
+
+NEED-NAME nil means the file was saved as FILENAME (which should
+be the full absolute file name in that case). The function then
+refreshes the Dired display, if the current buffer is in Dired
+mode, or visits the file otherwise.
-Prompt the user for a file name, then open it."
+This function is intended to be the value of `x-dnd-direct-save-function',
+which see."
(if need-name
(let ((file-name (read-file-name "Write file: "
default-directory
- nil nil name)))
+ nil nil filename)))
(when (file-exists-p file-name)
(unless (y-or-n-p (format-message
"File `%s' exists; overwrite? " file-name))
@@ -1584,18 +1604,18 @@ Prompt the user for a file name, then open it."
;; interface can be found.
(if (derived-mode-p 'dired-mode)
(revert-buffer)
- (find-file name))))
+ (find-file filename))))
-(defun x-dnd-save-direct-immediately (need-name name)
- "Save and open a dropped file, like `x-dnd-save-direct'.
-NEED-NAME tells whether or not the file was not yet saved. NAME
-is either the name of the file, or the name the drop source wants
-us to save under.
+(defun x-dnd-save-direct-immediately (need-name filename)
+ "Handle dropping a file FILENAME that should be saved first.
+Like `x-dnd-save-direct', but do not prompt for the file name;
+instead, return its absolute file name for saving in the current
+directory.
-Unlike `x-dnd-save-direct', do not prompt for the name by which
-to save the file. Simply save it in the current directory."
+This function is intended to be the value of `x-dnd-direct-save-function',
+which see."
(if need-name
- (let ((file-name (expand-file-name name)))
+ (let ((file-name (expand-file-name filename)))
(when (file-exists-p file-name)
(unless (y-or-n-p (format-message
"File `%s' exists; overwrite? " file-name))
@@ -1605,7 +1625,7 @@ to save the file. Simply save it in the current
directory."
;; interface can be found.
(if (derived-mode-p 'dired-mode)
(revert-buffer)
- (find-file name))))
+ (find-file filename))))
(defun x-dnd-handle-octet-stream-for-drop (save-to)
"Save the contents of the XDS selection to SAVE-TO.
diff --git a/lisp/xml.el b/lisp/xml.el
index 58d17a4b340..9095653416e 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -669,10 +669,7 @@ Leave point at the first non-blank character after the
tag."
(if (assoc name attlist)
(error "XML: (Not Well-Formed) Each attribute must be unique within
an element"))
- ;; Multiple whitespace characters should be replaced with a single one
- ;; in the attributes
(let ((string (match-string-no-properties 1)))
- (replace-regexp-in-string "\\s-\\{2,\\}" " " string)
(let ((expansion (xml-substitute-special string)))
(unless (stringp expansion)
;; We say this is the constraint. It is actually that
diff --git a/m4/acl.m4 b/m4/acl.m4
index dc9853a156d..38b1dc66212 100644
--- a/m4/acl.m4
+++ b/m4/acl.m4
@@ -1,5 +1,5 @@
# acl.m4 - check for access control list (ACL) primitives
-# serial 27
+# serial 29
# Copyright (C) 2002, 2004-2023 Free Software Foundation, Inc.
# This file is free software; the Free Software Foundation
@@ -12,7 +12,7 @@ AC_DEFUN([gl_FUNC_ACL_ARG],
[
gl_need_lib_has_acl=
AC_ARG_ENABLE([acl],
- AS_HELP_STRING([--disable-acl], [do not support ACLs]),
+ AS_HELP_STRING([[--disable-acl]], [do not support ACLs]),
, [enable_acl=auto])
])
@@ -177,37 +177,23 @@ AC_DEFUN([gl_ACL_GET_FILE],
AS_IF([test "$gl_cv_func_working_acl_get_file" != no], [$1], [$2])
])
-# On GNU/Linux, testing if a file has an acl can be done with the getxattr
-# syscall which doesn't require linking against additional libraries.
+# On GNU/Linux, testing if a file has an acl can be done with the
+# listxattr and getxattr syscalls, which don't require linking
+# against additional libraries. Assume this works if linux/attr.h
+# and listxattr are present.
AC_DEFUN([gl_FILE_HAS_ACL],
[
AC_REQUIRE([gl_FUNC_ACL_ARG])
- if test "$enable_acl" != no; then
- AC_CACHE_CHECK([for getxattr with XATTR_NAME_POSIX_ACL macros],
- [gl_cv_getxattr_with_posix_acls],
- [gl_cv_getxattr_with_posix_acls=no
- AC_LINK_IFELSE(
- [AC_LANG_PROGRAM(
- [[#include <sys/types.h>
- #include <sys/xattr.h>
- #include <linux/xattr.h>
- ]],
- [[ssize_t a = getxattr (".", XATTR_NAME_POSIX_ACL_ACCESS, 0, 0);
- ssize_t b = getxattr (".", XATTR_NAME_POSIX_ACL_DEFAULT, 0, 0);
- return a < 0 || b < 0;
- ]])],
- [gl_cv_getxattr_with_posix_acls=yes])])
- fi
- if test "$gl_cv_getxattr_with_posix_acls" = yes; then
- FILE_HAS_ACL_LIB=
- AC_DEFINE([GETXATTR_WITH_POSIX_ACLS], 1,
- [Define to 1 if getxattr works with XATTR_NAME_POSIX_ACL_ACCESS
- and XATTR_NAME_POSIX_ACL_DEFAULT.])
- else
- dnl Set gl_need_lib_has_acl to a nonempty value, so that any
- dnl later gl_FUNC_ACL call will set FILE_HAS_ACL_LIB=$LIB_ACL.
- gl_need_lib_has_acl=1
- FILE_HAS_ACL_LIB=$LIB_ACL
- fi
+ AC_CHECK_HEADERS_ONCE([linux/xattr.h])
+ AC_CHECK_FUNCS_ONCE([listxattr])
+ FILE_HAS_ACL_LIB=
+ AS_CASE([$enable_acl,$ac_cv_header_linux_xattr_h,$ac_cv_func_listxattr],
+ [no,*,*], [],
+ [*,yes,yes], [],
+ [*],
+ [dnl Set gl_need_lib_has_acl to a nonempty value, so that any
+ dnl later gl_FUNC_ACL call will set FILE_HAS_ACL_LIB=$LIB_ACL.
+ gl_need_lib_has_acl=1
+ FILE_HAS_ACL_LIB=$LIB_ACL])
AC_SUBST([FILE_HAS_ACL_LIB])
])
diff --git a/m4/codeset.m4 b/m4/codeset.m4
new file mode 100644
index 00000000000..5804f472e9a
--- /dev/null
+++ b/m4/codeset.m4
@@ -0,0 +1,24 @@
+# codeset.m4 serial 5 (gettext-0.18.2)
+dnl Copyright (C) 2000-2002, 2006, 2008-2014, 2016, 2019-2023 Free Software
+dnl Foundation, Inc.
+dnl This file is free software; the Free Software Foundation
+dnl gives unlimited permission to copy and/or distribute it,
+dnl with or without modifications, as long as this notice is preserved.
+
+dnl From Bruno Haible.
+
+AC_DEFUN([AM_LANGINFO_CODESET],
+[
+ AC_CACHE_CHECK([for nl_langinfo and CODESET], [am_cv_langinfo_codeset],
+ [AC_LINK_IFELSE(
+ [AC_LANG_PROGRAM(
+ [[#include <langinfo.h>]],
+ [[char* cs = nl_langinfo(CODESET); return !cs;]])],
+ [am_cv_langinfo_codeset=yes],
+ [am_cv_langinfo_codeset=no])
+ ])
+ if test $am_cv_langinfo_codeset = yes; then
+ AC_DEFINE([HAVE_LANGINFO_CODESET], [1],
+ [Define if you have <langinfo.h> and nl_langinfo(CODESET).])
+ fi
+])
diff --git a/m4/dirent_h.m4 b/m4/dirent_h.m4
index 2a232a7622e..b6c189c0d9f 100644
--- a/m4/dirent_h.m4
+++ b/m4/dirent_h.m4
@@ -1,4 +1,4 @@
-# dirent_h.m4 serial 19
+# dirent_h.m4 serial 20
dnl Copyright (C) 2008-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
@@ -21,12 +21,29 @@ AC_DEFUN_ONCE([gl_DIRENT_H],
fi
AC_SUBST([HAVE_DIRENT_H])
+ gl_DIRENT_DIR
+
dnl Check for declarations of anything we want to poison if the
dnl corresponding gnulib module is not in use.
gl_WARN_ON_USE_PREPARE([[#include <dirent.h>
]], [alphasort closedir dirfd fdopendir opendir readdir rewinddir scandir])
])
+dnl Determine whether <dirent.h> needs to override the DIR type.
+AC_DEFUN_ONCE([gl_DIRENT_DIR],
+[
+ dnl Set DIR_HAS_FD_MEMBER if dirfd() works, i.e. not always returns -1,
+ dnl or has the __KLIBC__ workaround as in lib/dirfd.c.
+ dnl We could use the findings from gl_FUNC_DIRFD and gl_PREREQ_DIRFD, but
+ dnl it's simpler since we know the affected platforms.
+ AC_REQUIRE([AC_CANONICAL_HOST])
+ case "$host_os" in
+ mingw*) DIR_HAS_FD_MEMBER=0 ;;
+ *) DIR_HAS_FD_MEMBER=1 ;;
+ esac
+ AC_SUBST([DIR_HAS_FD_MEMBER])
+])
+
# gl_DIRENT_MODULE_INDICATOR([modulename])
# sets the shell variable that indicates the presence of the given module
# to a C preprocessor expression that will evaluate to 1.
@@ -73,6 +90,8 @@ AC_DEFUN([gl_DIRENT_H_DEFAULTS],
HAVE_SCANDIR=1; AC_SUBST([HAVE_SCANDIR])
HAVE_ALPHASORT=1; AC_SUBST([HAVE_ALPHASORT])
REPLACE_OPENDIR=0; AC_SUBST([REPLACE_OPENDIR])
+ REPLACE_READDIR=0; AC_SUBST([REPLACE_READDIR])
+ REPLACE_REWINDDIR=0; AC_SUBST([REPLACE_REWINDDIR])
REPLACE_CLOSEDIR=0; AC_SUBST([REPLACE_CLOSEDIR])
REPLACE_DIRFD=0; AC_SUBST([REPLACE_DIRFD])
REPLACE_FDOPENDIR=0; AC_SUBST([REPLACE_FDOPENDIR])
diff --git a/m4/dirfd.m4 b/m4/dirfd.m4
index 2135535042b..7968b1287ce 100644
--- a/m4/dirfd.m4
+++ b/m4/dirfd.m4
@@ -1,4 +1,4 @@
-# serial 26 -*- Autoconf -*-
+# serial 28 -*- Autoconf -*-
dnl Find out how to get the file descriptor associated with an open DIR*.
@@ -12,7 +12,7 @@ dnl From Jim Meyering
AC_DEFUN([gl_FUNC_DIRFD],
[
AC_REQUIRE([gl_DIRENT_H_DEFAULTS])
- AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
+ AC_REQUIRE([AC_CANONICAL_HOST])
dnl Persuade glibc <dirent.h> to declare dirfd().
AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS])
@@ -36,15 +36,20 @@ AC_DEFUN([gl_FUNC_DIRFD],
[gl_cv_func_dirfd_macro=yes],
[gl_cv_func_dirfd_macro=no])])
- # Use the replacement if we have no function or macro with that name,
- # or if OS/2 kLIBC whose dirfd() does not work.
- # Replace only if the system declares dirfd already.
- case
$ac_cv_func_dirfd,$gl_cv_func_dirfd_macro,$host_os,$ac_cv_have_decl_dirfd in
- no,no,*,yes | *,*,os2*,yes)
+ if test $ac_cv_func_dirfd = no && test $gl_cv_func_dirfd_macro = no; then
+ HAVE_DIRFD=0
+ else
+ HAVE_DIRFD=1
+ dnl Replace dirfd() on native Windows, to support fdopendir().
+ AC_REQUIRE([gl_DIRENT_DIR])
+ if test $DIR_HAS_FD_MEMBER = 0; then
REPLACE_DIRFD=1
- AC_DEFINE([REPLACE_DIRFD], [1],
- [Define to 1 if gnulib's dirfd() replacement is used.]);;
- esac
+ fi
+ dnl OS/2 kLIBC dirfd() does not work.
+ case "$host_os" in
+ os2*) REPLACE_DIRFD=1 ;;
+ esac
+ fi
])
dnl Prerequisites of lib/dirfd.c.
diff --git a/m4/extern-inline.m4 b/m4/extern-inline.m4
index c001b1cff7d..f9894d7fe5c 100644
--- a/m4/extern-inline.m4
+++ b/m4/extern-inline.m4
@@ -79,7 +79,8 @@ AC_DEFUN([gl_EXTERN_INLINE],
# define _GL_EXTERN_INLINE_STDHEADER_BUG
#endif
#if ((__GNUC__ \
- ? defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ \
+ ? (defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ \
+ && !defined __PCC__) \
: (199901L <= __STDC_VERSION__ \
&& !defined __HP_cc \
&& !defined __PGI \
@@ -89,6 +90,7 @@ AC_DEFUN([gl_EXTERN_INLINE],
# define _GL_EXTERN_INLINE extern inline
# define _GL_EXTERN_INLINE_IN_USE
#elif (2 < __GNUC__ + (7 <= __GNUC_MINOR__) && !defined __STRICT_ANSI__ \
+ && !defined __PCC__ \
&& !defined _GL_EXTERN_INLINE_STDHEADER_BUG)
# if defined __GNUC_GNU_INLINE__ && __GNUC_GNU_INLINE__
/* __gnu_inline__ suppresses a GCC 4.2 diagnostic. */
diff --git a/m4/gnulib-common.m4 b/m4/gnulib-common.m4
index c84a2afd9c5..a2b53d33dca 100644
--- a/m4/gnulib-common.m4
+++ b/m4/gnulib-common.m4
@@ -1,4 +1,4 @@
-# gnulib-common.m4 serial 82
+# gnulib-common.m4 serial 87
dnl Copyright (C) 2007-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
@@ -15,6 +15,10 @@ AC_DEFUN([gl_COMMON], [
AC_REQUIRE([gl_ZZGNULIB])
])
AC_DEFUN([gl_COMMON_BODY], [
+ AH_VERBATIM([0witness],
+[/* Witness that <config.h> has been included. */
+#define _GL_CONFIG_H_INCLUDED 1
+])
AH_VERBATIM([_GL_GNUC_PREREQ],
[/* True if the compiler says it groks GNU C version MAJOR.MINOR. */
#if defined __GNUC__ && defined __GNUC_MINOR__
@@ -116,6 +120,20 @@ AC_DEFUN([gl_COMMON_BODY], [
# pragma GCC diagnostic ignored "-Wpedantic"
#endif
+/* Define if, in a function declaration, the attributes in bracket syntax
+ [[...]] must come before the attributes in __attribute__((...)) syntax.
+ If this is defined, it is best to avoid the bracket syntax, so that the
+ various _GL_ATTRIBUTE_* can be cumulated on the same declaration in any
+ order. */
+#ifdef __cplusplus
+# if defined __clang__
+# define _GL_BRACKET_BEFORE_ATTRIBUTE 1
+# endif
+#else
+# if defined __GNUC__ && !defined __clang__
+# define _GL_BRACKET_BEFORE_ATTRIBUTE 1
+# endif
+#endif
]dnl There is no _GL_ATTRIBUTE_ALIGNED; use stdalign's alignas instead.
[
/* _GL_ATTRIBUTE_ALLOC_SIZE ((N)) declares that the Nth argument of the
function
@@ -223,9 +241,11 @@ AC_DEFUN([gl_COMMON_BODY], [
- typedef,
in C++ also: namespace, class, template specialization. */
#ifndef _GL_ATTRIBUTE_DEPRECATED
-# ifdef __has_c_attribute
-# if __has_c_attribute (__deprecated__)
-# define _GL_ATTRIBUTE_DEPRECATED [[__deprecated__]]
+# ifndef _GL_BRACKET_BEFORE_ATTRIBUTE
+# ifdef __has_c_attribute
+# if __has_c_attribute (__deprecated__)
+# define _GL_ATTRIBUTE_DEPRECATED [[__deprecated__]]
+# endif
# endif
# endif
# if !defined _GL_ATTRIBUTE_DEPRECATED && _GL_HAS_ATTRIBUTE (deprecated)
@@ -355,13 +375,15 @@ AC_DEFUN([gl_COMMON_BODY], [
__has_c_attribute (__maybe_unused__) yields true but the use of
[[__maybe_unused__]] nevertheless produces a warning. */
#ifndef _GL_ATTRIBUTE_MAYBE_UNUSED
-# if defined __clang__ && defined __cplusplus
-# if !defined __apple_build_version__ && __clang_major__ >= 10
-# define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]]
-# endif
-# elif defined __has_c_attribute
-# if __has_c_attribute (__maybe_unused__)
-# define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]]
+# ifndef _GL_BRACKET_BEFORE_ATTRIBUTE
+# if defined __clang__ && defined __cplusplus
+# if !defined __apple_build_version__ && __clang_major__ >= 10
+# define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]]
+# endif
+# elif defined __has_c_attribute
+# if __has_c_attribute (__maybe_unused__)
+# define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]]
+# endif
# endif
# endif
# ifndef _GL_ATTRIBUTE_MAYBE_UNUSED
@@ -379,18 +401,20 @@ AC_DEFUN([gl_COMMON_BODY], [
the return value, unless the caller uses something like ignore_value. */
/* Applies to: function, enumeration, class. */
#ifndef _GL_ATTRIBUTE_NODISCARD
-# if defined __clang__ && defined __cplusplus
+# ifndef _GL_BRACKET_BEFORE_ATTRIBUTE
+# if defined __clang__ && defined __cplusplus
/* With clang up to 15.0.6 (at least), in C++ mode, [[__nodiscard__]]
produces
a warning.
The 1000 below means a yet unknown threshold. When clang++ version X
starts supporting [[__nodiscard__]] without warning about it, you can
replace the 1000 with X. */
-# if __clang_major__ >= 1000
-# define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]]
-# endif
-# elif defined __has_c_attribute
-# if __has_c_attribute (__nodiscard__)
-# define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]]
+# if __clang_major__ >= 1000
+# define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]]
+# endif
+# elif defined __has_c_attribute
+# if __has_c_attribute (__nodiscard__)
+# define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]]
+# endif
# endif
# endif
# if !defined _GL_ATTRIBUTE_NODISCARD && _GL_HAS_ATTRIBUTE (warn_unused_result)
@@ -527,6 +551,18 @@ AC_DEFUN([gl_COMMON_BODY], [
# define _GL_UNUSED_LABEL
# endif
#endif
+])
+ AH_VERBATIM([c_linkage],
+[/* In C++, there is the concept of "language linkage", that encompasses
+ name mangling and function calling conventions.
+ The following macros start and end a block of "C" linkage. */
+#ifdef __cplusplus
+# define _GL_BEGIN_C_LINKAGE extern "C" {
+# define _GL_END_C_LINKAGE }
+#else
+# define _GL_BEGIN_C_LINKAGE
+# define _GL_END_C_LINKAGE
+#endif
])
AH_VERBATIM([async_safe],
[/* The _GL_ASYNC_SAFE marker should be attached to functions that are
@@ -583,7 +619,7 @@ AC_DEFUN([gl_COMMON_BODY], [
dnl gl_cross_guess_normal (to be used when 'yes' is good and 'no' is bad),
dnl gl_cross_guess_inverted (to be used when 'no' is good and 'yes' is bad).
AC_ARG_ENABLE([cross-guesses],
- [AS_HELP_STRING([--enable-cross-guesses={conservative|risky}],
+ [AS_HELP_STRING([[--enable-cross-guesses={conservative|risky}]],
[specify policy for cross-compilation guesses])],
[if test "x$enableval" != xconservative && test "x$enableval" != xrisky;
then
AC_MSG_WARN([invalid argument supplied to --enable-cross-guesses])
@@ -1017,6 +1053,7 @@ AC_DEFUN([gl_CC_GNULIB_WARNINGS],
dnl -Wno-float-conversion >= 4.9 >= 3.9
dnl -Wno-float-equal >= 3 >= 3.9
dnl -Wimplicit-fallthrough >= 7 >= 3.9
+ dnl -Wno-missing-field-initializers >= 4.0, < 11
dnl -Wno-pedantic >= 4.8 >= 3.9
dnl -Wno-sign-compare >= 3 >= 3.9
dnl -Wno-sign-conversion >= 4.3 >= 3.9
@@ -1042,6 +1079,9 @@ AC_DEFUN([gl_CC_GNULIB_WARNINGS],
#if __GNUC__ >= 7 || (__clang_major__ + (__clang_minor__ >= 9) > 3)
-Wimplicit-fallthrough
#endif
+ #if __GNUC__ >= 4 && __GNUC__ < 11 && !defined __clang__
+ -Wno-missing-field-initializers
+ #endif
#if __GNUC__ + (__GNUC_MINOR__ >= 8) > 4 || (__clang_major__ +
(__clang_minor__ >= 9) > 3)
-Wno-pedantic
#endif
diff --git a/m4/gnulib-comp.m4 b/m4/gnulib-comp.m4
index 0658652a99e..882b5869755 100644
--- a/m4/gnulib-comp.m4
+++ b/m4/gnulib-comp.m4
@@ -176,6 +176,7 @@ AC_DEFUN([gl_EARLY],
# Code from module stddef:
# Code from module stdint:
# Code from module stdio:
+ gl_STDIO_H_EARLY
# Code from module stdlib:
# Code from module stpcpy:
# Code from module string:
@@ -189,7 +190,7 @@ AC_DEFUN([gl_EARLY],
# Code from module sys_time:
# Code from module sys_types:
# Code from module tempname:
- # Code from module time:
+ # Code from module time-h:
# Code from module time_r:
# Code from module time_rz:
# Code from module timegm:
@@ -209,6 +210,8 @@ AC_DEFUN([gl_EARLY],
# Code from module vla:
# Code from module warnings:
# Code from module xalloc-oversized:
+ # Code from module year2038:
+ AC_REQUIRE([AC_SYS_YEAR2038])
])
# This macro should be invoked from ./configure.ac, in the section
@@ -660,7 +663,7 @@ AC_DEFUN([gl_INIT],
gl_gnulib_enabled_682e609604ccaac6be382e4ee3a4eaec=false
func_gl_gnulib_m4code_260941c0e5dc67ec9e87d1fb321c300b ()
{
- if ! $gl_gnulib_enabled_260941c0e5dc67ec9e87d1fb321c300b; then
+ if $gl_gnulib_enabled_260941c0e5dc67ec9e87d1fb321c300b; then :; else
AC_REQUIRE([AC_CANONICAL_HOST])
gl_gnulib_enabled_260941c0e5dc67ec9e87d1fb321c300b=true
if case $host_os in mingw*) false;; *) :;; esac; then
@@ -670,17 +673,17 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_cloexec ()
{
- if ! $gl_gnulib_enabled_cloexec; then
+ if $gl_gnulib_enabled_cloexec; then :; else
gl_MODULE_INDICATOR_FOR_TESTS([cloexec])
gl_gnulib_enabled_cloexec=true
fi
}
func_gl_gnulib_m4code_dirfd ()
{
- if ! $gl_gnulib_enabled_dirfd; then
+ if $gl_gnulib_enabled_dirfd; then :; else
gl_FUNC_DIRFD
gl_CONDITIONAL([GL_COND_OBJ_DIRFD],
- [test $ac_cv_func_dirfd = no && test
$gl_cv_func_dirfd_macro = no || test $REPLACE_DIRFD = 1])
+ [test $HAVE_DIRFD = 0 || test $REPLACE_DIRFD = 1])
AM_COND_IF([GL_COND_OBJ_DIRFD], [
gl_PREREQ_DIRFD
])
@@ -690,13 +693,13 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_925677f0343de64b89a9f0c790b4104c ()
{
- if ! $gl_gnulib_enabled_925677f0343de64b89a9f0c790b4104c; then
+ if $gl_gnulib_enabled_925677f0343de64b89a9f0c790b4104c; then :; else
gl_gnulib_enabled_925677f0343de64b89a9f0c790b4104c=true
fi
}
func_gl_gnulib_m4code_euidaccess ()
{
- if ! $gl_gnulib_enabled_euidaccess; then
+ if $gl_gnulib_enabled_euidaccess; then :; else
gl_FUNC_EUIDACCESS
gl_CONDITIONAL([GL_COND_OBJ_EUIDACCESS], [test $HAVE_EUIDACCESS = 0])
AM_COND_IF([GL_COND_OBJ_EUIDACCESS], [
@@ -712,7 +715,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_getdtablesize ()
{
- if ! $gl_gnulib_enabled_getdtablesize; then
+ if $gl_gnulib_enabled_getdtablesize; then :; else
gl_FUNC_GETDTABLESIZE
gl_CONDITIONAL([GL_COND_OBJ_GETDTABLESIZE],
[test $HAVE_GETDTABLESIZE = 0 || test
$REPLACE_GETDTABLESIZE = 1])
@@ -725,7 +728,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_getgroups ()
{
- if ! $gl_gnulib_enabled_getgroups; then
+ if $gl_gnulib_enabled_getgroups; then :; else
gl_FUNC_GETGROUPS
gl_CONDITIONAL([GL_COND_OBJ_GETGROUPS],
[test $HAVE_GETGROUPS = 0 || test $REPLACE_GETGROUPS = 1])
@@ -738,7 +741,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_be453cec5eecf5731a274f2de7f2db36 ()
{
- if ! $gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36; then
+ if $gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36; then :; else
AC_SUBST([LIBINTL])
AC_SUBST([LTLIBINTL])
gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36=true
@@ -746,14 +749,14 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_fd38c7e463b54744b77b98aeafb4fa7c ()
{
- if ! $gl_gnulib_enabled_fd38c7e463b54744b77b98aeafb4fa7c; then
+ if $gl_gnulib_enabled_fd38c7e463b54744b77b98aeafb4fa7c; then :; else
AC_PROG_MKDIR_P
gl_gnulib_enabled_fd38c7e463b54744b77b98aeafb4fa7c=true
fi
}
func_gl_gnulib_m4code_8444034ea779b88768865bb60b4fb8c9 ()
{
- if ! $gl_gnulib_enabled_8444034ea779b88768865bb60b4fb8c9; then
+ if $gl_gnulib_enabled_8444034ea779b88768865bb60b4fb8c9; then :; else
AC_PROG_MKDIR_P
gl_gnulib_enabled_8444034ea779b88768865bb60b4fb8c9=true
func_gl_gnulib_m4code_ef455225c00f5049c808c2eda3e76866
@@ -762,7 +765,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_a9786850e999ae65a836a6041e8e5ed1 ()
{
- if ! $gl_gnulib_enabled_a9786850e999ae65a836a6041e8e5ed1; then
+ if $gl_gnulib_enabled_a9786850e999ae65a836a6041e8e5ed1; then :; else
gl_FUNC_GROUP_MEMBER
gl_CONDITIONAL([GL_COND_OBJ_GROUP_MEMBER], [test $HAVE_GROUP_MEMBER = 0])
AM_COND_IF([GL_COND_OBJ_GROUP_MEMBER], [
@@ -780,7 +783,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_lchmod ()
{
- if ! $gl_gnulib_enabled_lchmod; then
+ if $gl_gnulib_enabled_lchmod; then :; else
gl_FUNC_LCHMOD
gl_CONDITIONAL([GL_COND_OBJ_LCHMOD], [test $HAVE_LCHMOD = 0])
AM_COND_IF([GL_COND_OBJ_LCHMOD], [
@@ -792,7 +795,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_e80bf6f757095d2e5fc94dafb8f8fc8b ()
{
- if ! $gl_gnulib_enabled_e80bf6f757095d2e5fc94dafb8f8fc8b; then
+ if $gl_gnulib_enabled_e80bf6f757095d2e5fc94dafb8f8fc8b; then :; else
gl_FUNC_MALLOC_GNU
if test $REPLACE_MALLOC_FOR_MALLOC_GNU = 1; then
AC_LIBOBJ([malloc])
@@ -807,7 +810,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_ef455225c00f5049c808c2eda3e76866 ()
{
- if ! $gl_gnulib_enabled_ef455225c00f5049c808c2eda3e76866; then
+ if $gl_gnulib_enabled_ef455225c00f5049c808c2eda3e76866; then :; else
AC_REQUIRE([gl_FUNC_MALLOC_POSIX])
if test $REPLACE_MALLOC_FOR_MALLOC_POSIX = 1; then
AC_LIBOBJ([malloc])
@@ -821,7 +824,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_5264294aa0a5557541b53c8c741f7f31 ()
{
- if ! $gl_gnulib_enabled_5264294aa0a5557541b53c8c741f7f31; then
+ if $gl_gnulib_enabled_5264294aa0a5557541b53c8c741f7f31; then :; else
gl_FUNC_MKTIME_INTERNAL
if test $WANT_MKTIME_INTERNAL = 1; then
AC_LIBOBJ([mktime])
@@ -832,7 +835,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_open ()
{
- if ! $gl_gnulib_enabled_open; then
+ if $gl_gnulib_enabled_open; then :; else
gl_FUNC_OPEN
gl_CONDITIONAL([GL_COND_OBJ_OPEN], [test $REPLACE_OPEN = 1])
AM_COND_IF([GL_COND_OBJ_OPEN], [
@@ -847,13 +850,13 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_03e0aaad4cb89ca757653bd367a6ccb7 ()
{
- if ! $gl_gnulib_enabled_03e0aaad4cb89ca757653bd367a6ccb7; then
+ if $gl_gnulib_enabled_03e0aaad4cb89ca757653bd367a6ccb7; then :; else
gl_gnulib_enabled_03e0aaad4cb89ca757653bd367a6ccb7=true
fi
}
func_gl_gnulib_m4code_rawmemchr ()
{
- if ! $gl_gnulib_enabled_rawmemchr; then
+ if $gl_gnulib_enabled_rawmemchr; then :; else
gl_FUNC_RAWMEMCHR
gl_CONDITIONAL([GL_COND_OBJ_RAWMEMCHR], [test $HAVE_RAWMEMCHR = 0])
AM_COND_IF([GL_COND_OBJ_RAWMEMCHR], [
@@ -865,7 +868,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_d3b2383720ee0e541357aa2aac598e2b ()
{
- if ! $gl_gnulib_enabled_d3b2383720ee0e541357aa2aac598e2b; then
+ if $gl_gnulib_enabled_d3b2383720ee0e541357aa2aac598e2b; then :; else
gl_FUNC_REALLOC_GNU
if test $REPLACE_REALLOC_FOR_REALLOC_GNU = 1; then
AC_LIBOBJ([realloc])
@@ -883,7 +886,7 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_61bcaca76b3e6f9ae55d57a1c3193bc4 ()
{
- if ! $gl_gnulib_enabled_61bcaca76b3e6f9ae55d57a1c3193bc4; then
+ if $gl_gnulib_enabled_61bcaca76b3e6f9ae55d57a1c3193bc4; then :; else
gl_FUNC_REALLOC_POSIX
if test $REPLACE_REALLOC_FOR_REALLOC_POSIX = 1; then
AC_LIBOBJ([realloc])
@@ -900,13 +903,13 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_6099e9737f757db36c47fa9d9f02e88c ()
{
- if ! $gl_gnulib_enabled_6099e9737f757db36c47fa9d9f02e88c; then
+ if $gl_gnulib_enabled_6099e9737f757db36c47fa9d9f02e88c; then :; else
gl_gnulib_enabled_6099e9737f757db36c47fa9d9f02e88c=true
fi
}
func_gl_gnulib_m4code_strtoll ()
{
- if ! $gl_gnulib_enabled_strtoll; then
+ if $gl_gnulib_enabled_strtoll; then :; else
gl_FUNC_STRTOLL
gl_CONDITIONAL([GL_COND_OBJ_STRTOLL],
[test $HAVE_STRTOLL = 0 || test $REPLACE_STRTOLL = 1])
@@ -919,14 +922,14 @@ AC_DEFUN([gl_INIT],
}
func_gl_gnulib_m4code_utimens ()
{
- if ! $gl_gnulib_enabled_utimens; then
+ if $gl_gnulib_enabled_utimens; then :; else
gl_UTIMENS
gl_gnulib_enabled_utimens=true
fi
}
func_gl_gnulib_m4code_682e609604ccaac6be382e4ee3a4eaec ()
{
- if ! $gl_gnulib_enabled_682e609604ccaac6be382e4ee3a4eaec; then
+ if $gl_gnulib_enabled_682e609604ccaac6be382e4ee3a4eaec; then :; else
gl_gnulib_enabled_682e609604ccaac6be382e4ee3a4eaec=true
fi
}
@@ -1246,6 +1249,7 @@ AC_DEFUN([gl_FILE_LIST], [
lib/count-trailing-zeros.c
lib/count-trailing-zeros.h
lib/diffseq.h
+ lib/dirent-private.h
lib/dirent.in.h
lib/dirfd.c
lib/dtoastr.c
@@ -1429,6 +1433,7 @@ AC_DEFUN([gl_FILE_LIST], [
m4/c-bool.m4
m4/canonicalize.m4
m4/clock_time.m4
+ m4/codeset.m4
m4/copy-file-range.m4
m4/d-type.m4
m4/dirent_h.m4
@@ -1474,6 +1479,7 @@ AC_DEFUN([gl_FILE_LIST], [
m4/lchmod.m4
m4/libgmp.m4
m4/limits-h.m4
+ m4/locale-fr.m4
m4/lstat.m4
m4/malloc.m4
m4/manywarnings-c++.m4
@@ -1489,6 +1495,7 @@ AC_DEFUN([gl_FILE_LIST], [
m4/mktime.m4
m4/mode_t.m4
m4/multiarch.m4
+ m4/musl.m4
m4/nanosleep.m4
m4/nocrash.m4
m4/nproc.m4
diff --git a/m4/largefile.m4 b/m4/largefile.m4
index 7fb81b864af..a2adb533ae6 100644
--- a/m4/largefile.m4
+++ b/m4/largefile.m4
@@ -10,7 +10,7 @@
# It does not set _LARGEFILE_SOURCE=1 on HP-UX/ia64 32-bit, although this
# setting of _LARGEFILE_SOURCE is needed so that <stdio.h> declares fseeko
# and ftello in C++ mode as well.
-# Fixed in Autoconf 2.72, which has AC_SYS_YEAR2038.
+# This problem occurs in Autoconf 2.71 and earlier, which lack AC_SYS_YEAR2038.
AC_DEFUN([gl_SET_LARGEFILE_SOURCE],
m4_ifndef([AC_SYS_YEAR2038], [[
AC_REQUIRE([AC_CANONICAL_HOST])
@@ -24,29 +24,9 @@ AC_DEFUN([gl_SET_LARGEFILE_SOURCE],
]])
)
-# Work around a problem in autoconf <= 2.69:
-# AC_SYS_LARGEFILE does not configure for large inodes on Mac OS X 10.5,
-# or configures them incorrectly in some cases.
-m4_version_prereq([2.70], [], [
-
-# _AC_SYS_LARGEFILE_TEST_INCLUDES
-# -------------------------------
-m4_define([_AC_SYS_LARGEFILE_TEST_INCLUDES],
-[#include <sys/types.h>
- /* Check that off_t can represent 2**63 - 1 correctly.
- We can't simply define LARGE_OFF_T to be 9223372036854775807,
- since some C++ compilers masquerading as C compilers
- incorrectly reject 9223372036854775807. */
-#define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31))
- int off_t_is_large[[(LARGE_OFF_T % 2147483629 == 721
- && LARGE_OFF_T % 2147483647 == 1)
- ? 1 : -1]];[]dnl
-])
-])# m4_version_prereq 2.70
-
-# Support AC_SYS_YEAR2038, even if Autoconf 2.71 or earlier.
-# This code is taken from Autoconf master.
-m4_ifndef([AC_SYS_YEAR2038], [
+m4_ifndef([AC_SYS_YEAR2038_RECOMMENDED], [
+# Support AC_SYS_YEAR2038_RECOMMENDED and related macros, even if
+# Autoconf 2.71 or earlier. This code is taken from Autoconf master.
# _AC_SYS_YEAR2038_TEST_CODE
# --------------------------
@@ -78,8 +58,8 @@ m4_define([_AC_SYS_YEAR2038_OPTIONS], m4_normalize(
dnl 32-bit MinGW (misconfiguration)
))
-# _AC_SYS_YEAR2038_PROBE([IF-NOT-DETECTED])
-# -----------------------------------------
+# _AC_SYS_YEAR2038_PROBE
+# ----------------------
# Subroutine of AC_SYS_YEAR2038. Probe for time_t that can represent
# time points more than 2**31 - 1 seconds after the epoch (dates after
# 2038-01-18, see above) and set the cache variable ac_cv_sys_year2038_opts
@@ -92,13 +72,10 @@ m4_define([_AC_SYS_YEAR2038_OPTIONS], m4_normalize(
# AC_TRY_RUN. Note also that some systems only support large time_t
# together with large off_t.
#
-# If support is not detected, the behavior depends on which of the
-# top-level AC_SYS_YEAR2038 macros was used (see below).
-#
# If you change this macro you may also need to change
# _AC_SYS_YEAR2038_OPTIONS.
AC_DEFUN([_AC_SYS_YEAR2038_PROBE],
-[AC_CACHE_CHECK([for $CC option to enable timestamps after Jan 2038],
+[AC_CACHE_CHECK([for $CC option for timestamps after 2038],
[ac_cv_sys_year2038_opts],
[ac_save_CPPFLAGS="$CPPFLAGS"
ac_opt_found=no
@@ -117,40 +94,20 @@ ac_have_year2038=yes
AS_CASE([$ac_cv_sys_year2038_opts],
["none needed"], [],
["support not detected"],
- [ac_have_year2038=no
- AS_CASE([$enable_year2038],
- [yes],
- [# If we're not cross compiling and 'touch' works with a large
- # timestamp, then we can presume the system supports wider time_t
- # *somehow* and we just weren't able to detect it. One common
- # case that we deliberately *don't* probe for is a system that
- # supports both 32- and 64-bit ABIs but only the 64-bit ABI offers
- # wide time_t. (It would be inappropriate for us to override an
- # intentional use of -m32.) Error out, demanding use of
- # --disable-year2038 if this is intentional.
- AS_IF([test $cross_compiling = no],
- [AS_IF([TZ=UTC0 touch -t 210602070628.15 conftest.time 2>/dev/null],
- [AS_CASE([`TZ=UTC0 LC_ALL=C ls -l conftest.time 2>/dev/null`],
- [*'Feb 7 2106'* | *'Feb 7 17:10'*],
- [AC_MSG_FAILURE(m4_text_wrap(
- [this system appears to support timestamps after January 2038,
- but no mechanism for enabling wide 'time_t' was detected.
- Did you mean to build a 64-bit binary? (e.g. 'CC="${CC} -m64"'.)
- To proceed with 32-bit time_t, configure with '--disable-year2038'.],
- [], [], [55]))])])])])],
+ [ac_have_year2038=no],
["-D_TIME_BITS=64"],
[AC_DEFINE([_TIME_BITS], [64],
[Number of bits in time_t, on hosts where this is settable.])],
- ["-D__MINGW_USE_VC2005_COMPAT=1"],
+ ["-D__MINGW_USE_VC2005_COMPAT"],
[AC_DEFINE([__MINGW_USE_VC2005_COMPAT], [1],
[Define to 1 on platforms where this makes time_t a 64-bit type.])],
["-U_USE_32_BIT_TIME_T"*],
[AC_MSG_FAILURE(m4_text_wrap(
[the 'time_t' type is currently forced to be 32-bit.
- It will stop working after January 2038.
+ It will stop working after mid-January 2038.
Remove _USE_32BIT_TIME_T from the compiler flags.],
[], [], [55]))],
@@ -160,12 +117,11 @@ AS_CASE([$ac_cv_sys_year2038_opts],
# _AC_SYS_YEAR2038_ENABLE
# -----------------------
-# Subroutine of AC_SYS_YEAR2038 and _AC_SYS_YEAR2038_OPT_IN.
# Depending on which of the YEAR2038 macros was used, add either an
-# --enable-year2038, or a --disable-year2038, or no option at all to
-# the configure script. Note that this is expanded very late and
+# --enable-year2038 or a --disable-year2038 to
+# the configure script. This is expanded very late and
# therefore there cannot be any code in the AC_ARG_ENABLE. The
-# default value for enable_year2038 is emitted unconditionally
+# default value for 'enable_year2038' is emitted unconditionally
# because the generated code always looks at this variable.
m4_define([_AC_SYS_YEAR2038_ENABLE],
[m4_divert_text([DEFAULTS],
@@ -175,35 +131,50 @@ m4_define([_AC_SYS_YEAR2038_ENABLE],
[AC_ARG_ENABLE([year2038],
m4_provide_if([AC_SYS_YEAR2038],
[AS_HELP_STRING([--disable-year2038],
- [do not support timestamps after 2038])],
+ [don't support timestamps after 2038])],
[AS_HELP_STRING([--enable-year2038],
[support timestamps after 2038])]))])
-# _AC_SYS_YEAR2038_OPT_IN
-# -----------------------
-# If the --enable-year2038 option is given to configure, attempt to
-# detect and activate support for large time_t on 32-bit systems.
-# This macro is automatically invoked by AC_SYS_LARGEFILE when large
-# *file* support is detected. It does not AC_REQUIRE AC_SYS_LARGEFILE
-# to avoid a dependency loop, and is therefore unsafe to expose as a
-# documented macro.
-AC_DEFUN([_AC_SYS_YEAR2038_OPT_IN],
-[m4_provide_if([_AC_SYS_YEAR2038_PROBE], [], [dnl
- AS_IF([test "$enable_year2038" != no], [_AC_SYS_YEAR2038_PROBE])
- AC_CONFIG_COMMANDS_PRE([_AC_SYS_YEAR2038_ENABLE])
-])])
-
# AC_SYS_YEAR2038
# ---------------
# Attempt to detect and activate support for large time_t.
# On systems where time_t is not always 64 bits, this probe can be
# skipped by passing the --disable-year2038 option to configure.
AC_DEFUN([AC_SYS_YEAR2038],
-[AC_REQUIRE([AC_SYS_LARGEFILE])]dnl
-[m4_provide_if([_AC_SYS_YEAR2038_PROBE], [], [dnl
- AS_IF([test "$enable_year2038" != no], [_AC_SYS_YEAR2038_PROBE])
- AC_CONFIG_COMMANDS_PRE([_AC_SYS_YEAR2038_ENABLE])
-])])
+[AC_REQUIRE([AC_SYS_LARGEFILE])dnl
+AS_IF([test "$enable_year2038,$ac_have_year2038,$cross_compiling" = yes,no,no],
+ [# If we're not cross compiling and 'touch' works with a large
+ # timestamp, then we can presume the system supports wider time_t
+ # *somehow* and we just weren't able to detect it. One common
+ # case that we deliberately *don't* probe for is a system that
+ # supports both 32- and 64-bit ABIs but only the 64-bit ABI offers
+ # wide time_t. (It would be inappropriate for us to override an
+ # intentional use of -m32.) Error out, demanding use of
+ # --disable-year2038 if this is intentional.
+ AS_IF([TZ=UTC0 touch -t 210602070628.15 conftest.time 2>/dev/null],
+ [AS_CASE([`TZ=UTC0 LC_ALL=C ls -l conftest.time 2>/dev/null`],
+ [*'Feb 7 2106'* | *'Feb 7 17:10'*],
+ [AC_MSG_FAILURE(m4_text_wrap(
+ [this system appears to support timestamps after mid-January 2038,
+ but no mechanism for enabling wide 'time_t' was detected.
+ Did you mean to build a 64-bit binary? (E.g., 'CC="${CC} -m64"'.)
+ To proceed with 32-bit time_t, configure with '--disable-year2038'.],
+ [], [], [55]))])])])])
+
+# AC_SYS_YEAR2038_RECOMMENDED
+# ---------------------------
+# Same as AC_SYS_YEAR2038, but recommend support for large time_t.
+# If we cannot find any way to make time_t capable of representing
+# values larger than 2**31 - 1, error out unless --disable-year2038 is given.
+AC_DEFUN([AC_SYS_YEAR2038_RECOMMENDED],
+[AC_REQUIRE([AC_SYS_YEAR2038])dnl
+AS_IF([test "$enable_year2038,$ac_have_year2038" = yes,no],
+ [AC_MSG_FAILURE(m4_text_wrap(
+ [could not enable timestamps after mid-January 2038.
+ This package recommends support for these later timestamps.
+ However, to proceed with signed 32-bit time_t even though it
+ will fail then, configure with '--disable-year2038'.],
+ [], [], [55]))])])
# _AC_SYS_LARGEFILE_TEST_CODE
# ---------------------------
@@ -219,6 +190,8 @@ m4_define([_AC_SYS_LARGEFILE_TEST_CODE],
&& LARGE_OFF_T % 2147483647 == 1)
? 1 : -1]];[]dnl
])
+# Defined by Autoconf 2.71 and circa 2022 Gnulib unwisely depended on it.
+m4_define([_AC_SYS_LARGEFILE_TEST_INCLUDES], [_AC_SYS_LARGEFILE_TEST_CODE])
# _AC_SYS_LARGEFILE_OPTIONS
# -------------------------
@@ -228,8 +201,8 @@ m4_define([_AC_SYS_LARGEFILE_TEST_CODE],
m4_define([_AC_SYS_LARGEFILE_OPTIONS], m4_normalize(
["none needed"] dnl Most current systems
["-D_FILE_OFFSET_BITS=64"] dnl X/Open LFS spec
- ["-D_LARGE_FILES=1"] dnl AIX (which versions?)
- ["-n32"] dnl Irix 6.2 w/ SGI compiler
+ ["-D_LARGE_FILES=1"] dnl 32-bit AIX 4.2.1+, 32-bit z/OS
+ ["-n32"] dnl 32-bit IRIX 6, SGI cc (obsolete)
))
# _AC_SYS_LARGEFILE_PROBE
@@ -259,11 +232,24 @@ AC_DEFUN([_AC_SYS_LARGEFILE_PROBE],
test $ac_opt_found = no || break
done
CC="$ac_save_CC"
+ dnl Gnulib implements large file support for native Windows, based on the
+ dnl variables WINDOWS_64_BIT_OFF_T, WINDOWS_64_BIT_ST_SIZE.
+ m4_ifdef([gl_LARGEFILE], [
+ AC_REQUIRE([AC_CANONICAL_HOST])
+ if test $ac_opt_found != yes; then
+ AS_CASE([$host_os],
+ [mingw*],
+ [ac_cv_sys_largefile_opts="supported through gnulib"
+ ac_opt_found=yes]
+ )
+ fi
+ ])
test $ac_opt_found = yes || ac_cv_sys_largefile_opts="support not detected"])
ac_have_largefile=yes
AS_CASE([$ac_cv_sys_largefile_opts],
["none needed"], [],
+ ["supported through gnulib"], [],
["support not detected"],
[ac_have_largefile=no],
@@ -281,21 +267,9 @@ AS_CASE([$ac_cv_sys_largefile_opts],
[AC_MSG_ERROR(
[internal error: bad value for \$ac_cv_sys_largefile_opts])])
-_AC_SYS_YEAR2038_OPT_IN
-])
-
-# _AC_SYS_LARGEFILE_ENABLE
-# ------------------------
-# Subroutine of AC_SYS_LARGEFILE. Note that this
-# is expanded very late and therefore there cannot be any code in the
-# AC_ARG_ENABLE. The default value for enable_largefile is emitted
-# unconditionally because the generated shell code always looks at
-# this variable.
-m4_define([_AC_SYS_LARGEFILE_ENABLE],
-[m4_divert_text([DEFAULTS],
- enable_largefile=yes)]dnl
-[AC_ARG_ENABLE([largefile],
- [AS_HELP_STRING([--disable-largefile], [omit support for large files])])])
+AS_IF([test "$enable_year2038" != no],
+ [_AC_SYS_YEAR2038_PROBE])
+AC_CONFIG_COMMANDS_PRE([_AC_SYS_YEAR2038_ENABLE])])
# AC_SYS_LARGEFILE
# ----------------
@@ -306,14 +280,13 @@ m4_define([_AC_SYS_LARGEFILE_ENABLE],
# Additionally, on Linux file systems with 64-bit inodes a file that happens
# to have a 64-bit inode number cannot be accessed by 32-bit applications on
# Linux x86/x86_64. This can occur with file systems such as XFS and NFS.
-# This macro allows configuration to continue if the system doesn't support
-# large files.
AC_DEFUN([AC_SYS_LARGEFILE],
-[m4_provide_if([_AC_SYS_LARGEFILE_PROBE], [], [dnl
- AS_IF([test "$enable_largefile" != no], [_AC_SYS_LARGEFILE_PROBE])
- AC_CONFIG_COMMANDS_PRE([_AC_SYS_LARGEFILE_ENABLE])
-])])
-])# m4_ifndef AC_SYS_YEAR2038
+[AC_ARG_ENABLE([largefile],
+ [AS_HELP_STRING([--disable-largefile],
+ [omit support for large files])])dnl
+AS_IF([test "$enable_largefile,$enable_year2038" != no,no],
+ [_AC_SYS_LARGEFILE_PROBE])])
+])# m4_ifndef AC_SYS_YEAR2038_RECOMMENDED
# Enable large files on systems where this is implemented by Gnulib, not by the
# system headers.
diff --git a/m4/libgmp.m4 b/m4/libgmp.m4
index 58576c4d0c5..eb20ada0fa5 100644
--- a/m4/libgmp.m4
+++ b/m4/libgmp.m4
@@ -1,4 +1,4 @@
-# libgmp.m4 serial 7
+# libgmp.m4 serial 8
# Configure the GMP library or a replacement.
dnl Copyright 2020-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
@@ -15,7 +15,7 @@ dnl empty.
AC_DEFUN([gl_LIBGMP],
[
AC_ARG_WITH([libgmp],
- [AS_HELP_STRING([--without-libgmp],
+ [AS_HELP_STRING([[--without-libgmp]],
[do not use the GNU Multiple Precision (GMP) library;
this is the default on systems lacking libgmp.])])
HAVE_LIBGMP=no
diff --git a/m4/limits-h.m4 b/m4/limits-h.m4
index 4f8ce41098a..ca0294e5500 100644
--- a/m4/limits-h.m4
+++ b/m4/limits-h.m4
@@ -24,6 +24,7 @@ AC_DEFUN_ONCE([gl_LIMITS_H],
int ullw = ULLONG_WIDTH;
int bw = BOOL_WIDTH;
int bm = BOOL_MAX;
+ int mblm = MB_LEN_MAX;
]])],
[gl_cv_header_limits_width=yes],
[gl_cv_header_limits_width=no])])
diff --git a/m4/locale-fr.m4 b/m4/locale-fr.m4
new file mode 100644
index 00000000000..5e13f3945d2
--- /dev/null
+++ b/m4/locale-fr.m4
@@ -0,0 +1,253 @@
+# locale-fr.m4 serial 21
+dnl Copyright (C) 2003, 2005-2023 Free Software Foundation, Inc.
+dnl This file is free software; the Free Software Foundation
+dnl gives unlimited permission to copy and/or distribute it,
+dnl with or without modifications, as long as this notice is preserved.
+
+dnl From Bruno Haible.
+
+dnl Determine the name of a french locale with traditional encoding.
+AC_DEFUN_ONCE([gt_LOCALE_FR],
+[
+ AC_REQUIRE([AC_CANONICAL_HOST])
+ AC_REQUIRE([AM_LANGINFO_CODESET])
+ AC_CACHE_CHECK([for a traditional french locale], [gt_cv_locale_fr], [
+ AC_LANG_CONFTEST([AC_LANG_SOURCE([[
+#include <locale.h>
+#include <time.h>
+#if HAVE_LANGINFO_CODESET
+# include <langinfo.h>
+#endif
+#include <stdlib.h>
+#include <string.h>
+struct tm t;
+char buf[16];
+int main () {
+ /* On BeOS and Haiku, locales are not implemented in libc. Rather, libintl
+ imitates locale dependent behaviour by looking at the environment
+ variables, and all locales use the UTF-8 encoding. */
+#if defined __BEOS__ || defined __HAIKU__
+ return 1;
+#else
+ /* Check whether the given locale name is recognized by the system. */
+# if defined _WIN32 && !defined __CYGWIN__
+ /* On native Windows, setlocale(category, "") looks at the system settings,
+ not at the environment variables. Also, when an encoding suffix such
+ as ".65001" or ".54936" is specified, it succeeds but sets the LC_CTYPE
+ category of the locale to "C". */
+ if (setlocale (LC_ALL, getenv ("LC_ALL")) == NULL
+ || strcmp (setlocale (LC_CTYPE, NULL), "C") == 0)
+ return 1;
+# else
+ if (setlocale (LC_ALL, "") == NULL) return 1;
+# endif
+ /* Check whether nl_langinfo(CODESET) is nonempty and not "ASCII" or "646".
+ On Mac OS X 10.3.5 (Darwin 7.5) in the fr_FR locale, nl_langinfo(CODESET)
+ is empty, and the behaviour of Tcl 8.4 in this locale is not useful.
+ On OpenBSD 4.0, when an unsupported locale is specified, setlocale()
+ succeeds but then nl_langinfo(CODESET) is "646". In this situation,
+ some unit tests fail.
+ On MirBSD 10, when an unsupported locale is specified, setlocale()
+ succeeds but then nl_langinfo(CODESET) is "UTF-8". */
+# if HAVE_LANGINFO_CODESET
+ {
+ const char *cs = nl_langinfo (CODESET);
+ if (cs[0] == '\0' || strcmp (cs, "ASCII") == 0 || strcmp (cs, "646") == 0
+ || strcmp (cs, "UTF-8") == 0)
+ return 1;
+ }
+# endif
+# ifdef __CYGWIN__
+ /* On Cygwin, avoid locale names without encoding suffix, because the
+ locale_charset() function relies on the encoding suffix. Note that
+ LC_ALL is set on the command line. */
+ if (strchr (getenv ("LC_ALL"), '.') == NULL) return 1;
+# endif
+ /* Check whether in the abbreviation of the second month, the second
+ character (should be U+00E9: LATIN SMALL LETTER E WITH ACUTE) is only
+ one byte long. This excludes the UTF-8 encoding. */
+ t.tm_year = 1975 - 1900; t.tm_mon = 2 - 1; t.tm_mday = 4;
+ if (strftime (buf, sizeof (buf), "%b", &t) < 3 || buf[2] != 'v') return 1;
+# if !defined __BIONIC__ /* Bionic libc's 'struct lconv' is just a dummy. */
+ /* Check whether the decimal separator is a comma.
+ On NetBSD 3.0 in the fr_FR.ISO8859-1 locale, localeconv()->decimal_point
+ are nl_langinfo(RADIXCHAR) are both ".". */
+ if (localeconv () ->decimal_point[0] != ',') return 1;
+# endif
+ return 0;
+#endif
+}
+ ]])])
+ if AC_TRY_EVAL([ac_link]) && test -s conftest$ac_exeext; then
+ case "$host_os" in
+ # Handle native Windows specially, because there setlocale() interprets
+ # "ar" as "Arabic" or "Arabic_Saudi Arabia.1256",
+ # "fr" or "fra" as "French" or "French_France.1252",
+ # "ge"(!) or "deu"(!) as "German" or "German_Germany.1252",
+ # "ja" as "Japanese" or "Japanese_Japan.932",
+ # and similar.
+ mingw*)
+ # Test for the native Windows locale name.
+ if (LC_ALL=French_France.1252 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr=French_France.1252
+ else
+ # None found.
+ gt_cv_locale_fr=none
+ fi
+ ;;
+ *)
+ # Setting LC_ALL is not enough. Need to set LC_TIME to empty, because
+ # otherwise on Mac OS X 10.3.5 the LC_TIME=C from the beginning of
the
+ # configure script would override the LC_ALL setting. Likewise for
+ # LC_CTYPE, which is also set at the beginning of the configure
script.
+ # Test for the usual locale name.
+ if (LC_ALL=fr_FR LC_TIME= LC_CTYPE= ./conftest; exit) 2>/dev/null;
then
+ gt_cv_locale_fr=fr_FR
+ else
+ # Test for the locale name with explicit encoding suffix.
+ if (LC_ALL=fr_FR.ISO-8859-1 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr=fr_FR.ISO-8859-1
+ else
+ # Test for the AIX, OSF/1, FreeBSD, NetBSD, OpenBSD locale name.
+ if (LC_ALL=fr_FR.ISO8859-1 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr=fr_FR.ISO8859-1
+ else
+ # Test for the HP-UX locale name.
+ if (LC_ALL=fr_FR.iso88591 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr=fr_FR.iso88591
+ else
+ # Test for the Solaris 7 locale name.
+ if (LC_ALL=fr LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr=fr
+ else
+ # None found.
+ gt_cv_locale_fr=none
+ fi
+ fi
+ fi
+ fi
+ fi
+ ;;
+ esac
+ fi
+ rm -fr conftest*
+ ])
+ LOCALE_FR=$gt_cv_locale_fr
+ AC_SUBST([LOCALE_FR])
+])
+
+dnl Determine the name of a french locale with UTF-8 encoding.
+AC_DEFUN_ONCE([gt_LOCALE_FR_UTF8],
+[
+ AC_REQUIRE([AM_LANGINFO_CODESET])
+ AC_CACHE_CHECK([for a french Unicode locale], [gt_cv_locale_fr_utf8], [
+ AC_LANG_CONFTEST([AC_LANG_SOURCE([[
+#include <locale.h>
+#include <time.h>
+#if HAVE_LANGINFO_CODESET
+# include <langinfo.h>
+#endif
+#include <stdlib.h>
+#include <string.h>
+struct tm t;
+char buf[16];
+int main () {
+ /* On BeOS and Haiku, locales are not implemented in libc. Rather, libintl
+ imitates locale dependent behaviour by looking at the environment
+ variables, and all locales use the UTF-8 encoding. */
+#if !(defined __BEOS__ || defined __HAIKU__)
+ /* Check whether the given locale name is recognized by the system. */
+# if defined _WIN32 && !defined __CYGWIN__
+ /* On native Windows, setlocale(category, "") looks at the system settings,
+ not at the environment variables. Also, when an encoding suffix such
+ as ".65001" or ".54936" is specified, it succeeds but sets the LC_CTYPE
+ category of the locale to "C". */
+ if (setlocale (LC_ALL, getenv ("LC_ALL")) == NULL
+ || strcmp (setlocale (LC_CTYPE, NULL), "C") == 0)
+ return 1;
+# else
+ if (setlocale (LC_ALL, "") == NULL) return 1;
+# endif
+ /* Check whether nl_langinfo(CODESET) is nonempty and not "ASCII" or "646".
+ On Mac OS X 10.3.5 (Darwin 7.5) in the fr_FR locale, nl_langinfo(CODESET)
+ is empty, and the behaviour of Tcl 8.4 in this locale is not useful.
+ On OpenBSD 4.0, when an unsupported locale is specified, setlocale()
+ succeeds but then nl_langinfo(CODESET) is "646". In this situation,
+ some unit tests fail. */
+# if HAVE_LANGINFO_CODESET
+ {
+ const char *cs = nl_langinfo (CODESET);
+ if (cs[0] == '\0' || strcmp (cs, "ASCII") == 0 || strcmp (cs, "646") == 0)
+ return 1;
+ }
+# endif
+# ifdef __CYGWIN__
+ /* On Cygwin, avoid locale names without encoding suffix, because the
+ locale_charset() function relies on the encoding suffix. Note that
+ LC_ALL is set on the command line. */
+ if (strchr (getenv ("LC_ALL"), '.') == NULL) return 1;
+# endif
+ /* Check whether in the abbreviation of the second month, the second
+ character (should be U+00E9: LATIN SMALL LETTER E WITH ACUTE) is
+ two bytes long, with UTF-8 encoding. */
+ t.tm_year = 1975 - 1900; t.tm_mon = 2 - 1; t.tm_mday = 4;
+ if (strftime (buf, sizeof (buf), "%b", &t) < 4
+ || buf[1] != (char) 0xc3 || buf[2] != (char) 0xa9 || buf[3] != 'v')
+ return 1;
+#endif
+#if !defined __BIONIC__ /* Bionic libc's 'struct lconv' is just a dummy. */
+ /* Check whether the decimal separator is a comma.
+ On NetBSD 3.0 in the fr_FR.ISO8859-1 locale, localeconv()->decimal_point
+ are nl_langinfo(RADIXCHAR) are both ".". */
+ if (localeconv () ->decimal_point[0] != ',') return 1;
+#endif
+ return 0;
+}
+ ]])])
+ if AC_TRY_EVAL([ac_link]) && test -s conftest$ac_exeext; then
+ case "$host_os" in
+ # Handle native Windows specially, because there setlocale() interprets
+ # "ar" as "Arabic" or "Arabic_Saudi Arabia.1256",
+ # "fr" or "fra" as "French" or "French_France.1252",
+ # "ge"(!) or "deu"(!) as "German" or "German_Germany.1252",
+ # "ja" as "Japanese" or "Japanese_Japan.932",
+ # and similar.
+ mingw*)
+ # Test for the hypothetical native Windows locale name.
+ if (LC_ALL=French_France.65001 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr_utf8=French_France.65001
+ else
+ # None found.
+ gt_cv_locale_fr_utf8=none
+ fi
+ ;;
+ *)
+ # Setting LC_ALL is not enough. Need to set LC_TIME to empty, because
+ # otherwise on Mac OS X 10.3.5 the LC_TIME=C from the beginning of
the
+ # configure script would override the LC_ALL setting. Likewise for
+ # LC_CTYPE, which is also set at the beginning of the configure
script.
+ # Test for the usual locale name.
+ if (LC_ALL=fr_FR LC_TIME= LC_CTYPE= ./conftest; exit) 2>/dev/null;
then
+ gt_cv_locale_fr_utf8=fr_FR
+ else
+ # Test for the locale name with explicit encoding suffix.
+ if (LC_ALL=fr_FR.UTF-8 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr_utf8=fr_FR.UTF-8
+ else
+ # Test for the Solaris 7 locale name.
+ if (LC_ALL=fr.UTF-8 LC_TIME= LC_CTYPE= ./conftest; exit)
2>/dev/null; then
+ gt_cv_locale_fr_utf8=fr.UTF-8
+ else
+ # None found.
+ gt_cv_locale_fr_utf8=none
+ fi
+ fi
+ fi
+ ;;
+ esac
+ fi
+ rm -fr conftest*
+ ])
+ LOCALE_FR_UTF8=$gt_cv_locale_fr_utf8
+ AC_SUBST([LOCALE_FR_UTF8])
+])
diff --git a/m4/manywarnings.m4 b/m4/manywarnings.m4
index 2fac86e20be..13db996516d 100644
--- a/m4/manywarnings.m4
+++ b/m4/manywarnings.m4
@@ -46,8 +46,7 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
dnl First, check for some issues that only occur when combining multiple
dnl gcc warning categories.
AC_REQUIRE([AC_PROG_CC])
- if test -n "$GCC"; then
-
+ AS_IF([test -n "$GCC"], [
dnl Check if -Wextra -Werror -Wno-missing-field-initializers is supported
dnl with the current $CC $CFLAGS $CPPFLAGS.
AC_CACHE_CHECK([whether -Wno-missing-field-initializers is supported],
@@ -61,7 +60,7 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
CFLAGS="$gl_save_CFLAGS"
])
- if test "$gl_cv_cc_nomfi_supported" = yes; then
+ AS_IF([test "$gl_cv_cc_nomfi_supported" = yes], [
dnl Now check whether -Wno-missing-field-initializers is needed
dnl for the { 0, } construct.
AC_CACHE_CHECK([whether -Wno-missing-field-initializers is needed],
@@ -82,7 +81,7 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
[gl_cv_cc_nomfi_needed=yes])
CFLAGS="$gl_save_CFLAGS"
])
- fi
+ ])
dnl Next, check if -Werror -Wuninitialized is useful with the
dnl user's choice of $CFLAGS; some versions of gcc warn that it
@@ -97,8 +96,7 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
[gl_cv_cc_uninitialized_supported=no])
CFLAGS="$gl_save_CFLAGS"
])
-
- fi
+ ])
# List all gcc warning categories.
# To compare this list to your installed GCC's, run this Bash command:
@@ -109,7 +107,7 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
# <(LC_ALL=C gcc --help=warnings | sed -n 's/^ \(-[^ ]*\) .*/\1/p' | sort)
$1=
- for gl_manywarn_item in -fanalyzer -fno-common \
+ for gl_manywarn_item in -fanalyzer -fstrict-flex-arrays \
-Wall \
-Warith-conversion \
-Wbad-function-cast \
@@ -137,6 +135,7 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
-Wpointer-arith \
-Wshadow \
-Wstack-protector \
+ -Wstrict-flex-arrays \
-Wstrict-overflow \
-Wstrict-prototypes \
-Wsuggest-attribute=cold \
@@ -178,14 +177,19 @@ AC_DEFUN([gl_MANYWARN_ALL_GCC(C)],
gl_AS_VAR_APPEND([$1], [' -Wvla-larger-than=4031'])
# These are needed for older GCC versions.
- if test -n "$GCC"; then
- case `($CC --version) 2>/dev/null` in
+ if test -n "$GCC" && gl_gcc_version=`($CC --version) 2>/dev/null`; then
+ case $gl_gcc_version in
'gcc (GCC) '[[0-3]].* | \
'gcc (GCC) '4.[[0-7]].*)
gl_AS_VAR_APPEND([$1], [' -fdiagnostics-show-option'])
gl_AS_VAR_APPEND([$1], [' -funit-at-a-time'])
;;
esac
+ case $gl_gcc_version in
+ 'gcc (GCC) '[[0-9]].*)
+ gl_AS_VAR_APPEND([$1], [' -fno-common'])
+ ;;
+ esac
fi
# Disable specific options as needed.
diff --git a/m4/musl.m4 b/m4/musl.m4
new file mode 100644
index 00000000000..e28a3fed677
--- /dev/null
+++ b/m4/musl.m4
@@ -0,0 +1,20 @@
+# musl.m4 serial 4
+dnl Copyright (C) 2019-2023 Free Software Foundation, Inc.
+dnl This file is free software; the Free Software Foundation
+dnl gives unlimited permission to copy and/or distribute it,
+dnl with or without modifications, as long as this notice is preserved.
+
+# Test for musl libc, despite the musl libc authors don't like it
+# <https://wiki.musl-libc.org/faq.html>
+# <https://lists.gnu.org/archive/html/bug-gnulib/2018-02/msg00079.html>.
+# From Bruno Haible.
+
+AC_DEFUN_ONCE([gl_MUSL_LIBC],
+[
+ AC_REQUIRE([AC_CANONICAL_HOST])
+ case "$host_os" in
+ *-musl* | midipix*)
+ AC_DEFINE([MUSL_LIBC], [1], [Define to 1 on musl libc.])
+ ;;
+ esac
+])
diff --git a/m4/regex.m4 b/m4/regex.m4
index c89a1432a7b..7acadc48343 100644
--- a/m4/regex.m4
+++ b/m4/regex.m4
@@ -1,4 +1,4 @@
-# serial 73
+# serial 74
# Copyright (C) 1996-2001, 2003-2023 Free Software Foundation, Inc.
#
@@ -15,7 +15,7 @@ AC_DEFUN([gl_REGEX],
[
AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
AC_ARG_WITH([included-regex],
- [AS_HELP_STRING([--without-included-regex],
+ [AS_HELP_STRING([[--without-included-regex]],
[don't compile regex; this is the default on systems
with recent-enough versions of the GNU C Library
(use with caution on other systems).])])
diff --git a/m4/stdalign.m4 b/m4/stdalign.m4
index f49cf8ec162..1a236d66d2f 100644
--- a/m4/stdalign.m4
+++ b/m4/stdalign.m4
@@ -151,22 +151,22 @@ AC_DEFUN([gl_ALIGNASOF],
- alignas (TYPE) is equivalent to alignas (alignof (TYPE)).
*/
-# if !HAVE_STDALIGN_H
-# if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112
-# if defined __cplusplus && (201103 <= __cplusplus || defined _MSC_VER)
-# define _Alignas(a) alignas (a)
-# elif (!defined __attribute__ \
- && ((defined __APPLE__ && defined __MACH__ \
- ? 4 < __GNUC__ + (1 <= __GNUC_MINOR__) \
- : __GNUC__ && !defined __ibmxl__) \
- || (4 <= __clang_major__) \
- || (__ia64 && (61200 <= __HP_cc || 61200 <= __HP_aCC)) \
- || __ICC || 0x590 <= __SUNPRO_C || 0x0600 <= __xlC__))
-# define _Alignas(a) __attribute__ ((__aligned__ (a)))
-# elif 1300 <= _MSC_VER
-# define _Alignas(a) __declspec (align (a))
-# endif
+# if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112
+# if defined __cplusplus && (201103 <= __cplusplus || defined _MSC_VER)
+# define _Alignas(a) alignas (a)
+# elif (!defined __attribute__ \
+ && ((defined __APPLE__ && defined __MACH__ \
+ ? 4 < __GNUC__ + (1 <= __GNUC_MINOR__) \
+ : __GNUC__ && !defined __ibmxl__) \
+ || (4 <= __clang_major__) \
+ || (__ia64 && (61200 <= __HP_cc || 61200 <= __HP_aCC)) \
+ || __ICC || 0x590 <= __SUNPRO_C || 0x0600 <= __xlC__))
+# define _Alignas(a) __attribute__ ((__aligned__ (a)))
+# elif 1300 <= _MSC_VER
+# define _Alignas(a) __declspec (align (a))
# endif
+# endif
+# if !HAVE_STDALIGN_H
# if ((defined _Alignas \
&& !(defined __cplusplus \
&& (201103 <= __cplusplus || defined _MSC_VER))) \
diff --git a/m4/stddef_h.m4 b/m4/stddef_h.m4
index a2322ebb7ee..aa012219fcd 100644
--- a/m4/stddef_h.m4
+++ b/m4/stddef_h.m4
@@ -1,4 +1,4 @@
-# stddef_h.m4 serial 13
+# stddef_h.m4 serial 14
dnl Copyright (C) 2009-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
@@ -68,6 +68,21 @@ AC_DEFUN_ONCE([gl_STDDEF_H],
GL_GENERATE_STDDEF_H=true
fi
+ AC_CACHE_CHECK([for unreachable],
+ [gl_cv_func_unreachable],
+ [AC_LINK_IFELSE(
+ [AC_LANG_PROGRAM(
+ [[#include <stddef.h>
+ ]],
+ [[unreachable ();
+ ]])],
+ [gl_cv_func_unreachable=yes],
+ [gl_cv_func_unreachable=no])
+ ])
+ if test $gl_cv_func_unreachable = no; then
+ GL_GENERATE_STDDEF_H=true
+ fi
+
if $GL_GENERATE_STDDEF_H; then
gl_NEXT_HEADERS([stddef.h])
fi
diff --git a/m4/stdio_h.m4 b/m4/stdio_h.m4
index 07569961f8b..dbfa0d5d61b 100644
--- a/m4/stdio_h.m4
+++ b/m4/stdio_h.m4
@@ -1,12 +1,22 @@
-# stdio_h.m4 serial 61
+# stdio_h.m4 serial 63
dnl Copyright (C) 2007-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.
-AC_DEFUN_ONCE([gl_STDIO_H],
+AC_DEFUN([gl_STDIO_H_EARLY],
[
- AC_REQUIRE([gl_STDIO_H_DEFAULTS])
+ dnl Defining __USE_MINGW_ANSI_STDIO to 1 must be done early, because
+ dnl the results of several configure tests depend on it: The tests
+ dnl - checking whether snprintf returns a byte count as in C99...
+ dnl - checking whether snprintf truncates the result as in C99...
+ dnl - checking whether printf supports the 'F' directive...
+ dnl - checking whether printf supports the grouping flag...
+ dnl - checking whether printf supports the zero flag correctly...
+ dnl - checking whether printf supports infinite 'double' arguments...
+ dnl - checking whether printf supports large precisions...
+ dnl report 'yes' if __USE_MINGW_ANSI_STDIO is 1 but 'no' if
+ dnl __USE_MINGW_ANSI_STDIO is not set.
AH_VERBATIM([MINGW_ANSI_STDIO],
[/* Use GNU style printf and scanf. */
#ifndef __USE_MINGW_ANSI_STDIO
@@ -14,6 +24,11 @@ AC_DEFUN_ONCE([gl_STDIO_H],
#endif
])
AC_DEFINE([__USE_MINGW_ANSI_STDIO])
+])
+
+AC_DEFUN_ONCE([gl_STDIO_H],
+[
+ AC_REQUIRE([gl_STDIO_H_DEFAULTS])
gl_NEXT_HEADERS([stdio.h])
dnl Determine whether __USE_MINGW_ANSI_STDIO makes printf and
@@ -40,6 +55,9 @@ AC_DEFUN_ONCE([gl_STDIO_H],
attribute "__gnu_printf__" instead of "__printf__"])
fi
+ dnl For defining _PRINTF_NAN_LEN_MAX.
+ gl_MUSL_LIBC
+
dnl This ifdef is an optimization, to avoid performing a configure check
whose
dnl result is not used. But it does not make the test of
dnl GNULIB_STDIO_H_NONBLOCKING or GNULIB_NONBLOCKING redundant.
diff --git a/m4/stdlib_h.m4 b/m4/stdlib_h.m4
index 249ef657224..f47c1eb37b3 100644
--- a/m4/stdlib_h.m4
+++ b/m4/stdlib_h.m4
@@ -1,4 +1,4 @@
-# stdlib_h.m4 serial 71
+# stdlib_h.m4 serial 75
dnl Copyright (C) 2007-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
@@ -24,14 +24,57 @@ AC_DEFUN_ONCE([gl_STDLIB_H],
#endif
]], [_Exit aligned_alloc atoll canonicalize_file_name free
getloadavg getprogname getsubopt grantpt
- initstate initstate_r mbtowc mkdtemp mkostemp mkostemps mkstemp mkstemps
- posix_memalign posix_openpt ptsname ptsname_r qsort_r
+ initstate initstate_r mbstowcs mbtowc mkdtemp mkostemp mkostemps mkstemp
+ mkstemps posix_memalign posix_openpt ptsname ptsname_r qsort_r
random random_r reallocarray realpath rpmatch secure_getenv setenv
setstate setstate_r srandom srandom_r
strtod strtol strtold strtoll strtoul strtoull unlockpt unsetenv])
AC_REQUIRE([AC_C_RESTRICT])
+ dnl Test whether MB_CUR_MAX needs to be overridden.
+ dnl On Solaris 10, in UTF-8 locales, its value is 3 but needs to be 4.
+ dnl Fortunately, we can do this because on this platform MB_LEN_MAX is 5.
+ AC_REQUIRE([AC_CANONICAL_HOST])
+ AC_REQUIRE([gt_LOCALE_FR_UTF8])
+ AC_CACHE_CHECK([whether MB_CUR_MAX is correct],
+ [gl_cv_macro_MB_CUR_MAX_good],
+ [
+ dnl Initial guess, used when cross-compiling or when no suitable locale
+ dnl is present.
+changequote(,)dnl
+ case "$host_os" in
+ # Guess no on Solaris.
+ solaris*) gl_cv_macro_MB_CUR_MAX_good="guessing no" ;;
+ # Guess yes otherwise.
+ *) gl_cv_macro_MB_CUR_MAX_good="guessing yes" ;;
+ esac
+changequote([,])dnl
+ if test $LOCALE_FR_UTF8 != none; then
+ AC_RUN_IFELSE(
+ [AC_LANG_SOURCE([[
+#include <locale.h>
+#include <stdlib.h>
+int main ()
+{
+ int result = 0;
+ if (setlocale (LC_ALL, "$LOCALE_FR_UTF8") != NULL)
+ {
+ if (MB_CUR_MAX < 4)
+ result |= 1;
+ }
+ return result;
+}]])],
+ [gl_cv_macro_MB_CUR_MAX_good=yes],
+ [gl_cv_macro_MB_CUR_MAX_good=no],
+ [:])
+ fi
+ ])
+ case "$gl_cv_macro_MB_CUR_MAX_good" in
+ *yes) ;;
+ *) REPLACE_MB_CUR_MAX=1 ;;
+ esac
+
AC_CHECK_DECLS_ONCE([ecvt])
if test $ac_cv_have_decl_ecvt = no; then
HAVE_DECL_ECVT=0
@@ -78,6 +121,7 @@ AC_DEFUN([gl_STDLIB_H_REQUIRE_DEFAULTS],
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GRANTPT])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MALLOC_GNU])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MALLOC_POSIX])
+ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSTOWCS])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBTOWC])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKDTEMP])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKOSTEMP])
@@ -131,6 +175,7 @@ AC_DEFUN([gl_STDLIB_H_DEFAULTS],
HAVE_DECL_FCVT=1; AC_SUBST([HAVE_DECL_FCVT])
HAVE_DECL_GCVT=1; AC_SUBST([HAVE_DECL_GCVT])
HAVE_DECL_GETLOADAVG=1; AC_SUBST([HAVE_DECL_GETLOADAVG])
+ HAVE_DECL_PROGRAM_INVOCATION_NAME=1;
AC_SUBST([HAVE_DECL_PROGRAM_INVOCATION_NAME])
HAVE_GETPROGNAME=1; AC_SUBST([HAVE_GETPROGNAME])
HAVE_GETSUBOPT=1; AC_SUBST([HAVE_GETSUBOPT])
HAVE_GRANTPT=1; AC_SUBST([HAVE_GRANTPT])
@@ -180,6 +225,8 @@ AC_DEFUN([gl_STDLIB_H_DEFAULTS],
REPLACE_INITSTATE=0; AC_SUBST([REPLACE_INITSTATE])
REPLACE_MALLOC_FOR_MALLOC_GNU=0; AC_SUBST([REPLACE_MALLOC_FOR_MALLOC_GNU])
REPLACE_MALLOC_FOR_MALLOC_POSIX=0;
AC_SUBST([REPLACE_MALLOC_FOR_MALLOC_POSIX])
+ REPLACE_MB_CUR_MAX=0; AC_SUBST([REPLACE_MB_CUR_MAX])
+ REPLACE_MBSTOWCS=0; AC_SUBST([REPLACE_MBSTOWCS])
REPLACE_MBTOWC=0; AC_SUBST([REPLACE_MBTOWC])
REPLACE_MKOSTEMP=0; AC_SUBST([REPLACE_MKOSTEMP])
REPLACE_MKOSTEMPS=0; AC_SUBST([REPLACE_MKOSTEMPS])
diff --git a/m4/strtoll.m4 b/m4/strtoll.m4
index ede630c6061..ec09609cd42 100644
--- a/m4/strtoll.m4
+++ b/m4/strtoll.m4
@@ -1,4 +1,4 @@
-# strtoll.m4 serial 9
+# strtoll.m4 serial 10
dnl Copyright (C) 2002, 2004, 2006, 2008-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
@@ -24,15 +24,26 @@ AC_DEFUN([gl_FUNC_STRTOLL],
if (term != input + 1)
result |= 1;
}
+ /* This test fails on pre-C23 platforms. */
+ {
+ const char input[] = "0b1";
+ (void) strtoll (input, &term, 2);
+ if (term != input + 3)
+ result |= 2;
+ }
return result;
]])
],
[gl_cv_func_strtoll_works=yes],
[gl_cv_func_strtoll_works=no],
[case "$host_os" in
- # Guess no on native Windows.
- mingw*) gl_cv_func_strtoll_works="guessing no" ;;
- *) gl_cv_func_strtoll_works="$gl_cross_guess_normal" ;;
+ # Guess no on native Windows.
+ mingw*) gl_cv_func_strtoll_works="guessing no" ;;
+ # Guess no on glibc systems.
+ *-gnu* | gnu*) gl_cv_func_strtoll_works="guessing no" ;;
+ # Guess no on musl systems.
+ *-musl* | midipix*) gl_cv_func_strtoll_works="guessing no" ;;
+ *)
gl_cv_func_strtoll_works="$gl_cross_guess_normal" ;;
esac
])
])
diff --git a/m4/time_h.m4 b/m4/time_h.m4
index b74870c3d0e..51d553a2f1a 100644
--- a/m4/time_h.m4
+++ b/m4/time_h.m4
@@ -2,7 +2,7 @@
# Copyright (C) 2000-2001, 2003-2007, 2009-2023 Free Software Foundation, Inc.
-# serial 21
+# serial 22
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
@@ -137,6 +137,7 @@ AC_DEFUN([gl_TIME_H_REQUIRE_DEFAULTS],
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_NANOSLEEP])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRFTIME])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRPTIME])
+ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIME])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIMEGM])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIMESPEC_GET])
gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIMESPEC_GETRES])
@@ -169,6 +170,7 @@ AC_DEFUN([gl_TIME_H_DEFAULTS],
REPLACE_MKTIME=GNULIB_PORTCHECK; AC_SUBST([REPLACE_MKTIME])
REPLACE_NANOSLEEP=GNULIB_PORTCHECK; AC_SUBST([REPLACE_NANOSLEEP])
REPLACE_STRFTIME=GNULIB_PORTCHECK; AC_SUBST([REPLACE_STRFTIME])
+ REPLACE_TIME=0; AC_SUBST([REPLACE_TIME])
REPLACE_TIMEGM=GNULIB_PORTCHECK; AC_SUBST([REPLACE_TIMEGM])
REPLACE_TIMESPEC_GET=GNULIB_PORTCHECK; AC_SUBST([REPLACE_TIMESPEC_GET])
REPLACE_TZSET=GNULIB_PORTCHECK; AC_SUBST([REPLACE_TZSET])
diff --git a/m4/xattr.m4 b/m4/xattr.m4
index 0e179cc0d1d..70bf0db4419 100644
--- a/m4/xattr.m4
+++ b/m4/xattr.m4
@@ -1,5 +1,5 @@
# xattr.m4 - check for Extended Attributes (Linux)
-# serial 6
+# serial 7
# Copyright (C) 2003-2023 Free Software Foundation, Inc.
# This file is free software; the Free Software Foundation
@@ -9,7 +9,7 @@
AC_DEFUN([gl_FUNC_XATTR],
[
AC_ARG_ENABLE([xattr],
- AS_HELP_STRING([--disable-xattr],
+ AS_HELP_STRING([[--disable-xattr]],
[do not support extended attributes]),
[use_xattr=$enableval], [use_xattr=yes])
diff --git a/nt/mingw-cfg.site b/nt/mingw-cfg.site
index 425eaace30d..9962cc46642 100644
--- a/nt/mingw-cfg.site
+++ b/nt/mingw-cfg.site
@@ -124,7 +124,7 @@ gl_cv_func_pthread_sigmask_return_works=yes
gl_cv_func_pthread_sigmask_unblock_works="not relevant"
gl_cv_func_pthread_sigmask_macro=no
# Implemented in w32proc.c
-emacs_cv_langinfo_codeset=yes
+am_cv_langinfo_codeset=yes
emacs_cv_langinfo__nl_paper_width=yes
# Declared in ms-w32.h
ac_cv_have_decl_alarm=yes
diff --git a/src/alloc.c b/src/alloc.c
index 9969ace5fef..773bc03fffa 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -400,7 +400,7 @@ static ptrdiff_t pure_bytes_used_non_lisp;
/* If positive, garbage collection is inhibited. Otherwise, zero. */
-static intptr_t garbage_collection_inhibited;
+intptr_t garbage_collection_inhibited;
/* The GC threshold in bytes, the last time it was calculated
from gc-cons-threshold and gc-cons-percentage. */
@@ -865,7 +865,7 @@ xnmalloc (ptrdiff_t nitems, ptrdiff_t item_size)
{
eassert (0 <= nitems && 0 < item_size);
ptrdiff_t nbytes;
- if (INT_MULTIPLY_WRAPV (nitems, item_size, &nbytes) || SIZE_MAX < nbytes)
+ if (ckd_mul (&nbytes, nitems, item_size) || SIZE_MAX < nbytes)
memory_full (SIZE_MAX);
return xmalloc (nbytes);
}
@@ -879,7 +879,7 @@ xnrealloc (void *pa, ptrdiff_t nitems, ptrdiff_t item_size)
{
eassert (0 <= nitems && 0 < item_size);
ptrdiff_t nbytes;
- if (INT_MULTIPLY_WRAPV (nitems, item_size, &nbytes) || SIZE_MAX < nbytes)
+ if (ckd_mul (&nbytes, nitems, item_size) || SIZE_MAX < nbytes)
memory_full (SIZE_MAX);
return xrealloc (pa, nbytes);
}
@@ -926,13 +926,13 @@ xpalloc (void *pa, ptrdiff_t *nitems, ptrdiff_t
nitems_incr_min,
NITEMS_MAX, and what the C language can represent safely. */
ptrdiff_t n, nbytes;
- if (INT_ADD_WRAPV (n0, n0 >> 1, &n))
+ if (ckd_add (&n, n0, n0 >> 1))
n = PTRDIFF_MAX;
if (0 <= nitems_max && nitems_max < n)
n = nitems_max;
ptrdiff_t adjusted_nbytes
- = ((INT_MULTIPLY_WRAPV (n, item_size, &nbytes) || SIZE_MAX < nbytes)
+ = ((ckd_mul (&nbytes, n, item_size) || SIZE_MAX < nbytes)
? min (PTRDIFF_MAX, SIZE_MAX)
: nbytes < DEFAULT_MXFAST ? DEFAULT_MXFAST : 0);
if (adjusted_nbytes)
@@ -944,9 +944,9 @@ xpalloc (void *pa, ptrdiff_t *nitems, ptrdiff_t
nitems_incr_min,
if (! pa)
*nitems = 0;
if (n - n0 < nitems_incr_min
- && (INT_ADD_WRAPV (n0, nitems_incr_min, &n)
+ && (ckd_add (&n, n0, nitems_incr_min)
|| (0 <= nitems_max && nitems_max < n)
- || INT_MULTIPLY_WRAPV (n, item_size, &nbytes)))
+ || ckd_mul (&nbytes, n, item_size)))
memory_full (SIZE_MAX);
pa = xrealloc (pa, nbytes);
*nitems = n;
@@ -2381,7 +2381,7 @@ a multibyte string even if INIT is an ASCII character.
*/)
ptrdiff_t len = CHAR_STRING (c, str);
EMACS_INT string_len = XFIXNUM (length);
- if (INT_MULTIPLY_WRAPV (len, string_len, &nbytes))
+ if (ckd_mul (&nbytes, len, string_len))
string_overflow ();
val = make_clear_multibyte_string (string_len, nbytes, clearit);
if (!clearit)
@@ -5312,7 +5312,7 @@ mark_memory (void const *start, void const *end)
a Lisp_Object might be split into registers saved into
non-adjacent words and P might be the low-order word's value. */
intptr_t ip;
- INT_ADD_WRAPV ((intptr_t) p, (intptr_t) lispsym, &ip);
+ ckd_add (&ip, (intptr_t) p, (intptr_t) lispsym);
mark_maybe_pointer ((void *) ip, true);
}
}
@@ -5424,15 +5424,6 @@ typedef union
#endif
} stacktop_sentry;
-/* Yield an address close enough to the top of the stack that the
- garbage collector need not scan above it. Callers should be
- declared NO_INLINE. */
-#ifdef HAVE___BUILTIN_FRAME_ADDRESS
-# define NEAR_STACK_TOP(addr) ((void) (addr), __builtin_frame_address (0))
-#else
-# define NEAR_STACK_TOP(addr) (addr)
-#endif
-
/* Set *P to the address of the top of the stack. This must be a
macro, not a function, so that it is executed in the caller's
environment. It is not inside a do-while so that its storage
diff --git a/src/bignum.c b/src/bignum.c
index e64653b2873..22ed171533f 100644
--- a/src/bignum.c
+++ b/src/bignum.c
@@ -354,7 +354,7 @@ emacs_mpz_pow_ui (mpz_t rop, mpz_t const base, unsigned
long exp)
enum { lim = min (NLIMBS_LIMIT, GMP_NLIMBS_MAX - pow_ui_extra_limbs) };
int nbase = emacs_mpz_size (base), n;
- if (INT_MULTIPLY_WRAPV (nbase, exp, &n) || lim < n)
+ if (ckd_mul (&n, nbase, exp) || lim < n)
overflow_error ();
mpz_pow_ui (rop, base, exp);
}
diff --git a/src/buffer.c b/src/buffer.c
index df1f5206668..0c46b201586 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -50,6 +50,14 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include "w32heap.h" /* for mmap_* */
#endif
+/* Work around GCC bug 109847
+ https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109847
+ which causes GCC to mistakenly complain about
+ AUTO_STRING with "*scratch*". */
+#if GNUC_PREREQ (13, 0, 0)
+# pragma GCC diagnostic ignored "-Wanalyzer-out-of-bounds"
+#endif
+
/* This structure holds the default values of the buffer-local variables
defined with DEFVAR_PER_BUFFER, that have special slots in each buffer.
The default value occupies the same slot in this structure
@@ -1307,7 +1315,7 @@ buffer_local_value (Lisp_Object variable, Lisp_Object
buffer)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: result = SYMBOL_VAL (sym); break;
case SYMBOL_LOCALIZED:
{ /* Look in local_var_alist. */
@@ -2386,6 +2394,7 @@ Any narrowing restriction in effect (see
`narrow-to-region') is removed,
so the buffer is truly empty after this. */)
(void)
{
+ labeled_restrictions_remove_in_current_buffer ();
Fwiden ();
del_range (BEG, Z);
@@ -3334,7 +3343,7 @@ record_overlay_string (struct sortstrlist *ssl,
Lisp_Object str,
else
nbytes = SBYTES (str);
- if (INT_ADD_WRAPV (ssl->bytes, nbytes, &nbytes))
+ if (ckd_add (&nbytes, nbytes, ssl->bytes))
memory_full (SIZE_MAX);
ssl->bytes = nbytes;
@@ -3348,7 +3357,7 @@ record_overlay_string (struct sortstrlist *ssl,
Lisp_Object str,
else
nbytes = SBYTES (str2);
- if (INT_ADD_WRAPV (ssl->bytes, nbytes, &nbytes))
+ if (ckd_add (&nbytes, nbytes, ssl->bytes))
memory_full (SIZE_MAX);
ssl->bytes = nbytes;
}
@@ -3420,7 +3429,7 @@ overlay_strings (ptrdiff_t pos, struct window *w,
unsigned char **pstr)
unsigned char *p;
ptrdiff_t total;
- if (INT_ADD_WRAPV (overlay_heads.bytes, overlay_tails.bytes, &total))
+ if (ckd_add (&total, overlay_heads.bytes, overlay_tails.bytes))
memory_full (SIZE_MAX);
if (total > overlay_str_len)
overlay_str_buf = xpalloc (overlay_str_buf, &overlay_str_len,
@@ -5124,33 +5133,38 @@ A list whose car is an integer is processed by
processing the cadr of
negative) to the width specified by that number.
A string is printed verbatim in the mode line except for %-constructs:
- %b -- print buffer name. %f -- print visited file name.
- %F -- print frame name.
- %* -- print %, * or hyphen. %+ -- print *, % or hyphen.
- %& is like %*, but ignore read-only-ness.
- % means buffer is read-only and * means it is modified.
- For a modified read-only buffer, %* gives % and %+ gives *.
- %s -- print process status. %l -- print the current line number.
+ %b -- print buffer name.
%c -- print the current column number (this makes editing slower).
Columns are numbered starting from the left margin, and the
leftmost column is displayed as zero.
To make the column number update correctly in all cases,
- `column-number-mode' must be non-nil.
+ `column-number-mode' must be non-nil.
%C -- Like %c, but the leftmost column is displayed as one.
+ %e -- print error message about full memory.
+ %f -- print visited file name.
+ %F -- print frame name.
%i -- print the size of the buffer.
%I -- like %i, but use k, M, G, etc., to abbreviate.
+ %l -- print the current line number.
+ %n -- print Narrow if appropriate.
+ %o -- print percent of window travel through buffer, or Top, Bot or All.
%p -- print percent of buffer above top of window, or Top, Bot or All.
%P -- print percent of buffer above bottom of window, perhaps plus Top,
or print Bottom or All.
- %n -- print Narrow if appropriate.
- %t -- visited file is text or binary (if OS supports this distinction).
+ %q -- print percent of buffer above both the top and the bottom of the
+ window, separated by ‘-’, or ‘All’.
+ %s -- print process status.
%z -- print mnemonics of keyboard, terminal, and buffer coding systems.
%Z -- like %z, but including the end-of-line format.
- %e -- print error message about full memory.
- %@ -- print @ or hyphen. @ means that default-directory is on a
- remote machine.
- %[ -- print one [ for each recursive editing level. %] similar.
- %% -- print %. %- -- print infinitely many dashes.
+ %& -- print * if the buffer is modified, otherwise hyphen.
+ %+ -- print *, % or hyphen (modified, read-only, neither).
+ %* -- print %, * or hyphen (read-only, modified, neither).
+ For a modified read-only buffer, %+ prints * and %* prints %.
+ %@ -- print @ if default-directory is on a remote machine, else hyphen.
+ %[ -- print one [ for each recursive editing level.
+ %] -- print one ] for each recursive editing level.
+ %- -- print enough dashes to fill the mode line.
+ %% -- print %.
Decimal digits after the % specify field width to which to pad. */);
DEFVAR_PER_BUFFER ("major-mode", &BVAR (current_buffer, major_mode),
diff --git a/src/bytecode.c b/src/bytecode.c
index 74a94859aba..4207ff0b71f 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1327,7 +1327,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
Lisp_Object v1 = TOP;
intmax_t res;
if (FIXNUMP (v1) && FIXNUMP (v2)
- && !INT_MULTIPLY_WRAPV (XFIXNUM (v1), XFIXNUM (v2), &res)
+ && !ckd_mul (&res, XFIXNUM (v1), XFIXNUM (v2))
&& !FIXNUM_OVERFLOW_P (res))
TOP = make_fixnum (res);
else
diff --git a/src/callproc.c b/src/callproc.c
index 5e1e1a8cc0a..6f3d4fad9be 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1113,6 +1113,7 @@ usage: (call-process-region START END PROGRAM &optional
DELETE BUFFER DISPLAY &r
{
/* No need to save restrictions since we delete everything
anyway. */
+ labeled_restrictions_remove_in_current_buffer ();
Fwiden ();
del_range (BEG, Z);
}
diff --git a/src/casefiddle.c b/src/casefiddle.c
index 1a2b37350ec..0e3e5094301 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -283,8 +283,8 @@ do_casify_multibyte_string (struct casing_context *ctx,
Lisp_Object obj)
ptrdiff_t size = SCHARS (obj), n;
USE_SAFE_ALLOCA;
- if (INT_MULTIPLY_WRAPV (size, MAX_MULTIBYTE_LENGTH, &n)
- || INT_ADD_WRAPV (n, sizeof (struct casing_str_buf), &n))
+ if (ckd_mul (&n, size, MAX_MULTIBYTE_LENGTH)
+ || ckd_add (&n, n, sizeof (struct casing_str_buf)))
n = PTRDIFF_MAX;
unsigned char *dst = SAFE_ALLOCA (n);
unsigned char *dst_end = dst + n;
diff --git a/src/ccl.c b/src/ccl.c
index c33bb434afd..013d9960c0e 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -605,6 +605,14 @@ do \
} \
while (0)
+/* Work around GCC bug 109579
+ https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109579
+ which causes GCC to mistakenly complain about
+ popping the mapping stack. */
+#if GNUC_PREREQ (13, 0, 0)
+# pragma GCC diagnostic ignored "-Wanalyzer-out-of-bounds"
+#endif
+
#define POP_MAPPING_STACK(restlen, orig) \
do \
{ \
@@ -1148,9 +1156,9 @@ ccl_driver (struct ccl_program *ccl, int *source, int
*destination, int src_size
ccl_expr_self:
switch (op)
{
- case CCL_PLUS: INT_ADD_WRAPV (reg[rrr], i, ®[rrr]); break;
- case CCL_MINUS: INT_SUBTRACT_WRAPV (reg[rrr], i, ®[rrr]); break;
- case CCL_MUL: INT_MULTIPLY_WRAPV (reg[rrr], i, ®[rrr]); break;
+ case CCL_PLUS: ckd_add (®[rrr], reg[rrr], i); break;
+ case CCL_MINUS: ckd_sub (®[rrr], reg[rrr], i); break;
+ case CCL_MUL: ckd_mul (®[rrr], reg[rrr], i); break;
case CCL_DIV:
if (!i)
CCL_INVALID_CMD;
@@ -1186,7 +1194,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int
*destination, int src_size
if (i == -1)
{
reg[7] = 0;
- INT_SUBTRACT_WRAPV (0, reg[rrr], ®[rrr]);
+ ckd_sub (®[rrr], 0, reg[rrr]);
}
else
{
@@ -1243,9 +1251,9 @@ ccl_driver (struct ccl_program *ccl, int *source, int
*destination, int src_size
ccl_set_expr:
switch (op)
{
- case CCL_PLUS: INT_ADD_WRAPV (i, j, ®[rrr]); break;
- case CCL_MINUS: INT_SUBTRACT_WRAPV (i, j, ®[rrr]); break;
- case CCL_MUL: INT_MULTIPLY_WRAPV (i, j, ®[rrr]); break;
+ case CCL_PLUS: ckd_add (®[rrr], i, j); break;
+ case CCL_MINUS: ckd_sub (®[rrr], i, j); break;
+ case CCL_MUL: ckd_mul (®[rrr], i, j); break;
case CCL_DIV:
if (!j)
CCL_INVALID_CMD;
@@ -1280,7 +1288,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int
*destination, int src_size
CCL_INVALID_CMD;
if (j == -1)
{
- INT_SUBTRACT_WRAPV (0, reg[rrr], ®[rrr]);
+ ckd_sub (®[rrr], 0, reg[rrr]);
reg[7] = 0;
}
else
@@ -2161,8 +2169,8 @@ usage: (ccl-execute-on-string CCL-PROGRAM STATUS STRING
&optional CONTINUE UNIBY
buf_magnification = ccl.buf_magnification ? ccl.buf_magnification : 1;
outbufsize = str_bytes;
- if (INT_MULTIPLY_WRAPV (buf_magnification, outbufsize, &outbufsize)
- || INT_ADD_WRAPV (256, outbufsize, &outbufsize))
+ if (ckd_mul (&outbufsize, outbufsize, buf_magnification)
+ || ckd_add (&outbufsize, outbufsize, 256))
memory_full (SIZE_MAX);
outp = outbuf = xmalloc (outbufsize);
diff --git a/src/character.c b/src/character.c
index d0b18367a83..ae153a579d6 100644
--- a/src/character.c
+++ b/src/character.c
@@ -250,7 +250,7 @@ char_width (int c, struct Lisp_Char_Table *dp)
if (c >= 0)
{
int w = CHARACTER_WIDTH (c);
- if (INT_ADD_WRAPV (width, w, &width))
+ if (ckd_add (&width, width, w))
string_overflow ();
}
}
@@ -301,7 +301,7 @@ c_string_width (const unsigned char *str, ptrdiff_t len,
int precision,
*nbytes = i_byte;
return width;
}
- if (INT_ADD_WRAPV (thiswidth, width, &width))
+ if (ckd_add (&width, width, thiswidth))
string_overflow ();
i++;
i_byte += bytes;
@@ -441,7 +441,7 @@ lisp_string_width (Lisp_Object string, ptrdiff_t from,
ptrdiff_t to,
*nbytes = i_byte - from_byte;
return width;
}
- if (INT_ADD_WRAPV (thiswidth, width, &width))
+ if (ckd_add (&width, width, thiswidth))
string_overflow ();
i += chars;
i_byte += bytes;
@@ -664,7 +664,7 @@ count_size_as_multibyte (const unsigned char *str,
ptrdiff_t len)
for (ptrdiff_t i = 0; i < len; i++)
nonascii += str[i] >> 7;
ptrdiff_t bytes;
- if (INT_ADD_WRAPV (len, nonascii, &bytes))
+ if (ckd_add (&bytes, len, nonascii))
string_overflow ();
return bytes;
}
@@ -780,21 +780,21 @@ string_escape_byte8 (Lisp_Object string)
if (byte8_count == 0)
return string;
- if (INT_MULTIPLY_WRAPV (byte8_count, 3, &thrice_byte8_count))
+ if (ckd_mul (&thrice_byte8_count, byte8_count, 3))
string_overflow ();
if (multibyte)
{
/* Convert 2-byte sequence of byte8 chars to 4-byte octal. */
- if (INT_ADD_WRAPV (nchars, thrice_byte8_count, &uninit_nchars)
- || INT_ADD_WRAPV (nbytes, 2 * byte8_count, &uninit_nbytes))
+ if (ckd_add (&uninit_nchars, nchars, thrice_byte8_count)
+ || ckd_add (&uninit_nbytes, nbytes, 2 * byte8_count))
string_overflow ();
val = make_uninit_multibyte_string (uninit_nchars, uninit_nbytes);
}
else
{
/* Convert 1-byte sequence of byte8 chars to 4-byte octal. */
- if (INT_ADD_WRAPV (thrice_byte8_count, nbytes, &uninit_nbytes))
+ if (ckd_add (&uninit_nbytes, thrice_byte8_count, nbytes))
string_overflow ();
val = make_uninit_string (uninit_nbytes);
}
diff --git a/src/cmds.c b/src/cmds.c
index 15caa4a6972..37e1779296a 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -453,7 +453,7 @@ internal_self_insert (int c, EMACS_INT n)
}
ptrdiff_t to;
- if (INT_ADD_WRAPV (PT, chars_to_delete, &to))
+ if (ckd_add (&to, PT, chars_to_delete))
to = PTRDIFF_MAX;
replace_range (PT, to, string, 1, 1, 1, 0, false);
Fforward_char (make_fixnum (n));
diff --git a/src/coding.c b/src/coding.c
index a2e0d7040f8..f014749c4ea 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -989,7 +989,7 @@ static void
coding_alloc_by_realloc (struct coding_system *coding, ptrdiff_t bytes)
{
ptrdiff_t newbytes;
- if (INT_ADD_WRAPV (coding->dst_bytes, bytes, &newbytes)
+ if (ckd_add (&newbytes, coding->dst_bytes, bytes)
|| SIZE_MAX < newbytes)
string_overflow ();
coding->destination = xrealloc (coding->destination, newbytes);
@@ -7059,9 +7059,8 @@ produce_chars (struct coding_system *coding, Lisp_Object
translation_table,
{
eassert (growable_destination (coding));
ptrdiff_t dst_size;
- if (INT_MULTIPLY_WRAPV (to_nchars, MAX_MULTIBYTE_LENGTH,
- &dst_size)
- || INT_ADD_WRAPV (buf_end - buf, dst_size, &dst_size))
+ if (ckd_mul (&dst_size, to_nchars, MAX_MULTIBYTE_LENGTH)
+ || ckd_add (&dst_size, dst_size, buf_end - buf))
memory_full (SIZE_MAX);
dst = alloc_destination (coding, dst_size, dst);
if (EQ (coding->src_object, coding->dst_object))
diff --git a/src/comp.c b/src/comp.c
index 89708fa8f68..dadd5255b72 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -8677,6 +8677,14 @@ For internal use. */);
Vcomp_loaded_comp_units_h =
CALLN (Fmake_hash_table, QCweakness, Qvalue, QCtest, Qequal);
+ DEFVAR_LISP ("comp-subr-arities-h", Vcomp_subr_arities_h,
+ doc: /* Hash table recording the arity of Lisp primitives.
+This is in case they are redefined so the compiler still knows how to
+compile calls to them.
+subr-name -> arity
+For internal use. */);
+ Vcomp_subr_arities_h = CALLN (Fmake_hash_table, QCtest, Qequal);
+
Fprovide (intern_c_string ("native-compile"), Qnil);
#endif /* #ifdef HAVE_NATIVE_COMP */
diff --git a/src/composite.c b/src/composite.c
index 164eeb39598..9332c1cb9a3 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -1040,7 +1040,9 @@ inhibit_auto_composition (void)
composition closest to CHARPOS is found, set cmp_it->stop_pos to
the last character of the composition. STRING, if non-nil, is
the string (as opposed to a buffer) whose characters should be
- tested for being composable.
+ tested for being composable. INCLUDE_STATIC non-zero means
+ consider both static and automatic compositions; if zero, look
+ only for potential automatic compositions.
If no composition is found, set cmp_it->ch to -2. If a static
composition is found, set cmp_it->ch to -1. Otherwise, set
@@ -1050,7 +1052,7 @@ inhibit_auto_composition (void)
void
composition_compute_stop_pos (struct composition_it *cmp_it, ptrdiff_t charpos,
ptrdiff_t bytepos, ptrdiff_t endpos,
- Lisp_Object string)
+ Lisp_Object string, bool include_static)
{
ptrdiff_t start, end;
int c;
@@ -1075,7 +1077,7 @@ composition_compute_stop_pos (struct composition_it
*cmp_it, ptrdiff_t charpos,
with long lines, however, NL might be far away, so
pretend that the buffer is smaller. */
if (current_buffer->long_line_optimizations_p)
- endpos = get_closer_narrowed_begv (cmp_it->parent_it->w, charpos);
+ endpos = get_small_narrowing_begv (cmp_it->parent_it->w, charpos);
}
}
cmp_it->id = -1;
@@ -1084,8 +1086,10 @@ composition_compute_stop_pos (struct composition_it
*cmp_it, ptrdiff_t charpos,
cmp_it->stop_pos = endpos;
if (charpos == endpos)
return;
+ /* Look for static compositions. */
/* FIXME: Bidi is not yet handled well in static composition. */
- if (charpos < endpos
+ if (include_static
+ && charpos < endpos
&& find_composition (charpos, endpos, &start, &end, &prop, string)
&& start >= charpos
&& composition_valid_p (start, end, prop))
@@ -1106,6 +1110,7 @@ composition_compute_stop_pos (struct composition_it
*cmp_it, ptrdiff_t charpos,
bytepos = string_char_to_byte (string, charpos);
}
+ /* Look for automatic compositions. */
start = charpos;
if (charpos < endpos)
{
@@ -1285,7 +1290,8 @@ composition_reseat_it (struct composition_it *cmp_it,
ptrdiff_t charpos,
{
if (cmp_it->ch == -2)
{
- composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string);
+ composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string,
+ true);
if (cmp_it->ch == -2 || cmp_it->stop_pos != charpos)
/* The current position is not composed. */
return 0;
@@ -1424,7 +1430,7 @@ composition_reseat_it (struct composition_it *cmp_it,
ptrdiff_t charpos,
}
if (cmp_it->reversed_p)
endpos = -1;
- composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string);
+ composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string,
true);
return 0;
}
@@ -1654,7 +1660,7 @@ find_automatic_composition (ptrdiff_t pos, ptrdiff_t
limit, ptrdiff_t backlim,
{
/* In buffers with very long lines, this function becomes very
slow. Pretend that the buffer is narrowed to make it fast. */
- ptrdiff_t begv = get_closer_narrowed_begv (w, window_point (w));
+ ptrdiff_t begv = get_small_narrowing_begv (w, window_point (w));
if (pos > begv)
head = begv;
}
diff --git a/src/composite.h b/src/composite.h
index e81465d90cc..0f791c1ea62 100644
--- a/src/composite.h
+++ b/src/composite.h
@@ -348,7 +348,7 @@ extern bool find_automatic_composition (ptrdiff_t,
ptrdiff_t, ptrdiff_t,
extern void composition_compute_stop_pos (struct composition_it *,
ptrdiff_t, ptrdiff_t, ptrdiff_t,
- Lisp_Object);
+ Lisp_Object, bool);
extern bool composition_reseat_it (struct composition_it *, ptrdiff_t,
ptrdiff_t, ptrdiff_t, struct window *,
signed char, struct face *, Lisp_Object);
diff --git a/src/data.c b/src/data.c
index d2f4d40d7bc..9d7e7effdcd 100644
--- a/src/data.c
+++ b/src/data.c
@@ -683,7 +683,7 @@ global value outside of any lexical scope. */)
switch (sym->u.s.redirect)
{
case SYMBOL_PLAINVAL: valcontents = SYMBOL_VAL (sym); break;
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_LOCALIZED:
{
struct Lisp_Buffer_Local_Value *blv = SYMBOL_BLV (sym);
@@ -773,7 +773,10 @@ DEFUN ("symbol-plist", Fsymbol_plist, Ssymbol_plist, 1, 1,
0,
}
DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0,
- doc: /* Return SYMBOL's name, a string. */)
+ doc: /* Return SYMBOL's name, a string.
+
+Warning: never alter the string returned by `symbol-name'.
+Doing that might make Emacs dysfunctional, and might even crash Emacs. */)
(register Lisp_Object symbol)
{
register Lisp_Object name;
@@ -1246,51 +1249,20 @@ The value, if non-nil, is a list of mode name symbols.
*/)
Getting and Setting Values of Symbols
***********************************************************************/
-/* Return the symbol holding SYMBOL's value. Signal
- `cyclic-variable-indirection' if SYMBOL's chain of variable
- indirections contains a loop. */
-
-struct Lisp_Symbol *
-indirect_variable (struct Lisp_Symbol *symbol)
-{
- struct Lisp_Symbol *tortoise, *hare;
-
- hare = tortoise = symbol;
-
- while (hare->u.s.redirect == SYMBOL_VARALIAS)
- {
- hare = SYMBOL_ALIAS (hare);
- if (hare->u.s.redirect != SYMBOL_VARALIAS)
- break;
-
- hare = SYMBOL_ALIAS (hare);
- tortoise = SYMBOL_ALIAS (tortoise);
-
- if (hare == tortoise)
- {
- Lisp_Object tem;
- XSETSYMBOL (tem, symbol);
- xsignal1 (Qcyclic_variable_indirection, tem);
- }
- }
-
- return hare;
-}
-
-
DEFUN ("indirect-variable", Findirect_variable, Sindirect_variable, 1, 1, 0,
doc: /* Return the variable at the end of OBJECT's variable chain.
If OBJECT is a symbol, follow its variable indirections (if any), and
return the variable at the end of the chain of aliases. See Info node
`(elisp)Variable Aliases'.
-If OBJECT is not a symbol, just return it. If there is a loop in the
-chain of aliases, signal a `cyclic-variable-indirection' error. */)
+If OBJECT is not a symbol, just return it. */)
(Lisp_Object object)
{
if (SYMBOLP (object))
{
- struct Lisp_Symbol *sym = indirect_variable (XSYMBOL (object));
+ struct Lisp_Symbol *sym = XSYMBOL (object);
+ while (sym->u.s.redirect == SYMBOL_VARALIAS)
+ sym = SYMBOL_ALIAS (sym);
XSETSYMBOL (object, sym);
}
return object;
@@ -1579,7 +1551,7 @@ find_symbol_value (Lisp_Object symbol)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: return SYMBOL_VAL (sym);
case SYMBOL_LOCALIZED:
{
@@ -1668,7 +1640,7 @@ set_internal (Lisp_Object symbol, Lisp_Object newval,
Lisp_Object where,
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: SET_SYMBOL_VAL (sym , newval); return;
case SYMBOL_LOCALIZED:
{
@@ -1922,7 +1894,7 @@ default_value (Lisp_Object symbol)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: return SYMBOL_VAL (sym);
case SYMBOL_LOCALIZED:
{
@@ -2016,7 +1988,7 @@ set_default_internal (Lisp_Object symbol, Lisp_Object
value,
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: set_internal (symbol, value, Qnil, bindflag); return;
case SYMBOL_LOCALIZED:
{
@@ -2154,7 +2126,7 @@ See also `defvar-local'. */)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL:
forwarded = 0; valcontents.value = SYMBOL_VAL (sym);
if (BASE_EQ (valcontents.value, Qunbound))
@@ -2222,7 +2194,7 @@ Instead, use `add-hook' and specify t for the LOCAL
argument. */)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL:
forwarded = 0; valcontents.value = SYMBOL_VAL (sym); break;
case SYMBOL_LOCALIZED:
@@ -2308,7 +2280,7 @@ From now on the default value will apply in this buffer.
Return VARIABLE. */)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: return variable;
case SYMBOL_FORWARDED:
{
@@ -2375,7 +2347,7 @@ Also see `buffer-local-boundp'.*/)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: return Qnil;
case SYMBOL_LOCALIZED:
{
@@ -2425,7 +2397,7 @@ value in BUFFER, or if VARIABLE is automatically
buffer-local (see
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: return Qnil;
case SYMBOL_LOCALIZED:
{
@@ -2460,7 +2432,7 @@ If the current binding is global (the default), the value
is nil. */)
start:
switch (sym->u.s.redirect)
{
- case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
+ case SYMBOL_VARALIAS: sym = SYMBOL_ALIAS (sym); goto start;
case SYMBOL_PLAINVAL: return Qnil;
case SYMBOL_FORWARDED:
{
@@ -3218,9 +3190,9 @@ arith_driver (enum arithop code, ptrdiff_t nargs,
Lisp_Object *args,
intmax_t a;
switch (code)
{
- case Aadd : overflow = INT_ADD_WRAPV (accum, next, &a); break;
- case Amult: overflow = INT_MULTIPLY_WRAPV (accum, next, &a); break;
- case Asub : overflow = INT_SUBTRACT_WRAPV (accum, next, &a); break;
+ case Aadd : overflow = ckd_add (&a, accum, next); break;
+ case Amult: overflow = ckd_mul (&a, accum, next); break;
+ case Asub : overflow = ckd_sub (&a, accum, next); break;
case Adiv:
if (next == 0)
xsignal0 (Qarith_error);
@@ -4214,10 +4186,11 @@ syms_of_data (void)
Fput (Qrecursion_error, Qerror_message, build_pure_c_string
("Excessive recursive calling error"));
- PUT_ERROR (Qexcessive_variable_binding, recursion_tail,
- "Variable binding depth exceeds max-specpdl-size");
PUT_ERROR (Qexcessive_lisp_nesting, recursion_tail,
"Lisp nesting exceeds `max-lisp-eval-depth'");
+ /* Error obsolete (from 29.1), kept for compatibility. */
+ PUT_ERROR (Qexcessive_variable_binding, recursion_tail,
+ "Variable binding depth exceeds max-specpdl-size");
/* Types that type-of returns. */
DEFSYM (Qinteger, "integer");
diff --git a/src/dispextern.h b/src/dispextern.h
index 4dcab113ea2..ece128949f5 100644
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -2334,21 +2334,20 @@ struct it
with which display_string was called. */
ptrdiff_t end_charpos;
- /* Alternate begin position of the buffer that may be used to
- optimize display (see the SET_WITH_NARROWED_BEGV macro). */
- ptrdiff_t narrowed_begv;
-
- /* Alternate end position of the buffer that may be used to
- optimize display. */
- ptrdiff_t narrowed_zv;
-
- /* Begin position of the buffer for the locked narrowing around
- low-level hooks. */
- ptrdiff_t locked_narrowing_begv;
-
- /* End position of the buffer for the locked narrowing around
- low-level hooks. */
- ptrdiff_t locked_narrowing_zv;
+ /* Alternate begin and end positions of the buffer that are used to
+ optimize display of buffers with long lines. These two fields
+ hold the return value of the 'get_medium_narrowing_begv' and
+ 'get_medium_narrowing_zv' functions. */
+ ptrdiff_t medium_narrowing_begv;
+ ptrdiff_t medium_narrowing_zv;
+
+ /* Alternate begin and end positions of the buffer that are used for
+ labeled narrowings around low-level hooks in buffers with long
+ lines. These two fields hold the return value of the
+ 'get_large_narrowing_begv' and 'get_large_narrowing_zv'
+ functions. */
+ ptrdiff_t large_narrowing_begv;
+ ptrdiff_t large_narrowing_zv;
/* C string to iterate over. Non-null means get characters from
this string, otherwise characters are read from current_buffer
@@ -3410,11 +3409,9 @@ void mark_window_display_accurate (Lisp_Object, bool);
void redisplay_preserve_echo_area (int);
void init_iterator (struct it *, struct window *, ptrdiff_t,
ptrdiff_t, struct glyph_row *, enum face_id);
-ptrdiff_t get_narrowed_begv (struct window *, ptrdiff_t);
-ptrdiff_t get_narrowed_zv (struct window *, ptrdiff_t);
-ptrdiff_t get_closer_narrowed_begv (struct window *, ptrdiff_t);
-ptrdiff_t get_locked_narrowing_begv (ptrdiff_t);
-ptrdiff_t get_locked_narrowing_zv (ptrdiff_t);
+ptrdiff_t get_small_narrowing_begv (struct window *, ptrdiff_t);
+ptrdiff_t get_large_narrowing_begv (ptrdiff_t);
+ptrdiff_t get_large_narrowing_zv (ptrdiff_t);
void init_iterator_to_row_start (struct it *, struct window *,
struct glyph_row *);
void start_display (struct it *, struct window *, struct text_pos);
diff --git a/src/dispnew.c b/src/dispnew.c
index 43306043a0c..9133d515ca3 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -1385,7 +1385,7 @@ realloc_glyph_pool (struct glyph_pool *pool, struct dim
matrix_dim)
|| matrix_dim.width != pool->ncolumns);
/* Enlarge the glyph pool. */
- if (INT_MULTIPLY_WRAPV (matrix_dim.height, matrix_dim.width, &needed))
+ if (ckd_mul (&needed, matrix_dim.height, matrix_dim.width))
memory_full (SIZE_MAX);
if (needed > pool->nglyphs)
{
@@ -2212,10 +2212,16 @@ adjust_frame_glyphs_for_window_redisplay (struct frame
*f)
w->pixel_left = 0;
w->left_col = 0;
- w->pixel_top = FRAME_MENU_BAR_HEIGHT (f)
- + (!NILP (Vtab_bar_position) ? FRAME_TOOL_BAR_HEIGHT (f) : 0);
- w->top_line = FRAME_MENU_BAR_LINES (f)
- + (!NILP (Vtab_bar_position) ? FRAME_TOOL_BAR_LINES (f) : 0);
+
+ /* Note that tab and tool bar windows appear above the internal
+ border, as enforced by WINDOW_TOP_EDGE_Y. */
+
+ w->pixel_top = (FRAME_MENU_BAR_HEIGHT (f)
+ + (!NILP (Vtab_bar_position)
+ ? FRAME_TOOL_BAR_HEIGHT (f) : 0));
+ w->top_line = (FRAME_MENU_BAR_LINES (f)
+ + (!NILP (Vtab_bar_position)
+ ? FRAME_TOOL_BAR_LINES (f) : 0));
w->total_cols = FRAME_TOTAL_COLS (f);
w->pixel_width = (FRAME_PIXEL_WIDTH (f)
- 2 * FRAME_INTERNAL_BORDER_WIDTH (f));
@@ -3748,6 +3754,14 @@ update_window (struct window *w, bool force_p)
}
}
+ /* If the window doesn't display its mode line, make sure the
+ corresponding row of the current glyph matrix is disabled, so
+ that if and when the mode line is displayed again, it will be
+ cleared and completely redrawn. */
+ if (!window_wants_mode_line (w))
+ SET_MATRIX_ROW_ENABLED_P (w->current_matrix,
+ w->current_matrix->nrows - 1, false);
+
/* Was display preempted? */
paused_p = row < end;
@@ -6639,8 +6653,8 @@ init_display_interactive (void)
change. It's not clear what better we could do. The rest of
the code assumes that (width + 2) * height * sizeof (struct glyph)
does not overflow and does not exceed PTRDIFF_MAX or SIZE_MAX. */
- if (INT_ADD_WRAPV (width, 2, &area)
- || INT_MULTIPLY_WRAPV (height, area, &area)
+ if (ckd_add (&area, width, 2)
+ || ckd_mul (&area, area, height)
|| min (PTRDIFF_MAX, SIZE_MAX) / sizeof (struct glyph) < area)
fatal ("screen size %dx%d too big", width, height);
}
diff --git a/src/doprnt.c b/src/doprnt.c
index 3ebb957e9f2..e8911fad252 100644
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -134,8 +134,8 @@ parse_format_integer (char const *fmt, int *value)
bool overflow = false;
for (; '0' <= *fmt && *fmt <= '9'; fmt++)
{
- overflow |= INT_MULTIPLY_WRAPV (n, 10, &n);
- overflow |= INT_ADD_WRAPV (n, *fmt - '0', &n);
+ overflow |= ckd_mul (&n, n, 10);
+ overflow |= ckd_add (&n, n, *fmt - '0');
}
if (overflow || min (PTRDIFF_MAX, SIZE_MAX) - SIZE_BOUND_EXTRA < n)
error ("Format width or precision too large");
diff --git a/src/editfns.c b/src/editfns.c
index f83c5c7259b..44e11841faa 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2027,8 +2027,8 @@ nil. */)
ptrdiff_t ins_bytes = size_b / CHAR_BIT + 1;
ptrdiff_t *buffer;
ptrdiff_t bytes_needed;
- if (INT_MULTIPLY_WRAPV (diags, 2 * sizeof *buffer, &bytes_needed)
- || INT_ADD_WRAPV (del_bytes + ins_bytes, bytes_needed, &bytes_needed))
+ if (ckd_mul (&bytes_needed, diags, 2 * sizeof *buffer)
+ || ckd_add (&bytes_needed, bytes_needed, del_bytes + ins_bytes))
memory_full (SIZE_MAX);
USE_SAFE_ALLOCA;
buffer = SAFE_ALLOCA (bytes_needed);
@@ -2653,182 +2653,203 @@ DEFUN ("delete-and-extract-region",
Fdelete_and_extract_region,
return del_range_1 (XFIXNUM (start), XFIXNUM (end), 1, 1);
}
-/* Alist of buffers in which locked narrowing is used. The car of
- each list element is a buffer, the cdr is a list of triplets (tag
- begv-marker zv-marker). The last element of that list always uses
- the (uninterned) Qoutermost_narrowing tag and records the narrowing
- bounds that were set by the user and that are visible on display.
- This alist is used internally by narrow-to-region, widen,
- internal--lock-narrowing, internal--unlock-narrowing and
- save-restriction. For efficiency reasons, an alist is used instead
- of a buffer-local variable: otherwise reset_outermost_narrowings,
- which is called during each redisplay cycle, would have to loop
- through all live buffers. */
-static Lisp_Object narrowing_locks;
-
-/* Add BUF with its LOCKS in the narrowing_locks alist. */
+/* Alist of buffers in which labeled restrictions are used. The car
+ of each list element is a buffer, the cdr is a list of triplets
+ (label begv-marker zv-marker). The last triplet of that list
+ always uses the (uninterned) Qoutermost_restriction label, and
+ records the restriction bounds that were current when the first
+ labeled restriction was entered (which may be a narrowing that was
+ set by the user and is visible on display). This alist is used
+ internally by narrow-to-region, widen, internal--label-restriction,
+ internal--unlabel-restriction and save-restriction. For efficiency
+ reasons, an alist is used instead of a buffer-local variable:
+ otherwise reset_outermost_restrictions, which is called during each
+ redisplay cycle, would have to loop through all live buffers. */
+static Lisp_Object labeled_restrictions;
+
+/* Add BUF with its list of labeled RESTRICTIONS in the
+ labeled_restrictions alist. */
static void
-narrowing_locks_add (Lisp_Object buf, Lisp_Object locks)
+labeled_restrictions_add (Lisp_Object buf, Lisp_Object restrictions)
{
- narrowing_locks = nconc2 (list1 (list2 (buf, locks)), narrowing_locks);
+ labeled_restrictions = nconc2 (list1 (list2 (buf, restrictions)),
+ labeled_restrictions);
}
-/* Remove BUF and its locks from the narrowing_locks alist. Do
- nothing if BUF is not present in narrowing_locks. */
+/* Remove BUF and its list of labeled restrictions from the
+ labeled_restrictions alist. Do nothing if BUF is not present in
+ labeled_restrictions. */
static void
-narrowing_locks_remove (Lisp_Object buf)
+labeled_restrictions_remove (Lisp_Object buf)
{
- narrowing_locks = Fdelq (Fassoc (buf, narrowing_locks, Qnil),
- narrowing_locks);
+ labeled_restrictions = Fdelq (Fassoc (buf, labeled_restrictions, Qnil),
+ labeled_restrictions);
}
-/* Retrieve one of the BEGV/ZV bounds of a narrowing in BUF from the
- narrowing_locks alist, as a pointer to a struct Lisp_Marker, or
- NULL if BUF is not in narrowing_locks or is a killed buffer. When
- OUTERMOST is true, the bounds that were set by the user and that
- are visible on display are returned. Otherwise the innermost
- locked narrowing bounds are returned. */
-static struct Lisp_Marker *
-narrowing_lock_get_bound (Lisp_Object buf, bool begv, bool outermost)
+/* Retrieve one of the labeled restriction bounds in BUF from the
+ labeled_restrictions alist, as a marker, or return nil if BUF is
+ not in labeled_restrictions or is a killed buffer. When OUTERMOST
+ is true, the restriction bounds that were current when the first
+ labeled restriction was entered are returned. Otherwise the bounds
+ of the innermost labeled restriction are returned. */
+static Lisp_Object
+labeled_restrictions_get_bound (Lisp_Object buf, bool begv, bool outermost)
{
if (NILP (Fbuffer_live_p (buf)))
- return NULL;
- Lisp_Object buffer_locks = assq_no_quit (buf, narrowing_locks);
- if (NILP (buffer_locks))
- return NULL;
- buffer_locks = XCAR (XCDR (buffer_locks));
+ return Qnil;
+ Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions);
+ if (NILP (restrictions))
+ return Qnil;
+ restrictions = XCAR (XCDR (restrictions));
Lisp_Object bounds
= outermost
- ? XCDR (assq_no_quit (Qoutermost_narrowing, buffer_locks))
- : XCDR (XCAR (buffer_locks));
+ ? XCDR (assq_no_quit (Qoutermost_restriction, restrictions))
+ : XCDR (XCAR (restrictions));
eassert (! NILP (bounds));
Lisp_Object marker = begv ? XCAR (bounds) : XCAR (XCDR (bounds));
eassert (EQ (Fmarker_buffer (marker), buf));
- return XMARKER (marker);
+ return marker;
}
-/* Retrieve the tag of the innermost narrowing in BUF. Return nil if
- BUF is not in narrowing_locks or is a killed buffer. */
+/* Retrieve the label of the innermost labeled restriction in BUF.
+ Return nil if BUF is not in labeled_restrictions or is a killed
+ buffer. */
static Lisp_Object
-narrowing_lock_peek_tag (Lisp_Object buf)
+labeled_restrictions_peek_label (Lisp_Object buf)
{
if (NILP (Fbuffer_live_p (buf)))
return Qnil;
- Lisp_Object buffer_locks = assq_no_quit (buf, narrowing_locks);
- if (NILP (buffer_locks))
+ Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions);
+ if (NILP (restrictions))
return Qnil;
- Lisp_Object tag = XCAR (XCAR (XCAR (XCDR (buffer_locks))));
- eassert (! NILP (tag));
- return tag;
+ Lisp_Object label = XCAR (XCAR (XCAR (XCDR (restrictions))));
+ eassert (! NILP (label));
+ return label;
}
-/* Add a LOCK for BUF in the narrowing_locks alist. */
+/* Add a labeled RESTRICTION for BUF in the labeled_restrictions
+ alist. */
static void
-narrowing_lock_push (Lisp_Object buf, Lisp_Object lock)
+labeled_restrictions_push (Lisp_Object buf, Lisp_Object restriction)
{
- Lisp_Object buffer_locks = assq_no_quit (buf, narrowing_locks);
- if (NILP (buffer_locks))
- narrowing_locks_add (buf, list1 (lock));
+ Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions);
+ if (NILP (restrictions))
+ labeled_restrictions_add (buf, list1 (restriction));
else
- XSETCDR (buffer_locks, list1 (nconc2 (list1 (lock),
- XCAR (XCDR (buffer_locks)))));
+ XSETCDR (restrictions, list1 (nconc2 (list1 (restriction),
+ XCAR (XCDR (restrictions)))));
}
-/* Remove the innermost lock in BUF from the narrowing_locks alist.
- Do nothing if BUF is not present in narrowing_locks. */
+/* Remove the innermost labeled restriction in BUF from the
+ labeled_restrictions alist. Do nothing if BUF is not present in
+ labeled_restrictions. */
static void
-narrowing_lock_pop (Lisp_Object buf)
+labeled_restrictions_pop (Lisp_Object buf)
{
- Lisp_Object buffer_locks = assq_no_quit (buf, narrowing_locks);
- if (NILP (buffer_locks))
+ Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions);
+ if (NILP (restrictions))
return;
- if (EQ (narrowing_lock_peek_tag (buf), Qoutermost_narrowing))
- narrowing_locks_remove (buf);
+ if (EQ (labeled_restrictions_peek_label (buf), Qoutermost_restriction))
+ labeled_restrictions_remove (buf);
else
- XSETCDR (buffer_locks, list1 (XCDR (XCAR (XCDR (buffer_locks)))));
+ XSETCDR (restrictions, list1 (XCDR (XCAR (XCDR (restrictions)))));
+}
+
+/* Unconditionally remove all labeled restrictions in current_buffer. */
+void
+labeled_restrictions_remove_in_current_buffer (void)
+{
+ labeled_restrictions_remove (Fcurrent_buffer ());
}
static void
-unwind_reset_outermost_narrowing (Lisp_Object buf)
+unwind_reset_outermost_restriction (Lisp_Object buf)
{
- struct Lisp_Marker *begv = narrowing_lock_get_bound (buf, true, false);
- struct Lisp_Marker *zv = narrowing_lock_get_bound (buf, false, false);
- if (begv != NULL && zv != NULL)
+ Lisp_Object begv = labeled_restrictions_get_bound (buf, true, false);
+ Lisp_Object zv = labeled_restrictions_get_bound (buf, false, false);
+ if (! NILP (begv) && ! NILP (zv))
{
- SET_BUF_BEGV_BOTH (XBUFFER (buf), begv->charpos, begv->bytepos);
- SET_BUF_ZV_BOTH (XBUFFER (buf), zv->charpos, zv->bytepos);
+ SET_BUF_BEGV_BOTH (XBUFFER (buf),
+ marker_position (begv), marker_byte_position (begv));
+ SET_BUF_ZV_BOTH (XBUFFER (buf),
+ marker_position (zv), marker_byte_position (zv));
}
else
- narrowing_locks_remove (buf);
+ labeled_restrictions_remove (buf);
}
-/* Restore the narrowing bounds that were set by the user, and restore
- the bounds of the locked narrowing upon return.
+/* Restore the restriction bounds that were current when the first
+ labeled restriction was entered, and restore the bounds of the
+ innermost labeled restriction upon return.
In particular, this function is called when redisplay starts, so
that if a Lisp function executed during redisplay calls (redisplay)
- while a locked narrowing is in effect, the locked narrowing will
- not be visible on display.
+ while labeled restrictions are in effect, these restrictions will
+ not become visible on display.
See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=57207#140 and
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=57207#254 for example
recipes that demonstrate why this is necessary. */
void
-reset_outermost_narrowings (void)
+reset_outermost_restrictions (void)
{
Lisp_Object val, buf;
- for (val = narrowing_locks; CONSP (val); val = XCDR (val))
+ for (val = labeled_restrictions; CONSP (val); val = XCDR (val))
{
buf = XCAR (XCAR (val));
eassert (BUFFERP (buf));
- struct Lisp_Marker *begv = narrowing_lock_get_bound (buf, true, true);
- struct Lisp_Marker *zv = narrowing_lock_get_bound (buf, false, true);
- if (begv != NULL && zv != NULL)
+ Lisp_Object begv = labeled_restrictions_get_bound (buf, true, true);
+ Lisp_Object zv = labeled_restrictions_get_bound (buf, false, true);
+ if (! NILP (begv) && ! NILP (zv))
{
- SET_BUF_BEGV_BOTH (XBUFFER (buf), begv->charpos, begv->bytepos);
- SET_BUF_ZV_BOTH (XBUFFER (buf), zv->charpos, zv->bytepos);
- record_unwind_protect (unwind_reset_outermost_narrowing, buf);
+ SET_BUF_BEGV_BOTH (XBUFFER (buf),
+ marker_position (begv), marker_byte_position
(begv));
+ SET_BUF_ZV_BOTH (XBUFFER (buf),
+ marker_position (zv), marker_byte_position (zv));
+ record_unwind_protect (unwind_reset_outermost_restriction, buf);
}
else
- narrowing_locks_remove (buf);
+ labeled_restrictions_remove (buf);
}
}
-/* Helper functions to save and restore the narrowing locks of the
- current buffer in Fsave_restriction. */
+/* Helper functions to save and restore the labeled restrictions of
+ the current buffer in Fsave_restriction. */
static Lisp_Object
-narrowing_locks_save (void)
+labeled_restrictions_save (void)
{
Lisp_Object buf = Fcurrent_buffer ();
- Lisp_Object locks = assq_no_quit (buf, narrowing_locks);
- if (!NILP (locks))
- locks = XCAR (XCDR (locks));
- return Fcons (buf, Fcopy_sequence (locks));
+ Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions);
+ if (! NILP (restrictions))
+ restrictions = XCAR (XCDR (restrictions));
+ return Fcons (buf, Fcopy_sequence (restrictions));
}
static void
-narrowing_locks_restore (Lisp_Object buf_and_saved_locks)
+labeled_restrictions_restore (Lisp_Object buf_and_restrictions)
{
- Lisp_Object buf = XCAR (buf_and_saved_locks);
- Lisp_Object saved_locks = XCDR (buf_and_saved_locks);
- narrowing_locks_remove (buf);
- if (!NILP (saved_locks))
- narrowing_locks_add (buf, saved_locks);
+ Lisp_Object buf = XCAR (buf_and_restrictions);
+ Lisp_Object restrictions = XCDR (buf_and_restrictions);
+ labeled_restrictions_remove (buf);
+ if (! NILP (restrictions))
+ labeled_restrictions_add (buf, restrictions);
}
static void
-unwind_narrow_to_region_locked (Lisp_Object tag)
+unwind_labeled_narrow_to_region (Lisp_Object label)
{
- Finternal__unlock_narrowing (tag);
+ Finternal__unlabel_restriction (label);
Fwiden ();
}
-/* Narrow current_buffer to BEGV-ZV with a narrowing locked with TAG. */
+/* Narrow current_buffer to BEGV-ZV with a restriction labeled with
+ LABEL. */
void
-narrow_to_region_locked (Lisp_Object begv, Lisp_Object zv, Lisp_Object tag)
+labeled_narrow_to_region (Lisp_Object begv, Lisp_Object zv,
+ Lisp_Object label)
{
Fnarrow_to_region (begv, zv);
- Finternal__lock_narrowing (tag);
+ Finternal__label_restriction (label);
record_unwind_protect (restore_point_unwind, Fpoint_marker ());
- record_unwind_protect (unwind_narrow_to_region_locked, tag);
+ record_unwind_protect (unwind_labeled_narrow_to_region, label);
}
DEFUN ("widen", Fwiden, Swiden, 0, 0, "",
@@ -2842,11 +2863,11 @@ To gain access to other portions of the buffer, use
`without-restriction' with the same label. */)
(void)
{
- Fset (Qoutermost_narrowing, Qnil);
+ Fset (Qoutermost_restriction, Qnil);
Lisp_Object buf = Fcurrent_buffer ();
- Lisp_Object tag = narrowing_lock_peek_tag (buf);
+ Lisp_Object label = labeled_restrictions_peek_label (buf);
- if (NILP (tag))
+ if (NILP (label))
{
if (BEG != BEGV || Z != ZV)
current_buffer->clip_changed = 1;
@@ -2856,19 +2877,23 @@ To gain access to other portions of the buffer, use
}
else
{
- struct Lisp_Marker *begv = narrowing_lock_get_bound (buf, true, false);
- struct Lisp_Marker *zv = narrowing_lock_get_bound (buf, false, false);
- eassert (begv != NULL && zv != NULL);
- if (begv->charpos != BEGV || zv->charpos != ZV)
+ Lisp_Object begv = labeled_restrictions_get_bound (buf, true, false);
+ Lisp_Object zv = labeled_restrictions_get_bound (buf, false, false);
+ eassert (! NILP (begv) && ! NILP (zv));
+ ptrdiff_t begv_charpos = marker_position (begv);
+ ptrdiff_t zv_charpos = marker_position (zv);
+ if (begv_charpos != BEGV || zv_charpos != ZV)
current_buffer->clip_changed = 1;
- SET_BUF_BEGV_BOTH (current_buffer, begv->charpos, begv->bytepos);
- SET_BUF_ZV_BOTH (current_buffer, zv->charpos, zv->bytepos);
- /* If the only remaining bounds in narrowing_locks for
+ SET_BUF_BEGV_BOTH (current_buffer,
+ begv_charpos, marker_byte_position (begv));
+ SET_BUF_ZV_BOTH (current_buffer,
+ zv_charpos, marker_byte_position (zv));
+ /* If the only remaining bounds in labeled_restrictions for
current_buffer are the bounds that were set by the user, no
- locked narrowing is in effect in current_buffer anymore:
- remove it from the narrowing_locks alist. */
- if (EQ (tag, Qoutermost_narrowing))
- narrowing_lock_pop (buf);
+ labeled restriction is in effect in current_buffer anymore:
+ remove it from the labeled_restrictions alist. */
+ if (EQ (label, Qoutermost_restriction))
+ labeled_restrictions_pop (buf);
}
/* Changing the buffer bounds invalidates any recorded current column. */
invalidate_current_column ();
@@ -2905,25 +2930,27 @@ argument. To gain access to other portions of the
buffer, use
args_out_of_range (start, end);
Lisp_Object buf = Fcurrent_buffer ();
- if (! NILP (narrowing_lock_peek_tag (buf)))
+ if (! NILP (labeled_restrictions_peek_label (buf)))
{
- struct Lisp_Marker *begv = narrowing_lock_get_bound (buf, true, false);
- struct Lisp_Marker *zv = narrowing_lock_get_bound (buf, false, false);
- eassert (begv != NULL && zv != NULL);
- /* Limit the start and end positions to those of the locked
- narrowing. */
- if (s < begv->charpos) s = begv->charpos;
- if (s > zv->charpos) s = zv->charpos;
- if (e < begv->charpos) e = begv->charpos;
- if (e > zv->charpos) e = zv->charpos;
+ /* Limit the start and end positions to those of the innermost
+ labeled restriction. */
+ Lisp_Object begv = labeled_restrictions_get_bound (buf, true, false);
+ Lisp_Object zv = labeled_restrictions_get_bound (buf, false, false);
+ eassert (! NILP (begv) && ! NILP (zv));
+ ptrdiff_t begv_charpos = marker_position (begv);
+ ptrdiff_t zv_charpos = marker_position (zv);
+ if (s < begv_charpos) s = begv_charpos;
+ if (s > zv_charpos) s = zv_charpos;
+ if (e < begv_charpos) e = begv_charpos;
+ if (e > zv_charpos) e = zv_charpos;
}
/* Record the accessible range of the buffer when narrow-to-region
- is called, that is, before applying the narrowing. It is used
- only by internal--lock-narrowing. */
- Fset (Qoutermost_narrowing, list3 (Qoutermost_narrowing,
- Fpoint_min_marker (),
- Fpoint_max_marker ()));
+ is called, that is, before applying the narrowing. That
+ information is used only by internal--label-restriction. */
+ Fset (Qoutermost_restriction, list3 (Qoutermost_restriction,
+ Fpoint_min_marker (),
+ Fpoint_max_marker ()));
if (BEGV != s || ZV != e)
current_buffer->clip_changed = 1;
@@ -2940,38 +2967,38 @@ argument. To gain access to other portions of the
buffer, use
return Qnil;
}
-DEFUN ("internal--lock-narrowing", Finternal__lock_narrowing,
- Sinternal__lock_narrowing, 1, 1, 0,
- doc: /* Lock the current narrowing with LABEL.
+DEFUN ("internal--label-restriction", Finternal__label_restriction,
+ Sinternal__label_restriction, 1, 1, 0,
+ doc: /* Label the current restriction with LABEL.
This is an internal function used by `with-restriction'. */)
- (Lisp_Object tag)
+ (Lisp_Object label)
{
Lisp_Object buf = Fcurrent_buffer ();
- Lisp_Object outermost_narrowing
- = buffer_local_value (Qoutermost_narrowing, buf);
- /* If internal--lock-narrowing is ever called without being preceded
- by narrow-to-region, do nothing. */
- if (NILP (outermost_narrowing))
+ Lisp_Object outermost_restriction
+ = buffer_local_value (Qoutermost_restriction, buf);
+ /* If internal--label-restriction is ever called without being
+ preceded by narrow-to-region, do nothing. */
+ if (NILP (outermost_restriction))
return Qnil;
- if (NILP (narrowing_lock_peek_tag (buf)))
- narrowing_lock_push (buf, outermost_narrowing);
- narrowing_lock_push (buf, list3 (tag,
- Fpoint_min_marker (),
- Fpoint_max_marker ()));
+ if (NILP (labeled_restrictions_peek_label (buf)))
+ labeled_restrictions_push (buf, outermost_restriction);
+ labeled_restrictions_push (buf, list3 (label,
+ Fpoint_min_marker (),
+ Fpoint_max_marker ()));
return Qnil;
}
-DEFUN ("internal--unlock-narrowing", Finternal__unlock_narrowing,
- Sinternal__unlock_narrowing, 1, 1, 0,
- doc: /* Unlock a narrowing locked with LABEL.
+DEFUN ("internal--unlabel-restriction", Finternal__unlabel_restriction,
+ Sinternal__unlabel_restriction, 1, 1, 0,
+ doc: /* If the current restriction is labeled with LABEL, remove its
label.
This is an internal function used by `without-restriction'. */)
- (Lisp_Object tag)
+ (Lisp_Object label)
{
Lisp_Object buf = Fcurrent_buffer ();
- if (EQ (narrowing_lock_peek_tag (buf), tag))
- narrowing_lock_pop (buf);
+ if (EQ (labeled_restrictions_peek_label (buf), label))
+ labeled_restrictions_pop (buf);
return Qnil;
}
@@ -3071,15 +3098,15 @@ save_restriction_restore_1 (Lisp_Object data)
Lisp_Object
save_restriction_save (void)
{
- Lisp_Object restr = save_restriction_save_1 ();
- Lisp_Object locks = narrowing_locks_save ();
- return Fcons (restr, locks);
+ Lisp_Object restriction = save_restriction_save_1 ();
+ Lisp_Object labeled_restrictions = labeled_restrictions_save ();
+ return Fcons (restriction, labeled_restrictions);
}
void
save_restriction_restore (Lisp_Object data)
{
- narrowing_locks_restore (XCDR (data));
+ labeled_restrictions_restore (XCDR (data));
save_restriction_restore_1 (XCAR (data));
}
@@ -3269,7 +3296,7 @@ str2num (char *str, char **str_end)
{
ptrdiff_t n = 0;
for (; c_isdigit (*str); str++)
- if (INT_MULTIPLY_WRAPV (n, 10, &n) || INT_ADD_WRAPV (n, *str - '0', &n))
+ if (ckd_mul (&n, n, 10) || ckd_add (&n, n, *str - '0'))
n = PTRDIFF_MAX;
*str_end = str;
return n;
@@ -3437,8 +3464,8 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool
message)
/* Allocate the info and discarded tables. */
ptrdiff_t info_size, alloca_size;
- if (INT_MULTIPLY_WRAPV (nspec_bound, sizeof *info, &info_size)
- || INT_ADD_WRAPV (formatlen, info_size, &alloca_size)
+ if (ckd_mul (&info_size, nspec_bound, sizeof *info)
+ || ckd_add (&alloca_size, formatlen, info_size)
|| SIZE_MAX < alloca_size)
memory_full (SIZE_MAX);
info = SAFE_ALLOCA (alloca_size);
@@ -3985,8 +4012,8 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool
message)
/* Compute the total bytes needed for this item, including
excess precision and padding. */
ptrdiff_t numwidth;
- if (INT_ADD_WRAPV (prefixlen + sprintf_bytes, excess_precision,
- &numwidth))
+ if (ckd_add (&numwidth, prefixlen + sprintf_bytes,
+ excess_precision))
numwidth = PTRDIFF_MAX;
ptrdiff_t padding
= numwidth < field_width ? field_width - numwidth : 0;
@@ -4146,7 +4173,7 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool
message)
ptrdiff_t used = p - buf;
ptrdiff_t buflen_needed;
- if (INT_ADD_WRAPV (used, convbytes, &buflen_needed))
+ if (ckd_add (&buflen_needed, used, convbytes))
string_overflow ();
if (bufsize <= buflen_needed)
{
@@ -4748,7 +4775,7 @@ syms_of_editfns (void)
DEFSYM (Qwall, "wall");
DEFSYM (Qpropertize, "propertize");
- staticpro (&narrowing_locks);
+ staticpro (&labeled_restrictions);
DEFVAR_LISP ("inhibit-field-text-motion", Vinhibit_field_text_motion,
doc: /* Non-nil means text motion commands don't notice fields.
*/);
@@ -4809,12 +4836,12 @@ This variable is experimental; email
32252@debbugs.gnu.org if you need
it to be non-nil. */);
binary_as_unsigned = false;
- DEFVAR_LISP ("outermost-narrowing", Voutermost_narrowing,
+ DEFVAR_LISP ("outermost-restriction", Voutermost_restriction,
doc: /* Outermost narrowing bounds, if any. Internal use only.
*/);
- Voutermost_narrowing = Qnil;
- Fmake_variable_buffer_local (Qoutermost_narrowing);
- DEFSYM (Qoutermost_narrowing, "outermost-narrowing");
- Funintern (Qoutermost_narrowing, Qnil);
+ Voutermost_restriction = Qnil;
+ Fmake_variable_buffer_local (Qoutermost_restriction);
+ DEFSYM (Qoutermost_restriction, "outermost-restriction");
+ Funintern (Qoutermost_restriction, Qnil);
defsubr (&Spropertize);
defsubr (&Schar_equal);
@@ -4907,8 +4934,8 @@ it to be non-nil. */);
defsubr (&Sdelete_and_extract_region);
defsubr (&Swiden);
defsubr (&Snarrow_to_region);
- defsubr (&Sinternal__lock_narrowing);
- defsubr (&Sinternal__unlock_narrowing);
+ defsubr (&Sinternal__label_restriction);
+ defsubr (&Sinternal__unlabel_restriction);
defsubr (&Ssave_restriction);
defsubr (&Stranspose_regions);
}
diff --git a/src/emacs-module.c b/src/emacs-module.c
index d158e243139..10699ec25d9 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -416,7 +416,7 @@ module_global_reference_p (emacs_value v, ptrdiff_t *n)
}
/* Only used for debugging, so we don't care about overflow, just
make sure the operation is defined. */
- INT_ADD_WRAPV (*n, h->count, n);
+ ckd_add (n, *n, h->count);
return false;
}
@@ -435,7 +435,7 @@ module_make_global_ref (emacs_env *env, emacs_value value)
{
Lisp_Object value = HASH_VALUE (h, i);
struct module_global_reference *ref = XMODULE_GLOBAL_REFERENCE (value);
- bool overflow = INT_ADD_WRAPV (ref->refcount, 1, &ref->refcount);
+ bool overflow = ckd_add (&ref->refcount, ref->refcount, 1);
if (overflow)
overflow_error ();
return &ref->value;
@@ -662,7 +662,7 @@ module_funcall (emacs_env *env, emacs_value func, ptrdiff_t
nargs,
Lisp_Object *newargs;
USE_SAFE_ALLOCA;
ptrdiff_t nargs1;
- if (INT_ADD_WRAPV (nargs, 1, &nargs1))
+ if (ckd_add (&nargs1, nargs, 1))
overflow_error ();
SAFE_ALLOCA_LISP (newargs, nargs1);
newargs[0] = value_to_lisp (func);
diff --git a/src/emacs.c b/src/emacs.c
index 282e2f48100..80a013b68df 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1954,7 +1954,7 @@ Using an Emacs configured with --with-x-toolkit=lucid
does not have this problem
/* Do less garbage collection in batch mode (since these tend to be
more short-lived, and the memory is returned to the OS on exit
anyway). */
- Vgc_cons_percentage = make_float (noninteractive? 1.0: 0.1);
+ Vgc_cons_percentage = make_float (noninteractive && initialized ? 1.0 : 0.1);
no_loadup
= argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
diff --git a/src/eval.c b/src/eval.c
index eb40c953f96..3f4e77cd3b1 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -254,7 +254,7 @@ init_eval (void)
static void
max_ensure_room (intmax_t *m, intmax_t a, intmax_t b)
{
- intmax_t sum = INT_ADD_WRAPV (a, b, &sum) ? INTMAX_MAX : sum;
+ intmax_t sum = ckd_add (&sum, a, b) ? INTMAX_MAX : sum;
*m = max (*m, sum);
}
@@ -571,11 +571,12 @@ omitted or nil, NEW-ALIAS gets the documentation string
of BASE-VARIABLE,
or of the variable at the end of the chain of aliases, if BASE-VARIABLE is
itself an alias. If NEW-ALIAS is bound, and BASE-VARIABLE is not,
then the value of BASE-VARIABLE is set to that of NEW-ALIAS.
-The return value is BASE-VARIABLE. */)
+The return value is BASE-VARIABLE.
+
+If the resulting chain of variable definitions would contain a loop,
+signal a `cyclic-variable-indirection' error. */)
(Lisp_Object new_alias, Lisp_Object base_variable, Lisp_Object docstring)
{
- struct Lisp_Symbol *sym;
-
CHECK_SYMBOL (new_alias);
CHECK_SYMBOL (base_variable);
@@ -584,7 +585,18 @@ The return value is BASE-VARIABLE. */)
error ("Cannot make a constant an alias: %s",
SDATA (SYMBOL_NAME (new_alias)));
- sym = XSYMBOL (new_alias);
+ struct Lisp_Symbol *sym = XSYMBOL (new_alias);
+
+ /* Ensure non-circularity. */
+ struct Lisp_Symbol *s = XSYMBOL (base_variable);
+ for (;;)
+ {
+ if (s == sym)
+ xsignal1 (Qcyclic_variable_indirection, base_variable);
+ if (s->u.s.redirect != SYMBOL_VARALIAS)
+ break;
+ s = SYMBOL_ALIAS (s);
+ }
switch (sym->u.s.redirect)
{
@@ -2373,8 +2385,7 @@ grow_specpdl_allocation (void)
union specbinding *pdlvec = specpdl - 1;
ptrdiff_t size = specpdl_end - specpdl;
ptrdiff_t pdlvecsize = size + 1;
- if (max_size <= size)
- xsignal0 (Qexcessive_variable_binding); /* Can't happen, essentially. */
+ eassert (max_size > size);
pdlvec = xpalloc (pdlvec, &pdlvecsize, 1, max_size + 1, sizeof *specpdl);
specpdl = pdlvec + 1;
specpdl_end = specpdl + pdlvecsize - 1;
@@ -3400,7 +3411,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode,
return object;
}
-/* Return true if SYMBOL currently has a let-binding
+/* Return true if SYMBOL's default currently has a let-binding
which was made in the buffer that is now current. */
bool
@@ -3415,6 +3426,7 @@ let_shadows_buffer_binding_p (struct Lisp_Symbol *symbol)
struct Lisp_Symbol *let_bound_symbol = XSYMBOL (specpdl_symbol (p));
eassert (let_bound_symbol->u.s.redirect != SYMBOL_VARALIAS);
if (symbol == let_bound_symbol
+ && p->kind != SPECPDL_LET_LOCAL /* bug#62419 */
&& EQ (specpdl_where (p), buf))
return 1;
}
@@ -3476,7 +3488,7 @@ specbind (Lisp_Object symbol, Lisp_Object value)
switch (sym->u.s.redirect)
{
case SYMBOL_VARALIAS:
- sym = indirect_variable (sym); XSETSYMBOL (symbol, sym); goto start;
+ sym = SYMBOL_ALIAS (sym); XSETSYMBOL (symbol, sym); goto start;
case SYMBOL_PLAINVAL:
/* The most common case is that of a non-constant symbol with a
trivial value. Make that as fast as we can. */
diff --git a/src/fileio.c b/src/fileio.c
index b80f8d61de4..859cf57d249 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5246,6 +5246,7 @@ write_region (Lisp_Object start, Lisp_Object end,
Lisp_Object filename,
}
record_unwind_protect (save_restriction_restore, save_restriction_save ());
+ labeled_restrictions_remove_in_current_buffer ();
/* Special kludge to simplify auto-saving. */
if (NILP (start))
@@ -6275,7 +6276,7 @@ static Lisp_Object
blocks_to_bytes (uintmax_t blocksize, uintmax_t blocks, bool negate)
{
intmax_t n;
- if (!INT_MULTIPLY_WRAPV (blocksize, blocks, &n))
+ if (!ckd_mul (&n, blocksize, blocks))
return make_int (negate ? -n : n);
Lisp_Object bs = make_uint (blocksize);
if (negate)
diff --git a/src/floatfns.c b/src/floatfns.c
index 13f0ca3e129..e40364f8188 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -55,8 +55,6 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include <math.h>
-#include <count-leading-zeros.h>
-
/* Emacs needs proper handling of +/-inf; correct printing as well as
important packages depend on it. Make sure the user didn't specify
-ffinite-math-only, either directly or implicitly with -Ofast or
@@ -304,14 +302,6 @@ DEFUN ("float", Ffloat, Sfloat, 1, 1, 0,
return FLOATP (arg) ? arg : make_float (XFLOATINT (arg));
}
-static int
-ecount_leading_zeros (EMACS_UINT x)
-{
- return (EMACS_UINT_WIDTH == UINT_WIDTH ? count_leading_zeros (x)
- : EMACS_UINT_WIDTH == ULONG_WIDTH ? count_leading_zeros_l (x)
- : count_leading_zeros_ll (x));
-}
-
DEFUN ("logb", Flogb, Slogb, 1, 1, 0,
doc: /* Returns largest integer <= the base 2 log of the magnitude of
ARG.
This is the same as the exponent of a float. */)
@@ -338,7 +328,7 @@ This is the same as the exponent of a float. */)
EMACS_INT i = XFIXNUM (arg);
if (i == 0)
return make_float (-HUGE_VAL);
- value = EMACS_UINT_WIDTH - 1 - ecount_leading_zeros (eabs (i));
+ value = elogb (eabs (i));
}
return make_fixnum (value);
diff --git a/src/fns.c b/src/fns.c
index 0af9b725c7a..602c0868c5b 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -26,6 +26,7 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include <intprops.h>
#include <vla.h>
#include <errno.h>
+#include <ctype.h>
#include "lisp.h"
#include "bignum.h"
@@ -439,21 +440,32 @@ If string STR1 is greater, the value is a positive number
N;
}
/* Check whether the platform allows access to unaligned addresses for
- size_t integers without trapping or undue penalty (a few cycles is OK).
+ size_t integers without trapping or undue penalty (a few cycles is OK),
+ and that a word-sized memcpy can be used to generate such an access.
This whitelist is incomplete but since it is only used to improve
performance, omitting cases is safe. */
-#if defined __x86_64__|| defined __amd64__ \
- || defined __i386__ || defined __i386 \
- || defined __arm64__ || defined __aarch64__ \
- || defined __powerpc__ || defined __powerpc \
- || defined __ppc__ || defined __ppc \
- || defined __s390__ || defined __s390x__
+#if (defined __x86_64__|| defined __amd64__ \
+ || defined __i386__ || defined __i386 \
+ || defined __arm64__ || defined __aarch64__ \
+ || defined __powerpc__ || defined __powerpc \
+ || defined __ppc__ || defined __ppc \
+ || defined __s390__ || defined __s390x__) \
+ && defined __OPTIMIZE__
#define HAVE_FAST_UNALIGNED_ACCESS 1
#else
#define HAVE_FAST_UNALIGNED_ACCESS 0
#endif
+/* Load a word from a possibly unaligned address. */
+static inline size_t
+load_unaligned_size_t (const void *p)
+{
+ size_t x;
+ memcpy (&x, p, sizeof x);
+ return x;
+}
+
DEFUN ("string-lessp", Fstring_lessp, Sstring_lessp, 2, 2, 0,
doc: /* Return non-nil if STRING1 is less than STRING2 in lexicographic
order.
Case is significant.
@@ -497,17 +509,12 @@ Symbols are also allowed; their print names are used
instead. */)
if (HAVE_FAST_UNALIGNED_ACCESS)
{
/* First compare entire machine words. */
- typedef size_t word_t;
- int ws = sizeof (word_t);
- const word_t *w1 = (const word_t *) SDATA (string1);
- const word_t *w2 = (const word_t *) SDATA (string2);
- while (b < nb - ws + 1)
- {
- if (UNALIGNED_LOAD_SIZE (w1, b / ws)
- != UNALIGNED_LOAD_SIZE (w2, b / ws))
- break;
- b += ws;
- }
+ int ws = sizeof (size_t);
+ const char *w1 = SSDATA (string1);
+ const char *w2 = SSDATA (string2);
+ while (b < nb - ws + 1 && load_unaligned_size_t (w1 + b)
+ == load_unaligned_size_t (w2 + b))
+ b += ws;
}
/* Scan forward to the differing byte. */
@@ -1960,6 +1967,20 @@ assq_no_quit (Lisp_Object key, Lisp_Object alist)
return Qnil;
}
+/* Assq but doesn't signal. Unlike assq_no_quit, this function still
+ detects circular lists; like assq_no_quit, this function does not
+ allow quits and never signals. If anything goes wrong, it returns
+ Qnil. */
+Lisp_Object
+assq_no_signal (Lisp_Object key, Lisp_Object alist)
+{
+ Lisp_Object tail = alist;
+ FOR_EACH_TAIL_SAFE (tail)
+ if (CONSP (XCAR (tail)) && EQ (XCAR (XCAR (tail)), key))
+ return XCAR (tail);
+ return Qnil;
+}
+
DEFUN ("assoc", Fassoc, Sassoc, 2, 3, 0,
doc: /* Return non-nil if KEY is equal to the car of an element of
ALIST.
The value is actually the first element of ALIST whose car equals KEY.
@@ -2917,8 +2938,7 @@ ARRAY is a vector, string, char-table, or bool-vector.
*/)
else
{
ptrdiff_t product;
- if (INT_MULTIPLY_WRAPV (size, len, &product)
- || product != size_byte)
+ if (ckd_mul (&product, size, len) || product != size_byte)
error ("Attempt to change byte length of a string");
for (idx = 0; idx < size_byte; idx++)
*p++ = str[idx % len];
@@ -3182,7 +3202,9 @@ DEFUN ("yes-or-no-p", Fyes_or_no_p, Syes_or_no_p, 1, 1, 0,
Return t if answer is yes, and nil if the answer is no.
PROMPT is the string to display to ask the question; `yes-or-no-p'
-appends `yes-or-no-prompt' (default \"(yes or no) \") to it.
+appends `yes-or-no-prompt' (default \"(yes or no) \") to it. If
+PROMPT is a non-empty string, and it ends with a non-space character,
+a space character will be appended to it.
The user must confirm the answer with RET, and can edit it until it
has been confirmed.
@@ -3191,16 +3213,21 @@ If the `use-short-answers' variable is non-nil, instead
of asking for
\"yes\" or \"no\", this function will ask for \"y\" or \"n\" (and
ignore the value of `yes-or-no-prompt').
-If dialog boxes are supported, a dialog box will be used
-if `last-nonmenu-event' is nil, and `use-dialog-box' is non-nil. */)
+If dialog boxes are supported, this function will use a dialog box
+if `use-dialog-box' is non-nil and the last input event was produced
+by a mouse, or by some window-system gesture, or via a menu. */)
(Lisp_Object prompt)
{
- Lisp_Object ans;
+ Lisp_Object ans, val;
CHECK_STRING (prompt);
- if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
- && use_dialog_box && ! NILP (last_input_event))
+ if (!NILP (last_input_event)
+ && (CONSP (last_nonmenu_event)
+ || (NILP (last_nonmenu_event) && CONSP (last_input_event))
+ || (val = find_symbol_value (Qfrom__tty_menu_p),
+ (!NILP (val) && !EQ (val, Qunbound))))
+ && use_dialog_box)
{
Lisp_Object pane, menu, obj;
redisplay_preserve_echo_area (4);
@@ -3214,6 +3241,12 @@ if `last-nonmenu-event' is nil, and `use-dialog-box' is
non-nil. */)
if (use_short_answers)
return call1 (intern ("y-or-n-p"), prompt);
+ {
+ char *s = SSDATA (prompt);
+ ptrdiff_t len = strlen (s);
+ if ((len > 0) && !isspace (s[len - 1]))
+ prompt = CALLN (Fconcat, prompt, build_string (" "));
+ }
prompt = CALLN (Fconcat, prompt, Vyes_or_no_prompt);
specpdl_ref count = SPECPDL_INDEX ();
@@ -6121,29 +6154,40 @@ second optional argument ABSOLUTE is non-nil, the value
counts the lines
from the absolute start of the buffer, disregarding the narrowing. */)
(register Lisp_Object position, Lisp_Object absolute)
{
- ptrdiff_t pos, start = BEGV_BYTE;
+ ptrdiff_t pos_byte, start_byte = BEGV_BYTE;
if (MARKERP (position))
- pos = marker_position (position);
+ {
+ /* We don't trust the byte position if the marker's buffer is
+ not the current buffer. */
+ if (XMARKER (position)->buffer != current_buffer)
+ pos_byte = CHAR_TO_BYTE (marker_position (position));
+ else
+ pos_byte = marker_byte_position (position);
+ }
else if (NILP (position))
- pos = PT;
+ pos_byte = PT_BYTE;
else
{
CHECK_FIXNUM (position);
- pos = XFIXNUM (position);
+ ptrdiff_t pos = XFIXNUM (position);
+ /* Check that POSITION is valid. */
+ if (pos < BEG || pos > Z)
+ args_out_of_range_3 (position, make_int (BEG), make_int (Z));
+ pos_byte = CHAR_TO_BYTE (pos);
}
if (!NILP (absolute))
- start = BEG_BYTE;
+ start_byte = BEG_BYTE;
+ else if (NILP (absolute))
+ pos_byte = clip_to_bounds (BEGV_BYTE, pos_byte, ZV_BYTE);
- /* Check that POSITION is in the accessible range of the buffer, or,
- if we're reporting absolute positions, in the buffer. */
- if (NILP (absolute) && (pos < BEGV || pos > ZV))
- args_out_of_range_3 (make_int (pos), make_int (BEGV), make_int (ZV));
- else if (!NILP (absolute) && (pos < 1 || pos > Z))
- args_out_of_range_3 (make_int (pos), make_int (1), make_int (Z));
+ /* Check that POSITION is valid. */
+ if (pos_byte < BEG_BYTE || pos_byte > Z_BYTE)
+ args_out_of_range_3 (make_int (BYTE_TO_CHAR (pos_byte)),
+ make_int (BEG), make_int (Z));
- return make_int (count_lines (start, CHAR_TO_BYTE (pos)) + 1);
+ return make_int (count_lines (start_byte, pos_byte) + 1);
}
@@ -6358,4 +6402,5 @@ For best results this should end in a space. */);
defsubr (&Sbuffer_line_statistics);
DEFSYM (Qreal_this_command, "real-this-command");
+ DEFSYM (Qfrom__tty_menu_p, "from--tty-menu-p");
}
diff --git a/src/font.c b/src/font.c
index de8748dd857..e586277a5d3 100644
--- a/src/font.c
+++ b/src/font.c
@@ -279,7 +279,7 @@ font_intern_prop (const char *str, ptrdiff_t len, bool
force_symbol)
{
if (i == len)
return make_fixnum (n);
- if (INT_MULTIPLY_WRAPV (n, 10, &n))
+ if (ckd_mul (&n, n, 10))
break;
}
diff --git a/src/fontset.c b/src/fontset.c
index f196dee8259..c0e00cfa346 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -967,6 +967,15 @@ face_for_char (struct frame *f, struct face *face, int c,
#endif
}
+ /* If the parent face has no fontset we could work with, and has no
+ font, just return that same face, so that the caller will
+ consider the character to have no font capable of displaying it,
+ and display it as "glyphless". That is certainly better than
+ violating the assertion below or crashing when assertions are not
+ compiled in. */
+ if (face->fontset < 0 && !face->font)
+ return face->id;
+
eassert (fontset_id_valid_p (face->fontset));
fontset = FONTSET_FROM_ID (face->fontset);
eassert (!BASE_FONTSET_P (fontset));
diff --git a/src/frame.c b/src/frame.c
index 2cea96d4a32..037914ac9dc 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -3729,7 +3729,7 @@ check_frame_pixels (Lisp_Object size, Lisp_Object
pixelwise, int item_size)
item_size = 1;
if (!integer_to_intmax (size, &sz)
- || INT_MULTIPLY_WRAPV (sz, item_size, &pixel_size))
+ || ckd_mul (&pixel_size, sz, item_size))
args_out_of_range_3 (size, make_int (INT_MIN / item_size),
make_int (INT_MAX / item_size));
diff --git a/src/fringe.c b/src/fringe.c
index 5fcb1b27272..ed257c073b9 100644
--- a/src/fringe.c
+++ b/src/fringe.c
@@ -211,14 +211,14 @@ static unsigned short right_curly_arrow_bits[] = {
/* Large circle bitmap. */
/*
- ........
..xxxx..
.xxxxxx.
xxxxxxxx
xxxxxxxx
+ xxxxxxxx
+ xxxxxxxx
.xxxxxx.
..xxxx..
- ........
*/
static unsigned short large_circle_bits[] = {
0x3c, 0x7e, 0xff, 0xff, 0xff, 0xff, 0x7e, 0x3c};
diff --git a/src/ftcrfont.c b/src/ftcrfont.c
index c9a4de8137b..49564692b75 100644
--- a/src/ftcrfont.c
+++ b/src/ftcrfont.c
@@ -590,7 +590,6 @@ ftcrfont_draw (struct glyph_string *s,
GREEN_FROM_ULONG (col) / 255.0,
BLUE_FROM_ULONG (col) / 255.0);
#endif
- s->background_filled_p = 1;
cairo_rectangle (cr, x, y - FONT_BASE (s->font),
s->width, FONT_HEIGHT (s->font));
cairo_fill (cr);
diff --git a/src/gnutls.c b/src/gnutls.c
index ca7e9fc4c73..8f0e2d01703 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -1083,8 +1083,8 @@ gnutls_hex_string (unsigned char *buf, ptrdiff_t
buf_size, const char *prefix)
{
ptrdiff_t prefix_length = strlen (prefix);
ptrdiff_t retlen;
- if (INT_MULTIPLY_WRAPV (buf_size, 3, &retlen)
- || INT_ADD_WRAPV (prefix_length - (buf_size != 0), retlen, &retlen))
+ if (ckd_mul (&retlen, buf_size, 3)
+ || ckd_add (&retlen, retlen, prefix_length - (buf_size != 0)))
string_overflow ();
Lisp_Object ret = make_uninit_string (retlen);
char *string = SSDATA (ret);
@@ -2378,7 +2378,7 @@ gnutls_symmetric_aead (bool encrypting,
gnutls_cipher_algorithm_t gca,
ptrdiff_t cipher_tag_size = gnutls_cipher_get_tag_size (gca);
ptrdiff_t tagged_size;
- if (INT_ADD_WRAPV (isize, cipher_tag_size, &tagged_size)
+ if (ckd_add (&tagged_size, isize, cipher_tag_size)
|| SIZE_MAX < tagged_size)
memory_full (SIZE_MAX);
size_t storage_length = tagged_size;
diff --git a/src/gtkutil.c b/src/gtkutil.c
index 4cc0f9f15b4..22b2a70f279 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -694,8 +694,8 @@ get_utf8_string (const char *str)
len = strlen (str);
ptrdiff_t alloc;
- if (INT_MULTIPLY_WRAPV (nr_bad, 4, &alloc)
- || INT_ADD_WRAPV (len + 1, alloc, &alloc)
+ if (ckd_mul (&alloc, nr_bad, 4)
+ || ckd_add (&alloc, alloc, len + 1)
|| SIZE_MAX < alloc)
memory_full (SIZE_MAX);
up = utf8_str = xmalloc (alloc);
diff --git a/src/haikufont.c b/src/haikufont.c
index b4c2e547247..b6a9cb34c4d 100644
--- a/src/haikufont.c
+++ b/src/haikufont.c
@@ -1127,7 +1127,6 @@ haikufont_draw (struct glyph_string *s, int from, int to,
haiku_draw_background_rect (s, s->face, x, y - ascent,
s->width, height);
- s->background_filled_p = 1;
}
BView_SetHighColor (view, foreground);
diff --git a/src/haikuterm.c b/src/haikuterm.c
index 8733b82fb2b..212870064e8 100644
--- a/src/haikuterm.c
+++ b/src/haikuterm.c
@@ -4420,7 +4420,7 @@ haiku_term_init (void)
{
nbytes = sizeof "GNU Emacs" + sizeof " at ";
- if (INT_ADD_WRAPV (nbytes, SBYTES (system_name), &nbytes))
+ if (ckd_add (&nbytes, nbytes, SBYTES (system_name)))
memory_full (SIZE_MAX);
name_buffer = alloca (nbytes);
diff --git a/src/image.c b/src/image.c
index e78c0abb0db..c9420b48f4a 100644
--- a/src/image.c
+++ b/src/image.c
@@ -479,7 +479,8 @@ image_create_bitmap_from_data (struct frame *f, char *bits,
#ifdef HAVE_X_WINDOWS
Pixmap bitmap;
- bitmap = XCreateBitmapFromData (FRAME_X_DISPLAY (f), FRAME_X_DRAWABLE (f),
+ bitmap = XCreateBitmapFromData (FRAME_X_DISPLAY (f),
+ dpyinfo->root_window,
bits, width, height);
if (! bitmap)
return -1;
@@ -729,8 +730,10 @@ image_create_bitmap_from_file (struct frame *f,
Lisp_Object file)
filename = SSDATA (found);
- result = XReadBitmapFile (FRAME_X_DISPLAY (f), FRAME_X_DRAWABLE (f),
- filename, &width, &height, &bitmap, &xhot, &yhot);
+ result = XReadBitmapFile (FRAME_X_DISPLAY (f),
+ dpyinfo->root_window,
+ filename, &width, &height, &bitmap,
+ &xhot, &yhot);
if (result != BitmapSuccess)
return -1;
@@ -839,9 +842,17 @@ static void
free_bitmap_record (Display_Info *dpyinfo, Bitmap_Record *bm)
{
#ifdef HAVE_X_WINDOWS
- XFreePixmap (dpyinfo->display, bm->pixmap);
- if (bm->have_mask)
- XFreePixmap (dpyinfo->display, bm->mask);
+ /* Free the pixmap and mask. Only do this if DPYINFO->display is
+ still set, which may not be the case if the connection has
+ already been closed in response to an IO error. */
+
+ if (dpyinfo->display)
+ {
+ XFreePixmap (dpyinfo->display, bm->pixmap);
+ if (bm->have_mask)
+ XFreePixmap (dpyinfo->display, bm->mask);
+ }
+
#ifdef USE_CAIRO
if (bm->stipple)
cairo_pattern_destroy (bm->stipple);
@@ -4000,7 +4011,7 @@ xbm_scan (char **s, char *end, char *sval, int *ival)
digit = char_hexdigit (c);
if (digit < 0)
break;
- overflow |= INT_MULTIPLY_WRAPV (value, 16, &value);
+ overflow |= ckd_mul (&value, value, 16);
value += digit;
}
}
@@ -4010,7 +4021,7 @@ xbm_scan (char **s, char *end, char *sval, int *ival)
while (*s < end
&& (c = *(*s)++, '0' <= c && c <= '7'))
{
- overflow |= INT_MULTIPLY_WRAPV (value, 8, &value);
+ overflow |= ckd_mul (&value, value, 8);
value += c - '0';
}
}
@@ -4021,8 +4032,8 @@ xbm_scan (char **s, char *end, char *sval, int *ival)
while (*s < end
&& (c = *(*s)++, c_isdigit (c)))
{
- overflow |= INT_MULTIPLY_WRAPV (value, 10, &value);
- overflow |= INT_ADD_WRAPV (value, c - '0', &value);
+ overflow |= ckd_mul (&value, value, 10);
+ overflow |= ckd_add (&value, value, c - '0');
}
}
@@ -4066,7 +4077,7 @@ xbm_scan (char **s, char *end, char *sval, int *ival)
if (digit < 0)
return 0;
- overflow |= INT_MULTIPLY_WRAPV (value, 16, &value);
+ overflow |= ckd_mul (&value, value, 16);
value += digit;
}
}
@@ -6133,8 +6144,8 @@ image_to_emacs_colors (struct frame *f, struct image
*img, bool rgb_p)
HGDIOBJ prev;
#endif /* HAVE_NTGUI */
- if (INT_MULTIPLY_WRAPV (sizeof *colors, img->width, &nbytes)
- || INT_MULTIPLY_WRAPV (img->height, nbytes, &nbytes)
+ if (ckd_mul (&nbytes, sizeof *colors, img->width)
+ || ckd_mul (&nbytes, nbytes, img->height)
|| SIZE_MAX < nbytes)
memory_full (SIZE_MAX);
colors = xmalloc (nbytes);
@@ -6279,8 +6290,8 @@ image_detect_edges (struct frame *f, struct image *img,
#define COLOR(A, X, Y) ((A) + (Y) * img->width + (X))
- if (INT_MULTIPLY_WRAPV (sizeof *new, img->width, &nbytes)
- || INT_MULTIPLY_WRAPV (img->height, nbytes, &nbytes))
+ if (ckd_mul (&nbytes, sizeof *new, img->width)
+ || ckd_mul (&nbytes, nbytes, img->height))
memory_full (SIZE_MAX);
new = xmalloc (nbytes);
@@ -7652,8 +7663,8 @@ png_load_body (struct frame *f, struct image *img, struct
png_load_context *c)
row_bytes = png_get_rowbytes (png_ptr, info_ptr);
/* Allocate memory for the image. */
- if (INT_MULTIPLY_WRAPV (row_bytes, sizeof *pixels, &nbytes)
- || INT_MULTIPLY_WRAPV (nbytes, height, &nbytes))
+ if (ckd_mul (&nbytes, row_bytes, sizeof *pixels)
+ || ckd_mul (&nbytes, nbytes, height))
memory_full (SIZE_MAX);
c->pixels = pixels = xmalloc (nbytes);
c->rows = rows = xmalloc (height * sizeof *rows);
diff --git a/src/indent.c b/src/indent.c
index 6a84472fd2f..81157fc2494 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -616,7 +616,7 @@ scan_for_column (ptrdiff_t *endpos, EMACS_INT *goalcol,
memset (&cmp_it, 0, sizeof cmp_it);
cmp_it.id = -1;
- composition_compute_stop_pos (&cmp_it, scan, scan_byte, end, Qnil);
+ composition_compute_stop_pos (&cmp_it, scan, scan_byte, end, Qnil, true);
/* Scan forward to the target position. */
while (scan < end)
@@ -681,7 +681,7 @@ scan_for_column (ptrdiff_t *endpos, EMACS_INT *goalcol,
{
cmp_it.id = -1;
composition_compute_stop_pos (&cmp_it, scan, scan_byte, end,
- Qnil);
+ Qnil, true);
}
else
cmp_it.from = cmp_it.to;
@@ -1290,7 +1290,7 @@ compute_motion (ptrdiff_t from, ptrdiff_t frombyte,
EMACS_INT fromvpos,
prev_tab_offset = tab_offset;
memset (&cmp_it, 0, sizeof cmp_it);
cmp_it.id = -1;
- composition_compute_stop_pos (&cmp_it, pos, pos_byte, to, Qnil);
+ composition_compute_stop_pos (&cmp_it, pos, pos_byte, to, Qnil, true);
unsigned short int quit_count = 0;
@@ -1600,7 +1600,7 @@ compute_motion (ptrdiff_t from, ptrdiff_t frombyte,
EMACS_INT fromvpos,
{
cmp_it.id = -1;
composition_compute_stop_pos (&cmp_it, pos, pos_byte, to,
- Qnil);
+ Qnil, true);
}
else
cmp_it.from = cmp_it.to;
@@ -2065,6 +2065,7 @@ line_number_display_width (struct window *w, int *width,
int *pixel_width)
{
record_unwind_protect (save_restriction_restore,
save_restriction_save ());
+ labeled_restrictions_remove_in_current_buffer ();
Fwiden ();
saved_restriction = true;
}
diff --git a/src/itree.c b/src/itree.c
index bd3e62a374a..ecf7d67422a 100644
--- a/src/itree.c
+++ b/src/itree.c
@@ -817,14 +817,13 @@ itree_remove_fix (struct itree_tree *tree,
{
struct itree_node *other = parent->right;
- if (null_safe_is_red (other)) /* case 1.a */
+ if (other->red) /* case 1.a */
{
other->red = false;
parent->red = true;
itree_rotate_left (tree, parent);
other = parent->right;
}
- eassume (other != NULL);
if (null_safe_is_black (other->left) /* 2.a */
&& null_safe_is_black (other->right))
@@ -855,14 +854,13 @@ itree_remove_fix (struct itree_tree *tree,
{
struct itree_node *other = parent->left;
- if (null_safe_is_red (other)) /* 1.b */
+ if (other->red) /* 1.b */
{
other->red = false;
parent->red = true;
itree_rotate_right (tree, parent);
other = parent->left;
}
- eassume (other != NULL);
if (null_safe_is_black (other->right) /* 2.b */
&& null_safe_is_black (other->left))
diff --git a/src/keyboard.c b/src/keyboard.c
index b2816f8270b..a1cddf9d145 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -105,6 +105,13 @@ static bool single_kboard;
/* Minimum allowed size of the recent_keys vector. */
#define MIN_NUM_RECENT_KEYS (100)
+/* Maximum allowed size of the recent_keys vector. */
+#if INTPTR_MAX <= INT_MAX
+# define MAX_NUM_RECENT_KEYS (INT_MAX / EMACS_INT_WIDTH / 10)
+#else
+# define MAX_NUM_RECENT_KEYS (INT_MAX / EMACS_INT_WIDTH)
+#endif
+
/* Index for storing next element into recent_keys. */
static int recent_keys_index;
@@ -311,6 +318,8 @@ static Lisp_Object command_loop (void);
static void echo_now (void);
static ptrdiff_t echo_length (void);
+static void safe_run_hooks_maybe_narrowed (Lisp_Object, struct window *);
+
/* Incremented whenever a timer is run. */
unsigned timers_run;
@@ -1427,6 +1436,7 @@ command_loop_1 (void)
prev_buffer = current_buffer;
prev_modiff = MODIFF;
last_point_position = PT;
+ ptrdiff_t last_pt = PT;
/* By default, we adjust point to a boundary of a region that
has such a property that should be treated intangible
@@ -1504,6 +1514,9 @@ command_loop_1 (void)
unbind_to (scount, Qnil);
#endif
}
+ /* Restore last PT position value, possibly clobbered by
+ recursive-edit invoked by the command we just executed. */
+ last_point_position = last_pt;
kset_last_prefix_arg (current_kboard, Vcurrent_prefix_arg);
safe_run_hooks_maybe_narrowed (Qpost_command_hook,
@@ -1902,7 +1915,7 @@ safe_run_hooks (Lisp_Object hook)
unbind_to (count, Qnil);
}
-void
+static void
safe_run_hooks_maybe_narrowed (Lisp_Object hook, struct window *w)
{
specpdl_ref count = SPECPDL_INDEX ();
@@ -1912,11 +1925,11 @@ safe_run_hooks_maybe_narrowed (Lisp_Object hook, struct
window *w)
if (current_buffer->long_line_optimizations_p
&& long_line_optimizations_region_size > 0)
{
- ptrdiff_t begv = get_locked_narrowing_begv (PT);
- ptrdiff_t zv = get_locked_narrowing_zv (PT);
+ ptrdiff_t begv = get_large_narrowing_begv (PT);
+ ptrdiff_t zv = get_large_narrowing_zv (PT);
if (begv != BEG || zv != Z)
- narrow_to_region_locked (make_fixnum (begv), make_fixnum (zv),
- Qlong_line_optimizations_in_command_hooks);
+ labeled_narrow_to_region (make_fixnum (begv), make_fixnum (zv),
+ Qlong_line_optimizations_in_command_hooks);
}
run_hook_with_args (2, ((Lisp_Object []) {hook, hook}),
@@ -10984,10 +10997,10 @@ The saved keystrokes are shown by `view-lossage'. */)
if (!FIXNATP (arg))
user_error ("Value must be a positive integer");
- int osize = ASIZE (recent_keys);
+ ptrdiff_t osize = ASIZE (recent_keys);
eassert (lossage_limit == osize);
int min_size = MIN_NUM_RECENT_KEYS;
- int new_size = XFIXNAT (arg);
+ EMACS_INT new_size = XFIXNAT (arg);
if (new_size == osize)
return make_fixnum (lossage_limit);
@@ -10997,6 +11010,12 @@ The saved keystrokes are shown by `view-lossage'. */)
AUTO_STRING (fmt, "Value must be >= %d");
Fsignal (Quser_error, list1 (CALLN (Fformat, fmt, make_fixnum
(min_size))));
}
+ if (new_size > MAX_NUM_RECENT_KEYS)
+ {
+ AUTO_STRING (fmt, "Value must be <= %d");
+ Fsignal (Quser_error, list1 (CALLN (Fformat, fmt,
+ make_fixnum (MAX_NUM_RECENT_KEYS))));
+ }
int kept_keys = new_size > osize ? total_keys : min (new_size, total_keys);
update_recent_keys (new_size, kept_keys);
@@ -11146,7 +11165,7 @@ DEFUN ("recursion-depth", Frecursion_depth,
Srecursion_depth, 0, 0, 0,
(void)
{
EMACS_INT sum;
- INT_ADD_WRAPV (command_loop_level, minibuf_level, &sum);
+ ckd_add (&sum, command_loop_level, minibuf_level);
return make_fixnum (sum);
}
diff --git a/src/keymap.c b/src/keymap.c
index 23453eaa9a6..da2af98c2d6 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -887,22 +887,23 @@ store_in_keymap (Lisp_Object keymap, register Lisp_Object
idx,
keymap_end:
/* We have scanned the entire keymap, and not found a binding for
IDX. Let's add one. */
- {
- Lisp_Object elt;
+ if (!remove)
+ {
+ Lisp_Object elt;
- if (CONSP (idx) && CHARACTERP (XCAR (idx)))
- {
- /* IDX specifies a range of characters, and not all of them
- were handled yet, which means this keymap doesn't have a
- char-table. So, we insert a char-table now. */
- elt = Fmake_char_table (Qkeymap, Qnil);
- Fset_char_table_range (elt, idx, NILP (def) ? Qt : def);
- }
- else
- elt = Fcons (idx, def);
- CHECK_IMPURE (insertion_point, XCONS (insertion_point));
- XSETCDR (insertion_point, Fcons (elt, XCDR (insertion_point)));
- }
+ if (CONSP (idx) && CHARACTERP (XCAR (idx)))
+ {
+ /* IDX specifies a range of characters, and not all of them
+ were handled yet, which means this keymap doesn't have a
+ char-table. So, we insert a char-table now. */
+ elt = Fmake_char_table (Qkeymap, Qnil);
+ Fset_char_table_range (elt, idx, NILP (def) ? Qt : def);
+ }
+ else
+ elt = Fcons (idx, def);
+ CHECK_IMPURE (insertion_point, XCONS (insertion_point));
+ XSETCDR (insertion_point, Fcons (elt, XCDR (insertion_point)));
+ }
}
return def;
@@ -1362,7 +1363,7 @@ recognize the default bindings, just as
`read-key-sequence' does. */)
{
USE_SAFE_ALLOCA;
ptrdiff_t size = SCHARS (key_item), n;
- if (INT_MULTIPLY_WRAPV (size, MAX_MULTIBYTE_LENGTH, &n))
+ if (ckd_mul (&n, size, MAX_MULTIBYTE_LENGTH))
n = PTRDIFF_MAX;
unsigned char *dst = SAFE_ALLOCA (n);
unsigned char *p = dst;
@@ -1410,7 +1411,7 @@ recognize the default bindings, just as
`read-key-sequence' does. */)
USE_SAFE_ALLOCA;
ptrdiff_t size = SCHARS (lc_key), n;
- if (INT_MULTIPLY_WRAPV (size, MAX_MULTIBYTE_LENGTH, &n))
+ if (ckd_mul (&n, size, MAX_MULTIBYTE_LENGTH))
n = PTRDIFF_MAX;
unsigned char *dst = SAFE_ALLOCA (n);
@@ -2096,7 +2097,7 @@ For an approximate inverse of this, see `kbd'. */)
/* This has one extra element at the end that we don't pass to Fconcat. */
ptrdiff_t size4;
- if (INT_MULTIPLY_WRAPV (nkeys + nprefix, 4, &size4))
+ if (ckd_mul (&size4, nkeys + nprefix, 4))
memory_full (SIZE_MAX);
SAFE_ALLOCA_LISP (args, size4);
@@ -3307,13 +3308,18 @@ describe_vector (Lisp_Object vector, Lisp_Object
prefix, Lisp_Object args,
if (this_shadowed)
{
SET_PT (PT - 1);
- static char const fmt[] = " (currently shadowed by `%s')";
- USE_SAFE_ALLOCA;
- char *buffer = SAFE_ALLOCA (sizeof fmt +
- SBYTES (SYMBOL_NAME (shadowed_by)));
- esprintf (buffer, fmt, SDATA (SYMBOL_NAME (shadowed_by)));
- insert_string (buffer);
- SAFE_FREE();
+ if (SYMBOLP (shadowed_by))
+ {
+ static char const fmt[] = " (currently shadowed by `%s')";
+ USE_SAFE_ALLOCA;
+ char *buffer =
+ SAFE_ALLOCA (sizeof fmt + SBYTES (SYMBOL_NAME (shadowed_by)));
+ esprintf (buffer, fmt, SDATA (SYMBOL_NAME (shadowed_by)));
+ insert_string (buffer);
+ SAFE_FREE();
+ }
+ else /* Could be a keymap, a lambda, or a keyboard macro. */
+ insert_string (" (currently shadowed)");
SET_PT (PT + 1);
}
}
diff --git a/src/lisp.h b/src/lisp.h
index bea2d29f3e9..2feb39b7f60 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -23,6 +23,7 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include <alloca.h>
#include <setjmp.h>
#include <stdarg.h>
+#include <stdckdint.h>
#include <stddef.h>
#include <string.h>
#include <float.h>
@@ -30,6 +31,7 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include <limits.h>
#include <attribute.h>
+#include <count-leading-zeros.h>
#include <intprops.h>
#include <verify.h>
@@ -812,24 +814,24 @@ typedef struct { void const *fwdptr; } lispfwd;
enum symbol_interned
{
- SYMBOL_UNINTERNED = 0,
- SYMBOL_INTERNED = 1,
- SYMBOL_INTERNED_IN_INITIAL_OBARRAY = 2
+ SYMBOL_UNINTERNED, /* not interned anywhere */
+ SYMBOL_INTERNED, /* interned but not in initial obarray */
+ SYMBOL_INTERNED_IN_INITIAL_OBARRAY /* interned in initial obarray */
};
enum symbol_redirect
{
- SYMBOL_PLAINVAL = 4,
- SYMBOL_VARALIAS = 1,
- SYMBOL_LOCALIZED = 2,
- SYMBOL_FORWARDED = 3
+ SYMBOL_PLAINVAL, /* plain var, value is in the `value' field */
+ SYMBOL_VARALIAS, /* var alias, value is really in the `alias' symbol */
+ SYMBOL_LOCALIZED, /* localized var, value is in the `blv' object */
+ SYMBOL_FORWARDED /* forwarding var, value is in `forward' */
};
enum symbol_trapped_write
{
- SYMBOL_UNTRAPPED_WRITE = 0,
- SYMBOL_NOWRITE = 1,
- SYMBOL_TRAPPED_WRITE = 2
+ SYMBOL_UNTRAPPED_WRITE, /* normal case, just set the value */
+ SYMBOL_NOWRITE, /* constant, cannot set, e.g. nil, t, :keyword */
+ SYMBOL_TRAPPED_WRITE /* trap the write, call watcher functions */
};
struct Lisp_Symbol
@@ -840,21 +842,13 @@ struct Lisp_Symbol
{
bool_bf gcmarkbit : 1;
- /* Indicates where the value can be found:
- 0 : it's a plain var, the value is in the `value' field.
- 1 : it's a varalias, the value is really in the `alias' symbol.
- 2 : it's a localized var, the value is in the `blv' object.
- 3 : it's a forwarding variable, the value is in `forward'. */
- ENUM_BF (symbol_redirect) redirect : 3;
+ /* Indicates where the value can be found. */
+ ENUM_BF (symbol_redirect) redirect : 2;
- /* 0 : normal case, just set the value
- 1 : constant, cannot set, e.g. nil, t, :keywords.
- 2 : trap the write, call watcher functions. */
ENUM_BF (symbol_trapped_write) trapped_write : 2;
- /* Interned state of the symbol. This is an enumerator from
- enum symbol_interned. */
- unsigned interned : 2;
+ /* Interned state of the symbol. */
+ ENUM_BF (symbol_interned) interned : 2;
/* True means that this variable has been explicitly declared
special (with `defvar' etc), and shouldn't be lexically bound. */
@@ -3965,6 +3959,13 @@ integer_to_uintmax (Lisp_Object num, uintmax_t *n)
}
}
+/* Return floor (log2 (N)) as an int, where 0 < N <= ULLONG_MAX. */
+INLINE int
+elogb (unsigned long long int n)
+{
+ return ULLONG_WIDTH - 1 - count_leading_zeros_ll (n);
+}
+
/* A modification count. These are wide enough, and incremented
rarely enough, so that they should never overflow a 60-bit counter
in practice, and the code below assumes this so a compiler can
@@ -3974,12 +3975,13 @@ typedef intmax_t modiff_count;
INLINE modiff_count
modiff_incr (modiff_count *a, ptrdiff_t len)
{
- modiff_count a0 = *a; int incr = len ? 1 : 0;
+ modiff_count a0 = *a;
/* Increase the counter more for a large modification and less for a
small modification. Increase it logarithmically to avoid
increasing it too much. */
- while (len >>= 1) incr++;
- bool modiff_overflow = INT_ADD_WRAPV (a0, incr, a);
+ verify (PTRDIFF_MAX <= ULLONG_MAX);
+ int incr = len == 0 ? 1 : elogb (len) + 1;
+ bool modiff_overflow = ckd_add (a, a0, incr);
eassert (!modiff_overflow && *a >> 30 >> 30 == 0);
return a0;
}
@@ -4018,7 +4020,6 @@ extern Lisp_Object arithcompare (Lisp_Object num1,
Lisp_Object num2,
extern intmax_t cons_to_signed (Lisp_Object, intmax_t, intmax_t);
extern uintmax_t cons_to_unsigned (Lisp_Object, uintmax_t);
-extern struct Lisp_Symbol *indirect_variable (struct Lisp_Symbol *);
extern AVOID args_out_of_range (Lisp_Object, Lisp_Object);
extern AVOID circular_list (Lisp_Object);
extern Lisp_Object do_symval_forwarding (lispfwd);
@@ -4093,6 +4094,7 @@ extern Lisp_Object concat3 (Lisp_Object, Lisp_Object,
Lisp_Object);
extern bool equal_no_quit (Lisp_Object, Lisp_Object);
extern Lisp_Object nconc2 (Lisp_Object, Lisp_Object);
extern Lisp_Object assq_no_quit (Lisp_Object, Lisp_Object);
+extern Lisp_Object assq_no_signal (Lisp_Object, Lisp_Object);
extern Lisp_Object assoc_no_quit (Lisp_Object, Lisp_Object);
extern void clear_string_char_byte_cache (void);
extern ptrdiff_t string_char_to_byte (Lisp_Object, ptrdiff_t);
@@ -4762,8 +4764,9 @@ extern void save_restriction_restore (Lisp_Object);
extern Lisp_Object make_buffer_string (ptrdiff_t, ptrdiff_t, bool);
extern Lisp_Object make_buffer_string_both (ptrdiff_t, ptrdiff_t, ptrdiff_t,
ptrdiff_t, bool);
-extern void narrow_to_region_locked (Lisp_Object, Lisp_Object, Lisp_Object);
-extern void reset_outermost_narrowings (void);
+extern void labeled_narrow_to_region (Lisp_Object, Lisp_Object, Lisp_Object);
+extern void reset_outermost_restrictions (void);
+extern void labeled_restrictions_remove_in_current_buffer (void);
extern void init_editfns (void);
extern void syms_of_editfns (void);
@@ -4932,7 +4935,6 @@ extern bool detect_input_pending (void);
extern bool detect_input_pending_ignore_squeezables (void);
extern bool detect_input_pending_run_timers (bool);
extern void safe_run_hooks (Lisp_Object);
-extern void safe_run_hooks_maybe_narrowed (Lisp_Object, struct window *);
extern void safe_run_hooks_2 (Lisp_Object, Lisp_Object, Lisp_Object);
extern void cmd_error_internal (Lisp_Object, const char *);
extern Lisp_Object command_loop_2 (Lisp_Object);
@@ -5379,26 +5381,6 @@ __lsan_ignore_object (void const *p)
}
#endif
-/* If built with USE_SANITIZER_UNALIGNED_LOAD defined, use compiler
- provided ASan functions to perform unaligned loads, allowing ASan
- to catch bugs which it might otherwise miss. */
-#if defined HAVE_SANITIZER_COMMON_INTERFACE_DEFS_H \
- && defined ADDRESS_SANITIZER \
- && defined USE_SANITIZER_UNALIGNED_LOAD
-# include <sanitizer/common_interface_defs.h>
-# if (SIZE_MAX == UINT64_MAX)
-# define UNALIGNED_LOAD_SIZE(a, i) \
- (size_t) __sanitizer_unaligned_load64 ((void *) ((a) + (i)))
-# elif (SIZE_MAX == UINT32_MAX)
-# define UNALIGNED_LOAD_SIZE(a, i) \
- (size_t) __sanitizer_unaligned_load32 ((void *) ((a) + (i)))
-# else
-# define UNALIGNED_LOAD_SIZE(a, i) *((a) + (i))
-# endif
-#else
-# define UNALIGNED_LOAD_SIZE(a, i) *((a) + (i))
-#endif
-
extern void xputenv (const char *);
extern char *egetenv_internal (const char *, ptrdiff_t);
@@ -5501,14 +5483,22 @@ safe_free_unbind_to (specpdl_ref count, specpdl_ref
sa_count, Lisp_Object val)
return unbind_to (count, val);
}
+/* Work around GCC bug 109577
+ https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109577
+ which causes GCC to mistakenly complain about the
+ memory allocation in SAFE_ALLOCA_LISP_EXTRA. */
+#if GNUC_PREREQ (13, 0, 0)
+# pragma GCC diagnostic ignored "-Wanalyzer-allocation-size"
+#endif
+
/* Set BUF to point to an allocated array of NELT Lisp_Objects,
immediately followed by EXTRA spare bytes. */
#define SAFE_ALLOCA_LISP_EXTRA(buf, nelt, extra) \
do { \
ptrdiff_t alloca_nbytes; \
- if (INT_MULTIPLY_WRAPV (nelt, word_size, &alloca_nbytes) \
- || INT_ADD_WRAPV (alloca_nbytes, extra, &alloca_nbytes) \
+ if (ckd_mul (&alloca_nbytes, nelt, word_size) \
+ || ckd_add (&alloca_nbytes, alloca_nbytes, extra) \
|| SIZE_MAX < alloca_nbytes) \
memory_full (SIZE_MAX); \
else if (alloca_nbytes <= sa_avail) \
diff --git a/src/lread.c b/src/lread.c
index d0dc85f51c8..0ee208b7cba 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2255,6 +2255,7 @@ readevalloop (Lisp_Object readcharfun,
record_unwind_protect_excursion ();
/* Save ZV in it. */
record_unwind_protect (save_restriction_restore,
save_restriction_save ());
+ labeled_restrictions_remove_in_current_buffer ();
/* Those get unbound after we read one expression. */
/* Set point and ZV around stuff to be read. */
@@ -2639,154 +2640,131 @@ character_name_to_code (char const *name, ptrdiff_t
name_len,
Unicode 9.0.0 the maximum is 83, so this should be safe. */
enum { UNICODE_CHARACTER_NAME_LENGTH_BOUND = 200 };
-/* Read a \-escape sequence, assuming we already read the `\'.
- If the escape sequence forces unibyte, return eight-bit char. */
-
+/* Read a character escape sequence, assuming we just read a backslash
+ and one more character (next_char). */
static int
-read_escape (Lisp_Object readcharfun)
+read_char_escape (Lisp_Object readcharfun, int next_char)
{
- int c = READCHAR;
- /* \u allows up to four hex digits, \U up to eight. Default to the
- behavior for \u, and change this value in the case that \U is seen. */
- int unicode_hex_count = 4;
+ int modifiers = 0;
+ ptrdiff_t ncontrol = 0;
+ int chr;
+
+ again: ;
+ int c = next_char;
+ int unicode_hex_count;
+ int mod;
switch (c)
{
case -1:
end_of_file_error ();
- case 'a':
- return '\007';
- case 'b':
- return '\b';
- case 'd':
- return 0177;
- case 'e':
- return 033;
- case 'f':
- return '\f';
- case 'n':
- return '\n';
- case 'r':
- return '\r';
- case 't':
- return '\t';
- case 'v':
- return '\v';
+ case 'a': chr = '\a'; break;
+ case 'b': chr = '\b'; break;
+ case 'd': chr = 127; break;
+ case 'e': chr = 27; break;
+ case 'f': chr = '\f'; break;
+ case 'n': chr = '\n'; break;
+ case 'r': chr = '\r'; break;
+ case 't': chr = '\t'; break;
+ case 'v': chr = '\v'; break;
case '\n':
/* ?\LF is an error; it's probably a user mistake. */
- error ("Invalid escape character syntax");
-
- case 'M':
- c = READCHAR;
- if (c != '-')
- error ("Invalid escape character syntax");
- c = READCHAR;
- if (c == '\\')
- c = read_escape (readcharfun);
- return c | meta_modifier;
+ error ("Invalid escape char syntax: \\<newline>");
- case 'S':
- c = READCHAR;
- if (c != '-')
- error ("Invalid escape character syntax");
- c = READCHAR;
- if (c == '\\')
- c = read_escape (readcharfun);
- return c | shift_modifier;
+ /* \M-x etc: set modifier bit and parse the char to which it applies,
+ allowing for chains such as \M-\S-\A-\H-\s-\C-q. */
+ case 'M': mod = meta_modifier; goto mod_key;
+ case 'S': mod = shift_modifier; goto mod_key;
+ case 'H': mod = hyper_modifier; goto mod_key;
+ case 'A': mod = alt_modifier; goto mod_key;
+ case 's': mod = super_modifier; goto mod_key;
- case 'H':
- c = READCHAR;
- if (c != '-')
- error ("Invalid escape character syntax");
- c = READCHAR;
- if (c == '\\')
- c = read_escape (readcharfun);
- return c | hyper_modifier;
-
- case 'A':
- c = READCHAR;
- if (c != '-')
- error ("Invalid escape character syntax");
- c = READCHAR;
- if (c == '\\')
- c = read_escape (readcharfun);
- return c | alt_modifier;
-
- case 's':
- c = READCHAR;
- if (c != '-')
- {
- UNREAD (c);
- return ' ';
- }
- c = READCHAR;
- if (c == '\\')
- c = read_escape (readcharfun);
- return c | super_modifier;
+ mod_key:
+ {
+ int c1 = READCHAR;
+ if (c1 != '-')
+ {
+ if (c == 's')
+ {
+ /* \s not followed by a hyphen is SPC. */
+ UNREAD (c1);
+ chr = ' ';
+ break;
+ }
+ else
+ /* \M, \S, \H, \A not followed by a hyphen is an error. */
+ error ("Invalid escape char syntax: \\%c not followed by -", c);
+ }
+ modifiers |= mod;
+ c1 = READCHAR;
+ if (c1 == '\\')
+ {
+ next_char = READCHAR;
+ goto again;
+ }
+ chr = c1;
+ break;
+ }
+ /* Control modifiers (\C-x or \^x) are messy and not actually idempotent.
+ For example, ?\C-\C-a = ?\C-\001 = 0x4000001.
+ Keep a count of them and apply them separately. */
case 'C':
- c = READCHAR;
- if (c != '-')
- error ("Invalid escape character syntax");
+ {
+ int c1 = READCHAR;
+ if (c1 != '-')
+ error ("Invalid escape char syntax: \\%c not followed by -", c);
+ }
FALLTHROUGH;
+ /* The prefixes \C- and \^ are equivalent. */
case '^':
- c = READCHAR;
- if (c == '\\')
- c = read_escape (readcharfun);
- if ((c & ~CHAR_MODIFIER_MASK) == '?')
- return 0177 | (c & CHAR_MODIFIER_MASK);
- else if (! ASCII_CHAR_P ((c & ~CHAR_MODIFIER_MASK)))
- return c | ctrl_modifier;
- /* ASCII control chars are made from letters (both cases),
- as well as the non-letters within 0100...0137. */
- else if ((c & 0137) >= 0101 && (c & 0137) <= 0132)
- return (c & (037 | ~0177));
- else if ((c & 0177) >= 0100 && (c & 0177) <= 0137)
- return (c & (037 | ~0177));
- else
- return c | ctrl_modifier;
-
- case '0':
- case '1':
- case '2':
- case '3':
- case '4':
- case '5':
- case '6':
- case '7':
- /* An octal escape, as in ANSI C. */
{
- register int i = c - '0';
- register int count = 0;
- while (++count < 3)
+ ncontrol++;
+ int c1 = READCHAR;
+ if (c1 == '\\')
{
- if ((c = READCHAR) >= '0' && c <= '7')
- {
- i *= 8;
- i += c - '0';
- }
- else
+ next_char = READCHAR;
+ goto again;
+ }
+ chr = c1;
+ break;
+ }
+
+ /* 1-3 octal digits. Values in 0x80..0xff are encoded as raw bytes. */
+ case '0': case '1': case '2': case '3':
+ case '4': case '5': case '6': case '7':
+ {
+ int i = c - '0';
+ int count = 0;
+ while (count < 2)
+ {
+ int c = READCHAR;
+ if (c < '0' || c > '7')
{
UNREAD (c);
break;
}
+ i = (i << 3) + (c - '0');
+ count++;
}
if (i >= 0x80 && i < 0x100)
i = BYTE8_TO_CHAR (i);
- return i;
+ chr = i;
+ break;
}
+ /* 1 or more hex digits. Values may encode modifiers.
+ Values in 0x80..0xff using 2 hex digits are encoded as raw bytes. */
case 'x':
- /* A hex escape, as in ANSI C. */
{
unsigned int i = 0;
int count = 0;
while (1)
{
- c = READCHAR;
+ int c = READCHAR;
int digit = char_hexdigit (c);
if (digit < 0)
{
@@ -2796,40 +2774,37 @@ read_escape (Lisp_Object readcharfun)
i = (i << 4) + digit;
/* Allow hex escapes as large as ?\xfffffff, because some
packages use them to denote characters with modifiers. */
- if ((CHAR_META | (CHAR_META - 1)) < i)
+ if (i > (CHAR_META | (CHAR_META - 1)))
error ("Hex character out of range: \\x%x...", i);
count += count < 3;
}
+ if (count == 0)
+ error ("Invalid escape char syntax: \\x not followed by hex digit");
if (count < 3 && i >= 0x80)
- return BYTE8_TO_CHAR (i);
- return i;
+ i = BYTE8_TO_CHAR (i);
+ modifiers |= i & CHAR_MODIFIER_MASK;
+ chr = i & ~CHAR_MODIFIER_MASK;
+ break;
}
+ /* 8-digit Unicode hex escape: \UHHHHHHHH */
case 'U':
- /* Post-Unicode-2.0: Up to eight hex chars. */
unicode_hex_count = 8;
- FALLTHROUGH;
- case 'u':
+ goto unicode_hex;
- /* A Unicode escape. We only permit them in strings and characters,
- not arbitrarily in the source code, as in some other languages. */
+ /* 4-digit Unicode hex escape: \uHHHH */
+ case 'u':
+ unicode_hex_count = 4;
+ unicode_hex:
{
unsigned int i = 0;
- int count = 0;
-
- while (++count <= unicode_hex_count)
+ for (int count = 0; count < unicode_hex_count; count++)
{
- c = READCHAR;
+ int c = READCHAR;
if (c < 0)
- {
- if (unicode_hex_count > 4)
- error ("Malformed Unicode escape: \\U%x", i);
- else
- error ("Malformed Unicode escape: \\u%x", i);
- }
- /* `isdigit' and `isalpha' may be locale-specific, which we don't
- want. */
+ error ("Malformed Unicode escape: \\%c%x",
+ unicode_hex_count == 4 ? 'u' : 'U', i);
int digit = char_hexdigit (c);
if (digit < 0)
error ("Non-hex character used for Unicode escape: %c (%d)",
@@ -2838,13 +2813,14 @@ read_escape (Lisp_Object readcharfun)
}
if (i > 0x10FFFF)
error ("Non-Unicode character: 0x%x", i);
- return i;
+ chr = i;
+ break;
}
+ /* Named character: \N{name} */
case 'N':
- /* Named character. */
{
- c = READCHAR;
+ int c = READCHAR;
if (c != '{')
invalid_syntax ("Expected opening brace after \\N", readcharfun);
char name[UNICODE_CHARACTER_NAME_LENGTH_BOUND + 1];
@@ -2852,12 +2828,12 @@ read_escape (Lisp_Object readcharfun)
ptrdiff_t length = 0;
while (true)
{
- c = READCHAR;
+ int c = READCHAR;
if (c < 0)
end_of_file_error ();
if (c == '}')
break;
- if (! (0 < c && c < 0x80))
+ if (c >= 0x80)
{
AUTO_STRING (format,
"Invalid character U+%04X in character name");
@@ -2886,13 +2862,41 @@ read_escape (Lisp_Object readcharfun)
name[length] = '\0';
/* character_name_to_code can invoke read0, recursively.
- This is why read0's buffer is not static. */
- return character_name_to_code (name, length, readcharfun);
+ This is why read0 needs to be re-entrant. */
+ chr = character_name_to_code (name, length, readcharfun);
+ break;
}
default:
- return c;
+ chr = c;
+ break;
+ }
+ eassert (chr >= 0 && chr < (1 << CHARACTERBITS));
+
+ /* Apply Control modifiers, using the rules:
+ \C-X = ascii_ctrl(nomod(X)) | mods(X) if nomod(X) is one of:
+ A-Z a-z ? @ [ \ ] ^ _
+
+ X | ctrl_modifier otherwise
+
+ where
+ nomod(c) = c without modifiers
+ mods(c) = the modifiers of c
+ ascii_ctrl(c) = 127 if c = '?'
+ c & 0x1f otherwise
+ */
+ while (ncontrol > 0)
+ {
+ if ((chr >= '@' && chr <= '_') || (chr >= 'a' && chr <= 'z'))
+ chr &= 0x1f;
+ else if (chr == '?')
+ chr = 127;
+ else
+ modifiers |= ctrl_modifier;
+ ncontrol--;
}
+
+ return chr | modifiers;
}
/* Return the digit that CHARACTER stands for in the given BASE.
@@ -3014,7 +3018,7 @@ read_char_literal (Lisp_Object readcharfun)
}
if (ch == '\\')
- ch = read_escape (readcharfun);
+ ch = read_char_escape (readcharfun, READCHAR);
int modifiers = ch & CHAR_MODIFIER_MASK;
ch &= ~CHAR_MODIFIER_MASK;
@@ -3080,8 +3084,7 @@ read_string_literal (Lisp_Object readcharfun)
/* `\SPC' and `\LF' generate no characters at all. */
continue;
default:
- UNREAD (ch);
- ch = read_escape (readcharfun);
+ ch = read_char_escape (readcharfun, ch);
break;
}
@@ -3374,8 +3377,8 @@ read_bool_vector (Lisp_Object readcharfun)
invalid_syntax ("#&", readcharfun);
break;
}
- if (INT_MULTIPLY_WRAPV (length, 10, &length)
- || INT_ADD_WRAPV (length, c - '0', &length))
+ if (ckd_mul (&length, length, 10)
+ || ckd_add (&length, length, c - '0'))
invalid_syntax ("#&", readcharfun);
}
@@ -3399,8 +3402,9 @@ read_bool_vector (Lisp_Object readcharfun)
}
/* Skip (and optionally remember) a lazily-loaded string
- preceded by "#@". */
-static void
+ preceded by "#@". Return true if this was a normal skip,
+ false if we read #@00 (which skips to EOB/EOF). */
+static bool
skip_lazy_string (Lisp_Object readcharfun)
{
ptrdiff_t nskip = 0;
@@ -3420,15 +3424,15 @@ skip_lazy_string (Lisp_Object readcharfun)
UNREAD (c);
break;
}
- if (INT_MULTIPLY_WRAPV (nskip, 10, &nskip)
- || INT_ADD_WRAPV (nskip, c - '0', &nskip))
+ if (ckd_mul (&nskip, nskip, 10)
+ || ckd_add (&nskip, nskip, c - '0'))
invalid_syntax ("#@", readcharfun);
digits++;
if (digits == 2 && nskip == 0)
{
- /* #@00 means "skip to end" */
+ /* #@00 means "read nil and skip to end" */
skip_dyn_eof (readcharfun);
- return;
+ return false;
}
}
@@ -3475,6 +3479,8 @@ skip_lazy_string (Lisp_Object readcharfun)
else
/* Skip that many bytes. */
skip_dyn_bytes (readcharfun, nskip);
+
+ return true;
}
/* Given a lazy-loaded string designator VAL, return the actual string.
@@ -3932,8 +3938,10 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
/* #@NUMBER is used to skip NUMBER following bytes.
That's used in .elc files to skip over doc strings
and function definitions that can be loaded lazily. */
- skip_lazy_string (readcharfun);
- goto read_obj;
+ if (skip_lazy_string (readcharfun))
+ goto read_obj;
+ obj = Qnil; /* #@00 skips to EOB/EOF and yields nil. */
+ break;
case '$':
/* #$ -- reference to lazy-loaded string */
@@ -3985,8 +3993,8 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
c = READCHAR;
if (c < '0' || c > '9')
break;
- if (INT_MULTIPLY_WRAPV (n, 10, &n)
- || INT_ADD_WRAPV (n, c - '0', &n))
+ if (ckd_mul (&n, n, 10)
+ || ckd_add (&n, n, c - '0'))
invalid_syntax ("#", readcharfun);
}
if (c == 'r' || c == 'R')
diff --git a/src/macfont.m b/src/macfont.m
index d0cdbcd08c7..9f9f6f4efaf 100644
--- a/src/macfont.m
+++ b/src/macfont.m
@@ -632,21 +632,35 @@ get_cgcolor_from_nscolor (NSColor *nsColor, struct frame
*f)
#define CG_SET_FILL_COLOR_WITH_FACE_FOREGROUND(context, face) \
do { \
- CGColorRef refcol_ = get_cgcolor (NS_FACE_FOREGROUND (face)); \
- CGContextSetFillColorWithColor (context, refcol_) ; \
- CGColorRelease (refcol_); \
+ CGColorRef refcol = get_cgcolor (NS_FACE_FOREGROUND (face)); \
+ CGContextSetFillColorWithColor (context, refcol); \
+ CGColorRelease (refcol); \
} while (0)
#define CG_SET_FILL_COLOR_WITH_FACE_BACKGROUND(context, face) \
do { \
- CGColorRef refcol_ = get_cgcolor (NS_FACE_BACKGROUND (face)); \
- CGContextSetFillColorWithColor (context, refcol_); \
- CGColorRelease (refcol_); \
+ CGColorRef refcol = get_cgcolor (NS_FACE_BACKGROUND (face)); \
+ CGContextSetFillColorWithColor (context, refcol); \
+ CGColorRelease (refcol); \
+ } while (0)
+#define CG_SET_FILL_COLOR_WITH_FRAME_CURSOR(context, frame) \
+ do { \
+ CGColorRef refcol \
+ = get_cgcolor_from_nscolor (FRAME_CURSOR_COLOR (frame), frame); \
+ CGContextSetFillColorWithColor (context, refcol); \
+ CGColorRelease (refcol); \
+ } while (0)
+#define CG_SET_FILL_COLOR_WITH_FRAME_BACKGROUND(context, frame) \
+ do { \
+ CGColorRef refcol \
+ = get_cgcolor_from_nscolor (FRAME_BACKGROUND_COLOR (frame), frame); \
+ CGContextSetFillColorWithColor (context, refcol); \
+ CGColorRelease (refcol); \
} while (0)
#define CG_SET_STROKE_COLOR_WITH_FACE_FOREGROUND(context, face) \
do { \
- CGColorRef refcol_ = get_cgcolor (NS_FACE_FOREGROUND (face)); \
- CGContextSetStrokeColorWithColor (context, refcol_); \
- CGColorRelease (refcol_); \
+ CGColorRef refcol = get_cgcolor (NS_FACE_FOREGROUND (face)); \
+ CGContextSetStrokeColorWithColor (context, refcol); \
+ CGColorRelease (refcol); \
} while (0)
@@ -2933,9 +2947,12 @@ macfont_draw (struct glyph_string *s, int from, int to,
int x, int y,
{
if (s->hl == DRAW_CURSOR)
{
- CGColorRef colorref = get_cgcolor_from_nscolor (FRAME_CURSOR_COLOR
(f), f);
- CGContextSetFillColorWithColor (context, colorref);
- CGColorRelease (colorref);
+ if (face && (NS_FACE_BACKGROUND (face)
+ == [(NSColor *) FRAME_CURSOR_COLOR (f)
+ unsignedLong]))
+ CG_SET_FILL_COLOR_WITH_FACE_FOREGROUND (context, face);
+ else
+ CG_SET_FILL_COLOR_WITH_FRAME_CURSOR (context, f);
}
else
CG_SET_FILL_COLOR_WITH_FACE_BACKGROUND (context, face);
@@ -2949,9 +2966,12 @@ macfont_draw (struct glyph_string *s, int from, int to,
int x, int y,
CGContextScaleCTM (context, 1, -1);
if (s->hl == DRAW_CURSOR)
{
- CGColorRef colorref = get_cgcolor_from_nscolor
(FRAME_BACKGROUND_COLOR (f), f);
- CGContextSetFillColorWithColor (context, colorref);
- CGColorRelease (colorref);
+ if (face && (NS_FACE_BACKGROUND (face)
+ == [(NSColor *) FRAME_CURSOR_COLOR (f)
+ unsignedLong]))
+ CG_SET_FILL_COLOR_WITH_FACE_BACKGROUND (context, face);
+ else
+ CG_SET_FILL_COLOR_WITH_FRAME_BACKGROUND (context, f);
}
else
CG_SET_FILL_COLOR_WITH_FACE_FOREGROUND (context, face);
diff --git a/src/nsterm.m b/src/nsterm.m
index 0e75cbf3f0f..3e089cc1ff1 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -2704,11 +2704,12 @@ ns_scroll_run (struct window *w, struct run *run)
{
NSRect srcRect = NSMakeRect (x, from_y, width, height);
NSPoint dest = NSMakePoint (x, to_y);
+ NSRect destRect = NSMakeRect (x, from_y, width, height);
EmacsView *view = FRAME_NS_VIEW (f);
[view copyRect:srcRect to:dest];
#ifdef NS_IMPL_COCOA
- [view setNeedsDisplayInRect:srcRect];
+ [view setNeedsDisplayInRect:destRect];
#endif
}
@@ -3750,14 +3751,18 @@ ns_maybe_dumpglyphs_background (struct glyph_string *s,
char force_p)
{
struct face *face = s->face;
if (!face->stipple)
- {
- if (s->hl != DRAW_CURSOR)
- [(NS_FACE_BACKGROUND (face) != 0
- ? [NSColor colorWithUnsignedLong:NS_FACE_BACKGROUND (face)]
- : FRAME_BACKGROUND_COLOR (s->f)) set];
- else
- [FRAME_CURSOR_COLOR (s->f) set];
- }
+ {
+ if (s->hl != DRAW_CURSOR)
+ [(NS_FACE_BACKGROUND (face) != 0
+ ? [NSColor colorWithUnsignedLong:NS_FACE_BACKGROUND (face)]
+ : FRAME_BACKGROUND_COLOR (s->f)) set];
+ else if (face && (NS_FACE_BACKGROUND (face)
+ == [(NSColor *) FRAME_CURSOR_COLOR (s->f)
+ unsignedLong]))
+ [[NSColor colorWithUnsignedLong:NS_FACE_FOREGROUND (face)]
set];
+ else
+ [FRAME_CURSOR_COLOR (s->f) set];
+ }
else
{
struct ns_display_info *dpyinfo = FRAME_DISPLAY_INFO (s->f);
@@ -4603,7 +4608,7 @@ ns_send_appdefined (int value)
#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 1070
static void
-check_native_fs ()
+check_native_fs (void)
{
Lisp_Object frame, tail;
@@ -7926,6 +7931,10 @@ ns_in_echo_area (void)
[self setLayerContentsRedrawPolicy:
NSViewLayerContentsRedrawOnSetNeedsDisplay];
[self setLayerContentsPlacement:NSViewLayerContentsPlacementTopLeft];
+
+ /* initWithEmacsFrame can't create the toolbar before the layer is
+ set, so have another go at creating the toolbar here. */
+ [(EmacsWindow*)[self window] createToolbar:f];
#endif
if (ns_drag_types)
@@ -8573,6 +8582,10 @@ ns_in_echo_area (void)
return self;
}
+- (BOOL) validateToolbarItem: (NSToolbarItem *) toolbarItem
+{
+ return [toolbarItem isEnabled];
+}
- (instancetype)toggleToolbar: (id)sender
{
@@ -9166,11 +9179,18 @@ ns_in_echo_area (void)
- (void)createToolbar: (struct frame *)f
{
- if (FRAME_UNDECORATED (f) || !FRAME_EXTERNAL_TOOL_BAR (f))
+ if (FRAME_UNDECORATED (f) || !FRAME_EXTERNAL_TOOL_BAR (f) || [self toolbar]
!= nil)
return;
EmacsView *view = (EmacsView *)FRAME_NS_VIEW (f);
+#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MIN_REQUIRED >= 101400
+ /* If the view's layer isn't an EmacsLayer then we can't create the
+ toolbar yet. */
+ if (! [[view layer] isKindOfClass:[EmacsLayer class]])
+ return;
+#endif
+
EmacsToolbar *toolbar = [[EmacsToolbar alloc]
initForView:view
withIdentifier:[NSString stringWithFormat:@"%p",
f]];
diff --git a/src/pdumper.c b/src/pdumper.c
index c79e32b971b..5ef077e09f2 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -103,7 +103,6 @@ verify (sizeof (intptr_t) == sizeof (ptrdiff_t));
verify (sizeof (void (*) (void)) == sizeof (void *));
verify (sizeof (ptrdiff_t) <= sizeof (Lisp_Object));
verify (sizeof (ptrdiff_t) <= sizeof (EMACS_INT));
-verify (CHAR_BIT == 8);
static size_t
divide_round_up (size_t x, size_t y)
@@ -133,6 +132,7 @@ static int nr_remembered_data = 0;
typedef int_least32_t dump_off;
#define DUMP_OFF_MIN INT_LEAST32_MIN
#define DUMP_OFF_MAX INT_LEAST32_MAX
+#define DUMP_OFF_WIDTH INT_LEAST32_WIDTH
#define PRIdDUMP_OFF PRIdLEAST32
enum { EMACS_INT_XDIGITS = (EMACS_INT_WIDTH + 3) / 4 };
@@ -222,8 +222,7 @@ enum emacs_reloc_type
enum
{
EMACS_RELOC_TYPE_BITS = 3,
- EMACS_RELOC_LENGTH_BITS = (sizeof (dump_off) * CHAR_BIT
- - EMACS_RELOC_TYPE_BITS)
+ EMACS_RELOC_LENGTH_BITS = DUMP_OFF_WIDTH - EMACS_RELOC_TYPE_BITS
};
struct emacs_reloc
@@ -273,7 +272,7 @@ enum
dump. Always suitable for heap objects; may be more aligned. */
DUMP_ALIGNMENT = max (GCALIGNMENT, DUMP_RELOCATION_ALIGNMENT),
- DUMP_RELOC_OFFSET_BITS = sizeof (dump_off) * CHAR_BIT - DUMP_RELOC_TYPE_BITS
+ DUMP_RELOC_OFFSET_BITS = DUMP_OFF_WIDTH - DUMP_RELOC_TYPE_BITS
};
verify (RELOC_DUMP_TO_EMACS_LV + 8 < (1 << DUMP_RELOC_TYPE_BITS));
@@ -2459,10 +2458,10 @@ dump_symbol (struct dump_context *ctx,
Lisp_Object object,
dump_off offset)
{
-#if CHECK_STRUCTS && !defined HASH_Lisp_Symbol_999DC26DEC
+#if CHECK_STRUCTS && !defined HASH_Lisp_Symbol_61B174C9F4
# error "Lisp_Symbol changed. See CHECK_STRUCTS comment in config.h."
#endif
-#if CHECK_STRUCTS && !defined (HASH_symbol_redirect_ADB4F5B113)
+#if CHECK_STRUCTS && !defined (HASH_symbol_redirect_EA72E4BFF5)
# error "symbol_redirect changed. See CHECK_STRUCTS comment in config.h."
#endif
@@ -5001,6 +5000,7 @@ dump_mmap_contiguous (struct dump_memory_map *maps, int
nr_maps)
}
typedef uint_fast32_t dump_bitset_word;
+#define DUMP_BITSET_WORD_WIDTH UINT_FAST32_WIDTH
struct dump_bitset
{
@@ -5011,9 +5011,9 @@ struct dump_bitset
static bool
dump_bitsets_init (struct dump_bitset bitset[2], size_t number_bits)
{
- int xword_size = sizeof (bitset[0].bits[0]);
- int bits_per_word = xword_size * CHAR_BIT;
- ptrdiff_t words_needed = divide_round_up (number_bits, bits_per_word);
+ int xword_size = sizeof (dump_bitset_word);
+ ptrdiff_t words_needed = divide_round_up (number_bits,
+ DUMP_BITSET_WORD_WIDTH);
dump_bitset_word *bits = calloc (words_needed, 2 * xword_size);
if (!bits)
return false;
@@ -5028,9 +5028,7 @@ static dump_bitset_word *
dump_bitset__bit_slot (const struct dump_bitset *bitset,
size_t bit_number)
{
- int xword_size = sizeof (bitset->bits[0]);
- int bits_per_word = xword_size * CHAR_BIT;
- ptrdiff_t word_number = bit_number / bits_per_word;
+ ptrdiff_t word_number = bit_number / DUMP_BITSET_WORD_WIDTH;
eassert (word_number < bitset->number_words);
return &bitset->bits[word_number];
}
@@ -5039,10 +5037,8 @@ static bool
dump_bitset_bit_set_p (const struct dump_bitset *bitset,
size_t bit_number)
{
- unsigned xword_size = sizeof (bitset->bits[0]);
- unsigned bits_per_word = xword_size * CHAR_BIT;
dump_bitset_word bit = 1;
- bit <<= bit_number % bits_per_word;
+ bit <<= bit_number % DUMP_BITSET_WORD_WIDTH;
return *dump_bitset__bit_slot (bitset, bit_number) & bit;
}
@@ -5051,11 +5047,9 @@ dump_bitset__set_bit_value (struct dump_bitset *bitset,
size_t bit_number,
bool bit_is_set)
{
- int xword_size = sizeof (bitset->bits[0]);
- int bits_per_word = xword_size * CHAR_BIT;
dump_bitset_word *slot = dump_bitset__bit_slot (bitset, bit_number);
dump_bitset_word bit = 1;
- bit <<= bit_number % bits_per_word;
+ bit <<= bit_number % DUMP_BITSET_WORD_WIDTH;
if (bit_is_set)
*slot = *slot | bit;
else
diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index 6e5bb22375a..801f97d26d2 100644
--- a/src/pgtkfns.c
+++ b/src/pgtkfns.c
@@ -398,13 +398,6 @@ pgtk_set_title (struct frame *f, Lisp_Object name,
Lisp_Object old_name)
pgtk_set_name_internal (f, name);
}
-
-void
-pgtk_set_doc_edited (void)
-{
-}
-
-
static void
pgtk_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object
oldval)
{
diff --git a/src/pgtkterm.c b/src/pgtkterm.c
index c00e13550bd..91e4d828f51 100644
--- a/src/pgtkterm.c
+++ b/src/pgtkterm.c
@@ -376,6 +376,13 @@ mark_pgtkterm (void)
for (i = 0; i < n; i++)
{
union buffered_input_event *ev = &evq->q[i];
+
+ /* Selection requests don't have Lisp object members. */
+
+ if (ev->ie.kind == SELECTION_REQUEST_EVENT
+ || ev->ie.kind == SELECTION_CLEAR_EVENT)
+ continue;
+
mark_object (ev->ie.x);
mark_object (ev->ie.y);
mark_object (ev->ie.frame_or_window);
@@ -4954,22 +4961,19 @@ pgtk_clear_under_internal_border (struct frame *f)
if (face)
{
-#define x_fill_rectangle(f, gc, x, y, w, h) \
- fill_background_by_face (f, face, x, y, w, h)
- x_fill_rectangle (f, gc, 0, margin, width, border);
- x_fill_rectangle (f, gc, 0, 0, border, height);
- x_fill_rectangle (f, gc, width - border, 0, border, height);
- x_fill_rectangle (f, gc, 0, height - border, width, border);
-#undef x_fill_rectangle
+ fill_background_by_face (f, face, 0, margin, width, border);
+ fill_background_by_face (f, face, 0, 0, border, height);
+ fill_background_by_face (f, face, width - border, 0, border,
+ height);
+ fill_background_by_face (f, face, 0, height - border, width,
+ border);
}
else
{
-#define x_clear_area(f, x, y, w, h) pgtk_clear_area (f, x, y, w, h)
- x_clear_area (f, 0, 0, border, height);
- x_clear_area (f, 0, margin, width, border);
- x_clear_area (f, width - border, 0, border, height);
- x_clear_area (f, 0, height - border, width, border);
-#undef x_clear_area
+ pgtk_clear_area (f, 0, 0, border, height);
+ pgtk_clear_area (f, 0, margin, width, border);
+ pgtk_clear_area (f, width - border, 0, border, height);
+ pgtk_clear_area (f, 0, height - border, width, border);
}
unblock_input ();
@@ -6835,8 +6839,7 @@ pgtk_term_init (Lisp_Object display_name, char
*resource_name)
Lisp_Object system_name = Fsystem_name ();
ptrdiff_t nbytes;
- if (INT_ADD_WRAPV (SBYTES (Vinvocation_name), SBYTES (system_name) + 2,
- &nbytes))
+ if (ckd_add (&nbytes, SBYTES (Vinvocation_name), SBYTES (system_name) + 2))
memory_full (SIZE_MAX);
dpyinfo->x_id = ++x_display_id;
dpyinfo->x_id_name = xmalloc (nbytes);
diff --git a/src/pgtkterm.h b/src/pgtkterm.h
index 202c6622ce3..8f2f00efdad 100644
--- a/src/pgtkterm.h
+++ b/src/pgtkterm.h
@@ -553,7 +553,6 @@ extern void pgtk_clear_frame (struct frame *);
extern char *pgtk_xlfd_to_fontname (const char *);
/* Implemented in pgtkfns.c. */
-extern void pgtk_set_doc_edited (void);
extern const char *pgtk_get_defaults_value (const char *);
extern const char *pgtk_get_string_resource (XrmDatabase, const char *, const
char *);
extern void pgtk_implicitly_set_name (struct frame *, Lisp_Object,
Lisp_Object);
diff --git a/src/print.c b/src/print.c
index e65b4c40b0e..5c95aeb9a20 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2202,9 +2202,9 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun,
bool escapeflag)
char buf[max (sizeof "from..to..in " + 2 * INT_STRLEN_BOUND (EMACS_INT),
max (sizeof " . #" + INT_STRLEN_BOUND (intmax_t),
max ((sizeof " with data 0x"
- + (sizeof (uintmax_t) * CHAR_BIT + 4 - 1) / 4),
+ + (UINTMAX_WIDTH + 4 - 1) / 4),
40)))];
- current_thread->stack_top = buf;
+ current_thread->stack_top = NEAR_STACK_TOP (buf);
print_obj:
maybe_quit ();
diff --git a/src/profiler.c b/src/profiler.c
index 8247b2e90c6..6217071ef9c 100644
--- a/src/profiler.c
+++ b/src/profiler.c
@@ -49,7 +49,13 @@ static const struct hash_table_test hashtest_profiler =
hashfn_profiler,
};
-static Lisp_Object
+struct profiler_log {
+ Lisp_Object log;
+ EMACS_INT gc_count; /* Samples taken during GC. */
+ EMACS_INT discarded; /* Samples evicted during table overflow. */
+};
+
+static struct profiler_log
make_log (void)
{
/* We use a standard Elisp hash-table object, but we use it in
@@ -60,11 +66,13 @@ make_log (void)
= clip_to_bounds (0, profiler_log_size, MOST_POSITIVE_FIXNUM);
ptrdiff_t max_stack_depth
= clip_to_bounds (0, profiler_max_stack_depth, PTRDIFF_MAX);;
- Lisp_Object log = make_hash_table (hashtest_profiler, heap_size,
- DEFAULT_REHASH_SIZE,
- DEFAULT_REHASH_THRESHOLD,
- Qnil, false);
- struct Lisp_Hash_Table *h = XHASH_TABLE (log);
+ struct profiler_log log
+ = { make_hash_table (hashtest_profiler, heap_size,
+ DEFAULT_REHASH_SIZE,
+ DEFAULT_REHASH_THRESHOLD,
+ Qnil, false),
+ 0, 0 };
+ struct Lisp_Hash_Table *h = XHASH_TABLE (log.log);
/* What is special about our hash-tables is that the values are pre-filled
with the vectors we'll use as keys. */
@@ -116,8 +124,9 @@ static EMACS_INT approximate_median (log_t *log,
}
}
-static void evict_lower_half (log_t *log)
+static void evict_lower_half (struct profiler_log *plog)
{
+ log_t *log = XHASH_TABLE (plog->log);
ptrdiff_t size = ASIZE (log->key_and_value) / 2;
EMACS_INT median = approximate_median (log, 0, size);
@@ -127,6 +136,8 @@ static void evict_lower_half (log_t *log)
if (XFIXNUM (HASH_VALUE (log, i)) <= median)
{
Lisp_Object key = HASH_KEY (log, i);
+ EMACS_INT count = XFIXNUM (HASH_VALUE (log, i));
+ plog->discarded = saturated_add (plog->discarded, count);
{ /* FIXME: we could make this more efficient. */
Lisp_Object tmp;
XSET_HASH_TABLE (tmp, log); /* FIXME: Use make_lisp_ptr. */
@@ -148,12 +159,12 @@ static void evict_lower_half (log_t *log)
size for memory. */
static void
-record_backtrace (log_t *log, EMACS_INT count)
+record_backtrace (struct profiler_log *plog, EMACS_INT count)
{
+ eassert (HASH_TABLE_P (plog->log));
+ log_t *log = XHASH_TABLE (plog->log);
if (log->next_free < 0)
- /* FIXME: transfer the evicted counts to a special entry rather
- than dropping them on the floor. */
- evict_lower_half (log);
+ evict_lower_half (plog);
ptrdiff_t index = log->next_free;
/* Get a "working memory" vector. */
@@ -222,10 +233,10 @@ static enum profiler_cpu_running
profiler_cpu_running;
/* Hash-table log of CPU profiler. */
-static Lisp_Object cpu_log;
+static struct profiler_log cpu;
-/* Separate counter for the time spent in the GC. */
-static EMACS_INT cpu_gc_count;
+/* Hash-table log of Memory profiler. */
+static struct profiler_log memory;
/* The current sampling interval in nanoseconds. */
static EMACS_INT current_sampling_interval;
@@ -233,30 +244,34 @@ static EMACS_INT current_sampling_interval;
/* Signal handler for sampling profiler. */
static void
-handle_profiler_signal (int signal)
+add_sample (struct profiler_log *plog, EMACS_INT count)
{
- if (EQ (backtrace_top_function (), QAutomatic_GC))
+ if (EQ (backtrace_top_function (), QAutomatic_GC)) /* bug#60237 */
/* Special case the time-count inside GC because the hash-table
code is not prepared to be used while the GC is running.
More specifically it uses ASIZE at many places where it does
not expect the ARRAY_MARK_FLAG to be set. We could try and
harden the hash-table code, but it doesn't seem worth the
effort. */
- cpu_gc_count = saturated_add (cpu_gc_count, 1);
+ plog->gc_count = saturated_add (plog->gc_count, count);
else
- {
- EMACS_INT count = 1;
+ record_backtrace (plog, count);
+}
+
+
+static void
+handle_profiler_signal (int signal)
+{
+ EMACS_INT count = 1;
#if defined HAVE_ITIMERSPEC && defined HAVE_TIMER_GETOVERRUN
- if (profiler_timer_ok)
- {
- int overruns = timer_getoverrun (profiler_timer);
- eassert (overruns >= 0);
- count += overruns;
- }
-#endif
- eassert (HASH_TABLE_P (cpu_log));
- record_backtrace (XHASH_TABLE (cpu_log), count);
+ if (profiler_timer_ok)
+ {
+ int overruns = timer_getoverrun (profiler_timer);
+ eassert (overruns >= 0);
+ count += overruns;
}
+#endif
+ add_sample (&cpu, count);
}
static void
@@ -343,11 +358,8 @@ See also `profiler-log-size' and
`profiler-max-stack-depth'. */)
if (profiler_cpu_running)
error ("CPU profiler is already running");
- if (NILP (cpu_log))
- {
- cpu_gc_count = 0;
- cpu_log = make_log ();
- }
+ if (NILP (cpu.log))
+ cpu = make_log ();
int status = setup_cpu_timer (sampling_interval);
if (status < 0)
@@ -409,6 +421,26 @@ DEFUN ("profiler-cpu-running-p",
return profiler_cpu_running ? Qt : Qnil;
}
+static Lisp_Object
+export_log (struct profiler_log *log)
+{
+ Lisp_Object result = log->log;
+ if (log->gc_count)
+ Fputhash (CALLN (Fvector, QAutomatic_GC, Qnil),
+ make_fixnum (log->gc_count),
+ result);
+ if (log->discarded)
+ Fputhash (CALLN (Fvector, QDiscarded_Samples, Qnil),
+ make_fixnum (log->discarded),
+ result);
+ /* Here we're making the log visible to Elisp, so it's not safe any
+ more for our use afterwards since we can't rely on its special
+ pre-allocated keys anymore. So we have to allocate a new one. */
+ if (profiler_cpu_running)
+ *log = make_log ();
+ return result;
+}
+
DEFUN ("profiler-cpu-log", Fprofiler_cpu_log, Sprofiler_cpu_log,
0, 0, 0,
doc: /* Return the current cpu profiler log.
@@ -418,16 +450,7 @@ of functions, where the last few elements may be nil.
Before returning, a new log is allocated for future samples. */)
(void)
{
- Lisp_Object result = cpu_log;
- /* Here we're making the log visible to Elisp, so it's not safe any
- more for our use afterwards since we can't rely on its special
- pre-allocated keys anymore. So we have to allocate a new one. */
- cpu_log = profiler_cpu_running ? make_log () : Qnil;
- Fputhash (make_vector (1, QAutomatic_GC),
- make_fixnum (cpu_gc_count),
- result);
- cpu_gc_count = 0;
- return result;
+ return (export_log (&cpu));
}
#endif /* PROFILER_CPU_SUPPORT */
@@ -436,8 +459,6 @@ Before returning, a new log is allocated for future
samples. */)
/* True if memory profiler is running. */
bool profiler_memory_running;
-static Lisp_Object memory_log;
-
DEFUN ("profiler-memory-start", Fprofiler_memory_start, Sprofiler_memory_start,
0, 0, 0,
doc: /* Start/restart the memory profiler.
@@ -450,8 +471,8 @@ See also `profiler-log-size' and
`profiler-max-stack-depth'. */)
if (profiler_memory_running)
error ("Memory profiler is already running");
- if (NILP (memory_log))
- memory_log = make_log ();
+ if (NILP (memory.log))
+ memory = make_log ();
profiler_memory_running = true;
@@ -490,12 +511,7 @@ of functions, where the last few elements may be nil.
Before returning, a new log is allocated for future samples. */)
(void)
{
- Lisp_Object result = memory_log;
- /* Here we're making the log visible to Elisp , so it's not safe any
- more for our use afterwards since we can't rely on its special
- pre-allocated keys anymore. So we have to allocate a new one. */
- memory_log = profiler_memory_running ? make_log () : Qnil;
- return result;
+ return (export_log (&memory));
}
@@ -505,11 +521,7 @@ Before returning, a new log is allocated for future
samples. */)
void
malloc_probe (size_t size)
{
- if (EQ (backtrace_top_function (), QAutomatic_GC)) /* bug#60237 */
- /* FIXME: We should do something like what we did with `cpu_gc_count`. */
- return;
- eassert (HASH_TABLE_P (memory_log));
- record_backtrace (XHASH_TABLE (memory_log), min (size,
MOST_POSITIVE_FIXNUM));
+ add_sample (&memory, min (size, MOST_POSITIVE_FIXNUM));
}
DEFUN ("function-equal", Ffunction_equal, Sfunction_equal, 2, 2, 0,
@@ -589,21 +601,22 @@ to make room for new entries. */);
profiler_log_size = 10000;
DEFSYM (Qprofiler_backtrace_equal, "profiler-backtrace-equal");
+ DEFSYM (QDiscarded_Samples, "Discarded Samples");
defsubr (&Sfunction_equal);
#ifdef PROFILER_CPU_SUPPORT
profiler_cpu_running = NOT_RUNNING;
- cpu_log = Qnil;
- staticpro (&cpu_log);
+ cpu.log = Qnil;
+ staticpro (&cpu.log);
defsubr (&Sprofiler_cpu_start);
defsubr (&Sprofiler_cpu_stop);
defsubr (&Sprofiler_cpu_running_p);
defsubr (&Sprofiler_cpu_log);
#endif
profiler_memory_running = false;
- memory_log = Qnil;
- staticpro (&memory_log);
+ memory.log = Qnil;
+ staticpro (&memory.log);
defsubr (&Sprofiler_memory_start);
defsubr (&Sprofiler_memory_stop);
defsubr (&Sprofiler_memory_running_p);
@@ -618,16 +631,16 @@ syms_of_profiler_for_pdumper (void)
if (dumped_with_pdumper_p ())
{
#ifdef PROFILER_CPU_SUPPORT
- cpu_log = Qnil;
+ cpu.log = Qnil;
#endif
- memory_log = Qnil;
+ memory.log = Qnil;
}
else
{
#ifdef PROFILER_CPU_SUPPORT
- eassert (NILP (cpu_log));
+ eassert (NILP (cpu.log));
#endif
- eassert (NILP (memory_log));
+ eassert (NILP (memory.log));
}
}
diff --git a/src/regex-emacs.c b/src/regex-emacs.c
index 2571812cb39..e3237cd425a 100644
--- a/src/regex-emacs.c
+++ b/src/regex-emacs.c
@@ -47,13 +47,6 @@
/* Make syntax table lookup grant data in gl_state. */
#define SYNTAX(c) syntax_property (c, 1)
-/* Convert the pointer to the char to BEG-based offset from the start. */
-#define PTR_TO_OFFSET(d) POS_AS_IN_BUFFER (POINTER_TO_OFFSET (d))
-/* Strings are 0-indexed, buffers are 1-indexed; pun on the boolean
- result to get the right base index. */
-#define POS_AS_IN_BUFFER(p) \
- ((p) + (NILP (gl_state.object) || BUFFERP (gl_state.object)))
-
#define RE_MULTIBYTE_P(bufp) ((bufp)->multibyte)
#define RE_TARGET_MULTIBYTE_P(bufp) ((bufp)->target_multibyte)
#define RE_STRING_CHAR(p, multibyte) \
@@ -2209,9 +2202,8 @@ regex_compile (re_char *pattern, ptrdiff_t size,
FALLTHROUGH;
case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
- if (INT_MULTIPLY_WRAPV (regnum, 10, ®num)
- || INT_ADD_WRAPV (regnum, c - '0',
- ®num))
+ if (ckd_mul (®num, regnum, 10)
+ || ckd_add (®num, regnum, c - '0'))
FREE_STACK_RETURN (REG_ESIZE);
break;
default:
@@ -3258,12 +3250,7 @@ re_search_2 (struct re_pattern_buffer *bufp, const char
*str1, ptrdiff_t size1,
/* See whether the pattern is anchored. */
anchored_start = (bufp->buffer[0] == begline);
- gl_state.object = re_match_object; /* Used by SYNTAX_TABLE_BYTE_TO_CHAR. */
- {
- ptrdiff_t charpos = SYNTAX_TABLE_BYTE_TO_CHAR (POS_AS_IN_BUFFER
(startpos));
-
- SETUP_SYNTAX_TABLE_FOR_OBJECT (re_match_object, charpos, 1);
- }
+ RE_SETUP_SYNTAX_TABLE_FOR_OBJECT (re_match_object, startpos);
/* Loop through the string, looking for a place to start matching. */
for (;;)
@@ -3871,10 +3858,7 @@ re_match_2 (struct re_pattern_buffer *bufp,
{
ptrdiff_t result;
- ptrdiff_t charpos;
- gl_state.object = re_match_object; /* Used by SYNTAX_TABLE_BYTE_TO_CHAR. */
- charpos = SYNTAX_TABLE_BYTE_TO_CHAR (POS_AS_IN_BUFFER (pos));
- SETUP_SYNTAX_TABLE_FOR_OBJECT (re_match_object, charpos, 1);
+ RE_SETUP_SYNTAX_TABLE_FOR_OBJECT (re_match_object, pos);
result = re_match_2_internal (bufp, (re_char *) string1, size1,
(re_char *) string2, size2,
@@ -4806,8 +4790,8 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
int c1, c2;
int s1, s2;
int dummy;
- ptrdiff_t offset = PTR_TO_OFFSET (d);
- ptrdiff_t charpos = SYNTAX_TABLE_BYTE_TO_CHAR (offset) - 1;
+ ptrdiff_t offset = POINTER_TO_OFFSET (d);
+ ptrdiff_t charpos = RE_SYNTAX_TABLE_BYTE_TO_CHAR (offset) - 1;
UPDATE_SYNTAX_TABLE (charpos);
GET_CHAR_BEFORE_2 (c1, d, string1, end1, string2, end2);
nchars++;
@@ -4846,8 +4830,8 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
int c1, c2;
int s1, s2;
int dummy;
- ptrdiff_t offset = PTR_TO_OFFSET (d);
- ptrdiff_t charpos = SYNTAX_TABLE_BYTE_TO_CHAR (offset);
+ ptrdiff_t offset = POINTER_TO_OFFSET (d);
+ ptrdiff_t charpos = RE_SYNTAX_TABLE_BYTE_TO_CHAR (offset);
UPDATE_SYNTAX_TABLE (charpos);
PREFETCH ();
GET_CHAR_AFTER (c2, d, dummy);
@@ -4889,8 +4873,8 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
int c1, c2;
int s1, s2;
int dummy;
- ptrdiff_t offset = PTR_TO_OFFSET (d);
- ptrdiff_t charpos = SYNTAX_TABLE_BYTE_TO_CHAR (offset) - 1;
+ ptrdiff_t offset = POINTER_TO_OFFSET (d);
+ ptrdiff_t charpos = RE_SYNTAX_TABLE_BYTE_TO_CHAR (offset) - 1;
UPDATE_SYNTAX_TABLE (charpos);
GET_CHAR_BEFORE_2 (c1, d, string1, end1, string2, end2);
nchars++;
@@ -4931,8 +4915,8 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
is the character at D, and S2 is the syntax of C2. */
int c1, c2;
int s1, s2;
- ptrdiff_t offset = PTR_TO_OFFSET (d);
- ptrdiff_t charpos = SYNTAX_TABLE_BYTE_TO_CHAR (offset);
+ ptrdiff_t offset = POINTER_TO_OFFSET (d);
+ ptrdiff_t charpos = RE_SYNTAX_TABLE_BYTE_TO_CHAR (offset);
UPDATE_SYNTAX_TABLE (charpos);
PREFETCH ();
c2 = RE_STRING_CHAR (d, target_multibyte);
@@ -4972,8 +4956,8 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
is the character at D, and S2 is the syntax of C2. */
int c1, c2;
int s1, s2;
- ptrdiff_t offset = PTR_TO_OFFSET (d);
- ptrdiff_t charpos = SYNTAX_TABLE_BYTE_TO_CHAR (offset) - 1;
+ ptrdiff_t offset = POINTER_TO_OFFSET (d);
+ ptrdiff_t charpos = RE_SYNTAX_TABLE_BYTE_TO_CHAR (offset) - 1;
UPDATE_SYNTAX_TABLE (charpos);
GET_CHAR_BEFORE_2 (c1, d, string1, end1, string2, end2);
nchars++;
@@ -5008,8 +4992,8 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
mcnt);
PREFETCH ();
{
- ptrdiff_t offset = PTR_TO_OFFSET (d);
- ptrdiff_t pos1 = SYNTAX_TABLE_BYTE_TO_CHAR (offset);
+ ptrdiff_t offset = POINTER_TO_OFFSET (d);
+ ptrdiff_t pos1 = RE_SYNTAX_TABLE_BYTE_TO_CHAR (offset);
UPDATE_SYNTAX_TABLE (pos1);
}
{
diff --git a/src/regex-emacs.h b/src/regex-emacs.h
index 1bc973363e9..bc357633135 100644
--- a/src/regex-emacs.h
+++ b/src/regex-emacs.h
@@ -187,7 +187,8 @@ typedef enum { RECC_ERROR = 0,
RECC_DIGIT, RECC_XDIGIT,
RECC_BLANK, RECC_SPACE,
RECC_MULTIBYTE, RECC_NONASCII,
- RECC_ASCII, RECC_UNIBYTE
+ RECC_ASCII, RECC_UNIBYTE,
+ RECC_NUM_CLASSES = RECC_UNIBYTE
} re_wctype_t;
extern bool re_iswctype (int ch, re_wctype_t cc);
diff --git a/src/sort.c b/src/sort.c
index 34d0d690198..706c057dab0 100644
--- a/src/sort.c
+++ b/src/sort.c
@@ -40,7 +40,7 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
minimal length. So the number of bits in a ptrdiff_t is plenty large
enough for all cases. */
-#define MAX_MERGE_PENDING (sizeof (ptrdiff_t) * 8)
+#define MAX_MERGE_PENDING PTRDIFF_WIDTH
/* Once we get into galloping mode, we stay there as long as both runs
win at least GALLOP_WIN_MIN consecutive times. */
diff --git a/src/sqlite.c b/src/sqlite.c
index 0361514766a..fd528f2b0d5 100644
--- a/src/sqlite.c
+++ b/src/sqlite.c
@@ -23,6 +23,8 @@ YOSHIDA <syohex@gmail.com>, which can be found at:
https://github.com/syohex/emacs-sqlite3 */
#include <config.h>
+
+#include <c-strcase.h>
#include "lisp.h"
#include "coding.h"
@@ -30,6 +32,17 @@ YOSHIDA <syohex@gmail.com>, which can be found at:
#include <sqlite3.h>
+/* Support for loading SQLite extensions requires the ability to
+ enable and disable loading of extensions (by default this is
+ disabled, and we want to keep it that way). The required macro is
+ available since SQLite 3.13. */
+# if defined HAVE_SQLITE3_LOAD_EXTENSION && \
+ defined SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION
+# define HAVE_LOAD_EXTENSION 1
+# else
+# define HAVE_LOAD_EXTENSION 0
+# endif
+
#ifdef WINDOWSNT
# include <windows.h>
@@ -75,11 +88,14 @@ DEF_DLL_FN (SQLITE_API int, sqlite3_exec,
DEF_DLL_FN (SQLITE_API int, sqlite3_prepare_v2,
(sqlite3*, const char*, int, sqlite3_stmt**, const char**));
-# ifdef HAVE_SQLITE3_LOAD_EXTENSION
+# if HAVE_LOAD_EXTENSION
DEF_DLL_FN (SQLITE_API int, sqlite3_load_extension,
(sqlite3*, const char*, const char*, char**));
# undef sqlite3_load_extension
# define sqlite3_load_extension fn_sqlite3_load_extension
+DEF_DLL_FN (SQLITE_API int, sqlite3_db_config, (sqlite3*, int, ...));
+# undef sqlite3_db_config
+# define sqlite3_db_config fn_sqlite3_db_config
# endif
# undef sqlite3_finalize
@@ -170,8 +186,9 @@ load_dll_functions (HMODULE library)
LOAD_DLL_FN (library, sqlite3_column_text);
LOAD_DLL_FN (library, sqlite3_column_name);
LOAD_DLL_FN (library, sqlite3_exec);
-# ifdef HAVE_SQLITE3_LOAD_EXTENSION
+# if HAVE_LOAD_EXTENSION
LOAD_DLL_FN (library, sqlite3_load_extension);
+ LOAD_DLL_FN (library, sqlite3_db_config);
# endif
LOAD_DLL_FN (library, sqlite3_prepare_v2);
return true;
@@ -669,7 +686,7 @@ DEFUN ("sqlite-pragma", Fsqlite_pragma, Ssqlite_pragma, 2,
2, 0,
SSDATA (concat2 (build_string ("PRAGMA "), pragma)));
}
-#ifdef HAVE_SQLITE3_LOAD_EXTENSION
+#if HAVE_LOAD_EXTENSION
DEFUN ("sqlite-load-extension", Fsqlite_load_extension,
Ssqlite_load_extension, 2, 2, 0,
doc: /* Load an SQlite MODULE into DB.
@@ -684,9 +701,28 @@ Only modules on Emacs' list of allowed modules can be
loaded. */)
CHECK_STRING (module);
/* Add names of useful and free modules here. */
- const char *allowlist[3] = { "pcre", "csvtable", NULL };
+ const char *allowlist[] = {
+ "base64",
+ "cksumvfs",
+ "compress",
+ "csv",
+ "csvtable",
+ "fts3",
+ "icu",
+ "pcre",
+ "percentile",
+ "regexp",
+ "rot13",
+ "rtree",
+ "sha1",
+ "uuid",
+ "vfslog",
+ "zipfile",
+ NULL
+ };
char *name = SSDATA (Ffile_name_nondirectory (module));
- /* Possibly skip past a common prefix. */
+ /* Possibly skip past a common prefix (libsqlite3_mod_ is used by
+ Debian, see https://packages.debian.org/source/sid/sqliteodbc). */
const char *prefix = "libsqlite3_mod_";
if (!strncmp (name, prefix, strlen (prefix)))
name += strlen (prefix);
@@ -694,10 +730,12 @@ Only modules on Emacs' list of allowed modules can be
loaded. */)
bool do_allow = false;
for (const char **allow = allowlist; *allow; allow++)
{
- if (strlen (*allow) < strlen (name)
- && !strncmp (*allow, name, strlen (*allow))
- && (!strcmp (name + strlen (*allow), ".so")
- || !strcmp (name + strlen (*allow), ".DLL")))
+ ptrdiff_t allow_len = strlen (*allow);
+ if (allow_len < strlen (name)
+ && !strncmp (*allow, name, allow_len)
+ && (!strcmp (name + allow_len, ".so")
+ ||!strcmp (name + allow_len, ".dylib")
+ || !strcasecmp (name + allow_len, ".dll")))
{
do_allow = true;
break;
@@ -707,15 +745,25 @@ Only modules on Emacs' list of allowed modules can be
loaded. */)
if (!do_allow)
xsignal1 (Qsqlite_error, build_string ("Module name not on allowlist"));
- int result = sqlite3_load_extension
- (XSQLITE (db)->db,
- SSDATA (ENCODE_FILE (Fexpand_file_name (module, Qnil))),
- NULL, NULL);
- if (result == SQLITE_OK)
- return Qt;
+ /* Expand all Lisp data explicitly, so as to avoid signaling an
+ error while extension loading is enabled -- we don't want to
+ "leak" this outside this function. */
+ sqlite3 *sdb = XSQLITE (db)->db;
+ char *ext_fn = SSDATA (ENCODE_FILE (Fexpand_file_name (module, Qnil)));
+ /* Temporarily enable loading extensions via the C API. */
+ int result = sqlite3_db_config (sdb, SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION,
1,
+ NULL);
+ if (result == SQLITE_OK)
+ {
+ result = sqlite3_load_extension (sdb, ext_fn, NULL, NULL);
+ /* Disable loading extensions via C API. */
+ sqlite3_db_config (sdb, SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION, 0, NULL);
+ if (result == SQLITE_OK)
+ return Qt;
+ }
return Qnil;
}
-#endif /* HAVE_SQLITE3_LOAD_EXTENSION */
+#endif /* HAVE_LOAD_EXTENSION */
DEFUN ("sqlite-next", Fsqlite_next, Ssqlite_next, 1, 1, 0,
doc: /* Return the next result set from SET.
@@ -825,7 +873,7 @@ syms_of_sqlite (void)
defsubr (&Ssqlite_commit);
defsubr (&Ssqlite_rollback);
defsubr (&Ssqlite_pragma);
-#ifdef HAVE_SQLITE3_LOAD_EXTENSION
+#if HAVE_LOAD_EXTENSION
defsubr (&Ssqlite_load_extension);
#endif
defsubr (&Ssqlite_next);
diff --git a/src/syntax.c b/src/syntax.c
index 79e16f652f3..0cac923bba7 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -178,14 +178,14 @@ static ptrdiff_t find_start_begv;
static modiff_count find_start_modiff;
-static Lisp_Object skip_chars (bool, Lisp_Object, Lisp_Object, bool);
+static Lisp_Object skip_chars (bool, Lisp_Object, Lisp_Object);
static Lisp_Object skip_syntaxes (bool, Lisp_Object, Lisp_Object);
static Lisp_Object scan_lists (EMACS_INT, EMACS_INT, EMACS_INT, bool);
static void scan_sexps_forward (struct lisp_parse_state *,
ptrdiff_t, ptrdiff_t, ptrdiff_t, EMACS_INT,
bool, int);
static void internalize_parse_state (Lisp_Object, struct lisp_parse_state *);
-static bool in_classes (int, Lisp_Object);
+static bool in_classes (int c, int num_classes, const unsigned char *classes);
static void parse_sexp_propertize (ptrdiff_t charpos);
/* This setter is used only in this file, so it can be private. */
@@ -250,7 +250,6 @@ SETUP_SYNTAX_TABLE (ptrdiff_t from, ptrdiff_t count)
gl_state.b_property = BEGV;
gl_state.e_property = ZV + 1;
gl_state.object = Qnil;
- gl_state.offset = 0;
if (parse_sexp_lookup_properties)
{
if (count > 0)
@@ -266,46 +265,38 @@ SETUP_SYNTAX_TABLE (ptrdiff_t from, ptrdiff_t count)
/* Same as above, but in OBJECT. If OBJECT is nil, use current buffer.
If it is t (which is only used in fast_c_string_match_ignore_case),
ignore properties altogether.
-
- This is meant for regex-emacs.c to use. For buffers, regex-emacs.c
- passes arguments to the UPDATE_SYNTAX_TABLE functions which are
- relative to BEGV. So if it is a buffer, we set the offset field to
- BEGV. */
+ FROMBYTE is an regexp-byteoffset. */
void
-SETUP_SYNTAX_TABLE_FOR_OBJECT (Lisp_Object object,
- ptrdiff_t from, ptrdiff_t count)
+RE_SETUP_SYNTAX_TABLE_FOR_OBJECT (Lisp_Object object,
+ ptrdiff_t frombyte)
{
SETUP_BUFFER_SYNTAX_TABLE ();
gl_state.object = object;
if (BUFFERP (gl_state.object))
{
struct buffer *buf = XBUFFER (gl_state.object);
- gl_state.b_property = 1;
- gl_state.e_property = BUF_ZV (buf) - BUF_BEGV (buf) + 1;
- gl_state.offset = BUF_BEGV (buf) - 1;
+ gl_state.b_property = BEG;
+ gl_state.e_property = BUF_ZV (buf);
}
else if (NILP (gl_state.object))
{
- gl_state.b_property = 1;
- gl_state.e_property = ZV - BEGV + 1;
- gl_state.offset = BEGV - 1;
+ gl_state.b_property = BEG;
+ gl_state.e_property = ZV; /* FIXME: Why not +1 like in
SETUP_SYNTAX_TABLE? */
}
else if (EQ (gl_state.object, Qt))
{
gl_state.b_property = 0;
gl_state.e_property = PTRDIFF_MAX;
- gl_state.offset = 0;
}
else
{
gl_state.b_property = 0;
gl_state.e_property = 1 + SCHARS (gl_state.object);
- gl_state.offset = 0;
}
if (parse_sexp_lookup_properties)
- update_syntax_table (from + gl_state.offset - (count <= 0),
- count, 1, gl_state.object);
+ update_syntax_table (RE_SYNTAX_TABLE_BYTE_TO_CHAR (frombyte),
+ 1, 1, gl_state.object);
}
/* Update gl_state to an appropriate interval which contains CHARPOS. The
@@ -341,8 +332,8 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
if (!i)
return;
i = gl_state.forward_i;
- gl_state.b_property = i->position - gl_state.offset;
- gl_state.e_property = INTERVAL_LAST_POS (i) - gl_state.offset;
+ gl_state.b_property = i->position;
+ gl_state.e_property = INTERVAL_LAST_POS (i);
}
else
{
@@ -362,7 +353,7 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
{
invalidate = false;
gl_state.forward_i = i;
- gl_state.e_property = INTERVAL_LAST_POS (i) - gl_state.offset;
+ gl_state.e_property = INTERVAL_LAST_POS (i);
}
}
else if (charpos >= INTERVAL_LAST_POS (i)) /* Move right. */
@@ -375,7 +366,7 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
{
invalidate = false;
gl_state.backward_i = i;
- gl_state.b_property = i->position - gl_state.offset;
+ gl_state.b_property = i->position;
}
}
}
@@ -391,12 +382,12 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
if (count > 0)
{
gl_state.backward_i = i;
- gl_state.b_property = i->position - gl_state.offset;
+ gl_state.b_property = i->position;
}
else
{
gl_state.forward_i = i;
- gl_state.e_property = INTERVAL_LAST_POS (i) - gl_state.offset;
+ gl_state.e_property = INTERVAL_LAST_POS (i);
}
}
@@ -426,13 +417,13 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
{
if (count > 0)
{
- gl_state.e_property = i->position - gl_state.offset;
+ gl_state.e_property = i->position;
gl_state.forward_i = i;
}
else
{
gl_state.b_property
- = i->position + LENGTH (i) - gl_state.offset;
+ = i->position + LENGTH (i);
gl_state.backward_i = i;
}
return;
@@ -442,7 +433,7 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
if (count > 0)
{
gl_state.e_property
- = i->position + LENGTH (i) - gl_state.offset
+ = i->position + LENGTH (i)
/* e_property at EOB is not set to ZV but to ZV+1, so that
we can do INC(from);UPDATE_SYNTAX_TABLE_FORWARD without
having to check eob between the two. */
@@ -451,7 +442,7 @@ update_syntax_table (ptrdiff_t charpos, EMACS_INT count,
bool init,
}
else
{
- gl_state.b_property = i->position - gl_state.offset;
+ gl_state.b_property = i->position;
gl_state.backward_i = i;
}
return;
@@ -1616,7 +1607,7 @@ Char classes, e.g. `[:alpha:]', are supported.
Returns the distance traveled, either zero or positive. */)
(Lisp_Object string, Lisp_Object lim)
{
- return skip_chars (1, string, lim, 1);
+ return skip_chars (1, string, lim);
}
DEFUN ("skip-chars-backward", Fskip_chars_backward, Sskip_chars_backward, 1,
2, 0,
@@ -1625,7 +1616,7 @@ See `skip-chars-forward' for details.
Returns the distance traveled, either zero or negative. */)
(Lisp_Object string, Lisp_Object lim)
{
- return skip_chars (0, string, lim, 1);
+ return skip_chars (0, string, lim);
}
DEFUN ("skip-syntax-forward", Fskip_syntax_forward, Sskip_syntax_forward, 1,
2, 0,
@@ -1652,8 +1643,7 @@ of this is the distance traveled. */)
}
static Lisp_Object
-skip_chars (bool forwardp, Lisp_Object string, Lisp_Object lim,
- bool handle_iso_classes)
+skip_chars (bool forwardp, Lisp_Object string, Lisp_Object lim)
{
int c;
char fastmap[0400];
@@ -1670,11 +1660,9 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
ptrdiff_t size_byte;
const unsigned char *str;
int len;
- Lisp_Object iso_classes;
USE_SAFE_ALLOCA;
CHECK_STRING (string);
- iso_classes = Qnil;
if (NILP (lim))
XSETINT (lim, forwardp ? ZV : BEGV);
@@ -1709,6 +1697,8 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
If STRING contains non-ASCII characters, setup char_ranges for
them and use fastmap only for their leading codes. */
+ int nclasses = 0;
+ unsigned char classes[RECC_NUM_CLASSES];
if (! string_multibyte)
{
bool string_has_eight_bit = 0;
@@ -1716,18 +1706,16 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
/* At first setup fastmap. */
while (i_byte < size_byte)
{
- if (handle_iso_classes)
+ const unsigned char *ch = str + i_byte;
+ re_wctype_t cc = re_wctype_parse (&ch, size_byte - i_byte);
+ if (cc == 0)
+ error ("Invalid ISO C character class");
+ if (cc != -1)
{
- const unsigned char *ch = str + i_byte;
- re_wctype_t cc = re_wctype_parse (&ch, size_byte - i_byte);
- if (cc == 0)
- error ("Invalid ISO C character class");
- if (cc != -1)
- {
- iso_classes = Fcons (make_fixnum (cc), iso_classes);
- i_byte = ch - str;
- continue;
- }
+ if (!(nclasses && memchr (classes, cc, nclasses)))
+ classes[nclasses++] = cc;
+ i_byte = ch - str;
+ continue;
}
c = str[i_byte++];
@@ -1812,18 +1800,16 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
{
int leading_code = str[i_byte];
- if (handle_iso_classes)
+ const unsigned char *ch = str + i_byte;
+ re_wctype_t cc = re_wctype_parse (&ch, size_byte - i_byte);
+ if (cc == 0)
+ error ("Invalid ISO C character class");
+ if (cc != -1)
{
- const unsigned char *ch = str + i_byte;
- re_wctype_t cc = re_wctype_parse (&ch, size_byte - i_byte);
- if (cc == 0)
- error ("Invalid ISO C character class");
- if (cc != -1)
- {
- iso_classes = Fcons (make_fixnum (cc), iso_classes);
- i_byte = ch - str;
- continue;
- }
+ if (!(nclasses && memchr (classes, cc, nclasses)))
+ classes[nclasses++] = cc;
+ i_byte = ch - str;
+ continue;
}
if (leading_code== '\\')
@@ -1969,7 +1955,7 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
stop = endp;
}
c = string_char_and_length (p, &nbytes);
- if (! NILP (iso_classes) && in_classes (c, iso_classes))
+ if (nclasses && in_classes (c, nclasses, classes))
{
if (negate)
break;
@@ -2010,7 +1996,7 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
stop = endp;
}
- if (!NILP (iso_classes) && in_classes (*p, iso_classes))
+ if (nclasses && in_classes (*p, nclasses, classes))
{
if (negate)
break;
@@ -2044,7 +2030,7 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
c = STRING_CHAR (p);
- if (! NILP (iso_classes) && in_classes (c, iso_classes))
+ if (nclasses && in_classes (c, nclasses, classes))
{
if (negate)
break;
@@ -2078,7 +2064,7 @@ skip_chars (bool forwardp, Lisp_Object string,
Lisp_Object lim,
stop = endp;
}
- if (! NILP (iso_classes) && in_classes (p[-1], iso_classes))
+ if (nclasses && in_classes (p[-1], nclasses, classes))
{
if (negate)
break;
@@ -2201,8 +2187,7 @@ skip_syntaxes (bool forwardp, Lisp_Object string,
Lisp_Object lim)
while (!parse_sexp_lookup_properties
|| pos < gl_state.e_property);
- update_syntax_table_forward (pos + gl_state.offset,
- false, gl_state.object);
+ update_syntax_table_forward (pos, false, gl_state.object);
}
}
else
@@ -2263,26 +2248,16 @@ skip_syntaxes (bool forwardp, Lisp_Object string,
Lisp_Object lim)
}
}
-/* Return true if character C belongs to one of the ISO classes
- in the list ISO_CLASSES. Each class is represented by an
- integer which is its type according to re_wctype. */
+/* Return true if character C belongs to one of the ISO classes in the
+ array. */
static bool
-in_classes (int c, Lisp_Object iso_classes)
+in_classes (int c, int nclasses, const unsigned char *classes)
{
- bool fits_class = 0;
-
- while (CONSP (iso_classes))
- {
- Lisp_Object elt;
- elt = XCAR (iso_classes);
- iso_classes = XCDR (iso_classes);
-
- if (re_iswctype (c, XFIXNAT (elt)))
- fits_class = 1;
- }
-
- return fits_class;
+ for (int i = 0; i < nclasses; i++)
+ if (re_iswctype (c, classes[i]))
+ return true;
+ return false;
}
/* Jump over a comment, assuming we are at the beginning of one.
@@ -2348,13 +2323,16 @@ forw_comment (ptrdiff_t from, ptrdiff_t from_byte,
ptrdiff_t stop,
return 0;
}
c = FETCH_CHAR_AS_MULTIBYTE (from_byte);
+ prev_syntax = syntax;
syntax = SYNTAX_WITH_FLAGS (c);
code = syntax & 0xff;
if (code == Sendcomment
&& SYNTAX_FLAGS_COMMENT_STYLE (syntax, 0) == style
&& (SYNTAX_FLAGS_COMMENT_NESTED (syntax) ?
(nesting > 0 && --nesting == 0) : nesting < 0)
- && !(comment_end_can_be_escaped && char_quoted (from, from_byte)))
+ && !(comment_end_can_be_escaped
+ && ((prev_syntax & 0xff) == Sescape
+ || (prev_syntax & 0xff) == Scharquote)))
/* We have encountered a comment end of the same style
as the comment sequence which began this comment
section. */
@@ -2378,7 +2356,11 @@ forw_comment (ptrdiff_t from, ptrdiff_t from_byte,
ptrdiff_t stop,
inc_both (&from, &from_byte);
UPDATE_SYNTAX_TABLE_FORWARD (from);
if (from == stop) continue; /* Failure */
- }
+ c = FETCH_CHAR_AS_MULTIBYTE (from_byte);
+ prev_syntax = syntax;
+ syntax = Smax;
+ code = syntax;
+ }
inc_both (&from, &from_byte);
UPDATE_SYNTAX_TABLE_FORWARD (from);
@@ -3359,7 +3341,14 @@ do { prev_from = from; \
are invalid now. Luckily, the `done' doesn't use them
and the INC_FROM sets them to a sane value without
looking at them. */
- if (!found) goto done;
+ if (!found)
+ {
+ if ((prev_from_syntax & 0xff) == Sescape
+ || (prev_from_syntax & 0xff) == Scharquote)
+ goto endquoted;
+ else
+ goto done;
+ }
INC_FROM;
state->incomment = 0;
state->comstyle = 0; /* reset the comment style */
diff --git a/src/syntax.h b/src/syntax.h
index 9eb8701628b..01982be25a0 100644
--- a/src/syntax.h
+++ b/src/syntax.h
@@ -85,8 +85,6 @@ struct gl_state_s
and possibly at the
intervals too, depending
on: */
- /* Offset for positions specified to UPDATE_SYNTAX_TABLE. */
- ptrdiff_t offset;
};
extern struct gl_state_s gl_state;
@@ -147,28 +145,27 @@ extern bool syntax_prefix_flag_p (int c);
extern unsigned char const syntax_spec_code[0400];
-/* Convert the byte offset BYTEPOS into a character position,
- for the object recorded in gl_state with SETUP_SYNTAX_TABLE_FOR_OBJECT.
+/* Convert the regexp's BYTEOFFSET into a character position,
+ for the object recorded in gl_state with RE_SETUP_SYNTAX_TABLE_FOR_OBJECT.
The value is meant for use in code that does nothing when
parse_sexp_lookup_properties is false, so return 0 in that case,
for speed. */
INLINE ptrdiff_t
-SYNTAX_TABLE_BYTE_TO_CHAR (ptrdiff_t bytepos)
+RE_SYNTAX_TABLE_BYTE_TO_CHAR (ptrdiff_t byteoffset)
{
return (! parse_sexp_lookup_properties
? 0
: STRINGP (gl_state.object)
- ? string_byte_to_char (gl_state.object, bytepos)
+ ? string_byte_to_char (gl_state.object, byteoffset)
: BUFFERP (gl_state.object)
? ((buf_bytepos_to_charpos
(XBUFFER (gl_state.object),
- (bytepos + BUF_BEGV_BYTE (XBUFFER (gl_state.object)) - 1)))
- - BUF_BEGV (XBUFFER (gl_state.object)) + 1)
+ (byteoffset + BUF_BEGV_BYTE (XBUFFER (gl_state.object))))))
: NILP (gl_state.object)
- ? BYTE_TO_CHAR (bytepos + BEGV_BYTE - 1) - BEGV + 1
- : bytepos);
+ ? BYTE_TO_CHAR (byteoffset + BEGV_BYTE)
+ : byteoffset);
}
/* Make syntax table state (gl_state) good for CHARPOS, assuming it is
@@ -178,8 +175,7 @@ INLINE void
UPDATE_SYNTAX_TABLE_FORWARD (ptrdiff_t charpos)
{ /* Performs just-in-time syntax-propertization. */
if (parse_sexp_lookup_properties && charpos >= gl_state.e_property)
- update_syntax_table_forward (charpos + gl_state.offset,
- false, gl_state.object);
+ update_syntax_table_forward (charpos, false, gl_state.object);
}
/* Make syntax table state (gl_state) good for CHARPOS, assuming it is
@@ -189,7 +185,7 @@ INLINE void
UPDATE_SYNTAX_TABLE_BACKWARD (ptrdiff_t charpos)
{
if (parse_sexp_lookup_properties && charpos < gl_state.b_property)
- update_syntax_table (charpos + gl_state.offset, -1, false,
gl_state.object);
+ update_syntax_table (charpos, -1, false, gl_state.object);
}
/* Make syntax table good for CHARPOS. */
@@ -212,7 +208,7 @@ SETUP_BUFFER_SYNTAX_TABLE (void)
}
extern ptrdiff_t scan_words (ptrdiff_t, EMACS_INT);
-extern void SETUP_SYNTAX_TABLE_FOR_OBJECT (Lisp_Object, ptrdiff_t, ptrdiff_t);
+extern void RE_SETUP_SYNTAX_TABLE_FOR_OBJECT (Lisp_Object, ptrdiff_t);
INLINE_HEADER_END
diff --git a/src/sysdep.c b/src/sysdep.c
index a5b3117d262..443602a2d6d 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -2005,7 +2005,9 @@ init_signals (void)
signal (SIGPIPE, SIG_IGN);
sigaction (SIGQUIT, &process_fatal_action, 0);
+#ifndef __vax__
sigaction (SIGILL, &thread_fatal_action, 0);
+#endif /* __vax__ */
sigaction (SIGTRAP, &thread_fatal_action, 0);
/* Typically SIGFPE is thread-specific and is fatal, like SIGILL.
@@ -2018,6 +2020,11 @@ init_signals (void)
{
emacs_sigaction_init (&action, deliver_arith_signal);
sigaction (SIGFPE, &action, 0);
+#ifdef __vax__
+ /* NetBSD/vax generates SIGILL upon some floating point errors,
+ such as taking the log of 0.0. */
+ sigaction (SIGILL, &action, 0);
+#endif /* __vax__ */
}
#ifdef SIGUSR1
diff --git a/src/term.c b/src/term.c
index d881dee39fe..4df3de8f4a5 100644
--- a/src/term.c
+++ b/src/term.c
@@ -533,7 +533,7 @@ encode_terminal_code (struct glyph *src, int src_len,
multibyte-form. But, it may be enlarged on demand if
Vglyph_table contains a string or a composite glyph is
encountered. */
- if (INT_MULTIPLY_WRAPV (src_len, MAX_MULTIBYTE_LENGTH, &required))
+ if (ckd_mul (&required, src_len, MAX_MULTIBYTE_LENGTH))
memory_full (SIZE_MAX);
if (encode_terminal_src_size < required)
encode_terminal_src = xpalloc (encode_terminal_src,
@@ -3319,7 +3319,7 @@ tty_menu_activate (tty_menu *menu, int *pane, int *selidx,
active submenu. */
if (i != statecount - 2
|| state[i].menu->submenu[dy] != state[i + 1].menu)
- while (i != statecount - 1)
+ while (i < statecount - 1)
{
statecount--;
screen_update (sf, state[statecount].screen_behind);
@@ -4163,7 +4163,15 @@ use the Bourne shell command 'TERM=...; export TERM'
(C-shell:\n\
tty->TS_enter_alt_charset_mode = tgetstr ("as", address);
tty->TS_exit_alt_charset_mode = tgetstr ("ae", address);
tty->TS_exit_attribute_mode = tgetstr ("me", address);
+#ifdef TERMINFO
+ tty->TS_enter_strike_through_mode = tigetstr ("smxx");
+ if (tty->TS_enter_strike_through_mode == (char *) (intptr_t) -1)
+ tty->TS_enter_strike_through_mode = NULL;
+#else
+ /* FIXME: Is calling tgetstr here for non-terminfo case correct,
+ even though "smxx" is more than 2 characters? */
tty->TS_enter_strike_through_mode = tgetstr ("smxx", address);
+#endif
MultiUp (tty) = tgetstr ("UP", address);
MultiDown (tty) = tgetstr ("DO", address);
diff --git a/src/termcap.c b/src/termcap.c
index d2688b3838d..1e989b6e2de 100644
--- a/src/termcap.c
+++ b/src/termcap.c
@@ -296,7 +296,7 @@ tputs (register const char *str, int nlines, int (*outfun)
(int))
BAUD_RATE is measured in characters per 10 seconds.
Compute PADFACTOR = 100000 * (how many padding bytes are needed). */
intmax_t padfactor;
- if (INT_MULTIPLY_WRAPV (padcount, baud_rate, &padfactor))
+ if (ckd_mul (&padfactor, padcount, baud_rate))
padfactor = baud_rate < 0 ? INTMAX_MIN : INTMAX_MAX;
for (; 50000 <= padfactor; padfactor -= 100000)
diff --git a/src/textconv.c b/src/textconv.c
index d5db6d11717..7ed8ede3544 100644
--- a/src/textconv.c
+++ b/src/textconv.c
@@ -125,7 +125,7 @@ textconv_query (struct frame *f, struct
textconv_callback_struct *query)
overflows, move back to point or to the extremes of the
accessible region. */
- if (INT_ADD_WRAPV (pos, query->position, &pos))
+ if (ckd_add (&pos, pos, query->position))
pos = PT;
if (pos < BEGV)
@@ -145,7 +145,7 @@ textconv_query (struct frame *f, struct
textconv_callback_struct *query)
{
case TEXTCONV_FORWARD_CHAR:
/* Move forward by query->factor characters. */
- if (INT_ADD_WRAPV (pos, query->factor, &end) || end > ZV)
+ if (ckd_add (&end, pos, query->factor) || end > ZV)
end = ZV;
end_byte = CHAR_TO_BYTE (end);
@@ -153,7 +153,7 @@ textconv_query (struct frame *f, struct
textconv_callback_struct *query)
case TEXTCONV_BACKWARD_CHAR:
/* Move backward by query->factor characters. */
- if (INT_SUBTRACT_WRAPV (pos, query->factor, &end) || end < BEGV)
+ if (ckd_sub (&end, pos, query->factor) || end < BEGV)
end = BEGV;
end_byte = CHAR_TO_BYTE (end);
diff --git a/src/thread.h b/src/thread.h
index f0e9ee01173..9b14cc44f35 100644
--- a/src/thread.h
+++ b/src/thread.h
@@ -33,6 +33,15 @@ along with GNU Emacs. If not, see
<https://www.gnu.org/licenses/>. */
#include "sysselect.h" /* FIXME */
#include "systhread.h"
+/* Yield an address close enough to the top of the stack that the
+ garbage collector need not scan above it. Callers should be
+ declared NO_INLINE. */
+#ifdef HAVE___BUILTIN_FRAME_ADDRESS
+# define NEAR_STACK_TOP(addr) ((void) (addr), __builtin_frame_address (0))
+#else
+# define NEAR_STACK_TOP(addr) (addr)
+#endif
+
INLINE_HEADER_BEGIN
/* Byte-code interpreter thread state. */
diff --git a/src/timefns.c b/src/timefns.c
index b3132e7bc34..151f5b482a3 100644
--- a/src/timefns.c
+++ b/src/timefns.c
@@ -180,6 +180,15 @@ static timezone_t const utc_tz = 0;
static struct tm *
emacs_localtime_rz (timezone_t tz, time_t const *t, struct tm *tm)
{
+#ifdef WINDOWSNT
+ /* The Windows CRT functions are "optimized for speed", so they don't
+ check for timezone and DST changes if they were last called less
+ than 1 minute ago (see http://support.microsoft.com/kb/821231).
+ So all Emacs features that repeatedly call time functions (e.g.,
+ display-time) are in real danger of missing timezone and DST
+ changes. Calling tzset before each localtime call fixes that. */
+ tzset ();
+#endif
tm = localtime_rz (tz, t, tm);
if (!tm && errno == ENOMEM)
memory_full (SIZE_MAX);
@@ -505,8 +514,8 @@ timespec_ticks (struct timespec t)
/* For speed, use intmax_t arithmetic if it will do. */
intmax_t accum;
if (FASTER_TIMEFNS
- && !INT_MULTIPLY_WRAPV (t.tv_sec, TIMESPEC_HZ, &accum)
- && !INT_ADD_WRAPV (t.tv_nsec, accum, &accum))
+ && !ckd_mul (&accum, t.tv_sec, TIMESPEC_HZ)
+ && !ckd_add (&accum, accum, t.tv_nsec))
return make_int (accum);
/* Fall back on bignum arithmetic. */
@@ -534,7 +543,7 @@ lisp_time_hz_ticks (struct lisp_time t, Lisp_Object hz)
/* For speed, use intmax_t arithmetic if it will do. */
intmax_t ticks;
if (FASTER_TIMEFNS && FIXNUMP (t.ticks) && FIXNUMP (t.hz)
- && !INT_MULTIPLY_WRAPV (XFIXNUM (t.ticks), XFIXNUM (hz), &ticks))
+ && !ckd_mul (&ticks, XFIXNUM (t.ticks), XFIXNUM (hz)))
return make_int (ticks / XFIXNUM (t.hz)
- (ticks % XFIXNUM (t.hz) < 0));
}
@@ -1548,12 +1557,10 @@ usage: (decode-time &optional TIME ZONE FORM) */)
Lisp_Object ticks;
intmax_t n;
if (FASTER_TIMEFNS && FIXNUMP (lt.ticks) && FIXNUMP (hz)
- && !INT_MULTIPLY_WRAPV (XFIXNUM (hz), local_tm.tm_sec, &n)
- && ! (INT_ADD_WRAPV
- (n, (XFIXNUM (lt.ticks) % XFIXNUM (hz)
- + (XFIXNUM (lt.ticks) % XFIXNUM (hz) < 0
- ? XFIXNUM (hz) : 0)),
- &n)))
+ && !ckd_mul (&n, XFIXNUM (hz), local_tm.tm_sec)
+ && !ckd_add (&n, n, (XFIXNUM (lt.ticks) % XFIXNUM (hz)
+ + (XFIXNUM (lt.ticks) % XFIXNUM (hz) < 0
+ ? XFIXNUM (hz) : 0))))
ticks = make_int (n);
else
{
@@ -1594,7 +1601,7 @@ check_tm_member (Lisp_Object obj, int offset)
CHECK_FIXNUM (obj);
EMACS_INT n = XFIXNUM (obj);
int i;
- if (INT_SUBTRACT_WRAPV (n, offset, &i))
+ if (ckd_sub (&i, n, offset))
time_overflow ();
return i;
}
diff --git a/src/tparam.c b/src/tparam.c
index 1a5eab37452..a0d2ee74d99 100644
--- a/src/tparam.c
+++ b/src/tparam.c
@@ -173,8 +173,7 @@ tparam1 (const char *string, char *outstring, int len,
doup++, append_len_incr = strlen (up);
else
doleft++, append_len_incr = strlen (left);
- if (INT_ADD_WRAPV (append_len_incr,
- append_len, &append_len))
+ if (ckd_add (&append_len, append_len, append_len_incr))
memory_full (SIZE_MAX);
}
}
diff --git a/src/treesit.c b/src/treesit.c
index 5a4fe3e8803..0af0e347694 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -404,6 +404,9 @@ init_treesit_functions (void)
static Lisp_Object Vtreesit_str_libtree_sitter;
static Lisp_Object Vtreesit_str_tree_sitter;
+#ifndef WINDOWSNT
+static Lisp_Object Vtreesit_str_dot_0;
+#endif
static Lisp_Object Vtreesit_str_dot;
static Lisp_Object Vtreesit_str_question_mark;
static Lisp_Object Vtreesit_str_star;
@@ -421,10 +424,17 @@ static Lisp_Object Vtreesit_str_match;
static Lisp_Object Vtreesit_str_pred;
/* This is the limit on recursion levels for some tree-sitter
- functions. Remember to update docstrings when changing this
- value. */
-const ptrdiff_t treesit_recursion_limit = 1000;
-bool treesit_initialized = false;
+ functions. Remember to update docstrings when changing this value.
+
+ If we think of programs and AST, it is very rare for any program to
+ have a very deep AST. For example, you would need 1000+ levels of
+ nested if-statements, or a struct somehow nested for 1000+ levels.
+ It’s hard for me to imagine any hand-written or machine generated
+ program to be like that. So I think 1000 is already generous. If
+ we look at xdisp.c, its AST only have 30 levels. */
+#define TREESIT_RECURSION_LIMIT 1000
+
+static bool treesit_initialized = false;
static bool
load_tree_sitter_if_necessary (bool required)
@@ -478,40 +488,47 @@ treesit_initialize (void)
static void
treesit_symbol_to_c_name (char *symbol_name)
{
- for (int idx = 0; idx < strlen (symbol_name); idx++)
+ size_t len = strlen (symbol_name);
+ for (int idx = 0; idx < len; idx++)
{
if (symbol_name[idx] == '-')
symbol_name[idx] = '_';
}
}
+/* Find the override name for LANGUAGE_SYMBOL in
+ treesit-load-name-override-list. Set NAME and C_SYMBOL to the
+ override name, and return true if there exists one, otherwise
+ return false.
+
+ This function may signal if treesit-load-name-override-list is
+ malformed. */
static bool
treesit_find_override_name (Lisp_Object language_symbol, Lisp_Object *name,
Lisp_Object *c_symbol)
{
- Lisp_Object tem;
-
CHECK_LIST (Vtreesit_load_name_override_list);
+ Lisp_Object tail = Vtreesit_load_name_override_list;
- tem = Vtreesit_load_name_override_list;
-
- FOR_EACH_TAIL (tem)
+ FOR_EACH_TAIL (tail)
{
- Lisp_Object lang = XCAR (XCAR (tem));
+ Lisp_Object entry = XCAR (tail);
+ CHECK_LIST (entry);
+ Lisp_Object lang = XCAR (entry);
CHECK_SYMBOL (lang);
if (EQ (lang, language_symbol))
{
- *name = Fnth (make_fixnum (1), XCAR (tem));
+ *name = Fnth (make_fixnum (1), entry);
CHECK_STRING (*name);
- *c_symbol = Fnth (make_fixnum (2), XCAR (tem));
+ *c_symbol = Fnth (make_fixnum (2), entry);
CHECK_STRING (*c_symbol);
return true;
}
}
- CHECK_LIST_END (tem, Vtreesit_load_name_override_list);
+ CHECK_LIST_END (tail, Vtreesit_load_name_override_list);
return false;
}
@@ -529,8 +546,21 @@ treesit_load_language_push_for_each_suffix (Lisp_Object
lib_base_name,
suffixes = Vdynamic_library_suffixes;
FOR_EACH_TAIL (suffixes)
- *path_candidates = Fcons (concat2 (lib_base_name, XCAR (suffixes)),
- *path_candidates);
+ {
+ Lisp_Object candidate1 = concat2 (lib_base_name, XCAR (suffixes));
+#ifndef WINDOWSNT
+ /* On Posix hosts, support libraries named with ABI version
+ numbers. In the foreseeable future we only need to support
+ version 0.0. For more details, see
+ https://lists.gnu.org/archive/html/emacs-devel/2023-04/msg00386.html.
*/
+ Lisp_Object candidate2 = concat2 (candidate1, Vtreesit_str_dot_0);
+ Lisp_Object candidate3 = concat2 (candidate2, Vtreesit_str_dot_0);
+
+ *path_candidates = Fcons (candidate3, *path_candidates);
+ *path_candidates = Fcons (candidate2, *path_candidates);
+#endif
+ *path_candidates = Fcons (candidate1, *path_candidates);
+ }
}
/* Load the dynamic library of LANGUAGE_SYMBOL and return the pointer
@@ -1016,11 +1046,6 @@ treesit_call_after_change_functions (TSTree *old_tree,
TSTree *new_tree,
static void
treesit_ensure_parsed (Lisp_Object parser)
{
- /* Make sure this comes before everything else, see comment
- (ref:notifier-inside-ensure-parsed) for more detail. */
- if (!XTS_PARSER (parser)->need_reparse)
- return;
-
struct buffer *buffer = XBUFFER (XTS_PARSER (parser)->buffer);
/* Before we parse, catch up with the narrowing situation. */
@@ -1029,6 +1054,11 @@ treesit_ensure_parsed (Lisp_Object parser)
because it might set the flag to true. */
treesit_sync_visible_region (parser);
+ /* Make sure this comes before everything else, see comment
+ (ref:notifier-inside-ensure-parsed) for more detail. */
+ if (!XTS_PARSER (parser)->need_reparse)
+ return;
+
TSParser *treesit_parser = XTS_PARSER (parser)->parser;
TSTree *tree = XTS_PARSER (parser)->tree;
TSInput input = XTS_PARSER (parser)->input;
@@ -1619,6 +1649,9 @@ buffer. */)
TSRange *treesit_ranges = xmalloc (sizeof (TSRange) * len);
struct buffer *buffer = XBUFFER (XTS_PARSER (parser)->buffer);
+ /* We can use XFUXNUM, XCAR, XCDR freely because we have checked
+ the input by treesit_check_range_argument. */
+
for (int idx = 0; !NILP (ranges); idx++, ranges = XCDR (ranges))
{
Lisp_Object range = XCAR (ranges);
@@ -1639,9 +1672,6 @@ buffer. */)
}
success = ts_parser_set_included_ranges (XTS_PARSER (parser)->parser,
treesit_ranges, len);
- /* Although XFIXNUM could signal, it should be impossible
- because we have checked the input by treesit_check_range_argument.
- So there is no need for unwind-protect. */
xfree (treesit_ranges);
}
@@ -1962,19 +1992,19 @@ live. */)
TSNode treesit_node = XTS_NODE (node)->node;
bool result;
- if (EQ (property, Qoutdated))
+ if (BASE_EQ (property, Qoutdated))
return treesit_node_uptodate_p (node) ? Qnil : Qt;
treesit_check_node (node);
- if (EQ (property, Qnamed))
+ if (BASE_EQ (property, Qnamed))
result = ts_node_is_named (treesit_node);
- else if (EQ (property, Qmissing))
+ else if (BASE_EQ (property, Qmissing))
result = ts_node_is_missing (treesit_node);
- else if (EQ (property, Qextra))
+ else if (BASE_EQ (property, Qextra))
result = ts_node_is_extra (treesit_node);
- else if (EQ (property, Qhas_error))
+ else if (BASE_EQ (property, Qhas_error))
result = ts_node_has_error (treesit_node);
- else if (EQ (property, Qlive))
+ else if (BASE_EQ (property, Qlive))
result = treesit_parser_live_p (XTS_NODE (node)->parser);
else
signal_error ("Expecting `named', `missing', `extra', "
@@ -2293,19 +2323,19 @@ PATTERN can be
See Info node `(elisp)Pattern Matching' for detailed explanation. */)
(Lisp_Object pattern)
{
- if (EQ (pattern, QCanchor))
+ if (BASE_EQ (pattern, QCanchor))
return Vtreesit_str_dot;
- if (EQ (pattern, intern_c_string (":?")))
+ if (BASE_EQ (pattern, QCquestion))
return Vtreesit_str_question_mark;
- if (EQ (pattern, intern_c_string (":*")))
+ if (BASE_EQ (pattern, QCstar))
return Vtreesit_str_star;
- if (EQ (pattern, intern_c_string (":+")))
+ if (BASE_EQ (pattern, QCplus))
return Vtreesit_str_plus;
- if (EQ (pattern, QCequal))
+ if (BASE_EQ (pattern, QCequal))
return Vtreesit_str_pound_equal;
- if (EQ (pattern, QCmatch))
+ if (BASE_EQ (pattern, QCmatch))
return Vtreesit_str_pound_match;
- if (EQ (pattern, QCpred))
+ if (BASE_EQ (pattern, QCpred))
return Vtreesit_str_pound_pred;
Lisp_Object opening_delimeter
= VECTORP (pattern)
@@ -2407,87 +2437,111 @@ treesit_predicates_for_pattern (TSQuery *query,
uint32_t pattern_index)
return Fnreverse (result);
}
-/* Translate a capture NAME (symbol) to a node.
- Signals treesit-query-error if such node is not captured. */
-static Lisp_Object
+/* Translate a capture NAME (symbol) to a node. If everything goes
+ fine, set NODE and return true; if error occurs (e.g., when there
+ is no node for the capture name), set NODE to Qnil, SIGNAL_DATA to
+ a suitable signal data, and return false. */
+static bool
treesit_predicate_capture_name_to_node (Lisp_Object name,
- struct capture_range captures)
+ struct capture_range captures,
+ Lisp_Object *node,
+ Lisp_Object *signal_data)
{
- Lisp_Object node = Qnil;
+ *node = Qnil;
for (Lisp_Object tail = captures.start; !EQ (tail, captures.end);
tail = XCDR (tail))
{
if (EQ (XCAR (XCAR (tail)), name))
{
- node = XCDR (XCAR (tail));
+ *node = XCDR (XCAR (tail));
break;
}
}
- if (NILP (node))
- xsignal3 (Qtreesit_query_error,
- build_string ("Cannot find captured node"),
- name, build_string ("A predicate can only refer"
- " to captured nodes in the "
- "same pattern"));
- return node;
+ if (NILP (*node))
+ {
+ *signal_data = list3 (build_string ("Cannot find captured node"),
+ name, build_string ("A predicate can only refer"
+ " to captured nodes in the "
+ "same pattern"));
+ return false;
+ }
+ return true;
}
/* Translate a capture NAME (symbol) to the text of the captured node.
- Signals treesit-query-error if such node is not captured. */
-static Lisp_Object
+ If everything goes fine, set TEXT to the text and return true;
+ otherwise set TEXT to Qnil and set SIGNAL_DATA to a suitable signal
+ data. */
+static bool
treesit_predicate_capture_name_to_text (Lisp_Object name,
- struct capture_range captures)
+ struct capture_range captures,
+ Lisp_Object *text,
+ Lisp_Object *signal_data)
{
- Lisp_Object node = treesit_predicate_capture_name_to_node (name, captures);
+ Lisp_Object node = Qnil;
+ if (!treesit_predicate_capture_name_to_node (name, captures, &node,
signal_data))
+ return false;
struct buffer *old_buffer = current_buffer;
set_buffer_internal (XBUFFER (XTS_PARSER (XTS_NODE (node)->parser)->buffer));
- Lisp_Object text = Fbuffer_substring (Ftreesit_node_start (node),
- Ftreesit_node_end (node));
+ *text = Fbuffer_substring (Ftreesit_node_start (node),
+ Ftreesit_node_end (node));
set_buffer_internal (old_buffer);
- return text;
+ return true;
}
/* Handles predicate (#equal A B). Return true if A equals B; return
false otherwise. A and B can be either string, or a capture name.
The capture name evaluates to the text its captured node spans in
- the buffer. */
+ the buffer. If everything goes fine, don't touch SIGNAL_DATA; if
+ error occurs, set it to a suitable signal data. */
static bool
-treesit_predicate_equal (Lisp_Object args, struct capture_range captures)
+treesit_predicate_equal (Lisp_Object args, struct capture_range captures,
+ Lisp_Object *signal_data)
{
if (XFIXNUM (Flength (args)) != 2)
- xsignal2 (Qtreesit_query_error,
- build_string ("Predicate `equal' requires "
- "two arguments but only given"),
- Flength (args));
-
+ {
+ *signal_data = list2 (build_string ("Predicate `equal' requires "
+ "two arguments but only given"),
+ Flength (args));
+ return false;
+ }
Lisp_Object arg1 = XCAR (args);
Lisp_Object arg2 = XCAR (XCDR (args));
- Lisp_Object text1 = (STRINGP (arg1)
- ? arg1
- : treesit_predicate_capture_name_to_text (arg1,
- captures));
- Lisp_Object text2 = (STRINGP (arg2)
- ? arg2
- : treesit_predicate_capture_name_to_text (arg2,
- captures));
+ Lisp_Object text1 = arg1;
+ Lisp_Object text2 = arg2;
+ if (SYMBOLP (arg1))
+ {
+ if (!treesit_predicate_capture_name_to_text (arg1, captures, &text1,
+ signal_data))
+ return false;
+ }
+ if (SYMBOLP (arg2))
+ {
+ if (!treesit_predicate_capture_name_to_text (arg2, captures, &text2,
+ signal_data))
+ return false;
+ }
return !NILP (Fstring_equal (text1, text2));
}
/* Handles predicate (#match "regexp" @node). Return true if "regexp"
- matches the text spanned by @node; return false otherwise. Matching
- is case-sensitive. */
+ matches the text spanned by @node; return false otherwise.
+ Matching is case-sensitive. If everything goes fine, don't touch
+ SIGNAL_DATA; if error occurs, set it to a suitable signal data. */
static bool
-treesit_predicate_match (Lisp_Object args, struct capture_range captures)
+treesit_predicate_match (Lisp_Object args, struct capture_range captures,
+ Lisp_Object *signal_data)
{
if (XFIXNUM (Flength (args)) != 2)
- xsignal2 (Qtreesit_query_error,
- build_string ("Predicate `match' requires two "
- "arguments but only given"),
- Flength (args));
-
+ {
+ *signal_data = list2 (build_string ("Predicate `match' requires two "
+ "arguments but only given"),
+ Flength (args));
+ return false;
+ }
Lisp_Object regexp = XCAR (args);
Lisp_Object capture_name = XCAR (XCDR (args));
@@ -2504,12 +2558,10 @@ treesit_predicate_match (Lisp_Object args, struct
capture_range captures)
build_string ("The second argument to `match' should "
"be a capture name, not a string"));
- Lisp_Object node = treesit_predicate_capture_name_to_node (capture_name,
- captures);
-
- struct buffer *old_buffer = current_buffer;
- struct buffer *buffer = XBUFFER (XTS_PARSER (XTS_NODE
(node)->parser)->buffer);
- set_buffer_internal (buffer);
+ Lisp_Object node = Qnil;
+ if (!treesit_predicate_capture_name_to_node (capture_name, captures, &node,
+ signal_data))
+ return false;
TSNode treesit_node = XTS_NODE (node)->node;
ptrdiff_t visible_beg = XTS_PARSER (XTS_NODE (node)->parser)->visible_beg;
@@ -2537,61 +2589,71 @@ treesit_predicate_match (Lisp_Object args, struct
capture_range captures)
ZV = old_zv;
ZV_BYTE = old_zv_byte;
- set_buffer_internal (old_buffer);
-
return (val > 0);
}
/* Handles predicate (#pred FN ARG...). Return true if FN returns
non-nil; return false otherwise. The arity of FN must match the
- number of ARGs */
+ number of ARGs. If everything goes fine, don't touch SIGNAL_DATA;
+ if error occurs, set it to a suitable signal data. */
static bool
-treesit_predicate_pred (Lisp_Object args, struct capture_range captures)
+treesit_predicate_pred (Lisp_Object args, struct capture_range captures,
+ Lisp_Object *signal_data)
{
if (XFIXNUM (Flength (args)) < 2)
- xsignal2 (Qtreesit_query_error,
- build_string ("Predicate `pred' requires "
- "at least two arguments, "
- "but was only given"),
- Flength (args));
+ {
+ *signal_data = list2 (build_string ("Predicate `pred' requires "
+ "at least two arguments, "
+ "but was only given"),
+ Flength (args));
+ return false;
+ }
Lisp_Object fn = Fintern (XCAR (args), Qnil);
Lisp_Object nodes = Qnil;
Lisp_Object tail = XCDR (args);
FOR_EACH_TAIL (tail)
- nodes = Fcons (treesit_predicate_capture_name_to_node (XCAR (tail),
- captures),
- nodes);
+ {
+ Lisp_Object node = Qnil;
+ if (!treesit_predicate_capture_name_to_node (XCAR (tail), captures, &node,
+ signal_data))
+ return false;
+ nodes = Fcons (node, nodes);
+ }
nodes = Fnreverse (nodes);
return !NILP (CALLN (Fapply, fn, nodes));
}
/* If all predicates in PREDICATES passes, return true; otherwise
- return false. */
+ return false. If everything goes fine, don't touch SIGNAL_DATA; if
+ error occurs, set it to a suitable signal data. */
static bool
-treesit_eval_predicates (struct capture_range captures, Lisp_Object predicates)
+treesit_eval_predicates (struct capture_range captures, Lisp_Object predicates,
+ Lisp_Object *signal_data)
{
bool pass = true;
/* Evaluate each predicates. */
for (Lisp_Object tail = predicates;
- !NILP (tail); tail = XCDR (tail))
+ pass && !NILP (tail); tail = XCDR (tail))
{
Lisp_Object predicate = XCAR (tail);
Lisp_Object fn = XCAR (predicate);
Lisp_Object args = XCDR (predicate);
if (!NILP (Fstring_equal (fn, Vtreesit_str_equal)))
- pass &= treesit_predicate_equal (args, captures);
+ pass &= treesit_predicate_equal (args, captures, signal_data);
else if (!NILP (Fstring_equal (fn, Vtreesit_str_match)))
- pass &= treesit_predicate_match (args, captures);
+ pass &= treesit_predicate_match (args, captures, signal_data);
else if (!NILP (Fstring_equal (fn, Vtreesit_str_pred)))
- pass &= treesit_predicate_pred (args, captures);
+ pass &= treesit_predicate_pred (args, captures, signal_data);
else
- xsignal3 (Qtreesit_query_error,
- build_string ("Invalid predicate"),
- fn, build_string ("Currently Emacs only supports"
- " equal, match, and pred"
- " predicate"));
+ {
+ *signal_data = list3 (build_string ("Invalid predicate"),
+ fn, build_string ("Currently Emacs only
supports"
+ " equal, match, and pred"
+ " predicates"));
+ pass = false;
+ }
}
/* If all predicates passed, add captures to result list. */
return pass;
@@ -2631,8 +2693,8 @@ You can use `treesit-query-validate' to validate and
debug a query. */)
Lisp_Object signal_symbol = Qnil;
Lisp_Object signal_data = Qnil;
TSQuery *treesit_query = treesit_ensure_query_compiled (lisp_query,
- &signal_symbol,
- &signal_data);
+ &signal_symbol,
+ &signal_data);
if (treesit_query == NULL)
xsignal (signal_symbol, signal_data);
@@ -2641,6 +2703,92 @@ You can use `treesit-query-validate' to validate and
debug a query. */)
}
}
+/* Resolve OBJ into a tree-sitter node Lisp_Object. OBJ can be a
+ node, a parser, or a language symbol. Note that this function can
+ signal. */
+static Lisp_Object treesit_resolve_node (Lisp_Object obj)
+{
+ if (TS_NODEP (obj))
+ {
+ treesit_check_node (obj); /* Check if up-to-date. */
+ return obj;
+ }
+ else if (TS_PARSERP (obj))
+ {
+ treesit_check_parser (obj); /* Check if deleted. */
+ return Ftreesit_parser_root_node (obj);
+ }
+ else if (SYMBOLP (obj))
+ {
+ Lisp_Object parser
+ = Ftreesit_parser_create (obj, Fcurrent_buffer (), Qnil);
+ return Ftreesit_parser_root_node (parser);
+ }
+ else
+ xsignal2 (Qwrong_type_argument,
+ list4 (Qor, Qtreesit_node_p, Qtreesit_parser_p, Qsymbolp),
+ obj);
+}
+
+/* Create and initialize QUERY. When success, initialize TS_QUERY,
+ CURSOR, and NEED_FREE, and return true; if failed, initialize
+ SIGNAL_SYMBOL and SIGNAL_DATA, and return false. If NEED_FREE is
+ initialized to true, the TS_QUERY and CURSOR needs to be freed
+ after use; otherwise they shouldn't be freed by hand.
+
+ Basically this function looks at QUERY and check its type, if QUERY
+ is a compiled query, this function takes out its query and cursor;
+ if QUERY is a string or a cons, this function creates a new query
+ and cursor (so they need to be manually freed).
+
+ This function assumes QUERY is either a compiled query, a string or
+ a cons, the caller should make sure QUERY is valid.
+
+ LANG is the language to use if we need to create the query and
+ cursor. */
+static bool
+treesit_initialize_query (Lisp_Object query, const TSLanguage *lang,
+ TSQuery **ts_query, TSQueryCursor **cursor,
+ bool *need_free, Lisp_Object *signal_symbol,
+ Lisp_Object *signal_data)
+{
+ if (TS_COMPILED_QUERY_P (query))
+ {
+ *ts_query = treesit_ensure_query_compiled (query, signal_symbol,
+ signal_data);
+ *cursor = XTS_COMPILED_QUERY (query)->cursor;
+ /* We don't need to free ts_query and cursor because they
+ are stored in a lisp object, which is tracked by gc. */
+ *need_free = false;
+ return (*ts_query != NULL);
+ }
+ else
+ {
+ /* Since query is not TS_COMPILED_QUERY, it can only be a string
+ or a cons. */
+ if (CONSP (query))
+ query = Ftreesit_query_expand (query);
+ char *query_string = SSDATA (query);
+ uint32_t error_offset;
+ TSQueryError error_type;
+ *ts_query = ts_query_new (lang, query_string, strlen (query_string),
+ &error_offset, &error_type);
+ if (*ts_query == NULL)
+ {
+ *signal_symbol = Qtreesit_query_error;
+ *signal_data = treesit_compose_query_signal_data (error_offset,
+ error_type, query);
+ return false;
+ }
+ else
+ {
+ *cursor = ts_query_cursor_new ();
+ *need_free = true;
+ return true;
+ }
+ }
+}
+
DEFUN ("treesit-query-capture",
Ftreesit_query_capture,
Streesit_query_capture, 2, 5, 0,
@@ -2681,35 +2829,12 @@ the query. */)
treesit_initialize ();
/* Resolve NODE into an actual node. */
- Lisp_Object lisp_node;
- if (TS_NODEP (node))
- {
- treesit_check_node (node); /* Check if up-to-date. */
- lisp_node = node;
- }
- else if (TS_PARSERP (node))
- {
- treesit_check_parser (node); /* Check if deleted. */
- lisp_node = Ftreesit_parser_root_node (node);
- }
- else if (SYMBOLP (node))
- {
- Lisp_Object parser
- = Ftreesit_parser_create (node, Fcurrent_buffer (), Qnil);
- lisp_node = Ftreesit_parser_root_node (parser);
- }
- else
- xsignal2 (Qwrong_type_argument,
- list4 (Qor, Qtreesit_node_p, Qtreesit_parser_p, Qsymbolp),
- node);
+ Lisp_Object lisp_node = treesit_resolve_node (node);
/* Extract C values from Lisp objects. */
- TSNode treesit_node
- = XTS_NODE (lisp_node)->node;
- Lisp_Object lisp_parser
- = XTS_NODE (lisp_node)->parser;
- ptrdiff_t visible_beg
- = XTS_PARSER (XTS_NODE (lisp_node)->parser)->visible_beg;
+ TSNode treesit_node = XTS_NODE (lisp_node)->node;
+ Lisp_Object lisp_parser = XTS_NODE (lisp_node)->parser;
+
const TSLanguage *lang
= ts_parser_language (XTS_PARSER (lisp_parser)->parser);
@@ -2725,44 +2850,21 @@ the query. */)
TSQuery *treesit_query;
TSQueryCursor *cursor;
bool needs_to_free_query_and_cursor;
- if (TS_COMPILED_QUERY_P (query))
- {
- Lisp_Object signal_symbol = Qnil;
- Lisp_Object signal_data = Qnil;
- treesit_query = treesit_ensure_query_compiled (query, &signal_symbol,
- &signal_data);
- cursor = XTS_COMPILED_QUERY (query)->cursor;
- /* We don't need to free ts_query and cursor because they
- are stored in a lisp object, which is tracked by gc. */
- needs_to_free_query_and_cursor = false;
- if (treesit_query == NULL)
- xsignal (signal_symbol, signal_data);
- }
- else
- {
- /* Since query is not TS_COMPILED_QUERY, it can only be a string
- or a cons. */
- if (CONSP (query))
- query = Ftreesit_query_expand (query);
- char *query_string = SSDATA (query);
- uint32_t error_offset;
- TSQueryError error_type;
- treesit_query = ts_query_new (lang, query_string, strlen (query_string),
- &error_offset, &error_type);
- if (treesit_query == NULL)
- xsignal (Qtreesit_query_error,
- treesit_compose_query_signal_data (error_offset,
- error_type, query));
- cursor = ts_query_cursor_new ();
- needs_to_free_query_and_cursor = true;
- }
+ Lisp_Object signal_symbol;
+ Lisp_Object signal_data;
+ if (!treesit_initialize_query (query, lang, &treesit_query, &cursor,
+ &needs_to_free_query_and_cursor,
+ &signal_symbol, &signal_data))
+ xsignal (signal_symbol, signal_data);
- /* WARN: After this point, free treesit_query and cursor before every
- signal and return. */
+ /* WARN: After this point, free TREESIT_QUERY and CURSOR before every
+ signal and return if NEEDS_TO_FREE_QUERY_AND_CURSOR is true. */
/* Set query range. */
if (!NILP (beg) && !NILP (end))
{
+ ptrdiff_t visible_beg
+ = XTS_PARSER (XTS_NODE (lisp_node)->parser)->visible_beg;
ptrdiff_t beg_byte = CHAR_TO_BYTE (XFIXNUM (beg));
ptrdiff_t end_byte = CHAR_TO_BYTE (XFIXNUM (end));
/* We never let tree-sitter run on buffers too large, so these
@@ -2791,11 +2893,16 @@ the query. */)
Lisp_Object result = Qnil;
Lisp_Object prev_result = result;
Lisp_Object predicates_table = make_vector (patterns_count, Qt);
+ Lisp_Object predicate_signal_data = Qnil;
+
+ struct buffer *old_buf = current_buffer;
+ set_buffer_internal (buf);
+
while (ts_query_cursor_next_match (cursor, &match))
{
/* Record the checkpoint that we may roll back to. */
prev_result = result;
- /* Get captured nodes. */
+ /* 1. Get captured nodes. */
const TSQueryCapture *captures = match.captures;
for (int idx = 0; idx < match.capture_count; idx++)
{
@@ -2818,9 +2925,10 @@ the query. */)
result = Fcons (cap, result);
}
- /* Get predicates. */
+ /* 2. Get predicates and check whether this match can be
+ included in the result list. */
Lisp_Object predicates = AREF (predicates_table, match.pattern_index);
- if (EQ (predicates, Qt))
+ if (BASE_EQ (predicates, Qt))
{
predicates = treesit_predicates_for_pattern (treesit_query,
match.pattern_index);
@@ -2829,15 +2937,28 @@ the query. */)
/* captures_lisp = Fnreverse (captures_lisp); */
struct capture_range captures_range = { result, prev_result };
- if (!treesit_eval_predicates (captures_range, predicates))
- /* Predicates didn't pass, roll back. */
+ bool match = treesit_eval_predicates (captures_range, predicates,
+ &predicate_signal_data);
+ if (!NILP (predicate_signal_data))
+ break;
+
+ /* Predicates didn't pass, roll back. */
+ if (!match)
result = prev_result;
}
+
+ /* Final clean up. */
if (needs_to_free_query_and_cursor)
{
ts_query_delete (treesit_query);
ts_query_cursor_delete (cursor);
}
+ set_buffer_internal (old_buf);
+
+ /* Some capture predicate signaled an error. */
+ if (!NILP (predicate_signal_data))
+ xsignal (Qtreesit_query_error, predicate_signal_data);
+
return Fnreverse (result);
}
@@ -2917,7 +3038,7 @@ treesit_cursor_helper (TSTreeCursor *cursor, TSNode node,
Lisp_Object parser)
TSNode root = ts_tree_root_node (XTS_PARSER (parser)->tree);
*cursor = ts_tree_cursor_new (root);
bool success = treesit_cursor_helper_1 (cursor, &node, end_pos,
- treesit_recursion_limit);
+ TREESIT_RECURSION_LIMIT);
if (!success)
ts_tree_cursor_delete (cursor);
return success;
@@ -3048,10 +3169,136 @@ treesit_traverse_child_helper (TSTreeCursor *cursor,
}
}
-/* Return true if the node at CURSOR matches PRED. PRED can be a
- string or a function. This function assumes PRED is either a
- string or a function. If NAMED is true, also check that the node
- is named. */
+/* Given a symbol THING, and a language symbol LANGUAGE, find the
+ corresponding predicate definition in treesit-things-settings.
+ Don't check for the type of THING and LANGUAGE.
+
+ If there isn't one, return Qnil. */
+static Lisp_Object
+treesit_traverse_get_predicate (Lisp_Object thing, Lisp_Object language)
+{
+ Lisp_Object cons = assq_no_quit (language, Vtreesit_thing_settings);
+ if (NILP (cons))
+ return Qnil;
+ Lisp_Object definitions = XCDR (cons);
+ Lisp_Object entry = assq_no_quit (thing, definitions);
+ if (NILP (entry))
+ return Qnil;
+ /* ENTRY looks like (THING PRED). */
+ Lisp_Object cdr = XCDR (entry);
+ if (!CONSP (cdr))
+ return Qnil;
+ return XCAR (cdr);
+}
+
+/* Validate the PRED passed to treesit_traverse_match_predicate. If
+ there's an error, set SIGNAL_DATA to something signal accepts, and
+ return false, otherwise return true. This function also check for
+ recusion levels: we place a arbitrary 100 level limit on recursive
+ predicates. RECURSION_LEVEL is the current recursion level (that
+ starts at 0), if it goes over 99, return false and set
+ SIGNAL_DATA. LANGUAGE is a LANGUAGE symbol. */
+static bool
+treesit_traverse_validate_predicate (Lisp_Object pred,
+ Lisp_Object language,
+ Lisp_Object *signal_data,
+ ptrdiff_t recursion_level)
+{
+ if (recursion_level > 99)
+ {
+ *signal_data = list1 (build_string ("Predicate recursion level "
+ "exceeded: it must not exceed "
+ "100 levels"));
+ return false;
+ }
+ if (STRINGP (pred))
+ return true;
+ else if (FUNCTIONP (pred))
+ return true;
+ else if (SYMBOLP (pred))
+ {
+ Lisp_Object definition = treesit_traverse_get_predicate (pred,
+ language);
+ if (NILP (definition))
+ {
+ *signal_data = list2 (build_string ("Cannot find the definition "
+ "of the predicate in "
+ "`treesit-thing-settings'"),
+ pred);
+ return false;
+ }
+ return treesit_traverse_validate_predicate (definition,
+ language,
+ signal_data,
+ recursion_level + 1);
+ }
+ else if (CONSP (pred))
+ {
+ Lisp_Object car = XCAR (pred);
+ Lisp_Object cdr = XCDR (pred);
+ if (BASE_EQ (car, Qnot))
+ {
+ if (!CONSP (cdr))
+ {
+ *signal_data = list2 (build_string ("Invalide `not' "
+ "predicate"),
+ pred);
+ return false;
+ }
+ /* At this point CDR must be a cons. */
+ if (XFIXNUM (Flength (cdr)) != 1)
+ {
+ *signal_data = list2 (build_string ("`not' can only "
+ "have one argument"),
+ pred);
+ return false;
+ }
+ return treesit_traverse_validate_predicate (XCAR (cdr),
+ language,
+ signal_data,
+ recursion_level + 1);
+ }
+ else if (BASE_EQ (car, Qor))
+ {
+ if (!CONSP (cdr) || NILP (cdr))
+ {
+ *signal_data = list2 (build_string ("`or' must have a list "
+ "of patterns as "
+ "arguments "),
+ pred);
+ return false;
+ }
+ FOR_EACH_TAIL (cdr)
+ {
+ if (!treesit_traverse_validate_predicate (XCAR (cdr),
+ language,
+ signal_data,
+ recursion_level + 1))
+ return false;
+ }
+ return true;
+ }
+ else if (STRINGP (car) && FUNCTIONP (cdr))
+ return true;
+ }
+ *signal_data = list2 (build_string ("Invalid predicate, see
`treesit-thing-settings' for valid forms of predicate"),
+ pred);
+ return false;
+}
+
+/* Return true if the node at CURSOR matches PRED. PRED can be a lot
+ of things:
+
+ PRED := string | function | (string . function)
+ | (or PRED...) | (not PRED)
+
+ See docstring of treesit-search-forward and friends for the meaning
+ of each shape.
+
+ This function assumes PRED is in one of its valid forms. If NAMED
+ is true, also check that the node is named.
+
+ This function may signal if the predicate function signals. */
static bool
treesit_traverse_match_predicate (TSTreeCursor *cursor, Lisp_Object pred,
Lisp_Object parser, bool named)
@@ -3065,24 +3312,67 @@ treesit_traverse_match_predicate (TSTreeCursor *cursor,
Lisp_Object pred,
const char *type = ts_node_type (node);
return fast_c_string_match (pred, type, strlen (type)) >= 0;
}
- else
+ else if (FUNCTIONP (pred))
{
Lisp_Object lisp_node = make_treesit_node (parser, node);
return !NILP (CALLN (Ffuncall, pred, lisp_node));
}
+ else if (SYMBOLP (pred))
+ {
+ Lisp_Object language = XTS_PARSER (parser)->language_symbol;
+ Lisp_Object definition = treesit_traverse_get_predicate (pred,
+ language);
+ return treesit_traverse_match_predicate (cursor, definition,
+ parser, named);
+ }
+ else if (CONSP (pred))
+ {
+ Lisp_Object car = XCAR (pred);
+ Lisp_Object cdr = XCDR (pred);
+
+ if (BASE_EQ (car, Qnot))
+ return !treesit_traverse_match_predicate (cursor, XCAR (cdr),
+ parser, named);
+ else if (BASE_EQ (car, Qor))
+ {
+ FOR_EACH_TAIL (cdr)
+ {
+ if (treesit_traverse_match_predicate (cursor, XCAR (cdr),
+ parser, named))
+ return true;
+ }
+ return false;
+ }
+ else if (STRINGP (car) && FUNCTIONP (cdr))
+ {
+ /* A bit of code duplication here, but should be fine. */
+ const char *type = ts_node_type (node);
+ if (!(fast_c_string_match (car, type, strlen (type)) >= 0))
+ return false;
+
+ Lisp_Object lisp_node = make_treesit_node (parser, node);
+ if (NILP (CALLN (Ffuncall, cdr, lisp_node)))
+ return false;
+
+ return true;
+ }
+ }
+ /* Returning false is better than UB. */
+ return false;
}
-/* Traverse the parse tree starting from CURSOR. PRED can be a
- function (takes a node and returns nil/non-nil), or a string
- (treated as regexp matching the node's type, must be all single
- byte characters). If the node satisfies PRED, leave CURSOR on that
- node and return true. If no node satisfies PRED, move CURSOR back
- to starting position and return false.
+/* Traverse the parse tree starting from CURSOR. See
+ `treesit-thing-settings' for the shapes PRED can have. If the
+ node satisfies PRED, leave CURSOR on that node and return true. If
+ no node satisfies PRED, move CURSOR back to starting position and
+ return false.
LIMIT is the number of levels we descend in the tree. FORWARD
controls the direction in which we traverse the tree, true means
forward, false backward. If SKIP_ROOT is true, don't match ROOT.
- */
+
+ This function may signal if the predicate function signals. */
+
static bool
treesit_search_dfs (TSTreeCursor *cursor,
Lisp_Object pred, Lisp_Object parser,
@@ -3118,7 +3408,10 @@ treesit_search_dfs (TSTreeCursor *cursor,
START. PRED, PARSER, NAMED, FORWARD are the same as in
ts_search_subtree. If a match is found, leave CURSOR at that node,
and return true, if no match is found, return false, and CURSOR's
- position is undefined. */
+ position is undefined.
+
+ This function may signal if the predicate function signals. */
+
static bool
treesit_search_forward (TSTreeCursor *cursor,
Lisp_Object pred, Lisp_Object parser,
@@ -3128,8 +3421,7 @@ treesit_search_forward (TSTreeCursor *cursor,
nodes. This way repeated call of this function traverses each
node in the tree once and only once:
- (while node (setq node (treesit-search-forward node)))
- */
+ (while node (setq node (treesit-search-forward node))) */
bool initial = true;
while (true)
{
@@ -3156,6 +3448,14 @@ treesit_search_forward (TSTreeCursor *cursor,
}
}
+/* Clean up the given tree cursor CURSOR. */
+
+static void
+treesit_traverse_cleanup_cursor (void *cursor)
+{
+ ts_tree_cursor_delete (cursor);
+}
+
DEFUN ("treesit-search-subtree",
Ftreesit_search_subtree,
Streesit_search_subtree, 2, 5, 0,
@@ -3175,14 +3475,12 @@ Return the first matched node, or nil if none matches.
*/)
Lisp_Object all, Lisp_Object depth)
{
CHECK_TS_NODE (node);
- CHECK_TYPE (STRINGP (predicate) || FUNCTIONP (predicate),
- list3 (Qor, Qstringp, Qfunctionp), predicate);
CHECK_SYMBOL (all);
CHECK_SYMBOL (backward);
/* We use a default limit of 1000. See bug#59426 for the
discussion. */
- ptrdiff_t the_limit = treesit_recursion_limit;
+ ptrdiff_t the_limit = TREESIT_RECURSION_LIMIT;
if (!NILP (depth))
{
CHECK_FIXNUM (depth);
@@ -3192,19 +3490,29 @@ Return the first matched node, or nil if none matches.
*/)
treesit_initialize ();
Lisp_Object parser = XTS_NODE (node)->parser;
+ Lisp_Object language = XTS_PARSER (parser)->language_symbol;
+
+ Lisp_Object signal_data = Qnil;
+ if (!treesit_traverse_validate_predicate (predicate, language,
+ &signal_data, 0))
+ xsignal1 (Qtreesit_invalid_predicate, signal_data);
+
Lisp_Object return_value = Qnil;
TSTreeCursor cursor;
if (!treesit_cursor_helper (&cursor, XTS_NODE (node)->node, parser))
return return_value;
+ specpdl_ref count = SPECPDL_INDEX ();
+ record_unwind_protect_ptr (treesit_traverse_cleanup_cursor, &cursor);
+
if (treesit_search_dfs (&cursor, predicate, parser, NILP (backward),
NILP (all), the_limit, false))
{
TSNode node = ts_tree_cursor_current_node (&cursor);
return_value = make_treesit_node (parser, node);
}
- ts_tree_cursor_delete (&cursor);
- return return_value;
+
+ return unbind_to (count, return_value);
}
DEFUN ("treesit-search-forward",
@@ -3241,33 +3549,43 @@ always traverse leaf nodes first, then upwards. */)
Lisp_Object all)
{
CHECK_TS_NODE (start);
- CHECK_TYPE (STRINGP (predicate) || FUNCTIONP (predicate),
- list3 (Qor, Qstringp, Qfunctionp), predicate);
CHECK_SYMBOL (all);
CHECK_SYMBOL (backward);
treesit_initialize ();
Lisp_Object parser = XTS_NODE (start)->parser;
+ Lisp_Object language = XTS_PARSER (parser)->language_symbol;
+
+ Lisp_Object signal_data = Qnil;
+ if (!treesit_traverse_validate_predicate (predicate, language,
+ &signal_data, 0))
+ xsignal1 (Qtreesit_invalid_predicate, signal_data);
+
Lisp_Object return_value = Qnil;
TSTreeCursor cursor;
if (!treesit_cursor_helper (&cursor, XTS_NODE (start)->node, parser))
return return_value;
+ specpdl_ref count = SPECPDL_INDEX ();
+ record_unwind_protect_ptr (treesit_traverse_cleanup_cursor, &cursor);
+
if (treesit_search_forward (&cursor, predicate, parser,
NILP (backward), NILP (all)))
{
TSNode node = ts_tree_cursor_current_node (&cursor);
return_value = make_treesit_node (parser, node);
}
- ts_tree_cursor_delete (&cursor);
- return return_value;
+
+ return unbind_to (count, return_value);
}
/* Recursively traverse the tree under CURSOR, and append the result
subtree to PARENT's cdr. See more in Ftreesit_induce_sparse_tree.
Note that the top-level children list is reversed, because
- reasons. */
+ reasons.
+
+ This function may signal if the predicate function signals. */
static void
treesit_build_sparse_tree (TSTreeCursor *cursor, Lisp_Object parent,
Lisp_Object pred, Lisp_Object process_fn,
@@ -3353,15 +3671,13 @@ a regexp. */)
Lisp_Object depth)
{
CHECK_TS_NODE (root);
- CHECK_TYPE (STRINGP (predicate) || FUNCTIONP (predicate),
- list3 (Qor, Qstringp, Qfunctionp), predicate);
if (!NILP (process_fn))
CHECK_TYPE (FUNCTIONP (process_fn), Qfunctionp, process_fn);
/* We use a default limit of 1000. See bug#59426 for the
discussion. */
- ptrdiff_t the_limit = treesit_recursion_limit;
+ ptrdiff_t the_limit = TREESIT_RECURSION_LIMIT;
if (!NILP (depth))
{
CHECK_FIXNUM (depth);
@@ -3371,21 +3687,68 @@ a regexp. */)
treesit_initialize ();
Lisp_Object parser = XTS_NODE (root)->parser;
+ Lisp_Object language = XTS_PARSER (parser)->language_symbol;
+
+ Lisp_Object signal_data = Qnil;
+ if (!treesit_traverse_validate_predicate (predicate, language,
+ &signal_data, 0))
+ xsignal1 (Qtreesit_invalid_predicate, signal_data);
+
Lisp_Object parent = Fcons (Qnil, Qnil);
/* In this function we never traverse above NODE, so we don't need
to use treesit_cursor_helper. */
TSTreeCursor cursor = ts_tree_cursor_new (XTS_NODE (root)->node);
+ specpdl_ref count = SPECPDL_INDEX ();
+ record_unwind_protect_ptr (treesit_traverse_cleanup_cursor, &cursor);
+
treesit_build_sparse_tree (&cursor, parent, predicate, process_fn,
the_limit, parser);
- ts_tree_cursor_delete (&cursor);
+
+ unbind_to (count, Qnil);
+
Fsetcdr (parent, Fnreverse (Fcdr (parent)));
+
if (NILP (Fcdr (parent)))
return Qnil;
else
return parent;
}
+DEFUN ("treesit-node-match-p",
+ Ftreesit_node_match_p,
+ Streesit_node_match_p, 2, 2, 0,
+ doc: /* Check whether NODE matches PREDICATE.
+
+PREDICATE can be a regexp matching node type, a predicate function,
+and more, see `treesit-thing-settings' for detail. Return non-nil
+if NODE matches PRED, nil otherwise. */)
+ (Lisp_Object node, Lisp_Object predicate)
+{
+ CHECK_TS_NODE (node);
+
+ Lisp_Object parser = XTS_NODE (node)->parser;
+ Lisp_Object language = XTS_PARSER (parser)->language_symbol;
+
+ Lisp_Object signal_data = Qnil;
+ if (!treesit_traverse_validate_predicate (predicate, language,
+ &signal_data, 0))
+ xsignal1 (Qtreesit_invalid_predicate, signal_data);
+
+ TSTreeCursor cursor = ts_tree_cursor_new (XTS_NODE (node)->node);
+
+ specpdl_ref count = SPECPDL_INDEX ();
+ record_unwind_protect_ptr (treesit_traverse_cleanup_cursor, &cursor);
+
+ bool match = false;
+ match = treesit_traverse_match_predicate (&cursor, predicate,
+ parser, false);
+
+ unbind_to (count, Qnil);
+
+ return match ? Qt : Qnil;
+}
+
DEFUN ("treesit-subtree-stat",
Ftreesit_subtree_stat,
Streesit_subtree_stat, 1, 1, 0,
@@ -3480,8 +3843,12 @@ syms_of_treesit (void)
DEFSYM (Qoutdated, "outdated");
DEFSYM (Qhas_error, "has-error");
DEFSYM (Qlive, "live");
+ DEFSYM (Qnot, "not");
DEFSYM (QCanchor, ":anchor");
+ DEFSYM (QCquestion, ":?");
+ DEFSYM (QCstar, ":*");
+ DEFSYM (QCplus, ":+");
DEFSYM (QCequal, ":equal");
DEFSYM (QCmatch, ":match");
DEFSYM (QCpred, ":pred");
@@ -3504,6 +3871,7 @@ syms_of_treesit (void)
"user-emacs-directory");
DEFSYM (Qtreesit_parser_deleted, "treesit-parser-deleted");
DEFSYM (Qtreesit_pattern_expand, "treesit-pattern-expand");
+ DEFSYM (Qtreesit_invalid_predicate, "treesit-invalid-predicate");
DEFSYM (Qor, "or");
@@ -3518,9 +3886,9 @@ syms_of_treesit (void)
define_error (Qtreesit_parse_error, "Parse failed",
Qtreesit_error);
define_error (Qtreesit_range_invalid,
- "RANGES are invalid, they have to be ordered and not
overlapping",
+ "RANGES are invalid: they have to be ordered and should not
overlap",
Qtreesit_error);
- define_error (Qtreesit_buffer_too_large, "Buffer too large (> 4GB)",
+ define_error (Qtreesit_buffer_too_large, "Buffer too large (> 4GiB)",
Qtreesit_error);
define_error (Qtreesit_load_language_error,
"Cannot load language definition",
@@ -3531,6 +3899,10 @@ syms_of_treesit (void)
define_error (Qtreesit_parser_deleted,
"This parser is deleted and cannot be used",
Qtreesit_error);
+ define_error (Qtreesit_invalid_predicate,
+ "Invalid predicate, see `treesit-thing-settings' "
+ "for valid forms for a predicate",
+ Qtreesit_error);
DEFVAR_LISP ("treesit-load-name-override-list",
Vtreesit_load_name_override_list,
@@ -3561,10 +3933,41 @@ then in the `tree-sitter' subdirectory of
`user-emacs-directory', and
then in the system default locations for dynamic libraries, in that order.
*/);
Vtreesit_extra_load_path = Qnil;
+ DEFVAR_LISP ("treesit-thing-settings",
+ Vtreesit_thing_settings,
+ doc:
+ /* A list defining things.
+
+The value should be an alist of (LANGUAGE . DEFINITIONS), where
+LANGUAGE is a language symbol, and DEFINITIONS is a list of
+
+ (THING PRED)
+
+THING is a symbol representing the thing, like `defun', `sexp', or
+`block'; PRED defines what kind of node can be qualified as THING.
+
+PRED can be a regexp string that matches the type of the node; it can
+be a predicate function that takes the node as the sole argument and
+returns t if the node is the thing; it can be a cons (REGEXP . FN),
+which is a combination of a regexp and a predicate function, and the
+node has to match both to qualify as the thing.
+
+PRED can also be recursively defined. It can be (or PRED...), meaning
+satisfying anyone of the inner PREDs qualifies the node; or (not
+PRED), meaning not satisfying the inner PRED qualifies the node.
+
+Finally, PRED can refer to other THINGs defined in this list by using
+the symbol of that THING. For example, (or block sexp). */);
+ Vtreesit_thing_settings = Qnil;
+
staticpro (&Vtreesit_str_libtree_sitter);
Vtreesit_str_libtree_sitter = build_pure_c_string ("libtree-sitter-");
staticpro (&Vtreesit_str_tree_sitter);
Vtreesit_str_tree_sitter = build_pure_c_string ("tree-sitter-");
+#ifndef WINDOWSNT
+ staticpro (&Vtreesit_str_dot_0);
+ Vtreesit_str_dot_0 = build_pure_c_string (".0");
+#endif
staticpro (&Vtreesit_str_dot);
Vtreesit_str_dot = build_pure_c_string (".");
staticpro (&Vtreesit_str_question_mark);
@@ -3648,6 +4051,7 @@ then in the system default locations for dynamic
libraries, in that order. */);
defsubr (&Streesit_search_subtree);
defsubr (&Streesit_search_forward);
defsubr (&Streesit_induce_sparse_tree);
+ defsubr (&Streesit_node_match_p);
defsubr (&Streesit_subtree_stat);
#endif /* HAVE_TREE_SITTER */
defsubr (&Streesit_available_p);
diff --git a/src/w32.c b/src/w32.c
index 8d344d2e6da..a6bc0f4b2ee 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -543,7 +543,14 @@ typedef LANGID (WINAPI *GetUserDefaultUILanguage_Proc)
(void);
typedef COORD (WINAPI *GetConsoleFontSize_Proc) (HANDLE, DWORD);
-#if _WIN32_WINNT < 0x0501
+/* Old versions of mingw.org's MinGW, before v5.2.0, don't have a
+ _WIN32_WINNT guard for CONSOLE_FONT_INFO in wincon.h, and so don't
+ need the conditional definition below, which causes compilation
+ errors. Note: MinGW64 sets _WIN32_WINNT to a higher version, and
+ its w32api.h version stays fixed at 3.14. */
+#if _WIN32_WINNT < 0x0501 \
+ && (__W32API_MAJOR_VERSION > 5 \
+ || (__W32API_MAJOR_VERSION == 5 && __W32API_MINOR_VERSION >= 2))
typedef struct
{
DWORD nFont;
diff --git a/src/w32term.c b/src/w32term.c
index 2899e82b295..57dc6b465e4 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -7378,7 +7378,7 @@ w32_initialize_display_info (Lisp_Object display_name)
{
static char const at[] = " at ";
ptrdiff_t nbytes = sizeof (title) + sizeof (at);
- if (INT_ADD_WRAPV (nbytes, SCHARS (Vsystem_name), &nbytes))
+ if (ckd_add (&nbytes, nbytes, SCHARS (Vsystem_name)))
memory_full (SIZE_MAX);
dpyinfo->w32_id_name = xmalloc (nbytes);
sprintf (dpyinfo->w32_id_name, "%s%s%s", title, at, SDATA
(Vsystem_name));
diff --git a/src/window.h b/src/window.h
index 32b5fe14f4f..2f793ebe438 100644
--- a/src/window.h
+++ b/src/window.h
@@ -750,7 +750,7 @@ wset_next_buffers (struct window *w, Lisp_Object val)
#endif
/* True if W is a tab bar window. */
-#if defined (HAVE_WINDOW_SYSTEM) && !defined (HAVE_PGTK)
+#if defined (HAVE_WINDOW_SYSTEM)
# define WINDOW_TAB_BAR_P(W) \
(WINDOWP (WINDOW_XFRAME (W)->tab_bar_window) \
&& (W) == XWINDOW (WINDOW_XFRAME (W)->tab_bar_window))
diff --git a/src/xdisp.c b/src/xdisp.c
index 0ebbe81f7d3..d21ee213bee 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -602,8 +602,8 @@ fill_column_indicator_column (struct it *it, int char_width)
if (RANGED_FIXNUMP (0, col, INT_MAX))
{
int icol = XFIXNUM (col);
- if (!INT_MULTIPLY_WRAPV (char_width, icol, &icol)
- && !INT_ADD_WRAPV (it->lnum_pixel_width, icol, &icol))
+ if (!ckd_mul (&icol, icol, char_width)
+ && !ckd_add (&icol, icol, it->lnum_pixel_width))
return icol;
}
}
@@ -3482,7 +3482,7 @@ init_iterator (struct it *it, struct window *w,
/* This is set only when long_line_optimizations_p is non-zero
for the current buffer. */
- it->narrowed_begv = 0;
+ it->medium_narrowing_begv = 0;
/* Compute faces etc. */
reseat (it, it->current.pos, true);
@@ -3491,17 +3491,104 @@ init_iterator (struct it *it, struct window *w,
CHECK_IT (it);
}
-/* Compute a suitable alternate value for BEGV and ZV that may be used
- temporarily to optimize display if the buffer in window W contains
- long lines. */
+/* How Emacs deals with long lines.
+
+ (1) When a buffer is about to be (re)displayed, 'redisplay_window'
+ detects, with a heuristic, whether it contains long lines.
+
+ This happens in 'redisplay_window' because it is only displaying
+ buffers with long lines that is problematic. In other words, none
+ of the optimizations described below is ever used in buffers that
+ are never displayed.
+
+ This happens with a heuristic, which checks whether a buffer
+ contains long lines, each time its contents have changed "enough"
+ between two redisplay cycles, because a buffer without long lines
+ can become a buffer with long lines at any time, for example after
+ a yank command, or after a replace command, or while the output of
+ an external process is inserted in a buffer.
+
+ When Emacs has detected that a buffer contains long lines, the
+ buffer-local variable 'long_line_optimizations_p' (in 'struct
+ buffer') is set, and Emacs does not try to detect whether the
+ buffer does or does not contain long lines anymore.
+
+ What a long line is depends on the variable 'long-line-threshold',
+ whose default value is 50000 (characters).
+
+ (2) When a buffer with long lines is (re)displayed, the amount of
+ data that the display routines consider is, in a few well-chosen
+ places, limited with a temporary restriction, whose bounds are
+ calculated with the functions below.
+
+ (2.1) 'get_small_narrowing_begv' is used to create a restriction
+ which starts a few hundred characters before point. The exact
+ number of characters depends on the width of the window in which
+ the buffer is displayed.
+
+ There is no corresponding 'get_small_narrowing_zv' function,
+ because it is not necessary to set the end limit of that
+ restriction.
+
+ This restriction is used in four places, namely:
+ 'back_to_previous_line_start' and 'move_it_vertically_backward'
+ (with the 'SET_WITH_NARROWED_BEGV' macro), and in
+ 'composition_compute_stop_pos' and 'find_automatic_composition' (in
+ a conditional statement depending on 'long_line_optimizations_p').
+
+ (2.2) 'get_medium_narrowing_begv' is used to create a restriction
+ which starts a few thousand characters before point. The exact
+ number of characters depends on the size (width and height) of the
+ window in which the buffer is displayed. For performance reasons,
+ the return value of that function is cached in 'struct it', in the
+ 'medium_narrowing_begv' field.
+
+ The corresponding function 'get_medium_narrowing_zv' (and
+ 'medium_narrowing_zv' field in 'struct it') is not used to set the
+ end limit of the restriction, which is again unnecessary, but to
+ determine, in 'reseat', whether the iterator has moved far enough
+ from its original position, and whether the start position of the
+ restriction must be computed anew.
+
+ This restriction is used in a single place:
+ 'get_visually_first_element', with the 'SET_WITH_NARROWED_BEGV'
+ macro.
+
+ (2.3) 'get_large_narrowing_begv' and 'get_large_narrowing_zv' are
+ used to create a restriction which starts a few hundred thousand
+ characters before point and ends a few hundred thousand characters
+ after point. The size of that restriction depends on the variable
+ 'long-line-optimizations-region-size', whose default value is
+ 500000 (characters); it can be adjusted by a few hundred characters
+ depending on 'long-line-optimizations-bol-search-limit', whose
+ default value is 128 (characters).
+
+ For performance reasons again, the return values of these functions
+ are stored in the 'large_narrowing_begv' and 'large_narrowing_zv'
+ fields in 'struct it'.
+
+ The restriction defined by these values is used around three
+ low-level hooks: around 'fontification-functions', in
+ 'handle_fontified_prop', and around 'pre-command-hook' and
+ 'post-command-hook', in 'safe_run_hooks_maybe_narrowed', which is
+ called in 'command_loop_1'. These restrictions are set around
+ these hooks with 'labeled_narrow_to_region'; the restrictions are
+ labeled, and cannot be removed with a call to 'widen', but can be
+ removed with 'without-restriction' with a :label argument.
+*/
static int
get_narrowed_width (struct window *w)
{
/* In a character-only terminal, only one font size is used, so we
can use a smaller factor. */
- int fact = EQ (Fterminal_live_p (Qnil), Qt) ? 2 : 3;
- int width = window_body_width (w, WINDOW_BODY_IN_CANONICAL_CHARS);
+ int fact = FRAME_WINDOW_P (XFRAME (w->frame)) ? 3 : 2;
+ /* If the window has no fringes (in a character-only terminal or in
+ a GUI frame without fringes), subtract 1 from the width for the
+ '\' line wrapping character. */
+ int width = window_body_width (w, WINDOW_BODY_IN_CANONICAL_CHARS)
+ - ((WINDOW_RIGHT_FRINGE_WIDTH (w) == 0
+ || WINDOW_LEFT_FRINGE_WIDTH (w) == 0) ? 1 : 0);
return fact * max (1, width);
}
@@ -3512,29 +3599,63 @@ get_narrowed_len (struct window *w)
return get_narrowed_width (w) * max (1, height);
}
-ptrdiff_t
-get_narrowed_begv (struct window *w, ptrdiff_t pos)
+static ptrdiff_t
+get_medium_narrowing_begv (struct window *w, ptrdiff_t pos)
{
int len = get_narrowed_len (w);
return max ((pos / len - 1) * len, BEGV);
}
-ptrdiff_t
-get_narrowed_zv (struct window *w, ptrdiff_t pos)
+static ptrdiff_t
+get_medium_narrowing_zv (struct window *w, ptrdiff_t pos)
{
int len = get_narrowed_len (w);
return min ((pos / len + 1) * len, ZV);
}
+/* Find the position of the last BOL before POS, unless it is too far
+ away. The buffer portion in which the search occurs is gradually
+ enlarged: [POS-500..POS], [POS-5500..POS-500],
+ [POS-55500..POS-5500], and finally [POS-555500..POS-55500]. Return
+ BEGV-1 if no BOL was found in [POS-555500..POS]. */
+static ptrdiff_t
+get_nearby_bol_pos (ptrdiff_t pos)
+{
+ ptrdiff_t start, pos_bytepos, cur, next, found, bol = BEGV - 1, init_pos =
pos;
+ int dist;
+ for (dist = 500; dist <= 500000; dist *= 10)
+ {
+ pos_bytepos = pos == BEGV ? BEGV_BYTE : CHAR_TO_BYTE (pos);
+ start = pos - dist < BEGV ? BEGV : pos - dist;
+ for (cur = start; cur < pos; cur = next)
+ {
+ next = find_newline1 (cur, CHAR_TO_BYTE (cur),
+ pos, pos_bytepos,
+ 1, &found, NULL, false);
+ if (found)
+ bol = next;
+ else
+ break;
+ }
+ if (bol >= BEGV || start == BEGV)
+ break;
+ else
+ pos = pos - dist < BEGV ? BEGV : pos - dist;
+ }
+ eassert (bol <= init_pos);
+ return bol;
+}
+
ptrdiff_t
-get_closer_narrowed_begv (struct window *w, ptrdiff_t pos)
+get_small_narrowing_begv (struct window *w, ptrdiff_t pos)
{
int len = get_narrowed_width (w);
- return max ((pos / len - 1) * len, BEGV);
+ ptrdiff_t bol_pos = max (get_nearby_bol_pos (pos), BEGV);
+ return max (bol_pos + ((pos - bol_pos) / len - 1) * len, BEGV);
}
ptrdiff_t
-get_locked_narrowing_begv (ptrdiff_t pos)
+get_large_narrowing_begv (ptrdiff_t pos)
{
if (long_line_optimizations_region_size <= 0)
return BEGV;
@@ -3552,7 +3673,7 @@ get_locked_narrowing_begv (ptrdiff_t pos)
}
ptrdiff_t
-get_locked_narrowing_zv (ptrdiff_t pos)
+get_large_narrowing_zv (ptrdiff_t pos)
{
if (long_line_optimizations_region_size <= 0)
return ZV;
@@ -3571,7 +3692,7 @@ unwind_narrowed_begv (Lisp_Object point_min)
#define SET_WITH_NARROWED_BEGV(IT,DST,EXPR,BV) \
do { \
- if (IT->narrowed_begv) \
+ if (IT->medium_narrowing_begv) \
{
\
specpdl_ref count = SPECPDL_INDEX (); \
record_unwind_protect (unwind_narrowed_begv, Fpoint_min ()); \
@@ -4056,7 +4177,7 @@ compute_stop_pos (struct it *it)
{
register INTERVAL iv, next_iv;
Lisp_Object object, limit, position;
- ptrdiff_t charpos, bytepos;
+ ptrdiff_t charpos, bytepos, cmp_limit_pos = -1;
if (STRINGP (it->string))
{
@@ -4126,7 +4247,10 @@ compute_stop_pos (struct it *it)
}
}
if (found)
- pos--;
+ {
+ pos--;
+ cmp_limit_pos = pos;
+ }
else if (it->stop_charpos < endpos)
pos = it->stop_charpos;
else
@@ -4184,14 +4308,25 @@ compute_stop_pos (struct it *it)
}
}
- if (it->cmp_it.id < 0)
+ if (it->cmp_it.id < 0
+ && (STRINGP (it->string)
+ || ((!it->bidi_p || it->bidi_it.scan_dir >= 0)
+ && it->cmp_it.stop_pos <= IT_CHARPOS (*it))))
{
ptrdiff_t stoppos = it->end_charpos;
+ /* If we found, above, a buffer position that cannot be part of
+ an automatic composition, limit the search of composable
+ characters to that position. */
if (it->bidi_p && it->bidi_it.scan_dir < 0)
stoppos = -1;
+ else if (cmp_limit_pos > 0)
+ stoppos = cmp_limit_pos;
+ /* Force composition_compute_stop_pos avoid the costly search
+ for static compositions, since those were already found by
+ looking at text properties, above. */
composition_compute_stop_pos (&it->cmp_it, charpos, bytepos,
- stoppos, it->string);
+ stoppos, it->string, false);
}
eassert (STRINGP (it->string)
@@ -4396,17 +4531,17 @@ handle_fontified_prop (struct it *it)
if (current_buffer->long_line_optimizations_p
&& long_line_optimizations_region_size > 0)
{
- ptrdiff_t begv = it->locked_narrowing_begv;
- ptrdiff_t zv = it->locked_narrowing_zv;
+ ptrdiff_t begv = it->large_narrowing_begv;
+ ptrdiff_t zv = it->large_narrowing_zv;
ptrdiff_t charpos = IT_CHARPOS (*it);
if (charpos < begv || charpos > zv)
{
- begv = get_locked_narrowing_begv (charpos);
- zv = get_locked_narrowing_zv (charpos);
+ begv = get_large_narrowing_begv (charpos);
+ zv = get_large_narrowing_zv (charpos);
}
if (begv != BEG || zv != Z)
- narrow_to_region_locked (make_fixnum (begv), make_fixnum (zv),
-
Qlong_line_optimizations_in_fontification_functions);
+ labeled_narrow_to_region (make_fixnum (begv), make_fixnum (zv),
+
Qlong_line_optimizations_in_fontification_functions);
}
/* Don't allow Lisp that runs from 'fontification-functions'
@@ -7041,7 +7176,7 @@ back_to_previous_line_start (struct it *it)
dec_both (&cp, &bp);
SET_WITH_NARROWED_BEGV (it, IT_CHARPOS (*it),
find_newline_no_quit (cp, bp, -1, &IT_BYTEPOS (*it)),
- get_closer_narrowed_begv (it->w, IT_CHARPOS (*it)));
+ get_small_narrowing_begv (it->w, IT_CHARPOS (*it)));
}
/* Find in the current buffer the first display or overlay string
@@ -7345,7 +7480,7 @@ back_to_previous_visible_line_start (struct it *it)
it->continuation_lines_width = 0;
eassert (IT_CHARPOS (*it) >= BEGV);
- eassert (it->narrowed_begv > 0 /* long-line optimizations: all bets off */
+ eassert (it->medium_narrowing_begv > 0 /* long-line optimizations: all bets
off */
|| IT_CHARPOS (*it) == BEGV
|| FETCH_BYTE (IT_BYTEPOS (*it) - 1) == '\n');
CHECK_IT (it);
@@ -7463,24 +7598,29 @@ reseat (struct it *it, struct text_pos pos, bool
force_p)
if (current_buffer->long_line_optimizations_p)
{
- if (!it->narrowed_begv)
+ if (!it->medium_narrowing_begv)
{
- it->narrowed_begv = get_narrowed_begv (it->w, window_point (it->w));
- it->narrowed_zv = get_narrowed_zv (it->w, window_point (it->w));
- it->locked_narrowing_begv
- = get_locked_narrowing_begv (window_point (it->w));
- it->locked_narrowing_zv
- = get_locked_narrowing_zv (window_point (it->w));
+ it->medium_narrowing_begv
+ = get_medium_narrowing_begv (it->w, window_point (it->w));
+ it->medium_narrowing_zv
+ = get_medium_narrowing_zv (it->w, window_point (it->w));
+ it->large_narrowing_begv
+ = get_large_narrowing_begv (window_point (it->w));
+ it->large_narrowing_zv
+ = get_large_narrowing_zv (window_point (it->w));
}
- else if ((pos.charpos < it->narrowed_begv || pos.charpos >
it->narrowed_zv)
+ else if ((pos.charpos < it->medium_narrowing_begv
+ || pos.charpos > it->medium_narrowing_zv)
&& (!redisplaying_p || it->line_wrap == TRUNCATE))
{
- it->narrowed_begv = get_narrowed_begv (it->w, pos.charpos);
- it->narrowed_zv = get_narrowed_zv (it->w, pos.charpos);
- it->locked_narrowing_begv
- = get_locked_narrowing_begv (window_point (it->w));
- it->locked_narrowing_zv
- = get_locked_narrowing_zv (window_point (it->w));
+ it->medium_narrowing_begv
+ = get_medium_narrowing_begv (it->w, pos.charpos);
+ it->medium_narrowing_zv
+ = get_medium_narrowing_zv (it->w, pos.charpos);
+ it->large_narrowing_begv
+ = get_large_narrowing_begv (window_point (it->w));
+ it->large_narrowing_zv
+ = get_large_narrowing_zv (window_point (it->w));
}
}
@@ -7716,7 +7856,7 @@ reseat_to_string (struct it *it, const char *s,
Lisp_Object string,
if (endpos > it->end_charpos)
endpos = it->end_charpos;
composition_compute_stop_pos (&it->cmp_it, charpos, -1, endpos,
- it->string);
+ it->string, true);
}
CHECK_IT (it);
}
@@ -8404,7 +8544,7 @@ set_iterator_to_next (struct it *it, bool reseat_p)
where to stop. */
stop = -1;
composition_compute_stop_pos (&it->cmp_it, IT_CHARPOS (*it),
- IT_BYTEPOS (*it), stop, Qnil);
+ IT_BYTEPOS (*it), stop, Qnil, true);
}
}
else
@@ -8435,7 +8575,8 @@ set_iterator_to_next (struct it *it, bool reseat_p)
if (it->bidi_it.scan_dir < 0)
stop = -1;
composition_compute_stop_pos (&it->cmp_it, IT_CHARPOS (*it),
- IT_BYTEPOS (*it), stop, Qnil);
+ IT_BYTEPOS (*it), stop, Qnil,
+ true);
}
}
eassert (IT_BYTEPOS (*it) == CHAR_TO_BYTE (IT_CHARPOS (*it)));
@@ -8591,7 +8732,7 @@ set_iterator_to_next (struct it *it, bool reseat_p)
composition_compute_stop_pos (&it->cmp_it,
IT_STRING_CHARPOS (*it),
IT_STRING_BYTEPOS (*it), stop,
- it->string);
+ it->string, true);
}
}
else
@@ -8628,7 +8769,7 @@ set_iterator_to_next (struct it *it, bool reseat_p)
composition_compute_stop_pos (&it->cmp_it,
IT_STRING_CHARPOS (*it),
IT_STRING_BYTEPOS (*it), stop,
- it->string);
+ it->string, true);
}
}
}
@@ -8789,7 +8930,7 @@ get_visually_first_element (struct it *it)
SET_WITH_NARROWED_BEGV (it, bob,
string_p ? 0 :
IT_CHARPOS (*it) < BEGV ? obegv : BEGV,
- it->narrowed_begv);
+ it->medium_narrowing_begv);
if (STRINGP (it->string))
{
@@ -8833,7 +8974,7 @@ get_visually_first_element (struct it *it)
find_newline_no_quit (IT_CHARPOS (*it),
IT_BYTEPOS (*it), -1,
&it->bidi_it.bytepos),
- it->narrowed_begv);
+ it->medium_narrowing_begv);
bidi_paragraph_init (it->paragraph_embedding, &it->bidi_it, true);
do
{
@@ -8879,7 +9020,7 @@ get_visually_first_element (struct it *it)
if (it->bidi_it.scan_dir < 0)
stop = -1;
composition_compute_stop_pos (&it->cmp_it, charpos, bytepos, stop,
- it->string);
+ it->string, true);
}
}
@@ -10722,7 +10863,7 @@ move_it_vertically_backward (struct it *it, int dy)
dec_both (&cp, &bp);
SET_WITH_NARROWED_BEGV (it, cp,
find_newline_no_quit (cp, bp, -1, NULL),
- get_closer_narrowed_begv (it->w, IT_CHARPOS
(*it)));
+ get_small_narrowing_begv (it->w, IT_CHARPOS
(*it)));
move_it_to (it, cp, -1, -1, -1, MOVE_TO_POS);
}
bidi_unshelve_cache (it3data, true);
@@ -12810,6 +12951,8 @@ truncate_message_1 (void *a1, Lisp_Object a2)
return false;
}
+extern intptr_t garbage_collection_inhibited;
+
/* Set the current message to STRING. */
static void
@@ -12819,7 +12962,11 @@ set_message (Lisp_Object string)
eassert (STRINGP (string));
- if (FUNCTIONP (Vset_message_function))
+ if (FUNCTIONP (Vset_message_function)
+ /* FIXME: (bug#63253) We should really make the regexp engine re-entrant,
+ but in the mean time, let's ignore `set-message-function` when
+ called from `probably_quit`. */
+ && !garbage_collection_inhibited)
{
specpdl_ref count = SPECPDL_INDEX ();
specbind (Qinhibit_quit, Qt);
@@ -12896,7 +13043,9 @@ clear_message (bool current_p, bool last_displayed_p)
if (current_p)
{
- if (FUNCTIONP (Vclear_message_function))
+ if (FUNCTIONP (Vclear_message_function)
+ /* FIXME: (bug#63253) Same as for `set-message-function` above. */
+ && !garbage_collection_inhibited)
{
specpdl_ref count = SPECPDL_INDEX ();
specbind (Qinhibit_quit, Qt);
@@ -16394,7 +16543,7 @@ redisplay_internal (void)
FOR_EACH_FRAME (tail, frame)
XFRAME (frame)->already_hscrolled_p = false;
- reset_outermost_narrowings ();
+ reset_outermost_restrictions ();
retry:
/* Remember the currently selected window. */
@@ -18546,8 +18695,9 @@ try_scrolling (Lisp_Object window, bool just_this_one_p,
start_display (&it, w, startp);
if (arg_scroll_conservatively)
- amount_to_scroll = max (dy, frame_line_height
- * max (scroll_step, temp_scroll_step));
+ amount_to_scroll
+ = min (max (dy, frame_line_height),
+ frame_line_height * arg_scroll_conservatively);
else if (scroll_step || temp_scroll_step)
amount_to_scroll = scroll_max;
else
@@ -20599,6 +20749,8 @@ try_window (Lisp_Object window, struct text_pos pos,
int flags)
int bot_scroll_margin = top_scroll_margin;
if (window_wants_header_line (w))
top_scroll_margin += CURRENT_HEADER_LINE_HEIGHT (w);
+ if (window_wants_tab_line (w))
+ top_scroll_margin += CURRENT_TAB_LINE_HEIGHT (w);
start_display (&it, w, pos);
if ((w->cursor.y >= 0
@@ -20944,8 +21096,10 @@ try_window_reusing_current_matrix (struct window *w)
pt_row = first_row_to_display;
}
+ if (first_row_to_display->y >= yb)
+ return false;
+
/* Start displaying at the start of first_row_to_display. */
- eassert (first_row_to_display->y < yb);
init_to_row_start (&it, w, first_row_to_display);
nrows_scrolled = (MATRIX_ROW_VPOS (first_reusable_row, w->current_matrix)
@@ -21943,17 +22097,23 @@ try_window_id (struct window *w)
/* Don't let the cursor end in the scroll margins. */
{
- int this_scroll_margin = window_scroll_margin (w, MARGIN_IN_PIXELS);
+ int top_scroll_margin = window_scroll_margin (w, MARGIN_IN_PIXELS);
+ int bot_scroll_margin = top_scroll_margin;
int cursor_height = MATRIX_ROW (w->desired_matrix, w->cursor.vpos)->height;
- if ((w->cursor.y < this_scroll_margin
+ if (window_wants_header_line (w))
+ top_scroll_margin += CURRENT_HEADER_LINE_HEIGHT (w);
+ if (window_wants_tab_line (w))
+ top_scroll_margin += CURRENT_TAB_LINE_HEIGHT (w);
+
+ if ((w->cursor.y < top_scroll_margin
&& CHARPOS (start) > BEGV)
/* Old redisplay didn't take scroll margin into account at the bottom,
but then global-hl-line-mode doesn't scroll. KFS 2004-06-14 */
|| (w->cursor.y
+ (cursor_row_fully_visible_p (w, false, true, true)
? 1
- : cursor_height + this_scroll_margin)) > it.last_visible_y)
+ : cursor_height + bot_scroll_margin)) > it.last_visible_y)
{
w->cursor.vpos = -1;
clear_glyph_matrix (w->desired_matrix);
@@ -24112,6 +24272,7 @@ display_count_lines_logically (ptrdiff_t start_byte,
ptrdiff_t limit_byte,
ptrdiff_t val;
specpdl_ref pdl_count = SPECPDL_INDEX ();
record_unwind_protect (save_restriction_restore, save_restriction_save ());
+ labeled_restrictions_remove_in_current_buffer ();
Fwiden ();
val = display_count_lines (start_byte, limit_byte, count, byte_pos_ptr);
unbind_to (pdl_count, Qnil);
@@ -28057,9 +28218,8 @@ decode_mode_spec (struct window *w, register int c, int
field_width,
ptrdiff_t position;
ptrdiff_t distance
= (line_number_display_limit_width < 0 ? 0
- : INT_MULTIPLY_WRAPV (line_number_display_limit_width,
- height * 2 + 30,
- &distance)
+ : ckd_mul (&distance, line_number_display_limit_width,
+ height * 2 + 30)
? PTRDIFF_MAX : distance);
if (startpos - distance > limit)
@@ -36517,7 +36677,7 @@ This is used for internal purposes. */);
Vinhibit_redisplay = Qnil;
DEFVAR_LISP ("global-mode-string", Vglobal_mode_string,
- doc: /* String (or mode line construct) included (normally) in
`mode-line-format'. */);
+ doc: /* String (or mode line construct) included (normally) in
`mode-line-misc-info'. */);
Vglobal_mode_string = Qnil;
DEFVAR_LISP ("overlay-arrow-position", Voverlay_arrow_position,
diff --git a/src/xfns.c b/src/xfns.c
index 9e004f6a678..234a48c908f 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -4252,9 +4252,9 @@ x_window (struct frame *f, long window_prompting)
#ifdef HAVE_X_I18N
FRAME_XIC (f) = NULL;
- if (use_xim)
+ if (FRAME_DISPLAY_INFO (f)->use_xim)
create_frame_xic (f);
-#endif
+#endif /* HAVE_X_I18N */
f->output_data.x->wm_hints.input = True;
f->output_data.x->wm_hints.flags |= InputHint;
@@ -4355,32 +4355,32 @@ x_window (struct frame *f)
#ifdef HAVE_X_I18N
FRAME_XIC (f) = NULL;
- if (use_xim)
- {
- block_input ();
- create_frame_xic (f);
- if (FRAME_XIC (f))
- {
- /* XIM server might require some X events. */
- unsigned long fevent = NoEventMask;
- XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
+ if (FRAME_DISPLAY_INFO (f)->use_xim)
+ {
+ block_input ();
+ create_frame_xic (f);
+ if (FRAME_XIC (f))
+ {
+ /* XIM server might require some X events. */
+ unsigned long fevent = NoEventMask;
+ XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
- if (fevent != NoEventMask)
- {
- XSetWindowAttributes attributes;
- XWindowAttributes wattr;
- unsigned long attribute_mask;
-
- XGetWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
- &wattr);
- attributes.event_mask = wattr.your_event_mask | fevent;
- attribute_mask = CWEventMask;
- XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
- attribute_mask, &attributes);
- }
- }
- unblock_input ();
- }
+ if (fevent != NoEventMask)
+ {
+ XSetWindowAttributes attributes;
+ XWindowAttributes wattr;
+ unsigned long attribute_mask;
+
+ XGetWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
+ &wattr);
+ attributes.event_mask = wattr.your_event_mask | fevent;
+ attribute_mask = CWEventMask;
+ XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
+ attribute_mask, &attributes);
+ }
+ }
+ unblock_input ();
+ }
#endif
append_wm_protocols (FRAME_DISPLAY_INFO (f), f);
@@ -4427,7 +4427,7 @@ x_window (struct frame *f)
initial_set_up_x_back_buffer (f);
#ifdef HAVE_X_I18N
- if (use_xim)
+ if (FRAME_DISPLAY_INFO (f)->use_xim)
{
create_frame_xic (f);
if (FRAME_XIC (f))
diff --git a/src/xml.c b/src/xml.c
index b55ac62cdd3..b4c849e6a65 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -280,7 +280,10 @@ DEFUN ("libxml-parse-html-region",
Flibxml_parse_html_region,
If START is nil, it defaults to `point-min'. If END is nil, it
defaults to `point-max'.
-If BASE-URL is non-nil, it is used to expand relative URLs.
+If BASE-URL is non-nil, it is used if and when reporting errors and
+warnings from the underlying libxml2 library. Currently, errors and
+warnings from the library are suppressed, so this argument is largely
+ignored.
If you want comments to be stripped, use the `xml-remove-comments'
function to strip comments before calling this function. */)
@@ -298,7 +301,10 @@ DEFUN ("libxml-parse-xml-region", Flibxml_parse_xml_region,
If START is nil, it defaults to `point-min'. If END is nil, it
defaults to `point-max'.
-If BASE-URL is non-nil, it is used to expand relative URLs.
+If BASE-URL is non-nil, it is used if and when reporting errors and
+warnings from the underlying libxml2 library. Currently, errors and
+warnings from the library are suppressed, so this argument is largely
+ignored.
If you want comments to be stripped, use the `xml-remove-comments'
function to strip comments before calling this function. */)
diff --git a/src/xselect.c b/src/xselect.c
index 0586e46870b..40be6d4c00c 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -744,13 +744,13 @@ selection_data_size (struct selection_data *data)
return (size_t) data->size;
case 16:
- if (INT_MULTIPLY_WRAPV (data->size, 2, &scratch))
+ if (ckd_mul (&scratch, data->size, 2))
return SIZE_MAX;
return scratch;
case 32:
- if (INT_MULTIPLY_WRAPV (data->size, 4, &scratch))
+ if (ckd_mul (&scratch, data->size, 4))
return SIZE_MAX;
return scratch;
@@ -3027,7 +3027,7 @@ x_property_data_to_lisp (struct frame *f, const unsigned
char *data,
{
ptrdiff_t format_bytes = format >> 3;
ptrdiff_t data_bytes;
- if (INT_MULTIPLY_WRAPV (size, format_bytes, &data_bytes))
+ if (ckd_mul (&data_bytes, size, format_bytes))
memory_full (SIZE_MAX);
return selection_data_to_lisp_data (FRAME_DISPLAY_INFO (f), data,
data_bytes, type, format);
diff --git a/src/xsmfns.c b/src/xsmfns.c
index 799c9fd1053..3cf5165242e 100644
--- a/src/xsmfns.c
+++ b/src/xsmfns.c
@@ -223,7 +223,7 @@ smc_save_yourself_CB (SmcConn smcConn,
props[props_idx]->name = xstrdup (SmRestartCommand);
props[props_idx]->type = xstrdup (SmLISTofARRAY8);
/* /path/to/emacs, --smid=xxx --no-splash --chdir=dir ... */
- if (INT_ADD_WRAPV (initial_argc, 3, &i))
+ if (ckd_add (&i, initial_argc, 3))
memory_full (SIZE_MAX);
props[props_idx]->num_vals = i;
vp = xnmalloc (i, sizeof *vp);
diff --git a/src/xterm.c b/src/xterm.c
index 70bcb67d80d..0450230efe6 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -798,13 +798,6 @@ typedef int (*Emacs_XIOErrorHandler) (Display *);
#define USE_CAIRO_XCB_SURFACE
#endif
-/* Default to using XIM if available. */
-#ifdef USE_XIM
-bool use_xim = true;
-#else
-bool use_xim = false; /* configure --without-xim */
-#endif
-
#if XCB_SHAPE_MAJOR_VERSION > 1 \
|| (XCB_SHAPE_MAJOR_VERSION == 1 && \
XCB_SHAPE_MINOR_VERSION >= 1)
@@ -2322,13 +2315,10 @@ xm_setup_dnd_targets (struct x_display_info *dpyinfo,
target_count = header.target_list_count;
rc = false;
- if (INT_ADD_WRAPV (header.target_list_count, 1,
- &header.target_list_count)
- || INT_MULTIPLY_WRAPV (ntargets, 4, &size)
- || INT_ADD_WRAPV (header.total_data_size, size,
- &header.total_data_size)
- || INT_ADD_WRAPV (header.total_data_size, 2,
- &header.total_data_size))
+ if (ckd_add (&header.target_list_count, header.target_list_count, 1)
+ || ckd_mul (&size, ntargets, 4)
+ || ckd_add (&header.total_data_size, header.total_data_size, size)
+ || ckd_add (&header.total_data_size, header.total_data_size, 2))
{
/* Overflow, remove every entry from the targets table
and add one for our current targets list. This
@@ -6949,8 +6939,7 @@ x_sync_get_monotonic_time (struct x_display_info *dpyinfo,
return 0;
uint_fast64_t t;
- return (INT_SUBTRACT_WRAPV (timestamp, dpyinfo->server_time_offset, &t)
- ? 0 : t);
+ return ckd_sub (&t, timestamp, dpyinfo->server_time_offset) ? 0 : t;
}
# ifndef CLOCK_MONOTONIC
@@ -6968,8 +6957,8 @@ x_sync_current_monotonic_time (void)
return (((clock_gettime (CLOCK_MONOTONIC, &time) != 0
&& (CLOCK_MONOTONIC == CLOCK_REALTIME
|| clock_gettime (CLOCK_REALTIME, &time) != 0))
- || INT_MULTIPLY_WRAPV (time.tv_sec, 1000000, &t)
- || INT_ADD_WRAPV (t, time.tv_nsec / 1000, &t))
+ || ckd_mul (&t, time.tv_sec, 1000000)
+ || ckd_add (&t, t, time.tv_nsec / 1000))
? 0 : t);
}
@@ -6990,8 +6979,7 @@ x_sync_note_frame_times (struct x_display_info *dpyinfo,
time = x_sync_get_monotonic_time (dpyinfo, low | (high << 32));
if (!time || !output->temp_frame_time
- || INT_SUBTRACT_WRAPV (time, output->temp_frame_time,
- &output->last_frame_time))
+ || ckd_sub (&output->last_frame_time, time, output->temp_frame_time))
output->last_frame_time = 0;
#ifdef FRAME_DEBUG
@@ -7967,7 +7955,7 @@ x_display_set_last_user_time (struct x_display_info
*dpyinfo, Time time,
dpyinfo->server_time_monotonic_p
= (monotonic_time != 0
- && !INT_SUBTRACT_WRAPV (time, monotonic_ms, &diff_ms)
+ && !ckd_sub (&diff_ms, time, monotonic_ms)
&& -500 < diff_ms && diff_ms < 500);
if (!dpyinfo->server_time_monotonic_p)
@@ -7976,10 +7964,9 @@ x_display_set_last_user_time (struct x_display_info
*dpyinfo, Time time,
time to estimate the monotonic time on the X server. */
if (!monotonic_time
- || INT_MULTIPLY_WRAPV (time, 1000, &dpyinfo->server_time_offset)
- || INT_SUBTRACT_WRAPV (dpyinfo->server_time_offset,
- monotonic_time,
- &dpyinfo->server_time_offset))
+ || ckd_mul (&dpyinfo->server_time_offset, time, 1000)
+ || ckd_sub (&dpyinfo->server_time_offset,
+ dpyinfo->server_time_offset, monotonic_time))
dpyinfo->server_time_offset = 0;
/* If the server time is reasonably close to the monotonic
@@ -7988,18 +7975,18 @@ x_display_set_last_user_time (struct x_display_info
*dpyinfo, Time time,
actual time in ms. */
monotonic_ms = monotonic_ms & 0xffffffff;
- if (!INT_SUBTRACT_WRAPV (time, monotonic_ms, &diff_ms)
+ if (!ckd_sub (&diff_ms, time, monotonic_ms)
&& -500 < diff_ms && diff_ms < 500)
{
/* The server timestamp overflowed. Make the time
offset exactly how much it overflowed by. */
- if (INT_SUBTRACT_WRAPV (monotonic_time / 1000, monotonic_ms,
- &dpyinfo->server_time_offset)
- || INT_MULTIPLY_WRAPV (dpyinfo->server_time_offset,
- 1000, &dpyinfo->server_time_offset)
- || INT_SUBTRACT_WRAPV (0, dpyinfo->server_time_offset,
- &dpyinfo->server_time_offset))
+ if (ckd_sub (&dpyinfo->server_time_offset,
+ monotonic_time / 1000, monotonic_ms)
+ || ckd_mul (&dpyinfo->server_time_offset,
+ dpyinfo->server_time_offset, 1000)
+ || ckd_sub (&dpyinfo->server_time_offset,
+ 0, dpyinfo->server_time_offset))
dpyinfo->server_time_offset = 0;
}
}
@@ -21178,14 +21165,28 @@ handle_one_xevent (struct x_display_info *dpyinfo,
x_cr_update_surface_desired_size (any,
configureEvent.xconfigure.width,
configureEvent.xconfigure.height);
- if (f || (any && configureEvent.xconfigure.window == FRAME_X_WINDOW
(any)))
- x_update_opaque_region (f ? f : any, &configureEvent);
#endif
+
+#if !defined USE_X_TOOLKIT && !defined USE_GTK
+
+ /* Make the new size of the frame its opaque region. This is a
+ region describing areas of the window which are always
+ guaranteed to be completely opaque and can be treated as such
+ by the compositor. It is set to the width and height of the
+ only window in no-toolkit builds when `alpha_background' is
+ not set, and is cleared otherwise. */
+
+ if (f || (any && configureEvent.xconfigure.window
+ == FRAME_OUTER_WINDOW (any)))
+ x_update_opaque_region (f ? f : any, &configureEvent);
+
+#endif /* !defined USE_X_TOOLKIT && !defined USE_GTK */
+
#ifdef USE_GTK
if (!f
&& (f = any)
&& configureEvent.xconfigure.window == FRAME_X_WINDOW (f)
- && (FRAME_VISIBLE_P(f)
+ && (FRAME_VISIBLE_P (f)
|| !(configureEvent.xconfigure.width <= 1
&& configureEvent.xconfigure.height <= 1)))
{
@@ -21212,10 +21213,9 @@ handle_one_xevent (struct x_display_info *dpyinfo,
f = 0;
}
#endif
- if (f
- && (FRAME_VISIBLE_P(f)
- || !(configureEvent.xconfigure.width <= 1
- && configureEvent.xconfigure.height <= 1)))
+ if (f && (FRAME_VISIBLE_P (f)
+ || !(configureEvent.xconfigure.width <= 1
+ && configureEvent.xconfigure.height <= 1)))
{
#ifdef USE_GTK
/* For GTK+ don't call x_net_wm_state for the scroll bar
@@ -26659,7 +26659,12 @@ xim_destroy_callback (XIM xim, XPointer client_data,
XPointer call_data)
/* No need to call XCloseIM. */
dpyinfo->xim = NULL;
- XFree (dpyinfo->xim_styles);
+
+ /* Also free IM values; those are allocated separately upon
+ XGetIMValues. */
+ if (dpyinfo->xim_styles)
+ XFree (dpyinfo->xim_styles);
+ dpyinfo->xim_styles = NULL;
unblock_input ();
}
@@ -26677,10 +26682,20 @@ xim_open_dpy (struct x_display_info *dpyinfo, char
*resource_name)
XIM xim;
const char *locale;
- if (use_xim)
+ if (dpyinfo->use_xim)
{
if (dpyinfo->xim)
- XCloseIM (dpyinfo->xim);
+ {
+ XCloseIM (dpyinfo->xim);
+
+ /* Free values left over from the last time the IM
+ connection was established. */
+
+ if (dpyinfo->xim_styles)
+ XFree (dpyinfo->xim_styles);
+ dpyinfo->xim_styles = NULL;
+ }
+
xim = XOpenIM (dpyinfo->display, dpyinfo->rdb, resource_name,
emacs_class);
dpyinfo->xim = xim;
@@ -26709,7 +26724,6 @@ xim_open_dpy (struct x_display_info *dpyinfo, char
*resource_name)
build_string (locale));
}
}
-
else
#endif /* HAVE_XIM */
dpyinfo->xim = NULL;
@@ -26778,7 +26792,7 @@ xim_initialize (struct x_display_info *dpyinfo, char
*resource_name)
{
dpyinfo->xim = NULL;
#ifdef HAVE_XIM
- if (use_xim)
+ if (dpyinfo->use_xim)
{
#ifdef HAVE_X11R6_XIM
struct xim_inst_t *xim_inst = xmalloc (sizeof *xim_inst);
@@ -26787,15 +26801,19 @@ xim_initialize (struct x_display_info *dpyinfo, char
*resource_name)
dpyinfo->xim_callback_data = xim_inst;
xim_inst->dpyinfo = dpyinfo;
xim_inst->resource_name = xstrdup (resource_name);
- ret = XRegisterIMInstantiateCallback
- (dpyinfo->display, dpyinfo->rdb, xim_inst->resource_name,
- emacs_class, xim_instantiate_callback,
- /* This is XPointer in XFree86 but (XPointer *) on Tru64, at
- least, but the configure test doesn't work because
- xim_instantiate_callback can either be XIMProc or
- XIDProc, so just cast to void *. */
- (void *) xim_inst);
- eassert (ret == True);
+
+ /* The last argument is XPointer in XFree86 but (XPointer *) on
+ Tru64, at least, but the configure test doesn't work because
+ xim_instantiate_callback can either be XIMProc or XIDProc, so
+ just cast to void *. */
+
+ ret = XRegisterIMInstantiateCallback (dpyinfo->display,
+ dpyinfo->rdb,
+ xim_inst->resource_name,
+ emacs_class,
+ xim_instantiate_callback,
+ (void *) xim_inst);
+ eassert (ret);
#else /* not HAVE_X11R6_XIM */
xim_open_dpy (dpyinfo, resource_name);
#endif /* not HAVE_X11R6_XIM */
@@ -26804,32 +26822,56 @@ xim_initialize (struct x_display_info *dpyinfo, char
*resource_name)
}
-/* Close the connection to the XIM server on display DPYINFO. */
+/* Close the connection to the XIM server on display DPYINFO.
+ Unregister any IM instantiation callback previously installed,
+ close the connection to the IM server if possible, and free any
+ retrieved IM values. */
static void
xim_close_dpy (struct x_display_info *dpyinfo)
{
#ifdef HAVE_XIM
- if (use_xim)
- {
#ifdef HAVE_X11R6_XIM
- struct xim_inst_t *xim_inst = dpyinfo->xim_callback_data;
+ struct xim_inst_t *xim_inst;
+ Bool rc;
+
+ /* If dpyinfo->xim_callback_data is not set, then IM support wasn't
+ initialized, which can happen if Xlib doesn't understand the C
+ locale being used. */
+
+ if (dpyinfo->xim_callback_data)
+ {
+ xim_inst = dpyinfo->xim_callback_data;
if (dpyinfo->display)
{
- Bool ret = XUnregisterIMInstantiateCallback
- (dpyinfo->display, dpyinfo->rdb, xim_inst->resource_name,
- emacs_class, xim_instantiate_callback, (void *) xim_inst);
- eassert (ret == True);
+ rc = XUnregisterIMInstantiateCallback (dpyinfo->display,
+ dpyinfo->rdb,
+ xim_inst->resource_name,
+ emacs_class,
+ xim_instantiate_callback,
+ (void *) xim_inst);
+ eassert (rc);
}
+
xfree (xim_inst->resource_name);
xfree (xim_inst);
-#endif /* HAVE_X11R6_XIM */
- if (dpyinfo->display)
- XCloseIM (dpyinfo->xim);
- dpyinfo->xim = NULL;
- XFree (dpyinfo->xim_styles);
}
+#endif /* HAVE_X11R6_XIM */
+
+ /* Now close the connection to the input method server. This may
+ access the display connection, and isn't safe if the display has
+ already been closed. */
+
+ if (dpyinfo->display && dpyinfo->xim)
+ XCloseIM (dpyinfo->xim);
+ dpyinfo->xim = NULL;
+
+ /* Free the list of XIM styles retrieved. */
+
+ if (dpyinfo->xim_styles)
+ XFree (dpyinfo->xim_styles);
+ dpyinfo->xim_styles = NULL;
#endif /* HAVE_XIM */
}
@@ -30186,7 +30228,7 @@ x_term_init (Lisp_Object display_name, char
*xrm_option, char *resource_name)
{
static char const at[] = " at ";
ptrdiff_t nbytes = sizeof (title) + sizeof (at);
- if (INT_ADD_WRAPV (nbytes, SBYTES (system_name), &nbytes))
+ if (ckd_add (&nbytes, nbytes, SBYTES (system_name)))
memory_full (SIZE_MAX);
dpyinfo->x_id_name = xmalloc (nbytes);
sprintf (dpyinfo->x_id_name, "%s%s%s", title, at, SDATA (system_name));
@@ -30756,15 +30798,7 @@ x_term_init (Lisp_Object display_name, char
*xrm_option, char *resource_name)
dpyinfo->invisible_cursor = make_invisible_cursor (dpyinfo);
#if defined HAVE_XFIXES && XFIXES_VERSION >= 40000
- dpyinfo->fixes_pointer_blanking = egetenv ("EMACS_XFIXES");
-#endif
-
-#ifdef HAVE_X_I18N
- /* Avoid initializing input methods if the X library does not
- support Emacs's locale. When the current locale is not
- supported, decoding input method strings becomes undefined. */
- if (XSupportsLocale ())
- xim_initialize (dpyinfo, resource_name);
+ dpyinfo->fixes_pointer_blanking = (egetenv ("EMACS_XFIXES") != NULL);
#endif
xsettings_initialize (dpyinfo);
@@ -30825,25 +30859,33 @@ x_term_init (Lisp_Object display_name, char
*xrm_option, char *resource_name)
XSynchronize (dpyinfo->display, True);
}
+#ifdef HAVE_X_I18N
{
AUTO_STRING (useXIM, "useXIM");
AUTO_STRING (UseXIM, "UseXIM");
Lisp_Object value = gui_display_get_resource (dpyinfo, useXIM, UseXIM,
Qnil, Qnil);
+
+ /* `USE_XIM' controls whether Emacs should use X input methods by
+ default, not whether or not XIM is available. */
+
#ifdef USE_XIM
+ dpyinfo->use_xim = true;
+
if (STRINGP (value)
&& (!strcmp (SSDATA (value), "false")
|| !strcmp (SSDATA (value), "off")))
- use_xim = false;
-#else
+ dpyinfo->use_xim = false;
+#else /* !USE_XIM */
+ dpyinfo->use_xim = false;
+
if (STRINGP (value)
&& (!strcmp (SSDATA (value), "true")
|| !strcmp (SSDATA (value), "on")))
- use_xim = true;
-#endif
+ dpyinfo->use_xim = true;
+#endif /* USE_XIM */
}
-#ifdef HAVE_X_I18N
{
AUTO_STRING (inputStyle, "inputStyle");
AUTO_STRING (InputStyle, "InputStyle");
@@ -30865,10 +30907,19 @@ x_term_init (Lisp_Object display_name, char
*xrm_option, char *resource_name)
#ifdef USE_GTK
else if (!strcmp (SSDATA (value), "native"))
dpyinfo->prefer_native_input = true;
-#endif
+#endif /* HAVE_GTK */
}
}
-#endif
+
+ /* Now that defaults have been set up, initialize input method
+ support. */
+
+ /* Avoid initializing input methods if the X library does not
+ support Emacs's locale. When the current locale is not
+ supported, decoding input method strings becomes undefined. */
+ if (XSupportsLocale ())
+ xim_initialize (dpyinfo, resource_name);
+#endif /* HAVE_X_I18N */
#ifdef HAVE_X_SM
/* Only do this for the very first display in the Emacs session.
@@ -31261,14 +31312,22 @@ x_delete_terminal (struct terminal *terminal)
#ifdef HAVE_X_I18N
/* We must close our connection to the XIM server before closing the
X display. */
- if (dpyinfo->xim)
- xim_close_dpy (dpyinfo);
+ xim_close_dpy (dpyinfo);
#endif
+ /* Destroy all bitmap images created on the display. */
+ image_destroy_all_bitmaps (dpyinfo);
+
+ /* Free the storage allocated to hold bitmap records. */
+ xfree (dpyinfo->bitmaps);
+
+ /* In case someone decides to use `bitmaps' again... */
+ dpyinfo->bitmaps = NULL;
+ dpyinfo->bitmaps_last = 0;
+
/* Normally, the display is available... */
if (dpyinfo->display)
{
- image_destroy_all_bitmaps (dpyinfo);
XSetCloseDownMode (dpyinfo->display, DestroyAll);
/* Delete the scratch cursor GC, should it exist. */
diff --git a/src/xterm.h b/src/xterm.h
index 28ae00ca190..34a713ea2ca 100644
--- a/src/xterm.h
+++ b/src/xterm.h
@@ -649,7 +649,11 @@ struct x_display_info
/* The named coding system to use for this input method. */
Lisp_Object xim_coding;
-#endif
+
+ /* Whether or not X input methods should be used on this
+ display. */
+ bool use_xim;
+#endif /* HAVE_X_I18N */
/* A cache mapping color names to RGB values. */
struct color_name_cache_entry **color_names;
@@ -922,11 +926,6 @@ struct x_display_info
#endif
};
-#ifdef HAVE_X_I18N
-/* Whether or not to use XIM if we have it. */
-extern bool use_xim;
-#endif
-
#ifdef HAVE_XINPUT2
/* Defined in xmenu.c. */
extern int popup_activated_flag;
diff --git a/test/Makefile.in b/test/Makefile.in
index f4b85e7dfe5..e2a14c4dd92 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -124,7 +124,14 @@ test_module_dir := src/emacs-module-resources
all: check
-ifeq ($(HAVE_NATIVE_COMP),yes)
+SYSTEM_TYPE = @SYSTEM_TYPE@
+TEST_NATIVE_COMP = $(HAVE_NATIVE_COMP)
+# Avoid fork failures on Cygwin. See bug#62450 and etc/PROBLEMS
+# ("Fork failures in a build with native compilation").
+ifeq ($(SYSTEM_TYPE),cygwin)
+TEST_NATIVE_COMP = no
+endif
+ifeq ($(TEST_NATIVE_COMP),yes)
SELECTOR_DEFAULT = (not (or (tag :expensive-test) (tag :unstable)))
SELECTOR_EXPENSIVE = (not (tag :unstable))
SELECTOR_ALL = t
diff --git a/test/infra/Dockerfile.emba b/test/infra/Dockerfile.emba
index c005d872cb8..f5259150518 100644
--- a/test/infra/Dockerfile.emba
+++ b/test/infra/Dockerfile.emba
@@ -24,19 +24,20 @@
# Maintainer: Ted Zlatanov <tzz@lifelogs.com>
# URL: https://emba.gnu.org/emacs/emacs
-FROM debian:stretch as emacs-base
+FROM debian:bullseye as emacs-base
RUN apt-get update && \
apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
libc-dev gcc g++ make autoconf automake libncurses-dev gnutls-dev \
- libdbus-1-dev libacl1-dev acl git texinfo gdb \
+ libdbus-1-dev libacl1-dev acl git texinfo gawk gdb \
&& rm -rf /var/lib/apt/lists/*
FROM emacs-base as emacs-inotify
+# We install clangd for Eglot tests.
RUN apt-get update && \
apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
- inotify-tools \
+ inotify-tools clangd \
&& rm -rf /var/lib/apt/lists/*
COPY . /checkout
@@ -59,11 +60,84 @@ RUN ./autogen.sh autoconf
RUN ./configure --with-file-notification=gfile
RUN make bootstrap
+# Debian bullseye doesn't provide proper packages. So we use Debian
+# sid for this.
+FROM debian:sid as emacs-eglot
+
+# This corresponds to emacs-base.
+RUN apt-get update && \
+ apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
+ libc-dev gcc g++ make autoconf automake libncurses-dev gnutls-dev \
+ libdbus-1-dev libacl1-dev acl git texinfo gdb \
+ && rm -rf /var/lib/apt/lists/*
+
+# Install clangd.
+RUN apt-get update && \
+ apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
+ clangd \
+ && rm -rf /var/lib/apt/lists/*
+
+COPY . /checkout
+WORKDIR /checkout
+RUN ./autogen.sh autoconf
+RUN ./configure
+RUN make bootstrap
+
+# Debian bullseye doesn't provide proper packages. So we use Debian
+# sid for this.
+FROM debian:sid as emacs-tree-sitter
+
+# This corresponds to emacs-base.
+RUN apt-get update && \
+ apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
+ libc-dev gcc g++ make autoconf automake libncurses-dev gnutls-dev \
+ libdbus-1-dev libacl1-dev acl git texinfo gdb \
+ && rm -rf /var/lib/apt/lists/*
+
+# Install tree-sitter library.
+RUN apt-get update && \
+ apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
+ libtree-sitter0 libtree-sitter-dev \
+ && rm -rf /var/lib/apt/lists/*
+
+COPY . /checkout
+WORKDIR /checkout
+RUN ./autogen.sh autoconf
+RUN ./configure --with-tree-sitter
+RUN make bootstrap
+
+# Install language grammars.
+RUN mkdir -p /root/.emacs.d/tree-sitter
+RUN git config --global http.sslverify "false"
+# See https://github.com/emacs-tree-sitter/tree-sitter-langs/tree/master/repos
+RUN src/emacs -Q --batch \
+ --eval '(setq \
+ treesit-extra-load-path (list "/root/.emacs.d/tree-sitter") \
+ treesit-language-source-alist \
+ (quote ((bash "https://github.com/tree-sitter/tree-sitter-bash";) \
+ (c "https://github.com/tree-sitter/tree-sitter-c";) \
+ (cpp "https://github.com/tree-sitter/tree-sitter-cpp";) \
+ (css "https://github.com/tree-sitter/tree-sitter-css";) \
+ (elixir "https://github.com/elixir-lang/tree-sitter-elixir";) \
+ (go "https://github.com/tree-sitter/tree-sitter-go";) \
+ (gomod "https://github.com/camdencheek/tree-sitter-go-mod";) \
+ (heex "https://github.com/phoenixframework/tree-sitter-heex";) \
+ (html "https://github.com/tree-sitter/tree-sitter-html";) \
+ (java "https://github.com/tree-sitter/tree-sitter-java";) \
+ (javascript "https://github.com/tree-sitter/tree-sitter-javascript";) \
+ (json "https://github.com/tree-sitter/tree-sitter-json";) \
+ (python "https://github.com/tree-sitter/tree-sitter-python";) \
+ (ruby "https://github.com/tree-sitter/tree-sitter-ruby";) \
+ (tsx "https://github.com/tree-sitter/tree-sitter-typescript"; "master"
"tsx/src") \
+ (typescript "https://github.com/tree-sitter/tree-sitter-typescript";
"master" "typescript/src"))))' \
+ --eval '(dolist (lang (mapcar (quote car) treesit-language-source-alist)) \
+ (treesit-install-language-grammar lang "/root/.emacs.d/tree-sitter"))'
+
FROM emacs-base as emacs-gnustep
RUN apt-get update && \
apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
- gnustep-devel \
+ gnustep-devel zlib1g-dev \
&& rm -rf /var/lib/apt/lists/*
COPY . /checkout
@@ -74,9 +148,10 @@ RUN make bootstrap
FROM emacs-base as emacs-native-comp
+# The libgccjit version must correspond to the gcc version.
RUN apt-get update && \
apt-get install -y --no-install-recommends -o=Dpkg::Use-Pty=0 \
- libgccjit-6-dev \
+ libgccjit-10-dev zlib1g-dev \
&& rm -rf /var/lib/apt/lists/*
FROM emacs-native-comp as emacs-native-comp-speed0
diff --git a/test/infra/Makefile.in b/test/infra/Makefile.in
index c6538c093c0..5f7d6281a7c 100644
--- a/test/infra/Makefile.in
+++ b/test/infra/Makefile.in
@@ -43,6 +43,10 @@ define subdir_template
$(eval
ifeq ($(findstring src, $(1)), src)
define changes
+ @echo ' - $(1)/treesit.{h,c}' >>$(FILE)
+ @echo ' - test/$(1)/treesit-tests.el' >>$(FILE)
+ @echo ' when: never' >>$(FILE)
+ @echo ' - changes:' >>$(FILE)
@echo ' - $(1)/*.{h,c}' >>$(FILE)
endef
else ifeq ($(findstring eieio, $(1)), eieio)
@@ -53,6 +57,17 @@ define subdir_template
define changes
@echo ' - lisp/emacs-lisp/faceup*.el' >>$(FILE)
endef
+ else ifeq ($(findstring progmodes, $(1)), progmodes)
+ define changes
+ @echo ' - $(1)/eglot.el' >>$(FILE)
+ @echo ' - $(1)/*-ts-mode.el' >>$(FILE)
+ @echo ' - test/$(1)/eglot-tests.el' >>$(FILE)
+ @echo ' - test/$(1)/*-ts-mode-resources/**' >>$(FILE)
+ @echo ' - test/$(1)/*-ts-mode-tests.el' >>$(FILE)
+ @echo ' when: never' >>$(FILE)
+ @echo ' - changes:' >>$(FILE)
+ @echo ' - $(1)/*.el' >>$(FILE)
+ endef
else ifeq ($(findstring so-long, $(1)), so-long)
define changes
@echo ' - lisp/so-long*.el' >>$(FILE)
@@ -80,8 +95,8 @@ define subdir_template
@echo ' when: never' >>$(FILE)
@echo ' - changes:' >>$(FILE)
$(changes)
- @echo ' - test/$(1)/*.el' >>$(FILE)
@echo ' - test/$(1)/*resources/**' >>$(FILE)
+ @echo ' - test/$(1)/*.el' >>$(FILE)
@echo ' variables:' >>$(FILE)
@echo ' target: emacs-inotify' >>$(FILE)
@echo ' make_params: "-k -C test $(target)"' >>$(FILE)
@@ -89,11 +104,22 @@ endef
$(foreach subdir, $(SUBDIRS), $(eval $(call subdir_template,$(subdir))))
+TREE-SITTER-FILES ?= $(shell cd .. ; \
+ find lisp src \( -name "*-ts-mode-tests.el" -o -name "treesit-tests.el" \) |
\
+ sort | sed s/\\.el/.log/)
+
all: generate-test-jobs
-.PHONY: generate-test-jobs $(FILE) $(SUBDIR_TARGETS)
+.PHONY: generate-test-jobs $(FILE) $(SUBDIR_TARGETS) tree-sitter-files-template
-generate-test-jobs: $(FILE) $(SUBDIR_TARGETS)
+generate-test-jobs: $(FILE) $(SUBDIR_TARGETS) tree-sitter-files-template
+
+tree-sitter-files-template:
+ @echo >>$(FILE)
+ @echo '.tree-sitter-files-template:' >>$(FILE)
+ @echo ' variables:' >>$(FILE)
+ @echo ' tree_sitter_files: >-' >>$(FILE)
+ @for name in $(TREE-SITTER-FILES) ; do echo " $${name}" >>$(FILE)
; done
$(FILE):
$(AM_V_GEN)
diff --git a/test/infra/gitlab-ci.yml b/test/infra/gitlab-ci.yml
index 1c1452dcda5..6884c32848e 100644
--- a/test/infra/gitlab-ci.yml
+++ b/test/infra/gitlab-ci.yml
@@ -86,7 +86,7 @@ default:
# TODO: with make -j4 several of the tests were failing, for
# example shadowfile-tests, but passed without it.
- 'export PWD=$(pwd)'
- - 'docker run -i -e EMACS_EMBA_CI=${EMACS_EMBA_CI} -e
EMACS_TEST_JUNIT_REPORT=${EMACS_TEST_JUNIT_REPORT} -e
EMACS_TEST_TIMEOUT=${EMACS_TEST_TIMEOUT} -e
EMACS_TEST_VERBOSE=${EMACS_TEST_VERBOSE} --volumes-from $(docker ps -q -f
"label=com.gitlab.gitlab-runner.job.id=${CI_JOB_ID}"):ro --name ${test_name}
${CI_REGISTRY_IMAGE}:${target}-${BUILD_TAG} /bin/bash -c "git fetch ${PWD} HEAD
&& echo checking out these updated files && git diff --name-only FETCH_HEAD &&
( git diff --name-only FET [...]
+ - 'docker run -i -e EMACS_EMBA_CI=${EMACS_EMBA_CI} -e
EMACS_TEST_JUNIT_REPORT=${EMACS_TEST_JUNIT_REPORT} -e
EMACS_TEST_TIMEOUT=${EMACS_TEST_TIMEOUT} -e
EMACS_TEST_VERBOSE=${EMACS_TEST_VERBOSE} --volumes-from $(docker ps -q -f
"label=com.gitlab.gitlab-runner.job.id=${CI_JOB_ID}"):ro --name ${test_name}
${CI_REGISTRY_IMAGE}:${target}-${BUILD_TAG} /bin/bash -xvc "git fetch ${PWD}
HEAD && echo checking out these updated files && git diff --name-only
FETCH_HEAD && ( git diff --name-only F [...]
after_script:
# - docker ps -a
# - printenv
@@ -166,6 +166,27 @@ default:
- test/lisp/autorevert-tests.el
- test/lisp/filenotify-tests.el
+.eglot-template:
+ rules:
+ - if: '$CI_PIPELINE_SOURCE == "web"'
+ - if: '$CI_PIPELINE_SOURCE == "schedule"'
+ changes:
+ - "**.in"
+ - lisp/progmodes/eglot.el
+ - test/infra/*
+ - test/lisp/progmodes/eglot-tests.el
+
+.tree-sitter-template:
+ rules:
+ - if: '$CI_PIPELINE_SOURCE == "web"'
+ - if: '$CI_PIPELINE_SOURCE == "schedule"'
+ changes:
+ - "**.in"
+ - lisp/progmodes/*-ts-mode.el
+ - test/infra/*
+ - test/lisp/progmodes/*-ts-mode-resources/**
+ - test/lisp/progmodes/*-ts-mode-tests.el
+
.native-comp-template:
rules:
- if: '$CI_PIPELINE_SOURCE == "web"'
@@ -229,6 +250,40 @@ test-filenotify-gio:
# This is needed in order to get a JUnit test report.
make_params: '-k -C test check-expensive
LOGFILES="lisp/autorevert-tests.log lisp/filenotify-tests.log"'
+build-image-eglot:
+ stage: platform-images
+ extends: [.job-template, .build-template, .eglot-template]
+ variables:
+ target: emacs-eglot
+
+test-eglot:
+ stage: platforms
+ extends: [.job-template, .test-template, .eglot-template]
+ needs:
+ - job: build-image-eglot
+ optional: true
+ variables:
+ target: emacs-eglot
+ # This is needed in order to get a JUnit test report.
+ make_params: '-k -C test check-expensive
LOGFILES="lisp/progmodes/eglot-tests.log"'
+
+build-image-tree-sitter:
+ stage: platform-images
+ extends: [.job-template, .build-template, .tree-sitter-template]
+ variables:
+ target: emacs-tree-sitter
+
+test-tree-sitter:
+ stage: platforms
+ extends: [.job-template, .test-template, .tree-sitter-template,
.tree-sitter-files-template]
+ needs:
+ - job: build-image-tree-sitter
+ optional: true
+ variables:
+ target: emacs-tree-sitter
+ # This is needed in order to get a JUnit test report.
+ make_params: '-k -C test check-expensive TEST_HOME=/root
LOGFILES="$tree_sitter_files"'
+
build-image-gnustep:
stage: platform-images
extends: [.job-template, .build-template, .gnustep-template]
@@ -246,6 +301,9 @@ test-gnustep:
target: emacs-gnustep
make_params: install
+# The next two jobs are commented out due to high workload on
+# emba.gnu.org.
+
# build-native-comp-speed0:
# stage: native-comp-images
# extends: [.job-template, .build-template, .native-comp-template]
diff --git a/test/infra/test-jobs.yml b/test/infra/test-jobs.yml
index 55ce590af89..b49dd369611 100644
--- a/test/infra/test-jobs.yml
+++ b/test/infra/test-jobs.yml
@@ -9,10 +9,14 @@ test-lib-src-inotify:
rules:
- if: '$CI_PIPELINE_SOURCE == "schedule"'
when: never
+ - changes:
+ - lib-src/treesit.{h,c}
+ - test/lib-src/treesit-tests.el
+ when: never
- changes:
- lib-src/*.{h,c}
- - test/lib-src/*.el
- test/lib-src/*resources/**
+ - test/lib-src/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lib-src"
@@ -28,8 +32,8 @@ test-lisp-inotify:
when: never
- changes:
- lisp/*.el
- - test/lisp/*.el
- test/lisp/*resources/**
+ - test/lisp/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp"
@@ -45,8 +49,8 @@ test-lisp-calc-inotify:
when: never
- changes:
- lisp/calc/*.el
- - test/lisp/calc/*.el
- test/lisp/calc/*resources/**
+ - test/lisp/calc/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-calc"
@@ -62,8 +66,8 @@ test-lisp-calendar-inotify:
when: never
- changes:
- lisp/calendar/*.el
- - test/lisp/calendar/*.el
- test/lisp/calendar/*resources/**
+ - test/lisp/calendar/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-calendar"
@@ -79,8 +83,8 @@ test-lisp-cedet-inotify:
when: never
- changes:
- lisp/cedet/*.el
- - test/lisp/cedet/*.el
- test/lisp/cedet/*resources/**
+ - test/lisp/cedet/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-cedet"
@@ -96,8 +100,8 @@ test-lisp-cedet-semantic-inotify:
when: never
- changes:
- lisp/cedet/semantic/*.el
- - test/lisp/cedet/semantic/*.el
- test/lisp/cedet/semantic/*resources/**
+ - test/lisp/cedet/semantic/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-cedet-semantic"
@@ -113,8 +117,8 @@ test-lisp-cedet-semantic-bovine-inotify:
when: never
- changes:
- lisp/cedet/semantic/bovine/*.el
- - test/lisp/cedet/semantic/bovine/*.el
- test/lisp/cedet/semantic/bovine/*resources/**
+ - test/lisp/cedet/semantic/bovine/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-cedet-semantic-bovine"
@@ -130,8 +134,8 @@ test-lisp-cedet-srecode-inotify:
when: never
- changes:
- lisp/cedet/srecode/*.el
- - test/lisp/cedet/srecode/*.el
- test/lisp/cedet/srecode/*resources/**
+ - test/lisp/cedet/srecode/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-cedet-srecode"
@@ -147,8 +151,8 @@ test-lisp-emacs-lisp-inotify:
when: never
- changes:
- lisp/emacs-lisp/*.el
- - test/lisp/emacs-lisp/*.el
- test/lisp/emacs-lisp/*resources/**
+ - test/lisp/emacs-lisp/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-emacs-lisp"
@@ -164,8 +168,8 @@ test-lisp-emacs-lisp-eieio-tests-inotify:
when: never
- changes:
- lisp/emacs-lisp/eieio*.el
- - test/lisp/emacs-lisp/eieio-tests/*.el
- test/lisp/emacs-lisp/eieio-tests/*resources/**
+ - test/lisp/emacs-lisp/eieio-tests/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-emacs-lisp-eieio-tests"
@@ -181,8 +185,8 @@ test-lisp-emacs-lisp-faceup-tests-inotify:
when: never
- changes:
- lisp/emacs-lisp/faceup*.el
- - test/lisp/emacs-lisp/faceup-tests/*.el
- test/lisp/emacs-lisp/faceup-tests/*resources/**
+ - test/lisp/emacs-lisp/faceup-tests/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-emacs-lisp-faceup-tests"
@@ -198,8 +202,8 @@ test-lisp-emulation-inotify:
when: never
- changes:
- lisp/emulation/*.el
- - test/lisp/emulation/*.el
- test/lisp/emulation/*resources/**
+ - test/lisp/emulation/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-emulation"
@@ -215,8 +219,8 @@ test-lisp-erc-inotify:
when: never
- changes:
- lisp/erc/*.el
- - test/lisp/erc/*.el
- test/lisp/erc/*resources/**
+ - test/lisp/erc/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-erc"
@@ -232,8 +236,8 @@ test-lisp-eshell-inotify:
when: never
- changes:
- lisp/eshell/*.el
- - test/lisp/eshell/*.el
- test/lisp/eshell/*resources/**
+ - test/lisp/eshell/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-eshell"
@@ -249,8 +253,8 @@ test-lisp-gnus-inotify:
when: never
- changes:
- lisp/gnus/*.el
- - test/lisp/gnus/*.el
- test/lisp/gnus/*resources/**
+ - test/lisp/gnus/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-gnus"
@@ -266,8 +270,8 @@ test-lisp-image-inotify:
when: never
- changes:
- lisp/image/*.el
- - test/lisp/image/*.el
- test/lisp/image/*resources/**
+ - test/lisp/image/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-image"
@@ -283,8 +287,8 @@ test-lisp-international-inotify:
when: never
- changes:
- lisp/international/*.el
- - test/lisp/international/*.el
- test/lisp/international/*resources/**
+ - test/lisp/international/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-international"
@@ -300,8 +304,8 @@ test-lisp-mail-inotify:
when: never
- changes:
- lisp/mail/*.el
- - test/lisp/mail/*.el
- test/lisp/mail/*resources/**
+ - test/lisp/mail/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-mail"
@@ -317,8 +321,8 @@ test-lisp-mh-e-inotify:
when: never
- changes:
- lisp/mh-e/*.el
- - test/lisp/mh-e/*.el
- test/lisp/mh-e/*resources/**
+ - test/lisp/mh-e/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-mh-e"
@@ -334,8 +338,8 @@ test-lisp-net-inotify:
when: never
- changes:
- lisp/net/*.el
- - test/lisp/net/*.el
- test/lisp/net/*resources/**
+ - test/lisp/net/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-net"
@@ -351,8 +355,8 @@ test-lisp-nxml-inotify:
when: never
- changes:
- lisp/nxml/*.el
- - test/lisp/nxml/*.el
- test/lisp/nxml/*resources/**
+ - test/lisp/nxml/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-nxml"
@@ -368,8 +372,8 @@ test-lisp-obsolete-inotify:
when: never
- changes:
- lisp/obsolete/*.el
- - test/lisp/obsolete/*.el
- test/lisp/obsolete/*resources/**
+ - test/lisp/obsolete/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-obsolete"
@@ -385,8 +389,8 @@ test-lisp-org-inotify:
when: never
- changes:
- lisp/org/*.el
- - test/lisp/org/*.el
- test/lisp/org/*resources/**
+ - test/lisp/org/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-org"
@@ -402,8 +406,8 @@ test-lisp-play-inotify:
when: never
- changes:
- lisp/play/*.el
- - test/lisp/play/*.el
- test/lisp/play/*resources/**
+ - test/lisp/play/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-play"
@@ -417,10 +421,17 @@ test-lisp-progmodes-inotify:
rules:
- if: '$CI_PIPELINE_SOURCE == "schedule"'
when: never
+ - changes:
+ - lisp/progmodes/eglot.el
+ - lisp/progmodes/*-ts-mode.el
+ - test/lisp/progmodes/eglot-tests.el
+ - test/lisp/progmodes/*-ts-mode-resources/**
+ - test/lisp/progmodes/*-ts-mode-tests.el
+ when: never
- changes:
- lisp/progmodes/*.el
- - test/lisp/progmodes/*.el
- test/lisp/progmodes/*resources/**
+ - test/lisp/progmodes/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-progmodes"
@@ -436,8 +447,8 @@ test-lisp-so-long-tests-inotify:
when: never
- changes:
- lisp/so-long*.el
- - test/lisp/so-long-tests/*.el
- test/lisp/so-long-tests/*resources/**
+ - test/lisp/so-long-tests/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-so-long-tests"
@@ -453,8 +464,8 @@ test-lisp-term-inotify:
when: never
- changes:
- lisp/term/*.el
- - test/lisp/term/*.el
- test/lisp/term/*resources/**
+ - test/lisp/term/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-term"
@@ -470,8 +481,8 @@ test-lisp-textmodes-inotify:
when: never
- changes:
- lisp/textmodes/*.el
- - test/lisp/textmodes/*.el
- test/lisp/textmodes/*resources/**
+ - test/lisp/textmodes/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-textmodes"
@@ -487,8 +498,8 @@ test-lisp-url-inotify:
when: never
- changes:
- lisp/url/*.el
- - test/lisp/url/*.el
- test/lisp/url/*resources/**
+ - test/lisp/url/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-url"
@@ -504,8 +515,8 @@ test-lisp-use-package-inotify:
when: never
- changes:
- lisp/use-package/*.el
- - test/lisp/use-package/*.el
- test/lisp/use-package/*resources/**
+ - test/lisp/use-package/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-use-package"
@@ -521,8 +532,8 @@ test-lisp-vc-inotify:
when: never
- changes:
- lisp/vc/*.el
- - test/lisp/vc/*.el
- test/lisp/vc/*resources/**
+ - test/lisp/vc/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-vc"
@@ -538,8 +549,8 @@ test-misc-inotify:
when: never
- changes:
- admin/*.el
- - test/misc/*.el
- test/misc/*resources/**
+ - test/misc/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-misc"
@@ -553,10 +564,26 @@ test-src-inotify:
rules:
- if: '$CI_PIPELINE_SOURCE == "schedule"'
when: never
+ - changes:
+ - src/treesit.{h,c}
+ - test/src/treesit-tests.el
+ when: never
- changes:
- src/*.{h,c}
- - test/src/*.el
- test/src/*resources/**
+ - test/src/*.el
variables:
target: emacs-inotify
make_params: "-k -C test check-src"
+
+.tree-sitter-files-template:
+ variables:
+ tree_sitter_files: >-
+ lisp/progmodes/c-ts-mode-tests.log
+ lisp/progmodes/elixir-ts-mode-tests.log
+ lisp/progmodes/go-ts-mode-tests.log
+ lisp/progmodes/heex-ts-mode-tests.log
+ lisp/progmodes/java-ts-mode-tests.log
+ lisp/progmodes/ruby-ts-mode-tests.log
+ lisp/progmodes/typescript-ts-mode-tests.log
+ src/treesit-tests.log
diff --git a/test/lisp/abbrev-tests.el b/test/lisp/abbrev-tests.el
index ecca21df4bc..abac8dd6f0b 100644
--- a/test/lisp/abbrev-tests.el
+++ b/test/lisp/abbrev-tests.el
@@ -305,6 +305,22 @@
(should-not (abbrev-table-p translation-table-vector))
(should (abbrev-table-p (make-abbrev-table))))
+(ert-deftest abbrev--possibly-save-test ()
+ "Test that `abbrev--possibly-save' properly resets
+`abbrevs-changed'."
+ (ert-with-temp-file temp-test-file
+ (let ((abbrev-file-name temp-test-file)
+ (save-abbrevs t))
+ ;; Save
+ (let ((abbrevs-changed t))
+ (should-not (abbrev--possibly-save nil t))
+ (should-not abbrevs-changed))
+ ;; Don't save
+ (let ((abbrevs-changed t))
+ (ert-simulate-keys '(?n ?\C-m)
+ (should (abbrev--possibly-save nil)))
+ (should-not abbrevs-changed)))))
+
(provide 'abbrev-tests)
;;; abbrev-tests.el ends here
diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el
index 32bce1b71bd..c42fd8d432c 100644
--- a/test/lisp/arc-mode-tests.el
+++ b/test/lisp/arc-mode-tests.el
@@ -46,6 +46,85 @@
(when (buffer-live-p zip-buffer) (kill-buffer zip-buffer))
(when (buffer-live-p gz-buffer) (kill-buffer gz-buffer)))))
+(ert-deftest arc-mode-test-zip-ensure-ext ()
+ "Regression test for bug#61326."
+ (skip-unless (executable-find "zip"))
+ (let* ((default-directory arc-mode-tests-data-directory)
+ (created-files nil)
+ (base-zip-1 "base-1.zip")
+ (base-zip-2 "base-2.zip")
+ (content-1 '("1" "2"))
+ (content-2 '("3" "4"))
+ (make-file (lambda (name)
+ (push name created-files)
+ (with-temp-buffer
+ (insert name)
+ (write-file name))))
+ (make-zip
+ (lambda (zip files)
+ (delete-file zip nil)
+ (push zip created-files)
+ (funcall (archive--act-files '("zip") files) zip)))
+ (update-fn
+ (lambda (zip-nonempty)
+ (with-current-buffer (find-file-noselect zip-nonempty)
+ (save-excursion
+ (goto-char archive-file-list-start)
+ (save-current-buffer
+ (archive-extract)
+ (save-excursion
+ (goto-char (point-max))
+ (insert ?a)
+ (save-buffer))
+ (kill-buffer (current-buffer)))
+ (archive-extract)
+ ;; [2] must be ?a; [3] must be (eobp)
+ (should (eq (char-after 2) ?a))
+ (should (eq (point-max) 3))))))
+ (delete-fn
+ (lambda (zip-nonempty)
+ (with-current-buffer (find-file-noselect zip-nonempty)
+ ;; mark delete and expunge first entry
+ (save-excursion
+ (goto-char archive-file-list-start)
+ (should (length= archive-files 2))
+ (archive-flag-deleted 1)
+ (archive--expunge-maybe-force t)
+ (should (length= archive-files 1))))))
+ (test-modify
+ (lambda (zip mod-fn)
+ (let ((zip-base (concat zip ".zip"))
+ (tag (gensym)))
+ (push zip created-files)
+ (copy-file base-zip-1 zip t)
+ (push zip-base created-files)
+ (copy-file base-zip-2 zip-base t)
+ (file-has-changed-p zip tag)
+ (file-has-changed-p zip-base tag)
+ (funcall mod-fn zip)
+ (should-not (file-has-changed-p zip-base tag))
+ (should (file-has-changed-p zip tag))))))
+ (unwind-protect
+ (progn
+ ;; setup: make two zip files with different contents
+ (mapc make-file (append content-1 content-2))
+ (funcall make-zip base-zip-1 content-1)
+ (funcall make-zip base-zip-2 content-2)
+
+ ;; test 1: with "test-update" and "test-update.zip", update
+ ;; "test-update": (1) ensure only "test-update" is modified, (2)
+ ;; ensure the contents of the new member is expected.
+ (funcall test-modify "test-update" update-fn)
+
+ ;; test 2: with "test-delete" and "test-delete.zip", delete entry
+ ;; from "test-delete": (1) ensure only "test-delete" is modified,
+ ;; (2) ensure the file list is reduced as expected.
+ (funcall test-modify "test-delete" delete-fn))
+
+ ;; Clean up created files.
+ (dolist (file created-files)
+ (ignore-errors (delete-file file))))))
+
(provide 'arc-mode-tests)
;;; arc-mode-tests.el ends here
diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index 6f832725754..ef915e5fc5b 100644
--- a/test/lisp/auth-source-tests.el
+++ b/test/lisp/auth-source-tests.el
@@ -341,13 +341,14 @@
(should
(string-equal (plist-get auth-info :user) (user-login-name)))
(should (string-equal (plist-get auth-info :host) host))
- (should (string-equal auth-passwd passwd)))))
-
- ;; Cleanup.
- ;; Should use `auth-source-delete' when implemented for :secrets backend.
- (secrets-delete-item
- "session"
- (format "%s@%s" (plist-get auth-info :user) (plist-get auth-info
:host))))))
+ (should (string-equal auth-passwd passwd))))
+
+ ;; Cleanup.
+ ;; Should use `auth-source-delete' when implemented for :secrets
backend.
+ (secrets-delete-item
+ "session"
+ (format
+ "%s@%s" (plist-get auth-info :user) (plist-get auth-info :host)))))))
(ert-deftest auth-source-test-netrc-create-secret ()
(ert-with-temp-file netrc-file
diff --git a/test/lisp/calendar/cal-julian-tests.el
b/test/lisp/calendar/cal-julian-tests.el
index e0d74e8a6cd..4207d1ee285 100644
--- a/test/lisp/calendar/cal-julian-tests.el
+++ b/test/lisp/calendar/cal-julian-tests.el
@@ -47,7 +47,7 @@
(progn
(calendar)
,@body)
- (kill-buffer "*Calendar*"))))
+ (kill-buffer calendar-buffer))))
(ert-deftest cal-julian-test-goto-date ()
(with-cal-julian-test
diff --git a/test/lisp/dired-aux-tests.el b/test/lisp/dired-aux-tests.el
index 5939f480680..62011d8b0f0 100644
--- a/test/lisp/dired-aux-tests.el
+++ b/test/lisp/dired-aux-tests.el
@@ -55,12 +55,11 @@
(setq to-mv
(expand-file-name
"foo-mv" (file-name-as-directory (expand-file-name "qux"
,foo))))
- (unwind-protect
- (if ,yes-or-no
- (cl-letf (((symbol-function 'yes-or-no-p)
- (lambda (_prompt) (eq ,yes-or-no 'yes))))
- ,@body)
- ,@body)))))))
+ (if ,yes-or-no
+ (cl-letf (((symbol-function 'yes-or-no-p)
+ (lambda (_prompt) (eq ,yes-or-no 'yes))))
+ ,@body)
+ ,@body))))))
(ert-deftest dired-test-bug28834 ()
"test for https://debbugs.gnu.org/28834 ."
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el
index 347bdfc0d7b..0701b229edd 100644
--- a/test/lisp/dired-tests.el
+++ b/test/lisp/dired-tests.el
@@ -477,9 +477,9 @@
;;(should (= 0 (length (directory-files testdir nil "[0-9]" t
-1))))
(should (= 5 (length (directory-files testdir nil "[0-9]" t))))
(should (= 5 (length (directory-files testdir nil "[0-9]" t 50))))
- (should-not (directory-empty-p testdir)))
+ (should-not (directory-empty-p testdir))))
- (delete-directory testdir t)))))
+ (delete-directory testdir t))))
(ert-deftest dired-test-directory-files-and-attributes ()
"Test for `directory-files-and-attributes'."
diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el
index a603f29eb6d..9f97d739cec 100644
--- a/test/lisp/dnd-tests.el
+++ b/test/lisp/dnd-tests.el
@@ -172,7 +172,7 @@ This function only tries to handle strings."
(extracted-1 (dnd-tests-extract-selection-data string-data-1 t))
(extracted (dnd-tests-extract-selection-data string-data t)))
(should (and (stringp extracted) (stringp extracted-1)))
- (should (equal extracted extracted)))
+ (should (equal extracted extracted-1)))
;; Now check text/plain.
(let ((string-data (dnd-tests-verify-selection-data
'text/plain)))
diff --git a/test/lisp/emacs-lisp/benchmark-tests.el
b/test/lisp/emacs-lisp/benchmark-tests.el
index 31357f24a0d..99b5b142c37 100644
--- a/test/lisp/emacs-lisp/benchmark-tests.el
+++ b/test/lisp/emacs-lisp/benchmark-tests.el
@@ -23,6 +23,10 @@
(require 'ert)
(ert-deftest benchmark-tests ()
+ ;; Avoid fork failures on Cygwin. See bug#62450 and etc/PROBLEMS
+ ;; ("Fork failures in a build with native compilation").
+ (skip-unless (not (and (eq system-type 'cygwin)
+ (featurep 'native-compile))))
(let (str t-long t-short m)
(should (consp (benchmark-run nil (setq m (1+ 0)))))
(should (consp (benchmark-run 1 (setq m (1+ 0)))))
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el
b/test/lisp/emacs-lisp/bytecomp-tests.el
index 10b009a261c..963ea9abe0c 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -766,6 +766,16 @@ inner loops respectively."
((eq x 2) (setq y 'c)))
(list x y)))))
(mapcar fn (bytecomp-test-identity '(0 1 2 3 10 11))))
+
+ ;; `nconc' nil arg elimination
+ (nconc (list 1 2 3 4) nil)
+ (nconc (list 1 2 3 4) nil nil)
+ (let ((x (cons 1 (cons 2 (cons 3 4)))))
+ (nconc x nil))
+ (let ((x (cons 1 (cons 2 (cons 3 4)))))
+ (nconc x nil nil))
+ (let ((x (cons 1 (cons 2 (cons 3 4)))))
+ (nconc nil x nil (list 5 6) nil))
)
"List of expressions for cross-testing interpreted and compiled code.")
@@ -1438,8 +1448,8 @@ literals (Bug#20852)."
'(defun zot ()
(mapcar #'list '(1 2 3))
nil)
- '((mapcar mapcar))
- "Warning: .mapcar. called for effect")
+ '((ignored-return-value mapcar))
+ "Warning: value from call to `mapcar' is unused; use `mapc' or `dolist'
instead")
(test-suppression
'(defun zot ()
@@ -1461,6 +1471,12 @@ literals (Bug#20852)."
'((suspicious condition-case))
"Warning: `condition-case' without handlers")
+ (test-suppression
+ '(defun zot (x)
+ (unwind-protect (print x)))
+ '((suspicious unwind-protect))
+ "Warning: `unwind-protect' without unwind forms")
+
(test-suppression
'(defun zot ()
(let ((_ 1))
@@ -1502,6 +1518,36 @@ literals (Bug#20852)."
))
'((empty-body with-suppressed-warnings))
"Warning: `with-suppressed-warnings' with empty body")
+
+ (test-suppression
+ '(defun zot ()
+ (setcar '(1 2) 3))
+ '((mutate-constant setcar))
+ "Warning: `setcar' on constant list (arg 1)")
+
+ (test-suppression
+ '(defun zot ()
+ (aset [1 2] 1 3))
+ '((mutate-constant aset))
+ "Warning: `aset' on constant vector (arg 1)")
+
+ (test-suppression
+ '(defun zot ()
+ (aset "abc" 1 ?d))
+ '((mutate-constant aset))
+ "Warning: `aset' on constant string (arg 1)")
+
+ (test-suppression
+ '(defun zot (x y)
+ (nconc x y '(1 2) '(3 4)))
+ '((mutate-constant nconc))
+ "Warning: `nconc' on constant list (arg 3)")
+
+ (test-suppression
+ '(defun zot ()
+ (put-text-property 0 2 'prop 'val "abc"))
+ '((mutate-constant put-text-property))
+ "Warning: `put-text-property' on constant string (arg 5)")
)
(ert-deftest bytecomp-tests--not-writable-directory ()
@@ -1753,11 +1799,11 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode
js-mode python-mode)) \
(TEST-IN-COMMENTS t) (TEST-IN-STRINGS t) (TEST-IN-CODE t) \
(FIXTURE-FN \\='#\\='electric-pair-mode))" fill-column)))
-(defun test-bytecomp-defgroup-choice ()
- (should-not (byte-compile--suspicious-defcustom-choice 'integer))
- (should-not (byte-compile--suspicious-defcustom-choice
+(ert-deftest bytecomp-test-defcustom-type-quoted ()
+ (should-not (byte-compile--defcustom-type-quoted 'integer))
+ (should-not (byte-compile--defcustom-type-quoted
'(choice (const :tag "foo" bar))))
- (should (byte-compile--suspicious-defcustom-choice
+ (should (byte-compile--defcustom-type-quoted
'(choice (const :tag "foo" 'bar)))))
(ert-deftest bytecomp-function-attributes ()
@@ -1850,6 +1896,34 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode
js-mode python-mode)) \
(should (eq (byte-compile-file src-file) 'no-byte-compile))
(should-not (file-exists-p dest-file))))
+(ert-deftest bytecomp--copy-tree ()
+ (should (null (bytecomp--copy-tree nil)))
+ (let ((print-circle t))
+ (let* ((x '(1 2 (3 4)))
+ (y (bytecomp--copy-tree x)))
+ (should (equal (prin1-to-string (list x y))
+ "((1 2 (3 4)) (1 2 (3 4)))")))
+ (let* ((x '#1=(a #1#))
+ (y (bytecomp--copy-tree x)))
+ (should (equal (prin1-to-string (list x y))
+ "(#1=(a #1#) #2=(a #2#))")))
+ (let* ((x '#1=(#1# a))
+ (y (bytecomp--copy-tree x)))
+ (should (equal (prin1-to-string (list x y))
+ "(#1=(#1# a) #2=(#2# a))")))
+ (let* ((x '((a . #1=(b)) #1#))
+ (y (bytecomp--copy-tree x)))
+ (should (equal (prin1-to-string (list x y))
+ "(((a . #1=(b)) #1#) ((a . #2=(b)) #2#))")))
+ (let* ((x '#1=(a #2=(#1# b . #3=(#2# c . #1#)) (#3# d)))
+ (y (bytecomp--copy-tree x)))
+ (should (equal (prin1-to-string (list x y))
+ (concat
+ "("
+ "#1=(a #2=(#1# b . #3=(#2# c . #1#)) (#3# d))"
+ " "
+ "#4=(a #5=(#4# b . #6=(#5# c . #4#)) (#6# d))"
+ ")"))))))
;; Local Variables:
;; no-byte-compile: t
diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el
b/test/lisp/emacs-lisp/cl-lib-tests.el
index 4e1a0fd63a2..b14731c4d0a 100644
--- a/test/lisp/emacs-lisp/cl-lib-tests.el
+++ b/test/lisp/emacs-lisp/cl-lib-tests.el
@@ -530,7 +530,7 @@
(ert-deftest old-struct ()
(cl-defstruct foo x)
- (let ((x [cl-struct-foo])
+ (let ((x (vector 'cl-struct-foo))
(saved cl-old-struct-compat-mode))
(cl-old-struct-compat-mode -1)
(should (eq (type-of x) 'vector))
@@ -540,7 +540,7 @@
(let ((cl-struct-foo (cl--struct-get-class 'foo)))
(setf (symbol-function 'cl-struct-foo) :quick-object-witness-check)
(should (eq (type-of x) 'foo))
- (should (eq (type-of [foo]) 'vector)))
+ (should (eq (type-of (vector 'foo)) 'vector)))
(cl-old-struct-compat-mode (if saved 1 -1))))
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el
b/test/lisp/emacs-lisp/cl-macs-tests.el
index a9ec0b76ae8..a4bc8d542d4 100644
--- a/test/lisp/emacs-lisp/cl-macs-tests.el
+++ b/test/lisp/emacs-lisp/cl-macs-tests.el
@@ -535,7 +535,7 @@ collection clause."
(eval '(let ((l (list 1))) (cl-symbol-macrolet ((x 1)) (setq (car l) 0)))
t))
;; Make sure `gv-synthetic-place' isn't macro-expanded before `setf' gets to
;; see its `gv-expander'.
- (should (equal (let ((l '(0)))
+ (should (equal (let ((l (list 0)))
(let ((cl (car l)))
(cl-symbol-macrolet
((p (gv-synthetic-place cl (lambda (v) `(setcar l
,v)))))
diff --git a/test/lisp/emacs-lisp/cl-print-tests.el
b/test/lisp/emacs-lisp/cl-print-tests.el
index 7161035d75a..af94dae310c 100644
--- a/test/lisp/emacs-lisp/cl-print-tests.el
+++ b/test/lisp/emacs-lisp/cl-print-tests.el
@@ -90,7 +90,7 @@
(ert-deftest cl-print-tests-ellipsis-circular ()
"Ellipsis expansion works with circular objects."
(let ((wide-obj (list 0 1 2 3 4))
- (deep-obj `(0 (1 (2 (3 (4))))))
+ (deep-obj (list 0 (list 1 (list 2 (list 3 (list 4))))))
(print-length 4)
(print-level 3))
(setf (nth 4 wide-obj) wide-obj)
diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
b/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
index 4feaebed452..4f13881dbd4 100644
--- a/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
+++ b/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
@@ -40,7 +40,7 @@ This is usually a symbol that starts with `:'."
(car tuple)
nil)))
-(defun hash-equal (hash1 hash2)
+(defun eieio-test--hash-equal (hash1 hash2)
"Compare two hash tables to see whether they are equal."
(and (= (hash-table-count hash1)
(hash-table-count hash2))
@@ -78,7 +78,7 @@ This is usually a symbol that starts with `:'."
(if initarg-p
(unless
(cond ((and (hash-table-p origvalue) (hash-table-p
fromdiskvalue))
- (hash-equal origvalue fromdiskvalue))
+ (eieio-test--hash-equal origvalue fromdiskvalue))
(t (equal origvalue fromdiskvalue)))
(error "Slot %S Original Val %S != Persistent Val %S"
oneslot origvalue fromdiskvalue))
@@ -87,7 +87,7 @@ This is usually a symbol that starts with `:'."
(diskval fromdiskvalue))
(unless
(cond ((and (hash-table-p origval) (hash-table-p diskval))
- (hash-equal origval diskval))
+ (eieio-test--hash-equal origval diskval))
(t (equal origval diskval)))
(error "Slot %S Persistent Val %S != Default Value %S"
oneslot diskval origvalue))))))))
@@ -329,8 +329,8 @@ persistent class.")
"container-" emacs-version ".eieio")))
(john (make-instance 'person :name "John"))
(alexie (make-instance 'person :name "Alexie"))
- (alst '(("first" (one two three))
- ("second" (four five six)))))
+ (alst (list (list "first" (list 'one 'two 'three))
+ (list "second" (list 'four 'five 'six)))))
(setf (slot-value thing 'alist) alst)
(puthash "alst" alst (slot-value thing 'htab))
(aset (slot-value thing 'vec) 0 alst)
diff --git a/test/lisp/emacs-lisp/ert-tests.el
b/test/lisp/emacs-lisp/ert-tests.el
index 3e499fc6f59..7713a0f6e38 100644
--- a/test/lisp/emacs-lisp/ert-tests.el
+++ b/test/lisp/emacs-lisp/ert-tests.el
@@ -577,13 +577,12 @@ This macro is used to test if macroexpansion in `should'
works."
(lambda (format-string &rest args)
(push (apply #'format format-string args) messages))))
(save-window-excursion
- (unwind-protect
- (let ((case-fold-search nil)
- (ert-batch-backtrace-right-margin nil)
- (ert-batch-print-level 10)
- (ert-batch-print-length 11))
- (ert-run-tests-batch
- `(member ,failing-test-1 ,failing-test-2))))))
+ (let ((case-fold-search nil)
+ (ert-batch-backtrace-right-margin nil)
+ (ert-batch-print-level 10)
+ (ert-batch-print-length 11))
+ (ert-run-tests-batch
+ `(member ,failing-test-1 ,failing-test-2)))))
(let ((long-text "(different-types[ \t\n]+(1 1 1 1 1 1 1 1 1 1 1)[
\t\n]+1)))[ \t\n]*$")
(complex-text "(different-types[ \t\n]+((:1[ \t\n]+(:2[ \t\n]+(:3[
\t\n]+(:4[ \t\n]+(:5[ \t\n]+(:6[ \t\n]+\"abc\")))))))[ \t\n]+1)))[ \t\n]*$")
found-long
@@ -609,14 +608,13 @@ This macro is used to test if macroexpansion in `should'
works."
(lambda (format-string &rest args)
(push (apply #'format format-string args) messages))))
(save-window-excursion
- (unwind-protect
- (let ((case-fold-search nil)
- (ert-batch-backtrace-right-margin nil)
- (ert-batch-backtrace-line-length nil)
- (ert-batch-print-level 6)
- (ert-batch-print-length 11))
- (ert-run-tests-batch
- `(member ,failing-test-1))))))
+ (let ((case-fold-search nil)
+ (ert-batch-backtrace-right-margin nil)
+ (ert-batch-backtrace-line-length nil)
+ (ert-batch-print-level 6)
+ (ert-batch-print-length 11))
+ (ert-run-tests-batch
+ `(member ,failing-test-1)))))
(let ((frame "ert-fail(((should (equal complex-list 1)) :form (equal
((:1 (:2 (:3 (:4 (:5 (:6 \"abc\"))))))) 1) :value nil :explanation
(different-types ((:1 (:2 (:3 (:4 (:5 (:6 \"abc\"))))))) 1)))")
found-frame)
(cl-loop for msg in (reverse messages)
diff --git a/test/lisp/emacs-lisp/nadvice-tests.el
b/test/lisp/emacs-lisp/nadvice-tests.el
index 716ab694e2c..f6bd5733ba3 100644
--- a/test/lisp/emacs-lisp/nadvice-tests.el
+++ b/test/lisp/emacs-lisp/nadvice-tests.el
@@ -118,20 +118,20 @@
(declare-function sm-test7 nil)
(advice-add 'sm-test7 :around
(lambda (f &rest args)
- (list (cons 1 (called-interactively-p)) (apply f args))))
+ (list (cons 1 (called-interactively-p 'any)) (apply f args))))
(should (equal (sm-test7) '((1 . nil) 11)))
(should (equal (call-interactively 'sm-test7) '((1 . t) 11)))
(let ((smi 7))
(advice-add 'sm-test7 :before
(lambda (&rest _args)
- (setq smi (called-interactively-p))))
+ (setq smi (called-interactively-p 'any))))
(should (equal (list (sm-test7) smi)
'(((1 . nil) 11) nil)))
(should (equal (list (call-interactively 'sm-test7) smi)
'(((1 . t) 11) t))))
(advice-add 'sm-test7 :around
(lambda (f &rest args)
- (cons (cons 2 (called-interactively-p)) (apply f args))))
+ (cons (cons 2 (called-interactively-p 'any)) (apply f args))))
(should (equal (call-interactively 'sm-test7) '((2 . t) (1 . t) 11))))
(ert-deftest advice-test-called-interactively-p-around ()
@@ -140,18 +140,18 @@
This tests the currently broken case of the innermost advice to a
function being an around advice."
:expected-result :failed
- (defun sm-test7.2 () (interactive) (cons 1 (called-interactively-p)))
+ (defun sm-test7.2 () (interactive) (cons 1 (called-interactively-p 'any)))
(declare-function sm-test7.2 nil)
(advice-add 'sm-test7.2 :around
(lambda (f &rest args)
- (list (cons 1 (called-interactively-p)) (apply f args))))
+ (list (cons 1 (called-interactively-p 'any)) (apply f args))))
(should (equal (sm-test7.2) '((1 . nil) (1 . nil))))
(should (equal (call-interactively 'sm-test7.2) '((1 . t) (1 . t)))))
(ert-deftest advice-test-called-interactively-p-filter-args ()
"Check interaction between filter-args advice and called-interactively-p."
:expected-result :failed
- (defun sm-test7.3 () (interactive) (cons 1 (called-interactively-p)))
+ (defun sm-test7.3 () (interactive) (cons 1 (called-interactively-p 'any)))
(declare-function sm-test7.3 nil)
(advice-add 'sm-test7.3 :filter-args #'list)
(should (equal (sm-test7.3) '(1 . nil)))
@@ -159,7 +159,9 @@ function being an around advice."
(ert-deftest advice-test-call-interactively ()
"Check interaction between advice on call-interactively and
called-interactively-p."
- (let ((sm-test7.4 (lambda () (interactive) (cons 1
(called-interactively-p))))
+ (let ((sm-test7.4 (lambda ()
+ (interactive)
+ (cons 1 (called-interactively-p 'any))))
(old (symbol-function 'call-interactively)))
(unwind-protect
(progn
diff --git a/test/lisp/emacs-lisp/package-tests.el
b/test/lisp/emacs-lisp/package-tests.el
index 0016fb586b7..113b4ec12a8 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -219,9 +219,14 @@ Must called from within a `tar-mode' buffer."
(ert-deftest package-test-desc-from-buffer ()
"Parse an elisp buffer to get a `package-desc' object."
- (with-package-test (:basedir (ert-resource-directory) :file
"simple-single-1.3.el")
- (should (package-test--compatible-p
- (package-buffer-info) simple-single-desc 'kind)))
+ (with-package-test (:basedir (ert-resource-directory)
+ :file "simple-single-1.3.el")
+ (let ((pi (package-buffer-info)))
+ (should (package-test--compatible-p pi simple-single-desc 'kind))
+ ;; The terminating line is not mandatory any more.
+ (re-search-forward "^;;; .* ends here")
+ (delete-region (match-beginning 0) (point-max))
+ (should (equal (package-buffer-info) pi))))
(with-package-test (:basedir (ert-resource-directory) :file
"simple-depend-1.0.el")
(should (package-test--compatible-p
(package-buffer-info) simple-depend-desc 'kind)))
diff --git a/test/lisp/emacs-lisp/shortdoc-tests.el
b/test/lisp/emacs-lisp/shortdoc-tests.el
index 516d095767f..596b47d2543 100644
--- a/test/lisp/emacs-lisp/shortdoc-tests.el
+++ b/test/lisp/emacs-lisp/shortdoc-tests.el
@@ -65,6 +65,49 @@
(when buf
(kill-buffer buf))))))
+(defun shortdoc-tests--to-ascii (x)
+ "Translate Unicode arrows to ASCII for making the test work everywhere."
+ (cond ((consp x)
+ (cons (shortdoc-tests--to-ascii (car x))
+ (shortdoc-tests--to-ascii (cdr x))))
+ ((stringp x)
+ (thread-last x
+ (string-replace "⇒" "=>")
+ (string-replace "→" "->")))
+ (t x)))
+
+(ert-deftest shortdoc-function-examples-test ()
+ "Test the extraction of usage examples of some Elisp functions."
+ (should (equal '((list . "(delete 2 (list 1 2 3 4))\n => (1 3 4)\n
(delete \"a\" (list \"a\" \"b\" \"c\" \"d\"))\n => (\"b\" \"c\" \"d\")"))
+ (shortdoc-tests--to-ascii
+ (shortdoc-function-examples 'delete))))
+ (should (equal '((alist . "(assq 'foo '((foo . bar) (zot . baz)))\n =>
(foo . bar)")
+ (list . "(assq 'b '((a . 1) (b . 2)))\n => (b . 2)"))
+ (shortdoc-tests--to-ascii
+ (shortdoc-function-examples 'assq))))
+ (should (equal '((regexp . "(string-match-p \"^[fo]+\" \"foobar\")\n =>
0"))
+ (shortdoc-tests--to-ascii
+ (shortdoc-function-examples 'string-match-p)))))
+
+(ert-deftest shortdoc-help-fns-examples-function-test ()
+ "Test that `shortdoc-help-fns-examples-function' correctly prints ELisp
function examples."
+ (with-temp-buffer
+ (shortdoc-help-fns-examples-function 'string-fill)
+ (should (equal "\n Examples:\n\n (string-fill \"Three short words\"
12)\n => \"Three short\\nwords\"\n (string-fill \"Long-word\" 3)\n =>
\"Long-word\"\n\n"
+ (shortdoc-tests--to-ascii
+ (buffer-substring-no-properties (point-min) (point-max)))))
+ (erase-buffer)
+ (shortdoc-help-fns-examples-function 'assq)
+ (should (equal "\n Examples:\n\n (assq 'foo '((foo . bar) (zot .
baz)))\n => (foo . bar)\n\n (assq 'b '((a . 1) (b . 2)))\n => (b .
2)\n\n"
+ (shortdoc-tests--to-ascii
+ (buffer-substring-no-properties (point-min) (point-max)))))
+ (erase-buffer)
+ (shortdoc-help-fns-examples-function 'string-trim)
+ (should (equal "\n Example:\n\n (string-trim \" foo \")\n =>
\"foo\"\n\n"
+ (shortdoc-tests--to-ascii
+ (buffer-substring-no-properties (point-min)
+ (point-max)))))))
+
(provide 'shortdoc-tests)
;;; shortdoc-tests.el ends here
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el
b/test/lisp/emacs-lisp/subr-x-tests.el
index e4c270a114f..63d8fcd080c 100644
--- a/test/lisp/emacs-lisp/subr-x-tests.el
+++ b/test/lisp/emacs-lisp/subr-x-tests.el
@@ -709,14 +709,15 @@
[(raise 0.5) (height 2.0)]))
(should (equal (get-text-property 9 'display) '(raise 0.5))))
(with-temp-buffer
- (should (equal (let ((str "some useless string"))
- (add-display-text-property 4 8 'height 2.0 str)
- (add-display-text-property 2 12 'raise 0.5 str)
- str)
- #("some useless string"
- 2 4 (display (raise 0.5))
- 4 8 (display ((raise 0.5) (height 2.0)))
- 8 12 (display (raise 0.5)))))))
+ (should (equal-including-properties
+ (let ((str (copy-sequence "some useless string")))
+ (add-display-text-property 4 8 'height 2.0 str)
+ (add-display-text-property 2 12 'raise 0.5 str)
+ str)
+ #("some useless string"
+ 2 4 (display (raise 0.5))
+ 4 8 (display ((raise 0.5) (height 2.0)))
+ 8 12 (display (raise 0.5)))))))
(ert-deftest subr-x-named-let ()
(let ((funs ()))
diff --git a/test/lisp/erc/erc-button-tests.el
b/test/lisp/erc/erc-button-tests.el
new file mode 100644
index 00000000000..6a6f6934389
--- /dev/null
+++ b/test/lisp/erc/erc-button-tests.el
@@ -0,0 +1,283 @@
+;;; erc-button-tests.el --- Tests for erc-button -*- lexical-binding:t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'erc-button)
+
+(ert-deftest erc-button-alist--url ()
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (with-current-buffer (erc--open-target "#chan")
+ (let ((verify
+ (lambda (p url)
+ (should (equal (get-text-property p 'erc-data) (list url)))
+ (should (equal (get-text-property p 'mouse-face) 'highlight))
+ (should (eq (get-text-property p 'font-lock-face) 'erc-button))
+ (should (eq (get-text-property p 'erc-callback)
+ 'browse-url-button-open-url)))))
+ (goto-char (point-min))
+
+ ;; Most common (unbracketed)
+ (erc-display-message nil nil (current-buffer)
+ "Foo https://example.com bar.")
+ (search-forward "https")
+ (funcall verify (point) "https://example.com";)
+
+ ;; The <URL: form> still works despite being removed in ERC 5.6.
+ (erc-display-message nil nil (current-buffer)
+ "Foo <URL: https://gnu.org> bar.")
+ (search-forward "https")
+ (funcall verify (point) "https://gnu.org";)
+
+ ;; Bracketed
+ (erc-display-message nil nil (current-buffer) "Foo <ftp://gnu.org> bar.")
+ (search-forward "ftp")
+ (funcall verify (point) "ftp://gnu.org";))
+
+ (when noninteractive
+ (kill-buffer))))
+
+(defvar erc-button-tests--form nil)
+(defvar erc-button-tests--some-var nil)
+
+(defun erc-button-tests--form (&rest rest)
+ (push rest erc-button-tests--form)
+ (apply #'erc-button-add-button rest))
+
+(defun erc-button-tests--erc-button-alist--function-as-form (func)
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil)
+
+ (with-current-buffer (erc--open-target "#chan")
+ (let* ((erc-button-tests--form nil)
+ (entry (list (rx "+1") 0 func #'ignore 0))
+ (erc-button-alist (cons entry erc-button-alist)))
+
+ (erc-display-message nil 'notice (current-buffer) "Foo bar baz")
+ (erc-display-message nil nil (current-buffer) "+1")
+ (erc-display-message nil 'notice (current-buffer) "Spam")
+ (should (equal (pop erc-button-tests--form)
+ '(53 55 ignore nil ("+1") "\\+1")))
+ (should-not erc-button-tests--form)
+ (goto-char (point-min))
+ (search-forward "+")
+ (should (equal (get-text-property (point) 'erc-data) '("+1")))
+ (should (equal (get-text-property (point) 'mouse-face) 'highlight))
+ (should (eq (get-text-property (point) 'font-lock-face) 'erc-button))
+ (should (eq (get-text-property (point) 'erc-callback) 'ignore)))
+
+ (when noninteractive
+ (kill-buffer))))
+
+(ert-deftest erc-button-alist--function-as-form ()
+ (erc-button-tests--erc-button-alist--function-as-form
+ #'erc-button-tests--form)
+
+ (erc-button-tests--erc-button-alist--function-as-form
+ (symbol-function #'erc-button-tests--form))
+
+ (erc-button-tests--erc-button-alist--function-as-form
+ (lambda (&rest r) (push r erc-button-tests--form)
+ (apply #'erc-button-add-button r))))
+
+(defun erc-button-tests--erc-button-alist--nil-form (form)
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil)
+
+ (with-current-buffer (erc--open-target "#chan")
+ (let* ((erc-button-tests--form nil)
+ (entry (list (rx "+1") 0 form #'ignore 0))
+ (erc-button-alist (cons entry erc-button-alist)))
+
+ (erc-display-message nil 'notice (current-buffer) "Foo bar baz")
+ (erc-display-message nil nil (current-buffer) "+1")
+ (erc-display-message nil 'notice (current-buffer) "Spam")
+ (should-not erc-button-tests--form)
+ (goto-char (point-min))
+ (search-forward "+")
+ (should-not (get-text-property (point) 'erc-data))
+ (should-not (get-text-property (point) 'mouse-face))
+ (should-not (get-text-property (point) 'font-lock-face))
+ (should-not (get-text-property (point) 'erc-callback)))
+
+ (when noninteractive
+ (kill-buffer))))
+
+(ert-deftest erc-button-alist--nil-form ()
+ (erc-button-tests--erc-button-alist--nil-form nil)
+ (erc-button-tests--erc-button-alist--nil-form 'erc-button-tests--some-var))
+
+(defun erc-button-tests--insert-privmsg (speaker &rest msg-parts)
+ (declare (indent 1))
+ (let ((msg (erc-format-privmessage speaker
+ (apply #'concat msg-parts) nil t)))
+ (erc-display-message nil nil (current-buffer) msg)))
+
+(defun erc-button-tests--populate (test)
+ (let ((inhibit-message noninteractive)
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+
+ (with-current-buffer
+ (cl-letf
+ (((symbol-function 'erc-server-connect)
+ (lambda (&rest _)
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil))))
+
+ (erc-open "localhost" 6667 "tester" "Tester" 'connect
+ nil nil nil nil nil "tester" 'foonet))
+
+ (with-current-buffer (erc--open-target "#chan")
+ (erc-update-channel-member
+ "#chan" "alice" "alice" t nil nil nil nil nil "fake" "~u" nil nil t)
+
+ (erc-update-channel-member
+ "#chan" "bob" "bob" t nil nil nil nil nil "fake" "~u" nil nil t)
+
+ (erc-display-message
+ nil 'notice (current-buffer)
+ (concat "This server is in debug mode and is logging all user I/O. "
+ "Blah alice (1) bob (2) blah."))
+
+ (funcall test))
+
+ (when noninteractive
+ (kill-buffer "#chan")
+ (kill-buffer)))))
+
+(ert-deftest erc-button-next ()
+ (erc-button-tests--populate
+ (lambda ()
+ (erc-button-tests--insert-privmsg "alice"
+ "(3) bob (4) come, you are a tedious fool: to the purpose.")
+
+ (erc-button-tests--insert-privmsg "bob"
+ "(5) alice (6) Come me to what was done to her.")
+
+ (should (= erc-input-marker (point)))
+
+ ;; Break out of input area
+ (erc-button-previous 1)
+ (should (looking-at (rx "alice (6)")))
+
+ ;; No next button
+ (should-error (erc-button-next 1) :type 'user-error)
+ (should (looking-at (rx "alice (6)")))
+
+ ;; Next with negative arg is equivalent to previous
+ (erc-button-next -1)
+ (should (looking-at (rx "bob> (5)")))
+
+ ;; One past end of button
+ (forward-char 3)
+ (should (looking-at (rx "> (5)")))
+ (should-not (get-text-property (point) 'erc-callback))
+ (erc-button-previous 1)
+ (should (looking-at (rx "bob> (5)")))
+
+ ;; At end of button
+ (forward-char 2)
+ (should (looking-at (rx "b> (5)")))
+ (erc-button-previous 1)
+ (should (looking-at (rx "bob (4)")))
+
+ ;; Skip multiple buttons back
+ (erc-button-previous 2)
+ (should (looking-at (rx "bob (2)")))
+
+ ;; Skip multiple buttons forward
+ (erc-button-next 2)
+ (should (looking-at (rx "bob (4)")))
+
+ ;; No error as long as some progress made
+ (erc-button-previous 100)
+ (should (looking-at (rx "alice (1)")))
+
+ ;; Error when no progress made
+ (should-error (erc-button-previous 1) :type 'user-error)
+ (should (looking-at (rx "alice (1)"))))))
+
+;; See also `erc-scenarios-networks-announced-missing' in
+;; erc-scenarios-misc.el for a more realistic example.
+(ert-deftest erc-button--display-error-notice-with-keys ()
+ (with-current-buffer (get-buffer-create "*fake*")
+ (let ((mode erc-button-mode)
+ (inhibit-message noninteractive)
+ erc-modules
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (erc-mode)
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (erc--initialize-markers (point) nil)
+ (erc-button-mode +1)
+ (should (equal (erc-button--display-error-notice-with-keys
+ "If \\[erc-bol] fails, "
+ "see \\[erc-bug] or `erc-mode-map'.")
+ "*** If C-a fails, see M-x erc-bug or `erc-mode-map'."))
+ (goto-char (point-min))
+
+ (ert-info ("Keymap substitution succeeds")
+ (erc-button-next 1)
+ (should (looking-at "C-a"))
+ (should (eq (get-text-property (point) 'mouse-face) 'highlight))
+ (erc-button-press-button)
+ (with-current-buffer "*Help*"
+ (goto-char (point-min))
+ (should (search-forward "erc-bol" nil t)))
+ (erc-button-next 1)
+ ;; End of interval correct
+ (erc-button-previous 1)
+ (should (looking-at "C-a fails")))
+
+ (ert-info ("Extended command mapping succeeds")
+ (erc-button-next 1)
+ (should (looking-at "M-x erc-bug"))
+ (erc-button-press-button)
+ (should (eq (get-text-property (point) 'mouse-face) 'highlight))
+ (with-current-buffer "*Help*"
+ (goto-char (point-min))
+ (should (search-forward "erc-bug" nil t))))
+
+ (ert-info ("Symbol-description face preserved") ; mutated by d-e-n-w-k
+ (erc-button-next 1)
+ (should (equal (get-text-property (point) 'font-lock-face)
+ '(erc-button erc-error-face)))
+ (should (eq (get-text-property (point) 'mouse-face) 'highlight))
+ (should (eq erc-button-face 'erc-button))) ; extent evaporates
+
+ (ert-info ("Format when trailing args include non-strings")
+ (should (equal (erc-button--display-error-notice-with-keys
+ "abc" " %d def" " 45%s" 123 '\6)
+ "*** abc 123 def 456")))
+
+ (when noninteractive
+ (unless mode
+ (erc-button-mode -1))
+ (kill-buffer "*Help*")
+ (kill-buffer)))))
+
+;;; erc-button-tests.el ends here
diff --git a/test/lisp/erc/erc-dcc-tests.el b/test/lisp/erc/erc-dcc-tests.el
index bd8a9fc7951..7fb5f82e784 100644
--- a/test/lisp/erc/erc-dcc-tests.el
+++ b/test/lisp/erc/erc-dcc-tests.el
@@ -60,6 +60,8 @@
erc-input-marker (make-marker)
erc-insert-marker (make-marker)
erc-server-current-nick "dummy")
+ (erc-display-prompt)
+ (set-marker erc-insert-marker (pos-bol))
(set-process-query-on-exit-flag erc-server-process nil)
(should-not erc-dcc-list)
(erc-ctcp-query-DCC erc-server-process
@@ -100,7 +102,7 @@
(ert-deftest erc-dcc-handle-ctcp-send--turbo ()
(erc-dcc-tests--dcc-handle-ctcp-send t))
-(ert-deftest erc-dcc-do-GET-command ()
+(defun erc-dcc-tests--erc-dcc-do-GET-command (file &optional sep)
(with-temp-buffer
(let* ((proc (start-process "fake" (current-buffer) "sleep" "10"))
(elt (list :nick "tester!~tester@fake.irc"
@@ -109,7 +111,7 @@
:parent proc
:ip "127.0.0.1"
:port "9899"
- :file "foo.bin"
+ :file file
:size 1405135128))
(erc-dcc-list (list elt))
;;
@@ -124,7 +126,7 @@
erc-server-current-nick "dummy")
(set-process-query-on-exit-flag proc nil)
(cl-letf (((symbol-function 'read-file-name)
- (lambda (&rest _) "foo.bin"))
+ (lambda (&rest _) file))
((symbol-function 'erc-dcc-get-file)
(lambda (&rest r) (push r calls))))
(goto-char (point-max))
@@ -134,38 +136,44 @@
(ert-info ("No turbo")
(should-not (plist-member elt :turbo))
(goto-char erc-input-marker)
- (insert "/dcc GET tester foo.bin")
+ (insert "/dcc GET tester " (or sep "") (prin1-to-string file))
(erc-send-current-line)
(should-not (plist-member (car erc-dcc-list) :turbo))
- (should (equal (pop calls) (list elt "foo.bin" proc))))
+ (should (equal (pop calls) (list elt file proc))))
(ert-info ("Arg turbo in pos 2")
(should-not (plist-member elt :turbo))
(goto-char erc-input-marker)
- (insert "/dcc GET -t tester foo.bin")
+ (insert "/dcc GET -t tester " (or sep "") (prin1-to-string file))
(erc-send-current-line)
(should (eq t (plist-get (car erc-dcc-list) :turbo)))
- (should (equal (pop calls) (list elt "foo.bin" proc))))
+ (should (equal (pop calls) (list elt file proc))))
(ert-info ("Arg turbo in pos 4")
(setq elt (plist-put elt :turbo nil)
erc-dcc-list (list elt))
(goto-char erc-input-marker)
- (insert "/dcc GET tester -t foo.bin")
+ (insert "/dcc GET tester -t " (or sep "") (prin1-to-string file))
(erc-send-current-line)
(should (eq t (plist-get (car erc-dcc-list) :turbo)))
- (should (equal (pop calls) (list elt "foo.bin" proc))))
+ (should (equal (pop calls) (list elt file proc))))
(ert-info ("Arg turbo in pos 6")
(setq elt (plist-put elt :turbo nil)
erc-dcc-list (list elt))
(goto-char erc-input-marker)
- (insert "/dcc GET tester foo.bin -t")
+ (insert "/dcc GET tester " (prin1-to-string file) " -t" (or sep ""))
(erc-send-current-line)
- (should (eq t (plist-get (car erc-dcc-list) :turbo)))
- (should (equal (pop calls) (list elt "foo.bin" proc))))))))
+ (should (eq (if sep nil t) (plist-get (car erc-dcc-list) :turbo)))
+ (should (equal (pop calls) (if sep nil (list elt file proc)))))))))
+
+(ert-deftest erc-dcc-do-GET-command ()
+ (erc-dcc-tests--erc-dcc-do-GET-command "foo.bin")
+ (erc-dcc-tests--erc-dcc-do-GET-command "foo - file.bin")
+ (erc-dcc-tests--erc-dcc-do-GET-command "foo -t file.bin")
+ (erc-dcc-tests--erc-dcc-do-GET-command "-t" "-- "))
-(defun erc-dcc-tests--pcomplete-common (test-fn)
+(defun erc-dcc-tests--pcomplete-common (test-fn &optional file)
(with-current-buffer (get-buffer-create "*erc-dcc-do-GET-command*")
(let* ((inhibit-message noninteractive)
(proc (start-process "fake" (current-buffer) "sleep" "10"))
@@ -175,7 +183,7 @@
:parent proc
:ip "127.0.0.1"
:port "9899"
- :file "foo.bin"
+ :file (or file "foo.bin")
:size 1405135128))
;;
erc-accidental-paste-threshold-seconds
@@ -211,6 +219,20 @@
(beginning-of-line)
(should (search-forward "/dcc get tester foo.bin" nil t))))))
+(ert-deftest pcomplete/erc-mode/DCC--get-quoted ()
+ (erc-dcc-tests--pcomplete-common
+ (lambda ()
+ (insert "/dcc get ")
+ (call-interactively #'completion-at-point)
+ (save-excursion
+ (beginning-of-line)
+ (should (search-forward "/dcc get tester" nil t)))
+ (call-interactively #'completion-at-point)
+ (save-excursion
+ (beginning-of-line)
+ (should (search-forward "/dcc get tester \"foo bar.bin\"" nil t))))
+ "foo bar.bin"))
+
(ert-deftest pcomplete/erc-mode/DCC--get-1flag ()
(erc-dcc-tests--pcomplete-common
(lambda ()
@@ -282,4 +304,23 @@
(beginning-of-line)
(should (search-forward "/dcc get -t -s tester foo.bin" nil t))))))
+(ert-deftest pcomplete/erc-mode/DCC--get-sep ()
+ (erc-dcc-tests--pcomplete-common
+ (lambda ()
+ (insert "/dcc get ")
+ (call-interactively #'completion-at-point)
+ (save-excursion
+ (beginning-of-line)
+ (should (search-forward "/dcc get tester" nil t)))
+ (insert "-")
+ (call-interactively #'completion-at-point)
+ (save-excursion
+ (beginning-of-line)
+ (should (search-forward "/dcc get tester -- " nil t)))
+ (call-interactively #'completion-at-point)
+ (save-excursion
+ (beginning-of-line)
+ (should (search-forward "/dcc get tester -- -t" nil t))))
+ "-t"))
+
;;; erc-dcc-tests.el ends here
diff --git a/test/lisp/erc/erc-fill-tests.el b/test/lisp/erc/erc-fill-tests.el
new file mode 100644
index 00000000000..fc33d0b9103
--- /dev/null
+++ b/test/lisp/erc/erc-fill-tests.el
@@ -0,0 +1,338 @@
+;;; erc-fill-tests.el --- Tests for erc-fill -*- lexical-binding:t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; FIXME these tests are brittle and error prone. Replace with
+;; scenarios.
+
+;;; Code:
+(require 'ert-x)
+(require 'erc-fill)
+
+(defvar erc-fill-tests--buffers nil)
+(defvar erc-fill-tests--time-vals (lambda () 0))
+
+(defun erc-fill-tests--insert-privmsg (speaker &rest msg-parts)
+ (declare (indent 1))
+ (let ((msg (erc-format-privmessage speaker
+ (apply #'concat msg-parts) nil t)))
+ (put-text-property 0 (length msg) 'erc-command 'PRIVMSG msg)
+ (erc-display-message nil nil (current-buffer) msg)))
+
+(defun erc-fill-tests--wrap-populate (test)
+ (let ((original-window-buffer (window-buffer (selected-window)))
+ (erc-stamp--tz t)
+ (erc-fill-function 'erc-fill-wrap)
+ (pre-command-hook pre-command-hook)
+ (inhibit-message noninteractive)
+ erc-insert-post-hook
+ extended-command-history
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (cl-letf (((symbol-function 'erc-stamp--current-time)
+ (lambda () (funcall erc-fill-tests--time-vals)))
+ ((symbol-function 'erc-server-connect)
+ (lambda (&rest _)
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil))))
+ (with-current-buffer
+ (car (push (erc-open "localhost" 6667 "tester" "Tester" 'connect
+ nil nil nil nil nil "tester" 'foonet)
+ erc-fill-tests--buffers))
+ (setq erc-network 'foonet
+ erc-server-connected t)
+ (with-current-buffer (erc--open-target "#chan")
+ (set-window-buffer (selected-window) (current-buffer))
+
+ (erc-update-channel-member
+ "#chan" "alice" "alice" t nil nil nil nil nil "fake" "~u" nil nil t)
+
+ (erc-update-channel-member
+ "#chan" "bob" "bob" t nil nil nil nil nil "fake" "~u" nil nil t)
+
+ (erc-display-message
+ nil 'notice (current-buffer)
+ (concat "This server is in debug mode and is logging all user I/O. "
+ "If you do not wish for everything you send to be readable "
+ "by the server owner(s), please disconnect."))
+
+ (erc-fill-tests--insert-privmsg "alice"
+ "bob: come, you are a tedious fool: to the purpose. "
+ "What was done to Elbow's wife, that he hath cause to complain of?
"
+ "Come me to what was done to her.")
+
+ ;; Introduce an artificial gap in properties `line-prefix' and
+ ;; `wrap-prefix' and later ensure they're not incremented twice.
+ (save-excursion
+ (forward-line -1)
+ (search-forward "? ")
+ (with-silent-modifications
+ (remove-text-properties (1- (point)) (point)
+ '(line-prefix t wrap-prefix t))))
+
+ (erc-fill-tests--insert-privmsg "bob"
+ "alice: Either your unparagoned mistress is dead, "
+ "or she's outprized by a trifle.")
+
+ ;; Defend against non-local exits from `ert-skip'
+ (unwind-protect
+ (funcall test)
+ (when set-transient-map-timer
+ (timer-event-handler set-transient-map-timer))
+ (set-window-buffer (selected-window) original-window-buffer)
+ (when noninteractive
+ (while-let ((buf (pop erc-fill-tests--buffers)))
+ (kill-buffer buf))
+ (kill-buffer))))))))
+
+(defun erc-fill-tests--wrap-check-prefixes (&rest prefixes)
+ ;; Check that prefix props are applied over correct intervals.
+ (save-excursion
+ (goto-char (point-min))
+ (dolist (prefix prefixes)
+ (should (search-forward prefix nil t))
+ (should (get-text-property (pos-bol) 'line-prefix))
+ (should (get-text-property (pos-eol) 'line-prefix))
+ (should (equal (get-text-property (pos-bol) 'wrap-prefix)
+ '(space :width erc-fill--wrap-value)))
+ (should (equal (get-text-property (pos-eol) 'wrap-prefix)
+ '(space :width erc-fill--wrap-value))))))
+
+;; Set this variable to t to generate new snapshots after carefully
+;; reviewing the output of *each* snapshot (not just first and last).
+;; Obviously, only run one test at a time.
+(defvar erc-fill-tests--save-p nil)
+
+;; On graphical displays, echo .graphic >> .git/info/exclude
+(defvar erc-fill-tests--graphic-dir "fill/snapshots/.graphic")
+
+(defun erc-fill-tests--compare (name)
+ (let* ((dir (expand-file-name (if (display-graphic-p)
+ erc-fill-tests--graphic-dir
+ "fill/snapshots/")
+ (ert-resource-directory)))
+ (expect-file (file-name-with-extension (expand-file-name name dir)
+ "eld"))
+ (erc--own-property-names
+ (seq-difference `(font-lock-face ,@erc--own-property-names)
+ '(field display wrap-prefix line-prefix)
+ #'eq))
+ (print-circle t)
+ (print-escape-newlines t)
+ (print-escape-nonascii t)
+ (got (erc--remove-text-properties
+ (buffer-substring (point-min) erc-insert-marker)))
+ (repr (string-replace "erc-fill--wrap-value"
+ (number-to-string erc-fill--wrap-value)
+ (prin1-to-string got))))
+ (with-current-buffer (generate-new-buffer name)
+ (push name erc-fill-tests--buffers)
+ (with-silent-modifications
+ (insert (setq got (read repr))))
+ (erc-mode))
+ (if erc-fill-tests--save-p
+ (with-temp-file expect-file
+ (insert repr))
+ (if (file-exists-p expect-file)
+ ;; Compare set-equal over intervals
+ (should (equal-including-properties
+ (read repr)
+ (read (with-temp-buffer
+ (insert-file-contents-literally expect-file)
+ (buffer-string)))))
+ (message "Snapshot file missing: %S" expect-file)))))
+
+;; To inspect variable pitch, set `erc-mode-hook' to
+;;
+;; (lambda () (face-remap-add-relative 'default :family "Sans Serif"))
+;;
+;; or similar.
+
+(ert-deftest erc-fill-wrap--monospace ()
+ :tags '(:unstable)
+ (unless (>= emacs-major-version 29)
+ (ert-skip "Emacs version too low, missing `buffer-text-pixel-size'"))
+
+ (erc-fill-tests--wrap-populate
+
+ (lambda ()
+ (should (= erc-fill--wrap-value 27))
+ (erc-fill-tests--wrap-check-prefixes "*** " "<alice> " "<bob> ")
+ (erc-fill-tests--compare "monospace-01-start")
+
+ (ert-info ("Shift right by one (plus)")
+ ;; Args are all `erc-fill-wrap-nudge' +1 because interactive "p"
+ (ert-with-message-capture messages
+ ;; M-x erc-fill-wrap-nudge RET =
+ (ert-simulate-command '(erc-fill-wrap-nudge 2))
+ (should (string-match (rx "for further adjustment") messages)))
+ (should (= erc-fill--wrap-value 29))
+ (erc-fill-tests--wrap-check-prefixes "*** " "<alice> " "<bob> ")
+ (erc-fill-tests--compare "monospace-02-right"))
+
+ (ert-info ("Shift left by five")
+ ;; "M-x erc-fill-wrap-nudge RET -----"
+ (ert-simulate-command '(erc-fill-wrap-nudge -4))
+ (should (= erc-fill--wrap-value 25))
+ (erc-fill-tests--wrap-check-prefixes "*** " "<alice> " "<bob> ")
+ (erc-fill-tests--compare "monospace-03-left"))
+
+ (ert-info ("Reset")
+ ;; M-x erc-fill-wrap-nudge RET 0
+ (ert-simulate-command '(erc-fill-wrap-nudge 0))
+ (should (= erc-fill--wrap-value 27))
+ (erc-fill-tests--wrap-check-prefixes "*** " "<alice> " "<bob> ")
+ (erc-fill-tests--compare "monospace-04-reset")))))
+
+(ert-deftest erc-fill-wrap--merge ()
+ :tags '(:unstable)
+ (unless (>= emacs-major-version 29)
+ (ert-skip "Emacs version too low, missing `buffer-text-pixel-size'"))
+
+ (erc-fill-tests--wrap-populate
+
+ (lambda ()
+ (erc-update-channel-member
+ "#chan" "Dummy" "Dummy" t nil nil nil nil nil "fake" "~u" nil nil t)
+
+ ;; Set this here so that the first few messages are from 1970
+ (let ((erc-fill-tests--time-vals (lambda () 1680332400)))
+ (erc-fill-tests--insert-privmsg "bob" "zero.")
+ (erc-fill-tests--insert-privmsg "alice" "one.")
+ (erc-fill-tests--insert-privmsg "alice" "two.")
+ (erc-fill-tests--insert-privmsg "bob" "three.")
+ (erc-fill-tests--insert-privmsg "bob" "four.")
+ (erc-fill-tests--insert-privmsg "Dummy" "five.")
+ (erc-fill-tests--insert-privmsg "Dummy" "six."))
+
+ (should (= erc-fill--wrap-value 27))
+ (erc-fill-tests--wrap-check-prefixes
+ "*** " "<alice> " "<bob> "
+ "<bob> " "<alice> " "<alice> " "<bob> " "<bob> " "<Dummy> " "<Dummy> ")
+ (erc-fill-tests--compare "merge-01-start")
+
+ (ert-info ("Shift right by one (plus)")
+ (ert-simulate-command '(erc-fill-wrap-nudge 2))
+ (should (= erc-fill--wrap-value 29))
+ (erc-fill-tests--wrap-check-prefixes
+ "*** " "<alice> " "<bob> "
+ "<bob> " "<alice> " "<alice> " "<bob> " "<bob> " "<Dummy> " "<Dummy> ")
+ (erc-fill-tests--compare "merge-02-right")))))
+
+(ert-deftest erc-fill-line-spacing ()
+ :tags '(:unstable)
+ (unless (>= emacs-major-version 29)
+ (ert-skip "Emacs version too low, missing `buffer-text-pixel-size'"))
+
+ (let ((erc-fill-line-spacing 0.5))
+ (erc-fill-tests--wrap-populate
+ (lambda ()
+ (erc-fill-tests--insert-privmsg "bob" "This buffer is for text.")
+ (erc-display-message nil 'notice (current-buffer) "one two three")
+ (erc-display-message nil 'notice (current-buffer) "four five six")
+ (erc-fill-tests--insert-privmsg "bob" "Somebody stop me")
+ (erc-fill-tests--compare "spacing-01-mono")))))
+
+(ert-deftest erc-fill-wrap-visual-keys--body ()
+ :tags '(:unstable)
+ (erc-fill-tests--wrap-populate
+
+ (lambda ()
+ (ert-info ("Value: non-input")
+ (should (eq erc-fill--wrap-visual-keys 'non-input))
+ (goto-char (point-min))
+ (should (search-forward "that he hath" nil t))
+ (execute-kbd-macro "\C-a")
+ (should-not (looking-at (rx "<alice> ")))
+ (execute-kbd-macro "\C-e")
+ (should (search-backward "tedious fool" nil t))
+ (should-not (looking-back "done to her\\."))
+ (forward-char)
+ (execute-kbd-macro "\C-e")
+ (should (search-forward "done to her." nil t)))
+
+ (ert-info ("Value: nil")
+ (execute-kbd-macro "\C-ca")
+ (should-not erc-fill--wrap-visual-keys)
+ (goto-char (point-min))
+ (should (search-forward "in debug mode" nil t))
+ (execute-kbd-macro "\C-a")
+ (should (looking-at (rx "*** ")))
+ (execute-kbd-macro "\C-e")
+ (should (eql ?\] (char-before (point)))))
+
+ (ert-info ("Value: t")
+ (execute-kbd-macro "\C-ca")
+ (should (eq erc-fill--wrap-visual-keys t))
+ (goto-char (point-min))
+ (should (search-forward "that he hath" nil t))
+ (execute-kbd-macro "\C-a")
+ (should-not (looking-at (rx "<alice> ")))
+ (should (search-backward "tedious fool" nil t))
+ (execute-kbd-macro "\C-e")
+ (should-not (looking-back (rx "done to her\\.")))
+ (should (search-forward "done to her." nil t))
+ (execute-kbd-macro "\C-a")
+ (should-not (looking-at (rx "<alice> ")))))))
+
+(ert-deftest erc-fill-wrap-visual-keys--prompt ()
+ :tags '(:unstable)
+ (erc-fill-tests--wrap-populate
+
+ (lambda ()
+ (set-window-buffer (selected-window) (current-buffer))
+ (goto-char erc-input-marker)
+ (insert "This buffer is for text that is not saved, and for Lisp "
+ "evaluation. To create a file, visit it with C-x C-f and "
+ "enter text in its buffer.")
+
+ (ert-info ("Value: non-input")
+ (should (eq erc-fill--wrap-visual-keys 'non-input))
+ (execute-kbd-macro "\C-a")
+ (should (looking-at "This buffer"))
+ (execute-kbd-macro "\C-e")
+ (should (looking-back "its buffer\\."))
+ (execute-kbd-macro "\C-a")
+ (execute-kbd-macro "\C-k")
+ (should (eobp)))
+
+ (ert-info ("Value: nil") ; same
+ (execute-kbd-macro "\C-ca")
+ (should-not erc-fill--wrap-visual-keys)
+ (execute-kbd-macro "\C-y")
+ (should (looking-back "its buffer\\."))
+ (execute-kbd-macro "\C-a")
+ (should (looking-at "This buffer"))
+ (execute-kbd-macro "\C-k")
+ (should (eobp)))
+
+ (ert-info ("Value: non-input")
+ (execute-kbd-macro "\C-ca")
+ (should (eq erc-fill--wrap-visual-keys t))
+ (execute-kbd-macro "\C-y")
+ (execute-kbd-macro "\C-a")
+ (should-not (looking-at "This buffer"))
+ (execute-kbd-macro "\C-p")
+ (should-not (looking-back "its buffer\\."))
+ (should (search-forward "its buffer." nil t))
+ (should (search-backward "ERC> " nil t))
+ (execute-kbd-macro "\C-a")))))
+
+;;; erc-fill-tests.el ends here
diff --git a/test/lisp/erc/erc-goodies-tests.el
b/test/lisp/erc/erc-goodies-tests.el
new file mode 100644
index 00000000000..7acacb319f1
--- /dev/null
+++ b/test/lisp/erc/erc-goodies-tests.el
@@ -0,0 +1,325 @@
+;;; erc-goodies-tests.el --- Tests for erc-goodies -*- lexical-binding:t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;; Code:
+(require 'ert-x)
+(require 'erc-goodies)
+
+(defun erc-goodies-tests--assert-face (beg end-str present &optional absent)
+ (setq beg (+ beg (point-min)))
+ (let ((end (+ beg (1- (length end-str)))))
+ (while (and beg (< beg end))
+ (let* ((val (get-text-property beg 'font-lock-face))
+ (ft (flatten-tree (ensure-list val))))
+ (dolist (p (ensure-list present))
+ (if (consp p)
+ (should (member p val))
+ (should (memq p ft))))
+ (dolist (a (ensure-list absent))
+ (if (consp a)
+ (should-not (member a val))
+ (should-not (memq a ft))))
+ (setq beg (text-property-not-all beg (point-max)
+ 'font-lock-face val))))))
+
+;; These are from the "Examples" section of
+;; https://modern.ircdocs.horse/formatting.html
+
+(ert-deftest erc-controls-highlight--examples ()
+ (should (eq t erc-interpret-controls-p))
+ (let ((erc-insert-modify-hook '(erc-controls-highlight))
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (with-current-buffer (get-buffer-create "#chan")
+ (erc-mode)
+ (setq-local erc-interpret-mirc-color t)
+ (erc--initialize-markers (point) nil)
+
+ (let* ((m "I love \C-c3IRC!\C-c It is the \C-c7best protocol ever!")
+ (msg (erc-format-privmessage "bob" m nil t)))
+ (erc-display-message nil nil (current-buffer) msg))
+ (forward-line -1)
+ (should (search-forward "<bob> " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (erc-goodies-tests--assert-face
+ 0 "I love" 'erc-default-face 'fg:erc-color-face3)
+ (erc-goodies-tests--assert-face
+ 7 " IRC!" 'fg:erc-color-face3)
+ (erc-goodies-tests--assert-face
+ 11 " It is the " 'erc-default-face 'fg:erc-color-face7)
+ (erc-goodies-tests--assert-face
+ 22 "best protocol ever!" 'fg:erc-color-face7))
+
+ (let* ((m "This is a \C-]\C-c13,9cool \C-cmessage")
+ (msg (erc-format-privmessage "alice" m nil t)))
+ (erc-display-message nil nil (current-buffer) msg))
+ (should (search-forward "<alice> " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (erc-goodies-tests--assert-face
+ 0 "this is a " 'erc-default-face 'erc-italic-face)
+ (erc-goodies-tests--assert-face
+ 10 "cool " '(erc-italic-face fg:erc-color-face13 bg:erc-color-face9))
+ (erc-goodies-tests--assert-face
+ 15 "message" 'erc-italic-face
+ '(fg:erc-color-face13 bg:erc-color-face9)))
+
+ (let* ((m "IRC \C-bis \C-c4,12so \C-cgreat\C-o!")
+ (msg (erc-format-privmessage "bob" m nil t)))
+ (erc-display-message nil nil (current-buffer) msg))
+ (should (search-forward "<bob> " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (erc-goodies-tests--assert-face
+ 0 "IRC " 'erc-default-face 'erc-bold-face)
+ (erc-goodies-tests--assert-face
+ 4 "is " 'erc-bold-face '(fg:erc-color-face4 bg:erc-color-face12))
+ (erc-goodies-tests--assert-face
+ 7 "so " '(erc-bold-face fg:erc-color-face4 bg:erc-color-face12))
+ (erc-goodies-tests--assert-face
+ 10 "great" 'erc-bold-face '(fg:erc-color-face4 bg:erc-color-face12))
+ (erc-goodies-tests--assert-face
+ 15 "!" 'erc-default-face 'erc-bold-face))
+
+ (let* ((m (concat "Rules: Don't spam 5\C-c13,8,6\C-c,7,8, "
+ "and especially not \C-b9\C-b\C-]!"))
+ (msg (erc-format-privmessage "alice" m nil t)))
+ (erc-display-message nil nil (current-buffer) msg))
+ (should (search-forward "<alice> " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (erc-goodies-tests--assert-face
+ 0 "Rules: Don't spam 5" 'erc-default-face
+ '(fg:erc-color-face13 bg:erc-color-face8))
+ (erc-goodies-tests--assert-face
+ 19 ",6" '(fg:erc-color-face13 bg:erc-color-face8))
+ (erc-goodies-tests--assert-face
+ 21 ",7,8, and especially not " 'erc-default-face
+ '(fg:erc-color-face13 bg:erc-color-face8 erc-bold-face))
+ (erc-goodies-tests--assert-face
+ 44 "9" 'erc-bold-face 'erc-italic-face)
+ (erc-goodies-tests--assert-face
+ 45 "!" 'erc-italic-face 'erc-bold-face))
+
+ (when noninteractive
+ (kill-buffer)))))
+
+;; Like the test above, this is most intuitive when run interactively.
+;; Hovering over the redacted area should reveal its underlying text
+;; in a high-contrast face.
+
+(ert-deftest erc-controls-highlight--inverse ()
+ (should (eq t erc-interpret-controls-p))
+ (let ((erc-insert-modify-hook '(erc-controls-highlight))
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (with-current-buffer (get-buffer-create "#chan")
+ (erc-mode)
+ (setq-local erc-interpret-mirc-color t)
+ (erc--initialize-markers (point) nil)
+
+ (let* ((m "Spoiler: \C-c0,0Hello\C-c1,1World!")
+ (msg (erc-format-privmessage "bob" m nil t)))
+ (erc-display-message nil nil (current-buffer) msg))
+ (forward-line -1)
+ (should (search-forward "<bob> " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (should (eq (get-text-property (+ 9 (point)) 'mouse-face)
+ 'erc-inverse-face))
+ (should (eq (get-text-property (1- (pos-eol)) 'mouse-face)
+ 'erc-inverse-face))
+ (erc-goodies-tests--assert-face
+ 0 "Spoiler: " 'erc-default-face
+ '(fg:erc-color-face0 bg:erc-color-face0))
+ (erc-goodies-tests--assert-face
+ 9 "Hello" '(erc-spoiler-face)
+ '( fg:erc-color-face0 bg:erc-color-face0
+ fg:erc-color-face1 bg:erc-color-face1))
+ (erc-goodies-tests--assert-face
+ 18 " World" '(erc-spoiler-face)
+ '( fg:erc-color-face0 bg:erc-color-face0
+ fg:erc-color-face1 bg:erc-color-face1 )))
+ (when noninteractive
+ (kill-buffer)))))
+
+(defvar erc-goodies-tests--motd
+ ;; This is from ergo's MOTD
+ '((":- - this is \2bold text\17.")
+ (":- - this is \35italics text\17.")
+ (":- - this is \0034red\3 and \0032blue\3 text.")
+ (":- - this is \0034,12red text with a light blue background\3.")
+ (":- - this is a normal escaped dollarsign: $")
+ (":- ")
+ (":- "
+ "\0031,0 00 \0030,1 01 \0030,2 02 \0030,3 03 "
+ "\0031,4 04 \0030,5 05 \0030,6 06 \0031,7 07 ")
+ (":- "
+ "\0031,8 08 \0031,9 09 \0030,10 10 \0031,11 11 "
+ "\0030,12 12 \0031,13 13 \0031,14 14 \0031,15 15 ")
+ (":- ")
+ (":- "
+ "\0030,16 16 \0030,17 17 \0030,18 18 \0030,19 19 "
+ "\0030,20 20 \0030,21 21 \0030,22 22 \0030,23 23 "
+ "\0030,24 24 \0030,25 25 \0030,26 26 \0030,27 27 ")
+ (":- "
+ "\0030,28 28 \0030,29 29 \0030,30 30 \0030,31 31 "
+ "\0030,32 32 \0030,33 33 \0030,34 34 \0030,35 35 "
+ "\0030,36 36 \0030,37 37 \0030,38 38 \0030,39 39 ")
+ (":- "
+ "\0030,40 40 \0030,41 41 \0030,42 42 \0030,43 43 "
+ "\0030,44 44 \0030,45 45 \0030,46 46 \0030,47 47 "
+ "\0030,48 48 \0030,49 49 \0030,50 50 \0030,51 51 ")
+ (":- "
+ "\0030,52 52 \0030,53 53 \0031,54 54 \0031,55 55 "
+ "\0031,56 56 \0031,57 57 \0031,58 58 \0030,59 59 "
+ "\0030,60 60 \0030,61 61 \0030,62 62 \0030,63 63 ")
+ (":- "
+ "\0030,64 64 \0031,65 65 \0031,66 66 \0031,67 67 "
+ "\0031,68 68 \0031,69 69 \0031,70 70 \0031,71 71 "
+ "\0030,72 72 \0030,73 73 \0030,74 74 \0030,75 75 ")
+ (":- "
+ "\0031,76 76 \0031,77 77 \0031,78 78 \0031,79 79 "
+ "\0031,80 80 \0031,81 81 \0031,82 82 \0031,83 83 "
+ "\0031,84 84 \0031,85 85 \0031,86 86 \0031,87 87 ")
+ (":- "
+ "\0030,88 88 \0030,89 89 \0030,90 90 \0030,91 91 "
+ "\0030,92 92 \0030,93 93 \0030,94 94 \0030,95 95 "
+ "\0031,96 96 \0031,97 97 \0031,98 98 \399,99 99 ")
+ (":- ")))
+
+(ert-deftest erc-controls-highlight--motd ()
+ (should (eq t erc-interpret-controls-p))
+ (let ((erc-insert-modify-hook '(erc-controls-highlight))
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (with-current-buffer (get-buffer-create "#chan")
+ (erc-mode)
+ (setq-local erc-interpret-mirc-color t)
+ (erc--initialize-markers (point) nil)
+
+ (dolist (parts erc-goodies-tests--motd)
+ (erc-display-message nil 'notice (current-buffer) (string-join parts)))
+
+ ;; Spot check
+ (goto-char (point-min))
+ (should (search-forward " 16 " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (erc-goodies-tests--assert-face
+ 0 " 17 " '(fg:erc-color-face0 (:background "#472100")))
+ (erc-goodies-tests--assert-face
+ 4 " 18 " '(fg:erc-color-face0 (:background "#474700"))
+ '((:background "#472100"))))
+
+ (should (search-forward " 71 " nil t))
+ (save-restriction
+ (narrow-to-region (point) (pos-eol))
+ (erc-goodies-tests--assert-face
+ 0 " 72 " '(fg:erc-color-face0 (:background "#5959ff")))
+ (erc-goodies-tests--assert-face
+ 4 " 73 " '(fg:erc-color-face0 (:background "#c459ff"))
+ '((:background "#5959ff"))))
+
+ (goto-char (point-min))
+ (when noninteractive
+ (kill-buffer)))))
+
+
+;; Among other things, this test also asserts that a local module's
+;; minor-mode toggle is allowed to disable its mode variable as
+;; needed.
+
+(ert-deftest erc-keep-place-indicator-mode ()
+ (with-current-buffer (get-buffer-create "*erc-keep-place-indicator-mode*")
+ (erc-mode)
+ (erc--initialize-markers (point) nil)
+ (setq erc-server-process
+ (start-process "sleep" (current-buffer) "sleep" "1"))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (let ((assert-off
+ (lambda ()
+ (should-not erc-keep-place-indicator-mode)
+ (should-not (local-variable-p 'window-configuration-change-hook))
+ (should-not erc--keep-place-indicator-overlay)))
+ (assert-on
+ (lambda ()
+ (should erc--keep-place-indicator-overlay)
+ (should (local-variable-p 'window-configuration-change-hook))
+ (should window-configuration-change-hook)
+ (should erc-keep-place-mode)))
+ ;;
+ erc-insert-pre-hook
+ erc-connect-pre-hook
+ erc-modules)
+
+ (funcall assert-off)
+
+ (ert-info ("Value t")
+ (should (eq erc-keep-place-indicator-buffer-type t))
+ (erc-keep-place-indicator-mode +1)
+ (funcall assert-on)
+ (goto-char (point-min))
+ (should (search-forward "Enabling" nil t))
+ (should (memq 'keep-place erc-modules)))
+
+ (erc-keep-place-indicator-mode -1)
+ (funcall assert-off)
+
+ (ert-info ("Value `target'")
+ (let ((erc-keep-place-indicator-buffer-type 'target))
+ (erc-keep-place-indicator-mode +1)
+ (funcall assert-off)
+ (setq erc--target (erc--target-from-string "#chan"))
+ (erc-keep-place-indicator-mode +1)
+ (funcall assert-on)))
+
+ (erc-keep-place-indicator-mode -1)
+ (funcall assert-off)
+
+ (ert-info ("Value `server'")
+ (let ((erc-keep-place-indicator-buffer-type 'server))
+ (erc-keep-place-indicator-mode +1)
+ (funcall assert-off)
+ (setq erc--target nil)
+ (erc-keep-place-indicator-mode +1)
+ (funcall assert-on)))
+
+ ;; Populate buffer
+ (erc-display-message nil 'notice (current-buffer)
+ "This buffer is for text that is not saved")
+ (erc-display-message nil 'notice (current-buffer)
+ "and for lisp evaluation")
+ (should (search-forward "saved" nil t))
+ (erc-keep-place-move nil)
+ (goto-char erc-input-marker)
+
+ (ert-info ("Indicator survives reconnect")
+ (let ((erc--server-reconnecting (buffer-local-variables)))
+ (cl-letf (((symbol-function 'erc-server-connect) #'ignore))
+ (erc-open "localhost" 6667 "tester" "Tester" 'connect
+ nil nil nil nil nil "tester" nil)))
+ (funcall assert-on)
+ (should (= (point) erc-input-marker))
+ (goto-char (overlay-start erc--keep-place-indicator-overlay))
+ (should (looking-at (rx "*** This buffer is for text")))))
+
+ (when noninteractive
+ (kill-buffer))))
+
+;;; erc-goodies-tests.el ends here
diff --git a/test/lisp/erc/erc-networks-tests.el
b/test/lisp/erc/erc-networks-tests.el
index 96836c29aed..b9d216f217b 100644
--- a/test/lisp/erc/erc-networks-tests.el
+++ b/test/lisp/erc/erc-networks-tests.el
@@ -1475,10 +1475,16 @@
(erc-mode)
(setq erc-network 'FooNet
erc-server-current-nick "tester"
- erc-insert-marker (set-marker (make-marker) (point-max))
+ erc-insert-marker (make-marker)
+ erc-input-marker (make-marker)
erc-server-process (erc-networks-tests--create-live-proc)
erc-networks--id (erc-networks--id-create nil))
- (should-not (erc-networks--rename-server-buffer erc-server-process))
+ (set-process-sentinel erc-server-process #'ignore)
+ (erc-display-prompt nil (point-max))
+ (set-marker erc-insert-marker (pos-bol))
+ (erc-display-message nil 'notice (current-buffer) "notice")
+ (with-silent-modifications
+ (should-not (erc-networks--rename-server-buffer erc-server-process)))
(should (eq erc-active-buffer old-buf))
(should-not (erc-server-process-alive))
(should (string= (buffer-name) "irc.foonet.org"))
diff --git a/test/lisp/erc/erc-scenarios-base-attach.el
b/test/lisp/erc/erc-scenarios-base-attach.el
new file mode 100644
index 00000000000..ccf5d1f9582
--- /dev/null
+++ b/test/lisp/erc/erc-scenarios-base-attach.el
@@ -0,0 +1,191 @@
+;;; erc-scenarios-base-attach.el --- Reattach scenarios -*- lexical-binding: t
-*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; See also: `erc-scenarios-base-channel-buffer-revival'.
+;;
+;; ERC 5.5 silently dropped support for the ancient option
+;; `erc-query-on-unjoined-chan-privmsg' because the tangled logic in
+;; and around the function `erc-auto-query' made it difficult to
+;; divine its purpose.
+;;
+;; Based on the name, it was thought this option likely involved
+;; controlling the creation of query buffers for unsolicited messages
+;; from users with whom you don't share a common channel. However,
+;; additional spelunking has recently revealed that it was instead
+;; meant to service a feature offered by most bouncers that sends
+;; PRIVMSGs directed at a channel you're no longer in and that you
+;; haven't received a(nother) JOIN message for. IOW, this is meant to
+;; support the following sequence of events:
+;;
+;; 1. /detach #chan
+;; 2. kill buffer #chan or reconnect in new Emacs session
+;; 3. /playbuffer #chan
+;;
+;; Note that the above slash commands are bouncer-specific aliases.
+;;
+;; Interested users can find more info by looking at this change set
+;; from the ancient CVS repo:
+;;
+;; Author: Mario Lang <mlang@delysid.org>
+;; AuthorDate: Mon Nov 26 18:33:19 2001 +0000
+;;
+;; * new function erc-BBDB-NICK to handle nickname anotation ...
+;; * Applied antifuchs/mhp patches, the latest on erc-help, unmodified
+;; * New variable: erc-reuse-buffers default to t.
+;; * Modified erc-generate-new-buffer-name to use it. it checks if
+;; server and port are the same, then one can assume thats the same
+;; channel/query target again.
+
+;;; Code:
+
+(require 'ert-x)
+(eval-and-compile
+ (let ((load-path (cons (ert-resource-directory) load-path)))
+ (require 'erc-scenarios-common)))
+
+(ert-deftest erc-scenarios-base-attach--ensure-target-buffer--enabled ()
+ :tags '(:expensive-test)
+ (should erc-ensure-target-buffer-on-privmsg)
+
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/channel-buffer-revival")
+ (dumb-server (erc-d-run "localhost" t 'reattach))
+ (port (process-contact dumb-server :service))
+ (erc-server-flood-penalty 0.1)
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :password "tester@vanilla/foonet:changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))))
+
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "foonet"))
+ (erc-cmd-MSG "*status playbuffer #chan"))
+
+ (ert-info ("Playback appears in buffer #chan")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 10 "Buffer Playback...")
+ (funcall expect 10 "Was I a child")
+ (funcall expect 10 "Thou counterfeit'st most lively")
+ (funcall expect 10 "Playback Complete")))
+
+ (with-current-buffer "foonet"
+ (erc-cmd-MSG "*status attach #chan"))
+
+ (ert-info ("Live output from #chan after more playback")
+ (with-current-buffer "#chan"
+ (funcall expect 10 "Buffer Playback...")
+ (funcall expect 10 "With what it loathes")
+ (funcall expect 10 "Not by his breath")
+ (funcall expect 10 "Playback Complete")
+ (funcall expect 10 "Ay, and the captain")
+ (erc-scenarios-common-say "bob: hi")
+ (funcall expect 10 "Pawn me to this")))))
+
+(ert-deftest erc-scenarios-base-attach--ensure-target-buffer--disabled ()
+ :tags '(:expensive-test)
+ (should erc-ensure-target-buffer-on-privmsg)
+
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/channel-buffer-revival")
+ (dumb-server (erc-d-run "localhost" t 'reattach))
+ (port (process-contact dumb-server :service))
+ (erc-server-flood-penalty 0.1)
+ (erc-ensure-target-buffer-on-privmsg nil) ; off
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :password "tester@vanilla/foonet:changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))))
+
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "foonet"))
+ (erc-cmd-MSG "*status playbuffer #chan")
+ (ert-info ("Playback appears in buffer server buffer")
+ (erc-d-t-ensure-for -1 (not (get-buffer "#chan")))
+ (funcall expect 10 "Buffer Playback...")
+ (funcall expect 10 "Was I a child")
+ (funcall expect 10 "Thou counterfeit'st most lively")
+ (funcall expect 10 "Playback Complete"))
+ (should-not (get-buffer "#chan"))
+ (erc-cmd-MSG "*status attach #chan"))
+
+ (ert-info ("Buffer #chan joined")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 10 "Buffer Playback...")
+ (funcall expect 10 "With what it loathes")
+ (funcall expect 10 "Not by his breath")
+ (funcall expect 10 "Playback Complete")
+ (funcall expect 10 "Ay, and the captain")
+ (erc-scenarios-common-say "bob: hi")
+ (funcall expect 10 "Pawn me to this")))))
+
+
+;; We omit the `enabled' case for queries because it's the default for
+;; this option and already covered many times over by other tests in
+;; this directory.
+
+(ert-deftest erc-scenarios-base-attach--ensure-target-buffer--disabled-query ()
+ :tags '(:expensive-test)
+ (should erc-ensure-target-buffer-on-privmsg)
+
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/assoc/queries")
+ (dumb-server (erc-d-run "localhost" t 'non-erc))
+ (port (process-contact dumb-server :service))
+ (expect (erc-d-t-make-expecter))
+ (erc-ensure-target-buffer-on-privmsg nil)
+ (erc-server-flood-penalty 0.1))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :user "tester"
+ :full-name "tester")
+ (erc-scenarios-common-assert-initial-buf-name nil port)
+ (erc-d-t-wait-for 5 (eq erc-network 'foonet))
+ (funcall expect 15 "debug mode")))
+
+ (ert-info ("User dummy's greeting appears in server buffer")
+ (erc-d-t-wait-for -1 (get-buffer "dummy"))
+ (with-current-buffer "foonet"
+ (funcall expect 5 "hi")
+
+ (ert-info ("Option being nil doesn't queries we create")
+ (with-current-buffer (erc-cmd-QUERY "nitwit")
+ (should (equal (buffer-name) "nitwit"))
+ (erc-scenarios-common-say "hola")
+ (funcall expect 5 "ciao")))
+
+ (erc-scenarios-common-say "howdy")
+ (funcall expect 5 "no target")
+ (erc-cmd-MSG "dummy howdy")
+ (funcall expect 5 "bye")
+ (erc-cmd-QUIT "")))))
+
+;;; erc-scenarios-base-attach.el ends here
diff --git a/test/lisp/erc/erc-scenarios-base-auto-recon.el
b/test/lisp/erc/erc-scenarios-base-auto-recon.el
new file mode 100644
index 00000000000..40e2c23408b
--- /dev/null
+++ b/test/lisp/erc/erc-scenarios-base-auto-recon.el
@@ -0,0 +1,141 @@
+;;; erc-scenarios-base-auto-recon.el --- auto-recon scenarios -*-
lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert-x)
+(eval-and-compile
+ (let ((load-path (cons (ert-resource-directory) load-path)))
+ (require 'erc-scenarios-common)))
+
+(defun erc-scenarios-base-auto-recon--get-unused-port ()
+ (let ((server (make-network-process :name "*erc-scenarios-base-auto-recon*"
+ :host "localhost"
+ :service t
+ :server t)))
+ (delete-process server)
+ (process-contact server :service)))
+
+;; This demos one possible flavor of intermittent service.
+;; It may end up needing to be marked :unstable.
+
+(ert-deftest erc-scenarios-base-auto-recon-unavailable ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-server-flood-penalty 0.1)
+ (port (erc-scenarios-base-auto-recon--get-unused-port))
+ (erc--server-reconnect-timeout-scale-function (lambda (_) 1))
+ (erc-server-auto-reconnect t)
+ (erc-server-reconnect-function #'erc-server-delayed-check-reconnect)
+ (expect (erc-d-t-make-expecter))
+ (erc-scenarios-common-dialog "base/reconnect")
+ (dumb-server nil))
+
+ (ert-info ("Dialing fails: nobody home")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :full-name "tester")
+ (erc-d-t-wait-for 10 (not (erc-server-process-alive)))
+ (erc-d-t-wait-for 10 erc--server-reconnect-timer)
+ (funcall expect 10 "Opening connection")
+ (funcall expect 10 "failed")
+
+ (ert-info ("Reconnect function freezes attempts at 1")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))
+ (funcall expect 10 "nobody home")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))
+ (funcall expect 10 "nobody home"))))
+
+ (ert-info ("Service appears")
+ (setq dumb-server (erc-d-run "localhost" port
+ 'just-eof 'unexpected-disconnect))
+ (with-current-buffer (format "127.0.0.1:%d" port)
+ (funcall expect 10 "server is in debug mode")
+ (should (equal (buffer-name) "FooNet"))))
+
+ (ert-info ("Service interrupted, reconnect starts again")
+ (with-current-buffer "FooNet"
+ (funcall expect 10 "failed")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))))
+
+ (ert-info ("Service restored")
+ (delete-process dumb-server)
+ (setq dumb-server (erc-d-run "localhost" port
+ 'just-eof 'unexpected-disconnect))
+ (with-current-buffer "FooNet"
+ (funcall expect 10 "server is in debug mode")))
+
+ (ert-info ("Service interrupted a third time, reconnect starts yet again")
+ (with-current-buffer "FooNet"
+ (funcall expect 10 "failed")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))
+ (erc-cmd-RECONNECT "cancel")
+ (funcall expect 10 "canceled")))))
+
+;; In this test, a listener accepts but doesn't respond to any messages.
+
+(ert-deftest erc-scenarios-base-auto-recon-no-proto ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-server-flood-penalty 0.1)
+ (erc-scenarios-common-dialog "base/reconnect")
+ (erc-d-auto-pong nil)
+ (dumb-server (erc-d-run "localhost" t 'unexpected-disconnect))
+ (port (process-contact dumb-server :service))
+ (erc--server-reconnect-timeout-scale-function (lambda (_) 1))
+ (erc--server-reconnect-timeout-check 0.5)
+ (erc-server-auto-reconnect t)
+ (erc-server-reconnect-function #'erc-server-delayed-check-reconnect)
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Session succeeds but cut short")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :full-name "tester")
+ (funcall expect 10 "server is in debug mode")
+ (should (equal (buffer-name) "FooNet"))
+ (erc-d-t-wait-for 10 erc--server-reconnect-timer)
+ (delete-process dumb-server)
+ (funcall expect 10 "failed")
+
+ (ert-info ("Reconnect function freezes attempts at 1")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))
+ (funcall expect 10 "nobody home")
+ (funcall expect 10 "timed out while dialing")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))
+ (funcall expect 10 "nobody home"))))
+
+ (ert-info ("Service restored")
+ (setq dumb-server (erc-d-run "localhost" port
+ 'just-ping
+ 'ping-pong
+ 'unexpected-disconnect))
+ (with-current-buffer "FooNet"
+ (funcall expect 30 "server is in debug mode")))
+
+ (ert-info ("Service interrupted again, reconnect starts again")
+ (with-current-buffer "FooNet"
+ (funcall expect 10 "failed")
+ (funcall expect 10 '(: "reconnecting" (+ nonl) "attempt 1/2"))
+ (erc-cmd-RECONNECT "cancel")
+ (funcall expect 10 "canceled")))))
+
+;;; erc-scenarios-base-auto-recon.el ends here
diff --git a/test/lisp/erc/erc-scenarios-base-buffer-display.el
b/test/lisp/erc/erc-scenarios-base-buffer-display.el
new file mode 100644
index 00000000000..548ad00e2d9
--- /dev/null
+++ b/test/lisp/erc/erc-scenarios-base-buffer-display.el
@@ -0,0 +1,235 @@
+;;; erc-scenarios-base-buffer-display.el --- Buffer display scenarios -*-
lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert-x)
+(eval-and-compile
+ (let ((load-path (cons (ert-resource-directory) load-path)))
+ (require 'erc-scenarios-common)))
+
+(eval-when-compile (require 'erc-join))
+
+;; These first couple `erc-reconnect-display' tests used to live in
+;; erc-scenarios-base-reconnect but have since been renamed.
+
+(defun erc-scenarios-base-buffer-display--reconnect-common
+ (assert-server assert-chan assert-rest)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/reconnect")
+ (dumb-server (erc-d-run "localhost" t 'options 'options-again))
+ (port (process-contact dumb-server :service))
+ (expect (erc-d-t-make-expecter))
+ (erc-server-flood-penalty 0.1)
+ (erc-server-auto-reconnect t)
+ erc-autojoin-channels-alist)
+
+ (should (memq 'autojoin erc-modules))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :password "changeme"
+ :full-name "tester")
+ (funcall assert-server expect)
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
+ (funcall expect 10 "debug mode")))
+
+ (ert-info ("Wait for some output in channels")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall assert-chan expect)
+ (funcall expect 10 "welcome")))
+
+ (ert-info ("Server buffer shows connection failed")
+ (with-current-buffer "FooNet"
+ (funcall expect 10 "Connection failed! Re-establishing")))
+
+ (should (equal erc-autojoin-channels-alist '((FooNet "#chan"))))
+ (delete-other-windows)
+ (pop-to-buffer-same-window "*Messages*")
+
+ (ert-info ("Wait for auto reconnect")
+ (with-current-buffer "FooNet" (funcall expect 10 "still in debug mode")))
+
+ (funcall assert-rest expect)
+
+ (ert-info ("Wait for activity to recommence in both channels")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 10 "forest of Arden"))
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#spam"))
+ (funcall expect 10 "her elves come here anon")))))
+
+(ert-deftest erc-scenarios-base-buffer-display--defwin-recbury-intbuf ()
+ :tags '(:expensive-test)
+ (should (eq erc-buffer-display 'bury))
+ (should (eq erc-interactive-display 'window))
+ (should-not erc-reconnect-display)
+
+ (let ((erc-buffer-display 'window)
+ (erc-interactive-display 'buffer)
+ (erc-reconnect-display 'bury))
+
+ (erc-scenarios-base-buffer-display--reconnect-common
+
+ (lambda (_)
+ (should (eq (window-buffer) (current-buffer)))
+ (should-not (frame-root-window-p (selected-window))))
+
+ (lambda (_)
+ (should (eq (window-buffer) (current-buffer)))
+ (should (equal (get-buffer "FooNet") (window-buffer (next-window)))))
+
+ (lambda (_)
+ (with-current-buffer "FooNet"
+ (should (eq (window-buffer) (messages-buffer)))
+ (should (frame-root-window-p (selected-window))))
+
+ ;; A manual /JOIN command tells ERC we're done auto-reconnecting
+ (with-current-buffer "FooNet" (erc-scenarios-common-say "/JOIN #spam"))
+
+ (ert-info ("#spam ignores `erc-reconnect-display'")
+ ;; Uses `erc-interactive-display' instead.
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#spam"))
+ (should (eq (window-buffer) (get-buffer "#spam")))
+ ;; Option `buffer' replaces entire window (no split)
+ (erc-d-t-wait-for 5 (frame-root-window-p (selected-window)))))))))
+
+(ert-deftest erc-scenarios-base-buffer-display--defwino-recbury-intbuf ()
+ :tags '(:expensive-test)
+ (should (eq erc-buffer-display 'bury))
+ (should (eq erc-interactive-display 'window))
+ (should-not erc-reconnect-display)
+
+ (let ((erc-buffer-display 'window-noselect)
+ (erc-reconnect-display 'bury)
+ (erc-interactive-display 'buffer))
+ (erc-scenarios-base-buffer-display--reconnect-common
+
+ (lambda (_)
+ ;; Selected window shows some non-ERC buffer. New server
+ ;; buffer appears in another window (other side of split).
+ (should-not (frame-root-window-p (selected-window)))
+ (should-not (eq (window-buffer) (current-buffer)))
+ (with-current-buffer (window-buffer)
+ (should-not (derived-mode-p 'erc-mode)))
+ (should (eq (current-buffer) (window-buffer (next-window)))))
+
+ (lambda (_)
+ (should-not (frame-root-window-p (selected-window)))
+ ;; Current split likely shows scratch.
+ (with-current-buffer (window-buffer)
+ (should-not (derived-mode-p 'erc-mode)))
+ (should (eq (current-buffer) (window-buffer (next-window)))))
+
+ (lambda (_)
+ (with-current-buffer "FooNet"
+ (should (eq (window-buffer) (messages-buffer)))
+ (should (frame-root-window-p (selected-window))))
+
+ ;; A non-interactive JOIN command doesn't signal that we're
+ ;; done auto-reconnecting, and `erc-interactive-display' is
+ ;; ignored, so `erc-buffer-display' is again in charge (here,
+ ;; that means `window-noselect').
+ (ert-info ("Join chan noninteractively and open a /QUERY")
+ (with-current-buffer "FooNet"
+ (erc-cmd-JOIN "#spam")
+ ;; However this will reset the option.
+ (erc-scenarios-common-say "/QUERY bob")
+ (should (eq (window-buffer) (get-buffer "bob")))
+ (should (frame-root-window-p (selected-window)))))
+
+ (ert-info ("Newly joined chan ignores `erc-reconnect-display'")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#spam"))
+ (should (eq (window-buffer) (get-buffer "bob")))
+ (should-not (frame-root-window-p (selected-window)))
+ (should (eq (current-buffer) (window-buffer (next-window))))))))))
+
+(ert-deftest erc-scenarios-base-buffer-display--count-reset-timeout ()
+ :tags '(:expensive-test)
+ (should (eq erc-buffer-display 'bury))
+ (should (eq erc-interactive-display 'window))
+ (should (eq erc-reconnect-display-timeout 10))
+ (should-not erc-reconnect-display)
+
+ (let ((erc-buffer-display 'window-noselect)
+ (erc-reconnect-display 'bury)
+ (erc-interactive-display 'buffer)
+ (erc-reconnect-display-timeout 0.5))
+ (erc-scenarios-base-buffer-display--reconnect-common
+ #'ignore #'ignore ; These two are identical to the previous test.
+
+ (lambda (_)
+ (with-current-buffer "FooNet"
+ (should erc--server-reconnect-display-timer)
+ (should (eq (window-buffer) (messages-buffer)))
+ (should (frame-root-window-p (selected-window))))
+
+ ;; A non-interactive JOIN command doesn't signal that we're
+ ;; done auto-reconnecting
+ (ert-info ("Join chan noninteractively")
+ (with-current-buffer "FooNet"
+ (erc-d-t-wait-for 1 (null erc--server-reconnect-display-timer))
+ (erc-cmd-JOIN "#spam")))
+
+ (ert-info ("Newly joined chan ignores `erc-reconnect-display'")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#spam"))
+ (should (eq (window-buffer) (messages-buffer)))
+ ;; If `erc-reconnect-display-timeout' were left alone, this
+ ;; would be (frame-root-window-p #<window 1 on *scratch*>).
+ (should-not (frame-root-window-p (selected-window)))
+ (should (eq (current-buffer) (window-buffer (next-window))))))))))
+
+;; This shows that the option `erc-interactive-display' overrides
+;; `erc-join-buffer' during cold opens and interactive /JOINs.
+
+(ert-deftest erc-scenarios-base-buffer-display--interactive-default ()
+ :tags '(:expensive-test)
+ (should (eq erc-join-buffer 'bury))
+ (should (eq erc-interactive-display 'window))
+
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "join/legacy")
+ (dumb-server (erc-d-run "localhost" t 'foonet))
+ (port (process-contact dumb-server :service))
+ (url (format "tester:changeme@127.0.0.1:%d\r\r" port))
+ (expect (erc-d-t-make-expecter))
+ (erc-server-flood-penalty 0.1)
+ (erc-server-auto-reconnect t)
+ (erc-user-full-name "tester"))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (let (inhibit-interaction)
+ (ert-simulate-keys url
+ (call-interactively #'erc)))
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
+
+ (erc-d-t-wait-for 10 "Server buffer shown"
+ (eq (window-buffer) (current-buffer)))
+ (funcall expect 10 "debug mode")
+ (erc-scenarios-common-say "/JOIN #chan")))
+
+ (ert-info ("Wait for output in #chan")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 10 "welcome")
+ (erc-d-t-ensure-for 3 "Channel #chan shown"
+ (eq (window-buffer) (current-buffer)))
+ (funcall expect 10 "be prosperous")))))
+
+;;; erc-scenarios-base-buffer-display.el ends here
diff --git a/test/lisp/erc/erc-scenarios-base-local-module-modes.el
b/test/lisp/erc/erc-scenarios-base-local-module-modes.el
new file mode 100644
index 00000000000..7b91e28dc83
--- /dev/null
+++ b/test/lisp/erc/erc-scenarios-base-local-module-modes.el
@@ -0,0 +1,211 @@
+;;; erc-scenarios-base-local-module-modes.el --- More local-mod ERC tests -*-
lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; A local module doubles as a minor mode whose mode variable and
+;; associated local data can withstand service disruptions.
+;; Unfortunately, the current implementation is too unwieldy to be
+;; made public because it doesn't perform any of the boiler plate
+;; needed to save and restore buffer-local and "network-local" copies
+;; of user options. Ultimately, a user-friendly framework must fill
+;; this void if third-party local modules are ever to become
+;; practical.
+;;
+;; The following tests all use `sasl' because, as of ERC 5.5, it's the
+;; only local module.
+
+;;; Code:
+
+(require 'ert-x)
+(eval-and-compile
+ (let ((load-path (cons (ert-resource-directory) load-path)))
+ (require 'erc-scenarios-common)))
+
+(require 'erc-sasl)
+
+;; After quitting a session for which `sasl' is enabled, you
+;; disconnect and toggle `erc-sasl-mode' off. You then reconnect
+;; using an alternate nickname. You again disconnect and reconnect,
+;; this time immediately, and the mode stays disabled. Finally, you
+;; once again disconnect, toggle the mode back on, and reconnect. You
+;; are authenticated successfully, just like in the initial session.
+;;
+;; This is meant to show that a user's local mode settings persist
+;; between sessions. It also happens to show (in round four, below)
+;; that a server renicking a user on 001 after a 903 is handled just
+;; like a user-initiated renick, although this is not the main thrust.
+
+(ert-deftest erc-scenarios-base-local-module-modes--reconnect ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/local-modules")
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'first 'second 'third 'fourth))
+ (port (process-contact dumb-server :service))
+ (erc-modules (cons 'sasl erc-modules))
+ (expect (erc-d-t-make-expecter))
+ (server-buffer-name (format "127.0.0.1:%d" port)))
+
+ (ert-info ("Round one, initial authentication succeeds as expected")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :user "tester"
+ :password "changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) server-buffer-name))
+ (funcall expect 10 "You are now logged in as tester"))
+
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "foonet"))
+ (funcall expect 10 "This server is in debug mode")
+ (erc-cmd-JOIN "#chan")
+
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 20 "She is Lavinia, therefore must"))
+
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished")))
+
+ (ert-info ("Round two, nick rejected, alternate granted")
+ (with-current-buffer "foonet"
+
+ (ert-info ("Toggle mode off, reconnect")
+ (erc-sasl-mode -1)
+ (erc-cmd-RECONNECT))
+
+ (funcall expect 10 "User modes for tester`")
+ (should-not (cdr (erc-scenarios-common-buflist "foonet")))
+ (should (equal (buffer-name) "foonet"))
+ (should-not (cdr (erc-scenarios-common-buflist "#chan")))
+
+ (with-current-buffer "#chan"
+ (funcall expect 10 "Some enigma, some riddle"))
+
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished")))
+
+ (ert-info ("Round three, send alternate nick initially")
+ (with-current-buffer "foonet"
+
+ (ert-info ("Keep mode off, reconnect")
+ (should-not erc-sasl-mode)
+ (should (local-variable-p 'erc-sasl-mode))
+ (erc-cmd-RECONNECT))
+
+ (funcall expect 10 "User modes for tester`")
+ (should-not (cdr (erc-scenarios-common-buflist "foonet")))
+ (should (equal (buffer-name) "foonet"))
+ (should-not (cdr (erc-scenarios-common-buflist "#chan")))
+
+ (with-current-buffer "#chan"
+ (funcall expect 10 "Let our reciprocal vows be remembered."))
+
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished")))
+
+ (ert-info ("Round four, authenticated successfully again")
+ (with-current-buffer "foonet"
+
+ (ert-info ("Toggle mode on, reconnect")
+ (should-not erc-sasl-mode)
+ (should (local-variable-p 'erc-sasl-mode))
+ (erc-sasl-mode +1)
+ (erc-cmd-RECONNECT))
+
+ (funcall expect 10 "User modes for tester")
+ (should-not (cdr (erc-scenarios-common-buflist "foonet")))
+ (should (equal (buffer-name) "foonet"))
+ (should-not (cdr (erc-scenarios-common-buflist "#chan")))
+
+ (with-current-buffer "#chan"
+ (funcall expect 10 "Well met; good morrow, Titus and Hortensius."))
+
+ (erc-cmd-QUIT "")))))
+
+;; In contrast to the mode-persistence test above, this one
+;; demonstrates that a user reinvoking an entry point declares their
+;; intention to reset local-module state for the server buffer.
+;; Whether a local-module's state variable is also reset in target
+;; buffers up to the module. That is, by default, they're left alone.
+
+(ert-deftest erc-scenarios-base-local-module-modes--entrypoint ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/local-modules")
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'first 'first))
+ (port (process-contact dumb-server :service))
+ (erc-modules (cons 'sasl erc-modules))
+ (expect (erc-d-t-make-expecter))
+ (server-buffer-name (format "127.0.0.1:%d" port)))
+
+ (ert-info ("Round one, initial authentication succeeds as expected")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :user "tester"
+ :password "changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) server-buffer-name))
+ (funcall expect 10 "You are now logged in as tester"))
+
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "foonet"))
+ (funcall expect 10 "This server is in debug mode")
+ (erc-cmd-JOIN "#chan")
+
+ (ert-info ("Toggle local-module off in target buffer")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 20 "She is Lavinia, therefore must")
+ (erc-sasl-mode -1)))
+
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished")
+
+ (ert-info ("Toggle mode off")
+ (erc-sasl-mode -1)
+ (should (local-variable-p 'erc-sasl-mode)))))
+
+ (ert-info ("Reconnecting via entry point discards `erc-sasl-mode' value.")
+ ;; If you were to /RECONNECT here, no PASS changeme would be
+ ;; sent instead of CAP SASL, resulting in a failure.
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :user "tester"
+ :password "changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) server-buffer-name))
+ (funcall expect 10 "You are now logged in as tester")
+
+ (erc-d-t-wait-for 10 (equal (buffer-name) "foonet"))
+ (funcall expect 10 "User modes for tester")
+ (should erc-sasl-mode)) ; obviously
+
+ ;; No other foonet buffer exists, e.g., foonet<2>
+ (should-not (cdr (erc-scenarios-common-buflist "foonet")))
+
+ (ert-info ("Target buffer retains local-module state")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 20 "She is Lavinia, therefore must")
+ (should-not erc-sasl-mode)
+ (should (local-variable-p 'erc-sasl-mode))
+ (erc-cmd-QUIT ""))))))
+
+;;; erc-scenarios-base-local-module-modes.el ends here
diff --git a/test/lisp/erc/erc-scenarios-base-local-modules.el
b/test/lisp/erc/erc-scenarios-base-local-modules.el
index 1318207a3bf..d6dbd87c8cc 100644
--- a/test/lisp/erc/erc-scenarios-base-local-modules.el
+++ b/test/lisp/erc/erc-scenarios-base-local-modules.el
@@ -82,105 +82,6 @@
(erc-cmd-QUIT "")
(funcall expect 10 "finished")))))
-;; After quitting a session for which `sasl' is enabled, you
-;; disconnect and toggle `erc-sasl-mode' off. You then reconnect
-;; using an alternate nickname. You again disconnect and reconnect,
-;; this time immediately, and the mode stays disabled. Finally, you
-;; once again disconnect, toggle the mode back on, and reconnect. You
-;; are authenticated successfully, just like in the initial session.
-;;
-;; This is meant to show that a user's local mode settings persist
-;; between sessions. It also happens to show (in round four, below)
-;; that a server renicking a user on 001 after a 903 is handled just
-;; like a user-initiated renick, although this is not the main thrust.
-
-(ert-deftest erc-scenarios-base-local-modules--mode-persistence ()
- :tags '(:expensive-test)
- (erc-scenarios-common-with-cleanup
- ((erc-scenarios-common-dialog "base/local-modules")
- (erc-server-flood-penalty 0.1)
- (dumb-server (erc-d-run "localhost" t 'first 'second 'third 'fourth))
- (port (process-contact dumb-server :service))
- (erc-modules (cons 'sasl erc-modules))
- (expect (erc-d-t-make-expecter))
- (server-buffer-name (format "127.0.0.1:%d" port)))
-
- (ert-info ("Round one, initial authentication succeeds as expected")
- (with-current-buffer (erc :server "127.0.0.1"
- :port port
- :nick "tester"
- :user "tester"
- :password "changeme"
- :full-name "tester")
- (should (string= (buffer-name) server-buffer-name))
- (funcall expect 10 "You are now logged in as tester"))
-
- (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "foonet"))
- (funcall expect 10 "This server is in debug mode")
- (erc-cmd-JOIN "#chan")
-
- (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
- (funcall expect 20 "She is Lavinia, therefore must"))
-
- (erc-cmd-QUIT "")
- (funcall expect 10 "finished")))
-
- (ert-info ("Round two, nick rejected, alternate granted")
- (with-current-buffer "foonet"
-
- (ert-info ("Toggle mode off, reconnect")
- (erc-sasl-mode -1)
- (erc-cmd-RECONNECT))
-
- (funcall expect 10 "User modes for tester`")
- (should-not (cdr (erc-scenarios-common-buflist "foonet")))
- (should (equal (buffer-name) "foonet"))
- (should-not (cdr (erc-scenarios-common-buflist "#chan")))
-
- (with-current-buffer "#chan"
- (funcall expect 10 "Some enigma, some riddle"))
-
- (erc-cmd-QUIT "")
- (funcall expect 10 "finished")))
-
- (ert-info ("Round three, send alternate nick initially")
- (with-current-buffer "foonet"
-
- (ert-info ("Keep mode off, reconnect")
- (should-not erc-sasl-mode)
- (should (local-variable-p 'erc-sasl-mode))
- (erc-cmd-RECONNECT))
-
- (funcall expect 10 "User modes for tester`")
- (should-not (cdr (erc-scenarios-common-buflist "foonet")))
- (should (equal (buffer-name) "foonet"))
- (should-not (cdr (erc-scenarios-common-buflist "#chan")))
-
- (with-current-buffer "#chan"
- (funcall expect 10 "Let our reciprocal vows be remembered."))
-
- (erc-cmd-QUIT "")
- (funcall expect 10 "finished")))
-
- (ert-info ("Round four, authenticated successfully again")
- (with-current-buffer "foonet"
-
- (ert-info ("Toggle mode on, reconnect")
- (should-not erc-sasl-mode)
- (should (local-variable-p 'erc-sasl-mode))
- (erc-sasl-mode +1)
- (erc-cmd-RECONNECT))
-
- (funcall expect 10 "User modes for tester")
- (should-not (cdr (erc-scenarios-common-buflist "foonet")))
- (should (equal (buffer-name) "foonet"))
- (should-not (cdr (erc-scenarios-common-buflist "#chan")))
-
- (with-current-buffer "#chan"
- (funcall expect 10 "Well met; good morrow, Titus and Hortensius."))
-
- (erc-cmd-QUIT "")))))
-
;; For local modules, the twin toggle commands `erc-FOO-enable' and
;; `erc-FOO-disable' affect all buffers of a connection, whereas
;; `erc-FOO-mode' continues to operate only on the current buffer.
diff --git a/test/lisp/erc/erc-scenarios-base-misc-regressions.el
b/test/lisp/erc/erc-scenarios-base-misc-regressions.el
index 16b2cb355d1..c1915d088a0 100644
--- a/test/lisp/erc/erc-scenarios-base-misc-regressions.el
+++ b/test/lisp/erc/erc-scenarios-base-misc-regressions.el
@@ -124,4 +124,48 @@ Originally from scenario rebuffed/gapless as explained in
Bug#48598:
(with-current-buffer (erc-d-t-wait-for 5 (get-buffer "#chan"))
(erc-d-t-search-for 10 "and be prosperous")))))
+;; This defends against a partial regression in which an /MOTD caused
+;; 376 and 422 handlers in erc-networks to run.
+
+(ert-deftest erc-cmd-MOTD ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/commands")
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'motd))
+ (port (process-contact dumb-server :service))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to server")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :full-name "tester")
+ (funcall expect 10 "This is the default Ergo MOTD")
+ (funcall expect 10 "debug mode")))
+
+ (ert-info ("Send plain MOTD")
+ (with-current-buffer "foonet"
+ (erc-cmd-MOTD)
+ (funcall expect -0.2 "Unexpected state detected")
+ (funcall expect 10 "This is the default Ergo MOTD")))
+
+ (ert-info ("Send MOTD with known target")
+ (with-current-buffer "foonet"
+ (erc-scenarios-common-say "/MOTD irc1.foonet.org")
+ (funcall expect -0.2 "Unexpected state detected")
+ (funcall expect 10 "This is the default Ergo MOTD")))
+
+ (ert-info ("Send MOTD with erroneous target")
+ (with-current-buffer "foonet"
+ (erc-scenarios-common-say "/MOTD fake.foonet.org")
+ (funcall expect -0.2 "Unexpected state detected")
+ (funcall expect 10 "No such server")
+ ;; Message may show up before the handler runs.
+ (erc-d-t-wait-for 10
+ (not (local-variable-p 'erc-server-402-functions)))
+ (should-not (local-variable-p 'erc-server-376-functions))
+ (should-not (local-variable-p 'erc-server-422-functions))
+ (erc-cmd-QUIT "")))))
+
;;; erc-scenarios-base-misc-regressions.el ends here
diff --git a/test/lisp/erc/erc-scenarios-base-reconnect.el
b/test/lisp/erc/erc-scenarios-base-reconnect.el
index 5b4dc549042..7bd16d1ed14 100644
--- a/test/lisp/erc/erc-scenarios-base-reconnect.el
+++ b/test/lisp/erc/erc-scenarios-base-reconnect.el
@@ -65,95 +65,6 @@
(should (equal (list (get-buffer (format "127.0.0.1:%d" port)))
(erc-scenarios-common-buflist "127.0.0.1"))))))
-(defun erc-scenarios-common--base-reconnect-options (test)
- (erc-scenarios-common-with-cleanup
- ((erc-scenarios-common-dialog "base/reconnect")
- (dumb-server (erc-d-run "localhost" t 'options 'options-again))
- (port (process-contact dumb-server :service))
- (expect (erc-d-t-make-expecter))
- (erc-server-flood-penalty 0.1)
- (erc-server-auto-reconnect t)
- erc-autojoin-channels-alist
- erc-server-buffer)
-
- (should (memq 'autojoin erc-modules))
-
- (ert-info ("Connect to foonet")
- (setq erc-server-buffer (erc :server "127.0.0.1"
- :port port
- :nick "tester"
- :password "changeme"
- :full-name "tester"))
- (with-current-buffer erc-server-buffer
- (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
- (funcall expect 10 "debug mode")))
-
- (ert-info ("Wait for some output in channels")
- (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
- (funcall expect 10 "welcome")))
-
- (ert-info ("Server buffer shows connection failed")
- (with-current-buffer erc-server-buffer
- (funcall expect 10 "Connection failed! Re-establishing")))
-
- (should (equal erc-autojoin-channels-alist '((FooNet "#chan"))))
-
- (funcall test)
-
- ;; A manual /JOIN command tells ERC we're done auto-reconnecting
- (with-current-buffer "FooNet" (erc-cmd-JOIN "#spam"))
-
- (erc-d-t-ensure-for 1 "Newly joined chan ignores `erc-reconnect-display'"
- (not (eq (window-buffer) (get-buffer "#spam"))))
-
- (ert-info ("Wait for auto reconnect")
- (with-current-buffer erc-server-buffer
- (funcall expect 10 "still in debug mode")))
-
- (ert-info ("Wait for activity to recommence in channels")
- (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
- (funcall expect 10 "forest of Arden"))
- (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#spam"))
- (funcall expect 10 "her elves come here anon")))))
-
-(ert-deftest erc-scenarios-base-reconnect-options--buffer ()
- :tags '(:expensive-test)
- (should (eq erc-join-buffer 'bury))
- (should-not erc-reconnect-display)
-
- ;; FooNet (the server buffer) is not switched to because it's
- ;; already current (but not shown) when `erc-open' is called. See
- ;; related conditional guard towards the end of that function.
-
- (let ((erc-reconnect-display 'buffer))
- (erc-scenarios-common--base-reconnect-options
- (lambda ()
- (pop-to-buffer-same-window "*Messages*")
-
- (erc-d-t-ensure-for 1 "Server buffer not shown"
- (not (eq (window-buffer) (get-buffer "FooNet"))))
-
- (erc-d-t-wait-for 5 "Channel #chan shown when autojoined"
- (eq (window-buffer) (get-buffer "#chan")))))))
-
-(ert-deftest erc-scenarios-base-reconnect-options--default ()
- :tags '(:expensive-test)
- (should (eq erc-join-buffer 'bury))
- (should-not erc-reconnect-display)
-
- (erc-scenarios-common--base-reconnect-options
-
- (lambda ()
- (pop-to-buffer-same-window "*Messages*")
-
- (erc-d-t-ensure-for 1 "Server buffer not shown"
- (not (eq (window-buffer) (get-buffer "FooNet"))))
-
- (erc-d-t-ensure-for 3 "Channel #chan not shown"
- (not (eq (window-buffer) (get-buffer "#chan"))))
-
- (eq (window-buffer) (messages-buffer)))))
-
;; Upon reconnecting, playback for channel and target buffers is
;; routed correctly. Autojoin is irrelevant here, but for the
;; skeptical, see `erc-scenarios-common--join-network-id', which
diff --git a/test/lisp/erc/erc-scenarios-base-renick.el
b/test/lisp/erc/erc-scenarios-base-renick.el
index f1723200533..f8350676fb7 100644
--- a/test/lisp/erc/erc-scenarios-base-renick.el
+++ b/test/lisp/erc/erc-scenarios-base-renick.el
@@ -303,4 +303,47 @@
(should-not (search-forward "now known as frenemy" nil t))
(erc-d-t-search-for 25 "I have lost"))))
+;; The server rejects your nick during registration, so ERC acquires a
+;; placeholder and successfully renicks once the connection is up.
+;; See also `erc-scenarios-base-renick-self-auto'.
+
+(ert-deftest erc-scenarios-base-renick-auto-regain ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-server-flood-penalty 0.1)
+ (erc-scenarios-common-dialog "base/renick/regain")
+ (dumb-server (erc-d-run "localhost" t 'normal 'normal-again))
+ (port (process-contact dumb-server :service))
+ (erc-server-auto-reconnect t)
+ (erc-modules (cons 'sasl erc-modules))
+ (erc-nickname-in-use-functions '(erc-regain-nick-on-connect))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Session succeeds but cut short")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :user "tester"
+ :password "changeme"
+ :full-name "tester")
+ (funcall expect 10 "Last login from")
+ (erc-cmd-JOIN "#test")))
+
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#test"))
+ (funcall expect 10 "was created on"))
+
+ (ert-info ("Service restored")
+ (with-current-buffer "Libera.Chat"
+ (erc-d-t-wait-for 10 erc--server-reconnect-timer)
+ (funcall expect 10 "Connection failed!")
+ (funcall expect 10 "already in use")
+ (funcall expect 10 "changed mode for tester`")
+ (funcall expect 10 "Last login from")
+ (funcall expect 10 "Your new nickname is tester")))
+
+ (with-current-buffer (get-buffer "#test")
+ (funcall expect 10 "tester ")
+ (funcall expect 10 "was created on"))))
+
+
;;; erc-scenarios-base-renick.el ends here
diff --git a/test/lisp/erc/erc-scenarios-base-split-line.el
b/test/lisp/erc/erc-scenarios-base-split-line.el
new file mode 100644
index 00000000000..f6d888c1f28
--- /dev/null
+++ b/test/lisp/erc/erc-scenarios-base-split-line.el
@@ -0,0 +1,202 @@
+;;; erc-scenarios-base-split-line.el --- ERC line splitting -*-
lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert-x)
+(eval-and-compile
+ (let ((load-path (cons (ert-resource-directory) load-path)))
+ (require 'erc-scenarios-common)))
+
+(ert-deftest erc-scenarios-base-split-line--koi8-r ()
+ :tags '(:expensive-test)
+ (should (equal erc-split-line-length 440))
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/flood")
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'koi8-r))
+ (erc-encoding-coding-alist '(("#koi8" . cyrillic-koi8)))
+ (port (process-contact dumb-server :service))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to server")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :full-name "tester")
+ (funcall expect 10 "debug mode")
+ (erc-cmd-JOIN "#koi8")))
+
+ (with-current-buffer (erc-d-t-wait-for 8 (get-buffer "#koi8"))
+ (funcall expect 10 "короче теперь")
+ (ert-info ("Message well within `erc-split-line-length'")
+ (erc-scenarios-common-say
+ (concat
+ "короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"))
+ (funcall expect 1 "<tester>")
+ (funcall expect -0.1 "<tester>"))
+
+ (ert-info ("Message over `erc-split-line-length'")
+ (erc-scenarios-common-say
+ (concat
+ "короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " будет разрыв строки непонятно где"))
+ (funcall expect 1 "<tester>")
+ (funcall expect 1 "<tester> разрыв")))
+
+ (with-current-buffer "foonet"
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished"))))
+
+(ert-deftest erc-scenarios-base-split-line--ascii ()
+ :tags '(:expensive-test)
+ (should (equal erc-split-line-length 440))
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/flood")
+ (msg-432 (string-join (make-list 18 "twenty-three characters") " "))
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'ascii))
+ (port (process-contact dumb-server :service))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to server")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :full-name "tester")
+ (funcall expect 10 "debug mode")
+ (erc-cmd-JOIN "#ascii")))
+
+ (with-current-buffer (erc-d-t-wait-for 8 (get-buffer "#ascii"))
+ (ert-info ("Message with spaces fits exactly")
+ (funcall expect 10 "Welcome")
+ (should (= (length (concat msg-432 " 12345678")) 440))
+ (erc-scenarios-common-say (concat msg-432 " 12345678"))
+ (funcall expect 1 "<tester>")
+ ;; Sent in a single go, hence no second <speaker>.
+ (funcall expect -0.1 "<tester>")
+ (funcall expect 0.1 "12345678"))
+
+ (ert-info ("Message with spaces too long.")
+ (erc-scenarios-common-say (concat msg-432 " 123456789"))
+ (funcall expect 1 "<tester>")
+ ;; Sent in two passes, split at last word.
+ (funcall expect 0.1 "<tester> 123456789"))
+
+ (ert-info ("Message sans spaces fits exactly")
+ (erc-scenarios-common-say (make-string 440 ?x))
+ (funcall expect 1 "<tester>")
+ ;; Sent in a single go, hence no second <speaker>.
+ (funcall expect -0.1 "<tester>"))
+
+ (ert-info ("Message sans spaces too long.")
+ (erc-scenarios-common-say (concat (make-string 440 ?y) "z"))
+ (funcall expect 1 "<tester>")
+ ;; Sent in two passes, split at last word.
+ (funcall expect 0.1 "<tester> z"))
+
+ (ert-info ("Rejected when escape-hatch set")
+ (let ((erc--reject-unbreakable-lines t))
+ (should-error
+ (erc-scenarios-common-say
+ (concat
+ "https://mail.example.org/verify?token=";
+ (string-join (make-list 18 "twenty-three_characters") "_")))))))
+
+ (with-current-buffer "foonet"
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished"))))
+
+(ert-deftest erc-scenarios-base-split-line--utf-8 ()
+ :tags '(:expensive-test)
+ (unless (> emacs-major-version 27)
+ (ert-skip "No emojis in Emacs 27"))
+
+ (should (equal erc-split-line-length 440))
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/flood")
+ (msg-432 (string-join (make-list 18 "twenty-three characters") " "))
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'utf-8))
+ (port (process-contact dumb-server :service))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to server")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :full-name "tester")
+ (funcall expect 10 "debug mode")
+ (erc-cmd-JOIN "#utf-8")))
+
+ (with-current-buffer (erc-d-t-wait-for 8 (get-buffer "#utf-8"))
+ (funcall expect 10 "Welcome")
+
+ (ert-info ("Message with spaces over `erc-split-line-length'")
+ (erc-scenarios-common-say
+ (concat
+ "короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " короче теперь если по русски написать все четко или все равно"
+ " будет разрыв строки непонятно где"
+ " будет разрыв строки непонятно где"))
+ (funcall expect 1 "<tester> короче")
+ (funcall expect 1 "<tester> все")
+ (funcall expect 1 "<tester> разрыв")
+ (funcall expect 1 "Entirely honour"))
+
+ (ert-info ("Message sans spaces over `erc-split-line-length'")
+ (erc-scenarios-common-say
+ (concat "話說天下大勢，分久必合，合久必分：周末七國分爭，并入於秦。"
+ "及秦滅之後，楚、漢分爭，又并入於漢。漢朝自高祖斬白蛇而起義，"
+ "一統天下。後來光武中興，傳至獻帝，遂分為三國。推其致亂之由，"
+ "殆始於桓、靈二帝。桓帝禁錮善類，崇信宦官。及桓帝崩，靈帝即位，"
+ "大將軍竇武、太傅陳蕃，共相輔佐。時有宦官曹節等弄權，竇武、陳蕃謀誅之，"
+ "作事不密，反為所害。中涓自此愈橫"))
+ (funcall expect 1 "<tester>")
+ ;; Sent in two passes, split at last word.
+ (funcall expect 0.1 "<tester> 竇武")
+ (funcall expect 1 "this prey out"))
+
+ ;; Combining emojis are respected.
+ (ert-info ("Message sans spaces over small `erc-split-line-length'")
+ (let ((erc-split-line-length 100))
+ (erc-scenarios-common-say
+ "будет разрыв строки непонятно где🏁🚩🎌🏴🏳️🏳️🌈🏳️⚧️🏴☠️"))
+ (funcall expect 1 "<tester>")
+ (funcall expect 1 "<tester> 🏳️🌈")))
+
+ (with-current-buffer "foonet"
+ (erc-cmd-QUIT "")
+ (funcall expect 10 "finished"))))
+
+;;; erc-scenarios-base-split-line.el ends here
diff --git a/test/lisp/erc/erc-scenarios-log.el
b/test/lisp/erc/erc-scenarios-log.el
new file mode 100644
index 00000000000..c37e6b323aa
--- /dev/null
+++ b/test/lisp/erc/erc-scenarios-log.el
@@ -0,0 +1,207 @@
+;;; erc-scenarios-log.el --- erc-log scenarios -*- lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'ert-x)
+(eval-and-compile
+ (let ((load-path (cons (ert-resource-directory) load-path)))
+ (require 'erc-scenarios-common)))
+
+(require 'erc-log)
+(require 'erc-truncate)
+
+(defvar erc-timestamp-format-left)
+
+(ert-deftest erc-scenarios-log--kill-hook ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/assoc/bouncer-history")
+ (dumb-server (erc-d-run "localhost" t 'foonet))
+ (tempdir (make-temp-file "erc-tests-log." t nil nil))
+ (erc-log-channels-directory tempdir)
+ (erc-modules (cons 'log erc-modules))
+ (port (process-contact dumb-server :service))
+ (logfile (expand-file-name (format "#chan!tester@127.0.0.1:%d.txt" port)
+ tempdir))
+ (erc-server-flood-penalty 0.1)
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :password "foonet:changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
+ (funcall expect 5 "foonet")))
+
+ (with-current-buffer (erc-d-t-wait-for 5 (get-buffer "#chan"))
+ (funcall expect 10 "was created on")
+ (funcall expect 10 "please your lordship")
+ (with-current-buffer "foonet"
+ (delete-process erc-server-process)
+ (funcall expect 5 "failed"))
+ (should-not (file-exists-p logfile))
+ (kill-buffer)
+ (should (file-exists-p logfile)))
+
+ (with-temp-buffer
+ (insert-file-contents logfile)
+ (funcall expect 1 "You have joined")
+ (funcall expect 1 "Playback Complete.")
+ (funcall expect 1 "please your lordship"))
+
+ (erc-log-mode -1)
+ (if noninteractive
+ (delete-directory tempdir :recursive)
+ (add-hook 'kill-emacs-hook
+ (lambda () (delete-directory tempdir :recursive))))))
+
+;; This shows that, in addition to truncating the buffer, /clear also
+;; syncs the log.
+
+(ert-deftest erc-scenarios-log--clear-stamp ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/assoc/bouncer-history")
+ (dumb-server (erc-d-run "localhost" t 'foonet))
+ (tempdir (make-temp-file "erc-tests-log." t nil nil))
+ (erc-log-channels-directory tempdir)
+ (erc-modules (cons 'log erc-modules))
+ (erc-timestamp-format-left "\n[%a %b %e %Y @@STAMP@@]\n")
+ (port (process-contact dumb-server :service))
+ (logfile (expand-file-name (format "#chan!tester@127.0.0.1:%d.txt" port)
+ tempdir))
+ (erc-server-flood-penalty 0.1)
+ (expect (erc-d-t-make-expecter)))
+
+ (unless noninteractive
+ (add-hook 'kill-emacs-hook
+ (lambda () (delete-directory tempdir :recursive))))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :password "foonet:changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
+ (funcall expect 5 "foonet")))
+
+ (with-current-buffer (erc-d-t-wait-for 5 (get-buffer "#chan"))
+ (funcall expect 10 "@@STAMP@@")
+ (funcall expect 10 "Grows, lives")
+ (should-not (file-exists-p logfile))
+ (goto-char (point-max))
+ (erc-cmd-CLEAR)
+ (should (file-exists-p logfile))
+ (funcall expect 10 "please your lordship")
+ (ert-info ("Buffer truncated")
+ (goto-char (point-min))
+ (funcall expect 10 "@@STAMP@@" (point)) ; reset
+ (funcall expect -0.1 "Grows, lives")
+ (funcall expect 1 "For these two")))
+
+ (ert-info ("Current contents saved")
+ (with-temp-buffer
+ (insert-file-contents logfile)
+ (funcall expect 1 "@@STAMP@@")
+ (funcall expect 1 "You have joined")
+ (funcall expect 1 "Playback Complete.")
+ (funcall expect 1 "Grows, lives")
+ (funcall expect -0.01 "please your lordship")))
+
+ (ert-info ("Remainder saved, timestamp printed when option non-nil")
+ (with-current-buffer "foonet"
+ (delete-process erc-server-process)
+ (funcall expect 5 "failed"))
+ (kill-buffer "#chan")
+ (with-temp-buffer
+ (insert-file-contents logfile)
+ (funcall expect 1 "@@STAMP@@")
+ (funcall expect 1 "Grows, lives")
+ (funcall expect -0.01 "@@STAMP@@")
+ (forward-line 1) ; no blank, no timestamp
+ (should (looking-at (rx "<bob> alice: For these two hours,")))
+ (funcall expect 1 "please your lordship")))
+
+ (erc-log-mode -1)
+ (when noninteractive (delete-directory tempdir :recursive))))
+
+(ert-deftest erc-scenarios-log--truncate ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "base/assoc/bouncer-history")
+ (dumb-server (erc-d-run "localhost" t 'foonet))
+ (tempdir (make-temp-file "erc-tests-log." t nil nil))
+ (erc-log-channels-directory tempdir)
+ (erc-modules (cons 'truncate (cons 'log erc-modules)))
+ (erc-max-buffer-size 512)
+ (port (process-contact dumb-server :service))
+ (logchan (expand-file-name (format "#chan!tester@127.0.0.1:%d.txt" port)
+ tempdir))
+ (logserv (expand-file-name
+ (format "127.0.0.1:%d!tester@127.0.0.1:%d.txt" port port)
+ tempdir))
+ (erc-server-flood-penalty 0.1)
+ (expect (erc-d-t-make-expecter)))
+
+ (unless noninteractive
+ (add-hook 'kill-emacs-hook
+ (lambda () (delete-directory tempdir :recursive))))
+
+ (ert-info ("Connect to foonet")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester"
+ :password "foonet:changeme"
+ :full-name "tester")
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
+ (should-not (file-exists-p logserv))
+ (should-not (file-exists-p logchan))
+ (funcall expect 10 "*** MAXLIST=beI:60")
+ (should (= (pos-bol) (point-min)))
+ (should (file-exists-p logserv))))
+
+ (ert-info ("Log file ahead of truncation point")
+ ;; Log contains lines still present in buffer.
+ (with-temp-buffer
+ (insert-file-contents logserv)
+ (funcall expect 10 "*** MAXLIST=beI:60")))
+
+ (with-current-buffer (erc-d-t-wait-for 5 (get-buffer "#chan"))
+ (funcall expect 10 "please your lordship")
+ (should (file-exists-p logchan))
+ (funcall expect -0.1 "[07:04:37] alice: Here," (point-min)))
+
+ (ert-info ("Log ahead of truncation point")
+ (with-temp-buffer
+ (insert-file-contents logchan)
+ (funcall expect 1 "You have joined")
+ (funcall expect 1 "[07:04:37] alice: Here,")
+ (funcall expect 1 "loathed enemy")
+ (funcall expect -0.1 "please your lordship")))
+
+ (erc-log-mode -1)
+ (when noninteractive (delete-directory tempdir :recursive))))
+
+;;; erc-scenarios-log.el ends here
diff --git a/test/lisp/erc/erc-scenarios-misc.el
b/test/lisp/erc/erc-scenarios-misc.el
index 5927eee48fd..bb925eed836 100644
--- a/test/lisp/erc/erc-scenarios-misc.el
+++ b/test/lisp/erc/erc-scenarios-misc.el
@@ -205,4 +205,38 @@
(with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
(funcall expect 10 "welcome")))))
+;; Ensure that ERC does not attempt to switch to a killed server
+;; buffer via `erc-track-switch-buffer'.
+
+(declare-function erc-track-switch-buffer "erc-track" (arg))
+(defvar erc-track-mode)
+
+(ert-deftest erc-scenarios-base-kill-server-track ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "networks/merge-server")
+ (dumb-server (erc-d-run "localhost" t 'track))
+ (port (process-contact dumb-server :service))
+ (erc-server-flood-penalty 0.1)
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "tester")
+ (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
+ (should erc-track-mode)
+ (funcall expect 5 "changed mode for tester")
+ (erc-cmd-JOIN "#chan")))
+
+ (ert-info ("Join channel and kill server buffer")
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
+ (funcall expect 5 "The hour that fools should ask"))
+ (with-current-buffer "FooNet"
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (kill-buffer))
+ (should-not (eq (current-buffer) (get-buffer "#chan"))) ; *temp*
+ (ert-simulate-command '(erc-track-switch-buffer 1)) ; No longer signals
+ (should (eq (current-buffer) (get-buffer "#chan"))))))
+
;;; erc-scenarios-misc.el ends here
diff --git a/test/lisp/erc/erc-scenarios-sasl.el
b/test/lisp/erc/erc-scenarios-sasl.el
index 3878237c7d2..ab652d72dd2 100644
--- a/test/lisp/erc/erc-scenarios-sasl.el
+++ b/test/lisp/erc/erc-scenarios-sasl.el
@@ -51,6 +51,70 @@
;; Regression "\0\0\0\0 ..." caused by (fillarray passphrase 0)
(should (string= erc-sasl-password "password123"))))))
+;; The user's unreasonably long password is apportioned into chunks on
+;; the way out the door.
+
+(ert-deftest erc-scenarios-sasl--plain-overlong-split ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "sasl")
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'plain-overlong-split))
+ (port (process-contact dumb-server :service))
+ (erc-modules (cons 'sasl erc-modules))
+ (erc-sasl-password
+ (concat
+ "Est ut beatae omnis ipsam. "
+ "Quis fugiat deleniti totam qui. "
+ "Ipsum quam a dolorum tempora velit laborum odit. "
+ "Et saepe voluptate sed cumque vel. "
+ "Voluptas sint ab pariatur libero veritatis corrupti. "
+ "Vero iure omnis ullam. "
+ "Vero beatae dolores facere fugiat ipsam. "
+ "Ea est pariatur minima nobis sunt aut ut. "
+ "Dolores ut laudantium maiores temporibus voluptates. "
+ "Reiciendis impedit omnis et unde delectus quas ab. "
+ "Quae eligendi necessitatibus doloribus "
+ "molestias tempora magnam assumenda."))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "emersion"
+ :user "emersion"
+ :full-name "emersion")
+ (funcall expect 10 "This server is in debug mode")
+ (erc-cmd-QUIT "")))))
+
+(ert-deftest erc-scenarios-sasl--plain-overlong-aligned ()
+ :tags '(:expensive-test)
+ (erc-scenarios-common-with-cleanup
+ ((erc-scenarios-common-dialog "sasl")
+ (erc-server-flood-penalty 0.1)
+ (dumb-server (erc-d-run "localhost" t 'plain-overlong-aligned))
+ (port (process-contact dumb-server :service))
+ (erc-modules (cons 'sasl erc-modules))
+ (erc-sasl-password
+ (concat
+ "Est ut beatae omnis ipsam. "
+ "Quis fugiat deleniti totam qui. "
+ "Ipsum quam a dolorum tempora velit laborum odit. "
+ "Et saepe voluptate sed cumque vel. "
+ "Voluptas sint ab pariatur libero veritatis corrupti. "
+ "Vero iure omnis ullam. Vero beatae dolores facere fugiat ipsam. "
+ "Ea est pariatur minima nobis"))
+ (expect (erc-d-t-make-expecter)))
+
+ (ert-info ("Connect")
+ (with-current-buffer (erc :server "127.0.0.1"
+ :port port
+ :nick "emersion"
+ :user "emersion"
+ :full-name "emersion")
+ (funcall expect 10 "This server is in debug mode")
+ (erc-cmd-QUIT "")))))
+
(ert-deftest erc-scenarios-sasl--external ()
:tags '(:expensive-test)
(erc-scenarios-common-with-cleanup
diff --git a/test/lisp/erc/erc-services-tests.el
b/test/lisp/erc/erc-services-tests.el
index 9181a47ee3b..6cbba02a37e 100644
--- a/test/lisp/erc/erc-services-tests.el
+++ b/test/lisp/erc/erc-services-tests.el
@@ -212,39 +212,32 @@
(advice-remove 'epg-decrypt-string 'erc--auth-source-plstore)
(advice-remove 'epg-find-configuration 'erc--auth-source-plstore)))
-(defvar erc-services-tests--auth-source-plstore-standard-entries
- '(("ba950d38118a76d71f9f0591bb373d6cb366a512"
- :secret-secret t
- :host "irc.gnu.org"
- :user "#chan"
- :port "irc")
- ("7f17ca445d11158065e911a6d0f4cbf52ca250e3"
- :secret-secret t
- :host "my.gnu.org"
- :user "#chan"
- :port "irc")
- ("fcd3c8bd6daf4509de0ad6ee98e744ce0fca9377"
- :secret-secret t
- :host "GNU.chat"
- :user "#chan"
- :port "irc")))
-
-(defvar erc-services-tests--auth-source-plstore-standard-secrets
- '(("ba950d38118a76d71f9f0591bb373d6cb366a512" :secret "bar")
- ("7f17ca445d11158065e911a6d0f4cbf52ca250e3" :secret "baz")
- ("fcd3c8bd6daf4509de0ad6ee98e744ce0fca9377" :secret "foo")))
+(defvar erc-services-tests--auth-source-plstore-standard-announced "\
+;;; public entries -*- mode: plstore -*-
+((\"ba950d38118a76d71f9f0591bb373d6cb366a512\"
+ :secret-secret t
+ :host \"irc.gnu.org\"
+ :user \"#chan\"
+ :port \"irc\")
+ (\"7f17ca445d11158065e911a6d0f4cbf52ca250e3\"
+ :secret-secret t
+ :host \"my.gnu.org\"
+ :user \"#chan\"
+ :port \"irc\")
+ (\"fcd3c8bd6daf4509de0ad6ee98e744ce0fca9377\"
+ :secret-secret t
+ :host \"GNU.chat\"
+ :user \"#chan\"
+ :port \"irc\"))
+;;; secret entries
+((\"ba950d38118a76d71f9f0591bb373d6cb366a512\" :secret \"bar\")
+ (\"7f17ca445d11158065e911a6d0f4cbf52ca250e3\" :secret \"baz\")
+ (\"fcd3c8bd6daf4509de0ad6ee98e744ce0fca9377\" :secret \"foo\"))")
(ert-deftest erc--auth-source-search--plstore-standard ()
(ert-with-temp-file plstore-file
:suffix ".plist"
- :text (concat ";;; public entries -*- mode: plstore -*- \n"
- (prin1-to-string
- erc-services-tests--auth-source-plstore-standard-entries)
- "\n;;; secret entries\n"
- (prin1-to-string
- erc-services-tests--auth-source-plstore-standard-secrets)
- "\n")
-
+ :text erc-services-tests--auth-source-plstore-standard-announced
(let ((auth-sources (list plstore-file))
(auth-source-do-cache nil))
(erc-services-tests--auth-source-standard
@@ -254,14 +247,7 @@
(ert-deftest erc--auth-source-search--plstore-announced ()
(ert-with-temp-file plstore-file
:suffix ".plist"
- :text (concat ";;; public entries -*- mode: plstore -*- \n"
- (prin1-to-string
- erc-services-tests--auth-source-plstore-standard-entries)
- "\n;;; secret entries\n"
- (prin1-to-string
- erc-services-tests--auth-source-plstore-standard-secrets)
- "\n")
-
+ :text erc-services-tests--auth-source-plstore-standard-announced
(let ((auth-sources (list plstore-file))
(auth-source-do-cache nil))
(erc-services-tests--auth-source-announced
@@ -271,29 +257,33 @@
(ert-deftest erc--auth-source-search--plstore-overrides ()
(ert-with-temp-file plstore-file
:suffix ".plist"
- :text (concat
- ";;; public entries -*- mode: plstore -*- \n"
- (prin1-to-string
- `(,@erc-services-tests--auth-source-plstore-standard-entries
- ("1b3fab249a8dff77a4d8fe7eb4b0171b25cc711a"
- :secret-secret t :host "GNU.chat" :user "#chan" :port "6697")
- ("6cbcdc39476b8cfcca6f3e9a7876f41ec3f708cc"
- :secret-secret t :host "my.gnu.org" :user "#fsf" :port "irc")
- ("a33e2b3bd2d6f33995a4b88710a594a100c5e41d"
- :secret-secret t :host "irc.gnu.org" :port "6667")
- ("ab2fd349b2b7d6a9215bb35a92d054261b0b1537"
- :secret-secret t :host "MyHost" :port "irc")
- ("61a6bd552059494f479ff720e8de33e22574650a"
- :secret-secret t :host "MyHost" :port "6667")))
- "\n;;; secret entries\n"
- (prin1-to-string
- `(,@erc-services-tests--auth-source-plstore-standard-secrets
- ("1b3fab249a8dff77a4d8fe7eb4b0171b25cc711a" :secret "spam")
- ("6cbcdc39476b8cfcca6f3e9a7876f41ec3f708cc" :secret "42")
- ("a33e2b3bd2d6f33995a4b88710a594a100c5e41d" :secret "sesame")
- ("ab2fd349b2b7d6a9215bb35a92d054261b0b1537" :secret "456")
- ("61a6bd552059494f479ff720e8de33e22574650a" :secret "123")))
- "\n")
+ :text "\
+;;; public entries -*- mode: plstore -*-
+((\"ba950d38118a76d71f9f0591bb373d6cb366a512\"
+ :secret-secret t :host \"irc.gnu.org\" :user \"#chan\" :port \"irc\")
+ (\"7f17ca445d11158065e911a6d0f4cbf52ca250e3\"
+ :secret-secret t :host \"my.gnu.org\" :user \"#chan\" :port \"irc\")
+ (\"fcd3c8bd6daf4509de0ad6ee98e744ce0fca9377\"
+ :secret-secret t :host \"GNU.chat\" :user \"#chan\" :port \"irc\")
+ (\"1b3fab249a8dff77a4d8fe7eb4b0171b25cc711a\"
+ :secret-secret t :host \"GNU.chat\" :user \"#chan\" :port \"6697\")
+ (\"6cbcdc39476b8cfcca6f3e9a7876f41ec3f708cc\"
+ :secret-secret t :host \"my.gnu.org\" :user \"#fsf\" :port \"irc\")
+ (\"a33e2b3bd2d6f33995a4b88710a594a100c5e41d\"
+ :secret-secret t :host \"irc.gnu.org\" :port \"6667\")
+ (\"ab2fd349b2b7d6a9215bb35a92d054261b0b1537\"
+ :secret-secret t :host \"MyHost\" :port \"irc\")
+ (\"61a6bd552059494f479ff720e8de33e22574650a\"
+ :secret-secret t :host \"MyHost\" :port \"6667\"))
+;;; secret entries
+((\"ba950d38118a76d71f9f0591bb373d6cb366a512\" :secret \"bar\")
+ (\"7f17ca445d11158065e911a6d0f4cbf52ca250e3\" :secret \"baz\")
+ (\"fcd3c8bd6daf4509de0ad6ee98e744ce0fca9377\" :secret \"foo\")
+ (\"1b3fab249a8dff77a4d8fe7eb4b0171b25cc711a\" :secret \"spam\")
+ (\"6cbcdc39476b8cfcca6f3e9a7876f41ec3f708cc\" :secret \"42\")
+ (\"a33e2b3bd2d6f33995a4b88710a594a100c5e41d\" :secret \"sesame\")
+ (\"ab2fd349b2b7d6a9215bb35a92d054261b0b1537\" :secret \"456\")
+ (\"61a6bd552059494f479ff720e8de33e22574650a\" :secret \"123\"))"
(let ((auth-sources (list plstore-file))
(auth-source-do-cache nil))
@@ -303,17 +293,24 @@
;; auth-source JSON backend
-(defvar erc-services-tests--auth-source-json-standard-entries
- [(:host "irc.gnu.org" :port "irc" :user "#chan" :secret "bar")
- (:host "my.gnu.org" :port "irc" :user "#chan" :secret "baz")
- (:host "GNU.chat" :port "irc" :user "#chan" :secret "foo")])
+(defvar erc-services-tests--auth-source-json-standard-announced "\
+[{\"host\": \"irc.gnu.org\",
+ \"port\": \"irc\",
+ \"user\": \"#chan\",
+ \"secret\": \"bar\"},
+ {\"host\": \"my.gnu.org\",
+ \"port\": \"irc\",
+ \"user\": \"#chan\",
+ \"secret\": \"baz\"},
+ {\"host\": \"GNU.chat\",
+ \"port\": \"irc\",
+ \"user\": \"#chan\",
+ \"secret\": \"foo\"}]")
(ert-deftest erc--auth-source-search--json-standard ()
(ert-with-temp-file json-store
+ :text erc-services-tests--auth-source-json-standard-announced
:suffix ".json"
- :text (let ((json-object-type 'plist))
- (json-encode
- erc-services-tests--auth-source-json-standard-entries))
(let ((auth-sources (list json-store))
(auth-source-do-cache nil))
(erc-services-tests--auth-source-standard #'erc-auth-source-search))))
@@ -321,10 +318,7 @@
(ert-deftest erc--auth-source-search--json-announced ()
(ert-with-temp-file plstore-file
:suffix ".json"
- :text (let ((json-object-type 'plist))
- (json-encode
- erc-services-tests--auth-source-json-standard-entries))
-
+ :text erc-services-tests--auth-source-json-standard-announced
(let ((auth-sources (list plstore-file))
(auth-source-do-cache nil))
(erc-services-tests--auth-source-announced #'erc-auth-source-search))))
@@ -332,16 +326,36 @@
(ert-deftest erc--auth-source-search--json-overrides ()
(ert-with-temp-file json-file
:suffix ".json"
- :text (let ((json-object-type 'plist))
- (json-encode
- (vconcat
- erc-services-tests--auth-source-json-standard-entries
- [(:secret "spam" :host "GNU.chat" :user "#chan" :port "6697")
- (:secret "42" :host "my.gnu.org" :user "#fsf" :port "irc")
- (:secret "sesame" :host "irc.gnu.org" :port "6667")
- (:secret "456" :host "MyHost" :port "irc")
- (:secret "123" :host "MyHost" :port "6667")])))
-
+ :text "\
+[{\"host\": \"irc.gnu.org\",
+ \"port\": \"irc\",
+ \"user\": \"#chan\",
+ \"secret\": \"bar\"},
+ {\"host\": \"my.gnu.org\",
+ \"port\": \"irc\",
+ \"user\": \"#chan\",
+ \"secret\": \"baz\"},
+ {\"host\": \"GNU.chat\",
+ \"port\": \"irc\",
+ \"user\": \"#chan\",
+ \"secret\": \"foo\"},
+ {\"host\": \"GNU.chat\",
+ \"user\": \"#chan\",
+ \"port\": \"6697\",
+ \"secret\": \"spam\"},
+ {\"host\": \"my.gnu.org\",
+ \"user\": \"#fsf\",
+ \"port\": \"irc\",
+ \"secret\": \"42\"},
+ {\"host\": \"irc.gnu.org\",
+ \"port\": \"6667\",
+ \"secret\": \"sesame\"},
+ {\"host\": \"MyHost\",
+ \"port\": \"irc\",
+ \"secret\": \"456\"},
+ {\"host\": \"MyHost\",
+ \"port\": \"6667\",
+ \"secret\": \"123\"}]"
(let ((auth-sources (list json-file))
(auth-source-do-cache nil))
(erc-services-tests--auth-source-overrides #'erc-auth-source-search))))
@@ -370,6 +384,14 @@
("#chan@my.gnu.org:irc" . "baz")
("#chan@GNU.chat:irc" . "foo")))
+(defun erc-services-tests--secrets-search-items (entries _ &rest r)
+ (mapcan (lambda (s)
+ (and (seq-every-p (pcase-lambda (`(,k . ,v))
+ (equal v (alist-get k (cdr s))))
+ (map-pairs r))
+ (list (car s))))
+ entries))
+
(ert-deftest erc--auth-source-search--secrets-standard ()
(skip-unless (bound-and-true-p secrets-enabled))
(let ((auth-sources '("secrets:Test"))
@@ -378,18 +400,12 @@
(secrets erc-services-tests--auth-source-secrets-standard-secrets))
(cl-letf (((symbol-function 'secrets-search-items)
- (lambda (col &rest r)
- (should (equal col "Test"))
- (should (plist-get r :user))
- (map-keys entries)))
+ (apply-partially #'erc-services-tests--secrets-search-items
+ entries))
((symbol-function 'secrets-get-secret)
- (lambda (col label)
- (should (equal col "Test"))
- (assoc-default label secrets)))
+ (lambda (_ label) (assoc-default label secrets)))
((symbol-function 'secrets-get-attributes)
- (lambda (col label)
- (should (equal col "Test"))
- (assoc-default label entries))))
+ (lambda (_ label) (assoc-default label entries))))
(erc-services-tests--auth-source-standard #'erc-auth-source-search))))
@@ -401,18 +417,12 @@
(secrets erc-services-tests--auth-source-secrets-standard-secrets))
(cl-letf (((symbol-function 'secrets-search-items)
- (lambda (col &rest r)
- (should (equal col "Test"))
- (should (plist-get r :user))
- (map-keys entries)))
+ (apply-partially #'erc-services-tests--secrets-search-items
+ entries))
((symbol-function 'secrets-get-secret)
- (lambda (col label)
- (should (equal col "Test"))
- (assoc-default label secrets)))
+ (lambda (_ label) (assoc-default label secrets)))
((symbol-function 'secrets-get-attributes)
- (lambda (col label)
- (should (equal col "Test"))
- (assoc-default label entries))))
+ (lambda (_ label) (assoc-default label entries))))
(erc-services-tests--auth-source-announced #'erc-auth-source-search))))
@@ -444,17 +454,12 @@
("MyHost:6667" . "123"))))
(cl-letf (((symbol-function 'secrets-search-items)
- (lambda (col &rest _)
- (should (equal col "Test"))
- (map-keys entries)))
+ (apply-partially #'erc-services-tests--secrets-search-items
+ entries))
((symbol-function 'secrets-get-secret)
- (lambda (col label)
- (should (equal col "Test"))
- (assoc-default label secrets)))
+ (lambda (_ label) (assoc-default label secrets)))
((symbol-function 'secrets-get-attributes)
- (lambda (col label)
- (should (equal col "Test"))
- (assoc-default label entries))))
+ (lambda (_ label) (assoc-default label entries))))
(erc-services-tests--auth-source-overrides #'erc-auth-source-search))))
diff --git a/test/lisp/erc/erc-stamp-tests.el b/test/lisp/erc/erc-stamp-tests.el
new file mode 100644
index 00000000000..01e71e348e0
--- /dev/null
+++ b/test/lisp/erc/erc-stamp-tests.el
@@ -0,0 +1,265 @@
+;;; erc-stamp-tests.el --- Tests for erc-stamp. -*- lexical-binding:t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+(require 'ert-x)
+(require 'erc-stamp)
+(require 'erc-goodies) ; for `erc-make-read-only'
+
+;; These display-oriented tests are brittle because many factors
+;; influence how text properties are applied. We should just
+;; rework these into full scenarios.
+
+(defun erc-stamp-tests--insert-right (test)
+ (let ((val (list 0 0))
+ (erc-insert-modify-hook '(erc-add-timestamp))
+ (erc-insert-post-hook '(erc-make-read-only)) ; see comment above
+ (erc-timestamp-only-if-changed-flag nil)
+ ;;
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+
+ (advice-add 'erc-format-timestamp :filter-args
+ (lambda (args) (cons (cl-incf (cadr val) 60) (cdr args)))
+ '((name . ert-deftest--erc-timestamp-use-align-to)))
+
+ (with-current-buffer (get-buffer-create "*erc-stamp-tests--insert-right*")
+ (erc-mode)
+ (erc-munge-invisibility-spec)
+ (setq erc-server-process (start-process "p" (current-buffer)
+ "sleep" "1")
+ erc-input-marker (make-marker)
+ erc-insert-marker (make-marker))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (set-marker erc-insert-marker (point-max))
+ (erc-display-prompt)
+
+ (funcall test)
+
+ (when noninteractive
+ (kill-buffer)))
+
+ (advice-remove 'erc-format-timestamp
+ 'ert-deftest--erc-timestamp-use-align-to)))
+
+(ert-deftest erc-timestamp-use-align-to--nil ()
+ (erc-stamp-tests--insert-right
+ (lambda ()
+
+ (ert-info ("nil, normal")
+ (let ((erc-timestamp-use-align-to nil))
+ (erc-display-message nil 'notice (current-buffer) "begin"))
+ (goto-char (point-min))
+ (should (search-forward-regexp
+ (rx "begin" (+ "\t") (* " ") "[") nil t))
+ ;; Field includes intervening spaces
+ (should (eql ?n (char-before (field-beginning (point)))))
+ ;; Timestamp extends to the end of the line
+ (should (eql ?\n (char-after (field-end (point))))))
+
+ ;; The option `erc-timestamp-right-column' is normally nil by
+ ;; default, but it's a convenient stand in for a sufficiently
+ ;; small `erc-fill-column' (we can force a line break without
+ ;; involving that module).
+ (should-not erc-timestamp-right-column)
+
+ (ert-info ("nil, overlong (hard wrap)")
+ (let ((erc-timestamp-use-align-to nil)
+ (erc-timestamp-right-column 20))
+ (erc-display-message nil 'notice (current-buffer)
+ "twenty characters"))
+ (should (search-forward-regexp (rx bol (+ "\t") (* " ") "[") nil t))
+ ;; Field excludes leading whitespace (arguably undesirable).
+ (should (eql ?\[ (char-after (field-beginning (point)))))
+ ;; Timestamp extends to the end of the line.
+ (should (eql ?\n (char-after (field-end (point)))))))))
+
+(ert-deftest erc-timestamp-use-align-to--t ()
+ (erc-stamp-tests--insert-right
+ (lambda ()
+
+ (ert-info ("t, normal")
+ (let ((erc-timestamp-use-align-to t))
+ (let ((msg (erc-format-privmessage "bob" "msg one" nil t)))
+ (erc-display-message nil nil (current-buffer) msg)))
+ (goto-char (point-min))
+ ;; Exactly two spaces, one from format, one added by erc-stamp.
+ (should (search-forward "msg one [" nil t))
+ ;; Field covers space between.
+ (should (eql ?e (char-before (field-beginning (point)))))
+ (should (eql ?\n (char-after (field-end (point))))))
+
+ (ert-info ("t, overlong (hard wrap)")
+ (let ((erc-timestamp-use-align-to t)
+ (erc-timestamp-right-column 20))
+ (let ((msg (erc-format-privmessage "bob" "tttt wwww oooo" nil t)))
+ (erc-display-message nil nil (current-buffer) msg)))
+ ;; Indented to pos (this is arguably a bug).
+ (should (search-forward-regexp (rx bol (+ "\t") (* " ") "[") nil t))
+ ;; Field starts *after* leading space (arguably bad).
+ (should (eql ?\[ (char-after (field-beginning (point)))))
+ (should (eql ?\n (char-after (field-end (point)))))))))
+
+(ert-deftest erc-timestamp-use-align-to--integer ()
+ (erc-stamp-tests--insert-right
+ (lambda ()
+
+ (ert-info ("integer, normal")
+ (let ((erc-timestamp-use-align-to 1))
+ (let ((msg (erc-format-privmessage "bob" "msg one" nil t)))
+ (erc-display-message nil nil (current-buffer) msg)))
+ (goto-char (point-min))
+ ;; Space not added because included in format string.
+ (should (search-forward "msg one [" nil t))
+ ;; Field covers space between.
+ (should (eql ?e (char-before (field-beginning (point)))))
+ (should (eql ?\n (char-after (field-end (point))))))
+
+ (ert-info ("integer, overlong (hard wrap)")
+ (let ((erc-timestamp-use-align-to 1)
+ (erc-timestamp-right-column 20))
+ (let ((msg (erc-format-privmessage "bob" "tttt wwww oooo" nil t)))
+ (erc-display-message nil nil (current-buffer) msg)))
+ ;; No hard wrap
+ (should (search-forward "oooo [" nil t))
+ ;; Field starts at leading space.
+ (should (eql ?\s (char-after (field-beginning (point)))))
+ (should (eql ?\n (char-after (field-end (point)))))))))
+
+(ert-deftest erc-timestamp-use-align-to--margin ()
+ (erc-stamp-tests--insert-right
+ (lambda ()
+ (erc-stamp--display-margin-mode +1)
+
+ (ert-info ("margin, normal")
+ (let ((erc-timestamp-use-align-to 'margin))
+ (let ((msg (erc-format-privmessage "bob" "msg one" nil t)))
+ (put-text-property 0 (length msg) 'wrap-prefix 10 msg)
+ (erc-display-message nil nil (current-buffer) msg)))
+ (goto-char (point-min))
+ ;; Space not added (treated as opaque string).
+ (should (search-forward "msg one[" nil t))
+ ;; Field covers stamp alone
+ (should (eql ?e (char-before (field-beginning (point)))))
+ ;; Vanity props extended
+ (should (get-text-property (field-beginning (point)) 'wrap-prefix))
+ (should (get-text-property (1+ (field-beginning (point))) 'wrap-prefix))
+ (should (get-text-property (1- (field-end (point))) 'wrap-prefix))
+ (should (eql ?\n (char-after (field-end (point))))))
+
+ (ert-info ("margin, overlong (hard wrap)")
+ (let ((erc-timestamp-use-align-to 'margin)
+ (erc-timestamp-right-column 20))
+ (let ((msg (erc-format-privmessage "bob" "tttt wwww oooo" nil t)))
+ (erc-display-message nil nil (current-buffer) msg)))
+ ;; No hard wrap
+ (should (search-forward "oooo[" nil t))
+ ;; Field starts at format string (right bracket)
+ (should (eql ?\[ (char-after (field-beginning (point)))))
+ (should (eql ?\n (char-after (field-end (point)))))))))
+
+;; This concerns a proposed partial reversal of the changes resulting
+;; from:
+;;
+;; 24.1.50; Wrong behavior of move-end-of-line in ERC (Bug#11706)
+;;
+;; Perhaps core behavior has changed since this bug was reported, but
+;; C-e stopping one char short of EOL no longer seems a problem.
+;; However, invoking C-n (`next-line') exhibits a similar effect.
+;; When point is in a stamp or near the beginning of a line, issuing a
+;; C-n puts point one past the start of the message (i.e., two chars
+;; beyond the timestamp's closing "]". Dropping the invisible
+;; property when timestamps are hidden does indeed prevent this, but
+;; it's also a lasting commitment. The docs mention that it's
+;; pointless to pair the old `intangible' property with `invisible'
+;; and suggest users look at `cursor-intangible-mode'. Turning off
+;; the latter does indeed do the trick as does decrementing the end of
+;; the `cursor-intangible' interval so that, in addition to C-n
+;; working, a C-f from before the timestamp doesn't overshoot. This
+;; appears to be the case whether `erc-hide-timestamps' is enabled or
+;; not, but it may be inadvisable for some reason (a hack) and
+;; therefore warrants further investigation.
+;;
+;; Note some striking omissions here:
+;;
+;; 1. a lack of `fill' module integration (we simulate it by
+;; making lines short enough to not wrap)
+;; 2. functions like `line-move' behave differently when
+;; `noninteractive'
+;; 3. no actual test assertions involving `cursor-sensor' movement
+;; even though that's a huge ingredient
+
+(ert-deftest erc-timestamp-intangible--left ()
+ (let ((erc-timestamp-only-if-changed-flag nil)
+ (erc-timestamp-intangible t) ; default changed to nil in 2014
+ (erc-hide-timestamps t)
+ (erc-insert-timestamp-function 'erc-insert-timestamp-left)
+ (erc-server-process (start-process "true" (current-buffer) "true"))
+ (erc-insert-modify-hook '(erc-make-read-only erc-add-timestamp))
+ msg
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (should (not cursor-sensor-inhibit))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (erc-mode)
+ (with-current-buffer (get-buffer-create "*erc-timestamp-intangible*")
+ (erc-mode)
+ (erc--initialize-markers (point) nil)
+ (erc-munge-invisibility-spec)
+ (erc-display-message nil 'notice (current-buffer) "Welcome")
+ ;;
+ ;; Pretend `fill' is active and that these lines are
+ ;; folded. Otherwise, there's an annoying issue on wrapped lines
+ ;; (when visual-line-mode is off and stamps are visible) where
+ ;; C-e sends you to the end of the previous line.
+ (setq msg "Lorem ipsum dolor sit amet")
+ (erc-display-message nil nil (current-buffer)
+ (erc-format-privmessage "alyssa" msg nil t))
+ (erc-display-message nil 'notice (current-buffer) "Home")
+ (goto-char (point-min))
+
+ ;; EOL is actually EOL (Bug#11706)
+
+ (ert-info ("Notice before stamp, C-e") ; first line/stamp
+ (should (search-forward "Welcome" nil t))
+ (ert-simulate-command '(erc-bol))
+ (should (looking-at (rx "[")))
+ (let ((end (pos-eol))) ; `line-end-position' fails because fields
+ (ert-simulate-command '(move-end-of-line 1))
+ (should (= end (point)))))
+
+ (ert-info ("Privmsg before stamp, C-e")
+ (should (search-forward "Lorem" nil t))
+ (goto-char (pos-bol))
+ (should (looking-at (rx "[")))
+ (let ((end (pos-eol)))
+ (ert-simulate-command '(move-end-of-line 1))
+ (should (= end (point)))))
+
+ (ert-info ("Privmsg first line, C-e")
+ (goto-char (pos-bol))
+ (should (search-forward "ipsum" nil t))
+ (let ((end (pos-eol)))
+ (ert-simulate-command '(move-end-of-line 1))
+ (should (= end (point)))))
+
+ (when noninteractive
+ (kill-buffer)))))
+
+;;; erc-stamp-tests.el ends here
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el
index d6c63934163..1c75f35e1b5 100644
--- a/test/lisp/erc/erc-tests.el
+++ b/test/lisp/erc/erc-tests.el
@@ -113,15 +113,27 @@
(should (get-buffer "#spam"))
(kill-buffer "#spam")))
+(ert-deftest erc-with-server-buffer ()
+ (setq erc-away 1)
+ (erc-tests--set-fake-server-process "sleep" "1")
+
+ (let (calls)
+ (advice-add 'buffer-local-value :after (lambda (&rest r) (push r calls))
+ '((name . erc-with-server-buffer)))
+
+ (should (= 1 (erc-with-server-buffer erc-away)))
+ (should (equal (pop calls) (list 'erc-away (current-buffer))))
+
+ (should (= 1 (erc-with-server-buffer (ignore 'me) erc-away)))
+ (should-not calls)
+
+ (advice-remove 'buffer-local-value 'erc-with-server-buffer)))
+
(defun erc-tests--send-prep ()
;; Caller should probably shadow `erc-insert-modify-hook' or
;; populate user tables for erc-button.
(erc-mode)
- (insert "\n\n")
- (setq erc-input-marker (make-marker)
- erc-insert-marker (make-marker))
- (set-marker erc-insert-marker (point-max))
- (erc-display-prompt)
+ (erc--initialize-markers (point) nil)
(should (= (point) erc-input-marker)))
(defun erc-tests--set-fake-server-process (&rest args)
@@ -257,6 +269,178 @@
(kill-buffer "bob")
(kill-buffer "ServNet"))))
+(ert-deftest erc--refresh-prompt ()
+ (let* ((counter 0)
+ (erc-prompt (lambda ()
+ (format "%s %d>"
+ (erc-format-target-and/or-network)
+ (cl-incf counter))))
+ erc-accidental-paste-threshold-seconds
+ erc-insert-modify-hook
+ erc--input-review-functions
+ erc-send-completed-hook)
+
+ (ert-info ("Server buffer")
+ (with-current-buffer (get-buffer-create "ServNet")
+ (erc-tests--send-prep)
+ (goto-char erc-insert-marker)
+ (should (looking-at-p "ServNet 3>"))
+ (erc-tests--set-fake-server-process "sleep" "1")
+ (set-process-sentinel erc-server-process #'ignore)
+ (setq erc-network 'ServNet
+ erc-server-current-nick "tester"
+ erc-networks--id (erc-networks--id-create nil)
+ erc-server-users (make-hash-table :test 'equal))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ ;; Incoming message redraws prompt
+ (erc-display-message nil 'notice nil "Welcome")
+ (should (looking-at-p "ServNet 4>"))
+ ;; Say something
+ (save-excursion (goto-char erc-input-marker)
+ (insert "Howdy")
+ (erc-send-current-line)
+ (forward-line -1)
+ (should (looking-at "No target"))
+ (forward-line -1)
+ (should (looking-at "<tester> Howdy")))
+ (should (looking-at-p "ServNet 6>"))
+ ;; Space after prompt is unpropertized
+ (should (get-text-property (1- erc-input-marker) 'erc-prompt))
+ (should-not (get-text-property erc-input-marker 'erc-prompt))
+ ;; No sign of old prompts
+ (save-excursion
+ (goto-char (point-min))
+ (should-not (search-forward (rx (any "3-5") ">") nil t)))))
+
+ (ert-info ("Channel buffer")
+ (with-current-buffer (get-buffer-create "#chan")
+ (erc-tests--send-prep)
+ (goto-char erc-insert-marker)
+ (should (looking-at-p "#chan 9>"))
+ (setq erc-server-process (buffer-local-value 'erc-server-process
+ (get-buffer "ServNet"))
+ erc-networks--id (erc-with-server-buffer erc-networks--id)
+ erc--target (erc--target-from-string "#chan")
+ erc-default-recipients (list "#chan")
+ erc-channel-users (make-hash-table :test 'equal))
+ (erc-update-current-channel-member "alice" "alice")
+ (erc-update-current-channel-member "bob" "bob")
+ (erc-update-current-channel-member "tester" "tester")
+ (erc-display-message nil nil (current-buffer)
+ (erc-format-privmessage "alice" "Hi" nil t))
+ (should (looking-at-p "#chan@ServNet 10>"))
+ (save-excursion (goto-char erc-input-marker)
+ (insert "Howdy")
+ (erc-send-current-line)
+ (forward-line -1)
+ (should (looking-at "<tester> Howdy")))
+ (should (looking-at-p "#chan@ServNet 11>"))
+ (save-excursion (goto-char erc-input-marker)
+ (insert "/query bob")
+ (erc-send-current-line))
+ ;; Query does not redraw (nor /help, only message input)
+ (should (looking-at-p "#chan@ServNet 11>"))
+ ;; No sign of old prompts
+ (save-excursion
+ (goto-char (point-min))
+ (should-not (search-forward (rx (or "9" "10") ">") nil t)))))
+
+ (ert-info ("Query buffer")
+ (with-current-buffer (get-buffer "bob")
+ (goto-char erc-insert-marker)
+ (should (looking-at-p "bob@ServNet 14>"))
+ (erc-display-message nil nil (current-buffer)
+ (erc-format-privmessage "bob" "Hi" nil t))
+ (should (looking-at-p "bob@ServNet 15>"))
+ (save-excursion (goto-char erc-input-marker)
+ (insert "Howdy")
+ (erc-send-current-line)
+ (forward-line -1)
+ (should (looking-at "<tester> Howdy")))
+ (should (looking-at-p "bob@ServNet 16>"))
+ ;; No sign of old prompts
+ (save-excursion
+ (goto-char (point-min))
+ (should-not (search-forward (rx (or "14" "15") ">") nil t)))))
+
+ (when noninteractive
+ (kill-buffer "#chan")
+ (kill-buffer "bob")
+ (kill-buffer "ServNet"))))
+
+(ert-deftest erc--initialize-markers ()
+ (let ((proc (start-process "true" (current-buffer) "true"))
+ erc-modules
+ erc-connect-pre-hook
+ erc-insert-modify-hook
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (set-process-query-on-exit-flag proc nil)
+ (erc-mode)
+ (setq erc-server-process proc
+ erc-networks--id (erc-networks--id-create 'foonet))
+ (erc-open "localhost" 6667 "tester" "Tester" nil
+ "fake" nil "#chan" proc nil "user" nil)
+ (with-current-buffer (should (get-buffer "#chan"))
+ (should (= ?\n (char-after 1)))
+ (should (= ?E (char-after erc-insert-marker)))
+ (should (= 3 (marker-position erc-insert-marker)))
+ (should (= 8 (marker-position erc-input-marker)))
+ (should (= 8 (point-max)))
+ (should (= 8 (point)))
+ ;; These prompt properties are a continual source of confusion.
+ ;; Including the literal defaults here can hopefully serve as a
+ ;; quick reference for anyone operating in that area.
+ (should (equal (buffer-string)
+ #("\n\nERC> "
+ 2 6 ( font-lock-face erc-prompt-face
+ rear-nonsticky t
+ erc-prompt t
+ field erc-prompt
+ front-sticky t
+ read-only t)
+ 6 7 ( rear-nonsticky t
+ erc-prompt t
+ field erc-prompt
+ front-sticky t
+ read-only t))))
+
+ ;; Simulate some activity by inserting some text before and
+ ;; after the prompt (multiline).
+ (erc-display-error-notice nil "Welcome")
+ (goto-char (point-max))
+ (insert "Hello\nWorld")
+ (goto-char 3)
+ (should (looking-at-p (regexp-quote "*** Welcome"))))
+
+ (ert-info ("Reconnect")
+ (erc-open "localhost" 6667 "tester" "Tester" nil
+ "fake" nil "#chan" proc nil "user" nil)
+ (should-not (get-buffer "#chan<2>")))
+
+ (ert-info ("Existing prompt respected")
+ (with-current-buffer (should (get-buffer "#chan"))
+ (should (= ?\n (char-after 1)))
+ (should (= ?E (char-after erc-insert-marker)))
+ (should (= 15 (marker-position erc-insert-marker)))
+ (should (= 20 (marker-position erc-input-marker)))
+ (should (= 3 (point))) ; point restored
+ (should (equal (buffer-string)
+ #("\n\n*** Welcome\nERC> Hello\nWorld"
+ 2 13 (font-lock-face erc-error-face)
+ 14 18 ( font-lock-face erc-prompt-face
+ rear-nonsticky t
+ erc-prompt t
+ field erc-prompt
+ front-sticky t
+ read-only t)
+ 18 19 ( rear-nonsticky t
+ erc-prompt t
+ field erc-prompt
+ front-sticky t
+ read-only t))))
+ (when noninteractive
+ (kill-buffer))))))
+
(ert-deftest erc--switch-to-buffer ()
(defvar erc-modified-channels-alist) ; lisp/erc/erc-track.el
@@ -314,6 +498,309 @@
(dolist (b '("server" "other" "#chan" "#foo" "#fake"))
(kill-buffer b))))
+(defun erc-tests--run-in-term (&optional debug)
+ (let* ((default-directory (getenv "EMACS_TEST_DIRECTORY"))
+ (emacs (expand-file-name invocation-name invocation-directory))
+ (process-environment (cons "ERC_TESTS_SUBPROCESS=1"
+ process-environment))
+ (name (ert-test-name (ert-running-test)))
+ (temp-file (make-temp-file "erc-term-test-"))
+ (cmd `(let ((stats 1))
+ (setq enable-dir-local-variables nil)
+ (unwind-protect
+ (setq stats (ert-run-tests-batch ',name))
+ (unless ',debug
+ (let ((buf (with-current-buffer (messages-buffer)
+ (buffer-string))))
+ (with-temp-file ,temp-file
+ (insert buf)))
+ (kill-emacs (ert-stats-completed-unexpected stats))))))
+ ;; `ert-test' object in Emacs 29 has a `file-name' field
+ (file-name (symbol-file name 'ert--test))
+ (default-directory (expand-file-name (file-name-directory file-name)))
+ (package (if-let* ((found (getenv "ERC_PACKAGE_NAME"))
+ ((string-prefix-p "erc-" found)))
+ (intern found)
+ 'erc))
+ (setup (and (featurep 'compat)
+ `(progn
+ (require 'package)
+ (let ((package-load-list '((compat t) (,package t))))
+ (package-initialize)))))
+ ;; Make subprocess terminal bigger than controlling.
+ (buf (cl-letf (((symbol-function 'window-screen-lines)
+ (lambda () 20))
+ ((symbol-function 'window-max-chars-per-line)
+ (lambda () 40)))
+ (make-term (symbol-name name) emacs nil "-Q" "-nw"
+ "-eval" (prin1-to-string setup)
+ "-l" file-name "-eval" (format "%S" cmd))))
+ (proc (get-buffer-process buf))
+ (err (lambda ()
+ (with-temp-buffer
+ (insert-file-contents temp-file)
+ (message "Subprocess: %s" (buffer-string))
+ (delete-file temp-file)))))
+ (with-current-buffer buf
+ (set-process-query-on-exit-flag proc nil)
+ (with-timeout (10 (funcall err) (error "Timed out awaiting result"))
+ (while (process-live-p proc)
+ (accept-process-output proc 0.1)))
+ (while (accept-process-output proc))
+ (goto-char (point-min))
+ ;; Otherwise gives process exited abnormally with exit-code >0
+ (unless (search-forward (format "Process %s finished" name) nil t)
+ (funcall err)
+ (ert-fail (when (search-forward "exited" nil t)
+ (buffer-substring-no-properties (line-beginning-position)
+ (line-end-position)))))
+ (delete-file temp-file)
+ (when noninteractive
+ (kill-buffer)))))
+
+(defun erc-tests--servars (source &rest vars)
+ (unless (bufferp source)
+ (setq source (get-buffer source)))
+ (dolist (var vars)
+ (should (local-variable-if-set-p var))
+ (set var (buffer-local-value var source))))
+
+(defun erc-tests--erc-reuse-frames (test &optional debug)
+ (if (and (or debug noninteractive) (not (getenv "ERC_TESTS_SUBPROCESS")))
+ (progn
+ (when (memq system-type '(windows-nt ms-dos))
+ (ert-skip "System must be UNIX"))
+ (erc-tests--run-in-term debug))
+ (should-not erc-frame-dedicated-flag)
+ (should (eq erc-reuse-frames t))
+ (let ((erc-join-buffer 'frame)
+ (erc-reuse-frames t)
+ (erc-frame-alist nil)
+ (orig-frame (selected-frame))
+ erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+ (delete-other-frames)
+ (delete-other-windows)
+ (set-window-buffer (selected-window) "*scratch*")
+ (funcall test orig-frame)
+ (delete-other-frames orig-frame)
+ (delete-other-windows))))
+
+;; TODO add cases for frame-display behavior while reconnecting
+
+(defun erc-tests--erc-reuse-frames--t (_)
+ (ert-info ("New server buffer creates and raises second frame")
+ (with-current-buffer (generate-new-buffer "server")
+ (erc-mode)
+ (setq erc-server-process (start-process "server"
+ (current-buffer) "sleep" "10")
+ erc-frame-alist (cons '(name . "server") default-frame-alist)
+ erc-network 'foonet
+ erc-networks--id (erc-networks--id-create nil)
+ erc--server-last-reconnect-count 0)
+ (set-process-buffer erc-server-process (current-buffer))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ (should (equal "server" (frame-parameter (window-frame) 'name)))
+ (should (get-buffer-window (current-buffer) t))))
+
+ (ert-info ("New channel creates and raises third frame")
+ (with-current-buffer (generate-new-buffer "#chan")
+ (erc-mode)
+ (erc-tests--servars "server" 'erc-server-process 'erc-networks--id
+ 'erc-network)
+ (setq erc-frame-alist (cons '(name . "#chan") default-frame-alist)
+ erc-default-recipients '("#chan"))
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ (should (equal "#chan" (frame-parameter (window-frame) 'name)))
+ (should (get-buffer-window (current-buffer) t))
+ (should (cddr (frame-list))))))
+
+(ert-deftest erc-reuse-frames--t ()
+ :tags '(:unstable :expensive-test)
+ (erc-tests--erc-reuse-frames
+ (lambda (orig-frame)
+ (erc-tests--erc-reuse-frames--t orig-frame)
+ (dolist (b '("server" "#chan"))
+ (kill-buffer b)))))
+
+(defun erc-tests--erc-reuse-frames--displayed-single (_ server-name chan-name)
+
+ (should (eq erc-reuse-frames 'displayed))
+
+ (ert-info ("New server buffer shown in existing frame")
+ (with-current-buffer (generate-new-buffer server-name)
+ (erc-mode)
+ (setq erc-server-process (start-process server-name (current-buffer)
+ "sleep" "10")
+ erc-frame-alist (cons `(name . ,server-name) default-frame-alist)
+ erc-network (make-symbol server-name)
+ erc-server-current-nick "tester"
+ erc-networks--id (erc-networks--id-create nil)
+ erc--server-last-reconnect-count 0)
+ (set-process-buffer erc-server-process (current-buffer))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ (should-not (equal server-name (frame-parameter (window-frame) 'name)))
+ ;; New server buffer window appears in split below ERT/scratch
+ (should (get-buffer-window (current-buffer) t))))
+
+ (ert-info ("New channel shown in existing frame")
+ (with-current-buffer (generate-new-buffer chan-name)
+ (erc-mode)
+ (erc-tests--servars server-name 'erc-server-process 'erc-networks--id
+ 'erc-network)
+ (setq erc-frame-alist (cons `(name . ,chan-name) default-frame-alist)
+ erc-default-recipients (list chan-name))
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ (should-not (equal chan-name (frame-parameter (window-frame) 'name)))
+ ;; New channel buffer replaces server in lower window
+ (should (get-buffer-window (current-buffer) t))
+ (should-not (get-buffer-window server-name t)))))
+
+(ert-deftest erc-reuse-frames--displayed-single ()
+ :tags '(:unstable :expensive-test)
+ (erc-tests--erc-reuse-frames
+ (lambda (orig-frame)
+ (let ((erc-reuse-frames 'displayed))
+ (erc-tests--erc-reuse-frames--displayed-single orig-frame
+ "server" "#chan")
+ (should-not (cdr (frame-list))))
+ (dolist (b '("server" "#chan"))
+ (kill-buffer b)))))
+
+(defun erc-tests--assert-server-split (buffer-or-name frame-name)
+ ;; Assert current buffer resides on one side of a horizontal split
+ ;; in the "server" frame but is not selected.
+ (let* ((buffer-window (get-buffer-window buffer-or-name t))
+ (buffer-frame (window-frame buffer-window)))
+ (should (equal frame-name (frame-parameter buffer-frame 'name)))
+ (should (memq buffer-window (car-safe (window-tree buffer-frame))))
+ (should-not (eq buffer-window (frame-selected-window)))
+ buffer-frame))
+
+(defun erc-tests--erc-reuse-frames--displayed-double (_)
+ (should (eq erc-reuse-frames 'displayed))
+
+ (make-frame '((name . "other")))
+ (select-frame (make-frame '((name . "server"))) 'no-record)
+ (set-window-buffer (selected-window) "*scratch*") ; invokes `erc'
+
+ ;; A user invokes an entry point and switches immediately to a new
+ ;; frame before autojoin kicks in (bug#55540).
+
+ (ert-info ("New server buffer shown in selected frame")
+ (with-current-buffer (generate-new-buffer "server")
+ (erc-mode)
+ (setq erc-server-process (start-process "server" (current-buffer)
+ "sleep" "10")
+ erc-network 'foonet
+ erc-server-current-nick "tester"
+ erc-networks--id (erc-networks--id-create nil)
+ erc--server-last-reconnect-count 0)
+ (set-process-buffer erc-server-process (current-buffer))
+ (set-process-query-on-exit-flag erc-server-process nil)
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ (should (equal "server" (frame-parameter (window-frame) 'name)))
+ (should (get-buffer-window (current-buffer) t))))
+
+ (select-frame-by-name "other")
+
+ (ert-info ("New channel shown in dedicated frame")
+ (with-current-buffer (generate-new-buffer "#chan")
+ (erc-mode)
+ (erc-tests--servars "server" 'erc-server-process 'erc-networks--id
+ 'erc-network)
+ (setq erc-frame-alist (cons '(name . "#chan") default-frame-alist)
+ erc-default-recipients '("#chan"))
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ (erc-tests--assert-server-split (current-buffer) "server")
+ ;; New channel buffer replaces server in lower window of other frame
+ (should-not (get-buffer-window "server" t)))))
+
+(ert-deftest erc-reuse-frames--displayed-double ()
+ :tags '(:unstable :expensive-test)
+ (erc-tests--erc-reuse-frames
+ (lambda (orig-frame)
+ (let ((erc-reuse-frames 'displayed))
+ (erc-tests--erc-reuse-frames--displayed-double orig-frame))
+ (dolist (b '("server" "#chan"))
+ (kill-buffer b)))))
+
+;; If a frame showing ERC buffers exists among other frames, new,
+;; additional connections will use the existing IRC frame. However,
+;; if two or more frames exist with ERC buffers unique to a particular
+;; connection, the correct frame will be found.
+
+(defun erc-tests--erc-reuse-frames--displayed-full (orig-frame)
+ (erc-tests--erc-reuse-frames--displayed-double orig-frame)
+ ;; Server buffer is not displayed because #chan has replaced it in
+ ;; the "server" frame, which is not selected.
+ (should (equal "other" (frame-parameter (window-frame) 'name)))
+ (erc-tests--erc-reuse-frames--displayed-single orig-frame "ircd" "#spam")
+ (should (equal "other" (frame-parameter (window-frame) 'name)))
+
+ ;; Buffer "#spam" has replaced "ircd", which earlier replaced
+ ;; "#chan" in frame "server". But this is confusing, so...
+ (ert-info ("Arrange windows for second connection in other frame")
+ (set-window-buffer (selected-window) "ircd")
+ (split-window-below)
+ (set-window-buffer (next-window) "#spam")
+ (should (equal (cddar (window-tree))
+ (list (get-buffer-window "ircd" t)
+ (get-buffer-window "#spam" t)))))
+
+ (ert-info ("Arrange windows for first connection in server frame")
+ (select-frame-by-name "server")
+ (set-window-buffer (selected-window) "server")
+ (set-window-buffer (next-window) "#chan")
+ (should (equal (cddar (window-tree))
+ (list (get-buffer-window "server" t)
+ (get-buffer-window "#chan" t)))))
+
+ ;; Select original ERT frame
+ (ert-info ("New target for connection server finds appropriate frame")
+ (select-frame orig-frame 'no-record)
+ (with-current-buffer (window-buffer (selected-window))
+ (should (member (buffer-name) '("*ert*" "*scratch*")))
+ (with-current-buffer (generate-new-buffer "alice")
+ (erc-mode)
+ (erc-tests--servars "server" 'erc-server-process 'erc-networks--id)
+ (setq erc-default-recipients '("alice"))
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ ;; Window created in frame "server"
+ (should (eq (selected-frame) orig-frame))
+ (erc-tests--assert-server-split (current-buffer) "server"))))
+
+ (ert-info ("New target for connection ircd finds appropriate frame")
+ (select-frame orig-frame 'no-record)
+ (with-current-buffer (window-buffer (selected-window))
+ (should (member (buffer-name) '("*ert*" "*scratch*")))
+ (with-current-buffer (generate-new-buffer "bob")
+ (erc-mode)
+ (erc-tests--servars "ircd" 'erc-server-process 'erc-networks--id)
+ (setq erc-default-recipients '("bob"))
+ (should-not (get-buffer-window (current-buffer) t))
+ (erc-setup-buffer (current-buffer))
+ ;; Window created in frame "other"
+ (should (eq (selected-frame) orig-frame))
+ (erc-tests--assert-server-split (current-buffer) "other")))))
+
+(ert-deftest erc-reuse-frames--displayed-full ()
+ :tags '(:unstable :expensive-test)
+ (erc-tests--erc-reuse-frames
+ (lambda (orig-frame)
+ (let ((erc-reuse-frames 'displayed))
+ (erc-tests--erc-reuse-frames--displayed-full orig-frame))
+ (dolist (b '("server" "ircd" "bob" "alice" "#spam" "#chan"))
+ (kill-buffer b)))))
+
(ert-deftest erc-lurker-maybe-trim ()
(let (erc-lurker-trim-nicks
(erc-lurker-ignore-chars "_`"))
@@ -447,6 +934,27 @@
(should (equal (erc-downcase "Tilde~") "tilde~" ))
(should (equal (erc-downcase "\\O/") "|o/" )))))
+(ert-deftest erc-channel-p ()
+ (let ((erc--isupport-params (make-hash-table))
+ erc-server-parameters)
+
+ (should (erc-channel-p "#chan"))
+ (should (erc-channel-p "##chan"))
+ (should (erc-channel-p "&chan"))
+ (should (erc-channel-p "+chan"))
+ (should (erc-channel-p "!chan"))
+ (should-not (erc-channel-p "@chan"))
+
+ (push '("CHANTYPES" . "#&@+!") erc-server-parameters)
+
+ (should (erc-channel-p "!chan"))
+ (should (erc-channel-p "#chan"))
+
+ (with-current-buffer (get-buffer-create "#chan")
+ (setq erc--target (erc--target-from-string "#chan")))
+ (should (erc-channel-p (get-buffer "#chan"))))
+ (kill-buffer "#chan"))
+
(ert-deftest erc--valid-local-channel-p ()
(ert-info ("Local channels not supported")
(let ((erc--isupport-params (make-hash-table)))
@@ -459,6 +967,21 @@
(should-not (erc--valid-local-channel-p "#chan"))
(should (erc--valid-local-channel-p "&local")))))
+(ert-deftest erc--restore-initialize-priors ()
+ ;; This `pcase' expands to 100+k. Guess we could do something like
+ ;; (and `(,_ ((,e . ,_) . ,_) . ,_) v) first and then return a
+ ;; (equal `(if-let* ((,e ...)...)...) v) to cut it down to < 1k.
+ (should (pcase (macroexpand-1 '(erc--restore-initialize-priors erc-my-mode
+ foo (ignore 1 2 3)
+ bar #'spam))
+ (`(if-let* ((,e (or erc--server-reconnecting erc--target-priors))
+ ((alist-get 'erc-my-mode ,e)))
+ (setq foo (alist-get 'foo ,e)
+ bar (alist-get 'bar ,e))
+ (setq foo (ignore 1 2 3)
+ bar #'spam))
+ t))))
+
(ert-deftest erc--target-from-string ()
(should (equal (erc--target-from-string "#chan")
#s(erc--target-channel "#chan" \#chan)))
@@ -471,6 +994,50 @@
(should (equal (erc--target-from-string "&Bitlbee")
#s(erc--target-channel-local "&Bitlbee" &bitlbee)))))
+(ert-deftest erc--modify-local-map ()
+ (when (and (bound-and-true-p erc-irccontrols-mode)
+ (fboundp 'erc-irccontrols-mode))
+ (erc-irccontrols-mode -1))
+ (when (and (bound-and-true-p erc-match-mode)
+ (fboundp 'erc-match-mode))
+ (erc-match-mode -1))
+ (let* (calls
+ (inhibit-message noninteractive)
+ (cmd-foo (lambda () (interactive) (push 'foo calls)))
+ (cmd-bar (lambda () (interactive) (push 'bar calls))))
+
+ (ert-info ("Add non-existing")
+ (erc--modify-local-map t "C-c C-c" cmd-foo "C-c C-k" cmd-bar)
+ (with-temp-buffer
+ (set-window-buffer (selected-window) (current-buffer))
+ (use-local-map erc-mode-map)
+ (execute-kbd-macro "\C-c\C-c")
+ (execute-kbd-macro "\C-c\C-k"))
+ (should (equal calls '(bar foo))))
+ (setq calls nil)
+
+ (ert-info ("Add existing") ; Attempt to swap definitions fails
+ (erc--modify-local-map t "C-c C-c" cmd-bar "C-c C-k" cmd-foo)
+ (with-temp-buffer
+ (set-window-buffer (selected-window) (current-buffer))
+ (use-local-map erc-mode-map)
+ (execute-kbd-macro "\C-c\C-c")
+ (execute-kbd-macro "\C-c\C-k"))
+ (should (equal calls '(bar foo))))
+ (setq calls nil)
+
+ (ert-info ("Remove existing")
+ (ert-with-message-capture messages
+ (erc--modify-local-map nil "C-c C-c" cmd-foo "C-c C-k" cmd-bar)
+ (with-temp-buffer
+ (set-window-buffer (selected-window) (current-buffer))
+ (use-local-map erc-mode-map)
+ (execute-kbd-macro "\C-c\C-c")
+ (execute-kbd-macro "\C-c\C-k"))
+ (should (string-search "C-c C-c is undefined" messages))
+ (should (string-search "C-c C-k is undefined" messages))
+ (should-not calls)))))
+
(ert-deftest erc-ring-previous-command-base-case ()
(ert-info ("Create ring when nonexistent and do nothing")
(let (erc-input-ring
@@ -489,13 +1056,13 @@
(should-not (local-variable-if-set-p 'erc-send-completed-hook))
(set (make-local-variable 'erc-send-completed-hook) nil) ; skip t (globals)
;; Just in case erc-ring-mode is already on
- (setq-local erc-pre-send-functions nil)
- (add-hook 'erc-pre-send-functions #'erc-add-to-input-ring)
+ (setq-local erc--input-review-functions nil)
+ (add-hook 'erc--input-review-functions #'erc-add-to-input-ring)
;;
(cl-letf (((symbol-function 'erc-process-input-line)
(lambda (&rest _)
- (insert-before-markers
- (erc-display-message-highlight 'notice "echo: one\n"))))
+ (erc-display-message
+ nil 'notice (current-buffer) "echo: one\n")))
((symbol-function 'erc-command-no-process-p)
(lambda (&rest _) t)))
(ert-info ("Create ring, populate, recall")
@@ -591,6 +1158,48 @@
(kill-buffer "*erc-protocol*")
(should-not erc-debug-irc-protocol)))
+(ert-deftest erc--split-line ()
+ (let ((erc-default-recipients '("#chan"))
+ (erc-split-line-length 10))
+ (should (equal (erc--split-line "") '("")))
+ (should (equal (erc--split-line "0123456789") '("0123456789")))
+ (should (equal (erc--split-line "0123456789a") '("0123456789" "a")))
+
+ (should (equal (erc--split-line "0123456789 ") '("0123456789" " ")))
+ (should (equal (erc--split-line "01234567 89") '("01234567 " "89")))
+ (should (equal (erc--split-line "0123456 789") '("0123456 " "789")))
+ (should (equal (erc--split-line "0 123456789") '("0 " "123456789")))
+ (should (equal (erc--split-line " 0123456789") '(" " "0123456789")))
+ (should (equal (erc--split-line "012345678 9a") '("012345678 " "9a")))
+ (should (equal (erc--split-line "0123456789 a") '("0123456789" " a")))
+
+ ;; UTF-8 vs. KOI-8
+ (should (= 10 (string-bytes "Русск"))) ; utf-8
+ (should (equal (erc--split-line "Русск") '("Русск")))
+ (should (equal (erc--split-line "РусскийТекст") '("Русск" "ийТек" "ст")))
+ (should (equal (erc--split-line "Русский Текст") '("Русск" "ий " "Текст")))
+ (let ((erc-encoding-coding-alist '(("#chan" . cyrillic-koi8))))
+ (should (equal (erc--split-line "Русск") '("Русск")))
+ (should (equal (erc--split-line "РусскийТекст") '("РусскийТек" "ст")))
+ (should (equal (erc--split-line "Русский Текст") '("Русский " "Текст"))))
+
+ ;; UTF-8 vs. Latin 1
+ (should (= 17 (string-bytes "Hyvää päivää")))
+ (should (equal (erc--split-line "Hyvää päivää") '("Hyvää " "päivää")))
+ (should (equal (erc--split-line "HyvääPäivää") '("HyvääPä" "ivää")))
+ (let ((erc-encoding-coding-alist '(("#chan" . latin-1))))
+ (should (equal (erc--split-line "Hyvää päivää") '("Hyvää " "päivää")))
+ (should (equal (erc--split-line "HyvääPäivää") '("HyvääPäivä" "ä"))))
+
+ ;; Combining characters
+ (should (= 10 (string-bytes "Åström")))
+ (should (equal (erc--split-line "_Åström") '("_Åströ" "m")))
+ (should (equal (erc--split-line "__Åström") '("__Åstr" "öm")))
+ (should (equal (erc--split-line "___Åström") '("___Åstr" "öm")))
+ (when (> emacs-major-version 27)
+ (should (equal (erc--split-line "🏁🚩🎌🏴🏳️🏳️🌈🏳️⚧️🏴☠️")
+ '("🏁🚩" "🎌🏴" "🏳️" "🏳️🌈" "🏳️⚧️" "🏴☠️"))))))
+
(ert-deftest erc--input-line-delim-regexp ()
(let ((p erc--input-line-delim-regexp))
;; none
@@ -661,7 +1270,9 @@
(defun erc-tests--with-process-input-spy (test)
(with-current-buffer (get-buffer-create "FakeNet")
- (let* ((erc-pre-send-functions
+ (let* ((erc--input-review-functions
+ (remove #'erc-add-to-input-ring erc--input-review-functions))
+ (erc-pre-send-functions
(remove #'erc-add-to-input-ring erc-pre-send-functions)) ; for now
(inhibit-message noninteractive)
(erc-server-current-nick "tester")
@@ -728,8 +1339,9 @@
(ert-info ("Input cleared")
(erc-bol)
(should (eq (point) (point-max))))
- ;; Commands are forced (no flood protection)
- (should (equal (funcall next) '("/msg #chan hi\n" t nil))))
+ ;; The `force' argument is irrelevant here because it can't
+ ;; influence dispatched handlers, such as `erc-cmd-MSG'.
+ (should (pcase (funcall next) (`("/msg #chan hi\n" ,_ nil) t))))
(ert-info ("Simple non-command")
(insert "hi")
@@ -737,7 +1349,8 @@
(should (eq (point) (point-max)))
(should (save-excursion (forward-line -1)
(search-forward "<tester> hi")))
- ;; Non-ommands are forced only when `erc-flood-protect' is nil
+ ;; Non-commands are forced only when `erc-flood-protect' is
+ ;; nil, which conflates two orthogonal concerns.
(should (equal (funcall next) '("hi\n" nil t))))
(should (consp erc-last-input-time)))))
@@ -783,15 +1396,23 @@
(pcase-dolist (`(,p . ,q)
'(("/a b\r" "/a b\n") ("/a b\n" "/a b\n")
("/a b\n\n" "/a b\n") ("/a b\r\n" "/a b\n")
- ("a b\nc\n\n" "c\n" "a b\n")
- ("/a b\nc\n\n" "c\n" "/a b\n")
- ("/a b\n\nc\n\n" "c\n" "\n" "/a b\n")))
+ ("/a b\n\n\n" "/a b\n")))
(insert p)
(erc-send-current-line)
(erc-bol)
(should (eq (point) (point-max)))
(while q
- (should (equal (funcall next) (list (pop q) nil t))))
+ (should (pcase (funcall next)
+ (`(,cmd ,_ nil) (equal cmd (pop q))))))
+ (should-not (funcall next))))
+
+ (ert-info ("Multiline command with non-blanks errors")
+ (dolist (p '("/a b\nc\n\n" "/a b\n/c\n\n" "/a b\n\nc\n\n"
+ "/a\n c\n" "/a\nb\n" "/a\n/b\n" "/a \n \n"))
+ (insert p)
+ (should-error (erc-send-current-line))
+ (goto-char erc-input-marker)
+ (delete-region (point) (point-max))
(should-not (funcall next))))
(ert-info ("Multiline hunk with trailing whitespace not filtered")
@@ -809,13 +1430,14 @@
(ert-info ("With `erc-inhibit-multiline-input' as t (2)")
(let ((erc-inhibit-multiline-input t))
(should-not (erc--check-prompt-input-for-excess-lines "" '("a")))
- (should-not (erc--check-prompt-input-for-excess-lines "" '("a" "")))
+ ;; Does not trim trailing blanks.
+ (should (erc--check-prompt-input-for-excess-lines "" '("a" "")))
(should (erc--check-prompt-input-for-excess-lines "" '("a" "b")))))
(ert-info ("With `erc-inhibit-multiline-input' as 3")
(let ((erc-inhibit-multiline-input 3))
(should-not (erc--check-prompt-input-for-excess-lines "" '("a" "b")))
- (should-not (erc--check-prompt-input-for-excess-lines "" '("a" "b" "")))
+ (should (erc--check-prompt-input-for-excess-lines "" '("a" "b" "")))
(should (erc--check-prompt-input-for-excess-lines "" '("a" "b" "c")))))
(ert-info ("With `erc-ask-about-multiline-input'")
@@ -836,14 +1458,12 @@
(erc-default-recipients '("#chan"))
calls)
(with-temp-buffer
+ (erc-tests--set-fake-server-process "sleep" "1")
(cl-letf (((symbol-function 'erc-cmd-MSG)
(lambda (line)
(push line calls)
+ (should erc--called-as-input-p)
(funcall orig-erc-cmd-MSG line)))
- ((symbol-function 'erc-server-buffer)
- (lambda () (current-buffer)))
- ((symbol-function 'erc-server-process-alive)
- (lambda () t))
((symbol-function 'erc-server-send-queue)
#'ignore))
@@ -896,6 +1516,94 @@
(should-not calls))))))
+
+;; The behavior of `erc-pre-send-functions' differs between versions
+;; in how hook members see and influence a trailing newline that's
+;; part of the original prompt submission:
+;;
+;; 5.4: both seen and sent
+;; 5.5: seen but not sent*
+;; 5.6: neither seen nor sent*
+;;
+;; * requires `erc-send-whitespace-lines' for hook to run
+;;
+;; Two aspects that have remained consistent are
+;;
+;; - a final nonempty line in any submission is always sent
+;; - a trailing newline appended by a hook member is always sent
+;;
+;; The last bullet would seem to contradict the "not sent" behavior of
+;; 5.5 and 5.6, but what's actually happening is that exactly one
+;; trailing newline is culled, so anything added always goes through.
+;; Also, in ERC 5.6, all empty lines are actually padded, but this is
+;; merely incidental WRT the above.
+;;
+;; Note that this test doesn't run any input-prep hooks and thus can't
+;; account for the "seen" dimension noted above.
+
+(ert-deftest erc--run-send-hooks ()
+ (with-suppressed-warnings ((obsolete erc-send-this)
+ (obsolete erc-send-pre-hook))
+ (should erc-insert-this)
+ (should erc-send-this) ; populates `erc--input-split-sendp'
+
+ (let (erc-pre-send-functions erc-send-pre-hook)
+
+ (ert-info ("String preserved, lines rewritten, empties padded")
+ (setq erc-pre-send-functions
+ (lambda (o) (setf (erc-input-string o) "bar\n\nbaz\n")))
+ (should (pcase (erc--run-send-hooks (make-erc--input-split
+ :string "foo" :lines '("foo")))
+ ((cl-struct erc--input-split
+ (string "foo") (sendp 't) (insertp 't)
+ (lines '("bar" " " "baz" " ")) (cmdp 'nil))
+ t))))
+
+ (ert-info ("Multiline commands rejected")
+ (should-error (erc--run-send-hooks (make-erc--input-split
+ :string "/mycmd foo"
+ :lines '("/mycmd foo")
+ :cmdp t))))
+
+ (ert-info ("Single-line commands pass")
+ (setq erc-pre-send-functions
+ (lambda (o) (setf (erc-input-sendp o) nil
+ (erc-input-string o) "/mycmd bar")))
+ (should (pcase (erc--run-send-hooks (make-erc--input-split
+ :string "/mycmd foo"
+ :lines '("/mycmd foo")
+ :cmdp t))
+ ((cl-struct erc--input-split
+ (string "/mycmd foo") (sendp 'nil) (insertp 't)
+ (lines '("/mycmd bar")) (cmdp 't))
+ t))))
+
+ (ert-info ("Legacy hook respected, special vars confined")
+ (setq erc-send-pre-hook (lambda (_) (setq erc-send-this nil))
+ erc-pre-send-functions (lambda (o) ; propagates
+ (should-not (erc-input-sendp o))))
+ (should (pcase (erc--run-send-hooks (make-erc--input-split
+ :string "foo" :lines '("foo")))
+ ((cl-struct erc--input-split
+ (string "foo") (sendp 'nil) (insertp 't)
+ (lines '("foo")) (cmdp 'nil))
+ t)))
+ (should erc-send-this))
+
+ (ert-info ("Request to resplit honored")
+ (setq erc-send-pre-hook nil
+ erc-pre-send-functions
+ (lambda (o) (setf (erc-input-string o) "foo bar baz"
+ (erc-input-refoldp o) t)))
+ (let ((erc-split-line-length 8))
+ (should
+ (pcase (erc--run-send-hooks (make-erc--input-split
+ :string "foo" :lines '("foo")))
+ ((cl-struct erc--input-split
+ (string "foo") (sendp 't) (insertp 't)
+ (lines '("foo bar " "baz")) (cmdp 'nil))
+ t))))))))
+
;; Note: if adding an erc-backend-tests.el, please relocate this there.
(ert-deftest erc-message ()
@@ -999,32 +1707,67 @@
(should (string-match erc--server-connect-dumb-ipv6-regexp
(concat "[" a "]")))))
+(ert-deftest erc--with-entrypoint-environment ()
+ (let ((env '((erc-join-buffer . foo)
+ (erc-server-connect-function . bar))))
+ (erc--with-entrypoint-environment env
+ (should (eq erc-join-buffer 'foo))
+ (should (eq erc-server-connect-function 'bar)))))
+
(ert-deftest erc-select-read-args ()
- (ert-info ("Does not default to TLS")
- (should (equal (ert-simulate-keys "\r\r\r\r"
+ (ert-info ("Prompts for switch to TLS by default")
+ (should (equal (ert-simulate-keys "\r\r\r\ry\r"
(erc-select-read-args))
(list :server "irc.libera.chat"
- :port 6667
+ :port 6697
+ :nick (user-login-name)
+ '&interactive-env
+ '((erc-server-connect-function . erc-open-tls-stream)
+ (erc-join-buffer . window))))))
+
+ (ert-info ("Switches to TLS when port matches default TLS port")
+ (should (equal (ert-simulate-keys "irc.gnu.org\r6697\r\r\r"
+ (erc-select-read-args))
+ (list :server "irc.gnu.org"
+ :port 6697
+ :nick (user-login-name)
+ '&interactive-env
+ '((erc-server-connect-function . erc-open-tls-stream)
+ (erc-join-buffer . window))))))
+
+ (ert-info ("Switches to TLS when URL is ircs://")
+ (should (equal (ert-simulate-keys "ircs://irc.gnu.org\r\r\r\r"
+ (erc-select-read-args))
+ (list :server "irc.gnu.org"
+ :port 6697
:nick (user-login-name)
- :password nil))))
+ '&interactive-env
+ '((erc-server-connect-function . erc-open-tls-stream)
+ (erc-join-buffer . window))))))
+
+ (setq-local erc-interactive-display nil) ; cheat to save space
+
+ (ert-info ("Opt out of non-TLS warning manually")
+ (should (equal (ert-simulate-keys "\r\r\r\rn\r"
+ (erc-select-read-args))
+ (list :server "irc.libera.chat"
+ :port 6667
+ :nick (user-login-name)))))
(ert-info ("Override default TLS")
(should (equal (ert-simulate-keys "irc://irc.libera.chat\r\r\r\r"
(erc-select-read-args))
(list :server "irc.libera.chat"
:port 6667
- :nick (user-login-name)
- :password nil))))
+ :nick (user-login-name)))))
(ert-info ("Address includes port")
- (should (equal (ert-simulate-keys
- "localhost:6667\rnick\r\r"
+ (should (equal (ert-simulate-keys "localhost:6667\rnick\r\r"
(erc-select-read-args))
(list :server "localhost"
:port 6667
- :nick "nick"
- :password nil))))
+ :nick "nick"))))
(ert-info ("Address includes nick, password skipped via option")
(should (equal (ert-simulate-keys "nick@localhost:6667\r"
@@ -1032,8 +1775,7 @@
(erc-select-read-args)))
(list :server "localhost"
:port 6667
- :nick "nick"
- :password nil))))
+ :nick "nick"))))
(ert-info ("Address includes nick and password")
(should (equal (ert-simulate-keys "nick:sesame@localhost:6667\r\r"
@@ -1048,37 +1790,53 @@
(erc-select-read-args))
(list :server "[::1]"
:port 6667
- :nick (user-login-name)
- :password nil))))
+ :nick (user-login-name)))))
(ert-info ("IPv6 address with port")
(should (equal (ert-simulate-keys "[::1]:6667\r\r\r"
(erc-select-read-args))
(list :server "[::1]"
:port 6667
- :nick (user-login-name)
- :password nil))))
+ :nick (user-login-name)))))
(ert-info ("IPv6 address includes nick")
(should (equal (ert-simulate-keys "nick@[::1]:6667\r\r"
(erc-select-read-args))
(list :server "[::1]"
+ :port 6667
+ :nick "nick"))))
+
+ (ert-info ("Extra args use URL nick by default")
+ (should (equal (ert-simulate-keys "nick:sesame@localhost:6667\r\r\r\r"
+ (let ((current-prefix-arg '(4)))
+ (erc-select-read-args)))
+ (list :server "localhost"
:port 6667
:nick "nick"
- :password nil)))))
+ :user "nick"
+ :password "sesame"
+ :full-name "nick")))))
(ert-deftest erc-tls ()
- (let (calls)
+ (let (calls env)
(cl-letf (((symbol-function 'user-login-name)
(lambda (&optional _) "tester"))
((symbol-function 'erc-open)
- (lambda (&rest r) (push r calls))))
+ (lambda (&rest r)
+ (push `((erc-join-buffer ,erc-join-buffer)
+ (erc-server-connect-function
+ ,erc-server-connect-function))
+ env)
+ (push r calls))))
(ert-info ("Defaults")
(erc-tls)
(should (equal (pop calls)
'("irc.libera.chat" 6697 "tester" "unknown" t
- nil nil nil nil nil "user" nil))))
+ nil nil nil nil nil "user" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer bury)
+ (erc-server-connect-function erc-open-tls-stream)))))
(ert-info ("Full")
(erc-tls :server "irc.gnu.org"
@@ -1091,7 +1849,10 @@
:id 'GNU.org)
(should (equal (pop calls)
'("irc.gnu.org" 7000 "bob" "Bob's Name" t
- "bob:changeme" nil nil nil t "bobo" GNU.org))))
+ "bob:changeme" nil nil nil t "bobo" GNU.org)))
+ (should (equal (pop env)
+ '((erc-join-buffer bury)
+ (erc-server-connect-function erc-open-tls-stream)))))
;; Values are often nil when called by lisp code, which leads to
;; null params. This is why `erc-open' recomputes almost
@@ -1107,7 +1868,92 @@
:password "bob:changeme"))
(should (equal (pop calls)
'(nil 7000 nil "Bob's Name" t
- "bob:changeme" nil nil nil nil "bobo" nil)))))))
+ "bob:changeme" nil nil nil nil "bobo" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer bury)
+ (erc-server-connect-function erc-open-tls-stream)))))
+
+ (ert-info ("Interactive")
+ (ert-simulate-keys "nick:sesame@localhost:6667\r\r"
+ (call-interactively #'erc-tls))
+ (should (equal (pop calls)
+ '("localhost" 6667 "nick" "unknown" t "sesame"
+ nil nil nil nil "user" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer window)
+ (erc-server-connect-function erc-open-tls-stream)))))
+
+ (ert-info ("Custom connect function")
+ (let ((erc-server-connect-function 'my-connect-func))
+ (erc-tls)
+ (should (equal (pop calls)
+ '("irc.libera.chat" 6697 "tester" "unknown" t
+ nil nil nil nil nil "user" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer bury)
+ (erc-server-connect-function my-connect-func))))))
+
+ (ert-info ("Advised default function overlooked") ; intentional
+ (advice-add 'erc-server-connect-function :around #'ignore
+ '((name . erc-tests--erc-tls)))
+ (erc-tls)
+ (should (equal (pop calls)
+ '("irc.libera.chat" 6697 "tester" "unknown" t
+ nil nil nil nil nil "user" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer bury)
+ (erc-server-connect-function erc-open-tls-stream))))
+ (advice-remove 'erc-server-connect-function 'erc-tests--erc-tls))
+
+ (ert-info ("Advised non-default function honored")
+ (let ((f (lambda (&rest r) (ignore r))))
+ (cl-letf (((symbol-value 'erc-server-connect-function) f))
+ (advice-add 'erc-server-connect-function :around #'ignore
+ '((name . erc-tests--erc-tls)))
+ (erc-tls)
+ (should (equal (pop calls)
+ '("irc.libera.chat" 6697 "tester" "unknown" t
+ nil nil nil nil nil "user" nil)))
+ (should (equal (pop env) `((erc-join-buffer bury)
+ (erc-server-connect-function ,f))))
+ (advice-remove 'erc-server-connect-function
+ 'erc-tests--erc-tls)))))))
+
+;; See `erc-select-read-args' above for argument parsing.
+;; This only tests the "hidden" arguments.
+
+(ert-deftest erc--interactive ()
+ (let (calls env)
+ (cl-letf (((symbol-function 'user-login-name)
+ (lambda (&optional _) "tester"))
+ ((symbol-function 'erc-open)
+ (lambda (&rest r)
+ (push `((erc-join-buffer ,erc-join-buffer)
+ (erc-server-connect-function
+ ,erc-server-connect-function))
+ env)
+ (push r calls))))
+
+ (ert-info ("Default click-through accept TLS upgrade")
+ (ert-simulate-keys "\r\r\r\ry\r"
+ (call-interactively #'erc))
+ (should (equal (pop calls)
+ '("irc.libera.chat" 6697 "tester" "unknown" t nil
+ nil nil nil nil "user" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer window) (erc-server-connect-function
+ erc-open-tls-stream)))))
+
+ (ert-info ("Nick supplied, decline TLS upgrade")
+ (ert-simulate-keys "\r\rdummy\r\rn\r"
+ (call-interactively #'erc))
+ (should (equal (pop calls)
+ '("irc.libera.chat" 6667 "dummy" "unknown" t nil
+ nil nil nil nil "user" nil)))
+ (should (equal (pop env)
+ '((erc-join-buffer window)
+ (erc-server-connect-function
+ erc-open-network-stream))))))))
(defun erc-tests--make-server-buf (name)
(with-current-buffer (get-buffer-create name)
@@ -1203,27 +2049,150 @@
(kill-buffer "baznet")
(kill-buffer "#chan")))
+(defconst erc-tests--modules
+ '( autoaway autojoin button capab-identify completion dcc fill identd
+ imenu irccontrols keep-place list log match menu move-to-prompt netsplit
+ networks noncommands notifications notify page readonly
+ replace ring sasl scrolltobottom services smiley sound
+ spelling stamp track truncate unmorse xdcc))
+
+;; Ensure that `:initialize' doesn't change the ordering of the
+;; members because otherwise the widget's state is "edited".
+
+(ert-deftest erc-modules--initialize ()
+ ;; This is `custom--standard-value' from Emacs 28.
+ (should (equal (eval (car (get 'erc-modules 'standard-value)) t)
+ erc-modules)))
+
+;; Ensure the `:initialize' function for `erc-modules' successfully
+;; tags all built-in modules with the internal property `erc--module'.
+
+(ert-deftest erc-modules--internal-property ()
+ (let (ours)
+ (mapatoms (lambda (s)
+ (when-let ((v (get s 'erc--module))
+ ((eq v s)))
+ (push s ours))))
+ (should (equal (sort ours #'string-lessp) erc-tests--modules))))
+
+(ert-deftest erc--normalize-module-symbol ()
+ (dolist (mod erc-tests--modules)
+ (should (eq (erc--normalize-module-symbol mod) mod)))
+ (should (eq (erc--normalize-module-symbol 'pcomplete) 'completion))
+ (should (eq (erc--normalize-module-symbol 'Completion) 'completion))
+ (should (eq (erc--normalize-module-symbol 'ctcp-page) 'page))
+ (should (eq (erc--normalize-module-symbol 'ctcp-sound) 'sound))
+ (should (eq (erc--normalize-module-symbol 'timestamp) 'stamp))
+ (should (eq (erc--normalize-module-symbol 'nickserv) 'services)))
+
+;; Worrying about which library a module comes from is mostly not
+;; worth the hassle so long as ERC can find its minor mode. However,
+;; bugs involving multiple modules living in the same library may slip
+;; by because a module's loading problems may remain hidden on account
+;; of its place in the default ordering.
+
+(ert-deftest erc--find-mode ()
+ (let* ((package (if-let* ((found (getenv "ERC_PACKAGE_NAME"))
+ ((string-prefix-p "erc-" found)))
+ (intern found)
+ 'erc))
+ (prog
+ `(,@(and (featurep 'compat)
+ `((progn
+ (require 'package)
+ (let ((package-load-list '((compat t) (,package t))))
+ (package-initialize)))))
+ (require 'erc)
+ (let ((mods (mapcar #'cadddr
+ (cdddr (get 'erc-modules 'custom-type))))
+ moded)
+ (setq mods
+ (sort mods (lambda (a b) (if (zerop (random 2)) a b))))
+ (dolist (mod mods)
+ (unless (keywordp mod)
+ (push (if-let ((mode (erc--find-mode mod)))
+ mod
+ (list :missing mod))
+ moded)))
+ (message "%S"
+ (sort moded
+ (lambda (a b)
+ (string< (symbol-name a) (symbol-name b))))))))
+ (proc (start-process "erc--module-mode-autoloads"
+ (current-buffer)
+ (concat invocation-directory invocation-name)
+ "-batch" "-Q"
+ "-eval" (format "%S" (cons 'progn prog)))))
+ (set-process-query-on-exit-flag proc t)
+ (while (accept-process-output proc 10))
+ (goto-char (point-min))
+ (should (equal (read (current-buffer)) erc-tests--modules))))
+
(ert-deftest erc-migrate-modules ()
(should (equal (erc-migrate-modules '(autojoin timestamp button))
'(autojoin stamp button)))
;; Default unchanged
(should (equal (erc-migrate-modules erc-modules) erc-modules)))
+(ert-deftest erc--find-group ()
+ ;; These two are loaded by default
+ (should (eq (erc--find-group 'keep-place nil) 'erc))
+ (should (eq (erc--find-group 'networks nil) 'erc-networks))
+ ;; These are fake
+ (cl-letf (((get 'erc-bar 'group-documentation) "")
+ ((get 'baz 'erc-group) 'erc-foo))
+ (should (eq (erc--find-group 'foo 'bar) 'erc-bar))
+ (should (eq (erc--find-group 'bar 'foo) 'erc-bar))
+ (should (eq (erc--find-group 'bar nil) 'erc-bar))
+ (should (eq (erc--find-group 'foo nil) 'erc))
+ (should (eq (erc--find-group 'fake 'baz) 'erc-foo))))
+
+(ert-deftest erc--find-group--real ()
+ :tags '(:unstable)
+ (require 'erc-services)
+ (require 'erc-stamp)
+ (require 'erc-sound)
+ (require 'erc-page)
+ (require 'erc-join)
+ (require 'erc-capab)
+ (require 'erc-pcomplete)
+ (should (eq (erc--find-group 'services 'nickserv) 'erc-services))
+ (should (eq (erc--find-group 'stamp 'timestamp) 'erc-stamp))
+ (should (eq (erc--find-group 'sound 'ctcp-sound) 'erc-sound))
+ (should (eq (erc--find-group 'page 'ctcp-page) 'erc-page))
+ (should (eq (erc--find-group 'autojoin) 'erc-autojoin))
+ (should (eq (erc--find-group 'pcomplete 'Completion) 'erc-pcomplete))
+ (should (eq (erc--find-group 'capab-identify) 'erc-capab))
+ ;; No group specified.
+ (should (eq (erc--find-group 'smiley nil) 'erc))
+ (should (eq (erc--find-group 'unmorse nil) 'erc)))
+
(ert-deftest erc--update-modules ()
(let (calls
erc-modules
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
+
+ ;; This `lbaz' module is unknown, so ERC looks for it via the
+ ;; symbol proerty `erc--feature' and, failing that, by
+ ;; `require'ing its "erc-" prefixed symbol.
+ (should-not (intern-soft "erc-lbaz-mode"))
+
(cl-letf (((symbol-function 'require)
- (lambda (s &rest _) (push s calls)))
+ (lambda (s &rest _)
+ (when (eq s 'erc--lbaz-feature)
+ (fset (intern "erc-lbaz-mode") ; local module
+ (lambda (n) (push (cons 'lbaz n) calls))))
+ (push s calls)))
;; Local modules
- ((symbol-function 'erc-fake-bar-mode)
- (lambda (n) (push (cons 'fake-bar n) calls)))
+ ((symbol-function 'erc-lbar-mode)
+ (lambda (n) (push (cons 'lbar n) calls)))
+ ((get 'lbaz 'erc--feature) 'erc--lbaz-feature)
;; Global modules
- ((symbol-function 'erc-fake-foo-mode)
- (lambda (n) (push (cons 'fake-foo n) calls)))
- ((get 'erc-fake-foo-mode 'standard-value) 'ignore)
+ ((symbol-function 'erc-gfoo-mode)
+ (lambda (n) (push (cons 'gfoo n) calls)))
+ ((get 'erc-gfoo-mode 'standard-value) 'ignore)
((symbol-function 'erc-autojoin-mode)
(lambda (n) (push (cons 'autojoin n) calls)))
((get 'erc-autojoin-mode 'standard-value) 'ignore)
@@ -1234,20 +2203,28 @@
(lambda (n) (push (cons 'completion n) calls)))
((get 'erc-completion-mode 'standard-value) 'ignore))
+ (ert-info ("Unknown module")
+ (setq erc-modules '(lfoo))
+ (should-error (erc--update-modules))
+ (should (equal (pop calls) 'erc-lfoo))
+ (should-not calls))
+
(ert-info ("Local modules")
- (setq erc-modules '(fake-foo fake-bar))
- (should (equal (erc--update-modules) '(erc-fake-bar-mode)))
- ;; Bar the feature is still required but the mode is not activated
- (should (equal (nreverse calls)
- '(erc-fake-foo (fake-foo . 1) erc-fake-bar)))
+ (setq erc-modules '(gfoo lbar lbaz))
+ ;; Don't expose the mode here
+ (should (equal (mapcar #'symbol-name (erc--update-modules))
+ '("erc-lbaz-mode" "erc-lbar-mode")))
+ ;; Lbaz required because unknown.
+ (should (equal (nreverse calls) '((gfoo . 1) erc--lbaz-feature)))
+ (fmakunbound (intern "erc-lbaz-mode"))
+ (unintern (intern "erc-lbaz-mode") obarray)
(setq calls nil))
- (ert-info ("Module name overrides")
- (setq erc-modules '(completion autojoin networks))
+ (ert-info ("Global modules") ; `pcomplete' resolved to `completion'
+ (setq erc-modules '(pcomplete autojoin networks))
(should-not (erc--update-modules)) ; no locals
- (should (equal (nreverse calls) '( erc-pcomplete (completion . 1)
- erc-join (autojoin . 1)
- erc-networks (networks . 1))))
+ (should (equal (nreverse calls)
+ '((completion . 1) (autojoin . 1) (networks . 1))))
(setq calls nil)))))
(ert-deftest erc--merge-local-modes ()
@@ -1276,21 +2253,27 @@
(ert-deftest define-erc-module--global ()
(let ((global-module '(define-erc-module mname malias
- "Some docstring"
+ "Some docstring."
((ignore a) (ignore b))
((ignore c) (ignore d)))))
- (should (equal (macroexpand global-module)
+ (should (equal (cl-letf (((symbol-function
+ 'erc--prepare-custom-module-type)
+ #'symbol-name))
+ (macroexpand global-module))
`(progn
(define-minor-mode erc-mname-mode
"Toggle ERC mname mode.
-With a prefix argument ARG, enable mname if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-Some docstring"
+With a prefix argument ARG, enable mname if ARG is positive, and
+disable it otherwise. If called from Lisp, enable the mode if
+ARG is omitted or nil.
+
+Some docstring."
:global t
- :group 'erc-mname
+ :group (erc--find-group 'mname 'malias)
+ :require 'nil
+ :type "mname"
(if erc-mname-mode
(erc-mname-enable)
(erc-mname-disable)))
@@ -1298,14 +2281,22 @@ Some docstring"
(defun erc-mname-enable ()
"Enable ERC mname mode."
(interactive)
- (cl-pushnew 'mname erc-modules)
+ (unless (or erc--inside-mode-toggle-p
+ (memq 'mname erc-modules))
+ (let ((erc--inside-mode-toggle-p t))
+ (erc--favor-changed-reverted-modules-state
+ 'mname #'cons)))
(setq erc-mname-mode t)
(ignore a) (ignore b))
(defun erc-mname-disable ()
"Disable ERC mname mode."
(interactive)
- (setq erc-modules (delq 'mname erc-modules))
+ (unless (or erc--inside-mode-toggle-p
+ (not (memq 'mname erc-modules)))
+ (let ((erc--inside-mode-toggle-p t))
+ (erc--favor-changed-reverted-modules-state
+ 'mname #'delq)))
(setq erc-mname-mode nil)
(ignore c) (ignore d))
@@ -1319,7 +2310,7 @@ Some docstring"
(ert-deftest define-erc-module--local ()
(let* ((global-module '(define-erc-module mname nil ; no alias
- "Some docstring"
+ "Some docstring."
((ignore a) (ignore b))
((ignore c) (ignore d))
'local))
@@ -1331,19 +2322,21 @@ Some docstring"
`(progn
(define-minor-mode erc-mname-mode
"Toggle ERC mname mode.
-With a prefix argument ARG, enable mname if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-Some docstring"
+With a prefix argument ARG, enable mname if ARG is positive, and
+disable it otherwise. If called from Lisp, enable the mode if
+ARG is omitted or nil.
+
+Some docstring."
:global nil
- :group 'erc-mname
+ :group (erc--find-group 'mname nil)
(if erc-mname-mode
(erc-mname-enable)
(erc-mname-disable)))
(defun erc-mname-enable (&optional ,arg-en)
"Enable ERC mname mode.
-When called interactively, do so in all buffers for the current connection."
+When called interactively, do so in all buffers for the current
+connection."
(interactive "p")
(when (derived-mode-p 'erc-mode)
(if ,arg-en
@@ -1355,7 +2348,8 @@ When called interactively, do so in all buffers for the
current connection."
(defun erc-mname-disable (&optional ,arg-dis)
"Disable ERC mname mode.
-When called interactively, do so in all buffers for the current connection."
+When called interactively, do so in all buffers for the current
+connection."
(interactive "p")
(when (derived-mode-p 'erc-mode)
(if ,arg-dis
diff --git a/test/lisp/erc/resources/base/assoc/bouncer-history/foonet.eld
b/test/lisp/erc/resources/base/assoc/bouncer-history/foonet.eld
index 58df79e19fa..f34ae02f4e4 100644
--- a/test/lisp/erc/resources/base/assoc/bouncer-history/foonet.eld
+++ b/test/lisp/erc/resources/base/assoc/bouncer-history/foonet.eld
@@ -27,6 +27,7 @@
(0 ":bob!~u@svpn88yjcdj42.irc PRIVMSG #chan :[07:04:02] alice: Here come the
lovers, full of joy and mirth.")
(0 ":alice!~u@svpn88yjcdj42.irc PRIVMSG #chan :[07:04:07] bob: According to
the fool's bolt, sir, and such dulcet diseases.")
(0 ":bob!~u@svpn88yjcdj42.irc PRIVMSG #chan :[07:04:10] alice: And hang
himself. I pray you, do my greeting.")
+ (0 ":someone!~u@abcdefg.irc PRIVMSG #chan :[07:04:10] hi everyone.")
(0 ":alice!~u@svpn88yjcdj42.irc PRIVMSG #chan :[07:04:18] bob: And you sat
smiling at his cruel prey.")
(0 ":bob!~u@svpn88yjcdj42.irc PRIVMSG #chan :[07:04:21] alice: Or never after
look me in the face.")
(0 ":alice!~u@svpn88yjcdj42.irc PRIVMSG #chan :[07:04:25] bob: If that may
be, than all is well. Come, sit down, every mother's son, and rehearse your
parts. Pyramus, you begin: when you have spoken your speech, enter into that
brake; and so every one according to his cue.")
diff --git a/test/lisp/erc/resources/base/channel-buffer-revival/reattach.eld
b/test/lisp/erc/resources/base/channel-buffer-revival/reattach.eld
new file mode 100644
index 00000000000..c3791ac3d49
--- /dev/null
+++ b/test/lisp/erc/resources/base/channel-buffer-revival/reattach.eld
@@ -0,0 +1,56 @@
+;; -*- mode: lisp-data; -*-
+((pass 10 "PASS :tester@vanilla/foonet:changeme"))
+((nick 10 "NICK tester"))
+((user 10 "USER user 0 * :tester")
+ (0.00 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
+ (0.00 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running
version ergo-v2.11.1")
+ (0.00 ":irc.foonet.org 003 tester :This server was created Thu, 13 Apr 2023
05:55:22 UTC")
+ (0.00 ":irc.foonet.org 004 tester irc.foonet.org ergo-v2.11.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.00 ":irc.foonet.org 005 tester AWAYLEN=390 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
CHATHISTORY=1000 ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX :are supported by
this server")
+ (0.00 ":irc.foonet.org 005 tester KICKLEN=390 MAXLIST=beI:60 MAXTARGETS=4
MODES MONITOR=100 NETWORK=foonet NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8ONLY WHOX :are supported by this server")
+ (0.00 ":irc.foonet.org 005 tester draft/CHATHISTORY=1000 :are supported by
this server")
+ (0.00 ":irc.foonet.org 251 tester :There are 0 users and 3 invisible on 1
server(s)")
+ (0.01 ":irc.foonet.org 252 tester 0 :IRC Operators online")
+ (0.00 ":irc.foonet.org 254 tester 1 :channels formed")
+ (0.00 ":irc.foonet.org 255 tester :I have 3 clients and 0 servers")
+ (0.00 ":irc.foonet.org 265 tester 3 3 :Current local users 3, max 3")
+ (0.00 ":irc.foonet.org 266 tester 3 3 :Current global users 3, max 3")
+ (0.00 ":irc.foonet.org 422 tester :MOTD File is missing"))
+
+((mode 10 "MODE tester +i")
+ (0.01 ":irc.foonet.org 221 tester +Zi"))
+
+((privmsg-play 10 "PRIVMSG *status :playbuffer #chan")
+ (0.05 ":***!znc@znc.in PRIVMSG #chan :Buffer Playback...")
+ (0.02 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:08:24] alice: Was I a
child, to fear I know not what.")
+ (0.02 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:08:29] bob: My lord, I
do confess the ring was hers.")
+ (0.01 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:08:40] alice: My sons
would never so dishonour me.")
+ (0.01 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:09:54] bob: By the hand
of a soldier, I will undertake it.")
+ (0.01 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:09:57] alice: Thou
counterfeit'st most lively.")
+ (0.01 ":***!znc@znc.in PRIVMSG #chan :Playback Complete."))
+
+((privmsg-attach 10 "PRIVMSG *status :attach #chan")
+ (0.01 ":tester!~u@78a58pgahbr24.irc JOIN #chan"))
+
+((mode-chan 10 "MODE #chan")
+ (0.01 ":irc.foonet.org 353 tester = #chan :@alice bob tester")
+ (0.00 ":irc.foonet.org 366 tester #chan :End of /NAMES list.")
+ (0.00 ":***!znc@znc.in PRIVMSG #chan :Buffer Playback...")
+ (0.00 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:10:01] bob: With what
it loathes for that which is away.")
+ (0.00 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:10:30] alice: Ties up my
tongue, and will not let me speak.")
+ (0.00 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:11:26] bob: They say he
is already in the forest of Arden, and a many merry men with him; and there
they live like the old Robin Hood of England. They say many young gentlemen
flock to him every day, and fleet the time carelessly, as they did in the
golden world.")
+ (0.01 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:11:29] alice: Not by his
breath that is more miserable.")
+ (0.00 ":***!znc@znc.in PRIVMSG #chan :Playback Complete.")
+ (0.00 ":*status!znc@znc.in PRIVMSG tester :There was 1 channel matching
[#chan]")
+ (0.03 ":*status!znc@znc.in PRIVMSG tester :Attached 1 channel")
+ (0.00 ":irc.foonet.org 324 tester #chan +Cnt")
+ (0.00 ":irc.foonet.org 329 tester #chan 1681365340")
+ (0.03 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :bob: Five or six thousand
horse, I said,I will say true,or thereabouts, set down, for I'll speak truth.")
+ (0.02 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :alice: Riddling confession
finds but riddling shrift.")
+ (0.04 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :bob: Ay, and the captain of
his horse, Count Rousillon."))
+
+((privmsg-bob 10 "PRIVMSG #chan :bob: hi")
+ (0.02 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :alice: But thankful even for
hate, that is meant love.")
+ (0.02 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :tester: Come, come, elder
brother, you are too young in this.")
+ (0.02 ":alice!~u@q2weir96jk3r2.irc PRIVMSG #chan :bob: Sir, we have known
together in Orleans.")
+ (0.05 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :alice: Pawn me to this your
honour, she is his."))
diff --git a/test/lisp/erc/resources/base/commands/motd.eld
b/test/lisp/erc/resources/base/commands/motd.eld
new file mode 100644
index 00000000000..6d10ee122e2
--- /dev/null
+++ b/test/lisp/erc/resources/base/commands/motd.eld
@@ -0,0 +1,48 @@
+;; -*- mode: lisp-data; -*-
+((nick 10 "NICK tester"))
+((user 10 "USER user 0 * :tester")
+ (0.00 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
+ (0.01 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running
version ergo-v2.11.1")
+ (0.01 ":irc.foonet.org 003 tester :This server was created Sun, 12 Mar 2023
02:30:29 UTC")
+ (0.00 ":irc.foonet.org 004 tester irc.foonet.org ergo-v2.11.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.00 ":irc.foonet.org 005 tester AWAYLEN=390 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
CHATHISTORY=1000 ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX :are supported by
this server")
+ (0.01 ":irc.foonet.org 005 tester KICKLEN=390 MAXLIST=beI:60 MAXTARGETS=4
MODES MONITOR=100 NETWORK=foonet NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8ONLY WHOX :are supported by this server")
+ (0.01 ":irc.foonet.org 005 tester draft/CHATHISTORY=1000 :are supported by
this server")
+ (0.00 ":irc.foonet.org 251 tester :There are 0 users and 3 invisible on 1
server(s)")
+ (0.00 ":irc.foonet.org 252 tester 0 :IRC Operators online")
+ (0.00 ":irc.foonet.org 253 tester 0 :unregistered connections")
+ (0.00 ":irc.foonet.org 254 tester 1 :channels formed")
+ (0.00 ":irc.foonet.org 255 tester :I have 3 clients and 0 servers")
+ (0.00 ":irc.foonet.org 265 tester 3 3 :Current local users 3, max 3")
+ (0.00 ":irc.foonet.org 266 tester 3 3 :Current global users 3, max 3")
+ (0.00 ":irc.foonet.org 375 tester :- irc.foonet.org Message of the day - ")
+ (0.00 ":irc.foonet.org 372 tester :- This is the default Ergo MOTD.")
+ (0.01 ":irc.foonet.org 372 tester :- ")
+ (0.02 ":irc.foonet.org 372 tester :- For more information on using these, see
MOTDFORMATTING.md")
+ (0.00 ":irc.foonet.org 376 tester :End of MOTD command"))
+
+((mode 10 "MODE tester +i")
+ (0.00 ":irc.foonet.org 221 tester +i")
+ (0.00 ":irc.foonet.org NOTICE tester :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect.")
+ (0.05 ":irc.foonet.org 221 tester +i"))
+
+((motd-1 10 "MOTD")
+ (0.08 ":irc.foonet.org 375 tester :- irc.foonet.org Message of the day - ")
+ (0.02 ":irc.foonet.org 372 tester :- This is the default Ergo MOTD.")
+ (0.01 ":irc.foonet.org 372 tester :- ")
+ (0.00 ":irc.foonet.org 372 tester :- For more information on using these, see
MOTDFORMATTING.md")
+ (0.00 ":irc.foonet.org 376 tester :End of MOTD command"))
+
+((motd-2 10 "MOTD irc1.foonet.org")
+ (0.08 ":irc1.foonet.org 375 tester :- irc1.foonet.org Message of the day - ")
+ (0.02 ":irc1.foonet.org 372 tester :- This is the default Ergo MOTD.")
+ (0.01 ":irc1.foonet.org 372 tester :- ")
+ (0.00 ":irc1.foonet.org 372 tester :- For more information on using these,
see MOTDFORMATTING.md")
+ (0.00 ":irc1.foonet.org 376 tester :End of MOTD command"))
+
+((motd-3 10 "MOTD fake.foonet.org")
+ (0.00 ":irc.foonet.org 402 tester fake.foonet.org :No such server"))
+
+((quit 10 "QUIT :\2ERC\2")
+ (0.07 ":tester!~u@h3f95zveyc38a.irc QUIT :Quit: \2ERC\2 5.5 (IRC client for
GNU Emacs 30.0.50)")
+ (0.01 "ERROR :Quit: \2ERC\2 5.5 (IRC client for GNU Emacs 30.0.50)"))
diff --git a/test/lisp/erc/resources/base/flood/ascii.eld
b/test/lisp/erc/resources/base/flood/ascii.eld
new file mode 100644
index 00000000000..a3d127326c3
--- /dev/null
+++ b/test/lisp/erc/resources/base/flood/ascii.eld
@@ -0,0 +1,49 @@
+;; -*- mode: lisp-data; -*-
+((nick 10 "NICK tester"))
+((user 10 "USER user 0 * :tester")
+ (0.00 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
+ (0.01 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running
version ergo-v2.11.1")
+ (0.01 ":irc.foonet.org 003 tester :This server was created Sun, 12 Mar 2023
02:30:29 UTC")
+ (0.00 ":irc.foonet.org 004 tester irc.foonet.org ergo-v2.11.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.00 ":irc.foonet.org 005 tester AWAYLEN=390 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
CHATHISTORY=1000 ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX :are supported by
this server")
+ (0.01 ":irc.foonet.org 005 tester KICKLEN=390 MAXLIST=beI:60 MAXTARGETS=4
MODES MONITOR=100 NETWORK=foonet NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8ONLY WHOX :are supported by this server")
+ (0.01 ":irc.foonet.org 005 tester draft/CHATHISTORY=1000 :are supported by
this server")
+ (0.00 ":irc.foonet.org 251 tester :There are 0 users and 3 invisible on 1
server(s)")
+ (0.00 ":irc.foonet.org 252 tester 0 :IRC Operators online")
+ (0.00 ":irc.foonet.org 253 tester 0 :unregistered connections")
+ (0.00 ":irc.foonet.org 254 tester 1 :channels formed")
+ (0.00 ":irc.foonet.org 255 tester :I have 3 clients and 0 servers")
+ (0.00 ":irc.foonet.org 265 tester 3 3 :Current local users 3, max 3")
+ (0.00 ":irc.foonet.org 266 tester 3 3 :Current global users 3, max 3")
+ (0.00 ":irc.foonet.org 375 tester :- irc.foonet.org Message of the day - ")
+ (0.00 ":irc.foonet.org 372 tester :- This is the default Ergo MOTD.")
+ (0.01 ":irc.foonet.org 372 tester :- ")
+ (0.02 ":irc.foonet.org 372 tester :- For more information on using these, see
MOTDFORMATTING.md")
+ (0.00 ":irc.foonet.org 376 tester :End of MOTD command"))
+
+((mode-tester 10 "MODE tester +i")
+ (0.00 ":irc.foonet.org 221 tester +i")
+ (0.00 ":irc.foonet.org NOTICE tester :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect.")
+ (0.05 ":irc.foonet.org 221 tester +i"))
+
+((join-spam 10 "JOIN #ascii")
+ (0 ":tester!~u@9g6b728983yd2.irc JOIN #ascii")
+ (0 ":irc.foonet.org 353 tester = #ascii :alice tester @bob")
+ (0 ":irc.foonet.org 366 tester #ascii :End of NAMES list"))
+
+((mode-spam 10 "MODE #ascii")
+ (0 ":irc.foonet.org 324 tester #ascii +nt")
+ (0 ":irc.foonet.org 329 tester #ascii 1620104779")
+ (0.1 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #ascii :tester, welcome!")
+ (0.0 ":alice!~u@rz2v467q4rwhy.irc PRIVMSG #ascii :tester, welcome!"))
+
+((privmsg 10 "PRIVMSG #ascii :twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters 12345678"))
+((privmsg 10 "PRIVMSG #ascii :twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters twenty-three characters twenty-three characters
twenty-three characters "))
+((privmsg 10 "PRIVMSG #ascii :123456789"))
+((privmsg 10 "PRIVMSG #ascii
:xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"))
+((privmsg 10 "PRIVMSG #ascii
:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy"))
+((privmsg 10 "PRIVMSG #ascii :z"))
+
+((quit 10 "QUIT :\2ERC\2")
+ (0.07 ":tester!~u@h3f95zveyc38a.irc QUIT :Quit: \2ERC\2 5.5 (IRC client for
GNU Emacs 30.0.50)")
+ (0.01 "ERROR :Quit: \2ERC\2 5.5 (IRC client for GNU Emacs 30.0.50)"))
diff --git a/test/lisp/erc/resources/base/flood/koi8-r.eld
b/test/lisp/erc/resources/base/flood/koi8-r.eld
new file mode 100644
index 00000000000..0f10717fc2c
--- /dev/null
+++ b/test/lisp/erc/resources/base/flood/koi8-r.eld
@@ -0,0 +1,47 @@
+;; -*- mode: lisp-data; -*-
+((nick 10 "NICK tester"))
+((user 10 "USER user 0 * :tester")
+ (0.00 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
+ (0.01 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running
version ergo-v2.11.1")
+ (0.01 ":irc.foonet.org 003 tester :This server was created Sun, 12 Mar 2023
02:30:29 UTC")
+ (0.00 ":irc.foonet.org 004 tester irc.foonet.org ergo-v2.11.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.00 ":irc.foonet.org 005 tester AWAYLEN=390 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
CHATHISTORY=1000 ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX :are supported by
this server")
+ (0.01 ":irc.foonet.org 005 tester KICKLEN=390 MAXLIST=beI:60 MAXTARGETS=4
MODES MONITOR=100 NETWORK=foonet NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8ONLY WHOX :are supported by this server")
+ (0.01 ":irc.foonet.org 005 tester draft/CHATHISTORY=1000 :are supported by
this server")
+ (0.00 ":irc.foonet.org 251 tester :There are 0 users and 3 invisible on 1
server(s)")
+ (0.00 ":irc.foonet.org 252 tester 0 :IRC Operators online")
+ (0.00 ":irc.foonet.org 253 tester 0 :unregistered connections")
+ (0.00 ":irc.foonet.org 254 tester 1 :channels formed")
+ (0.00 ":irc.foonet.org 255 tester :I have 3 clients and 0 servers")
+ (0.00 ":irc.foonet.org 265 tester 3 3 :Current local users 3, max 3")
+ (0.00 ":irc.foonet.org 266 tester 3 3 :Current global users 3, max 3")
+ (0.00 ":irc.foonet.org 375 tester :- irc.foonet.org Message of the day - ")
+ (0.00 ":irc.foonet.org 372 tester :- This is the default Ergo MOTD.")
+ (0.01 ":irc.foonet.org 372 tester :- ")
+ (0.02 ":irc.foonet.org 372 tester :- For more information on using these, see
MOTDFORMATTING.md")
+ (0.00 ":irc.foonet.org 376 tester :End of MOTD command"))
+
+((mode-tester 10 "MODE tester +i")
+ (0.00 ":irc.foonet.org 221 tester +i")
+ (0.00 ":irc.foonet.org NOTICE tester :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect.")
+ (0.05 ":irc.foonet.org 221 tester +i"))
+
+((join-chan 6 "JOIN #koi8")
+ (0 ":tester!~u@9g6b728983yd2.irc JOIN #koi8")
+ (0 ":irc.foonet.org 353 tester = #koi8 :alice tester @bob")
+ (0 ":irc.foonet.org 366 tester #koi8 :End of NAMES list"))
+
+((mode-chan 8 "MODE #koi8")
+ (0 ":irc.foonet.org 324 tester #koi8 +nt")
+ (0 ":irc.foonet.org 329 tester #koi8 1620104779")
+ (0.1 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #koi8 :tester, welcome!")
+ (0.0 ":alice!~u@rz2v467q4rwhy.irc PRIVMSG #koi8 :tester, welcome!")
+ (0.0 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #koi8 :\313\317\322\317\336\305
\324\305\320\305\322\330 \305\323\314\311 \320\317 \322\325\323\323\313\311
\316\301\320\311\323\301\324\330 \327\323\305 \336\305\324\313\317 \311\314\311
\327\323\305 \322\301\327\316\317 \313\317\322\317\336\305
\324\305\320\305\322\330 \305\323\314\311 \320\317 \322\325\323\323\313\311
\316\301\320\311\323\301\324\330 \327\323\305 \336\305\324\313\317 \311\314\311
\327\323\305 \322\301\327\316\317"))
+
+((privmsg 10 "PRIVMSG #koi8 :\313\317\322\317\336\305 \324\305\320\305\322\330
\305\323\314\311 \320\317 \322\325\323\323\313\311
\316\301\320\311\323\301\324\330 \327\323\305 \336\305\324\313\317 \311\314\311
\327\323\305 \322\301\327\316\317 \313\317\322\317\336\305
\324\305\320\305\322\330 \305\323\314\311 \320\317 \322\325\323\323\313\311
\316\301\320\311\323\301\324\330 \327\323\305 \336\305\324\313\317 \311\314\311
\327\323\305 \322\301\327\316\317 \313\317\322\317\336\305 \324\305 [...]
+((privmsg 10 "PRIVMSG #koi8 :\313\317\322\317\336\305 \324\305\320\305\322\330
\305\323\314\311 \320\317 \322\325\323\323\313\311
\316\301\320\311\323\301\324\330 \327\323\305 \336\305\324\313\317 \311\314\311
\327\323\305 \322\301\327\316\317 \313\317\322\317\336\305
\324\305\320\305\322\330 \305\323\314\311 \320\317 \322\325\323\323\313\311
\316\301\320\311\323\301\324\330 \327\323\305 \336\305\324\313\317 \311\314\311
\327\323\305 \322\301\327\316\317 \313\317\322\317\336\305 \324\305 [...]
+((privmsg 10 "PRIVMSG #koi8 :\322\301\332\322\331\327 \323\324\322\317\313\311
\316\305\320\317\316\321\324\316\317 \307\304\305"))
+
+((quit 10 "QUIT :\2ERC\2")
+ (0.07 ":tester!~u@h3f95zveyc38a.irc QUIT :Quit: \2ERC\2 5.5 (IRC client for
GNU Emacs 30.0.50)")
+ (0.01 "ERROR :Quit: \2ERC\2 5.5 (IRC client for GNU Emacs 30.0.50)"))
diff --git a/test/lisp/erc/resources/base/flood/utf-8.eld
b/test/lisp/erc/resources/base/flood/utf-8.eld
new file mode 100644
index 00000000000..8e7f8f7eed2
--- /dev/null
+++ b/test/lisp/erc/resources/base/flood/utf-8.eld
@@ -0,0 +1,54 @@
+;; -*- mode: lisp-data; -*-
+((nick 10 "NICK tester"))
+((user 10 "USER user 0 * :tester")
+ (0.00 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
+ (0.01 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running
version ergo-v2.11.1")
+ (0.01 ":irc.foonet.org 003 tester :This server was created Sun, 12 Mar 2023
02:30:29 UTC")
+ (0.00 ":irc.foonet.org 004 tester irc.foonet.org ergo-v2.11.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.00 ":irc.foonet.org 005 tester AWAYLEN=390 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
CHATHISTORY=1000 ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX :are supported by
this server")
+ (0.01 ":irc.foonet.org 005 tester KICKLEN=390 MAXLIST=beI:60 MAXTARGETS=4
MODES MONITOR=100 NETWORK=foonet NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8ONLY WHOX :are supported by this server")
+ (0.01 ":irc.foonet.org 005 tester draft/CHATHISTORY=1000 :are supported by
this server")
+ (0.00 ":irc.foonet.org 251 tester :There are 0 users and 3 invisible on 1
server(s)")
+ (0.00 ":irc.foonet.org 252 tester 0 :IRC Operators online")
+ (0.00 ":irc.foonet.org 253 tester 0 :unregistered connections")
+ (0.00 ":irc.foonet.org 254 tester 1 :channels formed")
+ (0.00 ":irc.foonet.org 255 tester :I have 3 clients and 0 servers")
+ (0.00 ":irc.foonet.org 265 tester 3 3 :Current local users 3, max 3")
+ (0.00 ":irc.foonet.org 266 tester 3 3 :Current global users 3, max 3")
+ (0.00 ":irc.foonet.org 375 tester :- irc.foonet.org Message of the day - ")
+ (0.00 ":irc.foonet.org 372 tester :- This is the default Ergo MOTD.")
+ (0.01 ":irc.foonet.org 372 tester :- ")
+ (0.02 ":irc.foonet.org 372 tester :- For more information on using these, see
MOTDFORMATTING.md")
+ (0.00 ":irc.foonet.org 376 tester :End of MOTD command"))
+
+((mode-tester 10 "MODE tester +i")
+ (0.00 ":irc.foonet.org 221 tester +i")
+ (0.00 ":irc.foonet.org NOTICE tester :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect.")
+ (0.05 ":irc.foonet.org 221 tester +i"))
+
+((join-spam 10 "JOIN #utf-8")
+ (0 ":tester!~u@9g6b728983yd2.irc JOIN #utf-8")
+ (0 ":irc.foonet.org 353 tester = #utf-8 :alice tester @bob")
+ (0 ":irc.foonet.org 366 tester #utf-8 :End of NAMES list"))
+
+((mode-spam 10 "MODE #utf-8")
+ (0 ":irc.foonet.org 324 tester #utf-8 +nt")
+ (0 ":irc.foonet.org 329 tester #utf-8 1620104779")
+ (0.1 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #utf-8 :tester, welcome!")
+ (0.0 ":alice!~u@rz2v467q4rwhy.irc PRIVMSG #utf-8 :tester, welcome!"))
+
+((privmsg-a 10 "PRIVMSG #utf-8
:\320\272\320\276\321\200\320\276\321\207\320\265
\321\202\320\265\320\277\320\265\321\200\321\214
\320\265\321\201\320\273\320\270 \320\277\320\276
\321\200\321\203\321\201\321\201\320\272\320\270
\320\275\320\260\320\277\320\270\321\201\320\260\321\202\321\214
\320\262\321\201\320\265 \321\207\320\265\321\202\320\272\320\276
\320\270\320\273\320\270 \320\262\321\201\320\265
\321\200\320\260\320\262\320\275\320\276
\320\272\320\276\321\200\320\276\321\207\ [...]
+((privmsg-b 10 "PRIVMSG #utf-8 :\320\262\321\201\320\265
\321\200\320\260\320\262\320\275\320\276
\320\272\320\276\321\200\320\276\321\207\320\265
\321\202\320\265\320\277\320\265\321\200\321\214
\320\265\321\201\320\273\320\270 \320\277\320\276
\321\200\321\203\321\201\321\201\320\272\320\270
\320\275\320\260\320\277\320\270\321\201\320\260\321\202\321\214
\320\262\321\201\320\265 \321\207\320\265\321\202\320\272\320\276
\320\270\320\273\320\270 \320\262\321\201\320\265 \321\200\320\260 [...]
+((privmsg-c 10 "PRIVMSG #utf-8
:\321\200\320\260\320\267\321\200\321\213\320\262
\321\201\321\202\321\200\320\276\320\272\320\270
\320\275\320\265\320\277\320\276\320\275\321\217\321\202\320\275\320\276
\320\263\320\264\320\265")
+ (0.1 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #utf-8 :alice: Entirely honour; I
would not be delay'd."))
+
+((privmsg-g 10 "PRIVMSG #utf-8
:\350\251\261\350\252\252\345\244\251\344\270\213\345\244\247\345\213\242\357\274\214\345\210\206\344\271\205\345\277\205\345\220\210\357\274\214\345\220\210\344\271\205\345\277\205\345\210\206\357\274\232\345\221\250\346\234\253\344\270\203\345\234\213\345\210\206\347\210\255\357\274\214\345\271\266\345\205\245\346\226\274\347\247\246\343\200\202\345\217\212\347\247\246\346\273\205\344\271\213\345\276\214\357\274\214\346\245\232\343\200\201\346\274\242\345
[...]
+((privmsg-h 10 "PRIVMSG #utf-8
:\347\253\207\346\255\246\343\200\201\351\231\263\350\225\203\350\254\200\350\252\205\344\271\213\357\274\214\344\275\234\344\272\213\344\270\215\345\257\206\357\274\214\345\217\215\347\202\272\346\211\200\345\256\263\343\200\202\344\270\255\346\266\223\350\207\252\346\255\244\346\204\210\346\251\253")
+ (0.0 ":alice!~u@rz2v467q4rwhy.irc PRIVMSG #utf-8 :Shall seize this prey out
of his father's hands."))
+
+((privmsg-d 10 "PRIVMSG #utf-8
:\320\261\321\203\320\264\320\265\321\202\302\240\321\200\320\260\320\267\321\200\321\213\320\262\302\240\321\201\321\202\321\200\320\276\320\272\320\270\302\240\320\275\320\265\320\277\320\276\320\275\321\217\321\202\320\275\320\276\302\240\320\263\320\264\320\265\360\237\217\201\360\237\232\251\360\237\216\214\360\237\217\264\360\237\217\263\357\270\217"))
+((privmsg-e 10 "PRIVMSG #utf-8
:\360\237\217\263\357\270\217\342\200\215\360\237\214\210\360\237\217\263\357\270\217\342\200\215\342\232\247\357\270\217\360\237\217\264\342\200\215\342\230\240\357\270\217"))
+
+((quit 10 "QUIT :\2ERC\2")
+ (0.07 ":tester!~u@h3f95zveyc38a.irc QUIT :Quit: \2ERC\2 5.5 (IRC client for
GNU Emacs 30.0.50)")
+ (0.01 "ERROR :Quit: \2ERC\2 5.5 (IRC client for GNU Emacs 30.0.50)"))
diff --git a/test/lisp/erc/resources/base/reconnect/just-eof.eld
b/test/lisp/erc/resources/base/reconnect/just-eof.eld
new file mode 100644
index 00000000000..c80a39b3170
--- /dev/null
+++ b/test/lisp/erc/resources/base/reconnect/just-eof.eld
@@ -0,0 +1,3 @@
+;; -*- mode: lisp-data; -*-
+((eof 5 EOF))
+((drop 0 DROP))
diff --git a/test/lisp/erc/resources/base/reconnect/just-ping.eld
b/test/lisp/erc/resources/base/reconnect/just-ping.eld
new file mode 100644
index 00000000000..d57888b42d3
--- /dev/null
+++ b/test/lisp/erc/resources/base/reconnect/just-ping.eld
@@ -0,0 +1,4 @@
+;; -*- mode: lisp-data; -*-
+((ping 20 "PING"))
+
+((eof 10 EOF))
diff --git a/test/lisp/erc/resources/base/reconnect/ping-pong.eld
b/test/lisp/erc/resources/base/reconnect/ping-pong.eld
new file mode 100644
index 00000000000..b3d36cf6cec
--- /dev/null
+++ b/test/lisp/erc/resources/base/reconnect/ping-pong.eld
@@ -0,0 +1,6 @@
+;; -*- mode: lisp-data; -*-
+((ping 10 "PING ")
+ (0 "PONG fake"))
+
+((eof 10 EOF))
+((drop 0 DROP))
diff --git a/test/lisp/erc/resources/base/reconnect/unexpected-disconnect.eld
b/test/lisp/erc/resources/base/reconnect/unexpected-disconnect.eld
new file mode 100644
index 00000000000..386d0f4b085
--- /dev/null
+++ b/test/lisp/erc/resources/base/reconnect/unexpected-disconnect.eld
@@ -0,0 +1,24 @@
+;; -*- mode: lisp-data; -*-
+((nick 10 "NICK tester"))
+((user 10 "USER user 0 * :tester")
+ (0 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
+ (0 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running version
oragono-2.6.0-7481bf0385b95b16")
+ (0 ":irc.foonet.org 003 tester :This server was created Tue, 04 May 2021
05:06:18 UTC")
+ (0 ":irc.foonet.org 004 tester irc.foonet.org oragono-2.6.0-7481bf0385b95b16
BERTZios CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0 ":irc.foonet.org 005 tester AWAYLEN=390 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX KICKLEN=390 :are supported by this
server")
+ (0 ":irc.foonet.org 005 tester MAXLIST=beI:60 MAXTARGETS=4 MODES MONITOR=100
NETWORK=FooNet NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8MAPPING=rfc8265 UTF8ONLY WHOX :are supported by this server")
+ (0 ":irc.foonet.org 005 tester draft/CHATHISTORY=100 :are supported by this
server")
+ (0 ":irc.foonet.org 251 tester :There are 0 users and 3 invisible on 1
server(s)")
+ (0 ":irc.foonet.org 252 tester 0 :IRC Operators online")
+ (0 ":irc.foonet.org 253 tester 0 :unregistered connections")
+ (0 ":irc.foonet.org 254 tester 1 :channels formed")
+ (0 ":irc.foonet.org 255 tester :I have 3 clients and 0 servers")
+ (0 ":irc.foonet.org 265 tester 3 3 :Current local users 3, max 3")
+ (0 ":irc.foonet.org 266 tester 3 3 :Current global users 3, max 3")
+ (0 ":irc.foonet.org 422 tester :MOTD File is missing"))
+
+((mode-user 10 "MODE tester +i")
+ (0 ":irc.foonet.org 221 tester +i")
+ (0 ":irc.foonet.org NOTICE tester :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect."))
+
+((drop 0 DROP))
diff --git a/test/lisp/erc/resources/base/renick/regain/normal-again.eld
b/test/lisp/erc/resources/base/renick/regain/normal-again.eld
new file mode 100644
index 00000000000..c0529052c70
--- /dev/null
+++ b/test/lisp/erc/resources/base/renick/regain/normal-again.eld
@@ -0,0 +1,56 @@
+;; -*- mode: lisp-data; -*-
+((cap 10 "CAP REQ :sasl"))
+((nick 10 "NICK tester"))
+((user 10 "USER tester 0 * :tester"))
+
+((authenticate 10 "AUTHENTICATE PLAIN")
+ (0.04 ":tantalum.libera.chat NOTICE * :*** Checking Ident")
+ (0.01 ":tantalum.libera.chat NOTICE * :*** Looking up your hostname...")
+ (0.01 ":tantalum.libera.chat NOTICE * :*** Couldn't look up your hostname")
+ (0.06 ":tantalum.libera.chat NOTICE * :*** No Ident response")
+ (0.02 ":tantalum.libera.chat CAP * ACK :sasl")
+ (0.03 ":tantalum.libera.chat 433 * tester :Nickname is already in use."))
+
+((nick 10 "NICK tester`")
+ (0.03 "AUTHENTICATE +"))
+
+((authenticate 10 "AUTHENTICATE AHRlc3RlcgBjaGFuZ2VtZQ==")
+ (0.06 ":tantalum.libera.chat 900 tester` tester`!tester@127.0.0.1 tester :You
are now logged in as tester")
+ (0.02 ":tantalum.libera.chat 903 tester` :SASL authentication successful"))
+
+((cap 10 "CAP END")
+ (0.02 ":tantalum.libera.chat 001 tester` :Welcome to the Libera.Chat Internet
Relay Chat Network tester`")
+ (0.02 ":tantalum.libera.chat 002 tester` :Your host is
tantalum.libera.chat[93.158.237.2/6697], running version solanum-1.0-dev")
+ (0.02 ":tantalum.libera.chat 003 tester` :This server was created Mon Feb 13
2023 at 12:05:04 UTC")
+ (0.01 ":tantalum.libera.chat 004 tester` tantalum.libera.chat solanum-1.0-dev
DGMQRSZaghilopsuwz CFILMPQRSTbcefgijklmnopqrstuvz bkloveqjfI")
+ (0.01 ":tantalum.libera.chat 005 tester` WHOX MONITOR=100 SAFELIST
ELIST=CMNTU ETRACE FNC CALLERID=g KNOCK CHANTYPES=# EXCEPTS INVEX
CHANMODES=eIbq,k,flj,CFLMPQRSTcgimnprstuz :are supported by this server")
+ (0.01 ":tantalum.libera.chat 005 tester` CHANLIMIT=#:250 PREFIX=(ov)@+
MAXLIST=bqeI:100 MODES=4 NETWORK=Libera.Chat STATUSMSG=@+ CASEMAPPING=rfc1459
NICKLEN=16 MAXNICKLEN=16 CHANNELLEN=50 TOPICLEN=390 DEAF=D :are supported by
this server")
+ (0.03 ":tantalum.libera.chat 005 tester`
TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,PRIVMSG:4,NOTICE:4,ACCEPT:,MONITOR:
EXTBAN=$,ajrxz :are supported by this server")
+ (0.01 ":tantalum.libera.chat 251 tester` :There are 70 users and 42977
invisible on 28 servers")
+ (0.00 ":tantalum.libera.chat 252 tester` 38 :IRC Operators online")
+ (0.00 ":tantalum.libera.chat 253 tester` 87 :unknown connection(s)")
+ (0.00 ":tantalum.libera.chat 254 tester` 22908 :channels formed")
+ (0.00 ":tantalum.libera.chat 255 tester` :I have 2507 clients and 1 servers")
+ (0.00 ":tantalum.libera.chat 265 tester` 2507 3232 :Current local users 2507,
max 3232")
+ (0.00 ":tantalum.libera.chat 266 tester` 43047 51777 :Current global users
43047, max 51777")
+ (0.00 ":tantalum.libera.chat 250 tester` :Highest connection count: 3233
(3232 clients) (284887 connections received)")
+ (0.03 ":tantalum.libera.chat 375 tester` :- tantalum.libera.chat Message of
the Day - ")
+ (0.00 ":tantalum.libera.chat 372 tester` :- This server provided by
Hyperfilter (https://hyperfilter.com)")
+ (0.00 ":tantalum.libera.chat 372 tester` :- Email:
support@libera.chat")
+ (0.02 ":tantalum.libera.chat 376 tester` :End of /MOTD command."))
+
+((mode 10 "MODE tester` +i")
+ (0.01 ":tester` MODE tester` :+Ziw")
+ (0.02 ":SaslServ!SaslServ@services.libera.chat NOTICE tester` :Last login
from: \2~tester@127.0.0.1\2 on Apr 07 01:36:25 2023 +0000."))
+
+((nick 10 "NICK tester")
+ (0.02 ":tester`!~tester@127.0.0.1 NICK :tester"))
+
+((join 10 "JOIN #test")
+ (0.02 ":tester!~tester@127.0.0.1 JOIN #test")
+ (0.02 ":tantalum.libera.chat 353 tester = #test :tester zbyqbepbqre7
pusevgfpu Thrfg2187 zngbeb qnexNssvavgl wrebzr- rqpentt Ilehf grfg2 AvtugZbaxrl
pevfgvvbna xrivap_ fnvybePng shohxv gxan arrqyr avpx16 NeanhqW_kzcc jvyyr
wrnaogeq Wnarg cnefavc0 Xbentt RcvpArb flfqrs wfgbxre hafcrag__ Lbevpx_")
+ (0.02 ":tantalum.libera.chat 366 tester #test :End of /NAMES list."))
+
+((mode 10 "MODE #test")
+ (0.02 ":tantalum.libera.chat 324 tester #test +nt")
+ (0.02 ":tantalum.libera.chat 329 tester #test 1621432263"))
diff --git a/test/lisp/erc/resources/base/renick/regain/normal.eld
b/test/lisp/erc/resources/base/renick/regain/normal.eld
new file mode 100644
index 00000000000..9f4df70e580
--- /dev/null
+++ b/test/lisp/erc/resources/base/renick/regain/normal.eld
@@ -0,0 +1,53 @@
+;; -*- mode: lisp-data; -*-
+((cap 10 "CAP REQ :sasl"))
+((nick 10 "NICK tester"))
+((user 10 "USER tester 0 * :tester"))
+
+((authenticate 10 "AUTHENTICATE PLAIN")
+ (0.02 ":cadmium.libera.chat NOTICE * :*** Checking Ident")
+ (0.01 ":cadmium.libera.chat NOTICE * :*** Looking up your hostname...")
+ (0.01 ":cadmium.libera.chat NOTICE * :*** Couldn't look up your hostname")
+ (0.06 ":cadmium.libera.chat NOTICE * :*** No Ident response")
+ (0.09 ":cadmium.libera.chat CAP * ACK :sasl")
+ (0.01 "AUTHENTICATE +"))
+
+((authenticate 10 "AUTHENTICATE AHRlc3RlcgBjaGFuZ2VtZQ==")
+ (0.03 ":cadmium.libera.chat 900 tester tester!tester@127.0.0.1 tester :You
are now logged in as tester")
+ (0.01 ":cadmium.libera.chat 903 tester :SASL authentication successful"))
+
+((cap 10 "CAP END")
+ (0.03 ":cadmium.libera.chat 001 tester :Welcome to the Libera.Chat Internet
Relay Chat Network tester")
+ (0.02 ":cadmium.libera.chat 002 tester :Your host is
cadmium.libera.chat[103.196.37.95/6697], running version solanum-1.0-dev")
+ (0.01 ":cadmium.libera.chat 003 tester :This server was created Wed Jan 25
2023 at 10:22:45 UTC")
+ (0.01 ":cadmium.libera.chat 004 tester cadmium.libera.chat solanum-1.0-dev
DGMQRSZaghilopsuwz CFILMPQRSTbcefgijklmnopqrstuvz bkloveqjfI")
+ (0.00 ":cadmium.libera.chat 005 tester CALLERID=g WHOX ETRACE FNC SAFELIST
ELIST=CMNTU KNOCK MONITOR=100 CHANTYPES=# EXCEPTS INVEX
CHANMODES=eIbq,k,flj,CFLMPQRSTcgimnprstuz :are supported by this server")
+ (0.01 ":cadmium.libera.chat 005 tester CHANLIMIT=#:250 PREFIX=(ov)@+
MAXLIST=bqeI:100 MODES=4 NETWORK=Libera.Chat STATUSMSG=@+ CASEMAPPING=rfc1459
NICKLEN=16 MAXNICKLEN=16 CHANNELLEN=50 TOPICLEN=390 DEAF=D :are supported by
this server")
+ (0.01 ":cadmium.libera.chat 005 tester
TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,PRIVMSG:4,NOTICE:4,ACCEPT:,MONITOR:
EXTBAN=$,ajrxz :are supported by this server")
+ (0.01 ":cadmium.libera.chat 251 tester :There are 70 users and 42996
invisible on 28 servers")
+ (0.02 ":cadmium.libera.chat 252 tester 38 :IRC Operators online")
+ (0.01 ":cadmium.libera.chat 253 tester 57 :unknown connection(s)")
+ (0.01 ":cadmium.libera.chat 254 tester 22912 :channels formed")
+ (0.01 ":cadmium.libera.chat 255 tester :I have 2499 clients and 1 servers")
+ (0.01 ":cadmium.libera.chat 265 tester 2499 4187 :Current local users 2499,
max 4187")
+ (0.01 ":cadmium.libera.chat 266 tester 43066 51827 :Current global users
43066, max 51827")
+ (0.01 ":cadmium.libera.chat 250 tester :Highest connection count: 4188 (4187
clients) (319420 connections received)")
+ (0.01 ":cadmium.libera.chat 375 tester :- cadmium.libera.chat Message of the
Day - ")
+ (0.01 ":cadmium.libera.chat 372 tester :- This server kindly provided by Mach
Dilemma (www.m-d.net)")
+ (0.01 ":cadmium.libera.chat 372 tester :- Welcome to Libera Chat, the IRC
network for")
+ (0.00 ":cadmium.libera.chat 372 tester :- Email:
support@libera.chat")
+ (0.00 ":cadmium.libera.chat 376 tester :End of /MOTD command.")
+ (0.00 ":tester MODE tester :+Ziw")
+ (0.02 ":SaslServ!SaslServ@services.libera.chat NOTICE tester :Last login
from: \2~tester@127.0.0.1\2 on Apr 07 01:02:11 2023 +0000."))
+
+((mode 10 "MODE tester +i"))
+
+((join 10 "JOIN #test")
+ (0.09 ":tester!~tester@127.0.0.1 JOIN #test"))
+
+((mode 10 "MODE #test")
+ (0.03 ":cadmium.libera.chat 353 tester = #test :tester zbyqbepbqre7 pusevgfpu
Thrfg2187 zngbeb qnexNssvavgl wrebzr- rqpentt Ilehf grfg2 AvtugZbaxrl
pevfgvvbna xrivap_ fnvybePng shohxv gxan arrqyr avpx16 NeanhqW_kzcc Lbevpx_
hafcrag__ wfgbxre flfqrs RcvpArb Xbentt jvyyr cnefavc0 Wnarg wrnaogeq")
+ (0.02 ":cadmium.libera.chat 366 tester #test :End of /NAMES list.")
+ (0.00 ":cadmium.libera.chat 324 tester #test +nt")
+ (0.01 ":cadmium.libera.chat 329 tester #test 1621432263"))
+
+((drop 0 DROP))
diff --git a/test/lisp/erc/resources/erc-d/erc-d-tests.el
b/test/lisp/erc/resources/erc-d/erc-d-tests.el
index a501cd55494..0ae70087fd1 100644
--- a/test/lisp/erc/resources/erc-d/erc-d-tests.el
+++ b/test/lisp/erc/resources/erc-d/erc-d-tests.el
@@ -674,7 +674,7 @@ nonzero for this to work."
(ert-deftest erc-d-run-linger ()
:tags '(:unstable :expensive-test)
(erc-d-tests-with-server (dumb-s _) linger
- (with-current-buffer (erc-d-t-wait-for 6 (get-buffer "#chan"))
+ (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
(erc-d-t-search-for 2 "hey"))
(with-current-buffer (process-buffer dumb-s)
(erc-d-t-search-for 2 "Lingering for 1.00 seconds"))
diff --git a/test/lisp/erc/resources/erc-d/erc-d.el
b/test/lisp/erc/resources/erc-d/erc-d.el
index f4491bbb834..e9d880644d4 100644
--- a/test/lisp/erc/resources/erc-d/erc-d.el
+++ b/test/lisp/erc/resources/erc-d/erc-d.el
@@ -299,9 +299,10 @@ PROCESS should be a client connection or a server network
process."
(concat (format-time-string "%s.%N: ")
,format-string)
,format-string))
- (want-insert (and ,process erc-d--in-process)))
- (when want-insert
- (with-current-buffer (process-buffer (process-get ,process :server))
+ (want-insert (and ,process erc-d--in-process))
+ (buffer (process-buffer (process-get ,process :server))))
+ (when (and want-insert (buffer-live-p buffer))
+ (with-current-buffer buffer
(goto-char (point-max))
(insert (concat (format ,format-string ,@args) "\n"))))
(when (or erc-d--m-debug (not want-insert))
@@ -455,7 +456,7 @@ including line delimiters."
(setq string (unless (= (match-end 0) (length string))
(substring string (match-end 0))))
(erc-d--log process line nil)
- (ring-insert queue (erc-d-i--parse-message line 'decode))))
+ (ring-insert queue (erc-d-i--parse-message line nil))))
(when string
(setf (process-get process :stashed-input) string))))
diff --git a/test/lisp/erc/resources/erc-scenarios-common.el
b/test/lisp/erc/resources/erc-scenarios-common.el
index 0d9a79ae9ce..32e7556d602 100644
--- a/test/lisp/erc/resources/erc-scenarios-common.el
+++ b/test/lisp/erc/resources/erc-scenarios-common.el
@@ -51,7 +51,7 @@
;; argument, a `let*'-style VAR-LIST. Relying on such a macro is
;; unfortunate because in many ways it actually hampers readability by
;; favoring magic over verbosity. But without it (or something
-;; similar), any failing test would cause all subsequent tests in this
+;; similar), any failing test would cause all subsequent tests in a
;; file to fail like dominoes (making all but the first backtrace
;; useless).
;;
@@ -121,6 +121,7 @@
(erc-modules (copy-sequence erc-modules))
(inhibit-interaction t)
(auth-source-do-cache nil)
+ (timer-list (copy-sequence timer-list))
(erc-auth-source-parameters-join-function nil)
(erc-autojoin-channels-alist nil)
(erc-server-auto-reconnect nil)
diff --git a/test/lisp/erc/resources/fill/snapshots/merge-01-start.eld
b/test/lisp/erc/resources/fill/snapshots/merge-01-start.eld
new file mode 100644
index 00000000000..88defb6c09e
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/merge-01-start.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n\n[Sat Apr 1
2023]\n<bob> zero.[07:00]\n<alic [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/fill/snapshots/merge-02-right.eld
b/test/lisp/erc/resources/fill/snapshots/merge-02-right.eld
new file mode 100644
index 00000000000..c5a9cbfc05d
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/merge-02-right.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n\n[Sat Apr 1
2023]\n<bob> zero.[07:00]\n<alic [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/fill/snapshots/monospace-01-start.eld
b/test/lisp/erc/resources/fill/snapshots/monospace-01-start.eld
new file mode 100644
index 00000000000..67ebad542fb
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/monospace-01-start.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n" 2 21
(erc-timestamp 0 line-prefix (space :wi [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/fill/snapshots/monospace-02-right.eld
b/test/lisp/erc/resources/fill/snapshots/monospace-02-right.eld
new file mode 100644
index 00000000000..0bf8001475d
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/monospace-02-right.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n" 2 21
(erc-timestamp 0 line-prefix (space :wi [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/fill/snapshots/monospace-03-left.eld
b/test/lisp/erc/resources/fill/snapshots/monospace-03-left.eld
new file mode 100644
index 00000000000..7d231d19cef
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/monospace-03-left.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n" 2 21
(erc-timestamp 0 line-prefix (space :wi [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/fill/snapshots/monospace-04-reset.eld
b/test/lisp/erc/resources/fill/snapshots/monospace-04-reset.eld
new file mode 100644
index 00000000000..67ebad542fb
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/monospace-04-reset.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n" 2 21
(erc-timestamp 0 line-prefix (space :wi [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/fill/snapshots/spacing-01-mono.eld
b/test/lisp/erc/resources/fill/snapshots/spacing-01-mono.eld
new file mode 100644
index 00000000000..45c3883b023
--- /dev/null
+++ b/test/lisp/erc/resources/fill/snapshots/spacing-01-mono.eld
@@ -0,0 +1 @@
+#("\n\n\n[Thu Jan 1 1970]\n*** This server is in debug mode and is logging
all user I/O. If you do not wish for everything you send to be readable by the
server owner(s), please disconnect.[00:00]\n<alice> bob: come, you are a
tedious fool: to the purpose. What was done to Elbow's wife, that he hath cause
to complain of? Come me to what was done to her.\n<bob> alice: Either your
unparagoned mistress is dead, or she's outprized by a trifle.\n<bob> This
buffer is for text.\n*** one two th [...]
\ No newline at end of file
diff --git a/test/lisp/erc/resources/sasl/plain-overlong-aligned.eld
b/test/lisp/erc/resources/sasl/plain-overlong-aligned.eld
new file mode 100644
index 00000000000..6ed8981be0f
--- /dev/null
+++ b/test/lisp/erc/resources/sasl/plain-overlong-aligned.eld
@@ -0,0 +1,39 @@
+;; -*- mode: lisp-data; -*-
+((cap-req 10 "CAP REQ :sasl"))
+((nick 10 "NICK emersion"))
+((user 10 "USER emersion 0 * :emersion")
+ (0.0 ":irc.example.org NOTICE * :*** Looking up your hostname...")
+ (0.0 ":irc.example.org NOTICE * :*** Found your hostname")
+ (0.0 ":irc.example.org CAP * ACK :sasl"))
+
+((authenticate-plain 10 "AUTHENTICATE PLAIN")
+ (0.0 ":irc.example.org AUTHENTICATE +"))
+((authenticate-gimme-1 10 "AUTHENTICATE
AGVtZXJzaW9uAEVzdCB1dCBiZWF0YWUgb21uaXMgaXBzYW0uIFF1aXMgZnVnaWF0IGRlbGVuaXRpIHRvdGFtIHF1aS4gSXBzdW0gcXVhbSBhIGRvbG9ydW0gdGVtcG9yYSB2ZWxpdCBsYWJvcnVtIG9kaXQuIEV0IHNhZXBlIHZvbHVwdGF0ZSBzZWQgY3VtcXVlIHZlbC4gVm9sdXB0YXMgc2ludCBhYiBwYXJpYXR1ciBsaWJlcm8gdmVyaXRhdGlzIGNvcnJ1cHRpLiBWZXJvIGl1cmUgb21uaXMgdWxsYW0uIFZlcm8gYmVhdGFlIGRvbG9yZXMgZmFjZXJlIGZ1Z2lhdCBpcHNhbS4gRWEgZXN0IHBhcmlhdHVyIG1pbmltYSBub2Jpcw=="))
+((authenticate-gimme-2 10 "AUTHENTICATE +")
+ (0.0 ":irc.example.org 900 * * emersion :You are now logged in as emersion")
+ (0.0 ":irc.example.org 903 * :Authentication successful"))
+
+((cap-end 10 "CAP END")
+ (0.0 ":irc.example.org 001 emersion :Welcome to the ExampleOrg IRC Network
emersion")
+ (0.0 ":irc.example.org 002 emersion :Your host is irc.example.org, running
version oragono-2.6.1")
+ (0.0 ":irc.example.org 003 emersion :This server was created Sat, 17 Jul 2021
09:06:42 UTC")
+ (0.0 ":irc.example.org 004 emersion irc.example.org oragono-2.6.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.0 ":irc.example.org 005 emersion AWAYLEN=200 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX KICKLEN=390 :are supported by this
server")
+ (0.0 ":irc.example.org 005 emersion MAXLIST=beI:60 MAXTARGETS=4 MODES
MONITOR=100 NETWORK=ExampleOrg NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8MAPPING=rfc8265 UTF8ONLY :are supported by this server")
+ (0.0 ":irc.example.org 005 emersion draft/CHATHISTORY=100 :are supported by
this server")
+ (0.0 ":irc.example.org 251 emersion :There are 1 users and 0 invisible on 1
server(s)")
+ (0.0 ":irc.example.org 252 emersion 0 :IRC Operators online")
+ (0.0 ":irc.example.org 253 emersion 0 :unregistered connections")
+ (0.0 ":irc.example.org 254 emersion 0 :channels formed")
+ (0.0 ":irc.example.org 255 emersion :I have 1 clients and 0 servers")
+ (0.0 ":irc.example.org 265 emersion 1 1 :Current local users 1, max 1")
+ (0.0 ":irc.example.org 266 emersion 1 1 :Current global users 1, max 1")
+ (0.0 ":irc.example.org 422 emersion :MOTD File is missing"))
+
+((mode-user 10 "MODE emersion +i")
+ (0.0 ":irc.example.org 221 emersion +Zi")
+ (0.0 ":irc.example.org NOTICE emersion :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect."))
+
+((quit 5 "QUIT :\2ERC\2")
+ (0 ":emersion!~u@yuvqisyu7m7qs.irc QUIT :Quit"))
+((drop 1 DROP))
diff --git a/test/lisp/erc/resources/sasl/plain-overlong-split.eld
b/test/lisp/erc/resources/sasl/plain-overlong-split.eld
new file mode 100644
index 00000000000..3e6870790f3
--- /dev/null
+++ b/test/lisp/erc/resources/sasl/plain-overlong-split.eld
@@ -0,0 +1,39 @@
+;; -*- mode: lisp-data; -*-
+((cap-req 10 "CAP REQ :sasl"))
+((nick 10 "NICK emersion"))
+((user 10 "USER emersion 0 * :emersion")
+ (0.0 ":irc.example.org NOTICE * :*** Looking up your hostname...")
+ (0.0 ":irc.example.org NOTICE * :*** Found your hostname")
+ (0.0 ":irc.example.org CAP * ACK :sasl"))
+
+((authenticate-plain 10 "AUTHENTICATE PLAIN")
+ (0.0 ":irc.example.org AUTHENTICATE +"))
+((authenticate-gimme-1 10 "AUTHENTICATE
AGVtZXJzaW9uAEVzdCB1dCBiZWF0YWUgb21uaXMgaXBzYW0uIFF1aXMgZnVnaWF0IGRlbGVuaXRpIHRvdGFtIHF1aS4gSXBzdW0gcXVhbSBhIGRvbG9ydW0gdGVtcG9yYSB2ZWxpdCBsYWJvcnVtIG9kaXQuIEV0IHNhZXBlIHZvbHVwdGF0ZSBzZWQgY3VtcXVlIHZlbC4gVm9sdXB0YXMgc2ludCBhYiBwYXJpYXR1ciBsaWJlcm8gdmVyaXRhdGlzIGNvcnJ1cHRpLiBWZXJvIGl1cmUgb21uaXMgdWxsYW0uIFZlcm8gYmVhdGFlIGRvbG9yZXMgZmFjZXJlIGZ1Z2lhdCBpcHNhbS4gRWEgZXN0IHBhcmlhdHVyIG1pbmltYSBub2JpcyBz"))
+((authenticate-gimme-2 10 "AUTHENTICATE
dW50IGF1dCB1dC4gRG9sb3JlcyB1dCBsYXVkYW50aXVtIG1haW9yZXMgdGVtcG9yaWJ1cyB2b2x1cHRhdGVzLiBSZWljaWVuZGlzIGltcGVkaXQgb21uaXMgZXQgdW5kZSBkZWxlY3R1cyBxdWFzIGFiLiBRdWFlIGVsaWdlbmRpIG5lY2Vzc2l0YXRpYnVzIGRvbG9yaWJ1cyBtb2xlc3RpYXMgdGVtcG9yYSBtYWduYW0gYXNzdW1lbmRhLg==")
+ (0.0 ":irc.example.org 900 * * emersion :You are now logged in as emersion")
+ (0.0 ":irc.example.org 903 * :Authentication successful"))
+
+((cap-end 10 "CAP END")
+ (0.0 ":irc.example.org 001 emersion :Welcome to the ExampleOrg IRC Network
emersion")
+ (0.0 ":irc.example.org 002 emersion :Your host is irc.example.org, running
version oragono-2.6.1")
+ (0.0 ":irc.example.org 003 emersion :This server was created Sat, 17 Jul 2021
09:06:42 UTC")
+ (0.0 ":irc.example.org 004 emersion irc.example.org oragono-2.6.1 BERTZios
CEIMRUabefhiklmnoqstuv Iabefhkloqv")
+ (0.0 ":irc.example.org 005 emersion AWAYLEN=200 BOT=B CASEMAPPING=ascii
CHANLIMIT=#:100 CHANMODES=Ibe,k,fl,CEMRUimnstu CHANNELLEN=64 CHANTYPES=#
ELIST=U EXCEPTS EXTBAN=,m FORWARD=f INVEX KICKLEN=390 :are supported by this
server")
+ (0.0 ":irc.example.org 005 emersion MAXLIST=beI:60 MAXTARGETS=4 MODES
MONITOR=100 NETWORK=ExampleOrg NICKLEN=32 PREFIX=(qaohv)~&@%+ STATUSMSG=~&@%+
TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,USERHOST:10,PRIVMSG:4,TAGMSG:4,NOTICE:4,MONITOR:100
TOPICLEN=390 UTF8MAPPING=rfc8265 UTF8ONLY :are supported by this server")
+ (0.0 ":irc.example.org 005 emersion draft/CHATHISTORY=100 :are supported by
this server")
+ (0.0 ":irc.example.org 251 emersion :There are 1 users and 0 invisible on 1
server(s)")
+ (0.0 ":irc.example.org 252 emersion 0 :IRC Operators online")
+ (0.0 ":irc.example.org 253 emersion 0 :unregistered connections")
+ (0.0 ":irc.example.org 254 emersion 0 :channels formed")
+ (0.0 ":irc.example.org 255 emersion :I have 1 clients and 0 servers")
+ (0.0 ":irc.example.org 265 emersion 1 1 :Current local users 1, max 1")
+ (0.0 ":irc.example.org 266 emersion 1 1 :Current global users 1, max 1")
+ (0.0 ":irc.example.org 422 emersion :MOTD File is missing"))
+
+((mode-user 10 "MODE emersion +i")
+ (0.0 ":irc.example.org 221 emersion +Zi")
+ (0.0 ":irc.example.org NOTICE emersion :This server is in debug mode and is
logging all user I/O. If you do not wish for everything you send to be readable
by the server owner(s), please disconnect."))
+
+((quit 5 "QUIT :\2ERC\2")
+ (0 ":emersion!~u@yuvqisyu7m7qs.irc QUIT :Quit"))
+((drop 1 DROP))
diff --git a/test/lisp/eshell/em-cmpl-tests.el
b/test/lisp/eshell/em-cmpl-tests.el
index be2199c0464..29a41625d5e 100644
--- a/test/lisp/eshell/em-cmpl-tests.el
+++ b/test/lisp/eshell/em-cmpl-tests.el
@@ -69,11 +69,10 @@ ACTUAL and EXPECTED should both be lists of strings."
(ert-deftest em-cmpl-test/parse-arguments/pipeline ()
"Test that parsing arguments for completion discards earlier commands."
(with-temp-eshell
- (let ((eshell-test-value '("foo" "bar")))
- (insert "echo hi | cat")
- (should (eshell-arguments-equal
- (car (eshell-complete-parse-arguments))
- '("cat"))))))
+ (insert "echo hi | cat")
+ (should (eshell-arguments-equal
+ (car (eshell-complete-parse-arguments))
+ '("cat")))))
(ert-deftest em-cmpl-test/parse-arguments/multiple-dots ()
"Test parsing arguments with multiple dots like \".../\"."
@@ -123,6 +122,45 @@ ACTUAL and EXPECTED should both be lists of strings."
(car (eshell-complete-parse-arguments))
'("echo" "foo" "bar"))))))
+(ert-deftest em-cmpl-test/parse-arguments/unevaluated-subcommand ()
+ "Test that subcommands return a stub when parsing for completion."
+ (with-temp-eshell
+ (insert "echo {echo hi}")
+ (should (eshell-arguments-equal
+ (car (eshell-complete-parse-arguments))
+ `("echo" ,(propertize
+ "\0" 'eshell-argument-stub 'named-command)))))
+ (with-temp-eshell
+ (insert "echo ${echo hi}")
+ (should (eshell-arguments-equal
+ (car (eshell-complete-parse-arguments))
+ `("echo" ,(propertize
+ "\0" 'eshell-argument-stub 'named-command))))))
+
+(ert-deftest em-cmpl-test/parse-arguments/unevaluated-lisp-form ()
+ "Test that Lisp forms return a stub when parsing for completion."
+ (with-temp-eshell
+ (insert "echo (concat \"hi\")")
+ (should (eshell-arguments-equal
+ (car (eshell-complete-parse-arguments))
+ `("echo" ,(propertize
+ "\0" 'eshell-argument-stub 'lisp-command)))))
+ (with-temp-eshell
+ (insert "echo $(concat \"hi\")")
+ (should (eshell-arguments-equal
+ (car (eshell-complete-parse-arguments))
+ `("echo" ,(propertize
+ "\0" 'eshell-argument-stub 'lisp-command))))))
+
+(ert-deftest em-cmpl-test/parse-arguments/unevaluated-inner-subcommand ()
+ "Test that nested subcommands return a stub when parsing for completion."
+ (with-temp-eshell
+ (insert "echo $exec-path[${echo 0}]")
+ (should (eshell-arguments-equal
+ (car (eshell-complete-parse-arguments))
+ `("echo" ,(propertize
+ "\0" 'eshell-argument-stub 'named-command))))))
+
(ert-deftest em-cmpl-test/file-completion/unique ()
"Test completion of file names when there's a unique result."
(with-temp-eshell
@@ -150,14 +188,39 @@ ACTUAL and EXPECTED should both be lists of strings."
(forward-line -1)
(should (looking-at "Complete, but not unique")))))))
+(ert-deftest em-cmpl-test/file-completion/glob ()
+ "Test completion of file names using a glob."
+ (with-temp-eshell
+ (ert-with-temp-directory default-directory
+ (write-region nil nil (expand-file-name "file.txt"))
+ (write-region nil nil (expand-file-name "file.el"))
+ (should (equal (eshell-insert-and-complete "echo fi*.el")
+ "echo file.el ")))))
+
(ert-deftest em-cmpl-test/file-completion/after-list ()
"Test completion of file names after previous list arguments.
See bug#59956."
(with-temp-eshell
- (ert-with-temp-directory default-directory
- (write-region nil nil (expand-file-name "file.txt"))
- (should (equal (eshell-insert-and-complete "echo (list 1 2) fi")
- "echo (list 1 2) file.txt ")))))
+ (let ((eshell-test-value '("foo" "bar")))
+ (ert-with-temp-directory default-directory
+ (write-region nil nil (expand-file-name "file.txt"))
+ (should (equal (eshell-insert-and-complete "echo $eshell-test-value fi")
+ "echo $eshell-test-value file.txt "))))))
+
+(ert-deftest em-cmpl-test/command-completion ()
+ "Test completion of command names like \"command\"."
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "listif")
+ "listify "))))
+
+(ert-deftest em-cmpl-test/subcommand-completion ()
+ "Test completion of command names like \"{command}\"."
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "{ listif")
+ "{ listify ")))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo ${ listif")
+ "echo ${ listify "))))
(ert-deftest em-cmpl-test/lisp-symbol-completion ()
"Test completion of Lisp forms like \"#'symbol\" and \"`symbol\".
@@ -174,7 +237,50 @@ See <lisp/eshell/esh-cmd.el>."
See <lisp/eshell/esh-cmd.el>."
(with-temp-eshell
(should (equal (eshell-insert-and-complete "echo (eshell/ech")
- "echo (eshell/echo"))))
+ "echo (eshell/echo")))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo $(eshell/ech")
+ "echo $(eshell/echo"))))
+
+(ert-deftest em-cmpl-test/special-ref-completion/type ()
+ "Test completion of the start of special references like \"#<buffer\".
+See <lisp/eshell/esh-arg.el>."
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo hi > #<buf")
+ "echo hi > #<buffer ")))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo hi > #<proc")
+ "echo hi > #<process "))))
+
+(ert-deftest em-cmpl-test/special-ref-completion/implicit-buffer ()
+ "Test completion of special references like \"#<buf>\".
+See <lisp/eshell/esh-arg.el>."
+ (let (bufname)
+ (with-temp-buffer
+ (setq bufname (rename-buffer "my-buffer" t))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo hi > #<my-buf")
+ (format "echo hi > #<%s> " bufname))))
+ (setq bufname (rename-buffer "another buffer" t))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo hi > #<anoth")
+ (format "echo hi > #<%s> "
+ (string-replace " " "\\ " bufname))))))))
+
+(ert-deftest em-cmpl-test/special-ref-completion/buffer ()
+ "Test completion of special references like \"#<buffer buf>\".
+See <lisp/eshell/esh-arg.el>."
+ (let (bufname)
+ (with-temp-buffer
+ (setq bufname (rename-buffer "my-buffer" t))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo hi > #<buffer my-buf")
+ (format "echo hi > #<buffer %s> " bufname))))
+ (setq bufname (rename-buffer "another buffer" t))
+ (with-temp-eshell
+ (should (equal (eshell-insert-and-complete "echo hi > #<buffer anoth")
+ (format "echo hi > #<buffer %s> "
+ (string-replace " " "\\ " bufname))))))))
(ert-deftest em-cmpl-test/variable-ref-completion ()
"Test completion of variable references like \"$var\".
@@ -221,7 +327,7 @@ See <lisp/eshell/esh-var.el>."
"Test completion of things that look like variable assignment, but aren't.
For example, the second argument in \"tar --directory=dir\" looks
like it could be a variable assignment, but it's not. We should
-let `pcomplete-tar' handle it instead.
+let `pcomplete/tar' handle it instead.
See <lisp/eshell/esh-var.el>."
(with-temp-eshell
diff --git a/test/lisp/eshell/esh-arg-tests.el
b/test/lisp/eshell/esh-arg-tests.el
index 918ad3a949f..c883db3907f 100644
--- a/test/lisp/eshell/esh-arg-tests.el
+++ b/test/lisp/eshell/esh-arg-tests.el
@@ -102,4 +102,34 @@ treated literally, as a backslash and a newline."
(eshell-match-command-output "echo \"hi\\\nthere\""
"hithere\n")))
+(ert-deftest esh-arg-test/special-reference/default ()
+ "Test that \"#<buf>\" refers to the buffer \"buf\"."
+ (with-temp-buffer
+ (rename-buffer "my-buffer" t)
+ (eshell-command-result-equal
+ (format "echo #<%s>" (buffer-name))
+ (current-buffer))))
+
+(ert-deftest esh-arg-test/special-reference/buffer ()
+ "Test that \"#<buffer buf>\" refers to the buffer \"buf\"."
+ (with-temp-buffer
+ (rename-buffer "my-buffer" t)
+ (eshell-command-result-equal
+ (format "echo #<buffer %s>" (buffer-name))
+ (current-buffer))))
+
+(ert-deftest esh-arg-test/special-reference/special ()
+ "Test that \"#<...>\" works correctly when escaping special characters."
+ (with-temp-buffer
+ (rename-buffer "<my buffer>" t)
+ (let ((escaped-bufname (replace-regexp-in-string
+ (rx (group (or "\\" "<" ">" space))) "\\\\\\1"
+ (buffer-name))))
+ (eshell-command-result-equal
+ (format "echo #<%s>" escaped-bufname)
+ (current-buffer))
+ (eshell-command-result-equal
+ (format "echo #<buffer %s>" escaped-bufname)
+ (current-buffer)))))
+
;; esh-arg-tests.el ends here
diff --git a/test/lisp/eshell/esh-cmd-tests.el
b/test/lisp/eshell/esh-cmd-tests.el
index 94763954622..a7208eb3a0b 100644
--- a/test/lisp/eshell/esh-cmd-tests.el
+++ b/test/lisp/eshell/esh-cmd-tests.el
@@ -73,6 +73,13 @@ Test that trailing arguments outside the subcommand are
ignored.
e.g. \"{(+ 1 2)} 3\" => 3"
(eshell-command-result-equal "{(+ 1 2)} 3" 3))
+(ert-deftest esh-cmd-test/subcommand-shadow-value ()
+ "Test that the variable `value' isn't shadowed inside subcommands."
+ (with-temp-eshell
+ (with-no-warnings (setq-local value "hello"))
+ (eshell-match-command-output "echo ${echo $value}"
+ "hello\n")))
+
(ert-deftest esh-cmd-test/let-rebinds-after-defer ()
"Test that let-bound values are properly updated after `eshell-defer'.
When inside a `let' block in an Eshell command form, we need to
@@ -151,13 +158,13 @@ bug#59469."
(eshell-match-command-output "for i in 1 2 (list 3 4) { echo $i }"
"1\n2\n3\n4\n")))
-(ert-deftest esh-cmd-test/for-name-loop () ; bug#15231
+(ert-deftest esh-cmd-test/for-loop-name () ; bug#15231
"Test invocation of a for loop using `name'."
(let ((process-environment (cons "name" process-environment)))
(eshell-command-result-equal "for name in 3 { echo $name }"
3)))
-(ert-deftest esh-cmd-test/for-name-shadow-loop () ; bug#15372
+(ert-deftest esh-cmd-test/for-loop-name-shadow () ; bug#15372
"Test invocation of a for loop using an env-var."
(let ((process-environment (cons "name=env-value" process-environment)))
(with-temp-eshell
@@ -165,6 +172,13 @@ bug#59469."
"echo $name; for name in 3 { echo $name }; echo $name"
"env-value\n3\nenv-value\n"))))
+(ert-deftest esh-cmd-test/for-loop-for-items-shadow ()
+ "Test that the variable `for-items' isn't shadowed inside for loops."
+ (with-temp-eshell
+ (with-no-warnings (setq-local for-items "hello"))
+ (eshell-match-command-output "for i in 1 { echo $for-items }"
+ "hello\n")))
+
(ert-deftest esh-cmd-test/for-loop-pipe ()
"Test invocation of a for loop piped to another command."
(skip-unless (executable-find "rev"))
diff --git a/test/lisp/eshell/esh-proc-tests.el
b/test/lisp/eshell/esh-proc-tests.el
index 8e02fbb5497..fa20efa71e1 100644
--- a/test/lisp/eshell/esh-proc-tests.el
+++ b/test/lisp/eshell/esh-proc-tests.el
@@ -192,6 +192,59 @@ pipeline."
"stdout\nstderr\n"))))
+;; Synchronous processes
+
+;; These tests check that synchronous subprocesses (only used on
+;; MS-DOS by default) work correctly. To help them run on MS-DOS as
+;; well, we use the Emacs executable as our subprocess to test
+;; against; that way, users don't need to have GNU coreutils (or
+;; similar) installed.
+
+(defsubst esh-proc-test/emacs-command (command)
+ "Evaluate COMMAND in a new Emacs batch instance."
+ (mapconcat #'shell-quote-argument
+ `(,(expand-file-name invocation-name invocation-directory)
+ "-Q" "--batch" "--eval" ,(prin1-to-string command))
+ " "))
+
+(defvar esh-proc-test/emacs-echo
+ (esh-proc-test/emacs-command '(princ "hello\n"))
+ "A command that prints \"hello\" to stdout using Emacs.")
+
+(defvar esh-proc-test/emacs-upcase
+ (esh-proc-test/emacs-command
+ '(princ (upcase (concat (read-string "") "\n"))))
+ "A command that upcases the text from stdin using Emacs.")
+
+(ert-deftest esh-proc-test/synchronous-proc/simple/interactive ()
+ "Test that synchronous processes work in an interactive shell."
+ (let ((eshell-supports-asynchronous-processes nil))
+ (with-temp-eshell
+ (eshell-match-command-output esh-proc-test/emacs-echo
+ "\\`hello\n"))))
+
+(ert-deftest esh-proc-test/synchronous-proc/simple/command-result ()
+ "Test that synchronous processes work via `eshell-command-result'."
+ (let ((eshell-supports-asynchronous-processes nil))
+ (eshell-command-result-equal esh-proc-test/emacs-echo
+ "hello\n")))
+
+(ert-deftest esh-proc-test/synchronous-proc/pipeline/interactive ()
+ "Test that synchronous pipelines work in an interactive shell."
+ (let ((eshell-supports-asynchronous-processes nil))
+ (with-temp-eshell
+ (eshell-match-command-output (concat esh-proc-test/emacs-echo " | "
+ esh-proc-test/emacs-upcase)
+ "\\`HELLO\n"))))
+
+(ert-deftest esh-proc-test/synchronous-proc/pipeline/command-result ()
+ "Test that synchronous pipelines work via `eshell-command-result'."
+ (let ((eshell-supports-asynchronous-processes nil))
+ (eshell-command-result-equal (concat esh-proc-test/emacs-echo " | "
+ esh-proc-test/emacs-upcase)
+ "HELLO\n")))
+
+
;; Killing processes
(ert-deftest esh-proc-test/kill-process/foreground-only ()
diff --git a/test/lisp/eshell/esh-var-tests.el
b/test/lisp/eshell/esh-var-tests.el
index 6767d9289f9..771bd5a419c 100644
--- a/test/lisp/eshell/esh-var-tests.el
+++ b/test/lisp/eshell/esh-var-tests.el
@@ -454,7 +454,7 @@ nil, use FUNCTION instead."
(let ((temporary-file-directory
(file-name-as-directory (make-temp-file "esh-vars-tests" t))))
(unwind-protect
- (eshell-command-result-equal "cat \"$<echo hi>\"" "hi")
+ (eshell-command-result-equal "cat \"$<echo \\\"hi\\\">\"" "hi")
(delete-directory temporary-file-directory t))))
(ert-deftest esh-var-test/quoted-interp-concat-cmd ()
diff --git a/test/lisp/eshell/eshell-tests.el b/test/lisp/eshell/eshell-tests.el
index 743cc28b9b5..390f75cfbb9 100644
--- a/test/lisp/eshell/eshell-tests.el
+++ b/test/lisp/eshell/eshell-tests.el
@@ -107,6 +107,50 @@
(format template "format \"%s\" eshell-in-pipeline-p")
"nil")))
+(ert-deftest eshell-test/eshell-command/simple ()
+ "Test that the `eshell-command' function writes to the current buffer."
+ (skip-unless (executable-find "echo"))
+ (ert-with-temp-directory eshell-directory-name
+ (let ((eshell-history-file-name nil))
+ (with-temp-buffer
+ (eshell-command "*echo hi" t)
+ (should (equal (buffer-string) "hi\n"))))))
+
+(ert-deftest eshell-test/eshell-command/pipeline ()
+ "Test that the `eshell-command' function writes to the current buffer.
+This test uses a pipeline for the command."
+ (skip-unless (and (executable-find "echo")
+ (executable-find "cat")))
+ (ert-with-temp-directory eshell-directory-name
+ (let ((eshell-history-file-name nil))
+ (with-temp-buffer
+ (eshell-command "*echo hi | *cat" t)
+ (should (equal (buffer-string) "hi\n"))))))
+
+(ert-deftest eshell-test/eshell-command/background ()
+ "Test that `eshell-command' works for background commands."
+ (skip-unless (executable-find "echo"))
+ (ert-with-temp-directory eshell-directory-name
+ (let ((orig-processes (process-list))
+ (eshell-history-file-name nil))
+ (with-temp-buffer
+ (eshell-command "*echo hi &" t)
+ (eshell-wait-for (lambda () (equal (process-list) orig-processes)))
+ (should (equal (buffer-string) "hi\n"))))))
+
+(ert-deftest eshell-test/eshell-command/background-pipeline ()
+ "Test that `eshell-command' works for background commands.
+This test uses a pipeline for the command."
+ (skip-unless (and (executable-find "echo")
+ (executable-find "cat")))
+ (ert-with-temp-directory eshell-directory-name
+ (let ((orig-processes (copy-tree (process-list)))
+ (eshell-history-file-name nil))
+ (with-temp-buffer
+ (eshell-command "*echo hi | *cat &" t)
+ (eshell-wait-for (lambda () (equal (process-list) orig-processes)))
+ (should (equal (buffer-string) "hi\n"))))))
+
(ert-deftest eshell-test/command-running-p ()
"Modeline should show no command running"
(with-temp-eshell
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el
index bc094345ffe..0873910ddf9 100644
--- a/test/lisp/filenotify-tests.el
+++ b/test/lisp/filenotify-tests.el
@@ -939,10 +939,13 @@ delivered."
:tags '(:expensive-test)
(skip-unless (file-notify--test-local-enabled))
- ;; `auto-revert-buffers' runs every 5". And we must wait, until the
- ;; file has been reverted.
- (let ((timeout (if (file-remote-p temporary-file-directory) 60 10))
- buf)
+ ;; Run with shortened `auto-revert-interval' for a faster test.
+ (let* ((auto-revert-interval 1)
+ (timeout (if (file-remote-p temporary-file-directory)
+ 60 ; FIXME: can this be shortened?
+ (* auto-revert-interval 2.5)))
+ buf)
+ (auto-revert-set-timer)
(unwind-protect
(progn
;; In the remote case, `vc-refresh-state' returns undesired
@@ -960,10 +963,9 @@ delivered."
(sleep-for 1)
(auto-revert-mode 1)
- ;; `auto-revert-buffers' runs every 5".
(with-timeout (timeout (ignore))
(while (null auto-revert-notify-watch-descriptor)
- (sleep-for 1)))
+ (sleep-for 0.2)))
;; `file-notify--test-monitor' needs to know
;; `file-notify--test-desc' in order to compute proper
@@ -1032,7 +1034,7 @@ delivered."
(file-notify--test-cleanup))))
(file-notify--deftest-remote file-notify-test04-autorevert
- "Check autorevert via file notification for remote files.")
+ "Check autorevert via file notification for remote files." t)
(ert-deftest file-notify-test05-file-validity ()
"Check `file-notify-valid-p' for files."
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index aadb60e1de7..f6c7be88b05 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -166,6 +166,27 @@ form.")
(hack-local-variables)
(should (eq lexical-binding nil)))))
+(ert-deftest files-tests-safe-local-variable-directories ()
+ ;; safe-local-variable-directories should be risky,
+ ;; so use it as an arbitrary risky variable.
+ (let ((test-alist '((safe-local-variable-directories . "some_val")))
+ (fakedir default-directory)
+ (enable-local-eval t))
+ (with-temp-buffer
+ (setq safe-local-variable-directories (list fakedir))
+ (hack-local-variables-filter test-alist fakedir)
+ (should (equal file-local-variables-alist test-alist)))
+ (with-temp-buffer
+ (setq safe-local-variable-directories (list fakedir))
+ (setq noninteractive t)
+ (hack-local-variables-filter test-alist "wrong")
+ (should-not (equal file-local-variables-alist test-alist)))
+ (with-temp-buffer
+ (setq safe-local-variable-directories '())
+ (setq noninteractive t)
+ (hack-local-variables-filter test-alist fakedir)
+ (should-not (equal file-local-variables-alist test-alist)))))
+
(defvar files-test-bug-18141-file
(ert-resource-file "files-bug18141.el.gz")
"Test file for bug#18141.")
diff --git a/test/lisp/files-x-tests.el b/test/lisp/files-x-tests.el
index f79118fd564..4e14ae68fb8 100644
--- a/test/lisp/files-x-tests.el
+++ b/test/lisp/files-x-tests.el
@@ -66,7 +66,9 @@
"Test setting connection-local profile variables."
;; Declare (PROFILE VARIABLES) objects.
- (let (connection-local-profile-alist connection-local-criteria-alist)
+ (let ((clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
+ connection-local-profile-alist connection-local-criteria-alist)
(connection-local-set-profile-variables
'remote-bash files-x-test--variables1)
(should
@@ -94,13 +96,20 @@
(should
(equal
(connection-local-get-profile-variables 'remote-nullfile)
- files-x-test--variables4))))
+ files-x-test--variables4))
+
+ ;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))))
(ert-deftest files-x-test-connection-local-update-profile-variables ()
"Test updating connection-local profile variables."
;; Declare (PROFILE VARIABLES) objects.
- (let (connection-local-profile-alist connection-local-criteria-alist)
+ (let ((clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
+ connection-local-profile-alist connection-local-criteria-alist)
(connection-local-set-profile-variables
'remote-bash (copy-alist files-x-test--variables1))
(should
@@ -116,13 +125,20 @@
(equal
(connection-local-get-profile-variables 'remote-bash)
(cons (car files-x-test--variables2)
- (cdr files-x-test--variables1))))))
+ (cdr files-x-test--variables1))))
+
+ ;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))))
(ert-deftest files-x-test-connection-local-set-profiles ()
"Test setting connection-local profiles."
;; Declare (CRITERIA PROFILES) objects.
- (let (connection-local-profile-alist connection-local-criteria-alist)
+ (let ((clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
+ connection-local-profile-alist connection-local-criteria-alist)
(connection-local-set-profile-variables
'remote-bash files-x-test--variables1)
(connection-local-set-profile-variables
@@ -205,12 +221,19 @@
'(remote-bash remote-ksh remote-nullfile)))
;; A criteria other than plist is wrong.
- (should-error (connection-local-set-profiles 'dummy))))
+ (should-error (connection-local-set-profiles 'dummy))
+
+ ;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))))
(ert-deftest files-x-test-hack-connection-local-variables-apply ()
"Test setting connection-local variables."
- (let (connection-local-profile-alist connection-local-criteria-alist)
+ (let ((clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
+ connection-local-profile-alist connection-local-criteria-alist)
(connection-local-set-profile-variables
'remote-bash files-x-test--variables1)
@@ -302,13 +325,18 @@
(hack-connection-local-variables-apply nil)
(should-not connection-local-variables-alist)
(should-not (local-variable-p 'remote-shell-file-name))
- (should-not (boundp 'remote-shell-file-name))))))
+ (should-not (boundp 'remote-shell-file-name))))
+
+ ;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))))
(ert-deftest files-x-test-with-connection-local-variables ()
"Test setting connection-local variables."
- (let ((connection-local-profile-alist connection-local-profile-alist)
- (connection-local-criteria-alist connection-local-criteria-alist))
+ (let ((clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist))
(connection-local-set-profile-variables
'remote-bash files-x-test--variables1)
(connection-local-set-profile-variables
@@ -385,7 +413,12 @@
(should-not (local-variable-p 'remote-null-device))
;; The variable values are reset.
(should-not (boundp 'remote-shell-file-name))
- (should (string-equal (symbol-value 'remote-null-device) "null"))))))
+ (should (string-equal (symbol-value 'remote-null-device) "null"))))
+
+ ;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))))
(defun files-x-test--get-lazy-var ()
"Get the connection-local value of `remote-lazy-var'.
@@ -405,7 +438,9 @@ If it's not initialized yet, initialize it."
(ert-deftest files-x-test-setq-connection-local ()
"Test dynamically setting connection local variables."
- (let (connection-local-profile-alist connection-local-criteria-alist)
+ (let ((clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
+ connection-local-profile-alist connection-local-criteria-alist)
(connection-local-set-profile-variables
'remote-lazy files-x-test--variables5)
(connection-local-set-profiles
@@ -440,7 +475,12 @@ If it's not initialized yet, initialize it."
(should (equal (files-x-test--get-lazy-var) "there"))
(with-connection-local-application-variables
(cadr files-x-test--application)
- (should (equal remote-null-device "null"))))))
+ (should (equal remote-null-device "null"))))
+
+ ;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))))
(provide 'files-x-tests)
;;; files-x-tests.el ends here
diff --git a/test/lisp/find-cmd-tests.el b/test/lisp/find-cmd-tests.el
index a0b9a80ef47..3fbd0fc4ea3 100644
--- a/test/lisp/find-cmd-tests.el
+++ b/test/lisp/find-cmd-tests.el
@@ -25,7 +25,7 @@
(ert-deftest find-cmd-test-find-cmd ()
(should
(string-match
- (rx "find " (+ any)
+ (rx "find " (+ nonl)
" \\( \\( -name .svn -or -name .git -or -name .CVS \\)"
" -prune -or -true \\)"
" \\( \\( \\(" " -name \\*.pl -or -name \\*.pm -or -name \\*.t \\)"
diff --git a/test/lisp/gnus/mml-sec-tests.el b/test/lisp/gnus/mml-sec-tests.el
index 37e84c148af..a5dadf21c8c 100644
--- a/test/lisp/gnus/mml-sec-tests.el
+++ b/test/lisp/gnus/mml-sec-tests.el
@@ -66,34 +66,29 @@ This fixture temporarily unsets GPG_AGENT_INFO to enable
passphrase tests,
which will neither work with gpgsm nor GnuPG 2.1 any longer, I guess.
Actually, I'm not sure why people would want to cache passwords in Emacs
instead of gpg-agent."
- (unwind-protect
- (let ((agent-info (getenv "GPG_AGENT_INFO"))
- (gpghome (getenv "GNUPGHOME")))
- (condition-case error
- (let ((epg-gpg-home-directory (ert-resource-directory))
- (mml-smime-use 'epg)
- ;; Create debug output in empty epg-debug-buffer.
- (epg-debug t)
- (epg-debug-buffer (get-buffer-create " *epg-test*"))
- (mml-secure-fail-when-key-problem (not interactive)))
- (with-current-buffer epg-debug-buffer
- (erase-buffer))
- ;; Unset GPG_AGENT_INFO to enable passphrase caching inside Emacs.
- ;; Just for testing. Jens does not recommend this for daily use.
- (setenv "GPG_AGENT_INFO")
- ;; Set GNUPGHOME as gpg-agent started by gpgsm does
- ;; not look in the proper places otherwise, see:
- ;; https://bugs.gnupg.org/gnupg/issue2126
- (setenv "GNUPGHOME" epg-gpg-home-directory)
- (unwind-protect
- (funcall body)
- (mml-sec-test--kill-gpg-agent)))
- (error
- (setenv "GPG_AGENT_INFO" agent-info)
- (setenv "GNUPGHOME" gpghome)
- (signal (car error) (cdr error))))
- (setenv "GPG_AGENT_INFO" agent-info)
- (setenv "GNUPGHOME" gpghome))))
+ (let ((agent-info (getenv "GPG_AGENT_INFO"))
+ (gpghome (getenv "GNUPGHOME")))
+ (unwind-protect
+ (let ((epg-gpg-home-directory (ert-resource-directory))
+ (mml-smime-use 'epg)
+ ;; Create debug output in empty epg-debug-buffer.
+ (epg-debug t)
+ (epg-debug-buffer (get-buffer-create " *epg-test*"))
+ (mml-secure-fail-when-key-problem (not interactive)))
+ (with-current-buffer epg-debug-buffer
+ (erase-buffer))
+ ;; Unset GPG_AGENT_INFO to enable passphrase caching inside Emacs.
+ ;; Just for testing. Jens does not recommend this for daily use.
+ (setenv "GPG_AGENT_INFO")
+ ;; Set GNUPGHOME as gpg-agent started by gpgsm does
+ ;; not look in the proper places otherwise, see:
+ ;; https://bugs.gnupg.org/gnupg/issue2126
+ (setenv "GNUPGHOME" epg-gpg-home-directory)
+ (unwind-protect
+ (funcall body)
+ (mml-sec-test--kill-gpg-agent)))
+ (setenv "GPG_AGENT_INFO" agent-info)
+ (setenv "GNUPGHOME" gpghome))))
(defun mml-secure-test-message-setup (method to from &optional text bcc)
"Setup a buffer with MML METHOD, TO, and FROM headers.
diff --git a/test/lisp/hl-line-tests.el b/test/lisp/hl-line-tests.el
index 56924ff8e3e..9c120e0d7ff 100644
--- a/test/lisp/hl-line-tests.el
+++ b/test/lisp/hl-line-tests.el
@@ -104,10 +104,10 @@
(run-hooks 'post-command-hook)
(should (hl-line-tests-verify 257 t))
(with-current-buffer second-buffer
- (should (hl-line-tests-verify 999 nil)))))
- (let (kill-buffer-query-functions)
- (ignore-errors (kill-buffer first-buffer))
- (ignore-errors (kill-buffer second-buffer)))))
+ (should (hl-line-tests-verify 999 nil))))
+ (let (kill-buffer-query-functions)
+ (ignore-errors (kill-buffer first-buffer))
+ (ignore-errors (kill-buffer second-buffer))))))
(provide 'hl-line-tests)
diff --git a/test/lisp/image/wallpaper-tests.el
b/test/lisp/image/wallpaper-tests.el
index 94b4d8b2dbb..c4167adbef2 100644
--- a/test/lisp/image/wallpaper-tests.el
+++ b/test/lisp/image/wallpaper-tests.el
@@ -24,7 +24,8 @@
(require 'wallpaper)
(ert-deftest wallpaper--find-setter ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(let (wallpaper--current-setter
(wallpaper--default-setters
(wallpaper--default-methods-create
@@ -32,7 +33,8 @@
(should (wallpaper--find-setter))))
(ert-deftest wallpaper--find-setter/call-predicate ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(let* ( wallpaper--current-setter called
(wallpaper--default-setters
(wallpaper--default-methods-create
@@ -43,7 +45,8 @@
(should called)))
(ert-deftest wallpaper--find-setter/set-current-setter ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(let (wallpaper--current-setter
(wallpaper--default-setters
(wallpaper--default-methods-create
@@ -52,7 +55,8 @@
(should wallpaper--current-setter)))
(ert-deftest wallpaper-set/runs-command ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(ert-with-temp-file fil-jpg
:suffix ".jpg"
(ert-with-temp-file fil
@@ -70,7 +74,8 @@
(should (file-exists-p fil)))))))
(ert-deftest wallpaper-set/runs-command/detach ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(ert-with-temp-file fil-jpg
:suffix ".jpg"
(ert-with-temp-file fil
@@ -89,7 +94,8 @@
(should (file-exists-p fil))))))
(ert-deftest wallpaper-set/calls-init-action ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(ert-with-temp-file fil-jpg
:suffix ".jpg"
(ert-with-temp-file fil
@@ -108,7 +114,8 @@
(should called)))))
(ert-deftest wallpaper-set/calls-wallpaper-set-function ()
- (skip-unless (executable-find "touch"))
+ (skip-unless (and (executable-find "touch")
+ (wallpaper--use-default-set-function-p)))
(ert-with-temp-file fil-jpg
:suffix ".jpg"
(let* ( wallpaper--current-setter called
@@ -122,12 +129,16 @@
(should (equal called fil-jpg)))))
(ert-deftest wallpaper--find-command/return-string ()
- (should (or (not (wallpaper--find-command))
- (stringp (wallpaper--find-command)))))
+ (let ((cmd (wallpaper--find-command)))
+ (should (or (not cmd)
+ (stringp cmd)))))
(ert-deftest wallpaper--find-command-args/return-list ()
- (should (or (not (wallpaper--find-command-args))
- (listp (wallpaper--find-command-args)))))
+ (let ((cmdargs (wallpaper--find-command-args)))
+ (if (functionp cmdargs)
+ (setq cmdargs (funcall cmdargs)))
+ (should (or (not cmdargs)
+ (listp cmdargs)))))
(ert-deftest wallpaper--image-file-regexp/return-string ()
(should (stringp (wallpaper--image-file-regexp))))
diff --git a/test/lisp/jsonrpc-tests.el b/test/lisp/jsonrpc-tests.el
index a595167d130..85ac96a931c 100644
--- a/test/lisp/jsonrpc-tests.el
+++ b/test/lisp/jsonrpc-tests.el
@@ -124,7 +124,7 @@
"Signals an -32603 JSONRPC error."
(jsonrpc--with-emacsrpc-fixture (conn)
(condition-case err
- (progn
+ (let ((jsonrpc-inhibit-debug-on-error t))
(jsonrpc-request conn '+ ["a" 2])
(ert-fail "A `jsonrpc-error' should have been signaled!"))
(jsonrpc-error
diff --git a/test/lisp/net/tramp-archive-tests.el
b/test/lisp/net/tramp-archive-tests.el
index 94ef40a1116..5485b12f74f 100644
--- a/test/lisp/net/tramp-archive-tests.el
+++ b/test/lisp/net/tramp-archive-tests.el
@@ -121,6 +121,12 @@ the origin of the temporary TMPFILE, have no write
permissions."
(directory-files tmpfile 'full directory-files-no-dot-files-regexp))
(delete-directory tmpfile)))
+(defun tramp-archive--test-emacs28-p ()
+ "Check for Emacs version >= 28.1.
+Some semantics has been changed for there, without new functions or
+variables, so we check the Emacs version directly."
+ (>= emacs-major-version 28))
+
(ert-deftest tramp-archive-test00-availability ()
"Test availability of archive file name functions."
:expected-result (if tramp-archive-enabled :passed :failed)
@@ -587,11 +593,11 @@ This checks also `file-name-as-directory',
`file-name-directory',
(mapcar (lambda (x) (concat tmp-name x)) files)))
(should (equal (directory-files
tmp-name nil directory-files-no-dot-files-regexp)
- (delete "." (delete ".." files))))
+ (remove "." (remove ".." files))))
(should (equal (directory-files
tmp-name 'full directory-files-no-dot-files-regexp)
(mapcar (lambda (x) (concat tmp-name x))
- (delete "." (delete ".." files))))))
+ (remove "." (remove ".." files))))))
;; Cleanup.
(tramp-archive-cleanup-hash))))
@@ -881,16 +887,19 @@ This tests also `file-executable-p', `file-writable-p'
and `set-file-modes'."
(zerop (nth 1 fsi))
(zerop (nth 2 fsi))))))
-;; `file-user-uid' was introduced in Emacs 30.1.
-(ert-deftest tramp-archive-test44-file-user-uid ()
- "Check that `file-user-uid' returns proper values."
+;; `file-user-uid' and `file-group-gid' were introduced in Emacs 30.1.
+(ert-deftest tramp-archive-test44-user-group-ids ()
+ "Check results of user/group functions.
+`file-user-uid' and `file-group-gid' should return proper values."
(skip-unless tramp-archive-enabled)
- (skip-unless (fboundp 'file-user-uid))
+ (skip-unless (and (fboundp 'file-user-uid)
+ (fboundp 'file-group-gid)))
(let ((default-directory tramp-archive-test-archive))
- ;; `file-user-uid' exists since Emacs 30.1. We don't want to see
- ;; compiler warnings for older Emacsen.
- (should (integerp (with-no-warnings (file-user-uid))))))
+ ;; `file-user-uid' and `file-group-gid' exist since Emacs 30.1.
+ ;; We don't want to see compiler warnings for older Emacsen.
+ (should (integerp (with-no-warnings (file-user-uid))))
+ (should (integerp (with-no-warnings (file-group-gid))))))
(ert-deftest tramp-archive-test48-auto-load ()
"Check that `tramp-archive' autoloads properly."
@@ -909,12 +918,15 @@ This tests also `file-executable-p', `file-writable-p'
and `set-file-modes'."
(featurep 'tramp-archive))))"))
(dolist (enabled '(t nil))
(dolist (default-directory
- `(,temporary-file-directory
+ (append
+ `(,temporary-file-directory)
;; Starting Emacs in a directory which has
;; `tramp-archive-file-name-regexp' syntax is
;; supported only with Emacs > 27.2 (sigh!).
;; (Bug#48476)
- ,(file-name-as-directory tramp-archive-test-directory)))
+ (and (tramp-archive--test-emacs28-p)
+ `(,(file-name-as-directory
+ tramp-archive-test-directory)))))
(dolist (file `("/mock::foo" ,(concat tramp-archive-test-archive
"foo")))
(should
(string-match
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index b6ad2e2f219..017cb73f3bb 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -66,13 +66,13 @@
(defvar ange-ftp-make-backup-files)
(defvar tramp-connection-properties)
(defvar tramp-copy-size-limit)
-(defvar tramp-display-escape-sequence-regexp)
(defvar tramp-fuse-remove-hidden-files)
(defvar tramp-fuse-unmount-on-cleanup)
(defvar tramp-inline-compress-start-size)
(defvar tramp-persistency-file-name)
(defvar tramp-remote-path)
(defvar tramp-remote-process-environment)
+(defvar tramp-use-connection-share)
;; Needed for Emacs 27.
(defvar lock-file-name-transforms)
@@ -297,16 +297,6 @@ is greater than 10.
(tramp--test-message
"%s %f sec" ,message (float-time (time-subtract nil start))))))
-;; `always' is introduced with Emacs 28.1.
-(defalias 'tramp--test-always
- (if (fboundp 'always)
- #'always
- (lambda (&rest _arguments)
- "Do nothing and return t.
-This function accepts any number of ARGUMENTS, but ignores them.
-Also see `ignore'."
- t)))
-
(ert-deftest tramp-test00-availability ()
"Test availability of Tramp functions."
:expected-result (if (tramp--test-enabled) :passed :failed)
@@ -2412,24 +2402,57 @@ This checks also `file-name-as-directory',
`file-name-directory',
(with-temp-buffer
(write-region "foo" nil tmp-name)
(let ((point (point)))
- (insert-file-contents tmp-name)
+ (should
+ (equal
+ (insert-file-contents tmp-name)
+ `(,(expand-file-name tmp-name) 3)))
(should (string-equal (buffer-string) "foo"))
(should (= point (point))))
(goto-char (1+ (point)))
(let ((point (point)))
- (insert-file-contents tmp-name)
+ (should
+ (equal
+ (insert-file-contents tmp-name)
+ `(,(expand-file-name tmp-name) 3)))
(should (string-equal (buffer-string) "ffoooo"))
(should (= point (point))))
;; Insert partly.
(let ((point (point)))
- (insert-file-contents tmp-name nil 1 3)
+ (should
+ (equal
+ (insert-file-contents tmp-name nil 1 3)
+ `(,(expand-file-name tmp-name) 2)))
(should (string-equal (buffer-string) "foofoooo"))
(should (= point (point))))
+ (let ((point (point)))
+ (should
+ (equal
+ (insert-file-contents tmp-name nil 2 5)
+ `(,(expand-file-name tmp-name) 1)))
+ (should (string-equal (buffer-string) "fooofoooo"))
+ (should (= point (point))))
;; Replace.
(let ((point (point)))
- (insert-file-contents tmp-name nil nil nil 'replace)
+ ;; 0 characters replaced, because "foo" is already there.
+ (should
+ (equal
+ (insert-file-contents tmp-name nil nil nil 'replace)
+ `(,(expand-file-name tmp-name) 0)))
(should (string-equal (buffer-string) "foo"))
(should (= point (point))))
+ ;; Insert another string.
+ ;; `replace-string-in-region' was introduced in Emacs 28.1.
+ (when (tramp--test-emacs28-p)
+ (let ((point (point)))
+ (with-no-warnings
+ (replace-string-in-region "foo" "bar" (point-min)
(point-max)))
+ (goto-char point)
+ (should
+ (equal
+ (insert-file-contents tmp-name nil nil nil 'replace)
+ `(,(expand-file-name tmp-name) 3)))
+ (should (string-equal (buffer-string) "foo"))
+ (should (= point (point)))))
;; Error case.
(delete-file tmp-name)
(should-error
@@ -2534,9 +2557,9 @@ This checks also `file-name-as-directory',
`file-name-directory',
;; `tramp-test39-make-lock-file-name'.
;; Do not overwrite if excluded.
- (cl-letf (((symbol-function #'y-or-n-p) #'tramp--test-always)
+ (cl-letf (((symbol-function #'y-or-n-p) #'tramp-compat-always)
;; Ange-FTP.
- ((symbol-function 'yes-or-no-p) #'tramp--test-always))
+ ((symbol-function 'yes-or-no-p) #'tramp-compat-always))
(write-region "foo" nil tmp-name nil nil nil 'mustbenew))
(should-error
(cl-letf (((symbol-function #'y-or-n-p) #'ignore)
@@ -3962,7 +3985,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(should-error
(make-symbolic-link tmp-name1 tmp-name2 0)
:type 'file-already-exists)))
- (cl-letf (((symbol-function #'yes-or-no-p) #'tramp--test-always))
+ (cl-letf (((symbol-function #'yes-or-no-p) #'tramp-compat-always))
(make-symbolic-link tmp-name1 tmp-name2 0)
(should
(string-equal
@@ -4042,7 +4065,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(should-error
(add-name-to-file tmp-name1 tmp-name2 0)
:type 'file-already-exists))
- (cl-letf (((symbol-function #'yes-or-no-p) #'tramp--test-always))
+ (cl-letf (((symbol-function #'yes-or-no-p) #'tramp-compat-always))
(add-name-to-file tmp-name1 tmp-name2 0)
(should (file-regular-p tmp-name2)))
(add-name-to-file tmp-name1 tmp-name2 'ok-if-already-exists)
@@ -4592,9 +4615,11 @@ This tests also `make-symbolic-link', `file-truename'
and `add-name-to-file'."
(should-not (file-name-completion "a" tmp-name))
;; `file-name-completion' should not err out if
;; directory does not exist. (Bug#61890)
- (should-not
- (file-name-completion
- "a" (tramp-compat-file-name-concat tmp-name "fuzz")))
+ ;; Ange-FTP does not support this.
+ (unless (tramp--test-ange-ftp-p)
+ (should-not
+ (file-name-completion
+ "a" (tramp-compat-file-name-concat tmp-name "fuzz"))))
;; Ange-FTP does not support predicates.
(unless (tramp--test-ange-ftp-p)
(should
@@ -4724,7 +4749,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
tramp-prefix-format hop
(substring-no-properties
method 0 (min 2 (length method))))
- ,(concat tramp-prefix-format method-string)
+ ,(concat tramp-prefix-format hop method-string)
,method-string)))
;; Complete user name.
(unless (tramp-string-empty-or-nil-p user)
@@ -4733,7 +4758,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(substring-no-properties
user 0 (min 2 (length user))))
,(concat
- tramp-prefix-format method-string user-string)
+ tramp-prefix-format hop method-string user-string)
,user-string)))
;; Complete host name.
(unless (tramp-string-empty-or-nil-p host)
@@ -4743,9 +4768,9 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(substring-no-properties
host 0 (min 2 (length host))))
(,(concat
- tramp-prefix-format method-string host-string)
+ tramp-prefix-format hop method-string host-string)
,(concat
- tramp-prefix-format method-string
+ tramp-prefix-format hop method-string
user-string host-string))
,host-string)))
;; Complete user and host name.
@@ -4757,7 +4782,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(substring-no-properties
host 0 (min 2 (length host))))
,(concat
- tramp-prefix-format method-string
+ tramp-prefix-format hop method-string
user-string host-string)
,host-string)))))
@@ -4915,8 +4940,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(if (bufferp destination) destination (current-buffer))
;; "ls" could produce colorized output.
(goto-char (point-min))
- (while (re-search-forward
- tramp-display-escape-sequence-regexp nil t)
+ (while (re-search-forward ansi-color-control-seq-regexp nil t)
(replace-match "" nil nil))
(should
(string-equal (if destination (format "%s\n" fnnd) "")
@@ -4930,8 +4954,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(if (bufferp destination) destination (current-buffer))
;; "ls" could produce colorized output.
(goto-char (point-min))
- (while (re-search-forward
- tramp-display-escape-sequence-regexp nil t)
+ (while (re-search-forward ansi-color-control-seq-regexp nil t)
(replace-match "" nil nil))
(should
(string-equal
@@ -5171,7 +5194,7 @@ If UNSTABLE is non-nil, the test is tagged as
`:unstable'."
;; `file-truename' does it by side-effect. Suppress
;; `tramp--test-enabled', in order to keep the connection.
;; Suppress "Process ... finished" messages.
- (cl-letf (((symbol-function #'tramp--test-enabled) #'tramp--test-always)
+ (cl-letf (((symbol-function #'tramp--test-enabled)
#'tramp-compat-always)
((symbol-function #'internal-default-process-sentinel)
#'ignore))
(file-truename ert-remote-temporary-file-directory)
@@ -5645,8 +5668,7 @@ INPUT, if non-nil, is a string sent to the process."
(current-buffer))
;; "ls" could produce colorized output.
(goto-char (point-min))
- (while
- (re-search-forward tramp-display-escape-sequence-regexp nil t)
+ (while (re-search-forward ansi-color-control-seq-regexp nil t)
(replace-match "" nil nil))
(should
(string-equal
@@ -5971,6 +5993,8 @@ INPUT, if non-nil, is a string sent to the process."
(enable-remote-dir-locals t)
(inhibit-message t)
kill-buffer-query-functions
+ (clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
connection-local-profile-alist connection-local-criteria-alist)
(unwind-protect
(progn
@@ -6001,24 +6025,47 @@ INPUT, if non-nil, is a string sent to the process."
(should (eq local-variable 'connect))
(kill-buffer (current-buffer)))
- ;; `local-variable' is dir-local due to existence of .dir-locals.el.
+ ;; `local-variable' is still connection-local due to Tramp.
+ ;; `find-file-hook' overrides dir-local settings.
(write-region
"((nil . ((local-variable . dir))))" nil
(expand-file-name ".dir-locals.el" tmp-name1))
(should (file-exists-p (expand-file-name ".dir-locals.el" tmp-name1)))
- (with-current-buffer (find-file-noselect tmp-name2)
- (should (eq local-variable 'dir))
- (kill-buffer (current-buffer)))
-
- ;; `local-variable' is file-local due to specifying as file variable.
+ (when (memq #'tramp-set-connection-local-variables-for-buffer
+ find-file-hook)
+ (with-current-buffer (find-file-noselect tmp-name2)
+ (should (eq local-variable 'connect))
+ (kill-buffer (current-buffer))))
+ ;; `local-variable' is dir-local due to existence of .dir-locals.el.
+ (let ((find-file-hook
+ (remq #'tramp-set-connection-local-variables-for-buffer
+ find-file-hook)))
+ (with-current-buffer (find-file-noselect tmp-name2)
+ (should (eq local-variable 'dir))
+ (kill-buffer (current-buffer))))
+
+ ;; `local-variable' is still connection-local due to Tramp.
+ ;; `find-file-hook' overrides dir-local settings.
(write-region
"-*- mode: comint; local-variable: file; -*-" nil tmp-name2)
(should (file-exists-p tmp-name2))
- (with-current-buffer (find-file-noselect tmp-name2)
- (should (eq local-variable 'file))
- (kill-buffer (current-buffer))))
+ (when (memq #'tramp-set-connection-local-variables-for-buffer
+ find-file-hook)
+ (with-current-buffer (find-file-noselect tmp-name2)
+ (should (eq local-variable 'connect))
+ (kill-buffer (current-buffer))))
+ ;; `local-variable' is file-local due to specifying as file variable.
+ (let ((find-file-hook
+ (remq #'tramp-set-connection-local-variables-for-buffer
+ find-file-hook)))
+ (with-current-buffer (find-file-noselect tmp-name2)
+ (should (eq local-variable 'file))
+ (kill-buffer (current-buffer)))))
;; Cleanup.
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))
(ignore-errors (delete-directory tmp-name1 'recursive)))))
(ert-deftest tramp-test34-explicit-shell-file-name ()
@@ -6029,6 +6076,8 @@ INPUT, if non-nil, is a string sent to the process."
(let ((default-directory ert-remote-temporary-file-directory)
explicit-shell-file-name kill-buffer-query-functions
+ (clpa connection-local-profile-alist)
+ (clca connection-local-criteria-alist)
connection-local-profile-alist connection-local-criteria-alist)
(unwind-protect
(progn
@@ -6060,6 +6109,9 @@ INPUT, if non-nil, is a string sent to the process."
;; Cleanup.
(put 'explicit-shell-file-name 'permanent-local nil)
+ (custom-set-variables
+ `(connection-local-profile-alist ',clpa now)
+ `(connection-local-criteria-alist ',clca now))
(kill-buffer "*shell*"))))
(ert-deftest tramp-test35-exec-path ()
@@ -6349,7 +6401,7 @@ INPUT, if non-nil, is a string sent to the process."
(tramp-cleanup-connection
tramp-test-vec 'keep-debug 'keep-password)
(cl-letf (((symbol-function #'yes-or-no-p)
- #'tramp--test-always))
+ #'tramp-compat-always))
(should (stringp (make-auto-save-file-name))))))))
;; Cleanup.
@@ -6382,7 +6434,10 @@ INPUT, if non-nil, is a string sent to the process."
(if quoted #'file-name-quote #'identity)
(expand-file-name
(format "%s~" (file-name-nondirectory tmp-name1))
- ert-remote-temporary-file-directory)))))))
+ ert-remote-temporary-file-directory))))))
+
+ ;; Cleanup. Nothing to do yet.
+ nil)
(unwind-protect
;; Map `backup-directory-alist'.
@@ -6492,8 +6547,7 @@ INPUT, if non-nil, is a string sent to the process."
:type 'file-error))
(tramp-cleanup-connection
tramp-test-vec 'keep-debug 'keep-password)
- (cl-letf (((symbol-function #'yes-or-no-p)
- #'tramp--test-always))
+ (cl-letf (((symbol-function #'yes-or-no-p) #'tramp-compat-always))
(should (stringp (car (find-backup-file-name tmp-name1)))))))
;; Cleanup.
@@ -6648,8 +6702,7 @@ INPUT, if non-nil, is a string sent to the process."
:type 'file-error))
(tramp-cleanup-connection
tramp-test-vec 'keep-debug 'keep-password)
- (cl-letf (((symbol-function #'yes-or-no-p)
- #'tramp--test-always))
+ (cl-letf (((symbol-function #'yes-or-no-p) #'tramp-compat-always))
(write-region "foo" nil tmp-name1))))
;; Cleanup.
@@ -6719,7 +6772,8 @@ INPUT, if non-nil, is a string sent to the process."
(should (file-locked-p tmp-name)))))
;; `save-buffer' removes the file lock.
- (cl-letf (((symbol-function 'yes-or-no-p)
#'tramp--test-always)
+ (cl-letf (((symbol-function 'yes-or-no-p)
+ #'tramp-compat-always)
((symbol-function 'read-char-choice)
(lambda (&rest _) ?y)))
(should (buffer-modified-p))
@@ -6876,6 +6930,13 @@ This does not support external Emacs calls."
"Check, whether an out-of-band method is used."
(tramp-method-out-of-band-p tramp-test-vec 1))
+(defun tramp--test-putty-p ()
+ "Check, whether the method method usaes PuTTY.
+This does not support connection share for more than two connections."
+ (member
+ (file-remote-p ert-remote-temporary-file-directory 'method)
+ '("plink" "plinkx" "pscp" "psftp")))
+
(defun tramp--test-rclone-p ()
"Check, whether the remote host is offered by rclone.
This requires restrictions of file name syntax."
@@ -7314,16 +7375,20 @@ This requires restrictions of file name syntax."
(dotimes (i (length fsi))
(should (natnump (or (nth i fsi) 0))))))
-;; `file-user-uid' was introduced in Emacs 30.1.
-(ert-deftest tramp-test44-file-user-uid ()
- "Check that `file-user-uid' and `tramp-get-remote-*' return proper values."
+;; `file-user-uid' and `file-group-gid' were introduced in Emacs 30.1.
+(ert-deftest tramp-test44-file-user-group-ids ()
+ "Check results of user/group functions.
+`file-user-uid', `file-group-gid', and `tramp-get-remote-*'
+should all return proper values."
(skip-unless (tramp--test-enabled))
(let ((default-directory ert-remote-temporary-file-directory))
- ;; `file-user-uid' exists since Emacs 30.1. We don't want to see
- ;; compiler warnings for older Emacsen.
+ ;; `file-user-uid' and `file-group-gid' exist since Emacs 30.1.
+ ;; We don't want to see compiler warnings for older Emacsen.
(when (fboundp 'file-user-uid)
(should (integerp (with-no-warnings (file-user-uid)))))
+ (when (fboundp 'file-group-gid)
+ (should (integerp (with-no-warnings (file-group-gid)))))
(with-parsed-tramp-file-name default-directory nil
(should (or (integerp (tramp-get-remote-uid v 'integer))
@@ -7387,10 +7452,7 @@ This is needed in timer functions as well as process
filters and sentinels."
"Check parallel asynchronous requests.
Such requests could arrive from timers, process filters and
process sentinels. They shall not disturb each other."
- :tags (append '(:expensive-test :tramp-asynchronous-processes)
- (and (or (getenv "EMACS_HYDRA_CI")
- (getenv "EMACS_EMBA_CI"))
- '(:unstable)))
+ :tags '(:expensive-test :tramp-asynchronous-processes)
(skip-unless (tramp--test-enabled))
(skip-unless (tramp--test-supports-processes-p))
(skip-unless (not (tramp--test-container-p)))
@@ -7428,6 +7490,10 @@ process sentinels. They shall not disturb each other."
(string-to-number (getenv "REMOTE_PARALLEL_PROCESSES"))))
((getenv "EMACS_HYDRA_CI") 5)
(t 10)))
+ ;; PuTTY-based methods can only share up to 10 connections.
+ (tramp-use-connection-share
+ (if (and (tramp--test-putty-p) (>= number-proc 10))
+ 'suppress (bound-and-true-p tramp-use-connection-share)))
;; On hydra, timings are bad.
(timer-repeat
(cond
@@ -7458,14 +7524,12 @@ process sentinels. They shall not disturb each other."
(when buffers
(let ((time (float-time))
(default-directory tmp-name)
- (file (buffer-name (seq-random-elt buffers)))
- ;; A remote operation in a timer could
- ;; confuse Tramp heavily. So we ignore this
- ;; error here.
- (debug-ignored-errors
- (cons 'remote-file-error debug-ignored-errors)))
+ (file (buffer-name (seq-random-elt buffers))))
(tramp--test-message
"Start timer %s %s" file (current-time-string))
+ (dired-uncache file)
+ (tramp--test-message
+ "Continue timer %s %s" file (file-attributes file))
(vc-registered file)
(tramp--test-message
"Stop timer %s %s" file (current-time-string))
@@ -7521,34 +7585,37 @@ process sentinels. They shall not disturb each other."
;; Send a string to the processes. Use a random order of
;; the buffers. Mix with regular operation.
- (let ((buffers (copy-sequence buffers)))
+ (let ((buffers (copy-sequence buffers))
+ buf)
(while buffers
- (let* ((buf (seq-random-elt buffers))
- (proc (get-buffer-process buf))
- (file (process-get proc 'foo))
- (count (process-get proc 'bar)))
- (tramp--test-message
- "Start action %d %s %s" count buf (current-time-string))
- ;; Regular operation prior process action.
- (dired-uncache file)
- (if (= count 0)
- (should-not (file-attributes file))
- (should (file-attributes file)))
- ;; Send string to process.
- (process-send-string proc (format "%s\n" (buffer-name buf)))
- (while (accept-process-output nil 0))
- (tramp--test-message
- "Continue action %d %s %s" count buf (current-time-string))
- ;; Regular operation post process action.
- (dired-uncache file)
- (if (= count 2)
- (should-not (file-attributes file))
- (should (file-attributes file)))
- (tramp--test-message
- "Stop action %d %s %s" count buf (current-time-string))
- (process-put proc 'bar (1+ count))
- (unless (process-live-p proc)
- (setq buffers (delq buf buffers))))))
+ (setq buf (seq-random-elt buffers))
+ (if-let ((proc (get-buffer-process buf))
+ (file (process-get proc 'foo))
+ (count (process-get proc 'bar)))
+ (progn
+ (tramp--test-message
+ "Start action %d %s %s" count buf (current-time-string))
+ ;; Regular operation prior process action.
+ (dired-uncache file)
+ (if (= count 0)
+ (should-not (file-attributes file))
+ (should (file-attributes file)))
+ ;; Send string to process.
+ (process-send-string proc (format "%s\n" (buffer-name
buf)))
+ (while (accept-process-output nil 0))
+ (tramp--test-message
+ "Continue action %d %s %s" count buf
(current-time-string))
+ ;; Regular operation post process action.
+ (dired-uncache file)
+ (if (= count 2)
+ (should-not (file-attributes file))
+ (should (file-attributes file)))
+ (tramp--test-message
+ "Stop action %d %s %s" count buf (current-time-string))
+ (process-put proc 'bar (1+ count))
+ (unless (process-live-p proc)
+ (setq buffers (delq buf buffers))))
+ (setq buffers (delq buf buffers)))))
;; Checks. All process output shall exist in the
;; respective buffers. All created files shall be
diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el
index 1f475665298..d53f25b00d8 100644
--- a/test/lisp/proced-tests.el
+++ b/test/lisp/proced-tests.el
@@ -95,7 +95,11 @@
(proced--move-to-column "PID")
(let ((pid (word-at-point)))
(proced-refine)
- (proced-update t)
+ ;; Don't use (proced-update t) since this will reset
`proced-process-alist'
+ ;; and it's possible the process refined on would have exited by that
+ ;; point. In this case proced will skip the refinement and show all
+ ;; processes again, causing the test to fail.
+ (proced-update)
(while (not (eobp))
(proced--move-to-column "PID")
(should (string= pid (word-at-point)))
diff --git a/test/lisp/progmodes/c-ts-mode-resources/indent.erts
b/test/lisp/progmodes/c-ts-mode-resources/indent.erts
index 9e28ef203fd..221b3d809af 100644
--- a/test/lisp/progmodes/c-ts-mode-resources/indent.erts
+++ b/test/lisp/progmodes/c-ts-mode-resources/indent.erts
@@ -188,6 +188,36 @@ int main()
}
=-=-=
+Name: Switch-Case statement
+
+=-=
+int main() {
+switch (a) {
+case 1:
+b = c;
+return 10;
+case 2:
+{
+a = b;
+return 12
+}
+}
+}
+=-=
+int main() {
+ switch (a) {
+ case 1:
+ b = c;
+ return 10;
+ case 2:
+ {
+ a = b;
+ return 12
+ }
+ }
+}
+=-=-=
+
Name: Multiline Block Comments 1 (bug#60270)
=-=
@@ -434,3 +464,17 @@ main (void)
|
}
=-=-=
+
+Name: Empty Line (Block Start)
+
+=-=
+int
+main (void)
+{
+|
+=-=
+int
+main (void)
+{
+ |
+=-=-=
diff --git a/test/lisp/progmodes/eglot-tests.el
b/test/lisp/progmodes/eglot-tests.el
index 7a90d68d213..518f8810bdf 100644
--- a/test/lisp/progmodes/eglot-tests.el
+++ b/test/lisp/progmodes/eglot-tests.el
@@ -31,26 +31,22 @@
;; Some of these tests rely on the GNU ELPA package company.el and
;; yasnippet.el being available.
-;; Some of the tests require access to a remote host files. Since
-;; this could be problematic, a mock-up connection method "mock" is
-;; used. Emulating a remote connection, it simply calls "sh -i".
-;; Tramp's file name handlers still run, so this test is sufficient
-;; except for connection establishing.
-
-;; If you want to test a real Tramp connection, set
-;; $REMOTE_TEMPORARY_FILE_DIRECTORY to a suitable value in order to
-;; overwrite the default value. If you want to skip tests accessing a
-;; remote host, set this environment variable to "/dev/null" or
-;; whatever is appropriate on your system.
+;; Some of the tests require access to a remote host files, which is
+;; mocked in the simplest case. If you want to test a real Tramp
+;; connection, override $REMOTE_TEMPORARY_FILE_DIRECTORY to a suitable
+;; value (FIXME: like what?) in order to overwrite the default value.
+;;
+;; IMPORTANT: Since Eglot is a :core ELPA package, these tests are
+;; supposed to run on Emacsen down to 26.3. Do not use bleeding-edge
+;; functionality not compatible with that Emacs version.
;;; Code:
(require 'eglot)
(require 'cl-lib)
(require 'ert)
-(require 'tramp) ; must be prior ert-x
+(require 'tramp)
(require 'ert-x) ; ert-simulate-command
(require 'edebug)
-(require 'python) ; some tests use pylsp
(require 'cc-mode) ; c-mode-hook
(require 'company nil t)
(require 'yasnippet nil t)
@@ -59,75 +55,66 @@
;;; Helpers
+(defun eglot--test-message (format &rest args)
+ "Message out with FORMAT with ARGS."
+ (message "[eglot-tests] %s"
+ (apply #'format format args)))
+
(defmacro eglot--with-fixture (fixture &rest body)
- "Setup FIXTURE, call BODY, teardown FIXTURE.
+ "Set up FIXTURE, call BODY, tear down FIXTURE.
FIXTURE is a list. Its elements are of the form (FILE . CONTENT)
to create a readable FILE with CONTENT. FILE may be a directory
name and CONTENT another (FILE . CONTENT) list to specify a
-directory hierarchy. FIXTURE's elements can also be (SYMBOL
-VALUE) meaning SYMBOL should be bound to VALUE during BODY and
-then restored."
+directory hierarchy."
(declare (indent 1) (debug t))
- `(eglot--call-with-fixture
- ,fixture #'(lambda () ,@body)))
+ `(eglot--call-with-fixture ,fixture (lambda () ,@body)))
(defun eglot--make-file-or-dir (ass)
- (let ((file-or-dir-name (car ass))
+ (let ((file-or-dir-name (expand-file-name (car ass)))
(content (cdr ass)))
(cond ((listp content)
(make-directory file-or-dir-name 'parents)
- (let ((default-directory (concat default-directory "/"
file-or-dir-name)))
+ (let ((default-directory (file-name-as-directory file-or-dir-name)))
(mapcan #'eglot--make-file-or-dir content)))
((stringp content)
- (with-temp-buffer
- (insert content)
- (write-region nil nil file-or-dir-name nil 'nomessage))
- (list (expand-file-name file-or-dir-name)))
+ (with-temp-file file-or-dir-name
+ (insert content))
+ (list file-or-dir-name))
(t
(eglot--error "Expected a string or a directory spec")))))
(defun eglot--call-with-fixture (fixture fn)
"Helper for `eglot--with-fixture'. Run FN under FIXTURE."
- (let* ((fixture-directory (make-nearby-temp-file "eglot--fixture" t))
- (default-directory fixture-directory)
- file-specs created-files
- syms-to-restore
+ (let* ((fixture-directory (make-nearby-temp-file "eglot--fixture-" t))
+ (default-directory (file-name-as-directory fixture-directory))
+ created-files
new-servers
test-body-successful-p)
- (dolist (spec fixture)
- (cond ((symbolp spec)
- (push (cons spec (symbol-value spec)) syms-to-restore)
- (set spec nil))
- ((symbolp (car spec))
- (push (cons (car spec) (symbol-value (car spec))) syms-to-restore)
- (set (car spec) (cadr spec)))
- ((stringp (car spec)) (push spec file-specs))))
+ (eglot--test-message "[%s]: test start" (ert-test-name (ert-running-test)))
(unwind-protect
- (let* ((process-environment
- (append
- `(;; Set XDF_CONFIG_HOME to /dev/null to prevent
- ;; user-configuration to have an influence on
- ;; language servers. (See github#441)
- "XDG_CONFIG_HOME=/dev/null"
- ;; ... on the flip-side, a similar technique by
- ;; Emacs's test makefiles means that HOME is
- ;; spoofed to /nonexistent, or sometimes /tmp.
- ;; This breaks some common installations for LSP
- ;; servers like pylsp, rust-analyzer making these
- ;; tests mostly useless, so we hack around it here
- ;; with a great big hack.
- ,(format "HOME=%s"
- (expand-file-name (format "~%s"
(user-login-name)))))
- process-environment))
- ;; Prevent "Can't guess python-indent-offset ..." messages.
- (python-indent-guess-indent-offset-verbose . nil)
- (eglot-server-initialized-hook
- (lambda (server) (push server new-servers))))
- (setq created-files (mapcan #'eglot--make-file-or-dir file-specs))
+ (let ((process-environment
+ `(;; Set XDG_CONFIG_HOME to /dev/null to prevent
+ ;; user-configuration influencing language servers
+ ;; (see github#441).
+ ,(format "XDG_CONFIG_HOME=%s" null-device)
+ ;; ... on the flip-side, a similar technique in
+ ;; Emacs's `test/Makefile' spoofs HOME as
+ ;; /nonexistent (and as `temporary-file-directory' in
+ ;; `ert-remote-temporary-file-directory').
+ ;; This breaks some common installations for LSP
+ ;; servers like rust-analyzer, making these tests
+ ;; mostly useless, so we hack around it here with a
+ ;; great big hack.
+ ,(format "HOME=%s"
+ (expand-file-name (format "~%s" (user-login-name))))
+ ,@process-environment))
+ (eglot-server-initialized-hook
+ (lambda (server) (push server new-servers))))
+ (setq created-files (mapcan #'eglot--make-file-or-dir fixture))
(prog1 (funcall fn)
(setq test-body-successful-p t)))
- (eglot--message
- "Test body was %s" (if test-body-successful-p "OK" "A FAILURE"))
+ (eglot--test-message "[%s]: %s" (ert-test-name (ert-running-test))
+ (if test-body-successful-p "OK" "FAILED"))
(unwind-protect
(let ((eglot-autoreconnect nil))
(dolist (server new-servers)
@@ -136,8 +123,7 @@ then restored."
(eglot-shutdown
server nil 3 (not test-body-successful-p))
(error
- (eglot--message "Non-critical shutdown error after test: %S"
- oops))))
+ (eglot--test-message "Non-critical cleanup error: %S"
oops))))
(when (not test-body-successful-p)
;; We want to do this after the sockets have
;; shut down such that any pending data has been
@@ -150,24 +136,21 @@ then restored."
(jsonrpc-events-buffer server)))))
(cond (noninteractive
(dolist (buffer buffers)
- (eglot--message "%s:" (buffer-name buffer))
+ (eglot--test-message "contents of `%s':"
(buffer-name buffer))
(princ (with-current-buffer buffer (buffer-string))
'external-debugging-output)))
(t
- (eglot--message "Preserved for inspection: %s"
- (mapconcat #'buffer-name buffers ",
"))))))))
- (eglot--cleanup-after-test fixture-directory created-files
syms-to-restore)))))
+ (eglot--test-message "Preserved for inspection: %s"
+ (mapconcat #'buffer-name buffers
", "))))))))
+ (eglot--cleanup-after-test fixture-directory created-files)))))
-(defun eglot--cleanup-after-test (fixture-directory created-files
syms-to-restore)
+(defun eglot--cleanup-after-test (fixture-directory created-files)
(let ((buffers-to-delete
- (delete nil (mapcar #'find-buffer-visiting created-files))))
- (eglot--message "Killing %s, wiping %s, restoring %s"
- buffers-to-delete
- fixture-directory
- (mapcar #'car syms-to-restore))
- (cl-loop for (sym . val) in syms-to-restore
- do (set sym val))
- (dolist (buf buffers-to-delete) ;; have to save otherwise will get prompted
+ (delq nil (mapcar #'find-buffer-visiting created-files))))
+ (eglot--test-message "Killing %s, wiping %s"
+ buffers-to-delete
+ fixture-directory)
+ (dolist (buf buffers-to-delete) ;; Have to save otherwise will get
prompted.
(with-current-buffer buf (save-buffer) (kill-buffer)))
(delete-directory fixture-directory 'recursive)
;; Delete Tramp buffers if needed.
@@ -252,12 +235,12 @@ then restored."
(advice-remove #'jsonrpc--log-event ',log-event-ad-sym))))
(cl-defmacro eglot--wait-for ((events-sym &optional (timeout 1) message) args
&body body)
- "Spin until FN match in EVENTS-SYM, flush events after it.
-Pass TIMEOUT to `eglot--with-timeout'."
(declare (indent 2) (debug (sexp sexp sexp &rest form)))
`(eglot--with-timeout '(,timeout ,(or message
(format "waiting for:\n%s"
(pp-to-string body))))
- (let ((event
+ (eglot--test-message "waiting for `%s'" (with-output-to-string
+ (mapc #'princ ',body)))
+ (let ((events
(cl-loop thereis (cl-loop for json in ,events-sym
for method = (plist-get json :method)
when (keywordp method)
@@ -271,16 +254,21 @@ Pass TIMEOUT to `eglot--with-timeout'."
collect json into before)
for i from 0
when (zerop (mod i 5))
- ;; do (eglot--message "still struggling to find in %s"
- ;; ,events-sym)
+ ;; do (eglot--test-message "still struggling to find in
%s"
+ ;; ,events-sym)
do
;; `read-event' is essential to have the file
;; watchers come through.
- (read-event "[eglot] Waiting a bit..." nil 0.1)
+ (cond ((fboundp 'flush-standard-output)
+ (read-event nil nil 0.1) (princ ".")
+ (flush-standard-output))
+ (t
+ (read-event "." nil 0.1)))
(accept-process-output nil 0.1))))
- (setq ,events-sym (cdr event))
- (eglot--message "Event detected:\n%s"
- (pp-to-string (car event))))))
+ (setq ,events-sym (cdr events))
+ (cl-destructuring-bind (&key method id &allow-other-keys) (car events)
+ (eglot--test-message "detected: %s"
+ (or method (and id (format "id=%s" id))))))))
;; `rust-mode' is not a part of Emacs, so we define these two shims
;; which should be more than enough for testing.
@@ -307,6 +295,13 @@ Pass TIMEOUT to `eglot--with-timeout'."
(setq last-command-event char)
(call-interactively (key-binding (vector char))))
+(defun eglot--clangd-version ()
+ "Report on the clangd version used in various tests."
+ (let ((version (shell-command-to-string "clangd --version")))
+ (when (string-match "version[[:space:]]+\\([0-9.]*\\)"
+ version)
+ (match-string 1 version))))
+
;;; Unit tests
@@ -314,8 +309,7 @@ Pass TIMEOUT to `eglot--with-timeout'."
"Connect to eclipse.jdt.ls server."
(skip-unless (executable-find "jdtls"))
(eglot--with-fixture
- '(("project/src/main/java/foo" . (("Main.java" . "")))
- ("project/.git/" . nil))
+ '(("project/src/main/java/foo" . (("Main.java" . ""))))
(with-current-buffer
(eglot--find-file-noselect "project/src/main/java/foo/Main.java")
(eglot--sniffing (:server-notifications s-notifs)
@@ -407,7 +401,7 @@ Pass TIMEOUT to `eglot--with-timeout'."
)
(should (eglot--tests-connect))
(let (register-id)
- (eglot--wait-for (s-requests 1)
+ (eglot--wait-for (s-requests 3)
(&key id method &allow-other-keys)
(setq register-id id)
(string= method "client/registerCapability"))
@@ -434,7 +428,7 @@ Pass TIMEOUT to `eglot--with-timeout'."
(eglot--find-file-noselect "diag-project/main.c")
(eglot--sniffing (:server-notifications s-notifs)
(eglot--tests-connect)
- (eglot--wait-for (s-notifs 2)
+ (eglot--wait-for (s-notifs 10)
(&key _id method &allow-other-keys)
(string= method "textDocument/publishDiagnostics"))
(flymake-start)
@@ -444,16 +438,20 @@ Pass TIMEOUT to `eglot--with-timeout'."
(ert-deftest eglot-test-diagnostic-tags-unnecessary-code ()
"Test rendering of diagnostics tagged \"unnecessary\"."
- (skip-unless (executable-find "rust-analyzer"))
- (skip-unless (executable-find "cargo"))
+ (skip-unless (executable-find "clangd"))
+ (skip-unless (version<= "14" (eglot--clangd-version)))
(eglot--with-fixture
- '(("diagnostic-tag-project" .
- (("main.rs" .
- "fn main() -> () { let test=3; }"))))
+ `(("diag-project" .
+ (("main.cpp" . "int main(){float a = 42.2; return 0;}"))))
(with-current-buffer
- (eglot--find-file-noselect "diagnostic-tag-project/main.rs")
- (let ((eglot-server-programs '((rust-mode . ("rust-analyzer")))))
- (should (zerop (shell-command "cargo init")))
+ (eglot--find-file-noselect "diag-project/main.cpp")
+ (eglot--make-file-or-dir '(".git"))
+ (eglot--make-file-or-dir
+ `("compile_commands.json" .
+ ,(jsonrpc--json-encode
+ `[(:directory ,default-directory :command "/usr/bin/c++ -Wall -c
main.cpp"
+ :file ,(expand-file-name "main.cpp"))])))
+ (let ((eglot-server-programs '((c++-mode . ("clangd")))))
(eglot--sniffing (:server-notifications s-notifs)
(eglot--tests-connect)
(eglot--wait-for (s-notifs 10)
@@ -465,11 +463,11 @@ Pass TIMEOUT to `eglot--with-timeout'."
(should (eq 'eglot-diagnostic-tag-unnecessary-face
(face-at-point))))))))
(defun eglot--eldoc-on-demand ()
- ;; Trick Eldoc 1.1.0 into accepting on-demand calls.
+ ;; Trick ElDoc 1.1.0 into accepting on-demand calls.
(eldoc t))
(defun eglot--tests-force-full-eldoc ()
- ;; FIXME: This uses some Eldoc implementation defatils.
+ ;; FIXME: This uses some ElDoc implementation details.
(when (buffer-live-p eldoc--doc-buffer)
(with-current-buffer eldoc--doc-buffer
(let ((inhibit-read-only t))
@@ -533,90 +531,101 @@ Pass TIMEOUT to `eglot--with-timeout'."
(should (equal (buffer-string)
"int bar() {return 42;} int main() {return bar();}")))))
+(defun eglot--wait-for-clangd ()
+ (eglot--sniffing (:server-notifications s-notifs)
+ (should (eglot--tests-connect))
+ (eglot--wait-for (s-notifs 20) (&key method &allow-other-keys)
+ (string= method "textDocument/publishDiagnostics"))))
+
(ert-deftest eglot-test-basic-completions ()
- "Test basic autocompletion in a python LSP."
- (skip-unless (executable-find "pylsp"))
+ "Test basic autocompletion in a clangd LSP."
+ (skip-unless (executable-find "clangd"))
(eglot--with-fixture
- `(("project" . (("something.py" . "import sys\nsys.exi"))))
+ `(("project" . (("coiso.c" . "#include <stdio.h>\nint main () {fprin"))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
- (should (eglot--tests-connect))
+ (eglot--find-file-noselect "project/coiso.c")
+ (eglot--sniffing (:server-notifications s-notifs)
+ (eglot--wait-for-clangd)
+ (eglot--wait-for (s-notifs 20) (&key method &allow-other-keys)
+ (string= method "textDocument/publishDiagnostics")))
(goto-char (point-max))
(completion-at-point)
- (should (looking-back "sys.exit")))))
+ (message (buffer-string))
+ (should (looking-back "fprintf.?")))))
(ert-deftest eglot-test-non-unique-completions ()
"Test completion resulting in 'Complete, but not unique'."
- (skip-unless (executable-find "pylsp"))
+ (skip-unless (executable-find "clangd"))
(eglot--with-fixture
- '(("project" . (("something.py" . "foo=1\nfoobar=2\nfoo"))))
+ `(("project" . (("coiso.c" .
+ ,(concat "int foo; int fooey;"
+ "int main() {foo")))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
- (should (eglot--tests-connect))
+ (eglot--find-file-noselect "project/coiso.c")
+ (eglot--wait-for-clangd)
(goto-char (point-max))
- (completion-at-point))
- ;; FIXME: `current-message' doesn't work here :-(
+ (completion-at-point)
+ ;; FIXME: `current-message' doesn't work here :-(
(with-current-buffer (messages-buffer)
(save-excursion
(goto-char (point-max))
(forward-line -1)
- (should (looking-at "Complete, but not unique"))))))
+ (should (looking-at "Complete, but not unique")))))))
(ert-deftest eglot-test-basic-xref ()
- "Test basic xref functionality in a python LSP."
- (skip-unless (executable-find "pylsp"))
+ "Test basic xref functionality in a clangd LSP."
+ (skip-unless (executable-find "clangd"))
(eglot--with-fixture
- `(("project" . (("something.py" . "def foo(): pass\ndef bar(): foo()"))))
+ `(("project" . (("coiso.c" .
+ ,(concat "int foo=42; int fooey;"
+ "int main() {foo=82;}")))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
+ (eglot--find-file-noselect "project/coiso.c")
(should (eglot--tests-connect))
- (search-forward "bar(): f")
+ (search-forward "{foo")
(call-interactively 'xref-find-definitions)
- (should (looking-at "foo(): pass")))))
+ (should (looking-at "foo=42")))))
-(defvar eglot--test-python-buffer
+(defvar eglot--test-c-buffer
"\
-def foobarquux(a, b, c=True): pass
-def foobazquuz(d, e, f): pass
+void foobarquux(int a, int b, int c){};
+void foobazquuz(int a, int b, int f){};
+int main() {
")
(declare-function yas-minor-mode nil)
(ert-deftest eglot-test-snippet-completions ()
- "Test simple snippet completion in a python LSP."
- (skip-unless (and (executable-find "pylsp")
+ "Test simple snippet completion in a clangd LSP."
+ (skip-unless (and (executable-find "clangd")
(functionp 'yas-minor-mode)))
(eglot--with-fixture
- `(("project" . (("something.py" . ,eglot--test-python-buffer))))
+ `(("project" . (("coiso.c" . ,eglot--test-c-buffer))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
+ (eglot--find-file-noselect "project/coiso.c")
(yas-minor-mode 1)
- (let ((eglot-workspace-configuration
- `((:pylsp . (:plugins (:jedi_completion (:include_params t)))))))
- (should (eglot--tests-connect)))
+ (eglot--wait-for-clangd)
(goto-char (point-max))
(insert "foobar")
(completion-at-point)
(should (looking-back "foobarquux("))
- (should (looking-at "a, b)")))))
+ (should (looking-at "int a, int b, int c)")))))
(defvar company-candidates)
(declare-function company-mode nil)
(declare-function company-complete nil)
(ert-deftest eglot-test-snippet-completions-with-company ()
- "Test simple snippet completion in a python LSP."
- (skip-unless (and (executable-find "pylsp")
+ "Test simple snippet completion in a clangd LSP."
+ (skip-unless (and (executable-find "clangd")
(functionp 'yas-minor-mode)
(functionp 'company-complete)))
(eglot--with-fixture
- `(("project" . (("something.py" . ,eglot--test-python-buffer))))
+ `(("project" . (("coiso.c" . ,eglot--test-c-buffer))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
+ (eglot--find-file-noselect "project/coiso.c")
(yas-minor-mode 1)
- (let ((eglot-workspace-configuration
- `((:pylsp . (:plugins (:jedi_completion (:include_params t)))))))
- (should (eglot--tests-connect)))
+ (eglot--wait-for-clangd)
(goto-char (point-max))
(insert "foo")
(company-mode)
@@ -624,98 +633,63 @@ def foobazquuz(d, e, f): pass
(should (looking-back "fooba"))
(should (= 2 (length company-candidates)))
;; this last one is brittle, since there it is possible that
- ;; pylsp will change the representation of this candidate
- (should (member "foobazquuz(d, e, f)" company-candidates)))))
+ ;; clangd will change the representation of this candidate
+ (should (member "foobazquuz(int a, int b, int f)" company-candidates)))))
(ert-deftest eglot-test-eldoc-after-completions ()
- "Test documentation echo in a python LSP."
- (skip-unless (executable-find "pylsp"))
+ "Test documentation echo in a clangd LSP."
+ (skip-unless (executable-find "clangd"))
(eglot--with-fixture
- `(("project" . (("something.py" . "import sys\nsys.exi"))))
+ `(("project" . (("coiso.c" . "#include <stdio.h>\nint main () {fprin"))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
- (should (eglot--tests-connect))
+ (eglot--find-file-noselect "project/coiso.c")
+ (eglot--wait-for-clangd)
(goto-char (point-max))
(completion-at-point)
- (should (looking-back "sys.exit"))
- (should (string-match "^exit" (eglot--tests-force-full-eldoc))))))
+ (message (buffer-string))
+ (should (looking-back "fprintf(?"))
+ (unless (= (char-before) ?\() (insert "()") (backward-char))
+ (eglot--signal-textDocument/didChange)
+ (should (string-match "^fprintf" (eglot--tests-force-full-eldoc))))))
(ert-deftest eglot-test-multiline-eldoc ()
- "Test if suitable amount of lines of hover info are shown."
- (skip-unless (executable-find "pylsp"))
+ "Test ElDoc documentation from multiple osurces."
+ (skip-unless (executable-find "clangd"))
(eglot--with-fixture
- `(("project" . (("hover-first.py" . "from datetime import datetime"))))
+ `(("project" . (("coiso.c" .
+ "#include <stdio.h>\nint main () {fprintf(blergh);}"))))
(with-current-buffer
- (eglot--find-file-noselect "project/hover-first.py")
- (should (eglot--tests-connect))
- (goto-char (point-max))
- ;; one-line
- (let* ((eldoc-echo-area-use-multiline-p t)
- (captured-message (eglot--tests-force-full-eldoc)))
- (should (string-match "datetim" captured-message))
+ (eglot--find-file-noselect "project/coiso.c")
+ (search-forward "fprintf(ble")
+ (eglot--wait-for-clangd)
+ (flymake-start nil t) ;; thing brings in the "unknown identifier blergh"
+ (let* ((captured-message (eglot--tests-force-full-eldoc)))
+ ;; check for signature and error message in the result
+ (should (string-match "fprintf" captured-message))
+ (should (string-match "blergh" captured-message))
(should (cl-find ?\n captured-message))))))
-(ert-deftest eglot-test-single-line-eldoc ()
- "Test if suitable amount of lines of hover info are shown."
- (skip-unless (executable-find "pylsp"))
- (eglot--with-fixture
- `(("project" . (("hover-first.py" . "from datetime import datetime"))))
- (with-current-buffer
- (eglot--find-file-noselect "project/hover-first.py")
- (should (eglot--tests-connect))
- (goto-char (point-max))
- ;; one-line
- (let* ((eldoc-echo-area-use-multiline-p nil)
- (captured-message (eglot--tests-force-full-eldoc)))
- (should (string-match "datetim" captured-message))
- (should (not (cl-find ?\n eldoc-last-message)))))))
-
-(ert-deftest eglot-test-python-autopep-formatting ()
- "Test formatting in the pylsp python LSP.
-pylsp prefers autopep over yafp, despite its README stating the contrary."
+(ert-deftest eglot-test-formatting ()
+ "Test formatting in the clangd server."
;; Beware, default autopep rules can change over time, which may
;; affect this test.
- (skip-unless (and (executable-find "pylsp")
- (executable-find "autopep8")))
- (eglot--with-fixture
- `(("project" . (("something.py" . "def a():pass\n\ndef b():pass"))))
- (with-current-buffer
- (eglot--find-file-noselect "project/something.py")
- (should (eglot--tests-connect))
- ;; Try to format just the second line
- (search-forward "b():pa")
- (eglot-format (line-beginning-position) (line-end-position))
- (should (looking-at "ss"))
- (should
- (or (string= (buffer-string) "def a():pass\n\n\ndef b(): pass\n")
- ;; autopep8 2.0.0 (pycodestyle: 2.9.1)
- (string= (buffer-string) "def a():pass\n\ndef b(): pass")))
- ;; now format the whole buffer
- (eglot-format-buffer)
- (should
- (string= (buffer-string) "def a(): pass\n\n\ndef b(): pass\n")))))
-
-(ert-deftest eglot-test-python-yapf-formatting ()
- "Test formatting in the pylsp python LSP."
- (skip-unless (and (executable-find "pylsp")
- (not (executable-find "autopep8"))
- (or (executable-find "yapf")
- (executable-find "yapf3"))))
+ (skip-unless (executable-find "clangd"))
(eglot--with-fixture
- `(("project" . (("something.py" . "def a():pass\ndef b():pass"))))
+ `(("project" . (("coiso.c" . ,(concat "#include <stdio.h>\n"
+ "int main(){fprintf(blergh);}"
+ "int ble{\n\nreturn 0;}")))))
(with-current-buffer
- (eglot--find-file-noselect "project/something.py")
- (should (eglot--tests-connect))
+ (eglot--find-file-noselect "project/coiso.c")
+ (eglot--wait-for-clangd)
+ (forward-line)
;; Try to format just the second line
- (search-forward "b():pa")
(eglot-format (line-beginning-position) (line-end-position))
- (should (looking-at "ss"))
- (should
- (string= (buffer-string) "def a():pass\n\n\ndef b():\n pass\n"))
- ;; now format the whole buffer
+ (should (looking-at "int main() { fprintf(blergh); }"))
+ ;; ;; now format the whole buffer
(eglot-format-buffer)
(should
- (string= (buffer-string) "def a():\n pass\n\n\ndef b():\n
pass\n")))))
+ (string= (buffer-string)
+ "#include <stdio.h>\nint main() { fprintf(blergh); }\nint ble
{ return 0; }")))))
(ert-deftest eglot-test-rust-on-type-formatting ()
"Test textDocument/onTypeFormatting against rust-analyzer."
@@ -731,8 +705,8 @@ pylsp prefers autopep over yafp, despite its README stating
the contrary."
(should (zerop (shell-command "cargo init")))
(eglot--sniffing (:server-notifications s-notifs)
(should (eglot--tests-connect))
- (eglot--wait-for (s-notifs 10) (&key method &allow-other-keys)
- (string= method "textDocument/publishDiagnostics")))
+ (eglot--wait-for (s-notifs 20) (&key method &allow-other-keys)
+ (string= method "textDocument/publishDiagnostics")))
(goto-char (point-max))
(eglot--simulate-key-event ?.)
(should (looking-back "^ \\."))))))
@@ -797,37 +771,40 @@ pylsp prefers autopep over yafp, despite its README
stating the contrary."
(should (= 4 (length (flymake--project-diagnostics))))))))))
(ert-deftest eglot-test-project-wide-diagnostics-rust-analyzer ()
- "Test diagnostics through multiple files in a TypeScript LSP."
+ "Test diagnostics through multiple files in rust-analyzer."
(skip-unless (executable-find "rust-analyzer"))
(skip-unless (executable-find "cargo"))
+ (skip-unless (executable-find "git"))
(eglot--with-fixture
'(("project" .
(("main.rs" .
- "fn main() -> () { let test=3; }")
+ "fn main() -> i32 { return 42.2;}")
("other-file.rs" .
"fn foo() -> () { let hi=3; }"))))
- (eglot--make-file-or-dir '(".git"))
(let ((eglot-server-programs '((rust-mode . ("rust-analyzer")))))
- ;; Open other-file, and see diagnostics arrive for main.rs
+ ;; Open other-file.rs, and see diagnostics arrive for main.rs,
+ ;; which we didn't open.
(with-current-buffer (eglot--find-file-noselect "project/other-file.rs")
+ (should (zerop (shell-command "git init")))
(should (zerop (shell-command "cargo init")))
(eglot--sniffing (:server-notifications s-notifs)
(eglot--tests-connect)
(flymake-start)
- (eglot--wait-for (s-notifs 10)
- (&key _id method &allow-other-keys)
- (string= method "textDocument/publishDiagnostics"))
- (let ((diags (flymake--project-diagnostics)))
- (should (= 2 (length diags)))
- ;; Check that we really get a diagnostic from main.rs, and
- ;; not from other-file.rs
- (should (string-suffix-p
- "main.rs"
- (flymake-diagnostic-buffer (car diags))))))))))
+ (eglot--wait-for (s-notifs 20)
+ (&key _id method params &allow-other-keys)
+ (and (string= method "textDocument/publishDiagnostics")
+ (string-suffix-p "main.rs" (plist-get params :uri))))
+ (let* ((diags (flymake--project-diagnostics)))
+ (should (cl-some (lambda (diag)
+ (let ((locus (flymake-diagnostic-buffer diag)))
+ (and (stringp (flymake-diagnostic-buffer
diag))
+ (string-suffix-p "main.rs" locus))))
+ diags))))))))
(ert-deftest eglot-test-json-basic ()
"Test basic autocompletion in vscode-json-languageserver."
(skip-unless (executable-find "vscode-json-languageserver"))
+ (skip-unless (fboundp 'yas-minor-mode))
(eglot--with-fixture
'(("project" .
(("p.json" . "{\"foo.b")
@@ -879,9 +856,9 @@ pylsp prefers autopep over yafp, despite its README stating
the contrary."
(skip-unless (executable-find "clangd"))
(eglot--with-fixture
`(("project" . (("foo.c" . "int foo() {return 42;}")
- ("bar.c" . "int bar() {return 42;}")))
- (c-mode-hook (eglot-ensure)))
- (let (server)
+ ("bar.c" . "int bar() {return 42;}"))))
+ (let ((c-mode-hook '(eglot-ensure))
+ server)
;; need `ert-simulate-command' because `eglot-ensure'
;; relies on `post-command-hook'.
(with-current-buffer
@@ -1065,7 +1042,8 @@ pylsp prefers autopep over yafp, despite its README
stating the contrary."
(cl-defmacro eglot--guessing-contact ((interactive-sym
prompt-args-sym
guessed-class-sym guessed-contact-sym
- &optional guessed-lang-id-sym)
+ &optional guessed-major-modes-sym
+ guessed-lang-ids-sym)
&body body)
"Guess LSP contact with `eglot--guessing-contact', evaluate BODY.
@@ -1075,10 +1053,10 @@ BODY is evaluated twice, with INTERACTIVE bound to the
boolean passed to
If the user would have been prompted, PROMPT-ARGS-SYM is bound to
the list of arguments that would have been passed to
`read-shell-command', else nil. GUESSED-CLASS-SYM,
-GUESSED-CONTACT-SYM and GUESSED-LANG-ID-SYM are bound to the
-useful return values of `eglot--guess-contact'. Unless the
-server program evaluates to \"a-missing-executable.exe\", this
-macro will assume it exists."
+GUESSED-CONTACT-SYM, GUESSED-LANG-IDS-SYM and
+GUESSED-MAJOR-MODES-SYM are bound to the useful return values of
+`eglot--guess-contact'. Unless the server program evaluates to
+\"a-missing-executable.exe\", this macro will assume it exists."
(declare (indent 1) (debug t))
(let ((i-sym (cl-gensym)))
`(dolist (,i-sym '(nil t))
@@ -1094,8 +1072,9 @@ macro will assume it exists."
`(lambda (&rest args) (setq ,prompt-args-sym args) "")
`(lambda (&rest _dummy) ""))))
(cl-destructuring-bind
- (_ _ ,guessed-class-sym ,guessed-contact-sym
- ,(or guessed-lang-id-sym '_))
+ (,(or guessed-major-modes-sym '_)
+ _ ,guessed-class-sym ,guessed-contact-sym
+ ,(or guessed-lang-ids-sym '_))
(eglot--guess-contact ,i-sym)
,@body))))))
@@ -1190,16 +1169,17 @@ macro will assume it exists."
(ert-deftest eglot-test-server-programs-guess-lang ()
(let ((major-mode 'foo-mode))
(let ((eglot-server-programs '((foo-mode . ("prog-executable")))))
- (eglot--guessing-contact (_ nil _ _ guessed-lang)
- (should (equal guessed-lang "foo"))))
+ (eglot--guessing-contact (_ nil _ _ _ guessed-langs)
+ (should (equal guessed-langs '("foo")))))
(let ((eglot-server-programs '(((foo-mode :language-id "bar")
. ("prog-executable")))))
- (eglot--guessing-contact (_ nil _ _ guessed-lang)
- (should (equal guessed-lang "bar"))))
+ (eglot--guessing-contact (_ nil _ _ _ guessed-langs)
+ (should (equal guessed-langs '("bar")))))
(let ((eglot-server-programs '(((baz-mode (foo-mode :language-id "bar"))
. ("prog-executable")))))
- (eglot--guessing-contact (_ nil _ _ guessed-lang)
- (should (equal guessed-lang "bar"))))))
+ (eglot--guessing-contact (_ nil _ _ modes guessed-langs)
+ (should (equal guessed-langs '("bar" "baz")))
+ (should (equal modes '(foo-mode baz-mode)))))))
(defun eglot--glob-match (glob str)
(funcall (eglot--glob-compile glob t t) str))
@@ -1257,16 +1237,29 @@ macro will assume it exists."
(defvar tramp-histfile-override)
(defun eglot--call-with-tramp-test (fn)
+ (unless (>= emacs-major-version 27)
+ (ert-skip "Eglot Tramp support only on Emacs >= 27"))
;; Set up a Tramp method that’s just a shell so the remote host is
;; really just the local host.
- (let* ((tramp-remote-path (cons 'tramp-own-remote-path tramp-remote-path))
+ (let* ((tramp-remote-path (cons 'tramp-own-remote-path
+ tramp-remote-path))
(tramp-histfile-override t)
+ (tramp-allow-unsafe-temporary-files t)
(tramp-verbose 1)
- (temporary-file-directory ert-remote-temporary-file-directory)
+ (temporary-file-directory
+ (or (bound-and-true-p ert-remote-temporary-file-directory)
+ (prog1 (format "/mock::%s" temporary-file-directory)
+ (add-to-list
+ 'tramp-methods
+ '("mock"
+ (tramp-login-program "sh") (tramp-login-args (("-i")))
+ (tramp-direct-async ("-c")) (tramp-remote-shell
"/bin/sh")
+ (tramp-remote-shell-args ("-c")) (tramp-connection-timeout
10)))
+ (add-to-list 'tramp-default-host-alist
+ `("\\`mock\\'" nil ,(system-name)))
+ (when (and noninteractive (not (file-directory-p "~/")))
+ (setenv "HOME" temporary-file-directory)))))
(default-directory temporary-file-directory))
- ;; We must check the remote LSP server. So far, just "clangd" is used.
- (unless (executable-find "clangd" 'remote)
- (ert-skip "Remote clangd not found"))
(funcall fn)))
(ert-deftest eglot-test-tramp-test ()
@@ -1282,7 +1275,7 @@ macro will assume it exists."
(ert-deftest eglot-test-path-to-uri-windows ()
(skip-unless (eq system-type 'windows-nt))
(should (string-prefix-p "file:///"
- (eglot--path-to-uri "c:/Users/Foo/bar.lisp")))
+ (eglot--path-to-uri "c:/Users/Foo/bar.lisp")))
(should (string-suffix-p "c%3A/Users/Foo/bar.lisp"
(eglot--path-to-uri "c:/Users/Foo/bar.lisp"))))
@@ -1312,8 +1305,9 @@ macro will assume it exists."
(should (eq (eglot-current-server) server))))))
(provide 'eglot-tests)
-;;; eglot-tests.el ends here
;; Local Variables:
;; checkdoc-force-docstrings-flag: nil
;; End:
+
+;;; eglot-tests.el ends here
diff --git a/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts
b/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts
new file mode 100644
index 00000000000..1f855d3c977
--- /dev/null
+++ b/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts
@@ -0,0 +1,374 @@
+Code:
+ (lambda ()
+ (elixir-ts-mode)
+ (indent-region (point-min) (point-max)))
+
+Point-Char: $
+
+Name: Basic modules
+
+=-=
+ defmodule Foobar do
+def bar() do
+"one"
+ end
+ end
+=-=
+defmodule Foobar do
+ def bar() do
+ "one"
+ end
+end
+=-=-=
+
+Name: Map
+
+=-=
+map = %{
+ "a" => 1,
+ "b" => 2
+}
+=-=-=
+
+Name: Map in function def
+
+=-=
+def foobar() do
+ %{
+ one: "one",
+ two: "two",
+ three: "three",
+ four: "four"
+ }
+end
+=-=-=
+
+Name: Map in tuple
+
+=-=
+def foo() do
+ {:ok,
+ %{
+ state
+ | extra_arguments: extra_arguments,
+ max_children: max_children,
+ max_restarts: max_restarts,
+ max_seconds: max_seconds,
+ strategy: strategy
+ }}
+end
+=-=-=
+
+Name: Nested maps
+
+=-=
+%{
+ foo: "bar",
+ bar: %{
+ foo: "bar"
+ }
+}
+
+def foo() do
+ %{
+ foo: "bar",
+ bar: %{
+ foo: "bar"
+ }
+ }
+end
+=-=-=
+
+Name: Bitstring mulitline
+
+=-=
+<<12, 22,
+22, 32
+ >>
+=-=
+<<12, 22,
+ 22, 32
+>>
+=-=-=
+
+Name: Block assignments
+
+=-=
+foo =
+ if true do
+ "yes"
+ else
+ "no"
+ end
+=-=-=
+
+Name: Function rescue
+
+=-=
+def foo do
+ "bar"
+rescue
+ e ->
+ "bar"
+end
+=-=-=
+
+Name: With statement
+=-=
+with one <- one(),
+ two <- two(),
+ {:ok, value} <- get_value(one, two) do
+ {:ok, value}
+else
+ {:error, %{"Message" => message}} ->
+ {:error, message}
+end
+=-=-=
+
+Name: Pipe statements with fn
+
+=-=
+[1, 2]
+|> Enum.map(fn num ->
+ num + 1
+end)
+=-=-=
+
+Name: Pipe statements stab clases
+
+=-=
+[1, 2]
+|> Enum.map(fn
+ x when x < 10 -> x * 2
+ x -> x * 3
+end)
+=-=-=
+
+Name: Pipe statements params
+
+=-=
+[1, 2]
+|> foobar(
+ :one,
+ :two,
+ :three,
+ :four
+)
+=-=-=
+
+Name: Parameter maps
+
+=-=
+def something(%{
+ one: :one,
+ two: :two
+ }) do
+ {:ok, "done"}
+end
+=-=-=
+
+Name: Binary operator in else block
+
+=-=
+defp foobar() do
+ if false do
+ :foo
+ else
+ :bar |> foo
+ end
+end
+=-=-=
+
+Name: Tuple indentation
+
+=-=
+tuple = {
+ :one,
+ :two
+}
+
+{
+ :one,
+ :two
+}
+=-=-=
+
+Name: Call with keywords
+
+=-=
+def foo() do
+ bar(:one,
+ :two,
+ one: 1,
+ two: 2
+ )
+end
+=-=-=
+
+Name: Call with @spec
+
+=-=
+@spec foobar(
+ t,
+ acc,
+ (one, something -> :bar | far),
+ (two -> :bar | far)
+ ) :: any()
+ when chunk: any
+def foobar(enumerable, acc, chunk_fun, after_fun) do
+ {_, {res, acc}} =
+ case after_fun.(acc) do
+ {:one, "one"} ->
+ "one"
+
+ {:two, "two"} ->
+ "two"
+ end
+end
+=-=-=
+
+Name: Spec with multi-line result
+
+=-=
+@type result ::
+ {:done, term}
+ | {:two}
+ | {:one}
+
+@type result ::
+ {
+ :done,
+ term
+ }
+ | {:two}
+ | {:one}
+
+@type boo_bar ::
+ (foo :: pos_integer, bar :: pos_integer -> any())
+
+@spec foo_bar(
+ t,
+ (foo -> any),
+ (() -> any) | (foo, foo -> boolean) | module()
+ ) :: any
+ when foo: any
+def foo(one, fun, other)
+=-=-=
+
+Name: String concatenation in call
+
+=-=
+IO.warn(
+ "one" <>
+ "two" <>
+ "bar"
+)
+
+IO.warn(
+ "foo" <>
+ "bar"
+)
+=-=-=
+
+Name: Incomplete tuple
+
+=-=
+map = {
+:foo
+
+=-=
+map = {
+ :foo
+
+=-=-=
+
+Name: Incomplete map
+
+=-=
+map = %{
+ "a" => "a",
+=-=-=
+
+Name: Incomplete list
+
+=-=
+map = [
+:foo
+
+=-=
+map = [
+ :foo
+
+=-=-=
+
+Name: String concatenation
+
+=-=
+"one" <>
+ "two" <>
+ "three" <>
+ "four"
+=-=-=
+
+Name: Tuple with same line first node
+
+=-=
+{:one,
+ :two}
+
+{:ok,
+ fn one ->
+ one
+ |> String.upcase(one)
+ end}
+=-=-=
+
+Name: Long tuple
+
+=-=
+{"January", "February", "March", "April", "May", "June", "July", "August",
"September",
+ "October", "November", "December"}
+=-=-=
+
+Name: Embedded HEEx
+
+=-=
+ defmodule Foo do
+ def foo(assigns) do
+~H"""
+<span>
+text
+</span>
+"""
+ end
+ end
+=-=
+defmodule Foo do
+ def foo(assigns) do
+ ~H"""
+ <span>
+ text
+ </span>
+ """
+ end
+end
+=-=-=
+
+Code:
+ (lambda ()
+ (elixir-ts-mode)
+ (newline)
+ (indent-for-tab-command))
+
+Name: New list item
+
+=-=
+[
+ :foo,$
+]
+=-=
+[
+ :foo,
+ $
+]
+=-=-=
diff --git a/test/lisp/progmodes/elixir-ts-mode-tests.el
b/test/lisp/progmodes/elixir-ts-mode-tests.el
new file mode 100644
index 00000000000..488fc1b646f
--- /dev/null
+++ b/test/lisp/progmodes/elixir-ts-mode-tests.el
@@ -0,0 +1,31 @@
+;;; elixir-ts-mode-tests.el --- Tests for elixir-ts-mode -*-
lexical-binding: t; -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'ert-x)
+(require 'treesit)
+
+(ert-deftest elixir-ts-mode-test-indentation ()
+ (skip-unless (and (treesit-ready-p 'elixir) (treesit-ready-p 'heex)))
+ (ert-test-erts-file (ert-resource-file "indent.erts")))
+
+(provide 'elixir-ts-mode-tests)
+;;; elixir-ts-mode-tests.el ends here
diff --git a/test/lisp/progmodes/heex-ts-mode-resources/indent.erts
b/test/lisp/progmodes/heex-ts-mode-resources/indent.erts
new file mode 100644
index 00000000000..500ddb2b536
--- /dev/null
+++ b/test/lisp/progmodes/heex-ts-mode-resources/indent.erts
@@ -0,0 +1,47 @@
+Code:
+ (lambda ()
+ (setq indent-tabs-mode nil)
+ (heex-ts-mode)
+ (indent-region (point-min) (point-max)))
+
+Point-Char: $
+
+Name: Tag
+
+=-=
+ <div>
+ div
+ </div>
+=-=
+<div>
+ div
+</div>
+=-=-=
+
+Name: Component
+
+=-=
+ <Foo>
+ foobar
+ </Foo>
+=-=
+<Foo>
+ foobar
+</Foo>
+=-=-=
+
+Name: Slots
+
+=-=
+ <Foo>
+ <:bar>
+ foobar
+ </:bar>
+ </Foo>
+=-=
+<Foo>
+ <:bar>
+ foobar
+ </:bar>
+</Foo>
+=-=-=
diff --git a/test/lisp/progmodes/heex-ts-mode-tests.el
b/test/lisp/progmodes/heex-ts-mode-tests.el
new file mode 100644
index 00000000000..def6d845de9
--- /dev/null
+++ b/test/lisp/progmodes/heex-ts-mode-tests.el
@@ -0,0 +1,31 @@
+;;; heex-ts-mode-tests.el --- Tests for heex-ts-mode -*-
lexical-binding: t; -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'ert-x)
+(require 'treesit)
+
+(ert-deftest heex-ts-mode-test-indentation ()
+ (skip-unless (treesit-ready-p 'heex))
+ (ert-test-erts-file (ert-resource-file "indent.erts")))
+
+(provide 'heex-ts-mode-tests)
+;;; heex-ts-mode-tests.el ends here
diff --git a/test/lisp/progmodes/python-tests.el
b/test/lisp/progmodes/python-tests.el
index 4f24c042c6a..9323f72f384 100644
--- a/test/lisp/progmodes/python-tests.el
+++ b/test/lisp/progmodes/python-tests.el
@@ -136,20 +136,6 @@ STRING, it is skipped so the next STRING occurrence is
selected."
while pos
collect (cons pos (get-text-property pos 'face))))
-(defun python-tests-assert-faces-after-change (content faces search replace)
- "Assert that font faces for CONTENT are equal to FACES after change.
-All occurrences of SEARCH are changed to REPLACE."
- (python-tests-with-temp-buffer
- content
- ;; Force enable font-lock mode without jit-lock.
- (rename-buffer "*python-font-lock-test*" t)
- (let (noninteractive font-lock-support-mode)
- (font-lock-mode))
- (while
- (re-search-forward search nil t)
- (replace-match replace))
- (should (equal faces (python-tests-get-buffer-faces)))))
-
(defun python-tests-self-insert (char-or-str)
"Call `self-insert-command' for chars in CHAR-OR-STR."
(let ((chars
@@ -255,6 +241,27 @@ aliqua."
;;; Font-lock and syntax
+(ert-deftest python-syntax-context-1 ()
+ (python-tests-with-temp-buffer
+ "
+# Comment
+s = 'Single Quoted String'
+t = '''Triple Quoted String'''
+p = (1 + 2)
+"
+ (python-tests-look-at "Comment")
+ (should (= (python-syntax-context 'comment) (pos-bol)))
+ (python-tests-look-at "Single")
+ (should (= (python-syntax-context 'string) (1- (point))))
+ (should (= (python-syntax-context 'single-quoted-string) (1- (point))))
+ (should-not (python-syntax-context 'triple-quoted-string))
+ (python-tests-look-at "Triple")
+ (should (= (python-syntax-context 'string) (1- (point))))
+ (should-not (python-syntax-context 'single-quoted-string))
+ (should (= (python-syntax-context 'triple-quoted-string) (1- (point))))
+ (python-tests-look-at "1 + 2")
+ (should (= (python-syntax-context 'paren) (1- (point))))))
+
(ert-deftest python-syntax-after-python-backspace ()
;; `python-indent-dedent-line-backspace' garbles syntax
(python-tests-with-temp-buffer
@@ -276,13 +283,6 @@ aliqua."
"def 1func():"
'((1 . font-lock-keyword-face) (4))))
-(ert-deftest python-font-lock-keywords-level-1-3 ()
- (python-tests-assert-faces
- "def \\
- func():"
- '((1 . font-lock-keyword-face) (4)
- (15 . font-lock-function-name-face) (19))))
-
(ert-deftest python-font-lock-assignment-statement-1 ()
(python-tests-assert-faces
"a, b, c = 1, 2, 3"
@@ -474,129 +474,6 @@ def f(x: CustomInt) -> CustomInt:
(136 . font-lock-operator-face) (137)
(144 . font-lock-keyword-face) (150))))
-(ert-deftest python-font-lock-assignment-statement-multiline-1 ()
- (python-tests-assert-faces-after-change
- "
-[
- a,
- b
-] # (
- 1,
- 2
-)
-"
- '((1)
- (8 . font-lock-variable-name-face) (9)
- (15 . font-lock-variable-name-face) (16)
- (19 . font-lock-operator-face) (20))
- "#" "="))
-
-(ert-deftest python-font-lock-assignment-statement-multiline-2 ()
- (python-tests-assert-faces-after-change
- "
-[
- *a
-] # 5, 6
-"
- '((1)
- (8 . font-lock-operator-face)
- (9 . font-lock-variable-name-face) (10)
- (13 . font-lock-operator-face) (14))
- "#" "="))
-
-(ert-deftest python-font-lock-assignment-statement-multiline-3 ()
- (python-tests-assert-faces-after-change
- "a\\
- ,\\
- b\\
- ,\\
- c\\
- #\\
- 1\\
- ,\\
- 2\\
- ,\\
- 3"
- '((1 . font-lock-variable-name-face) (2)
- (15 . font-lock-variable-name-face) (16)
- (29 . font-lock-variable-name-face) (30)
- (36 . font-lock-operator-face) (37))
- "#" "="))
-
-(ert-deftest python-font-lock-assignment-statement-multiline-4 ()
- (python-tests-assert-faces-after-change
- "a\\
- :\\
- int\\
- #\\
- 5"
- '((1 . font-lock-variable-name-face) (2)
- (15 . font-lock-builtin-face) (18)
- (24 . font-lock-operator-face) (25))
- "#" "="))
-
-(ert-deftest python-font-lock-assignment-statement-multiline-5 ()
- (python-tests-assert-faces-after-change
- "(\\
- a\\
-)\\
- #\\
- 5\\
- ;\\
- (\\
- b\\
- )\\
- #\\
- 6"
- '((1)
- (8 . font-lock-variable-name-face) (9)
- (18 . font-lock-operator-face) (19)
- (46 . font-lock-variable-name-face) (47)
- (60 . font-lock-operator-face) (61))
- "#" "="))
-
-(ert-deftest python-font-lock-assignment-statement-multiline-6 ()
- (python-tests-assert-faces-after-change
- "(
- a
-)\\
- #\\
- 5\\
- ;\\
- (
- b
- )\\
- #\\
- 6"
- '((1)
- (7 . font-lock-variable-name-face) (8)
- (16 . font-lock-operator-face) (17)
- (43 . font-lock-variable-name-face) (44)
- (56 . font-lock-operator-face) (57))
- "#" "="))
-
-(ert-deftest python-font-lock-operator-1 ()
- (python-tests-assert-faces
- "1 << 2 ** 3 == +4%-5|~6&7^8%9"
- '((1)
- (3 . font-lock-operator-face) (5)
- (8 . font-lock-operator-face) (10)
- (13 . font-lock-operator-face) (15)
- (16 . font-lock-operator-face) (17)
- (18 . font-lock-operator-face) (20)
- (21 . font-lock-operator-face) (23)
- (24 . font-lock-operator-face) (25)
- (26 . font-lock-operator-face) (27)
- (28 . font-lock-operator-face) (29))))
-
-(ert-deftest python-font-lock-operator-2 ()
- "Keyword operators are font-locked as keywords."
- (python-tests-assert-faces
- "is_ is None"
- '((1)
- (5 . font-lock-keyword-face) (7)
- (8 . font-lock-constant-face))))
-
(ert-deftest python-font-lock-escape-sequence-string-newline ()
(python-tests-assert-faces
"'\\n'
@@ -708,6 +585,7 @@ u\"\\n\""
(845 . font-lock-string-face) (886))))
(ert-deftest python-font-lock-escape-sequence-bytes-newline ()
+ :expected-result :failed
(python-tests-assert-faces
"b'\\n'
b\"\\n\""
@@ -720,6 +598,7 @@ b\"\\n\""
(11 . font-lock-doc-face))))
(ert-deftest python-font-lock-escape-sequence-hex-octal ()
+ :expected-result :failed
(python-tests-assert-faces
"b'\\x12 \\777 \\1\\23'
'\\x12 \\777 \\1\\23'"
@@ -740,6 +619,7 @@ b\"\\n\""
(36 . font-lock-doc-face))))
(ert-deftest python-font-lock-escape-sequence-unicode ()
+ :expected-result :failed
(python-tests-assert-faces
"b'\\u1234 \\U00010348 \\N{Plus-Minus Sign}'
'\\u1234 \\U00010348 \\N{Plus-Minus Sign}'"
@@ -754,6 +634,7 @@ b\"\\n\""
(80 . font-lock-doc-face))))
(ert-deftest python-font-lock-raw-escape-sequence ()
+ :expected-result :failed
(python-tests-assert-faces
"rb'\\x12 \123 \\n'
r'\\x12 \123 \\n \\u1234 \\U00010348 \\N{Plus-Minus Sign}'"
@@ -1118,7 +999,7 @@ while ((not some_condition) and
(should (eq (car (python-indent-context)) :no-indent))
(should (= (python-indent-calculate-indentation) 0))
(forward-line 1)
- (should (eq (car (python-indent-context)) :inside-paren))
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
(should (= (python-indent-calculate-indentation) 7))
(forward-line 1)
(should (eq (car (python-indent-context)) :after-block-start))
@@ -1153,6 +1034,118 @@ CHOICES = (('some', 'choice'),
;; This signals an error if the test fails
(should (eq (car (python-indent-context)) :inside-paren-newline-start))))
+(ert-deftest python-indent-inside-paren-block-1 ()
+ "`python-indent-block-paren-deeper' set to nil (default).
+See Bug#62696."
+ (python-tests-with-temp-buffer
+ "
+if ('VALUE' in my_unnecessarily_long_dictionary and
+ some_other_long_condition_case):
+ do_something()
+elif (some_case or
+ another_case):
+ do_another()
+"
+ (python-tests-look-at "if")
+ (should (eq (car (python-indent-context)) :no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
+ (should (= (python-indent-calculate-indentation) 4))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :after-block-start))
+ (should (= (python-indent-calculate-indentation) 4))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :at-dedenter-block-start))
+ (should (= (python-indent-calculate-indentation) 0))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
+ (should (= (python-indent-calculate-indentation) 6))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :after-block-start))
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-inside-paren-block-2 ()
+ "`python-indent-block-paren-deeper' set to t.
+See Bug#62696."
+ (python-tests-with-temp-buffer
+ "
+if ('VALUE' in my_unnecessarily_long_dictionary and
+ some_other_long_condition_case):
+ do_something()
+elif (some_case or
+ another_case):
+ do_another()
+"
+ (let ((python-indent-block-paren-deeper t))
+ (python-tests-look-at "if")
+ (should (eq (car (python-indent-context)) :no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
+ (should (= (python-indent-calculate-indentation) 8))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :after-block-start))
+ (should (= (python-indent-calculate-indentation) 4))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :at-dedenter-block-start))
+ (should (= (python-indent-calculate-indentation) 0))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
+ (should (= (python-indent-calculate-indentation) 6))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :after-block-start))
+ (should (= (python-indent-calculate-indentation) 4)))))
+
+(ert-deftest python-indent-inside-paren-block-3 ()
+ "With backslash. `python-indent-block-paren-deeper' set to nil (default).
+See Bug#62696."
+ (python-tests-with-temp-buffer
+ "
+if 'VALUE' in my_uncessarily_long_dictionary and\\
+ (some_other_long_condition_case or
+ another_case):
+ do_something()
+"
+ (python-tests-look-at "if")
+ (should (eq (car (python-indent-context)) :no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (forward-line 1)
+ (should (eq (car (python-indent-context))
+ :after-backslash-block-continuation))
+ (should (= (python-indent-calculate-indentation) 3))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
+ (should (= (python-indent-calculate-indentation) 4))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :after-block-start))
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-inside-paren-block-4 ()
+ "With backslash. `python-indent-block-paren-deeper' set to t.
+See Bug#62696."
+ (python-tests-with-temp-buffer
+ "
+if 'VALUE' in my_uncessarily_long_dictionary and\\
+ (some_other_long_condition_case or
+ another_case):
+ do_something()
+"
+ (let ((python-indent-block-paren-deeper t))
+ (python-tests-look-at "if")
+ (should (eq (car (python-indent-context)) :no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (forward-line 1)
+ (should (eq (car (python-indent-context))
+ :after-backslash-block-continuation))
+ (should (= (python-indent-calculate-indentation) 3))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
+ (should (= (python-indent-calculate-indentation) 8))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) :after-block-start))
+ (should (= (python-indent-calculate-indentation) 4)))))
+
(ert-deftest python-indent-after-block-1 ()
"The most simple after-block case that shouldn't fail."
(python-tests-with-temp-buffer
@@ -1649,7 +1642,7 @@ a == 4):
(should (= (python-indent-calculate-indentation) 0))
(should (= (python-indent-calculate-indentation t) 0))
(python-tests-look-at "a == 4):\n")
- (should (eq (car (python-indent-context)) :inside-paren))
+ (should (eq (car (python-indent-context)) :inside-paren-from-block))
(should (= (python-indent-calculate-indentation) 6))
(python-indent-line)
(should (= (python-indent-calculate-indentation t) 4))
@@ -1658,6 +1651,21 @@ a == 4):
(python-indent-line t)
(should (= (python-indent-calculate-indentation t) 6))))
+(ert-deftest python-indent-dedenters-9 ()
+ "Test de-indentation for the case keyword."
+ (python-tests-with-temp-buffer
+ "
+match a:
+ case 1:
+ print(1)
+ case 2
+"
+ (python-tests-look-at "case 2")
+ (should (eq (car (python-indent-context)) :at-dedenter-block-start))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-indent-line t)
+ (should (= (python-indent-calculate-indentation t) 4))))
+
(ert-deftest python-indent-inside-string-1 ()
"Test indentation for strings."
(python-tests-with-temp-buffer
@@ -1982,6 +1990,32 @@ match foo:
(should (eq (car (python-indent-context)) :after-block-start))
(should (= (python-indent-calculate-indentation) 8))))
+(ert-deftest python-indent-after-re-match ()
+ "Test BUG 62031 regression."
+ (python-tests-with-temp-buffer
+ "
+def test_re(string):
+ if re.match('^[a-c]+$', string):
+ print('yes')
+ else:
+ "
+ (python-tests-look-at "else:")
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-after-bare-match ()
+ "Test BUG 62031 regression."
+ (python-tests-with-temp-buffer
+ "
+from re import match
+
+def test_re(string):
+ if match('^[a-c]+$', string):
+ print('yes')
+ else:
+ "
+ (python-tests-look-at "else:")
+ (should (= (python-indent-calculate-indentation) 4))))
+
;;; Filling
@@ -2011,6 +2045,54 @@ this is a test this is a test this is a test this is a
test this is a test this
(fill-paragraph)
(should (= (current-indentation) 0))))
+(ert-deftest python-fill-paragraph-single-quoted-string-1 ()
+ "Single quoted string should not be filled."
+ (let ((contents "
+s = 'abc def ghi jkl mno pqr stu vwx yz'
+")
+ (fill-column 20))
+ (python-tests-with-temp-buffer
+ contents
+ (python-tests-look-at "abc")
+ (fill-paragraph)
+ (should (string= (buffer-substring-no-properties (point-min) (point-max))
+ contents)))))
+
+(ert-deftest python-fill-paragraph-single-quoted-string-2 ()
+ "Ensure no fill is performed after the end of the single quoted string."
+ (let ((contents "
+s1 = 'abc'
+s2 = 'def'
+"))
+ (python-tests-with-temp-buffer
+ contents
+ (python-tests-look-at "abc")
+ (fill-paragraph)
+ (should (string= (buffer-substring-no-properties (point-min) (point-max))
+ contents)))))
+
+(ert-deftest python-fill-paragraph-triple-quoted-string-1 ()
+ "Triple quoted string should be filled."
+ (let ((contents "
+s = '''abc def ghi jkl mno pqr stu vwx yz'''
+")
+ (expected "
+s = '''abc def ghi
+jkl mno pqr stu vwx
+yz'''
+")
+ (fill-column 20))
+ (dolist (look-at '("'''abc" "z'''"))
+ (dolist (offset '(0 1 2 3))
+ (python-tests-with-temp-buffer
+ contents
+ (python-tests-look-at look-at)
+ (forward-char offset)
+ (fill-paragraph)
+ (should (string=
+ (buffer-substring-no-properties (point-min) (point-max))
+ expected)))))))
+
;;; Mark
@@ -2943,6 +3025,36 @@ string
"'\n''\n"
(python-nav-end-of-statement)))
+(ert-deftest python-nav-end-of-statement-3 ()
+ "Test unmatched quotes (Bug#58780)."
+ (python-tests-with-temp-buffer
+ "
+' \"\"\"
+v = 1
+"
+ (python-tests-look-at "v =")
+ (should (= (save-excursion
+ (python-nav-end-of-statement)
+ (point))
+ (save-excursion
+ (point-max))))))
+
+(ert-deftest python-nav-end-of-statement-4 ()
+ (python-tests-with-temp-buffer
+ "
+abc = 'a\\
+b\\
+c'
+d = '''d'''
+"
+ (python-tests-look-at "b\\")
+ (should (= (save-excursion
+ (python-nav-end-of-statement)
+ (point))
+ (save-excursion
+ (python-tests-look-at "c'")
+ (pos-eol))))))
+
(ert-deftest python-nav-forward-statement-1 ()
(python-tests-with-temp-buffer
"
@@ -5209,6 +5321,20 @@ def decoratorFunctionWithArguments(arg1, arg2, arg3):
(should (string= (python-info-current-defun t)
"def decoratorFunctionWithArguments"))))
+(ert-deftest python-info-current-defun-4 ()
+ "Ensure unmatched quotes do not cause hang (Bug#58780)."
+ (python-tests-with-temp-buffer
+ "
+def func():
+ ' \"\"\"
+ v = 1
+"
+ (python-tests-look-at "v = 1")
+ (should (string= (python-info-current-defun)
+ "func"))
+ (should (string= (python-info-current-defun t)
+ "def func"))))
+
(ert-deftest python-info-current-symbol-1 ()
(python-tests-with-temp-buffer
"
@@ -5786,6 +5912,26 @@ def func():
(equal (list (python-tests-look-at "if (" -1 t))
(python-info-dedenter-opening-block-positions)))))
+(ert-deftest python-info-dedenter-opening-block-positions-7 ()
+ "Test case blocks."
+ (python-tests-with-temp-buffer
+ "
+match a:
+ case 1:
+ match b:
+ case 2:
+ something()
+ case 3:
+"
+ (python-tests-look-at "case 1:")
+ (should-not (python-info-dedenter-opening-block-positions))
+ (python-tests-look-at "case 2:")
+ (should-not (python-info-dedenter-opening-block-positions))
+ (python-tests-look-at "case 3:")
+ (equal (list (python-tests-look-at "case 2:" -1)
+ (python-tests-look-at "case 1:" -1 t))
+ (python-info-dedenter-opening-block-positions))))
+
(ert-deftest python-info-dedenter-opening-block-message-1 ()
"Test dedenters inside strings are ignored."
(python-tests-with-temp-buffer
@@ -5971,6 +6117,24 @@ elif b:
(point))
(python-info-dedenter-statement-p)))))
+(ert-deftest python-info-dedenter-statement-p-6 ()
+ "Test case keyword."
+ (python-tests-with-temp-buffer
+ "
+match a: # Comment
+ case 1:
+ match b:
+ case 2:
+ something()
+ case 3:
+"
+ (python-tests-look-at "case 1:")
+ (should-not (python-info-dedenter-statement-p))
+ (python-tests-look-at "case 2:")
+ (should-not (python-info-dedenter-statement-p))
+ (python-tests-look-at "case 3:")
+ (should (= (point) (python-info-dedenter-statement-p)))))
+
(ert-deftest python-info-line-ends-backslash-p-1 ()
(python-tests-with-temp-buffer
"
@@ -6406,6 +6570,68 @@ class Class:
(python-tests-look-at "'''Not a method docstring.'''")
(should (not (python-info-docstring-p)))))
+(ert-deftest python-info-docstring-p-7 ()
+ "Test string in a dictionary."
+ (python-tests-with-temp-buffer
+ "
+{'Not a docstring': 1}
+'Also not a docstring'
+"
+ (python-tests-look-at "Not a docstring")
+ (should-not (python-info-docstring-p))
+ (python-tests-look-at "Also not a docstring")
+ (should-not (python-info-docstring-p))))
+
+(ert-deftest python-info-triple-quoted-string-p-1 ()
+ "Test triple quoted string."
+ (python-tests-with-temp-buffer
+ "
+t = '''Triple'''
+"
+ (python-tests-look-at " '''Triple")
+ (should-not
+ (python-tests-should-not-move
+ #'python-info-triple-quoted-string-p))
+ (forward-char)
+ (let ((start-pos (+ (point) 2))
+ (eol (pos-eol)))
+ (while (< (point) eol)
+ (should (= (python-tests-should-not-move
+ #'python-info-triple-quoted-string-p)
+ start-pos))
+ (forward-char)))
+ (dolist (pos `(,(point) ,(point-min) ,(point-max)))
+ (goto-char pos)
+ (should-not
+ (python-tests-should-not-move
+ #'python-info-triple-quoted-string-p)))))
+
+(ert-deftest python-info-triple-quoted-string-p-2 ()
+ "Test empty triple quoted string."
+ (python-tests-with-temp-buffer
+ "
+e = ''''''
+"
+ (python-tests-look-at "''''''")
+ (let ((start-pos (+ (point) 2))
+ (eol (pos-eol)))
+ (while (< (point) eol)
+ (should (= (python-tests-should-not-move
+ #'python-info-triple-quoted-string-p)
+ start-pos))
+ (forward-char)))))
+
+(ert-deftest python-info-triple-quoted-string-p-3 ()
+ "Test single quoted string."
+ (python-tests-with-temp-buffer
+ "
+s = 'Single'
+"
+ (while (< (point) (point-max))
+ (should-not (python-tests-should-not-move
+ #'python-info-triple-quoted-string-p))
+ (forward-char))))
+
(ert-deftest python-info-encoding-from-cookie-1 ()
"Should detect it on first line."
(python-tests-with-temp-buffer
diff --git a/test/lisp/progmodes/ruby-mode-tests.el
b/test/lisp/progmodes/ruby-mode-tests.el
index 8a75c83d2c3..117385ea3e8 100644
--- a/test/lisp/progmodes/ruby-mode-tests.el
+++ b/test/lisp/progmodes/ruby-mode-tests.el
@@ -567,6 +567,22 @@ VALUES-PLIST is a list with alternating index and value
elements."
(search-backward "_")
(should (string= (ruby-add-log-current-method) "C::D#foo"))))
+(ert-deftest ruby-add-log-current-method-singleton-referencing-outer ()
+ (ruby-with-temp-buffer (ruby-test-string
+ "module M
+ | module N
+ | module C
+ | class D
+ | def C.foo
+ | _
+ | end
+ | end
+ | end
+ | end
+ |end")
+ (search-backward "_")
+ (should (string= (ruby-add-log-current-method) "M::N::C.foo"))))
+
(ert-deftest ruby-add-log-current-method-after-inner-class ()
(ruby-with-temp-buffer (ruby-test-string
"module M
diff --git a/test/lisp/progmodes/ruby-ts-mode-tests.el
b/test/lisp/progmodes/ruby-ts-mode-tests.el
index c99e1a43063..55782f886f6 100644
--- a/test/lisp/progmodes/ruby-ts-mode-tests.el
+++ b/test/lisp/progmodes/ruby-ts-mode-tests.el
@@ -258,6 +258,22 @@ The whitespace before and including \"|\" on each line is
removed."
(delete-char 1)
(should (string= (ruby-ts-add-log-current-function) "M::C#foo"))))
+(ert-deftest ruby-ts-syntax-propertize-symbol ()
+ (skip-unless (treesit-ready-p 'ruby t))
+ (pcase-dolist (`(,str . ,expected)
+ '((":abc" . ":abc")
+ (":foo?" . #(":foo?" 4 5 (syntax-table (3))))
+ (":<=>" . #(":<=>" 1 4 (syntax-table (3))))))
+ (ruby-ts-with-temp-buffer str
+ (syntax-propertize (point-max))
+ (let ((text (buffer-string)))
+ (remove-text-properties 0 (1- (point-max))
+ '(fontified)
+ text)
+ (should (equal-including-properties
+ text
+ expected))))))
+
(defmacro ruby-ts-resource-file (file)
`(when-let ((testfile ,(or (macroexp-file-name)
buffer-file-name)))
@@ -265,6 +281,32 @@ The whitespace before and including \"|\" on each line is
removed."
(file-truename
(expand-file-name (format "ruby-mode-resources/%s" ,file))))))
+(ert-deftest ruby-ts-imenu-index ()
+ (skip-unless (treesit-ready-p 'ruby t))
+ (ruby-ts-with-temp-buffer
+ (ruby-ts-test-string
+ "module Foo
+ | class Blub
+ | def hi
+ | 'Hi!'
+ | end
+ |
+ | def bye
+ | 'Bye!'
+ | end
+ |
+ | private def self.hiding
+ | 'You can't see me'
+ | end
+ | end
+ |end")
+ (should (equal (mapcar #'car (ruby-ts--imenu))
+ '("Foo"
+ "Foo::Blub"
+ "Foo::Blub#hi"
+ "Foo::Blub#bye"
+ "Foo::Blub.hiding")))))
+
(defmacro ruby-ts-deftest-indent (file)
`(ert-deftest ,(intern (format "ruby-ts-indent-test/%s" file)) ()
;; :tags '(:expensive-test)
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 28d8120f143..7dabb735522 100644
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -839,7 +839,7 @@ See Bug#21722."
(forward-line 2)
(narrow-to-region (pos-bol) (pos-eol))
(should (equal (line-number-at-pos) 1))
- (line-number-at-pos nil t)
+ (should (equal (line-number-at-pos nil t) 3))
(should (equal (line-number-at-pos) 1))))
(ert-deftest line-number-at-pos-keeps-point ()
@@ -849,8 +849,8 @@ See Bug#21722."
(goto-char (point-min))
(forward-line 2)
(setq pos (point))
- (line-number-at-pos)
- (line-number-at-pos nil t)
+ (should (equal (line-number-at-pos) 3))
+ (should (equal (line-number-at-pos nil t) 3))
(should (equal pos (point))))))
(ert-deftest line-number-at-pos-when-passing-point ()
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 37fe09c1716..1c220b1da18 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -579,7 +579,8 @@
(cons (mapcar (pcase-lambda (`(,evald ,func ,args ,_))
`(,evald ,func ,@args))
(backtrace-frames base))
- (subr-test--backtrace-frames-with-backtrace-frame base))))))
+ (subr-test--backtrace-frames-with-backtrace-frame base))
+ (sit-for 0))))) ; dummy unwind form
(defun subr-test--frames-1 (base)
(subr-test--frames-2 base))
@@ -1205,31 +1206,55 @@ final or penultimate step during initialization."))
(should (equal a-dedup '("a" "b" "a" "b" "c")))
(should (eq a a-dedup))))
-(ert-deftest subr--safe-copy-tree ()
- (should (null (safe-copy-tree nil)))
- (let* ((foo '(1 2 (3 4))) (bar (safe-copy-tree foo)))
- (should (equal bar foo))
- (should-not (eq bar foo))
- (should-not (eq (caddr bar) (caddr foo))))
- (let* ((foo '#1=(a #1#)) (bar (safe-copy-tree foo)))
- (should (eq (car bar) (car foo)))
-; (should-not (proper-list-p bar))
- (should (eq (caadr bar) (caadr foo)))
- (should (eq (caadr bar) 'a)))
- (let* ((foo [1 2 3 4]) (bar (safe-copy-tree foo)))
- (should (eq bar foo)))
- (let* ((foo [1 (2 3) 4]) (bar (safe-copy-tree foo t)))
- (should-not (eq bar foo))
- (should (equal bar foo))
- (should-not (eq (aref bar 1) (aref foo 1))))
- (let* ((foo [1 [2 3] 4]) (bar (safe-copy-tree foo t)))
- (should (equal bar foo))
- (should-not (eq bar foo))
- (should-not (eq (aref bar 1) (aref foo 1))))
- (let* ((foo (record 'foo 1 "two" 3)) (bar (safe-copy-tree foo t)))
- (should (equal bar foo))
- (should-not (eq bar foo))
- (should (eq (aref bar 2) (aref foo 2)))))
+(ert-deftest subr--copy-tree ()
+ ;; Check that values other than conses, vectors and records are
+ ;; neither copied nor traversed.
+ (let ((s (propertize "abc" 'prop (list 11 12)))
+ (h (make-hash-table :test #'equal)))
+ (puthash (list 1 2) (list 3 4) h)
+ (dolist (x (list nil 'a "abc" s h))
+ (should (eq (copy-tree x) x))
+ (should (eq (copy-tree x t) x))))
+
+ ;; Use the printer to detect common parts of Lisp values.
+ (let ((print-circle t))
+ (cl-labels ((prn3 (x y z) (prin1-to-string (list x y z)))
+ (cat3 (x y z) (concat "(" x " " y " " z ")")))
+ (let ((x '(a (b ((c) . d) e) (f))))
+ (should (equal (prn3 x (copy-tree x) (copy-tree x t))
+ (cat3 "(a (b ((c) . d) e) (f))"
+ "(a (b ((c) . d) e) (f))"
+ "(a (b ((c) . d) e) (f))"))))
+ (let ((x '(a [b (c d)] #s(e (f [g])))))
+ (should (equal (prn3 x (copy-tree x) (copy-tree x t))
+ (cat3 "(a #1=[b (c d)] #2=#s(e (f [g])))"
+ "(a #1# #2#)"
+ "(a [b (c d)] #s(e (f [g])))"))))
+ (let ((x [a (b #s(c d))]))
+ (should (equal (prn3 x (copy-tree x) (copy-tree x t))
+ (cat3 "#1=[a (b #s(c d))]"
+ "#1#"
+ "[a (b #s(c d))]"))))
+ (let ((x #s(a (b [c d]))))
+ (should (equal (prn3 x (copy-tree x) (copy-tree x t))
+ (cat3 "#1=#s(a (b [c d]))"
+ "#1#"
+ "#s(a (b [c d]))"))))
+ ;; Check cdr recursion.
+ (let ((x '(a b . [(c . #s(d))])))
+ (should (equal (prn3 x (copy-tree x) (copy-tree x t))
+ (cat3 "(a b . #1=[(c . #s(d))])"
+ "(a b . #1#)"
+ "(a b . [(c . #s(d))])"))))
+ ;; Check that we can copy DAGs (the result is a tree).
+ (let ((x (list '(a b) nil [c d] nil #s(e f) nil)))
+ (setf (nth 1 x) (nth 0 x))
+ (setf (nth 3 x) (nth 2 x))
+ (setf (nth 5 x) (nth 4 x))
+ (should (equal (prn3 x (copy-tree x) (copy-tree x t))
+ (cat3 "(#1=(a b) #1# #2=[c d] #2# #3=#s(e f) #3#)"
+ "((a b) (a b) #2# #2# #3# #3#)"
+ "((a b) (a b) [c d] [c d] #s(e f) #s(e f))")))))))
(provide 'subr-tests)
;;; subr-tests.el ends here
diff --git a/test/lisp/textmodes/reftex-tests.el
b/test/lisp/textmodes/reftex-tests.el
index 5a137ba8a67..6aa12bc3b58 100644
--- a/test/lisp/textmodes/reftex-tests.el
+++ b/test/lisp/textmodes/reftex-tests.el
@@ -294,7 +294,8 @@ And this should be % \\cite{ignored}.
(find-file tex-file)
(setq keys (reftex-all-used-citation-keys))
(should (equal (sort keys #'string<)
- (sort '(;; Standard commands:
+ (sort (list
+ ;; Standard commands:
"cite:2022" "Cite:2022"
"parencite:2022" "Parencite:2022"
"footcite:2022" "footcitetext:2022"
diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el
index 0daf27f32ec..7cf41d2817b 100644
--- a/test/lisp/thingatpt-tests.el
+++ b/test/lisp/thingatpt-tests.el
@@ -72,7 +72,38 @@
("<url:ftp.example.net/abc/>" 1 url "ftp://ftp.example.net/abc/";)
;; UUID, only hex is allowed
("01234567-89ab-cdef-ABCD-EF0123456789" 1 uuid
"01234567-89ab-cdef-ABCD-EF0123456789")
- ("01234567-89ab-cdef-ABCD-EF012345678G" 1 uuid nil))
+ ("01234567-89ab-cdef-ABCD-EF012345678G" 1 uuid nil)
+ ;; email addresses
+ ("foo@example.com" 1 email "foo@example.com")
+ ("f@example.com" 1 email "f@example.com")
+ ("foo@example.com" 4 email "foo@example.com")
+ ("foo@example.com" 5 email "foo@example.com")
+ ("foo@example.com" 15 email "foo@example.com")
+ ("foo@example.com" 16 email "foo@example.com")
+ ("<foo@example.com>" 1 email "<foo@example.com>")
+ ("<foo@example.com>" 4 email "<foo@example.com>")
+ ("<foo@example.com>" 5 email "<foo@example.com>")
+ ("<foo@example.com>" 16 email "<foo@example.com>")
+ ("<foo@example.com>" 17 email "<foo@example.com>")
+ ;; email adresses containing numbers
+ ("foo1@example.com" 1 email "foo1@example.com")
+ ("1foo@example.com" 1 email "1foo@example.com")
+ ("11@example.com" 1 email "11@example.com")
+ ("1@example.com" 1 email "1@example.com")
+ ;; email adresses user portion containing dots
+ ("foo.bar@example.com" 1 email "foo.bar@example.com")
+ (".foobar@example.com" 1 email nil)
+ (".foobar@example.com" 2 email "foobar@example.com")
+ ;; email adresses domain portion containing dots and dashes
+ ("foobar@.example.com" 1 email nil)
+ ("foobar@-example.com" 1 email "foobar@-example.com")
+ ;; These are illegal, but thingatpt doesn't yet handle them
+ ;; ("foo..bar@example.com" 1 email nil)
+ ;; ("foobar@.example.com" 1 email nil)
+ ;; ("foobar@example..com" 1 email nil)
+ ;; ("foobar.@example.com" 1 email nil)
+
+ )
"List of `thing-at-point' tests.
Each list element should have the form
diff --git a/test/lisp/use-package/use-package-tests.el
b/test/lisp/use-package/use-package-tests.el
index 6374a0d1037..9181a8171a7 100644
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -1951,6 +1951,71 @@
(should (eq (nth 1 binding) 'ignore))
(should (eq (nth 2 binding) nil))))
+(ert-deftest use-package-test/:vc-1 ()
+ (match-expansion
+ (use-package foo :vc (:url "bar"))
+ '(progn (use-package-vc-install '(foo (:url "bar") :last-release) nil)
+ (require 'foo nil nil))))
+
+(ert-deftest use-package-test/:vc-2 ()
+ (match-expansion
+ (use-package foo
+ :vc (baz . (:url "baz" :vc-backend "Git"
+ :main-file qux.el :rev "rev-string")))
+ '(progn (use-package-vc-install '(baz
+ (:url "baz" :vc-backend Git :main-file
"qux.el")
+ "rev-string")
+ nil)
+ (require 'foo nil nil))))
+
+(ert-deftest use-package-test/:vc-3 ()
+ (match-expansion
+ (use-package foo :vc (bar . "baz"))
+ '(progn (use-package-vc-install '(bar "baz") nil)
+ (require 'foo nil nil))))
+
+(ert-deftest use-package-test/:vc-4 ()
+ (match-expansion
+ (use-package foo :vc (bar . (:url "baz" :rev :newest)))
+ '(progn (use-package-vc-install '(bar (:url "baz") nil) nil)
+ (require 'foo nil nil))))
+
+(ert-deftest use-package-test/:vc-5 ()
+ (let ((load-path? '(pred (apply-partially
+ #'string=
+ (expand-file-name "bar" user-emacs-directory)))))
+ (match-expansion
+ (use-package foo :vc other-name :load-path "bar")
+ `(progn (eval-and-compile
+ (add-to-list 'load-path ,load-path?))
+ (use-package-vc-install '(other-name) ,load-path?)
+ (require 'foo nil nil)))))
+
+(ert-deftest use-package-test-handler/:vc-6 ()
+ (let ((byte-compile-current-file "use-package-core.el")
+ tried-to-install)
+ (cl-letf (((symbol-function #'use-package-vc-install)
+ (lambda (arg &optional local-path)
+ (setq tried-to-install arg))))
+ (should (equal
+ (use-package-handler/:vc 'foo nil 'some-pkg '(:init (foo)) nil)
+ '(foo)))
+ (should (eq tried-to-install 'some-pkg)))))
+
+(ert-deftest use-package-test-normalize/:vc ()
+ (should (equal '(foo "version-string")
+ (use-package-normalize/:vc 'foo :vc '("version-string"))))
+ (should (equal '(bar "version-string")
+ (use-package-normalize/:vc 'foo :vc '((bar .
"version-string")))))
+ (should (equal '(foo (:url "bar") "baz")
+ (use-package-normalize/:vc 'foo :vc '((:url "bar" :rev
"baz")))))
+ (should (equal '(foo)
+ (use-package-normalize/:vc 'foo :vc '(t))))
+ (should (equal '(foo)
+ (use-package-normalize/:vc 'foo :vc nil)))
+ (should (equal '(bar)
+ (use-package-normalize/:vc 'foo :vc '(bar)))))
+
;; Local Variables:
;; no-byte-compile: t
;; no-update-autoloads: t
diff --git a/test/lisp/vc/vc-cvs-tests.el b/test/lisp/vc/vc-cvs-tests.el
new file mode 100644
index 00000000000..473ac69e24c
--- /dev/null
+++ b/test/lisp/vc/vc-cvs-tests.el
@@ -0,0 +1,107 @@
+;;; vc-cvs-tests.el --- tests for vc/vc-cvs.el -*- lexical-binding:t -*-
+
+;; Copyright (C) 2023 Free Software Foundation, Inc.
+
+;; Author: Olivier Certner <olce.emacs@certner.fr>
+;; Maintainer: emacs-devel@gnu.org
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'vc-cvs)
+
+(ert-deftest vc-cvs-test-parse-root--local-no-method ()
+ (vc-cvs-test--check-parse-root
+ "/home/joe/repo"
+ '("local" nil nil "/home/joe/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--local-windows-drive-letter ()
+ (vc-cvs-test--check-parse-root
+ ":local:c:/users/joe/repo"
+ '("local" nil nil "c:/users/joe/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--ext-no-method-host-no-port-colon ()
+ (vc-cvs-test--check-parse-root
+ "host/home/serv/repo"
+ '("ext" nil "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--pserver-host-no-port-colon ()
+ (vc-cvs-test--check-parse-root
+ ":pserver:host/home/serv/repo"
+ '("pserver" nil "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--pserver-host-port-colon ()
+ (vc-cvs-test--check-parse-root
+ ":pserver:host:/home/serv/repo"
+ '("pserver" nil "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--ext-no-method-user-host-no-port-colon ()
+ (vc-cvs-test--check-parse-root
+ "usr@host/home/serv/repo"
+ '("ext" "usr" "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--ext-no-method-user-host-port-colon ()
+ (vc-cvs-test--check-parse-root
+ "usr@host:/home/serv/repo"
+ '("ext" "usr" "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--pserver-user-password-host-no-port-colon
()
+ (vc-cvs-test--check-parse-root
+ ":pserver:usr:passwd@host/home/serv/repo"
+ '("pserver" "usr" "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--pserver-user-password-host-port-colon ()
+ (vc-cvs-test--check-parse-root
+ ":pserver:usr:passwd@host:/home/serv/repo"
+ '("pserver" "usr" "host" "/home/serv/repo")))
+
+(ert-deftest vc-cvs-test-parse-root--pserver-user-password-host-port ()
+ (vc-cvs-test--check-parse-root
+ ":pserver:usr:passwd@host:28/home/serv/repo"
+ '("pserver" "usr" "host" "/home/serv/repo")))
+
+;; Next 3 tests are just to err on the side of caution. It doesn't
+;; seem that CVS 1.12 can ever produce such lines.
+
+(ert-deftest
+ vc-cvs-test-parse-root--ext-no-method-user-password-host-no-port-colon
+ ()
+ (vc-cvs-test--check-parse-root
+ "usr:passwd@host/home/serv/repo"
+ '("ext" "usr" "host" "/home/serv/repo")))
+
+(ert-deftest
+ vc-cvs-test-parse-root--ext-no-method-user-password-host-port-colon
+ ()
+ (vc-cvs-test--check-parse-root
+ "usr:passwd@host:/home/serv/repo"
+ '("ext" "usr" "host" "/home/serv/repo")))
+
+(ert-deftest
+ vc-cvs-test-parse-root--ext-no-method-user-password-host-port
+ ()
+ (vc-cvs-test--check-parse-root
+ "usr:passwd@host:28/home/serv/repo"
+ '("ext" "usr" "host" "/home/serv/repo")))
+
+
+(defun vc-cvs-test--check-parse-root (input expected-output)
+ (should (equal (vc-cvs-parse-root input) expected-output)))
+
+;;; vc-cvs-tests.el ends here
diff --git a/test/src/comp-resources/comp-test-funcs.el
b/test/src/comp-resources/comp-test-funcs.el
index f0783c1b86a..3c535fb1424 100644
--- a/test/src/comp-resources/comp-test-funcs.el
+++ b/test/src/comp-resources/comp-test-funcs.el
@@ -23,6 +23,8 @@
;;; Code:
+(require 'cl-lib)
+
(defvar comp-tests-var1 3)
(defun comp-tests-varref-f ()
@@ -518,6 +520,25 @@
(defun comp-test-48029-nonascii-žžž-f (arg)
(when arg t))
+(defun comp-test-62537-1-f ())
+
+(defun comp-test-62537-2-f ()
+ (when (let ((val (comp-test-62537-1-f)))
+ (cond
+ ((eq val 'x)
+ t)
+ ((eq val 'y)
+ 'y)))
+ (comp-test-62537-1-f))
+ t)
+
+(cl-defstruct comp-test-struct)
+
+(defun comp-test-63674-1-f (x)
+ (or
+ (if (comp-test-struct-p pkg) x)
+ t))
+
;;;;;;;;;;;;;;;;;;;;
;; Tromey's tests ;;
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index a4942be107f..fe991f91ca7 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -305,7 +305,8 @@ Check that the resulting binaries do not differ."
(lambda () (throw 'foo 3)))
3))
(should (= (catch 'foo
- (comp-tests-throw-f 3)))))
+ (comp-tests-throw-f 3))
+ 3)))
(comp-deftest gc ()
"Try to do some longer computation to let the GC kick in."
@@ -446,7 +447,7 @@
https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html.";
(should (equal comp-test-primitive-advice '(3 4))))
(advice-remove #'+ f))))
-(defvar comp-test-primitive-redefine-args)
+(defvar comp-test-primitive-redefine-args nil)
(comp-deftest primitive-redefine ()
"Test effectiveness of primitive redefinition."
(cl-letf ((comp-test-primitive-redefine-args nil)
@@ -532,6 +533,22 @@
https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html.";
(should (subr-native-elisp-p
(symbol-function 'comp-test-48029-nonascii-žžž-f))))
+(comp-deftest 61917-1 ()
+ "Verify we can compile calls to redefined primitives with
+dedicated byte-op code."
+ (let (x
+ (f (lambda (_fn &rest args)
+ (setq comp-test-primitive-redefine-args args))))
+ (advice-add #'delete-region :around f)
+ (unwind-protect
+ (setf x (native-compile
+ '(lambda ()
+ (delete-region 1 2))))
+ (should (subr-native-elisp-p x))
+ (funcall x)
+ (advice-remove #'delete-region f)
+ (should (equal comp-test-primitive-redefine-args '(1 2))))))
+
;;;;;;;;;;;;;;;;;;;;;
;; Tromey's tests. ;;
@@ -887,6 +904,8 @@ Return a list of results."
ret-type))))
(cl-eval-when (compile eval load)
+ (cl-defstruct comp-foo a b)
+ (cl-defstruct (comp-bar (:include comp-foo)) c)
(defconst comp-tests-type-spec-tests
;; Why we quote everything here, you ask? So that values of
;; `most-positive-fixnum' and `most-negative-fixnum', which can be
@@ -1416,7 +1435,39 @@ Return a list of results."
(if (eq x 0)
(error "")
(1+ x)))
- 'number)))
+ 'number)
+
+ ;; 75
+ ((defun comp-tests-ret-type-spec-f ()
+ (make-comp-foo))
+ 'comp-foo)
+
+ ;; 76
+ ((defun comp-tests-ret-type-spec-f ()
+ (make-comp-bar))
+ 'comp-bar)
+
+ ;; 77
+ ((defun comp-tests-ret-type-spec-f (x)
+ (setf (comp-foo-a x) 2)
+ x)
+ 'comp-foo)
+
+ ;; 78
+ ((defun comp-tests-ret-type-spec-f (x)
+ (if x
+ (if (> x 11)
+ x
+ (make-comp-foo))
+ (make-comp-bar)))
+ '(or comp-foo float (integer 12 *)))
+
+ ;; 79
+ ((defun comp-tests-ret-type-spec-f (x)
+ (if (comp-foo-p x)
+ x
+ (error "")))
+ 'comp-foo)))
(defun comp-tests-define-type-spec-test (number x)
`(comp-deftest ,(intern (format "ret-type-spec-%d" number)) ()
diff --git a/test/src/eval-tests.el b/test/src/eval-tests.el
index 1e7edca3bac..4589763b2f5 100644
--- a/test/src/eval-tests.el
+++ b/test/src/eval-tests.el
@@ -247,4 +247,39 @@ expressions works for identifiers starting with period."
(should (equal (string-trim (buffer-string))
expected-messages))))))))
+(defvar-local eval-test--local-var 'global)
+
+(ert-deftest eval-test--bug62419 ()
+ (with-temp-buffer
+ (setq eval-test--local-var 'first-local)
+ (let ((eval-test--local-var t))
+ (kill-local-variable 'eval-test--local-var)
+ (setq eval-test--local-var 'second-local)
+ (should (eq eval-test--local-var 'second-local)))
+ ;; FIXME: It's not completely clear if exiting the above `let'
+ ;; should restore the buffer-local binding to `first-local'
+ ;; (i.e. reset the value of the second buffer-local binding to the
+ ;; first's initial value) or should do nothing (on the principle that
+ ;; the first buffer-local binding doesn't exists any more so there's
+ ;; nothing to restore). I think both semantics make sense.
+ ;;(should (eq eval-test--local-var 'first-local))
+ )
+ (should (eq eval-test--local-var 'global)))
+
+(ert-deftest eval-tests-defvaralias ()
+ (defvar eval-tests--my-var 'coo)
+ (defvaralias 'eval-tests--my-var1 'eval-tests--my-var)
+ (defvar eval-tests--my-var1)
+ (should (equal eval-tests--my-var 'coo))
+ (should (equal eval-tests--my-var1 'coo))
+
+ (defvaralias 'eval-tests--my-a 'eval-tests--my-b)
+ (defvaralias 'eval-tests--my-b 'eval-tests--my-c)
+
+ (should-error (defvaralias 'eval-tests--my-c 'eval-tests--my-c)
+ :type 'cyclic-variable-indirection)
+ (defvaralias 'eval-tests--my-d 'eval-tests--my-a)
+ (should-error (defvaralias 'eval-tests--my-c 'eval-tests--my-d)
+ :type 'cyclic-variable-indirection))
+
;;; eval-tests.el ends here
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el
index 0321b92d0bc..79ae4393f40 100644
--- a/test/src/fns-tests.el
+++ b/test/src/fns-tests.el
@@ -114,22 +114,24 @@
(should-error (nreverse 1))
(should-error (nreverse (make-char-table 'foo)))
(should (equal (nreverse (copy-sequence "xyzzy")) "yzzyx"))
- (let ((A (vector)))
- (nreverse A)
- (should (equal A [])))
- (let ((A (vector 0)))
- (nreverse A)
- (should (equal A [0])))
- (let ((A (vector 1 2 3 4)))
- (nreverse A)
- (should (equal A [4 3 2 1])))
- (let ((A (vector 1 2 3 4)))
- (nreverse A)
- (nreverse A)
- (should (equal A [1 2 3 4])))
+ (let* ((A (vector))
+ (B (nreverse A)))
+ (should (equal A []))
+ (should (eq B A)))
+ (let* ((A (vector 0))
+ (B (nreverse A)))
+ (should (equal A [0]))
+ (should (eq B A)))
(let* ((A (vector 1 2 3 4))
- (B (nreverse (nreverse A))))
- (should (equal A B))))
+ (B (nreverse A)))
+ (should (equal A [4 3 2 1]))
+ (should (eq B A)))
+ (let* ((A (vector 1 2 3 4))
+ (B (nreverse A))
+ (C (nreverse A)))
+ (should (equal A [1 2 3 4]))
+ (should (eq B A))
+ (should (eq C A))))
(ert-deftest fns-tests-reverse-bool-vector ()
(let ((A (make-bool-vector 10 nil)))
@@ -140,9 +142,10 @@
(ert-deftest fns-tests-nreverse-bool-vector ()
(let ((A (make-bool-vector 10 nil)))
(dotimes (i 5) (aset A i t))
- (nreverse A)
- (should (equal [nil nil nil nil nil t t t t t] (vconcat A)))
- (should (equal [t t t t t nil nil nil nil nil] (vconcat (nreverse A))))))
+ (let ((B (nreverse A)))
+ (should (eq B A))
+ (should (equal [nil nil nil nil nil t t t t t] (vconcat A)))
+ (should (equal [t t t t t nil nil nil nil nil] (vconcat (nreverse
A)))))))
(defconst fns-tests--string-lessp-cases
`(("abc" < "abd")
@@ -254,7 +257,7 @@
(should (string-collate-equalp "xyzzy" "XYZZY" nil t))
;; Locale must be valid.
- (should-error (string-collate-equalp "xyzzy" "xyzzy" "en_DE.UTF-8")))
+ (should-error (string-collate-equalp "xyzzy" "xyzzy" "en_XY.UTF-8")))
;; There must be a check for valid codepoints. (Check not implemented yet)
; (should-error
@@ -1098,7 +1101,7 @@
(ert-deftest test-vector-delete ()
(let ((v1 (make-vector 1000 1)))
- (should (equal (delete t [nil t]) [nil]))
+ (should (equal (delete t (vector nil t)) [nil]))
(should (equal (delete 1 v1) (vector)))
(should (equal (delete 2 v1) v1))))
diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el
index aa710519825..29220c95395 100644
--- a/test/src/keymap-tests.el
+++ b/test/src/keymap-tests.el
@@ -475,6 +475,24 @@ g .. h foo
"a" #'next-line
"a" #'previous-line)))
+(ert-deftest keymap-unset-test-remove-and-inheritance ()
+ "Check various behaviors of keymap-unset. (Bug#62207)"
+ (let ((map (make-sparse-keymap))
+ (parent (make-sparse-keymap)))
+ (set-keymap-parent map parent)
+ ;; Removing an unset key should not add a key.
+ (keymap-set parent "u" #'undo)
+ (keymap-unset map "u" t)
+ (should (equal (keymap-lookup map "u") #'undo))
+ ;; Non-removed child bindings should shadow parent
+ (keymap-set map "u" #'identity)
+ (keymap-unset map "u")
+ ;; From the child, but nil.
+ (should-not (keymap-lookup map "u"))
+ (keymap-unset map "u" t)
+ ;; From the parent this time/
+ (should (equal (keymap-lookup map "u") #'undo))))
+
(provide 'keymap-tests)
;;; keymap-tests.el ends here
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index c0ea37d2c55..eae4893ee1b 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -116,8 +116,27 @@
(should-error (read "#") :type 'invalid-read-syntax))
(ert-deftest lread-char-modifiers ()
- (should (eq ?\C-\M-é (+ (- ?\M-a ?a) ?\C-é)))
- (should (eq (- ?\C-ŗ ?ŗ) (- ?\C-é ?é))))
+ (should (equal ?\C-\M-é (+ (- ?\M-a ?a) ?\C-é)))
+ (should (equal (- ?\C-ŗ ?ŗ) (- ?\C-é ?é)))
+ (should (equal ?\C-\C-c #x4000003))
+ (should (equal ?\C-\M-\C-c #xc000003))
+ (should (equal ?\M-\C-\C-c #xc000003))
+ (should (equal ?\C-\C-\M-c #xc000003))
+ (should (equal ?\M-\S-\H-\A-\C-\s-x #xbc00018))
+
+ (should (equal "\s-x" " -x"))
+ (should (equal "\C-x" "\x18"))
+ (should (equal "\^x" "\x18"))
+ (should (equal "\M-x" "\xf8")))
+
+(ert-deftest lread-many-modifiers ()
+ ;; The string literal "\M-\M-...\M-a" should be equivalent to "\M-a",
+ ;; and we should not run out of stack space parsing it.
+ (let* ((n 500000)
+ (s (concat "\""
+ (apply #'concat (make-list n "\\M-"))
+ "a\"")))
+ (should (equal (read-from-string s) (cons "\M-a" (+ (* n 3) 3))))))
(ert-deftest lread-record-1 ()
(should (equal '(#s(foo) #s(foo))
@@ -341,4 +360,20 @@ literals (Bug#20852)."
(should (byte-code-function-p f))
(should (equal (aref f 4) "My little\ndoc string\nhere"))))))
+(ert-deftest lread-skip-to-eof ()
+ ;; Check the special #@00 syntax that, for compatibility, reads as
+ ;; nil while absorbing the remainder of the input.
+ (with-temp-buffer
+ (insert "#@00 and the rest\n"
+ "should be ignored) entirely\n")
+ (goto-char (point-min))
+ (should (equal (read (current-buffer)) nil))
+ (should (eobp))
+ ;; Add an unbalanced bracket to the beginning and try again;
+ ;; we should get an error.
+ (goto-char (point-min))
+ (insert "( ")
+ (goto-char (point-min))
+ (should-error (read (current-buffer)) :type 'end-of-file)))
+
;;; lread-tests.el ends here
diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el
index 460651def78..f7144c15887 100644
--- a/test/src/sqlite-tests.el
+++ b/test/src/sqlite-tests.el
@@ -197,10 +197,13 @@
(sqlite-load-extension db "/usr/lib/sqlite3/"))
(should-error
(sqlite-load-extension db "/usr/lib/sqlite3"))
- (should
- (memq
- (sqlite-load-extension db "/usr/lib/sqlite3/pcre.so")
- '(nil t)))
+ (if (eq system-type 'windows-nt)
+ (should
+ (eq (sqlite-load-extension db "/usr/lib/sqlite3/pcre.dll")
+ (file-readable-p "/usr/lib/sqlite3/pcre.dll")))
+ (should
+ (eq (sqlite-load-extension db "/usr/lib/sqlite3/pcre.so")
+ (file-readable-p "/usr/lib/sqlite3/pcre.so"))))
(should-error
(sqlite-load-extension
@@ -211,11 +214,13 @@
(should-error
(sqlite-load-extension
db "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable"))
- (should
- (memq
- (sqlite-load-extension
- db "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable.so")
- '(nil t)))))
+ (if (eq system-type 'windows-nt)
+ (should
+ (eq (sqlite-load-extension db "/usr/lib/sqlite3/csvtable.dll")
+ (file-readable-p "/usr/lib/sqlite3/csvtable.dll")))
+ (should
+ (eq (sqlite-load-extension db
"/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable.so")
+ (file-readable-p
"/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable.so"))))))
(ert-deftest sqlite-blob ()
(skip-unless (sqlite-available-p))
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 468cd221ef9..7a8e53924eb 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -54,6 +54,9 @@
(declare-function treesit-node-descendant-for-range "treesit.c")
(declare-function treesit-node-eq "treesit.c")
+(declare-function treesit-search-forward "treesit.c")
+(declare-function treesit-search-subtree "treesit.c")
+
;;; Basic API
(ert-deftest treesit-basic-parsing ()
@@ -66,7 +69,7 @@
(should
(equal (treesit-node-string
(treesit-parser-root-node parser))
- "(ERROR)"))
+ "(document)"))
(insert "[1,2,3]")
(should
@@ -257,6 +260,7 @@
(defmacro treesit--ert-search-setup (&rest body)
"Setup macro used by `treesit-search-forward' and friends.
BODY is the test body."
+ (declare (debug (&rest form)))
`(with-temp-buffer
(let (parser root array)
(progn
@@ -332,6 +336,59 @@ BODY is the test body."
do (should (equal (treesit-node-text cursor)
text)))))
+(ert-deftest treesit-search-forward-predicate ()
+ "Test various form of supported predicates in search functions."
+ (skip-unless (treesit-language-available-p 'json))
+ (treesit--ert-search-setup
+ ;; The following tests are adapted from `treesit-search-forward'.
+
+ ;; Test `or'
+ (cl-loop for cursor = (treesit-node-child array 0)
+ then (treesit-search-forward cursor `(or "number" ,(rx "["))
+ nil t)
+ for text in '("[" "[" "1" "2" "3"
+ "[" "4" "5" "6"
+ "[" "7" "8" "9")
+ while cursor
+ do (should (equal (treesit-node-text cursor) text)))
+ ;; Test `not' and `or'
+ (cl-loop for cursor = (treesit-node-child array 0)
+ then (treesit-search-forward cursor
+ `(not (or "number" ,(rx "[")))
+ nil t)
+ for text in '("[" "," "," "]"
+ "[1,2,3]" ","
+ "," "," "]"
+ "[4,5,6]" ","
+ "," "," "]"
+ "[7,8,9]" "]"
+ "[[1,2,3], [4,5,6], [7,8,9]]")
+ while cursor
+ do (should (equal (treesit-node-text cursor) text)))
+ ;; Test (regexp . function)
+ (let ((is-odd (lambda (node)
+ (let ((string (treesit-node-text node)))
+ (and (eq 1 (length string))
+ (cl-oddp (string-to-number string)))))))
+ (cl-loop for cursor = (treesit-node-child array 0)
+ then (treesit-search-forward cursor `("number" . ,is-odd)
+ nil t)
+ for text in '("[" "1" "3" "5" "7" "9")
+ while cursor
+ do (should (equal (treesit-node-text cursor) text))))))
+
+(ert-deftest treesit-search-forward-predicate-invalid-predicate ()
+ "Test tree-sitter's ability to detect invalid predicates."
+ (skip-unless (treesit-language-available-p 'json))
+ (treesit--ert-search-setup
+ (dolist (pred '( 1 (not 1) (not "2" "3") (or) (or 1) 'a))
+ (should-error (treesit-search-forward (treesit-node-child array 0)
+ pred)
+ :type 'treesit-invalid-predicate))
+ (should-error (treesit-search-forward (treesit-node-child array 0)
+ (lambda (node) (car node)))
+ :type 'wrong-type-argument)))
+
(ert-deftest treesit-cursor-helper-with-missing-node ()
"Test treesit_cursor_helper with a missing node."
(skip-unless (treesit-language-available-p 'json))
@@ -831,7 +888,7 @@ the return value is ((1 3) (1 3))."
(funcall fn)))))
(defun treesit--ert-test-defun-navigation
- (init program master &optional opening closing)
+ (init program master tactic &optional opening closing)
"Run defun navigation tests on PROGRAM and MASTER.
INIT is a setup function that runs right after this function
@@ -843,6 +900,8 @@ starting marker position, and the rest are marker positions
the
corresponding navigation should stop at (after running
`treesit-defun-skipper').
+TACTIC is the same as in `treesit--navigate-thing'.
+
OPENING and CLOSING are the same as in
`treesit--ert-insert-and-parse-marker', by default they are \"[\"
and \"]\"."
@@ -860,8 +919,6 @@ and \"]\"."
collect
(cl-loop for pos in record
collect (alist-get pos marker-alist))))
- (`(,regexp . ,pred) (treesit--thing-unpack-pattern
- treesit-defun-type-regexp))
;; Collect positions each function returns.
(positions
(treesit--ert-collect-positions
@@ -873,7 +930,7 @@ and \"]\"."
(if-let ((pos (funcall
#'treesit--navigate-thing
(point) (car conf) (cdr conf)
- regexp pred)))
+ treesit-defun-type-regexp tactic)))
(save-excursion
(goto-char pos)
(funcall treesit-defun-skipper)
@@ -1025,43 +1082,42 @@ the prev-beg, now point should be at marker 103\",
etc.")
"Test defun navigation."
(skip-unless (treesit-language-available-p 'python))
;; Nested defun navigation
- (let ((treesit-defun-tactic 'nested))
- (require 'python)
- (treesit--ert-test-defun-navigation
- 'python-ts-mode
- treesit--ert-defun-navigation-python-program
- treesit--ert-defun-navigation-nested-master)))
+ (require 'python)
+ (treesit--ert-test-defun-navigation
+ 'python-ts-mode
+ treesit--ert-defun-navigation-python-program
+ treesit--ert-defun-navigation-nested-master
+ 'nested))
(ert-deftest treesit-defun-navigation-nested-2 ()
"Test defun navigation using `js-ts-mode'."
(skip-unless (treesit-language-available-p 'javascript))
;; Nested defun navigation
- (let ((treesit-defun-tactic 'nested))
- (require 'js)
- (treesit--ert-test-defun-navigation
- 'js-ts-mode
- treesit--ert-defun-navigation-js-program
- treesit--ert-defun-navigation-nested-master)))
+ (require 'js)
+ (treesit--ert-test-defun-navigation
+ 'js-ts-mode
+ treesit--ert-defun-navigation-js-program
+ treesit--ert-defun-navigation-nested-master
+ 'nested))
(ert-deftest treesit-defun-navigation-nested-3 ()
"Test defun navigation using `bash-ts-mode'."
(skip-unless (treesit-language-available-p 'bash))
;; Nested defun navigation
- (let ((treesit-defun-tactic 'nested))
- (treesit--ert-test-defun-navigation
- (lambda ()
- (treesit-parser-create 'bash)
- (setq-local treesit-defun-type-regexp "function_definition"))
- treesit--ert-defun-navigation-bash-program
- treesit--ert-defun-navigation-nested-master)))
+ (treesit--ert-test-defun-navigation
+ (lambda ()
+ (treesit-parser-create 'bash)
+ (setq-local treesit-defun-type-regexp "function_definition"))
+ treesit--ert-defun-navigation-bash-program
+ treesit--ert-defun-navigation-nested-master
+ 'nested))
(ert-deftest treesit-defun-navigation-nested-4 ()
"Test defun navigation using Elixir.
This tests bug#60355."
(skip-unless (treesit-language-available-p 'elixir))
;; Nested defun navigation
- (let ((treesit-defun-tactic 'nested)
- (pred (lambda (node)
+ (let ((pred (lambda (node)
(member (treesit-node-text
(treesit-node-child-by-field-name node "target"))
'("def" "defmodule")))))
@@ -1070,18 +1126,19 @@ This tests bug#60355."
(treesit-parser-create 'elixir)
(setq-local treesit-defun-type-regexp `("call" . ,pred)))
treesit--ert-defun-navigation-elixir-program
- treesit--ert-defun-navigation-nested-master)))
+ treesit--ert-defun-navigation-nested-master
+ 'nested)))
(ert-deftest treesit-defun-navigation-top-level ()
"Test top-level only defun navigation."
(skip-unless (treesit-language-available-p 'python))
;; Nested defun navigation
- (let ((treesit-defun-tactic 'top-level))
- (require 'python)
- (treesit--ert-test-defun-navigation
- 'python-ts-mode
- treesit--ert-defun-navigation-python-program
- treesit--ert-defun-navigation-top-level-master)))
+ (require 'python)
+ (treesit--ert-test-defun-navigation
+ 'python-ts-mode
+ treesit--ert-defun-navigation-python-program
+ treesit--ert-defun-navigation-top-level-master
+ 'top-level))
;; TODO
;; - Functions in treesit.el
diff --git a/test/src/xdisp-tests.el b/test/src/xdisp-tests.el
index 52ed79b0f20..dfd38a9d4c1 100644
--- a/test/src/xdisp-tests.el
+++ b/test/src/xdisp-tests.el
@@ -40,7 +40,7 @@
(insert "hello")
(let ((ol (make-overlay (point) (point)))
(max-mini-window-height 1)
- (text
"askdjfhaklsjdfhlkasjdfhklasdhflkasdhflkajsdhflkashdfkljahsdlfkjahsdlfkjhasldkfhalskdjfhalskdfhlaksdhfklasdhflkasdhflkasdhflkajsdhklajsdgh"))
+ (text (copy-sequence
"askdjfhaklsjdfhlkasjdfhklasdhflkasdhflkajsdhflkashdfkljahsdlfkjahsdlfkjhasldkfhalskdjfhalskdfhlaksdhfklasdhflkasdhflkasdhflkajsdhklajsdgh")))
;; (save-excursion (insert text))
;; (sit-for 2)
;; (delete-region (point) (point-max))