From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Jul 2021 16:32:34 +0000 (+0200)
Subject: Add more car/cdr examples to shortdoc
X-Git-Tag: emacs-28.0.90~1851
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f5738eb8fc7556b69016976dfa810f7e6275bf8;p=emacs.git

Add more car/cdr examples to shortdoc

* lisp/emacs-lisp/shortdoc.el (list): Add more car/cdr examples.
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index dbf16967bcf..3a32f632573 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -503,9 +503,13 @@ There can be any number of :example/:result elements."
   (flatten-tree
    :eval (flatten-tree '(1 (2 3) 4)))
   (car
-   :eval (car '(one two three)))
+   :eval (car '(one two three))
+   :eval (car '(one . two))
+   :eval (car nil))
   (cdr
-   :eval (cdr '(one two three)))
+   :eval (cdr '(one two three))
+   :eval (cdr '(one . two))
+   :eval (cdr nil))
   (last
    :eval (last '(one two three)))
   (butlast