From: Po Lu <luangruo@yahoo.com>
Date: Thu, 7 Dec 2023 05:14:51 +0000 (+0800)
Subject: ; Fix compiler warnings
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=451e00e7862122e768db553034b2ed734629e6ba;p=emacs.git

; Fix compiler warnings

* lisp/tab-bar.el (touch-screen-delay):

* lisp/tab-line.el (touch-screen-delay): Declare variables.

* lisp/touch-screen.el (touch-screen-hold): Autoload.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index e21367255a0..4fda4b027a6 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -416,6 +416,8 @@ Beep, then throw to `context-menu' and return."
   (beep)
   (throw 'context-menu 'context-menu))
 
+(defvar touch-screen-delay)
+
 (defun tab-bar-touchscreen-begin (event)
   "Handle a touchscreen begin EVENT on the tab bar.
 
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 4637dafcd90..0c9ef72084b 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -958,6 +958,8 @@ sight of the tab line."
 
 ;;; Touch screen support.
 
+(defvar touch-screen-delay)
+
 (defun tab-line-track-tap (event &optional function)
   "Track a tap starting from EVENT.
 If EVENT is not a `touchscreen-begin' event, return t.
diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el
index be08ae1d3c8..bae0e097688 100644
--- a/lisp/touch-screen.el
+++ b/lisp/touch-screen.el
@@ -320,6 +320,7 @@ the event."
 
 ;;; Drag-to-select gesture.
 
+;;;###autoload
 (defun touch-screen-hold (event)
   "Handle a long press EVENT.
 Ding and select the window at EVENT, then activate the mark.  If