Mercurial > hg > xemacs-beta

diff lisp/mouse.el @ 5369:4141aeddc55b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate byte-compile warnings, core Lisp. 2011-03-10 Aidan Kehoe <kehoea@parhasard.net> * etags.el (buffer-tag-table-list): * files.el (find-file-read-only): * files.el (find-file-read-only-other-window): * info.el (Info-dir-outdated-p): * info.el (Info-dump-dir-entries): * info.el (Info-rebuild-dir): * menubar-items.el (default-menubar): * mouse.el (drag-window-divider): * mouse.el (vertical-divider-map): * test-harness.el (emacs-lisp-file-regexp): Eliminate byte-compile warnings, again aside from those linked to Stephen's various non-defined fontconfig functions.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 10 Mar 2011 19:14:25 +0000
parents f00192e1cd49
children ac37a5f7e5be
line wrap: on
line diff
--- a/lisp/mouse.el	Thu Mar 10 18:51:15 2011 +0000
+++ b/lisp/mouse.el	Thu Mar 10 19:14:25 2011 +0000
@@ -1781,22 +1781,24 @@
 			 (let ((all-that-bad nil)
 			       (new-left-ok nil)
 			       (new-right-ok nil))
-			   (mapcar* (lambda (window old-edges)
-				      (let ((new (car (window-pixel-edges window))))
-					(if (/= new (car old-edges))
-					    (if (and new-left-ok
-						     (/= new-left-ok new))
-						(setq all-that-bad t)
-					      (setq new-left-ok new)))))
-				    (window-list) old-edges-all-windows)
-			   (mapcar* (lambda (window old-edges)
-				      (let ((new (caddr (window-pixel-edges window))))
-					(if (/= new (caddr old-edges))
-					    (if (and new-right-ok
-						     (/= new-right-ok new))
-						(setq all-that-bad t)
-					      (setq new-right-ok new)))))
-				    (window-list) old-edges-all-windows)
+			   (mapc (lambda (window old-edges)
+                                   (let ((new
+                                          (car (window-pixel-edges window))))
+                                     (if (/= new (car old-edges))
+                                         (if (and new-left-ok
+                                                  (/= new-left-ok new))
+                                             (setq all-that-bad t)
+                                           (setq new-left-ok new)))))
+                                 (window-list) old-edges-all-windows)
+			   (mapc (lambda (window old-edges)
+                                   (let ((new
+                                          (caddr (window-pixel-edges window))))
+                                     (if (/= new (caddr old-edges))
+                                         (if (and new-right-ok
+                                                  (/= new-right-ok new))
+                                             (setq all-that-bad t)
+                                           (setq new-right-ok new)))))
+                                 (window-list) old-edges-all-windows)
 			   all-that-bad))
 		     (set-window-configuration backup-conf)))))))))