Hi Masatake!
>
> So please remove
> (condition-case nil
> and
> ((quit error)
> (run-hooks 'tla-name-read-error-hook)
> nil)
> ; and evaluate tla--name-read; and call
> `tla-bookmarks-add-partner-interactive' or eval
> (tla--name-read "Version: " 'prompt 'prompt 'prompt 'prompt) again?
>
> You will get the error.
I have only merged your patches up to 122. So I am not sure, if you
have fixed the problem already.
With my revision I get the following backtrace:
Debugger entered--Lisp error: (error "\"~/\" is not in an arch-managed tree!")
signal(error ("\"~/\" is not in an arch-managed tree!"))
error("%S is not in an arch-managed tree!" "~/")
(if no-error nil (error "%S is not in an arch-managed tree!" location))
(if (file-exists-p (concat pwd "/{arch}/=tagging-method")) (expand-file-name
(replace-regexp-in-string "/+$" "/" pwd)) (if no-error nil (error "%S is not in
an arch-managed tree!" location)))
(let ((pwd location)) (while (not ...) (setq pwd ...)) (if (file-exists-p
...) (expand-file-name ...) (if no-error nil ...)))
tla-tree-root("~/")
(or local-tree (tla-tree-root default-directory))
(let ((default-directory ...)) (let* (... ...) (if buffer-visiting ... ...)))
tla-partner-find-partner-file(nil)
(set-buffer (tla-partner-find-partner-file local-tree))
(save-current-buffer (set-buffer (tla-partner-find-partner-file local-tree))
(let (...) (remove "" partners)))
(with-current-buffer (tla-partner-find-partner-file local-tree) (let (...)
(remove "" partners)))
tla-partner-list()
(reverse (tla-partner-list))
(let ((partners ...)) (mapc (lambda ... ...) partners))
tla--name-read-insert-partner-init()
run-hooks(tla-name-read-init-hook)
(let* ((dummy-nouse ...) (minibuffer-local-completion-map
tla--name-read-minibuf-map) (result ...) (first-try t)) (while (or first-try
...) (setq result ... first-try nil)) (run-hooks (quote
tla-name-read-final-hook)) (if result (tla--name-split result) result))
tla--name-read("Version: " prompt prompt prompt prompt)
eval((tla--name-read "Version: " (quote prompt) (quote prompt) (quote prompt)
(quote prompt)))
eval-expression((tla--name-read "Version: " (quote prompt) (quote prompt)
(quote prompt) (quote prompt)) nil)
call-interactively(eval-expression)
--
Stefan.
