ryuslash/desktop-registry
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update docstrings

Browse source
This commit is contained in:
Tom Willemse 2013-08-07 15:58:47 +02:00
parent 89d2b34ede
commit c796df3b76
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
desktop-registry.el
View file

@ -81,7 +81,11 @@ Returns DEFAULT when `desktop-dirname' is nil."
(defun desktop-registry--completing-read (&optional prompt (defun desktop-registry--completing-read (&optional prompt
default-current) 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: ")) (let ((prompt (or prompt "Desktop: "))
(default (and default-current (default (and default-current
(desktop-registry-current-desktop)))) (desktop-registry-current-desktop))))
@ -101,7 +105,7 @@ Returns DEFAULT when `desktop-dirname' is nil."
;;;###autoload ;;;###autoload
(defun desktop-registry-rename-desktop (old new) (defun desktop-registry-rename-desktop (old new)
"Rename DESKTOP." "Rename desktop OLD to NEW."
(interactive (list (desktop-registry--completing-read "Rename: " t) (interactive (list (desktop-registry--completing-read "Rename: " t)
(read-string "to: "))) (read-string "to: ")))
(let ((spec (assoc old desktop-registry-registry))) (let ((spec (assoc old desktop-registry-registry)))