X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=e16c52dd06bef9df51894ce03a32b6cb355a92d5;hp=9fffce8a15a97036c76e29527959b772e06d3d34;hb=d202f3c0d5b211b5d43a7ec3eed0f5feb82e2d7f;hpb=e34b398fc4f61fa9b77c4d63ad0bf1384539d35b diff --git a/elpher.el b/elpher.el index 9fffce8..e16c52d 100644 --- a/elpher.el +++ b/elpher.el @@ -1854,10 +1854,10 @@ When run interactively HOST-OR-URL is read from the minibuffer." "Go to a particular site read from the minibuffer, initialized with the current URL." (interactive) (let ((address (elpher-page-address elpher-current-page))) - (if (elpher-address-special-p address) - (error "Command invalid for this page") - (let ((url (read-string "Gopher or Gemini URL: " (elpher-address-to-url address)))) - (elpher-visit-page (elpher-make-page url (elpher-address-from-url url))))))) + (let ((url (read-string "Gopher or Gemini URL: " + (unless (elpher-address-special-p address) + (elpher-address-to-url address))))) + (elpher-visit-page (elpher-make-page url (elpher-address-from-url url)))))) (defun elpher-visit-gemini-numbered-link (n) "Visit link designated by a number."