diff options
author | Eli Zaretskii <eliz@gnu.org> | 2023-12-16 09:17:51 -0500 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-12-16 09:17:51 -0500 |
commit | a1d3862c6240805bde997bb57f60fceb0fbccb85 (patch) | |
tree | 3f0a8b9a8b7bd132336945aaad085afb185baffd /lisp/term.el | |
parent | 47b10d062df643da6ecc6fc3b6b1cbb668eebb39 (diff) | |
parent | bf4ccb0be076d8b65498c56dedf0eee17cb3c24c (diff) |
Merge from origin/emacs-29
bf4ccb0be07 ; * lisp/term.el (term--xterm-paste): Fix last change.
0d9e2e448d9 ; * doc/lispref/functions.texi (Function Documentation): ...
791cc5065da Fix shaping of Sinhala text
efcbf0b5abf Add use cases of (fn) documentation facility.
c3331cb3659 Fix pasting into terminal-mode on term.el
5be94e2bce5 Fix opening directory trees from Filesets menu
6b6e770a1f5 Eglot: Add ruff-lsp as an alternative Python server
ed8a8a5ba16 Fix symbol name in Multisession Variables examples
400ef15bdc3 js-ts-mode: Fix font-lock rules conflict
c165247c300 Add indentation rules for bracketless statements in js-ts...
7f1bd69cd19 Fix c-ts-mode bracketless indentation for BSD style (bug#...
e23068cb9a1 Add missing indent rules in c-ts-mode (bug#66152)
d2c4b926ac2 Fix treesit-default-defun-skipper (bug#66711)
9874561f39e Fix treesit-node-field-name and friends (bug#66674)
eace9e11226 python-ts-mode: Highlight default parameters
23c06c7c308 Update to Org 9.6.13
Diffstat (limited to 'lisp/term.el')
-rw-r--r-- | lisp/term.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index 81746e0c20d..d75a7d22aed 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -1393,10 +1393,15 @@ Entry to this mode runs the hooks on `term-mode-hook'." (interactive) (term-send-raw-string (current-kill 0))) -(defun term--xterm-paste () +(defun term--xterm-paste (event) "Insert the text pasted in an XTerm bracketed paste operation." - (interactive) - (term-send-raw-string (xterm--pasted-text))) + (interactive "e") + (unless (eq (car-safe event) 'xterm-paste) + (error "term--xterm-paste must be found to xterm-paste event")) + (let ((str (nth 1 event))) + (unless (stringp str) + (error "term--xterm-paste provided event does not contain paste text")) + (term-send-raw-string str))) (declare-function xterm--pasted-text "term/xterm" ()) |