Cleanup.

diff --git a/elpher.el b/elpher.el
index e3cf717..9d4088e 100644 (file)
--- 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)
 
   "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)
 (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))
 
   "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))
 (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"))))
 
         (insert (propertize display-string 'face 'elpher-unknown)))
       (insert "\n"))))
 

-;; buffer-local

 (defvar elpher--gemini-page-headings nil
   "List of headings on the page.")
 
 (defvar elpher--gemini-page-headings nil
   "List of headings on the page.")