ntlm.el (ntlm-unibyte-string): Make it a macro, not an alias

diff --git a/lisp/ntlm.el b/lisp/ntlm.el
index f31257e..1550528 100644 (file)
--- a/lisp/ntlm.el
+++ b/lisp/ntlm.el
@@ -136,11 +136,10 @@ is not given."
     (if (fboundp 'string-make-unibyte)
        `(string-make-unibyte ,string)
       string))
     (if (fboundp 'string-make-unibyte)
        `(string-make-unibyte ,string)
       string))

-  (defalias 'ntlm-unibyte-string
+  (defmacro ntlm-unibyte-string (&rest bytes)

     (if (fboundp 'unibyte-string)
     (if (fboundp 'unibyte-string)

-       'unibyte-string
-      (lambda (&rest bytes)
-       (concat (apply #'vector bytes))))))
+       `(unibyte-string ,@bytes)
+      `(concat (vector ,@bytes)))))

 
 (eval-and-compile
   (autoload 'sha1 "sha1")
 
 (eval-and-compile
   (autoload 'sha1 "sha1")