Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't use rx 'any' to mean 'not-newline'

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc--unpack-1):
* lisp/pcmpl-rpm.el (pcomplete/dnf):
* test/lisp/emacs-lisp/package-vc-tests.el (log-incoming):
Use 'anychar' instead of 'any', since that's probably what was meant.
This commit is contained in:
Mattias Engdegård 2025-12-12 13:03:45 +01:00
parent 4bf919a0e6
commit 8a58ce0abd
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/package-vc.el
View file

@ -631,7 +631,7 @@ building documentation and marking the package as installed."
(dolist (elc-file (directory-files-recursively
lisp-dir
(rx string-start
(not ".") (zero-or-more any) ".elc"
(not ".") (zero-or-more anychar) ".elc"
string-end)
nil
(lambda (dir)

2
lisp/pcmpl-rpm.el
View file

@ -404,7 +404,7 @@ STATUS should be one of --available or --installed."
(while (pcase subcmd
((guard (pcomplete-match "\\`-" 0))
(if-let* (((pcomplete-match (rx bos "--what" (* (not "=")) "="
(group (* any)) eos)
(group (* anychar)) eos)
0))
(stub (pcomplete-match-string 1 0)))
(pcomplete-here (pcmpl-rpm--dnf-packages "--available") stub)

2
test/lisp/emacs-lisp/package-vc-tests.el
View file

@ -989,7 +989,7 @@ car of ARGS (a symbol) to name of the package."
(substring
(cadr package-vc-tests-repository)
0 7))
(one-or-more any)
(one-or-more anychar)
"Second commit"
line-end)))
(should (bufferp incoming-buffer))