changeset 98962:89d49db15c3c

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

--- a/doc/lispref/functions.texi	Tue Oct 21 09:19:37 2008 +0000
+++ b/doc/lispref/functions.texi	Tue Oct 21 09:21:02 2008 +0000
@@ -749,14 +749,17 @@
 @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