Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 70ad99077275
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
66 text is inserted." 66 text is inserted."
67 :type 'boolean 67 :type 'boolean
68 :group 'mouse) 68 :group 'mouse)
69 69
70 (defcustom mouse-highlight-text 'context 70 (defcustom mouse-highlight-text 'context
71 "*Choose the default double-click highlighting behaviour. 71 "*Choose the default double-click highlighting behavior.
72 If set to `context', double-click will highlight words when the mouse 72 If set to `context', double-click will highlight words when the mouse
73 is at a word character, or a symbol if the mouse is at a symbol 73 is at a word character, or a symbol if the mouse is at a symbol
74 character. 74 character.
75 If set to `word', double-click will always attempt to highlight a word. 75 If set to `word', double-click will always attempt to highlight a word.
76 If set to `symbol', double-click will always attempt to highlight a 76 If set to `symbol', double-click will always attempt to highlight a
77 symbol (the default behaviour in previous XEmacs versions)." 77 symbol (the default behavior in previous XEmacs versions)."
78 :type '(choice (const context) 78 :type '(choice (const context)
79 (const word) 79 (const word)
80 (const symbol)) 80 (const symbol))
81 :group 'mouse) 81 :group 'mouse)
82 82
674 ;; Not over a modeline, not the same window. Check if the Y position 674 ;; Not over a modeline, not the same window. Check if the Y position
675 ;; is still overlapping the original window. 675 ;; is still overlapping the original window.
676 (let* ((edges (window-pixel-edges window)) 676 (let* ((edges (window-pixel-edges window))
677 (row (event-y-pixel event)) 677 (row (event-y-pixel event))
678 (text-start (nth 1 edges)) 678 (text-start (nth 1 edges))
679 (text-end (+ (nth 3 edges)))) 679 (text-end (nth 3 edges)))
680 (if (or (< row text-start) 680 (if (or (< row text-start)
681 (> row text-end)) 681 (> row text-end))
682 nil ;; Scroll 682 nil ;; Scroll
683 ;; The Y pos in overlapping the original window. Check however if 683 ;; The Y pos in overlapping the original window. Check however if
684 ;; the position is really visible, because there could be a 684 ;; the position is really visible, because there could be a
1412 ;; 1412 ;;
1413 ;; Vertical divider dragging 1413 ;; Vertical divider dragging
1414 ;; 1414 ;;
1415 (defun drag-window-divider (event) 1415 (defun drag-window-divider (event)
1416 "Handle resizing windows by dragging window dividers. 1416 "Handle resizing windows by dragging window dividers.
1417 This is an intenal function, normally bound to button1 event in 1417 This is an internal function, normally bound to button1 event in
1418 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
1419 other mouse buttons." 1419 other mouse buttons."
1420 (interactive "e") 1420 (interactive "e")
1421 ;; #### I disagree with the check below. 1421 ;; #### I disagree with the check below.
1422 ;; Discuss it with Kirill for 21.1. --hniksic 1422 ;; Discuss it with Kirill for 21.1. --hniksic