The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed last remaining url-port usage.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
e7b37ba
..
b4048a7
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-5,7
+5,7
@@
;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
-;; Version: 3.4.
0
+;; Version: 3.4.
1
;; Keywords: comm gopher
;; Homepage: https://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "27.1"))
;; Keywords: comm gopher
;; Homepage: https://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "27.1"))
@@
-70,7
+70,7
@@
;;; Global constants
;;
;;; Global constants
;;
-(defconst elpher-version "3.4.
0
"
+(defconst elpher-version "3.4.
1
"
"Current version of elpher.")
(defconst elpher-margin-width 6
"Current version of elpher.")
(defconst elpher-margin-width 6
@@
-463,7
+463,8
@@
For gopher addresses this is a combination of the selector type and selector."
"Retrieve port from ADDRESS object.
If no address is defined, returns 0. (This is for compatibility with
the URL library.)"
"Retrieve port from ADDRESS object.
If no address is defined, returns 0. (This is for compatibility with
the URL library.)"
- (url-port address))
+ (let ((port (url-portspec address))) ; (url-port) is too slow!
+ (if port port 0)))
(defun elpher-gopher-address-selector (address)
"Retrieve gopher selector from ADDRESS object."
(defun elpher-gopher-address-selector (address)
"Retrieve gopher selector from ADDRESS object."