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

[Glenn Morris]

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

Index: cperl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cperl-mode.el,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- cperl-mode.el       9 Oct 2007 08:52:44 -0000       1.96
+++ cperl-mode.el       13 Oct 2007 03:00:45 -0000      1.97
@@ -1107,7 +1107,7 @@
 ;;;     (setq interpreter-mode-alist (append interpreter-mode-alist
 ;;;                                      '(("miniperl" . perl-mode))))))
 (eval-when-compile
-  (mapcar (lambda (p)
+  (mapc (lambda (p)
            (condition-case nil
                (require p)
              (error nil)))
@@ -5385,7 +5385,7 @@
        (t
         (or name
             (setq name "+++BACK+++"))
-        (mapcar (lambda (elt)
+        (mapc (lambda (elt)
                   (if (and (listp elt) (listp (cdr elt)))
                       (progn
                         ;; In the other order it goes up
@@ -6986,7 +6986,7 @@
                        (setq cperl-unreadable-ok t
                              tm nil)   ; Return empty list
                      (error "Aborting: unreadable directory %s" file)))))))
-         (mapcar (function
+         (mapc (function
                   (lambda (file)
                     (cond
                      ((string-match cperl-noscan-files-regexp file)
@@ -7110,7 +7110,7 @@
              (cperl-tags-hier-fill))
          (or tags-table-list
              (call-interactively 'visit-tags-table))
-         (mapcar
+         (mapc
           (function
            (lambda (tagsfile)
              (message "Updating list of classes... %s" tagsfile)
@@ -7118,8 +7118,8 @@
            (cperl-tags-hier-fill)))
         tags-table-list)
          (message "Updating list of classes... postprocessing..."))
-       (mapcar remover (car cperl-hierarchy))
-       (mapcar remover (nth 1 cperl-hierarchy))
+       (mapc remover (car cperl-hierarchy))
+       (mapc remover (nth 1 cperl-hierarchy))
        (setq to (list nil (cons "Packages: " (nth 1 cperl-hierarchy))
                       (cons "Methods: " (car cperl-hierarchy))))
        (cperl-tags-treeify to 1)
@@ -7183,15 +7183,15 @@
     (setcdr to l1)                     ; Init to dynamic space
     (setq writeto to)
     (setq ord 1)
-    (mapcar move-deeper packages)
+    (mapc move-deeper packages)
     (setq ord 2)
-    (mapcar move-deeper methods)
+    (mapc move-deeper methods)
     (if recurse
-       (mapcar (function (lambda (elt)
+       (mapc (function (lambda (elt)
                          (cperl-tags-treeify elt (1+ level))))
                (cdr to)))
     ;;Now clean up leaders with one child only
-    (mapcar (function (lambda (elt)
+    (mapc (function (lambda (elt)
                        (if (not (and (listp (cdr elt))
                                      (eq (length elt) 2))) nil
                            (setcar elt (car (nth 1 elt)))
@@ -7202,14 +7202,14 @@
        (setcdr to
                (sort (cdr to) (default-value 'imenu-sort-function))))
     ;; Now add back functions removed from display
-    (mapcar (function (lambda (elt)
+    (mapc (function (lambda (elt)
                        (setcdr to (cons elt (cdr to)))))
            (if (default-value 'imenu-sort-function)
                (nreverse
                 (sort root-functions (default-value 'imenu-sort-function)))
              root-functions))
     ;; Now add back packages removed from display
-    (mapcar (function (lambda (elt)
+    (mapc (function (lambda (elt)
                        (setcdr to (cons (cons (concat "package " (car elt))
                                               (cdr elt))
                                         (cdr to)))))