Mercurial > emacs
changeset 82849:ea5864b698fd
* vc-hooks.el (vc-registered): Use mapc instead of mapcar.
(vc-delete-automatic-version-backups): Likewise.
* vc.el (vc-dired-buffers-for-dir): Likewise.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 26 Aug 2007 00:32:23 +0000 |
| parents | 2e4d7d4e0f88 |
| children | 4d60bd4e5610 |
| files | lisp/ChangeLog lisp/vc-hooks.el lisp/vc.el |
| diffstat | 3 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Aug 25 23:50:16 2007 +0000 +++ b/lisp/ChangeLog Sun Aug 26 00:32:23 2007 +0000 @@ -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
--- a/lisp/vc-hooks.el Sat Aug 25 23:50:16 2007 +0000 +++ b/lisp/vc-hooks.el Sun Aug 26 00:32:23 2007 +0000 @@ -371,7 +371,7 @@ ;; 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 @@ (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)))
--- a/lisp/vc.el Sat Aug 25 23:50:16 2007 +0000 +++ b/lisp/vc.el Sun Aug 26 00:32:23 2007 +0000 @@ -2382,7 +2382,7 @@ (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))))))