bug#19253: M-x eww (G): does not add a eww-history entry

[Ivan Shmakov]

Package:  emacs
Severity: minor

        Using eww.el as of 52fab40c1606 (2014-12-01 17:56:02Z), the
        following sequence results in the “No eww-histories are defined”
        error.  And indeed, eww-history at this point is nil.

$ emacs -Q 
M-x eww RET https://example.org/ RET
G https://example.net/ RET
H

        Please consider the (first) patch MIMEd.

        * net/eww.el (eww): Moved history recording here...
        (eww-browse-url): ... from here.

        One another suggestion is to use generate-new-buffer in
        eww-browse-url, as per the second patch MIMEd.

        * net/eww.el (eww-browse-url): Use generate-new-buffer (was:
        iterating over possible buffer names.)

-- 
FSF associate member #7257  http://boycottsystemd.org/  … 3013 B6A0 230E 334A

--- a/lisp/net/eww.el   2014-12-01 17:56:02 +0000
+++ b/lisp/net/eww.el   2014-12-02 14:59:54 +0000
@@ -253,7 +253,10 @@ defun eww (url &optional no-save-history)
                  (setq url (concat url "/"))))
            (setq url (concat eww-search-prefix
                              (replace-regexp-in-string " " "+" url))))))
-  (unless (eq major-mode 'eww-mode)
+  (if (eq major-mode 'eww-mode)
+      (when (or (plist-get eww-data :url)
+               (plist-get eww-data :dom))
+       (eww-save-history))
     (eww-setup-buffer)
     (plist-put eww-data :url url)
     (eww-update-header-line-format)
@@ -685,10 +688,7 @@ defun eww-browse-url (url &optional new-window)
              (setq num (1+ num)
                    new-buffer (format "*eww*<%d>" num)))
            (switch-to-buffer new-buffer))
-         (eww-mode))
-        ((and (equal major-mode 'eww-mode)
-              (plist-get eww-data :url))
-         (eww-save-history)))
+         (eww-mode)))
   (eww url))
 
 (defun eww-back-url ()

--- a/lisp/net/eww.el   2014-12-02 14:59:54 +0000
+++ b/lisp/net/eww.el   2014-12-02 15:02:33 +0000
@@ -682,12 +682,7 @@
 ;;;###autoload
 (defun eww-browse-url (url &optional new-window)
   (cond (new-window
-         (let ((new-buffer "*eww*")
-               (num 0))
-           (while (get-buffer new-buffer)
-             (setq num (1+ num)
-                   new-buffer (format "*eww*<%d>" num)))
-           (switch-to-buffer new-buffer))
+        (switch-to-buffer (generate-new-buffer "*eww*"))
          (eww-mode)))
   (eww url))