From f7ba2ff462a972df9a66160f1cc0e259065d24d4 Mon Sep 17 00:00:00 2001
From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 23 Sep 2007 00:38:44 +0000
Subject: [PATCH] * 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.
---
 lisp/ChangeLog         | 11 +++++++++++
 lisp/term/sun-mouse.el |  2 +-
 lisp/term/sun.el       |  4 ++--
 lisp/term/tvi970.el    |  2 +-
 lisp/term/w32-win.el   |  2 +-
 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)))
-- 
2.39.5