() Michael Heerdegen <michael_heerdegen@web.de>
() Tue, 07 Feb 2017 21:22:30 +0100

         (let* ((insert-default-directory nil)
                (input (read-directory-name
                        (format "Dir (default %s): "
                                (or source-directory
                                    default-directory)))))

Should this be moved into the ‘interactive’ form?

           (if (string= input "")
               (expand-file-name (or source-directory
                                     default-directory))
             input))

You can probably call ‘read-directory-name’ w/ some combination
of DIR, DEFAULT-DIRNAME and INITIAL args to have it produce the
same result.

-- 
Thien-Thi Nguyen -----------------------------------------------
 (defun responsep (query)
   (pcase (context query)
     (`(technical mailing-list) t)
     ...))                              748E A0E8 1CB8 A748 9BFA
--------------------------------------- 6CE4 6703 2224 4C80 7502