Mercurial > emacs
changeset 112024:68a3b6b312ee
* net/secrets.el (secrets-delete-alias): New defun.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Mon, 27 Dec 2010 18:52:17 +0100 |
| parents | ac49e05bfcf2 |
| children | 41f10e4816d0 |
| files | lisp/ChangeLog lisp/net/secrets.el |
| diffstat | 2 files changed, 14 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 27 18:29:38 2010 +0100 +++ b/lisp/ChangeLog Mon Dec 27 18:52:17 2010 +0100 @@ -1,3 +1,7 @@ +2010-12-27 Michael Albinus <michael.albinus@gmx.de> + + * net/secrets.el (secrets-delete-alias): New defun. + 2010-12-27 Michael Albinus <michael.albinus@gmx.de> * net/tramp.el (tramp-default-user-alist): Do not add "ssh" based
--- a/lisp/net/secrets.el Mon Dec 27 18:29:38 2010 +0100 +++ b/lisp/net/secrets.el Mon Dec 27 18:52:17 2010 +0100 @@ -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."