[elpa] externals/pyim b3de11c393: v4.1.1

[ELPA Syncer]

branch: externals/pyim
commit b3de11c39318c821d1febe4946b63ea1ed7b060b
Author: Feng Shu 
Commit: Feng Shu 

v4.1.1
---
 pyim.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pyim.el b/pyim.el
index 5439f8ccbf..8783181aa1 100644
--- a/pyim.el
+++ b/pyim.el
@@ -7,7 +7,7 @@
 ;; Feng Shu 
 ;; Maintainer: Feng Shu 
 ;; URL: https://github.com/tumashu/pyim
-;; Version: 4.1.0
+;; Version: 4.1.1
 ;; Keywords: convenience, Chinese, pinyin, input-method
 ;; Package-Requires: ((emacs "25.1") (async "1.6") (xr "1.13"))
 

[elpa] externals/compat dd436797d1 1/6: Add make-lock-file-name

[ELPA Syncer]

branch: externals/compat
commit dd436797d16eda951c871cac370a5dadf654ce73
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add make-lock-file-name
---
 MANUAL  |  1 +
 compat-28.el| 10 ++
 compat-tests.el | 17 +
 3 files changed, 28 insertions(+)

diff --git a/MANUAL b/MANUAL
index 5c202e9641..f7219f2cb1 100644
--- a/MANUAL
+++ b/MANUAL
@@ -395,6 +395,7 @@ provided by Compat by default:
 - Function: file-modes-number-to-symbolic :: See [[info:elisp#Changing 
Files][(elisp) Changing
   Files]].
 - Function: file-backup-file-names :: See [[info:elisp#Backup Names][(elisp) 
Backup Names]].
+- Function: make-lock-file-name :: Defined in ~files.el~.
 
 These functions are prefixed with ~compat~ prefix, and are only loaded
 when ~compat-28~ is required:
diff --git a/compat-28.el b/compat-28.el
index 2d6a55bf4e..2f8c330355 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -675,6 +675,16 @@ recent files are first."
   (push candidate files
 (sort files #'file-newer-than-file-p)))
 
+(compat-defun make-lock-file-name (filename)
+  "Make a lock file name for FILENAME.
+This prepends \".#\" to the non-directory part of FILENAME, and
+doesn't respect `lock-file-name-transforms', as Emacs 28.1 and
+onwards does."
+  (expand-file-name
+   (concat
+".#" (file-name-nondirectory filename))
+   (file-name-directory filename)))
+
  Defined in minibuffer.el
 
 (compat-defun format-prompt (prompt default &rest format-args)
diff --git a/compat-tests.el b/compat-tests.el
index 6da09815c5..f59e33540b 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1615,5 +1615,22 @@ being compared against."
   (ought "/:a" "/:a")
   (ought (concat "/ssh:" (system-name) ":/:a") "/ssh::a"))
 
+(compat-deftest make-lock-file-name
+  (ought (expand-file-name ".#") "")
+  (ought (expand-file-name ".#a") "a")
+  (ought (expand-file-name ".#foo") "foo")
+  (ought (expand-file-name ".#.") ".")
+  (ought (expand-file-name ".#.#") ".#")
+  (ought (expand-file-name ".#.a") ".a")
+  (ought (expand-file-name ".#.#") ".#")
+  (ought (expand-file-name "a/.#") "a/")
+  (ought (expand-file-name "a/.#b") "a/b")
+  (ought (expand-file-name "a/.#.#") "a/.#")
+  (ought (expand-file-name "a/.#.") "a/.")
+  (ought (expand-file-name "a/.#.b") "a/.b")
+  (ought (expand-file-name "a/.#foo") "a/foo")
+  (ought (expand-file-name "bar/.#b") "bar/b")
+  (ought (expand-file-name "bar/.#foo") "bar/foo"))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here

[elpa] externals/compat updated (c42abd3474 -> 67316e83b2)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  c42abd3474 Explicitly mention that with-connection-local-variables 
is missing
   new  dd436797d1 Add make-lock-file-name
   new  21b6e6fb26 Add null-device
   new  d77a66d79b Remove superfluous quote disabling a test
   new  ef10ac3968 Capitalise overlooked instances of "Compat" in the manual
   new  f388ef2ba6 Add time-equal-p
   new  67316e83b2 Add date-days-in-month


Summary of changes:
 MANUAL  | 12 
 compat-27.el| 33 +
 compat-28.el| 22 ++
 compat-tests.el | 46 +-
 4 files changed, 108 insertions(+), 5 deletions(-)

[elpa] externals/compat 67316e83b2 6/6: Add date-days-in-month

[ELPA Syncer]

branch: externals/compat
commit 67316e83b2164da67807dd9280936aec2815f61b
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add date-days-in-month
---
 MANUAL  |  4 +++-
 compat-27.el| 15 +++
 compat-tests.el |  6 ++
 3 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/MANUAL b/MANUAL
index a2397ba9c7..91cfc3ba53 100644
--- a/MANUAL
+++ b/MANUAL
@@ -303,6 +303,9 @@ provided by Compat by default:
 - Function: decoded-time-zone :: Defined in ~simple.el~.
 - Function: package-get-version :: Defined in ~package.el~.
 - Function: time-equal-p :: See [[info:elisp#Time Calculations][(elisp) Time 
Calculations]].
+- Function: date-days-in-month :: See [[info:elisp#Time Calculations][(elisp) 
Time Calculations]].
+
+  This function requires the ~time-date~ feature to be loaded.
 
 These functions are prefixed with ~compat~ prefix, and are only loaded
 when ~compat-27~ is required:
@@ -338,7 +341,6 @@ implemented in 27.1:
 - Bigint support.
 - The function ~time-convert~.
 - All ~iso8601-*~ functions.
-- The function ~date-days-in-month~.
 - The macro ~benchmark-progn~.
 - The function ~read-char-from-minibuffer~.
 - The minor mode ~reveal-mode~.
diff --git a/compat-27.el b/compat-27.el
index acb7ffdbfa..147db3e9e1 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -584,5 +584,20 @@ The return value is a string (or nil in case we can’t find 
it)."
 (user-error (if (stringp error) error "No files specified"))
   result)))
 
