• Stefan Monnier's avatar
    Consolidate management/ownership of selections. · 31300bee
    Stefan Monnier authored
    * lisp/select.el (gui-get-selection-alist): New method.
    (gui-get-selection): Use it.  Rename from x-get-selection.
    (x-get-selection): Define as obsolete alias.
    (x-get-clipboard): Mark obsolete.
    (gui-get-primary-selection): New function.
    (x-get-selection-value): Mark obsolete.
    (gui-own-selection-alist, gui-disown-selection-alist)
    (gui-selection-owner-p-alist): New methods.
    (gui-set-selection): Use them.  Rename from x-set-selection.
    (x-set-selection): Define as obsolete alias.
    (gui--valid-simple-selection-p): Rename from
    x-valid-simple-selection-p.
    * lisp/w32-common-fns.el (gui-own-selection, gui-disown-selection)
    (gui-selection-owner-p, gui-get-selection): Define for w32.
    (w32-get-selection-value): Rename from x-get-selection-value.
    Use the new gui-last-selected-text.
    * lisp/term/x-win.el (x-get-selection-value): Remove.
    (x-clipboard-yank): Declare obsolete.
    (gui-own-selection, gui-disown-selection, gui-get-selection)
    (gui-selection-owner-p): Define for x.
    * lisp/term/w32-win.el (w32-win-suspend-error): Rename from
    x-win-suspend-error.
    * lisp/term/pc-win.el (w16-get-selection-value): Rename from
    x-get-selection-value.
    (w16-selection-owner-p): Rename from x-selection-owner-p.
    (gui-own-selection, gui-disown-selection, gui-get-selection)
    (gui-selection-owner-p): Define for pc.
    (w16--select-text): New function.
    * lisp/term/ns-win.el (gui-own-selection, gui-disown-selection)
    (gui-get-selection, gui-selection-owner-p): Define for ns.
    * lisp/term.el (term-mouse-paste):
    * lisp/mouse.el (mouse-yank-primary): Use gui-get-primary-selection.
    * src/nsselect.m (ns-own-selection-internal, ns-disown-selection-internal):
    Rename from the "x-" prefix.
    31300bee
w32-common-fns.el 3.64 KB