From 4c8172467533d70e6d2d0a58f527a84a7e59355a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 20 Jun 2020 10:29:37 +0300 Subject: [PATCH] Don't use 'cl' functions in ELisp manual's examples * doc/lispref/control.texi (pcase Macro): Use 'cl-evenp' instead of 'evenp'. (Bug#41947) --- doc/lispref/control.texi | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi index 01ae94ea7dd..d2419f415bf 100644 --- a/doc/lispref/control.texi +++ b/doc/lispref/control.texi @@ -959,8 +959,9 @@ For example, the following is invalid: @example @group +(require 'cl-lib) (pcase (read-number "Enter an integer: ") - ((or (and (pred evenp) + ((or (and (pred cl-evenp) e-num) ; @r{bind @code{e-num} to @var{expval}} o-num) ; @r{bind @code{o-num} to @var{expval}} (list e-num o-num))) @@ -984,9 +985,10 @@ Reworking the above example: @example @group +(require 'cl-lib) (pcase (read-number "Enter an integer: ") ((and num ; @r{line 1} - (or (and (pred evenp) ; @r{line 2} + (or (and (pred cl-evenp) ; @r{line 2} (let spin 'even)) ; @r{line 3} (let spin 'odd))) ; @r{line 4} (list spin num))) ; @r{line 5} -- 2.39.2