Mercurial > emacs

diff lisp/vc.el @ 83676:27d11c1d4e46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 857-862) - Update from CVS - Merge from emacs--rel--22 - Update from CVS: lisp/emacs-lisp/avl-tree.el: New file. * emacs--rel--22 (patch 97-100) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 246-247) - Update from CVS Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-38
author Miles Bader <miles@gnu.org>
date Mon, 27 Aug 2007 09:21:49 +0000
parents 92ccd83174e6
children 64474f5a185a b83d0dadb2a7
line wrap: on
line diff
--- a/lisp/vc.el	Mon Aug 27 08:16:42 2007 +0000
+++ b/lisp/vc.el	Mon Aug 27 09:21:49 2007 +0000
@@ -107,6 +107,7 @@
 ;; * revision-granularity
 ;;
 ;;   Takes no arguments.  Returns either 'file or 'repository.
+;;   FIXME: What does this mean?  Why "repository"?
 ;;
 ;; STATE-QUERYING FUNCTIONS
 ;;
@@ -2381,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))))))
@@ -3410,7 +3411,7 @@
                      vc-annotate-parent-display-mode
                      buf)
 	(goto-line (min oldline (progn (goto-char (point-max))
-				       (previous-line)
+				       (forward-line -1)
 				       (line-number-at-pos))) buf)))))
 
 (defun vc-annotate-compcar (threshold a-list)