Don't hard-code 1 as point-min.

* lisp/image-mode.el (image-display-size):
* lisp/xwidget.el (xwidget-webkit-last-session)
(xwidget-webkit-current-session): Don't hard-code 1 as point-min.

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 38a25d2b7a63cbd4bf06b3dfe15ca4310963f472..e549b49001e0645a2897c623b6de89ee4a61a8a0 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -169,7 +169,7 @@ return the display size taking the slice property into account.  If the list
 contains `image' but not `slice', return the `image-size' of the specified
 image."
   (cond ((eq (car spec) 'xwidget)
-         (let ((xwi (xwidget-info (xwidget-at 1)))) ; FIXME point-min?
+         (let ((xwi (xwidget-info (xwidget-at (point-min)))))
            (cons (aref xwi 2) (aref xwi 3))))
         ((eq (car spec) 'image)
          (image-size spec pixels frame))

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 223f4f290b24a896cb3b78bb474db2b00c8e7f4a..0fb90c4573cbbb10687f4d5cb358fcebc466db9f 100644 (file)
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -245,15 +245,13 @@ XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget."
   "Last active webkit, or nil."
   (if (buffer-live-p xwidget-webkit-last-session-buffer)
       (with-current-buffer xwidget-webkit-last-session-buffer
-        (xwidget-at 1))
+        (xwidget-at (point-min)))
     nil))
 
 (defun xwidget-webkit-current-session ()
   "Either the webkit in the current buffer, or the last one used.
 The latter might be nil."
-  (if (xwidget-at 1)
-      (xwidget-at 1)
-    (xwidget-webkit-last-session)))
+  (or (xwidget-at (point-min)) (xwidget-webkit-last-session)))
 
 (defun xwidget-adjust-size-to-content (xw)
   "Resize XW to content."