[Emacs-diffs] /srv/bzr/emacs/trunk r102802: * lisp/net/ldap.el (ldap-search-internal): Don't use eval.

[Andreas Schwab]

------------------------------------------------------------
revno: 102802
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sun 2011-01-09 20:34:19 +0100
message:
  * lisp/net/ldap.el (ldap-search-internal): Don't use eval.
modified:
  lisp/ChangeLog
  lisp/net/ldap.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-09 14:26:29 +0000
+++ b/lisp/ChangeLog    2011-01-09 19:34:19 +0000
@@ -1,3 +1,7 @@
+2011-01-09  Andreas Schwab  <address@hidden>
+
+       * net/ldap.el (ldap-search-internal): Don't use eval.
+
 2011-01-09  Chong Yidong  <address@hidden>
 
        * subr.el (read-char-choice): Use read-key.

=== modified file 'lisp/net/ldap.el'
--- a/lisp/net/ldap.el  2010-11-09 05:33:07 +0000
+++ b/lisp/net/ldap.el  2011-01-09 19:34:19 +0000
@@ -1,7 +1,7 @@
 ;;; ldap.el --- client interface to LDAP for Emacs
 
 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;;   2007, 2008, 2009, 2010  Free Software Foundation, Inc.
+;;   2007, 2008, 2009, 2010, 2011  Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <address@hidden>
 ;; Maintainer: FSF
@@ -556,13 +556,9 @@
       (if (and sizelimit
               (not (equal "" sizelimit)))
          (setq arglist (nconc arglist (list (format "-z%s" sizelimit)))))
-      (eval `(call-process ldap-ldapsearch-prog
-                          nil
-                          buf
-                          nil
-                          ,@arglist
-                          ,@ldap-ldapsearch-args
-                          ,@filter))
+      (apply #'call-process ldap-ldapsearch-prog
+            nil buf nil
+            (append arglist ldap-ldapsearch-args filter))
       (insert "\n")
       (goto-char (point-min))