;ELC ;;; Compiled by handa@melange.gnu.org on Mon Feb 2 21:18:24 1998 ;;; from file /gd/gnu/emacs/lisp/mldrag.el ;;; in Emacs version 20.2.86.2 ;;; with bytecomp version 2.35 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mldrag.el' was compiled for Emacs 19.29 or later")) (provide 'mldrag) #@279 Change the height of the current window with the mouse. This command should be bound to a down-mouse- event, and is most usefully bound with the `mode-line' prefix. Holding down a mouse button and moving the mouse up and down will make the clicked-on window taller or shorter. (defalias 'mldrag-drag-mode-line #[(start-event) "\306\307\310A@@!A@@\311\312!\313 \306\211\211\211\211\211\211\211\211\211\211 \314 \315\n\236A\211 \204P\316\312!\203P\317\320!\210\321\216\322 .\207" [start-event growth params wconfig edges bot nil 0 window-frame count-windows t selected-window frame-parameters minibuffer one-window-p error "Attempt to resize sole window" ((select-window old-selected-window)) (lambda nil (track-mouse (byte-code "\306!\210 \205\307\310!?\205\311 !A@\312\311 8U ?\205\332\313 \314 \f\250\2030\310\211\202\f@\315=\204\f@\316>\204D\310\211\202 @=\203 A@\203 AA\311 \211A@\3128Z\317ZW\203|\\\317\\Z\317Z\320 \n\203\266\306 !\210\321V\203\251\322 !Z\323W\203\251\322 !S\324[!\210\306!\210\202\273\324!\210\325\310!U\203\322\n\204\311 A@U\204\326!\210\202\207" [start-event-window minibuffer should-enlarge-minibuffer done event mouse select-window one-window-p t window-edges 3 read-event mouse-position switch-frame (mouse-movement scroll-bar-movement) -1 current-window-configuration 0 window-height 1 enlarge-window count-windows set-window-configuration start-event-frame y edges top bot window-min-height growth wconfig start-nwindows] 4))) top y mouse event should-enlarge-minibuffer old-selected-window start-nwindows start-event-window start-event-frame echo-keystrokes done] 17 (#$ . 547) "e"]) #@313 Change the width of the current window with the mouse. This command should be bound to a down-mouse- event, and is most usefully bound with the `vertical-line' or the `vertical-scroll-bar' prefix. Holding down a mouse button and moving the mouse left and right will make the clicked-on window thinner or wider. (defalias 'mldrag-drag-vertical-line #[(start-event) "\306\307\310\nA@@!\311\312 \236A\313=\nA@@\314\315!\316 \306\306\306\306 \306\306\306 \306!\317\315!\203C\320\321!\210\f\203W\322 !@\307U\203g\320\323!\210\202g\324\322 !8\325 !Y\203g\320\326!\210\327\216\330 .\207" [done echo-keystrokes start-event start-event-frame scroll-bar-left start-event-window nil 0 window-frame vertical-scroll-bars frame-parameters left count-windows t selected-window one-window-p error "Attempt to resize sole ordinary window" window-edges "Attempt to drag leftmost scrollbar" 2 frame-width "Attempt to drag rightmost scrollbar" ((select-window old-selected-window)) (lambda nil (track-mouse (byte-code "\306!\210 ?\205\302\307 \310 \n\250\203\311\211\202\n@\312=\204\n@\313>\204.\311\211\202 @\f=\203 A@\203 A@\314 \211@\3158\203e ZW\203yZ\202y Z\316ZW\203y\\\316\\\203\205 Z\202\213 Z\316Z\317 \320\311\"\210\321\311!U\203\272\203\260\315\314 8U?\202\267\314 @U?\203\322!\210\202\207" [start-event-window done event mouse start-event-frame x select-window read-event mouse-position t switch-frame (mouse-movement scroll-bar-movement) window-edges 2 -1 current-window-configuration enlarge-window count-windows set-window-configuration edges left right scroll-bar-left window-min-width growth wconfig start-nwindows] 4))) start-nwindows old-selected-window event mouse x right edges wconfig growth] 3 (#$ . 2288) "e"])