diff options
| author | Chong Yidong | 2005-09-06 19:10:06 +0000 |
|---|---|---|
| committer | Chong Yidong | 2005-09-06 19:10:06 +0000 |
| commit | efe4e5af8a7c28b184090939e35f312d9bded3f3 (patch) | |
| tree | 1b96188d58eed6dcf9c08841145fd5275f16f03b /lisp/mouse.el | |
| parent | 9655b4049320773197f466b159189a731218902f (diff) | |
| download | emacs-efe4e5af8a7c28b184090939e35f312d9bded3f3.tar.gz emacs-efe4e5af8a7c28b184090939e35f312d9bded3f3.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index c928e04f8ed..1970fbf1eeb 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -538,11 +538,10 @@ resized by dragging their header-line." | |||
| 538 | (window (posn-window start)) | 538 | (window (posn-window start)) |
| 539 | (frame (window-frame window)) | 539 | (frame (window-frame window)) |
| 540 | (first-window (frame-first-window frame))) | 540 | (first-window (frame-first-window frame))) |
| 541 | (when (or (eq window first-window) | 541 | (unless (or (eq window first-window) |
| 542 | (= (nth 1 (window-edges window)) | 542 | (= (nth 1 (window-edges window)) |
| 543 | (nth 1 (window-edges first-window)))) | 543 | (nth 1 (window-edges first-window)))) |
| 544 | (error "Cannot move header-line at the top of the frame")) | 544 | (mouse-drag-mode-line-1 start-event nil)))) |
| 545 | (mouse-drag-mode-line-1 start-event nil))) | ||
| 546 | 545 | ||
| 547 | 546 | ||
| 548 | (defun mouse-drag-vertical-line (start-event) | 547 | (defun mouse-drag-vertical-line (start-event) |