branch: externals/dbus-codegen
commit cba581013cf9aec7db51f0a255c835d7410f1b51
Author: Stefan Monnier <[email protected]>
Commit: Daiki Ueno <[email protected]>
* dbus-codegen/dbus-codegen.el (dbus-codegen-make-proxy): Fix names.
---
dbus-codegen.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/dbus-codegen.el b/dbus-codegen.el
index d744b9f..5f60dd1 100644
--- a/dbus-codegen.el
+++ b/dbus-codegen.el
@@ -637,6 +637,7 @@ supported:
:transform-name FUNCTION -- FUNCTION is a function which converts
D-Bus method/signal/property names, into another representation.
By default `dbus-codegen-transform-name' is used."
+ ;; FIXME: A lot of redundancy with dbus-codegen-define-skeleton.
(unless (symbolp name)
(signal 'wrong-type-argument (list 'symbolp name)))
;; Accept a Lisp form as well as a string.
@@ -809,10 +810,10 @@ associated functions.
Other keywords are same as `dbus-codegen-define-proxy'."
(require 'xml)
(require 'subword)
- (let ((constructor (intern (format "%s-make" name))))
+ (let ((constructor (intern (format "%s--make" name))))
(if (or (plist-get args :redefine)
(not (fboundp constructor)))
- (eval `(define-dbus-proxy ,(intern name)
+ (eval `(dbus-codegen-define-proxy ,name
,(dbus-introspect bus service path)
,interface
,@args)))
@@ -838,6 +839,7 @@ supported:
:transform-name FUNCTION -- FUNCTION is a function which converts
D-Bus method/signal/property names, into another representation.
By default `dbus-codegen-transform-name' is used."
+ ;; FIXME: A lot of redundancy with dbus-codegen-define-proxy.
(unless (symbolp name)
(signal 'wrong-type-argument (list 'symbolp name)))
;; Accept a Lisp form as well as a string.
