[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-30 63058e1153a: Tag interactive commands in 'lua-ts-mode'
From: |
Stefan Kangas |
Subject: |
emacs-30 63058e1153a: Tag interactive commands in 'lua-ts-mode' |
Date: |
Tue, 1 Oct 2024 15:36:55 -0400 (EDT) |
branch: emacs-30
commit 63058e1153ae1c3a9662b50ff8be439026e11986
Author: john muhl <jm@pub.pink>
Commit: Stefan Kangas <stefankangas@gmail.com>
Tag interactive commands in 'lua-ts-mode'
* lisp/progmodes/lua-ts-mode.el (lua-ts-send-buffer)
(lua-ts-send-file, lua-ts-send-region): Mark inferior interaction
commands that are only relevant in Lua buffers. (Bug#73586)
---
lisp/progmodes/lua-ts-mode.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/progmodes/lua-ts-mode.el b/lisp/progmodes/lua-ts-mode.el
index 8d0f49c2d89..4ea453c9b65 100644
--- a/lisp/progmodes/lua-ts-mode.el
+++ b/lisp/progmodes/lua-ts-mode.el
@@ -676,19 +676,19 @@ Calls REPORT-FN directly."
(defun lua-ts-send-buffer ()
"Send current buffer to the inferior Lua process."
- (interactive)
+ (interactive nil lua-ts-mode)
(lua-ts-send-region (point-min) (point-max)))
(defun lua-ts-send-file (file)
"Send contents of FILE to the inferior Lua process."
- (interactive "f")
+ (interactive "f" lua-ts-mode)
(with-temp-buffer
(insert-file-contents-literally file)
(lua-ts-send-region (point-min) (point-max))))
(defun lua-ts-send-region (beg end)
"Send region between BEG and END to the inferior Lua process."
- (interactive "r")
+ (interactive "r" lua-ts-mode)
(let ((string (buffer-substring-no-properties beg end))
(proc-buffer (lua-ts-inferior-lua)))
(comint-send-string proc-buffer "print()") ; Prevent output from
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-30 63058e1153a: Tag interactive commands in 'lua-ts-mode',
Stefan Kangas <=