* term/w32-win.el (w32-drag-n-drop): Use mapc instead of mapcar.

* term/tvi970.el (terminal-init-tvi970): Likewise.

* term/sun-mouse.el (print-mouse-format): Likewise.

* term/sun.el (scroll-down-in-place, scroll-up-in-place): Use
forward-line instead of previous-line and next-line.

5 files changed, 16 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22f542dd5ed..8223a7b06a5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2007-09-23  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * term/w32-win.el (w32-drag-n-drop): Use mapc instead of mapcar.
+
+        * term/tvi970.el (terminal-init-tvi970): Likewise.
+
+        * term/sun-mouse.el (print-mouse-format): Likewise.
+
+        * term/sun.el (scroll-down-in-place, scroll-up-in-place): Use
+        forward-line instead of previous-line and next-line.
+
 2007-09-22  Juri Linkov  <juri@jurta.org>
 
         * textmodes/org.el (org-confirm-shell-link-function): Doc fix.
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index f4c34f74d9c..d3e85508b03 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -501,7 +501,7 @@ If there is no documentation string, then the string
 (defun print-mouse-format (binding)
   (princ (car binding))
   (princ ": ")
-  (mapcar (function
+  (mapc (function
            (lambda (mouse-list)
              (princ mouse-list)
              (princ " ")))
diff --git a/lisp/term/sun.el b/lisp/term/sun.el
index ea7d9325f89..b3ee0ec458e 100644
--- a/lisp/term/sun.el
+++ b/lisp/term/sun.el
@@ -32,12 +32,12 @@
 
 (defun scroll-down-in-place (n)
   (interactive "p")
-  (previous-line n)
+  (forward-line (- n))
   (scroll-down n))
 
 (defun scroll-up-in-place (n)
   (interactive "p")
-  (next-line n)
+  (forward-line n)
   (scroll-up n))
 
 (defun kill-region-and-unmark (beg end)
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el
index d090df55411..1898153cf2a 100644
--- a/lisp/term/tvi970.el
+++ b/lisp/term/tvi970.el
@@ -37,7 +37,7 @@
   ;;    (define-key local-function-key-map "\eO" (make-keymap)))
 
   ;; Miscellaneous keys
-  (mapcar (function (lambda (key-binding)
+  (mapc (function (lambda (key-binding)
                       (define-key local-function-key-map
                         (car key-binding) (nth 1 key-binding))))
           '(
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 5c3a1aae62e..51a25482be7 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -112,7 +112,7 @@ Switch to a buffer editing the last file dropped."
            (y (cdr coords)))
       (if (and (> x 0) (> y 0))
           (set-frame-selected-window nil window))
-      (mapcar (lambda (file-name)
+      (mapc (lambda (file-name)
                 (let ((f (subst-char-in-string ?\\ ?/ file-name))
                       (coding (or file-name-coding-system
                                   default-file-name-coding-system)))