Subject: bug#67390: 28; shorthands-font-lock-shorthands assumes shorthand uses same separator

From: Jonas Bernoulli <[email-masked]>
Date: Sat, 25 Nov 2023 17:01:51 +0100

Joseph Turner <[email-masked]> writes:

> +                          (car (shorthands--find-if
> +                                (lambda (short)
> +                                  (string-prefix-p short (match-string 1)))
> +                                read-symbol-shorthands #'car)))))

Or simply:
  (car (assoc (match-string 1)
              read-symbol-shorthands
              #'string-prefix-p))