(ldap-search-internal): Make the buffer unibyte.

Use buffer-string instead of buffer-substring for the whole buffer.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 4b16622d751..1724d9b1ea6 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -1,6 +1,6 @@
 ;;; ldap.el --- client interface to LDAP for Emacs
 
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
@@ -583,9 +583,10 @@ an alist of attribute/value pairs."
             (save-excursion
               (set-buffer bufval)
               (erase-buffer)
+              (set-buffer-multibyte nil)
               (insert-file-contents-literally value)
               (delete-file value)
-              (setq value (buffer-substring (point-min) (point-max))))
+              (setq value (buffer-string)))
             (setq record (cons (list name value)
                                record))
             (forward-line 1))