branch: externals/show-font commit f8e4484bcdbc7109ecd6af4b2d4fe4c71df334a3 Author: Protesilaos Stavrou <i...@protesilaos.com> Commit: Protesilaos Stavrou <i...@protesilaos.com>
Clarity show-font-pangram-p doc string --- show-font.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/show-font.el b/show-font.el index 3a52b1465b..479831e0e3 100644 --- a/show-font.el +++ b/show-font.el @@ -114,7 +114,10 @@ x×X .,·°;:¡!¿?`'‘’ ÄAÃÀ TODO (defun show-font-pangram-p (string &optional characters) "Return non-nil if STRING is a pangram. With optional CHARACTERS as a list of single character strings, test -that all of them occur at least once in STRING." +that all of them occur at least once in STRING. + +If there are characters missing from STRING, print them in a message and +return nil." (let ((missing-characters nil)) (dolist (character (or characters show-font-latin-alphabet)) (unless (string-match-p character string)