[Emacs-diffs] Changes to emacs/lisp/progmodes/idlwave.el,v

[Glenn Morris]

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

Index: idlwave.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/idlwave.el,v
retrieving revision 3.64
retrieving revision 3.65
diff -u -b -r3.64 -r3.65
--- idlwave.el  26 Jul 2007 05:27:28 -0000      3.64
+++ idlwave.el  13 Oct 2007 02:58:33 -0000      3.65
@@ -2827,10 +2827,10 @@
         ;; Before indenting, run action routines.
         ;;
         (if (and expand idlwave-do-actions)
-            (mapcar 'idlwave-do-action idlwave-indent-expand-table))
+            (mapc 'idlwave-do-action idlwave-indent-expand-table))
         ;;
         (if idlwave-do-actions
-            (mapcar 'idlwave-do-action idlwave-indent-action-table))
+            (mapc 'idlwave-do-action idlwave-indent-action-table))
         ;;
         ;; No longer expand abbrevs on the line.  The user can do this
         ;; manually using expand-region-abbrevs.
@@ -4242,7 +4242,7 @@
 
 (defun idlwave-sintern-keyword-list (kwd-list &optional set)
   "Sintern a set of keywords (file (key . link) (key2 . link2) ...)"
-  (mapcar (lambda(x)
+  (mapc (lambda(x)
            (setcar x (idlwave-sintern-keyword (car x) set)))
          (cdr kwd-list))
   kwd-list)
@@ -5560,7 +5560,7 @@
     ;; Define the routine info list
     (insert "\n(setq idlwave-user-catalog-routines\n    '(")
     (let ((standard-output (current-buffer)))
-      (mapcar (lambda (x)
+      (mapc (lambda (x)
                (insert "\n    ")
                (prin1 x)
                (goto-char (point-max)))
@@ -5604,7 +5604,7 @@
     ;; Define the variable which contains a list of all scanned directories
     (insert "\n(setq idlwave-path-alist\n    '(")
     (let ((standard-output (current-buffer)))
-      (mapcar (lambda (x)
+      (mapc (lambda (x)
                (insert "\n      ")
                (prin1 x)
                (goto-char (point-max)))
@@ -6319,7 +6319,7 @@
   (if (null method)
       (mapcar 'car (idlwave-class-alist))
     (let (rtn)
-      (mapcar (lambda (x)
+      (mapc (lambda (x)
                (and (nth 2 x)
                     (or (not type)
                         (eq type (nth 1 x)))
@@ -6335,7 +6335,7 @@
          (null keyword))
       nil
     (let (rtn)
-      (mapcar (lambda (x)
+      (mapc (lambda (x)
                (and (nth 2 x)           ; non-nil class
                     (or (not type)      ; correct or unspecified type
                         (eq type (nth 1 x)))
@@ -7551,7 +7551,7 @@
 If RECORD-LINK is non-nil, the keyword text is copied and a text
 property indicating the link is added."
   (let (kwds)
-    (mapcar
+    (mapc
      (lambda (key-list)
        (let ((file (car key-list)))
         (mapcar (lambda (key-cons)
@@ -8277,7 +8277,7 @@
                 (memq (nth 2 entry) super-classes)      ; an inherited class
                 (eq (nth 1 entry) type)                 ; correct type
                 (eq (car entry) name)                   ; correct name
-                (mapcar (lambda (k) (add-to-list 'keywords k))
+                (mapc (lambda (k) (add-to-list 'keywords k))
                         (idlwave-entry-keywords entry 'do-link))))
       (setq keywords (idlwave-uniquify keywords)))
 
@@ -8437,7 +8437,7 @@
        (if (null keywords)
            (insert " No keywords accepted.")
          (setq col 9)
-         (mapcar
+         (mapc
           (lambda (x)
             (if (>= (+ col 1 (length (car x)))
                     (window-width))