diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-08-26 00:32:23 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-08-26 00:32:23 +0000 |
| commit | a549ce70542360af098cc94d191cc01879bf3a8e (patch) | |
| tree | 1bf73c7f8c2bf99e266e4a0fc7b5f3f5911bacfd | |
| parent | 7f59302aef3e384cfca55b03490a1542060e821c (diff) | |
| download | emacs-a549ce70542360af098cc94d191cc01879bf3a8e.tar.gz emacs-a549ce70542360af098cc94d191cc01879bf3a8e.tar.bz2 emacs-a549ce70542360af098cc94d191cc01879bf3a8e.zip | |
* vc-hooks.el (vc-registered): Use mapc instead of mapcar.
(vc-delete-automatic-version-backups): Likewise.
* vc.el (vc-dired-buffers-for-dir): Likewise.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/vc-hooks.el | 4 | ||||
| -rw-r--r-- | lisp/vc.el | 2 |
3 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5ff85c47ae..b79852362b9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-08-26 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-hooks.el (vc-registered): Use mapc instead of mapcar. + (vc-delete-automatic-version-backups): Likewise. + + * vc.el (vc-dired-buffers-for-dir): Likewise. + 2007-08-25 Dan Nicolaescu <dann@ics.uci.edu> * progmodes/cperl-mode.el (cperl-indent-level): Autoload the diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 7e830d7d168..5b134831d08 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -371,7 +371,7 @@ backend is tried first." ;; Try vc-BACKEND-registered for each handled BACKEND. (catch 'found (let ((backend (vc-file-getprop file 'vc-backend))) - (mapcar + (mapc (lambda (b) (and (vc-call-backend b 'registered file) (vc-file-setprop file 'vc-backend b) @@ -661,7 +661,7 @@ a regexp for matching all such backup files, regardless of the version." (defun vc-delete-automatic-version-backups (file) "Delete all existing automatic version backups for FILE." (condition-case nil - (mapcar + (mapc 'delete-file (directory-files (or (file-name-directory file) default-directory) t (vc-version-backup-file-name file nil nil t))) diff --git a/lisp/vc.el b/lisp/vc.el index 2b0d2fa1a80..e65cd5b85a8 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2382,7 +2382,7 @@ Called by dired after any portion of a vc-dired buffer has been read in." (let (result) ;; Check whether dired is loaded. (when (fboundp 'dired-buffers-for-dir) - (mapcar (lambda (buffer) + (mapc (lambda (buffer) (with-current-buffer buffer (if vc-dired-mode (setq result (append result (list buffer)))))) |