Lines Matching defs:thing
284 (defvar mouse-sel-primary-thing nil
286 (make-variable-buffer-local 'mouse-sel-primary-thing)
288 (defvar mouse-sel-secondary-thing nil
290 (make-variable-buffer-local 'mouse-sel-secondary-thing)
298 '((PRIMARY mouse-drag-overlay mouse-sel-primary-thing)
299 (SECONDARY mouse-secondary-overlay mouse-sel-secondary-thing))
340 (defun mouse-sel-determine-selection-thing (nclicks)
341 "Determine what `thing' `mouse-sel' should operate on.
385 (defun mouse-sel-selection-thing (selection)
465 'mouse-sel-determine-selection-thing.
486 'mouse-sel-determine-selection-thing.
505 (let ((thing-symbol (mouse-sel-selection-thing selection))
507 (set thing-symbol
508 (mouse-sel-determine-selection-thing (event-click-count event)))
509 (let ((object-bounds (bounds-of-thing-at-point
510 (symbol-value thing-symbol))))
553 (let* ((thing-symbol (mouse-sel-selection-thing selection))
571 (set thing-symbol nil))
591 (let ((selection-thing (symbol-value thing-symbol))
635 (if (not selection-thing) nil
640 ;; Move to start/end of selected thing
646 (forward-thing selection-thing direction))
648 (forward-thing selection-thing (- direction))