cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- updated docstrings.

This commit is contained in:
cage 2022-02-17 19:22:18 +01:00
parent 444f7939ce
commit 9be010a3b4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ui-goodies.lisp
View File

@ -2812,7 +2812,7 @@ if the selected item represents a directory."
(info-message (format nil (_ "File ~s was modified on server") path)))))
(defun file-explorer-upload-mirror ()
"Upload a filesystem tree.
"Upload a filesystem tree (a.k.a. mirroring).
Note: existing file will be overwritten."
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
@ -2850,7 +2850,7 @@ Note: existing file will be overwritten."
:complete-fn #'complete:directory-complete))))
(defun file-explorer-download-mirror ()
"Download a filesystem tree.
"Download a filesystem tree (a.k.a. mirroring).
Note: existing file will be overwritten."
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))