[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/eudc.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/eudc.el,v |
Date: |
Sat, 13 Oct 2007 03:02:57 +0000 |
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
- [Emacs-diffs] Changes to emacs/lisp/net/eudc.el,v,
Glenn Morris <=