Improve formatting of bindings in 'help-quick'

* lisp/help.el (help-quick): Prevent format's padding from extending
text properties beyond the initial string containing the key binding.
10 jobs for master in 100 minutes and 55 seconds (queued for 6 seconds)
Status Job ID Name Coverage
  Build Images
passed #75252
build-image-inotify

01:02:36

 
  Normal
failed #75253
test-all-inotify

00:38:11

 
  Platform Images
passed #75254
build-image-eglot

01:02:28

failed #75256
build-image-gnustep

00:03:49

failed #75255
build-image-tree-sitter

00:07:36

 
  Platforms
passed #75257
test-eglot

00:03:25

skipped #75259
test-gnustep
skipped #75258
test-tree-sitter
 
  Native Comp Images
failed #75260
build-native-comp-speed2

00:07:30

 
  Native Comp
skipped #75261
test-native-comp-speed2
 
Name Stage Failure
failed
test-all-inotify Normal
Uploading artifacts for failed job
Uploading artifacts...
test-all-inotify-63a6fb2a/: found 531 matching files and directories

Uploading artifacts as "archive" to coordinator... 201 Created
id=75253 responseStatus=201 Created token=dTj24vLZ
Uploading artifacts...
test-all-inotify-63a6fb2a/junit-test-report.xml: found 1 matching files and directories

Uploading artifacts as "junit" to coordinator... 201 Created
id=75253 responseStatus=201 Created token=dTj24vLZ
Cleaning up project directory and file based variables
ERROR: Job failed: exit code 2

failed
build-image-tree-sitter 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-tree-sitter-63a6fb2a: No such file or directory
ERROR: Job failed: exit code 1
failed
build-native-comp-speed2 Native Comp 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-native-comp-speed2-63a6fb2a: No such file or directory
ERROR: Job failed: exit code 1
failed
build-image-gnustep Platform Images
Error response from daemon: Get "https://emba.gnu.org:5050/v2/": Get "https://emba.gnu.org//jwt/auth?account=gitlab-ci-token&client_id=docker&offline_token=true&service=container_registry": net/http: request canceled (Client.Timeout exceeded while awaiting headers) (Client.Timeout exceeded while awaiting headers)
Running after_script
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-63a6fb2a: No such file or directory
Cleaning up project directory and file based variables
ERROR: Job failed: exit code 1