From c357fc3e474f125234ba8cd3f6a89fb113f214c0 Mon Sep 17 00:00:00 2001 From: plugd Date: Sat, 24 Jul 2021 23:05:08 +0200 Subject: [PATCH] Cleanup. --- elpher.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/elpher.el b/elpher.el index e3cf717..9d4088e 100644 --- a/elpher.el +++ b/elpher.el @@ -389,11 +389,6 @@ requiring gopher-over-TLS." "Create an ADDRESS object corresponding to the given special address symbol TYPE." type) -(defun elpher-make-start-page () - "Create the start page." - (elpher-make-page "Elpher Start Page" - (elpher-make-special-address 'start))) - (defun elpher-address-to-url (address) "Get string representation of ADDRESS, or nil if ADDRESS is special." (if (elpher-address-special-p address) @@ -493,6 +488,11 @@ If no address is defined, returns 0. (This is for compatibility with the URL li "Create a page with DISPLAY-STRING and ADDRESS." (list display-string address)) +(defun elpher-make-start-page () + "Create the start page." + (elpher-make-page "Elpher Start Page" + (elpher-make-special-address 'start))) + (defun elpher-page-display-string (page) "Retrieve the display string corresponding to PAGE." (elt page 0)) @@ -1458,7 +1458,6 @@ treatment that a separate function is warranted." (insert (propertize display-string 'face 'elpher-unknown))) (insert "\n")))) -;; buffer-local (defvar elpher--gemini-page-headings nil "List of headings on the page.") -- 2.20.1