mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Recognize quoted commands in rcirc-process-input-line

Browse source 
* rcirc.el (rcirc-process-input-line): Check for quoted commands
(rcirc-process-command): Don't check for quoted commands
This commit is contained in:
Philip Kaludercic 2021-06-09 16:17:48 +02:00
parent e6c99a761d
commit 8ea5766050
1 changed files with 14 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/net/rcirc.el
View file

@ -1380,7 +1380,7 @@ The argument JUSTIFY is passed on to `fill-region'."
(defun rcirc-process-input-line (line)
"Process LINE as a message or a command."
(if (string-match "^/\\([^ ]+\\) ?\\(.*\\)$" line)
(if (string-match "^/\\([^/ ][^ ]*\\) ?\\(.*\\)$" line)
(rcirc-process-command (match-string 1 line)
(match-string 2 line)
line)
@ -1398,25 +1398,20 @@ The argument JUSTIFY is passed on to `fill-region'."
"Process COMMAND with arguments ARGS.
LINE is the raw input, from which COMMAND and ARGS was
extracted."
(if (eq (aref command 0) ?/)
;; "//text" will send "/text" as a message
(rcirc-process-message (substring line 1))
(let ((fun (intern-soft (concat "rcirc-cmd-" command)))
(process (rcirc-buffer-process)))
(newline)
(with-current-buffer (current-buffer)
(delete-region rcirc-prompt-end-marker (point))
(if (string= command "me")
(rcirc-print process (rcirc-buffer-nick)
"ACTION" rcirc-target args)
(let ((fun (intern-soft (concat "rcirc-cmd-" command)))
(process (rcirc-buffer-process)))
(newline)
(with-current-buffer (current-buffer)
(delete-region rcirc-prompt-end-marker (point))
(if (string= command "me")
(rcirc-print process (rcirc-buffer-nick)
"COMMAND" rcirc-target line))
(set-marker rcirc-prompt-end-marker (point))
(if (fboundp fun)
(funcall fun args process rcirc-target)
(rcirc-send-string process
(concat command " :" args)))))))
"ACTION" rcirc-target args)
(rcirc-print process (rcirc-buffer-nick)
"COMMAND" rcirc-target line))
(set-marker rcirc-prompt-end-marker (point))
(if (fboundp fun)
(funcall fun args process rcirc-target)
(rcirc-send-string process command : args)))))
(defvar-local rcirc-parent-buffer nil
"Message buffer that requested a multiline buffer.")