[Emacs-diffs] Changes to emacs/lisp/net/eudc.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/10/13 03:02:57

Index: eudc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/eudc.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- eudc.el     26 Jul 2007 05:27:18 -0000      1.22
+++ eudc.el     13 Oct 2007 03:02:57 -0000      1.23
@@ -502,12 +502,12 @@
                 records))
          ;; Display the records
          (setq first-record (point))
-         (mapcar
+         (mapc
           (function
            (lambda (record)
              (setq beg (point))
              ;; Map over the record fields to print the attribute/value pairs
-             (mapcar (function
+             (mapc (function
                       (lambda (field)
                         (eudc-print-record-field field width)))
                      record)
@@ -540,7 +540,7 @@
     (if (not (and (boundp 'eudc-form-widget-list)
                  eudc-form-widget-list))
        (error "Not in a directory query form buffer")
-      (mapcar (function
+      (mapc (function
               (lambda (wid-field)
                 (setq value (widget-value (cdr wid-field)))
                 (if (not (string= value ""))
@@ -565,7 +565,7 @@
 
     (if (null (eudc-cdar rec))
        (list record)                   ; No duplicate attrs in this record
-      (mapcar (function
+      (mapc (function
               (lambda (field)
                 (if (listp (cdr field))
                     (setq duplicates (cons field duplicates))
@@ -573,7 +573,7 @@
              record)
       (setq result (list unique))
       ;; Map over the record fields that have multiple values
-      (mapcar
+      (mapc
        (function
        (lambda (field)
          (let ((method (if (consp eudc-duplicate-attribute-handling-method)
@@ -641,7 +641,7 @@
     (while values
       (setcdr values (delete (car values) (cdr values)))
       (setq values (cdr values)))
-    (mapcar
+    (mapc
      (function
       (lambda (value)
        (let ((result-list (copy-sequence records)))
@@ -974,7 +974,7 @@
                                   (capitalize (symbol-name field)))))
                            fields)))
     ;; Loop over prompt strings to find the longest one
-    (mapcar (function
+    (mapc (function
             (lambda (prompt)
                     (if (> (length prompt) width)
                         (setq width (length prompt)))))
@@ -988,7 +988,7 @@
                                      eudc-form-widget-list))
     (setq fields (cdr fields))
     (setq prompts (cdr prompts))
-    (mapcar (function
+    (mapc (function
             (lambda (field)
               (widget-insert "\n\n" (format (concat "%" (int-to-string width) 
"s: ") (car prompts)))
               (setq widget (widget-create 'editable-field