diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-09-23 00:38:44 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-09-23 00:38:44 +0000 |
commit | f7ba2ff462a972df9a66160f1cc0e259065d24d4 (patch) | |
tree | 5c1bc8b8dc6d89b3bd112d951fa95c31aad65fbf /lisp/term | |
parent | f3de57e90690ed39ed98260b518491981ae6f0df (diff) | |
download | emacs-f7ba2ff462a972df9a66160f1cc0e259065d24d4.tar.gz |
* 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.
Diffstat (limited to 'lisp/term')
-rw-r--r-- | lisp/term/sun-mouse.el | 2 | ||||
-rw-r--r-- | lisp/term/sun.el | 4 | ||||
-rw-r--r-- | lisp/term/tvi970.el | 2 | ||||
-rw-r--r-- | lisp/term/w32-win.el | 2 |
4 files changed, 5 insertions, 5 deletions
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))) |