From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 20 Jul 2021 12:06:40 +0000 (+0200)
Subject: Tweak example in Function Indirection node in the lispref manual
X-Git-Tag: emacs-28.0.90~1794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0499294a3612d7ba34c5385e11ab0ac1f1cb3416;p=emacs.git

Tweak example in Function Indirection node in the lispref manual

* doc/lispref/eval.texi (Function Indirection): Make example more
robust (bug#49647).  Suggested by Scott Marks
<scott.c.marks@gmail.com>.
---

diff --git a/doc/lispref/eval.texi b/doc/lispref/eval.texi
index 448b8ae17ab..7893895eee9 100644
--- a/doc/lispref/eval.texi
+++ b/doc/lispref/eval.texi
@@ -350,7 +350,8 @@ Here is how you could define @code{indirect-function} in Lisp:
 
 @example
 (defun indirect-function (function)
-  (if (symbolp function)
+  (if (and function
+           (symbolp function))
       (indirect-function (symbol-function function))
     function))
 @end example