From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 12 Jun 2019 20:50:08 +0000 (+0200)
Subject: Removed use of caddr (not defined in emacs25!)
X-Git-Tag: v1.1.1~2
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=9c8b6172fd0a040fe7e7f2d017a1ff522b14be35

Removed use of caddr (not defined in emacs25!)
---

diff --git a/elpher.el b/elpher.el
index 16b4cba..361e1a3 100644
--- a/elpher.el
+++ b/elpher.el
@@ -187,15 +187,15 @@ use as the start page."
 
 (defun elpher-address-selector (address)
   "Retrieve selector from ADDRESS."
-  (car address))
+  (elt address 0))
 
 (defun elpher-address-host (address)
   "Retrieve host from ADDRESS."
-  (cadr address))
+  (elt address 1))
 
 (defun elpher-address-port (address)
   "Retrieve port from ADDRESS."
-  (caddr address))
+  (elt address 2))
 
 ;; 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))
-              (face (caddr type-map-entry)))
+              (face (elt type-map-entry 2)))
           (elpher-insert-margin margin-code)
           (insert-text-button display-string
                               'face face