[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/delphi.el,v,
Juanma Barranquero <=