diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-12-28 06:29:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-12-28 06:29:37 +0000 |
| commit | cf3b69c44ce3f19c87ba4fa500b788a66b2b5965 (patch) | |
| tree | 5a96d480e56405e33163a5ed3b1456720efe9014 /lisp/net/ldap.el | |
| parent | 4e02881b8064ff871dacef3c0e88ea1017a172de (diff) | |
| download | emacs-cf3b69c44ce3f19c87ba4fa500b788a66b2b5965.tar.gz | |
(ldap-search-internal): Handle <file://...> in results.
Diffstat (limited to 'lisp/net/ldap.el')
| -rw-r--r-- | lisp/net/ldap.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |