181 |
:group 'killing) |
:group 'killing) |
182 |
|
|
183 |
(defun x-select-text (text &optional push) |
(defun x-select-text (text &optional push) |
184 |
(if x-select-enable-clipboard |
(if x-select-enable-clipboard |
185 |
(w16-set-clipboard-data text)) |
(w16-set-clipboard-data text)) |
186 |
(setq x-last-selected-text text)) |
(setq x-last-selected-text text)) |
187 |
|
|
188 |
;;; Return the value of the current selection. |
;;; Return the value of the current selection. |
189 |
;;; Consult the selection, then the cut buffer. Treat empty strings |
;;; Consult the selection, then the cut buffer. Treat empty strings |
190 |
;;; as if they were unset. |
;;; as if they were unset. |
191 |
(defun x-get-selection-value () |
(defun x-get-selection-value () |
192 |
(if x-select-enable-clipboard |
(if x-select-enable-clipboard |
193 |
(let (text) |
(let (text) |
194 |
;; Don't die if x-get-selection signals an error. |
;; Don't die if x-get-selection signals an error. |
195 |
(condition-case c |
(condition-case c |