diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-05-19 20:30:58 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-05-19 20:30:58 +0200 |
| commit | d4af2f3001fea2d9ea46facaf26d3330bd8626e2 (patch) | |
| tree | 297ee1bdf93dfc843c1ae82390d79b43874a1f31 /lisp/net/rfc2104.el | |
| parent | fac11d899be24fa031c360fd20c038b9432853ec (diff) | |
| download | emacs-d4af2f3001fea2d9ea46facaf26d3330bd8626e2.tar.gz emacs-d4af2f3001fea2d9ea46facaf26d3330bd8626e2.tar.bz2 emacs-d4af2f3001fea2d9ea46facaf26d3330bd8626e2.zip | |
rfc2104.el: Remove XEmacs compat code.
* lisp/net/rfc2104.el (rfc2104-string-make-unibyte): Remove XEmacs
compat code.
Diffstat (limited to 'lisp/net/rfc2104.el')
| -rw-r--r-- | lisp/net/rfc2104.el | 12 |
1 files changed, 2 insertions, 10 deletions
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) |