From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 5 Jan 2002 18:42:52 +0000 (+0000)
Subject: (ldap-search-internal): Make the buffer unibyte.
X-Git-Tag: ttn-vms-21-2-B4~17303
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=590a6e6c11ce070845e234c4bcf5eac8d856fcd1;p=emacs.git

(ldap-search-internal): Make the buffer unibyte.
Use buffer-string instead of buffer-substring for the whole buffer.
---

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))