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)