From f1e79a33b5c453ee7185822a4673e930033e9640 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Mon, 14 Jun 2021 13:25:57 +0200 Subject: [PATCH] Rename set-rcirc-{encode,decode}-coding-system * rcirc.el (set-rcirc-decode-coding-system): Deprecate command (rcirc-set-decode-coding-system): New command (set-rcirc-encode-coding-system): Deprecate command (rcirc-set-encode-coding-system): New command --- lisp/net/rcirc.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index de42220f96f..86f9ff048db 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -1157,16 +1157,26 @@ The list is updated automatically by `defun-rcirc-command'.") '(metadata (cycle-sort-function . identity)) (complete-with-action action table str pred))))))) -(defun set-rcirc-decode-coding-system (coding-system) +(defun rcirc-set-decode-coding-system (coding-system) "Set the decode CODING-SYSTEM used in this channel." (interactive "zCoding system for incoming messages: ") (setq-local rcirc-decode-coding-system coding-system)) -(defun set-rcirc-encode-coding-system (coding-system) +(define-obsolete-function-alias + 'rcirc-set-decode-coding-system + 'set-rcirc-decode-coding-system + "28.1") + +(defun rcirc-set-encode-coding-system (coding-system) "Set the encode CODING-SYSTEM used in this channel." (interactive "zCoding system for outgoing messages: ") (setq-local rcirc-encode-coding-system coding-system)) +(define-obsolete-function-alias + 'rcirc-set-encode-coding-system + 'set-rcirc-encode-coding-system + "28.1") + (defvar rcirc-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "RET") 'rcirc-send-input) -- 2.39.2