/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.275 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.276 by cyd, Tue Sep 6 19:10:06 2005 UTC
# Line 538  resized by dragging their header-line." Line 538  resized by dragging their header-line."
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)

Legend:
Removed from v.1.275  
changed lines
  Added in v.1.276

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26