Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents c9fe270a4101
children a4f53d9b3154
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
1338 '(selection-pointer-glyph text-pointer-glyph)) 1338 '(selection-pointer-glyph text-pointer-glyph))
1339 ((event-over-modeline-p event) 1339 ((event-over-modeline-p event)
1340 '(modeline-pointer-glyph nontext-pointer-glyph 1340 '(modeline-pointer-glyph nontext-pointer-glyph
1341 text-pointer-glyph)) 1341 text-pointer-glyph))
1342 ((and (event-over-vertical-divider-p event) 1342 ((and (event-over-vertical-divider-p event)
1343 (specifier-instance vertical-divider-draggable-p 1343 ;; #### I disagree with the check below.
1344 ;; Discuss it with Kirill for 21.1. --hniksic
1345 (specifier-instance vertical-divider-always-visible-p
1344 (event-window event))) 1346 (event-window event)))
1345 '(divider-pointer-glyph nontext-pointer-glyph 1347 '(divider-pointer-glyph nontext-pointer-glyph
1346 text-pointer-glyph)) 1348 text-pointer-glyph))
1347 (point '(text-pointer-glyph)) 1349 (point '(text-pointer-glyph))
1348 (buffer '(nontext-pointer-glyph text-pointer-glyph)) 1350 (buffer '(nontext-pointer-glyph text-pointer-glyph))
1414 "Handle resizing windows by dragging window dividers. 1416 "Handle resizing windows by dragging window dividers.
1415 This is an intenal function, normally bound to button1 event in 1417 This is an intenal function, normally bound to button1 event in
1416 window-divider-map. You would not call it, but you may bind it to 1418 window-divider-map. You would not call it, but you may bind it to
1417 other mouse buttons." 1419 other mouse buttons."
1418 (interactive "e") 1420 (interactive "e")
1419 (if (not (specifier-instance vertical-divider-draggable-p 1421 ;; #### I disagree with the check below.
1422 ;; Discuss it with Kirill for 21.1. --hniksic
1423 (if (not (specifier-instance vertical-divider-always-visible-p
1420 (event-window event))) 1424 (event-window event)))
1421 (error "Not over a window!")) 1425 (error "Not over a window"))
1422 (let-specifier ((vertical-divider-shadow-thickness 1426 (let-specifier ((vertical-divider-shadow-thickness
1423 (- (specifier-instance vertical-divider-shadow-thickness 1427 (- (specifier-instance vertical-divider-shadow-thickness
1424 (event-window event))) 1428 (event-window event)))
1425 (event-window event))) 1429 (event-window event)))
1426 (let* ((window (event-window event)) 1430 (let* ((window (event-window event))