From: Juanma Barranquero Date: Thu, 29 Jan 2009 12:34:08 +0000 (+0000) Subject: * vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file): X-Git-Tag: emacs-pretest-23.0.90~88 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=426bf35900e19d0332c75bd1af75d12a99902a5d;p=emacs.git * vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file): Fix typos in docstrings. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7877671742..ab4d5cb5ff3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +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): @@ -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