diff options
| author | Richard M. Stallman | 2001-12-28 06:29:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-12-28 06:29:37 +0000 |
| commit | cf3b69c44ce3f19c87ba4fa500b788a66b2b5965 (patch) | |
| tree | 5a96d480e56405e33163a5ed3b1456720efe9014 /lisp/net | |
| parent | 4e02881b8064ff871dacef3c0e88ea1017a172de (diff) | |
| download | emacs-cf3b69c44ce3f19c87ba4fa500b788a66b2b5965.tar.gz emacs-cf3b69c44ce3f19c87ba4fa500b788a66b2b5965.zip | |
(ldap-search-internal): Handle <file://...> in results.
Diffstat (limited to 'lisp/net')
| -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." | |||
| 584 | (end-of-line) | 584 | (end-of-line) |
| 585 | (point)))) | 585 | (point)))) |
| 586 | (forward-line 1) | 586 | (forward-line 1) |
| 587 | (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(.*\\)$") | 587 | (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$") |
| 588 | (setq name (match-string 1) | 588 | (setq name (match-string 1) |
| 589 | value (match-string 2)) | 589 | value (match-string 3)) |
| 590 | (save-excursion | 590 | (save-excursion |
| 591 | (set-buffer bufval) | 591 | (set-buffer bufval) |
| 592 | (erase-buffer) | 592 | (erase-buffer) |