# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1233232448 0
# Node ID a2281d8c22e01560f2c00a70622d5ffa14bd48c9
# Parent  1f841b676a2cd350b1b651e3734a3e141811b92b
* vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file):
  Fix typos in docstrings.

diff -r 1f841b676a2c -r a2281d8c22e0 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 29 12:13:59 2009 +0000
+++ b/lisp/ChangeLog	Thu Jan 29 12:34:08 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-29  Juanma Barranquero  <lekktu@gmail.com>
+
+	* vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file):
+	Fix typos in docstrings.
+
 2009-01-29  Juanma Barranquero  <lekktu@gmail.com>
 
 	* bindings.el (completion-ignored-extensions):
@@ -9,7 +14,7 @@
 
 2009-01-29  Klaus Straubinger  <KSNetz@UseNet.ArcorNews.DE>  (tiny change)
 
-	* pcmpl-rpm.el (pcmpl-rpm): Doc fix.
+	* pcmpl-rpm.el (pcmpl-rpm): Doc fix.  (Bug#2094)
 
 2009-01-29  Glenn Morris  <rgm@gnu.org>
 
diff -r 1f841b676a2c -r a2281d8c22e0 lisp/vc-dir.el
--- a/lisp/vc-dir.el	Thu Jan 29 12:13:59 2009 +0000
+++ b/lisp/vc-dir.el	Thu Jan 29 12:34:08 2009 +0000
@@ -206,7 +206,7 @@
       '(menu-item "Register" vc-register
 		  :help "Register file set into the version control system"))
     map)
-  "Menu for VC dir")
+  "Menu for VC dir.")
 
 ;; VC backends can use this to add mode-specific menu items to
 ;; vc-dir-menu-map.
@@ -276,8 +276,8 @@
   "Keymap for directory buffer.")
 
 (defmacro vc-dir-at-event (event &rest body)
-  "Evaluate `body' with point located at event-start of `event'.
-If `body' uses `event', it should be a variable,
+  "Evaluate BODY with point located at event-start of EVENT.
+If BODY uses EVENT, it should be a variable,
  otherwise it will be evaluated twice."
   (let ((posn (make-symbol "vc-dir-at-event-posn")))
     `(save-excursion
@@ -850,7 +850,7 @@
       (vc-dir-update fileentries (current-buffer)))))
 
 (defun vc-dir-resynch-file (&optional fname)
-  "Update the entries for FILE in any directory buffers that list it."
+  "Update the entries for FNAME in any directory buffers that list it."
   (let ((file (or fname (expand-file-name buffer-file-name)))
 	(found-vc-dir-buf nil))
     (save-excursion