+ Defined in time-date.el
+
+(compat-defun date-days-in-month (year month)
+  "The number of days in MONTH in YEAR."
+  :feature 'time-date
+  (unless (and (numberp month) (<= 1 month 12))
+(error "Month %s is invalid" month))
+  (if (= month 2)
+  (if (date-leap-year-p year)
+  29
+28)
+(if (memq month '(1 3 5 7 8 10 12))
+31
+  30)))
+
 (provide 'compat-27)
 ;;; compat-27.el ends here
diff --git a/compat-tests.el b/compat-tests.el
index 05b75bcb99..12fa1cf94a 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1653,5 +1653,11 @@ being compared against."
   (ought nil '(1 2 3 4) '(2 2 3 4))
   (ought nil '(2 2 3 4) '(1 2 3 4)))
 
+(compat-deftest date-days-in-month
+  (ought 31 2020 1)
+  (ought 30 2020 4)
+  (ought 29 2020 2)
+  (ought 28 2021 2))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here

[elpa] externals/compat d77a66d79b 3/6: Remove superfluous quote disabling a test

[ELPA Syncer]

branch: externals/compat
commit d77a66d79bc51cfd2fd398585c3478183c1c6bf1
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Remove superfluous quote disabling a test
---
 compat-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compat-tests.el b/compat-tests.el
index f59e33540b..777c7bb161 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -625,7 +625,7 @@ being compared against."
 (should (equal (compat-alist-get "one" alist-2 nil nil #'string=)
"eins"
 
-(compat-deftest string-trim-left'
+(compat-deftest string-trim-left
   (ought "" "")  ;empty string
   (ought "a" "a");"full" string
   (ought "aaa" "aaa")

[elpa] externals/compat ef10ac3968 4/6: Capitalise overlooked instances of "Compat" in the manual

[ELPA Syncer]

branch: externals/compat
commit ef10ac396829a3408fd9b8f22bbacdf9e82d8256
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Capitalise overlooked instances of "Compat" in the manual
---
 MANUAL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/MANUAL b/MANUAL
index 2e6f6f8f84..328bd08562 100644
--- a/MANUAL
+++ b/MANUAL
@@ -12,7 +12,7 @@
 #+macro: version 28.1.0.0
 #+link: debbugs https://debbugs.gnu.org/cgi/bugreport.cgi?bug=
 
-This manual documents the usage of the "compat" Emacs lisp library,
+This manual documents the usage of the "Compat" Emacs lisp library,
 the forward-compatibility library for Emacs Lisp, corresponding to
 version {{{version}}}.
 
@@ -20,7 +20,7 @@ version {{{version}}}.
 
 * Introduction
 ** Overview
-The objective of compat is to provide "forwards compatibility"
+The objective of Compat is to provide "forwards compatibility"
 library for Emacs Lisp.  That is to say by using Compat, an Elisp
 package does not have to make the decision to either use new and
 useful functionality or support old versions of Emacs.

[elpa] externals/compat f388ef2ba6 5/6: Add time-equal-p

[ELPA Syncer]

branch: externals/compat
commit f388ef2ba65fcd776c4051e291f8907603f6d11d
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add time-equal-p
---
 MANUAL  |  2 +-
 compat-27.el| 18 ++
 compat-tests.el | 21 +
 3 files changed, 40 insertions(+), 1 deletion(-)

diff --git a/MANUAL b/MANUAL
index 328bd08562..a2397ba9c7 100644
--- a/MANUAL
+++ b/MANUAL
@@ -302,6 +302,7 @@ provided by Compat by default:
 - Function: decoded-time-dst :: Defined in ~simple.el~.
 - Function: decoded-time-zone :: Defined in ~simple.el~.
 - Function: package-get-version :: Defined in ~package.el~.
+- Function: time-equal-p :: See [[info:elisp#Time Calculations][(elisp) Time 
Calculations]].
 
 These functions are prefixed with ~compat~ prefix, and are only loaded
 when ~compat-27~ is required:
@@ -337,7 +338,6 @@ implemented in 27.1:
 - Bigint support.
 - The function ~time-convert~.
 - All ~iso8601-*~ functions.
-- The function ~time-equal-p~.
 - The function ~date-days-in-month~.
 - The macro ~benchmark-progn~.
 - The function ~read-char-from-minibuffer~.
diff --git a/compat-27.el b/compat-27.el
index 42f39a3ebe..acb7ffdbfa 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -265,6 +265,24 @@ represent a JSON false value.  It defaults to `:false'."
 (json-read))
 (json-error (signal 'json-parse-buffer err
 
+ Defined in timefns.c
+
+(compat-defun time-equal-p (t1 t2)
+  "Return non-nil if time value T1 is equal to time value T2.
+A nil value for either argument stands for the current time."
+  :note "This function is not as accurate as the actual `time-equal-p'."
+  (cond
+   ((eq t1 t2))
+   ((and (consp t1) (consp t2))
+(equal t1 t2))
+   ((let ((now (current-time)))
+  ;; Due to inaccuracies and the relatively slow evaluating of
+  ;; Emacs Lisp compared to C, we allow for slight inaccuracies
+  ;; (less than a millisecond) when comparing time values.
+  (< (abs (- (float-time (or t1 now))
+ (float-time (or t2 now
+ 1e-5)
+
  Defined in subr.el
 
 (compat-defmacro setq-local (&rest pairs)
diff --git a/compat-tests.el b/compat-tests.el
index 777c7bb161..05b75bcb99 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1632,5 +1632,26 @@ being compared against."
   (ought (expand-file-name "bar/.#b") "bar/b")
   (ought (expand-file-name "bar/.#foo") "bar/foo"))
 
+(compat-deftest time-equal-p
+  (ought t nil nil)
+  (ought t (current-time) nil)
+  (ought t nil (current-time))
+  ;; While `sleep-for' returns nil, indicating the current time, this
+  ;; behaviour seems to be undefined.  Relying on it is therefore not
+  ;; advised.
+  (ought nil (current-time) (ignore (sleep-for 0.01)))
+  (ought nil (current-time) (progn
+  (sleep-for 0.01)
+  (current-time)))
+  (ought t '(1 2 3 4) '(1 2 3 4))
+  (ought nil '(1 2 3 4) '(1 2 3 5))
+  (ought nil '(1 2 3 5) '(1 2 3 4))
+  (ought nil '(1 2 3 4) '(1 2 4 4))
+  (ought nil '(1 2 4 4) '(1 2 3 4))
+  (ought nil '(1 2 3 4) '(1 3 3 4))
+  (ought nil '(1 3 3 4) '(1 2 3 4))
+  (ought nil '(1 2 3 4) '(2 2 3 4))
+  (ought nil '(2 2 3 4) '(1 2 3 4)))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here

[elpa] externals/compat 21b6e6fb26 2/6: Add null-device

[ELPA Syncer]

branch: externals/compat
commit 21b6e6fb26d18e948a1a113a87313db2b465699d
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add null-device

The implementation is based on tramp-compat.
---
 MANUAL   |  1 +
 compat-28.el | 12 
 2 files changed, 13 insertions(+)

diff --git a/MANUAL b/MANUAL
index f7219f2cb1..2e6f6f8f84 100644
--- a/MANUAL
+++ b/MANUAL
@@ -396,6 +396,7 @@ provided by Compat by default:
   Files]].
 - Function: file-backup-file-names :: See [[info:elisp#Backup Names][(elisp) 
Backup Names]].
 - Function: make-lock-file-name :: Defined in ~files.el~.
+- Function: null-device :: Defined in ~files.el~.
 
 These functions are prefixed with ~compat~ prefix, and are only loaded
 when ~compat-28~ is required:
diff --git a/compat-28.el b/compat-28.el
index 2f8c330355..f6f78b955a 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -685,6 +685,18 @@ onwards does."
 ".#" (file-name-nondirectory filename))
(file-name-directory filename)))
 
+ Defined in files-x.el
+
+(declare-function tramp-tramp-file-p "tramp" (name))
+
+;;* UNTESTED
+(compat-defun null-device ()
+  "Return the best guess for the null device."
+  (require 'tramp)
+  (if (tramp-tramp-file-p default-directory)
+  "/dev/null"
+null-device))
+
  Defined in minibuffer.el
 
 (compat-defun format-prompt (prompt default &rest format-args)

[elpa] externals/mct 03e55f2f3b: Note that MCT development is discontinued

[ELPA Syncer]

branch: externals/mct
commit 03e55f2f3be8417c64b8f51adf778079db96cbad
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Note that MCT development is discontinued

Read: .
---
 README.org | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/README.org b/README.org
index 2985710dbe..02904a22d0 100644
--- a/README.org
+++ b/README.org
@@ -25,6 +25,9 @@
 
 #+texinfo: @insertcopying
 
+UPDATE 2022-04-14: Development of this package has been discontinued:
+.
+
 This manual, written by Protesilaos Stavrou, describes the customization
 options for =mct= (or =mct.el= and variants), and provides every other piece
 of information pertinent to it.

[nongnu] elpa/evil-nerd-commenter 95ed1ad244: fixed warnings from native compiler

[ELPA Syncer]

branch: elpa/evil-nerd-commenter
commit 95ed1ad2448e7f49f1ee417061b61edbb69a0749
Author: Chen Bin 
Commit: Chen Bin 

fixed warnings from native compiler
---
 evil-nerd-commenter.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index 4e1193ae9f..4a300c5a01 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -579,14 +579,14 @@ Paragraphs are separated by empty lines."
num))
 
 ;;;###autoload
-(defun evilnc-comment-or-uncomment-to-the-line (&optional LINENUM)
-  "Comment or uncomment from current line to LINENUM line."
+(defun evilnc-comment-or-uncomment-to-the-line (&optional line-num)
+  "Comment or uncomment from current line to LINE-NUM line."
   (interactive "nLine: ")
   (if (not (region-active-p))
   (let* ((b (line-beginning-position))
  (e (line-end-position)))
 (save-excursion
-  (evilnc--goto-line LINENUM)
+  (evilnc--goto-line line-num)
   (if (< (line-beginning-position) b)
   (setq b (line-beginning-position)))
   (if (> (line-end-position) e)
@@ -676,7 +676,7 @@ CORRECT comment syntax will be used for 
C++/Java/Javascript."
(evilnc-comment-or-uncomment-region b e))
  num))
 
-  (goto-line (car orig-pos))
+  (evilnc--goto-line (car orig-pos))
   ;; make sure we stay on original line
   (goto-char (min (+ (line-beginning-position) (cdr orig-pos))
  (1- (line-end-position

[nongnu] elpa/evil-matchit b314e816ba: improved yaml indent algorithm

[ELPA Syncer]

branch: elpa/evil-matchit
commit b314e816bacfc01bb7df9b19a06b18638af5cdbe
Author: Chen Bin 
Commit: Chen Bin 

improved yaml indent algorithm
---
 Makefile|  9 ++---
 evil-matchit-indent.el  | 88 +++--
 evil-matchit-yaml.el|  5 ++-
 evil-matchit.el | 33 +++--
 pkg.sh  |  2 +-
 tests/evil-matchit-tests.el | 21 +++
 tests/hello.yml |  6 
 7 files changed, 103 insertions(+), 61 deletions(-)

diff --git a/Makefile b/Makefile
index 55fa2760cc..83a03c168f 100644
--- a/Makefile
+++ b/Makefile
@@ -11,11 +11,12 @@ clean:
 deps:
@mkdir -p deps;
@if [ ! -f deps/evil-1.14.0/evil.el ]; then curl -L 
https://stable.melpa.org/packages/evil-1.14.0.tar | tar x -C deps/; fi;
-   @if [ ! -f deps/lua-mode.el ]; then curl -L 
https://raw.githubusercontent.com/immerrr/lua-mode/master/lua-mode.el > 
deps/lua-mode.el; fi;
-   @if [ ! -f deps/markdown-mode.el ]; then curl -L 
https://raw.githubusercontent.com/jrblevin/markdown-mode/master/markdown-mode.el
 > deps/markdown-mode.el; fi;
-   @if [ ! -f deps/tuareg-2.2.0/tuareg.el ]; then curl -L 
https://stable.melpa.org/packages/tuareg-2.2.0.tar | tar x -C deps/; fi
+   @if [ ! -f deps/lua-mode.el ]; then curl -L 
https://stable.melpa.org/packages/lua-mode-20210802.el > deps/lua-mode.el; fi;
+   @if [ ! -f deps/markdown-mode.el ]; then curl -L 
https://stable.melpa.org/packages/markdown-mode-2.5.el > deps/markdown-mode.el; 
fi;
+   @if [ ! -f deps/tuareg-2.2.0/tuareg.el ]; then curl -L 
https://stable.melpa.org/packages/tuareg-2.2.0.tar | tar x -C deps/; fi;
+   @if [ ! -f deps/yaml-mode.el ]; then curl -L 
https://stable.melpa.org/packages/yaml-mode-0.0.15.el > deps/yaml-mode.el; fi;
 
 
 .PHONY: test
 test: deps clean
-   @$(EMACS) -batch -Q -L . -L deps/evil-1.14.0 -l deps/lua-mode.el -l 
deps/markdown-mode.el -L deps/tuareg-2.2.0 -l evil-matchit.el -l 
tests/evil-matchit-tests.el
+   @$(EMACS) -batch -Q -L . -L deps/evil-1.14.0 -l deps/yaml-mode.el -l 
deps/lua-mode.el -l deps/markdown-mode.el -L deps/tuareg-2.2.0 -l 
evil-matchit.el -l tests/evil-matchit-tests.el
diff --git a/evil-matchit-indent.el b/evil-matchit-indent.el
index af7d8df75f..e08eb4f612 100644
--- a/evil-matchit-indent.el
+++ b/evil-matchit-indent.el
@@ -113,44 +113,55 @@ SPACES-PER-TAB defines the number of spaces of one tab 
character."
   (setq rlt (list (line-end-position) 1 "")))
 
  (t
+  (message "next-line=%s" next-line)
+  (message "(evilmi-indent-tab-count next-line)=%s" 
(evilmi-indent-tab-count next-line))
+  (message "(evilmi-indent-tab-count cur-line)=%s" 
(evilmi-indent-tab-count cur-line))
   (setq rlt nil)))
 
 rlt))
 
+;;;###autoload
+(defun evilmi-indent-extract-keyword (line)
+  "Extract keyword from LINE."
+  (let* (keyword)
+(when (string-match evilmi-indent-open-tag-regexp line)
+  (setq keyword (match-string 1 line)))
+keyword))
+
 (defun evilmi-indent-back-to-first-tag (cur-indent)
- "Jump to the open tag based on CUR-INDENT.
+  "Jump to the open tag based on CUR-INDENT.
 For example, jump from the tag \"finally\" to \"try\"."
- (let (out-of-loop
-   where-to-go
-   (cur-line (evilmi-sdk-curline))
-   (keyword (evilmi-indent-extract-keyword cur-line))
-   regexp)
-
-   (setq regexp
- (and evilmi-indent-first-tag-function
-  (funcall evilmi-indent-first-tag-function keyword)))
-
-   (when evilmi-debug
- (message "evilmi-indent-back-to-first-tag called. keyword=%s regexp=%s 
cur-line=%s"
-  keyword regexp cur-line))
-
-   (when regexp
- (save-excursion
-   (while (not out-of-loop)
- (forward-line -1)
- (setq cur-line (evilmi-sdk-curline))
-
- (when (and (= cur-indent (evilmi-indent-tab-count cur-line))
-(string-match regexp cur-line))
-   (setq where-to-go (line-beginning-position))
-   (setq out-of-loop t))
-
- ;; if it's first line, we need get out of loop
- (if (= (point-min) (line-beginning-position))
- (setq out-of-loop t
- (when where-to-go
-   (goto-char where-to-go)
-   (skip-chars-forward " \t")
+  (let* (out-of-loop
+ where-to-go
+ (cur-line (evilmi-sdk-curline))
+ (keyword (evilmi-indent-extract-keyword cur-line))
+ regexp)
+
+(setq regexp
+  (and evilmi-indent-first-tag-function
+   (funcall evilmi-indent-first-tag-function keyword)))
+
+(when evilmi-debug
+  (message "evilmi-indent-back-to-first-tag called. keyword=%s regexp=%s 
cur-line=%s"
+   keyword regexp cur-line))
+
+(when regexp
+  (save-excursion
+(while (not out-of-loop)
+  (forward-line -1)
+  (setq cur-line (evilmi-sdk-curline))
+
+  (when (and (= cur-indent (evilmi-indent-tab-count cur-line))
+   

[elpa] externals/consult 27d8c1d30a: Fix consult-imenu group-function

[ELPA Syncer]

branch: externals/consult
commit 27d8c1d30a55844cbd8f0f0ad250658412e6d613
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix consult-imenu group-function
---
 consult-imenu.el | 10 ++
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/consult-imenu.el b/consult-imenu.el
index d051774d04..e7878c4b0f 100644
--- a/consult-imenu.el
+++ b/consult-imenu.el
@@ -183,10 +183,12 @@ this function can jump across buffers."
   :group
   (when narrow
 (lambda (cand transform)
-  (when-let (type (get-text-property 0 'consult--type cand))
-(if transform
-(substring cand (1+ (next-single-property-change 0 
'consult--type cand)))
-  (alist-get type narrow)
+  (let ((type (get-text-property 0 'consult--type cand)))
+(cond
+ ((and transform type)
+  (substring cand (1+ (next-single-property-change 0 
'consult--type cand
+ (transform cand)
+ (type (alist-get type narrow))
   :narrow
   (when narrow
 (list :predicate

[elpa] externals/compat c4f10d9326 1/2: Use compat-assoc in compat-alist-get gv-expander

[ELPA Syncer]

branch: externals/compat
commit c4f10d932684f234b5516aa9132bca0c924e
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Use compat-assoc in compat-alist-get gv-expander

Thanks to Jonas Bernoulli for catching this mistake.
---
 compat-26.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compat-26.el b/compat-26.el
index 739a9683ae..92339a97ff 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -158,7 +158,7 @@ from the absolute start of the buffer, disregarding the 
narrowing."
 (macroexp-let2 macroexp-copyable-p k key
   (gv-letplace (getter setter) alist
 (macroexp-let2 nil p `(if (and ,testfn (not (eq ,testfn 'eq)))
-  (assoc ,k ,getter ,testfn)
+  (compat-assoc ,k ,getter ,testfn)
 (assq ,k ,getter))
   (funcall do (if (null default) `(cdr ,p)
 `(if ,p (cdr ,p) ,default))

[elpa] externals/compat d9643bb45d 2/2: Revert 81358f53 (completion-pcm--all-completions)

[ELPA Syncer]

branch: externals/compat
commit d9643bb45d7a6104d61b5eb5410852ce3de83947
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Revert 81358f53 (completion-pcm--all-completions)

Details on the background are explained by Jonas in

https://lists.sr.ht/~pkal/compat-devel/%3C87mtgr4rjs.fsf%40bernoul.li%3E#%3c87lew7251e@bernoul.li%3E.
---
 MANUAL   | 4 
 compat-25.el | 7 ---
 2 files changed, 11 deletions(-)

diff --git a/MANUAL b/MANUAL
index 91cfc3ba53..51b08fe145 100644
--- a/MANUAL
+++ b/MANUAL
@@ -190,10 +190,6 @@ when ~compat-25~ is required:
 - Function: compat-sort :: See [[info:elisp#Sequence Functions][(elisp) 
Sequence Functions]].
 
   Adds support for vectors to be sorted, next to just lists.
-- Function: completion-pcm--all-completions :: Defined in
-  ~minibuffer.el~.
-
-  Reverse the resulting completion list, as fixed by [[debbugs:24676]].
 
 Compat does not provide support for the following Lisp features
 implemented in 25.1:
diff --git a/compat-25.el b/compat-25.el
index 60e547db46..b236622714 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -339,12 +339,5 @@ recursion."
 (push (concat dir "/" file) files)
 (nconc result (nreverse files
 
- Defined in minibuffer.el
-;;* UNTESTED
-(compat-defun completion-pcm--all-completions (prefix pattern table pred)
-  "Reverse the resulting list as fixed by bug#24676.
-All arguments are passed on to the original function."
-  :prefix t
-  (nreverse (completion-pcm--all-completions prefix pattern table pred)))
 (provide 'compat-25)
 ;;; compat-25.el ends here

[elpa] externals/compat updated (67316e83b2 -> d9643bb45d)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  67316e83b2 Add date-days-in-month
   new  c4f10d9326 Use compat-assoc in compat-alist-get gv-expander
   new  d9643bb45d Revert 81358f53 (completion-pcm--all-completions)


Summary of changes:
 MANUAL   | 4 
 compat-25.el | 7 ---
 compat-26.el | 2 +-
 3 files changed, 1 insertion(+), 12 deletions(-)

[elpa] externals/embark-consult updated (ab778510d5 -> c4889163c8)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark-consult.

  from  ab778510d5 Document new revert behavior for export & collect buffers
  adds  c4889163c8 Replace cl-constantly with definition (fix #487)

No new revisions were added by this update.

Summary of changes:
 embark.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

[elpa] externals/embark c4889163c8: Replace cl-constantly with definition (fix #487)

[ELPA Syncer]

branch: externals/embark
commit c4889163c8aa4f96af520cefa81d60f7f0048626
Author: Omar Antolín 
Commit: Omar Antolín 

Replace cl-constantly with definition (fix #487)

The definition is shorter than the name!
---
 embark.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index b7d8e72abb..7bf7bf5c31 100644
--- a/embark.el
+++ b/embark.el
@@ -2723,7 +2723,7 @@ For non-minibuffers, assume candidates are of given TYPE."
   (or (embark-collect--metadatum type 'affixation-function)
   (let ((annotator
  (or (embark-collect--metadatum type 'annotation-function)
- (cl-constantly ""
+ (lambda (_) ""
 (lambda (candidates)
   (mapcar (lambda (c)
 (if-let (a (funcall annotator c)) (list c "" a) c))

[elpa] externals/javaimp 5294630f6c: Fix show scopes

[Filipp Gunbin]

branch: externals/javaimp
commit 5294630f6c456d8a4e87a708bf4dccf6a21e
Author: Filipp Gunbin 
Commit: Filipp Gunbin 

Fix show scopes
---
 javaimp.el | 75 --
 1 file changed, 39 insertions(+), 36 deletions(-)

diff --git a/javaimp.el b/javaimp.el
index fe2d7d9510..b71bafb7fd 100644
--- a/javaimp.el
+++ b/javaimp.el
@@ -771,48 +771,50 @@ in a major mode hook."
 
 ;; Show scopes
 
-(put 'javaimp-show-scopes-mode 'mode-class 'special)
-(define-derived-mode javaimp-show-scopes-mode special-mode "Javaimp Show 
Scopes"
-  (setq next-error-function #'javaimp-show-scopes-next-error))
-
 (defvar javaimp-show-scopes-mode-map
   (let ((map (make-sparse-keymap)))
 (set-keymap-parent map text-mode-map)
 (define-key map "\C-m" #'javaimp-show-scopes-goto-scope)
-(define-key map [mouse-2] #'javaimp-show-scopes-goto-scope-mouse)
+(define-key map [mouse-2] #'javaimp-show-scopes-goto-scope)
 (define-key map "n" #'next-error-no-select)
 (define-key map "p" #'previous-error-no-select)
 (define-key map "l" #'recenter-current-error)
 map)
   "Javaimp Show Scopes keymap.")
 
-(defun javaimp-show-scopes-goto-scope (pos)
-  "Go to scope at point in another window."
-  (interactive "d")
-  (javaimp-show-scopes--goto-scope-1 pos current-prefix-arg))
-
 ;; TODO handle mouse-1
-(defun javaimp-show-scopes-goto-scope-mouse (event)
-  "Go to scope you click on in another window."
-  (interactive "e")
-  (let ((window (posn-window (event-end event)))
-(pos (posn-point (event-end event
-(with-current-buffer (window-buffer window)
-  (javaimp-show-scopes--goto-scope-1 pos current-prefix-arg
-
-(defun javaimp-show-scopes--goto-scope-1 (pos &optional to-start)
-  "Go to the opening brace (`javaimp-scope-open-brace') of the
-scope at POS.  When TO-START is non-nil, go to scope
-start (`javaimp-scope-start') instead."
-  (when-let ((scope (get-text-property pos 'javaimp-show-scopes-scope))
- (file (get-text-property (point-min) 'javaimp-show-scopes-file))
- (buf (find-file-noselect file)))
-(with-current-buffer buf
-  (goto-char (if to-start
- (javaimp-scope-start scope)
-   (javaimp-scope-open-brace scope
-(pop-to-buffer buf)))
+(defun javaimp-show-scopes-goto-scope (event &optional to-start)
+  "Go to the opening brace (`javaimp-scope-open-brace') of the scope.
+Target scope is determined by location of mouse EVENT, if it's
+non-nil.  Else, take the scope at current line.  When TO-START is
+non-nil, go to scope start (`javaimp-scope-start') instead of the
+opening brace."
+  (interactive (list last-nonmenu-event current-prefix-arg))
+  (let ((buf (current-buffer))
+(scopes-buf-pos
+ (if event
+ (cons (window-buffer (posn-window (event-end event)))
+   (posn-point (event-end event)))
+   (cons (current-buffer)
+ (point
+source-file scope)
+(with-current-buffer (car scopes-buf-pos)
+  (setq source-file
+(get-text-property (point-min) 'javaimp-show-scopes-file)
+scope
+(get-text-property (cdr scopes-buf-pos) 
'javaimp-show-scopes-scope)))
+(unless (and source-file scope)
+  (user-error "No target scope"))
+(pop-to-buffer (find-file-noselect source-file))
+(goto-char (if to-start
+   (javaimp-scope-start scope)
+ (javaimp-scope-open-brace scope)))
+(next-error-found buf (current-buffer
+
 
+(put 'javaimp-show-scopes-mode 'mode-class 'special)
+(define-derived-mode javaimp-show-scopes-mode special-mode "Javaimp Show 
Scopes"
+  (setq next-error-function #'javaimp-show-scopes-next-error))
 
 (defun javaimp-show-scopes (&optional show-all)
   "Show scopes in *javaimp-scopes* buffer, with clickable text.
@@ -847,18 +849,19 @@ with prefix arg, show all scopes."
 (while (setq tmp (javaimp-scope-parent tmp))
   (setq depth (1+ depth)))
 (insert (propertize
- (format "%5d %2d %s: %s%s\n"
+ (format "%5d %2d %s: %s%s"
  (with-current-buffer source-buf
(line-number-at-pos (javaimp-scope-start 
scope)))
  depth
  (cdr (assq (javaimp-scope-type scope)
 
javaimp--show-scopes-scope-type-abbrevs))
- (make-string depth ? )
+ (make-string (* 2 depth) ? )
  (javaimp-scope-name scope))
  'mouse-face 'highlight
  'help-echo "mouse-2: go to this scope"
  'javaimp-show-scopes-scope scope
- 'follow-link t
+ 'follow-link t)
+?\n)))
 (insert (format "\nTotal: %

[elpa] externals/corfu e4c56b2482: corfu-quick: Reset echo message

[ELPA Syncer]

branch: externals/corfu
commit e4c56b2482b2321a06f71951c85933f8702c907d
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-quick: Reset echo message
---
 extensions/corfu-quick.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index 60c5112efd..bd16be3254 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -125,6 +125,8 @@ TWO is non-nil if two keys should be displayed."
 (defun corfu-quick-jump ()
   "Jump to candidate using quick keys."
   (interactive)
+  (setq corfu--echo-message "")
+  (corfu--echo-refresh)
   (if (= corfu--total 0)
   (and (message "No match") nil)
 (let ((idx (corfu-quick--read)))

[elpa] externals/javaimp updated (5294630f6c -> c3d0bfa8d8)

[Filipp Gunbin]

fgunbin pushed a change to branch externals/javaimp.

  from  5294630f6c Fix show scopes
   new  4036f52695 javaimp-parse.el: Remove save-excursion from parsers
   new  c3d0bfa8d8 Minor fixes


Summary of changes:
 javaimp-parse.el | 208 +++
 javaimp.el   |   8 +--
 2 files changed, 108 insertions(+), 108 deletions(-)

[elpa] externals/javaimp 4036f52695 1/2: javaimp-parse.el: Remove save-excursion from parsers

[Filipp Gunbin]

branch: externals/javaimp
commit 4036f526952307d71c9eac18ae4f9414cf62ff92
Author: Filipp Gunbin 
Commit: Filipp Gunbin 

javaimp-parse.el: Remove save-excursion from parsers
---
 javaimp-parse.el | 208 +++
 1 file changed, 104 insertions(+), 104 deletions(-)

diff --git a/javaimp-parse.el b/javaimp-parse.el
index a779c68a39..65a31cb422 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -210,68 +210,70 @@ is unchanged."
 ;;; Scopes
 
 (defvar javaimp--parse-scope-hook
-  '(javaimp--parse-scope-array
-;; anonymous-class should be before method/stmt because it looks
-;; similar, but with "new" in front
-javaimp--parse-scope-anonymous-class
-javaimp--parse-scope-class
-javaimp--parse-scope-simple-stmt
-javaimp--parse-scope-method-or-stmt
-)
-  "List of parser functions, each of which is called with BRACE-POS,
-the position of opening brace.")
+  (mapcar (lambda (parser)
+(lambda (arg)
+  (save-excursion
+(funcall parser arg
+  '(javaimp--parse-scope-array
+;; anonymous-class should be before method/stmt because it
+;; looks similar, but with "new" in front
+javaimp--parse-scope-anonymous-class
+javaimp--parse-scope-class
+javaimp--parse-scope-simple-stmt
+javaimp--parse-scope-method-or-stmt
+))
+  "List of parser functions, each of which is called in
+`save-excursion' and with one argument, the position of opening
+brace.")
 
 (defun javaimp--parse-scope-class (brace-pos)
   "Attempts to parse 'class' / 'interface' / 'enum' scope."
-  (save-excursion
-(when (javaimp--parse-preceding
-   (regexp-opt javaimp--parse-classlike-keywords 'symbols)
-   brace-pos
-   ;; closest preceding closing paren is a good bound
-   ;; because there _will be_ such char in frequent case
-   ;; of method/stmt
-   (save-excursion
- (when (javaimp--parse-rsb-keyword ")" nil t 1)
-   (1+ (point)
-  (let* ((keyword-start (match-beginning 1))
- (keyword-end (match-end 1))
- arglist)
-(goto-char brace-pos)
-(or (javaimp--parse-decl-suffix "\\_" brace-pos 
keyword-end)
-(javaimp--parse-decl-suffix "\\_" brace-pos 
keyword-end)
-(javaimp--parse-decl-suffix "\\_" brace-pos 
keyword-end))
-;; we either skipped back over the valid declaration
-;; suffix(-es), or there wasn't any
-(setq arglist (javaimp--parse-arglist keyword-end (point) t))
-(when (= (length arglist) 1)
-  (make-javaimp-scope :type (intern
- (buffer-substring-no-properties
-  keyword-start keyword-end))
-  :name (javaimp--parse-substr-before-< (caar 
arglist))
-  :start keyword-start
-  :open-brace brace-pos))
+  (when (javaimp--parse-preceding
+ (regexp-opt javaimp--parse-classlike-keywords 'symbols)
+ brace-pos
+ ;; closest preceding closing paren is a good bound
+ ;; because there _will be_ such char in frequent case
+ ;; of method/stmt
+ (save-excursion
+   (when (javaimp--parse-rsb-keyword ")" nil t 1)
+ (1+ (point)
+(let* ((keyword-start (match-beginning 1))
+   (keyword-end (match-end 1))
+   arglist)
+  (goto-char brace-pos)
+  (or (javaimp--parse-decl-suffix "\\_" brace-pos keyword-end)
+  (javaimp--parse-decl-suffix "\\_" brace-pos 
keyword-end)
+  (javaimp--parse-decl-suffix "\\_" brace-pos keyword-end))
+  ;; we either skipped back over the valid declaration
+  ;; suffix(-es), or there wasn't any
+  (setq arglist (javaimp--parse-arglist keyword-end (point) t))
+  (when (= (length arglist) 1)
+(make-javaimp-scope :type (intern
+   (buffer-substring-no-properties
+keyword-start keyword-end))
+:name (javaimp--parse-substr-before-< (caar 
arglist))
+:start keyword-start
+:open-brace brace-pos)
 
 (defun javaimp--parse-scope-simple-stmt (brace-pos)
   "Attempts to parse 'simple-statement' scope."
-  (save-excursion
-(and (javaimp--parse-skip-back-until)
- (or (and (= (char-before (1- (point))) ?-) ; ->
-  (= (char-before) ?>))
- (looking-back (regexp-opt javaimp--parse-stmt-keywords 'words)
-   (- (point) javaimp--parse-stmt-keyword-maxlen) nil))
- (make-javaimp-scope
-  :type 'simple-statement
-  :name (or (match-string 1)
-"lambda")
-  :start (or (match-beginning 1)
- (- (point) 2)

[elpa] externals/javaimp c3d0bfa8d8 2/2: Minor fixes

[Filipp Gunbin]

branch: externals/javaimp
commit c3d0bfa8d8bebc15eba622302bf38d236e5fe103
Author: Filipp Gunbin 
Commit: Filipp Gunbin 

Minor fixes
---
 javaimp.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/javaimp.el b/javaimp.el
index b71bafb7fd..43b9cbd38b 100644
--- a/javaimp.el
+++ b/javaimp.el
@@ -695,8 +695,8 @@ in a major mode hook."
  ;; sub-alist
  (cons t (javaimp-scope-name scope
  (lambda (res)
-   (or (functionp (nth 2 res)) ;entry
-   (cdr res))) ;non-empty sub-alist
+   (or (functionp (nth 2 res))  ; imenu entry
+   (cdr res)))  ; non-empty sub-alist
  forest)
   (let ((entries
  (mapcar #'javaimp-imenu--make-entry
@@ -724,7 +724,7 @@ in a major mode hook."
   (let* ((scopes (javaimp--parse-get-all-scopes
   (lambda (scope)
 (javaimp-test-scope-type scope
-  '(class interface enum method)
+  `(,@ javaimp--classlike-scope-types method)
   javaimp--classlike-scope-types
  (methods (seq-filter
(lambda (scope)
@@ -830,7 +830,7 @@ with prefix arg, show all scopes."
   (unless show-all
 (lambda (scope)
   (javaimp-test-scope-type scope
-'(class interface enum method)
+`(,@ javaimp--classlike-scope-types method)
 javaimp--classlike-scope-types)))
 (source-buf (current-buffer))
 (source-default-dir default-directory)

[elpa] scratch/javaimp-wip 52c6c71b93: *** empty log message ***

[Filipp Gunbin]

branch: scratch/javaimp-wip
commit 52c6c71b93ee165b757aa7b22c6044621377d68f
Author: Filipp Gunbin 
Commit: Filipp Gunbin 

*** empty log message ***
---
 javaimp-parse.el | 45 +---
 javaimp.el   | 69 +---
 2 files changed, 88 insertions(+), 26 deletions(-)

diff --git a/javaimp-parse.el b/javaimp-parse.el
index 65a31cb422..a07c059267 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -374,6 +374,7 @@ it's set to 'unknown' too."
(javaimp-scope-start scope))
   (goto-char (javaimp-scope-start scope)
 (setq state (syntax-ppss
+;; FIXME don't do this every time
 (let (parent reset-tail)
   (while res
 (if reset-tail
@@ -391,9 +392,9 @@ it's set to 'unknown' too."
   parent)))
 
 (defun javaimp--parse-all-scopes ()
-  "Entry point to the scope parsing.  Parses scopes in this buffer
-which are after `javaimp--parse-dirty-pos', if it points
-anywhere.  Makes it point nowhere when done."
+  "Parses all scopes in this buffer which are after
+`javaimp--parse-dirty-pos', if it points anywhere.  Makes it
+point nowhere when done."
   (unless javaimp--parse-dirty-pos
 (setq javaimp--parse-dirty-pos (point-min-marker))
 (javaimp--parse-setup-buffer))
@@ -419,6 +420,33 @@ anywhere.  Makes it point nowhere when done."
   (setq-local multibyte-syntax-as-symbol t)
   (add-hook 'after-change-functions #'javaimp--parse-update-dirty-pos))
 
+(defun javaimp--parse-enclosing-scope (&optional pred)
+  "Return innermost enclosing scope matching PRED.  This function
+is intended to use already set properties."
+  (when (or (not javaimp--parse-dirty-pos)
+(marker-position javaimp--parse-dirty-pos))
+(error "Call javaimp--parse-all-scopes first"))
+  (with-syntax-table javaimp-syntax-table
+(let ((state (syntax-ppss)))
+  ;; Move out of any comment/string
+  (when (nth 8 ppss)
+   (goto-char (nth 8 ppss))
+   (setq state (syntax-ppss)))
+  ;; Go up until we get something
+  (catch 'found
+(while t
+  (let ((res (save-excursion
+   (javaimp--parse-scopes nil
+(when (and (javaimp-scope-p res)
+   (or (null pred)
+   (funcall pred res)))
+  (throw 'found res))
+(if (nth 1 state)
+(progn
+  (goto-char (nth 1 state))
+  (setq state (syntax-ppss)))
+  (throw 'found nil
+
 (defun javaimp--parse-class-abstract-methods ()
   (goto-char (point-max))
   (let (res)
@@ -518,6 +546,17 @@ them should move point."
 (push scope res)))
 res))
 
+(defun javaimp--parse-get-enclosing-scope (&optional pred parent-pred)
+  "Return innermost enclosing scope at point which satisfies PRED,
+with parents filtered by PARENT-PRED."
+  (save-excursion
+(javaimp--parse-all-scopes))
+  (when-let ((scope (javaimp--parse-enclosing-scope pred)))
+(setq scope (javaimp--copy-scope scope))
+(when parent-pred
+  (javaimp--filter-scope-parents scope parent-pred))
+scope))
+
 (defun javaimp--parse-get-class-abstract-methods ()
   (javaimp--parse-all-scopes)
   (javaimp--parse-class-abstract-methods))
diff --git a/javaimp.el b/javaimp.el
index 43b9cbd38b..81d9d6d11d 100644
--- a/javaimp.el
+++ b/javaimp.el
@@ -573,11 +573,7 @@ If there's no such directive, then the last resort is just
   "Return fully-qualified names of all class-like scopes in the
 current buffer."
   (let ((package (javaimp--parse-get-package))
-(scopes (javaimp--parse-get-all-scopes
- (lambda (scope)
-   (javaimp-test-scope-type scope
- javaimp--classlike-scope-types
- javaimp--classlike-scope-types)
+(scopes (javaimp--get-defun-scopes t)))
 (mapcar (lambda (class)
   (if package
   (concat package "." class)
@@ -721,19 +717,15 @@ in a major mode hook."
   entries)
 
 (defun javaimp-imenu--get-forest ()
-  (let* ((scopes (javaimp--parse-get-all-scopes
-  (lambda (scope)
-(javaimp-test-scope-type scope
-  `(,@ javaimp--classlike-scope-types method)
-  javaimp--classlike-scope-types
+  (let* ((defun-scopes (javaimp--get-defun-scopes))
  (methods (seq-filter
(lambda (scope)
  (eq (javaimp-scope-type scope) 'method))
-   scopes))
+   defun-scopes))
  (classes (seq-filter
(lambda (scope)
  (not (eq (javaimp-scope-type scope) 'method)))
-   scopes))
+   defun-scopes))
  (top-classes (seq-filter (lambda (s)
 (null (javaimp-scope-parent s)))
   

[elpa] branch scratch/javaimp-wip created (now 52c6c71b93)

[Filipp Gunbin]

fgunbin pushed a change to branch scratch/javaimp-wip.

at  52c6c71b93 *** empty log message ***

This branch includes the following new commits:

   new  52c6c71b93 *** empty log message ***

[elpa] externals/vertico-posframe 8eba815f6b 1/2: Fix: Error thrown when attempting to narrow consult results. #15

[ELPA Syncer]

branch: externals/vertico-posframe
commit 8eba815f6b6937e3f7700549f333f12629635034
Author: Feng Shu 
Commit: Feng Shu 

Fix: Error thrown when attempting to narrow consult results. #15

* vertico-posframe.el (vertico-posframe--show-minibuffer-p): check
this-command symbol or not.
---
 vertico-posframe.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index d4f07a85e2..8f2a9a9553 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -255,7 +255,9 @@ is called, window-point will be set to WINDOW-POINT."
(lambda (rule)
  (cond ((functionp rule)
 (funcall rule))
-   ((and rule (stringp rule))
+   ((and rule
+ (stringp rule)
+ (symbolp this-command))
 (string-match-p rule (symbol-name this-command)))
((symbolp rule)
 (symbol-value rule))

[elpa] externals/vertico-posframe updated (47e9aa7543 -> 7ca364d319)

[ELPA Syncer]

elpasync pushed a change to branch externals/vertico-posframe.

  from  47e9aa7543 v0.5.3
   new  8eba815f6b Fix: Error thrown when attempting to narrow consult 
results. #15
   new  7ca364d319 v0.5.4


Summary of changes:
 vertico-posframe.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

[elpa] externals/vertico-posframe 7ca364d319 2/2: v0.5.4

[ELPA Syncer]

branch: externals/vertico-posframe
commit 7ca364d319e7ba8ccba26a0d57513f3e66f1b05b
Author: Feng Shu 
Commit: Feng Shu 

v0.5.4
---
 vertico-posframe.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index 8f2a9a9553..e4fd04e9fa 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -5,7 +5,7 @@
 ;; Author: Feng Shu 
 ;; Maintainer: Feng Shu 
 ;; URL: https://github.com/tumashu/vertico-posframe
-;; Version: 0.5.3
+;; Version: 0.5.4
 ;; Keywords: abbrev, convenience, matching, vertico
 ;; Package-Requires: ((emacs "26.0") (posframe "1.1.4") (vertico "0.13.0"))
 

[elpa] externals/mct 3f15ff6f62: Note that development is discontinued

[ELPA Syncer]

branch: externals/mct
commit 3f15ff6f62d816075a2e1092e10a03befe2c0791
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Note that development is discontinued

Read: .
---
 mct-avy.el | 3 +++
 mct-tcm.el | 3 +++
 mct.el | 3 +++
 3 files changed, 9 insertions(+)

diff --git a/mct-avy.el b/mct-avy.el
index bcea09531e..c991af427e 100644
--- a/mct-avy.el
+++ b/mct-avy.el
@@ -24,6 +24,9 @@
 
 ;;; Commentary:
 ;;
+;; UPDATE 2022-04-15: Development of this package has been discontinued:
+;; .
+;;
 ;; MCT extension which provides the means to select a completion
 ;; candidate with the `avy' package's mode of interaction.
 ;;
diff --git a/mct-tcm.el b/mct-tcm.el
index 5656050011..0f73b82043 100644
--- a/mct-tcm.el
+++ b/mct-tcm.el
@@ -24,6 +24,9 @@
 
 ;;; Commentary:
 ;;
+;; UPDATE 2022-04-15: Development of this package has been discontinued:
+;; .
+;;
 ;; MCT extension which Treats the Completions as the Minibuffer.  It
 ;; intercepts any single character input (without Control or Alt
 ;; modifiers) in the Completions' buffer and passes it to the minibuffer
diff --git a/mct.el b/mct.el
index 44efbb9bb0..1fb8ebff31 100644
--- a/mct.el
+++ b/mct.el
@@ -24,6 +24,9 @@
 
 ;;; Commentary:
 ;;
+;; UPDATE 2022-04-15: Development of this package has been discontinued:
+;; .
+;;
 ;; MCT enhances the default Emacs completion.  It makes the minibuffer
 ;; and Completions' buffer work together as part of a singular
 ;; completion UI.

[elpa] externals/tempel cb7c4c294a: Fix tempel-complete (Fix #49)

[ELPA Syncer]

branch: externals/tempel
commit cb7c4c294adfbcf1cbc3cfe985f5f12685785ec2
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix tempel-complete (Fix #49)
---
 tempel.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tempel.el b/tempel.el
index 6e5e6d6314..eeda56042c 100644
--- a/tempel.el
+++ b/tempel.el
@@ -630,10 +630,10 @@ If INTERACTIVE is nil the function acts like a capf."
 (when (and tempel-trigger-prefix (not (tempel--prefix-bounds)))
   (insert tempel-trigger-prefix))
 (tempel--interactive #'tempel-complete))
-(when-let (templates (tempel--templates))
-  (let* ((region (tempel--region))
- (bounds (or (and (not region) (tempel--prefix-bounds))
- (and (not tempel-trigger-prefix) (cons (point) 
(point))
+(let ((region (tempel--region)))
+  (when-let ((templates (tempel--templates))
+ (bounds (or (and (not region) (tempel--prefix-bounds))
+ (and (not tempel-trigger-prefix) (cons (point) 
(point))
 (list (car bounds) (cdr bounds)
   (tempel--completion-table templates)
   :exclusive 'no