* 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

@@ -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.

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 " ")))

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)

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))))
 	  '(

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)))