Mercurial > emacs
diff lisp/mouse.el @ 65349:3607a394b655
*** empty log message ***
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 06 Sep 2005 19:10:06 +0000 |
parents | 41bb365f41c4 |
children | f2fdccb16607 10fe5fadaf89 |
line wrap: on
line diff
--- a/lisp/mouse.el Tue Sep 06 08:08:08 2005 +0000 +++ b/lisp/mouse.el Tue Sep 06 19:10:06 2005 +0000 @@ -538,11 +538,10 @@ (window (posn-window start)) (frame (window-frame window)) (first-window (frame-first-window frame))) - (when (or (eq window first-window) - (= (nth 1 (window-edges window)) - (nth 1 (window-edges first-window)))) - (error "Cannot move header-line at the top of the frame")) - (mouse-drag-mode-line-1 start-event nil))) + (unless (or (eq window first-window) + (= (nth 1 (window-edges window)) + (nth 1 (window-edges first-window)))) + (mouse-drag-mode-line-1 start-event nil)))) (defun mouse-drag-vertical-line (start-event)