[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ed18e2e: * dbus-codegen/dbus-codegen.el (dbus-codegen-make
From: |
Stefan Monnier |
Subject: |
[elpa] master ed18e2e: * dbus-codegen/dbus-codegen.el (dbus-codegen-make-proxy): Fix names. |
Date: |
Sun, 19 Apr 2015 19:39:05 +0000 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master ed18e2e: * dbus-codegen/dbus-codegen.el (dbus-codegen-make-proxy): Fix names.,
Stefan Monnier <=