(Calling Functions): Use `defalias' instead of `fset'. Fix wording.

diff --git a/doc/lispref/functions.texi b/doc/lispref/functions.texi
index e420e932fc7c77b6be537dced1a8a6b8bd41e7f5..e64cc030d6de4e93eefc7f2b2d32c9407d387aee 100644 (file)
--- a/doc/lispref/functions.texi
+++ b/doc/lispref/functions.texi
@@ -749,14 +749,17 @@ accepts @var{n} arguments, then a call to @code{apply-partially} with
 @w{@code{@var{m} < @var{n}}} arguments will produce a new function of
 @w{@code{@var{n} - @var{m}}} arguments.
 
-Here's an example of using @code{apply-partially} to produce a variant
-of the Emacs Lisp primitive @code{1+}, a function that increments its
-argument by one, based on the primitive @code{+}:
+Here's how we could define the built-in function @code{1+}, if it
+didn't exist, using @code{apply-partially} and @code{+}, another
+built-in function:
 
 @example
-(fset 'incr-by-one (apply-partially '+ 1))
 @group
-(incr-by-one 10)
+(defalias '1+ (apply-partially '+ 1)
+  "Increment argument by one.")
+@end group
+@group
+(1+ 10)
      @result{} 11
 @end group
 @end example