summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorPavel Janík <Pavel@Janik.cz>2002-05-12 16:42:19 +0000
committerPavel Janík <Pavel@Janik.cz>2002-05-12 16:42:19 +0000
commit74d40d47e8d7f8e20b7e90c617b360edd5d1b963 (patch)
treeae81dd0203296935433d53ca8ef0adb3af2436c3 /lisp
parentd7d563e3faef07aa17da53869bbc5c5868c3c0ef (diff)
downloademacs-74d40d47e8d7f8e20b7e90c617b360edd5d1b963.tar.gz
(ldap-search-internal): Unfold folded lines before parsing.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/net/ldap.el4
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59922f2e2dc..3e0308bcd9c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2002-05-12 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
+ * net/ldap.el (ldap-search-internal): Unfold folded lines before
+ parsing.
+
* cus-edit.el (customize-set-value): Rename `var' to `variable'
and `val' to `value'.
(customize-save-variable): Rename `var' to `'variable.
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 03923eb4114..d539164e9f9 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -562,6 +562,10 @@ an alist of attribute/value pairs."
(insert "\n")
(goto-char (point-min))
+ (while (re-search-forward "[\t\n\f]+ " nil t)
+ (replace-match "" nil nil))
+ (goto-char (point-min))
+
(if (looking-at "usage")
(error "Incorrect ldapsearch invocation")
(message "Parsing results... ")