> My intent for this change was to get the use the archive information
> of the current buffer, instead of asking the user.
(defun tla--read-archive-name (&optional archive-prompt default)
"Reads an archive name from keyboard. Returned value is a
one-element list: (archive)."
(tla--archive-tree-build-archives t)
(let* ((my-default-archive (or default (tla-my-default-archive)))
(archive-prompt (or archive-prompt "Archive name: "))
(archive (or (tla--get-archive (tla--get-info-at-point))
...
(list (when (not (string= archive ""))
archive))))
Using (tla--get-info-at-point) for default value of completing-read
is good. However, the current implementation uses (tla--get-info-at-point)
directly. The user will loose a chance to give an archive name other
than the archive name returned by (tla--get-info-at-point).
I'll seek the better way.
Masatake YAMATO
