;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Oct 30 13:23:43 1995 ;;; from file /home/fsf/rms/e19/lisp/mldrag.el ;;; emacs version 19.29.1.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`mldrag.el' was compiled for Emacs 19.29 or later")) (provide (quote 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) "ÀÁ A@@! A@@ÄÅ!Æ À‰‰‰‰‰‰‰‰‰‰ \n \f Ø ÎžA‰„WÙÅ!ƒWÚÛ!ˆÜŽÝ .‡" [nil 0 window-frame start-event count-windows t selected-window growth params wconfig edges bot top y minibuffer mouse event should-enlarge-minibuffer old-selected-window start-nwindows start-event-window start-event-frame echo-keystrokes done frame-parameters one-window-p error "Attempt to resize sole window" ((select-window old-selected-window)) (lambda nil (track-mouse (byte-code "À !ˆ\n…ÃÄ!?…Å\n!A@ÆÅ 8U?…èÉ \nË \f\n¨ƒ6ĉ‚\n@Í=„\n@Î>„Mĉ‚\f@=ƒ\fA@ƒ\fAAÅ ‰A@Æ8ZÔZWƒˆÔ\\\\ZÔZ× ƒÃÀ\n!ˆÙVƒ¶Ú\n!ZÛWƒ¶Ú\n!SÜ[!ˆÀ !ˆ‚ÈÜ!ˆÞÄ!Uƒà„Å A@U„ß!ˆ‚‡" [select-window start-event-window minibuffer one-window-p t window-edges 3 should-enlarge-minibuffer done read-event event mouse-position mouse switch-frame (mouse-movement scroll-bar-movement) start-event-frame y edges top bot -1 window-min-height growth current-window-configuration wconfig 0 window-height 1 enlarge-window start-nwindows count-windows set-window-configuration] 4)))] 17 (#$ . 498) "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) "ÀÁ A@@! A@@ÄÅ!Æ À‰‰‰‰‰‰‰ \n \f ÕÅ!ƒ?Ö×!ˆØÙ!8Ú!UƒQÖÛ!ˆÜŽÝ .‡" [nil 0 window-frame start-event count-windows t selected-window growth wconfig edges right left x mouse event old-selected-window start-nwindows start-event-window start-event-frame echo-keystrokes done one-window-p error "Attempt to resize sole ordinary window" 2 window-edges frame-width "Attempt to drag rightmost scrollbar" ((select-window old-selected-window)) (lambda nil (track-mouse (byte-code "À !ˆ\n?…–à Å \f¨ƒlj‚\f@È=„\f@É>„/lj‚@\n=ƒA@ƒA@ Ì ‰ @Ï 8 ZÑZWƒiÑ\\\\  ZÑZÔ ÖÇ\"ˆØÇ!UƒŽÌ @U„Ù!ˆ‚‡" [select-window start-event-window done read-event event mouse-position mouse t switch-frame (mouse-movement scroll-bar-movement) start-event-frame x window-edges edges left 2 right -1 window-min-width growth current-window-configuration wconfig enlarge-window start-nwindows count-windows set-window-configuration] 4)))] 14 (#$ . 1975) "e"])