(let (url)
(if (and current-prefix-arg (eq current-prefix-arg '-))
(setq url (caar liece-url-alist))
- (setq url (liece-minibuffer-completing-default-read
- (_ "Open URL:") liece-url-alist)))
+ (setq url (completing-read (_ "Open URL:") liece-url-alist)))
(list url)))
(let ((browse-url-browser-function liece-url-browser-function))
(browse-url url)))