Mercurial > emacs
changeset 84795:6aed7b3522e4
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 23 Sep 2007 00:38:44 +0000 |
| parents | 8d44536050a6 |
| children | a8b34a61039d |
| files | lisp/ChangeLog lisp/term/sun-mouse.el lisp/term/sun.el lisp/term/tvi970.el lisp/term/w32-win.el |
| diffstat | 5 files changed, 16 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 22 23:56:57 2007 +0000 +++ b/lisp/ChangeLog Sun Sep 23 00:38:44 2007 +0000 @@ -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.
--- a/lisp/term/sun-mouse.el Sat Sep 22 23:56:57 2007 +0000 +++ b/lisp/term/sun-mouse.el Sun Sep 23 00:38:44 2007 +0000 @@ -501,7 +501,7 @@ (defun print-mouse-format (binding) (princ (car binding)) (princ ": ") - (mapcar (function + (mapc (function (lambda (mouse-list) (princ mouse-list) (princ " ")))
--- a/lisp/term/sun.el Sat Sep 22 23:56:57 2007 +0000 +++ b/lisp/term/sun.el Sun Sep 23 00:38:44 2007 +0000 @@ -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)
--- a/lisp/term/tvi970.el Sat Sep 22 23:56:57 2007 +0000 +++ b/lisp/term/tvi970.el Sun Sep 23 00:38:44 2007 +0000 @@ -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)))) '(
--- a/lisp/term/w32-win.el Sat Sep 22 23:56:57 2007 +0000 +++ b/lisp/term/w32-win.el Sun Sep 23 00:38:44 2007 +0000 @@ -112,7 +112,7 @@ (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)))