Mercurial > emacs

diff lisp/vc.el @ 91015:b83d0dadb2a7

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-865) - Update from CVS - Merge from emacs--rel--22 - Update from CVS: lisp/emacs-lisp/avl-tree.el: New file. - Remove RCS keywords * 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--unicode--0--patch-252
author Miles Bader <miles@gnu.org>
date Wed, 29 Aug 2007 05:03:40 +0000
parents 424b655804ca 92ccd83174e6
children 14c4a6aac623
line wrap: on
line diff
--- a/lisp/vc.el	Thu Aug 23 12:13:43 2007 +0000
+++ b/lisp/vc.el	Wed Aug 29 05:03:40 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)