feature/rcirc-update f1e79a3 5/8: Rename set-rcirc-{encode, decode}-coding-system

[Philip Kaludercic]

branch: feature/rcirc-update
commit f1e79a33b5c453ee7185822a4673e930033e9640
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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 de42220..86f9ff0 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)