From: Philip Kaludercic <philipk@posteo.net>
Date: Mon, 14 Jun 2021 11:25:57 +0000 (+0200)
Subject: Rename set-rcirc-{encode,decode}-coding-system
X-Git-Tag: emacs-28.0.90~1748^2~15
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1e79a33b5c453ee7185822a4673e930033e9640;p=emacs.git

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
---

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)