(posn-set-point): Fix typos: parameter is `position', not `posn'.

diff --git a/lisp/subr.el b/lisp/subr.el
index d93ffa7150ba575bd96c01473d2214c3523cfda5..39a9caa3106a36e5d4eb9752e6a6387831140416 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -731,11 +731,11 @@ and `event-end' functions."
 (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.