(server-visit-files): Fix variable name typo.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0539095020..2f14c6eedeb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
+2001-07-20  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * server.el (server-visit-files): Fix variable name typo.
+
 2001-07-20  Gerd Moellmann  <gerd@gnu.org>
 
-        * simple.el (delete-trailing-whitespace): Save match data 
+        * simple.el (delete-trailing-whitespace): Save match data
         around looking-at.  From Markus Rost <rost@math.ohio-state.edu>.
 
 2001-07-19  Stefan Monnier  <monnier@cs.yale.edu>
diff --git a/lisp/server.el b/lisp/server.el
index 781a928ac50..5ff76344820 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -335,7 +335,7 @@ so don't mark these buffers specially, just visit them normally."
               (goto-line (nth 1 (car files)))
               (let ((column-number (nth 2 (car files))))
                 (when (> column-number 0)
-                  (move-to-column (1- column))))
+                  (move-to-column (1- column-number))))
               (run-hooks 'server-visit-hook)))
           (if (not nowait)
               (setq server-buffer-clients