* dbus-codegen/dbus-codegen.el (dbus-codegen-make-proxy): Fix names.

diff --git a/packages/dbus-codegen/dbus-codegen.el b/packages/dbus-codegen/dbus-codegen.el
index d744b9f20542b9c027156f871ca72ff9e9a7a4f1..5f60dd1b9cc7d73aa94af2854487f3927a95f384 100644 (file)
--- a/packages/dbus-codegen/dbus-codegen.el
+++ b/packages/dbus-codegen/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.