emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 r117268: * lisp/mouse.el (mouse-drag-line): Don't


From: Stefan Monnier
Subject: [Emacs-diffs] emacs-24 r117268: * lisp/mouse.el (mouse-drag-line): Don't re-add to unread-comment-events,
Date: Fri, 20 Jun 2014 18:35:10 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117268
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Fri 2014-06-20 14:35:04 -0400
message:
  * lisp/mouse.el (mouse-drag-line): Don't re-add to unread-comment-events,
  since it's already done inside the loop       (bug#17819).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mouse.el                  mouse.el-20091113204419-o5vbwnq5f7feedwu-123
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-20 17:24:18 +0000
+++ b/lisp/ChangeLog    2014-06-20 18:35:04 +0000
@@ -1,3 +1,8 @@
+2014-06-20  Stefan Monnier  <address@hidden>
+
+       * mouse.el (mouse-drag-line): Don't re-add to unread-comment-events,
+       since it's already done inside the loop (bug#17819).
+
 2014-06-20  Martin Rudalics  <address@hidden>
 
        * mouse.el (mouse-drag-line): Re-remove code initially removed
@@ -6,6 +11,9 @@
 
 2014-06-20  Stefan Monnier  <address@hidden>
 
+       * mouse.el (mouse-drag-line): Remove left-over code made redundant by
+       mouse--down-1-maybe-follows-link (bug#17819).
+
        * progmodes/sh-script.el (sh-smie-sh-rules): For { after &&, don't
        align with the surrounding parent (bug#17721).
 

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2014-06-20 17:24:18 +0000
+++ b/lisp/mouse.el     2014-06-20 18:35:04 +0000
@@ -485,10 +485,7 @@
          (unless (zerop growth)
            (setq dragged t)
            (adjust-window-trailing-edge
-            window (if (eq line 'mode) growth (- growth)) nil t))))))
-    ;; Process the terminating event.
-    (unless dragged
-      (push event unread-command-events))))
+            window (if (eq line 'mode) growth (- growth)) nil t))))))))
 
 (defun mouse-drag-mode-line (start-event)
   "Change the height of a window by dragging on the mode line."


reply via email to

[Prev in Thread] Current Thread [Next in Thread]