|
@@ -16972,7 +16972,10 @@ this numeric value."
|
|
|
(let ((next (next-single-char-property-change beg 'invisible nil end)))
|
|
|
(setq result (concat result (buffer-substring beg next)))
|
|
|
(setq beg next))))
|
|
|
- (setq deactivate-mark t)
|
|
|
+ ;; Prevent Emacs from adding full selected text to `kill-ring'
|
|
|
+ ;; when `select-enable-primary' is non-nil. This special value of
|
|
|
+ ;; `deactivate-mark' only works since Emacs 29.
|
|
|
+ (setq deactivate-mark 'dont-save)
|
|
|
(kill-new result)
|
|
|
(message "Visible strings have been copied to the kill ring.")))
|
|
|
|