Mercurial > emacs

changeset 85220:5d24da5e0deb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(idlwave-shell-filter-bp, top level): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Sat, 13 Oct 2007 02:59:21 +0000
parents e9fe4040380d
children dab83b846830
files lisp/progmodes/idlw-shell.el
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/idlw-shell.el	Sat Oct 13 02:58:56 2007 +0000
+++ b/lisp/progmodes/idlw-shell.el	Sat Oct 13 02:59:21 2007 +0000
@@ -3461,12 +3461,12 @@
 		line (string-to-number (match-string (nth 2 indmap)))
 		file (idlwave-shell-file-name (match-string (nth 3 indmap))))
 	  (if (eq bp-re bp-re55)
-	      (setq count (if (match-string 10) 1 
+	      (setq count (if (match-string 10) 1
 			    (if (match-string 8)
 				(string-to-number (match-string 8))))
 		    condition (match-string 13)
 		    disabled (not (null (match-string 15)))))
-		    
+
 	  ;; Add the breakpoint info to the list
 	  (nconc idlwave-shell-bp-alist
 		 (list (cons (list file line)
@@ -3476,9 +3476,9 @@
 			      count nil condition disabled))))))
       (setq idlwave-shell-bp-alist (cdr idlwave-shell-bp-alist))
       ;; Update breakpoint data
-      (if (eq bp-re bp-re54) 
-	  (mapcar 'idlwave-shell-update-bp old-bp-alist)
-	(mapcar 'idlwave-shell-update-bp-command-only old-bp-alist))))
+      (if (eq bp-re bp-re54)
+	  (mapc 'idlwave-shell-update-bp old-bp-alist)
+	(mapc 'idlwave-shell-update-bp-command-only old-bp-alist))))
   ;; Update the breakpoint overlays
   (unless no-show (idlwave-shell-update-bp-overlays))
   ;; Return the new list
@@ -4530,27 +4530,27 @@
 
 (if (or (featurep 'easymenu) (load "easymenu" t))
     (progn
-      (easy-menu-define 
+      (easy-menu-define
        idlwave-mode-debug-menu idlwave-mode-map "IDL debugging menus"
        idlwave-shell-menu-def)
       (easy-menu-define
        idlwave-shell-mode-menu idlwave-shell-mode-map "IDL shell menus"
        idlwave-shell-menu-def)
       (save-excursion
-	(mapcar (lambda (buf)
-		  (set-buffer buf)
-		  (if (eq major-mode 'idlwave-mode)
-		      (progn
-			(easy-menu-remove idlwave-mode-debug-menu)
-			(easy-menu-add idlwave-mode-debug-menu))))
-		(buffer-list)))))
+	(mapc (lambda (buf)
+		(set-buffer buf)
+		(if (eq major-mode 'idlwave-mode)
+		    (progn
+		      (easy-menu-remove idlwave-mode-debug-menu)
+		      (easy-menu-add idlwave-mode-debug-menu))))
+	      (buffer-list)))))
 
 ;; The Breakpoint Glyph -------------------------------------------------------
 
 (defvar idlwave-shell-bp-glyph nil
   "The glyphs to mark breakpoint lines in the source code.")
 
-(let ((image-alist 
+(let ((image-alist
        '((bp . "/* XPM */
 static char * file[] = {
 \"14 12 3 1\",