* net/secrets.el (secrets-enabled): New variable. Use it instead

of a subfeature.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54e427eeda504490032b000ca42e71db96d4ceef..0deba1945dad12f4182788a2116639ad362c7152 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-16  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/secrets.el (secrets-enabled): New variable.  Use it instead
+       of a subfeature.
+
 2010-03-15  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/secrets.el (top): Register the D-Bus signals only when the

diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 07062810b8018b27a42598c852ea612ff6073c3c..5fa10e284a412019296d496ab4587b66b2652bf8 100644 (file)
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -34,11 +34,9 @@
 ;; into your .emacs:
 ;;
 ;;   (require 'secrets)
-
-;; It can be checked afterwards, whether there is a daemon providing
-;; this interface:
 ;;
-;;   (featurep 'secrets 'enabled)
+;; Afterwards, the variable `secrets-enabled' is non-nil when there is
+;; a daemon providing this interface.
 
 ;; The atomic objects to be managed by the Secret Service API are
 ;; secret items, which are something an application wishes to store
@@ -150,6 +148,9 @@
 
 (require 'dbus)
 
+(defvar secrets-enabled nil
+  "Whether there is a daemon offering the Secret Service API."
+
 (defvar secrets-debug t
   "Write debug messages")
 
@@ -664,38 +665,37 @@ If there is no such item, or the item doesn't own this attribute, return nil."
        :session secrets-service item-path
        secrets-interface-item "Delete")))))
 
-(if (dbus-ping :session secrets-service 100)
-
-    (progn
-      ;; We must reset all variables, when there is a new instance of
-      ;; the "org.freedesktop.secrets" service.
-      (dbus-register-signal
-       :session dbus-service-dbus dbus-path-dbus
-       dbus-interface-dbus "NameOwnerChanged"
-       (lambda (&rest args)
-        (when secrets-debug (message "Secret Service has changed: %S" args))
-        (setq secrets-session-path secrets-empty-path
-              secrets-prompt-signal nil
-              secrets-collection-paths nil))
-       secrets-service)
-
-      ;; We want to refresh our cache, when there is a change in
-      ;; collections.
-      (dbus-register-signal
-       :session secrets-service secrets-path
-       secrets-interface-service "CollectionCreated"
-       'secrets-collection-handler)
-
-      (dbus-register-signal
-       :session secrets-service secrets-path
-       secrets-interface-service "CollectionDeleted"
-       'secrets-collection-handler)
-
-      ;; We shall inform, whether the secret service is enabled on
-      ;; this machine.
-      (provide 'secrets '(enabled)))
-
-  (provide 'secrets))
+(when (dbus-ping :session secrets-service 100)
+
+  ;; We must reset all variables, when there is a new instance of the
+  ;; "org.freedesktop.secrets" service.
+  (dbus-register-signal
+   :session dbus-service-dbus dbus-path-dbus
+   dbus-interface-dbus "NameOwnerChanged"
+   (lambda (&rest args)
+     (when secrets-debug (message "Secret Service has changed: %S" args))
+     (setq secrets-session-path secrets-empty-path
+          secrets-prompt-signal nil
+          secrets-collection-paths nil))
+   secrets-service)
+
+  ;; We want to refresh our cache, when there is a change in
+  ;; collections.
+  (dbus-register-signal
+   :session secrets-service secrets-path
+   secrets-interface-service "CollectionCreated"
+   'secrets-collection-handler)
+
+  (dbus-register-signal
+   :session secrets-service secrets-path
+   secrets-interface-service "CollectionDeleted"
+   'secrets-collection-handler)
+
+  ;; We shall inform, whether the secret service is enabled on this
+  ;; machine.
+  (setq secrets-enabled t)))
+
+(provide 'secrets)
 
 ;;; TODO: