538 |
(window (posn-window start)) |
(window (posn-window start)) |
539 |
(frame (window-frame window)) |
(frame (window-frame window)) |
540 |
(first-window (frame-first-window frame))) |
(first-window (frame-first-window frame))) |
541 |
(when (or (eq window first-window) |
(unless (or (eq window first-window) |
542 |
(= (nth 1 (window-edges window)) |
(= (nth 1 (window-edges window)) |
543 |
(nth 1 (window-edges first-window)))) |
(nth 1 (window-edges first-window)))) |
544 |
(error "Cannot move header-line at the top of the frame")) |
(mouse-drag-mode-line-1 start-event nil)))) |
|
(mouse-drag-mode-line-1 start-event nil))) |
|
545 |
|
|
546 |
|
|
547 |
(defun mouse-drag-vertical-line (start-event) |
(defun mouse-drag-vertical-line (start-event) |