diff options
author | Andreas Schwab <schwab@linux-m68k.org> | 2011-01-09 20:34:19 +0100 |
---|---|---|
committer | Andreas Schwab <schwab@linux-m68k.org> | 2011-01-09 20:34:19 +0100 |
commit | c8043a225f70715109eb40a5ab178a97233670ee (patch) | |
tree | 011005aedb3989bd3a2f025830d458836893fd44 /lisp/net/ldap.el | |
parent | 35e0ebb459c48cb66d184be88ba392c5b5d11066 (diff) | |
download | emacs-c8043a225f70715109eb40a5ab178a97233670ee.tar.gz |
* lisp/net/ldap.el (ldap-search-internal): Don't use eval.
Diffstat (limited to 'lisp/net/ldap.el')
-rw-r--r-- | lisp/net/ldap.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index 066dbd8bea0..88284af06f0 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el @@ -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 @@ an alist of attribute/value pairs." (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)) |