diff options
author | Tom Willemse | 2013-08-07 15:58:47 +0200 |
---|---|---|
committer | Tom Willemse | 2013-08-07 22:08:01 +0200 |
commit | c796df3b7696ba502dcf28fc8a9955869730dfcb (patch) | |
tree | c5e83fd5f1f3fd1f40fc37e274fb1f1d1c954a14 | |
parent | 89d2b34ede2e9d3c5b8294950ac979af3591c816 (diff) | |
download | desktop-registry-c796df3b7696ba502dcf28fc8a9955869730dfcb.tar.gz desktop-registry-c796df3b7696ba502dcf28fc8a9955869730dfcb.zip |
Update docstrings
-rw-r--r-- | desktop-registry.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/desktop-registry.el b/desktop-registry.el index 978ef4e..4593668 100644 --- a/desktop-registry.el +++ b/desktop-registry.el @@ -81,7 +81,11 @@ Returns DEFAULT when `desktop-dirname' is nil." (defun desktop-registry--completing-read (&optional prompt default-current) - "Ask the user to pick a desktop directory." + "Ask the user to pick a desktop directory. + +PROMPT specifies the prompt to use when asking, which defaults to +\"Desktop: \". DEFAULT-CURRENT specifies whether to use the +current desktop as default value." (let ((prompt (or prompt "Desktop: ")) (default (and default-current (desktop-registry-current-desktop)))) @@ -101,7 +105,7 @@ Returns DEFAULT when `desktop-dirname' is nil." ;;;###autoload (defun desktop-registry-rename-desktop (old new) - "Rename DESKTOP." + "Rename desktop OLD to NEW." (interactive (list (desktop-registry--completing-read "Rename: " t) (read-string "to: "))) (let ((spec (assoc old desktop-registry-registry))) |