emacs-31 c6c8012d7ac: Fix 'mouse-drag-copy-region' = 'non-empty'

branch: emacs-31
commit c6c8012d7acf4f4579f7e487658eec34c59f1140
Author: Eli Zaretskii <[email protected]>
Commit: Eli Zaretskii <[email protected]>

    Fix 'mouse-drag-copy-region' = 'non-empty'
    
    * lisp/mouse.el (mouse-save-then-kill): Fix conditions for copying
    when 'mouse-drag-copy-region' is 'non-empty'.  (Bug#81366)
---
 lisp/mouse.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b6f167d8d87..dea7b190a1f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2388,8 +2388,8 @@ if `mouse-drag-copy-region' is non-nil)."
       (exchange-point-and-mark)
       (mouse-set-region-1)
       (when (and mouse-drag-copy-region
-                 (or (not (eq mouse-drag-copy-region 'non-empty))
-                     (not (/= (mark t) (point)))))
+                 (not (and (eq mouse-drag-copy-region 'non-empty)
+                           (= (mark t) (point)))))
         (kill-new (filter-buffer-substring (mark t) (point))))
       (setq mouse-save-then-kill-posn click-pt)))))