GNU bug report logs - #60279
[PATCH] Add `string-or-null-p', `char-or-string-p', `char-uppercase-p'

Previous Next

Full log

View this message in rfc822 format

From: Xi Lu <lx <at> shellcodes.org>
To: 60279 <at> debbugs.gnu.org
Cc: Xi Lu <lx <at> shellcodes.org>
Subject: bug#60279: [PATCH] Add `string-or-null-p', `char-or-string-p', `char-uppercase-p'
Date: Fri, 23 Dec 2022 23:50:39 +0800

---
 lisp/emacs-lisp/shortdoc.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 6704db3cc5..90f81d740f 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -263,6 +263,12 @@ string
    :eval (stringp "a")
    :eval (stringp 'a)
    :eval "(stringp ?a)")
+  (string-or-null-p
+   :eval (string-or-null-p "a")
+   :eval (string-or-null-p nil))
+  (char-or-string-p
+   :eval "(char-or-string-p ?a)"
+   :eval (char-or-string-p "a"))
   (string-empty-p
    :no-manual t
    :eval (string-empty-p ""))
@@ -300,6 +306,9 @@ string
    :eval (string-to-number "2.5e+03"))
   (number-to-string
    :eval (number-to-string 42))
+  (char-uppercase-p
+   :eval "(char-uppercase-p ?A)"
+   :eval "(char-uppercase-p ?a)")
   "Data About Strings"
   (length
    :eval (length "foo")
-- 
2.38.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.