Mercurial > emacs
comparison lisp/net/secrets.el @ 107447:9d443ad80849
Fix unbalanced parenthesis in secrets.el.
Fix parenthesis.
(secrets-enabled): Fix parenthesis.
author | Ted Zlatanov <tzz@lifelogs.com> |
---|---|
date | Sat, 20 Mar 2010 14:21:44 -0500 |
parents | 6c48d0b283da |
children | feaedf49cc07 |
comparison
equal
deleted
inserted
replaced
107446:93cf07b171cc | 107447:9d443ad80849 |
---|---|
147 (defvar dbus-debug) | 147 (defvar dbus-debug) |
148 | 148 |
149 (require 'dbus) | 149 (require 'dbus) |
150 | 150 |
151 (defvar secrets-enabled nil | 151 (defvar secrets-enabled nil |
152 "Whether there is a daemon offering the Secret Service API." | 152 "Whether there is a daemon offering the Secret Service API.") |
153 | 153 |
154 (defvar secrets-debug t | 154 (defvar secrets-debug t |
155 "Write debug messages") | 155 "Write debug messages") |
156 | 156 |
157 (defconst secrets-service "org.freedesktop.secrets" | 157 (defconst secrets-service "org.freedesktop.secrets" |
691 secrets-interface-service "CollectionDeleted" | 691 secrets-interface-service "CollectionDeleted" |
692 'secrets-collection-handler) | 692 'secrets-collection-handler) |
693 | 693 |
694 ;; We shall inform, whether the secret service is enabled on this | 694 ;; We shall inform, whether the secret service is enabled on this |
695 ;; machine. | 695 ;; machine. |
696 (setq secrets-enabled t))) | 696 (setq secrets-enabled t)) |
697 | 697 |
698 (provide 'secrets) | 698 (provide 'secrets) |
699 | 699 |
700 ;;; TODO: | 700 ;;; TODO: |
701 | 701 |