Subject: bug#60279: closed (Re: bug#60279: [PATCH] Add `string-or-null-p', `char-or-string-p', `char-uppercase-p')

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 24 Dec 2022 07:58:02 +0000

Your bug report

#60279: [PATCH] Add `string-or-null-p', `char-or-string-p', `char-uppercase-p'

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
60279: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=60279
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#60279: [PATCH] Add `string-or-null-p', `char-or-string-p', `char-uppercase-p'
From: Eli Zaretskii <[email-masked]>
To: Xi Lu <[email-masked]>
Cc: [email-masked]
Date: Sat, 24 Dec 2022 09:57:27 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

> Cc: Xi Lu <[email-masked]>
> From: Xi Lu <[email-masked]>
> Date: Fri, 23 Dec 2022 23:50:39 +0800
> 
> ---
>  lisp/emacs-lisp/shortdoc.el | 9 +++++++++
>  1 file changed, 9 insertions(+)

Thanks, installed on the emacs-29 branch.

Subject: [PATCH] Add `string-or-null-p', `char-or-string-p', `char-uppercase-p'
From: Xi Lu <[email-masked]>
To: [email-masked]
Cc: Xi Lu <[email-masked]>
Date: Fri, 23 Dec 2022 23:50:39 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

---
 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