]> git.eshelyaron.com Git - emacs.git/commitdiff
Revert last change in dbusbind.c
authorMichael Albinus <michael.albinus@gmx.de>
Thu, 1 Oct 2020 08:32:50 +0000 (10:32 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Thu, 1 Oct 2020 08:32:50 +0000 (10:32 +0200)
* src/dbusbind.c (XD_DBUS_TYPE_P, Fdbus__init_bus)
(xd_read_queued_messages): Revert last change.  (Bug#43724)

src/dbusbind.c

index 36f86556944efcec8c7dd73fe40dd5c9a84794ea..54130be685c7c3a3c016e50e59a1e8885a31d21b 100644 (file)
@@ -211,7 +211,7 @@ xd_dbus_type_to_symbol (int type)
 
 /* Check whether a Lisp symbol is a predefined D-Bus type symbol.  */
 #define XD_DBUS_TYPE_P(object)                                         \
-  Fkeywordp (object) && ((xd_symbol_to_dbus_type (object) != DBUS_TYPE_INVALID))
+  SYMBOLP (object) && ((xd_symbol_to_dbus_type (object) != DBUS_TYPE_INVALID))
 
 /* Determine the DBusType of a given Lisp OBJECT.  It is used to
    convert Lisp objects, being arguments of `dbus-call-method' or
@@ -1231,7 +1231,7 @@ this connection to those buses.  */)
                                                xd_add_watch,
                                                xd_remove_watch,
                                                xd_toggle_watch,
-                                               Fkeywordp (bus)
+                                               SYMBOLP (bus)
                                                ? (void *) XSYMBOL (bus)
                                                : (void *) XSTRING (bus),
                                                NULL))
@@ -1797,7 +1797,7 @@ xd_read_queued_messages (int fd, void *data)
     while (!NILP (busp))
       {
        key = CAR_SAFE (CAR_SAFE (busp));
-       if ((Fkeywordp (key) && XSYMBOL (key) == data)
+       if ((SYMBOLP (key) && XSYMBOL (key) == data)
            || (STRINGP (key) && XSTRING (key) == data))
          bus = key;
        busp = CDR_SAFE (busp);