mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

* net/secrets.el (secrets-delete-alias): New defun.

Browse Source
This commit is contained in:
Michael Albinus 2010-12-27 18:52:17 +01:00
parent 2f7c71a117
commit 4c145d5d06
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

14
lisp/net/secrets.el
View File

@ -448,10 +448,9 @@ If there is no such COLLECTION, return nil."
;; 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 @@ For the time being, only the alias \"default\" is supported."
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."