comparison lisp/simple.el @ 103947:37177e1f2fcb

* w32-fns.el (x-selection-owner-p): New function. * mouse.el (mouse-drag-track): Call deactivate-mark earlier. (mouse-yank-at-click): If select-active-regions is non-nil, deactivate the mark before insertion. * simple.el (deactivate-mark, set-mark): Only save selection if we own it.

103946:774187433685

This function also runs `deactivate-mark-hook'."
  (when (or transient-mark-mode force)
    ;; Copy the latest region into the primary selection, if desired.
    (and select-active-regions
	 mark-active
	 (x-set-selection 'PRIMARY (buffer-substring-no-properties
				    (region-beginning) (region-end))))
    (if (and (null force)
	     (or (eq transient-mark-mode 'lambda)
		 (and (eq (car-safe transient-mark-mode) 'only)

  (if pos
      (progn
	(setq mark-active t)
	(run-hooks 'activate-mark-hook)
	(when select-active-regions
	  (x-set-selection 'PRIMARY (current-buffer)))
	(set-marker (mark-marker) pos (current-buffer)))
    ;; Normally we never clear mark-active except in Transient Mark mode.
    ;; But when we actually clear out the mark value too, we must
    ;; clear mark-active in any mode.
    (deactivate-mark t)

103947:37177e1f2fcb

This function also runs `deactivate-mark-hook'."
  (when (or transient-mark-mode force)
    ;; Copy the latest region into the primary selection, if desired.
    (and select-active-regions
	 mark-active
	 (x-selection-owner-p 'PRIMARY)
	 (x-set-selection 'PRIMARY (buffer-substring-no-properties
				    (region-beginning) (region-end))))
    (if (and (null force)
	     (or (eq transient-mark-mode 'lambda)
		 (and (eq (car-safe transient-mark-mode) 'only)

  (if pos
      (progn
	(setq mark-active t)
	(run-hooks 'activate-mark-hook)
	(and select-active-regions
	     ;; Only set the selection if we already own PRIMARY.  The
	     ;; initial selection grab happens in `activate-mark', but
	     ;; it is necessary to update it here.
	     (x-selection-owner-p 'PRIMARY)
	     (x-set-selection 'PRIMARY (current-buffer)))
	(set-marker (mark-marker) pos (current-buffer)))
    ;; Normally we never clear mark-active except in Transient Mark mode.
    ;; But when we actually clear out the mark value too, we must
    ;; clear mark-active in any mode.
    (deactivate-mark t)