diff options
| -rw-r--r-- | lisp/dnd.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index 7eb43f5baab..9d72a4b5958 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el | |||
| @@ -112,7 +112,9 @@ program." | |||
| 112 | "Handle mouse movement to POSN when receiving a drop from another program." | 112 | "Handle mouse movement to POSN when receiving a drop from another program." |
| 113 | (when (windowp (posn-window posn)) | 113 | (when (windowp (posn-window posn)) |
| 114 | (with-selected-window (posn-window posn) | 114 | (with-selected-window (posn-window posn) |
| 115 | (when dnd-scroll-margin | 115 | (when (and dnd-scroll-margin |
| 116 | ;; TODO: handle scroll bars reasonably. | ||
| 117 | (not (posn-area posn))) | ||
| 116 | (ignore-errors | 118 | (ignore-errors |
| 117 | (let* ((row (cdr (posn-col-row posn))) | 119 | (let* ((row (cdr (posn-col-row posn))) |
| 118 | (window (when (windowp (posn-window posn)) | 120 | (window (when (windowp (posn-window posn)) |