procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support passing signals like 'SIGCODE' to 'tramp-signal-process'

Browse source 
POSIX specifies that "kill" should take signal names without the "SIG"
prefix.

* lisp/net/tramp.el (tramp-signal-process): Strip the "SIG" prefix when
present.
This commit is contained in:
Jim Porter 2024-07-14 15:07:28 -07:00
parent 510ca5e84b
commit 68b7806c31
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp.el
View file

@ -6986,8 +6986,13 @@ SIGCODE may be an integer, or a symbol whose name is a signal name."
(setq pid process
vec (and (stringp remote) (tramp-dissect-file-name remote))))
(t (signal 'wrong-type-argument (list #'processp process))))
(unless (or (numberp sigcode) (symbolp sigcode))
(signal 'wrong-type-argument (list #'numberp sigcode)))
(cond
((symbolp sigcode)
(setq sigcode (upcase (symbol-name sigcode)))
(when (string-prefix-p "SIG" sigcode)
(setq sigcode (substring sigcode 3))))
((not (numberp sigcode))
(signal 'wrong-type-argument (list #'numberp sigcode))))
;; If it's a Tramp process, send SIGCODE remotely.
(when (and pid vec)
(tramp-message