From a646fc6d364ea4380d53c38b47475a7c371f6b34 Mon Sep 17 00:00:00 2001
From: Boruch Baum <boruch_baum@gmx.com>
Date: Tue, 26 Feb 2019 10:49:47 -0500
Subject: [PATCH] BUGFIX github issue #20 (reverts part of commit 99db1df)

---
 ChangeLog   | 8 ++++++++
 w3m-hist.el | 2 +-
 w3m-proc.el | 2 +-
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 866a3c7cc..3a374875d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2019-02-26  Boruch Baum  <boruch_baum@gmx.com>
+
+	* w3m-proc.el (w3m-process-new): BUGFIX: gihub issue #20 (reverts part
+	of commit 99db1df).
+
+	* w3m-hist.el (w3m-history-slimmed-history-flat): BUGFIX: gihub issue
+	#20 (reverts part of commit 99db1df).
+
 2019-02-25  Boruch Baum  <boruch_baum@gmx.com>
 
 	* w3m-favicon.el (w3m-favicon-convert): bugfix: check string bounds
diff --git a/w3m-hist.el b/w3m-hist.el
index 72ab6c10c..5d500d03a 100644
--- a/w3m-hist.el
+++ b/w3m-hist.el
@@ -695,7 +695,7 @@ it works although it may not be perfect."
 	flat-map new-flat)
     (dolist (l w3m-history-flat)
       (push (cons (nth 2 l) l) flat-map))
-    (setq new-flat (cdr (assoc position flat-map)))
+    (setq new-flat (cons (cdr (assoc position flat-map)) nil))
     (let ((pos (w3m-history-previous-position position)))
       (while pos
 	(push (cdr (assoc pos flat-map)) new-flat)
diff --git a/w3m-proc.el b/w3m-proc.el
index 2c5dee939..b42a8c52a 100644
--- a/w3m-proc.el
+++ b/w3m-proc.el
@@ -142,7 +142,7 @@
 (put 'w3m-process-new 'edebug-form-spec '(form form form &optional form form))
 (defmacro w3m-process-new (command arguments buffer &optional process handlers)
   "Return a new `w3m-process' object."
-  `(list ,command ,arguments
+  `(cons (cons ,command ,arguments)
 	 (vector 'w3m-process-object
 		 ,buffer
 		 ,process