Commit c8043a22 authored by Andreas Schwab's avatar Andreas Schwab

* lisp/net/ldap.el (ldap-search-internal): Don't use eval.

parent 35e0ebb4
2011-01-09 Andreas Schwab <schwab@linux-m68k.org>
* net/ldap.el (ldap-search-internal): Don't use eval.
2011-01-09 Chong Yidong <cyd@stupidchicken.com>
* subr.el (read-char-choice): Use read-key.
......
;;; 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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment