Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children c9fe270a4101
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
188 (offix-start-drag-region event 188 (offix-start-drag-region event
189 (extent-start-position zmacs-region-extent) 189 (extent-start-position zmacs-region-extent)
190 (extent-end-position zmacs-region-extent))) 190 (extent-end-position zmacs-region-extent)))
191 ((featurep 'cde) 191 ((featurep 'cde)
192 ;; should also work with CDE 192 ;; should also work with CDE
193 (cde-start-drag 193 (cde-start-drag-region event
194 (extent-start-position zmacs-region-extent) 194 (extent-start-position zmacs-region-extent)
195 (extent-end-position zmacs-region-extent))) 195 (extent-end-position zmacs-region-extent)))
196 (t (error "No offix or CDE support compiled in"))) 196 (t (error "No offix or CDE support compiled in")))
197 ;; no drag, call region-funct 197 ;; no drag, call region-funct
198 (and (not mouse-yank-at-point) 198 (and (not mouse-yank-at-point)
199 (mouse-set-point event)) 199 (mouse-set-point event))
200 (funcall mouse-yank-function)) 200 (funcall mouse-yank-function))
1415 other mouse buttons." 1415 other mouse buttons."
1416 (interactive "e") 1416 (interactive "e")
1417 (if (not (specifier-instance vertical-divider-draggable-p 1417 (if (not (specifier-instance vertical-divider-draggable-p
1418 (event-window event))) 1418 (event-window event)))
1419 (error "Not over a window!")) 1419 (error "Not over a window!"))
1420 (with-specifier-instance 1420 (let-specifier ((vertical-divider-shadow-thickness
1421 vertical-divider-shadow-thickness 1421 (- (specifier-instance vertical-divider-shadow-thickness
1422 (- (specifier-instance vertical-divider-shadow-thickness 1422 (event-window event)))
1423 (event-window event))) 1423 (event-window event)))
1424 (event-window event)
1425 (let* ((window (event-window event)) 1424 (let* ((window (event-window event))
1426 (frame (event-channel event)) 1425 (frame (event-channel event))
1427 (last-timestamp (event-timestamp event)) 1426 (last-timestamp (event-timestamp event))
1428 (doit t)) 1427 (doit t))
1429 (while doit 1428 (while doit
1499 (/= new-right-ok new)) 1498 (/= new-right-ok new))
1500 (setq all-that-bad t) 1499 (setq all-that-bad t)
1501 (setq new-right-ok new))))) 1500 (setq new-right-ok new)))))
1502 (window-list) old-edges-all-windows) 1501 (window-list) old-edges-all-windows)
1503 all-that-bad)) 1502 all-that-bad))
1504 (set-window-configuration backup-conf)))) 1503 (set-window-configuration backup-conf)))))))))
1505 )))))
1506 1504
1507 (setq vertical-divider-map (make-keymap)) 1505 (setq vertical-divider-map (make-keymap))
1508 (define-key vertical-divider-map 'button1 'drag-window-divider) 1506 (define-key vertical-divider-map 'button1 'drag-window-divider)
1509 1507
1510 ;;; mouse.el ends here 1508 ;;; mouse.el ends here