From cf3b69c44ce3f19c87ba4fa500b788a66b2b5965 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Dec 2001 06:29:37 +0000 Subject: [PATCH] (ldap-search-internal): Handle in results. --- lisp/ChangeLog | 2 ++ lisp/net/ldap.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7b5430304ab..e5f85d0afe9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2001-12-28 Richard M. Stallman + * net/ldap.el (ldap-search-internal): Handle in results. + * simple.el (line-move-invisible): New subroutine. (line-move-to-column): New subroutine--smarter about advancing over invisible parts of a line, or lines, but only as long as hpos grows. diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index ddbdfa0b1ef..ee8b3ba4577 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el @@ -584,9 +584,9 @@ an alist of attribute/value pairs." (end-of-line) (point)))) (forward-line 1) - (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(.*\\)$") + (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$") (setq name (match-string 1) - value (match-string 2)) + value (match-string 3)) (save-excursion (set-buffer bufval) (erase-buffer) -- 2.39.2