Mercurial > emacs
changeset 101642:a2281d8c22e0
* vc-dir.el (vc-dir-menu-map, vc-dir-at-event, vc-dir-resynch-file):
Fix typos in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 29 Jan 2009 12:34:08 +0000 |
| parents | 1f841b676a2c |
| children | f462bd5b1637 |
| files | lisp/ChangeLog lisp/vc-dir.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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