Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents a300bb07d72d
children aabb7f5b1c81
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
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
958 ;; This was originally a sit-for 0 but that wasn't 958 ;; This was originally a sit-for 0 but that wasn't
959 ;; sufficient to make things work. Even this isn't 959 ;; sufficient to make things work. Even this isn't
960 ;; always sufficient but it seems to give something 960 ;; always sufficient but it seems to give something
961 ;; approaching a 99% success rate. Making it higher yet 961 ;; approaching a 99% success rate. Making it higher yet
962 ;; would help guarantee success with the price that the 962 ;; would help guarantee success with the price that the
963 ;; delay would start to become noticable. 963 ;; delay would start to become noticeable.
964 ;; 964 ;;
965 (and (eq (console-type) 'x) 965 (and (eq (console-type) 'x)
966 (sit-for 0.15 t)) 966 (sit-for 0.15 t))
967 (zmacs-activate-region))) 967 (zmacs-activate-region)))
968 ((console-on-window-system-p) 968 ((console-on-window-system-p)