Properly translate touch screen events into mouse drag ones

* doc/lispref/commands.texi (Drag Events): Correct misleading
example form and reword subsequent elaboration.

* lisp/touch-screen.el (touch-screen-handle-point-up)
<mouse-drag>: Set posns representing drag start and terminus to
mouse position lists, in lieu of pairs between windows and posns
employed previously.
10 jobs for master in 179 minutes and 33 seconds (queued for 6 seconds)
Status Job ID Name Coverage
  Build Images
passed #74931
build-image-inotify

01:15:01

 
  Normal
failed #74932
test-all-inotify

01:44:19

 
  Platform Images
failed #74933
build-image-eglot

00:05:53

failed #74935
build-image-gnustep

00:05:50

passed #74934
build-image-tree-sitter

01:16:51

 
  Platforms
skipped #74936
test-eglot
skipped #74938
test-gnustep
passed #74937
test-tree-sitter

00:02:08

 
  Native Comp Images
passed #74939
build-native-comp-speed2

01:34:36

 
  Native Comp
failed #74940
test-native-comp-speed2

00:57:32

 
Name Stage Failure
failed
test-all-inotify Normal
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
$ find ${test_name} -type d -depth -exec rmdir {} + 2>/dev/null
Uploading artifacts...
test-all-inotify-ad2bb3e9/: found 531 matching files
Uploading artifacts to coordinator... ok
id=74932 responseStatus=201 Created token=pk1PAFuP
Uploading artifacts...
test-all-inotify-ad2bb3e9/junit-test-report.xml: found 1 matching files

Uploading artifacts to coordinator... ok
id=74932 responseStatus=201 Created token=pk1PAFuP
ERROR: Job failed: exit code 2
failed
test-native-comp-speed2 Native Comp
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
$ find ${test_name} -type d -depth -exec rmdir {} + 2>/dev/null
Uploading artifacts...
test-native-comp-speed2-ad2bb3e9/: found 531 matching files
Uploading artifacts to coordinator... ok
id=74940 responseStatus=201 Created token=jvePkQ1w
Uploading artifacts...
test-native-comp-speed2-ad2bb3e9/junit-test-report.xml: found 1 matching files

Uploading artifacts to coordinator... ok
id=74940 responseStatus=201 Created token=jvePkQ1w
ERROR: Job failed: exit code 2
failed
build-image-eglot Platform Images
 > [internal] load build context:
------
rpc error: code = Unavailable desc = transport is closing
Running after script...
$ test -n "$(docker ps -aq -f name=${test_name})" && docker cp ${test_name}:checkout/test ${test_name}
$ test -n "$(docker ps -aq -f name=${test_name})" && docker rm ${test_name}
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
find: build-image-eglot-ad2bb3e9: No such file or directory
ERROR: Job failed: exit code 1
failed
build-image-gnustep Platform Images
 > [internal] load build context:
------
rpc error: code = Unavailable desc = transport is closing
Running after script...
$ test -n "$(docker ps -aq -f name=${test_name})" && docker cp ${test_name}:checkout/test ${test_name}
$ test -n "$(docker ps -aq -f name=${test_name})" && docker rm ${test_name}
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
find: build-image-gnustep-ad2bb3e9: No such file or directory
ERROR: Job failed: exit code 1