mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

external-completion: specify a required Emacs version

Browse source 
* lisp/external-completion.el: Require 26.1 (picked out of thin air).
(external-completion-table): Undo use of the hash-table-contains-p,
recently introduced.
This commit is contained in:
Mattias Engdegård 2025-08-06 12:53:06 +02:00
parent ca07819af7
commit f0da94e2c2
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/external-completion.el
View file

@ -5,6 +5,7 @@
;; Version: 0.1 ;; Version: 0.1
;; Author: Stefan Monnier <monnier@iro.umontreal.ca> ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Maintainer: João Távora <joaotavora@gmail.com> ;; Maintainer: João Távora <joaotavora@gmail.com>
;; Package-Requires: ((emacs "26.1"))
;; Keywords: ;; Keywords:
;; This is a GNU ELPA :core package. Avoid functionality that is not ;; This is a GNU ELPA :core package. Avoid functionality that is not
@ -117,10 +118,11 @@ EXPANDED-PATTERN."
completion-category-defaults))) completion-category-defaults)))
(let ((cache (make-hash-table :test #'equal))) (let ((cache (make-hash-table :test #'equal)))
(cl-flet ((lookup-internal (string point) (cl-flet ((lookup-internal (string point)
(let ((key (cons string point))) (let* ((key (cons string point))
(if (hash-table-contains-p key cache) (probe (gethash key cache 'external--notfound)))
(gethash key cache) (if (eq probe 'external--notfound)
(puthash key (funcall lookup string point) cache))))) (puthash key (funcall lookup string point) cache)
probe))))
(lambda (string pred action) (lambda (string pred action)
(pcase action (pcase action
(`metadata (`metadata