The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e34b398
)
Avoid anoying error message on homepage when using elpher-go-current
author
Étienne Deparis
<etienne@depar.is>
Mon, 28 Jun 2021 16:20:46 +0000
(18:20 +0200)
committer
Étienne Deparis
<etienne@depar.is>
Mon, 28 Jun 2021 16:24:40 +0000
(18:24 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
9fffce8
..
e16c52d
100644
(file)
--- 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)))
"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."
(defun elpher-visit-gemini-numbered-link (n)
"Visit link designated by a number."