[Emacs-diffs] trunk r112917: lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112917
revision-id: address@hidden
parent: address@hidden
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-06-10 22:28:35 +0000
message:
  lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-10 22:12:47 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-10 22:28:35 +0000
@@ -1,5 +1,7 @@
 2013-06-10  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * eww.el (eww-tag-form): Protect against degenerate forms.
+
        * shr.el (shr-expand-url): Expand URLs that start with a slash
        correctly.
 

=== modified file 'lisp/gnus/eww.el'
--- a/lisp/gnus/eww.el  2013-06-10 22:12:47 +0000
+++ b/lisp/gnus/eww.el  2013-06-10 22:28:35 +0000
@@ -177,8 +177,9 @@
     (shr-ensure-paragraph)
     (shr-generic cont)
     (shr-ensure-paragraph)
-    (put-text-property start (1+ start)
-                      'eww-form eww-form)))
+    (when (> (point) start)
+      (put-text-property start (1+ start)
+                        'eww-form eww-form))))
 
 (defun eww-tag-input (cont)
   (let* ((start (point))