comparison lisp/simple.el @ 109398:c9970d4bfd62

Change clipboard/primary selection to X application standards. * lisp/menu-bar.el (menu-bar-enable-clipboard): Don't overwrite Cut/Copy/Paste menu bar items. * lisp/mouse.el: Bind mouse-2 to mouse-yank-primary. (mouse-drag-copy-region): Default to nil. * lisp/simple.el (select-active-regions): Default to t. (push-mark-command): Don't overwrite primary with empty string. * lisp/term/x-win.el (x-select-enable-clipboard): Default to t. (x-initialize-window-system): Don't overwrite Paste menu item.

109397:4e6b8160da4b

a mistake; see the documentation of `set-mark'."
  (if (or force (not transient-mark-mode) mark-active mark-even-if-inactive)
      (marker-position (mark-marker))
    (signal 'mark-inactive nil)))

(defcustom select-active-regions nil
  "If non-nil, an active region automatically becomes the window selection."
  :type 'boolean
  :group 'killing
  :version "23.1")

    ;; Copy the latest region into the primary selection, if desired.
    (and select-active-regions
	 mark-active
	 (display-selections-p)
	 (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)

  (let ((mark (marker-position (mark-marker))))
    (if (or arg (null mark) (/= mark (point)))
	(push-mark nil nomsg t)
      (setq mark-active t)
      (run-hooks 'activate-mark-hook)
      (unless nomsg
	(message "Mark activated")))))

(defcustom set-mark-command-repeat-pop nil
  "Non-nil means repeating \\[set-mark-command] after popping mark pops it again.

109398:c9970d4bfd62

a mistake; see the documentation of `set-mark'."
  (if (or force (not transient-mark-mode) mark-active mark-even-if-inactive)
      (marker-position (mark-marker))
    (signal 'mark-inactive nil)))

(defcustom select-active-regions t
  "If non-nil, an active region automatically becomes the window selection."
  :type 'boolean
  :group 'killing
  :version "23.1")

    ;; Copy the latest region into the primary selection, if desired.
    (and select-active-regions
	 mark-active
	 (display-selections-p)
	 (x-selection-owner-p 'PRIMARY)
	 (not (eq (region-beginning) (region-end)))
	 (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)

  (let ((mark (marker-position (mark-marker))))
    (if (or arg (null mark) (/= mark (point)))
	(push-mark nil nomsg t)
      (setq mark-active t)
      (run-hooks 'activate-mark-hook)
      (and select-active-regions (display-selections-p)
	   (x-set-selection 'PRIMARY (current-buffer)))
      (unless nomsg
	(message "Mark activated")))))

(defcustom set-mark-command-repeat-pop nil
  "Non-nil means repeating \\[set-mark-command] after popping mark pops it again.