From 83303b75dd07ede972149086bbe72b20fbf3227b Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Thu, 30 May 2019 00:42:28 +0200 Subject: [PATCH] Revert "Child node caches now retained after reload." This introduced way too much magic, particularly when working with sites under development. Needs a rethink. This reverts commit a2bd528ecef17be619e0fff57108d7d7304833a1. --- elpher.el | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/elpher.el b/elpher.el index d4c582a..6e7a365 100644 --- a/elpher.el +++ b/elpher.el @@ -199,9 +199,6 @@ use as the start page." ;; Node -(defvar elpher-seen-nodes (make-hash-table :test 'equal) - "Table mapping addresses to existing (seen) node objects.") - (defun elpher-make-node (parent address getter &optional content pos) "Create a node in the gopher page hierarchy. @@ -210,16 +207,8 @@ the gopher page, GETTER provides the getter function used to obtain this page. The optional arguments CONTENT and POS can be used to fill the cached -content and cursor position fields of the node. - -If the hash table `elpher-seen-nodes' contains a key equal to ADDRESS, -the node contained as its value will be returned instead." - (let ((existing-node (gethash address elpher-seen-nodes))) - (if existing-node - existing-node - (let ((new-node (list parent address getter content pos))) - (puthash address new-node elpher-seen-nodes) - new-node)))) +content and cursor position fields of the node." + (list parent address getter content pos)) (defun elpher-node-parent (node) "Retrieve the parent node of NODE." -- 2.20.1