[Emacs-diffs] trunk r117552: * lisp/xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil.

[Stefan Monnier]

------------------------------------------------------------
revno: 117552
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18015
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2014-07-19 12:56:40 -0400
message:
  * lisp/xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/xt-mouse.el               xtmouse.el-20091113204419-o5vbwnq5f7feedwu-905

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-19 01:43:29 +0000
+++ b/lisp/ChangeLog    2014-07-19 16:56:40 +0000
@@ -1,5 +1,8 @@
 2014-07-19  Stefan Monnier  <address@hidden>
 
+       * xt-mouse.el (xterm-mouse-event): Don't assume last-click is non-nil
+       (bug#18015).
+
        * rect.el (rectangle--string-preview): Don't assume there
        a non-nil default (bug#17984).
 

=== modified file 'lisp/xt-mouse.el'
--- a/lisp/xt-mouse.el  2014-07-08 18:47:47 +0000
+++ b/lisp/xt-mouse.el  2014-07-19 16:56:40 +0000
@@ -250,7 +250,7 @@
            ((not (string-match "down-" name))
             ;; For up events, make the up side match the down side.
             (setq this-time last-time)
-            (when (and (> click-count 1)
+            (when (and click-count (> click-count 1)
                        (string-match "down-" last-name)
                        (equal name (replace-match "" t t last-name)))
               (xterm-mouse--set-click-count event click-count)))