emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/delphi.el,v
Date: Wed, 26 Sep 2007 00:25:26 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:25:26

Index: delphi.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/delphi.el,v
retrieving revision 3.25
retrieving revision 3.26
diff -u -b -r3.25 -r3.26
--- delphi.el   26 Jul 2007 05:27:25 -0000      3.25
+++ delphi.el   26 Sep 2007 00:25:26 -0000      3.26
@@ -1677,7 +1677,7 @@
           (unit-file (downcase unit)))
       (catch 'done
         ;; Search for the file.
-        (mapcar #'(lambda (file)
+        (mapc #'(lambda (file)
                     (let ((path (concat dir "/" file)))
                       (if (and (string= unit-file (downcase file))
                                (delphi-is-file path))
@@ -1686,7 +1686,7 @@
 
         ;; Not found. Search subdirectories.
         (when recurse
-          (mapcar #'(lambda (subdir)
+          (mapc #'(lambda (subdir)
                       (unless (member subdir '("." ".."))
                         (let ((path (delphi-search-directory
                                      unit (concat dir "/" subdir) recurse)))
@@ -1721,7 +1721,7 @@
           ((stringp delphi-search-path)
            (delphi-find-unit-in-directory unit delphi-search-path))
 
-          ((mapcar
+          ((mapc
               #'(lambda (dir)
                   (let ((file (delphi-find-unit-in-directory unit dir)))
                     (if file (throw 'done file))))
@@ -1888,7 +1888,7 @@
 
 (defvar delphi-debug-mode-map
   (let ((kmap (make-sparse-keymap)))
-    (mapcar #'(lambda (binding) (define-key kmap (car binding) (cadr binding)))
+    (mapc #'(lambda (binding) (define-key kmap (car binding) (cadr binding)))
             '(("n" delphi-debug-goto-next-token)
               ("p" delphi-debug-goto-previous-token)
               ("t" delphi-debug-show-current-token)
@@ -1909,7 +1909,7 @@
 
 (defvar delphi-mode-map
   (let ((kmap (make-sparse-keymap)))
-    (mapcar #'(lambda (binding) (define-key kmap (car binding) (cadr binding)))
+    (mapc #'(lambda (binding) (define-key kmap (car binding) (cadr binding)))
             (list '("\r" delphi-newline)
                   '("\t" delphi-tab)
                   '("\177" backward-delete-char-untabify)
@@ -1981,7 +1981,7 @@
   (set-syntax-table delphi-mode-syntax-table)
 
   ;; Buffer locals:
-  (mapcar #'(lambda (var)
+  (mapc #'(lambda (var)
               (let ((var-symb (car var))
                     (var-val (cadr var)))
                 (make-local-variable var-symb)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]