[Emacs-diffs] /srv/bzr/emacs/trunk r102715: * net/secrets.el (secrets-delete-alias): New defun.

[Michael Albinus]

------------------------------------------------------------
revno: 102715
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2010-12-27 18:52:17 +0100
message:
  * net/secrets.el (secrets-delete-alias): New defun.
modified:
  lisp/ChangeLog
  lisp/net/secrets.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-27 10:56:26 +0000
+++ b/lisp/ChangeLog    2010-12-27 17:52:17 +0000
@@ -1,5 +1,9 @@
 2010-12-27  Michael Albinus  <address@hidden>
 
+       * net/secrets.el (secrets-delete-alias): New defun.
+
+2010-12-27  Michael Albinus  <address@hidden>
+
        * net/tramp.el (tramp-default-user-alist): Do not add "ssh" based
        methods, otherwise ~/.ssh/config would be ignored.
 

=== modified file 'lisp/net/secrets.el'
--- a/lisp/net/secrets.el       2010-05-19 12:47:37 +0000
+++ b/lisp/net/secrets.el       2010-12-27 17:52:17 +0000
@@ -448,10 +448,9 @@
    ;; Check the collections.
    (catch 'collection-found
      (dolist (collection-path (secrets-get-collections) nil)
-       (when
-          (string-equal
-           collection
-           (secrets-get-collection-property collection-path "Label"))
+       (when (string-equal
+             collection
+             (secrets-get-collection-property collection-path "Label"))
         (throw 'collection-found collection-path))))))
 
 (defun secrets-create-collection (collection)
@@ -490,6 +489,13 @@
        secrets-interface-service "SetAlias"
        alias :object-path collection-path))))
 
+(defun secrets-delete-alias (alias)
+  "Delete ALIAS, referencing to a collection."
+  (dbus-call-method
+   :session secrets-service secrets-path
+   secrets-interface-service "SetAlias"
+   alias :object-path secrets-empty-path))
+
 (defun secrets-unlock-collection (collection)
   "Unlock collection labelled COLLECTION.
 If successful, return the object path of the collection."