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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22f542dd5ed1a2f468a7a7e1a14eb7b5af6b1836..8223a7b06a5fb4137686e377fea8282cbe99b370 100644 (file)
--- 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 f4c34f74d9c4c468be1a4816bd9b2fd57cbb249a..d3e85508b03c97c40546462df6d7cf725d4f14c3 100644 (file)
--- 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 ea7d9325f8917e77f525ab27cd075b6c1621405b..b3ee0ec458ebf027649ee6e2ac48fc2b7ef2548c 100644 (file)
--- 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 d090df55411f2cb07dd8b3e6fa6e90078ae6658f..1898153cf2ae81cfeb86ee7a51a872e5dcc5e624 100644 (file)
--- 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 5c3a1aae62e1163d48f4a6cc958f056807da1581..51a25482be720eb7536a050fe0cbb9ab064e64eb 100644 (file)
--- 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)))