Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5368:ed74d2ca7082 5369:4141aeddc55b
1779 ;; of left edges to change, but only to the same 1779 ;; of left edges to change, but only to the same
1780 ;; new value. Similar procedure is for the right edges. 1780 ;; new value. Similar procedure is for the right edges.
1781 (let ((all-that-bad nil) 1781 (let ((all-that-bad nil)
1782 (new-left-ok nil) 1782 (new-left-ok nil)
1783 (new-right-ok nil)) 1783 (new-right-ok nil))
1784 (mapcar* (lambda (window old-edges) 1784 (mapc (lambda (window old-edges)
1785 (let ((new (car (window-pixel-edges window)))) 1785 (let ((new
1786 (if (/= new (car old-edges)) 1786 (car (window-pixel-edges window))))
1787 (if (and new-left-ok 1787 (if (/= new (car old-edges))
1788 (/= new-left-ok new)) 1788 (if (and new-left-ok
1789 (setq all-that-bad t) 1789 (/= new-left-ok new))
1790 (setq new-left-ok new))))) 1790 (setq all-that-bad t)
1791 (window-list) old-edges-all-windows) 1791 (setq new-left-ok new)))))
1792 (mapcar* (lambda (window old-edges) 1792 (window-list) old-edges-all-windows)
1793 (let ((new (caddr (window-pixel-edges window)))) 1793 (mapc (lambda (window old-edges)
1794 (if (/= new (caddr old-edges)) 1794 (let ((new
1795 (if (and new-right-ok 1795 (caddr (window-pixel-edges window))))
1796 (/= new-right-ok new)) 1796 (if (/= new (caddr old-edges))
1797 (setq all-that-bad t) 1797 (if (and new-right-ok
1798 (setq new-right-ok new))))) 1798 (/= new-right-ok new))
1799 (window-list) old-edges-all-windows) 1799 (setq all-that-bad t)
1800 (setq new-right-ok new)))))
1801 (window-list) old-edges-all-windows)
1800 all-that-bad)) 1802 all-that-bad))
1801 (set-window-configuration backup-conf))))))))) 1803 (set-window-configuration backup-conf)))))))))
1802 1804
1803 (setq vertical-divider-map (make-keymap)) 1805 (setq vertical-divider-map (make-keymap))
1804 (define-key vertical-divider-map 'button1 'drag-window-divider) 1806 (define-key vertical-divider-map 'button1 'drag-window-divider)