From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 19 May 2019 18:30:58 +0000 (+0200)
Subject: rfc2104.el: Remove XEmacs compat code.
X-Git-Tag: emacs-27.0.90~2814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4af2f3001fea2d9ea46facaf26d3330bd8626e2;p=emacs.git

rfc2104.el: Remove XEmacs compat code.

* lisp/net/rfc2104.el (rfc2104-string-make-unibyte): Remove XEmacs
  compat code.
---

diff --git a/lisp/net/rfc2104.el b/lisp/net/rfc2104.el
index 68c35aa3130..9d4957ddb5d 100644
--- a/lisp/net/rfc2104.el
+++ b/lisp/net/rfc2104.el
@@ -84,14 +84,6 @@
       (setq ls (cdr ls)))
     v))
 
-(eval-when-compile
-  (defmacro rfc2104-string-make-unibyte (string)
-    "Return the unibyte equivalent of STRING.
-In XEmacs return just STRING."
-    (if (featurep 'xemacs)
-	string
-      `(string-make-unibyte ,string))))
-
 (defun rfc2104-hash (hash block-length hash-length key text)
   (let* (;; if key is longer than B, reset it to HASH(key)
 	 (key (if (> (length key) block-length)
@@ -107,7 +99,7 @@ In XEmacs return just STRING."
       (aset ipad i (logxor rfc2104-ipad c))
       (aset opad i (logxor rfc2104-opad c)))
     ;; Perform inner hash.
-    (setq partial (rfc2104-string-make-unibyte
+    (setq partial (string-make-unibyte
 		   (funcall hash (concat ipad text))))
     ;; Pack latter part of opad.
     (cl-do ((r 0 (+ 2 r))
@@ -117,7 +109,7 @@ In XEmacs return just STRING."
             (+ (* 16 (aref rfc2104-nybbles (aref partial     r)))
                (      aref rfc2104-nybbles (aref partial (1+ r))))))
     ;; Perform outer hash.
-    (rfc2104-string-make-unibyte (funcall hash opad))))
+    (string-make-unibyte (funcall hash opad))))
 
 (provide 'rfc2104)