From 426bf35900e19d0332c75bd1af75d12a99902a5d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 29 Jan 2009 12:34:08 +0000 Subject: [PATCH] * vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file): Fix typos in docstrings. --- lisp/ChangeLog | 7 ++++++- lisp/vc-dir.el | 8 ++++---- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7877671742..ab4d5cb5ff3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2009-01-29 Juanma Barranquero + * vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file): + Fix typos in docstrings. + +2009-01-29 Juanma Barranquero + * bindings.el (completion-ignored-extensions): Add entries for VCS metadata directories (CVS/, .svn, etc). @@ -9,7 +14,7 @@ 2009-01-29 Klaus Straubinger (tiny change) - * pcmpl-rpm.el (pcmpl-rpm): Doc fix. + * pcmpl-rpm.el (pcmpl-rpm): Doc fix. (Bug#2094) 2009-01-29 Glenn Morris diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 18186f3d01a..249ceec75f9 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -206,7 +206,7 @@ See `run-hooks'." '(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 @@ See `run-hooks'." "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 @@ If it is a file, return the corresponding cons for the file itself." (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 -- 2.11.4.GIT