mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

* term/w32-win.el (w32-drag-n-drop): Use mapc instead of mapcar.

Browse source 
* 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.
This commit is contained in:
Dan Nicolaescu 2007-09-23 00:38:44 +00:00
parent f3de57e906
commit f7ba2ff462
5 changed files with 16 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -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> 2007-09-22 Juri Linkov <juri@jurta.org>
* textmodes/org.el (org-confirm-shell-link-function): Doc fix. * textmodes/org.el (org-confirm-shell-link-function): Doc fix.

2
lisp/term/sun-mouse.el
View file

@ -501,7 +501,7 @@ If there is no documentation string, then the string
(defun print-mouse-format (binding) (defun print-mouse-format (binding)
(princ (car binding)) (princ (car binding))
(princ ": ") (princ ": ")
(mapcar (function (mapc (function
(lambda (mouse-list) (lambda (mouse-list)
(princ mouse-list) (princ mouse-list)
(princ " "))) (princ " ")))

4
lisp/term/sun.el
View file

@ -32,12 +32,12 @@
(defun scroll-down-in-place (n) (defun scroll-down-in-place (n)
(interactive "p") (interactive "p")
(previous-line n) (forward-line (- n))
(scroll-down n)) (scroll-down n))
(defun scroll-up-in-place (n) (defun scroll-up-in-place (n)
(interactive "p") (interactive "p")
(next-line n) (forward-line n)
(scroll-up n)) (scroll-up n))
(defun kill-region-and-unmark (beg end) (defun kill-region-and-unmark (beg end)

2
lisp/term/tvi970.el
View file

@ -37,7 +37,7 @@
;; (define-key local-function-key-map "\eO" (make-keymap))) ;; (define-key local-function-key-map "\eO" (make-keymap)))
;; Miscellaneous keys ;; Miscellaneous keys
(mapcar (function (lambda (key-binding) (mapc (function (lambda (key-binding)
(define-key local-function-key-map (define-key local-function-key-map
(car key-binding) (nth 1 key-binding)))) (car key-binding) (nth 1 key-binding))))
'( '(

2
lisp/term/w32-win.el
View file

@ -112,7 +112,7 @@ Switch to a buffer editing the last file dropped."
(y (cdr coords))) (y (cdr coords)))
(if (and (> x 0) (> y 0)) (if (and (> x 0) (> y 0))
(set-frame-selected-window nil window)) (set-frame-selected-window nil window))
(mapcar (lambda (file-name) (mapc (lambda (file-name)
(let ((f (subst-char-in-string ?\\ ?/ file-name)) (let ((f (subst-char-in-string ?\\ ?/ file-name))
(coding (or file-name-coding-system (coding (or file-name-coding-system
default-file-name-coding-system))) default-file-name-coding-system)))