Mercurial > emacs
diff lisp/net/ldap.el @ 112173:daedfad2f1e3
* lisp/net/ldap.el (ldap-search-internal): Don't use eval.
author | Andreas Schwab <schwab@linux-m68k.org> |
---|---|
date | Sun, 09 Jan 2011 20:34:19 +0100 |
parents | 56b71cddc9c5 |
children | 4f72b1e43644 |
line wrap: on
line diff
--- a/lisp/net/ldap.el Sun Jan 09 18:49:25 2011 +0100 +++ b/lisp/net/ldap.el Sun Jan 09 20:34:19 2011 +0100 @@ -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 <oscar@cpe.fr> ;; 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))