# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1081974697 0
# Node ID a19fbbfac2800ea8bf06203f6dc278ef61901e17
# Parent  476bf87a815cdc3b40a5ade9df5ee0433e48d052
(posn-set-point): Fix typos: parameter is `position', not `posn'.

diff -r 476bf87a815c -r a19fbbfac280 lisp/subr.el
--- a/lisp/subr.el	Wed Apr 14 20:16:05 2004 +0000
+++ b/lisp/subr.el	Wed Apr 14 20:31:37 2004 +0000
@@ -731,11 +731,11 @@
 (defun posn-set-point (position)
   "Move point to POSITION.
 Select the corresponding window as well."
-    (if (not (windowp (posn-window posn)))
+    (if (not (windowp (posn-window position)))
 	(error "Position not in text area of window"))
-    (select-window (posn-window posn))
-    (if (numberp (posn-point posn))
-	(goto-char (posn-point posn))))
+    (select-window (posn-window position))
+    (if (numberp (posn-point position))
+	(goto-char (posn-point position))))
 
 (defsubst posn-x-y (position)
   "Return the x and y coordinates in POSITION.