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 (parent:
5ea1f6b
)
Removed use of caddr (not defined in emacs25!)
author
Tim Vaughan
<tgvaughan@gmail.com>
Wed, 12 Jun 2019 20:50:08 +0000
(22:50 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Wed, 12 Jun 2019 20:50:08 +0000
(22:50 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
16b4cba
..
361e1a3
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-187,15
+187,15
@@
use as the start page."
(defun elpher-address-selector (address)
"Retrieve selector from ADDRESS."
(defun elpher-address-selector (address)
"Retrieve selector from ADDRESS."
- (
car address
))
+ (
elt address 0
))
(defun elpher-address-host (address)
"Retrieve host from ADDRESS."
(defun elpher-address-host (address)
"Retrieve host from ADDRESS."
- (
cadr address
))
+ (
elt address 1
))
(defun elpher-address-port (address)
"Retrieve port from ADDRESS."
(defun elpher-address-port (address)
"Retrieve port from ADDRESS."
- (
caddr address
))
+ (
elt address 2
))
;; Node
;; Node
@@
-323,7
+323,7
@@
content and cursor position fields of the node."
(if type-map-entry
(let ((getter (car type-map-entry))
(margin-code (cadr type-map-entry))
(if type-map-entry
(let ((getter (car type-map-entry))
(margin-code (cadr type-map-entry))
- (face (
caddr type-map-entry
)))
+ (face (
elt type-map-entry 2
)))
(elpher-insert-margin margin-code)
(insert-text-button display-string
'face face
(elpher-insert-margin margin-code)
(insert-text-button display-string
'face face