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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0539095020e4a81b65f468da71ffe1ed015a130..2f14c6eedebf22c9979ec641a0f9685cbaa5783b 100644 (file)
--- 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 781a928ac50f803d830f714349e8324b9f04e2f9..5ff763448209c9a5095dc551f2811cb9a67fdca4 100644 (file)
--- 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