master 0499294: Tweak example in Function Indirection node in the lispref manual

[Lars Ingebrigtsen]

branch: master
commit 0499294a3612d7ba34c5385e11ab0ac1f1cb3416
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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>.
---
 doc/lispref/eval.texi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/doc/lispref/eval.texi b/doc/lispref/eval.texi
index 448b8ae..7893895 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