/[emacs]/emacs/lisp/net/ldap.el
ViewVC logotype

Diff of /emacs/lisp/net/ldap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pj, Sun Jan 6 16:29:19 2002 UTC revision 1.8 by pj, Sun Jan 6 17:55:53 2002 UTC
# Line 570  an alist of attribute/value pairs." Line 570  an alist of attribute/value pairs."
570        (if (looking-at "usage")        (if (looking-at "usage")
571            (error "Incorrect ldapsearch invocation")            (error "Incorrect ldapsearch invocation")
572          (message "Parsing results... ")          (message "Parsing results... ")
573            ;; Skip error message when retrieving attribute list
574            (if (looking-at "Size limit exceeded")
575                (forward-line 1))
576          (while (progn          (while (progn
577                   (skip-chars-forward " \t\n")                   (skip-chars-forward " \t\n")
578                   (not (eobp)))                   (not (eobp)))
# Line 580  an alist of attribute/value pairs." Line 583  an alist of attribute/value pairs."
583            (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")            (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
584              (setq name (match-string 1)              (setq name (match-string 1)
585                    value (match-string 3))                    value (match-string 3))
586              (save-excursion              ;; Do not try to open non-existent files
587                (set-buffer bufval)              (if (equal value "")
588                (erase-buffer)                  (setq value " ")
589                (set-buffer-multibyte nil)                (save-excursion
590                (insert-file-contents-literally value)                  (set-buffer bufval)
591                (delete-file value)                  (erase-buffer)
592                (setq value (buffer-string)))                  (set-buffer-multibyte nil)
593                    (insert-file-contents-literally value)
594                    (delete-file value)
595                    (setq value (buffer-string))))
596              (setq record (cons (list name value)              (setq record (cons (list name value)
597                                 record))                                 record))
598              (forward-line 1))              (forward-line 1))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26