From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 5 Mar 2021 16:51:22 +0000 (+0100)
Subject: Declare some completion predicates
X-Git-Tag: emacs-28.0.90~3427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb87eeff1bf88d9d1849c452e8b9953b06ada454;p=emacs.git

Declare some completion predicates

* lisp/filenotify.el (file-notify-handle-event):
* lisp/net/dbus.el (dbus-handle-event): Declare `completion-predicate'.
---

diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 78571776a39..07871bb0b64 100644
--- a/lisp/filenotify.el
+++ b/lisp/filenotify.el
@@ -100,6 +100,7 @@ If it is registered in `file-notify-descriptors', a `stopped' event is sent."
   "Handle a file system monitoring event, coming from backends.
 If OBJECT is a filewatch event, call its callback.
 Otherwise, signal a `file-notify-error'."
+  (declare (completion ignore))
   (interactive "e")
   (when file-notify-debug
     (message "file-notify-handle-event %S" object))
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index a9de35c814f..1e7f836d820 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -1144,6 +1144,7 @@ compound type arguments (TYPE VALUE) will be kept as is."
 EVENT is a D-Bus event, see `dbus-check-event'.  HANDLER, being
 part of the event, is called with arguments ARGS (without type information).
 If the HANDLER returns a `dbus-error', it is propagated as return message."
+  (declare (completion ignore))
   (interactive "e")
   (condition-case err
       (let (monitor args result)