(defun xterm-mouse--handle-mouse-movement ()
"Handle mouse motion that was just generated for XTerm mouse."
- (display--update-for-mouse-movement (terminal-parameter nil 'xterm-mouse-frame)
- (terminal-parameter nil 'xterm-mouse-x)
- (terminal-parameter nil 'xterm-mouse-y)))
+ (when-let* ((frame (terminal-parameter nil 'xterm-mouse-frame)))
+ (display--update-for-mouse-movement
+ frame
+ (terminal-parameter nil 'xterm-mouse-x)
+ (terminal-parameter nil 'xterm-mouse-y))))
;; These two variables have been converted to terminal parameters.
;;