[elpa] master ed18e2e: * dbus-codegen/dbus-codegen.el (dbus-codegen-make-proxy): Fix names.

[Stefan Monnier]

branch: master
commit ed18e2ed28c9c24950a57ae99e1b85a9c355cae1
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * dbus-codegen/dbus-codegen.el (dbus-codegen-make-proxy): Fix names.
---
 packages/dbus-codegen/dbus-codegen.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/dbus-codegen/dbus-codegen.el 
b/packages/dbus-codegen/dbus-codegen.el
index d744b9f..5f60dd1 100644
--- 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.